Marc
/
server
forked from github/server
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

updates vom beta-branch nach dev-version

This commit is contained in:
Enno Rehling 2001-05-06 21:49:16 +00:00
parent 63f0c81ebd
commit 52aa6bccc2
16 changed files with 369 additions and 214 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/common/gamecode/economy.c
View File

@ -2843,8 +2843,9 @@ produce(void)
todo = igetkeyword(u->thisorder, u->faction->locale);
if (todo == NOKEYWORD) continue;
if (rterrain(r) == T_OCEAN && u->race != RC_AQUARIAN &&
todo != K_STEAL && todo != K_SPY && todo != K_SABOTAGE)
if (rterrain(r) == T_OCEAN && u->race != RC_AQUARIAN
&& !(race[u->race].flags & RCF_SWIM)
&& todo != K_STEAL && todo != K_SPY && todo != K_SABOTAGE)
continue;
switch (todo) {

2
src/common/gamecode/monster.c
View File

@ -524,7 +524,7 @@ monster_seeks_target(region *r, unit *u)
switch( u->race ) {
case RC_ALP:
if( !(u->age % 2) ) /* bewegt sich nur jede zweite Runde */
if( (u->age % 2) ) /* bewegt sich nur jede zweite Runde */
d = NODIRECTION;
break;
default:

392
src/common/gamecode/study.c
View File

@ -415,122 +415,127 @@ learn(void)
/* lernen nach lehren */
for (r = regions; r; r = r->next)
for (u = r->units; u; u = u->next)
if (rterrain(r) != T_OCEAN || u->race == RC_AQUARIAN)
if (igetkeyword(u->thisorder, u->faction->locale) == K_STUDY) {
double multi = 1.0;
attrib * a = NULL;
int money = 0;
int maxalchemy = 0;
if (rterrain(r) == T_GLACIER && u->race == RC_INSECT
&& !is_cursed(u->attribs, C_KAELTESCHUTZ,0)){
continue;
}
if (attacked(u)) {
cmistake(u, findorder(u, u->thisorder), 52, MSG_PRODUCE);
continue;
}
for (r = regions; r; r = r->next) {
for (u = r->units; u; u = u->next) {
if (rterrain(r) == T_OCEAN){
/* sonderbehandlung aller die auf Ozeanen lernen können */
if (u->race != RC_AQUARIAN
&& !(race[u->race].flags & RCF_SWIM)) {
continue;
}
}
if (igetkeyword(u->thisorder, u->faction->locale) == K_STUDY) {
double multi = 1.0;
attrib * a = NULL;
int money = 0;
int maxalchemy = 0;
if (rterrain(r) == T_GLACIER && u->race == RC_INSECT
&& !is_cursed(u->attribs, C_KAELTESCHUTZ,0)){
continue;
}
if (attacked(u)) {
cmistake(u, findorder(u, u->thisorder), 52, MSG_PRODUCE);
continue;
}
i = getskill(u->faction->locale);
i = getskill(u->faction->locale);
if (i < 0) {
cmistake(u, findorder(u, u->thisorder), 77, MSG_EVENT);
continue;
}
/* Hack: Talente mit Malus -99 können nicht gelernt werden */
if (race[u->race].bonus[i] == -99) {
cmistake(u, findorder(u, u->thisorder), 77, MSG_EVENT);
continue;
}
if ((race[u->race].flags & RCF_NOLEARN)) {
sprintf(buf, "%s können nichts lernen", race[u->race].name[1]);
mistake(u, u->thisorder, buf, MSG_EVENT);
continue;
} else {
struct building * b = inside_building(u);
const struct building_type * btype = b?b->type:NULL;
if (i < 0) {
cmistake(u, findorder(u, u->thisorder), 77, MSG_EVENT);
p = studycost = study_cost(u,i);
a = a_find(u->attribs, &at_learning);
if (btype == &bt_academy) {
studycost = max(50, studycost * 2);
}
}
if (i == SK_MAGIC) {
if (u->number > 1){
cmistake(u, findorder(u, u->thisorder), 106, MSG_MAGIC);
continue;
}
/* Hack: Talente mit Malus -99 können nicht gelernt werden */
if (race[u->race].bonus[i] == -99) {
cmistake(u, findorder(u, u->thisorder), 77, MSG_EVENT);
continue;
}
if ((race[u->race].flags & RCF_NOLEARN)) {
sprintf(buf, "%s können nichts lernen", race[u->race].name[1]);
mistake(u, u->thisorder, buf, MSG_EVENT);
continue;
} else {
struct building * b = inside_building(u);
const struct building_type * btype = b?b->type:NULL;
p = studycost = study_cost(u,i);
a = a_find(u->attribs, &at_learning);
if (btype == &bt_academy) {
studycost = max(50, studycost * 2);
}
}
if (i == SK_MAGIC){
if (u->number > 1){
cmistake(u, findorder(u, u->thisorder), 106, MSG_MAGIC);
continue;
}
if (is_familiar(u)){
/* Vertraute zählen nicht zu den Magiern einer Partei,
* können aber nur Graue Magie lernen */
mtyp = M_GRAU;
if (!get_skill(u, SK_MAGIC)){
create_mage(u, mtyp);
}
} else if (!get_skill(u, SK_MAGIC)){
/* Die Einheit ist noch kein Magier */
if (count_skill(u->faction, SK_MAGIC) + u->number >
max_skill(u->faction, SK_MAGIC))
{
sprintf(buf, "Es kann maximal %d Magier pro Partei geben",
max_skill(u->faction, SK_MAGIC));
mistake(u, u->thisorder, buf, MSG_EVENT);
continue;
}
mtyp = getmagicskill();
if (mtyp == M_NONE || mtyp == M_GRAU) {
/* wurde kein Magiegebiet angegeben, wird davon
* ausgegangen, daß das normal gelernt werden soll */
if(u->faction->magiegebiet != 0) {
mtyp = u->faction->magiegebiet;
} else {
/* Es wurde kein Magiegebiet angegeben und die Partei
* hat noch keins gewählt. */
cmistake(u, findorder(u, u->thisorder), 178, MSG_MAGIC);
continue;
}
}
if (mtyp != u->faction->magiegebiet){
/* Es wurde versucht, ein anderes Magiegebiet zu lernen
* als das der Partei */
if (u->faction->magiegebiet != 0){
cmistake(u, findorder(u, u->thisorder), 179, MSG_MAGIC);
continue;
} else {
/* Lernt zum ersten mal Magie und legt damit das
* Magiegebiet der Partei fest */
u->faction->magiegebiet = mtyp;
}
}
if (is_familiar(u)){
/* Vertraute zählen nicht zu den Magiern einer Partei,
* können aber nur Graue Magie lernen */
mtyp = M_GRAU;
if (!get_skill(u, SK_MAGIC)){
create_mage(u, mtyp);
} else {
/* ist schon ein Magier und kein Vertrauter */
if(u->faction->magiegebiet == 0){
/* die Partei hat noch kein Magiegebiet gewählt. */
mtyp = getmagicskill();
if (mtyp == M_NONE){
cmistake(u, findorder(u, u->thisorder), 178, MSG_MAGIC);
continue;
} else {
/* Legt damit das Magiegebiet der Partei fest */
u->faction->magiegebiet = mtyp;
}
}
}
}
if (i == SK_ALCHEMY) {
maxalchemy = eff_skill(u, SK_ALCHEMY, r);
if (get_skill(u, SK_ALCHEMY)==0
&& count_skill(u->faction, SK_ALCHEMY) + u->number >
max_skill(u->faction, SK_ALCHEMY)) {
sprintf(buf, "Es kann maximal %d Alchemisten pro Partei geben",
max_skill(u->faction, SK_ALCHEMY));
} else if (!get_skill(u, SK_MAGIC)){
/* Die Einheit ist noch kein Magier */
if (count_skill(u->faction, SK_MAGIC) + u->number >
max_skill(u->faction, SK_MAGIC))
{
sprintf(buf, "Es kann maximal %d Magier pro Partei geben",
max_skill(u->faction, SK_MAGIC));
mistake(u, u->thisorder, buf, MSG_EVENT);
continue;
}
mtyp = getmagicskill();
if (mtyp == M_NONE || mtyp == M_GRAU) {
/* wurde kein Magiegebiet angegeben, wird davon
* ausgegangen, daß das normal gelernt werden soll */
if(u->faction->magiegebiet != 0) {
mtyp = u->faction->magiegebiet;
} else {
/* Es wurde kein Magiegebiet angegeben und die Partei
* hat noch keins gewählt. */
cmistake(u, findorder(u, u->thisorder), 178, MSG_MAGIC);
continue;
}
}
if (mtyp != u->faction->magiegebiet){
/* Es wurde versucht, ein anderes Magiegebiet zu lernen
* als das der Partei */
if (u->faction->magiegebiet != 0){
cmistake(u, findorder(u, u->thisorder), 179, MSG_MAGIC);
continue;
} else {
/* Lernt zum ersten mal Magie und legt damit das
* Magiegebiet der Partei fest */
u->faction->magiegebiet = mtyp;
}
}
create_mage(u, mtyp);
} else {
/* ist schon ein Magier und kein Vertrauter */
if(u->faction->magiegebiet == 0){
/* die Partei hat noch kein Magiegebiet gewählt. */
mtyp = getmagicskill();
if (mtyp == M_NONE){
cmistake(u, findorder(u, u->thisorder), 178, MSG_MAGIC);
continue;
} else {
/* Legt damit das Magiegebiet der Partei fest */
u->faction->magiegebiet = mtyp;
}
}
}
}
if (i == SK_ALCHEMY) {
maxalchemy = eff_skill(u, SK_ALCHEMY, r);
if (get_skill(u, SK_ALCHEMY)==0
&& count_skill(u->faction, SK_ALCHEMY) + u->number >
max_skill(u->faction, SK_ALCHEMY)) {
sprintf(buf, "Es kann maximal %d Alchemisten pro Partei geben",
max_skill(u->faction, SK_ALCHEMY));
mistake(u, u->thisorder, buf, MSG_EVENT);
continue;
}
if (is_migrant(u)
&& (i == SK_MAGIC || i == SK_ALCHEMY || i == SK_TACTICS
@ -543,106 +548,109 @@ learn(void)
continue;
}
}
if (studycost) {
money = get_pooled(u, r, R_SILVER);
money = min(money, studycost * u->number);
}
if (money < studycost * u->number) {
studycost = p; /* Ohne Uni? */
money = min(money, studycost);
if (p>0 && money < studycost * u->number) {
}
if (studycost) {
money = get_pooled(u, r, R_SILVER);
money = min(money, studycost * u->number);
}
if (money < studycost * u->number) {
studycost = p; /* Ohne Uni? */
money = min(money, studycost);
if (p>0 && money < studycost * u->number) {
#ifdef PARTIAL_STUDY
cmistake(u, findorder(u, u->thisorder), 65, MSG_EVENT);
multi = money / (double)(studycost * u->number);
cmistake(u, findorder(u, u->thisorder), 65, MSG_EVENT);
multi = money / (double)(studycost * u->number);
#else
cmistake(u, findorder(u, u->thisorder), 65, MSG_EVENT);
continue; /* nein, Silber reicht auch so nicht */
cmistake(u, findorder(u, u->thisorder), 65, MSG_EVENT);
continue; /* nein, Silber reicht auch so nicht */
#endif
}
}
}
if (a==NULL) a = a_add(&u->attribs, a_new(&at_learning));
if (money>0) {
use_pooled(u, r, R_SILVER, money);
add_message(&u->faction->msgs, new_message(u->faction,
"studycost%u:unit%r:region%i:cost%t:skill",
u, u->region, money, i));
}
if (get_effect(u, oldpotiontype[P_WISE])) {
l = min(u->number, get_effect(u, oldpotiontype[P_WISE]));
a->data.i += l * 10;
change_effect(u, oldpotiontype[P_WISE], -l);
}
if (get_effect(u, oldpotiontype[P_FOOL])) {
l = min(u->number, get_effect(u, oldpotiontype[P_FOOL]));
a->data.i -= l * 30;
change_effect(u, oldpotiontype[P_FOOL], -l);
}
warrior_skill = fspecial(u->faction, FS_WARRIOR);
if(warrior_skill > 0) {
if(i == SK_CROSSBOW || i == SK_LONGBOW
|| i == SK_CATAPULT || i == SK_SWORD || i == SK_SPEAR
|| i == SK_AUSDAUER || i == SK_WEAPONLESS)
{
a->data.i += u->number * (5+warrior_skill*5);
} else {
a->data.i -= u->number * (5+warrior_skill*5);
a->data.i = max(0, a->data.i);
}
}
if (p != studycost) {
/* ist_in_gebaeude(r, u, BT_UNIVERSITAET) == 1) { */
/* p ist Kosten ohne Uni, studycost mit; wenn
* p!=studycost, ist die Einheit zwangsweise
* in einer Uni */
a->data.i += u->number * 10;
}
if (is_cursed(r->attribs,C_BADLEARN,0)) {
a->data.i -= u->number * 10;
if (a==NULL) a = a_add(&u->attribs, a_new(&at_learning));
if (money>0) {
use_pooled(u, r, R_SILVER, money);
add_message(&u->faction->msgs,
new_message(u->faction,
"studycost%u:unit%r:region%i:cost%t:skill",
u, u->region, money, i));
}
if (get_effect(u, oldpotiontype[P_WISE])) {
l = min(u->number, get_effect(u, oldpotiontype[P_WISE]));
a->data.i += l * 10;
change_effect(u, oldpotiontype[P_WISE], -l);
}
if (get_effect(u, oldpotiontype[P_FOOL])) {
l = min(u->number, get_effect(u, oldpotiontype[P_FOOL]));
a->data.i -= l * 30;
change_effect(u, oldpotiontype[P_FOOL], -l);
}
warrior_skill = fspecial(u->faction, FS_WARRIOR);
if(warrior_skill > 0) {
if(i == SK_CROSSBOW || i == SK_LONGBOW
|| i == SK_CATAPULT || i == SK_SWORD || i == SK_SPEAR
|| i == SK_AUSDAUER || i == SK_WEAPONLESS)
{
a->data.i += u->number * (5+warrior_skill*5);
} else {
a->data.i -= u->number * (5+warrior_skill*5);
a->data.i = max(0, a->data.i);
}
}
if (p != studycost) {
/* ist_in_gebaeude(r, u, BT_UNIVERSITAET) == 1) { */
/* p ist Kosten ohne Uni, studycost mit; wenn
* p!=studycost, ist die Einheit zwangsweise
* in einer Uni */
a->data.i += u->number * 10;
}
if (is_cursed(r->attribs,C_BADLEARN,0)) {
a->data.i -= u->number * 10;
}
#ifdef SKILLFIX_SAVE
if (a && a->data.i) {
int skill = get_skill(u, (skill_t)i);
skillfix(u, (skill_t)i, skill,
(int)(u->number * 30 * multi), a->data.i);
}
if (a && a->data.i) {
int skill = get_skill(u, (skill_t)i);
skillfix(u, (skill_t)i, skill,
(int)(u->number * 30 * multi), a->data.i);
}
#endif
#ifdef RANDOMIZED_LEARNING
change_skill(u, (skill_t)i, (int)((u->number * dice(2,30) + a->data.i) * multi));
change_skill(u, (skill_t)i, (int)((u->number * dice(2,30) + a->data.i) * multi));
#else
change_skill(u, (skill_t)i, (int)((u->number * 30 + a->data.i) * multi));
change_skill(u, (skill_t)i, (int)((u->number * 30 + a->data.i) * multi));
#endif
if (a) {
a_remove(&u->attribs, a);
a = NULL;
}
if (a) {
a_remove(&u->attribs, a);
a = NULL;
}
/* Anzeigen neuer Tränke */
/* Spruchlistenaktualiesierung ist in Regeneration */
/* Anzeigen neuer Tränke */
/* Spruchlistenaktualiesierung ist in Regeneration */
if (i == SK_ALCHEMY) {
const potion_type * ptype;
faction * f = u->faction;
int skill = eff_skill(u, SK_ALCHEMY, r);
if (skill>maxalchemy) {
for (ptype=potiontypes; ptype; ptype=ptype->next) {
if (skill == ptype->level * 2) {
attrib * a = a_find(f->attribs, &at_showitem);
while (a && a->data.v != ptype) a=a->nexttype;
if (!a) {
a = a_add(&f->attribs, a_new(&at_showitem));
a->data.v = (void*) ptype->itype;
}
if (i == SK_ALCHEMY) {
const potion_type * ptype;
faction * f = u->faction;
int skill = eff_skill(u, SK_ALCHEMY, r);
if (skill>maxalchemy) {
for (ptype=potiontypes; ptype; ptype=ptype->next) {
if (skill == ptype->level * 2) {
attrib * a = a_find(f->attribs, &at_showitem);
while (a && a->data.v != ptype) a=a->nexttype;
if (!a) {
a = a_add(&f->attribs, a_new(&at_showitem));
a->data.v = (void*) ptype->itype;
}
}
}
}
}
}
}
}
}
@ -665,8 +673,10 @@ teaching(void)
if (u->race == RC_SPELL || fval(u, FL_LONGACTION))
continue;
if (rterrain(r) == T_OCEAN && u->race != RC_AQUARIAN)
continue;
if (rterrain(r) == T_OCEAN
&& u->race != RC_AQUARIAN
&& !(race[u->race].flags & RCF_SWIM))
continue;
if (rterrain(r) == T_GLACIER && u->race == RC_INSECT
&& !is_cursed(u->attribs, C_KAELTESCHUTZ,0))

10
src/common/kernel/battle.c
View File

@ -1,6 +1,6 @@
/* vi: set ts=2:
*
*
*
* Eressea PB(E)M host Copyright (C) 1998-2000
* Christian Schlittchen (corwin@amber.kn-bremen.de)
* Katja Zedel (katze@felidae.kn-bremen.de)
@ -594,11 +594,19 @@ contest(int skilldiff, armor_t ar, armor_t sh)
/* Hardcodet, muß geändert werden. */
#ifdef OLD_ARMOR
if (ar != AR_NONE)
mod *= (1 - armordata[ar].penalty);
if (sh != AR_NONE)
mod *= (1 - armordata[sh].penalty);
vw = (int) (vw * mod);
#else
if (ar != AR_NONE)
mod *= (1 + armordata[ar].penalty);
if (sh != AR_NONE)
mod *= (1 + armordata[sh].penalty);
vw = (int)(100 - ((100 - vw) * mod));
#endif
do {
p = rand() % 100;

6
src/common/kernel/build.c
View File

@ -630,7 +630,11 @@ build(unit * u, const construction * ctype, int completed, int want)
}
/* n = maximum buildable size */
n = skills / type->minskill;
if(type->minskill > 1) {
n = skills / type->minskill;
} else {
n = skills;
}
itm = *i_find(&u->items, olditemtype[I_RING_OF_NIMBLEFINGER]);
if (itm!=NULL) i = itm->number;
if (i>0) {

6
src/common/kernel/magic.c
View File

@ -636,7 +636,7 @@ set_combatspell(unit *u, spell *sp, const char * cmd, int level)
if (!m) return;
/* knowsspell prüft auf ist_magier, ist_spruch, kennt_spruch */
if (!sp || !knowsspell(u->region, u, sp)) {
if (knowsspell(u->region, u, sp) == false){
/* Fehler 'Spell not found' */
cmistake(u, cmd, 173, MSG_MAGIC);
return;
@ -2801,7 +2801,9 @@ magic(void)
* normalerweise nur Meermenschen, ausgenommen explizit als
* OCEANCASTABLE deklarierte Sprüche */
if (rterrain(r) == T_OCEAN) {
if (u->race != RC_AQUARIAN && !(sp->sptyp & OCEANCASTABLE)) {
if (u->race != RC_AQUARIAN
&& !(race[u->race].flags & RCF_SWIM)
&& !(sp->sptyp & OCEANCASTABLE)) {
continue;
}
/* Auf bewegenden Schiffen kann man nur explizit als

16
src/common/kernel/reports.c
View File

@ -428,8 +428,14 @@ bufunit(const faction * f, const unit * u, int indent, int mode)
dh=0;
if (!getarnt && f && f->allies) {
ally *sf;
faction *tf = u->faction;
/* getarnte Partei bei a_otherfaction */
if(a_otherfaction) {
tf = findfaction(a_otherfaction->data.i);
}
for (sf = f->allies; sf && !dh; sf = sf->next) {
if (sf->status > 0 && sf->status <= HELP_ALL && sf->faction == u->faction) {
if (sf->status > 0 && sf->status <= HELP_ALL && sf->faction == tf) {
dh = 1;
}
}
@ -582,8 +588,14 @@ bufunit_ugroupleader(const faction * f, const unit * u, int indent, int mode)
dh=0;
if (!getarnt && f && f->allies) {
ally *sf;
faction *tf = u->faction;
/* getarnte Partei bei a_otherfaction */
if(a_otherfaction) {
tf = findfaction(a_otherfaction->data.i);
}
for (sf = f->allies; sf && !dh; sf = sf->next) {
if (sf->status > 0 && sf->status <= HELP_ALL && sf->faction == u->faction) {
if (sf->status > 0 && sf->status <= HELP_ALL && sf->faction == tf) {
dh = 1;
}
}

110
src/common/kernel/spell.c
View File

@ -385,6 +385,7 @@ destroy_curse(attrib **alist, int cast_level, int force,
* Allgemein sichtbare Auswirkungen in der Region sollten als
* Regionsereignisse auch dort auftauchen.
freset(mage->faction, FL_DH);
for(u = r->units; u; u = u->next ) freset(u->faction, FL_DH);
for(u = r->units; u; u = u->next ) {
if (!fval(u->faction, FL_DH) ) {
@ -392,6 +393,7 @@ destroy_curse(attrib **alist, int cast_level, int force,
add_message(r, u->faction, buf, MSG_EVENT, ML_WARN | ML_INFO);
}
}
Sonderbehandlung Magierpartei nicht vergessen!
* Meldungen an den Magier über Erfolg sollten, wenn sie nicht als
* Regionsereigniss auftauchen, als MSG_MAGIC level ML_INFO unter
@ -937,6 +939,7 @@ sp_goodwinds(castorder *co)
create_curse(mage, &sh->attribs, C_SHIP_NODRIFT, 0, power, cast_level, 0, 0);
/* melden, 1x pro Partei */
freset(mage->faction, FL_DH);
for(u = r->units; u; u = u->next ) freset(u->faction, FL_DH);
for(u = r->units; u; u = u->next ) {
if(u->ship != sh ) /* nur den Schiffsbesatzungen! */
@ -947,6 +950,11 @@ sp_goodwinds(castorder *co)
"wind_effect%u:mage%h:ship", cansee(u->faction, r, mage, 0) ? mage:NULL, sh));
}
}
if(!fval(mage->faction, FL_DH)){
add_message(&mage->faction->msgs, new_message(mage->faction,
"wind_effect%u:mage%h:ship", mage, sh));
}
return cast_level;
}
@ -988,6 +996,7 @@ sp_magicstreet(castorder *co)
create_curse(mage, &r->attribs, C_MAGICSTREET, 0, power, cast_level, 0, 0);
/* melden, 1x pro Partei */
freset(mage->faction, FL_DH);
for(u = r->units; u; u = u->next ) freset(u->faction, FL_DH);
for(u = r->units; u; u = u->next ) {
if(!fval(u->faction, FL_DH) ) {
@ -996,6 +1005,10 @@ sp_magicstreet(castorder *co)
"path_effect%u:mage%r:region", cansee(u->faction, r, mage, 0) ? mage:NULL, r));
}
}
if(!fval(mage->faction, FL_DH)){
add_message(&mage->faction->msgs, new_message(mage->faction,
"path_effect%u:mage%r:region", mage, r));
}
return cast_level;
}
@ -1052,6 +1065,8 @@ sp_summonent(castorder *co)
rsettrees(r, rtrees(r) - ents);
/* melden, 1x pro partei */
freset(mage->faction, FL_DH);
for(u2 = r->units; u2; u2 = u2->next ) freset(u2->faction, FL_DH);
for(u2 = r->units; u2; u2 = u2->next ) {
if (!fval(u2->faction, FL_DH) ) {
@ -1060,6 +1075,13 @@ sp_summonent(castorder *co)
"ent_effect%u:mage%i:amount", cansee(u2->faction, r, mage, 0)?mage:NULL, u->number));
}
}
if(!fval(mage->faction, FL_DH)){
/* dann steht niemand von der Magierpartei in der Region, sieht also
* auch keine Regionsmeldung. ergo: global anzeigen */
add_message(&mage->faction->msgs, new_message(mage->faction,
"ent_effect%u:mage%i:amount", mage, u->number));
}
return cast_level;
}
@ -1147,6 +1169,7 @@ sp_maelstrom(castorder *co)
set_curseflag(r->attribs, C_MAELSTROM, 0, CURSE_ISNEW);
/* melden, 1x pro partei */
freset(mage->faction, FL_DH);
for (u = r->units; u; u = u->next) freset(u->faction, FL_DH);
for (u = r->units; u; u = u->next) {
if (!fval(u->faction, FL_DH)) {
@ -1155,6 +1178,65 @@ sp_maelstrom(castorder *co)
"maelstrom_effect%u:mage", cansee(u->faction, r, mage, 0) ? mage:NULL));
}
}
if(!fval(mage->faction, FL_DH)){
/* dann steht niemand von der Magierpartei in der Region, sieht also
* auch keine Regionsmeldung. ergo: global anzeigen */
add_message(&mage->faction->msgs, new_message(mage->faction,
"maelstrom_effect%u:mage", mage));
}
return cast_level;
}
/* ------------------------------------------------------------- */
/* Name: Wurzeln der Magie
* Stufe: 16
* Kategorie: Region, neutral
* Gebiet: Gwyrrd
* Wirkung:
* Wandelt einen Wald permanent in eine Mallornregion
*
* Flags:
* (FARCASTING | REGIONSPELL | TESTRESISTANCE)
*/
static int
sp_mallorn(castorder *co)
{
unit *u;
region *r = co->rt;
int cast_level = co->level;
unit *mage = (unit *)co->magician;
if(!landregion(rterrain(r))) {
cmistake(mage, strdup(co->order), 290, MSG_MAGIC);
return 0;
}
if(fval(r, RF_MALLORN)) {
cmistake(mage, strdup(co->order), 291, MSG_MAGIC);
return 0;
}
/* half the trees will die */
rsettrees(r, rtrees(r)/2);
fset(r, RF_MALLORN);
/* melden, 1x pro partei */
freset(mage->faction, FL_DH);
for (u = r->units; u; u = u->next) freset(u->faction, FL_DH);
for (u = r->units; u; u = u->next) {
if (!fval(u->faction, FL_DH)) {
fset(u->faction, FL_DH);
add_message(&r->msgs, new_message(u->faction,
"mallorn_effect%u:mage", cansee(u->faction, r, mage, 0) ? mage:NULL));
}
}
if(!fval(mage->faction, FL_DH)){
/* dann steht niemand von der Magierpartei in der Region, sieht also
* auch keine Regionsmeldung. ergo: global anzeigen */
add_message(&mage->faction->msgs, new_message(mage->faction,
"mallorn_effect%u:mage", mage));
}
return cast_level;
}
@ -1185,6 +1267,7 @@ sp_blessedharvest(castorder *co)
create_curse(mage,&r->attribs,C_BLESSEDHARVEST,0,power,power,1,0);
/* melden, 1x pro partei */
freset(mage->faction, FL_DH);
for (u = r->units; u; u = u->next) freset(u->faction, FL_DH);
for (u = r->units; u; u = u->next) {
@ -1195,6 +1278,8 @@ sp_blessedharvest(castorder *co)
}
}
if (!fval(mage->faction, FL_DH)){
/* dann steht niemand von der Magierpartei in der Region, sieht also
* auch keine Regionsmeldung. ergo: global anzeigen */
add_message(&mage->faction->msgs, new_message(mage->faction,
"harvest_effect%u:mage", mage));
}
@ -1228,6 +1313,7 @@ sp_hain(castorder *co)
rsettrees(r, rtrees(r) + trees);
/* melden, 1x pro partei */
freset(mage->faction, FL_DH);
for (u = r->units; u; u = u->next) freset(u->faction, FL_DH);
for (u = r->units; u; u = u->next) {
if (!fval(u->faction, FL_DH)) {
@ -7349,7 +7435,9 @@ spell spelldaten[] =
"Die Beschwörung von Elementargeistern der Stürme ist ein uraltes "
"Ritual. Der Druide bannt die Elementare in die Segel der Schiffe, "
"wo sie helfen, das Schiff mit hoher Geschwindigkeit über die Wellen "
"zu tragen.",
"zu tragen. Je mehr Kraft der Druide in den Zauber investiert, desto "
"größer ist die Zahl der Elementargeister, die sich bannen lassen. "
"Für jedes Schiff wird ein Elementargeist benötigt.",
NULL,
"s+",
M_DRUIDE,
@ -7684,6 +7772,26 @@ spell spelldaten[] =
{0, 0, 0}},
(spell_f)sp_maelstrom, patzer
},
{SPL_MALLORN, "Wurzeln der Magie",
"Mit Hilfe dieses aufwändigen Rituals läßt der Druide einen Teil seiner "
"dauerhaft in den Boden und die Wälder der Region fliessen. Dadurch wird "
"das Gleichgewicht der Natur in der Region für immer verändert, und in "
"Zukunft werden nur noch die anspruchsvollen, aber kräftigen "
"Mallorngewächse in der Region gedeihen.",
NULL,
NULL,
M_DRUIDE,
(FARCASTING | REGIONSPELL | TESTRESISTANCE),
5, 16,
{
{R_AURA, 250, SPC_FIX},
{R_PERMAURA, 10, SPC_FIX},
{R_TOADSLIME, 1, SPC_FIX},
{0, 0, 0},
{0, 0, 0}},
(spell_f)sp_mallorn, patzer
},
{SPL_GREAT_DROUGHT, "Tor in die Ebene der Hitze",
"Dieses mächtige Ritual öffnet ein Tor in die Elementarebene der "

1
src/common/kernel/spell.h
View File

@ -195,6 +195,7 @@ enum {
SPL_UNHOLYPOWER,
SPL_HOLYGROUND,
SPL_BLOODSACRIFICE,
SPL_MALLORN,
MAXALLSPELLS,
NO_SPELL = (spellid_t) -1
};

9
src/common/spells/alp.c
View File

@ -104,6 +104,7 @@ sp_summon_alp(struct castorder *co)
alp->ship = mage->ship;
}
set_skill(alp, SK_STEALTH, alp->number * 840); /* 840 Tage = T7 */
set_string(&alp->name, "Alp");
alp->status = ST_FLEE; /* flieht */
{
@ -113,7 +114,7 @@ sp_summon_alp(struct castorder *co)
ad->target = opfer;
}
sprintf(buf, "Der Alp %s starb, ohne sein Ziel zu erreichen.", unitname(alp));
strcpy(buf, "Ein Alp starb, ohne sein Ziel zu erreichen.");
{
#ifdef NEW_TRIGGER
/* Wenn der Alp stirbt, den Magier nachrichtigen */
@ -162,11 +163,11 @@ alp_findet_opfer(unit *alp, region *r)
assert(mage);
/* Magier und Opfer Bescheid geben */
sprintf(buf, "Der Alp %s hat sein Opfer gefunden!", unitname(alp));
strcpy(buf, "Ein Alp hat sein Opfer gefunden!");
addmessage(r, mage->faction, buf, MSG_MAGIC, ML_INFO);
sprintf(buf, "Der Alp %s springt auf den Rücken von %s.",
unitname(alp), unitname(opfer));
sprintf(buf, "Ein Alp springt auf den Rücken von %s.",
unitname(opfer));
addmessage(r, opfer->faction, buf, MSG_EVENT, ML_IMPORTANT);
/* Relations werden in destroy_unit(alp) automatisch gelöscht.

4
src/common/util/goodies.c
View File

@ -31,7 +31,7 @@
/* Simple Integer-Liste */
char *
sncat(char * buffer, size_t size, const char * str)
fstrncat(char * buffer, const char * str, unsigned int size)
{
static char * b = NULL;
static char * end = NULL;
@ -95,7 +95,7 @@ space_replace(char * str, char replace)
}
const char *
escape_string(const char * str, char * buffer, size_t len)
escape_string(const char * str, char * buffer, unsigned int len)
{
char s_buffer[4096];
const char * p = str;

9
src/common/util/goodies.h
View File

@ -19,11 +19,12 @@ extern int *intlist_init(void);
extern int *intlist_add(int *i_p, int i);
extern int *intlist_find(int *i_p, int i);
extern unsigned int hashstring(const char* s);
extern char *space_replace(char * str, char replace);
extern const char *escape_string(const char * str, char * buffer, size_t len);
extern boolean locale_check(void);
extern char *sncat(char * buffer, size_t size, const char * str);
extern char *space_replace(char * str, char replace);
extern const char *escape_string(const char * str, char * buffer, unsigned int len);
extern boolean locale_check(void);
extern char *fstrncat(char * buffer, const char * str, unsigned int size);
/* fast strncat */
/* grammar constants: */
#define GR_PLURAL 0x01
/* 0x02-0x08 left unused for individual use */

3
src/doc/spells_uebersicht.txt
View File

@ -42,7 +42,8 @@ Druide/Gwyrrd (38 Spr
13 B... Hitzeelementar 600 halbiert Fruchtbarkeit der Region
14 Nebel der Verwirrung 8*L Bewegung wird zufällig (nur Wald+Ozean)
15 Mahlstrom 200,M Ozeanfeld beschädigt Schiffe schwer
16 T... die Ebene der Hitze 800 stärker als L13, kann Region wandeln
16 Wurzeln der Magie 250,10P,M Wald wird permanent Mallornwald
17 T... die Ebene der Hitze 800 stärker als L13, kann Region wandeln
Chaos/Draig (27 Sprüche):

3
src/eressea/korrektur.c
View File

@ -975,7 +975,8 @@ show_newspells(void)
spellid_t newspellids[] = {
SPL_BLOODSACRIFICE,
SPL_NOSPELL };
SPL_MALLORN,
SPL_NOSPELL };
/* die id's der neuen oder veränderten Sprüche werden in newspellids[]
* abgelegt */

4
src/mapper/map_units.c
View File

@ -14,15 +14,16 @@
#define BOOL_DEFINED
/* wenn config.h nicht vor curses included wird, kompiliert es unter windows nicht */
#include <config.h>
#include <curses.h>
#include <eressea.h>
#include "mapper.h"
/* kernel includes */
#include <goodies.h>
#include <building.h>
#include <faction.h>
#include <goodies.h>
#include <item.h>
#include <movement.h>
#include <race.h>
@ -37,6 +38,7 @@
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include <stddef.h>
#define findunit(f,r) findunitg(f,r)

3
src/res/de/messages.txt
View File

@ -288,6 +288,8 @@ error286;errors:0;de;{unit} in {region}: '{command}' - Die Einheit transportiert
error287;errors:0;de;{unit} in {region}: '{command}' - Dorthin können wir die Einheit nicht transportieren.
error288;errors:0;de;{unit} in {region}: '{command}' - Wieviel sollen wir einreißen?
error289;errors:0;de;{unit} in {region}: '{command}' - Tarne wie?
error290;errors:0;de;{unit} in {region}: '{command}' - Hier wachsen keine Bäume.
error291;errors:0;de;{unit} in {region}: '{command}' - Dies ist schon eine Mallornregion.
# Meldungen und Ereignisse
msg_event;events:0;de;{string}
@ -468,6 +470,7 @@ wind_effect;magic:0;de;{$mage mage} erfleht den Segen der G
path_effect;magic:0;de;{$mage mage} sorgt für trockene Straßen in {region}.
ent_effect;magic:0;de;{$mage mage} belebt {amount} Bäume.
maelstrom_effect;magic:0;de;{$mage mage} beschwört die Mächte des Wassers und ein gigantischer Strudel bildet sich.
mallorn_effect;magic:0;de;{$mage mage} läßt seine Kraft in die Region fliessen.
harvest_effect;magic:0;de;{$mage mage} segnet in einem kurzen Ritual die Felder.
growtree_effect;magic:0;de;{$mage mage} erschuf einen heiligen Hain von {amount} Bäumen.
rust_effect;magic:0;de;{$mage mage} legt einen Rosthauch auf {target}. {amount} Waffen wurden vom Rost zerfressen.