| 1 | /* |
1 | /* |
| 2 | * This file is part of Deliantra, the Roguelike Realtime MMORPG. |
2 | * This file is part of Deliantra, the Roguelike Realtime MMORPG. |
| 3 | * |
3 | * |
| 4 | * Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team |
4 | * Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012 Marc Alexander Lehmann / Robin Redeker / the Deliantra team |
| 5 | * Copyright (©) 2002 Mark Wedel & Crossfire Development Team |
5 | * Copyright (©) 2002 Mark Wedel & Crossfire Development Team |
| 6 | * Copyright (©) 1992 Frank Tore Johansen |
6 | * Copyright (©) 1992 Frank Tore Johansen |
| 7 | * |
7 | * |
| 8 | * Deliantra is free software: you can redistribute it and/or modify it under |
8 | * Deliantra is free software: you can redistribute it and/or modify it under |
| 9 | * the terms of the Affero GNU General Public License as published by the |
9 | * the terms of the Affero GNU General Public License as published by the |
| 10 | * Free Software Foundation, either version 3 of the License, or (at your |
10 | * Free Software Foundation, either version 3 of the License, or (at your |
| 11 | * option) any later version. |
11 | * 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 Affero GNU General Public License |
18 | * You should have received a copy of the Affero GNU General Public License |
| 19 | * and the GNU General Public License along with this program. If not, see |
19 | * and the GNU General Public License along with this program. If not, see |
| 20 | * <http://www.gnu.org/licenses/>. |
20 | * <http://www.gnu.org/licenses/>. |
| 21 | * |
21 | * |
| 22 | * The authors can be reached via e-mail to <support@deliantra.net> |
22 | * The authors can be reached via e-mail to <support@deliantra.net> |
| 23 | */ |
23 | */ |
| 24 | |
24 | |
| 25 | /* Oct 3, 1995 - Code laid down for initial gods, priest alignment, and |
25 | /* Oct 3, 1995 - Code laid down for initial gods, priest alignment, and |
| 26 | * monster race initialization. b.t. |
26 | * monster race initialization. b.t. |
| … | |
… | |
| 403 | { |
403 | { |
| 404 | failmsgf ("Fool! %s detests your kind! H<This god does not accept followers of your race.>", &new_god->name); |
404 | failmsgf ("Fool! %s detests your kind! H<This god does not accept followers of your race.>", &new_god->name); |
| 405 | |
405 | |
| 406 | if (random_roll (0, level - 1, this, PREFER_LOW) - 5 > 0) |
406 | if (random_roll (0, level - 1, this, PREFER_LOW) - 5 > 0) |
| 407 | { |
407 | { |
| 408 | object *tmp = get_archetype (LOOSE_MANA); |
408 | object *tmp = archetype::get (LOOSE_MANA); |
| 409 | |
409 | |
| 410 | cast_magic_storm (this, tmp, new_god->level + 10); |
410 | cast_magic_storm (this, tmp, new_god->level + 10); |
| 411 | } |
411 | } |
| 412 | |
412 | |
| 413 | return; |
413 | return; |
| … | |
… | |
| 741 | |
741 | |
| 742 | change_exp (op, -random_roll (0, loss * angry - 1, op, PREFER_LOW), skop ? skop->skill : shstr_none, SK_SUBTRACT_SKILL_EXP); |
742 | change_exp (op, -random_roll (0, loss * angry - 1, op, PREFER_LOW), skop ? skop->skill : shstr_none, SK_SUBTRACT_SKILL_EXP); |
| 743 | |
743 | |
| 744 | if (random_roll (0, angry, op, PREFER_LOW)) |
744 | if (random_roll (0, angry, op, PREFER_LOW)) |
| 745 | { |
745 | { |
| 746 | object *tmp = get_archetype (LOOSE_MANA); |
746 | object *tmp = archetype::get (LOOSE_MANA); |
| 747 | |
747 | |
| 748 | cast_magic_storm (op, tmp, op->level + (angry * 3)); |
748 | cast_magic_storm (op, tmp, op->level + (angry * 3)); |
| 749 | } |
749 | } |
| 750 | |
750 | |
| 751 | new_draw_info_format (NDI_UNIQUE | NDI_NAVY, 0, op, "%s becomes angry and punishes you!", &god->name); |
751 | new_draw_info_format (NDI_UNIQUE | NDI_NAVY, 0, op, "%s becomes angry and punishes you!", &god->name); |
| … | |
… | |
| 812 | if (op->stats.grace < item->stats.grace || op->stats.grace < op->stats.maxgrace) |
812 | if (op->stats.grace < item->stats.grace || op->stats.grace < op->stats.maxgrace) |
| 813 | { |
813 | { |
| 814 | /* Follower lacks the required grace for the following |
814 | /* Follower lacks the required grace for the following |
| 815 | * treasure list items. */ |
815 | * treasure list items. */ |
| 816 | |
816 | |
| 817 | object *tmp = get_archetype (HOLY_POSSESSION); |
817 | object *tmp = archetype::get (HOLY_POSSESSION); |
| 818 | cast_change_ability (op, op, tmp, 0, 1); |
818 | cast_change_ability (op, op, tmp, 0, 1); |
| 819 | tmp->destroy (); |
819 | tmp->destroy (); |
| 820 | return; |
820 | return; |
| 821 | } |
821 | } |
| 822 | |
822 | |
| … | |
… | |
| 1038 | object *tmp; |
1038 | object *tmp; |
| 1039 | |
1039 | |
| 1040 | /* you really screwed up */ |
1040 | /* you really screwed up */ |
| 1041 | angry = 3; |
1041 | angry = 3; |
| 1042 | new_draw_info_format (NDI_UNIQUE | NDI_NAVY, 0, pl, "Foul Priest! %s punishes you!", &pl_god->name); |
1042 | new_draw_info_format (NDI_UNIQUE | NDI_NAVY, 0, pl, "Foul Priest! %s punishes you!", &pl_god->name); |
| 1043 | tmp = get_archetype (LOOSE_MANA); |
1043 | tmp = archetype::get (LOOSE_MANA); |
| 1044 | cast_magic_storm (pl, tmp, pl_god->level + 20); |
1044 | cast_magic_storm (pl, tmp, pl_god->level + 20); |
| 1045 | } |
1045 | } |
| 1046 | else |
1046 | else |
| 1047 | new_draw_info_format (NDI_UNIQUE | NDI_NAVY, 0, pl, "Foolish heretic! %s is livid!", &pl_god->name); |
1047 | new_draw_info_format (NDI_UNIQUE | NDI_NAVY, 0, pl, "Foolish heretic! %s is livid!", &pl_god->name); |
| 1048 | } |
1048 | } |
