Derby Kentucky

Le Kentucky Derby, inauguré en 1875, se déroule chaque année en mai à Louisville, dans le Kentucky. Le parcours, long de 2 km, est parcouru à un rythme soutenu par les pur-sang.

En pariant sur DERBY.BAS, vous aurez la possibilité de parier sur un pur-sang participant au Derby :

Ace, Lucky, Spade, ou Clover

Misez intelligemment, sinon vous risquez de tout perdre.

L'utilisation des instructions PUT et GET caractérise parfaitement DERBY.BAS. Non seulement les chevaux, créés à l'aide du programme POSITION.BAS, mais aussi les mots de l'écran titre sont capturés dans un tableau graphique pour un mouvement presque sans scintillement.

La première ligne de code contient l'instruction PALETTE. Bien que seules seize couleurs soient disponibles simultanément, d'autres couleurs, outre les seize par défaut, sont disponibles.

PALETTE 6,20, par exemple, remplace la couleur par défaut 6 par la couleur 20. Les modifications de PALETTE sont nécessaires car DERBY.BAS nécessite plusieurs nuances de brun pour la coloration des chevaux. Pour visualiser les soixante-trois couleurs différentes, exécutez COLORS.BAS, listé juste après DERBY.BAS ci-dessous. Notez que l'instruction PALETTE, codée sans argument, rétablit les couleurs par défaut.

Bien que DERBY.BAS soit bien présenté, il commet un péché capital : il est ennuyeux. Une fois que vous avez vu quelques courses et misé vos économies, que demander de plus ?

Le jeu n'a pas de but précis : DERBY.BAS souffre d'un manque de narration. Il présente le problème inverse de SW.BAS, qui a une histoire riche mais un jeu médiocrement exécuté. À vous de construire une narration solide autour de DERBY.BAS, et (espérons-le) de le rendre amusant.

DERBY.BAS

COLORS.BAS

10 KEY OFF:SCREEN 9:COLOR 15,0:CLS
15 X=1:PALETTE
17 I$=INKEY$
20 PSET(10,10),1
30 DRAW"R40 D40 L40 U40"
40 PAINT(11,11),1,1
50 LOCATE 7,1:PRINT"COLOR = ";X
60 LOCATE 9,1:PRINT"Appuyez sur + ou - pour augmenter ou diminuer la sélection de couleurs"
65 LOCATE 10,1:PRINT"Appuyez <ESCAPE> pour sortir"
70 IF I$="" THEN 17
80 IF I$="+" THEN X=X+1
90 IF I$="-" THEN X=X-1
95 IF I$=CHR$(27) THEN PALETTE:END
100 IF X<1 THEN X=63
110 IF X>63 THEN X=1
120 PALETTE 1,X
130 GOTO 17