Menu en Fenix

Hola, anteriormente les habia comentado sobre el lenguaje fenix, para mi, la ventaja de este lenguaje es que es mas facil de distribuir ya que no se necesita de un framework, trayendo consigo funsiones y librerias nesesarias para crear juegos , eso si este lenguaje es solo para programacion 2d, bueno les muestro un pequeño programa de un menu tipico de un juego, esta mismo sera implementadoen un futuro tema en XNA, Bueno este menu en realidad es muy facil de comprender, lo explicare mas a fondo por pasos.

1. Imprimo todas las opciones del menu mostadas por pantalla y leagrego un tipo de fuente.

2. Creo una funcion que se llama resalta, esta funcion resaltara nuestro texto, lo mostamos
por pantalla , pero esta ves con el tamaño de fuente mas grande, pero pongamonos a pensar
tenemos 2 textos impresos en la misma posicion, es por ello que me aseguro que al momento de
lanzar ese resalto , el texto a resaltar deve ser borrado , ya que si no nos quedarian un texto de
una tamañode fuente mayor con uno de menor y en la misma posicion.

3. Y por ultimo esto se va actualizando en cada momento que movemos las teclas up y down.

program main;
global

string opciones[]="Computadora v/s Computadora",
"Player1 v/s Computadora",
"Player1 v/s Player2",
"Creditos",
"Salir";
int i=0,j=0,var=0,musicOpc,musicFondo,imgFondo,proceTeclado;
fntopc,fntopc2;
end
include "librerias/globales.prg";
begin

proceTeclado=teclado();
SET_MODE(800,600,16,MOde_fullScreen);
loadingElementos();
PUT_SCREEN(imgFondo,1);
PLAY_SONG(musicFondo,0);
mopciones();
frame;
loop
DELETE_TEXT(0);
mopciones();
resalta(var);
teclado();
frame(300);
//if(key(_eSc))break end;
end
end
//
function loadingElementos()
begin
imgFondo=LOAD_FPG("fpg/jona.fpg");
fntopc=load_fnt("fnt/opc1.fnt");
fntopc2=load_fnt("fnt/opc2.fnt");
musicOpc=load_wav("music/opc.wav");
musicFondo=LOAD_SONG("music/marilyn.mp3");
end

//
process teclado()
begin
if(key(_up))
if(var==0) var=4;
PLAY_WAV(musicOpc,0);
else var--;
PLAY_WAV(musicOpc,0);
end
end;
if(key(_down))
if(var==4) var=0;
PLAY_WAV(musicOpc,0);
else var++;
PLAY_WAV(musicOpc,0);
end
end;
if(key(_enter))
ejecuta(var);
end

end
//
function ejecuta(int mivar)
begin
switch(mivar)
case 0:
CLEAR_SCREEN();
STOP_SONG();
UNLOAD_FNT(fntopc);
UNLOAD_FNT(fntopc2);

SIGNAL(proceTeclado,s_sleep);
pantallaDeJuego();
end
case 1:end
case 2:end
case 3:end
case 4:EXIT(0);end
end
end
//
function resalta(int var)
begin
DELETE_TEXT(var+1);
write(fntopc2,380,100+60*var,1,opciones[var]);
end
//
function mopciones()
begin
for(i=0;i<=4;i++)
write(fntopc,380,100+60*i,1,opciones[i]);
end
end

Video