Yoko

All sides of Injection
It is currently 2025-12-10 07:30:08

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 11 posts ] 
  Print view Previous topic | Next topic 
Author Message
discon
PostPosted: 2006-11-08 10:48:10 
Offline

Joined: 2006-08-09 20:33:57
Posts: 34
Народ, я тут написал скрипт на хватание регов, каждого вида, из общей кучи и складывание их в мешок в бэкпаке. Если кому нужен пользуйтесь, а то я тут такого скриптика не нашел, а с ним хоть немного, но легче стало )))

Code:
sub grab_regs()
; CopyRight(R) #DiscoN#

var count='50'  ; сколько брать 
uo.print('Otkuda?')
UO.Exec('addobject TmpBag1') 
While UO.Targeting() 
Wait(100) 
wend 
uo.print('Kuda?')
UO.Exec('addobject Tmpbag2') 
While UO.Targeting() 
Wait(100) 
wend

   UO.FindType('0x0F88','0x0000','TmpBag1') ; NS
   wait(100) 
   UO.Grab(count,'finditem')
   wait(600) 
   UO.FindType('0x0F88','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)


   UO.FindType('0x0F86','0x0000','TmpBag1') ; MR
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F86','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F8D','0x0000','TmpBag1') ; SS
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F8D','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(600)

   UO.FindType('0x0F8C','0x0000','TmpBag1') ; SA
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F8C','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F84','0x0000','TmpBag1') ; GA
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F84','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F85','0x0000','TmpBag1') ; GI
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F85','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F7B','0x0000','TmpBag1') ; BM
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F7B','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F7A','0x0000','TmpBag1') ; BP
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F7A','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)
   
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')
uo.print('!!!!!GRAB COMPLETE!!!!!')
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')

end sub
Top
   
Reply with quote  
slonopotam
 Post subject:
PostPosted: 2006-11-08 11:39:26 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
Скриптов на добор регов говориш ненашел??? :D

_________________
ДРВ
Spoiler
_________________
Антарес
Spoiler|Gostrabaiter|Umhra|Slog
Top
   
Reply with quote  
Askaneli
 Post subject:
PostPosted: 2006-11-08 12:27:20 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
А в цикле не судьба сделать ???

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2006-11-08 13:01:41 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
баз массива :roll:

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
discon
 Post subject:
PostPosted: 2006-11-08 13:06:29 
Offline

Joined: 2006-08-09 20:33:57
Posts: 34
Askaneli wrote:
А в цикле не судьба сделать ???


знал бы как, сделал бы.....
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2006-11-08 13:11:42 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Code:
sub grab_regs()
; CopyRight(R) #DiscoN#

var n, count='50'  ; сколько брать
uo.print('Otkuda?')
UO.Exec('addobject TmpBag1')
While UO.Targeting()
Wait(100)
wend
uo.print('Kuda?')
UO.Exec('addobject Tmpbag2')
While UO.Targeting()
Wait(100)
wend

Dim r[8]
r[1] = '0x0F88'
r[2] = '0x0F86'
r[3] = '0x0F8D'
r[4] = '0x0F8C'
r[5] = '0x0F84'
r[6] = '0x0F85'
r[7] = '0x0F7B'
r[8] = '0x0F7A'

For n = 1 To 8
   UO.FindType( r[n] , -1 ,'TmpBag1')
   If UO.Findcount() then
   UO.MoveItem( 'finditem', -1 , 'Tmpbag2' )
   wait(300)
Endif
next
   
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')
uo.print('!!!!!GRAB COMPLETE!!!!!')
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')

end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
discon
 Post subject:
PostPosted: 2006-11-08 13:17:45 
Offline

Joined: 2006-08-09 20:33:57
Posts: 34
Прикольно, спасибо. А можно как-нибудь сделать чтоб он добирал до конкретного числа?
Top
   
Reply with quote  
discon
 Post subject:
PostPosted: 2006-11-08 13:18:48 
Offline

Joined: 2006-08-09 20:33:57
Posts: 34
да и еще объясните плиз что -1 тут значит?

Code:
UO.FindType( r[n] , -1 ,'TmpBag1')


Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2006-11-08 13:19:43 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Иди и читай уроки. После этого вопроса, последует следующий в новой теме-а ты даже не понимаешь что написал ...
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2006-11-08 14:15:18 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
discon wrote:
Прикольно, спасибо. А можно как-нибудь сделать чтоб он добирал до конкретного числа?


а это я уже выкладывал :roll:

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2006-11-08 15:58:25 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
NMY wrote:
discon wrote:
Прикольно, спасибо. А можно как-нибудь сделать чтоб он добирал до конкретного числа?


а это я уже выкладывал :roll:

И я помню даже.

Автор-ищи.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 11 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 2 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