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

Хелп мининг
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13445		 Page 1 of 1
Author:  D3VnuLL [ 2008-04-02 14:26:17 ]
Post subject:  Хелп мининг
Дайте скрипт на переплавку руды по 1-ой штуке из бекпака плз
Author:  fritz321 [ 2008-04-02 15:09:48 ]
Post subject: 
могу токо на переплаву с земли дать если нада
Author:  D3VnuLL [ 2008-04-02 15:10:44 ]
Post subject: 
Дай с земли пожалуйста просто срочно нужно :)
Author:  fritz321 [ 2008-04-02 16:05:27 ]
Post subject: 
Code:

sub Smelt() 
VAR Ruda1 = '0x19B9'            ; Тип руды 
VAR Ruda2 = '0x19B8'            ; Тип руды - 3 шт. 
VAR Ruda3 = '0x19BA'            ; Тип руды - 2 шт. 
VAR Ruda4 = '0x19B7'            ; Тип руды - 1 шт. 
VAR Ing1 = '0x1BEF'               ; Тип ингов металлов 
VAR Ing2 = '0x1BF2'               ; Тип ингов строймата 
VAR MaxVes = 500               ; Максимальный вес пака 
repeat    
   UO.Findtype( Ruda1, -1, 1 )      ; Ищем руду на земле 
   If UO.Findcount() == 0 Then 
      UO.Findtype( Ruda2, -1, 1 ) 
      If UO.Findcount() == 0 Then 
         UO.Findtype( Ruda3, -1, 1 ) 
         If UO.Findcount() == 0 Then 
            UO.Findtype( Ruda4, -1, 1 ) 
            If UO.Findcount() == 0 Then 
               UO.Print( "No more ore for smelt..." ) 
               Return 
            Endif 
         Endif 
      Endif 
   Endif 
   UO.Exec( "moveitem finditem 1" )   ; Тащим 1 в пак 
   Wait( 1000 ) 
   UO.Useobject( 'finditem' )      ; переплавляем 
   Wait( 1000 ) 
   If UO.Weight > MaxVes Then 
      ; Максимальный вес пака превышен - разгружаемся 
      UO.Findtype( Ing1, -1, -1 ) 
      If UO.Findcount() > 0 Then 
         UO.Drophere( 'finditem' ) 
         Wait( 1000 ) 
      Endif 
      UO.Findtype( Ing2, -1, -1 ) 
      If UO.Findcount() > 0 Then 
         UO.Drophere( 'finditem' ) 
         Wait( 1000 ) 
      Endif 
   Endif 
until NOT Uo.CountGround( Ruda1 ) AND NOT UO.CountGround( Ruda2 ) AND NOT UO.CountGround( Ruda3 ) AND NOT UO.CountGround( Ruda4 ) 
UO.Print( "No more ore for smelt..." ) 
endsub
Author:  D3VnuLL [ 2008-04-02 20:06:54 ]
Post subject: 
Помогите со скриптом.. вообщем когда запускаешь в УО мне пишет:
Usage: useobject
object/lastobject/lasttarger/lastcontainer
Хелп плиз))


Code:
sub MiningAround2() 
; MiningAround2() - вскапываем вокруг чара без АСМа 
; 
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag 
   VAR MaxTime = 600                     ; измеряется в 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" 
VAR ms8 = "is destroyed*"               ; кирка развалилась совсем 
VAR ms9 = "ore at your feet."            ; предположительно - элементаль 
VAR ms10 = "There is nothing here to mine for."   
VAR i, strpoint 
   VAR MaxVes = 600
   VAR Kirka = '0x0E85'   ; Тип Кирки 
   cx = UO.GetX() 
   cy = UO.GetY() 
   for tmpx = -2 to 2 
      for tmpy = -2 to 2 
         k = 0 
         pointX = cx + tmpx 
         pointY = cy + tmpy 
         repeat 
            DeleteJournal( ms1 ) 
            DeleteJournal( ms2 ) 
            DeleteJournal( ms3 ) 
            DeleteJournal( ms4 ) 
            DeleteJournal( ms5 ) 
            DeleteJournal( ms6 ) 
            DeleteJournal( ms7 ) 
            DeleteJournal( ms8 ) 
            DeleteJournal( ms9 ) 
            t = UO.Timer() + MaxTime 
            k = k + 1 
            flag = 1 
            wait(300) 
            If UO.Waiting() Then 
               UO.CancelTarget() 
            Endif 
            UO.WaitTargetTile( 'all', str(pointX), str(PointY), '0' ) 
            UO.UseObject(UO.ObjAtLayer('Lhand')) 
            repeat 
               wait(100) 
            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 UO.InJournal(ms8) OR UO.InJournal(ms9)OR UO.InJournal(ms10) OR (t < UO.Timer()) 
            Endif 
            If UO.InJournal( ms9 ) Then 
               ; вывалился элементаль... 
               return 
            Endif 
            If UO.Weight > MaxVes Then 
               ; Вес превышен! 
               return 
            Endif 
            If UO.InJournal( ms8 ) Then 
               ; кирка накрылась! 
               return 
            Endif 
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) 
      next 
   next 
