Yoko

Code: Select all

Var BackEny='0x4021CE5D' ; ИД бакпака левочара 
Var Enymi='0x0010413D' ; ИД левочара 
Var Sunduk='0x402F71C8' ; ИД сундука где лежат жаренные котлетки, которые и будем тырить. 

sub Popolnit() 
var i=0 
uo.useobject(Sunduk) 
while 1==1 
UO.FindType('0x097B',-1,'backpack') 
if UO.GetQuantity('finditem')==0 then 
UO.FindType('0x097B',-1,Sunduk) 
wait(400) 
UO.Grab('1','finditem') 
i=i+1 
if i==50 then 
uo.usetype('0x097B') 
wait(1500) 
i=0 
end if 
end if 
wait(400) 
wend 
end sub 

sub Snooping() 
var i=0 
while (uo.skillval('Snooping',1)<1000) 

i=i+1 
if i==50 then 
uo.usetype('0x097B') 
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('0x097B',-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('0x097B') 
wait(1000) 
i=0 
end if 

cheklag() 
uo.print("Stealing...") 
uo.useskill('Stealing',Enymi) 

##uo.useobject(BackEny) 
##wait(1000) 
##UO.FindType('0x097B','0x0000',BackEny) 
##wait(200) 
##UO.Grab('1','finditem') 

wait(3500) 

UO.FindType('0x097B',-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