background_color=c_black;
screen_width=monitor_width;
screen_height=monitor_height;
full_screen=true;
show_cursor=false;
show_score=false;
level=5;
state='Main';
c[1]=c_red;
c[2]=c_blue;
c[3]=c_white;
c[4]=c_yellow;
c[5]=c_fuchsia;
c[6]=c_navy;
c[7]=c_olive;
c[8]=c_purple;
c[9]=c_teal;
end_loop=1;
while(end_loop)
{
//***Main***
if state=='Main'
{
font_size = screen_width/1024*60;
font_color = c_white;
font_align = fa_center;
font_style = fs_bold;
font_name = 'Comic Sans MS';
Y=5;
draw_text(screen_width/2,Y,'Die Türme von Hanoi');
Y+=string_height('M');
font_size = screen_width/1024*20;
draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo');
Y+=string_height('M');
font_size = screen_width/1024*40;
draw_text(screen_width/2,Y,'Spiel starten');
Y+=string_height('M');
draw_text(screen_width/2,Y,'Level auswählen');
Y+=string_height('M');
draw_text(screen_width/2,Y,'Hilfe');
Y+=string_height('M');
draw_text(screen_width/2,Y,'Web');
Y+=string_height('M');
draw_text(screen_width/2,Y,'Beenden');
font_size=screen_width/1024*60;
Y=5+string_height('M');
font_size=screen_width/1024*20;
Y+=string_height('M');
font_size=screen_width/1024*40;
if mouse_y>Y&&mouse_y<Y+string_height('M')
{
	font_color=c_red;
	draw_text(screen_width/2,Y,'Spiel starten');
	if mouse_check_button(mb_left)
	{
		tower1='';
		temp=1;
		repeat(level)
		{
			tower1=string(temp)+tower1
			temp+=1
		};
		tower2='';
		tower3='';
		pick=0;
		mouse_clear(mb_left);
		state='Game'
	}
};
Y+=string_height('M');
if mouse_y>Y&&mouse_y<Y+string_height('M')
{
	font_color=c_red;
	draw_text(screen_width/2,Y,'Level auswählen');
	if mouse_check_button(mb_left)
	{
		temp=get_integer('Schreib eine Nummer zwischen 3 und 9',level);
		if temp<3||temp>9
			show_message('Nummer ist nicht zwischen 3 and 9!')
		else
			level=temp
	}
};
Y+=string_height('M');
if mouse_y>Y&&mouse_y<Y+string_height('M')
{
	font_color=c_red;
	draw_text(screen_width/2,Y,'Hilfe');
	if mouse_check_button(mb_left)
	{
		state='Help';
		mouse_clear(mb_left)
	}
};
Y+=string_height('M');
if mouse_y>Y&&mouse_y<Y+string_height('M')
{
	font_color=c_red;
	draw_text(screen_width/2,Y,'Web');
	if mouse_check_button(mb_left)
	{
		execute_shell('http://de.geocities.com/ben0032003/','');
		end_loop=0
	}
};
Y+=string_height('M');
if mouse_y>Y&&mouse_y<Y+string_height('M')
{
	font_color=c_red;
	draw_text(screen_width/2,Y,'Beenden');
	if mouse_check_button(mb_left)
		end_loop=0
};
};
//***Game***
if state=='Game'
{
	font_size=screen_width/1024*60;
	font_color=c_white;
	font_align=fa_center;
	font_style=fs_bold;
	font_name='Comic Sans MS';
	draw_text(screen_width/2,5,'Punkte = '+string(floor(power(10,level/2)-score)))
	Y=string_height('M');
	height=screen_height-string_height('M')-50;
	width=screen_width/30;
	//tower1
	X=(((screen_width/3)*1)-(screen_width/3)/2);
	temp_tower=tower1;
	Y_temp=Y+height;
	repeat(string_length(temp_tower))
	{
		pen_color=c_black;
		temp=real(string_copy(temp_tower,1,1))
		temp_tower=string_delete(temp_tower,1,1)
		brush_color=c[temp];
		draw_ellipse(X-(temp*width)/2,Y_temp+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-(((temp*width)/2)/7)*3)
		pen_color=brush_color;
		draw_rectangle(X-(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1);
		pen_color=c_black;
		draw_line(X-(temp*width)/2,Y_temp,X-(temp*width)/2,Y_temp-height*0.1);
		draw_line(X+(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1);
		draw_ellipse(X-(temp*width)/2,Y_temp-height*0.1+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-height*0.1-(((temp*width)/2)/7)*3)
		Y_temp-=height*0.1
	};
	height_temp=height*(10-string_length(tower1))/10;
	pen_color=c_black;
	brush_color=make_color(101,44,1);
	draw_ellipse(X-(0.5*width)/2,Y_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-(((0.5*width)/2)/7)*3)
	pen_color=brush_color;
	draw_rectangle(X-(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp);
	pen_color=c_black;
	draw_line(X-(0.5*width)/2,Y_temp,X-(0.5*width)/2,Y_temp-height_temp);
	draw_line(X+(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp);
	draw_ellipse(X-(0.5*width)/2,Y_temp-height_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-height_temp-(((0.5*width)/2)/7)*3)
	//tower2
	X=(((screen_width/3)*2)-(screen_width/3)/2);
	temp_tower=tower2;
	Y_temp=Y+height;
	repeat(string_length(temp_tower))
	{
		pen_color=c_black;
		temp=real(string_copy(temp_tower,1,1))
		temp_tower=string_delete(temp_tower,1,1)
		brush_color=c[temp];
		draw_ellipse(X-(temp*width)/2,Y_temp+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-(((temp*width)/2)/7)*3)
		pen_color=brush_color;
		draw_rectangle(X-(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1);
		pen_color=c_black;
		draw_line(X-(temp*width)/2,Y_temp,X-(temp*width)/2,Y_temp-height*0.1);
		draw_line(X+(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1);
		draw_ellipse(X-(temp*width)/2,Y_temp-height*0.1+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-height*0.1-(((temp*width)/2)/7)*3)
		Y_temp-=height*0.1
	};
	height_temp=height*(10-string_length(tower2))/10;
	pen_color=c_black;
	brush_color=make_color(101,44,1);
	draw_ellipse(X-(0.5*width)/2,Y_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-(((0.5*width)/2)/7)*3)
	pen_color=brush_color;
	draw_rectangle(X-(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp);
	pen_color=c_black;
	draw_line(X-(0.5*width)/2,Y_temp,X-(0.5*width)/2,Y_temp-height_temp);
	draw_line(X+(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp);
	draw_ellipse(X-(0.5*width)/2,Y_temp-height_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-height_temp-(((0.5*width)/2)/7)*3)
	//tower3
	X=(((screen_width/3)*3)-(screen_width/3)/2);
	temp_tower=tower3;
	Y_temp=Y+height;
	repeat(string_length(temp_tower))
	{
		pen_color=c_black;
		temp=real(string_copy(temp_tower,1,1))
		temp_tower=string_delete(temp_tower,1,1)
		brush_color=c[temp];
		draw_ellipse(X-(temp*width)/2,Y_temp+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-(((temp*width)/2)/7)*3)
		pen_color=brush_color;
		draw_rectangle(X-(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1);
		pen_color=c_black;
		draw_line(X-(temp*width)/2,Y_temp,X-(temp*width)/2,Y_temp-height*0.1);
		draw_line(X+(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1);
		draw_ellipse(X-(temp*width)/2,Y_temp-height*0.1+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-height*0.1-(((temp*width)/2)/7)*3)
		Y_temp-=height*0.1
	};
	height_temp=height*(10-string_length(tower3))/10;
	pen_color=c_black;
	brush_color=make_color(101,44,1);
	draw_ellipse(X-(0.5*width)/2,Y_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-(((0.5*width)/2)/7)*3)
	pen_color=brush_color;
	draw_rectangle(X-(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp);
	pen_color=c_black;
	draw_line(X-(0.5*width)/2,Y_temp,X-(0.5*width)/2,Y_temp-height_temp);
	draw_line(X+(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp);
	draw_ellipse(X-(0.5*width)/2,Y_temp-height_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-height_temp-(((0.5*width)/2)/7)*3)
	//pick
	if pick!=0
	{
		Y=string_height('M');
		X=mouse_x;
		pen_color=c_black;
		brush_color=c[pick];
		draw_ellipse(X-(pick*width)/2,Y+(((pick*width)/2)/7)*3,X+(pick*width)/2,Y-(((pick*width)/2)/7)*3)
		pen_color=brush_color;
		draw_rectangle(X-(pick*width)/2,Y,X+(pick*width)/2,Y-height*0.1);
		pen_color=c_black;
		draw_line(X-(pick*width)/2,Y,X-(pick*width)/2,Y-height*0.1);
		draw_line(X+(pick*width)/2,Y,X+(pick*width)/2,Y-height*0.1);
		draw_ellipse(X-(pick*width)/2,Y-height*0.1+(((pick*width)/2)/7)*3,X+(pick*width)/2,Y-height*0.1-(((pick*width)/2)/7)*3)
		draw_ellipse(X-(0.5*width)/2,Y-height*0.1+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y-height*0.1-(((0.5*width)/2)/7)*3)
	};
	//step
	if tower1=''&&tower2=''&&pick==0
	{
		screen_refresh();
		show_message('Gratulation, Du hast das Puzzle mit '+string(floor(power(10,level/2)-score))+' Punkten geschafft.');
		state='Main'
	};
	if mouse_check_button(mb_left)
	{
		mouse_clear(mb_left);
		tower_temp=floor((mouse_x/screen_width)*3);
		if pick==0
		{
			if tower_temp==0
			{
				score+=1;
				pick=real(string_copy(tower1,string_length(tower1),1));
				tower1=string_delete(tower1,string_length(tower1),1)
			};
			if tower_temp==1
			{
				score+=1;
				pick=real(string_copy(tower2,string_length(tower2),1));
				tower2=string_delete(tower2,string_length(tower2),1)
			};
			if tower_temp==2
			{
				score+=1;
				pick=real(string_copy(tower3,string_length(tower3),1));
				tower3=string_delete(tower3,string_length(tower3),1)
			};
		}
		else
		if pick!=0
		{
			if tower_temp==0
			{
				if real(string_copy(tower1,string_length(tower1),1))>pick||string_copy(tower1,string_length(tower1),1)==''
				{
				tower1+=string(pick)
				pick=0
				}	
			};
			if tower_temp==1
			{
				if real(string_copy(tower2,string_length(tower2),1))>pick||string_copy(tower2,string_length(tower2),1)==''
				{
				tower2+=string(pick)
				pick=0
				}
			};
			if tower_temp==2
			{
				if real(string_copy(tower3,string_length(tower3),1))>pick||string_copy(tower3,string_length(tower3),1)==''
				{
				tower3+=string(pick)
				pick=0
				}
			};
		}
	};

}; 
//***Help***
if state=='Help'
{
font_size = screen_width/1024*27;
font_color = c_white;
font_align = fa_left;
font_style = fs_bold;
font_name = 'Comic Sans MS';
draw_text_ext(20,5,'Die Türme von Hanoi ist ein Strategie Puzzle. Das Ziel ist es den Stapel aus Scheiben von einer Stange zur anderen zu bringen. Die Schwierigkeit besthet darin, das man eine Scheibe nur auf eine größere legen kann. Das ist es, weshalb es ein Gedächtnis Training ist. Versuche das Rätsel in so wenig wie möglich Versuchen zu lösen.##(orig.) The Towers of Hanoi © Ben Strasser 2003.#Dieses Programm ist programmiert von Ben Strasser unter verwendung von Gamemaker welcher von Mark Overmars programmiert wurde#Gamemaker © Mark Overmars 1999-2002.#www.gamemaker.nl#Ins Deutsche übersetzt von Mike Soft#www.mike.soft.at.tf',string_height('M'),screen_width-40)
if mouse_check_button(mb_left)
{
	state='Main'
	mouse_clear(mb_left)
}
}
//draw_cursor
brush_color=make_color(100,100,100)
pen_color=c_black;
draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+20,mouse_y+40)
brush_color=make_color(200,200,200);
draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20)
brush_color=make_color(150,150,150);
draw_triangle(mouse_x+20,mouse_y+40,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20);
//refresh
if keyboard_check(vk_escape)
	state='Main';
screen_refresh();
io_clear();
io_handle();
pen_color=c_black;
brush_color=c_black;
draw_rectangle(0,0,screen_width,screen_height)
};
game_end()