Skylark_Female Class Reference

#include <skylarks_all.h>

Inheritance diagram for Skylark_Female:

Public Member Functions
	Skylark_Female (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
void	ReInit (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh) override
void	BeginStep (void) override
	BeingStep behaviour - must be implemented in descendent classes. More...
void	Step (void) override
	Step behaviour - must be implemented in descendent classes. More...
void	EndStep (void) override
	EndStep behaviour - must be implemented in descendent classes. More...
void	EstablishTerritory ()
int	Supply_NestTime () const
Skylark_Clutch *	SupplyMyClutch () const
int	Supply_BreedingAttempts () const
int	Supply_BreedingSuccess () const
void	ResetBreedingSuccess ()
void	OnSetMyClutch (Skylark_Clutch *p_C)
void	OnEggsHatch ()
void	OnClutchDeath ()
void	OnBroodDeath ()
void	OnBreedingSuccess ()
void	OnStopFeedingChicks ()
void	OnMateDying ()
void	OnMateHomeless ()
void	OnMaleNeverComesBack (const Skylark_Male *AMale)
void	OnBreedSuccess ()
void	SensibleCopy ()
Public Member Functions inherited from Skylark_Adult
	Skylark_Adult (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
	~Skylark_Adult () override
virtual void	CopyMyself (int a_sktype)
Public Member Functions inherited from Skylark_Base
	Skylark_Base (int x, int y, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	ReInit (int x, int y, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual double	On_FoodSupply (double)
void	AddStriglingMort (const int lifestage) const
int	WhatState () override
	Returns the objects current state number. More...
bool	InSquare (rectangle R) const
Public Member Functions inherited from TAnimal
	TAnimal (int x, int y, Landscape *L)
	The TAnimal constructor saving the x,y, location and the landscape pointer. More...
	TAnimal (int x, int y)
	The TAnimal constructor saving the x,y used if landscape is already set. More...
void	SetGuardMapIndex (int a_index_x, int a_index_y)
	Set the guard map index, this is used to avoid two animals operating in the same location when using multithread. More...
unsigned	SupplyFarmOwnerRef () const
	Get the current location farm ref if any. More...
AnimalPosition	SupplyPosition () const
	Returns the objects location and habitat type and veg type. More...
APoint	SupplyPoint () const
	Returns the objects location in ALMaSS coordinates. More...
int	SupplyPolygonRef () const
	Returns the polygon reference where the object is located. More...
TTypesOfLandscapeElement	SupplyPolygonType () const
	Returns the polygon type where the object is located. More...
int	Supply_m_Location_x () const
	Returns the ALMaSS x-coordinate. More...
int	Supply_m_Location_y () const
	Returns the ALMaSS y-coordinate. More...
int	SupplyGuardCellX () const
	Returns the x-index to the guard cell. More...
int	SupplyGuardCellY () const
	Returns the y-index to the guard cell. More...
int	SupplyAge () const
	Returns the animals age in days. More...
void	SetAge (int a_age)
	Sets the animals age in days. More...
virtual void	KillThis ()
	Sets all parameters ready for object destruction. More...
virtual void	CopyMyself ()
	Used to copy the object details to another in descendent classes. More...
void	SetX (const int a_x)
	Sets the x-coordinate. More...
void	SetY (const int a_y)
	Sets the y-coordinate. More...
virtual void	ReinitialiseObject (int a_x, int a_y, Landscape *a_l_ptr)
virtual void	ReinitialiseObject (int a_x, int a_y)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual void	Dying ()
	A wrapped for KillThis - ideally should not be used. More...
void	CheckManagement ()
	Used to start a check for any management related effects at the objects current location. More...
void	CheckManagementXY (int a_x, int a_y)
	Used to start a check for any management related effects at x,y. More...
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo () const
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone () const
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
void	ReinitialiseObjectBase ()
	Used to initialise an object. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()=default
	The destructor for TALMaSSObject. More...

Public Attributes
Skylark_Male *	MyMate
Public Attributes inherited from Skylark_Adult
bool	Paired
Public Attributes inherited from Skylark_Base
TTypesOfSkState	m_CurrentSkState
int	Age
double	m_Size
int	m_Born_x
int	m_Born_y
int	m_MyHome
	The vegetation type where the skylark was born. More...
SkTerritories *	m_OurTerritories
Skylark_Population_Manager *	m_OurPopulationManager

Protected Member Functions
int	st_Flocking ()
int	st_Floating ()
bool	st_Arriving ()
bool	st_Immigrating ()
int	st_Emigrating ()
int	st_TempLeavingArea ()
int	st_Finding_Territory ()
void	st_Dying ()
int	st_CaringForYoung ()
int	st_BuildingUpResources ()
TTypesOfSkState	st_MakingNest ()
int	st_PreparingForBreeding ()
int	st_GivingUpTerritory ()
TTypesOfSkState	st_Laying ()
int	st_StartingNewBrood ()
int	st_EggHatching ()
int	st_Incubating ()
int	st_StoppingBreeding ()
double	GetFood (int time)
int	CalculateEggNumber () const
int	CalcFoodTime (double target) const
int	GetMigrationMortality ()
double	CheckForFields () const
void	FeedYoung ()
bool	OnFarmEvent (FarmToDo event) override
	Must be reimplemented if used in descendent classes. Sets the action on a management event. More...
skSpiralResult	Spiral (int x, int y, int radius)
skSpiralResult	Spiral2 (int x, int y, int radius)
Protected Member Functions inherited from Skylark_Adult
virtual double	RemoveEM (double food)
double	GetVegHindrance (int PolyRef) const
double	GetWeatherHindrance () const
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Protected Attributes
Skylark_Clutch *	MyClutch
int	m_Counter1
int	m_NestTime
bool	NestLoc
double	Resources
int	EggCounter
int	m_BreedingAttempts
int	m_BreedingSuccess
int	m_EggNumber
bool	m_pesticide_sprayed_die
int	m_toowet
double	m_MinFemaleAcceptScore
Protected Attributes inherited from Skylark_Adult
int	GoodWeather
bool	BSuccess
double	MyExtractEff
int	m_pesticide_affected
skTerritory_struct	MyTerritory
vector< APoint > *	m_aTerrlist
Protected Attributes inherited from TAnimal
int	m_Location_x
	The objects ALMaSS x coordinate. More...
int	m_Location_y
	The objects ALMaSS y coordinate. More...
int	m_guard_cell_x
	The index x to the guard cell. More...
int	m_guard_cell_y
	The index y to the guard cell. More...
int	m_AgeDays {0}
	To hold the age in days. More...
PesticideToxicity	m_my_pesticide
Protected Attributes inherited from TALMaSSObject
int	m_CurrentStateNo
	The basic state number for all objects - '-1' indicates death. More...
bool	m_StepDone
	Indicates whether the iterative step code is done for this timestep. More...

Additional Inherited Members
Static Public Member Functions inherited from TAnimal
static void	SetSimulationWidth (int a_value)
	Sets the simulation width. More...
static void	SetSimulationHeight (int a_value)
	Sets the simulation height. More...
static void	SetDayInYear (int a_value)
	Sets the day in year attribute. More...
static void	SetOurLandscape (Landscape *a_value)
	Sets the landscape pointer. More...
static void	SetTempToday (double a_value)
	Sets the temperature today attribute. More...
Static Public Member Functions inherited from TALMaSSObject
static void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...
Static Protected Member Functions inherited from Skylark_Adult
static bool	GetBadWeather ()
	Extreme weather conditions check. More...
Static Protected Member Functions inherited from Skylark_Base
static bool	DailyMortality (int mort)
Static Protected Attributes inherited from TAnimal
static Landscape *	m_OurLandscape = nullptr
	A pointer to the landscape object shared with all TAnimal objects. More...
static int	m_SimulationWidth = 0
	A static member for the simulation width because it is often used by descendent classes. More...
static int	m_SimulationHeight = 0
	A static member for the simulation height because it is often used by descendent classes. More...
static double	m_TemperatureToday = 0.0
	A holder for the temperature today shared with all TAnimal objects. More...
static int	m_DayInYear = 0
	A holder for the day in year shared with all TAnimal objects. More...

Constructor & Destructor Documentation

Skylark_Female()

Skylark_Female::Skylark_Female	(	int	x,
		int	y,
		double	size,
		int	age,
		SkTerritories *	Terrs,
		Landscape *	L,
		Skylark_Population_Manager *	SPM,
		int	bx,
		int	by,
		int	mh
	)

                                               : Skylark_Adult(x, y, size, age, Terrs, L, SPM, bx, by, mh) {
    MyMate = nullptr;
    MyClutch = nullptr;
    ResetBreedingSuccess();
    m_BreedingAttempts = 0;
    m_MinFemaleAcceptScore = 0;
}

References m_BreedingAttempts, m_MinFemaleAcceptScore, MyClutch, MyMate, and ResetBreedingSuccess().

Member Function Documentation

BeginStep()

void Skylark_Female::BeginStep ( void  )

overridevirtual

BeingStep behaviour - must be implemented in descendent classes.

Reimplemented from TALMaSSObject.

                               {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (m_CurrentSkState == toss_Destroy) return;
    CheckManagement();
    if (m_MinFemaleAcceptScore < 0.0) m_MinFemaleAcceptScore = 0.0;
    switch (m_CurrentSkState)
    {
    case toss_FFloating: // Floating
        switch (st_Floating())
        {
        case 2:
            m_CurrentSkState = toss_FFlocking;
            break;
        case 3:
            m_CurrentSkState = toss_FTempLeavingArea; // -> temp.leave
            break;
        case 1:
            m_CurrentSkState = toss_FFindingTerritory; // -> find terr.
            break;
        case 0:
            break;
        }
        m_StepDone = true;
        break;
    case toss_FCaringForYoung: // CaringForYoung
        switch (st_CaringForYoung())
        {
        case 2: //StopBreeding
            m_CurrentSkState = toss_StoppingBreeding;
            break;
        case 1:
            m_CurrentSkState = toss_StartingNewBrood;
            break;
        default:
            break;
        }
        m_StepDone = true;
        break;
    default:
        /* char errornum[20]; sprintf(errornum, "%d", m_CurrentSkState );
        g_land->Warn("Skylark_Female::BeginStep(): Unknown state: ", errornum); exit(0); */
        break;
    }
}

References TAnimal::CheckManagement(), Skylark_Base::m_CurrentSkState, m_MinFemaleAcceptScore, TALMaSSObject::m_StepDone, st_CaringForYoung(), and st_Floating().

CalcFoodTime()

int Skylark_Female::CalcFoodTime ( double  target ) const

protected

{
    if (MyMate == nullptr)
    {
        g_msg->Warn(WARN_BUG, "Skylark_Female::CalcFoodTime(): No Mate!", "");
        exit(1);
    }
 
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Must calcuate how much time it takes to get 'target' food
    double FoodGathered = 0.0;
    int FoodTime = 0; // How much time used
    int used = 0;
    // Starting with the best sources first, use time to get food
    // The male ought to have sorted the table already (or yesterday)
    while (FoodGathered < target && used < MyMate->SupplyNoHabitatRefs())
    {
        double available = MyMate->m_HabitatTable_Size[used] * MyMate->m_InsectTable[used];
        // calcualte for, weather and extraction rate
        available *= MyExtractEff;
        if (available < target - FoodGathered)
        {
            FoodGathered += available;
            //used++;
            // Calc time used
            FoodTime += MyMate->m_HabitatTable_Size[used++]; // assume 1 min per m2
        }
        else
        {
            // Enough Food here to reach target
            // foodpermin = available/area * ExtractionEff * VegHindrance
            // mins = (target-FoodGathered)/FoodperMin
            const double FoodPerMin = available / MyMate->m_HabitatTable_Size[used];
            FoodTime += static_cast<int>(floor(0.5 + (target - FoodGathered) / FoodPerMin));
            break;
        }
    }
    return FoodTime;
}

References g_msg, MapErrorMsg::Warn(), and WARN_BUG.

Referenced by st_Incubating().

CalculateEggNumber()

int Skylark_Female::CalculateEggNumber ( ) const

protected

                                             {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Data from PO/AP study at Kal
    int eggs;
    int chance;
    switch (m_BreedingAttempts)
    {
    case 1:
        chance = g_random_fnc(160);
        if (chance < 9) eggs = 2;
        else if (chance < 37 + 9) eggs = 3;
        else if (chance < 99 + 37 + 9) eggs = 4;
        else eggs = 5;
        break;
    default:
        chance = g_random_fnc(125);
        if (chance < 29) eggs = 3;
        else if (chance < 29 + 80) eggs = 4;
        else eggs = 5;
        break;
    }
    if (eggs < 1) eggs = 1;
    return eggs;
}

References g_random_fnc(), and m_BreedingAttempts.

Referenced by st_Laying().

CheckForFields()

double Skylark_Female::CheckForFields ( ) const

protected

                                            {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
    // Checks each 1m in the territory and returns the proportion of field<4cm
    // Note only arable fields are returned as field - permanent pasture is not
    int TallFieldVeg = 0;
    for (int xx = MyTerritory.x; xx < MyTerritory.x + MyTerritory.size; xx++)
    {
        for (int yy = MyTerritory.y; yy < MyTerritory.y + MyTerritory.size; yy++)
        {
            int Cx = xx;
            int Cy = yy;
            m_OurLandscape->CorrectCoords(Cx, Cy);
            const int PolyRef = m_OurLandscape->SupplyPolyRef(Cx, Cy);
            if (m_OurLandscape->SupplyVegHeight(PolyRef) > 50.0 && (m_OurLandscape->SupplyElementType(PolyRef) == tole_Field || m_OurLandscape->
                SupplyElementType(PolyRef) == tole_UnsprayedFieldMargin)) TallFieldVeg++;
        }
    }
    return TallFieldVeg / static_cast<double>(MyTerritory.size * MyTerritory.size);
}

References Landscape::CorrectCoords(), TAnimal::m_OurLandscape, Skylark_Adult::MyTerritory, skTerritory_struct::size, Landscape::SupplyElementType(), Landscape::SupplyPolyRef(), Landscape::SupplyVegHeight(), tole_Field, tole_UnsprayedFieldMargin, skTerritory_struct::x, and skTerritory_struct::y.

EndStep()

void Skylark_Female::EndStep ( void  )

overridevirtual

EndStep behaviour - must be implemented in descendent classes.

Reimplemented from TALMaSSObject.

                             {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Need to find out if it is poisoned
#ifdef __PESTICIDE_RA
    PesticideResponse();
#endif
}

EstablishTerritory()

void Skylark_Female::EstablishTerritory

(

)

                                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    MyMate->OnPairing(this);
    Paired = true;
    MyTerritory = MyMate->Supply_Territory();
    Resources = 0;
    // Move 31-01-2007 to Immigrating m_BreedingAttempts = 0;
    m_OurTerritories->FemaleOccupy(MyTerritory.ref, this);
    m_Location_x = (MyTerritory.size / 2 + MyTerritory.x + 5) % m_OurPopulationManager->SupplySimW(); // next to male
    m_Location_y = (MyTerritory.size / 2 + MyTerritory.y) % m_OurPopulationManager->SupplySimH();
    BSuccess = false; // reset the breeding success flag
}

References Skylark_Adult::BSuccess, SkTerritories::FemaleOccupy(), TAnimal::m_Location_x, TAnimal::m_Location_y, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyMate, Skylark_Adult::MyTerritory, Skylark_Male::OnPairing(), Skylark_Adult::Paired, skTerritory_struct::ref, Resources, skTerritory_struct::size, Skylark_Male::Supply_Territory(), Population_Manager_Base::SupplySimH(), Population_Manager_Base::SupplySimW(), skTerritory_struct::x, and skTerritory_struct::y.

Referenced by Skylark_Male::OnReHouse(), and st_Finding_Territory().

FeedYoung()

void Skylark_Female::FeedYoung ( )

protected

Can only get food in daylight - dawn & dusk. Must keep them warm if the weather is bad - the quick version below catagorizes this into good or bad weather

                               {
#ifdef __CJTDebug_5
    if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
    const double RainToday = m_OurLandscape->SupplyRain();
    if (RainToday > MaxFeedRain) return; // No feeding today
    const double TempToday = m_OurLandscape->SupplyTemp();
    const int food_time = m_OurLandscape->SupplyDaylength() - 120;
    const int BrSize = MyMate->SupplyBroodSize();
    m_NestTime = 24 * 60 - food_time; //add night time
    int FeedingProbs[16];
    double ChickFood[16];
#ifdef __PESTICIDE_RA_CHICK
    double ChickPoison[ 16 ];
#endif
    double spare;
    const double resources_all = GetFood(food_time /*, pcide*/); // kcal insects
    // remove metabolic requirements
    double resources = RemoveEM(resources_all);
    int HungryChicks = BrSize;
    if (resources > 0)
    {
        // Zero the feeding probabilities
        for (int i = 0; i < HungryChicks; i++)
        {
            FeedingProbs[i] = 0;
            ChickFood[i] = 0;
#ifdef __PESTICIDE_RA_CHICK
            ChickPoison[ i ] = 0;
#endif
        }
        // if the chicks are 1-4 days old then she must warm them with energy
        // From Mertens (1972)
        // M = 0.0719*power(brood_weight,0.613)*(BroodTemp-AmbientTemp); // Brood temp = 35 double broodweight=0;
        int BroodWeight = 0;
        for (int i = 0; i < HungryChicks; i++)
        {
            // Add up brood weight
            const int weight = static_cast<int>(floor(MyMate->SupplyBroodWeight(i) + 0.5));
            BroodWeight += weight;
            // While we are at it we might as well create the FeedinbProbs array too
            for (int j = i; j < HungryChicks; j++) FeedingProbs[j] += static_cast<int>(floor(0.5 + weight));
        }
        if (MyMate->SupplyBroodAge(0) < 6) { resources -= pow(BroodWeight, 0.613) * 0.0719 * (35 - TempToday); }
        // Now give the food to the chicks
        // The chance that a chick get a portion is proportional to their size
        resources /= FoodTripsPerDay; // Split into 30 portions (food trips per day)
#ifdef __PESTICIDE_RA_CHICK
        double pcide_remain = resources * m_pcide_conc;
#endif
        while (resources > 0.01 && HungryChicks > 0)
        {
            for (int portion = 0; portion < FoodTripsPerDay; portion++)
            {
                // For each portion
                const int choose = g_random_fnc(BroodWeight);
                for (int i = 0; i < BrSize; i++)
                {
                    if (choose < FeedingProbs[i])
                    {
                        ChickFood[i] += resources; // store the food for that chick
#ifdef __PESTICIDE_RA_CHICK
                        ChickPoison[ i ] += pcide_remain;
#endif
                        break;
                    }
                }
            }
            // Now give the food to the chicks
            // Better do this than feed each a portion at a time, it is more efficient
            // and stops problems with growth between portions
            spare = 0;
            for (int i = 0; i < BrSize; i++)
            {
#ifdef __PESTICIDE_RA_CHICK
                double extra = MyMate->OnFoodMessage( i, ChickFood[ i ] , ChickPoison[i] );
#else
                double extra = MyMate->OnFoodMessage(i, ChickFood[i]);
#endif
                if (extra > 0) // chick must be full
                {
                    FeedingProbs[i] = -1; // no chance of food
                    HungryChicks--;
                    spare += extra;
                }
            }
            resources = spare / FoodTripsPerDay;
        }
    }
}

References FoodTripsPerDay, g_random_fnc(), GetFood(), m_NestTime, TAnimal::m_OurLandscape, MaxFeedRain, MyMate, Skylark_Male::OnFoodMessage(), Skylark_Adult::RemoveEM(), Skylark_Male::SupplyBroodAge(), Skylark_Male::SupplyBroodSize(), Skylark_Male::SupplyBroodWeight(), Landscape::SupplyDaylength(), Landscape::SupplyRain(), and Landscape::SupplyTemp().

Referenced by st_CaringForYoung(), and st_GivingUpTerritory().

GetFood()

double Skylark_Female::GetFood ( int  time )

protected

                                         {
    // returns insects in g dry weight
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Extract insects available from each habitat in the male's table
    // for as long as she spends searching
    double food = 0;
    int index = 0;
#ifdef __PESTICIDE_RA
    m_pcide = 0.0;
#endif
    double fd;
    while (time > 0)
    {
#ifdef __CJTDebug_4
    if ( index > 249 )
      OnArrayBoundsError();
#endif
        const int area = MyMate->m_HabitatTable_Size[index];
        if (time > area)
        {
            time -= area;
            // Food+= area*WeatherHindrance*ExtractionEfficiency*Insects per m2
            fd = area * MyExtractEff * MyMate->m_InsectTable[index];
            food += fd;
#ifdef __PESTICIDE_RA
            // m_pcide has total mg collected
            m_pcide += MyMate->m_PConcTable[index] * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
            //m_pcide += 53.0 * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
#endif
            index++;
            if (index == MyMate->SupplyNoHabitatRefs()) time = 0; // Nowhere left to look
        }
        else
        {
            // Food+=
            // minutes left*WeatherHindrance*ExtractionEfficiency*Insects per m2
            fd = time * MyExtractEff * MyMate->m_InsectTable[index];
            food += fd;
#ifdef __PESTICIDE_RA
            m_pcide += MyMate->m_PConcTable[index] * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
            //m_pcide += 53.0 * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
#endif
            time = 0;
        }
    }
    return food;
}

References KcalPerGInsect_kg_inv, Skylark_Male::m_HabitatTable_Size, Skylark_Male::m_InsectTable, Skylark_Adult::MyExtractEff, MyMate, TALMaSSObject::OnArrayBoundsError(), and Skylark_Male::SupplyNoHabitatRefs().

Referenced by FeedYoung(), and st_PreparingForBreeding().

GetMigrationMortality()

int Skylark_Female::GetMigrationMortality ( )

protected

                                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    Age++; // Get one year older (if you live)
    if (Age == 1) return JuvenileReturnMort;
    return m_OurPopulationManager->SupplyF_Mig_Mort();
}

References Skylark_Base::Age, JuvenileReturnMort, Skylark_Base::m_OurPopulationManager, and Skylark_Population_Manager::SupplyF_Mig_Mort().

Referenced by st_Immigrating().

OnBreedingSuccess()

void Skylark_Female::OnBreedingSuccess

(

)

                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    BSuccess = true;
}

References Skylark_Adult::BSuccess.

Referenced by Skylark_Male::OnPreFledgelingMature(), and Skylark_Male::st_ScaringOffChicks().

OnBreedSuccess()

void Skylark_Female::OnBreedSuccess ( )

inline

{ m_BreedingSuccess++; }

Referenced by Skylark_Male::OnAddPreFledgeling().

OnBroodDeath()

void Skylark_Female::OnBroodDeath

(

)

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    if (Paired) // if !Paired then ignore them, must have deserted
    {
        // Start a new brood if not already done so naturally
        if (!MyClutch)
        {
            m_Counter1 = 5;
            m_CurrentSkState = toss_StartingNewBrood;
        }
    }
}

