foundationI_fluffos_v1/
foundationI_fluffos_v1/bin/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/ChangeLog.old/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/Win32/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/compat/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/compat/simuls/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/include/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/clone/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/command/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/data/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/etc/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/include/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/inherit/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/inherit/master/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/log/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/single/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/single/tests/compiler/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/single/tests/efuns/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/single/tests/operators/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/testsuite/u/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/tmp/
foundationI_fluffos_v1/fluffos-2.9-ds2.12/windows/
foundationI_fluffos_v1/lib/
foundationI_fluffos_v1/lib/cmds/ambassador/
foundationI_fluffos_v1/lib/cmds/database/
foundationI_fluffos_v1/lib/cmds/soul/
foundationI_fluffos_v1/lib/daemon/include/
foundationI_fluffos_v1/lib/daemon/save/
foundationI_fluffos_v1/lib/daemon/services/
foundationI_fluffos_v1/lib/daemon/soul/
foundationI_fluffos_v1/lib/doc/build/
foundationI_fluffos_v1/lib/doc/build/room/
foundationI_fluffos_v1/lib/doc/build/virtual/
foundationI_fluffos_v1/lib/doc/driver/
foundationI_fluffos_v1/lib/doc/efun/
foundationI_fluffos_v1/lib/doc/etc/
foundationI_fluffos_v1/lib/doc/help/creator/
foundationI_fluffos_v1/lib/doc/help/hm/
foundationI_fluffos_v1/lib/doc/help/user/
foundationI_fluffos_v1/lib/doc/lpc/basic/
foundationI_fluffos_v1/lib/doc/lpc/data_types/
foundationI_fluffos_v1/lib/doc/lpc/etc/
foundationI_fluffos_v1/lib/doc/lpc/intermediate/
foundationI_fluffos_v1/lib/doc/lpc/types/
foundationI_fluffos_v1/lib/doc/mudlib/
foundationI_fluffos_v1/lib/doc/mudlib/features/
foundationI_fluffos_v1/lib/domains/Examples/etc/
foundationI_fluffos_v1/lib/domains/Examples/room/
foundationI_fluffos_v1/lib/domains/Examples/virtual/
foundationI_fluffos_v1/lib/domains/Examples/virtual/exaA/
foundationI_fluffos_v1/lib/domains/Examples/virtual/exaB/
foundationI_fluffos_v1/lib/domains/Examples/weapon/
foundationI_fluffos_v1/lib/domains/Standard/
foundationI_fluffos_v1/lib/domains/Standard/pools/
foundationI_fluffos_v1/lib/domains/Standard/std/
foundationI_fluffos_v1/lib/domains/Standard/xtra/
foundationI_fluffos_v1/lib/include/
foundationI_fluffos_v1/lib/news/
foundationI_fluffos_v1/lib/secure/cfg/
foundationI_fluffos_v1/lib/secure/cmds/adm/
foundationI_fluffos_v1/lib/secure/cmds/ambassador/
foundationI_fluffos_v1/lib/secure/cmds/mortal/
foundationI_fluffos_v1/lib/secure/etc/
foundationI_fluffos_v1/lib/secure/etc/approval/
foundationI_fluffos_v1/lib/secure/etc/elections/
foundationI_fluffos_v1/lib/secure/etc/mudlib/
foundationI_fluffos_v1/lib/secure/etc/quests/
foundationI_fluffos_v1/lib/secure/save/daemon/
foundationI_fluffos_v1/lib/secure/save/postal/d/descartes/
foundationI_fluffos_v1/lib/secure/save/users/d/
foundationI_fluffos_v1/lib/secure/std/
foundationI_fluffos_v1/lib/std/obj/
foundationI_fluffos_v1/lib/std/room/
foundationI_fluffos_v1/lib/std/user/
foundationI_fluffos_v1/lib/std/virtual/
foundationI_fluffos_v1/old/
foundationI_fluffos_v1/win32/
//      _drop.c
//      Mostly the _drop.c from the TMI distribution mudlib
//      Originally written by Brian Leet
//      Adapted 12.13.91 by Sulam
//      Help added by Brian 1.28.92
//      Messages improved by Brian 2.5.92
//      Money handling added by Descartes of Borg Halloween 1992

#include "move.h"
#include <std.h>
#include <objects.h>

inherit DAEMON;

int help();

int
cmd_drop(string str) {
   object ob;
   int res, i;
   string tmp, type;
   int ammount;
   
   if (!str) {
      return help();
   }
   if(sscanf(str, "%d %s %s", ammount, type, tmp) != 3)
      if(sscanf(str, "%d %s", ammount, type) != 2) {
      if(str == "all"){
         
         object *inv;
         inv = all_inventory(this_player());
         if (sizeof(inv) == 0) {
            write("Nothing to drop!");
            return 1;
         }
         write("You drop your whole inventory on the ground.");
         for(i=0;i<sizeof(inv); i++ ){
            ob = present(inv[i], this_player());
	    tmp = (string)ob->query_short();
	    if(ob->drop()) continue;
            res = (int)ob->move(environment(this_player()));
            if (res == MOVE_OK) {
                 say(previous_object()->query_cap_name()+" drops "+tmp+".");
            }
         }
         return 1;
         
         }
      ob = present(str, this_player());
      if (!ob) {
         notify_fail("What " + str + "?\n");
         return 0;
         }
      if(ob->drop()) return 1;
      tmp = (string)ob->query_short();
      res = (int)ob->move(environment(this_player()));
      if (res == MOVE_OK) {
	say(this_player()->query_cap_name()+" drops "+tmp+".\n", this_player());
         write("You drop "+tmp+".");
         return 1;
         }
      if (res == MOVE_NOT_ALLOWED)
         notify_fail("You can't do that.\n");
      else if (res == MOVE_NO_ROOM)
         notify_fail("Not enough room.\n");
      return 0;
   }
   type = lower_case(type);
   if(ammount < 1) {
      notify_fail("You can only drop positive ammounts of money.\n");
      return 0;
   }
   if((int)this_player()->query_money(type) < 0) {
      notify_fail("That type of currency doesn't exist.\n");
      return 0;
   }
   if(this_player()->query_money(type) < ammount) {
      notify_fail("There is not that much "+type+" in your purse.\n");
      return 0;
   }
    if(ammount > 1000)
      log_file("money", this_player()->query_name()+" dropped "+ammount+" "+type+" ("+ctime(time())+")\n");
   ob = present("pile of coins", environment(this_player()));
   if(!ob) {
    error("Null object dropping (eg coins) not yet implemented.");
    //ob = new(OB_COINS);
   }
   ob->add_money(type, ammount);
   this_player()->add_money(type, -ammount);
   write("You drop "+ammount+" "+type+" pieces.");
   say(this_player()->query_cap_name()+" drops some "+type+".");
   ob->move(environment(this_player()));
   return 1;
}

int 
help() {
  write("Command: drop\nSyntax: drop <item | all>\n"+
        "This makes your character try to drop the specified\n"+
        "item.  If all is used then your character drops all\n"+
        "items carried.\n");
  return 1;
}
/* EOF */