|
|
| Yazar | Mesaj |
mahmure
Nereden: Turkey -------------- |
#274373
2008-01-23 21:28 GMT  Kod: [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 Bu scripte sorun nerde aileyi kuruyırym i_aile_sozlesmesi ile 21:21:ERROR  ailedeneme.scp,83)Undefined symbol ''21:21:ERROR ailedeneme.scp,83)Undefined symbol ''böle hata verio bide böle bişey verio 21:23:ERROR ailedeneme.scp,275)Undefined symbol 'i_aile'21:23:ERROR ailedeneme.scp,27 Undefined symbol 'i_aile've bide aileye almıo sadece aile reisi taşa tıklayabilio dier player tıklayamıo ve aileye almıo!!! Neden acaba bi bakarmısnız!
||||||||||||||||||||||||||||||||||||| |
Ali3n
Nereden: Turkey İstanbul/Pendik |
#274378
2008-01-23 21:32 GMT
Eski nesile devam bence ne dersin ?
New Project After Day |
Death Bringer
Nereden: Turkey Sakarya |
#274379
2008-01-23 21:33 GMT
Valla kim yaptıysa scp'yi baya uzun yapmış
|
[Narcotich]
Nereden: Turkey Nereye |
#274382
2008-01-23 21:36 GMT
mahmure msn aç yeter ama..!
Herşeyi bilmene gerek yok, haddini bil yeter ! / Rago'nun meşhur lafı :) |
mahmure
Nereden: Turkey -------------- |
#274388
2008-01-23 21:54 GMT
Doru o scp dandik ben bi tane yapıo da dorusu editliom koycam bakalım olcakmı
||||||||||||||||||||||||||||||||||||| |
Ali3n
Nereden: Turkey İstanbul/Pendik |
#274389
2008-01-23 21:57 GMT
çok uzatmış ve bence 56b özelliklerini kullanarak editle... Tabiki 56b versionundaysan
New Project After Day |
[Narcotich]
Nereden: Turkey Nereye |
#274390
2008-01-23 21:57 GMT
mahmure p.m ye bakmassın posta dikkat etmessin sonkez diyorum msn'e gir.!
Herşeyi bilmene gerek yok, haddini bil yeter ! / Rago'nun meşhur lafı :) |
KeLL
Nereden: Turkey Kadiköy |
#274391
2008-01-23 21:58 GMT
pekte yeni nesil değil sanki
 bence kendin yaz zor değil.
|
[Narcotich]
Nereden: Turkey Nereye |
#274392
2008-01-23 22:01 GMT
Olm mahlukat gözüme görünme.
Herşeyi bilmene gerek yok, haddini bil yeter ! / Rago'nun meşhur lafı :) |
mahmure
Nereden: Turkey -------------- |
#274399
2008-01-23 22:13 GMT
Yukardaki scripti biri kısaltabilirmi acaba?Denedim olmuo!
||||||||||||||||||||||||||||||||||||| |
KeLL
Nereden: Turkey Kadiköy |
#274403
2008-01-23 22:17 GMT
bana değildi heralde bu. @mahmure tam olarak anlamadım ne istediğini biraz daha açıklayıcı lütfen.
|
mahmure
Nereden: Turkey -------------- |
#274405
2008-01-23 22:21 GMT
Bak şimdi ben yaptım yukardaki gibi editledim dialog halinde ama tam olarak şunu istiyorum!
Şimdi aileyi eve kurabiliceksin!Stone şeklinde işte dailog olcak reis in dialogu ayrı playerın ki ayrı. İşte aileye al aileden at aileden çıkı yaptım onlar basit ama ailede kaç kişi oldunu bu kişilerin bilgilerini fln nasıl yapıcam onu bilmiorum tag ı uidle bişiler yaılıo ama çıkartamadım ilk scpde öle mesela.Benim yaptımda aileye iren her reis her ailnin stonesini aça bilir komutlarını kullanabilir oluo yane umarım anlatabilmişimdir!
||||||||||||||||||||||||||||||||||||| |
Kronos
Nereden: Turkey Istanbul |
#274432
2008-01-24 00:23 GMT
İnsanların aile sistemi üzerine, kendi adını yazması kendileri yazmıs gibi.
taktir edilesi bir davranış değil.
|
Slothere
Nereden: Turkey Izmir |
#274433
2008-01-24 00:46 GMT
Uff tam bir katliam var en üst scriptte baya bi kısaltılması lazım.
"Milletimiz her güçlük ve zorluk karşısında, durmadan ilerlemekte ve yükselmektedir. Büyük Türk Milletinin bu yoldaki hızını, her vasıtayla arttırmaya çalışmak, bizim hepimizin en kutlu vazifemizdir." M. Kemal Atatürk  UO: Nuldemor |
mahmure
Nereden: Turkey -------------- |
#274531
2008-01-24 14:20 GMT
Yok uraş uraş kısaltamıorum o scripte kafam allak bullak oldu biri yardım edebilirmi?
||||||||||||||||||||||||||||||||||||| |
Syntax
Nereden: --- Küçükyalı |
bence sen o scp yi bırak sıfırdan yaz bi kaç yerden de yardım al daha güzel bişiler çıkart
Olmuş o kadar halk-ı cihân mekirde üstâd Kim sâbıka-i şöhret-i şeytan unutulmuş. Justice ! |
