Div GO : Div Games Online

Haz clic para obtener el control del teclado

/*
	Amstrad CPC 464
	By J. Manuel Habas
*/

program ejemplo_parpadeos;
global
	fuente;
    fichero;
	
begin
	set_title("CPC 464");
    
	set_mode(320, 240, 2);
	screen_color(cc_blue);
    set_color(cc_blue);
    screen_smooth(false);
    screen_scanline(30);
    
	set_fps(24, 0);
    
    define_region(0, 30, 30, 260, 180); //deja border de 30 pixeles
    
    // Carga recursos
    fuente  = load_font("interface/temas/div2/fonts/Px437_IBM_EGA8.ttf");
    fichero = load_fpg("graficos/malvado/malvado");

prota(160, 190);
	
    graph = new_map(260, 60, 130, 30, cc_green);
    x = 160;
    y = 220;
    
    cursor_parpadea();
    border_parpadea(cc_blue, cc_yellow, 3);
    
    text_color = cc_yellow;
    text_size  = 50;
    
    write(fuente, 35,  40, 3, "Amstrad 64K Microcomputer  (v1)");
    write(fuente, 35,  55, 3, "(c)1984 Amstrad Consumer Electronics plc");
    write(fuente, 110, 65, 3, "and Locomotive Software Ltd.");
    write(fuente, 35,  80, 3, "Basic 1.0");
    write(fuente, 30,  95, 3, "Ready");
        
	loop
		if (key(_esc)) exit("Amaka Soft 2020", 1); end

frame;
	end
end

process prota(x, y);
private
	animar;

begin
	graph = 100;
    file  = fichero;
	
	loop
    	animar = 0;
		if (key(_left)) 
        	animar = 1; flags = 1; x -= 5; 
        end
        if (key(_right)) 
        	animar = 1; flags = 0; x += 5; 
        end
        
        if (animar == 1)
        	graph ++; if (graph > 107) graph = 100; end
        end
        
		frame;
	end
end

process cursor_parpadea()
begin
	graph = new_map(8, 8, 0, 0, cc_yellow);
    x = 30;
    y = 98;
    
    loop
    	alpha = 100;
        frame(500);
        
        alpha = 0;
        frame(500);
    end
end

process border_parpadea(color1, color2, tiempo)
private
	colorea = color1;
    
begin
    graph = new_map(260, 180, 130, 90, cc_blue);
    x = 160;
    y = 120;
    z = 500;

loop
    	screen_color(colorea);
        set_color(colorea);
        
    	if (timer % tiempo == true) 
        	if (colorea != color1) colorea = color1; else colorea = color2; end
        end
        
    	frame;
    end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5