ProteggiNet.mrc

######################
# Script by Dragone2 #
######################
alias defcon {
  if (%protegginet. [ $+ [ $network ] ] != 1) { set %protegginet. [ $+ [ $network ] ] 1 | echo -a 4ATTENZIONE: Modalità di protezione del network attivata - (Funge solo con Anope IRC Services e se sei IRCop con accesso al canale di logs) }
  else { set %protegginet. [ $+ [ $network ] ] 0 | echo -a Modalità di protezione del network disattivata! }
}

alias -l raiseerror {
  if (!$line($active,0)) { linesep -a }
  echo $colour(info) -a $1-
  linesep -a
  halt
}

alias split {
  if (($1 == -c) && ($0 < 2)) || (($1 != -c) && ($0 < 3)) { raiseerror * /split: Insufficient parameters }
  var %c, %g, %i = 1, %name = $iif($1 == -c,$2,$v1)
  if ($1 == -c) { var %c = $true }
  .alias %name $+ 0
  while ($isalias(%name $+ %i)) {
    .alias %name $+ %i
    %g = %i + 1
    while ($isalias($+(%name,%i,-,%g))) {
      .alias $+(%name,%i,-,%g)
      inc %g
    }
    .alias $+(%name,%i,-)
    inc %i
  }
  %i = %i - 1
  while (%i) {
    .alias $+(%name,-,%i)
    dec %i
  }
  if (!%c) {
    %i = 1
    tokenize 13 $replace($3-,$2,$cr)
    while ($eval($ $+ %i,2) != $null) {
      if (%i < $0) {
        %g = %i + 1
        while ($eval($ $+ %g,2) != $null) {
          .alias $+(%name,%i,-,%g) return $eval($+($,%i,-,%g),2)
          inc %g
        }
      }
      .alias $+(%name,%i) return $eval($ $+ %i,2)
      .alias $+(%name,%i,-) return $eval($+($,%i,-),2)
      inc %i
    }
    %i = %i - 1
    .alias %name $+ 0 return %i
    while (%i) {
      inc %c
      .alias $+(%name,-,%c) return $eval($ $+ %i,2)
      dec %i
    }
  }
}

;UnrealIRCd 4.0
on *:SNOTICE:*Client connecting*: {
  if ($me !isin $1-) && (%protegginet. [ $+ [ $network ] ] == 1) {
    set %glinea $5
    /split n @ %glinea
    if (.it !isin $n2) && (127.0.0.1 !isin $n2) && (localhost !isin $n2) && (192.168 !isin $n2) { /gline *@ $+ $left($n2,-1) 0 Auto-Ban by %logo $+  | .timerprotegginet1 1 600 unset %protegginet. [ $+ [ $network ] ] | .timerprotegginet2 1 600 echo -a Modalità di protezione per $network disattivata automaticamente. }
  }
}
;UnrealIRCd 3.2.X - Locale
on *:SNOTICE:*Client connecting on port*: {
  if ($me !isin $1-) && (%protegginet. [ $+ [ $network ] ] == 1) {
    set %glinea $10
    /split n @ %glinea
    if (.it !isin $n2) && (127.0.0.1 !isin $n2) && (localhost !isin $n2) && (192.168 !isin $n2) { /gline *@ $+ $left($n2,-1) 0 Auto-Ban by %logo $+  | .timerprotegginet1 1 600 unset %protegginet. [ $+ [ $network ] ] | .timerprotegginet2 1 600 echo -a Modalità di protezione per $network disattivata automaticamente. }
  }
}
;UnrealIRCd 3.2.X - Remoto
on *:SNOTICE:*Client connecting at *: {
  if ($me !isin $1-) && (%protegginet. [ $+ [ $network ] ] == 1) {
    set %glinea $9
    /split n @ %glinea
    if (.it !isin $n2) && (127.0.0.1 !isin $n2) && (localhost !isin $n2) && (192.168 !isin $n2) { /gline *@ $+ $left($n2,-1) 0 Proxy }
  }
}
on *:TEXT:*:#: {
  if ($nick == Global) && (USERS: == $1) && (%protegginet. [ $+ [ $network ] ] == 1) && ($me !isin $1-) { /split n @ $2 | if (.it !isin $n2) && (127.0.0.1 !isin $n2) && (localhost !isin $n2) && (192.168 !isin $n2) { /os akill add +0 *@ $+ $n2 Auto-Ban by %logo $+  | .timerprotegginet 1 600 unset %protegginet. [ $+ [ $network ] ] } }
}