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

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

- - Proxy.tcl (https://www.ircforumlari.net/tcl-scriptler/446728-proxytcl.html)

Cevap: Proxy.tcl

PHP- Kodu:

   proc noticeler {from keyword arg} {
       global botnick bot server girTas
       if {[string match "*Client connecting on port*" $arg] } {
               set nick [lindex $arg 9]
               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]
               if {$bot(prxydurum) == "on"} {
                       utimer 4 [list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]
                       utimer 4 [list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]
                       if {[info exists ::proxyliste]} {
                               foreach prxy $::proxyliste {
                                       if {[string match -nocase $prxy $host]} {
                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."
                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"
                                               return 0
                                       }
                               }
                       }
                       utimer 6 [list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]
                       utimer 7 [list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]
                       putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"
               return 0
               }
       }
}

bu şekilde düzenleyin.. calişacaktir.

Cevap: Proxy.tcl

Kod:

global botnick bot server girTas

Global olarak belirttiğiniz girTas isimli numeric'e ait herhangi bir kod yok. Bu sebeplede botunuz çalışmayabilir.

Cevap: Proxy.tcl

girTas cagiriyor girtas a bagli bi kod olamadigindan calişir ama botu kullanan arkadaslar

PHP- Kodu:

   proc noticeler {from keyword arg} {

       global botnick bot server

       if {[string match "*Client connecting on port*" $arg] } {

               set nick [lindex $arg 9]

               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]

               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]

               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]

               if {$bot(prxydurum) == "on"} {

                       utimer 4[list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]

                       utimer 4[list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]

                       if {[info exists ::proxyliste]} {

                               foreach prxy $::proxyliste {

                                       if {[string match -nocase $prxy $host]} {

                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."

                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"

                                               return 0

                                       }

                               }

                       }

                       utimer 6[list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]

                       utimer 7[list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]

                       putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"

                      return 0

               }

       }

}

şeklinde düzenleme yaparsa daha güzel calişir.

Cevap: Proxy.tcl

global server botnick bot server

demişsin.
Ama onları set ile belirtmemişsin.

proc noticeler demişsin ama bind de yok ortada.

Ayrıca yazım hataları var bu şekilde çalışmaz boşa uğraşmayın.
girTas olunca da çalışır olmassa daha iyi çalışır demen tamamen vahamet.
Editliyosun da bari iyi bişiler yap :) SaW 'ın proxy tcl sinin editlemesi sadece mesajlar değişik.

Sonuç fiyasko.

Cevap: Proxy.tcl

sorun cıkartma sorun cöz :)

ben bu kadarini yaptim sen daha iyisini yap

Cevap: Proxy.tcl

:))) Üzerinde çalışıyorum bunu stabil hale getirebilirsem paylaşıcam. Ama çok sorunlu :P
Şaka bi yana tek bi yerde hata var ama tcl bu bi yerde çıksa en dipten patlıyor. Bakcaz.

Cevap: Proxy.tcl

başarilarinin devamini dilerim :)