Div GO : Div Games Online

Haz clic para obtener el control del teclado

/*
	By J. Manuel Habas
*/

program ejemplo_localiza_jugadores;
global
	ux = 240, uy = 60;
    id_player1, id_player2;

begin
	set_title("Div GO : Ejemplo Localizador de Jugadores");
	
	set_mode(480, 240, 2);
	screen_color(#26b);
    screen_smooth(false);
    screen_scanline(20);

set_fps(60, 0);

define_region(1, 0, 0, 480, 120);
    define_region(2, 0, 120, 480, 120);
    define_region(3, 0, 0, 480, 240);

start_scroll(0, 0, 1, 5, 1, 15);
	start_scroll(1, 0, 1, 5, 2, 15);
		
    text_color	  = cc_black;
    text_size	  = 45;
    write(0, 40, 26, 4, "1 Player");
    write(0, 40, 146, 4, "2 Player");

text_size	  = 60;
    write(0, 240, 110, 4, "[cursores] para mover");
    write(0, 240, 230, 4, "[o, p, q, a] para mover");
    
    text_color	  = cc_white;
    write(0, 241, 109, 4, "[cursores] para mover");
    write(0, 241, 229, 4, "[o, p, q, a] para mover");

bocadillo(7, 40, 28, 45);
    bocadillo(7, 40, 148, 45);
    
    id_player1 = flecha(3, ux, uy, 0);
    id_player2 = estrella(2, 90, uy);
    
    //localiza jugador opuesto
    localizador(id_player1, id_player2);
    localizador(id_player2, id_player1);
	
	loop		
		if (key(_esc)) exit("Amaka Soft 2020", 0); end
        
		frame;
	end
end

process flecha(graph, x, y, angle);
begin
	size  = 40;
	ctype = c_scroll;
	
	scroll[0].camera = id;   
    
	loop
		if (key(_up)) 	y -= 3; angle = 90000;	end
		if (key(_down)) y += 3; angle = -90000; end
		if (key(_left)) x -= 3; angle = 180000; end
		if (key(_right))x += 3; angle = 0;		end
	
		frame;
	end
end

process estrella(graph, x, y)
begin
	size  = 40;
	ctype = c_scroll;
	
	scroll[1].camera = id;

loop
		if (key(_q)) y-=3; end		
		if (key(_a)) y+=3; end		
		if (key(_o)) x-=3; end
		if (key(_p)) x+=3; end

frame;
    end
end

process bocadillo(graph, x, y, size)
begin
    region = 3;
    
    loop

frame;
    end
end

process localizador(id1, id2)
private
	dist; //para guardar el valor de la distancia
    
begin
	graph 	 = color_in_map(0, 6, cc_red);
    size  	 = 10;
    z	  	 = id1.z - 1;
    region	 = id1.region;
    ctype 	 = c_scroll;
    priority = -1;
    
	loop
    	x 	  = id1.x;
        y	  = id1.y;
    	angle = fget_angle(id1.x, id1.y, id2.x, id2.y) - 90000;
        dist  = fget_dist(id1.x, id1.y, id2.x, id2.y);
        
        alpha = (dist - 60) * 2;
        if (alpha < 0) alpha = 0; end
        
        xadvance(angle + 90000, 30);
        
        pone_texto(dist - 60, x, y - 10, alpha, region);
        
    	frame;
    end
end

process pone_texto(txt, x, y, alpha, region)
begin
	graph = write_in_map(0, txt + 'm.', 4);
    size  = 80;
    ctype = c_scroll;

frame;
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5