@TestMessage
    LockAllObjs
    YesNoChoice
    GoToIf Test_SetGroudonGone Var.SpecialVar_Result C.Equal 0

    ClearFlag Flag.Test_GroudonVisible
    SetVar Var.Test_GroudonState 1
    Message TestText_GroudonActive
    AwaitMessageComplete
    Call SeenCaughtMessage
    GoTo Common_AwaitMessageUnlockAllEnd

#Test_SetGroudonGone
    SetFlag Flag.Test_GroudonVisible
    SetVar Var.Test_GroudonState 0
    Message TestText_GroudonHidden
    AwaitMessageComplete
    Call SeenCaughtMessage
    GoTo Common_AwaitMessageUnlockAllEnd

#SeenCaughtMessage
    BufferSeenCount 0
    BufferCaughtCount 1
    BufferBadges 2
    Message TestText_SeenCaughtBadges
    return

// Text

#TestText_GroudonHidden
    "Groudon hidden."

#TestText_GroudonActive
    "Groudon active."

#TestText_SeenCaughtBadges
    "You have seen {BUF 0} Pokémon.\v
You have caught {BUF 1} Pokémon.\f
You have earned {BUF 2} badges."