Народ будте добры дайте скриты на боукрафт>торчи из оака

[killmon]

дайти плс...на дрв...очень прошу вас...

[Ex-Brodyaga]

###########################################################################################################
# Main Idea by Trolly(fixed by EX-Brodyaga aka Ayvaz)
# Ver. 2.1
###########################################################################################################
sub Torch()
var TLog='0x1BDD'
var SUNDUK='0x4005A3A6'
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,SUNDUK) ; 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,SUNDUK)
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.Useskill('Hiding')
wait(4000)
wend
end sub

sub Drag(SUNDUK,torch)
CheckLag()
while uo.Count(torch)>0
CheckLag()
UO.FindType(torch,-1,'backpack')
wait(200)
UO.MoveItem('finditem','400',SUNDUK)
wait(500)
wend
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(200)
until UO.InJournal('backpack')
end sub