Yoko

All sides of Injection
It is currently 2017-11-23 20:50:25

All times are UTC+02:00




Post new topic  Reply to topic  [ 83 posts ]  Go to page 1 2 3 4 5 Next
Author Message
PostPosted: 2012-11-06 21:12:49 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
FAQ по шарду Dragon World.
Некоторые скрипты писал, а некоторые где то брал.
Все скрипты были отредактированы под лад ДРВ на 2012 год.
Если где то есть ошибки - пишите мне, разберёмся.

Все инжы

Image

Оставляем вопросы или предложения тут, ниже моего поста.

Скрипты для кача:

Alchemy
Anatomy
Animal Lore
Animal Taming
Archery
Arms Lore
Begging
Blacksmithing
Bowcraft
Camping
Carpentry
Cartography
Cooking
Detect Hidden
Enticement
Evaluate Intelligence
Fencing
Fishing
Forensic Evaluation
Healing
Herding
Hiding
Inscription
Item ID
Lockpicking - читать FAQ
Lumberjacking
Mace Fighting
Magery
Magic Resistance
Meditation
Mining
Musicianship
Parrying
Peacemaking
Poisoning
Provocation - читать FAQ
Remove Trap - читать FAQ
Snooping
Spirit Speak
Stealing
Stealth
Swordsmanship
Tactics - чтоб прокачать другие боевые тактика должна быть залоченой и качаться в самом конце
Tailoring
Taste Identification
Tinkering
Tracking
Veterinary
Wrestling
Necromancy - читать FAQ

Прочие:
Autoload
Покупка карт рядом с одним веником
Делает скрин при убийстве

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-03-09 19:15:25, edited 31 times in total.

Top
   
