-----------------------------------

codemage

Tue Nov 29, 2005 1:23 pm


Y R We Here?  II : The application.

-----------------------------------

That's right.  The much-anticipated application spawned off by the now infamous, almost-longest, admin-locked debate.

Only the basest attempt at any form of political / theological / coding correctness here.  This may be an eye-opener for some of you.  Best of luck.



%100 years in purgatory sounds about right for any non-saint.
var years, indulgence, menu : real := 100

loop
    cls
    if years < 0 then
        years := 0
    end if
    put "Welcome to the *Y R We Here* Medieval Catholic Calculator"
    put "Please select an option from the menu:"
    put ""
    put "(Current years in purgatory : ", years, ")"
    put ""
    put "1 - Achieve Sainthood"
    put "2 - Donate money / pay for indulgence"
    put "3 - Record Good Deed"
    put "4 - Record minor sin (jaywalking, white lies)"
    put "5 - Record major sin (ask for someone on CompSci to do your assignments."
    put "6 - Record deadly sin (pride, slot, greed, etc.)"
    put "7 - Exit / Convert from Catholicism."
    put ""
    put "Your choice, oh lowly one :" ..
    get menu

    if menu = 7 then
        if years > 5000 then
            put "See you in Hell.  (From heaven of course)."
        else
            put "See you in the afterlife."
        end if
        exit
    elsif menu = 1 then
        put "Good for you.  Say hi to St. Pete for me."
        years := 0
    elsif menu = 2 then
        put "How much money are you donating?" ..
        get indulgence
        put "God says, \"I see your ", indulgence, " dollars, and I smite down "
        indulgence := indulgence / 100000 * Rand.Int (80, 120)
        put indulgence, " years of purgatory."
        years := years - indulgence
    elsif menu = 3 then
        put "That's not as nice as a big beefy indulgence... but it'll save"
        put "you a bit of time in limbo."
        years := years - 1
    elsif menu = 4 or menu = 5 or menu = 6 then
        put "You wicked, wicked monkey.  I hope you can afford to pay for that."
        years := years + (menu / 6) * 5
    else
        put "How does a year in purgy sound for not picking a proper option?"
        years := years + 1
    end if
    delay (2500)
end loop



-----------------------------------

Dan

Tue Nov 29, 2005 2:00 pm



-----------------------------------

I love it =p

Epsalty how you have to buy your way out of hell.


-----------------------------------

ZeroPaladn

Tue Nov 29, 2005 2:33 pm



-----------------------------------

SWEET! im in hell for 3000 years! :roll:


-----------------------------------

wtd

Tue Nov 29, 2005 8:02 pm



-----------------------------------

Ruby port.  ;)

years = 100

loop do
   years = 0 if years < 0
   puts