+10 tame staff lazim

on=@equip
src.taming = <src.taming> + 100


on=@unequip
src.taming = <src.taming> - 100

burda zor olan neki arkadaşlar bukadar ugrasıosunuz ?

Slothere :

[itemdef i_staff_taming10]
id=i_staff_gnarled
TYPE=t_weapon_mace_staff
weight=2
name blabla

on=@create
color=xx
hitpoints=100

on=@equip
if (<src.taming> == 100.0)
src.tag.taming <src.taming>
src.taming +=10.0
endif

on=@unequip
if (<tag0.taming>)
src.taming <src.tag.taming>
endif

güzel oldu gibi.

Tameler mi bu ?

Bu hali ile tamelemez tabiiki. Altına tame sorgularını eklediğiniz takdirde çalışacaktır. Şu an sadece skill ekleme olayını göstermek için yazdım onu ben..

[ITEMDEF i_staff_+10]
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 0455
more2 0 
timer -1 
hitpoints 5 

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

On=@Equip 
src.taming (<src.taming> + 10.0) 
return 1


On=@UnEquip 
more2 0 
timer -1 
link -1 
src.events -e_taming_f 
src.taming (<src.taming> - 10.0) 

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 
//cont.say taz ownz! 
return 1 
endif 

if (<more2> < 6) 
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 !(<link.npc> == 1) 
cont.sysmessage @56,,1 Bunu ehlilestiremezsiniz. 
return 1 
endif 

if (rand(100) < 75) 
if (<link.memoryfindtype.memory_ispawned> 
link.memoryfindtype.memory_ispawned.remove 
endif 
link.karma -50 
link.memorydel <cont.uid> 
link.newitem i_memory 
link.act.attr 04 
link.act.more1 04 
link.act.more2 <serv.time> 
link.act.morep <link.p> 
link.act.color memory_ipet 
link.act.timer -1 
link.act.link <cont.uid> 
link.act.cont <link.uid> 
link.flags <link.flags>&statf_pet 
CONT.events -e_taming_f 
cont.sysmessage @56,,1 <link.name> sizi sahibi olarak kabul etti. 
if ((<cont.skilllock[35]> == 0) && (<cont.skilltotal> < 800.0)) 
if (<cont.taming> < 30.0) 
if (rand(2) == 1) 
cont.taming (<cont.taming> + 1) 
endif 
elseif (<cont.taming> < 50.0) 
if (rand(2) == 1) 
cont.taming (<cont.taming> + 1) 
endif 
elseif (<cont.taming> < 75.0) 
if (rand(4) == 1) 
cont.taming (<cont.taming> + 1) 
endif 
elseif (<cont.taming> < 100.0) 
if (rand(8) == 1) 
cont.taming (<cont.taming> + 1) 
endif 
endif 
endif 

if ((<cont.skilllock[2]> == 0) && (<cont.skilltotal> < 800.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> < 75.0) 
if (rand(8) == 1) 
cont.animallore (<cont.animallore> + 1) 
endif 
elseif (<cont.animallore> < 100.0) 
if (rand(16) == 1) 
cont.animallore (<cont.animallore> + 1) 
endif 
endif 
endif 

link.tag.tamer <cont.uid> 
link -1 
else 
cont.sysmessage @56,,1 Hayvani ehlillestirmeyi 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 @56,,1 Hayvana ulasamiyorsunuz. 
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible) 
src.sysmessage @56,,1 Gizlenmis durumdayken bunu kullanamazsiniz. 
elseif (<src.targ.distance> > 2) 
src.sysmessage @56,,1 Hayvana yeterince yakin degilsiniz. 
elseif (<src.targ.memoryfindtype.memory_ipet> 
if (<src.targ.memoryfindtype.(memory_ipet|memory_guard).link> == <src.uid> 
src.sysmessage @56,,1 <src.targ.name> zaten size ait. 
src.targ.flags <src.targ.flags>&statf_pet 
else 
src.sysmessage @56,,1 <src.targ.name> bir baskasina ait. 
endif 
elseif (<src.targ.memoryfindtype.memory_fight> 
src.sysmessage @56,,1 Hayvan su an musait degil. 
elseif (<src.targ.memoryfindtype.memory_war_targ.link> == <src.uid> 
src.sysmessage @56,,1 Hayvan su an size cok kizgin. 
elseif (<src.targ.findid.i_rune_summon_creature> 
src.sysmessage @56,,1 Buyu ile yaratilmis hayvanlari ehlilestiremezsiniz. 
elseif (0<src.targ.tag.tamer> == 0<src.uid> // tamerlar elele bug-free dunyaya 
src.sysmessage @56,,1 Hayvan artik sizi umursamiyor. 
elseif (<src.taming> < <src.targ.taming> 
src.anim 19 
src.sysmessage @56,,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 @56,,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 @56,,1 Bunu ehlillestiremezsiniz. 
endif 
else 
src.sysmessage @56,,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 @95,,1 Konsantrasyonunuzu kaybettiniz, ehlillestiremiyorsunuz. 
//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 
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 @95,,1 Konsantrasyonunuzu kaybettiniz, ehlillestiremiyorsunuz. 
//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

ON=@spellcast
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 @95,,1 Konsantrasyonunuzu kaybettiniz, ehlillestiremiyorsunuz. 
//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 distcheck] 
if (<tag.hayvanx> > <p.x>) 
if (<eval <tag.hayvanx> - 3> > <p.x>) 
sysmessage @021,,1 Hayvandan uzaklastiniz. 
tag.animalaway=1 
return 1 
endif 
else 
if (<eval <tag.hayvanx> + 3> < <p.x>) 
sysmessage @021,,1 Hayvandan uzaklastiniz. 
tag.animalaway=1 
return 1 
endif 
endif 
if (<tag.hayvany> > <p.y>) 
if (<eval <tag.hayvany> - 3> > <p.y>) 
sysmessage @021,,1 Hayvandan uzaklastiniz. 
tag.animalaway=1 
return 1 
endif 
else 
if (<eval <tag.hayvany> + 3> < <p.y>) 
sysmessage @021,,1 Hayvandan uzaklastiniz. 
tag.animalaway=1 
return 1 
endif 
endif 


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 
//cont.say taz ownz! 
return 1 
endif 

Arkadaslar Olay Bundan İbaret Sanırım....

Denemedimm Direk Burdan Editleyip yazdımm...!