############################################
## FunPing.TcL v1.0 Edited By Pagat       ##
##   Sep 2009, david natanael	  	  ##
## #sangatta@allnetwork.org 		  ##
############################################

## Fitur:
## + Komentar dinamis terhadap lag sesuai dg level
## + Proteksi terhadap eksekusi perintah yang tak diinginkan pada CTCP reply (Contoh: [adduser])
## + Level lag bisa di-set

###################
##[ KONFIGURASI ]##
###################
set mode_pesan 0 ;# 0 (Channel), 1 (Query)
set fp(normal) 5 ;# Batas normal, masih aman
set fp(sedang) 10 ;# Batas sedang, lebih dari ini dinyatakan lag parah :P
##############
##[ Chanel ]##
##############
#Channel yang di welcome, pisahkan dengan spasi
set pongchan { #parepare #sangatta }
##################
##[ PESAN PONG ]##
##################
# <nick> - Nick, <durasi> - Durasi dalam detik
set pong_normal {
"Pong <nick> hanya <durasi> :-)"
"Tenang <nick>..! Cuma <durasi> kok :-)"
"Seep..<nick> menurut pagat ga lag kok, cuma <durasi> :-)"
"Mantap <nick>! <durasi> aja :-)"
"<durasi> kok <nick> ;-)"
"Weleh! Ga usah pang ping mulu napa <nick>? Mnurut Nyonya CiNdy cuman <durasi> kok ;-)"
"Pung pung pung <nick>.. ew cuma <durasi> ;-)"
"<nick> masih normal kok. <durasi> tuh ;-)"
"Balasan <nick> OK! <durasi> ;-)"
}
set pong_sedang {
"<durasi> lumayan deh buat <nick> :-|"
"Ew.. Lagnya <nick> <durasi> :-|"
"Hadah.. si <nick> udah mulai ngelag <durasi> nich mkax Isikan Pagat plsa.. :-|"
"wew.. <nick> telat <durasi> :-|"
"kekeke.. hati2 dengan <durasi> itu <nick> :-D"
"gegege.. <nick> udah mulai ga normal dg lag <durasi> nih :-D"
"hmm.. udah <durasi> <nick>.. :-D"
}
set pong_lag {
"Hayah <nick>! Pongnya <durasi> mampus aja sekalian.. wkwkwk.. (G)"
"Wakz!! Lag <nick> <durasi> ??? cape dee.. :-P"
"<nick> telat <durasi>. Jiakakakak.. (G)"
"Wkwkwkw.. DC-in aja deh <nick>. Lagnya udah <durasi> (G)"
"wetew.. kagak salah tuh <nick> <durasi> cucian deh elo? :-P"
"hihihihi..<nick> udah mau DC dg lag <durasi> :-P"
"gagagaga.. <nick> mending ganti server.. lagmu <durasi> :-P"
"wekz.. <nick> masih bisa bertahan dg lag <durasi> :-P"
"Buset.. <nick> Gilingan bangetz <durasi>.. wakakakak.. (G)"
}

###############
##[ BINDING ]##
###############
bind pub * !ping ping_saya
bind pub * ping ping_saya
bind ctcr * PING balasan_ping

################
##[ PROSEDUR ]##
################
proc ping_saya {nick uhost hand chan txt} {
  global pnick pchan pongchan
  foreach x $pongchan {
    set x [string toupper $x]
    set chan [string toupper $chan]
  if {[string match "$x" $chan]} {
  set txt [string toupper $txt]
  if {$txt == "" || [string match "#*" $txt]} {
    puthelp "NOTICE $nick :Penggunaan: ping <me/nick>"
    return 0
  } elseif {$txt == "ME"} {
    putserv "PRIVMSG $nick :\001PING [unixtime]\001"
    set pnick $nick
    set pchan $chan
    return 1
  } else {
    putserv "PRIVMSG $txt :\001PING [unixtime]\001"
    set pnick $nick
    set pchan $chan
    return 1
  }
}
}
}
proc balasan_ping {nick uhost hand dest key txt} {
  global botnick mode_pesan fp pong_normal pong_sedang pong_lag pnick pchan
  if {[string match {*[a-z]*} $txt] || [string match {*[A-Z]*} $txt] } {
    putlog "Balasan ping ga valid!"
    return 0
  }
  if {$nick != $botnick} {
    set durasi "[expr [unixtime] - $txt]"
    if {$durasi < $fp(normal)} {
      set komentar [lindex $pong_normal [rand [llength $pong_normal]]]
    } elseif {$durasi < $fp(sedang)} {
      set komentar [lindex $pong_sedang [rand [llength $pong_sedang]]]
    } else {
      set komentar [lindex $pong_lag [rand [llength $pong_lag]]]
    }
    regsub -all "<nick>" $komentar "$nick" komentar
    regsub -all "<durasi>" $komentar "$durasi detik" komentar
    if { $mode_pesan == 0 } {
      putserv "PRIVMSG $pchan :$komentar"
    } else {
      putserv "PRIVMSG $pnick :$komentar"
    }
  }
}

################################################################
putlog "ping.tcl By Pagat"
################################################################