28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OWinterWheat.h"
51 m_field->SetMDates(0,0,g_date->DayInYear(1,8));
53 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
54 m_field->SetMDates(0,1,g_date->DayInYear(5,8));
55 m_field->SetMDates(1,1,g_date->DayInYear(5,9));
56 m_field->SetMDates(0,2,g_date->DayInYear(25,8));
57 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
58 m_field->SetMDates(0,3,g_date->DayInYear(25,8));
59 m_field->SetMDates(1,3,g_date->DayInYear(30,8));
60 m_field->SetMDates(0,4,g_date->DayInYear(5,8));
61 m_field->SetMDates(1,4,g_date->DayInYear(5,8));
62 m_field->SetMDates(0,5,g_date->DayInYear(15,9));
63 m_field->SetMDates(1,5,g_date->DayInYear(15,9));
64 m_field->SetMDates(0,6,g_date->DayInYear(1,8));
65 m_field->SetMDates(1,6,g_date->DayInYear(30,8));
73 g_msg->Warn( WARN_BUG,
"OWinterWheat::Do(): "
74 "Harvest too late for the next crop to start!!!",
"" );
78 for (
int i=0; i<noDates; i++)
91 int today=g_date->Date();
93 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
97 g_msg->Warn( WARN_BUG,
"OWinterWheat::Do(): "
98 "Crop start attempt between 1st Jan & 1st July",
"" );
107 g_msg->Warn( WARN_BUG,
"OWinterWheat::Do(): "
108 "Crop start attempt after last possible start date",
"" );
115 SimpleEvent( g_date->OldDays() + g_date->DayInYear(28,8),
123 if ( g_date->Date() > d1 ) {
140 g_date->DayInYear( 30,9 ) - g_date->DayInYear())) {
152 g_date->DayInYear( 30,9 ) - g_date->DayInYear())) {
162 g_date->DayInYear( 30,9 ) - g_date->DayInYear())) {
171 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
175 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,9 ),
181 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
186 long newdate1 = g_date->OldDays() + g_date->DayInYear( 10,9 );
187 long newdate2 = g_date->Date() + 10;
188 if ( newdate2 > newdate1 )
196 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
200 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 24,9 ),
210 g_date->DayInYear( 24,10 ) - g_date->DayInYear())) {
216 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 )+365,
222 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
226 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
234 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
249 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
258 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
269 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
276 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
280 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
288 g_date->DayInYear( 30,5 ) - g_date->DayInYear())) {
293 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
299 m_field->GetMDates(1,0) - g_date->DayInYear())) {
311 m_field->GetMDates(1,0) - g_date->DayInYear()))
319 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
326 int d1=g_date->Date() + 3;
336 m_field->GetMDates(1,2) - g_date->DayInYear())) {
342 long d1 = g_date->OldDays() + g_date->DayInYear( 7,8 );
343 long d2 = g_date->Date() + 3;
344 if ( d2 > d1 ) d1 = d2;
352 m_field->GetMDates(1,3) - g_date->DayInYear())) {
369 m_field->GetMDates(1,1) - g_date->DayInYear())) {
373 int d1=g_date->Date()+10;
384 m_field->GetMDates(1,5) - g_date->DayInYear()))
398 m_field->GetMDates(1,6) - g_date->DayInYear()))
418 g_msg->Warn( WARN_BUG,
"OWinterWheat::Do(): "
419 "Unknown event type! ",
"" );