Перейти к содержимому


Фотография

CTCP PING в миллисекундах для mIRC


  • Авторизуйтесь для ответа в теме
В этой теме нет ответов

#1 Xam

Xam

    Активный участник

  • Администратор
  • 76 сообщений
  • Пол:Мужчина

Отправлено 27 мая 2008 - 22:42

Скопируйте этот код в Alt+R:
; Millisecond Pinger snippet by eXonyte
; Type /mping <nickname> to ping someone in milliseconds instead of seconds.
; Also attempts to maintain compatibility with normal /ctcp <nick> PING replies,
; and will display the text normally if someone replies with text instead of a number.

; Alias to send a millisecond ping
alias mping {

 ; Sends the actual ping as a raw
  .raw PRIVMSG $$1 : $+ $chr(1) $+ PING $ticks $+ $chr(1)

 ; Echoes a CTCP PING lookalike to the active window
  echo $colour(ctcp) -t $+ $iif($active == Status Window,se,a) -> [[ $+ $$1 $+ ]] PING
}

; Handles CTCP PING replies
on *:CTCPREPLY:PING*: {

 ; If the reply isn't a number, let mIRC handle it
  if ($2 !isnum) { return }

 ; If the current $ticks minus the reply is greater than 0
  if ($calc($ticks - $2) > 0) {

   ; Echo the ping reply to the active window
	echo $colour(ctcp) -at $+ $iif($active == Status Window,e) [[ $+ $nick PING reply]: $calc(($ticks - $2)/1000) $+ secs

  ; And halt so that mIRC doesn't show its own ping reply
	halt
  }
}
Использовать командой /mping ник, можно также вписать его в привычный попапс, заместо стандартного.

CTCP
.Ping:/mping $$1


Выгдядет примерно так:

[02:32:42] -> [ChanServ] PING
[02:32:42] [ChanServ PING reply]: 0.094secs



Автор © Yardiff
Xam,
irc://irc.ircnet.su




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных