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)

dEathLeSs

08 Eylül 2019 12:47

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.

YouMyCure

09 Eylül 2019 09:49

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

dEathLeSs

09 Eylül 2019 12:25

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

YouMyCure

09 Eylül 2019 13:00

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

};

dEathLeSs

09 Eylül 2019 15:28

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

YouMyCure

09 Eylül 2019 16:49

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

Emrehan

10 Eylül 2019 01:38

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.

Sephiroth

01 Ocak 2020 19:16

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ı

Heartbroken

01 Ocak 2020 22:03

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

Sephiroth

01 Ocak 2020 23:48

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

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: 12:09.