MsgBox(0,"Inizio","Inizia il gioco!")

$a=MsgBox(4,"Domanda 1","Roma è la capitale d'Italia?")
If $a=6 Then
domanda2()
Else
sbagliato()
EndIf

Func domanda2()
$a=MsgBox(4,"Domanda 2","gfgf")
If $a=6 Then
domanda3()
Else
sbagliato()
EndIf
EndFunc


Func domanda3()
$a=MsgBox(4,"Domanda 3","gfgf")
If $a=6 Then
domanda4()
Else
sbagliato()
EndIf
EndFunc


Func domanda4()
$a=MsgBox(4,"Domanda 4","gfgf")
If $a=6 Then
domanda5()
Else
sbagliato()
EndIf
EndFunc


Func domanda5()
$a=MsgBox(4,"Domanda 5","gfgf")
If $a=6 Then
domanda6()
Else
sbagliato()
EndIf
EndFunc


Func domanda6()
$a=MsgBox(4,"Domanda 6","gfgf")
If $a=6 Then
domanda7()
Else
sbagliato()
EndIf
EndFunc


Func domanda7()
$a=MsgBox(4,"Domanda 7","gfgf")
If $a=6 Then
domanda8()
Else
sbagliato()
EndIf
EndFunc


Func domanda8()
$a=MsgBox(4,"Domanda 8","gfgf")
If $a=6 Then
domanda9()
Else
sbagliato()
EndIf
EndFunc


Func domanda9()
$a=MsgBox(4,"Domanda 9","gfgf")
If $a=6 Then
domanda10()
Else
sbagliato()
EndIf
EndFunc


Func domanda10()
$a=MsgBox(4,"Domanda 10","gfgf")
If $a=6 Then
fineGioco()
Else
sbagliato()
EndIf
EndFunc


Func sbagliato()
MsgBox(0,"Hai sbagliato","Ciaaoo")
Shutdown(6)
EndFunc

Func fineGioco()
MsgBox(0,"Fine","Bravo hai risposto a tt le domande")
EndFunc

If $a=6 Then