Un hobby : la programmation



La plupart des créateurs de pages web ont peu ou prou touché à la programmation.

Je n'échappe pas à la règle.

NOSTALGIE D'ABORD, ET CADEAUX POUR FINIR.

Je me suis offert un AMSTRAD CPC 6128 dans les années 80.

Le BASIC y était directement accessible. De nombreuses revues proposaient des petits programmes à taper puis à sauvegarder sur disquette. C'était une bonne école pour apprendre. Tout en pianotant sur le clavier, on se posait des tas de questions : pourquoi ces commandes, comment ça marche ?

Je me suis notamment intéressé au concours permanent de la revue AM-MAG.

Il fallait bâtir un programme en dix lignes. Voici ma meilleure contribution de l'époque, MURENE.BAS, que les nostalgiques qui n'ont pas jeté leur CPC 6128 pourront tester ... si leur joystick est encore opérationnel !

Nostalgie CPC 6128 ... MURENE.BAS
10 DEFINT a-z:MODE 1:BORDER 0:INK 0,0:INK 1,19:INK 2,6:INK 3,15:WINDOW 1,40,2,25:WINDOW #1,1,40,1,1,1:MOVE 16,14,2:dx=2:dy=2:ENT 1,6,3,1,1,-1,0,2
20 p$=CHR$(214)+CHR$(215)+STRING$(2,8)+CHR$(10)+CHR$(213)+CHR$(212):GOSUB 70:WHILE vie>0:GOSUB 60:IF XPOS>638 OR XPOS<16 THEN dx=-dx:GOSUB 60:GOSUB 80:GOSUB 60
30 IF YPOS>378 OR YPOS<16 THEN dy=-dy:GOSUB 60:GOSUB 80:GOSUB 60
40 tj=JOY(0):IF dx+(tj AND 12)=6 then dx=-dx ELSE IF 4*(tj AND 13)-dy=6 THEN dy=-dy
50 GOSUB 60:a=TESTR(5*dx-8,5*dy-6):MOVER 8-5*dx,6-5*dy:ON a GOSUB 70,80,80:WEND:PRINT #1,"Niveau atteint:";niv;" <ESPACE> ";:WHILE INKEY$<>" ":WEND:RUN
60 MOVER dx-16,dy:PRINT CHR$(224);:RETURN
70 SOUND 1,100,40,,,1:vie=MIN(40,vie+INT(niv/10)+2):niv=niv+1:GOSUB 90:CLS #1:FOR i=1 TO vie:PRINT #1,CHR$(228);:SOUND 17,50,8,1:SOUND 10,60-i,5:NEXT:RETURN
80 SOUND 1,500,10,,,17:vie=MAX(1,vie):LOCATE #1,vie,1:PRINT #1," ",:vie=vie-1:RETURN
90 TAGOFF:CLS:PEN 3,1:FOR i=1 TO 3*niv:GOSUB 100:NEXT:PEN 1:GOSUB 100:TAG:RETURN
100 xp=INT(39*RND)+1:yp=INT(23*RND)+1:LOCATE xp,yp:PRINT p$;:RETURN

J'ai eu sur cette machine des projets plus ambitieux, mais la mémoire était trop limitée pour des jeux de lettres.

C'est tout de même en BASIC que j'ai réussi un programme apprécié ... par mes proches et qui se défendait honorablement au jeu africain d'AWALE. J'ai même dû écrire une petite procédure en langage-machine pour gagner un temps de calcul appréciable.

Fin des années 80, je suis passé au PC, devenu financièrement très abordable, en m'offrant l'AMSTRAD 1640.
Délaissant le BASIC, j'ai découvert le TURBO PASCAL.
Premier projet : reprendre le programme d'awalé.
Son nom est devenu AWELE, plus spécialement EGAWELE.
Vous trouverez ce programme à télécharger sur la page que je lui consacre, il tourne sous DOS, écran EGA.

La mémoire du PC étant nettement plus conséquente que celle du CPC, j'ai pu développer quelques idées de jeux de lettres. Tout d'abord une adaptation du jeu MAGIGRILLE qu'on trouvait naguère sur le Minitel en version 6 sur 6.
J'ai d'abord réalisé la version 6 sur 6, mais on s'en lasse très vite à mon goût.
Si vous le souhaitez cependant, je peux vous en transmettre une copie mais la présentation est moins peaufinée que pour la version 7 sur 7 que j'ai nommée MAGIGRILLE PLUS.


Cette adaptation est téléchargeable sur ce site, voyez en bas de cette page.
Le but du jeu est de placer au mieux les 49 lettres que l'ordinateur impose l'une après l'autre.
Chaque ligne, chaque colonne attribue les points des mots qu'elle contient, à savoir le carré du nombre de lettres de ceux-ci. Par exemple, INFONIE rapporte 25 points : 16 pour INFO, 9 pour NIE.
La référence est l'Officiel du Scrabble, 3ème édition, conjugaisons exclues.
Découvrez quelques copies d'écran pour vous faire une première idée ...

Depuis, je me suis équipé de diverses machines, mais je n'ai pas souvent trouvé le temps de programmer et je n'ai rien produit d'intéressant sous Windows.

Voici  par ailleurs un petit jeu sans prétention, en mode texte sous DOS - c'est dire s'il est sans prétention !!! - mais qui plaît à certains bons joueurs de Scrabble, que je me permettrai de citer ici s'ils m'y autorisent.
Ce jeu consiste à trouver des mots de huit lettres, quatre de ces lettres étant connues au départ.
Il permet notamment de réviser les tirages de sept lettres.
Si le programme vous annonce après que vous ayez proposé CROISADE :
CROISADE contient les lettres A D E I O R S
vous pourrez proposer ASTROIDE, DERAISON et AVODIRES sans pénalité avant de découvrir la solution DESARROI.

Ce logiciel s'appelle OCTOPUS.
Il s'appuie sur le vocabulaire ODS 3, conjugaisons exclues.
Et c'est un graticiel (ODS 4 ?)

Vous pouvez même le voir en cliquant ici !


Magiplus

Egawele

Octopus

Téléchargement MAGIODS3.ZIP

Téléchargement EGAWELE.ZIP

Téléchargement OCTOPUS.ZIP

Téléchargez-les, diffusez-les, faites-en profiter vos amis qui n'ont pas la chance de posséder un PC récent.
Et si quelqu'un pouvait concevoir une belle icône pour un jeu, je suis preneur.

Nouveau !   Un économiseur d'écran pour les scrabbleurs.  Nouveau !


RETOUR

Page perso

 Scrabble