Bot kanala giriyor geri düşüyor. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

dEathLeSs · 08 Eylül 2019, 12:47

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

says I'm not registered, trying next one.

Aldığım hata bu çözemiyorum.

YouMyCure · 09 Eylül 2019, 09:49

dEathLeSs Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

unreal 4 kullanıyorum modulu uyarlayamadım. daha önce çalışıyordu arşivi kurcalayınca buldum. neden girip düştüğünü öğrenmek istiyorum.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

YouMyCure · 09 Eylül 2019, 13:00

dEathLeSs Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

unreal 4 kullanıyorum modulu uyarlayamadım. daha önce çalışıyordu arşivi kurcalayınca buldum. neden girip düştüğünü öğrenmek istiyorum.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

bunun üzerinde düzenleme yapabilirsin belki + services

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

dEathLeSs Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Emrehan · 10 Eylül 2019, 01:38

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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

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

sunucu girişi bu şekilde..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Gopro Karma Drone'ları Geri Çağırdı, Nasıl Düşüyor?	Dream	İnternet Dünyasından Haberler	0	12 Kasım 2016 12:03
Kanala girdiğimde Check botu kanala benim istediğim metini yazsın !	SabotaJ_	mIRC Scripting Sorunları	2	02 Aralık 2012 16:43
Kanala girdiğim zaman, Servicesler otomatik olarak bir yazı atsın kanala	Update	mIRC Scripting Sorunları	5	17 Kasım 2012 02:30
Kanala girenleri atıp başka kanala joinlemek	Kablosuz NET	Unreal IRCd	6	30 Haziran 2007 14:46
Biri Kanala Girince Diger Kanala Msg Atma	F0X	mIRC Scripting Sorunları	1	24 Haziran 2006 21:10

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.