Skylark_Male Class Reference

#include <skylarks_all.h>

Public Member Functions
	Skylark_Male (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual	~Skylark_Male ()
virtual void	ReInit (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	BeginStep (void)
	BeingStep behaviour - must be implemented in descendent classes. More...
virtual void	Step (void)
	Step behaviour - must be implemented in descendent classes. More...
virtual void	EndStep (void)
	EndStep behaviour - must be implemented in descendent classes. More...
bool	OnEvicted ()
int	SupplyNoHabitatRefs ()
int	SupplyBroodSize ()
int	SupplyBroodAge (int n)
double	Supply_TerritoryQual ()
int	SupplyBroodWeight (int n)
double	OnFoodMessage (int n, double f)
void	OnAddNestling (Skylark_Nestling *N)
void	OnAddPreFledgeling (Skylark_PreFledgeling *P, Skylark_Nestling *N)
skTerritory_struct	Supply_Territory ()
int	DefendTerritory ()
void	OnEggHatch ()
void	OnMateDying ()
void	OnMateLeaving ()
void	OnPairing (Skylark_Female *female)
void	OnBroodDeath ()
void	OnNestLocation (int x, int y)
void	OnNestlingDeath (Skylark_Nestling *N)
void	OnPreFledgelingDeath (Skylark_PreFledgeling *P)
void	OnPreFledgelingMature (Skylark_PreFledgeling *P)
void	OnMateNeverComesBack (Skylark_Female *AFemale)
void	OnNestPredatation ()
void	OnBroodDesertion ()
void	OnReHouse ()
void	SensibleCopy ()
bool	SupplyNestValid ()
APoint	SupplyNestLoc ()
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)
virtual	~Skylark_Adult ()
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 (int lifestage)
virtual int	WhatState ()
bool	InSquare (rectangle R)
Public Member Functions inherited from TAnimal
unsigned	SupplyFarmOwnerRef ()
AnimalPosition	SupplyPosition ()
APoint	SupplyPoint ()
int	SupplyPolygonRef ()
int	Supply_m_Location_x ()
int	Supply_m_Location_y ()
virtual void	KillThis ()
virtual void	CopyMyself ()
void	SetX (int a_x)
void	SetY (int a_y)
	TAnimal (int x, int y, Landscape *L)
virtual void	ReinitialiseObject (int x, int y, Landscape *L)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual void	Dying ()
void	CheckManagement (void)
void	CheckManagementXY (int x, int y)
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo ()
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone ()
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
virtual void	ReinitialiseObject ()
	Used to re-use an object - must be implemented in descendent classes. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()
	The destructor for TALMaSSObject. More...
void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...

Public Attributes
Skylark_Female *	MyMate
int	BroodAge
vector< int >	m_HabitatTable_PNum
vector< int >	m_HabitatTable_Size
vector< double >	m_InsectTable
bool	HaveTerritory
Public Attributes inherited from Skylark_Adult
bool	Paired
Public Attributes inherited from Skylark_Base
double	m_pesticide_accumulation
double	m_pcide_conc
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 ()
TTypesOfSkState	st_Floating ()
bool	st_Arriving ()
bool	st_Immigrating ()
int	st_Emigrating ()
int	st_TempLeavingArea ()
int	st_FindingTerritory ()
int	st_AttractingAMate ()
int	st_FollowingMate ()
void	ConstructAHabitatTable ()
int	EstablishingATerritory ()
int	st_ScaringOffChicks ()
int	st_CaringForYoung ()
void	st_Dying ()
void	ReEvaluateTerritory ()
	Daily re-evaluation of territory. More...
double	GetFood (int time)
void	OptimiseHabitatSearchingOrder ()
int	GetMigrationMortality ()
virtual bool	OnFarmEvent (FarmToDo event)
virtual void	PesticideResponse ()
Protected Member Functions inherited from Skylark_Adult
virtual double	RemoveEM (double food)
double	GetVegHindrance (int PolyRef)
double	GetWeatherHindrance ()
bool	GetBadWeather ()
	Extreme weather conditions check. More...
Protected Member Functions inherited from Skylark_Base
bool	DailyMortality (int mort)
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Protected Attributes
double	m_XFNestAcceptScore
bool	m_firstPF
int	GoodWeather
int	m_BroodSize
Skylark_Nestling *	m_Brood [26]
int	No_HabitatTable_Refs
int	m_MyMinTerritoryQual
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
int	m_Location_y
Landscape *	m_OurLandscape
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...

Constructor & Destructor Documentation

Skylark_Male()

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

The Male constructor. This initialises some important parameters.

There is some individual variation around the territory acceptance score, up to 10% max

                                                              : Skylark_Adult(x, y, size, age, Terrs, L, SPM, bx, by, mh) {
    GoodWeather = 0;
    HaveTerritory = false;
    MyMate = NULL;
    m_BroodSize = 0; // don't start life with chicks!
    BSuccess = false;
    m_firstPF = false;
    m_MyMinTerritoryQual = (int)(cfg_FemaleMinTerritoryAcceptScore.value() *  (g_rand_uni() / 10.0 + 1.0)); //= 1.0 to 1.1
    m_XFNestAcceptScore = m_MyMinTerritoryQual * (double)(g_rand_uni() + 2.1);
    for (int i = 0; i < 6; i++) m_Brood[i] = NULL;
}

References Skylark_Adult::BSuccess, cfg_FemaleMinTerritoryAcceptScore, g_rand_uni, GoodWeather, HaveTerritory, m_Brood, m_BroodSize, m_firstPF, m_MyMinTerritoryQual, m_XFNestAcceptScore, and MyMate.

~Skylark_Male()

Skylark_Male::~Skylark_Male ( )

virtual

                            {
}

Member Function Documentation

BeginStep()

void Skylark_Male::BeginStep ( void  )

virtual

BeingStep behaviour - must be implemented in descendent classes.

Reimplemented from TAnimal.

                             {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
  if ( m_CurrentSkState == toss_Destroy ) return;
  CheckManagement();
 
  switch ( m_CurrentSkState ) {
    case toss_MFloating: // Floating
      m_CurrentSkState=st_Floating(); // Legal returns are toss_MFlocking, toss_MFindingTerritory, toss_MTempLeavingArea
      m_StepDone = true;
    break;
    case toss_MCaringForYoung: // CaringForYoung
      if ( st_CaringForYoung() )
        m_CurrentSkState = toss_ScaringOffChicks; //ScareOffChicks
      m_StepDone = true;
    case toss_AttractingAMate:
    case toss_ScaringOffChicks:
    case toss_FollowingMate:
        ReEvaluateTerritory();
    break;
    default:
      /* char errornum[20]; sprintf(errornum, "%d", m_CurrentSkState );
      g_land->Warn("Skylark_Male::BeginStep(): Unknown state: ", errornum); exit(0); */
    break;
  }
}

References TAnimal::CheckManagement(), Skylark_Base::m_CurrentSkState, TALMaSSObject::m_StepDone, ReEvaluateTerritory(), st_CaringForYoung(), st_Floating(), toss_AttractingAMate, toss_Destroy, toss_FollowingMate, toss_MCaringForYoung, toss_MFloating, and toss_ScaringOffChicks.

ConstructAHabitatTable()

void Skylark_Male::ConstructAHabitatTable ( )

protected

                                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // This function must be called when the female arrives and
  // again when the eggs first hatch
  // This function constructs a table listing
  // the reference of each habitat object
  // and the area of that object within the skylarks home range
  // First must find out which habitats are in HomeRange
  // this is done by searching the landscape raster and counting how many
  // 1 meter areas are present for each habitat object
 
  // These days this is easy, as the information is already
  // available in the territory as a pre-chewed list provided
  // for this very use by PreProcessLandscape2()! :-)
  skTTerritory * l_terr = m_OurTerritories->Supply_terr( MyTerritory.ref );
  int l_polys = (int)l_terr->m_hr_polys.size();
#ifdef __PESTICIDE_RA
  m_PConcTable.resize(l_polys);
#endif
  m_HabitatTable_PNum.resize(l_polys);
  m_HabitatTable_Size.resize(l_polys);
  m_InsectTable.resize(l_polys);
  for ( int i = 0; i < l_polys; i++ ) {
    m_HabitatTable_PNum[ i ] = l_terr->m_hr_polys[ i ];
    m_HabitatTable_Size[ i ] = l_terr->m_hr_sizes[ i ];
  }
  No_HabitatTable_Refs = l_polys;
}

