Hesabına erişemeyen eski üyeler Discord üzerinden yardım alabilir.



onlar zaten sende yüklü olması lazım kardeşim fark etmiyor onlar, sen sadece bunu ekliceksin, diğerini kaldırıcaksın.
Benimkileri sildim taşa tıklayınca hiçbir menü açılmıyor.
ahh be kardeşim sadece bu bölümleri değiştiricektin onları ekle tekrar, sadece dediklerimi değiştir.
dostum aynı sorun üzerinde bende bir iki gündür uraşıyorum. tahminen f_guildsys_recruitguy komutunu kaldırıp yerine Qnd nin dediği gibi ancak o scriptteki gibi değil yeni bir on=@targon_char scripti yazılması gerekiyor. lakin yeni sistemde farklı komutlar girmiş. eğer bir sonuca ulaşırsam buraya yazarım. istersen msn ini pm ile gönder irtibat halinde oluruz.
yada f_guildsys_recruitguy komutuna dialog eklemeliyiz ;)
ben beceremedim :) eski sistemde item yaratıp adama onu equip ettiriyosun bu itemle birlikte taşın <uid> sini ve kendi <src.uid> kısımlarını itemin more1 ve more2 değerlerine atayıp dialogu öyle açtırıyosun. 2-3 gündür kafayı yedim ben bunla :) biraz ara verdim sindireyim diye.. ehehe ama yeniden uğraşıcam.. birde işin ilginci burda da ya bu sorunla kimse karşılaşmadı. yada karşılaşan arkadaşlar pat diye çözdüler ve bize söylemiyorlar :P
Çok doğru söylüyosun valla bunu anca bu guild sistemini yazan adama sormak lazım ((:
Guild destekli versiyon kullandığın için diğerini aktif edemezsin. Nasıl gereksiz bi adamın eline geçtiğini bilmediğim halde sana verilen BENIM yazdığım guildonline sisteminin de içinde bulunduğu versiyon sende çalışmaz. Yeni versiyonda, yapman gereken serv try ile sonuna <uid> koyarak çalıştırmaktır. Bu konuyu burda tartışmıştık bir ara, aratırsan gerekli cevabı bulabilirsin.
Valla Bende Bir Kaç Kişiye Sordum Bunuda Çok Zor Oldu Kimse Yardımcı Olamadi Ama Sonunda Kendim Tek Başıma Yaptım

https://www.dosya.tc/indir/WKOYta/guilds.rar.html

Bu rardaki dosyayı stones klasörünün içindeki herşeyi silip içine atıcaksın.

Buda Guild Stone Sistemi Güzeldir.

[ITEMDEF 0edd]
//gravestone = Guildstone
DEFNAME=i_guildstone
TYPE=T_STONE_GUILD
VALUE=60000
name guildstone

On=@Create

dispid i_gravestone_18
attr 010
name None

On=@Click
if !(strmatch('<abbrev>',''))
	message @077a a guild stone
	message @1153 guild stone of <name> [<abbrev>]
	tag.taraftar Tarafsiz
return 1
else
	message @077a a guild stone
	message @1153 guild stone of <name>
	tag.taraftar Tarafsiz
return 1
endif

if (<more1> == 1)
	message @255 [Order]
	tag.taraftar Order
return 1
elseif (<more1> == 2)
	message @35 [Chaos]
	tag.taraftar Chaos
return 1
endif



On=@TargOn_Char
if (<morex> == 1) // recruiting
	if (<src.targ.npc>)
		src.sysmessage @38,,1 Sadece oyuncular guild uyesi olabilir.
	elseif (<src.targ.distance> > 3)
		src.sysmessage @38,,1 <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 @38,,1 <src.targ.name> uye olabilmek icin oncelikle <src.targ.memoryfindtype.memory_guild.link.name> uyeliginden cikmali.
		endif
	elseif (<src.targ.memoryfindtype.memory_town>) && (<src.targ.memoryfindtype.memory_town.link> != <link>)
		src.sysmessage @38,,1 <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 @38,,1 <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 @38,,1 Unvan vermeye calistiginiz kisi bir <name> uyesi degil.
		menu menu_guild_masterfunc
	elseif (<src.targ.distance> > 3)
		src.sysmessage @38,,1 <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)
	morey 0
	more1 1
	sayua 0835,6,0,enu Yeni destek yonu: Order.
elseif (<morey> == 2)
	morey 0
	more1 2
	sayua 0835,6,0,enu Yeni destek yonu: Chaos.
elseif (<morey> == 3)
	morey 0
	more1 0
	sayua 0835,6,0,enu <name> artik tarafsiz.
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
<uid.<src.ctag.guild_prompthandler_thisuid>.tag.gs_title>

[dialog d_gs_title BUTTON]
On=0
if (<distance> < 4)
	sdialog d_Guild_Main,0
endif

On=1
if (<distance> > 3)
	src.sysmessage @38,,1 Bu islem icin guildstone'a yeterince yakin degilsiniz.
elseif (<src.act.distance> > 3)
	src.sysmessage @38,,1 <src.act.name> bu islem icin size yeterince yakin degil.
elseif ((strlen(<argtxt[0]>)) > 14)
	src.sysmessage @38,,1 Bir unvan en fazla 14 karakterden olusabilir.
	dialog d_gs_title
elseif (strmatch('<argtxt[0]>',''))
	try uid.<src.ctag.guild_prompthandler_thisuid>.tag.gs_title
	src.act.sysmessage @38,,1 Unvaniniz silindi.
	if (<src.uid> != <src.ctag.guild_prompthandler_thisuid>)
		src.sysmessage @38,,1 <uid.<src.ctag.guild_prompthandler_thisuid>.name>: Unvan silindi.
	endif
	sdialog d_Guild_Main,0
else
	try uid.<src.ctag.guild_prompthandler_thisuid>.tag.gs_title <argtxt[0]>
	try uid.<src.ctag.guild_prompthandler_thisuid>.sysmessage @38,,1 Yeni unvan: <uid.<src.ctag.guild_prompthandler_thisuid>.tag.gs_title>
	if (<src.uid> != <src.ctag.guild_prompthandler_thisuid>)
		src.sysmessage @38,,1 <uid.<src.ctag.guild_prompthandler_thisuid>.name> yeni unvan: <uid.<src.ctag.guild_prompthandler_thisuid>.tag.gs_title>.
	endif
	sdialog d_Guild_Main,0
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 225
resizepic 200 175 3000 255 205

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 @38,,1 <name> zaten bir Order guildi.
else
	morey 1
	if (<more1> == 0)
		timer 1
	else
		sayua 0835,6,0,enu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

On=2
if (<more1> == 2)
	src.sysmessage @38,,1 <name> zaten bir Chaos guildi.
else
	morey 2
	if (<more1> == 0)
		timer 1
	else
		sayua 0835,6,0,enu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
endif
menu menu_guild_masterfunc

On=3
if (<more1> == 0)
	src.sysmessage @38,,1 <name> zaten tarafsiz bir guild.
else
	morey 3
	sayua 0835,6,0,enu Tarafsizlik sureci baslamistir.
	timer 86400
endif
menu menu_guild_masterfunc

On=4
	if (<more1> == 0)
		timer 1
	else
		sayua 0835,6,0,enu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
menu menu_guild_masterfunc

On=5
	if (<more1> == 0)
		timer 1
	else
		sayua 0835,6,0,enu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
menu menu_guild_masterfunc

On=6
	if (<more1> == 0)
		timer 1
	else
		sayua 0835,6,0,enu Taraf degistirme sureci baslamistir.
		timer 86400
	endif
menu menu_guild_masterfunc

On=7
	if (<more1> == 0)
		timer 1
	else
		sayua 0835,6,0,enu Taraf degistirme sureci baslamistir.
		timer 86400
	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 @38,,1 Guild stone'a yeterince yakin degilsiniz.
else
	try tag.gs_title
        f_guildsys_addchartoguild <act.uid>,<uid>,1
	try uid.<act.uid>.applytojoin
	try tag.ctag 
	//db.connect
	//db.execute "insert into aktiviteler(id, action, sutun1, sutun2, sutun3, sutun4, sutun5) VALUES (NULL, '2', '<serv.rtime>', '<src.name>', '<uid.<findid.i_gs_recruit.more1>.name>', '<act.name>', '<region.name>');"
endif

// This is the guildmaster initial selection screen for guildstones
[MENU MENU_GUILD_MASTER]
<Name> (<Master>)
ON=0 Recruit someone into the guild.
morex 1
target Guild'e almak istediginiz kisiyi seciniz.
ON=0 Current roster.
VIEWROSTER
ON=0 Guild's charter.
VIEWCHARTER
ON=0 List of candidates.
VIEWCANDIDATES
ON=0 Enemies of <Name>.
VIEWENEMYS
ON=0 Threats to <Name>.
VIEWTHREATS
//ON=0 Declare your fealty. (loyal to <LoyalTo>)
//DECLAREFEALTY
ON=0 Resign from the guild.
SAY <SRC.NAME> has been resigned from <NAME>
RESIGN
ON=0 Create guild shield.
if (<src.targ.more> == 1)
	if (0<src.tag.sho> == 1)
		src.sysmessage @38,,1 Yuce sahsiyetiniz daha once kalkan ile onurlandirilmis.
		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 @38,,1 Yuce sahsiyetiniz daha once kalkan ile onurlandirilmis.
		return 1
	endif
	src.tag.shc 1
	src.newitem i_shield_chaos
	src.act.bounce
else
	src.sysmessage @38,,1 Sadece Order ve Chaos guildleri kendilerine ait bir shield'a sahip olabilirler.
endif
ON=0 Access Guild <MasterGenderTitle> functions.
MASTERMENU

// This is the NON-guildmaster initial selection screen for guildstones
[MENU MENU_GUILD_MEMBER]
<Name> (<Master>)
ON=0 Current roster.
VIEWROSTER
ON=0 Guild's charter.
VIEWCHARTER
ON=0 List of candidates.
VIEWCANDIDATES
ON=0 Enemies of <Name>.
VIEWENEMYS
ON=0 Threats to <Name>.
VIEWTHREATS
ON=0 Declare your fealty. (loyal to <LoyalTo>)
DECLAREFEALTY
ON=0 Resign from the guild.
SAY <SRC.NAME> has been resigned from <NAME>
RESIGN
ON=0 Create guild shield
if (<src.targ.more> == 1)
	if (0<src.tag.sho> == 1)
		src.sysmessage @38,,1 Yuce sahsiyetiniz daha once kalkan ile onurlandirilmis.
		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 @38,,1 Yuce sahsiyetiniz daha once kalkan ile onurlandirilmis.
		return 1
	endif
	src.tag.shc 1
	src.newitem i_shield_chaos
	src.act.bounce
else
	src.sysmessage @38,,1 Sadece Order ve Chaos guildleri kendilerine ait bir shield'a sahip olabilirler.
endif

[dialog d_gs_abbrev]
100,50
resizepic 190 175 5120 335 150
resizepic 200 185 3000 315 130
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)
		sdialog d_Guild_Main,0
