Version Giris Sistemi [ Socket Sistem] 383 gün önce yayınlandı
alias opers return Aeg 123456
alias botnick return Version
alias pass return 123456
alias sunucu return irc.hobichat.net 6667
alias operchans return #opers
alias guvenlik return #spams
alias bagla {
sockclose version
sockopen version $sunucu
}
alias kopar {
sockclose version
}
alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}
on *:SOCKOPEN:version: {
sw $sockname nick $+(Guard,$r(0,999))
sw $sockname USER 63 ” ” : $+ $+([,,$botnick,,]) System by Aeg
}
on *:sockread:version: {
if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
var %q
sockread %q
tokenize 32 %q
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 {
sw $sockname oper $opers
sw $sockname join 0,
sw $sockname nick $botnick
sw $sockname identify $pass
sw $sockname join $guvenlik
sw $sockname join $operchans
}
if ($2 == 352) {
sw $sockname sajoin $8 $guvenlik
}
if ($2 == notice) {
if (connecting isin $1-) {
if ($ulist($12,nick,0)) { halt }
var %ips = $gettok($left($right($13,-1),-1),2,64)
.timer 1 5 sw $sockname privmsg $12 $+($chr(1),version)
$+(.timer,*,$12) 1 13 .sw $sockname who $+(*,%ips,*)
}
if (version isin $4) {
var %nick = $right($gettok($1,1,33),-1)
$+(.timer,*,%nick) off
unset %kod [ $+ [ %nick ] ]
sw $sockname sapart %nick $guvenlik
sw $sockname privmsg %nick Version Korumasindan Gectiniz.. Hos Sohbetler Dilerim..
}
}
if ($2 == join) {
var %::address = $gettok(%::fulladdress,2,64),%chan $right($3,-1) ,%nick $right($gettok($1,1,33),-1)
if ($ulist(%nick,nick,0)) { halt }
if (%chan == $guvenlik) {
set -u60 %kod [ $+ [ %nick ] ] $rand(0,999)
sw $sockname privmsg %nick $+($chr(1),version)
$+(.timer,**,%nick) 1 61 .sw $sockname gzline %nick +0 Lutfen http://www.rekornet.com/mirc.exe adresinden mirci indiriniz. $+(|) unset %kod [ $+ [ %nick ] ]
.sw $sockname privmsg %nick 4Merhaba %nick , Suan Bot Olarak Algilaniyorsunuz;
.sw $sockname privmsg %nick 5Eger Bir Dakika Içinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklastirilacaksiniz! 
.sw $sockname privmsg %nick 4Lutfen Bot/Reklamci Olmadiginizi Belirtmek Icin1 !nobot %kod [ $+ [ %nick ] ] 4Komutunu Özelime Yaziniz04! 
}
}
if ($2 == privmsg) {
var %nick $right($gettok($1,1,33),-1),%text $right($4-,-1),%chan $3
tokenize 32 %text
if ($1 == !nobot) && (%chan == $botnick) {
if (%kod [ $+ [ %nick ] ] == $null) { sw $sockname privmsg %nick Sizin Kodunuz Bulunmamaktadir! | halt }
if (!$2) { sw $sockname privmsg %nick Lutfen !nobot KOD Seklinde giris yapiniz! | halt }
if ($2 !== %kod [ $+ [ %nick ] ]) { sw $sockname privmsg %nick Kodu Yanlis Girdiniz! | sw $sockname privmsg %nick Kodunuz: %kod [ $+ [ %nick ] ] | halt }
sw $sockname privmsg %nick Kodu Dogru Girdiniz , Guvenlik Kanalindan Cikartiliyorsunuz , Hos Sohbetler Dilerim..
sw $sockname sapart %nick $guvenlik
unset %kod [ $+ [ %nick ] ]
}
if (%chan == $operchans) {
if $regex($1,/[!.+:]muafnadd/i) { auser nick $2 | sw $sockname privmsg %chan $2 nick eklenmistir. | halt }
if $regex($1,/[!.+:]muafndel/i) { ruser nick $2 | sw $sockname privmsg %chan $2 nick silinmistir. | halt }
}
}
}
on *:sockclose:version: {
unset %kod*
}
Merhabalar .. Botun Ismı Ustunde Olup.. Version Cevap Vermeyenleri Belirtiginiz Kanala Cekip Giris Kodu Sordurtmaya Yarar , bu sistem sayesinde botnet gibi bir cok saldirilara karsi onlem alabilirsiniz , ve kullanicilara saglikli bir sohbet ortami sunabilirsiniz..
Kurulum:
alias opers return Aeg 12345
alias botnick return Version
alias pass return brusk
alias sunucu return irc.rekornet.com 6667
alias operchans return #opers
alias guvenlik return #spams
kısımlarini doldurup , /bagla komutunu mircinizde yazip botu kanala sokabilirsiniz.. /kopar yazarakta botu sunucudan cıkartabilirsiniz..