Forum

TRKlavye.NET Resmi Forum Sitesi'nde her türlü konuları soru-cevap seklinde ve açılan kategorilere uygun bir şekilde sorunlarınza yönelik çözüm arayabilirsiniz

Webmaster Sitesi

Webmaster (Web uzmanı), internet üzerine teknik bilgisiyle öne çıkan, internet siteleri ve web uygulamaları geliştiren, internet ekosisteminde kullanılacak üründür.

Genel Programlar

Ücretsiz ve güvenle indirebileceğiniz tüm web programlarının tek adresi.En güncel sürümleri ile beraber artık sizlerle!



Mirc Seslenme Addonu

Hazır Kodlar - Bölüm Kuralları
  • Paylaşacağınız kodun kopyası yada benzeri bölüm içerisinde bulunmamalıdır.
  • Paylaşacağınız kodun kullanım şekli açık ve net bir şekilde dile getirmelisiniz.
  • Kodun amacı yada içeriğinde asla kullanıcılara zarar verecek bir yapı olmamalıdır.
  • mIRC hazır kod parçacıklarını .zip, rar ve .txt uzantılarından başka herhangi bir uzantı ile eklemeye çalışmak yasaktır.

  • Konuyu Başlatan: Delikan
  • Konu Başlığı: Mirc Seslenme Addonu
  • Kategori: mIRC Scripting / mIRC Hazır Kodlar;
  • Dosya Uzantıları: .zip, .rar, .txt
  • Kodlama Dili: Visual Basic, C++, Delphi, Com, Objects, Socket
 
menu menubar { 
  - 
  Nick Uyari Menüsü:/uyar 
  - 
} 
alias uyar { .dialog -m uyar uyar } 
dialog uyar { 
  title "Nick uyarı menüsü ayarları by kralaz" 
  size -1 -1 145 144 
  option dbu 
  edit "", 2, 10 15 60 10, return autohs 
  list 3, 10 28 60 68, sort size 
  button "Ekle", 4, 78 15 33 10 
  button "SiL", 5, 78 28 33 10 
  check "Uyarıyı Aç/Kapat", 10, 78 60 60 10 
  check "Flash Aç/Kapat", 13, 78 72 60 10 
  check "Yesil isik Aç/Kapat", 14, 78 84 60 10 
  box "Muaf Nick Listesi", 9, 6 4 134 110 
  text " Eklenen nick size seslenince uyarı vermeyecektir", 11, 6 120 134 8 
  button "Tamam", 12, 6 132 134 10, ok 
  check "Ses Çal Aç/Kapat", 6, 78 48 60 10 
  edit "", 7, 10 100 20 10, return autohs 
  Text "Ctrl + Kod Kullanarak nick satırına Renk ver", 8, 34 101 104 8 
} 
on *:dialog:uyar:*:*:{ 
  if ($devent == edit) { 
    if ($did == 7) { set %renks $did(7) } 
  } 
  if ($devent == sclick) { 
    if ($did($dname,10).state == 1) { set %nuyar 1 } | else { set %nuyar 0 } 
    if ($did($dname,13).state == 1) { set %fuyar 1 } | else { set %fuyar 0 } 
    if ($did($dname,14).state == 1) { set %yiuyar 1 } | else { set %yiuyar 0 } 
    if ($did($dname,6).state == 1) { set %suyar 1 } | else { set %suyar 0 } 
    if ($did == 4) { .did -a uyar 3 $did(uyar,2) | .auser sus $did(uyar,2) | .did -r uyar 2 } 
    if ($did == 5) { .ruser sus $did(uyar,3).seltext | .did -d uyar 3 $did(uyar,3).sel } 
  } 
  if ($devent == init) { 
    if (%nuyar == 1) { did -c uyar 10 } 
    if (%fuyar == 1) { did -c uyar 13 } 
    if (%yiuyar == 1) { did -c uyar 14 } 
    if (%suyar == 1) { did -c uyar 6 } 
    did -ra $dname 7 %renks 
    if $ulist(*,sus,0) > 0 { 
      var %i 1 
      while %i <= $ulist(*,sus,0) { 
        .did -a uyar 3 $ulist(*,sus,%i) 
        inc %i  
      } 
    } 
  } 
} 
on ^*:TEXT:$(* $+ $me $+ *):#:{  
  if (%nuyar == 1) { 
    if ($ulist($nick,sus,0) >= 1) { return } 
    if ($active != $chan) { 
      echo -a -----------------------------------------------------------------------------
      echo -a  4,1<15,1 $timestamp 4,1> 12 $chan  Kanalında 12 $nick  senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ " 
      ;echo -a  4,1<15,1 $timestamp 4,1> 12Yazdığı mesaj:1 " $+ $1- $+ " 
      ;notice $nick Şuan bu ekrana bakmiyorum. 
      echo -a ----------------------------------------------------------------------------- 
      echo $chan $timestamp 14< $+ $nick $+ > %renks $1- 
      window -e @Whois
      echo @Whois 4,1<15,1 $timestamp 4,1> 12 $chan  Kanalında 12 $nick  senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ " 
      haltdef 
    }  
    if (%suyar == 1) { 
      if ($ulist($nick,sus,0) >= 1) { halt } 
      if ($active != $chan) { 
        ; .splay sounds\seniseviyorum.wav  
      } 
    } 
    if (%fuyar == 1) { 
      if ($ulist($nick,sus,0) >= 1) { halt } 
      else { 
        flash $chan kanalından $nick size sesleniyor. 
      } 
    } 
    if (%yiuyar == 1) { 
      if ($ulist($nick,sus,0) >= 1) { halt } 
      else { 
        window -g2 # 
      } 
    } 
  } 
} 
;- 
on *:TEXT:$(* $+ $me $+ *):?:{  
  if (%nuyar == 1) { 
    if ($ulist($nick,sus,0) >= 1) { return } 
    if ($active != $nick) { 
      echo -a 4,1<15,1 $timestamp 4,1> 12 $nick 1 Özelde senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ " 
      window -e @Whois
      echo @Whois 4,1<15,1 $timestamp 4,1> 1Özelinizde 12 $nick  senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ "  
    }  
  } 
  if (%fuyar == 1) { 
    if ($ulist($nick,sus,0) >= 1) { halt } 
    else { 
      flash $nick özelden size sesleniyor. 
    } 
  } 
}

Kullanıcı: | Misafir: Toplam () Kişi

D İ K K A T !

  • Konudan farklı bir şey için soru sorulacak ise ayrı bir konu açılmalı.
  • Yoruma eklenecek kod 15 satırdan fazla ise onay alınarak kod yüklenmeli.
  • Eklenen kodlar kesinlikle code tagı ile eklenmeli. Farklı bir tag ile eklenen kodlar silinecektir.
  • Resimleri link olarak verilmeli, image tagı ile değil. Link açık olarak veya url tagı ile yazılabilir.
  • Konu ile ilgili olmayan yorumlar veya buna sebebiyet verecek yorumlar haber verilmeden silinecektir.
  • Yazılanlar anlaşılabilir ve kelimeler doğru harflerle yazılmalıdır.
  • Tamamen büyük harf ile yazılan, yorumlar silinecek; Benzer kelimelerin bulunduğu yorumların sahibi uyarı alacaktır.
  • Konuyu ekledikten sonra, bilen yok mu? bakan yok mu? eden yok mu? tarzında yazılan yorum sahipleri yasaklanacaktır.

Yorum Ekleyerek Bize Destek Olabilirsiniz