[events e_Rename]

on=@Rename

if (( <argo.Brain> != brain_Animal )

  src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.

elif !( <src.Restest 1 i_binek_isim> )

  src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.

elif ( <eval STRLEN(<args>)> > 12 )

  src.Sysmessage @38,,1 En fazla 12 karakter olabilir.

else

src.Consume 1 i_binek_isim

src.Sysmessage @0481,,1 Yeni isim: <args>

endif

[CHARDEF cinaslov_steed]

DEFNAME=cinaslov_steed

NAME=Cinaslov

ID=c_horse_brown_lt

TEVENTS=e_horses

SOUND=snd_ANIMALS_HORSE1

ICON=i_pet_horse_brown_lt

DAM=9,7

ARMOR=30

RESOURCES=25 i_ribs_raw,10 i_hide





//ALIGNMENT=EVIL

CAN=MT_WALK|MT_RUN

FOODTYPE=50 t_meat_raw

//SHELTER=r_caves,r_dungeon

DESIRES=i_gold

AVERSIONS=r_civilization,r_water



on=@dclick

src.sysmessage @38,,1 [ Bineğinizin ]

src.sysmessage @0793,,1 HP'Sİ=> <hits>

On=@Click

if !(strmatch('<name>','Cinaslov'))

name Cinaslov

endif

if (<findid.i_binekfix.timer> =-1)

endif

if (<memoryfindtype.memory_ipet>)

message @0930,1 [Sahibi: <memoryfindtype.memory_ipet.link.name>]

message @0484,1 [etkinlik]

MESSAGE @38,1,1 <name>

return 1

else

message @38,1,1 <name> 

return 1

endif











ON=@Create

FOOD=50

NPC=brain_animal

COLOR=07a1               



STR={1000 1000}

DEX={250 250}

INT={5}



FAME=1000

KARMA=500



PARRYING={70.0 70.0}

MAGICRESISTANCE={80.0 80.0}

TACTICS={70.0 70.0}

WRESTLING={70.0 70.0}



TAMING=100.0



ITEM=loot_nightmare



CATEGORY=Monsters

SUBSECTION=Miscellaneous

DESCRIPTION=Cinaslov

itemnewbie=i_binekfix









On=@Hit

if !(<src.findid.i_bleeding>) && !(<src.findid.i_bleeding2>)

if !(<findlayer(1)> || <findlayer(2)>)

src.damage {10 10}

src.hits (<src.hits> - 8)

src.skill fail

var.act <src.act.uid>

src.newitem i_bleeding

src.act.equip

src.newitem i_bleeding2

src.act.equip

src.act <var.act>

src.sayua 38,6,6,0 * Yara Alir *

return 1

endif

endif







on=[url=u-death-9220.html]@death[/url]

serv.allclients sysmessage @038,,1 [Binek Ölüm]

serv.allclients sysmessage @0790,,1 <name> , <region.name> Civarlarında <act.name> Tarafından Öldürülmüştür.



on=@deathcorpse

argo.type t_cinaslov

argo.timer 280





on=@gethit

if !(<R3>==1)

return 1

endif

if !(strmatch('<name>','Cinaslov'))

name Cinaslov

endif

On=@Click

if (<memoryfindtype.memory_ipet>)

message @0930,1 [Sahibi: <memoryfindtype.memory_ipet.link.name>]

else

message @0930,1 [Sahibi: yok]

endif

message @0484,1 [etkinlik]

MESSAGE @38,1,1 <name>

return 1