[YouMyCure]

Başlatma Komutu: /fihrist


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 }
  }
}