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


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 05 Haziran 2016, 14:58   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
BNC-Sistem (Socket Teknoloji)


Reklam

Socket BNC-Sistem Ismı uzerinde oldugu gibi hiç bir servis kullanmadan , sadece mirc uzerine BNC ( Kalici Nick ) yapabilirsiniz artık , tabi hiç birşey orjinali gibi olmaz , bende elimden geldigi kadar yapabildigimi yaptim ve böyle birşey cıktı ortaya ins. işinize yarar.

Komut Paneli ;


[07:41] <Aeg> .bnckomut
[07:41] <BNC-System> BNC-System Komut Paneli -
[07:41] <BNC-System> -
[07:41] <BNC-System> BNC-System yetkili eklemek icin *** .yetkiekle Nick ***
[07:41] <BNC-System> BNC-System yetkili silmek icin *** .yetkisil Nick ***
[07:41] <BNC-System> BNC-System yetkili listesi gormek icin *** .yetkilist ***
[07:41] <BNC-System> BNC-System BNC Ekli listeyi gormek icin *** .bnclist ***
[07:41] <BNC-System> BNC-System BNC Ekleme yapabilmek icin BNC-System 'in ozeline *** .bncekle ** yaziniz.
[07:41] <BNC-System> *** BNC Ekleme kismindaki Hostunuz kismini yazarak ozel host aldirtabilirsiniz. ***
[07:41] <BNC-System> BNC-System BNC Silmek icin BNC-System 'in ozeline *** .bncsil ** yaziniz.
[07:41] <BNC-System> -
[07:41] <BNC-System> BNC-System Komut The End ~
[07:41] <BNC-System> Yapimci: *** By Aeg ***

Sifre Girildiginde Log Görüntülenme ;


[07:35] <Set> .girdim 123456
[07:35] <Aeg> Sifreyi Dogru Bildiniz
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] :!tv kanal yazarak yayin akisini ögrenebilmek icin => #yayinakisi
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] :Son dakika haberlerini canli almak icin => #haber
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] : webmaster pagerank/backlink/index/alexa/dmoz degerleri icin => #webmaster
[07:35] <Aeg> [25/12/2010 07:27:28] [Maytap8651] :Rüyana girsin öcüler
[07:35] <Aeg> [25/12/2010 07:27:28] [Maytap8651] :tesekkür
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] :!tv kanal yazarak yayin akisini ögrenebilmek icin => #yayinakisi
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] :Son dakika haberlerini canli almak icin => #haber
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] : webmaster pagerank/backlink/index/alexa/dmoz degerleri icin => #webmaster
[07:35] <Aeg> [25/12/2010 07:33:53] [tarKan27m] :slm cnm isim nedir



Kullanim Icın Gerekenler;


1. Sunucudan Kendi Nickinle Cıkıs Yapmak

2. Sunucuya Girdiginde Bot'un Ozeline .girdim Sifren olarak giriş yapma
3. Windows Sanal PC'iniz varsa ordan sokulma ( Olmasi Gerek Kalici Olmasi İçin )


/baglan <= yazarak bot'u baglarsiniz
/kopart <= yazarak kapatirsiniz.

