| Smith | 14 Şubat 2016 17:49 |
Whois Ayar Menüsü
Mirc scripting kullanıcıları için Whois Ayar Menüsüsü kodladım arkadaşlar umarım işinize yarar.
Whois Sayaç ( Noticeli )
Whois Flood
Whois Çekme Bilgileri ( @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is )
Whois Çekeni Kanala Çekmek (Adminler İçin)"
--------------------------------------
Bu işlev ile çalışır. /dialog -m whois whois Kod:
on *:snotice:*: {
if $regex($1-,/(/whois)/Si) {
if %whoisflood == 1 {
if !$hget(whois) { .hmake whois 1000 | .hload whois whois.ymc }
if !$hget(whois,$2) { .hinc whois $2 1 | hsave whois whois.ymc | $+(.,timer,$2) 1 300 .hdel whois $2 | msg $2 Whois Cektiniz Nasıl Yardımcı Olabilirim. ? }
else { .hinc whois $2 1 | hsave whois whois.ymc }
if $hget(whois,$2) == 2 || $hget(whois,$2) == 3 { msg $2 $hget(whois,$2) Kez Whois Cektiniz Nasıl Yardımcı Olabilirim ? }
elseif $hget(whois,$2) == 4 { msg $2 $hget(whois,$2) Kez Whois Cektiniz Birdahaki Sefer Kill Atılacak. }
elseif $hget(whois,$2) == 5 { kill $2 Whois Flood. | $+(.,timer,$2) off }
}
if %whoissayac == 1 {
if !%wsyc { .set %wsyc 1 } | else { inc %wsyc }
notice $2 0,1 $server IRC Server 14 Bana Whois Çeken4 $calc($+(1587848713,+,%wsyc,.)) 14Kişisin.
}
if %pencere == 1 {
window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is
echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is $+([,$time,] 4Nick: $2 14IP: $remove($gettok($3,2,64),$chr(41)) 2Ident: $remove($gettok($3,1,64),$chr(40)))
}
if %wkcek == 1 {
sajoin $2 %knl
}
}
}
dialog whois {
title "Whois Ayar Menüsü."
size -1 -1 136 108
option dbu
box "Açmak İstediğiniz Özelliğe Tik Koyun", 1, 2 2 132 70
check "Whois Sayaç ( Noticeli )", 2, 6 11 112 10
check "Whois Flood", 3, 6 20 50 10
check "Check Box", 5, 55 137 50 10
check "Whois Çekme Bilgileri ( @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is )", 6, 6 38 118 10
check "Whois Çekeni Kanala Çekmek (Adminler İçin)", 7, 6 47 118 10
edit "#whois", 8, 71 56 50 10
button "KAYDET !", 9, 2 75 132 22
link "Ayaz", 10, 104 99 33 8
}
on *:dialog:whois:*:*: {
if ($devent == edit) && ($did == 8) { .set %knl $did(8) }
if ($devent == sclick) {
if ($did == 3) {
if (%whoisflood) { unset %whoisflood } else { set %whoisflood 1 }
}
if ($did == 2) {
if (%whoissayac) { unset %whoissayac } | else { set %whoissayac 1 }
}
if ($did == 6) {
if (%pencere) { unset %pencere } | else { set %pencere 1 }
}
if ($did == 7) {
if (%wcek) { unset %wcek } | else { set %wcek 1 }
}
if ($did == 9) { dialog -x whois whois }
}
if ($devent == init) {
if (%whoisflood) did -c whois 3
if (%whoissayac) did -c whois 2
if (%pencere) did -c whois 6
if (%wcek) did -c whois 7
}
}
|
