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-
;########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
myip
}
else { .ych $_nick($1) $right($3,-1) }
}
elseif $regex($2,/353/) { .yns $5 $6- }
elseif $regex($2,/322/) {
if ($5 <= 2) && ($kanalbul($4) != 1) { $iif($hget(ops,$4),.hdel -ms ops $4) | swbot part $4 }
elseif $hfind(nochan,$4,0,W).data || $istok($_sc $_cs $_ns $_sales,$4,32) { return }
elseif ($5 >= 3) && !$regex($6,/s/) { swbot sajoin $_bot $4 }
}
if $2 == JOIN {
if $right($3,-1) == #Sohbet {
swbot privmsg $right($3,-1) :1Merhaba [4 $_nick($1) 1] 1Zanay.Net Sohbet Sunucusuna Hoşgeldiniz.
swbot privmsg $right($3,-1) :1Sohbeti Daha Eğlenceli Bir Hale Getirmek İçin Özelime veya Kanal Geneline 4!eglence 1yazınız.
swbot privmsg $right($3,-1) :1Birbirinden farklı eğlenceler sizleri bekliyor.
return
}
}
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 $_bots :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 $_bots :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 $_bots :2[6• 2Özel 12Komut 6•2] [Nick:4 $_nick($1) 2] [Komut:4 $strip($right($4,-1)) 2]
return
}
}
if $right($4,-1) == !eglence || $right($4,-1) == .eglence {
if $hget(Ökomut,$_nick($1)) >= 1 { return }
.hinc -msu10 Ökomut $_nick($1)
swbot privmsg $_nick($1) $_logo 2Eglence Bot Komut Dizini. 4< Kanalda >
swbot privmsg $_nick($1)
swbot privmsg $_nick($1) 2[!.]4cay 2<Nick> Belirlenen nicke Çay İkram Eder.
swbot privmsg $_nick($1) 2[!.]4kahve 2<Nick> Belirlenen nicke Kahve İkram Eder.
swbot privmsg $_nick($1) 2[!.]4söz Rastgele söz gösterir.
swbot privmsg $_nick($1) 2[!.]4söz 2<Nick> Belirlenen nicke söz gönderir.
swbot privmsg $_nick($1) 2[!.]4firlat 2<Nick> Belirlenen nicke eşya fırlatır.
swbot privmsg $_nick($1) 2[!.]4hediye 2<Nick> Belirlenen nicke hediye gönderir.
swbot privmsg $_nick($1) 2[!.]4zar Kanalda zar atarsınız şansınızı denersiniz.
swbot privmsg $_nick($1) 2[!.]4öp 2<Nick> Belirlenen nicki öper :Dds.
swbot privmsg $_nick($1) 2[!.]4tarz 2<Nick> Belirlenen nickin tarzını yorumlar.
swbot privmsg $_nick($1) 2[!.]4benimtarzim Sizin tarzınızı yorumlar.
swbot privmsg $_nick($1) 2[!.]4ben Bot size iltifat eder.
swbot privmsg $_nick($1) 2[!.]4sen 2<Nick> Belirlenen nicke bot iltifat eder.
swbot privmsg $_nick($1) 2[!.]4durt 2<Nick> Belirlenen Nicki Dürter.
swbot privmsg $_nick($1)
swbot privmsg $_nick($1) $_logo 2Eglence Bot Komut Dizini. 4< Özelde >
swbot privmsg $_nick($1)
swbot privmsg $_nick($1) 2[!.]4söz ekle 2<Sözünüz> Listeye belirtilen sözü ekler.
swbot privmsg $_nick($1) 2[!.]4döviz Bugünkü döviz kurlarını gösterir.
swbot 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) { swbot privmsg $_nick($1) Lütfen .burc akrep|oglak|koc|boga|ikizler|yengec|aslan|basak|kova|terazi|yay|balik gibi kullanınız. | return }
swbot 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
swbot privmsg $_botchan $_nick($1) özelimde .döviz komutunu kullandı.
}
if $regex($remove($4,:),/([.!]s[öÖo]z)/Si) {
if !$5 || !$6 { swbot 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))
swbot privmsg $_nick($1) $_nick($1) 2sözünüz listeye eklenmiştir. 3Söz numarası:5 $lines(soz.txt)
swbot privmsg $_nick($1) 2Eklediğiniz Söz: 4"1 $6- 4"
swbot privmsg $_botchan -
swbot privmsg $_botchan $_nick($1) 2bir söz ekledi 3Söz numarası:5 $lines(soz.txt)
swbot privmsg $_botchan 2Eklediği Söz: 4"1 $6- 4"
swbot privmsg $_botchan 2Ugunsuzsa Sözü Silmek İçin: .söz sil4 $lines(soz.txt) 2yapınız...
swbot privmsg $_botchan -
}
}
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.)
}
}
}
if ($2 == 352) {
if ($6 == $_sunucuip) || ($6 == %:myip) || $read(proxymuaf.txt,w,$6) { return }
var %:rand $rand(10,9999999)
.sockopen $+(city,%:rand)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | .sockmark $+(city,%:rand) $+($6,¿,$8)
if (%proxy == on) && $hget(proxy,$6) { swbot gline $+(*@,$6) - 2Sunucumuza 4proxy/tor/socks/wingate 2ile girmek yasak! 5(Z-Bot) | swbot privmsg $_log :[ PROXY ] [Nick: $8 ] [Ident: $5 ] [Ip: $6 ] | return }
if $regex($strip($11-),/(.net|.com|
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) {
swbot chgname $8 4[12 Türkçe mIRC 4| 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.4]
swbot privmsg $_log :[ Reklam Fullname ] [Nick: $8 ] Fullname: $strip($11-) ] [Alg?lanan Mask: $regml(1) ]
}
}
}
elseif $regex($2,/478/) && !$hget($4,Bantemiz) { .hinc -msu30 $4 Bantemiz | set %cbans on | swbot mode $4 +b | swbot privmsg $4 :Kanal ban listesi doldu. Temizleniyor... }
elseif $regex($2,/367/) && %cbans == on { .hadd -ms $+($4,.ban) $5 $rand(100,99999) }
elseif $regex($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
}
massmode $4 -b %t
$+(.timer,.,$rand(10,999)) 1 5 unset %cbans
if $hget($+($4,.ban)) { $+(.timer,$4) 1 6 hfree $+($4,.ban) }
}
elseif $regex($2,/352/) {
if $hget(Sus,$+($4,$8)) {
if $regex($9,/(@|&|%|~|\.)/Si) || $regex($gettok($6,1,32),/( $+ $_host $+ |Root|admin|ircop|oper|techinal|serveradmin|services|network)/Si) { swbot notice $hget(Sus,$+($4,$8)) :Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel -ms 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 -ms Sus $+($4,$8)
}
elseif $hget(Kick,$+($4,$8)) {
if $regex($9,/(@|&|%|~|\.)/Si) || $regex($gettok($6,1,32),/( $+ $_host $+ |Root|admin|ircop|oper|techinal|serveradmin|services|network)/Si) { swbot notice $hget(Kick,$+($4,$8)) :Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel -ms Kick $+($4,$8) | return }
swbot kick $4 $8 1Kurallara uymadığınız için $4 kanalından uzaklaştırıldınız.
.hdel -ms Kick $+($4,$8)
}
elseif $hget(KickBan,$+($4,$8)) {
if $regex($9,/(@|&|%|~|\.)/Si) || $regex($gettok($6,1,32),/( $+ $_host $+ |Root|admin|ircop|oper|techinal|serveradmin|services|network)/Si) { swbot notice $hget(KickBan,$+($4,$8)) :Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel -ms KickBan $+($4,$8) | return }
swbot mode $4 +b $8
swbot kick $4 $8 1Kurallara uymadığınız için $4 kanalından uzaklaştırıldınız.
.hdel -ms KickBan $+($4,$8)
}
elseif $hget(Ban,$+($4,$8)) {
if $regex($9,/(@|&|%|~|\.)/Si) || $regex($gettok($6,1,32),/( $+ $_host $+ |Root|admin|ircop|oper|techinal|serveradmin|services|network)/Si) { swbot notice $hget(Ban,$+($4,$8)) :Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel -ms Ban $+($4,$8) | return }
swbot mode $4 +b $8
.hdel -ms Ban $+($4,$8)
}
elseif $hget(IpBan,$+($4,$8)) {
if $regex($9,/(@|&|%|~|\.)/Si) || $regex($gettok($6,1,32),/( $+ $_host $+ |Root|admin|ircop|oper|techinal|serveradmin|services|network)/Si) { swbot notice $hget(IpBan,$+($4,$8)) :Banlamaya calışdıgınız kişi kanal yetkilisi! daha dikkatli olunuz. | .hdel -ms IpBan $+($4,$8) | return }
swbot mode $4 +b $+(*!*@,$6)
swbot kick $4 $8 1Kurallara uymadığınız için $4 kanalından uzaklaştırıldınız.
.hdel -ms IpBan $+($4,$8)
}
elseif %:nerdens == on { var %:r $r(1000,99999) | sockopen $+(yer1bul,%:r)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(yer1bul,%:r) $6 | unset %:nerdens }
}
if ($2 == 223) {
var %g $hget(StatsK,Sorgu)
if $regex($4,/^z$/S) && $regex(%g,/ $+ $token($5,2,64) $+ /S) {
swbot privmsg $_admin :[Z-Line] Ban Atan: $token($8,1,33) Sebep: $strip($right($9-,-1))
.hadd -ms StatsK Z Var
}
elseif $regex($4,/^G$/S) && $regex(%g,/ $+ $token($5,2,64) $+ /S) {
swbot privmsg $_admin :[G-Line] Ban Atan: $token($8,1,33) Sebep: $strip($right($9-,-1))
.hadd -ms StatsK G Var
}
elseif $regex($4,/^Z$/S) && $regex(%g,/ $+ $token($5,2,64) $+ /S) {
swbot privmsg $_admin :[GZ-Line] Ban Atan: $token($8,1,33) Sebep: $strip($right($9-,-1))
.hadd -ms StatsK GZ Var
}
elseif $regex($4,/^K$/S) && $regex(%g,/ $+ $token($5,2,64) $+ /S) {
swbot privmsg $_admin :[K-Line] Ban Atan: $token($8,1,33) Sebep: $strip($right($9-,-1))
.hadd -ms StatsK K Var
}
elseif $regex($4,/^s$/S) && $regex(%g,/ $+ $token($5,2,64) $+ /S) {
swbot privmsg $_admin :[Shun] Ban Atan: $token($8,1,33) Sebep: $strip($right($9-,-1))
.hadd -ms StatsK S Var
}
}
if ($2 == 219) {
if $regex($4,/^g$/S) {
if !$hget(StatsK,G) { swbot privmsg $_admin :[G-Line] listesinde aranılan IP'de ban yok. }
if !$hget(StatsK,GZ) { swbot privmsg $_admin :[GZ-Line] listesinde aranılan IP'de ban yok. }
}
if $regex($4,/^k$/S) {
if !$hget(StatsK,Z) { swbot privmsg $_admin :[Z-Line] listesinde aranılan IP'de ban yok. }
if !$hget(StatsK,K) { swbot privmsg $_admin :[K-Line] listesinde aranılan IP'de ban yok. }
}
if $regex($4,/^s$/S) && !$hget(StatsK,S) { swbot privmsg $_admin :[Shun] listesinde aranılan IP'de ban yok. | .hfree -sw StatsK }
}
if ($2 == 401) {
if !$sock(pbot) { sockopen pbot $_sunucuip $_port }
if !$sock(scbot) { sockopen scbot $_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) - 2Random fullname ile sunucuya girmek yasak! | swbot privmsg $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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) == .bantemizle || $right($4,-1) == !bantemizle {
.hinc -msu20 $3 Bantemiz | set %cbans on
swbot privmsg $3 :Bütün banlar, temizleniyor. | swbot mode $3 +b
swbot privmsg $_bots :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) 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 $_bots :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 $_bots :2[6• 2Kanal 12Komut 6•2] [Nick:4 $_nick($1) 2] [Kanal:4 $3 2] [Komut:4 $remove($4,:) $strip($5) 2]
}
}
}
if $regex($remove($4,:),/^([!.&]s[oöÖ]z)$/Si) && ($yönetimbul($3) == 0) {
if $hget(Söz,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) Komut'unu Kullanmanız için $hget(Söz,$_nick($1)).unset Saniye Beklemeniz Gerek. | return }
if $hget($3,Söz) { swbot notice $_nick($1) $+(4,$remove($4,:),) Komut'unu Kullanmanız için $hget($3,Söz).unset Saniye Beklemeniz Gerek. | return }
.hinc -msu10 Söz $_nick($1)
var %:söz $read(soz.txt), %:sıra $readn
swbot privmsg $3 :-
swbot notice $_nick($1) 8,2 Bilgi: $iif($token(%:söz,2,191),$token(%:söz,2,191),ReptiLe) Nickinin Eklediği Söz Hakkında Şikayetiniz Varsa Eğer, 4 %:sıra Söz Numarasıyla 4#ChanServ Kanalına Bildiriniz.
swbot privmsg $3 :-
swbot privmsg $3 : 8,2 / SÖZ \ -> $token(%:söz,1,191) $+(,$chr(40),Ekleyen: $iif($token(%:söz,2,191),$token(%:söz,2,191),ReptiLe),,$chr(41))
swbot privmsg $3 :-
swbot privmsg $3 :Sizde,4 $_bot Botu Özeline 4!söz ekle <Sözünüz> Şeklinde Ekleme Yapabilirsiniz.. (Söz Sayısı : $lines(soz.txt) $+ )
swbot privmsg $3 :-
swbot privmsg $_bots $+(4,$_nick($1),) Nick'i $3 Kanal'ında $remove($4,:) Komutunu Uyguladı.4 $iif($token(%:söz,2,191),$token(%:söz,2,191),Anonim),,$chr(41)) 6sözü gösterildi. 2ID :4 $lines(soz.txt) $+ / $lines(soz.txt) $+
}
if $regex($remove($4,:),/^([!.&]f[ıiİ]rlat)$/Si) && ($yönetimbul($3) == 0) {
if $hget(Firlama,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(Firlama,$_nick($1)).unset saniye beklemeniz gerek. | return }
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!firlat nick > | return }
.hinc -msu150 Firlama $_nick($1)
var %_at $+(5,$read(at.txt),)
swbot privmsg $3 : $+(4,$_nick($1),,$chr(44)) $+(6,$5,) nickine doğru %_at fırlattı...
swbot privmsg $3 : $+(4,$_nick($1),) 'nın attığı %_at $+(6,$5,) 'nın $read(h.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&]sen)$/Si) && ($yönetimbul($3) == 0) {
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!sen nick > | return }
if $hget(SenBen,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(SenBen,$_nick($1)).unset saniye beklemeniz gerek. | return }
.hinc -msu150 SenBen $_nick($1)
swbot privmsg $3 : $+(4,$5,) $read(sen.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $remove($4,:) == .ben || $remove($4,:) == !ben {
if $hget(ben,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ben Komutunu Kullanabilirsiniz. | return }
if !$hget(ben) { hmake ben }
hinc -mu30 ben $_nick($1)
swbot privmsg $3 : $+(1[,$_nick($1),] 1Kendi Özelini Paylaşıyor : 4) $read(ben.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&]ts)$/Si) {
if $hget(TS,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(TS,$_nick($1)).unset saniye beklemeniz gerek. | return }
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!ts nick > | return }
.hinc -msu30 TS $_nick($1)
swbot privmsg $3 : $+(4,$5,,$chr(44)) 4 2,6 $read(ts.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $remove($4,:) == .sozler || $remove($4,:) == !sozler {
if $hget(sozler,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sozler Komutunu Kullanabilirsiniz. | return }
if !$hget(sozler) { hmake sozler }
hinc -mu60 sozler $_nick($1)
swbot privmsg $3 $+(4,$_nick($1),2) $read(sozler.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&]fb)$/Si) {
if $hget(FB,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(FB,$_nick($1)).unset saniye beklemeniz gerek. | return }
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!fb nick > | return }
.hinc -msu30 FB $_nick($1)
swbot privmsg $3 : $+(4,$5,,$chr(44)) 2,8 $read(fb.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&]bjk)$/Si) {
if $hget(BJK,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(BJK,$_nick($1)).unset saniye beklemeniz gerek. | return }
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!bjk nick > | return }
.hinc -msu30 BJK $_nick($1)
swbot privmsg $3 : $+(4,$5,,$chr(44)) 0,1 $read(bjk.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&]gs)$/Si) {
if $hget(GS,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(GS,$_nick($1)).unset saniye beklemeniz gerek. | return }
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!gs nick > | return }
.hinc -msu30 GS $_nick($1)
swbot privmsg $3 : $+(4,$5,,$chr(44)) 8,4 $read(gs.txt)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&]fal)$/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Belirttiğiniz Kişinin falına bakmak için !fal nick komutunu kullanınız. | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!fal nick > | return }
if $hget(fal,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(fal,$_nick($1)).unset saniye beklemeniz gerek. | return }
swbot privmsg $3 2 $5 4; 3Kahve Falınız $read(fal.txt)
if !$hget(fal) { hmake fal }
.hinc -mu30 fal $_nick($1)
}
if $regex($remove($4,:),/([.!]benimfal[iİıI]m)/Si) {
if $hget(falim,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]benimfalim Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 1falınız:4 $read(fal.txt)
if !$hget(falim) { hmake falim }
.hinc -mu60 falim $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&]d[oöÖ]v)$/Si) {
if $5 == $_nick($1) { swbot privmsg $3 2Alışmış kudurmuştan beter olurmuş derler ya4 $_nick($1) 2dayak arsızımısın? Kendini dövemezsin. | return }
if $hget(Döv,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(Döv,$_nick($1)).unset saniye beklemeniz gerek. | return }
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!döv nick > | return }
.hinc -msu30 Döv $_nick($1)
swbot privmsg $3 $5 ; 4 $_nick($1) 6Seni $read(döv.txt) 1Dövdü.
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/^([!.&][oöÖ]p([uüÜ]c[uüÜ]k)?)$/Si) {
if $5 == Sado { swbot privmsg $3 4Sado öpülmekten hoşlanmaz | return }
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendini mi öpecen kudurdunmu $_nick($1) :D | return }
if $hget(Öp,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(Öp,$_nick($1)).unset saniye beklemeniz gerek. | return }
if !$5 { swbot privmsg $3 : $_nick($1) NICK belirtmediniz kullanımı örn; < 4!öpücük nick > | return }
swbot privmsg $3 $5 ; 4 $_nick($1) 6Seni $read(öp.txt) 1Gibi Öptü..
.hinc -msu30 Öp $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]zar)/Si) {
if $hget(zar,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 12Heytt Bee 4?121?? 6Sallıyoruz zarları.. 4?121?? 12Attığın zarı tahmin et $+($_nick($1),...)
if !$hget(zar) { hmake zar }
hinc -mu60 zar $_nick($1)
var %dice $rand(1,6)
var %dice2 $rand(1,6)
swbot privmsg $3 3Senin zarların 1 4?121?? $+(%dice,-,%dice2) 4?121??
if (%dice == %dice2) {
swbot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
swbot privmsg $3 4Hediyen: $+(2,$read(hediye.txt))
}
if (%dice != $dice2) {
swbot privmsg $3 1valla az kalmis 4Üzgünüm 3 $+($_nick($1),$chr(32)) 1kazanamadın Lütfen daha sonra Tekrar deneyiniz..!
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
}
if $regex($remove($4,:),/([.!]sor)/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swbot privmsg $3 :Lütfen nick belirtiniz. ÖRN; 2[!.]4sor 2<Nick> }
if ($5 == $_nick($1)) { swbot privmsg $3 :Kendinize bir şey soramazsınız.! | return }
if ($_nickler($5) == 1) { return }
if $hget($+($3,-Sor),$5) { swbot privmsg $3 $+(:4,$strip($5),) nick'ine soru sorulmuş cevap vermesi bekleniliyor.. | return }
else {
swbot privmsg $3 $+(:4,$strip($5),) tek mi çift mi?
swbot privmsg $3 :Soruya cevap vermek için yapmanız gereken tek çey 4!tek veya 4!cift komutlarını kullanmak.
.hadd -msu60 $+($3,-Sor) $5 $+($iif($r(10,30) >= 20,Tek,Çift),¿,$_nick($1))
$+(.timer,$3,sor,$5) 1 60 swbot privmsg $3 $+(:4,$strip($5),) zamanınız doldu soruya cevap vermediniz..(Korkak olmayın:p)
}
}
if $regex($remove($4,:),/([.!]tek)/Si) {
if !$hget($+($3,-Sor),$_nick($1)) { swbot privmsg $3 $+(:4,$_nick($1),) size bir soru sorulmamış.. | return }
if ($token($hget($+($3,-Sor),$_nick($1)),1,191) == Tek) {
$+(.timer,$3,sor,$_nick($1)) off
swbot privmsg $3 $+(:4,$_nick($1),) doğru bildiniz. =)
swbot sapart $token($hget($+($3,-Sor),$_nick($1)),2,191) $3
swbot sajoin $token($hget($+($3,-Sor),$_nick($1)),2,191) $3
swbot privmsg $token($hget($+($3,-Sor),$_nick($1)),2,191) $+(:4,$_nick($1),) nick'i doğru bildi ve sen kaybettin :pP
.hdel -ms $+($3,-Sor) $_nick($1)
}
else {
$+(.timer,$3,sor,$_nick($1)) off
swbot sapart $_nick($1) $3
swbot sajoin $_nick($1) $3
swbot privmsg $_nick($1) :Kaybettik :'(
.hdel -ms $+($3,-Sor) $_nick($1)
}
}
if $regex($remove($4,:),/([.!][cç][iIİ]ft)/Si) {
if !$hget($+($3,-Sor),$_nick($1)) { swbot privmsg $3 $+(:4,$_nick($1),) size bir soru sorulmamış.. | return }
if ($token($hget($+($3,-Sor),$_nick($1)),1,191) == Çift) {
$+(.timer,$3,sor,$_nick($1)) off
swbot privmsg $3 $+(:4,$_nick($1),) doğru bildiniz. =)
swbot sapart $token($hget($+($3,-Sor),$_nick($1)),2,191) $3
swbot sajoin $token($hget($+($3,-Sor),$_nick($1)),2,191) $3
swbot privmsg $token($hget($+($3,-Sor),$_nick($1)),2,191) $+(:4,$_nick($1),) nick'i doğru bildi ve sen kaybettin :pP
.hdel -ms $+($3,-Sor) $_nick($1)
}
else {
$+(.timer,$3,sor,$_nick($1)) off
swbot sapart $_nick($1) $3
swbot sajoin $_nick($1) $3
swbot privmsg $_nick($1) :Kaybettik :'(
.hdel -ms $+($3,-Sor) $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
}
if $regex($remove($4,:),/([!.&]raportesti)/Si) {
if $hget(raportesti,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]raportesti Komutunu Kullanabilirsiniz. | return }
swbot privmsg $_bots $_nick($1) $3 kanalında .raportesti $5 komutunu kullandı.
if !$hget(raportesti) { hmake raportesti }
hinc -mu60 raportesti $_nick($1)
var %toplam 100
var %deli $r(1,%toplam)
var %toplam $calc(%toplam - %deli)
swbot privmsg $3 14[4RAPOR TESTİ414] 4¤4¤4¤4¤4¤4¤ 1DELİ RAPORU:10 $_nick($1) 4¤4¤4¤4¤4¤4¤
swbot privmsg $3 14[4RAPOR TESTİ414] 3¤ 3¤ 3¤ 3¤ 3¤ 3¤ 4 %toplam DELİ! 3¤ 3¤ 3¤ 3¤ 3¤ 3¤ 3¤
swbot privmsg $3 14[4RAPOR TESTİ414] 14,14?????????????????????????????????????
swbot privmsg $3 14[4RAPOR TESTİ414] 4DELİLİK TÜRÜ:2 $read(rapor.txt)
swbot privmsg $3 14[4RAPOR TESTİ414] 4AFFETMEDİĞİ:5 $read(rapor2.txt)
swbot privmsg $3 14[4RAPOR TESTİ414] 4ZAYIF NOKTASI:7 $read(rapor3.txt)
swbot privmsg $3 14[4RAPOR TESTİ414] 4UYARI:12 $read(uyarı.txt)
swbot privmsg $3 14[4RAPOR TESTİ414] 4 *
swbot privmsg $3 14[4RAPOR TESTİ414] 10 $_nick($1) 2Nick'inin 4RAPOR TESTİ 2Sonuçları Gösterildi..
}
if $regex($remove($4,:),/([!.&]a[sşSŞ]ktesti)/Si) {
if !$5 { swbot privmsg $3 Lütfen .aşktesti NİCK şeklinde kullanınız | return }
if $hget(aşktesti,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]aşktesti Komutunu Kullanabilirsiniz. | return }
swbot privmsg $_bots $_nick($1) $3 kanalında .aşktesti $5 komutunu kullandı.
if !$hget(aşktesti) { hmake aşktesti }
hinc -mu60 aşktesti $_nick($1)
var %toplam 100
var %seviyor $r(1,%toplam)
var %toplam $calc(%toplam - %seviyor)
var %sevmiyor $r(1,%toplam)
var %toplam $calc(%toplam - %sevmiyor)
var %umursamıyor $r(1,%toplam)
swbot privmsg $3 14[4AŞK TESTİ414] $+(10 ,$5,,$chr(44)) 2Nick'inin 4AŞK TESTİ 2Sonuçları Gösteriliyor.. 4Bekleyiniz.
swbot privmsg $3 14[4AŞK TESTİ414] 4 *
swbot privmsg $3 14[4AŞK TESTİ414] 4,4................. 0 % $+ %seviyor seviyor! <3
swbot privmsg $3 14[4AŞK TESTİ414] 2,2......................... 0 % $+ %sevmiyor sevmiyor! </3
swbot privmsg $3 14[4AŞK TESTİ414] 7,7.......................................................... 0 % $+ %umursamıyor Umursamıyor! ;|
swbot privmsg $3 14[4AŞK TESTİ414] 4 *
swbot privmsg $3 14[4AŞK TESTİ414] $+(10,$_nick($1)) 3 $5 $read(asktest.txt)
}
if $regex($remove($4,:),/([!.&]d[nNn]atesti)/Si) {
if $hget(dnatesti,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]dnatesti Komutunu Kullanabilirsiniz. | return }
swbot privmsg $_bots $_nick($1) $3 kanalında .dnatesti $5 komutunu kullandı.
if !$hget(dnatesti) { hmake dnatesti }
hinc -mu60 dnatesti $_nick($1)
var %toplam 100
var %dnatesti $r(1,%toplam)
var %toplam $calc(%toplam - %dnatesti)
var %toplam2 100
var %dnatesti $r(1,%toplam2)
var %toplam2 $calc(%toplam2 - %dnatesti)
swbot privmsg $3 14[4DNA TESTİ414] 4¤4¤4¤4¤4¤4¤ 1DNA TESTİ SONUCU 4¤4¤4¤4¤4¤4¤
swbot privmsg $3 14[4DNA TESTİ414] 2NİCK:10 $_nick($1)
swbot privmsg $3 14[4DNA TESTİ414] 2ANNE GENİ:1 %toplam
swbot privmsg $3 14[4DNA TESTİ414] 2BABA GENİ:1 %toplam2
swbot privmsg $3 14[4DNA TESTİ414] 2Yapılan 4DNA Testi 2Sonucuna Göre,
swbot privmsg $3 14[4DNA TESTİ414] 2Akraban Olan Kişi:4 $read(dnatesti.txt)
swbot privmsg $3 14[4DNA TESTİ414] 4 *
swbot privmsg $3 14[4DNA TESTİ414]10 $_nick($1) 2Nick'inin 4DNA TESTİ 2Sonuçları Gösterildi..
}
if $regex($remove($4,:),/([!.&]kişiliktesti)/Si) {
if $hget(kişiliktesti,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]kişiliktesti Komutunu Kullanabilirsiniz. | return }
swbot privmsg $_bots $_nick($1) $3 kanalında .kişiliktesti $5 komutunu kullandı.
if !$hget(kişiliktesti) { hmake kişiliktesti }
hinc -mu60 kişiliktesti $_nick($1)
var %toplam 100
var %çekici $r(1,%toplam)
var %toplam $calc(%toplam - %çekici)
var %toplam2 100
var %çılgın $r(1,%toplam2)
var %toplam2 $calc(%toplam2 - %çılgın)
var %toplam3 100
var %zeki $r(1,%toplam3)
var %toplam3 $calc(%toplam3 - %zeki)
var %toplam4 100
var %tehlikeli $r(1,%toplam4)
var %toplam4 $calc(%toplam4 - %tehlikeli)
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 10 $_nick($1) 2Nick'inin 4KİŞİLİK TESTİ 2Sonuçları Gösteriliyor..
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 4 *
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 6,6 ****** 0 %toplam 1ÇEKİCİ4! 8*
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 8,8 ********* 0 %toplam2 4ÇILGIN1! 12*
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 11,11 ************ 0 %toplam3 12ZEKİ1! 0*
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 4,4 *************** 0 %toplam4 8TEHLİKELİ1! 3*
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 4 *
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 4Test Sonucu:2 $read(sonuc.txt)
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 4Açıklaması
swbot privmsg $3 14[4KİŞİLİK TESTİ414] 2 $read(kisilik.txt)
}
if $regex($remove($4,:),/([.!]yemek)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine yemekmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!yemek nick > | return }
if $hget(yemek,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]yemek Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(yemek.txt) 4ısmarladı.2Afiyet olsun..
if !$hget(yemek) { hmake yemek }
.hinc -mu60 yemek $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]günaydın)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine günaydınmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!günaydın nick > | return }
if $hget(günaydın,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]günaydın Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(günaydın.txt) 1Size 4günaydın sözü 1gönderdi.
if !$hget(günaydın) { hmake günaydın }
.hinc -mu60 günaydın $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]iyigeceler)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine iyigecelermi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!iyigeceler nick > | return }
if $hget(iyigeceler,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]iyigeceler Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(iyigeceler.txt) 1Size 4iyigeceler sözü 1gönderildi.
if !$hget(iyigeceler) { hmake iyigeceler }
.hinc -mu60 iyigeceler $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]iltifat)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine iltifatmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!iltifat nick > | return }
if $hget(iltifat,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]iltifat Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(iltifat.txt) 1Size 4iltifat 1gönderdi.
if !$hget(iltifat) { hmake iltifat }
.hinc -mu60 iltifat $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]ikram)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine ikrammi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!ikram nick > | return }
if $hget(ikram,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ikram Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(ikram.txt) 1Size 4ikram etti.2Afiyet olsun..
if !$hget(ikram) { hmake ikram }
.hinc -mu60 ikram $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]kapak)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine kapakmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!kapak nick > | return }
if $hget(kapak,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]kapak Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(kapak.txt) 4kapak sözü 1gönderdi.
if !$hget(kapak) { hmake kapak }
.hinc -mu60 kapak $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]tatlı)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine tatlımi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!tatlı nick > | return }
if $hget(tatlı,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]tatlı Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(tatlı.txt) 1ısmarladı.2Afiyet olsun.
if !$hget(tatlı) { hmake tatlı }
.hinc -mu60 tatlı $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]komik)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine komikmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!komik nick > | return }
if $hget(komik,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]komik Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(komik.txt) 1Size 4komik sözü 1gönderdi.
if !$hget(komik) { hmake komik }
.hinc -mu60 komik $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]ask)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine askmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!ask nick > | return }
if $hget(ask,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ask Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(ask.txt) 1Ask 4gibi sevdigini 1ittiraf etti.
if !$hget(ask) { hmake ask }
.hinc -mu60 ask $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]sevgi)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine sevgimi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!sevgi nick > | return }
if $hget(sevgi,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sevgi Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(sevgi.txt) 1Size 4sevgi sözü gönderdi.
if !$hget(sevgi) { hmake sevgi }
.hinc -mu60 sevgi $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]tükür)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine tükürmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!tükür nick > | return }
if $hget(tükür,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]tükür Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(tükür.txt) 1Size 4tükürdü..
if !$hget(tükür) { hmake tükür }
.hinc -mu60 tükür $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]sigara)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine sigarami gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!sigara nick > | return }
if $hget(sigara,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sigara Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(sigara.txt) 1Size 4sigara 1gönderdi.
if !$hget(sigara) { hmake sigara }
.hinc -mu60 sigara $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]gül)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine gülmü gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!gül nick > | return }
if $hget(gül,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]gül Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(gül.txt) 1Size 4gül 1gönderdi.
if !$hget(gül) { hmake gül }
.hinc -mu60 gül $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]cola)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine colami gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!cola nick > | return }
if $hget(cola,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]cola Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(cola.txt) 1ısmarladı.2Afiyet olsun.
if !$hget(cola) { hmake cola }
.hinc -mu60 cola $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]cay)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine caymi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!cay nick > | return }
if $hget(cay,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]cay Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(cay.txt) 1ısmarladı.2Afiyet olsun.
if !$hget(cay) { hmake cay }
.hinc -mu60 cay $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]sev)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine sevmi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!sev nick > | return }
if $hget(sev,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sev Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(sev.txt) 1Sevdiğini Itiraf Etti..
if !$hget(sev) { hmake sev }
.hinc -mu60 sev $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]kahve)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine kahvemi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!kahve nick > | return }
if $hget(kahve,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]kahve Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(kahve.txt) 1Ismarladı.1Afiyet Olsun..
if !$hget(kahve) { hmake kahve }
.hinc -mu60 kahve $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]ısmarla)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine ısmarlami gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!ısmarla nick > | return }
if $hget(ısmarla,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ısmarla Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(ısmarla.txt) 1ısmarladi.
if !$hget(ısmarla) { hmake ısmarla }
.hinc -mu60 ısmarla $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
if $regex($remove($4,:),/([.!]hed[iİı]yem)/Si) {
if $5 == $_nick($1) { swbot privmsg $3 Kendi kendine hediyemi gönderecen egolu kardes | return }
if !$5 { swbot privmsg $3 NICK belirtmediniz kullanımı örn; < 4!hediyem nick > | return }
if $hget(hediye,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]hediyem Komutunu Kullanabilirsiniz. | return }
swbot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(hediye.txt) 1hediye gönderdi.
if !$hget(hediye) { hmake hediye }
.hinc -mu60 hediye $_nick($1)
swbot privmsg $_bots $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı.
}
}
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 $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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 $_bots :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(sebot),Sunucuya Baglı Durumda,Sunucuya Baglı Degil!) 12]
swbot privmsg $3 :[Security Botu] 12[ .security cık - gir - restart 12] [ Durum: $iif($sock(scbot),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 scbot $_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 scbot | 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 scbot $_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 sebot $_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 sebot | 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 sebot | sockopen sebot $_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,
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $6-
}
if *.incele* iswm $4 {
if (!$5) { .sockwrite -nt $sockname privmsg $3 Lutfen web adresi belirtiniz. Kriterler: .incele -web adresi- | return }
.tarama $remove($5,
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
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
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
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)) - 2Random 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)) - 2Random 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 $_bots :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 $_bots :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 $_bots :[VERSİON] [NİCK: $remove($gettok($1,1,$asc(!)),:) ] [VERSİON CEVABI : $5- ] }
if $4 == :FINGER { swbot privmsg $_bots :[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 :[12Oper Giriş] 4 $remove($4,:) 1 Nicki 4 $token($token($6,1,91),1,93) 1operi ile girdi. 1Yetkisi: 2 $oflags($token($token($token($4-,-1,32),1,40),1,41)) 1Seviye: 2 1
swbot privmsg $_opers 2 Oper 3"Girisi Yapıldı" 2Girilen Nick! 4 ( $remove($4,:) ) 0,6 ( $oflags($token($token($token($4-,-1,32),1,40),1,41)) ) 3,1 3 ( Sunucu) 8 ( Yetkilisi ) 1 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 2 Supass 3"Girisi Yapıldı" 2Girilen Nick! 4( $token($9,1,33) ) 0,6 ( Super Administrators ) 3,1 3 ( SRA ) 8 ( Yetkilerini Kullanıyor ) 1
swbot privmsg $_opers 2 Services Root şifresi 4 $token($9,1,33) 2 tarafından girilmiştir.
}
}
}
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) { swbot 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) {
swbot 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) {
swbot 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) {
swbot 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),$) )
}
}
---------------------------------------------------------------------------------------------------------------
alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,?,G,?,G,h,H,?,I,i,I,?,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,?,S,?,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,?,ı,?,Å?,?,ÄŸ,?,ÃÅ“,ü,Ä?,?,$chr(39),-)
on *:sockopen:city*:{
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
sockwrite -n $sockname host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname $crlf
}
on *:sockread:city*: {
if ($sockerr) { .sockclose $sockname | return }
var %city | sockread %city
if (IP Country: isin %city) && (*Turkey* !iswm $token($htmlfree(%city),2,58) ) {
.inc -u3 %:yd?s?
if (%:yon == on) { swbot gzline $+(*@,$token($sock($sockname).mark,1,191)) +5m Yurt Dısı girisler suan kapalı.. | return }
swbot privmsg $_bots :[ 4Yurt Dısı ] [Nick: $token($sock($sockname).mark,2,191) ] [4IP: $token($sock($sockname).mark,1,191) ] [4Ülke: $token($htmlfree(%city),2,58) ]
if (%:yd?s? >= 7) { .set -u120 %:yon on | swbot privmsg $_opers :Asırı yurt disi girisi 2 dakika'lıgına yurt disi girisler kapatıldı. }
return
}
}
elseif $regex($1-,/IP City:(.+)/Si) {
var %:city $regml(1)
swbot privmsg $_bots :[3Giris Yapan] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:4 Türkiye - sehir:4 $iif($htmlfree(%:city),$htmlfree(%:city),Belirsiz) - Client:4 $token($sock($sockname).mark,3,191)
sockclose $sockname
}
------------------------------------------------------------------------------------------------------------------------------------
on *:sockopen:yer1bul*:{
sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
sockwrite -n $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -n $sockname $crlf
}
on *:sockread:yer1bul*:{
var %:yerbul | sockread -f %:yerbul
if (Hostname: isin %:yerbul) { swbot privmsg $_admin :Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
if (IP Country: isin %:yerbul) { swbot privmsg $_admin :Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Country Code: isin %:yerbul) { swbot privmsg $_admin :Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Continent: isin %:yerbul) { swbot privmsg $_admin :Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP City: isin %:yerbul) { swbot privmsg $_admin :Sehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Latitude: isin %:yerbul) { swbot privmsg $_admin :Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Longitude: isin %:yerbul) { swbot privmsg $_admin :Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (ISP Provider: isin %:yerbul) { swbot privmsg $_admin :ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}
on *:sockopen:nerdens:{
sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
sockwrite -n $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -n $sockname $crlf
}
on *:sockread:nerdens:{
var %:nerdens | sockread -f %:nerdens | tokenize 32 %:nerdens
if $regex($1-,/Hostname:<\/i> <b>(.+)/Si) { swbot privmsg $_admin : | .hadd -ms NerdenS Host $iif($token($regml(1),1,60),$token($regml(1),1,60),Belirsiz) }
if $regex($1-,/IP Country:<\/i> <b>(.+)/Si) { .hadd -ms NerdenS Ülke $iif($token($regml(1),1,60),$token($regml(1),1,60),Belirsiz) }
if (IP City: isin $1-) { .hadd -ms NerdenS Sehir $iif(!$token($htmlfree($1-),2,58),Belirsiz,$token($htmlfree($1-),2,58)) }
if $regex($1-,/ISP Provider:<\/i> <b>(.+)/Si) { swbot privmsg $_admin :Host: $hget(NerdenS,Host) Ülke: $hget(NerdenS,Ülke) Şehir: $hget(NerdenS,Sehir) ISP: $iif($token($regml(1),1,60),$token($regml(1),1,60),Belirsiz) | sockclose $sockname | .hfree -sw NerdenS }
}
15 Mayıs 2019, 11:01
Benzer Konular 
Normal
