home *** CD-ROM | disk | FTP | other *** search
/ PC Joker 1998 June / JOKER0698B.mdf / Share / DosGames / DICEIT! / DATA / COMET.005 < prev    next >
Text File  |  1998-02-04  |  33KB  |  847 lines
  1. '
  2. '
  3. '
  4. '                                         
  5. '                  COMETWARE presents:
  6. '
  7. '                    D I C E  i t  !
  8. '
  9. '             (c) 1997 by Christopher C. Clay
  10. '                Alle Rechte vorbehalten
  11. '
  12. '
  13. '                        v1.0pcj                 
  14. '
  15. '
  16. '
  17. '
  18. '
  19. '
  20. '
  21. '
  22. '
  23. ON ERROR GOTO Fehler
  24.  
  25. q% = 1
  26. 1
  27. offen2% = 1
  28. offen3% = 1
  29. offen4% = 1
  30. offen5% = 1
  31. offen6% = 1
  32. offen7% = 1
  33. offen8% = 1
  34. offen9% = 1
  35.  
  36. pcoffen2% = 1
  37. pcoffen3% = 1
  38. pcoffen4% = 1
  39. pcoffen5% = 1
  40. pcoffen6% = 1
  41. pcoffen7% = 1
  42. pcoffen8% = 1
  43. pcoffen9% = 1
  44.  
  45. COLOR 7, 0
  46. SCREEN 0
  47. CLS
  48. 34
  49. LOCATE 12, 25: PRINT "PC-Speaker Sound <J>a / <N>ein ?"
  50. sound$ = INPUT$(1)
  51. IF sound$ = "J" THEN
  52.         mus% = 1
  53. ELSEIF sound$ = "j" THEN
  54.         mus% = 1
  55. ELSEIF sound$ = "N" THEN
  56.         mus% = 0
  57. ELSEIF sound$ = "n" THEN
  58.         mus% = 0
  59. ELSE GOTO 34
  60. END IF
  61. CLS
  62. COLOR 4
  63. PRINT "                 "
  64. PRINT "                 "
  65. PRINT "                             C O M E T W A R E                     "
  66. PRINT "         * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  "
  67. PRINT "         *         ___    __    ___   ___                        *      "
  68. PRINT "         *        |    \ |  | /  __|/  __|          ___          *      "
  69. PRINT "         *        | |\  ||  ||  |  |  |__          |   |         *      "
  70. PRINT "         *        | | | ||  ||  |  |   __|         |   |         *      "
  71. PRINT "         *        | |/  ||  ||  |__|  |__ _  ______|   |         *      "
  72. PRINT "         *        |____/ |__|_\____|\____| ||_    _|\_/          *      "
  73. PRINT "         *              /_____ /|       |  |  |  |   _           *      "
  74. PRINT "         *             |      | |       |  |  |  | /   \         *      "
  75. PRINT "         *             |      | |       |  |  |  | \___/         *      "
  76. PRINT "         *             |______|/        |__|  |__|               *      "
  77. PRINT "         *                                                       *      "
  78. PRINT "         * * * * * * * * * * * * * * * * * * * * * * * * * * * * *      "
  79. COLOR 1
  80. PRINT "                                                              v1.0"
  81. PRINT "                    Ein Spiel von CHRISTOPHER C. CLAY"
  82. PRINT "                               (c) 1997"
  83. PRINT "                                                "
  84.  
  85. COLOR 18
  86. PRINT "                        Beliebige Taste drücken  "
  87. COLOR 1
  88. 'q% = q% + 1
  89. 'IF q% = 20 THEN GOTO 10
  90. 'GOTO 1
  91. 10
  92. q$ = INPUT$(1)
  93. CLS
  94. COLOR 14, 0
  95.  LOCATE 2, 6: PRINT " DICE IT ! (c) by COMETWARE                     <W>ürfeln / <B>eenden! "
  96. COLOR 14, 1
  97.  LOCATE 3, 6: PRINT " ┌───────────────────────────────────────────────────────────────────┐ "
  98.  LOCATE 4, 6: PRINT " │   ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┐   │ "
  99.  LOCATE 5, 6: PRINT " │   │     │     │     │     │     │     │     │     │     │     │   │ "
  100.  LOCATE 6, 6: PRINT " │   │     │     │     │     │     │     │     │     │     │     │   │ "
  101.  LOCATE 7, 6: PRINT " │   │     │     │     │     │     │     │     │     │     │     │   │ "
  102.  LOCATE 8, 6: PRINT " │   └─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┘   │ "
  103.  LOCATE 9, 6: PRINT " │                                                                   │ "
  104. LOCATE 10, 6: PRINT " │                                                                   │ "
  105. LOCATE 11, 6: PRINT " │                                                                   │ "
  106. LOCATE 12, 6: PRINT " │                                                                   │ "
  107. LOCATE 13, 6: PRINT " │                                                                   │ "
  108. LOCATE 14, 6: PRINT " │                                                                   │ "
  109. LOCATE 15, 6: PRINT " │                                                                   │ "
  110. LOCATE 16, 6: PRINT " │                                                                   │ "
  111. LOCATE 17, 6: PRINT " │   ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┐   │ "
  112. LOCATE 18, 6: PRINT " │   │     │     │     │     │     │     │     │     │     │     │   │ "
  113. LOCATE 19, 6: PRINT " │   │     │     │     │     │     │     │     │     │     │     │   │ "
  114. LOCATE 20, 6: PRINT " │   │     │     │     │     │     │     │     │     │     │     │   │ "
  115. LOCATE 21, 6: PRINT " │   └─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┘   │ "
  116. LOCATE 22, 6: PRINT " └───────────────────────────────────────────────────────────────────┘ "
  117. COLOR 14, 0
  118. LOCATE 23, 6: PRINT " Ihre Entscheidung:   +                         (c) by Christopher Clay "
  119. COLOR 4, 1
  120. LOCATE 18, 19: PRINT "▀▀█"
  121. LOCATE 19, 19: PRINT "█▀▀"
  122. LOCATE 20, 19: PRINT "▀▀▀"
  123. LOCATE 18, 25: PRINT "▀▀█"
  124. LOCATE 19, 25: PRINT "▀▀█"
  125. LOCATE 20, 25: PRINT "▀▀▀"
  126. LOCATE 18, 31: PRINT "█  "
  127. LOCATE 19, 31: PRINT "█▄█"
  128. LOCATE 20, 31: PRINT "  ▀"
  129. LOCATE 18, 37: PRINT "█▀▀"
  130. LOCATE 19, 37: PRINT "▀▀█"
  131. LOCATE 20, 37: PRINT "▀▀▀"
  132. LOCATE 18, 43: PRINT "█▀▀"
  133. LOCATE 19, 43: PRINT "█▀█"
  134. LOCATE 20, 43: PRINT "▀▀▀"
  135. LOCATE 18, 49: PRINT "▀▀█"
  136. LOCATE 19, 49: PRINT "  █"
  137. LOCATE 20, 49: PRINT "  ▀"
  138. LOCATE 18, 55: PRINT "█▀█"
  139. LOCATE 19, 55: PRINT "█▀█"
  140. LOCATE 20, 55: PRINT "▀▀▀"
  141. LOCATE 18, 61: PRINT "█▀█"
  142. LOCATE 19, 61: PRINT "▀▀█"
  143. LOCATE 20, 61: PRINT "▀▀▀"
  144.               
  145. COLOR 2, 1
  146. LOCATE 5, 19: PRINT "▀▀█"
  147. LOCATE 6, 19: PRINT "█▀▀"
  148. LOCATE 7, 19: PRINT "▀▀▀"
  149. LOCATE 5, 25: PRINT "▀▀█"
  150. LOCATE 6, 25: PRINT "▀▀█"
  151. LOCATE 7, 25: PRINT "▀▀▀"
  152. LOCATE 5, 31: PRINT "█  "
  153. LOCATE 6, 31: PRINT "█▄█"
  154. LOCATE 7, 31: PRINT "  ▀"
  155. LOCATE 5, 37: PRINT "█▀▀"
  156. LOCATE 6, 37: PRINT "▀▀█"
  157. LOCATE 7, 37: PRINT "▀▀▀"
  158. LOCATE 5, 43: PRINT "█▀▀"
  159. LOCATE 6, 43: PRINT "█▀█"
  160. LOCATE 7, 43: PRINT "▀▀▀"
  161. LOCATE 5, 49: PRINT "▀▀█"
  162. LOCATE 6, 49: PRINT "  █"
  163. LOCATE 7, 49: PRINT "  ▀"
  164. LOCATE 5, 55: PRINT "█▀█"
  165. LOCATE 6, 55: PRINT "█▀█"
  166. LOCATE 7, 55: PRINT "▀▀▀"
  167. LOCATE 5, 61: PRINT "█▀█"
  168. LOCATE 6, 61: PRINT "▀▀█"
  169. LOCATE 7, 61: PRINT "▀▀▀"
  170.  
  171. COLOR 4, 1
  172.  
  173. COLOR 14
  174. LOCATE 13, 28: PRINT " Willkommen bei DICE IT !"
  175. COLOR 1, 0
  176.  LOCATE 2, 53: COLOR 30: PRINT "<W>ürfeln / <B>eenden "
  177.  
  178.  
  179. w$ = INPUT$(1)
  180.  
  181. IF w$ = "W" THEN GOTO Wuerfeln
  182. IF w$ = "w" THEN GOTO Wuerfeln
  183. IF w$ = "B" THEN GOTO Beenden
  184. IF w$ = "b" THEN GOTO Beenden
  185.  
  186.  
  187. Wuerfeln:
  188.  
  189. COLOR 14, 0
  190.  LOCATE 2, 6: PRINT " DICE IT ! (c) by COMETWARE                     Regeln siehe README.TXT"
  191.  
  192. RANDOMIZE TIMER
  193. w1% = INT(RND * 6) + 1
  194. w2% = INT(RND * 6) + 1
  195.                                             
  196. COLOR 4, 1
  197.  
  198. LOCATE 13, 28: PRINT "                         "
  199.  
  200.  
  201. 'Würfelanzeige 1
  202.  
  203. IF w1% = 1 THEN : LOCATE 11, 11: PRINT "  ███  "
  204. IF w1% = 1 THEN : LOCATE 12, 11: PRINT "   ██  "
  205. IF w1% = 1 THEN : LOCATE 13, 11: PRINT "   ██  "
  206. IF w1% = 1 THEN : LOCATE 14, 11: PRINT "   ██  "
  207. IF w1% = 2 THEN : LOCATE 11, 11: PRINT " █████ "
  208. IF w1% = 2 THEN : LOCATE 12, 11: PRINT " ▄▄▄██ "
  209. IF w1% = 2 THEN : LOCATE 13, 11: PRINT " ██▀▀▀ "
  210. IF w1% = 2 THEN : LOCATE 14, 11: PRINT " █████ "
  211. IF w1% = 3 THEN : LOCATE 11, 11: PRINT " █████ "
  212. IF w1% = 3 THEN : LOCATE 12, 11: PRINT " ▄▄▄██ "
  213. IF w1% = 3 THEN : LOCATE 13, 11: PRINT " ▀▀▀██ "
  214. IF w1% = 3 THEN : LOCATE 14, 11: PRINT " █████ "
  215. IF w1% = 4 THEN : LOCATE 11, 11: PRINT " ██    "
  216. IF w1% = 4 THEN : LOCATE 12, 11: PRINT " ██ ██ "
  217. IF w1% = 4 THEN : LOCATE 13, 11: PRINT " █████ "
  218. IF w1% = 4 THEN : LOCATE 14, 11: PRINT "    ██ "
  219. IF w1% = 5 THEN : LOCATE 11, 11: PRINT " █████ "
  220. IF w1% = 5 THEN : LOCATE 12, 11: PRINT " ██▄▄▄ "
  221. IF w1% = 5 THEN : LOCATE 13, 11: PRINT " ▀▀▀██ "
  222. IF w1% = 5 THEN : LOCATE 14, 11: PRINT " █████ "
  223. IF w1% = 6 THEN : LOCATE 11, 11: PRINT " █████ "
  224. IF w1% = 6 THEN : LOCATE 12, 11: PRINT " ██▄▄▄ "
  225. IF w1% = 6 THEN : LOCATE 13, 11: PRINT " ██▀██ "
  226. IF w1% = 6 THEN : LOCATE 14, 11: PRINT " █████ "
  227.  
  228. 'Würfelanzeige 2
  229.  
  230. IF w2% = 1 THEN : LOCATE 11, 65: PRINT "  ███  "
  231. IF w2% = 1 THEN : LOCATE 12, 65: PRINT "   ██  "
  232. IF w2% = 1 THEN : LOCATE 13, 65: PRINT "   ██  "
  233. IF w2% = 1 THEN : LOCATE 14, 65: PRINT "   ██  "
  234. IF w2% = 2 THEN : LOCATE 11, 65: PRINT " █████ "
  235. IF w2% = 2 THEN : LOCATE 12, 65: PRINT " ▄▄▄██ "
  236. IF w2% = 2 THEN : LOCATE 13, 65: PRINT " ██▀▀▀ "
  237. IF w2% = 2 THEN : LOCATE 14, 65: PRINT " █████ "
  238. IF w2% = 3 THEN : LOCATE 11, 65: PRINT " █████ "
  239. IF w2% = 3 THEN : LOCATE 12, 65: PRINT " ▄▄▄██ "
  240. IF w2% = 3 THEN : LOCATE 13, 65: PRINT " ▀▀▀██ "
  241. IF w2% = 3 THEN : LOCATE 14, 65: PRINT " █████ "
  242. IF w2% = 4 THEN : LOCATE 11, 65: PRINT " ██    "
  243. IF w2% = 4 THEN : LOCATE 12, 65: PRINT " ██ ██ "
  244. IF w2% = 4 THEN : LOCATE 13, 65: PRINT " █████ "
  245. IF w2% = 4 THEN : LOCATE 14, 65: PRINT "    ██ "
  246. IF w2% = 5 THEN : LOCATE 11, 65: PRINT " █████ "
  247. IF w2% = 5 THEN : LOCATE 12, 65: PRINT " ██▄▄▄ "
  248. IF w2% = 5 THEN : LOCATE 13, 65: PRINT " ▀▀▀██ "
  249. IF w2% = 5 THEN : LOCATE 14, 65: PRINT " █████ "
  250. IF w2% = 6 THEN : LOCATE 11, 65: PRINT " █████ "
  251. IF w2% = 6 THEN : LOCATE 12, 65: PRINT " ██▄▄▄ "
  252. IF w2% = 6 THEN : LOCATE 13, 65: PRINT " ██▀██ "
  253. IF w2% = 6 THEN : LOCATE 14, 65: PRINT " █████ "
  254.  
  255.  
  256. Summenanzeige:
  257. COLOR 14
  258. e% = w1% + w2%
  259.  IF e% = 2 THEN : LOCATE 11, 37: PRINT "  █████  "
  260.  IF e% = 2 THEN : LOCATE 12, 37: PRINT "  ▄▄▄██  "
  261.  IF e% = 2 THEN : LOCATE 13, 37: PRINT "  ██▀▀▀  "
  262.  IF e% = 2 THEN : LOCATE 14, 37: PRINT "  █████  "
  263.  IF e% = 3 THEN : LOCATE 11, 37: PRINT "  █████  "
  264.  IF e% = 3 THEN : LOCATE 12, 37: PRINT "  ▄▄▄██  "
  265.  IF e% = 3 THEN : LOCATE 13, 37: PRINT "  ▀▀▀██  "
  266.  IF e% = 3 THEN : LOCATE 14, 37: PRINT "  █████  "
  267.  IF e% = 4 THEN : LOCATE 11, 37: PRINT "  ██     "
  268.  IF e% = 4 THEN : LOCATE 12, 37: PRINT "  ██ ██  "
  269.  IF e% = 4 THEN : LOCATE 13, 37: PRINT "  █████  "
  270.  IF e% = 4 THEN : LOCATE 14, 37: PRINT "     ██  "
  271.  IF e% = 5 THEN : LOCATE 11, 37: PRINT "  █████  "
  272.  IF e% = 5 THEN : LOCATE 12, 37: PRINT "  ██▄▄▄  "
  273.  IF e% = 5 THEN : LOCATE 13, 37: PRINT "  ▀▀▀██  "
  274.  IF e% = 5 THEN : LOCATE 14, 37: PRINT "  █████  "
  275.  IF e% = 6 THEN : LOCATE 11, 37: PRINT "  █████  "
  276.  IF e% = 6 THEN : LOCATE 12, 37: PRINT "  ██▄▄▄  "
  277.  IF e% = 6 THEN : LOCATE 13, 37: PRINT "  ██▀██  "
  278.  IF e% = 6 THEN : LOCATE 14, 37: PRINT "  █████  "
  279.  IF e% = 7 THEN : LOCATE 11, 37: PRINT "  █████  "
  280.  IF e% = 7 THEN : LOCATE 12, 37: PRINT "     ██  "
  281.  IF e% = 7 THEN : LOCATE 13, 37: PRINT "     ██  "
  282.  IF e% = 7 THEN : LOCATE 14, 37: PRINT "     ██  "
  283.  IF e% = 8 THEN : LOCATE 11, 37: PRINT "  █████  "
  284.  IF e% = 8 THEN : LOCATE 12, 37: PRINT "  ██▄██  "
  285.  IF e% = 8 THEN : LOCATE 13, 37: PRINT "  ██▀██  "
  286.  IF e% = 8 THEN : LOCATE 14, 37: PRINT "  █████  "
  287.  IF e% = 9 THEN : LOCATE 11, 37: PRINT "  █████  "
  288.  IF e% = 9 THEN : LOCATE 12, 37: PRINT "  ██▄██  "
  289.  IF e% = 9 THEN : LOCATE 13, 37: PRINT "  ▀▀▀██  "
  290.  IF e% = 9 THEN : LOCATE 14, 37: PRINT "  █████  "
  291. IF e% = 10 THEN : LOCATE 11, 37: PRINT "███ █████"
  292. IF e% = 10 THEN : LOCATE 12, 37: PRINT " ██ ██ ██"
  293. IF e% = 10 THEN : LOCATE 13, 37: PRINT " ██ ██ ██"
  294. IF e% = 10 THEN : LOCATE 14, 37: PRINT " ██ █████"
  295. IF e% = 11 THEN : LOCATE 11, 37: PRINT " ███ ███ "
  296. IF e% = 11 THEN : LOCATE 12, 37: PRINT "  ██  ██ "
  297. IF e% = 11 THEN : LOCATE 13, 37: PRINT "  ██  ██ "
  298. IF e% = 11 THEN : LOCATE 14, 37: PRINT "  ██  ██ "
  299. IF e% = 12 THEN : LOCATE 11, 37: PRINT " ███ ████"
  300. IF e% = 12 THEN : LOCATE 12, 37: PRINT "  ██ ▄▄██"
  301. IF e% = 12 THEN : LOCATE 13, 37: PRINT "  ██ ██▀▀"
  302. IF e% = 12 THEN : LOCATE 14, 37: PRINT "  ██ ████"
  303.  
  304. ' Your Input
  305.  
  306. Yinput:
  307.  
  308. COLOR 0, 0
  309. LOCATE 23, 27: PRINT " "
  310. LOCATE 23, 26: PRINT "                  "
  311. LOCATE 23, 31: PRINT "                  "
  312. LOCATE 23, 40: COLOR 4, 0: PRINT "                                      "
  313. COLOR 14, 0
  314. LOCATE 23, 26: INPUT "", yinput1%
  315. IF yinput1% = A THEN LOCATE 23, 27: PRINT "0"
  316. LOCATE 23, 30: PRINT "und"
  317. LOCATE 23, 34: INPUT "", yinput2%
  318. LOCATE 23, 26: PRINT yinput1%; "und"; yinput2%
  319.  
  320. 'Nicht mögliche Angaben
  321.  
  322. IF yinput1% = 1 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsche Eingabe! Bitte wiederholen    ": SLEEP 2: GOTO Yinput
  323. IF yinput2% = 1 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsche Eingabe! Bitte wiederholen    ": SLEEP 2: GOTO Yinput
  324.  
  325. IF yinput1% = 2 AND offen2% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  326. IF yinput1% = 3 AND offen3% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  327. IF yinput1% = 4 AND offen4% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  328. IF yinput1% = 5 AND offen5% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  329. IF yinput1% = 6 AND offen6% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  330. IF yinput1% = 7 AND offen7% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  331. IF yinput1% = 8 AND offen8% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  332. IF yinput1% = 9 AND offen9% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  333. IF yinput2% = 2 AND offen2% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  334. IF yinput2% = 3 AND offen3% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  335. IF yinput2% = 4 AND offen4% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  336. IF yinput2% = 5 AND offen5% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  337. IF yinput2% = 6 AND offen6% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  338. IF yinput2% = 7 AND offen7% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  339. IF yinput2% = 8 AND offen8% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  340. IF yinput2% = 9 AND offen9% = 0 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Schon zu! Bitte wiederholen           ": SLEEP 2: GOTO Yinput
  341.           
  342. IF yinput1% = 2 AND yinput2% = 2 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  343. IF yinput1% = 3 AND yinput2% = 3 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  344. IF yinput1% = 4 AND yinput2% = 4 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  345. IF yinput1% = 5 AND yinput2% = 5 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  346. IF yinput1% = 6 AND yinput2% = 6 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  347. IF yinput1% = 7 AND yinput2% = 7 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  348. IF yinput1% = 8 AND yinput2% = 8 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  349. IF yinput1% = 9 AND yinput2% = 9 THEN LOCATE 23, 40: COLOR 20, 0: PRINT "Falsch! Bitte wiederholen             ": SLEEP 2: GOTO Yinput
  350.  
  351. 'überprüfung
  352. IF yinput1% = 0 AND yinput2% = 0 THEN
  353.         GOTO PCWuerfeln
  354. ELSEIF yinput1% = 100 THEN
  355.         GOTO Beenden
  356. ELSEIF yinput2% = 100 THEN
  357.         GOTO Beenden
  358. ELSEIF yinput1% + yinput2% = e% THEN
  359.         GOTO YAuswertung
  360. ELSE
  361.         LOCATE 23, 40
  362.         COLOR 20, 0
  363.         PRINT "FALSCH!! Bitte wiederholen!           "
  364.         SLEEP 2
  365.         GOTO Yinput
  366. END IF
  367.  
  368. 'beenden
  369.  
  370. 'cheats
  371.  
  372.  
  373.  
  374. YAuswertung:
  375.  
  376. COLOR 4, 1
  377. IF yinput1% = 2 OR yinput2% = 2 THEN LOCATE 18, 19: PRINT "███": offen2% = 0
  378. IF yinput1% = 2 OR yinput2% = 2 THEN LOCATE 19, 19: PRINT "███": offen2% = 0
  379. IF yinput1% = 2 OR yinput2% = 2 THEN LOCATE 20, 19: PRINT "▀▀▀": offen2% = 0
  380. IF yinput1% = 3 OR yinput2% = 3 THEN LOCATE 18, 25: PRINT "███": offen3% = 0
  381. IF yinput1% = 3 OR yinput2% = 3 THEN LOCATE 19, 25: PRINT "███": offen3% = 0
  382. IF yinput1% = 3 OR yinput2% = 3 THEN LOCATE 20, 25: PRINT "▀▀▀": offen3% = 0
  383. IF yinput1% = 4 OR yinput2% = 4 THEN LOCATE 18, 31: PRINT "███": offen4% = 0
  384. IF yinput1% = 4 OR yinput2% = 4 THEN LOCATE 19, 31: PRINT "███": offen4% = 0
  385. IF yinput1% = 4 OR yinput2% = 4 THEN LOCATE 20, 31: PRINT "▀▀▀": offen4% = 0
  386. IF yinput1% = 5 OR yinput2% = 5 THEN LOCATE 18, 37: PRINT "███": offen5% = 0
  387. IF yinput1% = 5 OR yinput2% = 5 THEN LOCATE 19, 37: PRINT "███": offen5% = 0
  388. IF yinput1% = 5 OR yinput2% = 5 THEN LOCATE 20, 37: PRINT "▀▀▀": offen5% = 0
  389. IF yinput1% = 6 OR yinput2% = 6 THEN LOCATE 18, 43: PRINT "███": offen6% = 0
  390. IF yinput1% = 6 OR yinput2% = 6 THEN LOCATE 19, 43: PRINT "███": offen6% = 0
  391. IF yinput1% = 6 OR yinput2% = 6 THEN LOCATE 20, 43: PRINT "▀▀▀": offen6% = 0
  392. IF yinput1% = 7 OR yinput2% = 7 THEN LOCATE 18, 49: PRINT "███": offen7% = 0
  393. IF yinput1% = 7 OR yinput2% = 7 THEN LOCATE 19, 49: PRINT "███": offen7% = 0
  394. IF yinput1% = 7 OR yinput2% = 7 THEN LOCATE 20, 49: PRINT "▀▀▀": offen7% = 0
  395. IF yinput1% = 8 OR yinput2% = 8 THEN LOCATE 18, 55: PRINT "███": offen8% = 0
  396. IF yinput1% = 8 OR yinput2% = 8 THEN LOCATE 19, 55: PRINT "███": offen8% = 0
  397. IF yinput1% = 8 OR yinput2% = 8 THEN LOCATE 20, 55: PRINT "▀▀▀": offen8% = 0
  398. IF yinput1% = 9 OR yinput2% = 9 THEN LOCATE 18, 61: PRINT "███": offen9% = 0
  399. IF yinput1% = 9 OR yinput2% = 9 THEN LOCATE 19, 61: PRINT "███": offen9% = 0
  400. IF yinput1% = 9 OR yinput2% = 9 THEN LOCATE 20, 61: PRINT "▀▀▀": offen9% = 0
  401.  
  402. IF offen2% = 0 AND offen3% = 0 AND offen4% = 0 AND offen5% = 0 AND offen6% = 0 AND offen7% = 0 AND offen8% = 0 AND offen9% = 0 THEN GOTO YouWin
  403.  
  404. IF mus% = 0 THEN GOTO 88
  405. RANDOMIZE TIMER
  406. musik% = INT(RND * 11) + 1
  407. IF musik% = 1 THEN : PLAY "MBT100MSO0L13EACCFG"
  408. IF musik% = 2 THEN : PLAY "MBT100MSO0L13DDCEE"
  409. IF musik% = 3 THEN : PLAY "MBT100MSO0L13GEL10C"
  410. IF musik% = 4 THEN : PLAY "MBT100MSO0L8CL16DFGB"
  411. IF musik% = 5 THEN : PLAY "MBT100MSO0L13ACCADL10F"
  412. IF musik% = 6 THEN : PLAY "MBT100MSO1L13EL8GDC"
  413. IF musik% = 7 THEN : PLAY "MBT100MSO1L13FFL20CGGFC"
  414. IF musik% = 8 THEN : PLAY "MBT100MSO1L13DFDFCCC"
  415. IF musik% = 9 THEN : PLAY "MBT100MSO0L13EDL10DC"
  416. IF musik% = 10 THEN : PLAY "MBT100MSO0L13CAACL20F"
  417. IF musik% = 11 THEN : PLAY "MBT100MSO0L15FFDL10DE"
  418. 88
  419.  
  420.  
  421.  
  422. PCWuerfeln:
  423.  
  424.  
  425. RANDOMIZE TIMER
  426. pcw1% = INT(RND * 6) + 1
  427. pcw2% = INT(RND * 6) + 1
  428.  
  429. ' PC Würfelanzeige 1
  430.  
  431. COLOR 2, 1
  432. IF pcw1% = 1 THEN : LOCATE 11, 11: PRINT "  ███  "
  433. IF pcw1% = 1 THEN : LOCATE 12, 11: PRINT "   ██  "
  434. IF pcw1% = 1 THEN : LOCATE 13, 11: PRINT "   ██  "
  435. IF pcw1% = 1 THEN : LOCATE 14, 11: PRINT "   ██  "
  436. IF pcw1% = 2 THEN : LOCATE 11, 11: PRINT " █████ "
  437. IF pcw1% = 2 THEN : LOCATE 12, 11: PRINT " ▄▄▄██ "
  438. IF pcw1% = 2 THEN : LOCATE 13, 11: PRINT " ██▀▀▀ "
  439. IF pcw1% = 2 THEN : LOCATE 14, 11: PRINT " █████ "
  440. IF pcw1% = 3 THEN : LOCATE 11, 11: PRINT " █████ "
  441. IF pcw1% = 3 THEN : LOCATE 12, 11: PRINT " ▄▄▄██ "
  442. IF pcw1% = 3 THEN : LOCATE 13, 11: PRINT " ▀▀▀██ "
  443. IF pcw1% = 3 THEN : LOCATE 14, 11: PRINT " █████ "
  444. IF pcw1% = 4 THEN : LOCATE 11, 11: PRINT " ██    "
  445. IF pcw1% = 4 THEN : LOCATE 12, 11: PRINT " ██ ██ "
  446. IF pcw1% = 4 THEN : LOCATE 13, 11: PRINT " █████ "
  447. IF pcw1% = 4 THEN : LOCATE 14, 11: PRINT "    ██ "
  448. IF pcw1% = 5 THEN : LOCATE 11, 11: PRINT " █████ "
  449. IF pcw1% = 5 THEN : LOCATE 12, 11: PRINT " ██▄▄▄ "
  450. IF pcw1% = 5 THEN : LOCATE 13, 11: PRINT " ▀▀▀██ "
  451. IF pcw1% = 5 THEN : LOCATE 14, 11: PRINT " █████ "
  452. IF pcw1% = 6 THEN : LOCATE 11, 11: PRINT " █████ "
  453. IF pcw1% = 6 THEN : LOCATE 12, 11: PRINT " ██▄▄▄ "
  454. IF pcw1% = 6 THEN : LOCATE 13, 11: PRINT " ██▀██ "
  455. IF pcw1% = 6 THEN : LOCATE 14, 11: PRINT " █████ "
  456.  
  457. 'PC Würfelanzeige 2
  458.       
  459. IF pcw2% = 1 THEN : LOCATE 11, 65: PRINT "  ███  "
  460. IF pcw2% = 1 THEN : LOCATE 12, 65: PRINT "   ██  "
  461. IF pcw2% = 1 THEN : LOCATE 13, 65: PRINT "   ██  "
  462. IF pcw2% = 1 THEN : LOCATE 14, 65: PRINT "   ██  "
  463. IF pcw2% = 2 THEN : LOCATE 11, 65: PRINT " █████ "
  464. IF pcw2% = 2 THEN : LOCATE 12, 65: PRINT " ▄▄▄██ "
  465. IF pcw2% = 2 THEN : LOCATE 13, 65: PRINT " ██▀▀▀ "
  466. IF pcw2% = 2 THEN : LOCATE 14, 65: PRINT " █████ "
  467. IF pcw2% = 3 THEN : LOCATE 11, 65: PRINT " █████ "
  468. IF pcw2% = 3 THEN : LOCATE 12, 65: PRINT " ▄▄▄██ "
  469. IF pcw2% = 3 THEN : LOCATE 13, 65: PRINT " ▀▀▀██ "
  470. IF pcw2% = 3 THEN : LOCATE 14, 65: PRINT " █████ "
  471. IF pcw2% = 4 THEN : LOCATE 11, 65: PRINT " ██    "
  472. IF pcw2% = 4 THEN : LOCATE 12, 65: PRINT " ██ ██ "
  473. IF pcw2% = 4 THEN : LOCATE 13, 65: PRINT " █████ "
  474. IF pcw2% = 4 THEN : LOCATE 14, 65: PRINT "    ██ "
  475. IF pcw2% = 5 THEN : LOCATE 11, 65: PRINT " █████ "
  476. IF pcw2% = 5 THEN : LOCATE 12, 65: PRINT " ██▄▄▄ "
  477. IF pcw2% = 5 THEN : LOCATE 13, 65: PRINT " ▀▀▀██ "
  478. IF pcw2% = 5 THEN : LOCATE 14, 65: PRINT " █████ "
  479. IF pcw2% = 6 THEN : LOCATE 11, 65: PRINT " █████ "
  480. IF pcw2% = 6 THEN : LOCATE 12, 65: PRINT " ██▄▄▄ "
  481. IF pcw2% = 6 THEN : LOCATE 13, 65: PRINT " ██▀██ "
  482. IF pcw2% = 6 THEN : LOCATE 14, 65: PRINT " █████ "
  483.     
  484.  
  485. PCSummenanzeige:
  486. COLOR 14, 1
  487. r% = pcw1% + pcw2%
  488.  IF r% = 2 THEN : LOCATE 11, 37: PRINT "  █████  "
  489.  IF r% = 2 THEN : LOCATE 12, 37: PRINT "  ▄▄▄██  "
  490.  IF r% = 2 THEN : LOCATE 13, 37: PRINT "  ██▀▀▀  "
  491.  IF r% = 2 THEN : LOCATE 14, 37: PRINT "PC█████  "
  492.  IF r% = 3 THEN : LOCATE 11, 37: PRINT "  █████  "
  493.  IF r% = 3 THEN : LOCATE 12, 37: PRINT "  ▄▄▄██  "
  494.  IF r% = 3 THEN : LOCATE 13, 37: PRINT "  ▀▀▀██  "
  495.  IF r% = 3 THEN : LOCATE 14, 37: PRINT "PC█████  "
  496.  IF r% = 4 THEN : LOCATE 11, 37: PRINT "  ██     "
  497.  IF r% = 4 THEN : LOCATE 12, 37: PRINT "  ██ ██  "
  498.  IF r% = 4 THEN : LOCATE 13, 37: PRINT "  █████  "
  499.  IF r% = 4 THEN : LOCATE 14, 37: PRINT "PC   ██  "
  500.  IF r% = 5 THEN : LOCATE 11, 37: PRINT "  █████  "
  501.  IF r% = 5 THEN : LOCATE 12, 37: PRINT "  ██▄▄▄  "
  502.  IF r% = 5 THEN : LOCATE 13, 37: PRINT "  ▀▀▀██  "
  503.  IF r% = 5 THEN : LOCATE 14, 37: PRINT "PC█████  "
  504.  IF r% = 6 THEN : LOCATE 11, 37: PRINT "  █████  "
  505.  IF r% = 6 THEN : LOCATE 12, 37: PRINT "  ██▄▄▄  "
  506.  IF r% = 6 THEN : LOCATE 13, 37: PRINT "  ██▀██  "
  507.  IF r% = 6 THEN : LOCATE 14, 37: PRINT "PC█████  "
  508.  IF r% = 7 THEN : LOCATE 11, 37: PRINT "  █████  "
  509.  IF r% = 7 THEN : LOCATE 12, 37: PRINT "     ██  "
  510.  IF r% = 7 THEN : LOCATE 13, 37: PRINT "     ██  "
  511.  IF r% = 7 THEN : LOCATE 14, 37: PRINT "PC   ██  "
  512.  IF r% = 8 THEN : LOCATE 11, 37: PRINT "  █████  "
  513.  IF r% = 8 THEN : LOCATE 12, 37: PRINT "  ██▄██  "
  514.  IF r% = 8 THEN : LOCATE 13, 37: PRINT "  ██▀██  "
  515.  IF r% = 8 THEN : LOCATE 14, 37: PRINT "PC█████  "
  516.  IF r% = 9 THEN : LOCATE 11, 37: PRINT "  █████  "
  517.  IF r% = 9 THEN : LOCATE 12, 37: PRINT "  ██▄██  "
  518.  IF r% = 9 THEN : LOCATE 13, 37: PRINT "  ▀▀▀██  "
  519.  IF r% = 9 THEN : LOCATE 14, 37: PRINT "PC█████  "
  520. IF r% = 10 THEN : LOCATE 11, 37: PRINT "███ █████"
  521. IF r% = 10 THEN : LOCATE 12, 37: PRINT " ██ ██ ██"
  522. IF r% = 10 THEN : LOCATE 13, 37: PRINT " ██ ██ ██"
  523. IF r% = 10 THEN : LOCATE 14, 37: PRINT "PC█ █████"
  524. IF r% = 11 THEN : LOCATE 11, 37: PRINT " ███ ███ "
  525. IF r% = 11 THEN : LOCATE 12, 37: PRINT "  ██  ██ "
  526. IF r% = 11 THEN : LOCATE 13, 37: PRINT "  ██  ██ "
  527. IF r% = 11 THEN : LOCATE 14, 37: PRINT "PC██  ██ "
  528. IF r% = 12 THEN : LOCATE 11, 37: PRINT " ███ ████"
  529. IF r% = 12 THEN : LOCATE 12, 37: PRINT "  ██ ▄▄██"
  530. IF r% = 12 THEN : LOCATE 13, 37: PRINT "  ██ ██▀▀"
  531. IF r% = 12 THEN : LOCATE 14, 37: PRINT "PC██ ████"
  532. SLEEP 2
  533.  
  534.  
  535. PCInput:
  536.  
  537.  
  538. IF r% = 2 AND pcoffen2% = 1 THEN
  539.         pcinput1% = 2
  540.         pcinput2% = 0
  541.         GOTO PCAuswertung
  542. END IF
  543. IF r% = 3 AND pcoffen3% = 1 THEN
  544.         pcinput1% = 3
  545.         pcinput2% = 0
  546.         GOTO PCAuswertung
  547. END IF
  548. IF r% = 4 AND pcoffen4% = 1 THEN
  549.         pcinput1% = 4
  550.         pcinput2% = 0
  551.         GOTO PCAuswertung
  552. END IF
  553. IF r% = 5 AND pcoffen5% = 1 THEN
  554.         pcinput1% = 5
  555.         pcinput2% = 0
  556.         GOTO PCAuswertung
  557. END IF
  558. IF r% = 6 AND pcoffen6% = 1 THEN
  559.         pcinput1% = 6
  560.         pcinput2% = 0
  561.         GOTO PCAuswertung
  562. END IF
  563. IF r% = 7 AND pcoffen7% = 1 THEN
  564.         pcinput1% = 7
  565.         pcinput2% = 0
  566.         GOTO PCAuswertung
  567. END IF
  568. IF r% = 8 AND pcoffen8% = 1 THEN
  569.         pcinput1% = 8
  570.         pcinput2% = 0
  571.         GOTO PCAuswertung
  572. END IF
  573. IF r% = 9 AND pcoffen9% = 1 THEN
  574.         pcinput1% = 9
  575.         pcinput2% = 0
  576.         GOTO PCAuswertung
  577. END IF
  578.  
  579. IF r% = 2 AND pcoffen2% = 0 THEN
  580.         pcinput1% = 0
  581.         pcinput2% = 0
  582.         GOTO PCAuswertung
  583. END IF
  584.  
  585.  
  586. IF r% = 3 AND pcoffen3% = 0 THEN
  587.         pcinput1% = 0
  588.         pcinput2% = 0
  589.         GOTO PCAuswertung
  590. END IF
  591. IF r% = 4 AND pcoffen4% = 0 THEN
  592.         pcinput1% = 0
  593.         pcinput2% = 0
  594.         GOTO PCAuswertung
  595. END IF
  596.  
  597. IF r% = 5 AND pcoffen3% = 1 AND pcoffen2% = 1 THEN
  598.         pcinput1% = 3
  599.         pcinput2% = 2
  600.         GOTO PCAuswertung
  601. END IF
  602. IF r% = 6 AND pcoffen4% = 1 AND pcoffen2% = 1 THEN
  603.         pcinput1% = 4
  604.         pcinput2% = 2
  605.         GOTO PCAuswertung
  606. END IF
  607. IF r% = 7 AND pcoffen5% = 1 AND pcoffen2% = 1 THEN
  608.         pcinput1% = 5
  609.         pcinput2% = 2
  610.         GOTO PCAuswertung
  611. END IF
  612. IF r% = 8 AND pcoffen6% = 1 AND pcoffen2% = 1 THEN
  613.         pcinput1% = 6
  614.         pcinput2% = 2
  615.         GOTO PCAuswertung
  616. END IF
  617. IF r% = 9 AND pcoffen7% = 1 AND pcoffen2% = 1 THEN
  618.         pcinput1% = 7
  619.         pcinput2% = 2
  620.         GOTO PCAuswertung
  621. END IF
  622. IF r% = 10 AND pcoffen8% = 1 AND pcoffen2% = 1 THEN
  623.         pcinput1% = 8
  624.         pcinput2% = 2
  625.         GOTO PCAuswertung
  626. END IF
  627. IF r% = 11 AND pcoffen9% = 1 AND pcoffen2% = 1 THEN
  628.         pcinput1% = 9
  629.         pcinput2% = 2
  630.         GOTO PCAuswertung
  631. END IF
  632.  
  633.  
  634. IF r% = 5 AND pcoffen5% = 0 THEN
  635.         pcinput1% = 0
  636.         pcinput2% = 0
  637.         GOTO PCAuswertung
  638. END IF
  639. IF r% = 6 AND pcoffen6% = 1 THEN
  640.         pcinput1% = 0
  641.         pcinput2% = 0
  642.         GOTO PCAuswertung
  643. END IF
  644. IF r% = 7 AND pcoffen4% = 1 AND pcoffen3% = 1 THEN
  645.         pcinput1% = 4
  646.         pcinput2% = 3
  647.         GOTO PCAuswertung
  648. END IF
  649. IF r% = 8 AND pcoffen5% = 1 AND pcoffen3% = 1 THEN
  650.         pcinput1% = 5
  651.         pcinput2% = 3
  652.         GOTO PCAuswertung
  653. END IF
  654. IF r% = 9 AND pcoffen6% = 1 AND pcoffen3% = 1 THEN
  655.         pcinput1% = 6
  656.         pcinput2% = 3
  657.         GOTO PCAuswertung
  658. END IF
  659. IF r% = 10 AND pcoffen7% = 1 AND pcoffen3% = 1 THEN
  660.         pcinput1% = 7
  661.         pcinput2% = 3
  662.         GOTO PCAuswertung
  663. END IF
  664. IF r% = 11 AND pcoffen8% = 1 AND pcoffen3% = 1 THEN
  665.         pcinput1% = 8
  666.         pcinput2% = 3
  667.         GOTO PCAuswertung
  668. END IF
  669. IF r% = 12 AND pcoffen9% = 1 AND pcoffen3% = 1 THEN
  670.         pcinput1% = 9
  671.         pcinput2% = 3
  672.         GOTO PCAuswertung
  673. END IF
  674.                      
  675. IF r% = 7 AND pcoffen7% = 0 THEN
  676.         pcinput1% = 0
  677.         pcinput2% = 0
  678.         GOTO PCAuswertung
  679. END IF
  680. IF r% = 8 AND pcoffen8% = 0 THEN
  681.         pcinput1% = 0
  682.         pcinput2% = 0
  683.         GOTO PCAuswertung
  684. END IF
  685. IF r% = 9 AND pcoffen5% = 1 AND pcoffen4% = 1 THEN
  686.         pcinput1% = 5
  687.         pcinput2% = 4
  688.         GOTO PCAuswertung
  689. END IF
  690. IF r% = 10 AND pcoffen6% = 1 AND pcoffen4% = 1 THEN
  691.         pcinput1% = 6
  692.         pcinput2% = 4
  693.         GOTO PCAuswertung
  694. END IF
  695. IF r% = 11 AND pcoffen7% = 1 AND pcoffen4% = 1 THEN
  696.         pcinput1% = 7
  697.         pcinput2% = 4
  698.         GOTO PCAuswertung
  699. END IF
  700. IF r% = 12 AND pcoffen8% = 1 AND pcoffen4% = 1 THEN
  701.         pcinput1% = 8
  702.         pcinput2% = 4
  703.         GOTO PCAuswertung
  704. END IF
  705.  
  706. IF r% = 10 THEN
  707.         pcinput1% = 0
  708.         pcinput2% = 0
  709.         GOTO PCAuswertung
  710. END IF
  711. IF r% = 11 AND pcoffen6% = 1 AND pcoffen5% = 1 THEN
  712.         pcinput1% = 6
  713.         pcinput2% = 5
  714.         GOTO PCAuswertung
  715. END IF
  716. IF r% = 12 AND pcoffen7% = 1 AND pcoffen5% = 1 THEN
  717.         pcinput1% = 7
  718.         pcinput2% = 5
  719.         GOTO PCAuswertung
  720. END IF
  721.  
  722. IF r% = 11 THEN
  723.         pcinput1% = 0
  724.         pcinput2% = 0
  725.         GOTO PCAuswertung
  726. END IF
  727. IF r% = 12 THEN
  728.         pcinput1% = 0
  729.         pcinput2% = 0
  730.         GOTO PCAuswertung
  731. END IF
  732. IF r% = 9 AND pcoffen9% = 0 THEN
  733.         pcinput1% = 0
  734.         pcinput2% = 0
  735.         GOTO PCAuswertung
  736. END IF
  737.  
  738.  
  739.  
  740.  
  741. PCAuswertung:
  742.  
  743. COLOR 2, 1
  744. IF pcinput1% = 2 OR pcinput2% = 2 THEN LOCATE 5, 19: PRINT "███": pcoffen2% = 0
  745. IF pcinput1% = 2 OR pcinput2% = 2 THEN LOCATE 6, 19: PRINT "███": pcoffen2% = 0
  746. IF pcinput1% = 2 OR pcinput2% = 2 THEN LOCATE 7, 19: PRINT "▀▀▀": pcoffen2% = 0
  747. IF pcinput1% = 3 OR pcinput2% = 3 THEN LOCATE 5, 25: PRINT "███": pcoffen3% = 0
  748. IF pcinput1% = 3 OR pcinput2% = 3 THEN LOCATE 6, 25: PRINT "███": pcoffen3% = 0
  749. IF pcinput1% = 3 OR pcinput2% = 3 THEN LOCATE 7, 25: PRINT "▀▀▀": pcoffen3% = 0
  750. IF pcinput1% = 4 OR pcinput2% = 4 THEN LOCATE 5, 31: PRINT "███": pcoffen4% = 0
  751. IF pcinput1% = 4 OR pcinput2% = 4 THEN LOCATE 6, 31: PRINT "███": pcoffen4% = 0
  752. IF pcinput1% = 4 OR pcinput2% = 4 THEN LOCATE 7, 31: PRINT "▀▀▀": pcoffen4% = 0
  753. IF pcinput1% = 5 OR pcinput2% = 5 THEN LOCATE 5, 37: PRINT "███": pcoffen5% = 0
  754. IF pcinput1% = 5 OR pcinput2% = 5 THEN LOCATE 6, 37: PRINT "███": pcoffen5% = 0
  755. IF pcinput1% = 5 OR pcinput2% = 5 THEN LOCATE 7, 37: PRINT "▀▀▀": pcoffen5% = 0
  756. IF pcinput1% = 6 OR pcinput2% = 6 THEN LOCATE 5, 43: PRINT "███": pcoffen6% = 0
  757. IF pcinput1% = 6 OR pcinput2% = 6 THEN LOCATE 6, 43: PRINT "███": pcoffen6% = 0
  758. IF pcinput1% = 6 OR pcinput2% = 6 THEN LOCATE 7, 43: PRINT "▀▀▀": pcoffen6% = 0
  759. IF pcinput1% = 7 OR pcinput2% = 7 THEN LOCATE 5, 49: PRINT "███": pcoffen7% = 0
  760. IF pcinput1% = 7 OR pcinput2% = 7 THEN LOCATE 6, 49: PRINT "███": pcoffen7% = 0
  761. IF pcinput1% = 7 OR pcinput2% = 7 THEN LOCATE 7, 49: PRINT "▀▀▀": pcoffen7% = 0
  762. IF pcinput1% = 8 OR pcinput2% = 8 THEN LOCATE 5, 55: PRINT "███": pcoffen8% = 0
  763. IF pcinput1% = 8 OR pcinput2% = 8 THEN LOCATE 6, 55: PRINT "███": pcoffen8% = 0
  764. IF pcinput1% = 8 OR pcinput2% = 8 THEN LOCATE 7, 55: PRINT "▀▀▀": pcoffen8% = 0
  765. IF pcinput1% = 9 OR pcinput2% = 9 THEN LOCATE 5, 61: PRINT "███": pcoffen9% = 0
  766. IF pcinput1% = 9 OR pcinput2% = 9 THEN LOCATE 6, 61: PRINT "███": pcoffen9% = 0
  767. IF pcinput1% = 9 OR pcinput2% = 9 THEN LOCATE 7, 61: PRINT "▀▀▀": pcoffen9% = 0
  768.     
  769. IF pcoffen2% = 0 AND pcoffen3% = 0 AND pcoffen4% = 0 AND pcoffen5% = 0 AND pcoffen6% = 0 AND pcoffen7% = 0 AND pcoffen8% = 0 AND pcoffen9% = 0 THEN GOTO Loose
  770.  
  771. GOTO Wuerfeln
  772.  
  773. Beenden:
  774. COLOR 7, 0
  775. CLS
  776. COLOR 1
  777.  LOCATE 8, 20: PRINT "      (c) 1997 by COMETWARE        "
  778. SLEEP 1
  779. COLOR 4
  780. LOCATE 10, 20: PRINT " Programmierung: Christopher Clay"
  781. SLEEP 1
  782. COLOR 15
  783. LOCATE 12, 20: PRINT "     Alle Rechte vorbehalten      "
  784. COLOR 2
  785. SLEEP 1
  786.  
  787. COLOR 7, 0
  788. SYSTEM
  789.  
  790. Fehler:
  791. CLS
  792. PRINT "ACHTUNG!!! Ein Fehler ist aufgetreten!!! Das Spiel startet neu!!!"
  793. GOTO 1
  794.  
  795. YouWin:
  796. IF mus% = 1 THEN : PLAY "MBT120MLO1L13DEGEL3EL8CDGCL3CMNO2L5DL12DDL4FL5GL6FMLCCL2G": GOTO WinWeiter
  797. IF mus% = 0 THEN : GOTO WinWeiter
  798.  
  799. WinWeiter:
  800. LOCATE 12, 33: COLOR 0, 2: PRINT "┌──────────────┐"
  801. LOCATE 13, 33: COLOR 0, 2: PRINT "│  YOU WIN!!!  │"
  802. LOCATE 14, 33: COLOR 0, 2: PRINT "└──────────────┘"
  803. LOCATE 13, 36: COLOR 16, 2: PRINT "YOU WIN!!!"
  804. COLOR 2, 0:
  805. LOCATE 23: PRINT "                                  "
  806. LOCATE 23, 34: PRINT "Taste drücken!"
  807. SLEEP
  808. GOTO 1
  809.  
  810. Loose:
  811. IF mus% = 1 THEN : PLAY "MBT120MLO1L13DEGEL3EL8CDGCL3CMNO0L5BL12BBL4EL5GO1L6EMLGGL2O0C": GOTO LooseWeiter
  812. IF mus% = 0 THEN : GOTO LooseWeiter
  813.  
  814. LooseWeiter:
  815. LOCATE 12, 33: COLOR 0, 2: PRINT "┌──────────────┐"
  816. LOCATE 13, 33: COLOR 0, 2: PRINT "│ YOU LOOSE!!! │"
  817. LOCATE 14, 33: COLOR 0, 2: PRINT "└──────────────┘"
  818. LOCATE 13, 35: COLOR 20, 2: PRINT "YOU LOOSE!!!"
  819. COLOR 4, 0:
  820. LOCATE 23: PRINT "                                  "
  821. LOCATE 23, 34: PRINT "Taste drücken!"
  822. SLEEP
  823. GOTO 1
  824. '               ____________________
  825. '             /                      \
  826. '           /                          \
  827. '         /______________________________\
  828. '       /UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU\
  829. '     /UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU\
  830. '   /UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU\
  831. '      \░▒▓█▓▒░/▒▓▒              ▒▓▒\░▒▓█▓▒░/
  832. '       ░▒▓█▓▒░ ▒▓▒              ▒▓▒ ░▒▓█▓▒░
  833. '       ░▒▓█▓▒░ ▒▓▒______________▒▓▒ ░▒▓█▓▒░
  834. '       ░▒▓█▓▒░/                    \░▒▓█▓▒░
  835. '       ░▒▓█▓▒░                      ░▒▓█▓▒░
  836. '       ░▒▓█▓▒░    T H E   E N D     ░▒▓█▓▒░
  837. '       ░▒▓█▓▒░                      ░▒▓█▓▒░
  838. '       ░▒▓█▓▒░                      ░▒▓█▓▒░
  839. '      /░▒▓█▓▒░\____________________/░▒▓█▓▒░\
  840. '    /________________________________________\
  841. '   |__________________________________________|
  842. '  /____________________________________________\
  843. ' |______________________________________________|
  844. '
  845. '                         "ASCII-Temple" by C.Clay
  846.  
  847.