References m_HabitatTable_PNum, m_HabitatTable_Size, skTTerritory::m_hr_polys, skTTerritory::m_hr_sizes, m_InsectTable, Skylark_Base::m_OurTerritories, Skylark_Adult::MyTerritory, No_HabitatTable_Refs, skTerritory_struct::ref, and SkTerritories::Supply_terr().

Referenced by OnPairing().

DefendTerritory()

int Skylark_Male::DefendTerritory

(

)

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  if ( ( Paired == true ) || ( BSuccess == true ) ) return 999; // very old
  else
    return Age; //can't be ousted if paired or owned the territory before
}

References Skylark_Base::Age, Skylark_Adult::BSuccess, and Skylark_Adult::Paired.

Referenced by st_FindingTerritory().

EndStep()

void Skylark_Male::EndStep ( void  )

virtual

EndStep behaviour - must be implemented in descendent classes.

Reimplemented from TAnimal.

                           {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_CurrentSkState == toss_Destroy ) return;
#ifdef __PESTICIDE_RA
  PesticideResponse();
#endif
}

References Skylark_Base::m_CurrentSkState, PesticideResponse(), and toss_Destroy.

EstablishingATerritory()

int Skylark_Male::EstablishingATerritory ( )

protected

                                         {
/*
The male claims the territory, primarily a programming construct, but resulting in the male being registered as occupying the territory.<br>
*/
 
#ifdef __CJTDebug_5
    if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    m_aTerrlist->clear();
    // Stand in the centre.
    m_Location_x = MyTerritory.x + ( MyTerritory.size / 2 );
    if ( m_Location_x >= m_OurPopulationManager->SimW ) m_Location_x = m_Location_x % m_OurPopulationManager->SimW;
    m_Location_y = MyTerritory.y + ( MyTerritory.size / 2 );
    if ( m_Location_y >= m_OurPopulationManager->SimH ) m_Location_y = m_Location_y % m_OurPopulationManager->SimH;
    // claim occupation
    m_OurTerritories->Occupy( MyTerritory.ref, this );
    HaveTerritory = true;
    return 0; // TransferToState(AttractMate)
}

References HaveTerritory, Skylark_Adult::m_aTerrlist, TAnimal::m_Location_x, TAnimal::m_Location_y, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, Skylark_Adult::MyTerritory, SkTerritories::Occupy(), skTerritory_struct::ref, Population_Manager::SimH, Population_Manager::SimW, skTerritory_struct::size, skTerritory_struct::x, and skTerritory_struct::y.

Referenced by OnReHouse(), and Step().

GetFood()

double Skylark_Male::GetFood ( int  time )

protected

                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
#ifdef __CJTDebug_4
  if ( No_HabitatTable_Refs > 250 )
    OnArrayBoundsError();
#endif
  // This must be called each day before the female's code is executed
  double food = 0;
  // First find out how much food is available from each habitat
  // Note that the pesticide risk assessment code is integrated here.
  // Stage 1 create the insect data
  for ( int i = 0; i < No_HabitatTable_Refs; i++ ) {
    // Insects = Insects * Hindrance
    // Insect table holds insects per squaremetre
#ifdef __PESTICIDE_RA
      m_PConcTable[i] = m_OurLandscape->SupplyPesticide( m_HabitatTable_PNum[ i ], ppp_1 );
#endif
    double WHindrance = GetWeatherHindrance();
    double hind = GetVegHindrance( m_HabitatTable_PNum[ i ] );
    double insects = m_OurLandscape->SupplyInsects( m_HabitatTable_PNum[ i ] );
    // Insects = Insects * Hindrance
    // Insect table holds insects per squaremetre
    m_InsectTable[ i ] = insects * hind * WHindrance;
  }
  // Now sort habitats into optimal searching order (i.e. most insect/m2)
  OptimiseHabitatSearchingOrder();
  // Now extract insects available from each for as long as spends searching
  int index = 0;
  // Note at present this routine assumes that 1 min is spent per m2
  // if this assumption is changed then we must alter 'time' accordingly
#ifdef __PESTICIDE_RA
  m_pcide = 0.0;
#endif
  double fd;
  while ( time > 0 ) {
      int area = m_HabitatTable_Size[ index ];
    if ( time >  area) {
      time -= area;
      // Food+= area*WeatherHindrance*ExtractionEfficiency*Insects per m2
      fd = area * MyExtractEff * m_InsectTable[ index ];
      food += fd;
#ifdef __PESTICIDE_RA
      m_pcide += fd * m_PConcTable[ index ] * KcalPerGInsect_kg_inv; // Needs converting from kcal to mg;
#endif
      index++;
#ifdef __CJTDebug_4
      if ( index > 249 )
        OnArrayBoundsError();
#endif
    } else {
      // Food+=
      // minutes left*WeatherHindrance*ExtractionEfficiency*Insects per m2
      fd = time * MyExtractEff * m_InsectTable[ index ];
      food += fd;
#ifdef __PESTICIDE_RA
      m_pcide +=  m_PConcTable[ index ] * time  * KcalPerGInsect_kg_inv; // Needs converting from kcal to mg;
#endif
      time = 0;
    }
  }
  return food;
}

References Skylark_Adult::GetVegHindrance(), Skylark_Adult::GetWeatherHindrance(), KcalPerGInsect_kg_inv, m_HabitatTable_PNum, m_HabitatTable_Size, m_InsectTable, TAnimal::m_OurLandscape, Skylark_Adult::MyExtractEff, No_HabitatTable_Refs, TALMaSSObject::OnArrayBoundsError(), OptimiseHabitatSearchingOrder(), ppp_1, Landscape::SupplyInsects(), and Landscape::SupplyPesticide().

Referenced by st_CaringForYoung(), and st_FollowingMate().

GetMigrationMortality()

int Skylark_Male::GetMigrationMortality ( )

protected

                                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  Age++;
  if ( Age == 1 ) return JuvenileReturnMort;
  return m_OurPopulationManager->SupplyM_Mig_Mort();
}

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

Referenced by st_Immigrating().

OnAddNestling()

void Skylark_Male::OnAddNestling

(

Skylark_Nestling *

N

)

                                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // Add nestling and record the new brood member
  m_Brood[ m_BroodSize++ ] = N;
#ifdef __CJTDebug_4
  if ( m_BroodSize > 25 ) {
    OnArrayBoundsError();
  }
#endif
}

References m_Brood, m_BroodSize, and TALMaSSObject::OnArrayBoundsError().

Referenced by Skylark_Population_Manager::CreateObjects().

OnAddPreFledgeling()

void Skylark_Male::OnAddPreFledgeling	(	Skylark_PreFledgeling *	P,
		Skylark_Nestling *	N
	)

                                                                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // Must now replace nestling pointer with one to the new object
  int n = -1;
  for ( int i = 0; i < m_BroodSize; i++ ) {
    if ( N == m_Brood[ i ] ) n = i;
  }
  if ( n == -1 ) {
    // Very nasty problems
    g_land->Warn( "Skylark_Male::Step: Maturing PreFl. not in Male's list", NULL );
    exit( 1 );
  }
  m_Brood[ n ] = P;
  if ( !m_firstPF ) {
    MyMate->OnBreedSuccess();
  }
  m_firstPF = true;
}

References g_land, m_Brood, m_BroodSize, m_firstPF, MyMate, Skylark_Female::OnBreedSuccess(), and Landscape::Warn().

Referenced by Skylark_Population_Manager::CreateObjects().

OnBroodDeath()

void Skylark_Male::OnBroodDeath

(

)

                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  for ( int i = 0; i < m_BroodSize; i++ ) m_Brood[ i ] = NULL;
  m_BroodSize = 0;
  if ( Paired ) {
    m_CurrentSkState = toss_FollowingMate; // Follow mate
    MyMate->OnBroodDeath();
  } else if ( HaveTerritory ) m_CurrentSkState = toss_AttractingAMate;
  else {
    m_CurrentSkState = toss_MFlocking;
  }
}

References HaveTerritory, m_Brood, m_BroodSize, Skylark_Base::m_CurrentSkState, MyMate, Skylark_Female::OnBroodDeath(), Skylark_Adult::Paired, toss_AttractingAMate, toss_FollowingMate, and toss_MFlocking.

Referenced by OnBroodDesertion(), OnNestlingDeath(), OnNestPredatation(), and OnPreFledgelingDeath().

OnBroodDesertion()

void Skylark_Male::OnBroodDesertion

(

)

                                    {
  for ( int i = 0; i < m_BroodSize; i++ ) {
    m_Brood[ i ]->OnDeserted();
  }
  m_BroodSize = 0;
  OnBroodDeath();
}

