| 1 | /* |
1 | /* |
| 2 | CrossFire, A Multiplayer game for X-windows |
2 | * CrossFire, A Multiplayer game for X-windows |
| 3 | |
3 | * |
| 4 | Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team |
4 | * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team |
| 5 | Copyright (C) 2002 Mark Wedel & Crossfire Development Team |
5 | * Copyright (C) 2002 Mark Wedel & Crossfire Development Team |
| 6 | Copyright (C) 1992 Frank Tore Johansen |
6 | * Copyright (C) 1992 Frank Tore Johansen |
| 7 | |
7 | * |
| 8 | This program is free software; you can redistribute it and/or modify |
8 | * This program is free software; you can redistribute it and/or modify |
| 9 | it under the terms of the GNU General Public License as published by |
9 | * it under the terms of the GNU General Public License as published by |
| 10 | the Free Software Foundation; either version 2 of the License, or |
10 | * the Free Software Foundation; either version 2 of the License, or |
| 11 | (at your option) any later version. |
11 | * (at your option) any later version. |
| 12 | |
12 | * |
| 13 | This program is distributed in the hope that it will be useful, |
13 | * This program is distributed in the hope that it will be useful, |
| 14 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
15 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 16 | GNU General Public License for more details. |
16 | * GNU General Public License for more details. |
| 17 | |
17 | * |
| 18 | You should have received a copy of the GNU General Public License |
18 | * You should have received a copy of the GNU General Public License |
| 19 | along with this program; if not, write to the Free Software |
19 | * along with this program; if not, write to the Free Software |
| 20 | Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
20 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
| 21 | |
21 | * |
| 22 | The authors can be reached via e-mail at <crossfire@schmorp.de> |
22 | * The authors can be reached via e-mail at <crossfire@schmorp.de> |
| 23 | */ |
23 | */ |
| 24 | |
24 | |
| 25 | #include <global.h> |
25 | #include <global.h> |
| 26 | #include <funcpoint.h> |
26 | #include <funcpoint.h> |
| 27 | |
27 | |
| 28 | /* Handy little macro that adds exp and keeps it within bounds. Since |
28 | /* Handy little macro that adds exp and keeps it within bounds. Since |
| … | |
… | |
| 677 | */ |
677 | */ |
| 678 | |
678 | |
| 679 | void |
679 | void |
| 680 | object::drain_stat () |
680 | object::drain_stat () |
| 681 | { |
681 | { |
| 682 | drain_specific_stat (RANDOM () % NUM_STATS); |
682 | drain_specific_stat (rndm (NUM_STATS)); |
| 683 | } |
683 | } |
| 684 | |
684 | |
| 685 | void |
685 | void |
| 686 | object::drain_specific_stat (int deplete_stats) |
686 | object::drain_specific_stat (int deplete_stats) |
| 687 | { |
687 | { |
| … | |
… | |
| 755 | return; |
755 | return; |
| 756 | |
756 | |
| 757 | /* Randomly change the players luck. Basically, we move it |
757 | /* Randomly change the players luck. Basically, we move it |
| 758 | * back neutral (if greater>0, subtract, otherwise add) |
758 | * back neutral (if greater>0, subtract, otherwise add) |
| 759 | */ |
759 | */ |
| 760 | if (RANDOM () % (FABS (tmp->stats.luck)) >= RANDOM () % 30) |
760 | if (rndm (abs (tmp->stats.luck)) >= rndm (30)) |
| 761 | { |
761 | { |
| 762 | int diff = tmp->stats.luck > 0 ? -1 : 1; |
762 | int diff = tmp->stats.luck > 0 ? -1 : 1; |
| 763 | |
763 | |
| 764 | stats.luck += diff; |
764 | stats.luck += diff; |
| 765 | tmp->stats.luck += diff; |
765 | tmp->stats.luck += diff; |
| … | |
… | |
| 2025 | else |
2025 | else |
| 2026 | /* note that when you lose exp, it doesn't go against |
2026 | /* note that when you lose exp, it doesn't go against |
| 2027 | * a particular skill, so we don't need to pass that |
2027 | * a particular skill, so we don't need to pass that |
| 2028 | * along. |
2028 | * along. |
| 2029 | */ |
2029 | */ |
| 2030 | subtract_player_exp (op, FABS (exp), skill_name, flag); |
2030 | subtract_player_exp (op, abs (exp), skill_name, flag); |
| 2031 | |
|
|
| 2032 | } |
2031 | } |
| 2033 | } |
2032 | } |
| 2034 | |
2033 | |
| 2035 | /* Applies a death penalty experience, the size of this is defined by the |
2034 | /* Applies a death penalty experience, the size of this is defined by the |
| 2036 | * settings death_penalty_percentage and death_penalty_levels, and by the |
2035 | * settings death_penalty_percentage and death_penalty_levels, and by the |
