mıRC, mIRC indir, Sohbet, Chat

on @shit:join:#:{
  ban $chan $nick 2
  kick $chan $nick 4Düşman Listemdesin...!
  echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı. 
}

alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
  title "DeLimIRC - Düşman Listesi"
  size -1 -1 136 99
  option dbu
  box "Nick:", 6, 66 0 68 97
  button "Ekle(+)", 4, 82 25 39 11
  button "Kaldır(-)", 10, 82 41 39 11
  edit "", 1, 70 8 61 10, autohs
  button "&Tamam", 3, 82 70 39 18, ok default
  list 2, 5 3 57 83, size
  ; check "Düşman Listesi Aktif", 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
  unset %vo1
  shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
  .auser shit $did(1)
  did -a shitlist 2 $did(1)
  ; shitkontrol
}

on 1:dialog:shitlist:sclick:10: {
  .ruser shit $did(2,$did(2).sel)
  did -r shitlist 2
  shitkontrol
}
alias shitkontrol {
  goto shitlist
  :shitlist
  inc %vo1
  if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
  did -a shitlist 2 $ulist(*,shit,%vo1)
  goto shitlist
}