on *:TEXT:*:# {
  if ((boo !isin $1-) || (!$read(badchan.txt,s,$chan))) {
    var %nicks2 1
    if ( !$window(@Pings) ) { window -e @Pings }
    while (%nicks2 <= $lines(nicks2.txt)) {
      var %i 1
      while (%i <= $0) {
        if ( $strip($remove($read(nicks2.txt,%nicks2),$chr(45),$chr(44),$chr(58),$chr(46),$chr(91),$chr(93),$chr(33),$chr(63),$chr(60),$chr(51),$chr(60),$chr(62),$chr(40),$chr(41),$chr(96)),burc) == $strip($remove($($+($,%i),2),$chr(45),$chr(44),$chr(58),$chr(46),$chr(91),$chr(93),$chr(33),$chr(63),$chr(60),$chr(51),$chr(60),$chr(62),$chr(40),$chr(41),$chr(96)),burc) ) {
          if ( %ping == on ) {
            beep 1 1
            splay invision\themes\sounds\default\nickspot.wav
          }
          echo @Pings 12«11 $+ $nick 12in11 $chan 12said at11 $timestamp $+ 12» $1- $+ 
          write pinglog.txt $date « $+ $nick in $chan said at $timestamp $+ » $1-
          if ( $chan != $active ) {
            echo -a 12«11 $+ $nick 12in11 $chan 12said at11 $timestamp $+ 12» $1- $+ 
          }
          var %nicks2 $lines(nicks2.txt)
          break
        }
        inc %i
      }
      inc %nicks2
    }
  }
}
on *:ACTION:*:# {
  if ((boo !isin $1-) || (!$read(badchans.txt,s,$chan))) {
    var %nicks2 1
    if ( !$window(@Pings) ) { window -e @Pings }
    while (%nicks2 <= $lines(nicks2.txt)) {
      var %i 1
      while (%i <= $0) {
        if ( $strip($remove($read(nicks2.txt,%nicks2),$chr(45),$chr(44),$chr(58),$chr(46),$chr(91),$chr(93),$chr(33),$chr(63),$chr(60),$chr(51),$chr(60),$chr(62),$chr(40),$chr(41),$chr(96)),burc) == $strip($remove($($+($,%i),2),$chr(45),$chr(44),$chr(58),$chr(46),$chr(91),$chr(93),$chr(33),$chr(63),$chr(60),$chr(51),$chr(60),$chr(62),$chr(40),$chr(41),$chr(96)),burc) ) {
          if ( %ping == on ) {
            beep 1 1
            splay invision\themes\sounds\default\nickspot.wav
          }
          echo @Pings 12«11 $+ $nick 12in11 $chan 12acted at11 $timestamp $+ 12» $1- $+ 
          write pinglog.txt $date « $+ $nick in $chan acted at $timestamp $+ » $1-
          if ( $chan != $active ) {
            echo -a 12«11 $+ $nick 12in11 $chan 12acted at11 $timestamp $+ 12» $1- $+ 
          }
          var %nicks2 $lines(nicks2.txt)
          break
        }
        inc %i
      }
      inc %nicks2
    }
  }
}
on 1:LOAD:/echo -at 4Thanks for loading the Ping Script | /addnick $me | /echo -at 3Add other nicks or delete them using: /addnick /delnick Or list them using /lnick
alias addnick {
  if ($1) {
    if ($2) { echo -at 3Please add 1 nickname at a time. }
    write nicks2.txt $1
    echo -at 3Added $1 to the pings list.
  }
  else { echo -at 3Please use /addnick Nick for this command to work. }
}
alias badchan {
  if (#* iswm $1) {
    if ($2) { echo -at 3Please add 1 channel at a time. }
    write badchan.txt $1 1
    echo -at 3Added $1 to the bad channel list.
  }
  else { echo -at 3Please use /badchan #Channel for this command to work. }
}
alias lchan {
  var %badchan2 1
  echo -at $iif($lines(badchan.txt),3Listing channels on bad chan list:,3There are no channels on the bad chan list.)
  while (%badchan2 <= $lines(badchan.txt)) {
    echo -at 3 $+ $chr(91) $+ %badchan2 $+ / $+ $lines(badchan.txt) $+ $chr(93)  $+ $read(badchan.txt,%badchan2)
    inc %badchan2
  }
}
alias lnick {
  var %nicks2 1
  echo -at $iif($lines(nicks2.txt),3Listing nicks on ping list:,3There are no nicks on the ping list.)
  while (%nicks2 <= $lines(nicks2.txt)) {
    echo -at 3 $+ $chr(91) $+ %nicks2 $+ / $+ $lines(nicks2.txt) $+ $chr(93)  $+ $read(nicks2.txt,%nicks2)
    inc %nicks2
  }
}
alias delchan {
  if (#* iswm $1) {
    if ($2) { echo -at 3Please delete 1 channel at a time. }
    write -ds $+ $1 badchan.txt
    echo -at 3Deleted $1 from the bad channel list.
  }
  else { echo -at 3Please use /delnick #Channel for this command to work. }
}
alias toggleping {
  if ( !%ping ) {
    echo -a Pings have been turned on.
    set %ping on
  }
  else if ( %ping == on ) {
    echo -a Pings are now off.
    set %ping off
  }
  else if ( %ping == off ) {
    echo -a Pings are now on.
    set %ping on
  }
}
alias delnick {
  if ($1) {
    if ($2) { echo -at 3Please delete 1 nickname at a time. }
    write -ds $+ $1 nicks2.txt
    echo -at 3Deleted $1 from the pings list.
  }
  else { echo -at 3Please use /delnick Nick for this command to work. }
}
alias pinglog {
  //echo -at 3To view your ping log, go to Start > Run > $mircdir $+ pinglog.txt alternatly it should open now.
  /open $qt($mircdir $+ pinglog.txt)
}