( charge.muf by Wog

 REASON FOR BEING -
   This program is meant to be used as a @lock to charge pennies
 for something.

 SECURITY MEASURES -
   The program will lockout the exit and do nothing if the prop
  ~charge_banned?:yes is set on the owner of the trigger

 SETUP -
   @lock action=<this proggie>
   @set action=_cost:<amount>
   @fail action=<not enough money message>
  
 POLICY -
   Always LEAVE NOTE OF THE CHARGE in @descs etc. Make it
  easily seen. Not doing so could result in being banned from
  using this program.

 "SECERT" PROPS:
    For wizzes, typing:
     @set me=~cheapwiz:I'm so cheap I'll cheat to get it for less!
    will not make this program charge you for anything. Not that
    you should do that, and hence the program prints a reminder
    of proper morals when this is in effect.

--- Change History ----------------------------------
v 1.0  Apr 10 2000 
    Initial Release
--- Distrubution Information ------------------------
Copyright {C} Charles "Wog" Reiss <car@cs.brown.edu>

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or {at your option} any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

For a copy of the GPL:
   a> see: http://www.gnu.org/copyleft/gpl.html
   b> write to: the Free Software Foundation, Inc., 
     59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
)
$def CHEAP_WIZ_PROP "~cheapwiz"
$def CHEAP_WIZ_SETTING "I'm so cheap I'll cheat to get it for less!"
$def BAN_PROP "~charge_banned?"
$def AMOUNT_PROP "_cost"

: getAmount ( -- i )
  trig AMOUNT_PROP getpropstr atoi
;

: main ( s -- i )
  "me" match me !
  trig owner BAN_PROP getpropstr .yes? if
    "** Trigger owner (" trig owner name strcat
     ") is banned from using charge.muf **" strcat .tell 0 exit
  then
  me @ CHEAP_WIZ_PROP getpropstr CHEAP_WIZ_SETTING strcmp not if
    me @ "~=| Y'know not paying for this is very immoral. |=~" notify
    me @ "~=( In ~cheapwiz mode. Clear the ~cheapwiz prop to disable. )=~" notify
    1 exit
  then
  me @ pennies getAmount - 
  0 < if
    0 exit
  then
  me @ getAmount -1 * addpennies
;