28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/FieldPeas.h"
61 m_field->SetMDates(0,0,g_date->DayInYear(30,8));
63 m_field->SetMDates(1,0,g_date->DayInYear(30,8));
80 g_msg->Warn( WARN_FILE,
"FieldPeas::Do(): Harvest too late for the next crop to start!!! The next crop is: ", veg_type );
85 for (
int i=0; i<noDates; i++) {
103 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
104 if (g_date->Date() < d1)
107 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): "
108 "Crop start attempt between 1st Jan & 1st July",
"" );
114 if (g_date->Date() > d1)
117 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): Crop start attempt after last possible start date",
"" );
126 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,3 ),
134 d1 = g_date->OldDays() + g_date->DayInYear( 1,10 );
135 if ( g_date->Date() > d1 ) {
146 g_date->DayInYear( 1, 12 ) -
147 g_date->DayInYear())) {
152 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,3 ) + 365,
159 g_date->DayInYear( 1,4 ) -
160 g_date->DayInYear())) {
166 int d1 = g_date->Date()+1;
167 int d2 = g_date->OldDays() + g_date->DayInYear( 5,3 );
177 g_date->DayInYear( 5,4 ) - g_date->DayInYear())) {
187 int d1 = g_date->Date();
188 int d2 = g_date->OldDays() + g_date->DayInYear( 20,3 );
198 g_date->DayInYear( 15,4 ) -
199 g_date->DayInYear())) {
204 int d1 = g_date->Date();
205 int d2 = g_date->OldDays() + g_date->DayInYear( 25,3 );
216 g_date->DayInYear( 15,4 ) -
217 g_date->DayInYear())) {
223 int d1 = g_date->Date();
224 int d2 = g_date->OldDays() + g_date->DayInYear( 25,3 );
234 g_date->DayInYear( 15,4 ) -
235 g_date->DayInYear())) {
244 g_date->DayInYear( 15,4 ) -
245 g_date->DayInYear())) {
249 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,4 ),
259 Field * pf = dynamic_cast<Field*>(
m_field);
260 pf->Add_missed_herb_app();
261 if(
m_farm->
DoIt(95)) pf->Add_missed_herb_app();
272 int d1 = g_date->OldDays() + g_date->DayInYear( 25,4 );
273 if ( d1 < g_date->Date() + 7 ) {
274 d1 = g_date->Date() + 7;
283 g_date->DayInYear( 10,5 ) -
284 g_date->DayInYear())) {
289 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
291 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
295 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
305 Field * pf = dynamic_cast<Field*>(
m_field);
306 pf->Add_missed_fi_app();
312 int d1 = g_date->Date();
334 Field * pf = dynamic_cast<Field*>(
m_field);
335 pf->Add_missed_fi_app();
340 int d1 = g_date->Date();
348 g_date->DayInYear( 15,6 ) -
349 g_date->DayInYear())) {
362 int d1 = g_date->Date();
371 g_date->DayInYear( 15,6 ) - g_date->DayInYear())) {
378 int d1 = g_date->OldDays() + g_date->DayInYear( 16,6 );
379 if ( d1 < g_date->Date() + 7 ) {
380 d1 = g_date->Date() + 7;
385 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,8 ),
391 int d1 = g_date->Date();
400 g_date->DayInYear( 1,7 ) -
401 g_date->DayInYear())) {
413 g_date->DayInYear( 20,8 ) -
414 g_date->DayInYear())) {
432 g_date->DayInYear( 30,8 ) -
433 g_date->DayInYear())) {
441 if (
m_field->GetMConstants(0)==0) {
443 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): failure in 'StrawChopping' execution",
"" );
458 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): "
459 "Unknown event type! ",
"" );