рес со столба

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