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

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

- - TCL isteği.. (https://www.ircforumlari.net/eggdrop-neostats-bnc/231056-tcl-istegi.html)

Merhaba arkadaşlar.. bir TCL isteğinde bulunmak istiyorum mümkünse.. iStediğim TCL özelliğini kısaca anlatayım..

Bot sadece Oper kanalında durcak,
!vop nick #kanal veya !vop #kanal nick
!hop nick #kanal veya !hop #kanal nick
!op nick #kanal veya !op #kanal nick
!sop nick #kanal veya !sop #kanal nick
!owner nick #kanal veya !owner #kanal nick

bu komutlar ile çalışcak ve örnek !op AnqeL #zurna veya !op #zurna AnqeL komutu aldığında #Zurna kanalında AnqeL nickini +o yapıcak artık operservden mi +o yapar samodeden mi yada bot kendisimi yapar farketmez.. Böyle bir TCL elinizde varsa veya bulabilirseniz cok sevinirim.. Teşekkürler, saygilar.

Cevap: TCL isteği..

PHP- Kodu:

   # Kullanım : !<komut> <nick> <#kanal>

# Admin kanalının adı
set admin_kanali "#Oper"

set kmtlr "!vop !hop !op !sop !owner"

bind pub - * komutlar
proc komutlar {nick user handle chan arg} {
    global admin_kanali kmtlr
    if {![string match -nocase $chan $admin_kanali]} { return }
    set komut [lindex $arg 0]
    if {[lsearch -exact $kmtlr $komut] != -1 && [lrange $arg] == "3"} {
        set rumuz [lindex $arg 1] ; set kanal [lindex $arg 2]
        if {[string index $kanal 0] != "#"} { set kanal #$kanal }
        if {![onchan $rumuz $kanal]} {
            putquick "privmsg $chan :\002$rumuz\002 nickli kişi şuanda \002$kanal\002\
                kanalında bulunmuyor."
            return
        }
        if {$komut == "!vop"} {
            putquick "mode $kanal +v $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037voice\037 verilmiştir."
        }
        if {$komut == "!hop"} {
            putquick "mode $kanal +h $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037halfop\037 verilmiştir."
        }
        if {$komut == "!sop"} {
            putquick "mode $kanal +a $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037protect\037 verilmiştir."
        }
        if {$komut == "!op"} {
            putquick "mode $kanal +o $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037op\037 verilmiştir."
        }
        if {$komut == "!owner"} {
            putquick "mode $kanal +q $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037owner\037 verilmiştir."
        }
    }
}

putlog "coded By SaW"

Not: Denemedim, bu ekranda yazdım, çalışması lazım.

Cevap: TCL isteği..

Kod:

# Komut.TCL

#Kullanımı :!komut #kanal nick
 

bind pub - !vop voice

bind pub - !hop halfop

bind pub - !op aops

bind pub - !sop superops

bind pub - !owner chaow
 

proc voice {n u h c a} {

if {![isop $n "#Oper"]} {return 0}

set kanal [lindex $a 0]

set nicks [lindex $a 1]

putserv "MODE $kanal +v $nicks"

putserv "PRIVMSG $c İsteğiniz Gönderildi."

} 
 

proc halfop {n u h c a} {

if {![isop $n "#Oper"]} {return 0}

set kanal [lindex $a 0]

set nicks [lindex $a 1]

putserv "MODE $kanal +h $nicks"

putserv "PRIVMSG $c İsteğiniz Gönderildi."

}
 

proc aops {n u h c a} {

if {![isop $n "#Oper"]} {return 0}

set kanal [lindex $a 0]

set nicks [lindex $a 1]

putserv "MODE $kanal +o $nicks"

putserv "PRIVMSG $c İsteğiniz Gönderildi."

}
 

proc superops {n u h c a} {

if {![isop $n "#Oper"]} {return 0}

set kanal [lindex $a 0]

set nicks [lindex $a 1]

putserv "MODE $kanal +a $nicks"

putserv "PRIVMSG $c İsteğiniz Gönderildi."

}
 

proc chaow {n u h c a} {

if {![isop $n "#Oper"]} {return 0}

set kanal [lindex $a 0]

set nicks [lindex $a 1]

putserv "MODE $kanal +q $nicks"

putserv "PRIVMSG $c İsteğiniz Gönderildi."

}

putlog "Komut.TCL Yüklendi..."

Admin Kanalı #Oper
Biraz basit ama kullanışlıdır. İşine yarayabileceğini düşündüm.
Kullanımı : #Oper kanalında : !komut #kanal nick
Örneğin : !op #Sohbet Siber55
:D

Cevap: TCL isteği..

Cok teşekkür ederim..