Ayarlari Yaptikdan Sonra vs. işte Kullanirsaniz Görürsünüz ins. işinize yarar.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bncnick return Aeg alias bbotnick return BNC-System alias bnickpass return 12345 alias bopers return Aeg 123456 alias bsupass return 123456 alias masterchan return #opers alias masternickler return Aeg alias bsunucu return irc.maytap.net 6667 alias sunucuident return 63 alias chanlar return #sohbet,#maytap,#opers,#radyo,#yarisma,#oyun alias bncekle { if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $1 Botun Gircegi Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } if $read(bnc.txt,w,$+(*,$2,*)) { sw $sockname privmsg $1  $2  Zaten Eskiden listede Ekli! | halt } if ($3 == $null) { sw $sockname privmsg $1 Botun Gircegi Nickin Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } if ($4 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } if ($5 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } write bnc.txt $2- sw $sockname privmsg $1 BNC Sistem Ayarlariniz Kayit Edilmistir. sw $sockname privmsg $1 - sw $sockname privmsg $1 [BNC Nick] $2 sw $sockname privmsg $1 [BNC Sifre] $3 sw $sockname privmsg $1 [BNC Opers Rumuz] $4 [BNC Opers Sifre] $5 if ($6) { sw $sockname privmsg $1 [BNC Nick Host] $6 } sw $sockname privmsg $masterchan  $2  BNC Systemi eklendi } alias bncsil { if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $1 Nicki Yazmayi Unuttunuz!, Komut: .bncsil Nick | halt } if ($1 !== $2) { sw $sockname privmsg $1 $1 Herkes Sadece Kendi Nickini Silebilir! | halt } if !$read(bnc.txt,w,$+(*,$2,*)) { sw $sockname privmsg $1  $2  Zaten Eskiden listede Bulunmuyor! | halt } write $+(-dI,$readn) bnc.txt sw $sockname privmsg $1  $2  Silindi. sockclose $+(clon,$chr(11),$2) } alias bnclist { var %s 1 var %ss $lines(bnc.txt) if (%ss == 0) { sw $sockname privmsg $1 BNC Listesi Suanda Bos Durumda! | halt } sw $sockname privmsg $1 Bnc List Listeleniliyor.. while (%s <= $lines(bnc.txt)) { sw $sockname privmsg $1 %s - $remove($gettok($read(bnc.txt,%s),1,32),) inc %s } sw $sockname privmsg $1 Bnc Liste Sonu.. } alias yetkiekle { if (!$istok($masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt } if ($istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmaktadir! | halt } %yetkili = $addtok(%yetkili,$3,32) sw $sockname privmsg $2  $3  eklendi. } alias yetkisil { if (!$istok( $masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt } if (!$istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmamaktadir! | halt } %yetkili = $deltok(%yetkili,$3,32) sw $sockname privmsg $2  $3  Silindi } alias yetkilist { var %toplam = $numtok(%yetkili,32) var %x = 1 if (%toplam == 0) { sw $sockname privmsg $1 BNC Ekeme Yetkisi Olan Nickler Listesi Suan Bos! | halt } sw $sockname privmsg $1 BNC ekleme yetkisi olan nickler.. while %x <= %toplam { sw $sockname privmsg $1 %x - $remove($gettok(%yetkili,%x,32),) inc %x } sw $sockname privmsg $1 BNC ekleme yetkisi nickler listesi sonu.. } alias bncnick { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $gettok(%nick,1,32) } alias bncpass { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $remove($gettok(%nick,2,32),) } alias bnconick { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $remove($gettok(%nick,3,32),) } alias bncopass { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $gettok(%nick,4,32) } alias bnchost { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $gettok(%nick,5,32) } alias sw { if $sock($1).status == active { sockwrite -nt $1- } } alias girdir { sockclose $+(clon,$chr(11),$1) sockopen $+(clon,$chr(11),$1) $bsunucu sw $sockname privmsg $masterchan  $+(BNC-,$1)  Devreye Sokuldu. } alias kontrolgirmis { var %s 1 while (%s <= $lines(bnc.txt)) { kontrolg $gettok($read(bnc.txt,%s),1,32) inc %s } unset %girmis } alias kontrolg { if (!$istok(%girmis,$1,32)) { girdir $1 } } alias logs { var %s = 1 while (%s <= $lines($+(Logs\bnc,$3,.txt).txt)) { sw $2 privmsg $1 $read($+(Logs\bnc,$3,.txt),%s) inc %s } unset %sock $+ $3 $+ * remove $+(Logs\bnc,$3,.txt) sw $2 join 0, sw $2 nick BNC- $+ $3 sw $sockname privmsg $masterchan  $+(BNC-,$3)  Devreden Cikarilmistir. .timer 1 2 sw $sockname os raw svsnick $1 $3 :0 sw $sockname os raw kill BNC- $+ $3 The End BNC- $+ $3  } alias baglan { if ($sockerr) { echo -a Bot Zaten Sunuda | halt } else { sockclose bncbot | sockopen bncbot $bsunucu | echo -a - bnc-Aeg Devreye Girdi! | halt } } alias kopart { if ($sockerr) { echo -a Bot Zaten Sunuda Degil | halt } else { sockclose bncbot | echo -a - bnc-Aeg Devreden Cikarildi! | halt } } on *:sockopen:bncbot:{ if ($sockerr) { echo $color(info) -a Socket botun baglantisi kesildi. | return } sw $sockname NICK User $+ $r(0,99) sw $sockname USER $sunucuident * * :v0.1 (BNC System - Yapimci; by Aeg) } on *:sockread:bncbot: { 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 $bopers sw $sockname join 0, sw $sockname nick $bbotnick sw $sockname identify $bnickpass sw $sockname os su $bsupass sw $sockname join $masterchan } if $1 == error && $2 == :closing { baglan } if ($2 == 352) { if $read(bnc.txt,w,$+($8,*)) { %girmis = $addtok(%girmis,$8,32) } } if ($2 == 315) { kontrolgirmis } if $2 == notice { if (*Client*exiting* iswm $strip($1-)) { if (ghost isin $1-) { halt } if $read(bnc.txt,w,$+($9,*)) { girdir $9 } } } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3 if (%k == $masterchan) { if (.bnckomut isin %m) { sw $sockname privmsg %k BNC-System Komut Paneli - sw $sockname privmsg %k - sw $sockname privmsg %k BNC-System yetkili eklemek icin *** .yetkiekle Nick *** sw $sockname privmsg %k BNC-System yetkili silmek icin *** .yetkisil Nick *** sw $sockname privmsg %k BNC-System yetkili listesi gormek icin *** .yetkilist *** sw $sockname privmsg %k BNC-System BNC Ekli listeyi gormek icin *** .bnclist *** sw $sockname privmsg %k BNC-System BNC Ekleme yapabilmek icin $bbotnick 'in ozeline *** .bncekle ** yaziniz. sw $sockname privmsg %k *** BNC Ekleme kismindaki 4Hostunuz kismini yazarak ozel host aldirtabilirsiniz. *** 4(YENI) sw $sockname privmsg %k BNC-System BNC Silmek icin $bbotnick 'in ozeline *** .bncsil ** yaziniz. sw $sockname privmsg %k - sw $sockname privmsg %k BNC-System Komut The End ~ sw $sockname privmsg %k Yapimci: *** By Aeg *** } if (.yetkiekle isin %m) { yetkiekle %n %k $5 | halt } if (.yetkisil isin %m) { yetkisil %n %k $5 | halt } if (.yetkilist isin %m) { yetkilist %k | halt } if (.bnclist isin %m) { bnclist %k | halt } } if (%k == $bbotnick) { if (.bncekle isin %m) { bncekle %n $5- | halt } if (.bncsil isin %m) { bncsil %n $5 | halt } } } } on *:SOCKOPEN:clon*: { var %sock = $gettok($sockname,2-,11) sw $sockname nick %sock sw $sockname USER $sunucuident " " : $+ $+([,,BNC-,$gettok($sockname,2-,11),,]) System v1 } on *:sockread:clon*: { if !$sock($sockname) { echo -a Baglanti Koptu! | halt } var %q sockread %q tokenize 32 %q var %sock = $gettok($sockname,2-,11) if $1 == PING { sw $sockname PONG $2 } if $2 == 376 { sw $sockname oper $bnconick(%sock) $bncopass(%sock) sw $sockname identify $bncpass(%sock) sw $sockname sethost $bnchost(%sock) sw $sockname join $chanlar } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3 if (%k == %sock) { if (.girdim isin %m) { if ($5 !== $bncpass(%sock)) { sw $sockname privmsg %n Sifreyi Yanlis Girdiniz! halt } else { sw $sockname privmsg %n Sifreyi Dogru Bildiniz logs %n $sockname %sock halt } } if (%k == %sock) { inc -u100 %sock $+ %n if (%sock [ $+ [ %n ] ] == 1) { sw $sockname privmsg %n Merhaba %n , BNC-System Tarafinca Onlineyim , Ozelime Yazdiklariniz Log Tutulup , Online Oldugumda Goruntulenecektir! } write $+(Logs\bnc,%sock,.txt) $+([,,$date,,$chr(32),,$time,,]) $+([,4,%n,,]) $4- } } } }

