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

7Beğeni(ler)
  • 2 Post By EmekTar
  • 1 Post By Mithra
  • 1 Post By hakancann
  • 1 Post By Berk
  • 1 Post By Billy
  • 1 Post By manikdepresif

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Nisan 2018, 22:10   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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. } } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 03 Ocak 2019, 10:48   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Seslenme Addonu





Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Emeğinize sağlık..

__________________
~Silence is the most powerful scream~
 
Alıntı ile Cevapla

Alt 01 Şubat 2019, 21:54   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Seslenme Addonu




teşekkürler

 
Alıntı ile Cevapla

Alt 05 Şubat 2019, 03:51   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Seslenme Addonu




teşekkürler..

 
Alıntı ile Cevapla

Alt 17 Şubat 2022, 20:14   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Seslenme Addonu




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

 
Alıntı ile Cevapla

Alt 30 Kasım 2023, 21:16   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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

__________________
Bana sihirli kelimeyi söyle
 
Alıntı ile Cevapla

Cevapla

Etiketler
addon, seslenme


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
mIRC Uyarı Addonu Joop mIRC Scripting Sorunları 13 09 Mart 2013 09:05
Mirc Seslenme Uyarisi. NefeS mIRC Scripting Sorunları 3 24 Şubat 2011 23:17
SesLenme Addonu Lazım. BraveStorm mIRC Scripting Sorunları 14 03 Şubat 2008 17:56
mIRC Update Addonu UpsIDintAgain mIRC Scripting Hazır Kodlar 0 17 Ağustos 2006 09:10
mIRC'e DJ Addonu Ekleyebilirmiyiz. cenebazozan mIRC Scripting Sorunları 3 19 Kasım 2005 19:47