Étape 5: Bonus 1: un second jeu d’aventure.
[code]
REM HOUNTED HOUSE
REM, j’ai fait cela en environ 2 ou 3 heures juste pour le plaisir.
REM ceci est mon premier jeu si réel.
REM Im seulement 15 donc gimmie sum slak si il sux lol.
POUR s = 1 à 40, étape 5
COULEUR INT(RND * 15) + 1
IMPRIMER la $(s) de l’espace ; « MAISON HANTÉE » ;
S prochaine
"jouer « L7O1GFGGGBABBBBCO3BBBBDGGGGFGGABCGO4DBBBBGFG »
menu :
CLS
COULEUR 4
IMPRIMER « MAISON HANTÉE - PAR LOGICIEL DE BASE DE GEEK »
COLOR 12
IMPRIMER
IMPRESSION « MENU »-
PRINT "1 > ' jouer le jeu"
PRINT "2 > aider"
PRINT "0 > cesser de fumer"
FAIRE
Laissez k$ = INKEY$
IF k$ = « 1 » puis : GOTO playgame
IF k$ = « 2 » puis : aide GOTO
IF k$ = « 0 » puis : CLS : fin
BOUCLE
Aide:
CLS
COULEUR 4
IMPRIMER « VOICI QUELQUES COMMANDES DE BASE QUI PEUVENT ÊTRE UTILISÉS DANS LE JEU... »
IMPRIMER
COLOR 12
IMPRIMER « LOOK - CONTRÔLES POUR DES SORTIES DISPONIBLES »
IMPRIMER « L’INVENTAIRE - VISUALISER TOUS VOS ARTICLES »
IMPRIMER « NORD, OUEST, SUD ET EST - ON PASSE À DES EMPLACEMENTS DISPONIBLES »
IMPRIMER « EXAMINER (OBJET) - EXAMINE UN OBJET »
IMPRIMER « UTILISER (OBJET) - UTILISER UN OBJET »
IMPRIMER « PRENDRE (OBJET) - PRENDRE UN OBJET »
IMPRIMER « (OBJET) DE DÉBLOCAGE - DÉBLOQUER UN OBJET »
IMPRIMER « HELP - DÉCOUVRE CET ÉCRAN »
IMPRIMER « APPUYEZ SUR UNE TOUCHE QUELCONQUE... »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
Menu GOTO
PlayGame :
SOIT r = 1
LET gotmainkey = 0
LET gotboxkey1 = 0
LET gotboxkey2 = 0
LET gotcandle = 0
LET gotnote = 0
LET gottp = 0
LET boxopen = 0
CLS
COULEUR 4
IMPRIMER « MAISON HANTÉE »
IMPRIMER
COLOR 12
PRINT « C’EST HALLOWEEN JOUR AU MARIPOSA DRIVE ».
PRINT "VOTRE MAMAN VOUS A FONDÉ POUR LA JOURNÉE PARCE QUE VOUS ET VOS AMIS"
IMPRIMER « JETÉ PAPIER TOILETTE DANS LA MAISON DES VOISINS HIER SOIR... »
PRINT "APRÈS VOUS PASSEZ PRÈS DE LA MOITIÉ DE LA JOURNÉE DANS VOTRE CHAMBRE STARING AT VOTRE"
PRINT "chaussettes et écouter les enfants ' jouer dehors, je vous DICIDE pour congé »
IMPRIMER "ET ALLER SUR VOTRE PROPRE AVENTURE PEU HALLOWEEN. VOUS RMEMBER LE LOCAL"
IMPRIMER « RUMERS SUR L’ANCIENNE MAISON À TRAVERS LE RUE BIENG HANTÉ. »
IMPRIMER « QU’IL POURRAIT ÊTRE AMUSANT D’ALLER À L’INTÉRIEUR ET DE L’EXPLORER. »
IMPRIMER « VOUS DÉCROCHEZ LE TÉLÉPHONE POUR INVITER VOS AMIS À VENIR, MAIS VOUS N’OUBLIEZ PAS »
IMPRIMER "QU’ILS SONT MIS À LA TERRE À... VOUS METTEZ LE TÉLÉPHONE VERS LE BAS, OUVRIR LA FENÊTRE"
IMPRIMER « ET SAUTER ».
IMPRIMER « APPUYEZ SUR UNE TOUCHE QUELCONQUE... »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
CLS
PRINT "VOUS TRAVERSENT LA RUE À LA « MAISON HANTÉE » DE VOIR QUE LA PORTE"
PRINT « EST LÉGÈREMENT OUVERTE, MÊME SI PERSONNE N’Y VIT ».
PRINT "VOUS EXÉCUTER À L’INTÉRIEUR DE LA MAISON ET LA PORTE CLAQUE DERRIÈRE VOUS."
IMPRIMER « VOUS ESSAYEZ D’OUVRIR LA PORTE, MAIS IL Y A UN ÉNORME CADENAS VOUS EMPÊCHANT »
IMPRIMER "PARTIR OUVRIR."
IMPRIMER « APPUYEZ SUR UNE TOUCHE QUELCONQUE... »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
FAIRE
CLS
Salle de GOSUB
Analyseur GOSUB
BOUCLE
salle :
IF r = 1 THEN : GOSUB r1
IF r = 2 THEN : GOSUB r2
IF r = 3 THEN : GOSUB r3
IF r = 4 THEN : GOSUB r4
IF r = 5 THEN : GOSUB r5
IF r = 6 THEN : GOSUB r6
RETOUR
analyseur :
COLOR 12
ENTRÉE ligne ">" ; cmd$
IMPRIMER
COULEUR 4
Laissez cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))
IF cmd$ = « END » OR cmd$ = « Quitter » OR cmd$ = « EXIT » OR cmd$ = « Q » ou cmd$ = « Quitter » THEN
Menu GOTO
END IF
IF $ de cmd = « Aide » puis
CLS
COULEUR 4
IMPRIMER « VOICI QUELQUES COMMANDES DE BASE QUI PEUVENT ÊTRE UTILISÉS DANS LE JEU... »
IMPRIMER
COLOR 12
IMPRIMER « LOOK - CONTRÔLES POUR DES SORTIES DISPONIBLES »
IMPRIMER « L’INVENTAIRE - VISUALISER TOUS VOS ARTICLES »
IMPRIMER « NORD, OUEST, SUD ET EST - ON PASSE À DES EMPLACEMENTS DISPONIBLES »
IMPRIMER « EXAMINER (OBJET) - EXAMINE UN OBJET »
IMPRIMER « UTILISER (OBJET) - UTILISER UN OBJET »
IMPRIMER « PRENDRE (OBJET) - PRENDRE UN OBJET »
IMPRIMER « (OBJET) DE DÉBLOCAGE - DÉBLOQUER UN OBJET »
IMPRIMER « HELP - DÉCOUVRE CET ÉCRAN »
IMPRIMER « APPUYEZ SUR UNE TOUCHE QUELCONQUE... »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF $ de cmd = « LOOK » OR cmd$ = « LOOK AROUND » OR cmd$ = "L" THEN
IF r = 1 THEN : imprimer « Vous pouvez déplacer le Nord et l’Ouest. »
IF r = 2 THEN : imprimer « Vous pouvez déplacer vers le Nord, vers le sud. » et l’ouest
IF r = 3 THEN : imprimer « Vous pouvez déplacer Ouest. » et vers le sud
IF r = 4 THEN : imprimer « Vous pouvez déplacer est. »
IF r = 5 THEN : imprimer « Vous pouvez déplacer est. »
IF r = 6 THEN : imprimer « Vous pouvez déplacer est. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF $ de cmd = « Inventaire » OR cmd$ = « INV » OR cmd$ = « ITEMS » puis
IMPRIMER "L’INVENTAIRE: »
IF gotmainkey = 1 THEN : PRINT « Clé de BRONZE »
IF gotboxkey1 = 1 THEN : PRINT « Petite touche »
IF gotboxkey2 = 1 THEN : PRINT « Petite touche »
IF gotnote = 1 THEN : PRINT « NOTE »
IF gotcandle = 1 THEN : PRINT « Bougie »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF $ de cmd = « Nord » OR cmd$ = « Aller Nord » OR cmd$ = "N" THEN
IF r = 1 THEN : LET r = 2: GOTO s’installe
IF r = 2 THEN : LET r = 3: GOTO s’installe
END IF
IF $ de cmd = « Ouest » OR cmd$ = « GO WEST » OR cmd$ = "W" THEN
IF r = 1 THEN : LET r = 5: GOTO s’installe
IF r = 2 THEN : LET r = 6: GOTO s’installe
IF r = 3 THEN : LET r = 4: GOTO s’installe
IF r = 7 THEN : LET r = 2: GOTO s’installe
END IF
IF $ de cmd = « Sud » OR cmd$ = « Allez Sud » OR cmd$ = "S" THEN
IF r = 2 THEN : LET r = 1: GOTO s’installe
IF r = 3 THEN : LET r = 2: GOTO s’installe
END IF
IF $ de cmd = « EAST » OR cmd$ = « GO EAST » OR cmd$ = "E" THEN
IF r = 4 THEN : LET r = 3: GOTO s’installe
IF r = 5 THEN : LET r = 1: GOTO s’installe
IF r = 6 THEN : LET r = 2: GOTO s’installe
END IF
IF ($ cmd = « Examiner les vieux tapis » OR cmd$ = « RUG examiner ») et r = 1 THEN
PRINT « C’EST VIEUX, TACHÉE ET USÉE ».
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner une immense TABLE » OR cmd$ = « Examiner le tableau ») et r = 2 THEN
PRINT « C’EST UNE GRANDE TABLE DE BOIS DUR REGARDER GRAND. »
IMPRIMER « IL EST COUVERT DE POUSSIÈRE ET DISPOSANT DE PUCES DEDANS. »
IF gotnote = 0 THEN : imprimer « Il y a une petite NOTE au-dessus de celui-ci. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner la CHAIR » OR cmd$ = « Examiner les chaises ») et r = 2 THEN
IMPRIMER « IL NE SERAIT PAS UNE BONNE IDÉE DE S’ASSEOIR SUR CEUX QUI N’EST PAS ROMPUS »
IMPRIMER « PARCE QU’ILS POURRAIENT CASSER TROP. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner la peinture ») et r = 2 THEN
IMPRIMER « C’EST UNE IMAGE D’UN CHÂTEAU DE LA MIDEVAL. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner SINK ») et r = 3 THEN
IMPRIMER « VOUS VOYEZ DESSÉCHÉES DES ÉCLABOUSSURES DE SANG DANS L’ÉVIER. »
IMPRIMER « VOUS VOYEZ ÉGALEMENT UNE BOUGIE ET DES ALLUMETTES EN ELLE. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner le compteur ») et r = 3 THEN
IMPRIMER « IL EST CLAIR ET EST TRÈS POUSSIÉREUSE. »
PRINT « IL EST ÉCRIT DANS LA POUSSIÈRE. »
IMPRIMER "IL DIT: »
PRINT "" J’AI ÉTÉ PRIS AU PIÈGE DANS CETTE MAISON PENDANT JOURS MAINTENANT, INCAPABLE DE S’ÉCHAPPER. »
IMPRIMER « LA PORTE D’ENTRÉE NÉCESSITE UNE CLÉ SPÉCIALE D’ÊTRE OUVERTE DE L’INTÉRIEUR ».
IMPRIMER « IL N’EST PAS LE MÊME QUE CELUI QUI L’OUVRE À L’AVANT. »
IMPRIMER « JE NE VIVRAI PAS BEAUCOUP PLUS LONGTEMPS, MAIS POUR TOUTE PERSONNE QUI TROUVE THEMSELF »
IMPRIMER « PRIS AU PIÈGE DANS CE LIEU TERRIBLE, JE VIENS DE FAIRE UNE DÉCOUVERTE INTERRESSANT. »
PRINT "JE NE SUIS PAS SÛR À CENT POUR CENT, MAIS JE PENSE QUE..." "
IMPRIMER « LE RESTE EST ENDUIT DE LOIN ».
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Seau d’examiner » OR cmd$ = « Examiner MALODORANTE BUCKET ») et r = 4 THEN
PRINT « C’EST PLEIN DE TRUCS SEMI-DUR BRUN VERDÂTRE. »
IF gotboxkey2 = 0 THEN : imprimer « Il y a une petite touche IN IT. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = "examiner le papier toilette" OR cmd$ = « Examiner le papier ») AND gottp = 0 et r = 4 THEN
PRINT « IL EST TRÈS VIEUX À LA RECHERCHE. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner clair MAT » OR cmd$ = « Examiner MAT ») et r = 5 THEN
IMPRIMER « ON DIRAIT UN PEU MOINS CONFORTABLE... »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner déchiré en couverture » OR cmd$ = « Examiner la couverture ») et r = 5 THEN
IMPRIMER « IL PROBABLEMENT NE VOUS TENIR TRÈS CHAUD. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner grande boîte de bijoux » OR cmd$ = « Examiner JEWLERY BOX ») et r = 5 THEN
PRINT « IL EST MARQUETÉ AVEC CE QUI RESSEMBLE DE MARBRE ».
IMPRIMER « IL Y A DEUX PETITS TROUS PRINCIPAUX AU MILIEU. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner la corde ») et r = 6 THEN
IMPRIMER « IL EST SUSPENDU PAR UN DISPOSITIF DE RECHERCHE IMPAIR DANS LE TOIT. »
IMPRIMER « IT LOOKS LIKE IT QUELQUE CHOSE POURRAIENT ACTIVER SI VOUS LE TIREZ. »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Examiner le sang ») et r = 6 THEN
IMPRIMER "IL EST SEC LE SANG SUR LE SOL, CE QUI PEUT JE DIS!?"
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Prendre NOTE » OR cmd$ = « Obtenir la NOTE ») et r = 2 AND gotnote = 0 THEN
IMPRIMER « VOUS PRENEZ LA NOTE ».
LET gotnote = 1
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Peinture de prendre » OR cmd$ = « Obtenir peinture ») et r = 2 AND gotboxkey1 = 0 THEN
IMPRIMER « VOUS PRENEZ LA PEINTURE ET UNE PETITE CLÉ FALLS OUT À L’ARRIÈRE DE CELUI-CI. »
IMPRIMER « VOUS METTEZ LA PEINTURE ARRIÈRE ET PRENEZ LA PETITE CLÉ. »
LET gotboxkey1 = 1
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Prendre la bougie » OR cmd$ = « Obtenir la bougie ») et r = 3 et gotcandle = 0 THEN
IMPRIMER « VOUS PRENEZ LA BOUGIE ».
LET gotcandle = 1
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Prendre une petite clé » OR cmd$ = « CLΘ de prendre » OR cmd$ = « Obtenir une petite clé » OR cmd$ = « GET KEY ») et r = 4 THEN
IMPRIMER "VOUS PRENEZ LA CLÉ ET AVOIR DES TRUCS MÉCHANT PARTOUT DANS VOTRE MAIN..."
LET gotboxkey2 = 1
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Prendre grande clé de BRONZE » OR cmd$ = « CLΘ de BRONZE de prendre » OR cmd$ = « CLΘ de prendre » OR cmd$ = « Obtenir grande clé de BRONZE » OR cmd$ = « Obtenir clé de BRONZE » OR cmd$ = « GET KEY ») AND boxopen = 1 et r = 5 THEN
IMPRIMER « VOUS PRENEZ LA GRANDE CLÉ DE BRONZE ».
LET gotmainkey = 1
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = "prendre de rouleau de papier toilette" OR cmd$ = "prendre le papier toilette" OR cmd$ = "obtenir de rouleau de papier toilette" OR cmd$ = "obtenir le papier toilette") AND gottp = 0 THEN
IMPRIMER « VOUS DÉCROCHEZ LE PAPIER HYGIÉNIQUE ET IT COMPLTELY FALLS APART DANS VOTRE MAIN. »
LET gottp = 1
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Lire la NOTE » OR cmd$ = « NOTE d’utilisation ») AND gotnote = 1 THEN
PRINT "LA NOTE DIT: »
PRINT "" DERRIÈRE LE VIEUX CHÂTEAU SE TROUVE LA MOITIÉ D’UN OUTIL DE VOTRE LIBERTÉ. ""
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = « Tirer sur la corde » OR cmd$ = « Utilisation du câble ») et r = 6 THEN
GOTO perdre
END IF
IF ($ cmd = « Déverrouiller JEWLERY BOX » OR cmd$ = « UNLOCK BOX ») AND gotboxkey1 = 1 AND gotboxkey2 = 1 et r = 5 THEN
PRINT "VOUS INSÉREZ LES DEUX PETITES CLÉS DANS LA BOÎTE ET EST RESSORTS OUVERTS"
IMPRIMER « POUR RÉVÉLER UNE CLÉ LAGRE BRONZE. »
LET boxopen = 1
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
END IF
IF ($ cmd = "déverrouiller la porte" OR cmd$ = « Déverrouiller la porte ») AND gotmainkey = 1 et r = 1 THEN
Victoire GOTO
END IF
proposé par :
RETOUR
R1 :
COULEUR 4
IMPRIMER «, VOUS ENTREZ COMME ENTRÉE. »
IMPRIMER « VOUS VOYEZ UN VIEUX TAPIS MENANT À CE QUI SEMBLE ÊTRE LA SALLE À MANGER. »
IMPRIMER « UN AUTRE TAPIS MÈNE À UNE AUTRE PIÈCE. »
IMPRIMER
RETOUR
R2 :
COULEUR 4
IMPRIMER « VOUS ENTRER DANS LA SALLE À MANGER. »
IMPRIMER "IL Y A AUCUN FENÊTRES DANS ICI, MAIS IL N’EST LÉGER EN DÉCOULENT LES"
IMPRIMER « AUTRE PIÈCE, VOUS POUVEZ À PEINE VOIR QUOI QUE CE SOIT. »
IMPRIMER « IL Y A PLUSIEURS PORTES QUI MÈNENT À DES ENDROITS DIFFÉRENTS. »
IMPRIMER « VOUS VOYEZ UNE TRAPPE QUI DESCEND PROBABLEMENT VERS LE SOUS-SOL. »
IMPRIMER « IL Y A UNE IMMENSE TABLE AU MILIEU DE LA SALLE. »
IMPRIMER « LA PLUPART DES CHAISES AUTOUR DE LA TABLE ONT CASSÉ DES JAMBES. »
IMPRIMER « VOUS AUSSI VOIR UNE PEINTURE SUR LE MUR. »
IMPRIMER
RETOUR
R3 :
COULEUR 4
IMPRIMER « VOUS ENTRER DANS LA CUISINE. »
IMPRIMER « VOUS VOYEZ UNE PORTE AVEC LA PORTE QUI MANQUE. »
IMPRIMER « IL Y A UN ÉVIER ET UN COMPTOIR ».
IMPRIMER « IL Y A UNE TONNE DE POUSSIÈRE SUR LE COMPTOIR. »
IMPRIMER
RETOUR
R4 :
COULEUR 4
IMPRIMER « VOUS ENTRER DANS LA SALLE DE BAIN. »
IMPRIMER « IL Y A UNE PETITE FENÊTRE OPAQUE SUR LE MUR. »
IMPRIMER « IL Y A UNE PORTE QUI MÈNE À LA CUISINE. »
IMPRIMER « VOUS VOYEZ UN SEAU DE VILES CHOSES NAUSÉABONDES DANS LE COIN. »
IF gottp = 0 THEN : imprimer « Il y a un rouleau de papier toilette à côté de lui. »
IMPRIMER
RETOUR
R5 :
COULEUR 4
IMPRIMER « VOUS ENTRER DANS LA CHAMBRE À COUCHER ».
IMPRIMER « IL Y A UNE PORTE QUI MÈNE À LA SALLE À MANGER. »
IMPRIMER « VOUS VOYEZ UN TAPIS PLAIN SUR LE SOL AVEC UNE COUVERTURE DÉCHIRÉ. »
IMPRIMER « VOUS VOYEZ ÉGALEMENT UNE BOÎTE À BIJOUX GRAND. »
IMPRIMER
RETOUR
R6 :
COULEUR 4
IMPRIMER « VOUS ENTRER LE SOUS-SOL ».
IF gotcandle = 1 THEN
IMPRIMER « VOUS ALLUMER UNE BOUGIE. »
IMPRIMER « VOUS VOYEZ UNE CORDE DANS LE CENTRE DE LA PIÈCE. »
IMPRIMER « IL Y A AUSSI ALAIN LE SANG SUR LE SOL. »
D’AUTRE
IMPRIMER « IL Y A QU'AUCUNS FENÊTRES ICI ET NE PEUX PAS VOUS NE VOIR QUOI QUE CE SOIT. »
IMPRIMER « ESSAIE DE VOIR SI VOUS POUVEZ TROUVER UNE BOUGIE. »
IMPRIMER « VOUS DIRIGER VERS LE HAUT L’ÉCHELLE ».
SOIT r = 2
END IF
IMPRIMER
RETOUR
Win :
COULEUR 14
IMPRIMER « VOUS DÉVERROUILLEZ LA PORTE, OUVREZ ET MARCHEZ À L’EXTÉRIEUR ET SENTEZ L’AIR FRAIS. »
IMPRIMER "LE SOLEIL SE COUCHE. SI VOUS ÉTAIT RESTÉE LÀ PLUS LONGTEMPS, VOUS LE FERIEZ"
PRINT "ÊTRE DANS L’OBSCURITÉ TOTALE ET PROBABLEMENT DÛ PASSER LA NUIT LÀ-DEDANS! »
PRINT "SE RENDRE COMPTE QUE VOUS ÊTES ENCORE À LA TERRE, VOUS HEAD BACK HOME AVANT VOTRE"
IMPRIMER « MAMAN NOTICES QUE VOUS ÉTIEZ ALLÉ... »
IMPRIMER
IMPRIMER « VOUS GAGNER! »
IMPRIMER « APPUYEZ SUR UNE TOUCHE QUELCONQUE... »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
Menu GOTO
perdre :
COULEUR 14
IMPRIMER « VOUS ENTENDEZ QUELQUE CHOSE DÉVERROUILLER RETENTISSANTES PAR UNE GROSSE CHUTE. »
IMPRIMER « VOTRE BOUGIE S’ÉTEINT. »
IMPRIMER « UNE GRANDE LAME BASCULE VERS LE BAS DE FROOM LES PLAFONDS ET DÉCAPITE VOUS! »
IMPRIMER
IMPRESSION « GAME OVER » !
IMPRIMER « APPUYEZ SUR UNE TOUCHE QUELCONQUE... »
FAIRE
BOUCLE JUSQU'À LEN(INKEY$)
Menu GOTO
[/ code]