References m_Brood, m_BroodSize, OnBroodDeath(), and Skylark_Nestling::OnDeserted().

OnEggHatch()

void Skylark_Male::OnEggHatch

(

)

                              {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // NB this must not occur if there are still chicks to scare off -
  // if it does then they are left in limbo!
  // Brood information is already put here by CreatObjects
#ifdef __CJTDebug_7
  if ( m_BroodSize < 1 ) {
    g_land->Warn( "Skylark_Male::OnEggHatch: DeBug7 ", NULL ); exit( 1 );
  }
#endif
  m_CurrentSkState = toss_MCaringForYoung; // TransferToState(CareForYoung);
}

References g_land, m_BroodSize, Skylark_Base::m_CurrentSkState, toss_MCaringForYoung, and Landscape::Warn().

Referenced by Skylark_Female::OnEggsHatch().

OnEvicted()

bool Skylark_Male::OnEvicted

(

)

                             {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // returns true if evicted or otherwise false
  if ( !Paired ) {
      m_aTerrlist->clear();
      m_OurPopulationManager->TheSkylarkTerrs->GetTerritoriesByDistance(MyTerritory.x, MyTerritory.y, m_aTerrlist);
      m_OurTerritories->RemoveMale( MyTerritory.ref );
      MyTerritory.ref = -1;
      HaveTerritory = false;
      m_CurrentSkState = toss_MFindingTerritory;
      return true;
  } else return false; // can't evict I'm paired
}

References SkTerritories::GetTerritoriesByDistance(), HaveTerritory, Skylark_Adult::m_aTerrlist, Skylark_Base::m_CurrentSkState, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, Skylark_Adult::MyTerritory, Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveMale(), Skylark_Population_Manager::TheSkylarkTerrs, toss_MFindingTerritory, skTerritory_struct::x, and skTerritory_struct::y.

Referenced by st_FindingTerritory().

OnFarmEvent()

bool Skylark_Male::OnFarmEvent ( FarmToDo  event )

protectedvirtual

Reimplemented from TAnimal.

                                               {
  switch ( event ) {
    case sleep_all_day:
    break;
    case autumn_plough:
    break;
    case autumn_harrow:
    break;
    case autumn_roll:
    break;
    case autumn_sow:
    break;
    case winter_plough:
    break;
    case deep_ploughing:
    break;
    case spring_plough:
    break;
    case spring_harrow:
    break;
    case spring_roll:
    break;
    case spring_sow:
    break;
    case fp_npks:
    break;
    case fp_npk:
    break;
    case fp_pk:
    break;
    case fp_liquidNH3:
    break;
    case fp_slurry:
    break;
    case fp_manganesesulphate:
    break;
    case fp_manure:
    break;
    case fp_greenmanure:
    break;
    case fp_sludge:
    break;
    case fa_npk:
    break;
    case fa_pk:
    break;
    case fa_slurry:
    break;
    case fa_ammoniumsulphate:
    break;
    case fa_manure:
    break;
    case fa_greenmanure:
    break;
    case fa_sludge:
    break;
    case herbicide_treat:
    break;
    case growth_regulator:
    break;
    case fungicide_treat:
    break;
    case insecticide_treat:
    case trial_insecticidetreat:
    break;
    case syninsecticide_treat:
      if ( random( 1000 ) < cfg_insecticide_direct_mortM.value() ) {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Male::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
        m_CurrentSkState = toss_MDying;
      }
    break;
    case molluscicide:
    break;
    case row_cultivation:
    break;
    case strigling:
    break;
    case hilling_up:
    break;
    case water:
    break;
    case swathing:
    break;
    case harvest:
    break;
    case cattle_out:
    case cattle_out_low:
    break;
    case cut_to_hay:
    break;
    case cut_to_silage:
    break;
    case straw_chopping:
    break;
    case hay_turning:
    break;
    case hay_bailing:
    break;
    case stubble_harrowing:
    break;
    case autumn_or_spring_plough:
    break;
    case burn_straw_stubble:
    break;
    case mow:
    break;
    case cut_weeds:
    break;
    case pigs_out:
    break;
    case strigling_sow:
    break;
    case product_treat:
    break;
    case glyphosate:
    break;
    default:
      g_land->Warn( "Skylark_Male::OnFarmEvent(): ""Unknown event type:", m_OurLandscape->EventtypeToString( event ) );
      exit( 1 );
  }
  if ( m_CurrentSkState == toss_MDying ) return true; else
    return false;
}

References autumn_harrow, autumn_or_spring_plough, autumn_plough, autumn_roll, autumn_sow, burn_straw_stubble, cattle_out, cattle_out_low, cfg_insecticide_direct_mortM, cut_to_hay, cut_to_silage, cut_weeds, deep_ploughing, Landscape::EventtypeToString(), fa_ammoniumsulphate, fa_greenmanure, fa_manure, fa_npk, fa_pk, fa_sludge, fa_slurry, fp_greenmanure, fp_liquidNH3, fp_manganesesulphate, fp_manure, fp_npk, fp_npks, fp_pk, fp_sludge, fp_slurry, fungicide_treat, g_land, glyphosate, growth_regulator, harvest, hay_bailing, hay_turning, herbicide_treat, hilling_up, insecticide_treat, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, molluscicide, mow, pigs_out, product_treat, row_cultivation, sleep_all_day, spring_harrow, spring_plough, spring_roll, spring_sow, straw_chopping, strigling, strigling_sow, stubble_harrowing, swathing, syninsecticide_treat, toss_MDying, trial_insecticidetreat, Landscape::Warn(), water, and winter_plough.

OnFoodMessage()

double Skylark_Male::OnFoodMessage ( int  n, double  f  )

inline

  {
   double extra = m_Brood[n]->On_FoodSupply( f );
    return extra;
  }

References Skylark_Nestling::On_FoodSupply().

Referenced by Skylark_Female::FeedYoung().

OnMateDying()

void Skylark_Male::OnMateDying

(

)

                               {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // Brood size is reduced to zero because he forgets about the young
  // So must also tell them to forget him
  for ( int i = 0; i < m_BroodSize; i++ ) {
    m_Brood[ i ]->OnDadDead();
    m_Brood[ i ] = NULL;
 
  }
  m_BroodSize = 0;
  MyMate = NULL;
  Paired = false;
  BSuccess = false;
  int today = m_OurLandscape->SupplyDayInYear();
  if ( today >= g_stopdate ) {
      m_CurrentSkState = toss_MFlocking;
  }
  else m_CurrentSkState = toss_AttractingAMate; // TransferToState(AttractAMate);
}

References Skylark_Adult::BSuccess, g_stopdate, m_Brood, m_BroodSize, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, MyMate, Skylark_Nestling::OnDadDead(), Skylark_Adult::Paired, Landscape::SupplyDayInYear(), toss_AttractingAMate, and toss_MFlocking.

Referenced by Skylark_Population_Manager::Catastrophe(), and Skylark_Female::st_Dying().

OnMateLeaving()

void Skylark_Male::OnMateLeaving

(

)

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // Brood size is reduced to zero because he forgets about the young
  // He must tell them to forget about him as well
  for ( int i = 0; i < m_BroodSize; i++ ) {
    m_Brood[ i ]->OnDadDead(); // OK he is lying
    m_Brood[ i ] = NULL;
  }
  m_BroodSize = 0;
  if ( !BSuccess ) {
    // She has left him, so in this case he gives up
    MyMate = NULL;
    double qual = m_OurTerritories->Supply_terr( MyTerritory.ref )->GetQuality();
    // Store the quality for today so the female can read it
    if (( m_OurLandscape->SupplyDayInYear() < g_stopdate ) && (qual > m_MyMinTerritoryQual))
    {
        MyTerritory.nqual = qual;
        m_CurrentSkState = toss_AttractingAMate; // TransferToState(AttractAMate);
    }
    else
    {
      // Too late to try again
      m_CurrentSkState = toss_MFlocking;
      HaveTerritory = false;
      // Must de-register himself as territory owner
      m_OurTerritories->RemoveMale( MyTerritory.ref );
      // Just to be sure we can set the ref to -1 = no territory
      MyTerritory.ref = -1;
    }
  } else {
    // She has stopped breeding for the year
    m_CurrentSkState = toss_MFlocking; // TransferToState(Flocking);
    HaveTerritory = false;
    // Must de-register himself as territory owner
    m_OurTerritories->RemoveMale( MyTerritory.ref );
    // Just to be sure we can set the ref to -1 = no territory
    MyTerritory.ref = -1;
  }
  // In all cases
  Paired = false;
}

