[function distcheck]
if (<tag.hayvanx> > <p.x>)
if (<eval <tag.hayvanx> - 5> > <p.x>)
sysmessage @38,1,1 Hayvan gorus alaninizdan cikti.
tag.animalaway=1
return 1
endif
else
if (<eval <tag.hayvanx> + 5> < <p.x>)
sysmessage @38,1,1 Hayvan gorus alaninizdan cikti.
tag.animalaway=1
return 1
endif
endif
if (<tag.hayvany> > <p.y>)
if (<eval <tag.hayvany> - 5> > <p.y>)
sysmessage @38,1,1 Hayvan gorus alaninizdan cikti.
tag.animalaway=1
return 1
endif
else
if (<eval <tag.hayvany> + 5> < <p.y>)
sysmessage @38,1,1 Hayvan gorus alaninizdan cikti.
tag.animalaway=1
return 1
endif
endif


[ITEMDEF i_taming_staff]
ID=i_staff_gnarled
NAME=taming staff
TYPE=t_weapon_mace_staff
VALUE=290
TWOHANDS=Y
LAYER=2
WEIGHT=10
DAM=5,10

On=@Create
color 066d
more2 0
timer -1
hitpoints 100

On=@DClick
Target
dispid i_staff_gnarled
if (<topobj.uid> != <src.uid>)
        equip
target @1153,1,1 Hangi hayvani evcillestirmek istiyorsunuz?
//src.sysmessage @38,1,1 Bunu kullanabilmeniz icin uzerinizde olmali
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @38,1,1 Gizlenmis durumdayken bunu kullanamazsiniz.
elseif (<src.targ.region.defname> == a_townZoo)
src.sysmessage @38,1,1 Bu bolgede taming yasaktir.
elseif (<timer> == -1)
        equip
target @1153,1,1 Hangi hayvani evcillestirmek istiyorsunuz?
endif
return 1

On=@Equip
dispid i_staff_gnarled

On=@UnEquip
more2 0
timer -1
link -1
src.events -e_taming_f

on=@click
message @0123 a Taming Staff
return 1

On=@Timer
cont.tag.animalaway=0
cont.tag.hayvanx=<link.p.x>
cont.tag.hayvany=<link.p.y>
cont.distcheck
if (0<cont.tag.animalaway>)
cont.events -e_taming_f
more2 0
return 1
endif

Cont.Tamesee <Link.Uid>
If !(<Var.TameSee>)
cont.sysmessage @38,1,1 Hayvana ulasamiyorsunuz.
cont.findid.i_tamesee.remove
cont.events -e_taming_f
action -1
link -1
return 1
Elseif (<Var.Dist> > 5)
cont.sysmessage @38,1,1 Hayvana ulasamiyorsunuz.
cont.findid.i_tamesee.remove
cont.events -e_taming_f
action -1
link -1
return 1
endif

if (<cont.flags>&statf_hidden) || (<cont.flags>&statf_invisible)
cont.sysmessage @38,1,1 Gizlenmis durumdayken evcillestirme yapamazsiniz...
cont.events -e_taming_f
action -1
link -1
return 1
endif

if (<more2> < 6)
dorand 10
cont.message @38,1,1 Gel <link.name>, gel..
cont.message @38,1,1 Sana zarar vermeyecegim <link.name>..
cont.message @38,1,1 Sakin ol, <link.name>.
cont.message @38,1,1 Her zaman senin gibi bir <link.name> sahibi olmak istemistim..
cont.message @38,1,1 Cok tatlisin, <link.name>.
cont.message @38,1,1 Gel bir tanem, gel canim..
cont.message @38,1,1 Seni incitmeyecegim, <link.name>.
cont.message @38,1,1 Arkadasin olmak istiyorum.
cont.message @38,1,1 Gel <cont.sex babana/annene>, <link.name>.
cont.message @38,1,1 Gel <link.name>, gel <cont.sex babana/annene>.
enddo
dorand 2
cont.anim 17
cont.anim 19
enddo
timer 2
more2 (<more2> + 1)
return 1
endif
more2 0

