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)

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)[list #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 22Guvenlik taramasindan geciyorsunuz Global kanallara aktarilacaksiniz sabrınız icin tesekkür 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 keyword arg} {

        global botnick

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

        return 0

        }

        set nick [lindex [split $arg] 9]

        if {$nick != $botnick} {

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

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

        }

        foreach c $::control(globchans) {

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

        }

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

        return 0

}
 

putlog "yuklendi..."

Forumdan bir arkadaşa rica üzerine yapılan bir tcl idi. Bot kanala giriyor düşüyor

Kod:

says I'm not registered, trying next one.

Aldığım hata bu çözemiyorum.

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

Alıntı:

dEathLeSs Nickli Üyeden Alıntı (Mesaj 1042151949)

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)[list #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 22Guvenlik taramasindan geciyorsunuz Global kanallara aktarilacaksiniz sabrınız icin tesekkür 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 keyword arg} {

        global botnick

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

        return 0

        }

        set nick [lindex [split $arg] 9]

        if {$nick != $botnick} {

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

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

        }

        foreach c $::control(globchans) {

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

        }

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

        return 0

}
 

putlog "yuklendi..."

Forumdan bir arkadaşa rica üzerine yapılan bir tcl idi. Bot kanala giriyor düşüyor

Kod:

says I'm not registered, trying next one.

Aldığım hata bu çözemiyorum.

bunu neden services kullanarak yapmıyorsun

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

unreal 4 kullanıyorum modulu uyarlayamadım. daha önce çalışıyordu arşivi kurcalayınca buldum. neden girip düştüğünü öğrenmek istiyorum. :)

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

Alıntı:

dEathLeSs Nickli Üyeden Alıntı (Mesaj 1042152387)

unreal 4 kullanıyorum modulu uyarlayamadım. daha önce çalışıyordu arşivi kurcalayınca buldum. neden girip düştüğünü öğrenmek istiyorum. :)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bunun üzerinde düzenleme yapabilirsin belki + services

Kod:

ModuleHeader MOD_HEADER(m_joinmute) = {

        "m_joinmute",

        "$Id: v1.0 2017/01/03 Gottem$",

        "Adds +J chmode: Mute newly joined people for +J X seconds",

        "3.2-b8-1",

        NULL

};

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

biliyorum bu modulu, aradığım ya da işimi görecek bir modul değil. joindelay modulu ile aynı islevi gören bi tcl ama çalışmıyor. ^^

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

Alıntı:

dEathLeSs Nickli Üyeden Alıntı (Mesaj 1042152479)

biliyorum bu modulu, aradığım ya da işimi görecek bir modul değil. joindelay modulu ile aynı islevi gören bi tcl ama çalışmıyor. ^^

tcl den anlamam lakin istersen mirc yazabilirim :D

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 botnick

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

        return 0

        }

        set nick [lindex [split $arg] 9]

        if {$nick != $botnick} {

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

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

        }

        foreach c $::control(globchans) {

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

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

        }

        return 0

}
 

putlog "yuklendi..."

Unreal3.2.x sürümünde test ettim sorunsuz çalışıyor. Unreal4 kurmaya erindim vallahi. Olmadıysa firmaya uğrarsın Hakan.

İyi forumlar.

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

Merhabalar arkadaşlar bende unreal4 te kullanmak istedim bu tcl yi çalışmıyor yardımcı olabilcek arkadaş varmı

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

Aldığınızı Söylediğiniz "Hata"
Bir Tcl Hatası Değil!
Sunucu/Servislerden Gelene,Botunuzun
Tepkisi, Sizi Uyarması!

Üst Sürüm Unreal'de Çalışmaması İçin:
1-) Bot Rumuzunu Tanıtamamış,
Oper Yetki Alamamışsa,Script'teki Komutları Uygulayamaz!

2-) Unreal Farklı Sürümlerinde,
*Client Connecting* Notice'leri Farklıysa,
set nick [lindex [split $arg] 9]
Satırına Göre,Bu sNotice'deki 10'ncu Kelime
Kullanıcı Rumuzuna Denk Gelmeli!
Farklı Sürümde Farklı Yerde/Sıradaysa;
Kod Komutları Rumuza İşlem Olarak Yazıldığından,
Rumuza/Nicke Denk Düşmüyorsa Komutlar
Doğru Şekilde Uygulanamayacaktır!

set Foo "Tcl'de 0 (Sıfır)'dan Saymaya Başlar!"
set Bar [lindex [split $Foo] 0]
-> Tcl'de
set Bar [lindex [split $Foo] 2]
-> (Sıfır)'dan

Buna Göre Üst Sürüm Unreal'da,
Kullanıcı Girişi Alınan Mesajda Rumuz
Hangi Sıraya Denk Geliyorsa,
Koddaki
set nick [lindex [split $arg] 9]
Satırında Değişiklik Yaparak,
Kodun O Sürümde Çalışması Sağlanabilir!...

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

[23:33] -irc.sunucuadı.net- *** Client connecting: Sephiroth43 (Forz@78.190.156.198) [78.190.156.198] {clients}

sunucu girişi bu şekilde..