[CHARDEF c_alma_penada]
ID=c_spectre
DEFNAME=c_alma_penada
NAME=Lost Soul
ARMOR=10
DAM=10,20
MOVERATE=60
CAN=MT_EQUIP|MT_WALK

ON=@Create
STR=400
MAXHITS=800
DEX=400
INT=400
WRESTLING=1000
TACTICS=1000
MAGERY=800
NPC=brain_monster
KARMA=-8000
FAME=1000

ON=@Death
SERV.NEWNPC c_wisp_black
NEW.P=<P>
NEW.UPDATE

[CHARDEF c_wisp_black]
ID=c_wisp
DEFNAME=c_wisp_black
NAME=Black Wisp
ARMOR=10
DAM=10,30
MOVERATE=50
CAN=MT_WALK

ON=@Create
STR=200
MAXHITS=300
DEX=100
INT=300
NPC=brain_monster
KARMA=-8000
FAME=1000
COLOR=colors_black
REMOVETIMER <EVAL 60*60*3>

[FUNCTION F_REDEEM]
IF (<KILLS> >= 5)
KILLS -= 5
ELIF (<KILLS> >= 4)
KILLS -= 4
ELIF (<KILLS> >= 3)
KILLS -= 3
ELIF (<KILLS> == 2)
KILLS -= 2
ELIF (<KILLS> == 1)
KILLS=0
ELSE
OBJ.SAY @33,3,1 You can't seek redemption if your soul is already clean!
RETURN 1
ENDIF
OBJ.SAY @33,3,1 Your soul has been redeemed <NAME>!

[EOF]