COWbrowse

You are looking at a command called poke

poke {object}
poke {object} with {object}

You can poke an object as you would push an object.

This is useful for getting one object off another eg:
put the cat on the chair
poke the cat

You can optionally use another object to poke the first eg:
poke the slime with the stick

read the command called push
read the command called prod

Created by wolis, last updated 02 Apr 2009

Code

get $target,$rel,$second in $loc;
if $second > 0 then pokewith else chkone;
##pokewith:
$with = "with [$second]";
runsub unhostit;
##chkone:
get $target in $loc;
if $target > 0 then unhostit else fail;
##unhostit:
clear $target,all;
say 'push',"[$actor] pokes [$target] $with";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";
runsub noisy/3;

##noisy:
msg 0,$actor,0,0,"act","You hear the a gentle thud";
##fail:
var $click_cmd to 'poke';
var $desc_intro to 'Click on the object you want to poke:

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