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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Hata Nerde ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/534408-hata-nerde.html)

Kod:

#kontrol mesajý

set kontrolmsg "Selam: mesaj kontrol lütfen cevap vermeyiniz, aksi taktirde sunucudan uzaklastirilicaksiniz."

#ne kadar arayla kontrol mesaji atacak (dakika cinsinden)

set zaman_araligi "10"

# kline mesaji

set bans "\00304mesajinizda reklam/reklamlar tespit etmistir.!\003"

#oper kanalý

set operchan "#Admin"

# Reklam Mesajlarý

set reklam { 

"*w*w*w*.*"

"*h*t*t*p*:*"

"*.com*"

"*.net*"

"*.org*"

"*.cjb.net*"

"*.da.ru*"

"*/server*"

"*îRC*"

"*Nét*"

}

 

bind msgm - * reklammsg

proc reklammsg {nick uhost hand text} {

global reklam bans operchan

if {[onchan $nick $operchan]} {return 0}

 foreach w $reklam {

  if {[string match -nocase "* $w *" " $text "]} { 

    putquick "kline $nick 1d $bans" -next

    putserv "privmsg $operchan \00304$nick\003 \00302özelime reklam yapti ve sunucudan uzaklastirildi. Mesaji :\003 \00304$text\003"

    return 1

    }

 }

}

 

if {![string match "*basla*" [timers]]} {  

 timer $zaman_araligi basla  

} 

proc basla { } { 

global kontrolmsg zaman_araligi

putserv "describe $irc2.sunucum.net $kontrolmsg"

timer $zaman_araligi basla  

}

Arkadaşlar böyle bir tcl var elimde herşey çalışıyo fakat describe yapmıyor, sorun nedir acaba ?

Cevap: Hata Nerde ?

putserv "describe $irc2.sunucum.net $kontrolmsg"

Buradaki kodu;

putserv "PRIVMSG $*irc2.sunucum.net $kontrolmsg"

Bu şekilde değiştirin.

Cevap: Hata Nerde ?

Malesef çalışmadı CLubber , Botta aşırı tcl yüklü bundan kaynaklı olabilir mi ?

Kod:

bind raw * notice bwhois
 

proc bwhois {from keyword arg} { 

global operkanal logkanal botnick sunucuadi

if {[string match "*did a /whois on you.*" $arg]} { 

set nick [lindex $arg 2]

set host [lindex $arg 3]

putquick "privmsg $logkanal :\002***\002 $nick kullanıcısı whois bilgilerime baktı."

        if {![info exists ::whois([set wn [md5 [string tolower $host]]])]} {

            set ::whois($wn) 0

            timer 30[list unset ::whois($wn)]

putquick "privmsg $nick \0036Merhaba\0031\002 $nick\002\003"

putquick "privmsg $nick \0036\002$botnick\002 bana verilen topluluk yönetim biriminin ismidir.\003"

putquick "privmsg $nick \0036Sohbet odalarında güvenlik ve huzuru sağlamak amacıyla,\003"

putquick "privmsg $nick \0036\002Maron\002 tarafından oluşturulmuş, yapay bir zeka sistemiyim.\003"

putquick "privmsg $nick \0036Hakkımda detaylı bilgi için\002 $yardimkanal\002 odasını ziyaret edebilirsiniz.\003"

return 0

}

if {[incr ::whois($wn)] == 1} { 

            set ::tehlike($wn) 0

            timer 30[list unset ::tehlike($wn)]

putserv "privmsg $nick \0036Bu kadar sık\0034 whois sorgulaması\0036 yapamazsınız!\003" 

return 0

}

if {[incr ::tehlike($wn)] == 1} { 

putserv "kill $nick \0036Lütfen bu kadar sık\0034 whois sorgulaması\0036 yapmayınız!\003" 

unset ::whois($wn)

unset ::tehlike($wn)

return 0

}

 }

}

Aynı şekilde bu tcl'de çalışmıyo, whois çekildiğinde.

Cevap: Hata Nerde ?

bunu ;

Alıntı:

proc basla { } {
global kontrolmsg zaman_araligi
putserv "describe $irc2.sunucum.net $kontrolmsg"
timer $zaman_araligi basla
}

bununla değiştir bakalım ;

Alıntı:

proc basla { }
global { kontrolmsg zaman_araligi
putserv "describe $irc2.sunucum.net $kontrolmsg"
timer $zaman_araligi basla
}