Mirc Seslenme Addonu

menu menubar { 
  - 
  Nick Uyari Menüsü:/uyar 
  - 
} 
alias uyar { .dialog -m uyar uyar } 
dialog uyar { 
  title "Nick uyarı menüsü ayarları by Aytac" 
  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. 
    } 
  } 
}

100

101

102

menu menubar {

Nick Uyari Menüsü:/uyar

}

alias uyar { .dialog -m uyar uyar }

dialog uyar {

title "Nick uyarı menüsü ayarları by Aytac"

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.

}

Mirc seslenme addonu;

Nick seslenince ses uyarısı versin diyorsanız;

; .splay sounds\seniseviyorum.wav bu kodu aratın.Başındaki ; bu işareti kaldırın.

Sounds klasorunun içine seniseviyorum.wav ses dosyası atarak sesli nick uyarısı verdirebilirsiniz.

önceki yazımızda « mIRC Fullname yasaklama txt makelemiz var.

Makale Yazarı : admin

5 Aralık, 2018

837

Yazı kategorisi : mIRC Hazır Kodlar

yorum yok

Mirc Seslenme Addonu

Etiketler

Mirc Seslenme Addonu İle Benzer Sohbet Yazıları

mIRC Fullname yasaklama txt

mIRC Version Yasaklama

mIRC Socket CityBOT

Mirc Seslenme Addonu

Mirc Seslenme Addonu İle Benzer Sohbet Yazıları

Mirc Seslenme Addonu yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?