Yoko

All sides of Injection
It is currently 2024-03-28 14:28:54

All times are UTC+02:00




Post new topic  Reply to topic  [ 23 posts ]  Go to page 1 2 Next
Author Message
PostPosted: 2005-04-18 13:43:28 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Меня постоянно спрашивают как сделать автопоиск деревьев и вообще написать ламбер, используя АСМ от АГРСа. Объясняю один раз.

1. Создаем в папке инжекта файл Resource_Static.dat, в него помещаем типы деревьев, с указанием логического типа 'tree'. Такой файл обычно создается простеньким скриптом с командой asmGetStaticTiles(), но в последних версиях эта команда не работает. Поэтому типы можно либо выдрать из вердаты, либо считать командой ,infotlie - не забудьте только преобразовать в шестнадцатиричные. Я привожу вам содержание этого файла (выше), но у вас на шарде могут быть и другие типы деревьев (маловероятно):

Code:
0x0c95=tree
0x0c96=tree
0x0cca=tree
0x0ccb=tree
0x0ccc=tree
0x0ccd=tree
0x0cd0=tree
0x0cd3=tree
0x0cd6=tree
0x0cd8=tree
0x0cd9=tree
0x0cda=tree
0x0cdb=tree
0x0cdc=tree
0x0cdd=tree
0x0cde=tree
0x0cdf=tree
0x0ce0=tree
0x0ce3=tree
0x0ce6=tree
0x0cf8=tree
0x0cfb=tree
0x0cfe=tree
0x0d01=tree
0x0d41=tree
0x0d42=tree
0x0d43=tree
0x0d44=tree
0x0d57=tree
0x0d58=tree
0x0d59=tree
0x0d5a=tree
0x0d5b=tree
0x0d6e=tree
0x0d6f=tree
0x0d70=tree
0x0d71=tree
0x0d72=tree
0x0d84=tree
0x0d85=tree
0x0d86=tree


2. Теперь берем следующий скрипт, отходим в лес в любое место и запускаем.

Code:
#####################################################################
; LumberAround. v.3.25b (c) Edred
;
; Рубим вокруг чара. Используется ASM-модуль для инжекта для поиска деревьев.
;
sub LamberAround()
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY
   VAR MaxTime = 600                        ; измеряется в 1/10 сек.
   VAR ms1 = "There are no logs here to chop"      ; нет логов
   VAR ms2 = "You can't use"                  ; не можем
   VAR ms3 = "in your pack."                  ; вырубили логи
   VAR ms4 = "You fail to produce"               ; физл
   VAR ms5 = "You are too far away"            ; стоим далеко
   VAR ms6 = "It appears immune to your blow"      ; не проходит удар
   VAR ms7 = "You can't see that"               ; не можем увидеть
   VAR ms8 = "is destroyed*"                  ; топор развалился
   VAR ms9 = "Try to kill my spirit at first!"      ; вырубили духа дерева
   UO.asmTLStaticOpen('Resource_Static.dat')   ; Загрузим таблицу типов статики
   VAR i, strpoint
   VAR MaxVes = 580
   cx = UO.GetX()
   cy = UO.GetY()
   for tmpx = -3 to 3
      for tmpy = -3 to 3
         k = 0
         pointX = cx + tmpx
         pointY = cy + tmpy
         strpoint = str(pointX) + ' ' + str(pointY)
         repeat
            UO.DeleteJournal()
            t = UO.Timer() + MaxTime
            k = k + 1
            wait(300)
            CanMine = UO.asmWaitTargetStaticTile( 'tree', PointX, PointY, 0 )
            If CanMine Then
               UO.UseObject(UO.ObjAtLayer('Lhand'))
               repeat
                  wait(100)
               until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms8) OR UO.InJournal(ms9) OR (t < UO.Timer())
            Endif
            If UO.Weight > MaxVes Then
               ; Вес превышен!
               return
            Endif
            If UO.InJournal( ms8 ) Then
               ; топор накрылся!
               return
            Endif
            If UO.InJournal( ms9 ) Then
               ; дух дерева!
               return
            Endif
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
         Endif
      next
   next
endsub


3. Копаетесь в коде скрипта, пока не сделаете то, что вам нужно 8)


Top
   
 Post subject:
PostPosted: 2005-04-23 19:05:11 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Ну тута ничего для меня нового (честное слово), думал что ща запущу - исзбавлюся он надобности писать скрипт, ан нет - пишет 4раза что я не дотягиваюсь, и все - висит в цикле.


Top
   
 Post subject:
