if target of touch then teleportthem;

##teleportthem:
$newloc = 87; # wolis;
print "[$init_obj] feels bored and wants to visit wolis";
sayto $init_obj,"[$init_obj] feels bored and wants to visit wolis";

relocate $init_obj to $newloc print "[$init_obj] vanishes" then "[$init_obj] magically appears";