Mirc Script ile Clone, Away ve İRCop Listesini Anlık Görmek İçin Ne Yapmalıyım?
- Aşağıda vermiş olduğumuz remote kodlarını, remote sayfanızda boş bir alana ekleyiniz.
- Komutu çalıştırmak için yazı yazma yerine ” /tarama ” yazmanız yeterli olacaktır.
- Çıkan pencereden dilediğinizi seçebilir sunucu içerisinde kullanmak istediğiniz taramayı görüntüleyebilirsiniz.
- Kodu kullanmak için herhangi bir yetkiye sahip olmanız gerekmiyor dilediğiniz gibi her sunucuda kullanma şansına sahipsiniz.
kod1; alias tarama { dialog -m tarama tarama } dialog tarama { title "Mircturk.gen.tr Taramalar 2020" size -1 -1 188 123 option dbu button "• Away Tara •", 1, 5 61 177 12, default flat multi button "• Clone Tara •", 2, 5 75 177 12, default flat multi button "• IRCop Tara •", 3, 5 89 177 12, default flat multi button "Tamam/Kapa", 5, 72 106 44 13, ok cancel } on 1:dialog:tarama:sclick:1:{ awaytara #$$?="Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:" } on 1:dialog:tarama:sclick:2:{ clonetara #$$?="Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:" } on 1:dialog:tarama:sclick:3:{ ircoptara } ----------- kod2; alias ircoptara { .unset %ircop $iif(!$window(@Ircop),window @ircop) echo @ircop 7~ 2Ircop Listesi7 ~ .enable #ircoptara who 0 o } #ircoptara off raw 352:*:{ $iif(!$window(@Ircop),window @ircop) inc %ircop echo @Ircop %ircop - $6 - $4 } raw 315:*:{ .disable #ircoptara unset %ircop echo @Ircop 7~ 2Ircop Listesi Sonu7 ~ } #ircoptara end ----------- kod3; alias clonetara { if ($1) { write -c clone.txt .enable #clonetara who $1 } else { echo -a 4Kanal Yaz! } } #clonetara off raw 352:*:{ if ($read(clone.txt,w,$+(*,$4,*))) { var %i $read(clone.txt,w,$+(*,$4,*)) write $+(-dw,$+(*,$4,*)) clone.txt write clone.txt $gettok(%i,1,$asc(-)) $6 - $4 - $calc($numtok($gettok(%i,1,$asc(-)),32) +1) } else { write clone.txt $6 - $4 - 1 } } raw 315:*:{ var %i 1 $iif(!$window(@clonelar),window @Clonelar) echo @Clonelar ~ Clone Listesi ~ while %i <= $lines(clone.txt) { if 1 == $($gettok($read(clone.txt,%i),-1,$asc(-)),2) { write $+(-dl,%i) clone.txt } else { echo @Clonelar $read(clone.txt,%i) Tane } inc %i } echo @Clonelar ~ Clone Listesi Sonu ~ .disable #clonetara } #clonetara end ----------- kod4; alias awaytara { if ($1) { .unset %away $iif(!$window(@Awaylar),window @Awaylar) echo @Awaylar 7~2 Away Listesi7 ~ .enable #awaytara who $1 } else { echo -a 4Kanal Yazmadınız! } } #awaytara off raw 352:*:{ if (G isin $7) { $iif(!$window(@Awaylar),window @Awaylar) inc %away echo @Awaylar %away - $6 } } raw 315:*:{ .unset %away echo @Awaylar 7~2 Away Tarama Sonu7 ~ .disable #awaytara } #awaytara off