PHP Kod: Kodu kopyalamak için üzerine çift týklayýn!
; Mynet ircd hub control system
on *:start: {
_hashs.load
_timers.load
_load.chans
_listen
}
alias _hashs.load {
hmake config
hload -i config config.ini
hmake badnick
hload badnick badnick.table
hmake globchans
hmake chanflood
hmake chanrepeat
hmake chanrepeat2
hmake kickflood
hmake joinflood
hmake privaterooms
hload privaterooms privaterooms.table
hmake ozelkanalbasvuru
hload ozelkanalbasvuru ozelkanalbasvuru.table
hmake ozelkanalbasvurured
hload ozelkanalbasvurured ozelkanalbasvurured.table
hmake swear
hload swear swear.table
}
alias _load.chans {
if $hget(globchans) {
hfree globchans
}
hmake globchans
var %i 1
while (%i <= $lines(chans.txt)) {
if ($left($read(chans.txt,%i),1) == $chr(35)) {
hadd -m globchans $read(chans.txt,%i) 1
if ($sock(hub)) {
sw hub sajoin $cfg(me) $lower($read(chans.txt,%i))
}
}
inc %i
}
}
alias _timers.load {
.timercc -i 0 7 _connect.control
;.timerrestart 06:00 1 1 restart
.timerunsets 0 900 _unsets
; .timerlist -i 0 600 _list
}
alias _unsets {
unset %webauth.*
unset %s.lc*
}
alias _list {
sw hub LIST
}
alias sw {
if ($sock($1).status == active) {
sockwrite -nt $1-
}
}
alias _connect.control {
if ($sock(hub).status != active) {
_connect
}
}
alias _connect {
sockclose hub
sockopen hub $cfg(serverip) $cfg(serverport)
}
alias hub_nick {
return $+(BOT_,$r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z))
}
alias cfg {
if $1 == add {
hadd -m config $2-
hsave -i config config.ini
}
else {
return $hget(config,$1)
}
}
alias _hub.connected {
sw hub WATCH +chanserv
sw hub WATCH +service_bot
sw hub oper $cfg(operpass)
}
alias _identify.ok {
sw hub MODE $cfg(me) +Bp-h
_joinfirst
}
alias _servicebot {
if ($1 == create) {
sw hub os raw nick Service_Bot 1 1 services mynet.com services.mynet.com :Services Bot
}
elseif ($1 == joinall) {
var %j = 1
while (%j <= $hget(globchans,0).item) {
sw hub os raw :Service_Bot JOIN $hget(globchans,%j).item
inc %j
}
}
else {
sw hub os raw :Service_Bot $1-
}
}
alias _joinfirst {
_servicebot create
sw hub SAJOIN $cfg(me) $cfg(masterchan)
var %j = 1
while (%j <= $hget(globchans,0).item) {
sw hub SAJOIN $cfg(me) $lower($hget(globchans,%j).item)
inc %j
}
var %j = 1
while (%j <= $hget(privaterooms,0).item) {
sw hub SAJOIN $cfg(me) $lower($hget(privaterooms,%j).item)
inc %j
}
_servicebot joinall
.timer 1 10 _mlocks
}
on *:sockopen:hub: {
_set hubnick $hub_nick
sw $sockname PASS $cfg(serverpass)
sw $sockname NICK $_get(hubnick)
sw $sockname USER mynet "" " $+ $iif($host,$host,$ip) $+ " :MerLyn - Community System 'Second Edition'
}
on *:sockread:hub: {
sockread %h
tokenize 32 %h
if ($1 == PING) {
sw $sockname PONG $2-
}
if (($2 == 376) || ($2 == 422)) {
_hub.connected
}
if ($2 == 322) {
if ($5 isnum) {
if ($5 > $cfg(muser)) {
if ((#mynet_* iswm $4) && !$hget(globchans,$4)) {
return
}
sw $sockname SAJOIN $cfg(me) $lower($4)
}
elseif (!$hget(globchans,$4) && ($4 != $cfg(masterchan)) && !$hget(privaterooms,$4)) {
sw $sockname PART $4
}
}
halt
}
if ($2 == 323) {
echo -s list done...
}
if ($2 == 381) {
sw $sockname KILL $cfg(me) :system reconnecting... (MerLyn)
.timernchange -i 1 5 sw $sockname NICK $cfg(me)
}
if ($2 == 600) {
if (($4 == ChanServ) && ($8- == :logged online)) {
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
}
if (($4 == Service_Bot) && ($8- == :logged online)) {
.timer 1 2 _servicebot joinall
}
}
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) == .)) {
_addop $_get(nameschan) $noprefix($gettok($_get($+(names,$5)),%i,32))
}
else {
_delop $_get(nameschan) $noprefix($gettok($_get($+(names,$5)),%i,32))
if ($isbad($gettok($_get($+(names,$5)),%i,32))) {
sw $sockname MODE $_get(nameschan) +b $ifmatch
sw hub KICK $_get(nameschan) $noprefix($gettok($_get($+(names,$5)),%i,32)) :Rumuzunuz kanallarimizda sohbet etmek icin uygun bulunmamistir. Lutfen degistiriniz.
}
if ($islongnick($gettok($_get($+(names,$5)),%i,32))) {
sw $sockname MODE $_get(nameschan) +b $ifmatch
sw hub KICK $_get(nameschan) $noprefix($gettok($_get($+(names,$5)),%i,32)) :Rumuzunuz ayni karakterden cok fazla iceriyor. Lutfen degistiriniz.
}
if ($isallnum($gettok($_get($+(names,$5)),%i,32))) {
sw $sockname MODE $_get(nameschan) +b $ifmatch
sw hub KICK $_get(nameschan) $noprefix($gettok($_get($+(names,$5)),%i,32)) :Rumuzunuzda cok sayida rakam bulunmaktadir. Lutfen degistiriniz.
}
if (guest* iswm $gettok($_get($+(names,$5)),%i,32)) {
guestban $_get(nameschan)
}
if ($_get($+(massv,$_get(nameschan)))) {
sw $sockname MODE $_get(nameschan) +v $noprefix($gettok($_get($+(names,$5)),%i,32))
}
if ($_get($+(massdv,$_get(nameschan)))) {
sw $sockname MODE $_get(nameschan) -v $noprefix($gettok($_get($+(names,$5)),%i,32))
}
}
inc %i
}
}
if ($2 == 366) {
if ($_get($+(massv,$4))) {
_unset $+(massv,$4)
}
if ($_get($+(massdv,$4))) {
_unset $+(massdv,$4)
}
}
if ($2 == 367) {
_set $+(banlist,$4) $addtok($_get($+(banlist,$4)),$5,32)
if ($numtok($_get($+(banlist,$4)),32) == 10) {
sw $sockname MODE $4 $+(-,$str(b,10)) $_get($+(banlist,$4))
_unset $+(banlist,$4)
}
}
if ($2 == 368) {
sw $sockname MODE $4 $+(-,$str(b,10)) $_get($+(banlist,$4))
_unset $+(banlist,$4)
}
if ($2 == 319) {
var %c = 1
while (%c <= $numtok($5-,32)) {
if $hget($+(votekick-,$_get($+(oldnick,$4))),$nochanprefix($gettok($5-,%c,32))) >= 3 {
;sw hub GZLINE $4 1h Atilsin oyunuz varken rumuz degistirdiginiz veya kanali terk ettiginiz icin uzaklastirildiniz.
;sw hub PRIVMSG $nochanprefix($gettok($5-,%c,32)) :ACTION 2 $4 rumuzu atilsin oyu varken rumuz degistirdigi veya kanali terk ettigi icin ZLINE ile uzaklastirilmistir.
}
else {
_copyvote $_get($+(oldnick,$4)) $4
}
if ($hget($nochanprefix($gettok($5-,%c,32)),$_get($+(oldnick,$4)))) {
hdel $nochanprefix($gettok($5-,%c,32)) $_get($+(oldnick,$4))
hadd -m $nochanprefix($gettok($5-,%c,32)) $4 i
}
if ($isbad($4)) {
sw $sockname MODE $nochanprefix($gettok($5-,%c,32)) +b $4
sw $sockname KICK $nochanprefix($gettok($5-,%c,32)) $4 :Rumuzunuz kanallarimizda sohbet etmek icin uygun bulunmamistir. Lutfen degistiriniz.
}
if ($islongnick($4)) {
sw $sockname MODE $nochanprefix($gettok($5-,%c,32)) +b $4
sw $sockname KICK $nochanprefix($gettok($5-,%c,32)) $4 :Rumuzunuz ayni karakterden cok fazla iceriyor. Lutfen degistiriniz.
}
if ($isallnum($4)) {
sw $sockname MODE $nochanprefix($gettok($5-,%c,32)) +b $4
sw $sockname KICK $nochanprefix($gettok($5-,%c,32)) $4 :Rumuzunuzda cok sayida rakam bulunmaktadir. Lutfen degistiriniz.
}
inc %c
}
}
if ($2 == 478) {
if (!$hget(banlist,$4)) {
hinc -mu20 banlist $4 1
sw $sockname MODE $4 +b
}
}
if ($2 == 340) {
if ($_get($+(ban,$gettok($botfnick($4),1,61)))) {
; Full ip fishing engelleme..
; #EDIT#- $+(%cip_,.,%cip:_ ,.,%ci:p_,.,%c:ip_) 4 %c:ip_ - $gettok(%puip,4,46)
; $+(*@,$left($gettok($4,2,64),-1),*)
; echo -s 4 ban $+(*@,$left($gettok($4,2,64),-1),*)
var %puip = $gettok($4,2,64)
var %cip_ = $gettok(%puip,1,46)
var %cip:_ = $gettok(%puip,2,46)
var %ci:p_ = $gettok(%puip,3,46)
var %c:ip_ = $str(?,$len($gettok(%puip,4,46)))
sw hub MODE $ifmatch +b $+(*@,%cip_,.,%cip:_,.,%ci:p_,.,%c:ip_)
msg #mynet BANNED: $+(*@,%cip_,.,%cip:_,.,%ci:p_,.,%c:ip_) - REALIP4: $+(%cip_,.,%cip:_,.,%ci:p_,.,$gettok(%puip,4,46))
_unset $+(ban,$gettok($botfnick($4),1,61))
}
}
if ($2 == 401) {
if ($5- == :No such nick/channel) {
if ($hget($+(votekick-,$4))) {
hfree $+(votekick-,$4)
var %v = 1
while (%v <= $hget($+(votefor-,$4),0).item) {
sw $sockname notice $hget($+(votefor-,$4),%v).item 6Belirttiginiz rumuz su anda sohbette degil.
sw $sockname notice $hget($+(votefor-,$4),%v).item 4Eger rumuzu yazmakta zorluk cekiyorsaniz, sagdaki rumuz listesinden, rumuza sag tikla***** atilsin oyu veriniz.
inc %v 1
}
}
}
}
if (598 isin $1-) {
; echo -s 4 $1-
}
if ($2 == KICK) {
if ($botfnick($1) != $cfg(me)) {
; sw $sockname NOTICE $botfnick($1) :2(Alternatif) Kullanicilari kanal genelinde 4kickban rumuz2 yazarakta uzaklastirabilirsiniz. Daha fazla bilgi icin ozelime 4kanal komutlari2 yaziniz.
}
if (($4 == $cfg(me)) && ($botfnick($1) != ChanServ && CLEARCHAN by* !iswm $4-)) {
sw $sockname SAJOIN $cfg(me) $lower($3)
}
}
if ($2 == MODE) {
if ($botfnick($1) != $cfg(me)) {
sw $sockname os raw :ChanServ MODE $3 +Gf [3t#b]:2
if (l isin $4) {
%chans = #mynet_lezbiyen,#mynet_gay,#mynet_cinsellik,#mynet_ankara,#mynet_istanbul,#mynet_izmir,#mynet_eskisehir,#mynet_bursa
if (!$istok(%chans,$removenums($3),44)) {
sw $sockname os raw :ChanServ MODE $3 +l 300
sw $sockname os raw :ChanServ MODE $3 -L
}
}
}
if (($4 == +o) || ($4 == +q) || ($4 == +a) || ($4 == +oa) || ($4 == +qa) || ($4 == +ao) || ($4 == +aq) || ($4 == +oq)) {
_addop $3 $5
}
if (($4 == -o) || ($4 == -q) || ($4 == -a)) {
_delop $3 $5
}
/*
if $botfnick($1) != $cfg(me) {
if $4 == +v {
; sw $sockname NOTICE $botfnick($1) :2(Alternatif) Kullanicilara ses (voice) vermek icin kanal genelinde 4voice rumuzlar2 yazabilirsiniz. Bir kac rumuz birden yazabileceginiz gibi, kullanici rumuzunun ilk bir kac harfini yazdiktan sonra TAB tusuna basarak rumuzun tamaminin ekrana gelmesini saglayabilirsiniz.
; sw $sockname NOTICE $botfnick($1) :2Ayrintili bilgi icin ozelime 4kanal komutlari 2yaziniz.
}
if $4 == -v {
; sw $sockname NOTICE $botfnick($1) :2(Alternatif) Kullanicilarin seslerini (voice'lerini) almak icin kanal genelinde 4devoice rumuzlar2 yazabilirsiniz. Bir kac rumuz birden yazabileceginiz gibi, kullanici rumuzunun ilk bir kac harfini yazdiktan sonra TAB tusuna basarak rumuzun tamaminin ekrana gelmesini saglayabilirsiniz.
; sw $sockname NOTICE $botfnick($1) :2Ayrintili bilgi icin ozelime 4kanal komutlari 2yaziniz.
}
}
*/
}
if ($2 == NICK) {
_set nick2 $right($3,-1)
_set nick1 $botfnick($1)
_set $+(oldnick,$_get(nick2)) $_get(nick1)
hinc -mu30 nickflood $_mask($1) 1
hinc -mu120 nickfloodx $_mask($1) 1
if (($hget(nickflood,$_mask($1)) >= 4) || ($hget(nickfloodx,$_mask($1)) >= 6)) {
sw hub GZLINE $right($3,-1) 10h Agresif durum tespiti yapilmistir.
echo -a nick flood: $1
}
if ($_get(nick2) == $cfg(me)) {
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
.timerglist -i 1 4 sw $sockname LIST
}
elseif ($_get(nick1) == $cfg(me)) {
sw $sockname KILL $cfg($me) reconnecting... (MerLyn)
.timer 1 1 sw $sockname NICK $cfg(me)
}
else {
sw $sockname WHOIS $_get(nick2)
}
}
if (($2 == NOTICE) && ($3 == $cfg(me))) {
if ($botfnick($1) == MemoServ) {
; echo -s 6 $1-
}
if ($botfnick($1) == ChanServ) {
if (*kaydedilmistir. iswm $4-) {
if ($hget(ozelkanalbasvuru,$remove($strip($4),:))) {
var %f $ifmatch
sw $sockname cs set $remove($strip($4),:) founder %f
sw $sockname ms send %f Ozel kanal basvurunuz kabul edilmistir %f $+ . Kanalinizin sifresini e-mail adresinize almak icin, /cs sendpass $remove($strip($4),:) yaziniz.
}
}
if (*kayitli bir nick degil. iswm $4-) {
if ($hfind(ozelkanalbasvuru,$remove($strip($4),:),1,W).data) {
var %f $ifmatch
sw $sockname cs drop %f
privdel %f
}
}
if (*kanali daha onceden kaydedilmis.* iswm $4-) {
if ($hget(ozelkanalbasvuru,$remove($strip($4),:))) {
var %f $ifmatch
sw $sockname ms send %f Basvuru yaptiginiz ozel kanal icin onay verdik, fakat daha once bir baskasi tarafindan kaydedildigi icin, rumuzunuzun uzerine atamadik %f $+ . Kanalin zaten sahibi sizseniz, /cs sendpass $remove($strip($4),:) yaziniz.
}
}
}
if ($botfnick($1) == NickServ) {
if ($4- == :Sifre kabul edildi.) {
_identify.ok
}
if (:Bu kayitli ve sifre* iswm $4-) {
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
}
}
}
if (($2 == PRIVMSG) || ($2 == NOTICE)) {
if ($left($3,1) == $chr(35)) {
_system.privmsgchan $3 $1 $right($4-,-1)
}
elseif ($3 == $cfg(me)) {
_system.privmsgme $1 $right($4-,-1)
}
}
if ($2 == JOIN) {
if ($botfnick($1) == $cfg(me)) {
_system.joinedme $right($3,-1)
}
else {
_system.joined $right($3,-1) $1
}
}
if ($2 == PART) {
if ($botfnick($1) == $cfg(me)) {
_system.partedme $3
}
else {
_system.parted $3 $1
}
}
if ($2 == QUIT) {
if ($botfnick($1) == Service_Bot) {
_servicebot create
}
}
if (chanserv isin $1-) {
; echo -s $1-
}
}
;Do EDIT ozel kanallar..
/**
* GooXip Tarafindan Duzenlenmistir.
*
* _basvurular aliasi girilen parametrelere gore, sonuc dondurur.
* parametre girilmezse toplam basvuru sayisini verir. 1 Numarali parametre girilirse, Girildigi sayi kadar sonuc goruntuler
* 2 Numarali parametre girildiginde ise girilen sayi kadar bastan sonuc atlar.
*
* @param integer (istege gore) Goruntulenmek istenen sonuc sayisi
* @param integer (istege gore) Bastan itibaren atlanmak istenen sonuc sayisi
*
* @return mixed Paremetre girilmezse toplam sonuc sayisi, Paremetre girildigi taktirde void
*/
alias _basvurular {
var %count = $hget(ozelkanalbasvuru,0).item, %result = $1, %skip = $int($2), %line = 1
; herhangi bir parametre yoksa Basvuru sayisini veriyoruz
if (!$1 || %result !isnum) {
return %count
}
else if (%result isnum) {
; tam sayi denetimi?
if (%result <= 0) {
sw hub privmsg #opers :Lutfen Goruntulemek Basvuru Kanali sayisini "Dogal sayi" olarak girin
return
}
; atlanmak istenen sonuc sayisina gore duzenleme...
if (%skip > 0 && %skip isnum) {
%result = $calc(%skip + %result)
%line = %skip
}
; peki ya toplam satir sayisindan buyukse?
if (%result > %count) {
%result = %count
}
; son kontrol. eger atlanmak istenen sonuc ile
; gosterilmek istenen sonuc ayni cikiyorsa hata mesaji...
if (%result == %line) {
sw hub privmsg #opers :Goruntulemek istediginiz sonuclar, Maksimum basvuru sayisindan buyuk oldugu icin gosterime verilmedi
return
}
}
else {
return %count
}
while (%line <= %result) {
_linedance sw hub privmsg #opers :Basvuru ID: %i $hget(ozelkanalbasvuru, %line).data - $hget(ozelkanalbasvuru, %line).data (Basvuru: %line $+ - $+ %result Araligi / Toplam %count Sonucta)
inc %line
}
}
/**
* GooXip Tarafindan Duzenlenmistir.
*
* Girilen parametrenin IP Adresi formatlarina uygun olup olmadigini belirler
*
* @param string Dogrulanacak IP Adresi
*
* @return boolean $true ise, dogru! $false ise yanlis
*/
alias verify_ip {
if ($regex(vfip, $1, /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/)) {
var %i = 1
while (%i <= 4) {
if ($regml(vfip, %i) < 0 || $regml(vfip, %i) > 255) {
return $false
}
inc %i
}
return $true
}
return $false
}
alias _ozelkanalonay {
sw hub privmsg #opers $1 Kanali Kaydedilmek uzere islemler yapiliyor.
privadd $1
sw hub SAJOIN $1
sw hub cs register $1 $r(a,z) $+ $r(1000,99999999) Mynet sohbet
.timer 1 5 hdel ozelkanalbasvuru $1
.timer 1 6 hsave ozelkanalbasvuru ozelkanalbasvuru.table
}
alias _ozelkanalred {
sw hub ms send $2 Ozel kanal basvurunuz, kurallarimiza uymadigi icin reddedilmistir $2 $+ . Bu kanal icin tekrar bir basvuru yapamayacaksiniz.
hdel ozelkanalbasvuru $1
hsave ozelkanalbasvuru ozelkanalbasvuru.table
hadd -m ozelkanalbasvurured $1 .
hsave ozelkanalbasvurured ozelkanalbasvurured.table
}
; #chan nick message
alias _system.privmsgchan {
if (#mynet_* iswm $1) {
; sw hub mode $1 +m
}
/**
* Opers Komutlari - GooXip
*
*/
if ($1 == #Opers) {
if ($3 == .sajoin) {
if ($4 && $left($5, 1) == #) {
sw hub SAJOIN $4 $5
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .sajoin nick #kanal seklinde kullanin
return
}
}
if ($3 == .sapart) {
if ($4 && $left($5, 1) == #) {
sw hub SAPART $4 $5
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .sapart nick #kanal seklinde kullanin
return
}
}
if ($3 == .basvuru) {
_basvurular $4 $5
return
}
if ($3 == .onay) {
if ($int($4) == $4) {
if ($hget(ozelkanalbasvuru, $4).data) {
_ozelkanalonay $ifmatch
return
}
else {
sw hub PRIVMSG #opers :# $+ ID li Basvuru Bulunamadi
return
}
}
else if ($left($4, 1) == #) {
if ($hget(ozelkanalbasvuru, $4)) {
_ozelkanalonay $ifmatch
return
}
else {
sw hub PRIVMSG #opers :Lutfen komutu .onay #kanal ya da .onay <ID> seklinde kullanin
return
}
return
}
}
if ($3 == .red) {
if ($int($4) == $4) {
if ($hget(ozelkanalbasvuru, $4).data) {
_ozelkanalred $ifmatch $hget(ozelkanalbasvuru, $4).item
return
}
else {
sw hub PRIVMSG #opers :# $+ ID li Basvuru Bulunamadi
return
}
}
else if ($left($4, 1) == #) {
if ($hget(ozelkanalbasvuru, $4)) {
_ozelkanalred $4 $hget(ozelkanalbasvuru, $4)
return
}
else {
sw hub PRIVMSG #opers :Lutfen komutu .red #kanal ya da .red <ID> seklinde kullanin
return
}
return
}
}
if ($3 == .banac) {
if ($verify_ip($4)) {
_linedance sw hub GZLINE -*@ $+ $4
_linedance sw hub GLINE -*@ $+ $4
_linedance sw hub ZLINE -*@ $+ $4
_linedance sw hub KLINE -*@ $+ $4
_linedance sw hub SHUN -*@ $+ $4
_linedance sw hub OS AKILL DEL *@ $+ $4
sw hub PRIVMSG #opers : $+ $4 Uzerindeki Tum X-Line lar Kaldirildi.
return
}
else {
sw hub PRIVMSG #opers :Lutfen IP Adresini Uygun Formatlarda Girin
return
}
}
}
/**
* Opers Komutlari Sonu -->
*
*/
if ($1 == $cfg(masterchan)) {
; echo -s 2 $1-
if ($3 == .addsw) {
hadd -m swear $r(1000,999999) $4-
hsave swear swear.table
sw hub PRIVMSG $1 :Kufur maski eklendi: $4-
}
if ($3 == .delsw) {
sw hub PRIVMSG $1 :Kufur maski silindi: $hfind(swear,$4-,1,W).data
hdel swear $hfind(swear,$4-,1,W).data
hsave swear swear.table
}
if ($3 == .addbad) {
hadd -m badnick $r(1000,999999) $4
hsave badnick badnick.table
sw hub PRIVMSG $1 :Badnick maski eklendi: $4
}
if ($3 == .delbad) {
if ($hfind(badnick,$4,1,W).data) {
hdel badnick $ifmatch
hsave badnick badnick.table
sw $sockname PRIVMSG $1 :Badnick maski silindi ( $+ $ifmatch $+ ) $4
}
}
if ($3 == .closeroom) {
privdel $+($chr(35),$4)
sw $sockname PRIVMSG $1 : $+ $+($chr(35),$4) odasi kapatilmistir.
}
}
;; ozel komutlar
else {
if ($_isop($1,$botfnick($2))) {
if (!$isprotect($strip($4))) {
if ((kick* iswm $strip($3)) && $4-) {
sw hub KICK $1 $strip($4) $iif($5-,$5-,Sebep belirtilmedi.)
}
}
if ((k?ckban* iswm $strip($3)) && $4-) {
if (!$isprotect($4)) {
sw hub MODE $1 +b $strip($4)
_kick $1 $strip($4) $iif(,Sebep belirtilmedi.)
}
}
if ((vo?ce* iswm $strip($3)) && $4-) {
sw hub MODE $1 $+(+,$str(v,$numtok($strip($4-),32))) $strip($4-)
}
if ((devo?ce* iswm $strip($3)) && $4-) {
sw hub MODE $1 $+(-,$str(v,$numtok($strip($4-),32))) $strip($4-)
}
if (unban* iswm $strip($3)) {
sw hub MODE $1 +b
}
if (deop* iswm $strip($3)) {
sw hub MODE $1 -o $botfnick($strip($2))
}
if ($strip($3) == massv) {
_set $+(massv,$1) ok
sw hub NAMES $1
}
if ($strip($3) == massdv) {
_set $+(massdv,$1) ok
sw hub NAMES $1
}
/*
if $strip($3) == clear {
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 $+(:,$str( ,350))
sw hub PRIVMSG $1 :Oda geneli temizlenmistir. Keyifli sohbetler dileriz... ( $+ $upper($remove($1,$chr(35))) $+ )
}
*/
}
else {
;echo -s 4 $1-
if ($botfnick($2) == rgefeg) {
echo -a $1-
}
if (!$isprotect($2) && !$_isop($1,$botfnick($2))) {
; saldiri kontrol asamasi
if ($len($strip($3-)) > 20) {
hinc -mu5 spamfilterc $hash($strip($_dellast($3-)),32) 1
if (($hget(spamfilterc,$hash($strip($_dellast($3-)),32)) == 4) && (<bu cumle uygunsuz bulundugu icin engellendi> !isin $3-) {
sw hub spamfilter add cN shun 1h Saldiri/flood girisimi tespit edildi. $yildiztemizle($_dellast($3-))
; .timer 1 30 sw hub spamfilter del cN shun 1h Saldiri/flood girisimi tespit edildi. $yildiztemizle($_dellast($3-))
echo 10 -SPAMFILTERED: $3-
sw $sockname gzline $botfnick($2) 1h Saldiri/flood girisimi tespit edildi.
}
}
if ($ccolor($replace($3-,$chr(44),^)) && ($chr(3) isin $3-)) {
hinc -u200 chanflood $+(color,$botfnick($2)) 1
if ($hget(chanflood,$+(color,$botfnick($2))) == 3) {
_kick $1 $2 Genel yazismalarinizda rahatsiz edecek bicimde arka plan kullandiniz.
}
if ($hget(chanflood,$+(color,$botfnick($2))) == 6) {
sw $sockname GZLINE $botfnick($2) 1h Saldiri/flood girisimi tespit edildi.
return
}
}
if ($checkspaces($3-)) {
_kick $1 $2 Yazismalariniz kanal geneline uygun bulunmamistir.
return
}
if ($checknonalphanumeric($3-) == kick) {
_kick $1 $2 Yazismalariniz kanal geneline uygun bulunmamistir.
return
}
if ($checknonalphanumeric($3-) isnum) {
hadd -mu30 chanflood $+(nonalpha,$_mask($2),$1) $calc($hget(chanflood,$+(nonalpha,$_mask($2),$1)) + $checknonalphanumeric($3-))
hinc -mu10 chanflood $+(nonalpha2,$_mask($2),$1) 1
if $hget(chanflood,$+(nonalpha,$_mask($2),$1)) >= 16 || $hget(chanflood,$+(nonalpha2,$_mask($2),$1)) >= 3 {
echo -a nonalpha: $1-
_kick $1 $2 Yazismalariniz kanal geneline uygun bulunmamistir.
sw $sockname GZLINE $botfnick($2) 1h Saldiri/flood girisimi tespit edildi.
return
}
}
if ($checkletters($3-)) {
_kick $1 $2 Yazismalariniz kanal geneline uygun bulunmamistir.
return
}
if ($regex($3-,/[A-Z]/g) >= 30) {
_kick $1 $2 Cok sayida buyuk harf kullandiniz..
return
}
if ($issw($3-)) {
_kick $1 $2 Kanal genelindeki duzeysiz konusmalariniz sebebiyle uzaklastirildiniz.
return
}
if ($regex($3-,/([[:print:]])\1\1/ig) >= 10) {
_kick $1 $2 Ayni harfi gereginden fazla uzattiginiz icin uzaklastirildiniz.
return
}
;####EDIT ASCII Flood!#########
;#À,á,Á,à,Â,â,Ã,ã,Ä,ä,Å,å,Æ,æ,Ü,ü,Û,û,Ú,ù,Ù,ú,Ö,ö,Õ,õ,Ô,ô,Ó,ó,Ò,ò,Ø,ø,Ë,ë,Ê,ê,É,é,È,è,Î,î,Ï,ï,Í,í,Ì,Ý,ì,ý,Ð,ð,Š,š,Þ,þ,c,c,Ñ,ñ,Ÿ,ÿ,©,®,¢,×,÷,ƒ,Ž,ž
if ($count($remove($3-,$chr(32)),$chr(59),+,-,\,`,~,[,],$chr(44),$chr(39),$chr(38),$chr(95),$chr(40),$chr(41),€,À,á,Á,à,Â,â,Ã,ã,Ä,ä,Å,å,Æ,æ,Û,û,Ú,ù,Ù,ú,Õ,õ,Ô,ô,Ó,ó,Ò,ò,Ø,ø,Ë,ë,Ê,ê,É,é,È,è,Î,î,Ï,ï,Í,í,Ì,Ý,ì,Š,š,Ñ,ñ,Ÿ,ÿ,©,®,¢,×,÷,ƒ,Ž,ž) >= 7) {
_kick $1 $2 Lutfen Kurallara uyunuz..
echo :: $1-
return
}
;tokenize 32 $1-
if ($strip($4) == $strip($6)) && ($strip($7) == $strip($8)) {
; sw hub privmsg #mynet $1-
; sw hub privmsg #@ -> $2 TailLongy Flood dedected! 4: $1-
}
if $1 == #@ && $len($3) > 100 {
; sw hub privmsg $1 -> $2 TailLongy Flood dedected!
}
;######## END ASCII Flood ######
hinc -u3 chanflood $+(flood,$botfnick($2),$1) 1
hinc -u6 chanflood $+(xxflood,$_mask($2),$1) 1
if ($1 == #mynet_siir) {
; echo -s $hget(chanflood,$+(xxflood,$_mask($2),$1)) $_mask($2)
}
if ($hget(chanflood,$+(xxflood,$_mask($2),$1)) >= 17) {
_kick $1 $2 Yazismalariniz kanal geneline uygun bulunmamistir.
return
}
; hinc -u1 chanflood $+(xflood,$botfnick($2),$1) 1
if ($hget(chanflood,$+(xflood,$botfnick($2),$1)) == 4) {
echo -s 2xflood: $1-
_kick $1 $2 Lutfen daha sakin bir bicimde yaziniz.
return
}
; tekrar korumasi degerleri
if ($len($strip($3-)) <= 3) {
hinc -u5 chanrepeat $+($botfnick($2),$hash($filtertext($strip($3-)),32),$1) 1
}
else {
hinc -u60 chanrepeat $+($botfnick($2),$hash($filtertext($strip($3-)),32),$1) 1
}
hinc -u3 chanrepeat2 $+($botfnick($2),$hash($filtertext($strip($3-)),32),$1) 1
if (!$istok($hget(chanflood,$+(multiflood2,$_mask($2))),$botfnick($2),46)) {
hadd -mu30 chanflood $+(multiflood2,$_mask($2)) $addtok($hget(chanflood,$+(multiflood2,$_mask($2))),$botfnick($2),46)
}
;copy paste korumasi
if ($len($strip($3-)) >= 15) {
hinc $+(-u,$lentotime($len($strip($3-)))) chanrepeat $+(copypaste,$botfnick($2),$1) 1
if ($hget(chanrepeat,$+(copypaste,$botfnick($2),$1)) == 2) {
; echo -a 4copy paste: $1-
}
}
if (($hget(chanrepeat,$+($botfnick($2),$hash($filtertext($strip($3-)),32),$1)) == 4) || ($hget(chanrepeat2,$+($botfnick($2),$hash($filtertext($strip($3-)),32),$1)) == 3)) {
_kick $1 $2 Kanal genelinde, ayni yazinin tekrarini fazlaca yapmanizdan dolayi uzaklastirildiniz.
return
}
if (($len($strip($3-)) >= 15) && (at?ls?n * !iswm $strip($3-))) {
if (!$istok($hget(chanflood,$+($1,$hash($strip($3-),32))),$botfnick($2),46)) {
hadd -mu5 chanflood $+($1,$hash($strip($3-),32)) $addtok($hget(chanflood,$+($1,$hash($strip($3-),32))),$botfnick($2),46)
if ($numtok($hget(chanflood,$+($1,$hash($strip($3-),32))),46) >= 3) {
var %i = 1
while (%i <= $numtok($hget(chanflood,$+($1,$hash($strip($3-),32))),46)) {
_kick $1 $gettok($hget(chanflood,$+($1,$hash($strip($3-),32))),%i,46) Kanal genelini seri bicimde isgal ettiginiz icin uzaklastirildiniz.
sw hub GZLINE $gettok($hget(chanflood,$+($1,$hash($strip($3-),32))),%i,46) 10h Guvenlik sistemlerimiz tarafinizdan multiple flood yapildigini algilamistir.
inc %i
}
}
}
if (!$istok($hget(chanflood,$+(multiflood,$hash($strip($3-),32),$_mask($2))),$botfnick($2),46)) {
hadd -mu30 chanflood $+(multiflood,$hash($strip($3-),32),$_mask($2)) $addtok($hget(chanflood,$+(multiflood,$hash($strip($3-),32),$_mask($2))),$botfnick($2),46)
if ($numtok($hget(chanflood,$+(multiflood,$hash($strip($3-),32),$_mask($2))),46) >= 2) {
sw $sockname GZLINE $botfnick($2) 10h Guvenlik sistemlerimiz tarafinizdan multiple flood yapildigini algilamistir.
echo -a multiple flood: $1-
if (($len($_dellast($strip($3-))) >= 15) && (<bu cumle uygunsuz bulundugu icin engellendi> !isin $3-)) {
sw hub spamfilter add cN shun 1h Saldiri/flood girisimi tespit edildi. $yildiztemizle($_dellast($3-))
.timer 1 30 sw hub spamfilter del cN shun 1h Saldiri/flood girisimi tespit edildi. $yildiztemizle($_dellast($3-))
echo 10 SPAMFILTERED: $3-
sw $sockname gzline $botfnick($2) 1h Saldiri/flood girisimi tespit edildi.
}
}
}
}
if ($hget(chanflood,$+(flood,$botfnick($2),$1)) == 5) {
_kick $1 $2 Kanal genelini seri bicimde isgal ettiginiz icin uzaklastirildiniz.
return
}
if (ACTION isin $1-) {
hinc -u300 chanflood $+(meflood,$botfnick($2),$1) 1
if ($hget(chanflood,$+(meflood,$botfnick($2),$1)) == 5) {
_kick $1 $2 Surekli '/me' komutuyla yazisarak kanal genelini isgal ettiginiz icin uzaklastirildiniz.
return
}
}
if ((at?ls?n iswm $strip($3)) && $4 && !$5) {
if (!$isprotect($strip($4))) {
_vote $1 $2 $lower($strip($4))
}
}
}
}
}
}
alias _system.privmsgme {
if (*k*n*l*k*m*t* iswm $strip($2-)) {
if (!$_get($+(priv3,$botfnick($1)))) {
_set -u60 $+(priv3,$botfnick($1)) 1
sw hub PRIVMSG $botfnick($1) :-
sw hub PRIVMSG $botfnick($1) :Asagidaki komutlari sadece operator oldugunuz kanalin geneline yazarak kullanabilirsiniz.
sw hub PRIVMSG $botfnick($1) :-
sw hub PRIVMSG $botfnick($1) :4kick rumuz 2= Belirttiginiz rumuzu kanaldan atar.
sw hub PRIVMSG $botfnick($1) :4kickban rumuz 2= Belirttiginiz rumuzu kanaldan ban'ler ve atar.
sw hub PRIVMSG $botfnick($1) :4voice rumuzlar 2= Belirttiginiz rumuzlara kanalda ses (voice) verir.
sw hub PRIVMSG $botfnick($1) :4devoice rumuzlar 2= Belirttiginiz rumuzlarin kanalda sesini (voice'ini) alir.
sw hub PRIVMSG $botfnick($1) :4unban 2= Mesaji yazdiginiz kanaldaki tum ban'leri temizler.
sw hub PRIVMSG $botfnick($1) :4deop 2= Mesaji yazdiginiz kanalda, operatorlugunuzu (@) alir.
sw hub PRIVMSG $botfnick($1) :4massv 2= Mesaji yazdiginiz kanaldaki tum kullanicilara ses (voice) verir.
sw hub PRIVMSG $botfnick($1) :4massdv 2= Mesaji yazdiginiz kanaldaki tum kullanicilardan seslerini (voice'lerini) alir.
sw hub PRIVMSG $botfnick($1) :-
}
}
elseif (bilgi isin $strip($2-)) {
if (!$_get($+(priv2,$botfnick($1)))) {
_set -u60 $+(priv2,$botfnick($1)) 1
sw hub PRIVMSG $botfnick($1) :MerLyn; Bana verilen topluluk yonetim sisteminin ismidir.
sw hub PRIVMSG $botfnick($1) :Dunyanin en guvenli sohbet odalarini olusturabilmek icin, MerLyn gelistirme islemleri programci ekibim tarafindan devam ettirilmektedir.
sw hub PRIVMSG $botfnick($1) :Gelistirmelere katkida bulunmak icin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
adresine e-posta atabilirsiniz.
sw hub PRIVMSG $botfnick($1) :-
; sw hub PRIVMSG $botfnick($1) :OSIS, Internet Business Development (IBD) sirketi tarafindan yaratilmistir.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #0000BB">$botfnick($1) :Lisans haklari MYNET A.S'ye aittir.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #0000BB">$botfnick($1) :-
}
}
elseif ((*?zel*kanal* iswm $strip($2-)) && !$3) {
if (!$_get($+(priv4,$botfnick($1)))) {
_set -u60 $+(priv4,$botfnick($1)) 1
sw hub PRIVMSG $botfnick($1) :Merhaba $botfnick($1) $+ , ozel kanal acimlariyla ilgili bazi kurallarimiz mevcut.
sw hub PRIVMSG $botfnick($1) :Bu kurallari su sekilde ozetleyebiliriz;
sw hub PRIVMSG $botfnick($1) :1-) Sectiginiz kanal ismi ozgun olmali. Rumuzlar birer oda ismi olamazlar.
sw hub PRIVMSG $botfnick($1) :2-) Sectiginiz kanal ismi bir kitleye hitap edecek sekilde belirlenmeli.
sw hub PRIVMSG $botfnick($1) :3-) Sectiginiz kanal ismi cinsellik cagrisimi yapmamali
sw hub PRIVMSG $botfnick($1) :4-) Sectiginiz kanal isminde argo sozcuk bulunmamali.
sw hub PRIVMSG $botfnick($1) :5-) Kanalinizda gunun her saati en az bir operator bulunacagindan emin olmalisiniz.
sw hub PRIVMSG $botfnick($1) :6-) Kanaliniz icin spam yapilmayacagindan emin olmalisiniz.
sw hub PRIVMSG $botfnick($1) :7-) Sectiginiz kanal isminde harfler disinda herhangi bir rakam veya karakter olmamali.
sw hub PRIVMSG $botfnick($1) :8-) Sectiginiz kanal isminde Turkce karakter bulunmamali.
sw hub PRIVMSG $botfnick($1) :9-) Sectiginiz kanal ismi, herhangi bir sucu tesvik edici anlam tasimamali.
sw hub PRIVMSG $botfnick($1) :10-) Sectiginiz kanal ismi, herhangi bir marka/siyasi parti cagirisimi yapmamali.
sw hub PRIVMSG $botfnick($1) :11-) Sectiginiz kanal isminin bir benzeri, mevcut ozel kanallarimiz arasinda bulunmamalidir.
sw hub PRIVMSG $botfnick($1) :Tum basvurular Mynet tarafindan belirli donemlerde incelenir. Basvurunuz bu kanallarin tumune uyuyorsa,
sw hub PRIVMSG $botfnick($1) :Kanalinizin kaydi yapilir ve basvuru yaptiginiz rumuz uzerine atilir. Eger kanal zaten kayitliysa, sahibinde kalir.
sw hub PRIVMSG $botfnick($1) :Basvuru yapmak icin; ozelkanalbasvuru kanalismi yaziniz.
sw hub PRIVMSG $botfnick($1) :Kanal ismini yazarken diyez (#) isareti koymayiniz. Kayitli degilse, hangi rumuzun uzerine kaydedilmesini istiyorsaniz, o rumuzla basvuru yapiniz.
}
}
elseif ($strip($2) == ozelkanalbasvuru) {
if (!$_get($+(priv5,$botfnick($1)))) {
_set -u60 $+(priv5,$botfnick($1)) 1
if (($3 !isalpha) || $4 || (mynet isin $3)) {
sw hub PRIVMSG $botfnick($1) :Belirttiginiz kanal basvuru tanimlamalarina uymadi. Tekrar bir basvuru yapmak icin 60 sn. beklemelisiniz.
return
}
if ($hget(ozelkanalbasvurured,$+($chr(35),$3))) {
sw hub PRIVMSG $botfnick($1) :Belirttiginiz kanal icin daha once basvuru yapilmis ve reddedilmis. Baska bir kanal adina basvuru yapmak icin 60 sn. beklemelisiniz.
return
}
if ($hget(ozelkanalbasvuru,$+($chr(35),$3))) {
sw hub PRIVMSG $botfnick($1) :Belirttiginiz kanal icin zaten basvuru yapilmis. Tekrar bir basvuru yapmak icin 60 sn. beklemelisiniz.
return
}
if ($hfind(ozelkanalbasvuru,$botfnick($1),1,W).data) {
sw hub PRIVMSG $botfnick($1) :Daha once yaptiginiz bir basvuru henuz onaylanmadigi icin yeni bir basvuru yapamazsiniz.
return
}
if ($hget(privaterooms,$+($chr(35),$3))) {
sw hub PRIVMSG $botfnick($1) :Sectiginiz kanal zaten ozel kanalimiz durumunda $botfnick($1) $+ . Tekrar bir basvuru yapmak icin 60 sn. beklemelisiniz.
return
}
else {
sw hub PRIVMSG $botfnick($1) :Belirttiginiz kanal basvuru isleminiz tamamlandi $botfnick($1) $+ .
sw hub PRIVMSG $botfnick($1) :Basvurunuz sonuclandiginda bu rumuzunuza MEMO ile bildirilecektir.
sw hub PRIVMSG $botfnick($1) :Ilginiz icin tesekkur ederiz. -Mynet-
hadd -m ozelkanalbasvuru $+($chr(35),$3) $botfnick($1)
hsave ozelkanalbasvuru ozelkanalbasvuru.table
if ($botfnick($1) == $3) {
ozelkanalred $3 $botfnick($1)
}
}
}
}
elseif ($strip($2) == UMODE) {
if ($strip($3) === +D) {
sw hub NOTICE $botfnick($1) :Kullanici ayarlariniz tum ozel mesajlari reddedecek bicimde ayarlandi.
sw hub os raw svsmode $botfnick($1) $strip($3)
}
elseif (($strip($3) === -D) || ($strip($3) === -R)) {
sw hub NOTICE $botfnick($1) :Kullanici ayarlariniz tum ozel mesajlari kabul edecek bicimde ayarlandi.
sw hub os raw svsmode $botfnick($1) $strip($3)
}
elseif ($strip($3) === +R) {
sw hub NOTICE $botfnick($1) :Kullanici ayarlariniz kayitsiz rumuzlardan ozel mesajlari reddedecek bicimde ayarlandi.
sw hub os raw svsmode $botfnick($1) $strip($3)
}
elseif ($strip($3) === +p) {
sw hub NOTICE $botfnick($1) :Kullanici ayarlariniz bulundugunuz kanallarin whois'inizde gizlenecegi bicimde ayarlandi.
sw hub os raw svsmode $botfnick($1) $strip($3)
}
elseif ($strip($3) === -p) {
sw hub NOTICE $botfnick($1) :Kullanici ayarlariniz bulundugunuz kanallarin whois'inizde gosterilecegi bicimde ayarlandi.
sw hub os raw svsmode $botfnick($1) $strip($3)
}
elseif ($strip($3) === +G) {
sw hub NOTICE $botfnick($1) :Kullanici ayarlariniz kufur veya argo icerikli ozel mesajlari almayacaginiz bicimde ayarlandi.
sw hub os raw svsmode $botfnick($1) $strip($3)
}
elseif ($strip($3) === -G) {
sw hub NOTICE $botfnick($1) :Kullanici ayarlariniz kufur veya argo icerikli ozel mesajlari alabileceginiz bicimde ayarlandi.
sw hub os raw svsmode $botfnick($1) $strip($3)
}
else {
sw hub NOTICE $botfnick($1) :Bilinmeyen UMODE flagi.
}
return
}
elseif ((at?ls?n iswm $strip($2)) && $4) {
if !$isprotect($strip($3)) {
_votepriv $strip($3) $1 $lower($strip($4))
}
}
else {
if (!$_get($+(priv1,$botfnick($1)))) {
_set -u60 $+(priv1,$botfnick($1)) 1
sw hub PRIVMSG $botfnick($1) :Merhaba $botfnick($1) $+ .
sw hub PRIVMSG $botfnick($1) :MerLyn, Mynet Sohbet servisinde, genel duzen ve guvenligi saglamak amaciyla bulunan bir yapay zeka sistemidir.
sw hub PRIVMSG $botfnick($1) :Sistemim insan kontrolu olmadan calistigi icin ozel mesajlasmalarinizda cevap alamazsiniz.
sw hub PRIVMSG $botfnick($1) :Hakkimda daha detayli bilgi almak icin bilgi yaziniz.
}
}
}
alias _system.joinedme {
; sw hub NOTICE $1 2MerLyn gerekli duzen ve guvenlik icin kanala giris yapmistir.
; sw hub NOTICE $1 2MerLyn, sohbet odalarinda insan kontrolu olmadan calisan bir yapay zeka sistemidir. Ayrintili bilgi icin #help kanalimizi ziyaret ediniz.
sw hub os raw :ChanServ MODE $1 +Gf [3t#b]:2
%chans = #help,#mynet_lezbiyen,#mynet_gay,#mynet_cinsellik,#mynet_ankara,#mynet_istanbul,#mynet_izmir,#mynet_eskisehir,#mynet_bursa
if (!$istok(%chans,$removenums($1),44)) {
sw hub os raw :ChanServ MODE $1 +l 300
sw hub os raw :ChanServ MODE $1 -L
}
sw hub MODE $1 +b
}
; chan nickmask
alias _system.partedme {
}
; #chan mask
alias _system.joined {
if ($botfnick($2) == Service_Bot) {
_servicebot mode $1 +o Service_Bot
return
}
_delop $1 $botfnick($2)
if ($isproxy($2)) {
sw hub GZLINE $botfnick($2) 1h Proxy ile giris tespit edildi.
msg #mynet #4# 12 proxy: $1- ::: $2
return
}
hinc -mu30 joinflood $+($1,$_mask($2)) 1
if ($catchmultiple($botfnick($2))) {
hinc -mu10 cmultiple $+($catchmultiple($botfnick($2)),$1,$_mask($2)) 1
if ($hget(cmultiple,$+($catchmultiple($botfnick($2)),$1,$_mask($2))) == 3) {
sw hub GZLINE $botfnick($2) 1h Agresif durum tespiti yapilmistir.
msg #mynet #1# 5catched multiple: $1-
}
}
if ($_tnick($botfnick($2))) {
hinc -mu5 tnick $+($1,$_tnick($botfnick($2))) 1
if ($hget(tnick,$+($1,$_tnick($botfnick($2)))) >= 5) {
msg #mynet tnick > $1 >> $2
sw hub GZLINE $botfnick($2) 1h Agresif durum tespiti yapilmistir.
}
}
if ($hget(joinflood,$+($1,$_mask($2))) == 6) {
sw hub GZLINE $botfnick($2) 1h Agresif durum tespiti yapilmistir.
msg #mynet join flood: $1-
return
}
if ($isbad($botfnick($2))) {
sw hub MODE $1 +b $ifmatch
sw hub KICK $1 $botfnick($2) :Rumuzunuz kanallarimizda sohbet etmek icin uygun bulunmamistir. Lutfen degistiriniz.
hinc -u180 kickflood $votemask($_mask($2)) 1
if ($hget(kickflood,$votemask($_mask($2))) >= 5) {
_set $+(ban,$botfnick($2)) $1
sw hub userip $botfnick($2)
}
}
if ($islongnick($botfnick($2))) {
sw hub MODE $1 +b $ifmatch
sw hub KICK $1 $botfnick($2) :Rumuzunuz ayni karakterden cok fazla iceriyor. Lutfen degistiriniz.
hinc -u180 kickflood $votemask($_mask($2)) 1
if ($hget(kickflood,$votemask($_mask($2))) >= 5) {
_set $+(ban,$botfnick($2)) $1
sw hub userip $botfnick($2)
}
}
if ($isallnum($botfnick($2))) {
sw hub MODE $1 +b $ifmatch
sw hub KICK $1 $botfnick($2) :Rumuzunuzda cok sayida rakam bulunmaktadir. Lutfen degistiriniz.
hinc -u180 kickflood $votemask($_mask($2)) 1
if ($hget(kickflood,$votemask($_mask($2))) >= 5) {
_set $+(ban,$botfnick($2)) $1
sw hub userip $botfnick($2)
}
}
if (guest* iswm $botfnick($2)) {
guestban $1
}
; sw $sockname PRIVMSG $botfnick($2) :2Sizin de bir oyunuz var! 6Kanal genelinde 4atilsin atilacakrumuz6 yazarak huzursuzluk cikartan kisilerin atilmasi icin oy verebilirsiniz. 2Mynet Sohbet, yeni sisteminde kanal kontrollerini kullanicilarina veriyor. Her kanal icin 5 oy, bir kullaniciyi uzaklastirir. 4-Mynet-
}
alias _system.parted {
_delop $1 $botfnick($2)
_checkvote $botfnick($2) $1
}
alias guestban {
if (!$_get($+(guestban,$1))) {
_set -u10 $+(guestban,$1)
sw hub mode $1 +b ~q:guest*!*@*
}
}
alias _linedance {
if ($timer(.line.dance. $+ $cid) == $null) {
hadd -m mynet.qcommand count. $+ $cid 1
hadd -m mynet.qcommand 1. $+ $cid $1-
_dolinedance 1
}
else {
hinc -m mynet.qcommand count. $+ $cid
hadd -m mynet.qcommand $hget(mynet.qcommand,count. $+ $cid) $+ . $+ $cid $1-
}
}
alias _dolinedance {
if ($hget(mynet.qcommand,$1 $+ . $+ $cid) != $null) {
var %data = $ifmatch
.timer.line.dance. $+ $cid -m 1 $calc(1500 - $gettok(1250 1000 750 500 250,$1,32)) _dolinedance $calc($1 + 1)
%data
}
else hdel -w mynet.qcommand *. $+ $cid