IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý
  sohbet

Yeni Konu aç Konu Kapatýlmýþtýr
 
LinkBack Seçenekler Stil
Alt 12 Temmuz 2009, 01:17   #1
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Mynet MerLyn - Son Güncel Olaný Isteyenler




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 (%<= $lines(chans.txt)) {
    if (
$left($read(chans.txt,%i),1) == $chr(35)) {
      
hadd -m globchans $read(chans.txt,%i1
      
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 $
== 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 ($
== create) {
    
sw hub os raw nick Service_Bot 1 1 services mynet.com services.mynet.com :Services Bot
  
}
  elseif ($
== joinall) {
    var %
1
    
while (%<= $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 %
1
  
while (%<= $hget(globchans,0).item) {
    
sw hub SAJOIN $cfg(me$lower($hget(globchans,%j).item)
    
inc %j
  
}
  var %
1
  
while (%<= $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 ($== PING) {
    
sw $sockname PONG $2-
  }
  if (($
== 376) || ($== 422)) {
    
_hub.connected
  
}
  if ($
== 322) {
    if ($
5 isnum) {
      if ($
$cfg(muser)) {
        if ((
#mynet_* iswm $4) && !$hget(globchans,$4)) {
          
return
        }
        
sw $sockname SAJOIN $cfg(me$lower($4)
      }
      elseif (!
$hget(globchans,$4) && ($!= $cfg(masterchan)) && !$hget(privaterooms,$4)) {
        
sw $sockname PART $4
      
}
    }
    
halt
  
}
  if ($
== 323) {
    echo -
list done...
  }
  if ($
== 381) {
    
sw $sockname KILL $cfg(me) :system reconnecting... (MerLyn)
    .
timernchange -i 1 5 sw $sockname NICK $cfg(me)
  }
  if ($
== 600) {
    if (($
== ChanServ) && ($8- == :logged online)) {
      
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
    }
    if (($
== Service_Bot) && ($8- == :logged online)) {
      .
timer 1 2 _servicebot joinall
    
}
  }
  if ($
== 353) {
    
_set nameschan $5
    _set 
$+(names,$5$right($6-,-1)
    var %
1
    
while (%<= $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 bulunmamistirLutfen 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 iceriyorLutfen 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 bulunmaktadirLutfen degistiriniz.
        }
        if (
guestiswm $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 ($
== 366) {
    if (
$_get($+(massv,$4))) {
      
_unset $+(massv,$4)
    }
    if (
$_get($+(massdv,$4))) {
      
_unset $+(massdv,$4)
    }
  }
  if ($
== 367) {
    
_set $+(banlist,$4$addtok($_get($+(banlist,$4)),$5,32)
    if (
$numtok($_get($+(banlist,$4)),32) == 10) {
      
sw $sockname MODE $$+(-,$str(b,10)) $_get($+(banlist,$4))
      
_unset $+(banlist,$4)
    }
  }
  if ($
== 368) {
    
sw $sockname MODE $$+(-,$str(b,10)) $_get($+(banlist,$4))
    
_unset $+(banlist,$4)
  }
  if ($
== 319) {
    var %
1
    
while (%<= $numtok($5-,32)) {
      if 
$hget($+(votekick-,$_get($+(oldnick,$4))),$nochanprefix($gettok($5-,%c,32))) >= {
        ;
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)) +$4
        sw $sockname KICK $nochanprefix
($gettok($5-,%c,32)) $:Rumuzunuz kanallarimizda sohbet etmek icin uygun bulunmamistirLutfen degistiriniz.
      }
      if (
$islongnick($4)) {
        
sw $sockname MODE $nochanprefix($gettok($5-,%c,32)) +$4
        sw $sockname KICK $nochanprefix
($gettok($5-,%c,32)) $:Rumuzunuz ayni karakterden cok fazla iceriyorLutfen degistiriniz.
      }
      if (
$isallnum($4)) {
        
sw $sockname MODE $nochanprefix($gettok($5-,%c,32)) +$4
        sw $sockname KICK $nochanprefix
($gettok($5-,%c,32)) $:Rumuzunuzda cok sayida rakam bulunmaktadirLutfen degistiriniz.
      }
      
inc %
    
}
  }
  if ($
== 478) {
    if (!
$hget(banlist,$4)) {
      
hinc -mu20 banlist $4 1
      sw $sockname MODE 
$+b
    
}
  }
  if ($
== 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 ($
== 401) {
    if ($
5- == :No such nick/channel) {
      if (
$hget($+(votekick-,$4))) {
        
hfree $+(votekick-,$4)
        var %
1
        
while (%<= $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 cekiyorsanizsagdaki rumuz listesindenrumuza sag tikla***** atilsin oyu veriniz.
          
inc %v 1
        
}
      }
    }
  }
  if (
598 isin $1-) {
    ;    echo -
s 4 $1-
  }
  if ($
== KICK) {
    if (
$botfnick($1) != $cfg(me)) {
      ;     
sw $sockname NOTICE $botfnick($1) :2(AlternatifKullanicilari kanal genelinde 4kickban rumuz2 yazarakta uzaklastirabilirsinizDaha fazla bilgi icin ozelime 4kanal komutlari2 yaziniz.
    }
    if (($
== $cfg(me)) && ($botfnick($1) != ChanServ && CLEARCHAN by* !iswm $4-)) {
      
sw $sockname SAJOIN $cfg(me$lower($3)
    }
  }
  if ($
== MODE) {
    if (
$botfnick($1) != $cfg(me)) {
      
sw $sockname os raw :ChanServ MODE $+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 $+l 300
          sw $sockname os raw 
:ChanServ MODE $-L
        
}
      }
    }
    if (($
== +o) || ($== +q) || ($== +a) || ($== +oa) || ($== +qa) || ($== +ao) || ($== +aq) || ($== +oq)) {
      
_addop $$5
    
}
    if (($
== -o) || ($== -q) || ($== -a)) {
      
_delop $$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 ($
== NICK) {
    
_set nick2 $right($3,-1)
    
_set nick1 $botfnick($1)
    
_set $+(oldnick,$_get(nick2)) $_get(nick1)
    
hinc -mu30 nickflood $_mask($11
    hinc 
-mu120 nickfloodx $_mask($11
    
if (($hget(nickflood,$_mask($1)) >= 4) || ($hget(nickfloodx,$_mask($1)) >= 6))  {
      
sw hub GZLINE $right($3,-110h 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($mereconnecting... (MerLyn)
      .
timer 1 1 sw $sockname NICK $cfg(me)
    }
    else {
      
sw $sockname WHOIS $_get(nick2)
    }
  }
  if (($
== NOTICE) && ($== $cfg(me))) {
    if (
$botfnick($1) == MemoServ) {
      ;      echo -
s 6 $1-
    }
    if (
$botfnick($1) == ChanServ) {
      if (*
kaydedilmistiriswm $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 %$+ . Kanalinizin sifresini e-mail adresinize almak icin, /cs sendpass $remove($strip($4),:) yaziniz.
        }
      }
      if (*
kayitli bir nick degiliswm $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 verdikfakat daha once bir baskasi tarafindan kaydedildigi icinrumuzunuzun uzerine atamadik %$+ . 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 sifreiswm $4-) {
        
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
      }
    }
  }
  if (($
== PRIVMSG) || ($== NOTICE)) {
    if (
$left($3,1) == $chr(35)) {
      
_system.privmsgchan $$1 $right($4-,-1)
    }
    elseif ($
== $cfg(me)) {
      
_system.privmsgme $1 $right($4-,-1)
    }
  }
  if ($
== JOIN) {
    if (
$botfnick($1) == $cfg(me)) {
      
_system.joinedme $right($3,-1)
    }
    else {
      
_system.joined $right($3,-1) $1
    
}
  }
  if ($
== PART) {
    if (
$botfnick($1) == $cfg(me)) {
      
_system.partedme $3
    
}
    else {
      
_system.parted $$1
    
}
  }
  if ($
== QUIT) {
    if (
$botfnick($1) == Service_Bot) {
      
_servicebot create
    
}
  }
  if (
chanserv isin $1-) {
    ;    echo -
$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 (!$|| %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 && %skip isnum) {
      %
result $calc(%skip + %result)
      %
line = %skip
    
}
    ; 
peki ya toplam satir sayisindan buyukse?
    if (%
result > %count) {
      %
result = %count
    
}
    ; 
son kontroleger 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 %
1
    
while (%<= 4) {
      if (
$regml(vfip, %i) < || $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,99999999Mynet sohbet
  
.timer 1 5 hdel ozelkanalbasvuru $1
  
.timer 1 6 hsave ozelkanalbasvuru ozelkanalbasvuru.table
}
alias _ozelkanalred {
  
sw hub ms send $2 Ozel kanal basvurunuzkurallarimiza uymadigi icin reddedilmistir $$+ . Bu kanal icin tekrar bir basvuru yapamayacaksiniz.
  
hdel ozelkanalbasvuru $1
  hsave ozelkanalbasvuru ozelkanalbasvuru
.table
  hadd 
-m ozelkanalbasvurured $.
  
hsave ozelkanalbasvurured ozelkanalbasvurured.table
}
#chan nick message
alias _system.privmsgchan {
  if (
#mynet_* iswm $1) {
    
;  sw hub mode $+m
  
}
  
/**
  * Opers Komutlari - GooXip
  *
  */ 
  
if ($== #Opers) {
    
if ($== .sajoin) {
      if ($
&& $left($51) == #) {
        
sw hub SAJOIN $$5
        
return
      }
      else {
        
sw hub PRIVMSG $:Lutfen komutu .sajoin nick #kanal seklinde kullanin
        
return
      }
    }
    if ($
== .sapart) {
      if ($
&& $left($51) == #) {
        
sw hub SAPART $$5
        
return
      }
      else {
        
sw hub PRIVMSG $:Lutfen komutu .sapart nick #kanal seklinde kullanin
        
return
      }
    }
    if ($
== .basvuru) {
      
_basvurular $$5
      
return
    }
    if ($
== .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($41) == #) {
        
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 ($
== .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($41) == #) {
        
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 ($
== .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 ($== $cfg(masterchan)) {
    ;    echo -
s 2 $1-
    if ($
== .addsw) {
      
hadd -m swear $r(1000,999999) $4-
      
hsave swear swear.table
      sw hub PRIVMSG 
$:Kufur maski eklendi: $4-
    }
    if ($
== .delsw) {
      
sw hub PRIVMSG $:Kufur maski silindi$hfind(swear,$4-,1,W).data
      hdel swear $hfind
(swear,$4-,1,W).data
      hsave swear swear
.table
    
}
    if ($
== .addbad) {
      
hadd -m badnick $r(1000,999999) $4
      hsave badnick badnick
.table
      sw hub PRIVMSG 
$:Badnick maski eklendi: $4
    
}
    if ($
== .delbad) {
      if (
$hfind(badnick,$4,1,W).data) {
        
hdel badnick $ifmatch
        hsave badnick badnick
.table
        sw $sockname PRIVMSG 
$:Badnick maski silindi ( $+ $ifmatch $+ ) $4
      
}
    }
    if ($
== .closeroom) {
      
privdel $+($chr(35),$4)
      
sw $sockname PRIVMSG $: $+ $+($chr(35),$4odasi kapatilmistir.
    }
  }
  ;; 
ozel komutlar 
  
else {
    if (
$_isop($1,$botfnick($2))) {
      if (!
$isprotect($strip($4))) {
        if ((
kickiswm $strip($3)) && $4-) {
          
sw hub KICK $1 $strip($4$iif($5-,$5-,Sebep belirtilmedi.)
        }
      }
      if ((
k?ckbaniswm $strip($3)) && $4-) {
        if (!
$isprotect($4)) {
          
sw hub MODE $+b $strip($4)
          
_kick $1 $strip($4$iif(,Sebep belirtilmedi.)
        }
      }
      if ((
vo?ceiswm $strip($3)) && $4-) {
        
sw hub MODE $$+(+,$str(v,$numtok($strip($4-),32))) $strip($4-)
      }
      if ((
devo?ceiswm $strip($3)) && $4-) {
        
sw hub MODE $$+(-,$str(v,$numtok($strip($4-),32))) $strip($4-)
      }
      if (
unbaniswm $strip($3)) {
        
sw hub MODE $+b
      
}
      if (
deopiswm $strip($3)) {
        
sw hub MODE $-o $botfnick($strip($2))
      }
      if (
$strip($3) == massv) {
        
_set $+(massv,$1ok
        sw hub NAMES 
$1
      
}
      if (
$strip($3) == massdv) {
        
_set $+(massdv,$1ok
        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 -
$1-
      }
      if (!
$isprotect($2) && !$_isop($1,$botfnick($2))) {
        ; 
saldiri kontrol asamasi
        
if ($len($strip($3-)) > 20) {
          
hinc -mu5 spamfilterc $hash($strip($_dellast($3-)),321
          
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($21h Saldiri/flood girisimi tespit edildi.
          }
        }
        if (
$ccolor($replace($3-,$chr(44),^)) && ($chr(3isin $3-)) {
          
hinc -u200 chanflood $+(color,$botfnick($2)) 1
          
if ($hget(chanflood,$+(color,$botfnick($2))) == 3) {
            
_kick $$2 Genel yazismalarinizda rahatsiz edecek bicimde arka plan kullandiniz.
          }
          if (
$hget(chanflood,$+(color,$botfnick($2))) == 6) {
            
sw $sockname GZLINE $botfnick($21h Saldiri/flood girisimi tespit edildi.
            return 
          }
        }
        if (
$checkspaces($3-)) {
          
_kick $$2 Yazismalariniz kanal geneline uygun bulunmamistir.
          return
        }
        if (
$checknonalphanumeric($3-) == kick) {
          
_kick $$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),$11
          
if $hget(chanflood,$+(nonalpha,$_mask($2),$1)) >= 16 || $hget(chanflood,$+(nonalpha2,$_mask($2),$1)) >= {
            echo -
a nonalpha: $1-
            
_kick $$2 Yazismalariniz kanal geneline uygun bulunmamistir.
            
sw $sockname GZLINE $botfnick($21h Saldiri/flood girisimi tespit edildi.
            return
          }
        }
        if (
$checkletters($3-)) {
          
_kick $$2 Yazismalariniz kanal geneline uygun bulunmamistir.
          return
        }
        if (
$regex($3-,/[A-Z]/g) >= 30) {
          
_kick $$2 Cok sayida buyuk harf kullandiniz..
          return
        }
        if (
$issw($3-)) {
          
_kick $$2 Kanal genelindeki duzeysiz konusmalariniz sebebiyle uzaklastirildiniz.
          return
        }
        if (
$regex($3-,/([[:print:]])\1\1/ig) >= 10) {
          
_kick $$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 


Sistemin çalýþýr hali control botlar ile beraber isteðe göre yakýnda yayýnlanacaktýr. iyi forumlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.


}

 

IRCForumlari.NET Reklamlar
sohbet odalarý sohbet odalarý Benimmekan Mobil Sohbet
Alt 12 Temmuz 2009, 04:48   #2
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




Tam dosyalarý ile at bari de insanlar yararlansýn ?
Ve dikkatimi çeken birþey daha
**
* GooXip Tarafindan Duzenlenmistir.

Bu kýsmý oynamýssýnýz Burda emeði gecen insanýn nicki deðiþtirilmiþ. Gooxip deðil goxxip olucak..

+ Bu Botun Z-Bot tan farký yok Z-Bot daya iyi.
Bunda sadece bir özelodalar için onay
ve myopers den kullanýlan komutlar ; goxxip ( Çaðrýnýn ) nýn yapmýþ olduðu edit var.

Hani diyorladý Default , Leader , CoCoRiCo
sizler neler yapdýnýz mynet için ;

Ýþde adamlarýn yaptýklarý ; kodlarda adamlarýn satýr satýr emekleri var

Tam hali ile yayýnlarsan herkez teþekkür eder diye düþünüyorum..


Konu ATLAS tarafýndan (12 Temmuz 2009 Saat 04:56 ) deðiþtirilmiþtir.
 

Alt 12 Temmuz 2009, 12:11   #3
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




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 (%<= $lines(chans.txt)) {
    if (
$left($read(chans.txt,%i),1) == $chr(35)) {
      
hadd -m globchans $read(chans.txt,%i1
      
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 $
== 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 ($
== create) {
    
sw hub os raw nick Service_Bot 1 1 services mynet.com services.mynet.com :Services Bot
  
}
  elseif ($
== joinall) {
    var %
1
    
while (%<= $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 %
1
  
while (%<= $hget(globchans,0).item) {
    
sw hub SAJOIN $cfg(me$lower($hget(globchans,%j).item)
    
inc %j
  
}
  var %
1
  
while (%<= $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 ($== PING) {
    
sw $sockname PONG $2-
  }
  if (($
== 376) || ($== 422)) {
    
_hub.connected
  
}
  if ($
== 322) {
    if ($
5 isnum) {
      if ($
$cfg(muser)) {
        if ((
#mynet_* iswm $4) && !$hget(globchans,$4)) {
          
return
        }
        
sw $sockname SAJOIN $cfg(me$lower($4)
      }
      elseif (!
$hget(globchans,$4) && ($!= $cfg(masterchan)) && !$hget(privaterooms,$4)) {
        
sw $sockname PART $4
      
}
    }
    
halt
  
}
  if ($
== 323) {
    echo -
list done...
  }
  if ($
== 381) {
    
sw $sockname KILL $cfg(me) :system reconnecting... (MerLyn)
    .
timernchange -i 1 5 sw $sockname NICK $cfg(me)
  }
  if ($
== 600) {
    if (($
== ChanServ) && ($8- == :logged online)) {
      
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
    }
    if (($
== Service_Bot) && ($8- == :logged online)) {
      .
timer 1 2 _servicebot joinall
    
}
  }
  if ($
== 353) {
    
_set nameschan $5
    _set 
$+(names,$5$right($6-,-1)
    var %
1
    
while (%<= $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 bulunmamistirLutfen 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 iceriyorLutfen 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 bulunmaktadirLutfen degistiriniz.
        }
        if (
guestiswm $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 ($
== 366) {
    if (
$_get($+(massv,$4))) {
      
_unset $+(massv,$4)
    }
    if (
$_get($+(massdv,$4))) {
      
_unset $+(massdv,$4)
    }
  }
  if ($
== 367) {
    
_set $+(banlist,$4$addtok($_get($+(banlist,$4)),$5,32)
    if (
$numtok($_get($+(banlist,$4)),32) == 10) {
      
sw $sockname MODE $$+(-,$str(b,10)) $_get($+(banlist,$4))
      
_unset $+(banlist,$4)
    }
  }
  if ($
== 368) {
    
sw $sockname MODE $$+(-,$str(b,10)) $_get($+(banlist,$4))
    
_unset $+(banlist,$4)
  }
  if ($
== 319) {
    var %
1
    
while (%<= $numtok($5-,32)) {
      if 
$hget($+(votekick-,$_get($+(oldnick,$4))),$nochanprefix($gettok($5-,%c,32))) >= {
        ;
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)) +$4
        sw $sockname KICK $nochanprefix
($gettok($5-,%c,32)) $:Rumuzunuz kanallarimizda sohbet etmek icin uygun bulunmamistirLutfen degistiriniz.
      }
      if (
$islongnick($4)) {
        
sw $sockname MODE $nochanprefix($gettok($5-,%c,32)) +$4
        sw $sockname KICK $nochanprefix
($gettok($5-,%c,32)) $:Rumuzunuz ayni karakterden cok fazla iceriyorLutfen degistiriniz.
      }
      if (
$isallnum($4)) {
        
sw $sockname MODE $nochanprefix($gettok($5-,%c,32)) +$4
        sw $sockname KICK $nochanprefix
($gettok($5-,%c,32)) $:Rumuzunuzda cok sayida rakam bulunmaktadirLutfen degistiriniz.
      }
      
inc %
    
}
  }
  if ($
== 478) {
    if (!
$hget(banlist,$4)) {
      
hinc -mu20 banlist $4 1
      sw $sockname MODE 
$+b
    
}
  }
  if ($
== 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 ($
== 401) {
    if ($
5- == :No such nick/channel) {
      if (
$hget($+(votekick-,$4))) {
        
hfree $+(votekick-,$4)
        var %
1
        
while (%<= $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 cekiyorsanizsagdaki rumuz listesindenrumuza sag tikla***** atilsin oyu veriniz.
          
inc %v 1
        
}
      }
    }
  }
  if (
598 isin $1-) {
    ;    echo -
s 4 $1-
  }
  if ($
== KICK) {
    if (
$botfnick($1) != $cfg(me)) {
      ;     
sw $sockname NOTICE $botfnick($1) :2(AlternatifKullanicilari kanal genelinde 4kickban rumuz2 yazarakta uzaklastirabilirsinizDaha fazla bilgi icin ozelime 4kanal komutlari2 yaziniz.
    }
    if (($
== $cfg(me)) && ($botfnick($1) != ChanServ && CLEARCHAN by* !iswm $4-)) {
      
sw $sockname SAJOIN $cfg(me$lower($3)
    }
  }
  if ($
== MODE) {
    if (
$botfnick($1) != $cfg(me)) {
      
sw $sockname os raw :ChanServ MODE $+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 $+l 300
          sw $sockname os raw 
:ChanServ MODE $-L
        
}
      }
    }
    if (($
== +o) || ($== +q) || ($== +a) || ($== +oa) || ($== +qa) || ($== +ao) || ($== +aq) || ($== +oq)) {
      
_addop $$5
    
}
    if (($
== -o) || ($== -q) || ($== -a)) {
      
_delop $$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 ($
== NICK) {
    
_set nick2 $right($3,-1)
    
_set nick1 $botfnick($1)
    
_set $+(oldnick,$_get(nick2)) $_get(nick1)
    
hinc -mu30 nickflood $_mask($11
    hinc 
-mu120 nickfloodx $_mask($11
    
if (($hget(nickflood,$_mask($1)) >= 4) || ($hget(nickfloodx,$_mask($1)) >= 6))  {
      
sw hub GZLINE $right($3,-110h 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($mereconnecting... (MerLyn)
      .
timer 1 1 sw $sockname NICK $cfg(me)
    }
    else {
      
sw $sockname WHOIS $_get(nick2)
    }
  }
  if (($
== NOTICE) && ($== $cfg(me))) {
    if (
$botfnick($1) == MemoServ) {
      ;      echo -
s 6 $1-
    }
    if (
$botfnick($1) == ChanServ) {
      if (*
kaydedilmistiriswm $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 %$+ . Kanalinizin sifresini e-mail adresinize almak icin, /cs sendpass $remove($strip($4),:) yaziniz.
        }
      }
      if (*
kayitli bir nick degiliswm $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 verdikfakat daha once bir baskasi tarafindan kaydedildigi icinrumuzunuzun uzerine atamadik %$+ . 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 sifreiswm $4-) {
        
sw $sockname PRIVMSG NickServ IDENTIFY $cfg(nickpass)
      }
    }
  }
  if (($
== PRIVMSG) || ($== NOTICE)) {
    if (
$left($3,1) == $chr(35)) {
      
_system.privmsgchan $$1 $right($4-,-1)
    }
    elseif ($
== $cfg(me)) {
      
_system.privmsgme $1 $right($4-,-1)
    }
  }
  if ($
== JOIN) {
    if (
$botfnick($1) == $cfg(me)) {
      
_system.joinedme $right($3,-1)
    }
    else {
      
_system.joined $right($3,-1) $1
    
}
  }
  if ($
== PART) {
    if (
$botfnick($1) == $cfg(me)) {
      
_system.partedme $3
    
}
    else {
      
_system.parted $$1
    
}
  }
  if ($
== QUIT) {
    if (
$botfnick($1) == Service_Bot) {
      
_servicebot create
    
}
  }
  if (
chanserv isin $1-) {
    ;    echo -
$1-
  }
}
;Do 
EDIT ozel kanallar..
/**
* goXXip 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 (!$|| %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 && %skip isnum) {
      %
result $calc(%skip + %result)
      %
line = %skip
    
}
    ; 
peki ya toplam satir sayisindan buyukse?
    if (%
result > %count) {
      %
result = %count
    
}
    ; 
son kontroleger 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
  
}
}
/**
* goXXip 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 %
1
    
while (%<= 4) {
      if (
$regml(vfip, %i) < || $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,99999999Mynet sohbet
  
.timer 1 5 hdel ozelkanalbasvuru $1
  
.timer 1 6 hsave ozelkanalbasvuru ozelkanalbasvuru.table
}
alias _ozelkanalred {
  
sw hub ms send $2 Ozel kanal basvurunuzkurallarimiza uymadigi icin reddedilmistir $$+ . Bu kanal icin tekrar bir basvuru yapamayacaksiniz.
  
hdel ozelkanalbasvuru $1
  hsave ozelkanalbasvuru ozelkanalbasvuru
.table
  hadd 
-m ozelkanalbasvurured $.
  
hsave ozelkanalbasvurured ozelkanalbasvurured.table
}
#chan nick message
alias _system.privmsgchan {
  if (
#mynet_* iswm $1) {
    
;  sw hub mode $+m
  
}
  
/**
  * Opers Komutlari - goXXip
  *
  */ 
  
if ($== #Opers) {
    
if ($== .sajoin) {
      if ($
&& $left($51) == #) {
        
sw hub SAJOIN $$5
        
return
      }
      else {
        
sw hub PRIVMSG $:Lutfen komutu .sajoin nick #kanal seklinde kullanin
        
return
      }
    }
    if ($
== .sapart) {
      if ($
&& $left($51) == #) {
        
sw hub SAPART $$5
        
return
      }
      else {
        
sw hub PRIVMSG $:Lutfen komutu .sapart nick #kanal seklinde kullanin
        
return
      }
    }
    if ($
== .basvuru) {
      
_basvurular $$5
      
return
    }
    if ($
== .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($41) == #) {
        
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 ($
== .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($41) == #) {
        
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 ($
== .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 ($== $cfg(masterchan)) {
    ;    echo -
s 2 $1-
    if ($
== .addsw) {
      
hadd -m swear $r(1000,999999) $4-
      
hsave swear swear.table
      sw hub PRIVMSG 
$:Kufur maski eklendi: $4-
    }
    if ($
== .delsw) {
      
sw hub PRIVMSG $:Kufur maski silindi$hfind(swear,$4-,1,W).data
      hdel swear $hfind
(swear,$4-,1,W).data
      hsave swear swear
.table
    
}
    if ($
== .addbad) {
      
hadd -m badnick $r(1000,999999) $4
      hsave badnick badnick
.table
      sw hub PRIVMSG 
$:Badnick maski eklendi: $4
    
}
    if ($
== .delbad) {
      if (
$hfind(badnick,$4,1,W).data) {
        
hdel badnick $ifmatch
        hsave badnick badnick
.table
        sw $sockname PRIVMSG 
$:Badnick maski silindi ( $+ $ifmatch $+ ) $4
      
}
    }
    if ($
== .closeroom) {
      
privdel $+($chr(35),$4)
      
sw $sockname PRIVMSG $: $+ $+($chr(35),$4odasi kapatilmistir.
    }
  }
  ;; 
ozel komutlar 
  
else {
    if (
$_isop($1,$botfnick($2))) {
      if (!
$isprotect($strip($4))) {
        if ((
kickiswm $strip($3)) && $4-) {
          
sw hub KICK $1 $strip($4$iif($5-,$5-,Sebep belirtilmedi.)
        }
      }
      if ((
k?ckbaniswm $strip($3)) && $4-) {
        if (!
$isprotect($4)) {
          
sw hub MODE $+b $strip($4)
          
_kick $1 $strip($4$iif(,Sebep belirtilmedi.)
        }
      }
      if ((
vo?ceiswm $strip($3)) && $4-) {
        
sw hub MODE $$+(+,$str(v,$numtok($strip($4-),32))) $strip($4-)
      }
      if ((
devo?ceiswm $strip($3)) && $4-) {
        
sw hub MODE $$+(-,$str(v,$numtok($strip($4-),32))) $strip($4-)
      }
      if (
unbaniswm $strip($3)) {
        
sw hub MODE $+b
      
}
      if (
deopiswm $strip($3)) {
        
sw hub MODE $-o $botfnick($strip($2))
      }
      if (
$strip($3) == massv) {
        
_set $+(massv,$1ok
        sw hub NAMES 
$1
      
}
      if (
$strip($3) == massdv) {
        
_set $+(massdv,$1ok
        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 -
$1-
      }
      if (!
$isprotect($2) && !$_isop($1,$botfnick($2))) {
        ; 
saldiri kontrol asamasi
        
if ($len($strip($3-)) > 20) {
          
hinc -mu5 spamfilterc $hash($strip($_dellast($3-)),321
          
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($21h Saldiri/flood girisimi tespit edildi.
          }
        }
        if (
$ccolor($replace($3-,$chr(44),^)) && ($chr(3isin $3-)) {
          
hinc -u200 chanflood $+(color,$botfnick($2)) 1
          
if ($hget(chanflood,$+(color,$botfnick($2))) == 3) {
            
_kick $$2 Genel yazismalarinizda rahatsiz edecek bicimde arka plan kullandiniz.
          }
          if (
$hget(chanflood,$+(color,$botfnick($2))) == 6) {
            
sw $sockname GZLINE $botfnick($21h Saldiri/flood girisimi tespit edildi.
            return 
          }
        }
        if (
$checkspaces($3-)) {
          
_kick $$2 Yazismalariniz kanal geneline uygun bulunmamistir.
          return
        }
        if (
$checknonalphanumeric($3-) == kick) {
          
_kick $$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),$11
          
if $hget(chanflood,$+(nonalpha,$_mask($2),$1)) >= 16 || $hget(chanflood,$+(nonalpha2,$_mask($2),$1)) >= {
            echo -
a nonalpha: $1-
            
_kick $$2 Yazismalariniz kanal geneline uygun bulunmamistir.
            
sw $sockname GZLINE $botfnick($21h Saldiri/flood girisimi tespit edildi.
            return
          }
        }
        if (
$checkletters($3-)) {
          
_kick $$2 Yazismalariniz kanal geneline uygun bulunmamistir.
          return
        }
        if (
$regex($3-,/[A-Z]/g) >= 30) {
          
_kick $$2 Cok sayida buyuk harf kullandiniz..
          return
        }
        if (
$issw($3-)) {
          
_kick $$2 Kanal genelindeki duzeysiz konusmalariniz sebebiyle uzaklastirildiniz.
          return
        }
        if (
$regex($3-,/([[:print:]])\1\1/ig) >= 10) {
          
_kick $$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



 

Alt 12 Temmuz 2009, 13:26   #4
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




AtLaS Nickli Üyeden Alýntý
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
Tam dosyalarý ile at bari de insanlar yararlansýn ?
.

katýlýyorum.

 

Alt 12 Temmuz 2009, 14:35   #5
Nickolas
Guest
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




en azýndan nickimi düzeltmiþsin saðol
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

 

Alt 12 Temmuz 2009, 15:39   #6
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




Ne iþe yarar, ne gibi bir özellik. açýklasan bide
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

__________________
n/a
 

Alt 12 Temmuz 2009, 17:31   #7
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




Botun tamamýný isteyenler bana özel pm atabilirler.

 

Alt 12 Temmuz 2009, 17:50   #8
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




Link verseniz daha ii olurdu (:

 

Alt 12 Temmuz 2009, 18:48   #9
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




direk burdan lýnk verýlse ne gýbý ýslevlerý var soylense daha ýyý olmazmýydý ?

__________________
Korkuyorsan yapma,
yapýyorsan korkma..

wake the fuck up samurai we have a city to burn..


Kullanýcý imzalarýndaki baðlantý ve resimleri görebilmek için en az 20 mesaja sahip olmanýz gerekir ya da üye giriþi yapmanýz gerekir.




 

Alt 12 Temmuz 2009, 19:12   #10
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mynet MerLyn - Son Güncel Olaný Isteyenler




AtLaS Nickli Üyeden Alýntý
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
Tam dosyalarý ile at bari de insanlar yararlansýn


AtLaS on numara yorum , aynen katýlýyorum.. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , isteyenler diyip botun 5de birini atmýþsýn. Atýyorsan hepsini atta teþekkür edelim.
AtLaS 'cým pm attým tþk..

 

Konu Kapatýlmýþtýr

Etiketler
guncel, isteyenler, merlyn, mirc download, mirc indir, mynet, olani, son


Konuyu Toplam 1 Üye okuyor. (0 Kayýtlý üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajýnýzý Deðiþtirme Yetkiniz Yok

BB code is Açýk
Smileler Açýk
[IMG] Kodlarý Açýk
HTML-Kodu Kapalý
Trackbacks are Kapalý
Pingbacks are Açýk
Refbacks are Açýk


Benzer Konular
Konu Konuyu Baþlatan Forum Cevaplar Son Mesaj
Mynet Merlyn, botu araniyor. Xpyhre IRCd Botlar 1 24 Temmuz 2013 06:20
mynet merlyn hakkýnda AutomatiC IRCd Botlar 4 06 Nisan 2012 15:47
Mynet Merlyn, Neutrum, Control_Bot Serisi + Proxykiller Son Halleri Lost mIRC Scripting Hazýr Kodlar 0 07 Eylül 2011 10:01