| immortaL | 07 Mayıs 2016 21:24 |
mIRC Botlar için Güvenli !nobot Kod Giriş Sistemi
Kod:
CTCP *:version:*:{
ctcpreply $nick VERSION Sock Bot v2.0 Coded ßy nick (" Che ")
echo -a 10Size Version çekildi. 12Çeken Nick: 4 $+ $nick
inc -u10 %version. [ $+ [ $nick ] ]
if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }
if ( %version. [ $+ [ $nick ] ] == 3 ) { kill $nick Özele Flood Yapmayiniz Lütfen! | .msg %operkanali [BILGI][Nick: $nick ][Ozel Version Flood]
}
}
CTCP ^*:finger:*:{
ctcpreply $nick FINGER Sock Bot v2.0 Coded Nick (" iSyan ")
echo -a 10Size Finger çekildi. 12Çeken Nick: 4 $+ $nick
inc -u10 %finger [ $+ [ $nick ] ]
if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }
if ( %finger [ $+ [ $nick ] ] == 3 ) { kill $nick Özele Flood Yapmayiniz Lütfen! | .msg %operkanali [BILGI][Nick: $nick ][Ozel Finger Flood]
}
}
#version on
on *:ctcpreply:* {
if ($read(version.txt,w,$2-)) {
.veban $nick | .msg %operkanali [BILGI][Nick : $nick ][Version : $2- ][Yasak Version Zline]
halt
}
if (version isin $1-) {
.sapart $nick #Guvenlik
.unset %version [ $+ [ $address($nick,2) ] ]
.msg $nick 4Guvenlik Sistemini Gectiniz!1 Hos Sohbetler Dileriz. 4[Yonetim]
.remini version.ini $nick
.timer $+ $nick off
.whois $nick
}
}
on *:join:#: {
if ($chan == #Guvenlik) {
if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global|Network)/i)) { halt }
if ($read(admin.txt,w,$nick)) { halt }
if ($level($nick) == muafnlist) { halt }
if ($nick !== %botnick) {
.ctcp $nick version
.set -u120 %version [ $+ [ $address($nick,2) ] ] $+($rand(0,9),$rand(a,z),$rand(0,9))
.msg $nick 4Merhaba $nick , Suan Bot Olarak Algilaniyorsunuz ;
.msg $nick 5Eger 1 Dakika Içinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklastirilacaksiniz!
.msg $nick 4Lutfen Bot/Reklamci Olmadiginizi Belirtmek Icin1 !nobot %version [ $+ [ $address($nick,2) ] ] 4Komutunu Özelime Yaziniz04!
.userip $nick
}
}
if ($chan == %operkanali) {
if ($nick == %botnick) {
sajoin $me #Guvenlik | .mode #Guvenlik +msi | set %vsifre Acik | topic #Guvenlik 10,1 $server - Sunucu Güvenligi Acisindan 4#Güvenlik 10,1 Kanalina Yönlendirildiniz. 4 %botnick 10,1 Botunun Size Vermis Oldugu Kodu 4( !nobot KOD ) 10,1 Bir Dakika Icerisinde 4 %botnick 10,1 Botun Özeline 4 !nobot KOD 10,1 Seklinde Tanitiniz, Aksi Taktirde Sunucudan Uzaklastirilacaksiniz..' | halt
}
}
}
alias veban { gzline $$1 +3800 Lütfen %web Adresinden sunucumuzun Mirc/Script programini indirip tekrar giris yapiniz! $date $time $+([,%botnick,]) }
raw 340:*: {
.timer $+ $remove($gettok($2-,1,61),*) 1 60 /veban *@ [ $+ [ $gettok($2-,2,64) ] ]
}
on *:quit: {
.timer $+ $readini(version.ini,$nick,ip) off
.remini version.ini $nick
.timer $+ $nick off
.timer $+ $address($nick,2) off
.timer $+ $address($nick,3) off
.close -m $nick
}
raw 378:* {
ipsil $4
}
alias ipsil { if $1 { if !$read(xpips.txt,w,$1-) { halt } | else { write $+(-dl,$readn) xpips.txt } } }
on *:text:*:?: {
if ($1 == !nobot) {
if ( %version [ $+ [ $address($nick,2) ] ] == $null ) {
.msg $nick 4Sizin Guvenlik Sifreniz Bulunmamaktadir!1 #Guvenlik Kanalindan Cikabilirsiniz. 4[Yonetim]
.timer $+ $address($nick,1) off
.unset %version [ $+ [ $address($nick,2) ] ]
.sapart $nick #Guvenlik
halt
}
if ($2 == $null) { .msg $nick 4Kodu Yazmayi Unuttunuz!1 !nobot KODUNUZ Seklinde Yazicaksiniz4! | halt }
if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) {
.msg $nick 4Sifreyi Dogru Girdiniz #Guvenlik Kanalindan Cikarildiniz!1 Hos Sohbetler Dileriz. 4[Yonetim]
.remini version.ini $nick
.timer $+ $nick off
.unset %version [ $+ [ $address($nick,2) ] ]
.sapart $nick #Guvenlik
.whois $nick
.timer $+ $address($nick,2) off
halt
}
else {
.msg $nick 4Yanlis Kod Girdiniz!1 Lütfen Kodu Duzgun Giriniz!
.msg $nick 1Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ]
.msg $nick 1Ozelime Yazmaniz Gereken Komut :4 !nobot %version [ $+ [ $address($nick,2) ] ]
.msg $nick 1Lütfen Kodu Düzgün Giriniz!
.ctcp $nick version
}
}
}
#version end
Sunucuda Saldırılara karşı !nobot Kod Sistemi umarım işinizi Yarar... |
