bineğe armor verdirme

[chardef 011C]
name @07a1 Armored Steed
defname=c_armored_steed
CAN=MT_WALK|MT_RUN
FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass
ICON=i_pet_Horse
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
DESIRES=e_horses,c_man,c_woman
TEVENTS=e_horses
AVERSIONS=e_carnivores3
DESCRIPTION=Cu Sidhe
SUBSECTION=Land (Wild)
CATEGORY=Animals
ARMOR=25

on=@click
If (<memoryfindtype(memory_ipet)>)
message @64,,1 [Sahibi: <memoryfindtype(memory_ipet).link.name>]
endif

if (strmatch('<strsub 0 4 <name>>','bank'))
name BUGCU
return 1
endif

ON=@Create
color=0
STR={660 660}
DEX={100 100}
INT={15 15}

PARRYING={35.0 45.0}
MAGICRESISTANCE={25.0 30.0}
TACTICS={29.0 44.0}
WRESTLING={29.0 44.0}
TAMING=100.0
ANIMALLORE=100.0

NPC=brain_animal

KARMA=-5270
fame=1230

on=@mount
if (<argo.name> == Armored Steed)
src.armor +=20
return 1
endif

Xearth : sen kendinemı armor vermek istiyorsun bineğemi ?

[events e_armor]
on @mount
if <argo.id>==c_armored_steed
modar +=50
endif


on @dismount
if <argo.id>==c_armored_steed
modar -=50
endif

//Events related to all players
EventsPlayer=e_armor