COWbrowse

You are looking at a command called more

more {object}

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

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

If you then pull one fig or push a fig or push 1 fig or even get one fig you end up with a fig and a fig each worth 5 pennies.

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

read the command called less to find out about reducing the quantity of something.

Created by wolis, last updated 18 Dec 2010

Code

get $target in $loc;

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

##moreit:
var $qt to $target's qty;
add 1 to $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 increase [$target] because it's locked";

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

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