Merhabalar Golemi nasıl tamelenir yapabilirim yardımcı olurmusunuz
( sctipte ) NPC=brain_animal böyle binek yaptım ama bu hayvanı tameleyemezsiniz diyor

[CHARDEF c_m_golem_tinker2]

DEFNAME=c_m_golem_tinker2

NAME=Golem

ID=c_elem_earth

TEVENTS=e_horses

SOUND=snd_ELEMENTL_ERTHEL1

ICON=i_pet_elem_earth

DAM=13,20

ARMOR=30

//TEVENTS=e_intel_golem_tinker

CAN=MT_WALK|MT_USEHANDS

//SHELTER=r_dungeon

DESIRES=c_m_golem_tinker2

AVERSIONS=r_water,t_eerie_stuff

BLOODCOLOR=0525





on=@dclick 

src.sysmessage @38,,1 [ Bineğinizin ]

src.sysmessage @0793,,1 HP'Sİ=> [- <hits> -]





ON=@Create

COLOR=0493

STR={1100}

DEX={250}

INT={300}



PARRYING=90.0

MAGERY=0

MAGICRESISTANCE=850.0

TACTICS=110.0

WRESTLING=110.0



NPC=brain_animal



FAME=1000

KARMA=1200



On=@Click

if (<memoryfindtype.memory_ipet>)

message @01,1 [Sahibi: <memoryfindtype.memory_ipet.link.name>]

else

message @01,1 [ Sahipsiz ]

endif

MESSAGE @38,1,1 <name>

return 1





CATEGORY=Monsters

SUBSECTION=Golems

DESCRIPTION=Tinker High

Golem zaten tamelenir. Taming sopanda tamelenmesin diye kod vardir

taming sopasındaki verdiği hata burası

ELIF (<LINK.NPC> != brain_animal) -- burdaki brain_monster 'dı burayı böyle brain_animal düzelttim

CONT.sysh_trk Bu hayvanı tame edemezsiniz.

link -1

more2 0

return 1

burdada c_m_golem_tinker2 kod olarak kullanıldığı yerler

On=@TargOn_Char

if (<src.targ.npc> == 85)

return 1

endif

if !(<src.targ.npc>)

src.sysh_trk Oyunuları küçültemezsiniz.

elseif !(<src.targ.ismypet>)

src.sysh_trk Bu hayvan size ait değil.

elseif (<src.targ.flags>&statf_stone) || (<src.targ.flags>&statf_freeze)

src.sysh_trk Hayvanı şuanki durumunda küçültemezsiniz.

elseif ((<src.targ.body> == c_man) || (<src.targ.body> == c_woman))

src.sysh_trk Sadece hayvanları küçültebilirsiniz.

elseif (<src.targ.id> == c_m_golem_tinker2)

serv.newitem i_p_g2

new.name <src.targ.name>

new.bounce

src.targ.remove

remove





///////////////////////////////////////////////////////





On=@TargOn_Char

if (<src.targ.npc> == 85)

return 1

endif

if !(<src.targ.npc>)

src.sysh_trk Oyunuları küçültemezsiniz.

elseif !(<src.targ.ismypet>)

src.sysh_trk Bu hayvan size ait değil.

elseif (<src.targ.flags>&statf_stone) || (<src.targ.flags>&statf_freeze)

src.sysh_trk Hayvanı şuanki durumunda küçültemezsiniz.

elseif ((<src.targ.body> == c_man) || (<src.targ.body> == c_woman))

src.sysh_trk Sadece hayvanları küçültebilirsiniz.

elseif (<src.targ.flags>&statf_invul) || (<src.targ.color> == 07fff)

src.sysh_trk Bu hayvanı küçültemezsiniz.

elseif (<src.targ.memoryfindtype.memory_war_targ>)

src.sysh_trk Hayvan şuanda çok kızgın.

elseif (<src.targ.findid.i_rune_summon_creature>)

src.sysh_trk Büyü ile yaratılmış hayvanları küçültemezsiniz.

elseif ((<src.targ.id> == c_llama_pack) || (<src.targ.id> == c_horse_pack))

src.sysh_trk Pack hayvanlarını küçültemezsiniz.

elseif (<src.targ.findid.i_rune_bless>) || (<src.targ.findid.i_rune_protection>) || (<src.targ.findid.i_rune_reactive_armor>) || (<src.targ.findid.i_rune_agility>) || (<src.targ.findid.i_rune_strength>) 

src.sysh_trk Hayvanın üzerinde ki büyü etkisini kaldırmalısınız.

elseif (<src.targ.hits> < <src.targ.str>)

src.sysh_trk Bu hayvan yaralanmış.

elseif (<src.targ.findid.i_rune_poison>)

src.sysh_trk Bu hayvan zehirlenmiş.

elseif !(<src.targ.canseelos>)

src.sysh_trk Hayvana ulaşamıyorsunuz.

elseif (<src.targ.distance> > 3)

src.sysh_trk Hayvana yeterince yakın değilsiniz.

elseif (<src.targ.id> == c_m_golem_tinker2)

serv.newitem i_p_g2

new.name <src.targ.name>

new.bounce

src.targ.remove

remove

else

name Dolu hayvan kontratı

attr 00

more2 1

color <src.targ.color>

if (<color> == 0481)

color 0835

endif

tag.trade <src.targ.job>

tag.trade_id <src.targ.id>

tag.trade_name <src.targ.name>

tag.trade_str <src.targ.str>

tag.trade_dex <src.targ.dex>

tag.trade_int <src.targ.int>

tag.trade_karma <src.targ.karma>

tag.trade_fame <src.targ.fame>

tag.trade_food <src.targ.food>

src.targ.bark 2

brain_animal yaptıysan taming staff'dan golem ile ilgili kısmı sil sorun kalmayacaktır.

Dediğin gibi yaptım olmadı hala ( Bu hayvanı tame edemezsiniz ) diyor.

Kodu görebilir miyiz? Hem golem hem de taming ile ilgili olan.

on=@create altına taming = xx şeklinde ekleyip, taming staffdan golem sorgusu var ise kaldırırsan tame yapabilirsin.

( xrambo ) dediğin gibi yaptım malesef olmadı ( Slothere üst kısımda kodlar var oraya eklemiştim. )

Eren kardeşim bunun gibi scriptlerde scriptin tamamını paylaşmış olman emeğinin çalınacağı anlamına gelmez çünkü herkeste olan demirbaş scriptler bunlar. Sorunun cevabına gelecek olursak Golem zaten brain_animal olarak ayarlanmış orada ki kodda da brain_animal olmayanlar tamelenmiyor buraya kadar herşey normal fakat o satırların öncesi ve sonrası da scriptin çalışmamasını etkiler bir endif eksikse ya da 2 tane sorgunun birbiriyle çakışması o scripti çalıştırmaz. kısacası scriptin tamamını paylaşmış olman ve kullandığın sürümü de söylüyor olman sorunu daha çabuk çözmene yardımcı olur

ilk olarak buradaki olay scriptler'in çalınması değil gereksiz yere hepsini buraya yapıştırmak istemedim.

sürüm: 56b

scriptin tümü

[ITEMDEF i_deed_animal_yeni]

NAME=Hayvan kontrati

ID=i_deed

WEIGHT=15.0 

TYPE=t_script 

VALUE=50



CATEGORY=Custom Items

SUBSECTION=Deeds

DESCRIPTION=Animal Trading Contract



On=@Create

color 08a1



On=@Click

if (<more2>)

message @07d4,,1 [<tag.trade>] 

message @1153,,1 Binek Kontratı

return 1

endif

message @1153,,1 Boş binek kontratı

return 1



On=@DClick

if (<topobj.uid> != <src.uid>)

src.sysh_trk Bunu kullanabilmeniz için çantanızda olmalı.

elseif (<more2>)

if (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)

src.sysh_trk Gizlenmiş durumdayken bunu kullanamazsınız.

return 1

endif

forchars 25

if (<memoryfindtype.memory_ipet>)

if (<memoryfindtype.memory_ipet.link>==<src.uid>)

src.sysmessage @1953,1,1,1 Etrafinizda Zaten bir bineginiz Mevcut.

return 1

endif

endif

endfor

try serv.newnpc <tag.trade_id>

link <new.uid>

link.name <tag.trade_name>

link.karma <tag.trade_karma>

link.fame <tag.trade_fame>

link.str <tag.trade_str>

link.hits <tag.trade_str>

link.dex <tag.trade_dex>

link.int <tag.trade_int>

link.food <tag.trade_food>

link.color <color>

link.oskin <link.color>

link.memorydel <src.uid>

link.serv.newitem i_memory

link.new.attr 04

link.new.more1 04

link.new.more2 <serv.time>

link.new.morep <link.p>

link.new.color memory_ipet

link.new.timer -1

link.new.link <src.uid>

link.new.cont <link.uid>

link.flags <link.flags>&statf_pet

link.update

link.anim 5

link.findid.i_binekfix.timer 1000

link.bark 3

remove

else

src.sys_trk Eski deedi kullaniniz.

serv.newitem i_deed_animal

new.bounce

remove

endif

return 1



On=@TargOn_Item

src.sysh_trk İtemleri küçültemezsiniz.

target

src.sys_trk Küçültmek istediğiniz hayvanı seçiniz.

return 1



On=@TargOn_Char

if (<src.targ.npc> == 85)

src.sysmessage @2028 Pokemonları Animal Deed ile küçültemezsiniz.

return 1

endif

if !(<src.targ.npc>)

src.sysh_trk Oyunuları küçültemezsiniz.

elseif !(<src.targ.ismypet>)

src.sysh_trk Bu hayvan size ait değil.

elseif (<src.targ.flags>&statf_stone) || (<src.targ.flags>&statf_freeze)

src.sysh_trk Hayvanı şuanki durumunda küçültemezsiniz.

elseif ((<src.targ.body> == c_man) || (<src.targ.body> == c_woman))

src.sysh_trk Sadece hayvanları küçültebilirsiniz.

//elseif (<src.targ.id> == c_m_golem_tinker1)

//serv.newitem i_p_g1

//new.name <src.targ.name>

//new.bounce

//src.targ.remove

//remove

//elseif (<src.targ.id> == c_m_golem_tinker2)

//serv.newitem i_p_g2

//new.name <src.targ.name>

//new.bounce

//src.targ.remove

//remove

