Congratulations! After five years, I'm still going "wow!" Have fun.

while ($alive) {
 wake;
 look($beside_me);
 $happiness++;
 OccupyDay;
 sleep (18000 + rand(18000));
}
die;
[download]