AppTitle \"Name des Spiels\"
width = 640
Graphics width , 480, 16, 2
SetBuffer BackBuffer()
bg = LoadImage (\"gfx/main.png\")
b1 = LoadImage (\"gfx/b1.png\")
b2 = LoadImage (\"gfx/b2.png\")
hl = LoadFont (\"gfx/miltown.ttf\", 40)
link = LoadFont (\"gfx/miltown.ttf\", 18)
Dim ger$ (7)
ger$ (1) = \"NAME°DES°SPIELS\"
ger$ (2) = \"SPIELEN\"
ger$ (3) = \"INSTALLIEREN\"
ger$ (4) = \"DIRECT°X\"
ger$ (5) = \"HILFE\"
ger$ (6) = \"DEINSTALLIEREN\"
ger$ (7) = \"VERLASSEN\"
Repeat
	Cls
	TileBlock (bg)
	For n = 150 To 350 Step 40
		widthimage = (width - ImageWidth (b1)) / 2
		MaskImage b1, 255, 0, 255
		MaskImage b2, 255, 0, 255
		If ImageRectOverlap(b1, widthimage, n, MouseX(), MouseY(), 1, 1) Then
			DrawImage b2, widthimage, n
		Else
			DrawImage b1, widthimage, n
		EndIf
	Next
	SetFont (hl)
	Color 60, 30, 0
	Text (width - StringWidth (ger (1))) / 2, 50, ger (1)
	SetFont (link)
	Text (width - StringWidth (ger$ (2))) / 2, 155, ger$ (2)
	Text (width - StringWidth (ger$ (3))) / 2, 195, ger$ (3)
	Text (width - StringWidth (ger$ (4))) / 2, 235, ger$ (4)
	Text (width - StringWidth (ger$ (5))) / 2, 275, ger$ (5)
	Text (width - StringWidth (ger$ (6))) / 2, 315, ger$ (6)
	Text (width - StringWidth (ger$ (7))) / 2, 355, ger$ (7)
	Color 255, 0, 255
	If (MouseDown(1) And ImageRectOverlap(b1, widthimage, 155, MouseX(), MouseY(), 1, 1)) Then
		Text MouseX(), MouseY(), \"SPIELEN\"
	ElseIf (MouseDown(1) And ImageRectOverlap(b1, widthimage, 195, MouseX(), MouseY(), 1, 1)) Then
		Text MouseX(), MouseY(), \"INSTALLIEREN\"
	ElseIf (MouseDown(1) And ImageRectOverlap(b1, widthimage, 235, MouseX(), MouseY(), 1, 1)) Then
		ExecFile \"DirectX9.0c/dxsetup.exe\"
	ElseIf (MouseDown(1) And ImageRectOverlap(b1, widthimage, 275, MouseX(), MouseY(), 1, 1)) Then
		ExecFile \"readme.txt\"
	ElseIf (MouseDown(1) And ImageRectOverlap(b1, widthimage, 315, MouseX(), MouseY(), 1, 1)) Then
		Text MouseX(), MouseY(), \"DEINSTALLIEREN\"
	ElseIf (MouseDown(1) And ImageRectOverlap(b1, widthimage, 355, MouseX(), MouseY(), 1, 1)) Then
		End
	EndIf
	Flip
Forever