Socket BNC-Sistem Ismı uzerinde oldugu gibi hiç bir servis kullanmadan , sadece mirc uzerine BNC ( Kalici Nick ) yapabilirsiniz artık , tabi hiç birşey orjinali gibi olmaz , bende elimden geldigi kadar yapabildigimi yaptim ve böyle birşey cıktı ortaya ins. işinize yarar.

Komut Paneli ;


[07:41] <Aeg> .bnckomut
[07:41] <BNC-System> BNC-System Komut Paneli -
[07:41] <BNC-System> -
[07:41] <BNC-System> BNC-System yetkili eklemek icin *** .yetkiekle Nick ***
[07:41] <BNC-System> BNC-System yetkili silmek icin *** .yetkisil Nick ***
[07:41] <BNC-System> BNC-System yetkili listesi gormek icin *** .yetkilist ***
[07:41] <BNC-System> BNC-System BNC Ekli listeyi gormek icin *** .bnclist ***
[07:41] <BNC-System> BNC-System BNC Ekleme yapabilmek icin BNC-System 'in ozeline *** .bncekle ** yaziniz.
[07:41] <BNC-System> *** BNC Ekleme kismindaki Hostunuz kismini yazarak ozel host aldirtabilirsiniz. ***
[07:41] <BNC-System> BNC-System BNC Silmek icin BNC-System 'in ozeline *** .bncsil ** yaziniz.
[07:41] <BNC-System> -
[07:41] <BNC-System> BNC-System Komut The End ~
[07:41] <BNC-System> Yapimci: *** By Aeg ***

