diff options
Diffstat (limited to 'main.asm')
| -rw-r--r-- | main.asm | 1424 |
1 files changed, 1 insertions, 1423 deletions
@@ -40323,1430 +40323,8 @@ AdjustHourForAMorPM: ld a, 12 ret -Function90b8d: ; 90b8d (24:4b8d) - ld hl, Options - ld a, [hl] - push af - set NO_TEXT_SCROLL, [hl] - ld a, [hInMenu] - push af - ld a, $1 - ld [hInMenu], a - ld a, [VramState] - push af - xor a - ld [VramState], a - call Function90bea - call DelayFrame - -.loop - call UpdateTime - call JoyTextDelay - ld a, [wJumptableIndex] - bit 7, a - jr nz, .done - call Function90f04 - callba Function8cf69 - call DelayFrame - jr .loop - -.done - ld de, SFX_READ_TEXT_2 - call PlaySFX - call WaitSFX - pop af - ld [VramState], a - pop af - ld [hInMenu], a - pop af - ld [Options], a - call ClearBGPalettes - xor a - ld [hBGMapAddress], a - ld a, VBGMap0 / $100 - ld [hBGMapAddress + 1], a - ld a, $90 - ld [hWY], a - call Function91492 - ret - -Function90bea: ; 90bea (24:4bea) - call ClearBGPalettes - call ClearTileMap - call ClearSprites - call DisableLCD - xor a - ld [hSCY], a - ld [hSCX], a - ld a, $7 - ld [hWX], a - call Function90c4e - callba Function8cf53 - call Function90d32 - ld a, 8 - call SkipMusic - ld a, $e3 - ld [rLCDC], a - call Function90d70 - xor a - ld [wJumptableIndex], a - ld [wcf64], a - ld [wcf65], a - ld [wcf66], a - ld [wc6d2], a - ld [wc6d1], a - ld [wc6d3], a - ld [wc6d9], a - ld [wc6da], a - ld [wc6db], a - call Function90d9e - call Function90da8 - ld b, SCGB_02 - call GetSGBLayout - call SetPalettes - ld a, [hCGB] - and a - ret z - ld a, $e4 - call Functioncf8 - ret - -Function90c4e: ; 90c4e - call Functiond79 - ld hl, TownMapGFX - ld de, VTiles2 - ld a, BANK(TownMapGFX) - call FarDecompress - - ld hl, PokegearGFX - ld de, VTiles2 + $300 - ld a, BANK(PokegearGFX) - call FarDecompress - - ld hl, PokegearSpritesGFX - ld de, VTiles0 - ld a, BANK(PokegearSpritesGFX) - call Decompress - - ld a, [MapGroup] - ld b, a - ld a, [MapNumber] - ld c, a - call GetWorldMapLocation - cp FAST_SHIP - jr z, .ssaqua - - callba GetPlayerIcon - - push de - ld h, d - ld l, e - ld a, b - - push af - ld de, VTiles0 tile $10 - ld bc, $40 - call FarCopyBytes - pop af - - pop hl - - ld de, $c0 - add hl, de - ld de, VTiles0 tile $14 - ld bc, $40 - call FarCopyBytes - ret - -.ssaqua - ld hl, FastShipGFX - ld de, VTiles0 tile $10 - ld bc, $80 - call CopyBytes - ret -; 90cb2 - -FastShipGFX: ; 90cb2 -INCBIN "gfx/misc/fast_ship.2bpp" -; 90d32 - -Function90d32: ; 90d32 (24:4d32) - lb de, $24, $10 - ld a, SPRITE_ANIM_INDEX_0D - call _InitSpriteAnimStruct - ld hl, $3 - add hl, bc - ld [hl], $0 - ret - -Function90d41: ; 90d41 (24:4d41) - ld hl, wcf64 - ld e, [hl] - ld d, 0 - ld hl, Unknown_90d52 - add hl, de - ld a, [hl] - ld hl, $6 - add hl, bc - ld [hl], a - ret -; 90d52 (24:4d52) - -Unknown_90d52: ; 90d52 - db $00, $10, $20, $30 -; 90d56 - -Function90d56: ; 90d56 - ld a, [MapGroup] - ld b, a - ld a, [MapNumber] - ld c, a - call GetWorldMapLocation - cp SPECIAL_MAP - ret nz - ld a, [BackupMapGroup] - ld b, a - ld a, [BackupMapNumber] - ld c, a - call GetWorldMapLocation - ret -; 90d70 - - -Function90d70: ; 90d70 (24:4d70) - ld a, [MapGroup] - ld b, a - ld a, [MapNumber] - ld c, a - call GetWorldMapLocation - - cp FAST_SHIP - jr z, .asm_90d95 - - cp SPECIAL_MAP - jr nz, .asm_90d8e - - ld a, [BackupMapGroup] - ld b, a - ld a, [BackupMapNumber] - ld c, a - call GetWorldMapLocation - -.asm_90d8e - ld [wc6d8], a - ld [wc6d7], a - ret - -.asm_90d95 - ld [wc6d8], a - ld a, NEW_BARK_TOWN - ld [wc6d7], a - ret - -Function90d9e: ; 90d9e (24:4d9e) - ld a, $0 - ld [wJumptableIndex], a - xor a - ld [wcf64], a - ret - -Function90da8: ; 90da8 (24:4da8) - xor a - ld [hBGMapMode], a - hlcoord 0, 0 - ld bc, TileMapEnd - TileMap - ld a, $4f - call ByteFill - ld a, [wcf64] - and $3 - add a - ld e, a - ld d, 0 - ld hl, Jumptable_90e12 - add hl, de - ld a, [hli] - ld h, [hl] - ld l, a - ld de, .asm_90dcb - push de - jp [hl] - -.asm_90dcb - call Function90eb0 - callba TownMapPals - ld a, [wcf65] - and a - jr nz, .asm_90de8 - - xor a - ld [hBGMapAddress], a - ld a, VBGMap0 / $100 - ld [hBGMapAddress + 1], a - call Function90e00 - ld a, $90 - jr .asm_90df3 - -.asm_90de8 - xor a - ld [hBGMapAddress], a - ld a, VBGMap1 / $100 - ld [hBGMapAddress + 1], a - call Function90e00 - xor a - -.asm_90df3 - ld [hWY], a - ld a, [wcf65] - and 1 - xor 1 - ld [wcf65], a - ret - -Function90e00: ; 90e00 (24:4e00) - ld a, [hCGB] - and a - jr z, .asm_90e0e - ld a, $2 - ld [hBGMapMode], a - ld c, 3 - call DelayFrames -.asm_90e0e - call WaitBGMap - ret -; 90e12 (24:4e12) - -Jumptable_90e12: ; 90e12 - dw Function90e1a - dw Function90e3f - dw Function90e82 - dw Function90e72 -; 90e1a - -Function90e1a: ; 90e1a - ld de, ClockTilemapRLE - call Function914bb - hlcoord 12, 1 - ld de, .switch - call PlaceString - hlcoord 0, 12 - lb bc, 4, 18 - call TextBox - call Function90f86 - ret -; 90e36 (24:4e36) - -.switch - db " SWITCH▶@" -; 90e3f - -Function90e3f: ; 90e3f - - ld a, [wc6d8] - cp FAST_SHIP - jr z, .johto - cp KANTO_LANDMARK - jr nc, .kanto -.johto - ld e, 0 - jr .ok -.kanto - ld e, 1 -.ok - callba Function91ae1 - ld a, $7 - ld bc, $12 - hlcoord 1, 2 - call ByteFill - hlcoord 0, 2 - ld [hl], $6 - hlcoord 19, 2 - ld [hl], $17 - ld a, [wc6d7] - call Function910b4 - ret -; 90e72 - -Function90e72: ; 90e72 - ld de, RadioTilemapRLE - call Function914bb - hlcoord 0, 12 - lb bc, 4, 18 - call TextBox - ret -; 90e82 - -Function90e82: ; 90e82 - ld de, PhoneTilemapRLE - call Function914bb - hlcoord 0, 12 - lb bc, 4, 18 - call TextBox - call Function90e98 - call Function912d8 - ret -; 90e98 - -Function90e98: ; 90e98 (24:4e98) - hlcoord 17, 1 - ld a, $3c - ld [hli], a - inc a - ld [hl], a - hlcoord 17, 2 - inc a - ld [hli], a - call GetMapHeaderPhoneServiceNybble - and a - ret nz - hlcoord 18, 2 - ld [hl], $3f - ret - -Function90eb0: ; 90eb0 (24:4eb0) - hlcoord 0, 0 - ld bc, $8 - ld a, $4f - call ByteFill - hlcoord 0, 1 - ld bc, $8 - ld a, $4f - call ByteFill - ld de, wPokegearFlags - ld a, [de] - bit 0, a - call nz, Function90ee4 - ld a, [de] - bit 2, a - call nz, Function90eeb - ld a, [de] - bit 1, a - call nz, Function90ef2 - hlcoord 0, 0 - ld a, $46 - call Function90ef7 - ret - -Function90ee4: ; 90ee4 (24:4ee4) - hlcoord 2, 0 - ld a, $40 - jr Function90ef7 - -Function90eeb: ; 90eeb (24:4eeb) - hlcoord 4, 0 - ld a, $44 - jr Function90ef7 - -Function90ef2: ; 90ef2 (24:4ef2) - hlcoord 6, 0 - ld a, $42 - -Function90ef7: ; 90ef7 (24:4ef7) - ld [hli], a - inc a - ld [hld], a - ld bc, $14 - add hl, bc - add $f - ld [hli], a - inc a - ld [hld], a - ret - -Function90f04: ; 90f04 (24:4f04) - ld a, [wJumptableIndex] - ld e, a - ld d, 0 - ld hl, Jumptable_90f13 -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - jp [hl] - -Jumptable_90f13: ; 90f13 (24:4f13) - dw Function90f2d - dw Function90f3e - dw Function90fb4 - dw Function90fcd - dw Function90fee - dw Function90fcd - dw Function90fe9 - dw Function91156 - dw Function91171 - dw Function911eb - dw Function91256 - dw Function910f9 - dw Function91112 - - -Function90f2d: ; 90f2d (24:4f2d) - call Function90da8 - ld hl, UnknownText_0x914d3 - call PrintText - ld hl, wJumptableIndex - inc [hl] - call Function91492 - ret - -Function90f3e: ; 90f3e (24:4f3e) - call Function90f7b - ld hl, hJoyLast - - ld a, [hl] - and A_BUTTON + B_BUTTON + START + SELECT - jr nz, .asm_90f75 - - ld a, [hl] - and D_RIGHT - ret z - - ld a, [wPokegearFlags] - bit 0, a - jr z, .asm_90f5a - ld c, $2 - ld b, $1 - jr .asm_90f71 -.asm_90f5a - - ld a, [wPokegearFlags] - bit 2, a - jr z, .asm_90f67 - ld c, $7 - ld b, $2 - jr .asm_90f71 -.asm_90f67 - - ld a, [wPokegearFlags] - bit 1, a - ret z - - ld c, $b - ld b, $3 - -.asm_90f71 - call Function91480 - ret - -.asm_90f75 - ld hl, wJumptableIndex - set 7, [hl] - ret - -Function90f7b: ; 90f7b (24:4f7b) - xor a - ld [hBGMapMode], a - call Function90f86 - ld a, $1 - ld [hBGMapMode], a - ret - -Function90f86: ; 90f86 (24:4f86) - hlcoord 3, 5 - lb bc, 5, 14 - call ClearBox - ld a, [hHours] - ld b, a - ld a, [hMinutes] - ld c, a - decoord 6, 8 - callba PrintHoursMins - ld hl, UnknownText_0x90faf - bccoord 6, 6 - call PlaceWholeStringInBoxAtOnce - ret -; 90fa8 (24:4fa8) - -String_90fa8: db "ごぜん@" -String_90fac: db "ごご@" - -UnknownText_0x90faf: ; 0x90faf - text_jump UnknownText_0x1c5821 - db "@" -; 0x90fb4 - -Function90fb4: ; 90fb4 (24:4fb4) - ld a, [wc6d8] - cp FAST_SHIP - jr z, .johto - cp KANTO_LANDMARK - jr nc, .kanto -.johto - ld a, 3 - jr .done - - ret - -.kanto - ld a, 5 -.done - ld [wJumptableIndex], a - call Function91492 - ret - -Function90fcd: ; 90fcd (24:4fcd) - call Function90da8 - ld a, [wc6d8] - call Function9106a - ld a, [wc6d7] - call Function91098 - ld a, c - ld [wc6d5], a - ld a, b - ld [wc6d6], a - ld hl, wJumptableIndex - inc [hl] - ret - -Function90fe9: ; 90fe9 (24:4fe9) - call Function910e8 - jr Function90ff2 - -Function90fee: ; 90fee (24:4fee) - ld d, $2e - ld e, $1 -Function90ff2: ; 90ff2 (24:4ff2) - ld hl, hJoyLast - ld a, [hl] - and B_BUTTON - jr nz, .cancel - ld a, [hl] - and D_RIGHT - jr nz, .right - ld a, [hl] - and D_LEFT - jr nz, .left - call Function9102f - ret - -.right - ld a, [wPokegearFlags] - bit 2, a - jr z, .asm_91015 - ld c, $7 - ld b, $2 - jr .done - -.asm_91015 - ld a, [wPokegearFlags] - bit 1, a - ret z - ld c, $b - ld b, $3 - jr .done - -.left - ld c, $0 - ld b, $0 -.done - call Function91480 - ret -.cancel - ld hl, wJumptableIndex - set 7, [hl] - ret - -Function9102f: ; 9102f (24:502f) - ld hl, hJoyLast - ld a, [hl] - and D_UP - jr nz, .up - ld a, [hl] - and D_DOWN - jr nz, .down - ret -.up - ld hl, wc6d7 - ld a, [hl] - cp d - jr c, .asm_91047 - ld a, e - dec a - ld [hl], a -.asm_91047 - inc [hl] - jr .done - -.down - ld hl, wc6d7 - ld a, [hl] - cp e - jr nz, .asm_91054 - ld a, d - inc a - ld [hl], a -.asm_91054 - dec [hl] - -.done - ld a, [wc6d7] - call Function910b4 - ld a, [wc6d5] - ld c, a - ld a, [wc6d6] - ld b, a - ld a, [wc6d7] - call Function910d4 - ret - -Function9106a: ; 9106a - push af - ld de, 0 - ld b, SPRITE_ANIM_INDEX_0A - ld a, [PlayerGender] - bit 0, a - jr z, .asm_91079 - ld b, SPRITE_ANIM_INDEX_1E - -.asm_91079 - ld a, b - call _InitSpriteAnimStruct - ld hl, $3 - add hl, bc - ld [hl], $10 - pop af - ld e, a - push bc - callba GetLandmarkCoords - pop bc - ld hl, $4 - add hl, bc - ld [hl], e - ld hl, $5 - add hl, bc - ld [hl], d - ret -; 91098 - -Function91098: ; 91098 - push af - ld de, 0 - ld a, SPRITE_ANIM_INDEX_0D - call _InitSpriteAnimStruct - ld hl, $3 - add hl, bc - ld [hl], $4 - ld hl, $2 - add hl, bc - ld [hl], $0 - pop af - push bc - call Function910d4 - pop bc - ret -; 910b4 - -Function910b4: ; 910b4 - push af - hlcoord 8, 0 - lb bc, 2, 12 - call ClearBox - pop af - ld e, a - push de - callba GetLandmarkName - pop de - callba Function1de2c5 - hlcoord 8, 0 - ld [hl], $34 - ret -; 910d4 - -Function910d4: ; 910d4 - push bc - ld e, a - callba GetLandmarkCoords - pop bc - ld hl, $4 - add hl, bc - ld [hl], e - ld hl, $5 - add hl, bc - ld [hl], d - ret -; 910e8 - -Function910e8: ; 910e8 - ld a, [StatusFlags] - bit 6, a - jr z, .asm_910f4 - ld d, $5e - ld e, $2f - ret - -.asm_910f4 - ld d, $5e - ld e, $58 - ret -; 910f9 - - -Function910f9: ; 910f9 (24:50f9) - call Function90da8 - lb de, $24, $54 - ld a, SPRITE_ANIM_INDEX_14 - call _InitSpriteAnimStruct - ld hl, $3 - add hl, bc - ld [hl], $8 - call _UpdateRadioStation - ld hl, wJumptableIndex - inc [hl] - ret - -Function91112: ; 91112 (24:5112) - ld hl, hJoyLast - ld a, [hl] - and B_BUTTON - jr nz, .cancel - ld a, [hl] - and D_LEFT - jr nz, .left - ld a, [wc6da] - ld l, a - ld a, [wc6db] - ld h, a - ld a, [wc6d9] - and a - ret z - rst FarCall - ret - -.left - ld a, [wPokegearFlags] - bit 2, a - jr z, .asm_9113b - ld c, $7 - ld b, $2 - jr .asm_9114c - -.asm_9113b - ld a, [wPokegearFlags] - bit 0, a - jr z, .asm_91148 - ld c, $2 - ld b, $1 - jr .asm_9114c - -.asm_91148 - ld c, $0 - ld b, $0 -.asm_9114c - call Function91480 - ret - -.cancel - ld hl, wJumptableIndex - set 7, [hl] - ret - -Function91156: ; 91156 (24:5156) - ld hl, wJumptableIndex - inc [hl] - xor a - ld [wc6d2], a - ld [wc6d1], a - ld [wc6d3], a - call Function90da8 - call Function91492 - ld hl, UnknownText_0x914ce - call PrintText - ret - -Function91171: ; 91171 (24:5171) - ld hl, hJoyPressed - ld a, [hl] - and B_BUTTON - jr nz, .b - ld a, [hl] - and A_BUTTON - jr nz, .a - ld hl, hJoyLast - ld a, [hl] - and D_LEFT - jr nz, .left - ld a, [hl] - and D_RIGHT - jr nz, .right - call Function9126d - ret - -.left - ld a, [wPokegearFlags] - bit 0, a - jr z, .asm_9119c - ld c, $2 - ld b, $1 - jr .asm_911ac -.asm_9119c - ld c, $0 - ld b, $0 - jr .asm_911ac - -.right - ld a, [wPokegearFlags] - bit 1, a - ret z - ld c, $b - ld b, $3 -.asm_911ac - call Function91480 - ret - -.b - ld hl, wJumptableIndex - set 7, [hl] - ret - -.a - ld hl, wPhoneList - ld a, [wc6d2] - ld e, a - ld d, 0 - add hl, de - ld a, [wc6d1] - ld e, a - ld d, 0 - add hl, de - ld a, [hl] - and a - ret z - - ld [wc6d3], a - hlcoord 1, 4 - ld a, [wc6d1] - ld bc, 20 * 2 - call AddNTimes - ld [hl], "▷" - call Function91342 - jr c, .asm_911e5 - - ld hl, wJumptableIndex - inc [hl] - ret - -.asm_911e5 - ld a, $8 - ld [wJumptableIndex], a - ret - -Function911eb: ; 911eb (24:51eb) - call GetMapHeaderPhoneServiceNybble - and a - jr nz, .asm_91234 - ld hl, Options - res NO_TEXT_SCROLL, [hl] - xor a - ld [hInMenu], a - ld de, SFX_CALL - call PlaySFX - ld hl, UnknownText_0x9124c - call PrintText - call WaitSFX - ld de, SFX_CALL - call PlaySFX - ld hl, UnknownText_0x9124c - call PrintText - call WaitSFX - ld a, [wc6d3] - ld b, a - call Function90199 - ld c, 10 - call DelayFrames - ld hl, Options - set NO_TEXT_SCROLL, [hl] - ld a, $1 - ld [hInMenu], a - call Function912b7 - ld hl, wJumptableIndex - inc [hl] - ret -.asm_91234 - callba Phone_NoSignal - ld hl, OutOfServiceAreaText - call PrintText - ld a, $8 - ld [wJumptableIndex], a - ld hl, UnknownText_0x914ce - call PrintText - ret -; 9124c (24:524c) - -UnknownText_0x9124c: ; 0x9124c - ; - text_jump UnknownText_0x1c5824 - db "@" -; 0x91251 - -OutOfServiceAreaText: ; 0x91251 - ; You're out of the service area. - text_jump UnknownText_0x1c5827 - db "@" -; 0x91256 - -Function91256: ; 91256 (24:5256) - ld a, [hJoyPressed] - and A_BUTTON | B_BUTTON - ret z - callba HangUp - ld a, $8 - ld [wJumptableIndex], a - ld hl, UnknownText_0x914ce - call PrintText - ret - -Function9126d: ; 9126d (24:526d) - ld hl, hJoyLast - ld a, [hl] - and D_UP - jr nz, .up - ld a, [hl] - and D_DOWN - jr nz, .down - ret - -.up - ld hl, wc6d1 - ld a, [hl] - and a - jr z, .asm_91285 - dec [hl] - jr .asm_912a3 - -.asm_91285 - ld hl, wc6d2 - ld a, [hl] - and a - ret z - dec [hl] - jr .asm_912ad - -.down - ld hl, wc6d1 - ld a, [hl] - cp $3 - jr nc, .asm_91299 - inc [hl] - jr .asm_912a3 - -.asm_91299 - ld hl, wc6d2 - ld a, [hl] - cp $6 - ret nc - inc [hl] - jr .asm_912ad - -.asm_912a3 - xor a - ld [hBGMapMode], a - call Function912b7 - call WaitBGMap - ret - -.asm_912ad - xor a - ld [hBGMapMode], a - call Function912d8 - call WaitBGMap - ret - -Function912b7: ; 912b7 (24:52b7) - ld a, " " - hlcoord 1, 4 - ld [hl], a - hlcoord 1, 6 - ld [hl], a - hlcoord 1, 8 - ld [hl], a - hlcoord 1, 10 - ld [hl], a - hlcoord 1, 4 - ld a, [wc6d1] - ld bc, $28 - call AddNTimes - ld [hl], "▶" - ret - -Function912d8: ; 912d8 (24:52d8) - hlcoord 1, 3 - ld b, $9 - ld a, $7f -.asm_912df - ld c, $12 -.asm_912e1 - ld [hli], a - dec c - jr nz, .asm_912e1 -rept 2 - inc hl -endr - dec b - jr nz, .asm_912df - ld a, [wc6d2] - ld e, a - ld d, $0 - ld hl, wPhoneList - add hl, de - xor a - ld [wc6d0], a -.asm_912f8 - ld a, [hli] - push hl - push af - hlcoord 2, 4 - ld a, [wc6d0] - ld bc, $28 - call AddNTimes - ld d, h - ld e, l - pop af - ld b, a - call Function90380 - pop hl - ld a, [wc6d0] - inc a - ld [wc6d0], a - cp $4 - jr c, .asm_912f8 - call Function912b7 - ret -; 9131e (24:531e) - -Function9131e: ; 9131e - ld hl, wPhoneList - ld a, [wc6d2] - ld e, a - ld d, 0 - add hl, de - ld a, [wc6d1] - ld e, a - ld d, 0 - add hl, de - ld [hl], 0 - ld hl, wPhoneList - ld c, $a -.asm_91336 - ld a, [hli] - and a - jr nz, .asm_9133e - ld a, [hld] - ld [hli], a - ld [hl], 0 -.asm_9133e - dec c - jr nz, .asm_91336 - ret -; 91342 - -Function91342: ; 91342 (24:5342) - ld hl, wPhoneList - ld a, [wc6d2] - ld e, a - ld d, 0 - add hl, de - ld a, [wc6d1] - ld e, a - ld d, 0 - add hl, de - ld c, [hl] - callba Function9038a - ld a, c - and a - jr z, .asm_91366 - - ld hl, Jumptable_91455 - ld de, Unknown_9143f - jr .asm_9136c - -.asm_91366 - ld hl, Jumptable_9146a - ld de, Unknown_9145b - -.asm_9136c - xor a - ld [hBGMapMode], a - push hl - push de - ld a, [de] - ld l, a - inc de - ld a, [de] - ld h, a - inc de - push hl - ld bc, hBGMapAddress + 1 - add hl, bc - ld a, [de] - inc de - sla a - ld b, a - ld c, 8 - push de - call TextBox - pop de - pop hl - inc hl - call PlaceString - pop de - xor a - ld [wc6d4], a - call Function9141d - call WaitBGMap - -.asm_91398 - push de - call JoyTextDelay - pop de - ld hl, hJoyPressed - ld a, [hl] - and D_UP - jr nz, .asm_913b4 - ld a, [hl] - and D_DOWN - jr nz, .asm_913c1 - ld a, [hl] - and A_BUTTON | B_BUTTON - jr nz, .asm_913d4 - call DelayFrame - jr .asm_91398 - -.asm_913b4 - ld hl, wc6d4 - ld a, [hl] - and a - jr z, .asm_91398 - dec [hl] - call Function9141d - jr .asm_91398 - -.asm_913c1 - ld hl, 2 - add hl, de - ld a, [wc6d4] - inc a - cp [hl] - jr nc, .asm_91398 - ld [wc6d4], a - call Function9141d - jr .asm_91398 - -.asm_913d4 - xor a - ld [hBGMapMode], a - call Function912d8 - ld a, $1 - ld [hBGMapMode], a - pop hl - ld a, [hJoyPressed] - and B_BUTTON - jr nz, Function913f1 - - ld a, [wc6d4] - ld e, a - ld d, 0 -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - jp [hl] - -Function913f1: ; 913f1 - ld hl, UnknownText_0x914ce - call PrintText - scf - ret -; 913f9 (24:53f9) - -Function913f9: ; 913f9 - ld hl, UnknownText_0x914d8 - call MenuTextBox - call YesNoBox - call ExitMenu - jr c, .asm_91419 - call Function9131e - xor a - ld [hBGMapMode], a - call Function912d8 - ld hl, UnknownText_0x914ce - call PrintText - call WaitBGMap -.asm_91419 - scf - ret -; 9141b - -Function9141b: ; 9141b - and a - ret -; 9141d - -Function9141d: ; 9141d (24:541d) - push de - ld a, [de] - inc de - ld l, a - ld a, [de] - inc de - ld h, a - ld a, [de] - ld c, a - push hl - ld a, " " - ld de, 20 * 2 -.asm_9142c - ld [hl], a - add hl, de - dec c - jr nz, .asm_9142c - pop hl - ld a, [wc6d4] - ld bc, 20 * 2 - call AddNTimes - ld [hl], "▶" - pop de - ret -; 9143f (24:543f) - -Unknown_9143f: ; 9143f - dwcoord 10, 6 - db 3 - db "CALL" - next "DELETE" - next "CANCEL" - db "@" -; 91455 - -Jumptable_91455: ; 91455 - dw Function9141b - dw Function913f9 - dw Function913f1 -; 9145b - -Unknown_9145b: ; 9145b - dwcoord 10, 8 - db 2 - db "CALL" - next "CANCEL" - db "@" -; 9146a - -Jumptable_9146a: ; 9146a - dw Function9141b - dw Function913f1 -; 9146e - - -Function9146e: ; 9146e - ld a, [hHours] - cp 12 - jr c, .asm_9147b - sub 12 - ld [wd265], a - scf - ret - -.asm_9147b - ld [wd265], a - and a - ret -; 91480 - - -Function91480: ; 91480 (24:5480) - ld de, SFX_READ_TEXT_2 - call PlaySFX - ld a, c - ld [wJumptableIndex], a - ld a, b - ld [wcf64], a - call DeleteSpriteAnimStruct2ToEnd - ret - -Function91492: ; 91492 - ld a, [wc6dc] - cp $fe - jr z, .asm_914a3 - cp $ff - call z, EnterMapMusic - xor a - ld [wc6dc], a - ret - -.asm_914a3 - call RestartMapMusic - xor a - ld [wc6dc], a - ret -; 914ab - - -DeleteSpriteAnimStruct2ToEnd: ; 914ab (24:54ab) - ld hl, SpriteAnim2 - ld bc, wSpriteAnimationStructsEnd - SpriteAnim2 - xor a - call ByteFill - ld a, 2 - ld [wSpriteAnimCount], a - ret - -Function914bb: ; 914bb (24:54bb) - hlcoord 0, 0 -.asm_914be - ld a, [de] - cp $ff - ret z - ld b, a - inc de - ld a, [de] - ld c, a - inc de - ld a, b -.asm_914c8 - ld [hli], a - dec c - jr nz, .asm_914c8 - jr .asm_914be -; 914ce (24:54ce) - -UnknownText_0x914ce: ; 0x914ce - ; Whom do you want to call? - text_jump UnknownText_0x1c5847 - db "@" -; 0x914d3 - -UnknownText_0x914d3: ; 0x914d3 - ; Press any button to exit. - text_jump UnknownText_0x1c5862 - db "@" -; 0x914d8 - -UnknownText_0x914d8: ; 0x914d8 - ; Delete this stored phone number? - text_jump UnknownText_0x1c587d - db "@" -; 0x914dd - - -PokegearSpritesGFX: ; 914dd -INCBIN "gfx/misc/pokegear_sprites.2bpp.lz" -; 9150d - -RadioTilemapRLE: ; 9150d -INCBIN "gfx/unknown/09150d.tilemap.rle" - -PhoneTilemapRLE: ; 9158a -INCBIN "gfx/unknown/09158a.tilemap.rle" - -ClockTilemapRLE: ; 915db -INCBIN "gfx/unknown/0915db.tilemap.rle" -; 9163e +INCLUDE "engine/pokegear.asm" -INCLUDE "engine/radio2.asm" -INCLUDE "engine/town_map.asm" INCLUDE "data/wild/fish.asm" INCLUDE "engine/slot_machine.asm" |