Mirc, Fullname Takip Kodu
Fullname mirc takip kodu
Bu kodu mIRC’nizde ALT tu?uyla beraber R harfine bas?p, aç?lan pencereye yap??t?rmal?s?n?z.
mIRC’nize yükledi?iniz takdirde mIRC’nizde sa? tu? t?klad???n?zda aç?lan sayfada “FRT” ba?l???yla görünecektir.
alias fn {
var %< $lines(mirc.txt)
while (0 < %< Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. {
if ($read(mirc.txt,%< Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. iswm $strip($1-)) {
msg #ali gzline $1 1w Mirc.
}
dec %<
}
}
on !@*:join:#: { fn }
alias sp { if (!$dialog(spam)) { dialog -m spam spam } }
dialog spam {
title &#8220;Fullname mirc takip&#8221;
size -1 -1 113 41
option dbu
button &#8220;Ç?kar&#8221;, 1, 6 14 37 12, flat
button &#8220;Ekle&#8221;, 2, 6 1 37 12, flat
combo 3, 51 1 60 39, size sort
button &#8220;KAPAT&#8221;, 4, 6 27 37 12, flat ok
}
on *:dialog:spam:init:0: {
loadbuf -o $dname 3 mirc.txt }
on *:dialog:spam:sclick:2: {
if (!$did(spam,3).text) {
echo 2 -a Lütfen eklenecek mirc? yaz?n?z. | halt }
elseif $read(mirc.txt,w,$did(3).text) {
echo 2 -a $did(spam,3).text listede zaten var. }
else {
write mirc.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 mirc? seçmelisiniz. | halt }
elseif !$read(mirc.txt,w,$did(3).text) {
echo 2 -a $did(3).text mirc listesinde zaten yok. }
else { write $+(-dw,&#8221;,$did(3).text,&#8221 Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. mirc.txt
did -d $dname 3 $did(3).sel }
}
menu * {
FRT:sp
} |