| Sessiz | 20 Ağustos 2016 19:23 |
mIRC Socket BNC v2 (Sckbnc v2)
https://i.hizliresim.com/gXk65Q.png
Kod: Kod:
Sunucu ismi ve port
alias sunucu return irc.yuzuktr.net 6667
Sunucu bncserver ismi
alias bncsunucu return bnc.yuzuktr.net
Sunucu port pass varsa doldurun, yoksa bos bırakin.
alias portpass return
BNC oper kanal'i ismi
alias bncchan return #staff
Sunucuya sokman gereken bnc bot nicki
alias bncbotnick return SckBncv2
Botun nick sifresi
alias bncnickpass return 123456
Botun operpassi
alias bncopers return Aeg 123456
Botun master kanali
alias bncoperchan return #staff
Master nick 1 adet tek girilebilir olarak ayarlanmistir.
alias masternick return Set
on *:start: {
bncaktif
if $isfile(bnc.63) { hmake bnc | hload bnc bnc.63 }
}
alias bncaktif {
socklisten bnc-sistem 6667
echo -es Socket BNC v2 (Sckbnc v2) sistemi açık.
if !$sock(bncbot) { sockopen bncbot $sunucu }
}
alias sw $iif($sock($1).status == active,sockwrite -nt $1-)
alias bnckomut sw bncbot privmsg $bncoperchan $1-
on *:SOCKOPEN:bncbot: {
var %randnick $+(User,$rand(0,9999))
sw $sockname PASS $portpass
sw $sockname nick %randnick
sw $sockname USER 63 " " : $+ $+(1[,(SckBncv2),1]) 1by Aeg ™
}
on *:sockread:bncbot: {
if !$sock($sockname) { ajanserv | halt }
var %q
sockread %q
tokenize 32 %q
var %sock $gettok($sockname,2-,11)
if $1 == PING {
sw $sockname PONG $2
}
if $regex($2,366) && !$istok($bncoperchan,$4,32) {
sw $sockname PART $4
}
if $regex($2,001) {
sw $sockname oper $bncopers
sw $sockname join 0,
sw $sockname nick $bncbotnick
sw $sockname identify $bncnickpass
sw $sockname join $bncoperchan
sw $sockname sethost $+($rand(0,99999999),.ScbBnc.v2)
}
if $regex($2,/(privmsg)/i) {
var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $3
tokenize 32 $right($4-,-1)
if ($bncoperchan == %chan) {
if $regex($1,/^[!.]bnckomut/i) {
sw $sockname privmsg %chan 2Merhaba $qt(%nick) , SckBncv2 komut paneli -
sw $sockname privmsg %chan -
sw $sockname privmsg%chan 2Aktif bnc sunucu:6 $bncsunucu
sw $sockname privmsg %chan 2BNC Panel kullanici eklemek icin 6!bncekle Nick PASS
sw $sockname privmsg %chan 2BNC Panel kullanici silmek icin 6!bncsil Nick
sw $sockname privmsg %chan 2BNC Panel kullanici listesini gormek icin 6!bnclist
sw $sockname privmsg %chan -
sw $sockname privmsg %chan 2- SckBnc v2 - panel sonu.
}
if $regex($1,/^[!.]bncekle/i) { bnc ekle $2- }
if $regex($1,/^[!.]bncsil/i) { bnc sil $2- }
if $regex($1,/^[!.]bnclist/i) { bnc list }
}
}
}
alias bnc {
if $1 == ekle {
if !$2 || !$3 { bnckomut 2Lutfen 6.bncekle Nick Sifre 2seklinde komut belirtin belirtin. | return }
if $hget(bnc,$2) { bnckomut 6 $2 2zaten bnc listesinde bulunmakta. | return }
bnckomut 6 $2 2BNC list eklendi. Sifre:6 $3
hadd -m bnc $2 $3
hsave bnc bnc.63
}
if $1 == sil {
if !$2 { bnckomut 2Lutfen 6.bncsil Nick Sifre 2seklinde komut belirtin belirtin. | return }
if !$hget(bnc,$2) { bnckomut 6 $2 2zaten bnc listesinde bulunmamakta. | return }
bnckomut 6 $2 2bnc sisteminden silindi.
hdel -m bnc $2
hsave bnc bnc.63
var %login $+(bnc-,$2), %bnclogin $+(login,%login)
$iif($sock(%login),sockclose %login)
$iif($sock(%bnclogin),sockclose %bnclogin)
}
if $1 == list {
if $hget(bnc,0).data = 0 { bnckomut 2Sistemde kayitli kullanici bulunmamakta | return }
bnckomut -
bnckomut BNC Listesi -
bnckomut -
var %x 1
while $hget(bnc,%x).item {
var %login $+(bnc-,$v1), %bnclogin $+(login,%login)
bnckomut %x -> $v1 Login durum $iif($sock(%login),online,offline) BNC durum: $iif($sock(%bnclogin),online,offline)
inc %x
}
bnckomut -
bnckomut BNC listesi sonu.
}
}
on *:socklisten:bnc-sistem*:{
var %bnc $+(bnc,-,$left($+($md5($ticks),$r(100,999999)),$r(5,30)))
$iif(!$sock(%bnc),sockaccept %:bnc)
}
on *:sockread:bnc-*: {
var %bnc | sockread %bnc | tokenize 32 %bnc
if $regex($1,/^QUIT$/Si) {
$iif($hget($sockname,login),bnckomut [SckBNC] Login Cikis:4 $remove($sockname,bnc-) sistemden cikis yapmistir.)
.hfree -sw $sockname
sockclose $sockname
return
}
if $regex($1,/^nick$/i) {
if $sock($+(login,$sockname)) && $hget($sockname,login) { sockmark $+(login,$sockname) $right($2,-1) }
if !$sock($+(login,$sockname)) && $hget($sockname,login) { return }
}
if $1 == nick { hadd -m $sockname nick $2 | $iif($sock($+(bnc-,$2)),hadd -m $+(loginbnc-,$2) nick $right($2,-1)) }
if $1 == user { hadd -m $sockname ident $2 | hadd -m $sockname fullname $right($5-,-1)
var %komut sw $sockname $+(:,$bncsunucu) NOTICE :
%komut 2Merhaba $hget($sockname,nick) ,4Sckbnc v2 2paneline hos geldiniz.
%komut *
%komut 2Lutfen size verilen kullanıcı adi ve sifrenizi giriniz.
%komut 2Login -> 4/Login Nick PASS
%komut *
%komut 2Giriste herhangi bir sıkıntı yaşarsaniz4 $masternick 2ile irtibata geçiniz.
%komut *
}
if $regex($1,/^Log[ıiİ]n$/i) {
var %komut sw $sockname $+(:,$bncsunucu) NOTICE :
if !$hget(bnc,$2) { %komut 4SISTEM HATA!2 Lutfen girdiginiz login adresinizi kontrol ediniz, Boyle bir kullanici adi bulunmamaktadir. | return }
if !$3 { %komut 4SISTEM HATA!2 Lutfen girdiginiz login adresinin sifresinide giriniz, 4KOMUT:2 /Login Nick PASS | return }
if $sock($+(bnc-,$2)) { %komut 4SISTEM HATA!2 Kullanici adi giris limiti 1 olarak belirtilmistir. 4- $2 suan aktif - | return }
if $hget(bnc,$2) == $3 {
bnckomut [SckBNC] Login Giris:4 $2 sisteme giris yapmistir.
%komut 10Tebrikler, Login oldugunuz, SckBNC Botunuz suan:6 $iif($sock($+(loginbnc-,$2)),Aktif,Pasif)
if $sock($+(loginbnc-,$2)) { var %v1 $+(loginbnc-,$2)
%komut *
%komut 2SckBnc aktif bagli oldugu sunucuya giris yapmaniz icin 6/open
%komut 2SckBNC 'yi deaktif etmek icin 6/kapat
}
if !$sock($+(loginbnc-,$2)) { %komut 2ScbkBNC aktif degil, sunucuya baglanmak icin6 /baglan }
%komut -
hadd -m $+(loginbnc-,$2) nick $hget($sockname,nick)
hadd -m $+(loginbnc-,$2) ident $hget($sockname,ident)
hadd -m $+(loginbnc-,$2) fullname $hget($sockname,fullname)
.hfree -sw $sockname
sockrename $sockname $+(bnc-,$2)
.timer 1 1 hadd -m $sockname login $date
;if $sock(%v1) { sw $sockname $+(:,$hget(%v1,nick)) NICK $+(:,$sock(%v1).mark) }
return
}
}
if $hget($sockname,login) {
var %komut sw $sockname $+(:,$bncsunucu) NOTICE :
if $regex($1,/^ba[gğ]lan$/i) { var %bncnick $remove($sockname,bnc-)
$iif(!$hget(bnconline,%bncnick),hadd -m bnconline %bncnick on)
if $sock($+(login,$sockname)) { %komut 4**2 SckBnc zaten aktif konumda - Bnc'ye gecis yapmak icin 6/open 2komutunu uygulayiniz | return }
botbagla $sockname $hget($+(login,$sockname),nick)
bnckomut :[SckBNC] BNC Giris:4 $remove($sockname,bnc-) bnc sunucuya giris yapmistir.
return
}
if $regex($1,/^kapat$/i) {
var %sockname $+(login,$sockname)
if !$sock(%sockname) {
%komut 4SISTEM HATA!2 Bnc sistem deaktif konumda
%komut *
%komut 2BNC'yi aktif etmek veya baglanmak icin 6/baglan
return
}
%komut 2BNC Sistem deaktif konuma gecmistir.
%komut *
%komut 2 BNC aktif etmek veya sunucuya baglanmak icin 6/baglan2 komutunu uygulayabilirsiniz.
%komut -
hadd -m %sockname nick $sock(%sockname).mark
sockclose %sockname
bnckomut :[SckBNC] BNC Cikis:4 $remove($sockname,bnc-) bnc sunucudan cikis yapmistir.
return
}
if $regex($1,/^open$/i) {
if $sock($+(login,$sockname)) {
var %sockname $+(login,$sockname), %bncnick $remove(%sockname,loginbnc-), %sunucu $sock(%sockname).addr
hadd -m bnconline %bncnick on
sw $sockname $+(:,%sunucu) 001 $hget(%sockname,nick) :SckBnc v2 Network'a hoş geldin $+($sock(%sockname).mark,!,$hget(%sockname,ident),@,$sock(%sockname).ip)
sw $sockname $+(:,%sunucu) 002 $hget(%sockname,nick) :Kullanılan sistem mIRC Socket.
sw $sockname $+(:,%sunucu) 003 $hget(%sockname,nick) :Tarih: $date Saat: $time
sw $sockname $+(:,%sunucu) 004 $hget(%sockname,nick) %sunucu Unreal3.2.10.6 iowghraAsORTVSxUNCWqBDzvdHtGpI lvhopsmntikrRcaqOALQbSeIKVfMCuzNTGjZ
sw $sockname $+(:,%sunucu) 005 $hget(%sockname,nick) CMDS=KNOCK,MAP,DCCALLOW,USERIP,STARTTLS UHNAMES NAMESX SAFELIST HCN MAXCHANNELS=30 CHANLIMIT=#:30 MAXLIST=b:60,e:60,I:60 NICKLEN=30 CHANNELLEN=32 TOPICLEN=307 KICKLEN=307 AWAYLEN=307 :are supported by this server
sw $sockname $+(:,%sunucu) 005 $hget(%sockname,nick) MAXTARGETS=20 WALLCHOPS WATCH=128 WATCHOPTS=A SILENCE=15 MODES=12 CHANTYPES=# PREFIX=(qaohv)~&@%+ CHANMODES=beI,kfL,lj,psmntirRcOAQKVCuzNSMTGZ $+(NETWORK=,$token($sunucu,2-,46)) CASEMAPPING=ascii EXTBAN=~,qjncrRaT ELIST=MNUCT :are supported by this server
sw $sockname $+(:,%sunucu) 005 $hget(%sockname,nick) STATUSMSG=~&@%+ EXCEPTS INVEX :are supported by this server
sw $sockname $+(:,%sunucu) MODE $hget(%sockname,nick) +iwx
sw $sockname $+(:,$hget(%sockname,nick)) NICK $+(:,$sock(%sockname).mark)
sw %sockname PROTOCTL NAMESX
sw %sockname PROTOCTL UHNAMES
var %x 1 | while $token($hget(%sockname,Join),%x,32) {
var %v1 $v1
sw $sockname $+(:,$sock(%sockname).mark,!,$hget(%sockname,ident),@,$sock(%sockname).ip) JOIN $+(:,%v1)
sw %sockname names %v1
inc %x
}
var %x 1, %dosya $+(Logs\,$remove($sockname,bnc-),-sckbnc.txt) | while $read(%dosya,%x) {
var %v1 $v1
sw $sockname $v1
inc %x
}
$iif(!$hget(%sockname,Join),sw $sockname :Hiç bir kanalda bulunmamaktasınız. Kanallara girmek için 4/join #Kanal komutunu uygulayınız.)
.remove %dosya
return
}
}
sw $+(login,$sockname) $1-
}
}
alias botbagla {
sockopen $+(login,$1) $sunucu
}
on *:sockclose:bnc-*: {
var %nick %bncnick $remove(%sockname,bnc-)
if $hget(bnconline,%bncnick) { hdel -m bnconline %bncnick }
}
on *:sockopen:loginbnc-*: {
var %nick $+(SckBnc,$rand(0,99)), %nick $iif($hget($sockname,nick),$v1)
sw $sockname NICK %nick
sw $sockname USER $iif($hget($sockname,ident),$v1,SckBnc) " " : $+ $iif($hget($sockname,fullname),$v1,SckBck v2 - System.)
sockmark $sockname %nick
}
on *:sockread:loginbnc-*: {
var %loginbnc, %bncnick $remove($sockname,loginbnc-), %bnc $+(bnc-,%bncnick) | sockread %loginbnc | tokenize 32 %loginbnc
if ($1 == ping) { sw $sockname PONG $2 }
if $hget(bnconline,%bncnick) { sw $right($sockname,-5) $1- }
if ($2 == NICK) { var %nick $right($token($1,1,33),-1)
if %nick == $sock($sockname).mark { sockmark $sockname $right($3,-1) }
}
if $regex($2,/366/) { $iif(!$istok($hget($sockname,join),$4,32),.hadd -m $sockname join $4 $hget($sockname,join)) }
if $regex($2,/part/i) { var %nick $right($token($1,1,33),-1)
if (%nick == $sock($sockname).mark) { $iif($istok($hget($sockname,Join),$3,32),.hadd -m $sockname join $remtok($hget($sockname,Join),$3,32)) }
}
if $regex($2,/(PRIVMSG)/Si) && !$regex($3,/^#/) && !$sock(%bnc) { .write $+(Logs\,%bncnick,-sckbnc.txt) $1-3 $+([,$date,]) $+([,$time,]) $right($4-,-1) }
}
Code'de düzenlenecek kısımlar: Kod:
Sunucu ismi ve port
alias sunucu return irc.yuzuktr.net 6667
Sunucu bncserver ismi
alias bncsunucu return bnc.yuzuktr.net
Sunucu port pass varsa doldurun, yoksa bos bırakin.
alias portpass return
BNC oper kanal'i ismi
alias bncchan return #staff
Sunucuya sokman gereken bnc bot nicki
alias bncbotnick return SckBncv2
Botun nick sifresi
alias bncnickpass return 123456
Botun operpassi
alias bncopers return Aeg 123456
Botun master kanali
alias bncoperchan return #staff
Master nick 1 adet tek girilebilir olarak ayarlanmistir.
alias masternick return mIRC
Kullanımı:
Ust kısımdaki ayarlari yaptiktan sonra mIRC'i kapatip actiginizda sistem aktif olcaktir.
Sunucu'da kullanmak icin hub bir sunucu aktif etmelisiniz ve VPS'nizin IP'i adresine yonlendirmeniz gerekiyor. Kısaca bu bot'u sadece VPS'de kullanmaniz tavsiye edilir.
mIRC'e entegre etmek icin bu link'i inceleyebilirsiniz -> mIRC Kodlarının mIRC'e Eklenmesi NOT: Botu kullanabilmek icin VPS/VDS sunucu'nuz bulunmasi gerekmektedir. Aksi takdirde bu codu kullanamazsiniz.
mIRC Code denen version: 6.35 |
