mirror of
https://github.com/pret/pmd-red.git
synced 2026-09-30 07:11:53 -04:00
Seth Barberee
409 lines
10 KiB
C
409 lines
10 KiB
C
#include "global.h"
|
|
#include "globaldata.h"
|
|
#include "structs/str_ground_script.h"
|
|
#include "code_803C1D0.h"
|
|
#include "input.h"
|
|
#include "memory.h"
|
|
#include "menu_input.h"
|
|
#include "music_util.h"
|
|
#include "pokemon_mail.h"
|
|
#include "text_1.h"
|
|
#include "text_2.h"
|
|
#include "text_3.h"
|
|
|
|
struct unkStruct_203B3FC
|
|
{
|
|
// size: 0x3D0
|
|
MenuHeaderWindow mh;
|
|
s16 unkA0[10];
|
|
};
|
|
EWRAM_INIT struct unkStruct_203B3FC *gUnknown_203B3FC = NULL;
|
|
|
|
extern WindowTemplate gUnknown_80E7F3C;
|
|
|
|
|
|
// https://decomp.me/scratch/xx1GB - 91.35% matched (Seth)
|
|
NAKED
|
|
bool8 sub_803B050(void)
|
|
{
|
|
asm_unified(
|
|
"\tpush {r4-r7,lr}\n"
|
|
"\tldr r4, _0803B0F4\n"
|
|
"\tmovs r0, 0xF4\n"
|
|
"\tlsls r0, 2\n"
|
|
"\tmovs r1, 0x8\n"
|
|
"\tbl MemoryAlloc\n"
|
|
"\tstr r0, [r4]\n"
|
|
"\tmovs r1, 0x3\n"
|
|
"\tstr r1, [r0, 0x34]\n"
|
|
"\tadds r1, r0, 0\n"
|
|
"\tadds r1, 0x84\n"
|
|
"\tstr r1, [r0, 0x38]\n"
|
|
"\tadds r0, 0x3C\n"
|
|
"\tbl RestoreSavedWindows\n"
|
|
"\tldr r1, [r4]\n"
|
|
"\tldr r2, [r1, 0x34]\n"
|
|
"\tlsls r0, r2, 1\n"
|
|
"\tadds r0, r2\n"
|
|
"\tlsls r0, 3\n"
|
|
"\tadds r1, r0\n"
|
|
"\tadds r1, 0x3C\n"
|
|
"\tldr r0, _0803B0F8\n"
|
|
"\tldm r0!, {r2,r3,r5}\n"
|
|
"\tstm r1!, {r2,r3,r5}\n"
|
|
"\tldm r0!, {r2,r3,r5}\n"
|
|
"\tstm r1!, {r2,r3,r5}\n"
|
|
"\tldr r0, [r4]\n"
|
|
"\tldr r1, [r0, 0x38]\n"
|
|
"\tadds r0, 0x9C\n"
|
|
"\tstr r0, [r1, 0x14]\n"
|
|
"\tbl ResetUnusedInputStruct\n"
|
|
"\tldr r0, [r4]\n"
|
|
"\tadds r0, 0x3C\n"
|
|
"\tmovs r1, 0x1\n"
|
|
"\tmovs r2, 0x1\n"
|
|
"\tbl ShowWindows\n"
|
|
"\tmovs r2, 0\n"
|
|
"\tmovs r3, 0\n"
|
|
"\tmovs r7, 0xCB\n"
|
|
"\tlsls r7, 1\n"
|
|
"\tmovs r6, 0x80\n"
|
|
"\tlsls r6, 9\n"
|
|
"\tmovs r5, 0\n"
|
|
"_0803B0AE:\n"
|
|
"\tldr r0, _0803B0FC\n"
|
|
"\tadds r0, r5, r0\n"
|
|
"\tmovs r1, 0x2\n"
|
|
"\tldrsh r0, [r0, r1]\n"
|
|
"\tldr r4, _0803B0F4\n"
|
|
"\tcmp r0, 0xA\n"
|
|
"\tbne _0803B0C8\n"
|
|
"\tldr r0, [r4]\n"
|
|
"\tlsls r1, r2, 1\n"
|
|
"\tadds r0, 0xA0\n"
|
|
"\tadds r0, r1\n"
|
|
"\tstrh r3, [r0]\n"
|
|
"\tadds r2, 0x1\n"
|
|
"_0803B0C8:\n"
|
|
"\tadds r0, r6, 0\n"
|
|
"\tmovs r3, 0x80\n"
|
|
"\tlsls r3, 9\n"
|
|
"\tadds r6, r3\n"
|
|
"\tadds r5, 0xC\n"
|
|
"\tasrs r3, r0, 16\n"
|
|
"\tcmp r3, r7\n"
|
|
"\tble _0803B0AE\n"
|
|
"\tldr r0, [r4]\n"
|
|
"\tldr r3, [r0, 0x34]\n"
|
|
"\tadds r1, r2, 0\n"
|
|
"\tmovs r2, 0xA\n"
|
|
"\tbl CreateMenuOnWindow\n"
|
|
"\tbl sub_803B204\n"
|
|
"\tbl sub_803B284\n"
|
|
"\tmovs r0, 0x1\n"
|
|
"\tpop {r4-r7}\n"
|
|
"\tpop {r1}\n"
|
|
"\tbx r1\n"
|
|
"\t.align 2, 0\n"
|
|
"_0803B0F4: .4byte gUnknown_203B3FC\n"
|
|
"_0803B0F8: .4byte gUnknown_80E7F54\n"
|
|
"_0803B0FC: .4byte gFunctionScriptTable");
|
|
}
|
|
|
|
void sub_803B204(void);
|
|
void sub_803B284(void);
|
|
|
|
void sub_803B100(s32 _id) {
|
|
s32 id = (s16)_id;
|
|
|
|
MoveMenuToEntryId(&gUnknown_203B3FC->mh.m.input, id);
|
|
sub_803B204();
|
|
sub_803B284();
|
|
}
|
|
|
|
s32 sub_803B120(void)
|
|
{
|
|
switch(GetKeyPress(&gUnknown_203B3FC->mh.m.input))
|
|
{
|
|
case 2:
|
|
PlayMenuSoundEffect(1);
|
|
return 2;
|
|
case 1:
|
|
return 3;
|
|
default:
|
|
break;
|
|
}
|
|
if((MenuCursorUpdate(&gUnknown_203B3FC->mh.m.input, TRUE) != FALSE))
|
|
{
|
|
sub_803B204();
|
|
sub_803B284();
|
|
return 1;
|
|
}
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
s16 sub_803B168(void)
|
|
{
|
|
return gUnknown_203B3FC->unkA0[GET_CURRENT_MENU_ENTRY(gUnknown_203B3FC->mh.m.input)];
|
|
}
|
|
|
|
void sub_803B18C(u8 r0)
|
|
{
|
|
gUnknown_203B3FC->mh.m.input.totalEntriesCount = 0xE5;
|
|
MenuUpdatePagesData(&gUnknown_203B3FC->mh.m.input);
|
|
sub_803B204();
|
|
sub_803B284();
|
|
|
|
if(r0)
|
|
AddMenuCursorSprite(&gUnknown_203B3FC->mh.m.input);
|
|
}
|
|
|
|
void sub_803B1BC(void)
|
|
{
|
|
if(gUnknown_203B3FC)
|
|
{
|
|
gUnknown_203B3FC->mh.m.windows.id[gUnknown_203B3FC->mh.m.menuWinId] = gUnknown_80E7F3C;
|
|
ResetUnusedInputStruct();
|
|
ShowWindows(&gUnknown_203B3FC->mh.m.windows, TRUE, TRUE);
|
|
MemoryFree(gUnknown_203B3FC);
|
|
gUnknown_203B3FC = NULL;
|
|
}
|
|
}
|
|
|
|
void sub_803B204(void)
|
|
{
|
|
gUnknown_203B3FC->mh.header.count = 1;
|
|
gUnknown_203B3FC->mh.header.currId = 0;
|
|
gUnknown_203B3FC->mh.header.width = 8;
|
|
gUnknown_203B3FC->mh.header.f3 = 0;
|
|
ResetUnusedInputStruct();
|
|
ShowWindows(&gUnknown_203B3FC->mh.m.windows, TRUE, TRUE);
|
|
UPDATE_MENU_WINDOW_HEIGHT(gUnknown_203B3FC->mh.m);
|
|
}
|
|
|
|
extern u8 gUnknown_80E7F6C[];
|
|
|
|
void sub_803B284(void)
|
|
{
|
|
s32 x, y, i;
|
|
s32 pageNum;
|
|
const ScriptRef *ptr;
|
|
|
|
CallPrepareTextbox_8008C54(gUnknown_203B3FC->mh.m.menuWinId);
|
|
sub_80073B8(gUnknown_203B3FC->mh.m.menuWinId);
|
|
PrintStringOnWindow(0xA, 0, gUnknown_80E7F6C, gUnknown_203B3FC->mh.m.menuWinId, 0);
|
|
|
|
x = (gUnknown_203B3FC->mh.header.width * 8) - 2;
|
|
pageNum = gUnknown_203B3FC->mh.m.input.currPage + 1;
|
|
PrintNumOnWindow(x, 0, pageNum, 2, 7, gUnknown_203B3FC->mh.m.menuWinId);
|
|
|
|
// This line has no real effect. It's a magic 'fakematch' to fool agb into generating the same asm. It can be removed if you don't care about matching.
|
|
if (x) { i = 0; }
|
|
|
|
for (i = 0; i < gUnknown_203B3FC->mh.m.input.currPageEntries; i++) {
|
|
ptr = &gFunctionScriptTable[gUnknown_203B3FC->unkA0[(gUnknown_203B3FC->mh.m.input.currPage * gUnknown_203B3FC->mh.m.input.entriesPerPage) + i]];
|
|
y = GetMenuEntryYCoord(&gUnknown_203B3FC->mh.m.input, i);
|
|
PrintStringOnWindow(8, y, ptr->name, gUnknown_203B3FC->mh.m.menuWinId, 0);
|
|
}
|
|
|
|
sub_80073E0(gUnknown_203B3FC->mh.m.menuWinId);
|
|
}
|
|
|
|
NAKED
|
|
unkStruct_803B344 *sub_803B344(u8 r0)
|
|
{
|
|
asm_unified(
|
|
"\tadds r1, r0, 0\n"
|
|
"\tlsls r1, 24\n"
|
|
"\tlsrs r1, 24\n"
|
|
"\tlsls r0, r1, 3\n"
|
|
"\tsubs r0, r1\n"
|
|
"\tlsls r0, 2\n"
|
|
"\tldr r1, _0803B358\n"
|
|
"\tadds r0, r1\n"
|
|
"\tbx lr\n"
|
|
"\t.align 2, 0\n"
|
|
"_0803B358: .4byte gUnknown_80E7F94");
|
|
}
|
|
|
|
u8 *sub_8096DD8(void);
|
|
u8 *sub_8096DE8(void);
|
|
static s32 sub_803B600(WonderMail *);
|
|
s32 sub_803B628(WonderMail *);
|
|
s32 sub_803B66C(WonderMail *);
|
|
|
|
void sub_803B35C(WonderMail *mail,unkStruct_802C39C *param_2)
|
|
{
|
|
u8 uVar2;
|
|
|
|
sub_803C21C(mail, ¶m_2->unk18);
|
|
switch(mail->unk2) {
|
|
case '\x01':
|
|
param_2->mailTitleType = 0;
|
|
param_2->mailDescriptionType = 0;
|
|
param_2->mailMissionType = MISSION_TYPE_SPECIAL_MISSION;
|
|
param_2->unk18.rewardType = 5;
|
|
break;
|
|
case '\x02':
|
|
param_2->mailTitleType = 1;
|
|
param_2->mailDescriptionType = 1;
|
|
param_2->mailMissionType = MISSION_TYPE_SPECIAL_MISSION;
|
|
param_2->unk18.rewardType = 5;
|
|
break;
|
|
case '\x03':
|
|
param_2->mailTitleType = 2;
|
|
param_2->mailDescriptionType = 2;
|
|
param_2->mailMissionType = MISSION_TYPE_SPECIAL_MISSION;
|
|
param_2->unk18.rewardType = 5;
|
|
break;
|
|
case '\x04':
|
|
param_2->mailTitleType = 3;
|
|
param_2->mailDescriptionType = 3;
|
|
param_2->mailMissionType = MISSION_TYPE_SPECIAL_MISSION;
|
|
param_2->unk4C = sub_8096DD8();
|
|
param_2->unk50 = sub_8096DE8();
|
|
break;
|
|
case '\x05':
|
|
if (mail->missionType == MISSION_TYPE_RESCUE_CLIENT) {
|
|
param_2->mailTitleType = '\v';
|
|
param_2->mailMissionType = MISSION_TYPE_FIND_ITEM;
|
|
}
|
|
else {
|
|
param_2->mailTitleType = '\f';
|
|
param_2->mailMissionType = MISSION_TYPE_DELIVER_ITEM;
|
|
}
|
|
|
|
param_2->mailDescriptionType = 4;
|
|
break;
|
|
case '\x06':
|
|
if (mail->missionType == 3) {
|
|
param_2->mailTitleType = '\v';
|
|
param_2->mailMissionType = MISSION_TYPE_FIND_ITEM;
|
|
}
|
|
else {
|
|
param_2->mailTitleType = '\f';
|
|
param_2->mailMissionType = MISSION_TYPE_DELIVER_ITEM;
|
|
}
|
|
|
|
param_2->mailDescriptionType = 5;
|
|
break;
|
|
case '\a':
|
|
param_2->unk0[1] = sub_803B600(mail);
|
|
if (param_2->unk0[1] == -1) {
|
|
param_2->mailTitleType = 9;
|
|
}
|
|
else {
|
|
param_2->mailTitleType = 4;
|
|
}
|
|
|
|
param_2->mailDescriptionType = 6;
|
|
param_2->mailMissionType = MISSION_TYPE_RESCUE_TARGET;
|
|
break;
|
|
case '\b':
|
|
param_2->unk0[1] = sub_803B628(mail);
|
|
if (param_2->unk0[1] == -1) {
|
|
param_2->mailTitleType = 9;
|
|
}
|
|
else {
|
|
param_2->mailTitleType = 5;
|
|
}
|
|
param_2->mailDescriptionType = 7;
|
|
param_2->mailMissionType = MISSION_TYPE_RESCUE_TARGET;
|
|
break;
|
|
case '\t':
|
|
param_2->unk0[1] = sub_803B66C(mail);
|
|
if (param_2->unk0[1] == -1) {
|
|
param_2->mailTitleType = 0xA;
|
|
}
|
|
else {
|
|
param_2->mailTitleType = 6;
|
|
}
|
|
|
|
param_2->mailDescriptionType = '\b';
|
|
param_2->mailMissionType = MISSION_TYPE_ESCORT_CLIENT;
|
|
break;
|
|
default:
|
|
switch(mail->missionType)
|
|
{
|
|
case 1:
|
|
param_2->mailTitleType = '\t';
|
|
param_2->mailDescriptionType = '\r';
|
|
param_2->mailMissionType = MISSION_TYPE_RESCUE_TARGET;
|
|
break;
|
|
case 2:
|
|
param_2->mailTitleType = '\n';
|
|
param_2->mailDescriptionType = '\x0e';
|
|
param_2->mailMissionType = MISSION_TYPE_ESCORT_CLIENT;
|
|
break;
|
|
|
|
case 3:
|
|
param_2->mailTitleType = '\v';
|
|
param_2->mailDescriptionType = '\x0f';
|
|
param_2->mailMissionType = MISSION_TYPE_FIND_ITEM;
|
|
break;
|
|
case 4:
|
|
param_2->mailTitleType = '\f';
|
|
param_2->mailDescriptionType = '\x10';
|
|
param_2->mailMissionType = MISSION_TYPE_DELIVER_ITEM;
|
|
break;
|
|
default:
|
|
param_2->mailTitleType = 8;
|
|
param_2->mailDescriptionType = 0xC;
|
|
param_2->mailMissionType = MISSION_TYPE_RESCUE_CLIENT;
|
|
break;
|
|
}
|
|
break;
|
|
|
|
}
|
|
param_2->dungeonSeed = &mail->dungeonSeed;
|
|
param_2->playerName = NULL;
|
|
uVar2 = 0;
|
|
param_2->clientSpecies = mail->clientSpecies;
|
|
param_2->targetSpecies = mail->targetSpecies;
|
|
param_2->targetItem = mail->targetItem;
|
|
switch(mail->mailType) {
|
|
case 2:
|
|
case 3:
|
|
case 4:
|
|
case 5:
|
|
param_2->unk43 = 1;
|
|
param_2->mailStatus = 1;
|
|
break;
|
|
case 7:
|
|
param_2->unk43 = 0;
|
|
param_2->mailStatus = 3;
|
|
break;
|
|
case 6:
|
|
case 8:
|
|
case 9:
|
|
param_2->unk43 = 3;
|
|
param_2->mailStatus = 2;
|
|
break;
|
|
|
|
default:
|
|
param_2->unk43 = uVar2;
|
|
param_2->mailStatus = uVar2;
|
|
break;
|
|
|
|
|
|
}
|
|
param_2->mail = mail;
|
|
return;
|
|
}
|
|
|
|
static s32 sub_803B600(WonderMail *mail)
|
|
{
|
|
s32 index;
|
|
const unkStruct_80E9920 *ptr;
|
|
|
|
for(ptr = &gUnknown_80E9920[0], index = 0; index < ARRAY_COUNT_INT(gUnknown_80E9920); ptr++, index++)
|
|
{
|
|
if ((ptr->parentSpecies == mail->clientSpecies) && (ptr->childSpecies == mail->targetSpecies)) {
|
|
return index;
|
|
}
|
|
}
|
|
|
|
return -1;
|
|
}
|