References m_Counter1, Skylark_Base::m_CurrentSkState, MyClutch, and Skylark_Adult::Paired.

Referenced by Skylark_Male::OnBroodDeath().

OnClutchDeath()

void Skylark_Female::OnClutchDeath

(

)

                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    if (Paired) // if !Paired then ignore the message, must have deserted
    {
#ifdef __CJTDebug_7
        if (!MyClutch)
        {
            g_land->Warn("Skylark_Female::OnClutchDeat - No clutch to die ", nullptr);
            exit(1);
        }
#endif
        MyClutch = nullptr;
        m_Counter1 = 5;
        m_CurrentSkState = toss_StartingNewBrood; //Go to new brood start
    }
}

References g_land, m_Counter1, Skylark_Base::m_CurrentSkState, MyClutch, Skylark_Adult::Paired, and Landscape::Warn().

Referenced by Skylark_Clutch::st_Dying().

OnEggsHatch()

void Skylark_Female::OnEggsHatch

(

)

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    // This function must not be called until the nestling objects have been
    // created
#ifdef __CJTDebug_7
    if (!MyClutch)
    {
        g_land->Warn("Skylark_Female::OnEggsHatch - No clutch to hatch ", nullptr);
        exit(1);
    }
#endif
    MyClutch = nullptr;
    m_CurrentSkState = toss_EggHatching; //Go to EggHatching
    //  Tell the male
    MyMate->OnEggHatch();
}

