56B Guild Stone Sorunu

[events e_guildci]
on=@damage
if ((<memoryfindtype.memory_guild.link.align> == 1) && (<act.memoryfindtype.memory_guild.link.align> == 1))
action -1
skill fail
smg Order Grubu Uyesi, diger bir grup uyesi ile savasamaz...
return 1
elseif ((<memoryfindtype.memory_guild.link.align> == 2) && (<act.memoryfindtype.memory_guild.link.align> == 2))
smg Chaos Grubu Uyesi, diger bir grup uyesi ile savasamaz...
action -1
skill fail
return 1
endif

on=@hit
if ((<memoryfindtype.memory_guild.link.align> == 1) && (<src.memoryfindtype.memory_guild.link.align> == 1))
action -1
skill fail
smg Order Grubu Uyesi, diger bir grup uyesi ile savasamaz...
return 1
elseif ((<memoryfindtype.memory_guild.link.align> == 2) && (<src.memoryfindtype.memory_guild.link.align> == 2))
smg Chaos Grubu Uyesi, diger bir grup uyesi ile savasamaz...
action -1
skill fail
return 1
endif

on=@HitTry
if ((<memoryfindtype.memory_guild.link.align> == 1) && (<src.memoryfindtype.memory_guild.link.align> == 1))
action -1
skill fail
smg Order Grubu Uyesi, diger bir grup uyesi ile savasamaz...
return 1
elseif ((<memoryfindtype.memory_guild.link.align> == 2) && (<src.memoryfindtype.memory_guild.link.align> == 2))
smg Chaos Grubu Uyesi, diger bir grup uyesi ile savasamaz...
action -1
skill fail
return 1
endif


On=@EnvironChange
if !(<memoryfindtype.memory_guild.link.align>)
	if (<findlayer(2).baseid> == i_shield_chaos) || (<findlayer(2).baseid> == i_shield_order)
		findlayer(2).unequip
	endif
endif

if !(<memoryfindtype.memory_guild>)
tag.gs_title
tag.gunvan
tag.unvanvar
endif

if !(<memoryfindtype.memory_guild.link.align>)
	if (<findlayer(2).baseid> == i_shield_chaos) || (<findlayer(2).baseid> == i_shield_order)
		findlayer(2).unequip
	endif
endif



On=@Spellcast
	if (<memoryfindtype.memory_guild.link.align> == 1) // order
		if (<act.memoryfindtype.memory_guild.link.align> == 1)
                        if !(<argn> == 4) && !(<argn> == 11) && !(<argn> == 29) && !(<argn> == 59) && !(<serial> == <act.serial>)
                        src.sysmessage @080a Order Ordera Saldiramaz.
			f_fizzle
			return 1 //vurmayi engelle
		endif
	endif
endif
	if (<memoryfindtype.memory_guild.link.align> == 2) //chaos
		if (<src.act.memoryfindtype.memory_guild.link.align> == 2)
                        if !(<argn> == 4) && !(<argn> == 11) && !(<argn> == 29) && !(<argn> == 59) && !(<serial> == <act.serial>)
                        src.sysmessage @080a Chaos Chaosa Saldiramaz.
			f_fizzle
			return 1
		endif
	endif
endif

if ((<argn> == 4) || (<argn> == 29) || (<argn> == 11))
if (<src.act.memoryfindtype.memory_guild.link.align> == 1) && !(<src.memoryfindtype.memory_guild.link.align> == 1)
		src.sysmessage Order/Chaos uyelerini iyilestiremezsiniz.
		return 1
endif
endif

if ((<argn> == 4) || (<argn> == 29) || (<argn> == 11))
if (<src.act.memoryfindtype.memory_guild.link.align> == 2) && !(<src.memoryfindtype.memory_guild.link.align> == 2)
		src.sysmessage Order/Chaos uyelerini iyilestiremezsiniz.
		return 1
endif
endif


On=@Spelleffect
if (<argn> == 25) // arch cure
	if (<memoryfindtype.memory_town>) && !(<src.memoryfindtype.memory_town>)
		return 1
	elseif (<memoryfindtype.memory_guild.link.align> > 0) && !(<src.memoryfindtype.memory_guild.link.align>)
		return 1
	endif
endif

