ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/BBS/RA/QUES_221.ZIP/SAMPLES.ZIP/DEMOS.ZIP/BLAKJACK.Q-A

Text File | 1990-08-16 | 5.4 KB | 360 lines

:logo
clearscreen
changecolor 14 1
display "┌─────────────────────────────────────────────────┐|"
display "│   ▄▄  ▄    ▄▄   ▄▄▄ ▄   ▄    ▄  ▄▄   ▄▄▄ ▄   ▄  │|"
display "│  █  █ █   █  █ █    █  █     █ █  █ █    █  █   │|"
display "│  █▀▀▄ █   █▀▀█ █    █▀█      █ █▀▀█ █    █▀█    │|"
display "│  █▄▄▀ █▄▄ █  █ ▀▄▄▄ █  █  ▀▄▄▀ █  █ ▀▄▄▄ █  █   │|"
display "└─────────────────────────────────────────────────┘|"
changecolor 14 0
display "Made with Quesdoor by R. Huiskes      Time Left:"
Listtimeleft
display "|"
:

:help
display "|"
display "Welcome to the cardgame BlackJack|"
display "|"
display "This small game is a demonstration game for the|"
display "Extended Questionaire Language door.|"
display "|"
display "You can play this game against the computer.|"
display "You can bet your time left on the bbs, and if you win,|"
display "you get double the time you have bet !...|"
display "But, If you loose, then the time you bet will be|"
display "substracted from the time you have left !|"
display "|"
display "Do you want to play a game ? (Y/n) "
ask 1 4
if 4 = "n"
gotolabel end
endif
:

:vraag
clearscreen
gosublabel logo
display "|"
display "Great... Now you're talking...|"
display "|"
display "How many minutes do you want to bet ? (1-9) "
getchoice 123456789 4
display "|"
display "|"
display "Allright, if you win, you get "
display 4
display " minutes extra on the bbs...|"
display "But if the bank wins...."
display "you will have "
display 4
display " minutes less...|"
display "|"
display "Press <ENTER> to play"
ask 0 2
gosublabel logo
:


:Shuff
setvar 10 = "0"
setvar 11 = "0"
setvar 18 = "21"
display "Shuffling cards...|"
display "|"
:

:1st
display "Your first card: "
random 11 1
addvar 10 1
Listanswer 1
:

:2nd
display "Your second card: "
random 11 1
addvar 10 1
listanswer 1
setvar 20 = "2"
gotolabel value
:

:another
setvar 19 = "1"
addvar 20 19
display "Your "
display 20
display "th card: "
random 11 1
addvar 10 1
listanswer 1
:


:check
if 10 > 18
gotolabel tehoog
endif
:

:value
if 10 = "21"
gotolabel blackjack
endif
display "The total value of your cards is: "
listanswer 10
display "|"
display "Do you want <A>nother card or do you want to <P>ass ? (A/P) "
getchoice AP 2
display "|"
:

:choice
if 2 = "a"
gotolabel another
endif
:

:pass
clearscreen
setvar 19 = "1"
setvar 20 = "2"
display "You passed - Your value of cards: "
listanswer 10
display "|"
display "|"
display "Now let's look what the bank can do:|"
display "|"
display "Bank's first card: "
random 11 1
addvar 11 1
listanswer 11
display "Bank's second card: "
random 11 1
listanswer 1
addvar 11 1
display "Bank's total: "
listanswer 11
gotolabel bank
:

:take
addvar 20 19
display "Bank's "
display 20
display "th card: "
random 11 1
listanswer 1
addvar 11 1
display "Bank's total: "
listanswer 11
:

:tohigh
if 11 > 18
gotolabel oops
endif
:


:bank
if 11 = 18
gotolabel  bblackjack
endif
If 10 > 11
gotolabel take
endif
If 11 = 10
gotolabel equal
endif
if 11 > 10
gotolabel winbank
endif
:




:tehoog
beep
beep
Display "|"
Display "You bought yourself out....|"
display "The total value of your cards ("
display 10
display ") is above the 21 !|"
display "Y O U   L O S T !|"
display "|"
display "Press <ENTER>"
ask 0 2
gotolabel timin
:

:oops
beep
beep
beep
Display "|"
Display "Oopss...|"
display "The bank bought himself out....|"
display "|"
display "You WON ! Congratulations !|"
display "|"
display "Press <ENTER>"
ask 0 2
gotolabel tiplus
:

:Blackjack
display "|"
beep
beep
beep
display "B L A C K J A C K !!!|"
display "|"
display "Congratulations !|"
display "|"
display "Press <ENTER>"
ask 0 2
gotolabel tiplus
:


:BBlackjack
display "|"
beep
display "The Bank has BLACKJACK !|"
display "To bad, you lost !|"
display "|"
display "Press <ENTER>"
ask 0 2
gotolabel timin
:


:equal
beep
display "|"
display "Well, we're equal|"
display "Nobody won.... try it again !|"
display "|"
display "Press <ENTER>"
ask 0 2
gotolabel new
:

:winbank
if 10 > 11
gotolabel take
endif
beep
beep
beep
beep
display "|"
display "Haha, the bank won....|"
display "|"
display "Press <ENTER>"
ask 0 2
gotolabel timin
:



:end
display "|"
display "No hard feelings.... Returning you to the bbs|"
delete blakjack.asw
quit
:



:tiplus
gosublabel logo
display "|"
if 4 = "1"
settime +1
endif
if 4 = "2"
settime +2
endif
if 4 = "3"
settime +3
endif
if 4 = "4"
settime +4
endif
if 4 = "5"
settime +5
endif
if 4 = "6"
settime +6
endif
if 4 = "7"
settime +7
endif
if 4 = "8"
settime +8
endif
if 4 = "9"
settime +9
endif
display "Current time left on the bbs after your winning: |"
Listtimeleft
display " minutes.|"
gotolabel new
:


:timin
gosublabel logo
display "|"
if 4 = "1"
settime -1
endif
if 4 = "2"
settime -2
endif
if 4 = "3"
settime -3
endif
if 4 = "4"
settime -4
endif
if 4 = "5"
settime -5
endif
if 4 = "6"
settime -6
endif
if 4 = "7"
settime -7
endif
if 4 = "8"
settime -8
endif
if 4 = "9"
settime -9
endif
display "Current time left on the bbs after your lose:|"
listtimeleft
display " minutes.|"
gotolabel new
:

:new
display "|"
display "Do you want to try another game (y/N)"
ask 1 2
if 2 = "y"
gotolabel vraag
endif
delete blakjack.asw
quit
: