forked from github/server
116 lines
2.3 KiB
C
116 lines
2.3 KiB
C
|
/* vi: set ts=2:
|
||
|
|
+-------------------+ Christian Schlittchen <corwin@amber.kn-bremen.de>
|
||
|
|
| | Enno Rehling <enno@eressea-pbem.de>
|
||
|
|
| Eressea PBEM host | Katja Zedel <katze@felidae.kn-bremen.de>
|
||
|
|
| (c) 1998 - 2001 | Henning Peters <faroul@beyond.kn-bremen.de>
|
||
|
|
| | Ingo Wilken <Ingo.Wilken@informatik.uni-oldenburg.de>
|
||
|
|
+-------------------+ Stefan Reich <reich@halbling.de>
|
||
|
|
|
||
|
|
This program may not be used, modified or distributed
|
||
|
|
without prior permission by the authors of Eressea.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <config.h>
|
||
|
|
#include <eressea.h>
|
||
|
|
#include <faction.h>
|
||
|
|
#include <unit.h>
|
||
|
|
#include <item.h>
|
||
|
|
#include <items/xerewards.h>
|
||
|
|
|
||
|
|
#include "xecmd.h"
|
||
|
|
|
||
|
|
/* kernel includes */
|
||
|
|
#include <item.h>
|
||
|
|
#include <unit.h>
|
||
|
|
#include <region.h>
|
||
|
|
#include <ship.h>
|
||
|
|
|
||
|
|
#include <base36.h>
|
||
|
|
|
||
|
|
#include <stdlib.h>
|
||
|
|
|
||
|
|
attrib_type at_xontormiaexpress = {
|
||
|
|
"xontormiaexpress",
|
||
|
|
DEFAULT_INIT,
|
||
|
|
DEFAULT_FINALIZE,
|
||
|
|
DEFAULT_AGE,
|
||
|
|
DEFAULT_WRITE,
|
||
|
|
DEFAULT_READ,
|
||
|
|
ATF_UNIQUE
|
||
|
|
};
|
||
|
|
|
||
|
|
static void
|
||
|
|
xe_givelaen(unit *u, char *cmd)
|
||
|
|
{
|
||
|
|
unit *u2 =getunitg(u->region, u->faction);
|
||
|
|
|
||
|
|
if(!u2) {
|
||
|
|
cmistake(u, strdup(cmd), 63, MSG_EVENT);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
i_change(&u2->items, olditemtype[I_LAEN], 5);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
xe_givepotion(unit *u, char *cmd)
|
||
|
|
{
|
||
|
|
unit *u2 =getunitg(u->region, u->faction);
|
||
|
|
|
||
|
|
if(!u2) {
|
||
|
|
cmistake(u, strdup(cmd), 63, MSG_EVENT);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
i_change(&u2->items, &it_skillpotion, 1);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
xe_giveballon(unit *u, char *cmd)
|
||
|
|
{
|
||
|
|
unit *u2 =getunitg(u->region, u->faction);
|
||
|
|
ship *sh;
|
||
|
|
|
||
|
|
if(!u2) {
|
||
|
|
cmistake(u, strdup(cmd), 63, MSG_EVENT);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
sh = new_ship(st_find("balloon"),u2->region);
|
||
|
|
sh->size = 5;
|
||
|
|
set_string(&sh->name,"Xontormia-Ballon");
|
||
|
|
addlist(&u2->region->ships, sh);
|
||
|
|
leave(u2->region, u2);
|
||
|
|
u2->ship = sh;
|
||
|
|
fset(u2, FL_OWNER);
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
xecmd(void)
|
||
|
|
{
|
||
|
|
faction *f;
|
||
|
|
|
||
|
|
for(f=factions; f; f=f->next) {
|
||
|
|
if(a_find(f->attribs, &at_xontormiaexpress)) {
|
||
|
|
unit *u;
|
||
|
|
for(u=f->units; u; u=u->nextF) {
|
||
|
|
strlist *S;
|
||
|
|
for(S=u->orders; S; S=S->next) {
|
||
|
|
if(findkeyword(igetstrtoken(S->s),f->locale) == K_XE) {
|
||
|
|
switch(findparam(getstrtoken(),f->locale)) {
|
||
|
|
case P_XEPOTION:
|
||
|
|
xe_givepotion(u, S->s);
|
||
|
|
break;
|
||
|
|
case P_XEBALLOON:
|
||
|
|
xe_giveballon(u, S->s);
|
||
|
|
break;
|
||
|
|
case P_XELAEN:
|
||
|
|
xe_givelaen(u, S->s);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|