Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Pruebas de compilador online Div GO
// Php + Html5 + Canvas + Javascript + Three.js lib
// by J. Manuel Habas Millán

program ejemplo_terrain;
global
    tex;

begin
    tex = load_fpg("graficos/texturas");
   
    set_mode(640, 400);
    screen_color(#000);

set_fps(60, 0);
   
    text_color = #ccc;
    text_size  = 50;
   
    write(0, 320, 10, 4, "CURSORES: moverte por el escenario");
    write(0, 320, 25, 4, "+ / -: enciende / apaga luz ambiental");
   
    define_region(0, 0, 50, 640, 300);
   
    //inicia scene3d sin esto no funcionaran las funciones object3d() ni light3d()
    start_scene3d(0, tex, 1, 0); //numero, file, graph, region
    set_terrain(0, tex, 999, 100, 20);  //numero scene3d, file, graph, distancia, altura terreno
    
    jugador(3728, 180, 3728, 0); //x, y, z
   
    scene3d.light = 100;
    scene3d.distance = 1;
   
	loop
        if (key(_c_minus) and scene3d.light > 0)  scene3d.light --; end
        if (key(_c_plus) and scene3d.light < 200) scene3d.light ++; end
        
        if (key(_esc)) exit("Amaka Soft 2015", 1); end
       
        frame;
    end
end

process jugador(x, y, z, num);
private
	info_posicion = '';
    info_angulos  = '';

begin
	write_int(0, 320, 375, 4, &info_posicion);
    write_int(0, 320, 390, 4, &info_angulos);
        
    scene3d[num].camera = id;

angle = -90000;
    angle_y = -12000;
	ctype	= c_scene3d;

loop
        if (key(_left)) angle_z -= 1000; end
        if (key(_right)) angle_z += 1000; end
       
        if (key(_up)) advance(10); end
        if (key(_down)) advance(-8); end

if (key(_1)) angle_y-=1000; end
        if (key(_2)) angle_y+=1000; end

info_posicion = 'x = ' + x + ', y = ' + y + ', z = ' + x;
        info_angulos  = 'angle_z = ' + angle_z + ', angle_y = ' + angle_y;

frame;
    end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5