elseif !((<src.targ.id> == c_shire) || (<src.targ.body> == c_llama) || (<src.targ.body> == c_llama_random) || (<src.targ.body> == c_ostard_desert) || (<src.targ.body> == c_ostard_forest) || (<src.targ.body> == c_ostard_zostrich) || (<src.targ.body> == c_ostard_mid) || (<src.targ.id> == c_m_mustang_random))

src.sysh_trk Sadece Mustang,Llama,Shire ve Ostard Turu binekleri Kucultebilirsiniz.

elseif (<src.targ.flags>&statf_invul) || (<src.targ.color> == 07fff)

src.sysh_trk Bu hayvanı küçültemezsiniz.

elseif (<src.targ.memoryfindtype.memory_war_targ>)

src.sysh_trk Hayvan şuanda çok kızgın.

elseif (<src.targ.findid.i_rune_summon_creature>)

src.sysh_trk Büyü ile yaratılmış hayvanları küçültemezsiniz.

elseif ((<src.targ.id> == c_llama_pack) || (<src.targ.id> == c_horse_pack))

src.sysh_trk Pack hayvanlarını küçültemezsiniz.

elseif (<src.targ.findid.i_rune_bless>) || (<src.targ.findid.i_rune_protection>) || (<src.targ.findid.i_rune_reactive_armor>) || (<src.targ.findid.i_rune_agility>) || (<src.targ.findid.i_rune_strength>) 

src.sysh_trk Hayvanın üzerinde ki büyü etkisini kaldırmalısınız.

elseif (<src.targ.hits> < <src.targ.str>)

src.sysh_trk Bu hayvan yaralanmış.

elseif (<src.targ.findid.i_rune_poison>)

src.sysh_trk Bu hayvan zehirlenmiş.

elseif !(<src.targ.canseelos>)

src.sysh_trk Hayvana ulaşamıyorsunuz.

elseif (<src.targ.distance> > 3)

src.sysh_trk Hayvana yeterince yakın değilsiniz.

else

name Dolu hayvan kontratı

attr 00

more2 1

color <src.targ.color>

if (<color> == 0481)

color 0835

endif

tag.trade <src.targ.job>

tag.trade_id <src.targ.id>

tag.trade_name <src.targ.name>

tag.trade_str <src.targ.str>

tag.trade_dex <src.targ.dex>

tag.trade_int <src.targ.int>

tag.trade_karma <src.targ.karma>

tag.trade_fame <src.targ.fame>

tag.trade_food <src.targ.food>

src.targ.bark 2

src.targ.remove

src.sys_trk <tag.trade>: kontrat haline getirildi.

endif

return 1





[ITEMDEF i_deed_animal]

DEFNAME=i_deed_animal

NAME=Hayvan kontrati

ID=i_deed

WEIGHT=0 

TYPE=t_script 

VALUE=50



CATEGORY=Custom Items

SUBSECTION=Deeds

DESCRIPTION=Animal Trading Contract



On=@Create

color 0848





On=@DClick

if (<topobj.uid> != <src.uid>)

src.sysmessage @38,,1 Bunu kullanabilmeniz için çantanızda olmalı. 

elseif (<more2>)

if (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)

src.sysh_trk Gizlenmis durumdayken bunu kullanamazsınız.

return 1

endif

if !(<src.findid.i_bokunucikarma>)

src.newitem i_bokunucikarma

src.new.timer 10

src.new.equip

else

src.sysmessage @0790,,1 Tekrar açabilmek için <src.findid.i_bokunucikarma.timer> saniye beklemelisiniz.

return 1

endif

try serv.newnpc <tag.trade_id>

link <new.uid>

link.name <tag.trade_name>

link.karma <tag.trade_karma>

link.fame <tag.trade_fame>

link.str <tag.trade_str>

link.hits <tag.trade_str>

link.dex <tag.trade_dex>

link.int <tag.trade_int>

link.food <tag.trade_food>

link.color <color>

link.oskin <link.color>

link.memorydel <src.uid>

link.serv.newitem i_memory

link.new.attr 04

link.new.more1 04

link.new.more2 <serv.time>

link.new.morep <link.p>

link.new.color memory_ipet

link.new.timer -1

link.new.link <src.uid>

link.new.cont <link.uid>

link.flags <link.flags>&statf_pet

link.update

link.anim 5

link.bark 3



On=@TargOn_Item

src.sysh_trk İtemleri küçültemezsiniz.

target

src.sys_trk Küçültmek istediğiniz hayvanı seçiniz.

return 1



On=@TargOn_Char

if (<src.targ.npc> == 85)

src.sysmessage @30,,1 Pokemonlari Animal Deed ile Kucultemezsiniz.

return 1

endif

if !(<src.targ.npc>)

src.sysh_trk Oyunuları küçültemezsiniz.

elseif !(<src.targ.ismypet>)

src.sysh_trk Bu hayvan size ait değil.

elseif (<src.targ.flags>&statf_stone) || (<src.targ.flags>&statf_freeze)

src.sysh_trk Hayvanı şuanki durumunda küçültemezsiniz.

elseif ((<src.targ.body> == c_man) || (<src.targ.body> == c_woman))

src.sysh_trk Sadece hayvanları küçültebilirsiniz.

elseif (<src.targ.flags>&statf_invul) || (<src.targ.color> == 07fff)

src.sysh_trk Bu hayvanı küçültemezsiniz.

elseif (<src.targ.memoryfindtype.memory_war_targ>)

