TIB: Re: IM DUMB, BIG FAVOR
[Prev][Next][Index][Thread]
TIB: Re: IM DUMB, BIG FAVOR
>
>Im so sorry, I really tried everything, but i can't figure out the help
things
>you guess have given me to have an items thing. I was wondering if anyone
>could make a complete code where you have 2 things-a shop and an item menu.
>At the shop you can get items, you dont need to buy them, just get them.
Then
>after you get one or 2 you go to the item screen and it tells what you have
>and dont have. Do you think any of you could do that for us all, thank you
>soooo much-Frank
>
This will save 6 Items. You can expand it to however many you want, but be
carefull not to try to display more than 8 lines at a time. The user can
only see the last 8.
:Menu("Welcome","Buy",A,"Inventory",B,"Exit,C)
:Lbl A
:7\->\dim INV
:Disp "Shop"
:Disp "1:Item1"
:Disp "2:Item2"
:Disp "3:Item3"
:Disp "4:Item4"
:Disp "5:Item5"
:Disp "6:Item6"
:Input "0=None ?",AA
:If AA==0:Goto B
:INV(AA)+1\->\INV(AA)
:Goto A
:
:Lbl B
:Disp "Inventory"
:Disp "Item1= "
:Disp "Item2= "
:Disp "Item3= "
:Disp "Item4= "
:Disp "Item5= "
:Disp "Item6= "
:For(AA,1,6)
:Outpt(1+AA,8,INV(AA))
:End
:Pause
:Lbl C
:Stop