mIRC Fihrist
Başlatma Komutu: /fihrist
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
dialog frst { title "Fihrist" size -1 -1 212 142 option dbu list 1, 4 12 74 127, size text "KİŞİ LİSTESİ", 2, 22 3 49 8 button "KİŞİYİ SİL", 3, 81 109 58 13 button "YENİ KİŞİ EKLE", 4, 144 109 58 13 button "KAPAT !", 5, 81 125 121 13, ok cancel text "Nick:", 6, 81 13 114 8 text "İsim Soyisim:", 7, 81 22 113 8 text "Telefon No:", 8, 81 31 113 8 text "Şehir:", 9, 81 40 113 8 text "Ek Not:", 10, 81 49 114 52,multi } on *:start: { if $isfile(fihrist.xx) { .hmake FIHRIST | .hload FIHRIST fihrist.xx } } on *:DIALOG:frst:*:* { if ($devent = init) { d.yenile } elseif ($devent = sclick) { if ($did = 3) { hdel FIHRIST $did(1).seltext | echo -a $did(1).seltext Silindi. | d.yenile | .hsave FIHRIST fihrist.xx } elseif ($did = 1) { did -a $dname 6 Nick: $did(1).seltext did -a $dname 7 $token($hget(FIHRIST,$did(1).seltext),1,149) did -a $dname 8 $token($hget(FIHRIST,$did(1).seltext),2,149) did -a $dname 9 $token($hget(FIHRIST,$did(1).seltext),3,149) did -a $dname 10 $token($hget(FIHRIST,$did(1).seltext),4,149) } elseif ($did = 4) { .hadd -m FIHRIST $$?="Nick" $+(İsim Soyisim: $$?="İsim Soyisim",•Tel No: $$?="Tel No",•Şehir: $$?="Şehir",•Ek Notlar: $$?="Notlar (varsa)") .hsave FIHRIST fihrist.xx | echo -a Ekleme Tamamlandı | d.yenile } } } alias fihrist { dialog -m frst frst } alias -l d.yenile { did -r frst 1 if $hget(FIHRIST) { var %i = 1 | while %i <= $hget(FIHRIST,0).item { did -a frst 1 $hget(FIHRIST,%i).item | inc %i } } } |
önceki yazımızda « !regex [kelime] makelemiz var.
261
yorum yok 
EtiketlermIRC Fihrist İle Benzer Sohbet Yazıları
mIRC Fihrist yazına yapılan yorumlar