Forums Scripts & Popups parsing this massive string

alias getroom {
  if (!$bvar($1,0)) { return }
  var %pos = $bfind($1,1,?name=) + 6, %pos2, %next
  while (%pos != 6) {
    %next = $iif($bfind($1,%pos,?name=),$v1,$bvar($1,0))
    echo -a Rooms for $bvar($1,$+(%pos,-,$calc($bfind($1,%pos,") - 1))).text $+ :
    %pos2 = $bfind($1,%pos,?rm=) + 4
    while (%pos2 != 4) && (%pos2 < %next) {
      echo -a $bvar($1,$+(%pos2,-,$calc($bfind($1,%pos2,') - 1))).text
      %pos2 = $bfind($1,%pos2,?rm=) + 4
    }
    %pos = $bfind($1,%pos,?name=) + 6
  }
}