.

alias kontrolcycle {

enable #oto | timer 1 60 /disable #oto

var %i 1

while (%i <= $lines(globals.txt)) {

.part $read(globals.txt,%i)

.timer 1 3 join $read(globals.txt,%i)

inc %i

}

}

#oto off

on *:text:*:?: {

if ($level($nick) == muafnlist) { halt }

if ($regex($address($nick,2),/(helper|NetAdmin|Server|admin|ircop|services|dj.|tech|global)/i)) { halt }

$regex($1-,scr?pt|otomat?k|auto|tıklay?n) {

.kill $nick Lütfen Oto Mesajinizi Kapatiniz! $date $time $+([,%botnick,])

}

}

#oto end

on *:text:.kontrol *:%operkanali: {

if $2 == mesaj {

if !$read(admin.txt,w,$nick) { .msg # ” $+ $nick $+ ” Bu Komutu Kullanmaya Yetkili Degilsiniz. }

elseif $1 == $null { .msg $chan ” $+ $nick $+ ” Lütfen Ya mesaj Yada cycle Yaziniz. }

else { kontrolmesaj | .msg %operkanali ÖzeL Oto Mesaj KontroLu Yapiliyor.. 60 Saniye Sürcek Kontrol Cevap Alimi. }

}

if $2 == cycle {

if !$read(admin.txt,w,$nick) { .msg # ” $+ $nick $+ ” Bu Komutu Kullanmaya Yetkili Degilsiniz. }

else { kontrolcycle | .msg %operkanali Global Kanallarda Oto Mesaj Tarama’si Yapiliyor. }

}

}

alias kontrolmesaj {

.describe $+($,$server) Selam.

.describe $+($,$server) Reklam Kontrol, Lütfen Bu Mesaja Cevap Vermeyiniz.

.enable #knt

.timer 1 60 .disable #knt

}

#knt off

on *:text:*:?: {

if ($level($nick) == muafnlist) { halt }

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

.msg %operkanali [Reklam Kontrol Mesaj Cevap][Nick : $nick ][Cevap : $1- ]

}

#knt end

Bu Kodu Oncelikle Txt Dosyaına Atıp daha Sonra Mirc Dosyamıza atıyoruz ve ardından scriptimiz ile baglanıp /load -rs dosyaadı.txt yapıyoruz. ve kodumuzu yüklemiş oluyoruz.

Comments Yorum Yok »