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

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Nasty Nay
Posts: 15
Joined: 2008-04-09 13:05:27

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

Post by Nasty Nay »

Вобщем искала чтото не нашла)
ЧТо бы чар окопал вокруг себя 4 тайла и остановился. Вот и весь скрипт больше ничегошеньки не нужно) Помогите пжлста. Буду весьма благодарна.
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

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

Post by Kynep »

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
Top
Nasty Nay
Posts: 15
Joined: 2008-04-09 13:05:27

Post by Nasty Nay »

Да мне не ето нада)
мне не нуна что бы он руду сбрасывал, мне не нада что бы при определенном весе кричал Overweit. Мне нужен тупой мининг который один раз всеголишь обкопал вокруг себя 4 тайла и остановился)) Просто у меня очень слабая машина и наргужать ее лишний раз гразит крашем)
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

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

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
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
Top
Nasty Nay
Posts: 15
Joined: 2008-04-09 13:05:27

Post by Nasty Nay »

ОГРОМНЕЙШЕЕ СПАСИБОЧКО!)
Top
The Cheater
Posts: 86
Joined: 2005-02-08 15:39:19
Location: D.R.W.
Contact:
Contact The Cheater

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

Post by The Cheater »

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 наскоко я понимаю буду очень презнателен
у меня есть 400 мешочков в каждом по 255 никлейсов,один никлейс-32гп всё влом пойти загнать..
Top
tRusTm3
Posts: 20
Joined: 2006-10-25 09:35:37

Post by tRusTm3 »

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"


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

Return to “I need script!”