[TIPS] - XENON-1: nombre de vies illimitées

Re bonjour les Oriciennes et Oriciens,


Ceux qui connaissent cette astuce ou qui sont des surdoués des jeux de shooting  ne sont pas concernés par ce qui suit.
Pour d'autres ce n'est pas du jeu, c'est de la triche, eh, je suis désolé, seul le résultat compte pour gagner.
A tous ceux qui comme moi,  avec  XENON1 était frustré de ne pouvoir faire le plein d'énergie depuis le vaisseau mère qu'à de rares exceptions, du fait d'avoir épuisé ses 3 bases et de tout recommencer à chaque fois.
Et bien, je vous confie, un petite astuce, si vous voulez avoir 3 bases en continue, c'est assez simple: on s'aperçoit en désassemblant XENON1 que le nombre de bases se niche à l' adresse $9616.
En fait dans le source, il y a  un DEC $9616, suivi d'un BEQ qui attend que le contenu de l'adresse $9616 soit à zéro pour nous faire recommencer la partie, oh le vilain, (non non non, on veut pas recommencer !!!).
Alors vous prenez votre fichier physique XENON1.TAP (faites une copie auparavant, c'est plus sûr).
Ensuite vous prenez un basic, un pascal ou un c même QBASIC dos fait l'affaire, dans ce cas précis j'ai utilisé Powerbasic Console Compiler.
Je vous livre ces quelques lignes basic qui vont vous donner un XENON1 forever.
Aux adresses physiques décimal 23357, 23358, 23359 du fichier, se trouve le fameux DEC $9616, remplacer le contenu de ces trois adresses par 3 NOP successifs, et le contenu de l'adresse $9616 ne sera plus décrémenté. Je parle d'adresse physique car on est pas dans l'oric mais dans un fichier physique , il y a l'entête, ce qui fait que le fichier est un peu plus long que celui résidant dans l'oric après le chargement. Pourquoi ne pas le faire sur l'oric, c'est possible, mais avec XENON1 qui occupe pratiquement tout l'espace mémoire, ça complique un peu les choses et puis il faut sauvegarder le fichier etc... 13 petites lignes basic font très bien l'affaire. Normalement la taille du fichier XENON1.TAP fait 37396 octets et le contenu des adresses à patcher est $CE, $16, $96.


A vous d'adapter le source ci-dessous en fonction du langage que vous allez utilisé pour créer ce patch.

DIM I AS INTEGER
DIM VAR1 AS STRING * 1
REM VAR1 contiendra #$EA correspondant au mnémonique 'NOP' (en bon français ne fait rien)
REM dans certains langage le 1er octet porte l'adresse zero, donc les adresses seront 23356 à 23358  
VAR1 = CHR$(234)  
OPEN "XENON1.TAP" FOR RANDOM ACCESS READ WRITE AS #1 LEN=1
IF LOF(1) = 37396 Then
FOR I = 23357 TO 23359  
PUT #1, I, VAR1      
NEXT I
PRINT "PATCH EFECTUE"
ELSE
PRINT "PATCH AVORTE, LE FICHIER NE CONTIENT PAS 37396 OCTETS"
END IF
CLOSE #1

Après ça un petit CLOAD "XENON1", et viva le patch.

@Kiwilevrai, je n'ai pas relooker XENON1, il est déjà trop beau comme ça, par contre, je suis entrain de terminer la translation en c des programmes basic 'ORIC-BRIQUES, GLOUTON, PACMAN, ils sont beaucoup plus fluide que le basic, dans certains cas il faut les ralentir, autrement il ne serait pas jouable, je les poste prochainement avec les sources bien sûr.

Bonne journée à tous A+

merci pour cette modification !!
je vais enfin pouvoir gagner plus souvent

@++

Bien vu pour l'adresse du nombre de vie en  $9616  
Dans WINHEX la suite CE1696 se trouve à l'offset $5B40 soit 23360 en décimal.
En retirant les 23 octes de l'entête et en rajoutant 1024 (adresse de début du BASIC dans l'oric) on trouve une adresse réelle à $6029 dans l'oric.
De mon côté, en 84 (30 ans déjà...) j'avais trouvé un truc similaire . En fait dans XENON, la valeur du nombre de vies est mise à jour à l'écran AVANT de faire le test SI VIE =0 THEN... C'est donc à cet endroit dans le code que j'avais placé mon astuce.

Code d'origine:
$5FF8 : LDA $9616    prendre le nombre de vies
$5FFB : ORA #$30     transformer en code ASCII
$5FFD : STA $BFA3   L'écrire à l'écran.

Transformé en :
$5FF8 : LDA #$03     3 vies
$5FFA : STA $9616    remise en 9616 quoi qu'il arrive
$5FFD : NOP
$5FFE : NOP
$5FFF : NOP

Truc moins bien que le tien, puisque au lieu de changer 3 octets, j'en changeai 8   
Mais il y en a un qui nous bat tous les deux, c'est Jim Groom qui lui ne change q'UN octet pour le même résultat  
Adresse indispensable pour tous les tricheurs     : http://freespace.virgin.net/james.groom/oric/cheats.htm

Jim propose tout simplement : POKE24617,173 . Soit POKE $6029,#$AD
Qui transforme $6029: DEC $9616 en $6029 : LDA $9616

Pour changer un seul octet, il est trés facile d'utiliser le debuger d'Euphoric. MArche à suivre :

1- Lancer XENON1
dès que le jeu démarre
2- F11
2- E 6029 [RETURN]
3- AD [RETURN]  [RETURN]    (2x return)
4- F11

Vous êtes immortels et votre version de XENON n'est pas modifiée.

Bonjour Dom50,

Bah, tu as raison, y a toujours plus malin ou plus fort, faut s'y faire.

En tous les cas merci  de ton info.

A+