on $*:text:$(/^[!](ping|commands)$/Si):#mIRC: {
if $regml(1) = ping {
mode $me -T
ctcp $nick ping
}
if $regml(1) = commands {
.play $nick play/commands.txt 10
}
}
on 1:ctcpreply:ping*: {
.notice $nick PONG!: $iif($calc($ctime - $2) <= 1,$v1 second.,$v1 seconds.)
mode $me +T
}