http://tifreakware.net/forum/viewtopic.php?f=87&t=131
http://www.cemetech.net/programs/index.php?mode=file&path=/prizm/SampleMenuPrizm.zip
I remember Sarah saying something about creating a item's system menu, and so after learning how lists work on the Prizm, I threw this sample program together. There are also 2 additional lists in there that if you change them to be the names of the first 2 lists, it will show how it works without being >7 items shown.
Feel free to ask questions if you don't understand any of the code.
Code:
http://www.cemetech.net/programs/index.php?mode=file&path=/prizm/SampleMenuPrizm.zip
I remember Sarah saying something about creating a item's system menu, and so after learning how lists work on the Prizm, I threw this sample program together. There are also 2 additional lists in there that if you change them to be the names of the first 2 lists, it will show how it works without being >7 items shown.
Feel free to ask questions if you don't understand any of the code.
Code:
'ProgramMode:RUN
ClrText
{1,2,3,4,5,6,7,8,9,10,11,12}->List 1
{5,6,1,2,0,5,7,3,5,0,0,5}->List 2
{1,2,5,6}->List 3
{5,5,5,5}->List 4
"POTIONETHER BREAD MUTTONWATER RUM SWORD SHIELDBOOTS CAP SHIRT PANTS "->Str 1
1->A
1->B
1->W
Dim List 1->C
While W=1
If List 1[B]>0
Then
Locate 3,1,StrMid(Str 1,(B*6)-5,6)
Locate 12,1," "
Locate 12,1,List 2[B]
IfEnd
If C>1
Then
If List 1[B+1]>0
Then
Locate 3,2,StrMid(Str 1,((B+1)*6)-5,6)
Locate 12,2," "
Locate 12,2,List 2[B+1]
IfEnd
IfEnd
If C>2
Then
If List 1[B+2]>0
Then
Locate 3,3,StrMid(Str 1,((B+2)*6)-5,6)
Locate 12,3," "
Locate 12,3,List 2[B+2]
IfEnd
IfEnd
If C>3
Then
If List 1[B+3]>0
Then
Locate 3,4,StrMid(Str 1,((B+3)*6)-5,6)
Locate 12,4," "
Locate 12,4,List 2[B+3]
IfEnd
IfEnd
If C>4
Then
If List 1[B+4]>0
Then
Locate 3,5,StrMid(Str 1,((B+4)*6)-5,6)
Locate 12,5," "
Locate 12,5,List 2[B+4]
IfEnd
IfEnd
If C>5
Then
If List 1[B+5]>0
Then
Locate 3,6,StrMid(Str 1,((B+5)*6)-5,6)
Locate 12,6," "
Locate 12,6,List 2[B+5]
IfEnd
IfEnd
If C>6
Then
If List 1[B+6]>0
Then
Locate 3,7,StrMid(Str 1,((B+6)*6)-5,6)
Locate 12,7," "
Locate 12,7,List 2[B+6]
IfEnd
IfEnd
2->W
While W=2
Cyan Locate 1,A,">"
Getkey->K
If K
Then
Locate 1,A," "
IfEnd
If K=28
Then
If A=1 And B>1
Then
B-1->B
1->W
IfEnd
If A>1
Then
A-1->A
IfEnd
IfEnd
If K=37
Then
If A=7 And B+6<Dim List 1
Then
B+1->B
1->W
IfEnd
If A<7 And A<C
Then
A+1->A
IfEnd
IfEnd
WhileEnd
WhileEnd