(svn r20) Feature: warning when a vehicle has invalid orders (celestar)

1 files changed, 78 insertions, 0 deletions

diff --git a/order_cmd.c b/order_cmd.c
index ab4e06484..eb5c4ccf2 100644
--- a/order_cmd.c
+++ b/order_cmd.c
@@ -4,6 +4,7 @@
 #include "command.h"
 #include "station.h"
 #include "player.h"
+#include "news.h"
 
 /* p1 & 0xFFFF = vehicle
  * p1 >> 16 = index in order list
@@ -330,3 +331,80 @@ int32 CmdRestoreOrderIndex(int x, int y, uint32 flags, uint32 p1, uint32 p2)
 	}
 	return 0;
 }
+
+int CheckOrders(Vehicle *v)
+{
+	int i, n_st, duplicate;
+	uint16 order, old_orderer;
+	uint16 dummy;
+	int message=0;
+	
+	/* check the order list */
+	order = v->schedule_ptr[0];
+	n_st = duplicate = dummy = 0;
+
+	/* only check every 20 days */
+	if ( ( ( v->day_counter % 20) == 0 ) && (v->owner == _local_player) ) {
+		for(old_orderer = i = 0; order!=0; i++ ) {
+			order = v->schedule_ptr[i];
+			if (order == old_orderer) duplicate = -1;
+			if ( (order & OT_MASK) == OT_DUMMY ) dummy = -1;
+			if ( ( (order & OT_MASK) == OT_GOTO_STATION ) /*&& (order != old_order) */) {
+				//I uncommented this in order not to get two error messages
+				//when two identical entries are in the list
+				n_st++;
+			}
+			old_orderer = order; //store the old order
+		}
+
+		//Now, check the last and the first order
+		//as the last order is the end of order marker, jump back 2
+		if ( (v->schedule_ptr[0] == v->schedule_ptr[i-2]) && ( i-2 != 0 ) ) duplicate = -1;
+
+		SET_DPARAM16(0, v->unitnumber);
+
+		if  (n_st < 2) {
+			switch (v->type) {
+				case VEH_Train: message = STR_TRAIN_HAS_TOO_FEW_ORDERS; break;
+				case VEH_Road: message = STR_ROADVEHICLE_HAS_TOO_FEW_ORDERS; break;
+				case VEH_Ship: message = STR_SHIP_HAS_TOO_FEW_ORDERS; break;
+				case VEH_Aircraft: message = STR_AIRCRAFT_HAS_TOO_FEW_ORDERS; break;
+			}
+			AddNewsItem(
+				message,
+				NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_VEHICLE, NT_ADVICE, 0),
+				v->index,
+				0);
+		} else if (duplicate) {
+			switch (v->type) {
+				case VEH_Train: message = STR_TRAIN_HAS_DUPLICATE_ENTRY; break;
+				case VEH_Road: message = STR_ROADVEHICLE_HAS_DUPLICATE_ENTRY; break;
+				case VEH_Ship: message = STR_SHIP_HAS_DUPLICATE_ENTRY; break;
+				case VEH_Aircraft: message = STR_AIRCRAFT_HAS_DUPLICATE_ENTRY; break;
+			}
+			AddNewsItem(
+				message,
+				NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_VEHICLE, NT_ADVICE, 0),
+				v->index,
+				0);
+		} else if (dummy) {
+			switch (v->type) {
+				case VEH_Train: message = STR_TRAIN_HAS_VOID_ORDER; break;
+				case VEH_Road: message = STR_ROADVEHICLE_HAS_VOID_ORDER; break;
+				case VEH_Ship: message = STR_SHIP_HAS_VOID_ORDER; break;
+				case VEH_Aircraft: message = STR_AIRCRAFT_HAS_VOID_ORDER; break;
+			}
+			AddNewsItem(
+				message,
+				NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_VEHICLE, NT_ADVICE, 0),
+				v->index,
+				0);
+		}
+	}
+	// End of order check
+
+	if ( (n_st > 2) || (duplicate) || (dummy) ) 
+		return 1;
+	else
+		return 0;
+}