+#ifdef HACKING
+
+static void identify_ship(struct univ_object *univ)
+{
+ char buf[64];
+ int lasv;
+
+ lasv = ship_list[univ->type]->front_laser;
+ if (!(univ->flags & FLG_TACTICAL)) {
+ unsigned flags = univ->flags;
+ sprintf(buf, "%s %s%s%s%s", ship_list[univ->type]->name,
+ (flags & FLG_ANGRY) ? "A" : "",
+ (flags & FLG_TARGET) ? "T" : "",
+ (flags & FLG_HOSTILE) ? "H" : "",
+ (flags & FLG_POLICE) ? "P" : "");
+ } else {
+ unsigned flags = univ->flags;
+ sprintf(buf, "%s (%d) %s%s%s%s", ship_list[univ->type]->name,
+ univ->energy,
+ (flags & FLG_ANGRY) ? "A" : "",
+ (flags & FLG_TARGET) ? "T" : "",
+ (flags & FLG_HOSTILE) ? "H" : "",
+ (flags & FLG_POLICE) ? "P" : "");
+ }
+ gfx_display_text(point_list[lasv].x + 4, point_list[lasv].y + 4, buf);
+}
+
+#endif