12 Nisan 2013

Spamfilter yasaklama/silme kodu irc

spamfilter yasaklama
Spamfilter çok geniş kapsamlı iyi bir güvenlik sistemidir İRC için. Lakin bu menüyü kullanmak biraz sıkıntılıdır. Özellikle Spam silme konusunda yöneticiler ciddi sorunlar yaşamaktalar spamların silinmediğinden ve komutun çok anlaşılır olmamasından dert yanmaktadırlar.

SpamFilter komutunu sizin için dialog haline getirdim ve ekleme işini sadece birkaç saniyede gayet net bir şekilde halledebilmenize olanak sağladım. 

Dikkat etmeniz gereken husus spamfilter eklerken ekleme sebebine boşluk vermeyin _ kullanın. Spamfilterde boşluk moşluk yok unutun yoksa dialogtan sağlam verim alamayabilirsiniz. Herşey bitişik _ ile.

Silme konusuna gelince SpamFilter menüsünden listele yaptıgınızda yukarıdaki resimde oldugu gibi size serverda atılmış tüm spamları liste halinde vericek ve en sonunda da "SPAMI SİL" şeklinde bir yazı eklenicek. Siz bu Spamı Sil Yazısına ÇİFT(Double) Tıkladıgınızda Mevcut Spamı Kaldıracaktır. 

Sil Butonu Yardımıylada Ki Bu Uzun Yoldur Parametresini Sebebini ve Ceza Türünü Bildiğiniz Spamları Teker Teker Kaldırabilirsiniz. Bunu Tavsiye Etmem Listele Butonuna Basın Listelenen Spamlardan Kaldırmak İstediğinizin Sonundaki SPAMI SİL Yazısının Üstüne Çift Tıklayın ve Spam Silinsin. 

Dilerseniz Tüm Spamlarıda Silebilirsiniz İlgili Butona Tıklayarak. 

@BİLGİ Penceresine eklenilen Spamlar yansıtılacak Silinen Spamlar Yansıtılacak ve Spamfiltere Takılma Oldugunda Hangi Kelimenin Takıldıgını Yansıtarak Sizin Hata Yapmama Oranınızı Yada Yaptığınız Hatayı Rahatca Düzeltebilme Oranınızı Maximum'a Çıkartacaktır. 

Kodu Remoteye Ekleyin ve mIRC'te herhangi bir pencereye sağ tıklayın en alttaki SpamFilter Uygulaması seçeneğine tıkladıgınızda menü açılacaktır. 



menu * { 
  Spamfilter Uygulaması:dialog -m spam spam 
}
on ^$*:hotlink:/("?")/:@Spamfilter:return
on *:hotlink:*:@Spamfilter: {
  spamfilter del $noqt($gettok($hotLine,3,32)) $noqt($gettok($hotLine,6,32)) $noqt($gettok($hotLine,9,32)) $noqt($gettok($hotLine,12,32)) $noqt($gettok($hotLine,15,32))
} 

