COWbrowse

You are looking at a tiger

This friendly tiger is helping the postman deliver letters

Remember to create a letter do this:

create a note for wolis
edit it
post it

You can create any kind of object for someone eg create an old matchbox for josh

Created by kayla, last updated 04 Jan 2012

Code

##wakes:runsub checkplayer;
##wish:runsub checkplayer;
##checksmail:runsub checkplayer;

##checkplayer:
if $init_obj's extra like "guest" then aguest else checklocation;

##aguest:
say 'msg',"[$actor] ignores [$init_obj] who is a guest";

##checklocation:
var $player to $init_obj;
var $oname to $player's name;
var $oloc to $player's loc;
if $oloc > 0 then scanroom else end;

##scanroom:
foreach in $loc do isonehere;

##isonehere:
if $for_extra like $oname then delivernow else end;

##delivernow:
msg $oloc,$actor,0,0,'say',"[$actor] delivers [$for_id] for [$player] while the postman has a holiday";
set $for_id's loc to $oloc; rem move the object to the player;
clear $for_id,all;
msg $oloc,$actor,0,0,'force',"force:look $oloc"; rem show eveveryone here;