on *:TEXT:!ping*:#: {
.raw PRIVMSG $2 : $+ $chr(1) $+ PING $ticks $+ $chr(1)
}

on *:ctcpreply:ping*: {
if ($2 isnum) {
 set %ping $calc(($ticks - $2) / 1000)
 .notice $nick Pingreply from $nick :( $+ %ping $+ secs) with the Server:( $+ $server $+ ) 

}
}