Neler yeni

Nick Uyarı

Disket

Moderatör
Katılım
24 Nis 2019
Mesajlar
1,000
Tepkime puanı
3
Konum
Ankara
menu channel,query,nicklist {
-
H » Nick Uyari Menüsü:/uyar
-
}
alias uyar { .dialog -m uyar uyar }
dialog uyar {
title "KiLLed Nick Uyarı Menüsü"
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
"Nick Şeklinde Ekleyiniz...", 9, 6 4 134 110
text
" Eklenen nick nickinizi yazınca 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 $timestamp 2 $nick $chan kanalında senden bahsediyor !!
echo -
a $timestamp 2 Yazdığı mesaj: " $+ $1- $+ "
echo $chan $timestamp 4[ < $+ $nick $+ > 4] %renks $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 $timestamp 2 $nick Özelde senden bahsediyor !!
echo -
a $timestamp 2 Yazdığı mesaj: " $+ $1- $+ "
}
}
if (%
fuyar == 1) {
if (
$ulist($nick,sus,0) >= 1) { halt }
else {
flash $nick özelden size sesleniyor.
}
}
}
 
Üst