PostPosted: 2012-11-06 21:16:17 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Alchemy
Code:
sub Alchemy()
   VAR Exit=0, LastTimer
   uo.print('Сундук с регами и бутылками')
   uo.exec('addobject Bag')
   while uo.targeting()
      wait(100)
   wend
   uo.print('Сундук куда бутылки бросать')
   uo.exec('addobject Bag2')
   while uo.targeting()
      wait(100)
   wend
   while Exit<>1
      UO.DeleteJournal()
      UO.FindType('0x0F0E','0x0998','backpack')
      If UO.GetQuantity('finditem')>0 Then
         UO.SetReceivingContainer('Bag2')
         wait(1000)
         UO.Grab('all','finditem')
         wait(1000)
         UO.UnSetReceivingContainer()
      Endif
      UO.FindType('0x0F0E',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x0F0E','0x0000','Bag')
         wait(1000)
         UO.Grab('500','finditem')
         wait(1000)
      Endif
      UO.FindType('0x0F88','0x0000','backpack')
      If UO.GetQuantity('finditem')<20 then
         UO.FindType('0x0F88','0x0000','Bag')
         wait(1000)
         UO.Grab('400','finditem')
         wait(1000)
      Endif
      LastTimer=UO.Timer()
      UO.DeleteJournal()
      UO.UseType('0x0F88')
      UO.WaitMenu('What','Poison')       
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
         wait(500)
      wend
      If UO.InJournal("You toss the failed") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100
      Else
      EndIf
   wend   
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:02:22, edited 2 times in total.

Top
   
PostPosted: 2012-11-06 21:17:57 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Anatomy
Code:
sub Anatomy()
   while 1
      uo.say('guard')
      uo.useskill('Anatomy','self')
      wait(3000)
   wend
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2012-11-06 21:20:36, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 21:19:48 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Animal Lore
Code:
sub AnimalLore() 
   var count=0
   uo.print('Выбери Животное')
   uo.exec('addobject Jivka')
   while uo.targeting()
      wait(100)
   wend
   UO.DeleteJournal()
   repeat
      uo.waittargetobject('Jivka')
      UO.Useskill('Animal Lore')   
      wait(4000)
   until UO.Dead()
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:10:12, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 21:22:45 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Animal Taming
Code:
sub AnimalTaming() 
   var count=0
   uo.print('Выбери Животное')
   uo.exec('addobject Jivka')
   while uo.targeting()
      wait(100)
   wend
   UO.DeleteJournal()
   while NOT UO.Dead()
      UO.DeleteJournal()
      UO.WaitTargetObject('Jivka')
      UO.UseType('0x13F8') # стафф
      repeat
         wait(1000)
      until UO.InJournal('You fail') OR UO.InJournal('It seems')
      If Uo.InJournal('It seems') Then
         UO.Say('All release')
      Endif
   wend
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:10:56, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 21:26:52 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Archery, Fencing, Mace Fighting, Parrying, Swordsmanship, Tactics, Wrestling
Code:
Var RejimSC=2 ; Режим работы скрипта, 1 - арчер, 2 - кастующий
Var Sunduk='   ' ; ИД сундука где все ресурсы, луки и стрелы, реги для вортекса или скролы для вортекса, кормёжка для чаров
Var xVortex='  ',yVortex='  ',zVortex='  ' ; Координаты куда кастуем вортекса, не далее 2х тайлов от берега
Var TBow='  ' ; Тип оружия которое будем использовать
sub main()
   uo.exec("filterspeech clear")
   uo.exec("filterspeech off")
   uo.exec("set finddistance 3")
   uo.sayu(".detail 0")
   uo.useobject(Sunduk)
   uo.useobject('backpack')
   wait(1000)
   uo.exec("exec main0"+STR(RejimSC))
   uo.Exec('terminate Reconnector')
   wait(1000)
   uo.Exec('exec Reconnector')
   wait(1000)
end sub
Sub main01()#арчер
   var Vortex='   ',check = false
   var arN,arT,arE,qV = 0
   var sk=uo.skillval("Archery",1)
   uo.exec("warmode 1")
   arN = uo.count('0x0F3F','0x0000')
   arE = arN
   while not uo.dead()
      if uo.IsNPC(Vortex) then
         if uo.skillval("Archery",1) == 1000 then
            uo.asmLogAdd('Training.txt', UO.asmGetDate('dd/mm/yy')+" - "+UO.asmGetTime('hh:nn:ss')+" YES!!! GM Archery!!!")
            uo.closeuo()
         end if
         if uo.count('0x0F3F','0x0000')<50 then
            arT = uo.count('0x0F3F','0x0000')
            uo.findtype('0x0F3F','0x0000',Sunduk)
            Cheklag()
            uo.moveitem('finditem','100','backpack')
            wait(1000)
            arE = arE + uo.count('0x0F3F','0x0000')-arT
         end if
         if uo.GetGraphic(uo.ObjAtLayer('Lhand'))<>TBow then
            uo.findtype(TBow,'-1','backpack')
            if uo.findcount()>0 then
               uo.usetype(TBow)
               wait(1000)
            else
               uo.findtype(TBow,'-1',Sunduk)
               Cheklag()
               uo.moveitem('finditem','1','backpack')
               wait(1000)
               uo.usetype(TBow)
               wait(1000)
            end if
         end if
         if not check then
            check = true
            qV = qV + 1
         end if
      else
         if check then     
            if sk <> uo.skillval("Archery",1) then
               uo.asmLogAdd('Training.txt', UO.asmGetDate('dd/mm/yy')+" - "+UO.asmGetTime('hh:nn:ss')+" ::на поднятие скила потратил " + str(arE-ArN) + ", потребовалось " + str(qV) + " вортексов, состояние скила арчери - "+STR(uo.skillval("Archery",1)/10))
               arN = uo.count('0x0F3F','0x0000')
               arE = arN
               qV = 0
               sk = uo.skillval("Archery",1)
            end if
            Eda()
            check = false         
         end if
         uo.findtype('0x000D','0x000D','ground')
         if uo.findcount()>0 then
            Vortex=uo.getserial('finditem')
            UO.attack(Vortex)
         end if
      end if
      wait(1000) ; Опрос состояния каждую секунду
      if uo.injournal('SkokaAR') then
         uo.say(STR(uo.skillval("Archery",1)/10))
         uo.deletejournal()
      end if
   wend
   uo.closeuo()
end sub
Sub main02()#кастер
   var Vortex='0x40043143'
   var i
   dim ResursCast[5]
   ResursCast[1]='0x1F66' ## Energy Vortex Scroll
   ResursCast[2]='0x0F7B' ## BM
   ResursCast[3]='0x0F7A' ## BP
   ResursCast[4]='0x0F86' ## MR
   ResursCast[5]='0x0F88' ## NS
   uo.exec("warmode 0")
   uo.findtype('0x000D','0x000D','ground')
   if uo.findcount()>0 then
      Vortex=uo.getserial('finditem')
   end if
   while not uo.dead()
      if not uo.IsNPC(Vortex) then
         if ChekArcher() then
            while not castuni(40,'0x1F66','Energy Vortex')
               for i=2 to 5
                  if uo.count(ResursCast[i],'0x0000')==0 then
                     uo.findtype(ResursCast[i],'0x0000',Sunduk)
                     Cheklag()
                     if uo.findcount()>0 then
                        uo.moveitem('finditem',str(10-uo.count(ResursCast[i],'0x0000')),'backpack')
                        wait(1000)
                     end if
                  end if
               next
            wend
            uo.findtype('0x000D','0x000D','ground')
            if uo.findcount()>0 then
               Vortex=uo.getserial('finditem')           
               for i=2 to 5
                  if uo.count(ResursCast[i],'0x0000')<10 then
                     uo.findtype(ResursCast[i],'0x0000',Sunduk)
                     Cheklag()
                     if uo.findcount()>0 then
                        uo.moveitem('finditem',str(10-uo.count(ResursCast[i],'0x0000')),'backpack')
                        wait(1000)
                     end if
                  end if
               next
               Eda()
               ToMedit()
            end if
         end if
      end if
      wait(1000)
      if uo.injournal('StopP!!!') then
         uo.closeUO()
      end if
      if uo.mana==uo.int then
         ToHide()
      end if
      uo.findtype('0x0F3F','0x0000','ground')
      if uo.findcount()>0 then
         Cheklag()
         uo.moveitem('finditem','-1',Sunduk)
         wait(1000)
      end if
   wend
   uo.closeuo()
end sub
Sub ChekArcher()
   var i
   Dim Archers[5]
   Archers[1]=''
   Archers[2]=''
   Archers[3]=''
   Archers[4]=''
   Archers[5]=''
   for i=1 to 5
      if uo.IsNPC(Archers[i]) then
         if Archers[i]<>uo.getserial('self') then
            return true
         end if
      end if
   next
   return false
end sub
Sub Eda()
   if uo.count('0x097B','0x0000')<50 then
      uo.findtype('0x097B','0x0000',Sunduk)
      Cheklag()
      uo.moveitem('finditem',STR(50-uo.count('0x097B','0x0000')),'backpack')
      wait(1000)
   end if
   uo.deletejournal()
   repeat
      uo.usetype('0x097B','0x0000')
      wait(1000)
   until uo.injournal("You are stuffed!") or uo.injournal("You can't think of a way to use that item.")
end sub
Sub Cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
   Repeat
      Wait(10)
   Until UO.InJournal("backpack")
end sub
Sub ToMedit()
   while uo.mana<40
      uo.warmode(0)
      uo.deletejournal()
      uo.useskill('Meditation')
      repeat
         wait(10)
      until uo.injournal("You lose your concentration") or uo.injournal("You are at peace.") or uo.mana>40
   wend
end sub
Sub ToHide()
   while not uo.hidden()
      uo.warmode(0)
      uo.DeleteJournal()
      uo.useskill("Hiding")
      repeat
         wait(10)
      until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.") or uo.dead()
      if  UO.InJournal("You are preoccupied with thoughts of battle.") then
         uo.warmode(0)
      end if
      if uo.dead() then
         return
      end if
   wend
end sub
Sub castuni(minMANA,sType,cName)
   var t = UO.Timer(),m = UO.MANA
   uo.exec("warmode 0")
   repeat     
      UO.FindType(sType,-1,'my')
      If UO.findcount()>0 then
         if uo.mana<(minMANA/2) then
            ToMedit()
         end if
         m = UO.MANA
         uo.DeleteJournal()
         uo.waittargettile('400',xVortex,yVortex,zVortex)   
         UO.UseObject('finditem')     
      else
         if uo.mana<minMANA then
            ToMedit()
         end if
         m = UO.MANA
         uo.DeleteJournal()
         uo.waittargettile('400',xVortex,yVortex,zVortex)
         uo.cast(cName)
      end if
      t = UO.Timer()
      repeat
         wait(10)
      until IsMyOwn('You have interrupted') or IsMyOwn(uo.getname()+': The spell fizzles.') or IsMyOwn('You lack') or t+200<uo.Timer() or m > UO.MANA
      wait(500)
      if IsMyOwn('You lack') then
         return false
      end if
   until not (IsMyOwn('You have interrupted') or IsMyOwn(uo.getname()+': The spell fizzles.'))
   return true
end sub
Sub IsMyOwn(msgSTR)
   if not UO.InJournal(msgSTR) then
      return false
   end if
   if msgSTR == Left(UO.Journal(UO.InJournal(msgSTR)-1),len(msgSTR)) then
      return true     
   else
      return false
   end if
end sub
Sub Reconnector()
   var ReconnectTime, RFlag
   ReconnectTime = '0'
   RFlag = 1
   Repeat
      While (uo.ObjAtLayer('Bpack') == '')
         if RFlag Then
            ReconnectTime = MakeTime()
            RFlag = 0
         endif
         Wait(110000) # WorldSave Protection
         uo.Say('')
         Wait(5000)
         uo.Say('')
         Wait(5000)
         uo.Say('')
         Wait(5000)
         uo.LDblClick(357,164)
         uo.LClick(616,459)
         Wait(5000)
      WEnd
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         UO.asmLogAdd('Training.txt', UO.asmGetDate('dd/mm/yy')+" - "+UO.asmGetTime('hh:nn:ss')+" - "+"Упс. Ребут типа !!!")
         uo.Exec('terminate main01')
         uo.Exec('terminate main02')
         wait(5000)
         uo.RClick(196,193)
         wait(2000)
         uo.RClick(196,193)
         wait(2000)
         uo.RClick(196,193)
         wait(2000)
         uo.RClick(196,193)
         wait(2000)
         uo.Exec('exec main')
         wait(5000)
         RFlag = 1
         ReconnectTime = '0'
      endif
   Until false
end sub
Sub MakeTime()
   VAR D, T, Ret, i
   Ret = STR(uo.Time())
   T = ""
   For i = 0 To Len(Ret)
      T = Ret[Len(Ret)-i] + T
      If (I == 2) OR (I == 4) Then
         T = ":" + T
      EndIf
   Next
   Ret = STR(uo.Date())
   D = ""
   For i = 0 To Len(Ret)
      D = Ret[Len(Ret)-i] + D
      If (I == 2) OR (I == 4) Then
         D = "." + D
      EndIf
   Next
   Ret = T + " @ " + D
   RETURN Ret
end sub


И

Code:
var x='  ' ; координата Х куда кастуем
var y='  ' ; координата Y куда кастуем
var fighter='  ' ; ИД того, кто качает боевые
var spirit='0x023E' ; тип блейд спирита
var bints='0x0E21' ; тип бинтов
var bloodbints='0x0E20' ; тип кровавых бинтов
var washbasin='0x1008' ; тип ванночки
var Svord='  ' ; тип оружия
var Shield='  ' ; тип щита
var gh='0x0F0E' ; тип ГХ
var cgh='0x09BB' ; цвет ГХ
var i=3
####################### Настройки ##########################
#Кастер                                                    #
#в пак положить необходимые реги, одеть браслет маны,      #
#включить TWI, перетащить статус файтера                   #
#Файтер                                                    #
#в пак положить ванночку, бинты, ГХ, одеть браслет жизни,  #
#положить побольше оружия, включить TWI, одеть щит и оружие#
#################### Caster Spirits ########################
sub caster()
   uo.set('finddistance','14')
   while not uo.dead()
      if i==3 then
         i=0
         castparaliz()
      endif
      i=i+1
      castbladespirit()
      meditation()
      waitdiespirit()
      waithealfighter()
   wend
endsub
Sub castbladespirit()
   uo.findtype(spirit,'-1','ground')
   if uo.findcount() then
      while uo.findcount()
         wait(1000)
         uo.findtype(spirit,'-1','ground')
      wend
   endif
   repeat
      meditation()
      uo.deletejournal()
      uo.waittargettile('0',x,y,0)
      uo.cast ('Blade Spirits')
      wait(8000)
   until not uo.InJournal("The spell fizzles.")
end sub
Sub castparaliz()
   uo.findtype(spirit,'-1','ground')
   if uo.findcount() then
      while uo.findcount()
         wait(1000)
         uo.findtype(spirit,'-1','ground')
      wend
   endif
   repeat
      if uo.mana-24<=24 then
         uo.exec('warmode 0')
         repeat
            uo.useskill('Meditation')
            wait(4000)
         until uo.mana == uo.int
      endif
      meditation()
      uo.deletejournal()
      uo.waittargettile('0',x,y,0)
      uo.cast ('Paralyze Field')
      wait(8000)
   until not uo.InJournal("The spell fizzles.")
end sub
Sub meditation()
   if UO.Mana<24 then
      uo.exec('warmode 0')
      repeat
         uo.useskill('Meditation')
         wait(4000)
      until uo.mana == uo.int
   endif
endsub
Sub waithealfighter()
   repeat
      wait(100)
   until uo.GetHp(fighter) == uo.GetMaxHp(fighter)
endsub
Sub waitdiespirit()
   uo.findtype(spirit,'-1','ground')
   if uo.findcount() then
      while uo.gethp('finditem')>0
         wait(1000)
         uo.findtype(spirit,'-1','ground')
      wend
   endif
endsub
################### Fighter Spirits #################
sub fighter()
   uo.set('finddistance','14')
   while not uo.dead()
      healing()
      sword()
      killspirits()
   wend
endsub
Sub healing()
   UO.FindType(bints,'-1','backpack')
   if UO.FindCount() then
      while uo.life<>uo.str
         uo.bandageself()
         wait(3500)
      wend
   else
      UO.FindType(bloodbints,'-1','backpack')
      if UO.FindCount() then
         uo.waittargettype(washbasin)
         uo.UseType(bloodbints)
      endif   
   endif
endsub
Sub killspirits()
   uo.findtype(spirit,'-1','ground')
   uo.warmode(1)
   while not uo.findcount()
      wait(1000)
      uo.findtype(spirit,'-1','ground')
   wend
   wait(2000)
   uo.attack('finditem')
   while uo.findcount()
      checksword()
      checkhp()
      uo.findtype(spirit,'-1','ground')
      wait(1000)
   wend
   wait(500)
   uo.findtype(spirit,'-1','ground')
   if uo.findcount() then
      wait(2000)
      uo.attack('finditem')
      while uo.findcount()
         checksword()
         checkhp()
         uo.findtype(spirit,'-1','ground')
         wait(1000)
      wend
      wait(500)
   endif
endsub
Sub sword()
   var s
   UO.Equipt('Lhand',shield)
   wait(2000)
   uo.findtype(Svord,'-1','backpack')
   if uo.findcount() then
      s=uo.getserial('finditem')
      uo.ignore('finditem')
   else
      uo.ignorereset()
      uo.findtype(Svord,'-1','backpack')
      s=uo.getserial('finditem')
   endif
   uo.useobject(s)
   wait(2000)
end sub
Sub checksword()
   if UO.GetGraphic(UO.ObjAtLayer('Rhand')) <> svord then
      uo.findtype(svord,'-1','backpack')
      if uo.findcount() then
         uo.usetype('finditem')
      endif
   endif
endsub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(gh,cgh)
   endif
endsub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:19:00, edited 6 times in total.

Top
   
PostPosted: 2012-11-06 21:32:17 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Arms Lore
Code:
sub ArmsLore()
   var count=0
   uo.print('Выбери оружие')
   uo.exec('addobject Weap')
   while uo.targeting()
      wait(100)
   wend
   UO.DeleteJournal()
   repeat
      uo.waittargetobject('Weap')
      UO.Useskill('Arms Lore')   
      wait(4000)
   until UO.Dead()
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:19:57, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 21:45:24 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Begging
Code:
sub Begging() 
   var count=0
   uo.print('Выбери Человека')
   uo.exec('addobject Chel')
   while uo.targeting()
      wait(100)
   wend
   UO.DeleteJournal()
   repeat
      uo.say('Guards')
      uo.waittargetobject('Chel')
      UO.Useskill('Begging')   
      wait(4000)
   until UO.Dead()
end sub


И

Code:
VAR Vendor='0x002EE030' 
sub Begging()
   var i=0
   while uo.skillval('Begging',1)<1000
      if uo.life<uo.str then
         uo.SayU('guards')
      end if
      wait(1000)
      i=i+1
      if i==50 then
         uo.usetype('0x097B')
         wait(1000)
         i=0
      end if
      cheklag()
      uo.useskill('Begging',Vendor)
      wait(3000)
   wend
   uo.closeuo()
end sub
sub cheklag()
   uo.deletejournal()
   uo.click('backpack')
   repeat
      wait(10)
   until uo.InJournal("backpack")
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:21:01, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 21:51:47 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Blaskmithing
Code:
sub BS() 
   VAR Cont='0x400A3A03'
   var ing = '0x1BEF'   ; type of ingot
   var color = '0x0750' ;color
   UO.CancelMenu()
   UO.SetReceivingContainer('backpack')
   UO.Automenu("Blacksmithing","Armor")
   UO.Automenu("Armor","Weapons")
   UO.Automenu("Weapons","Swords")
   UO.Automenu("Swords","Dagger")
   ;  UO.Automenu("Swords","Dagger")
   while True
      UO.DeleteJournal()
      if UO.Count(ing,color)<=10 then
         UO.FindType(ing,color,Cont)
         UO.Grab('100','finditem')
         wait(2000)
      endif
      UO.UseType(ing,color)
      Repeat
         wait(1000)
      Until UO.InJournal("You put") OR UO.InJournal("fail")
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте
         UO.MoveItem('finditem',0,Cont)
         wait(1000)
      endif
   Wend
end sub


И

Code:
sub Blacksmithing()
   var Exit=0, LastTimer
   uo.Print('Выбери Сундук: ')
   uo.Exec('addobject Chest')
   while uo.Targeting()
      wait(100)
   wend
   uo.Print('Выбери Помойку: ')
   uo.Exec('addobject TrashCan')
   while uo.Targeting()
      wait(100)
   wend
   while Exit<>1
      uo.DeleteJournal()
      uo.FindType('0x0F51','0x0000','backpack')
      if uo.GetQuantity('finditem')>0 then
         uo.SetReceivingContainer('TrashCan')
         wait(1000)
         uo.Grab('all','finditem')
         wait(1000)
         uo.UnSetReceivingContainer()
      end if
      uo.FindType('0x1BEF ',-1,'backpack')
      if uo.GetQuantity('finditem')<10 then
         uo.FindType('0x1BEF ','0x0000','Chest')
         wait(1000)
         uo.Grab('300','finditem')
         wait(1000)
      end if
      LastTimer=uo.Timer()
      uo.DeleteJournal()
      uo.WaitMenu ('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
      uo.UseType('0x13E3')
      wait(12000)
   wend
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:22:16, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:04:14 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Bowcraft
Code:
VAR Chest='  ' ; ИД сундука где все логи
VAR TDagger='0x0F51' ; Тип даггера
VAR TLogs='0x1BDD' ; Тип логов
VAR TTorch='0x0F64' ; Тип торчей
VAR TShaft='0x1BD4' ; Тип шафтов
VAR CLogs='0x0000' ; Цвет логов
VAR TorchBag='   ' ; Куда складывать шафты

; В руке или паке даггер, в сундуке логи и запускаем !!!

sub BowCraft_shaft()
   uo.useobject(Chest)
   wait(200)
   while UO.SkillVal('Bowcraft') < 650
      UO.FindType(TLogs,CLogs,'backpack')
      if not uo.findcount() then
         uo.findtype(TLogs,CLogs,Chest)
         if uo.findcount() then
            uo.moveitem('finditem',2,'backpack',44,121,0)
         endif
      endif
      wait(300)
      uo.findtype(TLogs,CLogs,'backpack')
      if uo.findcount() then
         uo.moveitem('finditem',1,'backpack',44,65,0)
      endif   
      wait(300)
      uo.Waittargettype(TLogs)
      uo.Usetype(TDagger)
      uo.WaitMenu('What do you want to carve the wood into?','shaft')
      wait(3100)
      if uo.Journal(0)=='World is saving now...' then
         wait(70000)
      endif
      uo.findtype(TShaft,-1,'backpack')
      if uo.getquantity('finditem')>25 then
         uo.moveitem('finditem',0,Chest)
         wait(1000)
      endif
   wend
end sub   


sub BowCraft_torch()
   VAR L
   dim ColLog[13]
   ColLog[0]=12         ; count
   ColLog[1]='0x047C'    ; Oak Logs
   ColLog[2]='0x0279'    ; Red Tree Logs
   ColLog[3]='0x096B'    ; Dark Tree Logs
   ColLog[4]='0x0237'    ; Swamp Logs
   ColLog[5]='0x0482'    ; Silver Leaf Logs
   ColLog[6]='0x010F'    ; Keranit Logs
   ColLog[7]='0x0014'    ; Perit Logs
   ColLog[8]='0x03C1'    ; Petrified Logs
   ColLog[9]='0x0085'    ; Dragon Tree Logs
   ColLog[10]='0x04C2' ; Vampire Tree Logs
   ColLog[11]='0x0033' ; Eridan Logs
   ColLog[12]='0x002B' ; Hellios Logs
   
   uo.useobject(Chest)
   wait(2000)
   for L=1 to ColLog[0]
      uo.findtype(TLogs,ColLog[L],Chest)
      while uo.findcount()
         uo.moveitem('finditem',50,'backpack')
         wait(1000)
         uo.findtype(TLogs,ColLog[L],'backpack')
         while uo.findcount()
            uo.waittargetobject('finditem')
            uo.usetype(TDagger)
            uo.waitmenu('What do you want to carve the wood into?','Items','Items','torch')
            uo.deletejournal()
            YouPut()
            uo.findtype(TLogs,ColLog[L],'backpack')
         wend
         DropTorch()
         uo.findtype(TLogs,ColLog[L],Chest)
      wend
   next     
end sub

Sub YouPut()
   var n
   for n=0 to 100
      if uo.injournal('You put the torch in your pack.|You fail to create the item') then
         return
      else
         if uo.injournal('World is saving now...') then
            wait(70000)
         endif
         wait(100)
      endif
   next
endsub

Sub DropTorch()
   uo.findtype(TTorch,-1,'backpack')
   while uo.findcount()
      uo.moveitem('finditem',0,TorchBag)
      wait(1000)
      uo.findtype(TTorch,-1,'backpack')
   wend
endsub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2012-11-06 22:17:05 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Camping
Code:
sub Camping()
var mx=uo.getx(),my=uo.gety(),x,y
uo.set('finddistance',5)
uo.useobject('backpack')
wait(200)
uo.DeleteJournal()
while 1==1
   for x=mx-2 to mx+2
      for y=my-3 to my+3
         cheklag()
         if uo.count('0x0DE1','0x0000')<10 then
            UO.FindType('0x0DE1','0x0000','backpack')
            wait(200)
            UO.Grab('100','finditem')
            wait(200)
         end if
         if (uo.count('0x0DE1','0x0000')==0) or (uo.skillval('Camping',1)==1000) then
            uo.closeuo()
         end if
         uo.findtype('0x0DE1','0x0000','ground')
         wait(200)
         if UO.FindCount()<>0 then
            uo.useobject('finditem')
            wait(1500)           
         else
            uo.findtype('0x0DE1','0x0000','backpack')
            wait(200)
            uo.drop('1',STR(x),STR(y),STR(uo.getz()),'finditem')
            wait(700)
            uo.findtype('0x0DE1','0x0000','ground')
            wait(200)           
            uo.useobject('finditem')
            wait(1500)           
         end if
      next
   next
wend
end sub

sub cheklag()
  uo.deletejournal()
  uo.click('backpack')
    Repeat
    wait(100)
    Until UO.InJournal("backpack")
end sub


И

Code:
sub camping()
   VAR Exit=0
   uo.print('Сундук c хворостом')
   uo.exec('addobject Bag')
   while uo.targeting()
      wait(100)
   wend
   UO.UseObject('Bag')
   uo.print('Помойка')
   uo.exec('addobject Bag2')
   while uo.targeting()
      wait(100)
   wend
   UO.UseObject('Bag2')
   while NOT UO.Dead() OR Exit<>1
      UO.FindType('0x0DE1','0x0000','Bag')
      If UO.GetQuantity('finditem')>0 Then
         UO.Grab('1','finditem')
         wait(1000)
         UO.DropHere('finditem')
         wait(1000)
         UO.UseObject('finditem')
         wait(1000)
         UO.SetReceivingContainer('Bag2')
         wait(1000)
         UO.Grab('1','finditem')
         UO.UnSetReceivingContainer()
      Else
         Exit=1
      Endif
   wend
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:23:58, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:18:42 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Campentry
Code:
sub Carpentry() 
   VAR Exit=0, LastTimer, TryToPoison
   uo.print('Noiaoe ')
   uo.exec('addobject Bag')
   while uo.targeting()
      wait(100)
   wend
   uo.print('Iiiieea ')
   uo.exec('addobject Bag2')
   while uo.targeting()
      wait(100)
   wend
   while Exit<>1
      UO.DeleteJournal()
      UO.FindType('0x0E89','0x0000','backpack');
      If UO.GetQuantity('finditem')>0 Then
         UO.SetReceivingContainer('Bag2');
         wait(1000)
         UO.Grab('all','finditem')
         wait(1000)
         UO.UnSetReceivingContainer()
      Endif
      UO.FindType('0x1BDD',-1,'backpack') ;
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x1BDD','0x0000','Bag') ;
         wait(1000)
         UO.Grab('300','finditem') ;
         wait(1000)
      Endif
      LastTimer=UO.Timer()
      CheckLag()
      UO.DeleteJournal()
      UO.UseType('0x1034')
      UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')  ;
      wait(12000)
   wend   
end sub
sub CheckLag()
   IF UO.Waiting() > 0 THEN
      UO.Exec("canceltarget")
   END IF
   UO.DeleteJournal()
   UO.Click('backpack')
   REPEAT
      WAIT(50)
   UNTIL UO.InJournal('backpack')
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:24:39, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:22:19 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Cartography
Code:
sub Cartography() 
   UO.Exec ("automenu 'What sort of map do you want to d' 'Detail Map'")
   UO.DeleteJournal()
   repeat
      UO.Useskill("Cartography")   
      wait(8000)
   until UO.Dead()
end sub


И

Code:
Var Trash='0x40219CDB' 
Var Sunduk1='0x40226380' ; Где полные мешочки
Var Sunduk2='0x401E6ABC' ; Где пустые мешочки
sub Cartography()
   var i=0,Bag
   UO.Exec('terminate Reconnector')
   wait(1000)
   UO.Exec('exec Reconnector')
   wait(1000)
   uo.cancelmenu()
   uo.automenu('What sort of','(last)')
   While not uo.dead()
      uo.findtype('0x0E76','0x0000','backpack')
      wait(200)
      if uo.findcount()==0 Then
         uo.useobject(Sunduk1)
         wait(1000)
         uo.findtype('0x0E76','0x0000',Sunduk1)
         wait(200)
         if uo.findcount()<>0 Then
            cheklag()
            uo.MoveItem('finditem','-1','backpack')
            wait(1000)
         else
            uo.closeuo()
         end if       
      end if
      Bag=uo.GetSerial('finditem')
      uo.useobject(Bag)
      wait(1000)
      uo.findtype('0x14EB','0x0000',Bag)
      wait(200)
      while uo.findcount()>0
         i=i+1
         if i==50 then
            uo.usetype('0x097B')
            wait(1000)
            i=0
         end if
         if uo.skillval("Cartography",1)==1000 then
            uo.closeuo()
         end if
         uo.deletejournal()
         uo.useobject('finditem')
         repeat
            wait(100)
         until uo.InJournal('You put the') or uo.InJournal('Thy trembling hand')
         uo.findtype('0x14EB','0x0000','backpack')
         wait(200)
         if uo.findcount()>0 then
            cheklag()
            uo.MoveItem('finditem','-1',Trash)
            wait(500)
         end if
         uo.findtype('0x14EB','0x0000',Bag)
         wait(200)
      wend
      cheklag()
      uo.MoveItem(Bag,'-1',Sunduk2)
      wait(500)
   wend
end sub
sub Reconnector()
   var ReconnectTime, RFlag
   ReconnectTime = '0'
   RFlag = 1
   Repeat
      While (UO.ObjAtLayer('Bpack') == '')
         if RFlag Then
            ReconnectTime = MakeTime()
            RFlag = 0
         endif
         Wait(20000) # WorldSave Protection
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.LDblClick(357,164)
         UO.LClick(616,459)
         Wait(3000)
      WEnd
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         UO.Exec('terminate Cartography')
         wait(1000)
         UO.Exec('exec Cartography')
         UO.TextOpen()
         UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         RFlag = 1
         ReconnectTime = '0'
      endif
   Until false
end sub

sub MakeTime()
   VAR D, T, Ret, i
   Ret = STR(UO.Time())
   T = ""
   For i = 0 To Len(Ret)
      T = Ret[Len(Ret)-i] + T
      If (I == 2) OR (I == 4) Then
         T = ":" + T
      EndIf
   Next
   Ret = STR(UO.Date())
   D = ""
   For i = 0 To Len(Ret)
      D = Ret[Len(Ret)-i] + D
      If (I == 2) OR (I == 4) Then
         D = "." + D
      EndIf
   Next
   Ret = T + " @ " + D
   RETURN Ret
end sub
sub cheklag()
   uo.deletejournal()
   uo.click('backpack')
   repeat
      wait(10)
   until uo.InJournal("backpack")
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:25:52, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:25:30 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Cooking
Code:
sub Cooking() 
   VAR Exit=0, LastTimer, TryToPoison
   uo.print('Выбери СУНДУК С Жратвой:')
   uo.exec('addobject Container')
   while uo.targeting()
      wait(100)
   wend
   uo.print('Выбери Жаровню:')
   uo.exec('addobject Forge')
   while uo.targeting()
      wait(100)
   wend     
   while Exit<>1
      UO.DeleteJournal()
      UO.FindType('0x097B','0x0000','backpack');
      If UO.GetQuantity('finditem')>200 Then
         UO.SetReceivingContainer('Container');
         wait(1000)
         UO.Grab('all','finditem')
         wait(1000)
         UO.UnSetReceivingContainer()
      Endif
      UO.FindType('0x097A',-1,'backpack') ;
      If UO.GetQuantity('finditem')<2 then
         UO.FindType('0x097A','0x0000','Container') ;
         wait(1000)
         UO.Grab('300','finditem')
         wait(1000)
      Endif
      LastTimer=UO.Timer()
      UO.DeleteJournal()
      UO.FindType('0x097A','0x0000','backpack')
      UO.WaitTargetObject('Forge')
      UO.UseObject('finditem')
      wait(4000)
      CheckLag()
      If UO.InJournal("You burn") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100
      Else
      EndIf
   wend   
end sub
sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:26:28, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:27:20 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Detect Hidden
Code:
sub DetectHidden() 
   Var i=0
   repeat
      i=i+1
      cheklag()
      uo.UseSkill('Detect Hidden')
      uo.deletejournal()
      repeat
         wait(10)
      until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
      if i==50 then
         i=0
         cheklag()
         uo.useskill("Spirit Speak")
         uo.deletejournal()
         repeat
            wait(10)
         until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
         uo.usetype('0x09BB')
         wait(1000)
      end if
   until uo.Dead()
end sub
sub cheklag()
   uo.deletejournal()
   uo.click('backpack')
   repeat
      wait(10)
   until uo.InJournal("backpack")
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:27:03, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:37:39 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Enticement
Code:
sub Enticement() 
   var count=0
   uo.print('Выбери Животное')
   uo.exec('addobject Jivka')
   while uo.targeting()
      wait(100)
   wend
   UO.DeleteJournal()
   repeat
      uo.waittargetobject('Jivka')
      UO.Useskill('Enticement')   
      wait(8000)
   until UO.Dead()
end sub


и

Code:
sub Enticement() 
   var Animal = '  ' # Id horse
   var i=0
   while uo.skillval('Enticement',1)<1000
      i=i+1
      if i==50 then
         uo.usetype('0x097B')
         wait(1000)
         i=0
      end if
      cheklag()
      uo.useskill('Enticement',Animal)
      wait(2500)
   wend
   uo.closeuo()
end sub
sub cheklag()
   uo.deletejournal()
   uo.click('backpack')
   repeat
      wait(10)
   until uo.InJournal("backpack")
end sub
sub Reconnector()
   var ReconnectTime, RFlag
   ReconnectTime = '0'
   RFlag = 1
   Repeat
      While (UO.ObjAtLayer('Bpack') == '')
         if RFlag Then
            ReconnectTime = MakeTime()
            RFlag = 0
         endif
         Wait(20000) # WorldSave Protection
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.LDblClick(357,164)
         UO.LClick(616,459)
         Wait(3000)
      WEnd
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         UO.TextOpen()
         UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         RFlag = 1
         ReconnectTime = '0'
      endif
   Until false
end sub
sub MakeTime()
   VAR D, T, Ret, i
   Ret = STR(UO.Time())
   T = ""
   For i = 0 To Len(Ret)
      T = Ret[Len(Ret)-i] + T
      If (I == 2) OR (I == 4) Then
         T = ":" + T
      EndIf
   Next
   Ret = STR(UO.Date())
   D = ""
   For i = 0 To Len(Ret)
      D = Ret[Len(Ret)-i] + D
      If (I == 2) OR (I == 4) Then
         D = "." + D
      EndIf
   Next
   Ret = T + " @ " + D
   RETURN Ret
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:27:35, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:52:39 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Evaluate Intelligence
Code:
sub Evaluate() 
   var count=0
   uo.print('totem')
   uo.exec('addobject Chel')
   while uo.targeting()
      wait(100)
   wend
   UO.DeleteJournal()
   repeat
      uo.waittargetobject('Chel','Chel')
      UO.Useskill('Evaluating')   
      while not UO.InJournal("unsure") and not UO.InJournal("looks") and not UO.InJournal("perform") and count<60
         wait(100)
         count=count+1
      wend
      wait(600)
      count=0
      UO.DeleteJournal()
   until UO.Dead()
end sub


И

Code:
var obj='0x00051172'
sub Evaluate()
   var count=0,i=0
   uo.useobject('backpack')
   UO.Exec('terminate Reconnector')
   wait(1000)
   UO.Exec('exec Reconnector')
   wait(1000)
   i=0
   repeat
      i=i+1
      cheklag()
      uo.print("Evaluating...")
      UO.Useskill('Evaluating',obj)
      wait(5500)
      if i==30 then
         uo.usetype('0x097B')
         wait(1000)
         i=0
         cheklag()
         uo.print("Spirit Speak...")
         uo.useskill ("Spirit Speak")
         uo.deletejournal()
         repeat
            wait(10)
         until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
      end if
   until UO.Dead()
end sub
sub cheklag()
   uo.deletejournal()
   uo.click('backpack')
   repeat
      wait(10)
   until uo.InJournal("backpack")
end sub
sub Reconnector()
   var ReconnectTime, RFlag
   ReconnectTime = '0'
   RFlag = 1
   Repeat
      While (UO.ObjAtLayer('Bpack') == '')
         if RFlag Then
            ReconnectTime = MakeTime()
            RFlag = 0
         endif
         Wait(20000) # WorldSave Protection
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.LDblClick(357,164)
         UO.LClick(616,459)
         Wait(3000)
      WEnd
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         UO.Exec('terminate Evaluate')
         wait(1000)
         UO.Exec('exec Evaluate')
         wait(1000)
         UO.TextOpen()
         UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         RFlag = 1
         ReconnectTime = '0'
      endif
   Until false
end sub
sub MakeTime()
   VAR D, T, Ret, i
   Ret = STR(UO.Time())
   T = ""
   For i = 0 To Len(Ret)
      T = Ret[Len(Ret)-i] + T
      If (I == 2) OR (I == 4) Then
         T = ":" + T
      EndIf
   Next
   Ret = STR(UO.Date())
   D = ""
   For i = 0 To Len(Ret)
      D = Ret[Len(Ret)-i] + D
      If (I == 2) OR (I == 4) Then
         D = "." + D
      EndIf
   Next
   Ret = T + " @ " + D
   RETURN Ret
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 15:28:15, edited 1 time in total.

Top
   
PostPosted: 2012-11-06 22:56:17 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Fishing
Code:
sub fishing() 
   var mx, my, mz, i, j
   uo.print('А где ведро?')
   uo.exec('addobject Bag')
   while uo.targeting()
      wait(100)
   wend
   mx = UO.GetX("self")
   my = UO.GetY("self")
   mz = UO.GetZ("self")
   UO.DeleteJournal()
   for i = mx-4 to mx+4
      for j = my -4 to my+4
         if UO.dead() then
            return
         endif
         while not UO.Hidden()
            UO.Warmode("0")
            uo.print("hiding...")
            UO.UseSkill("Hiding")
            wait(4000)
         wend
         UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
         while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
            UO.DeleteJournal()
            UO.Waittargettile("1341", str(i), str(j), str(mz))
            UO.Usetype("0x0DBF") ;FishingPole
            if UO.dead() then
               return
            endif
            if UO.Weight>660 then
               return
            endif
            while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
               wait (100)
               if UO.InJournal("You pull") then
                  UO.SetReceivingContainer('Bag')
                  UO.findtype('0x09CC','0x0000','ground') ;fish
                  UO.grab ('3','finditem')
                  wait (200)
                  UO.findtype('0x09CD','0x0000','ground') ;fish
                  UO.grab ('3','finditem')
                  wait (200)
                  UO.findtype('0x09CE','0x0000','ground') ;fish
                  UO.grab ('3','finditem')
                  wait (200)
                  UO.findtype('0x09CF','0x0000','ground') ;fish
                  UO.grab ('3','finditem')
                  wait (200)
                  UO.findtype('0x14EB','0x0000','ground') ;tattered map
                  UO.grab ('1','finditem')
                  wait (200)
                  UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
                  UO.grab ('1','finditem')
                  wait (200)
                  UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
                  UO.grab ('1','finditem')
                  wait (200)
                  UO.UnSetReceivingContainer()
               end if
            wend
         wend
         UO.DeleteJournal()
      next
   next
end sub


И

Code:
var Bag='0x40448CB8'
var Bag1='0x40103312'
var Bag2='0x40104999'
var Bag3='0x4010442A'
sub main()
   var x
   while 1
      submain()
      x=uo.getx()
      uo.msg('Forward')
      checklag()
      repeat
           wait(100)
      until uo.getx() > x+12
      uo.msg('Stop')
      submain()
      x=uo.getx()
      uo.msg('back')
      checklag()
      repeat
           wait(100)
      until uo.getx() < x-12
      uo.msg('Stop')
   wend
end sub

sub submain()
   var mx, my, mz, i, j
   mx = UO.GetX('self')
   my = UO.GetY('self')
   mz = UO.GetZ('self')
   for i = mx-6 to mx+6
       for j = my-6 to my+6
            Tohide()
            UO.Print('Ловим в координатах: '+str(mx-i)+' '+str(my-j))
            fishing(i,j,mz)
       next
   next
end sub

sub fishing(mx,my,mz)
   var n
   for n=0 to 10
       checklag()
       uo.waittargettile('1341',mx,my,mz)
       uo.usetype('0x0DBF')
       if waitforfish()==1 then
          return
       endif
   next
end sub

sub waitforfish()
   var n
   for n=0 to 100
       if uo.injournal('no fish here|fishing in water|You pull out') then
           if UO.InJournal("You pull") then
               UO.SetReceivingContainer('Bag')
               UO.findtype('0x09CC','0x0000','ground') ;fish
               UO.grab ('3','finditem')
               wait (500)
               UO.findtype('0x09CD','0x0000','ground') ;fish
               UO.grab ('3','finditem')
               wait (500)
               UO.findtype('0x09CE','0x0000','ground') ;fish
               UO.grab ('3','finditem')
               wait (500)
               UO.findtype('0x09CF','0x0000','ground') ;fish
               UO.grab ('3','finditem')
               wait (500)
               UO.UnSetReceivingContainer()
               UO.SetReceivingContainer('Bag1')
               UO.findtype('0x14EB','0x0000','ground') ;tattered map
               UO.grab ('1','finditem')
               wait (500)
               UO.UnSetReceivingContainer()
               UO.SetReceivingContainer('Bag3')
               UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
               UO.grab ('1','finditem')
               wait (500)
               UO.UnSetReceivingContainer()
               UO.SetReceivingContainer('Bag2')
               UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
               UO.grab ('1','finditem')
               wait (500)
               UO.UnSetReceivingContainer()
           end if
           return 1
       endif
           if uo.injournal('but fail') then
               return
            endif
       wait(1000)
   next      
end sub

sub Tohide()
   while uo.Hidden()
       uo.warmode(0)
       uo.Print('Пытаемся уйти в хайд...')
       uo.Say('Hiding')
       wait(4000)
   wend
end sub

sub CheckLag()
   repeat
        UO.DeleteJournal()
        UO.Click('backpack')
   until backpack()==1
end sub

sub backpack()
   var n
   for n=0 to 200
       if uo.injournal('a backpack') then
           return 1
       endif
       wait(200)
   next
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2017-03-23 19:18:30, edited 2 times in total.

Top
   
PostPosted: 2012-11-06 23:00:30 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Forensic Evaluation
Code:
sub main()
   while 1
      uo.warmode(0)
      checklag()
      uo.waittargetground('0x2006')
      uo.useskill('Forensic')
      wait(3100)
   wend
endsub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub


И Убиваем чара и качаем

Code:
sub main()
   var pk='0x00361F2F'
   while 1
      if uo.countground('0x2006')<1 then
         repeat
            uo.cast('Resurrection',pk)
            checklag()
            waitformana()
         until not uo.injournal('spell fizzles')
         uo.attack(pk)
         repeat
            wait(1000)
         until uo.countground('0x2006')
         uo.warmode(0)
      endif
      uo.waittargetground('0x2006')
      uo.useskill('Forensic')
      checklag()
      wait(2500)
   wend
endsub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub
sub WaitForMana()
   VAR w,m=uo.mana
   for w=0 to 150
      if uo.mana<m then
         wait(500)
         return
      endif
      wait(500)
   next
endsub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2012-11-06 23:03:23 
Offline
User avatar

Joined: 2012-03-20 00:32:06
Posts: 241
Location: РФ, г. Москва
Healing
Code:
sub Healing() 
var i,j,tekstr
uo.undress()
wait(100)
repeat
   UO.FindType(0x0E21,"-1","my")
   if UO.FindCount() then
      tekstr=uo.str
      wait(100)
      cheklag()
      uo.usetype(0x1F00); Cursed Hat
      uo.useskill ("Spirit Speak")
      wait(2000)
      j=0
      repeat
      wait(10)
      j=j+1
      until (uo.life <= tekstr-1) or (j>1000)
      cheklag()
      uo.undress()
      wait(100)
      cheklag()
      uo.exec('bandageself')
      Wait(2000)
   else
      UO.FindType(0x0E20,"-1","my")
      if UO.FindCount() then
         cheklag()
         uo.waittargettype(0x1008)   # wash basin
         uo.UseType(0x0E20)   #bloody bandages
      else
         cheklag()
         uo.print("You haven't bandages")
         uo.exec("terminate Train_Healing")
         Play_Sound(1)
      endif
   endif
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
  Repeat
    wait(100)
  Until UO.InJournal()
end sub

_________________
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Last edited by tylllkah on 2013-02-26 20:39:53, edited 2 times in total.

Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 83 posts ]  Go to page 1 2 3 4 5 Next

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited