| Aytac |
27.Şubat.2019 21:55 |
mIRC Seslenme Addonu
Kod:
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.
|
