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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

Heartbroken 02 Ocak 2020 00:56

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!

Sephiroth 02 Ocak 2020 18:12

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

Heartbroken 03 Ocak 2020 01:02

Cevap: Bot kanala giriyor geri düşüyor.
 
Toplam 1 Eklenti bulunuyor.
Şuradan: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Yada Eklentiden:

Sephiroth 03 Ocak 2020 19:02

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

Heartbroken 04 Ocak 2020 08:08

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

Sephiroth 04 Ocak 2020 20:06

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk