mIRCim.Net Türkçe mIRC, mIRC indir http://www.mircim.net Mon, 08 Mar 2010 21:42:44 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 mIRC Proxy Killer v.2 http://www.mircim.net/mirc-proxy-killer-v-2.html http://www.mircim.net/mirc-proxy-killer-v-2.html#comments Mon, 08 Mar 2010 21:42:44 +0000 mIRCim http://www.mircx.net/?p=473 Merhaba arkadaşlar mIRC serverleriniz için kullanabiliceğiniz güzel bir proxy koruma botu olan proxy killer v2  paylaşıma sunacağız ilk önce biraz tanımını yapmak gerekirse;
%100 proxy saldırılarını engellemektedir ve gerçek user ile proxy userini ayırt edebilme özelliğinede sahiptir.
Manuel tarama özelliğide mevcuttur, ircop olmanız şartıyla manuel arama yaptırabilirsiniz.
Not: Bu bir bot’tur scriptlerinize eklemeyeceksiniz, boş bir mirc oluşturup bu kodu oraya yükleyerek mirci açtığınızda sadece gerekli yerleri doldurucaksınız(Operpass, Nickpass vb.).
örnek çalışma sistemi;

[21:05] Proxy: 80 – 78.188.15.??? Type: tcp N\A: $true
[21:05] :sil:debug: :irc.mircx.net NOTICE ProxyKiller1 :You are not allowed to add a GZLINE on *@78.188.15.112
[21:05] :sil:debug: :irc.mircx.net NOTICE ProxyKiller1 :*** Notice — *** ProxyKiller1 tried to add a GZLINE on *@78.188.15.???

?View Code PHP
/*
****************************************
ProxyKiller v2.0 MN                    *
              Author by CoCoRiCo       *
---------------------------------------*
This protection is using on big network*
(M)ulti  (N)etwork  Proxy  scanner  and*
Sockbot  structure  on  mIRC 09/01/09  *
****************************************
 
## fonksiyonlar "/"Lı komutlar: ##
a     = Sunucu yüklemesi
b     = Tümüne baglan.
c     = Tümünü sıfırla
d     = Debug dışa aktarım
e     = Debug yansıtılacak pencere
f     = Dil ayarları (beta da yok)
g [ + @ -] | [ < > ]
      = Konfigurasyon işlemci fonsiyonu
l g - k]
      = X:line ceza fonsiyonu.
s     = Soket servis fonsiyonu
conf  = Ana ayar fonsiyonu
 
 
########## Konfigusaryon ###############
*/
 
;#konfig aliaslası:
;# RETURN den sonraki Bölümleri Sunucunuza göre düzenleyin.
;# örnek düzenlemeyi baz alarak ayarlarınızı yapın.

 
alias conf {
  GOTO $1
  :server {
 
    /*
    sunucu IP Adresleri..
    eger sunucunuz bir network ise linklerin ip adreslerini
    burada yan yana giriniz, örnekte 1+1 sunucu olarak ayarlanmıstır.
    */
    return 192.165.1.2:6667 192.168.1.3:7000
    ;return $a eger bir sunucu liste dosyası varsa bu kısmı kullanın ve digerini silin.
  }
  :nick {
  ; botun sunucuya girerken alacagı rastgele nicktir. Degişiklik yapmayınız.
    return $+($r(a,z),$r(a,z),$left($md5($ticks),$r(3,8)))
  }
  :me {
  /*
  Sunucunuzda işlemi yapacak olan robot adı,
  network'lerde bu link sayısına göre bot adının sonuna link
  sayısı kadar rakam alacaktır.
  */
    return  ProxyKiller
  }
  :ident {
  /*
   Botun server'a girerken alacagı identi belirler.
   Rastgeledir, Degişiklik yapmayınız(onerilen)
   */
    return $+($r(a,z),$r(a,z),$left($md5($ticks),$r(3,8)),@,syrix.net)
  }
  :usern {
    return $+(:,$read($script,3))
  }
  :nicpass {
  /*
  Eger kayıtlı bir bot rumuzu kullanacaksanız bu bölüme şifresini yazın
  */
    return nickpss
  }
  :operpass {
  /*
  Botun GZLINE - ZLINE yetkisine sahip OPER sifresi <operadi> <şifre>
  */
    return Admin operpass
  }
  :umodes {
  ; Unreal sunucular için bot userflagları, değiştirmeyiniz (önerilen)
    return +SsBRDc-G +sFSc
  }
  :excempt {
  /*
  Tarama  ve işleme tabi tutulmayacak IP adresleri
  */
    return 192.168.1.2 192.168.1.6
  }
  :banreason {
  /*
  Yasaklanan IP adreslerinin sebep kısmında görüntülenecek metin. (ilave olarak)
  */
    return Proxy yasaktir.
  }
  :domain {
  /*
  Network yada Server Domain adı
  */
    return mircscripting.net
  }
  :controthle {
    return 5
  }
  :prxport {
  /*
  Taranmasını istediginiz portları yan yana sıralayın,
  örnekler proxy sistemlerinden özenle ve en çok kullanılanlara bakılarak
  secilmiştir.
 
  Bazı kullanıcıların Modem leri 80 potuna fabrika ayarı olacak acıktır
  bot modem ve proxy kullanıcıyı ayır edecek yetenege sahiptir.
  */
    ;return 80 81 443 9090 3128 8080 8090 3124 3127 1080 25 5001 1214
    return 80 33 31 47 56 54 70 1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 3743 4095 4480 4747 5463 6588 7777 8080 8000 8001 8118 8888 8922  9090 10102 10777 10886 217745 26260 30247 31337 36417 39641 44322 49531 59759
  }
  :conport {
      return 443
  }
  :ajoin {
  /*
  Botun sunucuya girdiginde duracagı oda, Beta versiyonda işlevi sadece durmaktır.
  kararlı versiyonda bilgilendirme odası(ları) olarak kullanılacaktır.
  */
    return #deneme,#opers
  }
  :timeoutsec {
  /*
  Proxy adreslerin tarama işleminin her bir ip-port basına sürecegi
  zamanı belirtir, bu işlem süresi sonunda  yanıt alınamayan ip için işlem sona erecektir.(ban'lanmayacak)
  Bu adresten yeniden kullanıcı giriş yapmadıkca tarama gercekleşmez.
  */
    return 3
  }
  :dns {
    /*
    Adreslerin servis saglayıcı tarafından tutulan isimsel yada isimsel adreslerin (anumeric,numeric)
    fiziksel adres dönüşlerini görmek içindir.
    */
    ;1=acik \ 0=kapalı
    return 1
  }
  :cfile {
  /*
  Bir çok kaydın yer alacagı ayarların kayıt edilecegi konfigurasyon
  dosyasının adıdır.
  */
    return config.txt
  }
}
/*
############# Konfigurasyonun sonu ##############
## DİKkATT! BU KISIMDAN SONRA DÜZENLEME YAPMAK ##
## SİSTEMİN ÇALIŞMAMASINA YADA DURMASINA NEDEN ##
## NEDEN OLABİLİR..                           ##
#################################################
*/
 
