EvilDungeon Basic [MO5]

[Squeepty]

Bonjour,

L'un d'entre vous aurai t-il déjà reussi a tester EvilDungeon, un jeux programme en basic pour MO5 distribue ici:
https://dhypse.itch.io/evil-dungeon

Je ne comprend pas comment il est distribue: EvilDungeon.zip decompresse EvilDungeon.exe qui lui même apparement est au format "windows self extracting image" que je ne reussi pas a decompresser sur Mac.

Plus gros mystere encore, les instructions d'installation (je site):

[FR] - Installer le Jeu :
1: Appuyer sur "1" puis ouvrir "EvilDungeon.exe"
2: Appuyer sur "Fichier" puis "Restaurer état..."
3: Rechercher le Fichier "evfinalpb.mrx" dans dans le dossier Evil Dungeon.
4: Le jeu sera lancée !

What ?

[__sam__]

On dirait le jeu de THOM-MO5. L'exe est l'émulateur DCmoto modifié pour avoir une icone différente et bloquer l'accès au débuggeur ainsi que la plupart des options (je sais pas si Daniel est au courant car le Licence.txt ne faut aucune mention de son programme).

Le fichier MRX est le "dump" mémoire pour restaurer l'émulateur dans son état (MO5, jeu chargé).

Le jeu est en basic protégé, et sans le menu débug le retrait de la "protection" n'est pas possible. En revanche, si on charge le MRX avec le débuggeur de la version officielle de "dcmoto_20210303" on doit pouvoir voir le source et le sauver dans un format plus standard (K7 ou D7), et l'utiliser sur un vrai MO5.

Ah tiens, il y a une V2 depuis quelques heures...

[Daniel]

Il me semble avoir déjà dénoncé ces détournements de l'émulateur dcmoto.

Premièrement c'est complètement idiot de diffuser une ancienne version de l'émulateur avec une sauvegarde au format .mrx : Le format .mrx n'est pas défini, car il change à chaque nouvelle version de dcmoto. Il permet de restaurer l'état de l'émulateur avec la version utilisée pour le créer, mais pas avec une version plus ancienne ou plus récente.

Deuxièmement c'est formellement interdit par la license :

licence.png (183.12 Kio) Consulté 586 fois

Troisièmement il demande de l'argent en échange d'une copie pirate d'un logiciel gratuit interdit à la vente.

La sanction est : Honte à celui qui a fait ça

[Daniel]

