| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| DFS Socketbot Kod Birleştirmesini Nasıl Yaparım ?
Merhaba ;
Elimde mevcut Toprak`ın yapmış olduğu DFS Bot var. Benim istediğim Eğlence botunun kodlarını DFS botuna eklemek. Tek bir bot olarak çalışmasını istiyorum.
DFS Bot Koruma Script Kodu ; Kod: Kodu kopyalamak için üzerine çift tıklayın! alias swbot if ($sock(bot).status == active) sockwrite -n bot $1-
on *:sockclose:bot:{ $+(.timer,$rand(100,9999)) 1 2 sockopen bot $_sunucuip $_port }
on *:sockopen:bot:{
if ($sockerr) { sockclose bot | $+(.timer,$rand(100,9999)) 1 2 sockopen bot $_sunucuip $_port | returnex }
swbot NICK $+($_bot,$r(100,999999))
swbot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
.hfree -sw ops
sockmark $sockname $+($_bot,$r(100000,999999999999999999999))
}
on *:sockread:bot:{
if ($sockerr) { sockclose bot | $+(.timer,$rand(100,9999)) 1 2 sockopen bot $_sunucuip $_port | returnex }
var %; | sockread %; | tokenize 32 %;
;########MODULLER START.,,
_snotice $1-
_sent $1-
_channel-koruma $1-
_channel $1-
_oper-channel $1-
_raw $1-
;########MODULLER SONU.,,
}
alias _sent {
if ($1 = ping) swbot pong $remove($2,:)
if ($2 == 001) {
set %myip $remove($token($10,2,64),)
swbot oper $_oper
swbot join 0,0
swbot nick $_bot
swbot chghostddmm $_bot IRCd.Security.System. $+ $gettok($_sunucu,2-,46)
}
if $1 == error && $2 == :closing { sockclose bot | $+(.timer,$rand(100,999)) 1 2 sockopen bot $_sunucuip $_port }
if ($2 == 451) { sockclose bot | $+(.timer,$rand(100,999)) 1 4 sockopen bot $_sunucuip $_port }
if ($regex($2,/473|475|471|474)) { swbot sajoin $_bot $4 }
if ($regex($2,/481|411)) { swbot oper $_oper | swbot nick $_bot | swbot nickserv identify $_pass | swbot os su $_supass }
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION && $left($3,1) != $chr(35) {
if $4 == :TIME { swbot NOTICE $_nick($1) TIME $time | return }
if $4 == :VERSION { swbot NOTICE $_nick($1) VERSION 2mIRC v6.35 Khaled Mardam-Bey | swbot NOTICE $_nick($1) VERSION $_username | return }
if $4 == :FINGER { swbot NOTICE $_nick($1) FINGER $_username $+ ( $+ $_ident $+ @) Idle 1 seconds | return }
if $4 == :PING { swbot NOTICE $_nick($1) PONG $5- | return }
}
if ($2 == NICK) {
if $_nick($1) == $_bot { swbot ns ghost $_bot $_pass | swbot ns release $_bot $_pass | $+(.timer,$rand(100,999)) 1 3 swbot nick $_bot }
if $right($3,-1) == $_bot {
.hfree -sw ops
swbot nickserv identify $_pass
swbot oper $_oper
$iif($_supass,swbot os su $_supass)
swbot join 0,0
swbot mode $right($3,-1) +qHp-h
swbot chghostddmm $right($3,-1) IRCd.Security.System. $+ $gettok($_sunucu,2-,46)
$+(.timer,yongir) 1 3 /yöngiriş
$+(.timer,listt) 0 50 /swbot LIST
}
swbot whois $right($3,-1)
.ych $_nick($1) $right($3,-1)
}
if ($2 = privmsg && $left($3,1) != $chr(35)) {
if $right($4,-1) == !bilgi || $right($4,-1) == .bilgi {
if $hget(Bilgi,$_nick($1)) >= 1 { return }
.hinc -msu10 Bilgi $_nick($1)
swbot privmsg $_nick($1) : $_logo - 6•2 Bilgiler 6•
swbot privmsg $_nick($1) :4* $_bot modüllerden oluşan, hiçbir şekilde eşi bulunmayan, socket mantığı ile, 2Toprak tarafından hazırlanmış koruma modülüdür.
swbot privmsg $_nick($1) :4* Kodlanma tarihi, "2 2011 " olan, $_logo - Yılının getirdiği ve getireceği bütün yenilikleri kapsamakta ve2 2013 modeline göre kodlanmaktadır.
swbot privmsg $_nick($1) :
swbot privmsg $_nick($1) : $_logo - 6•2 Modüller 6•
swbot privmsg $_nick($1) :6•2 KBOT: $bytes($file(v2\Anti.txt)) 5KB ve $lines(v2\Anti.txt) 2Satır.
swbot privmsg $_nick($1) :
swbot privmsg $_nick($1) : $_logo - 6•2 Data Kayıtları 6•
swbot privmsg $_nick($1) :6•2 Channel Data: $calc($bytes($file(hash/yönetim.mercy)) + $bytes($file(hash/glo.mercy)) + $bytes($file(hash/cinsel.mercy))) 5KB
swbot privmsg $_nick($1) :6•2 Nick Data: $calc($bytes($file(hash/bad.mercy)) + $bytes($file(hash/muafnick.mercy))) 5KB
swbot privmsg $_nick($1) :6•2 Küfür Data: $bytes($file(hash/kufur.mercy)) 5KB
swbot privmsg $_nick($1) :6•2 Reklam Data: $bytes($file(hash/reklam.mercy)) 5KB
swbot privmsg $_nick($1) :6•2 Oper Data: $bytes($file(hash/oper.mercy)) 5KB
swbot privmsg $_nick($1) :6•2 Operatör Data: $calc($bytes($file(hash/bad.mercy)) + $bytes($file(hash/kufur.mercy)) + $bytes($file(hash/reklam.mercy))) 5KB
swbot privmsg $_nick($1) :
swbot privmsg $_nick($1) : $_logo - 6•2 2011 - $gettok($fulldate,5,32) 6•
swbot privmsg $_log :2[6• 2Özel 12Komut 6•2] [Nick:4 $_nick($1) 2] [Komut:4 $strip($right($4,-1)) 2]
return
}
if $regex($right($4,-1),/^[!.&]greet$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l)$/Si) { swbot privmsg $_nick($1) :Lütfen4 [!.]greet <ekle|sil> olarak belirtiniz. | return }
elseif $regex($5,/^ekle$/Si) {
if !$6 { swbot privmsg $_nick($1) :Lütfen 4[!.]greet <ekle> <Mesaj> olarak belirtiniz. | return }
else {
.hadd -ms GreetOnay $_nick($1) $6-
.hsave GreetOnay Hash/GreetOnay.tprk
swbot privmsg $_nick($1) :Greet mesaj'ınız $6- olarak belirlendi, Adminler onaylandık sonra gözükecektir.
swbot privmsg $_opers :
swbot privmsg $_opers :Greet Onaylama;
swbot privmsg $_opers :Eklemek için;4 !greet ekle $_nick($1) Silmek için;4 !greet sil $_nick($1) olarak belirtiniz.
swbot privmsg $_opers :
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$hget(Greet,$_nick($1)) { swbot privmsg $_nick($1) :Size ait onaylanmış greet mesaj'ı bulunmamaktadır. Eklemek için Örn: 4[!.]greet <ekle> <Mesaj> | return }
else {
.hdel -ms Greet $_nick($1)
.hsave Greet Hash/Greet.tprk
swbot ns status $_nick($1)
}
}
}
if $right($4,-1) == !komutlar || $right($4,-1) == .komutlar {
if $hget(Ökomut,$_nick($1)) >= 1 { return }
.hinc -msu10 Ökomut $_nick($1)
swbot privmsg $_nick($1) : $_logo - 6•2 Özel Komutlar 6•
swbot privmsg $_nick($1) :6•2 !bilgi : 6 $_bot hakkında detaylı bilgi verir.
swbot privmsg $_nick($1) :6•2 !kurallar : Sunucu kurallarını gösterir.
swbot privmsg $_nick($1) :
swbot privmsg $_nick($1) : $_logo - 6•2 Kanal Operator Komutları 6•
swbot privmsg $_nick($1) :6•2 !k : Belirttiginiz rumuzu kanaldan atar. 2Kullanimi: !k <rumuz>
swbot privmsg $_nick($1) :6•2 !sus : Belirttiginiz rumuzu kanalda susturur. 2Kullanimi: !sus <rumuz>
swbot privmsg $_nick($1) :6•2 !kb : Belirttiginiz rumuzu ve IP'yi banlar, kanaldan atar. 2Kullanimi: !kb <rumuz>
swbot privmsg $_nick($1) :6•2 !ban : Belirttiginiz rumuzu banlar, kanaldan atar. 2Kullanimi: !ban <rumuz>
swbot privmsg $_nick($1) :6•2 !op : Belirttiginiz rumuza op (+o) verilir. 2Kullanimi: !op <rumuz>
swbot privmsg $_nick($1) :6•2 !depop : Belirttiginiz rumuzdan op (-o) alınir. 2Kullanimi: !deop <rumuz>
swbot privmsg $_nick($1) :6•2 !voice : Belirttiginiz rumuza voice (+v) verilir. 2Kullanimi: !voice <rumuz>
swbot privmsg $_nick($1) :6•2 !devoice : Belirttiginiz rumuzdan voice (+v) alinir. 2Kullanimi: !devoice <rumuz>
swbot privmsg $_nick($1) :6•2 !bantemiz : Belirttiginiz kanaldaki tum banlari temizler.
swbot privmsg $_nick($1) :6•2 !temizle : Kanalı temizler.
swbot privmsg $_nick($1) :6•2 !kurallar : Sunucu kurallarını kanala yansıtır.
swbot privmsg $_nick($1) :6•2 !nick nick kanalda badnickleri atar nick degisimi icin uyarir Sadece kanal Oplari kullanabilir.
swbot privmsg $_nick($1) :6•2 !yasak nick kanalda reklam atanlari tum kanallardan atar Sadece kanal Oplari kullanabilir.
swbot privmsg $_nick($1) :6•2 !greet ekle nick !greet sil nick : Nickinize özel karşılama mesajı eklemek veya silmek için kullanılır.
swbot privmsg $_log :2[6• 2Özel 12Komut 6•2] [Nick:4 $_nick($1) 2] [Komut:4 $strip($right($4,-1)) 2]
return
}
if $right($4,-1) == !sikayet || $right($4,-1) == .sikayet {
if (!$5) { swbot privmsg $_nick($1) :Şikayetinizi belirtiniz. | return }
swbot privmsg $_opers :Şikayet raporu: Nick: ( $_nick($1) ) Şikayet mesaj'ı: $5-
swbot PRIVMSG $_nick($1) Şikayetiniz iletilmistir. Tesekkurler.
}
if $right($4,-1) == !kurallar || $right($4,-1) == .kurallar {
if $hget(Kurallar,$_nick($1)) >= 1 { return }
.hinc -msu10 Kurallar $_nick($1)
swbot privmsg $_nick($1) : $_logo - 6•2 Sunucu Kurallar 6•
swbot privmsg $_nick($1) :6• Ayni yazının tekrarının yapılması,
swbot privmsg $_nick($1) :6• Sürekli büyük harflerle yazışmak,
swbot privmsg $_nick($1) :6• Argo, küfür içerikli cümleler kurmak,
swbot privmsg $_nick($1) :6• Din, politika gibi konularda tartışmak,
swbot privmsg $_nick($1) :6• Oto mesaj içerikli programlar kullanmak,
swbot privmsg $_nick($1) :6• Sürekli renkli yazarak kanal takibini zorlaştırmak,
swbot privmsg $_nick($1) :6• Kişileri rencide edecek şekilde hakaret etmek yasaktir.
swbot privmsg $_nick($1) :6• Sunucumuzun resmi dili Türkçe'dir.
swbot privmsg $_nick($1) :
swbot privmsg $_nick($1) :Daha detayli bilgi icin lutfen 6/kurallar yaziniz.
swbot privmsg $_log :2[6• 2Özel 12Komut 6•2] [Nick:4 $_nick($1) 2] [Komut:4 $strip($right($4,-1)) 2]
return
}
}
if ($2 == QUIT) { .yquit $right($gettok($1,1,33),-1) }
if $2 == PART { if $_nick($1) == $_bot { if ($kanalbul($3) == 1) { $iif($hget(ops,$3),.hdel -ms ops $3) | swbot sajoin $_nick($1) $3 | return } } | else { .yetkisil $3 $_nick($1) } }
if ($2 == KICK) {
if $4 == $_bot {
if $istok(ChanServ NickServ MemoServ HelpServ OperServ Duyuru Global StatServ,$1,32) { $iif($hget(ops,$3),.hdel -ms ops $3) | return }
$iif($hget(ops,$3),.hdel -ms ops $3)
swbot os raw :chanserv mode $3 -qaoh+v $_nick($1) $_nick($1) $_nick($1) $_nick($1) $_nick($1)
swbot sajoin $4 $3
return
}
else { .yetkisil $3 $4 }
}
if ($2 == JOIN) {
if $right($3,-1) == $_opers && $_nick($1) == $_bot {
swbot mode $right($3,-1) -qao+h $_nick($1) $_nick($1) $_nick($1) $_nick($1)
swbot privmsg $right($3,-1) : $_logo - 2Sunucu koruma botu online,
swbot privmsg $right($3,-1) :2Sizin için kolaylaştırılmış olan komut listesini görmek için kanala [6 !komutlar 2] yazınız.
swbot chghostddmm $_nick($1) IRCd.Security.System. $+ $gettok($_sunucu,2-,46)
swbot mode $right($3,-1) -RfCGjTvmMik+ntrsO
swbot cs set $right($3,-1) mlock -RfCGjTvmMik+ntrsO
swbot os raw svsmode $_nick($1) +qHpN-h
swbot whois $_pbot
return
}
if $_nick($1) == $_bot {
if ($hfind(nockanal,$right($3,-1),0,W).data) { .hdel -ms ops $right($3,-1) | swbot part $right($3,-1) | return }
if $right($3,-1) == $_log || $right($3,-1) == $_bots { swbot mode $right($3,-1) -RfCGjTvmMikV+ntrsO | swbot cs set $right($3,-1) mlock -RfCGjTvmMikV+ntrsO }
if $right($3,-1) == $_operhelp || $right($3,-1) == $_help { swbot mode $right($3,-1) -RfCGjTvMikV+ntrm | swbot cs set $right($3,-1) mlock -RfCGjTvMikV+ntrm }
if ($yönetimbul($right($3,-1)) == 1) { swbot mode $right($3,-1) -qao+h $_nick($1) $_nick($1) $_nick($1) $_nick($1) | swbot mode $_nick($1) +qHNp-h | return }
swbot mode $right($3,-1) -qo+a $_nick($1) $_nick($1) $_nick($1)
swbot privmsg $right($3,-1) : $_logo - 2Sunucu koruma botu online,
swbot privmsg $right($3,-1) :2Sizin için kolaylaştırılmış olan komut listesini görmek için özelime [6 !komutlar 2] yazınız.
swbot chghostddmm $_nick($1) IRCd.Security.System. $+ $gettok($_sunucu,2-,46)
swbot os raw svsmode $_nick($1) +qHpN-h
swbot whois $_pbot
return
}
if $_nick($1) == Zanay {
if ($hfind(nockanal,$right($3,-1),0,W).data) { .hdel -ms ops $right($3,-1) | swbot part $right($3,-1) | return }
if $right($3,-1) == $_log || $right($3,-1) == $_bots { swbot mode $right($3,-1) -RfCGjTvmMikV+ntrsO | swbot cs set $right($3,-1) mlock -RfCGjTvmMikV+ntrsO }
if $right($3,-1) == $_operhelp || $right($3,-1) == $_help { swbot mode $right($3,-1) -RfCGjTvMikV+ntrm | swbot cs set $right($3,-1) mlock -RfCGjTvMikV+ntrm }
if ($yönetimbul($right($3,-1)) == 1) { swbot mode $right($3,-1) -qao+h $_nick($1) $_nick($1) $_nick($1) $_nick($1) | swbot mode $_nick($1) +qHNp-h | return }
swbot privmsg $right($3,-1) :1Sunucu Sahibi [4 $_masternick 1] Online4 $date $time
swbot chghostddmm $_nick($1) IRCd.Security.System. $+ $gettok($_sunucu,2-,46)
return
}
if $_nick($1) == aDa {
swbot privmsg $right($3,-1) :1Sunucu Network Admini *1 $_nick($1) * * Online4 $date $time
}
if $right($3,-1) == #OperHelp {
if $regex($gettok($1,2,64),/(IRCD.Security.System|Network|Server|Root|admin|ircop|oper|services|techinal|services)/i) { halt }
swbot privmsg $_nick($1) :Resmi4 $remove($3,:) Kanalına Hoş Geldiniz. 4 $+ [ $_nick($1) ]
swbot privmsg $_nick($1) :Sorunuzu Sormak İçin Lütfen Size 4(+v) Voice Verilmesini Bekleyiniz.
swbot privmsg $_nick($1) :User Yardim Kanalimiz4 #Help 'dır.
swbot privmsg $_nick($1) :Gereksiz Bekleme Yapmak Yasaktir Ve Kanaldan Atilma Sebebidir.
swbot privmsg $_nick($1) :Hoş Sohbetler Dileriz.
swbot privmsg $_opers :4[ $_nick($1) ] Şuanda 4[ $remove($3,:) ] Kanalına Girdi Yardım Beklemekte. 12 [ $date ] [ $time ]
halt
}
if $right($3,-1) == #SOHBET {
if $regex($gettok($1,2,64),/(IRCD.Security.System|Network|Server|Root|admin|ircop|oper|services|techinal|services)/i) { halt }
swbot privmsg $_nick($1) :Sayın 4 $+ [ $_nick($1) ] 1Zanay.Net İnternet Hizmetleri Test Sunucusuna Hoş Geldiniz.
swbot privmsg $_nick($1) :Sunucumuzda; 4Unrealircd, Eggdrop, İrcservices, Bomp, Socket Bot 1Gibi Programların Testleri Yapılmaktadır.
swbot privmsg $_nick($1) :Sunucu Üzerinde Sohbet Ortamı Yoktur. Sadece İlgili Konular İçin Teknik Destek Sunulmaktadır.
halt
}
if $right($3,-1) == #Karantina {
if $regex($gettok($1,2,64),/(IRCD.Security.System|Network|Server|Root|admin|ircop|oper|services|techinal|services)/i) { halt }
swbot privmsg $_nick($1) :Sayın 4 $+ [ $_nick($1) ] 1Zanay.Net İnternet Hizmetleri Test Sunucusuna Hoş Geldiniz.
swbot privmsg $_nick($1) :Şu Anda IP Üzerinde Kontrol Amaçlı Karantina Uygulanmaktadır.
swbot privmsg $_nick($1) :Kontrol Sonrası İlgili Kanallara Otomotik Olarak Aktarım Sağlanacaktır.
swbot privmsg $_nick($1) :Zanay.Net Güvenlik Sistemleri
halt
}
if ($hfind(bad,$_nick($1),1,W).data) {
if ($yönetimbul($right($3,-1)) == 1) || ($botsnickler($_nick($1)) == 1) { return }
if ($chbul($right($3,-1)) == 1) { swbot chgident $_nick($1) $gettok($_sunucu,2,46) | swbot operserv raw svsnick $_nick($1) $+($gettok($_sunucu,2,46),$rand(1000,99999)) 0:1 | return }
swbot mode $right($3,-1) +b $_nick($1)
swbot kick $right($3,-1) $_nick($1) 2Global kanallarda cinsellik içeren nick kullanamazsınız.
}
if (%joinpart == on) {
if $regex($gettok($1,2,64),/(IRCd.Security.System|Root|admin|ircop|oper.|techinal|serveradmin|dj|global|founder|help|web|forum|staff)/i) { return }
if ($yönetimbul($right($3,-1)) == 1) || ($botsnickler($_nick($1)) == 1) { return }
.hinc -mu15 Cycle $+($right($3,-1),$gettok($1,2,64)) 1
if $hget(Cycle,$+($right($3,-1),$gettok($1,2,64))) >= 4 {
swbot mode $right($3,-1) +bb $+(*!*@,$gettok($1,2,64)) $_nick($1)
swbot kick $right($3,-1) $remove($gettok($1,1,33),:) 2Join/Part yapmak yasak!
}
}
}
if $2 == MODE && $left($3,1) == $chr(35) {
if (!$5) { return }
if ($regex($4,\+(b))) { swbot mode $3 -b *!*@* }
if $4 == +b {
if ($regex($token($5,2-,64),/(IRCd.Security.System|Root|admin|ircop|oper.|techinal|serveradmin)/i)) {
swbot mode $3 -b $5
swbot NOTICE $_nick($1) :2Banlamaya calistiginiz [Mask/Nick] korumam altindadir, ban atamazsiniz.
}
}
if $4 == +b && $5 == *!*@* { swbot mode $3 -b $5 | return }
if ($regex($4,\+(b))) && ($+(*,$_bot,*) iswm $5-) { swbot mode $3 -b $_bot | return }
if ($regex($4,\-(h))) && ($+(*,$_bot,*) iswm $5-) { if ($yönetimbul($3) == 1) { swbot mode $3 -qao+h $_bot $_bot $_bot $_bot } }
if ($regex($4,\-(a))) && ($+(*,$_bot,*) iswm $5-) { if ($yönetimbul($3) != 1) { swbot mode $3 -qoh+a $_bot $_bot $_bot $_bot } }
if ($regex($4,\+(a|o|q))) && ($+(*,$_bot,*) iswm $5-) { if ($yönetimbul($3) == 1) { swbot mode $3 -qao+h $_bot $_bot $_bot $_bot } }
if ($regex($4,\+(h|o|q))) && ($+(*,$_bot,*) iswm $5-) { if ($yönetimbul($3) != 1) { swbot mode $3 -qoh+a $_bot $_bot $_bot $_bot } }
if ($botsnickler($5) == 1) { return }
if ($regex($4,\-(h|o|a|q))) { .hdel -ms ops $3 | swbot names $3 }
if ($regex($4,\+(h|o|a|q))) && ($yönetimbul($3) == 1) { .hdel -ms ops $3 | swbot names $3 }
if ($yönetimbul($3) != 1) {
if ($4 == +v) { swbot privmsg $3 :[ $5 ] VIP (Özel Kullanıcı) (6+v) Konumuna Geçti. }
if ($4 == -v) { swbot privmsg $3 :[ $5 ] VIP (Özel Kullanıcı) (6-v) Konumundan Alındı. }
if ($4 == +h) { swbot NOTICE $2 :Şuan da yardımcı operatör (3+h) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Yardımcı Operatör (3+h) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == -h) { swbot NOTICE $2 :Şuan da yardımcı operatör (3-h) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Yardımcı Operatör (3-h) Konumundan Alındı. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == +o) { swbot NOTICE $2 :Şuan da kanal operatörü (4+o) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Kanal Operatörü (4+o) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == -o) { swbot NOTICE $2 :Şuan da kanal operatörü (4-o) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Kanal Operatörü (4-o) Konumundan Alındı. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == +a) { swbot NOTICE $2 :Şuan da süper operatör (7+a) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Süper Operatör (7+a) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == -a) { swbot NOTICE $2 :Şuan da süper operatör (7-a) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Süper Operatör (7-a) Konumundan Alındı. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == +ao) { swbot NOTICE $2 :Şuan da süper operatör (7+a) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Süper Operatör (7+a) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == +oa) { swbot NOTICE $2 :Şuan da süper operatör (7+a) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Süper Operatör (7+a) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == +q) { swbot NOTICE $2 :Şuan da kanal sahibi (10+q) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Kanal Sahibi (10+q) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == -q) { swbot NOTICE $2 :Şuan da kanal sahibi (10+q) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Kanal Sahibi (10-q) Konumundan Alındı. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == +qo) { swbot NOTICE $2 :Şuan da kanal sahibi (10+q) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Kanal Sahibi (10+q) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == +oq) { swbot NOTICE $2 :Şuan da kanal sahibi (10+q) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Kanal Sahibi (10+oq) Konumuna Geçti. | .hdel -ms ops $3 | swbot names $3 }
if ($4 == -oq) { swbot NOTICE $2 :Şuan da kanal sahibi (10+q) konumuna geçtiniz, komutları görebilmek için özelime 2!komutlar yazınız. | swbot privmsg $3 :[ $5 ] Kanal Sahibi (10-oq) Konumundan Alındı. | .hdel -ms ops $3 | swbot names $3 }
if ($regex($4,\+(h|o|a|q))) {
$iif($hget(Greet,$5),swbot privmsg $3 :[ $5 ] 4* $hget(Greet,$5),swbot notice $5 :Size ait bir greet mesaj'ı yok eklemek için özelime 4!greet <ekle> <MESAJINIZ> yazınız.)
}
}
}
}
alias _raw {
if ($2 == 353) { .yns $5 $6- }
if ($2 == 319) {
if ($operbul($4) == 1) { return }
if ($hfind(bad,$4,1,W).data) {
var %kanallar $5-
var %t = 1
while %t <= $gettok($5-,0,32) {
if ($chbul($remove($regsubex($gettok($5-,%t,32),/([ $+ $prefix $+ !?])\x23/g,$chr(35)),:)) != 1) {
swbot mode $remove($regsubex($gettok($5-,%t,32),/([ $+ $prefix $+ !?])\x23/g,$chr(35)),:) +b $4
swbot os raw svspart $4 $remove($regsubex($gettok($5-,%t,32),/([ $+ $prefix $+ !?])\x23/g,$chr(35)),:)
}
inc %t
}
cinselsokma $4
swbot NOTICE $4 :2Kufur, Hakaret, Msn/Cam veya Cinsellik ifade eden rumuzlari Global kanallarimizda kullanamazsiniz.
}
if %:yasak == on {
var %:kanal $5-
var %:t = 1
while %:t <= $gettok($5-,0,32) {
swbot mode $remove($regsubex($gettok($5-,%:t,32),/([ $+ $prefix $+ !?])\x23/g,$chr(35)),:) +b $4
swbot kick $remove($regsubex($gettok($5-,%:t,32),/([ $+ $prefix $+ !?])\x23/g,$chr(35)),:) $4 1Kurallara aykırı davranış sergilediniz..
inc %:t
}
unset %:yasak
}
}
if ($2 == 322) {
if ($5 <= 2) { if $kanalbul($4) != 1 { .hdel -ms ops $4 | swbot PART $4 } }
if ($hfind(nockanal,$4,0,W).data) { return }
if ($5 >= 3) { swbot sajoin $_bot $4 }
}
if ($2 == 368) {
var %f = 1
while (%f <= $hget($+($4,.ban),0).item) {
var %t = $addtok(%t,$hget($+($4,.ban),%f).item,32)
if ($numtok(%t,32) == 60) { massmode $4 -b %t | unset %t }
inc %f 1
}
massmode $4 -b %t
$+(.timer,.,$rand(1,999)) 1 5 unset %cbans
if $hget($+($4,.ban)) { $+(.timer,$4,bansall) 1 6 hfree $+($4,.ban) }
}
if ($2 == 367) {
if %cbans == on {
if !$hget($+($4,.ban)) { hmake $+($4,.ban) }
.hadd $+($4,.ban) $5 $rand(11111111,99999999)
}
}
if $2 == 352 {
if $hget(Kick,$+($4,$8)) {
if ($regex($9,/@|&|%|~|\./i)) || ($operbul($8) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(Kick,$+($4,$8)) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel Kick $+($4,$8) | return }
swbot kick $4 $8 2Lütfen sunucu kurallarına uyunuz!
.hdel Kick $+($4,$8)
return
}
if $hget(KickBan,$+($4,$8)) {
if ($regex($9,/@|&|%|~|\./i)) || ($operbul($8) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(KickBan,$+($4,$8)) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel KickBan $+($4,$8) | return }
swbot mode $4 +b $+(*!*@,$6)
swbot kick $4 $8 2Lütfen sunucu kurallarına uyunuz!
.hdel KickBan $+($4,$8)
return
}
if $hget(NickBan,$+($4,$8)) {
if ($regex($9,/@|&|%|~|\./i)) || ($operbul($8) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(NickBan,$+($4,$8)) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel NickBan $+($4,$8) | return }
swbot mode $4 +b $+(*!*@,$6)
swbot kick $4 $8 4 $8 13rumuzu sohbet kurallarına aykırıdır. Lütfen 12/nick YeniRumuz 13komutu ile değiştiriniz.))
.hdel NickBan $+($4,$8)
return
}
if $hget(Ban,$+($4,$8)) {
if ($regex($9,/@|&|%|~|\./i)) || ($operbul($8) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(Ban,$+($4,$8)) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel Ban $+($4,$8) | return }
swbot mode $4 +b $+($8,*!*@)
swbot kick $4 $8 2Lütfen sunucu kurallarına uyunuz!
.hdel Ban $+($4,$8)
return
}
if $hget(Sus,$+($4,$8)) {
if ($regex($9,/@|&|%|~|\./i)) || ($operbul($8) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(Sus,$+($4,$8)) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel Sus $+($4,$8) | return }
swbot mode $4 +bb-v $+(~q:,*!*@ $+ $6,) $+(~n:,*!*@ $+ $6,) $8
swbot privmsg $4 : $+ $8 ,kanal içerisinde ki kurallara uymadığınız farkedildiğinden dolayı, susturuldunuz.
.hdel Sus $+($4,$8)
return
}
}
if ($2 == 401) {
if !$sock(pbot) { sockopen pbot $_sunucuip $_port }
if !$sock(sbot) { sockopen sbot $_sunucuip $_port }
if !$sock(sebot) { sockopen sebot $_sunucuip $_port }
if !$sock(pubot) { sockopen pubot $_sunucuip $_port }
if !$sock(hosbot) { sockopen hosbot $_sunucuip $_port }
if !$sock(rbot) { sockopen rbot $_sunucuip $_port }
if $hget(Kill,$4) { swbot privmsg $_opers :[ $4 ] nick'i sunucuda bulunmamaktadır. | .hdel -ms Kill $4 }
if $hget(Shun,$4) { swbot privmsg $_opers :[ $4 ] nick'i sunucuda bulunmamaktadır. | .hdel -ms Shun $4 }
if $hget(Zline,$4) { swbot privmsg $_opers :[ $4 ] nick'i sunucuda bulunmamaktadır. | .hdel -ms Zline $4 }
if $hget(Gline,$4) { swbot privmsg $_opers :[ $4 ] nick'i sunucuda bulunmamaktadır. | .hdel -ms Gline $4 }
}
if ($2 == 311) {
if $hget(Kill,$4) {
if ($operbul($4) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(Kill,$4) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel Kill $4 | return }
swbot kill $4 2Lütfen sunucu kurallarına uyunuz! | swbot privmsg $_opers :[ $4 ] nick'ine kill atılmışdır. | .hdel Kill $4
}
if $hget(Shun,$4) {
if ($operbul($4) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(Shun,$4) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel Shun $4 | return }
swbot shun $4 - 2Lütfen sunucu kurallarına uyunuz! | swbot privmsg $_opers :[ $4 ] nick'ine shun atılmışdır. | .hdel Shun $4
}
if $hget(Zline,$4) {
if ($operbul($4) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(Zline,$4) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel Zline $4 | return }
swbot zline $4 - 2Lütfen sunucu kurallarına uyunuz! | swbot privmsg $_opers :[ $4 ] nick'ine zline atılmışdır. | .hdel Zline $4
}
if $hget(Gline,$4) {
if ($operbul($4) == 1) || $regex($gettok($6,1,32),/(IRCd.Security.System|Root|admin|ircop|oper.|staff)/i) { swbot notice $hget(Gline,$4) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel Gline $4 | return }
swbot gzline $4 - GUVENLIK ENGELİNE TAKILDINIZ! 12GaBiLLe Kurallarına Aykırı :: 4 18 Yas Altı Arayış12 <> 4Msn , Telfon , Site Reklamı Yapmak 12<>4 Maddiyat Sunmak Paralı Arayışta Bulunmak12 <> 4Ensest iLişki 12<> 4Ailevi Hakaret 12:: Kurallarından Birini İhLaL Ettiniz.12,15Kurallar hakkında detaylı bilgi için sunucuda /kurallar yazabilirsiniz.1,8 ~ 12Ga3Bi4LLe 1YöNeTiM ~))
}
}
if $2 == 315 {
if $hget(Status,Kontrol) == On {
swbot privmsg $_opers :Status taraması tamamlanmıştır. Hiç bir kanalda olmayanlar Global kanallara sajoin'lenmistir.
.hfree -sw Status
}
}
if $2 == 352 {
if $hget(Status,Kontrol) == On {
if $4 == $chr(42) {
if ($botsnickler($strip($8)) == 1) { return }
.golstatus $8
}
}
}
if ($2 == 352) {
if (%:nerden == on) { nerden $6 $8 | set %:nerden off }
if (%proxy == on) { tara $6 $8 $5 }
if (%random == on) && $randomnick($11-) { swbot gline $+(*@,$6) - 2 Random fullname ile sunucuya girmek yasak! | swbot privmsg $_log :2[6• 2Random 12Fullname 6•2] [Nick:4 $8 2] [Ident:4 $5 2] [Ip:4 $6 2] [Fullname:4 $11- 2] | return }
}
if $2 == 223 {
if ($5 == %trip) { set %ipblnd ipbulundu | swbot privmsg $_opers :7Host :5 $remove($gettok($5,1,33),$chr(42),$chr(64)) 10Banlayan :5 $remove($gettok($8,1,33),:) 3Sebep :5 $remove($gettok($9-,1,33),:) }
}
if $2 == 216 {
if ($5 == %trip) { set %ipblnd ipbulundu | swbot privmsg $_opers :7Host :5 $remove($gettok($5,1,33),$chr(42),$chr(64)) 10Banlayan :5 $remove($gettok($8,1,33),:) 3Sebep :5 $remove($gettok($9-,1,33),:) }
}
if $2 == 219 {
if ($4 == g) {
if (%ipblnd == ipyok) { swbot privmsg $_opers : Gline -Zline -Gzline listesinde aranılan ip'de ban yok..
}
}
}
if $2 == 219 {
if ($4 == k) {
if (%ipblnd == ipyok) {
swbot privmsg $_opers : Kline listesinde aranılan ip'de ban yok..
}
}
}
}
alias _channel {
if $2 == PRIVMSG && $left($3,1) == $chr(35) {
if $right($4,-1) == !help || $right($4,-1) == .help { swbot sajoin $_nick($1) $_help }
if $right($4,-1) == !kurallar || $right($4,-1) == .kurallar {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !%kkkomutlar. [ $+ [ $3 ] ] {
inc -u5 %kkkomutlar. [ $+ [ $3 ] ]
swbot privmsg $3 :Tekrar ve Flood Yapmak, Büyük Harf Kullanmak, Rahatsız Edici Şekilde Renkli Yazmak, Reklam Yapmak, Din ve Politika Konuşarak Odadakileri Rahatsiz Etmek, Küfür Etmek, Başkalarını Rahatsız Edecek Davranışlarda Bulunmak, Kişiler Arasında Ayrimcılık Yaratmaya Çalışmak, Otomatik Mesaj Kullanmak, Kelimeleri Gereksiz Yere Uzatmak , Kanal Sorumlularından Voice ve Op İstemek ve Oplarla Tartışmak Kesinlikle Yasaktır!
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) 2]
}
}
}
if $right($4,-1) == !temizle || $right($4,-1) == .temizle || $right($4,-1) == .clear || $right($4,-1) == !clear || $right($4,-1) == !sil || $right($4,-1) == .sil { if ($ybul($3,$_nick($1)) == $true) { if !%kkkomutlar2. [ $+ [ $3 ] ] { inc -u5 %kkkomutlar2. [ $+ [ $3 ] ] | swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) 2] | var %tem 1 | while %tem <= $lines(ktemizlik.txt) { swbot os raw :chanserv privmsg $3 : $+ $gettok($read(ktemizlik.txt,%tem),1,36) | inc %tem } } } }
if $right($4,-1) == !voice || $right($4,-1) == .voice || $right($4,-1) == .v || $right($4,-1) == !v {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
if !%kvoice. [ $+ [ $3 ] ] {
inc -u5 %kvoice. [ $+ [ $3 ] ]
swbot mode $3 $+(+,$str(v,$numtok($strip($5-),32))) $strip($5-)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4-,:) 2]
}
}
}
if $right($4,-1) == !devoice || $right($4,-1) == .devoice || $right($4,-1) == !dv || $right($4,-1) == .dv {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
if !%kdevoice. [ $+ [ $3 ] ] {
inc -u5 %kdevoice. [ $+ [ $3 ] ]
swbot mode $3 $+(-,$str(v,$numtok($strip($5-),32))) $strip($5-)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4-,:) 2]
}
}
}
if $right($4,-1) == !kick || $right($4,-1) == .kick || $right($4,-1) == !k || $right($4,-1) == .k {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) || $5 == $_nick($1) { return }
if ($ybul($3,$strip($5)) == $true) { swbot notice $_nick($1) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | return }
if !%kkick. [ $+ [ $3 ] ] {
inc -u3 %kkick. [ $+ [ $3 ] ]
.hadd -msu3 Kick $+($3,$strip($5)) $_nick($1)
swbot who +cn $3 $strip($5)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) $strip($5) 2]
}
}
}
if $right($4,-1) == !op || $right($4,-1) == .op {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
swbot mode $3 +o $strip($5)
}
}
if $right($4,-1) == !deop || $right($4,-1) == .deop {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
swbot mode $3 -o $strip($5)
}
}
if $right($4,-1) == !protect || $right($4,-1) == .protect {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
swbot mode $3 +a $strip($5)
}
}
if $right($4,-1) == !deprotect || $right($4,-1) == .deprotect {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
swbot mode $3 -a $strip($5)
}
}
if $right($4,-1) == !owner || $right($4,-1) == .owner {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
swbot mode $3 +q $strip($5)
}
}
if $right($4,-1) == !deowner || $right($4,-1) == .deowner {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
swbot mode $3 -q $strip($5)
}
}
if $right($4,-1) == !kickban || $right($4,-1) == .kickban || $right($4,-1) == .kb || $right($4,-1) == !kb {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) || $5 == $_nick($1) { return }
if ($ybul($3,$strip($5)) == $true) { swbot notice $_nick($1) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | return }
if !%kkban. [ $+ [ $3 ] ] {
inc -u3 %kkban. [ $+ [ $3 ] ]
.hadd -msu3 KickBan $+($3,$strip($5)) $_nick($1)
swbot who +cn $3 $strip($5)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) $strip($5) 2]
}
}
}
if $right($4,-1) == !nick || $right($4,-1) == .nick {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) || $5 == $_nick($1) { return }
if ($ybul($3,$strip($5)) == $true) { swbot notice $_nick($1) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | return }
if !%kkban. [ $+ [ $3 ] ] {
inc -u3 %kkban. [ $+ [ $3 ] ]
.hadd -msu3 NickBan $+($3,$strip($5)) $_nick($1)
swbot who +cn $3 $strip($5)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) $strip($5) 2]
}
}
}
if $right($4,-1) == !yasak || $right($4,-1) == .yasak {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) || $5 == $_nick($1) { return }
if ($ybul($3,$strip($5)) == $true) { swbot notice $_nick($1) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | return }
if !%kkbans. [ $+ [ $3 ] ] {
inc -u3 %kkbans. [ $+ [ $3 ] ]
set %:yasak on
swbot whois $strip($5)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) $strip($5) 2]
}
}
}
if $right($4,-1) == !ban || $right($4,-1) == .ban || $right($4,-1) == !b || $right($4,-1) == .b {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) || $5 == $_nick($1) { return }
if ($ybul($3,$strip($5)) == $true) { swbot notice $_nick($1) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | return }
if !%kkbann. [ $+ [ $3 ] ] {
inc -u3 %kkbann. [ $+ [ $3 ] ]
.hadd -msu3 Ban $+($3,$strip($5)) $_nick($1)
swbot who +cn $3 $strip($5)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) $strip($5) 2]
}
}
}
if $right($4,-1) == .sus || $right($4,-1) == !sus {
if ($yönetimbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) {
if !$strip($5) || #* iswm $strip($5) || *.* iswm $strip($5) { swbot PRIVMSG $3 :[ $_nick($1) ] Lütfen nick belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) || $5 == $_nick($1) { return }
if ($ybul($3,$strip($5)) == $true) { swbot notice $_nick($1) :2Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | return }
if !%kksus. [ $+ [ $3 ] ] {
inc -u3 %kksus. [ $+ [ $3 ] ]
.hadd -msu3 Sus $+($3,$strip($5)) $_nick($1)
swbot who +cn $3 $strip($5)
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) $strip($5) 2]
}
}
}
if $right($4,-1) == !bantemiz || $right($4,-1) == .bantemiz || $right($4,-1) == !bantemizle || $right($4,-1) == !bantemizle {
if ($ybul($3,$_nick($1)) == $true) {
if !%kkkomutlar1. [ $+ [ $3 ] ] {
inc -u5 %kkkomutlar1. [ $+ [ $3 ] ]
set %cbans on
swbot privmsg $3 :Bütün banlar, temizleniyor.
swbot mode $3 +b
swbot privmsg $_log :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) 2]
}
}
}
}
}
alias _channel-koruma {
if $2 == PRIVMSG && $left($3,1) == $chr(35) || $2 == NOTICE && $left($3,1) == $chr(35) {
if ($yönetimbul($3) == 1) || ($muafkbul($3) == 1) { return }
if ($ybul($3,$_nick($1)) == $true) || ($muafn($_nick($1)) == 1) || ($botsnickler($_nick($1)) == 1) { return }
if $regex($gettok($1,2,64),/(IRCd.Security.System|Root|admin|ircop|oper.|techinal|serveradmin)/i) { return }
if $gettok($1,2,33) == $+(services@,$gettok($_sunucu,2-,46)) || $gettok($1,2,64) == $+(irc.,$gettok($_sunucu,2-,46)) { return }
if (%kufur == on) {
if $hfind(kufur,$right($strip($4-),-1),1,W).data {
swbot mode $3 +b $+(*,!,*,@,$gettok($1,2,64))
swbot kick $3 $remove($gettok($1,1,33),:) 2Lütfen sunucu genelinde küfür/argo içerikli kelimeler kullanmayalım!
swbot privmsg $_log :2[6• 2Kufur/Argo 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Kufur:4 $right($strip($4-),-1) 2] [Mask:4 $hget(kufur,$hfind(kufur,$right($strip($4-),-1),1,W).data) 2]
return
}
}
if (%reklam == on) {
if $hfind(reklam,$right($strip($4-),-1),1,W).data {
if !$hfind(mrek,$right($strip($4-),-1),1,W).data {
swbot mode $3 +b $+(*,!,*,@,$gettok($1,2,64))
swbot kick $3 $remove($gettok($1,1,33),:) 2Sunucu genelince reklam yapmak yasak!
swbot privmsg $_log :2[6• 2Reklam 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Reklam:4 $right($strip($4-),-1) 2] [Mask:4 $hget(reklam,$hfind(reklam,$right($strip($4-),-1),1,W).data) 2]
return
}
}
}
if (%uzunharf == on) {
if $len($remove($strip($4-),$chr(58),$chr(32))) >= 300 {
swbot mode $3 +bb-v $+(~q:,$gettok($1,2,64)) $+(~n:,$gettok($1,2,64)) $_nick($1)
swbot PRIVMSG $3 :12• [ $_nick($1) ] 2Sunucu genelinde gereginden fazla uzun harf kullandıgınız için konuşmanız engellenmişdir.
swbot privmsg $_log :2[6• 2Uzun Yazı 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2]
return
}
}
if (%buyukharf == on) {
if ($regex($right($strip($4-),-1),/([A-ZŞĞİÜÖÇWX])/g) >= 40) {
swbot mode $3 +bb-v $+(~q:,$gettok($1,2,64)) $+(~n:,$gettok($1,2,64)) $_nick($1)
swbot PRIVMSG $3 :12• [ $_nick($1) ] 2Sunucu genelinde gereginden fazla büyük harf kullandıgınız için konuşmanız engellenmişdir.
swbot privmsg $_log :2[6• 2Buyuk Harf 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2]
return
}
}
if (%flood == on) {
if $chr(22) isin $4- && $chr(2) isin $4- && $chr(31) isin $4- && $regex($4-,/[0-9]/i) {
swbot gzline $_nick($1) +10h 2Sunucu genelinde flood/tekrar yapmak yasak!
swbot privmsg $_log :2[6• 2Flood 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2]
return
}
.hinc -mu1 Flood $+($_nick($1),$3) 1
if $hget(Flood,$+($_nick($1),$3)) >= 4 {
swbot mode $3 +b $+(*,!,*,@,$gettok($1,2,64))
swbot kick $3 $_nick($1) 2Sunucu genelinde flood/tekrar yapmak yasak!
swbot privmsg $_log :2[6• 2Flood 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2]
.hdel Flood $+($_nick($1),$3)
return
}
if $len($remove($strip($4-),$chr(58),$chr(32))) >= 10 {
if (!$istok($hget($+(Floods,$3),$strip($4)),$_nick($1),32)) { .hadd -msu7 $+(Floods,$3) $strip($4) $hget($+(Floods,$3),$strip($4)) $_nick($1) }
if ($token($hget($+(Floods,$3),$strip($4)),0,32) >= 4) {
swbot privmsg $_log :2[6• 2Flood 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2]
var %gh = 1
while %gh <= $token($hget($+(Floods,$3),$strip($4)),0,32) {
swbot mode $3 +b $token($hget($+(Floods,$3),$strip($4)),%gh,32)
swbot kick $3 $token($hget($+(Floods,$3),$strip($4)),%gh,32) 2Sunucu genelinde flood/tekrar yapmak yasak!
inc %gh
}
}
}
}
}
}
alias _oper-channel {
if $2 == PRIVMSG && $3 == $_opers {
if $right($4,-1) == !komutlar || $right($4,-1) == .komutlar {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 : $+ $_logo - 6•2 Opers Komutlar 6•
swbot privmsg $3 :
swbot privmsg $3 :6• [2 !kanal ] Kanal komut dizini
swbot privmsg $3 :6• [2 !nick ] Nick komut dizini
swbot privmsg $3 :6• [2 !korumalar ] Koruma komut dizini
swbot privmsg $3 :6• [2 !sistem ] Sistem komut dizini
swbot privmsg $3 :6• [2 !socks ] Socks bot komut dizini
swbot privmsg $3 :
swbot privmsg $3 :6• [4 $gettok($_sunucu,2-,46) ] 2Kalitesiyle
}
if $remove($4,:) == !Socks || $remove($4,:) == .socks {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 :[Koruma Botu] 12[ .koruma cık - gir - restart 12] [ Durum: $iif($sock(bot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :[Radyo Botu] 12[ .radyo cık - gir - restart 12] [ Durum: $iif($sock(rbot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :[Puan Botu] 12[ .puan cık - gir - restart 12] [ Durum: $iif($sock(pubot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :[Host Botu] 12[ .host cık - gir - restart 12] [ Durum: $iif($sock(hosbot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :[System Botu] 12[ .system cık - gir - restart 12] [ Durum: $iif($sock(sbot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :[Security Botu] 12[ .security cık - gir - restart 12] [ Durum: $iif($sock(sebot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :[Proxy Botu] 12[ .sproxy cık - gir - restart 12] [ Durum: $iif($sock(pbot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :
swbot privmsg $3 :4Not: 12[Sadece Master Nickler Kullana Bilir.12]
}
if $remove($4,:) == .security {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 == gir {
if $sock(sebot) { swbot privmsg $3 :[Security Botu] [Sunucuda Baglı Durumda] | return }
swbot privmsg $3 :[Security Botu] [Sunucuya Girdi] | sockopen sebot $_sunucuip $_port | return
}
if $5 == cık {
if !$sock(sebot) { swbot privmsg $3 :[Security Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Security Botu] [Sunucudan Cıkarılmışdır!] | sockclose sebot | return
}
if $5 == restart {
if !$sock(sebot) { swbot privmsg $3 :[Security Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Security Botu] [Restart Atılmışdır] | sockclose sebot | sockopen sebot $_sunucuip $_port | return
}
}
if $remove($4,:) == .system {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 == gir {
if $sock(sbot) { swbot privmsg $3 :[System Botu] [Sunucuda Baglı Durumda] | return }
swbot privmsg $3 :[System Botu] [Sunucuya Girdi] | sockopen sbot $_sunucuip $_port | return
}
if $5 == cık {
if !$sock(sbot) { swbot privmsg $3 :[System Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[System Botu] [Sunucudan Cıkarılmışdır!] | sockclose sbot | return
}
if $5 == restart {
if !$sock(sbot) { swbot privmsg $3 :[System Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[System Botu] [Restart Atılmışdır] | sockclose sbot | sockopen sbot $_sunucuip $_port | return
}
}
if $remove($4,:) == .host {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 == gir {
if $sock(hosbot) { swbot privmsg $3 :[Host Botu] [Sunucuda Baglı Durumda] | return }
swbot privmsg $3 :[Host Botu] [Sunucuya Girdi] | sockopen hosbot $_sunucuip $_port | return
}
if $5 == cık {
if !$sock(hosbot) { swbot privmsg $3 :[Host Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Host Botu] [Sunucudan Cıkarılmışdır!] | sockclose hosbot | return
}
if $5 == restart {
if !$sock(hosbot) { swbot privmsg $3 :[Host Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Host Botu] [Restart Atılmışdır] | sockclose hosbot | sockopen hosbot $_sunucuip $_port | return
}
}
if $remove($4,:) == .koruma {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 == gir {
if $sock(bot) { swbot privmsg $3 :[Koruma Botu] [Sunucuda Baglı Durumda] | return }
swbot privmsg $3 :[Koruma Botu] [Sunucuya Girdi] | sockopen bot $_sunucuip $_port | return
}
if $5 == cık {
if !$sock(bot) { swbot privmsg $3 :[Koruma Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Koruma Botu] [Sunucudan Cıkarılmışdır!] | sockclose bot | return
}
if $5 == restart {
if !$sock(bot) { swbot privmsg $3 :[Koruma Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Koruma Botu] [Restart Atılmışdır] | sockclose pbot | sockopen bot $_sunucuip $_port | return
}
}
if $remove($4,:) == .radyo {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 == gir {
if $sock(rbot) { swbot privmsg $3 :[Radyo Botu] [Sunucuda Baglı Durumda] | return }
swbot privmsg $3 :[Radyo Botu] [Sunucuya Girdi] | sockopen rbot $_sunucuip $_port | return
}
if $5 == cık {
if !$sock(rbot) { swbot privmsg $3 :[Radyo Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Radyo Botu] [Sunucudan Cıkarılmışdır!] | sockclose rbot | return
}
if $5 == restart {
if !$sock(rbot) { swbot privmsg $3 :[Radyo Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Radyo Botu] [Restart Atılmışdır] | sockclose rbot | sockopen rbot $_sunucuip $_port | return
}
}
if $remove($4,:) == .puan {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 == gir {
if $sock(pubot) { swbot privmsg $3 :[Puan Botu] [Sunucuda Baglı Durumda] | return }
swbot privmsg $3 :[Puan Botu] [Sunucuya Girdi] | sockopen pubot $_sunucuip $_port | return
}
if $5 == cık {
if !$sock(pubot) { swbot privmsg $3 :[Puan Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Puan Botu] [Sunucudan Cıkarılmışdır!] | sockclose pubot | return
}
if $5 == restart {
if !$sock(pubot) { swbot privmsg $3 :[Puan Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Puan Botu] [Restart Atılmışdır] | sockclose pubot | sockopen pubot $_sunucuip $_port | return
}
}
if $remove($4,:) == .sproxy {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 == gir {
if $sock(pbot) { swbot privmsg $3 :[Proxy Botu] [Sunucuda Baglı Durumda] | return }
swbot privmsg $3 :[Proxy Botu] [Sunucuya Girdi] | sockopen pbot $_sunucuip $_port | return
}
if $5 == cık {
if !$sock(pbot) { swbot privmsg $3 :[Proxy Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Proxy Botu] [Sunucudan Cıkarılmışdır!] | sockclose pbot | return
}
if $5 == restart {
if !$sock(pbot) { swbot privmsg $3 :[Proxy Botu] [Sunucuya Baglı Degil!] | return }
swbot privmsg $3 :[Proxy Botu] [Restart Atılmışdır] | sockclose pbot | sockopen pbot $_sunucuip $_port | return
}
}
if $right($4,-1) == !kanal || $right($4,-1) == .kanal {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 : $+ $_logo - 6•2 Kanal Komutlar 6•
swbot privmsg $3 :
swbot privmsg $3 :6• [2 !yönetim ekle #Kanal 7- 2!yönetim sil #Kanal 7- 2!yönetim list ] Yönetim kanal komut dizini
swbot privmsg $3 :6• [2 !global ekle #Kanal 7- 2!global sil #Kanal 7- 2!global list ] Global kanal komut dizini
swbot privmsg $3 :6• [2 !cinsel ekle #Kanal 7- 2!cinsel sil #Kanal 7- 2!cinsel list ] Cinsel kanal komut dizini
swbot privmsg $3 :6• [2 !nochan ekle #Kanal 7- 2!nochan sil #Kanal 7- 2!nochan list ] Girilmiycek kanal komut dizini
swbot privmsg $3 :6• [2 !muafk ekle #Kanal 7- 2!muafk sil #Kanal 7- 2!muafk list ] Muaf kanal komut dizini
swbot privmsg $3 :6• [2 !gbans #Kanal ] Belirttiginiz kanal'daki ban'ları açar.
swbot privmsg $3 :6• [2 !gbansall ] Global kanal'daki banların hepsini açar.
swbot privmsg $3 :6• [2 !gclear #Kanal ] Belirttiginiz kanal'ı temizler.
swbot privmsg $3 :6• [2 !gclearall ] Global kanal'ları temizler.
swbot privmsg $3 :6• [2 !gtopic #Kanal Topic ] Belirttiginiz kanal'a belirttiginiz topic'i atar.
swbot privmsg $3 :6• [2 !gtopicall ] Global kanal'lara belirttiginiz topic'i atar.
swbot privmsg $3 :6• [2 !girdir nick #kanal bir useri istediginiz kanala atar bot Sadece opers kanalinda uygulanir.
swbot privmsg $3 :6• [2 !cıkar nick #kanal bir useri istediginiz kanaldan cıkarır Sadece opers kanalinda uygulanir.
swbot privmsg $3 :6• [2 !uyar nick mesajiniz bi usere yaptigi hatayi ozelinden uyarirsiniz Sadece opers kanalinda uygulanir.
}
if *.googlearama* iswm $4 {
if (!$5) { .sockwrite -nt $sockname privmsg $3 Lutfen web adresi belirtiniz. Kriterler: .googlearama -webadresi- -aranacak kelime- | return }
if (!$5) { .msg %chan $qt(%nick) Lutfen aranacak kelime belirtiniz. Kriterler: .googlearama -webadresi- -aranacak kelime- | return }
if $hget(google,web) { .sockwrite -nt $sockname privmsg $3 Lutfen bekleyiniz suan baska bir arama yapilmaktadir. | return }
.googlearama $remove($5, Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.if *.incele* iswm $4 {
if (!$5) { .sockwrite -nt $sockname privmsg $3 Lutfen web adresi belirtiniz. Kriterler: .incele -web adresi- | return }
.tarama $remove($5, Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.if $right($4,-1) == !yönetim || $right($4,-1) == .yönetim {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!yönetim ekle #Kanal6 - 2!yönetim sil #Kanal6 - 2!yönetim list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if ($yönetimbul($strip($6)) == 1) { swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinde ekli. | return }
if ($hfind(cinsel,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Cinsel kanal listesinde ekli, Lütfen cinsel kanal listesinden silip ekleyiniz. | return }
if ($hfind(glo,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Global kanal listesinde ekli, Lütfen global kanal listesinden silip ekleyiniz. | return }
if ($hfind(nockanal,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Girilmiycek kanal listesinde ekli, Lütfen girilmiycek kanal listesinden silip ekleyiniz. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m yönetim %n $strip($6)
.hsave -o yönetim hash/yönetim.mercy
swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesine eklendi.
swbot part $strip($6)
swbot sajoin $_bot $strip($6)
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if $istok($_opers $_help $_bots $_log $_helpers $_operhelp,$strip($6),32) { swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinden silinemez. | return }
if (!$hfind(yönetim,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinde bulunmamaktadir. | return }
.hdel yönetim $hfind(yönetim,$strip($6),1,W).data
.hsave -o yönetim hash/yönetim.mercy
.hload yönetim hash/yönetim.mercy
swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinden silindi.
swbot part $$strip($6)
}
if $5 == list {
if ($hget(yönetim,0).data == 0) { swbot privmsg $3 :Yönetim kanal listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Yönetim kanal listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(yönetim,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(yönetim,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Yönetim kanal listesi sonu
}
}
if $right($4,-1) == !global || $right($4,-1) == .global {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!global ekle #Kanal6 - 2!global sil #Kanal6 - 2!global list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if ($hfind(glo,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Global kanal listesinde ekli. | return }
if ($yönetimbul($strip($6)) == 1) { swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinde ekli. Lütfen yönetim kanal listesinden silip ekleyiniz. | return }
if ($hfind(cinsel,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Cinsel kanal listesinde ekli, Lütfen cinsel kanal listesinden silip ekleyiniz. | return }
if ($hfind(nockanal,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Girilmiycek kanal listesinde ekli, Lütfen girilmiycek kanal listesinden silip ekleyiniz. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m glo %n $strip($6)
hsave -o glo hash/glo.mercy
swbot privmsg $3 :[ $strip($6) ] Global kanal olarak eklendi.
swbot part $strip($6)
swbot sajoin $_bot $strip($6)
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if (!$hfind(glo,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Global kanal listesinde bulunmamaktadir. | return }
.hdel glo $hfind(glo,$strip($6),1,W).data
.hsave -o glo hash/glo.mercy
.hload glo hash/glo.mercy
swbot privmsg $3 :[ $strip($6) ] Global kanal listesinden silindi.
swbot part $strip($6)
}
if $5 == list {
if ($hget(glo,0).data == 0) { swbot privmsg $3 :Global kanal listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Global kanal listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(glo,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(glo,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Global kanal listesi sonu
}
}
if $right($4,-1) == !cinsel || $right($4,-1) == .cinsel {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!cinsel ekle #Kanal6 - 2!cinsel sil #Kanal6 - 2!cinsel list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if ($hfind(cinsel,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Cinsel kanal listesinde ekli. | return }
if ($yönetimbul($strip($6)) == 1) { swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinde ekli. Lütfen yönetim kanal listesinden silip ekleyiniz. | return }
if ($hfind(glo,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Global kanal listesinde ekli, Lütfen global kanal listesinden silip ekleyiniz. | return }
if ($hfind(nockanal,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Girilmiycek kanal listesinde ekli, lütfen girilmiycek kanal listesinden silip ekleyiniz. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m cinsel %n $strip($6)
hsave -o cinsel hash/cinsel.mercy
swbot privmsg $3 :[ $strip($6) ] Cinsel kanal olarak eklendi.
swbot part $strip($6)
swbot sajoin $_bot $strip($6)
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if (!$hfind(cinsel,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Cinsel kanal listesinde bulunmamaktadir. | return }
hdel cinsel $hfind(cinsel,$strip($6),1,W).data
hsave -o cinsel hash/cinsel.mercy
hload cinsel hash/cinsel.mercy
swbot privmsg $3 :[ $strip($6) ] Cinsel kanal listesinden silindi.
}
if $5 == list {
if ($hget(cinsel,0).data == 0) { swbot privmsg $3 :Cinsel kanal listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Cinsel kanal listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(cinsel,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(cinsel,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Cinsel kanal listesi sonu
}
}
if $right($4,-1) == .xline {
if *.*.* !iswm $5 {
swbot privmsg $3 : Lütfen geçerli bir ip adresi belirtin.. (ÖRN: .xline 207.14.22.38)
}
else {
swbot privmsg $3 :IP Adresi Aranıyor..4 $5
set %trip *@ $+ $5
swbot stats G | swbot stats K | swbot stats Z
set %ipblnd ipyok
}
}
if $right($4,-1) == !nochan || $right($4,-1) == .nochan {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!nochan ekle #Kanal6 - 2!nochan sil #Kanal6 - 2!nochan list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if ($hfind(nockanal,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Girilmiycek kanal listesinde ekli. | return }
if ($yönetimbul($strip($6)) == 1) { swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinde ekli. Lütfen yönetim kanal listesinden silip ekleyiniz. | return }
if ($hfind(cinsel,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Cinsel kanal listesinde ekli, Lütfen cinsel kanal listesinden silip ekleyiniz. | return }
if ($hfind(glo,$strip($6),1,W).data) { swbot privmsg $3 :[ $strip($6) ] Global kanal listesinde ekli, Lütfen global kanal listesinden silip ekleyiniz. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m nockanal %n $strip($6)
hsave -o nockanal hash/nockanal.mercy
swbot privmsg $3 :[ $strip($6) ] Girilmiycek kanal olarak eklendi.
swbot part $strip($6)
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if (!$hfind(nockanal,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Girilmiycek kanal listesinde bulunmamaktadir. | return }
hdel nockanal $hfind(nockanal,$strip($6),1,W).data
hsave -o nockanal hash/nockanal.mercy
hload nockanal hash/nockanal.mercy
swbot privmsg $3 :[ $strip($6) ] Girilmiycek kanal listesinden silindi.
}
if $5 == list {
if ($hget(nockanal,0).data == 0) { swbot privmsg $3 :Girilmiycek kanal listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Girilmiycek kanal listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(nockanal,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(nockanal,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Girilmiycek kanal listesi sonu
}
}
if $right($4,-1) == !muafk || $right($4,-1) == .muafk {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!muafk ekle #Kanal6 - 2!muafk sil #Kanal6 - 2!muafk list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if ($hfind(muafkanal,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Global kanal listesinde ekli. | return }
if ($yönetimbul($strip($6)) == 1) { swbot privmsg $3 :[ $strip($6) ] Yönetim kanal listesinde ekli, Muaf kanal listesine eklemeye gerek yok. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m muafkanal %n $strip($6)
hsave -o muafkanal hash/muafkanal.mercy
swbot privmsg $3 :[ $strip($6) ] Muaf kanal olarak eklendi.
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if (!$hfind(muafkanal,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Muaf kanal listesinde bulunmamaktadir. | return }
hdel muafkanal $hfind(muafkanal,$strip($6),1,W).data
hsave -o muafkanal hash/muafkanal.mercy
hload muafkanal hash/muafkanal.mercy
swbot privmsg $3 :[ $strip($6) ] Muaf kanal listesinden silindi.
}
if $5 == list {
if ($hget(muafkanal,0).data == 0) { swbot privmsg $3 :Muaf kanal listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Muaf kanal listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(muafkanal,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(muafkanal,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Muaf kanal listesi sonu
}
}
if $right($4,-1) == !gbans || $right($4,-1) == .gbans {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
set %cbans on
swbot mode $strip($5) +b
swbot privmsg $3 :[ $strip($5) ] Kanalındaki banlar temizleniyor.
}
if $right($4,-1) == !gbansall || $right($4,-1) == .gbansall {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 :Global kanallardaki banlar temizleniyor.
set %cbans on
var %i = 1 | while (%i <= $hget(glo,0).data) { swbot mode $hget(glo,%i).data +b | inc %i }
set %cbans on
var %ib = 1 | while (%ib <= $hget(cinsel,0).data) { swbot mode $hget(cinsel,%ib).data +b | inc %ib }
}
if $right($4,-1) == !gclear || $right($4,-1) == .gclear {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
var %f 1 | while %f <= $lines(ktemizlik.txt) { swbot os raw :chanserv privmsg $strip($5) : $gettok($read(ktemizlik.txt,%f),1,36) | inc %f }
swbot privmsg $3 :[ $strip($5) ] Kanalı temizlendi.
}
if $right($4,-1) == !gclearall || $right($4,-1) == .gclearall {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 :Global kanallar temizlenmişdir.
var %i = 1 | while (%i <= $hget(glo,0).data) { _clearr $hget(glo,%i).data | inc %i }
}
if $right($4,-1) == !gtopic || $right($4,-1) == .gtopic {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
if (!$6) { swbot privmsg $3 :Lütfen topic mesajı belirtiniz. | return }
swbot cs set $strip($5) topiclock off
swbot topic $strip($5) :1 $6-
swbot cs set $strip($5) topiclock on
swbot privmsg $3 :[ $strip($5) ] Kanalının topici degişmişdir.
}
if $right($4,-1) == !gtopicall || $right($4,-1) == .gtopicall {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen topic mesajı belirtiniz. | return }
swbot privmsg $3 :Global kanallara belirttiginiz topic mesaj'ı atılmışdır.
var %i = 1 | while (%i <= $hget(glo,0).data) { swbot cs set $hget(glo,%i).data topiclock off | swbot topic $hget(glo,%i).data :1 $5- | swbot cs set $hget(glo,%i).data topiclock on | inc %i }
}
if $right($4,-1) == !nick || $right($4,-1) == .nick {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $5 { if ($botsnickler($strip($5)) == 1) || ($operbul($strip($5)) == 1) { return } | swbot operserv raw svsnick $5 $+($gettok($_sunucu,2,46),$rand(100,99999)) 0:1 | return }
swbot privmsg $3 : $+ $_logo - 6•2 Nick Komutlar 6•
swbot privmsg $3 :
swbot privmsg $3 :6• [2 !oper ekle Nick 7- 2!oper sil Nick 7- 2!oper list ] Oper nick komut dizini [4Not: 2Master nick'ler kullanabilir. ]
swbot privmsg $3 :6• [2 !muafn ekle Nick 7- 2!muafn sil Nick 7- 2!muafn list ] Muaf nick komut dizini
swbot privmsg $3 :6• [2 !bad ekle Nick 7- 2!bad sil Nick 7- 2!bad list ] Bad nick komut dizini
swbot privmsg $3 :6• [2 !kill Nick ] Nick'e kill atar.
swbot privmsg $3 :6• [2 !shun Nick ] Nick'e shun atar.
swbot privmsg $3 :6• [2 !zline Nick ] Nick'e zline atar.
swbot privmsg $3 :6• [2 !gline Nick ] Nick'e gline atar.
}
if $right($4,-1) == !oper || $right($4,-1) == .oper {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!oper ekle Nick6 - 2!oper sil Nick6 - 2!oper list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($6)) == 1) { return }
if ($hfind(oper,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Oper listesinde ekli. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m oper %n $strip($6)
.hsave -o oper hash/oper.mercy
swbot privmsg $3 :[ $strip($6) ] Oper listesine eklendi.
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($6)) == 1) { return }
if (!$hfind(oper,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Oper listesinde bulunmamaktadır. | return }
.hdel oper $hfind(oper,$strip($6),1,W).data
.hsave -o oper hash/oper.mercy
.hfree -sw oper
.hmake oper
.hload oper hash/oper.mercy
swbot privmsg $3 :[ $strip($6) ] Oper listesinden silindi.
}
if $5 == list {
if ($hget(oper,0).data == 0) { swbot privmsg $3 :Oper nick listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Oper nick listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(oper,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(oper,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Oper nick listesi sonu
}
}
if $right($4,-1) == !muafn || $right($4,-1) == .muafn {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!muafn ekle Nick6 - 2!muafn sil Nick6 - 2!muafn list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($6)) == 1) { return }
if ($hfind(muafnick,$strip($6),0,W).data) { swbot PRIVMSG $3 :[ $strip($6) ] Muaf nick listesinde ekli. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m muafnick %n $strip($6)
hsave -a muafnick hash/muafnick.mercy
swbot PRIVMSG $3 :[ $strip($6) ] Muaf nick listesine eklendi.
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($6)) == 1) { return }
if (!$hfind(muafnick,$strip($6),0,W).data) { swbot PRIVMSG $3 :[ $strip($6) ] Muaf nick listesinde bulunmamaktadir. | return }
hdel muafnick $hfind(muafnick,$strip($6),1,W).data
hsave -o muafnick hash/muafnick.mercy
.hfree -sw muafnick
hmake muafnick
hload muafnick hash/muafnick.mercy
swbot PRIVMSG $3 :[ $strip($6) ] Muaf nick listesinden silindi.
}
if $5 == list {
if ($hget(muafnick,0).data == 0) { swbot privmsg $3 :Muaf nick listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Muaf nick listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(muafnick,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(muafnick,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Muaf nick listesi sonu
}
}
if $right($4,-1) == !nerden || $right($4,-1) == .nerden {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
set %:nerden on
swbot who +I $5
}
if $right($4,-1) == !bad || $right($4,-1) == .bad {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!bad ekle Nick6 - 2!bad sil Nick6 - 2!bad list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($6)) || *.* iswm $strip($6) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($6)) == 1) { return }
if ($hfind(bad,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Bad nick listesinde ekli. | return }
if ($hfind(oper,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] oper listesinde eklidir. Bad nick listesine eklenemez. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m bad %n $strip($6)
hsave -o bad hash/bad.mercy
swbot privmsg $3 :[ $strip($6) ] Bad nick listesine eklendi.
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($6)) || *.* iswm $strip($6) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($6)) == 1) { return }
if (!$hfind(bad,$strip($6),0,W).data) { swbot PRIVMSG $3 :[ $strip($6) ] Bad nick listesinde bulunmamaktadir. | return }
hdel -m bad $hfind(bad,$strip($6),1,W).data
hsave -o bad hash/bad.mercy
swbot PRIVMSG $3 :[ $strip($6) ] Bad nick listesinden silindi.
}
if $5 == list {
if ($hget(bad,0).data == 0) { swbot privmsg $3 :Bad nick listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Bad nick listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(bad,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(bad,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Bad nick listesi sonu
}
}
if $regex($remove($4,:),/^([!.&]greet)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swbot privmsg $3 :Lütfen 2[!.&]4greet 2<ekle|sil|list> olarak kullanınız. | return }
elseif $regex($5,/^ekle$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swbot privmsg $3 :Lütfen 2[!.&]4greet 2<ekle> <Nick> olarak belirtiniz. | return }
elseif !$hget(GreetOnay,$strip($6)) { swbot privmsg $3 :Bu nick'e ait greet mesaj'ı bulunmamaktadır. | return }
else {
.hadd -ms Greet $strip($6) $hget(GreetOnay,$strip($6))
.hsave Greet Hash/Greet.tprk
swbot privmsg $3 $+(:,$strip($6),) nick'inin greet mesaj'ı onaylanmıştır..
.hdel -ms GreetOnay $strip($6)
.hsave GreetOnay Hash/GreetOnay.tprk
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swbot privmsg $3 :Lütfen 2[!.&]4greet 2<sil> <Nick> olarak belirtiniz. | return }
elseif !$hget(GreetOnay,$strip($6)) { swbot privmsg $3 :Bu nick'e ait greet mesaj'ı bulunmamaktadır. | return }
swbot privmsg $3 $+(:,$strip($6),) nick'inin greet mesaj'ı onaylanmamıştır.
.hdel -ms GreetOnay $strip($6)
.hsave GreetOnay Hash/GreetOnay.tprk
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if ($hget(GreetOnay,0).data == 0) { swbot privmsg $3 :Greet onay listesi boş. | return }
swbot privmsg $3 :Greet Onay listesi
swbot privmsg $3 :
var %m = 1 | while (%m <= $hget(GreetOnay,0).data) {
swbot privmsg $3 $+(%m,-4,$chr(41),) Greet: $hget(GreetOnay,%m).data
inc %m
}
swbot privmsg $3 :
swbot privmsg $3 :Greet Onay listesi Sonu
}
}
if $right($4,-1) == !kill || $right($4,-1) == .kill {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
if ($operbul($strip($5)) == 1) { swbot NOTICE $_nick($1) :2Banlamaya calışdıgınız kişi sunucu yetkilisi! Daha dikkatli olunuz. | return }
.hadd -ms Kill $strip($5) $_nick($1)
swbot whois $strip($5)
}
if $right($4,-1) == !shun || $right($4,-1) == .shun {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
if ($operbul($strip($5)) == 1) { swbot NOTICE $_nick($1) :2Banlamaya calışdıgınız kişi sunucu yetkilisi! Daha dikkatli olunuz. | return }
.hadd -ms Shun $strip($5) $_nick($1)
swbot whois $strip($5)
}
if $right($4,-1) == !zline || $right($4,-1) == .zline {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
if ($operbul($strip($5)) == 1) { swbot NOTICE $_nick($1) :2Banlamaya calışdıgınız kişi sunucu yetkilisi! Daha dikkatli olunuz. | return }
.hadd -ms Zline $strip($5) $_nick($1)
swbot whois $strip($5)
}
if $right($4,-1) == !girdir || $right($4,-1) == .girdir {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) || ($len($strip($6)) == 1) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
swbot sajoin $strip($5) $strip($6)
swbot privmsg $3 :[ $strip($5) ] nick'i [ $strip($6) ] kanal'ına sajoinlenmiştir.
}
if $right($4,-1) == !uyar || $right($4,-1) == .uyar {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if (!$6) { swbot privmsg $3 :Lütfen mesaj belirtiniz. | return }
swbot privmsg $strip($5) $strip($6-)
swbot privmsg $3 :[ $strip($5) ] nick'ine uyarı mesaj'ı gitmişdir.
}
if $right($4,-1) == !cıkar || $right($4,-1) == .cıkar {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if (!$6) { swbot privmsg $3 :Lütfen kanal belirtiniz. | return }
if (#* !iswm $strip($6)) || *.* iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) || ($len($strip($6)) == 1) { swbot privmsg $3 :Lütfen kanal ismini dogru belirtiniz. | return }
swbot sapart $strip($5) $strip($6)
swbot privmsg $3 :[ $strip($5) ] nick'i [ $strip($6) ] kanal'ından cıkarılmıştır.
}
if $right($4,-1) == !gline || $right($4,-1) == .gline {
if (!$5) { swbot privmsg $3 :Lütfen nick belirtiniz. | return }
if (#* iswm $strip($5)) || *.* iswm $strip($5) || $chr(42) isin $strip($5) || $chr(63) isin $strip($5) { swbot privmsg $3 :Lütfen nick ismini düzgün belirtiniz. | return }
if ($botsnickler($strip($5)) == 1) { return }
if ($operbul($strip($5)) == 1) { swbot NOTICE $_nick($1) :2Banlamaya calışdıgınız kişi sunucu yetkilisi! Daha dikkatli olunuz. | return }
.hadd -ms Gline $strip($5) $_nick($1)
swbot whois $strip($5)
}
if $right($4,-1) == !korumalar || $right($4,-1) == .korumalar {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 : $+ $_logo - 6•2 Koruma Komutlar 6•
swbot privmsg $3 :
swbot privmsg $3 :6• [2 !koruma on 7- 2!koruma off 7- 2!koruma durum ] Korumalar komut dizini
swbot privmsg $3 :6• [2 !proxy on 7- 2!proxy off ] Proxy koruma komut dizini
swbot privmsg $3 :6• [2 !random on 7- 2!random off ] Random Nick/Ident koruma komut dizini
swbot privmsg $3 :6• [2 !agresif on 7- 2!agresif off ] Excess Flood koruma komut dizini
swbot privmsg $3 :6• [2 !clone on 7- 2!clone off ] Clone koruma komut dizini
swbot privmsg $3 :6• [2 !joinpart on 7- 2!joinpart off ] Join/Part koruma komut dizini
swbot privmsg $3 :6• [2 !kufur on 7- 2!kufur off ] Küfür koruma komut dizini
swbot privmsg $3 :6• [2 !reklam on 7- 2!reklam off ] Reklam koruma komut dizini
swbot privmsg $3 :6• [2 !flood on 7- 2!flood off ] Flood/Tekrar koruma komut dizini
swbot privmsg $3 :6• [2 !uzunharf on 7- 2!uzunharf off ] Uzun Harf koruma komut dizini
swbot privmsg $3 :6• [2 !buyukharf on 7- 2!buyukharf off ] Büyük Harf koruma komut dizini
}
if $right($4,-1) == !koruma || $right($4,-1) == .koruma {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off durum,$5,32) { swbot privmsg $3 :Lütfen 2!koruma on6 - 2!koruma off6 - 2!koruma durum komutlarını kullanınız. | return }
if $5 == on {
set %proxy on | set %random on | set %agresif on | set %clone on | set %joinpart on | set %kufur on | set %reklam on | set %flood on | set %uzunharf on | set %buyukharf on
swbot privmsg $3 :Bütün korumalar açılmışdır..
}
if $5 == off {
set %proxy off | set %random off | set %agresif off | set %clone off | set %joinpart off | set %kufur off | set %reklam off | set %flood off | set %uzunharf off | set %buyukharf off
swbot privmsg $3 :Bütün korumalar kapatılmışdır..
}
if $5 == durum {
swbot privmsg $3 :6• [2 Proxy ] [2Durum: $iif(%proxy == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Random ] [2Durum: $iif(%random == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Agresif ] [2Durum: $iif(%agresif == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Clone ] [2Durum: $iif(%clone == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Join Part ] [2Durum: $iif(%joinpart == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Kufur ] [2Durum: $iif(%kufur == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Reklam ] [2Durum: $iif(%reklam == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Flood Tekrar ] [2Durum: $iif(%flood == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Uzun Harf ] [2Durum: $iif(%uzunharf == on,3Acık,4Kapalı) ]
swbot privmsg $3 :6• [2 Büyük Harf ] [2Durum: $iif(%buyukharf == on,3Acık,4Kapalı) ]
}
}
if $right($4,-1) == !proxy || $right($4,-1) == .proxy {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!proxy on6 - 2!proxy off6 - 2!proxy ekle6 - 2!proxy sil6 - 2!proxy list komutlarını kullanınız. | return }
if $5 == on {
if (%proxy == on) { swbot privmsg $3 :[4BILGI] [2 Proxy korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Proxy korumasi acilmistir. ] | .set %proxy on
}
if $5 == off {
if (%proxy == off) { swbot privmsg $3 :[4BILGI] [2 Proxy korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Proxy korumasi kapatılmışdır. ] | .set %proxy off
}
if $5 == ekle {
if (#* iswm $strip($6)) || *.* !iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen IP belirtiniz. | return }
if ($hfind(ips,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Proxy IP ekli. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m ips %n $strip($6)
.hsave -o ips hash/ips.mercy
swbot privmsg $3 :[ $strip($6) ] Proxy IP eklendi.
}
if $5 == sil {
if (#* iswm $strip($6)) || *.* !iswm $strip($6) || $chr(42) isin $strip($6) || $chr(63) isin $strip($6) { swbot privmsg $3 :Lütfen IP belirtiniz. | return }
if (!$hfind(ips,$strip($6),0,W).data) { swbot privmsg $3 :[ $strip($6) ] Proxy IP listesinde bulunmamaktadır. | return }
.hdel ips $hfind(ips,$strip($6),1,W).data
.hsave -o ips hash/ips.mercy
.hfree -sw ips
.hmake ips
.hload ips hash/ips.mercy
swbot privmsg $3 :[ $strip($6) ] Proxy IP listesinden silindi.
}
if $5 == list {
if ($hget(ips,0).data == 0) { swbot privmsg $3 :Proxy IP listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Proxy IP listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(ips,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(ips,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Proxy IP listesi sonu
}
}
if $right($4,-1) == !random || $right($4,-1) == .random {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off,$5,32) { swbot privmsg $3 :Lütfen 2!random on6 - 2!random off komutlarını kullanınız. | return }
if $5 == on {
if (%random == on) { swbot privmsg $3 :[4BILGI] [2 Random korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Random korumasi acilmistir. ] | .set %random on
}
if $5 == off {
if (%random == off) { swbot privmsg $3 :[4BILGI] [2 Random korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Random korumasi kapatılmışdır. ] | .set %random off
}
}
if $right($4,-1) == !agresif || $right($4,-1) == .agresif {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off,$5,32) { swbot privmsg $3 :Lütfen 2!agresif on6 - 2!agresif off komutlarını kullanınız. | return }
if $5 == on {
if (%agresif == on) { swbot privmsg $3 :[4BILGI] [2 Agresif korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Agresif korumasi acilmistir. ] | .set %agresif on
}
if $5 == off {
if (%agresif == off) { swbot privmsg $3 :[4BILGI] [2 Agresif korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Agresif korumasi kapatılmışdır. ] | .set %agresif off
}
}
if $right($4,-1) == !clone || $right($4,-1) == .clone {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off,$5,32) { swbot privmsg $3 :Lütfen 2!clone on6 - 2!clone off komutlarını kullanınız. | return }
if $5 == on {
if (%clone == on) { swbot privmsg $3 :[4BILGI] [2 Clone korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Clone korumasi acilmistir. ] | .set %clone on
}
if $5 == off {
if (%clone == off) { swbot privmsg $3 :[4BILGI] [2 Clone korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Clone korumasi kapatılmışdır. ] | .set %clone off
}
}
if $right($4,-1) == !joinpart || $right($4,-1) == .joinpart {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off,$5,32) { swbot privmsg $3 :Lütfen 2!joinpart on6 - 2!joinpart off komutlarını kullanınız. | return }
if $5 == on {
if (%joinpart == on) { swbot privmsg $3 :[4BILGI] [2 Join Part korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Join Part korumasi acilmistir. ] | .set %joinpart on
}
if $5 == off {
if (%joinpart == off) { swbot privmsg $3 :[4BILGI] [2 Join Part korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Join Part korumasi kapatılmışdır. ] | .set %joinpart off
}
}
if $right($4,-1) == !kufur || $right($4,-1) == .kufur {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!kufur ekle6 - 2!kufur sil6 - 2!kufur list6 - 2!kufur on6 - 2!kufur off komutlarını kullanınız. | return }
if $5 == on {
if (%kufur == on) { swbot privmsg $3 :[4BILGI] [2 Küfür korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Küfür korumasi acilmistir. ] | .set %kufur on
}
if $5 == off {
if (%kufur == off) { swbot privmsg $3 :[4BILGI] [2 Küfür korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Küfür korumasi kapatılmışdır. ] | .set %kufur off
}
}
if $right($4,-1) == !reklam || $right($4,-1) == .reklam {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!reklam ekle Kelime6 - 2!reklam sil Kelime6 - 2!reklam list6 - 2!reklam on6 - 2!reklam off komutlarını kullanınız. | return }
if $5 == on {
if (%reklam == on) { swbot privmsg $3 :[4BILGI] [2 Reklam korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Reklam korumasi acilmistir. ] | .set %reklam on
}
if $5 == off {
if (%reklam == off) { swbot privmsg $3 :[4BILGI] [2 Reklam korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Reklam korumasi kapatılmışdır. ] | .set %reklam off
}
}
if $right($4,-1) == !flood || $right($4,-1) == .flood {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off,$5,32) { swbot privmsg $3 :Lütfen 2!flood on6 - 2!flood off komutlarını kullanınız. | return }
if $5 == on {
if (%flood == on) { swbot privmsg $3 :[4BILGI] [2 Flood korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Flood korumasi acilmistir. ] | .set %flood on
}
if $5 == off {
if (%flood == off) { swbot privmsg $3 :[4BILGI] [2 Flood korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Flood korumasi kapatılmışdır. ] | .set %flood off
}
}
if $right($4,-1) == !buyukharf || $right($4,-1) == .buyukharf {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off,$5,32) { swbot privmsg $3 :Lütfen 2!buyukharf on6 - 2!buyukharf off komutlarını kullanınız. | return }
if $5 == on {
if (%buyukharf == on) { swbot privmsg $3 :[4BILGI] [2 Büyük Harf korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Büyük Harf korumasi acilmistir. ] | .set %buyukharf on
}
if $5 == off {
if (%buyukharf == off) { swbot privmsg $3 :[4BILGI] [2 Büyük Harf korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Büyük Harf korumasi kapatılmışdır. ] | .set %buyukharf off
}
}
if $right($4,-1) == !uzunharf || $right($4,-1) == .uzunharf {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(on off,$5,32) { swbot privmsg $3 :Lütfen 2!uzunharf on6 - 2!uzunharf off komutlarını kullanınız. | return }
if $5 == on {
if (%uzunharf == on) { swbot privmsg $3 :[4BILGI] [2 Uzun Harf korumasi şuan 3Açık2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Uzun Harf korumasi acilmistir. ] | .set %uzunharf on
}
if $5 == off {
if (%uzunharf == off) { swbot privmsg $3 :[4BILGI] [2 Uzun Harf korumasi şuan 4Kapalı2 durumda ] | return }
swbot privmsg $3 :[4BILGI] [2 Uzun Harf korumasi kapatılmışdır. ] | .set %uzunharf off
}
}
if $right($4,-1) == !sistem || $right($4,-1) == .sistem {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 : $+ $_logo - 6•2 Sistem Komutlar 6•
swbot privmsg $3 :
swbot privmsg $3 :6• [2 !kufur ekle Kelime 7-2 .kufur sil Kelime 7-2 .kufur list ] Küfür komut dizini
swbot privmsg $3 :6• [2 !reklam ekle Kelime 7-2 .reklam sil Kelime 7-2 .reklam list ] Reklam komut dizini
swbot privmsg $3 :6• [2 !muafr ekle Kelime 7-2 .muafr sil Kelime 7-2 .muafr list ] Muaf reklam komut dizini
swbot privmsg $3 :6• [2 !block ekle Kelime 7- 2!block sil Kelime ] Block komut dizini
swbot privmsg $3 :6• [2 !spam ekle Kelime 7- 2!spam sil Kelime ] Spam komut dizini
swbot privmsg $3 :6• [2 .proxymuaf ekle İP 7- 2.proxymuaf sil İP 7-2 .proxymuaf list ] Proxy muaf komut dizini
swbot privmsg $3 :6• [2 !banac IP ] IP'in X:line'sini kaldırır.
swbot privmsg $3 :6• [2 !restart ]6 $_bot 'e Restart atar. [4Not: 2Master nick'ler kullanabilir. ]
swbot privmsg $3 :6• [2 !kurallar ] Oper kurallar'ını gösterir.
swbot privmsg $3 :6• [2 !msg Mesaj ] Özeller'e mesaj yollar.
swbot privmsg $3 :6• [2 !gmesaj Mesaj ] Global mesaj'ı atar.
swbot privmsg $3 :6• [2 !kontrol ] Reklam kontrol mesaj'ı atar.
swbot privmsg $3 :6• [2 !forum ] Forum reklam mesaj'ı atar.
swbot privmsg $3 :6• [2 !mirc ] mIRC reklam mesaj'ı atar.
swbot privmsg $3 :6• [2 !status ] Status'de bekleyenleri global kanallara çeker.
}
if $right($4,-1) == !kufur || $right($4,-1) == .kufur {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list on off,$5,32) { swbot privmsg $3 :Lütfen 2!kufur ekle Kelime6 - 2!kufur sil Kelime6 - 2!kufur list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
if ($hfind(kufur,$strip($6-),0,W).data) { swbot privmsg $3 :[ $strip($6-) ] Kufur listesinde ekli. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m kufur %n $strip($6-)
.hsave -o kufur hash/kufur.mercy
swbot privmsg $3 :[ $strip($6-) ] Küfür listesine eklendi.
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
if (!$hfind(kufur,$strip($6-),0,W).data) { swbot privmsg $3 :[ $strip($6-) ] Kufur listesinde bulunmamaktadır. | return }
.hdel kufur $hfind(kufur,$strip($6-),1,W).data
.hsave -o kufur hash/kufur.mercy
.hfree -sw kufur
.hmake kufur
.hload kufur hash/kufur.mercy
swbot privmsg $3 :[ $strip($6-) ] Kufur listesinden silindi.
}
if $5 == list {
if ($hget(kufur,0).data == 0) { swbot privmsg $3 :Kufur listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Kufur listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(kufur,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(kufur,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Kufur listesi sonu
}
}
if $right($4,-1) == !reklam || $right($4,-1) == .reklam {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!reklam ekle Kelime6 - 2!reklam sil Kelime6 - 2!reklam list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
if ($hfind(reklam,$strip($6-),0,W).data) { swbot privmsg $3 :[ $strip($6-) ] Reklam listesinde ekli. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m reklam %n $strip($6-)
.hsave -o reklam hash/reklam.mercy
swbot privmsg $3 :[ $strip($6-) ] Reklam listesine eklendi.
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
if (!$hfind(reklam,$strip($6-),0,W).data) { swbot privmsg $3 :[ $strip($6-) ] Reklam listesinde bulunmamaktadır. | return }
.hdel reklam $hfind(reklam,$strip($6-),1,W).data
.hsave -o reklam hash/reklam.mercy
.hfree -sw reklam
.hmake reklam
.hload reklam hash/reklam.mercy
swbot privmsg $3 :[ $strip($6-) ] Reklam listesinden silindi.
}
if $5 == list {
if ($hget(reklam,0).data == 0) { swbot privmsg $3 :Reklam listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Reklam listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(reklam,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(reklam,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Reklam listesi sonu
}
}
if $right($4,-1) == !muafr || $right($4,-1) == .muafr {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) || !$istok(ekle sil list,$5,32) { swbot privmsg $3 :Lütfen 2!muafr ekle Kelime6 - 2!muafr sil Kelime6 - 2!muafr list komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
if ($hfind(mrek,$strip($6-),0,W).data) { swbot privmsg $3 :[ $strip($6-) ] Muaf reklam listesinde ekli. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m mrek %n $strip($6-)
.hsave -o mrek hash/mrek.mercy
swbot privmsg $3 :[ $strip($6-) ] Muaf reklam listesine eklendi.
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
if (!$hfind(mrek,$strip($6-),0,W).data) { swbot privmsg $3 :[ $strip($6-) ] Muaf reklam listesinde bulunmamaktadır. | return }
.hdel mrek $hfind(mrek,$strip($6-),1,W).data
.hsave -o mrek hash/mrek.mercy
.hfree -sw mrek
.hmake mrek
.hload mrek hash/mrek.mercy
swbot privmsg $3 :[ $strip($6-) ] Muaf reklam listesinden silindi.
}
if $5 == list {
if ($hget(mrek,0).data == 0) { swbot privmsg $3 :Muaf reklam listesinde kayıt bulunmamaktadir. | return }
swbot privmsg $3 :Muaf reklam listesi
swbot privmsg $3 :
var %i = 1
while (%i <= $hget(mrek,0).data) {
swbot privmsg $3 : %i $+ .4) [ $hget(mrek,%i).data ]
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Muaf reklam listesi sonu
}
}
if $right($4,-1) == !block || $right($4,-1) == .block {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen 2!block ekle Kelime6 - 2!block sil Kelime komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
swbot spamfilter add cpnNtqP block - 4Yasak_Kelime_Kullandınız $+(\b $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42))) $+ ,\b) | swbot privmsg $3 :Block eklendi: [ $+(\b $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42))) $+ ,\b) ]
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
swbot spamfilter del cpnNtqP block - 4Yasak_Kelime_Kullandınız $+(\b $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42))) $+ ,\b) | swbot privmsg $3 :Block Silindi: [ $+(\b $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42))) $+ ,\b) ]
}
}
if $right($4,-1) == !spam || $right($4,-1) == .spam {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen 2!spam ekle Kelime6 - 2!spam sil Kelime komutlarını kullanınız. | return }
if $5 == ekle {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
swbot spamfilter add cpnNtqP gzline - 4Yasak_Kelime_Kullandınız ^ $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42)),$chr(63),$+($chr(46),$chr(63)),1,$+($chr(92),d),2,$+($chr(92),d),3,$+($chr(92),d),4,$+($chr(92),d),5,$+($chr(92),d),6,$+($chr(92),d),7,$+($chr(92),d),8,$+($chr(92),d),9,$+($chr(92),d),0,$+($chr(92),d),$chr(32),$+($chr(92),s)))) $+ $ | swbot privmsg $3 :Spam eklendi: [ ^ $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42)),$chr(63),$+($chr(46),$chr(63)),1,$+($chr(92),d),2,$+($chr(92),d),3,$+($chr(92),d),4,$+($chr(92),d),5,$+($chr(92),d),6,$+($chr(92),d),7,$+($chr(92),d),8,$+($chr(92),d),9,$+($chr(92),d),0,$+($chr(92),d),$chr(32),$+($chr(92),s)))) $+ $ ]
}
if $5 == sil {
if (!$6) { swbot privmsg $3 :Lütfen kelime belirtiniz. | return }
swbot spamfilter del cpnNtqP gzline - 4Yasak_Kelime_Kullandınız ^ $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42)),$chr(63),$+($chr(46),$chr(63)),1,$+($chr(92),d),2,$+($chr(92),d),3,$+($chr(92),d),4,$+($chr(92),d),5,$+($chr(92),d),6,$+($chr(92),d),7,$+($chr(92),d),8,$+($chr(92),d),9,$+($chr(92),d),0,$+($chr(92),d),$chr(32),$+($chr(92),s)))) $+ $ | swbot privmsg $3 :Spam silindi: [ ^ $+ $replace($strip($6-),$chr(42),$+($chr(46),$chr(42)),$chr(63),$+($chr(46),$chr(63)),1,$+($chr(92),d),2,$+($chr(92),d),3,$+($chr(92),d),4,$+($chr(92),d),5,$+($chr(92),d),6,$+($chr(92),d),7,$+($chr(92),d),8,$+($chr(92),d),9,$+($chr(92),d),0,$+($chr(92),d),$chr(32),$+($chr(92),s)))) $+ $ ]
}
}
if $remove($4,:) == .banac || $right($4,-1) == !banac {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if !$strip($5) || #* iswm $strip($5) || *.*.* !iswm $strip($5) { swbot privmsg $3 :Lütfen ip belirtiniz. | return }
swbot gline $+(-,*,@,$strip($5))
swbot zline $+(-,*,@,$strip($5))
swbot kline $+(-,*,@,$strip($5))
swbot gzline $+(-,*,@,$strip($5))
swbot shun $+(-,*,@,$strip($5))
swbot privmsg $3 :[ $strip($5) ] Ip'in X:line'si kaldırılmışdır.
}
if $remove($4,:) == .restart || $right($4,-1) == !restart {
if (!$istok($_masternick,$_nick($1),32)) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
swbot privmsg $3 :Restart atılıyor.
sockclose *
$+(.timer,$rand(10,999)) 1 2 sockopen bot $_sunucu $_port
}
if $remove($4,:) == .kontrol || $right($4,-1) == !kontrol {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $hget(Kontrol,Reklam) { swbot privmsg $3 :[ $_nick($1) ] Lütfen $hget(Kontrol,Reklam).unset saniye bekleyiniz. | return }
swbot privmsg $3 :Reklam kontrol mesajı atılmışdır.
swbot PRIVMSG $chr(36) $+ *. $+ $gettok($_sunucu,2-,46) Selam
swbot PRIVMSG $chr(36) $+ *. $+ $gettok($_sunucu,2-,46) sLm
swbot PRIVMSG $chr(36) $+ *. $+ $gettok($_sunucu,2-,46) Bu mesaj sunucumuzda reklam yapanlari kontrol etmek icin herkese atilmistir. Lutfen cevap yazmayiniz, karsilik alamazsiniz.
.hadd -msu60 Kontrol Reklam $3
}
if $remove($4,:) == .kurallar || $right($4,-1) == !kurallar {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $hget(Kontrol,Kurallar) { swbot privmsg $3 :[ $_nick($1) ] Lütfen $hget(Kontrol,Kurallar).unset saniye bekleyiniz. | return }
swbot privmsg $3 :4Oper/Admin'lerimizin Uyması Gereken Kurallar.
swbot privmsg $3 :
swbot privmsg $3 :1.4) 1Hiç Bir Oper/Admin Kişisel Ban Kullanmıyacak Tespiti Halinde Görevi Sonlandırılacaktır.
swbot privmsg $3 :2.4) 1Operler Userlerle Tartışma Ortamına Girmeyecektir.
swbot privmsg $3 :3.4) 1Kanallarda Yetki Almayacaktır. +Modelerine Cıkmayacaktır.
swbot privmsg $3 :4.4) 1Her Oper Admin Kendi Görevi Dışına Çıkmayacaktır.
swbot privmsg $3 :5.4) 1Oper/Admin Kırıcı Değil Yapıcı Olmalıdır.
swbot privmsg $3 :6.4)1 $_operhelp 'De Kullanıcı Bekletilmeyecektir.
swbot privmsg $3 :7.4) 1İki Oper/Admin Kendi Arasında Tartısırsa ROOT Veya NET Admin'lerle Görüşüp Olayı Çözecektır Aksı Taktirde Yaptırım Uygulanacaktır.
swbot privmsg $3 :8.4) 1Oper/Admin Sürekli Reklam ve Kanalları Takip Etmekle Yükümlüdür.
swbot privmsg $3 :9.4) 1Oper/Admin Kafasına Göre Karar Almayacaktır. Her Ne Kadar Sorumlu Oldugu Konu Olsada Üstlere Bildirmeden ÖnemLi Kararlar Vermeyecektir,Hiç Kimse Sorumluluğu Harici Bir Göreve Burnunu Sokmasın. Oper/Admin Kural Dışı Hareketlerinde Haftalık Aylık Cezalar Alacağını Dikkatinize Sunarız.
swbot privmsg $3 :10.4) 1Kurallar'a Uyuldugu Sürece Tüm Oper/Adminler Kalıcı Olacaktır.
swbot privmsg $3 :11.4) 1Bunlar En Önemli Kurallar Olup Diğer Kuralları Root veya Net Adminlerden Öğrene Bilirsiniz.
swbot privmsg $3 :
swbot privmsg $3 :[ $gettok($_sunucu,2-,46) ] Yönetimi
.hadd -msu60 Kontrol Kurallar $3
}
if $remove($4,:) == .gmesaj || $right($4,-1) == !gmesaj {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $hget(Kontrol,Global) { swbot privmsg $3 :[ $_nick($1) ] Lütfen $hget(Kontrol,Global).unset saniye bekleyiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen mesaj belirtiniz. | return }
swbot PRIVMSG $chr(36) $+ *. $+ $gettok($_sunucu,2-,46) $5-
swbot privmsg $3 :Global mesaj atılmısdır.
.hadd -msu10 Kontrol Global $3
}
if $remove($4,:) == .msg || $right($4,-1) == !msg {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $hget(Kontrol,Mesaj) { swbot privmsg $3 :[ $_nick($1) ] Lütfen $hget(Kontrol,Mesaj).unset saniye bekleyiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen mesaj belirtiniz. | return }
swbot allsend all private global Duyuru $5-
swbot privmsg $3 :Bütün özeller'e mesaj atılmışdır..
.hadd -msu60 Kontrol Mesaj $3
}
if $remove($4,:) == .forum || $right($4,-1) == !forum {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $hget(Kontrol,Mesaj) { swbot privmsg $3 :[ $_nick($1) ] Lütfen $hget(Kontrol,Mesaj).unset saniye bekleyiniz. | return }
swbot allsend all private global Duyuru 0,2 Keyifli forum oyunları, e-kitap, günlük burç yorumları, eğitim/öğretim, felsefe vb. hepsi burada! Sende aramıza katıl! 0,4 Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.swbot privmsg $3 :Bütün özeller'e forum reklam mesaj'ı atılmışdır..
.hadd -msu60 Kontrol Mesaj $3
}
if $remove($4,:) == .mirc || $right($4,-1) == !mirc {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if $hget(Kontrol,Mesaj) { swbot privmsg $3 :[ $_nick($1) ] Lütfen $hget(Kontrol,Mesaj).unset saniye bekleyiniz. | return }
swbot allsend all private global Duyuru 0,4 Degerli kullanicilarimiz: 0,2 Sohbet sitemize daha huzurlu ve daha guvenli baglanti kurmak icin, sunucumuza ait 0,4 "sohbet" 0,2 programi uzerinden giris yapabilirsiniz. Programimizi indirmek icin => 0,4 $_mirc 0,2 <= adresini ziyaret ediniz.
swbot privmsg $3 :Bütün özeller'e mirc reklam mesaj'ı atılmışdır..
.hadd -msu120 Kontrol Mesaj $3
}
if $remove($4,:) == .status || $right($4,-1) == !status {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
.hadd -ms Status Kontrol On
swbot who *
}
if $remove($4,:) == .proxymuaf || $right($4,-1) == !proxymuaf {
if ($operbul($_nick($1)) == 0) { swbot privmsg $3 :[ $_nick($1) ] Bu komutu kullanamazsınız yetkili değilsiniz. | return }
if (!$5) { swbot privmsg $3 :Lütfen 2!proxymuaf ekle IP6 - 2!proxymuaf sil IP6 - 2!proxymuaf list komutlarını kullanınız. | return }
if $5 == ekle {
if !$strip($6) || #* iswm $strip($6) || *.*.* !iswm $strip($6) { swbot privmsg $3 :Lütfen ip belirtiniz. | return }
if !$read(proxymuaf.txt,w,$strip($6)) { .write proxymuaf.txt $strip($6) | swbot privmsg $3 :[ $strip($6) ] Proxy muaf olarak eklenmişdir. | return }
else { swbot privmsg $3 :[ $strip($6) ] Proxy muaf listesinde ekli. | return }
}
if $5 == sil {
if !$strip($6) || #* iswm $strip($6) || *.*.* !iswm $strip($6) { swbot privmsg $3 :Lütfen ip belirtiniz. | return }
if !$read(proxymuaf.txt,w,$strip($6)) { swbot privmsg $3 :[ $strip($6) ] Proxy muaf listesinde bulunmamaktadır. | return }
else { .write $+(-dl,$readn) proxymuaf.txt | swbot privmsg $3 :[ $strip($6) ] Proxy muaf listesinden silindi | return }
}
if $5 == list {
if $lines(proxymuaf.txt) == 0 { swbot privmsg $3 :[ $strip($5) ] Proxy muaf listesinde kayıt bulunmamaktadır. | return }
swbot privmsg $3 :Proxy muaf listesi
swbot privmsg $3 :
var %t = 1
while %t <= $lines(proxymuaf.txt) {
swbot privmsg $3 :4 %t $+ .) $read(proxymuaf.txt,%t)
inc %t
}
swbot privmsg $3 :
swbot privmsg $3 :Proxy muaf listesi sonu
}
}
}
}
alias _snotice {
if $2 == NOTICE {
if *Client connecting on port* iswm $strip($4-) {
if ($operbul($12) == 1) { return }
if ($remove($11,:) == $_muafport) { return }
if ($token($gettok($13,2,64),1,41) == %myip) { return }
if ($token($gettok($13,2,64),1,41) == $_sunucuip) { return }
if $read(proxymuaf.txt,w,$token($gettok($13,2,64),1,41)) { return }
if (%proxy == on) && $hget(Proxy,$token($gettok($13,2,64),1,41)) { swbot gline $+(*@,$token($gettok($13,2,64),1,41)) - 2Sunucumuza proxy/tor/socks/wingate ile girmek yasak! | return }
if (%random == on) && $randomnick($12) { swbot gline $+(*@,$token($gettok($13,2,64),1,41)) - 2 Random nick ile sunucuya girmek yasak! | return }
if (%random == on) && $randomnick($gettok($gettok($13,1,64),1,40)) { swbot gline $+(*@,$token($gettok($13,2,64),1,41)) - 2 Random ident ile sunucuya girmek yasak! | return }
if (%agresif == on) {
.hinc -mu20 Agresif $token($gettok($13,2,64),1,41) 1
if $hget(Agresif,$token($gettok($13,2,64),1,41)) >= 5 {
swbot gline $+(*@,$token($gettok($13,2,64),1,41)) +10 2Sunucuya agresif giriş/cıkış tespit edildi 10 dakika uzaklaştırıldınız.
swbot privmsg $_log :2[6• 2Excess 12Flood 6•2] [Nick:4 $12 2] [Ident:4 $gettok($gettok($13,1,64),1,40) 2] [Ip:4 $token($gettok($13,2,64),1,41) 2]
return
}
}
if (%clone == on) {
.hinc -ms Clone $token($gettok($13,2,64),1,41) 1
if $hget(Clone,$token($gettok($13,2,64),1,41)) >= 4 {
swbot gline $+(*@,$token($gettok($13,2,64),1,41)) +5h 2Clone girişi yasak!
swbot privmsg $_log :2[6• 2Clone 6•2] [Nick:4 $12 2] [Ident:4 $gettok($gettok($13,1,64),1,40) 2] [Ip:4 $token($gettok($13,2,64),1,41) 2]
.hdel Clone $token($gettok($13,2,64),1,41)
return
}
}
iptara $token($gettok($13,2,64),1,41) $12 $gettok($gettok($13,1,64),1,40)
swbot who +I $12
}
if *Client exiting:* iswm $strip($1-) {
if (%clone == on) {
if $hget(Clone,$gettok($gettok($10,2,64),1,41)) {
if ($token($hget(Clone,$gettok($gettok($10,2,64),1,41)),0,32) == 1) { .hdel -ms Clone $gettok($gettok($10,2,64),1,41) | return }
.hdec -ms Clone $gettok($gettok($10,2,64),1,41) 1
}
}
}
if $4 == :VERSION { swbot privmsg $_log :[VERSİON] [NİCK: $remove($gettok($1,1,$asc(!)),:) ] [VERSİON CEVABI : $5- ] }
if $4 == :FINGER { swbot privmsg $_log :[FİNGER] [NİCK: $remove($gettok($1,1,$asc(!)),:) ] [FİNGER CEVABI : $5- ] }
if *[FAILEDAUTH]* iswm $strip($1-) { swbot privmsg $_opers :2[6• 2Oper 12Deneme 6•2] [Nick:4 $11 2] [Denenen Oper Nick:4 $15 2] }
if *[unknown oper]* iswm $strip($1-) { swbot privmsg $_opers :2[6• 2Oper 12Deneme 6•2] [Nick:4 $11 2] }
if *is now a* iswm $strip($1-) {
if $5 == Global { return }
swbot privmsg $_opers :2[6• 2Oper 12Giriş 6•2] [Nick:4 $remove($4,:) 2] [Girilen Oper:4 $remove($6,$chr(91),$chr(93))) 2] [Yetki FLAG:4 $oflags($remove($right($1-,3),$chr(40),$chr(41)))) 2]
swbot privmsg $remove($4,:) : $+ $_logo
swbot privmsg $remove($4,:) :
swbot privmsg $remove($4,:) :Merhaba [ $remove($4,:) ] oper'inizi login oldunuz, Hayır'lı görevler dilerim.
swbot privmsg $remove($4,:) :Opers komutlarını görmek icin2 $_opers kanal'inda 6!komutlar Yaziniz.
}
if (*/whois on you* iswm $1-) {
inc -u10 %wh. [ $+ [ $5 ] ] 1 | if %wh. [ $+ [ $5 ] ] > 2 { swbot privmsg $5 :4Hata: Bu kadar fazla, ardarda bu komutu kullanamazsınız. | return }
swbot privmsg $_opers :2[6• 2Whois 6•2] [Nick:4 $5 2] [Ident:4 $gettok($gettok($6,1,64),1,40) 2] [Ip:4 $gettok($gettok($6,2,64),1,41) 2]
swbot privmsg $5 : $+ $_logo
swbot privmsg $5 :
swbot privmsg $5 :5• Detaylı bilgi alabilmek için, 6!bilgi yazabilirsiniz.
swbot PRIVMSG $5 :5• Komutları görebilmek için, 2!komutlar yazabilirsiniz.
}
if (*super-user privileges* iswmcs $4-) {
if ($token($9,1,33) == $me) { return }
swbot privmsg $_opers $qt(Supass - Giris) bilgi, Nick: $token($9,1,33) -/- (Super operator(yetkili) girisi yapmistir!)
}
}
}
Eğlence Botu Script Kodu ; Kod: Kodu kopyalamak için üzerine çift tıklayın! alias swextrabot if ($sock(extrabot).status == active) sockwrite -n extrabot $1-
on *:sockclose:extrabot:{ $+(.timer,$rand(100,9999)) 1 2 sockopen extrabot $_sunucu $_port }
on *:sockopen:extrabot:{
if ($sockerr) { sockclose extrabot | $+(.timer,$rand(100,9999)) 1 2 sockopen extrabot $_sunucu $_port | returnex }
swextrabot NICK $+($_extranick,$r(10,9999))
swextrabot USER ZanayNet "" " 4Zanay.Net Eglence Sistemi.
sockmark $sockname $+($_extranick,$r(1,999999999))
}
on *:sockread:extrabot:{
if ($sockerr) { sockclose extrabot | $+(.timer,$rand(100,9999)) 1 2 sockopen extrabot $_sunucu $_port | returnex }
var %; | sockread %; | tokenize 32 %;
;if !$window(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug) { window -k0 @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug } | aline -p @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug $timestamp < $1-
if ($1 = ping) swextrabot pong $remove($2,:)
if ($2 == 001) {
swextrabot oper $_oper
swextrabot nick $_extranick
swextrabot chghost extrabot $+($_extranick.System.,$gettok($_sunucu,2-,46))
}
if $1 == error && $2 == :closing { sockclose extrabot | $+(.timer,$rand(100,999)) 1 2 sockopen extrabot $_sunucu $_port }
if ($2 == 451) { sockclose extrabot | $+(.timer,$rand(100,999)) 1 4 sockopen extrabot $_sunucu $_port }
if ($regex($2,/473|475|471|474)) { .timer 1 6 swextrabot sajoin extrabot $4 }
if ($regex($2,/481|411|001)) {
swextrabot oper $_oper | .timer 1 5 swextrabot nick $_extranick | swextrabot nickserv identify $_npass | .timer 1 6 swextrabot os su $_supass
.timer 0 1 swextrabot sajoin $_extranick $+($_operchan,$chr(44),$_bots,$chr(44),$_gkanal)
}
if $2 == 433 { swextrabot ns ghost extrabot $_npass | swextrabot ns release extrabot $_npass | swextrabot nick extrabot }
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION && $left($3,1) != $chr(35) {
if $4 == :TIME { swextrabot NOTICE $_nick($1) TIME $time | return }
if $4 == :VERSION { swextrabot NOTICE $_nick($1) VERSION 2mIRC v6.35 Recep Şentürk | swextrabot NOTICE $_nick($1) VERSION $_username | return }
if $4 == :FINGER { swextrabot NOTICE $_nick($1) FINGER $_username $+ ( $+ $_ident $+ @) Idle 1 seconds | return }
if $4 == :PING { swextrabot NOTICE $_nick($1) PONG $5- | return }
}
if $2 == JOIN && $_nick($1) == $_extranick {
swextrabot mode $remove($3,:) +h $_extranick
}
if $right($3,-1) == #Sohbet {
swextrabot privmsg $right($3,-1) :1Merhaba [4 $_nick($1) 1] 1Zanay.Net Sohbet Sunucusuna Hoşgeldiniz.
swextrabot privmsg $right($3,-1) :1Sohbeti Daha Eğlenceli Bir Hale Getirmek İçin Özelime veya Kanal Geneline 4!eglence 1yazınız.
swextrabot privmsg $right($3,-1) :1Birbirinden farklı eğlenceler sizleri bekliyor.
return
}
if $2 == PRIVMSG {
if $3 == $_botchan {
if $regex($remove($4,:),/([.!]s[öÖo]z)/Si) {
if !$5 || !$6 { swextrabot privmsg $_botchan Lütfen .söz sil numara şekline kullanın.. | return }
if $regex($5,/(s[ıİi]l)/Si) {
write $+(-dl,$6) soz.txt
swextrabot privmsg $_botchan $_nick($1) 2nicki4 $6 2numaralı sözü uygunsuz olduğu için silmiştir....
}
}
}
if $3 = $_extranick {
if $regex($remove($4,:),/([.!]eglence)/Si) {
swextrabot privmsg $_nick($1) 2Z-Eglence Bot Komut Dizini. 4< Kanalda >
swextrabot privmsg $_nick($1)
swextrabot privmsg $_nick($1) 2[!.]4cay 2<Nick> Belirlenen nicke Çay İkram Eder.
swextrabot privmsg $_nick($1) 2[!.]4kahve 2<Nick> Belirlenen nicke Kahve İkram Eder.
swextrabot privmsg $_nick($1) 2[!.]4söz Rastgele söz gösterir.
swextrabot privmsg $_nick($1) 2[!.]4söz 2<Nick> Belirlenen nicke söz gönderir.
swextrabot privmsg $_nick($1) 2[!.]4firlat 2<Nick> Belirlenen nicke eşya fırlatır.
swextrabot privmsg $_nick($1) 2[!.]4hediye 2<Nick> Belirlenen nicke hediye gönderir.
swextrabot privmsg $_nick($1) 2[!.]4zar Kanalda zar atarsınız şansınızı denersiniz.
swextrabot privmsg $_nick($1) 2[!.]4öp 2<Nick> Belirlenen nicki öper :Dds.
swextrabot privmsg $_nick($1) 2[!.]4tarz 2<Nick> Belirlenen nickin tarzını yorumlar.
swextrabot privmsg $_nick($1) 2[!.]4benimtarzim Sizin tarzınızı yorumlar.
swextrabot privmsg $_nick($1) 2[!.]4ben Bot size iltifat eder.
swextrabot privmsg $_nick($1) 2[!.]4sen 2<Nick> Belirlenen nicke bot iltifat eder.
swextrabot privmsg $_nick($1) 2[!.]4durt 2<Nick> Belirlenen Nicki Dürter.
swextrabot privmsg $_nick($1)
swextrabot privmsg $_nick($1) 2Z-Eglence Bot Komut Dizini. 4< Özelde >
swextrabot privmsg $_nick($1)
swextrabot privmsg $_nick($1) 2[!.]4söz ekle 2<Sözünüz> Listeye belirtilen sözü ekler.
swextrabot privmsg $_nick($1) 2[!.]4döviz Bugünkü döviz kurlarını gösterir.
swextrabot privmsg $_nick($1) 2[!.]4burc 2<Burcunuz> Burcunuzun bugünkü yorumunu gösterir.
}
if $regex($remove($4,:),/([.!]bur[cÇç])/Si) {
if !$regex($5,/^(akrep|oglak|koc|boga|ikizler|yengec|aslan|basak|kova|terazi|yay|balik)$/i) { swextrabot privmsg $_nick($1) Lütfen .burc akrep|oglak|koc|boga|ikizler|yengec|aslan|basak|kova|terazi|yay|balik gibi kullanınız. | return }
swextrabot privmsg $_botchan $_nick($1) nicki $5 burcunun yorumuna baktı.
set %:::burcnick $_nick($1)
burc $5
}
if $regex($remove($4,:),/([.!]d[öÖo]v[iİı]z)/Si) {
set %::kurnick $_nick($1)
sockclose kurx
sockopen kurx [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
swextrabot privmsg $_botchan $_nick($1) özelimde .döviz komutunu kullandı.
}
if $regex($remove($4,:),/([.!]s[öÖo]z)/Si) {
if !$5 || !$6 { swextrabot privmsg $_nick($1) Lütfen .söz ekle SÖZÜNÜZ şekline kullanın.. | return }
if $5 == ekle {
write soz.txt $6- $+ ÷ $+ $_nick($1))
swextrabot privmsg $_nick($1) $_nick($1) 2sözünüz listeye eklenmiştir. 3Söz numarası:5 $lines(soz.txt)
swextrabot privmsg $_nick($1) 2Eklediğiniz Söz: 4"1 $6- 4"
swextrabot privmsg $_botchan -
swextrabot privmsg $_botchan $_nick($1) 2bir söz ekledi 3Söz numarası:5 $lines(soz.txt)
swextrabot privmsg $_botchan 2Eklediği Söz: 4"1 $6- 4"
swextrabot privmsg $_botchan 2Ugunsuzsa Sözü Silmek İçin: .söz sil4 $lines(soz.txt) 2yapınız...
swextrabot privmsg $_botchan -
}
}
}
if *!* iswm $remove($4,:) || *.* iswm $remove($4,:) {
var %::ii = 1
while %::ii <= $lines(globalkanal.txt) {
if $3 == $read(globalkanal.txt,%::ii) {
if $regex($remove($4,:),/([.!]sen)/Si) {
if !$5 { swextrabot privmsg $3 Lütfen .sen Nick Şeklinde Kullanın. Kendiniz İçin Kullanacaksanız .ben | return }
if $hget(sen,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sen Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .sen $5 komutunu kullandı.
if !$hget(sen) { hmake sen }
hinc -mu30 sen $_nick($1)
swextrabot privmsg $3 $+(1[,$5,] Sen : 4) $read(senben.txt)
}
if $remove($4,:) == .ben || $remove($4,:) == !ben {
if $hget(ben,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ben Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .ben komutunu kullandı.
if !$hget(ben) { hmake ben }
hinc -mu30 ben $_nick($1)
swextrabot privmsg $3 $+(1[,$_nick($1),] 1Kendi Özelini Paylaşıyor : 4) $read(senben.txt)
}
if $remove($4,:) == .asktest || $remove($4,:) == !asktest {
if $hget(asktest,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]asktest Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .asktest komutunu kullandı.
if !$hget(asktest) { hmake asktest }
hinc -mu30 asktest $_nick($1)
swextrabot privmsg $3 $+(1[,$_nick($1),] 1Kendi Özelini Paylaşıyor : 4) $read(asktest.txt)
}
if $regex($remove($4,:),/([.!]benimtarz[iİı]m)/Si) {
if $hget(tarzim,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]benimtarzim Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .benimtarzim komutunu kullandı.
if !$hget(tarzim) { hmake tarzim }
hinc -mu30 tarzim $_nick($1)
swextrabot privmsg $3 [ $_nick($1) ] Senin Bugünki Tarzın : 4 $read(tarz.txt)
}
if $regex($remove($4,:),/([.!]tarz)/Si) {
if $5 == $_nick($1) { swextrabot privmsg $3 Kendi Tarzınızı Yorumlatmak İçin .benimtarzim | return }
if $hget(tarz,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]tarz Komutunu Kullanabilirsiniz. | return }
if !$5 { swextrabot privmsg $3 Lütfen .tarz Nick Şeklinde Kullanınız. Kendi Tarzınızı Görmek İçin .benimtarzim | return }
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .tarz $5 komutunu kullandı.
if !$hget(tarz) { hmake tarz }
hinc -mu30 tarz $_nick($1)
swextrabot privmsg $3 1[ $5 ] 1Senin Tarzın :4 $read(tarz.txt)
}
if $regex($remove($4,:),/([.!][Öö]p)/Si) {
if $5 == $_nick($1) { swextrabot privmsg $3 Kendi kendini mi öpecen kudurdunmu $_nick($1) :Dds | return }
if $hget(opo,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]öp Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $3 $+(2,$_nick($1)) $5 1i kocaman öptü4 $gettok(%öpüş,$r(1,7),$asc(*)) 4:*
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .öp $5 $5 komutunu kullandı.
if !$hget(opo) { hmake opo }
hinc -mu30 opo $_nick($1)
}
if $regex($remove($4,:),/([.!]zar)/Si) {
if $hget(zar,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $3 Attığın zarı tarif et $+($_nick($1),...)
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
if !$hget(zar) { hmake zar }
hinc -mu30 zar $_nick($1)
var %dice $rand(1,6)
var %dice2 $rand(1,6)
swextrabot privmsg $3 2Senin zarların $+(%dice,-,%dice2)
if (%dice == %dice2) {
swextrabot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
swextrabot privmsg $3 4Hediyen: $+(2,$read(hediye.txt))
}
elseif (%dice != $dice2) {
swextrabot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
}
}
if $regex($remove($4,:),/([.!]hed[iİı]ye)/Si) {
if $5 == $_nick($1) { swextrabot privmsg $3 Kendi Kendine Hediyemi Göndereceksin. | return }
if !$5 { swextrabot privmsg $3 Lütfen .hediye Nick Şeklinde Kullanınız | return }
if $hget(hediye,$_nick($1)) { swextrabot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(Hediye,$_nick($1)).unset saniye beklemeniz gerek. | return }
swextrabot privmsg $3 $+(1[ $_nick($1)) ] 1Tarafından4 $5 1Nickine4 $read(hediye.txt) 1Hediye Edildi.
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .hediye $5 komutunu kullandı.
if !$hget(hediye) { hmake hediye }
hinc -mu30 hediye $_nick($1)
}
if $regex($remove($4,:),/([.!]durt)/Si) {
if $5 == $_nick($1) { swextrabot privmsg $3 Kendi Kendine Hediyemi Göndereceksin. | return }
if !$5 { swextrabot privmsg $3 Lütfen .durt Nick Şeklinde Kullanınız | return }
if $hget(durt,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]durt Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $3 $+(1[ $_nick($1)) ] 1Tarafından4 $5 1Nickine4 $read(hediye.txt) 1Hediye Edildi.
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .hediye $5 komutunu kullandı.
if !$hget(durt) { hmake durt }
hinc -mu30 durt $_nick($1)
}
if $regex($remove($4,:),/([.!]cay)/Si) {
if $5 == $_nick($1) { swextrabot privmsg $3 Kendi Kendine Çaymı Ismarlayacaksın. | return }
if !$5 { swextrabot privmsg $3 Lütfen .cay Nick Şeklinde Kullanınız | return }
if $hget(cay,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa 4[!]hediye Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $3 $+(1[ $_nick($1)) ] 1Tarafından4 $5 1Nickine4 $read(cay.txt) 1İkram Edilmiştir. Afiyet Olsun.
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .cay $5 komutunu kullandı.
if !$hget(cay) { hmake cay }
hinc -mu30 cay $_nick($1)
}
if $regex($remove($4,:),/([.!]eglence)/Si) {
if !$5 { swextrabot privmsg $3 4Z-Eglence Bot Komut Dizini. < Kanalda > }
if !$5 { swextrabot privmsg $3 }
if !$5 { swextrabot privmsg $3 4[!.]cay <Nick> 1Belirlenen nicke Çay İkram Eder. }
if !$5 { swextrabot privmsg $3 4[!.]kahve <Nick> 1Belirlenen nicke Kahve İkram Eder. }
if !$5 { swextrabot privmsg $3 4[!.]söz 1Rastgele söz gösterir. }
if !$5 { swextrabot privmsg $3 4[!.]söz <Nick> 1Belirlenen nicke söz gönderir. }
if !$5 { swextrabot privmsg $3 4[!.]firlat <Nick> 1Belirlenen nicke eşya fırlatır. }
if !$5 { swextrabot privmsg $3 4[!.]hediye <Nick> 1Belirlenen nicke hediye gönderir. }
if !$5 { swextrabot privmsg $3 4[!.]zar 1Kanalda zar atarsınız şansınızı denersiniz. }
if !$5 { swextrabot privmsg $3 4[!.]öp <Nick> 1Belirlenen nicki öper }
if !$5 { swextrabot privmsg $3 4[!.]tarz <Nick> 1Belirlenen nickin tarzını yorumlar. }
if !$5 { swextrabot privmsg $3 4[!.]benimtarzim 1Sizin tarzınızı yorumlar. }
if !$5 { swextrabot privmsg $3 4[!.]ben 1Bot size iltifat eder. }
if !$5 { swextrabot privmsg $3 4[!.]cay <Nick> 1Belirlenen nicke Çay İkram Eder. }
if !$5 { swextrabot privmsg $3 4[!.]sen <Nick> 1Belirlenen nicke bot iltifat eder. }
if !$5 { swextrabot privmsg $3 4[!.]durt <Nick> 1Belirlenen Nicki Dürter. }
if !$5 { swextrabot privmsg $3 . }
if !$5 { swextrabot privmsg $3 4Z-Eglence Bot Komut Dizini. < Özelde > }
if !$5 { swextrabot privmsg $3 4[!.]söz ekle <Sözünüz> 1Listeye belirtilen sözü ekler. }
}
if $regex($remove($4,:),/([.!]kahve)/Si) {
if $5 == $_nick($1) { swextrabot privmsg $3 Kendi Kendine Kahvemi Ismarlayacaksın. | return }
if !$5 { swextrabot privmsg $3 Lütfen .kahve Nick Şeklinde Kullanınız | return }
if $hget(kahve,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa 4[!]kahve Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $3 $+(1[ $_nick($1)) ] 1Tarafından4 $5 1Nickine4 $read(kahve.txt) 1İkram Edilmiştir. Afiyet Olsun.
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .kahve $5 komutunu kullandı.
if !$hget(kahve) { hmake kahve }
hinc -mu30 kahve $_nick($1)
}
if $regex($remove($1,:),/([.!]firlat)/Si) {
if $5 == $_nick($1) { swextrabot privmsg $3 Kendi kendine ne firlatmayi deniyorsun ah be kardesim | return }
if !$5 { swextrabot privmsg $3 Lütfen .fırlat NİCK şeklinde kullanınız | return }
if $hget(firlat,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa 4[!]firlat Komutunu Kullanabilirsiniz. | return }
swextrabot privmsg $3 -
swextrabot privmsg $3 $+(2,$_nick($1)) 1nicki2 $5 1nickine4 $gettok($read(firlat.txt),1,$asc(=)) 1fırlattı.
swextrabot privmsg $3 1aha2 $5 1in4 $gettok(%firlat,$r(1,5),$asc(*)) 1:Dd
swextrabot privmsg $_botchan $_nick($1) $3 kanalında .fırlat $5 komutunu kullandı.
if !$hget(firlat) { hmake firlat }
hinc -mu30 firlat $_nick($1)
}
if $regex($remove($4,:),/([.!]s[öÖosd]z)/Si) {
if $hget(soz,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa 4[!]soz Komutunu Kullanabilirsiniz. | return }
if !$5 {
var %::rndf $r(1,$lines(soz.txt))
var %soz $gettok($read(soz.txt,%::rndf),1,$asc(÷))
var %ekleyen $gettok($read(soz.txt,%::rndf),2,$asc(÷))
swextrabot privmsg $_botchan $_nick($1) nicki $3 kanalında .söz komutunu kullandı.
swextrabot privmsg $3 -
swextrabot privmsg $3 0,4 %soz 1( 4Ekleyen: $+(%ekleyen,)) 1)
swextrabot privmsg $3 -
if !$hget(soz) { hmake soz }
hinc -mu30 soz $_nick($1)
return
}
elseif $5 {
var %::rndf $r(1,$lines(soz.txt))
var %soz $gettok($read(soz.txt,%::rndf),1,$asc(÷))
var %ekleyen $gettok($read(soz.txt,%::rndf),2,$asc(÷))
swextrabot privmsg $_botchan $_nick($1) nicki $3 kanalında .söz $5 komutunu kullandı.
swextrabot privmsg $3 -
swextrabot privmsg $3 Bu söz $_nick($1) den $5 e gelsin ....
swextrabot privmsg $3 0,4 / SÖZ \ -> %soz ( Ekleyen: $+(%ekleyen,)) )
swextrabot privmsg $3 -
if !$hget(soz) { hmake soz }
hinc -mu30 soz $_nick($1)
swextrabot privmsg $3 Sizde söz göndermek istiyorsanız,4 $_extranick botunun özelinde !söz <ekle> <Sözünüz> yazarak bildirebilirsiniz. ( Söz Sayısı : 4 %::rndf )
}
}
}
inc %::ii
}
}
}
}
alias burc {
if $sock(burc) { sockclose burc }
sockopen burc mahmure.hurriyet.com.tr 80
set %brcs $1
}
on *:sockopen:burc:{
var %burc = sockwrite -n burc
%burc GET /astroloji/burclar/ $+ %brcs HTTP/1.1
%burc Host: mahmure.hurriyet.com.tr
%burc User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
%burc Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%burc Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
;%burc Accept-Encoding: gzip, deflate
%burc Cookie: hcatFrom=astroloji; _sgf_user_id=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; hrp_gb=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; __atuvc=6%7C10; ASP.NET_SessionId=4a4giokhxmtt1wa2hbiqfpqs; __atuvs=58bc94ec413b9cfb000; semPageCounter=2
%burc Connection: keep-alive
%burc Upgrade-Insecure-Requests: 1
%burc $crlf
}
on *:sockread:burc:{
var %burcc
sockread %burcc
var %text $htmlfree(%burcc)
var %rtext $replace(%text,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220))
if (<div class="burcDetail mBot30px"> isin %burcc) { swextrabot privmsg %:::burcnick 2 %rtext | sockclose burc }
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:kurx:{
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname $crlf
unset %:dolar | unset %:euro | unset %:sterlin
}
on *:sockread:kurx:{
var %:kur | sockread %:kur | tokenize 32 %:kur
if (*<li class="midrow alis" title="Dolar Alış"* iswm %:kur) || (*<li class="midrow satis" title="Dolar Satış"* iswm %:kur) { set %:dolar $addtok($htmlfree(%:kur),%:dolar,32) }
if (*<li class="midrow capraz" title="Çapraz Kur: 1 USD* iswm %:kur) {
swextrabot privmsg %::kurnick ($) 2Dolar 1Alış (TL) =4 $token(%:dolar,2,32) - Satış (TL) =4 $token(%:dolar,1,32) - Çapraz Kur =4 $htmlfree(%:kur) € ( 1$ = $+($htmlfree(%:kur),€) )
}
if (*<li class="midrow alis" title="Euro Alış">* iswm %:kur) || (*<li class="midrow satis" title="Euro Satış"* iswm %:kur) { set %:euro $addtok($htmlfree(%:kur),%:euro,32) }
if (*<li class="midrow capraz" title="Çapraz Kur: 1 EUR* iswm %:kur) {
swextrabot privmsg %::kurnick (€) 2Euro 1Alış (TL) =4 $token(%:euro,2,32) - Satış (TL) =4 $token(%:euro,1,32) - Çapraz Kur =4 $htmlfree(%:kur) $ ( 1€ = $+($htmlfree(%:kur),$) )
}
if (*<li class="midrow alis" title="Sterlin Alış">* iswm %:kur) || (*<li class="midrow satis" title="Sterlin Satış"* iswm %:kur) { set %:sterlin $addtok($htmlfree(%:kur),%:sterlin,32) }
if (*<li class="midrow capraz" title="Çapraz Kur: 1 GBP * iswm %:kur) {
swextrabot privmsg %::kurnick (£) 2Sterlin 1Alış (TL) =4 $token(%:sterlin,2,32) - Satış (TL) =4 $token(%:sterlin,1,32) - Çapraz Kur =4 $htmlfree(%:kur) $ ( 1£ = $+($htmlfree(%:kur),$) )
}
}
if $regex($1,/^([.!]sor)/Si) {
if %srmk || %srmk { swextrabot privmsg Şuan %srmk nicki %srmk nicki ile oyunda.... | return }
if !$2 { swextrabot privmsg $nick 2Hatalı Kullanım; Nick Belirtmediniz... "!sor nick " | return }
if $2 == $me { swextrabot privmsg 2Bana soru soramazsın $+ 4 $nick | return }
if $2 == Zanay { swextrabot privmsg 4 $2 2reyiz soru kabul etmiyor. | return }
if $2 == $nick { swextrabot privmsg 2Kendine neden soru sormaya çalışıyorsun deli misin $+ 4 $nick | return }
if $2 ison $chan {
set %srmk $nick
set %srmk $2
swextrabot privmsg $2 - $+ 4 $nick 2tarafından sana soru soruldu.
swextrabot privmsg 2Yapmanız gereken tek şey 4!tek 2ya da 4!cift 2yazmak. Tabii ödlekseniz 4!pas(Aktiftir.) 2yazma imkanınız var.
}
else { swextrabot privmsg 4 $+ $nick 2Hatalı Kullanım; $+ 4 $2 2Nicki Şuan Kanalda Bulunmuyor.... }
}
if $regex($1,/^([.!]tek)/Si) {
if $nick == %srmk {
var %hea = $iif(2 // $rand(1,6),cift,degil), %heaa = cift, %heaaa = tek
if (%hea == %heaa) { goto skt }
else { goto tbr }
:skt
swextrabot privmsg 2Tahminin yanlış sayı $v2 ti $+ 4 %srmk
swextrabot privmsg %srmk 2Hadi yine iyisin şimdilik şanslısın.
sapart %srmk $chan | msg %srmk 2Yanlış cevap verdin biliyorsun dimi4? | sajoin %srmk $chan
mode $chan +v %srmk
unset %sira %srmk %srmk %x
return
:tbr
swextrabot privmsg 2Tebrikler $+ 4 %srmk $+ . 2Cevabın doğru.
sapart %srmk $chan | msg %srmk 2Doğru cevap verildi biliyorsun dimi4? | sajoin %srmk $chan
mode $chan +v %srmk
unset %sira %srmk %srmk %x
}
else { swextrabot privmsg $nick 4Size sorulan bir soru yok. }
}
if $regex($1,/^([.!][çc][iIıİ]ft)/Si) {
if $nick == %srmk {
var %hea = $iif(2 // $rand(1,6),cift,degil), var %heaa = cift, %heaaa = tek
if (%hea == %heaa) { goto tbr }
else { goto skt }
:tbr
swextrabot privmsg 2Tahminin doğ sayın $v2 ti $+ 4 %srmk
swextrabot privmsg 2Hadi yine iyisin şimdilik şanslısın.
sapart %srmk $chan | msg %srmk 2Yanlış cevap verdiğini biliyorsun dimi4? | sajoin %srmk $chan | mode $chan +v %srmk
unset %sira %srmk %srmk %x
return
:skt
swextrabot privmsg 2Tahminin yanlış sayı $v2 ti $+ 4 %srmk
swextrabot privmsg %srmk 2Hadi yine iyisin şimdilik şanslısın.
sapart %srmk $chan | msg %srmk 2Cevap doğru değildi biliyorsun dimi4? | sajoin %srmk $chan
unset %sira %srmk %srmk %x
}
else { swextrabot privmsg $nick 4Size sorulan bir soru yok. }
}
if $regex($1,/^([.!]pas)/Si) {
if $nick == %srmk {
unset %sira %srmk %srmk %x
swextrabot privmsg $nick 2tam bir ödleksin. cezanı çek şimdi. | msg $nick 2Tarih korkakları yazmaz. | sapart $nick $chan | sajoin $nick $chan
swextrabot privmsg 2Oyun sıfırlanmıştır. Bot ile alakalı 4sorun, istek, öneri 2gibi dileklerinizi 4Mecnun 2nickine iletebilirsiniz.
}
else { swextrabot privmsg $nick 4Daha soru bile sormamışlar korkak tavuk seni. }
}
Konu YouMyCure tarafından (19 Haziran 2019 Saat 15:23 ) değiştirilmiştir.
|