No_FeaR
23 Mart 2015, 20:36
saywhat Üstadım dan Rica Etmiştim Sağolsun Kırmadı Yapıverdi, Emeklerine Sağlık...
set rapor "#rapor-kanal"
set zaman [clock format [clock seconds] -format "%Y.%m.%d %A %H:%M:%S"]
bind raw * NOTICE snotice
proc snotice {from key arg} {
if {![string match -nocase "*whois on you*" $arg] \
&& [string match *!*@* $from]} { return 0 }
set nick [lindex [split $arg] 2]
set host [lindex [split $arg] 3]
set ident [lindex [split $host @] 0]
set uhost [lindex [split $host @] 1]
set zmn [string map -nocase {
"Sunday" "Pazar" "Monday" "Pazartesi" "Tuesday" "Salı"
"Wednesday" "Çarşamba" "Thursday" "Perşembe"
"Friday" "Cuma" "Saturday" "Cumartesi"} $::zaman]
puthelp "PRIVMSG $nick :Merhaba Ben $::botnick"
putserv "PRIVMSG $::rapor :$zmn Nick:$nick Ident:$ident Host:$uhost who çekti."
return 0
}
putlog "ok..."
set rapor "#rapor-kanal"
set zaman [clock format [clock seconds] -format "%Y.%m.%d %A %H:%M:%S"]
bind raw * NOTICE snotice
proc snotice {from key arg} {
if {![string match -nocase "*whois on you*" $arg] \
&& [string match *!*@* $from]} { return 0 }
set nick [lindex [split $arg] 2]
set host [lindex [split $arg] 3]
set ident [lindex [split $host @] 0]
set uhost [lindex [split $host @] 1]
set zmn [string map -nocase {
"Sunday" "Pazar" "Monday" "Pazartesi" "Tuesday" "Salı"
"Wednesday" "Çarşamba" "Thursday" "Perşembe"
"Friday" "Cuma" "Saturday" "Cumartesi"} $::zaman]
puthelp "PRIVMSG $nick :Merhaba Ben $::botnick"
putserv "PRIVMSG $::rapor :$zmn Nick:$nick Ident:$ident Host:$uhost who çekti."
return 0
}
putlog "ok..."