Racer

 

1 poke53280,0:poke53281,11:sc=0:c$=" {blk}{cbm-d}{lblu}{cbm-p}{blk}{cbm-f} {down}{5 left} {lblu}{cbm-r}{rvon}C{rvof}{cbm-r} {down}{5 left} {blk}{rvon} {rvof}{lblu}{cbm-u}{blk}{rvon} {rvof} {2 up}{5 left}"


2 x=18:fori=0to62step3:poke832+i,0:poke833+i,255:poke834+i,0:next:v=53248:poke2040,13


3 pokev,172:pokev+1,0:pokev+21,1:pokev+28,0:pokev+39,7:pokev+27,1:c=172:d=0:print"{blk}{clr}";


4 fori=0to960step40:poke1024+i,66:poke1054+i,66:next


5 print"{home}{down}"spc(32)"{lblu}score:{down}{7 left}{wht} ";sc;:print"{home}{16 down}"spc(x)c$;


6 j=peek(56320):pokev+1,d:d=d+10:ifd>255thenprint"{clr}game over, score:"sc:pokev+21,0:end


7 ifpeek(v+31)>0thend=0:sc=sc+1:pokev+1,0:pokev+31,0:c=rnd(1)*224+24:pokev,c:goto5


8 ifx>1and(jand4)=0thenx=x-1:print"{left}"c$;:goto6


9 ifx<25and(jand8)=0thenx=x+1:print"{rght}"c$;:goto6


10 goto6

 

 

 

 

 

 

 

 

 

 

 

 

Hier mein kleiner Beitrag, ein simpler Sammel-Racer.

Man muss mit dem Wagen alle Goldbarren einsammeln, ohne einen einzigen zu verpassen. Steuerung über Joystick, Port II.

Viel Spaß!

 

 

Here's my little entry, collect all gold bars with your racer. Do not miss one. Control via joystick in port 2, no sound unfortunately.

Have fun!

 

- Endurion

 

 

 

 

 

 

 

 

 

This site was designed with the
.com
website builder. Create your website today.
Start Now