Yoko

Posted: **2008-04-11 12:02:12**

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

Posted: **2008-04-11 12:56:33**

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

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

Code: Select all

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

Posted: **2008-04-12 08:52:13**

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

Posted: **2008-04-13 02:00:56**

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

Code: Select all

; 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

Posted: **2008-04-13 08:39:16**

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

Posted: **2008-05-28 13:24:00**

Kynep wrote:

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

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

Code: Select all

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

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

Posted: **2008-06-30 16:58:43**

Code: Select all

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

поправь так

и исправь

Code: Select all

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"

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

Yoko

Нужен самый простейший мининг)))

Нужен самый простейший мининг)))

Re: Нужен самый простейший мининг)))

Re: Нужен самый простейший мининг)))