Skill Gelme Sorunuı

Tamede Skill Getirmeyi Yapamadım.


Her Tamede Getirmeyi YAPIYORUM.
ama Rand lar işlemiyor.

[Skill 35]
DEFNAME=Skill_Taming
KEY=Taming
TITLE=Animal Tamer
PROMPT_MSG=Please use taming staff for taming.
DELAY=9991.0
STAT_STR=0
STAT_INT=0
STAT_DEX=0
BONUS_STR=0
BONUS_DEX=0
BONUS_INT=0
BONUS_STATS=0
ADV_RATE=1,1,1



	if ((<cont.skilllock[35]> == 0) && (<cont.skilltotal> < 800.0))
		if (<cont.taming> < 30.0)
			if (rand(2) == 1)
				cont.taming (<cont.taming> + 1)
			endif
	boyle boyle 100 e kadar gidiyor  hepsinin rand ı 2

	link.tag.tamer <cont.uid>
	link -1
else
	cont.sysmessage @38,1,1 Hayvani evcille&&#35;36;tirmeyi basaramadiniz.
	link -1
endif

[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_staff_taming] 
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
dispid i_staff_gnarled
if (<topobj.uid> != <src.uid>)
        equip
	target @1153,1,1 Hangi hayvani evcille&#36;tirmek 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 evcille&#36;tirmek 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 @0 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
cont.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
cont.action -1
link -1
return 1
endif

if (<cont.flags>&statf_hidden) || (<cont.flags>&statf_invisible)
	cont.sysmessage @38 Gizlenmis durumdayken evcille&#36;tirme yapamazsiniz.
	cont.events -e_taming_f
	action -1
	link -1
	return 1
endif

if (<more2> < 6)
	dorand 10
		cont.say @0481 Gel <link.name>, gel..
		cont.say @0481 Sana zarar vermeyecegim <link.name>..
		cont.say @0481 Sakin ol, <link.name>.
		cont.say @0481 Her zaman senin gibi bir <link.name> sahibi olmak istemistim..
		cont.say @0481 Cok tatlisin, <link.name>.
		cont.say @0481 Gel bir tanem, gel canim..
		cont.say @0481 Seni incitmeyecegim, <link.name>.
		cont.say @0481 Arkadasin olmak istiyorum.
		cont.say @0481 Gel <cont.sex babana/annene>, <link.name>.
		cont.say @0481 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 evcille&#36;tiremezsiniz.
	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 @68,1,1 <link.name> evcille&#36;tirdiniz.
	if (<cont.skilltotal> < 800.0) ((<cont.skilllock[35]> == 0) && (<cont.skilltotal> < 800.0))
		if !(<cont.taming> < 100.0)
cont.taming +=1		
endif		

	if ((<cont.skilllock[2]> == 1) && (<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> < 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 evcille&#36;tirmeyi 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 evcille&#36;tirmezsiniz
		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&#36;la...
			link <src.targ.uid>
			src.anim 19
			timer 2
			src.events +e_taming_f
		endif
	else
		src.sysmessage @38,1,1 Bunu evcille&#36;tiremezsiniz.
	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, evcille&#36;tiremiyorsunuz.
	//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, evcille&#36;tiremiyorsunuz.
	//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



[ITEMDEF i_gate_tame]
name Inek Panayiri
id i_moongate_red
type t_telepad
name @1153 Inek Panayirina Gider.
on=@create
attr attr 010
color 088c

on=@dclick
return 1

on=@click
return 1




on=@step
if (<src.taming>  > 29.9)
src.sysmessage @1153 Inek Panayirina Hos Geldiniz..
src.go 5450,1479
return 1
else
src.sysmessage @1153 Bu Alana Taming Skilli Olanlar Girebilir..
return 1
endif

[eof]

hiç bir tamede skill gelmiyor?

nasıl yapabilirim.

onu nasıl yapabılırım veya nasıl bulabılırım veya biraz ornek verebilirmisiniz ?

bende bir lockpicking gain var onunla taming degistirsem calısırmı acep ?

Kendine gore ayarla RAND kismini.

if (<skilllock[35]> == 0) && (<skilltotal> < 7000) && (<taming> < 1000)
	if (<taming> < 300)
		if (rand(5) == 1)
			taming +=1
		endif
	elseif (<taming> < 500)
		if (rand(10) == 1)
			taming +=1
		endif
	elseif (<taming> < 600)
		if (rand(14) == 1)
			taming +=1
		endif
	elseif (<taming> < 750)
		if (rand(16) == 1)
			taming +=1
		endif
	elseif (<taming> < 870)
		if (rand(18) == 1)
			taming +=1
		endif
	elseif (<taming> < 1000)
		if (rand(20) == 1)
			taming +=1
		endif
	endif
endif