@verb #7459:"_heartbeat" this none this rxdo #9878
@program #7459:"_heartbeat" this none this
if (this.state == "sleep" && time() - this.since > 3600 * (random(3) + 2))
  this.long_nap = 1
  this:changestate("awake")
elseif (this.state == "bask" && time() - this.since > 10 * 60)
  this:changestate("sleep")
else
  if (time() - this.last_nap > 3 * 3600 && !(this.state in {"bask"}) && !this:extra("purr"))
    "It's been three hours since my last nap, I'm not busy soaking up the sunshine, and it doesn't look like there's much more of interest for me.."
    "Let's find a place to nap."
    for x in ($list_utils:shuffle(this.fav_people))
      if (x.location in this.valid_rooms)
        this:travel_to(x.location, "nap_spot")
        break
      endif
    endfor
    if (!this.travelling)
      this:travel_to({this.location, $list_utils:shuffle(this.valid_rooms)[1]}[random(2)], "nap_spot")
    endif
  endif
endif
if (y = this:extra("purr"))
  if (time() - y[2] > 3 * 60)
    $hub:send({this}, "purr_die", 0)
  endif
endif
"Last modified by Lao-Tzu (#8084) on Thu Nov  8 10:54:42 2001 MST."
.