| RahmetLi | 26 Nisan 2023 02:19 |
Version Ve Sifreli Giris [ Mirc bOt ICın ]
Kullanimi ;
Servere Giren USere version Çekiyor Eger Versiona Cevap vermezse 30 saniye içinde #guvenlik kanalina cekiyor , mesela nick deqiştirirler spam kanalina girmemek için sajoin işlemez mesela , ama Sagopa-Mirckanka arkadaşimiz'a teşekür ederim yardimci olduqu için o kodu cözdüm ve nick deqişse bile kod tekrar istiyor
#guvenlik kanalina giren usere tekrar version cekiyor version cevap vermezse eger özeline kod veriyor ;
<daHi> Merhaba yQk`Larda , Suan Bot Olarak Algilaniyorsunuz ;
<daHi> 5 2 Dakika İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz!
<daHi> Bot Olmadiginizi Belirtmek İçin Lütfen !nobot 9q9 Komutunu Özelime Yaziniz.
version cekiş cevabini aldiginde kodu siliyor ve
<daHi> Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
Die cevap Veriyor Eger version halen cevap vermemişseniz kodu ve kodu girmediyseniz 2 dakika içinde sunucudan uzaklastiriyor
eger kodu girerseniz
[20:58:55] <Set> !nobot 2p6
[20:58:56] <daHi> Şifreyi Dogru Girdiniz , Güvenlik Kanalindan Cıkarildiniz , Hoş Sohbetler Dileriz .
[20:58:57] -irc.AsmaCafe.Com- *** You were forced to part #guvenlik
#guvenlik kanalindan cıkartip sohbetine kaldigi yerden devam edebiliyor
kod ; PHP- Kodu:
on *:snotice:*: {
if (connecting isin $1-) {
writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
timer 1 2 ctcp $9 version
timer $+ $readini(version.ini,$9,ip) 1 10 /who $+(*,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64),*)
}
}
raw 352:*:{
sajoin $6 #guvenlik
}
on *:join:#guvenlik: {
if ($level($nick) == muafnlist) { halt }
if $nick == $me { halt }
if ($regex($address($nick,2),/(helper|admin|ircop|services|dj|tech|global|Securty)/i)) { halt }
if !$read(admin.txt,w,$nick) {
ctcp $nick version
set %version [ $+ [ $address($nick,2) ] ] $rand(0,9) $+ $rand(a,z) $+ $rand(0,9)
msg $nick Merhaba $nick , Suan Bot Olarak Algilaniyorsunuz ;
msg $nick 5 2 Dakika İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz!
msg $nick Bot Olmadiginizi Belirtmek İçin Lütfen !nobot %version [ $+ [ $address($nick,2) ] ] Komutunu Özelime Yaziniz.
enable #vis
userip $nick
timer 1 2 /disable #vis
timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $nick ] ]
timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $address($nick,2) ] ]
}
}
alias veban { gzline $$1 +3800 Lütfen %web Adresinden Sunucumuzun Scriptini Indirip Tekrar Giris Yapiniz $date $time $+([,%botnick,]) }
#vis off
raw 340:*: {
timer $+ $remove($gettok($2-,1,61),*) 1 120 /veban *@ [ $+ [ $gettok($2-,2,64) ] ]
}
#vis end
on 1:ctcpreply:* {
if $read(admin.txt,w,$nick) { halt }
if ($1 == version) {
.timer $+ $readini(version.ini,$nick,ip) off
remini version.ini $nick
timer $+ $nick off
unset %version [ $+ [ $address($nick,2) ] ]
unset %version [ $+ [ $nick ] ]
msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
sapart $nick #guvenlik
close -m $nick
}
}
on *:text:!nobot *:?: {
if ( $2 !== %version [ $+ [ $address($nick,2) ] ] ) {
if $nick == $nick {
msg $nick Sizin Guvenlik Sifreniz Bulunmamaktadir , #Guvenlik Kanalindan Cıkabilirsiniz , Hoş Sohbetler Dilerim.
close -m $nick
halt
}
}
if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) {
msg $nick Şifreyi Dogru Girdiniz , Güvenlik Kanalindan Cıkarildiniz , Hoş Sohbetler Dileriz .
timer $+ $nick off
unset %version [ $+ [ $address($nick,2) ] ]
unset %version [ $+ [ $nick ] ]
sapart $nick #guvenlik
close -m $nick
}
else {
msg $nick Yanlis Kod Girdiniz , Lütfen Kodu Duzgun Giriniz.
msg $nick Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ]
msg $nick Lütfen Kodu Düzgün Giriniz.
close -m $nick
}
}
|
