COWbrowse

You are looking at a command called less

less {object}

Reduce the quantity of an object. This does not effect the value of the object.

If you create 2 figs worth 10 pennies then less fig or less figs you end up with a fig still worth 10 pennies.

If you reduce it even further it becomes 0 fig which is represented as 'the' fig. Quite useful if you want to create a sword of healing less sword.

Mind you you would have probably typed create the sword of healing in the first place.. but at least you now know how to convert an ordinary object into a special one.

read the book of counting to find out about cow and counting.

read the command called more to find out about increasing the quantity of something.

Created by wolis, last updated 24 Dec 2006

Code

get $target in $loc;

if $target > 0 then chklock else fail;
##chklock:
if $pw like $target's pwd then chkqty else itslocked;

##chkqty:
var $qt to $target's qty;
if $qt < 1 then noless else lessit;

##noless:
say 'msg',"[$actor] cant reduce [$target] any more";

##lessit:
take 1 from $qt;
set $target's qty to $qt;
say 'msg',"there are now $qt of [$target] thanks to [$actor]";
msg $loc,$actor,0,0,'force',"force:look $loc";

##itslocked:
say 'lessfailed',"[$actor] could not reduce [$target] because it's locked";

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

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