
import "mod_grproc"
import "mod_key"
import "mod_map"
import "mod_video"
import "mod_text"
import "mod_proc"
import "mod_sound"

global 
	ganaste;
	fpg;
end

process hombre(x,y)
begin
   file = fpg;
   graph = 1;
   loop

	if (key(_esc))
	    break;           
	end
        frame;
   end
end

process martillo(x,y)
begin
   file = fpg;
   graph = 2;
   loop	
	frame(500);
	if (key(_esc))
	    break;           
	end
	if (key(_enter))
	    ganaste = (graph -1);
	    while (key(_enter)) frame; end
	    break;
	end
	graph = ((graph - 1) % 4)+2;	
   end
end

process mesa(x,y)
begin
   file = fpg;
   graph = 6;
   loop	
        frame;
	if (key(_esc))
	    break;           
	end
   end 
end

process error1()
local 
   contador; 
   sonido;
begin
   sonido = load_wav("10");
   x = 160;
   y = 120;
   file = fpg;
   graph = 9;
	while(scan_code > 0) frame; end
        play_wav(sonido,0);
	while (contador<30)
	   	frame;
		if (scan_code > 0)
			while(scan_code > 0) frame; end
			contador++;
			graph = 0;
			frame(2000);
			graph = 9;
			frame;
			play_wav(sonido,0);
		end	   
	end
	graph = 0;
	while(scan_code > 0) frame; end

	write(0,10,50,0,"¡¡ Felicidades pesado !!");
	write(0,10,70,0,"Has pulsado 30 veces el teclado.");
	write(0,10,90,0,"Eres un listillo que sabía que no");
	write(0,10,110,0,"era un error de bucle infinito.");
	write(0,10,130,0,"Fijo que eres uno de los únicos");
	write(0,10,150,0,"que va a ver esta pantalla.");
	write(0,10,170,0,"Ahora vas y lo casacas.");
	while (!key(_enter))
	    frame;
	end
	unload_wav(sonido);
	unload_fpg(fpg);
end


function intro()
begin
   write(0,70,10,0,"FORCÍMETRO");
   write(0,10,30,0,"Intenta ser el más fuerte");
   write(0,10,50,0,"Teclas:");
   write(0,10,70,0,"Enter");
   write(0,10,90,0,"Pulsa Enter para continuar");

   while (!key(_enter))
    frame;
   end
   delete_text(0);
   hombre(80,160);
   martillo(160,150);
   mesa(180,200);
end

begin

   set_mode(320,240,32);
   //set_fps(5,0);
   ganaste = 0;
   fpg = load_fpg("8");
   intro();
   loop
	if (key(_esc))
	    break;           
	end
        if (ganaste > 0 )
           let_me_alone();
	   if (key(_enter)) 
		while (key(_enter)) frame; end
           end
           if (ganaste ==1)
		   write(0,10,40,0,"Tienes menos fuerza que un muelle de mortadela");
           end
           if (ganaste ==2)
		   write(0,10,40,0,"Eres un flojainas");
           end
           if (ganaste ==3)
		   write(0,10,40,0,"No está mal pero es mejorable");
           end
           if (ganaste ==4)
		   write(0,10,40,0,"Pero, ¡¡ Que haces maldito bestiajo!!!");
		   write(0,10,60,0,"¡¡A la mierda el botón !!, anda pulsa enter.");
		   while (!key(_enter))
		    frame;
		   end
		   delete_text(0);
	           frame(2000);
		   error1();
	   else
		   write(0,80,60,0,"Pulsa enter para finalizar");
           end
	   while (!key(_enter))
	    frame;
	   end
	   break;
        end
        frame;
   end
   if (ganaste !=4)
 	unload_fpg(fpg);
   end
end

