video game system fluxograma

'Criado por Fabs Werneck aka Fawers
'para a página Press Start
' http://www.facebook.com/PressStaart/posts/486510994768506
'Copie e cole o código abaixo no bloco de notas e salve como algum_nome_aqui.vbs

Sub choose(choice)
    system = ""
    If choice = 1 Then
        system = "a PC"
    ElseIf choice = 2 Then
        system = "a Wii"
    ElseIf choice = 3 Then
        system = "an XBox360"
    ElseIf choice = 4 Then
        system = "a PS3"
    End If

    Call MsgBox("Buy " & system, vbInformation + vbOKOnly, "")
End Sub

Sub init()
    choice = videoGames()
    choose(choice)
End Sub

Function videoGames()
    ans = MsgBox("Do you like video games?", vbYesNo)
    If ans = vbYes Then
        videoGames = 1
    Else
        videoGames = friends()
    End If
End Function

Function friends()
    ans = MsgBox("Do you have any friends?", vbYesNo)
    If ans = vbYes Then
        friends = internetFriends()
    Else
        friends = 4
    End If
End Function

Function internetFriends()
    ans = MsgBox("...from the Internet?", vbYesNo)
    If ans = vbYes Then
        internetFriends = 3
    Else
        internetFriends = 2
    End If
End Function

init()