References Skylark_Adult::BSuccess, g_stopdate, skTTerritory::GetQuality(), HaveTerritory, m_Brood, m_BroodSize, Skylark_Base::m_CurrentSkState, m_MyMinTerritoryQual, TAnimal::m_OurLandscape, Skylark_Base::m_OurTerritories, MyMate, Skylark_Adult::MyTerritory, skTerritory_struct::nqual, Skylark_Nestling::OnDadDead(), Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveMale(), SkTerritories::Supply_terr(), Landscape::SupplyDayInYear(), toss_AttractingAMate, and toss_MFlocking.

Referenced by Skylark_Female::st_GivingUpTerritory(), and Skylark_Female::st_StoppingBreeding().

OnMateNeverComesBack()

void Skylark_Male::OnMateNeverComesBack

(

Skylark_Female *

AFemale

)

                                                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // Just a safety check
  if ( MyMate == AFemale ) {
    MyMate = NULL;
    Paired = false;
    BSuccess = false;
  }
}

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

Referenced by Skylark_Female::st_Finding_Territory(), and Skylark_Female::st_Immigrating().

OnNestlingDeath()

void Skylark_Male::OnNestlingDeath

(

Skylark_Nestling *

N

)

                                                         {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
  bool found = false;
#endif
  // remove the dead one
  m_BroodSize--;
#ifdef __CJTDebug_4
  if ( m_BroodSize < 0 ) {
    OnArrayBoundsError();
  }
#endif
  for ( int i = 0; i <= m_BroodSize; i++ ) {
    if ( m_Brood[ i ] == N ) {
      m_Brood[ i ] = m_Brood[ m_BroodSize ];
      m_Brood[ m_BroodSize ] = NULL;
#ifdef __CJTDebug_5
      found = true;
#endif
    }
  }
#ifdef __CJTDebug_5
  if ( found == false ) {
    g_land->Warn( "Skylark_Male::OnNestlingDeath - Debug 5 ", NULL ); exit( 1 );
  }
#endif
  // If all dead do on Brood death
  // remove the matured one
  if ( m_BroodSize == 0 ) {
    OnBroodDeath();
  }
}

References g_land, m_Brood, m_BroodSize, TALMaSSObject::OnArrayBoundsError(), OnBroodDeath(), and Landscape::Warn().

Referenced by Skylark_Nestling::st_Dying().

OnNestLocation()

void Skylark_Male::OnNestLocation	(	int	x,
		int	y
	)

                                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  if ( x == 0 ) x = 2;
  m_Location_x = x - 1;
  m_Location_y = y;
}

References TAnimal::m_Location_x, and TAnimal::m_Location_y.

Referenced by Skylark_Female::st_MakingNest().

OnNestPredatation()

void Skylark_Male::OnNestPredatation

(

)

                                     {
  for ( int i = 0; i < m_BroodSize; i++ ) {
    m_Brood[ i ]->OnYouHaveBeenEaten();
  }
  m_BroodSize = 0;
  OnBroodDeath();
}

References m_Brood, m_BroodSize, OnBroodDeath(), and Skylark_Nestling::OnYouHaveBeenEaten().

Referenced by Skylark_Nestling::EndStep().

OnPairing()

void Skylark_Male::OnPairing

(

Skylark_Female *

female

)

                                                      {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  Paired = true;
  if ( MyMate ) {
    if ( MyMate != female ) MyMate->OnMaleNeverComesBack( this );
  }
  MyMate = female;
  ConstructAHabitatTable();
  BSuccess = false;
  m_CurrentSkState = toss_FollowingMate;
}

References Skylark_Adult::BSuccess, ConstructAHabitatTable(), Skylark_Base::m_CurrentSkState, MyMate, Skylark_Female::OnMaleNeverComesBack(), Skylark_Adult::Paired, and toss_FollowingMate.

Referenced by Skylark_Female::EstablishTerritory().

OnPreFledgelingDeath()

void Skylark_Male::OnPreFledgelingDeath

(

Skylark_PreFledgeling *

P

)

                                                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
  bool found = false;
#endif
  // remove the dead one
  for ( int i = 0; i < m_BroodSize; i++ ) {
    if ( m_Brood[ i ] == P ) {
      m_Brood[ i ] = m_Brood[ --m_BroodSize ];
      m_Brood[ m_BroodSize ] = NULL;
#ifdef __CJTDebug_5
      found = true;
#endif
    }
  }
 
#ifdef __CJTDebug_4
  if ( m_BroodSize < 0 ) {
    OnArrayBoundsError();
  }
#endif
 
#ifdef __CJTDebug_5
  if ( found == false ) {
    g_land->Warn( "Skylark_Male::OnPreFledgelingDeath: DeBug5 ", NULL );
    exit( 1 );
  }
#endif
  // If all dead do on Brood death
  // remove the matured one
  if ( m_BroodSize == 0 ) {
    OnBroodDeath();
  }
}

References g_land, m_Brood, m_BroodSize, TALMaSSObject::OnArrayBoundsError(), OnBroodDeath(), and Landscape::Warn().

Referenced by Skylark_PreFledgeling::st_Dying().

OnPreFledgelingMature()

void Skylark_Male::OnPreFledgelingMature

(

Skylark_PreFledgeling *

P

)

                                                                    {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  for ( int i = 0; i < m_BroodSize; i++ ) {
    if ( m_Brood[ i ] == P ) {
      m_Brood[ i ] = m_Brood[ --m_BroodSize ];
      m_Brood[ m_BroodSize ] = NULL;
      BSuccess = true;
      if ( MyMate ) MyMate->OnBreedingSuccess();
    }
  }
  // If all matured do on Brood death
  // remove the matured one
#ifdef __CJTDebug_4
  if ( m_BroodSize < 0 ) {
    OnArrayBoundsError();
  }
#endif
  if ( m_BroodSize == 0 ) {
    if ( Paired ) {
      // it all depends what the female is doing
      // what he must do.
      // if she is also feeding he needs to tell here to stop
      MyMate->OnStopFeedingChicks();
      m_CurrentSkState = toss_FollowingMate;
    } else if ( HaveTerritory ) m_CurrentSkState = toss_AttractingAMate;
    else {
        m_CurrentSkState = toss_MFlocking;
    }
  }
}

References Skylark_Adult::BSuccess, HaveTerritory, m_Brood, m_BroodSize, Skylark_Base::m_CurrentSkState, MyMate, TALMaSSObject::OnArrayBoundsError(), Skylark_Female::OnBreedingSuccess(), Skylark_Female::OnStopFeedingChicks(), Skylark_Adult::Paired, toss_AttractingAMate, toss_FollowingMate, and toss_MFlocking.

Referenced by Skylark_PreFledgeling::st_Maturing().

OnReHouse()

void Skylark_Male::OnReHouse

(

)

                             {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
    int mindist=100000000;
    int index=-1;
    // Needs to sort through the new list of territories to find one closest to its m_Location_x, m_Location_y
     int Nterrs = m_OurTerritories->SupplyNoTerritories();
     int dist=0;
     for (int i=0; i<Nterrs; i++) {
         Skylark_Base* TheOwner = m_OurTerritories->Supply_Owner( i );
         if ( !TheOwner ) {
             int tx =  m_OurTerritories->Supply_x(i);
             int ty =  m_OurTerritories->Supply_y(i);
             dist = (int)sqrt((float)(tx*tx+ty*ty));
             if (dist< mindist) {
                 mindist=dist;
                 index=i;
             }
         }
     }
     if (index!=-1) {
         MyTerritory.ref = index;
         // store territory data
         MyTerritory.x = m_OurTerritories->Supply_x( index );
         MyTerritory.y = m_OurTerritories->Supply_y( index );
         MyTerritory.size = m_OurTerritories->Supply_size( index );
         MyTerritory.validnest = m_OurTerritories->SupplyIsNestValid(index);
         EstablishingATerritory();
         if (Paired) {
            m_OurTerritories->FemaleOccupy( index, MyMate );
            MyMate->EstablishTerritory();
         }
     }
     else {
         if (Paired) {
             MyMate->OnMateHomeless();
             MyMate = NULL;
             Paired=false;
         }
         MyTerritory.ref = -1;
         HaveTerritory = false;
         m_CurrentSkState = toss_MFindingTerritory;
     }
}

