IUNNUH ;;;****************** * * * La Piramide di * * IUNNUH * * * ****************** D64500:"PALEO":236066\,87W:236077\,251 w7: 9 : 7: : 502: "DA QUALCHE PARTE NEL DESERTO GIACE LA GRANDE PIRAMIDE DI IUNNUH." w7: 9 : 7: : 502: "DA QUALCHE PARTE NEL DESERTO GIACE LA GRANDE PIRAMIDE DI IUNNUH." 502: '"LE ANTICHE LEGGENDE DICONO CHE SIA PIENA DI TESORI,": 502: '"MA NESSUN UOMO CHE ABBIA CERCATODI SVELARNE IL SEGRETO" j502: "E' MAI TORNATO INDIETRO PER RACCONTARLO.": 502: '"SARO' PER TE OCCHI E ORECCHIE." x502: '"IL TUO SCOPO E' DI PORTAR VIA TUTTI I TESORI CHE LA PIRAMIDE NASCONDE.": 502: '"BUONA FORTUNA," #!502: '"NE AVRAI BISOGNO!" (INIZIALIZZAZIONE - 300, 2M7: 5: 0: : 236099\,502: 23658j\,8 7PD=0: ST=0: P12=0: TM=0: TO1=0: PL1=0: C1=1: C2=1: CP=1: M1=1: NN=40(: LO=40(: NV=31 <5ZZ=0: GS=0: FBC=15: I$="SONO " AP$(24,60<): P(24,6): O$(40(,33!): O(40(): F$(6,5): V$(31,4): N$(40(,4) F 250 K:R$="ORA E' BUIO PESTO! E' PERICOLOSOMUOVERSI ALLA CIECA" PL$="NON POSSO ANDARE DI LA'!" U3J$="LA PORTA E' CHIUSA": K$="LA PORTA E' APERTA" Z-D$="SONO CADUTO E MI SONO ROTTO LA TESTA!" _ 495 dTM O(1)=CP iTM '" LA MUMMIA MI SEGUE" n 140 s&VB=29 VB=30 130 x-VB>8 M$="" C$;" COSA?": 110n }WM$"" (VB=6 VB=7 VB=8) NO=0 "NON HO CAPITO!":110n ((VB*100d)+900) ) ANALISI RISPOSTA DEL GIOCATORE C$  1: .5,35#: "COSA DEVO FARE? ";C$: 8M$="": S$="": VB=0: NO=0: FLAG=0 7LC=C$: I=1 LC: C$(I)=" " I=LC: 160 S$=S$+C$(I) I &U$=S$:Y=U$:Y4175 #X=14-Y:U$=U$+" ":X RS$=U$(14):I=1NV:V$(I)=S$VB=I:I=NV+1:FLAG=1 I:FLAG190 VB=6:M$=S$:210 -FLAG=0:U$+1>C$NO=0: M$=C$(Y+5̱C$) M$4210 %W=14-M$:M$=M$+" ":W ZQ$=M$:M$=M$(14):I=1NN:M$=N$(I)APP=I:I=NN+1:FLAG=1 I:FLAG225 NO=0: NO=APP: :"SONO MORTO!" ::  CARICAMENTO ARRAYS  + DESCRIZIONI DEI LUOGHI IN P$(24,60)  fP$(1)="NEL DESERTO":P$(2)=P$(1):P$(3)=P$(1):P$(4)=P$(1) 3P$(5)="NEL DESERTO,DI FRONTE A UNAPIRAMIDE" =P$(6)="NELL'ANTICAMERA DELLA PIRAMIDE DI IUNNUH"  ,H$="SUL MURO C'E' INCASTONATO UNO ZAFFIRO" nP$(7)="IN UNA STANZA TRIANGOLARE ":P$(8)="IN UNA SALA BIANCA "+H$:P$(9 )="IN UNA NICCHIA" P$(10 )="IN UN CORRIDOIO":P$(11 )="IN UNA SALA ROSSA":P$(12 )="IN UNA SALETTA":P$(13 )="NELLA SALA DELL'ALCHIMISTA" eP$(14)="NELLA SALA DELL'IMBALSAMATORE":P$(15)="NELLA STANZA DI IANKHO" cP$(16)="IN UN TUNNEL":P$(17)="IN UN TUNNEL. UNA SCRITTA DICE:NON PASSARE O MORIRAI" "?P$(18)=P$(16):P$(19)="IN UNA STANZA VERDE" 'SB$="CON UN FOSSO TROPPO LARGO DA SALTARE":E$="CON UNA TRAVE CHE FA DA PASSAGGIO" ,A$="IN UN CUNICOLO STRETTO," 1P$(20)=A$+B$ 6QP$(21)="NELLA VECCHIA ARMERIA":P$(22)="NELLA SALA DEI GEROGLIFICI" ;NP$(23)="NELLA SALA DI HANYKE":P$(24)="NELLA CAPPELLA FUNERARIA" @ STATE TABLE IN P(24,6)  E2,4,2,1,0,0,2,3,3,1,0,0,2,5,2,4,0,0 J1,5,3,4,0,0,4,0,3,0,0,0,5,10 ,7,8,0,0 O0,10 ,0,6,0,0,0,9 ,6,0,0,0,8,0,10 ,0,0,0 T6,0,7,9 ,0,0,0,13 ,14,0,0,0,0,15,13 ,0,0,10 ,11 ,15,14,12 ,0,0,11 ,0,0,13 ,0,0 Y13 ,0,0,12 ,0,0,0,0,17,0,8,0,0,0,18,16,0,0,0,21,19,17,0,0 ^0,0,0,18,0,0,0,0,21,0,0,0,18,0,22,20,0,0,0,0,0,21,0,0 cd20,24,0,0,0,0,23,0,0,0,0,0 h 325E m5I=124:J=16:P(I,J):J:I r w* DEF E CAR O$() ARRAY DEGLI OGGETTI  |V"UNA TORCIA","UNA CHIAVE","UNA TRAVE DI LEGNO","UNA SCRITTA","UNA PORTA","UN FLAUTO" G$="UNO SCHELETRO CONTENTO" h"UN TESCHIO","UNA *COLLANA D'ORO*","UNO SCHELETRO SENZA TESTA","UN'ALTARE INSANGUINATO","BENDE PULITE" U"UNA *SCURE D'ORO*","BATTERIE CARICHE","DROGHE","UN COBRA VELENOSO","UNO *ZAFFIRO*" w"UNA SPADA ROTTA","UN *ANTICO VASO*","UN SARCOFAGO APERTO","UNA *MASCHERA D'ORO*","UNA MUMMIA CON LE BENDE SPORCHE"  380| I=121:O$(I):I " LOCAZIONE OGGETTI IN O(21)  1,0,3,4,5,6,8,9 ,10 ,11 ,11 ,11 ,12 ,13 ,15,15,16,22,24,0,17 I=121:O(I):I ! NOMI ABBREVIATI IN N$(40)  "TORC","CHIA","TRAV","SCRI","PORT","FLAU","TESC","COLL","SCHE","ALTA","BEND","SCUR","BATT","DROG","COBR","ZAFF","SPAD","VASO","SARC","MASC","MUMM" u"SABB","STAN","GERO","SALA","CORR","CUNI","SCAL","NORD","SUD","EST","OVES","SU","GIU","N","S","E","O","SOPR","SOTT" I=140(:N$(I):I " VERBI ABBREVIATI IN V$(28)  Ǔ"PUNT","ARRE","INVE","I","GUAR","VAI","CORR","CAMM","ESAM","PREN","PIGL","POSA","LASC","DAI","APRI","*","SUON","LEGG","ONDE","SCAV","MANG","BEVI" @"CHIU","ROMP","SFON","ACCE","SPEG","SALT","VAFF","CREP","CAMB" I=131:V$(I):I  DIREZIONI IN F$(6)  ,"NORD","SUD","EST","OVEST","SOPRA","SOTTO" I=16:F$(I):I  5 MAIN ROUTINE 'SONO VEDO E POSSO ANDARE A ...'  +:CP<65:7:9 : -CP=17O(21)0TM=1 -O(1)=-1TO16:9 : FBC=0TO1=0 ^CP>50:(O(1)-1TO1=0)0:7::R$:PD=1: |'I$+P$(CP):PD=0:CP=4(O(8)=CPO(12 )=CPO(16)=CPO(18)=CPO(20)=CP)5000  P(CP=6CP=18)TM=1"AIUTO! LA MUMMIA MI ATTACCA!":230  T$="VEDO: " (I=1LO:O(I)=CPT$;O$(I):T$="" I !CP=5C1J$ &CP=5C1=0K$ + FL=0 0"POSSO ANDARE A: " 5I=16 :)P(CP,I)0F$(I);" ";:FL=1 ?I D I INIZIO ZONA ROUTINES   PUNTEGGIO  "HAI RAGGIUNTO IL" DER1=0 (O(8)=-1DER1=DER1+1 )O(12 )=-1DER1=DER1+1 )O(18)=-1DER1=DER1+1 $)O(20)=-1DER1=DER1+1 .)O(16)=-1DER1=DER1+1 8*DER1*20-5*(DER1>0);"%" B 110n L  RESA  V"OK.":235  INVENTARIO  'GS=0:ZZ=0:"HO CON ME: " BI=1LO:O(I)=-1O$(I):GS=GS+1:ZZ=ZZ+1 I GS=0"NULLA"  110n  COME SOPRA   1200 x MAIN ROUTINE   095_  VAI,CORRI,CAMMINA  NO=0"UH?":110n :M$""NO=0"NON CONOSCO QUESTA PAROLA":110n 5NO<27NO5"NON TI CAPISCO":110n NO>34"NO=NO-6 _CP=5NO=5C1=0"OK.":CP=P(CP,1+1):FBC=FBC-1:095_ YCP=8NO=27P12"OK.":CP=P(CP,5+1):FBC=FBC-1:095_ YCP=10 NO=28ST"OK.":CP=P(CP,4+1):FBC=FBC-1:095_  2NO<29"ANCORA NON POSSO FARLO":110n NO=NO-29  (NO+1)PDD$:230 )P(CP,NO+1)=0L$:110n 2CP=P(CP,NO+1):CP6FBC=FBC-1  095_ @ COME SOPRA  J 1500  COME SOPRA   1500  ESAMINA  4NO=0"NON CONOSCO LA PAROLA ";Q$:110n `(NO=4CP=4)(NO=16O(16)=-1)"C'E' SCRITTO QUALCOSA":110n &YCP=24NO=19"VEDO QUALCOSA...":O(20)=24:100d:095_ 0)"NON VEDO NULLA DI SPECIALE":110n l PRENDI,PIGLIA  vNO=01800 3O(NO)=-1"GIA' CE L'HO CON ME!":110n 4O(NO)CP"NON VEDO ";Q$;" QUI INTORNO":110n hNO=4NO=5NO=9 NO=10 NO=15NO=19"NON ESSERE SCIOCCO!":110n .NO>20"NON FARE LO SCEMO!":110n @ZZ>4"NON RIESCO A PORTARE NIENTE ALTRO":110n QCP=20NO=3P$(20)=A$+B$:P(20,1+1)=0 @CP=15NO=16C2"IL COBRA MI HA MORSO!":230 HZZ=ZZ+1:"OK.":O(NO)=-1:NO=1CP=1795_  110n  COME SOPRA   1900l 4 POSA,LASCIA,DAI  >NO=01800 H.O(NO)-1"NON L'HO CON ME":110n R9NO3NO7NO11 O(NO)=CP:2180 \NO=3CP=20"WOW! ORA POSSO ANDARE A SUD PASSANDO SULLA TRAVE":P$(20)=A$+E$:P(20,1+1)=23:O(3)=0:100d fuNO=7CP=10 "LO SCHELETRO SE LO METTE SULLE SPALLE POI TIRA UNA LEVA E UNA SCALA SCENDE DAL SOFFITTO" pNO=7CP=10 P(10 ,4+1)=12 :O$(9 )=G$:O(7)=0:ST=1:ZZ=ZZ-1:110n zNO=11 TM=1"LA MUMMIA DICE:-GRAZIE STRANIERO ERA PROPRIO ORA CHE QUALCUNO CI PENSASSE, ORA POTRO' PASSARE ALTRI DUEMILA ANNI IN PACE- PRENDE LE BENDE E SE NE VA":200:O(21)=0:O(11 )=0:TM=0 %ZZ=ZZ-1:100d:095_  COME SOPRA   21004  COME SOPRA   21004 `  APRI  j NO5"UHU?!":110n t7CP5"QUI NON C'E' NULLA DA APRIRE":110n ~'C1=0"MA E' APERTA":110n :O(2)-1"NON HO NULLA PER FARLO":110n M"OK.":C1=0:P(5,1+1)=6:100d:095_  MAIN ROUTINE  095_ (  SUONA  2NO6"EH?!":110n <,CP15"NON ACCADE NULLA":110n F9O(6)-1"ANCORA NONPOSSO FARLO":110n P4,14,.5,12 ,.5,14,1,15,.5,14,.5,12 ,4,11 ,.5,9 ,.5,7,4,10 ,.5,9 ,.5,7,.5,9 ,.5,7,.5,5,.5,3 Z 4,2,4,5,.5,3,.5,5,1,7,.5,5,.5,3,4,2,4,5,.5,3,.5,5,.5,3,.5,5,.5,3,.5,5,2,2 d2640P :X=132 :D,P:D/4,P:X:"FUNZIONA.IL COBRA SI ALLONTANA":O(15)=0:C2=0:100d:095_  LEGGI  2NO4NO16"NON CAPISCO":110n @NO=4CP=4"DICE: PORTARE QUI I TESORI":110n @NO=16O(16)=-1"DICE:ONDEGGIAMI":110n  ONDEGGIA  'NO16"NON CAPISCO":110n -CP8"NON SUCCEDE NIENTE":110n O(16)=-1"INCREDIBILE! IL MURO SI ILLUMINAE APPARE UN PASSAGGIO CHE PORTA DI SOTTO":P(8,5+1)=16:100d +H$="C'E' UN PASSAGGIO CHE PORTA DI SOTTO" ";P12=1:P$(8)=P$(8)(119)+H$ ,100d:095_ T  SCAVA  ^7NO22CP>5"UHU?!":100d:095_ hQNO22"HO SOLO LE MANI PER SCAVARE COSI' SCAVO LA SABBIA":110n r"SCAVO CON LE MANI E..." |HCP=2"TROVO QUALCOSA":O(2)=2:100d:095_ "NON TROVO NULLA":110n  MANGIA  @NO14NO16NO2"NON MI PIACE!":110n BO(14)=-1O(14)=CP"OK.":"AAGHHH!":230 E"OK.":"NON HA UN BUON SAPORE":O(NO)=0:100d:095_   BEVI  &%"QUESTA NON ME LA BEVO!":110n  CHIUDI  8"MEGLIO LASCIARE TUTTO APERTO,NONSI SA MAI":110n  ROMPI,SFONDA  N"SE TI PIACE SFASCIARE LE COSE PERCHE' NON GIOCHI AGLI ARCADE?":110n H COME SOPRA  R 3300  ACCENDI  (NO1"NON SCHERZARE":110n 3O(1)-1"NON L'HO CON ME":110n .TO1FBC0"E' GIA' ACCESA":110n FFBC=0"NON POSSO, LE BATTERIE SI SONO SCARICATE!":110n 3"OK.":TO1=1:6:0::095_  SPEGNI  *NO1"SPIEGATI MEGLIO":110n $-O(1)-1"NON POSSO":110n .*TO1=0"E' GIA' SPENTA":110n 83"OK.":TO1=0:0:9 ::110n t  SALTA  ~!CP20"WHEE!":110n (CP=20P12=0D$:230  #!??@#&*/!!!!!  tCP<6:11 ,0;"GUARDA CHE L'AVVENTURA E' LUNGA E DIFFICILE SE COMINCI IN QUESTOMODO.":110n oCP>6CP<11 :11 ,0;"PER ME E' OLTREMODO DIFFICILE, DOVRESTI PROVARE TU.":110n mCP20O(3)=-1:11 ,0;"SMETTILA DI IMPRECARE E USA IL CERVELLO!":110n 6"BEH, FACCIAMO FINTA DI NON AVER CAPITO.":110n < #!??@#&*/!!!!!  F 3800  CAMBIA  /NO13 "NON TI SEGUO, SPIEGATI MEGLIO." UO(13 )-1"NON HO ";O$(13 )(116);" CON ME":110n CFBC>0"QUELLE CHE CI SONO VANNO ANCORA BENE...":110n M"OK.":FBC=70F:PD=0:O(13 )=0:TO1=1:95_  FINE GIOCO  m3:3::1;9 ,9 ;" COMPLIMENTI! ";11 ,4;"HAI RISOLTO L'AVVENTURA." #' UPALEO Vz' $$$~$$~$>P<  F(*D:  >>> @@>FJT(8<<@>$D> @|| @|| @@>BB||| ~~" @@8$"BB>" x@>" x@>" @L"""|D ~"$(pH @@"6*BB"2:LD>""DD""|@""DT""|H <~ @@"""DD"""DH؈B$$BB$ > @  @@ 00* x @~<~|@@@||@~~|B|~~@<  0BBBBDHBBHL00HB~x @8pp(