Yoko

All sides of Injection
It is currently 2026-01-18 13:24:24

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
 Post subject: Помощь ньюбу.
PostPosted: 2005-03-26 06:06:05 
Offline

Joined: 2005-03-04 20:10:28
Posts: 4
Я ньюб. Играть начал очень и очень недавно, соответственно с инжектом только знакомлюсь. Тут можно найти сколь угодно навороченные скрипты на всё что хочешь, но мало простых, которые бы облегчили жизнь ньюбу.
Например.
Скрипт на ламбер: собирает коорданаты, реколиться, скидывает, отбивается от нечести и т.д.
Взял вырезал пару кусков, вырезал удачно, теперь просто ходит рубит. Так как реколиться пока не могу, маджери маловато, да и нет куда реколиться.

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


Top
   
 Post subject:
PostPosted: 2005-03-26 12:32:11 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
О, наши люди и тут.
Скрипт который ты описал - довольно не практичный, т.к. может подходить для одной шахты, но для другой не будет подходить.
Зато есть простой и надежный скрипт Едреда: Чар стоит в одной клетке, и полностью обкапывает 25 (кажется) тайлов вокруг себя.

Code:
; 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


Top
   
 Post subject:
PostPosted: 2005-03-26 13:30:57 
Offline

Joined: 2005-03-04 20:10:28
Posts: 4
Скрипт Эдреда я знаю и юзаю по полной программе. :))


Top
   
 Post subject:
PostPosted: 2005-03-26 14:28:57 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Ну спасибо и на этом... :lol:


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 4 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 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:  
Powered by phpBB® Forum Software © phpBB Limited