64'er 1991 April/64er_Magazin_91-04_1991_Markt__Technik_de_Side_A.d64/falle

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

0 dimf$(41,21):poke53280,0:poke53281,0:poke646,3:gr=0.95:goto2
1 fori=1to40:forj=1to20:pu=pu-((f$(i,j)=" ")*2)-((f$(i,j)="=")*3):nextj:nexti
2 gr=gr-0.05:fori=1to40:forj=1to20:f$(i,j)=" ":ifrnd(ti)>grthenf$(i,j)="x"
3 nextj:nexti:f$(1,1)="0":f$(1,2)=" ":f$(2,1)=" ":f$(2,2)=" ":x=1:y=1
4 f$(40-int(rnd(ti)+.5),20-int(rnd(ti)+.5))=" ":f$(40,20)="*":print"[147]":poke1024,48
5 poke1024,peek(1024)or128:poke1823,42:po$=""
6 printpo$;"punkte: ";pu:poke198,0:wait198,1:geta$:ifa$="h"thens=1:goto6
7 xn=x-(a$="m")-(a$="j")-(a$="u")+(a$="b")+(a$="g")+(a$="t")
8 yn=y-(a$="b")-(a$="n")-(a$="m")+(a$="t")+(a$="y")+(a$="u")
9 if((xn>40)or(xn<1)or(yn>20)or(yn<1))thens=0:goto6
10 if((s=1)and(f$(xn,yn)="x"))thenf$(xn,yn)="=":s=0:poke1024+(yn-1)*40+xn-1,61:goto6
11 if((s=1)and(f$(xn,yn)="="))thenf$(xn,yn)="x":s=0:poke1024+(yn-1)*40+xn-1,32:goto6
12 if((s=1)and(f$(xn,yn)=" "))thenf$(xn,yn)="g":s=0:poke1024+(yn-1)*40+xn-1,61:goto6
13 if((s=1)and(f$(xn,yn)="g"))thenf$(xn,yn)=" ":s=0:poke1024+(yn-1)*40+xn-1,32:goto6
14 if((s=1)or(f$(xn,yn)="=")or(f$(xn,yn)="g"))thens=0:goto6
15 iff$(xn,yn)="x"thenfori=0to39:forj=0to19:poke1024+j*40+i,asc(f$(i+1,j+1)):nextj:nexti:end
16 la=1024+(y-1)*40+x-1:ak=1024+(yn-1)*40+xn-1:if(f$(xn,yn)="*")thenpoke1823,32:goto1
17 fori=-1to1:forj=-1to1:if((f$(xn+i,yn+j)="x")or(f$(xn+i,yn+j)="="))thenan=an+1
18 nextj:nexti:pokela,peek(la)and127:x=xn:y=yn:if(f$(x,y)=" ")thenpu=pu+1
19 f$(x,y)=chr$(48+an):poke1024+(y-1)*40+x-1,an+48:pokeak,peek(ak)or128:an=0:goto6