------------------------|
Just load into Remotes.-|
____|

To check you're lag by command to /PsyLag.Check

It also has a menu, and has the aliases needed included.

Can Be used as a Announcer, or as Echo. The Announcing allows:
1.) a Action
2.) A Message
2.)--The Message is set as "lsay" (LagSay) this alias is included.

Upon Loading it will give you a welcome, and set the default "LagCheck" message to "lsay", I have not yet set it to unset any variables as this is a "Rough Draft".

If you have any suggestions let me know!

In Future update:
1.) a !PsyLag command which will message the channel telling them the lag and info for their server.
2.) Unsetting of variables upon unloading/completion of Lag check.
3.) (For those who have a Wallops Bar only) Echoing of Lag events in Wallops Bar.

;-----------------------------------|
;-- PsychoSocial-iRC -[F.E.A.R.]- --|
;----------- Lag System ------------|
;___________________________________|
on *:LOAD: {
 set %Lag.msg lsay
 techo 4P14sycho4S14ocial 9L4ag 9C4hecker 8v1.0 9Loaded.
 techo Thank You For Using 4P14sycho4S14ocial 9L4ag 9C4hecker 8v1.0 4S14cripted 4B14y 14A15u0ro15r14a4.
}

alias techo { echo -a 4 $+ $chr(134) $+ 7Atheism4 $+ $chr(134)9 $1- }
alias lsay {
; echo -a $timestamp 4-7[9L4ag9M4sg 9(07 $+ $me $+ 9)4]-14 $1-
 msg $active 4-[9L4ag9M4sg 9(07 $+ $me $+ 9)4]-14 $1-
}
alias PsyLag.Check {
 Raw Ping Lag. $+ $ticks
 set %Lag.Ticks $ticks
 set %Lag.ctime $ctime
 .enable #Lag.Check
}

#Lag.Check off
on ^*:PONG: {
 haltdef
 if (%Lag.Ticks) && (*Lag* iswm $1-) {
  var %Lag.Lag = $calc($ticks - %Lag.Ticks)
  var %Lag.ktime = $time(hh:nn:ss tt)
  var %Lag.Time = $duration($calc($ctime - %Lag.ctime))
  %Lag.msg 4-[7 $+ $chr(134) 4L14ag 9(07 $+ $server $+ 9(07 $+ $serverip $+ 9)0:14 %Lag.Lag Milisconds ( $+ $calc(%Lag.Lag / 1000) Seconds) 9| (4T14ime 4E14lapsed0:3 %Lag.Time $+ 9)
  .disable #Lag.Check
 }
}
#Lag.Check end

menu * {
-[Lag Check]-
.-[Set Type]-
..-[ $+ $iif(%Lag.Msg = me,$chr(134) $+ me,me) $+ ]-:/set %Lag.Msg me
..-[ $+ $iif(%Lag.Msg = lsay,$chr(134) $+ msg,msg) $+ ]-:/set %Lag.Msg lsay
..-[ $+ $iif(%Lag.Msg = echo,$chr(134) $+ echo,echo) $+ ]-:/set %Lag.Msg echo -a
.-[Check Lag]-:/PsyLag.Check
.-[Advertise]-:/lsay 9I Am Using 4P14sycho4S14ocial 9L4ag 9C4hecker 8v1.0 4S14cripted 4B14y 14A15u0ro15r14a4.
}