Var BackEny='0x404299E0' ; ИД бакпака левочара Var Enymi='0x002C77B3' ; ИД левочара Var Sunduk='0x4001B7EA' ; ИД сундука где лежат монетки, которые и будем тырить.
sub Popolnit() var i=0 uo.useobject(Sunduk) while 1==1 UO.FindType('0x0EED',-1,'backpack') if UO.GetQuantity('finditem')==0 then UO.FindType('0x0EED',-1,Sunduk) wait(200) UO.Grab('1','finditem') i=i+1 if i==50 then uo.usetype('0x0EED') wait(1000) i=0 end if end if wait(200) wend end sub
sub Snooping() var i=0 while (uo.skillval('Snooping',1)<1000)
i=i+1 if i==50 then uo.usetype('0x0EED') wait(1000) i=0 end if
if uo.skillval('Snooping',1)<1000 Then cheklag() uo.print("Snooping...") uo.useobject(BackEny) wait(2500) end if
UO.FindType('0x0EED',-1,'backpack') if UO.GetQuantity('finditem')>100 then UO.MoveItem('finditem','100',Sunduk) endif
wend Stealing() end sub
sub Stealing() var i=0 while (uo.skillval('Stealing',1)<1000)
i=i+1 if i==50 then uo.usetype('0x0EED') wait(1000) i=0 end if
UO.FindType('0x0EED',-1,'backpack') if UO.GetQuantity('finditem')>100 then UO.MoveItem('finditem','100',Sunduk) endif
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 Snooping') wait(1000) UO.Exec('exec Snooping') 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
