server/server/swamp.C

/*
 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
 * 
 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
 * Copyright (©) 2005,2007 Mark Wedel & Crossfire Development Team
 * Copyright (©) 1992,2007 Frank Tore Johansen
 * 
 * Crossfire TRT 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 Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
 * Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 * 
 * The authors can be reached via e-mail to <crossfire@schmorp.de>
 */

#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.8
Committed:	Mon May 28 21:28:36 2007 UTC (17 years ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.7:	+17 -17 lines
Log Message:	update copyrights in server/*.C
#	User	Rev	Content
1	elmex	1.1	/*
2	root	1.8	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
3	pippijn	1.7	*
4	root	1.8	* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
5			* Copyright (©) 2005,2007 Mark Wedel & Crossfire Development Team
6			* Copyright (©) 1992,2007 Frank Tore Johansen
7	pippijn	1.7	*
8	root	1.8	* Crossfire TRT is free software; you can redistribute it and/or modify it
9			* under the terms of the GNU General Public License as published by the Free
10			* Software Foundation; either version 2 of the License, or (at your option)
11			* any later version.
12	pippijn	1.7	*
13	root	1.8	* This program is distributed in the hope that it will be useful, but
14			* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15			* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16			* for more details.
17	pippijn	1.7	*
18	root	1.8	* You should have received a copy of the GNU General Public License along
19			* with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
20			* Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21			*
22			* The authors can be reached via e-mail to <crossfire@schmorp.de>
23	pippijn	1.7	*/
24	elmex	1.1
25			#include <global.h>
26			#ifndef __CEXTRACT__
27	root	1.4	# include <sproto.h>
28	elmex	1.1	#endif
29
30			/* Note this code is very specialized for swamps, in terms of the messages
31			* as well as handling of move types.
32			*/
33
34	root	1.4	void
35			walk_on_deep_swamp (object op, object victim)
36	elmex	1.1	{
37	root	1.4	if (victim->type == PLAYER && victim->stats.hp >= 0 && !(victim->move_type & MOVE_FLYING))
38			{
39			new_draw_info_format (NDI_UNIQUE, 0, victim, "You are down to your knees in the %s.", &op->name);
40			op->stats.food = 1;
41			victim->speed_left -= op->move_slow_penalty;
42	elmex	1.1	}
43			}
44
45	root	1.4	void
46			move_deep_swamp (object *op)
47	elmex	1.1	{
48	root	1.4	object *above = op->above;
49			object *nabove;
50	elmex	1.1
51	root	1.4	while (above)
52			{
53			nabove = above->above;
54			if (above->type == PLAYER && !(above->move_type & MOVE_FLYING) && above->stats.hp >= 0 && !QUERY_FLAG (above, FLAG_WIZ))
55			{
56			if (op->stats.food < 1)
57			{
58			LOG (llevDebug, "move_deep_swamp(): player is here, but state is " "%d\n", op->stats.food);
59			op->stats.food = 1;
60	root	1.2	}
61
62	root	1.4	switch (op->stats.food)
63			{
64	root	1.2	case 1:
65	root	1.4	if (rndm (0, 2) == 0)
66			{
67			new_draw_info_format (NDI_UNIQUE, 0, above, "You are down to your waist in the wet %s.", &op->name);
68			op->stats.food = 2;
69			above->speed_left -= op->move_slow_penalty;
70	root	1.2	}
71	root	1.4	break;
72	root	1.2
73			case 2:
74	root	1.4	if (rndm (0, 2) == 0)
75			{
76			new_draw_info_format (NDI_UNIQUE \| NDI_RED, 0, above, "You are down to your NECK in the dangerous %s.", &op->name);
77			op->stats.food = 3;
78			sprintf (above->contr->killer, "drowning in a %s", &op->name);
79			above->stats.hp--;
80			above->speed_left -= op->move_slow_penalty;
81	root	1.2	}
82	root	1.4	break;
83	root	1.2
84			case 3:
85	root	1.4	if (rndm (0, 4) == 0)
86			{
87			object *woodsman = find_obj_by_type_subtype (above, SKILL, SK_WOODSMAN);
88
89			/* player is ready to drown - only woodsman skill can save him */
90			if (!woodsman)
91			{
92			op->stats.food = 0;
93			new_draw_info_format (NDI_UNIQUE \| NDI_ALL, 1, NULL, "%s disappeared into a %s.", &above->name, &op->name);
94			sprintf (above->contr->killer, "drowning in a %s", &op->name);
95	root	1.2
96	root	1.4	above->stats.hp = -1;
97			kill_player (above); /* player dies in the swamp */
98	root	1.2	}
99	root	1.4	else
100			{
101			op->stats.food = 2;
102			new_draw_info_format (NDI_UNIQUE, 0, above,
103			"You almost drowned in the %s! You survived due to your woodsman skill.", &op->name);
104	root	1.2	}
105			}
106	root	1.4	break;
107	root	1.2	}
108			}
109	root	1.4	else if (!QUERY_FLAG (above, FLAG_ALIVE) && !(above->move_type & MOVE_FLYING) &&
110			!(QUERY_FLAG (above, FLAG_IS_FLOOR)) && !(QUERY_FLAG (above, FLAG_OVERLAY_FLOOR)) && !(QUERY_FLAG (above, FLAG_NO_PICK)))
111			{
112			if (rndm (0, 2) == 0)
113			decrease_ob (above);
114			}
115			above = nabove;
116	elmex	1.1	}
117			}