Le premier système informatique que j'ai
eu la joie de posséder fut un Casio PB-100,
doté de l'option mémoire
étendue (1568 pas de mémoire, contre
544 en version de base, waouh!), en 1985.
J'ai naturellement écrit un nombre certain
de programmes entre 1985 et 1988, tous des jeux
naturellement, qui devraient également
fonctionner sur le PB-200 et le PB-80, et
peut-être d'autres (mais je ne peux rien
garantir, bien sûr).
Certains de ces programmes -les jeux de rôle
en particulier- sont accompagnés de cartes
et accessoires divers que je ne peux
malheureusement pas publier pour l'instant, mais je
m'efforcerai d'être clair dans les
explications!
Enfin, n'étant plus actuellement en
possession d'un PB, certains listings étant
assez jaunis, l'encre ayant passé et/ou
bavé, et du fait que j'écris comme un
chat, il se peut que des fautes de syntaxe se
glissent de ci de là! Surtout,
prévenez-moi. Et si vous avez un PB-100 ou
200 à vendre, sachez que je suis
preneur.
Jean Bon 000(706 pas)
Blade Runner (594 pas)
Le jeu consiste à poursuivre un ennemi
invisible contrôlé par l'Ordinateur
sur une grille de 20 pas de large par 30 de haut et
à l'abattre en connaissant seulement la
distance qui vous en sépare. A chaque tour
vous vous déplacez dans une direction G, D,
H, B (respectivement pour aller vers la gauche, la
droite, le haut et le bas, OK?) de 6 pas au
maximum, puis vous tirez si vous le souhaitez en
répondant "OUI" à la question "tir?".
Si vous êtes sur la même ligne
horizontale ou verticale que le réplicant,
vous gagnez. Vous partez avec 12 coups seulement;
et vous n'avez que 10 tour pour abattre chaque
réplicant, mais chaque réplicant
vaincu vous permet de recharger...
Variables: N, meilleur score; X, Y, coordonnées du joueur; V,W, coordonnées du réplicant; Z, score courant; B, nombre de balles; V, nombre de vies; I, J, nombre de tours
2 X=20 : Y=30 : V=INT(RAN#*20) : W=INT(RAN#*30) : Z=0 : V=4 : J=0 : B=12
5 PRINT "BLADE RUNNER" : PRINT
6 FOR I=0 TO 10
10 PRINT "A VOUS" , "X=" ; X , "Y=" ; Y : INPUT "DIR." , A$ ; "N° DE PAS" , B$
12 IF B>6 ; B=6
13 IF A$="G" ; X=X-B
14 IF A$="D" ; X=X+B
15 IF A$="H" ; Y=Y-B
16 IF A$="B" ; Y=Y+B
17 IF X>20; X=20
18 IF Y>30 ; Y=30
19 IF X<0 ; X=0
20 IF Y<0 ; Y=0
21 PRINT "X=" ; X; " Y=" ; Y ; " D=" ; SQR((X-V)^2 + (Y-W)^2)
22 INPUT "TIR" , A$; IF A$="OUI" ; IF X=V ; GOTO 100
23 IF A$="OUI" ; IF Y=W ; GOTO 100
24 D=INT(RAN#*5) : IF X>=V ; V=V-D
25 IF X<V ; V=V+D
26 IF Y>W ; W=W-D
27 IF Y<=W ; W=W+D
28 J=J+1 : NEXT I
29 V=V-1 : IF V=0 THEN 500
30 B=12 : GOTO 6
100 IF B>0 ; B=B-1 : V=INT(RAN#*20) : W=INT(RAN#*30) : Z=Z+(J+2)*10 : PRINT "***Touché! Bravo!"
105 GOTO 6
500 PRINT "Game Over" , "Score :" ; Z : IF Z>N ; N=Z : PRINT "***BEST***"
505 GOTO 2
Jean Bon 000 (706 pas)
Ce jeu est le pendant du précédent
: sur une grille de 20 pas par 30, vous devez
échapper au poursuivant
contrôlé par l'Ordinateur; partant du
coin inférieur droit du terrain, vous devez
atteindre le coin supérieur gauche (le
siège de l'ONU...) pour gagner. Si votre
poursuivant est suffisament éloigné
vous avez en plus un bonus.
Si l'ennemi est sur la même ligne que vous,
il vous tire dessus et vous perdez une vie. S'il
arrive sur la même case que vous ou que vos
vies sont épuisées, vous avez
perdu.
Bonne chance!
2 X=20 : Y=30 : V=19 : W=0 : Z=0 : U=3
10 PRINT "Jean Bon 000" : PRINT
15 PRINT "A vous", "X=" ; X ; " Y=" ; Y : INPUT "Dir." , A$ ; "Combien de pas" , B$
16 IF B>5 ; B=5
17 IF A$="G" ; X=X-B
18 IF A$="D" ; X=X+B
19 IF A$="H" ; Y=Y-B
20 IF A$="B" ; Y=Y+B
21 IF X>20 ; X=20
22 IF X<0 ; X=0
23 IF Y>30 ; Y=30
24 IF Y<0 ; Y=0
25 IF X=0 ; IF Y=0 THEN 500
26 PRINT "X=" ; X ; " Y=" ; Y
28 PRINT "A moi" , "X=" ; V ;" Y=" ; W : D=INT(RAN#*5)
30 IF X>V ; V=V+D
31 IF X<V ; V=V-D
32 IF Y>W ; W=W+D
33 IF Y<W ; W=W-D
34 IF V<0 ; V=0
35 IF V>20 ; V=20
36 IF W<0 ; W=0
37 IF W>30 ; W=30
38 IF V=X ; IF W=Y THEN 1000
39 IF V=X THEN 100
40 IF W=Y THEN 100
41 PRINT "X=" ; V ; " Y=" ; W
45 GOTO 15
100 PRINT "***Je tire..." : U=U-1 : X=20 : Y=30
101 IF U=0 THEN 1000
102 GOTO 15
500 PRINT "BRAVO!! Vous êtes arrivé " ; "à l'ONU" : Z=Z+10
501 X=20 : Y=30 : IF V>3 ; IF W>5 ; Z=Z+5
502 V=20 : W=0 : PRINT "score : " ; Z : GOTO 15
1000 PRINT "Game Over ......... score :" ; Z ; " " : IF Z>N ; N=Z : PRINT "*** BEST ***"
1001 GOTO 2