mIRC Socket BNC System
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 |
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.sohbetruzgari.net 6667 alias sunucuident return 63 alias chanlar return #Sohbet,#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- } } } } |
ALINTIDIR.