43 #include "../../Landscape/ls.h"
44 #include "../../Landscape/cropprogs/PLFodderLucerne2.h"
75 if (a_ev->
m_startday > g_date->DayInYear(1, 7)) {
76 if (g_date->DayInYear(5, 10) >= a_ev->
m_startday)
78 g_msg->Warn(WARN_BUG,
"PLFodderLucerne2::Do(): ",
"Harvest too late for the next crop to start!!!");
80 g_msg->Warn(
"Next Crop ", (
double)almassnum);
87 d1 = g_date->OldDays() + g_date->DayInYear(1, 7);
88 if (g_date->Date() < d1) {
90 printf(
"Poly: %d\n", a_field->GetPoly());
91 g_msg->Warn(WARN_BUG,
"PLFodderLucerne2::Do(): ",
"Crop start attempt between 1st Jan & 1st July");
93 g_msg->Warn(WARN_BUG,
"Previous Crop ", prev);
95 g_msg->Warn(
"Next Crop ", (
double)almassnum);
99 if (g_date->Date() > d1) {
101 g_msg->Warn(WARN_BUG,
"PLFodderLucerne2::Do(): ",
"Crop start attempt after last possible start date");
102 g_msg->Warn(WARN_BUG,
"Previous Crop ",
"");
103 a_field->GetOwner()->GetPreviousCrop(a_field->GetRotIndex());
105 g_msg->Warn(
"Next Crop ", (
double)almassnum);
119 d1 = g_date->OldDays() + g_date->DayInYear(1, 3);
120 if (g_date->Date() >= d1) d1 += 365;
130 if (!a_farm->
ShallowHarrow(a_field, 0.0, g_date->DayInYear(31, 3) - g_date->DayInYear())) {
135 d1 = g_date->Date() + 1;
136 if (d1 < g_date->OldDays() + g_date->DayInYear(5, 3)) {
137 d1 = g_date->OldDays() + g_date->DayInYear(5, 3);
148 if (!a_farm->
FP_PK(a_field, 0.0, g_date->DayInYear(20, 4) - g_date->DayInYear())) {
156 if (a_ev->
m_lock || a_farm->DoIt(66))
158 if (!a_farm->FA_PK(a_field, 0.0, g_date->DayInYear(20, 4) - g_date->DayInYear())) {
166 if (a_ev->
m_lock || a_farm->DoIt(31))
168 if (!a_farm->HerbicideTreat(a_field, 0.0, g_date->DayInYear(10, 5) - g_date->DayInYear())) {
174 if (a_farm->DoIt(70))
185 if (!a_farm->CutToSilage(a_field, 0.0, g_date->DayInYear(15, 6) - g_date->DayInYear())) {
192 if (a_ev->
m_lock || a_farm->DoIt(33))
194 if (!a_farm->ShallowHarrow(a_field, 0.0, g_date->DayInYear(15, 6) - g_date->DayInYear())) {
199 if (a_farm->IsStockFarmer())
206 if (a_ev->
m_lock || a_farm->DoIt(60))
208 if (!a_farm->FP_PK(a_field, 0.0, g_date->Date() + 10 - g_date->DayInYear())) {
216 if (a_ev->
m_lock || a_farm->DoIt(60))
218 if (!a_farm->FA_PK(a_field, 0.0, g_date->Date() + 10 - g_date->DayInYear())) {
226 if (!a_farm->CutToSilage(a_field, 0.0, g_date->DayInYear(5, 8) - g_date->DayInYear())) {
233 if (a_ev->
m_lock || a_farm->DoIt(25))
235 if (!a_farm->ShallowHarrow(a_field, 0.0, g_date->DayInYear(5, 8) - g_date->DayInYear())) {
243 if (!a_farm->CutToSilage(a_field, 0.0, g_date->DayInYear(25, 9) - g_date->DayInYear())) {
253 if (!a_farm->CutToSilage(a_field, 0.0, g_date->DayInYear(5, 6) - g_date->DayInYear())) {
260 if (a_ev->
m_lock || a_farm->DoIt(33))
262 if (!a_farm->ShallowHarrow(a_field, 0.0, g_date->DayInYear(5, 6) - g_date->DayInYear())) {
267 if (a_farm->IsStockFarmer())
274 if (a_ev->
m_lock || a_farm->DoIt(60))
276 if (!a_farm->FP_PK(a_field, 0.0, g_date->Date() + 10 - g_date->DayInYear())) {
284 if (a_ev->
m_lock || a_farm->DoIt(60))
286 if (!a_farm->FA_PK(a_field, 0.0, g_date->Date() + 10 - g_date->DayInYear())) {
294 if (!a_farm->CutToSilage(a_field, 0.0, g_date->DayInYear(15, 7) - g_date->DayInYear())) {
301 if (a_ev->
m_lock || a_farm->DoIt(25))
303 if (!a_farm->ShallowHarrow(a_field, 0.0, g_date->DayInYear(15, 7) - g_date->DayInYear())) {
311 if (!a_farm->CutToSilage(a_field, 0.0, g_date->DayInYear(25, 8) - g_date->DayInYear())) {
320 if (a_ev->
m_lock || a_farm->DoIt(25))
322 if (!a_farm->ShallowHarrow(a_field, 0.0, g_date->DayInYear(25, 8) - g_date->DayInYear())) {
330 if (!a_farm->CutToSilage(a_field, 0.0, g_date->DayInYear(5, 10) - g_date->DayInYear())) {
339 g_msg->Warn(WARN_BUG,
"PLFodderLucerne2::Do(): "
340 "Unknown event type! ",
"");