#####################################################################
#   Название: Hotkeys Сhan Сontrol v1.0
#   Автор: Epic (http://epicnet.ru, irc.epicnet.ru:6667 #Code)
#   Описание: Горячие клавиши для контроля на канале с выполнением команд "Кик+Бан" на выбранных никах.
#####################################################################

on *:HOTLINK:*:#:{
  if ($istok(nick channel,$hotlink(match).type,32)) {
    if ($hotlink(match).type == nick) {
      if ($hotlink(event) == sclick) { sline $chan $hotlink(match) }
      if ($hotlink(event) == dclick) { query $hotlink(match) }
    }
    if ($hotlink(match).type == channel) {
      if ($hotlink(event) == dclick && $hotlink(match) != $active) { join $hotlink(match) }
    }
  }
  else haltdef
}
alias F1 $actions(F1,$chan)
alias F2 $actions(F2,$chan)
alias F3 $actions(F3,$chan)
alias F4 $actions(F4,$chan)
alias F5 $actions(F5,$chan)
---------------------------------------------------------------------
alias -l checkaccess {
  if ($istok($chr(126) $chr(38) $chr(64) $chr(37),$remove($nick($1,$me).pnick,$me),32)) { return $true }
  else { echo -a You do not have rights access on the channel to perform these actions. | return $false }
}
alias -l actions {
  if ($snicks && $checkaccess($2)) {
    var %i 1 | while (%i <= $numtok($snicks,44)) {
      var %nick $gettok($snicks,%i,44) | var %mask $address(%nick,5)
      var %ident $gettok($gettok(%mask,2,33),1,64) | var %host $gettok(%mask,2,64)
      if ($right(%mask,3) == .IP) var %hmute $+(*!*@*.,$gettok(%host,3-,46)) | else var %hmute $mask(%mask,4)
      ;-------------------------------------------
      if ($1 == F1) { kick $2 %nick Don't swear! }
      if ($1 == F2) { kick $2 %nick Change your nick! | ban -u300 $2 $+(%nick,*!*@*) }
      if ($1 == F3) { if (irccloud isin %host) ban -u300 $2 $+(*!,%ident,@*) | else ban -u300 $2 $+(*!*@,%host) }
      if ($1 == F4) { if (irccloud isin %host) ban -u1800 $2 $+(~q:*!,%ident,@*) | else ban -u1800 $2 $+(~q:,%hmute) }
      if ($1 == F5) { kick $2 %nick Out! | if (irccloud isin %host) ban -u3600 $2 $+(*!,%ident,@*) | else ban -u3600 $2 $+(*!*@,%host) }
      inc %i
    }
  }
}