Feragat Nickli Üyeden Alıntı
(Mesaj 1041526442)
Kod:
dialog kknks {
title "Kayıtlı ve Kayıtsız Nickler Kontrol Sistemi"
size -1 -1 253 237
option dbu
list 1, 115 11 58 192, size hsbar vsbar
box "Kayıtsız Nickler", 4, 109 2 68 224
edit "", 2, 13 73 74 10, autohs
edit "", 6, 13 43 74 10, autohs
button "Hepsine Zline At", 7, 12 130 74 10
button "Hepsine Kanalda Voice Ver", 8, 12 146 74 10
button "Hepsinin Voicesini Geri Al", 9, 12 162 74 10
button "Hepsini Kanala Sajoin Yap", 10, 12 179 74 10
box "Mesaj Menüsü", 11, 3 2 98 101
box "Global İşlemler Menüsü", 12, 2 106 98 120
button "Away Mesaj Kontrolü Yap", 13, 12 195 74 10
button "Reklam Mesaj Kontrolü Yap", 14, 12 211 74 10
button "Hepsini Kanalda Banla", 15, 12 115 74 10
edit "", 17, 13 13 74 10, autohs
button "Nick Register Bilgisi", 16, 26 25 52 12
button "Text Mesaj Gönder", 5, 23 54 54 12
button "Reklam,Away Kanalı", 3, 21 85 57 9
box "Kayıtlı Nickler", 20, 183 2 68 224
list 34, 189 11 58 191, size hsbar vsbar
radio "Kayıtsızlara İşlem", 18, 116 228 57 9
radio "Kayıtlılara İşlem", 19, 190 228 52 9
text "İşlem Yapacağınız Nick Türünü Sagdan Seçiniz", 21, 1 228 112 8
text "Sayı:", 22, 115 208 12 8
text "Sayı:", 23, 189 208 12 8
text "", 24, 129 208 25 8
text "", 25, 203 208 25 8
}
on *:dialog:kknks:sclick:*: {
if $did(18).state == 1 { set %kayitsiz on | unset %kayitli }
if $did(19).state == 1 { set %kayitli on | unset %kayitsiz }
if ($did == 16) {
set %kayitmsg $did(17)
var %i 1
while %i <= $lines(kayitsiz.txt) {
msg $gettok($read(kayitsiz.txt,%i),2,46) $did(17)
inc %i
}
}
if ($did == 5) {
if %kayitsiz == on {
set %globalmesaj $did(6)
var %i 1
while %i <= $lines(kayitsiz.txt) {
$gettok(msg $read(kayitsiz.txt,%i),2,46) $did(6)
inc %i
}
}
if %kayitli == on {
set %globalmesaj $did(6)
var %i 1
while %i <= $lines(kayitli.txt) {
msg $gettok($read(kayitli.txt,%i),2,46) $did(6)
inc %i
}
}
}
if $did == 3 {
set %ckanal $did(2)
}
if $did == 15 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
mode $active +b $address($gettok($read(kayitsiz.txt,%i),2,46),2)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
WhileFix WhileFix .
mode $active +b $address($gettok($read(kayitli.txt,%i),2,46),2)
inc %i
}
}
}
if $did == 7 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
$gettok($read(kayitsiz.txt,%i),2,46) %sure 4Kurallara Uyunuz
inc %i
}
did -r $dname 1 | did -a $dname 24 $did(1).lines
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
Zline $gettok($read(kayitli.txt,%i),2,46)
inc %i
}
did -r $dname 34 | did -a $dname 25 $did(34).lines
}
}
if $did == 8 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
mode $active +v $gettok($read(kayitsiz.txt,%i),2,46)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
mode $active +v $gettok($read(kayitli.txt,%i),2,46)
inc %i
}
}
}
if $did == 9 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
mode $active -v $gettok($read(kayitsiz.txt,%i),2,46)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
mode $active -v $gettok($read(kayitli.txt,%i),2,46)
inc %i
}
}
}
if $did == 10 {
if %kayitsiz == on {
var %i 1
var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
while %i <= $lines(kayitsiz.txt) {
sajoin $gettok($read(kayitsiz.txt,%i),2,46) %uks
inc %i
}
}
if %kayitli == on {
var %i 1
var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
while %i <= $lines(kayitli.txt) {
sajoin $gettok($read(kayitli.txt,%i),2,46) %uks
inc %i
}
}
}
if $did == 13 {
set %awayk on
.timer 1 1 who +a $active
.timer 1 4 unset %awayk
}
if $did == 14 {
set %reklamkontrol on
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
msg $gettok($read(kayitsiz.txt,%i),2,46) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
msg $gettok($read(kayitli.txt,%i),2,46) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
inc %i
}
}
.timer 1 2 unset %reklamkontrol
}
}
on *:dialog:kknks:*:*: {
if $devent == init {
who $active
did -a $dname 17 %kayitmsg
did -a $dname 6 %globalmesaj
did -a $dname 2 %ckanal
if %kayitli == on { did -c $dname 19 }
if %kayitsiz == on { did -c $dname 18 }
.timer 1 1 savebuf -o kknks 1 kayitsiz.txt
.timer 1 2 savebuf -o kknks 34 kayitli.txt
}
if $devent == dclick {
if ($did == 34) { write -ds $+ $gettok($did(34).seltext,2,46) kayitli.txt | did -d kknks 34 $did(34).sel | did -a $dname 24 $did(34).lines }
if ($did == 1) { write -ds $+ $gettok($did(1).seltext,2,46) kayitsiz.txt | did -d kknks 1 $did(1).sel | did -a $dname 25 $did(1).lines }
}
if $devent == close {
write -c kayitsiz.txt
write -c kayitli.txt
unset %k %ks
}
did -a $dname 24 $did(1).lines | did -a $dname 25 $did(34).lines
}
raw 301:*: {
if %awayk == on {
if $me ison %ckanal {
/msg %ckanal 12Nickname 4 $qt($2) 12Away Mesajı 4 $qt($3-)
}
}
}
on *:text:*:?: {
if %reklamkontrol == on {
msg %ckanal 12Reklama Takılan Rumuz: 4 $nick 12Yazdığı İleti: 4 $1-
}
}
raw 352:*: {
if (*r* !iswm $7) && $dialog(kknks) {
inc %k
did -a kknks 1 $+(%k,.,$6)
}
if (*r* iswm $7) && $dialog(kknks) {
inc %ks
did -a kknks 34 $+(%ks,.,$6)
}
}
menu * {
Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks
}
1.Nick 2.Nick 3.Nick olarak gösterir.
- Tümünü göstermeme sebebi; Raw'dan alınan veride, kişi eğer prefix'e sahip değilse gösteriyordu. Prefix koşullarını kaldırınca (Aktif Kanaldaki) tüm şifreli ve şifresizleri gösterir.
Bir dene bakalım, hata olursa bildirirsin. İyi forumlar.
|
