Share This Post

Wieści z branży gier

Road Runner – ocaliliśmy pierwszą grę Bliźniaków Oliver

Road Runner – ocaliliśmy pierwszą grę Bliźniaków Oliver

W 1984 roku, Philip Oliver napisał swoją pierwszą komercyjną grę — wydrukowaną (do ręcznego przepisania!) „wyścigówkę” o nazwie Road Runner.
Historię tej i wielu innych gier Bliźniaków Oliver usłyszeć możecie w naszym obszernym wywiadzie.

Road Runner

W ciągu 32 lat (!) od publikacji oryginalny kod niestety zaginął. W posiadaniu kopii gry nie byli nawet jej oryginalni autorzy.

Nam udało się odnaleźć oryginalne źródło dla komputera Dragon 32 i za zgodą autorów opublikować je w serwisie Github, by upewnić się, że już nigdy nie zaginie.

Posiadacze urządzeń z technologią Flash mogą też zagrać w Road Runnera w przeglądarce korzystając z poniższego emulatora komputera Dragon 32! Miłego grania!
(Kliknij na oknie gry i wciśnij Ctrl+J, by przejść w tryb dżojstika. „Pojazdem” kieruje się strzałkami lewo-prawo.)

Kopia kodu źródłowego znajduje się również poniżej i zawiera się w niecałych 50 linijkach (nie licząc komentarzy).

0 REM ROAD RUNNER BY PHILIP OLIVER
1 CLS:PRINT"+*+*+*+*+* ROAD RUNNER +*+*+*+*+        BY PHILIP OLIVER"
2 REM FOR THE DRAGON 32
3 REM TYPE THEN FOLLOWING FOR GREATER SPEED:-POKE"65495,0"
4 REM MAIN PROGRAM LOOP 7-9
5 GOSUB 13:REM SETTING VARIABLES
6 GOSUB 39:REM "V" SHAPE TO STOP CARS ESCAPING
7 FOR M=1TO9999999999:GOSUB 23
8 GOSUB 19
9 NEXT M
10 GOSUB 33
11 GOSUB 31
12 GOTO5
13 SC=0:BE=1:J1=12:D=18:R=6:A$=CHR$(143+32):REM SC=SCORE:BE=BEAT HI. SCORE:J1=POSITION OF NEAR SIDE ROAD:D=DANGER! WIDTH OF ROAD:R=STARTING POSITION FOR ROAD:A$=SIDES OF ROAD
14 INPUT "HOW MANY LIVES WOULD YOU LIKE (1-9)";LE
15 IF LE>9 OR LE<1 OR LE<>INT(LE) THEN 14
16 FOR Z=0TO LE:XS=C(Z):NEXT Z:REM SET HI. SCORE
17 S=LE:PLAY"T42;ABCDBCDECDEFDEFG"
18 RETURN
19 J=JOYSTK(0)/32:J1=J1+J-1:IF J1>31 THEN J1=31 ELSE IF J1<0 THEN J1=0
20 IF POINT((J1)*2,4)=8 OR POINT((J1)*2,4)=3 THEN SOUND 200,2:S=S-1:IF S=0 THEN 10 ELSE 6
21 POKE1088+J1,47+S
22 RETURN
23 RN=RND(3)-2:R=R+RN:IF R<1 THEN R=1 ELSE IF R>D1 THEN R=D1
24 [email protected]+480,A$;A$;:REM NEAR SIDE OF ROAD
25 [email protected](RND(D))+480+R,CHR$(143+112);:REM PRINTS RANDOM CARS AT BASE OF SCREEN
26 [email protected]+D+479,A$;A$:REM FAR SIDE OF ROAD
27 SC=SC+10:IF INT(SC/1000)=SC/1000 THEN D=D-1:IF (INT(SC/10000))=SC/10000 THEN PLAY"T42;ABCBCDCDEDEFEFG":S=S+1:REM FREE LIFE AT 1000
28 [email protected],SC
29 IF SC>XS THEN IF BE =1 THEN PLAY"T42;ABCDEFGFEDCBA":BE=0:REM FOR BEATING HI. SCORE
30 RETURN
31 PRINT:PRINT:INPUT"WOULD YOU LIKE ANOTHER GAME";G$
32 IF G$="N" OR G$="NO" OR G$="NO THANKS" THEN END ELSE RETURN
33 PRINT"TOUGH LUCK! YOU'RE DEAD"
34 PRINT"+*+*+*+* HIGH SCORE *+*+*+*+*+*"
35 FOR Z=1TO9
36 IF LE=Z THEN IF SC>C(Z) THEN C(Z)=SC::REM UP DATING HI. SCORE
37 PRINT"LEVEL";Z;"= ";C(Z):NEXTZ
38 RETURN
39 IF D<8 THEN D=8
40 CLS:J1=D1+0.5*D:FOR ST=1TO 15
41 IF ST<=R THEN V=ST ELSE V=R
42 [email protected]+480,A$;A$;
43 IF -ST+30 >V+D THEN V1=30-ST ELSE V1=V+D
44 [email protected]+478,A$;A$
45 IF ST>45 THEN GOSUB 19
46 NEXT ST
47 RETURN
48 'RENUM
49 '200B$=INKEY$:IFB$=CHR$(9) THEN J1=J1+1:IF J1>31 THEN J1=31
50 '202IF B$=CHR$(8) THEN J1=J1-1:IF J1<0 THEN J1=0

[Emulację napędza flashowa wersja XRoar]

not this guy again. oh god how did this get here i am not good with computer.

9 komentarzy

  1. Genialne, że można w to grać na przeglądarce. Poza tym dość trudna. Czasem nie ma reakcji na strzałki.

  2. P.S. Można sobie skopiować kod dla siebie?

    • Oczywiście, na Githubie (link powyżej) jest plik w formacie BAS, który jest zwykłym plikiem tekstowym, ale można go załadować prosto do emulatora 🙂

      • Dzięki. Dzięki temu będę mógł w kaprysie pobrać to za darmo i legalnie. 🙂

        P.S. Odtwarzacze arhn.eu beta nie działają (żaden nie działa). 🙁

  3. Linie 20 – 23, 40 -43 zagubione w akcji. Po sformatowaniu kod wyglądałby ładniej.

    • Dzięki, popracowałem trochę nad formatowaniem posta. 🙂

  4. Dark Archon, jako iż kod jest od Braci Oliver, wypadałoby gdybyś upewnił się na jakiej licencji wstawiłeś ten kod, oraz dodać tą licencję na GitHubie 😛

  5. A ja tylko włączyłem i… już wyskoczyłem poza system >> patrz załączone zdjęcie 😉
    Archon, doskonała robota z tym materiałem, gratuluje i pozdrawiam!

  6. Zostawiłęm grę samą sobie na pewną chwilę, wróciłem, poskręcałem trochę pojazdem iii chyba zepsułem… (przed skręcaniem nie było porozrzucanych po całej planszy znaków)

Comments are now closed for this post.