@manifest
Burada Sormadan Önce Kendin Biraz Yapmaya Çalışırsan Sevinirim. Senin Gibi Bir Kaç Kişi Var Bütün Üyeler Size Çalışıyor.
[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]
0,0
nomove
page 0
resizepic 50 30 5120 280 180
resizepic 60 40 3000 260 160
alphablack 10 10 180 160
dhtmlgump 140 50 150 23 0 0 <def.bfont_yellow> <serv.servname> Aile Sistemi
dhtmlgump 100 80 250 23 0 0 <def.bfont_white> Aile ismi : <def.bfont_red><link.name><def.br>
gumppictiled 10 60 180 5 3504
gumppictiled 10 100 180 5 3504
dhtmlgump 100 100 250 23 0 0 <def.bfont_white> Aile reisi : <def.bfont_red><link.link.name><def.br>
dhtmlgump 100 120 250 23 0 0 <def.bfont_white> Uye sayisi : <def.bfont_red><link.dtag0.uyes><def.br>
button 80 140 0a9a 0a9b 1 0 1
dhtmlgump 100 140 150 23 0 0 <def.bfont_white> 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 50 30 5120 280 180
resizepic 60 40 3000 260 160
alphablack 100 100 10 10 50 180
dtext 120 50 0100 Aile Kurulum Menusu:
gumppic 100 80 2440 // 135 43
gumppictiled 100 70 110 20 3504
dtextentry 105 82 140 20 0 0 Silip Aile Ismini Yaziniz..
button 80 150 1232 1233 1 0 1
//dhtmlgump 100 120 150 23 0 0 <def.bfont_lgreen> Aileyi Kur
button 180 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 50 30 5120 300 200
resizepic 60 40 3000 280 180
alphablack 10 10 180 200
dhtmlgump 80 50 150 23 0 0 <def.bfont_white> Aile sistemi
dhtmlgump 80 70 255 23 0 0 <def.bfont_white> Aile ismi : <name>
gumppictiled 10 60 180 5 3504
button 60 90 4023 4024 1 0 1
dtext 100 90 1152 Yeni fert ekle.
gumppictiled 10 100 180 5 3504
dtext 80 120 55 Aile reisi : <link.name>
dtext 80 140 55 Uye sayisi : <dtag0.uyes>
button 60 165 1209 1210 1 0 2
dtext 80 160 55 Uye kov/Uye listesi
button 60 185 1209 1210 1 0 3
dtext 80 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 20 20 5120 280 180
resizepic 30 30 3000 260 160
page 1
button 80 105 5541 5542 1 0 <dtag.client>
dtext 110 105 36 Bu oyuncuyu aileden at
dtext 60 50 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=55
dtext 140 <local.y> 55 Oyuncu : <uid.<tag.fert<dtag.client>>.name>
dtext 140 75 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 50 30 5120 280 180
resizepic 60 40 3000 260 160
alphablack 10 10 180 180
dtext 120 45 039 <serv.servname> Aile sistemi
dtext 80 65 039 Aile ismi : <uid.<link.uid>.name>
gumppictiled 10 60 180 5 3504
dhtmlgump 60 85 240 50 0 0 <def.bfont_white>Bu aile sizi ailesine davet ediyor. Girmek istermisiniz ? Katilim 20 k
button 100 160 4023 4024 1 0 1
button 180 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
Bu Scripting'i Kullan.
