home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_027_19xx_-_de_Side_B.d64
/
versenken
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
172 lines
5 poke53280,0:poke53281,0:printchr$(14)chr$(9):fori=49152to49177:readx:pokei,x:nexti
10 le$=" [146]"
15 gosub1010:print"[196]u setzt wie beim normalen [211]chiffever-
20 [153]"senken 1x sys wait 2x sys wait 3x sys wait 4x sys wait, die du";
30 [153]"so setzen musst, dass sie sich nicht be-";
31 [153]"ruehren, auch nicht ueber valck; nicht be-";
32 [153]"schummeln, das merkt der lenomputer nicht.";
33 [153]"ascalls du ein (NULL)chiff falsch gesetzt hast,gib einfach '**' ein.
34 print"[215]enn der [195]omputer deine [211]chiffe setzen soll gib gleich '@@' ein.
35 [153]"valr positioniert danach seine peekoote, die
36 print"du nicht siehst, genausowenig wie er deine sieht.
40 [153]"(NULL)enn du schiesst, gib zuerst die peekuch- staben, dann die (NULL)ahlen ein.
42 print"[196]er [195]omputer gibt dir darauf die [203]oordi-naten von seinem [211]chuss an.
44 [153]"(NULL)enn du keine (NULL)ust mehr hast, gib '**' ein und er zeigt dir seine (NULL)chiffe.
60 print"[215]er zuerst die [211]chiffe des [199]egners ver-
61 [153]"senkt, hat gewonnen.
62 print"[196]ruecke die return[146]-[212]aste ...[145]
90 [161]a$:[139]a$[179][177][199](13)[167]90
100 l$[178]" ":le$[178]" wait"
110 ys[178]49152:[141]1010:[158]ys,8,6,"opento0123456789waitto0123456789waitto":[129]i[178]1[164]10
120 [153][163]8)""[199](i[170]64)"waitcontooooooooooopen"[199](i[170]64)"waitcontooooooooooopen"[199](i[170]64)
130 [130]i:[158]ys,8,17,"tab(0123456789waittab(0123456789waittab("
140 [158]ys,0,19,"(NULL)ositioniere deine (NULL)chiffe!":[129]i[178]1[164]20
150 i$[178]"":[158]ys,0,21,"for"i:[158]ys,10,21,"clr";:[133]i$:[139][195](i$)[179][177]2[167]150
155 u[178]0:[139]i$[178]"@@"[175]i[178]1[167]158
156 [137]160
158 u[178]1:[158]ys,0,19,"defchr$eduld, ich positioniere deine (NULL)chiffe
159 sysys,0,21,l$:gosub210:goto200
160 ifi$="**"ands=0andi>2theni=i-1:s=1:a(a,b)=0:pokec,15:pokec+54272,14:goto150
170 a=asc(left$(i$,1))-65:b=val(right$(i$,1))
180 ifa<0ora>9orb<0orb>9orb=0andright$(i$,1)<>"0"then150
185 ifa(a,b)=1then150
190 c=1313+b+40*a:pokec,160:pokec+54272,8:a(a,b)=1:s=0:nexti
200 sysys,0,19,"[156][199]eduld, ich positioniere meine [211]chiffe":sysys,0,21,l$
205 u=0:gosub210:goto4000
210 gosub1000:s=1:ifx>4thens=2
220 onsgoto230,280
230 gosub1000:ifx>6then230
240 forf=0to3:m(f+x,y)=1:nextf:goto300
280 gosub1000:ify>6then280
285 forf=0to3:m(x,f+y)=1:nextf
300 fort=1to2:gosub1000:s=1:ifx>4thens=2
320 onsgoto330,400
330 gosub1000:ifx>7then330
340 forz=xtox+2:r=y:gosub3000:ife=1then330
370 nextz:forz=xtox+2:m(z,y)=1:nextz:goto450
400 gosub1000:ify>7then400
410 forr=ytoy+2:z=x:gosub3000:ife=1then400
445 nextr:forr=ytoy+2:m(x,r)=1:nextr
450 nextt
460 fort=1to3:gosub1000:s=1:ifx>4thens=2
480 onsgoto490,560
490 gosub1000:ifx>8then490
500 forz=xtox+1:r=y:gosub3000:ife=1then490
530 nextz:forz=xtox+1:m(z,y)=1:nextz:goto660
560 gosub1000:ify>8then560
570 forr=ytoy+1:z=x:gosub3000:ife=1then560
620 nextr:forr=ytoy+1:m(x,r)=1:nextr
660 nextt
700 fort=1to4
710 gosub1000:r=y:z=x:gosub3000:ife=1then710
720 m(x,y)=1:nextt
725 ifu=0thenforr=0to9:fort=0to9:b(r,t)=m(r,t):nextt,r
730 ifu=1thenforr=0to9:fort=0to9:a(r,t)=m(r,t):m(r,t)=0:nextt,r:gosub2200
790 return
1000 x=int(rnd(1)*10):y=int(rnd(1)*10):return
1010 print"[147]"tab(9)le$spc(19)" [211][195][200][201][198][198][197][160][214][197][210][211][197][206][203][197][206] [146]"spc(19)le$:return
2000 forv=0to9:forj=0to9:ifb(v,j)=1thenpoke1324+v+j*40,160
2010 nextj,v:return
2200 forv=0to9:forj=0to9:ifa(v,j)=1thenpoke55585+v+j*40,8:poke1313+v+j*40,160
2210 nextj,v:return
3000 e=0:fore1=z-1toz+1:fore2=r-1tor+1:ife1<0ore1>9ore2<0ore2>9then3020
3010 ifm(e1,e2)=1thene=1
3020 nexte2,e1:return
4000 sysys,0,19,l$:sysys,0,21,l$
4010 b$="":sysys,0,19,"[129][194]itte schiesse![156]":inputb$:iflen(b$)<>2then4010
4015 ifb$="**"thene=21:gosub2000:goto10030
4020 b=asc(left$(b$,1))-65:a=asc(right$(b$,1))-48
4030 ifa<0ora>9orb<0orb>9ora=0andright$(b$,1)<>"0"then4010
4040 ifb(a,b)<>0andb(a,b)<>1then4010
4050 c=1324+a+40*b
4100 ifb(a,b)=0thenpokec,24:b(a,b)=3
4110 ifb(a,b)=1thenpokec,160:b(a,b)=2
4120 pokec+54272,5:sysys,0,19,l$:sysys,0,21,l$
4140 ifb(a,b)=3thensysys,0,19,"[154][215]asser"
4150 ifb(a,b)=2thensysys,0,19,"[129][212]reffer":gosub9000:ifv2=10thenv4=2:goto10000
4160 forw=1to900:nextw:ifb(a,b)=2then4000
4200 sysys,0,19,l$:goto5000
4205 b$=chr$(y+65)+chr$(x+48):ifc(x,y)<>0thengosub1000:goto4205
4210 d=1313+x+40*y:sysys,0,19,"[156][201]ch schiesse auf "b$
4230 sysys,0,21,"[158][215]=[215]asser [212]=[212]reffer [214]=[214]ersenkt"
4240 u=0:gett$:ift$=""then4240
4245 ift$="w"anda(x,y)<>0thengosub4500:goto4240
4250 if(t$="t"ort$="v")anda(x,y)<>1thengosub4500:goto4240
4255 ift$="w"thenu=24:c(x,y)=1
4260 ift$="t"thenu=160:c(x,y)=2
4270 ift$="v"thenu=160:c(x,y)=2
4275 ifu=0then4240
4280 ifu=24thenpoked,u:poked+54272,5
4285 ifu=160thenpoked,u:poked+54272,2
4287 ift$="v"thengosub9300:v1=v1+1:ifv1=10thenv4=1:gosub2000:wait203,1:goto10000
4288 ift$="t"ort$="v"then4200
4290 goto4000
4500 sysys,0,23,"[129][206]icht beschummeln, mein [198]reundchen!":forw=1to2000:nextw
4510 sysys,0,23,l$:return
5000 gosub1000:forr=0to9:fort=0to9
5010 ifc(r,t)=2thengosub5500
5020 nextt,r
5030 forr=0to9:fort=0to9
5040 ifc(r,t)=2thengosub5600
5050 nextt,r:goto4205
5500 ift>0thenifc(r,t-1)=0thenx=r:y=t-1
5510 ift<9thenifc(r,t+1)=0thenx=r:y=t+1
5520 ifr>0thenifc(r-1,t)=0thenx=r-1:y=t
5530 ifr<9thenifc(r+1,t)=0thenx=r+1:y=t
5540 return
5600 ift>0andt<9thenifc(r,t-1)=0andc(r,t+1)=2thenx=r:y=t-1
5610 ift>0andt<9thenifc(r,t+1)=0andc(r,t-1)=2thenx=r:y=t+1
5620 ifr>0andr<9thenifc(r+1,t)=0andc(r-1,t)=2thenx=r+1:y=t
5630 ifr>0andr<9thenifc(r-1,t)=0andc(r+1,t)=2thenx=r-1:y=t
5700 return
9000 v=1
9010 ifb>0thenifb(a,b-1)=1thenv=0
9015 ifb>1thenifb(a,b-2)=1thenifb(a,b-1)<>0thenv=0
9017 ifb>2thenifb(a,b-3)=1thenifb(a,b-2)<>0thenifb(a,b-1)<>0thenv=0
9020 ifa>0thenifb(a-1,b)=1thenv=0
9025 ifa>1thenifb(a-2,b)=1thenifb(a-1,b)<>0thenv=0
9027 ifa>2thenifb(a-3,b)=1thenifb(a-2,b)<>0thenifb(a-1,b)<>0thenv=0
9030 ifa<9thenifb(a+1,b)=1thenv=0
9035 ifa<8thenifb(a+2,b)=1thenifb(a+1,b)<>0thenv=0
9037 ifa<7thenifb(a+3,b)=1thenifb(a+2,b)<>0thenifb(a+1,b)<>0thenv=0
9040 ifb<9thenifb(a,b+1)=1thenv=0
9045 ifb<8thenifb(a,b+2)=1thenifb(a,b+1)<>0thenv=0
9047 ifb<7thenifb(a,b+3)=1thenifb(a,b+2)<>0thenifb(a,b+1)<>0thenv=0
9050 ifv=0thenreturn
9060 ifv=1thensysys,8,19,"und versenkt"
9070 forr=0to9:fort=0to9:ifb(r,t)=2thengosub9500
9080 nextt,r:v2=v2+1:return
9300 forr=0to9:fort=0to9:ifc(r,t)=2thengosub9400
9310 nextt,r:return
9400 c=1313+r+40*t
9410 ifr>0andt>0thenpokec-41,24:pokec+54231,5:c(r-1,t-1)=1
9420 ifr<9andt>0thenpokec-39,24:pokec+54233,5:c(r+1,t-1)=1
9430 ifr<9andt<9thenpokec+41,24:pokec+54313,5:c(r+1,t+1)=1
9440 ifr>0andt<9thenpokec+39,24:pokec+54311,5:c(r-1,t+1)=1
9450 ift>0thenifc(r,t-1)<>2thenpokec-40,24:pokec+54232,5:c(r,t-1)=1
9460 ift<9thenifc(r,t+1)<>2thenpokec+40,24:pokec+54312,5:c(r,t+1)=1
9470 ifr>0thenifc(r-1,t)<>2thenpokec-1,24:pokec+54271,5:c(r-1,t)=1
9480 ifr<9thenifc(r+1,t)<>2thenpokec+1,24:pokec+54273,5:c(r+1,t)=1
9490 return
9500 c=1324+r+40*t
9510 ifr>0andt>0thenpokec-41,24:pokec+54231,5:b(r-1,t-1)=3
9520 ifr<9andt>0thenpokec-39,24:pokec+54233,5:b(r+1,t-1)=3
9530 ifr<9andt<9thenpokec+41,24:pokec+54313,5:b(r+1,t+1)=3
9540 ifr>0andt<9thenpokec+39,24:pokec+54311,5:b(r-1,t+1)=3
9550 ift>0thenifb(r,t-1)<>2thenpokec-40,24:pokec+54232,5:b(r,t-1)=3
9560 ift<9thenifb(r,t+1)<>2thenpokec+40,24:pokec+54312,5:b(r,t+1)=3
9570 ifr>0thenifb(r-1,t)<>2thenpokec-1,24:pokec+54271,5:b(r-1,t)=3
9580 ifr<9thenifb(r+1,t)<>2thenpokec+1,24:pokec+54273,5:b(r+1,t)=3
9590 return
10000 e=8:gosub1010:onv4goto10010,10020
10010 sysys,0,5,"[196]u haettest noch"10-v2"[211]chiffe treffen
10011 [158]ys,0,6,"muessen und hast somit verloren!":[137]10030
10020 [158]ys,0,5,"right$ch haette noch"10[171]v1"(NULL)chiffe treffen
10021 sysys,0,6,"muessen und habe somit verloren!
10030 [158]ys,0,e,"clr(NULL)och ein (NULL)piel? (j/n)
10040 a$="":geta$:ifa$="j"thenrun100
10041 ifa$="n"thensysys,23,e," [198]eigling! [146][144]":end
10042 goto10040
20000 data32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32,240
20010 data255,32,253,174,76,164,170