Çevrimdışı

Help Uyarıcı
2 görüntü

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.

[BOX="+i"]###############################
# #
# Coder By KiLLed #
# #
###############################
menu channel {
-
H » Help System:.helpuy
-
}
alias helpuy { .dialog -m helpuy helpuy }
dialog helpuy {
title "KiLLed Help Uyarı Systemi"
size -1 -1 215 220
option dbu
box "", 1, 9 11 196 132
button "Nick Ekle", 2, 26 19 37 12
button "Nick SiL", 3, 65 19 37 12
edit "", 4, 26 33 76 10
list 5, 26 44 76 81, size
button "Kanal Ekle", 6, 110 19 37 12
button "Kanal SiL", 7, 149 19 37 12
edit "", 8, 110 33 76 10
list 9, 110 44 76 81, size
edit "", 10, 8 153 50 10
edit "", 11, 116 153 50 10
edit "", 12, 8 171 50 10
edit "", 13, 116 171 50 10
text " Kanalına gireni Sys1 ", 14, 61 153 52 10
text " Kanalına gireni Sys2", 15, 61 171 52 10
text " Kanalına Bildir.", 16, 169 153 36 10
text " Kanalına Bildir.", 17, 169 171 36 10
check "Systemi Aç/Kapat", 18, 8 187 56 10
check "Sys1 Aç/Kapat", 19, 82 187 56 10
check "Sys2 Aç/Kapat", 20, 156 187 50 10
button "T A M A M K A P A T", 21, 8 201 198 12, ok
text " Eklenen Nick uyarıdan muaftır", 22, 10 3 79 8
text " Eklenen Kanalda uyarı Verilecek", 23, 110 4 95 8
}
on *:dialog:helpuy:*:*:{
if ($devent == sclick) {
if ($did(18).state == 1) { set %helpsys 1 } | else { %helpsys 0 }
if ($did(19).state == 1) { set %helpdes 1 } | else { %helpdes 0 }
if ($did(20).state == 1) { set %helpkes 1 } | else { %helpkes 0 }
if ($did == 2) { did -a helpuy 5 $did(4) | .auser helpni $did(4) | did -r helpuy 4 }
if ($did == 3) { ruser helpni $did(5).seltext | did -d helpuy 5 $did(5).sel }
if ($did == 6) { did -a helpuy 9 $did(8) | .auser helpka $did(8) | did -r helpuy 8 }
if ($did == 7) { ruser helpka $did(9).seltext | did -d helpuy 9 $did(9).sel }
}
if ($devent == edit) {
if ($did == 10) { set %syk1 $did(10) }
if ($did == 11) { set %syk1= $did(11) }
if ($did == 12) { set %syk2 $did(12) }
if ($did == 13) { set %syk2= $did(13) }
}
if ($devent == init) {
if (%helpsys == 1) { did -c helpuy 18 }
if (%helpdes == 1) { did -c helpuy 19 }
if (%helpkes == 1) { did -c helpuy 20 }
did -ra $dname 10 %syk1
did -ra $dname 11 %syk1=
did -ra $dname 12 %syk2
did -ra $dname 13 %syk2=
if $ulist(*,helpni,0) > 0 {
var %i 1
while %i <= $ulist(*,helpni,0) {
.did -a helpuy 5 $ulist(*,helpni,%i)
inc %i
}
}
if $ulist(*,helpka,0) > 0 {
var %i 1
while %i <= $ulist(*,helpka,0) {
.did -a helpuy 9 $ulist(*,helpka,%i)
inc %i
}
}
}
}
on !*:join:#:{
if ($chan != $active) {
if ($ulist($chan,helpka,0) >= 1) {
echo -a $timestamp 4,1 Bilgilendirme  $address($nick,5) 2 $chan kanalına girdi
}
}
if (%helpdes == 1) && ($chan == %syk1) {
if ($ulist($nick,helpni,0) >= 1) { return }
msg %syk1= $nick %syk1 kanalına girdi.
}
if (%helpkes == 1) && ($chan == %syk2) {
if ($ulist($nick,helpni,0) >= 1) { return }
msg %syk2= $nick %syk2 kanalına girdi
}
}
[/BOX]