mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-02 06:30:17 +00:00
142 lines
5.4 KiB
QBasic
142 lines
5.4 KiB
QBasic
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
|
|
|
|
|