Begin implementation of base effect of regular spaces (#21)

engine/board/menu.asm

@@ -14,6 +14,7 @@ BoardMenuScript::
 	callasm BoardMenu_Die
 	iffalse BoardMenuScript
 	callasm BoardMenu_BreakDieAnimation
+	callasm RestoreOverworldFontOverBoardMenuGFX
 	end
 
 .Party:
@@ -203,7 +204,7 @@ DIE_MAX_NUMBER EQU 6
 	add DIE_MAX_NUMBER
 	add $1
 	ld [wDieRoll], a
-	farcall _UpdateSecondarySprites
+	call UpdateSecondarySprites
 	call GetJoypad
 	ldh a, [hJoyPressed]
 	bit B_BUTTON_F, a
@@ -323,6 +324,8 @@ BoardMenu_BreakDieAnimation:
 	ld a, [wDieRoll]
 	ld [wSpacesLeft], a
 	call UpdateSprites
+	ld a, BOARDEVENT_HANDLE_BOARD
+	ldh [hCurBoardEvent], a
 	ret
 
 BoardMenu_Party:

engine/board/spaces.asm

@@ -0,0 +1,35 @@
+BoardSpaceScripts:: ; used only for BANK(BoardSpaceScripts)
+
+BlueSpaceScript::
+	scall ArriveToRegularSpaceScript
+	iftrue .done
+.done
+	end
+
+RedSpaceScript::
+	scall ArriveToRegularSpaceScript
+	iftrue .done
+.done
+	end
+
+GreySpaceScript::
+	scall ArriveToRegularSpaceScript
+	iftrue .done
+.done
+	end
+
+ArriveToRegularSpaceScript:
+	playsound SFX_PRESENT
+	callasm ArriveToRegularSpace
+	end
+
+ArriveToRegularSpace:
+	ld hl, wSpacesLeft
+	dec [hl]
+	ld a, [hl]
+	ld [hScriptVar], a
+	and a
+	jp nz, UpdateSecondarySprites
+	ld hl, wDisplaySecondarySprites
+	res SECONDARYSPRITES_DIE_ROLL_F, [hl]
+	ret