/ScriptServ

# ColorPing 0.8+ by BIGDADDY for mIRC5.1+
# Modified by MR_Q
# For More Fun toys For Mirc And Novelty Program, Screen Mates Like Esheep, Neko, topcat
# And Many More. Come visit our NEW home page 
# http://users.leading.net/~wiseman/index.html
# This product colors the nick in the selected channel
# according to its ping reply. Green (<3s) Yellow (3-8) Red (8+)
# ----------
# Updates
#  - Added Various Color patterns
#   --   Holidays, FootBall Teams, Disco!
#  - Added Reset - Now you can reset your nick list back to your specified default
# ----------
# Questions, comments, suggestions -> bigdaddy@free.prohosting.com

menu nicklist {
 Ping
  .Auto Pinger %autop
  ..On :/enable #autop on | set %autop [on]
  ..Off :/disable #autop off | set %autop [off]
  .Ping Chanserv:/ping ChanServ
  .Single Ping:/ctcp $$1 ping   
  .ColorPing: {
     %n = 0
     %tn = $nick(0,$chan)
     :start
     inc %n
     if %n > %tn { %pingchan = $active | %pingnicks = $nick(0,%pingchan) | ping $me $+ , $+ %pingchan | halt }
     else {
       cline 3 $chan %n
       sline -r  $chan %n
       goto start
     }
   }
  .Disco {
    ..Reset: {
       %reset = $readini $mircini colours n0 | %reset = $right(%reset,1)
       %r = 0 | %rr = $nick(0,$chan)
       :start
       inc %r
       if %r > %rr { unset %r | unset %rr | unset %reset | halt }
       else {
         cline %reset $chan %r
         sline -r $chan %r
         goto start
       }
     }
    ..Christmas( [ %c ] ): {
       if %christ == $null { %c = on | %christ = $chan | .timerchrist -m 0 100 $!christ } | else { unset %christ | %c = off | .timerchrist off }
     }
    ..Disco( [ %d ] ): {
       if %disco == $null { %d = on | %disco = $chan | .timerdisco -m 0 100 $!disco } | else { unset %disco | %d = off | .timerdisco off }
     }
    ..Gators( [ %g ] ): {
       if %gator == $null { %g = on | %gator = $chan | .timergator -m 0 100 $!gator } | else { unset %gator | %g = off | .timergator off }
     }
    ..Go Blue( [ %b ] ): {
       if %blue == $null { %b = on | %blue = $chan | .timerblue -m 0 100 $!blue } | else { unset %blue | %b = off | .timerblue off }
     }
    ..Packers( [ %p ] ): {
       if %pack == $null { %p = on | %pack = $chan | .timerpack -m 0 100 $!pack } | else { unset %pack | %p = off | .timerpack off }
     }
    ..USA( [ %u ] ): {
       if %usa == $null { %u = on | %usa = $chan | .timerusa -m 0 100 $!usa } | else { unset %usa | %u = off | .timerusa off }
     }
    ..Valentines( [ %v ] ): {
       if %vale == $null { %v = on | %vale = $chan | .timervale -m 0 100 $!vale } | else { unset %vale | %v = off | .timervale off }
     }
   }
 }
alias -l christ {
  %chr = cline $rand(3,4) %christ $rand(1,$nick(0,%christ))
  return %chr
}
alias -l disco {
  %dis = cline $rand(2,15) %disco $rand(1,$nick(0,%disco))
  return %dis
}
alias -l gator {
  %gr = cline $gettok(7.12,$rand(1,2),46) %gator $rand(1,$nick(0,%gator))
  return %gr
}
alias -l blue {
  %bl = cline $gettok(2.8,$rand(1,2),46) %blue $rand(1,$nick(0,%blue))
  return %bl
}
alias -l pack {
  %pk = cline $gettok(3.8,$rand(1,2),46) %pack $rand(1,$nick(0,%pack))
  return %pk
}
alias -l usa {
  %us = cline $gettok(4.0.12,$rand(1,3),46) %usa $rand(1,$nick(0,%usa))
  return %us
}
alias -l vale {
  %vl = cline $gettok(4.6,$rand(1,2),46) %vale $rand(1,$nick(0,%vale))
  return %vl
}
#Autop off
on 1:text:*ping me*:#:/ctcp $nick ping
on 1:text:*ping pl*:#:/ctcp $nick ping
on 1:text:*my ping*:#:/ctcp $nick ping
on 1:text:*lagged*:#:/ctcp $nick ping
on 1:action:*ping me*:#:/ctcp $nick ping
on 1:action:*ping pl*:#:/ctcp $nick ping
on 1:action:*my ping*:#:/ctcp $nick ping
on 1:action:*lagged*:#:/ctcp $nick ping
on 2:CTCPREPLY:**ping**:  %pt = $ctime - $parm2 | /notice $chan $nick 0,1 Ping-O-Meter | 9,1•••••8,1•••••4,1••4,14•4,15•4,0•14*,15:;14'`1`'14;:15*14,15.4 %pt seconds 5 You Know, We Really Should Stop Meeting Like This. Darn it, You busted my Ping-O-Meter, $nick!!! I'll send you the bill :))  
on 1: CTCPREPLY:PING* {
  if ($parm2 == $null) { halt }
  else {
    %pt = $ctime - $parm2
    %meter = 11,112,113,114,115,11,2
    %sheep2 = %pt / 10
    %sheep1 = %sheep2 + 1
    %sheep = %sheep1 * 5
    %meterping = %pt + %sheep    
    if (%pt < 0) set %pt 0
    if (%pt < 10) {
      echo -a 12[ $+ $nick PING reply]4 $nick 12is not lagged to you : (4 $duration(%pt) 12)
      notice $nick 11,1"8Pong4-8O4-8Meter11"9: $left(%meterping,%meter)    
      notice $nick 1 $+ $nick $+ , your ping time was (4 $duration(%pt) 1) - 4,1
    }
    elseif (%pt < 20  ) {
      echo $active 12[ $+ $nick PING reply] There is a minimal lag to4 $nick 12: (4 $duration(%pt) 12)
      notice $nick 11,1"8Pong4-8O4-8Meter11"9: $left(%meterping,%meter)    
      notice $nick 1 $+ $nick $+ , your ping time was (4 $duration(%pt) 1) - 4,1
    }    
    else {
      echo $active 12[ $+ $nick PING reply]4 $nick 12is 4 Very 12 lagged to you : (4 $duration(%pt) 12)
      notice $nick 11,1"8Pong4-8O4-8Meter11"9: $left(%meterping,%meter)    
      notice $nick 1 $+ $nick $+ , your ping time was (4 $duration(%pt) 1)
      notice $nick 1 I am on the 4** $server **1 server.  Changing to that server will reduce the lag between us. -  4,1  
    }
    halt
  }
}
#autop end