| immortaL | 02 Temmuz 2016 14:24 |
Kayitsiz Rumuz Karsilama TCL
Kod:
##############
# BASLA ! :) #
##############
# Ozele iletilecek mesajlari belirtin.
set xox(mesaj) {
"Mesaj 1"
"Mesaj 2"
"Mesaj 3"
"Mesaj 4"
"Mesaj 5"
}
##############
# CISS ! :) #
##############
bind raw * notice giris:kontrol
proc giris:kontrol {from keyword text} {
global botnick
if {[string match -nocase "*client connecting*" $text]} {
set rumuz "[lindex $text 9]"
bind notc - * kayit:kontrol
putquick "PRIVMSG NickServ :INFO $rumuz"
}
}
proc kayit:kontrol {nick uhost hand text dest} {
global botnick xox
if {$nick == "NickServ"} {
if {[string match -nocase "*kay?tl?*deg?l*" $text]} {
set rastgelemesaj "[lindex $xox(mesaj) [rand [llength $xox(mesaj)]]]"
set noticerumuz "[lindex [stripcodes bcru $text] 0]"
utimer 10[list putquick "PRIVMSG $noticerumuz :$rastgelemesaj"]
unbind notc - * kayit:kontrol
} else {
unbind notc - * kayit:kontrol
}
}
}
##############
# BITTI ! :) #
##############
| 