alias part {
.var %i 1,%chan $iif($1,$1,$active)
.window -aehkl12 $+(@,%chan)
while (%i <= $line(%chan,0)) {
.write text.txt $line(%chan,%i)
.inc %i
}
%i = 1
while (%i <= $nick(%chan,0)) {
.write nicks.txt $nick(%chan,$nick(%chan,%i)).pnick
.inc %i
}
%i = 1
while (%i <= $lines(nicks.txt)) {
.aline -l $+(@,%chan) $read(nicks.txt,%i)
.inc %i
}
%i = 1
while (%i <= $lines(text.txt)) {
.aline $+(@,%chan) $read(text.txt,%i)
.inc %i
}
.!part %chan
.window -w $+(@,%chan)
.remove nicks.txt
.remove text.txt
}