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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Eggdrop (TCL Arşivleri) (https://www.ircforumlari.net/tcl-scriptler/20815-eggdrop-tcl-arsivleri.html)

Yanıt: Eggdrop (TCL Arşivleri)

Karsilama.TCL ( Kanal a Giren Kullanıcıya belirttiğiniz Mesajı Gönderir)

Kod:

proc giris_karsilama {nick uhost handle channel} { 

putserv "NOTICE $nick :Merhaba $nick Hosgeldin" 

putserv "PRIVMSG $nick :Hosgeldin $nick Iyi Sohbetler" 

} 

bind join - * giris_karsilama

Yanıt: Eggdrop (TCL Arşivleri)

helper.tcl(Unreal'de Helperlerinizin hostunu düzenler.ayrıcalık tanır. CR de Calışmaz.)

Kod:

set hhost "Helper.Localhost.NET" 

set hident "Helper" 

set hname "localhost. HELP Sorumlusu" 

set hchan "#Helpdesk" 

bind mode - * modes 

proc modes {eden b c kanal mode etken} { 

global hhost hident hname hchan 

if {$kanal == $hchan} { 

if {$mode == "+o"} { 

putserv "CHGHOST $etken :$hhost" 

putserv "CHGIDENT $etken :$hident" 

putserv "CHGNAME $etken :$hname" 

} 

if {$mode == "-o"} { 

if {$etken == $eden} { 

putserv "NOTICE $etken :Lutfen $kanal kanalinda Deop olmayiniz!" 

putserv "NOTICE $etken :Please Dont Deop yourself on $kanal channel!" 

putserv "MODE $kanal +oa $etken $etken" 

} 

if {$etken != $eden} { 

putserv "NOTICE $eden :Lutfen $kanal kanalinda $etken i Deop yapmayiniz!" 

putserv "NOTICE $eden :Please dont deop anyone on $kanal channel!" 

putserv "MODE $kanal +oa $etken $etken" 

} 

} 

} 

} 

putlog "Auto Helpop loaded. By Alience" 

bind part - * partes

Yanıt: Eggdrop (TCL Arşivleri)

DomainWhois.tcl ( merak ettiğiniz domain hakkında bilgi veren bir tcl )

Kod:

####################################################

################ .dwhois <domain> ##################

####################################################
 

bind pub - .dwhois dwhois

proc dwhois {nick host handle chan text} {

set server "isfree.schlundtec.com"

set port 80

set l 14

set i 0

set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]"

set sockdw [socket $server $port]

puts $sockdw "GET $path HTTP/1.0"

puts $sockdw "User.Agent:Mozilla"

puts $sockdw "Host: $server"

puts $sockdw ""

flush $sockdw

while {$i <= $l} {

gets $sockdw linedw

putlog $linedw

if {[string match "*Domain*frei*" $linedw]} {

putserv "PRIVMSG $chan :[lindex $text 0] domaini (alan adı) boştadır ve kaydedilebilir"

close $sockdw

return 0

}

if {[string match "*Domain*registriert*" $linedw]} {

gets $sockdw

putserv "PRIVMSG $chan Domain Sahibi: [html [gets $sockdw]] Cadde: [html [gets $sockdw]] Kent: [html [gets $sockdw]] Ülke: 

[html [gets $sockdw]]"

close $sockdw

return 0

}

incr i

}

close $sockdw

}

proc html { text } {

regsub -all "</TD>" $text "" text

regsub -all "</FONT>" $text "" text

regsub -all " " $text "" text

regsub -all "&uuml;" $text "ü" text

regsub -all "&ouml;" $text "ö" text

regsub -all "&auml;" $text "ä" text

regsub -all "&Uuml;" $text "Ü" text

regsub -all "&Ouml;" $text "Ö" text

regsub -all "&Auml;" $text "Ä" text

regsub -all "&szlig;" $text "ß" text

regsub -all "&quot;" $text "\"" text

regsub -all "<tb>" $text "" text

regsub -all "<font" $text "" text

regsub -all "size=\"2\"" $text "" text

regsub -all "face=\"Verdana,Arial,Helvetica,Geneva\">" $text "" text

regsub -all "<br>" $text "" text

regsub -all "&nbsp;" $text "" text

regsub -all "</font>" $text "" text

regsub -all "<td>" $text "" text

regsub -all "</td>" $text "" text

regsub -all "" $text "" text

regsub -all "" $text "" text

regsub -all "
 

" $text "" text

return $text

}
 
 
 

putlog "\002DOMAINWHOIS:\002 DomainWhois.tcl 1.2 Loaded."

Yanıt: Eggdrop (TCL Arşivleri)

Eggdrop Botunuz 10 Dakikada bir Kanal banlarını Acsın.

Arkadaşlar Bunu Eggdrop botunuzun Conf una aşagıdaki Kodu ekleyerek saglayabilirsiniz.

Kod:

set global-ban-time 10

Bu Sayede botunuz kanalda Opsa Banları Acar.

Yanıt: Eggdrop (TCL Arşivleri)

yardim.tcl ( #yardim,#help kanalında userler e cevap veren tcl botu)

Kod:

#Yardim Botu Edit By RangeR

bind join - * join_selam

bind pub - yardim pub_help

bind msgm - help pub_help

bind msgm - yardim msg_help

bind msgm - nshelp msg_nshelp

bind msgm - cshelp msg_cshelp

bind msgm - memohelp msg_memohelp

bind msgm - nsregister msg_nsregister

bind msgm - nsidentify msg_nsidentify

bind msgm - nsset msg_nsset

bind msgm - nsghost msg_nsghost

bind msgm - nspassword msg_nspassword

bind msgm - nslanguage msg_nslanguage

bind msgm - nsurl msg_nsurl

bind msgm - nsemail msg_nsemail

bind msgm - nsicqnumber msg_nsicqnumber

bind msgm - nslocation msg_nslocation

bind msgm - nskill msg_nskill

bind msgm - nsprivate msg_nsprivate

bind msgm - nshide msg_nshide

bind msgm - csregister msg_csregister

bind msgm - csidentify msg_csidentify

bind msgm - csset msg_csset

bind msgm - csaccess msg_csaccess

bind msgm - cslevel msg_cslevel

bind pub - selam msg_selam
 
 
 

  

   

 proc join_selam {nick uhost handle chan} {

 if {$chan == "#help"} { 

     putserv "NOTICE $nick :$nick xxxxx Networkunun Resmi Yardim Kanalina Hos geldiniz."

     putserv "NOTICE $nick :Ben size, yardima ihtiyaciniz olan konularda yardim edecek sekilde programlanmis bir Help Botum."

     putserv "NOTICE $nick :Eger benim yardimlarim sizlere yeterli olmazsa. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden gerekli bilgileri alabilirsiniz"

     putserv "NOTICE $nick :Simdi yardim almak icin lutfen ozelime 4yardim yaziniz." 

     putserv "NOTICE $nick :Lutfen /remote off yapmayi unutmayiniz."
 

}
 

return 1
 

}
 

   proc msg_help { nick uhost handle text } {

         putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:"

         putserv "PRIVMSG $nick :1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )"

         putserv "PRIVMSG $nick :2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )"

         putserv "PRIVMSG $nick :3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )" }
 
 

        
 

   proc msg_nshelp { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nick Sifreleme ( nsregister )"

         putserv "PRIVMSG $nick :Nick Identify  ( nsidentify )"

         putserv "PRIVMSG $nick :Nick Droplama  ( nsdrop )"

         putserv "PRIVMSG $nick :Nick Set Ayarlari  ( nsset )"

         putserv "PRIVMSG $nick :Nickiniz Kullanimda ise ( nsghost )" }
 

   proc msg_nsregister { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizi Sifrelemek icin lutfen asagidaki komutu yaziniz."

         putserv "PRIVMSG $nick :(  /ns register sifreniz email_adresiniz   )"

         putserv "PRIVMSG $nick :Mail Adresinizi Kesinlikle Dogru vermelisniz Aksi Taktirde Kaybedilen Nick Sifreleri uzerinde hak iddia edemezsiniz." }

  

   proc msg_nsidentify { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizi ident ederken kullanmaniz gereken komut asagidaki gibidir."

         putserv "PRIVMSG $nick :( /ns identify sifreniz  )" }
 

   proc msg_nsdrop { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizi droplarken kullanmaniz gereken komut asagidaki gibidir."

         putserv "PRIVMSG $nick :(  /ns drop  )" }
 

   proc msg_nsset { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizin ayarlari."

         putserv "PRIVMSG $nick :(1) nspassword  "

         putserv "PRIVMSG $nick :(2) nslanguage  "

         putserv "PRIVMSG $nick :(3) nsurl  "

         putserv "PRIVMSG $nick :(4) nsemail  "

         putserv "PRIVMSG $nick :(5) nsicqnumber  "

         putserv "PRIVMSG $nick :(6) nslocation  "

         putserv "PRIVMSG $nick :(7) nskill  "

         putserv "PRIVMSG $nick :(8) nsprivate  "

         putserv "PRIVMSG $nick :(9) nshide  "

 }       

   

   proc msg_nsghost { nick uhost handle text } {

         putserv "PRIVMSG $nick :Servere girdiginizde nickiniz kullanimda uyarisi verirse"

         putserv "PRIVMSG $nick :Asagidaki komutla Nickinizi kullanabilirsiniz."

         putserv "PRIVMSG $nick :(  /ns ghost nickiniz sifreniz  )" }
 

   proc msg_nspassword { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nick sifresini degistirmek icin kullanilir."

         putserv "PRIVMSG $nick :(  /ns set password yenisifre  )" }
 

   proc msg_nslanguage { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickservin dilini degistirmeye yarar."

         putserv "PRIVMSG $nick :(  /ns set language dilno  )" 

         putserv "PRIVMSG $nick :Dil No: 1  ingilizce "

         putserv "PRIVMSG $nick :Dil No: 2  Portekizce "

         putserv "PRIVMSG $nick :Dil No: 3  Turkce   "

         putserv "PRIVMSG $nick :Dil No: 4  Almanca "

       }
 
 

    proc msg_nsurl { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizin bagli oldugu url yi belirtmenizi saglar."

         putserv "PRIVMSG $nick :(  /ns set url Adres  )" }
 

    proc msg_nsemail { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizin sifresinin size gonderilecegi mail adresini yazmanizi saglar."

         putserv "PRIVMSG $nick :(  /ns set email 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
  )" }
 

    proc msg_nsicqnumber { nick uhost handle text } {

         putserv "PRIVMSG $nick :Kullanmakta oldugunuz icq numarasinin info da gozukmesini saglar."

         putserv "PRIVMSG $nick :(  /ns set icqnumber #icq_no  )" }
 

    proc msg_nslocation { nick uhost handle text } {

         putserv "PRIVMSG $nick :Bulundugunuz bolgeyi belirtmenizi saglar."

         putserv "PRIVMSG $nick :(  /ns set location bulundugunuz_yer  )" 

}
 
 

    proc msg_nskill { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizin sifre sormasi icin gereken komut. "

         putserv "PRIVMSG $nick :(  /ns set kill On/OFF  )"

         putserv "PRIVMSG $nick :On: sifrenin girilmesi icin 60 sn sure tanir."

         putserv "PRIVMSG $nick :Off: Sifre korumasini kapatir."

}
 

    proc msg_nsprivate { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nickinizin Listede gozukmesini onler."

         putserv "PRIVMSG $nick :(  /ns set private On/Off  )" 

         putserv "PRIVMSG $nick :On: Gorunmez."

         putserv "PRIVMSG $nick :Off: Gorunur."

}
 

    proc msg_nshide { nick uhost handle text } {

         putserv "PRIVMSG $nick :Nick bilgilerinizin bir kisminin INFO da gozukmesini engeller"

         putserv "PRIVMSG $nick :(  /ns set hide On/Off  )" 

         putserv "PRIVMSG $nick :On: Gorunmez."

         putserv "PRIVMSG $nick :Off: Gorunur."

}
 
 
 

 proc msg_cshelp { nick uhost handle text } {

        putserv "PRIVMSG $nick :Kendi Kanalinizi Kaydetmek icin ( csregister )"

        putserv "PRIVMSG $nick :Kanalinizin sifresini girmek icin ( csidentify )"

        putserv "PRIVMSG $nick :Kanal Ayarlari icin ( csset )"

        putserv "PRIVMSG $nick :Access islemleri icin ( csaccess )"

        putserv "PRIVMSG $nick :Level ayarlari icin ( cslevel )" }
 

  proc msg_csregister { nick uhost handle text } {

        putserv "PRIVMSG $nick :Kanal kaydetmekte kullanilan komut asagidaki gibidir."

        putserv "PRIVMSG $nick :Fakat bu kanal daha once kayit edilmemis olmasi gerekmektedir."

        putserv "PRIVMSG $nick :(   /cs register #kanal sifre aciklama    )"

        putserv "PRIVMSG $nick :Aciklama yerine herhangi bir sey yazabilirsiniz." }
 

  proc msg_csidentify { nick uhost handle text } {

        putserv "PRIVMSG $nick :Kanal DeSifre Etmekte kullanilan komut asagidaki gibidir."

        putserv "PRIVMSG $nick :Fakat bu kanalin daha once kayit edilmisolmasi gerekmektedir."

        putserv "PRIVMSG $nick :(   /cs identify #kanal sifre     )" }
 

  proc msg_csset { nick uhost handle text } {

        putserv "PRIVMSG $nick :Chanserv Set komutlari Kanallarinizin Set ayarlarini yapmaniza yardimci olur."

        putserv "PRIVMSG $nick :Set Komutlari icin ayrintili bilgiyi."

        putserv "PRIVMSG $nick :(   /cs help set komutu ile alabilirsiniz.     )" }
 

  proc msg_csaccess { nick uhost handle text } {

        putserv "PRIVMSG $nick :Access Komutu Bir kisiye sahib yada yetkili oldugunuz kanalda yetki vermeye yarar."

        putserv "PRIVMSG $nick :Yetki seviyeleri 1 - 9999  a kadardir."

        putserv "PRIVMSG $nick :(   /cs access #kanal add Nick Seviye     )" }
 

  proc msg_cslevel { nick uhost handle text } {

        putserv "PRIVMSG $nick :Level Komutu Kanal yetkililerinin yada sahibinin erisim duzeylerini ayarlamaya yarar."

        putserv "PRIVMSG $nick :Daha Ayrintili bilgi icin."

        putserv "PRIVMSG $nick :(   /cs help level yazarak alabilirsiniz.     )" }
 

 
 

  proc msg_selam { nick uhost handle chan text } {

        putserv "PRIVMSG $nick :Selam $nick . Ben Ranger’in hazirlamis oldugu yardim botuyum."

        putserv "PRIVMSG $nick :#help kanalinda Irc ile ilgili sorunlarinizi cozmek icin bulunmaktayim."

        putserv "PRIVMSG $nick :Yardim almak icin ozelime ( yardim ) yazmaniz yeterlidir. Tesekkurler. Iyi Sohbetler." }
 

   #End putlog "Edit By Ranger"

Yanıt: Eggdrop (TCL Arşivleri)

çok iyi olmuş yazdığın.Eyw

Yanıt: Eggdrop (TCL Arşivleri)

Emeginize Elinize Sağlık..

Yanıt: Eggdrop (TCL Arşivleri)

Konusan.tcl ( kanal genelinde kodladıgınız kelimelere göre cevap verir,konuşur)

Kod:

# Begin - Entertainment, Message Auto-Reply. (ent_areply.tcl)

#        Designed & Written by Ninja_baby (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
), © October 2000
 

# This TCL was made following the request of my friend Imran (ImRaN-- on DALnet) for his bot.

# This was a kewl idea, he ask how can his bots reply people who sent specific message-

# to the bot or to a channel, without getting lagged or stuffs. Thanks Imran ;) *hugs*

# Well as I said above, this TCL will make your bot reply people who send message-

# to it or to a channel (which listed in the variable). And that's the only purpose ;p

# but do not worry, the bot will auto-ignore people if it consider lines of messages-

# as excessive flood.
 

# Set this as reply channel. The bot will reply people ONLY in channels listed here. Eventhou-

# the words are same with what you sets below. You can set channelnames here as many as you-

# wish, but carefull you might make your bot getting lagged coz it has too many channels to-

# greet for ;p

set repchan {

  "#sohbet"

}
 

# Ok fill this one with your words. Let me explain a little bit about HOW to set this variable.

# The one on the left side of the ":" sign is the trigger words. And words on the right side-

# of the ":" sign is what your bot will reply following the left one.

# Example: you set "hi :hello hello". Your bot will reply "hello hello" to people who said "hi"-

# in channel or to it.

# As my auto-greet does, you might set "%nick" here as replacement of the real nick the bot-

# will reply to. Example: there's a nick called "TheLamer" in channel, and you set-

# "hello :hi %nick". Then your bot will reply with words "hi TheLamer" when TheLamer guy said "hello"-

# in channel or to it.

# set this carefully and you might set this as many as you wish. ;)

set repwords {

  "s.a:%nick, aleyküm selam hoş geldin"

  "selam:selam hoş geldin %nick.."

  "nasılsınız:teşekurler sen nasılsın %nick"

  "nasılsın:teşekurler bomba gibiyim sen nasılsın %nick"

  "mrb:%nick: hoş geldin?"

  "bye:hoşçakal %nick"

  "bye:%nick: yine gelme seni özlemiycez =P"

  "lan:%nick: lan kelimesini kullanmayınız lütfen'"

  "selamun aleykum:aleykum selam hoşgeldin %nick"

  "catlakFM:efendim %nick"

  "bot:%nick: benmi?"

  "canım:birtanem"

  "askım:canımın içi"

  "bebegim:sevgilim"

  "sevgilim:seni cok özledim %nick"

  "hayatım:bi tanem bi bi bi"

  "catlakFM:catlakFM diyen dilini %nick"

  "sen:hadicanım sende"

  "ordamısın:evet burdayım"

  "eee:sustum"

  "selamun aleykum:aleykum selam %nick hoş geldin"

  

}
 

# Set this as maximum trigger or lines before your bot consider the line of words as a flood.

# By setting this to "5:10", means if someone sent more than 5 lines within 10 seconds, the bot-

# will consider this as flood and will auto-ignore the person without giving any answers.

# So don't set this too low ;pp

set maxmsgrep 5:10
 

# Set this as messages which your bot will send to a user that just considered flooding.

# Set this as many as you wish, but remember, the key like %nick, etc. is NOT avalable in this-

# variable. I'm too lazy to convert those key in this variable, and will only get this script-

# work too hard ;pp hehe

set msgfloodm {

  "you're performing MSG which considered as FLOOD..."

}
 

# Set this as your bot auto-ignore time. Set this one in Minute(s) format.

set msgrepignore 1
 

# This is for your benefit hehe ;), you can either set your own LOGO here, your logo will appear-

# when the bot notice you, or when it makes msgs/notices/kicks or scripts loading. So keep smiling-

# and set this variable as you wish ;), you can either set this to "" to leave it blank.

set utlarlg "\[J-C\]:"
 

######### Please do not edit anything below unless you know what you are doing ;) #########
 

proc replyuser {nick uhost hand rest} {

        global botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg

        if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick}

        set repperf 0

        foreach repwrd $repwords {

                set rquestion [lindex [split $repwrd :] 0]

                set ranswer [string trim [lrange [split $repwrd :] 1 end] "{}"]

                if {[string match [string tolower $rquestion]* [string tolower $rest]]} {

                        regsub -all "%nick" $ranswer "$nick" ranswer

                        set repperf 1 ; putquick "PRIVMSG $repto :$ranswer" ; return 0

                }

        }

        if {!$repperf && $repto != $nick} {return 0}

        set repperf 0 ; set n [string tolower *!*@[lindex [split $uhost @] 1]]

        if {[info exists msgcount($n)]} {

                set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0]

                if {$currmsgcount >= $maxmsgreprecv} {

                        set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]]

                        foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}}

                        if {$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."}

                        newignore *!*@[lindex [split $uhost @] 1] $botnick "MSG flood" $msgrepignore

                        putlog "$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 1

                } else {

                        foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}}

                        utimer [lindex [split $maxmsgrep :] 1] "unset msgcount($n)"

                }

        } else {set msgcount($n) 1}

}
 

proc replychan {nick uhost hand chan rest} {

        global botnick repchan

        foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $rest" ; replyuser $nick $uhost $hand $reps ; return 0}}

}
 

bind msgm - * replyuser

bind pubm - * replychan

putlog "*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded."
 

# End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)

Kod:

"catlakFM:efendim %nick"

Örnegindeki gibi kelimeleri alt alta ekleyebilir, düzenleyebilirsiniz. conf unu konu başındaki conf örneginden saglamanız mümkün.

Yanıt: Eggdrop (TCL Arşivleri)

peki son dakika ve rütin haberleri aktara bileceğimiz bir tcl mevcutmudur?

Yanıt: Eggdrop (TCL Arşivleri)

Ya Baba Bunların conf ları yokmu Hep TcL Yeniyim Çok Fazla anlamıyorum ;)