IPKO protection for niemand v1.0

ON *:TEXT:*:#opers: { ; by westor on 1695133759
  tokenize 32 $strip($1-)

  if ($1 !== !ipko) { return }
  if (!$2) { msg $chan ( $+ $nick $+ ): Use an option, ON or OFF to continue! | return }
  if (!$istok(on off,$2,32)) { msg $chan ( $+ $nick $+ ): Use only ON or OFF option! | return }

  if ($2 == ON) {
    if (%ipko) { msg $chan ( $+ $nick $+): IPKO protection is already enabled! | return }

    set %ipko 1

    msg $chan ( $+ $nick $+ ): IPKO protection has been enabled.
  }

  if ($2 == OFF) {
    if (!%ipko) { msg $chan ( $+ $nick $+): IPKO protection is already disabled! | return }

    set %ipko 0

    msg $chan ( $+ $nick $+ ): IPKO protection has been disabled.
  }

}

ON *:SNOTICE:*: { ; by westor on 1695133759
  if (!%ipko) { return }

  tokenize 32 $strip($1-)

  if (*webirc-users* iswm $gettok($1-,$findtok($1-,[security-groups:,1,32) $+ -,32)) { return }

  var %nick = $4
  var %ip = $remove($6,[,])

  if (%nick == $me) { return }

  if (46.99.* !iswm %ip) { return }

  var %file = shitnicks.txt
  var %read = $read(%file,nw,%nick)

  if (%read) { return }

  tempshun + $+ %nick [IPKO]: This user has been temporary shunned!

  msg #opers [IPKO]: Nickname $qt(%nick) with $qt(%ip) has been temporary shunned.
}