Проблемка... думаю решаемая....

Ask for help

Moderators: Murderator+, Murderator

comatoza
Posts: 76
Joined: 2006-09-10 01:09:20
Location: Russia>>SPb>>Kolpino
Contact:

Post by comatoza »

DerMeister =) wrote:А чё, самому слабо процедуру написать?

Code: Select all

sub abs(x)
    if (x < 0) then
        x = -x
    end if
    return x
end sub

мда.... Ыпанутым счастья нет :)
это про меня.... я о таком даже не подумал :)))
Твоими пастырями будем мы. Во имя Твоё Господи. Сила снизошла из Твоих рук, наши ноги быстро Твоё слово несут. И прямо к Тебе пусть потёчёт река, наполним душами её. Да будет так!
(с) "Святые из трущоб" перевод камрада Гоблина
comatoza
Posts: 76
Joined: 2006-09-10 01:09:20
Location: Russia>>SPb>>Kolpino
Contact:

Post by comatoza »

Code: Select all

sub autostab()
 var i, X, Y, dir
 uo.deletejournal()
 while not uo.injournal('initial base')
  x=abs(uo.getx()-uo.getx('zertva'))
  y=abs(uo.gety()-uo.gety('zertva'))
  dir=(uo.getdir()-uo.getdir('zertva'))
  if (((x==1 AND y==1) OR (x==0 AND y==1) OR (x==1 AND y==0)) AND dir==0) then
   uo.waittargetobject('zertva')
   uo.msg('.ab 1')   
  endif
 wend
end sub


вот такая петрушка... но! срабатывает при любом раскладе когда сам подходишь к противнику и при этом не срабатывает когда он пробегает сквозь тебя...
Твоими пастырями будем мы. Во имя Твоё Господи. Сила снизошла из Твоих рук, наши ноги быстро Твоё слово несут. И прямо к Тебе пусть потёчёт река, наполним душами её. Да будет так!
(с) "Святые из трущоб" перевод камрада Гоблина
Post Reply