es:santa_s_grotto
¡Esta es una revisión vieja del documento!
Tabla de Contenidos
Santa´s Grotto
Ficha
Autor | |
---|---|
Computadora | Amstrad PCW 8256 / 8512 / 9512 |
Año | |
Género | |
Controles | Teclado |
Lenguajes | |
Estado | Preservado |
Capturas
Descripción
Controles
Programa
Listado
5 ' a sauver sous le nom VILLE.BAS 6 ' 10 OPTION RUN 20 REM ******* VILLE INFERNALE ******* 30 REM copyright FERNANDEZ michel 40 MEMORY &HF605 50 code=HIMEM-400:ad.jeu=code-256*8 60 MEMORY &HF605 70 echange.jeu=code+3 80 x$=CHR$(27):curson$=x$+"e":cursoff$=x$+"f" 90 cls$=x$+"E"+x$+"H":inv$=x$+"p":norm$=x$+"q" 100 DEF FNcu$ (li,co)=x$+"Y"+CHR$(32+li)+CHR$(32+co) 110 DEF FNfe$(li,co,nl,nc)=x$+"X"+CHR$(32+1i)+CHR$(32+co)+CHR$(31+nl)+CHR$(31+nc) 120 PRINT FNfe$(0,0,32,90);cls$;cursoff$;FNcu$(0,19);"* * L A V I L L E I N F E R N A L E * * ":PRINT FNcu$(2,27);"copiright 1986 FERNANDEZ michel" 130 PRINT:PRINT" ** REGLES DU JEU **":PRINT:PRINT" Au volant de votre voiture vous vous dirigez vers Paris.":PRINT"Vous abordez une ville inconnue, vous devez la traverser du SUD au NORD.":PRINT:PRINT"DANS CETTEVILLE DE 1600 CARREFOURS SONT REPARTIS:" 140 PRINT"80 banques; 80 postes de police, 90 garages, 90 postes d'essence.":PRINT:PRINT"POUR VOUS AIDEZ:":PRINT"Boussole, Niveaux (essence et argent)":PRINT"Alarmes (essence, argent, consommation, roue de secours)." 150 PRINT:PRINT"POUR VOUS GENER:":PRINT"Panne de boussole, Panne mécanique, Crevaisons, Agressions, Controles de police.":PRINT:PRINT"ARRETS POSSIBLES:":PRINT"Banque -> niveau argent remis au maximum.":PRINT"Essense -> plein du réservoir (â payer!)" 160 PRINT"Garage -> remise en état du véhicule (boussole, roue de secours, carburateur).":PRINT"Poste de police -> arret obligatoire si paneeau STOP (controle).":PRINT:PRINT" ATTENTION La ville n'est pas sure: vous pouvez vous faire dévaliser !" 170 PRINT FNfe$(31,0,1,90);FNcu$(0,40);"PATIENTEZ"; 180 OPEN "i",1,"vcode.txt" 190 i=code:WHILE NOT (EOF(1)):INPUT #1,octet:POKE i,octet:i=i+1:WEND:CLOSE #1 200 carad=i:carceh=carad+9:POKE car ech+1,INT(ad.jeu/256):POKE carech,ad.jeu-256*PEEK (carech+1) 210 OPEN "i",1,"vjeu.car" 220 i=-1:FOR t=1 TO 128:INPUT #1,b$:FOR j=1 TO 31 STEP 2:i=i+1:m$=MID$(b$,j,2): POKE ad.jeu+i,195:CLOSE #1 230 PRINT cls$;FNcu$(0,36);CHR$ (7); "PRESSEZ UNE TOUCHE"; 240 WHILE INKEY$<>"":WEND: WHILE INKEY$="":WEND 250 PRINT FNfe$(4,0,28,90);cls$;"** FIN DU JEU **":PRINT:PRINT"VOUS GAGNEZ SI vous ressortez de la ville coté NORD.":PRINT: PRINT"VOUS PERDEZ SI:":PRINT"Vous tombez en panne d'essence." 260 PRINT"Vous n'avez pas assez d'argent pour payer (essence, réparations,contraventions).":PRINT"Vous nevous arretez pas au controle de police.":PRINT"Vous succombez á la fatigue (plus de 200 km.).":PRINT"Vous ressortez coté SUD." 270 PRINT:PRINT"En fin de partie votre trajet vous est dévoilé avec possibilité de voir les emplacements des différents points d'arret.":PRINT:PRINT"LES COMMANDES:":PRINT" curseur gauche = tourner à gauche curseur droite = tourner à droite" 280 PRINT"curseur haut = aller tout droit curseur bas = arret (pouressence, banque, garage, police)": PRINT:PRINT"QUELQUES CONSEILS:": PRINT"Passez souvent au garage (réparations garanties pour 10 km.)." 290 PRINT"Surveillez vos alarmes (si alarme argent, pas assez pour réparations)." 300 PRINT:PRINT"N'hésitez pas à utiliser papier et crayon (le nord est vite perdu).":PRINT"Gardez votre calme (les bifurcations sont souvent défavorables).":PRINT:PRINT" B O N N E R O U T E" 310 PRINT FNfe$(31,0,1,90);FNcu$(0,40);"PATIENTEZ"; 320 CALL echange.jeu 330 CLOSE 1 340 CLEAR, 62981!: MEMORY 62981!: RUN"v1 10 ' La ville infernale - chargeur 20 ' 30 ' CHARGEUR 1 - chargeur de RSX basic etendu 40 ' 50 MEMORY &HF3FF 60 DATA C5,D5,23,7E,32,B0,F4,23,7E,32,B1,F4,3E,80,32,B2,F4,3E,F4,32,B3,F4,11,B0,F4,0E,98,CD,05,00,11,80,F4,0E,13,CD,05,00,11,80,F4,0E,16,CD,05,00,E1,5E,23,56,E1,4E,23,46,D5,C5 70 DATA ED,53,00,F4,ED,43,02,F4,0E,1A,11,00,F4,CD,05,00,0E,15,11,80,F4,CD,05,00,E1,29,24,44,D1,C5,D5,0E,1A,CD,05,00,11,80,F4,0E,15,CD,05,00,D1,EB,11,80,00,19,EB,C1,10,E7,11,80,F4,0E,10,CD,05,00,C9 80 DATA D5,23,7E,32,B0,F4,23,7E,32,B1,F4,3E,80,32,B2,F4,3E,F4,32,B3,F4,11,B0,F4,0E,98,CD,05,00,11,80,F4,0E,0F,CD,05,00,FE,00,C0,11,00,F4,0E,1A,CD,05,00,11,80,F4,0E,14,CD,05,00 90 DATA E1,5E,23,56,2A,02,F4,E5,29,44,D5,78,FE,00,28,18,C5,D5,0E,lA,CD,05,00,11,80,F4,0E,14,CD,05,00,E1,11,80,00,19,EB,C1,10,E8,D5,C1,EB,D1,AF,ED,52,EB,E1,ED,52,C5,E5,11,00,F4 100 DATA 0E,1A,CD,05,00,11,80,F4,0E,14,CD,05,00,C1,21,00,F4,D1,ED,B0,11,80,F4,0E,10,CD,05,00,C9 110 FOR i=1 TO 119:READ n$:n=VAL("&h"+n$):POKE &HF4DF+i,n:NEXT 120 FOR i=1 TO 141:READ n$:n=VAL("&h"+n$):POKE &HF556+i,n:NEXT 130 DELETE 50-130
Carga del programa
Descarga
Enlaces
es/santa_s_grotto.1480204139.txt.gz · Última modificación: 2016/11/27 02:48 por jevicac