#include <lib.h>
inherit LIB_NPC;

static void create(){
    npc::create();
    SetKeyName("money tree");
    SetId(({"tree","money tree","arborus argentum"}));
    SetShort("a money tree");
    SetLong("This robust, 4-foot tall tree is the fabled arborus argentum, or money "+
      "tree. Its leaves are fresh, new dollar bills, and its seed-bearing "+
      "pods are full to bursting with coins of all kinds. It would be no "+
      "trouble at all to get <amount> <currency> from tree...looks like "+
      "you've hit the jackpot!");
    SetPacifist(1);
    SetCanBite(0);
    SetLevel(99);
    SetRace("tree");
    SetHealthPoints(99999);
    SetMaxHealthPoints(99999);
}
void init(){
    ::init();
    add_action("make_money","get");
}
int make_money(string str){
    int d1;
    string s1,s2;
    if(!str){ write("Get what?\n"); return 1; }
    if(sscanf(str,"%d %s from %s",d1,s1,s2) > 0){
        if(s1 !="electrum" && s1 != "platinum" &&
          s1 !="gold" && s1 !="cents" &&
          s1 !="dollars" && s1 !="copper" &&
          s1 !="silver"){
            write("That kind of money doesn't grow on trees!\n");
            return 1;
        }
        if(s2=="tree" || s2=="the tree" ||
          s2=="the money tree" || s2=="arborus argentum"){
            if(d1 > 1000){
                write("That is too much money to get from the tree at once.\n");
                return 1;
            }
            this_player()->AddCurrency(s1, d1);
            write("You get "+d1+" "+s1+" from the money tree.");
            say(this_player()->GetCapName()+" gets money from the money tree.");
            return 1;
        }
        return 0;
    }
}