;Message?
Function message_time()
	If gm_custom>0 Then Return 0
	Select gt_day
	
		Case 1
			Select gt_hour
				Case 10 message_set(1)
				Case 12 message_set(2)
				Case 20 message_set(3)
			End Select
	
	End Select
End Function

;Message laden
Function message_load(name$)
	Local file
	If FileType(name$)<>1 Then msg(name$+" konnte nicht geladen werden!",1,2):Return 0
	file=ReadFile(name$)
	If file=0 Then msg(name$+" konnte nicht geladen werden!",1,2):Return 0
	Dim gm_cm$(30)
	i=0
	While Not Eof(file)
		gm_cm$(i)=ReadLine(file)
		i=i+1
		If i>=31 Then Exit
	Wend
	CloseFile(file)
	Return 1
End Function

;Message setzen
Function message_set(id)
	gamestop=1
	PlaySound sfx_paper
	If gui_messageon=0 Then gui_paperoffset=-468
	If id=0 Then
		gui_messageon=0
	Else
		gui_messageon=1
	EndIf
	gui_message=id
	gui_selinput=0
	Select id
		;Cheats / Laden / Heightmap laden
		Case 202,222,226
			gui_selinput=1
			gui_input$(1)=""
		;Speichern
		Case 221
			gui_selinput=1
			gui_input$(1)=ed_map$
		;Ziele
		Case 223
			gui_input$(1)=gm_time
			gui_input$(2)=gm_mi_distance
			gui_input$(3)=gm_mi_checkp
			gui_input$(4)=gm_mi_kiwis
			gui_input$(5)=gm_mi_kill(1)
			gui_input$(6)=gm_mi_kill(2)
			gui_input$(7)=gm_mi_kill(5)
			gui_input$(8)=gm_mi_kill(8)
			gui_input$(9)=gm_mi_kill(6)
			gui_input$(10)=gm_mi_kill(9)
			gui_input$(11)=gm_mi_kill(10)
			gui_input$(12)=gm_mi_kill(11)
			gui_checkb(1)=gm_mi_finish
		;Einstellungen
		Case 224
			gui_input$(1)=gt_day
			gui_input$(2)=gt_hour
			gui_input$(3)=gt_min
			gui_input$(4)=gm_briefing$
			gui_input$(5)=gm_track$
			gui_checkb(1)=gm_frozentime
			gui_checkb(2)=gm_arcade
			gui_checkb(3)=gm_rain
			gui_checkb(4)=gm_infinitespear
			gui_checkb(5)=gm_infiniteammo
		;Spieler Werte
		Case 225
			gui_input$(1)=pl_health
			gui_input$(2)=pl_health_max
			gui_input$(3)=pl_power
			gui_input$(4)=pl_tired
			gui_input$(5)=pl_hunger
			gui_input$(6)=pl_thirst
			gui_checkb(1)=tl_stnschl
			gui_checkb(2)=tl_hammer
			gui_checkb(3)=tl_axt
			gui_checkb(4)=tl_angel
			gui_checkb(5)=tl_speer
			gui_checkb(6)=tl_netz
			gui_checkb(7)=tl_pistol
			gui_checkb(8)=tl_ak
			gui_checkb(9)=tl_knife	
		;Textur laden
		Case 227
			gui_selinput=1
			gui_input$(1)=gm_texture$
		;Insel füllen
		Case 228
			gui_input$(1)=8000
			gui_input$(2)=1000
	End Select
	FlushKeys()
End Function


