PcwWiki

Herramientas de usuario

Herramientas del sitio

Traza:
es:santa_s_grotto

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Próxima revisiónAmbos lados, revisión siguiente
es:santa_s_grotto [2016/11/27 02:48] – creado jevicaces:santa_s_grotto [2016/11/27 02:49] – [Listado] jevicac
Línea 25: Línea 25:
  
 <file> <file>
-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 
  
 +10 'KERSTMAN.003 (SANTA'S GROTTO). Auteur: Phil Lawson. Computing with the Amstrad PCW
 +20 'Bewerkt en vertaald voor Utilities Disk 3
 +30 PRINT CHR$(27)+"E"+CHR$(27)+"H":PRINT "**************************************";CHR$(27)+"p";" KERSTMAN.003 ";CHR$(27)+"q";"************************************"
 +40 PRINT "****************************************************************************************"
 +50 PRINT:PRINT" Een arcade-game met schitterende grafische weergave. Zie voor spelregels de handleiding.":PRINT" ":PRINT:PRINT" Veel plezier...":PRINT" "; 
 +60 PRINT" ":PRINT" ":PRINT:PRINT" ":PRINT:PRINT" ";  
 +70 PRINT" ":PRINT:PRINT:PRINT CHR$(27)+"p";"Press SPACE BAR to start.";CHR$(27)+"q"
 +80 WHILE INKEY$ <>"":WEND:WHILE INKEY$ <>" ":WEND
 +90 REM        SANTA'S GROTTO
 +100 REM       by Phil Lawson
 +110 REM (c) Computing With The Amstrad
 +120 REM-------------- PCW ------------
 +130 esc$=CHR$(27):cl$=esc$+"E"+esc$+"H"
 +140 DEF FNat$(x%,y%,a$)=esc$+"Y"+CHR$(32+y%)+CHR$(32+x%)+a$
 +150 PRINT esc$+"f":PRINT cl$:RESTORE 1180
 +160 FOR a=1 TO 5:READ a$
 +170 PRINT"Your key for: ";a$,
 +180 d$(a)="":WHILE d$(a)="":d$(a)=INKEY$
 +190 WEND:d$(a)=UPPER$(d$(a)):t=0
 +200 IF a=1 THEN 230 ELSE FOR b=1 TO a-1
 +210 IF d$(a)=d$(b) THEN t=-1
 +220 NEXT b:IF t THEN 180
 +230 PRINT d$(a):NEXT a
 +240 PRINT "Laad data... geduld a.u.b."
 +250 MEMORY &HDFFF:RESTORE 1880
 +260 addr=&HE719:lin=1780:READ a$,c$
 +270 WHILE a$<>"END":lin=lin+10
 +280 chk=0:FOR a=1 TO 12
 +290 value=VAL("&H"+MID$(a$,a*2-1,2))
 +300 chk=chk+value
 +310 POKE addr,value:addr=addr+1:NEXT
 +320 IF HEX$(chk,3)<>c$ THEN PRINT"Fout in regel ";lin:END
 +330 READ a$,c$:WEND:addr=57350!
 +340 FOR a=1 TO 4
 +350 POKE addr+a,ASC(d$(a)):NEXT
 +360 lives=3:screen=&HE719
 +370 PRINT cl$:CALL screen:GOSUB 1060
 +380 PRINT FNat$(29,8,"Schermbewerking")
 +390 PRINT FNat$(30,12,"Even geduld..")
 +400 FOR a=&HE00B TO &HE5F2:POKE a,255
 +410 NEXT:RESTORE 1510:FOR a=1 TO 288
 +420 READ x:POKE &HE5F2+a,x:NEXT
 +430 addr=57487!:RESTORE 1200
 +440 PRINT esc$+"p":FOR a=1 TO 30
 +450 READ a$
 +460 FOR b=1 TO 30:v=0:t$=MID$(a$,b,1)
 +470 IF t$="W" THEN v=0:GOTO 560
 +480 IF t$="S" THEN v=7:GOTO 560
 +490 IF t$="B" THEN v=2:GOTO 560
 +500 IF t$="G" THEN v=4:GOTO 560
 +510 IF t$="I" THEN v=5:GOTO 560
 +520 IF t$="P" THEN v=1:GOTO 560
 +530 IF t$="M" THEN v=6:GOTO 560
 +540 IF t$="X" THEN v=8:maddr=addr
 +550 IF v=9 THEN PRINT"Fout in data":END
 +560 POKE addr,v:addr=addr+1:NEXT
 +570 addr=addr+12:NEXT
 +580 WHILE INKEY$<>"":dum$=INKEY$:WEND
 +590 t1=INT(maddr/256):t2=maddr-(t1*256)
 +600 POKE &HE004,t2:POKE &HE005,t1
 +610 POKE &HE718,3:GOSUB 1090
 +620 FOR a=&HE713 TO &HE715:POKE a,0:NEXT
 +630 PRINT FNat$(26,2,"PRESENTS  SNOW  ")
 +640 speedup=&HE74A:CALL speedup
 +650 game=&HE752:WHILE lives>0
 +660 WHILE PEEK(&HE713)=0
 +670 d$=UPPER$(INKEY$)
 +680 IF d$="" THEN d$=" "
 +690 IF d$=d$(5) THEN POKE &HE713,1
 +700 POKE &HE006,ASC(d$):CALL game
 +710 gi$=MID$(STR$(PEEK(&HE714)),2)
 +720 sn$=MID$(STR$(PEEK(&HE715)),2)
 +730 WHILE LEN(gi$)<3:gi$="0"+gi$:WEND
 +740 WHILE LEN(sn$)<3:sn$="0"+sn$:WEND
 +750 IF VAL(gi$)<>gi OR VAL(sn$)<>sn THEN PRINT FNat$(28,4,gi$+SPACE$(7)+sn$)
 +760 gi=PEEK(&HE714):sn=PEEK(&HE715)
 +770 IF gi>219 AND sn>129 THEN 880
 +780 WEND:IF d$=d$(5) THEN lives=1
 +790 lives=lives-1:POKE &HE713,0
 +800 WHILE inkeys$<>"":WEND
 +810 WEND:GOSUB 1060
 +820 PRINT FNat$(30,10," T O U G H ")
 +830 PRINT FNat$(30,16,"  LUCK  ")
 +840 PRINT FNat$(20,26," SPACE = again    : K = stop  ")
 +850 zz$="":WHILE zz$="":zz$=INKEY$:WEND
 +860 IF UPPER$(zz$)="K" THEN STOP
 +870 IF zz$=CHR$(32) THEN PRINT cls$:GOTO 360 ELSE GOTO 850
 +880 REM spel afgelopen
 +890 sprint=&HE813:a1=&HE004:a2=&HE005
 +900 FOR b=57534! TO 57555!
 +910 POKE a1,b-(INT(b/256))*256
 +920 POKE a2,INT(b/256):CALL sprint:NEXT
 +930 FOR b=57555! TO 58605! STEP 42
 +940 POKE a1,b-(INT(b/256))*256
 +950 POKE a2,INT(b/256):CALL sprint:NEXT
 +960 FOR b=58605! TO 58584! STEP -1
 +970 POKE a1,b-(INT(b/256))*256
 +980 POKE a2,INT(b/256):CALL sprint:NEXT
 +990 FOR b=58584! TO 57534! STEP -42
 +1000 POKE a1,b-(INT(b/256))*256
 +1010 POKE a2,INT(b/256):CALL sprint:NEXT
 +1020 GOSUB 1060
 +1030 PRINT FNat$(30,10," W E L L ")
 +1040 PRINT FNat$(30,16," D O N E ")
 +1050 GOTO 840
 +1060 PRINT CHR$(27)+"p":FOR a=6 TO 27
 +1070 PRINT FNat$(16,a,STRING$(39," "))
 +1080 NEXT:PRINT CHR$(27)+"q":RETURN
 +1090 GOSUB 1060
 +1100 RESTORE 1170:FOR a=1 TO 6:READ a$
 +1110 PRINT FNat$(72,(a*2)+5,a$):NEXT
 +1120 PRINT FNat$(66,4,CHR$(134)+STRING$(16,CHR$(138))+CHR$(140))
 +1130 FOR a=5 TO 19:PRINT FNat$(66,a,CHR$(133)):PRINT FNat$(83,a,CHR$(133)):NEXT
 +1140 PRINT FNat$(66,20,CHR$(131)+STRING$(16,CHR$(138))+CHR$(137))
 +1150 FOR a=1 TO 5:READ a$:PRINT FNat$(70,22+a,d$(a)+" - "+a$):NEXT
 +1160 key=&HE950:CALL key:RETURN
 +1170 DATA Wall, Snowball, Present,Snowman,Hole,Snow
 +1180 DATA Left,Right,Up,Down,Stop
 +1190 REM data voor display
 +1200 DATA WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
 +1210 DATA WBBWBMGWGMBPPWBIIGIBIBBBBBBSBW
 +1220 DATA WSSISWMWGGWIIWBBIGIMIBBBBBSBSW
 +1230 DATA WGGIIWIWWPWWIWSSIGISIBBBBSBSPW
 +1240 DATA WBIIWWMWWPBWIWSIIGISIBBBSBSPPW
 +1250 DATA WWIIIWGPWPGWIWISSGISIBBSBSPPGW
 +1260 DATA WBGGIWPPWWGWIWPSSGISIBSBSPPGGW
 +1270 DATA WSIIIWPGMWGWIWPSSGISISPSPPGGGW
 +1280 DATA WSGGGWSWSWGWIWBSSGGGWWWWWWWWWW
 +1290 DATA WSGGGWGWSWGWIWSSSPPPWIIBIBBIIW
 +1300 DATA WSSSIWGWSWGWSWPPPIIPWIPSPSSGIW
 +1310 DATA WGGGIWGWSWGWIWGWPIIPWIISIIIGGW
 +1320 DATA WSSSIWGWSSSWSWIWPPPPWBWSSMIIGW
 +1330 DATA WSGGGWGWSSSSSWIWGPPBBBWIIIIGPW
 +1340 DATA WSSSGWGWWWWWWWIWGGPGGGPPPPPPPW
 +1350 DATA WGGSSWGGGGGBBWIWWWWWPWWWWWWWWW
 +1360 DATA WBGGSWIBBBIBBWIWGPPBPPPPGBBBBW
 +1370 DATA WBIIBWIBBBIIIWIWGPSSWIIIPGBBBW
 +1380 DATA WISSSWIIIIIGGWGWGPBIWIGISSGBBW
 +1390 DATA WMWWWWPPPPPGGGGWGBIMWIIISSSGBW
 +1400 DATA WSWSSSSBBBPPPPWWGWWWWWWWWWSSGW
 +1410 DATA WSSBBBSSSSPPPBBWGSPBBBBBBWSSSW
 +1420 DATA WSGGGGGPPGGSGIIWWSBBBBBBBWBBSW
 +1430 DATA WWWWWWWWPWWWWWWWPPGGGGGGGWGGSW
 +1440 DATA WIBBBBPPPPPBBBBWPSSSXSSSSWPPSW
 +1450 DATA WIGGGGPWWWBGGGGWPSSSSSSSSWBPSW
 +1460 DATA WISSSSPSSSSPPPPWPPPPPPPPPWSPGW
 +1470 DATA WIGGGPPBBBPPGGPWGMBBBBBBBPPGGW
 +1480 DATA WIWMMWIIIIIWMMWWGISSSSSSSSGGGW
 +1490 DATA WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
 +1500 REM Data voor figuren
 +1510 DATA 223,223,223,0,253,253,253,0
 +1520 DATA 223,223,223,0,253,253,253,0
 +1530 DATA 223,223,223,0,253,253,253,0
 +1540 DATA 223,223,223,0,253,253,253,0
 +1550 DATA 0,0,0,0,0,0,0,0
 +1560 DATA 0,0,0,0,0,0,0,0
 +1570 DATA 0,0,0,0,0,0,0,0
 +1580 DATA 0,0,0,0,0,0,0,0
 +1590 DATA 0,7,31,62,117,106,213,234
 +1600 DATA 0,224,248,188,94,174,87,171
 +1610 DATA 213,234,117,122,61,31,7,0
 +1620 DATA 87,175,86,174,92,248,224,0
 +1630 DATA 0,7,31,62,117,106,213,234
 +1640 DATA 0,224,248,188,94,174,87,171
 +1650 DATA 213,234,117,122,61,31,7,0
 +1660 DATA 87,175,86,174,92,248,224,0
 +1670 DATA 0,0,0,6,9,8,4,3
 +1680 DATA 0,0,0,48,72,136,144,224
 +1690 DATA 63,48,48,63,48,48,63,0
 +1700 DATA 254,134,134,254,134,134,254,0
 +1710 DATA 0,60,127,127,127,63,63,31
 +1720 DATA 0,60,254,254,254,252,252,248
 +1730 DATA 31,63,63,127,127,127,60,0
 +1740 DATA 248,252,252,254,254,254,60,0
 +1750 DATA 7,8,18,16,8,7,15,6
 +1760 DATA 224,16,72,8,16,224,248,28
 +1770 DATA 33,64,65,64,65,64,32,31
 +1780 DATA 132,2,130,2,130,2,4,248
 +1790 DATA 170,85,170,85,170,85,170,85
 +1800 DATA 170,85,170,85,170,85,170,85
 +1810 DATA 170,85,170,85,170,85,170,85
 +1820 DATA 170,85,170,85,170,85,170,85
 +1830 DATA 3,12,18,16,12,3,1,127
 +1840 DATA 192,48,72,8,48,192,128,254
 +1850 DATA 7,7,7,7,6,6,6,31
 +1860 DATA 224,224,224,224,96,96,96,120
 +1870 REM Machinetaal
 +1880 DATA CD3CE711982C2100B6016801,406
 +1890 DATA 3E20F5D53E0873237223133D,3E9
 +1900 DATA 20F8D1EB09EBF13D20ECC9C1,78C
 +1910 DATA CD5AFCE900C9C1CD5AFCE000,799
 +1920 DATA C926062E08CD43E7C9CD13E8,5B3
 +1930 DATA CD5FE7CD82E7CD8FE8C93A06,796
 +1940 DATA E00100002107E0BE20020BC9,39D
 +1950 DATA 23BE200203C923BE200401D6,3AB
 +1960 DATA FFC923BEC0012A00C978B1C8,64E
 +1970 DATA 2A04E02202E0CD37E909FE00,506
 +1980 DATA C8FE012825FE072814FE0428,47F
 +1990 DATA 16FE022824FE032820FE0528,3D6
 +2000 DATA 2EFE062847DD2115E71804DD,494
 +2010 DATA 2114E7DD340036082204E0AF,420
 +2020 DATA ED423601C979FE2AC8FED6C8,734
 +2030 DATA 097EEE01C03602ED4218E3AF,547
 +2040 DATA ED423C77093213E7CD3DE921,52B
 +2050 DATA 18E73528092A02E02204E036,3AD
 +2060 DATA 08C9F1C9E53601218FE011EC,634
 +2070 DATA 047EFE042804FE052003EE01,3C5
 +2080 DATA 771B237AB320EEE118A8F3CD,651
 +2090 DATA 3CE7DD215070DDE52A04E001,5B2
 +2100 DATA AF00AFED4206090E0FE57EFE,51A
 +2110 DATA 082836FEFF20023E01878787,459
 +2120 DATA 8787FD21F3E55F1600FD19C5,654
 +2130 DATA CD72E81170FADD19C1E1230D,66A
 +2140 DATA 20D7111B0019DDE111A005DD,48D
 +2150 DATA 191002FBC9DDE518C2FD21F3,69C
 +2160 DATA E6C5CD72E8360818D6FDE506,6E6
 +2170 DATA 020E10FD7E00DD7700FD23DD,4EC
 +2180 DATA 230D20F311C002DD1910EAFD,503
 +2190 DATA E1C92175E511EC047E3D3D28,546
 +2200 DATA 2B3D280B2B1B7AB320F2C936,41F
 +2210 DATA 0318F5012A00CD37E9FE0828,456
 +2220 DATA 41FE012804360218E33E0309,2E9
 +2230 DATA 77EE02ED427718D8012A00CD,4F5
 +2240 DATA 37E93D28D63D20CCAF3217E7,563
 +2250 DATA 3A16E73D280CCD10E93A17E7,4A6
 +2260 DATA A7CC2CE918B6CD2CE93A17E7,670
 +2270 DATA A7CC10E918AA3E013213E777,510
 +2280 DATA 093602CD3DE92118E7352809,3BA
 +2290 DATA 2A02E02204E03608C9D1C923,4D6
 +2300 DATA 7E2B3DC0012B00CD37E9FE01,4BE
 +2310 DATA C03217E777093602AF3216E7,486
 +2320 DATA ED42C92B7E23FE01C0012900,4AD
 +2330 DATA 18E109AF7EED42C94E061036,4C1
 +2340 DATA 08D9CD13E8D971D9CD13E8D9,76D
 +2350 DATA 10F1C9CD3CE7FD21F3E5DD21,7AE
 +2360 DATA 306CCD72E8114000FD19CD72,569
 +2370 DATA E80604112000FD19FD19D5C5,4E9
 +2380 DATA CD72E8C1D110F5C900000000,587
 +2390 DATA END,END
 +6CCD72E8114000FD19CD72
  
 </file> </file>
es/santa_s_grotto.txt · Última modificación: 2022/06/29 15:27 por jevicac