R-Lagg

By Aurora801 on Aug 20, 2009

Paste in remotes, used by menus. :]

;|||||||||||||||||||||||||||||||||

;|| -[-|R-Lagg|-]- |\-Ver. 1-/| ||

;|||||||||||||||||||||||||||||||||

on *:START: { lecho 9Loaded14. }

alias lecho { echo -a 4|7\0-4R9-4L7agg0-7/4| $1- }

alias Lagg {

  set %lag.Ticks $ticks

  set %Lag.Server $server

  .raw Ping Lagg. $+ $ticks

}

alias lsay { tsay 4|7\0-4R9-4L7agg0-7/4| $1- }

alias ladvertise { tsay 9I 9A7m 7U4sing 4|7\0-4R9-4L7agg0-7/4| $S-cript }

on *:PONG: {

  haltdef

  if (*Lagg* iswm $1-) {

    %Lag.Lagg = $calc($ticks - %Lag.Ticks)

    if (%Lag.Lagg > 2000) { set %Color 4 }

    elseif (%lag.Lagg >= 500) { set %color 7 }

    elseif (%Lag.Lagg < 500) { set %Color 9 }

    lsay 0-|4L7ag 0For14 $server $iif($network,$network) 0Is: $+ %color %Lag.Lagg 0Miliseconds 9( $+ %color $calc(%Lag.Lagg / 1000) 0Seconds $+ 9)

  }

}

menu channel,query {

  |\-R-Lagg-/|

  .||-Check Now-||:/Lagg

  .||-Advertise-||:/ladvertise

}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.