[Decompilation] [th01] SinGyoku: Transformations for patterns 5 and 6

Then again, this more flexible architecture points towards SinGyoku's
male form potentially having had way more varied patterns earlier in
development… or planned, but never realized.

Part of P0202, funded by [Anonymous] and Yanga.

th01/main/boss/b05.cpp

@@ -609,3 +609,23 @@ void pascal fire_random_sling_pellets(void)
 		);
 	}
 }
+
+void pattern_random_downwards_pellets(void)
+{
+	transform_to_person_and_back_to_sphere(
+		F_MAN,
+		fire_random_downwards_pellets,
+		fire_random_downwards_pellets,
+		fire_random_downwards_pellets
+	);
+}
+
+void pattern_random_sling_pellets(void)
+{
+	transform_to_person_and_back_to_sphere(
+		F_MAN,
+		fire_random_sling_pellets,
+		fire_random_sling_pellets,
+		fire_random_sling_pellets
+	);
+}

th01_reiiden.asm

@@ -13366,48 +13366,19 @@ main_33_TEXT	segment	byte public 'CODE' use16
 
 singyoku_sphere	equ <boss_entity_0>
 
-F_MAN = 1
-
 	extern @singyoku_load$qv:proc
 	extern @singyoku_free$qv:proc
 	extern @sphere_rotate_and_render$qii:proc
 	extern @pattern_halfcircle_spray_downwar$qv:proc
 	extern @pattern_slam_into_player_and_bac$qv:proc
-	extern @transform_to_person_and_back_to_$q15singyoku_form_tnqv$vt2t2:proc
 	extern @pattern_chasing_pellets$qv:proc
 	extern @pattern_crossing_pellets$qv:proc
-	extern @FIRE_RANDOM_DOWNWARDS_PELLETS$QV:proc
-	extern @FIRE_RANDOM_SLING_PELLETS$QV:proc
+	extern @pattern_random_downwards_pellets$qv:proc
+	extern @pattern_random_sling_pellets$qv:proc
 main_33_TEXT	ends
 
 main_33__TEXT	segment	byte public 'CODE' use16
 
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_22F0A	proc far
-		push	bp
-		mov	bp, sp
-		call	@transform_to_person_and_back_to_$q15singyoku_form_tnqv$vt2t2 c, F_MAN, offset @fire_random_downwards_pellets$qv, seg main_33, offset @fire_random_downwards_pellets$qv, seg main_33, offset @fire_random_downwards_pellets$qv, seg main_33
-		pop	bp
-		retf
-sub_22F0A	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_22F2A	proc far
-		push	bp
-		mov	bp, sp
-		call	@transform_to_person_and_back_to_$q15singyoku_form_tnqv$vt2t2 c, F_MAN, offset @fire_random_sling_pellets$qv, seg main_33, offset @fire_random_sling_pellets$qv, seg main_33, offset @fire_random_sling_pellets$qv, seg main_33
-		pop	bp
-		retf
-sub_22F2A	endp
-
-
 ; =============== S U B	R O U T	I N E =======================================
 
 ; Attributes: bp-based frame
@@ -13647,7 +13618,7 @@ loc_23198:
 loc_231B8:
 		cmp	word_35CE0, 1
 		jnz	short loc_231C5
-		call	sub_22F0A
+		call	@pattern_random_downwards_pellets$qv
 		jmp	short loc_231EA
 ; ---------------------------------------------------------------------------
 
@@ -13661,7 +13632,7 @@ loc_231C5:
 loc_231D2:
 		cmp	word_35CE0, 3
 		jnz	short loc_231DF
-		call	sub_22F2A
+		call	@pattern_random_sling_pellets$qv
 		jmp	short loc_231EA
 ; ---------------------------------------------------------------------------