| YouMyCure | 08 Ekim 2019 12:00 |
mIRC Fihrist
Başlatma Komutu: /fihrist [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
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 }
}
}
|
