ForumTEK.Net - IRC Forumu - Eggdrop Bota /Whois Çekildiğin de Özele Bilgi Vermesi...

saywhat Üstadım dan Rica Etmiştim Sağolsun Kırmadı Yapıverdi, Emeklerine Sağlık...

Kod:

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..."