dialog spam {
  title "SpamFilter Ayarları/Yasaklamaları | Coder By uFuK irc.unutma.net"
  size -1 -1 223 165
  option dbu
  radio "Z-Line", 4, 33 67 39 10
  radio "G-Zline", 5, 33 79 42 10
  radio "Block", 6, 33 90 41 10
  radio "Shun", 1, 94 80 42 10
  radio "DCC Block", 2, 94 91 44 10
  radio "G-Line", 3, 94 68 44 10
  radio "Temp Shun", 7, 161 80 44 10
  radio "KİLL", 8, 161 91 39 10
  radio "K-Line", 9, 161 68 41 10
  box "Ceza Türleri", 10, 26 58 187 47
  text "Asama 2", 11, 1 76 24 8
  check "Kanala Gön. Mesajlar", 12, 31 10 68 10
  check "Özele Gön. Mesajlar", 13, 31 23 63 10
  check "Topic Mesajı", 14, 31 36 43 10
  check "Kisiye Gön. Noticeler", 15, 100 23 63 10
  check "DCC Mesajı", 16, 169 36 41 10
  check "Kanala Gön. Noticeler", 17, 100 10 62 10
  check "Part Mesajı", 18, 169 23 41 10
  check "Away Mesajı", 19, 100 36 43 10
  check "Quit Mesajı", 20, 169 10 41 10
  text "Asama 1", 21, 1 24 23 8
  box "Ceza Seçenekleri", 22, 26 1 188 53
  edit "", 23, 47 132 10 10, autohs
  text "Gün", 24, 34 132 12 8
  edit "", 25, 78 131 54 10, autohs
  box "Ceza Süresi", 26, 32 120 37 25
  box "Ceza Nedeni", 27, 73 120 64 25
  edit "", 28, 152 131 50 10, autohs
  box "Cezai Kelime", 29, 144 120 64 25
  box "Ceza Süre/Neden ve Cezai Kelime", 30, 26 110 187 54
  text "Asama 3", 31, 1 128 24 8
  button "Ekle", 32, 31 150 35 10
  button "Sil", 33, 72 150 35 10
  button "Listele", 34, 113 150 35 10
  button "Tüm Spamlari Sil", 35, 155 150 49 10
}
on *:dialog:spam:*:*: { 
  if $devent == sclick {
    if $did == 35 { set %tspamsil on | spamfilter }
    if $did(4).state == 1 { set %yaptirim zline }
    if $did(3).state == 1 { set %yaptirim gline }
    if $did(9).state == 1 { set %yaptirim kline }
    if $did(5).state == 1 { set %yaptirim gzline }
    if $did(1).state == 1 { set %yaptirim shun }
    if $did(7).state == 1 { set %yaptirim tempshun }
    if $did(6).state == 1 { set %yaptirim block }
    if $did(2).state == 1 { set %yaptirim dccblock }
    if $did(8).state == 1 { set %yaptirim kill }   
    if $did(12).state == 1 { set %yaptirim1 c }
    else { unset %yaptirim1 }
    if $did(17).state == 1 { set %yaptirim2 N }
    else { unset %yaptirim2 }
    if $did(20).state == 1 { set %yaptirim3 q }
    else { unset %yaptirim3 }
    if $did(13).state == 1 { set %yaptirim4 p }
    else { unset %yaptirim4 }
    if $did(15).state == 1 { set %yaptirim5 n }
    else { unset %yaptirim5 }
    if $did(18).state == 1 { set %yaptirim6 p }
    else { unset %yaptirim6 }
    if $did(14).state == 1 { set %yaptirim7 t }
    else { unset %yaptirim7 }
    if $did(19).state == 1 { set %yaptirim8 a }
    else { unset %yaptirim8 }
    if $did(16).state == 1 { set %yaptirim9 d } 
    else { unset %yaptirim9 }
    if $did(23) != $null { set %ssure $did(23) }
    if $did(25) != $null { set %ssebep $did(25) }
    if $did(28) != $null { set %skelime $did(28) }
    if $did == 34 { /spamfilter }
    if $did == 33 { /spamfilter del $$?"Parametreyi Yazınız. Yani Neleri Yasakladıgınızı Özel Msg Kanal Msg Quit,Topic Vb." $$?"Ceza Türünü Yazınız Zline,Gline Vb." - - $$?"Cezai Kelimeyi(Sileceğiniz Kelimeyi) Yazınız" }
    if $did == 32 { spamfilter add %yaptirim1 $+ %yaptirim2 $+ %yaptirim3 $+ %yaptirim4 $+ %yaptirim5 $+ %yaptirim6 $+ %yaptirim7 $+ %yaptirim8 $+ %yaptirim9 %yaptirim $did(23) $+ d $did(25) $did(28) }
    if $did == 35 { set %tspamsil on | spamfilter }
  }
  if $devent == init { 
    if %yaptirim == zline { did -c $dname 4 }
    if %yaptirim == gline { did -c $dname 3 }
    if %yaptirim == kline { did -c $dname 9 }
    if %yaptirim == gzline { did -c $dname 5 }
    if %yaptirim == shun { did -c $dname 1 }
    if %yaptirim == tempshun { did -c $dname 7 }
    if %yaptirim == block { did -c $dname 6 }
    if %yaptirim == dccblock { did -c $dname 2 }
    if %yaptirim == kill { did -c $dname 8 }
    did -a $dname 23 %ssure
    did -a $dname 25 %ssebep
    did -a $dname 28 %skelime
  }
  if $devent == close { 
    unset %yaptirim*
  }
}
raw 229:*: { 
  if %tspamsil == on { 
    /spamfilter del $3 $4 $7 $8 $10-
    .timerufuk2 1 2 unset %tspamsil
    .timerufuk 1 2 echo -as 4Tüm Spamlar Silindi. Eğer Silinmeyen Varsa Unrealircd.Conf'tan Kaldırmalısınız.
  }
  $iif(!$window(@SpamFiLter),window -nC @SpamFiLter) { 
    echo -e @SpamFilter 12Atılan Parametreler:4 $qt($3) 12Ceza Türü:4 $qt($4) 12Atılma Süresi:4 $qt($6) 12Atılma Sebebi:4 $qt($8) 12Atılan Kelime:4 $qt($remove($10,:)) 12Atan Nick:4 $qt($gettok($9,1,33)) $qt(10SPAMI SİL)
    haltdef
  }
}
on ^*:snotice:*: {
  if $2 == removed && $3 == spamfilter { 
    $iif(!$window(@biLgi),window -nC @biLgi) { 
      echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[KALDIRMA] 1Kaldıran Nick:4 $gettok($1,1,33) 1Kaldırılan Kelime:4 $remove($4,') | halt
    }
  }
  if $2 == Spamfilter && $3 == added: {
    $iif(!$window(@biLgi),window -nC @biLgi) { 
      echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[Aktif Etme] 1Atan Nick:4 $gettok($19,1,33) 1Atılan Parametreler: 4 $remove($6,]) 1 1Atılma Sebebi:4 $remove($10,]) 1Atılan Kelime:4 $remove($4,') | halt
    }
  }
  if $1 == [Spamfilter] && $3 == matches && $4 == filter { 
    $iif(!$window(@biLgi),window -nC @biLgi) {
      echo -et @biLgi 7»º» 10[SPAMFİLTER TAKILMA] 12Takılan Nick:4 $gettok($2,1,33) 12Takılan İp:4 $gettok($2,2,64) 3Spamdaki Ekli Kelime:4 $remove($5,:,') 7Userin Yazdığı Kelime:4 $remove($8-,',]) | halt
    }
  }
}