src.sysh_trk Hayvan şuanda çok kızgın.

elseif (<src.targ.findid.i_rune_summon_creature>)

src.sysh_trk Büyü ile yaratılmış hayvanları küçültemezsiniz.

elseif ((<src.targ.id> == c_llama_pack) || (<src.targ.id> == c_horse_pack))

src.sysh_trk Pack hayvanlarını küçültemezsiniz.

elseif (<src.targ.findid.i_rune_bless>) || (<src.targ.findid.i_rune_protection>) || (<src.targ.findid.i_rune_reactive_armor>) || (<src.targ.findid.i_rune_agility>) || (<src.targ.findid.i_rune_strength>) 

src.sysh_trk Hayvanın üzerinde ki büyü etkisini kaldırmalısınız.

elseif (<src.targ.baseid>==c_kale_binek)

src.sysh_trk [ Bu Kale Fetih Binegini Kucultemezsin. ]

elseif (<src.targ.baseid>==c_p_v_p_2_2)

src.sysh_trk [ Bu 2vs2 Pvp Binegini Kucultemezsin. ]

elseif (<src.targ.baseid>==c_p_v_p_one)

src.sysh_trk [ Bu 1vs1 Pvp Binegini Kucultemezsin. ]

elseif (<src.targ.baseid>==c_horse_steed)

src.sysh_trk [ Bu Etkinlik Binegini Kucultemezsin. ]

elseif (<src.targ.hits> < <src.targ.str>)

src.sysh_trk Bu hayvan yaralanmış.

elseif (<src.targ.findid.i_rune_poison>)

src.sysh_trk Bu hayvan zehirlenmiş.

elseif !(<src.targ.canseelos>)

src.sysh_trk Hayvana ulaşamıyorsunuz.

elseif (<src.targ.distance> > 3)

src.sysh_trk Hayvana yeterince yakın değilsiniz.

//elseif (<src.targ.id> == c_m_golem_tinker1)

//serv.newitem i_p_g1

//new.name <src.targ.name>

//new.bounce

//src.targ.remove

//remove

//elseif (<src.targ.id> == c_m_golem_tinker2)

//serv.newitem i_p_g2

//new.name <src.targ.name>

//new.bounce

//src.targ.remove

//remove

//else

name Dolu hayvan kontratı

attr 00

more2 1

color <src.targ.color>

if (<color> == 0481)

color 0835

endif

tag.trade <src.targ.job>

tag.trade_id <src.targ.id>

tag.trade_name <src.targ.name>

tag.trade_str <src.targ.str>

tag.trade_dex <src.targ.dex>

tag.trade_int <src.targ.int>

tag.trade_karma <src.targ.karma>

tag.trade_fame <src.targ.fame>

tag.trade_food <src.targ.food>

src.targ.bark 2



src.targ.remove

src.sys_trk <tag.trade>: kontrat haline getirildi.

endif

return 1



[ITEMDEF i_staff_taming]

ID=i_staff_gnarled

NAME=Tame Sopası

TYPE=T_WEAPON_MACE_STAFF

VALUE=254

TWOHANDS=Y

LAYER=2

WEIGHT=10

DAM=0,1









On=@Create

attr=04

color 0846

more2 0

timer -1

hitpoints 5







On=@click

message @1153 <name>

return 1





On=@DClick

if (<topobj.uid> != <src.uid>)

	src.sysh_trk Bunu kullanabilmeniz için üzerinizde olmalı.

        return 1

elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)

	src.sysh_trk Gizlenmiş durumdayken bunu kullanamazsınız.

        return 1

elseif (<src.targ.region.defname> == a_townZoo)

	src.sysh_trk Bu bölgede taming yasaktır.

        return 1

elseif (<timer> == -1)

equip

target

src.sys_trk Hangi hayvanı tame etmek istiyorsunuz ?

return 1

endif



On=@UnEquip

more2 0

timer -1

link -1



On=@Timer

CONT.CHECKS <LINK.UID>

IF !(<VAR.SEE>)

CONT.sysh_trk Hayvan görüş alanınızdan çıktı.

link -1

more2 0

return 1

ELIF (<LINK.NPC> != brain_animal)

CONT.sysh_trk Bu hayvanı tame edemezsiniz.

link -1

more2 0

return 1

ELIF !(<LINK.TAMING>)

CONT.sysh_trk Bu hayvanı tame edemezsiniz.

link -1

more2 0

return 1

ELIF (<EVAL <CONT.TAMING>> < <LINK.TAMING>)

CONT.sysh_trk Bu hayvanı tame edebilmek için <act.taming> taming skilline ihtiyacınız vardır.

link -1

more2 0

return 1

ELIF (<CONT.FLAGS> & (statf_dead|statf_freeze|statf_invisible|statf_sleeping|statf_polymorph|statf_stone|statf_hidden))

CONT.sysh_trk Şuanki durumunuzda hayvan tameleyemezsiniz.

link -1

more2 0

return 1

ELIF (<LINK.MEMORYFINDTYPE.memory_ipet>)

CONT.sysh_trk Bu hayvan zaten tame edilmiş.

link -1

more2 0

return 1

ELIF (<LINK.MEMORYFINDTYPE.memory_fight>)

CONT.sysh_trk Bu hayvan sinirli.

link -1

more2 0

return 1

