who can give me loot corpse scripts

[haha1]

who can give me loot corpse scripts and take off dress scripts thx
i'm english very bad i don't know your see understand???i want here a good men very more!~thx very mush!~!~~!~

[haha1]

sub Loot()
VAR WaitTime=500
VAR Exit=0, i
DIM Loot[30]


Loot[0]=0x19B9 ; ore
Loot[1]=0x0EED ; gp
Loot[2]=0x0F7B ; BM
Loot[3]=0x0F7A ; BP
Loot[4]=0x0F84 ; GA
Loot[5]=0x0F85 ; GI
Loot[6]=0x0F86 ; MR
Loot[7]=0x0F88 ; NS
Loot[8]=0x0F8C ; SA
Loot[9]=0x0F8D ; SS
Loot[10]=0x0F90 ; Dead Woods
Loot[11]=0x0F7E ; Sceleton Bones
Loot[12]=0x0F87 ; Eyes of newt
Loot[13]=0x0E76 ; Bag
Loot[14]=0x09B0 ; Pounch
Loot[15]=0x1BDD ; Logs
Loot[16]=0x1078 ; Hides
Loot[17]=0x1BFB ; Bolts
Loot[18]=0x0E34 ; Blanc Scroll
Loot[19]=0x0F25 ; Pieces of Amber
Loot[20]=0x0F16 ; Ametist
Loot[21]=0x0F20 ; Tourmaline
Loot[22]=0x0F26 ; Diamond
Loot[23]=0x0F30 ; Diamond
Loot[24]=0x0F8E ; Serpent Scales
Loot[25]=0x14EB ; Treassure Map
Loot[26]=0x0F79 ; Blackmoor
Loot[27]=0x0F3F ; Arrow
Loot[28]=0x0F79 ; Blackmoor
Loot[29]=0x0F79 ; Blackmoor

UO.UseObject('lastcorpse')

if UO.GetQuantity('lastcorpse') then
UO.SetArm('temp')
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F51') ;dagger
wait(1000)
UO.Arm('temp')
wait(1500)
endif

; UO.SetReceivingContainer('0x400935D4') ; loot store bag

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

if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot,-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next

; UO.UnSetReceivingContainer()
end sub

why my use this scripts YokoInject say Function not found-uo.GETQUANTITY!~waht mean???who can tell me!~

[Savage]

CheckBox "Track world items" checked? You may replace this function on UO.FindCount()

[fr33s]

"line 44 Runtime error" check box appears.

this is line 44 -- UO.FindType(Loot,-1,'ground')

[Savage]

That is original script.

Code: Select all

#==============================================================
#  Loot() - looting corpse and from ground
#--------------------------------------------------------------
sub Loot()
	VAR WaitTime=500
	VAR Exit=0, i
	DIM Loot[30]
	

	Loot[0]=0x19B9 ; ore
	Loot[1]=0x0EED ; gp
	Loot[2]=0x0F7B ; BM
	Loot[3]=0x0F7A ; BP
	Loot[4]=0x0F84 ; GA
	Loot[5]=0x0F85 ; GI
	Loot[6]=0x0F86 ; MR
	Loot[7]=0x0F88 ; NS
	Loot[8]=0x0F8C ; SA
	Loot[9]=0x0F8D ; SS
	Loot[10]=0x0F90 ; Dead Woods
	Loot[11]=0x0F7E ; Sceleton Bones
	Loot[12]=0x0F87 ; Eyes of newt
	Loot[13]=0x0E76 ; Bag
	Loot[14]=0x09B0 ; Pounch
	Loot[15]=0x1BDD ; Logs
	Loot[16]=0x1078 ; Hides
	Loot[17]=0x1BFB ; Bolts
	Loot[18]=0x0E34 ; Blanc Scroll
	Loot[19]=0x0F25 ; Pieces of Amber
	Loot[20]=0x0F16 ; Ametist
	Loot[21]=0x0F20 ; Tourmaline
	Loot[22]=0x0F26 ; Diamond
	Loot[23]=0x0F30 ; Diamond
	Loot[24]=0x0F8E ; Serpent Scales
	Loot[25]=0x14EB ; Treassure Map
	Loot[26]=0x0F79 ; Blackmoor
	Loot[27]=0x0F3F ; Arrow
	Loot[28]=0x0F79 ; Blackmoor
	Loot[29]=0x0F79 ; Blackmoor
	
	UO.UseObject('lastcorpse')

	if UO.GetQuantity('lastcorpse') then
		UO.SetArm('temp')
		UO.WaitTargetObject('lastcorpse')
		UO.UseType('0x0F51') ;dagger
		wait(1000)
		UO.Arm('temp')
		wait(1500)
	endif
	
;	UO.SetReceivingContainer('0x400935D4') ; loot store bag

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

		if UO.GetQuantity('lastcorpse') then
			UO.FindType(Loot[i],-1,'lastcorpse')
			if UO.GetQuantity('finditem') then 
				if Loot[i]==0x1078 then
					UO.WaitTargetObject('finditem')
					UO.UseType('0x0F9E')
				else
					UO.Grab(STR(0),'finditem')
				endif				
				wait(WaitTime)
			endif
		endif
	next

;	UO.UnSetReceivingContainer()
end sub