References g_land, Skylark_Base::m_CurrentSkState, MyClutch, MyMate, Skylark_Male::OnEggHatch(), and Landscape::Warn().

Referenced by Skylark_Clutch::st_Hatching().

OnFarmEvent()

bool Skylark_Female::OnFarmEvent ( FarmToDo  )

overrideprotectedvirtual

Must be reimplemented if used in descendent classes. Sets the action on a management event.

Reimplemented from TAnimal.

                                               {
    switch (event)
    {
    case sleep_all_day:
        break;
// Here begins events that destroy the nest
    case preseeding_cultivator:
    case summer_harrow:
    case strigling_sow:
    case strigling:
    case strigling_hill:
        // If she is in nest building then the nest is destroyed
        if (m_CurrentSkState == toss_MakingNest || m_CurrentSkState == toss_PreparingForBreeding)
        {
            // Make a state change
            m_CurrentSkState = toss_StartingNewBrood;
            AddStriglingMort(0);
        }
        break;
    case autumn_plough:
    case stubble_plough:
    case stubble_cultivator_heavy:
    case row_cultivation:
    case autumn_harrow:
    case preseeding_cultivator_sow:
    case heavy_cultivator_aggregate:
    case autumn_sow:
    case autumn_sow_with_ferti:
    case winter_plough:
    case deep_ploughing:
    case summer_plough:
    case summer_sow:
    case winter_harrow:
    case spring_plough:
    case spring_harrow:
    case shallow_harrow:
    case spring_sow:
    case spring_sow_with_ferti:
    case autumn_or_spring_plough:
    case bed_forming:
    case stubble_harrowing:
        // If she is in nest building then the nest is destroyed
        if (m_CurrentSkState == toss_MakingNest || m_CurrentSkState == toss_PreparingForBreeding)
        {
            // Make a state change
            m_CurrentSkState = toss_StartingNewBrood;
        }
        break;
// Here begins non-mortality events
    case spring_roll:
    case autumn_roll:
    case fa_boron: //AHA
    case fp_npks:
    case molluscicide:
    case fp_npk:
    case fp_pk:
    case fp_k:
    case fp_sk: //AHA
    case fp_p:
    case fa_calcium:
    case fa_pks:
    case fiber_covering:
    case fp_n: //AHA
    case fp_liquidNH3:
    case fp_slurry:
    case fp_ammoniumsulphate:
    case fp_manganesesulphate:
    case fp_manure:
    case fp_greenmanure:
    case fp_sludge:
    case fp_rsm:
    case fp_calcium:
    case fp_boron: //AHA
    case fp_cu:
    case fp_nc:
    case fp_nk:
    case fp_ns:
    case fp_pks:
    case fa_cu: //AHA
    case fa_npk:
    case fa_npks:
    case fa_pk:
    case fa_k:
    case fa_sk: //AHA
    case fa_p:
    case fa_n:
    case fa_nk: //AHA
    case fa_slurry:
    case fa_ammoniumsulphate:
    case fa_manganesesulphate:
    case fa_manure:
    case fa_greenmanure:
    case fa_sludge:
    case fa_rsm:
    case cut_weeds:
    case herbicide_treat:
    case growth_regulator:
    case fungicide_treat:
    case insecticide_treat:
    case org_insecticide:
    case hilling_up:
    case water:
    case swathing:
    case harvest:
    case harvest_bushfruit: //AHA
    case green_harvest:
    case harvestshoots:
    case pruning: //AHA
    case fiber_removal: //AHA
    case shredding: //AHA
    case manual_weeding: //AHA
    case cattle_out:
    case cattle_out_low:
    case cut_to_hay:
    case cut_to_silage:
    case straw_chopping:
    case hay_turning:
    case hay_bailing:
    case trial_insecticidetreat:
    case burn_straw_stubble:
    case flammebehandling:
    case burn_top: //AHA
    case flower_cutting:
    case bulb_harvest:
    case straw_covering:
    case straw_removal:
    case mow:
    case last_treatment:
    case org_fungicide:
    case org_herbicide:
    case pheromone:
    case suckering:
    case trial_control:
    case trial_toxiccontrol:
    case product_treat:
    case glyphosate:
    case biocide:
        break;
// Here begins spray mortality
    case syninsecticide_treat:
        if (g_random_fnc(1000) < cfg_insecticide_direct_mortF.value())
        {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Female::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_FDying;
        }
        break;
// Here begins events that cause females to give up territory
    case pigs_out:
#ifndef __NoPigsOutEffect
        if (Paired)
        {
            if (g_random_fnc(100) < 2) // 2%
            {
                // Too much disturbance so give up
                m_CurrentSkState = toss_GivingUpTerritory;
            }
        }
#endif
        break;
    default:
        g_land->Warn("Skylark_Female::OnFarmEvent(): ""Unknown event type:", m_OurLandscape->EventtypeToString(event));
        exit(1);
    }
    if (m_CurrentSkState == toss_FDying) return true;
    return false;
}

