home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  215 lines
  1. 1 a=a+1:ifa=1thenload"v.sprite",8,8
  2. 5 poke53002,49:poke53007,234:sys53000:pe%=1:r%=1000:n%=1:pa%=1:fori=1to5:readk(i):next:p=1
  3. 6 pe=pe%:r=r%:n=n%:pa=pa%
  4. 7 v$="":fori=1to32:v$=v$+" ":w$=w$+"[192]":next
  5. 10 poke53280,2:poke53281,10:v=53248:pokev+21,0
  6. 11 fori=vtov+16:pokei,0:next:ifp=0thenpa=0
  7. 12 print"[147][142]   [160][160][160][213][192][192][192][201][213][201][213][201][213][192][192][201][213][192][192][201][213][201][213][192][192][201][213][192][201][213][201]"
  8. 14 print" [160]    [221][213][192][201][221][221][221][221][221][221][213][192][203][221][213][192][203][221][221][221][213][201][221][221] [202][203][221]"
  9. 16 print"[160] [160][160][160][160][221][202][192][203][221][221][221][221][221][202][177][178][201][202][177][178][201][221][221][221][202][203][221][221][160][160][160][221]"
  10. 18 print"[160]   [160][160][221][213][201][213][203][221][202][203][221][213][192][203][221][213][192][203][221][221][221][221][213][201][221][221][213][201][160][221]"
  11. 20 print"      [202][203][202][203][160][202][192][192][203][202][192][192][203][202][192][192][203][202][203][202][203][202][203][202][203][202][192][203]"
  12. 22 print"   [213][192][192][192][201][213][192][192][201][213][201][213][201][213][201][160][160][213][192][192][201][213][192][192][201][213][192][192][201][213][192][192][201]"
  13. 24 print"[160][160][160][221][213][192][201][221][221][213][201][221][221][221][221][221][221][221][160][160][221][213][192][203][202][201][213][203][202][201][213][203][221][213][192][203]"
  14. 26 print"[160][160][160][221][202][192][203][221][221][221][221][221][221][221][221][221][221][221][160][160][221][171][192][160][160][221][221][160][160][221][221][160][221][171][192]"
  15. 28 print"[160][160][160][221][213][201][213][203][221][202][203][221][221][202][203][221][221][202][192][201][221][202][192][201][160][221][221][160][160][221][221][160][221][202][192][201]"
  16. 30 print"[160][160][160][202][203][202][203][160][202][192][192][203][202][192][192][203][202][192][192][203][202][192][192][203][160][202][203][160][160][202][203][160][202][192][192][203]"
  17. 32 printspc(11)"- ja veri lentaa -"
  18. 34 print"     [149][164][164][164][164]"
  19. 36 print"      f1 [146] [149]teurastus      [129][213][192][192][192][192][192][192][192][192][192][192][192][201]"
  20. 38 print" [149]    [164][164][164][164]                [129][221]taman pelin[221]"
  21. 40 print"[160]    [149] f3 [146] [149]informaatio    [129][221]teki: marko[221]"
  22. 42 print"    [149] [164][164][164][164]     [160][160][160][160][160][160][160][160][160][160][160][129][202][192][201]jerrman[213][192][203]"
  23. 44 print"     [149] f5 [146] [149]asetukset        [129][202][192][192][192][192][192][192][192][203]"
  24. 46 print"[160]   [160]pelaajia:"pe"       nopeus:"n""
  25. 48 print"     panoksia:"pa"  [160][160][160]  rahaa:"r"":p=1:ifpa=0thenp=0
  26. 50 geta$:ifa$=""then50
  27. 55 ifa$="[133]"then90
  28. 57 ifa$="[135]"then300
  29. 58 ifa$="[134]"then3000
  30. 60 goto50
  31. 90 fori=1tope:r(i)=0:r(i)=r:next:print"[147]";
  32. 100 poke53281,0:poke53280,11:ifp=0thenpa=0
  33. 107 gosub2000:print"         [154][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][187]"
  34. 108 printspc(9)"[161]"spc(20)"[161]"
  35. 109 printspc(9)"[161]"spc(20)"[161]"
  36. 110 print"[210][213][211][211][201][193][206][160][154] [161]"spc(20)"[161] [210][213][211][211][201][193][206]"
  37. 111 print"[210][207][213][204][197][212][212][197][154] [161]             [154][146]       [161][210][207][213][204][197][212][212][197]"
  38. 112 printspc(9)"[154][161]        [154][146]     [154][146]       [161]"
  39. 113 print"ja veri[154]  [161]"spc(20)"[161] ja veri"
  40. 114 print"lentaa.  [154][161]"spc(20)"[161] lentaa."
  41. 115 printspc(9)"[154][161]"spc(20)"[161]"
  42. 116 printspc(9)"[161]"spc(20)"[161]"
  43. 117 printspc(9)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][190]"
  44. 118 print"   [152][176]"w$"[174]"
  45. 119 print"   [221]"right$(v$,32)"[221]"
  46. 120 print"   [173]"w$"[189]"
  47. 121 print"   [176]"w$"[174]"
  48. 122 print"   [221]"right$(v$,32)"[221]"
  49. 123 print"   [173]"w$"[189][145][145][145][145]"
  50. 130 fori=234to230step-1:poke1810+i,i:next:pokev+29,127:pokev+23,127:pokev+28,15
  51. 135 pokev,136:pokev+1,108:pokev+2,184:pokev+3,108:pokev+4,136:pokev+5,150
  52. 137 pokev+6,184:pokev+7,150:pokev+8,100:pokev+9,126:pokev+16,0
  53. 140 pokev+37,10:pokev+38,9:pokev+39,6:pokev+40,6:pokev+41,2:pokev+42,2
  54. 141 pokev+43,11:pokev+10,0:pokev+12,0:pokev+13,0:pokev+11,0:pokev+21,127:pokev+27,48
  55. 145 fori=1tope
  56. 146 print"[145][154][208]elaaja"i"paljonko laitat?"chr$(141)"#[157]";:b$=""
  57. 147 geta$:ifa$=chr$(13)then155
  58. 148 ifa$=""theniflen(b$)>0thenb$=left$(b$,len(b$)-1):print" [157][157]#[157]";
  59. 149 ifa$<"0"ora$>"9"then147
  60. 150 printa$"#[157]";:b$=b$+a$:iflen(b$)=5then155
  61. 151 goto147
  62. 155 print:ifval(b$)<=r(i)andval(b$)>0then170
  63. 156 ifval(b$)>r(i)thenprint"[145]"v$chr$(141)"[145][145][145][145][197]t omista tuollaisia summia!"
  64. 157 ifval(b$)=0thenprint"[145]"v$chr$(141)"[145][145][145][145][204]aita nyt jotain!"right$(v$,15)
  65. 160 forj=0to2000:next:print"[145]"v$:goto146
  66. 170 print"[145]"v$chr$(141)"[145][145][145][145]"v$:b=val(b$):ifb/10<>int(b/10)thenb=int((9+b)/10)*10
  67. 171 v(i)=b:r(i)=r(i)-v(i)
  68. 172 gosub2000:printspc(255)spc(255)spc(10):next
  69. 175 print"[145]"v$chr$(141)"[154][145][208]aina valilyonti"
  70. 176 geta$:ifa$<>" "then176
  71. 180 ifp=0thenpa=int(5*rnd(1))+1:gosub2000:printspc(255)spc(225)v$
  72. 185 ifint(6*rnd(1))+1>pathen190
  73. 189 goto200
  74. 190 print"[145][154][212][217][200][202][193]! [201]ivan selvisi!":goto220
  75. 200 print"[145][158] [208] [193] [206] [199] !            ":poke53281,1:poke53280,1:gosub1000
  76. 202 poke53280,11:poke53281,0:poke2041,235:pokev+40,2:poke2045,237
  77. 204 poke2046,236:pokev+44,0:pokev+45,2:pokev+10,216:pokev+11,120
  78. 206 pokev+12,216:pokev+13,120:forj=216to255:pokev+10,j:gosub1000:next
  79. 208 pokev+16,32:pokev+10,0:forj=0to20:pokev+10,j:gosub1000:next:ifi=-1then275
  80. 210 fori=0to1500:next:print"[145][154][201]ivan kuoli. [200]avisitte vetonne.":fori=0to2500:next
  81. 211 gosub2000:fori=1tope:ifr(i)<10then213
  82. 212 next:goto100
  83. 213 printspc(255)spc(225):printv$
  84. 214 print"[145][154][208]elaaja"i"rahat ovat loppu":fori=0to2500:next
  85. 215 print"[145][208]eli loppuu hanen takiaan!     ":fori=0to3000:next:goto10
  86. 220 fori=1tope:v(i)=v(i)*k(pa):v(i)=int((5+v(i))/10)*10
  87. 222 r(i)=r(i)+v(i):next:fori=0to2000:next:gosub2000
  88. 230 fori=1tope:ifr(i)>9999then250
  89. 240 next:printspc(255)spc(255)spc(10):fori=1tope:print"[145]"v$
  90. 245 print"[145][154][208]elaaja"i"voitit"v(i)"mk":forj=0to2500:next:next:goto100
  91. 250 printspc(255)spc(255)spc(10):print"[145]"v$
  92. 251 print"[145]"v$:print"[145][154][208]elaaja"i"[157]: sinulla on yli 10000"
  93. 252 print"[200]aluatko ostaa [201]ivanin vapaaksi?"
  94. 255 geta$:ifa$<>"k"anda$<>"e"then255
  95. 258 ifa$="k"then270
  96. 260 print"[145]"v$chr$(141)"[145][145][145][145]"v$chr$(141)"[145][211]ydameton hirvio! [208]eli loppuu nyt!"
  97. 265 sys64738
  98. 270 print"[145]"v$chr$(141)"[145][145][145][145]"v$chr$(141)"[145][201]ivan haluaa pelata yhden kerran"
  99. 272 fori=0to3000:next:print"[145]"v$:j=n:n=10:i=-1:n=j:goto200
  100. 275 print"[145][154][203]avipas huonosti. [214]oi voi!"
  101. 276 fori=0to4000:next:goto10
  102. 300 print"[147][144]":poke53280,10:poke53281,2
  103. 302 printspc(15)"asetukset":printspc(15)"[197][197][197][197][197][197][197][197][197]"
  104. 305 print"[160]   [160]pelaajia:"pe"       nopeus:"n
  105. 306 print"     panoksia:"pa"  [160][160][160]  rahaa:"r
  106. 310 print"[150]  haluatko muuttaa pe[146]laajia, no[146]peutta,"
  107. 311 print"  pa[146]noksia vai ra[146]haa? ..[157][157]";:b$=""
  108. 315 geta$:ifa$=""then315
  109. 316 b$=b$+a$:printa$;:iflen(b$)=2then320
  110. 317 goto315
  111. 320 print:ifb$="pe"then330
  112. 321 ifb$="no"then340
  113. 322 ifb$="pa"then350
  114. 323 ifb$="ra"then360
  115. 325 print"haluatko alkuperaisasetukset?"
  116. 326 geta$:ifa$="k"then6
  117. 327 ifa$=""then326
  118. 328 print"[144]mita [214][201][212][212][213][193] sitten taalla teet?":fori=0to3000:next:goto300
  119. 330 print"montako pelaaja haluat (1-4)? .[157]";
  120. 335 geta$:ifa$<"1"ora$>"4"then335
  121. 337 printa$:pe=val(a$):goto370
  122. 340 print"minka nopeuden haluat (1-9)? .[157]";
  123. 345 geta$:ifa$<"1"ora$>"9"then345
  124. 347 printa$:n=val(a$):goto370
  125. 350 print"montako panosta haluat (0-6)? .[157]";
  126. 355 geta$:ifa$<"0"ora$>"6"then355
  127. 357 printa$:pa=val(a$):ifpa=6thenprint"nautitko vakivallasta?"
  128. 358 ifpa<>0thenp=1
  129. 359 goto370
  130. 360 print"montako tuhatta haluat (1-9)? .[157]";
  131. 365 geta$:ifa$<"1"ora$>"9"then365
  132. 367 printa$:r=val(a$)*1000:goto370
  133. 370 print"muita muutoksia (k/e)?"
  134. 372 geta$:ifa$<>"k"anda$<>"e"then372
  135. 375 ifa$="k"then300
  136. 376 goto10
  137. 999 end
  138. 1000 fore=0to5+10*n:next:return
  139. 2000 print"[154] [208]elaajia:"pe"               [208]anoksia:"pa""
  140. 2001 r1$=left$(str$(r(1))+"           ",13):r2$=left$(str$(r(2))+"    ",5)
  141. 2002 print" [208]elaaja 1:"r1$"[208]elaaja 2:"r2$""
  142. 2003 r3$=left$(str$(r(3))+"           ",13):r4$=left$(str$(r(4))+"    ",5)
  143. 2004 print" [208]elaaja 3:"r3$"[208]elaaja 4:"r4$"":return
  144. 2500 data1.5,2,3,5,10
  145. 3000 restore:fori=1to5:reada:next
  146. 3001 fori=0to12:reada$:a=len(a$):forj=1toa:printmid$(a$,j,1);:gosub3013:next:print
  147. 3002 next:print:pokev+23,0:pokev+29,0:pokev+37,10:pokev+38,9:pokev+39,6:pokev+40,6
  148. 3003 pokev+41,2:pokev+42,2:poke2040,230:poke2041,231:poke2042,232:poke2043,233
  149. 3004 pokev+28,15:pokev,156:pokev+2,180:pokev+4,156:pokev+6,180
  150. 3005 pokev+1,192:pokev+3,192:pokev+5,213:pokev+7,213:pokev+21,15
  151. 3006 fori=0to3:reada$:printa$:next:reada$:printa$:gosub3013:gosub3013:gosub3013:print
  152. 3007 fori=1to12:reada$:a=len(a$):forj=1toa:printmid$(a$,j,1);:gosub3013:next           
  153. 3008 pokev+1,peek(v+1)-16:pokev+5,peek(v+5)-16:pokev+3,peek(v+3)-16:pokev+7,peek(v+7)-16
  154. 3009 print:next:pokev+21,0:fori=1to23:reada$:a=len(a$):forj=1toa:printmid$(a$,j,1);
  155. 3010 gosub3013:next:print:next
  156. 3011 geta$:ifa$=""then3011
  157. 3012 goto 10
  158. 3013 fort=0to50:next:getb$:ifb$="="then3015
  159. 3014 return
  160. 3015 getb$:ifb$=""then3015
  161. 3016 return
  162. 3017 data"[147][144]                 [201]nfoa"
  163. 3018 data"                 [163][163][163][163][163]"
  164. 3019 data"  [214]enalainen ruletti [144]on uhkapeli! [208]elis-"
  165. 3020 data"sa pelaaja asettaa  henkensa  pelipanok-"
  166. 3021 data"seksi. [217]leensa  pelaajia on kaksi, josta"
  167. 3022 data"toisen on  havittava ennenkuin peli lop-"
  168. 3023 data"puu. [208]elista on  kehitetty  myos versio,"
  169. 3024 data"jossa  peliin voi osallistua muita, lyo-"
  170. 3025 data"malla vetoa jomman kumman  pelaajan puo-"
  171. 3026 data"lesta tai  vastaan. [212]ama tietokoneessasi"
  172. 3027 data"pyoriva  ruletti  on viela kehittyneempi"
  173. 3028 data"versio. [212]assa pelaajia on vain yksi. [200]an"
  174. 3029 data"on [201]ivan ja han on taman nakoinen:"
  175. 3030 data"                      [146]"
  176. 3031 data"                      [146]"
  177. 3032 data"                      [146]"
  178. 3033 data"                      [146]"
  179. 3034 data"                      [146]"
  180. 3035 data"  [203]oska [201]ivan on noin  sympaattisen  na-"
  181. 3036 data"koinen lyovat kaikki pelaajat  vetoa ha-"
  182. 3037 data"nen puolestaan ja toivovat etta pistooli"
  183. 3038 data"ei laukea. [202]okaisen  taytyy lyoda vahin-"
  184. 3039 data"taan 10 rahaa vetoa ja jos joltain  lop-"
  185. 3040 data"puu rahat loppuu myos peli.[141]"
  186. 3041 data"  [211]inulla on mahdollisuus valita kuinka-"
  187. 3042 data"monta panosta rullassa on. [214]oittokertoi-"
  188. 3043 data"met, jotka  riippuvat  panosten maarasta"
  189. 3044 data"ovat seuraavat:[141]"
  190. 3045 data"        1 panos      1,5 kertaa[141]"
  191. 3046 data"        2 panosta    2 kertaa[141]"
  192. 3047 data"        3 panosta    3 kertaa[141]"
  193. 3048 data"        4 panosta    5 kertaa[141]"
  194. 3049 data"        5 panosta    10 kertaa[141]"
  195. 3050 data"        6 panosta    miljuuna[141]"
  196. 3051 data"[208]anosten  maaraksi voit myos valita nol-"
  197. 3052 data"lan, joka tarkoittaa  sita etta panoksia"
  198. 3053 data"on rullassa  satunnainen maara. [197]t tieda"
  199. 3054 data"panosten  maaraa  vetoa  lyodessasi. [202]os"
  200. 3055 data"[201]ivan  ei ammu  aivojaan seinalle  tulee"
  201. 3056 data"voitot edella mainittujen kertoimien mu-"
  202. 3057 data"kaan."
  203. 3058 data"  [202]os olet muutellut asetuksia ja haluat"
  204. 3059 data"ne takaisin  alkuperaisiksi niin mene a-"
  205. 3060 data"setusten muuntoon ja  heita koneelle jo-"
  206. 3061 data"kin kirjainpari (ei pa,pe,no,ra) ja vas-"
  207. 3062 data"taa koneen kysymykseen myontavasti.[141]"
  208. 3068 data"  [202]os saat  kokoon 10.000 voit ostaa [201]i-"
  209. 3069 data"vanin vapaaksi (parasta tehda se!).[141]"
  210. 3070 data"  [210]attoisia  hetkia  [214]enalaisen  ruletin"
  211. 3071 data"[144]seurassa! [208]itakaa kivaa![141]"
  212. 3072 data"[208].[211]. [212]aman tekstin  saa pysaytettya pai-"
  213. 3073 data"namalla =-nappainta (heheheheheheh).[141]"
  214. 3074 data"           [206]appaimella peliin          [146]"
  215.