PostPosted: 2005-04-26 13:18:41 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
У тебя на шарде меньше расстояние, на котором можно рубить деревья. Уменьши пределы в форах. Сообщения, наверное, тоже другие.


Top
   
 Post subject:
PostPosted: 2005-08-23 01:08:02 
Offline

Joined: 2005-08-23 01:05:41
Posts: 18
Ошибка :
Line 18: Function not found -UO.ASMTLSTATICOPEN


Top
   
 Post subject:
PostPosted: 2005-08-23 09:03:49 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Ты АСМ поставил то? :lol:


Top
   
 Post subject:
PostPosted: 2005-08-23 09:59:16 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
flake wrote:
Ты АСМ поставил то? :lol:

Стёб.

_________________
Сделал дело - флуди смело !!!


Top
   
 Post subject:
PostPosted: 2005-08-23 14:05:18 
Offline

Joined: 2005-08-23 01:05:41
Posts: 18
flake wrote:
Ты АСМ поставил то? :lol:


а эт чо такое? :roll:
ЗЫ : чар просто рубит вокруг себя? Он сам бегит к следующему дереву?...


Top
   
 Post subject:
PostPosted: 2005-08-23 14:06:33 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
:lol: :lol: :lol:
так и знал

http://agrs.info/asm/


Top
   
 Post subject:
PostPosted: 2005-08-23 14:08:29 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Вот сюда тоже загляни :wink:


Top
   
 Post subject:
PostPosted: 2005-08-23 14:15:49 
Offline

Joined: 2005-08-23 01:05:41
Posts: 18
line 18: runtime error - can not open file


Top
   
 Post subject:
PostPosted: 2005-08-23 14:16:54 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Mazhor wrote:
line 18: runtime error - can not open file

Видимо ты не создал в папке инжекта файл Resource_Static.dat


Top
   
 Post subject:
PostPosted: 2005-08-23 14:22:15 
Offline

Joined: 2005-08-23 01:05:41
Posts: 18
Создал...
ЗЫ : яж не такой уж тугой :D


Top
   
 Post subject:
PostPosted: 2005-08-23 15:52:20 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
а АСМ то поставил?


Top
   
 Post subject:
PostPosted: 2005-08-23 23:10:08 
Offline

Joined: 2005-08-23 01:05:41
Posts: 18
flake wrote:
а АСМ то поставил?

Естественно.


Top
   
 Post subject:
PostPosted: 2005-10-02 20:44:02 
Offline

Joined: 2005-09-24 18:02:37
Posts: 11
Включаю просто ничего не происходит 0 реакции.

ASM поставлен фаил создан.
На Layer тапор есть.


Top
   
 Post subject:
PostPosted: 2005-10-02 21:06:22 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Насчет деревий - рекомендую взять InsideUO и посмотреть там, надежнее.


Top
   
 Post subject:
PostPosted: 2005-10-02 22:48:07 
Offline

Joined: 2005-09-24 18:02:37
Posts: 11
да дело было в неправельных данных . Спасибо за столь быструю помощ
Ничего покапался получилось

Code:
0x0CCA=tree
0x0CCB=tree
0x0CCC=tree
0x0CCD=tree
0x0CCE=tree
0x0CCF=tree
0x0CD0=tree
0x0CD1=tree
0x0CD2=tree
0x0CD3=tree
0x0CD4=tree
0x0CD5=tree
0x0CD6=tree
0x0CD8=tree
0x0CDA=tree
0x0CDB=tree
0x0CDC=tree
0x0CDD=tree
0x0CDE=tree
0x0CDF=tree
0x0CE0=tree
0x0CE1=tree
0x0CE2=tree
0x0CE3=tree
0x0CE4=tree
0x0CE5=tree
0x0CE6=tree

Может кому пригодится.

Нельзяли пристроить к нему ходилку? Если да подскажите как.
Зарание благодарен


Top
   
 Post subject:
PostPosted: 2005-10-02 23:10:51 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Заводишь еще одну процедуру которая утебя будет отвчать за перемещения и внутри себя будет вызывать "вырубить вокруг"
по кого нчанию вырубки управление передастся в главную функци и тд...


Top
   
 Post subject:
PostPosted: 2005-10-02 23:45:28 
Offline

Joined: 2005-09-24 18:02:37
Posts: 11
Страно но Скрипт иногда выключается.


Top
   
 Post subject:
PostPosted: 2005-10-03 00:03:04 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Ну кидай его сюда и посмотим что там выключается...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 23 posts ]  Go to page 1 2 Next

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 27 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited