ID=i_staff_gnarled
NAME=dragon taming staff
TYPE=t_weapon_mace_staff
VALUE=50
TWOHANDS=Y
LAYER=2
WEIGHT=10
DAM=5,10
FLIP=1

On=@Create
color 025
morez 05
more2 0
attr 04
hitpoints 5

On=@Click
if (<morex> > 0)
message [<eval <morez>> charges]
endif

On=@DClick
if (<morez> < 1)
src.sysmessage Staff kullanilamayacak derecede kadar eskimis...
return 1
endif

if (<src.taming> != 100.0)
src.sysmessage Bu staff'i kullanacak kadar bilgili degilsiniz.
return 1
endif

if (<more2> == 0)
target Hangi dragonu ehlillestirmek istiyorsunuz?
endif
return 1

On=@UnEquip
timer -1

On=@Timer
if (<more2> < 9)
if (<link.memoryfindtype.memory_ipet>)
cont.sysmessage <src.targ.name>, ugraslariniz sirasinda, baska biri tarafindan ehlilestirildi.
return 1
endif
dorand 10
cont.sayu Gel <link.name>, gel...
cont.sayu Sana zarar vermeyecegim <link.name>...
cont.sayu Sakin ol, <link.name>.
cont.sayu Her zaman senin gibi bir <link.name> sahibi olmak istemistim...
cont.sayu Cok tatlisin, <link.name>.
cont.sayu Gel bir tanem, gel canim..
cont.sayu Seni incitmeyecegim, <link.name>.
cont.sayu Arkadasin olmak istiyorum.
cont.sayu Gel <cont.sex babana/annene>, <link.name>.
cont.sayu 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 (rand(100) < 75)
if <link.memoryfindtype.memory_ispawned>
link.memoryfindtype.memory_ispawned.remove
endif
link.karma 2500
link.memoryfindtype.memory_speak.color (memory_ipet|memory_guard)
link.memoryfindtype.(memory_ipet|memory_guard).name <cont.name>
link.memoryfindtype.(memory_ipet|memory_guard).link <cont.uid>
link.memoryfindtype.(memory_ipet|memory_guard).timer -1
link.flags <link.flags> & 08000000
cont.sysmessage <link.name> sizi sahibi olarak kabul etti.
morez (<morez> - 1)
link 04fffffff
else
cont.sysmessage Hayvani ehlillestirmeyi basaramadiniz.
link 04fffffff
endif
return 1

On=@TargOn_Char
if (<src.targ.flags> == 024000000)
src.sysmessage Buyu ile yaratilmis hayvanlari ehlilestiremezsiniz.
src.action -1
return 1
endif

if !(<src.targ.region.defname> == a_townZoo)
if (<src.targ.npc> == 13)
if (<src.targ.distance> > 4)
src.sysmessage Hayvana yeterince yakin degilsiniz.
return 1
elseif (<src.targ.memoryfindtype.memory_ipet>)
src.sysmessage <src.targ.name> zaten ehlillestirilmis.
return 1
else
link <src.targ.uid>
src.anim 19
dorand 10
cont.sayu Gel <link.name>, gel <cont.sex babana/annene>...
cont.sayu Sana zarar vermeyecegim, <link.name>
cont.sayu Seni incitmeyecegim.
cont.sayu Her zaman senin gibi bir <link.name> aramistim.
cont.sayu Ne kadar sirinsin, <link.name>..
cont.sayu Neden bana oyle bakiyorsun, <link.name>?
cont.sayu Bana oyle bakma, <link.name>..
cont.sayu Seni yasadigim surece sevecegim, <link.name>.
cont.sayu Gel <cont.sex babana/annene>, <link.name>.
cont.sayu Gel <cont.sex babana/annene>.
enddo
timer 2
return 1
endif
else
src.sysmessage Bunu ehlillestiremezsiniz.
return 1
endif
else
src.sysmessage Bu bolgede taming yasaktir.
return 1
endif

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