References Skylark_Base::AddStriglingMort(), autumn_harrow, autumn_or_spring_plough, autumn_plough, autumn_roll, autumn_sow, autumn_sow_with_ferti, bed_forming, biocide, bulb_harvest, burn_straw_stubble, burn_top, cattle_out, cattle_out_low, cfg_insecticide_direct_mortF, cut_to_hay, cut_to_silage, cut_weeds, Calendar::Date(), deep_ploughing, Landscape::EventtypeToString(), fa_ammoniumsulphate, fa_boron, fa_calcium, fa_cu, fa_greenmanure, fa_k, fa_manganesesulphate, fa_manure, fa_n, fa_nk, fa_npk, fa_npks, fa_p, fa_pk, fa_pks, fa_rsm, fa_sk, fa_sludge, fa_slurry, fiber_covering, fiber_removal, flammebehandling, flower_cutting, fp_ammoniumsulphate, fp_boron, fp_calcium, fp_cu, fp_greenmanure, fp_k, fp_liquidNH3, fp_manganesesulphate, fp_manure, fp_n, fp_nc, fp_nk, fp_npk, fp_npks, fp_ns, fp_p, fp_pk, fp_pks, fp_rsm, fp_sk, fp_sludge, fp_slurry, fungicide_treat, g_date, g_land, g_random_fnc(), glyphosate, green_harvest, growth_regulator, harvest, harvest_bushfruit, harvestshoots, hay_bailing, hay_turning, heavy_cultivator_aggregate, herbicide_treat, hilling_up, insecticide_treat, last_treatment, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, manual_weeding, molluscicide, mow, org_fungicide, org_herbicide, org_insecticide, Skylark_Adult::Paired, pheromone, pigs_out, preseeding_cultivator, preseeding_cultivator_sow, product_treat, pruning, row_cultivation, shallow_harrow, shredding, sleep_all_day, spring_harrow, spring_plough, spring_roll, spring_sow, spring_sow_with_ferti, straw_chopping, straw_covering, straw_removal, strigling, strigling_hill, strigling_sow, stubble_cultivator_heavy, stubble_harrowing, stubble_plough, suckering, summer_harrow, summer_plough, summer_sow, swathing, syninsecticide_treat, trial_control, trial_insecticidetreat, trial_toxiccontrol, CfgInt::value(), Landscape::Warn(), water, winter_harrow, and winter_plough.

OnMaleNeverComesBack()

void Skylark_Female::OnMaleNeverComesBack

(

const Skylark_Male *

AMale

)

                                                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    if (MyMate == AMale)
    {
        MyMate = nullptr;
        Paired = false;
        BSuccess = false;
    } //This could cause problems if this function is called late
}

References Skylark_Adult::BSuccess, MyMate, and Skylark_Adult::Paired.

Referenced by Skylark_Male::OnPairing(), and Skylark_Male::st_Immigrating().

OnMateDying()

void Skylark_Female::OnMateDying

(

)

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    // Assumes that she forgets about any active brood
    MyMate = nullptr;
    if (MyClutch)
    {
        MyClutch->OnMumGone();
        MyClutch = nullptr;
    }
    if (MyTerritory.ref != -1)
    {
        m_OurTerritories->RemoveFemale(MyTerritory.ref);
        MyTerritory.ref = -1;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1006 );
#endif
    }
    if (m_OurLandscape->SupplyDayInYear() > g_stopdate) m_CurrentSkState = toss_FFlocking;
    else m_CurrentSkState = toss_FFloating;
}

References g_stopdate, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Adult::MyTerritory, Skylark_Clutch::OnMumGone(), skTerritory_struct::ref, SkTerritories::RemoveFemale(), Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Skylark_Male::st_Dying().

OnMateHomeless()

void Skylark_Female::OnMateHomeless

(

)

                                    {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    if (MyClutch)
    {
        MyClutch->OnMumGone();
        MyClutch = nullptr;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1007 );
#endif
    }
    MyMate = nullptr;
    Paired = false;
    BSuccess = false;
    MyTerritory.ref = -1;
    if (m_OurLandscape->SupplyDayInYear() > g_stopdate) m_CurrentSkState = toss_FFlocking;
    else m_CurrentSkState = toss_FFloating;
}

References Skylark_Adult::BSuccess, g_stopdate, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, MyClutch, MyMate, Skylark_Adult::MyTerritory, Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, skTerritory_struct::ref, Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Skylark_Male::OnReHouse().

OnSetMyClutch()

void Skylark_Female::OnSetMyClutch ( Skylark_Clutch *  p_C )

inline

{ MyClutch = p_C; }

Referenced by Skylark_Population_Manager::CreateObjects().

OnStopFeedingChicks()

void Skylark_Female::OnStopFeedingChicks

(

)

                                         {
    // Only a problem if she has to be told to stop feeding
    if (m_CurrentSkState == toss_FCaringForYoung) m_CurrentSkState = toss_StartingNewBrood;
}

References Skylark_Base::m_CurrentSkState.

Referenced by Skylark_Male::OnPreFledgelingMature(), and Skylark_Male::st_ScaringOffChicks().

ReInit()

void Skylark_Female::ReInit ( int  x, int  y, double  size, int  age, SkTerritories *  Terrs, Landscape *  L, Skylark_Population_Manager *  SPM, int  bx, int  by, int  mh  )

overridevirtual

Reimplemented from Skylark_Adult.

                                                                                                       {
    Skylark_Adult::ReInit(x, y, size, age, Terrs, L, SPM, bx, by, mh);
    MyMate = nullptr;
    MyClutch = nullptr;
    ResetBreedingSuccess();
    m_BreedingAttempts = 0;
    m_MinFemaleAcceptScore = 0;
}

References m_BreedingAttempts, m_MinFemaleAcceptScore, MyClutch, MyMate, Skylark_Adult::ReInit(), and ResetBreedingSuccess().

ResetBreedingSuccess()

void Skylark_Female::ResetBreedingSuccess

(

)

                                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    m_BreedingSuccess = -1;
}

References m_BreedingSuccess.

Referenced by ReInit(), Skylark_Female(), and st_Immigrating().

SensibleCopy()

void Skylark_Female::SensibleCopy

(

)

                                  {
    // This is called if a new bird is made as a copy of another and needs to have some sensible information added
    m_CurrentSkState = toss_FEmigrating;
}

References Skylark_Base::m_CurrentSkState.

Referenced by Skylark_Population_Manager::CreateObjects().

Spiral()

skSpiralResult Skylark_Female::Spiral ( int  x, int  y, int  radius  )

protected

Spiral2()

skSpiralResult Skylark_Female::Spiral2 ( int  x, int  y, int  radius  )

protected

st_Arriving()

bool Skylark_Female::st_Arriving ( )

protected

Ensures that the bird is not paired on arrival and checks the weather status. If bad weather then returns initiates a transition to st_TempLeaveArea otherwise to st_FindTerritory.

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    Paired = false;
    if (GetBadWeather()) return false;
    m_Location_y = static_cast<int>(floor(g_rand_uni_fnc() * m_OurLandscape->SupplySimAreaHeight()));
    m_Location_x = static_cast<int>(floor(g_rand_uni_fnc() * m_OurLandscape->SupplySimAreaWidth()));
    return true; // TransferToState(FindTerritory)
}

References g_rand_uni_fnc(), Skylark_Adult::GetBadWeather(), TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Adult::Paired, Landscape::SupplySimAreaHeight(), and Landscape::SupplySimAreaWidth().

Referenced by Step().

st_BuildingUpResources()

int Skylark_Female::st_BuildingUpResources ( )

protected

The female forages from her home range each day. On 1st April she will make a transition to preparing for breeding which determines the time needed for egg production and nest building.

                                           {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    const int today = m_OurLandscape->SupplyDayInYear();
    if (today >= g_stopdate)
    {
        return 2; // GiveUpTerritory
    }
    if (GetBadWeather()) return 2;
    if (m_OurLandscape->SupplyTemp() > Breed_Temp_Thresh)
    {
        const double qual = MyMate->Supply_TerritoryQual();
        if (qual < m_MinFemaleAcceptScore)
        {
            // May need to give up territory or might be because the crop has not
            // started growing in which case she will wait until May
            if (today >= May + 14) return 2; // GiveUpTerritory
        }
        EggCounter = 0;
        if (today > cfg_SkylarkFirstBreedingDate.value()) return 1; // transferToState(PrepareForBreeding)
    }
    return 0; // just wait
}

References Breed_Temp_Thresh, cfg_SkylarkFirstBreedingDate, EggCounter, g_stopdate, Skylark_Adult::GetBadWeather(), m_MinFemaleAcceptScore, TAnimal::m_OurLandscape, May, MyMate, Skylark_Male::Supply_TerritoryQual(), Landscape::SupplyDayInYear(), Landscape::SupplyTemp(), and CfgInt::value().

