Yoko

подскажите плиз скрипт для прокачки стелса для пилота или инжи плиз срочно нада

Во скрипт на стелс с ходилкой

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 

_________________
=== ? Como es tas ? ===

спс но у меня стелс качаетсо но не ходит чето подскажите плиз с ходилкой

А все спс не нада уже работает тот скрипт биг сенк

Сори что неотвечал долго, ну молодец что нашел в чем причина, рад что смог помоч скриптом

_________________
=== ? Como es tas ? ===