endif

On=1
if (<distance> > 3)
	src.sysmessage @38,,1 Bu islem icin guildstone'a yeterince yakin degilsiniz.
elseif ((strlen(<argtxt[0]>)) > 3)
	src.sysmessage @38,,1 Guild kisaltmasi en fazla 3 karakterden olusabilir.
	dialog d_gs_abbrev
elseif (strmatch('<argtxt[0]>',''))
	src.sysmessage @38,,1 Bir kisaltma girmediniz?
	dialog d_gs_abbrev
else
	abbrev <argtxt[0]>
	src.sysmessage @38,,1 Yeni kisaltma: <abbrev>
	db.execute "update guildler set guild_kisaltma='<argtxt[0]>' where stone_uid='<uid>'"
		sdialog d_Guild_Main,0
endif

[dialog d_gs_rename]
100,50
resizepic 190 175 5120 335 150
resizepic 200 185 3000 315 130
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 ismini giriniz. (16 karakter)
Tamam
Vazgec
<name>

[dialog d_gs_rename BUTTON]
On=0
if (<distance> < 4)
		sdialog d_Guild_Main,0
endif

On=1
if (<distance> > 3)
	src.sysmessage @38,,1 Bu islem icin guildstone'a yeterince yakin degilsiniz.
elseif ((strlen(<argtxt[0]>)) > 15)
	src.sysmessage @38,,1 Guild ismi en fazla 15 karakterden olusabilir.
	dialog d_gs_rename
elseif (strmatch('<argtxt[0]>',''))
	src.sysmessage @38,,1 Bir isim girmediniz?
	dialog d_gs_rename
else
	name <argtxt[0]>
	src.sysmessage @38,,1 Yeni Guild Ismi : <name>
        db.execute "update guildler set guild_ismi='<argtxt[0]>' where stone_uid='<uid>'"
	sdialog d_Guild_Main,0
endif

// Guild master functions.
[MENU MENU_GUILD_MASTERFUNC]
<Name>, Guild <MasterGenderTitle> functions
ON=0 Set the guild's name.
dialog d_gs_rename
ON=0 Set the guild's abbreviation.
dialog d_gs_abbrev
ON=0 Change the alignment of guild.
if (<timer> > 0) && (<morey>)
	if (<eval (<timer> / 3600)> < 1)
		src.sysmessage @38,,1 Taraf degistirme surecindeyken bu menuyu kullanamazsiniz. (<eval (<timer> / 60)> dakika)
	else
		src.sysmessage @38,,1 Taraf degistirme surecindeyken bu menuyu kullanamazsiniz. (<eval (<timer> / 3600)> saat)
	endif
	menu menu_guild_masterfunc
	return 1
endif
if (<more1> == 0)
	var.gs_align Tarafsiz
elseif (<more1> == 1)
	var.gs_align Order
elseif (<more1> == 2)
	var.gs_align Chaos
endif
dialog d_gs_alignment
ON=0 Set the guild's charter.
SETCHARTER
ON=0 Grant title to a member.
if (strmatch('<abbrev>',''))
	src.sysmessage @38,,1 Bir uyeye unvan verebilmek icin once guild kisaltmasi belirlemelisiniz.
	menu menu_guild_masterfunc
else
	morex 2
	target Unvan vermek istediginiz guild uyesini seciniz.
endif
ON=0 Dismiss a member.
DISMISSMEMBER
ON=0 Declare war.
DECLAREWAR
ON=0 Declare peace.
DECLAREPEACE
ON=0 Accept a candidate seeking membership.
ACCEPTCANDIDATE
ON=0 Refuse a candidate seeking membership.
REFUSECANDIDATE
ON=0 Deed
REMOVE
SRC.NEWITEM i_deedguild
SRC.ACT.BOUNCE
SERV.ALLCLIENTS SYSMESSAGE @1153 <Name> isimli guild kapandi.                              
ON=0 Return to main menu
RETURNMAINMENU

// Non-member view.
[MENU MENU_GUILD_NON]
<Name> (<Master>)
ON=0 Guild's roster.
VIEWROSTER
ON=0 List of candidates.
VIEWCANDIDATES
ON=0 Guild's charter.
VIEWCHARTER
ON=0 Enemies of <Name>.
VIEWENEMYS
ON=0 Threats to <Name>.
VIEWTHREATS

[MENU MENU_GUILD_ALIGN]
Change the alignment of guild.
ON=0 British: Order
CHANGEALIGN 1
ON=0 Blackthorn: Chaos
CHANGEALIGN 2
ON=0 Neutral
CHANGEALIGN 0
ON=0 Faction: Shamino
MORE1 0
MORE2 04009163d
ON=0 Faction: Jakama
MORE1 0
MORE2 04009149f
ON=0 Faction: Daxantec
MORE1 0
MORE2 040091450
ON=0 Faction: Arcanum
MORE1 0
MORE2 04009139c




[dialog d_Guild_WarfareStatus]
5,25
If (<type>!=t_stone_guild)
  return 1
elif (<memberfromuid.<src.uid>.uid>!=<src.uid>)&&(!<src.isgm>)
  return 1
endif
  local.charpriv=<QVAL <src.isgm> ? <def0.STONEPRIV_MASTER>:<memberfromuid.<src.uid>.priv>>
If (<local.charpriv>!=<def0.STONEPRIV_MEMBER>)&&(<local.charpriv>!=<def0.STONEPRIV_MASTER>)
  return 1
endif

local.guildcount=<guild.count>

// The gump
page 0
resizepic 0 0 5120 260 450
resizepic 10 10 3000 242 430
dhtmlgump 20 10 220 25 1 0 <def0.center>Savas Raporlari<def0.centere>
dhtmlgump 38 400 200 25 1 0 Ana sayfaya geri dön.
button 20 400 2714 2715 1 0 0 // Quit
  
page 1
button 160 375 2714 2715 0 2 0 // Next Page
dhtmlgump 178 373 50 25 1 0 Sonraki
dhtmlgump 20 45 400 20 0 0 Savasta oldugumuz loncalar:
// At War List
If (<guild.count <def0.STONEPRIV_ENEMY>>==0)  
  dhtmlgump 20 65 400 20 0 0 - Savastigimiz lonca yok!
else
  local.gicurrent=0
  local.gpcurrent=0
  WHILE (<local.gicurrent> < <local.guildcount>)
    local.gcuidcurrent = <guild.<local.gicurrent>.uid>
    If (<guildfromuid.<local.gcuidcurrent>.isenemy>)
      dhtmlgump 20 <EVAL (65 + (<local.gpcurrent> * 20))> 300 20 0 0 - <uid.<local.gcuidcurrent>.name> <qval (strlen(<uid.<local.gcuidcurrent>.abbrev>))&&(<DEF0.GUILDCONFIG_GUILDLIST_SHOWABBREV>) ? [<uid.<local.gcuidcurrent>.abbrev>]:>
      local.gpcurrent += 1
    endif
    local.gicurrent += 1
  ENDWHILE
endif
  
page 2
button 20 375 2714 2715 0 1 0 // Önceki
dhtmlgump 38 373 50 25 1 0 Önceki Sayfa
button 160 375 2714 2715 0 3 0 // Next Page
dhtmlgump 178 373 50 25 1 0 Sonraki Sayfa
dhtmlgump 20 45 400 20 0 0 Savas ilan ettigimiz loncalar:
// We Declare List
If (<guild.count <def0.STONEPRIV_WEDECLARED>>==0)  
  dhtmlgump 20 65 400 20 0 0 - Savas ilan ettigimiz lonca yok.
else
  local.gicurrent=0
  local.gpcurrent=0
  WHILE (<local.gicurrent> < <local.guildcount>)
    local.gcuidcurrent = <guild.<local.gicurrent>.uid>
    If (<guildfromuid.<local.gcuidcurrent>.wewar> && !<guildfromuid.<local.gcuidcurrent>.theywar>)
      dhtmlgump 20 <EVAL (65 + (<local.gpcurrent> * 20))> 300 20 0 0 - <uid.<local.gcuidcurrent>.name> <qval (strlen(<uid.<local.gcuidcurrent>.abbrev>))&&(<DEF0.GUILDCONFIG_GUILDLIST_SHOWABBREV>) ? [<uid.<local.gcuidcurrent>.abbrev>]:>
      local.gpcurrent += 1
    endif
    local.gicurrent += 1
  ENDWHILE
