// Escrito por La momia que fuma

Program efectillo; 
 
Const 
 tam=5; 
 //cambiar para modificar el tamaño de los "fideos", cuanto mas grandes mejor rendimiento 
 
Global 
 Byte empieza; 
 
fondo1; 
fondo2; 
Private 
xf=tam; 
 Begin 
//   full_screen=1; 
   set_mode(640,480,16); 
   fondo1=load_png("fondo1.png");
   fondo2=load_png("fondo2.png");
   set_center(0,fondo2,0,0); 
   put_screen(0,fondo1); 
   graph=fondo2;//se puede comentar esta linea para ver como se van generando los "fideos" 
   z=100; 
   flags=128;//en teoria al usar este flag (prescindir de transparencia) el gráfico se dibuja más rápido 
   While(xf>-690) 
     xf-=tam; 
     fideo(xf); 
     Frame; 
   End 
   empieza=1; 
 End 
  
Process fideo(cual) 
 
 Private vy; 
 
 Begin 
 flags=128; 
 y=240;x=-cual+(tam/2); 
 z=-100; 
 vy=rand(0,10); 
 graph=new_map(tam,480,16); 
 map_put(0,graph,fondo2,cual,0); 
 Repeat Frame; Until(empieza) 
 Repeat 
   y+=vy; 
   vy++; 
   Frame; 
 Until(out_region(id,0)) 
 unload_map(0,graph); 
 End