Etiketler: , , ,

NoMercy v5 Mirc Bot Securutiy

irc serverlar için benszersiz bir irc koruma botu NoMercy v5 son versiyonudur
ve bu  bot tüm  saldırılara  engel  ola biliyo  serverınıza tam anlamıyla tam bir koruma sağlıyo
mirc  botAliases kısmıdır Düzenlemeniz gereken yerler burasıdır kalbim.netyeri kendi serverınıza ayarlayınız
  • alias rklms return (Sunucu ana takısı(irc.kalbim.net) "Kalbim" gibi.)
    alias rklms2 return IRC.Kalbim.Net
    alias trg { return $replace($1-,mon,Pazartesi,Tue,Salı,wed,Çarşamba,thu,Perşembe,sat,Cumartesi,fri,Cuma,sun,Pazar) }
    alias trt { return $replace($1-,jan,Ocak,feb,Şubat,mar,Mart,apr,Nisan,may,Mayıs,jun,Haziran,jul,Temmuz,aug,Ağustos,sep,Eylül,oct,Ekim,nov,Kasım,dec,Aralık) }
    alias o.ks { return $+( [ , 4. ,$1, ] :) }
    alias o.ks2 { return $+( [ , 3! ,$1, ] :) }
    alias o.ks3 { return $+( [ , 5- ,$1, ] :) }
    alias o.ks4 { return $+( [ , 10! ,$1, ] :) }
    alias qsupass { return supass }
    alias qnickpass { return nickpass }
    alias qoperpass { return opernick operpass }
    alias qsunucu { return sunucu }
    alias qsunucuport { return 6667 }
    alias qbotnick { return Botnick takısı(Kalbim-Host) "Kalbim-" gibi.. }
    alias qradyoip { return radyo ip }
    alias qradyoport { return port }
    alias qradyopass { return pass }
    alias qsecantet { return   [   2Kalbim 2-SECURITY  ]  }
    alias qhostver { return Kalbim.Net }
    alias qlogo { return  2•  12No 14Me 15rcy  v 14 5   Sec 12urity  2™   }
    alias qspamlogo { return  2•_ 12No 14Me 15rcy_ v 14 5  _Sec 12urity  2™   }
    alias qreklam { return www.Kalbim.Net }





Etiketler: , , ,

MP3 Cutter v1.0b

MP3 Cutter v1.0b
MP3 Cutter v1.0b

