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

Лут
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5222		 Page 1 of 1
Author:  letchik Potapov [ 2005-09-18 23:01:10 ]
Post subject:  Лут
Code:
sub Loot()
   VAR WaitTime=500
   VAR Exit=0, i
   DIM Loot[19]
   

   Loot[0]=0x1415 ; Platemail armor
   Loot[1]=0x1413 ; gorget
   Loot[2]=0x1414 ; gloves
   Loot[3]=0x1412 ; Helmet1
   Loot[4]=0x1408 ; helmet2
   Loot[5]=0x140A ; helmet3
   Loot[6]=0x140C ; helmet4
   Loot[7]=0x140E ; NoSe helmet
   Loot[8]=0x1411 ; Leggins
   Loot[9]=0x1410 ; Arms
   Loot[10]=0x1B74 ; Shield
   Loot[11]=0x1B74 ; Viking Sword
   Loot[12]=0x0F87 ; Axe
   Loot[18]=0x0E34 ; Blanc Scroll
   
   
   
   
;   UO.SetReceivingContainer('0x4020B3F6') ; loot store bag

   For i=1 to 19
      UO.FindType(Loot[i],-1,"ground")
      if UO.GetQuantity('finditem') then 
         UO.Grab(STR(0),'finditem')
         wait(WaitTime)
      endif

      
   next

;   UO.UnSetReceivingContainer()
end sub


нужно,чтобы чар просто брал всю эту чушь с земли,пока она там есть.
Author:  Solaire [ 2005-09-19 06:17:31 ]
Post subject:  Re: если кто заглянет,поможет,большое ему спасибо.
letchik Potapov wrote:
нужно,чтобы чар просто брал всю эту чушь с земли,пока она там есть.

Заменяешь if на while. Вот так:
Code:
   For i=1 to 19
      UO.FindType(Loot[i],-1,"ground")
      while UO.FindCount()
         UO.Grab(STR(0),'finditem')
         wait(WaitTime)
         UO.FindType(Loot[i],-1,"ground")
      wend   
   next
Author:  letchik Potapov [ 2005-09-21 16:21:23 ]
Post subject: 
UO.FindType(Loot[i],-1,"ground")
как и раньше на эту строку дает ошибку:(
Author:  Leo [ 2005-09-21 16:29:25 ]
Post subject: 
Code:
For i=1 to 19

замени на
Code:
For i=0 to 18
Author:  letchik Potapov [ 2005-09-21 17:37:55 ]
Post subject: 
ММДа...берет одну весч и все...та же ошибка,но направление наверное верно,если поможет,то выдает runtime error... :!:
Author:  flake [ 2005-09-21 17:46:27 ]
Post subject: 
Code:
UO.FindType(Loot[i],'-1',"ground")
Author:  letchik Potapov [ 2005-09-22 07:45:53 ]
Post subject: 
мда,по-моему проще новый сделать...все=равно не хочет работать...ДОКТОРА!!!
Author:  flake [ 2005-09-22 13:41:27 ]
Post subject: 
вперед, делай. доктор.
Author:  StaliX [ 2005-09-26 21:44:52 ]
Post subject: 
letchik Potapov wrote:
UO.FindType(Loot[i],-1,"ground")
как и раньше на эту строку дает ошибку:(

-1 кавычки поставь в кавычки : '-1'
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/