Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ReC98/th05/p_marisa.cpp

229 lines
6.4 KiB
C++
Raw Normal View History

[Decompilation] [th05] Marisa's shot control functions Yeah… such fun pretending that the original code wasn't copy-pasted. And yes, Reimu will have to wait until the next one. Completes P0037, funded by zorg.
2019-10-14 20:30:54 +00:00
/* ReC98
* -----
* Marisa's shot control functions
*/
[Maintenance] [th04/th05] Add a segment split before the title popup functions A bit tricky with those ASM translation units near-calling functions in the very first segment, and #pragma codeseg requiring an additional group parameter to correctly calculate array offsets (including those used for `switch` statements). But doable. Part of P0089, funded by [Anonymous] and Blue Bolt.
2020-04-23 19:11:04 +00:00
#pragma codeseg main_01_TEXT main_01
[Decompilation] [th05] Marisa's shot control functions Yeah… such fun pretending that the original code wasn't copy-pasted. And yes, Reimu will have to wait until the next one. Completes P0037, funded by zorg.
2019-10-14 20:30:54 +00:00
extern "C" {
[Maintenance] [th05] Minimize #includes for the shot type translation units Since a few annoying alignment bytes suggested more translation units than previously expected, using many small headers has proved to be better than one big shared TH04/TH05 header file. Or should we *really* pepper the code with lots of `#pragma codestring`? 😛 And in case we have multiple translation units which all #include the same set of headers, we'll just go with situational shared headers, using a common prefix. Part of P0062, funded by Touhou Patch Center.
2019-12-20 19:06:42 +00:00
#include "th05/i_shot.hpp"
[Decompilation] [th05] Marisa's shot control functions Yeah… such fun pretending that the original code wasn't copy-pasted. And yes, Reimu will have to wait until the next one. Completes P0037, funded by zorg.
2019-10-14 20:30:54 +00:00
#define cycle _AL
[Build] Don't word-align everything by default Again, 11 necessary workarounds, vs. forcing byte aligment in at least 18 places, and that number would have significantly grown in the future. Part of P0085, funded by -Tom-.
2020-03-30 18:17:28 +00:00
#pragma option -a2
[Decompilation] [th05] Marisa's shot control functions Yeah… such fun pretending that the original code wasn't copy-pasted. And yes, Reimu will have to wait until the next one. Completes P0037, funded by zorg.
2019-10-14 20:30:54 +00:00
#define STAR_DISTANCE (16)
#define STAR_OFFSET(count) (8 - ((count / 2) * STAR_DISTANCE))
#define MARISA_STARS(dmg) \
shot->pos.cur.x.v += star_distance; \
shot->damage = dmg; \
VELOCITY_Y(-12); \
star_distance += to_sp(STAR_DISTANCE);
void pascal near shot_marisa_l2(void)
{
#undef STAR_COUNT
#define STAR_COUNT 1
SHOT_FUNC_INIT(STAR_COUNT, SC_3X, SC_1X, i += 2);
while(( shot = shots_add() ) != NULL) {
if(sai.i == STAR_COUNT) {
shot->set_random_angle_forwards();
shot->damage = 8;
} else {
if(sai.i == 3) { OPT_L; MISSILE_L; VELOCITY_X(-1.625f); }
else/*i == 2*/ { OPT_R; MISSILE_R; VELOCITY_X( 1.625f); }
VELOCITY_Y(2);
shot->set_option_sprite_and_damage(16);
}
if(sai.next() <= 0) {
break;
}
}
}
void pascal near shot_marisa_l3(void)
{
#undef STAR_COUNT
#define STAR_COUNT 2
SHOT_FUNC_INIT(STAR_COUNT, SC_3X, SC_1X, i += 4);
while(( shot = shots_add() ) != NULL) {
if(sai.i <= STAR_COUNT) {
if(sai.i == STAR_COUNT) { shot->pos.cur.x -= STAR_OFFSET(0); }
else /* sai_i == 1 */ { shot->pos.cur.x += STAR_OFFSET(0); }
shot->damage = 7;
} else {
switch(sai.i - 3u) {
case 0: OPT_L; MISSILE_L; VELOCITY_XY(-1.375f, 2.25f); break;
case 1: OPT_R; MISSILE_R; VELOCITY_XY( 1.375f, 2.25f); break;
case 2: OPT_L; MISSILE_S; VELOCITY_Y(-3); break;
case 3: OPT_R; MISSILE_S; VELOCITY_Y(-3); break;
}
shot->set_option_sprite_and_damage(13);
}
if(sai.next() <= 0) {
break;
}
}
}
void pascal near shot_marisa_l4(void)
{
#undef STAR_COUNT
#define STAR_COUNT 3
SHOT_FUNC_INIT(STAR_COUNT, SC_3X, SC_1X, i += 6);
while(( shot = shots_add() ) != NULL) {
if(sai.i <= STAR_COUNT) {
if(sai.i == STAR_COUNT) {
sai.angle = 180;
}
shot->damage = 6;
sai.angle += 6;
shot_velocity_set(&shot->pos.velocity, sai.angle);
} else {
switch(sai.i - 4u) {
case 0: OPT_L; MISSILE_L; VELOCITY_XY(-1.375f, 2.25f); break;
case 1: OPT_R; MISSILE_R; VELOCITY_XY( 1.375f, 2.25f); break;
case 2: OPT_L; MISSILE_S; VELOCITY_XY(-1, -3); break;
case 3: OPT_R; MISSILE_S; VELOCITY_XY( 1, -3); break;
case 4: OPT_L; MISSILE_S; VELOCITY_XY(0, -4); break;
case 5: OPT_R; MISSILE_S; VELOCITY_XY(0, -4); break;
}
shot->set_option_sprite_and_damage(12);
}
if(sai.next() <= 0) {
break;
}
}
}
void pascal near shot_marisa_l5(void)
{
#undef STAR_COUNT
#define STAR_COUNT 3
SHOT_FUNC_INIT(STAR_COUNT, SC_3X, SC_1X, i += 6);
while(( shot = shots_add() ) != NULL) {
if(sai.i <= STAR_COUNT) {
shot->damage = 6;
if(sai.i == STAR_COUNT) {
sai.angle = 178;
}
sai.angle += 7;
shot_velocity_set(&shot->pos.velocity, sai.angle);
} else {
switch(sai.i - 4u) {
case 0: OPT_L; MISSILE_L; VELOCITY_XY(-1.375f, 2.25f); break;
case 1: OPT_R; MISSILE_R; VELOCITY_XY( 1.375f, 2.25f); break;
case 2: OPT_L; MISSILE_S; VELOCITY_XY(-1, -3); break;
case 3: OPT_R; MISSILE_S; VELOCITY_XY( 1, -3); break;
case 4: OPT_L; MISSILE_S; VELOCITY_XY( 0.5f, -4); break;
case 5: OPT_R; MISSILE_S; VELOCITY_XY(-0.5f, -4); break;
}
shot->set_option_sprite_and_damage(11);
}
if(sai.next() <= 0) {
break;
}
}
}
void pascal near shot_marisa_l6(void)
{
#undef STAR_COUNT
#define STAR_COUNT 4
SHOT_FUNC_INIT(STAR_COUNT, SC_3X, SC_1X, i += 8);
subpixel_t star_distance = to_sp(STAR_OFFSET(STAR_COUNT));
while(( shot = shots_add() ) != NULL) {
if(sai.i <= STAR_COUNT) {
MARISA_STARS(5);
} else {
switch(sai.i - 5u) {
case 0: OPT_L; MISSILE_L; VELOCITY_XY(-1.375f, 2.25f); break;
case 1: OPT_R; MISSILE_R; VELOCITY_XY( 1.375f, 2.25f); break;
case 2: OPT_L; MISSILE_S; VELOCITY_XY(-1, -3); break;
case 3: OPT_R; MISSILE_S; VELOCITY_XY( 1, -3); break;
case 4: OPT_L; MISSILE_S; VELOCITY_Y(-5); break;
case 5: OPT_R; MISSILE_S; VELOCITY_Y(-5); break;
case 6: OPT_L; MISSILE_S; VELOCITY_Y(-2); break;
case 7: OPT_R; MISSILE_S; VELOCITY_Y(-2); break;
}
shot->set_option_sprite_and_damage(11);
}
if(sai.next() <= 0) {
break;
}
}
}
#define MARISA_L7(star_count, star_damage, missile_count, missile_damage) \
SHOT_FUNC_INIT(star_count, SC_3X, SC_1X, i += missile_count); \
subpixel_t star_distance = to_sp(STAR_OFFSET(star_count)); \
while(( shot = shots_add() ) != NULL) { \
if(sai.i <= star_count) { \
MARISA_STARS(star_damage); \
} else { \
switch(sai.i - 5u) { \
case 0: OPT_L; MISSILE_L; VELOCITY_XY(-1.75f, 2.25f); break; \
case 1: OPT_R; MISSILE_R; VELOCITY_XY( 1.75f, 2.25f); break; \
case 2: OPT_L; MISSILE_R; VELOCITY_XY( 2, 2); break; \
case 3: OPT_R; MISSILE_L; VELOCITY_XY(-2, 2); break; \
case 4: OPT_L; MISSILE_S; VELOCITY_YX( 3, -1); break; \
case 5: OPT_R; MISSILE_S; VELOCITY_YX( 3, 1); break; \
case 6: OPT_L; MISSILE_S; VELOCITY_Y(-5); break; \
case 7: OPT_R; MISSILE_S; VELOCITY_Y(-5); break; \
case 8: OPT_L; MISSILE_S; VELOCITY_Y(-2); break; \
case 9: OPT_R; MISSILE_S; VELOCITY_Y(-2); break; \
} \
shot->set_option_sprite_and_damage(missile_damage); \
} \
if(sai.next() <= 0) { \
break; \
} \
}
void pascal near shot_marisa_l7(void)
{
MARISA_L7(4, 5, 10, 11);
}
void pascal near shot_marisa_l8(void)
{
MARISA_L7(4, 4, 10, 10);
}
void pascal near shot_marisa_l9(void)
{
#undef STAR_COUNT
#define STAR_COUNT 6
SHOT_FUNC_INIT(STAR_COUNT, SC_3X, SC_1X, i += 12);
subpixel_t star_distance = to_sp(STAR_OFFSET(STAR_COUNT));
while(( shot = shots_add() ) != NULL) {
if(sai.i <= STAR_COUNT) {
MARISA_STARS(4);
} else {
switch(sai.i - 7u) {
case 0: OPT_L; MISSILE_L; VELOCITY_XY(-2, 2.25f); break;
case 1: OPT_R; MISSILE_R; VELOCITY_XY( 2, 2.25f); break;
case 2: OPT_L; MISSILE_R; VELOCITY_XY( 2, 2); break;
case 3: OPT_R; MISSILE_L; VELOCITY_XY(-2, 2); break;
case 4: OPT_L; MISSILE_S; VELOCITY_Y(3); break;
case 5: OPT_R; MISSILE_S; VELOCITY_Y(3); break;
case 6: OPT_L; MISSILE_S; VELOCITY_YX( 0, -1); break;
case 7: OPT_R; MISSILE_S; VELOCITY_YX( 0, 1); break;
case 8: OPT_L; MISSILE_S; VELOCITY_Y(-8); break;
case 9: OPT_R; MISSILE_S; VELOCITY_Y(-8); break;
case 10: OPT_L; MISSILE_S; VELOCITY_Y(-4); break;
case 11: OPT_R; MISSILE_S; VELOCITY_Y(-4); break;
case 12: OPT_L; MISSILE_S; VELOCITY_Y(-1); break;
case 13: OPT_R; MISSILE_S; VELOCITY_Y(-1); break;
}
shot->set_option_sprite_and_damage(9);
}
if(sai.next() <= 0) {
break;
}
}
}
}