Yoko
http://forum.yoko.com.ua/

Народ будте добры дайте скриты на боукрафт>торчи из оака
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1510		 Page 1 of 1
Author:  killmon [ 2004-10-01 22:33:04 ]
Post subject:  Народ будте добры дайте скриты на боукрафт>торчи из оака
дайти плс...на дрв...очень прошу вас...
Author:  Ex-Brodyaga [ 2004-10-01 23:02:30 ]
Post subject: 
###########################################################################################################
# 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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/