IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   TCL Scriptler (https://www.ircforumu.net/tcl-scriptler/)
-   -   Operator Ekle TCL (https://www.ircforumu.net/tcl-scriptler/2634-operator-ekle-tcl.html)

immortaL 29 Haziran 2016 18:03

Operator Ekle TCL
 
• Operator Ekle TCL
• #Opers Kanalında, Kullanabileceğiniz Komut Listesi
• !Opekle #Kanal Nick
• !Sopekle #Kanal Nick
• !Hopekle #Kanal Nick
• !Vopekle #Kanal Nick
• !Opsil #Kanal Nick
• !Sopsil #Kanal Nick
• !Hopsil #Kanal Nick
• !Vopsil #Kanal Nick
• ÖNEMLİ:
• Botun Nicki Kayıtlı, Admin Listte ve En az Services Admin Olması Gerekir.


Kod:

#### Komutların Kullanılacağı Oper Kanalı ###
set ops_chan "#Opers"
bind pub - !opekle opekle
proc opekle {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ AOP $kanal add $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nicki $kanal Kanalına AOP Olarak Eklenmiştir."
return 1
}
return 1
}
bind pub - !sopekle sopekle
proc sopekle {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ SOP $kanal add $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nicki $kanal Kanalına SOP Olarak Eklenmiştir."
return 1
}
return 1
}
bind pub - !hopekle hopekle
proc hopekle {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ HOP $kanal add $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nicki $kanal Kanalına HOP Olarak Eklenmiştir."
return 1
}
return 1
}
bind pub - !vopekle vopekle
proc vopekle {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ VOP $kanal add $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nicki $kanal Kanalına VOP Olarak Eklenmiştir."
return 1
}
return 1
}
bind pub - !opsil opsil
proc opsil {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ AOP $kanal del $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nickinin $kanal Kanalındaki AOP Yetkisi silinmiştir."
return 1
}
return 1
}
bind pub - !sopsil sopsil
proc sopsil {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ SOP $kanal del $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nickinin $kanal Kanalındaki SOP Yetkisi silinmiştir."
return 1
}
return 1
}
bind pub - !hopsil hopsil
proc hopsil {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ HOP $kanal del $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nickinin $kanal Kanalındaki HOP Yetkisi silinmiştir."
return 1
}
return 1
}
bind pub - !vopsil vopsil
proc vopsil {nick uhost handle chan text} {
global ops_chan
if {[onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
putquick "ChanServ VOP $kanal del $gnick"
putquick "PRIVMSG $ops_chan $nick Tarafından, $gnick Nickinin $kanal Kanalındaki VOP Yetkisi silinmiştir."
return 1
}
return 1
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:13.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.