Sifre Girildiginde Log Görüntülenme ;


[07:35] <Set> .girdim 123456
[07:35] <Aeg> Sifreyi Dogru Bildiniz
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] :!tv kanal yazarak yayin akisini ögrenebilmek icin => #yayinakisi
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] :Son dakika haberlerini canli almak icin => #haber
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] : webmaster pagerank/backlink/index/alexa/dmoz degerleri icin => #webmaster
[07:35] <Aeg> [25/12/2010 07:27:28] [Maytap8651] :Rüyana girsin öcüler
[07:35] <Aeg> [25/12/2010 07:27:28] [Maytap8651] :tesekkür
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] :!tv kanal yazarak yayin akisini ögrenebilmek icin => #yayinakisi
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] :Son dakika haberlerini canli almak icin => #haber
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] : webmaster pagerank/backlink/index/alexa/dmoz degerleri icin => #webmaster
[07:35] <Aeg> [25/12/2010 07:33:53] [tarKan27m] :slm cnm isim nedir



Kullanim Icın Gerekenler;


1. Sunucudan Kendi Nickinle Cıkıs Yapmak

2. Sunucuya Girdiginde Bot'un Ozeline .girdim Sifren olarak giriş yapma
3. Windows Sanal PC'iniz varsa ordan sokulma ( Olmasi Gerek Kalici Olmasi İçin )


/baglan <= yazarak bot'u baglarsiniz
/kopart <= yazarak kapatirsiniz.