alias a {
  var %a = 1
  while %a <= $ini($conf(cfile),servers,0) {
    %servers = $addtok(%servers,$readini($conf(cfile),servers,$+(n,%a)),32)
    inc %a
  }
  return  %servers
  unset %servers
}
alias b {
  var %s = 1
  while %s <= $gettok($conf(server),0,32) {
    if $sock($+($conf(me),%s)).status != active {
      $iif($sock($+($conf(me),%s)),.sockclose $sock($+($conf(me),%s)))
      if !$sock($+($conf(me),%s),1).name {
        $+(.timer,_ct,%s) 1 $calc($conf(controthle) + %s) .sockopen $+($conf(me),%s) $replace($gettok($conf(server),%s,32),$chr(58),$chr(32))
      }
    }
    inc %s
  }
}
alias c {
  sockclose $+(*,$conf(me),*)
  var %i = 1
  while %i <= $gettok($conf(server),0,32) {
    if !$sock($+($conf(me),%i),1).name {
      $+(.timer,_ctc,%i) 1 $calc($conf(controthle) + %i) .sockopen $+($conf(me),%i) $replace($gettok($conf(server),%i,32),$chr(58),$chr(32))
    }
    inc %i
  }
  .timer_c 0 10 b
}
alias d {
  if ($hget(debug,debug) == acik) {
    echo *** Debug Closed
    hadd -m debug debug kapali
    hsave -i debug $conf(cfile)
    e -c
    return
  }
  :b
  if ($hget(debug,debug) == kapali) {
    echo *** Debug Open
    hadd -m debug debug acik
    hsave -i debug $conf(cfile)
    return
  }
  if !$hget(debug,debug) {
    err Debug Config line missing..! Actualy standart debug config making.
    hadd -m debug debug acik
    hsave -i debug $conf(cfile)
    hload -i debug $conf(cfile)
    goto b
    return
  }
  if !$1 { hload -i debug $conf(cfile) }
  if $1 == -i && $2 && !$3 {
    if !$isalias($2) {
      err Aliases function not found!, Plaease make first aliases function then use this command!.
    }
    if $isalias($2) {
      hadd -m dalias debugal $2
      err *** Debug outputing $2 function.
    }
  }
}
alias e {
  if $hget(debug,debug) == acik {
    $iif(!$window($+(@db-,$1)),window -fen $+(@db-,$1),aline $+(@db-,$1) <-- $1- )
    $iif($hget(dalias,debugal),$hget(dalias,debugal) $1-)
  }
  if $1 == -c { close -@ }
}
alias f {
  ;flush alias
 
}
alias g {
  /*
  ;+
  if $1 == $chr(43) && $3 {
    hadd -m $2 $3-
    hsave -i $2 $conf(cfile)
    hload -i $2 $conf(cfile)
  }
  ;-
  if $1 == $chr(45) {
    hfree  $2 $3-
    hsave -i $2 $conf(cfile)
    hload -i $2 $conf(cfile)
  }
  ;@
  if $1 == $chr(64) { return $hget($2,$3-) }
  */
  ;<
  if $1 == $chr(60) { writeini $cofn(cfile) $1 $2- }
  ;<
  if $1 == $chr(62) { return $readini($cofn(cfile),$1,$2-) }
  if !$1  { hload -i c $conf(cfile) | echo *** Config file load }
  ;/
  if $1 == $chr(47) { hadd -m m $2- }
  ;\
  if $1 == $chr(92) { return $hget(m,$2) }
  ;!
  if $1 == $chr(33) { return hfree m }
 
}
alias l {
  ;ceza <1=sname> <2=time> <3=ip> <4=reason>
  ;cr only
  var %year = 525941
  var %month = 43829
  var %week = 10080
  var %day = 1440
  var %hour = 60
  var %min = 1
  if $right($2,1) == Y && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(y)) * %year) }
  if $right($2,1) == A && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(a)) * %month) }
  if $right($2,1) == W && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(w)) * %week) }
  if $right($2,1) == D && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(d)) * %day) }
  if $right($2,1) == H && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(h)) * %hour }
  if $right($2,1) == M && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(m)) * %min) }
  if $hget(Sver,Server) == CR {
    s $1 KLINE $3 $4- %exp
    s $1 AKILL $3 $4- %exp
    return
  }
  if $hget(Sver,Server) == Unreal {
    s $1 GZLINE $2 $3 $4
    return
  }
  else {
    s $1 KLINE $3 0 $4 -
  }
}
alias s {
  $iif($window(@db-,$1),echo $+(@db-,$1) ---> $1- )
  if $sock($1).status == active { sockwrite -nt $1- }
}
alias err {
  echo :: 4,8 DATA $1-
}
##Event
;on *:START: { c | g }
ON *:SOCKOPEN:*: {
  ;echo :: $sockerr
  ;###System open sock
  if $+(*,$conf(me),*) iswm $sockname {
    var %n $conf(nick)
    s $sockname NICK %n
    g / $sockname %n
    ; ident "domain" "ip" :user
    s $sockname USER $+($iif(!$gettok($conf(ident),1,$asc(@)),$conf(ident),$gettok($conf(ident),1,$asc(@))),$chr(32),",$iif(!$gettok($conf(ident),2,$asc(@)),$conf(domain),$gettok($conf(ident),2,$asc(@))),",$chr(32),",$iif(!$ip,127.0.0.1,$ip),",$chr(32),$conf(usern))
  }
  ;##proxy sock
  if *prx-* iswm $sockname {
    if ($sockerr) { sockclose $sockname | return }
    echo 2 Proxy: $chr(32)4Port: $sock($sockname).port - $sock($sockname).ip 4Type: $sock($sockname).type 4N\A: $portfree($sockerr)
    if $sock($sockname).port isin $conf(conport) {
      ;normal web
      s $sockname GET / HTTP/1.1
      s $sockname Host: $gettok($sockname,2,$asc(=)) $v2 $+ $str($crlf,2)
      s $sockname Referer: $+($conf(me),$chr(40),User:,$sockname,$chr(41))
      s $sockname User-Agent: Mozilla/4.6 [tr] $+($chr(40),Win,$os,;,$chr(32),I,$chr(41))
      /*
      s $sockname Accept-Encoding: gzip, deflate
      s $sockname Accept-Language: tr
      s $sockname Connection: Keep-Alive
      s $sockname Cache-Control: no-cache
      s $sockname $crlf
      */
      ;poxy connect
      s $sockname CONNECT $+(<acronym title="Internet Relay Chat">irc</acronym>.,$conf(domain),:666,$r(0,9)) HTTP/1.0 $str($crlf,2)
      s $sockname $crlf
      ;proxy web
      s $sockname GET $+(HTTP://,www.,$conf(domain),:,$v2) HTTP/1.0 $str($crlf,2)
      s $sockname $crlf
      /*
      */
    }
    if ($portfree($sockerr)) &amp;&amp; $sock($sockname).port !isin $conf(conport) {
      ;%D detayli - %S standart
      var %D $+($conf(BanReason),~,$gettok($sock($sockname).ip,1-3,$asc(.)),.,$str(*,$len($gettok($sock($sockname).ip,-1,46))),:,$sock($sockname).port)
      var %Q $conf(BanReason)
      ; echo :sil: 4s $gettok($sockname,1,$asc(~)) GZLINE  $+(*@,$sock($sockname).ip) 1d %D
      l $gettok($sockname,1,$asc(~))  $+(*@,$sock($sockname).ip) 1d %D
      .sockclose $+(*,$gettok($sockname,2,$asc(=)),*)
    }
  }
}
ON *:SOCKREAD:*: {
  var %s
  ;##system sock
  if $+(*,$conf(me),*) iswm $sockname {
    sockread %s
    tokenize 32 %s
    ;##DEBUG
    if $hget(debug,debug) == acik { e $sockname $1- }
    echo :sil:debug: $1-
    ;##PING!PONG?
    if $1 == PING { s $sockname PONG $2- }
    ;##RAWs
    if $2 isnum {
      if $2 == 001 {
        ;  g / $sockname $gettok($1-,-1,32)
      }
      if $2 == 004 {
        ;server version
        if *Unreal?.* iswm $2- { hadd -m Sver Server Unreal | return }
        if ConferenceRoom isin $2- { hadd -m Sver Server CR | return }
        else { hadd -m Sver Server diger | return }
      }
      if $2 == 005 {
        s $sockname OPER $conf(operpass)
        s $sockname JOIN 0,
        .timer 1 5 s $sockname JOIN $replace($conf(ajoin),$chr(44),$chr(32))
      }
      if $2 == 302 {
        ;user host
      }
      if $2 == 376 || $2 == 422 {
        ;end motd -  motd yok
      }
      if $2 == 381 {
        ;now oper
        s $sockname NICK  $sockname
        if $hget(Sver,Server) == CR { var %sj FJOIN | .timer 1 5 s $sockname UMODE +fc }
        if $hget(Sver,Server) == Unreal {
          var %sj SAJOIN $sockname
          .timers 1 5 s $sockname $conf(umodes)
        }
        else { var %sj JOIN }
        s $sockname %sj $replace($conf(ajoin),$chr(44),$chr(32))
      }
      if $2 == 491 || $2 == 464 {
        ;non oper
        err $sockname $1-
      }
      if $2 == 433 {
        ;nick in use
        err $2-
      }
    } ;end raw
 
    ;##SCOMMAND
    if $2 == NICK {
      if $remove($gettok($1,1,$asc(!)),:) == $g(\,$sockname) {
        ;bot nick &lt;$me&gt; function
        if $remove($3,:) != $g(\,$sockname) &amp;&amp; $+($conf(me),*) !iswm $remove($3,:) {
          g / $sockname $remove($3,:)
          if $sockname != $remove($3,:) {
            s $sockname NICK $sockname
            g / $sockname $remove($3,:)
          }
          $iif($g(\,$sockname) != $sockname,$+(.timer,$sockname) 0 5 s $sockname NICK $sockname)
        }
      }
      ; if $remove($3,:) != $g(\,$sockname) &amp;&amp; $+($conf(me),*) == $remove($3,:) { err :no:19  }
      else {
        ;end more
      }
    } ;#end Scommands

    ;##SNOTICE
    if *Notice*--*Client*connecting*on*port* iswm $5- {
      var %ip = $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64))
      ;server ip noscan - excemp ip'ler
      if !$regex($conf(server),(%pi)) &amp;&amp; !$regex($conf(excempt),(%pi)) {
        var %pi = 1
        while (%pi &lt;= $gettok($conf(prxport),0,32)) {
          var %ki = $gettok($conf(prxport),%pi,32)
          var %pxn = $+($sockname,~prx-,%ki,=,%ip)
          if !$sock(%pxn,1).name {
            sockopen %pxn %ip %ki
 
            $+(.timer,%pxn) 1 $conf(timeoutsec) .sockclose %pxn
            if $conf(dns) { .dns %ip }
          }
          inc %pi
        }
      }
      if *Notice?Client?connecting* iswm $5- || *Client?exiting:* iswm $5- {
        $iif(!$window(@G\C),window -fen @G\C,aline @G\C $1-)
      }
 
    } ;#end Snotice
 
    ;##PRIVMSG
    if $2 === PRIVMSG {
      err ----&gt; $1-
      if :FINGER === $4 {
        if $3 == $sockname || $left($3,1) == $chr(35) {
          if !$hget(finger,$sockname) {
            hinc -mu10 finger $sockname
            $iif($remove($gettok($1,1,$asc(!)),:) != $sockname,s $sockname NOTICE $remove($gettok($1,1,$asc(!)),:) $+(:,$chr(1),FINGER,$chr(32),$conf(usern),$chr(32),$chr(40),$emailaddr,$chr(41),$chr(32),Idle,$chr(32),$idle,$chr(1)))
          }
        }
      }
      if $4 === :VERSION &amp;&amp; !$5 {
        if $3 == $sockname || $left($3,1) == $chr(35) {
          if !$hget(Fversion,$sockname) {
            hinc -mu8 Fversion $sockname
            $iif($remove($gettok($1,1,$asc(!)),:) != $sockname,s $sockname NOTICE $remove($gettok($1,1,$asc(!)),:) $+(:,$chr(1),VERSION,$chr(32),mIRC,$chr(32),v,$version,$chr(32),Khaled,$chr(32),Mardam-Bey,$chr(1)))
          }
          if $hget(Fversion,$sockname) {
            ;diger
          }
        }
      }
    } ;#end Privmsg
 
    ;##Scanner Sock
    if *prx-* iswm $sockname {
      if $sock($sockname).port isin $conf(conport) {
        sockread %s
        if  *&lt;?&gt;* iswm %s || *-*:* iswm %s  {
          echo :REAL-SITE: %s
          ;real web
          ; .sockclose $sockname
          return
        }
        if $regex(%s,.*HTTP\/1\.. 200 .*) {
          echo :PROXY-SITE: %s
          echo : s $gettok($sockname,1,$asc(~)) privmsg os akill add +1d $+(*@,$sock($sockname).ip) $+($conf(BanReason),~,$left($sock($sockname).ip,-3),$str(*,$len($gettok($sock($sockname).ip,-1,46))),:,$sock($sockname).port )
        }
        if *&lt;?&gt;* iswm %s &amp;&amp; $regex(%s,.*HTTP ERROR: 501 Method+NICK+.*) {
          echo :WEB-PROXY-SITE: %s
          echo : s $gettok($sockname,1,$asc(~)) privmsg os akill add +1d $+(*@,$sock($sockname).ip) $+($conf(BanReason),~,$left($sock($sockname).ip,-3),$str(*,$len($gettok($sock($sockname).ip,-1,46))),:,$sock($sockname).port )
        }
        else {
          echo :--: %s
          ; echo : s $gettok($sockname,1,$asc(~)) privmsg os akill add +1d $+(*@,$sock($sockname).ip) $+($conf(BanReason),~,$left($sock($sockname).ip,-3),$str(*,$len($gettok($sock($sockname).ip,-1,46))),:,$sock($sockname).port )
          ; return
        }
      }
      if $sock($sockname).port !isin $conf(conport) {
        sockread %s
      }
      if $sockerr &gt; 0 { err $sock($sockname).wserr | return }
      ;echo 4 -s :-&gt; $sock($sockname).ip $sock($sockname).port
      .sockclose $sockname
    }
  }
}
 
