JEU -> Tir sur Cibles               

1 joueur

Nous sommes en 1920, la police de Chicago a décidé de mettre en place une section spéciale afin de mettre fin aux activités illégales de la mafia. Vous faites partie de cette section.

Jeu en MODE 0 (16 couleurs).
Comprend 4 niveaux.

Paru sous forme de listing dans le magazine Amstar & Cpc n° 45 Mai 1990.
Auteur : Stephane DE CANEVA

La suggestion par Amstar & CPC pour surmonter le message "Memory full in 80" ne fonctionne pas ! Au lieu de cela, modifiez la ligne 10 du listing CHICAGO.BAS :
AVANT :

10 IF PEEK(&9500)=0 THEN MEMORY &5000-1: LOAD"!CHICAGO1.BIN": LOAD"!CHICAGO2.BIN": LOAD"!CHICAGO3.BIN": LOAD"!CHICAGO4.BIN": POKE &9500,1

APRES :

10 IF PEEK(&9500)=0 THEN OPENOUT"D":MEMORY &5000-1:CLOSEOUT: LOAD"!CHICAGO1.BIN": LOAD"!CHICAGO2.BIN": LOAD"!CHICAGO3.BIN": LOAD"!CHICAGO4.BIN": POKE &9500,1

Il existe d'autres bugs :

* Le high score n'est pas vérifié après la fin du jeu. Ce bug peut être corrigé en modifiant la ligne 90 :
AVANT :

90 GOSUB 1680

APRES :

90 GOSUB 1680:HI=MAX(SC,HI)

* Le niveau actuel n'est pas affiché correctement ; il affiche toujours le numéro "00001". Ce bug peut être corrigé en modifiant la ligne 1580 :
AVANT :

1580 A$="NIVEAU":XL=32:YL=90:GOSUB 1400:CH=NIV:XL=46:YL=90:L=1:GOSUB 1440

APRES :

1580 A$="NIVEAU":XL=32:YL=90:GOSUB 1400:CH=NIV:XL=46:YL=90:L=1:GOSUB
1440:XL=41:YL=9:L=5:GOSUB 1440

* Il existe un autre bug dans les listings qui génèrent les fichiers binaires (LISTING2.BAS, LISTING3.BAS, LISTING4.BAS et LISTING5.BAS). Si une ligne n'est pas saisie correctement, le programme affiche une erreur, mais le numéro de la ligne qui est affiché est faux ! Il peut être corrigé en modifiant la ligne 20 :
AVANT :

20 FOR A=DEB TO DEB+LONG STEP 16:SOM=0: FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$): SOM=SOM+VAL("&"+A$):NEXT: LIG=LIG+10:PRINT LIG: READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE NEXT

APRES :

20 FOR A=DEB TO DEB+LONG STEP 16:SOM=0: FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$): SOM=SOM+VAL("&"+A$):NEXT: PRINT LIG: READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE LIG=LIG+10:NEXT

* De plus, la lettre O n'est pas affiché correctement. Ce bug peut être corrigé en modifiant la ligne 2650 du LISTING2.BAS :
AVANT :

2650 DATA CC,88,20,20,80,80,82,82,80,80,20,20,31,39,39,30,05AB

APRES :

2650 DATA CC,88,20,20,80,80,82,82,80,80,20,20,CC,88,00,00,062C

* De plus, le chiffre 7 n'est pas affiché correctement. Ce bug peut être corrigé en modifiant la ligne 270 du LISTING3.BAS :
AVANT :

270 DATA FC,A8,00,20,00,80,41,00,40,00,10,00,04,00,00,00,02D9

APRES :

270 DATA FC,A8,00,28,00,02,41,00,01,00,14,00,54,00,00,00,0278