ping i çözdüm tek sorun notice olarak atıyo işine yaricak arkadaşlar aşağıdaki komutu kullanabilir ( görmek isteyen arkadaşlarda
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesinde #oyuncu kanalında görebilir )
# TCL Scripts 99 (C) uGLy -
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 :Cok fazla lagdasin $lagg "
putlog "$nick is lagged by $lagg secs"
return 1
}
if {$lagg > "15"} {
putserv "NOTICE $nick :Lagdasin pingin $lagg saniye!"
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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.google_ad_section_end -->