[CHARDEF c_berkancik]
DEFNAME=c_berkancik
NAME=Beruto
SOUND=snd_ANIMALS_ostard_forest1
ID=c_ostard_forest
ICON=i_pet_forest
DESCRIPTION=Beruto Forest
SUBSECTION=Forest
CATEGORY=Beruto
DAM=3,4
ARMOR=44
RESOURCES=15 i_ribs_raw,10 i_hide,
ALIGNMENT=NEUTRAL
CAN=MT_WALK|MT_RUN
FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass
TEVENTS=e_llamas
AVERSIONS=e_carnivores3
DESCRIPTION=Forest
SUBSECTION=Animals
CATEGORY=Kronos
ON=@Create
hitpoints 100
color 07a4
STR={200 250}
DEX={100 130}
INT={40 60}
karma -5800
fame 4000
NPC=brain_animal
FAME=0
KARMA={3000 4000}
PARRYING={95.0 100.0}
MAGICRESISTANCE={95.0 100.0}
TACTICS={95.0 100.0}
WRESTLING=100.0
ANIMALLORE=104.5
on=@gethit
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
on=@dclick
if (<src.tag0.ayarbnk> == 0)
if (<ismypet>)
src.events +e_healle
src.tag0.ayarbnk 1
src.sysmessage @07a1,1,1 Binek Ayarınız yapıldı lütfen tekrar bininiz.
dclick
endif
endif
[events e_healle]
on=@mount
src.newitem i_heal
src.act.equip
on=@dismount
src.consume 500 i_heal
src.tag0.ayarbnk 0
[itemdef i_heal]
id i_gold
type t_eq_Script
layer layer_special
on=@create
timer 5
on=@timer
if (<cont.hits> > <cont.str>)
cont.hits <cont.str>
endif
cont.hits + 5
timer 5
return 1
al