##############################################################################################
# Basari Hosting Internet Hizmetleri - Dürüstlük simgemizdir. Önce güven!                    #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">bind pub - "ping" pub_ping
proc pub_ping {nick uhost hand chan arg} {
  putserv "PRIVMSG $nick :\001PING [unixtime]\001"
  putlog "!ping received from $nick"
  return 0
}

bind ctcr - PING lag_reply
proc lag_reply {nick uhost hand dest key arg} {
  if {$key == "PING"} {
    set endd [unixtime]
    set lagg [expr $endd - $arg]
    if {$lagg > "30"} {
      putserv "NOTICE $nick :4C2ok 4f2azla 4l2agdasin3 $lagg "
      putlog "$nick is lagged by $lagg secs"
      return 1
    }
    if {$lagg > "15"} {
      putserv "NOTICE $nick :4L2agdasin 4p2ingin14:3 $lagg 4s2aniyedir."
      putlog "$nick is lagged by $lagg secs"
      return 1
    }
    putserv "NOTICE $nick :Ping'in idare eder pingin $lagg"
    putlog "$nick is lagged by $lagg secs"
  }
}

bind ctcp - PING ping_resp
proc ping_resp {nick uhost hand botnick key arg} {
  if {$key == "PING"} {
    putserv "NOTICE $nick :Ping icin Tesekkurler."
  }
}