Nager avec les poissons

Lancez ARTIF.BAS et observez un petit poisson se balancer à l'écran. Dans FISH.BAS, les enjeux sont plus importants : un poisson plus gros et plus beau demande de l'attention et de la nourriture.

ARTIF.BAS utilise la fonction de mouvement relatif de l'instruction DRAW pour afficher le poisson, tandis que FISH.BAS s'appuie sur les instructions PUT/GET pour donner vie au poisson.

Transformer FISH.BAS en un jeu fluide, avec des objectifs, une feuille de score, etc., représente un défi de taille. L'approche la plus judicieuse serait peut-être celle des Tamagotchi, autrefois très populaires.

ARTIF.BAS

0 RANDOMIZE TIMER
6 X=INT(1+320*RND(1))
7 Y=INT(1+200*RND(1))
10 KEY OFF:SCREEN 7:COLOR 15,1:CLS:INPUT"Couleur du poisson(1-15)";H:INPUT"Couleur du contour du poisson(l-15)"; JD:CLS
15 RANDOMIZE TIMER
30 T=INT(1+5*RND(1))
35 V=INT(1+5*RND(1))
40 C=INT(1+5*RND(1))
41 B=INT(1+2*RND(1))
42 N=INT(1+2*RND(1))
43 IF B=2 THEN V=-(V)
44 IF N=2 THEN C=-(C)
45 FD=INT(1+500*RND(1))
100 FOR A=1 TO T
110 PSET(X,Y),JD:DRAW"M+2,-3 M+3,-3 M+4,-3 M+5,-1 M+5,+2 M+6,-3 M-4,+7 M+5,+4 M-8,-1 M-2,+3 M-5,+1 M-6,+0 M-5,-3 BM+5,-2 M+3,-1 M-1,+2 M-2,-1":PAINT(X+2,Y-1),H,JD
115 FOR DF=1 TO FD:NEXT DF
120 PSET(X,Y),0:DRAW"M+2,-3 M+3,-3 M+4,-3 M+5,-1 M+5,+2 M+6,-3 M-4,+7 M+5,+4 M-8,-1 M-2,+3 M-5,+1 M-6,+0 M-5,-3 BM+5,-2 M+3,-1 M-1,+2 M-2,-1":PAINT(X+2,Y-1),1,JD
125 X=X+V:Y=Y+C
126 IF X=>320 THEN X=320:SOUND 100,1
127 IF X=<0 THEN X=0:SOUND 100,1
128 IF Y=<20 THEN Y=20:SOUND 100,1
129 IF Y=>200 THEN Y=200:SOUND 100,1
130 NEXT A
140 GOTO 30

FISH.BAS