From 4151670016960044b9cae2099f0a3027ec350152 Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno@eressea.de>
Date: Wed, 18 Jun 2003 11:27:04 +0000
Subject: [PATCH] =?UTF-8?q?-=20Englischer=20Text=20f=C3=BCr=20"In=20Klah?=
 =?UTF-8?q?=20(3,9)=20erscheinen=20201=20Jungdrachen"=20-=20Zauber-Anzeige?=
 =?UTF-8?q?fix=20Bauernverbrauch?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/common/gamecode/randenc.c | 27 ++++++++++-----------------
 src/common/kernel/spell.c     |  2 +-
 src/res/de/strings.xml        |  4 ++--
 src/res/messages.xml          |  9 +++++++++
 4 files changed, 22 insertions(+), 20 deletions(-)

diff --git a/src/common/gamecode/randenc.c b/src/common/gamecode/randenc.c
index 357926c13..fc0e479c5 100644
--- a/src/common/gamecode/randenc.c
+++ b/src/common/gamecode/randenc.c
@@ -1284,6 +1284,7 @@ randomevents(void)
 
 	for (r = regions; r; r = r->next) {
 		unit * u;
+		message * msg;
 		if (rterrain(r) == T_OCEAN && rand()%10000 < 1) {
 			u = createunit(r, findfaction(MONSTER_FACTION), 1, new_race[RC_SEASERPENT]);
 			set_level(u, SK_MAGIC, 4);
@@ -1323,30 +1324,22 @@ randomevents(void)
 
 			name_unit(u);
 			set_string(&u->lastorder, "WARTEN");
-
-			if (u->number == 1) {
-				sprintf(buf, "Es wurde ein %s gesichtet.",
-					LOC(default_locale, rc_name(u->race, 0)));
-			} else {
-				sprintf(buf, "Es wurden %d %s gesichtet.",
-					u->number, LOC(default_locale, rc_name(u->race, u->number!=1)));
-			}
-			addmessage(r, 0, buf, MSG_COMMENT, ML_IMPORTANT);
-			if (u->number == 1) {
-				sprintf(buf, "In %s wurde ein %s gesichtet.", regionid(r),
-					LOC(default_locale, rc_name(u->race, u->number!=1)));
-			} else {
-				sprintf(buf, "In %s wurden %d %s gesichtet.", regionid(r),
-					u->number, LOC(default_locale, rc_name(u->race, u->number!=1)));
-			}
+			/* add message to the region */
+			ADDMSG(&r->msgs,
+				   msg_message("sighting", "region race number", 
+							   NULL, u->race, u->number));
+			/* create new message to add to units */
+			msg = msg_message("sighting", "region race number",
+							  NULL, u->race, u->number);
 			for (u=r->units;u;u=u->next) freset(u->faction, FL_DH);
 			for (u=r->units;u;u=u->next) {
 				faction * f = u->faction;
 				if (!fval(f, FL_DH)) {
-					addmessage(0, f, buf, MSG_EVENT, ML_IMPORTANT);
+					add_message(&f->msgs, msg);
 					fset(f, FL_DH);
 				}
 			}
+			msg_release(msg);
 		}
 	}
 
diff --git a/src/common/kernel/spell.c b/src/common/kernel/spell.c
index 71e7142c4..b5eb68391 100644
--- a/src/common/kernel/spell.c
+++ b/src/common/kernel/spell.c
@@ -3518,7 +3518,7 @@ sp_summonshadowlords(castorder *co)
  * Gebiet:     Draig
  * Kategorie:  Teleport
  * Wirkung:
- *  Durch das Opfern von 500 Bauern kann der Chaosmagier ein Tor zur
+ *  Durch das Opfern von 200 Bauern kann der Chaosmagier ein Tor zur
  *  astralen Welt öffnen. Das Tor kann im Folgemonat verwendet werden,
  *  es löst sich am Ende des Folgemonats auf.
  *
diff --git a/src/res/de/strings.xml b/src/res/de/strings.xml
index cd5af33c2..0805e4c7c 100644
--- a/src/res/de/strings.xml
+++ b/src/res/de/strings.xml
@@ -4657,12 +4657,12 @@
 			</text>
 		</string>
 		<string name="chaossuction">
-			<text locale="de">Durch das Opfern von 500 Bauern kann
+			<text locale="de">Durch das Opfern von 200 Bauern kann
 				der Chaosmagier ein Tor zur astralen Welt
 				öffnen. Das Tor kann in der Folgewoche verwendet
 				werden, es löst sich am Ende der Folgewoche auf.
 			</text>
-			<text locale="en">By sacrificing the lives of 500
+			<text locale="en">By sacrificing the lives of 200
 				peasants, the chaossorcerer is able to open a
 				planar gate. This gate can be used during the
 				following week to transfer units to the astral
diff --git a/src/res/messages.xml b/src/res/messages.xml
index 8f231af0a..7d793b638 100644
--- a/src/res/messages.xml
+++ b/src/res/messages.xml
@@ -1,4 +1,13 @@
 <messages>
+<message name="sighting" section="events">
+	<type>
+		<arg name="region" type="region"></arg>
+		<arg name="number" type="int"></arg>
+		<arg name="race" type="race"></arg>
+	</type>
+	<text locale="de">"$if($isnull($region),"In $region($region)","Es") wurde$if($eq($number,1),"","n") $number $race($race,$number) gesichtet."</text>
+	<text locale="en">"In $region($region), $number $race($race,$number) were discovered."</text>
+</message>
 <message name="mallorn_effect" section="magic">
 	<type>
 		<arg name="mage" type="unit"></arg>