From Hell n. 3

Torna all'inizio
Torna alla homepage

African Escape - 1982
Bruce Robinson


African Escape - Il codice sorgente su Commodore 64

Precisazione: con la pubblicazione del codice sorgente non intendiamo in alcun modo danneggiare i detentori del copyright. Gli autori del porting hanno cercato di rintracciare in ogni modo gli autori del gioco originale per chiederne il permesso di pubblicazione, senza successo. Dal momento che sono trascorsi molti anni dalla pubblicazione originale e che il gioco è disponibile gratuitamente, riteniamo di poter divulgare, per motivi di completezza filologica, il codice sorgente del gioco. Nel caso in cui ci siano problemi di copyright rimuoveremo questa pagina dalla distribuzione del gioco.

0 poke 13*4096+17,27
1 print"(clr)(down)(wht)african escape(up)tm(down)(down)":print"copyright 1982 bruce robinson":goto9020
2 j=val(mid$("3301010200",l,1)):return
3 print"nothing happened.":goto7
6 print"i can't do that.
7 goto299
8 print"ok.":goto7
9 r$="look":print"(down)tell me what to do":inputr$:print"(clr)(down)"r$"(down)":v$=left$(r$,2)
10 r$=r$+" "
30 ifeandl%(20)then110
40 ifethene=e+1:ife>9thenprint"cannibals recaptured me!":l=10:e=1:goto7
110 v=h:forq=2to33step2:ifv$=mid$(a$,q,2)thenv=q/2:q=h
125 next:n$="":forq=len(r$)-2to1step-1:ifmid$(r$,q,1)=" "thenn$=mid$(r$,q+1,2):q=.
130 next:n=.:forq=2to65step2:ifn$=mid$(b$,q,2)thenn=q/2:q=h
140 next
142 ifn=7thenn=18
145 ifn$="le"thenn=10
150 ifn$="pi"thenn=20
160 ifn$="po"thenn=16
170 ifn=6andl<6thenn=27
180 onvgoto200,200,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500
185 print"huh?":goto7
200 ifl-3then3
210 l=10:print"cannibals heard me, they're having me for dinner.
299 n=.
300 x=n:ifn=0thenx=l
310 ifx<11andx=lthenprint"i am in "d$(l):ifl=3thenprint" -sinking fast
320 j=1:print"i see:"
325 forq=1to28:ifabs(l%(q))=xthenprintd$(q):j=.
330 next:ifl=9thenprintd$(2):j=0:ifl%(15)thenprintd$(15)
335 ifl=10thenprint"guard outside hut.":j=0
340 ifjthenprint"nothing";:ifx>10thenprint" special";
345 print:gosub2:ifn>10orj=0then9
350 print"(down)obvious exits are:":ifjand1thenprint"west
360 ifjand2thenprint"east
365 ifl=1thenprint"north":print"south"
399 goto9
400 ifl%(n)=lthenl%(n)=h:goto299
410 ifn=25andl%(n)=20thenl%(n)=h:goto7
449 goto6
500 ifl=2thenl=9:goto7
510 goto6
600 ifl%(n)-hthenprint"i don't have it!":goto7
605 input"where";r$:r$=left$(r$,2):ifl=9orl=2thenifn=14andr$="li"andl%(15)then690
610 ifn=21andl=8thenifr$="hu"orr$="le"then650
620 ifl-5orn-25orr$<>"st"then3
630 l%(n)=11:d$(n)="stepping stones":goto8
650 print"congratulations! you fixed the hull andsailed home.":end
690 l%(14)=2:l%(15)=0:print"hit lions on head and they ran away!":goto299
700 input"with what";r$
710 ifl=10andleft$(r$,2)="kn"thenl=4:print"tunnelled into old silver mine.":e=1:goto299
720 goto3
800 ifn=14then3
805 ifn-18then600
810 ift=0then3
820 ifl=4thenprint"not a good idea!":goto299
830 l%(4)=0:l%(20)=-5:p=1:goto299
900 ifn=16andl%(22)=hthend$(n)="hypnotized snakes":c=1:goto8
910 goto3
1000 ifl=10thenprint"guard won't let me!":goto9
1002 ifl=3thenprint"the more i move the faster i sink!":goto9
1004 ifn=23thenprint"i can't swim!":goto9
1005 ifn>28thenl%(28)=0:ifl=1thenl%(27)=(rnd(0)<.3):goto8
1006 ifl=9andn=2thenl=2:goto7
1008 ifn=.then1099
1010 gosub2:ifl=5then1050
1012 ifl=7then1070
1014 ifl=1andn=2andl%(2)thenl=2:goto8
1015 ifn=29andl=2andl%(15)thenprint"lions won't let me by":goto9
1020 ifn=29thenifjand1thenl=l+1
1030 ifn=30thenifjand2thenl=l-1
1040 goto299
1050 ifp=0andn=4thenl=n:goto7
1055 ifn=11then1085
1060 goto1099
1070 ifn=8thenl=n:goto7
1075 ifn-6then1099
1080 ifcthenl=n:goto7
1085 print"not a good idea!":goto7
1099 print"i can't go there":goto7
1100 j=1:print"i have:":forq=12to25:ifl%(q)=hthenprintd$(q):j=.
1110 next:ifjthenprint"nothing."
1120 goto9
1200 ifl-7orn-26orl%(22)then3
1210 l%(22)=h:print"grateful natives gave me a flute.":goto9
1300 ifn-27orl-1orl%(27)=0then3
1310 print"aha! water. now i can see straight.":l%(2)=1:goto9
1400 input"to what";r$:r$=left$(r$,2):ifl-4orn-18orl%(18)-horr$<>"su"then3
1410 t=1:goto8
1500 ifn-11orl-5then6
1510 ifl%(25)-11thenprint"not a good idea!":goto9
1520 l=7:goto8
2900 input"with what";r$:r$=left$(r$,2):return
9020 print"all rights reserved.(down)
9999 dimd$(28),l%(28):l=1:h=99:a$=" cayesclogeclthdipuchgoinfecuticr
10010 b$=" deoaqumiencavishtrhustknfocolisnsuvihurutaflocleronacaplweeanoso
10015 forq=1to28:readd$(q):next:datadesert,oasis,quicksand,mine,mine entrance
10018 datacave,village,shipwreck,tree
10020 datahut,stream,knife,food,coconut,lions,poisonous snakes,support beams
10025 datavines,hungry pirahna,pile of rubble,tar,flute,ocean,leaky hull,rocks
10030 datanatives,cactus,plane wreck
10080 forq=1to28:readl%(q):next
10085 data0,0,-3,-5,0,-7,0,-7,-2,0,-5,99,99,9,-2,-6,-4,5,-11,0,6,0,-7,-8,20,-7,-1,-1
10090 goto300