endif
  
page 3
button 20 375 2714 2715 0 2 0 // Previous Page
dhtmlgump 38 373 50 25 1 0 Önceki Sayfa
dhtmlgump 20 45 400 20 0 0 Bize savas ilan eden loncalar:
// They Declared List
If (<guild.count <def0.STONEPRIV_THEYDECLARED>>==0)  
    dhtmlgump 20 65 400 20 0 0 - Savas ilan eden lonca yok!
else
  local.gicurrent=0
  local.gpcurrent=0
  WHILE (<local.gicurrent> < <local.guildcount>)
    local.gcuidcurrent = <guild.<local.gicurrent>.uid>
    If (<guildfromuid.<local.gcuidcurrent>.theywar> && !<guildfromuid.<local.gcuidcurrent>.wewar>)
      dhtmlgump 20 <EVAL (65 + (<local.gpcurrent> * 20))> 300 20 0 0 - <uid.<local.gcuidcurrent>.name> <qval (strlen(<uid.<local.gcuidcurrent>.abbrev>))&&(<DEF0.GUILDCONFIG_GUILDLIST_SHOWABBREV>) ? [<uid.<local.gcuidcurrent>.abbrev>]:>
      local.gpcurrent += 1
    endif
    local.gicurrent += 1
  ENDWHILE
endif


  
[dialog d_Guild_WarfareStatus Button]
ON=0
  sdialog d_Guild_Main,0
  return 1
  
[EOF]



[dialog d_Guild_Master_Warfare_DeclareWar]
5,25
local.tosearch=<args>
If (<type>!=t_stone_guild)
  return 1
elif (<masteruid>!=<src.uid>)&&(!<src.isgm>)
  return 1
endif

src.ctag.dialog_guildmasterwarfaredclarewar_guildlist=<f_guildsys_searchguildname <uid>,<local.tosearch>>
If (!<isempty <src.ctag.dialog_guildmasterwarfaredclarewar_guildlist>>)
  CALL f_guildsys_listsplit <src.ctag.dialog_guildmasterwarfaredclarewar_guildlist>
else
  local.guildlist_count=0
endif

If (!<local.guildlist_count>)
  src.sysmessage Hicbir sonuc bulunamadi "<local.tosearch>".
  return 1
endif

//Construct the dialog
page 0
resizepic 0 0 5120 260 450
resizepic 10 10 3000 242 430
dhtmlgump 20 10 400 25 0 0 Savas açmak istediginiz loncayi seçiniz.
dhtmlgump 38 370 200 25 1 0 Send the challenge!
button 20 370 4005 4007 1 0 1
//dhtmlgump 335 400 100 35 0 0 CANCEL
 // button 300 400 4005 4007 1 0 0

For num 0 <eval <local.guildlist_count>-1>
  If (! (<local.num> % 11))
    If (<local.num>)
      button 300 370 4005 4007 0 <eval ((<local.num> / 11) + 1)> 0
      dhtmlgump 335 370 300 35 0 0 Next page
    endif

    page <eval ((<local.num> / 11) + 1)>
    If (<local.num>)
      button 300 370 4014 4016 0 <eval (<local.num> / 11)> 0
      dhtmlgump 335 370 300 35 0 0 Previous page
    endif
  endif

  radio 20 <eval (35 + ((<local.num> % 11) * 30))> 208 209 0 <eval (<local.num> + 10)>

  local.currentguilduid=<local.guildlist_data<dLOCAL.num>>

  If (<local.currentguilduid> <= 0)
    dhtmlgump 55 <eval (35 + ((<local.num> % 11) * 30))> 300 35 0 0 (unnamed)
  else
    dhtmlgump 55 <eval (35 + ((<local.num> % 11) * 30))> 300 35 0 0 <uid.<local.currentguilduid>.Name> <qval (strlen(<uid.<local.currentguilduid>.abbrev>))&&(<DEF0.GUILDCONFIG_GUILDLIST_SHOWABBREV>) ? [<uid.<local.currentguilduid>.abbrev>]:>
  endif

endfor



[dialog d_Guild_Master_Warfare_DeclareWar Button]
ON=0 1
  If (!<src.ctag.dialog_guildmasterwarfaredclarewar_guildlist>)
    serv.log Declare war search function improperly returned info!!  Ctag not set!
    return 1
  endif

  local.war_guildlist=<src.ctag.dialog_guildmasterwarfaredclarewar_guildlist>
  src.ctag.dialog_guildmasterwarfaredclarewar_guildlist=
  
  If (<masteruid>!=<src.uid>)&&(!<src.isgm>)
    return 1
  endif
  
  If (<argn1>==0)
    sdialog d_Guild_Master_Warfare,0
  elif (<argn1>==1)
    CALL f_guildsys_listsplit <local.war_guildlist>
  
    If (!<local.guildlist_count>)
      return 1
    endif
    
    local.num=<ARGCHKID>-10
    If ((<local.num> < 0) || (<local.num> > <local.guildlist_count>))
      return 1
    endif

    local.selectedguild=<local.guildlist_data<dlocal.num>>

    If (!<local.selectedguild>)
      return 1
    endif
    
    If (<uid.<local.selectedguild>.type>!=T_STONE_GUILD)
      return 1
    endif


    If ( <guildfromuid.<local.selectedguild>.isenemy> )
        src.sysmessage @038A You're already at war with <uid.<local.selectedguild>.name>.
    elseif ( <guildfromuid.<local.selectedguild>.theywar> && !<guildfromuid.<local.selectedguild>.wewar> )
      If ( <f_guildsys_candeclarewarwith <uid>,<local.selectedguild>> )
        f_guildsys_declarewar <uid>,<local.selectedguild>,1
      endif
    elseif ( <guildfromuid.<local.selectedguild>.wewar> && !<guildfromuid.<local.selectedguild>.theywar> )
        src.sysmessage @038A A declaration of war is already made to <uid.<local.selectedguild>.name>.
    elseif ( !<guildfromuid.<local.selectedguild>.wewar> && !<guildfromuid.<local.selectedguild>.theywar> )
      If ( <f_guildsys_candeclarewarwith <uid>,<local.selectedguild>> )
        f_guildsys_declarewar <uid>,<local.selectedguild>,2
      endif
    endif

    sdialog d_Guild_Master_Warfare,0
  endif
  return 1

[EOF]



[dialog d_Guild_Master_Warfare]
5,25
If (<type>!=t_stone_guild)
  return 1
elif (<masteruid>!=<src.uid>)&&(!<src.isgm>)
  return 1
endif

page 0
resizepic 0 0 5120 260 450
resizepic 10 10 3000 242 430
dhtmlgump 20 10 220 25 0 0 <def0.center>Savas Menüsü<def0.centere>
dhtmlgump 38 40 200 25 1 0 Savas açabileceginiz loncalari ara.
  button 20 40 2714 2715 1 0 1 // Search
local.gcount=0
If (<guild.count <def0.STONEPRIV_ENEMY>>)
  button 20 <eval (160 + (<local.gcount> * 30))> 2714 2715 1 0 2
  dhtmlgump 38 <eval (160 + (<local.gcount> * 30))> 200 25 1 0 Savas aç!
  local.gcount += 1
else
  gumppic 20 <eval (160 + (<local.gcount> * 30))> 2715
  dhtmlgump 38 <eval (160 + (<local.gcount> * 30))> 200 25 1 0 Savasilan lonca yok.
  local.gcount += 1
endif
  
If (<guild.count <def0.STONEPRIV_THEYDECLARED>>)
  button 20 <eval (160 + (<local.gcount> * 30))> 2714 2715 1 0 3
  dhtmlgump 38 <eval (160 + (<local.gcount> * 30))> 200 25 1 0 Savas tekliflerini kabul et.
  local.gcount += 1
  button 20 <eval (160 + (<local.gcount> * 30))> 2714 2715 1 0 4
  dhtmlgump 38 <eval (160 + (<local.gcount> * 30))> 200 30 1 0 Savas tekliflerini red et.
  local.gcount += 1
else
  gumppic 20 <eval (160 + (<local.gcount> * 30))> 2715
  dhtmlgump 38 <eval (160 + (<local.gcount> * 30))> 200 25 1 0 Hiç savas teklifi yok.
  local.gcount += 1
endif

If (<guild.count <def0.STONEPRIV_WEDECLARED>>)
  button 20 <eval (160 + (<local.gcount> * 30))> 2714 2715 1 0 5
  dhtmlgump 38 <eval (160 + (<local.gcount> * 30))> 200 25 1 0 Savas açilan loncalari gör.
  local.gcount += 1
else
  gumppic 20 <eval (160 + (<local.gcount> * 30))> 2715
  dhtmlgump 38 <eval (160 + (<local.gcount> * 30))> 200 25 1 0 Savas açilan lonca yok.
  local.gcount += 1
endif

button 20 400 2714 2715 1 0 0
dhtmlgump 38 400 200 25 1 0 Ana menüye geri dön.


