COWbrowse

You are looking at a command called shake

shake {object}

Shake an object. If the object. If the object is on another, it will come off. it will also loose any find: [pose] it may have had.

shake the rattle
shake the tree

Scripting notes

This sends out the trigger word shake so you objects can react to this.

Sample reaction:


if target of shake then iwasshook;
##iwasshook:
print "[$actor] noticed that [$init_obj] shook it";

Created by wolis, last updated 18 Dec 2010

Code

get $target in $loc;
if $target > 0 then unhostit else fail;
##unhostit:
clear $target,all;
$how to (slowly,quickly,violently,rapidly);
say 'shake',"[$actor] $how shakes [$target]";
relook $loc;
rem look $loc;
rem msg $loc,$actor,0,0,'force',"force:look $loc";

runsub noisy/3;
##noisy:
msg 0,$actor,0,0,"act","You hear the should of shaking";
##fail:
var $click_cmd to 'shake';
var $desc_intro to 'Click on the object you want to shake:

';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";