Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Ejemplo de Div GO
// by J. Manuel Habas

program ejemplo_set_background;
private
	position = 4;
    
begin
	set_mode(640, 400);
	set_fps(60, 0);
    set_color(cc_black);
    
    //set_background(file, graph, position, size, repeat)
    //position:
    	//0: arriba izquierda, 1: arriba, 2: arriba derecha
  		//3: izquierda, 4: centro, 5: derecha
  		//6: abajo izquierda, 7: abajo, 8: abajo derecha
    //size: %
    //repeat:
    	//0: no-repeat
        //1: repeat-x
        //2: repeat-y
        //3: repeat
    set_background(0, 1, 4, 10, 3);
    
    screen_transparent(true);
    fade(100, 100, 100, 64);

text_size	= 80;
    text_color	= cc_white;
	write(0, 320, 20, 4, "Ejecuta el ejemplo en el proyector o empaquetando el proyecto");
    
    write(0, 320, 340, 4, "Pulsa las teclas [1 - 9] para cambiar de gráfico");
    write(0, 320, 360, 4, "Pulsa los cursores [Arriba / Abajo] para cambiar tamaño");
    write(0, 320, 380, 4, "Pulsa los cursores [Izquierda / Derecha] para cambiar posición");
    
    write_int(0, 320, 200, 4, &position);
    
    graph = 1;
    x = 320;
    y = 200;
	
	loop
		angle += 1000;
        if (key(_1)) graph = 1; end
        if (key(_2)) graph = 2; end
        if (key(_3)) graph = 3; end
        if (key(_4)) graph = 4; end
        if (key(_5)) graph = 5; end
        if (key(_6)) graph = 6; end
        if (key(_7)) graph = 7; end
        if (key(_8)) graph = 8; end
        if (key(_9)) graph = 9; end
        
        if (key(_up) and size < 200) size ++; end
        if (key(_down) and size > 1) size --; end
        
        if (key_in(_right) and position < 9) position ++; end
        if (key_in(_left) and position > 0) position --; end

set_background(0, graph, position, size / 10, 3);
        
		frame;
	end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5