İsminden de anlaşılacağı üzere mp3(wav vs.da keser) kesme programı. mIRC ile daha önce yazıldığını düşünmediğim/görmediğim, boş vaktimde can sıkıntısından bir anda aklıma gelen ve geldiğine pişman olduğum, uzattıkça uzatıp en sonunda tamam deyip yayımlamaya karar verdiğim snippet-dan bozma showcase/addon-dur kısacası.

Program dili ingilizce-dir. "Sen bir Türk kodlayıcısı olarak neden Türkçe yazmıyorsun kardeşim?!" şeklinde soran/soracak arkadaşlara şimdiden zamanla inşallah oda olur deyip tanıtıma geçiyorum(en sevmediğim kısım burası ne yazıkki)

Kod, pc-win üzerinde yazılmıştır. Herhangi bir dll(yapılandırma dosyası), com/run vb. yani external çalışan veya gerek duyan bir bölümü yoktur. 


Kullanımı basittir. Şöyleki;

Open MP3 butonundan mp3 dosyasını seçiyorsunuz, sonra Play butonu ile mp3 dosyasını yürütüp(play edip) Begin butonu ile kesilecekbaşlangıç kısmını belirliyorsunuz. Devamında End butonu ile bitiş kısmını belirleyip, İster Ply Slc. butonu ile kesilen kısmı play ediyorsunuz veya gerek yok deyip Save Slc. butonu ile kesilen kısmı belirttiğiniz klasör gövdesine kayıt ediyorsunuz. Son olarak istersen reset butonu ile aralıkları(seçilen kısımları) sıfırlayabilirsin.

Yok ben görsellikle iş yapmak istemiyorum diyorsanız;


