Apocalypse Now
Im Universum versteckt sich die interplanetarische Spinne Plexar. Sie können die Katastrophe abwenden, wenn Sie das All von dem Ungeheuer befreien.
Bevor Sie mit dem apokalyptischen Kampf gegen die interplanetarische Spinne beginnen, müssen Sie zuerst auftanken. Doch nach 30 Energieeinheiten beginnt ein feindlicher Hubschrauber auf Sie zu schießen. Ist dieses Hindernis hinter Ihnen, geht es links weiter. Im oberen Eck erscheint ein Tunnel, den Sie durchfliegen. Dabei müssen Sie eine Lasersperre überwinden oder einen Mann retten. Dieser sollte bei der Aktion möglichst weit links stehen. Haben Sie diese Hürde überwunden, schließt sich hinter Ihnen eine Mauer. Durch diese müssen Sie sich links unten durchschießen. Auf dem nächsten Bild gilt es eine Barrikade zu durchschießen, die aber mit Vorsicht zu genießen ist. Die nachfolgenden Panzer können Sie nur abschießen, wenn Sie beide zugleich treffen.
Dann kommen Sie zu der Spinne Plexar. Achten Sie vor allem auf die Lasersperren. Wenn Sie nun die Spinne vernichtet haben, fliegen Sie zurück, aber achten Sie darauf, daß Sie möglichst hoch in den nächsten Bildschirm fliegen.
Zum guten Schluß können Sie auf dem Energielager landen und sich von den Strapazen erholen oder Sie spielen weiter. Das hat aber nur Sinn, wenn Sie noch zwei Leben haben.
(Helmut Burgemeister/Helmut Bölcskei/rg)X und Y für Hubschrauber
X1 bis X7 und Y1 bis Y7 für andere Sprites
HU = feindliche Hubschrauberzahl
LD = Plexar abgeschossen?
A = Hubschrauberstellung
E = Schußvariable
1 rem ++++++++++++++++++
2 rem + apocalypse now +
3 rem ++++++++++++++++++********
4 rem * by helmut burgemeister *
5 rem * and helmut boelcskei *
6 rem **************************
7 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^
8 rem ^ maschinen programm ^
9 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^
10 print"{clr}{down}{down}{down}{down}{down}{down}bitte warten !"
20 poke53281,0
30 poke53280,0
40 fori=832to832+33:reada:pokei,a:next
50 data120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
60 data133,89,169,224,133,91,32,191,163,169,55,133,1,88,96
80 sys832:poke850,160:sys832
100 rem ___________________________
101 rem _ daten fuer neue zeichen _
102 rem ___________________________
130 poke56576,peek(56576)and252
135 poke53272,8:poke648,192
140 print"{clr}{down}{down}{down}{down}{down}{down}bitte warten !"
150 fori=280to559:reada:poke57344+i,a:next
210 data255,255,255,255,255,255,255,255
220 data0,0,0,37,205,255,255,255
230 data0,0,0,0,0,255,255,255
240 data137,66,36,24,153,36,66,137
245 data255,129,129,255,129,129,255,255
250 data3,13,49,193,193,49,13,3
255 data0,96,252,255,252,96,0,0
260 data60,60,60,24,24,0,0,0
265 data255,126,255,126,255,126,255,126
270 data0,0,0,255,255,255,0,0
275 data24,60,24,63,88,88,36,66
280 data25,61,25,62,88,88,36,66
285 data0,0,60,32,60,32,32,32
290 data0,0,68,68,68,68,68,124
295 data0,0,124,64,124,64,64,124
300 data0,0,32,32,32,32,32,60
305 data126,255,255,231,231,255,255,126
310 data0,0,0,0,8,5,3,7
315 data0,0,0,0,12,62,127,255
320 data0,0,6,31,127,255,255,255
325 data0,0,0,192,231,239,255,255
330 data0,0,56,252,252,254,255,255
335 data255,127,127,63,31,12,0,0
340 data255,255,254,152,0,0,0,0
345 data255,191,31,15,3,1,0,0
350 data255,255,255,248,248,224,0,0
355 data0,0,36,24,24,36,0,0
360 data65,39,18,207,63,191,127,255
365 data160,68,88,225,250,252,254,255
370 data255,255,255,255,255,255,255,255
375 data255,255,243,195,195,192,0,0
380 data0,0,35,254,35,0,0,0
385 data4,4,11,48,48,64,0,0
390 data0,0,196,127,196,0,0,0
395 data0,32,32,208,12,12,2,0
400 rem +++++++++++++++++
401 rem + sprites daten +
402 rem +++++++++++++++++
500 fori=50304to50304+62:reada:pokei,a:next
505 fori=50368to50368+62:reada:pokei,a:next
510 fori=50432to50432+62:reada:pokei,a:next
511 fori=50496to50496+62:reada:pokei,a:next
512 fori=50560to50560+62:reada:pokei,a:next
513 fori=50624to50624+62:reada:pokei,a:next
514 fori=50688to50688+62:reada:pokei,a:next
515 fori=50752to50752+62:reada:pokei,a:next
517 print"{down} {blu} apocalypse now "
518 print"{down}{down} {yel}by {grn}helmut {cyn}burgemeister{lblu}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}and helmut boelcskei "
519 data0,0,0
520 data0,0,0,255,255,255,0,48,0,3,255,193,4,32,97,8,32,55,16,42,153
525 data96,34,1,128,79,131,128,66,6,128,138,152,255,128,96,64,64,128
530 data32,33,0,16,33,0,143,254,0,129,2,0,127,255,248,0,0,0,0,0,0
540 data0,0,0,0,0,0,31,255,240,0,40,0,0,16,0,0,104,0,0,132,0
545 data1,2,0,6,249,128,4,252,128,11,254,64,9,252,64,4,0,128,3,3,0,0,252,0
550 data1,50,0,2,1,0,4,0,128,28,0,224,0,0,0,0,0,0
560 data0,0,0,0,0,0,255,255,255,0,12,0,131,255,112,135,4,32
565 data252,4,16,153,68,8,128,68,6,193,242,1,96,66,1,24,65,1,6,1,255,1,2,2,0
570 data132,4,0,132,8,0,127,241,0,64,129,31,255,254,0,0,0,0,0,0
580 data0,0,240,0,15,1,0,240,193,15,111,103,240,240,65,3,32,145,4,42,3
585 data8,34,134,0,47,8,16,66,144,96,82,96,128,128,128,128,129,0,143,65,0
590 data240,33,0,64,46,8,32,242,240,31,15,0,129,240,0,143,0,0,112,0,0
600 data15,0,0,128,240,0,131,15,0,230,252,240,156,240,15,137,4,192,192,84,32
605 data97,68,16,16,244,0,9,66,8,6,82,6,1,1,1,0,129,1,0,130,241,0,132,15
610 data16,116,2,15,143,4,0,240,248,0,15,129,0,0,241,0,0,14
620 data0,0,0,0,0,0,0,3,0,0,15,0,0,63,0,0,240,0,0,192,0,0,20,0,0,20,0,0,40,0
625 data0,40,0,0,20,0,0,20,0,0,40,0,0,40,0,0,20,0,0,95,0,0,170,0,3,255,192
630 data13,95,112,3,255,192
640 data0,0,0,0,0,0,0,192,0,0,240,0,0,63,0,0,15,0,0,3,0,0,20,0,0,20,0,0,40,0
645 data0,40,0,0,20,0,0,20,0,0,40,0,0,40,0,0,20,0,0,95,0,0,170,0,3,255,192
650 data13,95,112,3,255,192
660 data128,0,1,71,255,242,36,0,4,16,255,12,25,0,148,38,0,100,2,0,68,69,36,196
665 data69,153,68,124,126,125,68,60,68,68,90,68,68,129,68,67,0,196,66,255,68,68
670 data20,36,40,34,20,16,65,24,47,255,228,64,0,2,128,0,1
700 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
701 rem ^ inetialisierung variablen ^
702 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
997 gosub62130:poke50169,22:poke50168,18
998 v=53248:pokev+21,1:pokev+42,14
999 x=250:y=94:gosub50000
1000 x=250:y=94:a=1:ot=1:v=53248:poke50168,18:gosub63000:o=peek(v+31):ab=ac
1001 pokev+21,1:pokev+29,3:pokev+39,3:b=1:print"{clr}":q=13:x2=0:y2=90:b2=4:c2=3
1002 gosub60100:pokev+21,1
1003 h=32:en=10:pu=.05:b9=0:hu=0
1004 pokev+2,x2:pokev+3,y2:hb=4
1005 pokev+28,12:pokev+37,2:pokev+38,5
1006 poke50170,23:poke50171,24
1009 pokesi+11,65:js=peek(v+30):o=peek(v+31)
1010 rem hauptprogramm
1011 j=peek(56320):js=peek(v+30)
1020 if(jand4)=0thenx=x-5:a=a-1
1030 if(jand8)=0thenx=x+5:a=a+1
1040 if(jand1)=0theny=y-5
1050 if(jand2)=0theny=y+5
1055 ifa>3thena=3
1056 ifa<1thena=1
1059 ify<85theny=85
1060 onagosub2000,2010,2020
1065 y=y+ab
1070 pokev,x:pokev+1,y
1080 if(jand16)=0thengosub2050
1090 o=peek(v+31):ifo=1then3200
1098 ifx>250thenb=b-1:x=250:bi=0:hu=0:b9=0:pokev+21,1:ifb<1thenb=1
1099 ifx<5thenb=b+1:x=5:bi=0
1100 onbgosub4500,5000,5500,6000
1110 poke49152+en+40*3,h:en=en-pu:h=32
1888 ifen>10then1010
1889 gosub61000:gosub60900
1890 ifen<=0thenen=0:ab=4:pokesi+7,100:goto1065
1900 goto1010
1997 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
1998 rem ^bewegungsrichtung von sprite^
1999 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
2000 if(jand4)=0thenpoke50168,21:pokesi+7,255:return
2001 poke50168,18:pokesi+7,200
2009 return
2010 poke50168,19
2019 return
2020 if(jand8)=0thenpoke50168,22:pokesi+7,255:return
2021 poke50168,20:pokesi+7,200
2029 return
2049 rem __________________
2050 rem _ schuss routine _
2051 rem __________________
2059 if(jand4)=0anda=1thengosub3300:return
2060 ifa=1thengosub3000
2070 ifa=2thengosub3030
2079 if(jand8)=0anda=3thengosub3400:return
2080 ifa=3thengosub3060
2090 return
3000 x1=int(x/8-4):y1=int(y/8-5)
3005 fore=x1to0step-1:gosub61400
3006 po=peek(49152+e+40*y1):poke49152+e+40*y1,66:poke49152+e+40*y1,po
3007 ifpeek(49152+e-1+40*y1)<>32thens=-1:goto3100
3010 nexte:return
3030 x1=int(x/8):y1=int(y/8-3)
3033 fore=y1to25step1:gosub61400
3040 po=peek(49152+x1+40*e):poke49152+x1+40*e,42:poke49152+x1+40*e,po
3045 ifpeek(49152+x1+40*e+40)<>32then3110
3050 nexte:return
3060 x1=int(x/8+4):y1=int(y/8-5)
3070 fore=x1to39step1:gosub61400
3075 po=peek(49152+e+40*y1):poke49152+e+40*y1,68:poke49152+e+40*y1,po
3077 ifpeek(49152+e+1+40*y1)<>32thens=1:goto3100
3080 nexte:return
3097 rem +++++++++++++++++++++++
3098 rem + aufprall von schuss +
3099 rem +++++++++++++++++++++++
3100 pokesi+10,3:gosub60700:ifpeek(49152+e+s+40*y1)<>51then3150
3102 poke49152+e+s+40*y1,38:fort=0to100:next:poke49152+e+s+40*y1,32:e=0
3103 sc=sc+6:gosub61200:return
3110 pokesi+10,3:gosub60700:ifpeek(49152+x1+40*e+40)<>51then3170
3111 poke49152+x1+40*e+40,38
3112 fort=0to110:next:poke49152+x1+40*e+40,32:e=0:sc=sc+8:gosub61200:return
3150 po=peek(49152+e+s+40*y1):poke49152+e+s+40*y1,38
3160 fort=0to100:next:poke49152+e+s+40*y1,po:e=0
3165 return
3170 po=peek(49152+x1+40*e+40):poke49152+x1+40*e+40,38
3180 fort=0to100:next:poke49152+x1+40*e+40,po:e=0:return
3197 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^
3198 rem ^ kollision hubschrauber ^
3199 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^
3200 gosub60200:pokesi+18,0:pokev+2,0:x2=0:y2=int(rnd(1)*50)+90:hb=hb-1
3201 pokev+3,y2:o=peek(v+31):js=peek(v+30)
3202 fort=0to100:p=int(rnd(1)*15):pokev+39,p:next:pokev+39,3
3203 ifhb<=0thenpokev+21,0:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}g a m e o v e r":goto8000
3210 x=250:y=94:pokev,x:pokev+1,y:o=peek(v+31):gosub60300:goto1009
3300 x1=int(x/8-4):y1=int(y/8-5)
3310 fore=x1to0step-1:gosub61400
3315 y1=y1+.5
3316 ify1>=24theny1=24:return
3319 po=peek(49152+e+40*int(y1))
3320 poke49152+e+40*int(y1),67
3321 poke49152+e+40*int(y1),po
3330 ifpeek(49152+e-1+40*int(y1))<>32thens=-1:goto3100
3340 nexte:return
3400 x1=int(x/8+4):y1=int(y/8-5)
3410 fore=x1to39step1:gosub61400
3415 y1=y1+.5
3416 ify1>=24theny1=24:return
3419 po=peek(49152+e+40*int(y1))
3420 poke49152+e+40*int(y1),69
3421 poke49152+e+40*int(y1),po
3430 ifpeek(49152+e+1+40*int(y1))<>32thens=1:goto3100
3440 nexte:return
3997 rem ________________________
3998 rem _ bild tanken aufbauen _
3999 rem ________________________
4000 gosub60500:x2=0:y2=90:pokev+2,x2:pokev+3,y2
4001 x=250:y=94:bi=1
4002 tr=49152:c=40:gosub4530
4009 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
4010 rem ^ bildschirmabfrage tanken ^
4011 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
4500 ifbi=0then4000
4501 ifb9=0then:ifen>30andhu<5thenb9=1:pokev+21,3:gosub61570:x3=20
4502 onb9gosub61300
4503 ify<=175andkl=0thenreturn
4504 ifx>140andx<175andkl=0thenkl=1:gosub4511:ifld=1thengoto62000
4505 pu=.05:ify>214andkl=1thenh=160:ot=1:ab=ac:pu=-1:gosub60800
4506 ify>218andkl=1theny=y-ab-1
4507 ify<=170andkl=1thenkl=0:gosub4530:return
4508 ify>214andkl=1anden>=35thenen=35:h=32:pokesi+18,0
4509 ify<=214andkl=1thenpokesi+18,0
4510 return
4511 fort=18to23
4512 fori=15to24
4515 poketr+i+40*t,32
4520 next:next
4521 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
4522 print"{red} {wht}>{red}####{blu} {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O} {red}####{wht}?
4523 print"{red}$$$$$$$$$$#####{grn} {CBM-L}{CBM-J} {CBM-L}{CBM-J} {red}#####$$$$$$$$${home}{lblu}
4529 return
4530 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
4531 print" {wht}%%%%%%%%%%
4532 print" {wht}>###{red}/012{wht}###?
4533 print" {wht}>{red}#{grn}''''''''''{red}#{wht}?
4534 print" {wht}>{red}##{grn}''''''''''{red}##{wht}?
4536 print" {wht}>{red}###{grn}''''''''''{red}###{wht}?
4537 print" {wht}>{red}####{grn}''''''''''{red}####{wht}?
4538 print"{red}$$$$$$$$$$#####{grn}''''''''''{red}#####$$$$$$$$${home}{lblu}
4560 kl=0:return
4997 rem ________________________
4998 rem _ bild tunnel aufbauen _
4999 rem ________________________
5000 ifbi=0thenh=32:goto5010
5005 goto5300
5010 gosub60500:ti$="000000"
5011 x=250:y=94:bi=1:px=45:py=46
5019 print"{home}{down}{down}{down}{red}"
5020 print" >6677656756567756765667878776767657
5030 fort=0to3:print" ()":next
5035 print" () 6786876887678768676787867
5040 fort=0to2:print"{red} () {blu}++":next
5045 print"{wht} (67867887876767676668787 {blu}++
5050 print"{wht} (9:{yel}))))))))))))))))){wht}9;9: {blu}++"
5085 print"{wht} ( {pur}333 3 {blu}++
5090 print"{wht} ( {pur}3 3 {blu}++
5095 print"{wht} ( {pur}3 {blu}++
5096 print"{wht} ( {pur}33333 {pur}3 {blu}++
5100 print"{wht} 788{cyn}3333333{wht}88878787878787 {blu}++
5110 print"{wht} ;:9{cyn}3333333{wht};:9:9:;9:9:;9: {blu}++
5120 print" {lblu} NM {blu}++
5125 print" {lblu} N M {blu}++
5130 print" {lblu} N M {blu}++
5135 print"{red}$$$$$$$$$$$${lblu}#{red}$$$$$${lblu}#{red}$$$$$$$$$$$$${blu}++{lblu}{home}
5297 rem ++++++++++++++++++++++++++++
5298 rem + bildschirmabfrage tunnel +
5299 rem ++++++++++++++++++++++++++++
5300 poketr+q+c*17,px
5320 poketr+q+c*17,py:ify<170thenreturn
5340 ge=int(rnd(1)*15):ifge>10thengosub60000
5345 ifx<140andx>120andy>174andy<178thenpx=32:py=32:gosub61100:gosub61200
5350 ifti$>"000005"thengosub60070
5407 ify<=214thenpokesi+18,0
5410 return
5497 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
5498 rem ^ bildschirm panzer aufbauen ^
5499 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
5500 ifbi=0thenh=32:goto5510
5505 goto5700
5510 gosub60500
5520 x=250:y=94:bi=1:b5=-2:pokev+5,223:pokev+7,223:x5=50:x6=120:pokev+21,13
5521 pokev+4,x5:pokev+6,x6:gosub5800
5530 print"{home}{down}{down}{down}{blu}":b6=2:y7=20:g9=1
5540 print"767878787878786868887868786878687868786"
5545 print":;:;:;9:;9;9:9:;9:;9 "
5547 print"+) (+"
5550 fort=0to2:print"+) (+{cyn}333333{blu}":next
5555 print"+) + (+{cyn}333333333{blu}7786876787"
5560 fort=0to3:print"{cyn} 3{blu} + (+{cyn}333333333{blu}+)":next
5565 fort=0to5:print"{blu}+) {blu}+ {cyn}333 333333{blu}+)":next
5570 fort=0to2:print"{red} (+{cyn}333333333{red}+)":next
5575 print"{grn}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$${lblu}{home}"
5697 rem ++++++++++++++++++++++++++++
5698 rem + bildschirmabfrage panzer +
5699 rem ++++++++++++++++++++++++++++
5700 ifx>168thenreturn
5710 ifx5>138thenb5=3:poke50170,24
5715 ifx5<30thenb5=-2:poke50170,23
5720 ifx6>138thenb6=2:poke50171,24
5730 ifx6<30thenb6=-3:poke50171,23
5740 x5=x5-b5:x6=x6-b6
5750 pokev+4,x5:pokev+6,x6
5755 js=peek(v+30):ifjs=5orjs=9orjs=13then3200
5765 ong9gosub5820,5900
5770 return
5800 x7=int(x5/8-1):y7=21
5810 return
5811 x8=int(x6/8-1):y8=21
5815 return
5820 y7=y7-1
5835 po=peek(49152+x7+40*y7-40)
5840 poke49152+x7+40*y7,90
5850 ifpo<>32thenpoke49152+x7+40*y7-40,po:poke49152+x7+40*y7,32:g9=2:gosub5811
5860 poke49152+x7+40*y7,32
5870 return
5900 y8=y8-1
5920 po=peek(49152+x8+40*y8-40)
5930 poke49152+x8+40*y8,90
5940 ifpo<>32thenpoke49152+x8+40*y8-40,po:poke49152+x8+40*y8,32:g9=1:gosub5800
5950 poke49152+x8+40*y8,32
5960 return
5997 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
5998 rem ^ bildschirm spinne aufbauen ^
5999 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
6000 ifbi=0thenh=32:goto6020
6010 goto6300
6020 gosub60500:ti$="000000":v=53248:poke50172,25:pokev+8,50:pokev+9,157
6030 x=250:y=110:bi=1:pokev+23,16:pokev+29,19:pokev+21,17
6040 pokev,x:pokev+1,y:o=peek(v+31)
6050 print"{home}{down}{down}{down}{blu}"
6060 print" {wht}678787867868786876878677867
6070 print" {wht}+;9:;9:9;9;9:9;+9:;:;A;9:;9
6080 fort=0to1:print" {blu}+) (+":next
6090 fort=0to2:print" +) ":next
6100 print" {wht}76768787868+
6110 print"{blu}(+++++++++++ +) ^achtung^
6120 print"(++ ++) (+)
6130 print"(++ ++ +)
6140 print"(+ {cyn}333{blu} +)
6150 print"(+ {cyn}333{blu} +)
6160 print"(++ ++ +)
6170 print"(++ ++) (+)
6180 print"(+++++++++++7 {blu}+)
6190 print"{wht} ::;9:;:9;9:+ {blu}+)
6200 print" +) {pur}+( +)
6210 print" {blu}+) {pur}+({grn}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{pur}+)
6220 print" {blu}+) {pur}+( {cyn}/012 {pur}+)
6230 print"{grn}$$$$$$$$$$$${blu}+{grn}$$$$${pur}+{grn}$$$$$$$${pur}+{grn}$$$$$$$$$${lblu}{home}"
6297 rem ++++++++++++++++++++++++++++
6298 rem + bildschirmabfrage spinne +
6299 rem ++++++++++++++++++++++++++++
6300 ifti$>"000007"thengosub6400
6305 ifti$>"000010"thengosub6420
6310 pu=.05:ify>206andx>180andx<190thengosub6440
6320 ify<=206thenpokesi+18,0
6325 o=peek(v+31):ifo=16thengosub6550
6399 return
6400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{grn}FFFFFFFFFFFFF{lblu}"
6405 o=peek(v+31):ifo=1then3200
6410 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
6415 return
6420 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{grn}FFFFFFFFFFFFF{lblu}"
6425 o=peek(v+31):ifo=1then3200
6430 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
6435 ti$="000000":return
6440 ifha=1thenreturn
6441 pu=.05:ot=1:h=160:pu=-1:gosub60800:ifen>35thenen=35:ha=1:h=32:pu=.05:ot=1
6450 ify>209theny=y-ab-1
6460 return
6550 fort=0to180:poke53280,t:poke53281,t:gosub60700:next:poke53280,0
6552 poke53281,0:ld=1:sc=sc+1000:gosub61200
6560 pokev+21,1:return
6697 rem ++++++++++++++++++
6698 rem + punkte wertung +
6699 rem ++++++++++++++++++
8000 fort=0to1500:next:print"{clr}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}noch einmal [j] "
8002 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}score{rvon} ";sc
8003 ifsc>asthenas=sc
8004 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}highscore {rvon}";as
8010 poke198,0:wait198,1:geta$:ifa$="j"then9000
8015 poke648,4:sys65126
8020 print"{clr} danke!!! good bye !!!!!!!!!":end
9000 bi=0:b9=0:en=0:hu=0:pu=0:ab=0:kl=0:h=0:px=0:py=0:ge=0:po=0:g9=0
9010 b=0:ha=0:ld=0:sc=0:ac=0:pokev+23,0:pokev+29,0:goto998
10000 rem ^^^^^^^^^^^^^^^^^^^^^^^^^
10001 rem ^ anfangssprite bewegen ^
10002 rem ^^^^^^^^^^^^^^^^^^^^^^^^^
50000 pokev,x:pokev+1,y
50010 x1=int(x/8-4):y1=int(y/8-5)
50020 fore=x1to0step-1
50030 poke49152+e+40*y1,66:poke49152+e+40*y1,32
50040 ifpeek(49152+e-1+40*y1)<>32thenpoke49152+e-1+40*y1,38:goto50070
50050 nexte:return
50070 fort=0to100:next:poke49152+e-1+40*y1,32:x=x-3:e=0:goto50000
60000 poketr+q+c*17,32:q=q-int(rnd(1)*3):q=q+int(rnd(1)*3)
60010 ifq<11thenq=11
60020 ifq>14thenq=14
60060 return
60070 ot=ot*-1:ti$="000000"
60075 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
60080 ifot=-1thenfort=0to2:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ":next:return
60085 print"{lblu}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} NM "
60086 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} N{$a0}{$a0}M "
60087 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N M{lblu}"
60090 return
60099 rem geraeusche
60100 si=54272:pokesi+7,200:pokesi+8,0:pokesi+9,0:pokesi+10,3:pokesi+11,0
60110 pokesi+12,0:pokesi+13,15*16+15:pokesi+21,0:pokesi+22,150:pokesi+23,243
60120 pokesi+24,31:pokesi+11,65
60130 return
60200 pokesi+11,0
60201 pokesi+1,5:pokesi+4,0:pokesi+5,11:pokesi+6,0
60202 pokesi+4,131
60210 return
60300 ifen<=1thenen=15:ifb>1thenen=35
60301 print"{home}{down}{down}{down} {blu} {lblu}"
60302 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}leben {rvon}"hb
60303 print"{home}{down}{down}{rght}{rght}{yel}energy{lblu}":fort=0toen:poke49152+t+40*3,160:next
60304 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
60310 x=250:y=94:ab=ac:h=32:gosub61200
60315 ifb=4theny=110
60320 return
60500 print"{clr}{down}{down}{down} {blu} {lblu}"
60501 print"{home}{down}{down}{rght}{rght}{yel}energy{lblu}"
60502 fort=0toen:poke49152+t+40*3,160:next:gosub61200
60550 return
60700 si=54272:pokesi+4,0:pokesi+1,10:pokesi+5,12:pokesi+6,0:pokesi+4,131
60710 return
60720 si=54272:pokesi+4,0:pokesi+1,20:pokesi+5,12:pokesi+6,0:pokesi+4,131
60730 return
60800 si=54272:pokesi+18,0:pokesi+19,0:pokesi+20,15*16
60810 pokesi+14,200:pokesi+15,39:pokesi+18,17
60820 return
60900 si=54272:pokesi+18,0:pokesi+19,0:pokesi+20,15*16+2
60910 pokesi+14,200:pokesi+15,59:pokesi+18,17
60920 return
61000 ot=ot*-1:ifot=-1thenprint"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ":return
61001 print"{home}{cyn}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}low on {red}fuel{lblu}"
61002 return
61100 sc=sc+100:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{red}+{down}{left}+{down}{left}+{down}{left}+{lblu}"
61120 return
61200 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{rvon}{grn}score ";sc;"{rvof}{lblu}"
61210 return
61297 rem +++++++++++++++++++++++++++++
61298 rem + feindhubschrauber bewegen +
61299 rem +++++++++++++++++++++++++++++
61300 ifx>x2thenb2=+5:m4=22
61310 ifx<x2thenb2=-5:m4=21
61320 ify>y2thenc2=+3
61330 ify<y2thenc2=-3
61335 x2=x2+b2:y2=y2+c2
61340 pokev+2,x2:pokev+3,y2
61341 o=peek(v+31)
61342 js=peek(v+30)
61350 ifjs=3then3200
61351 ifo=2then61500
61352 js=peek(v+30)
61353 ifhu>3thengosub61530
61354 o=peek(v+31)
61355 poke50169,m4
61360 return
61400 ifb=3then61430
61401 ifb=4then61470
61402 ifhu>4thenreturn
61410 o=peek(v+31):ifo=2then61500
61420 return
61430 o=peek(v+31):ifo=12thengosub61450:pokev+21,1:sc=sc+200:gosub61200:g9=0
61440 return
61450 gosub60720:fort=0to100:pokev+38,t:next:return
61470 o=peek(v+31):ifo=16then:gosub6550
61480 return
61500 hu=hu+1:sc=sc+100:gosub61200
61501 gosub60700
61502 fort=0to100:pokev+40,t:next:x2=0:pokev+2,x2:y2=int(rnd(1)*50)+90
61503 pokev+3,y2
61504 ifhu>4thenpokev+21,1:b9=0
61510 e=0:return
61530 x3=x3+1
61535 ifx3>x/8thengosub61570
61536 ifx3>39thengosub61570
61540 poke49152+x3+40*int(y3),68
61545 o=peek(v+31):ifo=1thenpoke49152+x3+40*int(y3),32:goto3200
61550 poke49152+x3+40*int(y3),32
61560 return
61570 x3=int(x2/8+4):y3=int(y2/8-5)
61580 return
61997 rem _________
61998 rem _ musik _
61999 rem _________
62000 fori=54272to54296:pokei,0:next:poke54296,15:poke54275,3
62110 h1=54272:h2=h1+1:ad=54277:sr=ad+1:dr=ad-1:w1=64:w2=32
62120 pokead,72:pokesr,122:pokead+7,43:pokesr+7,187:goto62250
62130 dimf$(18),fl(18),fh(18):fori=0to18
62140 readf$(i),f:fh(i)=int(f/256):fl(i)=f-fh(i)*256:next
62150 dimn1$(200),d1(200),n2$(200),d2(200):i=0
62160 readn1$(i),d1(i):ifd1(i)>0theni=i+1:goto62160
62170 i=0
62180 readn2$(i),d2(i):ifd2(i)>0theni=i+1:goto62180
62200 diml1(200),h1(200),l2(200),h2(200):i=0
62210 forj=0to18
62220 iff$(j)=n1$(i)thenl1(i)=fl(j):h1(i)=fh(j)
62230 iff$(j)=n2$(i)thenl2(i)=fl(j):h2(i)=fh(j)
62240 next:i=i+1:ifn1$(i)<>""then62210
62245 return
62250 sp=val("2")
62260 ifsp<1orsp>4then62250
62270 s1=0:s2=0:c1=0:c2=0:pokeh1,l1(s1):pokeh2,h1(s1)
62280 pokeh1+7,l2(s2):pokeh2+7,h2(s2):pokedr,w1or1:pokedr+7,w2or1
62290 c1=c1+1:ifc1>(d1(s1)*sp/2)thenpokedr,w1
62300 ifc1<(d1(s1)*sp)then62320
62310 c1=0:s1=s1+1:pokedr,w1or1:pokeh1,l1(s1):pokeh2,h1(s1)
62320 c2=c2+1:ifc2>(d2(s2)*sp/2)thenpokedr+7,w2
62330 ifc2<(d2(s2)*sp)then62350
62340 c2=0:s2=s2+1:pokedr+7,w2or1:pokeh1+7,l2(s2):pokeh2+7,h2(s2)
62350 ifd1(s1)>0then62290
62360 pokev+21,0:goto8000
62370 datad3,2408,e3,2703,f#3,3034,g3,3215
62380 dataa3,3608,h3,4050,c#4,4547,d4,4817
62390 datae4,5407,f#4,6069,g4,6403,a4,7217
62400 datah4,8101,c#5,9094,d5,9634,e5,10814
62410 dataf#5,12139,g5,12860,a5,14435
62420 rem 1.stimme
62430 datad5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
62440 datad5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,a4,3
62450 datad5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
62460 datad5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,a4,3
62470 dataf#5,2,a5,2,g5,2,f#5,1,d5,1,e5,1,f#5,2,e5,5
62480 dataf#5,3,e5,1,d5,2,d5,1,h4,1,e5,1,f#5,2,e5,3,d5,1,e5,1
62490 dataf#5,2,a5,2,g5,2,f#5,1,d5,1,e5,1,c#5,1,h4,1,a4,5
62500 datad5,3,c#5,1,h4,1,c#5,1,d5,2,e5,10
62510 dataf#5,2,e5,6,f#5,2,e5,2,d5,1,e5,1,f#5,2,a5,2,g5,2,f#5,1,d5,3,f#5,2,e5,6
62520 dataf#5,2,e5,6,f#5,2,e5,2,d5,1,e5,1,f#5,2,a5,2,g5,2,f#5,1,d5,1
62530 datae5,1,c#5,1,h4,1,a4,3,h4,1,c#5,1
62540 datad5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
62550 datad5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,a4,3
62560 datad5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
62570 datad5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,d5,7
62580 data,-1
62590 rem 2.stimme
62600 datad3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,a3,2,e4,1,a3,1
62610 datad3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,a3,2,e4,1,a3,1
62620 datad3,4,d3,4,a3,4,a3,4,h3,4,g3,4,a3,4,a3,4
62630 datad3,4,d3,4,a3,4,a3,4,h3,4,g3,4,a3,4,a3,3
62640 dataa3,1,a3,7,a3,1,a3,8,d3,4,d3,4,a3,4,a3,3
62650 dataa3,1,a3,7,a3,1,a3,8,d3,4,d3,4,a3,4,a3,4
62660 datad3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,a3,2,e4,1,a3,1
62670 datad3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,d3,8
62680 data,-1
62997 rem +++++++++++++++
62998 rem + gravitation +
62999 rem +++++++++++++++
63000 printchr$(142):pokev+21,0
63001 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}gravitation [ 1 F 3 ]"
63010 poke198,0:wait198,1:geta$:ifa$="1"thenac=.1
63020 ifa$="2"thenac=.5
63030 ifa$="3"thenac=1
63040 ifa$<"1"ora$>"3"then63010
63050 return
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen