home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RA / QUES_221.ZIP / SAMPLES.ZIP / DEMOS.ZIP / GAME.Q-A < prev    next >
Encoding:
Text File  |  1990-07-04  |  1.8 KB  |  85 lines
  1.  
  2. :Logo
  3. clearscreen
  4. display "|"
  5. changecolor 14 4
  6. display "        ╔════════════════════════════════════════════╗       |"
  7. display "        ║                                            ║       |"
  8. display "        ║   █▀█ █ █ █▀▀ █▀▀     █▀█ █▀▀█ █▄ ▄█ █▀▀   ║       |"
  9. display "        ║   █▄█ █ █ █▀  ▀▀█ ▀▀▀ █▄█ █▀▀█ █ ▀ █ █▀    ║       |"
  10. display "        ║     █ ▀▀▀ ▀▀▀ ▀▀▀     ▄ █ ▀  ▀ ▀   ▀ ▀▀▀   ║       |"
  11. display "        ║     ▀                 ▀▀▀                  ║       |"
  12. changecolor 14 1
  13. display "   ┌──────────────────────────────────────────────────────┐  |"
  14. display "   │ A Simple Guess Game made with Quesdoor by R. Huiskes │  |"
  15. display "   └──────────────────────────────────────────────────────┘  |"
  16. changecolor 14
  17. display "    "
  18. gosublabel tIme
  19. display "|"
  20. :
  21.  
  22.  
  23. :top
  24. display "---> GUESS THE CORRECT NUMBER !|"
  25. display "     If you choose the same value as I'm thinking of know, you will|"
  26. display "     win 5 minutes extra !|"
  27. display "     But... If you're wrong, you loose 5 minutes !|"
  28. display "|"
  29. gotolabel guess
  30. :
  31.  
  32. :Time
  33. display "Timeleft on bbs : "
  34. Listtimeleft
  35. display " minutes|"
  36. :
  37.  
  38.  
  39. :guess
  40. display "Guess... Enter a number between 1 and 4 :"
  41. getchoice 1234 1
  42. display "|"
  43. random 4 2
  44. :
  45.  
  46. if 1 = 2
  47. beep
  48. beep
  49. beep
  50. display "Congratulations... You guess was right !|"
  51. display "It was number "
  52. display 2
  53. display " I was thinking of !!!|"
  54. display "|"
  55. settime +5
  56. display "Press <ENTER>"
  57. ask 0 3
  58. gotolabel Ask
  59. endif
  60.  
  61. ifnot 1 = 2
  62. display "I'm sorry... You didn't quessed right|"
  63. display "I was more thinking of "
  64. display 2
  65. display " !|"
  66. display "|"
  67. settime -5
  68. display "Press <ENTER>"
  69. ask 0 3
  70. endnotif
  71.  
  72.  
  73. :ask
  74. display "|"
  75. display "Do you want to try it again ? (y/N) "
  76. ask 1 10
  77.  
  78. if 10 = "y"
  79. gotolabel Logo
  80. endif
  81.  
  82. clearscreen
  83. delete game.asw
  84. quit
  85.