UFO

Présentation

En 2010, en l'honneur des 25 ans du MSX, le site de Konamito proposait un concours de programmation de jeu sur MSX. Un classique en soi mais là le jeu ne devait tenir qu'en 10 lignes de programmation Basic seulement! Chaque ligne ne peut contenir plus de 255 caractères et que le concours interdit l'utilisation de poke pour le langage machine et le chargement d'image.UFO est un jeu de tir avec viseur qui finit troisième du concours.

Images

Description complète

ligne 1

<fieldset class="formatter-container formatter-fieldset" style=""><legend>code Basic</legend><div class="formatter-content">1 SCREEN1,0: DIMC,X,Y,P,W(9):WIDTH32:COLOR3,12,1:KEYOFF:FORI=14350TO14381:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=32TO87:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=6240TO6815:VPOKEI,0:NEXT:VPOKE8192,177:VPOKE8193,97: FORI=1TO38:READA,B:VPOKE6300+A,B:NEXT </div></fieldset>

• SCREEN1,0: Activation du mode ecran 1 avec sprite 8 x 8 un choix qui simplifie la tache pour les graphismes.
• DIMC,X,Y,P,W(9): Dimensionnement des tableaux à 9, principalement pour les attributs des ovnis.
• WIDTH32: 32 colonnes.
• COLOR3,12,1: Ecriture vert clair sur fond vert foncé et contour noir.
• KEYOFF: Effacement des touches de fonctions.
• FORI=14350TO14381:READA$:VPOKEI,VAL("&h"+A$):NEXT: Création des sprites en VRAM à partir des datas.
• FORI=32TO87:READA$:VPOKEI,VAL("&h"+A$):NEXT: Création des décors en VRAM à partir des datas.
• FORI=6240TO6815:VPOKEI,0:NEXT: Effacement de la zone de jeu, partie centrale de l'écran.
• VPOKE8192,177: Colorisation d'une partie des décors en jaune clair sur noir.
• VPOKE8193,97: Colorisation d'une partie des décors en rouge foncé sur noir.
• FORI=1TO38:READA,B:VPOKE6300+A,B:NEXT Mise en place des décors; A=positon, B=choix du décor.