Forums Scripts & Popups CPCP Version

 
on *:START:DMT.Setup
on *:CONNECT:DMT.Setup
on *:CLOSE:@DMT.Debug*:{ .timer 1 0 DMT.Setup }
;
alias DMT.Setup {
  window -ehn @DMT.Debug. [ $+ [ $network ] ]
  .debug -inpt @DMT.Debug. [ $+ [ $network ] ] DMT.Monitor
  unset %DMT.Version.Sent.To.*
}
;
Menu @DMT.Debug.* {
  Total Lines Now $line($active,0) : { }
  -
  Clear Window                     : clear
  -
  Lock Visable                     : window -w $active
  Make Hidden                      : window -h $active
}  
;
alias DMT.Monitor {
  tokenize 32 $1-
  var %nick = $gettok($mid($2,2),1,33)
  if ($1 == <-) && ($3 == PRIVMSG) && ($5 == :
VERSION
) {
    if ( [ [ $+(%,DMT.Version.Sent.To.,%nick) ] ] != $true ) {
      set [ $+(%,DMT.Version.Sent.To.,%nick) ] $true
      .timer 1 10 unset [ $+(%,DMT.Version.Sent.To.,%nick) ]
      ;
      timer 1 1 ctcpreply %nick VERSION Well if you must know its mIRC v $+ $version by Khaled Mardam-Bey (and a damn good version at that!)
      ;
    }
    .ignore -tu1 $mid($2,2)
  }
  return $1-
}