PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#~BASLA~######################################################################
# #
# Coder By Namesis |
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#
# #
#######################################################################~OPME~#
# Botun girişte IRCOP olması için gerekli IRCOP nicki
set inick "MerLyn"
# Buda girişte IRCOP olması için gerekli IRCOP şifresi
set ipass "MerLyn"
# Ops Kanalı
set opschan "#Ops"
# Ayarlar Bu kadar! Diğerlerine DOKUNMAYIN; aksi taktirde kodlar çalışmayabilir!
bind evnt - init-server baglan:uygula
proc baglan:uygula {type} {
global inick ipass
putserv "OPER $inick $ipass"
}
bind join - * join:ops
proc join:ops {nick uhost handle channel} {
putquick "NOTICE $nick :\00302Merhaba\00304 $nick \00302hoşgeldiniz!"
putquick "NOTICE $nick :\00302Hakkımda bilgi almak için lütfen özelime \00304!bilgi \00302yazınız!"
}
bind pub - !op op
proc op {nick uhand host chan text} {
global gnick opschan
set gnick $nick
if {([onchan $nick $opschan])} {
set kanal [lindex $text 0]
if {$kanal == ""} {
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!op #Sohbet"
} else {
putquick "sajoin $nick $kanal"
putquick "mode $kanal +o $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda size,\00304 $kanal \00302kanalında \00304AOP(@)\00302 verdim."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !deop deop
proc deop {nick uhand host chan text} {
global gnick opschan
set gnick $nick
if {([onchan $nick $opschan])} {
set kanal [lindex $text 0]
if {$kanal == ""} {
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!deop #Sohbet"
} else {
putquick "sajoin $nick $kanal"
putquick "mode $kanal -o $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda sizi,\00304 $kanal \00302kanalında \00304DEOP\00302 yaptım."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !voice voice
proc voice {nick uhand host chan text} {
global gnick opschan
set gnick $nick
if {([onchan $nick $opschan])} {
set kanal [lindex $text 0]
if {$kanal == ""} {
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!voice #Sohbet"
} else {
putquick "sajoin $nick $kanal"
putquick "mode $kanal +v $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda size,\00304 $kanal \00302kanalında \00304VOP(+)\00302 verdim."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !devoice devoice
proc devoice {nick uhand host chan text} {
global gnick opschan
set gnick $nick
if {([onchan $nick $opschan])} {
set kanal [lindex $text 0]
if {$kanal == ""} {
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!devoice #Sohbet"
} else {
putquick "sajoin $nick $kanal"
putquick "mode $kanal -v $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda sizi,\00304 $kanal \00302kanalında \00304DEVOICE\00302 yaptım."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !halfop halfop
proc halfop {nick uhand host chan text} {
global gnick opschan
set gnick $nick
if {([onchan $nick $opschan])} {
set kanal [lindex $text 0]
if {$kanal == ""} {
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!halfop #Sohbet"
} else {
putquick "sajoin $nick $kanal"
putquick "mode $kanal +h $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda size,\00304 $kanal \00302kanalında \00304HOP(%)\00302 verdim."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !dehalfop dehalfop
proc dehalfop {nick uhand host chan text} {
global gnick opschan
set gnick $nick
if {([onchan $nick $opschan])} {
set kanal [lindex $text 0]
if {$kanal == ""} {
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!dehalfop #Sohbet"
} else {
putquick "sajoin $nick $kanal"
putquick "mode $kanal -h $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda sizi,\00304 $kanal \00302kanalında \00304DEHALFOP\00302 yaptım."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !kb kickban
proc kickban {nick uhand host chan text} {
global opschan
set banmask "[getchanhost [lindex $text 0] $chan]"
set kisi "[lindex $text 0]"
set sebep "[lrange $text 1 end]"
if {([onchan $nick $opschan])} {
if {$sebep == ""} {
putquick "mode $chan +b $banmask"
putquick "kick $chan $kisi $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $kanal \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 SEBEP \00302belirtilmeden banlanıp atıldı."
} else {
putquick "mode $chan +b $banmask"
putquick "kick $chan $kisi $sebep"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $kanal \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 $sebep \00302sebebinden dolayı banlanıp atıldı."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !kick kick
proc kick {nick uhand host chan text} {
global opschan
set kisi "[lindex $text 0]"
set sebep "[lrange $text 1 end]"
if {([onchan $nick $opschan])} {
if {$sebep == ""} {
putquick "kick $chan $kisi $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 SEBEP \00302belirtilmeden atıldı."
} else {
putquick "kick $chan $kisi $sebep"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 $sebep \00302sebebinden dolayı atıldı."
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !ban banneds
proc banneds {nick uhand host chan text} {
global opschan
set banmask "[getchanhost [lindex $text 0] $chan]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +b $banmask"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişi banlandı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !o ops
proc ops {nick uhand host chan text} {
global opschan
set kisi "[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +o $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304AOP(@) \00302modesi verildi."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !do deops
proc deops {nick uhand host chan text} {
global opschan
set kisi "[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan -o $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiden \00304AOP(@) \00302modesi alındı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !h halops
proc halops {nick uhand host chan text} {
global opschan
set kisi "[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +h $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304HOP(%) \00302modesi verildi."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !dh dehalops
proc dehalops {nick uhand host chan text} {
global opschan
set kisi "[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan -h $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304HOP(%) \00302modesi alındı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !v voices
proc voices {nick uhand host chan text} {
global opschan
set kisi "[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +v $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304VOP(+) \00302modesi verildi."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !dv devoices
proc devoices {nick uhand host chan text} {
global opschan
set kisi "[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan -v $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304VOP(+) \00302modesi alındı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind pub - !unban unban
proc unban {nick uhand host chan text} {
global opschan
foreach ban [chanbans $chan] {
append banlist "[lindex $ban 0] "
if {([onchan $nick $opschan])} {
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 0 10]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 11 20]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 21 30]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 31 40]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 41 50]"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında ki tüm \00304 BAN\00302'lar açıldı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
}
bind pub - !temizle clear
bind pub - !clear clear
proc clear {nick uhand host chan text} {
global opschan
if {([onchan $nick $opschan])} {
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan :\00302Oda Ekranı Temizlendi\00304 $nick !"
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
bind msgm - * bilgilendirme
proc bilgilendirme {nick uhost hand text} {
global opschan
if {([onchan $nick $opschan])} {
set bilgilen [lindex $text 0]
if {$bilgilen == "!bilgi"} {
putquick "PRIVMSG $nick :\00302Merhaba\00304 $nick"
putquick "PRIVMSG $nick :\00302Üstat \00304Namesis\00302 tarafından yapıldım! \00304:PpP"
putquick "PRIVMSG $nick :\00302Yararlanabilmeniz için\00304 $opschan \00302kanalında bulunmanız şarttır!"
putquick "PRIVMSG $nick :\00302Kanal geneline, hafızamda bulunan komutları yazıp kullanabilirsiniz!"
putquick "PRIVMSG $nick : "
putquick "PRIVMSG $nick :\00304Komutlar;"
putquick "PRIVMSG $nick :\00302Herhangi bir kanalda \00304OP \00302olabilmeniz için\00304 $opschan \00302kanalına bunu yazın;"
putquick "PRIVMSG $nick :\00304!op #Kanal"
putquick "PRIVMSG $nick :\00304deop \00302olmanız için; \00304!deop #Kanal"
putquick "PRIVMSG $nick :\00302Herhangi bir kanalda \00304VOICE \00302olabilmeniz için\00304 $opschan \00302kanalına bunu yazın;"
putquick "PRIVMSG $nick :\00304!voice #Kanal"
putquick "PRIVMSG $nick :\00304devoice \00302olmanız için; \00304!devoice #Kanal"
putquick "PRIVMSG $nick :\00302Herhangi bir kanalda \00304HALFOP \00302olabilmeniz için\00304 $opschan \00302kanalına bunu yazın;"
putquick "PRIVMSG $nick :\00304!halfop #Kanal"
putquick "PRIVMSG $nick :\00304dehalfop \00302olmanız için; \00304!dehalfop #Kanal"
putquick "PRIVMSG $nick : "
putquick "PRIVMSG $nick :\00304!ban Nick \00301- \00302Herhangi bir nicki kanaldan \00304banlarsınız."
putquick "PRIVMSG $nick :\00304!kb Nick Sebep \00301- \00302Herhangi bir nicki kanaldan \00304banlar \00302ve \00304atarsınız."
putquick "PRIVMSG $nick :\00304!kick Nick Sebeb \00301- \00302Herhangi bir nicki kanaldan \00304atarsınız."
putquick "PRIVMSG $nick :\00304!o Nick \00301- \00302Herhangi bir nicke \00304AOP(@) \00302modesi \00304verirsiniz."
putquick "PRIVMSG $nick :\00304!do Nick \00301- \00302Herhangi bir nicketen \00304AOP(@) \00302modesini \00304geri alırsınız."
putquick "PRIVMSG $nick :\00304!h Nick \00301- \00302Herhangi bir nicke \00304HOP(%) \00302modesi \00304verirsiniz."
putquick "PRIVMSG $nick :\00304!dh Nick \00301- \00302Herhangi bir nickten \00304HOP(%) \00302modesini \00304geri alırsınız."
putquick "PRIVMSG $nick :\00304!v Nick \00301- \00302Herhangi bir nicke \00304VOP(+) \00302modesi \00304verirsiniz."
putquick "PRIVMSG $nick :\00304!dv Nick \00301- \00302Herhangi bir nickten \00304VOP(+) \00302modesini \00304geri alırsınız."
putquick "PRIVMSG $nick :\00304!unban \00301- \00302Kanalda ki tüm \00304BAN\00302'ları açarsınız."
putquick "PRIVMSG $nick :\00304!temizle \00301veya \00304!clear \00301- \00302Oda ekranını temizler!"
putquick "PRIVMSG $nick : "
putquick "PRIVMSG $nick :\00304!bilgi \00302sonu! \00304Coder By Namesis!"
} else {
putquick "PRIVMSG $nick :\00302Hakkımda bilgi almak için lütfen \00304!bilgi \00302yazınız!"
}
} else {
putquick "privmsg $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
}
}
#~OPME~#######################################################################
# #
# Coder By Namesis |
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#
# #
########################################################################~SON~#
Buyrun arkadaşlar UNREAL için OPME TCL herhanqi bir qüvenLik açıqı yoktur test edildi gayet iyi çalışıyor. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. KuLLanabiLeceqiniz KomutLar;
!op #KanaL - BeLirLediğiniz kanaLda AOP(@) oLursunuz.
!deop #KanaL - BeLirLediqiniz KanaLda DEOP oLursunuz.
!haLfop #KanaL - BeLirLediğiniz kanaLda HOP(%) oLursunuz. !dehaLop #KanaL - BeLirLediğiniz kanaLda DEHALFOP oLursunuz. !voice #KanaL - BeLirLediğiniz kanaLda VOP(+) oLursunuz. !devoice #KanaL - BeLirLediğiniz kanaLda DEVOICE oLursunuz.!ban Nick - BeLirLediğiniz nicki KanaLdan banLarsınız. !kb Nick Sebep - BeLirLediqiniz nicki kanaLdan banLar ve atarsınız. !kick Nick Sebep - BeLirLediğiniz nicki kanaLdan atarsınız.
!o Nick - BeLirLediqiniz nicke AOP(@) verirsiniz.
!do Nick - BeLirLediğiniz nickten AOP(@) modesini aLırsınız. !h Nick - BeLirLediğiniz nicke HOP(%) verirsiniz. !dh Nick - BeLirLediğiniz nickten HOP(%) modesini aLırsınız. !v Nick - BeLirLediğiniz nicke VOP(+) verirsiniz. !dv Nick - BeLirLediğiniz nickten VOP(+) modesini aLırsınız. !unban - KanaLda ki tüm BAN'Ları açarsınız. !temizLe ve !cLear - Oda ekranını temizLersiniz.
Ayrıca KarşıLama ve ÖzeLde !biLgi