IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu reklam ircforumu reklamdamlasu bizimkiler sihirlisohbet sohbetelit


Like Tree2Beğeni(ler)
  • 2 Post By Sessiz
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Ağustos 2016, 19:23   #1
Çevrimdışı
mIRC Socket BNC v2 (Sckbnc v2)




Kod:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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


Kod:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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
immortaL ve By_ATMACA bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
bnc, mirc, sckbnc, socket
IRCForumu.Net - Sponsor Bağlantılar



Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık