Euphoria Console (terminal) game - Avishai

[ron77]

include std/console.e

constant SUCCESS = 1
constant NEUTRAL = 2
constant FAILED = 3

global integer avishai_happy = 0
global integer avishai_sad = 0
global atom over = 1

procedure show_results(integer result)
      switch result do
        case SUCCESS then
            puts(1, "\nAvishai is happy.")
            puts(1, "\nAnd you are happy too and you Hug him")
            puts(1, "\nHe smiles at you without words")
            puts(1, "\nAnd you feel Love Towards Him and From Him.")
            avishai_happy += 1
            break
        case NEUTRAL then
            puts(1, "\nAvishai is apathetic.")
            puts(1, "\nHe is Deep Into his Autistic Apathy")
            puts(1, "\nAt least he Is Not Crying")
            puts(1, "\nYou look at his Sadden Wishing he was Normal.")
            break
        case FAILED then
            puts(1, "\nAvishai cries.")
            puts(1, "\nYou try your Best to Comfort Him")
            puts(1, "\nBut in Vain He cries out Load")
            puts(1, "\nHe cries His Poor Little Heart Out")
            puts(1, "\nAnd you Cry Too over Both of You.")
            avishai_sad += 1
            break
    end switch
    
end procedure

procedure game_turn()
    integer choice

    puts(1, "\nIt's a new day in 1988.\n\n")
    puts(1, "Options:\n")
    puts(1, "1. Feed Avishai\n")
    puts(1, "2. Give him medications\n")
    puts(1, "3. Take him to the public garden\n")
    puts(1, "4. Play music for him\n")
    puts(1, "5. Put Avishai to bed\n")
    puts(1, "6. Exit the game\n")

    choice = prompt_number("", {1, 6})
    clear_screen()
      switch choice do
        case 1 then
            show_results(rand(3))
            break
        case 2 then
            show_results(rand(3))
            break
        case 3 then
            show_results(rand(3))
            break
        case 4 then
            show_results(rand(3))
            break
        case 5 then
            show_results(rand(3))
            break
        case 6 then
            puts(1, "Exiting the game.")
            over = 0
            break

--~         else
--~             puts(1, "Invalid choice. Try again.")
    end switch
    wait_key()
    clear_screen()
end procedure

procedure opening()
    puts(1, "DEDICATED TO MY LITTLE BROTHER\n\n")
    puts(1, "           AVISHAI\n\n")
    puts(1, "FOREVER IN MY HEART OH BROTHER <3") 
    wait_key()
    clear_screen()
end procedure

procedure main()
    
    while over = 1 do
        game_turn()
    end while
    printf(1, "\n\nAvishai was happy %d times.",  avishai_happy )
    printf(1, "\n\nAvishai was sad %d times.",  avishai_sad )
end procedure

opening()
main()