tithe.c

Go to the documentation of this file.

#if defined(macintosh)
#include <types.h>
#include <time.h>
#else
#include <sys/types.h>
#include <sys/time.h>
#endif
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include "merc.h"
#include "interp.h"
#include "recycle.h"
#include "tables.h"
#include "lookup.h"

/* This command is coded around my person kingdom system, and may need to be adjusted 
 * accordingly to fit with DSL if it is accepted. I will try to make as many comments
 * as possible to help with the converting process. If any questions arise, do feel 
 * free to ask. */

/* Things of interests:
 *
 * tithe_account should be a type int.
 * tithe should be a type float, but when saving, it should be saved as an integer, 
 *   but and casted as such. When loaded, it should be loaded as an integer but 
 *   casted to a float (kingdom_data[king].tithe = (float)fread_number(fp);
 *
 * check_tithe should be called in all places where the player will be receiving
 * a cash prize, except in player-to-player cash giving. Where you place 
 * check_tithe, you should remove the ch->gold += and ch->silver+= code since
 * check_tithe will do that all for you.
 * 
 */

void do_tithe (CHAR_DATA *ch, char *argument)
{
    char buf[MAX_STRING_LENGTH];
    
    if (ch->king == 0 && !IS_IMMORTAL(ch))
    {
        send_to_char("Huh?\n\r",ch);
        return;
    }

    if (!IS_SET(ch->kking, KING_LEADER) && !IS_IMMORTAL(ch))
    {
        send_to_char("You must be a kingdomer leader to set the tithe status of your kingdom.\n\r",ch);
        return;
    }

    /* kingdom_data is the structures that I have for my kingdom system which are loaded and saved to
     * disk when needed. They are not hardcoded. I have simply added a 'int tithe' part to the struct
     * and updated my save_kingdom_data/load_kingdom_data code to load and save the tithe. */
    
    if (argument[0] == '\0')
    {
        
        send_to_char("Current tithe status: ",ch);
        if (kingdom_data[ch->king].tithe == 0)
            send_to_char("None.\n\r",ch);
        else
        {
            sprintf(buf, "%d percent.\n\r", (int)kingdom_data[ch->king].tithe);
            send_to_char(buf,ch);
        }
        
        return;
    }

    if (!is_number(argument))
    {
        send_to_char("Value must be numerical and must be between 0 and 15. No percent sign should be used.\n\r",ch);
        return;
    }

    if (atoi(argument) > 20 || atoi (argument) < 0)
    {
        send_to_char("Value must be between 0 and 15. No percent sign should be used.\n\r",ch);
        return;
    }

    if (atoi(argument) == 0)
        sprintf(buf, "You will no longer tithe your citizens.\n\r");
    else
        sprintf(buf, "You will now tithe your citizens at %d percent.\n\r", atoi(argument));

    send_to_char(buf,ch);
    kingdom_data[ch->king].tithe = atoi(argument);
    save_kingdom_data();
    return;
}

/* Here we'll check the gold drop and compute what needs to be done. */


void check_tithe (CHAR_DATA *ch, int silver,int gold)
{
    int to_keep;
    int tithe;
    int tithe_gold, tithe_silver;
    char buf[MAX_STRING_LENGTH];
        
    /* If you don't get 1 gold from your kill, then you are not tithed. */
    if ((silver <= 100 && gold <= 0) || kingdom_data[ch->king].tithe == 0)
    {
        ch->silver += silver;
        ch->gold += gold;
        return;
    }


    /* Calculate the tithe from both gold and silver. In my orginal plans, I had
     * it converting the gold to silver, then tithing from that..but that proved
     * to have more problems since when you kill something, you can get upwars to
     * over a thousand silver. So we'll thithe from both and get better, accurate
     * results. */
    tithe_silver = silver * (kingdom_data[ch->king].tithe / 100);
    tithe_gold = (gold * 100) * (kingdom_data[ch->king].tithe / 100);
    
    tithe = tithe_gold  + tithe_silver;
    
    /* tithe_account is the bank account that we'll put this in. Since DSL's accounts
     * deal only in eggs, this one will have to be differnt so it can deal in silver/
     * gold. TODO: Add code here to check the current account number, and convert to
     * eggs/blues. Or, you can just have it do it manually in the command to show 
     * how much has been tithed. */
    
    kingdom_data[ch->king].tithe_account += tithe;

    sprintf(buf, "Your tithe at %d percent was %d silver and %d gold.\n\r",(int)kingdom_data[ch->king].tithe, 
            tithe_silver + (tithe_gold % 100), tithe_gold / 100);
    send_to_char(buf,ch);
    
    /* Need to convert it back to usuable money so we can give it to the citizen. This
     * math is pretty accurate I believe and should give what is needed, no more, and no
     * less. */
    
    silver = silver - (tithe_silver + (tithe_gold % 100));
    gold = gold - (tithe_gold / 100);
    ch->silver += silver;
    ch->gold += gold;
    save_kingdom_data();
    
    return;
    
}