[dialog d_Guild_Master_Warfare Button]
ON=0 5  
  If ((<masteruid>!=<src.uid>)&&(!<src.isgm>))
    return 1
  endif
  
  If (<argn1>==0)
    If (<masteruid>==<src.uid>)||(<src.isgm>)
      sdialog d_Guild_Master,0
    else
      sdialog d_Guild_Main,0
    endif
  elif (<argn1>==1)
    src.ctag.guild_prompthandler_guilduid=<uid>
    local.guildsearch_promptmessage = Declare war through search
    if ( <def0.GUILDCONFIG_ALLOW_ALLGUILD_SEARCH> )
        local.guildsearch_promptmessage = <local.guildsearch_promptmessage> (Type 'AllGuilds' to get a full guild list)
    endif
    local.guildsearch_promptmessage = <local.guildsearch_promptmessage> (Min <dDEF0.GUILDCONFIG_NSEARCH_MINLENGTH> chars) - Enter Guild Name:
    try src.promptconsole f_prompthandler_guilddclarewar,<local.guildsearch_promptmessage>
  elif (<argn1>==2)
    sdialog d_Guild_GuildList,0,<def0.GUILDDLG_LISTTYPE_G_DECLAREPEACE>
  elif (<argn1>==3)
    sdialog d_Guild_GuildList,0,<def0.GUILDDLG_LISTTYPE_G_ACCEPTWAR>
  elif (<argn1>==4)
    sdialog d_Guild_GuildList,0,<def0.GUILDDLG_LISTTYPE_G_REJECTWAR>
  elif (<argn1>==5)
    sdialog d_Guild_GuildList,0,<def0.GUILDDLG_LISTTYPE_G_RESCIND>
  endif

  return 1

[EOF]


  




[TYPEDEF T_STONE_GUILD]
ON=@Click
if (<more1> == 1)
	message @077a,1,1 [Order]
	tag.taraftar Order
elseif (<more1> == 2)
	message @077a,1,1 [Chaos]
	tag.taraftar Chaos
endif


if !(strmatch('<abbrev>',''))
	message @38,,1 <eval <tag.guildpoints>> Puan
	message @077a,1,1 [a guild stone]
	message @1153,1,1" <name> [<abbrev>]
	tag.taraftar Tarafsiz
else
	message @38,,1 <eval <tag.guildpoints>> Puan
	message @077a,1,1 [a guild stone]
	message @1153,1,1 <name>
	tag.taraftar Tarafsiz
endif


return 1

ON=@Dclick
if (<tag0.guildyok> == 1)
db.execute "create table if not exists guildler (id int unsigned not null auto_increment primary key,tarih datetime not null,stone_uid text,master_uid text,master_ismi text,guild_ismi text,guild_kisaltma text,taraf text,uye_sayisi text);"
db.execute "insert into guildler (id, tarih, stone_uid, master_uid, master_ismi, guild_ismi, guild_kisaltma, taraf, uye_sayisi) values (NULL, NOW(), '<uid>', '<src.uid>', '<src.name>', '<name>', '<tag0.ks>', '<tag0.al>', '0');"
tag0.guildyok =
endif
if (<src.memoryfindtype.memory_guild>)
if !(<tag0.masters>)
tag0.masters <src.uid>
endif
endif

  If (<distance> > 2)
    src.sysmessage @38,,1 Loncaya uzaksiniz.
  elif (<member.count>==0)&&(!<masteruid>)	//(<masteruid>!=<src.uid>)
db.execute "create table if not exists guildler (id int unsigned not null auto_increment primary key,tarih datetime not null,stone_uid text,master_uid text,master_ismi text,guild_ismi text,guild_kisaltma text,taraf text,uye_sayisi text);"
db.execute "insert into guildler (id, tarih, stone_uid, master_uid, master_ismi, guild_ismi, guild_kisaltma, taraf, uye_sayisi) values (NULL, NOW(), '<uid>', '<src.uid>', '<src.name>', 'None', 'None', 'None', '0');"
    f_guildsys_addchartoguild <uid>,<src.uid>,1	//auto makes the master
    tag0.owner2 <src.uid>
  elif (!<masteruid>)
    f_guildsys_addchartoguild <uid>,<member.0.uid>,1	//first candidate since any member would auto be a master
  elif (<memberfromuid.<src.uid>.uid>!=<src.uid>)&&(!<src.isgm>)// Not a member
    src.sysmessage @38,,1 Lonca sahipleriyle konusup loncaya katilabilirsiniz.
  elif (<memberfromuid.<src.uid>.priv> == <def0.STONEPRIV_ACCEPTED>)
    f_guildsys_addchartoguild <uid>,<src.uid>,1
  elif (<memberfromuid.<src.uid>.priv>==<def0.STONEPRIV_CANDIDATE>)&&(!<src.isgm>)
    src.sysmessage @38,,1 You are awaiting acceptance by the guildmaster.
  elif (<memberfromuid.<src.uid>.priv>==<def0.STONEPRIV_MEMBER>)||(<masteruid>==<src.uid>)||(<src.isgm>)
 	src.ctag.guilduid <uid>  
	sdialog d_Guild_Main,0
  endif
return 1

[TYPEDEF T_GUILD_DOOR]
//Guild Members Only Door
//Set the door to the Triger Type #, then Link the DOOR to the GUILDSTONE
//DO NOT LINK THE GUILDSTONE TO THE DOOR - YOUR GUILDSTONE WILL DISAPPEAR IN THE NEXT SAVE.
ON=@DCLICK
  If (<SRC.MEMORYFINDTYPE.0400.LINK> == <LINK>)
    MOREP=<P>
    SRC.MESSAGE You've been allowed to pass through the door magically.
    SRC.GO <MOREP>
  else
    SRC.MESSAGE The door seems magically locked.
  endif
return 1


[EOF]


[FUNCTION f_prompthandler_guildname]
if ( !<ctag0.guild_prompthandler_guilduid> || <isempty <args>> )
  return 1
endif

local.guildname=<args>
local.guildLENGTH=<eval StrLen(<local.guildname>)>
local.guild=<ctag0.guild_prompthandler_guilduid>
ctag.guild_prompthandler_guilduid=

if ( <local.guild>==0)
  return 1
endif
if ( <uid.<local.guild>.type> != T_STONE_GUILD )
  return 1
endif

local.oldobj=<obj.uid>
obj=<local.guild>
If (<obj.masteruid>!=<uid>)&&(!<isgm>)
  obj=<local.oldobj>
  return 1
endif

If ((<local.guildLENGTH> < <def0.GUILDCONFIG_NAME_MINLENGTH>) || (<local.guildLENGTH> > <def0.GUILDCONFIG_NAME_MAXLENGTH>))
elif ( <obj.tag0.changename_time> >= <serv.time> )
elif ( strregex([^A-Za-z0-9\s]+,<local.guildname>) == 1)
elif ( <f_guildsys_isnameused <local.guild>,<local.guildname>> )
else
  // Change the name
  f_guildsys_sendsmsg <obj.uid>,The guild's name has changed to <local.guildname>
  obj.name=<local.guildname>
  obj.tag.changename_time=<serv.time> + <def0.GUILDCONFIG_MINTIME_NAME>
  obj.update
  update
endif

trysrc <uid> obj.sdialog d_Guild_Master,0,
obj=<local.oldobj>
return 1


// ------------------------------------------------------
[FUNCTION f_prompthandler_guildabbrev]
if ( !<ctag0.guild_prompthandler_guilduid> || <isempty <args>> )
  return 1
endif

local.guildabbrev=<args>
local.guildLENGTH=<eval StrLen(<local.guildabbrev>)>
local.guild=<ctag0.guild_prompthandler_guilduid>
ctag.guild_prompthandler_guilduid =

if ( <local.guild> == 0 )
  return 1
endif
if ( <uid.<local.guild>.type> != T_STONE_GUILD )
  return 1
endif

local.oldobj=<obj.uid>
obj=<local.guild>
if ( (<obj.masteruid> != <uid>) && (!<isgm>) )
  obj=<local.oldobj>
  return 1
endif

if ((<local.guildLENGTH> < <def0.GUILDCONFIG_ABBREV_MINLENGTH>) || (<local.guildLENGTH> > <def0.GUILDCONFIG_ABBREV_MAXLENGTH>))
elif ( <obj.tag0.changeabbrev_time> >= <serv.time> )
elif ( strregex([^A-Za-z0-9]+,<local.guildabbrev>) == 1 )
elif ( <f_guildsys_isabbrevused <local.guild>,<local.guildabbrev>> )
else
  // Change the abbrev
db.execute "update guildler set guild_kisaltma='<args>' where stone_uid='<uid>'"
  f_guildsys_sendsmsg <obj.uid>,The guild abbreviation has changed to <local.guildabbrev>
  obj.abbrev=<local.guildabbrev>
  obj.tag.changeabbrev_time=<serv.time> + <def0.GUILDCONFIG_MINTIME_ABBREV>
  obj.update
  update
endif

trysrc <uid> obj.sdialog d_Guild_Master,0
obj=<local.oldobj>
return 1


// ------------------------------------------------------
[FUNCTION f_prompthandler_guildtitle]
if ( !<ctag0.guild_prompthandler_guilduid> || !<ctag0.guild_prompthandler_thisuid> || <isempty <args>> )
  return 1
endif

local.tag.gs_title=<args>
local.titlelength=<eval StrLen(<local.tag.gs_title>)>
local.guild=<ctag0.guild_prompthandler_guilduid>
local.thisuid=<ctag0.guild_prompthandler_thisuid>
ctag.guild_prompthandler_guilduid=
ctag.guild_prompthandler_thisuid=

If (<local.guild>==0)
  return 1
elif (<uid.<local.guild>.type> != T_STONE_GUILD)
  return 1
endif

local.oldobj=<obj.uid>
obj=<local.guild>
if (<obj.masteruid>!=<uid>)&&(!<isgm>)
  obj=<local.oldobj>
  return 1
endif

If ( <local.titlelength> > <def0.GUILDCONFIG_TITLE_MAXLENGTH> )
elif ( <obj.memberfromuid.<local.thisuid>.uid> != <local.thisuid> )
elif ( strregex([^A-Za-z0-9\s]+,<local.title>) == 1 )
else
  // Change the title
  sysmessage @60,,1 <uid.<local.thisuid>.name> yeni ünvani : <local.tag.gs_title>
  try obj.memberfromuid.<local.thisuid>.tag.gs_title=<local.tag.gs_title>
endif