alias tr {
  var %prx $ticks
  .dns $1
  var %ip  $1
  var  %pi = 1
  while (%pi &lt;= $gettok($conf(prxport),0,32)) {
    var %ki = $gettok($conf(prxport),%pi,32)
 
    var %pxn = $+($2,~prx-,%ki,=,$1)
    if !$sock(%pxn,1).name {
      sockopen %pxn %ip %ki
      $+(.timer,%pxn) 1 $conf(timeoutsec) sockclose %pxn
    }
    inc %pi
  }
}
]]> http://www.mircim.net/mirc-proxy-killer-v-2.html/feed 0 mIRC Karizma Yazı Tipi http://www.mircim.net/mirc-karizma-yazi-tipi.html http://www.mircim.net/mirc-karizma-yazi-tipi.html#comments Wed, 24 Feb 2010 20:37:49 +0000 mIRCim http://www.mircx.net/?p=466 mIRC serverlerinde ki düz yazdığınız metinlerden sıkıldıysanız bu karizma yazı tam size göre umarım beğenirsiniz.
ALT+R yaparak pastelleyiniz.

?View Code PHP
#karizmayazi on
on *:input:*: {
  if ($mouse.key & 2) || !$regex($1,^\/) {
    msg $active $replacecs($1-,::,2he3he4he5he6he7he,ç,¢,a.s.,a.SeLam..,?,¿,l,L,ı,I,ş,$,Ş,$,ç,¢,o,ø,b,ß,< ,«,>,»)
    halt
  }
}
#karizmayazi end
]]> http://www.mircim.net/mirc-karizma-yazi-tipi.html/feed 0 mIRC Balon Uyarıcısı http://www.mircim.net/mirc-balon-uyaricisi.html http://www.mircim.net/mirc-balon-uyaricisi.html#comments Wed, 24 Feb 2010 20:34:29 +0000 mIRCim http://www.mircx.net/?p=464 Merhaba arkadaşlar mIRC ‘inize ekleyebileceğiniz güzel bir hazır koddur.
mIRC v6.21 sürümünde sorunsuz çalışmaktadır.
Balon addonunu mIRC ‘inize yüklemek için ALT+R yapıp pastellemeniz yeterlidir.
Balon renklerinin boyutunu, konumunu ve rengini ayarlayabilirsiniz.
Ayarlar içinde statüste sağ tuş yaparak ulaşabilirsiniz, kolay gelsin.

