diff --git a/lemanoirdudocteurgenius/jeu copie.bas b/lemanoirdudocteurgenius/jeu copie.bas new file mode 100644 index 0000000..a12b009 --- /dev/null +++ b/lemanoirdudocteurgenius/jeu copie.bas @@ -0,0 +1,722 @@ +20 REM CLEAR 300,-16385 +30 PRINT "DISKLOAD CODE" +35 CALL -16384: POKE&"47FD",0 +40 GOSUB 7600 +45 INIT0,0: TX3,0,0: PRINT: PRINTSPC(10)"VEUILLEZ PATIENTER" +50 GOSUB 8000: REM CHARGEMENT VARIABLES +51 GOSUB 7500 +55 MODEMN: INIT0,0: TX0,0,0 +57 DIM P(12): P(11) = 0: P(12) = 0 +60 SALLE = 1 +70 FOR N = 1 TO 10 +80 P(N) = 0: C(N) = 0 +85 NEXT N +90 C(3) = 14: C(7) = 12: C(1) = 80: C(9) = 12 +100 IF SALLE <> 14 AND SALLE <> 16 AND SALLE <> 17 AND SALLE <> 19 THENP(2) = 0 +105 IFP(2) = 0 THEN 200 +106 IFO(22) = SA AND P(7) = 1 THEN 200 +107 IFO(05) = SA AND P(3) = 1 THEN 200 +110 IFC(9) > 1 THEN C(9) = C(9)-1 +130 MODEMC: MODEMN +140 HTAB 1: VTAB 18: PRINT "Il fait noir comme dans un four!" +145 PRINT "Il faudrait peut etre allumer." +150 GOTO 500 + +200 REM DESCRIPTION SALLE +210 MODEMN: MODEMC: REM cadre+zone+dessin +215 DEST = SALLE +220 GOSUB 6900 +230 MODEMD +300 H = 0: N = 1 +310 IF O(N) <> SALLE THEN 400 +320 IF H = 1 THEN 350 +330 MODEML: PRINT "Il y a dans la salle: ": MODEMW,10 +340 H = 1 +350 MODEML: PRINT " ";O$(N); +360 MODEMW,25 +400 N = N + 1 +410 IF N <= O THEN 310 +415 MODEML: PRINT + +500 REM ACCEPTATION COMMANDE +510 T = 1: Y$(1) = "": Y$(2) = "": N = 0 +520 GOTO 1000 +530 IF C(7) > 1 AND P(7) = 1 THEN C(7) = C(7) - 1 +540 IF C(3) > 1 AND P(3) = 1 THEN C(3) = C(3) - 1 +545 IF C(4) > 1 AND P(4) = 1 THEN C(4) = C(4) - 1 +547 IF C(5) > 1 THEN C(5) = C(5)-1 +550 X$ = "": INPUT "Que faites vous ";X$ +560 MODEMN: PRINT ">";X$ +570 GOSUB 6000 +580 MODEML: IF MO(1) = 0 THEN PRINT "Je ne comprends pas...": MODEMW,50: GOTO 500 + +900 REM CONTROLE Mvt +905 MODEMI,SALLE +910 IF PEEK(-4) = 0 THEN 980 +920 SALLE = PEEK(-4): GOTO 100 +980 T = 0 +990 A1 = 0 + +1000 REM CONTROLE +1010 NL = 0 +1100 NL = NL + 1 +1110 IF T = 0 THEN 1150 +1120 E$ = C$(NL) +1130 GOTO 1400 +1150 MODEMA: NL = PEEK(-33) +1151 IF PEEK(-32) = 0 THEN 1159 +1152 AD = -32: E$ = "" +1153 IF PEEK(AD) = 255 THEN 1400 +1154 E$ = E$ + CHR$(PEEK(AD)): AD = AD + 1 +1155 GOTO 1153 +1159 PY = 23: CO = 12 +1160 IF A1 = 1 THEN 500 +1170 MODEML: PRINT "Impossible "; +1180 IF MO(1) < 10 THEN PRINT "de prendre ce chemin"; + +1190 PRINT "!": MODEMW,100: GOTO 100 + +1400 REM CONDITIONS +1410 E = 1 +1420 IF MID$(E$,E,1) = "." THEN 1700 +1430 LI = ASC(MID$(E$,E,1))-65 +1440 N = VAL(MID$(E$,E+1,2)) +1450 ON (LI+1) GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580 +1460 IF OK = 0 THEN 1100 +1470 E = E + 3: GOTO 1420 +1500 IF N = SALLE THEN 1590 +1505 GOTO 1585 +1510 IF O(N) = -1 OR O(N) = SALLE THEN 1590 +1515 GOTO 1585 +1520 IF O(N) <> SALLE AND O(N) <> -1 THEN 1590 +1525 GOTO 1585 +1530 IF O(N) = -1 THEN 1590 +1535 GOTO 1585 +1540 IF P(N) = 1 THEN 1590 +1545 GOTO 1585 +1550 IF P(N) = 0 THEN 1590 +1555 GOTO 1585 +1560 IF C(N) = 1 THEN 1590 +1565 GOTO 1585 +1570 IF INT(RND(1)*99+1) < N THEN 1590 +1575 GOTO 1585 +1580 IF N <> SALLE THEN 1590 +1585 OK = 0: RETURN +1590 OK = 1: RETURN + +1700 REM ACTIONS +1705 E = E + 1: A1 = 1 +1710 IF MID$(E$,E,1) = "." THEN 1100 +1720 LI = ASC(MID$(E$,E,1))-65 +1730 IF MID$(E$,E+1,1) <> "." THEN N = VAL(MID$(E$,E+1,2)) +1740 BREAK = 0 +1750 ON (LI+1) GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300 +1760 IF BREAK > 0 THEN ON BREAK GOTO 100,300,500,530,20000 +1780 E = E + 3 +1790 GOTO 1710 +1800 G = 0: HH = 0 +1810 G = G + 1 +1820 IF O(G) = -1 THEN 1840 +1830 IF G < O THEN 1810 +1835 GOTO 1870 +1840 MODEML: IF HH = 0 THEN PRINT "Vous detenez: " +1850 HH = 1 +1860 MODEML: PRINT O$(G);: PRINT " ";: MODEMW,30 +1865 IF G < V THEN 1810 +1870 MODEML: IF HH = 1 THEN PRINT ".": RETURN +1880 MODEML: PRINT "Vous ne detenez absolument rien!!!": RETURN +1900 IF S(1) < 5 THEN 1930 +1910 MODEML: PRINT "Il parait evident que vous ne pouvez" +1915 MODEML: PRINT "porter tant de chose!!!" +1920 MODEMW,200: BREAK = 1: RETURN +1930 IF O(N) <> -1 THEN 1960 +1935 REM +1940 MODEML: PRINT "Vous l'avez deja,vous etes etourdis et" +1945 MODEML: PRINT "dans cette maison ce n'est pas tres" +1950 MODEML: PRINT "conseille...": GOTO 1920 +1960 O(N) = -1: S(1) = S(1) + 1: RETURN +2000 IF O(N) = -1 THEN 2030 +2010 MODEML: PRINT "Comment voulez vous poser ce que vous" +2015 MODEML: PRINT "n'avez pas..." +2020 GOTO 1920 +2030 O(N) = SALLE: S(1) = S(1) - 1: RETURN + +2100 REM +2105 DEST = N + 1: GOSUB 3900 +2110 RETURN +2200 P(N) = 1: RETURN +2300 P(N) = 0: RETURN + +2400 C(N) = VAL(MID$(A$(N),E+3,2)): E = E + 2: RETURN + +2500 IF O(N) = -1 THE NS(1) = S(1) - 1 +2510 O(N) = 0: RETURN +2600 SALLE = N: RETURN +2700 MODEML: PRINT "D'accord..." +2710 MODEMW,20: BREAK=2: RETURN +2800 BREAK = 3 +2810 RETURN +2900 BREAK = 4: RETURN +3000 BREAK = 1: RETURN +3100 BREAK = 5: RETURN +3200 O(N) = SALLE: RETURN +3300 X$=O$(N): O$(N)=O$(N+1): O$(N+1)=X$: RETURN + +3900 IF DEST < 11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090 +3910 DEST = DEST - 10 +3915 IF DEST < 11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190 +3920 DEST = DEST - 10 +3925 IF DEST < 11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290 +3930 DEST = DEST - 10 +3935 IF DEST < 11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390 +3940 DEST = DEST - 10 +3945 IF DEST < 11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490 +3950 DEST = DEST - 10 +3955 IF DEST < 11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590 +3960 DEST = DEST - 10 +3965 IF DEST < 11 THEN ON DEST GOTO 4600,4610,4620,4630,4640 + +4000 MODEMC: FOR N = 1 TO 20: MODEME: MODEMW,4: NEXT N +4001 MODEMN: PRINT "Vous avez garde la lampe allumee trop" +4002 MODEML: PRINT "longtemps, elle a explose!" +4005 MODEMW,200: RETURN +4010 MODEMC +4011 MODEMN: PRINT "Vous avez oublie de fermer le robinet" +4012 MODEML: PRINT "vous mourez sous des tonnes d'eau!" +4015 MODEMW,200: RETURN +4020 MODEMC +4022 MODEMN: PRINT "La porte vient de se refermer derriere" +4023 MODEML: PRINT "vous. Vous etes prisonnier..." +4025 MODEMW,200: RETURN +4030 MODEMC +4031 MODEMN: PRINT "Vous avez trebuche dans l'escalier,vous" +4032 MODEML: PRINT "vous empallez sur le couteau!" +4035 MODEMW,200: RETURN +4040 MODEMC +4041 MODEMN: PRINT "Vous renversez l'eau dans l'escalier," +4042 MODEML: PRINT "ce qui provoque une decharge au niveau" +4043 MODEML: PRINT "de la prise electrique." +4045 MODEMW,200: RETURN +4050 MODEMC +4051 MODEMN: PRINT "Vous etes sauf grace a la combinaison" +4052 MODEML: PRINT "que vous avez enfilee..!" +4055 MODEMW,200: RETURN +4060 MODEML: PRINT "Vous mourez electrocute..." +4065 MODEMW,200: RETURN +4070 MODEMC: FORN=1TO20: MODEMM,2,2,2,10: MODEMP,3,7,4,80: MODEMW,1: MODEME: MODEMW,6: NEXTN +4071 MODEMN: PRINT "La piece etait pleine de gaz explosif," +4072 MODEML: PRINT "vous auriez du eteindre..." +4073 MODEMW,200: PRINT "On ramassera vos morceaux un autre" +4074 MODEML: PRINT "jour..!" +4075 MODEMW,200: RETURN +4080 MODEMC +4081 MODEMN: PRINT "Vous mourez empalle sur des lances" +4082 MODEML: PRINT "sorties du mur...!" +4085 MODEMW,200: RETURN +4090 MODEML: PRINT "La porte ne s'ouvre pas de cette piece": MODEMW,200: RETURN +4100 MODEMC +4101 MODEML: PRINT "La lampe et le briquet refusent de" +4102 MODEML: PRINT "fonctionner dans cette piece!" +4109 MODEMW,200: RETURN +4110 MODEMC +4111 MODEML: PRINT "Vous tombez dans une trappe,vous vous" +4112 MODEML: PRINT "disloquez en arrivant au sol.." +4115 MODEMW,200: RETURN +4120 MODEML: PRINT "Vous avez raison de passer,car ce" +4122 MODEML: PRINT "monstre n'etait qu'une projection" +4124 MODEML: PRINT "en 3 dimensions sur un ecran de fumee" +4125 MODEMW,250: RETURN +4130 MODEML: PRINT "Vous avez raison,la curiosite est un" +4132 MODEML: PRINT "vilain defaut!!!" +4134 MODEMW,250 +4135 RUN 20040 +4140 MODEML: PRINT "Vous avez raison d'attendre,mais cela" +4141 MODEML: PRINT "ne pourra pas durer eternellement.." +4142 MODEMW,200: RETURN +4150 MODEML: PRINT "Vous avez de la chance car ce coffre" +4151 MODEML: PRINT "etait ouvert.": MODEMW,100 +4152 MODEML: PRINT "Un message a l'interieur dit: " +4153 MODEML: PRINTCHR$(34)+"Ne respectez pas les couleurs du code" +4154 MODEML: PRINT "de la route...?"+CHR$(34): MODEMW,200 +4156 MODEML: PRINT "Tiens le coffre se referme!": MODEMW,150: RETURN +4160 MODEML: PRINT "Maintenant,vous avez une lampe pleine" +4162 MODEML: PRINT "de petrole." +4165 MODEMW,200: RETURN +4170 MODEML: PRINT "Vous n'avez rien pour transporter le" +4171 MODEML: PRINT "petrole.": MODEMW,200: RETURN +4180 FOR N = 1 TO 10: MODEME: MODEMW,6: NEXTN +4181 MODEMC: MODEMN: PRINT "Le briquet que vous aviez laisse" +4182 MODEML: PRINT "allume vient d'exploser!" +4185 MODEML: MODEMW,200: PRINT "Ca tue l'etourderie.....": MODEMW,150: RETURN +4190 MODEMC: MODEMN: PRINT "A force de marcher en long et en large" +4191 MODEML: PRINT "dans cette maison, vous sombrez dans" +4194 MODEML: PRINT "un coma des plus mortel... +4195 MODEMW,300: RETURN +4200 PRINT "L'eau coule...": RETURN +4210 MODEMC: MODEMN: PRINT "Vous avez les pieds trempes,et cela" +4211 MODEML: PRINT "vous rend tres malade..." +4215 MODEMW,100: MODEML: PRINT "Vous mourez d'une triple pneumonie...!": MODEMW,200: RETURN +4220 MODEML: PRINT "Le titre est: " +4225 MODEML: PRINTCHR$(34)+"La mort a la 1ere page."+CHR$(34): MODEMW,200: RETURN +4230 MODEMC: FOR N=1 TO 20: MODEME: NEXTN +4233 MODEMN: PRINT "Le livre a explose lorsque vous l'avez" +4235 MODEML: PRINT "ouvert...": MODEMW,200: RETURN +4240 MODEML: PRINT "Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34) +4242 MODEMW,200: RETURN +4250 MODEML: PRINT "La clef vous permettra de trouver le" +4252 MODEML: PRINT "code de la porte d'entree." +4255 MODEMW,200: RETURN +4260 MODEML: PRINT "Il y a un clavier numerique permettant" +4261 MODEML: PRINT "d'entrer un code a côte de la porte.": MODEMW,200: RETURN +4270 MODEML: PRINT "Pour faire quoi..?": MODEMW,200: RETURN +4280 MODEML: PRINT "Il y a une odeur de gaz.": MODEMW,200: RETURN +4290 MODEML: PRINT "Apparemment,il n'y a aucune odeur.": MODEMW,200: RETURN +4300 MODEML: PRINT "C'est deja fait,espece de rigolo!": MODEMW,200: RETURN +4310 MODEML: PRINT "Il faudrait peut etre du feu!": MODEMW,200: RETURN +4320 MODEML: PRINT "La lampe ne contient pas de petrole!": MODEMW,200: RETURN +4330 MODEML: PRINT "Vous ne l'avez pas!": MODEMW,200: RETURN +4340 MODEML: PRINT "Le briquet est encore allume et il" +4342 MODEML: PRINT "eclaire la piece.": MODEMW,200: RETURN +4350 FOR N = 1 TO 15: MODEME: MODEMW,4: NEXT N +4355 MODEML: PRINT "La torche etait piegee,elle vous" +4356 MODEML: PRINT "a explose dans les mains.." +4357 MODEMW,200: RETURN +4360 MODEML: PRINT "La lampe est encore allumee,et elle" +4362 MODEML: PRINT "vous eclaire.": MODEMW,200: RETURN +4370 MODEML: PRINT "Un nain vient de vous lancer un" +4371 MODEML: PRINT "poignard en plein coeur.." +4375 MODEMW,200: RETURN +4380 MODEML: PRINT "Un nain vient de se precipiter sur" +4385 MODEML: PRINT "vous, il s'empalle sur votre ciseau.": MODEMW,200: RETURN +4390 MODEML: PRINT "Un nain vient de se precipiter sur" +4395 MODEML: PRINT "vous, il s'empalle sur votre couteau.": MODEMW,200: RETURN +4400 MODEML: PRINT "Vous venez de renverser le pot.": MODEMW,150: RETURN +4410 IF PEEK(-1) = 1 THEN BREAK = 3: RETURN +4411 MODEMC: MODEMS,4,4,0: MODEMP,0,1,1,5000 +4412 MODEMN: PRINT "La foudre vient de tomber sur la maison": MODEMW,200 +4413 MODEML: PRINT "La maison n'existe plus!": MODEMW,100 +4414 MODEML: PRINT "Vous non plus!": MODEMW,100: MODEMP,0,0,0,0: RETURN +4420 MODEMC: MODEMN: PRINT "A force de marcher dans le noir,vous" +4422 MODEML: PRINT "avez trebuche.": MODEMW,100 +4425 MODEML: PRINT "Vous mourez d'une fracture du crane...": MODEMW,200: RETURN +4430 MODEML: PRINT "Vous ne pouvez pas travailler dans le" +4433 MODEML: PRINT "noir...": MODEMW,200: RETURN +4440 MODEML: PRINT "La lumiere du briquet ne suffit pas" +4442 MODEML: PRINT "pour travailler...": MODEMW,200: RETURN +4450 MODEML: PRINT "Impossible !": MODEMW,100: RETURN +4460 MODEML: PRINT "Vous n'avez aucun outil...": MODEMW,200: RETURN +4470 MODEML: PRINT "Le teleporteur est en panne,donc les" +4472 MODEML: PRINT "boutons ne fonctionnent pas." +4475 MODEMW,400: RETURN +4480 FOR N = 1 TO 25: MODEME: MODEMW,5: NEXT N +4484 MODEMC: MODEMN: PRINT "Le teleporteur vient d'exploser," +4485 MODEML: PRINT "vous etes decompose..!": MODEMW,200: RETURN +4490 MODEMN: PRINT "Le teleporteur se met en marche" +4491 MODEML: PRINT "vous disparaissez...": MODEMW,50 +4492 MODEMM,2,1,5,0: MODEMP,2,1,3,1000 +4493 MODEMF +4494 MODEMP,0,0,0,0 +4495 FOR N = 500 TO 30 STEP -5 +4497 MODEMS,2,N,12: MODEMP,2,0,0,100 +4498 NEXT N +4499 MODEMP,0,0,0,0: RETURN +4500 MODEMC: MODEML: PRINT "Vous prenez du 30000 Volts dans les" +4502 MODEML: PRINT "doigts!": MODEMW,200: RETURN +4510 MODEML: PRINT "Le placard est ferme a clef!": MODEMW,200: RETURN +4520 MODEMC: MODEMN: PRINT "L'horrible monstre sorti du placard" +4522 MODEML: PRINT "vient de vous devorer!" +4525 MODEMW,200: RETURN +4530 MODEML: PRINT "Il ne fallait pas fuir!": MODEMW,200: RETURN +4540 MODEMC: MODEML: PRINT "Vous avez raison d'utiliser le ciseau," +4542 MODEML: PRINT "le monstre est mort!" +4545 MODEMW,200: RETURN +4550 MODEMD: MODEMN: PRINT "A l'interieur du placard,le No "PL +4552 MODEML: PRINT "est inscrit": MODEMW,200 +4555 MODEML: PRINT "Le placard se referme.": MODEMW,100: RETURN +4560 MODEMC: FORN=1TO30: MODEME: MODEMW,5: NEXTN +4562 MODEMN: PRINT "le pistolet a explose!": MODEMW,200 +4565 RETURN + +4570 IF SALLE = 2 THEN RETURN +4571 MODEML: PRINT "Impossible!": BREAK = 3: RETURN +4575 MODEMC: FOR N = 1 TO 25: MODEME: MODEMW,7: NEXTN +4576 MODEMN: PRINT "le clavier numerique a explose!": MODEMW,200: BREAK = 5: RETURN +4580 MODEMN: PRINT "Le clavier numerique prend feu.": MODEMW,200 +4581 MODEML: IF O(24) <> -1 THEN 4586 +4582 MODEML: PRINT "Heureusement,vous avez un pot plein" +4584 MODEML: PRINT "d'eau. Ce qui vous permet d'eteindre" +4585 MODEML: PRINT "ce feu.": MODEMW,300: RETURN +4586 MODEML: PRINT "Malheureusement vous n'avez pas d'eau" +4587 MODEML: PRINT "pour l'eteindre.": MODEMW,200 +4588 GOTO 4575 + +4590 MODEMN: INPUT"No DE CODE ";ZC +4595 IF ZC <> PL THEN 4575 +4600 MODEMW,100: MODEML: PRINT "Le code est exact...": MODEML: PRINT "La porte s'ouvre..." +4603 MODEMW,150 +4605 GOTO 11000 +4610 MODEML: PRINT "A l'interieur du placard,il y a un mot" +4611 MODEML: PRINT "qui parle d'un teleporteur.": MODEMW,200 +4615 MODEML: PRINT "Tiens le placard se ferme tout seul...": MODEMW,100: RETURN +4620 MODEML: PRINT "Avant de la poser par terre,il faudrait" +4621 MODEML: PRINT "peut etre l'enlever." +4625 MODEMW,200: RETURN +4630 MODEMC: MODEMN: PRINT "Devant vous, il y a un horrible" +4631 MODEML: PRINT "monstre qui est sorti du placard." +4635 MODEMW,200: RETURN +4640 MODEML: PRINT "Le placard etait piege,vous n'auriez" +4641 MODEML: PRINT "pas du l'ouvrir!" +4645 FOR N = 1 TO 30: MODEME: MODEMW,7: NEXT N +4647 MODEMW,200: RETURN + +6000 REM ANALYSE DU MOT +6010 N = 0: GN = 0 +6020 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6040 +6030 GOTO 6020 +6040 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6060 +6050 GOTO 6040 +6060 IF GN > 4 THEN GN = 4 +6070 X$(1) = MID$(X$,N,GN) +6080 N = N + 1: XX$ = MID$(X$,N,1): IF XX$ = " " OR XX$ = "" THEN 6100 +6090 GOTO 6080 +6100 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6115 +6110 GOTO 6100 +6115 GN = 0 +6120 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6140 +6130 GOTO 6120 +6140 IF GN > 4 THEN GN = 4 +6150 X$(2) = MID$(X$,N,GN) +6160 MODEMU,X$(1): MODEMV,X$(2) +6170 MO(1) = PEEK(-3) +6180 MO(2) = PEEK(-2) +6190 RETURN + +6900 REM Chargement image salle +6902 MODEMC: MODEMN +6905 IF DEST < 11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090 +6910 DEST = DEST - 10 +6915 IF DEST < 11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190 +6920 DEST = DEST - 10 +6925 ON DEST GOTO 7200,7210,7220,7230,7240 + +7000 PRINT "DISKLOAD IMG_01" +7005 PRINT "Vous etes devant le manoir du defunt" +7006 PRINTSPC(14)"Dr GENIUS" +7009 RETURN +7010 PRINT "DISKLOAD IMG_02" +7015 PRINT "Vous etes dans le hall d'entree." +7019 RETURN +7020 PRINT "DISKLOAD IMG_03" +7025 PRINT "Vous etes en bas de l'escalier menant" +7026 PRINT "au 2eme etage." +7029 RETURN +7030 PRINT "DISKLOAD IMG_04" +7035 PRINT "Vous etes dans la salle a manger." +7039 RETURN +7040 PRINT "DISKLOAD IMG_05" +7045 PRINT "Vous etes dans une bibliotheque sans" +7046 PRINT "livre...!" +7049 RETURN +7050 PRINT "DISKLOAD IMG_06" +7055 PRINT "Vous etes dans une buanderie." +7059 RETURN +7060 PRINT "DISKLOAD IMG_07" +7065 PRINT "Vous etes dans le salon." +7069 RETURN +7070 PRINT "DISKLOAD IMG_08" +7075 PRINT "Vous etes dans une chambre." +7079 RETURN +7080 PRINT "DISKLOAD IMG_09" +7085 PRINT "Vous etes dans un corridor." +7089 RETURN +7090 PRINT "DISKLOAD IMG_10" +7095 PRINT "Vous etes dans une salle d'attente." +7099 RETURN +7100 PRINT "DISKLOAD IMG_11" +7105 PRINT "Vous etes dans le vestibule." +7109 RETURN +7110 PRINT "DISKLOAD IMG_12" +7115 PRINT "Vous etes dans la chambre d'amis." +7119 RETURN +7120 PRINT "DISKLOAD IMG_13" +7125 PRINT "Vous etes dans une chambre." +7129 RETURN +7130 STOP +7140 PRINT "DISKLOAD IMG_14" +7145 PRINT "Vous etes dans une petite salle." +7149 RETURN +7150 PRINT "DISKLOAD IMG_15" +7155 PRINT "Vous etes dans le laboratoire du +7156 PRINT "Dr GENIUS." +7159 RETURN +7160 PRINT "DISKLOAD IMG_16" +7165 PRINT "Vous etes dans une petite piece vide." +7169 RETURN +7170 PRINT "DISKLOAD IMG_17" +7175 PRINT "Vous ne savez pas où vous etes." +7179 RETURN +7180 PRINT "DISKLOAD IMG_18" +7185 PRINT "Vous etes en haut de l'escalier." +7189 RETURN +7190 PRINT "DISKLOAD IMG_19" +7195 PRINT "Vous etes dans la salle bain." +7199 RETURN +7200 PRINT "DISKLOAD IMG_20" +7205 PRINT "Vous etes dans le living room." +7209 RETURN +7210 PRINT "DISKLOAD IMG_21" +7215 PRINT "Vous etes dans une piece enfumee...!" +7219 RETURN +7220 PRINT "DISKLOAD IMG_22" +7225 PRINT "Vous etes dans une grande piece." +7229 RETURN +7230 PRINT "DISKLOAD IMG_23" +7235 PRINT "Vous etes dans une piece de rangement." +7239 RETURN +7240 PRINT "DISKLOAD IMG_24" +7245 PRINT "Vous etes dans le dressing." +7249 RETURN + +7500 TX7,0,0: VTAB 23: PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE" +7510 N = RND(1) +7511 IF KEY(0) = 0 THEN 7510 +7515 RETURN + +7600 REM CONFIG JEU +7602 INIT0,0: TX3,0,0 +7605 POKE -34,0: POKE -1,0 +7610 INPUT "Carte SON (O/N)";X$ +7620 IF X$ = "O" THEN POKE -34,1: GOTO 7630 +7625 IF X$ <> "N" THEN 7610 +7630 INPUT "Foudre (O/N)";X$ +7640 IF X$ = "O" THEN POKE -1,1: GOTO 7650 +7645 IF X$ <> "N" THEN 7630 +7650 RETURN + +8000 REM CHARGEMENT VARIABLES +8001 RESTORE +8010 V = 70 +8130 O = 25: DIMO(25) +8140 FOR N = 1 TO 25 +8150 READ O(N) +8170 NEXT N +8180 DATA 06,05,05,08,08,00,00,11,11 +8190 DATA 13,20,18,16,16,16,16,00,21 +8200 DATA 00,22,25,12,00,25,00 + +8205 DIM O$(25) +8210 FOR N = 1 TO 25 +8220 READ O$(N) +8240 NEXT N +8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU +8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST +8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU + +8320 M = 25: DIM M$(25) +8330 FOR N = 1TO 25 +8340 READ M$(N) +8360 NEXT N +8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380 DATA 04080109020500,030700,04130207031000 +8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400 DATA 00,00,0122032100,040500,0125022200,012100 +8410 DATA 0124042200,022300,022100 + +8430 A = 128: DIM A$(128) +8440 FOR N = 1 TO 128 +8450 READ A$(N) +8470 NEXT N +8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485 DATA 0500A03E08D24.D04D06N. +8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500 DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505 DATA 0100A09E07B22.D07N. +8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525 DATA 0200A17.F01I15M. +8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531 DATA 0400A21E03.I19M. +8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555 DATA 1143E09.D62K. +8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. + +8566 DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597 DATA 1642E06.E02F07F06P22M. +8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. +8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625 DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J. +8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650 DATA 1233A25.D64N. + +8700 PL = INT(RND(1)*9000+1000) +8800 C = 14: DIMC$(14) +8810 FOR N = 1 TO 14 +8820 READ C$(N) +8840 NEXT N +8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900 RETURN + +9000 FOR IJ = 1 TO 100: NEXT IJ +9010 RETURN + +11000 REM SUCCES +11020 PRINT "DISKLOAD IMG_01" +11030 MODEMN: MODEMC: MODEMD +11040 PRINT "Vous voila en dehors de la maison..." +11050 MODEMW,250 +11055 MODEMN +11060 PRINT " Cela est exceptionnel,vous etes le" +11065 PRINT "premier a sortir vivant de cette" +11070 PRINT "maison. Mais a votre place, je me" +11075 PRINT "mettrais a courir car un nain rode" +11080 PRINT "peut-etre dans les parages..." +11085 GOSUB 11100 +11090 GOTO 20040 + +11100 REM TEA FOR TWO +11102 REM RESTORE 11125 +11105 FOR N = 1 TO 110 +11110 READ A1,A2,A3 +11115 MODEMM,1,A1,A2,10: MODEMP,1,0,0,100: MODEMW,A3 +11120 MODEMP,0,0,0,0 +11122 NEXT N +11123 RETURN +11125 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11130 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11135 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11140 DATA 4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +11145 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +11150 DATA 4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +11155 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +11160 DATA 4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11165 DATA 4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11170 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11175 DATA 4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +11180 DATA 5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +11185 DATA 4,6,45,4,3,15,4,5,45,4,3,15 +11190 DATA 4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 + +20000 REM TOMBE +20005 PRINT "DISKLOAD IMGTMB" +20010 MODEMC: MODEMD: MODEMN +20020 PRINT "Vous etes mort !": MODEMW,100 +20030 IF PEEK(-34)=1 THEN GOSUB 21000 +20040 MODEML: PRINT: MODEML: X$="": INPUT "Voulez-vous rejouer ";X$ +20050 IF X$ = "O" OR X$ = "o" THEN RUN 45 +20060 IF X$ = "N" OR X$ = "n" THEN 20080 +20070 GOTO 20040 +20080 MODEMN: PRINT " AU REVOIR" +20090 END + +21000 REM SARABANDE +21005 REM RESTORE 21040 +21015 FOR N = 1 TO 75 +21020 READ A1,A2,A3,A4,A5 +21025 READ A6,A7,A8,A9,A0 +21030 MODEMM,1,A1,A2,A3: MODEMM,2,A4,A5,A6: MODEMM,3,A7,A8,A9: MODEMP,7,0,0,100: MODEMW,A0 +21031 IF KEY(0) <> 0 THEN MODEMP,0,0,0,0: RETURN +21032 IF N > 70 THEN NEXT N: MODEMP,0,0,0,0: RETURN +21035 MODEMP,0,0,0,0: NEXTN +21040 DATA 3,6,8,3,3,8,2,10,8,80 +21045 DATA 3,6,8,3,3,8,2,10,8,80 +21050 DATA 0,1,1,0,1,1,0,1,1,40 +21055 DATA 3,8,8,3,5,8,0,1,1,40 +21060 DATA 3,5,8,3,2,8,2,10,8,80 +21065 DATA 3,5,8,3,2,8,2,10,8,40 +21070 DATA 1,11,8,0,1,1,0,1,1,40 +21075 DATA 1,10,8,0,1,1,0,1,1,40 +21080 DATA 1,8,8,0,1,1,0,1,1,40 +21085 DATA 3,10,8,3,6,9,3,1,8,80 +21090 DATA 3,10,8,3,6,9,3,1,8,80 +21095 DATA 0,1,1,0,1,1,0,1,1,40 +21100 DATA 3,11,8,3,8,8,0,1,1,40 +21105 DATA 3,8,8,3,5,8,3,1,8,80 +21110 DATA 3,8,8,3,5,8,3,1,8,40 +21115 DATA 2,1,8,0,1,1,0,1,1,40 +21120 DATA 1,11,8,0,1,1,0,1,1,40 +21125 DATA 1,10,8,3,7,8,3,10,8,40 +21130 DATA 3,11,8,3,8,8,3,3,8,80 +21135 DATA 3,11,8,3,8,8,3,3,8,80 +21140 DATA 1,8,8,0,1,1,0,1,1,40 +21145 DATA 1,8,8,3,10,8,4,1,8,40 +21150 DATA 3,10,8,3,6,8,3,3,8,80 +21155 DATA 3,10,8,3,6,8,3,3,8,80 +21160 DATA 0,1,1,0,1,1,0,1,1,40 +21165 DATA 3,10,8,2,1,8,0,1,1,40 +21170 DATA 4,3,8,3,10,8,1,11,8,80 +21175 DATA 4,3,8,3,8,8,2,11,9,80 +21180 DATA 0,1,1,0,1,1,0,1,1,40 +21185 DATA 4,5,8,0,1,1,0,1,1,40 +21190 DATA 4,2,8,3,10,8,3,5,8,80 +21195 DATA 4,2,8,3,10,8,3,5,8,40 +21200 DATA 2,8,8,0,1,1,0,1,1,40 +21202 DATA 2,6,8,0,1,1,0,1,1,40 +21203 DATA 2,5,8,0,1,1,0,1,1,40 +21205 DATA 3,6,8,3,3,8,2,10,8,80 +21210 DATA 3,6,8,3,3,8,2,10,8,80 +21215 DATA 0,1,1,0,1,1,0,1,1,40 +21220 DATA 3,8,8,3,5,8,0,1,1,40 +21225 DATA 3,5,8,3,2,8,2,10,8,80 +21230 DATA 3,5,8,3,2,8,2,10,8,40 +21235 DATA 1,11,8,0,1,1,0,1,1,40 +21240 DATA 1,10,8,0,1,1,0,1,1,40 +21245 DATA 1,8,8,0,1,1,0,1,1,40 +21250 DATA 3,10,8,3,6,9,3,1,8,80 +21255 DATA 3,10,8,3,6,9,3,1,8,80 +21260 DATA 0,1,1,0,1,1,0,1,1,40 +21265 DATA 3,11,8,3,8,8,0,1,1,40 +21270 DATA 3,8,8,3,5,8,3,1,8,80 +21275 DATA 3,8,8,3,5,8,3,1,8,40 +21280 DATA 2,1,8,0,1,1,0,1,1,40 +21285 DATA 1,11,8,0,1,1,0,1,1,40 +21290 DATA 1,10,8,3,7,8,3,10,8,40 +21295 DATA 3,11,8,3,8,8,3,3,8,80 +21300 DATA 2,8,8,0,1,1,0,1,1,40 +21305 DATA 3,11,8,3,8,8,3,1,8,40 +21310 DATA 2,8,8,0,1,1,0,1,1,40 +21315 DATA 2,1,8,0,1,1,0,1,1,40 +21320 DATA 4,1,8,2,5,8,0,1,1,40 +21325 DATA 3,10,8,3,6,8,3,1,8,80 +21330 DATA 3,10,8,2,3,8,0,1,1,40 +21335 DATA 4,3,8,3,6,8,2,11,8,40 +21340 DATA 4,2,8,0,1,1,0,1,1,40 +21345 DATA 4,3,8,3,11,8,2,8,8,40 +21350 DATA 4,5,8,0,1,1,0,1,1,40 +21355 DATA 4,6,8,3,10,8,2,10,8,80 +21360 DATA 4,5,8,3,8,8,1,10,8,40 +21365 DATA 0,1,1,3,8,8,1,10,8,40 +21370 DATA 4,3,8,0,1,1,0,1,1,40 +21375 DATA 4,3,8,3,6,8,2,3,8,80 +21380 DATA 3,3,8,3,10,8,3,6,8,40 +21385 DATA 3,3,7,3,10,7,3,6,7,40 +21390 DATA 3,3,6,3,10,6,3,6,6,40 +21395 DATA 3,3,5,3,10,5,3,6,5,40 +21400 DATA 3,3,4,3,10,4,3,6,5,40 + + diff --git a/lemanoirdudocteurgenius/jeu.bas b/lemanoirdudocteurgenius/jeu.bas new file mode 100644 index 0000000..9dacbe4 --- /dev/null +++ b/lemanoirdudocteurgenius/jeu.bas @@ -0,0 +1,729 @@ +2 REM LE MANOIR DU DOCTEUR GENIUS +3 REM COPYRIGHT LORICIELS 83 L.BENES +4 REM VERSION VG5000 FRED_72 2021 +5 REM VERSION APPLE II BRUTAL DELUXE 2023 +6 REM +10 REM POKE -34 BECOMES 254 +11 REM POKE -1 BECOMES 255 +12 D$=CHR$(4) +20 REM CLEAR 300,-16385 +30 PRINT "DISKLOAD CODE" +35 REM CALL -16384: POKE&"47FD",0 +40 GOSUB 7600 +45 HOME : & INIT0,0: & TX3,0,0: PRINT: PRINTSPC(10)"VEUILLEZ PATIENTER" +50 GOSUB 8000: REM CHARGEMENT VARIABLES +51 GOSUB 7500 +55 & N: & INIT0,0: & TX0,0,0 +57 DIM P(12): P(11) = 0: P(12) = 0 +60 SALLE = 1 +70 FOR N = 1 TO 10 +80 P(N) = 0: C(N) = 0 +85 NEXT N +90 C(3) = 14: C(7) = 12: C(1) = 80: C(9) = 12 +100 IF SALLE <> 14 AND SALLE <> 16 AND SALLE <> 17 AND SALLE <> 19 THENP(2) = 0 +105 IF P(2) = 0 THEN 200 +106 IF O(22) = SA AND P(7) = 1 THEN 200 +107 IF O(05) = SA AND P(3) = 1 THEN 200 +110 IF C(9) > 1 THEN C(9) = C(9) - 1 +130 & C: & N +140 HTAB 1: VTAB 18: PRINT "Il fait noir comme dans un four!" +145 PRINT "Il faudrait peut etre allumer." +150 GOTO 500 + +200 REM DESCRIPTION SALLE +210 & N: & C: REM cadre+zone+dessin +215 DEST = SALLE +220 GOSUB 6900 +230 & D +300 H = 0: N = 1 +310 IF O(N) <> SALLE THEN 400 +320 IF H = 1 THEN 350 +330 & L: PRINT "Il y a dans la salle: ": & W,10 +340 H = 1 +350 & L: PRINT " ";O$(N); +360 & W,25 +400 N = N + 1 +410 IF N <= O THEN 310 +415 & L: PRINT + +500 REM ACCEPTATION COMMANDE +510 T = 1: Y$(1) = "": Y$(2) = "": N = 0 +520 GOTO 1000 +530 IF C(7) > 1 AND P(7) = 1 THEN C(7) = C(7) - 1 +540 IF C(3) > 1 AND P(3) = 1 THEN C(3) = C(3) - 1 +545 IF C(4) > 1 AND P(4) = 1 THEN C(4) = C(4) - 1 +547 IF C(5) > 1 THEN C(5) = C(5) - 1 +550 X$ = "": INPUT "Que faites vous ";X$ +560 & N: PRINT ">";X$ +570 GOSUB 6000 +580 & L: IF MO(1) = 0 THEN PRINT "Je ne comprends pas...": & W,50: GOTO 500 + +900 REM CONTROLE Mvt +905 & I,SALLE +910 IF PEEK(-4) = 0 THEN 980 +920 SALLE = PEEK(-4): GOTO 100 +980 T = 0 +990 A1 = 0 + +1000 REM CONTROLE +1010 NL = 0 +1100 NL = NL + 1 +1110 IF T = 0 THEN 1150 +1120 E$ = C$(NL) +1130 GOTO 1400 +1150 & A: NL = PEEK(-33) +1151 IF PEEK(-32) = 0 THEN 1159 +1152 AD = -32: E$ = "" +1153 IF PEEK(AD) = 255 THEN 1400 +1154 E$ = E$ + CHR$(PEEK(AD)): AD = AD + 1 +1155 GOTO 1153 +1159 PY = 23: CO = 12 +1160 IF A1 = 1 THEN 500 +1170 & L: PRINT "Impossible "; +1180 IF MO(1) < 10 THEN PRINT "de prendre ce chemin"; + +1190 PRINT "!": & W,100: GOTO 100 + +1400 REM CONDITIONS +1410 E = 1 +1420 IF MID$(E$,E,1) = "." THEN 1700 +1430 LI = ASC(MID$(E$,E,1))-65 +1440 N = VAL(MID$(E$,E+1,2)) +1450 ON (LI+1) GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580 +1460 IF OK = 0 THEN 1100 +1470 E = E + 3: GOTO 1420 +1500 IF N = SALLE THEN 1590 +1505 GOTO 1585 +1510 IF O(N) = -1 OR O(N) = SALLE THEN 1590 +1515 GOTO 1585 +1520 IF O(N) <> SALLE AND O(N) <> -1 THEN 1590 +1525 GOTO 1585 +1530 IF O(N) = -1 THEN 1590 +1535 GOTO 1585 +1540 IF P(N) = 1 THEN 1590 +1545 GOTO 1585 +1550 IF P(N) = 0 THEN 1590 +1555 GOTO 1585 +1560 IF C(N) = 1 THEN 1590 +1565 GOTO 1585 +1570 IF INT(RND(1)*99+1) < N THEN 1590 +1575 GOTO 1585 +1580 IF N <> SALLE THEN 1590 +1585 OK = 0: RETURN +1590 OK = 1: RETURN + +1700 REM ACTIONS +1705 E = E + 1: A1 = 1 +1710 IF MID$(E$,E,1) = "." THEN 1100 +1720 LI = ASC(MID$(E$,E,1))-65 +1730 IF MID$(E$,E+1,1) <> "." THEN N = VAL(MID$(E$,E+1,2)) +1740 BREAK = 0 +1750 ON (LI+1) GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300 +1760 IF BREAK > 0 THEN ON BREAK GOTO 100,300,500,530,20000 +1780 E = E + 3 +1790 GOTO 1710 +1800 G = 0: HH = 0 +1810 G = G + 1 +1820 IF O(G) = -1 THEN 1840 +1830 IF G < O THEN 1810 +1835 GOTO 1870 +1840 & L: IF HH = 0 THEN PRINT "Vous detenez: " +1850 HH = 1 +1860 & L: PRINT O$(G);: PRINT " ";: & W,30 +1865 IF G < V THEN 1810 +1870 & L: IF HH = 1 THEN PRINT ".": RETURN +1880 & L: PRINT "Vous ne detenez absolument rien!!!": RETURN +1900 IF S(1) < 5 THEN 1930 +1910 & L: PRINT "Il parait evident que vous ne pouvez" +1915 & L: PRINT "porter tant de chose!!!" +1920 & W,200: BREAK = 1: RETURN +1930 IF O(N) <> -1 THEN 1960 +1935 REM +1940 & L: PRINT "Vous l'avez deja,vous etes etourdis et" +1945 & L: PRINT "dans cette maison ce n'est pas tres" +1950 & L: PRINT "conseille...": GOTO 1920 +1960 O(N) = -1: S(1) = S(1) + 1: RETURN +2000 IF O(N) = -1 THEN 2030 +2010 & L: PRINT "Comment voulez vous poser ce que vous" +2015 & L: PRINT "n'avez pas..." +2020 GOTO 1920 +2030 O(N) = SALLE: S(1) = S(1) - 1: RETURN + +2100 REM +2105 DEST = N + 1: GOSUB 3900 +2110 RETURN +2200 P(N) = 1: RETURN +2300 P(N) = 0: RETURN + +2400 C(N) = VAL(MID$(A$(N),E+3,2)): E = E + 2: RETURN + +2500 IF O(N) = -1 THEN S(1) = S(1) - 1 +2510 O(N) = 0: RETURN +2600 SALLE = N: RETURN +2700 & L: PRINT "D'accord..." +2710 & W,20: BREAK=2: RETURN +2800 BREAK = 3 +2810 RETURN +2900 BREAK = 4: RETURN +3000 BREAK = 1: RETURN +3100 BREAK = 5: RETURN +3200 O(N) = SALLE: RETURN +3300 X$=O$(N): O$(N)=O$(N+1): O$(N+1)=X$: RETURN + +3900 IF DEST < 11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090 +3910 DEST = DEST - 10 +3915 IF DEST < 11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190 +3920 DEST = DEST - 10 +3925 IF DEST < 11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290 +3930 DEST = DEST - 10 +3935 IF DEST < 11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390 +3940 DEST = DEST - 10 +3945 IF DEST < 11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490 +3950 DEST = DEST - 10 +3955 IF DEST < 11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590 +3960 DEST = DEST - 10 +3965 IF DEST < 11 THEN ON DEST GOTO 4600,4610,4620,4630,4640 + +4000 & C: FOR N = 1 TO 20: & E: & W,4: NEXT N +4001 & N: PRINT "Vous avez garde la lampe allumee trop" +4002 & L: PRINT "longtemps, elle a explose!" +4005 & W,200: RETURN +4010 & C +4011 & N: PRINT "Vous avez oublie de fermer le robinet" +4012 & L: PRINT "vous mourez sous des tonnes d'eau!" +4015 & W,200: RETURN +4020 & C +4022 & N: PRINT "La porte vient de se refermer derriere" +4023 & L: PRINT "vous. Vous etes prisonnier..." +4025 & W,200: RETURN +4030 & C +4031 & N: PRINT "Vous avez trebuche dans l'escalier,vous" +4032 & L: PRINT "vous empallez sur le couteau!" +4035 & W,200: RETURN +4040 & C +4041 & N: PRINT "Vous renversez l'eau dans l'escalier," +4042 & L: PRINT "ce qui provoque une decharge au niveau" +4043 & L: PRINT "de la prise electrique." +4045 & W,200: RETURN +4050 & C +4051 & N: PRINT "Vous etes sauf grace a la combinaison" +4052 & L: PRINT "que vous avez enfilee..!" +4055 & W,200: RETURN +4060 & L: PRINT "Vous mourez electrocute..." +4065 & W,200: RETURN +4070 & C: FORN=1TO20: & M,2,2,2,10: & P,3,7,4,80: & W,1: & E: & W,6: NEXTN +4071 & N: PRINT "La piece etait pleine de gaz explosif," +4072 & L: PRINT "vous auriez du eteindre..." +4073 & W,200: PRINT "On ramassera vos morceaux un autre" +4074 & L: PRINT "jour..!" +4075 & W,200: RETURN +4080 & C +4081 & N: PRINT "Vous mourez empalle sur des lances" +4082 & L: PRINT "sorties du mur...!" +4085 & W,200: RETURN +4090 & L: PRINT "La porte ne s'ouvre pas de cette piece": & W,200: RETURN +4100 & C +4101 & L: PRINT "La lampe et le briquet refusent de" +4102 & L: PRINT "fonctionner dans cette piece!" +4109 & W,200: RETURN +4110 & C +4111 & L: PRINT "Vous tombez dans une trappe,vous vous" +4112 & L: PRINT "disloquez en arrivant au sol.." +4115 & W,200: RETURN +4120 & L: PRINT "Vous avez raison de passer,car ce" +4122 & L: PRINT "monstre n'etait qu'une projection" +4124 & L: PRINT "en 3 dimensions sur un ecran de fumee" +4125 & W,250: RETURN +4130 & L: PRINT "Vous avez raison,la curiosite est un" +4132 & L: PRINT "vilain defaut!!!" +4134 & W,250 +4135 RUN 20040 +4140 & L: PRINT "Vous avez raison d'attendre,mais cela" +4141 & L: PRINT "ne pourra pas durer eternellement.." +4142 & W,200: RETURN +4150 & L: PRINT "Vous avez de la chance car ce coffre" +4151 & L: PRINT "etait ouvert.": & W,100 +4152 & L: PRINT "Un message a l'interieur dit: " +4153 & L: PRINTCHR$(34)+"Ne respectez pas les couleurs du code" +4154 & L: PRINT "de la route...?"+CHR$(34): & W,200 +4156 & L: PRINT "Tiens le coffre se referme!": & W,150: RETURN +4160 & L: PRINT "Maintenant,vous avez une lampe pleine" +4162 & L: PRINT "de petrole." +4165 & W,200: RETURN +4170 & L: PRINT "Vous n'avez rien pour transporter le" +4171 & L: PRINT "petrole.": & W,200: RETURN +4180 FOR N = 1 TO 10: & E: & W,6: NEXTN +4181 & C: & N: PRINT "Le briquet que vous aviez laisse" +4182 & L: PRINT "allume vient d'exploser!" +4185 & L: & W,200: PRINT "Ca tue l'etourderie.....": & W,150: RETURN +4190 & C: & N: PRINT "A force de marcher en long et en large" +4191 & L: PRINT "dans cette maison, vous sombrez dans" +4194 & L: PRINT "un coma des plus mortel... +4195 & W,300: RETURN +4200 PRINT "L'eau coule...": RETURN +4210 & C: & N: PRINT "Vous avez les pieds trempes,et cela" +4211 & L: PRINT "vous rend tres malade..." +4215 & W,100: & L: PRINT "Vous mourez d'une triple pneumonie...!": & W,200: RETURN +4220 & L: PRINT "Le titre est: " +4225 & L: PRINTCHR$(34)+"La mort a la 1ere page."+CHR$(34): & W,200: RETURN +4230 & C: FOR N=1 TO 20: & E: NEXTN +4233 & N: PRINT "Le livre a explose lorsque vous l'avez" +4235 & L: PRINT "ouvert...": & W,200: RETURN +4240 & L: PRINT "Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34) +4242 & W,200: RETURN +4250 & L: PRINT "La clef vous permettra de trouver le" +4252 & L: PRINT "code de la porte d'entree." +4255 & W,200: RETURN +4260 & L: PRINT "Il y a un clavier numerique permettant" +4261 & L: PRINT "d'entrer un code a côte de la porte.": & W,200: RETURN +4270 & L: PRINT "Pour faire quoi..?": & W,200: RETURN +4280 & L: PRINT "Il y a une odeur de gaz.": & W,200: RETURN +4290 & L: PRINT "Apparemment,il n'y a aucune odeur.": & W,200: RETURN +4300 & L: PRINT "C'est deja fait,espece de rigolo!": & W,200: RETURN +4310 & L: PRINT "Il faudrait peut etre du feu!": & W,200: RETURN +4320 & L: PRINT "La lampe ne contient pas de petrole!": & W,200: RETURN +4330 & L: PRINT "Vous ne l'avez pas!": & W,200: RETURN +4340 & L: PRINT "Le briquet est encore allume et il" +4342 & L: PRINT "eclaire la piece.": & W,200: RETURN +4350 FOR N = 1 TO 15: & E: & W,4: NEXT N +4355 & L: PRINT "La torche etait piegee,elle vous" +4356 & L: PRINT "a explose dans les mains.." +4357 & W,200: RETURN +4360 & L: PRINT "La lampe est encore allumee,et elle" +4362 & L: PRINT "vous eclaire.": & W,200: RETURN +4370 & L: PRINT "Un nain vient de vous lancer un" +4371 & L: PRINT "poignard en plein coeur.." +4375 & W,200: RETURN +4380 & L: PRINT "Un nain vient de se precipiter sur" +4385 & L: PRINT "vous, il s'empalle sur votre ciseau.": & W,200: RETURN +4390 & L: PRINT "Un nain vient de se precipiter sur" +4395 & L: PRINT "vous, il s'empalle sur votre couteau.": & W,200: RETURN +4400 & L: PRINT "Vous venez de renverser le pot.": & W,150: RETURN +4410 IF PEEK(255) = 1 THEN BREAK = 3: RETURN +4411 & C: & S,4,4,0: & P,0,1,1,5000 +4412 & N: PRINT "La foudre vient de tomber sur la maison": & W,200 +4413 & L: PRINT "La maison n'existe plus!": & W,100 +4414 & L: PRINT "Vous non plus!": & W,100: & P,0,0,0,0: RETURN +4420 & C: & N: PRINT "A force de marcher dans le noir,vous" +4422 & L: PRINT "avez trebuche.": & W,100 +4425 & L: PRINT "Vous mourez d'une fracture du crane...": & W,200: RETURN +4430 & L: PRINT "Vous ne pouvez pas travailler dans le" +4433 & L: PRINT "noir...": & W,200: RETURN +4440 & L: PRINT "La lumiere du briquet ne suffit pas" +4442 & L: PRINT "pour travailler...": & W,200: RETURN +4450 & L: PRINT "Impossible !": & W,100: RETURN +4460 & L: PRINT "Vous n'avez aucun outil...": & W,200: RETURN +4470 & L: PRINT "Le teleporteur est en panne,donc les" +4472 & L: PRINT "boutons ne fonctionnent pas." +4475 & W,400: RETURN +4480 FOR N = 1 TO 25: & E: & W,5: NEXT N +4484 & C: & N: PRINT "Le teleporteur vient d'exploser," +4485 & L: PRINT "vous etes decompose..!": & W,200: RETURN +4490 & N: PRINT "Le teleporteur se met en marche" +4491 & L: PRINT "vous disparaissez...": & W,50 +4492 & M,2,1,5,0: & P,2,1,3,1000 +4493 & F +4494 & P,0,0,0,0 +4495 FOR N = 500 TO 30 STEP -5 +4497 & S,2,N,12: & P,2,0,0,100 +4498 NEXT N +4499 & P,0,0,0,0: RETURN +4500 & C: & L: PRINT "Vous prenez du 30000 Volts dans les" +4502 & L: PRINT "doigts!": & W,200: RETURN +4510 & L: PRINT "Le placard est ferme a clef!": & W,200: RETURN +4520 & C: & N: PRINT "L'horrible monstre sorti du placard" +4522 & L: PRINT "vient de vous devorer!" +4525 & W,200: RETURN +4530 & L: PRINT "Il ne fallait pas fuir!": & W,200: RETURN +4540 & C: & L: PRINT "Vous avez raison d'utiliser le ciseau," +4542 & L: PRINT "le monstre est mort!" +4545 & W,200: RETURN +4550 & D: & N: PRINT "A l'interieur du placard,le No "PL +4552 & L: PRINT "est inscrit": & W,200 +4555 & L: PRINT "Le placard se referme.": & W,100: RETURN +4560 & C: FORN=1TO30: & E: & W,5: NEXTN +4562 & N: PRINT "le pistolet a explose!": & W,200 +4565 RETURN + +4570 IF SALLE = 2 THEN RETURN +4571 & L: PRINT "Impossible!": BREAK = 3: RETURN +4575 & C: FOR N = 1 TO 25: & E: & W,7: NEXTN +4576 & N: PRINT "le clavier numerique a explose!": & W,200: BREAK = 5: RETURN +4580 & N: PRINT "Le clavier numerique prend feu.": & W,200 +4581 & L: IF O(24) <> -1 THEN 4586 +4582 & L: PRINT "Heureusement,vous avez un pot plein" +4584 & L: PRINT "d'eau. Ce qui vous permet d'eteindre" +4585 & L: PRINT "ce feu.": & W,300: RETURN +4586 & L: PRINT "Malheureusement vous n'avez pas d'eau" +4587 & L: PRINT "pour l'eteindre.": & W,200 +4588 GOTO 4575 + +4590 & N: INPUT"No DE CODE ";ZC +4595 IF ZC <> PL THEN 4575 +4600 & W,100: & L: PRINT "Le code est exact...": & L: PRINT "La porte s'ouvre..." +4603 & W,150 +4605 GOTO 11000 +4610 & L: PRINT "A l'interieur du placard,il y a un mot" +4611 & L: PRINT "qui parle d'un teleporteur.": & W,200 +4615 & L: PRINT "Tiens le placard se ferme tout seul...": & W,100: RETURN +4620 & L: PRINT "Avant de la poser par terre,il faudrait" +4621 & L: PRINT "peut etre l'enlever." +4625 & W,200: RETURN +4630 & C: & N: PRINT "Devant vous, il y a un horrible" +4631 & L: PRINT "monstre qui est sorti du placard." +4635 & W,200: RETURN +4640 & L: PRINT "Le placard etait piege,vous n'auriez" +4641 & L: PRINT "pas du l'ouvrir!" +4645 FOR N = 1 TO 30: & E: & W,7: NEXT N +4647 & W,200: RETURN + +6000 REM ANALYSE DU MOT +6010 N = 0: GN = 0 +6020 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6040 +6030 GOTO 6020 +6040 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6060 +6050 GOTO 6040 +6060 IF GN > 4 THEN GN = 4 +6070 X$(1) = MID$(X$,N,GN) +6080 N = N + 1: XX$ = MID$(X$,N,1): IF XX$ = " " OR XX$ = "" THEN 6100 +6090 GOTO 6080 +6100 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6115 +6110 GOTO 6100 +6115 GN = 0 +6120 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6140 +6130 GOTO 6120 +6140 IF GN > 4 THEN GN = 4 +6150 X$(2) = MID$(X$,N,GN) +6160 & U,X$(1): & V,X$(2) +6170 MO(1) = PEEK(-3) +6180 MO(2) = PEEK(-2) +6190 RETURN + +6900 REM Chargement image salle +6902 & C: & N +6905 IF DEST < 11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090 +6910 DEST = DEST - 10 +6915 IF DEST < 11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190 +6920 DEST = DEST - 10 +6925 ON DEST GOTO 7200,7210,7220,7230,7240 + +7000 PRINT "DISKLOAD IMG_01" +7005 PRINT "Vous etes devant le manoir du defunt" +7006 PRINTSPC(14)"Dr GENIUS" +7009 RETURN +7010 PRINT "DISKLOAD IMG_02" +7015 PRINT "Vous etes dans le hall d'entree." +7019 RETURN +7020 PRINT "DISKLOAD IMG_03" +7025 PRINT "Vous etes en bas de l'escalier menant" +7026 PRINT "au 2eme etage." +7029 RETURN +7030 PRINT "DISKLOAD IMG_04" +7035 PRINT "Vous etes dans la salle a manger." +7039 RETURN +7040 PRINT "DISKLOAD IMG_05" +7045 PRINT "Vous etes dans une bibliotheque sans" +7046 PRINT "livre...!" +7049 RETURN +7050 PRINT "DISKLOAD IMG_06" +7055 PRINT "Vous etes dans une buanderie." +7059 RETURN +7060 PRINT "DISKLOAD IMG_07" +7065 PRINT "Vous etes dans le salon." +7069 RETURN +7070 PRINT "DISKLOAD IMG_08" +7075 PRINT "Vous etes dans une chambre." +7079 RETURN +7080 PRINT "DISKLOAD IMG_09" +7085 PRINT "Vous etes dans un corridor." +7089 RETURN +7090 PRINT "DISKLOAD IMG_10" +7095 PRINT "Vous etes dans une salle d'attente." +7099 RETURN +7100 PRINT "DISKLOAD IMG_11" +7105 PRINT "Vous etes dans le vestibule." +7109 RETURN +7110 PRINT "DISKLOAD IMG_12" +7115 PRINT "Vous etes dans la chambre d'amis." +7119 RETURN +7120 PRINT "DISKLOAD IMG_13" +7125 PRINT "Vous etes dans une chambre." +7129 RETURN +7130 STOP +7140 PRINT "DISKLOAD IMG_14" +7145 PRINT "Vous etes dans une petite salle." +7149 RETURN +7150 PRINT "DISKLOAD IMG_15" +7155 PRINT "Vous etes dans le laboratoire du +7156 PRINT "Dr GENIUS." +7159 RETURN +7160 PRINT "DISKLOAD IMG_16" +7165 PRINT "Vous etes dans une petite piece vide." +7169 RETURN +7170 PRINT "DISKLOAD IMG_17" +7175 PRINT "Vous ne savez pas où vous etes." +7179 RETURN +7180 PRINT "DISKLOAD IMG_18" +7185 PRINT "Vous etes en haut de l'escalier." +7189 RETURN +7190 PRINT "DISKLOAD IMG_19" +7195 PRINT "Vous etes dans la salle bain." +7199 RETURN +7200 PRINT "DISKLOAD IMG_20" +7205 PRINT "Vous etes dans le living room." +7209 RETURN +7210 PRINT "DISKLOAD IMG_21" +7215 PRINT "Vous etes dans une piece enfumee...!" +7219 RETURN +7220 PRINT "DISKLOAD IMG_22" +7225 PRINT "Vous etes dans une grande piece." +7229 RETURN +7230 PRINT "DISKLOAD IMG_23" +7235 PRINT "Vous etes dans une piece de rangement." +7239 RETURN +7240 PRINT "DISKLOAD IMG_24" +7245 PRINT "Vous etes dans le dressing." +7249 RETURN + +7500 & TX7,0,0: VTAB 23: PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE" +7510 N = RND(1) +7511 IF PEEK(-16384)<128 THEN 7510 +7512 POKE -16368,0 +7515 RETURN + +7600 REM CONFIG JEU +7602 & INIT0,0: & TX3,0,0 +7605 POKE 254,0: POKE 255,0 +7610 INPUT "Carte SON (O/N)";X$ +7620 IF X$ = "O" THEN POKE 254,1: GOTO 7630 +7625 IF X$ <> "N" THEN 7610 +7630 INPUT "Foudre (O/N)";X$ +7640 IF X$ = "O" THEN POKE 255,1: GOTO 7650 +7645 IF X$ <> "N" THEN 7630 +7650 RETURN + +8000 REM CHARGEMENT VARIABLES +8001 RESTORE +8010 V = 70 +8130 O = 25: DIMO(25) +8140 FOR N = 1 TO 25 +8150 READ O(N) +8170 NEXT N +8180 DATA 06,05,05,08,08,00,00,11,11 +8190 DATA 13,20,18,16,16,16,16,00,21 +8200 DATA 00,22,25,12,00,25,00 + +8205 DIM O$(25) +8210 FOR N = 1 TO 25 +8220 READ O$(N) +8240 NEXT N +8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU +8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST +8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU + +8320 M = 25: DIM M$(25) +8330 FOR N = 1TO 25 +8340 READ M$(N) +8360 NEXT N +8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380 DATA 04080109020500,030700,04130207031000 +8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400 DATA 00,00,0122032100,040500,0125022200,012100 +8410 DATA 0124042200,022300,022100 + +8430 A = 128: DIM A$(128) +8440 FOR N = 1 TO 128 +8450 READ A$(N) +8470 NEXT N +8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485 DATA 0500A03E08D24.D04D06N. +8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500 DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505 DATA 0100A09E07B22.D07N. +8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525 DATA 0200A17.F01I15M. +8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531 DATA 0400A21E03.I19M. +8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555 DATA 1143E09.D62K. +8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. + +8566 DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597 DATA 1642E06.E02F07F06P22M. +8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. +8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625 DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J. +8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650 DATA 1233A25.D64N. + +8700 PL = INT(RND(1)*9000+1000) +8800 C = 14: DIMC$(14) +8810 FOR N = 1 TO 14 +8820 READ C$(N) +8840 NEXT N +8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900 RETURN + +9000 FOR IJ = 1 TO 100: NEXT IJ +9010 RETURN + +11000 REM SUCCES +11020 PRINT "DISKLOAD IMG_01" +11030 & N: & C: & D +11040 PRINT "Vous voila en dehors de la maison..." +11050 & W,250 +11055 & N +11060 PRINT " Cela est exceptionnel,vous etes le" +11065 PRINT "premier a sortir vivant de cette" +11070 PRINT "maison. Mais a votre place, je me" +11075 PRINT "mettrais a courir car un nain rode" +11080 PRINT "peut-etre dans les parages..." +11085 GOSUB 11100 +11090 GOTO 20040 + +11100 REM TEA FOR TWO +11102 REM RESTORE 11125 +11105 FOR N = 1 TO 110 +11110 READ A1,A2,A3 +11115 & M,1,A1,A2,10: & P,1,0,0,100: & W,A3 +11120 & P,0,0,0,0 +11122 NEXT N +11123 RETURN +11125 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11130 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11135 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11140 DATA 4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +11145 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +11150 DATA 4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +11155 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +11160 DATA 4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11165 DATA 4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11170 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11175 DATA 4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +11180 DATA 5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +11185 DATA 4,6,45,4,3,15,4,5,45,4,3,15 +11190 DATA 4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 + +20000 REM TOMBE +20005 PRINT "DISKLOAD IMGTMB" +20010 & C: & D: & N +20020 PRINT "Vous etes mort !": & W,100 +20030 IF PEEK(254)=1 THEN GOSUB 21000 +20040 & L: PRINT: & L: X$="": INPUT "Voulez-vous rejouer ";X$ +20050 IF X$ = "O" OR X$ = "o" THEN RUN 45 +20060 IF X$ = "N" OR X$ = "n" THEN 20080 +20070 GOTO 20040 +20080 & N: PRINT " AU REVOIR" +20090 END + +21000 REM SARABANDE +21005 REM RESTORE 21040 +21015 FOR N = 1 TO 75 +21020 READ A1,A2,A3,A4,A5 +21025 READ A6,A7,A8,A9,A0 +21030 & M,1,A1,A2,A3: & M,2,A4,A5,A6: & M,3,A7,A8,A9: & P,7,0,0,100: & W,A0 +21031 IF PEEK(-16384) > 128 THEN & P,0,0,0,0: RETURN +21032 IF N > 70 THEN NEXT N: & P,0,0,0,0: RETURN +21035 & P,0,0,0,0: NEXTN +21040 DATA 3,6,8,3,3,8,2,10,8,80 +21045 DATA 3,6,8,3,3,8,2,10,8,80 +21050 DATA 0,1,1,0,1,1,0,1,1,40 +21055 DATA 3,8,8,3,5,8,0,1,1,40 +21060 DATA 3,5,8,3,2,8,2,10,8,80 +21065 DATA 3,5,8,3,2,8,2,10,8,40 +21070 DATA 1,11,8,0,1,1,0,1,1,40 +21075 DATA 1,10,8,0,1,1,0,1,1,40 +21080 DATA 1,8,8,0,1,1,0,1,1,40 +21085 DATA 3,10,8,3,6,9,3,1,8,80 +21090 DATA 3,10,8,3,6,9,3,1,8,80 +21095 DATA 0,1,1,0,1,1,0,1,1,40 +21100 DATA 3,11,8,3,8,8,0,1,1,40 +21105 DATA 3,8,8,3,5,8,3,1,8,80 +21110 DATA 3,8,8,3,5,8,3,1,8,40 +21115 DATA 2,1,8,0,1,1,0,1,1,40 +21120 DATA 1,11,8,0,1,1,0,1,1,40 +21125 DATA 1,10,8,3,7,8,3,10,8,40 +21130 DATA 3,11,8,3,8,8,3,3,8,80 +21135 DATA 3,11,8,3,8,8,3,3,8,80 +21140 DATA 1,8,8,0,1,1,0,1,1,40 +21145 DATA 1,8,8,3,10,8,4,1,8,40 +21150 DATA 3,10,8,3,6,8,3,3,8,80 +21155 DATA 3,10,8,3,6,8,3,3,8,80 +21160 DATA 0,1,1,0,1,1,0,1,1,40 +21165 DATA 3,10,8,2,1,8,0,1,1,40 +21170 DATA 4,3,8,3,10,8,1,11,8,80 +21175 DATA 4,3,8,3,8,8,2,11,9,80 +21180 DATA 0,1,1,0,1,1,0,1,1,40 +21185 DATA 4,5,8,0,1,1,0,1,1,40 +21190 DATA 4,2,8,3,10,8,3,5,8,80 +21195 DATA 4,2,8,3,10,8,3,5,8,40 +21200 DATA 2,8,8,0,1,1,0,1,1,40 +21202 DATA 2,6,8,0,1,1,0,1,1,40 +21203 DATA 2,5,8,0,1,1,0,1,1,40 +21205 DATA 3,6,8,3,3,8,2,10,8,80 +21210 DATA 3,6,8,3,3,8,2,10,8,80 +21215 DATA 0,1,1,0,1,1,0,1,1,40 +21220 DATA 3,8,8,3,5,8,0,1,1,40 +21225 DATA 3,5,8,3,2,8,2,10,8,80 +21230 DATA 3,5,8,3,2,8,2,10,8,40 +21235 DATA 1,11,8,0,1,1,0,1,1,40 +21240 DATA 1,10,8,0,1,1,0,1,1,40 +21245 DATA 1,8,8,0,1,1,0,1,1,40 +21250 DATA 3,10,8,3,6,9,3,1,8,80 +21255 DATA 3,10,8,3,6,9,3,1,8,80 +21260 DATA 0,1,1,0,1,1,0,1,1,40 +21265 DATA 3,11,8,3,8,8,0,1,1,40 +21270 DATA 3,8,8,3,5,8,3,1,8,80 +21275 DATA 3,8,8,3,5,8,3,1,8,40 +21280 DATA 2,1,8,0,1,1,0,1,1,40 +21285 DATA 1,11,8,0,1,1,0,1,1,40 +21290 DATA 1,10,8,3,7,8,3,10,8,40 +21295 DATA 3,11,8,3,8,8,3,3,8,80 +21300 DATA 2,8,8,0,1,1,0,1,1,40 +21305 DATA 3,11,8,3,8,8,3,1,8,40 +21310 DATA 2,8,8,0,1,1,0,1,1,40 +21315 DATA 2,1,8,0,1,1,0,1,1,40 +21320 DATA 4,1,8,2,5,8,0,1,1,40 +21325 DATA 3,10,8,3,6,8,3,1,8,80 +21330 DATA 3,10,8,2,3,8,0,1,1,40 +21335 DATA 4,3,8,3,6,8,2,11,8,40 +21340 DATA 4,2,8,0,1,1,0,1,1,40 +21345 DATA 4,3,8,3,11,8,2,8,8,40 +21350 DATA 4,5,8,0,1,1,0,1,1,40 +21355 DATA 4,6,8,3,10,8,2,10,8,80 +21360 DATA 4,5,8,3,8,8,1,10,8,40 +21365 DATA 0,1,1,3,8,8,1,10,8,40 +21370 DATA 4,3,8,0,1,1,0,1,1,40 +21375 DATA 4,3,8,3,6,8,2,3,8,80 +21380 DATA 3,3,8,3,10,8,3,6,8,40 +21385 DATA 3,3,7,3,10,7,3,6,7,40 +21390 DATA 3,3,6,3,10,6,3,6,6,40 +21395 DATA 3,3,5,3,10,5,3,6,5,40 +21400 DATA 3,3,4,3,10,4,3,6,5,40 diff --git a/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk b/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk new file mode 100644 index 0000000..fe786a8 Binary files /dev/null and b/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk differ diff --git a/lemanoirdudocteurgenius/oric/Dr_genius_ORIC_VG5000.zip b/lemanoirdudocteurgenius/oric/Dr_genius_ORIC_VG5000.zip new file mode 100644 index 0000000..e5a071c Binary files /dev/null and b/lemanoirdudocteurgenius/oric/Dr_genius_ORIC_VG5000.zip differ diff --git a/lemanoirdudocteurgenius/oric/code_oric.bas b/lemanoirdudocteurgenius/oric/code_oric.bas new file mode 100644 index 0000000..7dfecd4 --- /dev/null +++ b/lemanoirdudocteurgenius/oric/code_oric.bas @@ -0,0 +1,958 @@ +0 CLS:PRINT:PRINTCHR$(4)CHR$(27)"N LORICIELS EST FIER DE PRESENTER :";CHR$(17) +1 WAIT250:PRINTCHR$(4);CHR$(17):ZAP:GOSUB9000 +2 REM COPYRIGHT LORICIELS 83 L.BENES +3 REM LE MANOIR DU DOCTEUR GENIUS +4 REM +5 FOR N=46841 TO 46846:POKEN,63:NEXT +6 POKEN,30:POKEN-7,30:POKE#26A,10 +7 HIMEM#9200 +8 TEXT :PAPER0:INK0:CLS +9 REM ... COPYRIGHT LORICIELS TOUT DROIT DE REPRODUCTION INTERDIT ..... +10 PLOT2,0,"_ ___ _ _ ___ _ _ ___ _ ___" +15 PLOT2,1,"_ _ __ __ _ _ __ _ _ _ _ _ _" +16 PLOT2,2,"_ __ _ _ _ ___ ____ _ _ _ ___" +17 PLOT2,3,"_ _ _ _ _ _ _ __ _ _ _ __" +18 PLOT2,4,"___ ___ _ _ _ _ _ _ ___ _ _ _" +19 PLOT5,7,"__ _ _ __":PLOT5,8,"_ _ _ _ _ _ _":PLOT5,9,"_ _ _ _" +20 PLOT17,9,"_ _ __":PLOT5,10,"_ _ _ _ _ _ _ _":PLOT5,11,"___ ___" +22 PLOT17,11,"___ _":PLOT2,15,"____ ____ __ _ _ _ _ ____" +23 PLOT2,16,"_ _ _ __ _ _ _ _ _":PLOT2,17,"_ _ ___ _ _ _" +24 PLOT27,17,"_ _":PLOT2,18,"_ ___ _ _ _ _ _ _ ____" +25 PLOT2,19,"_ __ _ _ ___ _ _ _ _":PLOT2,20,"_ _ _ _ __" +26 PLOT21,20,"_ _ _ _":PLOT2,21,"____ ____ _ __ _ ____ ____ _ _" +27 FOR N=0 TO 4:PLOT1,N,5:NEXT +28 FOR N=7 TO 11:PLOT1,N,1:NEXT +29 FOR N=15 TO 21:PLOT 1,N,12:NEXT +30 INK3:WAIT90:INK4:WAIT90:INK3:WAIT90:INK4:WAIT99:INK3:GOSUB31000:GOSUB51000 +31 PLOT5,25,"Appuyez sur une touche" +32 REPEAT:ZX=RND(1):UNTIL KEY$<>"":GOTO 40000 +33 CLS:PRINT:PRINT"Vous voici arrive dans le manoir du Dr Genius..." +34 WAIT350:PRINT:PRINT"Pour converser avec l'ordinateur,il faut rentrer les ordres" +35 WAIT300:PRINT:PRINT"en 1 ou 2 mots tels que:":PRINT:WAIT200:PRINT" NORD" +36 WAIT200:PRINT:PRINT" PRENDS PILLULE" +37 WAIT200:PRINT:PRINT"ou pour commencer:";:WAIT150:PRINT"ENTRE" +38 WAIT300:PRINT:PRINT:PRINT"Si vous voulez faire durer la phrase decrivant"; +39 PRINT" la salle taper une touche":WAIT400 +40 PRINT:PRINT:PRINT:PRINT:PRINT" pressez une touche":GETX$ +41 CLS:PRINT:PRINT" Un dernier conseil:";:WAIT200:PRINT"Il peut parfois":PRINT +42 PRINT"y avoir une porte derriere vous.":WAIT400 +45 CLS:HIRES:PRINT:PRINT" VEUILLEZ PATIENTER" +50 GOSUB 8000 'CHARGEMENT VARIABLES +55 HIRES:DIM P(12):P(11)=0:P(12)=0 +60 SALLE=1 +70 FOR N=1 TO 10 +80 P(N)=0:C(N)=0 +85 NEXT +90 C(3)=14:C(7)=12:C(1)=80:C(9)=12 +100 IFSALLE<>14ANDSALLE<>16ANDSALLE<>17ANDSALLE<>19 THEN P(2)=0 +105 IF P(2)=0 THEN 200 +106 IF O(22)=SA AND P(7)=1 THEN 200 +107 IF O(05)=SA AND P(3)=1 THEN 200 +110 IF C(9)>1 THEN C(9)=C(9)-1 +130 HIRES +140 PRINT"Il fait noir comme dans un four,il faudrait peut etre allumer" +145 IF KEY$<>"" THEN WAIT500 ELSE WAIT300 +150 GOTO 500 +200 REM DESCRIPTION SALLE +210 PRINT +220 GOSUB(7000+SALLE*10)-10 +300 H=0:N=1 +310 IF O(N)<>SALLE THEN 400 +320 IF H=1 THEN GOTO 350 +330 PRINT"Il y a dans la salle:":WAIT 100 +340 H=1 +350 PRINT" ";O$(N); +360 WAIT 150 +400 N=N+1 +410 IF N<=O THEN 310 +420 PRINT"" +500 REM ACCEPTATION COMMANDE +510 T=1:Y$(1) ="":Y$(2)="":N=0 +520 GOTO 1000 +530 IF C(7)>1 AND P(7)=1 THEN C(7)=C(7)-1 +540 IF C(3)>1 AND P(3)=1 THEN C(3)=C(3)-1 +545 IF C(4)>1 AND P(4)=1 THEN C(4)=C(4)-1 +547 IF C(5)>1 THEN C(5)=C(5)-1 +550 INPUT"Que faites vous";X$ +560 CLS:PRINTX$ +570 GOSUB 6000 +580 IF MO$(1)="00" THEN PRINT"Je ne comprends pas...":WAIT 200:GOTO100 +900 REM CONTROLE Mvt +910 Z=1 +920 T$=MID$(M$(SALLE),Z,2) +930 IF T$="00" THEN 980 +940 IF T$<>MO$(1) THEN 970 +950 SALLE=VAL(MID$(M$(SALLE),Z+2,2)) +960 GOTO 100 +970 Z=Z+4:GOTO920 +980 T=0 +990 A1=0 +1000 REM CONTROLE +1010 NL=0 +1100 NL=NL+1 +1110 IF T=0 THEN GOTO 1150 +1120 E$=C$(NL) +1130 GOTO 1400 +1150 IF NL<=A THEN 1200 +1159 PY=23:CO=12 +1160 IF A1=1 THEN GOTO 500 +1170 PRINT"Impossible "; +1180 IF VAL(MO$(1))<10 THEN PRINT"de prendre ce chemin"; +1190 PRINT"!":GOTO 100 +1200 IF MID$(A$(NL),1,2)<>MO$(1) THEN 1100 +1210 Y$=MID$(A$(NL),3,2) +1220 IF Y$<>"00" AND Y$<>MO$(2) THEN 1100 +1230 E$=MID$(A$(NL),5) +1400 REM CONDITIONS +1410 E=1 +1420 IF MID$(E$,E,1)="." THEN 1700 +1430 LI=ASC(MID$(E$,E,1))-65 +1440 N=VAL(MID$(E$,E+1,2)) +1450 GOSUB 1500+LI*10 +1460 IF OK=0 THEN 1100 +1470 E=E+3:GOTO1420 +1500 IF N=SALLE THEN OK=1 ELSE OK=0 +1505 RETURN +1510 IF O(N)=-1 OR O(N)=SALLE THEN OK=1 ELSE OK=0 +1515 RETURN +1520 IF O(N)<>SALLE AND O(N)<>-1 THEN OK=1 ELSE OK=0 +1525 RETURN +1530 IF O(N)=-1 THEN OK=1 ELSE OK=0 +1535 RETURN +1540 IF P(N)=1 THEN OK=1 ELSE OK=0 +1545 RETURN +1550 IF P(N)=0 THEN OK=1 ELSE OK=0 +1555 RETURN +1560 IF C(N)=1 THEN OK=1 ELSE OK=0 +1565 RETURN +1570 IF INT(RND(1)*99+1)SALLE THEN OK=1 ELSE OK=0 +1585 RETURN +1700 REM ACTIONS +1705 E=E+1:A1=1 +1710 IF MID$(E$,E,1)="." THEN 1100 +1720 LI=ASC(MID$(E$,E,1))-65 +1730 IF MID$(E$,E+1,1)<>"." THEN N=VAL(MID$(E$,E+1,2)) +1740 BREAK=0 +1750 GOSUB 1800+LI*100 +1760 IF BREAK<>0 THEN GOTO BREAK +1780 E=E+3 +1790 GOTO 1710 +1800 G=0:HH=0 +1810 G=G+1 +1820 IF O(G)=-1 THEN GOTO 1840 +1830 IF G-1 THEN 1960 +1935 REM CE PROGRAMMEEST LA PROPRIETE DE L.WEILL LORICIELS +1940 PRINT"Vous l'avez deja,vous etes etourdit etdans cette maison ce n'est pas" +1945 WAIT400 +1950 PRINT"tres conseille...":GOTO1920 +1960 O(N)=-1:S(1)=S(1)+1:RETURN +2000 IF O(N)=-1 THEN 2030 +2010 PRINT"Comment voulez vous poser ce que vous n'avez pas" +2020 GOTO 1920 +2030 O(N)=SALLE:S(1)=S(1)-1:RETURN +2100 CLS:GOSUB 4000+N*10 +2110 RETURN +2200 P(N)=1:RETURN +2300 P(N)=0:RETURN +2400 C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN +2500 IF O(N)=-1 THEN S(1)=S(1)-1 +2510 O(N)=0 :RETURN +2600 SALLE=N:RETURN +2700 PRINT"D'accord..." +2710 WAIT150:BREAK=300:RETURN +2800 BREAK=500 +2810 RETURN +2900 BREAK=530:RETURN +3000 BREAK=100:RETURN +3100 POP:GOTO20000 +3200 O(N)=SALLE:RETURN +3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN +4000 HIRES:FORN=1TO20:EXPLODE:WAIT4:NEXT +4001 PRINT"Vous avez gardez la lampe trop longtemps allumee,elle a explose" +4005 WAIT400:RETURN +4010 HIRES +4011 PRINT"Vous avez oubliez de fermer le robinetvous mourez sous des tonnes d'eau" +4015 WAIT500:RETURN +4020 HIRES +4022 PRINT"Lapporte vient de se refermer derrierevous,vous voila prisonnier..." +4025 WAIT500:RETURN +4030 HIRES +4031 PRINT"Vous avez trebuche dans l'escalier,vous vous empallez sur le couteau!" +4035 WAIT500:RETURN +4040 HIRES +4041 PRINT"Vous renversez l'eau dans l'escalier, ce qui provoque une decharge"; +4042 PRINT" de la":WAIT300:PRINT"prise electrique" +4045 WAIT300:RETURN +4050 HIRES +4051 PRINT"Vous etes sauf grace a la combinaison que vous avez enfile..!" +4055 WAIT500:RETURN +4060 PRINT"Vous mourrez electrocute..." +4065 WAIT300:RETURN +4070 HIRES:FOR N=1 TO 20:MUSIC2,2,2,10:PLAY3,7,4,80:WAIT1:EXPLODE:WAIT6:NEXT +4071 PRINT"La piece etait pleine de gaz explosif,vous auriez du eteindre..." +4072 WAIT500:CLS:PRINT"On ramassera vos morceaux un autre jour..!" +4075 WAIT300:RETURN +4080 HIRES +4081 PRINT"Vous mourez empalle sur des lances sorties du mur...!" +4085 WAIT400:RETURN +4090 REM +4091 PRINT"La porte ne s'ouvre pas de cette piece":WAIT300:RETURN +4100 HIRES +4101 PRINT"La lampe et le briquet refusent de marcher dans cette piece" +4105 WAIT400:RETURN +4110 HIRES +4111 PRINT"Vous tombez dans une trappe,vous vous disloquez en arrivant au sol.." +4115 WAIT500:RETURN +4120 REM +4121 PRINT"Vous avez raison de passer,car ce monstre n'etait qu'une projection" +4124 WAIT400:PRINT"en 3 dimentions sur un ecran de fumee" +4125 WAIT250:RETURN +4130 REM +4131 PRINT"Vous avez raison,la curiosite est un vilain defaut!!!" +4132 WAIT400 +4133 POP:TEXT:PRINT:PRINT:PRINTSPC(12)"AU REVOIR" +4135 WAIT200:GOTO20100 +4140 PRINT"Vous avez raison d'attendre,mais cela ne pourra pas durer"; +4141 PRINT" eternellement.." +4142 WAIT450:RETURN +4150 :HIRES:PRINT"Vous avez de la chance car ce coffre etait ouvert.":WAIT400 +4152 PRINT"Un message a l'interieur dit:":WAIT250:PRINT"Ne respectez pas les "; +4154 PRINT"couleurs du":PRINT"code de la route...?":WAIT500 +4156 PRINT"Tiens le coffre se referme":WAIT200:RETURN +4160 PRINT"Maintenant,vous avez une lampe pleine de petrole" +4165 WAIT400:RETURN +4170 PRINT"Vous n'avez rien pour transporter le petrole":WAIT400:RETURN +4180 HIRES:PRINT"Le briquet que vous aviez laisse allume vient d'exploser" +4181 FOR N=1 TO 10:EXPLODE:WAIT6:NEXT +4185 WAIT300:PRINT"Ca tue l'etourderie.....":WAIT200:RETURN +4190 HIRES:PRINT"A force de marcher en long et en large dans cette maison," +4195 WAIT300:PRINT"vous sombrez dans un coma des plus mortel...":WAIT300:RETURN +4200 PRINT"L'eau coule...":RETURN +4210 HIRES:PRINT"Vous avez les pieds trempes,et cela vous rend tres malade..." +4215 WAIT400:PRINT"Vous mourez d'une triple pneumonie...!":WAIT300:RETURN +4220 PRINT"Le titre est:":WAIT200:PRINT"La mort a la premiere page.":WAIT300:RETURN +4230 HIRES:FOR N=1 TO 20:EXPLODE:NEXT +4233 PRINT"Le livre a explose lorsque vous l'avezouvert...":WAIT400:RETURN +4240 PRINT"Le papier indique: Cherchez la clef.":WAIT300:RETURN +4250 PRINT"La clef vous permettera de trouver le code de la porte d'entree." +4255 WAIT400:RETURN +4260 HIRES:PRINT"Il y a , a cote de la porte,un claviernumerique permettant "; +4265 PRINT"d'entrer un code":WAIT400:RETURN +4270 PRINT"Pour faire quoi..?":WAIT200:RETURN +4280 PRINT"Il y a une odeur de gaz.":WAIT300:RETURN +4290 PRINT"Apparement,il n'y a occune odeur mais...":WAIT300:RETURN +4300 PRINT"C'est deja fait,espece de rigolo":WAIT300:RETURN +4310 PRINT"Il faudrait peut etre du feu":WAIT300:RETURN +4320 PRINT"La lampe ne contient pas de petrole":WAIT300:RETURN +4330 PRINT"Vous ne l'avez pas":WAIT200:RETURN +4340 PRINT"Le briquet est encore allume et il eclaire la piece."WAIT300:RETURN +4350 FOR N=1 TO 15:EXPLODE:WAIT4:NEXT +4355 PRINT"La torche etait piegee,elle vous explose dans les mains.." +4357 WAIT400:RETURN +4360 PRINT"La lampe est encore allumee,et elle vous eclaire":WAIT300:RETURN +4370 HIRES:PRINT"Un nain vient de vous lancer un poignard en plein coeur.." +4375 WAIT300:RETURN +4380 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre"; +4385 PRINT" ciseau":WAIT400:RETURN +4390 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre"; +4395 PRINT" couteau":WAIT400:RETURN +4400 HIRES:PRINT"Vous venez de renverser le pot":WAIT150:RETURN +4410 HIRES:PRINT"La foudre vient de tomber sur la maison":WAIT200 +4412 PRINT"La maison n'existe plus,vous non plus":WAIT200:RETURN +4420 HIRES:PRINT"A force de marcher dans le noir,vous avez trebuche":WAIT200 +4425 PRINT"Vous mourez d'une fracture du crane...":WAIT200:RETURN +4430 PRINT"Vous ne pouvez pas travailler dans le noir...":WAIT300:RETURN +4440 PRINT"La lumiere du briquet ne suffit pas pour travaillez...":WAIT400:RETURN +4450 PRINT"Impossible !":WAIT100:RETURN +4460 PRINT"Vous n'avez aucun outil..":WAIT250:RETURN +4470 PRINT"Le teleporteur est en panne,donc les boutons ne fonctionnent pas." +4475 WAIT400:RETURN +4480 FOR N=1 TO 25:EXPLODE:WAIT5:NEXT +4484 PRINT"Le teleporteur vient d'exploser,vous etes decompose..!":WAIT400:RETURN +4490 PRINT"Le teleporteur se met en marche,vous disparaissez" +4491 MUSIC2,1,5,0:PLAY2,1,3,1000 +4492 FOR N=1 TO 12 +4493 PAPER4:WAIT8:PAPER1:WAIT8:PAPER3:WAIT8:PAPER4:WAIT8:PAPER1:WAIT8 +4494 NEXT:PAPER0:PLAY0,0,0,0 +4495 FOR N=500 TO 30 STEP-5 +4497 SOUND2,N,12:PLAY2,0,0,100:NEXT +4498 PLAY0,0,0,0 :HIRES:RETURN +4500 HIRES:PRINT"Vous prenez du 30000 Volts dans les doigts,":WAIT300:RETURN +4510 PRINT"Le placard est ferme a clef":WAIT150:RETURN +4520 HIRES:PRINT"L'horrible monstre sorti du placard vient de vous devorer" +4525 WAIT400:RETURN +4530 PRINT"Il ne fallait pas fuir":WAIT200:RETURN +4540 HIRES:PRINT"Vous avez raison d'utiliser le ciseau,le monstre est mort" +4545 WAIT400:RETURN +4550 PRINT"A l'interieur du placard,le No "PL" est inscrit":WAIT300 +4555 PRINT"Le placard se referme.":WAIT150:RETURN +4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200 +4565 RETURN +4570 HIRES:FOR N=1 TO 25:EXPLODE:WAIT7:NEXT: +4575 PRINT"le clavier numerique a explose":WAIT250:RETURN +4580 HIRES:PRINT"Le clavier numerique prends feu, heureusement,vous aviez "; +4582 WAIT300:PRINT"un pot plein":WAIT100 +4585 PRINT"d'eau qui vous a permis d'eteindre ce feu" +4586 WAIT400:RETURN +4590 HIRES:INPUT"No DE CODE";ZC +4595 IF ZC<>PL THEN GOTO 4570 +4600 WAIT200:PRINT"Le code est exact...":POP:PRINT"La porte s'ouvre..." +4603 WAIT400 +4605 GOSUB10000:PRINT"Vous voila en dehors de la maison..." +4608 GOSUB 32000:GOTO20100 +4610 HIRES:PRINT"A l'interieur du placard,il y a un motqui parle d'un teleporteur" +4615 WAIT400:PRINT"Tiens le placard se ferme tout seul...":WAIT150:RETURN +4620 PRINT"Avant de la poser par terre,il faudrait peut etre l'enlever." +4625 WAIT350:RETURN +4630 HIRES:PRINT"Il y a un horrible monstre devant vousqui est sortie du placart." +4635 WAIT400:RETURN +4640 HIRES:PRINT"Le placard etait piege,vous n'auriez pas du l'ouvrir" +4645 FOR N=1 TO 30:EXPLODE:WAIT7:NEXT +4647 WAIT150:RETURN +6000 REM ANALYSE DU MOT +6010 N=0:GN=0 +6020 REPEAT:N=N+1 +6030 UNTIL MID$(X$,N,1)<>" " +6040 REPEAT:GN=GN+1 +6050 UNTIL MID$(X$,N+GN,1)=" "OR MID$(X$,N+GN,1)="" OR GN=20 +6060 IF GN>4 THEN GN=4 +6070 X$(1)=MID$(X$,N,GN) +6080 REPEAT:N=N+1 +6090 UNTIL MID$(X$,N,1)=" "OR MID$(X$,N,1)="" +6100 REPEAT:N=N+1 +6110 UNTIL MID$(X$,N,1)<>" " +6115 GN=0 +6120 REPEAT:GN=GN+1 +6130 UNTIL MID$(X$,N+GN,1)=" "OR MID$(X$,N+GN,1)="" OR GN=20 +6140 IF GN>4 THEN GN=4 +6150 X$(2)=MID$(X$,N,GN) +6160 FOR W=1 TO 2:N=0:MO$(W)="00" +6170 N=N+1 +6180 IF N>V THEN W=3:GOTO 6300 +6190 IF MID$(V$(N),3,4)=X$(W) THEN GOTO 6250 +6200 GOTO 6170 +6250 MO$(W)=MID$(V$(N),1,2) +6300 NEXT W +6310 RETURN +7000 GOSUB10000 +7005 PRINT"Vous etes devant le manoir du defunt":PRINT:WAIT250 +7006 PRINTSPC(12)"Dr GENIUS" +7007 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7008 RETURN +7010 GOSUB10100 +7015 PRINT"Vous etes dans le hall d'entree." +7016 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7017 RETURN +7020 GOSUB10200 +7024 PRINT"Vous etes en bas de l'escalier menant au 2eme etage" +7025 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7026 RETURN +7030 F1=0:GOSUB10300 +7034 PRINT"Vous etes dans la salle a manger." +7035 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7036 RETURN +7040 F1=1:GOSUB10300 +7043 PRINT"Vous etes dans une biblioteque sans livre...!" +7045 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7046 RETURN +7050 GOSUB 10500 +7053 PRINT"Vous etes dans une buanderie" +7055 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7056 RETURN +7060 GOSUB 10600 7th +7063 PRINT"Vous etes dans le salon" +7065 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7066 RETURN +7070 LX=0:GOSUB 10700 8th +7073 PRINT"Vous etes dans une chambre." +7075 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7076 RETURN +7080 GOSUB10800 9th +7083 PRINT"Vous etes dans un corridor" +7085 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7086 RETURN +7090 LX=0:GOSUB10900 10th +7093 PRINT"Vous etes dans une salle d'attente." +7095 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7096 RETURN +7100 LX=0:GOSUB11000 11th +7103 PRINT"Vous etes dans le vestibules" +7105 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7106 RETURN +7110 LX=2:GOSUB10700 12th +7113 PRINT"Vous etes dans la chambre d'amis." +7115 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7116 RETURN +7120 LX=1:GOSUB 10700 13th +7123 PRINT"Vous etes dans une chambre." +7125 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7126 RETURN +7140 LX=2:GOSUB12200 14th +7143 PRINT"Vous etes dans une petite salle" +7145 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7146 RETURN +7150 GOSUB11500 15th +7153 PRINT"Vous etes dans le laboratoire du Dr GENIUS" +7155 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7156 RETURN +7160 LX=1:GOSUB10900 16th +7163 PRINT"Vous etes dans une petite piece vide." +7165 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7166 RETURN +7170 GOSUB 11700 17th +7173 PRINT"Vous etes...":WAIT300:PRINT"Justement,vous ne savez pas ou vous etes" +7175 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7176 RETURN +7180 GOSUB 11800 18th +7183 PRINT"Vous etes en haut de l'escalier" +7185 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7186 RETURN +7190 LX=2:GOSUB10900 19th +7193 PRINT"Vous etes dans la salle bain" +7195 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7196 RETURN +7200 LX=1:GOSUB12200 20th +7203 PRINT"Vous etes dans le living room" +7205 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7206 RETURN +7210 LX=1:GOSUB11000 21th +7213 PRINT"Vous etes dans une piece enfumee...!" +7215 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7216 RETURN +7220 LX=0:GOSUB12200 22th +7223 PRINT"Vous etes dans une grande piece" +7225 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7226 RETURN +7230 GOSUB 12300 23th +7233 PRINT"Vous etes dans une piece de rangement" +7235 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7236 RETURN +7240 GOSUB12400 24th +7243 PRINT"Vous etes dans le dressing" +7245 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7246 RETURN +8000 REM CHARGEMENT VARIABLES +8001 RESTORE +8010 V=70:DIM V$(V) +8020 FOR N=1 TO V +8030 READ KO$ +8040 V$(N)=KO$ +8050 NEXT +8060 DATA 01N,01NORD,02S,02SUD,03E,03EST,04O,04OUEST,05MONT,05GRIM,06DESC +8070 DATA 10PREN,10RAMA,11POSE,12OUVR,13FERM,14ENTR,14AVAN,15ALLU,16ETEI +8080 DATA 17REPA,17DEPA,18LIS,19REGA,20RETO,21RENI,21SENS,22REMP,23VIDE +8090 DATA 24INVE,24LIST,25RIEN,25ATTE,26POIG,27COUT,28TOUR,29LAMP,30CODE +8100 DATA 31ESCA,32PIST,33PLAC,34TORC,35TELE,36MONS,37PETR,38POT,18LIT +8110 DATA 39CLEF,40PAPI,41LIVR,42BRIQ,43COMB,44COFF,45ROUG,46BLEU,47VERT +8120 DATA 48TITR,49ROBI,50CISE,51PORT +8124 DATA 52ACTI,53JETE,53LANCE,54EAU,55ENFI,55PASS,56APPU,56ENFO,57ENLE +8126 DATA 58RENT +8130 O=25:DIM O(O):DIM O$(O) +8140 FOR N=1 TO O +8150 READ KO +8160 O(N)=KO +8170 NEXT +8180 DATA 06,05,05,08,08,00,00,11,11 +8190 DATA 13,20,18,16,16,16,16,00,21 +8200 DATA 00,22,25,12,00,25,00 +8210 FOR N=1 TO O +8220 READ KO$ +8230 O$(N)=KO$ +8240 NEXT +8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUME,UN COUTEAU +8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE ALL'EST +8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU +8320 M=25:DIM M$(M) +8330 FOR N=1 TO M +8340 READ KO$ +8350 M$(N)=KO$ +8360 NEXT +8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380 DATA 04080109020500,030700,04130207031000 +8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400 DATA00,00,0122032100,040500,0125022200,012100 +8410 DATA 0124042200,022300,022100 +8430 A=128:DIM A$(A) +8440 FOR N=1 TO A +8450 READ KO$ +8460 A$(N)=KO$ +8470 NEXT +8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485 DATA 0500A03E08D24.D04D06N. +8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500 DATA0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505 DATA 0100A09E07B22.D07N. +8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525 DATA 0200A17.F01I15M. +8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531 DATA 0400A21E03.I19M. +8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555 DATA 1143E09.D62K. +8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. +8566 DATA1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597 DATA 1642E06.E02F07F06P22M. +8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. +8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625 DATA 5543D18.P18E09J.,574EXPLODEAND18F09.D30K.,5743D18.P18F09J. +8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650 DATA 1233A25.D64N. +8700 PL=INT(RND(1)*9000+1000) +8800 C=14:DIMC$(C) +8810 FOR N=1 TO C +8820 READ KO$ +8830 C$(N)=KO$ +8840 NEXT N +8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900 RETURN +9000 TEXT +9005 N=48000:POKEN,96:POKEN+2,76:POKEN+3,79:POKEN+4,82:POKEN+5,73:POKEN+6,67 +9010 POKEN+7,73:POKEN+8,69:POKEN+9,76:POKEN+10,83:POKEN+11,32 +9015 POKEN+12,32:POKEN+13,56:POKEN+14,51:RETURN +10000 HIRES:INK0:CURSET100,190,1 +10005 DRAW0,-60,1:DRAW97,0,1:DRAW7,10,1:DRAW-97,0,1:DRAW-7,-10,1:DRAW15,-20,1 +10010 DRAW-30,-50,1:DRAW-15,20,1:DRAW30,50,1:CURSET100,190,1:DRAW-30,-50,1 +10015 DRAW0,-60,1:CURSET100,190,1:DRAW22,0,1:DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1 +10020 DRAW60,0,1:DRAW0,-50,1:CURMOV0,-10,1:DRAW0,-30,1:DRAW-67,-40,1 +10025 DRAW-23,30,1:DRAW-30,-50,1:DRAW23,-30,1: DRAW30,50,1:CURSET197,100,1 +10030 DRAW-45,-60,1:DRAW-52,-30,1:CURSET85,60,1:DRAW0,-6,1:CURSET115,110,1 +10035 DRAW0,-30,1:CURMOV7,0,1:DRAW7,-10,1:DRAW7,10,1:DRAW0,20,1:DRAW-15,0,1 +10040 DRAW0,-20,1:CURMOV7,-10,1:DRAW0,30,1:CURSET182,100,1:DRAW-30,0,1 +10045 DRAW0,20,1:DRAW30,0,1:DRAW0,-20,1:CURMOV-7,0,1:DRAW0,20,1:CURMOV-16,0,1 +10050 DRAW0,-20,1:CURSET122,190,1:DRAW13,7,1:DRAW0,-30,1:DRAW-13,-7,1 +10055 CURSET133,182,1:CURSET182,150,1:DRAW-30,0,1:DRAW0,20,1:DRAW30,0,1 +10060 DRAW0,-20,1:CURMOV-7,0,1:DRAW0,20,1:CURMOV-16,0,1:DRAW0,-20,1 +10065 CURSET78,130,1:DRAW15,25,1:DRAW0,-20,1:DRAW-15,-25,1:DRAW0,20,1 +10070 CURMOV3,5,1:DRAW0,-20,1:CURMOV9,15,1:DRAW0,20,1:INK3:RETURN +10100 HIRES:INK0:CURSET15,190,1:DRAW0,-160,1:DRAW75,-20,1:DRAW0,40,1 +10110 DRAW0,-40,1:DRAW60,0,1:DRAW0,20,1:DRAW10,10,1:DRAW-40,0,1:DRAW40,0,1 +10120 DRAW0,3,1:DRAW-40,0,1:DRAW0,-3,1:DRAW0,-10,1:DRAW30,0,1:DRAW0,-20,1 +10130 DRAW82,20,1:DRAW0,160,1:DRAW-73,-126,1:DRAW73,126,3:DRAW-30,-50,3 +10140 DRAW0,-80,1:DRAW-22,-16,1:DRAW0,58,1:CURMOV19,-9,1:CIRCLE1,1 +10145 CURSET15,190,1:DRAW37,-68,1:DRAW0,-70,1:DRAW18,-13,1:DRAW0,50,1 +10150 DRAW-18,33,3:DRAW38,-71,1:DRAW31,0,1:DRAW0,-8,3:DRAW0,23,1:DRAW3,0,1 +10155 DRAW0,-23,1:DRAW0,8,1:DRAW21,0,1:DRAW0,-8,1:DRAW0,8,1:DRAW1,2,1 +10157 DRAW0,-10,1:DRAW0,10,1 +10160 DRAW2,0,1:DRAW0,-10,1:DRAW0,8,1:DRAW2,0,1:DRAW0,-8,1:DRAW0,8,1 +10165 DRAW3,5,1:DRAW0,-12,1:DRAW0,20,1:DRAW2,3,1:DRAW0,-23,1:DRAW0,23,1 +10170 DRAW3,0,1:DRAW0,-23,1:CURSET67,68,1:CIRCLE1,1:INK3:RETURN +10200 HIRES:INK0:CURSET15,190,1:DRAW0,-120,1:DRAW105,-50,1:DRAW60,0,1 +10205 DRAW45,50,1:DRAW0,110,1:DRAW-45,-100,1:CURMOV0,-60,1:DRAW0,60,1 +10210 DRAW-60,0,1:CURMOV0,-60,1:DRAW0,60,1:DRAW-52,54,1:CURSET15,190,1 +10215 DRAW24,-26,1:DRAW0,-104,1:DRAW0,60,1:DRAW27,14,1:DRAW0,-10,1 +10220 DRAW53,-50,1:DRAW-6,-2,1:DRAW-54,47,1:CURMOV7,3,1:DRAW-7,-3,1 +10225 DRAW0,-10,1:DRAW53,-44,1:DRAW0,8,1:DRAW0,-8,1:DRAW-5,-2,1:DRAW-56,40,1 +10230 DRAW9,4,1:DRAW-9,-4,1:DRAW0,-10,1:DRAW55,-36,1:DRAW0,7,1:DRAW0,-7,1 +10235 DRAW-5,-2,1:DRAW-56,33,1:DRAW7,3,1:DRAW-7,-3,1:DRAW0,-10,1 +10240 DRAW-5,-2,1:DRAW5,2,1:DRAW57,-30,1:DRAW0,8,1:DRAW0,-8,1:DRAW-5,-2,1 +10245 DRAW-57,25,1:DRAW57,-25,1:DRAW0,-7,1:DRAW-57,24,1:DRAW57,-24,1 +10250 DRAW-5,-2,1:DRAW-16,5,1:DRAW16,-5,1:DRAW0,-4,1 +10255 CURSET211,146,1:DRAW0,-64,1:DRAW-15,-20,1:DRAW0,52,1:CURSET207,108,1 +10260 CIRCLE1,1:CURSET156,80,1:DRAW24,0,0:DRAW6,12,0:DRAW-6,-12,0:DRAW0,-40,0 +10265 DRAW-26,0,1:DRAW0,40,1:DRAW5,12,1:DRAW27,0,1:DRAW0,-42,1:DRAW-6,-10,1 +10270 DRAW6,10,1:DRAW-27,0,1:DRAW-4,-10,1:DRAW4,10,1:DRAW0,42,1 +10275 CURSET169,70,0:CIRCLE4,1:CURSET169,66,1:DRAW0,-3,1:CURSET169,74,1 +10280 DRAW0,2,1:CURSET165,70,1:DRAW-2,0,1:CURSET173,70,1:DRAW2,0,1 +10285 CURSET165,58,1:CIRCLE1,1:CURSET170,58,1:CIRCLE1,1:CURSET175,58,1 +10290 CIRCLE1,1:INK3:RETURN +10300 HIRES:INK0:CURSET15,190,1:DRAW67,-110,1:DRAW68,0,1:DRAW82,110,1 +10305 DRAW0,-140,1:DRAW-82,-40,1:DRAW0,70,0:DRAW0,-70,1:DRAW-68,0,1 +10310 DRAW0,70,0:DRAW0,-70,1:DRAW-67,40,1:DRAW0,140,1:CURSET90,80,1 +10315 DRAW0,-50,1:DRAW24,0,1:DRAW0,50,1:DRAW-24,0,0:DRAW18,10,1:DRAW0,-50,1 +10320 DRAW-18,-10,1:CURSET105,64,1 +10325 CURSET210,160,1:DRAW0,-90,1:DRAW-23,-14,1:DRAW0,74,1:CURSET205,110,1 +10330 CURSET45,140,1:DRAW0,-74,1:DRAW18,-14,1:DRAW0,60,1:CURSET60,86,1 +10335 IF F1=0 THEN INK3:RETURN +10400 INK0:CURSET124,80,1:DRAW26,0,0:DRAW0,-70,0:DRAW0,70,0 +10401 CURSET149,80,0:DRAW12,14,0 +10402 CURSET150,80,0:DRAW10,14,0 +10405 CURSET168,18,1:DRAW0,86,1:DRAW-38,0,1:DRAW0,-86,1:DRAW38,0,1 +10410 DRAW-38,0,1:DRAW-6,-8,1:DRAW0,70,1:DRAW6,24,1 +10415 CURSET168,94,1:DRAW-38,0,1:CURSET168,94,1:DRAW-8,-10,1:CURSET168,84,1 +10420 DRAW-38,0,1:CURSET168,84,1:DRAW-8,-10,1:CURSET168,74,1:DRAW-38,0,1 +10430 CURSET168,74,1:DRAW-9,-10,1:CURSET168,64,1:DRAW-38,0,1:CURSET168,64,1 +10435 DRAW-9,-10,1:CURSET168,54,1:DRAW-38,0,1:CURSET168,54,1:DRAW-18,-18,1 +10440 DRAW-18,0,1:DRAW18,0,1:DRAW0,-16,1 +10445 INK3:RETURN +10500 HIRES:INK0:CURSET13,180,1:DRAW0,-132,1:DRAW63,-28,1:DRAW83,0,1 +10505 DRAW67,30,1:DRAW0,130,1:DRAW-11,-14,1:DRAW-4,-4,0:DRAW-17,-25,1 +10510 DRAW-24,-36,0:DRAW-12,-20,1:DRAW0,-61,1:DRAW0,61,1:DRAW-83,0,1 +10515 DRAW0,-60,1:DRAW0,60,1:DRAW-63,100,1:CURSET22,90,1:DRAW19,0,1 +10520 DRAW0,-30,3:DRAW-19,0,1:DRAW0,30,1:DRAW0,-30,1:DRAW33,-20,1 +10525 DRAW13,0,1:DRAW0,20,1:DRAW-28,30,1:DRAW0,-30,1:DRAW27,-20,1 +10530 DRAW-11,9,1:DRAW0,23,1:CURSET52,64,1:CURSET60,58,1:CURSET157,100,1 +10535 DRAW30,0,1:DRAW29,34,1:DRAW-40,0,1:DRAW0,2,1:DRAW40,0,1:DRAW0,-2,1 +10540 DRAW0,2,3:DRAW-2,0,3:DRAW0,34,1:DRAW-3,0,1:DRAW0,-34,1:DRAW-30,0,1 +10545 DRAW0,34,1:DRAW-3,0,1:DRAW0,-34,1:DRAW-2,0,3:DRAW-20,-34,1:DRAW0,-2,1 +10550 DRAW20,34,1:CURSET159,104,1:DRAW0,24,1:DRAW3,0,1:DRAW0,-18,1 +10555 INK3:RETURN +10600 HIRES:INK0:CURSET15,190,1:DRAW0,-130,1:DRAW75,-50,1 +10605 DRAW52,0,1:DRAW90,50,1:DRAW0,130,1:DRAW-22,-32,1:DRAW0,-52,1 +10610 DRAW-3,-5,1:DRAW-42,-43,1:DRAW-6,0,1:DRAW-2,4,1:DRAW0,10,1:DRAW-12,0,1 +10613 DRAW5,0,1:DRAW-7,-10,1:DRAW0,-50,1:DRAW0,50,1 +10615 DRAW-22,0,1:DRAW0,-30,1:DRAW-15,0,1:DRAW13,3,1:DRAW0,30,1 +10620 DRAW-13,-3,1:DRAW0,-30,1:DRAW0,30,1:DRAW-15,0,1:DRAW0,-50,1:DRAW0,50,1 +10625 DRAW-23,40,1:DRAW-22,0,1:DRAW22,0,1:DRAW0,-52,1:DRAW-22,22,1:DRAW0,70,1 +10630 DRAW-30,50,1:CURSET116,49,1:CURSET210,158,1:DRAW-45,0,1:DRAW0,-18,1 +10633 DRAW0,18,1 +10635 DRAW-26,-60,0:DRAW0,-10,1:DRAW6,-16,1:DRAW12,0,3:DRAW4,4,1:DRAW-12,0,1 +10640 DRAW-4,-4,1:DRAW4,4,1:DRAW-6,14,1:DRAW10,-2,1:DRAW9,0,1:DRAW0,-11,1 +10645 DRAW0,11,1:DRAW19,25,1:CURSET165,140,1:DRAW10,-20,1:DRAW21,0,1 +10650 DRAW-5,-7,1:DRAW-21,0,1::DRAW5,7,1:DRAW-5,-7,1:DRAW-7,14,1 +10655 DRAW-20,-37,1:CURSET165,140,1:DRAW-26,-50,1:CURSET165,158,1 +10660 DRAW-26,-59,1:DRAW0,-1,1:CURSET196,120,1:DRAW0,-14,1:DRAW2,-5,1 +10665 DRAW9,0,1:DRAW-9,0,1:DRAW-39,-43,1 +10670 INK3:RETURN +10700 HIRES:INK0:CURSET15,190,1:DRAW57,-106,1:DRAW-57,106,1:DRAW0,-150,1 +10705 DRAW67,-30,1:DRAW0,32,1:DRAW0,-32,1:DRAW75,0,1:DRAW0,50,1:DRAW0,-50,1 +10710 DRAW75,30,1:DRAW0,150,1:DRAW-75,-130,1:CURSET202,138,1:DRAW0,-78,1 +10715 DRAW-22,-18,1:DRAW0,56,1:CURSET157,60,1:DRAW-9,0,1:DRAW2,3,3 +10720 DRAW-78,0,1:DRAW0,8,1:DRAW78,0,2:DRAW0,-8,1:DRAW0,20,1 +10725 DRAW-78,0,1:DRAW0,-38,1:DRAW10,-12,1:CURSET82,42,1:DRAW-10,13,1 +10730 DRAW6,1,1:DRAW9,-13,1:DRAW-4,-1,1:DRAW4,1,1:DRAW0,6,1:DRAW-9,13,1 +10735 DRAW0,1,1:DRAW0,-7,1:DRAW0,6,1:DRAW9,-13,1:DRAW55,0,1:DRAW8,15,1 +10738 IF LX=2 THEN GOTO 10745 +10740 CURSET197,93,1:CIRCLE1,1 +10745 IF LX=0 THEN INK3:RETURN +10750 IF LX=1 THEN GOTO 10780 +10755 CURSET202,137,0:DRAW0,-77,0:DRAW-22,-18,0:DRAW0,55,0 +10760 CURSET30,162,1:DRAW26,-49,0:DRAW0,1,0:DRAW-26,49,0 +10765 CURSET30,162,1:DRAW0,-80,1:DRAW22,-22,1:DRAW0,9,1:DRAW0,-9,1 +10770 DRAW-22,22,1:DRAW27,-15,1:DRAW0,77,1:DRAW-25,18,1:CURSET51,111,1 +10775 CIRCLE1,1:INK3:RETURN +10780 CURSET30,50,1:DRAW0,40,1:DRAW22,-24,1:DRAW0,-29,1:DRAW-22,14,1 +10785 DRAW12,-8,3:DRAW0,33,1 +10790 INK3:RETURN +10800 HIRES:INK0:CURSET15,190,1:DRAW0,-140,1:DRAW82,-40,1:DRAW53,0,1 +10805 DRAW75,40,1:DRAW0,140,1:DRAW-30,-50,1:DRAW0,-80,1:DRAW-26,-22,1 +10810 DRAW0,60,1:DRAW26,0,1:DRAW-26,0,1:DRAW-19,-30,1:DRAW0,-58,1 +10812 DRAW0,58,1:DRAW-22,0,1 +10815 DRAW0,-40,1:DRAW-15,0,1:DRAW13,4,1:DRAW0,40,1:DRAW-13,-4,1:DRAW0,-40,1 +10820 DRAW0,40,1:DRAW-15,0,1:DRAW0,-58,1:DRAW0,58,1:DRAW-30,42,1:DRAW-22,0,1 +10825 DRAW22,0,1:DRAW0,-68,1:DRAW-22,16,1:DRAW0,86,1:DRAW-30,43,1 +10830 CURSET123,52,1:INK3:RETURN +10900 HIRES:INK0:CURSET232,190,1:DRAW0,-150,1:DRAW-82,-30,1:DRAW0,50,1 +10905 DRAW0,-50,1:DRAW-60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW-75,30,1:DRAW0,150,1 +10910 IFLX=0 THEN DRAW75,-130,1:DRAW-23,40,3:GOTO10920 +10915 DRAW30,-52,1:DRAW-30,52,1:DRAW75,-130,3:DRAW-23,40,1:DRAW-22,0,1 +10918 DRAW22,0,1 +10920 DRAW0,-58,1:DRAW-22,16,1:DRAW0,80,1 +10925 CURSET90,60,1:DRAW60,0,1:DRAW82,130,1 +10930 IF LX=0 THEN CURSET63,78,1:CIRCLE1,1:INK3:RETURN +10935 IF LX=1 THEN INK3:RETURN +10940 CURSET210,100,1:DRAW-15,0,1:DRAW-3,-10,1:DRAW18,0,1:DRAW0,10,1 +10945 DRAW0,-10,1:DRAW-27,-25,1:DRAW0,5,1:DRAW20,20,1:DRAW-20,-20,1 +10950 DRAW-8,0,1:DRAW8,0,1:DRAW0,-5,1:DRAW-12,0,1:DRAW21,25,1:DRAW-21,-25,1 +10955 DRAW-1,0,1:DRAW2,8,1:DRAW21,26,1 +10960 INK3:RETURN +11000 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW82,-30,1:DRAW0,40,1 +11005 DRAW0,-40,1:DRAW60,0,1:DRAW0,40,1:DRAW0,-40,1:DRAW75,30,1:DRAW0,150,1 +11010 DRAW-22,-42,1:DRAW0,-75,1:DRAW-23,-21,1:DRAW0,52,1:DRAW23,0,1 +11015 DRAW-23,0,1:DRAW-30,-54,1:DRAW-60,0,1:DRAW-82,140,0:DRAW82,-140,1 +11020 DRAW15,0,1:DRAW0,-24,1:DRAW12,0,1:DRAW0,24,1:CURMOV-3,-12,1 +11025 IF LX=0 THEN INK3:RETURN +11030 CURSET 187,104,1:DRAW22,0,0:CURMOV-22,0,1:DRAW23,44,1:CURMOV-5,-45,1 +11035 CIRCLE1,1:CURSET30,50,1:DRAW0,40,1:DRAW37,-34,1:DRAW0,-25,1:DRAW-37,20,1 +11040 DRAW21,-10,3:DRAW0,31,1:INK3:RETURN +11500 HIRES:INK0:CURSET15,180,1:DRAW0,-140,1:DRAW67,-30,1:DRAW75,0,1 +11505 DRAW67,30,1:DRAW0,150,1:DRAW-42,-70,1:DRAW0,-70,1:DRAW-24,-20,1 +11510 DRAW0,-20,1:DRAW0,20,1:DRAW-45,0,1:DRAW-15,20,1:DRAW85,0,1:DRAW-33,0,1 +11515 DRAW0,70,1:DRAW33,0,1:DRAW-34,0,1:DRAW-14,-40,1:DRAW0,-30,1:DRAW0,30,1 +11520 DRAW-22,0,1:DRAW0,-30,1:DRAW0,30,1:DRAW-15,40,1:DRAW0,-70,1:DRAW0,30,1 +11525 DRAW-15,0,1:DRAW0,-70,1:DRAW0,70,1:DRAW-67,100,1 +11530 CURSET167,60,1:CIRCLE1,1:CURMOV0,10,1:CIRCLE1,1:CURMOV0,10,1:CIRCLE1,1 +11540 CURMOV0,20,1:DRAW6,2,1:DRAW-6,-2,1:CIRCLE8,1 +11545 POKE43346,1:POKE43348,3:POKE43386,1:POKE43388,3 +11550 POKE43746,4:POKE43748,3:POKE43786,4:POKE43788,3 +11555 POKE44146,2:POKE44148,3:POKE44186,2:POKE44188,3 +11560 INK3:RETURN +11700 HIRES:INK0:CURSET15,190,1:DRAW0,-140,1:DRAW60,-40,1:DRAW75,00,1 +11705 DRAW82,40,1:DRAW0,140,1:DRAW-45,-72,3:DRAW0,-54,1:DRAW-15,-14,1 +11710 DRAW0,44,1:CURSET232,190,1:DRAW-82,-130,1:DRAW0,-50,1:DRAW0,50,1 +11715 DRAW-75,0,1:DRAW0,-50,1:DRAW0,50,1:DRAW-4,10,1:DRAW9,0,1:DRAW-23,0,1 +11720 DRAW-34,50,1:DRAW39,0,1:DRAW18,-50,1:DRAW0,4,1:DRAW-18,52,1 +11725 DRAW0,-6,1:DRAW0,6,1:DRAW-39,0,1:DRAW0,-6,1 +11730 CURSET15,190,1:DRAW15,-33,1:DRAW0,-30,1 +11735 DRAW4,0,3:DRAW0,37,1:DRAW-4,0,1:DRAW0,-7,1:DRAW0,7,1:DRAW4,0,1 +11740 :DRAW3,-8,1:DRAW0,-29,1:DRAW15,0,3:DRAW0,37,1:DRAW4,0,1:DRAW0,-37,1 +11745 DRAW0,37,1:DRAW3,-8,1:DRAW0,-29,1:DRAW-14,0,3:DRAW-7,16,1 +11750 CURSET74,93,1:DRAW0,12,1:DRAW3,0,1:DRAW0,-19,1:DRAW0,19,1 +11755 DRAW2,-7,1:DRAW0,-18,1 +11760 CURSET184,86,1:INK3:RETURN +11800 HIRES:INK0:CURSET15,199,1:DRAW0,-160,1:DRAW75,-30,1:DRAW52,0,1 +11805 DRAW90,30,1:DRAW0,160,1:CURSET15,199,1:DRAW75,-140,1:DRAW0,-50,1 +11810 DRAW0,50,1:DRAW15,0,1:DRAW0,-30,1:DRAW12,4,1:DRAW0,30,1:DRAW-12,-4,1 +11815 DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1:DRAW22,0,1:DRAW0,-50,1:DRAW0,50,1 +11820 DRAW36,55,1:DRAW21,0,1:DRAW-21,0,1:DRAW0,-60,1:DRAW21,15,1:DRAW0,74,1 +11825 DRAW6,8,1:DRAW-106,0,1:DRAW-15,46,1:DRAW15,-46,1:DRAW0,10,1:DRAW106,0,1 +11830 DRAW0,-10,1:DRAW0,10,1:DRAW4,5,1:DRAW-112,0,1:DRAW2,-5,1:DRAW-2,5,1 +11835 DRAW0,10,1:DRAW112,0,1:DRAW0,-10,1:DRAW0,10,1:DRAW4,6,1:DRAW-119,0,1 +11840 DRAW3,-6,1:DRAW-3,6,1:DRAW0,10,1:DRAW119,0,1:DRAW0,-10,1:DRAW0,10,1 +11845 DRAW4,6,1:DRAW-126,0,1:DRAW3,-6,1:CURSET115,49,1 +11850 INK3:RETURN +12200 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW75,-30,1:DRAW0,50,1 +12205 DRAW0,-50,1:DRAW60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW82,30,1:DRAW0,150,1 +12210 DRAW-82,-130,1:DRAW-45,0,1:DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1:DRAW-30,0,1 +12215 DRAW-30,53,1:IF LX=2 THEN DRAW-23,0,1:DRAW23,0,1 +12220 DRAW0,-60,1:DRAW-23,17,1:DRAW0,80,1 +12225 IF LX<>2 THEN DRAW23,-37,1:DRAW-23,37,1 +12230 DRAW-22,40,1:IF LX<>2 THEN CURSET57,88,1:CIRCLE1,1 +12235 IF LX<>0 THEN CURSET 117,45,1:CIRCLE1,1:INK3:RETURN +12240 CURSET105,60,1:DRAW15,0,0:CURMOV-15,0,1:DRAW0,-30,1:DRAW12,3,1 +12245 DRAW0,30,1:DRAW-12,-4,1:CURSET115,48,1:INK3:RETURN +12299 GOTO14000 +12300 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW67,-30,1:DRAW67,0,1 +12310 DRAW82,30,1:DRAW0,150,1:DRAW-65,-104,1:DRAW0,-54,1:DRAW-16,-10,1 +12315 DRAW0,-10,1:DRAW0,10,1:DRAW-37,0,1:DRAW-3,10,1:DRAW0,54,1:DRAW56,0,1 +12320 DRAW0,-54,1:DRAW-28,0,1:DRAW0,54,1:DRAW0,-54,1:DRAW-28,0,1:DRAW0,30,1 +12325 DRAW-27,0,1:DRAW0,-50,1:DRAW0,50,1:DRAW-67,130,1 +12330 CURSET133,60,1:CIRCLE1,1:CURMOV11,0,1:CIRCLE1,1 +12340 INK3:RETURN +12400 HIRES:INK0:CURSET30,164,1:DRAW-15,26,1:DRAW0,-143,1:DRAW15,-7,1 +12405 DRAW0,124,1:DRAW15,0,1:DRAW0,-124,1:DRAW-15,0,1:DRAW15,0,1:DRAW45,-30,1 +12410 DRAW 0,13,1:DRAW0,-13,1:DRAW60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW82,30,1 +12415 DRAW0,150,1:DRAW-82,-130,1:DRAW-50,0,1:DRAW-32,104,1:DRAW-22,0,1 +12420 DRAW22,0,1:DRAW0,-92,1:DRAW-22,0,1:DRAW44,-48,1:DRAW10,0,1:DRAW-32,48,1 +12425 DRAW32,-48,1:DRAW0,35,1:DRAW-14,46,3:DRAW0,-61,1 +12430 CURSET81,88,1:CIRCLE1,1:CURMOV11,-21,1:CIRCLE1,1:INK3:RETURN +12499 GOTO14000 +13000 HIRES:INK0:CURSET75,62,1:DRAW-5,0,1:DRAW-55,108,1:DRAW37,-10,1 +13005 DRAW30,-90,1:DRAW-19,5,1:DRAW19,-5,1:DRAW20,5,1:DRAW-12,94,1 +13007 DRAW-38,-10,1:DRAW38,10,1:DRAW0,20,1:DRAW-75,0,1:DRAW0,-20,1 +13010 DRAW0,20,1:DRAW75,0,1:DRAW15,-112,1:DRAW0,-15,1 +13012 DRAW-3,14,1:DRAW3,-14,1:DRAW-13,0,1 +13015 DRAW0,-12,1:DRAW0,12,1:DRAW-4,10,1:DRAW0,-22,1:DRAW12,0,1 +13020 DRAW4,-7,1:DRAW0,-15,1:DRAW-4,6,1:DRAW0,16,1:DRAW0,-16,1:DRAW-12,0,1 +13025 DRAW4,-6,1:DRAW12,0,1:DRAW-12,0,1:DRAW0,-16,1:DRAW-4,6,1:DRAW0,16,1 +13030 DRAW0,-16,1:DRAW-12,0,1:DRAW4,-6,1:DRAW12,0,1:DRAW-12,0,1:DRAW-4,6,1 +13035 DRAW0,16,1:DRAW-12,0,1:DRAW4,-6,1:DRAW7,0,1:DRAW-7,0,1:DRAW-4,6,1 +13040 DRAW0,16,1:DRAW12,0,1:DRAW0,22,1 +13045 INK3:RETURN +20000 GOSUB13000 'TOMBE +20010 GOSUB30000 'SARABANDE +20100 TEXT:PRINT:PRINT:PRINT:PRINT:PRINT"Voulez-vous rejouer ?":GET X$ +20105 IF X$="O" THEN RUN 45 +20110 IF X$="N" THEN GOTO 20200 +20120 GOTO20100 +20200 CLS:PRINT:PRINT:PRINT:PRINT" AU REVOIR" +20210 END +30000 REM SARABANDE +30005 RESTORE +30010 FOR N=1 TO 41:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT +30015 FOR N=1 TO 75 +30020 READ A1,A2,A3,A4,A5 +30025 READ A6,A7,A8,A9,A0 +30030 MUSIC1,A1,A2,A3:MUSIC2,A4,A5,A6:MUSIC3,A7,A8,A9:PLAY7,0,0,100:WAITA0 +30032 IF N>70 THEN NEXT:PLAY0,0,0,0:RETURN +30035 PLAY0,0,0,0:NEXT +30040 DATA 3,6,8,3,3,8,2,10,8,80 +30045 DATA 3,6,8,3,3,8,2,10,8,80 +30050 DATA 0,1,1,0,1,1,0,1,1,40 +30055 DATA 3,8,8,3,5,8,0,1,1,40 +30060 DATA 3,5,8,3,2,8,2,10,8,80 +30065 DATA 3,5,8,3,2,8,2,10,8,40 +30070 DATA 1,11,8,0,1,1,0,1,1,40 +30075 DATA 1,10,8,0,1,1,0,1,1,40 +30080 DATA 1,8,8,0,1,1,0,1,1,40 +30085 DATA 3,10,8,3,6,9,3,1,8,80 +30090 DATA 3,10,8,3,6,9,3,1,8,80 +30095 DATA 0,1,1,0,1,1,0,1,1,40 +30100 DATA 3,11,8,3,8,8,0,1,1,40 +30105 DATA 3,8,8,3,5,8,3,1,8,80 +30110 DATA 3,8,8,3,5,8,3,1,8,40 +30115 DATA 2,1,8,0,1,1,0,1,1,40 +30120 DATA 1,11,8,0,1,1,0,1,1,40 +30125 DATA 1,10,8,3,7,8,3,10,8,40 +30130 DATA 3,11,8,3,8,8,3,3,8,80 +30135 DATA 3,11,8,3,8,8,3,3,8,80 +30140 DATA 1,8,8,0,1,1,0,1,1,40 +30145 DATA 1,8,8,3,10,8,4,1,8,40 +30150 DATA 3,10,8,3,6,8,3,3,8,80 +30155 DATA 3,10,8,3,6,8,3,3,8,80 +30160 DATA 0,1,1,0,1,1,0,1,1,40 +30165 DATA 3,10,8,2,1,8,0,1,1,40 +30170 DATA 4,3,8,3,10,8,1,11,8,80 +30175 DATA 4,3,8,3,8,8,2,11,9,80 +30180 DATA 0,1,1,0,1,1,0,1,1,40 +30185 DATA 4,5,8,0,1,1,0,1,1,40 +30190 DATA 4,2,8,3,10,8,3,5,8,80 +30195 DATA 4,2,8,3,10,8,3,5,8,40 +30200 DATA 2,8,8,0,1,1,0,1,1,40 +30202 DATA 2,6,8,0,1,1,0,1,1,40 +30203 DATA 2,5,8,0,1,1,0,1,1,40 +30205 DATA 3,6,8,3,3,8,2,10,8,80 +30210 DATA 3,6,8,3,3,8,2,10,8,80 +30215 DATA 0,1,1,0,1,1,0,1,1,40 +30220 DATA 3,8,8,3,5,8,0,1,1,40 +30225 DATA 3,5,8,3,2,8,2,10,8,80 +30230 DATA 3,5,8,3,2,8,2,10,8,40 +30235 DATA 1,11,8,0,1,1,0,1,1,40 +30240 DATA 1,10,8,0,1,1,0,1,1,40 +30245 DATA 1,8,8,0,1,1,0,1,1,40 +30250 DATA 3,10,8,3,6,9,3,1,8,80 +30255 DATA 3,10,8,3,6,9,3,1,8,80 +30260 DATA 0,1,1,0,1,1,0,1,1,40 +30265 DATA 3,11,8,3,8,8,0,1,1,40 +30270 DATA 3,8,8,3,5,8,3,1,8,80 +30275 DATA 3,8,8,3,5,8,3,1,8,40 +30280 DATA 2,1,8,0,1,1,0,1,1,40 +30285 DATA 1,11,8,0,1,1,0,1,1,40 +30290 DATA 1,10,8,3,7,8,3,10,8,40 +30295 DATA 3,11,8,3,8,8,3,3,8,80 +30300 DATA 2,8,8,0,1,1,0,1,1,40 +30305 DATA 3,11,8,3,8,8,3,1,8,40 +30310 DATA 2,8,8,0,1,1,0,1,1,40 +30315 DATA 2,1,8,0,1,1,0,1,1,40 +30320 DATA 4,1,8,2,5,8,0,1,1,40 +30325 DATA 3,10,8,3,6,8,3,1,8,80 +30330 DATA 3,10,8,2,3,8,0,1,1,40 +30335 DATA 4,3,8,3,6,8,2,11,8,40 +30340 DATA 4,2,8,0,1,1,0,1,1,40 +30345 DATA 4,3,8,3,11,8,2,8,8,40 +30350 DATA 4,5,8,0,1,1,0,1,1,40 +30355 DATA 4,6,8,3,10,8,2,10,8,80 +30360 DATA 4,5,8,3,8,8,1,10,8,40 +30365 DATA 0,1,1,3,8,8,1,10,8,40 +30370 DATA 4,3,8,0,1,1,0,1,1,40 +30375 DATA 4,3,8,3,6,8,2,3,8,80 +30380 DATA 3,3,8,3,10,8,3,6,8,40 +30385 DATA 3,3,7,3,10,7,3,6,7,40 +30390 DATA 3,3,6,3,10,6,3,6,6,40 +30395 DATA 3,3,5,3,10,5,3,6,5,40 +30400 DATA 3,3,4,3,10,4,3,6,5,40 +31000 REM BADINERIE +31005 RESTORE +31010 FOR N=1 TO 148:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT +31012 READ Y$ +31015 FOR N=1 TO 97 +31020 READ A1,A2,A3 +31022 MUSIC1,A1,A2,10:PLAY1,0,0,100:WAIT A3 +31025 PLAY 0,0,0,0:NEXT +31030 DATA4,12,20,5,3,10,4,12,10,4,7,20 +31035 DATA4,12,10,4,7,10,4,3,20,4,7,10 +31040 DATA4,3,10,3,12,40,3,7,10,3,12,10 +31045 DATA4,3,10,3,12,10,4,2,10,3,12,10 +31050 DATA4,2,10,3,12,10,3,11,10,4,2,10 +31055 DATA4,5,10,4,2,10,4,3,20,3,12,20 +31060 DATA4,12,20,5,3,10,4,12,10,4,7,20 +31065 DATA4,12,10,4,7,10,4,3,20,4,7,10 +31070 DATA4,3,10,3,12,40,4,3,20,4,3,20 +31075 DATA4,3,20,4,3,20,4,12,20,4,3,20 +31080 DATA4,3,7,4,5,7,4,3,7 +31085 DATA4,2,20,4,7,20,4,7,20,4,7,20 +31090 DATA4,7,20,5,3,20,4,7,20,4,7,7 +31100 DATA4,8,7,4,7,7,4,6,20,4,2,10 +31105 DATA4,7,10,4,10,10,4,7,10,4,9,10 +31115 DATA4,7,10,4,6,10,4,9,10,4,12,10 +31120 DATA4,9,10,4,10,10,4,9,10,4,10,10 +31125 DATA4,9,10,4,7,10,4,10,10,4,7,10 +31130 DATA4,6,10,4,7,10,4,12,10,4,7,10 +31145 DATA4,6,10,4,7,10,5,2,10,4,7,10 +31150 DATA4,6,10,4,7,10,5,3,10,4,7,10 +31155 DATA4,6,10,4,7,10,5,3,10,5,2,10 +31160 DATA4,12,10,5,2,10,4,10,10,4,9,10 +31165 DATA4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20 +31170 RETURN +32000 REM TEA FOR TWO +32001 RESTORE +32002 FOR N=1 TO 166:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT +32005 FOR N=1 TO 110 +32010 READ A1,A2,A3 +32015 MUSIC1,A1,A2,10:PLAY1,0,0,100:WAIT A3 +32020 PLAY0,0,0,0 +32022 NEXT +32025 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +32030 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +32035 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +32040 DATA4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +32045 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +32050 DATA4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +32055 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +32060 DATA4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +32065 DATA4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +32070 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +32075 DATA4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +32080 DATA5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +32085 DATA4,6,45,4,3,15,4,5,45,4,3,15 +32090 DATA4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 +33000 RESTORE:TEXT:PRINTCHR$(17) +33002 GOSUB50000 +33005 FOR N=1 TO 331:READ Y$,Y$,Y$,Y$,Y$:NEXT:READ Y$,Y$,Y$ +33010 FOR N=46360 TO 46423 +33020 READ GH:POKE N,GH +33030 NEXT +33040 DATA 1,2,4,4,4,2,3,1,48,32,24,16,32,16,32,32 +33050 DATA 2,6,9,8,8,8,4,6,16,16,8,40,26,12,10,16 +33060 DATA 7,8,8,16,16,8,28,0,48,8,8,4,4,2,3,0 +33070 DATA 3,4,4,6,2,2,3,0,48,24,8,4,4,4,6,0 +33100 FOR N=48802 TO 48836 STEP 2 +33110 POKEN,35:POKEN+1,36:POKEN+40,37:POKEN+41,38:POKEN+80,39:POKEN+81,40 +33120 WAIT48836-N +33130 POKEN,32:POKEN+40,32:POKEN+80,32 +33140 POKEN+1,35:POKEN+2,36:POKEN+41,37:POKEN+42,38:POKEN+81,41:POKEN+82,42 +33150 WAIT48836-N +33160 POKEN+1,32:POKEN+41,32:POKEN+81,32 +33170 NEXT +33180 POKEN,32:POKEN+40,32:POKEN+80,32 +33190 CALL#F89B +33200 RETURN +40000 CLS:PRINT:PRINT:PRINT:PRINT +40010 PRINT" La liste des instructions (O/N) ?" +40015 GET V$ +40020 IF V$="O" THEN 33 +40030 IF V$="N" THEN 45 +40040 GOTO 40015 +50000 PRINT:PRINT" Cela est exceptionnel,vous etes le premier a etre sorti vivant"; +50010 PRINT" de cette":PRINT:PRINT"maison , mais je serais vous , je me ":PRINT"mettrais a "; +50020 PRINT"courrir car un nain rode":PRINT:PRINT"peut etre dans les parages" +50030 RETURN +51000 CLS:PAPER3:INK0:PRINT:PRINT:PRINT"ATTENTION ................. +51005 PRINT:PRINT"L'utilisation de ce programme est +51010 PRINT:PRINT"deconseillee aux personnes sensibles +51020 PRINT:PRINT"aux enfants en bas age,ainsi qu'a +51030 PRINT:PRINT"toute personne susceptible d'avoir +51040 PRINT: PRINT"des malaises cardiaques. +51050 PRINT: PRINT"Nous ne pourrions etre tenu responsa-" +51060 PRINT:PRINT"bles,des troubles physiques ou mentaux +51070 PRINT:PRINT"provoques par votre echec dans +51080 PRINT:PRINT"le Manoir du Dr GENIUS ............. +51099 WAIT 400 +51100 RETURN diff --git a/lemanoirdudocteurgenius/presentation.bas b/lemanoirdudocteurgenius/presentation.bas new file mode 100644 index 0000000..f0f9103 --- /dev/null +++ b/lemanoirdudocteurgenius/presentation.bas @@ -0,0 +1,143 @@ +2 REM LE MANOIR DU DOCTEUR GENIUS +3 REM COPYRIGHT LORICIELS 83 L.BENES +4 REM VERSION VG5000 FRED_72 2021 +5 REM VERSION APPLE II BRUTAL DELUXE 2023 +6 REM +10 REM CLEAR 300,-16385 +12 D$=CHR$(4) +20 PRINT "DISKLOAD CODE":REM CALL-16384 +25 REM POKE&"47FD",0 +26 HOME +30 VTAB 3: HTAB 10: PRINT "LORICIELS, FRED_72 &" +31 VTAB 4: HTAB 9: PRINT "BRUTAL DELUXE SOFTWARE" +32 VTAB 5: HTAB 5: PRINT "SONT FIERS DE VOUS PRESENTER :" +40 VTAB 21: PRINT "Programme original de L.Benes (1983)" +45 VTAB 22: PRINT "Adaptation VG5000 par Fred_72 (2021)" +46 VTAB 23: PRINT "et Apple II par Brutal Deluxe (2023)" +50 FOR I = 1 TO 6000 : NEXT I +55 REM SETEG 92,"3E7F7F7F7F7F7F7F3E00" +60 REM SETEG 32,"00000000000000000000" +65 REM & INIT0,0: & EG 3,0,0: PRINT +66 HOME +100 HTAB 2: PRINT "\ \\\ \ \ \\\ \ \ \\\ \ \\\" +105 HTAB 2: PRINT "\ \ \\ \\ \ \ \\ \ \ \ \ \ \" +110 HTAB 2: PRINT "\ \\\ \ \ \ \\\ \\\\ \ \ \ \\\" +115 HTAB 2: PRINT "\ \ \ \ \ \ \ \\ \ \ \ \\" +120 HTAB 2: PRINT "\\\ \\\ \ \ \ \ \ \ \\\ \ \ \" +130 HTAB 5: VTAB 7: PRINT "\\ \ \ \\": HTAB 5: PRINT "\ \ \ \ \ \ \": HTAB 5: PRINT "\ \ \ \" +135 HTAB 17: VTAB 9: PRINT "\ \ \\": HTAB 5: PRINT "\ \ \ \ \ \ \ \": HTAB 5: PRINT "\\\ \\\" +140 HTAB 17: VTAB 11: PRINT "\\\ \": HTAB 2: VTAB 15: PRINT "\\\\ \\\\ \\ \ \ \ \ \\\\" +145 HTAB 2: VTAB 16: PRINT "\ \ \ \\ \ \ \ \ \": HTAB 2: PRINT "\ \ \\\ \ \ \" +150 HTAB 27: VTAB 17: PRINT "\ \": HTAB 2: PRINT "\ \\\ \ \ \ \ \ \ \\\\" +155 HTAB 2: VTAB 19: PRINT "\ \\ \ \ \\\ \ \ \ \": HTAB 2: PRINT "\ \ \ \ \\" +160 HTAB 21: VTAB 20: PRINT "\ \ \ \": HTAB 2: PRINT "\\\\ \\\\ \ \\ \ \\\\ \\\\ \ \" +170 GOSUB 3000 +180 GOSUB 1000 +200 GOSUB 800 +230 PRINT: PRINT: INPUT"La liste des instructions (O/N) ";V$ +240 IF V$ = "O" OR V$ = "o" THEN 500 +245 IF V$ = "N" OR V$ = "n" THEN 300 +255 GOTO 230 + +300 VTAB 23: PRINT SPC(8)"Chargement en cours..." +304 REM ACTIVER FOUDRE (1 pour descativer) +305 POKE 255,0: REM & W,50 +310 PRINT D$"RUN JEU" + +500 REM & INIT 0,0:& TX3,0,0 +501 HOME +510 PRINT: PRINT "Vous voici arrive dans le manoir du" +511 PRINT "Dr Genius..." +515 PRINT: PRINT "Pour converser avec l'ordinateur, il" +516 PRINT "faut rentrer les ordres en 1 ou 2" +520 PRINT: PRINT "mots tels que :": PRINT: PRINT " NORD" +525 PRINT: PRINT " PRENDS PILULE" +530 PRINT: PRINT "ou pour commencer : ENTRE" +540 REM & W,400 +545 GOSUB 800 +550 PRINT: PRINTSPC(8)"Liste du vocabulaire" +555 PRINT: PRINT +560 PRINT " ACTIONNE ENTRE PAPIER" +565 PRINT " ALLUME ESCALIER PASSE" +570 PRINT " APPUIE EST (E) PETROLE" +575 PRINT " ATTENDS ETEINS PISTOLET" +580 PRINT " AVANCE FERME PLACARD" +585 PRINT " BLEU GRIMPE POIGNARDE" +590 PRINT " BRIQUET INVENTAIRE PORTE" +595 PRINT " CISEAU JETTE POSE" +600 PRINT " CLEF LAMPE POT" +605 PRINT " CODE LANCE PRENDS" +610 PRINT " COFFRE LIS RAMASSE" +615 PRINT " COMBINAISON LISTE REGARDE" +620 PRINT " COUTEAU LIT REMPLIS" +625 PRINT " DEPANNE LIVRE RENIFLE" +630 PRINT " DESCENDS MONSTRE RENTRE" +635 PRINT " EAU MONTE REPARE" +640 PRINT " ENFILE NORD (N) RETOURNE" +645 PRINT " ENFONCE OUEST (O) RIEN" +650 PRINT " ENLEVE OUVRE ROBINET" +660 GOSUB 800 +670 PRINT: PRINTSPC(8)"Liste du vocabulaire" +675 PRINT: PRINT +680 PRINT " ROUGE TELEPORTEUR TOURNE" +685 PRINT " SENS TITRE VERT" +690 PRINT " SUD (S) TORCHE VIDE" +700 GOSUB 800 +710 PRINT: PRINT " Un dernier conseil:" +715 REM & W,150 +720 PRINT "Il peut parfois y avoir une porte +725 PRINT "derriere vous." +730 REM & W,200 +735 PRINT: PRINT: PRINT: PRINT "Bonne chance..." +740 REM & W,200 +750 GOTO300 +800 WAIT -16384,128:POKE -16368,0 +830 RETURN + +1000 HOME: PRINT: PRINT: PRINT "ATTENTION ................." +1005 PRINT: PRINT "L'utilisation de ce programme est" +1010 PRINT: PRINT "deconseillee aux personnes sensibles" +1020 PRINT: PRINT "aux enfants en bas age, ainsi qu'a" +1030 PRINT: PRINT "toute personne susceptible d'avoir" +1040 PRINT: PRINT "des malaises cardiaques." +1050 PRINT: PRINT "Nous ne pourrions etre tenus responsa-" +1060 PRINT: PRINT "bles, des troubles physiques ou mentaux" +1070 PRINT: PRINT "provoques par votre echec dans" +1080 PRINT: PRINT "le Manoir du Dr GENIUS ............. " +1099 REM & W,400 +1100 RETURN + +3000 REM BADINERIE +3005 REM RESTORE 3030 +3010 FOR N=1 TO 97 +3015 READ A1,A2,A3 +3020 REM & M,1,A1,A2,10 +3021 REM & P,1,0,0,100 +3023 REM & W,A3 +3025 REM & P,0,0,0,0: +3026 NEXT N +3030 DATA 4,12,20,5,3,10,4,12,10,4,7,20 +3035 DATA 4,12,10,4,7,10,4,3,20,4,7,10 +3040 DATA 4,3,10,3,12,40,3,7,10,3,12,10 +3045 DATA 4,3,10,3,12,10,4,2,10,3,12,10 +3050 DATA 4,2,10,3,12,10,3,11,10,4,2,10 +3055 DATA 4,5,10,4,2,10,4,3,20,3,12,20 +3060 DATA 4,12,20,5,3,10,4,12,10,4,7,20 +3065 DATA 4,12,10,4,7,10,4,3,20,4,7,10 +3070 DATA 4,3,10,3,12,40,4,3,20,4,3,20 +3075 DATA 4,3,20,4,3,20,4,12,20,4,3,20 +3080 DATA 4,3,7,4,5,7,4,3,7 +3085 DATA 4,2,20,4,7,20,4,7,20,4,7,20 +3090 DATA 4,7,20,5,3,20,4,7,20,4,7,7 +3100 DATA 4,8,7,4,7,7,4,6,20,4,2,10 +3105 DATA 4,7,10,4,10,10,4,7,10,4,9,10 +3115 DATA 4,7,10,4,6,10,4,9,10,4,12,10 +3120 DATA 4,9,10,4,10,10,4,9,10,4,10,10 +3125 DATA 4,9,10,4,7,10,4,10,10,4,7,10 +3130 DATA 4,6,10,4,7,10,4,12,10,4,7,10 +3145 DATA 4,6,10,4,7,10,5,2,10,4,7,10 +3150 DATA 4,6,10,4,7,10,5,3,10,4,7,10 +3155 DATA 4,6,10,4,7,10,5,3,10,5,2,10 +3160 DATA 4,12,10,5,2,10,4,10,10,4,9,10 +3165 DATA 4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20 +3170 RETURN diff --git a/lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas b/lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas new file mode 100644 index 0000000..95bb1b3 --- /dev/null +++ b/lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas @@ -0,0 +1,721 @@ +20CLEAR300,-16385 +30DISKLOAD"CODE" +35CALL-16384:POKE&"47FD",0 +40GOSUB7600 +45INIT0,0:TX3,0,0:PRINT:PRINTSPC(10)"VEUILLEZ PATIENTER" +50GOSUB8000:REM CHARGEMENT VARIABLES +51GOSUB7500 +55MODEMN:INIT0,0:TX0,0,0 +57DIM P(12):P(11)=0:P(12)=0 +60SALLE=1 +70FORN=1TO10 +80P(N)=0:C(N)=0 +85NEXTN +90C(3)=14:C(7)=12:C(1)=80:C(9)=12 +100IFSALLE<>14ANDSALLE<>16ANDSALLE<>17ANDSALLE<>19 THENP(2)=0 +105IFP(2)=0 THEN 200 +106IFO(22)=SAANDP(7)=1 THEN200 +107IFO(05)=SAANDP(3)=1 THEN200 +110IFC(9)>1 THEN C(9)=C(9)-1 +130MODEMC:MODEMN +140CURSORX1:CURSORY18:PRINT"Il fait noir comme dans un four!" +145PRINT"Il faudrait peut être allumer." +150GOTO500 + +200REM DESCRIPTION SALLE +210MODEMN:MODEMC: REM cadre+zone+dessin +215DEST=SALLE +220GOSUB6900 +230MODEMD +300H=0:N=1 +310IFO(N)<>SALLE THEN400 +320IFH=1 THEN350 +330MODEML:PRINT"Il y a dans la salle:":MODEMW,10 +340H=1 +350MODEML:PRINT" ";O$(N); +360MODEMW,25 +400N=N+1 +410IFN<=O THEN310 +415MODEML:PRINT + +500REM ACCEPTATION COMMANDE +510T=1:Y$(1)="":Y$(2)="":N=0 +520GOTO1000 +530IFC(7)>1ANDP(7)=1 THENC(7)=C(7)-1 +540IFC(3)>1ANDP(3)=1 THENC(3)=C(3)-1 +545IFC(4)>1ANDP(4)=1 THENC(4)=C(4)-1 +547IFC(5)>1 THENC(5)=C(5)-1 +550X$="":INPUT"Que faites vous ";X$ +560MODEMN:PRINT">";X$ +570GOSUB6000 +580MODEML:IFMO(1)=0 THENPRINT"Je ne comprends pas...":MODEMW,50:GOTO500 + +* nouvelle version* +900REM CONTROLE Mvt +905 MODEMI,SALLE +910 IF PEEK(-4)=0 THEN 980 +920 SALLE=PEEK(-4):GOTO100 + +980T=0 +990A1=0 +1000REM CONTROLE +1010NL=0 +1100NL=NL+1 +1110IFT=0 THEN1150 +1120E$=C$(NL) +1130GOTO1400 +1150 MODEMA: NL=PEEK(-33) +1151 IFPEEK(-32)=0 THEN1159 +1152 AD=-32:E$="" +1153 IF PEEK(AD)=255 THEN 1400 +1154 E$=E$+CHR$(PEEK(AD)):AD=AD+1 +1155 GOTO1153 +1159PY=23:CO=12 +1160IFA1=1 THEN500 +1170MODEML:PRINT"Impossible "; +1180IFMO(1)<10 THEN PRINT"de prendre ce chemin"; + +1190PRINT"!":MODEMW,100:GOTO100 + +1400REM CONDITIONS +1410E=1 +1420IFMID$(E$,E,1)="." THEN1700 +1430LI=ASC(MID$(E$,E,1))-65 +1440N=VAL(MID$(E$,E+1,2)) +1450ON(LI+1)GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580 +1460IFOK=0 THEN1100 +1470E=E+3:GOTO1420 +1500IFN=SALLE THEN1590 +1505GOTO1585 +1510IFO(N)=-1ORO(N)=SALLE THEN1590 +1515GOTO1585 +1520IFO(N)<>SALLE ANDO(N)<>-1 THEN1590 +1525GOTO1585 +1530IFO(N)=-1 THEN1590 +1535GOTO1585 +1540IFP(N)=1 THEN1590 +1545GOTO1585 +1550IFP(N)=0 THEN1590 +1555GOTO1585 +1560IFC(N)=1 THEN1590 +1565GOTO1585 +1570IFINT(RND(1)*99+1)SALLE THEN1590 +1585OK=0:RETURN +1590OK=1:RETURN + +1700REM ACTIONS +1705E=E+1:A1=1 +1710IF MID$(E$,E,1)="." THEN1100 +1720LI=ASC(MID$(E$,E,1))-65 +1730IF MID$(E$,E+1,1)<>"." THENN=VAL(MID$(E$,E+1,2)) +1740BREAK=0 +1750ON(LI+1)GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300 +1760IFBREAK>0 THEN ON BREAK GOTO 100,300,500,530,20000 +1780E=E+3 +1790GOTO1710 +1800G=0:HH=0 +1810G=G+1 +1820IFO(G)=-1 THEN1840 +1830IFG-1 THEN1960 +1935REM +1940MODEML:PRINT"Vous l'avez déjà,vous êtes étourdis et" +1945MODEML:PRINT"dans cette maison ce n'est pas très" +1950MODEML:PRINT"conseillé...":GOTO1920 +1960O(N)=-1:S(1)=S(1)+1:RETURN +2000IFO(N)=-1 THEN 2030 +2010MODEML:PRINT"Comment voulez vous poser ce que vous" +2015MODEML:PRINT"n'avez pas..." +2020GOTO1920 +2030O(N)=SALLE:S(1)=S(1)-1:RETURN + +2100REM +2105DEST=N+1:GOSUB 3900 +2110RETURN +2200P(N)=1:RETURN +2300P(N)=0:RETURN +** +2400C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN +** +2500IFO(N)=-1 THENS(1)=S(1)-1 +2510O(N)=0:RETURN +2600SALLE=N:RETURN +2700MODEML:PRINT"D'accord..." +2710MODEMW,20:BREAK=2:RETURN +2800BREAK=3 +2810RETURN +2900BREAK=4:RETURN +3000BREAK=1:RETURN +3100BREAK=5:RETURN +3200O(N)=SALLE:RETURN +3300X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN + +3900IFDEST<11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090 +3910DEST=DEST-10 +3915IFDEST<11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190 +3920DEST=DEST-10 +3925IFDEST<11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290 +3930DEST=DEST-10 +3935IFDEST<11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390 +3940DEST=DEST-10 +3945IFDEST<11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490 +3950DEST=DEST-10 +3955IFDEST<11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590 +3960DEST=DEST-10 +3965IFDEST<11 THEN ON DEST GOTO 4600,4610,4620,4630,4640 + +4000MODEMC:FORN=1TO20:MODEME:MODEMW,4:NEXTN +4001MODEMN:PRINT"Vous avez gardé la lampe allumée trop" +4002MODEML:PRINT"longtemps, elle a explosé!" +4005MODEMW,200:RETURN +4010MODEMC +4011MODEMN:PRINT"Vous avez oublié de fermer le robinet" +4012MODEML:PRINT"vous mourez sous des tonnes d'eau!" +4015MODEMW,200:RETURN +4020MODEMC +4022MODEMN:PRINT"La porte vient de se refermer derrière" +4023MODEML:PRINT"vous. Vous êtes prisonnier..." +4025MODEMW,200:RETURN +4030MODEMC +4031MODEMN:PRINT"Vous avez trébuché dans l'escalier,vous" +4032MODEML:PRINT"vous empallez sur le couteau!" +4035MODEMW,200:RETURN +4040MODEMC +4041MODEMN:PRINT"Vous renversez l'eau dans l'escalier," +4042MODEML:PRINT"ce qui provoque une décharge au niveau" +4043MODEML:PRINT"de la prise électrique." +4045MODEMW,200:RETURN +4050MODEMC +4051MODEMN:PRINT"Vous êtes sauf grace à la combinaison" +4052MODEML:PRINT"que vous avez enfilé..!" +4055MODEMW,200:RETURN +4060MODEML:PRINT"Vous mourez électrocuté..." +4065MODEMW,200:RETURN +4070MODEMC:FORN=1TO20:MODEMM,2,2,2,10:MODEMP,3,7,4,80:MODEMW,1:MODEME:MODEMW,6:NEXTN +4071MODEMN:PRINT"La pièce était pleine de gaz explosif," +4072MODEML:PRINT"vous auriez dû éteindre..." +4073MODEMW,200:PRINT"On ramassera vos morceaux un autre" +4074MODEML:PRINT"jour..!" +4075MODEMW,200:RETURN +4080MODEMC +4081MODEMN:PRINT"Vous mourez empallé sur des lances" +4082MODEML:PRINT"sorties du mur...!" +4085MODEMW,200:RETURN +4090MODEML:PRINT"La porte ne s'ouvre pas de cette pièce":MODEMW,200:RETURN +4100MODEMC +4101MODEML:PRINT"La lampe et le briquet refusent de" +4102MODEML:PRINT"fonctionner dans cette pièce!" +4109MODEMW,200:RETURN +4110MODEMC +4111MODEML:PRINT"Vous tombez dans une trappe,vous vous" +4112MODEML:PRINT"disloquez en arrivant au sol.." +4115MODEMW,200:RETURN +4120MODEML:PRINT"Vous avez raison de passer,car ce" +4122MODEML:PRINT"monstre n'était qu'une projection" +4124MODEML:PRINT"en 3 dimensions sur un écran de fumée" +4125MODEMW,250:RETURN +4130MODEML:PRINT"Vous avez raison,la curiosité est un" +4132MODEML:PRINT"vilain défaut!!!" +4134MODEMW,250 +4135RUN20040 +4140MODEML:PRINT"Vous avez raison d'attendre,mais cela" +4141MODEML:PRINT"ne pourra pas durer éternellement.." +4142MODEMW,200:RETURN +4150MODEML:PRINT"Vous avez de la chance car ce coffre" +4151MODEML:PRINT"était ouvert.":MODEMW,100 +4152MODEML:PRINT"Un message à l'intérieur dit:" +4153MODEML:PRINTCHR$(34)+"Ne respectez pas les couleurs du code" +4154MODEML:PRINT"de la route...?"+CHR$(34):MODEMW,200 +4156MODEML:PRINT"Tiens le coffre se referme!":MODEMW,150:RETURN +4160MODEML:PRINT"Maintenant,vous avez une lampe pleine" +4162MODEML:PRINT"de pétrole." +4165MODEMW,200:RETURN +4170MODEML:PRINT"Vous n'avez rien pour transporter le" +4171MODEML:PRINT"pétrole.":MODEMW,200:RETURN +4180FORN=1TO10:MODEME:MODEMW,6:NEXTN +4181MODEMC:MODEMN:PRINT"Le briquet que vous aviez laissé" +4182MODEML:PRINT"allumé vient d'exploser!" +4185MODEML:MODEMW,200:PRINT"Ca tue l'étourderie.....":MODEMW,150:RETURN +4190MODEMC:MODEMN:PRINT"A force de marcher en long et en large" +4191MODEML:PRINT"dans cette maison, vous sombrez dans" +4194MODEML:PRINT"un coma des plus mortel... +4195MODEMW,300:RETURN +4200PRINT"L'eau coule...":RETURN +4210MODEMC:MODEMN:PRINT"Vous avez les pieds trempés,et cela" +4211MODEML:PRINT"vous rend très malade..." +4215MODEMW,100:MODEML:PRINT"Vous mourez d'une triple pneumonie...!":MODEMW,200:RETURN +4220MODEML:PRINT"Le titre est:" +4225MODEML:PRINTCHR$(34)+"La mort à la 1ère page."+CHR$(34):MODEMW,200:RETURN +4230MODEMC:FOR N=1 TO 20:MODEME:NEXTN +4233MODEMN:PRINT"Le livre a explosé lorsque vous l'avez" +4235MODEML:PRINT"ouvert...":MODEMW,200:RETURN +4240MODEML:PRINT"Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34) +4242MODEMW,200:RETURN +4250MODEML:PRINT"La clef vous permettra de trouver le" +4252MODEML:PRINT"code de la porte d'entrée." +4255MODEMW,200:RETURN +4260MODEML:PRINT"Il y a un clavier numérique permettant" +4261MODEML:PRINT"d'entrer un code à côté de la porte.":MODEMW,200:RETURN +4270MODEML:PRINT"Pour faire quoi..?":MODEMW,200:RETURN +4280MODEML:PRINT"Il y a une odeur de gaz.":MODEMW,200:RETURN +4290MODEML:PRINT"Apparemment,il n'y a aucune odeur.":MODEMW,200:RETURN +4300MODEML:PRINT"C'est déja fait,espèce de rigolo!":MODEMW,200:RETURN +4310MODEML:PRINT"Il faudrait peut être du feu!":MODEMW,200:RETURN +4320MODEML:PRINT"La lampe ne contient pas de pétrole!":MODEMW,200:RETURN +4330MODEML:PRINT"Vous ne l'avez pas!":MODEMW,200:RETURN +4340MODEML:PRINT"Le briquet est encore allumé et il" +4342MODEML:PRINT"éclaire la pièce.":MODEMW,200:RETURN +4350FORN=1TO15:MODEME:MODEMW,4:NEXTN +4355MODEML:PRINT"La torche était piégée,elle vous" +4356MODEML:PRINT"a explosé dans les mains.." +4357MODEMW,200:RETURN +4360MODEML:PRINT"La lampe est encore allumée,et elle" +4362MODEML:PRINT"vous éclaire.":MODEMW,200:RETURN +4370MODEML:PRINT"Un nain vient de vous lancer un" +4371MODEML:PRINT"poignard en plein coeur.." +4375MODEMW,200:RETURN +4380MODEML:PRINT"Un nain vient de se précipiter sur" +4385MODEML:PRINT"vous, il s'empalle sur votre ciseau.":MODEMW,200:RETURN +4390MODEML:PRINT"Un nain vient de se précipiter sur" +4395MODEML:PRINT"vous, il s'empalle sur votre couteau.":MODEMW,200:RETURN +4400MODEML:PRINT"Vous venez de renverser le pot.":MODEMW,150:RETURN +4410IF PEEK(-1)=1 THEN BREAK=3:RETURN +4411MODEMC:MODEMS,4,4,0:MODEMP,0,1,1,5000 +4412MODEMN:PRINT"La foudre vient de tomber sur la maison":MODEMW,200 +4413MODEML:PRINT"La maison n'existe plus!":MODEMW,100 +4414MODEML:PRINT"Vous non plus!":MODEMW,100:MODEMP,0,0,0,0:RETURN +4420MODEMC:MODEMN:PRINT"A force de marcher dans le noir,vous" +4422MODEML:PRINT"avez trébuché.":MODEMW,100 +4425MODEML:PRINT"Vous mourez d'une fracture du crâne...":MODEMW,200:RETURN +4430MODEML:PRINT"Vous ne pouvez pas travailler dans le" +4433MODEML:PRINT"noir...":MODEMW,200:RETURN +4440MODEML:PRINT"La lumière du briquet ne suffit pas" +4442MODEML:PRINT"pour travailler...":MODEMW,200:RETURN +4450MODEML:PRINT"Impossible !":MODEMW,100:RETURN +4460MODEML:PRINT"Vous n'avez aucun outil...":MODEMW,200:RETURN +4470MODEML:PRINT"Le téléporteur est en panne,donc les" +4472MODEML:PRINT"boutons ne fonctionnent pas." +4475MODEMW,400:RETURN +4480FORN=1TO25:MODEME:MODEMW,5:NEXTN +4484MODEMC:MODEMN:PRINT"Le téléporteur vient d'exploser," +4485MODEML:PRINT"vous êtes décomposé..!":MODEMW,200:RETURN +4490MODEMN:PRINT"Le téléporteur se met en marche" +4491MODEML:PRINT"vous disparaissez...":MODEMW,50 +4492MODEMM,2,1,5,0:MODEMP,2,1,3,1000 +4493MODEMF +4494MODEMP,0,0,0,0 +4495FORN=500TO30STEP-5 +4497MODEMS,2,N,12:MODEMP,2,0,0,100 +4498NEXTN +4499MODEMP,0,0,0,0:RETURN +4500MODEMC:MODEML:PRINT"Vous prenez du 30000 Volts dans les" +4502MODEML:PRINT"doigts!":MODEMW,200:RETURN +4510MODEML:PRINT"Le placard est fermé à clef!":MODEMW,200:RETURN +4520MODEMC:MODEMN:PRINT"L'horrible monstre sorti du placard" +4522MODEML:PRINT"vient de vous dévorer!" +4525MODEMW,200:RETURN +4530MODEML:PRINT"Il ne fallait pas fuir!":MODEMW,200:RETURN +4540MODEMC:MODEML:PRINT"Vous avez raison d'utiliser le ciseau," +4542MODEML:PRINT"le monstre est mort!" +4545MODEMW,200:RETURN +4550MODEMD:MODEMN:PRINT"A l'intérieur du placard,le No "PL +4552MODEML:PRINT"est inscrit":MODEMW,200 +4555MODEML:PRINT"Le placard se referme.":MODEMW,100:RETURN +4560MODEMC:FORN=1TO30:MODEME:MODEMW,5:NEXTN +4562MODEMN:PRINT"le pistolet a explosé!":MODEMW,200 +4565RETURN + +4570IF SALLE=2 THEN RETURN +4571MODEML:PRINT"Impossible!":BREAK=3:RETURN +4575MODEMC:FORN=1TO25:MODEME:MODEMW,7:NEXTN +4576MODEMN:PRINT"le clavier numérique a explosé!":MODEMW,200:BREAK=5:RETURN +4580MODEMN:PRINT"Le clavier numérique prend feu.":MODEMW,200 +4581MODEML:IF O(24)<>-1 THEN 4586 +4582MODEML:PRINT"Heureusement,vous avez un pot plein" +4584MODEML:PRINT"d'eau. Ce qui vous permet d'éteindre" +4585MODEML:PRINT"ce feu.":MODEMW,300:RETURN +4586MODEML:PRINT"Malheureusement vous n'avez pas d'eau" +4587MODEML:PRINT"pour l'éteindre.":MODEMW,200 +4588GOTO4575 + +4590MODEMN:INPUT"No DE CODE ";ZC +4595IFZC<>PL THEN4575 +4600MODEMW,100:MODEML:PRINT"Le code est exact...":MODEML:PRINT"La porte s'ouvre..." +4603MODEMW,150 +4605GOTO11000 +4610MODEML:PRINT"A l'intérieur du placard,il y a un mot" +4611MODEML:PRINT"qui parle d'un téléporteur.":MODEMW,200 +4615MODEML:PRINT"Tiens le placard se ferme tout seul...":MODEMW,100:RETURN +4620MODEML:PRINT"Avant de la poser par terre,il faudrait" +4621MODEML:PRINT"peut être l'enlever." +4625MODEMW,200:RETURN +4630MODEMC:MODEMN:PRINT"Devant vous, il y a un horrible" +4631MODEML:PRINT"monstre qui est sorti du placard." +4635MODEMW,200:RETURN +4640MODEML:PRINT"Le placard était piégé,vous n'auriez" +4641MODEML:PRINT"pas dû l'ouvrir!" +4645FORN=1TO30:MODEME:MODEMW,7:NEXTN +4647MODEMW,200:RETURN + +6000REM ANALYSE DU MOT +6010N=0:GN=0 +6020N=N+1:IFMID$(X$,N,1)<>" " THEN6040 +6030GOTO6020 +6040GN=GN+1:XX$=MID$(X$,N+GN,1):IFXX$=" "ORXX$=""ORGN=20 THEN 6060 +6050GOTO6040 +6060IFGN>4 THENGN=4 +6070X$(1)=MID$(X$,N,GN) +6080N=N+1:XX$=MID$(X$,N,1):IFXX$=" "ORXX$="" THEN6100 +6090GOTO6080 +6100N=N+1:IFMID$(X$,N,1)<>" " THEN6115 +6110GOTO6100 +6115GN=0 +6120GN=GN+1:XX$=MID$(X$,N+GN,1):IFXX$=" "ORXX$=""ORGN=20 THEN 6140 +6130GOTO6120 +6140IFGN>4 THEN GN=4 +6150X$(2)=MID$(X$,N,GN) +6160MODEMU,X$(1):MODEMV,X$(2) +6170MO(1)=PEEK(-3) +6180MO(2)=PEEK(-2) +6190RETURN + +6900REM Chargement image salle +6902MODEMC:MODEMN +6905IF DEST<11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090 +6910DEST=DEST-10 +6915IF DEST<11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190 +6920DEST=DEST-10 +6925ON DEST GOTO 7200,7210,7220,7230,7240 + +7000DISKLOAD"IMG_01" +7005PRINT"Vous êtes devant le manoir du défunt" +7006PRINTSPC(14)"Dr GENIUS" +7009RETURN +7010DISKLOAD"IMG_02" +7015PRINT"Vous êtes dans le hall d'entrée." +7019RETURN +7020DISKLOAD"IMG_03" +7025PRINT"Vous êtes en bas de l'escalier menant" +7026PRINT"au 2ème étage." +7029RETURN +7030DISKLOAD"IMG_04" +7035PRINT"Vous êtes dans la salle à manger." +7039RETURN +7040DISKLOAD"IMG_05" +7045PRINT"Vous êtes dans une bibliothèque sans" +7046PRINT"livre...!" +7049RETURN +7050DISKLOAD"IMG_06" +7055PRINT"Vous êtes dans une buanderie." +7059RETURN +7060DISKLOAD"IMG_07" +7065PRINT"Vous êtes dans le salon." +7069RETURN +7070DISKLOAD"IMG_08" +7075PRINT"Vous êtes dans une chambre." +7079RETURN +7080DISKLOAD"IMG_09" +7085PRINT"Vous êtes dans un corridor." +7089RETURN +7090DISKLOAD"IMG_10" +7095PRINT"Vous êtes dans une salle d'attente." +7099RETURN +7100DISKLOAD"IMG_11" +7105PRINT"Vous êtes dans le vestibule." +7109RETURN +7110DISKLOAD"IMG_12" +7115PRINT"Vous êtes dans la chambre d'amis." +7119RETURN +7120DISKLOAD"IMG_13" +7125PRINT"Vous êtes dans une chambre." +7129RETURN +7130STOP +7140DISKLOAD"IMG_14" +7145PRINT"Vous êtes dans une petite salle." +7149RETURN +7150DISKLOAD"IMG_15" +7155PRINT"Vous êtes dans le laboratoire du +7156PRINT"Dr GENIUS." +7159RETURN +7160DISKLOAD"IMG_16" +7165PRINT"Vous êtes dans une petite pièce vide." +7169RETURN +7170DISKLOAD"IMG_17" +7175PRINT"Vous ne savez pas où vous êtes." +7179RETURN +7180DISKLOAD"IMG_18" +7185PRINT"Vous êtes en haut de l'escalier." +7189RETURN +7190DISKLOAD"IMG_19" +7195PRINT"Vous êtes dans la salle bain." +7199RETURN +7200DISKLOAD"IMG_20" +7205PRINT"Vous êtes dans le living room." +7209RETURN +7210DISKLOAD"IMG_21" +7215PRINT"Vous êtes dans une pièce enfumée...!" +7219RETURN +7220DISKLOAD"IMG_22" +7225PRINT"Vous êtes dans une grande pièce." +7229RETURN +7230DISKLOAD"IMG_23" +7235PRINT"Vous êtes dans une pièce de rangement." +7239RETURN +7240DISKLOAD"IMG_24" +7245PRINT"Vous êtes dans le dressing." +7249RETURN + +7500TX7,0,0:CURSORY23:PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE" +7510N=RND(1) +7511IFKEY(0)=0 THEN7510 +7515RETURN + +7600REM CONFIG JEU +7602INIT0,0:TX3,0,0 +7605POKE-34,0:POKE-1,0 +7610INPUT "Carte SON (O/N)";X$ +7620IF X$="O" THENPOKE-34,1:GOTO7630 +7625IF X$<>"N"THEN7610 +7630INPUT "Foudre (O/N)";X$ +7640IF X$="O" THENPOKE-1,1:GOTO7650 +7645IF X$<>"N"THEN7630 +7650RETURN + + +8000REM CHARGEMENT VARIABLES +8001RESTORE +8010V=70 +8130O=25:DIMO(25) +8140FORN=1TO25 +8150READO(N) +8170NEXTN +8180DATA 06,05,05,08,08,00,00,11,11 +8190DATA 13,20,18,16,16,16,16,00,21 +8200DATA 00,22,25,12,00,25,00 +8205DIMO$(25) +8210FORN=1TO25 +8220READO$(N) +8240NEXTN +8250DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU +8270DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST +8310DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU +8320M=25:DIMM$(25) +8330FORN=1TO25 +8340READM$(N) +8360NEXTN +8370DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380DATA 04080109020500,030700,04130207031000 +8390DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400DATA 00,00,0122032100,040500,0125022200,012100 +8410DATA 0124042200,022300,022100 +8430A=128:DIMA$(128) +8440FORN=1TO128 +8450READA$(N) +8470NEXTN +8480DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485DATA 0500A03E08D24.D04D06N. +8490DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505DATA 0100A09E07B22.D07N. +8510DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525DATA 0200A17.F01I15M. +8530DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531DATA 0400A21E03.I19M. +8535DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555DATA 1143E09.D62K. +8556DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. + +8566DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597DATA 1642E06.E02F07F06P22M. +8600DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. + +8615DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J. +8630DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650DATA 1233A25.D64N. +8700PL=INT(RND(1)*9000+1000) +8800C=14:DIMC$(14) +8810FORN=1TO14 +8820READC$(N) +8840NEXTN +8850DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900RETURN + +9000FORIJ=1TO100:NEXTIJ +9010RETURN + +11000REM SUCCES +11020DISKLOAD"IMG_01" +11030MODEMN:MODEMC:MODEMD +11040PRINT"Vous voila en dehors de la maison..." +11050MODEMW,250 +11055MODEMN +11060PRINT" Cela est exceptionnel,vous êtes le" +11065PRINT"premier à sortir vivant de cette" +11070PRINT"maison. Mais à votre place, je me" +11075PRINT"mettrais à courrir car un nain rode" +11080PRINT"peut être dans les parages..." +11085 GOSUB 11100 +11090GOTO 20040 + +11100REM TEA FOR TWO +11102RESTORE11125 +11105FORN=1TO110 +11110READ A1,A2,A3 +11115MODEMM,1,A1,A2,10:MODEMP,1,0,0,100:MODEMW,A3 +11120MODEMP,0,0,0,0 +11122NEXTN +11123RETURN +11125DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11130DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11135DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11140DATA4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +11145DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +11150DATA4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +11155DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +11160DATA4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11165DATA4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11170DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11175DATA4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +11180DATA5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +11185DATA4,6,45,4,3,15,4,5,45,4,3,15 +11190DATA4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 + +20000REM TOMBE +20005DISKLOAD"IMGTMB" +20010MODEMC:MODEMD:MODEMN +20020PRINT"Vous êtes mort !":MODEMW,100 +20030IF PEEK(-34)=1 THENGOSUB21000 +20040MODEML:PRINT:MODEML:X$="":INPUT"Voulez-vous rejouer ";X$ +20050IFX$="O"ORX$="o" THENRUN45 +20060IFX$="N"ORX$="n" THEN20080 +20070GOTO20040 +20080MODEMN:PRINT" AU REVOIR" +20090END + +21000REM SARABANDE +21005RESTORE21040 +21015FORN=1TO75 +21020READA1,A2,A3,A4,A5 +21025READA6,A7,A8,A9,A0 +21030MODEMM,1,A1,A2,A3:MODEMM,2,A4,A5,A6:MODEMM,3,A7,A8,A9:MODEMP,7,0,0,100:MODEMW,A0 +21031IFKEY(0)<>0 THEN MODEMP,0,0,0,0:RETURN +21032IFN>70 THENNEXTN:MODEMP,0,0,0,0:RETURN +21035MODEMP,0,0,0,0:NEXTN +21040DATA 3,6,8,3,3,8,2,10,8,80 +21045DATA 3,6,8,3,3,8,2,10,8,80 +21050DATA 0,1,1,0,1,1,0,1,1,40 +21055DATA 3,8,8,3,5,8,0,1,1,40 +21060DATA 3,5,8,3,2,8,2,10,8,80 +21065DATA 3,5,8,3,2,8,2,10,8,40 +21070DATA 1,11,8,0,1,1,0,1,1,40 +21075DATA 1,10,8,0,1,1,0,1,1,40 +21080DATA 1,8,8,0,1,1,0,1,1,40 +21085DATA 3,10,8,3,6,9,3,1,8,80 +21090DATA 3,10,8,3,6,9,3,1,8,80 +21095DATA 0,1,1,0,1,1,0,1,1,40 +21100DATA 3,11,8,3,8,8,0,1,1,40 +21105DATA 3,8,8,3,5,8,3,1,8,80 +21110DATA 3,8,8,3,5,8,3,1,8,40 +21115DATA 2,1,8,0,1,1,0,1,1,40 +21120DATA 1,11,8,0,1,1,0,1,1,40 +21125DATA 1,10,8,3,7,8,3,10,8,40 +21130DATA 3,11,8,3,8,8,3,3,8,80 +21135DATA 3,11,8,3,8,8,3,3,8,80 +21140DATA 1,8,8,0,1,1,0,1,1,40 +21145DATA 1,8,8,3,10,8,4,1,8,40 +21150DATA 3,10,8,3,6,8,3,3,8,80 +21155DATA 3,10,8,3,6,8,3,3,8,80 +21160DATA 0,1,1,0,1,1,0,1,1,40 +21165DATA 3,10,8,2,1,8,0,1,1,40 +21170DATA 4,3,8,3,10,8,1,11,8,80 +21175DATA 4,3,8,3,8,8,2,11,9,80 +21180DATA 0,1,1,0,1,1,0,1,1,40 +21185DATA 4,5,8,0,1,1,0,1,1,40 +21190DATA 4,2,8,3,10,8,3,5,8,80 +21195DATA 4,2,8,3,10,8,3,5,8,40 +21200DATA 2,8,8,0,1,1,0,1,1,40 +21202DATA 2,6,8,0,1,1,0,1,1,40 +21203DATA 2,5,8,0,1,1,0,1,1,40 +21205DATA 3,6,8,3,3,8,2,10,8,80 +21210DATA 3,6,8,3,3,8,2,10,8,80 +21215DATA 0,1,1,0,1,1,0,1,1,40 +21220DATA 3,8,8,3,5,8,0,1,1,40 +21225DATA 3,5,8,3,2,8,2,10,8,80 +21230DATA 3,5,8,3,2,8,2,10,8,40 +21235DATA 1,11,8,0,1,1,0,1,1,40 +21240DATA 1,10,8,0,1,1,0,1,1,40 +21245DATA 1,8,8,0,1,1,0,1,1,40 +21250DATA 3,10,8,3,6,9,3,1,8,80 +21255DATA 3,10,8,3,6,9,3,1,8,80 +21260DATA 0,1,1,0,1,1,0,1,1,40 +21265DATA 3,11,8,3,8,8,0,1,1,40 +21270DATA 3,8,8,3,5,8,3,1,8,80 +21275DATA 3,8,8,3,5,8,3,1,8,40 +21280DATA 2,1,8,0,1,1,0,1,1,40 +21285DATA 1,11,8,0,1,1,0,1,1,40 +21290DATA 1,10,8,3,7,8,3,10,8,40 +21295DATA 3,11,8,3,8,8,3,3,8,80 +21300DATA 2,8,8,0,1,1,0,1,1,40 +21305DATA 3,11,8,3,8,8,3,1,8,40 +21310DATA 2,8,8,0,1,1,0,1,1,40 +21315DATA 2,1,8,0,1,1,0,1,1,40 +21320DATA 4,1,8,2,5,8,0,1,1,40 +21325DATA 3,10,8,3,6,8,3,1,8,80 +21330DATA 3,10,8,2,3,8,0,1,1,40 +21335DATA 4,3,8,3,6,8,2,11,8,40 +21340DATA 4,2,8,0,1,1,0,1,1,40 +21345DATA 4,3,8,3,11,8,2,8,8,40 +21350DATA 4,5,8,0,1,1,0,1,1,40 +21355DATA 4,6,8,3,10,8,2,10,8,80 +21360DATA 4,5,8,3,8,8,1,10,8,40 +21365DATA 0,1,1,3,8,8,1,10,8,40 +21370DATA 4,3,8,0,1,1,0,1,1,40 +21375DATA 4,3,8,3,6,8,2,3,8,80 +21380DATA 3,3,8,3,10,8,3,6,8,40 +21385DATA 3,3,7,3,10,7,3,6,7,40 +21390DATA 3,3,6,3,10,6,3,6,6,40 +21395DATA 3,3,5,3,10,5,3,6,5,40 +21400DATA 3,3,4,3,10,4,3,6,5,40 + + diff --git a/lemanoirdudocteurgenius/vg5000/vg5000_presentation.bas b/lemanoirdudocteurgenius/vg5000/vg5000_presentation.bas new file mode 100644 index 0000000..c1a8ffc --- /dev/null +++ b/lemanoirdudocteurgenius/vg5000/vg5000_presentation.bas @@ -0,0 +1,141 @@ +3 REM LE MANOIR DU DOCTEUR GENIUS +2 REM COPYRIGHT LORICIELS 83 L.BENES +4 REM VERSION VG5000 FRED_72 2021 +5 REM +10 CLEAR 300,-16385 +20 DISK LOAD"CODE":CALL-16384 +25 POKE&"47FD",0 +30 INIT 0,0:CURSORY5:CURSORX 4: TX 7,1,0: PRINT " LORICIELS et FRED_72 SONT FIERS" +31 CURSORY6:CURSORX4:PRINT " LORICIELS et FRED_72 SONT FIERS" +35 CURSORY7:CURSORX10:PRINT "DE VOUS PRESENTER :" +36 CURSORY8:CURSORX10:PRINT "DE VOUS PRESENTER :" +40 TX2,0,0:CURSORY22:PRINT "Programme original de L.Benes (1983)" +45 CURSORY23:PRINT "Adaptation VG5000 par Fred_72 (2021)" +50 FORI=1TO6000:NEXTI +55 SETEG 92,"3E7F7F7F7F7F7F7F3E00" +60 SETEG 32,"00000000000000000000" +65 INIT0,0:EG 3,0,0:PRINT +100 CURSORX2:PRINT"\ \\\ \ \ \\\ \ \ \\\ \ \\\" +105 CURSORX2:PRINT"\ \ \\ \\ \ \ \\ \ \ \ \ \ \" +110 CURSORX2:PRINT"\ \\\ \ \ \ \\\ \\\\ \ \ \ \\\" +115 CURSORX2:PRINT"\ \ \ \ \ \ \ \\ \ \ \ \\" +120 CURSORX2:PRINT"\\\ \\\ \ \ \ \ \ \ \\\ \ \ \" +130 CURSORX5:CURSORY7:PRINT"\\ \ \ \\":CURSORX5:PRINT"\ \ \ \ \ \ \":CURSORX5:PRINT"\ \ \ \" +135 CURSORX17:CURSORY9:PRINT"\ \ \\":CURSORX5:PRINT"\ \ \ \ \ \ \ \":CURSORX5:PRINT"\\\ \\\" +140 CURSORX17:CURSORY11:PRINT"\\\ \":CURSORX2:CURSORY15:PRINT"\\\\ \\\\ \\ \ \ \ \ \\\\" +145 CURSORX2:CURSORY16:PRINT"\ \ \ \\ \ \ \ \ \":CURSORX2:PRINT"\ \ \\\ \ \ \" +150 CURSORX27:CURSORY17:PRINT"\ \":CURSORX2:PRINT"\ \\\ \ \ \ \ \ \ \\\\" +155 CURSORX2:CURSORY19:PRINT"\ \\ \ \ \\\ \ \ \ \":CURSORX2:PRINT"\ \ \ \ \\" +160 CURSORX21:CURSORY20:PRINT"\ \ \ \":CURSORX2:PRINT"\\\\ \\\\ \ \\ \ \\\\ \\\\ \ \" +170 GOSUB3000 +180 GOSUB1000 +200 GOSUB 800 +230 INIT 0,0: TX2,0,0:PRINT:PRINT:INPUT"La liste des instructions (O/N) ";V$ +240 IF V$="O"ORV$="o" THEN 500 +245 IF V$="N"ORV$="n" THEN 300 +255 GOTO 230 + +300 INIT0,0:TX3,0,0:CURSORY23:PRINTSPC(8)"Chargement en cours..." +304 REM ACTIVER FOUDRE (1 pour déscativer) +305 POKE-1,0: MODEMW,50 +310 DISKRUN"JEU" + +500 INIT 0,0:TX3,0,0 +510PRINT:PRINT"Vous voici arrivé dans le manoir du" +511PRINT"Dr Genius..." +515PRINT:PRINT"Pour converser avec l'ordinateur,il" +516PRINT"faut rentrer les ordres en 1 ou 2" +520PRINT:PRINT"mots tels que:":PRINT:PRINT" NORD" +525PRINT:PRINT" PRENDS PILLULE" +530PRINT:PRINT"ou pour commencer: ENTRE" +540 MODEMW,400 +545 GOSUB 800 +550 INIT0,0:TX7,0,0:PRINTSPC(8)"Liste du vocabulaire" +555 TX3,0,0:PRINT:PRINT +560 PRINT " ACTIONNE ENTRE PAPIER" +565 PRINT " ALLUME ESCALIER PASSE" +570 PRINT " APPUIE EST (E) PETROLE" +575 PRINT " ATTENDS ETEINS PISTOLET" +580 PRINT " AVANCE FERME PLACARD" +585 PRINT " BLEU GRIMPE POIGNARDE" +590 PRINT " BRIQUET INVENTAIRE PORTE" +595 PRINT " CISEAU JETTE POSE" +600 PRINT " CLEF LAMPE POT" +605 PRINT " CODE LANCE PRENDS" +610 PRINT " COFFRE LIS RAMASSE" +615 PRINT " COMBINAISON LISTE REGARDE" +620 PRINT " COUTEAU LIT REMPLIS" +625 PRINT " DEPANNE LIVRE RENIFLE" +630 PRINT " DESCENDS MONSTRE RENTRE" +635 PRINT " EAU MONTE REPARE" +640 PRINT " ENFILE NORD (N) RETOURNE" +645 PRINT " ENFONCE OUEST (O) RIEN" +650 PRINT " ENLEVE OUVRE ROBINET" +660 GOSUB 800 +670 INIT0,0:TX7,0,0:PRINTSPC(8)"Liste du vocabulaire" +675 TX3,0,0:PRINT:PRINT +680 PRINT " ROUGE TELEPORTEUR TOURNE" +685 PRINT " SENS TITRE VERT" +690 PRINT " SUD (S) TORCHE VIDE" +700 GOSUB 800 +710 INIT0,0:TX3,0,0:PRINT:PRINT" Un dernier conseil:" +715 MODEMW,150 +720 PRINT"Il peut parfois y avoir une porte +725 PRINT"derrière vous." +730 MODEMW,200 +735 PRINT:PRINT:PRINT:PRINT"Bonne chance..." +740 MODEMW,200 +750 GOTO300 +800 CURSORX8:CURSORY25:PRINT "Appuyez sur une touche"; +810 A=KEY(0):X=RND(1) +820 IF A=0 THEN810 +830 RETURN + +1000 INIT 3,3:TX0,0,0:PRINT:PRINT:PRINT"ATTENTION ................." +1005 PRINT:PRINT"L'utilisation de ce programme est" +1010 PRINT:PRINT"déconseillée aux personnes sensibles" +1020 PRINT:PRINT"aux enfants en bas âge,ainsi qu'à" +1030 PRINT:PRINT"toute personne susceptible d'avoir" +1040 PRINT:PRINT"des malaises cardiaques." +1050 PRINT:PRINT"Nous ne pourrions être tenu responsa-" +1060 PRINT:PRINT"bles,des troubles physiques ou mentaux" +1070 PRINT:PRINT"provoqués par votre échec dans" +1080 PRINT:PRINT"le Manoir du Dr GENIUS ............. " +1099 MODEMW,400 +1100 RETURN + +3000 REM BADINERIE +3005 RESTORE 3030 +3010 FOR N=1 TO 97 +3015 READ A1,A2,A3 +3020 MODEMM,1,A1,A2,10 +3021 MODEMP,1,0,0,100 +3023 MODEMW,A3 +3025 MODEMP,0,0,0,0:NEXTN +3030 DATA4,12,20,5,3,10,4,12,10,4,7,20 +3035 DATA4,12,10,4,7,10,4,3,20,4,7,10 +3040 DATA4,3,10,3,12,40,3,7,10,3,12,10 +3045 DATA4,3,10,3,12,10,4,2,10,3,12,10 +3050 DATA4,2,10,3,12,10,3,11,10,4,2,10 +3055 DATA4,5,10,4,2,10,4,3,20,3,12,20 +3060 DATA4,12,20,5,3,10,4,12,10,4,7,20 +3065 DATA4,12,10,4,7,10,4,3,20,4,7,10 +3070 DATA4,3,10,3,12,40,4,3,20,4,3,20 +3075 DATA4,3,20,4,3,20,4,12,20,4,3,20 +3080 DATA4,3,7,4,5,7,4,3,7 +3085 DATA4,2,20,4,7,20,4,7,20,4,7,20 +3090 DATA4,7,20,5,3,20,4,7,20,4,7,7 +3100 DATA4,8,7,4,7,7,4,6,20,4,2,10 +3105 DATA4,7,10,4,10,10,4,7,10,4,9,10 +3115 DATA4,7,10,4,6,10,4,9,10,4,12,10 +3120 DATA4,9,10,4,10,10,4,9,10,4,10,10 +3125 DATA4,9,10,4,7,10,4,10,10,4,7,10 +3130 DATA4,6,10,4,7,10,4,12,10,4,7,10 +3145 DATA4,6,10,4,7,10,5,2,10,4,7,10 +3150 DATA4,6,10,4,7,10,5,3,10,4,7,10 +3155 DATA4,6,10,4,7,10,5,3,10,5,2,10 +3160 DATA4,12,10,5,2,10,4,10,10,4,9,10 +3165 DATA4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20 +3170 RETURN + +