Yoko

Code: Select all

VAR Sunduk='0x400E90E6' ## Сундук, откуда берут айрон и кладут обратно бутылки
VAR ResCount=500 ## Количество забираемого айрона, зависит от силы игрока

sub Tinkering()
VAR LastTimer,p

uo.Exec("filterspeech clear")
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'You make the item'")
uo.Exec("filterspeech add 'The item is of'")
uo.Exec("filterspeech add 'Due to your exceptional skill, the item is of superior quality'")
uo.Exec('terminate Reconnector')
wait(1000)
uo.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','empty bottle (3 iron ingot)')
uo.useobject(Sunduk)
wait(1000)
LastTimer=uo.Timer()
while not uo.dead()
   ToHide()
   if uo.Timer()>(LastTimer+3000) then
      if uo.skillval("Spirit Speak",1)<1000 then
         uo.print("Spirit Speak...")
         p=0
         repeat
            p=p+1
            uo.useskill("Spirit Speak")
            uo.deletejournal()
            repeat 
               wait(10)
            until uo.InJournal("netherworld") or uo.InJournal("You must wait to perform another action") or uo.dead()
         until (uo.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
      end if
      Eda()
      LastTimer=uo.Timer()
   end if
   
   if uo.count('0x1BEF','0x0000')<30 then
      uo.FindType('0x0F0E','0x0000','backpack')
      cheklag()
      uo.moveitem('finditem','-1',Sunduk)
      wait(1000)
      uo.FindType('0x1BEF','0x0000',Sunduk)
      cheklag()
      uo.moveitem('finditem',STR(ResCount),'backpack')
      wait(1000)
      cheklag()
   end if
   
   if uo.count('0x1BEF','0x0000')<3 then
      uo.closeuo()
   end if
   
   uo.deletejournal()
   uo.usetype('0x1EBC','0x0000')
   repeat
      Wait(10)
   until uo.InJournal("You put the") OR uo.InJournal("Tinkering failed") 
wend
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 Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
   While (uo.ObjAtLayer('Bpack') == '') 
      if RFlag Then 
         ReconnectTime = MakeTime() 
         RFlag = 0 
      endif 
      Wait(70000) # 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.TextOpen() 
      uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
      uo.RClick(196,193)
      wait(2000) 
      uo.RClick(196,193)
      wait(2000)
      uo.useobject('self')
      wait(2000)
      uo.useobject('backpack')
      wait(2000)
      uo.Exec('terminate Tinkering')
      wait(5000)
      uo.Exec('exec Tinkering')
      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 

Sub ToHide()
while not uo.hidden()
   uo.exec("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.")
   if uo.InJournal("You are preoccupied with thoughts of battle.") then
      uo.exec("warmode 0")
   end if
wend
end sub