28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/seedgrass1.h"
57 m_field->SetMDates(0,0,g_date->DayInYear(10,7));
59 m_field->SetMDates(1,0,g_date->DayInYear(20,7));
60 m_field->SetMDates(0,1,g_date->DayInYear(11,7));
61 m_field->SetMDates(1,1,g_date->DayInYear(25,7));
62 m_field->SetMDates(0,2,g_date->DayInYear(26,7));
63 m_field->SetMDates(1,2,g_date->DayInYear(20,7));
64 m_field->SetMDates(0,3,g_date->DayInYear(15,7));
65 m_field->SetMDates(1,3,g_date->DayInYear(15,8));
78 g_msg->Warn( WARN_BUG,
"SeedGrass1::Do(): "
79 "Harvest too late for the next crop to start!!!",
"" );
83 for (
int i=0; i<noDates; i++) {
95 int today=g_date->Date();
101 g_msg->Warn( WARN_BUG,
"SeedGrass1::Do(): "
102 "Crop start attempt after last possible start date",
"" );
109 if ( g_date->Date() > d1 ) {
121 g_date->DayInYear( 15, 4 ) -
122 g_date->DayInYear())) {
127 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 4 ),
137 Field * pf = dynamic_cast<Field*>(
m_field);
138 pf->Add_missed_herb_app();
139 if(
m_farm->
DoIt(67)) pf->Add_missed_herb_app();
149 SimpleEvent( g_date->OldDays() + g_date->DayInYear() + 14,
151 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20, 5 ),
153 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
172 Field * pf = dynamic_cast<Field*>(
m_field);
173 pf->Add_missed_fi_app();
198 g_date->DayInYear( 30, 5 ) -
199 g_date->DayInYear())) {
205 int d1 = g_date->Date() + 7;
206 if ( d1 > g_date->OldDays() + g_date->DayInYear( 1, 6 ))
207 d1 = g_date->OldDays() + g_date->DayInYear( 1, 6 );
213 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
225 g_date->DayInYear( 30, 6 ) -
226 g_date->DayInYear())) {
232 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
239 g_date->DayInYear( 15, 7 ) -
240 g_date->DayInYear())) {
255 if (
m_field->GetMConstants(0)==0) {
257 g_msg->Warn( WARN_BUG,
"SeedGrass1::Do(): failure in 'Harvest' execution",
"" );
273 if (
m_field->GetMConstants(0)==0) {
275 g_msg->Warn( WARN_BUG,
"SeedGrass1::Do(): failure in 'StrawChopping' execution",
"" );
290 int d1 = g_date->Date()+1;
291 int d2 = g_date->OldDays() +
m_field->GetMDates(0,1);
299 if (
m_field->GetMConstants(1)==0) {
301 g_msg->Warn( WARN_BUG,
"SeedGrass1::Do(): failure in 'HayTurning' execution",
"" );
313 int d1 = g_date->Date();
314 if ( d1 < g_date->OldDays() +
m_field->GetMDates(0,3))
315 d1 = g_date->OldDays() +
m_field->GetMDates(0,3);
322 if (
m_field->GetMConstants(3)==0) {
324 g_msg->Warn( WARN_BUG,
"SeedGrass1::Do(): failure in 'BurnStrawStubble' execution",
"" );
339 g_msg->Warn( WARN_BUG,
"SeedGrass1::Do(): "
340 "Unknown event type! ",
"" );