trysrc <uid> obj.sdialog d_Guild_Master,0
obj=<local.oldobj>
return 1


// ------------------------------------------------------
[FUNCTION f_prompthandler_guilddclarewar]
If ( !<ctag0.guild_prompthandler_guilduid> || <isempty <args>> )
  return 1
endif

local.guildtext=<args>
local.guildLENGTH=<eval StrLen(<local.guildtext>)>
local.guild=<ctag0.guild_prompthandler_guilduid>
ctag.guild_prompthandler_guilduid=

If (<local.guild>== 0)
  return 1
elif (<uid.<local.guild>.type>!=T_STONE_GUILD )
  return 1
endif

local.oldobj=<obj.uid>
obj=<local.guild>
if ( (<obj.masteruid> != <uid>) && (!<isgm>) )
  obj=<local.oldobj>
  return 1
endif

If ((<local.guildLENGTH> < <def0.GUILDCONFIG_NSEARCH_MINLENGTH>) || (<local.guildLENGTH> > <def0.GUILDCONFIG_NAME_MAXLENGTH>))
elif ( strregex([^A-Za-z0-9\s]+,<local.guildtext>) == 1 )
else
  // Go for dialog
  trysrc <uid> obj.sdialog d_Guild_Master_Warfare_DeclareWar,0,<local.guildtext>
  obj=<local.oldobj>
  return 1
endif

  trysrc <uid> obj.sdialog d_Guild_Master_Warfare,0
  obj=<local.oldobj>
return 1


[EOF]


[dialog d_Guild_Master]
5,25
nomove
If (<type>!=t_stone_guild)
  return 1
elif (<masteruid>!=<src.uid>)&&(!<src.isgm>)
  return 1
endif

  
page 0
resizepic 0 0 5120 260 450
resizepic 10 10 3000 242 430
dhtmlgump 20 20 220 25 1 0 <def0.center>Guildmaster Yönetim Paneli<def0.centere>
If (<tag0.changename_time> <= <serv.time>)	// Set Guild Name
  button 20 62 2714 2715 1 0 1 
  dhtmlgump 38 60 200 25 1 0 Loncanin adini ayarla.
else
  gumppic 20 60 4020
  dhtmlgump 38 60 200 25 1 0 Loncanin adini Ayarla Degisiyor: <f_guildsys_determine_timeleft <tag0.changename_time>>
endif
If (<tag0.changeabbrev_time> <= <serv.time>)	// Set Guild Abbrev
  button 20 92 2714 2715 1 0 2 
  dhtmlgump 38 90 200 25 1 0 Lonca kisaltmasini ayarla.
else
  gumppic 20 90 4020
  dhtmlgump 538 90 200 25 1 0 Lonca kisaltmasini ayarla. Degisiyor: <f_guildsys_determine_timeleft <tag0.changeabbrev_time>>
endif
If (<f_guildsys_iswarring>)
  gumppic 20 120 4020
  dhtmlgump 38 120 200 25 1 0 Taraf seç. N/A DURING WARs // Guild Type
elif (<tag0.changealign_time> <= <serv.time>)
  button 20 122 2714 2715 1 0 3
  dhtmlgump 38 120 200 25 1 0 Taraf seç: Geçerli: <def0.guildconfig_align_<align>> // Guild Type
else
  gumppic 20 120 2715
  dhtmlgump 38 120 200 25 1 0 Taraf seç. Degisiyor: <f_guildsys_determine_timeleft <tag0.changealign_time>> // Guild Type
endif
dhtmlgump 38 150 200 25 1 0 Lonca tanitimini ayarla.
  button 20 152 2714 2715 1 0 4	// Set Charter
If (<member.count> > 1)	// Dismiss a member
  dhtmlgump 38 180 200 25 1 0 Üye at.
  button 20 182 2714 2715 1 0 5
else
  dhtmlgump 38 180 200 25 1 0 Üye at. (Üye yok)
  gumppic 20 180 2714
endif
dhtmlgump 38 210 200 25 1 0 Savas Menüsüne Git
  button 20 212 2714 2715 1 0 6	// War Menu
//If (<member.count <def0.STONEPRIV_CANDIDATE>> > 0) // Candidates
//  button 20 240 2714 2715 1 0 7
//  dhtmlgump 38 240 200 25 1 0 Administer the list of candidates
///else
///  gumppic 20 240 2714
///  dhtmlgump 38 240 200 25 1 0 There are currently no candidates for membership.
//endif
dhtmlgump 38 240 200 25 1 0 Master ünvani.
  button 20 242 2714 2715 1 0 8 // Master Title
If (<member.count> > 1) // Grant Titles
  dhtmlgump 38 270 200 25 1 0 Ünvan ver.
  button 20 272 2714 2715 1 0 9
else
  dhtmlgump 38 270 200 25 1 0  Ünvan ver. (Üye yok.)
  gumppic 20 270 2714
endif
If (<def0.GUILDCONFIG_ALLOWTRANSFER>) // Transfer the stone
  button 20 302 2714 2715 1 0 12
  dhtmlgump 38 300 200 25 1 0 Loncayi transfer et
else
  //gumppic 300 330 4020
 // dhtmlgump 335 330 240 25 1 0 Transfer ownership. NOT AVAILABLE.
endif

dhtmlgump 38 400 200 25 1 0 Ana menüye dön.
  button 20 402 2714 2715 1 0 11 // Return
//dhtmlgump 335 360 100 30 0 0 Çikis
  //button 300 360 2714 2715 1 0 0 // Exit
  

[dialog d_Guild_Master Button]
ON=0 12
  If (<argn1>==0) // Exit Gump
    //sdialog d_Guild_Main,0
    return 1
  elif (<masteruid>!=<src.uid>)&&(!<src.isgm>)
    src.sdialog d_Guild_Main,0
    return 1
  endif

  If (<argn1>==1)	// Guild Name    
    If (<tag0.changename_time> <= <serv.time>)
      src.ctag.guild_prompthandler_guilduid=<uid>
      dialog d_gs_rename
    endif
  elif (<argn1>==2)	// Guild Abbrev
    If (<tag0.changeabbrev_time> <= <serv.time>)
      src.ctag.guild_prompthandler_guilduid=<uid>
      dialog d_gs_abbrev
    endif
  elif (<argn1>==3)	// Guild  Type
    If ((!<f_guildsys_iswarring>) || (<tag0.changealign_time> <= <serv.time>))
 
if (<timer> > 0) && (<morey>)
	if (<eval (<timer> / 3600)> < 1)
		src.smsx Taraf degistirme surecindeyken bu menuyu kullanamazsiniz. (<eval (<timer> / 60)> dakika)
	else
		src.smsx Taraf degistirme surecindeyken bu menuyu kullanamazsiniz. (<eval (<timer> / 3600)> saat)
	endif
else
	sdialog d_Guild_ChangeAlign,0
	return 1
endif 

 endif
  elif (<argn1>==4)	// Charter
    sdialog d_Guild_SetCharter,0,
  elif (<argn1>==5)	// Dismiss member
    sdialog d_Guild_CharList,0,<def0.GUILDDLG_LISTTYPE_DISMISSMEMBER>
  elif (<argn1>==6)	// War Menu
    sdialog d_Guild_Master_Warfare,0
  elif (<argn1>==7)	// Candidate Menu
    sdialog d_Guild_CharList,0,<def0.GUILDDLG_LISTTYPE_ADMINCANDIDATES>
  elif (<argn1>==8)	// Set Guildmaster title
    src.ctag.guild_prompthandler_guilduid=<uid>
    src.ctag.guild_prompthandler_thisuid=<src.uid>
    src.dialog d_gs_title
  elif (<argn1>==9)	// Grant title
    sdialog d_Guild_CharList,0,<def0.GUILDDLG_LISTTYPE_GRANTTITLE>
  elif (<argn1>==10)	// Move stone
    If (<def0.GUILDCONFIG_ALLOWTELEPORT>)
      if ( <tag0.guildsys_moveruid> )
        ref1 = <tag0.guildsys_moveruid>
        ref1.link = 0
        ref1.remove
      endif
      
      serv.newitem i_guild_mover
      new.link = <uid>
      new.attr = attr_newbie
      tag.guildsys_moveruid = <new.uid>
      new.cont <src.findlayer(layer_pack).uid>
      src.sysmessage @038A Use the teleporting object placed in your backpack to move this guildstone.
      sdialog d_Guild_Master,0
    endif
  elif (<argn1>==11)
    sdialog d_Guild_Main,0
  elif (<argn1>==12)
    If (<def0.GUILDCONFIG_ALLOWTRANSFER>)
      transferguild <uid>
    endif
  endif
  return 1
  
[EOF]
  



	
[dialog d_Guild_Main]
5,25
if !(<type> == t_stone_guild)
  return 1
elif (<memberfromuid.<src.uid>.uid>!=<src.uid>)&&(!<src.isgm>)
  return 1
endif
  local.charpriv=<QVAL <src.isgm> ? <def0.STONEPRIV_MASTER>:<memberfromuid.<src.uid>.priv>>
If (<local.charpriv>!=<def0.STONEPRIV_MEMBER>)&&(<local.charpriv>!=<def0.STONEPRIV_MASTER>)
  return 1
endif

//----The Gump----
page 0
resizepic 0 0 5120 260 450
resizepic 10 10 3000 242 430

dhtmlgump 20 20 220 25 1 0 Lonca Adi: <name>
  If (<masteruid>)
    local.mastername=<mastergendertitle>: <qval (<eval strlen(<mastertitle>)>) ? <mastertitle> :><master>
    dhtmlgump 20 50 220 25 1 0 <local.mastername>
  endif