?View Code PHP
alias ppop {
  if ($1 == -q) {
    tokenize 32 [ [ $var(%ppop.queue.*.*:*,1) ] ]
    var %ct = $gettok($var(%ppop.queue.*.*:*,1),4,46)
    unset $var(%ppop.queue.*.*:*,1)
  }
  else { var %ct = $asctime(H:nn:ss) }
  tokenize 1 $strip($1-)
  var %h = $wrap($2,Tahoma,11,$calc(%ppop.width -14),0),%w = $calc(%h *14+55),%t = $width($1,Tahoma,11,1),%s = $1,%u = $2,%x,%y,%gh
  if ($1 != -q) && ($window(@ppop)) {
    set $+(%,ppop.queue.,$ticks,$rand(10000,99999),.,$asctime(H:nn:ss)) $+(%s,,%u)
    drawtext -rbp @ppop %ppop.color.bg %ppop.color.border "Small Fonts" 8 1 0 SiLvEr v3 - Event Notify $iif($var(%ppop.queue.*.*,0),$nbr($v1 in queue)) 
  }
  else {
    if (t? iswm %ppop.pos) { %y = 0 }
    else { %y = $calc($window(-1).h - %w) }
    if (?l iswm %ppop.pos) { %x = 0 }
    else { %x = $calc($window(-1).w - %ppop.width) }
    if (%ppop.offset) {
      %x = $calc(%x + %ppop.xoffset)
      %y = $calc(%y + %ppop.yoffset)
    }
    if (!$window(@ppop)) { %gh = 1 }
    window -hnBdfiopk0 +dL @ppop %x %y %ppop.width %w
    if (%ppop.fade) { if (%gh) || ($timer(ppop.fade)) { ppop.fade in } }
    if (%ppop.transp.en) { if (!%ppop.fadecur.in) && (!%ppop.fadecur.out) { setlayer %ppop.transp @ppop } }
    elseif (!%ppop.fade) || ((!%ppop.fadecur.in) && (!%ppop.fadecur.out)) { setlayer 255 @ppop }
    drawrect -nrf @ppop %ppop.color.bg 1 0 0 %ppop.width %w
    drawrect -nrf @ppop %ppop.color.border 1 0 0 %ppop.width 10
    drawtext -nr @ppop %ppop.color.bg "Small Fonts" 8 $calc(%ppop.width - $width(%ct,Small Fonts,8) -2) 0 %ct
    drawtext -nrbp @ppop %ppop.color.bg %ppop.color.border "Small Fonts" 8 1 0 SiLvEr v3 - Event Notify $iif($var(%ppop.queue.*.*,0),$nbr($v1 in queue)) 
    drawrect -nr @ppop %ppop.color.border 1 0 0 %ppop.width %w
    drawpic -cntros @ppop 16711935 6 16 18 18 4 $+(",$mircexe,")
    drawtext -nro @ppop %ppop.color.text Tahoma 11 29 18 $iif(%t > $calc(%ppop.width -40),$mid($wrap( $+ %s,Tahoma,11,$calc(%ppop.width -40),0,1),2) $+ ...,%s)
    drawline -nr @ppop %ppop.color.border 1 0 40 30 40
    drawrect -nrf @ppop %ppop.color.border 1 30 38 5 5
    while (%h) {
      drawtext -nr @ppop %ppop.color.text Tahoma 11 9 $calc(%h *14+33) $wrap(%u,Tahoma,11,$calc(%ppop.width -14),%h)
      dec %h
    }
    drawdot @ppop
    window -o @ppop
    if (%ppop.delay) {
      if (%ppop.fade) { .timerppop.close -io 1 %ppop.delay ppop.fade out }
      else { .timerppop.close -io 1 %ppop.delay ppop.doclose }
    }
    if (%ppop.beep) { beep }
  }
}
alias -l ppop.chkhl { if ($highlight) && ($highlight($1-)) && ($1- !isnum) { return $true } }
alias -l ppop.trig { if (%ppop.enabled) && ((!%ppop.nactive) || (!$appactive)) && ((!%ppop.naw) || (!$away)) && ($1 isin %ppop.events) { return $true } }
alias ppop.fade {
  var %b = $iif(%ppop.transp.en,%ppop.transp,255)
  if ($1 == in) {
    if (!%ppop.fadecur.in) && (!%ppop.fadecur.out) { setlayer 0 @ppop }
    if (!%ppop.fadecur.in) {
      set %ppop.fadecur.in $iif(%ppop.fadecur.out,$calc(%ppop.fadecur.out +((%b - %ppop.fadecur.out) % 20)),$iif(%ppop.transp.en,$calc(%ppop.transp % 20),15))
      .timerppop.fade -imo 0 15 setlayer % $+ ppop.fadecur.in @ppop $chr(124) inc % $+ ppop.fadecur.in 20 $chr(124) if (%ppop.fadecur.in > %b $+ ) $chr(123) .timerppop.fade off $chr(124) unset % $+ ppop.fadecur.in $chr(125)
      unset %ppop.fadecur.out
    }
  }
  else {
    set %ppop.fadecur.out $iif(%ppop.transp.en && $calc(%ppop.transp -(%ppop.transp % 20)) > 0,$v1,240)
    .timerppop.fade -imo 0 15 setlayer % $+ ppop.fadecur.out @ppop $chr(124) dec % $+ ppop.fadecur.out 20 $chr(124) if (%ppop.fadecur.out < 0) $chr(123) ppop.doclose $chr(125)
  }
}
alias ppop.doclose {
  .timerppop.close off
  .timerppop.fade off
  unset %ppop.fadecur.*
  close -@ @ppop
  if ($var(%ppop.queue.*.*:*,0)) {
    if ($1 != -s) { ppop -q }
    else { unset %ppop.queue.* }
  }
}
; events
on *:connect:{ if ($ppop.trig(n)) { ppop Bağlantı Kuruldu!Şu an $server sunucusu ile bağlantınız kuruldu. $iif($network,$nbr($v1)) $+ ! } }
on *:disconnect:{ if ($ppop.trig(i)) { ppop Bağlantı Kesildi!Şu an $server sunucusu ile bağlantınız kesildi. $iif($network,$nbr($v1)) $+ ! } }
on *:kill:{ if ($ppop.trig(i)) { ppop Bağlantı Kesildi!Şu an $2 TarafIndan sunucu ile bağlantınız kesildi. $iif($network,$nbr($v1)) $+ ! } }
on *:filercvd:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Alımı Tamamlandı!Dosya: $+(",$get(-1).file,") Gönderen: $get(-1) Tamamlandı. Alınan: $bytes($get(-1).size,3).suf $iif($get(-1).resumed,after Devam edilen: $bytes($v1,3).suf) Süre: $duration($get(-1).secs) Ortalama Byte: $bytes($get(-1).cps,3).suf $+ /s. } }
on *:filesent:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Gönderimi Tamamlandı!Dosya: $+(",$send(-1).file,") Alıcı: $send(-1) Tamamlandı. Gönderilen: $bytes($send(-1).size,3).suf $iif($send(-1).resumed,after Devam edilen: $bytes($v1,3).suf) Süre: $duration($send(-1).secs) Ortalama Byte: $bytes($send(-1).cps,3).suf $+ /s. } }
on *:getfail:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Alımı Başarısız!Dosya: $+(",$get(-1).file,") Gönderen: $get(-1) başarısız! Alınan: $+($bytes($get(-1).rcvd,3),/,$bytes($get(-1).size,3).suf) ( $+ $get(-1).pc $+ %) $iif($get(-1).resumed,Devam edilen: $bytes($v1,3).suf) Süre: $duration($get(-1).secs) Ortalama byte: $bytes($get(-1).cps,3).suf $+ /s. } }
on *:sendfail:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Gönderimi Başarısız!Dosya: $+(",$send(-1).file,") Alıcı: $send(-1) başarısız! Gönderilen: $+($bytes($send(-1).sent,3),/,$bytes($send(-1).size,3).suf) ( $+ $send(-1).pc $+ %) $iif($send(-1).resumed,Devam edilen: $bytes($v1,3).suf) Süre: $duration($send(-1).secs) Ortalama byte: $bytes($send(-1).cps,3).suf $+ /s. } }
ctcp !*:*:*:{
  if ($1 == dcc) {
    if ($ppop.trig(d)) {
      if ($2 == send) { ppop Dosya Gönderme İsteği! $+ $nick size şu dosyayı göndermek istiyor: $+(",$3,") ( $+ $bytes($6,3).suf $+ )! }
      elseif ($2 == chat) { ppop DCC Chat İsteği! $+ $nick sizinle DCC üzerinden chat yapmak istiyor! }
    }
  }
  elseif ($ppop.trig(t)) { ppop Gelen İstek: $+(CTCP!?,$nick,$iif($chan,: $+ $v1),?) $1- }
}
on !*:ctcpreply:*:{ if ($balloon.trig(t)) { ppop Gelen CTCP İsteği: $+(reply!!,$nick,$iif($chan,: $+ $chan),!) $1- } }
on *:text:*:*:{
  var %o = $strip($1-)
  if ($ppop.trig(a)) && (((u isin %ppop.events) && (%ppop.ctrig) && ($regex(%o,%ppop.ctrig))) || (($ppop.chkhl(%o)) && (h isin %ppop.events))) {
    if ($chan) { ppop $chan $+(message!<,$iif($nick !isreg $chan,$left($nick($chan,$nick).pnick,1)),$nick,>) $1- }
    else { ppop Özel $+(mesaj!< ,$nick,>) $1- }
  }
}
on *:action:*:*:{
  var %o = $strip($1-)
  if ($ppop.trig(a)) && (((u isin %ppop.events) && (%ppop.ctrig) && ($regex(%o,%ppop.ctrig))) || (($ppop.chkhl(%o)) && (h isin %ppop.events))) {
    if ($chan) { ppop $chan $+(message!< ,$iif($nick !isreg $chan,$left($nick($chan,$nick).pnick,1)),$nick,>) $1- }
    else { ppop Özel $+(mesaj!< ,$nick,>) $1- }
  }
}
on !*:invite:*:{ if ($ppop.trig(v)) { ppop Invite Daveti! $+ $nick sizi $chan kanalına davet ediyor. } }
on !*:ban:*:{ if ($banmask iswm $address($me,5)) && ($ppop.trig(k)) { ppop Kanaldan Banlandınız! $+ $nick sizi $chan kanalından banladı. $+ ! ( $+ $banmask $+ ) } }
on !*:kick:*:{ if ($knick == $me) && ($ppop.trig(k)) { ppop Kanaldan Atıldınız!  $chan kanalından $nick tarafından atıldınız. $+ ! $iif($1- != $knick,Sebep: $1-) } }
on !*:notice:*:*:{
  if ($ppop.trig(e)) {
    if ($chan) { ppop Gelen Kanal $+(noticesi!-,$nick,:,$chan,-) $1- }
    else { ppop Gelen $+(notice!-,$nick,-) $1- }
  }
}
on *:unotify:{ if ($ppop.trig(f)) { ppop Ayrılış! $+ $nick IRC'den çıktı! } }
on *:notify:{ if ($ppop.trig(f)) { ppop Giriş! $+ $nick şu an IRC'de! } }
on *:open:?:{ if ($ppop.trig(q)) { ppop Gelen $+(Özel!< ,$nick,>) $1- } }
on *:load:{
  set %ppop.version 1.3
  set %ppop.enabled 1
  set %ppop.transp.en 1
  set %ppop.transp 229
  set %ppop.naw 0
  set %ppop.delay 8
  set %ppop.fade 1
  set %ppop.width 250
  set %ppop.color.bg 14679551
  set %ppop.color.text 0
  set %ppop.color.border 0
  set %ppop.nactive 0
  set %ppop.beep 0
  set %ppop.pos br
  set %ppop.events antdivkfq
}
on *:unload:{ unset %ppop.* }
on *:exit:{ unset %ppop.queue.* %ppop.fadecur.* }
menu @ppop {
  uclick { ppop.doclose $iif($mouse.key & 4,-s) }
  rclick { showmirc $iif($appstate == minimized,-r,-s) }
  $ppop.doclose
}
; setup dialog
alias ppop.setup { dialog $iif($dialog(ppop.setup),-v,-m ppop.setup) ppop.setup }
dialog -l ppop.setup {
  title SiLvEr v3 - Olay Görüntüleyici (v1.3)
  size -1 -1 174 133
  option dbu
  tab "Genel", 1, 2 -1 170 116
  box "Genel Ayarlar", 2, 6 14 162 97, tab 1
  check "Aktif &Et", 3, 12 22 65 9, tab 1
  text "Gecikme (0 sınırsız):", 4, 22 33 69 8, tab 1
  edit %ppop.delay, 5, 93 31 38 11, tab 1 limit 3 center
  text "saniye", 6, 134 33 24 8, tab 1
  text "Genişlik:", 7, 22 44 23 8, tab 1
  edit %ppop.width, 8, 93 42 38 11, tab 1 limit 4 center
  check "Şeffaflık Ak&tif:", 9, 12 54 61 9, tab 1
  edit "", 10, 93 53 38 11, tab 1 limit 3 center
  text "%", 11, 134 55 9 8, tab 1
  check "Geçiş E&fekti", 12, 12 63 43 9, tab 1
  check "Yanlızca pencere aktif değilken göster", 13, 12 76 117 9, tab 1
  check "Yanlızca away değilken göster", 14, 12 85 86 9, tab 1
  check "Olaylarda 'bip' sesi çıkar", 15, 12 98 92 9, tab 1
  text "piksel", 16, 134 44 18 8, tab 1
  tab "Pozisyon", 17
  text "Pencereyi Göster:", 18, 22 23 49 7, tab 17
  radio "Sol Üst Köşe", 19, 40 32 47 9, tab 17 left
  radio "Sağ Üst Köşe", 20, 91 32 54 9, tab 17
  radio "Sağ Alt Köşe", 21, 91 41 63 9, tab 17
  radio "Sol Alt Köşe", 22, 31 41 56 9, tab 17 left
  check "Özel Pozisyon (Negatif sayılar kullanılabilir):", 23, 12 53 143 9, tab 17
  text "X:", 24, 30 65 6 8, tab 17
  edit %ppop.xoffset, 25, 39 63 26 11, tab 17 limit 5 center
  text "Y:", 26, 30 76 6 8, tab 17
  edit %ppop.yoffset, 27, 39 74 26 11, tab 17 limit 5 center
  box "Pozisyon", 28, 6 14 162 76, tab 17
  tab "Renkler", 29
  box "Renkler", 30, 6 14 162 86, tab 29
  text "Arkaplan:", 31, 12 23 35 8, tab 29
  text "Kenarlık:", 33, 12 48 23 8, tab 29
  text "Metin:", 35, 12 73 19 8, tab 29
  icon 37, 80 31 48 12, $mircexe, 0, tab 29
  icon 38, 80 56 48 12, $mircexe, 0, tab 29
  icon 39, 80 81 48 12, $mircexe, 0, tab 29
  edit $rgb(%ppop.color.bg), 32, 14 31 60 12, tab 29 center
  edit $rgb(%ppop.color.border), 34, 14 56 60 12, tab 29 center
  edit $rgb(%ppop.color.text), 36, 14 81 60 12, tab 29 center
  tab "Olaylar", 40
  box "Pencereyi Göster...", 41, 6 14 162 97, tab 40
  check "Bağlantı Kurulduğunda", 42, 12 22 69 9, tab 40
  check "CTCP İsteklerinde", 43, 12 31 67 9, tab 40
  check "DCC Olaylarında", 44, 12 40 68 9, tab 40
  check "Bağlantı Kesildiğinde", 45, 12 49 81 9, tab 40
  check "Vurgularda", 46, 12 58 36 9, tab 40
  check "Davetlerde", 47, 12 67 30 9, tab 40
  check "Kick+Ban Olayında", 48, 12 76 38 9, tab 40
  check "Noticelerde", 49, 100 22 30 9, tab 40
  check "Giriş Çıkışlarda", 50, 100 31 31 9, tab 40
  check "Özellerde", 51, 100 40 31 9, tab 40
  check "Özel Durumlar (boşluk ile ayırın):", 52, 12 85 118 9, tab 40
  edit $ppop.mkre(%ppop.ctrig).re, 53, 21 95 143 11, tab 40
  tab "Hakkında", 54
  box "Hakkında", 55, 6 14 162 88, tab 54
  text "Script İsmi:", 56, 12 23 35 8, tab 54
  text "SiLvEr ", 57, 52 23 110 8, tab 54 right
  link "http://www.mIRCTurkiye.net", 58, 80 53 85 8, tab 54
  text "Bu Add-on 'IrCbaStarD' tarafından EditLenmı$tir... ", 59, 52 63 110 34, tab 54 right
  text "Açıklama:", 60, 12 63 35 8, tab 54
  text "Anasayfa:", 61, 12 53 35 8, tab 54
  text "Edit:", 62, 12 43 35 8, tab 54
  text "Sürüm:", 63, 12 33 35 8, tab 54
  text ..., 64, 52 33 110 8, tab 54 right
  text "IrCbaStaRD", 65, 52 43 110 8, tab 54 right
  button "&Tamam", 66, 48 119 40 12, ok
  button "Ö&nizleme", 67, 2 119 40 12
  button "İ&ptall", 68, 90 119 40 12
  button "&Uygula", 69, 132 119 40 12
}
on *:dialog:ppop.setup:*:*:{
  if ($devent == init) {
    if (%ppop.enabled) { did -c $dname 3 }
    else { did -b $dname 4,5,6,7,8,9,10,11,12,13,14,15,16,18,19,20,21,22,23,24,25,26,27,28,30,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47,48,49,50,51,52,53 }
    if (%ppop.transp.en) { did -c $dname 9 }
    if (%ppop.transp !isnum 0-255) { set %ppop.transp 255 }
    did -ra $dname 10 $int($calc(100- %ppop.transp /2.55))
    if (%ppop.fade) { did -c $dname 12 }
    if (%ppop.nactive) { did -c $dname 13 }
    if (%ppop.naw) { did -c $dname 14 }
    if (%ppop.beep) { did -c $dname 15 }
    if (%ppop.offset) { did -c $dname 23 }
    else { did -b $dname 24,25,26,27 }
    if (%ppop.pos == tl) { did -c $dname 19 }
    elseif (%ppop.pos == tr) { did -c $dname 20 }
    elseif (%ppop.pos == br) { did -c $dname 21 }
    elseif (%ppop.pos == bl) { did -c $dname 22 }
    ppop.colprev.all
    if (n isin %ppop.events) { did -c $dname 42 }
    if (t isin %ppop.events) { did -c $dname 43 }
    if (d isin %ppop.events) { did -c $dname 44 }
    if (i isin %ppop.events) { did -c $dname 45 }
    if (h isin %ppop.events) { did -c $dname 46 }
    if (v isin %ppop.events) { did -c $dname 47 }
    if (k isin %ppop.events) { did -c $dname 48 }
    if (e isin %ppop.events) { did -c $dname 49 }
    if (f isin %ppop.events) { did -c $dname 50 }
    if (q isin %ppop.events) { did -c $dname 51 }
    if (u isin %ppop.events) { did -c $dname 52 }
    else { did -b $dname 53 }
  }
  elseif ($devent == sclick) {
    if ($did == 3) {
      if ($did($did).state) {
        did -e $dname 4,5,6,7,8,9,12,13,14,15,16,18,19,20,21,22,23,28,30,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47,48,49,50,51,52
        if ($did(9).state) { did -e $dname 10,11 }
        if ($did(23).state) { did -e $dname 24,25,26,27 }
        if ($did(52).state) { did -e $dname 53 }
      }
      else { did -b $dname 4,5,6,7,8,9,10,11,12,13,14,15,16,18,19,20,21,22,23,24,25,26,27,28,30,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47,48,49,50,51,52,53 }
    }
    elseif ($did == 9) { did $iif($did($did).state,-e,-b) $dname 10,11 }
    elseif ($did == 23) { did $iif($did($did).state,-e,-b) $dname 24,25,26,27 }
    elseif ($did == 52) { did $iif($did($did).state,-e,-b) $dname 53 }
    elseif ($did == 58) { url -an http://www.mIRCTurkiye.net }
    elseif ($did == 66) || ($did == 69) { ppop.setup.apply }
    elseif ($did == 67) {
      ppop.doclose -s
      ppop Önizleme PenceresiBu alanda gelen uyarılar, olaylar vs. görüntülenir ...
    }
    elseif ($did == 68) { if ($input(Ayarları kaydetmeden çıkmak istediğinize emin misiniz?,wydu,Kaydetmeden Çık?)) { dialog -x $dname } }
  }
  elseif ($devent == edit) {
    if ($did == 32) { ppop.colprev 37 $did($did) }
    elseif ($did == 34) { ppop.colprev 38 $did($did) }
    elseif ($did == 36) { ppop.colprev 39 $did($did) }
  }
}
alias -l ppop.setup.apply {
  if ($did(5) !isnum 0-) { did -ra $dname 5 8 }
  did -ra $dname 5 $int($did(5))
  set %ppop.delay $did(5)
  set %ppop.enabled $did(3).state
  if ($did(8) !isnum 50-9999) { did -ra $dname 8 $iif($did(8) isnum,$iif($did(8) < 50,50),250) }
  did -ra $dname 8 $int($did(8))
  set %ppop.width $did(8)
  set %ppop.transp.en $did(9).state
  if ($did(10) !isnum 0-100) { did -ra $dname 10 10 }
  did -ra $dname 10 $int($did(10))
  set %ppop.transp $calc((100- $did(10)) *2.55)
  if ($did(19).state) { set %ppop.pos tl }
  elseif ($did(20).state) { set %ppop.pos tr }
  elseif ($did(21).state) { set %ppop.pos br }
  elseif ($did(22).state) { set %ppop.pos bl }
  set %ppop.offset $did(23).state
  if ($did(25) !isnum) { did -ra $dname 25 0 }
  did -ra $dname 25 $int($did(25))
  set %ppop.xoffset $did(25)
  if ($did(27) !isnum) { did -ra $dname 27 0 }
  did -ra $dname 27 $int($did(27))
  set %ppop.yoffset $did(27)
  set %ppop.fade $did(12).state
  set %ppop.nactive $did(13).state
  set %ppop.naw $did(14).state
  set %ppop.beep $did(15).state
  var %e = a
  if ($did(42).state) { %e = %e $+ n }
  if ($did(43).state) { %e = %e $+ t }
  if ($did(44).state) { %e = %e $+ d }
  if ($did(45).state) { %e = %e $+ i }
  if ($did(46).state) { %e = %e $+ h }
  if ($did(47).state) { %e = %e $+ v }
  if ($did(48).state) { %e = %e $+ k }
  if ($did(49).state) { %e = %e $+ e }
  if ($did(50).state) { %e = %e $+ f }
  if ($did(51).state) { %e = %e $+ q }
  if ($did(52).state) { %e = %e $+ u }
  set %ppop.events %e
  if (!$regex($did(32),/^\d+\x2C\d+\x2C\d+$/)) || ($rgb( [ $did(32) ] ) == $null) {
    did -ra $dname 32 255,253,223
    ppop.colprev 37 255,253,223
  }
  if (!$regex($did(34),/^\d+\x2C\d+\x2C\d+$/)) || ($rgb( [ $did(34) ] ) == $null) {
    did -ra $dname 34 0,0,0
    ppop.colprev 38 0,0,0
  }
  if (!$regex($did(36),/^\d+\x2C\d+\x2C\d+$/)) || ($rgb( [ $did(36) ] ) == $null) {
    did -ra $dname 36 0,0,0
    ppop.colprev 39 0,0,0
  }
  set %ppop.color.bg $rgb( [ $did(32) ] )
  set %ppop.color.border $rgb( [ $did(34) ] )
  set %ppop.color.text $rgb( [ $did(36) ] )
  set %ppop.ctrig $ppop.mkre($did(53))
}
alias -l ppop.colprev.all {
  ppop.colprev 37 $rgb(%ppop.color.bg)
  ppop.colprev 38 $rgb(%ppop.color.border)
  ppop.colprev 39 $rgb(%ppop.color.text)
}
alias -l ppop.colprev {
  var %f = $+(",$scriptdir,ppop.colprev.bmp")
  window -hpf @ppop.colprev 0 0 400 100
  if (!$regex($2,/^\d+\x2C\d+\x2C\d+$/)) { did -h $dname $1 }
  else {
    if ($rgb( [ $2 ] ) != $null) {
      did -v $dname $1
      drawrect -nrf @ppop.colprev $v1 1 0 0 400 100
    }
    else { did -h $dname $1 }
  }
  drawsave @ppop.colprev %f
  did -g $dname $1 %f
  .remove %f
  close -@ @ppop.colprev
}
alias -l ppop.mkre {
  if ($1 != $null) {
    if ($prop == re) { return $replacex($mid($1,5,-5),\^,^,\.,.,\|,|,|,$chr(44),\$,$,\\,\,\?,?,\+,+,\[,[,\],],.*,*,.,?,\ $+ $chr(123),$chr(123),\ $+ $chr(125),$chr(125),\ $+ $chr(40),$chr(40),\ $+ $chr(41),$chr(41)) }
    else { return /\b( $+ $replacex($1,\,\\,$,\$,^,\^,|,\|,$chr(44),|,+,\+,.,\.,[,\[,],\],*,.*,?,.,$chr(123),\ $+ $chr(123),$chr(125),\ $+ $chr(125),$chr(40),\ $+ $chr(40),$chr(41),\ $+ $chr(41)) $+ )\b/i }
  }
}
menu menubar,status {
  Balon Ayar :/ppop.setup
}
]]> http://www.mircim.net/mirc-balon-uyaricisi.html/feed 0 Anti TOR http://www.mircim.net/anti-tor.html http://www.mircim.net/anti-tor.html#comments Wed, 13 Jan 2010 18:51:59 +0000 mIRCim http://www.mircx.net/?p=459 Merhaba arkadaşlar, mIRC serverlerinize tor ile yapılan saldırılardan bıktıysanız bu addon tam size göre.
Anti TOR, addonu saldırılara karşı %99 koruma sağlamaktadır.
Bugüne kadar saldırılara karşı yapılan en sağlam koruma kodudur.
Birde serverden zline yedikten sonra TOR ile tekrar serverinize giremeyeceklerdir.
Fazla uzatmadan özelliklerine geçelim.

/tor komutlar = Komut bilgilerini gösterir.

/tor oto-guncelle  = TOR Listesini Her 5 Saatte Bir Günceller (Scriptinizi Kapatıp Açarsanız Tekrar Bu Komutu Girmelisiniz)

/tor guncelle = TOR Listesini Günceller ve bütün TOR IP’lerine Gline Ekler.

/tor yasakla = En son indirilen IP adresindeki bütün IP’lere Gline Ekler.

/tor yasakla-hizli = En son indirilen IP adresindeki bütün IP’lere Gline Ekler. (Bu işlem hızlı gline atar, fakat bilgisayarınızda donma yaratabilir, ÖNERİLMEZ)

/tor hakkinda = Yapımcı ve Kod Hakkında Kısa Bilgilendirme.

/tor destek = Destek Hakkında Kısa Bilgilendirme

Özellikler bu kadardır, nasıl yükleyebiliceğiniz hakkında size kısa ve öz anlatayım.
Zip’in içeriğinde ki bütün dosyaları mIRC’iminiz ana klasörüne atmalıyız ve ardından mIRC’e  şu komutu yazınız;
/Load -rs tor.mrc
Bu kadar..

Anti TOR Addonunu indirmek için Tıklayınız.

]]> http://www.mircim.net/anti-tor.html/feed 0 Eggdrop Bot indir http://www.mircim.net/eggdrop-bot-indir.html http://www.mircim.net/eggdrop-bot-indir.html#comments Mon, 21 Dec 2009 19:14:57 +0000 mIRCim http://www.mircx.net/?p=451 Merhaba arkadaşlar mIRC serverinize kurabiliceğiniz eggdrop botlarının tümünü tek dosya ve arşiv şeklinde paylaşıma sunuyoruz.
Eggdrop botlarında neler var diye sorarsanız bir kısmını yazıyım.

Oyun Botları (Kaos, Bilmece,Çarkıfelek,Test,Yarışma,Kelime vb.)
Helper Botları (Helpbot,Help Eğitim, Help host)
Kanal Botları (Güzel Söz, Karşılama, Oto voice vb.)
Radyo botu
Security botu
Shellciler içinde MusteriServ botuda içerikte mevcuttur.

Eggdrop Arşivini indirmek için Tıklayınız.

]]> http://www.mircim.net/eggdrop-bot-indir.html/feed 0 Check Koruma Botu indir http://www.mircim.net/check-koruma-botu-indir.html http://www.mircim.net/check-koruma-botu-indir.html#comments Sun, 13 Dec 2009 18:01:15 +0000 mIRCim http://www.mircx.net/?p=446 mIRC Serverlerinizde kullanabiliceğiniz kaliteli ve çok hızlı bir koruma botudur.
Anope servislerinde sorunsuz olarak çalışmaktadır.
IRCServices servislerinde ise bir kaç fonksiyonu dışında tüm işlemlerini yerine getirmektedir.

