if target of use then checkcash;

##checkcash:
var $cust to $init_obj;
var $monx to $cust's worth;
if $monx > 10 then dispense else nocando;

##dispense:
subtract 25 from $monx;
set $cust's worth to $monx;
print "[$cust] inserts 10 pennies into [$actor]";
var $sod to (rootbeer, pepsi, sprite, lemonade);
new $sod;
print "[$actor] dispenses [$new_id]";
set $new_id's material to "_soda_";
relook $loc;

##nocando:
print "[$cust] does not appear to have enough money";