;
; Sample StarQuest section menu. Includes message area
; for player discussions.
;
; Define StarQuest HomePath directory and the Name of the Message Board.
; Note: This message board name must also be defined in CEDIT.
;
Equate: StarPath=C:\StarQues
Equate: StarBoard=STAR_QUEST
;
Macro: AnyUser
Priv=0 A1=-------- A2=-------- A3=-------- A4=-------- ANS=- IBM=-
EndMacro:
;
; ************************************************
; * M E N U S T A R . C T L *
; ************************************************
;
Menu: STAR
; ************************************************
; * First define the menu text for ANSI users *
; ************************************************
Entry:
^[[1;37;44m^[[2J
^[[8;23H^[[42m^[[1;37m╔════^[[0;7m StarQuest Messages ^[[42m^[[1;37m═════╗^[[40m
^[[9;23H^[[42m║ <L>eave A Message ║^[[40m ^[[44m ^[[0k
Priv=0 ANS=X
KEY=? TYPE=0
Entry:
^[[10;23H^[[42m║ <R>ead Messages ║^[[40m ^[[44m ^[[0k
^[[11;23H^[[42m║ <Q>uick Scan Messages ║^[[40m ^[[44m ^[[0k
Priv=0 ANS=X
KEY=? TYPE=0
Entry: ;This line blank for non-SYSOP user
^[[12;23H^[[42m║ ║^[[40m ^[[44m ^[[0k
Priv=0 ANS=X
KEY=? TYPE=0
Entry: ;If user is SYSOP, add the <E>ditor selection to menu text
^[[12;23H^[[42m║ <E>ditor ║^[[40m ^[[44m ^[[0k
Priv=255 ANS=X
KEY=? TYPE=0
Entry:
^[[13;23H^[[42m║ <P>lay StarQuest ║^[[40m ^[[44m ^[[0k
^[[14;23H^[[42m║ <T>op Ten Players ║^[[40m ^[[44m ^[[0k
Priv=0 ANS=X
KEY=? TYPE=0
Entry:
^[[15;23H^[[42m╟───────────────────────────────╢^[[40m ^[[44m ^[[0k
^[[16;23H^[[42m║ <0>Top, <->Prev, <G>oodbye ║^[[40m ^[[44m ^[[0k
^[[17;23H^[[42m╚═══════════════════════════════╝^[[40m ^[[44m ^[[0k
^[[18;25H^[[40m ^[[1;33m^[[44m
Priv=0 ANS=X
KEY=? TYPE=0
Entry: ;Finish with bottom color band for Command: to live in...
^[[25B^[[42m^[[1;37m^[[0K^[[1A^[[0K^[[1A^[[0K^[[1A
Priv=0 ANS=X
KEY=? TYPE=0
; ***************************************************
; * Now define the TTY (non-ANSI) text for menu *
; ***************************************************
Entry: ;This is the title for non-ANSI users
^NStarQuest Messages
─────────────────────────
<G>oodbye, <0>Top Menu
<->Prev Menu
Priv=0 ANS=.
KEY=? TYPE=0
Entry:
<L>eave A Message
Priv=0 ANS=.
KEY=? TYPE=0
Entry:
<R>ead Messages
Priv=0 ANS=.
KEY=? TYPE=0
Entry:
<Q>uick Scan Messages
Priv=0 ANS=.
KEY=? TYPE=0
Entry: ;This editor comand is only for the SYSOP so Priv=255
<E>ditor
Priv=255 ANS=.
KEY=? TYPE=0
Entry:
<P>lay StarQuest
Priv=0 ANS=.
KEY=? TYPE=0
Entry:
<T>op Ten Players
Priv=0 ANS=.
KEY=? TYPE=0
; ***************************************************
; * Now define the active commands for this menu *
; ***************************************************
Entry:
@AnyUser
KEY=L TYPE=7 Opt Data=@StarBoard
Entry:
@AnyUser
KEY=R TYPE=6 Opt Data=@StarBoard
Entry:
@AnyUser
KEY=Q TYPE=8 Opt Data=@StarBoard
Entry: ;<E>ditor command is only active for SYSOP so Priv=255
Priv=255
KEY=E TYPE=200 Opt Data=@StarPath+\STAREDIT/Q
Entry:
@AnyUser
KEY=P TYPE=200 Opt Data=@StarPath+\STARQUES/Q
Entry:
@AnyUser
KEY=T TYPE=1 Opt Data=@StarPath+\TOPTEN.TXT
Entry:
@AnyUser
KEY=G TYPE=45 Opt Data=TERM
Entry:
@AnyUser
KEY=0 TYPE=12 Opt Data=0
Entry:
@AnyUser
KEY=- TYPE=12 Opt Data=1
EndMenu: