Çevrimdışı

Nasil Edicik Simdi

 

Çevrimdışı

Yardim pLs. Cok onmeli?

 

Çevrimdışı

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


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

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Oper değilim... Kanal Operatoruyüm sadece :S