AppTitle "Hauptmenü"

Graphics 1024,768,32,2
SetBuffer BackBuffer()
AutoMidHandle(True)
HidePointer

Include "blitzsys.bb"

;Images

Global mouse=LoadImage("Mouse.png")
Global mhit=MouseDown(1)

Global back=LoadImage("Main Background.png")
Global start=LoadImage("Spiel Starten.png")
Global anleitung=LoadImage("Anleitung.png")
Global optionen=LoadImage("Optionen.png")
Global credits=LoadImage("Credits.png")
Global ende=LoadImage("Ende.png")


Global steuern=LoadImage("Anleitung3.png")
Global zuruck=LoadImage("Weiter.png")

Global credits1=LoadImage("Creditstext.png")



;Mainloop

.main

While Not KeyHit(1)
	
	draw()
	
		If ImagesCollide(mouse,MouseX(),MouseY(),0,anleitung,185,290,0) And MouseDown(1) Then
			anleitung()
		EndIf
		
		If ImagesCollide(mouse,MouseX(),MouseY(),0,credits,185,490,0) And MouseDown(1) Then
			credits()
		EndIf
		
		If ImagesCollide(mouse,MouseX(),MouseY(),0,ende,185,590,0) And MouseDown(1) Then
			DLLMessageBox("Wirklich?","Wollen sie das Programm wirklich beenden?",MB_ICONQUESTION Or MB_YESNO)

		EndIf

	
	Flip 
Wend
End



;Funktion Screen malen

Function draw()
	
	DrawImage back,1024/2,768/2
	DrawImage start,185,190
	DrawImage anleitung,185,290
	DrawImage optionen,185,390
	DrawImage credits,185,490
	DrawImage ende,185,590
	
	DrawImage mouse,MouseX(),MouseY()
	
	
End Function


;Funktion Spiel starten

Function startgame()
	
	
End Function


;Funktion Anleitung

Function anleitung()


		While Not KeyHit(1)
			Cls
			draw()
			DrawImage steuern,670,400
			Flip
		Wend
End Function


;Funktion Optionen

Function options()
	
	
	
End Function



;Funktion Credits

Function credits()
	
	While Not KeyHit(1)
		Cls
		draw()
		DrawImage credits1,670,400
		Flip
	Wend
End Function

Select DLLMessageBox("Name bestätigen", namequestion$, MB_ICONQUESTION Or MB_YESNO)
Case IDYES
CloseFile nam
Goto beginn
Case IDNO