Che Nickli Üyeden Alıntı
(Mesaj 6744)
Kod:
alias botnick return System
alias password return brusk
alias oper return Che brusk
alias supass return oktaybaba
alias ident return 06
alias operchan return #opers
alias komut { sockwrite -nt ajan $1- }
alias sunucu return irc.FixSohbet.Net 6667
alias sistem {
if ($1 == on) {
$iif($sock(ajan),echo -a Zaten bot devrede!)
sockopen ajan $sunucu
echo -a Bot Devreye Girmistir.
}
if ($1 == off) {
$iif(!$sock(ajan),echo -a Zaten bot devrede degil.)
sockclose ajan
echo -a Bot Devre dısıdır.
}
}
on *:SOCKOPEN:ajan: {
komut nick Guard $+ $r(0,99)
komut USER $ident " " : $+ $botnick Pro v1 (Yapimci by System)
}
on *:sockread:ajan: {
if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
var %q
sockread %q
tokenize 32 %q
if $1 == error && $2 == :closing {
sistem off
sistem on
}
if ($regex($1,PING)) { komut PONG $2 }
if ($regex($2,001$)) {
komut oper $oper
komut join 0,
komut nick $botnick
komut identify $password
komut join $operchan
komut stats o
.timerlist 0 5 komut list
var %s 1
while (%s <= $ulist(*,globalchan,0)) {
komut join $ulist(*,globalchan,%s)
inc %s
}
komut sethost System.Pro.Security.v1
}
if ($regex($2,243$)) {
%operler = $addtok(%operler,$7,32)
}
if ($regex($2,352$)) {
proxy $6
}
if ($2 == 322) {
if ($5 >= 2) {
komut sajoin $botnick $4
}
if ($5 <= 1) && (!$ulist($4,globalchan,1)) && ($4 !== $operchan) { komut part $4 }
halt
}
if ($regex($2,^PRIVMSG$)) {
var %nick = $gettok($gettok($1,1,33),1,58),%text = $right($4-,-1), %chan = $3,%address $gettok($1,2,64)
tokenize 32 %text
if ($regex($1,/^[.!]voice$/i)) {
if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
if (!$2) { komut mode %chan +v %nick | halt }
komut mode %chan $+(+,$str(v,$numtok($2-,32))) $2-
}
if ($regex($1,/^[.!]devoice$/i)) {
if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
if (!$2) { komut mode %chan -v %nick | halt }
komut mode %chan $+(-,$str(v,$numtok($2-,32))) $2-
}
if ($regex($1,/^[.!]k$/i)) {
if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
if (!$2) { komut privmsg %chan $qt(%nick) Lutfen nick belirtiniz. | halt }
if (!$3) { komut kick %chan $2 (Sebeb Belirtilmedi) | halt }
komut kick %chan $2 $3-
}
if ($regex($1,/^[.!]kb$/i)) {
if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
if (!$2) { komut privmsg %chan $qt(%nick) Lutfen nick belirtiniz. | halt }
if (!$3) { komut mode %chan +b $2 | komut kick %chan $2 (Sebeb Belirtilmedi) | halt }
komut kick %chan $2 $3-
}
if ($regex($1,/^[.!]temizle$/i)) {
if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
var %s 1
while (%s <= 50) {
komut privmsg %chan $chr(2)
inc %s
}
komut primvsg %chan Kanal temizlenmistir!
}
if ($ulist(%chan,globalchan,1)) && (!$ulist(%nick,muafnlist,1)) {
if ($istok($+(:,$chr(41)) :d :s :p :* :\ $+(:,$chr(40)),$1-,32)) && ($numtok($1-,32) == 1) { halt }
if ($kufur($1-)) {
komut mode %chan +b $+(*@,%address)
.timer 1 900 komut mode %chan -b $+(*@,%address)
komut privmsg %chan $qt(%nick) argo kelime kullandiginiz icin 15 dakika banlandiniz.
}
if ($reklam($1-)) {
komut mode %chan +b $+(*@,%address)
.timer 1 900 komut mode %chan -b $+(*@,%address)
komut privmsg %chan $qt(%nick) reklam kelime kullandiginiz icin 15 dakika banlandiniz.
}
if (%tekrar == Acik) {
hinc -mu3 flood $+(%nick,%chan)
if ($hget(flood,$+(%nick,%chan)) == 7) {
komut mode %chan +b $+(*@,%address)
.timer 1 300 komut mode %chan -b $+(*@,%address)
komut privmsg %chan $qt(%nick) tekrar yaptığınız için 5 dakika banlandınız..
hdel flood $+(%nick,%chan)
}
}
if (%buyuk == Acik) {
if ($regex($1-,/([A-ZŞĞİÜÖÇ])/g) >= 30) {
hinc -mu30 buyuk $+(%chan,%nick) 1
if ($hget(buyuk,$+(%chan,%nick)) == 1) { komut privmsg %chan $qt(%nick) Büyük harf kullanmaya devam ederseniz banlancaksiniz.. }
if ($hget(buyuk,$+(%chan,%nick)) == 2) {
komut mode %chan +b $+(*@,%address)
.timer 1 300 komut mode %chan -b $+(*@,%address)
komut privmsg %chan $qt(%nick) Uyarilmaniza rahmen buyuk harf yazmaya devam edip kurallara uymadiginiz icin banlandiniz.
hdel buyuk $+(%chan,%nick)
}
}
}
if (%uzun == acik) {
if $regex($1-,/([[:alpha:]]|ÖÇŞĞÜİı)\1/gi) >= 10 {
hinc -mu30 uzun $+(%chan,%nick) 1
if ($hget(uzun,$+(%chan,%nick)) == 1) { komut privmsg %chan $qt(%nick) Harflari uzatmaya devam ederseniz banlancaksiniz.. }
if ($hget(uzun,$+(%chan,%nick)) == 2) {
komut mode %chan +b $+(*@,%address)
.timer 1 300 komut mode %chan -b $+(*@,%address)
komut privmsg %chan $qt(%nick) Uyarilmaniza rahmen harf uzatmaya devam edip kurallara uymadiginiz icin banlandiniz.
hdel uzun $+(%chan,%nick)
}
}
}
}
if (%chan == $botnick) {
if ($regex($1,/([!.:+]panel$)/i)) {
komut privmsg %nick 1 1[5 Kanal Operatorleri Komut Paneli Open 1]
komut privmsg %nick 1 4*1 birine yada birilerine voice yapmak icin 5!voice nick nick1 nick2
komut privmsg %nick 1 4*1 birine yada birilerine devoice yapmak icin 5!devoice nick nick1 nick2
komut privmsg %nick 1 4*1 birini kanaldan banlamak icin 5!kb nick
komut privmsg %nick 1 4*1 birini kanaldan kicklemek icin 5!k nick
komut privmsg %nick 1 4*1 kanal ekranini temizlemek icin 5!temizle
komut privmsg %nick 1 4*1 benim hakkimda bilgi almak icin 5!sistem
komut privmsg %nick 1[5 Operatorlerin Komut Paneli The End 1]
}
if ($regex($1,/([!.:+]sistem$)/i)) {
komut privmsg %nick 1 Merhaba %nick , Ben Sunucu Korumak Icın Yapilmis Bir Robotum.
komut privmsg %nick 1 -
komut privmsg %nick 1 Version $botnick Pro v1 Socket Sistem
komut privmsg %nick 1 Yapimci by Sinan [" System " 06@]
komut privmsg %nick 1 iLetisim system@hotmail.com
}
}
if (%chan == $operchan) {
tokenize 32 %text
if ($regex($1,/([!.:+]panel$)/i)) {
komut privmsg %chan $qt(%nick) sistem notice ile bildirilmistir.
komut notice %nick 1 1[ Oper Komut Paneli Open 1]
komut notice %nick 1 -
komut notice %nick 1 4*1 proxy korumasi komutlari !proxy on 1*/* !proxy off
komut notice %nick 1 4*1 agresif giris korumasi komutlari !agresif on 1*/* !agresif off
komut notice %nick 1 4*1 yasak ident ekleme komutlari !identekle Nick 1*/* !identsil Nick 1*/* !identlist
komut notice %nick 1 4*1 argo kelime ekleme komutlari !argoekle Kelime 1*/* !argosil Kelime 1*/* !argolist
komut notice %nick 1 4*1 reklam kelime ekleme komutlari !reklamekle Kelime 1*/* !reklamsil Kelime 1*/* !reklamlist
komut notice %nick 1 4*1 badnick korumasi ekleme komutlari !badekle Nick 1*/* !badsil Nick 1*/* !badlist
komut notice %nick 1 4*1 tekrar yazi korumasi komutlari !tekrar on 1*/* !tekrar off
komut notice %nick 1 4*1 buyuk yazi korumasi komutlari !buyuk on 1*/* !buyuk off
komut notice %nick 1 4*1 uzun yazi korumasi komutlari !uzun on 1*/* !uzun off
komut notice %nick 1 4*1 bota global kanal ekleme komutlari !gkekle #kanal 1*/* !gksil #kanal 1*/* !gklist
komut notice %nick 1 4*1 bota muaf nick ekleme komutlari !muafnekle Nick 1*/* !muafnsil Nick 1*/* !muafnlist
komut notice %nick -
komut notice %nick 1[ Oper Komut Paneli The End 1]
}
if ($regex($1,/([!.:+]proxy$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
if ($2 == on) {
if (%proxy == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
.komut privmsg %chan Sistem aktiflestirilmistir.
set %proxy Acik
}
if ($2 == off) {
if (%proxy == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
.komut privmsg %chan Sistem deaktiflestirilmistir.
set %proxy Kapali
}
}
if ($regex($1,/([!.:+]agresif$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
if ($2 == on) {
if (%agresif == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
.komut privmsg %chan Sistem aktiflestirilmistir.
set %agresif Acik
}
if ($2 == off) {
if (%agresif == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
.komut privmsg %chan Sistem deaktiflestirilmistir.
set %agresif Kapali
}
}
if ($regex($1,/([!.:+]tekrar$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
if ($2 == on) {
if (%tekrar == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
.komut privmsg %chan Sistem aktiflestirilmistir.
set %tekrar Acik
}
if ($2 == off) {
if (%tekrar == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
.komut privmsg %chan Sistem deaktiflestirilmistir.
set %tekrar Kapali
}
}
if ($regex($1,/([!.:+]uzun$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
if ($2 == on) {
if (%uzun == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
.komut privmsg %chan Sistem aktiflestirilmistir.
set %uzun Acik
}
if ($2 == off) {
if (%tekrar == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
.komut privmsg %chan Sistem deaktiflestirilmistir.
set %uzun Kapali
}
}
if ($regex($1,/([!.:+]buyuk$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
if ($2 == on) {
if (%buyuk == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
.komut privmsg %chan Sistem aktiflestirilmistir.
set %buyuk Acik
}
if ($2 == off) {
if (%buyuk == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
.komut privmsg %chan Sistem deaktiflestirilmistir.
set %buyuk Kapali
}
}
if ($regex($1,/([!.:+]identekle$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen ident yaziniz. | halt }
if ($ulist($2,ident,1)) { .komut privmsg %chan $2 zaten yasak ident listemde bulunuyor. | halt }
.auser ident $2 | .komut privmsg %chan $2 yasak ident listesine eklendi. | halt
}
if ($regex($1,/([!.:+]identsil$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen ident yaziniz. | halt }
if (!$ulist($2,ident,1)) { komut privmsg %chan $2 zaten yasak ident listemde bulunmuyor. | halt }
.ruser ident $2 | .komut privmsg %chan $2 yasak ident listesinden silindi. | halt
}
if ($regex($1,/([!.:+]identlist$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if ($ulist(*,ident,0) == 0) { komut privmsg %chan $qt(%nick) yasak ident listesi suan bos durumda. | halt }
var %s 1
komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
komut privmsg %nick yasak ident listesi..
while (%s <= $ulist(*,ident,0)) {
komut privmsg %nick $qt(%s) $ulist(*,ident,%s)
inc %s
}
komut privmsg %nick yasak ident listesi sonu..
}
if ($regex($1,/([!.:+]gkekle$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen kanal yaziniz. | halt }
if (#* !iswm $2) { .komut privmsg %chan Lutfen Kanal Yaziniz Ornek : !gkekle #sohbet | halt }
if ($ulist($2,globalchan,1)) { .komut privmsg %chan $2 zaten global kanal listemde bulunuyor. | halt }
.auser globalchan $2 | .komut privmsg %chan $2 global kanal listesine eklendi. | halt
}
if ($regex($1,/([!.:+]gksil$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen kanal yaziniz. | halt }
if (#* !iswm $2) { komut privmsg %chan Lutfen Kanal Yaziniz Ornek : !gksil #sohbet | halt }
if (!$ulist($2,globalchan,1)) { komut privmsg %chan $2 zaten global kanal listemde bulunmuyor. | halt }
.ruser globalchan $2 | .komut privmsg %chan $2 global kanal listesinden silindi. | halt
}
if ($regex($1,/([!.:+]gklist$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if ($ulist(*,globalchan,0) == 0) { komut privmsg %chan $qt(%nick) global chan listesi suan bos durumda. | halt }
var %s 1
komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
komut privmsg %nick global chan listesi..
while (%s <= $ulist(*,globalchan,0)) {
komut privmsg %nick $qt(%s) $ulist(*,globalchan,%s)
inc %s
}
komut privmsg %nick global chan listesi sonu..
}
if ($regex($1,/([!.:+]muafnekle$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
if (#* iswm $2) { .komut privmsg %chan Lutfen nick yaziniz kanal degil. | halt }
if ($ulist($2,muafnlist,1)) { .komut privmsg %chan $2 zaten muaf nick listemde bulunuyor. | halt }
.auser muafnlist $2 | .komut privmsg %chan $2 muaf nick listesine eklendi. | halt
}
if ($regex($1,/([!.:+]muafnsil$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
if (#* iswm $2) { komut privmsg %chan Lutfen nick yaziniz kanal degil. | halt }
if (!$ulist($2,muafnlist,1)) { komut privmsg %chan $2 zaten muaf nick listemde bulunmuyor. | halt }
.ruser muafnlist $2 | .komut privmsg %chan $2 muaf nick istesinden silindi. | halt
}
if ($regex($1,/([!.:+]muafnlist$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if ($ulist(*,muafnlist,0) == 0) { komut privmsg %chan $qt(%nick) muaf nick listesi suan bos durumda. | halt }
var %s 1
komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
komut privmsg %nick muaf nick listesi..
while (%s <= $ulist(*,muafnlist,0)) {
komut privmsg %nick $qt(%s) $ulist(*,muafnlist,%s)
inc %s
}
komut privmsg %nick muaf nick listesi sonu..
}
if ($regex($1,/([!.:+]badekle$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
if ($ulist($2,badnick,1)) { .komut privmsg %chan $2 badnick listemde bulunuyor. | halt }
.auser badnick $2 | .komut privmsg %chan $2 badnick listesine eklendi. | halt
}
if ($regex($1,/([!.:+]badsil$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
if (!$ulist($2,badnick,1)) { komut privmsg %chan $2 badnick listemde bulunmuyor. | halt }
.ruser badnick $2 | .komut privmsg %chan $2 bnick istesinden silindi. | halt
}
if ($regex($1,/([!.:+]badlist$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if ($ulist(*,badnick,0) == 0) { komut privmsg %chan $qt(%nick) badnick listesi suan bos durumda. | halt }
var %s 1
komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
komut privmsg %nick badnick listesi..
while (%s <= $ulist(*,badnick,0)) {
komut privmsg %nick $qt(%s) $ulist(*,badnick,%s)
inc %s
}
komut privmsg %nick badnick listesi sonu..
}
if ($regex($1,/([!.:+]argoekle$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
if ($ulist($2-,argo,1)) { .komut privmsg %chan $2- zaten argo kelime listemde bulunuyor. | halt }
.auser argo $2- | .komut privmsg %chan $2- argo kelime listesine eklendi. | halt
}
if ($regex($1,/([!.:+]argosil)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
if (!$ulist($2-,argo,1)) { komut privmsg %chan $2 zaten argo kelime listemde bulunmuyor. | halt }
.ruser argo $2- | .komut privmsg %chan $2- argo kelime istesinden silindi. | halt
}
if ($regex($1,/([!.:+]argolist$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if ($ulist(*,argo,0) == 0) { komut privmsg %chan $qt(%nick) argo kelime listesi suan bos durumda. | halt }
var %s 1
komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
komut privmsg %nick argo kelime listesi..
while (%s <= $ulist(*,argo,0)) {
komut privmsg %nick $qt(%s) $ulist(*,argo,%s)
inc %s
}
komut privmsg %nick argo kelime listesi sonu..
}
if ($regex($1,/([!.:+]reklamekle$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
if ($ulist($2-,reklam,1)) { .komut privmsg %chan $2 zaten reklam kelime listemde bulunuyor. | halt }
.auser reklam $2- | .komut privmsg %chan $2- reklam kelime listesine eklendi. | halt
}
if ($regex($1,/([!.:+]reklamsil$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
if (!$ulist($2-,reklam,1)) { komut privmsg %chan $2 zaten reklam kelime listemde bulunmuyor. | halt }
.ruser reklam $2- | .komut privmsg %chan $2- reklam kelime istesinden silindi. | halt
}
if ($regex($1,/([!.:+]reklamlist$)/i)) {
if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
if ($ulist(*,reklam,0) == 0) { komut privmsg %chan $qt(%nick) reklam kelime listesi suan bos durumda. | halt }
var %s 1
komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
komut privmsg %nick reklam kelime listesi..
while (%s <= $ulist(*,reklam,0)) {
komut privmsg %nick $qt(%s) $ulist(*,reklam,%s)
inc %s
}
komut privmsg %nick reklam kelime listesi sonu..
}
}
}
if ($regex($2,^NOTICE$)) {
if ($regex($4,VERSION)) {
var %nick $right($gettok($1,1,33),-1)
if $regex($4-,/(v6.31|v6.16|v5.5|X-Chat|v5.71|Litmus|urumle)/i)
komut gzline %nick +1h Botnet girisimi olarak algilandiniz , sistem sebebiyle sunucudan uzaklastirildiniz. $+([,$botnick,])
komut privmsg $operchan [Botnet Version] %nick - $right($4-,-1)
}
if ($regex($9,whois)) {
hinc -mu120 whois $5 1
if ($hget(whois,$5) == 1) {
komut privmsg $5 Merhaba $qt($5) ,Operatorlerin kullanacagi komut paneli icin !panel yaziniz.
komut privmsg $5 Benim hakkimda bilgi almak icin !sistem yaziniz..
}
}
if ($regex($8,^connecting$)) {
var %ip = $gettok($left($right($13,-1),-1),2,64),%ident $gettok($left($right($13,-1),-1),1,64),%nick = $12
komut privmsg %nick $+($chr(1),version)
if ($ulist(%ident,ident,1)) { komut gzline %nick +0 [Sistem/Ident] | halt }
if (%agresif == Acik) {
hinc -mu6 agresif %ip 1
if ($hget(agresif,%ip) == 4) {
komut gzline %nick 1h Agresif baglanti girisimi! [Sistem/Agresif]
hdel agresif %ip
halt
}
}
$iif(%proxy == Acik,komut who +I $+(*,%ip,*))
}
}
if ($regex($2,JOIN)) {
var %nick = $gettok($gettok($1,1,33),1,58),%chan = $right($3,-1),%address $gettok($1,2,64)
if ($regex(%nick,$botnick)) {
komut mode %chan +h $botnick
halt
}
if ($ulist(%nick,badnick,1)) {
komut mode %chan +b %nick
komut kick %chan %nick [Sistem/Badnick] /nick Newnick Open!
}
}
if ($regex($2,MODE)) {
var %chan = $3 | var %nick = $5 | var %mnick = $right($gettok($1,1,33),-1)
if ($regex($4,\+(o|a|q))) && (%mnick !== $botnick) {
komut privmsg %chan $qt(%nick) operatör konumuna geçti. $hasopso($4)
komut notice %nick Yetkili Olduğunuz Kanalda Kullanılabilir Komutları Görmek için Özelime : .komutlar Yazınız
}
if ($regex($4,\+(h))) && (*services* iswm $1) {
komut privmsg %chan $qt(%nick) operatör konumuna geçti. $hasopso($4)
komut notice %nick Yetkili Olduğunuz Kanalda Kullanılabilir Komutları Görmek için Özelime : .komutlar Yazınız
}
}
}
alias hasopso {
if (q isin $1) { return 1. seviye [Mode: Owner] | halt }
if (a isin $1) { return 2. seviye [Mode: Protect] | halt }
if (o isin $1) { return 3. seviye [Mode: Op] | halt }
if (h isin $1) { return 4. seviye [Mode: Halfop] | halt }
}
alias proxy {
if ($1) {
var %xxx $rand(0,999999999999999999999999)
sockopen $+(tor*,%xxx) anonymouse.org 80
sockmark $+(tor*,%xxx) $1
}
}
on *:sockopen:tor*:{
var %s sockwrite -n $sockname
%s GET /cgi-bin/anon-www.cgi/https://www.ircnet.com/cgi-bin/bl.cgi?ip= $+ $sock($sockname).mark HTTP/1.1
%s Host: anonymouse.org
%s $crlf
}
on *:sockread:tor*:{
var %x [ $+ [ $sockname ] ]
sockread %x [ $+ [ $sockname ] ]
if (*listed in tor* iswm %x [ $+ [ $sockname ] ]) {
komut gzline $+(*@,$sock($sockname).mark) +0 [System/Tor Proxy]
halt
}
if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
komut gzline $+(*@,$sock($sockname).mark) +0 [System/Proxy]
sockclose $sockname
}
}
alias kufur {
var %:text = $1-
%:text = $remove(%:text,:,/,.,-,!,",',^,%,+,&,|,\,[,],{,},<,>)
%:text = $replace(%:text,¡,j,¢,c,£,e,¥,y,§,s,©,c,®,r,Æ,a,×,x,$,s,Ø,o,?,b,ß,b,à,a,á,a,â,a,ã,a,ä,a,å,a,æ,a,è,e,é,e,ê,e,ë,e,ì,i,í,i,î,i,ï,i,!,i,?,o,ñ,n,ò,o,ó,o,ô,o,õ,o,ö,o,ø,o,ù,u,ú,u,û,u,ü,u,?,y,?,y,ÿ,y,?,a,?,a,?,a,?,c,?,c,?,c,?,c,?,d,?,d,?,e,?,e,?,e,?,e,?,e,?,g,ğ,g,?,g,?,g,?,h,?,h,?,i,?,i,?,i,?,i,ı,i,?,j,?,n,?,n,?,n,?,n,?,n,?,o,?,o,?,o,?,r,?,r,?,r,?,s,?,s,ş,s,$,s,š,s,?,u,?,u,?,u,?,u,?,u,?,u,?,y,?,z,?,z,?,z,?,o,?,u,|2,r,İ,i)
%:text = $regsubex(%:text,/([[:digit:]])/g,$null)
%:text = $regsubex(%:text,/(.)\1+/g,\1)
if ($level(%text) == argo) { return $true }
else { return $false }
}
alias reklam {
var %:text = $1-
%:text = $remove(%:text,:,/,.,-,!,",',^,%,+,&,|,\,[,],{,},<,>)
%:text = $replace(%:text,¡,j,¢,c,£,e,¥,y,§,s,©,c,®,r,Æ,a,×,x,Ø,o,$,s,?,b,ß,b,à,a,á,a,â,a,ã,a,ä,a,å,a,æ,a,è,e,é,e,ê,e,ë,e,ì,i,í,i,î,i,ï,i,!,i,?,o,ñ,n,ò,o,ó,o,ô,o,õ,o,ö,o,ø,o,ù,u,ú,u,û,u,ü,u,?,y,?,y,ÿ,y,?,a,?,a,?,a,?,c,?,c,?,c,?,c,?,d,?,d,?,e,?,e,?,e,?,e,?,e,?,g,ğ,g,?,g,?,g,?,h,?,h,?,i,?,i,?,i,?,i,ı,i,?,j,?,n,?,n,?,n,?,n,?,n,?,o,?,o,?,o,?,r,?,r,?,r,?,s,?,s,ş,s,$,s,š,s,?,u,?,u,?,u,?,u,?,u,?,u,?,y,?,z,?,z,?,z,?,o,?,u,|2,r,İ,i)
%:text = $regsubex(%:text,/(.)\1+/g,\1)
if ($level(%text) == reklam) { return $true }
else { return $false }
}
|
