COWbrowse

You are looking at a command called give

give {object} to {object}
Give an object you are carrying to an object in your current location.
eg: give the apple to the teacher

or

give {quantity} pennies to {object}
Give some or all of your pennies to an object in your current location.
eg: give 1000 pennies to the police officer

Use get to carry something and use inv to see what you are carrying.

Scripting notes
Sample for money transfers:


if second of givesmoney then thank;

##thank:
if $amount < 100 then small else big;

##small:
print "[$actor] smiles and thanks [$init_obj].";

##big:
print "[$actor] dances about the room, whoops and hollars, then grabs [$init_obj]'s hand and shakes it excitedly, 'Thank you so very much!'";

Created by wolis, last updated 14 Dec 2008

Code

get $text,$rel,$second in $loc;
if $text like pennies then givemoney else tryonepenny;

##tryonepenny:
if $text like penny then givemoney else trytarget;

##givemoney:
if $second > 0 then checkfund else fail2;

##checkfund:
$amount = $text;
swap $amount so ' pennies' is '';
swap $amount so ' penny' is '';
if $amount > 0 then checkfund2 else itsnotpositive;
##checkfund2:
if $actor's worth < $amount then insufficient else fundit;
##fundit:
$worth = $actor's worth;
take $amount from $worth;
set $actor's worth to $worth;
$worth = $second's worth;
add $amount to $worth;
set $second's worth to $worth;
$target = $second;
say 'givesmoney',"[$actor] gives $text to [$second].";

##itsnotpositive:
say 'givefailed',"[$actor] considers giving $text to [$second], but that's silly."

##insufficient:
say 'givefailed',"[$actor] wants to give $text to [$second] but is too poor."

##trytarget:
get $target,$rel,$second in $loc,$loc;
if $target > 0 then trysecond else tryinv;

##tryinv:
get $target,$rel,$second in $actor,$loc;
if $target > 0 then trysecond else fail1;

##trysecond:
if $second > 0 then chklock else fail2;

##chklock:
if $pw like $target's pwd then continue else itslocked;

##continue:
set $target's loc to $second;
unhost $target;
clear $target,all;
set $target's pose to 'hidden';
say 'gives',"[$actor] gives [$target] to [$second]";
rem look $loc;
msg $loc,$actor,0,0,'force',"force:look";
$target = $second; rem redirect target;

##fail1:
var $click_cmd to 'give';
var $click_mid to 'to zzzzz';
var $desc_intro to 'Click on the object you want to give to someone:

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

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

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

##itslocked:
say 'givefailed',"[$actor] could not give [$target] to [$second] because it's locked";