|
|
| Yazar | Mesaj |
Xariyla
Nereden: --- Jupiter --- |
#319436
2008-09-07 07:05 GMT 
Ya Arkadaşlar Aslında Maksadım Aie sistemi yapmaktı ama Alışılmıstan baska bişi olsun dedim böyle bi scp yaptım yanlız spyi yaparken bazı yeleri Duello sisteminden baktm oda cok ayrı bi konu aslında cok basit bir scp ama kullanışlı olucagını düşünüyorum Birde hata(lar)'im Varsa düzeltirseniz sewinirim
Kod: //////////////////BY YkP////////////////////////
//////////----> İsim kalsın Lütfen <---------- /////////////// [chardef c_memur] defname c_memur id c_man name Eorrayn can mt_walk on=@create str 100 hits 100 itemnewbie i_shroud color 0803 itemnewbie i_apron_half color 1 itemnewbie i_shoes_plain color 1 itemnewbie i_bandana color 1 on=@click message @020,,1 { Soyisim Memuru } on=@hit return 1 on=@gethit return 1 on=@Dclick IF (<DISTANCE><=2) dialog d_memur_menu ELSE SRC.SYSMESSAGE @38,1,1 Vendora Ulasamiyorsunuz.. ENDIF RETURN 1 [dialog d_memur_menu] 0,0 nomove resizepic 150 150 5054 300 250 dtext 260 180 0460 xx Pvp dtext 260 260 0455 Soyadi Alacagim dtext 260 300 0455 Soyadi Sildirecegim button 200 180 52 52 1 0 0 button 220 260 57 58 1 0 1 button 220 300 57 58 1 0 2 [dialog d_memur_menu BUTTON] on 0 src.sysmessage @080a Kapattiniz..! on 1 sdialog d_soyadi_al on 2 sdialog d_soyadi_sil [dialog d_soyadi_al] 0,0 nomove resizepic 150 150 5054 300 250 dhtmlgump 180 200 70 25 420 0 Soyismi: dtextentry 250 200 130 20 910 1 < isim Yaziniz > dhtmlgump 180 230 200 80 420 1 Soyisim Kurallari: Oncelikle @!^' Gibi Harfler Iceren Soy Isimleri Kesinlikle Hatalidir.Sizi Istemedigi Halde Bir Baskasiyla Ayni Soy Adini Alirsaniz Soyisminiz Silinir.Soyismi Alan Herkez Bu Kosullari Kabul Etmis Sayilir..! dtext 200 315 0455 Kosullari Kabul Ediyorum dtext 200 330 0455 Soy Ismimi Ver ..! dtext 190 160 0460 xx Pvp Soyisim Menu button 270 350 57 58 1 0 1 [dialog d_soyadi_al button] onbutton 1 if (<src.tag0.ailemvar> == 1) src.sysmessage @080a Zaten Bir Soy Adiniz Var ..! return 1 endif for 0 <eval strlen(<argtxt[1]>) -1> if !strmatch('[a-z]','<strsub <eval <local._for>> 1 <argtxt[1]>>') src.sysmessage @025,1,1 Hatali kullanim. Girdiginiz : "<argtxt[1]>" src.sdialog d_soyadi_al return 1 endif endfor if ((strlen(<argtxt[1]>) > 12) || ((strlen(<argtxt[1]>) < 4) src.dialog d_ailekur src.sysmessage @025,1,1 Soy Isminiz az 4, en fazla 12 karakter olmalidir. return 1 endif if !(<src.restest 250000 i_gold>) src.sysmessage @38,1,1 Soyisim Icin Cantanizda 250k Gold Olmasi Gerekir..! else src.consume 250000 i_gold src.tag0.ailedencik <src.name> src.tag0.ailemvar +=1 src.name <name> <argtxt[1]> return 1 endif [dialog d_soyadi_sil] 0,0 nomove resizepic 150 150 5054 300 250 dtext 260 180 0460 xx Pvp dtext 200 260 0455 Soy Adinizin Silinmesini dtext 200 280 0455 Istediginize dtext 200 300 0455 Eminmisiniz ..? dtext 220 346 08a1 Evet dtext 340 346 021 Hayir button 200 180 52 52 1 0 0 button 300 350 57 58 1 0 1 button 180 350 57 58 1 0 2 [dialog d_soyadi_sil BUTTON] on 0 src.sysmessage @080a Kapattiniz..! on 2 src.soyisimsil src.sysmessage @07a1 Soyisminiz Basari Ile Silinmistir..! on 1 src.sysmessage @080a Vaz Gectiniz..! [function soyisimsil] src.name <src.tag0.ailedencik> src.tag0.ailemvar 0
Lanet Girsin Dostum Bu Dünya Bizim Olmalı Tikla ve Gör ..! Blade Pvp Shard En iyi Pwp Shard :p Alın Size SS'ler : http://img217.imageshack.us/img217/5452/asedeff2.jpg SS lere Oynamadan Önce mutlaka bak |
HP-Nexiel
Nereden: Turkey Yalova |
#319445
2008-09-07 09:35 GMT
Alılmışlığın dışında olacak neresi var acaba ?
Paylaşım için teşekkürler..
|
Xariyla
Nereden: --- Jupiter --- |
Ya ne bilim Hep Aile Deed Felan Oluyodu BEnde Farklı olsun istedim Böyle bişi yaptım yanlız Bi sorun var src.name <name> <argtxt[1]> BUrası src.name <src.name> <argtxt[1]> Olcak İşte Kulalanmak İsteyen alsın.... EMO Emrahta Cıkmıs var bee [e]vcilleştirilmemiş [m]allar [ordusu]
Lanet Girsin Dostum Bu Dünya Bizim Olmalı Tikla ve Gör ..! Blade Pvp Shard En iyi Pwp Shard :p Alın Size SS'ler : http://img217.imageshack.us/img217/5452/asedeff2.jpg SS lere Oynamadan Önce mutlaka bak |