Referenced by Step().

st_CaringForYoung()

int Skylark_Female::st_CaringForYoung ( )

protected

Calls Skylark_Female::FeedYoung to get food and give it to the chicks. Once the chicks reach 18 days of age if more breeding is possible then the bird will start a new brood unless it is late in the season or there have been too many breeding attempts in which case she will stop breeding when the chicks are 30 days old. In previous versions there was a bad weather component, but this has been removed since it did not contribute to the POM fit. If future analysis finds a relationship it should be incorporated here.

                                      {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    FeedYoung(); // get food and give it to the young
    const int ch_age = MyMate->SupplyBroodAge(0);
    if (ch_age == 18)
    // Must stop feeding and start to build a nest. She is ready to
    // build nest when the young are 18 days old
    {
        if (m_BreedingAttempts < 4 && m_OurLandscape->SupplyDayInYear() < g_stopdate)
        {
            NestLoc = false; // no nest location now
            return 1; //Start a new brood
        }
        if (ch_age == 30) return 2;
    }
    return 0;
}

References FeedYoung(), g_stopdate, MyMate, NestLoc, and Skylark_Male::SupplyBroodAge().

Referenced by BeginStep().

st_Dying()

void Skylark_Female::st_Dying ( void  )

protected

                              {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (MyMate)
    {
        if (MyMate->MyMate != this)
        {
            g_land->Warn("Skylark_Female::st_Dying - Debug1 ", nullptr);
            exit(1);
        }
        MyMate->OnMateDying();
        MyMate = nullptr;
    }
    if (MyTerritory.ref != -1)
    {
        m_OurTerritories->RemoveFemale(MyTerritory.ref);
        MyTerritory.ref = -1;
    }
    if (MyClutch)
    {
        MyClutch->OnMumGone();
        MyClutch = nullptr;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1005 );
#endif
    }
    m_CurrentSkState = toss_Destroy; // will kill it at end of step!
    m_CurrentStateNo = -1;
}

References g_land, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Male::MyMate, Skylark_Adult::MyTerritory, Skylark_Male::OnMateDying(), Skylark_Clutch::OnMumGone(), skTerritory_struct::ref, SkTerritories::RemoveFemale(), Landscape::SupplyDayInYear(), Landscape::Warn(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Step().

st_EggHatching()

int Skylark_Female::st_EggHatching ( )

protected

A transition is made to Care for Young.

                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    m_toowet = 0;
    return 1; // TransferToState(CareForYoung)
}

References m_toowet.

Referenced by Step().

st_Emigrating()

int Skylark_Female::st_Emigrating ( )

protected

Is called once a day. This state determines the return to breeding areas based on probabilities that alter with date. Once suitable conditions prevail there will be a transition to st_Immigrating.

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
#ifdef __PESTICIDE_RA_ADULT
    // If using reset pesticide affect
    m_pesticide_affected = -1;
#endif
 
    const int today = m_OurLandscape->SupplyDayInYear();
    if (today >= g_stopdate) return 0; //don't come back this year
    if (m_OurLandscape->SupplyTemp() > 0.0) GoodWeather++;
    else GoodWeather = 0;
 
    if (GoodWeather >= 7) // 7 days of good weather
    {
        const int chance = g_random_fnc(cfg_ReturnProbability.value()); // number between 0-9999 as default
        if (Age < 1) // if first year
        {
            if (chance < 300 && today >= March + 15) return 1;
            if (today >= April + 15) return 1;
        }
        else
        {
            if (chance < 7 && today >= January + 14) return 1;
            if (chance < 33 && today >= February + 14) return 1;
            if (chance < 400 && today >= March + 14) return 1;
            if (chance < 1000 && today >= April + 14) return 1;
            if (today > May) return 1;
        }
    }
    return 0; // return value of 0 do nothing, 1 go to immigration
}

References Skylark_Base::Age, April, cfg_ReturnProbability, February, g_random_fnc(), g_stopdate, Skylark_Adult::GoodWeather, January, TAnimal::m_OurLandscape, Skylark_Adult::m_pesticide_affected, March, May, Landscape::SupplyDayInYear(), Landscape::SupplyTemp(), and CfgFloat::value().

Referenced by Step().

st_Finding_Territory()

int Skylark_Female::st_Finding_Territory ( )

protected

                                         {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (GetBadWeather()) return 3;
    double score = 0;
    skTerritory_struct testTerr;
    // First tries to find old mate if breeding was successful
    if (BSuccess == true && MyMate != nullptr)
    {
        // Check if mate has a territory
        if (MyMate->HaveTerritory == true && MyMate->Paired == false)
        {
            testTerr = MyMate->Supply_Territory();
            // **CJT** Changed below to EvaluateHabitatNest 10/05/04
            //score = m_OurTerritories->EvaluateHabitatNest( m_OurTerritories->Supply_terr( testTerr.ref ), true );
            score = testTerr.nqual;
        }
        if (score > m_MinFemaleAcceptScore)
        {
            //Establish the territory
            EstablishTerritory();
            return 1; // TransferToState(BuildUpResources)
        }
    }
    // If old-mate did not have a good territory or was not there
    // then start a search for a good unoccupied territory
    {
        // Male't territory was not good so lie to him and say we did not
        // come back
        if (MyMate) if (MyMate->Paired == false) MyMate->OnMateNeverComesBack(this);
        MyMate = nullptr; // Forget him he is no good!
        // Sorts through the list of territories until it finds a suitable one
        // will remember the last 'one' until if finds a vacant really good one
        const int NoTerrs = m_OurTerritories->SupplyNoTerritories();
        int remember = -1;
        for (int i = 0; i < NoTerrs; i++)
        {
            Skylark_Male* A_Male = m_OurTerritories->Supply_Owner(i);
            // Is territory occupied?
            if (A_Male != nullptr)
            {
                // Check if a female is already present
                if (m_OurTerritories->Supply_F_Owner(i) == nullptr)
                {
#ifdef __CJTDebug_5
          if ( A_Male->Paired ) {
            g_msg->Warn( WARN_BUG, "Skylark_Female::st_Finding_Territory(): Male already paired!", "" );
            exit( 1 ); // Inconsistency
          }
#endif
                    testTerr = A_Male->Supply_Territory();
                    /*  *** CJT *** Changed 4/6/2009. Now requires the male to set the value in his m_MyTerritory
                    **CJT** Changed below to EvaluateHabitatNest 10/05/04
                     score = m_OurTerritories->EvaluateHabitatNest( m_OurTerritories->Supply_terr( testTerr.ref ), true );
                    */
                    if (testTerr.nqual >= m_MinFemaleAcceptScore + 5)
                    {
                        //Pair with this one
                        //Establish the territory
                        MyMate = A_Male;
                        EstablishTerritory();
                        Paired = true;
                        return 1; // TransferToState(BuildUpResources)
                    }
                    if (testTerr.nqual >= m_MinFemaleAcceptScore) remember = i;
                }
            }
        }
        if (remember == -1)
        {
#ifdef FOR_DEMONSTRATION
      m_Location_x = 0;
      m_Location_y = 0;
#endif
            return 2; // TransferToState(Floating);
        }
        //Pair with the male remember
        MyMate = m_OurTerritories->Supply_Owner(remember);
        //Establish the territory
        EstablishTerritory();
        return 1; // TransferToState(BuildUpResources)
    }
}

References Skylark_Adult::BSuccess, EstablishTerritory(), g_msg, Skylark_Adult::GetBadWeather(), Skylark_Male::HaveTerritory, TAnimal::m_Location_x, TAnimal::m_Location_y, m_MinFemaleAcceptScore, Skylark_Base::m_OurTerritories, MyMate, skTerritory_struct::nqual, Skylark_Male::OnMateNeverComesBack(), Skylark_Adult::Paired, SkTerritories::Supply_F_Owner(), SkTerritories::Supply_Owner(), Skylark_Male::Supply_Territory(), SkTerritories::SupplyNoTerritories(), MapErrorMsg::Warn(), and WARN_BUG.

Referenced by Step().

st_Floating()

int Skylark_Female::st_Floating ( )

protected

                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (GetBadWeather()) return 3;
    m_Location_x = g_random_fnc(m_OurPopulationManager->SupplySimW());
    m_Location_y = g_random_fnc(m_OurPopulationManager->SupplySimH());
    if (m_OurLandscape->SupplyDayInYear() > g_stopdate) { return 2; }
#ifdef FOR_DEMONSTRATION
    m_Location_x = 0;
    m_Location_y = 0;
#endif
    return 1; //TransferToState(FindTerritory);
}

References g_random_fnc(), g_stopdate, Skylark_Adult::GetBadWeather(), TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Landscape::SupplyDayInYear(), Population_Manager_Base::SupplySimH(), and Population_Manager_Base::SupplySimW().

Referenced by BeginStep().

st_Flocking()

int Skylark_Female::st_Flocking ( )

protected

The bird is assumed to move around the area waiting until weather conditions are suitable to begin Emigration, depending upon the time of year. Only arrives here after breeding, so poor conditions will trigger a transition to Emigration. A transition to Emigration will also occur if the bird has not emigrated before October.

                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
#ifdef FOR_DEMONSTRATION
  // Removes itinerant dots from the screen, but has no effect on simulation
  m_Location_x = 0;
  m_Location_y = 0;
#endif
 
    if (m_OurLandscape->SupplyDayInYear() > October)
    {
        GoodWeather = 0;
        return 1; //TransferToState(Emigration);
    }
    const bool bad = GetBadWeather();
    if (bad && m_OurLandscape->SupplyDayInYear() >= September) return 1; //TransferToState(Emigration);
    return 0; // Carry on
}

