Code: Select all
sub max()
VAR VesPrirost=120
VAR RespDelay=1120000 ;19 min resp 20
UO.Set('buydelay','3500') ; zaderjka na pokupku
UO.Set('injectecho','1')
While 1==1
UO.DeleteJournal()
UO.Buy('TKAHb') ; buylist s tkaniyu
Repeat
UO.Exec('warmode 0')
UO.Exec('warmode 0')
UO.UseSkill('Hiding')
wait(4000)
Until UO.Hidden()
IF UO.InJournal("No item") Then
UO.Print("OOpS!")
wait(20000) ; 20 sec
Else
wait(RespDelay)
EndIf
Wend
end sub