endsub 
; 
Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, ' ' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub 
; 
Sub CheckLag() 
   DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(50) 
   until UO.InJournal( 'backpack' ) 
   return 
endsub
Author:  D3VnuLL [ 2008-04-02 20:07:05 ]
Post subject: 
Помогите со скриптом.. вообщем когда запускаешь в УО мне пишет:
Usage: useobject
object/lastobject/lasttarger/lastcontainer
Хелп плиз))


Code:
sub MiningAround2() 
; MiningAround2() - вскапываем вокруг чара без АСМа 
; 
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag 
   VAR MaxTime = 600                     ; измеряется в 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" 
VAR ms8 = "is destroyed*"               ; кирка развалилась совсем 
VAR ms9 = "ore at your feet."            ; предположительно - элементаль 
VAR ms10 = "There is nothing here to mine for."   
VAR i, strpoint 
   VAR MaxVes = 600
   VAR Kirka = '0x0E85'   ; Тип Кирки 
   cx = UO.GetX() 
   cy = UO.GetY() 
   for tmpx = -2 to 2 
      for tmpy = -2 to 2 
         k = 0 
         pointX = cx + tmpx 
         pointY = cy + tmpy 
         repeat 
            DeleteJournal( ms1 ) 
            DeleteJournal( ms2 ) 
            DeleteJournal( ms3 ) 
            DeleteJournal( ms4 ) 
            DeleteJournal( ms5 ) 
            DeleteJournal( ms6 ) 
            DeleteJournal( ms7 ) 
            DeleteJournal( ms8 ) 
            DeleteJournal( ms9 ) 
            t = UO.Timer() + MaxTime 
            k = k + 1 
            flag = 1 
            wait(300) 
            If UO.Waiting() Then 
               UO.CancelTarget() 
            Endif 
            UO.WaitTargetTile( 'all', str(pointX), str(PointY), '0' ) 
            UO.UseObject(UO.ObjAtLayer('Lhand')) 
            repeat 
               wait(100) 
            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 UO.InJournal(ms8) OR UO.InJournal(ms9)OR UO.InJournal(ms10) OR (t < UO.Timer()) 
            Endif 
            If UO.InJournal( ms9 ) Then 
               ; вывалился элементаль... 
               return 
            Endif 
            If UO.Weight > MaxVes Then 
               ; Вес превышен! 
               return 
            Endif 
            If UO.InJournal( ms8 ) Then 
               ; кирка накрылась! 
               return 
            Endif 
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) 
      next 
   next 
endsub 
; 
Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, ' ' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub 
; 
Sub CheckLag() 
   DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(50) 
   until UO.InJournal( 'backpack' ) 
   return 
endsub
Author:  fritz321 [ 2008-04-02 20:33:11 ]
Post subject: 
Завтра после работы кину тебе нормальный рабочий скрипт на обкобку вокруг себя
Author:  fritz321 [ 2008-04-03 08:29:07 ]
Post subject: 
Лови на обкобку... токо тама где два цикла For поставь свои цифры..
у меня на шарде токо квадрат 4 на 4 обкапывается, так что цифры
от -2 до 2.. как у тебя не знаю


Code:
#########################################################################
sub maining()
var mx, my, mz, i, j

UO.print('Выберите рунку')
uo.exec('addobject rune')
while uo.targeting() 
wait(100)
wend

start:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx-2 to mx+2
     for j = my-2 to my+2
   hidding()
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") 
UO.DeleteJournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.findman( -1 ) 
         if uo.findcount() then 
            recal() 
            uo.exec('terminate mining')
         endif
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
uo.usetype('0x0E85')
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (1000) 
if uo.weight>600 then
recal()
endif
 
          uo.findman( -1 ) 
          if uo.findcount() then 
            recal() 
            uo.exec('terminate all')
          endif

wend 
wend 
UO.DeleteJournal() 
next 
next 
hidding()
uo.print("Вы закончили обкобку, передите на другое место и напишите: го")

while not uo.dead()
if uo.injournal("го") then
goto start
endif
uo.findman( -1 ) 
          if uo.findcount() then 
            recal() 
            uo.exec('terminate all')
          endif
wend
end sub
###########################################################################
sub hidding()
while not uo.Hidden()
uo.WarMode("0")
uo.print('Прячемся')
uo.UseSkill("Hiding")
wait(3500)
wend
end sub
###########################################################################
sub recal()
     if uo.waiting() then
          uo.canceltarget()
     endif
            uo.print ("Сьбываемся")
          uo.waittargetobject('rune')
          uo.cast('Recall')
          wait(3500)
          uo.exec('terminate all')
          
end sub

end sub
Author:  fritz321 [ 2008-04-03 08:30:16 ]
Post subject: 
ЗЫ..
реколится от любого чувака рядом....
проверок на элемов нету
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/