Yapımcısı: L4roXyL
NOT: bu kod irc kodlarıdır mirc scriptinizde çalısır




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
# programme: MP3 Cutter v1.0b                                                ;
# written by: l4roxyl - (Hasan AYDENİZ)                                      ;
# visit scripting: http://www.mircscripting.net                              ;
# contact: l4roxyl[at]mircscripting[dot]net                                  ;
# use manual: /mp3cut   - sample: /mp3cut 00:37 01:45 ;
# use pcwin programme: /mp3cut                                               ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:load: {
  var %_e echo -acp info ***
  %_e MP3 Cutter v1.0b loaded. 
  %_e Use: $_m(b) $+ /mp3cut [] []
  %_e Sample manual: $_m(b) $+ /mp3cut 00:25 00:45
  %_e Visit scripting site: $_m(b) $+ http://www.mircscripting.net
  mp3cut
}
alias _m {
  if ($isid) {
    if (!$1) return @mp3
    if ($1 = i) return $insong
    if ($1 = mx) return $mouse.x
    if ($1 = my) return $mouse.y
    if ($1 = _ip) return $insong.pos
    if ($1 = _il) return $insong.length
    if ($1 = b) returnex $chr(2) $+ $2-
    if ($1 = _in_pos) return $time($int($calc($insong.pos / 1000)),nn:ss)
    if ($1 = _in_inl) return $int($calc($insong.pos * 300 / $insong.length))
    if ($1 = _in_l) return $int($calc($iif($sound($2).length,$v1,$insong.length) / 1000))
    if ($1 = _vl) return v $int($round($calc($vol(mp3) / 65535 * 100),0)) $+ $str($chr(160),10)
  }
  if ($1 = dt) drawtext $2-
  if ($1 = _h) hadd -m _begin $2-
  if ($1 = dr) drawrect -r $+ $iif($2 = f,f @MP3 $3-,$chr(32) @MP3 $2-) 
  if ($1 = w1) $iif($input(Just select Begin & End time!,wo,Warning!) = $true,return,return)
  if ($1 = w2) $iif($input(Not to remark begin time!,wo,Warning!) = $true,return,return) 
  if ($1 = w3) $iif($input(Now playing MP3! $+ $crlf $+ Are you sure select a new MP3?,yqd,Select a new MP3) = $false,return) 
  if ($1 = w4) $iif($input(Not playing to file.,wo,Warning!) = $true,return,return)
  if ($1 = w5) $iif($input(Not selected MP3 save dir!,wo,Warning!) = $true,return,return)
  if ($1 = w6) $iif($input(Not selected file.,wo,Warning!) = $true,return,return)
  if ($1 = w7) $iif($input(This not sound file!,wo,Warning!) = $true,noop,noop)
}
alias _rect {
  var %_r = return
  if ($inrect($1,$2,5,25,60,20)) %_r 5 25 
  if ($inrect($1,$2,5,95,60,20)) %_r 5 95 
  if ($inrect($1,$2,85,95,60,20)) %_r 85 95 
  if ($inrect($1,$2,165,95,60,20)) %_r 165 95 
  if ($inrect($1,$2,245,95,60,20)) %_r 245 95
  if ($inrect($1,$2,5,55,30,20)) %_r 5 55 30 20
  if ($inrect($1,$2,315,105,10,10)) %_r 315 105 10 10
  if ($inrect($1,$2,330,105,10,10)) %_r 330 105 10 10
  if ($inrect($1,$2,5,80,30,10) && $hget(_begin,b)) { %_r 5 80 30 10 }
}
alias _cn if (!$insong) { _m w4 | halt }
alias _c if ($1 = rf) return 15790320 | if ($1 = rs) return 10526880
alias _wo {
  if (!$regex($right($nopath($1-),3),/^(mp3|wav|mid)$/gi)) {
    _m w7
    if ($window(@mp3)) {
      _m dt -rb @MP3 0 $_c(rf) Verdana 9 75 29 Not selected mp3 file. (yet)
      _dsg
      $(%_s = )
      splay stop
    }
    halt
  }
}
alias _ps {
  _m dr f $_c(rs) 1 5 55 30 20 
  _m dt -ro @MP3 0 Verdana $iif($1 = play,9 9 59,16 16 55) $1
}
alias _in {
  if (!$insong.pos) {
    $iif($input(This sound file ruined! Use manual with this song. $+ $&
      $crlf $+ /mp3cut  ,wo,Warning!) = $true,mp3cut,mp3cut)
    mp3cut 
  }
}
alias _secs {
  if ($insong && $window(@mp3)) {
    var %z = $time($int($calc($_m(_il) / 1000)),nn:ss), %x = $_m(_in_pos), %? = $_m(_in_inl)
    _m dt -rbo @MP3 0 $_c(rf) Verdana 9 271 75 %x / %z
    _m dr f $iif(%?,0,$_c(rs)) 1 40 62 $iif(%?,%?,300) 5
  }
  else { .timer_secs off | _ps Play | _m dr f $_c(rs) 1 40 62 300 5 }
}
alias _ply_slc {
  var %? = $_m(_in_inl),%- = $calc($hget(_begin,e_t) * 1000), %x = $int($calc($_m(_ip) / 1000))
  var %l = $time($calc($hget(_begin,e_t) - %x),nn:ss),%_d = _m dt -rbo @MP3 0 $_c(rf) Verdana 9
  %_d 205 75 Ply: %l /
  %_d 271 75 $_m(_in_pos)
  _m dr f 0 1 $calc(%? +40) 62 1 5
  if ($_m(_ip) > %-) { .timer_ply_s -p | splay pause }
}
alias -l _mov { 
  var %dx = $calc($mouse.dx -$2),%dy = $calc($mouse.dy -$3)
  if ($window($1)) window $v1 %dx %dy 
  $iif($mouse.key & 1,.timer $+ $ticks -m 1 0 _mov $1-) 
}
alias _vol_ud {
  vol -wmp $calc($vol(mp3) $2 $1)
  _m dt -rbo @MP3 0 $_c(rf) Verdana 8 315 94 $_m(_vl) 
  $iif($mouse.key & 1,.timer $+ $ticks -m 1 60 _vol_ud $1-)
}
alias _pback {
  var %_tt = $2-3, %_f = $1, %_fb = $lof($1)
  var %_sc = $_m(_in_l,%_f)
  var %_one_s = $calc(%_fb / %_sc)
  var %_last = $round($calc(%_one_s * $2),0) $round($calc(%_one_s * $3),0) 
  var %_total = $calc($token(%_last,2,32) - $token(%_last,1,32))
  bread %_f %_last &d
  bwrite $4 1 %_total &d
}
alias _dsg {
  $iif($hget(_begin),hfree $v1)
  .timer_secs off
  .timer_ply_s off
  drawfill -r @MP3 $_c(rf) $_c(rf) 0 0
  var %_dt = _m dt -ro @MP3 0 Verdana
  _m dt -rob @MP3 0 $_c(rf) Verdana 8 315 94 $_m(_vl)
  _m dr f $_c(rf) 1 195 77 200 10 40 68 300 8 5 80 50 10 40 62 300 5
  _m dr f $_c(rs) 1 $&
    0 0 350 20 $&
    5 25 60 20 $&
    5 55 30 20 $&                  
    40 62 300 5 $&
    5 95 60 20 $&
    85 95 60 20 $&   
    165 95 60 20 $&
    245 95 60 20 $&
    315 105 10 10 $&
    330 105 10 10 $&
    325 6 8 8 $&
    335 6 8 8
  %_dt 9 6 5 MP3 Cutter v1.0b
  %_dt 9 9 29 Open MP3
  %_dt 9 9 59 Play
  %_dt 9 19 99 Begin
  %_dt 9 103 99 End
  %_dt 9 174 99 Play Slc.
  %_dt 9 253 99 Save Slc.
  %_dt 9 317 98 _
  %_dt 9 331 103 +
  %_dt 9 327 5 $chr(4) 
  %_dt 9 335 4 $chr(215)
}
alias mp3cut {
  if (!$isdir($mircdircutter)) mkdir Cutter 
  if ($1) {
    var %_w = echo -eac info *** MP3 Cutter info: $_m(b) $+ $!1-2( $+ $1-2 / invalid format) - $&
      Sample: $_m(b) $+ /mp3cut 01:10 02:15 $_m(b),%_d1 = $duration($1), %_d2 = $duration($2)
    if (!$regex($1-2,/^(\d{2}:\d{2}\s\d{2}:\d{2})$)) { %_w | return }
    if (%_d2 < %_d1 || %_d1 = %_d2) { %_w | return }
    var %_mf = $sfile(*.mp3,Select MP3 File,Select)
    if (!%_mf) {
      $token(%_w,1-7,32) $_m(b) $+ Not select mp3 file! 
      return 
    }
    else {
      _wo %_mf
      if ($_m(_in_l,%_s) < %_d1 || $_m(_in_l,%_s) < %_d2) { 
        $token(%_w,1-7,32) $_m(b) $+ File length small with entered time!
        return 
      }
      $iif($window(@mp3),window -c @mp3)
      var %_n = $nopath(%_mf),%_t = $ticks
      _pback $shortfn(%_mf) $duration($1) $duration($2) $shortfn($mircdircutter) $+ Cutter_ $+ $regsubex(%_n,/(\s)/g,_)
      $iif($input(MP3 cut successfully completed! $&
        $+ $crlf $+ Procress Time: $calc($ticks - %_t) $&
        $+ ms.,io,Completed!) = $true,run $mircdircutter,return)
      return
    }
  }
  $(%_s = ) 
  $(%_ = 245 95)
  splay stop
  vol -wmp 32767.5
  $iif($window($_m),window -c $v1)
  window -paCk0w0dB +b @MP3 -1 -1 350 125 - - - - $mircexe
  titlebar $_m Cutter v1.0b
  _dsg
  _m dt -r @MP3 0 Verdana 9 75 29 Not selected mp3 file.
}
menu @MP3 {
  leave:if (%_ != 5 80 30 10) { _m dr $_c(rs) 1 %_ 60 20 }
  mouse: {
    var %_; = _m dt -rbo @MP3 $_c(rf) $_c(rs) Verdana 9, $&
      %_;; _m dt -rbo @MP3 0 $_c(rs) Verdana 9 , %_st = $str($chr(160),2)
    ;-
    if ($inrect($_m(mx),$_m(my),325,6,8,8)) %_; 327 5 $chr(4)
    else %_;; $token(%_;,2,38) 327 5 $chr(4)
    if ($inrect($_m(mx),$_m(my),335,6,8,8)) %_; 335 4 $chr(215)
    else %_;; 335 4 $chr(215)
    ;-
    if ($inrect($_m(mx),$_m(my),40,62,300,5) && %_s) { 
      $iif($hget(_ml),hfree _ml)
      var %k = $time($int($calc(($sound(%_s).length / 300 * ($_m(mx) -40)) /1000)),nn:ss)
      _m dt -rb $menu 0 $_c(rf) Verdana 8 $iif($_m(mx) >= 309,309,$_m(mx)) 50 $&
        $+($chr(160),$iif($_m(mx) != 340,%k,$time($calc($_m(_il) / 1000),nn:ss)),%_st)
    }
    else {
      _m dr f $_c(rf) 1 40 50 305 10
    }
    if ($_rect($_m(mx),$_m(my))) {
      $(%_ = $v1)
      _m dr 0 1 %_ 60 20
    }
    else { 
      if (%_ = 5 80 30 10 && !$hget(_begin)) { _m dr $_c(rf) 1 %_ | return }
      if (%_) _m dr $_c(rs) 1 %_ 60 20 
    }
  }
  sclick: {
    if ($inrect($_m(mx),$_m(my),0,0,350,20)) { 
      _mov $menu $calc($mouse.dx - $window($menu).x) $calc($mouse.dy - $window($menu).y)
    }
    if ($inrect($_m(mx),$_m(my),325,6,8,8)) window -n $_m
    if ($inrect($_m(mx),$_m(my),335,6,8,8)) { 
      window -c $_m
      %_s = 
      splay stop 
      .timer_secs off 
      .timer_ply_s off
    }
    if ($inrect($_m(mx),$_m(my),5,95,60,20)) {
      _cn
      if (!$timer(_ply_s)) {
        var %? = $_m(_in_inl), %x = $_m(_in_pos)
        _m dr f $_c(rf) 1 37 68 300 8
        _m dr f $rgb(255,0,0) 1 $calc(%? +39) 68 1 5
        _m dt -rbo @MP3 0 $_c(rs) Verdana 9 19 99 %x
        _m dr f $_c(rs) 1 5 80 30 10
        _m dt -ro @MP3 0 Verdana 9 7 78 reset
        _m _h b $calc(%? +39)
        _m _h b_t $int($calc($_m(_ip) / 1000))
        if ($hget(_begin,e_t)) hdel _begin e_t
        return
      }
    }
    if ($inrect($_m(mx),$_m(my),85,95,60,20)) {
      _cn
      if (!$hget(_begin,b)) { 
        _m w2 
        return 
      }
      var %? = $_m(_in_inl), %x = $_m(_in_pos)
      if ($hget(_begin,b) < $calc(%? +39)) {
        _m _h e $v2
        _m _h e_t $int($calc($_m(_ip) / 1000))
        _m dr f $_c(rf) 1 40 68 300 8
        _m dt -rbo @MP3 0 $_c(rs) Verdana 9 103 99 %x
        _m dr f $rgb(255,0,0) 1 $hget(_begin,e) 68 1 5 $iif($hget(_begin,b),$v1 68 1 5)
        _m dr f $rgb(255,0,0) 1 $iif($hget(_begin,b),$v1) 70 $iif($hget(_begin,e),$calc($v1 - $hget(_begin,b))) 1
      }
    }
    if ($inrect($_m(mx),$_m(my),165,95,60,20)) {
      if ($hget(_begin,b_t) && $hget(_begin,e_t)) {
        if (!$timer(_secs)) .timer_secs -m 0 10 _secs
        _m dr f $_c(rs) 1 40 62 300 5
        .timer_secs -p
        hadd -m _sp $ticks
        splay $shortfn(%_s) $calc($hget(_begin,b_t) * 1000)
        var %? = $_m(_in_inl)
        .timer_ply_s -m 0 10 _ply_slc
        _ps Play
      }
      else _m w1
    }
    if ($inrect($_m(mx),$_m(my),5,25,60,20)) {
      if ($insong) { _m w3 }
      $(%_s = $sfile(*.mp3,Select MP3 File,Select))
      _m dr f $_c(rf) 1 67 25 300 20
      if (%_s) {
        splay stop 
        _dsg
        _wo %_s
        var %f = $shortfn(%_s), %t = $time($_m(_in_l,%_s),nn:ss), %sf = $nopath(%_s)
        _m dt -rbo @MP3 0 $_c(rf) Verdana 9 271 75 00:00 / %t
        _m dt -rbp @MP3 0 $_c(rf) Verdana 9 75 29 $_m(b) $+ $&
          Selected file: $_m(b) $+ $iif($len(%sf) >= 30,$left(%sf,30) $+ ..,%sf)
      }
      else {
        splay stop
        _dsg
        _m dt -rb @MP3 0 $_c(rf) Verdana 9 75 29 Not selected mp3 file. (yet)
      }
    }
    if ($inrect($_m(mx),$_m(my),5,55,30,20)) {
      if (!%_s) _m w6
      else {
        $iif($hget(_sp),hfree _sp)
        _m dr f $_c(rf) 1 195 77 70 10
        _m dr f $_c(rs) 1 40 62 300 5
        if ($timer(_ply_s)) {
          .timer_ply_s off
          .timer_secs -r
          splay resume
          _ps ıı
          return
        }
        if (!$insong || $insong.pause) {
          splay $iif($insong.pause,resume) $shortfn(%_s)
          .timer 1 2 _in
          _ps ıı
          if ($timer(_secs).pause) { 
            .timer_secs -r 
            _ps ıı
          }
          elseif !$timer(_secs) { .timer_secs -m 0 10 _secs }
        }
        elseif (!$timer(_secs).pause) { 
          splay pause 
          .timer_secs -p 
          _secs 
          _ps Play
        }
      }
    }
    if ($inrect($_m(mx),$_m(my),5,80,30,10)) {
      if ($hget(_begin,b)) {
        _m dt -rbo @MP3 0 $_c(rs) Verdana 9 19 99 Begin
        _m dt -rbo @MP3 0 $_c(rs) Verdana 9 103 99 End $+ $str($chr(160),4)
        _m dr f $_c(rf) 1 40 68 300 8 5 80 50 10 195 77 70 10
        .timer_ply_s off
        if ($timer(_secs).pause) { .timer_secs -r | splay resume | _ps ıı }
        $iif($hget(_begin),hfree _begin)
        $iif($hget(_sp),hfree _sp)
      }
    }
    if ($inrect($_m(mx),$_m(my),245,95,60,20)) {
      if ($hget(_begin,b) && $hget(_begin,e)) {
        var %_dir = $sdir($mircdir,Select a dir?)
        if (!%_dir) { _m w5 }
        else {
          var %_f = $nopath(%_s),%_t = $ticks
          _pback $shortfn(%_s) $hget(_begin,b_t) $hget(_begin,e_t) %_dir $+ Cutter_ $+ $regsubex(%_f,/(\s)/g,_)        
          $iif($input(MP3 cut successfully completed! $&
            $+ $crlf $+ Procress Time: $calc($ticks - %_t) $&
            $+ ms.,io,Completed!) = $true,run %_dir,return)
        }
      }
      else _m w1
    }
    if ($inrect($_m(mx),$_m(my),330,105,10,10)) {
      if ($vol(mp3) < 65535) _vol_ud 655 +
    }
    if ($inrect($_m(mx),$_m(my),315,105,10,10)) {
      if ($vol(mp3) > 0) _vol_ud 655 -
    }
    if ($inrect($_m(mx),$_m(my),40,62,300,5)) {
      if ($insong) {
        var %? = $_m(_in_inl),%_mx = $calc($_m(mx) -39), $&
          %_drf = _m dr f $_c(rs) 1 $_m(mx) 62 $calc(340 - $_m(mx)) 5, $&
          %_sp = splay seek $int($calc($_m(_il) / 300 * %_mx))
        if ($hget(_sp)) {
          if ($mouse.x < $hget(_begin,e) && $mouse.x > $hget(_begin,b)) {
            %_sp
            splay resume
            $iif($timer(_ply_s).pause,.timer_ply_s -r)
            _m dr f 0 1 $hget(_begin,b) 62 $iif(%?,%?,300) 5
            %_drf
            return
          }
        }
        elseif (!$hget(_sp)) {
          %_sp
          _m dr f 0 1 40 62 $iif(%?,%?,300) 5
          %_drf
        }
      }
    }
  }
}

Etiketler: , ,

9 Nisan 2013

mIRC Dosyadaki Kanallara Info Cek Kodu


AySe kanallara bilgi ceker ile dosyaya eklediginiz tum Kod. mIRC Ana dizine channel.txt dosyasi acin. icine kanallar ekleyiniz. Remotelere asagidaki Kodu yerlestiriniz.

Kod;

alias alist (
  var% i 1
  var% toplam $ hatlar? ($ mircdirchannel.txt)
  (% I <= toplam%) (süre
    ($) Mircdirchannel.txt, n,% i okumak ($ e?er! = $ Null) (/ cs $ v1 bilgisi)
    inc% i 1
  )
)

Etiketler: