Я ньюб. Играть начал очень и очень недавно, соответственно с инжектом только знакомлюсь. Тут можно найти сколь угодно навороченные скрипты на всё что хочешь, но мало простых, которые бы облегчили жизнь ньюбу.
Например.
Скрипт на ламбер: собирает коорданаты, реколиться, скидывает, отбивается от нечести и т.д.
Взял вырезал пару кусков, вырезал удачно, теперь просто ходит рубит. Так как реколиться пока не могу, маджери маловато, да и нет куда реколиться.
А вот с майнингом вышли проблемы. Базового скрипта не нашёл подходящего из которого вырезать ненужное.
Есть ли скрипт чтоб чар выкапывал пещеру под чистую, просто ходил по тайлам, без реколов, без обороны?
Помощь ньюбу.
Moderators: Murderator+, Murderator
О, наши люди и тут.
Скрипт который ты описал - довольно не практичный, т.к. может подходить для одной шахты, но для другой не будет подходить.
Зато есть простой и надежный скрипт Едреда: Чар стоит в одной клетке, и полностью обкапывает 25 (кажется) тайлов вокруг себя.
Скрипт который ты описал - довольно не практичный, т.к. может подходить для одной шахты, но для другой не будет подходить.
Зато есть простой и надежный скрипт Едреда: Чар стоит в одной клетке, и полностью обкапывает 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
)