Code:
///////////////////////////////////////////////////////////////////////
// *Scripter Name: -
// *Shard Name: The Rosario Game
// *Shard Address: www.rosario.gen.tr
// *Personal Address: www.raskolserna.com
// *Sphere Version: 0.56b
//
// *Bu kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// *The codes are written or were edited by TheRaskol (Raskol Serna).
///////////////////////////////////////////////////////////////////////
// modificado por amon para o PVP Shard
///////////////////////////////////////////////////////////////////////
//2013/03/10
///////////////////////////////////////////////////////////////////////
[ITEMDEF i_staff_taming]
ID=i_staff_gnarled
NAME=taming staff
TYPE=t_weapon_mace_staff
VALUE=254
TWOHANDS=Y
LAYER=2
WEIGHT=10
DAM=5,10
On=@Create
//attr attr_newbie
color 2001
more2 0
timer -1
On=@DClick
equip
if (<topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 This should be in your purse to use!
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @0845,1,1 You can't use while hidded!
elseif (<src.targ.region.defname> == a_townZoo)
src.sysmessage @0845,1,1 Taming this area is prohibited!
elseif (<timer> == -1)
src.sysmessage @666,1,1 What animal would you like to tame?
target
endif
return 1
On=@UnEquip
more2 0
timer -1
link -1
On=@Timer
if (<link.distance <cont>> > 4)
cont.sysmessage @0845,1,1 The animal is too far away!
more2 0
link -1
timer -1
return 1
endif
if (<more2> < 6)
dorand 8
cont.sayua 666,0,0,trk Come <link.name>
cont.sayua 666,0,0,trk I won't hurt you.
cont.sayua 666,0,0,trk Don't be afraid, <link.name>
cont.sayua 666,0,0,trk I always wanted a <link.name> like you
cont.sayua 666,0,0,trk Good, <link.name>
cont.sayua 666,0,0,trk Here <link.name>
cont.sayua 666,0,0,trk I want to be your friend.
cont.sayua 666,0,0,trk I won't hurt you. <link.name>
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 @0845,1,1 Bunu ehlileştiremezsiniz!
return 1
endif
if (rand(100) < 75)
if (<link.memoryfindtype.memory_ispawned>)
link.memoryfindtype.memory_ispawned.remove
endif
link.food 50
link.karma -400
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.sysmessage @666,1,1 <link.name> It seems to accept you as master.
if ((<cont.skilllock[35]> == 0) && (<cont.skilltotal> < 700.0))
if (<cont.taming> < 30.0)
if (rand(1) == 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(2) == 1)
cont.taming (<cont.taming> + 1)
endif
elseif (<cont.taming> < 100.0)
if (rand(3) == 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(1) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 50.0)
if (rand(2) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 75.0)
if (rand(2) == 1)
cont.animallore (<cont.animallore> + 1)
endif
elseif (<cont.animallore> < 100.0)
if (rand(3) == 1)
cont.animallore (<cont.animallore> + 1)
endif
endif
endif
if (<link.id>==c_cow_brown) || (<link.id>==c_cow_bw) || (<link.id>==c_pig) || (<link.id>==c_sheep_woolly) || (<link.id>==c_sheep_shorn) || (<link.id>==c_dog) || (<link.id>==c_cat) || (<link.id>==c_chicken) || (<link.id>==c_bull_brown_dk))
link.timerf 60 ,remove 1
endif
if (<link.id>==c_m_nightmare)
link.FAME=3000
link.KARMA=-5000
endif
link.tag.tamer <cont.uid>
link -1
else
cont.sysmessage @0845,1,1 You fail to tame the creature.
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 @0845,1,1 You can't see the creature!
elseif (<src.targ.distance> > 3)
src.sysmessage @0845,1,1 You can't reach the creature!
elseif (<src.targ.memoryfindtype.memory_ipet>)
if (<src.targ.memoryfindtype.(memory_ipet|memory_guard).link> == <src.uid>)
src.sysmessage @666,1,1 <src.targ.name> belong to you.
src.targ.flags <src.targ.flags>&statf_pet
else
src.sysmessage @0845,1,1 <src.targ.name> Belongs to someone else.
endif
elseif (<src.targ.memoryfindtype.memory_fight>)
src.sysmessage @0845,1,1 You can't tame while the creature is fighting!
elseif (<src.targ.memoryfindtype.memory_war_targ.link> == <src.uid>)
src.sysmessage @0845,1,1 This animal to angry with you to be tamed!
elseif (<src.targ.findid.i_rune_summon_creature>)
src.sysmessage @0845,1,1 This Animal was summoned and can't be tamed!
elseif (0<src.targ.tag.tamer> == 0<src.uid>)
src.sysmessage @0845,1,1 The animal do not care about you anymore!
elseif (<src.taming> < <src.targ.taming>)
src.anim 19
src.sysmessage @0845,1,1 <src.targ.name> Your Animal Taming skill is not enough to tame this creature!
elseif (<src.animallore> < <src.targ.animallore>)
src.anim 19
src.sysmessage @0845,1,1 <src.targ.name> Your animal lore skill is not enough to tame this creature!
elseif (<src.targ.memoryfindtype.MEMORY_ISPAWNED.link.distance> > 3)
src.sysmessage @0845,1,1 This is only a wild animals!
else
link <src.targ.uid>
src.anim 19
timer 2
endif
else
src.sysmessage @0845,1,1 Bunu ehlilleştiremezsiniz!
endif
else
src.sysmessage @0845,1,1 Taming this area is prohibited!
endif
return 1
On=@TargOn_Item
return 1
[function memorydel]
if (0<args>)
if (<findid.i_memory.link> == <args>)
findid.i_memory.remove
memorydel <args>
endif
endif
[EOF]
Home
Forum
Downloads
GitHub
SphereWiki
Search
Discord Channel
Facebook
Twitter
![[+]](images/collapse_collapsed.gif)
