Yoko

Вобщем искала чтото не нашла)
ЧТо бы чар окопал вокруг себя 4 тайла и остановился. Вот и весь скрипт больше ничегошеньки не нужно) Помогите пжлста. Буду весьма благодарна.

Во первых, поиск еще ни кто не отменял, для начала, во вторых смотрим внимательно, пять тем ниже, тема с таким же названием, ну неужели тяжело заглянуть?

sub minround() 
VAR Kirka = '0x0E85' #Тип кирки 
VAR MaxVes = 550     #Вес до которого копаем 

VAR TileNum = '1339' 
VAR x, y, t, k 
VAR MaxTime = 100 
VAR ms1 = "There is nothing here to mine for." 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "You are too far away" 
VAR ms6 = "Try mining elsewhere." 
VAR ms7 = "That is too far away." 
VAR ms8 = "You have no line of sight to that location" 

while not UO.Dead() 
for y=-2 to 2 
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
      k = 0 
      repeat 
          while not UO.Hidden() 
               UO.Warmode("0") 
               UO.UseSkill("Hiding") 
               wait(4000) 
          wend 
               uo.findtype('0x19B9','0x0000','backpack') #Тут тип и цвет руды для сброса 
               uo.moveitem('finditem','-1','ground') 
               #uo.findtype('0x19B9','0x0486','backpack') 
               #uo.moveitem('finditem','-1','ground') 
           UO.DeleteJournal() 
         t = UO.Timer() 
         k = k + 1 
         UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
         UO.UseType( Kirka ) 
         repeat 
            wait(300) 
         until UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms1) 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 UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR UO.InJournal(ms1) OR UO.InJournal(ms8) or (k > 10) 
   next 
next 
wend 
endsub 

Да мне не ето нада)
мне не нуна что бы он руду сбрасывал, мне не нада что бы при определенном весе кричал Overweit. Мне нужен тупой мининг который один раз всеголишь обкопал вокруг себя 4 тайла и остановился)) Просто у меня очень слабая машина и наргужать ее лишний раз гразит крашем)

Проще не бывает.

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

VAR Kirka = '0x0E85'   ; Тип Кирки
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 loosen some rocks"
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())
      until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
   next
next
endsub

_________________
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...

ОГРОМНЕЙШЕЕ СПАСИБОЧКО!)

народ если можно сделайте штоб этот скрипт побыстрее прощёлкивал пустые клеточки и копал бы на 4 клеточки ане на 2 наскоко я понимаю буду очень презнателен

_________________
у меня есть 400 мешочков в каждом по 255 никлейсов,один никлейс-32гп всё влом пойти загнать..

while not UO.Dead() 
for y=-4 to 4 
for x=-4 to 4 
while not UO.Hidden() 

поправь так


и исправь

VAR ms1 = "There is nothing here to mine for." 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "You are too far away" 
VAR ms6 = "Try mining elsewhere." 
VAR ms7 = "That is too far away." 
VAR ms8 = "You have no line of sight to that location"

на сообщения которые пишутся у тебя на сервере.....