Hesabına erişemeyen eski üyeler Discord üzerinden yardım alabilir.
Arkadaşlar Aile Kurulmasında Sorun yokta Aileye Giren vatandaş Aileden Cikamiyor Baktım Sroun yok gibi Gözüküyor Gözümden Kaçan bişe Olabilir bakarsanız Sevinirim

//Bu script SADECE Xantier tarafından yazıldı. Editleyenin ebesi kaçsın.
[defname Ayarlar]
Uyepara  20000 // üye ekleme parası X kadar


[FUNCTION badchar]
IF !(<STRPOS 0 41 <ARGS>>=-1) || !(<EVAL STRLEN(<ARGS>)>) || (STRMATCH("*[[]*","<ARGS>")) || (STRMATCH("*]*","<ARGS>")) || (STRMATCH("*[(]*","<ARGS>")) || (STRMATCH("*-*","<ARGS>")) || (STRMATCH("*[*}`>?´;:^%$¨!"<#.@_~|=+&/æ{]*","<ARGS>"))
RETURN 1
ELSE
RETURN 0
ENDIF

[plevel 1]
ailem

[function ailem]
if (<findid.i_aile>)
findid.i_aile.dialog d_ailem_bilgi
endif

[dialog d_ailem_bilgi]
150,150
//nomove 
page 0
resizepic 0 0 3500 300 180
alphablack 10 10 180 160
dhtmlgump  70 10 150 23 0 0 <def.bfont_red> Hell Pvp Aile Sistemi
dhtmlgump  30 40 250 23 0 0 <def.bfont_black> Aile ismi : <def.bfont_red><link.name><def.br>
gumppictiled 10 60 180 5 3504
gumppictiled 10 100 180 5 3504
dhtmlgump  30 60 250 23 0 0 <def.bfont_black> Aile reisi : <def.bfont_red><link.link.name><def.br>
dhtmlgump  30 80 250 23 0 0 <def.bfont_black> Uye sayisi : <def.bfont_red><link.dtag0.uyes><def.br>
button 35 110 55 56 1 0 1
dhtmlgump  48 110 150 23 0 0 <def.bfont_black> Aileden çık

endif

[dialog d_ailem_bilgi button]
on=1
for x 0 20
if (<link.dtag0.fert<dlocal.x>>==<src.uid>)

try uid.<link.tag0.fert<dlocal.x>>.notice <link.name> adlı aileden çıktın.
try uid.<link.tag0.fert<dlocal.x>>.tag.name.suffix=
try uid.<link.tag0.fert<dlocal.x>>.findid.i_aile.remove
try uid.<link.tag0.fert<dlocal.x>>.tag.fert<dlocal.x>=0
link.tag0.uyes -= 1
link.tag0.fert<dlocal.x>=
remove
return 1
endif
endfor

[itemdef i_Deed_aile]
id i_Deed
type t_eq_script
name Aile kurumu
value 475000

on=@create
color 0845

on=@dclick
sdialog d_aile 
return 1


[dialog d_aile]
150,150
nomove 
noclose
page 0
resizepic 0 0 3600 220 200
alphablack 10 10 180 180

dtext 30 20 0ad AILE KURULUMU
dhtmlgump 60 40 150 23 0 0 <def.bfont_lgreen> Aile ismi:

gumppic 27 67 2440 // 135 43
gumppictiled 50 70 110 20 3504

dtextentry 35 70 140 20 0 0 Aile
button 30 150 1232 1233 1 0 1
//dhtmlgump 100 120 150 23 0 0 <def.bfont_lgreen> Aileyi Kur
button 130 150 1235 1236 1 0 2
//dhtmlgump  100 150 150 23 0 0 <def.bfont_lgreen> Kurmaktan Vazgec

[dialog d_aile button]
on=1
if (<badchar <argtxt[0]>>)
src.sysmessage @38,6,1 Lutfen aile isimlerine sadece harf koyunuz.
return 1
endif
if (<src.findid.i_aile_kolye>) || (<src.findid.i_aile>)
src.sysmessage @38,6,1 Zaten baska bir ailenin ferdisiniz.
return 1
endif
tag.aile=<argtxt[0]>
for 15
if (strmatch('<strsub <eval <local._for>> 1 <tag.aile>>',' '))
src.sysmessage @38,6,1 Aile isimlerinde bosluk olamaz
return 1
endif

if (<isnum <strsub <eval <local._for>> 1 <tag.aile>>>)
src.sysmessage @38,6,1 Aile isimlerinde numaralandirma olmaz.
return 1
endfor
endif


if (<isnum <argtxt[0]>>)
src.sysmessage @38,6,1 Pardon ?
return 1
endif

if (strlen(<argtxt[0]>) > 20)
src.sysmessage @38,6,1 Aile ismi 20 karakterden uzun olamaz.
return 1
endif


serv.newitem i_aile_kolye
//src.tag.eskiname=<src.name>
//tag.soyad=<argtxt[0]>
new.name=<argtxt[0]>
src.tag.name.suffix=" <argtxt[0]>"
new.bounce <src>
new.link <src.uid>
obj=<new.uid>
serv.newitem i_aile
src.new.bounce <src>
src.new.equip
new.cont <src.uid>
src.new.link <obj.uid>
serv.allclients sysmessage @38,6,1 <argtxt[0]> Ailesi kurulmustur. Basarilar dileriz.
remove
on=2
src.dialogclose	d_aile

[itemdef i_aile_kolye]
id i_necklace_gold
name Aile kolyesi


on=@create
for 20
tag.fert<dlocal._for>=0
endfor
tag0.uyes=0
color 0480
attr=04

on=@click
message @55,6,1 [<name>]
message @38,6,1 Aile kolyesi
return 1

on=@dclick
if (<link> != <src.uid>)
src.sysmessage @38,6,1 Bu sizin ailenizin kolyesi degil.
return 1
endif
dialog d_aile_bilgi
return 1

on=@targon_self
src.sysmessage @38,6,1 Kendi kendini ailene alamazsin.
return 1

on=@Targon_char
if (<src.targ.isplayer>)
for 1 20
if (<src.targ.findid.i_aile.link.tag0.fert<dlocal._for>>==<src.targ.uid>) || (<src.targ.findid.i_aile_kolye>)
src.sysmessage @38,6,1 Bu kisi herhangi bir ailenin reisi yada uyesi.
return 1
endif
serv.newitem i_aileekle
new.link <uid>
new.cont <src.targ.uid>
trysrc <src.targ.uid> new.dialog d_aile_ekle
return 1

on=@timer
return 1

[dialog d_aile_bilgi]
150,150
//nomove 
page 0
resizepic 0 0 3600 300 220
alphablack 10 10 180 200
dhtmlgump  50 20 150 23 0 0 <def.bfont_white> Aile sistemi
dhtmlgump  50 40 255 23 0 0 <def.bfont_white> Aile ismi : <name>
gumppictiled 10 60 180 5 3504
button 30 75 4023 4024 1 0 1
dtext 72 75 1152 Yeni fert ekle.
gumppictiled 10 100 180 5 3504
gumppic 15 125 1209
dtext 40 120 55 Aile reisi : <link.name>
gumppic 15 145 1209
dtext 40 140 55 Uye sayisi : <dtag0.uyes>
button 15 165 1209 1210 1 0 2
dtext 40 160 55 Uye kov/Uye listesi
button 15 185 1209 1210 1 0 3
dtext 40 180 55 Aileyi yık
endif

[function ailedeed]
var.ailekur <args>

[dialog d_aile_bilgi button]
on=1
target @38,6,1 Aileye uye ediceginiz kisiyi seciniz.
return 1
on=2
if !(<tag0.uyes>)
src.sysmessage @38,6,1 Uyeniz yok.
return 1
endif
tag.client=1
dialog d_aile_kov

on=3
for x 0 20
if (<tag.fert<dlocal.x>>
try uid.<tag.fert<dlocal.x>>.notice <name> adlı aile yıkılmıştır.
try uid.<tag.fert<dlocal.x>>.tag.name.suffix=
try uid.<tag.fert<dlocal.x>>.findid.i_aile.remove
try uid.<tag.fert<dlocal.x>>.findid.i_aile.remove
try uid.<tag.fert<dlocal.x>>.notice <name> adli aileden kovuldun.
endif
endfor
if <var0.ailekur>==1
serv.newitem i_deed_aile
src.new.bounce
endif
src.findid.i_aile.remove
src.tag.name.suffix=
src.sysmessage @03c1,6,1 Aileniz yıkıldığı gibi bütün üyelerinizin soyadları eski halini almıştır.
remove
return 1
[dialog d_aile_kov]
150,150
//nomove 
page 0
resizepic 0 0 3600 320 200
page 1
button 30 105 5541 5542 1 0 <dtag.client>
dtext 50 105 1152 Bu oyuncuyu aileden at
dtext 15 15 1152 <dtag0.client> / <dtag.uyes>
button 30 160 5538 5539 1 0 22
dtext 50 160 55 Geri
button 230 160 5541 5542 1 0 21
dtext 250 160 55 Ileri
f_listz

[dialog d_aile_kov button]
on=0
tag.client=1

on=1 20
tag.uyes -= 1

try uid.<tag.fert<argn>>.tag.name.suffix=
try uid.<tag.fert<argn>>.findid.i_aile.remove
try uid.<tag.fert<argn>>.findid.i_aile.remove
try uid.<tag.fert<argn>>.notice <name> adli aileden kovuldun.

try tag.fert<argn>=0

on=21
if (<tag.uyes> > <tag0.client>)
tag.client += 1
sdialog d_aile_kov
else
sdialog d_aile_kov
endif

on=22
if (<tag0.client> > 1)
tag.client -= 1
sdialog d_aile_kov
else
sdialog d_aile_kov
endif

[function f_listz]
local.y=35
dtext 50 <local.y> 55 Oyuncu : <uid.<tag.fert<dtag.client>>.name>
dtext 50 55 55 Durum : <qval <uid.<tag.fert<dtag.client>>.isonline>? Online : Offline>
gumppictiled 10 85 180 8 3504




[dialog d_aile_ekle]
150,150
//nomove 
noclose
page 0
resizepic 0 0 3600 270 270
alphablack 10 10 180 180
dtext 50 20 1152 Aile sistemi
dtext 50 40 55 Aile ismi : <uid.<link.uid>.name>
gumppictiled 10 60 180 5 3504
dhtmlgump 22 75 240 50 0 0 <def.bfont_white>Bu aile sizi ailesine davet ediyor. Girmek istermisiniz ? Katilim 20 k
button 40 160 4023 4024 1 0 1
button 140 160 4021 4022 1 0 2


[dialog d_aile_ekle button]
on=1
if !(<src.restest <def.Uyepara> i_gold>)
src.sysmessage @38,6,1 Yaninizda <eval <def.uyepara>> altin yok.
remove
return 1
endif

try uid.<link.uid>.tag0.uyes <eval <uid.<link.uid>.tag0.uyes>+1>
serv.newitem i_aile
new.cont <src.uid>
src.new.equip
new.link <link.uid>
//src.tag.eskiname=<src.name>
src.tag.name.suffix=" <uid.<link.uid>.name>"
src.sysmessage @38,6,1 <uid.<link.uid>.name> Ailesine uye oldunuz.
src.consume <def.uyepara> i_gold
uyeol
remove


on=2
try uid.<link.topobj.uid>.sysmessage @38,6,1 Teklifiniz red edildi.
remove

[itemdef i_aile]
id i_gold
layer layer_special
weight 0
type t_eq_script
name asd

on=@create
attr attr_newbie|attr_invis


[itemdef i_aileekle]
layer layer_special
id i_earrings_gold
weight 0
name asd

on=@create
attr attr_invis

[function uyeol]
for 1 20
if (<uid.<link.uid>.tag.fert<dlocal._for>> == 0)
try uid.<link.uid>.tag.fert<dlocal._for>=<cont.uid>
src.sysmessage @03c1,6,1 Slot <dlocal._for> = Bos <dlocal._for>. uyesiniz.
return 1
endif
endfor


[plevel 1]
ailem
Novice
-14.8
Zahmet Olmazsa Aileden Çıkma Komutunu Buraya Koyabilirmisin? Yani Scriptin O Bölümünü
ailem dialogu işte orda.
Silindi
Members
0
scripte sorun yo kadam ailem yazıcak sonra oradan aileden çık olması lazım onu tıklicak çıkıcak başka bir komutu veya yolu yok hadi kolay gelsin iyi incele

Scripte En çok beğendiğim bölüm burası

//Bu script SADECE Xantier tarafından yazıldı. Editleyenin ebesi kaçsın.
//Bu script SADECE Xantier tarafından yazıldı. Editleyenin ebesi kaçsın.
[defname Ayarlar]
Uyepara  20000 // üye ekleme parası X kadar


[FUNCTION badchar]
IF !(<STRPOS 0 41 <ARGS>>=-1) || !(<EVAL STRLEN(<ARGS>)>) || (STRMATCH("*[[]*","<ARGS>")) || (STRMATCH("*]*","<ARGS>")) || (STRMATCH("*[(]*","<ARGS>")) || (STRMATCH("*-*","<ARGS>")) || (STRMATCH("*[*}`>?´;:^%$¨!"<#.@_~|=+&/æ{]*","<ARGS>"))
RETURN 1
ELSE
RETURN 0
ENDIF

[plevel 1]
ailem

[function ailem]
if (<findid.i_aile>)
findid.i_aile.dialog d_ailem_bilgi
endif

[dialog d_ailem_bilgi]
150,150
//nomove 
page 0
resizepic 0 0 3500 300 180
alphablack 10 10 180 160
dhtmlgump  70 10 150 23 0 0 <def.bfont_red> Hell Pvp Aile Sistemi
dhtmlgump  30 40 250 23 0 0 <def.bfont_black> Aile ismi : <def.bfont_red><link.name><def.br>
gumppictiled 10 60 180 5 3504
gumppictiled 10 100 180 5 3504
dhtmlgump  30 60 250 23 0 0 <def.bfont_black> Aile reisi : <def.bfont_red><link.link.name><def.br>
dhtmlgump  30 80 250 23 0 0 <def.bfont_black> Uye sayisi : <def.bfont_red><link.dtag0.uyes><def.br>
button 35 110 55 56 1 0 1
dhtmlgump  48 110 150 23 0 0 <def.bfont_black> Aileden çık

endif

[dialog d_ailem_bilgi button]
on=1
for x 0 20
if (<link.dtag0.fert<dlocal.x>>==<src.uid>)

try uid.<link.tag0.fert<dlocal.x>>.notice <link.name> adlı aileden çıktın.
try uid.<link.tag0.fert<dlocal.x>>.tag.name.suffix=
try uid.<link.tag0.fert<dlocal.x>>.findid.i_aile.remove
try uid.<link.tag0.fert<dlocal.x>>.tag.fert<dlocal.x>=0
link.tag0.uyes -= 1
link.tag0.fert<dlocal.x>=
remove
return 1
endif
endfor

.ailem Komutu yazınca Buttondan çıkıyor ama o butona Tıklayınca hiç bişi olmuyor
Silindi
Members
0
arkadaşlar aile sisteminde sadece harf kullanılmasını istiorum (<isnum <ARGTXT[1]>>) bu kısmı nsl degistirmem lasım ?
for 0 <eval strlen(<argtxt[0]>) -1>
if !strmatch('[a-z]','<strsub <eval <local._for>> 1 <argtxt[0]>>')
Silindi
Novice
3.3
on=1
for 0 <eval strlen(<argtxt[0]>) -1>
if !(strmatch('[a-z]','<strsub <eval <local._for>> 1 <argtxt[0]>>')
src.sysmessage @1100,1,1 Sadece Harf Kullanabilirsiniz..
else
	src.tag.akrabaevliligiseni <src.name>
	src.name <src.name> <argtxt[1]>
	src.tag.soyadi=1
	src.tag.ailename <argtxt[1]>
	src.burdanal
	src.findid.i_soyadim.remove
endif

önce ki bilgi içinde teşekkur ederim denedim olmadı yada ben beceremedim zahmet olmassa surayıda duzenlesek ? şimiden teşekkurler
argtxt'leri unutmuşun :)

on=1
for 0 <eval strlen(<argtxt[1]>) -1>
if !(strmatch('[a-z]','<strsub <eval <local._for>> 1 <argtxt[1]>>')
src.sysmessage @1100,1,1 Sadece Harf Kullanabilirsiniz..
else
src.tag.akrabaevliligiseni <src.name>
src.name <src.name> <argtxt[1]>
src.tag.soyadi=1
src.tag.ailename <argtxt[1]>
src.burdanal
src.findid.i_soyadim.remove
endif

Üye Ol veya Giriş Yap

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