VF terminée
This commit is contained in:
Antoine Vignau
parent
bf9a53f9c1
commit
ca6876e4cd
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -1,3 +1 @@
|
|||
dracula=Type(06),AuxType(1000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
lemonde=Type(06),AuxType(1000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
iigs=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
RetourDrGenius=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
|
|
|
|||
|
|
@ -13,24 +13,24 @@ strVOUSDETENEZ
|
|||
asc 'Vous avez en votre possession : '00
|
||||
|
||||
strVOUSRIEN
|
||||
asc 'Vous ne devez pas etre fatigue, vous'0D
|
||||
asc 'Vous ne devez pas '90'tre fatigu'8e', vous'0D
|
||||
asc 'n'27'avez rien sur vous'00
|
||||
|
||||
strPOINT
|
||||
asc '.'00
|
||||
|
||||
strVOUSLAVEZ
|
||||
asc 0D'Vous avez deja cela... Etourdi !'0D00
|
||||
asc 0D'Vous avez d'8e'j'88' cela... Etourdi !'0D00
|
||||
|
||||
strNOTOWNED
|
||||
asc 0D'Je ne savais pas qu'27'on pouvait poser'0D
|
||||
asc 'ce qu'27'on ne possede pas...'0D00
|
||||
asc 'ce qu'27'on ne poss'8f'de pas...'0D00
|
||||
|
||||
strDACCORD
|
||||
asc 'D'27'accord'00
|
||||
|
||||
strILFAITNOIR
|
||||
asc 'La salle n'27'est pas eclairee.'0D00
|
||||
asc 'La salle n'27'est pas '8e'clair'8e'e.'0D00
|
||||
|
||||
strVOSYEUX asc 'Vos yeux ne voient plus rien.'0D00
|
||||
|
||||
|
|
@ -56,24 +56,24 @@ strEXCLAM
|
|||
|
||||
strREPLAY asc 0D'Voulez-vous rejouer ? '00
|
||||
|
||||
strPERDU asc 0d'Comme je le pensais, vous vous etes'0d
|
||||
strPERDU asc 0d'Comme je le pensais, vous vous '90'tes'0d
|
||||
asc 'stupidement fait avoir, et votre cadavre'
|
||||
asc '(ou ce qu'27'il en reste) reposera a jamais'
|
||||
asc '(ou ce qu'27'il en reste) reposera '88' jamais'
|
||||
asc 'dans l'27'espace...'0d00
|
||||
|
||||
strGAGNE asc 'D'27'accord,'0d
|
||||
asc 'vous m'27'avez battu, mais c'27'est un coup'0d
|
||||
asc 'de chance, et la prochaine fois ma'0d
|
||||
asc 'vengeance sera terrible.'0d
|
||||
asc 'Prenez peur, car le jour ou je serai'0d
|
||||
asc 'a nouveau la, ma puissance n'27'aura plus'0d
|
||||
asc 'Prenez peur, car le jour o'9d' je serai'0d
|
||||
asc 88' nouveau l'88', ma puissance n'27'aura plus'0d
|
||||
asc 'de limites, alors l'27'heure de la souf-'0d
|
||||
asc '-france aura sonne...'0d
|
||||
asc '-france aura sonn'8e'...'0d
|
||||
asc ' Dr GENIUS.'0d00
|
||||
|
||||
strINTRO asc ' LE RETOUR DU Dr GENIUS'0d
|
||||
asc ' Vous avez 20 minutes et'0d
|
||||
asc ' 400 unites de force pour'0d
|
||||
asc ' 400 unit'8e's de force pour'0d
|
||||
asc ' remplir votre mission...'00
|
||||
|
||||
*-----------------------------------
|
||||
|
|
@ -262,24 +262,24 @@ tblO$ da $bdbd
|
|||
da O$11,O$12,O$13,O$14,O$15,O$16,O$17,O$18,O$19
|
||||
|
||||
O$1 asc 'Un pistolet laser'00
|
||||
O$2 asc 'Des gants ensanglantes'00
|
||||
O$3 asc 'Une bombe a retardement'00
|
||||
O$2 asc 'Des gants ensanglant'8e's'00
|
||||
O$3 asc 'Une bombe '88' retardement'00
|
||||
O$4 asc 'Un tube'00
|
||||
O$5 asc 'Une glaciere'00
|
||||
O$6 asc 'Une boite vide'00
|
||||
O$7 asc 'Une boite pleine d'27'eau'00
|
||||
O$5 asc 'Une glaci'8f're'00
|
||||
O$6 asc 'Une bo'94'te vide'00
|
||||
O$7 asc 'Une bo'94'te pleine d'27'eau'00
|
||||
O$8 asc 'Un vaporisateur'00
|
||||
O$9 asc 'Un magnetophone'00
|
||||
O$9 asc 'Un magn'8e'tophone'00
|
||||
O$10 asc 'Un compteur Geiger'00
|
||||
O$11 asc 'Un ventilateur'00
|
||||
O$12 asc 'Un casque'00
|
||||
O$13 asc 'Un casque enfile'00
|
||||
O$14 asc 'Des echasses'00
|
||||
O$13 asc 'Un casque enfi'8e00
|
||||
O$14 asc 'Des '8e'chasses'00
|
||||
O$15 asc 'Des containers'00
|
||||
O$16 asc 'Une radiocommande'00
|
||||
O$17 asc 'Des lunettes de soleil'00
|
||||
O$18 asc 'Une tronconneuse'00
|
||||
O$19 asc 'La glaciere avec le tube a l'27'interieur'00
|
||||
O$18 asc 'Une tron'8d'onneuse'00
|
||||
O$19 asc 'La glaci'8f're avec le tube '88' l'27'int'8e'rieur'00
|
||||
|
||||
*
|
||||
* Les directions
|
||||
|
|
@ -570,66 +570,66 @@ V$201 str 'MUSI'
|
|||
* '0123456789012345678901234567890123456789'
|
||||
* '----------------------------------------'
|
||||
|
||||
str4010 asc 'Une boule d'27'acier tombee du plafond'0d
|
||||
asc 'vient de s'27'ecraser sur votre casque.'00
|
||||
str4010 asc 'Une boule d'27'acier tomb'8e'e du plafond'0d
|
||||
asc 'vient de s'278e'craser sur votre casque.'00
|
||||
str4020 asc 'Une boule d'27'acier vient de tomber du'0d
|
||||
asc 'plafond, vous avez le crane defonce...'00
|
||||
asc 'plafond, vous avez le cr'89'ne d'8e'fonc'8e'...'00
|
||||
str4030 asc 'Vous venez de tomber dans une flaque d'270d
|
||||
asc 'acide, ca crepite...'00
|
||||
str4040 asc 'Vous venez de rentrer dans le reacteur'0d
|
||||
asc 'acide, '8d'a cr'8e'pite...'00
|
||||
str4040 asc 'Vous venez de rentrer dans le r'8e'acteur'0d
|
||||
asc 'atomique du vaisseau..!'00
|
||||
str4050 asc 'La porte ne veut pas s'27'ouvrir'00
|
||||
str4060 asc 'Un peu de memoire... Comment etes-vous'0d
|
||||
asc 'entre ?'00
|
||||
str4070 asc 'Je ne vous savais pas assez muscle pour '
|
||||
str4060 asc 'Un peu de m'8e'moire... Comment '90'tes-vous'0d
|
||||
asc 'entr'8e' ?'00
|
||||
str4070 asc 'Je ne vous savais pas assez muscl'8e' pour '
|
||||
asc 'soulever une tonne.'00
|
||||
str4080 asc 'Vous avez raison, la vue c'27'est la vie !'00
|
||||
str4090 asc 'Les gants etaient radioactifs, vous'0d
|
||||
str4090 asc 'Les gants '8e'taient radioactifs, vous'0d
|
||||
asc 'perdez la vue.'00
|
||||
str4100 asc 'Vous l'27'avez deja sur vous.'00
|
||||
str4100 asc 'Vous l'27'avez d'8e'j'88' sur vous.'00
|
||||
str4110 asc 'Impossible, je ne vois pas ceci ici.'00
|
||||
str4120 asc 'Vous vous arrachez la tete en tombant'0d
|
||||
asc 'des echasses.'00
|
||||
str4120 asc 'Vous vous arrachez la t'90'te en tombant'0d
|
||||
asc 'des '8e'chasses.'00
|
||||
str4130 asc 'Des monstres sortis des containers vous '
|
||||
asc 'devorent tout cru !'00
|
||||
asc 'd'8e'vorent tout cru !'00
|
||||
str4140 asc 'L'27'air frais vous fait du bien. Dommage'0d
|
||||
asc 'que l'27'helice vous ait coupe la tete.'00
|
||||
str4150 asc 'Qu'27'est ce que vous voulez boire ???'00
|
||||
asc 'que l'27'h'8e'lice vous ait coup'8e' la t'90'te.'00
|
||||
str4150 asc 'Qu'27'est-ce que vous voulez boire ???'00
|
||||
str4160 asc 'Ah oui...l'27'eau est bonne.'00
|
||||
str4170 asc 'Il n'27'y a pas d'27'eau ici.'00
|
||||
str4180 asc 'L'27'eau etait contaminee par les boites'0d
|
||||
str4180 asc 'L'27'eau '8e'tait contamin'8e'e par les bo'94'tes'0d
|
||||
asc 'radioactives.'00
|
||||
str4190 asc 'Vous retrecissez..petit..petit..et une'0d
|
||||
asc 'araignee vous mange !'00
|
||||
str4200 asc 'Ca coupe une tronconneuse, comme le'0d
|
||||
asc 'prouve votre tete au sol.'00
|
||||
str4190 asc 'Vous r'8e'trecissez..petit..petit..et une'0d
|
||||
asc 'araign'8e'e vous mange !'00
|
||||
str4200 asc 'Ca coupe une tron'8d'onneuse, comme le'0d
|
||||
asc 'prouve votre t'90'te au sol.'00
|
||||
str4210 asc 'Vous glissez et tombez dans la flaque.'0d
|
||||
asc 'L'27'acide crepite.'00
|
||||
str4220 asc 'Il n'27'y a pas ici de porte verrouillee'
|
||||
asc 'L'27'acide cr'8e'pite.'00
|
||||
str4220 asc 'Il n'27'y a pas ici de porte verrouill'8e'e'
|
||||
str4230 asc 'En secouant le tube pour l'27'ouvrir,'0d
|
||||
asc 'la nitroglycerine a explose.'00
|
||||
asc 'la nitroglyc'8e'rine a explos'8e'.'00
|
||||
str4240 asc 'Pourquoi ouvrir un robinet qui ne ferme '
|
||||
asc 'pas !'00
|
||||
str4250 asc 'Le robinet ne se ferme pas.'00
|
||||
str4260 asc ''00
|
||||
str4270 asc 'La bibliotheque n'27'a pas de porte...'00
|
||||
str4270 asc 'La biblioth'8f'que n'27'a pas de porte...'00
|
||||
str4280 asc 'Il n'27'y a rien de mieux sur les autres'0d
|
||||
asc 'pages.'00
|
||||
str4290 asc '...c'27'est toi J.R qui a pris ma femme et '
|
||||
asc 'mon petrole, tu es infame.'00
|
||||
str4300 asc 'Collection Arlepin, tout un reve'0d
|
||||
asc 'd'27'evasion.'00
|
||||
str4310 asc '...et c'27'est moi Genius le grand qui crea'
|
||||
asc 'mon p'8e'trole, tu es inf'89'me.'00
|
||||
str4300 asc 'Collection Arlepin, tout un r'90've'0d
|
||||
asc 'd'278e'vasion.'00
|
||||
str4310 asc '...et c'27'est moi Genius le grand qui cr'8e'a'
|
||||
asc 'un superbe manoir...'00
|
||||
str4320 asc '1031141221242713182310291430271214232927102110272718311427103023141427142324303114212114'00
|
||||
str4321 asc ' <tapez une touche> '00
|
||||
str4330 asc 'Vous l'27'avez deja fait.'00
|
||||
str4330 asc 'Vous l'27'avez d'8e'j'88' fait.'00
|
||||
str4340 asc 'Le laser vient d'27'exploser.'00
|
||||
str4350 asc 'Il ne se passe rien.'00
|
||||
str4360 asc 'Le sas s'27'ouvre, vous passez dans la'0d
|
||||
asc 'salle a cote.'00
|
||||
str4370 asc 'Cela agit sur un contacteur a infrarouge'
|
||||
asc 'qui commande l'27'eclairage.'00
|
||||
asc 'salle '88' c'99't'8e'.'00
|
||||
str4370 asc 'Cela agit sur un contacteur '88' infrarouge'
|
||||
asc 'qui commande l'278e'clairage.'00
|
||||
str4380 asc 'Allons enfants de la patrie...'00
|
||||
str4390 asc 'Vous entendez : '27'Le laser ouvrira la'0d
|
||||
asc 'porte'2700
|
||||
|
|
@ -637,122 +637,122 @@ str4400 asc 'Les lunettes sont trop fortes, vous'0d
|
|||
asc 'voyez trouble.'00
|
||||
str4410 asc 'La salle est radioactive.'00
|
||||
str4420 asc 'Vous avez quelque chose pour ?'00
|
||||
str4430 asc 'C'27'est votre probleme, mais le temps'0d
|
||||
str4430 asc 'C'27'est votre probl'8f'me, mais le temps'0d
|
||||
asc 'passe.'00
|
||||
str4440 asc 'Avez-vous si sommeil que ca ?'00
|
||||
str4450 asc 'Et puis quoi encore !'00
|
||||
str4460 asc 'Faites un plan...'00
|
||||
str4470 asc 'Vous entendez le ronronnement des'0d
|
||||
asc 'moteurs.'00
|
||||
str4480 asc 'J'27'etais sur que vous etiez un lache.'00
|
||||
str4490 asc 'Vous passez la tete a travers un sas,'00
|
||||
str4480 asc 'J'278e'tais s'9e'r que vous '8e'tiez un l'89'che.'00
|
||||
str4490 asc 'Vous passez la t'90'te '88' travers un sas,'00
|
||||
str4491 asc 'et appuyez sur le bouton de fermeture'00
|
||||
str4500 asc 'Quel bouton ?'00
|
||||
str4510 asc 'Les boutons ne fonctionnent pas car'0d
|
||||
asc 'l'27'ordinateur central les controle.'00
|
||||
str4520 asc 'Le systeme automatique est deregle, il'0d
|
||||
asc 'met du gaz carbonique a la place de'0d
|
||||
asc 'l'27'oxygene.'00
|
||||
asc 'l'27'ordinateur central les contr'99'le.'00
|
||||
str4520 asc 'Le syst'8f'me automatique est d'8e'r'8e'gl'8e', il'0d
|
||||
asc 'met du gaz carbonique '88' la place de'0d
|
||||
asc 'l'27'oxyg'8f'ne.'00
|
||||
str4530 asc 'Vous respirez un grand coup.'00
|
||||
str4540 asc 'Que voulez-vous respirer ? Il n'27'y a plus'
|
||||
asc 'd'27'oxygene.'00
|
||||
asc 'd'27'oxyg'8f'ne.'00
|
||||
|
||||
str4550 asc 'Vous avez deux essais pour'00
|
||||
str4552 asc 'entrer le mot de passe.'00
|
||||
str4553 asc 'FAUX!'00
|
||||
str4554 asc 'Encore rate. L'27'ordinateur vous explose a'
|
||||
str4554 asc 'Encore rat'8e'. L'27'ordinateur vous explose '88
|
||||
asc 'la figure.'00
|
||||
str4556 asc 'Mot de passe '00
|
||||
str4558 asc 'Exact, vous etes perspicace !'00
|
||||
str4558 asc 'Exact, vous '90'tes perspicace !'00
|
||||
str4559_1 asc 'UIN LOI QRU ILD ESP ECU TAS'00
|
||||
str4559_2 asc 'ASU VIE RAL HOU MEA NOI THE'00
|
||||
str4559_3 asc 'Le mot de passe pour le'00
|
||||
str4559_4 asc 'retour est : '00
|
||||
|
||||
str4560 asc 'C'27'est d'27'accord.'00
|
||||
str4570 asc 'Il etait temps, vous alliez mourir.'00
|
||||
str4580 asc 'Vous mourrez deshydrate.'00
|
||||
str4570 asc 'Il '8e'tait temps, vous alliez mourir.'00
|
||||
str4580 asc 'Vous mourrez d'8e'shydrat'8e'.'00
|
||||
str4590 asc ''00
|
||||
str4600 asc ''00
|
||||
str4610 asc 'Le sas se referme derriere vous,'0d
|
||||
asc 'le tableau de controle s'27'allume et'0d
|
||||
str4610 asc 'Le sas se referme d'8f'rriere vous,'0d
|
||||
asc 'le tableau de contr'99'le s'27'allume et'0d
|
||||
asc 'l'27'ordinateur de bord vous demande le'0d
|
||||
asc 'mot de passe pour le retour'00
|
||||
str4615 asc 'Le vaisseau de secours s'27'eloigne,'0d
|
||||
str4615 asc 'Le vaisseau de secours s'278e'loigne,'0d
|
||||
asc 'au loin vous voyez Genius qui pleure'0d
|
||||
asc 'derriere un hublot'00
|
||||
asc 'derri'8f're un hublot'00
|
||||
str4616 asc ' VOUS AVEZ GAGNE'00
|
||||
str4618_1 asc 'Mais, que se passe-t-il, vous avez du'0d
|
||||
str4618_1 asc 'Mais, que se passe-t-il, vous avez d'9e0d
|
||||
asc 'vous tromper de mot de passe, votre'0d
|
||||
asc 'vaisseau de poche fonce sur le soleil.'00
|
||||
str4618_2 asc 'Vous venez de realiser que Genius'0d
|
||||
str4618_2 asc 'Vous venez de r'8e'aliser que Genius'0d
|
||||
asc 'pleurait de JOIE...!'00
|
||||
|
||||
str4620 asc 'La soucoupe a explose au decollage.'00
|
||||
str4620 asc 'La soucoupe a explos'8e' au d'8e'collage.'00
|
||||
str4630 asc 'Energie restante :'00
|
||||
str4640 asc 'Petit drole... Le chronometre est'0d
|
||||
asc 'affiche en permanence'00
|
||||
str4640 asc 'Petit dr'99'le... Le chronom'8f'tre est'0d
|
||||
asc 'affich'8e' en permanence'00
|
||||
str4650 asc 0d'Le temps que vous aviez pour votre'0d
|
||||
asc 'mission est ecoule, vous avez echoue.'00
|
||||
asc 'mission est '8e'coul'8e', vous avez '8e'chou'8e'.'00
|
||||
str4660 asc 'Votre trajectoire est bonne, pourquoi la'
|
||||
asc 'corriger ?'00
|
||||
str4670 asc 'Le mur au nord coulisse, vous avancez'0d
|
||||
asc 'dans cette salle.'00
|
||||
str4680 asc 'Quel livre ?'00
|
||||
str4690 asc 'Au dos du boitier est marque :'00
|
||||
str4690 asc 'Au dos du bo'94'tier est marqu'8e' :'00
|
||||
str4692 asc ' '27'PROTEGEZ MOI'A700
|
||||
str4700 asc 'Vous remarquez un boitier de radio-'0d
|
||||
str4700 asc 'Vous remarquez un bo'94'tier de radio-'0d
|
||||
asc 'commande.'00
|
||||
str4710 asc ''00
|
||||
str4720 asc ''00
|
||||
str4730 asc 'Que regardez vous ?'00
|
||||
str4740 asc 0d'Le tube de nitroglycerine vient d'270d
|
||||
asc 'exploser, vous etes pulverise.'00
|
||||
str4750 asc 'La bombe a retardement vient d'270d
|
||||
asc 'exploser, vous etes pulverise.'00
|
||||
str4760 asc 'La bombe a retardement a explose, elle a'
|
||||
asc 'endommage le systeme de chauffage,'0d
|
||||
asc 'vous etes carbonise'00
|
||||
str4770 asc 'La bombe a explose, vous etiez trop pres'
|
||||
asc 'et etes devenu fou...'00
|
||||
str4780 asc 'La bombe a retardement n'27'etait pas assez'
|
||||
str4740 asc 0d'Le tube de nitroglyc'8e'rine vient d'270d
|
||||
asc 'exploser, vous '90'tes pulv'8e'ris'8e'.'00
|
||||
str4750 asc 'La bombe '88' retardement vient d'270d
|
||||
asc 'exploser, vous '90'tes pulv'8e'ris'8e'.'00
|
||||
str4760 asc 'La bombe '88' retardement a explos'8e', elle a'
|
||||
asc 'endommag'8e' le syst'8f'me de chauffage,'0d
|
||||
asc 'vous '90'tes carbonis'8e00
|
||||
str4770 asc 'La bombe a explos'8e', vous '8e'tiez trop pr'8f's'
|
||||
asc 'et '90'tes devenu fou...'00
|
||||
str4780 asc 'La bombe '88' retardement n'278e'tait pas assez'
|
||||
asc 'forte, l'27'ordinateur central n'27'est qu'270d
|
||||
asc 'endommage, il vous fait exploser...'00
|
||||
str4790 asc 'Bravo! L'27'ordinateur central est detruit,'
|
||||
asc 'mais le systeme d'27'oxygenation ne fonc-'0d
|
||||
asc 'endommag'8e', il vous fait exploser...'00
|
||||
str4790 asc 'Bravo! L'27'ordinateur central est d'8e'truit,'
|
||||
asc 'mais le syst'8f'me d'27'oxyg'8e'nation ne fonc-'0d
|
||||
asc '-tionne plus, de plus la trajectoire du'0d
|
||||
asc 'vaisseau a change.'00
|
||||
asc 'vaisseau a chang'8e'.'00
|
||||
str4800 asc 'Vous n'27'avez plus de souffle,'0d
|
||||
asc 'vous etes mort asphyxie.'00
|
||||
str4810 asc 'Vous auriez du corriger la trajectoire,'0d
|
||||
asc 'vous avez percute le soleil.'00
|
||||
asc 'vous '90'tes mort asphyxi'8e'.'00
|
||||
str4810 asc 'Vous auriez d'9e' corriger la trajectoire,'0d
|
||||
asc 'vous avez percut'8e' le soleil.'00
|
||||
str4820 asc 'A force de traverser les salles radio-'0d
|
||||
asc '-actives, vous etes mort contamine.'00
|
||||
asc '-actives, vous '90'tes mort contamin'8e'.'00
|
||||
str4830 asc 0d'Il fait de plus en plus chaud...'00
|
||||
str4840 asc 'L'27'ordinateur vient d'27'exploser!'00
|
||||
str4845 asc 'Vous avez du le laisser allume.'00
|
||||
str4850 asc 'Comment !!! Vous etes aveugle.'00
|
||||
str4840 asc 'L'27'ordinateur vient d'27'exploser !'00
|
||||
str4845 asc 'Vous avez d'9e' le laisser allum'8e'.'00
|
||||
str4850 asc 'Comment !!! Vous '90'tes aveugle.'00
|
||||
str4860 asc 'Vous n'27'aviez pas pris la radiocommande'0d
|
||||
asc 'qui a explose quand le vaisseau a percu-'
|
||||
asc '-te le soleil, son explosion a declenche'
|
||||
asc 'qui a explos'8e' quand le vaisseau a percu-'
|
||||
asc '-te le soleil, son explosion a d'8e'clench'8e
|
||||
asc 'la fin du monde.'00
|
||||
str4870 asc 'Non ! pas de strip-tease.'00
|
||||
str4874 asc 'Vous avez pose tout ce que vous'
|
||||
str4874 asc 'Vous avez pos'8e' tout ce que vous'
|
||||
asc 'transportiez.'00
|
||||
str4880 asc 'Ca ne se demande pas.'00
|
||||
str4890 asc 'Il y a effectivement un ordinateur parmi'
|
||||
asc 'le tableau de controle.'00
|
||||
asc 'le tableau de contr'99'le.'00
|
||||
str4891 asc 'L'27'ordinateur n'27'est pas en fonction.'00
|
||||
str4900 asc 'Sur le laser, vous voyez trois boutons :'
|
||||
asc 'jaune, rouge et bleu.'00
|
||||
str4910 asc 'Vous etes entre dans le desintegrateur'0d
|
||||
str4910 asc 'Vous '90'tes entre dans le d'8e'sint'8e'grateur'0d
|
||||
asc 'de particules...'00
|
||||
str4920 asc 'Vous etes entre dans le vaisseau par le '
|
||||
asc 'sas a l'27'ouest qui ne s'27'ouvre pas de'0d
|
||||
asc 'l'27'interieur.'00
|
||||
str4920 asc 'Vous '90'tes entr'8e' dans le vaisseau par le '
|
||||
asc 'sas '88' l'27'ouest qui ne s'27'ouvre pas de'0d
|
||||
asc 'l'27'int'8e'rieur.'00
|
||||
|
||||
str5500 asc 0d'Etes-vous sur (O/N) ? '00
|
||||
str5500 asc 0d'Etes-vous s'9e'r (O/N) ? '00
|
||||
|
||||
str19050 asc ' Merci d'27'avoir essaye...!'00
|
||||
str19060 asc ' Reveillez-vous , c'27'est fini !'00
|
||||
str19050 asc ' Merci d'27'avoir essay'8e'...!'00
|
||||
str19060 asc ' R'8e'veillez-vous , c'27'est fini !'00
|
||||
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -5,13 +5,26 @@
|
|||
* (c) 2023, Brutal Deluxe Software (Apple II)
|
||||
*
|
||||
|
||||
lst off
|
||||
rel
|
||||
dsk iigs.l
|
||||
|
||||
* Les accents (encore et toujours)
|
||||
*
|
||||
* ˆ 88
|
||||
* ‰ 89
|
||||
* <EFBFBD> 8d
|
||||
* Ž 8e
|
||||
* <EFBFBD> 8f
|
||||
* <EFBFBD> 90
|
||||
* ‘ 91
|
||||
* ” 94
|
||||
* • 95
|
||||
* ™ 99
|
||||
* <EFBFBD> 9d
|
||||
* ž 9e
|
||||
* (c) a9 (only c)
|
||||
* oe cf
|
||||
|
||||
mx %00
|
||||
xc
|
||||
xc
|
||||
rel
|
||||
lst off
|
||||
|
||||
*-----------------------------------
|
||||
* MACROS
|
||||
|
|
@ -171,10 +184,10 @@ okMEM1 sty ptrTEXT
|
|||
pha
|
||||
pha
|
||||
PushWord myID
|
||||
PushWord #refIsPointer
|
||||
PushLong #toolTBL
|
||||
PushWord #refIsResource
|
||||
PushLong #1
|
||||
_StartUpTools
|
||||
PullLong ssREC
|
||||
PullLong ssREC
|
||||
bcc okTOOL
|
||||
|
||||
pha
|
||||
|
|
@ -249,8 +262,8 @@ okSHADOW
|
|||
* IL FAUT JOUER MAINTENANT
|
||||
*-----------------------------------
|
||||
|
||||
jsr initMIDI
|
||||
jsr doSOUNDON
|
||||
* jsr initMIDI
|
||||
* jsr doSOUNDON
|
||||
|
||||
sei
|
||||
PushLong #intTIME
|
||||
|
|
@ -270,8 +283,8 @@ QUIT rep #$30
|
|||
_DelHeartBeat
|
||||
cli
|
||||
|
||||
meQUIT PushWord #refIsPointer
|
||||
PushLong ssREC
|
||||
meQUIT PushWord #refIsHandle
|
||||
PushLong ssREC
|
||||
_ShutDownTools
|
||||
|
||||
meQUIT1 PushWord myID
|
||||
|
|
@ -324,7 +337,7 @@ make64KB pha
|
|||
*-----------------------------------
|
||||
|
||||
saveBACK _HideCursor
|
||||
PushLong #ptrE12000
|
||||
PushLong ptrSCREEN
|
||||
PushLong ptrBACKGND
|
||||
PushLong #32768
|
||||
_BlockMove
|
||||
|
|
@ -337,7 +350,7 @@ saveBACK _HideCursor
|
|||
|
||||
loadBACK _HideCursor
|
||||
PushLong ptrBACKGND
|
||||
PushLong #ptrE12000
|
||||
PushLong ptrSCREEN
|
||||
PushLong #32768
|
||||
_BlockMove
|
||||
rts
|
||||
|
|
@ -583,8 +596,20 @@ cyanPATTERN ds 32,$bb
|
|||
ds 32,$ee
|
||||
whitePATTERN ds 32,$ff
|
||||
|
||||
checkeredPATTERN
|
||||
hex 0F0F0F0F
|
||||
hex F0F0F0F0
|
||||
hex 0F0F0F0F
|
||||
hex F0F0F0F0
|
||||
hex 0F0F0F0F
|
||||
hex F0F0F0F0
|
||||
hex 0F0F0F0F
|
||||
hex F0F0F0F0
|
||||
|
||||
curPATTERN ds 32
|
||||
|
||||
curPENSIZE ds 4
|
||||
|
||||
*----------------------------------- Error messages
|
||||
|
||||
tolSTR1 str 'Error while loading tools'
|
||||
|
|
@ -597,45 +622,45 @@ errSTR2 str ''
|
|||
|
||||
ssREC ds 4
|
||||
|
||||
toolTBL dw $0000 ; flags
|
||||
dw $C000 ; videoMode (shadowing + fast port)
|
||||
dw $0000 ; resFileID
|
||||
ADRL $00000000 ; dPageHandle
|
||||
dw $0011
|
||||
dw $0003 ; Miscellaneous Tool
|
||||
dw $0300
|
||||
dw $0004 ; QuickDraw II
|
||||
dw $0301
|
||||
dw $0005 ; Desk Manager
|
||||
dw $0302
|
||||
dw $0006 ; Event Manager
|
||||
dw $0300
|
||||
dw $0008 ; Sound Tool Set
|
||||
dw $0100
|
||||
dw $000B ; Integer Math Tool Set
|
||||
dw $0200
|
||||
dw $000E ; Window Manager
|
||||
dw $0301
|
||||
dw $000F ; Menu Manager
|
||||
dw $0301
|
||||
dw $0010 ; Control Manager
|
||||
dw $0301
|
||||
dw $0012 ; QuickDraw II Auxiliary
|
||||
dw $0301
|
||||
dw $0014 ; LineEdit Tool Set
|
||||
dw $0301
|
||||
dw $0015 ; Dialog Manager
|
||||
dw $0301
|
||||
dw $0016 ; Scrap Manager
|
||||
dw $0300
|
||||
dw $0017 ; Standard File Tool Set
|
||||
dw $0301
|
||||
dw $001B ; Font Manager
|
||||
dw $0301
|
||||
dw $001C ; List Manager
|
||||
dw $0301
|
||||
dw $001E ; Resource Manager
|
||||
dw $0100
|
||||
*toolTBL dw $0000 ; flags
|
||||
* dw $C000 ; videoMode (shadowing + fast port)
|
||||
* dw $0000 ; resFileID
|
||||
* ADRL $00000000 ; dPageHandle
|
||||
* dw $0011
|
||||
* dw $0003 ; Miscellaneous Tool
|
||||
* dw $0300
|
||||
* dw $0004 ; QuickDraw II
|
||||
* dw $0301
|
||||
* dw $0005 ; Desk Manager
|
||||
* dw $0302
|
||||
* dw $0006 ; Event Manager
|
||||
* dw $0300
|
||||
* dw $0008 ; Sound Tool Set
|
||||
* dw $0100
|
||||
* dw $000B ; Integer Math Tool Set
|
||||
* dw $0200
|
||||
* dw $000E ; Window Manager
|
||||
* dw $0301
|
||||
* dw $000F ; Menu Manager
|
||||
* dw $0301
|
||||
* dw $0010 ; Control Manager
|
||||
* dw $0301
|
||||
* dw $0012 ; QuickDraw II Auxiliary
|
||||
* dw $0301
|
||||
* dw $0014 ; LineEdit Tool Set
|
||||
* dw $0301
|
||||
* dw $0015 ; Dialog Manager
|
||||
* dw $0301
|
||||
* dw $0016 ; Scrap Manager
|
||||
* dw $0300
|
||||
* dw $0017 ; Standard File Tool Set
|
||||
* dw $0301
|
||||
* dw $001B ; Font Manager
|
||||
* dw $0301
|
||||
* dw $001C ; List Manager
|
||||
* dw $0301
|
||||
* dw $001E ; Resource Manager
|
||||
* dw $0100
|
||||
|
||||
*----------------------------------- GS/OS
|
||||
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -12,21 +12,32 @@
|
|||
* SOFTSWITCHES AND FRIENDS
|
||||
*-----------------------------------
|
||||
|
||||
ext picLORICIELS
|
||||
|
||||
ext txtINTRO1
|
||||
ext txtINTRO2
|
||||
ext txtINTRO3
|
||||
ext txtINTRO4
|
||||
ext txtINTRO5
|
||||
ext txtINTRO6
|
||||
ext txtINTRO7
|
||||
|
||||
ext picGENIUS
|
||||
ext picMONDE
|
||||
|
||||
ext telexRECT
|
||||
ext txtTELEX1
|
||||
ext txtTELEX2
|
||||
ext txtTELEX3
|
||||
ext txtTELEX4
|
||||
ext txtTELEX5
|
||||
|
||||
ext txtGENIUSTEXTE
|
||||
ext txtSERPENT1
|
||||
ext txtSERPENT2
|
||||
ext txtSERPENT3
|
||||
ext txtSERPENT4
|
||||
ext txtTITRE1
|
||||
ext txtTITRE2
|
||||
ext txtTITRE3
|
||||
ext ecritparRECT
|
||||
ext txtECRITPAR1
|
||||
ext txtECRITPAR2
|
||||
|
|
@ -46,21 +57,116 @@
|
|||
*-----------------------------------
|
||||
|
||||
intro
|
||||
* jsr intro_telex
|
||||
* bcs intro_end
|
||||
* jsr intro_genius_texte
|
||||
* bcs intro_end
|
||||
* jsr intro_serpent
|
||||
* bcs intro_end
|
||||
jsr intro_ecritpar
|
||||
jsr intro_intro ; faut soigner son ego
|
||||
bcs intro_end
|
||||
* jsr intro_monde
|
||||
* bcs intro_end
|
||||
* jsr intro_explications
|
||||
* bcs intro_end
|
||||
* jsr intro_genius_image
|
||||
jsr intro_logo ; ok
|
||||
bcs intro_end
|
||||
jsr intro_telex ; ok
|
||||
bcs intro_end
|
||||
jsr intro_genius_texte ; ok
|
||||
bcs intro_end
|
||||
jsr intro_serpent ; ok
|
||||
bcs intro_end
|
||||
jsr intro_ecritpar ; ok (sauf les couleurs)
|
||||
bcs intro_end
|
||||
jsr intro_monde ; ok
|
||||
bcs intro_end
|
||||
jsr intro_explications ; ok
|
||||
bcs intro_end
|
||||
jsr intro_genius_image ; ok
|
||||
intro_end rts
|
||||
|
||||
*-----------------------------------
|
||||
* INTRO
|
||||
*-----------------------------------
|
||||
|
||||
mx %00
|
||||
|
||||
iiY = 85
|
||||
|
||||
intro_intro
|
||||
PushWord #0
|
||||
_ClearScreen
|
||||
|
||||
ldy #198
|
||||
lda #txtINTRO4
|
||||
jsr centerME
|
||||
|
||||
ldy #iiY
|
||||
lda #txtINTRO1
|
||||
jsr centerME
|
||||
|
||||
ldy #iiY+20
|
||||
lda #txtINTRO2
|
||||
jsr centerME
|
||||
|
||||
ldy #iiY+40
|
||||
lda #txtINTRO3
|
||||
jsr centerME
|
||||
|
||||
ldy #60*1
|
||||
jsr waitMS16
|
||||
|
||||
*----------- La suite du copyright
|
||||
|
||||
PushWord #0
|
||||
_ClearScreen
|
||||
|
||||
ldy #iiY
|
||||
lda #txtINTRO5
|
||||
jsr centerME
|
||||
|
||||
ldy #iiY+20
|
||||
lda #txtINTRO6
|
||||
jsr centerME
|
||||
|
||||
ldy #iiY+40
|
||||
lda #txtINTRO7
|
||||
jsr centerME
|
||||
|
||||
ldy #60*1
|
||||
jmp waitMS16
|
||||
|
||||
*----------- Merci La Belle Zohra
|
||||
|
||||
centerME sty theY
|
||||
|
||||
PushWord #^txtINTRO1 ; pointer to string
|
||||
pha
|
||||
|
||||
PushWord #0 ; get string length
|
||||
PushWord #^txtINTRO1
|
||||
pha
|
||||
_StringWidth ; return left on stack
|
||||
|
||||
lda #320 ; why 160?
|
||||
sec
|
||||
sbc 1,s
|
||||
bpl cm1
|
||||
lda #0
|
||||
cm1 lsr
|
||||
sta 1,s ; X
|
||||
|
||||
PushWord theY ; pour MoveTo
|
||||
_MoveTo
|
||||
_DrawString
|
||||
|
||||
ldy #60*1
|
||||
jmp waitMS16
|
||||
|
||||
*-----------------------------------
|
||||
* LE LOGO LORICIELS
|
||||
*-----------------------------------
|
||||
|
||||
intro_logo
|
||||
PushLong #picLORICIELS
|
||||
PushLong ptrSCREEN
|
||||
PushLong #32768
|
||||
_BlockMove
|
||||
|
||||
ldy #60*5
|
||||
jmp waitMS16
|
||||
|
||||
*-----------------------------------
|
||||
* TELEX
|
||||
*-----------------------------------
|
||||
|
|
@ -71,15 +177,19 @@ it1STLINE = 18
|
|||
it1stROW = 10
|
||||
|
||||
intro_telex
|
||||
PushWord #0
|
||||
_ClearScreen
|
||||
|
||||
PushWord #0
|
||||
PushLong #palette320
|
||||
_SetColorTable
|
||||
|
||||
PushLong #telexRECT
|
||||
PushWord #$7777
|
||||
PushWord #$7777
|
||||
_SpecialRect
|
||||
|
||||
PushWord #$1000
|
||||
PushWord #$fffe ; Shaston 16
|
||||
PushWord #0
|
||||
_InstallFont
|
||||
jsr fontSHASTON16
|
||||
|
||||
PushWord #0
|
||||
_GetTextMode
|
||||
|
|
@ -155,10 +265,7 @@ intro_genius_texte
|
|||
PushWord #0
|
||||
_ClearScreen
|
||||
|
||||
PushWord #$0800
|
||||
PushWord #$fffe ; Shaston 8
|
||||
PushWord #0
|
||||
_InstallFont
|
||||
jsr fontSHASTON8
|
||||
|
||||
lda #txtGENIUSTEXTE
|
||||
sta dpFROM
|
||||
|
|
@ -217,57 +324,275 @@ igt_next ldy #4 ; wait 4/60eme
|
|||
intro_serpent
|
||||
PushWord #0
|
||||
_ClearScreen
|
||||
|
||||
|
||||
PushLong #curPATTERN
|
||||
_GetPenPat
|
||||
|
||||
PushLong #redPATTERN
|
||||
_SetPenPat
|
||||
|
||||
PushWord #$1000
|
||||
PushWord #$fffe ; Shaston 16
|
||||
PushWord #0
|
||||
_InstallFont
|
||||
|
||||
PushWord #90
|
||||
PushWord #80
|
||||
_MoveTo
|
||||
|
||||
PushLong #txtSERPENT1
|
||||
_DrawCString
|
||||
|
||||
jsr snake_1
|
||||
jsr snake_2
|
||||
|
||||
PushLong #curPATTERN
|
||||
_SetPenPat
|
||||
|
||||
PushWord #$0800
|
||||
PushWord #$fffe ; Shaston 8
|
||||
PushWord #0
|
||||
_InstallFont
|
||||
|
||||
PushWord #92
|
||||
PushWord #100
|
||||
_MoveTo
|
||||
|
||||
PushLong #txtSERPENT2
|
||||
_DrawCString
|
||||
|
||||
PushWord #110
|
||||
PushWord #110
|
||||
_MoveTo
|
||||
|
||||
PushLong #txtSERPENT3
|
||||
_DrawCString
|
||||
|
||||
PushWord #102
|
||||
PushWord #120
|
||||
_MoveTo
|
||||
|
||||
PushLong #txtSERPENT4
|
||||
_DrawCString
|
||||
rts
|
||||
|
||||
*-----------
|
||||
|
||||
ldy #60*10
|
||||
snake_1 PushLong #curPENSIZE
|
||||
_GetPenSize
|
||||
|
||||
PushLong #checkeredPATTERN
|
||||
_SetPenPat
|
||||
|
||||
PushWord #8
|
||||
PushWord #8
|
||||
_SetPenSize
|
||||
|
||||
jsr snake_draw
|
||||
|
||||
PushWord curPENSIZE
|
||||
PushWord curPENSIZE+2
|
||||
_SetPenSize
|
||||
rts
|
||||
|
||||
*-----------
|
||||
|
||||
snake_draw stz theK
|
||||
|
||||
*--- For K=0 TO 7 STEP 2
|
||||
|
||||
sd_k lda theK
|
||||
sta theN
|
||||
lda #39
|
||||
sec
|
||||
sbc theK
|
||||
sta maxN
|
||||
|
||||
]lp lda theN
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
sta theX
|
||||
|
||||
lda theK
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
sta theY
|
||||
|
||||
PushWord theX
|
||||
PushWord theY
|
||||
_MoveTo
|
||||
|
||||
PushWord #1
|
||||
PushWord #1
|
||||
_Line
|
||||
|
||||
jsr KEY ; retour en 8-bit
|
||||
rep #$30
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
inc theN
|
||||
lda maxN
|
||||
cmp theN
|
||||
bcs ]lp
|
||||
|
||||
*--- Loop 2 (line 420)
|
||||
|
||||
lda theK
|
||||
sta theN
|
||||
lda #25
|
||||
sec
|
||||
sbc theK
|
||||
sta maxN
|
||||
|
||||
]lp lda #39
|
||||
sec
|
||||
sbc theK
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha ; X
|
||||
|
||||
lda theN
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha ; Y
|
||||
_MoveTo
|
||||
|
||||
PushWord #1
|
||||
PushWord #1
|
||||
_Line
|
||||
|
||||
jsr KEY ; retour en 8-bit
|
||||
rep #$30
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
inc theN
|
||||
lda theN
|
||||
cmp maxN
|
||||
bcc ]lp
|
||||
|
||||
*--- Loop 3 (line 430)
|
||||
|
||||
lda #38
|
||||
sec
|
||||
sbc theK
|
||||
sta theN
|
||||
|
||||
lda theK
|
||||
sta maxN
|
||||
|
||||
]lp lda theN
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha ; X
|
||||
|
||||
lda #24
|
||||
sec
|
||||
sbc theK
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha ; Y
|
||||
_MoveTo
|
||||
|
||||
PushWord #1
|
||||
PushWord #1
|
||||
_Line
|
||||
|
||||
jsr KEY ; retour en 8-bit
|
||||
rep #$30
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
dec theN
|
||||
lda maxN
|
||||
cmp theN
|
||||
bne ]lp
|
||||
|
||||
*--- Loop 4 (line 440)
|
||||
|
||||
lda #24
|
||||
sec
|
||||
sbc theK
|
||||
sta theN
|
||||
|
||||
lda theK
|
||||
inc
|
||||
sta maxN
|
||||
|
||||
]lp lda theK
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha ; X
|
||||
|
||||
lda theN
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha ; Y
|
||||
_MoveTo
|
||||
|
||||
PushWord #1
|
||||
PushWord #1
|
||||
_Line
|
||||
|
||||
jsr KEY ; retour en 8-bit
|
||||
rep #$30
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
dec theN
|
||||
lda maxN
|
||||
cmp theN
|
||||
bcc ]lp
|
||||
|
||||
*--- Line 450
|
||||
|
||||
lda theK
|
||||
cmp #6
|
||||
beq sd_nextk
|
||||
|
||||
lda theK
|
||||
inc
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha
|
||||
|
||||
lda theK
|
||||
inc
|
||||
inc
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
pha
|
||||
_MoveTo
|
||||
|
||||
PushWord #1
|
||||
PushWord #1
|
||||
_Line
|
||||
|
||||
*----------- NEXT K
|
||||
|
||||
sd_nextk lda theK
|
||||
clc
|
||||
adc #2
|
||||
sta theK
|
||||
cmp #8
|
||||
bcs sd_end
|
||||
jmp sd_k
|
||||
|
||||
sd_end rts
|
||||
|
||||
*-----------
|
||||
|
||||
theK ds 2
|
||||
theN ds 2
|
||||
maxN ds 2
|
||||
|
||||
*-----------
|
||||
|
||||
snake_2 PushWord #0
|
||||
_GetForeColor
|
||||
|
||||
PushWord #7
|
||||
_SetForeColor
|
||||
|
||||
jsr fontSHASTON16
|
||||
|
||||
ldy #80
|
||||
lda #txtSERPENT1
|
||||
jsr centerME
|
||||
|
||||
_SetForeColor
|
||||
|
||||
jsr fontSHASTON8
|
||||
|
||||
ldy #105
|
||||
lda #txtSERPENT2
|
||||
jsr centerME
|
||||
|
||||
ldy #118
|
||||
lda #txtSERPENT3
|
||||
jsr centerME
|
||||
|
||||
ldy #131
|
||||
lda #txtSERPENT4
|
||||
jsr centerME
|
||||
|
||||
*-----------
|
||||
|
||||
ldy #60*2
|
||||
jmp waitMS16
|
||||
|
||||
*-----------------------------------
|
||||
|
|
@ -318,21 +643,182 @@ pgLOOP ldy #0
|
|||
cpx #84*160 ; 84 lignes
|
||||
bcc pgLOOP
|
||||
|
||||
*----------- Affiche le titre
|
||||
|
||||
PushWord #0
|
||||
_GetForeColor
|
||||
|
||||
PushWord #0
|
||||
_SetForeColor
|
||||
|
||||
PushWord #0
|
||||
_GetTextMode
|
||||
|
||||
PushWord #modeForeCopy
|
||||
_SetTextMode
|
||||
|
||||
PushWord #70
|
||||
PushWord #110
|
||||
_MoveTo
|
||||
PushLong #txtTITRE1
|
||||
_DrawCString
|
||||
|
||||
PushWord #70
|
||||
PushWord #120
|
||||
_MoveTo
|
||||
PushLong #txtTITRE2
|
||||
_DrawCString
|
||||
|
||||
jsr fontSHASTON16
|
||||
|
||||
PushWord #160
|
||||
PushWord #118
|
||||
_MoveTo
|
||||
PushLong #txtTITRE3
|
||||
_DrawCString
|
||||
|
||||
*----------- Affiche les anneaux
|
||||
|
||||
PushLong #curPATTERN
|
||||
_GetPenPat
|
||||
|
||||
PushLong #blackPATTERN
|
||||
_SetPenPat
|
||||
|
||||
*--- Boucle 1
|
||||
|
||||
ovalHEIGHT = 8
|
||||
ovalX1 = 30
|
||||
ovalX2 = 290
|
||||
ovalY1 = 130
|
||||
ovalY2 = 180
|
||||
|
||||
lda #ovalY1
|
||||
sta ovalRECT
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+4
|
||||
|
||||
lda #ovalX1
|
||||
]lp sta ovalRECT+2
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+6
|
||||
|
||||
jsr outputOVAL
|
||||
|
||||
lda ovalRECT+2
|
||||
clc
|
||||
adc #5
|
||||
cmp #ovalX2
|
||||
bcc ]lp
|
||||
|
||||
*--- Boucle 2
|
||||
|
||||
lda #ovalX2
|
||||
sta ovalRECT+2
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+6
|
||||
|
||||
lda #ovalY1
|
||||
]lp sta ovalRECT
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+4
|
||||
|
||||
jsr outputOVAL
|
||||
|
||||
lda ovalRECT
|
||||
clc
|
||||
adc #5
|
||||
cmp #ovalY2
|
||||
bcc ]lp
|
||||
|
||||
*--- Boucle 3
|
||||
|
||||
lda #ovalY2
|
||||
sta ovalRECT
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+4
|
||||
|
||||
lda #ovalX2
|
||||
]lp sta ovalRECT+2
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+6
|
||||
|
||||
jsr outputOVAL
|
||||
|
||||
lda ovalRECT+2
|
||||
sec
|
||||
sbc #5
|
||||
cmp #ovalX1
|
||||
bcs ]lp
|
||||
|
||||
*--- Boucle 4
|
||||
|
||||
lda #ovalX1
|
||||
sta ovalRECT+2
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+6
|
||||
|
||||
lda #ovalY2
|
||||
]lp sta ovalRECT
|
||||
clc
|
||||
adc #ovalHEIGHT
|
||||
sta ovalRECT+4
|
||||
|
||||
jsr outputOVAL
|
||||
|
||||
lda ovalRECT
|
||||
sec
|
||||
sbc #5
|
||||
cmp #ovalY1
|
||||
bcs ]lp
|
||||
|
||||
*--- La suite...
|
||||
|
||||
PushLong #curPATTERN
|
||||
_SetPenPat
|
||||
|
||||
*----------- Affiche les noms
|
||||
|
||||
* TO DO
|
||||
jsr fontSHASTON8
|
||||
|
||||
ldy #150
|
||||
lda #txtECRITPAR1
|
||||
jsr centerME
|
||||
ldy #162
|
||||
lda #txtECRITPAR2
|
||||
jsr centerME
|
||||
ldy #174
|
||||
lda #txtECRITPAR3
|
||||
jsr centerME
|
||||
|
||||
*----------- Affiche le cadre
|
||||
*---
|
||||
|
||||
_SetTextMode
|
||||
_SetForeColor
|
||||
|
||||
jsr initMIDI
|
||||
jsr doSOUNDON
|
||||
|
||||
ldy #60*60*2
|
||||
jsr waitMS16
|
||||
|
||||
*----------- Boucle sur les couleurs (ou pas)
|
||||
|
||||
*----------- Affiche la suite
|
||||
|
||||
PushLong #ecritparRECT
|
||||
PushWord #$4444
|
||||
PushWord #$4444
|
||||
_SpecialRect
|
||||
|
||||
PushWord #$1000
|
||||
PushWord #$fffe ; Shaston 16
|
||||
PushWord #0
|
||||
_InstallFont
|
||||
jsr fontSHASTON16
|
||||
|
||||
PushWord #0
|
||||
_GetForeColor
|
||||
|
|
@ -346,27 +832,20 @@ pgLOOP ldy #0
|
|||
PushWord #11
|
||||
_SetForeColor
|
||||
|
||||
PushWord #40
|
||||
PushWord #179
|
||||
_MoveTo
|
||||
PushLong #txtECRITPAR6
|
||||
_DrawCString
|
||||
ldy #179
|
||||
lda #txtECRITPAR6
|
||||
jsr centerME
|
||||
|
||||
PushWord #34
|
||||
PushWord #199
|
||||
_MoveTo
|
||||
PushLong #txtECRITPAR7
|
||||
_DrawCString
|
||||
ldy #199
|
||||
lda #txtECRITPAR7
|
||||
jsr centerME
|
||||
|
||||
_SetTextMode
|
||||
_SetForeColor
|
||||
|
||||
PushWord #$0800
|
||||
PushWord #$fffe ; Shaston 8
|
||||
PushWord #0
|
||||
_InstallFont
|
||||
jsr fontSHASTON8
|
||||
|
||||
ldy #60*3
|
||||
ldy #60*1
|
||||
jmp waitMS16
|
||||
|
||||
*-----------
|
||||
|
|
@ -442,6 +921,19 @@ outputPG6 lda dpPX
|
|||
ply
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
outputOVAL
|
||||
PushLong #ovalRECT
|
||||
_FrameOval
|
||||
|
||||
ldy #1 ; wait 2/60eme
|
||||
jmp waitMS16
|
||||
|
||||
*---
|
||||
|
||||
ovalRECT ds 8
|
||||
|
||||
*-----------------------------------
|
||||
* LA UNE DU MONDE
|
||||
*-----------------------------------
|
||||
|
|
@ -919,6 +1411,21 @@ outputIG6B phy
|
|||
|
||||
mx %00
|
||||
|
||||
*-----------------------------------
|
||||
* QUELQUES ROUTINES
|
||||
*-----------------------------------
|
||||
|
||||
fontSHASTON8
|
||||
PushWord #$0800
|
||||
bra fontSHASTON
|
||||
fontSHASTON16
|
||||
PushWord #$1000
|
||||
fontSHASTON
|
||||
PushWord #$fffe ; Shaston 16
|
||||
PushWord #0
|
||||
_InstallFont
|
||||
rts
|
||||
|
||||
*-----------------------------------
|
||||
* DATA INTRO
|
||||
*-----------------------------------
|
||||
|
|
|
|||
|
|
@ -11,6 +11,23 @@
|
|||
* LES TEXTES DE L'INTRO
|
||||
*-----------------------------------
|
||||
|
||||
txtINTRO1 ENT
|
||||
str 'Brutal Deluxe Software'
|
||||
txtINTRO2 ENT
|
||||
str 'Antoine Vignau & Olivier Zardini'
|
||||
txtINTRO3 ENT
|
||||
str 'pr'8e'sentent'
|
||||
txtINTRO4 ENT
|
||||
str 'Merci XavSnap'
|
||||
txtINTRO5 ENT
|
||||
str 'LE RETOUR DU DR GENIUS'
|
||||
txtINTRO6 ENT
|
||||
str '(c) 1984 - 2024'
|
||||
txtINTRO7 ENT
|
||||
str 'Laurent Benes & Loriciels'
|
||||
|
||||
*-----------------------------------
|
||||
|
||||
telexRECT ENT
|
||||
dw 0,0,102,320
|
||||
|
||||
|
|
@ -19,53 +36,57 @@ txtTELEX1 ENT
|
|||
txtTELEX2 ENT
|
||||
asc '(heure francaise)'00
|
||||
txtTELEX3 ENT
|
||||
asc 'sur tous les telex'00
|
||||
asc 'sur tous les t'8e'lex'00
|
||||
txtTELEX4 ENT
|
||||
asc 'du monde apparait ce'00
|
||||
asc 'du monde appara'94't ce'00
|
||||
txtTELEX5 ENT
|
||||
asc 'message angoissant...'00
|
||||
|
||||
*-----------------------------------
|
||||
|
||||
txtGENIUSTEXTE ENT
|
||||
asc ' Moi, GENIUS, je defie le monde. J'27'ai'0d
|
||||
asc 'invente une nouvelle arme capable de'0d
|
||||
asc ' Moi, GENIUS, je d'8e'fie le monde. J'27'ai'0d
|
||||
asc 'invent'8e' une nouvelle arme capable de'0d
|
||||
asc 'raser la terre, ce que je ferai dans'0d
|
||||
asc 'deux semaines... Mais, comme je ne suis'0d
|
||||
asc 'pas un monstre, je vous laisse une'0d
|
||||
asc 'chance. J'27'accepte que des hommes de'0d
|
||||
asc 'tout pays se rendent sur mon vaisseau'0d
|
||||
asc 'en orbite autour de la terre afin de'0d
|
||||
asc 'tenter de desamorcer mes armes. Mais,'0d
|
||||
asc 'jamais plus d'27'un homme a la fois....'00
|
||||
asc 'en orbite autour de la Terre afin de'0d
|
||||
asc 'tenter de d'8e'samorcer mes armes. Mais,'0d
|
||||
asc 'jamais plus d'27'un homme '88' la fois....'00
|
||||
|
||||
*-----------------------------------
|
||||
|
||||
txtSERPENT1 ENT
|
||||
asc 'LORICIELS'00
|
||||
str 'LORICIELS'
|
||||
txtSERPENT2 ENT
|
||||
asc 'vous propose ce que'00
|
||||
str 'vous propose ce que'
|
||||
txtSERPENT3 ENT
|
||||
asc 'vous redoutiez'00
|
||||
str 'vous redoutiez'
|
||||
txtSERPENT4 ENT
|
||||
asc 'depuis longtemps'00
|
||||
str 'depuis longtemps'
|
||||
|
||||
*-----------------------------------
|
||||
|
||||
txtTITRE1 ENT
|
||||
asc 'Le retour'00
|
||||
txtTITRE2 ENT
|
||||
asc 'du Docteur'00
|
||||
txtTITRE3 ENT
|
||||
asc 'Genius'00
|
||||
|
||||
txtECRITPAR1 ENT
|
||||
asc 'Ecrit par Laurent Benes'00
|
||||
str 'Ecrit par Laurent Benes'
|
||||
txtECRITPAR2 ENT
|
||||
asc 'Assiste de Karine Le Pors'00
|
||||
str 'Assist'8e' de Karine Le Pors'
|
||||
txtECRITPAR3 ENT
|
||||
asc 'Version Apple IIgs'00
|
||||
txtECRITPAR4 ENT
|
||||
asc 'Brutal Deluxe Software'00
|
||||
txtECRITPAR5 ENT
|
||||
asc 'Merci XavSnap'00
|
||||
str '('A9') LORICIELS ao'9e't 1984'
|
||||
|
||||
txtECRITPAR6 ENT
|
||||
asc '3 jours plus tard'00
|
||||
str '3 jours plus tard'
|
||||
txtECRITPAR7 ENT
|
||||
asc 'dans les journaux'00
|
||||
str 'dans les journaux'
|
||||
|
||||
ecritparRECT ENT
|
||||
dw 160,0,200,320
|
||||
|
|
@ -73,45 +94,45 @@ ecritparRECT ENT
|
|||
*-----------------------------------
|
||||
|
||||
txtMONDE ENT
|
||||
asc 'C'27'est ainsi que vous decidez de'0d
|
||||
asc 'vous rendre aux autorites pour combat-'0d
|
||||
asc 'tre a nouveau le Dr Genius.'
|
||||
asc 'Le lendemain, on vous emmene au vais-'0d
|
||||
asc 'seau ou vous allez maintenant tenter'0d
|
||||
asc 'C'27'est ainsi que vous d'8e'cidez de'0d
|
||||
asc 'vous rendre aux autorit'8e's pour combat-'0d
|
||||
asc 'tre de nouveau le Dr Genius.'0d
|
||||
asc 'Le lendemain, on vous emm'8f'ne au vais-'0d
|
||||
asc 'seau o'9e' vous allez maintenant tenter'0d
|
||||
asc 'de vaincre le Dr Genius afin de sauver'0d
|
||||
asc 'la terre.'0d0d0d
|
||||
asc 'la Terre.'0d0d0d
|
||||
asc ' BON COURAGE...'0d0d0d
|
||||
asc 'Vous en aurez besoin !'00
|
||||
|
||||
*-----------------------------------
|
||||
|
||||
txtEXPLICATIONS1 ENT
|
||||
asc 'Voici quelques explications'0d0d
|
||||
asc 'Le jeu est en temps reel, un chronome-'0d
|
||||
asc 'tre sera affiche en permanence.'0d
|
||||
asc 'Voici quelques explications'0d
|
||||
asc 'Le jeu est en temps r'8e'el, un chronom'8f'-'0d
|
||||
asc 'tre sera affich'8e' en permanence.'0d
|
||||
asc 'D'27'autre part, vous devrez prendre'0d
|
||||
asc 'garde a votre energie qui diminuera au'0d
|
||||
asc 'garde '88' votre '8e'nergie qui diminuera au'0d
|
||||
asc 'fil de la partie.'0d
|
||||
asc 'Attention, plus vous transportez'0d
|
||||
asc 'd'27'objets, plus votre force decroit.'0d0d
|
||||
asc 'd'27'objets, plus votre force d'8e'croit.'0d0d
|
||||
asc 'Pour converser avec l'27'ordinateur, vous'0d
|
||||
asc 'pouvez utiliser un vocabulaire choisi'0d
|
||||
asc 'parmi pres de 150 mots que vous allez'0d
|
||||
asc 'donc decouvrir au fur et a mesure...'0d
|
||||
asc 'et oui, c'27'est ca l'27'aventure.'0d0d
|
||||
asc 'parmi pr'8f's de 150 mots que vous allez'0d
|
||||
asc 'donc d'8e'couvrir au fur et '88' mesure...'0d
|
||||
asc 'et oui, c'27'est '8d'a l'27'aventure.'0d0d
|
||||
asc 'D'27'autre part, l'27'ordinateur ne prendra'0d
|
||||
asc 'en compte que les 4 premieres lettres'0d
|
||||
asc 'en compte que les 4 premi'8f'res lettres'0d
|
||||
asc 'de chaque mot, ainsi : PRENDS CARTON'0d
|
||||
asc 'sera compris comme : PREN CART'00
|
||||
|
||||
txtEXPLICATIONS2 ENT
|
||||
asc 'L'27'ordinateur ne prend en compte en'0d
|
||||
asc 'general que deux mots, exemple :'0d
|
||||
asc 'g'8e'n'8e'ral que deux mots, exemple :'0d
|
||||
asc '- ALLUME SALLE'0d
|
||||
asc '- EST ou E ou AVANCE EST'0d0d
|
||||
asc 'Dans certains cas,l'27'ordinateur prendra'0d
|
||||
asc 'en compte trois mots. Il s'27'agit de cas'0d
|
||||
asc 'ou un qualificatif est necessaire, ou'0d
|
||||
asc 'ou un qualificatif est n'8e'cessaire, ou'0d
|
||||
asc 'lorsque l'27'on veut mettre une chose'0d
|
||||
asc 'dans une autre. Exemple :'0d0d
|
||||
asc 'PRENDS LIVRE VERT'0d
|
||||
|
|
@ -119,23 +140,23 @@ txtEXPLICATIONS2 ENT
|
|||
asc ' ou'0d
|
||||
asc 'CRAYON DANS BOITE'0d0d
|
||||
asc 'Ce dernier cas indiquera qu'27'il faut'0d
|
||||
asc 'mettre le crayon dans la boite.'0d
|
||||
asc 'a condition que vous possediez crayon'0d
|
||||
asc 'et boite, evidemment.'00
|
||||
asc 'mettre le crayon dans la bo'94'te.'0d
|
||||
asc 88' condition que vous poss'8e'diez crayon'0d
|
||||
asc 'et bo'94'te, '8e'videmment.'00
|
||||
|
||||
txtEXPLICATIONS3 ENT
|
||||
asc 'Une derniere chose, il est possible de'0d
|
||||
asc 'Une derni'8f're chose, il est possible de'0d
|
||||
asc 'sauver une partie en cours, et de la'0d
|
||||
asc 'recharger, mais a vous de trouver le'0d
|
||||
asc 'vocabulaire adequat...'0d0d0d0d
|
||||
asc 'Et maintenant, tres bonne aventure...'0d0d
|
||||
asc 'et prenez garde a vous !'0d0d0d
|
||||
asc 'recharger, mais '88' vous de trouver le'0d
|
||||
asc 'vocabulaire ad'8e'quat...'0d0d0d0d
|
||||
asc 'Et maintenant, tr'8f's bonne aventure...'0d0d
|
||||
asc 'et prenez garde '88' vous !'0d0d0d
|
||||
* asc 'Tapez une touche pour charger le'0d
|
||||
* asc 'programme de jeu.'00 ; Fond rouge, encre
|
||||
asc 'Tapez une touche pour jouer.'00
|
||||
|
||||
txtEXPLICATIONS4 ENT
|
||||
asc 'Voulez-vous revoir la presentation (O/N) '00
|
||||
asc 'Voulez-vous revoir la pr'8e'sentation (O/N) '00
|
||||
|
||||
*-----------------------------------
|
||||
* IMAGE DU DR GENIUS (DRACULA)
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -7,7 +7,7 @@
|
|||
|
||||
* Expansion linker file
|
||||
|
||||
DSK iigs
|
||||
DSK RetourDrGenius
|
||||
TYP $B3
|
||||
|
||||
* Assemble files
|
||||
|
|
@ -16,9 +16,11 @@
|
|||
KND $0000
|
||||
SNA LeRetour
|
||||
|
||||
* Assemble files
|
||||
|
||||
ASM data.s
|
||||
KND $0000
|
||||
SNA Du
|
||||
|
||||
ASM loriciels.s
|
||||
KND $0000
|
||||
SNA DrGenius
|
||||
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 388 KiB |
Loading…
Reference in New Issue