Program test;
Global
	fpg_winning;
    fpg_boomkas;
    wavs_winning[10];
Local
	i;
    j;
    anim;
Begin
	fpg_boomkas=load_fpg("fpg/boomkas.fpg");
	winning_mlg();
End

Function net_fpg_load(string nombre);
Begin
	return load_sound(nombre,0);
End

Function net_load_wav(string nombre);
Begin
	return load_sound(nombre,0);
End

Function net_play_wav(tipo,repeticiones);
Begin
	return sound(tipo,100,100);
End

Function music_once(string nombre);
Begin
	x=load_sound(""+nombre+".ogg",0);
    sound(x,100,100);
End

Process winning_mlg();
Begin
	fpg_winning=net_fpg_load("win_mlg.fpg");
	wavs_winning[1]=net_load_wav("sounds/win_mlg_1.wav");
	wavs_winning[2]=net_load_wav("sounds/win_mlg_2.wav");
	music_once("win_mlg.ogg");
	mlg_stuff();
	mlg_dino();
	mlg_glasses();
End

Process mlg_horn();
Begin
	file=fpg_winning;
	graph=100;
	z=z_over_all;
	y=rand(200,500);
	size=rand(30,50);
	flags=rand(0,1);
	x_inc=rand(10,15);
	if(flags) x=-300; else x=1500; end
	loop
		if(flags)
			x+=x_inc;
			if(x>1500) break; end
		else
			x-=x_inc;
			if(x<-300) break; end
		end
		if(j)
			angle+=2000;
			if(angle>45000) j=0; end
		else
			angle-=2000;
			if(angle<-45000) j=1; end
		end
		frame;
	end
End

Process mlg_stuff();
Private
	pulsando[5];
	mlg_retraso[5];
	mlg_retraso_comun=30;
	canales[5];
Begin
	loop
		from i=1 to players;
			if(mlg_retraso[i]>0)
				mlg_retraso[i]--;
			end
			if(get_button(i,b_any))
				if(pulsando[i]==0)
					if(get_button(i,b_3))
						if(mlg_retraso[i]==0)
							mlg_horn();
							mlg_retraso[i]=mlg_retraso_comun;
						end
						if(is_playing_wav(canales[i]))
							net_stop_wav(canales[i]);
						end
						canales[i]=net_play_wav(wavs_winning[2],0);
						pulsando[i]=1;
					end
					if(mlg_retraso[i]==0)
						if(get_button(i,b_1))
							if(is_playing_wav(canales[i]))
								net_stop_wav(canales[i]);
							end
							canales[i]=net_play_wav(wavs_winning[1],0);
							pulsando[i]=1;
						end
						if(get_button(i,b_r1))
							put_animation_on_screen(640,360,-1,100,fpg_winning,32,46,42,46,2,1,3);
							mlg_retraso[i]=mlg_retraso_comun*3;
						end
						if(get_button(i,b_l1))
							put_animation_on_screen(640,360,-100,100,fpg_winning,51,97,0,0,0,0,3);
							mlg_retraso[i]=mlg_retraso_comun*5;
						end
					end
				end
			else
				pulsando[i]=0;
			end
		end
		frame;
	end
End


Process mlg_dino();
Begin
	file=fpg_dino[mini_winner];
	size=-20;
	x=-200;
	y=700;
	gravity=-70;
	angle=120000;
	loop
		gravity++;
		y+=gravity/4;
		x+=7;
		size+=2;
		angle-=1000;
		if(gravity<0) graph=32; else graph=31; end
		if(x=>640)
			x=640;
			break;
		end
		frame;
	end
	i=x;
	j=y;
	mlg_crazy();
	loop
		x=i+rand(-3,3);
		y=j+rand(-3,3);
		frame;
	end
End

Process mlg_crazy();
Private
	id_letra;
Begin
	from i=1 to 5;
		white_blink();
		frame(300);
	end

	frame;
	start_scroll(1,fpg_winning,101,0,0,15);
	scroll[1].camera=id;
	mlg_stuff();
	mlg_horn();
	net_play_wav(wavs_winning[2],0);

	put_animation_on_screen(640,360,-100,100,fpg_winning,51,97,0,0,0,0,3); //euros

	put_animation_on_screen(200,400,0,100,fpg_winning,2,29,2,29,9999,1,1); //snup dogs
	put_animation_on_screen(1030,400,0,100,fpg_winning,2,29,2,29,9999,1,1); // ||
	loop
		if(rand(0,20)==0)
			white_blink();
		end
		if(anim++==30)
			anim=0;
			angle=rand(0,360)*1000;
			if(j++==8)
				j=0;
				if(i)
					i=0;
					stop_scroll(1);
					start_scroll(1,fpg_winning,101,0,0,15);
				else
					i=1;
					stop_scroll(1);
					start_scroll(1,fpg_winning,102,101,0,15);
				end
			end
		end
		if(rand(0,3)==0)
			mlg_explosion(rand(100,1180),rand(100,620),rand(80,120));
		end
		if(rand(0,10)==0) //snup dogs
			put_animation_on_screen(rand(200,1080),rand(250,600),0,rand(50,100),fpg_winning,2,29,2,29,1,1,1);
			son.angle=rand(-40,40)*1000;
		end
		advance(20);
		frame;
	end
End

Process mlg_glasses();
Begin
	file=fpg_winning;
	graph=1;
	x=750;
	y=-200;
	z=-10;
	angle=-15000;
	size=150;
	while(y<290)
		y+=5;
		frame;
	end
	i=x;
	j=y;
	loop
		x=i+rand(-3,3);
		y=j+rand(-3,3);
		frame;
	end
End

Process mlg_explosion(x,y,size);
Begin
	z=1;
	file=fpg_boomkas;
	if(rand(0,1)) flags=1; end
	from graph=61 to 75;
		size+=5;
		frame;
	end
End

Process white_blink();
Begin
	//x=640; y=360; z=z_over_all;
	//graph=white_map;
	frame;
End

Process put_animation_on_screen(x,y,z,size,file,first_graph,last_graph,loop_init,loop_end,loops,inverse_loop,frame_step);
Begin
	graph=first_graph;
	loop
		if(anim++=>frame_step)
			anim=0;
			if(j==1) //loop inverso!
				graph--;
			else
				graph++;
			end
			if(i<loops or j)
				if(graph==loop_end+1)
					i++;
					if(inverse_loop)
						j=1;
						graph-=2;
					else
						graph=loop_init;
					end
				end
				if(inverse_loop and graph==loop_init-1 and j==1)
					i++;
					j=0;
					graph+=2;
				end
			end
			if(graph==last_graph+1) return; end
		end
		frame;
	end
End