//dhtmlgump 38 80 200 25 1 0 Baskan: 
//local.loyalto=<memberfromuid.<src.uid>.loyalto>
//dhtmlgump 85 84 150 25 0 0 <qval (!<local.loyalto>)||(<local.loyalto>==<src.uid>) ? Kendin:<uid.<local.loyalto>.name>>
  //button 20 80 2714 2715 1 0 1 

//dhtmlgump 38 150 200 25 1 0 Geçerli Lonca Kisaltmasi: <abbrev>
//dhtmlgump 38 180 200 25 1 0 Durum: <AbbreviationToggle>
//button 20 150 2714 2715 1 0 2

dhtmlgump 38 220 200 25 1 0 Üyeleri Göster
  button 20 222 2714 2715 1 0 3

If (<src.isgm>)||(<masteruid>==<src.uid>)
dhtmlgump 38 250 200 25 1 0 Üye Al
  button 20 252 2714 2715 1 0 4
endif

if (<more1> == 1)
dhtmlgump 38 370 200 25 1 0 <var.font2>>Order Kalkan Al
button 20 372 2714 2715 1 0 11
elseif (<more1> == 2)
dhtmlgump 38 370 200 25 1 0 <var.font2>>Chaos Kalkan Al
button 20 372 2714 2715 1 0 12
elseif (<more1> == 0)
dhtmlgump 38 370 200 25 1 0 <var.font2>>Tarafsiz.
button 20 372 2715 2715 1 0 13
endif

dhtmlgump 38 280 200 25 1 0 Lonca Tanitimi
  button 20 282 2714 2715 1 0 6
dhtmlgump 38 310 200 25 1 0 Loncadan Ayril
  button 20 312 2714 2715 1 0 7
dhtmlgump 38 340 200 25 1 0 Loncanin Savas Raporlari
  button 20 342 2714 2715 1 0 8
 

If (<src.isgm>)||(<masteruid>==<src.uid>)
  button 20 402 2714 2715 1 0 9
  dhtmlgump 38 400 200 25 1 0 Lonca Sahibi Bölümü
else
  //button 20 400 2714 2715 0 0 0
  //dhtmlgump 38 400 200 25 1 0 Reserved for guildmaster.
endif

//dhtmlgump 55 360 470 30 0 0 Çikis
//  button 20 362 2714 2715 1 0 0


[dialog d_Guild_Main Button]
ON=0 9
If (<argn1>==0) // Exit Gump
  return 1
endif

If (<argn1>==1 )	// Declare LoyalTo Dialog
  sdialog d_Guild_CharList,0,<def0.GUILDDLG_LISTTYPE_LOYALITY>
elif (<argn1>==2)	// Abbreviation Switch
if (strmatch('<AbbreviationToggle>','On'))

  toggleabbreviation <src.uid>
else
src.smg2 Iptal edilmistir.
return 1
endif
  sdialog d_Guild_Main,0,<uid>
elif (<argn1>==3)	// Roster List
  sdialog d_Guild_CharList,0,<def0.GUILDDLG_LISTTYPE_ROSTER>
elif (<argn1>==4)	// Recruit New Member
//src.targetf f_guildsys_recruitguy <uid>
  //src.sysmessage Select a character to recruit
morex 1
target @255 Loncaniza dahil etmek istediginiz kisiyi seciniz.
elif (<argn1>==5)	// Candidates list
  sdialog  d_Guild_CharList,0,<def0.GUILDDLG_LISTTYPE_CANDIDATES>
elif (<argn1>==6)	// Guild charter
  sdialog d_Guild_ViewCharter,0,<uid>
elif (<argn1>==7)// Resign
if (<src.memoryfindtype.memory_guild.link.dtag.owner2> == <src.uid>)
src.sysmessage @38,,1 sen mastersin ama?
endif
  resign
elif (<argn1>==8)	// Enemies
  sdialog d_Guild_WarfareStatus,0,<uid>
elif (<argn1>==9)	// Guildmaster Menu
  If (<src.isgm>)||(<masteruid>==<src.uid>)
    sdialog d_Guild_Master,0
  endif
endif
return 1
	

ON=11
if !(<eval <src.tag.kalkanaldik>> == 1)
src.newitem i_shield_order
src.act.bounce
src.act.attr 4
src.tag.kalkanaldik 1
return 1
else
src.sysmessage @38,,1 Kalkani sadece 1 defa alabilirsiniz.
return 1
endif

ON=12
if !(<eval <src.tag.kalkanaldik2>> == 1)
src.newitem i_shield_chaos
src.act.bounce
src.act.attr 4
src.tag.kalkanaldik2 1
return 1
else
src.sysmessage @38,,1 Kalkani sadece 1 defa alabilirsiniz.
return 1
endif

ON=13
src.sysmessage @38,,1 Tarafsiz guildler kalkan alamaz.

[EOF]




[ITEMDEF i_guild_mover]
ID=i_virtstone_1
WEIGHT=1
VALUE=0
NAME=a guildstone teleporter
CAN=0

ON=@Click
message "a guildstone teleporter"
if (<link.isitem>)
    if (<link.type> == T_STONE_GUILD )
        message <link.name> <qval (<eval strlen(<link.abbrev>)>) ? [<link.abbrev>]:>
    endif
endif

return 1

ON=@ClientTooltip
src.addcliloc 1041054
if (<link.isitem>)
    if (<link.type> == T_STONE_GUILD )
        src.addcliloc 1070722, <link.name> <qval (<eval strlen(<link.abbrev>)>) ? [<link.abbrev>]:>
    endif
endif

return 1

ON=@Dclick
if (!<link.isitem>)
    src.sysmessage This teleporting object can not determine what guildstone to teleport.
    remove
    return 1
endif

if (<link.type> != T_STONE_GUILD )
    src.sysmessage This teleporting object can not determine what guildstone to teleport.
    remove
    return 1
endif

if (<cont.uid> != <src.findlayer(layer_pack).uid> )
    src.sysmessage That must be in your pack for you to use it.
    return 1
endif

if ( !<src.isgm> && ( <link.masteruid> != <src.uid> ))
    src.sysmessage You must be the master of the guild to use it.
    return 1
endif

if ( <link.tag0.guildsys_moveruid> != <uid> )
    src.sysmessage This teleporting object can not determine what guildstone to teleport.
    return 1
endif

link.removefromview
link.p = <src.p>
link.update
remove
return 1

ON=@Destroy
if (<link.isitem>)
    if (<link.type> == T_STONE_GUILD )
        link.tag.guildsys_moveruid =
    endif
endif

[EOF]



[dialog d_Guild_GuildList]
5,25
nomove
local.listtype=<args>
If (<local.listtype> <= 0)||(<local.listtype> > 4)
  return 1
elif (<type>!=t_stone_guild)
  return 1
elif (<masteruid>!=<src.uid>)&&(!<src.isgm>)
  return 1
endif


page 0
resizepic 0 0 3000 550 440
resizepic 10 10 3000 530 420

local.privtolist=-1
local.showcheckbox=1
If ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_DECLAREPEACE> )
  local.privtolist=<def0.STONEPRIV_ENEMY>
  dhtmlgump 20 10 400 25 0 0 Select the guild you wish to declare peace with.
  button 20 400 4005 4007 1 0 1
  dhtmlgump 55 400 245 30 0 0 Send the olive branch.
elif ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_ACCEPTWAR> )
  local.privtolist=<def0.STONEPRIV_THEYDECLARED>
  dhtmlgump 20 10 400 25 0 0 Select the guild to accept the invitations: 
  button 20 400 4005 4007 1 0 1
  dhtmlgump 55 400 245 30 0 0 Accept war invitations.
elif ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_REJECTWAR> )
  local.privtolist=<def0.STONEPRIV_THEYDECLARED>
  dhtmlgump 20 10 400 25 0 0 Select the guild to reject their invitations: 
  button 20 400 4005 4007 1 0 1
  dhtmlgump 55 400 245 30 0 0 Reject war invitations.
elif ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_RESCIND> )
  local.privtolist=<def0.STONEPRIV_WEDECLARED>
  dhtmlgump 20 10 400 25 0 0 Select the guild to rescind our invitations: 
  button 20 400 4005 4007 1 0 1
  dhtmlgump 55 400 245 30 0 0 Rescind your war declarations.
endif
  
button 300 400 4005 4007 1 0 0
dhtmlgump 335 400 100 35 0 0 CANCEL

If ( <local.privtolist>==-1 )
  return 1
endif

local.current=0
local.currentgump=0
local.totalcount=<guild.count>
local.totalprivcount=<guild.count <local.privtolist>>

src.ctag.dialog_guildguildlist_type=<local.listtype>
try src.ctag.dialog_guildguildlist_<dlocal.listtype>_count=<local.totalprivcount>
try src.ctag.dialog_guildguildlist_<dlocal.listtype>_radio=<local.showcheckbox>

