- Peace-Curse im mapper setzbar

This commit is contained in:
Christian Schlittchen 2002-02-23 10:34:55 +00:00
parent 6ef723f412
commit afbd3a9062
1 changed files with 7 additions and 1 deletions

View File

@ -144,7 +144,7 @@ SpecialFunction(region *r)
win = openwin(60, 5, "< Specials Regions >"); win = openwin(60, 5, "< Specials Regions >");
wmove(win, 1, 2); wmove(win, 1, 2);
wAddstr("1 - set Godcurse"); wAddstr("1 - set Godcurse (n.imm), 2 - set Peace-Curse (imm)");
wmove(win, 2, 2); wmove(win, 2, 2);
wrefresh(win); wrefresh(win);
switch(getch()) { switch(getch()) {
@ -156,6 +156,12 @@ SpecialFunction(region *r)
modified = 1; modified = 1;
break; break;
} }
case '2':
if(!is_cursed_internal(r->attribs, C_PEACE, 0)) {
create_curse(NULL, &r->attribs, C_PEACE, 0, 100, 1, 0, 0);
set_curseflag(r->attribs, C_PEACE, 0, CURSE_IMMUN);
modified = 1;
}
default: default:
break; break;
} }