References EstablishingATerritory(), Skylark_Female::EstablishTerritory(), SkTerritories::FemaleOccupy(), HaveTerritory, Skylark_Base::m_CurrentSkState, Skylark_Base::m_OurTerritories, MyMate, Skylark_Adult::MyTerritory, Skylark_Female::OnMateHomeless(), Skylark_Adult::Paired, skTerritory_struct::ref, skTerritory_struct::size, SkTerritories::Supply_Owner(), SkTerritories::Supply_size(), SkTerritories::Supply_x(), SkTerritories::Supply_y(), SkTerritories::SupplyIsNestValid(), SkTerritories::SupplyNoTerritories(), toss_MFindingTerritory, skTerritory_struct::validnest, skTerritory_struct::x, and skTerritory_struct::y.

Referenced by Skylark_Population_Manager::ReHouse().

OptimiseHabitatSearchingOrder()

void Skylark_Male::OptimiseHabitatSearchingOrder ( )

protected

                                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // This method sorts the HabitatTable on the basis of the highest
  // available insects per square metre basis
  // It also puts the available insects into the table
 
  // Sort the entries on the basis of InsectTable
  int hold1;
  double hold2;
  int interChange = 1;
  int pass = 0;
  while ( ( pass++ <= No_HabitatTable_Refs - 1 ) && interChange ) {
    interChange = 0;
    for ( int j = 0; j < No_HabitatTable_Refs - pass; j++ )
      if ( m_InsectTable[ j ] < m_InsectTable[ j + 1 ] ) {
        // set the flag
        interChange = 1;
        // The poly ref
        hold1 = m_HabitatTable_PNum[ j ];
        m_HabitatTable_PNum[ j ] = m_HabitatTable_PNum[ j + 1 ];
        m_HabitatTable_PNum[ j + 1 ] = hold1;
        // the size
        hold1 = m_HabitatTable_Size[ j ];
        m_HabitatTable_Size[ j ] = m_HabitatTable_Size[ j + 1 ];
        m_HabitatTable_Size[ j + 1 ] = hold1;
        // The insects
        hold2 = m_InsectTable[ j ];
        m_InsectTable[ j ] = m_InsectTable[ j + 1 ];
        m_InsectTable[ j + 1 ] = ( int )hold2;
        // The Pesticide
#ifdef __PESTICIDE_RA
        hold2 = m_PConcTable[ j ];
        m_PConcTable[ j ] = m_PConcTable[ j + 1 ];
        m_PConcTable[ j + 1 ] = ( int )hold2;
#endif
      }
  }
}

References m_HabitatTable_PNum, m_HabitatTable_Size, m_InsectTable, and No_HabitatTable_Refs.

Referenced by GetFood().

PesticideResponse()

void Skylark_Male::PesticideResponse ( void  )

protectedvirtual

Reimplemented from Skylark_Base.

                                      {
    if (m_pesticide_accumulation > cfg_Skylark_male_NOEL.value()) {
        ;
    }
    m_pesticide_accumulation *= cfg_Skylark_male_Biodegredation.value();
}

References cfg_Skylark_male_Biodegredation, cfg_Skylark_male_NOEL, and Skylark_Base::m_pesticide_accumulation.

Referenced by EndStep().

ReEvaluateTerritory()

void Skylark_Male::ReEvaluateTerritory ( )

protected

Daily re-evaluation of territory.

The method is designed to keep the measure of territory quality up to date and avoids the need for the female to do this unless finding a nest position. The second usage is to provide the potential to reduce territory size should conditions improve. The reverse situation results in desertion by the female so is not handled here.

                                       {
    double qual = 0;
    if (MyTerritory.validnest) {
        qual = m_OurTerritories->Supply_terr( MyTerritory.ref )->GetQuality();
 
    }
    else qual=0;
    if (qual>m_XFNestAcceptScore) {
        if (m_OurTerritories->Supply_terr( MyTerritory.ref )->GetVirtualDiameter()<50) return;
        // He really has too much, so split it down into 2
        m_OurTerritories->Split( MyTerritory.ref );
        qual = m_OurTerritories->Supply_terr( MyTerritory.ref )->GetQuality();
 
    }
    // Store the quality for today so the female can read it
    MyTerritory.nqual = qual;
}

References skTTerritory::GetQuality(), skTTerritory::GetVirtualDiameter(), Skylark_Base::m_OurTerritories, m_XFNestAcceptScore, Skylark_Adult::MyTerritory, skTerritory_struct::nqual, skTerritory_struct::ref, SkTerritories::Split(), SkTerritories::Supply_terr(), and skTerritory_struct::validnest.

Referenced by BeginStep().

ReInit()

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

virtual

The Male constructor. This initialises some important parameters.

There is some individual variation around the territory acceptance score, up to 10% max

Reimplemented from Skylark_Adult.

                                                                                                                                                              {
    Skylark_Adult::ReInit(x, y, size, age, Terrs, L, SPM, bx, by, mh);
    GoodWeather = 0;
    HaveTerritory = false;
    MyMate = NULL;
    m_BroodSize = 0; // don't start life with chicks!
    BSuccess = false;
    m_firstPF = false;
    m_MyMinTerritoryQual = (int)(cfg_FemaleMinTerritoryAcceptScore.value() *  (g_rand_uni() / 10.0 + 1.0)); //= 1.0 to 1.1
    m_XFNestAcceptScore = m_MyMinTerritoryQual * (double)(g_rand_uni() + 2.1);
    for (int i = 0; i < 6; i++) m_Brood[i] = NULL;
}

References Skylark_Adult::BSuccess, cfg_FemaleMinTerritoryAcceptScore, g_rand_uni, GoodWeather, HaveTerritory, m_Brood, m_BroodSize, m_firstPF, m_MyMinTerritoryQual, m_XFNestAcceptScore, MyMate, and Skylark_Adult::ReInit().

SensibleCopy()

void Skylark_Male::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_MEmigrating;
}

References Skylark_Base::m_CurrentSkState, and toss_MEmigrating.

Referenced by Skylark_Population_Manager::CreateObjects().

st_Arriving()

bool Skylark_Male::st_Arriving ( )

protected

                               {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( GetBadWeather() )
         return false; // TransferToState(Flocking)
  else {
      m_aTerrlist->clear();
      int x = m_Born_x;
      int y = m_Born_y;
      if (MyTerritory.x>0) {
          x = MyTerritory.x;
          y = MyTerritory.y;
      }
      m_OurPopulationManager->TheSkylarkTerrs->GetTerritoriesByDistance(x,y,m_aTerrlist);
      return true; // TransferToState(FindTerritory)
  }
}

References Skylark_Adult::GetBadWeather(), SkTerritories::GetTerritoriesByDistance(), Skylark_Adult::m_aTerrlist, Skylark_Base::m_Born_x, Skylark_Base::m_Born_y, Skylark_Base::m_OurPopulationManager, Skylark_Adult::MyTerritory, Skylark_Population_Manager::TheSkylarkTerrs, skTerritory_struct::x, and skTerritory_struct::y.

Referenced by Step().

st_AttractingAMate()

int Skylark_Male::st_AttractingAMate ( )

protected

Is called once each day. If a female comes along and pairs then she will trigger a move to FollowMate via Skylark_Male::OnPairing

                                     {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
  if ( m_OurLandscape->SupplyDayInYear() > g_stopdate ) {
    m_OurTerritories->RemoveMale( MyTerritory.ref );
    MyTerritory.ref = -1; // No territory
    HaveTerritory = false;
    return 1; // TransferToState(Flocking)
  }
  else {
      return 0; // Do nothing
  }
}

References g_stopdate, HaveTerritory, TAnimal::m_OurLandscape, Skylark_Base::m_OurTerritories, Skylark_Adult::MyTerritory, skTerritory_struct::ref, SkTerritories::RemoveMale(), and Landscape::SupplyDayInYear().

Referenced by Step().

st_CaringForYoung()

int Skylark_Male::st_CaringForYoung ( )

