if reacting to arrives then splash;
##splash:
print "[$init_obj] drops into [$actor], causing a large splash and sending ripples across [$loc].";
set $init_obj's pose to 'swimming';

##tickloc:
runsub ticked;

##ticked:
runsub effect/10;
##effect:
find $loc,random player;
$what = (slimy,scaly,rough,large);
$verb = (slide across,bump into,slip past,touch);
$obj = (foot,leg,knee,hand,back);
sayto $found_id,"You feel something $what $verb your $obj under [$actor]";