on=@click
if !(<isevent.e_faction>) && !(<findid.i_rune_incognito>) && (<memoryfindtype.memory_guild>)
if (<memoryfindtype.memory_guild.link.align> == 1)
message @1153 [Order]
if (strmatch('<tag.unvanvar>','01')
message @1153 [<tag.gunvan> , <memoryfindtype.memory_guild.link.abbrev>]
elseif (strmatch('<tag.gs_title>','')
message @1153 [<memoryfindtype.memory_guild.link.name>]
else
message  @1153 [ Guildmaster of , <memoryfindtype.memory_guild.link.abbrev> ]
endif
endif
endif

if !(<isevent.e_faction>) && !(<findid.i_rune_incognito>) && (<memoryfindtype.memory_guild>)
if (<memoryfindtype.memory_guild.link.align> == 2)
message @080a [Chaos]
if (strmatch('<tag.unvanvar>','01')
message @1153 [<tag.gunvan> , <memoryfindtype.memory_guild.link.abbrev>]
elseif (strmatch('<tag.gs_title>','')
message @1153 [<memoryfindtype.memory_guild.link.name>]
else
message  @1153 [ Guildmaster of , <memoryfindtype.memory_guild.link.abbrev> ]
endif
endif
endif


if !(<isevent.e_faction>) && !(<findid.i_rune_incognito>) && (<memoryfindtype.memory_guild>)
if (<memoryfindtype.memory_guild.link.align> == 0)
if (strmatch('<tag.unvanvar>','01')
		message @1153 [<tag.gunvan> , <memoryfindtype.memory_guild.link.abbrev>]
	elseif (strmatch('<tag.gs_title>','')
		message @1153 [<memoryfindtype.memory_guild.link.name>]
	else
		message  @1153 [ Guildmaster of , <memoryfindtype.memory_guild.link.abbrev> ]
	endif
endif
endif


[ITEMDEF 0edc]
//gravestone
DUPEITEM=0edb

[ITEMDEF 0edb]
//gravestone = Guildstone
DEFNAME=i_guildstone
TYPE=T_STONE_GUILD
VALUE=60000

On=@Create
color 0455
attr 08010
dispid 0ed4
name ******

On=@Click
message @1153 Guild Stone
if !(strmatch('<abbrev>',''))
	message @1153 <name> [<abbrev>]
else
	message @1153 [<name>]
endif
if (<more1> == 1)
	message @1153 [Order]
elseif (<more1> == 2)
	message @080a [Chaos]
elseif (<link> != 04fffffff)
	message [<link.name>]
endif
return 1

On=@TargOn_Char
if (<morex> == 1) // recruiting
	if (<src.targ.npc>)
		src.sysmessage @080a Sadece oyuncular guild uyesi olabilir.
	elseif (<src.targ.distance> > 3)
		src.sysmessage @080a Dikkat: <src.targ.name> bu islem icin stone'a yeterince yakin degil.
	elseif (<src.targ.memoryfindtype.memory_guild>)
		if (<src.targ.memoryfindtype.memory_guild.link> != <uid>)
			src.sysmessage @080a Dikkat: <src.targ.name> uye olabilmek icin oncelikle <src.targ.memoryfindtype.memory_guild.link.name> uyeliginden cikmali.
		elseif (<src.targ.memoryfindtype.memory_guild.link> == <uid>)
			src.sysmessage @080a  <src.targ.name> Zaten Bir <name> Uyesi.
		endif
	elseif (<src.targ.memoryfindtype.memory_town>) && (<src.targ.memoryfindtype.memory_town.link> != <link>)
		src.sysmessage Dikkat: <src.targ.name> guild'in desteklemedigi <src.targ.memoryfindtype.memory_town.link.name> faction'inda. Bir <name> uyesi olamaz.
	elseif (<src.targ.findid.i_gs_recruit>)
		src.sysmessage Dikkat: <src.targ.name> su an dusunme asamasinda.
	else
		src.newitem i_gs_recruit
		src.act.cont <src.targ.uid>
		src.act.more1 <src.uid>
		src.act.more2 <uid>
		src.act.timer 1
	endif
elseif (<morex> == 2) // titling
	if (<src.targ.memoryfindtype.memory_guild.link> != <uid>)
		src.sysmessage Unvan vermeye calistiginiz kisi bir <name> uyesi degil.
		menu menu_guild_masterfunc
	elseif (<src.targ.distance> > 3)
		src.sysmessage Dikkat: <src.targ.name> bu islem icin stone'a yeterince yakin degil.
	else
		src.act <src.targ.uid>
		dialog d_gs_title
	endif
endif
return 1

On=@TargOn_Ground
return 1

On=@TargOn_Item
return 1

On=@Timer
if (<morey> == 1)
	if (<link> != 04fffffff)
		link.morex <eval (<link.morex> - 1)>
	endif
	morey 0
	more1 1
	link 04fffffff
	sayu Yeni destek yonu: Order.
elseif (<morey> == 2)
	if (<link> != 04fffffff)
		link.morex <eval (<link.morex> - 1)>
	endif
	morey 0
	more1 2
	link 04fffffff
	sayu Yeni destek yonu: Chaos.
elseif (<morey> == 3)
	if (<link> != 04fffffff)
		link.morex <eval (<link.morex> - 1)>
	endif
	morey 0
	more1 0
	link 04fffffff
	sayu <name> artik tarafsiz.
elseif (<morey> == 4)
	if (<link> != 04fffffff)
		link.morex <eval (<link.morex> - 1)>
	endif
	morey 0
	more1 0
	link 04009163d
	link.morex <eval (<link.morex> + 1)>
	sayu Yeni destek yonu: <link.name>.
elseif (<morey> == 5)
	if (<link> != 04fffffff)
		link.morex <eval (<link.morex> - 1)>
	endif
	morey 0
	more1 0
	link 04009149f
	link.morex <eval (<link.morex> + 1)>
	sayu Yeni destek yonu: <link.name>.
elseif (<morey> == 6)
	if (<link> != 04fffffff)
		link.morex <eval (<link.morex> - 1)>
	endif
	morey 0
	more1 0
	link 040091450
	link.morex <eval (<link.morex> + 1)>
	sayu Yeni destek yonu: <link.name>.
elseif (<morey> == 7)
	if (<link> != 04fffffff)
		link.morex <eval (<link.morex> - 1)>
	endif
	morey 0
	more1 0
	link 04009139c
	link.morex <eval (<link.morex> + 1)>
	sayu Yeni destek yonu: <link.name>.
endif
return 1

[dialog d_gs_title]
100,50
resizepic 190 175 5120 335 150
resizepic 200 185 3000 315 130
resizepic 220 235 3000 270 22

htmlgump 220 200 290 20 0 0 0		// ba$lik
htmlgump 255 277 100 20 1 0 0		// ok
button 220 275 4006 4007 1 0 1		// ok b
htmlgump 435 277 100 20 2 0 0		// cancel
button 400 275 4018 4019 1 0 0		// cancel b
textentry 225 237 253 25 0 0 3		// isim buraya

[dialog d_gs_title TEXT]
Vermek istediginiz unvani giriniz. (14 karakter)
Tamam
Vazgec
<src.act.tag.gs_title>

[dialog d_gs_title BUTTON]
On=0
if (<distance> < 4)
	menu menu_guild_masterfunc
endif

On=1
if (<distance> > 3)
	src.sysmessage Bu islem icin guildstone'a yeterince yakin degilsiniz.
elseif (<src.act.distance> > 3)
	src.sysmessage Dikkat: <src.act.name> bu islem icin size yeterince yakin degil.
elseif ((strlen(<argtxt[0]>)) > 14)
	src.sysmessage Bir unvan en fazla 14 karakterden olusabilir.
	dialog d_gs_title
elseif (strmatch('<argtxt[0]>',''))
	src.act.tag.gs_title
	src.act.sysmessage Unvaniniz silindi.
	if (<src.uid> != <src.act.uid>)
		src.sysmessage Dikkat: <src.act.name>: Unvan silindi.
	endif
	menu menu_guild_masterfunc
else
	src.act.tag.gs_title <argtxt[0]>
	src.act.sysmessage Yeni unvan: <src.act.tag.gs_title>.
	if (<src.uid> != <src.act.uid>)
		src.sysmessage Dikkat: <src.act.name> yeni unvan: <src.act.tag.gs_title>.
	endif
	menu menu_guild_masterfunc
endif

[itemdef i_gs_recruit]
name guild recruiter
weight 0
id i_gold
type t_eq_script
layer layer_special

On=@UnEquip
try src.act <more2>
try src.dialog d_gs_recruit
return 1

On=@Timer
remove
return 1

[dialog d_gs_alignment]
-100,-100
nomove

resizepic 190 165 5120 275 275
resizepic 200 175 3000 255 255

text 220 185 2100 0
htmlgump 215 208 223 60 1 1 1

htmlgump 258 277 140 20 2 0 0
htmlgump 258 297 150 20 3 0 0
htmlgump 258 317 150 20 4 0 0
htmlgump 258 337 150 20 5 0 0
htmlgump 258 357 150 20 6 0 0
htmlgump 258 377 150 20 7 0 0
htmlgump 258 397 150 20 8 0 0
button 225 275 4006 4007 1 0 1
button 225 295 4006 4007 1 0 2
button 225 315 4006 4007 1 0 3
button 225 335 4006 4007 1 0 4
button 225 355 4006 4007 1 0 5
button 225 375 4006 4007 1 0 6
button 225 395 4006 4007 1 0 7

[dialog d_gs_alignment text]
<name>: <var.gs_align>
Dikkat! guild'in destek yonunu degistirdiginiz takdirde, eger tarafsiz bir guild degilse 24 saat boyunca bu menuyu kullanamayacak ve eski destek tarafinizda kalmaya devam edeceksiniz, 24 saat sonunda otomatik olarak desteginiz degisecektir. Tarafsiz guild'ler menuden islem yapildigi anda taraf degistirebilirler. Destek yonunuzu Order veya Chaos'a cevirdiginizde, tum guild uyeleri (candidate'ler haric) O/C'ye dahil olacaktir. Fakat destek yonunuzu faction'lardan bir tanesine cevirirseniz sadece faction savaslarinda bulunmak isteyen guild uyeleri ilgili faction stone'dan faction'a kayit olarak bu olusuma dahil olabileceklerdir.
British: Order
Blackthorn: Chaos
Tarafsiz
Faction: Shamino
Faction: Jakama
Faction: Daxantec
Faction: Arcanum

[dialog d_gs_alignment button]
On=0
menu menu_guild_masterfunc

On=1
if (<more1> == 1)
	src.sysmessage Dikkat: <name> zaten bir Order guildi.
else
	morey 1
	if (<more1> == 0) && (<link> == 04fffffff)
		timer 1
	else
		sayu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

On=2
if (<more1> == 2)
	src.sysmessage Dikkat: <name> zaten bir Chaos guildi.
else
	morey 2
	if (<more1> == 0) && (<link> == 04fffffff)
		timer 1
	else
		sayu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

On=3
if (<more1> == 0) && (<link> == 04fffffff)
	src.sysmessage Dikkat: <name> zaten tarafsiz bir guild.
else
	morey 3
	sayu Tarafsizlik sureci baslamistir.
	timer 86400
endif
menu menu_guild_masterfunc

On=4
if (<link> == 04009163d)
	src.sysmessage Dikkat: <name> zaten bir Shamino guildi.
else
	morey 4
	if (<more1> == 0) && (<link> == 04fffffff)
		timer 1
	else
		sayu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

On=5
if (<link> == 04009149f)
	src.sysmessage Dikkat: <name> zaten bir Jakama guildi.
else
	morey 5
	if (<more1> == 0) && (<link> == 04fffffff)
		timer 1
	else
		sayu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

On=6
if (<link> == 040091450)
	src.sysmessage Dikkat: <name> zaten bir Daxantec guildi.
else
	morey 6
	if (<more1> == 0) && (<link> == 04fffffff)
		timer 1
	else
		sayu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

On=7
if (<link> == 04009139c)
	src.sysmessage Dikkat: <name> zaten bir Arcanum guildi.
else
	morey 7
	if (<more1> == 0) && (<link> == 04fffffff)
		timer 1
	else
		sayu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

[dialog d_gs_recruit]
-100,-100
nomove

resizepic 190 165 5120 275 155
resizepic 200 175 3000 255 135

htmlgump 215 188 223 60 0 1 1
htmlgump 258 257 140 20 1 0 0
htmlgump 258 277 150 20 2 0 0
button 225 255 4006 4007 1 0 1
button 225 275 4018 4019 1 0 0

[dialog d_gs_recruit text]
<uid.<findid.i_gs_recruit.more1>.name> tarafindan <act.name> guild'ine davet edildiniz. Bu guild'e katilmak istiyor musunuz?
Evet
Hayir

[dialog d_gs_recruit button]
On=1
if (<act.distance> > 3)
	sysmessage Guild stone'a yeterince yakin degilsiniz.
else
	try tag.gs_title
	try uid.<act.uid>.applytojoin
endif


[ITEMDEF 0ede]
//gravestone
DUPEITEM=0edd



[MENU MENU_GUILD_MASTER]
<Name> (<MasterTitle> <Master>)
ON=0 Guilde Al
RECRUIT
ON=0 Guild Uyeleri
VIEWROSTER
//ON=0 Guild Posteri
//VIEWCHARTER
//ON=0 Guild Master Oylamasi.Su anda (<LoyalTo>)
//DECLAREFEALTY
//ON=0 Toggle showing the guild's abbreviation in your name to unguilded people. Currently <AbbreviationToggle>.
//TOGGLEABBREVIATION
ON=0 Guildden ayril
RESIGN
ON=0 Guild Uyelik Adaylari
VIEWCANDIDATES
ON=0 <Name> savas ilan ettigi guildler
VIEWENEMYS
ON=0 <Name> guildine savas ilan eden guildler
VIEWTHREATS
ON=0 Guild Kalkani al
if (<src.targ.more> == 1)
	if (0<src.tag.sho> == 1)
		src.sysmessage Lord British size daha once kalkan vermis.
		return 1
	endif
	src.tag.sho 1
	src.newitem i_shield_order
	src.act.bounce
elseif (<src.targ.more> == 2)
	if (0<src.tag.shc> == 1)
		src.sysmessage Lord Blackthorne size daha once kalkan vermis.
		return 1
	endif
	src.tag.shc 1
	src.newitem i_shield_chaos
	src.act.bounce
else
	src.sysmessage Sadece Order ve Chaos guildleri kalkan alabilir.
endif
ON=0 Guild <MasterGenderTitle> Menusu
src.tag.gs_title 1
MASTERMENU

// This is the NON-guildmaster initial selection screen for guildstones
[MENU MENU_GUILD_MEMBER]
<Name> (<MasterTitle> <Master>)
//ON=0 Recruit someone into the guild
//RECRUIT
ON=0 Guild Uyeleri
VIEWROSTER
//ON=0 Guild Posteri
//VIEWCHARTER
//ON=0 Guild Master Oylamasi.Su anda (<LoyalTo>)
//DECLAREFEALTY
//ON=0 Toggle showing the guild's abbreviation in your name to unguilded people. Currently <AbbreviationToggle>.
//TOGGLEABBREVIATION
ON=0 Guildden ayril
src.sysmessage Guild'den Ayrildiniz ...
src.tag.gs_title
RESIGN
src.sysmessage Guild'den Ayrildiniz ...
On=0 Unvani Reddet
src.sysmessage Unvani Reddettiniz...
src.tag.gs_title
src.tag.gunvan
src.tag.unvanvar
ON=0 Guild Uyelik Adaylari
VIEWCANDIDATES
ON=0 <Name> savas ilan ettigi guildler
VIEWENEMYS
ON=0 <Name> guildine savas ilan eden guildler
VIEWTHREATS
ON=0 Guild Kalkani al
if (<src.targ.more> == 1)
	if (0<src.tag.sho> == 1)
		src.sysmessage Lord British size daha once kalkan vermis.
		return 1
	endif
	src.tag.sho 1
	src.newitem i_shield_order
	src.act.bounce
elseif (<src.targ.more> == 2)
	if (0<src.tag.shc> == 1)
		src.sysmessage Lord Blackthorne size daha once kalkan vermis.
		return 1
	endif
	src.tag.shc 1
	src.newitem i_shield_chaos
	src.act.bounce
else
	src.sysmessage Sadece Order ve Chaos guildleri kalkan alabilir.
endif
// Guild master functions.
[MENU MENU_GUILD_MASTERFUNC]
<Name> (<MasterTitle> <Master>) Master Menu
ON=0 Guildin Adini Degistir
dialog d_gs_rename
ON=0 Guildin Kisa Adini Degistir
dialog d_gs_abbrev
ON=0 Guild Destegi (Su anda <AlignType>)
if (<src.findid.i_changerfixer>) && (<src.account.plevel> == 1)
src.Smg Guild destegini degistirebilmeniz icin gerekli zaman :
src.smg <eval <src.findid.i_changerfixer.timer> / 60> dakika [ <eval <src.findid.i_changerfixer.timer> / 3600> saat]
return 1
else
CHANGEALIGN
endif
//ON=0 Guild Posteri Ayarla
//SETCHARTER
ON=0 Guildden Uye At
DISMISSMEMBER
ON=0 Savas Ilan Et
DECLAREWAR
ON=0 Baris Ilan Et
DECLAREPEACE
ON=0 Guild adayligini kabul et
ACCEPTCANDIDATE
ON=0 Guild adayligini red et
REFUSECANDIDATE
ON=0 Guildmaster'a title ekle
SETGMTITLE
ON=0 Bir uyeye title ekle
GRANTTITLE
On=0 Bir uyeye unvan ekle
src.dialog d_unvanver
on=0 Bir uyenin unvanini sil
src.newitem i_unvansilerim
src.act.equip
ON=0 Guildi yik
if (<link> != 04fffffff)
	link.morex <eval (<link.morex> - 1)>
endif
src.findid.i_changerfixer.remove
src.tag.gs_title
src.smg Guildi yiktiniz...
REMOVE
SERV.ALLCLIENTS SMy *** <serv.name> Lonca Haberleri ***
SERV.ALLCLIENTS SMG  <Name> Lonca'si Su Anda Yikilmistir...     
ON=0 Ana menuye geri don
RETURNMAINMENU

//ON=0 Issue Chaos Shields
//NEWITEM=i_chaos_shield
//SRC.ACT.LINK=<SERIAL>
//ON=0 Issue Order Shields
//NEWITEM=i_order_shield
//SRC.ACT.LINK=<SERIAL>
// Non-member view.

// Non-member view.
[MENU MENU_GUILD_NON]
<Name> Guild Master : (<Master>)
ON=0 Guild Uyeleri
VIEWROSTER
ON=0 Guild Uye Adaylari
VIEWCANDIDATES
ON=0 <Name> Guildinin Dusmanlari
VIEWENEMYS
ON=0 <Name> Guildine Savas Acanlar
VIEWTHREATS

[MENU MENU_GUILD_ALIGN]
Guild destegini degistir (Su anda <AlignType> )
ON=0 Chaos
CHANGEALIGN 2
src.newitem i_changerfixer
src.act.equip
SERV.ALLCLIENTS SMy *** <serv.name> Lonca Haberleri ***
SERV.ALLCLIENTS SMG  <Name> Lonca'si Su Anda Chaos Grubunun Uyesi Olmustur.
ON=0 Tarafsiz
src.newitem i_changerfixer
src.act.equip
CHANGEALIGN 0
SERV.ALLCLIENTS SMy *** <serv.name> Lonca Haberleri ***
SERV.ALLCLIENTS SMG  <Name> Lonca'si Grubunu Birakip Tarafsiz Olmustur.
ON=0 Order
src.newitem i_changerfixer
src.act.equip
CHANGEALIGN 1
SERV.ALLCLIENTS SMy *** <serv.name> Lonca'si Haberleri ***
SERV.ALLCLIENTS SMG  <Name> Lonca'si Su Anda Order Grubunun Uyesi Olmustur.  


[dialog d_unvanver]
100,50
resizepic 200 185 83 335 150
resizepic 207 194 3000 323 132
resizepic 220 235 3000 270 22

htmlgump 220 200 250 20 0 0 0		// ba$lik
htmlgump 255 277 100 20 1 0 0		// ok
button 220 275 4006 4007 1 0 1		// ok b
htmlgump 435 277 100 20 2 0 0		// cancel
button 400 275 4018 4019 1 0 0		// cancel b
textentry 225 237 253 25 0 0 3		// isim buraya

[dialog d_unvanver TEXT]
Unvani giriniz. (14 karakter)
Tamam
Vazgec
??

[dialog d_unvanver BUTTON]
On=0
if (<distance> < 4)
	menu menu_guild_masterfunc
endif

On=1
if (<distance> > 3)
	src.sysmessage Bu islem icin guildstone'a yeterince yakin degilsiniz.
elseif ((strlen(<argtxt[0]>)) > 14)
	src.sysmessage Unvan en fazla 14 karakterden olusabilir.
	dialog d_unvanver
elseif (strmatch('<argtxt[0]>',''))
	src.sysmessage Bir unvan girmediniz?
	dialog d_unvanver
else
	tag.unvan <argtxt[0]>
	src.newitem i_unvanvercem
	src.act.equip
	return 1
endif

[itemdef i_unvanvercem]
id i_gold
type t_eq_script
weight 0
name unvan ver

on=@create
attr attr_invis || attr_decay || attr_newbie

on=@equip
target Unvan kime verilsin?
timer 5

on=@targon_item
src.sysmessage @1153  Olmadi...
return 1

on=@targon_char
if (<src.uid> == <src.targ.uid>
src.sysmessage @1153 Guildmasterin zaten unvani var...
return 1
elseif !(strmatch('<src.memoryfindtype.memory_guild.link.name>','<src.targ.memoryfindtype.memory_guild.link.name>')
src.sysmessage @1153 Bu kisi guildinize uye degil...
return 1
elseif (strmatch('<src.tag.unvan>','Guildmaster')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','sikici')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Fahise')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Fahi$e')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Orospu')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Pezevenk')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Pezewenk')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Pezewenq')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Pezevenq')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
elseif (strmatch('<src.tag.unvan>','Amele')
src.sysmessage @1153 Bu unvani veremezsiniz...
return 1
else
src.gc Dikkat: <src.targ.name> <src.tag.unvan> unvanini aldi...
src.targ.tag.gunvan <src.tag.unvan>
src.targ.tag.unvanvar 1
return 1
endif

on=@timer
remove
return 1

[itemdef i_unvansilerim]
id i_gold
weight 0
name Unvan silici
type t_eq_script

on=@create
attr attr_invis || attr_decay || attr_newbie

on=@equip
target Kimin unvani silinsin?
timer 5

on=@targon_item
src.sysmessage Yanlis secim...
return 1

on=@targon_char
if (<src.uid> == <src.targ.uid>
src.sysmessage @1153 Guildmasterin unvani silinemez...
return 1
elseif !(strmatch('<src.memoryfindtype.memory_guild.link.name>','<src.targ.memoryfindtype.memory_guild.link.name>')
src.sysmessage @1153 Bu kisi guildinize uye degil...
return 1
else
src.gc Dikkat: <src.targ.name> isimli uyenin unvanini sildim...
src.targ.tag.gunvan 
src.targ.tag.unvanvar
return 1
endif

on=@timer
remove
return 1


[dialog d_gs_abbrev]
100,50
resizepic 200 185 83 335 150
resizepic 207 194 3000 323 132
resizepic 220 235 3000 270 22

htmlgump 220 200 250 20 0 0 0		// ba$lik
htmlgump 255 277 100 20 1 0 0		// ok
button 220 275 4006 4007 1 0 1		// ok b
htmlgump 435 277 100 20 2 0 0		// cancel
button 400 275 4018 4019 1 0 0		// cancel b
textentry 225 237 253 25 0 0 3		// isim buraya

[dialog d_gs_abbrev TEXT]
Yeni guild kisaltmasi giriniz. (3 karakter)
Tamam
Vazgec
<abbrev>

[dialog d_gs_abbrev BUTTON]
On=0
if (<distance> < 4)
	menu menu_guild_masterfunc
endif

On=1
if (<distance> > 3)
	src.sysmessage Bu islem icin guildstone'a yeterince yakin degilsiniz.
elseif ((strlen(<argtxt[0]>)) > 3)
	src.sysmessage Guild kisaltmasi en fazla 3 karakterden olusabilir.
	dialog d_gs_abbrev
elseif (strmatch('<argtxt[0]>',''))
	src.sysmessage Bir kisaltma girmediniz?
	dialog d_gs_abbrev
else
	abbrev <argtxt[0]>
	src.sysmessage Yeni kisaltma: <abbrev>
	menu menu_guild_masterfunc
endif


[dialog d_gs_rename]
100,50
resizepic 200 185 83 335 150
resizepic 207 194 3000 323 132
resizepic 220 235 3000 270 22

htmlgump 220 200 250 20 0 0 0		// ba$lik
htmlgump 255 277 100 20 1 0 0		// ok
button 220 275 4006 4007 1 0 1		// ok b
htmlgump 435 277 100 20 2 0 0		// cancel
button 400 275 4018 4019 1 0 0		// cancel b
textentry 225 237 253 25 0 0 3		// isim buraya

[dialog d_gs_rename TEXT]
Yeni guild adini giriniz. (16 karakter)
Tamam
Vazgec
<name>

[dialog d_gs_rename BUTTON]
On=0
if (<distance> < 4)
	menu menu_guild_masterfunc
endif

On=1
if (<distance> > 3)
	src.sysmessage Bu islem icin guildstone'a yeterince yakin degilsiniz.
elseif ((strlen(<argtxt[0]>)) > 16)
	src.sysmessage Guild ismi en fazla 16 karakterden olusabilir.
	dialog d_gs_rename
elseif (strmatch('<argtxt[0]>',''))
	src.sysmessage Bir isim girmediniz?
	dialog d_gs_rename
else
	name <argtxt[0]>
	src.sysmessage Yeni isim: <name>
	menu menu_guild_masterfunc
endif

[itemdef i_changerfixer]
name GuildFixByNoxier
id i_memory
type t_eq_script
weight 0

on=@create
attr attr_decay || attr_invis || attr_newbie
color 0810

on=@equip
timer 43200
return 1

on=@timer
cont.smg Artik Guild destegini degistirebilirsiniz.
remove
consume 100 i_changerfixer
return 1


[ITEMDEF 01bc4]
DEFNAME=i_shield_order
TYPE=t_shield
FLIP=1
VALUE=1
WEIGHT=1
ARMOR=50
REQSTR=60
CATEGORY=Provisions - Armor
SUBSECTION=Shields
DESCRIPTION=Order Shield

ON=@Create
hitpoints 100
attr 06

On=@Equip
if (<src.isgm>)
	return 0
elseif !(<src.memoryfindtype.memory_guild>)
	src.hits 0
elseif !(<src.memoryfindtype.memory_guild.link.align> == 1)
	src.hits 0
elseif (<src.kills> > 5)
	src.hits 0
endif

[ITEMDEF 01bc3]
DEFNAME=i_shield_chaos
TYPE=t_shield
FLIP=1
VALUE=1
WEIGHT=1
ARMOR=50
REQSTR=60
CATEGORY=Provisions - Armor
SUBSECTION=Shields
DESCRIPTION=Chaos Shield

ON=@Create
hitpoints 100
attr 06

On=@Equip
if (<src.isgm>)
	return 0
elseif !(<src.memoryfindtype.memory_guild>)
	src.hits 0
elseif !(<src.memoryfindtype.memory_guild.link.align> == 2)
	src.hits 0
elseif (<src.kills> > 5)
	src.hits 0
endif


[FUNCTION gc]
IF <SRC.MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>!=0
SERV.ALLCLIENTS SMSGc * Gc * <NAME> : <args>
else
sysmessage @60 herhangi bir guilde uye degilsiniz.
endif

[FUNCTION SMSGc]
IF <MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>==<SRC.MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>
var.smsgx 61
smsgx <args>
endif





[FUNCTION guildonline]
IF <SRC.MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>!=0
SRC.NEWITEM i_guild_online
SRC.ACT.EQUIP
SERV.Allclients goncheck
SRC.DIALOG d_guild_online
SRC.ACT.REMOVE
else
src.sysmessage @080a Bu Komutu Kullanabilmeniz Icin Bir guilde Uye Olmalisiniz.
endif

[FUNCTION goncheck]
IF <MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>==<SRC.MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>
else
return 1
endif
if <src.findid.i_guild_online.tag.p1>==0
src.findid.i_guild_online.tag.player1=<name>
src.findid.i_guild_online.tag.player119=<region.name>
src.findid.i_guild_online.tag.p1=1
elseif <src.findid.i_guild_online.tag.p2>==0
src.findid.i_guild_online.tag.player2=<name>
src.findid.i_guild_online.tag.player22=<region.name>
src.findid.i_guild_online.tag.p2=1
elseif <src.findid.i_guild_online.tag.p3>==0
src.findid.i_guild_online.tag.player3=<name>
src.findid.i_guild_online.tag.player33=<region.name>
src.findid.i_guild_online.tag.p3=1
elseif <src.findid.i_guild_online.tag.p4>==0
src.findid.i_guild_online.tag.player4=<name>
src.findid.i_guild_online.tag.player44=<region.name>
src.findid.i_guild_online.tag.p4=1
elseif <src.findid.i_guild_online.tag.p5>==0
src.findid.i_guild_online.tag.player5=<name>
src.findid.i_guild_online.tag.player55=<region.name>
src.findid.i_guild_online.tag.p5=1
elseif <src.findid.i_guild_online.tag.p6>==0
src.findid.i_guild_online.tag.player6=<name>
src.findid.i_guild_online.tag.player66=<region.name>
src.findid.i_guild_online.tag.p6=1
elseif <src.findid.i_guild_online.tag.p7>==0
src.findid.i_guild_online.tag.player7=<name>
src.findid.i_guild_online.tag.player77=<region.name>
src.findid.i_guild_online.tag.p7=1
elseif <src.findid.i_guild_online.tag.p8>==0
src.findid.i_guild_online.tag.player8=<name>
src.findid.i_guild_online.tag.player88=<region.name>
src.findid.i_guild_online.tag.p8=1
elseif <src.findid.i_guild_online.tag.p9>==0
src.findid.i_guild_online.tag.player9=<name>
src.findid.i_guild_online.tag.player99=<region.name>
src.findid.i_guild_online.tag.p9=1
elseif <src.findid.i_guild_online.tag.p10>==0
src.findid.i_guild_online.tag.player10=<name>
src.findid.i_guild_online.tag.player100=<region.name>
src.findid.i_guild_online.tag.p10=1
elseif <src.findid.i_guild_online.tag.p11>==0
src.findid.i_guild_online.tag.player11=<name>
src.findid.i_guild_online.tag.player110=<region.name>
src.findid.i_guild_online.tag.p11=1
elseif <src.findid.i_guild_online.tag.p12>==0
src.findid.i_guild_online.tag.player12=<name>
src.findid.i_guild_online.tag.player120=<region.name>
src.findid.i_guild_online.tag.p12=1
elseif <src.findid.i_guild_online.tag.p13>==0
src.findid.i_guild_online.tag.player13=<name>
src.findid.i_guild_online.tag.player130=<region.name>
src.findid.i_guild_online.tag.p13=1
elseif <src.findid.i_guild_online.tag.p14>==0
src.findid.i_guild_online.tag.player14=<name>
src.findid.i_guild_online.tag.player150=<region.name>
src.findid.i_guild_online.tag.p14=1
elseif <src.findid.i_guild_online.tag.p15>==0
src.findid.i_guild_online.tag.player15=<name>
src.findid.i_guild_online.tag.player150=<region.name>
src.findid.i_guild_online.tag.p15=1
endif

[DIALOG d_guild_online]
60,0
resizepic 0 30 3500 375 500
resizepic 0 30 3000 375 500
dtext 26 50 1153 Guildinizdeki Online Oyuncular;
dtext 26 80 1153 <SRC.FINDID.i_guild_online.tag.player1>
dtext 26 110 1153 <SRC.FINDID.i_guild_online.tag.player2>
dtext 26 140 1153 <SRC.FINDID.i_guild_online.tag.player3>
dtext 26 170 1153 <SRC.FINDID.i_guild_online.tag.player4>
dtext 26 200 1153 <SRC.FINDID.i_guild_online.tag.player5>
dtext 26 230 1153 <SRC.FINDID.i_guild_online.tag.player6>
dtext 26 260 1153 <SRC.FINDID.i_guild_online.tag.player7>
dtext 26 290 1153 <SRC.FINDID.i_guild_online.tag.player8>
dtext 26 320 1153 <SRC.FINDID.i_guild_online.tag.player9>
dtext 26 350 1153 <SRC.FINDID.i_guild_online.tag.player10>
dtext 26 380 1153 <SRC.FINDID.i_guild_online.tag.player11>
dtext 26 410 1153 <SRC.FINDID.i_guild_online.tag.player12>
dtext 26 440 1153 <SRC.FINDID.i_guild_online.tag.player13>
dtext 26 470 1153 <SRC.FINDID.i_guild_online.tag.player14>
dtext 26 500 1153 <SRC.FINDID.i_guild_online.tag.player15>

dtext 230 80 0455 <SRC.FINDID.i_guild_online.tag.player119>
dtext 230 110 0455 <SRC.FINDID.i_guild_online.tag.player22>
dtext 230 140 0455 <SRC.FINDID.i_guild_online.tag.player33>
dtext 230 170 0455 <SRC.FINDID.i_guild_online.tag.player44>
dtext 230 200 0455 <SRC.FINDID.i_guild_online.tag.player55>
dtext 230 230 0455 <SRC.FINDID.i_guild_online.tag.player66>
dtext 230 260 0455 <SRC.FINDID.i_guild_online.tag.player77>
dtext 230 290 0455 <SRC.FINDID.i_guild_online.tag.player88>
dtext 230 320 0455 <SRC.FINDID.i_guild_online.tag.player99>
dtext 230 350 0455 <SRC.FINDID.i_guild_online.tag.player100>
dtext 230 380 0455 <SRC.FINDID.i_guild_online.tag.player110>
dtext 230 410 0455 <SRC.FINDID.i_guild_online.tag.player120>
dtext 230 440 0455 <SRC.FINDID.i_guild_online.tag.player130>
dtext 230 470 0455 <SRC.FINDID.i_guild_online.tag.player140>
dtext 230 500 0455 <SRC.FINDID.i_guild_online.tag.player150>


[DIALOG d_guild_online BUTTON]

[ITEMDEF i_guild_online]
Name=Gg
Id=i_memory
type=t_eq_script

ON=@Create
TAG.P1=0
TAG.P2=0
TAG.P3=0
TAG.P4=0
TAG.P5=0
TAG.P6=0
TAG.P7=0
TAG.P8=0
TAG.P9=0
TAG.P10=0
TAG.P11=0
TAG.P12=0
TAG.P13=0
TAG.P14=0
TAG.P15=0




[plevel 1]
gc
guildonline




[EOF]