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

Plündern 

Neues Kommando Plündern für die Monster (kann über XML-Option auch für
Spieler freigeschaltet werden)
This commit is contained in:
CTD 2014-09-15 15:51:40 +02:00
parent 27ddeb7adc
commit 1c7075573b
8 changed files with 137 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
res/core/de/strings.xml
View File

@ -2302,6 +2302,9 @@
<string name="sort">
<text locale="de">SORTIEREN</text>
</string>
<string name="loot">
<text locale="de">Plündere</text>
</string>
</namespace>
<!--NR generieren -->

3
res/core/en/strings.xml
View File

@ -1574,6 +1574,9 @@
<string name="grow">
<text locale="en">GROW</text>
</string>
<string name="loot">
<text locale="en">loot</text>
</string>
</namespace>
<!-- NR generieren -->

2
res/core/messages.xml
View File

@ -2754,7 +2754,7 @@
<arg name="wanted" type="int"/>
<arg name="mode" type="int"/>
</type>
<text locale="de">"$unit($unit) verdient$if($eq($mode,4)," am Handel","") in $region($region) $int($amount)$if($eq($wanted,$amount),""," statt $int($wanted)") Silber$if($eq($mode,1)," durch Unterhaltung",$if($eq($mode,2)," durch Steuern",$if($eq($mode,3)," durch Handel",$if($eq($mode,5)," durch Diebstahl",$if($eq($mode,6)," durch Zauberei","")))))."</text>
<text locale="de">"$unit($unit) verdient$if($eq($mode,4)," am Handel","") in $region($region) $int($amount)$if($eq($wanted,$amount),""," statt $int($wanted)") Silber$if($eq($mode,1)," durch Unterhaltung",$if($eq($mode,2)," durch Steuern",$if($eq($mode,3)," durch Handel",$if($eq($mode,5)," durch Diebstahl",$if($eq($mode,6)," durch Zauberei",$if($eq($mode,7)," durch Pluendern","")))))."</text>
<text locale="fr">"$unit($unit) earns $int($amount)$if($eq($wanted,$amount),""," of $int($wanted)") in $region($region)."</text>
<text locale="en">"$unit($unit) earns $int($amount)$if($eq($wanted,$amount),""," of $int($wanted)") in $region($region)."</text>
</message>

112
src/economy.c
View File

@ -3194,6 +3194,43 @@ static int do_work(unit * u, order * ord, request * o)
return -1;
}
static void expandloot(region * r, request * lootorders)
{
unit *u;
int i;
int looted = 0;
int startmoney = rmoney(r);
expandorders(r, lootorders);
if (!norders)
return;
for (i = 0; i != norders && rmoney(r) > TAXFRACTION * 2; i++) {
change_money(oa[i].unit, TAXFRACTION);
oa[i].unit->n += TAXFRACTION;
/*Looting destroys double the money*/
rsetmoney(r, rmoney(r) - TAXFRACTION * 2);
looted = looted + TAXFRACTION * 2;
}
free(oa);
/* Lowering morale by 1 depending on the looted money (+20%) */
if (chance(looted / startmoney + 0.2)) {
int m = region_get_morale(r);
if (m) {
/*Nur Moral -1, turns is not changed, so the first time nothing happens if the morale is good*/
region_set_morale(r, m-1, -1);
}
}
for (u = r->units; u; u = u->next) {
if (u->n >= 0) {
add_income(u, IC_LOOT, u->wants, u->n);
fset(u, UFL_LONGACTION | UFL_NOTMOVING);
}
}
}
static void expandtax(region * r, request * taxorders)
{
unit *u;
@ -3281,6 +3318,71 @@ void tax_cmd(unit * u, struct order *ord, request ** taxorders)
return;
}
void loot_cmd(unit * u, struct order *ord, request ** lootorders)
{
region *r = u->region;
unit *u2;
int n;
int max;
request *o;
keyword_t kwd;
kwd = init_order(ord);
assert(kwd == K_LOOT);
if (get_param_int(global.parameters, "rules.enable_loot", 0) == 0 && !is_monsters(u->faction)) {
return;
}
if (!humanoidrace(u_race(u)) && !is_monsters(u->faction)) {
cmistake(u, ord, 228, MSG_INCOME);
return;
}
if (fval(u, UFL_WERE)) {
cmistake(u, ord, 228, MSG_INCOME);
return;
}
if (besieged(u)) {
cmistake(u, ord, 60, MSG_INCOME);
return;
}
n = armedmen(u, false);
if (!n) {
cmistake(u, ord, 48, MSG_INCOME);
return;
}
u2 = is_guarded(r, u, GUARD_TAX);
if (u2) {
ADDMSG(&u->faction->msgs,
msg_feedback(u, ord, "region_guarded", "guard", u2));
return;
}
max = getuint();
if (max == 0)
max = INT_MAX;
if (!playerrace(u_race(u))) {
u->wants = _min(income(u), max);
}
else {
/* For player start with 20 Silver +10 every 5 level of close combat skill*/
int skbonus = (max(eff_skill(u, SK_MELEE, r), eff_skill(u, SK_SPEAR, r)) * 2 / 10) + 2;
u->wants = _min(n * skbonus * 10, max);
}
o = (request *)calloc(1, sizeof(request));
o->qty = u->wants / TAXFRACTION;
o->unit = u;
addlist(lootorders, o);
return;
}
#define MAX_WORKERS 2048
void auto_work(region * r)
{
@ -3344,7 +3446,7 @@ static void peasant_taxes(region * r)
void produce(struct region *r)
{
request workers[MAX_WORKERS];
request *taxorders, *sellorders, *stealorders, *buyorders;
request *taxorders, *lootorders, *sellorders, *stealorders, *buyorders;
unit *u;
int todo;
static int rule_autowork = -1;
@ -3380,6 +3482,7 @@ void produce(struct region *r)
nextentertainer = &entertainers[0];
entertaining = 0;
taxorders = 0;
lootorders = 0;
stealorders = 0;
for (u = r->units; u; u = u->next) {
@ -3448,6 +3551,10 @@ void produce(struct region *r)
tax_cmd(u, u->thisorder, &taxorders);
break;
case K_LOOT:
loot_cmd(u, u->thisorder, &lootorders);
break;
case K_STEAL:
steal_cmd(u, u->thisorder, &stealorders);
break;
@ -3483,6 +3590,9 @@ void produce(struct region *r)
if (taxorders)
expandtax(r, taxorders);
if (lootorders)
expandloot(r, lootorders);
/* An erster Stelle Kaufen (expandbuying), die Bauern so Geld bekommen, um
* nachher zu beim Verkaufen (expandselling) den Spielern abkaufen zu
* können. */

30
src/economy.h
View File

@ -37,28 +37,26 @@ extern "C" {
#define TRADE_FRACTION 100
extern int income(const struct unit *u);
extern int income(const struct unit *u);
/* Wieviel Fremde eine Partei pro Woche aufnehmen kann */
#define MAXNEWBIES 5
void economics(struct region *r);
void produce(struct region *r);
void auto_work(struct region *r);
void economics(struct region *r);
void produce(struct region *r);
void auto_work(struct region *r);
enum { IC_WORK, IC_ENTERTAIN, IC_TAX, IC_TRADE, IC_TRADETAX, IC_STEAL,
IC_MAGIC };
void maintain_buildings(struct region *r, bool crash);
extern void add_spende(struct faction *f1, struct faction *f2, int betrag,
struct region *r);
extern int make_cmd(struct unit *u, struct order *ord);
extern void split_allocations(struct region *r);
extern int recruit_archetypes(void);
extern int give_control_cmd(struct unit *u, struct order *ord);
extern void give_control(struct unit * u, struct unit * u2);
enum { IC_WORK, IC_ENTERTAIN, IC_TAX, IC_TRADE, IC_TRADETAX, IC_STEAL, IC_MAGIC, IC_LOOT };
void maintain_buildings(struct region *r, bool crash);
extern void add_spende(struct faction *f1, struct faction *f2, int betrag, struct region *r);
extern int make_cmd(struct unit *u, struct order *ord);
extern void split_allocations(struct region *r);
extern int recruit_archetypes(void);
extern int give_control_cmd(struct unit *u, struct order *ord);
extern void give_control(struct unit * u, struct unit * u2);
struct message * check_steal(const struct unit * u, struct order *ord);
struct message * check_give(const struct unit * u, const struct unit * u2, struct order *ord);
struct message * check_steal(const struct unit * u, struct order *ord);
struct message * check_give(const struct unit * u, const struct unit * u2, struct order *ord);
#ifdef __cplusplus
}

3
src/kernel/order.c
View File

@ -416,6 +416,7 @@ bool is_repeated(const order * ord)
case K_PIRACY:
case K_PLANT:
case K_MAKE:
case K_LOOT:
result = 1;
break;
@ -456,6 +457,7 @@ bool is_exclusive(const order * ord)
case K_PIRACY:
case K_PLANT:
case K_MAKE:
case K_LOOT:
result = 1;
break;
@ -499,6 +501,7 @@ bool is_long(const order * ord)
case K_PIRACY:
case K_PLANT:
case K_MAKE:
case K_LOOT:
return true;
default:

1
src/keyword.c
View File

@ -143,5 +143,6 @@ const char *keywords[MAXKEYWORDS] = {
"claim",
"promote",
"pay",
"loot",
};

1
src/keyword.h
View File

@ -69,6 +69,7 @@ typedef enum {
K_CLAIM,
K_PROMOTION,
K_PAY,
K_LOOT,
MAXKEYWORDS,
NOKEYWORD = -1
} keyword_t;