Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Ejemplo Div GO : Div Games Online
// Php + Html5 + Canvas + Javascript
// by J. Manuel Habas Millán

program ejemplo_mouse;
global
	col = cc_black;
	_id;

begin	
	set_mode(m320x200, 2);
	screen_color(#fff);

set_fps(60, 0);
	set_visible_mouse(false);
    
    mouse.graph = 3;
    mouse.size	= 30;
    mouse.angle	= 120000;

text_color = #fff;
    write_int(0, 1, 1,  0, &mouse.x);
    write_int(0, 1, 21, 0, &mouse.y);

text_color = #333;
    write_int(0, 0, 0,  0, &mouse.x);
    write_int(0, 0, 20, 0, &mouse.y);
    
    text_color = #fff;
	write(0, 11,  205, 6, "change color:");
	write(0, 181, 205, 6, "1");
    write(0, 201, 205, 6, "2");
    write(0, 221, 205, 6, "3");
    write(0, 241, 205, 6, "4");
    write(0, 261, 205, 6, "5");

text_color = #333;
	write(0, 10,  204, 6, "change color:");
	text_color = cc_black;	write(0, 180, 204, 6, "1");
    text_color = cc_red;	write(0, 200, 204, 6, "2");
    text_color = cc_blue;	write(0, 220, 204, 6, "3");
    text_color = cc_green;	write(0, 240, 204, 6, "4");
    text_color = cc_yellow; write(0, 260, 204, 6, "5");

_id = draw(2, 0, 15, 0, 178, 170, 18, 28);

loop		
		if (mouse.left) 
			put_pixel(mouse.x-10, mouse.y-16, col);
			put_pixel(mouse.x-11, mouse.y-17, col);
			put_pixel(mouse.x-10, mouse.y-17, col);
			put_pixel(mouse.x-11, mouse.y-16, col);
		end
		
        if (key(_1)) col = cc_black;  move_draw(_id, 0, 15, 178, 170, 18, 28); end
        if (key(_2)) col = cc_red;	  move_draw(_id, 0, 15, 198, 170, 18, 28); end
        if (key(_3)) col = cc_blue;   move_draw(_id, 0, 15, 218, 170, 18, 28); end
        if (key(_4)) col = cc_green;  move_draw(_id, 0, 15, 238, 170, 18, 28); end
        if (key(_5)) col = cc_yellow; move_draw(_id, 0, 15, 258, 170, 18, 28); end
        
		if (key(_r)) clear_screen(); end
		if (key(_esc)) exit("Amaka Soft 2016", 0); end

frame;
	end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5