Div GO : Div Games Online

Entorno de desarrollo de juegos online en HTML5

Haz clic para obtener el control del teclado

/*
	By J. Manuel Habas
*/

program ejemplo_salto;
global
    fichero;
    
local
	salto   = false;
    solouno = true;
    
begin
	set_title("Salto con impulso");
    
	set_mode(320, 160, 2);
	screen_color(#47b);

set_fps(30, 0);
    
    // Carga recursos
    fichero = load_fpg("graficos/malvado/malvado");

prota(240, 140);
    
    graph = new_map(320, 20, 160, 10, cc_green);
    x 	  = 160;
    y 	  = 150;
    
    text_size = 40;
    write(0, 160, 10, 4, "Pulsa [ESPACIO] para saltar")
    write(0, 160, 20, 4, "Manten más o menos tiempo pulsado para cambiar impulso")
    
	loop		
		if (key(_esc)) exit("Amaka Soft 2020", 1); end

frame;
	end
end

process prota(x, y);
private
	animar;
    impulso;
    
begin
	graph = 100;
    file  = fichero;
	
	loop    
    	animar = 0;
		if (key(_left)) 
        	animar = 1; flags = 1; x -= 5;
            if (x < -10) x = 330; end
        end
        if (key(_right)) 
        	animar = 1; flags = 0; x += 5;
            if (x > 330) x = -10; end
        end
        if (key(_space) and not salto)
			impulso += 2; if (impulso > 10) salto = true; end
        else
            if (impulso > 0 and solouno)
                saltar(impulso, y);
                impulso = 0;
                salto	= true;
                solouno = false;
            end
        end
        
        if (animar == 1 and not salto)
        	graph ++; if (graph > 107) graph = 100; end
        end
        
		frame;
	end
end

process saltar(impulso, py);
begin
	father.graph = 108;
    
	loop
    	father.y += -impulso;
        impulso--;
        
        if (father.y > py)
        	father.y		= py;
            father.graph	= 100;
            father.salto	= false;
            father.solouno	= true;
            break; 
        end
    
    	frame;
    end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5