miRC Kick Counter & Specified Kick Message

menu menubar,channel {
  • Ayar
  .Kick Counter {
    kickcounter
  }
}
dialog kk {
  title "Kick Sayacı"
  size -1 -1 120 103
  option dbu
  icon graph/kcounterx.ico, 0
  box "Sayac", 1, 3 2 115 39
  text "Toplam kick", 2, 16 13 32 8
  text "adet", 3, 73 13 22 8
  edit %kick.count, 4, 49 12 22 10, disable center
  button "Sıfırla", 5, 49 26 23 10
  button "OK", 6, 90 87 27 12, ok
  check "Kickte Göster", 7, 9 57 91 10
  button "Msg", 8, 6 70 23 10
  text "Kanala Yansıt", 9, 33 71 76 8
  check "Kick Sayacı Açık", 10, 9 47 61 10
  box "Ayarlar", 11, 3 41 115 43
  text "Kick Sayacı", 12, 4 89 41 8, disable
}


On *:Dialog:kk:sclick:5:{ if ($did == 5) { set %kick.count 0 | set %kcount.date $time(HH:nn:ss dddd dd mmmm yyyy) } | if ($did == 5) did -ra kk 4 %kick.count }
On *:Dialog:kk:sclick:7:{ if ($did(7).state == 1) { set %show.kc On } | else { set %show.kc Off } }
On *:Dialog:kk:sclick:8:{
  if ($active = $chan) { _xmsg.c (Kick Counter) $me has kicked %kick.count nicknames since %kcount.date - %name }
  else { _xmsg.q (Kick Counter) $me suana kadar toplam %kick.count kick uygulamıstır. %kcount.date - %name }
}
On *:Dialog:kk:sclick:10:{ if ($did(10).state == 1) { set %ac.kc On } | else { set %ac.kc Off } }
On *:Dialog:kk:init:*:{ if (%show.kc == On) { did -c kk 7 } | if (%ac.kc == On) { did -c kk 10 } }

alias kick {
  if (%ac.kc == Off) { raw -q kick $1 $2 : $+ $3- | halt }
  else {
    if (%show.kc == On) { raw -q kick  $1 $2 : $+ $3- - %kick.count }
    else { raw -q kick $1 $2 : $+ $3- }
  }
}
alias kickcounter { if ($dialog(kk)) dialog -v kk | else dialog -m kk kk }
on *:LOAD:{
  echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Kick Counter loaded succesfully
}
_xmsg.c {
  if ($active = $chan) {
    if ($me isop $chan) {
      .msg $chan $1-
      echo -t $chan  $+ $_nc.rini(nc,m-) $+ @ $+ $me  $+ $color(own) $+ : $1-
      halt
    }
    if ($me isvo $chan) && ($me !isop $chan) {
      .msg $chan $1-
      echo -t $chan  $+ $_nc.rini(nc,m-) $+ + $+ $me  $+ $color(own) $+ : $1-
      halt
    }
    if ($me isreg $chan) && ($me !isop $chan) && ($me !isvo $chan) {
      .msg $chan $1-
      echo -t $chan  $+ $_nc.rini(nc,m-) $+ $me  $+ $color(own) $+ : $1-
      halt
    }
  }
  else { halt }
}

_xmsg.q {
  echo -at  $+ $_nc.rini(nc,m-) $+ $me  $+ $color(own) $+ : $1-
  .msg $active $1-
}