Мне нужен скрипт, что бы чар летел в минок(или ещё куда нибудь) через Help, I`m stuck. В городе ресался и летел обратно))
Помогите пожалустта, а то в шахте убивают, ресался бы, было бы круто.
Под шард ДРВ)

Moderators: Murderator+, Murderator
VaCKa wrote:искал поиском, искал руками, но давно видел, что было такое.
Мне нужен скрипт, что бы чар летел в минок(или ещё куда нибудь) через Help, I`m stuck. В городе ресался и летел обратно))
Помогите пожалустта, а то в шахте убивают, ресался бы, было бы круто.
Под шард ДРВ)
Code: Select all
sub IamDead()
var lol=0
UO.Exec("terminate Reconnector")
UO.Exec("terminate Fishihgs")
UO.Exec("terminate Start")
UO.Exec("warmode 1")
while NOT UO.Life>0
UO.DeleteJournal()
if lol==5 then
uo.sayu("home home home")
wait(5000)
gotoXY(2477,417)
gotoXY(2491,417)
gotoXY(2491,442)
gotoXY(2498,442)
gotoXY(2498,482)
gotoXY(2475,482)
gotoXY(2475,531)
gotoXY(2468,531)
wait(5000)
uo.useobject('0x4001d120')
wait(10000)
else
wait(10000)
lol=lol+1
endif
wend
recall("1")
wait(200000)
wait(100)
UO.Exec("terminate Reconnector")
wait(100)
UO.Exec('exec Reconnector')
wait(1000)
UO.Exec("warmode 0")
UO.Exec("exec Start")
wait(1000)
end sub
sub gotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60
MyX=uo.getX();
MyY=uo.getY();
if LastX==MyX AND LastY==MyY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.press(39)
next
end if
halt=15
end if
if abs(x-myX)<=1 AND abs(y-myY)<=2 then
return 1
end if
if x<=MyX then
if y<=MyY then
for z=0 to 3
uo.press(38)
next
else
for z=0 to 3
uo.press(37)
next
end if
else
if y<=MyY then
for z=0 to 3
uo.press(39)
next
else
for z=0 to 3
uo.press(40)
next
end if
end if
lastX=myX
lastY=myY
wait(200)
next
return 0
end sub