home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_B.d64
/
game-demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
1 poke53280,0:poke53281,0:poke53270,216:fort=0to7:readx:poke832+t*3,x:poke12288+t,x:next
2 v=53248:pokev+21,0:poke2040,13:pokev+37,9:pokev+38,7:data20,113,65,65,85,90,111,44
3 x=167:y=50:print"[147]"tab(255)" bubble !":printtab(48)"(c) by [158]sven forstmann":fort=0to7
4 poke12544+t,0:next:printtab(254)"[159]press fire":wait56320,127,127:print"[147][155]"tab(255)tab(255)tab(255)
5 poke53270,216:poke53272,29:poke53283,14:pokev+39,14:pokev+21,1:poke53282,6:pokev+28,1
6 pokev+16,0:pokev,0:forg=80to0step-.1:print"@"spc(int(rnd(1)*g+g));:p=p+1:gosub7:nextg:goto16
7 wait653,1,1:j=peek(56320):if(jand1)=.theny=y-4:ify<50theny=y+4
8 if(jand2)=.theny=y+4:ify>230theny=y-4
9 if(jand4)=.thenx=x-4:ifx<0andpeek(v+16)=1thenpokev+16,.:x=255
10 if(jand8)=.thenx=x+4:ifx>80andpeek(v+16)=1thenx=x-4
11 ifx>255thenx=.:pokev+16,1
12 ifx<24andpeek(v+16)=.thenx=x+4
13 ifpeek(v+31)=1thenpoke53272,21:print"[147]"spc(95)"game over":pokev+31,.:goto15
14 pokev,x:pokev+1,y:return
15 fort=0to99:pokev+37,t:next:pokev,0:print""spc(254)"points :";p:fort=0to2000:next:run
16 fort=8to15:poke12288+t,85:next:fort=1984to2023:poket,1:next:fort=yto255step.1:pokev+1,t:next
17 print"[147][159]";tab(255)"the [158]end":printtab(253)"points:[156]";p+int(rnd(1)*100):poke53272,21
18 printtab(246)"[155]press space to play again !":poke198,0:pokev+16,0
19 pokev,rnd(1)*231+24:fort=0to255step2:pokev+1,t:ifpeek(198)=1thenpokev,0:run
20 next:goto19