red dragon's sight

Since wearing red dragon scales/mail confers infravision, give that
ability to red dragons.  Matters when the hero is polymorphed into one.
Also give it to the Chromatic Dragon, where I don't think it matters.
This commit is contained in:
PatR
2021-12-26 14:57:29 -08:00
parent f72ad04266
commit 8b30f3e1d1

View File

@@ -315,7 +315,8 @@
SIZ(10, 10, MS_SILENT, MZ_SMALL), MR_COLD, MR_COLD,
M1_FLY | M1_BREATHLESS | M1_NOLIMBS | M1_NOHEAD | M1_MINDLESS
| M1_NOTAKE,
M2_HOSTILE | M2_NEUTER, M3_INFRAVISIBLE, 9, CLR_WHITE, FREEZING_SPHERE),
M2_HOSTILE | M2_NEUTER, M3_INFRAVISIBLE, 9, CLR_WHITE,
FREEZING_SPHERE),
MON("flaming sphere", S_EYE, LVL(6, 13, 4, 0, 0),
(G_NOCORPSE | G_GENO | 2), A(ATTK(AT_EXPL, AD_FIRE, 4, 6), NO_ATTK,
NO_ATTK, NO_ATTK, NO_ATTK, NO_ATTK),
@@ -737,7 +738,8 @@
NO_ATTK, NO_ATTK, NO_ATTK),
SIZ(3800, 800, MS_SILENT, MZ_LARGE), 0, 0,
M1_ANIMAL | M1_THICK_HIDE | M1_NOHANDS | M1_HERBIVORE,
M2_HOSTILE | M2_STRONG, M3_INFRAVISIBLE, 15, CLR_GRAY, BALUCHITHERIUM),
M2_HOSTILE | M2_STRONG, M3_INFRAVISIBLE, 15, CLR_GRAY,
BALUCHITHERIUM),
MON("mastodon", S_QUADRUPED, LVL(20, 12, 5, 0, 0), (G_GENO | 1),
A(ATTK(AT_BUTT, AD_PHYS, 4, 8), ATTK(AT_BUTT, AD_PHYS, 4, 8), NO_ATTK,
NO_ATTK, NO_ATTK, NO_ATTK),
@@ -1212,6 +1214,7 @@
| M1_CARNIVORE,
M2_HOSTILE | M2_STRONG | M2_NASTY | M2_GREEDY | M2_JEWELS | M2_MAGIC,
0, 20, CLR_GRAY, GRAY_DRAGON),
/* gold dragon can be seen via infravision but doesn't have infravision */
MON("gold dragon", S_DRAGON, LVL(15, 9, -1, 20, 4), (G_GENO | 1),
A(ATTK(AT_BREA, AD_FIRE, 4, 6), ATTK(AT_BITE, AD_PHYS, 3, 8),
ATTK(AT_CLAW, AD_PHYS, 1, 4), ATTK(AT_CLAW, AD_PHYS, 1, 4),
@@ -1246,6 +1249,7 @@
M2_HOSTILE | M2_STRONG | M2_NASTY | M2_GREEDY | M2_JEWELS | M2_MAGIC,
0, 20, CLR_CYAN, SHIMMERING_DRAGON),
#endif
/* red dragon has infravision and can be seen via infravision */
MON("red dragon", S_DRAGON, LVL(15, 9, -1, 20, -4), (G_GENO | 1),
A(ATTK(AT_BREA, AD_FIRE, 6, 6), ATTK(AT_BITE, AD_PHYS, 3, 8),
ATTK(AT_CLAW, AD_PHYS, 1, 4), ATTK(AT_CLAW, AD_PHYS, 1, 4), NO_ATTK,
@@ -1254,7 +1258,7 @@
M1_FLY | M1_THICK_HIDE | M1_NOHANDS | M1_SEE_INVIS | M1_OVIPAROUS
| M1_CARNIVORE,
M2_HOSTILE | M2_STRONG | M2_NASTY | M2_GREEDY | M2_JEWELS | M2_MAGIC,
M3_INFRAVISIBLE, 20, CLR_RED, RED_DRAGON),
M3_INFRAVISION | M3_INFRAVISIBLE, 20, CLR_RED, RED_DRAGON),
MON("white dragon", S_DRAGON, LVL(15, 9, -1, 20, -5), (G_GENO | 1),
A(ATTK(AT_BREA, AD_COLD, 4, 6), ATTK(AT_BITE, AD_PHYS, 3, 8),
ATTK(AT_CLAW, AD_PHYS, 1, 4), ATTK(AT_CLAW, AD_PHYS, 1, 4), NO_ATTK,
@@ -2936,7 +2940,7 @@
M2_NOPOLY | M2_HUMAN | M2_PNAME | M2_PEACEFUL | M2_STRONG | M2_MALE
| M2_COLLECT | M2_MAGIC,
M3_CLOSE | M3_INFRAVISIBLE, 22, HI_LORD, SHAMAN_KARNOV),
#if 0 /* OBSOLETE */
#if 0 /* OBSOLETE -- leaders for 3.1.x/3.2.x elf quest when elf was a role */
/* Two for elves - one of each sex.
*/
MON("Earendil", S_HUMAN,
@@ -3092,9 +3096,9 @@
M1_THICK_HIDE | M1_NOHANDS | M1_CARNIVORE | M1_SEE_INVIS | M1_POIS,
M2_NOPOLY | M2_HOSTILE | M2_FEMALE | M2_STALK | M2_STRONG | M2_NASTY
| M2_GREEDY | M2_JEWELS | M2_MAGIC,
M3_WANTSARTI | M3_WAITFORU | M3_INFRAVISIBLE, 23, HI_LORD,
CHROMATIC_DRAGON),
#if 0 /* OBSOLETE */
M3_WANTSARTI | M3_WAITFORU | M3_INFRAVISION | M3_INFRAVISIBLE,
23, HI_LORD, CHROMATIC_DRAGON),
#if 0 /* OBSOLETE -- nemesis for 3.1.x/3.2.x elf quest when elf was a role */
MON("Goblin King", S_ORC,
LVL(15, 12, 10, 0, -15), (G_NOGEN | G_UNIQ),
A(ATTK(AT_WEAP, AD_PHYS, 2, 6), ATTK(AT_WEAP, AD_PHYS, 2, 6),
@@ -3225,7 +3229,7 @@
M1_HUMANOID | M1_OMNIVORE,
M2_NOPOLY | M2_HUMAN | M2_PEACEFUL | M2_STRONG | M2_COLLECT,
M3_INFRAVISIBLE, 7, HI_DOMESTIC, NEANDERTHAL),
#if 0 /* OBSOLETE */
#if 0 /* OBSOLETE -- guardian for 3.1.x/3.2.x elf quest when elf was a role */
MON("High-elf", S_HUMAN,
LVL(5, 12, 10, 10, -7), G_NOGEN,
A(ATTK(AT_WEAP, AD_PHYS, 2, 4), ATTK(AT_MAGC, AD_CLRC, 0, 0),