ELIF (<VAR.DIST> > 5)

CONT.sysh_trk Hayvana yeterince yakın değilsiniz.

LINK.TAG.LASTTAMER=0

link -1

more2 0

return 1

ELIF (<cont.flags>&statf_hidden) || (<cont.flags>&statf_invisible)

cont.sysh_trk Gizlenmiş durumdayken bunu kullanamazsınız.

link.tag.lasttamer 0

more2 0

link -1

return 1

ELSE

if (<more2> < 6)

	dorand 8

cont.sayua 1153,6,6,0 Gel <link.name>, Yeğen..

cont.sayua 1153,6,6,0 Seni Okşayacağım. 

cont.sayua 1153,6,6,0 Kacma Gel, <link.name> Yavrum.

cont.sayua 1153,6,6,0 Her zaman senin gibi bir <link.name> sahibi olmak istemiştim..

cont.sayua 1153,6,6,0 Çok Sex'isin, <link.name>.

cont.sayua 1153,6,6,0 Vurucam Kıbarcı , Vurucam Kırbacı, //Seni incitmeyeceğim.

cont.sayua 1153,6,6,0 Benim Olacaksin Aslan Parçası. //Arkadaşın olmak istiyorum.

cont.sayua 1153,6,6,0 Gel <cont.sex babana/annene> <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.sysh_trk Bunu evcilleştiremezsiniz.

	return 1

endif



if (rand(100) < 90)

	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.sys_trk <link.name> sizi sahibi olarak kabul etti !

	link.tag.tamer <cont.uid>

	link -1

else

	cont.sysh_trk Hayvanı ehlilleştirmeyi başaramadınız.

	link -1

endif

return 1

endif



On=@TargOn_Char

more2 0

if (<src.targ.id> == c_c12 )

src.sysh_trk Bunu tame edemezsiniz.

return 1

endif

if !(<src.targ.region.defname> == a_townZoo)

	if ((<src.targ.npc> == 1) && (<src.targ.id> != c_vendor_player))

		if !(<src.targ.canseelos>)

			src.sysh_trk Hayvana ulaşamıyorsunuz.

                        return 1

		elseif (<src.targ.distance> > 4)

			src.sysh_trk Hayvana yeterince yakın değilsiniz.

                        return 1

		elseif (<src.targ.memoryfindtype.memory_ipet>)

			if (<src.targ.memoryfindtype.(memory_ipet|memory_guard).link> == <src.uid>)

				src.sysh_trk <src.targ.name> zaten size ait.

				src.targ.flags <src.targ.flags>&statf_pet

                                return 1

			else

				src.sysh_trk <src.targ.name> bir başkasına ait.

                                return 1

			endif

		elseif (<src.targ.memoryfindtype.memory_fight>)

			src.sysh_trk Hayvan şu an müsait değil.

                         more2 0

                         return 1

		elseif (<src.targ.memoryfindtype.memory_war_targ.link> == <src.uid>)

			src.sysh_trk Hayvan şu an size çok kızgin.

                        more2 0

                        return 1

		elseif (<src.targ.findid.i_rune_summon_creature>)

			src.sysh_trk Büyü ile yaratılmış hayvanları evcilleştiremezsiniz.

                elseif (<src.targ.hits> < <src.targ.str>)

                       src.sysh_trk Bu hayvan yaralı.

                        more2 0

                        return 1

		elseif (0<src.targ.tag.tamer> == 0<src.uid>)

			src.sysh_trk Hayvan artık sizi umursamıyor.

                        more2 0

                        return 1

                elseif (<src.targ.memoryfindtype.MEMORY_ISPAWNED.link.distance> > 4)

                        src.sysh_trk Hayvan yuvasından çok uzakta.

                        more2 0

                        return 1

		elseif (<src.taming> < <src.targ.taming>)

			src.anim 19

			src.sysh_trk <src.targ.name> için taming skilliniz yeterli değil. (gerekli skill: <src.targ.taming>)

                        return 1

		elseif (<src.animallore> < <src.targ.animallore>)

			src.anim 19

			src.sysh_trk <src.targ.name> için animal lore skilliniz yeterli değil. (gerekli skill: <src.targ.animallore>)

                        return 1

		else

			link <src.targ.uid>

			src.anim 19

			timer 2

		endif

	else

		src.sysh_trk Bunu evcilleştiremezsiniz.

                return 1

	endif

else

	src.sysh_trk Bu bölgede taming yasaktır.

        return 1

endif

return 1



On=@targon_item

src.sysh_trk Bu bir hayvan değil.

target

return 1



On=@targon_ground

src.sysh_trk Bu bir hayvan değil.

target

return 1



[events e_danimal]

ON=@Click

message @1153,,1 [Silinmesine <findid.i_danimal.timer> sn]





[itemdef i_danimal]

name Delete Animal

id i_memory

weight 0

type t_eq_script

layer layer_special



ON=@Create

ATTR=attr_invis|attr_decay



ON=@Equip

src.events +e_danimal

TIMER=60



ON=@Timer

topobj.remove

remove

return 1





[FUNCTION checks] 

NEWITEM i_checks

ACT.LINK <ARGN>

EQUIP <ACT.UID>



[ITEMDEF i_checks]

ID=i_memory

TYPE=t_eq_script

NAME=Checks



ON=@Equip