Check Koruma Botu indirmek için Tıklayınız.

]]> http://www.mircim.net/check-koruma-botu-indir.html/feed 2 Hazır Bayrak Aliases F1 Kodu http://www.mircim.net/hazir-bayrak-aliases-f1-kodu.html http://www.mircim.net/hazir-bayrak-aliases-f1-kodu.html#comments Sun, 06 Dec 2009 16:15:19 +0000 mIRCim http://www.mircx.net/?p=442 Merhaba arkadaşlar, mIRC serverlerinizde Türk bayrağını göstermek veya kanal temizleme adınada kullanabiliceğiniz bir koddur.
Bu kod için çok açıklamaya gerek duymuyorum.
Size 2 kod vericeğim;
1. Kodları direk mIRC penceresine pastelleyiniz.(komut yazar gibi)

?View Code PHP
/alias /1 /say - -
/alias /2 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /3 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /4 /say - - 4MMMMMMMMMMMMMMM0XXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /5 /say - - 4MMMMMMMMMMMMM0XXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /6 /say - - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /7 /say - - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /8 /say - - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMM0XX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /9 /say - - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XX4MMMMMMMMMMMMMMMMMMMMMM
/alias /10 /say - - 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MM0XXXX4MMMMMMMMMMMMMMM
/alias /11 /say - - 4MMMMMMM0XXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMM
/alias /12 /say - - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMM0XXXXXXXXXX4MMMMMMMMMMMMMMMMM
/alias /13 /say - - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMM0XXXXXXXXXXX4MMMMMMMMMMMMMMMMM
/alias /14 /say - - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMM
/alias /15 /say - - 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MMM0XXX4MMMMMMMMMMMMMMM
/alias /16 /say - - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMM
/alias /17 /say - - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMM0X4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /18 /say - - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /19 /say - - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /20 /say - - 4MMMMMMMMMMMM0XXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /21 /say - - 4MMMMMMMMMMMMMMM0XXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /22 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /23 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /24 /say - - 
/alias /f1 /1 | /2 | /3 | /4 | /5 | /6 | /7 | /8 | /9 | /10 | /11 | /12 | /13 | /14 | /15 | /16 | /17 | /18 | /19 | /20 | /21 | /22 | /23 | /24

