Yoko

All sides of Injection
It is currently 2025-10-13 11:16:30

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 9 posts ] 
  Print view Previous topic | Next topic 
Author Message
D3VnuLL
 Post subject: Хелп мининг
PostPosted: 2008-04-02 14:26:17 
Offline
User avatar

Joined: 2006-10-08 08:37:57
Posts: 87
Дайте скрипт на переплавку руды по 1-ой штуке из бекпака плз
Top
   
Reply with quote  
fritz321
 Post subject:
PostPosted: 2008-04-02 15:09:48 
Offline

Joined: 2008-03-15 19:28:48
Posts: 36
могу токо на переплаву с земли дать если нада
Top
   
Reply with quote  
D3VnuLL
 Post subject:
PostPosted: 2008-04-02 15:10:44 
Offline
User avatar

Joined: 2006-10-08 08:37:57
Posts: 87
Дай с земли пожалуйста просто срочно нужно :)
Top
   
Reply with quote  
fritz321
 Post subject:
PostPosted: 2008-04-02 16:05:27 
Offline

Joined: 2008-03-15 19:28:48
Posts: 36
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
Top
   
Reply with quote  
D3VnuLL
 Post subject:
PostPosted: 2008-04-02 20:06:54 
Offline
User avatar

Joined: 2006-10-08 08:37:57
Posts: 87
Помогите со скриптом.. вообщем когда запускаешь в УО мне пишет:
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


Top
   
Reply with quote  
D3VnuLL
 Post subject:
PostPosted: 2008-04-02 20:07:05 
Offline
User avatar

Joined: 2006-10-08 08:37:57
Posts: 87
Помогите со скриптом.. вообщем когда запускаешь в УО мне пишет:
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


Top
   
Reply with quote  
fritz321
 Post subject:
PostPosted: 2008-04-02 20:33:11 
Offline

Joined: 2008-03-15 19:28:48
Posts: 36
Завтра после работы кину тебе нормальный рабочий скрипт на обкобку вокруг себя
Top
   
Reply with quote  
fritz321
 Post subject:
PostPosted: 2008-04-03 08:29:07 
Offline

Joined: 2008-03-15 19:28:48
Posts: 36
Лови на обкобку... токо тама где два цикла 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
Top
   
Reply with quote  
fritz321
 Post subject:
PostPosted: 2008-04-03 08:30:16 
Offline

Joined: 2008-03-15 19:28:48
Posts: 36
ЗЫ..
реколится от любого чувака рядом....
проверок на элемов нету
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 9 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 0 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited