server/server/swamp.C

/*
 * static char *rcsid_swamp_c =
 *   "$Id: swamp.C,v 1.2 2006-08-29 08:01:38 root Exp $";
 */

/*
    CrossFire, A Multiplayer game for X-windows

    Copyright (C) 2005 Mark Wedel & Crossfire Development Team
    Copyright (C) 1992 Frank Tore Johansen

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

    The authors can be reached via e-mail at crossfire-devel@real-time.com
*/

#include <global.h>
#ifndef __CEXTRACT__
#include <sproto.h>
#endif

/* Note this code is very specialized for swamps, in terms of the messages
 * as well as handling of move types.
 */

void walk_on_deep_swamp (object *op, object *victim)
{
    if (victim->type == PLAYER && victim->stats.hp >= 0 && !(victim->move_type & MOVE_FLYING)) {
        new_draw_info_format(NDI_UNIQUE, 0, victim, "You are down to your knees in the %s.", &op->name);
        op->stats.food = 1;
        victim->speed_left -= op->move_slow_penalty;
    }
}

void move_deep_swamp (object *op)
{
    object *above = op->above;
    object *nabove;

    while(above) {
        nabove = above->above;
        if (above->type == PLAYER && !(above->move_type & MOVE_FLYING) && above->stats.hp >= 0 && !QUERY_FLAG(above,FLAG_WIZ)) {
            if (op->stats.food < 1) {
                LOG (llevDebug, "move_deep_swamp(): player is here, but state is "
                     "%d\n", op->stats.food);
                op->stats.food = 1;
            }

            switch(op->stats.food) {
                case 1:
                    if (rndm(0, 2) == 0) {
                        new_draw_info_format(NDI_UNIQUE, 0,above, 
                                      "You are down to your waist in the wet %s.", &op->name);
                        op->stats.food = 2;
                        above->speed_left -= op->move_slow_penalty;
                    }
                    break;

                case 2:
                    if (rndm(0, 2) == 0) {
                        new_draw_info_format(NDI_UNIQUE | NDI_RED, 0,above,
                              "You are down to your NECK in the dangerous %s.", &op->name);
                        op->stats.food = 3;
                        sprintf(above->contr->killer,"drowning in a %s", &op->name);
                        above->stats.hp--;
                        above->speed_left -= op->move_slow_penalty;
                    }
                    break;

                case 3:
                    if (rndm(0, 4) == 0) {
                        object *woodsman = find_obj_by_type_subtype(above, SKILL, SK_WOODSMAN);

                        /* player is ready to drown - only woodsman skill can save him */
                        if (!woodsman) {
                            op->stats.food = 0;
                            new_draw_info_format(NDI_UNIQUE | NDI_ALL, 1, NULL,
                                         "%s disappeared into a %s.", &above->name, &op->name);
                            sprintf(above->contr->killer,"drowning in a %s", &op->name);
              
                            above->stats.hp = -1;
                            kill_player(above); /* player dies in the swamp */
                        }
                        else {
                            op->stats.food = 2;
                            new_draw_info_format(NDI_UNIQUE, 0,above, 
                                  "You almost drowned in the %s! You survived due to your woodsman skill.", &op->name);
                        }
                    }
                    break;
            }
        } else if (!QUERY_FLAG(above, FLAG_ALIVE) && !(above->move_type & MOVE_FLYING) && 
                   !(QUERY_FLAG(above,FLAG_IS_FLOOR)) && !(QUERY_FLAG(above,FLAG_OVERLAY_FLOOR)) &&
                   !(QUERY_FLAG(above, FLAG_NO_PICK))) {
            if (rndm(0, 2) == 0) decrease_ob(above);
        }
        above = nabove;
    }
}
Revision:	1.3
Committed:	Sun Sep 3 00:18:42 2006 UTC (17 years, 9 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.2:	+8 -8 lines
Log Message:	THIS CODE WILL NOT COMPILE use the STABLE tag instead. - major changes in object lifetime and memory management - replaced manual refcounting by shstr class - removed quest system - many optimisations - major changes
#	User	Rev	Content
1	elmex	1.1	/*
2			* static char *rcsid_swamp_c =
3	root	1.3	* "$Id: swamp.C,v 1.2 2006-08-29 08:01:38 root Exp $";
4	elmex	1.1	*/
5
6			/*
7			CrossFire, A Multiplayer game for X-windows
8
9			Copyright (C) 2005 Mark Wedel & Crossfire Development Team
10			Copyright (C) 1992 Frank Tore Johansen
11
12			This program is free software; you can redistribute it and/or modify
13			it under the terms of the GNU General Public License as published by
14			the Free Software Foundation; either version 2 of the License, or
15			(at your option) any later version.
16
17			This program is distributed in the hope that it will be useful,
18			but WITHOUT ANY WARRANTY; without even the implied warranty of
19			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20			GNU General Public License for more details.
21
22			You should have received a copy of the GNU General Public License
23			along with this program; if not, write to the Free Software
24			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25
26			The authors can be reached via e-mail at crossfire-devel@real-time.com
27			*/
28
29			#include <global.h>
30			#ifndef __CEXTRACT__
31			#include <sproto.h>
32			#endif
33
34			/* Note this code is very specialized for swamps, in terms of the messages
35			* as well as handling of move types.
36			*/
37
38			void walk_on_deep_swamp (object op, object victim)
39			{
40			if (victim->type == PLAYER && victim->stats.hp >= 0 && !(victim->move_type & MOVE_FLYING)) {
41	root	1.3	new_draw_info_format(NDI_UNIQUE, 0, victim, "You are down to your knees in the %s.", &op->name);
42	root	1.2	op->stats.food = 1;
43			victim->speed_left -= op->move_slow_penalty;
44	elmex	1.1	}
45			}
46
47			void move_deep_swamp (object *op)
48			{
49			object *above = op->above;
50			object *nabove;
51
52			while(above) {
53	root	1.2	nabove = above->above;
54			if (above->type == PLAYER && !(above->move_type & MOVE_FLYING) && above->stats.hp >= 0 && !QUERY_FLAG(above,FLAG_WIZ)) {
55			if (op->stats.food < 1) {
56			LOG (llevDebug, "move_deep_swamp(): player is here, but state is "
57			"%d\n", op->stats.food);
58			op->stats.food = 1;
59			}
60
61			switch(op->stats.food) {
62			case 1:
63			if (rndm(0, 2) == 0) {
64			new_draw_info_format(NDI_UNIQUE, 0,above,
65	root	1.3	"You are down to your waist in the wet %s.", &op->name);
66	root	1.2	op->stats.food = 2;
67			above->speed_left -= op->move_slow_penalty;
68			}
69			break;
70
71			case 2:
72			if (rndm(0, 2) == 0) {
73			new_draw_info_format(NDI_UNIQUE \| NDI_RED, 0,above,
74	root	1.3	"You are down to your NECK in the dangerous %s.", &op->name);
75	root	1.2	op->stats.food = 3;
76	root	1.3	sprintf(above->contr->killer,"drowning in a %s", &op->name);
77	root	1.2	above->stats.hp--;
78			above->speed_left -= op->move_slow_penalty;
79			}
80			break;
81
82			case 3:
83			if (rndm(0, 4) == 0) {
84			object *woodsman = find_obj_by_type_subtype(above, SKILL, SK_WOODSMAN);
85
86			/* player is ready to drown - only woodsman skill can save him */
87			if (!woodsman) {
88			op->stats.food = 0;
89			new_draw_info_format(NDI_UNIQUE \| NDI_ALL, 1, NULL,
90	root	1.3	"%s disappeared into a %s.", &above->name, &op->name);
91			sprintf(above->contr->killer,"drowning in a %s", &op->name);
92	root	1.2
93			above->stats.hp = -1;
94			kill_player(above); /* player dies in the swamp */
95			}
96			else {
97			op->stats.food = 2;
98			new_draw_info_format(NDI_UNIQUE, 0,above,
99	root	1.3	"You almost drowned in the %s! You survived due to your woodsman skill.", &op->name);
100	root	1.2	}
101			}
102			break;
103			}
104			} else if (!QUERY_FLAG(above, FLAG_ALIVE) && !(above->move_type & MOVE_FLYING) &&
105			!(QUERY_FLAG(above,FLAG_IS_FLOOR)) && !(QUERY_FLAG(above,FLAG_OVERLAY_FLOOR)) &&
106			!(QUERY_FLAG(above, FLAG_NO_PICK))) {
107			if (rndm(0, 2) == 0) decrease_ob(above);
108			}
109			above = nabove;
110	elmex	1.1	}
111			}