Routines and Source Code

[Arcane Wizard]

I'll start of with a menu routine, you put the title and options in Ans as a string and seperate them with "," and also end the string with "," before calling the routine. It returns the option that was chosen by the user in X.

"TITLE,OPTION1,OPTION2,OPTION3,OPTION4,OPTION5,OPTION6,"

ClrDraw
Ans->Str9 //put menu data in Str9
1->Dim(L1) //set up L1
1->X //prepare X
instring(str9,",")->L1(1) //get position of first "," and put it in L1(1
Ans->B //put same position in B
length(Str9)->A //length of Str9 in A

Repeat B=A //repeat until last "," has been stored
instring(sub(Str9,B+1,A-B),",")->L1(X+1 //store position of "," relative to last ","
X+1->X //next ","
sum(L1,1,X)->B //total of all "," positions from beginning of menu string, used as offset for finding next ","
End

Text(1,20,sub(Str9,1,L1(1)-1) //display title
For(X,1,Dim(L1)-1) //loop through options
Text(10+7(X-1),20,sub(Str9,sum(L1,1,X)+1,L1(X+1)-1)) //and display them
End

10+7(X-2)->A //max y position of cursor, 10+7*number of options-1
10->X //cursor position
Repeat B //repeat until 2nd or clear is pressed
getKey->K
If K:Text(X,10," ") //erase left cursor, 4 spaces
If K:Text(X,81," ") //erase right cursor, 4 spaces
X+7((K=34 and X<A)-(K=25 and X>10))->X //move cursor if it's more than 10 and less than max y position of cursor
Text(X,10,"{") //display left cursor
Text(X,81,"}") //display right cursor
(K=21 or K=45)->B //clear or 2nd pressed in B
End

(X-10)/7+1->X //option chosen in X

[JesusFreak]

i followed this just like you worte and got itt to work some what 2 things:
1) the erase doesn't work maybe i did it wronge but after checking a few times i have the same code as you did.
2) so how does he select the option, if he hits enter on optin1 how does he go to Lbl 1( i know they are bad but i still use them)??

[Arcane Wizard]

Oh, sorry for that, I forgot to add that it should be 4 spaces and to change the X coordinate for the 2nd cursor, it should be:
Text(X,10," " //4 spaces
Text(X,81," " //4 spaces

And here's an example of in game code:

GAME:
ClrDraw
AxesOff
Text(1,1,"THIS IS A GAME"
Pause
"MENU,NEW GAME,LOAD GAME,QUIT,"
prgmMENU //returns option chosen in X
If X=1:Goto NG
If X=2:Goto LG
If X=3:Goto QG
Lbl NG
ClrDraw
Text(1,1,"THIS IS A NEW GAME"
Pause
Goto MM
Lbl LG
ClrDraw
Text(1,1,"LOADING GAME..."
Pause
Goto MM
Lbl QG
ClrDraw
AxesOn
ClrHome

Menu:
//insert my menu routine here

[Darth Android]

Data Storage and Recall:

"NAME1::DATA1::NAME2::DATA2::->Str0
"NAME2->Str1

actuall program:

[Adm.Wiggin]

ya, in case we want to use commas...

[Arcane Wizard]

I have never heard, seen or programmed a menu option with a "," in it.

[JesusFreak]

is it okay if i use you prgm, if so do i need to put your name down for making it.

[Arcane Wizard]

Jup, that's why I posted it here, so people could use it in their programs. You dont have to add me to the credits or anything unless you feel you couldn't have written the code yourself, but it's up to you. I won't sue you or something, a 'thanks to' would be more than I expect.

[JesusFreak]

I will add your name ( a thanks to) b/c i didn't write the code so someone else did, and i can't take the credit for it, also is there a easier way to do that code multi. times with out repeating it??

[Arcane Wizard]

You could add it as a subroutine:

prgmGAME:
If Ø=1:Goto F1
Goto MM
Lbl F1
//put my menu routine here
Return
//rest of the game:
Lbl MM
1->Ø
"MENUNAME,OPT1,OPT2,OPT3,"
prgmGAME

[JesusFreak]

wow how did you know my game name?

[Arcane Wizard]

I'm a wizard. /joke

[JesusFreak]

no wonder you know so much!

[Arcane Wizard]

Anyway, if you wouldn't use it as a subroutine you would have to put the routine in another program like in the previous example and call that program, if you don't do that there's no point to the routine because if you put it in every time you have a menu it takes much more memory than just coding the menu and the whole point of the routine is to save memory.

[Darth Android]

my routine had nothing to do with Arcane Wizard's (Did u know that?)

[JesusFreak]

yes, you can you put the thing on here?

[Darth Android]

what is the "thing" u want me to put on here?

[JesusFreak]

sry, your routine?

[JesusFreak]

You could make one, try splitting code from menus you like and putting it together (you need to know the code well for this) or just start from scratch .
Look at other menus trick they did.

[Darth Android]

what do u want it to look like?