- Top Stats

Top Posters Top Topic Starters Top Topics
TFM 45
Devilmarku... 30
viddi 22
Octoate 14
SRS 12
SRS 5
TFM 3
Zehphez 3
viddi 2
Tolkin 1
Orion Prime - ... - 12166 Views viddi 14:42, 11 September 09
Heute wiederge... - 6987 Views Devilmarku... 15:06, 31 July 10
Rate (das) Spiel - 5743 Views Zehphez 00:39, 21 March 10
Suche Chopper ... - 3706 Views viddi 11:32, 08 October 09
Spiel gesucht ... - 2960 Views Trotzdem 23:47, 20 October 09


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

0 Members and 1 Guest are viewing this topic.

Offline SRS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 519
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 515
"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: