Forums Feature Suggestions RAW 005 enumerator function

; RAW005 Script by Raccoon ©MMIV-Jan (EFnet|DALnet/#mIRC)
RAW 005:*: {
  ; Removing the "are supported by this server" text.
  var %s = $2-, %nul = $regsub(%s,/are supported.*/,$null,%s)
  ; Placing the 005 returns in a variable named %RAW005.N where N is the $cid for multi-server support.
  set $+(%,RAW005.,$cid) $iif($($+(%,RAW005.,$cid,.append),2),$($+(%,RAW005.,$cid),2)) %s
  ; This allows multiple 005 replies to be appended to the same variable.  Hope it doesn't go over $len() 900.
  inc -u1 $+(%,RAW005.,$cid,.append)
}
; Usage: //echo -a $RAW005(TOPICLEN)
ALIAS RAW005 { 
  var %a = $$1, %s = $($+(%,RAW005.,$cid),2)
  var %re = /(?:^|\s) %a =(\S+)(?:\s|$)/ix
  if ( $regex(%s,%re) ) return $regml(1)
  var %re = /(?:^|\s) %a (?:\s|$)/ix
  if ( $regex(%s,%re) ) return $true
  return $false
}
ALIAS TopicLen { $iif($isid,return,editbox -a) $RAW005(TOPICLEN) }