IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Temmuz 2016, 14:24   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Kayitsiz Rumuz Karsilama TCL


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############## # 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 ! :) # ##############

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############## # 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 ! :) # ##############

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
karsilama, kayitsiz, rumuz, tcl
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık