COWbrowse

You are looking at a material called hopper

Causes the object to hop on random objects in the room
At some random stage will hop out the room vis a raindom exit

Created by wolis, last updated 09 Mar 2008

Code

##tickloc: runsub hopit;
if reacting to wish then hopit;

##hopit: runsub bouncenow or roamme/3;

##bouncenow:
find $loc, random not me;
$how = (rolls,bounces,hops,flies,falls);
$pose = (under,behind,on top of,over,beside);
print "[$actor] $how $pose [$found_id]";

##roamme:
call "roam";