ходилка на грим рипера drw

[Aprelj]

sub att()
#***********
VAR monst= 0x03CA

UO.Set('finddistance','7')
while UO.GetHP('self') < 500
UO.FindType(monst, '-1', 'ground')
if UO.FindCount() > 0 then
UO.DeleteJournal()
UO.Attack('finditem')
var x,y,cx,cy,tmp,i=0, temp
x = 5308 ;//?????????? x-??????????.
y = 1288 ;//?????????? y-??????????.
x = -(uo.getx() - x)
y = -(uo.gety() - y)
cx = x
cy = y
if cx <= 0 then
cx = -cx
endif
if cy <= 0 then
cy = -cy
endif
tmp = str(cx+cy)
if val(tmp) then
DIM step[val(tmp)]
repeat
i=i+1
if x>0 && y>0 && x==y then
x=x-1
y=y-1
cx=x
cy=y
step[i]=2
endif
if x>0 && cx>cy then
x=x-1
cx=x
step[i]=3
endif
if x>0 && y<0 && cx==cy then
x=x-1
y=y+1
cx=x
cy=-y
step[i]=6
endif
if y<0 && cy>cx then
y=y+1
cy=-y
step[i]=9
endif
if x<0 && y<0 && x==y then
x=x+1
y=y+1
cx=-x
cy=-y
step[i]=8
endif
if x<0 && cx>cy then
x=x+1
cx=-x
step[i]=7
endif
if x<0 && y>0 && cx==cy then
x=x+1
y=y-1
cx=-x
cy=y
step[i]=4
endif
if y>0 && cy>cx then
y=y-1
cy=y
step[i]=1
endif
if x==-0 then
x=0
endif
if y==-0 then
y=0
endif
until cx==0 && cy==0
temp=i
tmp=''
for i=1 to temp
tmp=tmp+str(step[i])
next
uo.addstep(tmp)
uo.resend()
repeat
wait(500)
until UO.InJournal('Body of')
else
wait(400)
endif
wend
end sub

[Aprelj]

помогите доделать этот скрипт. координаты у рипера с каждым респом разные) кто поможет, чтобы перс подходил к нему при респе и убивал, а лучше потом его и лутал ) за ранее спасибо.

[Mirage]

Всего 3 сообщения и ни одного правильного.
1) в данной теме рабочие скрипты не выкладываются
2) скрипты надо выкладывать в тегах

Code: Select all

[code][/code]

3) апать темы с интервалом в пару минут не обязательно - тем кто заходит на форум новые сообщения подсвечиваются. Я например только что заметил твое сообщение.
4) заголовок темы не совсем соответствует запросу скрипта в нем. Ходилок тут море. Тебе надо именно бота охотника сделать. А это немного разные вещи .

из всего этого следует:
переезжаем
читаем правила форума
юзаем поиск со словами охота и скининг там есть пара рабочих примера "нашел - подошел - убил - полутал"

PS
у меня поиск и убийство выглядит примерно вот так

Code: Select all

sub KillIt()
   VAR MaxVes = 600
   var animal=0x000D #тип животного
   uo.ignorereset()
   Repeat
      uo.Set('finddistance', 12)
      uo.FindType(animal, -1, 'ground')
      if uo.FindCount() then
         uo.resend()
         uo.attack('finditem')
         repeat
            if uo.GetDistance('finditem') > 2 then
               walker(uo.GetX('finditem'),uo.GetY('finditem'),2)
            else 
               wait(100)
            end if
         until uo.dead() or uo.GetX('finditem')==0
         wait(100)
         Loot()
      end if
      Loot()
   Until uo.Dead() || UO.Weight > MaxVes
   hanthome()
end sub

Ходилка стандартная