IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )

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

- - CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu ) (https://www.ircforumlari.net/tcl-scriptler/384896-cr-icin-agent-botlari-kanal-alma-tclsi-mynet-botserv-tcl-versionu.html)

CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )

Kod:

#gerekli bindler

bind pub - !join girsin

bind evnt - init-server baglan_yap
 

proc baglan_yap {type} {

global inick ipass
 

  putserv "OPER $inick $ipass"

  putserv "WALLOPS :Basari ile Login Oldum :)"

}
 

proc girsin {n u h c a} {

  global gnick

        set gnick $n

        set kanal [lindex $a 0]

    putserv "as chan $kanal add"

    putserv "as chan $kanal set bot botnicki"

    putserv "PRIVMSG #opers : 4 $kanal Kanalına botnicki Bot Bir Kac Saniye İçinde Atılacaktır 2$gnick"

}
 

#gerekli bindler

bind pub - !part ciksin

bind evnt - init-server baglan_yap
 

proc baglan_yap {type} {

global inick ipass
 

  putserv "OPER $inick $ipass"

  putserv "WALLOPS :Basari ile Login Oldum :)"

}
 

proc ciksin {n u h c a} {

  global gnick

        set gnick $n

        set kanal [lindex $a 0]

    putserv "as chan $kanal del"

    putserv "PRIVMSG #opers : 4 $kanal Kanalından Botnicki Bot Bir Kac Saniye İçinde Cıkarılacaktır.  2$gnick"

}

Cevap: CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )

Bunun unreal olanı varmı acep ?

Cevap: CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )

eXo , sen iste ben yaparım kanka ayipsin :)

Cevap: CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )

Kod:

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

#                 Join/Part TCL v1.0                          #

#    Bu TCL ile Botunuzu Bir Kanaldan Çıkarabilir Veya        #

#      Belirttiğiniz Kanala Çekebilirsiniz.                   #

#           Kullanım !Join #Kanal !Part #Kanal                #

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

bind pub - !join kanalgir

proc kanalgir {nick uhost handle chan text} {

if {![string match -nocase "#Opers" $chan]} {return 0}

set kanal [lindex $text 0]

if {$kanal == ""} {putquick "PRIVMSG $chan :Kanal Koruma/Kontrol Botunu Belirtilen Kanala Joinlemek İçin Lütfen Kanalı Belirtiniz.";return}

channel add $kanal { chanmode "+nt" idle-kick 0 stopnethack-mode 0 flood-chan 0:0 flood-deop 0:0 flood-kick 0:0 flood-join 0:0 flood-ctcp 0:0 -enforcebans +dynamicbans +userbans +dynamicexempts +userexempts -autovoice +dynamicinvites +userinvites -autoop -bitch +protectops -seen -secret -inactive +protectfriends +dontkickops +greet +statuslog +revenge +nodesynch -shared +cycle }

putquick "PRIVMSG $chan :$nick Tarafından $kanal Kanalına Kanal Koruma/Kontrol Botu Joinlenmiştir."

}

bind pub - !part kanalpart

proc kanalpart {nick uhost handle chan text} {

if {![string match -nocase "#Opers" $chan]} {return 0}

set kanal [lindex $text 0]

if {$kanal == ""} {putquick "PRIVMSG $chan :Kanal Koruma/Kontrol Botunu Belirtilen Kanaldan Part Etmek İçin Lütfen Kanalı Belirtiniz.";return}

channel remove $kanal

putquick "PRIVMSG $chan :$nick Tarafından $kanal Kanalından Kanal Koruma/Kontrol Botu Part Edilmiştir."

}

Buyrun.. :)

Cevap: CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )

GhostLy yapsana olum hadi bekliyorum :D