Kleines Buttonspiel (Mehrere Wege?)

Global $msg, $msg2, $msg3, $msg4, $msg5, $msg6, $msg7, $msg8, $input, $msg9, $i, $prog1, $msg10, $msg11
msg2()

Func msg2()
MsgBox(0,"Willkommen","Drück mal auf OK")
$msg=MsgBox(4,"OMG","Hast du jetzt wirklich auf OK gedrückt?!")
If $msg=6 Then $msg2=MsgBox(0,"Hmmm","Gibst es immerhin zu. Strafe kriegst aber trotzdem")
If $msg=7 Then $msg3=MsgBox(4,"Was?!","Du willst das jetzt auch noch bestreiten?!")
If $msg3=6 Then $msg4=MsgBox(0,"Pfui","Schäm dich. Das gibt jetzt eine böse Strafe!")
If $msg3=7 Then $msg5=MsgBox(4,"Aha","Gibst es also doch zu, dass du gedrückt hast?")
If $msg5=6 Then $msg6=MsgBox(0,"HAHA","Warum gibst du das nicht gleich zu?")
If $msg6=1 Then $msg7=MsgBox(4,"Grummel","Wolltest mich wohl nerven wie?")
If $msg7=7 Then $msg8=MsgBox(0,"Pah","Jaja, du bist ja das grosse Unschuldslamm!")
If $msg8=1 Then $input=InputBox("Eingabe","Wehe du gibst jetzt: Aber immer ein!")
If $input="Aber immer" Then $msg9=MsgBox(16+0,"Bahh","Was hast du dir dabei gedacht. Ich glaubs nicht. Mit dir geb ich mich nicht weiter ab. Leb wohl!")
If $msg9=1 Then $prog1=ProgressOn("Einen Moment bitte","Das Spiel beruhigt sich")
For $i = 10 to 100 step 10
sleep(1000)
ProgressSet( $i, $i & " Prozent")
Next
ProgressSet(100 , "Fertig", "Komplett")
sleep(500)
ProgressOff()
If $prog1=1 Then $msg10=MsgBox(0,"NEIN","Du bist noch immer da? Lass mich in Ruhe. Ich will nicht mehr")
If $msg10=1 Then $msg11=MsgBox(0,"Bye","Ich beende mich jetzt mal einfach und sage tschüss. Du bist der DAU!")
EndFunc