Pk_Myth0

chkw {
  if (!$($+(%,$chan,.chk),2)) { set $+(%,$chan,.chk) 1 }
  else { inc $+(%,$chan,.chk) }
  write -c $+($chan,List_,$($+(%,$chan,.chk),2),.txt)
  write $+($chan,List_,$($+(%,$chan,.chk),2),.txt) $chan(#).topic | write $+($chan,List_,$($+(%,$chan,.chk),2),.txt) --
  var %i = 1 | while (%i <= $nick(#,0)) { write $+($chan,List_,$($+(%,$chan,.chk),2),.txt) $nick(#,%i).pnick | inc %i }
  echo -as Written $chan names to $+($chan,List_,$($+(%,$chan,.chk),2),.txt) | $iif($1 != dp,part $chan) | run $+($chan,List_,$($+(%,$chan,.chk),2),.txt)
}