aile vendoru world üzerinde .ailekur dediğin zaman servis dısı diyor aynı şekilde .ayrıl'da bu vaziyette bunu nasıl aktif edebiliriz
Bkz:
// coded by Trax.
// 07.05.2007
[CHARDEF C_H_aile]
DEFNAME=C_H_aile
NAME=#NAMES_HUMANMALE, Aile Memuru
ID=C_MAN
DESIRES=i_gold,e_notoriety
AVERSIONS=t_TRAP,t_eerie_stuff
TSPEECH=spk_memur
on=@hit
on=@hittry
on=@gethit
skill fail
return 1
on=@spelleffect
f_fizzle
return 1
ON=@Create
Title=Aile Memuru
NPC=brain_vendor
COLOR=colors_skin
STR={70 90}
DEX={30 90}
INT={26 90}
WRESTLING={15.0 38.0}
TACTICS={15.0 38.0}
SPEECHCOLOR={ 0231 1 0481 1 018b 1 0515 1 07d1 1 060a 1 0400 1 }
ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair
ITEM=i_tunic
COLOR=0455
ITEM=random_pants
COLOR=33
ITEM=random_coin_purse
ITEM=i_staff_black
ITEM=i_leather_gorget
COLOR=33
ITEM=i_leather_leggings
COLOR=33
ITEM=i_leather_gloves
COLOR=33
ITEM=i_bandana
COLOR=0455
ITEM=i_boots_thigh
COLOR=0455
ON=@CLICK
SPEECHCOLOR 0835
sayua 0835,6,6,0 <NAME> <TITLE>
SPEECHCOLOR 0835
return 1
on=@dclick
say @0810 Komutlar : 'ailekur', 'ayril'
return 1
[speech spk_memur]
0n=*evlendir*
on=*ailekur*
src.sysmessage servis disi
//src.dialog d_ailescat
on=*ayril*
src.sysmessage servis disi
[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
src.sysmessage servis disi
//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. 50k karsiliginda
katilmak istiyormusunuz?
[dialog d_katilcanmi button]
on=1
if (<src.restest 50000 i_gold>
src.consume i_gold 50000
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 50000gp 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 5170 230 180
resizepic 100 180 3000 170 20
text 100 152 800 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]
Aile Adi ne olsun ?
soyadim
[dialog d_soyver Button]
on=1
for 0 <eval strlen(<argtxt[1]> -1>
if !(strmatch('[abcdefghijklmnopqrstuvwxyz]','<strsub <eval <local._for>> 1 <argtxt[1]>>'))
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
src.dialog d_soyver
return 1
elseif (strmatch('<argtxt[1]>','')
src.sysmessage @0 Soyisim kismini bos birakmissiniz.
src.dialog d_soyver
return 1
elseif (strmatch('*[<]*','<argtxt[1]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
src.dialog d_soyver
return 1
elseif !(strmatch('*[a-z]*','<argtxt[1]>'))
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
src.dialog d_soyver
return 1
elseif (strmatch('*[>]*','<argtxt[1]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
src.dialog d_soyver
return 1
elseif (strmatch('*[!]*','<argtxt[1]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
src.dialog d_soyver
return 1
elseif ((strlen(<argtxt[1]>) > 11))
src.sysmessage @0 11 karakterden fazla soyisim alamazsiniz.
src.dialog d_soyver
return 1
elseif ((strlen(<argtxt[1]>) < 4))
src.sysmessage @0 Oyuncu soy isimleri 4 karakterden dusuk olamaz.
src.dialog d_soyver
return 1
else
src.name <src.name> <argtxt[1]>
src.tag.soyadi=1
src.tag.ailename <argtxt[1]>
src.burdanal
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 @096,,1 Kolyeniz boynunuzda belirecektir... Iyi Oyunlar.
src.newitem i_soyadi_kolye
act.name <src.tag.ailename> [reis]
act.equip
[function katilimci]
src.sysmessage @096,,1 Suandan itibaren <src.tag.ailename> isimli aileye katildiniz.
src.sysmessage @096,,1 Kolyeniz boynunuzda belirecektir... Iyi Oyunlar.
src.newitem i_soyadi_kolye_katilimci
act.name <src.tag.ailename> [Uye]
act.equip
[function soybak]
src.sysmessage @090,,1 <tag.ailename>
[dialog d_ailescat]
100,100
nomove
resizepic 0 0 5170 400 120
resizepic 25 29 5054 350 63
page 0
text 105 22 <eval 0481> 0
text 45 40 049 1
text 75 62 049 2
text 231 62 049 3
button 210 63 55 56 1 0 1
button 55 63 55 56 1 0 2
[dialog d_ailescat text]
**** UO Aile Sistemi
Yeni aile kurmak istiyormusunuz ?
Evet
Hayir
[DIALOG d_ailescat BUTTON]
onbutton=1
sysmessage= @0810 Aile Kurmaktan Vazgectiniz ...
onbutton=2
if (<src.tag.soyadi> = 1)
src.smg Zaten bir soyadin var !
elseif (<gp> >= 200000)
src.dialog d_soyver
src.consume 200000
else
src.smg Bankanizda 200k yok!
endif
[DIALOG d_bosanma]
100,100
nomove
resizepic 0 0 5170 400 120
resizepic 25 29 5054 350 63
page 0
text 105 22 <eval 0481> 0
text 45 40 049 1
text 75 62 049 2
text 231 62 049 3
button 210 63 55 56 1 0 1
button 55 63 55 56 1 0 2
[DIALOG d_bosanma TEXT]
****** UO Shard
Aileden Ayrilmak Istediginize Eminmisiniz ?
Evet
Hayir
[DIALOG d_bosanma BUTTON]
onbutton=1
sysmessage= @0810 Aileden Ayrilmaktan Vazgectiniz ...
onbutton=2
if !(<src.tag.soyadi> = 1)
src.smg Zaten bagli oldugun bir aile mevcut deil !
elseif (<gp> >= 100000)
gpconsume 100000
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
else
sysmessage Bankanizin en ust kisminda 100k altininiz bulunmuyor.
endif
[DIALOG d_soyadi_gir]
0,0
nomove
resizepic 190 175 5054 335 150
resizepic 200 185 3000 315 130
resizepic 220 235 3000 270 25
text 215 200 995 0
text 255 275 0000 1
button 220 275 4005 4006 1 0 1
text 435 275 0000 2
button 400 275 4005 4006 1 0 0
textentry 225 237 253 25 0 0 3
[DIALOG d_soyadi_gir TEXT]
Soyadinizin ne olmasini istiyorsunuz?
Devam
Vazgec
¿
[DIALOG d_soyadi_gir BUTTON]
ON=0
ON=1
for 0 <eval strlen(<argtxt[0]> -1>
if !(strmatch('[abcdefghijklmnopqrstuvwxyz]','<strsub <eval <local._for>> 1 <argtxt[0]>>'))
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif (strmatch('*[<]*','<argtxt[0]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif !(strmatch('*[a-z]*','<argtxt[0]>'))
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif (strmatch('*[>]*','<argtxt[0]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif (strmatch('*[!]*','<argtxt[0]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif (strmatch('*!*','<argtxt[0]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif (strmatch('*$*','<argtxt[0]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif !(strmatch('[a-z]*','<argtxt[0]>')) || (strmatch(' '*,<argtxt[0]')) || (strmatch(' ' '*,<argtxt[0]')) || (strmatch('!'*,<argtxt[0]'))
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseif (strmatch('*[$]*','<argtxt[0]>')
src.sysmessage @38 Bir hatali karakter kullanmadiginizdan emin olunuz.
return 1
elseIF ((strlen(<argtxt[0]>)) > 20)
src.sysmessage @50 En fazla 20 karakterli bir soyadi secebilirsiniz
dialog d_soyadi_gir
return 1
elseIF (<ISBADSTR <ARGTXT[0]>>) || (STRMATCH("*[1-9]*","<ARGTXT[0]>"))
src.sysmessage @38 Bir hata olustu rakam kullanmadiginizdan emin olunuz.....
return 1
elseif (<eval <argtxt[0]>>>0)
src.sysmessage @38 Bir hata olustu rakam kullanmadiginizdan emin olunuz...
return 1
elseif (strmatch('[1-9]*','<argtxt[0]>'))
src.sysmessage @38 Bir hata olustu rakam kullanmadiginizdan emin olunuz.
return 1
elseif (strmatch('<argtxt[0]>',''))
src.sysmessage @60 Soyadi belirtmediniz.
return 1
else
src.tag.soyadi_belirle <ARGTXT[0]>
attr 010
if (<src.findid.i_lol>)
src.findid.i_lol.dclick
else
src.newitem i_lol
src.act.equip
src.act.dclick
endif
return 1
endif
[itemdef i_lol]
name lol
weight 0
id i_gold
type t_eq_script
layer layer_special
on=@dclick
target @50 Kime evlilik teklifinde bulunacaksiniz ?
return 1
ON=@TARGON_CHAR
if (<src.targ.uid>==<src.uid>)
src.sysmessage @38 Kendinizle evlenemezsiniz!
src.findid.i_evlenme.attr 04
src.findid.i_lol.remove
elseif (<src.targ.npc>)
src.sysmessage @38 Sadece oyuncularla evlenebilirsiniz!
src.findid.i_evlenme.attr 04
src.findid.i_lol.remove
elseif (<src.targ.body>==<src.body>)
src.sysmessage @38 Escinsellige hayir...
src.findid.i_evlenme.attr 04
src.findid.i_lol.remove
else
src.newitem i_evlensene
src.act.cont <src.targ.uid>
src.act.more1 <src.uid>
src.act.more2 <uid>
src.act.timer 1
src.targ.tag.soyadi_belirle <src.tag.soyadi_belirle>
src.targ.tag.es <src.uid>
src.tag.es <src.targ.uid>
src.newitem i_evlenmis
src.act.equip
src.tag.name <src.name>
src.targ.tag.name <src.targ.name>
src.findid.i_evlenme.remove
remove
endif
return 1
ON=@TARGON_item
return 1
ON=@TARGON_ground
return 1
[itemdef i_evlenmxxe]
name=Evlilik Deedi
id=i_deed
type=t_eq_script
weight=0
layer=layer_special
value=85000
ON=@CREATE
color 0482
attr attr_newbie
ON=@CLICK
if (0<amount><1)
src.sysmessage @38 Yaptiginiz islem gecersiz.
remove
return 1
endif
MESSAGE @50 <name>
return 1
ON=@DCLICK
if (0<amount><1)
src.sysmessage @38 Yaptiginiz islem gecersiz.
remove
return 1
endif
if !(<cont.uid> == <src.findlayer(21).uid>)
src.sysmessage @38 Cantanizda olmali.
return 1
endif
if (<src.findid.i_evlenmis>)
src.sysmessage @39 Siz evlisiniz
return 1
endif
dialog d_soyadi_gir
return 1
[itemdef i_evlensene]
name evlensene lo
weight 0
id i_gold
type t_eq_script
layer layer_special
On=@UnEquip
try src.act <more2>
try src.dialog d_evlen_a_k
return 1
On=@Timer
remove
return 1
[dialog d_evlen_a_k]
-100,-100
nomove
noclose
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_evlen_A_K text]
<uid.<findid.i_evlensene.more1>.name> sizinle <uid.<findid.i_evlensene.more1>.tag.soyadi_belirle> soyadini paylasmayi ve evlenme teklifinde bulundu. Onunla dunya evine girmek istiyormusunuz ?
Evet
Hayir
[dialog d_evlen_A_K button]
on=0
src.tag.soyadi_belirle
try uid.<src.tag.es>.tag.soyadi_belirle
try uid.<src.tag.es>.findid.i_evlenmis.remove
On=1
if (<act.distance> > 3)
sysmessage @40 Esinize yeterince yakin degilsiniz.
else
src.name <name> <tag.soyadi_belirle>
try uid.<src.tag.es>.name <uid.<src.tag.es>.name> <src.tag.soyadi_belirle>
src.newitem i_evlenmis
src.act.equip
serv.allclients sysmessage @50 <src.name> ve <uid.<src.findid.i_evlenmis.more>.name> dunya evine girmistir. Mutluluklar...
src.tag.soyadi_belirle
try uid.<src.tag.es>.tag.soyadi_belirle
return 1
endif
[itemdef i_evlenmis]
name evlilik
weight 0
id i_memory
type t_eq_script
on=@equip
more <src.tag.es>
name <src.tag.soyadi_belirle>
on=@unequip
src.name <src.tag.name>
[itemdef i_bosanma]
name=Bosanma Deedi
id=i_deed
type=t_eq_script
weight=0
layer=layer_special
value=75000
ON=@CREATE
color 0840
attr attr_newbie
ON=@CLICK
if (0<amount><1)
src.sysmessage @38 Yaptiginiz islem gecersiz.
remove
return 1
endif
MESSAGE @50 <name>
ON=@DCLICK
if (0<amount><1)
src.sysmessage @38 Yaptiginiz islem gecersiz.
remove
return 1
endif
if !(<topobj.uid> == <src.uid>)
src.sysmessage @39 Bunu kullanmaniz icin cantanizda olmali
return 1
endif
if !(<src.findid.i_evlenmis>)
src.sysmessage @38 Evli degilsinizki?
return 1
endif
if (<src.findid.i_evlenmis>)
try uid.<src.tag.es>.findid.i_evlenmis.remove
src.findid.i_evlenmis.remove
src.sysmessage @38 Esinizden ayrildiniz
remove
return 1
endif
[EOF]
Scripti eklerken sunucu ismini siliniz..
Bu konu Slothere tarafından düzenlendi(2008-02-21 19:37, 16 yıl önce)
