










![]() | ![]() |
#8A24 : 3A 2B B8......LD A,(&B82B) ; nombre de navires
#8A27 : 87............ADD A,A ; bonus = Navires * 2
#8A28 : FE 09.........CP &09
#8A2A : 38 02.........JR C,&8A2E ; si bonus inférieur a 9 saut en &8A2E
#8A2C : 3E 08.........LD A,&08 ; sinon réduire le bonus à 8 tanks maximum
#8A2E : 4F............LD C,A ; C=A
#8A2F : 3A 2F B8......LD A,(&B82F) ; level de difficulté (&01 a &03)
#8A32 : 3D............DEC A ; handicap = level de difficulté -1
#8A33 : 87............ADD A,A ; handicap = handicap * 2
#8A34 : ED 44.........NEG ; level &01 devient handicap=&00, level &02 devient handicap=&FE, level &03 devient handicap=&FC
#8A36 : 81............ADD A,C ; nombre de tanks = handicap + bonus
#8A37 : 32 45 B8......LD (&B845),A ; ecrire le nombre de tanks (minimum 2 et maximum 8)
ORG &8A37
CALL patch
ORG &4730
patch
CP &FE ; level 3 avec 1 navire = BUG
JP Z,correction_valeur_minimal
CP &00 ;level 2 avec 1 navire ou level 3 avec 2 navires = BUG
JP Z,correction_valeur_minimal
JP saut_sans_correction
correction_valeur_minimal
LD A,2 ;correction avec 2 tanks au démarrage
saut_sans_correction
LD (&B845),A ;on remet l'instruction d'écriture qu'on a cassé
RET
3D 87 ED 44 81 32 45 B8 3E C8
3D 87 ED 44 81 CD 30 47 3E C8
44 20 44 45 2C 39 39 0D 41 44 44 20 48 4C 2C 44 45 0D 49
FE FE CA 3D 47 FE 00 CA 3D 47 C3 3F 47 3E 02 32 45 B8 C9