Vous pouvez lancer Evil Dungeon avec la dernière version de dcmoto en mode MO5 par le menu Fichier / Simuler clavier...
(Les fautes d'orthographe dans le listing n'ont pas été corrigées. Je n'en suis pas responsable).

Code : Tout sélectionner

5 CLEAR,,60:GOSUB25000
10 DEFINTA-Z:LOCATE0,0,0:GOSUB 1500:GOSUB22000:GOSUB23000:GOSUB20500
11 GOSUB2500:GOSUB3000:GOSUB3200
12 GOSUB2600:GOSUB5000:GOSUB2300:GOSUB3900
14 GOSUB3000:GOSUB 6000:GOSUB6100:GOSUB2600
15 GOSUB 2400:GOSUB 2200:GOSUB2100:GOSUB2300
16 GOSUB 2000:GOSUB 5000:GOSUB7000:GOSUB3200
17 GOSUB 2500:GOSUB3200:GOSUB 2300:GOSUB5000
18 GOSUB 2600:GOSUB 2200:GOSUB2400:GOSUB2800
19 GOSUB5000:GOSUB5000:GOSUB3900:GOSUB2200
20 GOSUB2300:GOSUB2900:GOSUB6000:GOSUB6200
21 GOSUB7000:GOSUB5000:GOSUB3200:GOSUB2100
22 GOSUB5000:GOSUB2300:GOSUB2700:GOSUB2400
23 GOSUB6000:GOSUB6300:GOSUB5000:GOSUB2000
24 GOSUB2600:GOSUB3200:GOSUB2500:GOSUB2600
25 GOSUB2800:GOSUB5000:GOSUB5000:GOSUB6000:GOSUB6400
26 GOSUB3900:GOSUB2100:GOSUB5000:GOSUB2900
27 GOSUB2000:GOSUB7000:GOSUB2500:GOSUB2300
28 GOSUB5000:GOSUB2700:GOSUB6000:GOSUB6500
29 GOSUB2800:GOSUB5000:GOSUB5000:GOSUB5000
30 GOSUB2000:GOSUB2300:GOSUB2200:GOSUB2500
31 GOSUB6000:GOSUB6600:GOSUB5000:GOSUB2900
32 GOSUB2700:GOSUB2200:GOSUB2700:GOSUB5000
34 GOSUB2100:GOSUB3900:GOSUB3200:GOSUB5000
35 GOSUB6000:GOSUB6700:GOSUB7000:GOSUB2700
36 GOSUB2000:GOSUB2800:GOSUB5000:GOSUB5000
37 GOSUB2700:GOSUB5000:GOSUB3900:GOSUB3200
38 GOSUB2700:GOSUB5000:GOSUB5000:GOSUB6800:GOSUB6900
39 GOSUB9000
40 END
1500 CLS:SCREENO,O,O:LOCATE0,0,0
1505 ATTRB1,1:COLOR1:LOCATE8,6:PRINT"EVIL DUNGEON"
1510 ATTRB0,0:COLOR1:LOCATE7,21:PRINT"PAR DHYPSE & THOM MO5 2023"
1515 LINE(152,152)-(128,96),1:LINE -(184,136),1
1517 LINE-(120,136),1:LINE-(176,96),1:LINE-(152,152),1
1520 FOR I=1 TO 2500:NEXT I
1550 RETURN
2000 CLS:SCREEN,8,0:LOCATE0,0,0
2005 LINE(88,0)-(88,144),0:LINE(88,144)-(0,184),0
2006 LINE(256,0)-(256,144),0:LINE(256,144)-(320,184),0
2007 LINE(256,0)-(256,144),0:LINE(256,144)-(192,48),0
2008 LINE(152,48)-(88,144),0:BOXF(152,0)-(192,48),0
2009 LINE(96,136)-(248,136),0:LINE(146,56)-(198,56),0
2010 LINE(144,64)-(201,64),0:LINE(137,72)-(208,72),0
2011 LINE(132,80)-(212,80),0:LINE(128,88)-(216,88),0
2012 LINE(121,96)-(218,96),0:LINE(118,104)-(225,104),0
2013 LINE(109,112)-(232,112),0:LINE(107,120)-(237,120),0
2014 LINE(100,128)-(241,128),0
2015 LINE(88,36)-(0,56),0:LINE(88,72)-(0,104),0
2016 LINE(88,112)-(0,152),0:LINE(256,36)-(320,56),0
2017 LINE(256,72)-(320,104),0:LINE(256,112)-(320,152),0
2018 BOXF(223,16)-(224,40),1:LINE(220,36)-(226,38),1:LINE(224,14)-(224,16),3
2019 LINE(124,54)-(117,62),0:LINE(120,48)-(120,64),0
2025 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
2030 ATTRB0,0
2099 R$=INKEY$:IF R$="" THEN 2099 ELSE RETURN
2100 CLS:SCREEN,8,0:LOCATE0,0,0
2102 LINE(24,0)-(136,40),0:LINE(0,72)-(136,56),0
2104 LINE(0,136)-(136,72),0:LINE(24,200)-(136,88),0
2106 BOX(136,40)-(184,88),0:BOX(140,44)-(180,84),0:BOXF(144,48)-(176,80),0
2108 LINE(184,40)-(296,0),0:LINE(184,56)-(300,72),0
2110 LINE(184,72)-(300,136),0:LINE(184,88)-(296,200),0
2112 DEFGR$(17)=0,32,82,24,28,60,126,255
2113 DEFGR$(18)=32,12,24,57,60,124,126,255
2114 LOCATE34,10:COLOR3:ATTRB0,1:PRINTGR$(17)
2116 LINE(280,88)-(288,104),0:LINE(272,88)-(288,104),0
2120 LINE(88,24)-(88,63),0:LINE(112,60)-(112,84),0
2122 LINE(48,68)-(48,114),0:LINE(88,96)-(88,136),0
2124 LINE(216,30)-(216,61),0:LINE(280,8)-(280,70),0
2126 LINE(248,65)-(248,105),0:LINE(232,98)-(232,136),0
2127 LINE(16,88)-(8,104),0:LINE(24,88)-(8,104),0
2130 BOXF(156,107)-(164,165),1:BOXF(144,152)-(176,154),1
2140 ATTRB1,1:LOCATE24,22:COLOR0:PRINTGUN$;
2150 ATTRB0,1
2180 LOCATE34,10:COLOR3:PRINTGR$(18)
2181 LOCATE34,10:COLOR3:PRINTGR$(17)
2183 LOCATE2,10:COLOR3:PRINTGR$(18)
2184 LOCATE2,10:COLOR3:PRINTGR$(17)
2199 R$=INKEY$:IF R$="" THEN 2180 ELSE RETURN
2200 CLS:SCREEN,8,0:LOCATE0,0,0:ATTRB0,0
2202 LINE(24,0)-(136,40),0:LINE(0,72)-(136,56),0
2204 LINE(0,136)-(136,72),0:LINE(24,200)-(136,88),0
2206 BOX(136,40)-(184,88),0:BOX(140,44)-(180,84),0:BOXF(144,48)-(176,80),0
2208 LINE(184,40)-(296,0),0:LINE(184,56)-(320,72),0
2210 LINE(184,72)-(320,136),0:LINE(184,88)-(296,200),0
2212 DEFGR$(17)=0,32,82,24,28,60,126,255
2213 DEFGR$(18)=32,12,24,57,60,124,126,255
2216 LINE(280,88)-(288,104),0:LINE(272,88)-(288,104),0
2220 LINE(88,24)-(88,63),0:LINE(112,60)-(112,84),0
2222 LINE(48,68)-(48,114),0:LINE(88,96)-(88,136),0
2224 LINE(216,30)-(216,61),0:LINE(280,8)-(280,67),0
2226 LINE(248,65)-(248,103),0:LINE(232,97)-(232,136),0
2227 LINE(16,88)-(8,104),0:LINE(24,88)-(8,104),0
2230 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
2279 ATTRB0,1
2280 LOCATE34,10:COLOR3:PRINTGR$(18)
2281 LOCATE34,10:COLOR3:PRINTGR$(17)
2283 LOCATE2,10:COLOR3:PRINTGR$(18)
2284 LOCATE2,10:COLOR3:PRINTGR$(17)
2299 R$=INKEY$:IF R$="" THEN 2280 ELSE RETURN
2300 CLS:SCREEN,8,0:LOCATE0,0,0
2305 LINE(24,0)-(104,32),0:LINE(104,32)-(104,120),0
2310 LINE(0,176)-(104,120),0
2315 LINE(0,136)-(104,104),0:LINE(0,104)-(104,88),0
2320 LINE(0,64)-(104,64),0:BOXF(104,40)-(136,104),0
2325 LINE(136,40)-(208,40),0:LINE(136,56)-(208,56),0
2330 LINE(136,72)-(208,72),0:LINE(136,88)-(208,88),0
2335 LINE(136,104)-(208,104),0:LINE(208,40)-(315,8),0
2340 LINE(208,56)-(315,72),0:LINE(208,72)-(315,104),0
2345 LINE(208,88)-(315,160),0:LINE(208,104)-(296,206),0
2350 LINE(208,40)-(208,104),0
2360 LINE(160,40)-(160,56),0:LINE(184,56)-(184,72),0
2361 LINE(152,72)-(152,88),0:LINE(176,88)-(176,104),0
2362 LINE(24,128)-(24,160),0:LINE(48,8)-(48,64),0
2363 LINE(48,97)-(48,122),0:LINE(72,64)-(72,93),0:LINE(264,24)-(264,63),0
2364 LINE(240,61)-(240,80),0:LINE(264,88)-(264,124),0:LINE(240,109)-(240,140),0
2370 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
2380 ATTRB0,0
2397 R$=INKEY$:IF R$="" THEN 2397 ELSE RETURN
2400 CLS:SCREEN,8,0:LOCATE0,0,0:ATTRB0,0
2401 LINE(0,16)-(128,48),0
2402 LINE(0,88)-(128,64),0
2403 LINE(0,184)-(128,80),0:LINE(176,48)-(320,16),0
2404 BOXF(128,48)-(176,80),0
2406 LINE(176,80)-(320,184),0:LINE(176,64)-(320,88),0
2407 LINE(216,72)-(216,40),0:LINE(256,78)-(256,136),0
2410 LINE(48,30)-(48,80),0:LINE(96,70)-(96,107),0
2460 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
2465 ATTRB0,0
2499 R$=INKEY$:IF R$="" THEN 2499 ELSE RETURN
2500 'COULOIR
2501 CLS:SCREEN,8,0:LOCATE0,0,0
2502 LINE(7,0)-(120,48),0:LINE (0,64)-(120,56),0
2503 BOXF(121,48)-(183,88),0:LINE (315,0)-(184,48),0
2504 LINE(120,88)-(32,200),0:LINE(184,88)-(280,200),0
2505 LINE(184,56)-(315,60),0:LINE(184,64)-(315,112),0
2506 LINE(184,72)-(315,176),0
2507 LINE(184,80)-(304,200),0:LINE(208,40)-(208,56),0
2508 LINE(240,60)-(240,82),0:LINE(208,72)-(208,88),0
2509 LINE(232,128)-(232,144),0:LINE(80,120)-(80,136),0
2510 LINE(120,64)-(0,152),0:LINE(120,80)-(0,200),0
2511 LINE(288,105)-(288,152),0:LINE(240,115)-(240,136),0
2512 LINE(80,32)-(80,56),0:LINE(104,80)-(104,96),0
2513 LINE(56,112)-(56,144),0:LINE(32,12)-(32,59),0
2514 LINE(152,184)-(128,112),1:LINE(128,112)-(184,152),1
2515 LINE(184,152)-(120,152),1:LINE(120,152)-(176,112),1
2516 LINE(176,112)-(152,184),1
2517 LINE(72,58)-(72,100),0
2519 LINE(112,56)-(112,72),0:LINE(8,64)-(8,144),0
2520 ATTRB1,1:LOCATE23,22:COLOR0:PRINTGUN$;
2599 R$=INKEY$:IF R$="" THEN 2599 ELSE RETURN
2600 CLS:SCREEN,8,0:LOCATE0,0,0
2601 LINE(0,8)-(112,40),0:LINE(112,40)-(112,104),0
2602 LINE(0,168)-(112,104),0:LINE(0,72)-(112,56),0
2603 LINE(0,96)-(112,72),0:LINE(0,128)-(112,88),0
2604 LINE(0,168)-(112,104),0:LINE(112,40)-(208,40),0
2605 LINE(112,104)-(208,104),0:BOXF(208,40)-(224,104),0
2606 LINE(288,0)-(224,24),0:LINE(224,24)-(224,120),0
2607 LINE(224,120)-(315,176),0:LINE(224,96)-(315,136),0
2608 LINE(224,80)-(315,104),0:LINE(224,64)-(315,80),0
2609 LINE(224,48)-(315,56),0:
2610 LINE(112,56)-(208,56),0:LINE(112,72)-(208,72),0
2611 LINE(112,88)-(208,88),0:LINE(168,40)-(168,56),0
2612 LINE(144,56)-(144,72),0:LINE(160,72)-(160,88),0:LINE(176,88)-(176,104),0
2614 LINE(32,17)-(32,68),0:LINE(88,33)-(88,60),0
2615 LINE(64,64)-(64,83),0:LINE(24,92)-(24,120),0
2616 LINE(96,77)-(96,94),0:LINE(48,112)-(48,141),0
2617 LINE(240,17)-(240,49),0:LINE(288,0)-(288,54),0
2618 LINE(264,52)-(264,71),0:LINE(240,68)-(240,84),0
2619 LINE(296,78)-(296,99),0:LINE(264,91)-(264,112),0
2620 LINE(272,117)-(272,148),0
2640 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
2650 ATTRB0,0
2699 R$=INKEY$:IF R$="" THEN 2699 ELSE RETURN
2700 CLS:SCREEN,8,0:LOCATE0,0,0
2701 LINE(16,0)-(56,24),0:LINE(56,24)-(80,160),0
2702 LINE(56,32)-(248,32),0:LINE(248,24)-(304,0),0
2703 LINE(248,24)-(224,160),0:BOXF(80,152)-(224,160),0
2704 LINE(56,120)-(72,160),1:LINE(64,160)-(56,136),1
2705 LINE(56,120)-(40,136),1:LINE(40,136)-(48,144),1:LINE(48,144)-(56,136),1
2706 LINE(56,160)-(248,160),0:LINE(61,48)-(0,64),0
2707 LINE(64,72)-(O,104),0:LINE(67,96)-(0,144),0
2708 LINE(72,120)-(0,184),0:LINE(76,144)-(16,200),0
2709 LINE(80,152)-(72,160),0:LINE(248,48)-(315,64),0
2710 LINE(64,72)-(240,72),0:LINE(72,112)-(232,112),0
2711 LINE(76,144)-(226,144),0
2712 LINE(40,16)-(40,53),0:LINE(32,56)-(32,87),0
2713 LINE(48,80)-(48,110),0:LINE(32,120)-(32,156),0
2714 LINE(56,136)-(56,160),0:LINE(240,72)-(320,104),0
2715 LINE(238,96)-(320,144),0:LINE(232,120)-(320,184),0
2716 LINE(230,144)-(296,200),0:LINE(288,8)-(288,58),0
2717 LINE(280,56)-(280,86),0:LINE(304,98)-(304,135),0
2718 LINE(288,128)-(288,160),0:LINE(232,160)-(256,120),1
2719 LINE(256,120)-(272,136),1:LINE(272,136)-(264,144),1
2720 LINE(264,144)-(256,136),1:LINE(256,136)-(240,160),1
2721 LINE(256,136)-(256,166),0
2722 BOXF(151,40)-(153,64),1:BOXF(144,55)-(160,57),1
2730 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
2735 ATTRB0,0
2799 R$=INKEY$:IF R$="" THEN 2799 ELSE RETURN
2800 CLS:SCREEN,8,0:LOCATE0,0,0:ATTRB0,0
2805 LINE(0,32)-(315,32),0:LINE(0,64)-(315,64),0
2806 LINE(0,96)-(315,96),0:LINE(0,136)-(315,136),0
2807 LINE(0,168)-(112,168),0:BOXF(112,168)-(184,200),0
2808 LINE(184,168)-(315,168),0:LINE(72,0)-(72,32),0
2809 BOXF(175,0)-(177,32),1:LINE(160,24)-(192,24),1
2810 LINE(64,62)-(56,38),1:LINE(56,38)-(80,52),1
2811 LINE(80,52)-(48,52),1:LINE(48,52)-(72,40),1:LINE(72,38)-(64,62),1
2812 COLOR1:LOCATE2,23:PRINT"RESIGNATION"
2813 BOXF(144,40)-(224,48),8:LINE(152,48)-(152,80),0
2814 LINE(216,48)-(216,80),0:LINE(216,72)-(208,72),0
2815 LINE(208,72)-(208,80),0:LINE(152,72)-(160,72),0:LINE(160,72)-(160,80),0
2816 LINE(240,168)-(240,200),0:LINE(240,96)-(240,136),0
2817 LINE(112,144)-(136,160),1:LINE(136,160)-(120,160),1:LINE(120,160)-(120,152),1
2818 LINE(184,144)-(160,160),1:LINE(160,160)-(176,160),1:LINE(176,160)-(176,152),1
2819 LINE(176,64)-(176,96),0:LINE(72,136)-(72,168),0
2899 R$=INKEY$:IF R$="" THEN 2899 ELSE RETURN
2900 CLS:SCREEN,8,0:LOCATE0,0,0
2905 LINE(0,200)-(48,104),0:LINE(48,104)-(48,0),0
2906 LINE(48,56)-(136,56),0:BOXF(136,0)-(192,56),0
2907 LINE(192,56)-(248,56),0:LINE(248,56)-(320,144),0
2908 LINE(248,0)-(248,56),0:LINE(0,32)-(40,0),0:LINE(0,64)-(48,16),0
2909 LINE(48,24)-(136,24),0:LINE(192,24)-(248,24),0
2910 LINE(0,104)-(48,48),0:LINE(0,152)-(48,72),0:LINE(8,0)-(8,24),0
2911 LINE(24,16)-(24,40),0:LINE(16,48)-(16,86),0:LINE(32,66)-(32,96),0
2912 LINE(24,112)-(24,152),0:LINE(248,0)-(315,24),0
2913 LINE(248,24)-(315,72),0
2915 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
2920 LOCATE12,14:COLOR0:ATTRB0,0:PRINT"TOUT DROIT LETTRE D"
2921 LOCATE12,15:COLOR0:ATTRB0,0:PRINT"SINON PEU IMPORTE"
2950 S=INT(1*RND(1))
2999 R$=INKEY$:IF R$="" THEN 2999 ELSE IF R$="D" AND S=0 THEN GOTO3100 ELSE RETURN
3000 CLS:SCREEN,8,0:LOCATE0,0,0
3005 LINE(16,0)-(112,56),0:LINE(0,64)-(112,72),0
3006 LINE(0,144)-(112,96),0:LINE(16,200)-(112,112),0:BOXF(120,64)-(184,104),0
3007 LINE(112,56)-(192,56),0:LINE(192,56)-(192,112),0
3008 LINE(192,112)-(112,112),0:LINE(112,112)-(112,56),0
3009 LINE(116,60)-(188,60),0:LINE(188,60)-(188,108),0
3010 LINE(188,108)-(116,108),0:LINE(116,108)-(116,60),0
3011 LINE(64,29)-(64,66),0:LINE(80,70)-(80,108),0
3012 LINE(24,68)-(24,130),0:LINE(56,120)-(56,160),0
3013 LINE(192,56)-(296,0),0:LINE(192,80)-(320,112),0
3014 LINE(192,112)-(272,200),0:LINE(288,104)-(288,200),0
3015 LINE(240,32)-(240,92),0:LINE(216,88)-(216,136),0
3016 LINE(118,62)-(186,62),0:LINE(186,62)-(186,106),0
3017 LINE(186,106)-(118,106),0:LINE(118,106)-(118,62),0
3020 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
3099 R$=INKEY$:IF R$="" THEN 3099 ELSE RETURN
3100 CLS:ATTRB0,0:SCREEN,8,0:LOCATE0,0,0
3105 LINE(104,0)-(104,88),0:LINE(104,88)-(48,200),0
3106 LINE(104,88)-(232,88),0:LINE(232,88)-(232,0),0:LINE(232,88)-(288,200),0
3107 LINE(168,0)-(168,24),1:LINE(160,16)-(176,16),1
3108 BOXF(167,96)-(169,184),1:BOXF(144,167)-(192,169),1
3109 LINE(120,144)-(136,112),1:LINE(136,112)-(104,136),1
3110 LINE(104,136)-(136,136),1:LINE(136,136)-(112,112),1
3111 LINE(112,112)-(120,144),1
3112 LINE(224,144)-(240,112),1:LINE(238,112)-(208,136),1
3113 LINE(208,136)-(240,136),1:LINE(240,136)-(208,112),1
3114 LINE(208,112)-(224,144),1
3115 LOCATE16,5:COLOR1:PRINT"GAME"
3116 LOCATE21,5:COLOR1:PRINT"OVER"
3117 LINE(288,112)-(288,157),0:LINE(280,136)-(292,155),0
3118 LINE(280,40)-(280,72),0:LINE(274,56)-(285,68),0
3119 LINE(72,64)-(72,88),0:LINE(76,76)-(69,86),0
3125 FOR I=1 TO 3
3130 PLAY"A2T9O1DO#FA#DO#SI#"
3132 NEXT I
3140 CLS:SCREEN,0,0:LOCATE0,0,0
3150 COLOR1:LOCATE7,8
3160 INPUT"UNE AUTRE PARTIE O/N";N$
3170 IF N$="O" THEN GOTO5 ELSE END
3200 CLS:SCREEN,8,0:LOCATE0,0,0
3205 LINE(16,0)-(112,56),0:LINE(0,64)-(112,72),0
3206 LINE(0,144)-(112,96),0:LINE(16,200)-(112,112),0:BOXF(120,64)-(184,104),0
3207 LINE(112,56)-(192,56),0:LINE(192,56)-(192,112),0
3208 LINE(192,112)-(112,112),0:LINE(112,112)-(112,56),0
3209 LINE(116,60)-(188,60),0:LINE(188,60)-(188,108),0
3210 LINE(188,108)-(116,108),0:LINE(116,108)-(116,60),0
3211 LINE(64,29)-(64,66),0:LINE(80,70)-(80,108),0
3212 LINE(24,68)-(24,130),0:LINE(56,120)-(56,160),0
3213 LINE(192,56)-(296,0),0:LINE(192,80)-(320,112),0
3214 LINE(192,112)-(272,200),0:LINE(288,104)-(288,200),0
3215 LINE(240,32)-(240,92),0:LINE(216,88)-(216,136),0
3216 LINE(118,62)-(186,62),0:LINE(186,62)-(186,106),0
3217 LINE(186,106)-(118,106),0:LINE(118,106)-(118,62),0
3218 LINE(88,42)-(88,68),0
3219 LINE(280,56)-(288,72),0:LINE(288,56)-(288,72),0
3220 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
3235 ATTRB0,0
3240 DEFGR$(17)=0,32,82,24,28,60,126,255
3242 DEFGR$(18)=32,12,24,57,60,124,126,255
3243 ATTRB0,1
3244 LOCATE35,6:COLOR3:PRINTGR$(18)
3246 LOCATE35,6:COLOR3:PRINTGR$(17)
3299 R$=INKEY$:IF R$="" THEN 3244 ELSE RETURN
3900 CLS:SCREEN,8,O:LOCATE0,0,0
3902 LINE(24,0)-(136,40),0:LINE(0,72)-(136,56),0
3904 LINE(0,136)-(136,72),0:LINE(24,200)-(136,88),0
3906 BOX(136,40)-(184,88),0:BOX(140,44)-(180,84),0:BOXF(144,48)-(176,80),0
3908 LINE(184,40)-(296,0),0:LINE(184,56)-(300,72),0
3910 LINE(184,72)-(300,136),0:LINE(184,88)-(296,200),0
3912 DEFGR$(17)=0,32,82,24,28,60,126,255
3913 DEFGR$(18)=32,12,24,57,60,124,126,255
3914 LOCATE34,10:COLOR3:ATTRB0,1:PRINTGR$(17)
3916 LINE(280,88)-(288,104),0:LINE(272,88)-(288,104),0
3920 LINE(88,24)-(88,63),0:LINE(112,60)-(112,84),0
3922 LINE(48,68)-(48,114),0:LINE(88,96)-(88,136),0
3924 LINE(216,30)-(216,61),0:LINE(280,8)-(280,70),0
3926 LINE(248,65)-(248,105),0:LINE(232,98)-(232,136),0
3930 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
3980 ATTRB0,1
3981 LOCATE34,10:COLOR3:PRINTGR$(18)
3982 LOCATE34,10:COLOR3:PRINTGR$(17)
3990 R$=INKEY$:IF R$="" THEN 3981 ELSE RETURN
5000 CLS:SCREEN4,0,0:LOCATE0,0,0
5005 ATTRB1,1:VI=3
5010 L=18:M=20:DOL$=CHR$(8)
5020 DEFGR$(0)=0,0,0,0,0,0,0,0
5030 DEFGR$(1)=1,3,5,10,10,10,10,18
5040 DEFGR$(2)=0,128,64,32,32,32,48,48
5050 DEFGR$(3)=18,17,23,63,127,255,255,255
5060 DEFGR$(4)=16,16,208,248,252,254,254,254
5070 DEFGR$(5)=0,0,2,7,15,79,7,3
5080 DEFGR$(6)=0,0,200,228,224,192,192,128
5090 DEFGR$(7)=0,0,24,24,24,24,0,0
5100 DEFGR$(8)=16,27,28,13,19,80,223,255
5110 DEFGR$(9)=8,216,184,48,72,138,123,255
5120 DEFGR$(10)=82,77,53,29,22,24,6,0
5130 DEFGR$(11)=74,178,172,184,104,48,96,0
5140 DEFGR$(12)=16,27,28,13,19,86,223,255
5150 DEFGR$(13)=8,216,184,48,72,138,123,14
5160 DEFGR$(14)=92,67,161,161,88,44,38,24
5170 DEFGR$(15)=58,194,133,133,26,52,100,24
5180 GUN$=GR$(1)+GR$(2)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(3)+GR$(4)
5190 FIR$=GR$(5)+GR$(6)
5200 CL$=GR$(0)+GR$(0)
5210 BAL$=GR$(7)
5220 CLB$=GR$(0)+GR$(0)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(0)+GR$(0)
5230 MEA$=GR$(8)+GR$(9)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(10)+GR$(11)
5240 MEB$=GR$(12)+GR$(13)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(14)+GR$(15)
5250 LOCATEL,M:COLOR1:PRINTGUN$
5252 GY=INT(8*RND(1))+10
5260 FOR I=1 TO GY
5270 XM=INT(7+28*RND)
5280 YM=INT(6+10*RND)
5290 LOCATE XM,YM:COLOR4:PRINTMEA$
5300 FOR U=1 TO INT(35*RND(1))+25
5310 E$=INKEY$:IF VI=0 THEN GOTO 3100
5320 IF E$="E" THEN GOTO5400
5330 IF E$="Q" THEN GOTO5520
5340 IF E$="D" THEN GOTO5570
5350 NEXT U
5360 LOCATE XM,YM:COLOR3:PRINTMEB$:VI=VI-1:COLOR7:LOCATE0,1:PRINTVI
5370 FOR U=1 TO 700:NEXT U
5380 LOCATE XM,YM:PRINTCLB$
5390 IF I<GY THEN NEXT I ELSE RETURN
5400 LOCATEL,M-2:COLOR3:PLAY"T3A3L4DODO#RERE#MIFAFA#SOSO#":PRINTFIR$
5410 FOR T=1 TO 30:NEXT T
5420 LOCATEL,M-2:PRINTCL$
5430 FOR Z=1 TO 16
5440 N=16-Z
5450 B=L+1
5460 LOCATEB,N:COLOR2:PRINTBAL$
5470 IF B=XM ORB=XM-1 OR B=XM+1 OR B=XM+2 OR B=XM+3 THEN LOCATE XM,YM:PRINTMO$:PLAY"T4O2DO":LOCATEB,N:PRINTCL$:GOTO5380
5480 FOR T=1 TO 2:NEXT T
5490 LOCATEB,N:PRINTGR$(0)
5500 NEXT Z
5510 GOTO 5350
5520 IF L=4 THEN 5340 ELSE GOTO 5530
5530 LOCATEL,M:PRINTCLB$
5540 L=L-2
5550 LOCATEL,M:COLOR1:PRINTGUN$
5560 GOTO 5340
5570 IF L=32 THEN 5350 ELSE GOTO5580
5580 LOCATEL,M:PRINTCLB$
5590 L=L+2
5600 LOCATEL,M:COLOR1:PRINTGUN$
5610 GOTO 5350
6000 CLS:SCREEN,8,0:LOCATE0,0,0:ATTRB0,0
6005 LINE(32,0)-(96,24),0:LINE(288,0)-(224,24),0
6010 LINE(96,32)-(224,32),0:LINE(0,48)-(96,40),0
6015 LINE(224,40)-(320,48),0:LINE(96,56)-(224,56),0
6020 LINE(0,88)-(96,72),0:LINE(224,72)-(320,88),0
6025 LINE(96,80)-(224,80),0:LINE(0,136)-(96,96),0
6030 LINE(224,96)-(320,136),0:LINE(96,104)-(224,104),0
6035 LINE(0,176)-(96,128),0:LINE(224,128)-(320,176),0
6040 LINE(96,24)-(96,128),0:LINE(224,24)-(224,128),0
6042 LINE(48,8)-(48,44),0:LINE(136,32)-(136,56),0
6044 LINE(192,32)-(192,56),0:LINE(160,56)-(160,80),0
6046 LINE(128,80)-(128,104),0:LINE(184,80)-(184,104),0
6048 LINE(64,45)-(64,76),0:LINE(40,81)-(40,120),0
6050 LINE(56,114)-(56,148),0:LINE(264,8)-(264,44),0
6052 LINE(248,42)-(248,76),0:LINE(288,83)-(288,121),0:LINE(264,112)-(264,148),0
6060 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
6065 ATTRB0,0
6099 R$=INKEY$:IF R$="" THEN 6099 ELSE RETURN
6100 CLS:SCREEN,O,O:LOCATE0,0,0
6105 COLOR1:LOCATE1,4:ATTRB0,0
6110 PRINT"TU ES ICI A LA QUESTION DU CROISEMENT"
6112 PRINT:PRINT
6114 PRINT"   A QUELS PECHES CAPITAUX, LE MOT          ACCUMULATION FAIT REFERENCE?"
6115 PRINT
6116 PRINT"1.ENVIE","2.PARESSE","3.COLERE"
6118 PRINT"4.ORGUEIL","5.LUXURE","6.AVARICE"
6120 PRINT"7.GOURMANDISE"
6125 PRINT:PRINT
6140 INPUT"VOTRE CHOIX";C
6150 IF C=7 THEN PRINT"BIEN,CONTINUE":FOR I=1 TO 200:NEXT I:RETURN
6155 IF C<>7 THEN PRINT"DOMMAGE...":FOR I=1 TO 200:NEXTI:RETURN
6200 CLS:SCREEN,O,O:LOCATE0,0,0
6205 COLOR1:LOCATE1,4:ATTRB0,0
6210 PRINT"TU ES ICI A LA QUESTION DU CROISEMENT"
6212 PRINT:PRINT
6214 PRINT"   A QUELS PECHES CAPITAUX, LE MOT          INCURRIE FAIT REFERENCE?"
6215 PRINT
6216 PRINT"1.ENVIE","2.PARESSE","3.COLERE"
6218 PRINT"4.ORGUEIL","5.LUXURE","6.AVARICE"
6220 PRINT"7.GOURMANDISE"
6225 PRINT:PRINT
6240 INPUT"VOTRE CHOIX";C
6250 IF C=2 THEN PRINT"BIEN,CONTINUE":FOR I=1 TO 300:NEXT I:RETURN
6255 IF C<>2 THEN PRINT"DOMMAGE...":FOR I=1 TO 300:NEXTI:RETURN
6300 CLS:SCREEN,O,O:LOCATE0,0,0
6305 COLOR1:LOCATE1,4:ATTRB0,0
6310 PRINT"TU ES ICI A LA QUESTION DU CROISEMENT"
6312 PRINT:PRINT
6314 PRINT"   A QUELS PECHES CAPITAUX, LE MOT          JACTANCE FAIT REFERENCE?"
6315 PRINT
6316 PRINT"1.ENVIE","2.PARESSE","3.COLERE"
6318 PRINT"4.ORGUEIL","5.LUXURE","6.AVARICE"
6320 PRINT"7.GOURMANDISE"
6325 PRINT:PRINT
6340 INPUT"VOTRE CHOIX";C
6350 IF C=4 THEN PRINT"BIEN,CONTINUE":FOR I=1 TO 300:NEXT I:RETURN
6355 IF C<>4 THEN PRINT"DOMMAGE...":FOR I=1 TO 300:NEXTI:RETURN
6400 CLS:SCREEN,O,O:LOCATE0,0,0
6405 COLOR1:LOCATE1,4:ATTRB0,0
6410 PRINT"TU ES ICI A LA QUESTION DU CROISEMENT"
6412 PRINT:PRINT
6414 PRINT"   A QUELS PECHES CAPITAUX, LE MOT          LADRERIE FAIT REFERENCE?"
6415 PRINT
6416 PRINT"1.ENVIE","2.PARESSE","3.COLERE"
6418 PRINT"4.ORGUEIL","5.LUXURE","6.AVARICE"
6420 PRINT"7.GOURMANDISE"
6425 PRINT:PRINT
6440 INPUT"VOTRE CHOIX";C
6450 IF C=6 THEN PRINT"BIEN,CONTINUE":FOR I=1 TO 300:NEXT I:RETURN
6455 IF C<>6 THEN PRINT"DOMMAGE...":FOR I=1 TO 300:NEXTI:RETURN
6500 CLS:SCREEN,O,O:LOCATE0,0,0
6505 COLOR1:LOCATE1,4:ATTRB0,0
6510 PRINT"TU ES ICI A LA QUESTION DU CROISEMENT"
6512 PRINT:PRINT
6514 PRINT"   A QUELS PECHES CAPITAUX, LE MOT          STUPRE FAIT REFERENCE?"
6515 PRINT
6516 PRINT"1.ENVIE","2.PARESSE","3.COLERE"
6518 PRINT"4.ORGUEIL","5.LUXURE","6.AVARICE"
6520 PRINT"7.GOURMANDISE"
6525 PRINT:PRINT
6540 INPUT"VOTRE CHOIX";C
6550 IF C=5 THEN PRINT"BIEN,CONTINUE":FOR I=1 TO 300:NEXT I:RETURN
6555 IF C<>5 THEN PRINT"DOMMAGE...":FOR I=1 TO 300:NEXTI:RETURN
6600 CLS:SCREEN,O,O:LOCATE0,0,0
6605 COLOR1:LOCATE1,4:ATTRB0,0
6610 PRINT"TU ES ICI A LA QUESTION DU CROISEMENT"
6612 PRINT:PRINT
6614 PRINT"   A QUELS PECHES CAPITAUX, LE MOT          TOQUADE FAIT REFERENCE?"
6615 PRINT
6616 PRINT"1.ENVIE","2.PARESSE","3.COLERE"
6618 PRINT"4.ORGUEIL","5.LUXURE","6.AVARICE"
6620 PRINT"7.GOURMANDISE"
6625 PRINT:PRINT
6640 INPUT"VOTRE CHOIX";C
6650 IF C=1 THEN PRINT"BIEN,CONTINUE":FOR I=1 TO 300:NEXT I:RETURN
6655 IF C<>1 THEN PRINT"DOMMAGE...":FOR I=1 TO 300:NEXTI:RETURN
6700 CLS:SCREEN,O,O:LOCATE0,0,0
6705 COLOR1:LOCATE1,4:ATTRB0,0
6710 PRINT"TU ES ICI A LA QUESTION DU CROISEMENT"
6712 PRINT:PRINT
6714 PRINT"   A QUELS PECHES CAPITAUX, LE MOT          ALGARADE FAIT REFERENCE?"
6715 PRINT
6716 PRINT"1.ENVIE","2.PARESSE","3.COLERE"
6718 PRINT"4.ORGUEIL","5.LUXURE","6.AVARICE"
6720 PRINT"7.GOURMANDISE"
6725 PRINT:PRINT
6740 INPUT"VOTRE CHOIX";C
6750 IF C=3 THEN PRINT"BIEN,CONTINUE":FOR I=1 TO 300:NEXT I:RETURN
6755 IF C<>3 THEN PRINT"DOMMAGE...":FOR I=1 TO 300:NEXTI:RETURN
6800 CLS:SCREEN,0,0:LOCATE0,0,0
6805 ATTRB0,0:COLOR1:LOCATE1,3
6810 PRINT"TU ES A LA PORTE DE VASSAGO,POUR PASSER IL TE FAUT LE MOT DE PASSE, CE MOT DE   PASSE EST COMPOSE DES PREMIERES LETTRES   DES SEPT PECHES CAPITAUX DANS L ORDRE CROISE DANS TON AVENTURE, IL EST DONC DE SEPT LETTRE."
6812 PRINT:PRINT"PAR EXEMPLE SI TA PREMIERE ENIGME       CORRSEPOND A (AVARICE) ALORS (A) SERA   LA PREMIERE LETTRE DU MOT DE PASSE"
6813 PRINT:PRINT"JE NE TE L'AVAIS PAS DIT?  OUPS.."
6815 PRINT:PRINT"DONNEZ LE MOT DE PASSE:"
6816 M$=INPUT$(7)
6817 IF M$="CELAOPG" THEN GOTO 30000
6820 IF M$="GPOALEC" THEN PRINT"TU AS REUSSI, MAIS L ENFER T ATTENDS.":RETURN
6825 CLS::PRINT:PRINT:PRINT:PRINT
6830 ATTRB1,1:PRINT TAB(5)"TU MEURS"
6835 R$=INKEY$:IF R$="" THEN 6835 ELSE GOTO 3100
6900 CLS:SCREEN0,1,0:LOCATE0,0,0
6905 BOXF(24,0)-(40,14)"<"
6910 BOXF(0,0)-(14,14)">"
6911 LINE(0,121)-(320,121),0:LINE(0,128)-(320,128),0:LINE(0,142)-(320,142),0
6912 LINE(0,160)-(320,160),0:LINE(0,176)-(320,176),0
6915 FOR I=1 TO 1
6920 FOR C=0 TO 15
6925 BOXF(120,0)-(190,120),C
6930 NEXT C,I
6935 BOXF(120,0)-(190,120),0
6940 LINE(155,0)-(155,120),1:BOXF(142,100)-(168,102),1
6941 FOR F=1 TO 2
6942 PLAY"O2T3L24REREREREPREREREREP"
6943 PLAY"L40T4REMIFASO"
6944 PLAY"O2T3L24REREREREPREREREREP"
6945 PLAY"L40T4SOFAMI"
6946 NEXTF
6950 R$=INKEY$:IF R$="" THEN 6950 ELSE  RETURN
7000 CLS:SCREEN,8,0:LOCATE0,0,0
7005 LINE(0,200)-(48,104),0:LINE(48,104)-(48,0),0
7006 LINE(48,56)-(136,56),0:BOXF(136,0)-(192,56),0
7007 LINE(192,56)-(248,56),0:LINE(248,56)-(320,144),0
7008 LINE(248,0)-(248,56),0:LINE(0,32)-(40,0),0:LINE(0,64)-(48,16),0
7009 LINE(48,24)-(136,24),0:LINE(192,24)-(248,24),0
7010 LINE(0,104)-(48,48),0:LINE(0,152)-(48,72),0:LINE(8,0)-(8,24),0
7011 LINE(24,16)-(24,40),0:LINE(16,48)-(16,86),0:LINE(32,66)-(32,96),0
7012 LINE(24,112)-(24,152),0:LINE(248,0)-(315,24),0
7013 LINE(248,24)-(315,72),0
7015 ATTRB1,1:LOCATE20,22:COLOR0:PRINTGUN$;
7020 LOCATE12,14:COLOR0:ATTRB0,0:PRINT"TOUT DROIT LETTRE D"
7021 LOCATE12,15:COLOR0:ATTRB0,0:PRINT"SINON PEU IMPORTE"
7050 S=INT(1*RND(1))
7098 R$=INKEY$:IF R$="" THEN 7098
7099 IF R$="D" THEN RETURN ELSE IF R$<>"D" THEN GOTO 3100
7100 CLS:SCREEN0,1,0:LOCATE0,0,0:ATTRB0,0
7105 LOCATE0,9:PRINT"APRES CE COMBAT FINAL TU TROUVES DANS UN COIN DE LA PIECE"
7110 PRINT"L'ECUSSON DE L'UNITE DE NOSMOHT"
7111 PRINT"CERTAINEMENT CACHER PAR NOSMOHT"
7112 PRINT:PRINT:PRINT:PRINT
7115 PRINT"IL NE DOIT PAS être LOIN..."
7120 FOR I=1 TO 3500
7121 NEXT I
7125 CLS:SCREEN0,1,0:LOCATE0,0,0:ATTRB0,0
7130 LOCATE9,6:PRINT"PAR DHYPSE ET THOM MO5"
7132 LOCATE13,18:PRINT"EN 100% BASIC"
7192 FOR F=1 TO 5
7193 PLAY"O2T3L24REREREREPREREREREP"
7194 PLAY"L40T4REMIFASO"
7195 PLAY"O2T3L24REREREREPREREREREP"
7196 PLAY"L40T4SOFAMI"
7197 NEXTF
7199 NEW
9000 SCREEN4,0,0:CLS:LOCATE0,0,0
9005 ATTRB1,1:L=18:M=20
9010 PA=6:PB=0:PC=0:PD=0:PE=6
9015 PAX=10:PAY=6:PBX=14:PBY=6:PCX=18:PCY=6:PDX=22:PDY=6:PEX=26:PEY=6
9020 VIE=10:RM=0:PAC=0:DOL$=CHR$(8)
9021 DEFGR$(1)=1,3,5,10,10,10,10,18
9022 DEFGR$(24)=0,0,0,0,0,0,0,0
9023 DEFGR$(2)=0,128,64,32,32,32,48,48
9024 DEFGR$(25)=0,0,2,7,15,79,7,3
9025 DEFGR$(3)=18,17,23,63,127,255,255,255
9026 DEFGR$(26)=0,0,200,228,224,192,192,128
9027 DEFGR$(4)=16,16,208,248,252,254,254,254
9028 DEFGR$(27)=0,0,24,24,24,24,0,0
9029 GUN$=GR$(1)+GR$(2)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(3)+GR$(4)
9030 DEFGR$(28)=0,0,0,7,15,31,31,63
9032 DEFGR$(29)=1,7,31,120,243,231,238,249
9034 DEFGR$(30)=127,124,120,120,121,57,57,33
9035 DEFGR$(31)=249,255,207,206,140,136,140,8
9036 DEFGR$(32)=0,251,255,31,192,255,127,1
9037 DEFGR$(33)=1,7,159,248,243,231,254,252
9038 DEFGR$(34)=224,255,255,63,63,0,0,0
9039 DEFGR$(35)=1,253,255,230,224,192,0,0
9040 DEFGR$(36)=48,56,187,95,169,221,124,179
9041 DEFGR$(37)=12,28,221,250,149,187,110,205
9042 DEFGR$(38)=121,41,45,21,21,23,10,4
9043 DEFGR$(39)=158,148,180,168,168,232,88,32
9044 DEFGR$(40)=48,56,187,95,169,221,124,179
9045 DEFGR$(41)=12,28,221,250,149,187,110,205
9046 DEFGR$(42)=121,105,109,197,197,199,226,120
9047 DEFGR$(43)=158,150,182,163,163,227,71,30
9048 DEFGR$(44)=128,224,249,31,207,231,127,63
9049 DEFGR$(45)=0,223,255,248,3,255,254,128
9050 DEFGR$(46)=128,191,255,103,7,3,0,0
9051 DEFGR$(47)=7,255,255,252,252,0,0,0
9052 DEFGR$(48)=128,224,248,30,207,231,119,63
9053 DEFGR$(49)=0,0,0,224,240,248,248,252
9054 DEFGR$(50)=159,255,243,115,113,17,49,16
9055 DEFGR$(51)=254,62,30,30,158,156,156,132
9057 FIR$=GR$(25)+GR$(26):BAL$=GR$(27)
9060 PA$=GR$(28)+GR$(29)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(30)+GR$(31)
9062 PB$=GR$(32)+GR$(33)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(34)+GR$(35)
9064 PC$=GR$(36)+GR$(37)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(38)+GR$(39)
9066 PCBIS$=GR$(40)+GR$(41)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(42)+GR$(43)
9068 PD$=GR$(44)+GR$(45)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(46)+GR$(47)
9070 PE$=GR$(48)+GR$(49)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(50)+GR$(51)
9072 CL$=GR$(24)+GR$(24)
9074 CLB$=GR$(24)+GR$(24)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(24)+GR$(24)
9076 LOCATEL,M:COLOR1:PRINTGUN$
9078 LOCATEPAX,PAY:COLOR7:PRINTPA$
9080 LOCATEPBX,PBY:COLOR7:PRINTPB$
9082 LOCATEPCX,PCY:COLOR7:PRINTPC$
9084 LOCATEPDX,PDY:COLOR7:PRINTPD$
9086 LOCATEPEX,PEY:COLOR7:PRINTPE$
9088 LOCATE0,1:COLOR7:PRINTVIE
9100 FOR I=1 TO 3
9102 LOCATEPCX,PCY:COLOR7:PRINTPCBIS$:PLAY"O1T10A9LAP
9104 LOCATEPCX,PCY:COLOR7:PRINTPC$
9106 NEXT I
9108 LOCATEPDX,PDY:COLOR4:PRINTPD$
9110 LOCATEPBX,PBY:COLOR4:PRINTPB$
9112 FOR U=1 TO INT(15*RND(1))+10
9114 E$=INKEY$:IF VIE=0 THEN GOTO 3100
9116 IF PC=0 AND PD=0 AND PE=0 THEN GOTO9244
9118 IF E$="E" THEN GOTO9180
9120 IF E$="Q"THEN GOTO9226
9122 IF E$="D" THEN GOTO 9236
9124 NEXT U
9126 RM=INT(2*RND(1))+1
9128 IF RM=1 THEN LOCATEPCX,PCY:COLOR7:PRINTPCBIS$:PLAY"O1T10A9LAP":VIE=VIE-1:COLOR7:LOCATE0,1:PRINTVIE:LOCATEPCX,PCY:COLOR7:PRINTPC$:GOTO9112 ELSE IF RM=2 THEN PAC=INT(5*RND(1))+1
9130 IF PA=0 AND PB=0 AND PD=0 AND PE=0 THEN GOTO 9126
9132 IF PAC=1 AND PA=0 THEN GOTO9128 ELSE IF PAC=1 AND PA>0 THEN LOCATEPAX,PAY:COLOR4:PRINTPA$
9134 IF PB>0 THEN LOCATEPBX,PBY:COLOR7:PRINTPB$
9136 IF PD>0 THEN LOCATEPDX,PDY:COLOR7:PRINTPD$
9138 IF PE>0 THEN LOCATEPEX,PEY:COLOR7:PRINTPE$
9140 IF PAC=1 AND PA>0 THEN GOTO9112
9142 IF PAC=2 AND PB=0 THEN GOTO9128 ELSE IF PAC=2 AND PB>0 THEN LOCATEPBX,PBY:COLOR4:PRINTPB$
9144 IF PA>0 THEN LOCATEPAX,PAY:COLOR7:PRINTPA$
9146 IF PD>0 THEN LOCATEPDX,PDY:COLOR7:PRINTPD$
9148 IF PE>0 THEN LOCATEPEX,PEY:COLOR7:PRINTPE$
9150 IF PAC=2 AND PB>0 THEN GOTO9112
9152 IF PAC=3 AND PD=0 THEN GOTO9128 ELSE IF PAC=3 AND PD>0 THEN LOCATEPDX,PDY:COLOR4:PRINTPD$
9154 IF PB>0 THEN LOCATEPBX,PBY:COLOR7:PRINTPB$
9156 IF PA>0 THEN LOCATEPAX,PAY:COLOR7:PRINTPA$
9158 IF PE>0 THEN LOCATEPEX,PEY:COLOR7:PRINTPE$
9160 IF PAC=3 AND PD>0 THEN GOTO9112
9162 IF PAC=4 AND PE=0 THEN GOTO9128 ELSE IF PAC=4 AND PE>0 THEN LOCATEPEX,PEY:COLOR4:PRINTPE$
9164 IF PB>0 THEN LOCATEPBX,PBY:COLOR7:PRINTPB$
9166 IF PD>0 THEN LOCATEPDX,PDY:COLOR7:PRINTPD$
9168 IF PA>0 THEN LOCATEPAX,PAY:COLOR7:PRINTPA$
9170 IF PAC=4 AND PE>O THEN9112
9172 IF PAC=5 AND PB>0 THEN LOCATEPBX,PBY:COLOR7:PRINTPB$
9174 IF PAC=5 AND PA>0 THEN LOCATEPAX,PAY:COLOR7:PRINTPA$
9176 IF PAC=5 AND PD>0 THEN LOCATEPDX,PDY:COLOR7:PRINTPD$
9178 IF PAC=5 AND PE>0 THEN LOCATEPEX,PEY:COLOR7:PRINTPE$
9180 LOCATEL,M-2:COLOR3:PLAY"T3A3L4DODO#RERE#MIFAFA#SOSO#":PRINTFIR$
9182 LOCATEL,M-2:PRINTCL$
9184 FOR Z =1 TO 16
9186 N=16-Z:B=L+1
9188 LOCATEB,N:COLOR2:PRINTBAL$
9190 IF B=10 AND PA=0 OR B=11 AND PA=0 OR B=12 AND PA=0 OR B=13 AND PA=0 THEN LOCATEB,N:PRINTGR$(24):GOTO9112
9192 IF B=10 AND PAC=1 OR B=11 AND PAC=1OR B=12 AND PAC=1 OR B=13 AND PAC=1 THEN LOCATEB,N:PRINTGR$(24):GOTO9112
9194 IF B=10 AND PA>0 OR B=11 AND PA>0 OR B=12 AND PA>0 OR B=13 AND PA>0 THEN PA=PA-1:LOCATEB,N:PRINTGR$(24):LOCATEPAX,PAY:COLOR1:PRINTPA$:PLAY"T4O2DOP":LOCATEPAX,PAY:COLOR7:PRINTPA$:GOSUB9246:GOTO9112
9196 IF B=26 AND PE=0 OR B=27 AND PE=0 OR B=28 AND PE=0 OR B=29 AND PE=0 THEN LOCATEB,N:PRINTGR$(24):GOTO9112
9198 IF B=26 AND PAC=4 OR B=27 AND PAC=4 OR B=28 AND PAC=4 OR B=29 AND PAC=4 THEN LOCATEB,N:PRINTGR$(24):GOTO9112
9200 IF B=26 AND PE>0 OR B=27 AND PE>0 OR B=28 AND PE>0 OR B=29 AND PE>0 THEN PE=PE-1:LOCATEB,N:PRINTGR$(24):LOCATEPEX,PEY:COLOR1:PRINTPE$:PLAY"T4O2DOP":LOCATEPEX,PEY:COLOR7:PRINTPE$:GOSUB9248:GOTO9112
9202 IF B=14 AND PB=0 OR B=15 AND PB=0 OR B=16 AND PB=0 OR B=17 AND PB=0 THEN LOCATEB,N:PRINTGR$(24):GOTO9112
9204 IF B=14 AND PAC=2 OR B=15 AND PAC=2OR B=16 AND PAC=2 OR B=17 AND PAC=2 THEN LOCATEB,N:PRINTGR$(24):GOTO9112
9208 IF B=14 AND PB>0 OR B=15 AND PB>0 OR B=16 AND PB>0 OR B=17 AND PB>0 THEN PB=PB-1:LOCATEB,N:PRINTGR$(24):LOCATEPBX,PBY:COLOR1:PRINTPB$:PLAY"T4O2DOP":LOCATEPBX,PBY:COLOR7:PRINTPB$:GOSUB9252:GOSUB9250:GOTO9112
9210 IF B=22 AND PD=0 OR B=23 AND PD=0 OR B=24 AND PD=0 OR B=25 AND PD=0 THEN LOCATEB,N:PRINTGR$(0):GOTO9112
9212 IF B=22 AND PAC=3 OR B=23 AND PAC=3 OR B=24 AND PAC=3 OR B=25 AND PAC=3 THEN LOCATEB,N:PRINTGR$(0):GOTO9112
9214 IF B=22 AND PD>0 OR B=23 AND PD>0 OR B=24 AND PD>0 OR B=25 AND PD>0 THEN PD=PD-1:LOCATEB,N:PRINTGR$(24):LOCATEPDX,PDY:COLOR1:PRINTPD$:PLAY"T4O2DOP":LOCATEPDX,PDY:COLOR7:PRINTPD$:GOSUB9254:GOSUB9250:GOTO9112
9216 IF B=18 AND PC=0 OR B=19 AND PC=0 OR B=20 AND PC=0 OR B=21 AND PC=0 THEN LOCATEB,N:PRINTGR$(0):GOTO9112
9218 IF B=18AND PC>0 OR B=19 AND PC>0 OR B=20 AND PC>0 OR B=21 AND PC>0 THEN PC=PC-1:LOCATEB,N:PRINTGR$(24):LOCATEPCX,PCY:COLOR1:PRINTPC$:PLAY"T4O2DOP":LOCATEPCX,PCY:COLOR7:PRINTPC$:GOTO9112
9220 LOCATEB,N:PRINTGR$(0)
9222 NEXT Z
9224 GOTO 9124
9226 IF L=10 THEN GOTO 9124 ELSE GOTO9228
9228 LOCATEL,M:PRINTCLB$
9230 L=L-2
9232 LOCATEL,M:COLOR1:PRINTGUN$
9234 GOTO 9124
9236 IF L=30 THEN GOTO 9124 ELSE GOTO9238
9238 LOCATEL,M:PRINTCLB$
9240 L=L+2
9242 LOCATEL,M:COLOR1:PRINTGUN$
9243 GOTO9124
9244 LOCATEPCX,PCY:COLOR7:PRINTPCBIS$:PLAY"O1T35L50LAP":LOCATEPCX,PCY:PRINTCLB$:GOTO7100
9246 IF PA=0 THEN PB=PB+6:LOCATEPBX,PBY:COLOR7:PRINTPB$:LOCATEPAX,PAY:PRINTCLB$:GOTO9112 ELSE RETURN
9248 IF PE=0 THEN PD=PD+6:LOCATEPDX,PDY:COLOR7:PRINTPD$:LOCATEPEX,PEY:PRINTCLB$:GOTO9112 ELSE RETURN
9250 IF PA=0 AND PB=0 AND PD=0 AND PE=0 THEN PC=PC+11:GOTO9112 ELSE RETURN
9252 IF PB=1 THEN LOCATEPBX,PBY:PRINTCLB$:PB=PB-1:RETURN ELSE RETURN
9254 IF PD=1 THEN LOCATEPDX,PDY:PRINTCLB$:PD=PD-1:RETURN ELSE RETURN
20500 CLS:SCREEN,0,0:LOCATE0,0,0
20501 BOXF(32,56)-(40,176),1:BOXF(8,144)-(64,152),1
20502 LINE(0,40)-(315,40),7:LINE(80,40)-(80,200),7
20503 LINE(160,40)-(160,200),7:LINE(240,40)-(240,200),7
20504 LINE(160,184)-(120,72),1:LINE(120,72)-(208,144),1
20505 LINE(208,144)-(112,144),1:LINE(112,144)-(200,72),1
20506 LINE(200,72)-(160,184),1
20507 BOXF(280,56)-(288,176),1:BOXF(256,144)-(312,152),1
20508 LINE(128,16)-(128,32),3:LINE(128,16)-(136,32),3:LINE(136,32)-(136,16),3
20509 LINE(120,16)-(112,24),3:LINE(112,24)-(120,24),3:LINE(112,24)-(120,32),3
20510 LINE(144,16)-(160,16),3:LINE(152,16)-(152,32),3
20511 LINE(168,32)-(168,16),3:LINE(168,16)-(176,24),3
20512 LINE(176,24)-(168,24),3:LINE(168,24)-(176,32),3
20513 LINE(192,16)-(184,24),3:LINE(184,24)-(192,24),3:LINE(184,24)-(192,32),3
20514 LINE(200,32)-(200,16),3:LINE(200,16)-(208,24),3
20515 LINE(208,24)-(200,24),3:LINE(200,24)-(208,32),3
20600 FOR I=1 TO 2
20601 PLAY"O4T21L23FAMIFARE"
20602 NEXT I
21000 RETURN
22000 CLS:SCREEN1,0,0:LOCATE0,0,0:ATTRB0,0
22005 LOCATE0,3:PRINT"TU INCARNES ALIGARD LE SLAYER OF D'EVILS"
22006 PRINT
22007 PRINT"TA MISSION , LIBERER L'AGENT NOSMOHT    DETENU DANS L'EVIL DUNGEON"
22009 PRINT"QUI EST COMMANDE PAR VASSAGO LE BOURREAU INFERNAL"
22010 PRINT
22011 PRINT"TU VAS FAIRE FACE A UNE HORDE DE DEMONS MAIS AUSSI A DE NOMBREUX PIEGES DANS     L'EVIL DUNGEON."
22015 PRINT"POUR CELA TU SERAS EQUIPE DE TON ARME LA DEMON ERASER ET DE TON COURAGE"
22016 PRINT
22017 PRINT"BONNE CHANCE!"
22020 FOR F=1 TO 3
22021 PLAY"O2T3L24REREREREPREREREREP"
22022 PLAY"L40T4REMIFASO"
22023 PLAY"O2T3L24REREREREPREREREREP"
22024 PLAY"L40T4SOFAMI"
22025 NEXTF
22200 RETURN
23000 CLS:SCREEN1,0,0:LOCATE0,0,0:ATTRB0,0
23005 LOCATE0,3:PRINT"MMM..JE ME PRESENTE, JE SUIS VASSAGO"
23008 PRINT"LE MAITRE DU LIEU, IL ME SERAIT AGREABLEDE TECRASER COMME UNE MOUCHE MAINTENANT"
23010 PRINT"MAIS,JE VAIS JOUER AVEC TOI!"
23011 PRINT
23015 PRINT"ALORS, JE VAIS TE DONNER QUELQUES       CONSEILS"
23016 PRINT
23020 PRINT"POUR COMMENCER, JE VAIS TE SIMPLIFIER LA TACHE, POUR CHANGER D'ECRAN APPUIE SUR N'IMPORTE QUELLE TOUCHE"
23022 R$=INKEY$:IF R$="" THEN23022
23028 CLS:PRINT"BIEN! TU AS L'AIR D'AVOIR COMPRIS!!"
23030 PRINT:PRINT"DANS LE DONJON IL TE SERA,IMPOSSIBLE DE REVENIR EN ARRIERE, CHACUN DE TES CHOIX SERA DEFFINITIF..."
23035 PRINT:PRINT"CONTRE MES AMIS, TA MAIN GAUCHE TE      SERVIRA,IL TE FAUDRA APPUYER SUR LA     TOUCHE":PRINT:PRINT"(E) POUR TIRER":PRINT"(D) POUR ALLER A DROITE":PRINT"(Q) POUR ALLER A GAUCHE."
23040 PRINT:PRINT"POURQUOI LA MAIN GAUCHE? CAR C'EST LA   MAIN DU COEUR ET UN PEU DE DOUCEUR DANS MON DONJON NE FERA PAS DE MAL..."
23045 R$=INKEY$:IF R$="" THEN 23045
23050 CLS:PRINT:PRINT"POUR ME RENCONTRER IL TE FAUDRA         TRAVERSER MON DONJON ET SI TU ARRIVES   (PAR MIRACLE..)A LA PORTE DE MA SALLE,  N'OUBLIE PAS DE FRAPPER AVANT D'ENTRER."
23060 PRINT:PRINT:PRINT:PRINT"JE TE SOUHAITE UNE TRES BELLE MORT."
23065 R$=INKEY$:IF R$="" THEN 23065 ELSE RETURN
25000 DOL$=CHR$(8)
25001 DEFGR$(1)=1,3,5,10,10,10,10,18
25002 DEFGR$(2)=0,128,64,32,32,32,48,48
25003 DEFGR$(3)=18,17,23,63,127,255,255,255
25004 DEFGR$(4)=16,16,208,248,252,254,254,254
25005 GUN$=GR$(1)+GR$(2)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(3)+GR$(4)
25010 DEFGR$(20)=20,148,106,39,15,59,79,155
25015 DEFGR$(21)=66,36,85,190,14,229,252,236
25020 DEFGR$(22)=191,175,161,127,71,219,242,68
25025 DEFGR$(23)=220,242,225,255,12,227,24,6
25030 MO$=GR$(20)+GR$(21)+CHR$(10)+DOL$+DOL$+DOL$+DOL$+GR$(22)+GR$(23)
25035 RETURN
30000 CLS:SCREEN0,1,0:ATTRB0,0:LOCATE0,0,O
30005 LOCATE1,4
30010 PRINT"BRAVO!!! TU AS TROUVE LE SECRET"
30015 PRINT:PRINT"BON A SAVOIR, EVIL DUNGEON EST LA SUITE DE NOSMOHT"
30020 PRINT"ET IL AURA FALLU 3 MOIS POUR FAIRE EVIL DUNGEON"
30030 PRINT"BONNE CHANCE DANS LE DONJON!"
30032 PRINT:PRINT:PRINT:PRINT:PRINT
30040 PRINT" JE T'ENVOI DIRECTEMENT AU BOSS"
30045 R$=INKEY$:IF R$="" THEN 30045 ELSE GOTO 9000

Si vous ne souhaitez pas utiliser l'émulateur dcmoto, vous pouvez aussi utiliser cet exécutable Windows qui lance directement Evil Dungeon.
L'avantage est sa petite taille (82 Ko) par rapport à dcmoto.exe (885 Ko) et par rapport à EvilDungeon.exe (3233 Ko).

evil-dungeon.zip

(77.81 Kio) Téléchargé 10 fois

[Squeepty]

Ok, grand merci Sam et Daniel pour avoir mene l'enquete !

J'ai me rappelle avoir vu cette mode sur des sites pas trop recommendables ou des roms de jeux sont distribue comme des "applications standalone" natives pour windows ou Mac alors que en fait il sagit d'archives incluant l'emulateur..

Mon opinion est que les jeux devraient être distribue sur un format independent de tout emulateur et system sur lequel l'emulateur est execute (.k7 par example)..

Mais bon donc, comme je n'ai pas de PC je ne peux pas utiliser DCMoto pour generer un fichier au format .k7 a partir du code basic qui a ete partage...

[Daniel]

Dans Linux et MacOS on peut utiliser Wine pour lancer l'émulateur dcmoto, tous les utilitaires associés et l'exécutable pour Windows evil-dungeon.exe : https://www.winehq.org/

Version .k7 d'Evil Dungeon :

evil-dungeon_mo5k7.zip

(11.65 Kio) Téléchargé 11 fois

[Fool-DupleX]

Intéressant, tous ces GOSUB. Et le prequel qui s'appelle Nosmoht.

La meilleure vengeance est probablement de diffuser le listing en clair et la version K7, ce qui a été fait. Merci Daniel.

[__sam__]

Ah! Nosmoht écrit à l'envers, forcément

[Squeepty]

Merci Daniel pour la version k7

Je vais me mettre a DCMoto, j'ai un setup dosbox avec W95 installe sur mon Mac..