SHOW:
|
|
- or go back to the newest paste.
| 1 | on *:text:!ping*:*: { ctcp $nick ping }
| |
| 2 | on *:text:lag*:*: { ctcp $nick ping }
| |
| 3 | on *:text:*ping*:*: { ctcp $nick ping }
| |
| 4 | on *:ctcpreply:PING*: {
| |
| 5 | if ($2 == $null) halt | |
| 6 | else {
| |
| 7 | %pt = $ctime - $2 | |
| 8 | if (%pt < 0) set %pt 0 | |
| 9 | if (%pt > 35) .notice $nick 14 Your ping was real bad!:12 $duration($calc($ctime - $2)) | |
| 10 | .notice $nick 0,14 Your ping reply was 0,4 $str($chr(124),%pt) $+ $+ $str($chr(124),$calc(35 - ($ctime - $2))) 0,12 $duration($calc($ctime - $2)) | |
| 11 | } | |
| 12 | halt | |
| 13 | } |
