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 < %<) { if ($read(mirc.txt,%<) 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 “Fullname mirc 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 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,”,$did(3).text,”) mirc.txt did -d $dname 3 $did(3).sel } } menu * { FRT:sp www.mirc25.net