if !(<link.npc> == 1)
cont.sysmessage @38,1,1 Bunu evcillestiremezsiniz.
return 1
endif

if ((<cont.skilllock[35]> == 0) && (<cont.skilltotal> < 700.0))
if (<cont.taming> < 30.0)
if (rand(2) == 1)
cont.taming (<cont.taming> + 1)
endif
elseif (<cont.taming> < 50.0)
if (rand(5) == 1)
cont.taming (<cont.taming> + 1)
endif
elseif (<cont.taming> < 60.0)
if (rand(10) == 1)
cont.taming (<cont.taming> + 1)
endif
elseif (<cont.taming> < 75.0)
if (rand(15) == 1)
cont.taming (<cont.taming> + 1)
endif
elseif (<cont.taming> < 87.0)
if (rand(20) == 1)
cont.taming (<cont.taming> + 1)
endif
elseif (<cont.taming> < 100.0)
if (rand(25) == 1)
cont.taming (<cont.taming> + 1)
endif
//elseif (<cont.taming> < 110.0)
// if (rand(8) == 1)
// cont.taming (<cont.taming> + 1)
// endif
endif
endif

if ((<cont.skilllock[2]> == 0) && (<cont.skilltotal> < 700.0))
if (<cont.animallore> < 30.0)
if (rand(2) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 50.0)
if (rand(4) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 60.0)
if (rand(6) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 75.0)
if (rand(8) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 87.0)
if (rand(10) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 100.0)
if (rand(12) == 1)
cont.animallore (<cont.animallore> + 1)
endif
//elseif (<cont.animallore> < 110.0)
//if (rand(6) == 1)
//cont.animallore (<cont.animallore> + 1)
//endif
endif
endif

link.tag.tamer <cont.uid>
link -1
else
cont.sysmessage @38,1,1 Hayvani evcillestirmeyi basaramadiniz.
link -1
endif
return 1



On=@TargOn_Char

if !(<src.targ.region.defname> == a_townZoo)
if ((<src.targ.npc> == 1) && (<src.targ.id> != c_pv))
if !(<src.targ.canseelos>)
src.sysmessage @38,1,1 Hayvana ulasamiyorsunuz.
elseif (<src.targ.distance> > 3)
src.sysmessage @38,1,1 Hayvana yeterince yakin degilsiniz.
elseif (<src.targ.memoryfindtype.memory_ipet>)
if (<src.targ.memoryfindtype.(memory_ipet|memory_guard).link> == <src.uid>)
src.sysmessage @68,1,1 <src.targ.name> zaten size ait.
src.targ.flags <src.targ.flags>&statf_pet
else
src.sysmessage @38,1,1 <src.targ.name> bir baskasina ait.
endif
elseif (<src.targ.memoryfindtype.memory_fight>)
src.sysmessage @38,1,1 Hayvan su an musait degil.
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @38,1,1 Gizlenmis durumda iken evcillestirme yapamazsiniz.
elseif (<src.targ.memoryfindtype.memory_war_targ.link> == <src.uid>)
src.sysmessage @38,1,1 Hayvan su an size cok kizgin.

elseif (<src.targ.findid.i_rune_summon_creature>)
src.sysmessage @38,1,1 Buyu ile yaratilmis hayvanlari evcillestirmezsiniz
elseif (0<src.targ.tag.tamer> == 0<src.uid>) // tamerlar elele bug-free dunyaya
src.sysmessage @38,1,1 Hayvan artik sizi umursamiyor.
elseif (<src.taming> < <src.targ.taming>)
src.anim 19
src.sysmessage @38,1,1 <src.targ.name> icin taming skilliniz yeterli degil. (gerekli skill: <src.targ.taming>)
elseif (<src.animallore> < <src.targ.animallore>)
src.anim 19
src.sysmessage @38,1,1 <src.targ.name> icin animal lore skilliniz yeterli degil. (gerekli skill: <src.targ.animallore>)
else // tame etmeye ba$la...
link <src.targ.uid>
src.anim 19
timer 2
src.events +e_taming_f
endif
else
src.sysmessage @38,1,1 Bunu evcillestiremezsiniz.
endif
else
src.sysmessage @38,1,1 Bu bolgede taming yasaktir.
endif
return 1

