set actReplies { 
   {hei $nick, jangan main selap selap gini dong ah..} 
   {ish..., $nick main timpuk-timpukan aja yuk...} 
   {hai $nick, kangen yak?} 
   {$nick naksir ya ?}
   {eh $nick butuh apa nih ? tanda tangan apa foto ?}
 } 

 bind ctcp - ACTION rep_act 

 proc rep_act {nick uhost hand dest key text} { 
   global botnick actReplies brb_msg 
    
   if {$dest eq $botnick && ![validchan $dest]} { return 0 } 
   if {[string match "slaps $botnick*" $text]} { 
      set repact [lindex $actReplies [rand [llength $actReplies]]] 
      puthelp "PRIVMSG $dest :[subst -nocommands $repact]" 
   } 
 } 



bind pub - !ayochat stats:cmd:uptime 
proc stats:cmd:uptime {nick uhost handle channel text} { 
   global server_stats 
   file delete uptimefile
   putserv "STATS u khunthien.fr.eu.ayochat.or.id" 
   putserv "STATS u ircbook.px.us.ayochat.or.id" 
   putserv "STATS u myQuran.newportbeach.ca.ayochat.or.id" 
   putserv "STATS u indoforum.paris.fr.ayochat.or.id" 
   putserv "STATS u telkom.la.us.ayochat.or.id" 
   putserv "STATS u velo.ayochat.or.id"
   putserv "STATS u snoop.ca.ayochat.or.id"
   putserv "STATS u rndc.bekasi.ayochat.or.id"
   putserv "STATS u plasa.la.us.ayochat.or.id"
   putserv "STATS u ds.my.ayochat.or.id"
   putserv "STATS u gorontalo.fr.eu.ayochat.or.id"
   putserv "STATS u cam.ayochat.or.id"
   putserv "STATS u kalilinux.ca.us.ayochat.or.id"
} 
bind raw - 242 stats:raw:242 
proc stats:raw:242 {from keyword text} { 
   global server_stats 
   set server_stats(text) "$from:[lindex [split [lrange $text 3 end] " "] 0]" 
        set fd [open "uptimefile" a] 
        puts $fd $server_stats(text) 
        close $fd 
} 
   unset -nocomplain server_stats(text)