Author Topic: "Autorennen" aus der CPCAI 88/12 abgetippt  (Read 533 times)

0 Members and 1 Guest are viewing this topic.

Offline SRS

  • Supporter
  • 464 Plus
  • *
  • Posts: 491
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 469
"Autorennen" aus der CPCAI 88/12 abgetippt
« on: 11:17, 30 October 17 »
Jepp. Ich habe nur noch den Rennwagen in passendes ROT gefärbt.

Quote
Autorennen
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 !


Code: [Select]
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: