Function options()
	
	While Not KeyHit(1)
		
		
		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 ressolution,540,190
		DrawImage vollbild,540,290
		
		Select setscreen
			Case 1
			DrawImage yes,840,290
			Case 2
			DrawImage no,840,290
		End Select
		
		
		Select ress
			Case 1
			game_x = 800
			game_y = 600
			DrawImage ress1,840,190
			Case 2
			game_x = 1024
			game_y = 768
			DrawImage ress2,840,190
			Case 3
			game_x = 1280
			game_y = 1024
			DrawImage ress3,840,190
			Case 4
			game_x = 1440
			game_y = 900
			DrawImage ress4,840,190
			Case 5
			game_x = 1680
			game_y = 1050
			DrawImage ress5,840,190
			Case 6
			game_x = 640	
			game_y = 480
			DrawImage ress6,840,190
		End Select
		
		DrawImage mouse,MouseX(),MouseY()
		
			If ImagesCollide(mouse,MouseX(),MouseY(),0,ressolution,540,190,0) And MouseHit(1) Then
				ress=ress+1
				If ress=7 Then ress=1
			EndIf
			
			If ImagesCollide(mouse,MouseX(),MouseY(),0,vollbild,540,290,0) And MouseHit(1) Then
				
				If setscreen=1 Then 
					setscreen=2
				
				
				ElseIf setscreen=2 Then
					setscreen=1
				EndIf
			EndIf
				

		Flip
	Wend
	
End Function