protected

                                    {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
  if ( m_BroodSize < 1 )
    DEADCODEError();
#endif
  double spare; // spare food
  int HungryChicks = m_BroodSize;
  int FeedingProbs[ 26 ];
  double ChickFood[ 26 ];
#ifdef __PESTICIDE_RA_CHICK
  double ChickPoison[ 26 ];
#endif
  if ( m_Brood[ 0 ]->Age == 31 ) {
    return 1; // Scare off chicks
  }
  // Check for bad weather
  double RainToday = m_OurLandscape->SupplyRain();
  if (RainToday>MaxFeedRain) return 0; // No feeding today
 
  // can only get food in daylight - dawn & dusk
  int food_time = ( int )( ( double )( m_OurLandscape->SupplyDaylength() - 120 ));
  double resources_all = GetFood( food_time ); // dw g insects
  // remove metabolic requirements
  double resources = RemoveEM( resources_all );
  if ( resources > 0 )
  // Now give the food to the chicks
  // The chance that a chick get a portion is proportional to their size
  {
    // Zero the feeding probabilities
    for ( int i = 0; i < m_BroodSize; i++ ) {
      FeedingProbs[ i ] = 0;
      ChickFood[ i ] = 0;
#ifdef __PESTICIDE_RA_CHICK
      ChickPoison[ i ] = 0;
#endif
    }
    resources /= FoodTripsPerDay; // Split into portions (food trips per day)
#ifdef __PESTICIDE_RA_CHICK
    double pcide_remain = resources * m_pcide_conc;
#endif
    int BroodWeight = 0;
    for ( int i = 0; i < m_BroodSize; i++ ) {
      // Add up brood weight
      int weight = ( int )floor( m_Brood[ i ]->m_Size + 0.5 );
      BroodWeight += weight;
      for ( int j = i; j < m_BroodSize; j++ ) FeedingProbs[ j ] += weight;
    }
 
    while ( ( resources > 0.01 ) && ( HungryChicks > 0 ) ) {
      for ( int portion = 0; portion < FoodTripsPerDay; portion++ ) { // For each portion
        int choose = random( BroodWeight );
        for ( int i = 0; i < m_BroodSize; 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 < m_BroodSize; i++ ) {
        double extra = m_Brood[ i ]->On_FoodSupply( ChickFood[ i ] );
#ifdef __PESTICIDE_RA_CHICK
        // If we want a chick response to pesticide then the line below should be lit up, and the response
        // specified in the PesticideResponse method
        m_Brood[ i ]->m_pesticide_accumulation += ChickPoison[i]* ((ChickFood[ i ]-extra)/ChickFood[ i ]);
#endif
        if ( extra > 0 ) // chick must be full
        {
          FeedingProbs[ i ] = -1; // no chance of food
          HungryChicks--;
          spare += extra;
        }
      }
      resources = spare / FoodTripsPerDay;
    }
  }
  return 0; // no change
}

References Skylark_Base::Age, FoodTripsPerDay, GetFood(), m_Brood, m_BroodSize, TAnimal::m_OurLandscape, Skylark_Base::m_pcide_conc, Skylark_Base::m_pesticide_accumulation, Skylark_Base::m_Size, MaxFeedRain, Skylark_Nestling::On_FoodSupply(), Skylark_Adult::RemoveEM(), Landscape::SupplyDaylength(), and Landscape::SupplyRain().

Referenced by BeginStep().

st_Dying()

void Skylark_Male::st_Dying ( )

protected

                            {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( MyMate ) {
    if ( MyMate->MyMate != this ) {
      g_land->Warn( "Skylark_Male::st_Dying: DeBug1 ", NULL ); exit( 1 );
    }
    MyMate->OnMateDying();
  }
  if ( MyTerritory.ref != -1 ) m_OurTerritories->RemoveMale( MyTerritory.ref );
  MyTerritory.ref = -1; // No territory
  HaveTerritory = false;
  MyMate = NULL;
  Paired = false;
  if ( m_BroodSize > 0 ) {
    for ( int i = 0; i < m_BroodSize; i++ ) {
      m_Brood[ i ]->OnDadDead();
    }
  }
  m_CurrentStateNo = -1;
  m_CurrentSkState = toss_Destroy;
}

References g_land, HaveTerritory, m_Brood, m_BroodSize, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, Skylark_Base::m_OurTerritories, Skylark_Female::MyMate, MyMate, Skylark_Adult::MyTerritory, Skylark_Nestling::OnDadDead(), Skylark_Female::OnMateDying(), Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveMale(), toss_Destroy, and Landscape::Warn().

Referenced by Step().

st_Emigrating()

int Skylark_Male::st_Emigrating ( )

protected

                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Timing: Called once per day in the middle of a day
  // In the emigration state GoodWeather must be 0 on first entry
  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 >= 3 ) // Third day of good weather
  {
    int chance = random( 10000 ); // number between 0-99
    if ( Age < 1 ) {
      // below returning probability is divided by 30 as the number of days
      if ( ( chance < 300 ) && ( today >= March ) ) return 1; else if ( today >= April ) return 1;
    } else {
      if ( ( chance < 7 ) && ( today >= January ) ) return 1;
        else if ( ( chance < 33 ) && ( today >= February ) ) return 1;
          else if ( ( chance < 300 ) & ( today >= March ) ) return 1;
            else if ( today >= April ) return 1;
    }
  }
  return 0; // return value of 0 do nothing, 1 go to immigration
}

References Skylark_Base::Age, April, February, g_stopdate, GoodWeather, January, TAnimal::m_OurLandscape, March, Landscape::SupplyDayInYear(), and Landscape::SupplyTemp().

Referenced by Step().

st_FindingTerritory()

int Skylark_Male::st_FindingTerritory ( )

protected

This option picks 10 territories at random and tests them. This will happen if the bird arrives here without an m_aTerrlist, or because it has exhausted its list of possible territories.

This option is for birds with a valid m_aTerrlist to search. It takes the 10 nearest territories one at a time and tests to see if they are OK If so establish in one of them, otherwise wait until another day to test the next 10

                                      {
    Skylark_Male * TheOwner;
    if (m_aTerrlist->size()==0) {
        #ifdef __CJTDebug_5
          if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
        #endif
          int Nterrs = m_OurTerritories->SupplyNoTerritories();
          int territories[ 10 ] [ 2 ];
          // Select 10 territories
          for ( int i = 0; i < 10; i++ ) {
            territories[ i ] [ 0 ] = random( Nterrs );
            TheOwner = m_OurTerritories->Supply_Owner( territories[ i ] [ 0 ] );
            // If there is an owner
            if ( TheOwner != NULL ) {
              if ( TheOwner->DefendTerritory() >= Age ) {
                territories[ i ] [ 1 ] = -1;
              }
            } else {
              territories[ i ] [ 1 ] = m_OurTerritories->Supply_quality( territories[ i ] [ 0 ] );
            }
          }
          int best_qual = 0; // much too low
          int best = -1;
          for ( int i = 0; i < 10; i++ ) {
            if ( territories[ i ] [ 1 ] > best_qual ) {
              best_qual = territories[ i ] [ 1 ];
              best = i;
            }
          }
          if ( best_qual > m_MyMinTerritoryQual ) // Territory acceptable
          {
            // save ref number
            TheOwner = m_OurTerritories->Supply_Owner( territories[ best ] [ 0 ] );
            if ( TheOwner ) {
              // Must send a get out message to the other bird
              // if he is already breeding then fail
              if ( TheOwner->OnEvicted() ) return 2; // fail
            }
            MyTerritory.ref = territories[ best ] [ 0 ];
            // store territory data
            MyTerritory.x = m_OurTerritories->Supply_x( MyTerritory.ref );
            MyTerritory.y = m_OurTerritories->Supply_y( MyTerritory.ref );
            MyTerritory.size = m_OurTerritories->Supply_size( MyTerritory.ref );
            MyTerritory.validnest = m_OurTerritories->SupplyIsNestValid(MyTerritory.ref);
            return 1; //TransferToState(EstablishTerritory);
          }
        }
    else {
        for (int i=0; i<10 ; i++) {
            int sz = int (m_aTerrlist->size()-1);
            int qual= 0 ;
            if (sz >= 0) {
                APoint p = (*m_aTerrlist)[sz--];
                m_aTerrlist->pop_back();
                TheOwner = m_OurTerritories->Supply_Owner( p.m_x );
                // If there is an owner
                if ( TheOwner != NULL ) {
                    if ( TheOwner->DefendTerritory() < Age ) {
                        qual = m_OurTerritories->Supply_quality( p.m_x );
                    }
                }
                else {
                    qual = m_OurTerritories->Supply_quality( p.m_x );
                }
                if ( qual > m_MyMinTerritoryQual ) // Territory acceptable
                {
                    if ( TheOwner ) {
                        // Must send a get out message to the other bird
                        // if he is already breeding then fail
                        if ( TheOwner->OnEvicted() ) return 2; // fail
                    }
                    MyTerritory.ref = p.m_x;
                    // store territory data
                    MyTerritory.x = m_OurTerritories->Supply_x( MyTerritory.ref );
                    MyTerritory.y = m_OurTerritories->Supply_y( MyTerritory.ref );
                    MyTerritory.size = m_OurTerritories->Supply_size( MyTerritory.ref );
                    MyTerritory.validnest = m_OurTerritories->SupplyIsNestValid(MyTerritory.ref);
                    return 1; //TransferToState(EstablishTerritory);
                }
            }
        }
    }
 
 
#ifdef FOR_DEMONSTRATION
  m_Location_x = 0;
  m_Location_y = 0;
#endif
    return 2; //TransferToState(Floating);
}

