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