Yoko

Code: Select all

sub Stealth() 
var i=1 
repeat 
for i=1 to 8 
uo.press(35) 
wait(200) 
if not uo.hidden() then 
UO.UseSkill("Hiding") 
UO.DeleteJournal() 
Repeat 
Wait(10) 
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") 
end if 
next 
for i=1 to 8 
uo.press(33) 
wait(200) 
if not uo.hidden() then 
UO.UseSkill("Hiding") 
UO.DeleteJournal() 
Repeat 
Wait(10) 
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") 
end if 
next 
Wait(100) 
until UO.Dead() 
end sub 
sub Reconnect() 
var reconnectTime, rFlag 
reconnectTime = '0' 
rFlag = 1 
repeat 
while (uo.ObjAtLayer('Bpack') == '') 
if rFlag then 
reconnectTime = MakeTime() 
rFlag = 0 
endif 
wait(20000) ## - WorldSave. 
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.TextOpen() 
uo.TextPrint('Disconnected & Reconnected @ '+reconnectTime) 
rFlag = 1 
reconnectTime = '0' 
end if 
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 
end if 
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 
end if 
next 
ret = t + " @ " + d 
return ret 
end sub