COWbrowse

You are looking at the command called put

put {object1} {relationship} {object2}
Puts the first object on, in, beside, under.. the second object. eg put the mouse on the cat. The relationship is not litteral so putting an object in another is not the same as the get command which puts objects you get inside you, or the into command.

Created by wolis, last updated 25 Nov 2009

Code

get $target,$rel,$second in $loc,$loc;
if $target > 0 then trysecond else fail1;
##trysecond:
if $second > 0 then continue else fail2;
##continue:
clear $target,xyz;
set $target's host to $second;
set $target's hosthow to "$rel";
set $target's pose to '';
say 'put',"[$actor] put [$target] $rel [$second]";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

##fail1:
var $click_cmd to 'put';
var $click_mid to 'on zzzzz';
var $desc_intro to 'Click on the object you want to put on/in something:

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

##fail2:
var $click_cmd to "put $target on ";
var $desc_intro to 'Click on the object you want to put it on/in:

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