A string is a type of variable. You wouldn't say "Potion$ = 1" You
could say "Potion$ = "1"" or "Potion = 1". They are incompatible data types.
I think the best way is to use arrays.
Like This:
numberofitems = 1
Dim items(numberofitems)
Dim items$(numberofitems)
Rem Put this somewhere:
Item(1) = 10
Item$(1) = "Potion"
Rem More items go here....
Rem Then put:
For x = 1 To numberofitems
If item(1) > 0 Then Print item$(1), ": ", item(1)
Next x
All programmers are playwrights and all computers are lousy actors." -Anon.
<--- Uh... Um... Oh I forgot