Ok here's my 279 code, dont have time right now to golf, but maybe tommorow.

Code:

Function s($)
Dim $a,$b,$c,$d,$e,$f,$g
$d=" "
For $b=1 to $
$d="W"+$d+"B"
$a=$a+$+2
Next
Redim $s[$a]
$=2
For $c=0 to $a
$s[$c]=$d
$d=Join(Split($d),SubStr($d,$b-1,1))
$d=Left($d,$b-2)+" "+substr($d,$b)
$b=$b+$
$e=Iif($a/2>$c+1,1,~)
If Abs($)=1
$=-2*$e*$
Else
If $f
$f=$f-1
Else
$=$*$e/2
$g=$g+$e
$f=$g
EndFunction