Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Догонялка
DontStop
сообщение 13.2.2010, 19:06
Сообщение #1


****

Группа: Пользователи
Наличность: 0
Пользователь №: 11.287
Возраст: 22



Есть у кого нибудь догонялка на изи работающая через EVENT MACRO 5 х ?
Или есть шарящие люди, которые смогут сделать такой скрипт по аналогии инжектовского?



Код

sub Stela()                                                
var dx, dy, dist, k
k=0
UO.DeleteJournal()                                            
while NOT UO.Dead('lastattack') and NOT UO.Dead('self')        
     dx=UO.GetX('lastattack')-UO.GetX()                            
     dy=UO.GetY('lastattack')-UO.GetY()
     dist=uo.getdistance('lastattack')
if dist>k then
          if dx==0 then                                          
               if dy>0 then                                                  
                    UO.Press(35)                                                  
               else                                                          
                    if dy<0 then                                                  
                      UO.Press(33)                                                  
                   end if
                                                
               end if                                                        
          end if                                                        
if dx>0 then                                                  
  if dy>0 then                                                  
     UO.Press(40)                                                  
  else  
    if dy<0 then              
                              
     UO.Press(39)                                                  
      else                                                          
     UO.Press(34)                                                  
    end if                                                        
  end if                                                        
end if                                                        
if dx<0 then                                                  
  if dy>0 then                                                  
   UO.Press(37)                                                  
  else                                                          
    if dy<0 then                                                  
     UO.Press(38)                                                  
    else                                        
          
     UO.Press(36)                                                  
    end if                                                        
  end if                                                        
end if  
end if
end if
wait(1)
wend      
end sub
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
3AKOHbI4
сообщение 25.9.2011, 9:00
Сообщение #2


***

Novice
Сообщений: 59
Регистрация: 25.8.2011
Группа: Пользователи
Наличность: 0
Пользователь №: 13.925



К чему сложности? Поиск и подбегалка к корове

Код

        set %cowtype _ng_ig_
        set %searchrange 7
      finditem %cowtype G_ , %searchrange
      set %cowid #findid
        movetocow:
        finditem %cowid
      if #finddist > 2
      {
             move #findx #findy 1 1s
          goto movetocow
      }
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
n00bie
сообщение 15.9.2012, 19:02
Сообщение #3


*

Группа: Пользователи
Наличность: 0
Пользователь №: 15.288
Возраст: 24



А как насчёт препятствий?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Warstone
сообщение 15.9.2012, 23:19
Сообщение #4


*********

Группа: Модераторы
Наличность: 0
Пользователь №: 10.905
Возраст: 25



Цитата(n00bie @ 15.9.2012, 20:02) *

А как насчёт препятствий?
Event pathfind пользуй на 8-16 тайлов... Нормально работает


--------------------
Do. Or do not. There is no Try!
© Master Joda, Dagobah, Star Wars: Episode V.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 28.3.2024, 15:12
Designed by Nickostyle