Yoko

Posted: **2005-03-26 06:06:05**

Я ньюб. Играть начал очень и очень недавно, соответственно с инжектом только знакомлюсь. Тут можно найти сколь угодно навороченные скрипты на всё что хочешь, но мало простых, которые бы облегчили жизнь ньюбу.
Например.
Скрипт на ламбер: собирает коорданаты, реколиться, скидывает, отбивается от нечести и т.д.
Взял вырезал пару кусков, вырезал удачно, теперь просто ходит рубит. Так как реколиться пока не могу, маджери маловато, да и нет куда реколиться.

А вот с майнингом вышли проблемы. Базового скрипта не нашёл подходящего из которого вырезать ненужное.
Есть ли скрипт чтоб чар выкапывал пещеру под чистую, просто ходил по тайлам, без реколов, без обороны?

Posted: **2005-03-26 12:32:11**

О, наши люди и тут.
Скрипт который ты описал - довольно не практичный, т.к. может подходить для одной шахты, но для другой не будет подходить.
Зато есть простой и надежный скрипт Едреда: Чар стоит в одной клетке, и полностью обкапывает 25 (кажется) тайлов вокруг себя.

Code: Select all

; Mining around char's 1.02b (c) Edred 
; 
sub minround() 

VAR Kirka = '0x0E85'   ; Тип Кирки 
VAR MaxVes = 600   ; Максимальный вес, подымаемый чаром минус 10-15 стоунов 
VAR TileNum = '1339'   ; Тайл пола пещеры (наиболее распространенный тип) 
VAR x, y, t, k 
VAR MaxTime = 100   ; измеряется в 1/10 сек. 
VAR ms1 = "There is no ore here to mine" 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You fail to find any useable ore" 
VAR ms5 = "You are too far away" 
VAR ms6 = "Try mining in rock" 
VAR ms7 = "You can't see that" 

for y=-2 to 2 
   for x=-2 to 2 
      k = 0 
      repeat 
         UO.DeleteJournal() 
         t = UO.Timer() 
         k = k + 1 
         UO.CancelTarget() 
         wait(300) 
         UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
         UO.UseType( Kirka ) 
         repeat 
            wait(300) 
         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 ((t + MaxTime) < UO.Timer()) 
         If UO.Weight > MaxVes Then 
            ; Вес превышен! 
            UO.Print(" Overweight!" ) 
            return 
         Endif 
      until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
   next 
next 
endsub

Posted: **2005-03-26 13:30:57**

Скрипт Эдреда я знаю и юзаю по полной программе.

)

Posted: **2005-03-26 14:28:57**

Ну спасибо и на этом... :lol:

Yoko

Помощь ньюбу.

Помощь ньюбу.