Yoko
http://forum.yoko.com.ua/

Нужен самый простейший мининг)))
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13482		 Page 1 of 1
Author:  Nasty Nay [ 2008-04-11 12:02:12 ]
Post subject:  Нужен самый простейший мининг)))
Вобщем искала чтото не нашла)
ЧТо бы чар окопал вокруг себя 4 тайла и остановился. Вот и весь скрипт больше ничегошеньки не нужно) Помогите пжлста. Буду весьма благодарна.
Author:  Kynep [ 2008-04-11 12:56:33 ]
Post subject:  Re: Нужен самый простейший мининг)))
Nasty Nay wrote:
Вобщем искала чтото не нашла)
ЧТо бы чар окопал вокруг себя 4 тайла и остановился. Вот и весь скрипт больше ничегошеньки не нужно) Помогите пжлста. Буду весьма благодарна.


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

Code:
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
Author:  Nasty Nay [ 2008-04-12 08:52:13 ]
Post subject: 
Да мне не ето нада)
мне не нуна что бы он руду сбрасывал, мне не нада что бы при определенном весе кричал Overweit. Мне нужен тупой мининг который один раз всеголишь обкопал вокруг себя 4 тайла и остановился)) Просто у меня очень слабая машина и наргужать ее лишний раз гразит крашем)
Author:  Edred [ 2008-04-13 02:00:56 ]
Post subject: 
Проще не бывает.

Code:
; 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
Author:  Nasty Nay [ 2008-04-13 08:39:16 ]
Post subject: 
ОГРОМНЕЙШЕЕ СПАСИБОЧКО!)
Author:  The Cheater [ 2008-05-28 13:24:00 ]
Post subject:  Re: Нужен самый простейший мининг)))
Kynep wrote:
Nasty Nay wrote:
Вобщем искала чтото не нашла)
ЧТо бы чар окопал вокруг себя 4 тайла и остановился. Вот и весь скрипт больше ничегошеньки не нужно) Помогите пжлста. Буду весьма благодарна.


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

Code:
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 наскоко я понимаю буду очень презнателен
Author:  tRusTm3 [ 2008-06-30 16:58:43 ]
Post subject: 
Code:
while not UO.Dead() 
for y=-4 to 4 
for x=-4 to 4 
while not UO.Hidden()

поправь так


и исправь

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


на сообщения которые пишутся у тебя на сервере.....
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/