Fullname Sorun..
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 |