It seems simple enough, return the chosen value and test for that value in the main loop. It doesn't work though. This is only my 3rd script, I'm sure it's somthing simple but I would appreciate any help. Thanks
REM Begin Game Loop
DO
Draw_Menus(1)
IF Choice# = 5 THEN END
REM End Game Loop
SYNC
LOOP
FUNCTION Write_Text(Message$,X,Y)
Set Cursor X,Y
Print Message$
ENDFUNCTION
FUNCTION Intro()
Width# = SCREEN WIDTH()
Height# = SCREEN HEIGHT()
Fade_Text("SYNAPSE",Width#/2,Height#/2,16,3000)
Fade_Text("Version 0.1a",Width#/2,(Height#/2),10,1000)
Fade_Text("Copyright 2002",Width#/2,(Height#/2),10,0)
Fade_Text("Synthetik Delusions",Width#/2,(Height#/2),10,1000)
ENDFUNCTION
FUNCTION Fade_Text (Message$,X,Y,size,delay#)
Tcolor# = 000
SET TEXT SIZE size
WHILE Tcolor# 0
INK RGB(Tcolor#,Tcolor#,Tcolor#),RGB(0,0,0)
Center Text X,Y,Message$
dec Tcolor#
SYNC
ENDWHILE
ENDFUNCTION
FUNCTION Draw_Menus(loc#)
IF loc# = 1: rem Main Menu
CreateBox(10,10,400,200,"Places","")
CreateBox(450,10,720,500,"Character Info","")
CreateBox(10,220,400,400,"Game Options","")
Menu_Write(1)
Set Cursor 10,520
INK RGB(255,255,255),RGB(0,0,0)
INPUT "Enter Your Choice: ", Choice#
ENDIF
ENDFUNCTION Choice#
FUNCTION CreateBox(TL1,TL2,BR1,BR2,MenuHead$,Message$)
rem ** COLOR VARIABLES **
BorderColor=RGB(200,0,0)
HeadColor1=RGB(200,0,0)
HeadColor2=RGB(100,100,100)
BoxBody1=RGB(200,100,255)
BoxBody2=RGB(200,100,200)
BoxBody3=RGB(100,100,100)
BoxBody4=RGB(200,50,100)
HeadTextSize=16
CloseTextSize=15
HeadtextColor=RGB(0,0,0)
CloseTextColor=RGB(0,0,0)
MessageTextColor=RGB(10,50,0)
CloseBorder1=RGB(50,50,50)
CloseBorder2=RGB(255,255,255)
CloseBgColor=RGB(100,100,100)
rem ** END VARIABLES **
rem ** DRAW BOX **
BOX TL1-1,TL2-1,BR1+1,BR2+1,BorderColor,BorderColor,BorderColor,BorderColor
BOX TL1,TL2,BR1,BR2,BoxBody1,BoxBody2,BoxBody3,BoxBody4
BOX TL1,TL2,BR1,TL2+20,HeadColor1,HeadColor1,HeadColor2,HeadColor2
SET TEXT SIZE HeadTextSize
INK HeadTextColor,HeadTextColor
SET TEXT TO BOLD
CENTER TEXT (BR1-((BR1-TL1)/2)),TL2+2,MenuHead$
INK MessageTextColor,MessageTextColor
SET TEXT TO NORMAL
TEXT (TL1+5),(TL2+25),Message$
ENDFUNCTION
FUNCTION Menu_Write(loc#)