[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Omaha.pm] more source code humor



laugh...

j
 

-----Original Message-----
From: Sydney Goodwin 
Sent: Thursday, April 20, 2006 8:51 AM

Ok - can you add in a rule about what to do if Jay is not here...I was
rather amused that Jay has to get slapped twice and you only get one
punch.

-----Original Message-----
From: Sean Baker 
Sent: Wednesday, April 19, 2006 4:17 PM

#!/usr/bin/perl
use strict;

my $sean = new Person(type=>"Programmer");
my $tele = new Telephone;
my $sydney = new Person(type=>"GDD");
my $andria = new Person(type=>"GDD");
my $jay = new Person(type=>"Lord of Fire");

if ($sean->fix_problem) {
  $tele->call(extension=>512);
  $sean->speak("problem fixed");
  $andria->speak("You are so awesome");
  $sydney->set_happiness (1);
  $andria->set_happiness ($sydney->get_happiness);
  $jay->set_happiness  ($andria->get_happiness);
  $sean->set_happiness ($jay->get_happiness);
} else {
  $sydney->slap($jay);
  $andria->slap($jay);
  $jay->punch($sean);
  $sean->emote("pain");
  die $sean;
}
$sean->disconnect;
exit;

That only took 5 minutes btw....

Sean Baker