mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-01 15:41:28 +00:00
144 lines
5.4 KiB
QBasic
144 lines
5.4 KiB
QBasic
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
|