2. Olarak ise ALT+R yaparak ALIASES kısmına bunları kopyalamanızdır.

?View Code PHP
/1 /say - -
/2 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/3 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/4 /say - - 4MMMMMMMMMMMMMMM0XXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/5 /say - - 4MMMMMMMMMMMMM0XXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/6 /say - - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/7 /say - - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/8 /say - - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMM0XX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/9 /say - - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XX4MMMMMMMMMMMMMMMMMMMMMM
/10 /say - - 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MM0XXXX4MMMMMMMMMMMMMMM
/11 /say - - 4MMMMMMM0XXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMM
/12 /say - - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMM0XXXXXXXXXX4MMMMMMMMMMMMMMMMM
/13 /say - - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMM0XXXXXXXXXXX4MMMMMMMMMMMMMMMMM
/14 /say - - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMM
/15 /say - - 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MMM0XXX4MMMMMMMMMMMMMMM
/16 /say - - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMM
/17 /say - - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMM0X4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/18 /say - - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/19 /say - - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/20 /say - - 4MMMMMMMMMMMM0XXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/21 /say - - 4MMMMMMMMMMMMMMM0XXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/22 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/23 /say - - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/24 /say - - 
/f1 /1 | /2 | /3 | /4 | /5 | /6 | /7 | /8 | /9 | /10 | /11 | /12 | /13 | /14 | /15 | /16 | /17 | /18 | /19 | /20 | /21 | /22 | /23 | /24

