28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/seedgrass2.h"
56 m_field->SetMDates(0,0,g_date->DayInYear(10,7));
58 m_field->SetMDates(1,0,g_date->DayInYear(20,7));
59 m_field->SetMDates(0,1,g_date->DayInYear(11,7));
60 m_field->SetMDates(1,1,g_date->DayInYear(25,7));
61 m_field->SetMDates(0,2,g_date->DayInYear(26,7));
62 m_field->SetMDates(1,2,g_date->DayInYear(20,7));
63 m_field->SetMDates(0,3,g_date->DayInYear(15,7));
64 m_field->SetMDates(1,3,g_date->DayInYear(15,8));
65 m_field->SetMDates(0,4,g_date->DayInYear(15,8));
66 m_field->SetMDates(1,4,g_date->DayInYear(20,8));
78 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): "
79 "Harvest too late for the next crop to start!!!",
"" );
83 for (
int i=0; i<noDates; i++) {
94 int today=g_date->Date();
100 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): "
101 "Crop start attempt after last possible start date",
"" );
108 if ( g_date->Date() > d1 ) {
120 g_date->DayInYear( 15, 4 ) -
121 g_date->DayInYear())) {
126 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 4 ),
136 Field * pf = dynamic_cast<Field*>(
m_field);
137 pf->Add_missed_herb_app();
138 if(
m_farm->
DoIt(67)) pf->Add_missed_herb_app();
148 SimpleEvent( g_date->OldDays() + g_date->DayInYear() + 14,
150 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20, 5 ),
152 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
171 Field * pf = dynamic_cast<Field*>(
m_field);
172 pf->Add_missed_fi_app();
181 g_date->DayInYear( 1, 6 ) -
182 g_date->DayInYear())) {
199 g_date->DayInYear( 30, 5 ) -
200 g_date->DayInYear())) {
205 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1, 6 ),
210 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
222 g_date->DayInYear( 30, 6 ) -
223 g_date->DayInYear())) {
229 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
236 g_date->DayInYear( 15, 7 ) -
237 g_date->DayInYear())) {
250 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
255 if (
m_field->GetMConstants(0)==0) {
257 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): failure in 'Harvest' execution",
"" );
272 if (
m_field->GetMConstants(0)==0) {
274 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): failure in 'StrawChopping' execution",
"" );
292 if (
m_field->GetMConstants(1)==0) {
294 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): failure in 'HayTurning' execution",
"" );
307 if ( d1 < g_date->OldDays() +
m_field->GetMDates(0,3))
308 d1 = g_date->OldDays() +
m_field->GetMDates(0,3);
315 if (
m_field->GetMConstants(3)==0) {
317 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): failure in 'BurnStrawStubble' execution",
"" );
335 if (
m_field->GetMConstants(4)==0) {
337 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): failure in 'GrowthRegulator' execution",
"" );
353 if (
m_field->GetMConstants(4)==0) {
355 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): failure in 'StubbleHarrowing' execution",
"" );
369 g_msg->Warn( WARN_BUG,
"SeedGrass2::Do(): "
370 "Unknown event type! ",
"" );