Foobird
Foobird
- Subject: Foobird
- From: "Bob.Kalbaugh" <email@hidden>
- Date: Mon, 10 Sep 2001 00:25:40 -0500
My apologies in advance.
It's a spin on a very bad, old joke. Some of you may be familiar with it.
-- Begin script Foobird
property foo_bird : "strange and mysterious bird "
property average_user : "Bob" --replace with your name :-)
set foobird to attack(average_user)
moral_of_story({average_user, foobird})
-- the handlers
to attack(the_moron)
set foobird to poop_in_ear(the_moron)
return foobird
end attack
on poop_in_ear(the_moron)
set r to return & return
set hey_moron to "Hey " & the_moron & "..."
set button_list to {"Leave it", "Wipe it"}
set the_question to display dialog hey_moron & r & ,
"a " & foo_bird & "has just pooped in your ear." & r & ,
"Do you wipe it out, or leave it in, " & ,
"" buttons button_list with icon note
if button returned of the_question is ,
"Leave it" then return "Alive with shame"
if button returned of the_question is ,
"Wipe it" then return "Dead, in vain"
end poop_in_ear
on moral_of_story({average_user, foobird})
display dialog the_story({average_user, foobird}) & ,
"" buttons {"Groan"} default button 1 with icon note
end moral_of_story
on the_story({average_user, foobird})
return "Well " & average_user & ", Legend has it that " & ,
"if a strange and mysterious foobird craps in your " & ,
"ear (be careful how you say that) and you wipe it out, " & ,
"you'll die." & return & return & "Your status: " & foobird & ,
return & return & "Moral: " & the_moral()
end the_story
on the_moral()
return "\"If the foo shits... wear it.\""
end the_moral
--end script
--
bob.kalbaugh - wishing there was an in-n-out in Pittsburgh.
(we have 3The Dirty O92)