рес со столба

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
VaCKa
Posts: 9
Joined: 2005-07-12 17:08:00
Location: DRW
Contact:

рес со столба

Post by VaCKa »

искал поиском, искал руками, но давно видел, что было такое.
Мне нужен скрипт, что бы чар летел в минок(или ещё куда нибудь) через Help, I`m stuck. В городе ресался и летел обратно))
Помогите пожалустта, а то в шахте убивают, ресался бы, было бы круто.
Под шард ДРВ) :roll:
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

клик
клик
клик
и ты у креста
клик
ты жывой
дабл клик
ты в шахте
мининг
Fenixsis
Posts: 49
Joined: 2004-08-25 01:28:18

Re: рес со столба

Post by Fenixsis »

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

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
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

1. Скрипты выкладывай в коде
2. Зачем ему с ходилкой, если попросили через хелп-стак?
Post Reply