/* /lib/pile.c
* from the Dead Souls Object Library
* basically a pile of precious coinses
* created by Descartes of Borg 951029
* Version: @(#) pile.c 1.2@(#)
* Last modified: 96/11/12
*/
#include <lib.h>
inherit LIB_ITEM;
string PileType = 0;
int PileAmount = 0;
static void create(){
string *saveds;
item::create();
SetNoCondition(1);
saveds = item::GetSave();
saveds += ({ "PileType", "PileAmount" });
AddSave( saveds );
SetKeyName("pile");
}
string array GetId(){
string array id;
string tender = "coins";
if(PileType == "dollars") tender = "bills";
id = item::GetId();
if( PileType ){
id += ({ PileType, PileAmount + " " + PileType, "pile of "+PileType });
}
return ({ id..., tender, "money", "pile", "pile of "+ PileAmount + " " + PileType });
}
int GetMass(){
return currency_mass(PileAmount, PileType);
}
void SetPile(string str, int amt){
PileType = str;
PileAmount = amt;
if(!PileAmount || PileAmount < 1 ){
SetLong("a pile of money");
call_out( (: eventDestruct :), 1);
}
else SetLong("It is a pile of " + PileAmount + " " + PileType + ".");
parse_refresh();
}
void SetCurrency(string str, int amt){
SetPile(str, amt);
}
string GetPileType(){ return PileType; }
int GetPileAmount(){ return PileAmount; }
string GetShort(){
string str = item::GetShort();
if(!PileAmount || PileAmount < 1 ){
call_out( (: eventDestruct :), 1);
return "a pile of money";
}
if( str ){
return str;
}
else {
return "a pile of " + PileAmount + " " + PileType;
}
}
mixed eventGetMoney(object who, int amount, string curr){
if( who->AddCurrency(curr, amount) == -1 ){
who->eventPrint("You had a problem getting the money.");
return 1;
}
send_messages("get", "$agent_name $agent_verb " + amount + " " +
curr + " from " + GetShort() + ".", who, 0, environment(who));
PileAmount -= amount;
if( PileAmount < 1 ){
call_out((: Destruct :), 0);
return 1;
}
SetPile(PileType, PileAmount); /* This refreshes the parser */
return 1;
}
int eventMove(mixed dest){
int x;
x = item::eventMove(dest);
if( environment() && !living(environment()) ){
return x;
}
if(environment() && living(environment())){
environment()->AddCurrency(PileType, PileAmount);
environment()->AddCarriedMass(-this_object()->GetMass());
SetShort("a pile of " + PileAmount + " " + PileType);
PileAmount = 0;
call_out((: Destruct :), 0);
return x;
}
}
mixed direct_get_wrd_wrd_out_of_obj(string num, string curr){
int amt;
if( environment() != environment(this_player()) ){
return "#You cannot reach the pile!";
}
if( num[0] < '0' || num[0] > '9' ){
return 0;
}
if( (amt = to_int(num)) < 1 ){
return "That's a totally bogus amount.";
}
if( curr != PileType ){
return "#The pile has no " + curr + " in it, only " + PileType + ".";
}
if( amt > PileAmount ){
return "#There is not that much in the pile.";
}
if( !this_player()->CanCarry(currency_mass(amt, curr)) ){
return "It is too heavy for you!";
}
return 1;
}
mixed direct_get_wrd_wrd_from_obj(string amt, string curr){
return direct_get_wrd_wrd_out_of_obj(amt, curr);
}
void init(){
::init();
if(!PileAmount || PileAmount < 1 ){
SetLong("some money");
call_out( (: eventDestruct :), 1);
}
}
