Div GO : Div Games Online

Haz clic para obtener el control del teclado

PROGRAM nuevo_map_get_pixel;
GLOBAL
    fichero;
    result;

LOCAL
    velocidad_gravedad=0;    // Velocidad a la que esta bajando o subiendo el objeto
    en_suelo=FALSE;          // Indica si el objeto esta sobre el suelo o en el aire

BEGIN
    set_mode(m640x480);           // Ajustamos el modo de pantalla
    set_fps(60, 0);
    fichero = load_fpg("graficos/plataformas");    // Cargamos los graficos
    
    write_int(0,0,0,0,&fps);
    write_int(0,0,20,0,&result);
    
    put_screen(fichero, 500);           // Pintamos el fondo

for (x = 10; x < 640; x += 10)
    	bonus(x, 15);
    end

loop
    	x = mouse.x;
        y = mouse.y;
        result = map_get_pixel(fichero, 999, mouse.x, mouse.y);
    	frame;
    end
END

PROCESS bonus(x, y);
PRIVATE
	id2=0;
    
BEGIN
  	file = fichero;
  
  	LOOP
        FROM graph = 50 to 51;             // Ajusta la animacion
       		IF (en_suelo) velocidad_gravedad=-14; END //Si toca el suelo, lo hace botar
        	gravedad(11,11);
        	FRAME;
        END
  	END
END

PROCESS gravedad(offset_sup, offset_inf);
PRIVATE
    c_suelo=208;
    c_techo=228;
    gravedad_temp;

BEGIN
    father.en_suelo=FALSE;
    gravedad_temp=(father.velocidad_gravedad+=2);  // Aumenta la gravedad del objeto
    IF (gravedad_temp>16)                          // Y establece un limite de gravedad de 15
    	father.velocidad_gravedad=16;
    	gravedad_temp=16;
    END

IF (gravedad_temp<0)         // Si el objeto sube
    	WHILE (gravedad_temp++!=0)   // Hasta que deje de subir
    		IF (map_get_pixel(fichero,999,father.x,(father.y-offset_sup), 'g')<>c_techo) // Comprueba que no da con el techo
    			father.y--;                                                       // Lo mueve, o
    		ELSE 
            	father.velocidad_gravedad=0; 
                BREAK; 
            END                      // lo para y sale
    	END

ELSE  
    	father.y+=gravedad_temp;     // Si el objeto baja

FROM gravedad_temp=-20 TO 8;        // Establece un rango de comprobacion
    		IF (map_get_pixel(fichero,999,father.x,(father.y+gravedad_temp+offset_inf), 'r')==c_suelo) // Si toca el suelo
    			father.en_suelo=TRUE;  
                BREAK;       // Pone en_suelo y sale
    		END
    	END

IF (gravedad_temp<9)                // Ajusta los nuevos valores de y
    		father.y+=gravedad_temp;
    		father.velocidad_gravedad=0;
    	END
    END
END

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5