References Skylark_Adult::GetBadWeather(), Skylark_Adult::GoodWeather, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, October, September, and Landscape::SupplyDayInYear().

Referenced by Step().

st_GivingUpTerritory()

int Skylark_Female::st_GivingUpTerritory ( )

protected

                                         {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // If she is incubating give a message to the clutch that she is gone
    if (MyClutch)
    {
        MyClutch->OnMumGone();
        MyClutch = nullptr;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1008 );
#endif
    }
    // Will carry on feeding the young whilst they are needing fed
    if (MyMate->SupplyBroodSize() > 0)
    {
        FeedYoung();
        return 0; // carry on
    }
    // No young to look after so leave the territory
    EggCounter = 0;
    NestLoc = false;
    // No longer paired
    Paired = false;
    // Tell the male you are leaving
    MyMate->OnMateLeaving();
    // if no breeding success then forget him
    if (!BSuccess) MyMate = nullptr;
    // de-register the territory ownership (if she owns one)
    if (MyTerritory.ref != -1) m_OurTerritories->RemoveFemale(MyTerritory.ref);
    MyTerritory.ref = -1; // No territory
    return 1; // TransferToState(Floating);
}

References Skylark_Adult::BSuccess, EggCounter, FeedYoung(), TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Adult::MyTerritory, NestLoc, Skylark_Male::OnMateLeaving(), Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveFemale(), Skylark_Male::SupplyBroodSize(), Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Step().

st_Immigrating()

bool Skylark_Female::st_Immigrating ( )

protected

An instantaneous state which determines the chanve of migration mortality. If she does die then she has to inform any old mate that she has gone. If he is already paired with another bird then can just forget him. If not dying then breeding success for this year is reset and the bird transitions to st_Arrival.

                                    {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (g_random_fnc(100) < GetMigrationMortality() || Age > 5)
    {
        if (MyMate != nullptr)
        {
            // if she has no mate she don't care
            // Otherwise he receives a bogus on Mate death message
            if (!MyMate->Paired)
            {
                //Not paired so he is told to forget her
                MyMate->OnMateNeverComesBack(this);
            }
            // He is paired so don't need to tell him anything - forget him
            // or have already told him so forget him anyway
            MyMate = nullptr;
#ifdef __CJTDebug_8
      if ( MyClutch != NULL )
        int rubbish = 0;
#endif
        }
        return false; // TransfertoState(Die)
    }
    ResetBreedingSuccess();
    m_BreedingAttempts = 0;
    m_pesticide_affected = -1; // reset the sprayed flag
    m_MinFemaleAcceptScore = cfg_FemaleMinTerritoryAcceptScore.value();
    return true; // TransferToState(Arrival)
}

References Skylark_Base::Age, cfg_FemaleMinTerritoryAcceptScore, g_random_fnc(), GetMigrationMortality(), m_BreedingAttempts, m_MinFemaleAcceptScore, Skylark_Adult::m_pesticide_affected, MyClutch, MyMate, Skylark_Male::OnMateNeverComesBack(), Skylark_Adult::Paired, ResetBreedingSuccess(), and CfgFloat::value().

Referenced by Step().

st_Incubating()

int Skylark_Female::st_Incubating ( )

protected

Incubation occurs as described in development below. The female spends that time off the nest required to find energy to cover her basal metabolic requirements, plus that energy required to warm the eggs. Incubation continues until the eggs hatch and there is a transition to Care For Young, or the incubation period (MID) is exceeded, at which point the female will Start New Brood. This state can only be left by a call to OnEggHatch being altered on creation of a nestling or to StartNewBrood

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
    // Must calculate time needed to feed
    // will ignore time off nest due to disturbance
    m_NestTime = 0;
    if (--m_Counter1 > 0)
    {
        // ExtraBroodHeat extra because of heat for eggs
        const double calories_needed = m_OurPopulationManager->SupplyEMi();
        int foodtime = CalcFoodTime(calories_needed);
        const int Daylength = m_OurLandscape->SupplyDaylength();
        const double rain = m_OurLandscape->SupplyRain();
        if (rain > MaxFeedRain) { m_toowet++; }
        if (m_toowet > 2)
        {
            //m_OurPopulationManager->WriteToTest2File( m_OurLandscape->SupplyDayInYear(), 1003 );
            return 3; //TransferToState(StartNewBrood);
        }
        if (foodtime > Daylength) foodtime = Daylength;
        m_NestTime = 24 * 60 - foodtime; //add night time
        return 0; // wait
    }
    //m_OurPopulationManager->WriteToTest2File( m_OurLandscape->SupplyDayInYear(), 1002 );
    return 3; // TransferToState(StartNewBrood);
}

References CalcFoodTime(), m_Counter1, m_NestTime, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, m_toowet, MaxFeedRain, Landscape::SupplyDaylength(), Skylark_Population_Manager::SupplyEMi(), and Landscape::SupplyRain().

Referenced by Step().

st_Laying()

TTypesOfSkState Skylark_Female::st_Laying ( )

protected

                                          {
    if (MyMate == nullptr)
    {
        g_msg->Warn(WARN_BUG, "Skylark_Female::st_Laying(): No mate!", "");
        exit(1);
    }
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Timing called Once each day
    // lays 1 egg per day until the correct number of eggs are laid
    // Counter1 must be set to -1 on first time called
    if (m_Counter1 == -1)
    {
        // If we have not calculated how many eggs we need do that
        m_Counter1 = CalculateEggNumber();
        m_EggNumber = m_Counter1;
#ifdef __PESTICIDE_RA_ADULT
        // If pesticide affected then breeding is delayed
        if (m_pesticide_affected > -1)
        {
            if (m_OurLandscape->SupplyPesticideType() == ttop_ReproductiveEffects)
            {
                if (m_OurLandscape->SupplyDayInYear() - m_pesticide_affected < 10) return toss_PreparingForBreeding;
            }
            else if (m_OurLandscape->SupplyPesticideType() == ttop_eggshellthinning)
            {
                if (cfg_skylark_pesticide_eggshellreduction_perclutch.value())
                {
                    if (g_rand_uni_fnc() <= cfg_skylark_pesticide_eggshellreduction.value()) m_EggNumber = 0;
                }
                else
                {
                    // This code assumes egg independence
                    for (int e = 0; e < m_EggNumber; e++)
                    {
                        if (g_rand_uni_fnc() <= cfg_skylark_pesticide_eggshellreduction.value()) m_EggNumber--;
                    }
                }
                if (m_EggNumber < 1)
                {
                    m_BreedingAttempts++;
                    return toss_PreparingForBreeding;
                }
            }
            m_Counter1 = m_EggNumber;
            // this is needed in case we adjusted the egg number (m_counter is used to count down the number of days of laying.
        }
#endif
        // This code is a special test for egg shell thickness effects - it can be linked to the pesticide effect above, or assumed to be 
        // a general effect
        if (cfg_skylark_pesticide_globaleggshellreduction.value() > 0.0 && m_OurLandscape->SupplyYearNumber() > 9)
        {
            /*      // This code assumes egg independence
                    for (int e = 0; e < m_EggNumber; e++)
                    {
                        if (g_rand_uni() <= cfg_skylark_pesticide_eggshellreduction.value()) m_Counter1--;
                    }
                    m_EggNumber = m_Counter1;
            */
            // this code assumes clutch effects of thin egg shells
            if (g_rand_uni_fnc() <= cfg_skylark_pesticide_globaleggshellreduction.value()) m_EggNumber = 0;
            if (m_EggNumber < 1)
            {
                m_BreedingAttempts++;
                return toss_PreparingForBreeding;
            }
        }
 
        // The line below counts breeding attempts as at least one egg
        m_BreedingAttempts++;
        auto cs = new skClutch_struct;
        cs->L = m_OurLandscape;
        cs->Mum = this;
        cs->No = 0;
        cs->Terrs = m_OurTerritories;
#ifdef FOR_DEMONSTRATION
    cs->x = m_Location_x + 3;
    cs->y = m_Location_y + 3;
#else
        cs->x = m_Location_x;
        cs->y = m_Location_y;
#endif
        cs->bx = m_Location_x;
        cs->by = m_Location_y;
        // This sets the veg type for ever for the life of this nest and any eggs it contains
        cs->mh = m_OurLandscape->SupplyVegType(m_Location_x, m_Location_y);
        if (cs->x >= m_OurPopulationManager->SupplySimW()) cs->x -= m_OurPopulationManager->SupplySimW();
        if (cs->y >= m_OurPopulationManager->SupplySimH()) cs->y -= m_OurPopulationManager->SupplySimH();
        m_OurPopulationManager->CreateObjects(0, this, nullptr, cs, 1);
        delete cs;
    }
    // Put an egg in the clutch
    MyClutch->AddEgg();
    if (--m_Counter1 == 0)
    {
        // All eggs must be laid
        m_Counter1 = 18; // This will count how many day spent incubating
        MyClutch->StartDeveloping();
        return toss_Incubating; //TransferToState(Incubation);
    }
    return toss_Laying;
}