Hangisi işinize gelirse onu yapınız, kafanızın karışmaması için ayrı ayrı kodlar verdim.

]]> http://www.mircim.net/hazir-bayrak-aliases-f1-kodu.html/feed 0 Spamfilter ile Uzun Harf koruması http://www.mircim.net/spamfilter-ile-uzun-harf-korumasi.html http://www.mircim.net/spamfilter-ile-uzun-harf-korumasi.html#comments Mon, 30 Nov 2009 17:01:31 +0000 mIRCim http://www.mircx.net/?p=438 mIRC serverlerinizde ki arıza userler tarafından çevre kirliliğini önlemek adına hazırlanmış bir Regex‘tir.
Bu regex ile 10 harfi aynı anda bitişik olarak yazanların metinleri BLOCK ‘lanır.
Örnek; Selammmmmmmmmmmm , Naberrrrrrrrrrrrrrrrrrrr, Ben geldimmmmmmmmmmmmmmm. vb.

Komut; /spamfilter add c block Uzun_Harf_Kullanimi_Yasaklanmistir. ([a-z])\1{10}

Bu arada harf kısıtlamasını daraltmak/uzatmak isterseniz ([a-z])\1{10} regex’inde ki 10 rakamını değiştirmeniz yeterlidir, 10 rakamı harf sayısını temsil etmektedir.

]]> http://www.mircim.net/spamfilter-ile-uzun-harf-korumasi.html/feed 0 Spamfilter ile Litmus koruması http://www.mircim.net/spamfilter-ile-litmus-korumasi.html http://www.mircim.net/spamfilter-ile-litmus-korumasi.html#comments Mon, 30 Nov 2009 16:43:49 +0000 mIRCim http://www.mircx.net/?p=432 Merhaba arkadaşlar, Litmus koruması için UnrealIRCD ile uğraşmanıza modül eklemenize gerek yoktur.
1 komut ile herşeyi yapabilirsiniz, tabii buda gerçekten Profesyonel bir Spamfilter komutunu kullanmaktan geçer.
Size lazım olan komutu vericeğim sadece.

