Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Ejemplo de Div GO: Games Online
// by J. Manuel Habas

program ejemplo_particulas;
global
	ux = 240, uy = 60;

struct control[1];
    	up, down, left, right;
    end = 
    	_up, _down, _left, _right,
    	_q, _a, _o, _p;

begin
	set_title("Div GO : Ejemplo particulas en scroll");
	set_mode(480, 240, 2);
	set_fps(60, 0);
    
    screen_color(#26b);
    screen_smooth(false);
    screen_scanline(40);

xput(0, 4, 80, 0, 0, 140, 0, 0);
	xput(0, 4, 160, 20, 0, 160, 0, 0);
	xput(0, 4, 300, 0, 0, 140, 0, 0);
	xput(0, 4, 400, 20, 0, 160, 0, 0);

xput(0, 4, 400, 240, 180000, 140, 0, 0);
	xput(0, 4, 300, 220, 180000, 160, 0, 0);
	xput(0, 4, 160, 240, 180000, 140, 0, 0);
	xput(0, 4, 80, 220, 180000, 160, 0, 0);

// definimos las regiones donde mostrar los graficos
	define_region(1, 0, -1, 480, 120);
    define_region(2, 0, 121, 480, 120);

// inicia scroll
	start_scroll(0, 0, 1, 5, 1, 0);
	start_scroll(1, 0, 1, 5, 2, 0);
    
    draw(3, #000, 15, 0, 0, 119, 480, 2);
	
    text_color	  = rgb(0, 0, 0);
    text_size	  = 60;
    write(0, 240, 110, 4, "[cursores] para mover");
    write(0, 240, 230, 4, "[o, p, q, a] para mover");
    
    text_color	  = rgb(255, 255, 255);
    write(0, 241, 109, 4, "[cursores] para mover");
    write(0, 241, 229, 4, "[o, p, q, a] para mover");
    
	flecha(0, 3, ux - 40, uy, 0);
    flecha(1, 3, ux + 40, uy, 180000);
end

process flecha(jugador, graph, x, y, angle);
private
   	struct pt[249];
		x;
        y;
        alpha;
        size;
    end
    
    i, p, px, py;
begin
	tone  = jugador == 1 ? 0 : 50;
	size  = 50;
	ctype = c_scroll;
	
	scroll[jugador].camera = id;
    
	loop
		if (key(control[jugador].up)) 		y-=3; angle = 90000; 	end
		if (key(control[jugador].down)) 	y+=3; angle = -90000;	end
		if (key(control[jugador].left)) 	x-=3; angle = 180000;	end
		if (key(control[jugador].right)) 	x+=3; angle = 0; 		end
        
        if (angle == 90000)		px = 0;		py = 34;	end
        if (angle == -90000) 	px = 0;		py = -34; 	end
        if (angle == 180000) 	px = 34; 	py = 0;		end
        if (angle == 0)			px = -34;	py = 0;		end
        
        i++; if (i > 249) i = 0; end
        pt[i] = particle(rgb(255,rand(0,255),0), x, y, 1, 70);
        pt[i].x = rand(x - 6, x + 6) + px;
        pt[i].y = rand(y - 6, y + 6) + py;
        pt[i].alpha = 70;
        pt[i].size = 1;
        
        for (p = 0; p < 250; p++)
        	move_particle(pt[p], pt[p].x, pt[p].y, pt[p].size, pt[p].alpha);
        	pt[p].size ++;
            pt[p].alpha -= 8;
            if (pt[p].alpha < 0) delete_particle(pt[p]); end 
        end
	
		frame;
	end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5