VAR Sunduk='0x4003F452' ; ИД сундука где все логи VAR TDagger='0x0F51' ; Тип даггера 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