References Skylark_Clutch::AddEgg(), CalculateEggNumber(), cfg_skylark_pesticide_eggshellreduction, cfg_skylark_pesticide_eggshellreduction_perclutch, cfg_skylark_pesticide_globaleggshellreduction, Skylark_Population_Manager::CreateObjects(), g_msg, g_rand_uni_fnc(), Skylark_struct::L, m_BreedingAttempts, m_Counter1, m_EggNumber, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, Skylark_Adult::m_pesticide_affected, MyClutch, MyMate, Skylark_Clutch::StartDeveloping(), Landscape::SupplyDayInYear(), Landscape::SupplyPesticideType(), Population_Manager_Base::SupplySimH(), Population_Manager_Base::SupplySimW(), Landscape::SupplyVegType(), Landscape::SupplyYearNumber(), ttop_eggshellthinning, ttop_ReproductiveEffects, CfgFloat::value(), CfgBool::value(), MapErrorMsg::Warn(), and WARN_BUG.

Referenced by Step().

st_MakingNest()

TTypesOfSkState Skylark_Female::st_MakingNest ( )

protected

Tests for the necessary territory quality, if OK finds a nest location and builds the nest. Nest attempts are assumed to be breeding attempts.

                                              {
#ifdef __PESTICIDE_RA_ADULT
    // If pesticide affected then breeding is delayed
    if (m_pesticide_affected > -1)
    {
        if (m_OurLandscape->SupplyDayInYear() - m_pesticide_affected < 10)
        {
            NestLoc = false;
            return toss_PreparingForBreeding;
        }
    }
#endif
 
    if (MyMate == nullptr)
    {
        g_msg->Warn(WARN_BUG, "Skylark_Female::st_MakingNest(): No mate!", "");
        exit(1);
    }
    const int today = m_OurLandscape->SupplyDayInYear();
    if (!NestLoc)
    {
        // First make a test whether territory is still OK
        const double qual = MyMate->Supply_TerritoryQual();
        if (qual < m_MinFemaleAcceptScore)
        {
            // May need to give up territory or might be because the crop has not
            // started growing in which case she will wait until May
            if (today >= June)
            {
                return toss_GivingUpTerritory; // GiveUpTerritory
            }
            return toss_MakingNest;
        }
 
        // Everything OK so find a nest location
        const bool valid = MyMate->SupplyNestValid();
        if (valid)
        {
            const APoint p = MyMate->SupplyNestLoc();
            m_Location_x = p.m_x;
            m_Location_y = p.m_y;
            // Must tell the male
            if (MyMate) MyMate->OnNestLocation(p.m_x, p.m_y);
        }
        else
        {
            if (today >= May + 14)
            {
                return toss_GivingUpTerritory; // GiveUpTerritory
            }
            return toss_MakingNest;
        }
        // The line below counts breeding attempts as nest building
        // the alternative is to count this from one egg laid in St_Laying()
        if (m_BreedingSuccess == -1) m_BreedingSuccess = 0; //Signal breeding was possible
        //m_BreedingAttempts++;
    }
    // Nest location must exist
    if (m_Counter1-- > 0) return toss_MakingNest;
    m_Counter1 = -1; // Code for deciding many days before laying starts
    return toss_Laying; //TransferToState Laying;
}

References g_msg, June, m_BreedingSuccess, m_Counter1, TAnimal::m_Location_x, TAnimal::m_Location_y, m_MinFemaleAcceptScore, TAnimal::m_OurLandscape, Skylark_Adult::m_pesticide_affected, APoint::m_x, APoint::m_y, May, MyMate, NestLoc, Skylark_Male::OnNestLocation(), Skylark_Male::Supply_TerritoryQual(), Landscape::SupplyDayInYear(), Skylark_Male::SupplyNestLoc(), Skylark_Male::SupplyNestValid(), MapErrorMsg::Warn(), and WARN_BUG.

Referenced by Step().

st_PreparingForBreeding()

int Skylark_Female::st_PreparingForBreeding ( )

protected

Builds up resources whilst waiting for good enough weather to begin nest building. Transitions to MakingNest or GiveUpTerritory (if too late in the season).

                                            {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Timing: Called once per day
    // EggCounter was set to Zero on leaving building up resources
    // Egg counter is the refraction period for producing the
    // eggs - nesbuilding time
    long today = m_OurLandscape->SupplyDayInYear();
    if (today > g_stopdate) return 2; // too late give up
    Resources += RemoveEM(GetFood(m_OurLandscape->SupplyDaylength()));
    if (EggCounter++ > 5)
    {
        //    if ( ( Resources < Breed_Res_Thresh2 ) || ( m_OurLandscape->SupplySnowcover() ) == true ) return 0; // snow or not enough resources
        if (m_OurLandscape->SupplySnowcover() == true) return 0; // snow
        // Check that the temp is above 5 for the last three days
        today = m_OurLandscape->SupplyGlobalDate();
        double t = m_OurLandscape->SupplyTemp(today);
        if (t < 5.0) return 0; // too cold
        t = m_OurLandscape->SupplyTemp(today - 1);
        if (t < 5.0) return 0; // too cold
        t = m_OurLandscape->SupplyTemp(today - 2);
        if (t < 5.0) return 0; // too cold
        // Everything is OK so build
        // takes one day less to build nest on first attempt (3 rather than 4)
        if (m_BreedingAttempts > 0) m_Counter1 = 4;
        else { m_Counter1 = 3; }
        return 1; // TransferToState(MakeNest)
    }
    return 0;
}

References EggCounter, g_stopdate, GetFood(), m_BreedingAttempts, m_Counter1, TAnimal::m_OurLandscape, Skylark_Adult::RemoveEM(), Resources, Landscape::SupplyDayInYear(), Landscape::SupplyDaylength(), Landscape::SupplyGlobalDate(), Landscape::SupplySnowcover(), and Landscape::SupplyTemp().

Referenced by Step().

st_StartingNewBrood()

int Skylark_Female::st_StartingNewBrood ( )

protected

Any current nests or clutches are removed. The female assesses the habitat quality of the territory. If still suitable (i.e. above MTQ) she will make a transition to Make Nest, otherwise she will go to Give Up Territory.

                                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    NestLoc = false;
    if (MyClutch)
    {
        MyClutch->OnMumGone();
        MyClutch = nullptr;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1009 );
#endif
    }
    const double qual = MyMate->Supply_TerritoryQual();
    if (qual < m_MinFemaleAcceptScore)
    {
        return 2; // transferToState(GiveUpTerritory)
    }
    if (m_BreedingAttempts < 4 && m_OurLandscape->SupplyDayInYear() < g_stopdate)
    {
        // Was July-4
        if (m_BreedingAttempts > 0) m_Counter1 = 4;
        else m_Counter1 = 3;
        m_toowet = 0;
        return 1; // TransferToState(MakeNest)
    }
    st_StoppingBreeding();
    return 3; // Transfer to state flocking
}

References g_stopdate, m_BreedingAttempts, m_Counter1, m_MinFemaleAcceptScore, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, m_toowet, MyClutch, MyMate, NestLoc, Skylark_Clutch::OnMumGone(), st_StoppingBreeding(), Skylark_Male::Supply_TerritoryQual(), Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Step().

st_StoppingBreeding()

int Skylark_Female::st_StoppingBreeding ( )

protected

Called when the female stops breeding for the year. Removes the pair bond and tell the male she is leaving. She deregisters her territory ownership and if there has been no breeding success then she forgets the male.

                                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (MyClutch)
    {
        MyClutch->OnMumGone();
        MyClutch = nullptr;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1010 );
#endif
    }
    // No longer paired
    Paired = false;
    // Tell the male you are leaving
    MyMate->OnMateLeaving();
    // if no breeding success then forget him
    if (!BSuccess) MyMate = nullptr;
    // de-register the territory ownership
    m_OurTerritories->RemoveFemale(MyTerritory.ref);
    MyTerritory.ref = -1; // No territory
    // TransferToState(Flocking)
    return 3;
}

References Skylark_Adult::BSuccess, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Adult::MyTerritory, Skylark_Male::OnMateLeaving(), Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveFemale(), Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by st_StartingNewBrood(), and Step().

st_TempLeavingArea()

int Skylark_Female::st_TempLeavingArea ( )

protected

Waits for one week of weather not classified as bad by Skylark_Adult::GetBadWeather

                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Timing - called once per day
    if (!GetBadWeather()) GoodWeather++;
    else GoodWeather = 0;
    if (GoodWeather >= 7) // Week of not terrible weather
    {
        return 1; // comeback to the area
    }
    return 0; // return value of 0 do nothing, 1 go to Arrival
}

References Skylark_Adult::GetBadWeather(), and Skylark_Adult::GoodWeather.

Referenced by Step().

Step()

void Skylark_Female::Step ( void  )

overridevirtual

Step behaviour - must be implemented in descendent classes.

Reimplemented from TALMaSSObject.

                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (m_StepDone || m_CurrentSkState == toss_Destroy) return;
#ifdef __CJTDebug_5
  if ( MyClutch ) {
    if ( MyClutch->Mother != this ) {
      g_land->Warn( "Skylark_Female::Step: DeBug5 ", NULL ); exit( 1 );
    }
  }
