COWbrowse

You are looking at a command called investigate

Just type 'search' and you will automatically begin the attempt to find some hidden goody (or baddy).
But you're not guaranteed to find anything, so it could take awhile to find something (if there is anything there).

Created by Chaotic Bob, last updated 03 Nov 2008

Code

find $loc,random not player not doorway;
if $found_id > 0 then findstuff else failedfind;
var $cnout to $actor's counter;

##findstuff:
say 'msg',"[$actor] says 'Let me search for something....'";
runsub isithiden;

##isithiden:
if $cnout > 5 then failedfind else isithiden2;

##isithiden2:
if $found_id's pose like "hidden" then chancy else fndagain;

##fndagain:
add 1 to $cnout;
find $loc,random not player not doorway;
if $found_id > 0 then isithiden else nostuff;

##chancy:
$isfound = random 9;
if $isfound > 5 then foundsome else failedfind;

##foundsome:
say 'found',"[$actor] found [$found_id]";
set $found_id's pose to "";
relook $loc;

##failedfind:
say 'failfind',"[$actor] did not find any hidden items";