Langeweile

Sollte ihnen langweilig sein, dann sollten sie dieses Programm einmal ausprobieren!

Edit Mega : Code eingefügt

Hi,

$answer = MsgBox (4,"Langeweile?", "Ist ihnen langweilig?")
if $answer <> 7 Then
For $0 = 0 To 100
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
EndIf
EndIf

So isses kürzer und immernoch sinnlos

$answer = MsgBox (4,"Langeweile?", "Ist ihnen langweilig?")
While $answer <> 7
For $0 = 0 To 100
MsgBox (0, "Langeweile " & $0 & "/100", "hahahahahahahaha")
Next
$answer = MsgBox (4, "Langeweile", "Ist ihnen immer noch langweilig?")
WEnd