Div GO : Div Games Online

Entorno de desarrollo de juegos online en HTML5

Haz clic para obtener el control del teclado

// Ejemplo Div GO : Div Games Online
// by J. Manuel Habas Millán

program ejemplo_codigo_teclado;
global
    var_tecla[] = 	_0, _1, _2, _3, _4, _5, _6, _7, _8, _9, 
    				_a, _b, _c, _d, _e, _f, _g, _h, _i, _j,
                    _k, _l, _m, _n, _o, _p, _q, _r, _s, _t,
                    _u, _v, _w, _x, _y, _z;
    
    nom_tecla[] = 	"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", 
    				"a", "b", "c", "d", "e", "f", "g", "h", "i", "j",
                    "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",
                    "u", "v", "w", "x", "y", "z";
                    
   	resultado, tecla, id_txt, tiempo = 100;

begin	
	set_mode(600, 240);
	screen_color(#bbb);

set_fps(60, 0);
    
    text_color = #555;
    write(0, 360, 100, 5, "Pulsa la tecla: ");
    
    text_color = #000;
    write_int(0, 360, 100, 3, &resultado);
	write_int(0, 300, 20,  4, &tiempo);

loop
    	if (timer < 100)
        	tiempo = 100;
            
    		tecla		= rand(0, 35);
        	resultado	= "[ " + nom_tecla[tecla] + " ]";
        else
        	delete_text(id_txt);
            
            tiempo --;
        	if (tiempo < 0) 
            	tiempo = 0; 
                text_color = cc_red;
                id_txt = write(0, 300, 130, 4, "SE AGOTÓ EL TIEMPO!");
                
                timer = 0;
            end
            
            if (scan_code)
            	delete_text(id_txt);
                
                if (key(var_tecla[tecla]))
                	text_color = cc_green;
                    id_txt = write(0, 300, 130, 4, "CORRECTO!");
                else
                	text_color = cc_red;
                    id_txt = write(0, 300, 130, 4, "HAS FALLADO!");
                end
                
                timer = 0;
            end
        end

frame;
	end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5