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

выгрузка карт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8562		 Page 1 of 1
Author:  Skazi69 [ 2006-08-20 20:13:27 ]
Post subject:  выгрузка карт
Помогите дописать скрипт, что бы он проваерял, есле в мешочке 200 карт искать другой! спасибо.
Code:
sub a()
   VAR Sunduk1 = '0x403A33E2'       ; pystie meshki
   VAR Sunduk2 = '0x403A33E2'       ; kyda skladivat 
   VAR Meshok = '0x0E76'          ; meshki 
   VAR Map = '0x14EB'          ;  
   VAR MeshSer, i 
          UO.FindType( Meshok, '-1', Sunduk1 )    
      MeshSer = UO.GetSerial( 'finditem' ) 
      UO.MoveItem( MeshSer, '0', Sunduk2 ) 
      wait(500) 
         repeat   
      i = 0 
            If UO.Count( Map ) > 0 Then 
            i = i + 1 
            UO.FindType( Map ) 
            UO.MoveItem( 'finditem', '0', MeshSer ) 
            wait(500) 
            UO.Print( str(i) + ' maps moved' ) 
         Endif 
      Until UO.Count( Map ) == 0
end sub
Author:  Skazi69 [ 2006-08-21 11:51:04 ]
Post subject: 
Help me please !
Author:  Nmy [ 2006-08-21 12:11:01 ]
Post subject: 
вот скрипт каторый я использую, надеюсь сможеш переделать для себя...

Code:
check:
uo.findtype('0x0E76', -1 , chestwithbags )
if uo.findcount() then
del('255|bag')
uo.click('finditem')
uo.ignore('finditem')
repeat
wait(100)
until uo.injournal('bag')
if uo.injournal('255') then
uo.moveitem('finditem', 0 , chesttoput )
goto check
endif
endif
Author:  Skazi69 [ 2006-08-23 00:31:42 ]
Post subject: 
Спасибо огромное :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/