Forums Scripts & Popups Help with bans

menu nicklist {
  -
  $style(1) ADMIN
  .Ban $chr(9) *!*@host : ban $chan $$1 2
  .Ban $chr(9) $+(R,$chr(58),$$1) : mode $chan +b $+(R:,$$1)
  .-
  .Ban [Combo] : mode $chan +bb $address($$1,2) $+(R:,$$1)
  -
}

on @*:INPUT:#:{
  if (/* !iswm $1) {
    if (!b == $1) { ban $chan $2 2 }
    if (!kb == $1) { ban -k $chan $2 2 You are not welcome here! }
    if (!br == $1) { mode $chan +b $+(R:,$2) }
    if (!kbr == $1) { mode $chan +b $+(R:,$2) | kick $chan $2 You are not welcome here! }
    halt
  }
}

on @*:TEXT:*add me on*:#Mairel:{ ban $chan $nick 2 | mode $chan +b $+(R:,$nick) }

menu nicklist {
  -
  $style(1) ADMIN
  .Ban $chr(9) *!*@host : ban $chan $$1 2
  .Ban $chr(9) $+(R,$chr(58),<account>) : bacc $chan $$1
  .-
  .Ban [Combo] : set %bcombo $true | bacc $chan $$1
  -
}

on @*:INPUT:#:{
  if (/* !iswm $1) {
    if (!b == $1) { ban $chan $2 2 }
    if (!kb == $1) { ban -k $chan $2 2 You are not welcome here! }
    if (!br == $1) { bacc $chan $2 }
    if (!kbr == $1) { bacc $chan $2 | kick $chan $2 You are not welcome here! }
    halt
  }
}

on @*:TEXT:*add me on*:#Mairel: ban $chan $nick 2 | bacc $chan $nick


alias -l bacc { .enable #islogged | set %bchan $1 | whois $2 }
alias -l setmode { $iif(%bcombo,mode %bchan +bb $address($1,2) $+(R:,$2),mode %bchan +b $+(R:,$2)) | unset %bchan %bcombo }

#islogged off
raw *:*is logged*: setmode $2 $3 | .disable #islogged
#islogged end

Punishment
.Ban+Kick : mode $chan +bb $address($$1,2) $address($$1,3) | kick $chan $$1 You are not welcome here!
.-
.Ban $chr(9) *!*@host : ban $chan $$1 2
.Ban $chr(9) $+(R,$chr(58),<account>) : bacc $chan $$1
.-
.Ban $chr(9) Combo : set %bcombo $true | bacc $chan $$1
.Ban+Kick $chr(9) Combo : set %bcombo $true | bacc $chan $$1 | kick $chan $$1 You are not welcome here!

on @*:INPUT:#:{
  if (!q == $1) {
    if ($2 == $null) { msg chanserv owner $chan $me } | else { mode $chan +q $2- }
  }
  if (!a == $1) {
    if ($2 == $null) { msg chanserv protect $chan $me } | else { mode $chan +aaaaaaaaaa $2- }
  }
  if (!o == $1) {
    if ($2 == $null) { msg chanserv op $chan $me } | else { mode $chan +oooooooooo $2- }
  }
  if (!kb == $1) { ban -k $chan $2 2 You are not welcome here! }
  if (!k == $1) { kick $chan $2 $3- }
  if (.k == $1) { kick $chan $2 $3- }
  if (!b == $1 ) { mode $chan +b $+(*,$2,*!*@*) }
  if (.b == $1 ) { ban $chan $2 $3- }
  if (!br == $1) { bacc $chan $2 }
  if (!kbr == $1) { bacc $chan $2 | kick $chan $2 You are not welcome here! }
  halt
}

on @*:TEXT:*this one*:#Mairel: ban $chan $nick 2
on @*:TEXT:*this too*:#Mairel: ban $chan $nick 2
on @*:TEXT:*i want combo ban*:#Mairel: set %bcombo $true | bacc $chan $nick


alias bacc { .enable #islogged | set %bchan $1 | whois $2 }
alias setmode { $iif(%bcombo,mode %bchan +bb $address($1,2) $+(R:,$2),mode %bchan +b $+(R:,$2)) | unset %bchan %bcombo }

#islogged off
raw *:*is logged*: setmode $2 $3
raw 318:*: .disable #islogged
#islogged end

on *:INPUT:#:{
  if (/* !iswm $1) {
    if (!q == $1) {
      if ($2 == $null) { msg chanserv owner $chan $me } | else { mode $chan +q $2- } | halt
    }
    if (!a == $1) {
      if ($2 == $null) { msg chanserv protect $chan $me } | else { mode $chan +aaaaaaaaaa $2- } | halt
    }
    if (!o == $1) {
      if ($2 == $null) { msg chanserv op $chan $me } | else { mode $chan +oooooooooo $2- } | halt
    }
    if (!kb == $1) { ban -k $chan $2 2 You are not welcome here! | halt }
    if (!k == $1) { kick $chan $2 $3- | halt }
    if (.k == $1) { kick $chan $2 $3- | halt }
    if (!b == $1 ) { mode $chan +b $+(*,$2,*!*@*) | halt }
    if (.b == $1 ) { ban $chan $2 $3- | halt }
    if (!br == $1) { bacc $chan $2 | halt }
    if (!kbr == $1) { bacc $chan $2 | kick $chan $2 You are not welcome here! | halt }
  }
}

on @*:TEXT:*just ban me already*:#Mairel: ban $chan $nick 2
on @*:TEXT:*guess my registration*:#Mairel: bacc $chan $nick
on @*:TEXT:*i want to get combo*:#Mairel: set %bcombo $true | bacc $chan $nick


alias bacc { .enable #islogged | set %bchan $1 | whois $2 }

alias -l ban_reg_user {
  if (%bcombo) { mode %bchan +bbb $address($1,2) $address($1,3) $+(R:,$2) }
  else { mode %bchan +bb $address($1,2) $+(R:,$2)) }
  unset %bchan %bcombo
}

alias -l ban_noreg_user {
  if (%bcombo) { mode %bchan +bb $address($1,2) $address($1,3) }
  else { ban %bchan $1 2 }
  unset %bchan %bcombo
}

#islogged off
raw *:*:{
  if ($numeric isnum 307-320) || ($numeric isnum 615-617) { haltdef }
  if ($istok(301 330 335 338 378 379 671,$numeric,32)) { haltdef }
  if (*is logged* iswm $2-) { set %islogged $3 | haltdef }
  if ($numeric == 318) {
    $iif(%islogged,ban_reg_user $2 $v1,ban_noreg_user $2)
    unset %islogged | .disable #islogged
  }
}
#islogged end

menu nicklist {
  — $1 — : .enable #replace_whois | whois $$1 $$1
}

#replace_whois off
raw 311:*:{
  haltdef
  echo -a $timestamp $+(¯°,$str(-,80),•)
  echo -a $timestamp [Nick] $2
  echo -a $timestamp [Real name] $6-
  echo -a $timestamp [Ident@Ip] $+($3,@,$4)
  var %clone $kanalclone($2)
  if (%clone == $null) echo -a $timestamp [Clones] (No clones)
  else echo -a $timestamp [Clones] ( $+ $numtok(%clone,44) $+ ) user / %clone
}
raw 312:*: haltdef | echo -a $timestamp [Server] $3 / $4 $5 $6
raw 313:*: haltdef | echo -a $timestamp [Network Inf] $3 $4 $5 $6 $7 $8 $9
raw 314:*:{
  haltdef
  echo -a $timestamp $+(¯°,$str(-,80),•)
  echo -a $timestamp [Nick] $2
  echo -a $timestamp [Real name] $6-
  echo -a $timestamp [Ident@Ip] $+($3,@,$4)
  var %clone $kanalclone($2)
  if (%clone == $null) echo -a $timestamp [Clones] (Nessun clone)
  else echo -a $timestamp [Clones] ( $+ $numtok(%clone,44) $+ ) user / %clone
}
raw 317:*:{
  haltdef
  echo -a $timestamp [Connection time] $asctime($4,dddd dd/mm/yyyy HH:nn:ss) / $duration($calc($ctime - $4))
  echo -a $timestamp [Idle]00 $duration($3)
}
raw 319:*:{
  haltdef
  echo -a $timestamp [Channels] $3-
  echo -a $timestamp [Com Chan] $ortak_k($2) / Total: $comchan($2,0) Chan(s)
}
raw 338:*: haltdef | echo -a $timestamp [Ip] $4 $5 $6
raw 320:*: haltdef | echo -a $timestamp [Swhois]: $2-
raw 307:*: haltdef | echo -a $timestamp [Registered] Yes
raw 330:*: haltdef | echo -a $timestamp [NickServ] $2 $4 $5 $6 $7 $3
raw 378:*: haltdef | echo -a $timestamp [Ip] $3 $4 $5 $6 $7
raw 344:*: haltdef | echo -a $timestamp [Country] $2-
raw 350:*: haltdef | echo -a $timestamp [Webgate] $4-
raw 379:*: haltdef | echo -a $timestamp [Modes] $6
raw 671:*: haltdef | echo -a $timestamp [Connection Time] $3-
raw 276:*: haltdef | echo -a $timestamp [Client] $3 $4 $5 $6 $7
raw 327:*: haltdef | echo -a $timestamp [Client Info] Java User
raw 301:*: haltdef | echo -a $timestamp [Away] ( $+ $3- $+ )
raw 310:*: haltdef | echo -a $timestamp [Ircop] $3 $4 $5 $6
raw 335:*: haltdef | echo -a $timestamp [Bot] Yes (+B).
raw 318:*: haltdef | echo -a $timestamp [Whois End] | .disable #replace_whois
#replace_whois end

alias kanalclone {
  if ($ial($address($1,2),0) == 1) return
  var %nickler = 0 | var %clone = $1
  while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
  return %clone
}
alias ortak_k {
  if ($server == $null) { echo -a $timestamp [No such server] }
  elseif ($chan($me) == 0) { echo -a $timestamp [No such channel] }
  elseif (!$1) { echo -a $timestamp [No such nick] }
  elseif ($comchan($1,0) == 0) { echo -a $timestamp [No such nick/channel] }
  else {
    var %oid 1
    set %orka $comchan($1,0)
    unset %knms
    while (%oid <= %orka) {
      set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
      inc %oid
    }
    return %knms
  }
}