Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Pruebas de compilador online Div Games
// Php + Html5 + Canvas + Javascript
// by J. Manuel Habas

program divGamesOnline;
global
	puntos = 0;
	energia = 100;
	anima; //si no se pone ningun valor, equivaldra a 0
	ux = 160; posx = 160;
	id2;

begin	
	/* pruebas con opciones de pantalla */
	set_mode(m320x240, 2);
	//screen_color(#240);

set_fps(60, 0);

flecha();
	
	for (posx = 30; posx < 310; posx += 20) //bucles for disponible
		xput(0, 2, posx, 60, 0, 20, 0, 0);
		xput(0, 2, posx, 170, 0, 20, 0, 0);
	end
	
	/* pruebas con textos */
	text_color = #fff;
	text_size  = 100;
	id2 = write(0, 160, 120, 7, "Div Games Online");
	
	text_color = #666;
	text_size  = 70;
	write(0, 160, 120, 1, "by J. Manuel Habas");
	
	text_color = #ff0;
	text_size  = 100;
	write(0, 318, 241, 8, "Amaka Soft");

text_size  = 50;
	write(0, 100, 223, 4, "www.amakasoft.com");
	
	text_color = #05a;
	text_size  = 100;
	write_int(0, 310, 20, 5, offset puntos);

text_size  = 40;
	write(0, 310, 32, 5, "puntos");

text_color = #2b4;
	text_size  = 100;
	write_int(0, 10, 20, 3, offset energia);

text_size  = 40;
	write(0, 10, 32, 3, "energia");

/* pruebas con draw */
	draw(2, #fff, 15, 0, 20, 80, 280, 70);
	draw(3, #ff0, 15, 0, 8, 229, 175, 7);
	//draw(5, #f80, 15, 0, 0, 0, 40, 40);

fade_on();
	frame(1000);

loop
    	delete_text(id2);
    	text_color = rgb(rand(0, 255), rand(0, 255), rand(0, 255));
        text_size  = 100;
        id2 = write(0, 160, 120, 7, "Div Games Online");
		move_text(id2, ux, 120);
		
		//ahora soporta else y condiciones mas completas
		puntos ++;
		energia --; if (energia < 0) energia = 100; end
		if (anima == 0) ux ++; puntos += 100;
		else ux --; energia++; end

if (ux > 194) anima = 1; end
		if (ux < 124) anima = 0; end

if (key(_r)) clear_screen(); end
		//if (key(_esc)) exit("Amaka Soft 2012", 0); end

frame;
	end
end

process flecha();
begin
	graph = 3;
	size  = 40;
	angle = 120000;
	file  = 0;

loop
		x = mouse.x;
		y = mouse.y;
	
		if (mouse.left) 
			put_pixel(x-14, y-20, #f34);
			put_pixel(x-15, y-20, #f34);
			put_pixel(x-14, y-21, #f34);
			put_pixel(x-15, y-21, #f34);
		end
	
		frame;
	end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5