COWbrowse

You are looking at a command called use

use {object}
use {object} on|with {object}

use an object.. it may react.. it may not.
eg use the hammer

Or you can use on object on or with another:
use the hammer on the nail

If iether object is scrited to react to this, then it will, otherwise it is just a visual thing like:

read the command called talk
read the command called pat
read the command called throw
read the command called fix
read the command called switch

Scripting example

if target of use then someoneusedme;
##someoneusedme:
print "[$actor] blinks as [$init_obj] uses it";

if second of use then iwassecond;
##iwassecond:
print "[$actor] was repaired by [$init_obj] uses [$target] on it";

Created by wolis, last updated 03 Apr 2009

Code

get $target,$rel,$second in $loc;
if $second > 0 then usewith else chkone;

##chkone:
get $target in $loc;
if $target > 0 then checkdiff else fail;
##checkdiff:
if $target's material like _difficult_ then checkdiff2 else doit;
##checkdiff2:
include 69104;
$dobject = $target;
runsub difficultcheck;
if $success > 0 then doit;

##doit:
clear $actor,all;
set $actor's host to $target;
set $actor's hosthow to 'beside';
say 'use',"[$actor] uses [$target]";
rem look $loc;

##usewith:runsub isitme;
if $target's material like _difficult_ then checkdiffwith2 else usewith2;
##checkdiffwith2:
include 69104;
$dobject = $target;
runsub difficultcheck;
if $success > 0 then usewith2;

##usewith2:
if $second's material like _difficult_ then checkdiffwith3 else usewith3;
##checkdiffwith3:
include 69104;
$dobject = $second;
runsub difficultcheck;
if $success > 0 then usewith3;

##usewith3:
say 'use',"[$init_obj] uses [$target] $rel [$second]";

##fail:
var $click_cmd to 'use';
var $desc_intro to 'Click on the object you want to use:

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