//-----------------------------------------------
//Program: Tutorial 1
//Author: Pakoito
//Team: Chaos Team
//-----------------------------------------------

Program Navecitas;

Const
    retardo=12;  //Tiempo entre disparos 

Global
    Graficos;                           
    energía_jugador=50;
    
Begin
   set_title("MUAHAHAHA");
   set_mode (320,240,16);        
   set_fps(60,1);     
   graficos=load_fpg("muahahaha.fpg");
   put_screen(graficos,1);   
   nave();
   Loop     
    If (rand(0,250)<5) //Número de enemigos en pantalla
        enemigo(rand(0,320), rand(-2,2),1);    //Velocidad de los enemigos (lugar de aparición, eje x y eje y) 
    End    
    If(key(_enter)) Break; End
    Frame;
   End                            
   unload_fpg(graficos);
   let_me_alone(); 
End                      


Process nave()
 Private
  cont=0;
   
 Begin  
    graph=2;
    x=160;
    y=230;
    Loop     
        Cont--;
        If(cont<0)cont=0;End
        If(key(_left)) x=x-4;End      
        If(key(_right)) x=x+4;End   
        If(x>340) x=-20; End
        If(x<-20) x=340; End    
        If(key(_control) AND cont==0)
         cont=retardo;
         disparo();
        End
        Frame;  
    End   
 End        


Process disparo ()
 Begin
    graph=3;
    x=father.x; //Aqui coge la x del proceso que lo llama
    y=220;
    z=1;
    Repeat
        y-=1;
        Frame;
    Until (y<-15)

 End
          
          
Process enemigo(x, inc_x,inc_y)
 Private 
  disparo_acertado; 
  cont; 
  energía=2;
 Begin        
    graph=4;
    size=rand(75,150);
    y=-20;
    Repeat      
        x+=inc_x;
        If(x>340) x=-20; End
        If(x<-20) x=340; End
        y+=inc_y;         
        disparo_acertado=collision(Type disparo);
        If (disparo_acertado)
            signal(disparo_acertado,s_kill);
            energía--;
            If (energia==0)Break; End    
        End    
        Frame;
    Until (y>250)   
    graph=5;
    cont=0;
    For(cont=0;cont<=50;cont++)
        size=50+(cont*2);
        alpha=250-(cont*5); 
        Frame;
    End          
 End   //Mis primeras 100 líneas de código Fénix!!!! 24/11/04 00:22

