Snippets Project Page
Author: entropy
Added: 4y
Updated: Never
mIRC: v7.42+
Hits: 895
Downloads: 18
Review: westor
Size: 1.13KB
1 0
Login to vote.
List Servers
v1.0
Lists all the servers of all nicknames on channel.
Download
JSON
▲ Review
▼ Source
; /listservers v1.0 - by entropy (& Talon) 2020 alias listservers { if ($me !ison $active) { return } set -u3 %_list $ctime who $active } alias -l entfilter { var %math = $gettok($2,1,32) - $gettok($1,1,32) | return $calc(%math / $abs(%math)) } raw 352:*:{ if (%_list) { set -u3 $eval($+(%,servers,$5),1) $eval($+(%,servers,$5),2) $6 } } raw 315:*:{ if (%_list) { write -c test.txt write -c test2.txt echo $color(info) -ag * [Servers] on $active $+ ... var %a = 1, %b while ($var($+(%,servers,*),%a)) { %b = $remove($v1,servers,%) write test.txt $numtok($eval($v1,3),32) %b $sorttok($eval($v1,3),32) inc %a } filter -ca test.txt test2.txt entfilter var %a = 1, %b, %c while ($read(test2.txt,%a)) { %b = $v1 %c = $gettok(%b,3-,32) echo -ag * %a $+ ) $+($chr(3),$color(info),$gettok(%b,2,32),$chr(3)) $+($chr(40),$numtok(%c,32),$chr(41)) $sorttok(%c,32) inc %a } echo $color(info) -ag * [Servers] end. .remove test.txt .remove test2.txt } }
Changelog:
0
0