| … | |
… | |
| 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 | } |