İlk olarak Litmus nedir? onu kısaca anlatayım.
Nick ve ident’i aynı olanlara deniliyor bunlarda genelde BOT’tur.
Örnek vermek gerekirse; Ayse!Ayse@5962E861.EC934C0B.75DFF741.I

Nick ve ident’i Aynı olana ban atmak için;
/spamfilter add u gzline – Litmus.(Nick_ident_Ayni_Olmamalidir.) ^(.+)!~?\1@

Komut açılımı;
Regex; ^(.+)!~?\1@
Ban; Gzline
Sebep: Litmus.(Nick ve ident Ayni Olmamalidir.)
Type; u (user’i temsil eder.)

Bu arada Regex’i kullanarak bu işlemi değiştirebilirsiniz.

Nick ident aynı olursa banned; ^(.+)!~?\1@
İdent Fullname aynı olursa banned; .+!^(.+)@.+:~?\1
Nick Fullname aynı olursa banned; ^(.+)!.+@.+:~?\1

]]> http://www.mircim.net/spamfilter-ile-litmus-korumasi.html/feed 1 Quit mesajlarına (idle) bağlantı süresi eklemek http://www.mircim.net/quit-mesajlarina-idle-baglanti-suresi-eklemek.html http://www.mircim.net/quit-mesajlarina-idle-baglanti-suresi-eklemek.html#comments Mon, 30 Nov 2009 16:34:25 +0000 mIRCim http://www.mircx.net/?p=430 mIRC sunucusunda ki quit mesajlarının yanına ek olarak bağlantı süreleri eklemek için kullanılan bir unrealircd kodudur.
Aşağıda anlattığımız yazıları adım adım, doğru olarak yaparsanız sorunsuz bu işlemi gerçekleştirebilirsiniz.

İlk önce Telnet’e login olup şu adrese gidiniz.
(Bu işlemi FTP’den de yapabilirsiniz adresteki m_quit.c dosyasını editleyerek.)
src/modules/m_quit.c

?View Code PHP
DLLFUNC int  m_quit(aClient *cptr, aClient *sptr, int parc, char *parv[])

Bu satırı bulup hemen üzerine.

?View Code PHP
char *saat[1024];

Satırını ekliyoruz.

?View Code PHP
if (STATIC_QUIT)
			 return exit_client(cptr, sptr, sptr, STATIC_QUIT);

Burayı bulup..

?View Code PHP
if (STATIC_QUIT)
			 if ((TStime() - sptr->firsttime)> 86400)
				ircsprintf(saat, "%s - Bağlantı süresi: %d gün %d sa %d dk %d sn", STATIC_QUIT, ((TStime() - sptr->firsttime) / 86400), (((TStime() - sptr->firsttime) % 86400) / 3600), ((((TStime() - sptr->firsttime) % 86400) % 3600) / 60), (((((TStime() - sptr->firsttime) % 86400) % 3600) % 60) % 60));
			else if ((TStime() - sptr->firsttime)> 3600)
				ircsprintf(saat, "%s - Bağlantı süresi: %d sa %d dk %d sn", STATIC_QUIT, (((TStime() - sptr->firsttime) / 3600)), (((TStime() - sptr->firsttime) % 3600) / 60), ((((TStime() - sptr->firsttime) % 3600) % 60) % 60));
			else if ((TStime() - sptr->firsttime)> 60)
				ircsprintf(saat, "%s - Bağlantı süresi: %d dk %d sn", STATIC_QUIT, ((TStime() - sptr->firsttime) / 60), ((TStime() - sptr->firsttime) % 60));
			else
				ircsprintf(saat, "%s", STATIC_QUIT);
			return exit_client(cptr, sptr, sptr, saat);

Şeklinde değiştiriyoruz.
Daha sonra kayıtlayıp, çıktığımızda Telnetten MAKE ve REHASH çekmemiz yeterlidir.

1 Dakikadan az sürede olanlar için bu bağlantı süresi çıkmamaktadır.
Client, Broken vb. çıkışlarda da bu mesaj çıkmamaktadır.
Sadece normal çıkışlar için geçerlidir.

Bu işlemi yaptığımızda çıkıcak olan şudur;

[18:37] *** IRC`den Çıktı: mIRCxUser-2009 (mIRCx@E14943B1.306DDB78.62B61AA.IP) (www.mIRCx.Net – Bağlantı Süresi: 1 Sa 10 Dk 57 Sn)

]]> http://www.mircim.net/quit-mesajlarina-idle-baglanti-suresi-eklemek.html/feed 0