#endif
    switch (m_CurrentSkState)
    {
    case toss_Initiation: // Initial
        m_CurrentSkState = toss_FFlocking;
        break;
    case toss_FFlocking: // Flocking
        switch (st_Flocking())
        {
        case 1:
            // use 0,0 as a default location
            m_Location_x = 0;
            m_Location_y = 0;
            m_CurrentSkState = toss_FEmigrating; // -> Emigration
            break;
        }
        m_StepDone = true;
        break;
    case toss_FFloating: // Floating
        m_StepDone = true;
        break;
    case toss_FArriving: // Arriving - instant
        if (st_Arriving()) m_CurrentSkState = toss_FFindingTerritory; // -> find terr.
        else { m_CurrentSkState = toss_FTempLeavingArea; }
        m_StepDone = true;
        break;
    case toss_FImmigrating: // Immigration - instant
        if (st_Immigrating()) m_CurrentSkState = toss_FArriving; // -> arrival
        else
        {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Female::Step() : st_Immigrating() : %d\n", ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_FDying; // -> die
        }
        break;
    case toss_FEmigrating: // Emigration
        if (st_Emigrating() == 1) m_CurrentSkState = toss_FImmigrating; // -> immigr.
        m_StepDone = true;
        break;
    case toss_FTempLeavingArea: // temp.leave.area
        if (st_TempLeavingArea()) m_CurrentSkState = toss_FArriving; // -> arrival
        m_StepDone = true;
        break;
    case toss_FFindingTerritory: // FindingTerritory
        switch (st_Finding_Territory())
        {
        case 1:
            m_CurrentSkState = toss_BuildingUpResources; // -> building res.
#ifdef __CJTDebug_5
          if ( !Paired ) {
            g_land->Warn( "Skylark_Female::Step: !Paired ", NULL ); exit( 1 );
          }
#endif
            break;
        case 2:
            // Should never be paired here
            m_CurrentSkState = toss_FFloating; // -> floating
            break;
        case 3:
            m_CurrentSkState = toss_FTempLeavingArea;
            break;
        }
        m_StepDone = true; // will now go one to EndStep
        break;
    case toss_BuildingUpResources: // Building Resources
#ifdef __CJTDebug_5
        if ( !Paired ) {
        g_land->Warn( "Skylark_Female::Step: !Paired ", NULL ); exit( 1 );
      }
#endif
        switch (st_BuildingUpResources())
        {
        case 1:
            m_CurrentSkState = toss_PreparingForBreeding; // -> prepare for breed.
            break;
        case 2:
            m_CurrentSkState = toss_GivingUpTerritory; // -> give up territory
            break;
        }
        m_StepDone = true;
        break;
    case toss_MakingNest: // Making nest
        m_CurrentSkState = st_MakingNest();
        m_StepDone = true; // will now go one to EndStep
        break;
    case toss_PreparingForBreeding: // PreparingForBreeding
#ifdef __CJTDebug_5
      if ( !Paired ) {
        g_land->Warn( "Skylark_Female::Step: !Paired ", NULL ); exit( 1 );
      }
#endif
        switch (st_PreparingForBreeding())
        {
        case 0: // Do nothing
            break;
        case 1:
            m_CurrentSkState = toss_MakingNest; // -> make nest
            NestLoc = false; // no nest location yet
            break;
        case 2: // Too late -> give up for this year
            m_CurrentSkState = toss_GivingUpTerritory;
            break;
        }
        m_StepDone = true; // will now go one to EndStep
        break;
    case toss_Laying: // Laying
        m_CurrentSkState = st_Laying();
        if (m_CurrentSkState == toss_Incubating) m_toowet = 0;
        m_StepDone = true;
        break;
    case toss_StartingNewBrood: // StartingNewBrood
        switch (st_StartingNewBrood())
        {
        case 1:
            m_CurrentSkState = toss_MakingNest; // -> make nest
            break;
        case 2:
            m_CurrentSkState = toss_GivingUpTerritory; // -> give up terr.
            break;
        case 3:
            m_CurrentSkState = toss_FFlocking; // -> flocking
            break;
        }
        m_StepDone = true; // will now go one to EndStep
        break;
    case toss_EggHatching: // EggHatching - happens after the young hatch at 1 min to midnight
        if (st_EggHatching()) m_CurrentSkState = toss_FCaringForYoung; // -> care for young
        m_StepDone = true;
        break;
    case toss_Incubating: // Incubation
        switch (st_Incubating())
        {
        case 1:
            {
                g_land->Warn("Skylark_Female::Step: EggHatching ", nullptr);
                exit(1);
            }
        //m_CurrentSkState=35; // -> egg hatch
            break;
        case 2:
            g_land->Warn("Skylark_Female::Step: Illegal Return Value ", nullptr);
            exit(1);
        case 3:
            m_CurrentSkState = toss_StartingNewBrood; // -> start new brood
            MyClutch->OnMumGone();
            MyClutch = nullptr;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1004 );
#endif
            break;
        }
        m_StepDone = true; // will now go one to EndStep
        break;
    case toss_StoppingBreeding: // StopBreed. - instant
        if (st_StoppingBreeding())
        {
            m_CurrentSkState = toss_FFlocking; // -> flocking
        }
        break;
    case toss_FDying: // Dying
        st_Dying();
        m_StepDone = true;
        break;
    case toss_GivingUpTerritory: // giving up terr. - one day
        if (st_GivingUpTerritory() == 1) m_CurrentSkState = toss_FFloating; // -> floating
        m_StepDone = true;
        break;
    default:
        const string st = m_OurPopulationManager->SupplyStateNames(m_CurrentSkState);
        g_land->Warn("Skylark_Female::Step: Unknown State", st.c_str());
        exit(1);
    }
}

References Calendar::Date(), g_date, g_land, Skylark_Base::m_CurrentSkState, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, TALMaSSObject::m_StepDone, m_toowet, Skylark_Clutch::Mother, MyClutch, NestLoc, Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, st_Arriving(), st_BuildingUpResources(), st_Dying(), st_EggHatching(), st_Emigrating(), st_Finding_Territory(), st_Flocking(), st_GivingUpTerritory(), st_Immigrating(), st_Incubating(), st_Laying(), st_MakingNest(), st_PreparingForBreeding(), st_StartingNewBrood(), st_StoppingBreeding(), st_TempLeavingArea(), Landscape::SupplyDayInYear(), Population_Manager::SupplyStateNames(), Landscape::Warn(), and Skylark_Population_Manager::WriteSKPOM1().

Supply_BreedingAttempts()

int Skylark_Female::Supply_BreedingAttempts

(

)

const

                                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    return m_BreedingAttempts;
}

References m_BreedingAttempts.

Supply_BreedingSuccess()

int Skylark_Female::Supply_BreedingSuccess

(

)

const

                                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    return m_BreedingSuccess;
}

References m_BreedingSuccess.

Supply_NestTime()

int Skylark_Female::Supply_NestTime ( ) const

inline

{ return m_NestTime; }

Referenced by Skylark_Clutch::st_Developing().

SupplyMyClutch()

Skylark_Clutch* Skylark_Female::SupplyMyClutch ( ) const

inline

{ return MyClutch; }

Referenced by Skylark_Clutch::Step().

Member Data Documentation

EggCounter

int Skylark_Female::EggCounter

protected

Referenced by st_BuildingUpResources(), st_GivingUpTerritory(), and st_PreparingForBreeding().

m_BreedingAttempts

int Skylark_Female::m_BreedingAttempts

protected

Referenced by CalculateEggNumber(), ReInit(), Skylark_Female(), st_Immigrating(), st_Laying(), st_PreparingForBreeding(), st_StartingNewBrood(), and Supply_BreedingAttempts().

m_BreedingSuccess

int Skylark_Female::m_BreedingSuccess

protected

Referenced by ResetBreedingSuccess(), st_MakingNest(), and Supply_BreedingSuccess().

m_Counter1

int Skylark_Female::m_Counter1

protected

Referenced by OnBroodDeath(), OnClutchDeath(), st_Incubating(), st_Laying(), st_MakingNest(), st_PreparingForBreeding(), and st_StartingNewBrood().

m_EggNumber

int Skylark_Female::m_EggNumber

protected

Referenced by st_Laying().

m_MinFemaleAcceptScore

double Skylark_Female::m_MinFemaleAcceptScore

protected

Referenced by BeginStep(), ReInit(), Skylark_Female(), st_BuildingUpResources(), st_Finding_Territory(), st_Immigrating(), st_MakingNest(), and st_StartingNewBrood().

m_NestTime

int Skylark_Female::m_NestTime

protected

Referenced by FeedYoung(), and st_Incubating().

m_pesticide_sprayed_die

bool Skylark_Female::m_pesticide_sprayed_die

protected

m_toowet

int Skylark_Female::m_toowet

protected

Referenced by st_EggHatching(), st_Incubating(), st_StartingNewBrood(), and Step().

MyClutch

Skylark_Clutch* Skylark_Female::MyClutch

protected

Referenced by OnBroodDeath(), OnClutchDeath(), OnEggsHatch(), OnMateDying(), OnMateHomeless(), ReInit(), Skylark_Female(), st_Dying(), st_GivingUpTerritory(), st_Immigrating(), st_Laying(), st_StartingNewBrood(), st_StoppingBreeding(), and Step().

MyMate

Skylark_Male* Skylark_Female::MyMate

Referenced by EstablishTerritory(), FeedYoung(), GetFood(), OnEggsHatch(), OnMaleNeverComesBack(), OnMateDying(), OnMateHomeless(), ReInit(), Skylark_Female(), st_BuildingUpResources(), st_CaringForYoung(), st_Dying(), Skylark_Male::st_Dying(), st_Finding_Territory(), st_GivingUpTerritory(), Skylark_Clutch::st_Hatching(), st_Immigrating(), st_Laying(), st_MakingNest(), st_StartingNewBrood(), and st_StoppingBreeding().

NestLoc

bool Skylark_Female::NestLoc

protected

Referenced by st_CaringForYoung(), st_GivingUpTerritory(), st_MakingNest(), st_StartingNewBrood(), and Step().

Resources

double Skylark_Female::Resources

protected

Referenced by EstablishTerritory(), and st_PreparingForBreeding().

---

The documentation for this class was generated from the following files:

• /builds/ALMaSS/ALMaSS_MIDox/Skylark/skylarks_all.h
• /builds/ALMaSS/ALMaSS_MIDox/Skylark/skylarks_all.cpp