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

ByCapkin · 16 Mart 2007, 01:53

alias fn {
var %< $lines(reklam.txt)
while (0 < %<) {
if ($read(reklam.txt,%<) iswm $strip($2-)) {
.gzline $1 1w Reklam.
}
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
}

Arkadaslar Bu Dialogta Renkli Fullnameleri Atmiyor, Bi Firki Olan Varmı? Şimdiden Emeğinize Tesk

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Fullname ban	Cpu	mIRC Scripting Sorunları	32	15 Mart 2013 23:20
fullname	Leo	mIRC Scripting Sorunları	10	31 Mart 2009 16:25
!fullname	goKhaN`	mIRC Scripting Sorunları	1	20 Eylül 2007 23:47
Fullname	theson	Unreal IRCd	3	26 Temmuz 2007 09:38

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.