###################################################################
##                                                               ##
##         ooo        ooooo           oooooooooo.   o8o          ##
##         `88.       .888'           `888'   `Y8b  `"'          ##
##          888b     d'888   .ooooo.   888     888 oooo          ##
##          8 Y88. .P  888  d88' `88b  888oooo888' `888          ##
##          8  `888'   888  888   888  888    `88b  888          ##
##          8    Y     888  888   888  888    .88P  888          ##
##         o8o        o888o `Y8bod8P' o888bood8P'  o888o         ##
##                                                               ##
##  File Name: ping.tCL date: 06 November 2004                   ##
##  Has Been Ripper by MoBi aka PUPEN                            ##
##  Email: mobi@internux.web.id                                  ##
###################################################################
#****************************************************************************************************************************
##  ping TcL special made for #H4_Kim Bots ##
##  02/13/2003 05:31:18
#****************************************************************************************************************************
#****************************************************************************************************************************
## [ Start ] ##
#****************************************************************************************************************************

bind pub - !ping ping_me
bind pub - ping ping_me
bind ctcr - PING ping_me_reply

proc ping_me {nick uhost hand chan arg} {
     global pingchan pingwho
     set arg [string toupper $arg]
     if {$arg == "" || [string match "#*" $arg]} {
          puthelp "NOTICE $nick :Usage: ping <nick atau me untuk mendapatkan ping>"
          return 0
     } elseif {$arg == "ME"} {
          putserv "PRIVMSG $nick :\001PING [unixtime]\001"
          set pingwho 0
          return 1
     } else { 
          putserv "NOTICE $arg :\001PING [unixtime]\001"
          set pingwho 1
          set pingchan $chan
          return 1
     }
}

proc ping_me_reply {nick uhost hand dest key arg} {
     global pingchan pingwho
     if {$pingwho == 0} {
          puthelp "NOTICE $nick :15\[ping4!15\] RepLy Lag Kamu: [expr [unixtime] - $arg] detik."
          return 0
     } elseif {$pingwho == 1} {
          puthelp "NOTICE $nick :15\[ping4!15\] RepLy Lag Kamu: [expr [unixtime] - $arg] detik."
          return 0
     }
}

#****************************************************************************************************************************
## [ End ] ##
#****************************************************************************************************************************


putlog "ping TcL Loaded.....by H4_Kim!!"