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
//////////////////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
Bu konu HP-Nexiel tarafından düzenlendi(2008-09-07 09:34, 15 yıl önce)
