Space Intruders sur Casio 702P

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Répondre
Avatar du membre
bkg2018
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 359
Enregistré le : 30 mai 2012 16:57

Space Intruders sur Casio 702P

Message par bkg2018 »

Je l'ai retrouvé, le seul programme que j'ai fait sur 702P à l'époque après l'avoir emprunté à un de mes meilleurs potes pour deux jours.

Je crois que l'idée initiale était de lui et j'en ai fait un truc plus animé et vivant. Je vous laisse jouer. Des portages seraient sympa mais il va falloir faire preuve d'imagination car ici, le jeu utilise ... les rappels des MODE inscrits sur le clavier sous l'écran. C'est donc totalement spécifique au 702P...

Code : Tout sélectionner

Alors que vous étiez en train de paisiblement vous endormir sur votre couchette de repos modèle Armée 88, l'alerte stridente vous fait sursauter.

Les envahisseurs sont là ! Un par un ils sortentde l'hyperespace devant votre station DCE (défense contre envahisseurs), passant en vol ultrasonique au dessus de vous.

Vous vous souvenez des consignes : leur tirer dessus dès qu'ils apparraissent. Après, vous ne pouvez plus les atteindre, ils seront passés derrière vous (il n'y a plus qu'à espérer que les autres stations DCE les abattront).

Tandis que vos doigts tentent de trouver les bonnes touches (chacune représentant une zone de l'espace que vous pouvez toucher, un envahisseur pouvant y apparaître) vous vous souvenez de la stratégie d'attaque des envahisseurs : s'ils perdent trois vaisseaux sur la première station DCE, ils repartent sans insister. Et la première station, c'est vous !

Il faut en abattre trois. Vite, là à gauche, secteur 1 ... Raté !!!

MODE D'EMPLOI

Sur votre Casio 702P, les zones citées ci-dessus sont au nombre de sept, et leur numéro est indiqué dans un petit rectangle sous l'aéfficheur. (Il s'agit des rappels de la touche MODE). Les envahisseurs apparaissent exactement au dessus de ces petits rectangles, et il faut alors appuyer la touche numérique correspondante.


Zone :   0     1     2          3           4     5     6

MODE  >  0 RUN 1 XRT 2 TRACE ON 3 TRACE OFF 4 DEG 5 RAD 6 GRA ...


Comme vous le voyez c'est vraiment très simple.

Dans la pratique, vous devez spécifier le coefficient de facilité du jeu, un entier de 0 à l'infini, qui représente la rapidité des envahisseurs. Je vous conseille de commencer à 25 par exemple. A zéro, il est pratiquement impossible de jouer (ou alors avec de la chance ...)

Le jeu s'arrête dès que vous avez touché 3 envahisseurs. Le nombre d'envahisseurs ratés est alors affiché.


1 VAC:INP"DIFFICULTE ";S
2 $=".0.1.2..3...4.5.6":D$=")=("
3 E$=">$<":F$="+.+":G$=" . "
4 K=Int(RAN#*17+1):IF MID(K,1)="."THEN 4
5  WAIT S:PRT CSR K-2;D$:B$=KEY$
6 IF b$=MID(K,1) THEN 10
7 R=R+1:PRT CSR K-2;"   ":GOTO 4
10 O=O+1:K=K-2:WAIT 5:PRT CSR K;E$
11 PRT CSR K;F$:PRT CSR K;G$
12 IF O=3 THEN 30
13 GOTO 4
30 PRT "VOUS AVEZ RATE ";R;" ENVAHISSEURS.";
31 PRT "DIFFICULTE : ";S;STOP:GOTO 1
HP : 67 25 34C 15C 41CX 48S* 48SX 48GX 35S* WP34S* 39gII*
TI : SR52 57 58C* 59 Programmer 66 74S 65
Sharp : PC 1245 1251* 1262 G-850S G-850V
Canon : X-07* F-800P*
Casio : CG-8 SF5300E*
*: persos d'époque
Avatar du membre
bkg2018
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 359
Enregistré le : 30 mai 2012 16:57

Re: Space Intruders sur ... Casio 702P

Message par bkg2018 »

Je sais pas comment j'ai tapé ce titre de topic, mais je soupçonne le pad de mon portable d'avoir déplacé mon curseur souris en plein milieu d'une phrase !!!
HP : 67 25 34C 15C 41CX 48S* 48SX 48GX 35S* WP34S* 39gII*
TI : SR52 57 58C* 59 Programmer 66 74S 65
Sharp : PC 1245 1251* 1262 G-850S G-850V
Canon : X-07* F-800P*
Casio : CG-8 SF5300E*
*: persos d'époque
Avatar du membre
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5646
Enregistré le : 26 mars 2009 13:07
Localisation : Ile de France
Contact :

Re: Space Intruders sur ination ca... Casio 702P

Message par ledudu »

Je suis feignant de saisie, j'ai transféré le programme avec un FA-2 et les outils de Marcus.
D'abord, il faut enregistrer le programme dans un fichier .txt.
Pour le transfert
- récupérer dans les outils de marcus bas702.exe.
- créer un .bat avec
set /P fichier=[entre le nom du fichier texte sans extension:]
bas702.exe -w %fichier%.txt %fichier%.wav
Il suffit d'éxécuter le .bat pour créer le .wav qu'on lit avec audacity.
Les trois fichiers (exe, bat et txt) sont dans le même répertoire bien sûr.

Deux petites coquilles à corriger en ligne 1 et 31.
Voici le programme :

Code : Tout sélectionner

 VAC:INP"DIFFICULTE ",S
2 $=".0.1.2..3...4.5.6":D$=")=("
3 E$=">$<":F$="+.+":G$=" . "
4 K=Int(RAN#*17+1):IF MID(K,1)="."THEN 4
5  WAIT S:PRT CSR K-2;D$:B$=KEY$
6 IF b$=MID(K,1) THEN 10
7 R=R+1:PRT CSR K-2;"   ":GOTO 4
10 O=O+1:K=K-2:WAIT 5:PRT CSR K;E$
11 PRT CSR K;F$:PRT CSR K;G$
12 IF O=3 THEN 30
13 GOTO 4
30 PRT "VOUS AVEZ RATE ";R;" ENVAHISSEURS.";
31 PRT "DIFFICULTE : ";S:STOP:GOTO 1
Merci de m'avoir permis de jouer avec ma 702...

Pas facile à choper ces envahisseurs... ;o))
Avatar du membre
bkg2018
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 359
Enregistré le : 30 mai 2012 16:57

