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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 13 Şubat 2013, 21:54   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Help Uyarı




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]

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
uyarı


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
uyarı pRopheCy mIRC Scripting Sorunları 5 11 Aralık 2008 08:20
Resmi uyarı! :Microsoftt da web sitesinde tüm kullanıcılara uyarı! CaSt Güvenlik Açıkları 3 06 Nisan 2007 23:06