Лут

letchik Potapov · Post by **letchik Potapov** » 2005-09-18 23:01:10

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

нужно,чтобы чар просто брал всю эту чушь с земли,пока она там есть.

Solaire · Post by **Solaire** » 2005-09-19 06:17:31

letchik Potapov wrote:нужно,чтобы чар просто брал всю эту чушь с земли,пока она там есть.

Заменяешь if на while. Вот так:

Code: Select all

   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

letchik Potapov · Post by **letchik Potapov** » 2005-09-21 16:21:23

UO.FindType(Loot[i],-1,"ground")
как и раньше на эту строку дает ошибку:(

Leo · Post by **Leo** » 2005-09-21 16:29:25

Code: Select all

For i=1 to 19

замени на

Code: Select all

For i=0 to 18

letchik Potapov · Post by **letchik Potapov** » 2005-09-21 17:37:55

ММДа...берет одну весч и все...та же ошибка,но направление наверное верно,если поможет,то выдает runtime error... :!:

flake · Post by **flake** » 2005-09-21 17:46:27

Code: Select all

UO.FindType(Loot[i],'-1',"ground")

letchik Potapov · Post by **letchik Potapov** » 2005-09-22 07:45:53

мда,по-моему проще новый сделать...все=равно не хочет работать...ДОКТОРА!!!

flake · Post by **flake** » 2005-09-22 13:41:27

вперед, делай. доктор.

StaliX · Post by **StaliX** » 2005-09-26 21:44:52

letchik Potapov wrote:UO.FindType(Loot[i],-1,"ground")
как и раньше на эту строку дает ошибку:(

-1 кавычки поставь в кавычки : '-1'

Yoko

Лут

Лут

Re: если кто заглянет,поможет,большое ему спасибо.