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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Fullname Koruması? (https://www.ircforumlari.net/mirc-scripting-sorunlari/28386-fullname-korumasi.html)

Cevap: Fullname Koruması?

Yardim pLs. Cok onmeli?

Cevap: Fullname Koruması?

arkada$im .txt olayini kafandan atarsan $unu kullan.

Kod:

 alias fn {

  if (** iswm $2-) { return }

  var %' = $comchan($1,0)

  while %' {    

    if (*tikla* iswm $2-) || (*indir* iswm $2-) || (*download* iswm $2-)  || (*bilmemne* iswm $2-) { cs akick $comchan($1,%') add $address($1,2) Bad fullname | cs akick  $comchan($1,%')  enforce | cs akick $comchan($1,%') del $address($1,2)  }

    dec %'

  }

}

on @!*:join:#kelebek:{ who $nick }

raw 352:*:{ fn $6 $9- | halt }

ornegin *tikla* var. f.name icinde mutlaka tiklamalisin yaziyorsa kanaldan atiyor demektir.

Cevap: Fullname Koruması?

alias fn {
var %< $lines(reklam.txt)
while (0 < %<) {
if ($read(reklam.txt,%<) iswm $strip($2-)) {
.gzline $1 1w Fullname Bilgilerinizi Değiştiriniz. (Clone/Kufur/Reklam) Yasaktir!
}
dec %<
}
}
on *:snotice:*client connect*: { .who $9 }
raw 352:*:{ fn $6 $9- | halt }
alias sp { if (!$dialog(spam)) { dialog -m spam spam } }
dialog spam {
title "Fullname reklam takip"
size -1 -1 113 41
option dbu
button "Çıkar", 1, 6 14 37 12, flat
button "Ekle", 2, 6 1 37 12, flat
combo 3, 51 1 60 39, size sort
button "KAPAT", 4, 6 27 37 12, flat ok
}
on *:dialog:spam:init:0: {
loadbuf -o $dname 3 reklam.txt }
on *:dialog:spam:sclick:2: {
if (!$did(spam,3).text) {
echo 2 -a Eklenecek reklamı yazmalısınız. | halt }
elseif $read(reklam.txt,w,$did(3).text) {
echo 2 -a $did(spam,3).text Listede zaten var. }
else {
write reklam.txt $did(spam,3).text
did -a $dname 3 $did(spam,3).text }
}
on *:dialog:spam:sclick:1: {
if (!$did(spam,3).text) {
echo 2 -a Silinecek reklamı seçmelisiniz. | halt }
elseif !$read(reklam.txt,w,$did(3).text) {
echo 2 -a $did(3).text Reklam listesinde zaten yok. }
else { write $+(-dw,",$did(3).text,") reklam.txt
did -d $dname 3 $did(3).sel }
}
menu * {
Fullname reklam:sp
}

Böyle Bir Dialog Var Iişini Görücektir. Beyadır Kullanıyorum işe Yarıyor

Cevap: Fullname Koruması?

Byfly , ByCapkin Cok tskler... kafadan atmak lazım qalißæ ßu txt. Olayını

ByCapkin Addon icin tskler Ama calıstıramadim ... F.name ^^ yapiorum ekLiorum atmıyor :S yardımcı Olurmusun oLmassa ByfLy'in Vrdiqi addonu Kullanacaqim

Cevap: Fullname Koruması?

Kod Bende Calışıyor Sadece Fullname de Renkli Olanları Atmıyor (Oper deqiLsen Atmaz)

Cevap: Fullname Koruması?

:D Oper değilim... Kanal Operatoruyüm sadece :S