'TITRE: L'AVENTURE LOWRES 'AUTEUR: TIMO KLOSS, G9, DR.GONZO SOUND 0,0,0,0 SOUND 1,3,0,0 STARTADV: HEALTH=10 NAME$="" KEY=0 CLS PRINT PRINT PRINT PRINT " -======***======-" PRINT " L'AVENTURE LOWRES" PRINT " -======***======-" PRINT " -===BAGUETTE!===-" PRINT " -======***======-" PRINT PRINT PRINT " BY TIMO,G9 AND" PRINT " DRGONZO" GOSUB TITLESONG GOSUB FADE_EFFECT CLS BG TINT 0,0 TO 20,16 PAL 0 GOSUB STATUS PRINT "VOUS ARRIVEZ AU" PRINT "CHATEAU DU ROI." PRINT "ROI:ENFIN VOUS ETES" PRINT "LA POUR SAUVER NOTRE"; PRINT "VILLAGE!DES FANTOMES"; PRINT "DE LA VALLEE DES" PRINT "OMBRES SONT VENUS ET"; PRINT "ONT VOLE MA COURONNE"; PRINT "LORSQUE JE DORMAIS!" PRINT "ON DIT QUE VOUS ETES"; PRINT "LE SEUL QUI PUISSE" PRINT "NOUS SAUVER.QUEL EST"; PRINT "VOTRE NOM?" REPEAT INPUT ">";NAME$ UNTIL LEN(NAME$)>0 PRINT PRINT "ROI: DONC, "+NAME$+"," PRINT "JE T'AI CHOISI POUR" PRINT "RECUP. MA COURONNE." PRINT "MAIS ATTENTION,LA" PRINT "VALLEE DES OMBRES" PRINT "EST DANGEUREUSE!" PRINT "ETES VOUS PRET?" PRINT "1. OUI!" PRINT "2. NON MERCI." DO INPUT ">";A IF A=1 THEN GOTO CITY IF A=2 THEN GOTO CASTLENO LOOP CASTLENO: PRINT PRINT "ROI: OH D'ACCORD," PRINT "JE PENSE QUE JE N'" PRINT "PAS VRAIMANT BESOIN" PRINT "DE MA COURONNE." GOTO GAMEOVER CITY: PRINT PRINT "VOUS ETES DANS LA" PRINT "VILLE DU ROI.IL Y" PRINT "A ICI PLUSIEURS" PRINT "CHEMINS." PRINT "1. VALLEE DES OMBRES"; PRINT "2.ALLER A LA RIVIERE"; DO INPUT ">";A IF A=1 THEN GOTO SHADOW IF A=2 THEN GOTO RIVER LOOP SHADOW: PRINT PRINT "UN SENTIER ETROIT ET"; PRINT "EFFRAYANT MENE A UNE"; PRINT "ENORME PORTE SUR UNE"; PRINT "MONTAGNE NOIRE.." PRINT "1. OUVRIR LA PORTE" PRINT "2. RETOUR A LA VILLE"; DO INPUT ">";A IF A=1 THEN IF KEY THEN GOTO SHADOWOPEN ELSE GOTO SHADOWLOCKED END IF IF A=2 THEN GOTO CITY LOOP SHADOWLOCKED: PRINT PRINT "LA PORTE EST FERMEE,"; PRINT "VOUS AVEZ BESOIN D'" PRINT "UNE CLE.VOUS DECIDEZ"; PRINT "DE RETOURNER A LA" PRINT "VILLE" INPUT "> PRESSERZ ENTREE";A GOTO CITY SHADOWOPEN: PRINT PRINT "VOUS OUVREZ LA PORTE"; PRINT "AVEC VOTRE CLE ET" PRINT "ENTREZ DANS UNE CAVE"; PRINT "GEANTE.A LA FIN DE" PRINT "LA CAVE VOUS VOYEZ " PRINT "UN FANTOME ACEC LA" PRINT "COURONNE DU ROI SUR" PRINT "SA TETE." PRINT "1. ATTAQUER FANTOME" PRINT "2. PARLER AU FANTOME" PRINT "3. RETOUR A LA VILLE" DO INPUT ">";A IF A=1 THEN GOTO GHOSTATTACK IF A=2 THEN GOTO GHOSTTALK IF A=3 THEN GOTO CITY LOOP GHOSTATTACK: PRINT PRINT "LE COMBAT FINAL AVEC"; PRINT "LE FANTOME DE LA" PRINT "VALLEE DES OMBRES" PRINT "COMMENCE." ENEMYHEALTH=5 GOSUB FIGHT PRINT IF ENEMYHEALTH=0 THEN GOTO GHOSTDEFEATED ELSE PRINT "VOUS VOUS ENFUYEZ" PRINT "DE LA MONTAGNE." INPUT "> PRESSEZ ENTREE";A GOTO CITY END IF GHOSTDEFEATED: PRINT PRINT "FANTOME:OK,OK" PRINT "ARRETEZ SVP!" PRINT "QUE VOULEZ-VOUS?" PRINT "VOUS:LA COURONNE" PRINT "DU ROI!" PRINT "FANTOME:AH,JE NE" PRINT "TE L'AI PAS DIT" PRINT "AVANT?JE NE L'AIME" PRINT "PAS DE TOUTE FACON." PRINT "TENEZ,PRENEZ LA!" INPUT "> PRESSEZ ENTREE";A PRINT PRINT "VOUS:OH MERCI !" PRINT "DESOLE POUR CE PETIT"; PRINT "COMBAT.JE NE VOULAIS"; PRINT "PAS VOUS OFFENSER." PRINT "FANTOME:NE T'INQUETE"; PRINT "PAS. A PLUS !" INPUT "> PRESSEZ ENTREE";A GOTO GAMEEND GHOSTTALK: PRINT PRINT "FANTOME:BONJOUR "+NAME$+"," PRINT "COMMENT ALLEZ VOUS?" PRINT "TU AS TROUVE LA CLE" PRINT "DE MA MONTAGNE,PAS" PRINT "MAL.POURQUOI EST-TU" PRINT "VENU?" PRINT "1. TE COMBATTRE!" PRINT "2. POUR TE DEMANDER" PRINT " LA COURONNE" PRINT "3. EUH,RIEN,SALUT!" DO INPUT ">";A IF A=1 THEN GOTO GHOSTATTACK IF A=2 THEN GOTO GHOSTCROWN IF A=3 THEN GOTO CITY LOOP GHOSTCROWN: PRINT PRINT "FANTOME:TU SAIS," PRINT "J'AI TROUVE LA" PRINT "COURONNE QUELQUE" PRINT "PART SUR LA RUE." PRINT "ELLE NE ME VA VAS" PRINT "VRAIMANT..." PRINT "TU PEUX LA PRENDRE" PRINT "PAS DE PROBLEME.." PRINT "VOUS: OH COOL," PRINT "MERCI!" INPUT "> PRESSEZ ENTREE";A GOTO GAMEEND RIVER: PRINT PRINT "VOUS ETES A LA" PRINT "RIVIERE.IL Y A" PRINT "UNE GRANDE CASCADE." PRINT "1. PECHER" PRINT "2. ALLER DERRIERE LA"; PRINT " CASCADE" PRINT "3. RETOUR A LA VILLE"; DO INPUT ">";A IF A=1 THEN GOTO FISHING IF A=2 THEN GOTO WATERFALL IF A=3 THEN GOTO CITY LOOP FISHING: PRINT R=RND IF R<0.1 THEN PRINT "VOUS AVEZ PECHE UNE" PRINT "VIELLE CHAUSSURE." PRINT "JUSTE AU CAS OU,VOUS"; PRINT "REGARDEZ DEDANS ET" PRINT "VOUS TROUVEZ UNE" PRINT "POTION DE SANTE!" HEALTH=HEALTH+4 ELSE IF R<0.6 THEN PRINT "VOUS SAUTEZ DANS L'" PRINT "EAU ET ATTRAPEZ UN" PRINT "POISSON AVEC VOS " PRINT "MAINS.IL AVAIT L'AIR"; PRINT "BON ET VOUS LE " PRINT "MANGEZ." HEALTH=HEALTH+1 ELSE PRINT "VOUS ESSAYEZ DE " PRINT "PRENDRE UN POISSON" PRINT "MAIS IL VOUS MORD" PRINT "A LA MAIN ET VOUS" PRINT "TOMBEZ" PRINT "DEFAVORABLEMENT." HEALTH=HEALTH-2 END IF GOSUB STATUS INPUT "> PRESSEZ ENTREE";A GOTO RIVER WATERFALL: PRINT PRINT "DERRIERE LA CASCADE,"; PRINT "VOUS TROUVEZ L'ENTRE"; PRINT "D'UNE CAVE.DEDANS " PRINT "VOUS POUVEZ ENTENDRE"; PRINT "DES BRUITS BIZZARES."; PRINT "1. ENTRER DANS CAVE" PRINT "2. RETOUR A LA RIVE" DO INPUT ">";A IF A=1 THEN GOTO CAVE IF A=2 THEN GOTO RIVER LOOP CAVE: PRINT PRINT "UN MONSTRE DES" PRINT "CAVERNES VOUS" PRINT "ATTAQUE!" ENEMYHEALTH=3 GOSUB FIGHT PRINT IF ENEMYHEALTH=0 THEN PRINT "LE MONSTRE EST" PRINT "MAL A L'AISE ET" PRINT "VA DORMIR.VOUS" PRINT "TROUVEZ UNE CLE" PRINT "DANS LA CAVERNE" PRINT "ET VOUS LA PRENEZ." KEY=-1 ELSE PRINT "VOUS VOUS ENFUYEZ" PRINT "DE LA CAVERNE." END IF INPUT "> PRESSEZ ENTREE";A GOTO RIVER GAMEEND: PRINT PRINT "VOUS RETOURNEZ AU" PRINT "CHATEAU DU ROI ET" PRINT "LUI RENDEZ SA" PRINT "COURONNE." PRINT "ROI: BRAVO," PRINT NAME$+"!" INPUT "> PRESSEZ ENTREE";A PRINT "MAINTENANT LA PAIX" PRINT "ET LA HARMONIE VA" PRINT "RETOURNER DANS " PRINT "NOTRE PAYS." PRINT "VOUS: OUI,BIEN SUR" PRINT PRINT "VOUS RETOURNEZ CHEZ" PRINT "VOUS REGARDEZ LA" PRINT "TELE." PRINT PRINT "FIN" GOSUB TITLESONG GOSUB FADE_EFFECT GOTO RESTART FIGHT: DO PRINT IF RND<0.5 THEN PRINT "L'ENNEMI VOUS A" PRINT "TOUCHE !" PLAY 1,32,5 HEALTH=HEALTH-1 ELSE PRINT "VOUS ESQUIVEZ L'" PRINT "ATTAQUE DE L'" PRINT "ENNEMI." PLAY 0,32,0 WAIT 5 PLAY 0,39,5 END IF GOSUB STATUS PRINT " (A)TTAQUER OU" PRINT " (L)AISSER ?" DO I$=INKEY$ IF I$="A" THEN GOTO ATTACK IF I$="L" THEN RETURN WAIT VBL LOOP ATTACK: PRINT IF RND<0.6 THEN PRINT "VOUS TOUCHEZ L'" PRINT "ENNEMI !" PLAY 1,39,5 ENEMYHEALTH=ENEMYHEALTH-1 IF ENEMYHEALTH=0 THEN RETURN ELSE PRINT "L'ENNEMI ESQUIVE" PRINT "VOTRE ATTAQUE." PLAY 0,37,0 WAIT 5 PLAY 0,30,5 END IF PRINT "-- PV ENNEMI "+STR$(ENEMYHEALTH)+" --" LOOP RETURN STATUS: IF HEALTH<0 THEN HEALTH=0 PRINT "-- VIES "+STR$(HEALTH)+" --" IF HEALTH=0 THEN RETURN GAMEOVER RETURN GAMEOVER: PRINT PRINT "GAME OVER" GOSUB GAMEOVERSONG RESTART: PRINT ">RECOMMENCER(O/N)" DO I$=INKEY$ IF I$="O" THEN GOTO STARTADV IF I$="N" THEN END WAIT VBL LOOP TITLESONG: PLAY 0,39 WAIT 10 STOP WAIT 5 PLAY 0,39 WAIT 10 STOP WAIT 10 STOP WAIT 5 PLAY 0,39 WAIT 10 STOP WAIT 5 PLAY 0,44 WAIT 24 STOP WAIT 5 PLAY 0,44 WAIT 24 STOP WAIT 5 PLAY 0,46 WAIT 24 STOP WAIT 5 PLAY 0,46 WAIT 24 STOP WAIT 5 PLAY 0,51 WAIT 36 STOP WAIT 5 PLAY 0,48 WAIT 10 STOP WAIT 5 PLAY 0,44 WAIT 10 STOP WAIT 5 PLAY 0,44 WAIT 12 STOP WAIT 5 PLAY 0,48 WAIT 10 STOP WAIT 5 PLAY 0,44 WAIT 10 STOP WAIT 5 PLAY 0,41 WAIT 10 STOP WAIT 5 PLAY 0,49 WAIT 12 STOP WAIT 5 PLAY 0,46 WAIT 10 STOP WAIT 5 PLAY 0,43 WAIT 10 STOP WAIT 5 PLAY 0,44 WAIT 36 STOP RETURN GAMEOVERSONG: PLAY 0,44,0 WAIT 12 PLAY 0,43 WAIT 12 PLAY 0,42 WAIT 12 PLAY 0,41 WAIT 12 PLAY 0,40 WAIT 24 STOP RETURN FADE_EFFECT: FOR I=1 TO 3 BG TINT 0,0 TO 20,16 PAL I WAIT 5 NEXT I RETURN #1:MAIN PALETTES 053F2F00002F1B15001A140100050505 003F2A15003F2A15003F2A15003F2A15