[OT] Poetry (was Re: Height/width limit on groups?)

[Klaus Major]

Hi Phil,

>> ...
>> if the dog 8 my homework then
>>    change my grade
>> end if
>
> Which kind of brings to mind those people who write poetry in the perl 
> programming language.
> One quick Google later and I found this fab example at 
> http://perlmonks.thepen.com/Perl%20Poetry.html :
>
> formline BY, $the_confessional;
> pack "IN", $the_box;
> bless $me, Father for @I_have_sinned;
> time - $last_confession >  20 * 365 * 24 * 60 * 60;
> my $father; $I, seek YOUR, $wisdom, $guidance and $support;
> $I, sin and $wonder if exists $god{"in heaven"}, each %day;
> $I, link "chains across the", exit; @the_orphanage;
> $I, pop @children's_balloons for $fun;
> $I, do { sleep $around };
> $I, push @nuns, $with_a_broom;
> $I, read MY_NEIGHBOR'S, $mail, 1 or 30, times, each %month;
> $I, import and exp$ort, $illegal_goods;
> $oh and local $police_are_looking for @me;
> cos $I, kill$ed, $my_mother_in_law;
> <FATHER>; tell ME_WHAT_SHOULD_I_DO;
> my $son;
> eval $your_situation and study $the_bible while $I, $the_police->();
> <FATHER>, $Ummm ... wait while $I, split;
> exit, $the_confessional;
> join "the", @circus;

LOL :-D

BTW, what the heck does this script actually do?
Nothing probably?

> So, anyone up for writing some Transcript poetry? :-)

OK, ok, i never can resist :-)
And somebody has to start anyway...

Here is my first try, cheap and quick...
(...like the drinks in my example...)

######################
local sparemoney

on havefunornot
   put "50 Euro" into sparemoney
   ## The Euro is very strong in the moment!
   ## Read: more booze for the money 8-)

   go "Twilight Bar"
   repeat until sparemoney = "0 Euro"
     getadrink("cheap")
     add 100 to alcoholpromille
   end repeat
   go "Home"
   get "AlkaSeltzer"
   find "Bed" ## ;-)
   repeat until alcoholpromille = 0
     get "sleep"
     subtract 100 from alcoholpromille
   end repeat
end havefunornot

on getadrink expensiveness
   switch expensiveness
   case "cheap" ##coke, spa, beer and stuff...
     subtract 2 from word 1 of sparemoney
     break
   case "moderate" ## cheap booze...
     subtract 5 from word 1 of sparemoney
     break
   case "expensive" ## quality booze ;-)
     subtract 10 from word 1 of sparemoney
     break
   case "too late" ## champaign and loose (wo-)men ;-)
     subtract 50 from word 1 of sparemoney
     ## Don't try this with the ridiculous 50 Euro...
     break
   end switch
end getadrink
#########################

Tested and works :-D

Please note the variations in "getadrink" ;-)


Regards

Klaus Major
klaus at major-k.de
www.major-k.de