| GemLik | 06 Eylül 2008 17:48 |
Cevap: Check Koruma Botu Araniyor .
bota nomercy editi diyen arkadaş için kodlamalardan bir bölümünü vereyim ; Kod:
if ($regex(%::text,/([A-ZŞĞİÜÖÇ])/g) >= 30) {
hinc -mu60 %::chan $+(%::chan,%::nick,c) 1
if ($hget(%::chan,$+(%::chan,%::nick,c)) == 1) { chd check privmsg %::chan %::nick Büyük Harf Kullanmaya Devam Ederseniz Kanaldan Banlanacaksınız! }
if ($hget(%::chan,$+(%::chan,%::nick,c)) == 2) {
msgx %::chan : %::nick büyük harf : %::text
chd check mode %::chan +b $+(~q:,%::nick)
.timer 1 300 chd check mode %::chan -b $+(~q:,%::nick)
chd check privmsg %::chan %::nick Uyarılara Rağmen Büyük Harf Kullanmaya Devam Ettiğiniz İçin 5 Dakika Konuşmanız Engellendi!
hdel %::chan $+(%::chan,%::nick,c)
}
}
}
if (%uzunharf == on) {
if ($istok($+(:,$chr(41)) :d :s :p :* :\ $+(:,$chr(40)),%::text,32)) && ($numtok(%::text,32) == 1) { halt }
if $regex(%::text,/([[:alpha:]]|ÖÇŞĞÜİı)\1/gi) >= 10 {
hinc -mu300 %::chan $+(%::chan,%::nick,u) 1
if ($hget(%::chan,$+(%::chan,%::nick,u)) == 1) { chd check privmsg %::chan %::nick Harfleri Uzatmaya Devam Ederseniz Kanaldan Banlanacaksınız! }
if ($hget(%::chan,$+(%::chan,%::nick,u)) == 2) {
msgx %::chan : %::nick harf uzatma : %::text
chd check mode %::chan +b $+(~q:,%::nick)
.timer 1 300 chd check mode %::chan -b $+(~q:,%::nick)
chd check privmsg %::chan %::nick Uyarılara Rağmen Harf Uzatmaya Devam Ettiğiniz İçin 5 Dakika Konuşmanız Engellendi!
hdel %::chan $+(%::chan,%::nick,u)
}
}
}
:end
txts $1-
if (:.restart == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
if (!$istok($masternick,%oprnick,32)) { chd check privmsg %::chan yetkili değilsiniz | halt }
chd check privmsg %::chan Restart atılıyor | exit -n | run -n $qt($mircexe)
}
if (:.global == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
chd check operserv global $5-
chd check privmsg %::chan Global İşlendi : $5-
msgx Global : %oprnick : $5-
}
if (:.privmsg == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
privmsg $chr(36) $+ *.com $5-
privmsg $chr(36) $+ *.net $5-
privmsg $chr(36) $+ *.org $5-
privmsg $chr(36) $+ *.biz $5-
privmsg $chr(36) $+ *.gen.tr $5-
privmsg $chr(36) $+ *.com.tr $5-
chd check privmsg %::chan Privmsg İşlendi : $5-
msgx Bütün Sunucuya Mesaj (Privmsg) : %oprnick : $5-
}
if (:.chd == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
chd check $5-
chd check privmsg %::chan Mesaj Gönderildi, $6 : $7-
}
if (:.reklam == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
if ($5 == -cycle) { chd check privmsg %::chan Global Kanallardan Cycle Yapılıyor.. | set %jpx on | chd check whois $botnick | halt }
if ($5 == -nopart) {
chd check privmsg %::chan Sunucudaki Kişilere Reklam Kontrol Mesajı Atıldı (Kanallardan Çıkılmadı)
chd check privmsg $chr(036) $+ *.org Reklam Kontrol, Lütfen Bu Mesaja Cevap Vermeyiniz.
chd check privmsg $chr(036) $+ *.net Reklam Kontrol, Lütfen Bu Mesaja Cevap Vermeyiniz.
chd check privmsg $chr(036) $+ *.com Reklam Kontrol, Lütfen Bu Mesaja Cevap Vermeyiniz. | halt
}
else { chd check privmsg %::chan Cycle ve Reklam Mesajı İşleniyor.. | /kontrol }
}
if (:.yonlendir == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
if (!$istok($masternick,%oprnick,32)) { chd check privmsg %::chan yetkili değilsiniz | halt }
if $5 == off { set %yon off | chd check privmsg %::chan yönlendirme kapalı | halt }
set %yonkanal $5 | set %yon on | chd check privmsg %::chan aktif yönlendirme kanalı : $5
}
if (:.ipkontrol == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
chd check who +h $5
set %whoips $5
set %whokanal %::chan
chd check privmsg %::chan $5 Kontrol Ediliyor
}
if (:.sc5sil == $4) {
if ($sc5($5) == $false) { chd check privmsg %::chan $qt($5) Listede Ekli Değil | halt }
write -ds $+ $5 sc5.txt
chd check privmsg %::chan $qt($5) Sc5 Listesinden Silindi
}
if (:.kb == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if ($operbul($5) == 1) { chd check privmsg %::chan Oper Nick'i Atılamaz.. | halt }
if ($yetkibul(%::chan,$5) == 1) { chd check privmsg %::chan Kanal Opu Atılamaz.. | halt }
if $5 == $null { chd check PRIVMSG %::chan %::nick Atılacak Nick Girmediniz.. | halt }
if $6 == $null { set %sebep Requested by %::nick }
else { set %sebep $6- }
set %banlachan %::chan
set %kick x
chd check who $5
}
if (:.k == $4) {
if ($operbul($5) == 1) { chd check privmsg %::chan Oper Nick'i Atılamaz.. | halt }
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if ($yetkibul(%::chan,$5)) { chd check privmsg %::chan Kanal Opu Atılamaz.. | halt }
if $5 == $null { chd check PRIVMSG %::chan %::nick Atılacak Nick Girmediniz.. | halt }
if $6 == $null { set %sebep Requested by %::nick }
else { set %sebep $6- }
chd check kick %::chan $5 %sebep
}
if (:.md == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
chd check mode %::chan $5 %oprnick %oprnick %oprnick %oprnick %oprnick %oprnick
}
if (:.voice == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan +v %::nick }
else { chd check mode %::chan $+(+,$str(v,$numtok($5-,32))) $5- }
}
if (:.devoice == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan -v %::nick }
else { chd check mode %::chan $+(-,$str(v,$numtok($5-,32))) $5- }
}
if (:.op == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan +o %::nick }
else { chd check mode %::chan $+(+,$str(o,$numtok($5-,32))) $5- }
}
if (:.deop == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan -o %::nick }
else { chd check mode %::chan $+(-,$str(o,$numtok($5-,32))) $5- }
}
if (:.halfop == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan +h %::nick }
else { chd check mode %::chan $+(+,$str(h,$numtok($5-,32))) $5- }
}
if (:.deprotect == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan -a %::nick }
else { chd check mode %::chan $+(-,$str(a,$numtok($5-,32))) $5- }
}
if (:.protect == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan +a %::nick }
else { chd check mode %::chan $+(+,$str(a,$numtok($5-,32))) $5- }
}
if (:.deowner == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan -q %::nick }
else { chd check mode %::chan $+(-,$str(q,$numtok($5-,32))) $5- }
}
if (:.owner == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan +q %::nick }
else { chd check mode %::chan $+(+,$str(q,$numtok($5-,32))) $5- }
}
if (:.dehalfop == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan -h %::nick }
else { chd check mode %::chan $+(-,$str(h,$numtok($5-,32))) $5- }
}
if (:.ban == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if ($5) { chd check mode %::chan +b $+(~q:,$5) }
}
if (:.unban == $4) {
if (!$hget(%::chan,$+(op.,%::nick))) { chd check PRIVMSG %::chan komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if ($5) { chd check mode %::chan -b $+(~q:,$5) }
}
if (:.dehalfop == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
if (!$5) { chd check mode %::chan -h %::nick }
else { chd check mode %::chan -h $5 }
}
if (:.temizle == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
var %i = 1
var %::tchan = %::chan
while %i <= 25 {
chd check privmsg %::tchan 0,0______________________________________________________________________0,0______________________________________________________________________
inc %i 1
}
chd check privmsg %::tchan Kanal Temizlendi..
}
if (:.mdo == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
chd check operserv mode %::chan $5 %oprnick %oprnick %oprnick %oprnick %oprnick %oprnick
}
if (:.part == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
if (!$5) { chd check privmsg %::chan %oprnick çıkacak kanalı belirtmediniz | halt }
if ($chr(35) !isin $5-) { chd check privmsg %::chan %oprnick kanalı lütfen dies "#" işareti olarak belirtin | halt }
else { chd check part $5- | chd check privmsg %::chan %::nick kanaldan çıkıldı : $5- | halt }
}
if (:.join == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
if (!$5) { chd check privmsg %::chan %oprnick girilecek kanalı belirtmediniz | halt }
if ($chr(35) !isin $5-) { chd check privmsg %::chan %oprnick kanalı lütfen dies "#" işareti olarak belirtin | halt }
else { chd check join $5- | chd check privmsg %::chan %::nick kanala girildi : $5- | halt }
}
if (:.cbans == $4) {
if ($yetkibul(%::chan,%::nick) != 1) { chd check PRIVMSG %::chan $qt(%::nick) komut kullanımı için yetkili konumda değilsiniz yada tanıtılmamışsınız, lütfen ChanServ yada herhangi bir services tarafından size op verilmesini sağlayıp sisteme giriş yapınız | halt }
chd check privmsg %::chan Banlar Temizleniyor..
unset %ban.*
set %cbans on
chd check mode %::chan +b
}
if (:.cbansall == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
unset %ban.*
chd check privmsg %::chan Global Kanallardaki Banlar Temizleniyor..
set %jpx off
set %cbans on
chd check whois $botnick
}
if (:.zline == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
if ($operbul($5) == 1) { chd check privmsg %::chan Oper Nick'i Atılamaz.. | halt }
if $5 == $null { chd check PRIVMSG %::chan %::nick Atılacak Nick Girmediniz.. }
if $6 == $null { set %sebep Sunucudan Uzaklastirildiniz }
else { set %sebep $6- }
chd check gzline $5 1h %sebep
msgx %oprnick : gzline $5 1h %sebep
}
if (:.spamekle == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
spamekle $yildiztemizle($strip($5-))
chd check privmsg %::chan Spam Eklendi : $yildiztemizle($strip($5-))
}
if (:.spamsil == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
spamsil $yildiztemizle($strip($5-))
chd check privmsg %::chan Spam Silindi : $yildiztemizle($strip($5-))
}
txts $1-
if ($istok($logchan,%::chan,32)) {
tokenize 32 %::text
if (!durum == $1) {
chd check privmsg $logchan Loglama Durumu : %log
chd check privmsg $logchan Loglanan Kanallar : $iif(!%logchan,Yok,%logchan)
chd check privmsg $logchan Loglanan Nickler : $iif(!%lognick,Yok,%lognick)
halt
}
if (!logoff == $1) { set %log off | chd check privmsg $logchan $2 Loglama Kapatıldı | halt }
if (!logon == $1) { set %log on | chd check privmsg $logchan $2 Loglama Açık | halt }
if (!logchanadd == $1) { set %logchan $addtok(%logchan,$2,32) | chd check privmsg $logchan Kanal $qt($2) Loglanıyor | halt }
if (!logchanrem == $1) { set %logchan $remtok(%logchan,$2,32) | chd check privmsg $logchan Kanal $qt($2) Silindi | halt }
if (!logchan == $1) { chd check privmsg $logchan Loglanan Kanallar : %logchan }
if (!lognickadd == $1) { set %lognick $addtok(%lognick,$2,32) | chd check privmsg $logchan Nick $qt($2) Loglanıyor | halt }
if (!lognickrem == $1) { set %lognick $remtok(%lognick,$2,32) | chd check privmsg $logchan Nick $qt($2) Silindi | halt }
if (!lognick == $1) { chd check privmsg $logchan Loglanan Nickler : %lognick }
}
if ($istok($logchan,%::chan,32)) {
var %opnick $remove($gettok($1,1,33),:)
tokenize 32 %::text
if ($regex($1,/((!|\.)komutlar)/i)) {
chd check PRIVMSG %::chan ********* $logchan Kanalında Kullanılabilir Komutlar *********
chd check PRIVMSG %::chan !durum = hangi kanal ve nicklerin loglandığını gösterir
chd check PRIVMSG %::chan !logon = log sistemini açar
chd check PRIVMSG %::chan !logoff = log sistemini kapatır
chd check PRIVMSG %::chan !logchanadd = kanalı kayıt altına alır
chd check PRIVMSG %::chan !logchanrem = kayıt edilen kanalı siler
chd check PRIVMSG %::chan !logchan = kayıt edilen kanalları gösterir
chd check PRIVMSG %::chan !lognickadd = nick'i kayıt altına alır
chd check PRIVMSG %::chan !lognickrem = kayıt edilen nick'i siler
chd check PRIVMSG %::chan !lognick = kayıt edilen nick listesini gösterir
chd check PRIVMSG %::chan ********* $logchan : Kullanılabilir Komut Sonu *********
}
}
if ($istok($operkanal $raporkanal,%::chan,32)) {
var %opnick $remove($gettok($1,1,33),:)
tokenize 32 %::text
if ($regex($1,/((!|\.)komutlar)/i)) {
chd check PRIVMSG %::chan ********* $operkanal ve $raporkanal Kanallarında Kullanılabilir Komutlar *********
chd check PRIVMSG %::chan botu restartlamak için *** .restart ***
chd check PRIVMSG %::chan bota işlem yaptırmak için *** .chd komut ***
chd check PRIVMSG %::chan örnek : .chd privmsg halil hoşgeldin
chd check PRIVMSG %::chan ban açmak için *** .kline ip ***
chd check PRIVMSG %::chan sc5/botnet nick listesinden nick silmek için *** .sc5sil nick ***
chd check PRIVMSG %::chan sc5/botnet nick listesinden kişileri banlamak/banlamamak için *** .sc5 on/off ***
chd check PRIVMSG %::chan sunucuya mesaj gönderimi için *** .global mesaj -/- .privmsg mesaj -/- .describe mesaj ***
chd check PRIVMSG %::chan spam komutu *** .spamekle spam -/- .spamsil spam ***
chd check PRIVMSG %::chan küfür komutu *** .kufurekle küfür -/- .kufursil küfür -/- .kufurlist ***
chd check PRIVMSG %::chan reklam komutu *** .reklamekle reklam -/- .reklamsil reklam -/- .reklamlist ***
chd check PRIVMSG %::chan away komutu *** .awayekle away mesajı -/- .awaysil away mesajı -/- .awaylist ***
chd check PRIVMSG %::chan bad nick komutu *** .bdekle nick -/- .bdsil nick -/- .bdlist ***
chd check PRIVMSG %::chan kanal işlemi *** .chekle kanal -/- .chsil kanal -/- .chlist ***
chd check PRIVMSG %::chan muaf nick işlemi *** .muafnkle nick -/- .muafnsil nick -/- .muafnlist ***
chd check PRIVMSG %::chan muaf kanal işlemi *** .muafckle nick -/- .muafcsil nick -/- .muafclist ***
chd check PRIVMSG %::chan girilmeyecek kanal işlemi *** .nochekle kanal -/- .nochsil kanal -/- .nochlist ***
chd check PRIVMSG %::chan karşımala mesajı *** .greetekle mesaj -/- .greetsil nick -/- .greetlist ***
chd check PRIVMSG %::chan normal join/part *** .join #kanal -/- .part #kanal ***
chd check PRIVMSG %::chan global kanallardaki banları açmak için *** .cbansall ***
chd check PRIVMSG %::chan bottan mode almak için *** .md +mode ***
chd check PRIVMSG %::chan botu kullanarak OperServ'den mod almak için *** .mdo +mode ***
chd check PRIVMSG %::chan tekrar korumasını açıp/kapatmak için *** .tekrar on/off ***
chd check PRIVMSG %::chan caps korumasını açıp/kapatmak için *** .caps on/off ***
chd check PRIVMSG %::chan harf uzatma korumasını açıp/kapatmak için *** .uzunharf on/off ***
chd check PRIVMSG %::chan nick flood korumasını açıp/kapatmak için *** .nickflood on/off ***
chd check PRIVMSG %::chan random nick korumasını açıp/kapatmak için *** .random on/off ***
chd check PRIVMSG %::chan karakterli yazı korumasını açıp/kapatmak için *** .karakter on/off ***
chd check PRIVMSG %::chan join part korumasını açıp/kapatmak için *** .joinpart on/off ***
chd check PRIVMSG %::chan sunucuda reklam kontrolü yapmak için *** .reklam <-nopart|-cycle> ***
chd check PRIVMSG %::chan -nopart parametresi kullanılmazsa bütün global kanallardan hop yaparak sunucuda otomatik mesaj taraması yapar
chd check PRIVMSG %::chan -cycle parametresi sadece global kanallardan hop yapmaya yarar.
chd check PRIVMSG %::chan sunucudaki ipleri taramak için *** .ipkontrol ip ***
chd check PRIVMSG %::chan *** .stringver tablo kelime *** kelimenin hangi data numarası ve hangi string ile tabloya eklendiğini gösterir
chd check PRIVMSG %::chan dataları görmek için *** .data *** yazınız
chd check PRIVMSG %::chan ********* IRCop'lar için Kullanılabilir Komutların Sonu *********
}
if (.kline == $1) {
ock %::nick
if ($remove($2,.) !isnum) { chd check privmsg %::chan Lütfen Sayısal Bir İp Adresi Girin 81.215.209.100 Gibi | halt }
set %klineip $2
set %klinenick %::nick
chd check rmtkl sSgGkKzZ *@ $+ $2
chd check privmsg %::chan $2 için Xline/Shun/A-Kill İşlendi.
set %klinechan 1
set %klinechann %::chan
}
if (.joinpart == $1) && ($2) {
ock %opnick
if ($2 == on) { set %joinpart on | chd check privmsg %::chan joinpart koruması açıldı }
elseif ($2 == off) { set %joinpart off | chd check privmsg %::chan joinpart koruması kapatıldı | .hfree -sw joinpart }
else { halt }
}
if (.nickflood == $1) && ($2) {
ock %opnick
if ($2 == on) { set %nickflood on | chd check privmsg %::chan nickflood koruması açıldı }
elseif ($2 == off) { set %nickflood off | chd check privmsg %::chan nickflood koruması kapatıldı | .hfree -sw nickflood }
else { halt }
}
if (.caps == $1) && ($2) {
ock %opnick
if ($2 == on) { set %caps on | chd check privmsg %::chan caps koruması açıldı }
elseif ($2 == off) { set %caps off | chd check privmsg %::chan caps koruması kapatıldı }
else { halt }
}
if (.uzunharf == $1) && ($2) {
ock %opnick
if ($2 == on) { set %uzunharf on | chd check privmsg %::chan uzunharf koruması açıldı }
elseif ($2 == off) { set %uzunharf off | chd check privmsg %::chan uzunharf koruması kapatıldı }
else { halt }
}
if (.karakter == $1) && ($2) {
ock %opnick
if ($2 == on) { set %karakterist on | chd check privmsg %::chan karakter koruması açıldı }
elseif ($2 == off) { set %karakterist off | chd check privmsg %::chan karakter koruması kapatıldı | .hfree -sw karakterist }
else { halt }
}
if (.tekrar == $1) && ($2) {
ock %opnick
if ($2 == on) { set %tekrar on | chd check privmsg %::chan tekrar koruması açıldı }
elseif ($2 == off) { set %tekrar off | chd check privmsg %::chan tekrar koruması kapatıldı | .hfree -sw flood }
else { halt }
}
if (.random == $1) && ($2) {
ock %opnick
if ($2 == on) { set %random on | chd check privmsg %::chan random nick koruması açıldı }
elseif ($2 == off) { set %random off | chd check privmsg %::chan random nick koruması kapatıldı }
else { halt }
}
if (.sc5 == $1) && ($2) {
ock %opnick
if ($2 == on) { set %sc5kill on | chd check privmsg %::chan Sc5/Botnet nick listesinden giren nickler atılacak }
elseif ($2 == off) { set %sc5kill off | chd check privmsg %::chan Sc5/Botnet nick listesinden giren nickler atılmayacak }
else { halt }
}
if (.kufurekle == $1) { ock %opnick | chd check PRIVMSG %::chan $swAdd($2-) }
if (.kufursil == $1) { ock %opnick | chd check PRIVMSG %::chan $swDel($2-) }
if (.kufurlist == $1) { ock %opnick | swList %opnick }
if (.reklamekle == $1) { ock %opnick | chd check PRIVMSG %::chan $rekle($2-) }
if (.reklamsil == $1) { ock %opnick | chd check PRIVMSG %::chan $rsil($2-) }
if (.reklamlist == $1) { ock %opnick | rList %opnick }
if (.awayekle == $1) { ock %opnick | chd check PRIVMSG %::chan $awayekle($2-) }
if (.awaysil == $1) { ock %opnick | chd check PRIVMSG %::chan $awaysil($2-) }
if (.awaylist == $1) { ock %opnick | awayList %opnick }
if (.bdekle == $1) { ock %opnick | chd check PRIVMSG %::chan $bdekle($2-) }
if (.bdsil == $1) { ock %opnick | chd check PRIVMSG %::chan $bdsil($2-) }
if (.bdlist == $1) { ock %opnick | bdlist %opnick }
if (.operekle == $1) {
if (!$istok($masternick,%opnick,32)) { chd check privmsg %::chan %opnick Master Değilsiniz! | halt }
chd check PRIVMSG %::chan $operekle($2-)
rastgele aldım burayı bakabilirsiniz 1 tanesi nomercyde var mı ? |