VAR.DIST <LINK.DISTANCE>

VAR.SEE <LINK.CanSeeLOS>

REMOVE



[function memorydel]

if (0<args>)

	if (<findid.i_memory.link> == <args>)

		findid.i_memory.remove

		memorydel <args>

	endif

endif







[itemdef i_fx_smoke3]

id=i_fx_smoke



on=@create

color=0481

attr=attr_decay

timer=1



on=@timer

remove





[typedef  t_shrine]

on=@dclick

if (<src.flags>&statf_dead) && !(<src.flags>&statf_stone)

src.sys_trk 15 saniye içerisinde canlanıcaksınız.

src.stone 1

src.timerf 15,src.resurrect

src.timerf 15,src.stone 0

return 1

else

src.sysh_trk Zaten Canlısınız.

return 1

endif





[ITEMDEF 02]

DEFNAME=i_ankhasd

CATEGORY=Decoration - Miscellaneous

SUBSECTION=Statues

DESCRIPTION=Ankh (e) 1/2

NAME=Ankh

TYPE=t_shrine

DUPELIST=03,04,05



ON=@create 

ATTR=010



[ITEMDEF 03]

DUPEITEM=02

DESCRIPTION=Ankh (w) 2/2



[ITEMDEF 04]

DUPEITEM=02

DESCRIPTION=Ankh (n) 1/2



[ITEMDEF 05]

DUPEITEM=02

DESCRIPTION=Ankh (n) 2/2









[ITEMDEF i_reag_store]

name Reagent Store Crystal

id i_crystal_green_big

type t_eq_script

Value 5000

flip=0



On=@Create

color 08ad

attr 04



On=@Click

message @07d4,,1 [<uid.<more>.name>]

message @1153,,1 <name>

return 1



On=@Dclick

if !(<src.findlayer.29.uid> == <cont.uid>)

src.sysh_trk Bunu kullanbilmeniz için bankanızda olmalı.

return 1

elseif !(<more>)

src.sys_trk <name> artık size ait.Sizden başkası kullanamaz.

more <src.uid>

return 1

elseif !(<more> == <src.uid>)

src.sysh_trk Bu <name> size ait değil.Sadece sahibi kullanabilir.

return 1

endif

src.ctag.reagstore <uid>

src.dialogclose d_reag_store

src.dialog d_reag_store

return 1



[DIALOG d_reag_store]

100,0

resizepic 0 0 5120 341 400

resizepic 12 12 3000 320 377

dtext 20 20 1153 Reagent Store

obj <src.ctag.reagstore>

local.satir 50

for 1 8

resizepic 55 <eval <dlocal.satir>-4> 3000 80 25

dtextentry 57 <dlocal.satir> 75 75 07d4 <dlocal._for> <obj.dtag.<def.reg<dlocal._for>>>

button 20 <dlocal.satir> 4005 4006 1 0 <dlocal._for>

dtext 180 <dlocal.satir> 0455 <serv.itemdef.<def.reg<dlocal._for>>.name>

tilepic 135 <eval <dlocal.satir>+2> <serv.itemdef.<def.reg<dlocal._for>>.id> 

local.satir +=30

endfor

local.satir +=30

button 20 <dlocal.satir> 4005 4006 1 0 9

dtext 55 <dlocal.satir> 0455 Hepsinden çıkar

local.satir += 30

button 20 <dlocal.satir> 4005 4006 1 0 10

dtext 55 <dlocal.satir> 0455 Reg & Reg Crystal Ekle





[DIALOG d_reag_store BUTTON]

on 1 8

obj <src.ctag.reagstore>

if (strmatch('<argtxt[<dargn>]>',''))

src.sysh_trk Bir miktar girmelisiniz.

return 1

elseif (<IsNum <ARGTXT[<dargn>]>>==0)

src.sysh_trk Sadece rakam girebilirsiniz.

return 1

elseif (<argtxt[<dargn>]> < 1)

src.sysh_trk Geçersiz rakam girdiniz.

return 1

elseif (<argtxt[<dargn>]> > 150)

src.sysh_trk Bir seferinde en fazla 150 adet reg çıkartabilirsiniz.

return 1

endif

if (<obj.tag0.<def.reg<dargn>>> < <argtxt[<dargn>]>)

src.sysh_trk Reagent Storenizde <argtxt[<dargn>]> kadar <serv.itemdef.<def.reg<dargn>>.name> bulunmamaktadır.

return 1

endif

serv.newitem <def.reg<dargn>>

new.amount <argtxt[<dargn>]>

new.bounce

obj.tag0.<def.reg<dargn>> -= <argtxt[<dargn>]>

return 1



on 9

obj <src.ctag.reagstore>

for 1 8

if (strmatch('<argtxt[<dlocal._for>]>',''))

src.sysh_trk <serv.itemdef.<def.reg<dlocal._for>>.name> bölümüne bir miktar girmelisiniz.

return 1

elseif (<IsNum <ARGTXT[<dlocal._for>]>>==0)

src.sysh_trk <serv.itemdef.<def.reg<dlocal._for>>.name> bölümüne sadece rakam girebilirsiniz.

return 1

elseif (<argtxt[<dlocal._for>]> < 1)

src.sysh_trk <serv.itemdef.<def.reg<dlocal._for>>.name> bölümüne geçersiz rakam girdiniz.

