Please Note the License for Naked Mud, which reads as follows:

     NakedMud is free to use for any purpose you would like to use it for, without 
     restriction from the creator, Geoff Hollis. By using it, or any pieces of the 
     code, you agree to absolve responsibility from the creator, Geoff Hollis, and 
     take full responsibility for anything NakedMud or pieces of the NakedMud code 
     may cause to happen.

     Since NakedMud was based on SocketMud by Brian Graversen, I ask that you follow
     Brian's requests as per giving credit to Erwin Andreasen for the snippets he
     supplied in SocketMud's code (see README). I also request you credit Brian for
     the work he put into SocketMud, and myself for the work I put into NakedMud.

     Geoff Hollis
     hollis@ualberta.ca
     http://www.ualberta.ca/~hollis/



These are my two early drafts for a money and banking system.  Hope to get stores and
quests to work in conjunction with these down the road.  I've taken the liberty of
including the changes I made to the src files below.  Feel free to use the code as
you like.  If you distribute it on a website, I would appreciate acknowledgement.
-Hera of Athens - The Mud   (http://athens.mudmagic.com)    11-11-05

in cmd_manip.c:
add:
  #include "money/money.h"
in COMMAND(cmd_drop) {
under   bool multiple = FALSE;
add:
    if(!strcasecmp(arg, "drachma") || !strcasecmp(arg, "drachmas"))
    {
      int char_cash;
      int cash_change;
      char_cash = (charGetMoney(ch));
      cash_change = (char_cash -1);
      OBJ_DATA *obj = newObj();
      objSetName (obj, "a gold coin");
      objSetKeywords (obj, "coin");
      objSetRdesc (obj, "A gold coin is laying here.");
      objSetMultiName (obj, "%d gold coins");
      objSetMultiRdesc (obj, "%d gold coins lie here in a pile.");
      objSetDesc (obj, "   This simple, gold slug bears no mark or seal.");
      send_to_char(ch, "You drop a gold coin.\r\n");
      obj_to_game(obj);
      obj_to_room(obj, charGetRoom(ch));
      charSetMoney(ch, cash_change);
    }else{
Make sure to add an extra } at the end of cmd_drop

in handler.c
change void do_get to:
  void do_get(CHAR_DATA *ch, OBJ_DATA *obj, OBJ_DATA *container) {
    if(bitIsOneSet(objGetBits(obj), "notake"))
      send_to_char(ch, "You cannot take %s.\r\n", objGetName(obj));
    else if(container) {
      send_to_char(ch, "You get %s from %s.\r\n", 
	  	 objGetName(obj), objGetName(container));
      message(ch, NULL, obj, container, TRUE, TO_ROOM,
	      "$n gets $o from $O.");
      obj_from_obj(obj);
      obj_to_char(obj, ch);
    }else if(objGetKeywords(obj), "coin"){
      do_get_money(ch);
      extract_obj(obj);
    }else {
      send_to_char(ch, "You get %s.\r\n", objGetName(obj));
      message(ch, NULL, obj, NULL, TRUE, TO_ROOM,
	      "$n gets $o.");
      obj_from_room(obj);
      obj_to_char(obj, ch);
      hookRun("get", ch, obj, NULL);
    }
  }