Unnamed

On $*:text:/^[!@.~]pl/Si:#ana:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (!$2) {
      notice $nick Syntax: [!@.~]pl PureRSN - Please do not use - or _ in the RSN though
      halt
    }
    if (*_* iswm $2) || (*-* iswm $2) {
      notice $nick Please do not use - or _ in the nick, eg !pl blah blahy not !pl blah_blahy
    }
    else {
      if ($read(purenicks.txt, w, $replace($2-,$chr(32),_))) || ($read(purenicks.txt, w, $2)) {
        notice $nick ' $+ $2- $+ ' is already written in the pure list database 
      }
      else {
        if (* $+ $chr(32) $+ * iswm $2-) {
          write purenicks.txt $replace($2-,$chr(32),_)
          write purenicks.txt $replace($2-,$chr(32),-)
          write purenicks.txt $($+(,$chr(91),$replace($2-,$chr(32),-),$chr(93)))
          write purenicks.txt $($+(,$chr(91),$replace($2-,$chr(32),_),$chr(93)))
          notice $nick $replace($2-,$chr(32),_) $+ , $replace($2-,$chr(32),-) $+ , $($+(,$chr(91),$replace($2-,$chr(32),-),$chr(93))) and $($+(,$chr(91),$replace($2-,$chr(32),_),$chr(93))) have been added to a pure RSN database
        }
        elseif (* $+ $chr(32) $+ * !iswm $2-) {
          echo -a ya
          write purenicks.txt $2
          write purenicks.txt $($+($chr(91),$2,$chr(93)))
          notice $nick $2 and $($+($chr(91),$2,$chr(93))) been added to a pure RSN database
        }
      }
    }
  }
}
On $*:text:/^[!@.~]delpl/Si:#ana:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (!$2) {
      notice $nick Syntax: [!@.~]delpl purename [Please do not use - or _ in the RSN though]
      halt
    }
    if (*_* iswm $2) || (*-* iswm $2) {
      notice $nick Please do not use -/_ in the nick, eg !pl blah blahy not !pl blah_blahy
      halt
    }
    else {
      if ($read(purenicks.txt, w, $replace($2-,$chr(32),_))) || ($read(purenicks.txt, w, $2)) {
        if (* $+ $chr(32) $+ * iswm $2-) {
          write -ds $+ $replace($2-,$chr(32),_) purenicks.txt
          write -ds $+ $replace($2-,$chr(32),-) purenicks.txt
          write -ds $+ $($+(,$chr(91),$replace($2-,$chr(32),-),$chr(93))) purenicks.txt
          write -ds $+ $($+(,$chr(91),$replace($2-,$chr(32),_),$chr(93))) purenicks.txt
          notice $nick $replace($2-,$chr(32),_) $+ , $replace($2-,$chr(32),-) $+ , $($+(,$chr(91),$replace($2-,$chr(32),-),$chr(93))) and $($+(,$chr(91),$replace($2-,$chr(32),_),$chr(93))) have been Deleted from the pure RSN database
          halt
        }
        elseif (* $+ $chr(32) $+ * !iswm $2-) {
          write -ds $+ $2 purenicks.txt
          write -ds $+ $($+($chr(91),$2,$chr(93))) purenicks.txt
          notice $nick $2 and $($+($chr(91),$2,$chr(93))) have been Deleted from the pure RSN database
          halt
        }
        if (!$read(purenicks.txt, w, $replace($2-,$chr(32),_))) || (!$read(purenicks.txt, w, $2)) {
          notice $nick ' $+ $2- $+ ' is NOT WRITTEN in the pure list database
          halt
        }
      }

    }
  }
}
On $*:text:/^[!@.~]track/Si:#ana:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (!$2) {
      notice $nick Syntax: [!@.~]track {All $chr(124) PureRSN}
      halt
    }
    if (*_* iswm $2) || (*-* iswm $2) {
      notice $nick Please do not use - or _ in the nick, eg !pl blah blahy not !pl blah_blahy
      halt
    }
    if ($2) && ($2 != all) {
      set %nick.track yes
      set %output.ip msg #ana
      userhost $replace($2-,$chr(32),_)
      userhost $replace($2-,$chr(32),-) 
      userhost $($+(,$chr(91),$replace($2-,$chr(32),-),$chr(93)))
      userhost $($+(,$chr(91),$replace($2-,$chr(32),_),$chr(93)))
      timer 1 1 unset %nick.track yes
      timer 1 1 unset %output.ip msg #ana
    }
    if ($2) && ($2 == all) {
      if ($lines(purenicks.txt) == 0) {
        msg #ana No pure nicks in the pure list database
        halt 
      }
      else {
        set %lines $lines(purenicks.txt)
        set %output.ip msg #ana
        set %nick.track yes
        %output.ip Scanning starting... Attempting to track a total of %lines pure nicks
        var %x = 1
        while (%x <= %lines) {
          if ($read(purenicks.txt, %x) != $null) {
            userhost $read(purenicks.txt, %x)
            inc %x
          }
          else {
            unset %nick.track
          halt }
        }
      }
    }
  }
}

raw 302:*: { 
  if (%nick.track == yes) {
    tokenize $asc(=) $2-
    if ($1- != $null) {
      %output.ip [PureFound] $1 is on SwiftIRC. Hostmask: $2-
    }
  }
}