COWbrowse

You are looking at an explorator

It's a beautiful little stone. Immediatly you see that it's quite special, but you are not able to say why. You only understand that this gem is very cold and that it will stay cold even if you try to warm it in your hands. May be the old man in the booth can give you explanation.

Created by xiii, last updated 24 Dec 2006

Code

##xtickloc:runsub whattodo;
##whattodo:
runsub checkloc;

##checkloc:
var $whereami to $actor's loc;
var $sortofplace to $whereami's class;
if $sortofplace eq player then movelocsloc else finished;

##movelocsloc:
var $msg to (You have a cold feeling...,You have got an itch now.,You see everything green.,Could be worse but you feel like having ants in your pants.,Run after youngness... or age. You may catch it...);
find $whereami's loc,random doorway;
var $dest to $found_id;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
clear $whereami,all;
msg $tloc,$actor,$whereami,$whereami,'leaves',"[$whereami] suddenly leaves via [$found_id]";
set $whereami's loc to $tloc;
msg $tloc,$actor,$whereami,$whereami,'arrives',"$msg

suddenly you rush to [$tloc].";
msg $tloc,$actor,$whereami,$whereami,'force',"force:look";

##finished: