Yoko

Item found...
Invalid Object: finditem

sub CtrlS() 
 uo.findtype('0x0e76',-1,'backpack')
 if uo.findcount() then
 UO.SetReceivingContainer('finditem')
 end if
 var i
 var col
 var limit=0
 dim Item[28]
   #Armas
 Item[1]=0x1400 ;Kryss
 Item[2]=0x13B9 ;Viking
 Item[3]=0x13B1 ;Bow
   #Plates
 Item[4]=0x140A ;Helm
 Item[5]=0x13BB ;Coif
 Item[6]=0x1415 ;Chest
 Item[7]=0x1416 ;Tunic
 Item[8]=0x1410 ;Arms
 Item[9]=0x1417 ;Sleeves
 Item[10]=0x1413 ;Gorget
 Item[11]=0x1414 ;Gauntlets
 Item[12]=0x1418 ;Gloves
 Item[13]=0x1411 ;Legs
 Item[14]=0x141a ;Leggings
   #Itens
 Item[15]=0x0F09 ;Mana
 Item[16]=0x0F0C ;GH
 Item[17]=0x0f0A ;Deadly P.
 Item[18]=0x0F09 ;Invis
 Item[19]=0x0F0B ;Refresh
 Item[20]=0x108A ;Ring
 Item[21]=0x1089 ;Necklace
 Item[22]=0x1086 ;Bracelet
 Item[23]=0x170B ;Boots
 Item[24]=0x153B ;Half Apron
 Item[25]=0x1EFD ;Shirt
 Item[26]=0x1f03 ;Robe
 Item[27]=0x1541 ;Sash
 Item[28]=0x0F3F ;Arrow
 dim Msg[28]
 Msg[1]='Kryss Found...'
 Msg[2]='Viking Found...'
 Msg[3]='Bow Found...'
 Msg[4]='Platemail Helm Found...'
 Msg[5]='Chainmail Coif Found...'
 Msg[6]='Platemail Chest Found...'
 Msg[7]='Chainmail Tunic Found...'
 Msg[8]='Platemail Arms Found...'
 Msg[9]='Chainmail Sleeves Found...'
 Msg[10]='Platemail Gorget Found...'
 Msg[11]='Platemail Gauntlets Found...'
 Msg[12]='Chainmail Gloves Found...'
 Msg[13]='Platemail Legs Found...'
 Msg[14]='Chainmail Leggings Found...'
 Msg[15]='Mana Found...'
 Msg[16]='Gh Found...'
 Msg[17]='Deadly P. Found...'
 Msg[18]='Invisibility Found...'
 Msg[19]='Refresh Found...'
 Msg[20]='Ring Found...'
 Msg[21]='Necklace Found...'
 Msg[22]='Bracelet Found...'
 Msg[23]='Boots Found...'
 Msg[24]='Half Apron Found...'
 Msg[25]='Shirt Found...'
 Msg[26]='Robe Found...'
 Msg[27]='Sash Found...'
 Msg[28]='Arrows Found...'
 uo.set('finddistance','3')
 uo.findtype('Corpo',-1,'ground')
 if uo.findcount() then
 wait(100)
 if uo.getcolor('finditem')=='0x0000' then
 uo.ignore('finditem')
 end if
 uo.print('Corpse Found')
 uo.waittargetobject('finditem')
 uo.usetype('0x0f51')
 wait(250)
 uo.ignore('finditem')
 end if
 uo.disarm()
 for i=1 to 28
 col=-1
 if i==15 then
 col=0x0480
 end if
 repeat
 uo.findtype(Item[i],col,'ground')
 if uo.findcount() then
 if not (i>6 && i<16 && uo.getcolor('finditem')=='0x0763') then
 uo.print(Msg[i])
 uo.click('finditem')
 wait(1350)
 uo.deletejournal()
 uo.grab(0,'finditem')
 uo.ignore('finditem')
 else
 uo.ignore('finditem')
 end if
 end if
 until uo.findcount()<1
 next
UO.UnSetReceivingContainer() 
end sub

 var limit=0
 dim Item[28]
   #Armas
 Item[1]=0x1400 ;Kryss
....
 Item[28]=0x0F3F ;Arrow

dim Item[29]

dim Item[29]

UO.IgnoreReset()