Podziel się tym postem

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.

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

    Odpowiedź
    • 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 🙂

      Odpowiedź
      • 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). 🙁

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

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

      Odpowiedź
  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 😛

    Odpowiedź
  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!

    Odpowiedź
  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)

    Odpowiedź

Zostaw odpowiedź

Twój adres email nie zostanie upubliczniony. Wymagane pola oznaczone są *

Dozwolone są te tagi HTML i atrybuty: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.