Ayarlari Yaptikdan Sonra vs. işte Kullanirsaniz Görürsünüz ins. işinize yarar.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bncnick return Aeg alias bbotnick return BNC-System alias bnickpass return 12345 alias bopers return Aeg 123456 alias bsupass return 123456 alias masterchan return #opers alias masternickler return Aeg alias bsunucu return irc.maytap.net 6667 alias sunucuident return 63 alias chanlar return #sohbet,#maytap,#opers,#radyo,#yarisma,#oyun alias bncekle { if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $1 Botun Gircegi Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } if $read(bnc.txt,w,$+(*,$2,*)) { sw $sockname privmsg $1  $2  Zaten Eskiden listede Ekli! | halt } if ($3 == $null) { sw $sockname privmsg $1 Botun Gircegi Nickin Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } if ($4 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } if ($5 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt } write bnc.txt $2- sw $sockname privmsg $1 BNC Sistem Ayarlariniz Kayit Edilmistir. sw $sockname privmsg $1 - sw $sockname privmsg $1 [BNC Nick] $2 sw $sockname privmsg $1 [BNC Sifre] $3 sw $sockname privmsg $1 [BNC Opers Rumuz] $4 [BNC Opers Sifre] $5 if ($6) { sw $sockname privmsg $1 [BNC Nick Host] $6 } sw $sockname privmsg $masterchan  $2  BNC Systemi eklendi } alias bncsil { if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $1 Nicki Yazmayi Unuttunuz!, Komut: .bncsil Nick | halt } if ($1 !== $2) { sw $sockname privmsg $1 $1 Herkes Sadece Kendi Nickini Silebilir! | halt } if !$read(bnc.txt,w,$+(*,$2,*)) { sw $sockname privmsg $1  $2  Zaten Eskiden listede Bulunmuyor! | halt } write $+(-dI,$readn) bnc.txt sw $sockname privmsg $1  $2  Silindi. sockclose $+(clon,$chr(11),$2) } alias bnclist { var %s 1 var %ss $lines(bnc.txt) if (%ss == 0) { sw $sockname privmsg $1 BNC Listesi Suanda Bos Durumda! | halt } sw $sockname privmsg $1 Bnc List Listeleniliyor.. while (%s <= $lines(bnc.txt)) { sw $sockname privmsg $1 %s - $remove($gettok($read(bnc.txt,%s),1,32),) inc %s } sw $sockname privmsg $1 Bnc Liste Sonu.. } alias yetkiekle { if (!$istok($masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt } if ($istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmaktadir! | halt } %yetkili = $addtok(%yetkili,$3,32) sw $sockname privmsg $2  $3  eklendi. } alias yetkisil { if (!$istok( $masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt } if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt } if (!$istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmamaktadir! | halt } %yetkili = $deltok(%yetkili,$3,32) sw $sockname privmsg $2  $3  Silindi } alias yetkilist { var %toplam = $numtok(%yetkili,32) var %x = 1 if (%toplam == 0) { sw $sockname privmsg $1 BNC Ekeme Yetkisi Olan Nickler Listesi Suan Bos! | halt } sw $sockname privmsg $1 BNC ekleme yetkisi olan nickler.. while %x <= %toplam { sw $sockname privmsg $1 %x - $remove($gettok(%yetkili,%x,32),) inc %x } sw $sockname privmsg $1 BNC ekleme yetkisi nickler listesi sonu.. } alias bncnick { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $gettok(%nick,1,32) } alias bncpass { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $remove($gettok(%nick,2,32),) } alias bnconick { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $remove($gettok(%nick,3,32),) } alias bncopass { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $gettok(%nick,4,32) } alias bnchost { var %nick = $read(bnc.txt,w,$+(*,$1,*)) return $gettok(%nick,5,32) } alias sw { if $sock($1).status == active { sockwrite -nt $1- } } alias girdir { sockclose $+(clon,$chr(11),$1) sockopen $+(clon,$chr(11),$1) $bsunucu sw $sockname privmsg $masterchan  $+(BNC-,$1)  Devreye Sokuldu. } alias kontrolgirmis { var %s 1 while (%s <= $lines(bnc.txt)) { kontrolg $gettok($read(bnc.txt,%s),1,32) inc %s } unset %girmis } alias kontrolg { if (!$istok(%girmis,$1,32)) { girdir $1 } } alias logs { var %s = 1 while (%s <= $lines($+(Logs\bnc,$3,.txt).txt)) { sw $2 privmsg $1 $read($+(Logs\bnc,$3,.txt),%s) inc %s } unset %sock $+ $3 $+ * remove $+(Logs\bnc,$3,.txt) sw $2 join 0, sw $2 nick BNC- $+ $3 sw $sockname privmsg $masterchan  $+(BNC-,$3)  Devreden Cikarilmistir. .timer 1 2 sw $sockname os raw svsnick $1 $3 :0 sw $sockname os raw kill BNC- $+ $3 The End BNC- $+ $3  } alias baglan { if ($sockerr) { echo -a Bot Zaten Sunuda | halt } else { sockclose bncbot | sockopen bncbot $bsunucu | echo -a - bnc-Aeg Devreye Girdi! | halt } } alias kopart { if ($sockerr) { echo -a Bot Zaten Sunuda Degil | halt } else { sockclose bncbot | echo -a - bnc-Aeg Devreden Cikarildi! | halt } } on *:sockopen:bncbot:{ if ($sockerr) { echo $color(info) -a Socket botun baglantisi kesildi. | return } sw $sockname NICK User $+ $r(0,99) sw $sockname USER $sunucuident * * :v0.1 (BNC System - Yapimci; by Aeg) } on *:sockread:bncbot: { 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 $bopers sw $sockname join 0, sw $sockname nick $bbotnick sw $sockname identify $bnickpass sw $sockname os su $bsupass sw $sockname join $masterchan } if $1 == error && $2 == :closing { baglan } if ($2 == 352) { if $read(bnc.txt,w,$+($8,*)) { %girmis = $addtok(%girmis,$8,32) } } if ($2 == 315) { kontrolgirmis } if $2 == notice { if (*Client*exiting* iswm $strip($1-)) { if (ghost isin $1-) { halt } if $read(bnc.txt,w,$+($9,*)) { girdir $9 } } } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3 if (%k == $masterchan) { if (.bnckomut isin %m) { sw $sockname privmsg %k BNC-System Komut Paneli - sw $sockname privmsg %k - sw $sockname privmsg %k BNC-System yetkili eklemek icin *** .yetkiekle Nick *** sw $sockname privmsg %k BNC-System yetkili silmek icin *** .yetkisil Nick *** sw $sockname privmsg %k BNC-System yetkili listesi gormek icin *** .yetkilist *** sw $sockname privmsg %k BNC-System BNC Ekli listeyi gormek icin *** .bnclist *** sw $sockname privmsg %k BNC-System BNC Ekleme yapabilmek icin $bbotnick 'in ozeline *** .bncekle ** yaziniz. sw $sockname privmsg %k *** BNC Ekleme kismindaki 4Hostunuz kismini yazarak ozel host aldirtabilirsiniz. *** 4(YENI) sw $sockname privmsg %k BNC-System BNC Silmek icin $bbotnick 'in ozeline *** .bncsil ** yaziniz. sw $sockname privmsg %k - sw $sockname privmsg %k BNC-System Komut The End ~ sw $sockname privmsg %k Yapimci: *** By Aeg *** } if (.yetkiekle isin %m) { yetkiekle %n %k $5 | halt } if (.yetkisil isin %m) { yetkisil %n %k $5 | halt } if (.yetkilist isin %m) { yetkilist %k | halt } if (.bnclist isin %m) { bnclist %k | halt } } if (%k == $bbotnick) { if (.bncekle isin %m) { bncekle %n $5- | halt } if (.bncsil isin %m) { bncsil %n $5 | halt } } } } on *:SOCKOPEN:clon*: { var %sock = $gettok($sockname,2-,11) sw $sockname nick %sock sw $sockname USER $sunucuident " " : $+ $+([,,BNC-,$gettok($sockname,2-,11),,]) System v1 } on *:sockread:clon*: { if !$sock($sockname) { echo -a Baglanti Koptu! | halt } var %q sockread %q tokenize 32 %q var %sock = $gettok($sockname,2-,11) if $1 == PING { sw $sockname PONG $2 } if $2 == 376 { sw $sockname oper $bnconick(%sock) $bncopass(%sock) sw $sockname identify $bncpass(%sock) sw $sockname sethost $bnchost(%sock) sw $sockname join $chanlar } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3 if (%k == %sock) { if (.girdim isin %m) { if ($5 !== $bncpass(%sock)) { sw $sockname privmsg %n Sifreyi Yanlis Girdiniz! halt } else { sw $sockname privmsg %n Sifreyi Dogru Bildiniz logs %n $sockname %sock halt } } if (%k == %sock) { inc -u100 %sock $+ %n if (%sock [ $+ [ %n ] ] == 1) { sw $sockname privmsg %n Merhaba %n , BNC-System Tarafinca Onlineyim , Ozelime Yazdiklariniz Log Tutulup , Online Oldugumda Goruntulenecektir! } write $+(Logs\bnc,%sock,.txt) $+([,,$date,,$chr(32),,$time,,]) $+([,4,%n,,]) $4- } } } }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
bncsistem, socket, teknoloji
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

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