Помогите подправить скрипт на подщёт химии в паке

[-Old Kosyak-]

Как туда вставить ещё экспы и рефрешки!?
ЗАРАНЕЕ СПОСИБО!

sub countBottles()
var bottles = 3

dim bottleType[3]
dim bottleColor[3]
dim bottleName[3]

bottleType[0] = '0x0F09'
bottleType[1] = '0x0F0C'
bottleType[2] = '0x0F09'

bottleColor[0] = '0x0388'
bottleColor[1] = '0x0000'
bottleColor[2] = '0x0060'

bottleName[0] = 'Mana refresh'
bottleName[1] = 'Greater Heal'
bottleName[2] = 'Invisibilty'


uo.IgnoreReset()

var bottleCount
for var f = 0 to bottles - 1
bottleCount = 0
repeat
uo.FindType(bottleType[f], bottleColor[f])
if (uo.FindCount()) then
bottleCount = bottleCount + uo.GetQuantity('finditem')
uo.ignore('finditem')
end if
until uo.FindCount() == 0
uo.print(STR(bottleCount) + ' ' + bottleName[f])
next

uo.IgnoreReset()

end sub

[Tiny]

Code: Select all

dim bottleType[5] 
dim bottleColor[5] 
dim bottleName[5] 

bottleType[0] = '0x0F09' 
bottleType[1] = '0x0F0C' 
bottleType[2] = '0x0F09' 
bottleType[3] = 'тип рефрехи' 
bottleType[4] = 'тип инвизки' 

bottleColor[0] = '0x0388' 
bottleColor[1] = '0x0000' 
bottleColor[2] = '0x0060' 
bottleColor[3] = 'цвет рефрехи' 
bottleColor[4] = 'цвет инвизки' 

bottleName[0] = 'Mana refresh' 
bottleName[1] = 'Greater Heal' 
bottleName[2] = 'Invisibilty'
bottleName[3] = 'refresh' 
bottleName[4] = 'unvis' 

[-Old Kosyak-]

Да я уже сам додумался, но всё равно спосиб)