On=@TargOn_Item
return 1



[function memorydel] // memory silen loop
if (0<args>)
if (<findid.i_memory.link> == <args>)
findid.i_memory.remove
memorydel <args>
endif
endif

[EVENTS e_taming_f]

ON=@Hittry
IF (rand(2) =1)
sysmessage @38,1,1 Konsantrasyonunuzu kaybettiniz, evcillestiremiyorsunuz.
//findlayer(2).skill fail
//findlayer(2).action - 1
EVENTS= -e_taming_f
findlayer(2).more2 0
findlayer(2).timer -1
findlayer(2).link -1
ENDIF

ON=@Death
findlayer(2).unequip
EVENTS= -e_taming_f

ON=@spelleffect
IF (rand(2) =1)
IF (<argn> == 1) || (<argn> == 3) || (<argn> == 5) || (<argn> == 8) || (<argn> == 12) || (<argn> == 18) || (<argn> == 20) || (<argn> == 27) || (<argn> == 30) || (<argn> == 31) || (<argn> == 37) || (<argn> == 38) || (<argn> == 39) || (<argn> == 42) || (<argn> == 43) || (<argn> == 46) || (<argn> == 47) || (<argn> == 49) || (<argn> == 51) || (<argn> == 53) || (<argn> == 55) || (<argn> == 57)
sysmessage @38,1,1 Konsantrasyonunuzu kaybettiniz, evcillestiremiyorsunuz.
//src.findlayer(2).skill fail
//src.findlayer(2).action - 1
EVENTS= -e_taming_f
src.findlayer(2).more2 0
src.findlayer(2).timer -1
src.findlayer(2).link -1
ENDIF
ENDIF


[FUNCTION Tamesee]
Newitem i_tamesee
Act.Link <argn>
Equip <Act.Uid>

[ITEMDEF i_tamesee]
NAME=TAMESEE
TYPE=T_EQ_SCRIPT
LAYER=LAYER_SPECIAL

On=@Equip
Var.Dist <Link.Distance>
Var.TameSee <Link.CanSeeLos>
Remove

[eof]

[CHARDEF 0C8]
//HORSE (Warm Tan)(light brown)
DEFNAME=c_horse_tan
NAME=Horse (tame)
SOUNMAL=snd_ANI S_HORSE1
ICON=i_pet_horse_tan
ANIM=01fff
CAN=MT_WALK|MT_RUN
RESOURCES=15 i_ribs_raw, 10 i_hide
FOODTYPE=55 t_crops,55 t_fruit,55 t_grain, 64 t_grass
DAM=3,4
ARMOR=9
DESIRES=c_man,c_woman
TEVENTS=
//SHELTER=r_stables,e_Human_Greet
AVERSIONS=
DESCRIPTION=Horse (tame)
SUBSECTION=Land (Domestic)*CA*EGOR
ON=@Create
NPC=brain_animal
        Food=50
FAME=0
KARMA=-1
STR={44 120}
DEX={36 55}
INT={6 10}
PARRYING={35.0 45.0}
MAGICRESISTANCE={25.0 30.0}
TACTICS={29.0 44.0}
WRESTLING={29.0 44.0}
TAMING={75.0}
//ALIGNMENT=NEUTRAL

TAMING={75.0} /// Bu şejkilde Diyilde
Taming=75.0 /// bu şekillde dene yine Olması lazım bide
animal lore=75.0 /// animal lore ölemi yazılıyo unuttum Binek İşiyle urasmuorumda:D