Yoko

Code: Select all

VAR Sunduk='0x400F2BC7' ; ИД сундука где все логи 
VAR TDagger='0x0F52' ; Тип даггера 
VAR TLogs='0x1BDD' ; Тип логов 
VAR TTorch='0x0F64' ; Тип торчей 
VAR TShaft='0x1BD4' ; Тип шафтов 

; В руке или паке даггер, в сундуке логи и запускаем !!! 

sub BowCraft_shaft() 
uo.useobject(Sunduk) 
wait(200) 
while 1==1 
UO.FindType(TLogs,'0x0000','backpack') 
While UO.GetQuantity('finditem')==0 
UO.FindType(TLogs,'0x0000',Sunduk) 
wait(200) 
UO.Grab('1','finditem') 
Wend 
wait(200) 
cheklag() 

uo.WaittargetType(TLogs) 
uo.Usetype(TDagger) 
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)') 
wait (1000) 
uo.DeleteJournal() 
while not (uo.InJournal("You put") or uo.InJournal("You fail")) 
wait(10) 
wend 

if uo.weight > 200 then 
UO.SetReceivingContainer(Sunduk) 
wait(200) 
UO.FindType(TShaft) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200) 
end if 
UO.UnSetReceivingContainer() 
end if 
wend 
end sub 

sub BowCraft_torch() 
var teklog=1 
dim ColLog[20] 
ColLog[1]='0x047C' ; Oak Logs 
ColLog[2]='0x0279' ; Red Tree Logs 
ColLog[3]='0x096B' ; Dark Tree Logs 
ColLog[4]='0x0237' ; Swamp Logs 
ColLog[5]='0x0482' ; Silver Leaf Logs 
ColLog[6]='0x010F' ; Keranit Logs 
ColLog[7]='0x0014' ; Perit Logs 
ColLog[8]='0x03C1' ; Petrified Logs 
ColLog[9]='0x0085' ; Dragon Tree Logs 
ColLog[10]='0x04C2' ; Vampire Tree Logs 
ColLog[11]='0x0033' ; Eridan Logs 
ColLog[12]='0x002B' ; Hellios Logs 
ColLog[13]='0x0071' ; Illusions Tree Logs 
ColLog[14]='0x09A4' ; Crystal Logs 
ColLog[15]='0x0B82' ; Dead Tree Logs 
ColLog[16]='0x00BE' ; Paradise Logs 
ColLog[17]='0x0035' ; Titan Tree Logs 
ColLog[18]='0x0BB6' ; Avalon Logs 
ColLog[19]='0x0487' ; Elven Logs 
ColLog[20]='0x0498' ; Asterxylon Logs 
UO.Exec('terminate Reconnector') 
wait(100) 
UO.Exec('exec Reconnector') 
uo.useobject(Sunduk) 
wait(200) 
while 1==1 
UO.FindType(TLogs,ColLog[teklog],'backpack') 
While UO.GetQuantity('finditem')==0 
ff: 
UO.FindType(TLogs,ColLog[teklog],Sunduk) 
wait(50) 
if uo.FindCount()==0 then 

UO.SetReceivingContainer(Sunduk) 
wait(100) 
UO.FindType(TTorch) 
wait(50) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200) 
end if 
UO.UnSetReceivingContainer() 

teklog=teklog+1 
if teklog>20 then 
return 
endif 
goto ff 
end if 
wait(100) 
UO.Grab('1','finditem') 
Wend 
wait(200) 
cheklag() 

uo.WaittargetType(TLogs) 
uo.Usetype(TDagger) 
uo.WaitMenu('What do you want to carve the wood into?','Items','Items','torch') 
wait (200) 
uo.DeleteJournal() 
while not (uo.InJournal("You put") or uo.InJournal("You fail")) 
wait(10) 
wend 

if uo.weight > 100 then 
UO.SetReceivingContainer(Sunduk) 
wait(100) 
UO.FindType(TTorch) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200) 
end if 
UO.UnSetReceivingContainer() 
end if 
wend 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
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(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate BowCraft_torch') 
wait(1000) 
UO.Exec('exec BowCraft_torch') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
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