/* -*- LPC -*- */
/*
* $Locker: $
* $Id: money.c,v 1.5 2002/04/08 00:52:32 presto Exp $
* $Log: money.c,v $
* Revision 1.5 2002/04/08 00:52:32 presto
* Added call to do_burden_call() in adjust_money()
*
* Revision 1.4 2002/03/18 00:37:44 presto
* Forcibly unlocked by ceres
*
* Revision 1.3 1998/07/25 20:37:35 sin
* Hopefully fewer 'coins' will show up now. I changed adjust_money()
*
* Revision 1.2 1998/05/13 12:26:04 pinkfish
* Add in documentation.
*
* Revision 1.1 1998/01/06 04:29:08 ceres
* Initial revision
*
*/
/**
* This file has all the functions to deal with living objects and
* money.
* @author Pinkfish
* @see /obj/money.c
* @see /obj/handlers/money_handler.c
*/
#include "money.h"
/**
* This method returns the money object for the player. If the force
* flag is set then the object will be created if it does not
* exist.
* @param force make the money object exist
*/
object query_money_object(int force) {
object money;
money = present( MONEY_ALIAS, this_object() );
if (!money && force) {
// money = clone_object( MONEY_OBJECT );
money = MONEY_VAULT->get_money_ob();
money->move( this_object() );
}
return money;
} /* query_money_object() */
/**
* This method adjusts the amount of money the player has.
* It redirects the call off the the money object and calls the
* adjust_money() function on it. The amount can be a money
* array, in which case it will adjust the size by the members
* of the money array.
* <p>If the money object doesn't exist yet, this function
* might create a new money object. The exception is that if
* the amount argument is 0, nothing happens.
* @see /obj/money->adjust_money()
* @param amount the amount to adjust the money by
* @param type the type of coin to adjust
*/
varargs void adjust_money( mixed amount, string type ) {
if (!amount) return;
query_money_object( 1 )->adjust_money( amount, type );
this_object()->do_burden_call();
} /* adjust_money() */
/**
* This method returns the money array associated with the money on
* the player object.
* @return the money array on the player object
* @see set_money_array()
*/
mixed *query_money_array() {
return query_money_object(1)->query_money_array();
} /* query_money_array() */
/**
* This method sets the money array associated with the player. THis
* will overwrite any current money on the player.
* @param new_array the new money array for the player
* @see query_money_array()
*/
void set_money_array( mixed *new_array ) {
query_money_object(1)->set_money_array( new_array );
} /* set_money_array() */
/**
* This method returns the value of the money as an integer. This is
* an absolute value of their worth.
* @return an integer value of their money
* @see query_value_in()
*/
int query_value() {
object money;
money = query_money_object(0);
if ( ! money ) {
return 0;
}
return money->query_value();
} /* query_value() */
/**
* This method returns the value of the money as in integer in the specified
* place.
* @param where the place in which to determine the money from
* @return the integer value of money
* @see query_value()
* @see query_money()
*/
int query_value_in( string where ) {
object money;
money = query_money_object(0);
if ( ! money ) {
return 0;
}
return (int)money->query_value_in( where );
} /* query_value_in() */
/**
* This method returns all of the money of a certain type on the
* money object.
* @param type the type of money to return
* @return the number of those money items
* @see query_value()
* @see query_value_in()
*/
int query_money( string type ) {
object money;
money = query_money_object(0);
if ( ! money ) {
return 0;
}
return (int)money->query_money( type );
} /* query_money() */
/**
* This method makes the player make a payment. This is used for
* shops and things.
* @param m_array the money to pay
* @param where the money area to make the payment in
* @see /obj/handlers/money_handler->make_payment()
*/
varargs void pay_money( mixed m_array, string where ) {
int i, j;
object money;
mixed *p_array;
money = query_money_object(0);
if ( !money ) {
return;
}
for ( i = 0; i < sizeof( m_array ); i += 2 ) {
p_array = (mixed *)MONEY_HAND->make_payment( m_array[ i ],
m_array[ i + 1 ], money, where );
if ( !pointerp( p_array ) ) {
continue;
}
if ( sizeof( p_array[ 1 ] ) ) {
money->adjust_money( p_array[ 1 ] );
}
for ( j = 0; j < sizeof( p_array[ 0 ] ); j += 2 ) {
money->adjust_money( - p_array[ 0 ][ j + 1 ], p_array[ 0 ][ j ] );
}
}
} /* pay_money() */
