;-----------------------------------|
;-- 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.
}

Commenting Options