home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis595.d64 / roulette (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  7KB  |  218 lines
  1. 1 REM *******************
  2. 2 REM **    ROULETTE   **
  3. 3 REM ** FUER DEN C-64 **
  4. 4 REM *******************
  5. 5 REM
  6. 6 REM ********************
  7. 7 REM **   AUTOR UND    **
  8. 8 REM ** SPIELANLEITUNG **
  9. 9 REM ********************
  10. 10 PRINT"[147]":POKE53281,0:POKE53280,0
  11. 11 PRINT"[158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  12. 12 PRINT"[180]R O U L E T T E[170]"
  13. 13 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  14. 14 PRINT"        "
  15. 15 PRINT"HEINZ PRANGENBERG"
  16. 16 PRINT"                "
  17. 17 PRINT"                 "
  18. 18 PRINT"KENNEN SIE DIE SPIELREGELN (J/N) ?"
  19. 19 GETA$:IFA$=""THEN19
  20. 20 IFA$="J"THEN140
  21. 21 IFA$<>"N"THEN19
  22. 22 PRINT"[147]              SPIELREGELN"
  23. 23 PRINT"ZU BEGINN DES SPIELES FRAGT DER COMPUTER"
  24. 24 PRINT"SIE NACH IHREM SPIELKAPITAL."
  25. 25 PRINT"NUN KOMMEN SIE ZU DEN VERSCHIEDENEN     "
  26. 26 PRINT"MOEGLICHKEITEN IHREN EINSATZ ZU MACHEN. "
  27. 27 PRINT"DAZU MUESSEN SIE WAHLWEISE DIE ENT -    "
  28. 28 PRINT"SPRECHENDEN ZIFFERN 1 - 8 DRUECKEN.     "
  29. 29 PRINT"WOLLEN SIE DAS EINSETZEN BEENDEN UND DAS"
  30. 30 PRINT"SPIEL STARTEN DRUECKEN SIE BITTE F1.    "
  31. 31 PRINT"NUN ENTSCHEIDET IHR GLUECK OB SIE "
  32. 32 PRINT"GEWINNEN ODER VERLIEREN."
  33. 33 PRINT"              [158] TASTE DRUECKEN "
  34. 34 GETA$:IFA$=""THEN34
  35. 35 PRINT"[147]             GEWINN VERTEILUNG"
  36. 36 PRINT"GEWINN BEI ZAHL = EINSATZ * 36"
  37. 37 PRINT"GEWINN BEI FARBE = EINSATZ * 1"
  38. 38 PRINT"GEWINN BEI GERADE ODER UNGERADE ZAHL"
  39. 39 PRINT"             EINSATZ * 1"
  40. 40 PRINT"GEWINN BEI 1 - 12 / 13 -24 / 25 - 36"
  41. 41 PRINT"             EINSATZ * 3"
  42. 42 PRINT"WENN SIE SPIELEN WOLLEN [158] TASTE DRUECKEN "
  43. 43 GETA$:IFA$=""THEN43
  44. 140 POKE53280,1:POKE53281,1
  45. 145 CK=500000:P=81
  46. 150 PRINT"[147]":INPUT"[144]WIEVIEL SPIELKAPITAL BESITZEN SIE ";SK
  47. 151 IFSK<=0THENPRINT"[147]OHNE GELD GEHT MAN NICHT INS KASINO !!! "
  48. 152 IFSK<=0THENPRINT"BITTE NEUE ANGABE !":FORI=1TO4500:NEXT:GOTO150
  49. 200 POKE53280,1:POKE53281,1
  50. 201 REM ***************************
  51. 202 REM ** AUSWAHL DES EINSATZES **
  52. 203 REM ***************************
  53. 205 N=0.1:EZ=0:S=0:R=0:G=0:U=0:Z1=0:Z2=0:Z3=0:GE=0:GW=0:FR=0:UZ=0:VL=0
  54. 208 PRINT"[147]"
  55. 209 PRINT"[144]   IHR SPIELKAPITAL BETRAEGT";SK"DM":PRINT:PRINT:PRINT
  56. 210 PRINT"  1 = ZAHL  (0 - 36)  [194]  2 = SCHWARZ"
  57. 211 PRINT"                      [194]"
  58. 213 PRINT"  3 = ROT             [194]  4 = GERADE"
  59. 214 PRINT"                      [194]"
  60. 216 PRINT"  5 = UNGERADE        [194]  6 = 1  - 12"
  61. 218 PRINT"                      [194]"
  62. 220 PRINT"  7 = 13 - 24         [194]  8 = 25 - 36":PRINT:PRINT
  63. 222 PRINT"             F1 = SPIEL LAUEFT":PRINT:PRINT
  64. 223 PRINT"            BITTE IHREN EINSATZ":PRINT:PRINT
  65. 225 GETA$:IFA$=""THEN225
  66. 226 IFA$="1"THENINPUT"AUF WELCHE ZAHL WOLLEN SIE SETZEN ";N:PRINT
  67. 227 IFN<0ORN>36THENPRINT"[147]DIESE ZAHL GIBT ES BEIM ROULETTE NICHT !"
  68. 228 IFN<0ORN>36THENPRINT"BITTE NEUE ANGABE !":FORI=1TO4500:NEXT:GOTO200
  69. 230 IFA$="1"THENINPUT"WIEVIEL WOLLEN SIE AUF DIESE ZAHL SETZEN";EZ:GOTO208
  70. 231 IFA$="2"THENINPUT"WIEVIEL WOLLEN SIE AUF SCHWARZ SETZEN   ";S:GOTO208
  71. 232 IFA$="3"THENINPUT"WIEVIEL WOLLEN SIE AUF ROT SETZEN ";R:GOTO208
  72. 233 IFA$="4"THENINPUT"WIEVIEL WOLLEN SIE AUF GERADE SETZEN    ";G:GOTO208
  73. 234 IFA$="5"THENINPUT"WIEVIEL WOLLEN SIE AUF UNGERADE SETZEN  ";U:GOTO208
  74. 235 IFA$="6"THENINPUT"WIEVIEL WOLLEN SIE AUF 1 - 12 SETZEN    ";Z1:GOTO208
  75. 236 IFA$="7"THENINPUT"WIEVIEL WOLLEN SIE AUF 13 - 24 SETZEN   ";Z2:GOTO208
  76. 237 IFA$="8"THENINPUT"WIEVIEL WOLLEN SIE AUF 25 - 36 SETZEN   ";Z3:GOTO208
  77. 238 IFA$=CHR$(133)THEN300
  78. 239 GOTO208
  79. 300 GE=EZ+S+R+G+Z1+Z2+Z3
  80. 301 IFGE>SKTHENPRINT"[147]IHR EINSATZ UEBERSTEIGT IHR KAPITAL !!! "
  81. 302 IFGE>SKTHENPRINT"BITTE SETZEN SIE NEU.":FORI=1TO4000:NEXT:GOTO200
  82. 994 REM *******************
  83. 995 REM *** BILD AUFBAU ***
  84. 997 REM *******************
  85. 1000 PRINT"[147]"
  86. 1010 POKE53281,5:POKE53280,5
  87. 1020 PRINT"    [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  88. 1030 PRINT"    [180]21[194][144]2[194]25[194][144]17[194]34[194][144]6[194]27[194][144]13[194]36[194][144]11[194]30[170] "
  89. 1035 PRINT"    [180]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194]  [194]  [170]"
  90. 1040 PRINT"[175][175][175][175][180]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194]  [194]  [170][175][175][175]"
  91. 1045 PRINT"[180]      [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194]  [194]      [180]";
  92. 1050 PRINT"[180][144]4    [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]   [144]8 [180]";
  93. 1060 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
  94. 1070 PRINT"[180]19   [180]                          [170]   23[180]";
  95. 1075 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
  96. 1080 PRINT"[180][144]15   [180]                          [170]   [144]10[180]";
  97. 1090 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
  98. 1100 PRINT"[180]32   [180]                          [170]   5 [180]";
  99. 1110 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
  100. 1115 PRINT"[180][144]26   [180]                          [170]   [144]24[180]";
  101. 1120 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
  102. 1130 PRINT"[180]3    [180]                          [170]   16[180]";
  103. 1140 PRINT"[207][183][183][183][183][183][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][183][183][183][183][183][180]";
  104. 1145 PRINT"[180][144]35   [194]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194] [194]   [144]33[180]";
  105. 1160 PRINT"[183][183][183][208]  [194]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194] [194]  [207][183][183]"
  106. 1165 PRINT"   [170]  [194]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194] [194]  [180]"
  107. 1180 PRINT"   [170]12[194][144]28[194]7[194][144]29[194]18[194][144]22[194]9[194][144]31[194]14[194][144]20[194]1[194][153]0 [180]"
  108. 1190 PRINT"    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  109. 1191 PRINT"NICHTS GEHT MEHR !"
  110. 1195 FORI=1TO3500:NEXT
  111. 1196 PRINT"                   "
  112. 1200 REM *****************************
  113. 1210 REM ** ANZEIGE DER ZUFALLSZAHL **
  114. 1220 REM **  UND FESTSTELLUNG DES   **
  115. 1230 REM **   WERTES DIESER ZAHL    **
  116. 1240 REM *****************************
  117. 1300 Z=INT(37*RND(1))
  118. 1310 IFZ=0THENPOKE1778,P:GOTO1685
  119. 1320 IFZ=1THENPOKE1776,P:GOTO1675
  120. 1330 IFZ=2THENPOKE1152,P:GOTO1680
  121. 1340 IFZ=3THENPOKE1628,P:GOTO1675
  122. 1350 IFZ=4THENPOKE1228,P:GOTO1680
  123. 1360 IFZ=5THENPOKE1499,P:GOTO1675
  124. 1370 IFZ=6THENPOKE1163,P:GOTO1680
  125. 1380 IFZ=7THENPOKE1754,P:GOTO1675
  126. 1390 IFZ=8THENPOKE1259,P:GOTO1680
  127. 1400 IFZ=9THENPOKE1765,P:GOTO1675
  128. 1410 IFZ=10THENPOKE1419,P:GOTO1680
  129. 1420 IFZ=11THENPOKE1175,P:GOTO1695
  130. 1430 IFZ=12THENPOKE1749,P:GOTO1680
  131. 1440 IFZ=13THENPOKE1169,P:GOTO1675
  132. 1450 IFZ=14THENPOKE1771,P:GOTO1680
  133. 1460 IFZ=15THENPOKE1388,P:GOTO1675
  134. 1470 IFZ=16THENPOKE1659,P:GOTO1680
  135. 1480 IFZ=17THENPOKE1158,P:GOTO1675
  136. 1490 IFZ=18THENPOKE1760,P:GOTO1690
  137. 1500 IFZ=19THENPOKE1308,P:GOTO1675
  138. 1510 IFZ=20THENPOKE1774,P:GOTO1680
  139. 1520 IFZ=21THENPOKE1149,P:GOTO1675
  140. 1530 IFZ=22THENPOKE1763,P:GOTO1680
  141. 1540 IFZ=23THENPOKE1339,P:GOTO1675
  142. 1550 IFZ=24THENPOKE1579,P:GOTO1680
  143. 1560 IFZ=25THENPOKE1155,P:GOTO1675
  144. 1570 IFZ=26THENPOKE1548,P:GOTO1680
  145. 1580 IFZ=27THENPOKE1166,P:GOTO1675
  146. 1590 IFZ=28THENPOKE1752,P:GOTO1680
  147. 1600 IFZ=29THENPOKE1757,P:GOTO1695
  148. 1610 IFZ=30THENPOKE1178,P:GOTO1680
  149. 1620 IFZ=31THENPOKE1768,P:GOTO1675
  150. 1630 IFZ=32THENPOKE1468,P:GOTO1680
  151. 1640 IFZ=33THENPOKE1739,P:GOTO1675
  152. 1650 IFZ=34THENPOKE1161,P:GOTO1680
  153. 1660 IFZ=35THENPOKE1708,P:GOTO1675
  154. 1670 IFZ=36THEN