Лут

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,-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,-1,"ground")
как и раньше на эту строку дает ошибку:(

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

Yoko

Лут

Лут

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