# Nickini yaz.
set sahip(nick1) "Nick1"
set sahip(nick2) "Nick2"
set sahip(nick3) "Nick3"
set sahip(nick4) "Nick4"
set sahip(nick5) "Nick5"

# Karsilama mesajinda ki iletisim e-mail adresi.
set sahip(mail) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

# Global mesaj.
set sahip(gmesaj1) "Sunucu sahibi (Root administrator) $sahip(nick1) su anda online."
set sahip(gmesaj2) "Sunucu teknik admini olan $sahip(nick2) su anda online."
set sahip(gmesaj3) "Sunucu server admini olan $sahip(nick3) su anda online."
set sahip(gmesaj4) "Sunucu services admini olan $sahip(nick4) su anda online."
set sahip(gmesaj5) "Sunucu ircoperatoru olan $sahip(nick5) su anda online."

###################
# Elleme CISS! :d #
###################
bind raw * notice dikkatsahip:baglandi
proc dikkatsahip:baglandi {from keyword text} {
global botnick sahip
    if {[string match -nocase "*client connecting*" $text]} {
    set nick [lindex $text 9]
    if {[string match -nocase $sahip(nick1) $nick]} { putquick "os global $sahip(gmesaj1)"; return 0 }
    if {[string match -nocase $sahip(nick2) $nick]} { putquick "os global $sahip(gmesaj2)"; return 0 }
    if {[string match -nocase $sahip(nick3) $nick]} { putquick "os global $sahip(gmesaj3)"; return 0 }
    if {[string match -nocase $sahip(nick4) $nick]} { putquick "os global $sahip(gmesaj4)"; return 0 }
    if {[string match -nocase $sahip(nick5) $nick]} { putquick "os global $sahip(gmesaj5)"; return 0 }
    }
}
bind join - * dikkatsahip:karsila
proc dikkatsahip:karsila {nick uhost hand chan} {
global botnick sahip
    if {$nick == $sahip(nick1)} {
    putquick "PRIVMSG $chan :Sunucu sahibi (Root Administrator)"
    putquick "PRIVMSG $chan :$sahip(nick1) su anda $chan kanalina giris yapti."
    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"
    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."
    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."
    }
    if {$nick == $sahip(nick2)} {
    putquick "PRIVMSG $chan :Sunucu teknik admin (Technical Administrator)"
    putquick "PRIVMSG $chan :$sahip(nick2) su anda $chan kanalina giris yapti."
    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"
    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."
    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."
    }
    if {$nick == $sahip(nick3)} {
    putquick "PRIVMSG $chan :Sunucu server admin (Server Administrator)"
    putquick "PRIVMSG $chan :$sahip(nick3) su anda $chan kanalina giris yapti."
    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"
    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."
    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."
    }
    if {$nick == $sahip(nick4)} {
    putquick "PRIVMSG $chan :Sunucu services admin (Services Administrator)"
    putquick "PRIVMSG $chan :$sahip(nick4) su anda $chan kanalina giris yapti."
    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"
    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."
    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."
    }
    if {$nick == $sahip(nick5)} {
    putquick "PRIVMSG $chan :Sunucu ircoperator (IRCop)"
    putquick "PRIVMSG $chan :$sahip(nick5) su anda $chan kanalina giris yapti."
    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"
    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."
    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."
    }
}