Card Guppies 2-3/GUPPIES.SDL
5.4 KB
39c5f9b9f78be73d…
Medit Compatible: OFF
;
;***** ANSI Code Equates
;
Equate: Cpos = ^[[%1;%2H
Equate: Black = ^[[0;30m
Equate: Red = ^[[0;31m
Equate: White = ^[[0;37m
Equate: BrtYel = ^[[1;33m
Equate: BlkScrn = ^[[40m
Equate: BluScrn = ^[[44m
Equate: CyaScrn = ^[[46m
Equate: WhtScrn = ^[[47m
Equate: CommandWht = ^[[25;1H^[[0;30;47m^[[0K^[[1A^[[0K^[[1A^[[0K^[[1A
Equate: CommandCya = ^[[25;1H^[[1;37;46m^[[0K^[[1A^[[0K^[[1A^[[0K^[[1A
;
;
;***** Drive and Path to where the Game Files
;
; **********************************************************************
; * Edit: 'GamePath = C:\GAME\' to change C:\GAME\ to where you want *
; * to place all of the .TPG, .DBF, and .NDX files. *
; **********************************************************************
;
Equate: GamePath = C:\GAME\
;
;
;***** Authorization Macros, Macro Names represent Classes of Users
;
; **********************************************************************
; * Edit: The following macros to fit the Priv and Auth flags you *
; * currently use. *
; **********************************************************************
;
Macro: NullUser
Priv= 0 A1=-------- A2=-------- A3=-------- A4=-------- ANS=- IBM=-
Macro: AnyUser
Priv= 25 A1=-------- A2=-------- A3=-------- A4=-------- ANS=- IBM=-
Macro: NormalUser
Priv= 30 A1=-------- A2=-------- A3=-------- A4=-------- ANS=- IBM=-
Macro: Sysop
Priv= 200 A1=-------X A2=-------- A3=-------- A4=-------- ANS=- IBM=-
EndMacro:
;
;
;***** General "End of Sub-Menu" repeating entries Macro
;
Macro: AllMenus
^N@Cpos(2,10)[M]ain-Menu [P]revious-Menu [G]ood-bye [T]ime [H]elp [O]perator
Entry:
@BrtYel+^[[2;11HM^[[2;23HP^[[2;39HG^[[2;50HT^[[2;57HH^[[2;64HO@White+@BluScrn
ANS=X
Entry:
@NullUser
Key=M Type=12 Opt Data=0
Entry:
@NullUser
Key=P Type=12 Opt Data=1
Entry:
@NullUser
Key=- Type=12 Opt Data=1
Entry:
@NullUser
Key=G Type=5 Opt Data=9999
Entry:
@NullUser
Key=T Type=11
; **********************************************************************
; * Edit: The following Entry to fit your system or remove if you *
; * do not currently use a help menu. Also be sure to remove *
; * the 'H' from HighLight Macro. *
; **********************************************************************
Entry:
@NullUser
Key=H Type=5 Opt Data=0010
Entry:
Priv= 25
Key=O Type=23
EndMacro:
Macro: Box3
@Cpos(9,12)@Black+@CyaScrn+╒═══════════════════════════════════════════════════════╕
@Cpos(10,12)│ │@BlkScrn+ @CyaScrn
@Cpos(11,12)│ │@BlkScrn+ @CyaScrn
@Cpos(12,12)│ │@BlkScrn+ @CyaScrn
@Cpos(13,12)│ │@BlkScrn+ @CyaScrn
@Cpos(14,12)│ │@BlkScrn+ @CyaScrn
@Cpos(15,12)╘═══════════════════════════════════════════════════════╛@BlkScrn+ @CyaScrn
@Cpos(16,14)@BlkScrn @CyaScrn
ANS=X
EndMacro:
Macro: Box9
@Black+@WhtScrn+@Cpos(12,26)╒══════ Log Off System ══════╕
@Cpos(13,26)│ │@BlkScrn+ @WhtScrn
@Cpos(14,26)│ │@BlkScrn+ @WhtScrn
@Cpos(15,26)│ │@BlkScrn+ @WhtScrn
@Cpos(16,26)╘════════════════════════════╛@BlkScrn+ @WhtScrn
@Cpos(17,28)@BlkScrn @WhtScrn
ANS=X
EndMacro:
;
;
;***** Define Menu GUPPIES
;
; **********************************************************************
; * Edit: 'Menu: GUPY' to change GUPY to what ever you want. This is *
; * what you put in OPT DATA= in the menu that will call this *
; * menu. *
; **********************************************************************
;
Menu: GUPY
Billing=0
Entry:
@AllMenus
Entry:
@Box3
Entry:
@Black@WhtScrn@Cpos(9,34) Card Guppies @Black@CyaScrn
ANS=X
Entry:
^N
Card Guppies
------------
ANS=.
Entry:
@Cpos(10,14)A> Play Card Guppies
@AnyUser
KEY=A TYPE=200 Opt Data=@GamePath+GUPPIES/Q
Entry:
@Cpos(12,14)E> Edit Player Data
@Sysop
KEY=E TYPE=200 Opt Data=@GamePath+GUPPISE/Q && /E
Entry:
@Cpos(10,40)1> High Scores This month
@AnyUser
KEY=1 TYPE=1 Opt Data=@GamePath+GUPPIES.TXT
Entry:
@Cpos(11,40)2> High Scores Last Month
@AnyUser
KEY=2 TYPE=1 Opt Data=@GamePath+GUPPIEL.TXT
Entry:
@Cpos(12,40)3> Top Players
@AnyUser
KEY=3 TYPE=1 Opt Data=@GamePath+GUPPIEH.TXT
Entry:
@BrtYel@CyaScrn@Cpos(10,14)A
@NormalUser
ANS=X
Entry:
@Cpos(10,40)1@Cpos(11,40)2@Cpos(12,40)3
@AnyUser
ANS=X
Entry:
@BrtYel@CyaScrn@Cpos(12,14)E
@Sysop
ANS=X
Entry:
@CommandCya
ANS=X
EndMenu:
;
;
;***** Define Menu 9999
;
Menu: 9999
Entry:
@Box9
Entry:
Log Off System
--------------
ANS=.
Entry:
@Cpos(13,28)C>omment - Leave message
KEY=C TYPE=7 Opt Data=MSG TO SYSOP
Entry:
@Cpos(14,28)R>eturn To Previous Menu
KEY=R TYPE=12 Opt Data=1
Entry:
@Cpos(15,28)G>ood-bye - Log off
KEY=G TYPE=10
Entry:
KEY=Y TYPE=7 Opt Data=MSG TO SYSOP
Entry:
KEY=N TYPE=10
Entry:
@Red+@WhtScrn+@Cpos(13,28)C@Cpos(14,28)R@Cpos(15,28)G
@CommandWht
ANS=X
EndMenu: