News:

Printed Amstrad Addict magazine announced, check it out here!

Main Menu
avatar_SRS

"Autorennen" aus der CPCAI 88/12 abgetippt

Started by SRS, 10:17, 30 October 17

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

SRS

Jepp. Ich habe nur noch den Rennwagen in passendes ROT gefärbt.

QuoteAutorennen
Bei dem Programm Autorennen ist es das Ziel, das Auto
möglichst viele Kilometer weit zu fahren. Das Auto hält an,
wenn es gegen die Fahrbahnbegrenzung oder gegen eine der
vielen Baustellen (X) fährt.

Am Beginn kann man die Fahrbreite (4 : sehr schmal bis 10: sehr breit) und die Häufigkeit des Auftauchens von Bau-
stellen (Level 1 : sehr viele bis Level 5 : sehr wenige Baustellen) einstellen.

Viel Spaß bei diesem schnellen Vergnügen.
(Andreas Grüner/cd)


Viel Spass damit !


10 REM Autorennen
20 MODE 1
30 SYMBOL 255,126,102,126,90,90,102,126,60
40 SYMBOL 254,7,31,124,224,224,124,31,7
50 SYMBOL 253,224,248,62,7,7,30,248,224
60 x=20:wa=17
70 CLS:INPUT"Fahrbahnbreite(4-10)";g:IF g>10 OR g<4 THEN 70
80 INPUT"Level (1-5)";l:IF l<1 OR l>5 THEN 80 ELSE l=l*5
90 CLS
100 FOR t=1 TO 25:LOCATE wa,t:PRINT CHR$(254);cHR$(253);sPAcE$(g);cHR$(254);cHR$(253):NEXT
110 a$=INKEY$
120 km=km+0.1
130 IF a$="o" THEN x=x-1
140 IF a$="p" THEN x=x+1
150 LOCATE x,1:pen 2:PRINT CHR$(255):pen 1
160 wa=wa+a:IF wa>36-g OR wa<1 THEN wa=wa-a
170 IF TEST((x-2)*16,393)=1 THEN 260
180 IF TEST(x*16+12,393)=1 THEN 260
190 IF TEST((x-1)*16+8,377)=1 THEN 260
200 LOCATE wa,25:PRINT CHR$(254);CHR$(253);SPAcE$(g);cHR$(254);cHR$(253)
210 IF b=1 THEN LOCATE wa+g/2+1+INT(RND*3),25:PRINT CHR$(203)
220 SOUND 1, 100*RND, 12 , 7
230 PRINT
240 a=INT(RND*3)-1:b=INT(RND*1)+1
250 GOTO 110
260 CLS:LOCATE 2,12:PRINT"Sie sind ";USINg"###.#";km;:?" km gefahren.":END


Snapshot anbei:

Powered by SMFPacks Menu Editor Mod