Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Div GO : Games Online > Example
// Php + Html5 + Canvas + Javascript + Three.js lib
// by J. Manuel Habas

program example_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, "CURSORS: move around the stage");
    write(0, 320, 25, 4, "+ / -: on / off ambient light");
   
    define_region(0, 0, 50, 640, 300);
   
    //initialized scene3D without this the functions object3d() and light3D() do not work
    start_scene3d(0, tex, 1, 0); //number, file, graph, region
    set_terrain(0, tex, 999, 100, 20);  //number scene3d, file, graph, distance, height terrain
    
    player(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 player(x, y, z, num);
private
	info_position = '';
    info_angles	  = '';

begin
	write_int(0, 320, 375, 4, &info_position);
    write_int(0, 320, 390, 4, &info_angles);
        
    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_position = 'x = ' + x + ', y = ' + y + ', z = ' + x;
        info_angles   = '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