Kod:
on *:text:*:#takip:{
if ($regex($1,/((!)komut)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
else {
msg $chan Merhaba $nick kullanabileceginiz Komutlar siralaniyor..
msg $chan 4~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~
msg $chan Yasak Ulke Korumasini acip kapatmak icin » 4[ !ulkekoruma [ac/kapat] 4 ]
msg $chan Proxy Users Korumasini acip kapatmak icin » 4[ !proxyuser [ac/kapat] 4 ]
msg $chan Proxy TXT Korumasini acip kapatmak icin » 4[ !proxytxt [ac/kapat] 4 ]
msg $chan Botnet Nick Korumasini acip kapatmak icin » 4[ !botnick [ac/kapat] 4 ]
msg $chan Botnet IDENT Korumasini acip kapatmak icin » 4[ !botident [ac/kapat] 4 ]
msg $chan Botnet FULLNAME Korumasini acip kapatmak icin » 4[ !botfullname [ac/kapat] 4 ]
msg $chan 4~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~
msg $chan Üstde bulunan Korumalarin Durumunu görmek icin » 4[ !durum 4 ]
msg $chan 4~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~
msg $chan Tüm Korumlara MUAF NICK eklemek icin » 4[ !muafnick ekle/sil Nick bakmak icinse !muafnick list 4 ]
msg $chan Tüm Korumlara MUAF IDENT eklemek icin » 4[ !muafident ekle/sil IDENT bakmak icinse !muafident list 4 ]
msg $chan Tüm Korumlara MUAF IP eklemek icin » 4[ !muafip ekle/sil IP bakmak icinse !muafip list 4 ]
msg $chan 4~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~
msg $chan Yasak Ulke Korumasina Ulke eklemek/silmek icinse » 4[ !yasakulke ekle/sil ULKE ISMI bakmak icinse !yasakulke list 4 ]
msg $chan Bir iki büyük Blacklist Sitelerinde taratmak icinse » 4[ !tara IP 4 ]
msg $chan 4~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~
}
}
if ($regex($1,/((!|\.)yasakulke)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
else {
if $2 == ekle {
if !$3 { msg # 1,0 Eksik Komut kullanimi. Kullanim: 4,0!yasakulke ekle ULKE | return }
if $read(yasakulke.txt,w,$3-) { msg # 1,0 Belirtilen ÜLKE Listede ekli | return }
.write yasakulke.txt $3- | msg # 4,0 $3- 1,0Ülkesi Yasakli Listesine eklenmistir.
}
if $2 == sil {
if !$3 { msg # 1,0 Lütfen Ülke belirtiniz. | return }
if !$read(yasakulke.txt,w,$3-) { msg # 1,0 Belirtilen Ülke Yasakli Listesinde bulunmamaktadir. | return }
.write $+(-ds,$3-) yasakulke.txt | msg # 4,0 $3- 1,0 Ülkesi Yasaklilar Listesinden 4SILINMISTIR 1,0.
}
if $2 == list {
if $lines(yasakulke.txt) == 0 { msg # 1,0 Yasakli Ülke Listesi bos durumda. | return }
msg # 4,0 Yasakli Ülkeler Listesi:
msg #
var %:nick = 1 | while %:nick <= $lines(yasakulke.txt) {
msg # 4,0 %:nick $+ -)1,0 $read(yasakulke.txt,%:nick)
inc %:nick
}
msg #
msg # 1,0 Yasakli Ülke Listesi Sonu
}
}
}
if ($regex($1,/((!|\.)ulkekoruma)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
if ($2 == ac) {
if (%ulkekoruma == AKTIF) { .msg # 0,2 (BILGI) 1 Ülke Korumasu zaten Aktif durumda suan! }
else { .msg # 0,2 (BILGI) 1 Ülke Korumasi suan 3AKTIF EDILMISTIR! | set %ulkekoruma AKTIF }
}
if ($2 == Kapat) {
if (%ulkekoruma == DEAKTIF) { .msg # 0,2 (BILGI) 1 Ülke Korumasu zaten Deaktif durumda suan! }
else { msg # 0,2 (BILGI) 1 Ülke Korumasi suan 4DEAKTIF EDILMISTIR! | set %proxy DEAKTIF }
}
}
if ($regex($1,/((!|\.)proxyuser)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
if ($2 == ac) {
if (%proxyuser == AKTIF) { .msg # 0,2 (BILGI) 1 Proxy Users Korumasu zaten Aktif durumda suan! }
else { .msg # 0,2 (BILGI) 1 Proxy Users Korumasi suan 3AKTIF EDILMISTIR! | set %proxyuser AKTIF }
}
if ($2 == Kapat) {
if (%proxyuser == DEAKTIF) { .msg # 0,2 (BILGI) 1 Proxy Users Korumasu zaten Deaktif durumda suan! }
else { msg # 0,2 (BILGI) 1 Proxy Users Korumasi suan 4DEAKTIF EDILMISTIR! | set %proxyuser DEAKTIF }
}
}
if ($regex($1,/((!|\.)proxytxt)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
if ($2 == ac) {
if (%proxytxt == AKTIF) { .msg # 0,2 (BILGI) 1 Proxy TXT Korumasu zaten Aktif durumda suan! }
else { .msg # 0,2 (BILGI) 1 Proxy TXT Korumasi suan 3AKTIF EDILMISTIR! | set %proxytxt AKTIF }
}
if ($2 == Kapat) {
if (%proxytxt == DEAKTIF) { .msg # 0,2 (BILGI) 1 Proxy TXT Korumasu zaten Deaktif durumda suan! }
else { msg # 0,2 (BILGI) 1 Proxy TXT Korumasi suan 4DEAKTIF EDILMISTIR! | set %proxytxt DEAKTIF }
}
}
if ($regex($1,/((!|\.)botnick)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
if ($2 == ac) {
if (%botnetnick == AKTIF) { .msg # 0,2 (BILGI) 1 Botnet NICK Korumasu zaten Aktif durumda suan! }
else { .msg # 0,2 (BILGI) 1 Botnet NICK Korumasi suan 3AKTIF EDILMISTIR! | set %botnetnick AKTIF }
}
if ($2 == Kapat) {
if (%botnetnick == DEAKTIF) { .msg # 0,2 (BILGI) 1 Botnet NICK Korumasu zaten Deaktif durumda suan! }
else { msg # 0,2 (BILGI) 1 Botnet NICK Korumasi suan 4DEAKTIF EDILMISTIR! | set %botnetnick DEAKTIF }
}
}
if ($regex($1,/((!|\.)botident)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
if ($2 == ac) {
if (%botnetident == AKTIF) { .msg # 0,2 (BILGI) 1 Botnet IDENT Korumasu zaten Aktif durumda suan! }
else { .msg # 0,2 (BILGI) 1 Botnet IDENT Korumasi suan 3AKTIF EDILMISTIR! | set %botnetident AKTIF }
}
if ($2 == Kapat) {
if (%botnetident == DEAKTIF) { .msg # 0,2 (BILGI) 1 Botnet IDENT Korumasu zaten Deaktif durumda suan! }
else { msg # 0,2 (BILGI) 1 Botnet IDENT Korumasi suan 4DEAKTIF EDILMISTIR! | set %botnetident DEAKTIF }
}
}
if ($regex($1,/((!|\.)botfullname)/i)) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
if ($2 == ac) {
if (%botnetfullname == AKTIF) { .msg # 0,2 (BILGI) 1 Botnet FULLNAME Korumasu zaten Aktif durumda suan! }
else { .msg # 0,2 (BILGI) 1 Botnet FULLNAME Korumasi suan 3AKTIF EDILMISTIR! | set %botnetfullname AKTIF }
}
if ($2 == Kapat) {
if (%botnetfullname == DEAKTIF) { .msg # 0,2 (BILGI) 1 Botnet FULLNAME Korumasu zaten Deaktif durumda suan! }
else { msg # 0,2 (BILGI) 1 Botnet FULLNAME Korumasi suan 4DEAKTIF EDILMISTIR! | set %botnetfullname DEAKTIF }
}
}
if ($1 == !durum) {
if !$read(yetkilinick.txt,w,$nick) {
msg $chan 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4!
}
else {
.msg # 4,1 $me 0,1 KORUMA DURUMLARI LISTELENIYOR...
.msg #
.msg # 4,1 [0,1 YASAK ULKE KORUMASI] 4,1 ---->> $iif(%ulkekoruma == AKTIF, 3AKTIF , 4DEAKTIF )
.msg # 4,1 [0,1 PROXY USER KORUMASI] 4,1 ---->> $iif(%proxyuser == AKTIF, 3AKTIF , 4DEAKTIF )
.msg # 4,1 [0,1 PROXY TXT KORUMASI] 4,1 ---->> $iif(%proxytxt == AKTIF, 3AKTIF , 4DEAKTIF )
.msg # 4,1 [0,1 BOTNET NICK KORUMASI] 4,1 ---->> 0,1 $iif(%botnetnick == AKTIF, 3AKTIF , 4DEAKTIF )
.msg # 4,1 [0,1 BOTNET IDENT KORUMASI] 4,1 ---->> $iif(%botnetident == AKTIF, 3AKTIF , 4DEAKTIF )
.msg # 4,1 [0,1 BOTNET F-NAME KORUMASI] 4,1 ---->> $iif(%botnetfullname == AKTIF, 3AKTIF , 4DEAKTIF )
.msg #
.msg # 0,1 DURUM SON
}
}
}