Kayıtlı Ve Kayıtsız Nick Işlem

Bu menüyü doğru kullanmanız kötü niyetli kişilerin sunucunuz üzerinde gerçekleştirdiği faaliyetleri kontrol altında tutmak için oldukca önemlidir. Algoritma olarak sunucu üzerindeki kayıtlı ve kayıtsız nickleri tespit edip soldaki listeden belirttiğiniz işlemleri yapmaktır.

Kayıtlı ve Kayıtsız Nickleri Görmek İçin Sahip Olmanız Gereken ACC: USER ACC
Menüden İşlem Yapabilmek İçin Sahip Olmanız Gereken ACC: Oper,User,Op ACC

Yani Oper olmadanda menüyü kullanabilirsiniz. Tam Verimli Olmasada

A) Reklam Kontrolü
Menüden Kayıtlı ve Kayıtsız Nickller İşlem Seçeneklerinden birisini seçin ve bu butona tıklayın. Seçtiğiniz seçenek durumundaki nicklere oto olarak reklam kontrol mesajı göndericek ve bu mesaja 2 saniye içerisinde cevap verenleri menüdeki belirttiğiniz kanala yazdığı mesajla birlikte kopyalacaktır. Bu menü işleme tabi değildir siz duruma göre manuel olarak işlem yapıcaksınız. (masum userlerde bu menüden etkilendiği için işleme tabi tutulmamıştır, örneğin; özel kabul addonları, oto özel mesaj addonları vb.)

B) Away Mesaj Kontrolü
Sunucunuzda away mesajını yasaklayıpta userlerinizi mağdur etmenizin bir manası yok. Bu butona tıkladıgınızda away konumundaki userleri tespit edecek ve away olanların away mesajlarını belirttiğiniz kanala kopyalayacaktır. İşleme tabi değildir, manuel işlem gerektirir)

C) Seçtiğiniz Türdeki Nicklere Mesaj Gönderme
Örneğin nicki kayıtsız kullanıcılara oto olarak kayıt mesajı gönderebilirsiniz. Yada kayıtlı kullanıcılara sistemle ilgili bilgi vermek için text mesajı gönderebilirsiniz.

dialog kknks {
title "Kayıtlı ve Kayıtsız Nickler Kontrol Sistemi"
size -1 -1 253 237
option dbu
list 1, 115 11 58 211, 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 211, 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
}

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 $read(kayitsiz.txt,%i) $did(17)
inc %i
}
}
if ($did == 5) {
if %kayitsiz == on {
set %globalmesaj $did(6)
var %i 1
while %i <= $lines(kayitsiz.txt) {
msg $read(kayitsiz.txt,%i) $did(6)
inc %i
}
}
if %kayitli == on {
set %globalmesaj $did(6)
var %i 1
while %i <= $lines(kayitli.txt) {
msg $read(kayitli.txt,%i) $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($read(kayitsiz.txt,%i),2)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
WhileFix WhileFix .
mode $active +b $address($read(kayitli.txt,%i),2)
inc %i
}
}
}
if $did == 7 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
Zline $read(kayitli.txt,%i)
inc %i
}
}
}
if $did == 8 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
mode $active +v $read(kayitsiz.txt,%i)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
mode $active +v $read(kayitli.txt,%i)
inc %i
}
}
}
if $did == 9 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
mode $active -v $read(kayitsiz.txt,%i)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
mode $active -v $read(kayitli.txt,%i)
inc %i
}
}
}
if $did == 10 {
if %kayitsiz == on {
var %i 1
var %ufuks $$?”Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!”
while %i <= $lines(kayitsiz.txt) {
sajoin $read(kayitsiz.txt,%i) %ufuks
inc %i
}
}
if %kayitli == on {
var %i 1
var %ufuks $$?”Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!”
while %i <= $lines(kayitli.txt) {
sajoin $read(kayitli.txt,%i) %ufuks
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 $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
msg $read(kayitli.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
inc %i
}
}
.timer 1 2 unset %reklamkontrol
}
}
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 $read(kayitsiz.txt,%i) $did(17)
inc %i
}
}
if ($did == 5) {
if %kayitsiz == on {
set %globalmesaj $did(6)
var %i 1
while %i <= $lines(kayitsiz.txt) {
msg $read(kayitsiz.txt,%i) $did(6)
inc %i
}
}
if %kayitli == on {
set %globalmesaj $did(6)
var %i 1
while %i <= $lines(kayitli.txt) {
msg $read(kayitli.txt,%i) $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($read(kayitsiz.txt,%i),2)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
mode $active +b $address($read(kayitli.txt,%i),2)
inc %i
}
}
}
if $did == 7 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
Zline $read(kayitli.txt,%i)
inc %i
}
}
}
if $did == 8 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
mode $active +v $read(kayitsiz.txt,%i)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
mode $active +v $read(kayitli.txt,%i)
inc %i
}
}
}
if $did == 9 {
if %kayitsiz == on {
var %i 1
while %i <= $lines(kayitsiz.txt) {
mode $active -v $read(kayitsiz.txt,%i)
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
mode $active -v $read(kayitli.txt,%i)
inc %i
}
}
}
if $did == 10 {
if %kayitsiz == on {
var %i 1
var %ufuks $$?”Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!”
while %i <= $lines(kayitsiz.txt) {
sajoin $read(kayitsiz.txt,%i) %ufuks
inc %i
}
}
if %kayitli == on {
var %i 1
var %ufuks $$?”Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!”
while %i <= $lines(kayitli.txt) {
sajoin $read(kayitli.txt,%i) %ufuks
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 $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
inc %i
}
}
if %kayitli == on {
var %i 1
while %i <= $lines(kayitli.txt) {
msg $read(kayitli.txt,%i) 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 $+ $did(34).seltext kayitli.txt | did -d kknks 34 $did(34).sel }
if ($did == 1) { write -ds $+ $did(1).seltext kayitsiz.txt | did -d kknks 1 $did(1).sel }
}
if $devent == close {
write -c kayitsiz.txt
write -c kayitli.txt
}
}
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) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) {
did -a kknks 1 $6
}
if (*r* iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) {
did -a kknks 34 $6
}
}
menu * {
Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks }

Not: Alıntı
Yazanı belli değil.