COWbrowse

You are looking at a command called deploy

depoly {object}

This is a variation on the use command so you can deploy a parachute or some other object.

^{suggested by find: [suinoukon]}

scripting notes
Sends out the trigger word deploy

eg:


if target of deploy then dosomething;
##dosomething:
print "[$actor] makes a rumbling noise";

Created by wolis, last updated 11 Dec 2008

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:
say 'deploy',"[$actor] deploys [$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] deploys [$target] $rel [$second]";

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

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