Başlıktanda anladığınız üzere Aile sisteminde ailedeki oyuncuların online oldugunu gosteren nerede adı ne bi dialog bi menu istiyorum ve yapamadım sizler için kolay olsa gerek.. Scpm şu..
[ITEMDEF i_soyadi_kolye_katilimci]
id=i_necklace_gold
type=t_jewelry
name=Aile Uyesi
on=@create
color=07c5
attr=04
on=@dclick
return 1
[ITEMDEF i_soyadi_kolye]
id=i_necklace_gold
type=t_jewelry
name=Aile Reisi
on=@create
color=07c5
attr=04
on=@dclick
target @096,,1 Kimi aileye dahil etmek istiyorsunuz?
return 1
on=@targon_char
src.targ.tag.ailename <src.tag.ailename>
IF <src.targ.npc>
var.smsgx 049
src.smsgx * Bu fonksiyon sadece oyuncular icin gecerlidir! *
return 1
ELSEIF (<src.targ.uid>==<src.uid>)
var.smsgx 049
src.smsgx * Kendinizi secemezsiniz ! *
return 1
elseif (<src.targ.tag.soyadi>==1)
src.sysmessage @096,,1 Bu kisinin zaten bir aileye uyeligi mevcut.
return 1
ELSE
var.smsgx 049
src.smsgx <src.targ.name> isimli kisiyi ailenize davet ettiniz..!
src.newitem i_soysor_equip
src.act.cont <src.targ.uid>
Var.soyadi_uid <src.uid>
src.act.timer 1
return 1
ENDIF
[itemdef i_soysor_equip]
name aileme gel babzzzz
weight 0
id i_gold
type t_eq_script
layer layer_special
On=@UnEquip
try src.dialog d_katilcanmi
return 1
On=@Timer
remove
return 1
[dialog d_katilcanmi]
0,0
nomove
resizepic 70 120 3500 280 230
text 100 170 455 0
text 100 190 455 1
text 100 210 455 2
button 120 280 4005 4006 1 0 1
button 200 280 4017 4018 1 0 2
[dialog d_katilcanmi text]
[<src.tag.ailename>] isimli aileye
davet edildiniz.100k karsiliginda
katilmak istiyormusunuz?
[dialog d_katilcanmi button]
on=1
if (<src.restest 100000 i_gold>)
src.consume i_gold 100000
src.name <src.name> <src.tag.ailename>
src.tag.soyadi 1
src.newitem i_katilimci_benim
src.act.equip
src.act.timer 1
src.sysmessage @096,,1 Tebrikler [<src.tag.ailename>] isimli aileye katildiniz.
return 1
else
src.sysmessage @020,,1 Cantanizda 100k bulunmuyor.
return 1
endif
on=2
src.sysmessage @096,,1 <src.tag.ailename> isimli aileye girisinizi reddettiniz.
return 1
[function katilimsor]
src.newitem i_katilimci_benim
src.act.cont <src.targ.uid>
Var.soyadi_uid <src.uid>
src.act.equip
src.act.timer 1
[itemdef i_katilimci_benim]
name katilicam dedim sana
weight 0
id i_gold
type t_eq_script
layer layer_special
On=@UnEquip
try src.katilimci
return 1
On=@Timer
remove
return 1
[dialog d_soyver]
0,0
nomove
resizepic 70 120 3500 230 180
resizepic 100 180 3000 170 20
text 100 150 267 0
textentry 105 180 160 16 1152 1 1
button 120 230 4005 4006 1 0 1
button 200 230 4017 4018 1 0 2
[dialog d_soyver text]
Soyisminiz ne olsun ?
Buraya yaziniz
[dialog d_soyver Button]
on=1
if (strmatch('<argtxt[1]>','')
src.sysmessage @1953,1,1,1 Soyisim kismini bos birakmissiniz.
src.dialog d_soyver
return 1
elseif ((strlen(<argtxt[1]>)) > 21))
src.sysmessage @1953,1,1,1 21 karakterden fazla soyisim alamazsiniz.
src.dialog d_soyver
return 1
elseif ((strlen(<argtxt[1]>)) < 4))
src.sysmessage @1953,1,1,1 Oyuncu soy isimleri 4 karakterden dusuk olamaz.
src.dialog d_soyver
return 1
else
src.dialog d_ailescat
endif
[function burdanal]
src.newitem i_soysor_equip_hebele
src.act.cont <src.targ.uid>
Var.soyadi_uid <src.uid>
src.act.equip
src.act.timer 1
[itemdef i_soysor_equip_hebele]
name isim ver abee
weight 0
id i_gold
type t_eq_script
layer layer_special
on=@create
timer=1
On=@UnEquip
try src.hebele
return 1
On=@Timer
remove
return 1
[function hebele]
src.sysmessage @096,,1 Suandan itibaren [<src.tag.ailename>] isimli ailenin reisisiniz.
src.sysmessage @1953,1,1,1 Kolyeniz boynunuzda belirecektir..
src.newitem i_soyadi_kolye
act.name @077a,1,1 <src.tag.ailename> [Reis]
act.equip
[function katilimci]
src.sysmessage @096,,1 Suandan itibaren <src.tag.ailename> isimli aileye katildiniz.
src.sysmessage @1953,1,1,1 Kolyeniz boynunuzda belirecektir.
src.newitem i_soyadi_kolye_katilimci
act.name @077a,1,1 <src.tag.ailename> [Uye]
act.equip
[function soybak]
src.sysmessage @090,,1 <tag.ailename>
[plevel 1]
ailekur
[function ailekur]
dialog d_soyver
sysmessage @077a,1,1 Aile kurulum 35000sp'dir..
return 1
[DIALOG d_ailescat]
100,100
nomove
resizepic 0 0 3000 400 120
resizepic 25 29 3500 350 63
page 0
text 105 8 <eval 0481> 0
text 55 45 049 1
text 75 62 049 2
button 275 63 55 56 1 0 1
button 55 63 55 56 1 0 2
[DIALOG d_ailescat TEXT]
NotoriouS PvP Shard
Aile Kurmak Istediginizden Eminmisiniz ?
Evet Hayir
[DIALOG d_ailescat BUTTON]
onbutton=1
sysmessage=@077a,1,1 Aile Kurmaktan Vazgectiniz ...
onbutton=2
if (<src.tag.soyadi> = 1)
src.smg Zaten bir soyadin var !
elseif !(<src.restest 35000 i_fctn_silvr>)
src.sysmessage @1976,1,1,1 Aile kurabilmek icin cantanizda 35000sp bulunmalidir..
else
src.consume 35000 i_fctn_silvr
src.name <src.name> <argtxt[1]>
src.tag.soyadi=1
src.tag.ailename <argtxt[1]>
src.burdanal
endif
[function ailedencik]
dialog d_bosanma
sysmessage @1953,1,1,1 Iyice dusunun,ondan sonra ayrilin..
return 1
[DIALOG d_bosanma]
100,100
nomove
resizepic 0 0 3000 400 120
resizepic 25 29 3500 350 63
page 0
text 105 8 <eval 0481> 0
text 45 45 049 1
text 75 62 049 2
button 210 63 55 56 1 0 1
button 55 63 55 56 1 0 2
[DIALOG d_bosanma TEXT]
NotoriouS PvPShard
Aileden Ayrilmak Istediginize Eminmisiniz ?
Evet Hayir
[DIALOG d_bosanma BUTTON]
onbutton=1
sysmessage=@1976,1,1,1 Aileden Ayrilmaktan Vazgectiniz ...
return 1
onbutton=2
if !(<src.tag.soyadi> = 1)
src.sysmessage @1976,1,1,1 Zaten bagli oldugun bir aile mevcut degil !
else
src.findid.i_soyadi_kolye_katilimci.remove
src.findid.i_soyadi_kolye.remove
src.tag.soyadi 0
src.tag.ailename 0
src.name <strarg <src.name>>
return 1
endif
[eof]
Yardmcı olursanız sevnirim ultima-strike ekibi...