while ( <local.currentgump> < <local.totalprivcount> )
  // ---- Condition for executing -----
  local.ifisok=<guild.<local.current>.uid>
  If ( <local.privtolist>==<def0.STONEPRIV_ENEMY> )
    local.ifisok=<local.ifisok> && <guild.<local.current>.isenemy>
  elif ( <local.privtolist>==<def0.STONEPRIV_THEYDECLARED> )
    local.ifisok=<local.ifisok> && <guild.<local.current>.theywar> && !<guild.<local.current>.wewar>
  elif ( <local.privtolist>==<def0.STONEPRIV_WEDECLARED> )
    local.ifisok=<local.ifisok> && <guild.<local.current>.wewar> && !<guild.<local.current>.theywar>
  endif
  // ----------------------------------
  
  If ( <local.ifisok> )
    // ----- Page ------
    If ( (<local.currentgump> % 11)==0 )
      If ( <local.currentgump> != 0 )
        button 300 370 4005 4007 0 <EVAL ((<local.currentgump>/11)+1)> 0
        dhtmlgump 335 370 300 35 0 0 Next page
      endif
        
      page <EVAL ((<local.currentgump>/11)+1)>
        
      If ( <local.currentgump> != 0 )
        button 20 370 4014 4016 0 <EVAL (<local.currentgump>/11)> 0
        dhtmlgump 335 370 300 35 0 0 1011067 Previous page
      endif
    endif
    // ----------------

    If ( <local.showcheckbox> )
      radio 20 <EVAL (35 + <EVAL ((<local.currentgump> % 11) * 30)>)> 208 209 0 <EVAL (<local.current> + 10)>
    endif
    
    local.currentguilduid=<guild.<local.current>.uid>  
    
    If (<eval strlen(<uid.<local.currentguilduid>.name>)>)
      dtext <QVAL <local.showcheckbox> ? 55 : 20> <EVAL (35 + <EVAL ((<local.currentgump> % 11) * 30)>)> 0 <uid.<local.currentguilduid>.name> <qval (strlen(<uid.<local.currentguilduid>.abbrev>))&&(<DEF0.GUILDCONFIG_GUILDLIST_SHOWABBREV>) ? [<uid.<local.currentguilduid>.abbrev>]:>
    else
      dtext <QVAL <local.showcheckbox> ? 55 : 20> <EVAL (35 + <EVAL ((<local.currentgump> % 11) * 30)>)> 0 (Unnamed)
    endif

    local.currentgump += 1
  endif

  // ----- Total Member -----
  local.current += 1
  If ( <local.current> >= <local.totalcount> )
    local.currentgump=<local.totalprivcount>
  endif
  // ------------------------

endwhile


  
[dialog d_Guild_GuildList Button]
ON=0 1
  If (!<src.ctag0.dialog_guildguildlist_type>)
    serv.log sdialog d_Guild_GuildList called without src.ctag.dialog_guildguildlist_type !!
    return 1
  endif

  // ---- Var set ----
  local.listtype=<src.ctag0.dialog_guildguildlist_type>
  local.listtypecount=<src.ctag0.dialog_guildguildlist_<dLOCAL.listtype>_count>
  local.listtyperadio=<src.ctag0.dialog_guildguildlist_<dLOCAL.listtype>_radio>
  src.ctag.dialog_guildguildlist_type=
  try src.ctag.dialog_guildguildlist_<dLOCAL.listtype>_count=
  try src.ctag.dialog_guildguildlist_<dLOCAL.listtype>_radio=
  
  If (<masteruid>!=<src.uid>)&&(!<src.isgm>)
    return 1
  endif
  
  If (<argn1>==0) // Exit
    sdialog d_Guild_Master_Warfare,0
    return 1  
  endif

  local.guilduid=0
  If ( <local.listtyperadio> && <local.listtypecount> )
    local.selectedguild=<ARGCHKID> - 10
    If (<local.selectedguild> < 0)||(<local.selectedguild> > <guild.count>)
      return 1
    endif

    local.guilduid=<guild.<local.selectedguild>.uid>
    If ( !<local.guilduid> )
      return 1
    elif ( <uid.<local.guilduid>.type>!=T_STONE_GUILD )
      return 1
    endIf  
  endif
  
  If ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_DECLAREPEACE> )
    If ( <f_guildsys_isatwarwith <uid>,<local.guilduid>> )
      f_guildsys_declarepeace <uid>,<local.guilduid>,1
    endif
  elif ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_ACCEPTWAR> )
    If ( <f_guildsys_candeclarewarwith <uid>,<local.guilduid>> )
      f_guildsys_declarewar <uid>,<local.guilduid>,1
    endif
  elif ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_REJECTWAR> )
    ref1 = <local.guilduid>
    If ( <ref1.guildfromuid.<uid>.wewar> )
      f_guildsys_declarepeace <local.guilduid>,<uid>,0
    endif
  elif ( <local.listtype>==<def0.GUILDDLG_LISTTYPE_G_RESCIND> )
    If ( <guildfromuid.<local.guilduid>.wewar> )
      f_guildsys_declarepeace <uid>,<local.guilduid>,0
    endif
  endif
  
  local.listtypecount -= 1
  If ( <local.listtypecount> )
    sdialog d_Guild_GuildList,0,<local.listtype>
  else
    sdialog d_Guild_Master_Warfare,0
  endif
  return 1

[FUNCTION guildonline]
IF <SRC.MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>!=0
src.sdialog d_guildmenu
return 1
else
src.SysMessage @50,3,1 Bir guilde üye degilsiniz.
return 1
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.player118=<uid>
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.player23=<uid>
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.player34=<uid>
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.player45=<uid>
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.player56=<uid>
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.player67=<uid>
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.player78=<uid>
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.player89=<uid>
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.player100=<uid>
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.player101=<uid>
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.player111=<uid>
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.player121=<uid>
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.player131=<uid>
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.player140=<region.name>
src.findid.i_guild_online.tag.player141=<uid>
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.player151=<uid>
src.findid.i_guild_online.tag.p15=1
endif

[DIALOG d_guild_online]
0,0
resizepic 10 10 9350 700 570
text 50 30 048 0
//text 50 50 0032 1

button 30 78 4029 4031 1 0 1

text 60 80 1153 2
text 60 100 1153 3
text 60 120 1153 4
text 60 140 1153 5
text 60 160 1153 6
text 60 180 1153 7
text 60 200 1153 8
text 60 220 1153 9
text 60 240 1153 10
text 60 260 1153 11
text 60 280 1153 12
text 60 300 1153 13
text 60 320 1153 14
text 60 340 1153 15
text 60 360 1153 16
text 270 80 1153 17
text 270 100 1153 18
text 270 120 1153 19
text 270 140 1153 20
text 270 160 1153 21
text 270 180 1153 22
text 270 200 1153 23
text 270 220 1153 24
text 270 240 1153 25
text 270 260 1153 26
text 270 280 1153 27
text 270 300 1153 28
text 270 320 1153 29
text 270 340 1153 30
text 270 360 1153 31

[DIALOG d_guild_online TEXT]
<SRC.MEMORYFINDTYPE.MEMORY_GUILD.LINK.NAME> Guildinin Online Üyeleri
asd
<SRC.FINDID.i_guild_online.tag.player1>
<SRC.FINDID.i_guild_online.tag.player2>
<SRC.FINDID.i_guild_online.tag.player3>
<SRC.FINDID.i_guild_online.tag.player4>
<SRC.FINDID.i_guild_online.tag.player5>
<SRC.FINDID.i_guild_online.tag.player6>
<SRC.FINDID.i_guild_online.tag.player7>
<SRC.FINDID.i_guild_online.tag.player8>
<SRC.FINDID.i_guild_online.tag.player9>
<SRC.FINDID.i_guild_online.tag.player10>
<SRC.FINDID.i_guild_online.tag.player11>
<SRC.FINDID.i_guild_online.tag.player12>
<SRC.FINDID.i_guild_online.tag.player13>
<SRC.FINDID.i_guild_online.tag.player14>
<SRC.FINDID.i_guild_online.tag.player15>
<src.findid.i_guild_online.tag.player119>
<src.findid.i_guild_online.tag.player22>
<src.findid.i_guild_online.tag.player33>
<src.findid.i_guild_online.tag.player44>
<src.findid.i_guild_online.tag.player55>
<src.findid.i_guild_online.tag.player66>
<src.findid.i_guild_online.tag.player77>
<src.findid.i_guild_online.tag.player88>
<src.findid.i_guild_online.tag.player99>
<src.findid.i_guild_online.tag.player100>
<src.findid.i_guild_online.tag.player110>
<src.findid.i_guild_online.tag.player120>
<src.findid.i_guild_online.tag.player130>
<src.findid.i_guild_online.tag.player140>
<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

[PLEVEL 1]
guildmenu

[function guildmenu]
IF <SRC.MEMORYFINDTYPE.MEMORY_GUILD.LINK.UID>!=0
src.sdialog d_guildmenu
return 1
else
src.SysMessage @50,3,1 Bir guilde üye degilsiniz.
return 1
endif


[dialog d_guildmenu]
0,0
page 0
nomove
resizepic 10 50 3000 700 380
resizepic 70 100 3000 175 285
resizepic 260 100 3000 80 285
resizepic 350 100 3000 80 285
resizepic 440 100 3000 160 285
dtext 148 80 0 Name
dtext 280 80 0 Fame
dtext 370 80 0 Karma
dtext 490 80 0 Title
dtext 610 80 0 Özel Mesaj
ref1 <src.guild.uid>
local.y 100
for 0 <eval <ref1.member.count>-1>
ref2 <ref1.member.<dlocal._for>.uid>
if (<ref2.isonline>)// && (<ref2.uid>!=<src.uid>)
dtext 75 <local.y> 158 <ref2.name>
dtext 265 <local.y> 158 <ref2.fame>
dtext 355 <local.y> 158 <ref2.karma>

if (strmatch('<ref2.tag.gs_title>',''))
dtext 445 <local.y> 158 Yok..
else
dtext 445 <local.y> 158 <ref2.tag.gs_title>
endif

button 630 <local.y> 4012 4013 1 0 <eval <dlocal._for>+1>
local.y += 20
endif
endfor

[dialog d_guildmenu button]
on 1 1000
ref1 <src.guild.uid>
ref2 <ref1.member.(<dargn>-1).uid>
if !(<ref2.isonline>)
src.sysmessage @1100 Msj atmaya calistiginiz kisi suan online degil.
return 1
endif
ctag.guilduye <ref2>
src.promptconsole gon_msj @0481,Atmak istediginiz mesaji yaziniz:
return 1

[function gon_msj]
ref1 <ctag.guilduye>
if !(<ref1.isonline>)
src.sysmessage @0481 Msj atmaya calistiginiz kisi suan online degil.
return 1
endif
ref1.sysmessage @1100 Size guildinizdeki uyeden ozel mesaj:
ref1.sysmessage @0481 [<src.name>] <args>

[EOF]



[SPEECH spk_guildspeech]
ON=I resign from my guild
IF ((<ARGN1> == <DEF.TALKMODE_SAY>) && <GUILD>)
    f_guildsys_removecharfromguild <guild.uid>,<uid>
    RETURN 6
ENDIF
RETURN 1

//ON=*
//IF (<ARGN1> != <DEF.TALKMODE_GUILD>)
//    RETURN 0 // Not my problem
//ENDIF

//gc <args>
//RETURN 1

[EOF]


[PLEVEL 1]
groster     // replacement for guild button in older client

[FUNCTION groster]
IF ( !<DEF0.GUILDCONFIC_USEGUILDBUTTON> )
    RETURN 1
ENDIF

IF ( !<GUILD> )
    RETURN 1
ENDIF

if ((<guild.memberfromuid.<uid>.priv>==<def0.STONEPRIV_MEMBER>)||(<guild.masteruid>==<uid>))
    // Something like that...
    trysrc <uid> guild.sdialog d_Guild_Main,0
endif

[EOF]


[FUNCTION TRANSFERGUILD]
src.targetf f_guildsys_transferguild <args>
src.sysmessage Who do you wish to transfer the guild to?

[FUNCTION f_guildsys_transferguild]
// args = guildstone uid
// argo = future owner
ref1 = <args>

If (<argo.isitem>)
  sysmessage Cansiz varliklara devredemezsiniz.
elif (<argo.npc>)
  sysmessage Npc'ye devredemezsiniz.
elif (<argo.uid> == <uid>)
sysmessage zaten master sizsiniz.
elif (<argo> == <ref1.masteruid>)
  sysmessage You are already the master of <uid.<args>.name>.
elif (<argo.memoryfindtype.memory_guild.link.uid> != <args>)
  sysmessage Bu bir guild uyesi degil.
elif (!<argo.npc>)
  ref1.masteruid = <argo.uid>
  serv.log <name> (<uid>) transferred <sex his/her> guild (<ref1.name>) to <argo.name> (<argo.uid>)
  sysmessage @038A Guildinizi <argo.name> isimli playera devrettiniz.
  argo.sysmessage @038A Suanda <ref1.name> guildinin masterisiniz.
else
  sysmessage You cannot transfer a guild to that.
endif
return 1


// ------------------------------------------------------
[FUNCTION f_guildsys_recruitguy]
ref1 = <args>

If (<ref1.type> != t_stone_guild)
  return 1
elif ((<ref1.masteruid> != <uid>) && (<ref1.memberfromuid.<uid>.priv> != <def0.STONEPRIV_MEMBER>) && (!<isgm>))
  sysmessage @038a Only guild members can recruit new players.
  return 1
elif (<argo.isItem>)
  sysmessage @038a You may only recruit players into the guild.
  return 1
elif (!<argo.isPlayer>)
  sysmessage @038a You may only recruit players into the guild.
  return 1
elif (<argo.flags>&<def0.statf_dead>)
  sysmessage @038A Canli olmali.
  return 1
endif
If (<argo.memoryfindtype.<def0.memory_guild>.uid>)
  If (<argo.memoryfindtype.<def0.memory_guild>.link> == <ref1.uid>)
    sysmessage @038A Bu bir guild uyesi.
  else
    sysmessage @038A You can only recruit candidates who are not already in a guild.
  endif
  return 1
endif

If (<ref1.memberfromuid.<argo.uid>.uid> != <argo.uid>)
  If ((<ref1.masteruid> == <uid>) || (<isgm>))
    If (<def0.GUILDCONFIG_MAXMEMBERS>)
      If (<ref1.member.count <def0.STONEPRIV_MEMBER>> < <def0.GUILDCONFIG_MAXMEMBERS>)
        f_guildsys_addchartoguild <ref1.uid>,<argo.uid>,1
      else
        sysmessage @038A There are already <dDEF0.GUILDCONFIG_MAXMEMBERS> members. You cannot submit a member at this time.
      endif
    else
      f_guildsys_addchartoguild <ref1.uid>,<argo.uid>,1
    endif
  else
    If (<def0.GUILDCONFIG_MAXCANDIDATES>)
      If (<ref1.member.count <def0.STONEPRIV_CANDIDATE>> < <def0.GUILDCONFIG_MAXCANDIDATES>)
        f_guildsys_addchartoguild <ref1.uid>,<argo.uid>,0
      else
        sysmessage @038A There are already <dDEF0.GUILDCONFIG_MAXCANDIDATES> candidates awaiting a decision. You cannot submit a candidate at this time.
      endif
    else
      f_guildsys_addchartoguild <ref1.uid>,<argo.uid>,0
    endif
else
  sysmessage @038A They are already a candidate.
endif
endif 

// ------------------------------------------------------
[FUNCTION f_guildsys_addchartoguild]
// no checks here, everything should be checked before calling this functions
ref1 = <argv[0]> // The guild
ref2 = <argv[1]> // The char
local.addasmember = <argv[2]>

if (<local.addasmember>)
  ref1.JoinAsMember <ref2.uid>
else
  ref1.ApplyToJoin <ref2.uid>
endif

db.query "select * from guildler where stone_uid='<ref1.uid>'"
local.sayi <eval <db.row.0.uye_sayisi>>
db.execute "update guildler set uye_sayisi='<eval <local.sayi>+1>' where stone_uid='<ref1.uid>'"

if (!<uid.<ref2.uid>.isevent.<def.GUILDCONFIG_CHAREVENT_NAME>>)
  ref2.events +<def.GUILDCONFIG_CHAREVENT_NAME>
endif
  
if (<def0.GUILDCFGSPEECH_GLOBAL_ENABLE>)
  if (!<ref2.isdspeech <def.GUILDCFGSPEECH_NAME>>)
    ref2.dspeech +<def.GUILDCFGSPEECH_NAME>
  endif
endif



// ------------------------------------------------------
[FUNCTION f_guildsys_removecharfromguild]
// no checks here, everything should be checked before calling this functions
ref1 = <argv[0]> // The guild
ref2 = <argv[1]> // The char

if (!<ref2.isevent.<def.GUILDCONFIG_CHAREVENT_NAME>>)
  ref2.events -<def.GUILDCONFIG_CHAREVENT_NAME>
endif

if (<ref2.isdspeech <def.GUILDCFGSPEECH_NAME>>)
  ref2.dspeech -<def.GUILDCFGSPEECH_NAME>
endif

ref1.resign <ref2.uid>
f_guildsys_sendsmsg <ref1.uid>,<ref2.name> isimli uye guildden cikti.

// ------------------------------------------------------
[FUNCTION f_guildsys_isnameused]
local.guild=<argv[0]>
local.name=<strsub <eval (strlen(<local.guild>) + 1)> <eval strlen(<args>)> <args>>

local.index=0
local.return=0
local.totalguild=<serv.guildstones.count>

while (<local.index> < <local.totalguild>)
  local.currentguild=<serv.guildstones.<local.index>.uid>
  If (<local.currentguild>)
    If (!strcmpi(<uid.<local.currentguild>.name>,<local.name>))
      local.return=1
      local.index=<local.totalguild> + 1
    endif
  endif
  
  local.index += 1
endwhile

return <local.return>


// ------------------------------------------------------
[FUNCTION f_guildsys_isabbrevused]
local.guild=<argv[0]>
local.abbrev=<strsub <eval (strlen(<local.guild>) + 1)> <eval strlen(<args>)> <args>>

local.index=0
local.return=0
local.totalguild=<serv.guildstones.count>

while (<local.index> < <local.totalguild>)
  local.currentguild=<serv.guildstones.<local.index>.uid>
  If (<local.currentguild>)
    If (!strcmpi(<uid.<local.currentguild>.abbrev>,<local.abbrev>))
      local.return=1
      local.index=<local.totalguild> + 1
    endif
  endif
  
  local.index += 1
endwhile

return <local.return>


// ------------------------------------------------------
[FUNCTION f_guildsys_isatwarwith]
local.myguild=<argv[0]>
local.otherguild=<argv[1]>

If ((<uid.<local.myguild>.type>!=t_stone_guild) || (<uid.<local.otherguild>.type>!=t_stone_guild))
  return 0
endif

If (<uid.<local.myguild>.guildfromuid.<local.otherguild>.isenemy> && <uid.<local.otherguild>.guildfromuid.<local.myguild>.isenemy>)
  return 1
endif

return 0


// ------------------------------------------------------
[FUNCTION f_guildsys_candeclarewarwith]
local.myguild=<argv[0]>
local.otherguild=<argv[1]>

If ((<uid.<local.myguild>.type>!=t_stone_guild) || (<uid.<local.otherguild>.type>!=t_stone_guild))
  return 0
endif

local.myguild_count=<uid.<local.myguild>.member.count <def0.STONEPRIV_MEMBER>>
If (<uid.<local.myguild>.masteruid>)
  local.myguild_count += 1
endif

If (<local.myguild_count>==0)
  return 0
endif

local.otherguild_count=<uid.<local.otherguild>.member.count <def0.STONEPRIV_MEMBER>>
If (<uid.<local.otherguild>.masteruid>)
  local.otherguild_count += 1
endif

If (<local.otherguild_count>==0)
  return 0
endif

// Order cannot declare war.
If ((<uid.<local.myguild>.align>==1) && (<uid.<local.myguild>.align>==<uid.<local.otherguild>.align>))
  return 0
endif

return 1



Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.