;Message zeichnen
Function message_draw(id)
	Local px,py,xo
	px=(opt_sx/2)-171
	py=(opt_sy/2)-234
	
	If mh Then gui_selinput=0
	
	If timer_gui_run Then
		If gui_messageon=1 Then
			If gui_paperoffset<py Then gui_paperoffset=gui_paperoffset+30
		Else
			If gui_paperoffset>-opt_sy Then gui_paperoffset=gui_paperoffset-30
		EndIf
	EndIf
	
	py=gui_paperoffset

	If py+468>0 Then
	
		DrawImage gfx_gui_paper, px,py
		SetFont font_norm
		Color 0,0,0
		
		Select id
		
			;Tag 1 - morgens
			Case 1
				yo=py
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Tag 1 - morgens"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Wo bin ich? ... Wer bin ich?"
				yo=yo+12: Text px+10,yo, "... Ich kann mich an nichts mehr erinnern."
				yo=yo+12: Text px+10,yo, "Scheinbar befinde ich mich hier auf einer Insel."
				yo=yo+12: Text px+10,yo, "Ich bin erschöpft und verwundet. Mein Magen ist leer."
				yo=yo+12: Text px+10,yo, "Ob es hier Menschen gibt?"
				yo=yo+12: Text px+10,yo, ""
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+30
				yo=yo+30: Text px+30,yo, "Erkunden der Umgebung"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Erkunde die Umgebung und suche nach etwas essbarem!"
				yo=yo+12: Text px+10,yo, "Du kannst dich am Kompass oben links orientieren."
				yo=yo+20: Text px+10,yo, "[W] Vorwärts laufen"
				yo=yo+12: Text px+10,yo, "[S] Rückwärts laufen"
				yo=yo+12: Text px+10,yo, "[A] Seitwärts nach links laufen"
				yo=yo+12: Text px+10,yo, "[D] Seitwärts nach rechts laufen"
				yo=yo+12: Text px+10,yo, "[Space] Springen"
			
			;Tag 1 - mittags
			Case 2
				yo=py
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Tag 1 - mittags"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Ich sollte unbedingt etwas essen und trinken,"
				yo=yo+12: Text px+10,yo, "damit ich wieder zu Kräften komme!"
				yo=yo+12: Text px+10,yo, ""
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+30
				yo=yo+30: Text px+30,yo, "Werkzeuge und Inventar"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Unten rechts siehst du das Werkzeug, das du gerade"
				yo=yo+12: Text px+10,yo, "ausgewählt hast. Im Moment hast du nur deine blossen"
				yo=yo+12: Text px+10,yo, "Hände, mit ihnen kannst du Sachen aufsammeln/pflücken."
				yo=yo+12: Text px+10,yo, "[Linke Maustaste] Werkzeug benutzen"
				yo=yo+12: Text px+10,yo, ""
				yo=yo+12: Text px+10,yo, "Wenn du etwas gefunden hast kannst du das Menü öffnen"
				yo=yo+12: Text px+10,yo, "und den Rucksack anklicken, um in das Inventar zu gelangen."
				yo=yo+12: Text px+10,yo, "Dort kannst du Items benutzen, kombinieren und wegwerfen."
				yo=yo+12: Text px+10,yo, "Bedenke das du nur ein bestimmtes Gewicht tragen kannst!"
				yo=yo+12: Text px+10,yo, "[Rechte Maustaste]/[Enter] Menü öffnen/schließen"
				yo=yo+12: Text px+10,yo, "[Linke Maustaste] Aktionen im Menü"
				yo=yo+12: Text px+10,yo, ""
				yo=yo+12: Text px+10,yo, "Über dem Rucksack befindet sich ein Mensch-Icon."
				yo=yo+12: Text px+10,yo, "Dieses Icon führt zum Charakter Menü, in dem du sehen"
				yo=yo+12: Text px+10,yo, "kannst, wieviel Energie, Hunger etc. du hast. Außerdem"
				yo=yo+12: Text px+10,yo, "kannst du dort zusätzliche Aktionen ausführen, wie z.b."
				yo=yo+12: Text px+10,yo, "'suchen' um die Umgebung nach Items zu durchsuchen."
			
			;Tag 1 - abends
			Case 3
				yo=py
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Tag 1 - abends"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Langsam wird es dunkel und mein erster Tag auf dieser"
				yo=yo+12: Text px+10,yo, "Insel neigt sich dem Ende zu."
				yo=yo+12: Text px+10,yo, "Ich bin immer noch sehr schwach und erschöpft."
				yo=yo+12: Text px+10,yo, "Ein bisschen Schlaf wäre jetzt bestimmt nicht falsch."
				yo=yo+12: Text px+10,yo, "Eine Hütte oder ähnliches habe ich noch nicht entdeckt,"
				yo=yo+12: Text px+10,yo, "ich werde also wohl oder übel unter freiem Himmel schlafen"
				yo=yo+12: Text px+10,yo, "müssen..."
				yo=yo+12: Text px+10,yo, ""			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+30
				yo=yo+30: Text px+30,yo, "Schlafen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Öffne das Menü mit der rechten Maustaste oder Enter."
				yo=yo+12: Text px+10,yo, "Klicke nun auf das Menschen Icon und dann auf 'schlafen'"
				yo=yo+20: Text px+10,yo, "Wie lange du schläfst ist abhängig von deiner Müdigkeit."
				yo=yo+12: Text px+10,yo, "Wo du schläfst ist sehr wichtig. Wenn du im Freiem schlafen"
				yo=yo+12: Text px+10,yo, "musst werden die Tiere dich stören und du verlierst Energie!"
			
			;Hanf verkaufen	
			Case 50
				yo=py
				gui_mx=px
				gui_my=py
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Hanf verkaufen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Dieser alte Mann hat mir erzählt, dass er hier Hanf anpflanzt."
				yo=yo+12: Text px+10,yo, "Wenn ich ihm helfe und auch Hanf anpflanze, bekomme ich von"
				yo=yo+12: Text px+10,yo, "ihm dafür praktische Items!"
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+30
				yo=yo+30: Text px+30,yo, "Handel"
				SetFont font_tiny
				
				;5 Hanf
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "5 Hanf verkaufen") Then
					If item_use(17, "verkauft",0, 5) Then
						item_take(19, 1, "erhalten", "Opa: Pech gehabt! Kein Platz, kein Fleisch!")
					Else
						msg("Du hast nicht genug Hanf!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 5 Hanf bekommst du ein kleines Stück Fleisch"

				;10 Hanf
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "10 Hanf verkaufen") Then
					If item_use(17, "verkauft",0, 10) Then
						item_take(6, 1, "erhalten", "Opa: Pech gehabt! Kein Platz, kein Fleisch!")
					Else
						msg("Du hast nicht genug Hanf!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 10 Hanf bekommst du ein Stück Fleisch"
				
				;25 Hanf
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "25 Hanf verkaufen") Then
					If item_use(17, "verkauft",0, 25) Then
						item_take(11, 1, "erhalten", "Opa: Pech gehabt! Kein Platz, kein Heilkraut!")
					Else
						msg("Du hast nicht genug Hanf!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 25 Hanf bekommst du Heilkraut"
				
				;35 Hanf
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "35 Hanf verkaufen") Then
					If tl_netz=0 Then
						If item_use(17, "verkauft",0, 35) Then
							tl_netz=1
							msg("Netz vom Kiffer Opa erhalten",0,3)
							PlaySound sfx_skill
						Else
							msg("Du hast nicht genug Hanf!",1,2)
						EndIf
					Else
						msg("Opa: Du hast mein Netz schon!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 35 Hanf bekommst du ein Schmetterlingsnetz"
				
				;50 Hanf
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "50 Hanf verkaufen") Then
					If tl_axt=0 Then
						If item_use(17, "verkauft",0, 50) Then
							tl_axt=1
							msg("Axt vom Kiffer Opa erhalten",0,3)
							PlaySound sfx_skill
						Else
							msg("Du hast nicht genug Hanf!",1,2)
						EndIf
					Else
						msg("Opa: Du hast meine Axt schon!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 50 Hanf bekommst du eine Axt"
				
			;Ausbilden lassen
			Case 51
				yo=py
				gui_mx=px
				gui_my=py
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Ausbilden lassen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Ein Eingeborener! Er kennt sich hier gut aus und kann mir"
				yo=yo+12: Text px+10,yo, "sicherlich viel beibringen. Allerdings will er dafür Brot"
				yo=yo+12: Text px+10,yo, "von mir haben."
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+30
				yo=yo+30: Text px+30,yo, "Handel"
				SetFont font_tiny
				
				;3 Brot - Energie
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "3 Brot verkaufen") Then
					If item_use(25, "verkauft",0, 3) Then
						pl_health_max=pl_health_max+5
						msg("Maximale Energie +5",0,3)
						PlaySound sfx_skill
					Else
						msg("Du hast nicht genug Brot!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Meditation: maximale Energie steigert sich um 5"

				;5 Brot - Kraft
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "5 Brot verkaufen") Then
					If item_use(25, "verkauft",0, 5) Then
						pl_power=pl_power+5
						msg("Kraft +5",0,3)
						PlaySound sfx_skill
					Else
						msg("Du hast nicht genug Brot!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Kampftraining: Kraft steigert sich um 5"			

			;Mit Piraten Handeln
			Case 52
				yo=py
				gui_mx=px
				gui_my=py
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Gold tauschen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Ein bisschen suspekt ist mir der Pirat ja schon."
				yo=yo+12: Text px+10,yo, "Aber immerhin kann man bei ihm für Gold fast alles"
				yo=yo+12: Text px+10,yo, "kriegen."
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+30
				yo=yo+30: Text px+30,yo, "Handel"
				SetFont font_tiny
				
				;1 Gold
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "1 Gold verkaufen") Then
					If item_use(30, "verkauft",0, 1) Then
						item_take(1, 2, "erhalten", "Pirat: Pech gehabt! Kein Platz, kein Holz!")
					Else
						msg("Du hast nicht genug Gold!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 1 Gold bekommst du zwei Äste"
				
				;1 Gold
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "1 Gold verkaufen") Then
					If item_use(30, "verkauft",0, 1) Then
						item_take(2, 2, "erhalten", "Pirat: Pech gehabt! Kein Platz, kein Blatt!")
					Else
						msg("Du hast nicht genug Gold!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 1 Gold bekommst du zwei Blätter"
				
				;1 Gold
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "1 Gold verkaufen") Then
					If item_use(30, "verkauft",0, 1) Then
						item_take(4, 2, "erhalten", "Pirat: Pech gehabt! Kein Platz, keine Liane!")
					Else
						msg("Du hast nicht genug Gold!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 1 Gold bekommst du zwei Lianen"
				
				;1 Gold
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "1 Gold verkaufen") Then
					If item_use(30, "verkauft",0, 1) Then
						item_take(7, 1, "erhalten", "Pirat: Pech gehabt! Kein Platz, keine Holz!")
					Else
						msg("Du hast nicht genug Gold!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 1 Gold bekommst du einen Baumstamm"
				
				;3 Gold
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "3 Gold verkaufen") Then
					If item_use(30, "verkauft",0, 3) Then
						item_take(28, 20, "erhalten", "Pirat: Pech gehabt! Kein Platz, keine Munition!")
					Else
						msg("Du hast nicht genug Gold!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 3 Gold bekommst du 20 Patronen"
				
				;12 Gold
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "12 Gold verkaufen") Then
					If tl_pistol=0 Then
						If item_use(30, "verkauft",0, 12) Then
							tl_pistol=1
							msg("Pistole vom Piraten erhalten",0,3)
							PlaySound sfx_skill
						Else
							msg("Du hast nicht genug Gold!",1,2)
						EndIf
					Else
						msg("Pirat: Du hast doch schon ne Pistole!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 12 Gold gibt's ne Pistole. Typ: Super Perforator"	
			
			;Mit Professor Handeln
			Case 53
				yo=py
				gui_mx=px
				gui_my=py
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Gummibeeren tauschen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Der Professor sieht recht verrückt aus. Und er steht"
				yo=yo+12: Text px+10,yo, "auf diese komischen Gummibeeren, mit denen man so hoch"
				yo=yo+12: Text px+10,yo, "springen kann. Für sie kann man bei ihm recht viel kriegen."
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+30
				yo=yo+30: Text px+30,yo, "Handel"
				SetFont font_tiny
				
				;3 Gummibeeren
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "3 Gummibeeren verkaufen") Then
					If item_use(26, "verkauft",0, 3) Then
						mh = 0
						message_set(60)
					Else
						msg("Du hast nicht genug Gummibeeren!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 3 Gummibeeren sagt dir der Prof, wie man Kekse herstellt."
				
				
				;5 Kekse
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "3 Kekse verkaufen") Then
					If tl_axt=0 Then
						If item_use(32, "verkauft",0, 3) Then
							tl_axt=1
							msg("Axt vom Prof erhalten",0,3)
							PlaySound sfx_skill
						Else
							msg("Du hast nicht genug Kekse",1,2)
						EndIf
					Else
						msg("Prof: Du hast schon eine Axt",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 3 Kekse gibt dir der Professor eine Axt"
				
				
				;20 Kekse
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "15 Kekse verkaufen") Then
					If can_build_rockets=0 Then
						If item_use(32, "verkauft",0, 15) Then
							can_build_rockets = 1
							msg("Der Professor hat dir Raketenbau beigebracht",0,3)
							PlaySound sfx_skill
						Else
							msg("Du hast nicht genug Kekse",1,2)
						EndIf
					Else
						msg("Prof: Du kannst doch schon Raketen bauen!",1,2)
					EndIf
				EndIf
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "Für 15 Kekse erlernst du Raketenbau"
			
			
			;Mit Professor Handeln: Wie macht man Kekse?
			Case 60
				yo=py
				gui_mx=px
				gui_my=py
				SetFont font_norm
				
				DrawImage gfx_icon_story, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Wie man Gummibeerenkekse macht:"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Also du brauchst drei Zutaten: Wasser, Korn und Gummibeeren."
				yo=yo+12: Text px+10,yo, "Außerdem benötigst du ein Blatt, einen Stein und eine Feuerstelle."
				yo=yo+12: Text px+10,yo, "Benutze das Blatt an einer Quelle, um es mit Wasser zu füllen."
				yo=yo+12: Text px+10,yo, "Kombiniere drei Körner und einen Stein, um Mehl herzustellen."
				yo=yo+12: Text px+10,yo, "Kombiniere das Wasserblatt und das Mehl, um Teig zu erhalten."
				yo=yo+12: Text px+10,yo, "Kombiniere den Teig mit drei Gummibeeren."
				yo=yo+12: Text px+10,yo, "Benutze den Gummibeerenteig an einer Feuerstelle und schon" 
				yo=yo+12: Text px+10,yo, "hast du Gummibeerenkekse!"
				
			;Bauen	
			Case 100
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Bauen"
				SetFont font_tiny
				
				c_cnt_house=0
				c_cnt_treehouse=0
				c_cnt_fire=0
				c_cnt_boat=0
				c_cnt_torch=0
				c_cnt_storage=0
				c_cnt_reuse=0
							
				For building.building = Each building
					If building\req_total=0 Then
						Select building\typ
							Case 1 c_cnt_house=c_cnt_house+1
							Case 2 c_cnt_treehouse=c_cnt_treehouse+1
							Case 3 c_cnt_fire=c_cnt_fire+1
							Case 4 c_cnt_boat=c_cnt_boat+1
							Case 5 c_cnt_torch=c_cnt_torch+1
							Case 6 c_cnt_storage=c_cnt_storage+1
							Case 7 c_cnt_reuse=c_cnt_reuse+1
						End Select
					EndIf
				Next
				
				;Hütte
				Color 0,0,0 : SetFont font_norm
				yo=yo+20: If gui_button(10, (yo)-py, "Hütte bauen") Then buildplace(1)
				SetFont font_tiny
				yo=yo+12: Text px+10,yo, "In der Hütte kannst du bequem schlafen."
				yo=yo+12: Text px+10,yo, "Kosten: 5 Äste, 5 Blätter, 4 Steine, 3 Lianen, 0 Baumst."
				
				;Baumhaus
				If tl_axt=1 And c_cnt_house>0 Then
					Color 0,0,0 : SetFont font_norm
					yo=yo+20: If gui_button(10, (yo)-py, "Baumhaus bauen") Then buildplace(2)
					SetFont font_tiny
					yo=yo+12: Text px+10,yo, "Im Baumhaus kannst du 100% sicher und bequem schlafen."
					yo=yo+12: Text px+10,yo, "Kosten: 10 Äste, 5 Blätter, 0 Steine, 5 Lianen, 5 Baumst."
				EndIf
				
				;Feuerstelle
				If c_cnt_house>0 Then
					Color 0,0,0 : SetFont font_norm
					yo=yo+20: If gui_button(10, (yo)-py, "Feuerstelle bauen") Then buildplace(3)
					SetFont font_tiny
					yo=yo+12: Text px+10,yo, "Am Feuer kannst du Fleisch grillen und dich erholen."
					yo=yo+12: Text px+10,yo, "Kosten: 10 Äste, 0 Blätter, 5 Steine, 0 Lianen, 0 Baumst."
				EndIf
				
				;Floß
				If c_cnt_treehouse>0 And c_cnt_storage>0 Then
					Color 0,0,0 : SetFont font_norm
					yo=yo+20: If gui_button(10, (yo)-py, "Floß bauen") Then buildplace(4)
					SetFont font_tiny
					yo=yo+12: Text px+10,yo, "Mit dem Floß kannst du das weite Meer erkunden."
					yo=yo+12: Text px+10,yo, "Kosten: 5 Äste, 10 Blätter, 0 Steine, 5 Lianen, 15 Baumst."
				EndIf
				
				;Fackel
				If c_cnt_fire>0 Then
					Color 0,0,0 : SetFont font_norm
					yo=yo+20: If gui_button(10, (yo)-py, "Fackel bauen") Then buildplace(5)
					SetFont font_tiny
					yo=yo+12: Text px+10,yo, "Fackeln erhellen die Umgebung und eignen sich zum orientieren."
					yo=yo+12: Text px+10,yo, "Kosten: 3 Äste, 0 Blätter, 0 Steine, 0 Lianen, 0 Baumst."
				EndIf
				
				;Lager
				If c_cnt_treehouse>0 Then
					Color 0,0,0 : SetFont font_norm
					yo=yo+20: If gui_button(10, (yo)-py, "Lager bauen") Then buildplace(6)
					SetFont font_tiny
					yo=yo+12: Text px+10,yo, "Im Lager kannst du Nahrung sicher aufbewahren."
					yo=yo+12: Text px+10,yo, "Kosten: 5 Äste, 0 Blätter, 10 Steine, 0 Lianen, 5 Baumst."
				EndIf
				
				;Reuse
				If c_cnt_storage>0 Then
					Color 0,0,0 : SetFont font_norm
					yo=yo+20: If gui_button(10, (yo)-py, "Reuse bauen") Then buildplace(7)
					SetFont font_tiny
					yo=yo+12: Text px+10,yo, "Stelle die Reuse im Wasser auf um damit Fische zu fangen."
					yo=yo+12: Text px+10,yo, "Kosten: 5 Äste, 0 Blätter, 0 Steine, 10 Lianen, 0 Baumst."
				EndIf
				
				;Rakete
				If can_build_rockets=1 Then
					Color 0,0,0 : SetFont font_norm
					yo=yo+20: If gui_button(10, (yo)-py, "Rakete bauen") Then buildplace(8)
					SetFont font_tiny
					yo=yo+12: Text px+10,yo, "Mit der Rakete kannst du von der Insel wegfliegen"
					yo=yo+12: Text px+10,yo, "Kosten: 5 Äste, 10 Blätter, 5 Steine, 2 Lianen, 25 Baumst."
				EndIf
				
				SetFont font_tiny
				Color 100,255,100
			
			
			;Spielstand speichern	
			Case 200
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Spielstand speichern"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Klicke bitte auf den Slot, in dem dein Spielstand"
				yo=yo+12: Text px+10,yo, "gespeichert werden soll."
				SetFont font_norm
				yo=yo+20
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 1") Then game_save("slot1")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 2") Then game_save("slot2")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 3") Then game_save("slot3")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 4") Then game_save("slot4")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 5") Then game_save("slot5")
			
			;Spielstand laden
			Case 201
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Spielstand laden"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Wähle bitte einen Spielstand der geladen werden."
				SetFont font_norm
				yo=yo+20
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 1") Then game_load("slot1")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 2") Then game_load("slot2")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 3") Then game_load("slot3")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 4") Then game_load("slot4")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Slot 5") Then game_load("slot5")
				yo=yo+50:If gui_button(150, (yo+18)-py, "Quick-Save") Then game_load("quicksave")
				yo=yo+30:If gui_button(150, (yo+18)-py, "Auto-Save") Then game_load("autosave")
			
			;Cheaten
			Case 202
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Cheaten"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Gebe bitte einen Cheatcode ein"
				SetFont font_norm
				yo=yo+40: gui_inp(10,yo-py,270,"Cheatcode:",1)
				If gui_button(300, (yo+18)-py, "OK") Or KeyHit(28) Then gui_messageon=0 : gamestop=0 : cheat(gui_input$(1))
				
			;Hilfe - Steuerung
			Case 205
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Steuerung"
				yo=yo+20: Text px+10,yo, "Bewegen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "[Maus] Umschauen"
				yo=yo+12: Text px+10,yo, "[W] Vorwärts laufen"
				yo=yo+12: Text px+10,yo, "[S] Rückwärts laufen"
				yo=yo+12: Text px+10,yo, "[A] Seitwärts nach links laufen"
				yo=yo+12: Text px+10,yo, "[D] Seitwärts nach rechts laufen"
				yo=yo+12: Text px+10,yo, "[Space] Springen"
				SetFont font_norm
				yo=yo+20: Text px+10,yo, "Werkzeuge & Aktionen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "[Linke Maustaste] Werkzeug verwenden"
				yo=yo+12: Text px+10,yo, "[0-9] Werkzeug wählen"
				yo=yo+12: Text px+10,yo, "[Mausrad hoch] nächstes Werkzeug wählen"
				yo=yo+12: Text px+10,yo, "[Mausrad runter] vorheriges Werkzeug wählen"
				yo=yo+12: Text px+10,yo, "[E] Suchen"
				yo=yo+12: Text px+10,yo, "[Q] Ansprechen"
				SetFont font_norm
				yo=yo+20: Text px+10,yo, "Menü"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "[Linke Maustaste] Aktionen im Menü"
				yo=yo+12: Text px+10,yo, "[Rechte Maustaste]/[Enter] Menü öffnen/schließen"
				yo=yo+12: Text px+10,yo, "Ein Klich außerhalb des Menüs schließt es ebenfalls."
				SetFont font_norm
				yo=yo+20: Text px+10,yo, "Zusätzliches"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "[F3] Quick Save"
				yo=yo+12: Text px+10,yo, "[F4] Quick Load"
				yo=yo+12: Text px+10,yo, "[F5] Screenshot machen"
				yo=yo+12: Text px+10,yo, "[F6] Gitter an/aus"
				yo=yo+12: Text px+10,yo, "[F7] Wireframe an/aus"
				yo=yo+12: Text px+10,yo, "[F8] Debug Informationen an/aus"
			
			;Hilfe - Anzeigen
			Case 206
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Anzeigen"
				yo=yo+20: Text px+10,yo, "Kompass"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Oben Links befindet sich der Kompass. Du kannst dich an"
				yo=yo+12: Text px+10,yo, "ihm orientieren wenn du dich mal verlaufen hast."
				SetFont font_norm
				yo=yo+20: Text px+10,yo, "Menü / Energieanzeige"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Unten Links befindet sich das Menü bzw. die Energieanzegie."
				yo=yo+12: Text px+10,yo, "Mit Enter oder der rechten Maustaste kannst du zwischen"
				yo=yo+12: Text px+10,yo, "den beiden wechseln."
				yo=yo+12: Text px+10,yo, "Das Menü besteht aus 3 Teilen: Spieler Menü, Inventar"
				yo=yo+12: Text px+10,yo, "und Spiel Menü. Im Spieler Menü kannst du deine Werte"
				yo=yo+12: Text px+10,yo, "angucken, die meisten davon werden auch in der Energieanzeige"
				yo=yo+12: Text px+10,yo, "angezeigt. Außerdem kannst du hier zusätzliche Aktionen wie"
				yo=yo+12: Text px+10,yo, "z.b. schlafen und suchen ausführen. Im Inventar kannst du"
				yo=yo+12: Text px+10,yo, "sehen was du bei dir trägst und die Items benutzen, kombinieren"
				yo=yo+12: Text px+10,yo, "wegwerfen oder essen. Im Spiel Menü kannst du einen Spielstand"
				yo=yo+12: Text px+10,yo, "laden und speichern, das Spiel beenden, oder die Hilfe angucken."
				SetFont font_norm
				yo=yo+20: Text px+10,yo, "Werkzeuganzeige"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "In der Werkzeuganzeige wird angezeigt welches Werkzeug du"
				yo=yo+12: Text px+10,yo, "gerade verwendest. Mit den Zahlentasten oder dem Mausrad"
				yo=yo+12: Text px+10,yo, "kannst du es wechseln, mit der linken Maustaste kannst du"
				yo=yo+12: Text px+10,yo, "es benutzen. Unter dem Werkzeug ist ein Balken, der sich"
				yo=yo+12: Text px+10,yo, "nach jeder Verwendung leert. Erst wenn er sich wieder"
				yo=yo+12: Text px+10,yo, "komplett aufgeladen hat, kannst du das Werkzeug erneut"
				yo=yo+12: Text px+10,yo, "benutzen."
			
			;Custom Message
			Case 210
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, gm_cm$(0)
				SetFont font_tiny
				Color 0,0,0
				yo=yo+8
				For i=1 To 30
					yo=yo+12
					Text px+10,yo, gm_cm$(i)
				Next
				
			;Editor - Neue Karte
			Case 220
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Neue Map"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Möchtest du wirklich eine neue Map erstellen?"
				yo=yo+12: Text px+10,yo, "Die aktuelle Map wird geht verloren wenn sie nicht"
				yo=yo+12: Text px+10,yo, "gespeichert wurde!"
				SetFont font_norm
				If gui_button(80, (yo+25)-py, "Ja") Then mh=0: game_editor()
				If gui_button(230, (yo+25)-py, "Nein") Then mh=0: message_set(0)
				
			;Editor - Speichern
			Case 221
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Speichern"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Gebe bitte einen Dateinamen ein (ohne Endung)"
				SetFont font_norm
				yo=yo+40: gui_inp(10,yo-py,270,"Dateiname:",1)
				If gui_button(300, (yo+18)-py, "OK") Then
					mh=0
					gui_messageon=0
					gamestop=0
					game_save(gui_input$(1),1,"maps")
				EndIf
				
			;Editor - Laden
			Case 222
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Laden"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Gebe bitte einen Dateinamen ein (ohne Endung)"
				yo=yo+12: Text px+10,yo, "Achtung: Die aktuelle Map geht beim Laden verloren!"
				SetFont font_norm
				yo=yo+40: gui_inp(10,yo-py,270,"Dateiname:",1)
				If gui_button(300, (yo+18)-py, "OK") Then
					mh=0
					gui_messageon=0
					gamestop=0
					game_load(gui_input$(1),"maps")
					ed_select(0,1)
					ed_select(1,1)
					ed_select(2,1)
					ed_select(3,1)
					HideEntity gui_kompass
					HideEntity gui_kompass_z
				EndIf
				
			;Editor - Ziele
			Case 223
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Ziele"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Hier kannst du die Gewinnbedingungen definieren."
				SetFont font_norm
				yo=yo+30: gui_inp(10,yo-py,270,"Zeitbegrenzung in Sek. (0 für keine Begrenzung):",1)
				yo=yo+40: gui_inp(10,yo-py,270,"Gewinn Distanz von Insel (0 für keine):",2)
				yo=yo+60: gui_inp(10,yo-py,120,"Checkpoints akt.:",3):gui_inp(140,yo-py,120,"Kiwis 'retten':",4)
				yo=yo+60: gui_inp(10,yo-py,120,"Schildkröten töten:",5):gui_inp(140,yo-py,120,"Krebse töten:",6)
				yo=yo+40: gui_inp(10,yo-py,120,"Löwen töten:",7):gui_inp(140,yo-py,120,"Kiwis töten:",8)
				yo=yo+40: gui_inp(10,yo-py,120,"Hanf-Opas töten:",9):gui_inp(140,yo-py,120,"Raptoren töten:",10)
				yo=yo+40: gui_inp(10,yo-py,120,"Soldaten töten:",11):gui_inp(140,yo-py,120,"Eingeborene töten:",12)
				yo=yo+60: gui_check(10,yo-py,"Ziel muss erreicht werden",1)
				yo=yo+30
				If gui_button(10,yo-py,"Einstellungen Übernehmen") Then
					gm_time=gui_input$(1)
					gm_mi_distance=gui_input$(2)
					gm_mi_checkp=gui_input$(3)
					gm_mi_kiwis=gui_input$(4)
					gm_mi_kill(1)=gui_input$(5)
					gm_mi_kill(2)=gui_input$(6)
					gm_mi_kill(5)=gui_input$(7)
					gm_mi_kill(8)=gui_input$(8)
					gm_mi_kill(6)=gui_input$(9)
					gm_mi_kill(9)=gui_input$(10)
					gm_mi_kill(10)=gui_input$(11)
					gm_mi_kill(11)=gui_input$(12)
					gm_mi_finish=gui_checkb(1)
					PlaySound sfx_action
				EndIf
				
			;Editor - Einstellungen
			Case 224
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Einstellungen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Hier kannst du einige wichtige Dinge einstellen."
				SetFont font_norm
				yo=yo+30: gui_inp(10,yo-py,70,"Tag:",1):gui_inp(90,yo-py,70,"Stunde:",2):gui_inp(170,yo-py,70,"Minute:",3)
				yo=yo+40: gui_check(10,yo-py,"Zeit 'einfrieren'",1)
				yo=yo+40: gui_inp(10,yo-py,270,"Mission Briefing (Text Datei, mit Endung, 0 keins):",4)
				yo=yo+40: gui_inp(10,yo-py,270,"Musik (Sound Datei, mit Endung, 0 keine):",5)
				yo=yo+60: gui_check(10,yo-py,"Arcade Modus (kein Essen/Trinken/Schlafen nötig)",2)
				yo=yo+20: gui_check(10,yo-py,"Immer Regen",3)
				yo=yo+20: gui_check(10,yo-py,"Speer unendlich oft werfbar",4)
				yo=yo+20: gui_check(10,yo-py,"Unendlich Munition (für Pistole/AK)",5)
				yo=yo+30
				If gui_button(10,yo-py,"Einstellungen Übernehmen") Then
					gt_day=gui_input$(1)
					gt_hour=gui_input$(2)
					gt_min=gui_input$(3)
					gm_briefing$=gui_input$(4)
					gm_track$=gui_input$(5)
					gm_frozentime=gui_checkb(1)
					gm_arcade=gui_checkb(2)
					gm_rain=gui_checkb(3)
					gm_infinitespear=gui_checkb(4)
					gm_infiniteammo=gui_checkb(5)
					PlaySound sfx_action
				EndIf
				
			;Editor - Spieler Werte
			Case 225
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Spieler Werte"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Hier kannst du die Werte des Spielers einstellen"
				SetFont font_norm
				yo=yo+40: gui_inp(10,yo-py,120,"Energie:",1):gui_inp(140,yo-py,120,"Maximale Energie:",2)
				yo=yo+40: gui_inp(10,yo-py,120,"Kraft:",3):gui_inp(140,yo-py,120,"Müdigkeit (0-100):",4)
				yo=yo+40: gui_inp(10,yo-py,120,"Hunger (0-100):",5):gui_inp(140,yo-py,120,"Durst (0-100):",6)
				yo=yo+60: gui_check(10,yo-py,"Steinschleuder",1):gui_check(140,yo-py,"Hammer",2)
				yo=yo+20: gui_check(10,yo-py,"Axt",3):gui_check(140,yo-py,"Angel",4)
				yo=yo+20: gui_check(10,yo-py,"Speer",5):gui_check(140,yo-py,"Netz",6)
				yo=yo+20: gui_check(10,yo-py,"Pistole",7):gui_check(140,yo-py,"AK - Kalashnikow",8)
				yo=yo+20: gui_check(10,yo-py,"Messer",9)
				yo=yo+30
				If gui_button(10,yo-py,"Einstellungen Übernehmen") Then
					pl_health=gui_input$(1)
					pl_health_max=gui_input$(2)
					pl_power=gui_input$(3)
					pl_tired=gui_input$(4)
					pl_hunger=gui_input$(5)
					pl_thirst=gui_input$(6)
					tl_stnschl=gui_checkb(1)
					tl_hammer=gui_checkb(2)
					tl_axt=gui_checkb(3)
					tl_angel=gui_checkb(4)
					tl_speer=gui_checkb(5)
					tl_netz=gui_checkb(6)
					tl_pistol=gui_checkb(7)
					tl_ak=gui_checkb(8)
					tl_knife=gui_checkb(9)
					PlaySound sfx_action
				EndIf
				
			;Editor - Heightmap laden
			Case 226
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Heightmap laden"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Gebe bitte den Namen einer Heightmap ein."
				yo=yo+12: Text px+10,yo, "Die Heightmap sollte 256x256 Pixel groß sein."
				yo=yo+12: Text px+10,yo, "Ist sie das nicht so wird sie entsprechend skaliert!"
				yo=yo+12: Text px+10,yo, "Beim Laden der Heightmap geht die aktuelle Map verloren!"
				SetFont font_norm
				yo=yo+40: gui_inp(10,yo-py,270,"Dateiname (mit Endung):",1)
				If gui_button(300, (yo+18)-py, "OK") Then
					mh=0
					If FileType(gui_input$(1))=1 Then
						tempimg=LoadImage(gui_input$(1))
						If tempimg<>0 Then
							If ImageWidth(tempimg)<>256 Or ImageHeight(tempimg)<>256 Then
								ResizeImage tempimg, 256,256
							EndIf
							SaveBuffer(ImageBuffer(tempimg),"gfx/temp_hmap.bmp")
							If FileType("gfx/temp_hmap.bmp")=1 Then
								game_editor()
								terrain_create("gfx/temp_hmap.bmp")
								PlaySound sfx_action
							Else
								PlaySound sfx_error	
							EndIf
						Else
							PlaySound sfx_error
						EndIf
					Else
						PlaySound sfx_error
					EndIf
				EndIf
				
			;Editor - Texture laden
			Case 227
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Textur laden"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Gebe bitte den Namen einer Textur ein."
				yo=yo+12: Text px+10,yo, "Die Ideal-Größe ist 512x512 Pixel!"
				SetFont font_norm
				yo=yo+40: gui_inp(10,yo-py,270,"Dateiname (mit Endung):",1)
				If gui_button(300, (yo+18)-py, "OK") Then
					If FileType(gui_input$(1))=1 Then
						gm_texture$=gui_input$(1)
						FreeTexture gfx_terrain
						gfx_terrain = LoadTexture (gm_texture$)
						ScaleTexture gfx_terrain, 256, 256
						EntityTexture terrain, gfx_terrain
						PlaySound sfx_action
						
					Else
						mh=0
						PlaySound sfx_error
					EndIf
				EndIf
				
			;Editor - Insel füllen
			Case 228
				yo=py
				gui_mx=px
				gui_my=py			
				Color 100,255,100
				SetFont font_norm
				DrawImage gfx_icon_help, px+8,yo+12
				yo=yo+12: Text px+30,yo, "Insel füllen"
				SetFont font_tiny
				yo=yo+20: Text px+10,yo, "Diese Funktion füllt die Insel mit Pflanzen und Tieren."
				yo=yo+12: Text px+10,yo, "Jedesmal wenn du auf OK klickst wird die angegebene"
				yo=yo+12: Text px+10,yo, "Zahl an Tieren/Pflanzen auf die Insel gesetzt."
				SetFont font_norm
				yo=yo+40: gui_inp(10,yo-py,270,"Pflanzen hinzufügen (Standart: 8000):",1)
				If gui_button(300, (yo+18)-py, "OK") Then
					terrain_flora(gui_input$(1))
					e_flora.flora=First flora
					PlaySound sfx_action
				EndIf
				yo=yo+40: gui_inp(10,yo-py,270,"Tiere hinzufügen (Standart: 1000):",2)
				If gui_button(300, (yo+18)-py, "OK") Then
					terrain_fauna(gui_input$(2))
					e_fauna.fauna=First fauna
					PlaySound sfx_action
				EndIf

				

				

					
		End Select
		
		Color 0,0,0
		SetFont font_tiny
		Text px+10, py+446, "< klicke zum schließen >"
		
		If mh Then
			If mx>=px And my>=py And mx<=px+343 And my<=py+468 Then
				mh=0
				gui_messageon=0
				gamestop=0
				PlaySound sfx_paper
				FlushKeys()
			EndIf
		EndIf
	
	EndIf
End Function