APPLY-SPELL-EFFECT!

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) TYPE SOURCE TARGET &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) TYPE SOURCE (TARGET PLAYER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF ITEMS.CUR-SIZE), AOBJ.CONTAINS, ASK-FOR-REDRAW!, GET-CREATURE-INVENTORY, ITEMS.CUR-SIZE, ITEMS.OBJS and SHRINK-ARRAY!
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) TYPE SOURCE (TARGET ACTIVE-OBJECT) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		%DESTROY-FLOOR-OBJ and OBJ-DAMAGED-BY-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<FIRE>)) SOURCE (TARGET ACTIVE-OBJECT) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		%DESTROY-FLOOR-OBJ and OBJ-DAMAGED-BY-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<WEAK-LIGHT>)) SOURCE (TARGET FLOOR-TYPE) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		ASK-FOR-UPDATE!, BIT-FLAG-ADD!, CAVE-FLAGS, NON-NEGATIVE-INTEGER? and PLAYER-HAS-LOS-BOLD?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<LIGHT>)) SOURCE (TARGET FLOOR-TYPE) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		ASK-FOR-UPDATE!, BIT-FLAG-ADD!, CAVE-FLAGS, NON-NEGATIVE-INTEGER? and PLAYER-HAS-LOS-BOLD?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<WEAK-DARKNESS>)) SOURCE (TARGET FLOOR-TYPE) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		ASK-FOR-UPDATE!, BIT-FLAG-REMOVE!, CAVE-FLAGS, NON-NEGATIVE-INTEGER? and PLAYER-HAS-LOS-BOLD?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<DARKNESS>)) SOURCE (TARGET FLOOR-TYPE) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		ASK-FOR-UPDATE!, BIT-FLAG-REMOVE!, CAVE-FLAGS, NON-NEGATIVE-INTEGER? and PLAYER-HAS-LOS-BOLD?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<FIRE>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE) (SETF MEFF.DYING-NOTE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) BIT-FLAG-ADD! GET-ELEMENT-FLAG GET-IMMUNITIES GET-MONSTER-KNOWLEDGE GET-RESISTS GET-VULNERABILITIES IMMUNE-TO-ELEMENT? INT-/ MEFF.SEEN MONSTER.TRIED-ELM RESISTS-ELEMENT? VULNERABLE-TO-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<WEAK-LIGHT>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE) (SETF MEFF.DYING-NOTE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) BIT-FLAG-ADD! GET-ELEMENT-FLAG GET-IMMUNITIES GET-MONSTER-KNOWLEDGE GET-RESISTS GET-VULNERABILITIES IMMUNE-TO-ELEMENT? MEFF.SEEN RESISTS-ELEMENT? VULNERABLE-TO-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<WEAK-DARKNESS>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE) (SETF MEFF.DYING-NOTE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) BIT-FLAG-ADD! GET-ELEMENT-FLAG GET-IMMUNITIES GET-MONSTER-KNOWLEDGE GET-RESISTS GET-VULNERABILITIES IMMUNE-TO-ELEMENT? MEFF.SEEN MONSTER.TRIED-ELM RESISTS-ELEMENT? VULNERABLE-TO-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<EROSION>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE) (SETF MEFF.DYING-NOTE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) BIT-FLAG-ADD! GET-ELEMENT-FLAG GET-IMMUNITIES GET-MONSTER-KNOWLEDGE GET-RESISTS GET-VULNERABILITIES IMMUNE-TO-ELEMENT? MEFF.SEEN MONSTER.TRIED-ELM RESISTS-ELEMENT? VULNERABLE-TO-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<LIGHT>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE) (SETF MEFF.DYING-NOTE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) BIT-FLAG-ADD! GET-ELEMENT-FLAG GET-IMMUNITIES GET-MONSTER-KNOWLEDGE GET-RESISTS GET-VULNERABILITIES IMMUNE-TO-ELEMENT? INT-/ MEFF.SEEN MONSTER.TRIED-ELM RANDINT RESISTS-ELEMENT? VULNERABLE-TO-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<DARKNESS>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE) (SETF MEFF.DYING-NOTE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) BIT-FLAG-ADD! GET-ELEMENT-FLAG GET-IMMUNITIES GET-MONSTER-KNOWLEDGE GET-RESISTS GET-VULNERABILITIES IMMUNE-TO-ELEMENT? INT-/ MEFF.SEEN MONSTER.TRIED-ELM RANDINT RESISTS-ELEMENT? VULNERABLE-TO-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<EROSION>)) SOURCE (TARGET FLOOR-TYPE) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		ASK-FOR-UPDATE!, BIT-FLAG-SET?, CAVE-DECOR, FLOOR.FLAGS, FLOORIFY-COORD!, FORMAT-MESSAGE!, IS-DOOR? and PLAYER-CAN-SEE-BOLD?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<POLYMORPH>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF CREATURE-ALIVE?) (SETF MEFF.DAMAGE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) AMON.KIND GET-POWER-LVL IS-UNIQUE-MONSTER? LIGHT-SPOT! MEFF.SEEN PLACE-SINGLE-MONSTER! POLYMORPH-CREATURE PRODUCE-ACTIVE-MONSTER RANDINT REMOVE-MONSTER-FROM-DUNGEON! UPDATE-MONSTER!
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<HEAL-MONSTER>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE), (SETF MEFF.NOTE), (SETF MEFF.OBVIOUS), HEAL-CREATURE! and MEFF.SEEN
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<HASTE>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE), (SETF MEFF.NOTE), (SETF MEFF.OBVIOUS), HASTE-CREATURE!, MEFF.SEEN and RANDINT
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<SLOW>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE), (SETF MEFF.NOTE), (SETF MEFF.OBVIOUS), GET-POWER-LVL, IS-UNIQUE-MONSTER?, MEFF.SEEN, RANDINT and SLOW-CREATURE!
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<SLEEP>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE) (SETF MEFF.NOTE) (SETF MEFF.OBVIOUS) BIT-FLAG-ADD! GET-ELEMENT-FLAG GET-IMMUNITIES GET-MONSTER-KNOWLEDGE GET-POWER-LVL GET-VULNERABILITIES IMMUNE-TO-ELEMENT? IS-UNIQUE-MONSTER? MEFF.SEEN MODIFY-CREATURE-STATE! RANDINT RESISTS-ELEMENT?
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<DESTROY-TRAPS/DOORS>)) SOURCE (TARGET DECOR) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		ASK-FOR-UPDATE!, BIT-FLAG-SET?, CAVE-FLOOR, FLOOR.FLAGS, FLOORIFY-COORD!, IS-DOOR?, IS-TRAP?, PLAYER-CAN-SEE-BOLD? and PRINT-MESSAGE!
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<DESTROY-TRAPS>)) SOURCE (TARGET DECOR) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF DOOR.LOCK) ASK-FOR-UPDATE! BIT-FLAG-SET? CAVE-FLAGS DECOR-OPERATION DECOR.VISIBLE? DOOR.LOCK FLOORIFY-COORD! IS-DOOR? IS-TRAP? PLAYER-CAN-SEE-BOLD? PRINT-MESSAGE!
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<TELEPORT>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE), (SETF MEFF.NOTE), (SETF MEFF.OBVIOUS), MEFF.SEEN and TELEPORT-CREATURE!
Location		variants/vanilla/effects.lisp

APPLY-SPELL-EFFECT!

(APPLY-SPELL-EFFECT! (VARIANT VANILLA-VARIANT) (TYPE (EQL '<DISPEL-EVIL>)) SOURCE (TARGET ACTIVE-MONSTER) &KEY X Y (DAMAGE 0) (STATE-OBJECT NIL)) [method]

Calls		(SETF MEFF.DAMAGE), (SETF MEFF.DYING-NOTE), (SETF MEFF.NOTE), (SETF MEFF.OBVIOUS), ADD-MONSTER-KNOWLEDGE-FLAG!, IS-EVIL? and MEFF.SEEN
Location		variants/vanilla/effects.lisp