Code: Select all
###########################################################################################################
#
# Main Idea by Trolly(written by EX-Brodyaga aka Ayvaz)
#
# Ver. 2.1
#
###########################################################################################################
sub Torch()
var TLog='0x1BDD'
var IDiz='0x402684EC'
var dagger='0x0F51'
var torch='0x0F64'
VAR Exit=0, LastTimer, TryToPoison
while not UO.Dead()
ToHide()
UO.DeleteJournal()
UO.FindType(TLog,-1,'backpack')
If UO.GetQuantity('finditem')<1 then
UO.FindType(TLog,-1,IDiz) ; sunduk s logami
if Uo.GetQuantity('finditem')==0 then
UO.Exec("terminate Torch")
endif
UO.Unsetreceivingcontainer()
wait(1000)
UO.Grab('50','finditem')
wait(1000)
Endif
UO.findtype(TLog,-1,IDiz)
UO.Print("Îñòàëîñü = "+STR(UO.Getquantity('finditem')))
UO.WaitTargetType(TLog)
CheckLag()
UO.usetype(dagger)
UO.WaitMenu('What do','Items','Items','torch')
UO.DeleteJournal()
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting")
wait(1000)
wend
If UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") then
UO.WaitTargetType(TLog)
UO.usetype(dagger)
UO.WaitMenu('What do','Items','Items','torch')
UO.DeleteJournal()
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting")
wait(1000)
wend
EndIf
If Uo.Count(torch)>50 then
Drag(IDiz,torch)
Endif
wend
end sub
sub tohide()
while not UO.Hidden()
UO.Print("Ïðÿ÷åìñÿ...")
UO.Useskill('Hiding')
wait(4000)
wend
end sub
sub Drag(IDiz,torch)
CheckLag()
while uo.Count(torch)>0
CheckLag()
UO.FindType(torch,-1,'backpack')
wait(200)
UO.MoveItem('finditem','400',IDiz)
wait(500)
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(200) # o auaaeaiueeia iiia inoaaeou 200, eoi ia iiiaaa, noaauoa 500-800
until UO.InJournal('backpack')
end sub