Kod: Kodu kopyalamak için üzerine çift tıklayın!
;########### Anime BOT BETA v1.0 #############
;---------------------------------------------------------------------
;Anime Operator & Admin Community BOT BETA v1.0
;25 Temmuz 2010
; Code by ATLAS
;----------------------------------------------------------------------
;########### Bilgilendirme Sonu #############
on *:start: {
hmake chanflood
hmake golgeyazi
hmake clonetestatlas
hmake badnick
hload badnick badnick.atlas
hmake kufur
hload kufur kufur.atlas
hmake chan
hload chan chan.atlas
hmake botchan
hload botchan botchan.atlas
echo -s 4Anime 12v1.0 Beta: 2 Sohbet platformlarinda görevliler icin tasarlanmis Socket BOT sistemiyim.
echo -s 4Anime 12v1.0 Beta: 2 Sistemimde görevliler icin bircok yaptirimli komutlar mevcuttur.
echo -s 4Anime 12v1.0 Beta: 2 Anime nicki; Bana verilen Sock BOT robot sistemin ismidir.
echo -s 4Anime 12v1.0 Beta: 2 Sitemim Dünyada kullanilan 2 farkli sunucu versionu uzerinde calismaktadir.
echo -s 4Anime 12v1.0 Beta: 2 Server girislerinde raw mesaji ile, server versionu kontrol edilerek sistemim 2 ye ayrilir.
echo -s 4Anime 12v1.0 Beta: 2 Sistemin bolunmesi neticesi ile islemlerim ConferanceRoom ve Unreal version üzerinde calismaktadir.
echo -s 4Anime 12v1.0 Beta: 2 Su anda Beta version olarak hizmet vermekteyim. Socket yapim gelistiricilere aciktir.
echo -s 4Anime 12v1.0 Beta: 2 Destek vermek isterseniz lutfen
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresine onerilerinizi bildiriniz.
echo -s 4Anime 12v1.0 Beta: 2 Sistemimi aktif etmek icin lutfen main.MRC bolumundeki YAPILANDIRMA ayarlarinizi yaparak..
echo -s 4Anime 12v1.0 Beta: 4 /baglan yaziniz.
}
;## Botun Yapılandırma Ayarları #####
alias cfg {
GOTO $1
:server {
;Server ip adresi
return 192.168.2.2
}
:serverport {
;Server port
return 6667
}
:rnick_ {
;Botun alacağı rasgele nick
return $+(user_,$left($md5($ticks),$r(3,8)))
}
:botip {
;Botun girdiği makina ipi
return 192.168.2.2
}
:operschan {
;Opers kanalı
return #myopers
}
:masterchan {
;Master kanal bazı verilerin bildirileceği kanal
return #master
}
:botmaster {
;Bot masterler Çok özel komutlara erişebilecek nick listesi
return Anime AtLaS
}
:muafnick {
;Korumalardan etkilenmeyecek nickler
return Anime
}
:misafirnick {
;Badnicklerin çevrileceği misafir nick.
return Misafir
}
:muafkanal {
;Korumalardan muaf tutulacak kanallar
return #ops #opers #myopers #oper #op #help #helpers #helper #admin #administrator #yardim #dj #radyo #oyun #master
}
:me {
;Botun kendi nicki.
return Anime
}
:supass {
;Server Supass Unreal serverler için
return 063100
}
:servisbot {
;Agent Servis Bot nicki Conferanceroom için
return Majere
}
:nickpass {
;Botun nick şifresi
return 063100
}
:operpass {
;Botun Oper Şifresi
return AtLaS 063100
}
:spass {
;return Botun Server giriş şifresi
return mynet123
}
}
;## Yapılandırma Ayarları Sonu #####
alias giris {
var %cr = 1, %sx = $hget(chan,0).data
if (!%sx) && (!$hget(chan)) {
hmake chan 100
hload chan chan.atlas
}
while (%cr <= %sx) {
dll WhileFix.dll WhileFix .
%dx = $hget(chan,%cr).data
if (%dx != $null) {
if $hget(sversion,server) == croom {
sw $sockname sajoin %dx
sw $sockname LIST
.timer.list 0 180 sw $sockname LIST
}
if $hget(sversion,server) == unreal {
.timer 1 6 sw $sockname sajoin $cfg(me) %dx
sw $sockname LIST
.timer.list 0 180 sw $sockname LIST
}
inc %cr
}
}
}
alias chanfind {
if ($hfind(chan,$1-,1,W).data) { return 1 }
else { return 0 }
}
alias randmi {
if $1- isalpha && $1- islower {
var %i $count($1-,o,i,a,e,u)
if ($len($1-) == 4 && %i == 0) || ($len($1-) == 5 && %i <= 1) || ($len($1-) == 6 && %i <= 1) || ($len($1-) == 7 && %i <= 2) || ($len($1-) > 7 && %i <= 2) {
return $true
}
}
}
alias chanlist {
var %usl = 1, %s = $hget(chan,0).data
if (!%s) && (!$hget(chan) && $3 == $cfg(operschan)) {
hmake chan 100
hload chan chan.atlas
}
sw $sockname privmsg $cfg(operschan) -Sistem Giriş Kanalları [autojoin]:
while (%usl <= %s) {
dll WhileFix.dll WhileFix .
%d = $hget(chan,%usl).data
if (%d != $null) {
sw $sockname privmsg $cfg(operschan) - %usl - %d
}
inc %usl
}
sw $sockname PRIVMSG $cfg(operschan) -Kanallar listesi sonu
}
alias chanlist2 {
var %atlss = 1, %ss = $hget(botchan,0).data
if (!%ss) && (!$hget(botchan) && $3 == $cfg(operschan)) {
hmake botchan 100
hload botchan botchan.atlas
}
sw $sockname privmsg $cfg(operschan) -Sistem Giriş Kanalları [autojoin]:
while (%atlss <= %ss) {
dll WhileFix.dll WhileFix .
%dd = $hget(botchan,%atlss).data
if (%dd != $null) {
sw $sockname privmsg $cfg(operschan) - %atlss - %dd
}
inc %atlss
}
sw $sockname PRIVMSG $cfg(operschan) -Kanallar listesi sonu
}
alias _get {
return $hget(sets,$1)
}
alias _set {
if $left($1,1) == - {
hadd $+(-m,$1) sets $2-
}
else {
hadd -m sets $1-
}
}
alias sw {
if ($sock($1).status == active) {
sockwrite -nt $1-
}
}
alias botfnick {
return $noprefix($remove($gettok($1,1,33),:))
}
alias __op {
if !$hget($1,$2) {
hadd -m $1 $2 i
}
}
alias __deop {
if $hget($1,$2) {
hdel $1 $2
}
}
alias _mask {
return $mask($remove($1-,:),2)
}
alias __isop {
if $hget($1,$2) {
return $true
}
}
alias _kick {
if !$__isop($1,$botfnick($2)) {
sw $sockname MODE $1 +bb $botfnick($2) $_mask($2)
sw $sockname KICK $1 $botfnick($2) : $+ $3-
;.timer 1 300 sw $sockname mode $1 -bb $botfnick($2) $_mask($2)
}
}
alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if $2 == 366 {
%: $4 kanalına girdi
}
}
}
alias noprefix {
return $remove($1,$chr(37),@,+,~,&,.)
}
alias baglan {
if ($sock(bot).status != active) {
sockopen bot $cfg(server) $cfg(serverport)
}
}
on *:sockopen:bot:{
if ($sockerr) {
echo $color(info) -st Socket botun bağlantısı kesildi.
return
}
%amnick = user_ $+ $r(100,9999)
sw $sockname PASS $cfg(spass)
sw $sockname nick %amnick
sw $sockname USER security * * :Anime Operator & Admin Community BOT
}
on *:sockread:bot: {
var %h
sockread %h
tokenize 32 %h
;echo : %h
if ($1 == ping) {
sw $sockname PONG $2
}
if ($sockerr) {
echo $color(info) -st Socket botun bağlantısı kesildi.
return
}
if $2 == 376 || $2 == 422 {
sw $sockname oper $cfg(operpass)
}
if $2 == 328 {
;sw $sockname privmsg $cfg(operschan) $9
%::ip = $9
}
if $2 == 352 {
;sw $sockname privmsg $cfg(masterchan) $6
%hcntrl = $6
}
if ($2 == 004) {
;server version
if (*Unreal?.*.* iswm $2-) {
hadd -m sversion server unreal
echo -s : Unreal 4Yeah ;)
return
}
if (ConferenceRoom isin $2-) {
hadd -m sversion server croom
echo -s : ConferanceRoom 4Yeah ;)
return
}
}
if $2 == 322 {
;echo -s : $1 -
;echo -s ; 4 $7
if $5 isnum {
if ($hget(sversion,server) == unreal) {
if $5 >= 3 {
if i !isincs $6 && s !isincs $6 && O !isincs $6 && A !isincs $6 {
if ($4 !isin $cfg(muafkanal)) {
sw $sockname sajoin $cfg(me) $4
}
}
}
if (s isincs $6 || i isincs $6 || O isincs $6 || A isincs $6 || ($5 <= 2)) && ($4 !isin $cfg(muafkanal) && $chanfind($4) == 0) {
sw $sockname part $4
halt
}
}
if ($hget(sversion,server) == croom) {
if $5 >= 3 {
if i !isincs $7 && s !isincs $7 && A !isincs $7 {
if ($4 !isin $cfg(muafkanal)) {
sw $sockname sajoin $4
}
}
}
if (s isincs $7 || i isincs $7 || A isincs $7 || ($5 <= 2)) && ($4 !isin $cfg(muafkanal) && $chanfind($4) == 0) {
sw $sockname part $4
halt
}
}
}
}
if $2 == 323 {
;echo -s :list oke.
}
if ($2 == 353) {
_set nameschan $5
_set $+(names,$5) $right($6-,-1)
var %i = 1
while (%i <= $numtok($_get($+(names,$5)),32)) {
if (($left($gettok($_get($+(names,$5)),%i,32),1) == @) || ($left($gettok($_get($+(names,$5)),%i,32),1) == &) || ($left($gettok($_get($+(names,$5)),%i,32),1) == ~) || ($left($gettok($_get($+(names,$5)),%i,32),1) == .)) {
__op $_get(nameschan) $noprefix($gettok($_get($+(names,$5)),%i,32))
}
else {
__deop $_get(nameschan) $noprefix($gettok($_get($+(names,$5)),%i,32))
}
inc %i
}
}
if ($2 == 381) {
sw $sockname KILL $cfg(me) reconnecting... $chr(40) $+ $cfg(me) $+ $chr(41)
sw $sockname join 0,
sw $sockname NICK $cfg(me)
if $hget(sversion,server) == croom {
giris
.timer 1 5 sw $sockname umode +c
}
}
if ($2 == 600) {
if (($4 == ChanServ) && ($8- == :logged online)) {
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
}
}
if $2 == 367 {
sw $sockname MODE $4 -b $5
}
if $2 == 478 {
sw $sockname MODE $4 +b
sw $sockname PRIVMSG $4 :Kanal ban listesi doldu. Temizleniyor..
}
if !$window(@sdebug) {
window -k0 @sdebug
aline -p @sdebug $timestamp < $1-
swalias $1-
}
if ($2 == NICK) {
if $right($3,-1) == $cfg(me) {
sw $sockname PRIVMSG NickServ identify $cfg(nickpass)
sw $sockname WATCH +ChanServ
if $hget(sversion,server) == unreal {
giris
sw $sockname mode $cfg(me) +HBpq-h
sw $sockname os su $cfg(supass)
}
if ($botfnick($1) == $cfg(me)) {
sw $sockname KILL $cfg($me) reconnecting... $chr(40) $+ $cfg(me) $+ $chr(41)
.timer 1 1 sw $sockname NICK $cfg(me)
}
}
}
; Korumalar Bolumu
/**
* Korumalar Server Version Cevanına Gore 2 Sistem Olarak Islem Yapmaktadir.
* ConferanceRoom ve Unreal
* if $hget(sversion,server) == unreal (isleme server version unreal ise devam et)
* if $hget(sversion,server) == croom (isleme server version croom ise devam et)
*/
;##PRIVMSG
if :FINGER iswm $4- {
sw $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER esChat v3.9 © 2009 $+ $chr(1)
}
if :VERSION iswm $4- {
sw $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.9 © 2009 $+ $chr(1)
}
;##PRIVMSG
if ($2 == PRIVMSG) {
%::atlas = $right($strip($4-),-1)
%::chan = $remove($3,:)
%::nick = $botfnick($1)
if (*#* !iswm $3) {
if (*k*m*t* iswm $strip($2-)) {
if (!$_get($+(mesaj3,%::nick))) {
_set -u3 $+(mesaj3,%::nick) 1
sw $sockname PRIVMSG %::nick :-
sw $sockname PRIVMSG %::nick :Asagidaki komutlari sadece operator oldugunuz kanalin geneline yazarak kullanabilirsiniz.
sw $sockname PRIVMSG %::nick) :-
sw $sockname PRIVMSG %::nick :4kickban rumuz 2= Belirttiginiz rumuzu kanaldan ban'lar ve atar.
sw $sockname PRIVMSG %::nick :4voice rumuzlar 2= Belirttiginiz rumuzlara kanalda ses (voice) verir.
sw $sockname PRIVMSG %::nick :4devoice rumuzlar 2= Belirttiginiz rumuzlarin kanalda sesini (voice'ini) alir.
sw $sockname PRIVMSG %::nick :-
}
}
else {
if (!$_get($+(mesaj2,%::nick))) {
_set -u3 $+(mesaj2,%::nick) 1
sw $sockname PRIVMSG %::nick :Ben Anime, sohbet platformlarında görevliler icin tasarlanmis Socket BOT sistemiyim.
sw $sockname PRIVMSG %::nick :Sistemimde görevliler icin bircok yaptirimli komutlar mevcuttur.
sw $sockname PRIVMSG %::nick :Görevlerimden birtaneside sunucu guvenligidir.
sw $sockname PRIVMSG %::nick :Anime nicki; Bana verilen Sock BOT robot sistemin ismidir.
sw $sockname PRIVMSG %::nick :Sitemim Dünyada kullanilan 2 farkli server uzerinde calismaktadir.
sw $sockname PRIVMSG %::nick :Server girislerinde raw mesajı ile server versionu kontrol edilerek sistemim 2 ye ayrilir.
sw $sockname PRIVMSG %::nick :Sistemin bolunmesi neticesi ile islemlerim ConferanceRoom ve Unreal serverler üzerinde calismaktadir.
sw $sockname PRIVMSG %::nick :Su anda Beta version olarak hizmet vermekteyim. Socket yapim gelistiricilere aciktir.
sw $sockname PRIVMSG %::nick :Destek vermek isterseniz lutfen
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresine onerilerinizi bildiriniz.
sw $sockname PRIVMSG %::nick :Kullanabileceginiz @ komutlarini gormek icin lutfen komutlar yaziniz.
sw $sockname PRIVMSG %::nick :-
}
}
}
elseif (*#* iswm $3) {
if (($len($4-) > 40) && ($hget(sversion,server) == unreal)) {
if ($3 !isin $cfg(muafkanal)) {
if !$__isop($3,$botfnick($1)) {
hinc -mu1200 multipleflood $+(multiflood,$token($1,2,64)) 1
if ($hget(multipleflood,$+(multiflood,$token($1,2,64))) >= 4) {
sw $sockname gzline %::nick +60m Guvenlik sistemlerimiz tarafinizdan multiple flood yapildiginiz algilamistir.
return
}
}
}
}
if $hfind(kufur,%::atlas,1,W).data {
if ($3 !isin $cfg(muafkanal)) {
_kick %::chan $1 Duzeysiz (kufur kotusoz) iceren kelimeler kullandiginiz icin uzaklastirildiniz. Lutfen kurallara uyunuz. Bilgi icin /motd yaz
return
}
}
if (($len($4-) > 40) && ($hget(sversion,server) == croom)) {
if !$__isop($3,$botfnick($1)) {
if ($3 !isin $cfg(muafkanal)) {
hinc -mu1200 multipleflood $+(multiflood,$token($1,2,64)) 1
if ($hget(multipleflood,$+(multiflood,$token($1,2,64))) >= 4) {
sw $sockname whois %::nick
sw $sockname kline %::ip Guvenlik sistemlerimiz tarafinizdan multiple flood yapildiginiz algilamistir. 30
return
}
}
}
}
if $regex($3-,/()/g) {
if (($3 !isin $cfg(muafkanal)) && ($hget(sversion,server) == unreal)) {
sw $sockname who %::nick | _kick %::chan $1 Genel yazismalarinizda rahatsiz edecek bicimde arka plan kullandiniz, ban sureniz 15dak. Lutfen kurallara uyunuz. Bilgi icin /motd yaziniz.
hinc -mu1500 golgeyazi $+(%::chan,$token($1,2,64)) 1
if ($hget(golgeyazi,$+(%::chan,$token($1,2,64))) == 2) {
sw $sockname gzline %::nick +60m Saldiri/Flood girisimi tespit edildi.
}
}
}
if $regex($3-,/()/g) {
if (($3 !isin $cfg(muafkanal)) && ($hget(sversion,server) == croom)) {
sw $sockname whois %::nick | _kick %::chan $1 Genel yazismalarinizda rahatsiz edecek bicimde arka plan kullandiniz, ban sureniz 15dak. Lutfen kurallara uyunuz. Bilgi icin /motd yaziniz.
hinc -mu1500 golgeyazi $+(%::chan,$token($1,2,64)) 1
if ($hget(golgeyazi,$+(%::chan,$token($1,2,64))) == 2) {
sw $sockname kline %::ip Saldiri/Flood girisimi tespit edildi. 60
}
}
}
if ($regex($3-,/[A-Z]/g) >= 30) {
if ($3 !isin $cfg(muafkanal)) {
_kick %::chan $1 Gereginden fazla buyuk harf kullandiginiz icin uzaklastirildiniz. Lutfen kurallara uyunuz. Bilgi icin /motd yaziniz.
return
}
}
if *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %::atlas || http isin %::atlas || *.net* iswm %::atlas || *.com* iswm %::atlas || *.org* iswm %::atlas || *#* iswm %::atlas {
if ($3 !isin $cfg(muafkanal)) {
_kick %::chan $1 Reklam yaptiginiz tespit edildi. Lutfen Kurallara uyunuz. Bilgi icin /motd yaziniz.
return
}
}
if $regex($3-,/([[:print:]])\1\1/gi) >= 5 {
if ($3 !isin $cfg(muafkanal)) {
var %< = $+(%,uharf.,%::chan,.,%::nick)
inc $(%<,1)
if $(%<,2) == 2 {
_kick %::chan $1 Harfleri gereğinden fazla uzattığınız icin kanaldan uzaklastirildiniz. Lutfen kurallara uyunuz. Bilgi icin /motd yaziniz.
unset $(%<,1)
return
}
else {
sw $sockname privmsg %::chan %::nick Lütfen harfleri uzatmayın! Aksi taktirde kanalda uzaklaştırılacaksınız.
}
}
}
hinc -u2 chanflood $+(flood,$botfnick($2),$1) 1
if ($hget(chanflood,$+(flood,$botfnick($2),$1)) == 4) {
if ($3 !isin $cfg(muafkanal)) {
_kick %::chan $1 Yazismalariniz flood olarak algilandi. Lutfen daha sakin bir bicimde yaziniz.
return
}
}
if ($4- == :.temizle) {
if ($__isop($3,$botfnick($1))) {
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan $chr(3)
sw $sockname PRIVMSG %::chan :Kanal geneli temizlenmistir. %::nick
}
else {
sw $sockname notice %::nick Siz bu komutu kullanmaya yetkili degilsiniz. Lutfen Operator olup tekrar deneyiniz.
}
}
if ((:kickban* iswm $4) && ($5-)) {
if ($__isop($3,$botfnick($1))) {
if $5 !isin $cfg(me) {
sw $sockname mode %::chan +b $5
sw $sockname kick %::chan $5 $iif($6, $6-, Oto ban. Sebep girilmedi.)
}
}
}
if ((:voice* iswm $4) && ($5-)) {
sw $sockname mode %::chan $+(+,$str(v,$numtok($strip($5-),32))) $strip($5-)
}
if ((:devoice* iswm $4) && ($5-)) {
sw $sockname mode %::chan $+(-,$str(v,$numtok($strip($5-),32))) $strip($5-)
}
}
/**
* Opers Admin Komutlari Baslangici - ATLAS
*/
if (($3 == $cfg(operschan)) && ($hget(sversion,server) == croom)) {
if ($4- == :.komutlar) {
sw $sockname privmsg $cfg(operschan) :KULLANABILECEGINIZ KOMUTLAR -ConferanceRoom- :
sw $sockname privmsg $cfg(operschan) :----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.client nick (Belirtilen nicke mIRC Giriş izni verir. Şifresini memo atar.)
sw $sockname privmsg $cfg(operschan) :.declient nick (Belirtilen nickin mIRC girişini siler.)
sw $sockname privmsg $cfg(operschan) :---------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan): [Agent Botları Kanala Sokma ]
sw $sockname privmsg $cfg(operschan) :.joinbot #kanal (Yaratilmis servis botu kanala sokar. ( oto giriş liste eklenir.)
sw $sockname privmsg $cfg(operschan) :.partbot #kanal (Yaratilmis servis botu kanaldan çikartir..)
sw $sockname privmsg $cfg(operschan) :.botlist (Yaratilmis servis botun bulundugu kanallari listeler.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.badekle mask (belirtilen maski badnick listesine ekler.)
sw $sockname privmsg $cfg(operschan) :.badsil mask (belirtilen maski badnick listeden siler.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.kanalekle #kanal (Anime bota server giriste oto kanal girişi ekler.)
sw $sockname privmsg $cfg(operschan) :.kanalsil #kanal (Belirtilen kanalı otomatik giriş listesinden siler.)
sw $sockname privmsg $cfg(operschan) :.kanallar (Anime botun otomatik giriş kanallarını listeler.)
sw $sockname privmsg $cfg(operschan) :.Ozel kanallara sokmaniza gerek yok bot 3 kisiden buyuk kanallara otomatik giriyor.
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.kline nick sebep (Belirtilen nicke kline atar.)
sw $sockname privmsg $cfg(operschan) :.shun nick (Belirtilen nicke shun atar.)
sw $sockname privmsg $cfg(operschan) :.kill nick (Belirtilen nicke kill atar.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.banac nick (Belirtilen nickteki tum Line'lari kaldirir.)
sw $sockname privmsg $cfg(operschan) :.xline (Sunucudaki tum Line'lari kaldirir.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.rehash (Sunucuya rehash çeker.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.sorgula nick (Belirtilen nicki yasak listede arar.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :KOMUTLAR BÖLÜMÜ SONU:
}
if ($4 == :.client) {
if ($botfnick($1) isin $cfg(botmaster)) {
if $5- == $null {
sw $sockname privmsg $cfg(operschan) Lütfen Nick belirtiniz.
return
}
var %ps:_ $left($md5($r(a,z)),$r(8,20))
sw $sockname as client $5 add
sw $sockname as client $5 mask add $5 $+ @*
sw $sockname as client $5 set mode +inex
sw $sockname as client $5 set password %ps:_
sw $sockname as client $5 enable
sw $sockname privmsg $cfg(operschan) $5 nicke $botfnick($1) tarafından mIRC girişi verildi.
sw $sockname privmsg $botfnick($1) $5 nick'ine client (mIRC) girişi verildi Mask: $5 $+ @* Şifre: %ps:_
sw $sockname ms send $5 Client (mIRC) girişi bilgilerin Mask: $5 $+ @* Şifre: %ps:_ Kullanımı : /emailaddr $5 $+ @ /server irc.mylobi.com:6667 %ps:_
return
}
else {
sw $sockname privmsg $cfg(operschan) Siz bu komutu kullanmaya yetkili degilsiniz. (no botmaster)
}
}
if ($4 == :.declient) {
if ($botfnick($1) isin $cfg(botmaster)) {
if $5- == $null {
sw $sockname privmsg $cfg(operschan) Lütfen Nick belirtiniz.
return
}
sw $sockname as client $5 del
sw $sockname privmsg $cfg(operschan) $botfnick($1) tarafından $5 nick'ine ait client (mIRC) girişi silindi.
return
}
else {
sw $sockname privmsg $cfg(operschan) Siz bu komutu kullanmaya yetkili degilsiniz. (no botmaster)
}
}
if ($4 == :.joinbot) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($4 && $left($5, 1) == $chr(35)) {
if ($hfind(botchan,$5,0,W).data) {
sw $sockname privmsg $cfg(operschan) Eklemek istediğiniz $5 kanalını listemde mevcut.
return
}
else {
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m botchan %n $5- | hsave -o botchan botchan.atlas
sw $sockname privmsg $cfg(operschan) $5 kanalina $cfg(servisbot) bir kac saniye içersinde atılacaktır.
sw $sockname as chan $5 add
sw $sockname as chan $5 set bot $cfg(servisbot)
sw $sockname sajoin $5
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .joinbot #kanal seklinde kullanin.
}
}
if ($4 == :.partbot) {
if ($4 && $left($5, 1) == $chr(35)) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($hfind(botchan,$5,0,W).data) {
hdel botchan $hfind(botchan,$5,1,W).data
hsave -o botchan botchan.atlas
hfree -sw botchan | hmake botchan | hload botchan botchan.atlas
sw $sockname privmsg $cfg(operschan) $5 kanalından $cfg(servisbot) Agent BOT'u bir kac saniye içersinde çıkartılacaktır.
sw $sockname as chan $5 del
sw $sockname part $5
return
}
else {
sw $sockname privmsg $cfg(operschan) $5 Agent BOT listesinde bulunamadı.
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .partbot #kanal seklinde kullanin.
}
}
if ($4- == :.botlist) {
chanlist2 $3
}
if ($4 == :.kanalekle) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($4 && $left($5, 1) == $chr(35)) {
if ($hfind(chan,$5,0,W).data) {
sw $sockname privmsg $cfg(operschan) Eklemek istediğiniz $5 kanalını listemde mevcut.
return
}
else {
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m chan %n $5- | hsave -o chan chan.atlas
sw $sockname privmsg $cfg(operschan) $5 kanalı, otomatik giriş yapılan odalar listesine eklendi.
sw $sockname sajoin $5
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .kanalekle #kanal seklinde kullanin.
}
}
if ($4 == :.kanalsil) {
if ($4 && $left($5, 1) == $chr(35)) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($hfind(chan,$5,0,W).data) {
hdel chan $hfind(chan,$5,1,W).data
hsave -o chan chan.atlas
hfree -sw chan | hmake chan | hload chan chan.atlas
sw $sockname privmsg $cfg(operschan) $5 otomatik giriş kanalları listesinden silindi.
sw $sockname part $5
return
}
else {
sw $sockname privmsg $cfg(operschan) $5 otomatik giriş kanalları listesinde bulunamadı.
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .kanalsil #kanal seklinde kullanin.
}
}
if ($4- == :.kanallar) {
chanlist $3
}
if ($4 == :.kill) {
if $5 != $cfg(me) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen Nick Belirtiniz. :Örnek .kill nick sebep.
return
}
sw $sockname kill $5 $iif($6, $6-, Lutfen Kurallara Uyunuz)
sw $sockname privmsg $cfg(operschan) kill komutu $5 nicki uzerinde uygulandi
return
}
else {
sw $sockname privmsg $cfg(operschan) KILL komutu $cfg(me) nicki üzerine uygulanamaz.
}
}
if ($4 == :.kline) {
if $5 != $cfg(me) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen Nick Belirtiniz. :Örnek .kline nick sebep.
return
}
sw $sockname kline $5 $iif($6, $6-, Lutfen Kurallara Uyunuz)
sw $sockname privmsg $cfg(operschan) K:line komutu $5 nicki uzerinde uygulandi
return
}
else {
sw $sockname privmsg $cfg(operschan) KLINE komutu $cfg(me) nicki üzerine uygulanamaz.
}
}
if ($4 == :.zline) {
if $5 != $cfg(me) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen Nick Belirtiniz. :Örnek .zline nick sebep.
return
}
sw $sockname zline $5 $iif($6, $6-, Lutfen Kurallara Uyunuz)
sw $sockname privmsg $cfg(operschan) Z:line komutu $5 nicki uzerinde uygulandi
return
}
else {
sw $sockname privmsg $cfg(operschan) ZLINE komutu $cfg(me) nicki üzerine uygulanamaz.
}
}
if ($4 == :.banac ) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen bir Ip adresi girin. :Örnek .banac 212.101.85.33
return
}
if * $+ $chr(64) $+ * iswm $5 || *.*.*.* !iswm $5 {
sw $sockname privmsg $cfg(operschan) $5 gecersiz IP Formatı. Lütfen IP Adresini Uygun Formatlarda Girin.
return
}
sw $sockname unkline *@ $+ $5
sw $sockname unzline *@ $+ $5
sw $sockname OS AKILL DEL *@ $+ $5
sw $sockname privmsg $cfg(operschan) $5 Uzerindeki Tum X-Line lar Kaldırıldı.
return
}
if ($4- == :.xline) {
sw $sockname rehash
sw $sockname privmsg $cfg(operschan) Sunucudaki tüm X-line lar Kaldırıldı.
}
if ($4- == :.list) {
sw $sockname LIST
}
if ($4- == :.rehash) {
sw $sockname rehash
sw $sockname privmsg $cfg(operschan) Rehash Komutu Başarıyla Uygulandı.
}
if ($4 == :.badekle) {
if ($botfnick($1) isin $cfg(botmaster)) {
if $5 != $cfg(me) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen bir nick mask belirtin. Ornek: .badekle atlas*!*@*
return
}
if ($hfind(badnick,$5,0,W).data) {
sw $sockname privmsg $cfg(operschan) Eklemek istediğiniz $5 maskı listemde mevcut.
return
}
if *!*@* !iswm $5 {
sw $sockname privmsg $cfg(operschan) $5 gecersiz mask formatı
return
}
var %rn = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m badnick %rn $5- | hsave -o badnick badnick.atlas
sw $sockname privmsg $cfg(operschan) $5 maskı, badnick listesine eklendi.
return
}
}
else {
sw $sockname privmsg $cfg(operschan) $botfnick($1) Siz bu komutu kullanmaya yetkili degilsiniz (nobotmaster)
}
}
if ($4 == :.badsil) {
if ($botfnick($1) isin $cfg(botmaster)) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lutfen bir nick mask belirtin. Ornek: .badsil atlas*!*@*
return
}
if ($hfind(badnick,$5,0,W).data) {
hdel badnick $hfind(badnick,$5,1,W).data
hsave -o badnick badnick.atlas
hfree -sw badnick | hmake badnick | hload badnick badnick.atlas
sw $sockname privmsg $cfg(operschan) $5 badnick listesinden silindi.
return
}
else {
sw $sockname privmsg $cfg(operschan) $5 badnick listesinde bulunamadi.
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) $botfnick($1) Siz bu komutu kullanmaya yetkili degilsiniz (nobotmaster)
}
}
if ($4 == :.sorgula) {
set %sorgu $5
if $5- == $null {
sw $sockname privmsg $cfg(operschan) Bir hata meydana geldi, sorgulanacak rumuzu belirtmediniz.
return
}
sw $sockname os sqline list
}
}
if (($3 == $cfg(operschan)) && ($hget(sversion,server) == unreal)) {
if $4- == :.komutlar {
sw $sockname privmsg $cfg(operschan) :KULLANABILECEGINIZ KOMUTLAR -Unreal- :
sw $sockname privmsg $cfg(operschan) :----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.sajoin nick #kanal (belirtilen nicki belirtilen kanala join yapar.)
sw $sockname privmsg $cfg(operschan) :.sapart nick #kanal (belirtilen nicki belirtilen kanaldan part yapar.)
sw $sockname privmsg $cfg(operschan) :---------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.badekle mask (belirtilen maski badnick listesine ekler.)
sw $sockname privmsg $cfg(operschan) :.badsil mask (belirtilen maski badnick listeden siler.)
sw $sockname privmsg $cfg(operschan) :---------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.kanalekle #kanal (Anime bota server giriste oto kanal girişi ekler.)
sw $sockname privmsg $cfg(operschan) :.kanalsil #kanal (Belirtilen kanalı otomatik giriş listesinden siler.)
sw $sockname privmsg $cfg(operschan) :.kanallar (Anime botun otomatik giriş kanallarını listeler.)
sw $sockname privmsg $cfg(operschan) :.Ozel kanallara sokmaniza gerek yok bot 3 kisiden buyuk kanallara otomatik giriyor.
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.spamekle kelime (belirtilen kelimeyi spamfilter ekler.)
sw $sockname privmsg $cfg(operschan) :.spamsil kelime (belirtilen kelimeyi spamfilterden siler.)
sw $sockname privmsg $cfg(operschan) :.ekleblock kelime (belirtilen kelimeyi block liste ekler.)
sw $sockname privmsg $cfg(operschan) :.silblock kelime (belirtilen kelimeyi block listesinden siler.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.nsuspend +7d nick sebep (belirtilen nicki 7 gun suspende alir.)
sw $sockname privmsg $cfg(operschan) :.nsuspendsil nick (belirtilen nickin suspend 'ni kaldırır.)
sw $sockname privmsg $cfg(operschan) :.sendpass nick (belirtilen nickin sifresini mail adresine yollar.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.gzline nick sebep (belirtilen nicke gzline atar.)
sw $sockname privmsg $cfg(operschan) :.shun nick (belirtilen nicke shun atar.)
sw $sockname privmsg $cfg(operschan) :.kill nick (belirtilen nicke kill atar.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.banac IP (IP adresindeki tum Line'lari kaldirir. .banac 212.101.85.33
sw $sockname privmsg $cfg(operschan) :.xline (Sunucudaki tum Line'lari kaldirir.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :.rehash (Sunucuya rehash çeker.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :Private özelliği olan kanal ve nicklere ircop yetkisine sahip görevliler
sw $sockname privmsg $cfg(operschan) :Infodaki özellikleri görememektedir. Bu yüzden kodlanmıştır.
sw $sockname privmsg $cfg(operschan) :.ninfo nick (Belirtilen nicke info çeker.)
sw $sockname privmsg $cfg(operschan) :.cinfo #kanal (Belirtilen kanala info çeker.)
sw $sockname privmsg $cfg(operschan) :-----------------------------------------------------------------------------------
sw $sockname privmsg $cfg(operschan) :KOMUTLAR BÖLÜMÜ SONU:
}
if ($4 == :.sapart) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Nick belirtiniz.
return
}
if ($6 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($5 && $left($6, 1) == $chr(35)) {
sw $sockname $chr(115) $+ $chr(97) $+ $chr(112) $+ $chr(97) $+ $chr(114) $+ $chr(116) $5 $6
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .sapart nick #kanal seklinde kullanin.
return
}
}
if ($4 == :.kanalekle) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($4 && $left($5, 1) == $chr(35)) {
if ($hfind(chan,$5,0,W).data) {
sw $sockname privmsg $cfg(operschan) Eklemek istediğiniz $5 kanalını listemde mevcut.
return
}
else {
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m chan %n $5- | hsave -o chan chan.atlas
sw $sockname privmsg $cfg(operschan) $5 kanalı, otomatik giriş yapılan odalar listesine eklendi.
sw $sockname sajoin $cfg(me) $5
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .kanalekle #kanal seklinde kullanin.
}
}
if ($4 == :.kanalsil) {
if ($4 && $left($5, 1) == $chr(35)) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($hfind(chan,$5,0,W).data) {
hdel chan $hfind(chan,$5,1,W).data
hsave -o chan chan.atlas
hfree -sw chan | hmake chan | hload chan chan.atlas
sw $sockname privmsg $cfg(operschan) $5 otomatik giriş kanalları listesinden silindi.
sw $sockname part $5
return
}
else {
sw $sockname privmsg $cfg(operschan) $5 otomatik giriş kanalları listesinde bulunamadı.
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .kanalsil #kanal seklinde kullanin.
}
}
if ($4- == :.kanallar) {
chanlist $3
}
if ($4 == :.spamekle) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen spam eklenecek kelimeyi giriniz.
return
}
sw $sockname spamfilter add cpNn gzline - Sunucumuzda_kullanilmasi_yasak_olan_kelime(ler)_kullandiginiz_tespit_edilmistir. $chr(43) $+ $5 $+ $chr(43)
sw $sockname privmsg $cfg(operschan) $5 kelimesi spamfilter olarak eklendi.
sw $sockname privmsg $cfg(operschan) Eklediğiniz kelimeyi silmek için .spamsil $5 yazınız.
return
}
if ($4 == :.spamsil) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen spam silinecek kelimeyi giriniz.
return
}
sw $sockname spamfilter del cpNn gzline - Sunucumuzda_kullanilmasi_yasak_olan_kelime(ler)_kullandiginiz_tespit_edilmistir. $chr(43) $+ $5 $+ $chr(43)
sw $sockname privmsg $cfg(operschan) $5 kelimesi spamfilterden silindi.
return
}
if ($4 == :.ekleblock) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen block edilecek kelimeyi giriniz.
return
}
sw $sockname spamfilter add cpNn block - Sunucumuzda_kullanilmasi_yasak_olan_kelime(ler)_kullandiginiz_tespit_edilmistir. $chr(43) $+ $5 $+ $chr(43)
sw $sockname privmsg $cfg(operschan) $5 kelimesi spamfilter block olarak eklendi.
sw $sockname privmsg $cfg(operschan) Eklediğiniz kelimeyi silmek için .silblock $5 yazınız.
return
}
if ($4 == :.silblock) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen listeden silinecek kelimeyi giriniz.
return
}
sw $sockname spamfilter del cpNn block - Sunucumuzda_kullanilmasi_yasak_olan_kelime(ler)_kullandiginiz_tespit_edilmistir. $chr(43) $+ $5 $+ $chr(43)
sw $sockname privmsg $cfg(operschan) $5 kelimesi block listeden silindi.
return
}
if ($4 == :.nsuspend) {
if ($5 && $left($5-, 1) == +) && $left($5, 2) isnum 0-9) {
sw $sockname ns suspend $5 $6 $7- $chr(39) $+ $botfnick($1) $+ $chr(39) tarafından.
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen komutu .nsuspend [+sure] nick sebep olarak girin
}
}
if ($4 == :.nsuspendsil) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen suspend edilecek [Rumuz] nick giriniz.
return
}
sw $sockname ns unsuspend $5
return
}
if ($4 == :.ninfo) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lutfen nick belitiniz.
return
}
sw $sockname ns info $5 all
sw $sockname who $5
return
}
if ($4 == :.cinfo) {
if ($4 && $left($5, 1) == $chr(35)) {
sw $sockname cs info $5 all
return
}
else {
sw $sockname privmsg $cfg(operschan) Kanal Belirteci (#) yada İsmi Girmediniz. .cinfo #kanal olarak giriniz.
}
}
if (*.sendpass iswm $4 && $5) {
sw $sockname nickserv sendpass $5
sw $sockname privmsg $cfg(operschan) $5 nickinin sifresi kayitli email adresine gonderildi.
return
}
if ($4 == :.shun) {
if $5 != $cfg(me) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Shun Atılacak Nicki Giriniz.
return
}
sw $sockname shun $5 Sus!
sw $sockname privmsg $cfg(operschan) Shun komutu $5 nicki üzerinde uygulandi.
return
}
else {
sw $sockname privmsg $cfg(operschan) SHUN komutu $cfg(me) nicki üzerine uygulanamaz.
}
}
if ($4 == :.gzline) {
if $5 != $cfg(me) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen Nick Belirtiniz. :Örnek .gzline nick sebep.
return
}
echo -s : sw sockname gzline $5 1h $iif($6, $6-, Lutfen Kurallara Uyunuz)
sw $sockname privmsg $cfg(operschan) Z:line komutu $5 nicki uzerinde uygulandi
return
}
else {
sw $sockname privmsg $cfg(operschan) GZLINE komutu $cfg(me) nicki üzerine uygulanamaz.
}
}
if ($4 == :.banac ) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen bir Ip adresi girin. :Örnek .banac 212.101.85.33
return
}
if * $+ $chr(64) $+ * iswm $5 || *.*.*.* !iswm $5 {
sw $sockname privmsg $cfg(operschan) $5 gecersiz IP Formatı. Lütfen IP Adresini Uygun Formatlarda Girin.
return
}
sw $sockname GZLINE -*@ $+ $5
sw $sockname GLINE -*@ $+ $5
sw $sockname ZLINE -*@ $+ $5
sw $sockname KLINE -*@ $+ $5
sw $sockname SHUN -*@ $+ $5
sw $sockname OS AKILL DEL *@ $+ $5
sw $sockname privmsg $cfg(operschan) $5 Uzerindeki Tum X-Line lar Kaldırıldı.
return
}
if ($4- == :.xline) {
sw $sockname rmtkl * *
sw $sockname privmsg $cfg(operschan) Sunucudaki tüm X-line lar Kaldırıldı.
}
if ($4- == :.rehash) {
sw $sockname rehash
sw $sockname privmsg $cfg(operschan) Rehash Komutu Başarıyla Uygulandı.
}
if ($4- == :.list) {
sw $sockname LIST
}
if ($4 == :.kill) {
if $5 != $cfg(me) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen Killenecek Rumuzu Belirtiniz.
return
}
sw $sockname kill $5 Lutfen sohbet kurallara uyunuz. Bilgi için /motd yazınız.
sw $sockname privmsg $cfg(operschan) kill komutu $5 nicki üzerinde uygulandi.
return
}
else {
sw $sockname privmsg $cfg(operschan) SHUN komutu $cfg(me) nicki üzerine uygulanamaz.
}
}
if ($4 == :.badekle) {
if ($botfnick($1) isin $cfg(botmaster)) {
if $5 != $cfg(me) {
if $5 == $null {
sw $sockname privmsg $cfg(operschan) Lütfen bir nick mask belirtin. Ornek: .badekle atlas*!*@*
return
}
if ($hfind(badnick,$5,0,W).data) {
sw $sockname privmsg $cfg(operschan) Eklemek istediğiniz $5 maskı listemde mevcut.
return
}
if *!*@* !iswm $5 {
sw $sockname privmsg $cfg(operschan) $5 gecersiz mask formatı
return
}
var %rn = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m badnick %rn $5- | hsave -o badnick badnick.atlas
sw $sockname privmsg $cfg(operschan) $5 maskı, badnick listesine eklendi.
return
}
}
else {
sw $sockname privmsg $cfg(operschan) $botfnick($1) Siz bu komutu kullanmaya yetkili degilsiniz (nobotmaster)
}
}
if ($4 == :.badsil) {
if ($botfnick($1) isin $cfg(botmaster)) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lutfen bir nick mask belirtin. Ornek: .badsil atlas*!*@*
return
}
if ($hfind(badnick,$5,0,W).data) {
hdel badnick $hfind(badnick,$5,1,W).data
hsave -o badnick badnick.atlas
hfree -sw badnick | hmake badnick | hload badnick badnick.atlas
sw $sockname privmsg $cfg(operschan) $5 badnick listesinden silindi.
return
}
else {
sw $sockname privmsg $cfg(operschan) $5 badnick listesinde bulunamadi.
return
}
return
}
else {
sw $sockname privmsg $cfg(operschan) $botfnick($1) Siz bu komutu kullanmaya yetkili degilsiniz (nobotmaster)
}
}
if ($4 == :.sajoin) {
if ($5 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Nick belirtiniz.
return
}
if ($6 == $null) {
sw $sockname privmsg $cfg(operschan) Lütfen Kanal belirtiniz.
return
}
if ($5 && $left($6, 1) == $chr(35)) {
sw $sockname $chr(115) $+ $chr(97) $+ $chr(106) $+ $chr(111) $+ $chr(105) $+ $chr(110) $5 $6
return
}
else {
sw $sockname privmsg $cfg(operschan) Lütfen .sapart nick #kanal seklinde kullanin.
return
}
}
}
}
;Opers Admin Komutlari Sonu
if (($2 == NOTICE) && ($3 == $cfg(me))) {
%cnfip = $left($gettok($8,2,64),-1)
%cnfnick = $14
%cnfident = $remove($gettok($13,1,64),$chr(40))
var %nick:_ $cfg(misafirnick) $+ $rand(00000,99999))
if *VERSION* iswm $4- {
var %rpver = $5-
;;;echo -s $1-
if $hget(sversion,server) == unreal {
if *v6.16* isin %rpver || *litmus* isin %rpver || *palin* isin %rpver || *Siber* isin %rpver || *Cyber* isin %rpver {
sw $sockname gzline $botfnick($1) 1h Kullandiginiz mirc sunucumuzda yasaklanmistir, Lutfen duz bir mIRC indirip tekrar deneyiniz.
}
}
else {
if *v6.16* isin %rpver || *litmus* isin %rpver || *palin* isin %rpver || *Siber* isin %rpver || *Cyber* isin %rpver {
sw $sockname zline $botfnick($1) 1h Kullandiginiz mirc sunucumuzda yasaklanmistir, Lutfen duz bir mIRC indirip tekrar deneyiniz.
}
}
sw $sockname privmsg $cfg(masterchan) 2Version cekilen nick : 4 $remove($gettok($1,1,$asc(!)),:) 2alinan version cevabi : $5-
}
if ($botfnick($1) == Chanserv) {
if (*kanali kaydedilemez ve/veya kullanilamaz.* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*kanali kayitli degil* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Kanal Sahibi:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Kanali Bilgisi:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Aciklama:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Kayit zamani:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Son kullanim:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Son Topic:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Topici yazan:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Yazilim tarihi* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Online kullanıcı* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Kullanıcı rekoru* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Ekler:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Mode Kilidi:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*kanali su an dondurulmus. (suspended)* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*tarihinde donduruldu* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Gerekce:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*Bu Kanal zamanasimina* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
}
if ($botfnick($1) == NickServ) {
if (*kaydedilemez ve/veya kullanilamaz.* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (*kayitli bir nick degil* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (:Bu kayitli ve sifre* iswm $4-) {
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
}
if (:Seçtiğiniz rumuz sistemde kayıtlıdır.* iswm $4-) {
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
}
if (*isim:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Son gorulen adres:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Son gorulen zaman:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Online oldugu adres:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Toplam online süresi* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Kayit zamani:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Son quit mesaji:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*E-mail adresi* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Bilgi:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Ekler:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*nicki su an dondurulmus* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*tarihinde suspend* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Gerekce:* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*nicki icin auth (tanitim) kodu* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*Bu nick zamanasimina* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*nickinin auth (tanitim) kodu yok* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
if (* nicki tekrar identify edilebilir hale getirildi* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*nicki ve de ona linkli tüm nicklerin services ile* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*iliskisi kesildi (suspend).* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
}
if (*nicki zaten suspend altinda.* iswm $4-) {
sw $sockname privmsg $cfg(operschan) : $+ $4-
return
}
}
if $botfnick($1) == Operserv {
if %sorgu isin $6 {
sw $sockname privmsg $cfg(operschan) : $6 rumuzu $10 tarihinde saat $11 $+ 'da $8 tarafından $14- sebebi ile yasaklanmış.
return
}
}
if $hget(sversion,server) == unreal {
if *Notice*--*Client*connecting*on*port* iswm $5- {
%cloneips = $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64))
;echo -s : 4 %cloneips
;echo -s : 4 $12
sw $sockname PRIVMSG $12 : $+ VERSION $+
sw $sockname privmsg $cfg(masterchan) GIRIS-NICK: $12 GIRIS-IDENT: $remove($gettok($13,1,64),$chr(40)) GIRIS-IP: $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64)) GIRIS-PORT: $remove($11,:)
hinc -m $+(clonetest,atlas) %cloneips 1
if ($hget($+(clonetest,atlas),%cloneips) >= 3) {
;echo -s : 4 sw $sockname gzline $12 60m Server clone limitini astiniz.Lutfen kurallara uyunuz. Clone limit -(4)-
;sw $sockname gzline $12 60m Server clone limitini astiniz.Lutfen kurallara uyunuz. Clone limit -(4)-
}
}
if *Client exiting* iswm $5- {
%cloneips2 = $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64))
hdec $+(clonetest,atlas) %cloneips2 1
;echo -s : 4 hdec $+(clonetest,atlas) %cloneips2 1
sw $sockname privmsg $cfg(masterchan) CIKIS-NICK: $9 CIKIS-IDENT: $remove($gettok($10,1,64),$chr(40)) CIKIS-IP: $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(64)) $11-
}
if $12 isin %cnfident {
sw $sockname gzline $12 1m Rumuzunuzla identdiniz ayni olamaz. Lutfen degistiriniz ve 1 dakika sonra tekrar baglanmayi deneyiniz.
}
if *changed*his/her*nickname* iswm $1- {
;sw $sockname privmsg $cfg(masterchan) NICK-DEGISIMI: $7-
sw $sockname privmsg $cfg(masterchan) NICK-DEGISIMI: $7 nick degistirerek %cnfnick oldu.
;sw $sockname who $14
hinc -mu20 nickflood %cnfip 1
if $hget(nickflood,%cnfip) >= 4 && $cfg(misafirnick) $+ * !iswm $14 {
/*
if netadmin.* !iswm %hcntrl {
;sw $sockname kill %cnfnick Nick degisim yogunlugu tespit edildi. Lutfen servisleri daha sakin kullaniniz.
sw $sockname privmsg $cfg(masterchan) AGRESIF-NICK: Degisim yogunlugu tespit edildi.: %cnfip IP adresinden.
hdel nickflood %cnfnick
}
*/
sw $sockname gzline %cnfnick 15m Nick degisim yogunlugu tespit edildi. Lutfen servisleri daha sakin kullaniniz.
sw $sockname privmsg $cfg(masterchan) AGRESIF-NICK: Degisim yogunlugu tespit edildi.: %cnfip IP adresinden.
hdel nickflood %cnfnick
}
if $hfind(badnick,%cnfnick $+ !*@*,1,W).data {
sw $sockname privmsg $cfg(masterchan) $7 $hget(badnick,$hfind(badnick,%cnfnick $+ !*@*,1,W).data) badnick maskini kullanmaya tesebbus etti.
sw $sockname privmsg $cfg(masterchan) %nick:_ olarak degistirildi.
sw $sockname privmsg operserv raw svsnick %cnfnick %nick:_ 0:0
}
}
if $randmi($12) {
sw $sockname kill $12 Rasgele nick/ident/fullname tespit edildi.Lutfen degisip tekrar giris yapiniz.
sw $sockname privmsg $cfg(masterchan) RANDOM-NICK: Rapor: $12
}
}
if $hfind(badnick,$12 $+ !*@*,1,W).data {
if $hget(sversion,server) == croom {
;sw $sockname whois $12
;sw $sockname kline %::ip kill Secmis oldugunuz rumuz ile sunucumuza giris yapamazsiniz. 1
sw $sockname kill Secmis oldugunuz rumuz ile sunucumuza giris yapamazsiniz. Lutfen /nick yeninick komutu ile degistirdikten sonra tekrar giris yapiniz.
}
else {
sw $sockname privmsg $cfg(masterchan) YEAH: Badnick: $12 Bad nick olarak agilandi. Nick %nick:_ olarak degistirildi.
sw $sockname privmsg operserv raw svsnick $12 %nick:_ 0:0
.timer 1 3 sw $sockname privmsg %nick:_ Merhaba %nick:_ nickiniz tarafimdan badnick algilandigi icin degistirilmistir. Hatali oldugunuz dusunuyorsaniz lutfen #operhelp kanalina bildiriniz.
return
}
}
if $hget(sversion,server) == croom {
if *Notice*--*Client*connecting*on*port* iswm $5- {
%cloneips2 = $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64))
sw $sockname PRIVMSG $12 : $+ VERSION $+
sw $sockname privmsg $cfg(masterchan) GIRIS-NICK: $12 GIRIS-IDENT: $remove($gettok($13,1,64),$chr(40)) GIRIS-IP: $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64)) GIRIS-PORT: $remove($11,:)
hinc -m $+(clonetest,atlas) %cloneips 1
if ($hget($+(clonetest,atlas),%cloneips) >= 3) {
;sw $sockname kline %cloneips Server clone limitini astiniz.Lutfen kurallara uyunuz. Clone limit -(4)- 60
}
}
if *Client exiting* iswm $5- {
%cloneips2 = $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64))
hdec $+(clonetest,atlas) %cloneips2 1
;echo -s : 4 hdec $+(clonetest,atlas) %cloneips2 1
sw $sockname privmsg $cfg(masterchan) CIKIS-NICK: $9 CIKIS-IDENT: $remove($gettok($10,1,64),$chr(40)) CIKIS-IP: $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(64)) $11-
}
if $randmi($12) {
sw $sockname kill $12 Rasgele nick/ident/fullname tespit edildi.Lutfen degisip tekrar giris yapiniz.
sw $sockname privmsg $cfg(masterchan) RANDOM-NICK: Rapor: $12
}
if $12 isin %cnfident {
sw $sockname kline $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64)) Rumuzunuzla identdiniz ayni olamaz. Lutfen degistiriniz ve 1 dakika sonra tekrar baglanmayi deneyiniz. 1
}
if $hfind(badnick,$12 $+ !*@*,1,W).data {
sw $sockname kill $12 Secmis oldugunuz rumuz ile sunucumuza giris yapamazsiniz. Lutfen /nick yeninick komutu ile degistirdikten sonra tekrar giris yapiniz.
}
}
}
if ($2 == MODE) {
if $hget(sversion,server) == unreal {
if $3 !isin $cfg(muafkanal) {
if +*q* iswm $4 {
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal sahibi konumuna gecti. (1. seviye)
__op $3 $5
}
elseif +*a* iswm $4 {
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal super operatoru konumuna gecti. (2. seviye)
__op $3 $5
}
elseif +*o* iswm $4 {
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal operatoru konumuna gecti. (3. seviye)
__op $3 $5
}
elseif +*h* iswm $4 {
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal yardimci operatoru konumuna gecti.
}
}
}
if $hget(sversion,server) == croom {
if +o iswm $4 {
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal operatoru konumuna gecti.
}
}
if (($4 == -o) || ($4 == -q) || ($4 == -a)) {
__deop $3 $5
sw $sockname names $3
}
}
if ($2 == JOIN) {
%::chan = $remove($3,:)
%::nick = $botfnick($1)
if $botfnick($1) == $cfg(me) {
if $hget(sversion,server) == croom {
sw $sockname samode %::chan +o $cfg(me)
sw $sockname names $3
}
if $hget(sversion,server) == unreal {
sw $sockname os raw :chanserv mode %::chan +oa $cfg(me) $cfg(me)
sw $sockname names $3
}
}
if $hfind(badnick,$botfnick($1) $+ !*@*,1,W).data {
if $botfnick($1) != $cfg(me) {
sw $sockname mode %::chan +b $botfnick($1)
sw $sockname kick %::chan $botfnick($1) Rumuzunuz kanallarımızda sohbet etmeye uygun degildir. Lutfen /nick yeninick komutu ile degistirdikten sonra tekrar giris yapiniz.
return
}
}
}
if ($2 == PART) {
if ($botfnick($1) != $cfg(me)) {
__deop $3 $botfnick($1)
}
}
}