28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OPermanentGrassGrazed.h"
47 m_field->SetMDates(0,0,g_date->DayInYear(25,6));
49 m_field->SetMDates(1,0,g_date->DayInYear(1,10));
54 g_msg->Warn( WARN_BUG,
"OPermanentGrassGrazed::Do(): "
55 "Harvest too late for the next crop to start!!!",
"" );
63 int today=g_date->Date();
69 g_msg->Warn( WARN_BUG,
"OPermanentGrassGrazed::Do(): "
70 "Crop start attempt after last possible start date",
"" );
75 if ( g_date->Date() > d1 ) {
93 g_date->DayInYear( 15,6 ) - g_date->DayInYear())) {
101 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,6 ),
109 g_date->DayInYear( 15,8 ) - g_date->DayInYear())) {
114 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 26,6 ),
120 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 6 ),
150 SimpleEvent( g_date->OldDays() + g_date->DayInYear()+1,
162 SimpleEvent( g_date->OldDays() + g_date->DayInYear()+21,
169 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
176 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
189 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
196 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
205 SimpleEvent( g_date->OldDays() + g_date->DayInYear(5,9),
212 g_date->DayInYear( 1, 10 ) - g_date->DayInYear(),g_date->DayInYear( 1, 10 )))
220 g_date->DayInYear( 1, 10 ) - g_date->DayInYear(),g_date->DayInYear( 1, 10 )))
227 if (g_date->DayInYear()<g_date->DayInYear(10,9))
232 SimpleEvent( g_date->OldDays() + g_date->DayInYear(15,6),
238 (g_date->Date()<g_date->DayInYear(15,9)))
241 g_date->DayInYear( 15,9 ) - g_date->DayInYear())) {
251 g_msg->Warn( WARN_BUG,
"PermanantGrassGrazed::Do(): "
252 "Unknown event type! ",
"" );