[CHARDEF c_m_mohikan]
DEFNAME=c_m_mohikan
NAME=Mohikan
SOUND=snd_ANIMALS_HORSE1
ID=c_horse_brown_lt
CAN=MT_WALK|MT_RUN
FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass
ICON=i_pet_horse_brown_dk
DESCRIPTION=Unicorn
SUBSECTION=Horses
CATEGORY=Animals

//ALIGNMENT=NEUTRAL
CAN=MT_WALK|MT_RUN
FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass
SHELTER=r_stables,e_Human_Greet
DESIRES=e_horses,c_man,c_woman
TEVENTS=e_horses
AVERSIONS=e_carnivores3
DESCRIPTION=Horse (Steed)
SUBSECTION=Animals
CATEGORY=New

On=@Click
if (strmatch("@*","<name>"))
remove
endif

ON=@Create
COLOR=0819
STR={900 1050}
DEX={1100 1200}
INT={9 23}

karma -5800
fame 4000

NPC=brain_animal

FAME=1111111111
KARMA={9999999999 9999999999}

PARRYING={95.0 100.0}
MAGICRESISTANCE={95.0 100.0}
TACTICS={95.0 100.0}
WRESTLING=100.0
TAMING=100.0
ANIMALLORE=100.0

on=@gethit
if (<hits> < 20)
sayua 0481,2,0,eng,* kendini iyilestirir *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
hits=(<hits> + 75)
return 1
endif
if (<act.baseid>=c_vortex)
sayua 0481,2,0,eng,* buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
return 1
endif
if (<act.baseid>=c_blade_spirit)
sayua 0481,2,0,eng,* buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
return 1
endif
if (<act.baseid>=c_daemon)
sayua 0481,2,0,eng,* buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
return 1
endif
if (<act.baseid>=c_bear_polar)
sayua 0481,2,0,eng,* buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
return 1
endif
if (<flags> &statf_poisoned)
sayua 0481,2,0,eng,* zehiri iyilestirir *
sound snd_spell_cure
findid.i_rune_poison.remove
return 1

[Function .mohikan]
IF <SRC.BODY>=c_ghost_man
SRC.RESURRECT
src.hits <str>
RETURN
ELSE