return 1

elseif (<argtxt[<dlocal._for>]> > 150)

src.sysh_trk <serv.itemdef.<def.reg<dlocal._for>>.name> bölümüne 150'den fazla miktar girmişsiniz.En fazla 150 adet çıkarabilirsiniz.

return 1

endif

endfor



for 1 8

obj <src.ctag.reagstore>

if (<obj.tag0.<def.reg<dlocal._for>>> < <argtxt[<dlocal._for>]>)

src.sysh_trk Reagent Storenizde <argtxt[<dlocal._for>]> kadar <serv.itemdef.<def.reg<dlocal._for>>.name> bulunmamaktadır.

else

serv.newitem <def.reg<dlocal._for>>

new.amount <argtxt[<dlocal._for>]>

new.bounce

obj.tag0.<def.reg<dlocal._for>> -= <argtxt[<dlocal._for>]>

endif

endfor





on 10

obj <src.ctag.reagstore>

src.sys_trk Eklemek istediğiniz regi seçiniz.

src.targetf f_reag_ekle <obj.uid>

return 1





[function f_reag_ekle]

obj <argo>

ref1 <args>

if !(<obj.isitem>)

src.sysh_trk Bu bir reg değil.

return 1

elseif !(<obj.topobj.uid> == <src.uid>)

src.sysh_trk Ekleyeceğiniz reg çantanızda veya bankanızda olmalı.

return 1

elseif (<obj.type> == t_mreg)

ref1.tag0.<def.reg1> += <obj.more>

ref1.tag0.<def.reg2> += <obj.more>

ref1.tag0.<def.reg3> += <obj.more>

ref1.tag0.<def.reg4> += <obj.more>

ref1.tag0.<def.reg5> += <obj.more>

ref1.tag0.<def.reg6> += <obj.more>

ref1.tag0.<def.reg7> += <obj.more>

ref1.tag0.<def.reg8> += <obj.more>

src.sys_trk Reg crystali eklendi

obj.remove

src.targetf f_reag_ekle <ref1.uid>

return 1

endif



for 1 8

if (strmatch('<obj.baseid>','<def.reg<dlocal._for>>'))

ref1.tag0.<def.reg<dlocal._for>> += <obj.amount>

src.sys_trk <obj.amount> kadar <serv.itemdef.<def.reg<dlocal._for>>.name> Reagent Storeye eklendi.

obj.remove

src.targetf f_reag_ekle <ref1.uid>

return 1

endif

endfor

src.sysh_trk Bu bir reg değil

return 1





[DEFNAME reagent_store]

reg1 "i_reag_spider_silk"

reg2 "i_reag_sulfur_ash"

reg3 "i_reag_nightshade"

reg4 "i_reag_blood_moss"

reg5 "i_reag_ginseng"

reg6 "i_reag_garlic"

reg7 "i_reag_mandrake_root"

reg8 "i_reag_black_pearl"









[ITEMDEF i_ingot_store]

name Ingot Store Crystal

id i_crystal_green_big

type t_eq_script

Value 5000

flip=0



On=@Create

color 05e3

attr 04



On=@Click

message @07d4,,1 [<uid.<more>.name>]

message @1153,,1 <name>

return 1



On=@Dclick

if !(<src.findlayer.29.uid> == <cont.uid>)

src.sysh_trk Bunu kullanbilmeniz için bankanızda olmalı.

return 1

elseif !(<more>)

src.sys_trk <name> artık size ait.Sizden başkası kullanamaz.

more <src.uid>

return 1

elseif !(<more> == <src.uid>)

src.sysh_trk Bu <name> size ait değil.Sadece sahibi kullanabilir.

return 1

endif

src.ctag.ingotstore <uid>

src.dialogclose d_ingot_store

src.dialog d_ingot_store

return 1



[DIALOG d_ingot_store]

100,0

resizepic 0 0 5120 341 530

resizepic 12 12 3000 320 507

dtext 20 20 1153 Ingot Store

obj <src.ctag.ingotstore>

local.satir 50

for 1 12

resizepic 55 <eval <dlocal.satir>-4> 3000 80 25

dtextentry 57 <dlocal.satir> 75 75 <eval <def.ingotcolor<dlocal._for>>> <dlocal._for> <obj.dtag.<def.ingot<dlocal._for>>>

button 20 <dlocal.satir> 4005 4006 1 0 <dlocal._for>

dtext 150 <dlocal.satir> <eval <def.ingotcolor<dlocal._for>>> <serv.itemdef.<def.ingot<dlocal._for>>.name>

local.satir +=30

endfor

local.satir += 30

button 20 <dlocal.satir> 4005 4006 1 0 14

dtext 55 <dlocal.satir> 0455 Ingot Ekle





[DIALOG d_ingot_store BUTTON]

on 1 12

obj <src.ctag.ingotstore>

if (strmatch('<argtxt[<dargn>]>',''))

src.sysh_trk Bir miktar girmelisiniz.

return 1

elseif (<IsNum <ARGTXT[<dargn>]>>==0)

src.sysh_trk Sadece rakam girebilirsiniz.

return 1

elseif (<argtxt[<dargn>]> < 1)

src.sysh_trk Geçersiz rakam girdiniz.

return 1

elseif (<argtxt[<dargn>]> > 120)

