IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Bot kanala giriyor geri düşüyor. (https://www.ircforumlari.net/tcl-scriptler/836316-bot-kanala-giriyor-geri-dusuyor.html)

Cevap: Bot kanala giriyor geri düşüyor.

Kod:

####################################################################################

# amaç : sunucuya girenleri istenilen bir kanala sokmak:

# istenilen süre geçtikten sonrada diğer kanal/lara yollamak

# tabi bu arada bekletildikleri kanaldan da çıkacaklar....

####################################################################################
 

# girişte kullanıcıların çekileceği kanal:

set control(chan) "#Karantina"
 

# bekletildikten sonra,hangi kanal/lara gönderilecekler:

set control(globchans) "#Sohbet,#Radyo,#Oyun,#Kelime,#Yarisma,#OXM,#Moos"
 

# bekletilme süreleri(saniye olarak):

set control(sure) "6"
 

# kontrol kanalına çekilen kullanıcı/lara göndermek istediğiniz mesaj:

set control(msj) "2Hos geldiniz 4$nick 2Guvenlik taramasindan  geciyorsunuz Global kanallara aktarilacaksiniz sabriniz icin tesekkur  ederiz."
 

# kontrol kanalına çekilen kullanıcı/lara ne kadar süre sonra mesaj atılacak(saniye)

set control(msjzmn) "2"
 

# mesaj iletim yöntemi ne olacak(özele mesaj mı -> privmsg/notice mi):

set control(ilet) "notice"
 

# kullanıcı sunucuya girişinde yakalanacak notice mesajı nedir:

set control(notc) "*client connecting*"
 

# sajoin için sizin oralarda ne kullanılır:

set control(sjoin) "sajoin"
 

# peki sapart için ne kullanırsınız:

set control(spart) "sapart"
 

#########################ayarlar bitti##############################################
 

bind raw - notice well:come
 

proc well:come {from key arg} {

    global control

    # global komutuyla prosedür içinde "global namespace variable"  olmaktan çıkıp,"local variable" olarak kullanılabilir :: kullanmaya  gerek kalmaz!

    if {[string match -nocase "*!*@*" $from] || ![string match -nocase $control(notc) $arg]} { return 0 }

    #set nick [lindex [split $arg] 9]

    # : işaretinden böl ( [split $arg :] ), 1. parçasının,ilk kelimesini al! ( lindex .... 1 0 )

    set nick [lindex [split $arg :] 1 0]

    if {[isbotnick $nick]} { return }

       putquick "$control(sjoin) $nick $control(chan)"

       utimer $control(msjzmn) [list putquick "$control(ilet) $nick :$control(msj)"]

    foreach c $control(globchans) {

        utimer $control(sure) [list putserv "$control(spart) $nick $control(chan)"]

        utimer $control(sure) [list putserv "$control(sjoin) $nick $c"]

    }

    return 0

}
 

 putlog "yuklendi..."

Not:
Koda Baktıkça , Yazım Hataları Görüyorum!
Gördükçe Düzeltiyorum Forum Üstünde...
Sanırım Daha Kalmadı,Hepsi Düzeltildi!

Kod İlk Postalandığında ;
utimer .. Satırlarında [list .. Varmış,
Yani Doğruymuş.
Diğer Altta Kopyalayanlarda list Kaldırılmış!
ki Bu Hatalı Bir Kullanım/Yazım!
Bende Kalktım Aynıdır Diye

Alttakilerden Kopyalamıştım.
Buraya Ekledikten Sonra Değiştirildiğini Fark Ettim!

Cevap: Bot kanala giriyor geri düşüyor.

Tcl yi düzenleyip eklenti olarak paylaşsanız kopyalarken sorun yaşanıyorsa herkes kullanabileceği bir şekilde..

Cevap: Bot kanala giriyor geri düşüyor.

Şuradan: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Yada Eklentiden:

Cevap: Bot kanala giriyor geri düşüyor.

Dostum emeklerin için öncelikle teşekkürler lakin tcl yi denedim herhangi bir işlem yapmıyor yani sunucuya giren useri karantina odasına çekmiyor..

Cevap: Bot kanala giriyor geri düşüyor.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set nick ..
Satırı Altına :
putlog "Control Nick: $nick"
Gibi Bir Satır Ekleyip, Nicki Yakaladığına Emin Olunabilir!

Botun .Conf'unda :
set raw-log 1
Yapıp, .restart Ettikten Sonra,
Bota Bağlanıp: .console +rv
Ayarlanıp, Varsa Verdiği Hata Takip Edilebilir...

Cevap: Bot kanala giriyor geri düşüyor.

[20:03] <HUGO> [12:03:51] -NOTICE- *** Client connecting: Sephiroth69 (Forz@78.190.162.130) [78.190.162.130] {clients}
[20:03] <HUGO> [12:03:51] Control Nick: ***
[20:03] <HUGO> [12:03:51] [!m] sajoin *** #Karantina
[20:03] <HUGO> [12:03:51] [m->] sajoin *** #Karantina
[20:03] <HUGO> [12:03:51] [@] K9!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PRIVMSG #LOG :USERS: Sephiroth69!Forz@78.190.162.130 (B37FF3D4.A619B8D9.CD7B92C.IP) (Söylesem tesiri yok, Sussam g) connected to the network (irc.chatwork.net)
[20:03] <HUGO> [12:03:51] [@] irc.chatwork.net 401 HUGO *** :No such nick/channel
[20:03] <HUGO> [12:03:53] [!m] notice *** :2Hos geldiniz 4HUGO 2Guvenlik taramasindan geciyorsunuz Global kanallara aktarilacaksiniz sabriniz icin tesekkur ederiz.
[20:03] <HUGO> [12:03:53] [m->] notice *** :2Hos geldiniz 4HUGO 2Guvenlik taramasindan geciyorsunuz Global kanallara aktarilacaksiniz sabriniz icin tesekkur ederiz.
[20:03] <HUGO> [12:03:53] [@] irc.chatwork.net 401 HUGO *** :No such nick/channel
[20:04] <HUGO> [12:03:57] [!s] sapart *** #Karantina
[20:04] <HUGO> [12:03:57] [!s] sajoin *** #Chat,#Felsefe
[20:04] <HUGO> [12:03:57] [s->] sapart *** #Karantina
[20:04] <HUGO> [12:03:57] [@] irc.chatwork.net 401 HUGO *** :No such nick/channel
[20:04] <HUGO> [12:03:58] [s->] sajoin *** #Chat,#Felsefe
[20:04] <HUGO> [12:03:58] [@] irc.chatwork.net 401 HUGO *** :No such nick/channel

Dediğin gibi nickki yakalayamıyor dostum..