$answer = MsgBox (4,"Langeweile?", "Ist ihnen langweilig?")
if $answer = 7 Then
	Exit
EndIf
if $answer= 6 Then
	EndIf

For $0 = 0 To 100 step 1
	MsgBox (0, "Langeweile"	& $0 & "/100", "hahahahahahahaha")
Next
	$antwort = MsgBox (4, "Langeweile", "Ist ihnen immer noch langweilig?")

if $antwort = 6 Then
	For $1 = 0 To 100 step 1
		MsgBox (0,"Langeweile" & $1 & "/100","hahahahahaha")
	Next
Else 
	Exit
EndIf