IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Mirc Seslenme Addonu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/792180-mirc-seslenme-addonu.html)

Mirc Seslenme Addonu

Mirc scriptinize ekleyebileceğiniz seslenme remotesi, mickinize seslenenleri size echo olarak bildirir, seslenilmiş satırı istediğin renkde belirtir, istediğiniz nicki muaf tutabilirsiniz ve ayrıca ses çalma ve flash uyarı entegre edebilme özelliği.

Kod:

 

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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is

      echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is

      echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 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. 

    } 

  } 

}

Cevap: Mirc Seslenme Addonu

:tatli::tatli: Emeğinize sağlık..

Cevap: Mirc Seslenme Addonu

Emeğine Sağlık Çok Güzel Kod

Cevap: Mirc Seslenme Addonu

Alternatif
-------------------------------------------------------------
;COKLU SUNUCULAR ICIN SESLENME REMOTESI
-------------------------------------------------------------
;UYARIYA-GIT yazan yere tikladiginizda sizin nickinizin gecen yere yonlendirir.
;@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde seslenmelerin kaydini tutar.Mouse ile sag tiklayip nickinizin gecen yere gidebilirsiniz.
;Cumle icinde kendi nickiniz tam olarak yazildiginda calisir.

;KOD BASLANGIC

Kod:

alias nickim return $+(*,$me,*)

on *:text:$($nickim):*: {

  if ($istok($1-,$me,32) && $query($nick) != $active && $window($nick).type == query && !$chan) {

    beep | echo -at 2,4[UYARIYA-GIT] $network sunucusunda  $nick özelde senden bahsediyor: $1-

    window -g2 $window($nick) 

  }

  if ($istok($1-,$me,32) && $chan != $active && $window($chan).type == channel) {

    if !$window($+(@,Msg-,$network)) { scid $cid window -aln $+(@,Msg-,$network) }

    aline -h $+(@,Msg-,$network) ( $+ $time $+ )  $nick $chan kanalinda size seslendi : $1-

    beep | echo -at 2,4[UYARIYA-GIT] $network  sunucusunda  $nick $chan  kanalinda senden bahsediyor: $1-

    window -g2 $window($chan)

    ;if $idle > 1200 { msg $chan $nick : $replace($duration($idle),mins,$chr(32) $+ dakika,min,$chr(32) $+ dakika,hrs,$chr(32) $+ saat,hr,$chr(32) $+ saat,secs,$chr(32) $+ saniye,sec,$chr(32) $+ saniye) süredir bilgisayar basinda degilim. }

  }

}

on ^*:HOTLINK:*:*:{ if (*UYARIYA-GIT* iswm $1-) return }

on 1:HOTLINK:*:*:{

  var %x = $strip($hotline)

  if $regex(%x,/(.+)\[UYARIYA-GIT\](.+) sunucusunda (.+) (.+) kanalinda senden bahsediyor\:(.+)/i) {

    var %m = 1

    while (%m <= $scon(0)) { var %z = $remove($regml(2),$chr(32))

      if %z == $scon(%m).network { scid $scon(%m) window -a $regml(4) | findtext $regml(5) }

      inc %m

    }

  }

  if $regex(%x,/(.+)\[UYARIYA-GIT\] (.+) sunucusunda (.+) özelde senden bahsediyor\:(.+)/i) {

    var %m = 1

    while (%m <= $scon(0)) {

      if ($regml(2) == $scon(%m).network) { scid $scon(%m) window -a $regml(3) | findtext $regml(4) }

      inc %m

    }

  }

}

menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]* {

  Bahsedilen Yere Git://tokenize 32 $sline($active,1) | window -a $strip($4) | findtext $10-

}

;KOD BITIS

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:16 -->-> Daha önceki mesaj 19:55 --

hatalar giderildi.
----------------------------------------
;COKLU SUNUCULAR ICIN SESLENME REMOTESI
----------------------------------------
;UYARIYA-GIT yazan yere tikladiginizda sizin nickinizin gecen yere yonlendirir.
;@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde seslenmelerin kaydini tutar.Mouse ile sag tiklayip nickinizin gecen yere gidebilirsiniz.
;
;KOD BASLANGIC

Kod:

alias -l nickim return $+(*,$me,*)

on *:text:$($nickim):*: {

  if ($istok($1-,$me,32) && $query($nick) != $active && $window($nick).type == query && !$chan) {

    beep | echo -at 2,4[UYARIYA-GIT] $network sunucusunda  $nick özelde senden bahsediyor: $1-

    window -g2 $window($nick) 

  }

  if ($istok($1-,$me,32) && $chan != $active && $window($chan).type == channel) {

    if !$window($+(@,Msg-,$network)) { scid $cid window -aln $+(@,Msg-,$network) }

    aline -h $+(@,Msg-,$network) ( $+ $time $+ )  $nick $chan kanalinda size seslendi : $1-

    beep | echo -at 2,4[UYARIYA-GIT] $network  sunucusunda  $nick $chan  kanalinda senden bahsediyor: $1-

    window -g2 $window($chan)

    ;if $idle > 1200 { msg $chan $nick : $replace($duration($idle),mins,$chr(32) $+ dakika,min,$chr(32) $+ dakika,hrs,$chr(32) $+ saat,hr,$chr(32) $+ saat,secs,$chr(32) $+ saniye,sec,$chr(32) $+ saniye) süredir bilgisayar basinda degilim. }

  }

}

;

on ^*:HOTLINK:*:*:{ if (*UYARIYA-GIT* !iswm $1-) halt }

on 1:HOTLINK:*:*:{

  var %x = $strip($hotline)

  if $regex(%x,/(.+)\[UYARIYA-GIT\](.+) sunucusunda (.+) (.+) kanalinda senden bahsediyor\:(.+)/i) {

    var %m = 1

    while (%m <= $scon(0)) { var %z = $remove($regml(2),$chr(32))

      if %z == $scon(%m).network { scid $scon(%m) window -a $regml(4) | findtext $regml(5) }

      inc %m

    }

  }

  if $regex(%x,/(.+)\[UYARIYA-GIT\] (.+) sunucusunda (.+) özelde senden bahsediyor\:(.+)/i) {

    var %m = 1

    while (%m <= $scon(0)) {

      if ($regml(2) == $scon(%m).network) { scid $scon(%m) window -a $regml(3) | findtext $regml(4) }

      inc %m

    }

  }

}
 

menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]* {

  Bahsedilen Yere Git://tokenize 32 $sline($active,1) | window -a $strip($4) | findtext $10-

}

;KOD BITIS