src/b1-army-person.cpp

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
/*
 * frpuniverse
 * Copyright (C) Peter L. Berghold 2008 <Peter@Berghold.net>
 * 
 * frpuniverse is free software.
 * 
 * You may redistribute it and/or modify it under the terms of the
 * GNU General Public License, as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 * 
 * frpuniverse is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with frpuniverse.  If not, write to:
 *      The Free Software Foundation, Inc.,
 *      51 Franklin Street, Fifth Floor
 *      Boston, MA  02110-1301, USA.
 */

#include "b1-army-person.hpp"
#include "dice.hpp"
#include "skill-obj.hpp"
#include "stdio.h"

b1ArmyPerson::b1ArmyPerson() : book1Person() {
        this->setService("Army");
        this->enlist();
}

void b1ArmyPerson::enlist(){
        int dm=0;
        int skill_rolls=0;
        
        if ( this->getDexterity() > 5) 
                dm = 1; 
        if ( this->getEndurance() > 4 ) 
                dm = dm + 2;
        if ( (d2d6()+dm) > 4 ) {
                this->setAccepted(1);
                this->addSkill(RIFLE,1);
        } else {
                this->setAccepted(0);
                return ;
        }
        this->setTerms(1);
        while(1){ // while 
                if ( this->getTerms() == 1 ) { // if
                        skill_rolls=2;
                } else {
                        skill_rolls=1;
                } //end-if
                
                // Determine Survival
                //
                dm=0;
                if ( this->getEducation() > 5) 
                        dm = 2;
                if ( (d2d6()+dm) > 4 ) {
                        // this->setTerms(this->getTerms()+1);
                        this->setAge( this->getAge()+4);
                } else {
                        this->setAlive(0);
                        return;
                }
                
                // Check to see if commissioned either already or now.
                // if already commissioned check for promotion.
                
                if ( this->getCommissioned() == 1 ) {
                        dm = ( this->getEducation() > 6 ? 1:0);
                        if ( (d2d6()+dm) > 5 ) {
                                this->setRank(this->getRank()+1);  // promotion of an officer.
                                skill_rolls++;
                        }
                } else {
                        dm = ( this->getEndurance() > 6 ? 1 : 0 ) ;
                        // Roll to see if they get commissioned. 
                        if ( (d2d6()+dm)>5 ){
                                this->setCommissioned(1);
                                this->setRank(1);
                                this->addSkill(SUBMACHINEGUN,1);
                                
                                dm = ( this->getEducation() > 6 ? 1:0);
                                skill_rolls++;
                        
                                if ( (d2d6()+dm) > 7 ) {
                                        this->setRank(this->getRank()+1);  // promotion of an officer. 
                                        skill_rolls++;
                                }
                        }
                }
                
                this->skillTables(skill_rolls);
                
                // I've imposed my own DMS for sanity sake since I don't want people
                // managing to be in for 60 terms like some trial runs had. 
                dm=0;
                if ( this->getTerms() > 5 ) {
                        dm = this->getTerms() - 5; 
                }
                if ( this->getAge() > 50 ) {
                        dm = dm + (this->getAge()/10);
                }
                int re_enlisted=0;
                
                if ( (d2d6() - dm) > 5 ) {
                        this->setTerms(this->getTerms()+1);
                        re_enlisted=1;
                }
                        
                // A couple of sanity checks:
                if ( this->getRank() > 6) this->setRank(6);
                if ( re_enlisted != 1 ) {
                        
                        this->musterOut();
                        return;
                }
                        
        }
}

void b1ArmyPerson::skillTables(int nrolls){
        // There are 4 different skill tables to deal with here...
        // 3 of which are in play when education < 8 and all 4 are 
        // in play for education >= 8 
        

        int roll;
        for(roll=1;roll<=nrolls;roll++){
                if ( this->getEducation() < 8 ) {
                        switch(d1d6()){
                                case 1:
                                case 2:
                                        this->skillTable1();
                                        break;
                                case 3:
                                case 4:
                                        this->skillTable2();
                                        break;
                                case 5:
                                case 6:
                                        this->skillTable3();
                                        break;
                        };
                } else {
                        switch(d2d6()){
                                case 1:
                                        this->skillTable1();
                                        break;
                                case 2:
                                case 3:
                                        this->skillTable2();
                                        break;
                                case 4: 
                                case 5:
                                        this->skillTable3();
                                        break;
                                case 6:
                                        this->skillTable4();
                                        break;
                        };
                        
                }
                
        }
}

void b1ArmyPerson::skillTable1(){
        switch(d1d6()){
                case 1:
                        this->incrementStrength(1);
                        break;
                case 2:
                        this->incrementDexterity(1);
                        break;
                case 3:
                        this->incrementEndurance(1);
                        break;
                case 4:
                        this->addSkill(GAMBLING,1);
                        break;
                case 5:
                        this->incrementEducation(1);
                        break;
                case 6:
                        this->addSkill(BRAWLING,1);
                        break;
                
                
        };
        
}

void b1ArmyPerson::skillTable2(){
        switch(d1d6()){
                case 1:
                        this->addSkill(VEHICLE,1);
                        break;
                case 2:
                        this->addSkill(AIR_RAFT,1);
                        break;
                case 3:
                        this->addSkill(GUN_COMBAT,1);
                        break;
                case 4:
                        this->addSkill(FORWARD_OBSERVER,1);
                        break;
                case 5:
                        this->addSkill(BLADE_COMBAT,1);
                        break;
                case 6:
                        this->addSkill(GUN_COMBAT,1);
                        break;
        }
        
}

void b1ArmyPerson::skillTable3(){
        switch(d1d6()){
                case 1:
                        this->addSkill(VEHICLE,1);
                        break;
                case 2:
                        this->addSkill(MECHANICAL,1);
                        break;
                case 3:
                        this->addSkill(ELECTRONICS,1);
                        break;
                case 4:
                        this->addSkill(TACTICS,1);
                        break;
                case 5:
                        this->addSkill(BLADE_COMBAT,1);
                        break;
                case 6:
                        this->addSkill(GUN_COMBAT,1);
                        break;
        };
        
}

void b1ArmyPerson::skillTable4(){
        switch(d1d6()){
                case 1:
                        this->addSkill(MEDICAL,1);
                        break;
                case 2:
                case 3:
                        this->addSkill(TACTICS,1);
                        break;
                case 4:
                        this->addSkill(COMPUTER,1);
                        break;
                case 5:
                        this->addSkill(LEADER,1);
                        break;
                case 6:
                        this->addSkill(ADMIN,1);
                        break;
                
        };
}

static int cashRolls=0;
static int materialRolls=0;

void b1ArmyPerson::musterOut(){
        int ix;
#ifdef DEBUG_ON
        FILE* diaglog = fopen("diaglog.log","a+");
        
        fprintf(diaglog,"b1Army::musterOut() \n");
#endif
        
        
        
        if ( this->getTerms() > 3 ) {
                cashRolls=3;
        } else { 
                cashRolls = randxInRange(1,this->getTerms());
        }
        materialRolls = this->getTerms() - cashRolls;
#ifdef DEBUG_ON
        fprintf(diaglog,"%d cash rolls, %d material rolls\n",cashRolls,materialRolls);
        
        fclose(diaglog);
#endif

        for(ix=1;ix<=cashRolls;ix++)
                this->cashTable();
        for(ix=1;ix<=materialRolls;ix++)
                this->materialTable();
        
}

void b1ArmyPerson::cashTable(){
        int dm = ( this->getRank() > 4 ? 1 : 0 );
        double amount;
        
        switch(d1d6()+dm){
                case 1:
                        amount=1000;
                        break;
                case 2:
                        
                case 3:
                        amount=5000;
                        break;
                case 4:
                        amount=10000;
                        break;
                case 5:
                        amount=20000;
                        break;
                
                default:
                        amount=50000;
                        break;
        }
        
        this->setCash(this->getCash()+amount);
}



void b1ArmyPerson::materialTable(){
        int dm = ( this->getRank() > 4 ? 1 : 0 ) + d1d6();
#ifdef DEBUG_ON
        FILE* diaglog = fopen("diaglog.log","a+");
        
        fprintf(diaglog,"b1Army::materialTable() -- Dice roll %d \n",dm);
        
        fclose(diaglog);
#endif
        
        switch(dm){
                case 1:
                        this->addMaterialBenefit(new mbLowPassage());
                        break;
                case 2:
                        this->incrementIntelligence(1);
                        break;
                case 3:
                        this->incrementEducation(2);
                        break;
                case 4:
                        this->addMaterialBenefit(new mbGun());
                        break;
                case 5:
                        this->addMaterialBenefit(new mbHighPassage());
                        break;
                case 6:
                        this->addMaterialBenefit(new mbHighPassage());
                        break;
                default:
                        this->incrementSocialStanding(2);
                        break;
        };
}

---