References Skylark_Base::Age, DefendTerritory(), Skylark_Adult::m_aTerrlist, TAnimal::m_Location_x, TAnimal::m_Location_y, m_MyMinTerritoryQual, Skylark_Base::m_OurTerritories, Skylark_Adult::MyTerritory, OnEvicted(), skTerritory_struct::ref, skTerritory_struct::size, SkTerritories::Supply_Owner(), SkTerritories::Supply_quality(), SkTerritories::Supply_size(), SkTerritories::Supply_x(), SkTerritories::Supply_y(), SkTerritories::SupplyIsNestValid(), SkTerritories::SupplyNoTerritories(), skTerritory_struct::validnest, skTerritory_struct::x, and skTerritory_struct::y.

Referenced by Step().

st_Floating()

TTypesOfSkState Skylark_Male::st_Floating ( )

protected

                                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( GetBadWeather() ) return toss_MTempLeavingArea;
  m_Location_x = random( m_OurPopulationManager->SupplySimW() );
  m_Location_y = random( m_OurPopulationManager->SupplySimH() );
  if ( m_OurLandscape->SupplyDayInYear() > g_stopdate ) {
    return toss_MFlocking;
  } else {
#ifdef FOR_DEMONSTRATION
    m_Location_x = 0;
    m_Location_y = 0;
#endif
    return toss_MFindingTerritory; //TransferToState(FindTerritory);
  }
}

References g_stopdate, Skylark_Adult::GetBadWeather(), TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Landscape::SupplyDayInYear(), Population_Manager::SupplySimH(), Population_Manager::SupplySimW(), toss_MFindingTerritory, toss_MFlocking, and toss_MTempLeavingArea.

Referenced by BeginStep().

st_Flocking()

int Skylark_Male::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
  // TODO if we want it to look nice on the screen then the birds must flock
  // this will not affect the rest of the simulation  - just look better
  // Can we be bothered????
  // Just for now set the location to 0,0
  m_Location_x = 0;
  m_Location_y = 0;
#endif
 
    if ( m_OurLandscape->SupplyDayInYear() > October ) {
        GoodWeather = 0;
        return 1; //TransferToState(Emigration);
    }
    bool bad=GetBadWeather();
    if ( (bad) && ( m_OurLandscape->SupplyDayInYear() >= September )) return 1; //TransferToState(Emigration);
    return 0; // Carry on
}

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

Referenced by Step().

st_FollowingMate()

int Skylark_Male::st_FollowingMate ( )

protected

This is simply waiting for a message to say that either female is dead, female leaves or the eggs hatch. The male occupies the same location as the female. When the female's eggs hatch there is a transition to st_CaringForYoung. If the female dies or abandons the territory, there is a transition to AttractingAMate. This method also has another function in that it sets up the food tables for the female, hence must be called before female activity starts.

                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
    if ( Paired ) {
        GetFood( 0 ); //needs to set up the food tables for the female
    }
    else {
        m_CurrentSkState = toss_MFloating;
        if ( HaveTerritory ) {
        HaveTerritory = false;
        // Must de-register himself as territory owner
        m_OurTerritories->RemoveMale( MyTerritory.ref );
        // Just to be sure we can set the ref to -1 = no territory
        MyTerritory.ref = -1;
    }
  }
  return 0;
}

References GetFood(), HaveTerritory, Skylark_Base::m_CurrentSkState, Skylark_Base::m_OurTerritories, Skylark_Adult::MyTerritory, Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveMale(), and toss_MFloating.

Referenced by Step().

st_Immigrating()

bool Skylark_Male::st_Immigrating ( )

protected

An instantaneous state which determines the chance of migration mortality. If he does die then he has to inform any old mate that he has gone. If she is already paired with another bird then can just forget her. If not dying then the bird transitions to st_Arrival.

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( ( random( 100 ) < GetMigrationMortality() ) || Age > 5 ) {
    if ( MyMate != NULL ) {
      // Needs to be sure that she is not mated to someone else
      if ( !MyMate->Paired ) {
        MyMate->OnMaleNeverComesBack( this ); //stop a bogus on matedeath message
      }
      // In either case forget about mate - he no longer cares about this female
      MyMate = NULL;
      BSuccess = false;
#ifdef __CJTDebug_8
      if ( m_BroodSize != 0 )
        int rubbish = 0;
      for ( int i = 0; i < 6; i++ ) {
        if ( m_Brood[ i ] != NULL )
          int rubbish = 0;
      }
#endif
    }
    return false; // TransfertoState(Die)
  } else
    return true; // TransferToState(Arrival)
}

References Skylark_Base::Age, Skylark_Adult::BSuccess, GetMigrationMortality(), m_Brood, m_BroodSize, MyMate, Skylark_Female::OnMaleNeverComesBack(), and Skylark_Adult::Paired.

Referenced by Step().

st_ScaringOffChicks()

int Skylark_Male::st_ScaringOffChicks ( )

protected

                                      {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_BroodSize > 0 ) {
    for ( int i = 0; i < m_BroodSize; i++ ) {
      m_Brood[ i ]->OnDadDead();
      m_Brood[ i ] = NULL;
    }
    m_BroodSize = 0; // all chicks gone
    MyMate->OnBreedingSuccess();
    MyMate->OnStopFeedingChicks();
    BSuccess = true;
  }
  m_firstPF = false;
  return 1; // TransferToState(FollowMate)
}

References Skylark_Adult::BSuccess, m_Brood, m_BroodSize, m_firstPF, MyMate, Skylark_Female::OnBreedingSuccess(), Skylark_Nestling::OnDadDead(), and Skylark_Female::OnStopFeedingChicks().

Referenced by Step().

st_TempLeavingArea()

int Skylark_Male::st_TempLeavingArea ( )

protected

                                     {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Timing - called once per day
  // In the emigration state GoodWeather must be 0 on first entry
    if ( !GetBadWeather() ) GoodWeather++;
    else
        GoodWeather = 0;
    if ( GoodWeather >= 7 ) // 7 days of good weather
    {
        return 1; // comeback to the area
    }
    return 0; // return value of 0 do nothing, 1 go to Arrival
}

References Skylark_Adult::GetBadWeather(), and GoodWeather.

Referenced by Step().

Step()

void Skylark_Male::Step ( void  )

virtual

Step behaviour - must be implemented in descendent classes.

Reimplemented from TAnimal.

                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_StepDone || m_CurrentSkState == toss_Destroy ) return;
  switch ( m_CurrentSkState ) {
    case toss_Initiation: // Initial
      m_CurrentSkState = toss_MFlocking;
    break;
    case toss_MFlocking: // Flocking
      switch ( st_Flocking() ) {
        case 3:
          m_CurrentSkState = toss_MFindingTerritory; // -> find terr.
        break;
        case 2:
          m_CurrentSkState = toss_MTempLeavingArea; // -> temp.leave
        break;
        case 1:
          // use 0,0 as a default location
          m_Location_x = 0;
          m_Location_y = 0;
          m_CurrentSkState = toss_MEmigrating; // -> Emigration
        break;
        case 0:
          m_StepDone = true;
      }
    break;
    case toss_MArriving: // Arriving
      if ( st_Arriving() ) m_CurrentSkState = toss_MFindingTerritory; // -> find terr.
      else {
          m_CurrentSkState = toss_MTempLeavingArea;
      }
      m_StepDone = true;
    break;
    case toss_MImmigrating: // Immigration  - is instant
      if ( st_Immigrating() )
        m_CurrentSkState = toss_MArriving; // -> arrival
      else {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Male::Step() : st_Immigrating() : %d\n", ( int )g_date->Date() );
#endif
        m_CurrentSkState = toss_MDying; // -> die
      }
    break;
    case toss_MEmigrating: // Emigration
      if ( st_Emigrating() == 1 ) m_CurrentSkState = toss_MImmigrating; // -> immigr.
      m_StepDone = true;
    break;
    case toss_MTempLeavingArea: // Temp.leave.area
      if ( st_TempLeavingArea() ) m_CurrentSkState = toss_MArriving; // -> arrival
      m_StepDone = true;
    break;
    case toss_MFindingTerritory: // FindingTerritory
      switch ( st_FindingTerritory() ) {
        case 1:
          // Must do this now in case someone else gets this territory
          EstablishingATerritory();
          m_CurrentSkState = toss_AttractingAMate; // -> attract mate
        break;
        case 2:
          HaveTerritory = false;
          m_CurrentSkState = toss_MFloating; // -> floating
          //m_CurrentSkState = toss_MTempLeavingArea;
          m_StepDone = true;
        break;
      }
    break;
    case toss_AttractingAMate: // Attract mate
      if ( st_AttractingAMate() ) {
        m_CurrentSkState = toss_MFlocking; // -> flocking
      }
      m_StepDone = true;
    break;
    case toss_FollowingMate: // FollowingMate
      st_FollowingMate();
      m_StepDone = true;
    break;
    case toss_ScaringOffChicks: // ScaringOffChicks - instant
      if ( st_ScaringOffChicks() ) m_CurrentSkState = toss_FollowingMate; // -> follow mate
    break;
    case toss_MDying: // Dying
      st_Dying();
      m_StepDone = true;
    break;
    default:
      string st = m_OurPopulationManager->SupplyStateNames( ( int )m_CurrentSkState );
      g_land->Warn( "Skylark_Male::Step: Unknown State", st.c_str() );
      exit( 0 );
    break;
  }
  if ( m_BroodSize ) BroodAge = m_Brood[ 0 ]->Age; else
    BroodAge = -1;
}