void kingdom_check_tithe (CHAR_DATA *ch, char *argument)
{
    char buf[MAX_STRING_LENGTH];
    int gold,silver; /*,blue, eggs*/ /* for you DSL folks to determine */
    long int total;
    
        
    
    if (ch->king == 0 && !IS_IMMORTAL(ch))
    {
        send_to_char("Huh?\n\r",ch);
        return;
    }
    
    if (!IS_SET(ch->kking, KING_LEADER) && !IS_IMMORTAL(ch))
    {
        send_to_char("Huh?\n\r",ch);
        return;
    }
    
    total = kingdom_data[ch->king].tithe_account;
    
    send_to_char("Current Tithe Account Status:\n\r",ch);
    send_to_char("-----------------------------\n\r",ch);
    send_to_char("In bank: ",ch);
    if (kingdom_data[ch->king].tithe_account <= 0)
        sprintf(buf, "Empty.\n\r");
    else
    {
        if (total > 100)
        {
            gold = total / 100;
            silver = total - (gold * 100);
            sprintf(buf, "%d {YGold{x, %d {WSilver{x\n\r", gold, silver);
        }
        else
            sprintf(buf, "%ld Silver.\n\r",total);
    }
    send_to_char(buf,ch);
    
}

void get_tithe (CHAR_DATA *ch, char *argument)
{
    char buf[MAX_STRING_LENGTH];
    int total;
    char arg[MAX_STRING_LENGTH];

    

    if (ch->king == 0 && !IS_IMMORTAL(ch))
    {
        send_to_char("Huh?\n\r",ch);
        return;
    }
    if (!IS_SET(ch->kking, KING_LEADER) && !IS_IMMORTAL(ch))
    {
        send_to_char("Huh?\n\r",ch);
        return;
    }
    
    argument = one_argument(argument,arg);
    
    if (arg[0] == '\0')
    {
        do_function(ch, &kingdom_check_tithe, "");
        return;
    }

    if (argument[0] == '\0')
    {
        send_to_char("Syntax: GetTithe <amount> <type> (type can be gold or silver)\n\r",ch);
        return;
    }

    if (!is_number(arg))
    {
        send_to_char("Syntax: GetTithe <amount> <type> (type can be gold or silver)\n\r",ch);
        return;
    }
    
    if (!str_prefix(argument, "gold"))
    {
        total = kingdom_data[ch->king].tithe_account;
        if ((atoi(arg) * 100) > total)
        {
            send_to_char("Insufficent funds.\n\r",ch);
            do_function(ch, &kingdom_check_tithe,"");
            return;
        }

        ch->gold += atoi(arg);
        kingdom_data[ch->king].tithe_account -= (atoi(arg) * 100);
        sprintf(buf, "%s gold has been deducted from your tithe account.\n\r", arg);
        send_to_char(buf,ch);
        return;
    }

    if (!str_prefix(argument, "silver"))
    {
        total = kingdom_data[ch->king].tithe_account;
        if (atoi(arg) > total)
        {
            send_to_char("Insufficent funds.\n\r",ch);
            do_function(ch,&kingdom_check_tithe,"");
            return;
        }

        ch->silver += atoi(arg);
        kingdom_data[ch->king].tithe_account -= atoi(arg);
        sprintf(buf, "%s silver has been deducted from your tithe account.\n\r",arg);
        send_to_char(buf,ch);
        return;
    }

    do_function(ch, &get_tithe, "");
    return;
}

---