src.sysh_trk Bir seferinde en fazla 120 adet ingot çıkartabilirsiniz.

return 1

endif

if (<obj.tag0.<def.ingot<dargn>>> < <argtxt[<dargn>]>)

src.sysh_trk Ingot Storenizde <argtxt[<dargn>]> kadar <serv.itemdef.<def.ingot<dargn>>.name> bulunmamaktadır.

return 1

endif

serv.newitem <def.ingot<dargn>>

new.amount <argtxt[<dargn>]>

new.bounce

obj.tag0.<def.ingot<dargn>> -= <argtxt[<dargn>]>

return 1



on 14

obj <src.ctag.ingotstore>

src.sys_trk Eklemek istediğiniz ingotu seçiniz.

src.targetf f_ingot_ekle <obj.uid>

return 1





[function f_ingot_ekle]

obj <argo>

ref1 <args>

if !(<obj.isitem>)

src.sysh_trk Bu bir ingot değil.

return 1

elseif !(<obj.topobj.uid> == <src.uid>)

src.sysh_trk Ekleyeceğiniz ingot çantanızda veya bankanızda olmalı.

return 1

endif



for 1 12

if (strmatch('<obj.baseid>','<def.ingot<dlocal._for>>'))

ref1.tag0.<def.ingot<dlocal._for>> += <obj.amount>

src.sys_trk <obj.amount> kadar <serv.itemdef.<def.ingot<dlocal._for>>.name> Ingot Storeye eklendi.

obj.remove

src.targetf f_ingot_ekle <ref1.uid>

return 1

endif

endfor

src.sysh_trk Bu bir ingot değil

return 1





[DEFNAME ingot_store]

ingot1 "i_ingot_iron"

ingot2 "i_ingot_dull_copper"

ingot3 "i_ingot_copper"

ingot4 "i_ingot_bronze"

ingot5 "i_ingot_gold"

ingot6 "i_ingot_shadow"

ingot7 "i_ingot_agapite"

ingot8 "i_ingot_verite"

ingot9 "i_ingot_mytheril"

ingot10 "i_ingot_valorite"

ingot11 "i_ingot_bloodrock"

ingot12 "i_ingot_blackrock"

ingotcolor1 "0"

ingotcolor2 "060a"

ingotcolor3 "0641"

ingotcolor4 "06d6"

ingotcolor5 "045e"

ingotcolor6 "0770"

ingotcolor7 "0400"

ingotcolor8 "07d1"

ingotcolor9 "051f"

ingotcolor10 "0515"

ingotcolor11 "021"

ingotcolor12 "0901"





[function koy]

serv.newitem i_str_drum

new.drop

new.move w 1

serv.newitem i_dex_drum

new.drop

serv.newitem i_int_drum

new.drop

new.move e 1



[itemdef i_str_drum]

defname i_str_drum

id i_drum

name Drum

type t_str_drum



on=@create

attr 010

color 0455





[typedef t_str_drum]

on=@click

message @1153 [ Str ]

message @07d4 <name>

return 1



on=@dclick

local.str <eval (<src.str>)+(<src.modstr>*(-1))>

local.dex <eval (<src.dex>)+(<src.moddex>*(-1))>

local.int <eval (<src.int>)+(<src.modint>*(-1))>

if (<dlocal.str> < 100) && (<eval (<dlocal.str> + <dlocal.dex> + <dlocal.int>)> < 225)

if (rand(10) == 1)

src.str += 1

return 1

else

src.sysh_Trk Başarısız oldunuz.

return 1

endif

else

src.sysh_trk Strniz zaten 100 veya stat toplamınız 225.

return 1

endif



[itemdef i_dex_drum]

defname i_Dex_drum

id i_drum

name Drum

type t_dex_drum



on=@create

attr 010

color 0846



[typedef t_dex_drum]

on=@click

message @1153 [ Dex ]

message @07d4 <name>

return 1



on=@dclick

local.str <eval (<src.str>)+(<src.modstr>*(-1))>

local.dex <eval (<src.dex>)+(<src.moddex>*(-1))>

local.int <eval (<src.int>)+(<src.modint>*(-1))>

if (<dlocal.dex> < 100) && (<eval (<dlocal.str> + <dlocal.dex> + <dlocal.int>)> < 225)

if (rand(10) == 1)

src.dex += 1

return 1

else

src.sysh_Trk Başarısız oldunuz.

return 1

endif

else

src.sysh_trk Dexiniz zaten 100 veya stat toplamınız 225.

return 1

endif



[itemdef i_int_drum]

defname i_int_drum

id i_drum

name Drum

type t_int_drum



on=@create

attr 010

color 084a



[typedef t_int_drum]

on=@click

message @1153 [ Int ]

message @07d4 <name>

return 1



on=@dclick

local.str <eval (<src.str>)+(<src.modstr>*(-1))>

local.dex <eval (<src.dex>)+(<src.moddex>*(-1))>

local.int <eval (<src.int>)+(<src.modint>*(-1))>

if (<dlocal.int> < 100) && (<eval (<dlocal.str> + <dlocal.dex> + <dlocal.int>)> < 225)

if (rand(10) == 1)

src.int += 1

return 1

else

src.sysh_Trk Başarısız oldunuz.

return 1

endif

else

src.sysh_trk Intiniz zaten 100 veya stat toplamınız 225.

return 1

endif





[EOF]