References Skylark_Base::Age, BroodAge, EstablishingATerritory(), g_land, HaveTerritory, m_Brood, m_BroodSize, Skylark_Base::m_CurrentSkState, TAnimal::m_Location_x, TAnimal::m_Location_y, Skylark_Base::m_OurPopulationManager, TALMaSSObject::m_StepDone, st_Arriving(), st_AttractingAMate(), st_Dying(), st_Emigrating(), st_FindingTerritory(), st_Flocking(), st_FollowingMate(), st_Immigrating(), st_ScaringOffChicks(), st_TempLeavingArea(), Population_Manager::SupplyStateNames(), toss_AttractingAMate, toss_Destroy, toss_FollowingMate, toss_Initiation, toss_MArriving, toss_MDying, toss_MEmigrating, toss_MFindingTerritory, toss_MFloating, toss_MFlocking, toss_MImmigrating, toss_MTempLeavingArea, toss_ScaringOffChicks, and Landscape::Warn().

Supply_Territory()

skTerritory_struct Skylark_Male::Supply_Territory

(

)

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

References Skylark_Adult::MyTerritory.

Referenced by Skylark_Female::EstablishTerritory(), and Skylark_Female::st_Finding_Territory().

Supply_TerritoryQual()

double Skylark_Male::Supply_TerritoryQual ( )

inline

brief Provide todays territory quality

                                {
     return MyTerritory.nqual;
  }

Referenced by Skylark_Female::st_BuildingUpResources(), Skylark_Female::st_MakingNest(), and Skylark_Female::st_StartingNewBrood().

SupplyBroodAge()

int Skylark_Male::SupplyBroodAge ( int  n )

inline

  {
    return m_Brood[n]->Age;
  }

References Skylark_Base::Age.

Referenced by Skylark_Female::FeedYoung(), and Skylark_Female::st_CaringForYoung().

SupplyBroodSize()

int Skylark_Male::SupplyBroodSize ( )

inline

  {
    return m_BroodSize;
  }

Referenced by Skylark_Female::FeedYoung(), and Skylark_Female::st_GivingUpTerritory().

SupplyBroodWeight()

int Skylark_Male::SupplyBroodWeight ( int  n )

inline

  {
    return ( int )m_Brood[n]->m_Size;
  }

References Skylark_Base::m_Size.

Referenced by Skylark_Female::FeedYoung().

SupplyNestLoc()

APoint Skylark_Male::SupplyNestLoc ( )

inline

                         {
      return m_OurPopulationManager->TheSkylarkTerrs->SupplyNestPosition( MyTerritory.ref );
  }

Referenced by Skylark_Female::st_MakingNest().

SupplyNestValid()

bool Skylark_Male::SupplyNestValid ( )

inline

                        {
      return m_OurPopulationManager->TheSkylarkTerrs->SupplyIsNestValid( MyTerritory.ref);
  }

Referenced by Skylark_Female::st_MakingNest().

SupplyNoHabitatRefs()

int Skylark_Male::SupplyNoHabitatRefs ( )

inline

  {
    return No_HabitatTable_Refs;
  }

Referenced by Skylark_Female::GetFood().

Member Data Documentation

BroodAge

int Skylark_Male::BroodAge

Referenced by Step().

GoodWeather

int Skylark_Male::GoodWeather

protected

Referenced by ReInit(), Skylark_Male(), st_Emigrating(), st_Flocking(), and st_TempLeavingArea().

HaveTerritory

bool Skylark_Male::HaveTerritory

Referenced by EstablishingATerritory(), OnBroodDeath(), OnEvicted(), OnMateLeaving(), OnPreFledgelingMature(), OnReHouse(), Skylark_Population_Manager::ProbePOM(), Skylark_Population_Manager::ReHouse(), ReInit(), Skylark_Male(), st_AttractingAMate(), st_Dying(), Skylark_Female::st_Finding_Territory(), st_FollowingMate(), Step(), and Skylark_Population_Manager::TheBreedingFemalesProbe().

m_Brood

Skylark_Nestling* Skylark_Male::m_Brood[26]

protected

Referenced by OnAddNestling(), OnAddPreFledgeling(), OnBroodDeath(), OnBroodDesertion(), OnMateDying(), OnMateLeaving(), OnNestlingDeath(), OnNestPredatation(), OnPreFledgelingDeath(), OnPreFledgelingMature(), ReInit(), Skylark_Male(), st_CaringForYoung(), st_Dying(), st_Immigrating(), st_ScaringOffChicks(), and Step().

m_BroodSize

int Skylark_Male::m_BroodSize

protected

Referenced by OnAddNestling(), OnAddPreFledgeling(), OnBroodDeath(), OnBroodDesertion(), OnEggHatch(), OnMateDying(), OnMateLeaving(), OnNestlingDeath(), OnNestPredatation(), OnPreFledgelingDeath(), OnPreFledgelingMature(), ReInit(), Skylark_Male(), st_CaringForYoung(), st_Dying(), st_Immigrating(), st_ScaringOffChicks(), and Step().

m_firstPF

bool Skylark_Male::m_firstPF

protected

Referenced by OnAddPreFledgeling(), ReInit(), Skylark_Male(), and st_ScaringOffChicks().

m_HabitatTable_PNum

vector<int> Skylark_Male::m_HabitatTable_PNum

Referenced by ConstructAHabitatTable(), GetFood(), and OptimiseHabitatSearchingOrder().

m_HabitatTable_Size

vector<int> Skylark_Male::m_HabitatTable_Size

Referenced by Skylark_Female::CalcFoodTime(), ConstructAHabitatTable(), Skylark_Female::GetFood(), GetFood(), and OptimiseHabitatSearchingOrder().

m_InsectTable

vector<double> Skylark_Male::m_InsectTable

Referenced by Skylark_Female::CalcFoodTime(), ConstructAHabitatTable(), Skylark_Female::GetFood(), GetFood(), and OptimiseHabitatSearchingOrder().

m_MyMinTerritoryQual

int Skylark_Male::m_MyMinTerritoryQual

protected

Referenced by OnMateLeaving(), ReInit(), Skylark_Male(), and st_FindingTerritory().

m_XFNestAcceptScore

double Skylark_Male::m_XFNestAcceptScore

protected

Referenced by ReEvaluateTerritory(), ReInit(), and Skylark_Male().

MyMate

Skylark_Female* Skylark_Male::MyMate

Referenced by Skylark_Population_Manager::Catastrophe(), OnAddPreFledgeling(), OnBroodDeath(), OnMateDying(), OnMateLeaving(), OnMateNeverComesBack(), OnPairing(), OnPreFledgelingMature(), OnReHouse(), ReInit(), Skylark_Male(), Skylark_Female::st_Dying(), st_Dying(), st_Immigrating(), and st_ScaringOffChicks().

No_HabitatTable_Refs

int Skylark_Male::No_HabitatTable_Refs

protected

Referenced by ConstructAHabitatTable(), GetFood(), and OptimiseHabitatSearchingOrder().

---

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

• C:/Repo/ALMaSS_All/Skylark/skylarks_all.h
• C:/Repo/ALMaSS_All/Skylark/skylarks_all.cpp