Ping System

;########################
;# Ping System By Wann#
;########################

alias pingscript {
dialog -m _pingscript _pingscript
}

dialog _pingscript {
title "Ping Reply By wann"
size -1 -1 150 90
box "" 1, 1 -3 149 90
button "On" 2, 3 4 75 20,left push flat group
button "Off" 3, 79 4 70 20,left push flat
button "!Ping Nickname" 4, 3 23 146 36,left push flat
button "Ok" 5, 3 58 75 28,ok flat
button "Cancel" 6, 79 58 70 28,cancel flat
halt
}

on *:load: { .echo -a Ping Script Loaded! }
on *:unload: { .echo -a Ping Script Unloaded! }

menu status,channel,menubar {
Ping System:/pingscript
}

on 1:dialog:_pingscript:sclick:2:{ if ($did(2) == On) .enable #pingscript | echo -a Ping Script Is 4On }
on 1:dialog:_pingscript:sclick:3:{ if ($did(3) == Off) .disable #pingscript | echo -a Ping Script Is 4Off }
on 1:dialog:_pingscript:sclick:4:{ ctcp $$?="Please Enter Nickname:" ping }

#pingscript on

on *:text:!ping:#: { ctcp $nick ping | notice $nick Ping $nick }
on *:CtcpReply:ping*: { notice $nick Your Ping Reply Is $calc($ctime - $2) $- Seconds %vers ™ }

#pingscript end