Register Log In

Forums Scripts & Popups I need help on UPTIME.

Print Thread

I need help on UPTIME. #52035 30/09/03 06:59 PM
Joined: Sep 2003 Posts: 30 D DbzDP OP Ameglian cow
OP DbzDP Ameglian cow D Joined: Sep 2003 Posts: 30	on :TEXT:!Ping:#: { ctcp $nick ping \| set %pingchan $chan } on :CTCPREPLY:ping*: { if ($2 isnum) { msg %pingchan 4 $+ $nick your ping reply was:[12 $+ $duration($calc($ctime / $2 )) $+ 4] I am on server:[12 $+ $server $+ 4] } } This works but I want it to reply in MILLISECONDS. Can anyone tell me how it is done please?

Re: I need help on UPTIME. #52036 30/09/03 07:19 PM
Joined: Dec 2002 Posts: 1,922 O Online Hoopy frood
Online Hoopy frood O Joined: Dec 2002 Posts: 1,922	There are two ways to do this, see some examples in the posts made by codemastr and Iori.

Re: I need help on UPTIME. #52037 30/09/03 10:43 PM
Joined: Jul 2003 Posts: 23 R RedAlert Ameglian cow
RedAlert Ameglian cow R Joined: Jul 2003 Posts: 23	Neither of those two examples do what the OP asked for, though... Here's one way to do it: on :TEXT:!Ping:#: { .msg $nick $chr(1) $+ ping $ticks ticks $+ $chr(1) \| set %pingchan $chan } on :CTCPREPLY:ping & ticks:{ if ($2 isnum) { var %d = $calc($ticks - $2) \| msg %pingchan 4 $+ $nick your ping reply was:[12 $+ $iif(%d > 999,$duration($calc(%d / 1000)) 12) $+ $calc(%d % 1000) $+ ms $+ 4] I am on server:[12 $+ $server $+ 4] } }

Re: I need help on UPTIME. #52038 30/09/03 11:01 PM
Joined: Sep 2003 Posts: 30 D DbzDP OP Ameglian cow
OP DbzDP Ameglian cow D Joined: Sep 2003 Posts: 30	The code below works but this is how it comes out "LT-Serve your ping reply was:[2secs 383ms] I am on server:[irc.mircx.com]" I want it to say 0.383seconds. on :TEXT:!Ping:#: { .msg $nick $chr(1) $+ ping $ticks ticks $+ $chr(1) \| set %pingchan $chan } on :CTCPREPLY:ping & ticks:{ if ($2 isnum) { var %d = $calc($ticks - $2) \| msg %pingchan 4 $+ $nick your ping reply was:[12 $+ $iif(%d > 999,$duration($calc(%d / 1000)) 12) $+ $calc(%d % 1000) $+ ms $+ 4] I am on server:[12 $+ $server $+ 4] } }

Re: I need help on UPTIME. #52039 30/09/03 11:06 PM
Joined: Sep 2003 Posts: 30 D DbzDP OP Ameglian cow
OP DbzDP Ameglian cow D Joined: Sep 2003 Posts: 30	SORRY I EDITED TO SAY WHAT I WANT, THANKS FOR THE HELP RedAlert.

Re: I need help on UPTIME. #52040 01/10/03 06:50 AM
Joined: Aug 2003 Posts: 1,831 I Iori Hoopy frood
Iori Hoopy frood I Joined: Aug 2003 Posts: 1,831	Code: alias ping .msg $1- PING $ticks $+ on :TEXT:!Ping:#:ping $nick \| set -u120 %pingchan. $+ $nick # on :CTCPREPLY:ping :{ var %a = $calc(($ticks - $2).001) seconds if $eval($+(%,pingchan.,$nick),2) { msg $ifmatch $+(04,$nick your ping reply was:[12,%a,04] I am on server:[12,$server,04]) unset %pingchan. $+ $nick } else echo $color(ctcp) -seti $+([,$nick PING Reply]:) %a halt } %pingchan.nick is set for 120 seconds, this should be more than enough as with any greater lag they (or you) would probably be reconnecting by then, and enables the var to never be kept on close/exit. This also allows ms ping times for "normal" /ping <nick> commands.

Link Copied to Clipboard