}
	gameover_pan.visible = on; //parte del gameover
	black_pan.visible = on;
	player.passable = on;
	while(gameover_pan.alpha <= 100){
		gameover_pan.alpha += 10 * time_step;
		wait(1);
		}
	sleep(1);
	while(black_pan.alpha <= 100){
		black_pan.alpha += 10 * time_step;
		wait(1);
		}
	//snd_stop(hnd);
	media_stop(hnd);
	sleep(1);
	snd_play (fail_wav, 10, 0);
	var failvalore;
	failvalore = random(100);
	greetings_txt.visible = on;
	if(failvalore < 100 && failvalore > 75){
		greetings_txt.string = fail2_str;
	}
	else{
		if(failvalore < 50 && failvalore > 0)
		{
			greetings_txt.string = fail1_str;
		}
		else
		{
			greetings_txt.string = fail3_str;
		}
	}
	snd_play(god_over,100,0);
	sleep(5);
	greetings_txt.visible = off;
	level_pan.visible = off;
	power_pan.visible = off;
	wait(2);
	level_load(credits_wmb);
	wait(1);

}

//define variables
...

//1 function or many functions
function gameplay()
{
 ...
}


function main()
{
 //set video_modes
 ...
 //load level
 level_load(my_level.wmb);
 wait(2);
 //call game functions
 gameplay();

 //if u want to load another level
 if (exit)
 { 
    level_load(credits.wmb);
 }
}

if (exit)
 { 
    level_load(credits.wmb);
 }

function exit_event()
{
	level_load("test4.wmb");
}


function main()
{
var video_mode = 7; // 800x600 pixels
var video_depth = 32; // 32 bit mode

//load level
 level_load("particle.wmb");
 wait(2);
 //call game functions
 
 wait(-10);
 exit_event();
 
}