19-01-11, 12:13
|
#1 |
Üyelik tarihi: Jan 2011 Yaş: 25 Aldığı Teşekkür : 1 NF Puanı : 23890 | Opekle #Kanal Nick, !Sopekle #Kanal Nick TCL PHP- Kodu:
#### 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 }
---------- Kendi Editlediğim Bir TCL'dir.
#Opers Kanalında,
!Opekle #Kanal Nick !Opsil #Kanal Nick !Sopekle #Kanal Nick !Sopsil #Kanal Nick !Hopekle #Kanal Nick !Hopsil #Kanal Nick !Vopekle #Kanal Nick !Vopsil #Kanal Nick Komutları ile, Access Ekler. NOT: Forumda TCL'si Vardı Diye Düşünmeyin, Forumdaki TCL Sadece 1 Kanala Ekleme Yapıyordu, Bununla istediğiniz Her Kanalda Ekleme Yapabilirsiniz. NOT2: Botun Nicki Kayıtlı, Admin Listte ve En Az Services Admin Flagında Olması Gerekir.
________________ ωєв мαδтєя - ℓιиυχ - δєσ - му-δqℓ - ωєв ¢σ∂єя ¢σσя∂ιиαтισи'δ |
| | |