Var Sunduk='0x40366487' # Сундук ИД Var TSKit='0x0F9D' # Тип набора кройки и шитья Var TCloth='0x175D' # Тип ткани Var TItem='0x1FFD' # Тип шмотки которую крафтаем, роба в данном случае Var Scissors='0x40261C4D' # Ножницы чтоб резать то что накроили из ткани
sub Tailoring() var i=0 uo.cancelmenu() uo.automenu('Cloth','Shirts') uo.automenu('Shirts','surcoat (14 folded cloth)') uo.useobject(Sunduk)
while (uo.skillval('Tailoring',1)<1000) i=i+1 if i==50 then i=0 uo.usetype('0x097B') wait(1000) end if
UO.FindType(TCloth,-1,'backpack') wait(200) If UO.GetQuantity('finditem')<14 Then If UO.GetQuantity('finditem')>0 Then UO.SetReceivingContainer(Sunduk) cheklag() UO.Grab('0','finditem') wait(1000) UO.UnSetReceivingContainer() end if UO.FindType(TCloth,-1,Sunduk) wait(200) If UO.GetQuantity('finditem')>=14 Then cheklag() UO.Grab('300','finditem') Wait(1000) else uo.closeuo() end if end if
cheklag() uo.waittargettype(TCloth) wait(50) uo.usetype(TSKit) uo.deletejournal() repeat wait(10) until uo.InJournal('You put the') or uo.InJournal('Tailoring failed.')
UO.FindType(TItem,-1,'backpack') if UO.GetQuantity('finditem')>0 then uo.waittargetobject('finditem') uo.deletejournal() uo.useobject(Scissors) repeat wait(10) until uo.InJournal('You put the') end if
if uo.weight > 400 then UO.SetReceivingContainer(Sunduk) wait(200) UO.FindType('0x0E21') if UO.GetQuantity('finditem')>0 then UO.Grab('0','finditem') wait(200) end if UO.UnSetReceivingContainer() end if
wend uo.closeuo() end sub
sub cheklag() uo.deletejournal() uo.click('backpack') repeat wait(10) 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 Tailoring') wait(1000) UO.Exec('exec Tailoring') 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