Re: Space Intruders sur ination ca... Casio 702P

Message par bkg2018 »

Merci pour les corrections :-)

La coquille de la ligne 1 était sur mon manuscrit, tiens !!!

On pourrait compliquer la tache en diminuant S quand on touche un envahisseur, ainsi les suivants sont plus rapides, comme dans le vrai space invader ...

On pourrait aussi, franchement j'ai honte, changer çà :

12 IF O=3 THEN 30
13 GOTO 4

En çà :

12 IF O<>3 THEN 4

(si <> est bien ce que je crois sur le 702, je ne me souviens plus)
HP : 67 25 34C 15C 41CX 48S* 48SX 48GX 35S* WP34S* 39gII*
TI : SR52 57 58C* 59 Programmer 66 74S 65
Sharp : PC 1245 1251* 1262 G-850S G-850V
Canon : X-07* F-800P*
Casio : CG-8 SF5300E*
*: persos d'époque
Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1602
Enregistré le : 27 oct. 2010 20:46

Re: Space Intruders sur ination ca... Casio 702P

Message par Gilles59 »

Bonjour !

Pas possible à adapter sur 602P du fait de l'écran plus réduit.

Encore qu'on pourrait adapter la chose et demander la saisie d'une nombre de 1 (ou 0) à 9 qui serait la position d'un caractère sur l'écran.

Par contre et si j'ai bien compris comment cela marche, çà se rapproche un peu de ce jeu écrit il y a longtemps, l'habillage spatial en moins :

Code : Tout sélectionner


[P0] - 109 pas

"FAST." PAUSE
3 Min00

LBL6
"; AR00 ." PAUSE { Petite animation : FAST...3...2...1.... GO !! }
DSZ GOTO6 { DSZ : Décrémente MR00 et saute si zéro }

"-> GO !!" { le caractère (->) s'obtient par (INV +) }

20 Min01 Min02 { La partie se joue en 20 coups }

LBL1
MR01 x=0 GOTO9 { Partie finie ? }
1 M-01
RAN# x 9 + 1 = INT MinF Min00 AC
{ Nombre de carré aléatoires à afficher de 1 à 9 }
"->"

LBL0
";¤"
DSZ GOTO0 { Animation affichant le nombre de carré. ¤ = carré noir de la Casio (INV 1) }

PAUSE { Vous avez 1 seconde pour taper le bon nombre ... }
x=0 "Trop lent!" 
x=0 GOTO3
x=F GOTO1 { Bien vu ! -> Au suivant }
"Non-> ARF" PAUSE { Raté ... }

LBL3
1 M-02 GOTO1 { Décrémente le score et recommence }

LBL9 { Fin de partie }
MR02 Min00 1 M+00
0 Min1F

LBL8
"AR1F / 20" { Petite animation affichant votre score ...} 1/20...2/20...3/20 etc.}
1 M+1F
DSZ GOTO8
";" { Pour continuer à afficher le registre Alpha à la fin du programme}
il s'agit ici de saisir 'à la volée' le nombre de carré noir apparaissant sur l'écran
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
Avatar du membre
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3644
Enregistré le : 06 sept. 2011 14:57
Localisation : Normandie

Re: Space Intruders sur ination ca... Casio 702P

Message par Hobiecat »

bkg2018 a écrit :(si <> est bien ce que je crois sur le 702, je ne me souviens plus)
Si je me souviens bien, c'est plutôt un "différent de" ( le égal barré) sur les Casio.
Avatar du membre
Woodstock
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1969
Enregistré le : 17 mai 2008 11:19
Localisation : Au fin fond du Santerre ...

Re: Space Intruders sur Casio 702P

Message par Woodstock »

Affirmatif, c'est accessible par F1
I'm the operator
Of my pocket calculator
I am adding
And substracting...
(Kraftwerk, Computer World, 1981)
Avatar du membre
Marcus von Cube
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 914
Enregistré le : 20 avr. 2006 13:48
Localisation : Wehrheim, Allemagne
Contact :

Re: Space Intruders sur ination ca... Casio 702P

Message par Marcus von Cube »

Hobiecat a écrit :
bkg2018 a écrit :(si <> est bien ce que je crois sur le 702, je ne me souviens plus)
Si je me souviens bien, c'est plutôt un "différent de" ( le égal barré) sur les Casio.
Woodstock a écrit :Affirmatif, c'est accessible par F1
bas702 accepte également <> comme input.
Répondre

Retourner vers « Tous les Pockets »