Yoko

All sides of Injection
It is currently 2025-12-20 04:36:36

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
letchik Potapov
 Post subject: Лут
PostPosted: 2005-09-18 23:01:10 
Offline

Joined: 2005-08-28 19:16:25
Posts: 4
Location: DRW
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


нужно,чтобы чар просто брал всю эту чушь с земли,пока она там есть.
Top
   
Reply with quote  
Solaire
PostPosted: 2005-09-19 06:17:31 
Offline
User avatar

Joined: 2005-05-21 07:12:12
Posts: 163
Location: DRW
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
Top
   
Reply with quote  
letchik Potapov
 Post subject:
PostPosted: 2005-09-21 16:21:23 
Offline

Joined: 2005-08-28 19:16:25
Posts: 4
Location: DRW
UO.FindType(Loot[i],-1,"ground")
как и раньше на эту строку дает ошибку:(
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-09-21 16:29:25 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Code:
For i=1 to 19

замени на
Code:
For i=0 to 18


Top
   
Reply with quote  
letchik Potapov
 Post subject:
PostPosted: 2005-09-21 17:37:55 
Offline

Joined: 2005-08-28 19:16:25
Posts: 4
Location: DRW
ММДа...берет одну весч и все...та же ошибка,но направление наверное верно,если поможет,то выдает runtime error... :!:
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2005-09-21 17:46:27 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Code:
UO.FindType(Loot[i],'-1',"ground")
Top
   
Reply with quote  
letchik Potapov
 Post subject:
PostPosted: 2005-09-22 07:45:53 
Offline

Joined: 2005-08-28 19:16:25
Posts: 4
Location: DRW
мда,по-моему проще новый сделать...все=равно не хочет работать...ДОКТОРА!!!
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2005-09-22 13:41:27 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
вперед, делай. доктор.
Top
   
Reply with quote  
StaliX
 Post subject:
PostPosted: 2005-09-26 21:44:52 
Offline

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

-1 кавычки поставь в кавычки : '-1'
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 4 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited