Yeni nesil aile sistemi hata var!

[FUNCTION chgnames]
name ismi guncelle
if !(<src.findid.i_isim_deed>
src.tag.namechanged 
src.newitem i_isim_Deed
src.act.bounce
endif

[itemdef i_ailem]
id i_deed
name Aile Deed

on=@create
color 0810
attr 01c

on=@click
name @800 Aile deed
attr 01c

on=@dclick
src.sysmessage @0481 Lutfen yetkiliye page atiniz, Yetkili size gelip kuracaktir..
src.smg Ayrintili bilgi icin lutfen forumlarimizi inceleyin..

[itemdef i_isim_deed]
id i_deed
name Yeni isim kagidi

on=@create
color 0481
attr 01c

on=@click
name @48 Yeni isim deed
attr 01c

on=@dclick
if !(<cont> == <src.findlayer.21.uid>
src.sysmessage Cantanda olmasi gerekiyor.
return 1
endif
dialog d_isimdegistir

[dialog d_isimdegistir]
0,0
resizepic 200 175 5054 400 260
resizepic 210 185 3000 380 240

htmlgump 220 195 60 20 0 0 0
htmlgump 220 220 360 100 1 1 0

htmlgump 255 387 300 20 2 0 0
htmlgump 225 360 70 20 4 0 0
button 220 385 4005 4007 1 0 1
textentry 300 360 330 35 1152 1 3

[dialog d_isimdegistir text]
Yeni isim sistemi
Yeni isim kurallari: 1- yeni isminiz ahlak kurallarina uygun olmasi gereklidir. 2- minunmum 3 maximum 16 hane olabilir 3- bosluk iceremez. yani tek kelime olmak zorundadir.
Tamam
Yeni isminizi buraya yazin
Yeni ismim:

[dialog d_isimdegistir button]
On=1
src.isimdegistir <argtxt[1]>


[ITEMDEF i_aile_sozlesmesi]
NAME=Aile Sozlesmesi
ID=i_deed
TYPE=t_script
VALUE=250000

on=@create
color 0494

on=@dclick
if !(<cont> == <src.findlayer.21.uid>
src.sysmessage Cantanda olmasi gerekiyor.
return 1
endif
if !((0<src.uid> == <region.tag.owner>)
src.sysmessage @0482 Sadece sahibi oldugunuz evde aile kurabilirsiniz.
return 1
else
dialog d_aile_kuruyorum
return 1
endif

[dialog d_aile_kuruyorum]
0,0
resizepic 200 175 5054 400 260
resizepic 210 185 3000 380 240

htmlgump 220 195 60 20 0 0 0
htmlgump 220 220 360 100 1 1 0

htmlgump 255 387 400 20 2 0 0
htmlgump 225 360 70 20 4 0 0
button 220 385 4005 4007 1 0 1
textentry 300 360 330 35 1152 1 3

[dialog d_aile_kuruyorum text]
Ephiram UO Aile Kurulumu
Aile kurma kurallari: 1- Aile soyadiniz ahlak kurallari cercevesinde olmali. 2- en iki en fazla onalti karakter olabilir.
Tamam Aileyi Kur
-
Aile Soyadi:

[dialog d_aile_kuruyorum button]
On=1
src.newfamily <argtxt[1]>


[PLEVEL 1]
aileanketi

[FUNCTION aileanketi]
if (0<uid.040048258.tag.<account>>=01)
sysmessage Zaten oy kullanmissiniz.
return 1
endif
dialog d_aanket

[FUNCTION aileanketsonucu]
src.sysmessage Kabul: <eval (<uid.040048258.tag.oykabul>-1)> Ret: <eval (<uid.040048258.tag.oyret>-1)> Toplam: <eval (<uid.040048258.tag.oyret>+<uid.040048258.tag.oykabul>-2)>
[dialog d_aanket]
0,0
resizepic 200 175 5054 400 260
resizepic 210 185 3000 380 240

htmlgump 220 195 360 170 0 1 1

htmlgump 255 372 400 20 1 0 0
htmlgump 255 397 400 20 2 0 0
button 220 370 4005 4007 1 0 1
button 220 395 4005 4007 1 0 2

[dialog d_aanket text]
Aile sisteminde yasanan sorunlardan dolayi sistemde degisiklik yapilmasi planlanmaktadir. Yapilacak degisiklik kapsaminda: 1- Mevcut aileler silinecek, aile kurucularina kurulum icin verilen para iade edilecek. 2- Tum playerlarin isimleri silinecek. 3- Tum playerlara yeni bir isim secme hakki taninacak ancak bu isim tek kelimeden olusabilecektir. 4- Aile sistemi ve soyad sistemi bugsiz,temiz bir sekilde yeniden yazilacak ve devreye girecektir. NOT: Eger bu yeniligin yapilmasi kabul gormezse sistemin bugli olmasindan dolayi tum aile taslari silinerek aile sistemi kaldirilacak, herkes su anki isim ve soyismiyle kalacak, bir daha isim degisikligi ve aileye alma yapilamayacaktir.
Yeni sistem gelsin.
Yeni sistem gelmsin, aile sistemi kalksin.

[dialog d_aanket button]
ONBUTTON=1
try uid.040048258.tag.<src.account> 1
try uid.040048258.tag.oykabul=<eval (<uid.040048258.tag.oykabul>+1)>
ONBUTTON=2
try uid.040048258.tag.<src.account> 1
try uid.040048258.tag.oyret=<eval (<uid.040048258.tag.oyret>+1)>


[FUNCTION isimdegistir]
src.tag.newnamee "<args>"
for 20
if (strmatch('<strsub <eval (<local._for>> 1 <src.tag.newnamee>>',' ')
src.sysmessage @60 Isminizde bosluk kullanamazsiniz.
return 1
endif
if (strmatch('<strsub <eval (<local._for>> 1 <src.tag.newnamee>>','_')
src.sysmessage @60 Isminizde alt cizgi kullanamazsiniz.
return 1
endif
if (strmatch('<strsub <eval (<local._for>> 1 <src.tag.newnamee>>','-')
src.sysmessage @60 Isminizde cizgi kullanamazsiniz.
return 1
endif
if (strmatch('<strsub <eval (<local._for>> 1 <src.tag.newnamee>>','@')
src.sysmessage @60 Isminizde @ kullanamazsiniz.
return 1
endif
if (strmatch('<strsub <eval (<local._for>> 1 <src.tag.newnamee>>','|')
src.sysmessage @60 Isminizde | kullanamazsiniz.
return 1
endif
if (<isnum <strsub <eval (<local._for>> 1 <src.tag.newnamee>>>
src.sysmessage @60 Isminizde rakam kullanamazsiniz.
return 1
endif
endfor
if (strmatch('<strsub 0 2 <src.tag.newnamee>>','GM')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 2 <src.tag.newnamee>>','Kanun')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 2 <src.tag.newnamee>>','Owner')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 5 <src.tag.newnamee>>','Admin')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 4 <src.tag.newnamee>>','Seer')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 4 <src.tag.newnamee>>','Lord')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 4 <src.tag.newnamee>>','Lady')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 9 <src.tag.newnamee>>','Counselor')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 12 <src.tag.newnamee>>','High Council')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 9 <src.tag.newnamee>>','Developer')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 5 <src.tag.newnamee>>','Staff')
src.sysmessage @60 Hatali isim.
return 1
endif
if (<eval strlen(<src.tag.newnamee>> < 3)
src.sysmessage @60 Isminiz 3 karakterden kisa olamaz.
return 1
endif
if (<eval strlen(<src.tag.newnamee>> > 16)
src.sysmessage @60 Isminiz 16 karakterden uzun olamaz.
return 1
endif
if !(<src.findid.i_isim_deed>
src.sysmessage @60 deed nerede?
return 1
endif
if (0<src.tag.familystone>
src.sysmessage @60 Bir aileye uye iken isminizi degistiremezsiniz.
return 1
endif
src.findid.i_isim_deed.remove
src.tag.namechanged 01
src.name <src.tag.newnamee>
src.tag.newnamee="<args>"


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



[FUNCTION osman]
src.tag.osmann = "<args>"
src.sysmessage <src.tag.osmann>

[FUNCTION newfamily]
src.tag.newnamee="<args>"
if (0<src.tag.familystone>
src.sysmessage @60 Bir aileye uye iken aile kuramazsiniz.
return 1
endif
if (0<uid.04000950e.tag.<src.tag.newnamee>>
src.sysmessage @60 Bu isimli bir aile zaten var.
return 1
endif
for 20
if (<isnum <strsub <eval (<local._for>> 1 <src.tag.newnamee>>>
src.sysmessage @60 Aile isminizde rakam kullanamazsiniz.
return 1
endif
endfor


local.nr = 0
while (<findid.i_aile.tag0.p<dlocal.nr>>
local.nr++
endwhile
findid.i_aile.tag0.p<dlocal.nr> = <src.targ.name>


if (<eval strlen(<src.tag.newnamee>> < 2)
src.sysmessage @60 Aile isminiz en az 2 karakterden olusabilir.
return 1
endif
if (<eval strlen(<src.tag.newnamee>> > 16)
src.sysmessage @60 Aile isminiz 16 karakterden uzun olamaz.
return 1
endif
if (strmatch('<strsub 0 2 <src.tag.newnamee>>','GM')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 5 <src.tag.newnamee>>','Admin')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 4 <src.tag.newnamee>>','Seer')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 4 <src.tag.newnamee>>','Lord')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 4 <src.tag.newnamee>>','Lady')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 9 <src.tag.newnamee>>','Counselor')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 12 <src.tag.newnamee>>','High Council')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 9 <src.tag.newnamee>>','Developer')
src.sysmessage @60 Hatali isim.
return 1
endif
if (strmatch('<strsub 0 5 <src.tag.newnamee>>','Staff')
src.sysmessage @60 Hatali isim.
return 1
endif
if (!<src.findid.i_aile_sozlesmesi>
src.sysmessage Sozlesme kayip?
return 1
endif
src.newitem i_familystone
src.tag.familystone
src.act.name <src.tag.newnamee>
src.act.p <src.p>
src.act.tag.pop 1
src.act.tag.master=<uid>
try uid.04000950e.tag.<src.tag.newnamee> <act.uid>
src.tag.originalname <src.name>
src.name <src.name> <src.tag.newnamee>
src.tag.family <src.tag.newnamee>
src.tag.familystone <act.uid>
src.findid.i_aile_sozlesmesi.remove

[FUNCTION aileload]
SERV.LOAD scripts/anket.scp

[itemdef i_familynewmember]
ID=i_gold
TYPE=t_eq_script

On=@Create
attr attr_decay|attr_newbie

ON=@EQUIP
target @60 Kimi aileye almak istiyorsunuz?

ON=@TARGON_CHAR
src.newitem i_raa
src.act.bounce
src.targ.sysmessage @60 <src.tag.family> Ailesine davet edildiniz. Aileye girmek istiyorsaniz Aile Tasi'na tiklayiniz.
try uid.<src.tag.familystone>.tag.davet<src.targ.uid> 1
timer=1
return 1 

ON=@TIMER
remove
return 1

[FUNCTION ailedenat]
src.newitem i_familybanmember
src.act.equip

[itemdef i_familybanmember]
ID=i_gold
TYPE=t_eq_script

On=@Create
attr attr_decay|attr_newbie

ON=@EQUIP
target @60 Kimi aileden atmak istiyorsunuz?

ON=@TARGON_CHAR
if (<src.targ.uid>==<src.uid>
return 1
endif
if ((<uid.<src.tag.familystone>.tag.master>==<src.uid>&&(<src.tag.familystone>==<uid.<src.targ.uid>.tag.familystone>
try uid.<src.tag.familystone>.tag.pop <eval (<uid.<src.tag.familystone>.tag.pop>-1)>
try uid.<src.targ.uid>.sysmessage @60 <src.tag.family> Ailesinden ciktiniz.
try uid.<src.targ.uid>.name <uid.<src.targ.uid>.tag.originalname>
try uid.<src.targ.uid>.tag.family=0
try uid.<src.targ.uid>.tag.familystone=0
else
src.sysmessage @60 Buna yetkiniz yok.
endif
timer=2
return 1 

ON=@TIMER
remove
return 1


[itemdef i_raa]
ID=i_gold
TYPE=t_eq_script
On=@Create
attr attr_decay|attr_newbie

return 1





[itemdef i_familybanned]
ID=i_gold
TYPE=t_eq_script
On=@Create
attr attr_decay|attr_newbie
ON=@EQUIP
cont.say ALOOO
cont.exitfamily
timer=1
return 1

ON=@TIMER
remove
return 1

[ITEMDEF i_familystone]
DEFNAME=i_familystone
ID=i_grave_stone
NAME=Family Stone
TYPE=T_NORMAL

ON=@CREATE
COLOR=0455

ON=@DCLICK
if (0<src.tag.familystone>
src.dialogaile
if (<src.findid.i_raa>
src.dialogaile

else
src.sysmessage Aileye Uye Olmalisiniz.
endif
Return 1

ON=@CLICK
message @0481,,1,1 Uye Sayisi : <eval (<tag.pop>>
message @75,,1,1 Aile ismi : <name>
return 1

[PLEVEL 1]
aileyiterket
ailedenat

[FUNCTION aileyiterket]
if (<src.tag.familystone>
if ((<uid.<src.tag.familystone>.tag.master>==<src.uid>&& !(<uid.<src.tag.familystone>.tag.pop>==1))
src.sysmessage @60 Reisi oldugunuz ailenin sizden baska uyesi varken aileden cikamazsiniz.
return 1
endif
if (<uid.<src.tag.familystone>.tag.pop>==1)
try uid.<src.tag.familystone>.remove
try uid.04000950e.tag.<src.tag.family> 0
endif
try uid.<src.tag.familystone>.tag.pop <eval (<uid.<src.tag.familystone>.tag.pop>-1)>
src.sysmessage @60 <src.tag.family> Ailesinden ciktiniz.
src.name <src.tag.originalname>
src.tag.family=0
src.tag.familystone=0
endif





[function dialogaile]
sdialog d_dialogaile

[dialog d_dialogaile]
90,90
nomove
resizepic 0 0 5100 450 360
resizepic 110 20 5100 250 30
text 140 25 0 0
text 160 65 0 1
text 70 135 0 2
text 70 175 0 3
text 70 215 0 4
text 70 255 0 5
text 70 295 0 6
button 45 140 2224 2117 1 0 2
button 45 180 2224 2117 1 0 3
button 45 220 2224 2117 1 0 4
button 45 260 2224 2117 1 0 5
button 45 300 2224 2117 1 0 6

gumppic 250 100 12
gumppic 250 100 50930
gumppic 250 100 50970
gumppic 250 100 50985


[DIALOG d_dialogaile TEXT]
- Ephiram Aile Menu -
<src.tag.family> Aile paneli
Aileye al
Aileyi Terket
Aileden cikar
Aile Ferdlerinin listesi
Bankami goster

[DIALOG d_dialogaile button]
on=2
src.yeniuyeal
on=3
src.aileyiterket
on=4
src.ailedenat
on=5
src.smg Yapim Asamasinda.
on=6
src.bankself

[function yeniuyeal]
src.newitem i_familynewmember
src.act.equip
endif
if (0<tag.davet<src.uid>>==01)
if !(0<src.tag.namechanged>==01)
src.chgnames
src.sysmessage @60 Once isminizi guncelleyiniz..cantaniza deed dustu.
return 1
endif
if !(0<src.tag.familystone>==0)
src.sysmessage @60 Zaten baska bir aileye uyesiniz.
return 1
endif
target @60 Lutfen cantanizdaki 100k lik bir cek'e tiklayiniz.
endif
return 1

ON=@TARGON_ITEM
if ((<src.targ.baseid>==i_check)&&(<eval (<src.targ.more1>>==100000)&&(<src.targ.cont>=<src.findlayer(21).uid>)
src.targ.remove
tag.pop=<eval (<tag.pop>+1)>
try tag.davet<src.uid> 198753
src.tag.originalname <src.name>
src.name <src.name> <name>
src.tag.family <name>
src.tag.familystone <uid>
else
src.sysmessage @60 Bu 100klik bir cek degil.
endif

[Narcotich] : Olm mahlukat gözüme görünme.