`Log("Param "+ GetParam(parse$))
`Log("failed to select")
`log("select end")
` id$=GetString(parse$)
function Load_Items()
open to read 4,"Data\Item.ini"
local sid$
Log("Opened Items.ini")
read string 4,parse$
repeat
if lower$(parse$)="[potion]"
Log("Read potion")
array insert at bottom Potions(0)
inc gl_potions
fail=1
for t=1 to 10
read string 4,parse$
st$=GetParam(parse$)
select st$
case "sid"
sid$="BLANK"
potions(gl_potions).sid=sid$
endcase
case "name"
potions(gl_potions).id=GetString(parse$)
endcase
case "unid"
potions(gl_potions).unid=GetString(parse$)
endcase
case "icon"
potions(gl_potions).media$=GetString(parse$)
endcase
case "mesh"
potions(gl_potions).mesh=GetString(parse$)
endcase
case "level"
potions(gl_potions).level=GetInt(parse$)
endcase
case "rarity"
potions(gl_potions).rarity=GetInt(parse$)
endcase
case default
fail=1
endcase
endselect
`Log("select finished")
if fail=1 then exit
next t
`until fail=1
else
read string 4,parse$
endif
until file end(2)=1
close file 4
endfunction