diff options
Diffstat (limited to 'src/engine/bank03.asm')
| -rw-r--r-- | src/engine/bank03.asm | 5157 |
1 files changed, 4186 insertions, 971 deletions
diff --git a/src/engine/bank03.asm b/src/engine/bank03.asm index ac5117e..4febfe9 100644 --- a/src/engine/bank03.asm +++ b/src/engine/bank03.asm @@ -29,11 +29,11 @@ LoadMap: ; c000 (3:4000) ld a, PLAYER_TURN ldh [hWhoseTurn], a farcall Func_1c440 - ld a, [wd0bb] + ld a, [wTempMap] ld [wCurMap], a - ld a, [wd0bc] + ld a, [wTempPlayerXCoord] ld [wPlayerXCoord], a - ld a, [wd0bd] + ld a, [wTempPlayerYCoord] ld [wPlayerYCoord], a call Func_c36a call Func_c184 @@ -54,7 +54,7 @@ LoadMap: ; c000 (3:4000) .asm_c092 call DoFrameIfLCDEnabled call SetScreenScroll - call Func_c0ce + call HandleOverworldMode ld hl, wd0b4 ld a, [hl] and $d0 @@ -79,13 +79,13 @@ LoadMap: ; c000 (3:4000) call Func_c280 ret -Func_c0ce: ; c0ce (3:40ce) - ld a, [wd0bf] +HandleOverworldMode: ; c0ce (3:40ce) + ld a, [wOverworldMode] res 7, a rlca - add LOW(PointerTable_c0e0) + add LOW(OverworldModePointers) ld l, a - ld a, HIGH(PointerTable_c0e0) + ld a, HIGH(OverworldModePointers) adc $0 ld h, a ld a, [hli] @@ -93,58 +93,59 @@ Func_c0ce: ; c0ce (3:40ce) ld l, a jp hl -PointerTable_c0e0: ; c0e0 (3:40e0) - dw Func_c0e8 - dw Func_c0ed - dw Func_c0f1 - dw Func_c10a +OverworldModePointers: ; c0e0 (3:40e0) + dw Func_c0e8 ; on map + dw CallHandlePlayerMoveMode + dw SetScriptData + dw EnterScript Func_c0e8: ; c0e8 (3:40e8) farcall Func_10e55 ret -Func_c0ed: ; c0ed (3:40ed) - call Func_c510 +CallHandlePlayerMoveMode: ; c0ed (3:40ed) + call HandlePlayerMoveMode ret -Func_c0f1: ; c0f1 (3:40f1) - ld a, [wd3b6] - ld [wd3aa], a - farcall Func_1c768 +SetScriptData: ; c0f1 (3:40f1) + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a + farcall SetNewScriptNPC ld a, c - ld [wd0c6], a + ld [wNextScript], a ld a, b - ld [wd0c7], a + ld [wNextScript+1], a ld a, $3 - ld [wd0bf], a - jr Func_c10a + ld [wOverworldMode], a + jr EnterScript -Func_c10a: ; c10a (3:410a) - ld hl, wd0c6 +EnterScript: ; c10a (3:410a) + ld hl, wNextScript ld a, [hli] ld h, [hl] ld l, a jp hl ; closes dialogue window. seems to be for other things as well. -CloseDialogueBox: ; c111 (3:4111) +CloseAdvancedDialogueBox: ; c111 (3:4111) ld a, [wd0c1] bit 0, a - call nz, Func_c135 + call nz, CloseTextBox ld a, [wd0c1] bit 1, a jr z, .asm_c12a - ld a, [wd3b6] - ld [wd3aa], a + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a farcall Func_1c5e9 .asm_c12a xor a ld [wd0c1], a ld a, [wd0c0] - ld [wd0bf], a + ld [wOverworldMode], a ret -Func_c135: ; c135 (3:4135) +; redraws the background and removes textbox control +CloseTextBox: ; c135 (3:4135) push hl farcall Func_80028 ld hl, wd0c1 @@ -175,12 +176,12 @@ Func_c158: ; c158 (3:4158) cp $1 ret nz ld a, [wd0c4] - ld [wd3ab], a - call Func_39c3 + ld [wTempNPC], a + call FindLoadedNPC jr c, .asm_c179 - ld a, [wd3aa] - ld l, $4 - call Func_39ad + ld a, [wLoadedNPCTempIndex] + ld l, LOADED_NPC_DIRECTION + call GetItemInLoadedNPCIndex ld a, [wd0c5] ld [hl], a farcall Func_1c58e @@ -188,7 +189,7 @@ Func_c158: ; c158 (3:4158) ret Func_c17a: ; c17a (3:417a) - ld a, [wd0bf] + ld a, [wOverworldMode] cp $3 ret z call Func_c9b8 @@ -203,7 +204,7 @@ Func_c184: ; c184 (3:4184) ld c, $0 .asm_c190 ld a, c - ld [wd0bf], a + ld [wOverworldMode], a ld [wd0c0], a pop bc ret @@ -230,13 +231,13 @@ Func_c1b1: ; c1b1 (3:41b1) ld a, $c ld [wd32e], a ld a, $0 - ld [wd0bb], a + ld [wTempMap], a ld a, $c - ld [wd0bc], a + ld [wTempPlayerXCoord], a ld a, $c - ld [wd0bd], a + ld [wTempPlayerYCoord], a ld a, $2 - ld [wd0be], a + ld [wTempPlayerDirection], a call Func_c9cb call Func_c9dd farcall Func_80b7a @@ -277,13 +278,13 @@ Func_c1f8: ; c1f8 (3:41f8) Func_c228: ; c228 (3:4228) ld a, [wCurMap] - ld [wd0bb], a + ld [wTempMap], a ld a, [wPlayerXCoord] - ld [wd0bc], a + ld [wTempPlayerXCoord], a ld a, [wPlayerYCoord] - ld [wd0bd], a - ld a, [wd334] - ld [wd0be], a + ld [wTempPlayerYCoord], a + ld a, [wPlayerDirection] + ld [wTempPlayerDirection], a ret Func_c241: ; c241 (3:4241) @@ -579,24 +580,24 @@ Func_c4b9: ; c4b9 (3:44b9) ld a, b ld [wd337], a ld a, $0 - farcall Func_1299f + farcall CreateSpriteAndAnimBufferEntry ld a, [wWhichSprite] - ld [wd336], a + ld [wPlayerSpriteIndex], a ld b, $2 ld a, [wCurMap] cp OVERWORLD_MAP jr z, .asm_c4ee - ld a, [wd0be] + ld a, [wTempPlayerDirection] ld b, a .asm_c4ee ld a, b - ld [wd334], a - call Func_c5e9 + ld [wPlayerDirection], a + call UpdatePlayerSprite ld a, [wCurMap] cp OVERWORLD_MAP call nz, Func_c6f7 xor a - ld [wd335], a + ld [wPlayerCurrentlyMoving], a ld [wd338], a ld a, [wCurMap] cp OVERWORLD_MAP @@ -605,42 +606,42 @@ Func_c4b9: ; c4b9 (3:44b9) .asm_c50f ret -Func_c510: ; c510 (3:4510) - ld a, [wd336] +HandlePlayerMoveMode: ; c510 (3:4510) + ld a, [wPlayerSpriteIndex] ld [wWhichSprite], a - ld a, [wd335] + ld a, [wPlayerCurrentlyMoving] bit 4, a ret nz bit 0, a - call z, Func_c5ac - ld a, [wd335] + call z, HandlePlayerMoveModeInput + ld a, [wPlayerCurrentlyMoving] or a - jr z, .asm_c535 + jr z, .notMoving bit 0, a call nz, Func_c66c - ld a, [wd335] + ld a, [wPlayerCurrentlyMoving] bit 1, a call nz, Func_c6dc ret -.asm_c535 +.notMoving ldh a, [hKeysPressed] and START - call nz, Func_c74d + call nz, OpenStartMenu ret Func_c53d: ; c53d (3:453d) - ld a, [wd336] + ld a, [wPlayerSpriteIndex] ld [wWhichSprite], a - ld a, [wd335] + ld a, [wPlayerCurrentlyMoving] bit 0, a call nz, Func_c687 - ld a, [wd335] + ld a, [wPlayerCurrentlyMoving] bit 1, a call nz, Func_c6dc ret Func_c554: ; c554 (3:4554) - ld a, [wd336] + ld a, [wPlayerSpriteIndex] ld [wWhichSprite], a ld a, [wCurMap] cp OVERWORLD_MAP @@ -694,80 +695,81 @@ Func_c58b: ; c58b (3:458b) pop hl ret -Func_c5ac: ; c5ac (3:45ac) +HandlePlayerMoveModeInput: ; c5ac (3:45ac) ldh a, [hKeysHeld] and D_PAD - jr z, .asm_c5bf - call Func_c5cb - call Func_c5fe - ld a, [wd335] + jr z, .skipMoving + call UpdatePlayerDirectionFromDPad + call AttemptPlayerMovementFromDirection + ld a, [wPlayerCurrentlyMoving] and $1 - jr nz, .asm_c5ca -.asm_c5bf + jr nz, .done +.skipMoving ldh a, [hKeysPressed] and A_BUTTON - jr z, .asm_c5ca - call Func_c71e - jr .asm_c5ca -.asm_c5ca + jr z, .done + call FindNPCOrObject + jr .done +.done ret -Func_c5cb: ; c5cb (3:45cb) - call Func_c5d5 -Func_c5ce: ; c5ce (3:45ce) - ld [wd334], a - call Func_c5e9 +UpdatePlayerDirectionFromDPad: ; c5cb (3:45cb) + call GetDirectionFromDPad +UpdatePlayerDirection: ; c5ce (3:45ce) + ld [wPlayerDirection], a + call UpdatePlayerSprite ret -Func_c5d5: ; c5d5 (3:45d5) +GetDirectionFromDPad: ; c5d5 (3:45d5) push hl - ld hl, Unknown_c5e5 + ld hl, KeypadDirectionMap or a - jr z, .asm_c5e2 -.asm_c5dc + jr z, .loadDirectionMapping +.findDirectionMappingLoop rlca - jr c, .asm_c5e2 + jr c, .loadDirectionMapping inc hl - jr .asm_c5dc -.asm_c5e2 + jr .findDirectionMappingLoop +.loadDirectionMapping ld a, [hl] pop hl ret -Unknown_c5e5: ; c5e5 (3:45e5) - db $02,$00,$03,$01 +KeypadDirectionMap: ; c5e5 (3:45e5) + db SOUTH, NORTH, WEST, EAST -Func_c5e9: ; c5e9 (3:45e9) +; Updates sprite depending on direction +UpdatePlayerSprite: ; c5e9 (3:45e9) push bc - ld a, [wd336] + ld a, [wPlayerSpriteIndex] ld [wWhichSprite], a ld a, [wd337] ld b, a - ld a, [wd334] + ld a, [wPlayerDirection] add b farcall Func_12ab5 pop bc ret -Func_c5fe: ; c5fe (3:45fe) +AttemptPlayerMovementFromDirection: ; c5fe (3:45fe) push bc - call Func_c653 - call AttemptScriptedMovement + call FindPlayerMovementFromDirection + call AttemptPlayerMovement pop bc ret -StartScriptedMovement: ; c607 (3:4607) +StartScript_dMovement: ; c607 (3:4607) push bc - ld a, [wd336] + ld a, [wPlayerSpriteIndex] ld [wWhichSprite], a ld a, [wd339] - call FindScriptedMovementWithOffset - call AttemptScriptedMovement + call FindPlayerMovementWithOffset + call AttemptPlayerMovement pop bc ret ; bc is the location the player is being scripted to move towards. -AttemptScriptedMovement: ; c619 (3:4619) +AttemptPlayerMovement: ; c619 (3:4619) push hl push bc ld a, b @@ -783,9 +785,9 @@ AttemptScriptedMovement: ; c619 (3:4619) ld [wPlayerXCoord], a ld a, c ld [wPlayerYCoord], a - ld a, [wd335] ; I believe everything starting here is animation related. + ld a, [wPlayerCurrentlyMoving] ; I believe everything starting here is animation related. or $1 - ld [wd335], a + ld [wPlayerCurrentlyMoving], a ld a, $10 ld [wd338], a ld c, SPRITE_ANIM_FIELD_0F @@ -800,15 +802,15 @@ AttemptScriptedMovement: ; c619 (3:4619) pop hl ret -Func_c653: ; c653 (3:4653) - ld a, [wd334] +FindPlayerMovementFromDirection: ; c653 (3:4653) + ld a, [wPlayerDirection] -FindScriptedMovementWithOffset: ; c656 (3:4656) +FindPlayerMovementWithOffset: ; c656 (3:4656) rlca ld c, a ld b, $0 push hl - ld hl, ScriptedMovementOffsetTable + ld hl, PlayerMovementOffsetTable add hl, bc ld a, [wPlayerXCoord] add [hl] @@ -832,7 +834,7 @@ Func_c66c: ; c66c (3:466c) jr c, .asm_c67e inc c .asm_c67e - ld a, [wd334] + ld a, [wPlayerDirection] call Func_c694 pop bc pop hl @@ -876,7 +878,7 @@ Func_c694: ; c694 (3:4694) ld a, [wd338] or a jr nz, .asm_c6c3 - ld hl, wd335 + ld hl, wPlayerCurrentlyMoving set 1, [hl] .asm_c6c3 call Func_c41c @@ -903,20 +905,20 @@ Func_c6d4: ; c6d4 (3:46d4) Func_c6dc: ; c6dc (3:46dc) push hl - ld hl, wd335 + ld hl, wPlayerCurrentlyMoving res 0, [hl] res 1, [hl] call Func_c6f7 call Func_3997 call Func_c70d - ld a, [wd0bf] + ld a, [wOverworldMode] cp $1 call z, Func_c9c0 pop hl ret Func_c6f7: ; c6f7 (3:46f7) - ld a, [wd336] + ld a, [wPlayerSpriteIndex] ld [wWhichSprite], a ld c, SPRITE_ANIM_FIELD_0F call GetSpriteAnimBufferProperty @@ -929,7 +931,7 @@ Func_c6f7: ; c6f7 (3:46f7) Func_c70d: ; c70d (3:470d) push hl - ld hl, wd0bb + ld hl, wTempMap ld a, [wCurMap] cp [hl] jr z, .asm_c71c @@ -939,38 +941,40 @@ Func_c70d: ; c70d (3:470d) pop hl ret -Func_c71e: ; c71e (3:471e) +; Arrives here if A button is pressed when not moving + in map move state +FindNPCOrObject: ; c71e (3:471e) ld a, $ff - ld [wd3b6], a - call Func_c653 + ld [wScriptNPC], a + call FindPlayerMovementFromDirection call GetPermissionOfMapPosition and $40 - jr z, .asm_c73d - farcall Func_1c72e - jr c, .asm_c73d - ld a, [wd3aa] - ld [wd3b6], a - ld a, $2 - jr .asm_c748 -.asm_c73d - call Func_3a5e - jr nc, .asm_c746 - ld a, $3 - jr .asm_c748 -.asm_c746 + jr z, .noNPC + farcall FindNPCAtLocation + jr c, .noNPC + ld a, [wLoadedNPCTempIndex] + ld [wScriptNPC], a + ld a, OWMODE_START_SCRIPT + jr .changeStateExit + +.noNPC + call HandleMoveModeAPress + jr nc, .exit + ld a, OWMODE_SCRIPT + jr .changeStateExit +.exit or a ret -.asm_c748 - ld [wd0bf], a +.changeStateExit + ld [wOverworldMode], a scf ret -Func_c74d: ; c74d (3:474d) +OpenStartMenu: ; c74d (3:474d) push hl push bc push de call MainMenu_c75a - call CloseDialogueBox + call CloseAdvancedDialogueBox pop de pop bc pop hl @@ -1060,7 +1064,7 @@ PC_c7ea: ; c7ea (3:47ea) ld a, MUSIC_PC_MAIN_MENU call PlaySong call Func_c241 - call $4915 + call Func_c915 call DoFrameIfLCDEnabled ldtx hl, TurnedPCOnText call PrintScrollableText_NoTextBoxLabel @@ -1087,11 +1091,11 @@ PC_c7ea: ; c7ea (3:47ea) call Func_c32b jr .asm_c801 .asm_c82f - call Func_c135 + call CloseTextBox call DoFrameIfLCDEnabled ldtx hl, TurnedPCOffText call Func_c891 - call CloseDialogueBox + call CloseAdvancedDialogueBox xor a ld [wd112], a call Func_39fc @@ -1108,7 +1112,7 @@ Func_c891: ; c891 (3:4891) ld hl, wd3b9 ld a, [hli] or [hl] - call nz, Func_c135 + call nz, CloseTextBox .asm_c8a1 xor a @@ -1119,7 +1123,7 @@ Func_c891: ; c891 (3:4891) ld a, $1 call Func_c29b call Func_c241 - call $4915 + call Func_c915 call DoFrameIfLCDEnabled call PrintScrollableText_NoTextBoxLabel ret @@ -1141,7 +1145,7 @@ Func_c8ba: ; c8ba (3:48ba) jr z, .asm_c8d4 .asm_c8d1 - call Func_c135 + call CloseTextBox .asm_c8d4 ld hl, wd3b9 @@ -1152,20 +1156,20 @@ Func_c8ba: ; c8ba (3:48ba) ld a, $1 call Func_c29b call Func_c241 - call $4915 + call Func_c915 call DoFrameIfLCDEnabled call $2c62 ret ; 0xc8ed -Func_c8ed: ; c8ed (3:c8ed) +Func_c8ed: ; c8ed (3:48ed) push hl push bc push de push hl ld a, $1 call Func_c29b - call $4915 + call Func_c915 call DoFrameIfLCDEnabled pop hl ld a, l @@ -1200,22 +1204,23 @@ Func_c915: ; c915 (3:4915) pop bc ret -Func_c926: ; c926 (3:4926) +SetNextNPCAndScript: ; c926 (3:4926) push bc - call Func_39c3 - ld a, [wd3aa] - ld [wd3b6], a - farcall Func_1c768 + call FindLoadedNPC + ld a, [wLoadedNPCTempIndex] + ld [wScriptNPC], a + farcall SetNewScriptNPC pop bc +; fallthrough -Func_c935: ; c935 (3:4935) +SetNextScript: ; c935 (3:4935) push hl - ld hl, wd0c6 + ld hl, wNextScript ld [hl], c inc hl ld [hl], b ld a, $3 - ld [wd0bf], a + ld [wOverworldMode], a pop hl ret @@ -1223,51 +1228,51 @@ Func_c943: ; c943 (3:4943) push hl push bc push de - ld l, $0 - call Func_3abd - jr nc, .asm_c98f -.asm_c94d + ld l, MAP_SCRIPT_NPCS + call GetMapScriptPointer + jr nc, .quit +.loadNPCLoop ld a, l - ld [wd4c4], a + ld [wTempPointer], a ld a, h - ld [wd4c5], a - ld a, $4 - ld [wd4c6], a - ld de, wd3ab - ld bc, $0006 - call Func_3bf5 - ld a, [wd3ab] + ld [wTempPointer + 1], a + ld a, BANK(MapScripts) + ld [wTempPointerBank], a + ld de, wTempNPC + ld bc, NPC_MAP_SIZE + call CopyBankedDataToDE + ld a, [wTempNPC] or a - jr z, .asm_c98f + jr z, .quit push hl - ld a, [wd3af] + ld a, [wLoadNPCFunction] ld l, a - ld a, [wd3b0] + ld a, [wLoadNPCFunction+1] ld h, a or l - jr z, .asm_c97a + jr z, .noScript call CallHL2 - jr nc, .asm_c988 -.asm_c97a - ld a, [wd3ab] - farcall Func_11857 + jr nc, .nextNPC +.noScript + ld a, [wTempNPC] + farcall LoadNPCSpriteData call Func_c998 farcall Func_1c485 -.asm_c988 +.nextNPC pop hl - ld bc, $0006 + ld bc, NPC_MAP_SIZE add hl, bc - jr .asm_c94d -.asm_c98f - ld l, $2 - call Func_c9c2 + jr .loadNPCLoop +.quit + ld l, MAP_SCRIPT_POST_NPC + call CallMapScriptPointerIfExists pop de pop bc pop hl ret Func_c998: ; c998 (3:4998) - ld a, [wd3ab] + ld a, [wTempNPC] cp $22 ret nz ld a, [wd3d0] @@ -1286,24 +1291,24 @@ Func_c998: ; c998 (3:4998) ret Func_c9b8: ; c9b8 (3:49b8) - ld l, $8 - jr Func_c9c2 + ld l, MAP_SCRIPT_LOAD_MAP + jr CallMapScriptPointerIfExists Func_c9bc: ; c9bc (3:49bc) - ld l, $a - jr Func_c9c2 + ld l, MAP_SCRIPT_AFTER_DUEL + jr CallMapScriptPointerIfExists Func_c9c0: ; c9c0 (3:49c0) - ld l, $c + ld l, MAP_SCRIPT_MOVED_PLAYER -Func_c9c2: ; c9c2 (3:49c2) - call Func_3abd +CallMapScriptPointerIfExists: ; c9c2 (3:49c2) + call GetMapScriptPointer ret nc jp hl Func_c9c7: ; c9c7 (3:49c7) - ld l, $e - jr Func_c9c2 + ld l, MAP_SCRIPT_CLOSE_TEXTBOX + jr CallMapScriptPointerIfExists Func_c9cb: ; c9cb (3:49cb) push hl @@ -1321,48 +1326,50 @@ Func_c9cb: ; c9cb (3:49cb) pop hl ret +; Clears temporary flags before determining Imakuni Room Func_c9dd: ; c9dd (3:49dd) xor a - ld [wd411], a - call Func_c9e8 + ld [wEventFlags + EVENT_FLAG_BYTES - 1], a + call DetermineImakuniRoom call Func_ca0e ret -Func_c9e8: ; c9e8 (3:49e8) +; Determines what room Imakuni is in when you reset +; Skips current room and does not occur if you haven't talked to Imakuni +DetermineImakuniRoom: ; c9e8 (3:49e8) ld c, $0 - call Func_ca69 - db $13 - cp $2 - jr c, .asm_ca04 -.asm_c9f2 + get_flag_value EVENT_IMAKUNI_STATE + cp IMAKUNI_TALKED + jr c, .finish +.tryLoadImakuniLoop call UpdateRNGSources and $3 ld c, a ld b, $0 - ld hl, Unknown_ca0a + ld hl, ImakuniPossibleRooms add hl, bc - ld a, [wd0bb] + ld a, [wTempMap] cp [hl] - jr z, .asm_c9f2 -.asm_ca04 + jr z, .tryLoadImakuniLoop +.finish ld a, c - call Func_ca8f - db $34 + set_flag_value EVENT_IMAKUNI_ROOM ret -Unknown_ca0a: ; ca0a (3:4a04) - INCROM $ca0a, $ca0e +ImakuniPossibleRooms: ; ca0a (3:4a04) + db FIGHTING_CLUB_LOBBY + db SCIENCE_CLUB_LOBBY + db LIGHTNING_CLUB_LOBBY + db WATER_CLUB_LOBBY Func_ca0e: ; ca0e (3:4a0e) ld a, [wd32e] cp $b jr z, .asm_ca68 - call Func_ca69 - db $22 + get_flag_value EVENT_RECEIVED_LEGENDARY_CARD or a jr nz, .asm_ca4a - call Func_ca69 - db $40 + get_flag_value EVENT_FLAG_40 cp $7 jr z, .asm_ca68 or a @@ -1370,12 +1377,10 @@ Func_ca0e: ; ca0e (3:4a0e) cp $2 jr z, .asm_ca62 ld c, $1 - call Func_ca8f - db $40 + set_flag_value EVENT_FLAG_40 jr .asm_ca62 .asm_ca33 - call Func_ca69 - db $3f + get_flag_value EVENT_FLAG_3F cp $7 jr z, .asm_ca68 or a @@ -1383,8 +1388,7 @@ Func_ca0e: ; ca0e (3:4a0e) cp $2 jr z, .asm_ca68 ld c, $1 - call Func_ca8f - db $3f + set_flag_value EVENT_FLAG_3F jr .asm_ca68 .asm_ca4a call UpdateRNGSources @@ -1394,35 +1398,36 @@ Func_ca0e: ; ca0e (3:4a0e) jr z, .asm_ca56 ld c, $0 .asm_ca56 - call Func_ca8f - db $41 + set_flag_value EVENT_FLAG_41 jr .asm_ca5c .asm_ca5c ld c, $7 - call Func_ca8f - db $40 + set_flag_value EVENT_FLAG_40 .asm_ca62 ld c, $7 - call Func_ca8f - db $3f + set_flag_value EVENT_FLAG_3F .asm_ca68 ret -Func_ca69: ; ca69 (3:4a69) - call Func_cab3 -CheckIfEventFlagSet: ; ca6c (3:4a6c) +GetStackFlagValue: ; ca69 (3:4a69) + call GetByteAfterCall +; fallthrough + +; returns the event flag's value in a +; also ors it with itself before returning +GetEventFlagValue: ; ca6c (3:4a6c) push hl push bc - call GetEventFlagMod + call GetEventFlag ld c, [hl] - ld a, [wd3d1] -.asm_ca75 + ld a, [wLoadedFlagBits] +.shiftLoop bit 0, a - jr nz, .asm_ca7f + jr nz, .lsbReached srl a srl c - jr .asm_ca75 -.asm_ca7f + jr .shiftLoop +.lsbReached and c pop bc pop hl @@ -1430,17 +1435,27 @@ CheckIfEventFlagSet: ; ca6c (3:4a6c) ret ; 0xca84 - INCROM $ca84, $ca8f +ZeroStackFlagValue2: ; ca84 (3:4a84) + call GetByteAfterCall + push bc + ld c, $00 + call SetEventFlagValue + pop bc + ret -Func_ca8f: ; ca8f (3:4a8f) - call Func_cab3 +; Use macro set_flag_value. The byte db'd after this func is called +; is used at the flag argument for SetEventFlagValue +SetStackFlagValue: ; ca8f (3:4a8f) + call GetByteAfterCall +; fallthrough -; a - pointer on table for cb1d, c - set or reset control bit -ModifyEventFlags: ; ca92 (3:4a92) +; a - flag +; c - value - truncated to fit only the flag's bounds +SetEventFlagValue: ; ca92 (3:4a92) push hl push bc - call GetEventFlagMod - ld a, [wd3d1] + call GetEventFlag + ld a, [wLoadedFlagBits] .asm_ca9a bit 0, a jr nz, .asm_caa4 @@ -1448,10 +1463,10 @@ ModifyEventFlags: ; ca92 (3:4a92) sla c jr .asm_ca9a .asm_caa4 - ld a, [wd3d1] + ld a, [wLoadedFlagBits] and c ld c, a - ld a, [wd3d1] + ld a, [wLoadedFlagBits] cpl and [hl] or c @@ -1460,7 +1475,8 @@ ModifyEventFlags: ; ca92 (3:4a92) pop hl ret -Func_cab3: ; cab3 (3:4ab3) +; returns in a the byte db'd after the call to a function that calls this +GetByteAfterCall: ; cab3 (3:4ab3) push hl ld hl, sp+$4 push bc @@ -1477,73 +1493,86 @@ Func_cab3: ; cab3 (3:4ab3) ret ; 0xcac2 - INCROM $cac2, $cac5 +MaxStackFlagValue: ; cac2 (3:4ac2) + call GetByteAfterCall +; fallthrough -SetEventFlags: ; cac5 (3:4ac5) +MaxOutEventFlag: ; cac5 (3:4ac5) push bc ld c, $ff - call ModifyEventFlags + call SetEventFlagValue pop bc ret ; 0xcacd - INCROM $cacd, $cad0 +ZeroStackFlagValue: ; cacd (3:4acd) + call GetByteAfterCall +; fallthrough -Func_cad0: ; cad0 (3:4ad0) +ZeroOutEventFlag: ; cad0 (3:4ad0) push bc ld c, $0 - call ModifyEventFlags + call SetEventFlagValue pop bc ret -Func_cad8: ; cad8 (3:4ad8) +TryGiveMedalPCPacks: ; cad8 (3:4ad8) push hl push bc - ld hl, $4b15 + ld hl, MedalEventFlags ld bc, $0008 -.asm_cae0 +.countMedalsLoop ld a, [hli] - call CheckIfEventFlagSet - jr z, .asm_cae7 + call GetEventFlagValue + jr z, .noMedal inc b - -.asm_cae7 +.noMedal dec c - jr nz, .asm_cae0 + jr nz, .countMedalsLoop + ld c, b - call Func_ca8f - ld l, $79 + set_flag_value EVENT_MEDAL_COUNT + ld a, c push af cp $8 - jr nc, .asm_caff + jr nc, .givePacksForEightMedals cp $7 - jr nc, .asm_cb05 + jr nc, .givePacksForSevenMedals cp $3 - jr nc, .asm_cb0b - jr .asm_cb11 + jr nc, .givePacksForTwoMedals + jr .finish -.asm_caff +.givePacksForEightMedals ld a, $c - farcall $4, $4a70 + farcall TryGivePCPack -.asm_cb05 +.givePacksForSevenMedals ld a, $b - farcall $4, $4a70 + farcall TryGivePCPack -.asm_cb0b +.givePacksForTwoMedals ld a, $a - farcall $4, $4a70 + farcall TryGivePCPack -.asm_cb11 +.finish pop af pop bc pop hl ret ; 0xcb15 - INCROM $cb15, $cb1d - -GetEventFlagMod: ; cb1d (3:4b1d) +MedalEventFlags: ; cb15 (3:4b15) + db EVENT_FLAG_08 + db EVENT_FLAG_09 + db EVENT_FLAG_0A + db EVENT_BEAT_AMY + db EVENT_FLAG_0C + db EVENT_FLAG_0D + db EVENT_FLAG_0E + db EVENT_FLAG_0F + +; returns wEventFlags byte in hl, related bits in wLoadedFlagBits +GetEventFlag: ; cb1d (3:4b1d) push bc ld c, a ld b, $0 @@ -1554,7 +1583,7 @@ GetEventFlagMod: ; cb1d (3:4b1d) ld a, [hli] ld c, a ld a, [hl] - ld [wd3d1], a + ld [wLoadedFlagBits], a ld b, $0 ld hl, wEventFlags add hl, bc @@ -1563,11 +1592,139 @@ GetEventFlagMod: ; cb1d (3:4b1d) ; offset - bytes to set or reset EventFlagMods: ; cb37 (3:4b37) - INCROM $cb37, $cc32 + flag_def $3f, %10000000 ; EVENT_FLAG_00 ; 0-7 are reset when game resets + flag_def $3f, %01000000 ; EVENT_FLAG_01 + flag_def $3f, %00100000 ; EVENT_TEMP_TALKED_TO_IMAKUNI + flag_def $3f, %00010000 ; EVENT_TEMP_BATTLED_IMAKUNI + flag_def $3f, %00001000 ; EVENT_FLAG_04 + flag_def $3f, %00000100 ; EVENT_FLAG_05 + flag_def $3f, %00000010 ; EVENT_FLAG_06 + flag_def $3f, %00000001 ; EVENT_FLAG_07 + flag_def $00, %10000000 ; EVENT_FLAG_08 + flag_def $00, %01000000 ; EVENT_FLAG_09 + flag_def $00, %00100000 ; EVENT_FLAG_0A + flag_def $00, %00010000 ; EVENT_BEAT_AMY + flag_def $00, %00001000 ; EVENT_FLAG_0C + flag_def $00, %00000100 ; EVENT_FLAG_0D + flag_def $00, %00000010 ; EVENT_FLAG_0E + flag_def $00, %00000001 ; EVENT_FLAG_0F + flag_def $00, %11111111 ; EVENT_FLAG_10 + flag_def $01, %11110000 ; EVENT_FLAG_11 + flag_def $01, %00001111 ; EVENT_FLAG_12 + flag_def $02, %11000000 ; EVENT_IMAKUNI_STATE + flag_def $02, %00110000 ; EVENT_FLAG_14 + flag_def $02, %00001000 ; EVENT_BEAT_SARA + flag_def $02, %00000100 ; EVENT_BEAT_AMANDA + flag_def $03, %11110000 ; EVENT_FLAG_17 + flag_def $03, %00001111 ; EVENT_FLAG_18 + flag_def $04, %11110000 ; EVENT_FLAG_19 + flag_def $04, %00001111 ; EVENT_FLAG_1A + flag_def $05, %10000000 ; EVENT_FLAG_1B + flag_def $05, %01000000 ; EVENT_FLAG_1C + flag_def $05, %00100000 ; EVENT_FLAG_1D + flag_def $05, %00010000 ; EVENT_FLAG_1E + flag_def $05, %00001111 ; EVENT_FLAG_1F + flag_def $06, %11110000 ; EVENT_FLAG_20 + flag_def $06, %00001100 ; EVENT_FLAG_21 + flag_def $06, %00000010 ; EVENT_RECEIVED_LEGENDARY_CARD + flag_def $06, %00000001 ; EVENT_FLAG_23 + flag_def $07, %11000000 ; EVENT_FLAG_24 + flag_def $07, %00100000 ; EVENT_FLAG_25 + flag_def $07, %00010000 ; EVENT_FLAG_26 + flag_def $07, %00001000 ; EVENT_FLAG_27 + flag_def $07, %00000100 ; EVENT_FLAG_28 + flag_def $07, %00000010 ; EVENT_FLAG_29 + flag_def $07, %00000001 ; EVENT_FLAG_2A + flag_def $08, %11111111 ; EVENT_FLAG_2B + flag_def $09, %11100000 ; EVENT_FLAG_2C + flag_def $09, %00011111 ; EVENT_FLAG_2D + flag_def $0a, %11110000 ; EVENT_MEDAL_COUNT + flag_def $0a, %00001000 ; EVENT_FLAG_2F + flag_def $0a, %00000100 ; EVENT_FLAG_30 + flag_def $0a, %00000011 ; EVENT_FLAG_31 + flag_def $0b, %10000000 ; EVENT_FLAG_32 + flag_def $0b, %01110000 ; EVENT_JOSHUA_STATE + flag_def $0b, %00001100 ; EVENT_IMAKUNI_ROOM + flag_def $0b, %00000011 ; EVENT_FLAG_35 + flag_def $0c, %11100000 ; EVENT_IMAKUNI_WIN_COUNT + flag_def $0c, %00011100 ; EVENT_FLAG_37 + flag_def $0c, %00000010 ; EVENT_FLAG_38 + flag_def $0c, %00000001 ; EVENT_FLAG_39 + flag_def $0d, %10000000 ; EVENT_FLAG_3A + flag_def $0d, %01000000 ; EVENT_FLAG_3B + flag_def $0d, %00100000 ; FLAG_BEAT_BRITTANY + flag_def $0d, %00010000 ; EVENT_FLAG_3D + flag_def $0d, %00001110 ; EVENT_FLAG_3E + flag_def $0e, %11100000 ; EVENT_FLAG_3F + flag_def $0e, %00011100 ; EVENT_FLAG_40 + flag_def $0f, %11100000 ; EVENT_FLAG_41 + flag_def $10, %10000000 ; EVENT_FLAG_42 + flag_def $10, %01000000 ; EVENT_FLAG_43 + flag_def $10, %00110000 ; EVENT_FLAG_44 + flag_def $10, %00001100 ; EVENT_FLAG_45 + flag_def $10, %00000010 ; EVENT_FLAG_46 + flag_def $10, %00000001 ; EVENT_FLAG_47 + flag_def $11, %11100000 ; EVENT_FLAG_48 + flag_def $11, %00011100 ; EVENT_FLAG_49 + flag_def $12, %11100000 ; EVENT_FLAG_4A + flag_def $13, %10000000 ; EVENT_FLAG_4B + flag_def $13, %01100000 ; EVENT_FLAG_4C + flag_def $13, %00011000 ; EVENT_FLAG_4D + flag_def $13, %00000100 ; EVENT_FLAG_4E + flag_def $13, %00000010 ; EVENT_FLAG_4F + flag_def $14, %10000000 ; EVENT_FLAG_50 + flag_def $14, %01000000 ; EVENT_FLAG_51 + flag_def $14, %00100000 ; EVENT_FLAG_52 + flag_def $14, %00010000 ; EVENT_FLAG_53 + flag_def $14, %00001000 ; EVENT_FLAG_54 + flag_def $14, %00000100 ; EVENT_FLAG_55 + flag_def $14, %00000010 ; EVENT_FLAG_56 + flag_def $14, %00000001 ; EVENT_FLAG_57 + flag_def $15, %11110000 ; EVENT_FLAG_58 + flag_def $15, %00001000 ; EVENT_FLAG_59 + flag_def $16, %10000000 ; EVENT_FLAG_5A + flag_def $16, %01000000 ; EVENT_FLAG_5B + flag_def $16, %00100000 ; EVENT_FLAG_5C + flag_def $16, %00010000 ; EVENT_FLAG_5D + flag_def $16, %00001000 ; EVENT_FLAG_5E + flag_def $16, %00000100 ; EVENT_FLAG_5F + flag_def $16, %00000010 ; EVENT_FLAG_60 + flag_def $16, %00000001 ; EVENT_FLAG_61 + flag_def $16, %11111111 ; EVENT_FLAG_62 + flag_def $17, %10000000 ; EVENT_FLAG_63 + flag_def $17, %01000000 ; EVENT_FLAG_64 + flag_def $17, %00110000 ; EVENT_FLAG_65 + flag_def $17, %00001000 ; EVENT_FLAG_66 + flag_def $17, %00000100 ; EVENT_FLAG_67 + flag_def $18, %11000000 ; EVENT_FLAG_68 + flag_def $18, %00110000 ; EVENT_FLAG_69 + flag_def $18, %00001100 ; EVENT_FLAG_6A + flag_def $18, %00000011 ; EVENT_FLAG_6B + flag_def $19, %11000000 ; EVENT_FLAG_6C + flag_def $19, %00100000 ; EVENT_FLAG_6D + flag_def $19, %00010000 ; EVENT_FLAG_6E + flag_def $19, %00001000 ; EVENT_FLAG_6F + flag_def $19, %00000100 ; EVENT_FLAG_70 + flag_def $19, %00111100 ; EVENT_FLAG_71 + flag_def $1a, %11111100 ; EVENT_FLAG_72 + flag_def $1a, %00000011 ; EVENT_FLAG_73 + flag_def $1b, %11111111 ; EVENT_FLAG_74 + flag_def $1c, %11110000 ; EVENT_FLAG_75 + flag_def $1c, %00001111 ; EVENT_FLAG_76 + +; Used for basic level objects that just print text and quit +PrintInteractableObjectText: ; cc25 (3:4c25) + ld hl, wDefaultObjectText + ld a, [hli] + ld h, [hl] + ld l, a + call Func_cc32 + call CloseAdvancedDialogueBox + ret Func_cc32: ; cc32 (3:4c32) push hl - ld hl, wd0c8 + ld hl, wCurrentNPCNameTx ld e, [hl] inc hl ld d, [hl] @@ -1575,74 +1732,76 @@ Func_cc32: ; cc32 (3:4c32) call Func_c8ba ret -Clerk10NPCScript: ; cc3e (3:4c3e) -Clerk11NPCScript: ; cc3e (3:4c3e) -Woman2NPCScript: ; cc3e (3:4c3e) -TorchNPCScript: ; cc3e (3:4c3e) -LegendaryCardTopLeftNPCScript: ; cc3e (3:4c3e) -LegendaryCardTopRightNPCScript: ; cc3e (3:4c3e) -LegendaryCardBottomLeftNPCScript: ; cc3e (3:4c3e) -LegendaryCardBottomCenterLeftNPCScript: ; cc3e (3:4c3e) -LegendaryCardBottomCenterRightNPCScript: ; cc3e (3:4c3e) -LegendaryCardBottomRightNPCScript: ; cc3e (3:4c3e) - call CloseDialogueBox +; Used for things that are represented as NPCs but don't have a Script +; EX: Clerks and legendary cards that interact through Level Objects +Script_Clerk10: ; cc3e (3:4c3e) +Script_GiftCenterClerk: ; cc3e (3:4c3e) +Script_Woman2: ; cc3e (3:4c3e) +Script_Torch: ; cc3e (3:4c3e) +Script_LegendaryCardTopLeft: ; cc3e (3:4c3e) +Script_LegendaryCardTopRight: ; cc3e (3:4c3e) +Script_LegendaryCardLeftSpark: ; cc3e (3:4c3e) +Script_LegendaryCardBottomLeft: ; cc3e (3:4c3e) +Script_LegendaryCardBottomRight: ; cc3e (3:4c3e) +Script_LegendaryCardRightSpark: ; cc3e (3:4c3e) + call CloseAdvancedDialogueBox ret -; called when pressing a in front of an object. creates a pointer to the data right after an RST20 -; was called, then runs RunOverworldScript to handle that data +; Enters into the script loop, continuing until wBreakScriptLoop > 0 +; When the loop is broken, it resumes normal code execution where script ended +; Note: Some scripts "double return" and skip this. RST20: ; cc42 (3:4c42) pop hl ld a, l - ld [wOWScriptPointer], a + ld [wScriptPointer], a ld a, h - ld [wOWScriptPointer+1], a + ld [wScriptPointer+1], a xor a - ld [wBreakOWScriptLoop], a -.asm_cc4f + ld [wBreakScriptLoop], a +.continueScriptLoop call RunOverworldScript - ld a, [wBreakOWScriptLoop] ; if you break out, it jumps + ld a, [wBreakScriptLoop] ; if you break out, it jumps or a - jr z, .asm_cc4f - ld hl, wOWScriptPointer + jr z, .continueScriptLoop + ld hl, wScriptPointer ld a, [hli] ld c, a ld b, [hl] - push bc - ret + retbc -IncreaseOWScriptPointerBy1: ; cc60 (3:4c60) +IncreaseScriptPointerBy1: ; cc60 (3:4c60) ld a, 1 - jr IncreaseOWScriptPointer -IncreaseOWScriptPointerBy2: ; cc64 (3:4c64) + jr IncreaseScriptPointer +IncreaseScriptPointerBy2: ; cc64 (3:4c64) ld a, 2 - jr IncreaseOWScriptPointer -IncreaseOWScriptPointerBy4: ; cc68 (3:4c68) + jr IncreaseScriptPointer +IncreaseScriptPointerBy4: ; cc68 (3:4c68) ld a, 4 - jr IncreaseOWScriptPointer -IncreaseOWScriptPointerBy5: ; cc6c (3:4c6c) + jr IncreaseScriptPointer +IncreaseScriptPointerBy5: ; cc6c (3:4c6c) ld a, 5 - jr IncreaseOWScriptPointer -IncreaseOWScriptPointerBy6: ; cc70 (3:4c70) + jr IncreaseScriptPointer +IncreaseScriptPointerBy6: ; cc70 (3:4c70) ld a, 6 - jr IncreaseOWScriptPointer -IncreaseOWScriptPointerBy7: ; cc74 (3:4c74) + jr IncreaseScriptPointer +IncreaseScriptPointerBy7: ; cc74 (3:4c74) ld a, 7 - jr IncreaseOWScriptPointer -IncreaseOWScriptPointerBy3: ; cc78 (3:4c78) + jr IncreaseScriptPointer +IncreaseScriptPointerBy3: ; cc78 (3:4c78) ld a, 3 -IncreaseOWScriptPointer: ; cc7a (3:4c7a) +IncreaseScriptPointer: ; cc7a (3:4c7a) ld c, a - ld a, [wOWScriptPointer] + ld a, [wScriptPointer] add c - ld [wOWScriptPointer], a - ld a, [wOWScriptPointer+1] + ld [wScriptPointer], a + ld a, [wScriptPointer+1] adc 0 - ld [wOWScriptPointer+1], a + ld [wScriptPointer+1], a ret -SetOWScriptPointer: ; cc8b (3:4c8b) - ld hl, wOWScriptPointer +SetScriptPointer: ; cc8b (3:4c8b) + ld hl, wScriptPointer ld [hl], c inc hl ld [hl], b @@ -1651,23 +1810,23 @@ SetOWScriptPointer: ; cc8b (3:4c8b) INCROM $cc92, $cc96 -GetOWSArgs1AfterPointer: ; cc96 (3:4c96) +GetScriptArgs1AfterPointer: ; cc96 (3:4c96) ld a, $1 - jr GetOWSArgsAfterPointer + jr GetScriptArgsAfterPointer -GetOWSArgs2AfterPointer: ; cc9a (3:4c9a) +GetScriptArgs2AfterPointer: ; cc9a (3:4c9a) ld a, $2 - jr GetOWSArgsAfterPointer -GetOWSArgs3AfterPointer: ; cc9e (3:4c9e) + jr GetScriptArgsAfterPointer +GetScriptArgs3AfterPointer: ; cc9e (3:4c9e) ld a, $3 -GetOWSArgsAfterPointer: ; cca0 (3:4ca0) +GetScriptArgsAfterPointer: ; cca0 (3:4ca0) push hl ld l, a - ld a, [wOWScriptPointer] + ld a, [wScriptPointer] add l ld l, a - ld a, [wOWScriptPointer+1] + ld a, [wScriptPointer+1] adc $0 ld h, a ld a, [hli] @@ -1677,79 +1836,82 @@ GetOWSArgsAfterPointer: ; cca0 (3:4ca0) or b ret -Func_ccb3: ; ccb3 (3:4cb3) +SetScriptControlBytePass: ; ccb3 (3:4cb3) ld a, $ff - ld [wd415], a + ld [wScriptControlByte], a ret -Func_ccb9: ; ccb9 (3:4cb9) +SetScriptControlByteFail: ; ccb9 (3:4cb9) xor a - ld [wd415], a - ret - -OWScript_EndScriptLoop1: ; ccbe (3:4cbe) -OWScript_EndScriptLoop2: ; ccbe (3:4cbe) -OWScript_EndScriptLoop3: ; ccbe (3:4cbe) -OWScript_EndScriptLoop4: ; ccbe (3:4cbe) -OWScript_EndScriptLoop5: ; ccbe (3:4cbe) -OWScript_EndScriptLoop6: ; ccbe (3:4cbe) -OWScript_EndScriptLoop7: ; ccbe (3:4cbe) -OWScript_EndScriptLoop8: ; ccbe (3:4cbe) -OWScript_EndScriptLoop9: ; ccbe (3:4cbe) -OWScript_EndScriptLoop10: ; ccbe (3:4cbe) + ld [wScriptControlByte], a + ret + +; Exits Script mode and runs the next instruction like normal +ScriptCommand_EndScriptLoop1: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop2: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop3: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop4: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop5: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop6: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop7: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop8: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop9: ; ccbe (3:4cbe) +ScriptCommand_EndScriptLoop10: ; ccbe (3:4cbe) ld a, $01 - ld [wBreakOWScriptLoop], a - jp IncreaseOWScriptPointerBy1 + ld [wBreakScriptLoop], a + jp IncreaseScriptPointerBy1 -OWScript_CloseTextBox: ; ccc6 (3:4cc6) - call CloseDialogueBox - jp IncreaseOWScriptPointerBy1 +ScriptCommand_CloseAdvancedTextBox: ; ccc6 (3:4cc6) + call CloseAdvancedDialogueBox + jp IncreaseScriptPointerBy1 -OWScript_EndScriptCloseText: ; cccc (3:4ccc) - call OWScript_CloseTextBox - call OWScript_EndScriptLoop1 +ScriptCommand_QuitScriptFully: ; cccc (3:4ccc) + call ScriptCommand_CloseAdvancedTextBox + call ScriptCommand_EndScriptLoop1 pop hl ret ; args: 2-Text String Index -OWScript_PrintTextString: ; ccd4 (3:4cd4) +ScriptCommand_PrintTextString: ; ccd4 (3:4cd4) ld l, c ld h, b call Func_cc32 - jp IncreaseOWScriptPointerBy3 + jp IncreaseScriptPointerBy3 Func_ccdc: ; ccdc (3:4cdc) ld l, c ld h, b call Func_c891 - jp IncreaseOWScriptPointerBy3 + jp IncreaseScriptPointerBy3 -Func_cce4: ; cce4 (3:4ce4) +ScriptCommand_AskQuestionJumpDefaultYes: ; cce4 (3:4ce4) ld a, $1 ld [wDefaultYesOrNo], a +; fallthrough -; Asks the player a question then jumps if they answer yes -OWScript_AskQuestionJump: ; cce9 (3:4ce9) +; Asks the player a question then jumps if they answer yes. Seem to be able to +; take a text of 0000 to overwrite last with (yes no) prompt at the bottom +ScriptCommand_AskQuestionJump: ; cce9 (3:4ce9) ld l, c ld h, b call Func_c8ed ld a, [hCurMenuItem] - ld [wd415], a + ld [wScriptControlByte], a jr c, .asm_ccfe - call GetOWSArgs3AfterPointer + call GetScriptArgs3AfterPointer jr z, .asm_ccfe - jp SetOWScriptPointer + jp SetScriptPointer .asm_ccfe - jp IncreaseOWScriptPointerBy5 + jp IncreaseScriptPointerBy5 ; args - prize cards, deck id, duel theme index ; sets a battle up, doesn't start until we break out of the script system. -OWScript_StartBattle: ; cd01 (3:4d01) +ScriptCommand_StartBattle: ; cd01 (3:4d01) call Func_cd66 - ld a, [wd3b6] - ld l, $0 - call Func_39ad + ld a, [wScriptNPC] + ld l, LOADED_NPC_ID + call GetItemInLoadedNPCIndex ld a, [hl] farcall Func_118d3 ld a, [wcc19] @@ -1758,14 +1920,14 @@ OWScript_StartBattle: ; cd01 (3:4d01) ld a, [wd695] ld c, a ld b, $0 - ld hl, $4d63 + ld hl, AaronDeckIDs add hl, bc ld a, [hl] ld [wcc19], a .asm_cd26 - ld a, [wd3b6] - ld l, $0 - call Func_39ad + ld a, [wScriptNPC] + ld l, LOADED_NPC_ID + call GetItemInLoadedNPCIndex ld a, [hl] asm_cd2f ld [wd0c4], a @@ -1779,7 +1941,7 @@ asm_cd2f ld [wGameEvent], a ld hl, wd0b4 set 6, [hl] - jp IncreaseOWScriptPointerBy4 + jp IncreaseScriptPointerBy4 Func_cd4f: ; cd4f (3:4d4f) call Func_cd66 @@ -1790,15 +1952,17 @@ Func_cd4f: ; cd4f (3:4d4f) ld a, [wd696] jr asm_cd2f -Unknown_dd63: ; cd4f (3:4d4f) - INCROM $cd63, $cd66 +AaronDeckIDs: ; cd63 (3:4d63) + db LIGHTNING_AND_FIRE_DECK_ID + db WATER_AND_FIGHTING_DECK_ID + db GRASS_AND_PSYCHIC_DECK_ID Func_cd66: ; cd66 (3:4d66) ld a, c ld [wcc18], a ld a, b ld [wcc19], a - call GetOWSArgs3AfterPointer + call GetScriptArgs3AfterPointer ld a, c ld [wDuelTheme], a ret @@ -1808,103 +1972,106 @@ Func_cd76: ; cd76 (3:4d76) ld [wGameEvent], a ld hl, wd0b4 set 6, [hl] - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -Func_cd83: ; cd83 (3:4d83) - ld a, [wd415] +; prints text arg 1 or arg 2 depending on wScriptControlByte. +ScriptCommand_PrintVariableText: ; cd83 (3:4d83) + ld a, [wScriptControlByte] or a - jr nz, .asm_cd8c - call GetOWSArgs3AfterPointer -.asm_cd8c + jr nz, .printText + call GetScriptArgs3AfterPointer +.printText ld l, c ld h, b call Func_cc32 - jp IncreaseOWScriptPointerBy5 + jp IncreaseScriptPointerBy5 Func_cd94: ; cd94 (3:4d94) - call Func_ca69 - ld b, h + get_flag_value EVENT_FLAG_44 Unknown_cd98: dec a and $3 add a inc a - call GetOWSArgsAfterPointer + call GetScriptArgsAfterPointer ld l, c ld h, b call Func_cc32 - jp IncreaseOWScriptPointerBy7 + jp IncreaseScriptPointerBy7 Func_cda8: ; cda8 (3:4da8) - ld a, [wd415] + ld a, [wScriptControlByte] or a jr nz, .asm_cdb1 - call GetOWSArgs3AfterPointer + call GetScriptArgs3AfterPointer .asm_cdb1 ld l, c ld h, b call Func_c891 - jp IncreaseOWScriptPointerBy5 + jp IncreaseScriptPointerBy5 -OWScript_PrintTextCloseBox: ; cdb9 (3:4db9) +; Does not return to RST20 - pops an extra time to skip that. +ScriptCommand_PrintTextQuitFully: ; cdb9 (3:4db9) ld l, c ld h, b call Func_cc32 - call CloseDialogueBox + call CloseAdvancedDialogueBox ld a, $1 - ld [wBreakOWScriptLoop], a - call IncreaseOWScriptPointerBy3 + ld [wBreakScriptLoop], a + call IncreaseScriptPointerBy3 pop hl ret Func_cdcb: ; cdcb (3:4dcb) - ld a, [wd3b6] - ld [wd3aa], a + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a Func_cdd1: ; cdd1 (3:4dd1) farcall Func_1c50a - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 Func_cdd8: ; cdd8 (3:4dd8) - ld a, [wd3aa] + ld a, [wLoadedNPCTempIndex] push af - ld a, [wd3ab] + ld a, [wTempNPC] push af ld a, [wd696] - ld [wd3ab], a - call Func_39c3 + ld [wTempNPC], a + call FindLoadedNPC call Func_cdd1 pop af - ld [wd3ab], a + ld [wTempNPC], a pop af - ld [wd3aa], a + ld [wLoadedNPCTempIndex], a ret Func_cdf5: ; cdf5 (3:4df5) - ld a, [wd3aa] + ld a, [wLoadedNPCTempIndex] push af - ld a, [wd3ab] + ld a, [wTempNPC] push af ld a, [wd696] - ld [wd3ab], a + ld [wTempNPC], a ld a, c - ld [wd3ac], a + ld [wLoadNPCXPos], a ld a, b - ld [wd3ad], a + ld [wLoadNPCYPos], a ld a, $2 - ld [wd3ae], a - ld a, [wd3ab] - farcall Func_11857 + ld [wLoadNPCDirection], a + ld a, [wTempNPC] + farcall LoadNPCSpriteData farcall Func_1c485 pop af - ld [wd3ab], a + ld [wTempNPC], a pop af - ld [wd3aa], a - jp IncreaseOWScriptPointerBy3 - -Func_ce26: ; ce26 (3:4e26) - ld a, [wd3b6] - ld [wd3aa], a - farcall Func_1c455 + ld [wLoadedNPCTempIndex], a + jp IncreaseScriptPointerBy3 + +; Finds and executes an NPCMovement script in the table provided in bc +; based on the active NPC's current direction +ScriptCommand_MoveActiveNPCByDirection: ; ce26 (3:4e26) + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a + farcall GetNPCDirection rlca add c ld l, a @@ -1914,56 +2081,67 @@ Func_ce26: ; ce26 (3:4e26) ld c, [hl] inc hl ld b, [hl] +; fallthrough -Func_ce3a: ; ce3a (3:4e3a) +; Moves an NPC given the list of directions pointed to by bc +; set bit 7 to only rotate the NPC +ExecuteNPCMovement: ; ce3a (3:4e3a) farcall Func_1c78d .asm_ce3e call DoFrameIfLCDEnabled farcall Func_1c7de jr nz, .asm_ce3e - jp IncreaseOWScriptPointerBy3 - -Func_ce4a: ; ce4a (3:4e4a) - ld a, [wd3b6] - ld [wd3aa], a - jr Func_ce3a - -Func_ce52: ; ce52 (3:4e52) - ld a, [wd3aa] + jp IncreaseScriptPointerBy3 + +; Begin a series of NPC movements on the currently talking NPC +; based on the series of directions pointed to by bc +ScriptCommand_MoveActiveNPC: ; ce4a (3:4e4a) + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a + jr ExecuteNPCMovement + +; Begin a series of NPC movements on an arbitrary NPC +; based on the series of directions pointed to by bc +ScriptCommand_MoveWramNPC: ; ce52 (3:4e52) + ld a, [wLoadedNPCTempIndex] push af - ld a, [wd3ab] + ld a, [wTempNPC] push af ld a, [wd696] -asm_ce5d - ld [wd3ab], a - call Func_39c3 - call Func_ce3a +; fallthrough + +; Executes movement on an arbitrary NPC using values in a and on the stack +; Changes and fixes Temp NPC using stack values +ExecuteArbitraryNPCMovementFromStack + ld [wTempNPC], a + call FindLoadedNPC + call ExecuteNPCMovement pop af - ld [wd3ab], a + ld [wTempNPC], a pop af - ld [wd3aa], a + ld [wLoadedNPCTempIndex], a ret -Func_ce6f: ; ce6f (3:4e6f) - ld a, [wd3aa] +ScriptCommand_MoveArbitraryNPC: ; ce6f (3:4e6f) + ld a, [wLoadedNPCTempIndex] push af - ld a, [wd3ab] + ld a, [wTempNPC] push af ld a, c push af - call GetOWSArgs2AfterPointer + call GetScriptArgs2AfterPointer push bc - call IncreaseOWScriptPointerBy1 + call IncreaseScriptPointerBy1 pop bc pop af - jr asm_ce5d + jr ExecuteArbitraryNPCMovementFromStack -Func_ce84: ; ce84 (3:4e84) - call Func_c135 - jp IncreaseOWScriptPointerBy1 +ScriptCommand_CloseTextBox: ; ce84 (3:4e84) + call CloseTextBox + jp IncreaseScriptPointerBy1 ; args: booster pack index, booster pack index, booster pack index -OWScript_GiveBoosterPacks: ; ce8a (3:4e8a) +ScriptCommand_GiveBoosterPacks: ; ce8a (3:4e8a) xor a ld [wd117], a push bc @@ -1976,42 +2154,48 @@ OWScript_GiveBoosterPacks: ; ce8a (3:4e8a) ld [wd117], a pop bc ld a, b - cp $ff + cp NO_BOOSTER jr z, .asm_ceb4 farcall BoosterPack_1031b - call GetOWSArgs3AfterPointer + call GetScriptArgs3AfterPointer ld a, c - cp $ff + cp NO_BOOSTER jr z, .asm_ceb4 farcall BoosterPack_1031b .asm_ceb4 call Func_c2d4 - jp IncreaseOWScriptPointerBy4 + jp IncreaseScriptPointerBy4 -Func_ceba: ; ceba (3:4eba) +ScriptCommand_GiveOneOfEachTrainerBooster: ; ceba (3:4eba) xor a ld [wd117], a call Func_c2a3 - ld hl, $4edd -.asm_cec4 + ld hl, .booster_type_table +.giveBoosterLoop ld a, [hl] - cp $ff - jr z, .asm_ced7 + cp NO_BOOSTER + jr z, .done push hl farcall BoosterPack_1031b ld a, $1 ld [wd117], a pop hl inc hl - jr .asm_cec4 -.asm_ced7 + jr .giveBoosterLoop +.done call Func_c2d4 - jp IncreaseOWScriptPointerBy1 -; 0xcedd - - INCROM $cedd, $cee2 - -Func_cee2: ; cee2 (3:4ee2) + jp IncreaseScriptPointerBy1 + +.booster_type_table + db BOOSTER_COLOSSEUM_TRAINER + db BOOSTER_EVOLUTION_TRAINER + db BOOSTER_MYSTERY_TRAINER_COLORLESS + db BOOSTER_LABORATORY_TRAINER + db NO_BOOSTER ; $ff + +; Shows the card received screen for a given promotional card +; arg can either be the card, $00 for a wram card, or $ff for the 4 legends +ScriptCommand_ShowCardReceivedScreen: ; cee2 (3:4ee2) call Func_c2a3 ld a, c cp $ff @@ -2029,7 +2213,7 @@ Func_cee2: ; cee2 (3:4ee2) call WhiteOutDMGPals call DoFrameIfLCDEnabled call Func_c2d4 - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 .asm_cf09 xor a @@ -2049,21 +2233,21 @@ asm_cf16 jr nz, asm_cf1f asm_cf19 - call Func_ccb9 - jp IncreaseOWScriptPointerBy4 + call SetScriptControlByteFail + jp IncreaseScriptPointerBy4 asm_cf1f - call Func_ccb3 - call GetOWSArgs2AfterPointer + call SetScriptControlBytePass + call GetScriptArgs2AfterPointer jr z, asm_cf2a - jp SetOWScriptPointer + jp SetScriptPointer asm_cf2a - jp IncreaseOWScriptPointerBy4 + jp IncreaseScriptPointerBy4 Func_cf2d: ; cf2d (3:4f2d) push bc - call IncreaseOWScriptPointerBy1 + call IncreaseScriptPointerBy1 pop bc call GetRawAmountOfCardsOwned ld a, h @@ -2076,20 +2260,21 @@ Func_cf2d: ; cf2d (3:4f2d) jr nc, asm_cf1f jr asm_cf19 -Func_cf3f: ; cf3f (3:4f3f) +; Gives the first arg as a card. If that's 0 pulls from wd697 +ScriptCommand_GiveCard: ; cf3f (3:4f3f) ld a, c or a - jr nz, .asm_cf46 + jr nz, .giveCard ld a, [wd697] -.asm_cf46 +.giveCard call AddCardToCollection - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 -Func_cf4c: ; cf4c (3:4f4c) +ScriptCommand_TakeCard: ; cf4c (3:4f4c) ld a, c call RemoveCardFromCollection - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_cf53: ; cf53 (3:4f53) ld c, $1 @@ -2107,17 +2292,17 @@ Func_cf53: ; cf53 (3:4f53) or a jr nz, Func_cf6d Func_cf67: ; cf67 (3:4f67) - call Func_ccb9 - jp IncreaseOWScriptPointerBy3 + call SetScriptControlByteFail + jp IncreaseScriptPointerBy3 Func_cf6d: ; cf6d (3:4f6d) - call Func_ccb3 - call GetOWSArgs1AfterPointer + call SetScriptControlBytePass + call GetScriptArgs1AfterPointer jr z, .asm_cf78 - jp SetOWScriptPointer + jp SetScriptPointer .asm_cf78 - jp IncreaseOWScriptPointerBy3 + jp IncreaseScriptPointerBy3 Func_cf7b: ; cf7b (3:4f7b) ld c, $1 @@ -2139,50 +2324,48 @@ Func_cf7b: ; cf7b (3:4f7b) ld a, c cp $8 jr c, .asm_cf7d - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -; This function doesn't look like a valid function, but it's pointed to in the table. Func_cf96: ; cf96 (3:4f96) ld c, $0 - call Func_ca69 - ld de, $28b7 - ld hl, $08fe + get_flag_value EVENT_FLAG_11 + or a + jr z, Func_cfc0 + cp a, $08 jr c, .asm_cfa4 inc c .asm_cfa4 - call Func_ca69 - rla + get_flag_value EVENT_FLAG_17 cp $8 jr c, .asm_cfad inc c .asm_cfad - call Func_ca69 -.asm_cfb0 - jr nz, .asm_cfb0 - ld [$0138], sp + get_flag_value EVENT_FLAG_20 + cp a, $08 + jr c, .asm_cfb6 inc c +.asm_cfb6 ld a, c rlca add $3 - call GetOWSArgsAfterPointer - jp SetOWScriptPointer + call GetScriptArgsAfterPointer + jp SetScriptPointer Func_cfc0: ; cfc0 (3:4fc0) - call GetOWSArgs1AfterPointer - jp SetOWScriptPointer + call GetScriptArgs1AfterPointer + jp SetScriptPointer Func_cfc6: ; cfc6 (3:4fc6) - ld a, [wd3b6] - ld [wd3aa], a + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a ld a, c farcall Func_1c52e - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_cfd4: ; cfd4 (3:4fd4) - call Func_ca69 - dec l + get_flag_value EVENT_FLAG_2D ld b, a .asm_cfd9 ld a, $5 @@ -2206,17 +2389,16 @@ Func_cfd4: ; cfd4 (3:4fd4) or b push bc ld c, a - call Func_ca8f - dec l + set_flag_value EVENT_FLAG_2D pop bc ld b, $0 - ld hl, $5006 + ld hl, Data_d006 add hl, bc ld c, [hl] - call Func_ca8f - dec hl - jp IncreaseOWScriptPointerBy1 + set_flag_value EVENT_FLAG_2B + jp IncreaseScriptPointerBy1 +Data_d006: ; d006 (3:5006) INCROM $d006, $d00b Func_d00b: ; d00b (3:500b) @@ -2225,8 +2407,7 @@ Func_d00b: ; d00b (3:500b) ld hl, wTxRam2 add hl, bc push hl - call Func_ca69 - dec hl + get_flag_value EVENT_FLAG_2B ld e, a ld d, $0 call GetCardName @@ -2234,79 +2415,77 @@ Func_d00b: ; d00b (3:500b) ld [hl], e inc hl ld [hl], d - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d025: ; d025 (3:5025) - call Func_ca69 - dec hl + get_flag_value EVENT_FLAG_2B call GetCardCountInCollectionAndDecks jp c, Func_cf67 jp Func_cf6d Func_d032: ; d032 (3:5032) - call Func_ca69 - dec hl + get_flag_value EVENT_FLAG_2B call GetCardCountInCollection jp c, Func_cf67 jp Func_cf6d Func_d03f: ; d03f (3:503f) - call Func_ca69 - dec hl + get_flag_value EVENT_FLAG_2B call RemoveCardFromCollection - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -OWScript_ScriptJump: ; d049 (3:5049) - call GetOWSArgs1AfterPointer - jp SetOWScriptPointer +ScriptCommand_Jump: ; d049 (3:5049) + call GetScriptArgs1AfterPointer + jp SetScriptPointer -Func_d04f: ; d04f (3:504f) - call Func_cad8 - jp IncreaseOWScriptPointerBy1 +ScriptCommand_TryGiveMedalPCPacks: ; d04f (3:504f) + call TryGiveMedalPCPacks + jp IncreaseScriptPointerBy1 -Func_d055: ; d055 (3:5055) +ScriptCommand_SetPlayerDirection: ; d055 (3:5055) ld a, c - call Func_c5ce - jp IncreaseOWScriptPointerBy2 - + call UpdatePlayerDirection + jp IncreaseScriptPointerBy2 -OWScript_MovePlayer: ; 505c (3:505c) +; arg1 - Direction (index in PlayerMovementOffsetTable) +; arg2 - Tiles Moves (Speed) +ScriptCommand_MovePlayer: ; 505c (3:505c) ld a, c ld [wd339], a ld a, b ld [wd33a], a - call StartScriptedMovement + call StartScript_dMovement .asm_d067 call DoFrameIfLCDEnabled call SetScreenScroll call Func_c53d - ld a, [wd335] + ld a, [wPlayerCurrentlyMoving] and $03 jr nz, .asm_d067 call DoFrameIfLCDEnabled call SetScreenScroll - jp IncreaseOWScriptPointerBy3 + jp IncreaseScriptPointerBy3 -Func_d080: ; d080 (3:5080) +ScriptCommand_SetDialogName: ; d080 (3:5080) ld a, c - farcall Func_11893 - jp IncreaseOWScriptPointerBy2 + farcall SetNPCDialogName + jp IncreaseScriptPointerBy2 -Func_d088: ; d088 (3:5088) +ScriptCommand_SetNextNPCandScript: ; d088 (3:5088) ld a, c - ld [wd3ab], a - call GetOWSArgs2AfterPointer - call Func_c926 - jp IncreaseOWScriptPointerBy4 + ld [wTempNPC], a + call GetScriptArgs2AfterPointer + call SetNextNPCAndScript + jp IncreaseScriptPointerBy4 Func_d095: ; d095 (3:5095) - ld a, [wd3b6] - ld [wd3aa], a + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a push bc - call GetOWSArgs3AfterPointer - ld a, [wd3b6] - ld l, $5 - call Func_39ad + call GetScriptArgs3AfterPointer + ld a, [wScriptNPC] + ld l, LOADED_NPC_FIELD_05 + call GetItemInLoadedNPCIndex res 4, [hl] ld a, [hl] or c @@ -2321,56 +2500,56 @@ Func_d095: ; d095 (3:5095) .asm_d0b6 ld a, e farcall Func_1c57b - jp IncreaseOWScriptPointerBy4 + jp IncreaseScriptPointerBy4 Func_d0be: ; d0be (3:50be) - ld a, [wd3b6] - ld [wd3aa], a + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a ld a, c ld c, b ld b, a farcall Func_1c461 - jp IncreaseOWScriptPointerBy3 + jp IncreaseScriptPointerBy3 -Func_d0ce: ; d0ce (3:50ce) +ScriptCommand_DoFrames: ; d0ce (3:50ce) push bc call DoFrameIfLCDEnabled pop bc dec c - jr nz, Func_d0ce - jp IncreaseOWScriptPointerBy2 + jr nz, ScriptCommand_DoFrames + jp IncreaseScriptPointerBy2 Func_d0d9: ; d0d9 (3:50d9) - ld a, [wd3b6] - ld [wd3aa], a + ld a, [wScriptNPC] + ld [wLoadedNPCTempIndex], a ld d, c ld e, b farcall Func_1c477 ld a, e cp c - jp nz, Func_d48a + jp nz, ScriptEventFailedNoJump ld a, d cp b - jp nz, Func_d48a - jp Func_d490 + jp nz, ScriptEventFailedNoJump + jp ScriptEventPassedTryJump -Func_d0f2: ; d0f2 (3:50f2) +ScriptCommand_JumpIfPlayerCoordMatches: ; d0f2 (3:50f2) ld a, [wPlayerXCoord] cp c - jp nz, Func_d48a + jp nz, ScriptEventFailedNoJump ld a, [wPlayerYCoord] cp b - jp nz, Func_d48a - jp Func_d490 + jp nz, ScriptEventFailedNoJump + jp ScriptEventPassedTryJump Func_d103: ; d103 (3:5103) - ld a, [wd3aa] + ld a, [wLoadedNPCTempIndex] push af - ld a, [wd3ab] + ld a, [wTempNPC] push af ld a, c - ld [wd3ab], a - call Func_39c3 + ld [wTempNPC], a + call FindLoadedNPC jr c, .asm_d119 call $54d1 jr .asm_d11c @@ -2380,9 +2559,9 @@ Func_d103: ; d103 (3:5103) .asm_d11c pop af - ld [wd3ab], a + ld [wTempNPC], a pop af - ld [wd3aa], a + ld [wLoadedNPCTempIndex], a ret Func_d125: ; d125 (3:5125) @@ -2392,7 +2571,7 @@ Func_d125: ; d125 (3:5125) pop af farcall Medal_1029e call Func_c2d4 - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d135: ; d135 (3:5135) sla c @@ -2413,12 +2592,12 @@ Func_d135: ; d135 (3:5135) ld [hl], e inc hl ld [hl], d - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 INCROM $d153, $d16b Func_d16b: ; d16b (3:516b) - ld hl, wd0c8 + ld hl, wCurrentNPCNameTx ld e, [hl] inc hl ld d, [hl] @@ -2429,46 +2608,44 @@ Func_d16b: ; d16b (3:516b) add hl, bc push hl ld a, [wd696] - farcall Func_11893 + farcall SetNPCDialogName pop hl - ld a, [wd0c8] + ld a, [wCurrentNPCNameTx] ld [hli], a - ld a, [wd0c9] + ld a, [wCurrentNPCNameTx+1] ld [hl], a pop de - ld hl, wd0c8 + ld hl, wCurrentNPCNameTx ld [hl], e inc hl ld [hl], d - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d195: ; d195 (3:5195) - ld a, [wd3ab] + ld a, [wTempNPC] push af - call Func_ca69 - ld b, l + get_flag_value EVENT_FLAG_45 inc a ld c, a - call Func_ca8f - ld b, l + set_flag_value EVENT_FLAG_45 call Func_f580 pop af - ld [wd3ab], a - jp IncreaseOWScriptPointerBy1 + ld [wTempNPC], a + jp IncreaseScriptPointerBy1 Func_d1ad: ; d1ad (3:51ad) call MainMenu_c75a - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 Func_d1b3: ; d1b3 (3:51b3) - call Func_ca69 - ld b, h + get_flag_value EVENT_FLAG_44 dec a cp $2 jr c, .asm_d1c3 ld a, $d call Random add $2 +; fallthrough .asm_d1c3 ld hl, $51dc @@ -2485,13 +2662,12 @@ asm_d1c6 ld [wTxRam2], a ld a, [hl] ld [wTxRam2 + 1], a - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 INCROM $d1dc, $d209 Func_d209: ; d209 (3:5209) - call Func_ca69 - ld [hl], c + get_flag_value EVENT_FLAG_71 ld e, a .asm_d20e call UpdateRNGSources @@ -2511,21 +2687,35 @@ Func_d209: ; d209 (3:5209) jr nz, .asm_d20e push bc ld b, $0 - ld hl, $5240 + ld hl, Flags_d240 add hl, bc ld a, [hl] - call SetEventFlags + call MaxOutEventFlag pop bc - ld hl, $5234 + ld hl, LegendaryCards ld a, c jr asm_d1c6 - INCROM $d234, $d244 +LegendaryCards: ; d234 (3:5234) + db ZAPDOS3 + tx Text03f0 + db MOLTRES2 + tx Text03f1 + db ARTICUNO2 + tx Text03f2 + db DRAGONITE1 + tx Text03f3 + +Flags_d240: ; d240 (3:5240) + db EVENT_FLAG_6D + db EVENT_FLAG_6E + db EVENT_FLAG_6F + db EVENT_FLAG_70 Func_d244: ; d244 (3:5244) ld a, c farcall Func_80ba4 - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d24c: ; d24c (3:524c) ld hl, $525e @@ -2533,9 +2723,8 @@ Func_d24c: ; d24c (3:524c) call Func_d28c ld a, [wd695] ld c, a - call Func_ca8f - halt - jp IncreaseOWScriptPointerBy1 + set_flag_value EVENT_FLAG_76 + jp IncreaseScriptPointerBy1 INCROM $d25e, $d271 @@ -2543,7 +2732,7 @@ Func_d271: ; d271 (3:5271) ld hl, $527b xor a call Func_d28c - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 ; 0xd27b INCROM $d27b, $d28c @@ -2630,11 +2819,10 @@ Func_d2f6: ; d2f6 (3:52f6) call Func_d28c ld a, [wd694] ld c, a - call Func_ca8f - ld [hl], l + set_flag_value EVENT_FLAG_75 xor a ld [wd694], a - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 ; 0xd30c INCROM $d30c, $d317 @@ -2645,14 +2833,13 @@ Func_d317: ; d317 (3:5317) call Func_d28c ld a, [wd694] ld c, a - call Func_ca8f - ld [hl], l - jp IncreaseOWScriptPointerBy1 - + set_flag_value EVENT_FLAG_75 + jp IncreaseScriptPointerBy1 +Unknown_d32b: ; d32b (3:532b) INCROM $d32b, $d336 -OWScript_OpenDeckMachine: ; d336 (3:5336) +ScriptCommand_OpenDeckMachine: ; d336 (3:5336) push bc call Func_c2a3 call PauseSong @@ -2677,34 +2864,35 @@ OWScript_OpenDeckMachine: ; d336 (3:5336) .asm_d364 call ResumeSong call Func_c2d4 - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 -Func_d36d: ; d36d (3:536d) - ld a, [wOWScriptPointer] +; args: unused, room, new player x, new player y, new player direction +ScriptCommand_EnterMap: ; d36d (3:536d) + ld a, [wScriptPointer] ld l, a - ld a, [wOWScriptPointer+1] + ld a, [wScriptPointer+1] ld h, a inc hl ld a, [hli] ld a, [hli] - ld [wd0bb], a + ld [wTempMap], a ld a, [hli] - ld [wd0bc], a + ld [wTempPlayerXCoord], a ld a, [hli] - ld [wd0bd], a + ld [wTempPlayerYCoord], a ld a, [hli] - ld [wd0be], a + ld [wTempPlayerDirection], a ld hl, wd0b4 set 4, [hl] - jp IncreaseOWScriptPointerBy6 + jp IncreaseScriptPointerBy6 Func_d38f: ; d38f (3:538f) farcall Func_10c96 - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d396: ; d396 (3:5396) farcall Func_1157c - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d39d: ; d39d (3:539d) ld a, c @@ -2712,8 +2900,7 @@ Func_d39d: ; d39d (3:539d) jr nz, .asm_d3ac farcall Func_10dba ld c, a - call Func_ca8f - ld [hl], d + set_flag_value EVENT_FLAG_72 jr .asm_d3b6 .asm_d3ac @@ -2723,7 +2910,7 @@ Func_d39d: ; d39d (3:539d) set 6, [hl] .asm_d3b6 - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d3b9: ; d3b9 (3:53b9) call Func_3917 @@ -2731,20 +2918,20 @@ Func_d3b9: ; d3b9 (3:53b9) ld [wGameEvent], a ld hl, wd0b4 set 6, [hl] - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -Func_d3c9: ; d3c9 (3:53c9) +ScriptCommand_TryGivePCPack: ; d3c9 (3:53c9) ld a, c - farcall Func_10a70 - jp IncreaseOWScriptPointerBy2 + farcall TryGivePCPack + jp IncreaseScriptPointerBy2 -Func_d3d1: ; d3d1 (3:53d1) - jp IncreaseOWScriptPointerBy1 +ScriptCommand_nop: ; d3d1 (3:53d1) + jp IncreaseScriptPointerBy1 Func_d3d4: ; d3d4 (3:53d4) ld a, [wd693] bank1call Func_7576 - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 INCROM $d3dd, $d3e0 @@ -2759,344 +2946,1168 @@ Func_d3e0: ; d3e0 (3:53e0) cp $2 jr nz, .asm_d3e9 farcall Func_10f2e - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 Func_d3fe: ; d3fe (3:53fe) ld a, c ld [wd112], a call PlaySong - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d408: ; d408 (3:5408) ld a, c ld [wd111], a - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d40f: ; d40f (3:540f) ld a, c - call Func_3c83 - jp IncreaseOWScriptPointerBy2 + call CallPlaySong + jp IncreaseScriptPointerBy2 -Func_d416: ; d416 (3:5416) +ScriptCommand_PlaySFX: ; d416 (3:5416) ld a, c call PlaySFX - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d41d: ; d41d (3:541d) call Func_39fc - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -Func_d423: ; d423 (3:5423) +ScriptCommand_PauseSong: ; d423 (3:5423) call PauseSong - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -Func_d429: ; d429 (3:5429) +ScriptCommand_ResumeSong: ; d429 (3:5429) call ResumeSong - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -Func_d42f: ; d42f (3:542f) - call Func_3c96 - jp IncreaseOWScriptPointerBy1 +ScriptCommand_WaitForSongToFinish: ; d42f (3:542f) + call WaitForSongToFinish + jp IncreaseScriptPointerBy1 Func_d435: ; d435 (3:5435) ld a, c farcall Func_1c83d - jp IncreaseOWScriptPointerBy2 + jp IncreaseScriptPointerBy2 Func_d43d: ; d43d (3:543d) ld a, GAME_EVENT_CHALLENGE_MACHINE ld [wGameEvent], a ld hl, wd0b4 set 6, [hl] - jp IncreaseOWScriptPointerBy1 + jp IncreaseScriptPointerBy1 -OWScript_CustomModifyEventFlags: ; d44a (3:544a) +; sets the event flag in arg 1 to the value in arg 2 +ScriptCommand_SetFlagValue: ; d44a (3:544a) ld a, c ld c, b - call ModifyEventFlags - jp IncreaseOWScriptPointerBy3 + call SetEventFlagValue + jp IncreaseScriptPointerBy3 -Func_d452: ; d452 (3:5452) +ScriptCommand_IncrementFlagValue: ; d452 (3:5452) ld a, c push af - call CheckIfEventFlagSet + call GetEventFlagValue inc a ld c, a pop af - call ModifyEventFlags - jp IncreaseOWScriptPointerBy2 + call SetEventFlagValue + jp IncreaseScriptPointerBy2 -Func_d460: ; d460 (3:5460) +ScriptCommand_JumpIfFlagZero1: ; d460 (3:5460) ld a, c - call CheckIfEventFlagSet + call GetEventFlagValue or a - jr z, asm_d46d -asm_d467 - call Func_ccb9 - jp IncreaseOWScriptPointerBy4 + jr z, ScriptCommand_JumpIfFlagZero1.passTryJump + +.fail + call SetScriptControlByteFail + jp IncreaseScriptPointerBy4 -asm_d46d - call Func_ccb3 - call GetOWSArgs2AfterPointer - jr z, .asm_d478 - jp SetOWScriptPointer +.passTryJump + call SetScriptControlBytePass + call GetScriptArgs2AfterPointer + jr z, .noJumpTarget + jp SetScriptPointer -.asm_d478 - jp IncreaseOWScriptPointerBy4 +.noJumpTarget + jp IncreaseScriptPointerBy4 -OWScript_JumpIfFlagSet: ; d47b (3:547b) +ScriptCommand_JumpIfFlagNonzero1: ; d47b (3:547b) ld a, c - call CheckIfEventFlagSet + call GetEventFlagValue or a - jr nz, asm_d46d - jr asm_d467 + jr nz, ScriptCommand_JumpIfFlagZero1.passTryJump + jr ScriptCommand_JumpIfFlagZero1.fail -Func_d484: ; d484 (3:5484) - call Func_d4b6 +; args - event flag, value, jump address +ScriptCommand_JumpIfFlagEqual: ; d484 (3:5484) + call GetEventFlagValueBC cp c - jr z, Func_d490 + jr z, ScriptEventPassedTryJump -Func_d48a: ; d48a (3:548a) - call Func_ccb9 - jp IncreaseOWScriptPointerBy5 +ScriptEventFailedNoJump ; d48a (3:548a) + call SetScriptControlByteFail + jp IncreaseScriptPointerBy5 -Func_d490: ; d490 (3:5490) - call Func_ccb3 - call GetOWSArgs3AfterPointer - jr z, .asm_d49b - jp SetOWScriptPointer +ScriptEventPassedTryJump ; d490 (3:5490) + call SetScriptControlBytePass + call GetScriptArgs3AfterPointer + jr z, .noJumpAddress + jp SetScriptPointer -.asm_d49b - jp IncreaseOWScriptPointerBy5 +.noJumpAddress + jp IncreaseScriptPointerBy5 -Func_d49e: ; d49e (3:549e) - call Func_d4b6 +ScriptCommand_JumpIfFlagNotEqual: ; d49e (3:549e) + call GetEventFlagValueBC cp c - jr nz, Func_d490 - jr Func_d48a + jr nz, ScriptEventPassedTryJump + jr ScriptEventFailedNoJump -Func_d4a6: ; d4a6 (3:54a6) - call Func_d4b6 +ScriptCommand_JumpIfFlagNotLessThan: ; d4a6 (3:54a6) + call GetEventFlagValueBC cp c - jr nc, Func_d490 - jr Func_d48a + jr nc, ScriptEventPassedTryJump + jr ScriptEventFailedNoJump -Func_d4ae: ; d4ae (3:54ae) - call Func_d4b6 +ScriptCommand_JumpIfFlagLessThan: ; d4ae (3:54ae) + call GetEventFlagValueBC cp c - jr c, Func_d490 ; 0xd4b2 $dc - jr Func_d48a ; 0xd4b4 $d4 + jr c, ScriptEventPassedTryJump + jr ScriptEventFailedNoJump -Func_d4b6: ; d4b6 (3:54b6) +; Gets event flag at c (Script defaults) +; c takes on the value of b as a side effect +GetEventFlagValueBC: ; d4b6 (3:54b6) ld a, c ld c, b - call CheckIfEventFlagSet + call GetEventFlagValue ret -OWScript_SetEventFlags: ; d4bc (3:54bc) +ScriptCommand_MaxOutFlagValue: ; d4bc (3:54bc) ld a, c - call SetEventFlags - jp IncreaseOWScriptPointerBy2 + call MaxOutEventFlag + jp IncreaseScriptPointerBy2 -Func_d4c3: ; d4c3 (3:54c3) +ScriptCommand_ZeroOutFlagValue: ; d4c3 (3:54c3) ld a, c - call Func_cad0 - jp IncreaseOWScriptPointerBy2 + call ZeroOutEventFlag + jp IncreaseScriptPointerBy2 -Func_d4ca: ; d4ca (3:54ca) +ScriptCommand_JumpIfFlagNonzero2: ; d4ca (3:54ca) ld a, c - call CheckIfEventFlagSet + call GetEventFlagValue or a - jr z, asm_d4e6 -Func_d4d1: - call Func_ccb3 - call GetOWSArgs2AfterPointer - jr z, .asm_d4dc - jp SetOWScriptPointer -.asm_d4dc - jp IncreaseOWScriptPointerBy4 - -OWScript_JumpIfFlagNotSet: + jr z, ScriptCommand_JumpIfFlagZero2.fail + +.passTryJump: + call SetScriptControlBytePass + call GetScriptArgs2AfterPointer + jr z, .noJumpArgs + jp SetScriptPointer +.noJumpArgs + jp IncreaseScriptPointerBy4 + +ScriptCommand_JumpIfFlagZero2: ld a, c - call CheckIfEventFlagSet + call GetEventFlagValue or a - jr z, Func_d4d1 -asm_d4e6 - call Func_ccb9 - jp IncreaseOWScriptPointerBy4 + jr z, ScriptCommand_JumpIfFlagNonzero2.passTryJump + +.fail + call SetScriptControlByteFail + jp IncreaseScriptPointerBy4 ; 0xd4ec - INCROM $d4ec, $d583 +LoadOverworld: ; d4ec (3:54ec) + call Func_d4fb + get_flag_value EVENT_FLAG_3E + or a + ret nz + ld bc, Script_BeginGame + jp SetNextScript + +Func_d4fb: ; d4fb (3:54fb) + zero_flag_value EVENT_FLAG_59 + call Func_f602 + get_flag_value EVENT_FLAG_3F + cp $02 + jr z, .asm_d527 + get_flag_value EVENT_FLAG_40 + cp $02 + jr z, .asm_d521 + get_flag_value EVENT_FLAG_41 + cp $02 + jr z, .asm_d51b + ret +.asm_d51b + ld c, $07 + set_flag_value EVENT_FLAG_41 +.asm_d521 + ld c, $07 + set_flag_value EVENT_FLAG_40 +.asm_d527 + ld c, $07 + set_flag_value EVENT_FLAG_3F + ret + +Script_BeginGame: ; d52e (3:552e) + start_script + run_command ScriptCommand_DoFrames + db $3c + run_command Func_d3e0 + run_command ScriptCommand_DoFrames + db $78 + run_command ScriptCommand_EnterMap + db $02 + db MASON_LABORATORY + db 14 + db 26 + db NORTH + run_command ScriptCommand_QuitScriptFully + +MasonLaboratoryAfterDuel: ; d53b (3:553b) + ld hl, .after_duel_table + call FindEndOfBattleScript + ret + +.after_duel_table + db NPC_SAM + db NPC_SAM + dw $568a + dw $569f + db $00 + +MasonLabLoadMap: ; d549 (3:5549) + get_flag_value EVENT_FLAG_3E + cp $03 + ret nc + ld a, NPC_DRMASON + ld [wTempNPC], a + call FindLoadedNPC + ld bc, Script_EnterLabFirstTime + jp SetNextNPCAndScript + +MasonLabCloseTextBox: ; d55e (3:555e) + ld a, $0a + farcall Func_80b89 + ret + +; Lets you access the Challenge Machine if available +MasonLabPressedA: ; d565 (3:5565) + get_flag_value EVENT_RECEIVED_LEGENDARY_CARD + or a + ret z + ld hl, ChallengeMachineObjectTable + call FindExtraInteractableObjects + ret + +ChallengeMachineObjectTable: ; d572 (3:5572) + db 10, 4, NORTH + dw Script_ChallengeMachine + db 12, 4, NORTH + dw Script_ChallengeMachine + db $00 + +Script_ChallengeMachine: ; d57d (3:557d) + start_script + run_command Func_ccdc + tx Text05bd + run_command Func_d43d + run_command ScriptCommand_QuitScriptFully -Tech1NPCScript: ; d583 (3:5583) +Script_Tech1: ; d583 (3:5583) INCROM $d583, $d5ca -Tech2NPCScript: ; d5ca (3:55ca) +Script_Tech2: ; d5ca (3:55ca) INCROM $d5ca, $d5d5 -Tech3NPCScript: ; d5d5 (3:55d5) +Script_Tech3: ; d5d5 (3:55d5) INCROM $d5d5, $d5e0 -Tech4NPCScript: ; d5e0 (3:55e0) +Script_Tech4: ; d5e0 (3:55e0) INCROM $d5e0, $d5f9 -Tech5NPCScript: ; d5f9 (3:55f9) +Script_Tech5: ; d5f9 (3:55f9) INCROM $d5f9, $d61d -SamNPCScript: ; d61d (3:561d) +Script_Sam: ; d61d (3:561d) INCROM $d61d, $d727 -DrMasonNPCScript: ; d727 (3:5727) +Script_DrMason: ; d727 (3:5727) INCROM $d727, $d753 -OWSequence_d753: ; d753 (3:5753) +Script_EnterLabFirstTime: ; d753 (3:5753) start_script - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_MovePlayer - db $00 + run_command ScriptCommand_MovePlayer + db NORTH db $02 - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text05e3 - run_script OWScript_CloseTextBox - run_script Func_d088 - db $07 - db $79 - db $57 - run_script OWScript_EndScriptLoop1 + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db NPC_SAM + dw Script_d779 + run_command ScriptCommand_EndScriptLoop1 ret +Script_d779: ; d779 (03:5779) start_script - run_script Func_ce4a - db $80 - db $58 - db $02 - - ; there's more to this script but it hasn't been disassembled yet + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_d880 + run_command ScriptCommand_PrintTextString + tx Text05e4 + run_command ScriptCommand_SetDialogName + db NPC_DRMASON + run_command ScriptCommand_PrintTextString + tx Text05e5 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_d882 + run_command Func_cfc6 + db $01 + run_command ScriptCommand_SetPlayerDirection + db $03 + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db NPC_DRMASON + dw Script_d794 + run_command ScriptCommand_EndScriptLoop1 + ret - INCROM $d77e, $d8bb +Script_d794: ; d794 (3:5794) + start_script + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_d88b + run_command ScriptCommand_DoFrames + db 40 + run_command ScriptCommand_PrintTextString + tx Text05e6 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MovePlayer + db WEST + db $01 + run_command ScriptCommand_MovePlayer + db WEST + db $01 + run_command ScriptCommand_SetPlayerDirection + db SOUTH + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_SetPlayerDirection + db WEST + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_d894 + run_command ScriptCommand_PrintTextString + tx Text05e7 + run_command ScriptCommand_SetDialogName + db $07 + run_command ScriptCommand_PrintTextString + tx Text05e8 + +.ows_d7bc + run_command ScriptCommand_CloseTextBox + run_command Func_d317 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_75 + db $07 + dw .ows_d80c + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_75 + db $01 + dw .ows_d7e8 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_75 + db $02 + dw .ows_d7ee + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_75 + db $03 + dw .ows_d7f4 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_75 + db $04 + dw .ows_d7fa + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_75 + db $05 + dw .ows_d800 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_75 + db $06 + dw .ows_d806 + run_command ScriptCommand_PrintTextString + tx Text05d6 + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d7e8 + run_command ScriptCommand_PrintTextString + tx Text05d7 + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d7ee + run_command ScriptCommand_PrintTextString + tx Text05d8 + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d7f4 + run_command ScriptCommand_PrintTextString + tx Text05d9 + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d7fa + run_command ScriptCommand_PrintTextString + tx Text05da + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d800 + run_command ScriptCommand_PrintTextString + tx Text05db + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d806 + run_command ScriptCommand_PrintTextString + tx Text05dc + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d80c + run_command ScriptCommand_PrintTextString + tx Text05e9 + run_command ScriptCommand_AskQuestionJumpDefaultYes + dw 0000 + dw .ows_d817 + run_command ScriptCommand_Jump + dw .ows_d7bc + +.ows_d817 + run_command ScriptCommand_SetDialogName + db $01 + run_command ScriptCommand_PrintTextString + tx Text05ea + run_command ScriptCommand_nop + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_3E + db $01 + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db NPC_SAM + dw Script_d827 + run_command ScriptCommand_EndScriptLoop1 + ret -Tech6NPCScript: ; d8bb (3:58bb) +Script_d827: ; d827 (3:5827) + start_script + run_command ScriptCommand_StartBattle + db PRIZES_2 + db SAMS_PRACTICE_DECK_ID + db MUSIC_DUEL_THEME_1 + run_command ScriptCommand_QuitScriptFully +; 0xd82d + + INCROM $d82d, $d880 + +NPCMovement_d880: ; d880 (3:5880) + db EAST + db $ff + +NPCMovement_d882: ; d882 (3:5882) + db SOUTH + db SOUTH + db WEST + db WEST + db WEST + db WEST + db SOUTH + db EAST | NO_MOVE + db $ff + +NPCMovement_d88b: ; d88b (3:588b) + db WEST + db SOUTH + db SOUTH + db SOUTH + db WEST + db WEST + db WEST + db EAST | NO_MOVE + db $ff + +NPCMovement_d894: ; d894 (4:5894) + db SOUTH | NO_MOVE + db $ff + + INCROM $d896, $d8bb + +Script_Tech6: ; d8bb (3:58bb) INCROM $d8bb, $d8c6 -Tech7NPCScript: ; d8c6 (3:58c6) +Script_Tech7: ; d8c6 (3:58c6) INCROM $d8c6, $d8d1 -Tech8NPCScript: ; d8d1 (3:58d1) +Script_Tech8: ; d8d1 (3:58d1) INCROM $d8d1, $d8dd -AaronNPCScript: ; d8dd (3:58dd) - INCROM $d8dd, $db4a +Script_Aaron: ; d8dd (3:58dd) + INCROM $d8dd, $d932 -IshiharaNPCScript: ; db4a (3:5b4a) - INCROM $db4a, $dc4b +Script_d932: ; d932 (3:5932) + start_script + run_command Func_ccdc + tx Text0605 + run_command ScriptCommand_AskQuestionJumpDefaultYes + tx Text0606 + dw .ows_d93c + run_command ScriptCommand_QuitScriptFully + +.ows_d93c + run_command ScriptCommand_OpenDeckMachine + db $09 + run_command ScriptCommand_QuitScriptFully +; 0xd93f + + INCROM $d93f, $dadd + +Preload_NikkiInIshiharasHouse: ; dadd (3:5add) + get_flag_value EVENT_FLAG_35 + cp $01 + jr nz, .dontLoadNikki + scf + ret +.dontLoadNikki + or a + ret +; 0xdae9 -Ronald2NPCScript: ; dc4b (3:5c4b) - INCROM $dc4b, $dc4b + INCROM $dae9, $db3d -Ronald3NPCScript: ; dc4b (3:5c4b) - INCROM $dc4b, $dc4b +Preload_IshiharaInIshiharasHouse: ; db3d (3:5b3d) + get_flag_value EVENT_FLAG_1C + or a + ret z + get_flag_value EVENT_FLAG_1F + cp $08 + ret + +Script_Ishihara: ; db4a (3:5b4a) + start_script + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_1D + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $00 + dw .ows_db80 + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_FLAG_39 + dw .ows_db5a + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_RECEIVED_LEGENDARY_CARD + dw .ows_dc3e +.ows_db5a + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_FLAG_00 + dw .ows_db90 + run_command ScriptCommand_JumpIfFlagZero2 + db EVENT_FLAG_38 + dw .ows_db90 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $01 + dw .ows_db93 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $02 + dw .ows_db93 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $03 + dw .ows_dbcc + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $04 + dw .ows_dbcc + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $05 + dw .ows_dc05 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $06 + dw .ows_dc05 +.ows_db80 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_00 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_1F + db $01 + run_command ScriptCommand_ZeroOutFlagValue + db EVENT_FLAG_38 + run_command ScriptCommand_JumpIfFlagZero2 + db EVENT_RECEIVED_LEGENDARY_CARD + dw .ows_db8d + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_39 +.ows_db8d + run_command ScriptCommand_PrintTextQuitFully + tx Text0727 + +.ows_db90 + run_command ScriptCommand_PrintTextQuitFully + tx Text0728 + +.ows_db93 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $01 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0729 + tx Text072a + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_1F + db $02 + run_command ScriptCommand_AskQuestionJump + tx Text072b + dw .ows_dba8 + run_command ScriptCommand_PrintTextQuitFully + tx Text072c + +.ows_dba8 + run_command Func_cf0c + db $ac + dw .ows_dbaf + run_command ScriptCommand_PrintTextQuitFully + tx Text072d + +.ows_dbaf + run_command Func_cf12 + db $ac + dw .ows_dbb6 + run_command ScriptCommand_PrintTextQuitFully + tx Text072e + +.ows_dbb6 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_00 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_1F + db $03 + run_command ScriptCommand_ZeroOutFlagValue + db EVENT_FLAG_38 + run_command ScriptCommand_PrintTextString + tx Text072f + run_command Func_ccdc + tx Text0730 + run_command ScriptCommand_TakeCard + db CLEFABLE + run_command ScriptCommand_GiveCard + db SURFING_PIKACHU1 + run_command ScriptCommand_ShowCardReceivedScreen + db SURFING_PIKACHU1 + run_command ScriptCommand_PrintTextQuitFully + tx Text0731 + +.ows_dbcc + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $03 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0732 + tx Text0733 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_1F + db $04 + run_command ScriptCommand_AskQuestionJump + tx Text072b + dw .ows_dbe1 + run_command ScriptCommand_PrintTextQuitFully + tx Text072c + +.ows_dbe1 + run_command Func_cf0c + db $bb + dw .ows_dbe8 + run_command ScriptCommand_PrintTextQuitFully + tx Text0734 + +.ows_dbe8 + run_command Func_cf12 + db $bb + dw .ows_dbef + run_command ScriptCommand_PrintTextQuitFully + tx Text0735 + +.ows_dbef + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_00 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_1F + db $05 + run_command ScriptCommand_ZeroOutFlagValue + db EVENT_FLAG_38 + run_command ScriptCommand_PrintTextString + tx Text072f + run_command Func_ccdc + tx Text0736 + run_command ScriptCommand_TakeCard + db DITTO + run_command ScriptCommand_GiveCard + db FLYING_PIKACHU + run_command ScriptCommand_ShowCardReceivedScreen + db FLYING_PIKACHU + run_command ScriptCommand_PrintTextQuitFully + tx Text0737 + +.ows_dc05 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_1F + db $05 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0738 + tx Text0739 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_1F + db $06 + run_command ScriptCommand_AskQuestionJump + tx Text072b + dw .ows_dc1a + run_command ScriptCommand_PrintTextQuitFully + tx Text072c + +.ows_dc1a + run_command Func_cf0c + db $b8 + dw .ows_dc21 + run_command ScriptCommand_PrintTextQuitFully + tx Text073a + +.ows_dc21 + run_command Func_cf12 + db $b8 + dw .ows_dc28 + run_command ScriptCommand_PrintTextQuitFully + tx Text073b + +.ows_dc28 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_00 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_1F + db $07 + run_command ScriptCommand_ZeroOutFlagValue + db EVENT_FLAG_38 + run_command ScriptCommand_PrintTextString + tx Text072f + run_command Func_ccdc + tx Text073c + run_command ScriptCommand_TakeCard + db CHANSEY + run_command ScriptCommand_GiveCard + db SURFING_PIKACHU2 + run_command ScriptCommand_ShowCardReceivedScreen + db SURFING_PIKACHU2 + run_command ScriptCommand_PrintTextQuitFully + tx Text073d + +.ows_dc3e + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_39 + run_command ScriptCommand_PrintTextQuitFully + tx Text073e + +Preload_Ronald1InIshiharasHouse: ; dc43 (3:5c43) + get_flag_value EVENT_RECEIVED_LEGENDARY_CARD + cp $01 + ccf + ret + +Script_Ronald: ; dc4b (3:5c4b) + start_script + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_FLAG_4E + dw .ows_dc55 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_4E + run_command ScriptCommand_PrintTextQuitFully + tx Text073f + +.ows_dc55 + run_command ScriptCommand_PrintTextString + tx Text0740 + run_command ScriptCommand_AskQuestionJump + tx Text0741 + dw .ows_dc60 + run_command ScriptCommand_PrintTextQuitFully + tx Text0742 + +.ows_dc60 + run_command ScriptCommand_PrintTextQuitFully + tx Text0743 +; 0xdc63 + + ; could be a commented function, or could be placed by mistake from + ; someone thinking that the Ronald script ended with more code execution + ret -RonaldNPCScript: ; dc4b (3:5c4b) - INCROM $dc4b, $dc64 +Script_Clerk1: ; dc64 (3:5c64) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text045a -Clerk1NPCScript: ; dc64 (3:5c64) - INCROM $dc64, $dc76 +FightingClubLobbyAfterDuel: ; dc68 (3:5c68) + ld hl, .after_duel_table + call FindEndOfBattleScript + ret +.after_duel_table + db NPC_IMAKUNI + db NPC_IMAKUNI + dw Script_BeatImakuni + dw Script_LostToImakuni + db $00 -Man1NPCScript: ; dc76 (3:5c76) +Script_Man1: ; dc76 (3:5c76) INCROM $dc76, $dd0d -ImakuniNPCScript: ; dd0d (3:5d0d) - INCROM $dd0d, $dd82 +Script_Imakuni: ; dd0d (3:5d0d) + start_script + run_command ScriptCommand_SetFlagValue + db EVENT_IMAKUNI_STATE + db IMAKUNI_TALKED + run_command ScriptCommand_JumpIfFlagZero2 + db EVENT_TEMP_TALKED_TO_IMAKUNI + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0467 + tx Text0468 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_TEMP_TALKED_TO_IMAKUNI + run_command ScriptCommand_AskQuestionJump + tx Text0469 + dw .declineDuel + run_command ScriptCommand_PrintTextString + tx Text046a + run_command ScriptCommand_QuitScriptFully + +.declineDuel + run_command ScriptCommand_PrintTextString + tx Text046b + run_command ScriptCommand_StartBattle + db PRIZES_6 + db IMAKUNI_DECK_ID + db MUSIC_IMAKUNI + run_command ScriptCommand_QuitScriptFully +; 0xdd2d + +Script_BeatImakuni: ; dd2d (3:5d2d) + start_script + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_IMAKUNI_WIN_COUNT + db $07 + dw .giveBoosters + run_command ScriptCommand_IncrementFlagValue + db EVENT_IMAKUNI_WIN_COUNT + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_IMAKUNI_WIN_COUNT + db $03 + dw .threeWins + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_IMAKUNI_WIN_COUNT + db $06 + dw .sixWins +.giveBoosters + run_command ScriptCommand_PrintTextString + tx Text046c + run_command ScriptCommand_GiveOneOfEachTrainerBooster + run_command ScriptCommand_Jump + dw .done + +.threeWins + run_command ScriptCommand_PrintTextString + tx Text046d + run_command ScriptCommand_Jump + dw .giveImakuniCard + +.sixWins + run_command ScriptCommand_PrintTextString + tx Text046e +.giveImakuniCard + run_command ScriptCommand_PrintTextString + tx Text046f + run_command ScriptCommand_GiveCard + db IMAKUNI_CARD + run_command ScriptCommand_ShowCardReceivedScreen + db IMAKUNI_CARD +.done + run_command ScriptCommand_PrintTextString + tx Text0470 + run_command ScriptCommand_Jump + dw ScriptJump_ImakuniCommon + +Script_LostToImakuni: ; dd5c (3:5d5c) + start_script + run_command ScriptCommand_PrintTextString + tx Text0471 + +ScriptJump_ImakuniCommon: ; dd60 (3:5d60) + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_JumpIfPlayerCoordMatches + db 18 + db 4 + dw .ows_dd69 + run_command ScriptCommand_Jump + dw .ows_dd6e + +.ows_dd69 + run_command ScriptCommand_SetPlayerDirection + db EAST + run_command ScriptCommand_MovePlayer + db WEST + db $01 -Specs1NPCScript: ; dd82 (3:5d82) +.ows_dd6e + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_dd78 + run_command Func_cdcb + run_command ScriptCommand_MaxOutFlagValue + db EVENT_TEMP_BATTLED_IMAKUNI + run_command Func_d408 + db $09 + run_command Func_d41d + run_command ScriptCommand_QuitScriptFully +; 0xdd78 + +NPCMovement_dd78 ; dd78 (3:5d78) + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db EAST + db EAST + db EAST + db EAST + db EAST + db $ff + +Script_Specs1: ; dd82 (3:5d82) INCROM $dd82, $dd8d -ButchNPCScript: ; dd8d (3:5d8d) +Script_Butch: ; dd8d (3:5d8d) INCROM $dd8d, $dd9f -Granny1NPCScript: ; dd9f (3:5d9f) +Script_Granny1: ; dd9f (3:5d9f) INCROM $dd9f, $ddc3 -MitchNPCScript: ; ddc3 (3:5dc3) +Script_Mitch: ; ddc3 (3:5dc3) INCROM $ddc3, $ded1 -Clerk2NPCScript: ; ded1 (3:5ed1) +Script_Clerk2: ; ded1 (3:5ed1) INCROM $ded1, $def2 -ChrisNPCScript: ; def2 (3:5ef2) +Script_Chris: ; def2 (3:5ef2) INCROM $def2, $df39 -MatthewNPCScript: ; df39 (3:5f39) +Script_Matthew: ; df39 (3:5f39) INCROM $df39, $df83 -Woman1NPCScript: ; df83 (3:5f83) +Script_Woman1: ; df83 (3:5f83) INCROM $df83, $dfc0 -Chap1NPCScript: ; dfc0 (3:5fc0) +Script_Chap1: ; dfc0 (3:5fc0) INCROM $dfc0, $dfd2 -Lass3NPCScript: ; dfd2 (3:5fd2) +Script_Lass3: ; dfd2 (3:5fd2) INCROM $dfd2, $dff0 -RyanNPCScript: ; dff0 (3:5ff0) +Script_Ryan: ; dff0 (3:5ff0) INCROM $dff0, $e017 -AndrewNPCScript: ; e017 (3:6017) +Script_Andrew: ; e017 (3:6017) INCROM $e017, $e03e -GeneNPCScript: ; e03e (3:603e) +Script_Gene: ; e03e (3:603e) INCROM $e03e, $e09e -Clerk3NPCScript: ; e09e (3:609e) - INCROM $e09e, $e0cf - -Gal1NPCScript: ; e0cf (3:60cf) - INCROM $e0cf, $e111 +Script_Clerk3: ; e09e (3:609e) + INCROM $e09e, $e0b0 + +Preload_ImakuniInWaterClubLobby: ; e0b0 (3:60b0) + get_flag_value EVENT_IMAKUNI_STATE + cp IMAKUNI_TALKED + jr c, .asm_e0c6 + get_flag_value EVENT_TEMP_BATTLED_IMAKUNI + jr nz, .asm_e0c6 + get_flag_value EVENT_IMAKUNI_ROOM + cp IMAKUNI_WATER_CLUB + jr z, .asm_e0c8 +.asm_e0c6 + or a + ret +.asm_e0c8 + ld a, $10 + ld [wd111], a + scf + ret +; 0xe0cf -Lass1NPCScript: ; e111 (3:6111) - INCROM $e111, $e137 +Script_Gal1: ; e0cf (3:60cf) + start_script + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_12 + db $02 + dw .ows_e10e + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_12 + db $00 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text041d + tx Text041e + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_12 + db $01 + run_command ScriptCommand_AskQuestionJump + tx Text041f + dw .ows_e0eb + run_command ScriptCommand_PrintTextString + tx Text0420 + run_command ScriptCommand_QuitScriptFully + +.ows_e0eb + run_command Func_cf0c + db $59 + dw .ows_e0f3 + run_command ScriptCommand_PrintTextString + tx Text0421 + run_command ScriptCommand_QuitScriptFully + +.ows_e0f3 + run_command Func_cf12 + db $59 + dw .ows_e0fb + run_command ScriptCommand_PrintTextString + tx Text0422 + run_command ScriptCommand_QuitScriptFully + +.ows_e0fb + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_12 + db $02 + run_command ScriptCommand_PrintTextString + tx Text0423 + run_command Func_ccdc + tx Text0424 + run_command ScriptCommand_TakeCard + db LAPRAS + run_command ScriptCommand_GiveCard + db ARCANINE1 + run_command ScriptCommand_ShowCardReceivedScreen + db ARCANINE1 + run_command ScriptCommand_PrintTextString + tx Text0425 + run_command ScriptCommand_QuitScriptFully + +.ows_e10e + run_command ScriptCommand_PrintTextQuitFully + tx Text0426 + +Script_Lass1: ; e111 (3:6111) + start_script + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_14 + db $01 + dw .ows_e121 + run_command ScriptCommand_PrintTextString + tx Text0427 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_14 + db $01 + run_command ScriptCommand_SetFlagValue + db EVENT_IMAKUNI_STATE + db IMAKUNI_MENTIONED + run_command ScriptCommand_QuitScriptFully + +.ows_e121 + run_command ScriptCommand_JumpIfFlagNotEqual + db EVENT_IMAKUNI_ROOM + db IMAKUNI_WATER_CLUB + dw .ows_e12d + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_TEMP_BATTLED_IMAKUNI + dw .ows_e12d + run_command ScriptCommand_PrintTextQuitFully + tx Text0428 + +.ows_e12d + run_command ScriptCommand_PrintTextQuitFully + tx Text0429 + +Preload_Man2InWaterClubLobby: ; e130 (3:6130) + get_flag_value EVENT_JOSHUA_STATE + cp JOSHUA_BEATEN + ret -Man2NPCScript: ; e137 (3:6137) - INCROM $e137, $e13b +Script_Man2: ; e137 (3:6137) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text042a -Pappy2NPCScript: ; e13b (3:613b) - INCROM $e13b, $e13f +Script_Pappy2: ; e13b (3:613b) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text042b WaterClubMovePlayer: ; e13f (3:613f) ld a, [wPlayerYCoord] cp $8 ret nz - call Func_ca69 - inc sp + get_flag_value EVENT_JOSHUA_STATE cp $2 ret nc - ld a, $21 - ld [wd3ab], a - ld bc, OWSequence_NotReadyToSeeAmy - jp Func_c926 + ld a, NPC_JOSHUA + ld [wTempNPC], a + ld bc, Script_NotReadyToSeeAmy + jp SetNextNPCAndScript WaterClubAfterDuel: ;e157 (3:6157) ld hl, .after_duel_table @@ -3104,162 +4115,525 @@ WaterClubAfterDuel: ;e157 (3:6157) ret .after_duel_table - dw $1f1f - dw OWSequence_BeatSara - dw OWSequence_LostToSara - - dw $2020 - dw OWSequence_BeatAmanda - dw OWSequence_LostToAmanda - - dw $2121 - dw $626c - dw $6260 - - dw $2222 - dw $6322 - dw $6344 + db NPC_SARA + db NPC_SARA + dw Script_BeatSara + dw Script_LostToSara + + db NPC_AMANDA + db NPC_AMANDA + dw Script_BeatAmanda + dw Script_LostToAmanda + + db NPC_JOSHUA + db NPC_JOSHUA + dw Script_BeatJoshua + dw Script_LostToJoshua + + db NPC_AMY + db NPC_AMY + dw Script_BeatAmy + dw Script_LostToAmy db $00 -SaraNPCScript: ; e177 (3:6177) +Script_Sara: ; e177 (3:6177) start_script - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text042c - run_script OWScript_AskQuestionJump + run_command ScriptCommand_AskQuestionJump tx Text042d dw .yes_duel - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text042e - run_script OWScript_EndScriptCloseText + run_command ScriptCommand_QuitScriptFully .yes_duel - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text042f - run_script OWScript_StartBattle - db 2 - db WATERFRONT_POKEMON_DECK_ID ; 6189 + run_command ScriptCommand_StartBattle + db PRIZES_2 + db WATERFRONT_POKEMON_DECK_ID db MUSIC_DUEL_THEME_1 - run_script OWScript_EndScriptCloseText + run_command ScriptCommand_QuitScriptFully -OWSequence_BeatSara: ; e18c (3:618c) +Script_BeatSara: ; e18c (3:618c) start_script - run_script OWScript_SetEventFlags + run_command ScriptCommand_MaxOutFlagValue db EVENT_BEAT_SARA - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text0430 - run_script OWScript_GiveBoosterPacks + run_command ScriptCommand_GiveBoosterPacks db BOOSTER_COLOSSEUM_WATER db BOOSTER_COLOSSEUM_WATER db NO_BOOSTER - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text0431 - run_script OWScript_EndScriptCloseText + run_command ScriptCommand_QuitScriptFully -OWSequence_LostToSara: ; e19a (03:619a) +Script_LostToSara: ; e19a (03:619a) start_script - run_script OWScript_PrintTextCloseBox + run_command ScriptCommand_PrintTextQuitFully tx Text0432 -AmandaNPCScript: ; e19e (03:619e) +Script_Amanda: ; e19e (03:619e) start_script - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text0433 - run_script OWScript_AskQuestionJump + run_command ScriptCommand_AskQuestionJump tx Text0434 dw .yes_duel - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text0435 - run_script OWScript_EndScriptCloseText + run_command ScriptCommand_QuitScriptFully .yes_duel - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text0436 - run_script OWScript_StartBattle - db 03 + run_command ScriptCommand_StartBattle + db PRIZES_3 db LONELY_FRIENDS_DECK_ID db MUSIC_DUEL_THEME_1 - run_script OWScript_EndScriptCloseText + run_command ScriptCommand_QuitScriptFully -OWSequence_BeatAmanda: ; e1b3 (03:61b3) +Script_BeatAmanda: ; e1b3 (03:61b3) start_script - run_script OWScript_SetEventFlags + run_command ScriptCommand_MaxOutFlagValue db EVENT_BEAT_AMANDA - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text0437 - run_script OWScript_GiveBoosterPacks + run_command ScriptCommand_GiveBoosterPacks db BOOSTER_MYSTERY_LIGHTNING_COLORLESS db BOOSTER_MYSTERY_LIGHTNING_COLORLESS db NO_BOOSTER - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text0438 - run_script OWScript_EndScriptCloseText + run_command ScriptCommand_QuitScriptFully -OWSequence_LostToAmanda: ; e1c1 (03:61c1) +Script_LostToAmanda: ; e1c1 (03:61c1) start_script - run_script OWScript_PrintTextCloseBox + run_command ScriptCommand_PrintTextQuitFully tx Text0439 -OWSequence_NotReadyToSeeAmy: - INCROM $e1c5, $e21c - -JoshuaNPCScript: ; e21c (3:621c) +Script_NotReadyToSeeAmy: ; e1c5 (03:61c5) + start_script + run_command ScriptCommand_JumpIfPlayerCoordMatches + db $12 + db $08 + dw .ows_e1ec + run_command ScriptCommand_JumpIfPlayerCoordMatches + db $14 + db $08 + dw .ows_e1f2 + run_command ScriptCommand_JumpIfPlayerCoordMatches + db $18 + db $08 + dw .ows_e1f8 +.ows_e1d5 + run_command ScriptCommand_MovePlayer + db SOUTH + db $04 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e213 + run_command ScriptCommand_PrintTextString + tx Text043a + run_command ScriptCommand_JumpIfPlayerCoordMatches + db $12 + db $0a + dw .ows_e1fe + run_command ScriptCommand_JumpIfPlayerCoordMatches + db $14 + db $0a + dw .ows_e202 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e215 + run_command ScriptCommand_QuitScriptFully + +.ows_e1ec + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e206 + run_command ScriptCommand_Jump + dw .ows_e1d5 +.ows_e1f2 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e20b + run_command ScriptCommand_Jump + dw .ows_e1d5 +.ows_e1f8 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e20f + run_command ScriptCommand_Jump + dw .ows_e1d5 +.ows_e1fe + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e218 + run_command ScriptCommand_QuitScriptFully + +.ows_e202 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e219 + run_command ScriptCommand_QuitScriptFully + +NPCMovement_e206: ; e206 (3:6206) + db NORTH + db WEST + db WEST + db SOUTH | NO_MOVE + db $ff + +NPCMovement_e20b: ; e20b (3:620b) + db NORTH + db WEST + db SOUTH | NO_MOVE + db $ff + +NPCMovement_e20f: ; e20f (3:620f) + db NORTH + db EAST + db SOUTH | NO_MOVE + db $ff + +NPCMovement_e213: ; e213 (3:6213) + db SOUTH + db $ff + +NPCMovement_e215: ; e215 (3:6215) + db WEST + db SOUTH | NO_MOVE + db $ff + +NPCMovement_e218: ; e218 (3:6218) + db EAST +; fallthrough + +NPCMovement_e219: ; e219 (3:6219) + db EAST + db SOUTH | NO_MOVE + db $ff + +Script_Joshua: ; e21c (3:621c) start_script - run_script OWScript_JumpIfFlagNotSet + run_command ScriptCommand_JumpIfFlagZero2 db EVENT_BEAT_AMANDA dw .sara_and_amanda_not_beaten - run_script OWScript_JumpIfFlagNotSet + run_command ScriptCommand_JumpIfFlagZero2 db EVENT_BEAT_SARA dw .sara_and_amanda_not_beaten - run_script OWScript_ScriptJump + run_command ScriptCommand_Jump dw .beat_sara_and_amanda .sara_and_amanda_not_beaten - run_script OWScript_CustomModifyEventFlags - db $33 ; offset on flagmod table - db $01 ; the control bit - run_script OWScript_PrintTextString + run_command ScriptCommand_SetFlagValue + db EVENT_JOSHUA_STATE + db JOSHUA_TALKED + run_command ScriptCommand_PrintTextString tx Text043b - run_script OWScript_EndScriptCloseText + run_command ScriptCommand_QuitScriptFully + .beat_sara_and_amanda - run_script OWScript_JumpIfFlagSet - db $33 - dw $623c - run_script OWScript_CustomModifyEventFlags - db $33 - db $01 - run_script OWScript_PrintTextString + run_command ScriptCommand_JumpIfFlagNonzero1 + db EVENT_JOSHUA_STATE + dw .already_talked + run_command ScriptCommand_SetFlagValue + db EVENT_JOSHUA_STATE + db JOSHUA_TALKED + run_command ScriptCommand_PrintTextString tx Text043b - run_script OWScript_PrintTextString + run_command ScriptCommand_PrintTextString tx Text043c - run_script Func_d484 - db $33 - db $01 +.already_talked + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_JOSHUA_STATE + db JOSHUA_TALKED + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text043d + tx Text043e + run_command ScriptCommand_AskQuestionJump + tx Text043f + dw .startDuel + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_JOSHUA_STATE + db JOSHUA_TALKED + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0440 + tx Text0441 + run_command ScriptCommand_QuitScriptFully + +.startDuel: + run_command ScriptCommand_PrintTextString + tx Text0442 + run_command ScriptCommand_TryGivePCPack + db $04 + run_command ScriptCommand_StartBattle + db PRIZES_4 + db SOUND_OF_THE_WAVES_DECK_ID + db MUSIC_DUEL_THEME_1 + run_command ScriptCommand_QuitScriptFully - INCROM $e23f, $e304 +Script_LostToJoshua: ; e260 (3:6260) + start_script + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_JOSHUA_STATE + db JOSHUA_TALKED + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0443 + tx Text0444 + run_command ScriptCommand_QuitScriptFully + +Script_BeatJoshua: ; e26c (3:626c) + start_script + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_JOSHUA_STATE + db JOSHUA_TALKED + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0445 + tx Text0446 + run_command ScriptCommand_GiveBoosterPacks + db BOOSTER_MYSTERY_WATER_COLORLESS + db BOOSTER_MYSTERY_WATER_COLORLESS + db NO_BOOSTER + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_JOSHUA_STATE + db JOSHUA_TALKED + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0447 + tx Text0448 + run_command ScriptCommand_JumpIfFlagNotEqual + db EVENT_JOSHUA_STATE + db JOSHUA_BEATEN + dw .firstJoshuaWin + run_command ScriptCommand_QuitScriptFully + +.firstJoshuaWin: + run_command ScriptCommand_SetFlagValue + db EVENT_JOSHUA_STATE + db JOSHUA_BEATEN + run_command ScriptCommand_PrintTextString + tx Text0449 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPCByDirection + dw NPCMovementTable_e2a1 + run_command ScriptCommand_PrintTextString + tx Text044a + run_command Func_cfc6 + db $00 + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db NPC_AMY + dw Script_MeetAmy + run_command ScriptCommand_EndScriptLoop1 + ret + +NPCMovementTable_e2a1: ; e2a1 (3:62a1) + dw NPCMovement_e2a9 + dw NPCMovement_e2a9 + dw NPCMovement_e2a9 + dw NPCMovement_e2a9 -AmyNPCScript: ; e304 (3:6304) - INCROM $e304, $e369 +NPCMovement_e2a9: ; e2a9 (3:62a9) + db NORTH + db $ff -Clerk4NPCScript: ; e369 (3:6369) +NPCMovement_e2ab: ; e2ab (3:62ab) + db SOUTH + db $ff + +Preload_Amy: ; e2ad (3:62ad) + xor a + ld [wd3d0], a + ld a, [wd0c2] + or a + jr z, .asm_e2cf + ld a, [wPlayerXCoord] + cp $14 + jr nz, .asm_e2cf + ld a, [wPlayerYCoord] + cp $06 + jr nz, .asm_e2cf + ld a, $14 + ld [wLoadNPCXPos], a + ld a, $01 + ld [wd3d0], a +.asm_e2cf + scf + ret + +Script_MeetAmy: ; e2d1 (3:62d1) + start_script + run_command ScriptCommand_PrintTextString + tx Text044b + run_command ScriptCommand_SetDialogName + db NPC_JOSHUA + run_command ScriptCommand_PrintTextString + tx Text044c + run_command ScriptCommand_SetDialogName + db NPC_AMY + run_command ScriptCommand_PrintTextString + tx Text044d + run_command ScriptCommand_CloseTextBox + run_command Func_d095 + db $09 + db $2f + db $10 + run_command ScriptCommand_DoFrames + db $20 + run_command Func_d095 + db $04 + db $0e + db $00 + run_command Func_d0be + db $14 + db $04 + run_command ScriptCommand_SetPlayerDirection + db $03 + run_command ScriptCommand_MovePlayer + db WEST + db $01 + run_command ScriptCommand_SetPlayerDirection + db $00 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MoveArbitraryNPC + db NPC_JOSHUA + dw NPCMovement_e2ab + run_command ScriptCommand_PrintTextString + tx Text044e + run_command ScriptCommand_Jump + dw Script_Amy.askConfirmDuel + +Script_Amy: ; e304 (3:6304) + start_script + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_BEAT_AMY + dw ScriptJump_TalkToAmyAgain + run_command ScriptCommand_PrintTextString + tx Text044f +.askConfirmDuel + run_command ScriptCommand_AskQuestionJump + tx Text0450 + dw .startDuel + +.denyDuel + run_command ScriptCommand_PrintTextString + tx Text0451 + run_command Func_d0d9 + db $14 + db $04 + dw Script_LostToAmy.ows_e34e + run_command ScriptCommand_QuitScriptFully + +.startDuel + run_command ScriptCommand_PrintTextString + tx Text0452 + run_command ScriptCommand_StartBattle + db PRIZES_6 + db GO_GO_RAIN_DANCE_DECK_ID + db MUSIC_DUEL_THEME_2 + run_command ScriptCommand_QuitScriptFully + +Script_BeatAmy: ; e322 (3:6322) + start_script + run_command ScriptCommand_PrintTextString + tx Text0453 + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_BEAT_AMY + dw .beatAmyCommon + run_command ScriptCommand_PrintTextString + tx Text0454 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_BEAT_AMY + run_command ScriptCommand_TryGiveMedalPCPacks + run_command Func_d125 + db EVENT_BEAT_AMY + run_command Func_d435 + db $03 + run_command ScriptCommand_PrintTextString + tx Text0455 +.beatAmyCommon + run_command ScriptCommand_GiveBoosterPacks + db BOOSTER_LABORATORY_WATER + db BOOSTER_LABORATORY_WATER + db NO_BOOSTER + run_command ScriptCommand_PrintTextString + tx Text0456 + run_command Func_d0d9 + db $14 + db $04 + dw Script_LostToAmy.ows_e34e + run_command ScriptCommand_QuitScriptFully + +Script_LostToAmy: ; e344 (3:6344) + start_script + run_command ScriptCommand_PrintTextString + tx Text0457 + run_command Func_d0d9 + db $14 + db $04 + dw .ows_e34e + run_command ScriptCommand_QuitScriptFully + +.ows_e34e + run_command Func_d095 + db $08 + db $2e + db $10 + run_command Func_d0be + db $16 + db $04 + run_command ScriptCommand_QuitScriptFully + +ScriptJump_TalkToAmyAgain: ; e356 (3:6356) + run_command ScriptCommand_PrintTextString + tx Text0458 + run_command ScriptCommand_AskQuestionJump + tx Text0450 + dw .startDuel + run_command ScriptCommand_Jump + dw Script_Amy.denyDuel + +.startDuel + run_command ScriptCommand_PrintTextString + tx Text0459 + run_command ScriptCommand_StartBattle + db PRIZES_6 + db GO_GO_RAIN_DANCE_DECK_ID + db MUSIC_DUEL_THEME_2 + run_command ScriptCommand_QuitScriptFully +; 0xe369 + +Script_Clerk4: ; e369 (3:6369) INCROM $e369, $e39a -Chap2NPCScript: ; e39a (3:639a) +Script_Chap2: ; e39a (3:639a) INCROM $e39a, $e3d9 -Lass4NPCScript: ; e3d9 (3:63d9) +Script_Lass4: ; e3d9 (3:63d9) INCROM $e3d9, $e3dd -Hood1NPCScript: ; e3dd (3:63dd) +Script_Hood1: ; e3dd (3:63dd) INCROM $e3dd, $e408 -JenniferNPCScript: ; e408 (3:6408) +Script_Jennifer: ; e408 (3:6408) INCROM $e408, $e42f -NicholasNPCScript: ; e42f (3:642f) +Script_Nicholas: ; e42f (3:642f) INCROM $e42f, $e456 -BrandonNPCScript: ; e456 (3:6456) +Script_Brandon: ; e456 (3:6456) INCROM $e456, $e4ad -IsaacNPCScript: ; e4ad (3:64ad) - INCROM $e4ad, $e52c +Script_Isaac: ; e4ad (3:64ad) + INCROM $e4ad, $e525 + +GrassClubEntranceAfterDuel: ; e525 (3:6525) + ld hl, GrassClubEntranceAfterDuelTable + call FindEndOfBattleScript + ret FindEndOfBattleScript: ; e52c (3:652c) ld c, $0 @@ -3283,168 +4657,1790 @@ FindEndOfBattleScript: ; e52c (3:652c) .found_enemy ld a, [hli] - ld [wd3ab], a + ld [wTempNPC], a ld b, $0 add hl, bc ld c, [hl] inc hl ld b, [hl] - jp Func_c926 + jp SetNextNPCAndScript ; 0xe553 - INCROM $e553, $e566 +GrassClubEntranceAfterDuelTable: ; e553 (3:6553) + db NPC_MICHAEL + db NPC_MICHAEL + dw $6597 + dw $65ab + + db NPC_RONALD2 + db NPC_RONALD2 + dw Script_BeatFirstRonaldFight + dw Script_LostToFirstRonaldFight + + db NPC_RONALD3 + db NPC_RONALD3 + dw Script_BeatSecondRonaldFight + dw Script_LostToSecondRonaldFight + db $00 -Clerk5NPCScript: ; e566 (3:6566) +Script_Clerk5: ; e566 (3:6566) INCROM $e566, $e573 -MichaelNPCScript: ; e573 (3:6573) - INCROM $e573, $e5d2 +Script_Michael: ; e573 (3:6573) + INCROM $e573, $e5c4 + +GrassClubLobbyAfterDuel: ; e5c4 (3:65c4) + ld hl, .after_duel_table + call FindEndOfBattleScript + ret -BrittanyNPCScript: ; e5d2 (3:65d2) - INCROM $e5d2, $e61f +.after_duel_table + db NPC_BRITTANY + db NPC_BRITTANY + dw Script_BeatBrittany + dw Script_LostToBrittany + db $00 -Lass2NPCScript: ; e61f (3:661f) - INCROM $e61f, $e6d8 +Script_Brittany: ; e5d2 (3:65d2) + start_script + run_command ScriptCommand_JumpIfFlagLessThan + db EVENT_FLAG_35 + db $01 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text06e0 + tx Text06e1 + run_command ScriptCommand_AskQuestionJump + tx Text06e2 + dw .wantToDuel + run_command ScriptCommand_PrintTextString + tx Text06e3 + run_command ScriptCommand_QuitScriptFully + +.wantToDuel + run_command ScriptCommand_PrintTextString + tx Text06e4 + run_command ScriptCommand_StartBattle + db PRIZES_4 + db ETCETERA_DECK_ID + db MUSIC_DUEL_THEME_1 + run_command ScriptCommand_QuitScriptFully -Granny2NPCScript: ; e6d8 (3:66d8) +Script_BeatBrittany: ; e5ee (3:65ee) + start_script + run_command ScriptCommand_PrintTextString + tx Text06e5 + run_command ScriptCommand_GiveBoosterPacks + db BOOSTER_MYSTERY_GRASS_COLORLESS + db BOOSTER_MYSTERY_GRASS_COLORLESS + db NO_BOOSTER + run_command ScriptCommand_JumpIfFlagLessThan + db EVENT_FLAG_35 + db $02 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text06e6 + tx Text06e7 + run_command ScriptCommand_MaxOutFlagValue + db FLAG_BEAT_BRITTANY + run_command ScriptCommand_JumpIfFlagNotLessThan + db EVENT_FLAG_35 + db $02 + dw .finishScript + run_command ScriptCommand_JumpIfFlagZero2 + db EVENT_FLAG_3A + dw .finishScript + run_command ScriptCommand_JumpIfFlagZero2 + db EVENT_FLAG_3B + dw .finishScript + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_35 + db $01 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_1E + run_command ScriptCommand_PrintTextString + tx Text06e8 +.finishScript + run_command ScriptCommand_QuitScriptFully + +Script_LostToBrittany: ; e618 (3:6618) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text06e9 +; 0xe61c + +Script_e61c: ; e61c (3:661c) + run_command ScriptCommand_PrintTextQuitFully + tx Text06ea + +Script_Lass2: ; e61f (3:661f) + start_script + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_FLAG_04 + dw Script_e61c + run_command ScriptCommand_JumpIfFlagNotLessThan + db EVENT_FLAG_37 + db $06 + dw Script_e61c + run_command ScriptCommand_JumpIfFlagNotLessThan + db EVENT_FLAG_37 + db $04 + dw .ows_e6a1 + run_command ScriptCommand_JumpIfFlagNotLessThan + db EVENT_FLAG_37 + db $02 + dw .ows_e66a + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_37 + db $00 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text06eb + tx Text06ec + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_37 + db $01 + run_command ScriptCommand_AskQuestionJump + tx Text06ed + dw .ows_e648 + run_command ScriptCommand_PrintTextQuitFully + tx Text06ee + +.ows_e648 + run_command Func_cf0c + db $1c + dw .ows_e64f + run_command ScriptCommand_PrintTextQuitFully + tx Text06ef + +.ows_e64f + run_command Func_cf12 + db $1c + dw .ows_e656 + run_command ScriptCommand_PrintTextQuitFully + tx Text06f0 + +.ows_e656 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_04 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_37 + db $02 + run_command ScriptCommand_PrintTextString + tx Text06f1 + run_command Func_ccdc + tx Text06f2 + run_command ScriptCommand_TakeCard + db ODDISH + run_command ScriptCommand_GiveCard + db VILEPLUME + run_command ScriptCommand_ShowCardReceivedScreen + db VILEPLUME + run_command ScriptCommand_PrintTextQuitFully + tx Text06f3 + +.ows_e66a + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_37 + db $02 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text06f4 + tx Text06f5 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_37 + db $03 + run_command ScriptCommand_AskQuestionJump + tx Text06ed + dw .ows_e67f + run_command ScriptCommand_PrintTextQuitFully + tx Text06f6 + +.ows_e67f + run_command Func_cf0c + db $ab + dw .ows_e686 + run_command ScriptCommand_PrintTextQuitFully + tx Text06f7 + +.ows_e686 + run_command Func_cf12 + db $ab + dw .ows_e68d + run_command ScriptCommand_PrintTextQuitFully + tx Text06f8 + +.ows_e68d + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_04 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_37 + db $04 + run_command ScriptCommand_PrintTextString + tx Text06f9 + run_command Func_ccdc + tx Text06fa + run_command ScriptCommand_TakeCard + db CLEFAIRY + run_command ScriptCommand_GiveCard + db PIKACHU3 + run_command ScriptCommand_ShowCardReceivedScreen + db PIKACHU3 + run_command ScriptCommand_PrintTextQuitFully + tx Text06f3 + +.ows_e6a1 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_37 + db $04 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text06fb + tx Text06fc + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_37 + db $05 + run_command ScriptCommand_AskQuestionJump + tx Text06ed + dw .ows_e6b6 + run_command ScriptCommand_PrintTextQuitFully + tx Text06fd + +.ows_e6b6 + run_command Func_cf0c + db $32 + dw .ows_e6bd + run_command ScriptCommand_PrintTextQuitFully + tx Text06fe + +.ows_e6bd + run_command Func_cf12 + db $32 + dw .ows_e6c4 + run_command ScriptCommand_PrintTextQuitFully + tx Text06ff + +.ows_e6c4 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_04 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_37 + db $06 + run_command ScriptCommand_PrintTextString + tx Text0700 + run_command Func_ccdc + tx Text0701 + run_command ScriptCommand_TakeCard + db CHARIZARD + run_command ScriptCommand_GiveCard + db BLASTOISE + run_command ScriptCommand_ShowCardReceivedScreen + db BLASTOISE + run_command ScriptCommand_PrintTextQuitFully + tx Text06f3 +; 0xe6d8 + +Script_Granny2: ; e6d8 (3:66d8) INCROM $e6d8, $e6e3 -Gal2NPCScript: ; e6e3 (3:66e3) +Script_Gal2: ; e6e3 (3:66e3) INCROM $e6e3, $e701 -KristinNPCScript: ; e701 (3:6701) +Script_Kristin: ; e701 (3:6701) INCROM $e701, $e745 -HeatherNPCScript: ; e745 (3:6745) +Script_Heather: ; e745 (3:6745) INCROM $e745, $e79e -NikkiNPCScript: ; e79e (3:679e) - INCROM $e79e, $e84c +Script_Nikki: ; e79e (3:679e) + INCROM $e79e, $e7f6 + +ClubEntranceAfterDuel: ; e7f6 (3:67f6) + ld hl, .after_duel_table + jp FindEndOfBattleScript + +.after_duel_table + db NPC_RONALD2 + db NPC_RONALD2 + dw Script_BeatFirstRonaldFight + dw Script_LostToFirstRonaldFight + + db NPC_RONALD3 + db NPC_RONALD3 + dw Script_BeatSecondRonaldFight + dw Script_LostToSecondRonaldFight + db $00 + +; A Ronald is already loaded or not loaded depending on Pre-Load scripts +; in data/npc_map_data.asm. This just starts a script if possible. +LoadClubEntrance: ; e809 (3:6809) + call TryFirstRonaldFight + call TrySecondRonaldFight + call TryFirstRonaldEncounter + ret + +TryFirstRonaldEncounter: ; e813 (3:6813) + ld a, NPC_RONALD1 + ld [wTempNPC], a + call FindLoadedNPC + ret c + ld bc, Script_FirstRonaldEncounter + jp SetNextNPCAndScript + +TryFirstRonaldFight: ; e822 (3:6822) + ld a, NPC_RONALD2 + ld [$d3ab], a + call FindLoadedNPC + ret c + get_flag_value EVENT_FLAG_4C + or a + ret nz + ld bc, Script_FirstRonaldFight + jp SetNextNPCAndScript + +TrySecondRonaldFight: ; e837 (3:6837) + ld a, NPC_RONALD3 + ld [$d3ab], a + call FindLoadedNPC + ret c + get_flag_value EVENT_FLAG_4D + or a + ret nz + ld bc, ScriptSecondRonaldFight + jp SetNextNPCAndScript +; 0xe84c -Clerk6NPCScript: ; e84c (3:684c) +Script_Clerk6: ; e84c (3:684c) INCROM $e84c, $e850 -Lad3NPCScript: ; e850 (3:6850) - INCROM $e850, $e980 +Script_Lad3: ; e850 (3:6850) + INCROM $e850, $e862 + +Script_FirstRonaldEncounter: ; e862 (3:6862) + start_script + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_4B + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e894 + run_command Func_d135 + db $00 + run_command ScriptCommand_PrintTextString + tx Text0645 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_PrintTextString + tx Text0646 + run_command ScriptCommand_AskQuestionJumpDefaultYes + dw 0000 + dw .ows_e882 + run_command ScriptCommand_PrintTextString + tx Text0647 + run_command ScriptCommand_Jump + dw .ows_e885 + +.ows_e882 + run_command ScriptCommand_PrintTextString + tx Text0648 +.ows_e885 + run_command ScriptCommand_PrintTextString + tx Text0649 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_SetPlayerDirection + db $03 + run_command ScriptCommand_MovePlayer + db EAST + db $04 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e894 + run_command Func_cdcb + run_command Func_d41d + run_command ScriptCommand_QuitScriptFully + +NPCMovement_e894: ; e894 (3:6894) + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db $ff +; e89a + + INCROM $e89a, $e8c0 + +Script_FirstRonaldFight: ; e8c0 (3:68c0) + start_script + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e905 + run_command ScriptCommand_DoFrames + db $3c + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e90d + run_command ScriptCommand_PrintTextString + tx Text064a + run_command ScriptCommand_JumpIfPlayerCoordMatches + db $08 + db $02 + dw $68d6 + run_command ScriptCommand_SetPlayerDirection + db WEST + run_command ScriptCommand_MovePlayer + db WEST + db $01 + run_command ScriptCommand_SetPlayerDirection + db SOUTH + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_PrintTextString + tx Text064b + run_command ScriptCommand_SetFlagValue + db $4c + db $01 + run_command ScriptCommand_StartBattle + db PRIZES_6 + db IM_RONALD_DECK_ID + db MUSIC_RONALD + run_command ScriptCommand_QuitScriptFully + +Script_BeatFirstRonaldFight: ; e8e9 (3:68e9) + start_script + run_command ScriptCommand_PrintTextString + tx Text064c + run_command ScriptCommand_GiveCard + db JIGGLYPUFF1 + run_command ScriptCommand_ShowCardReceivedScreen + db JIGGLYPUFF1 + run_command ScriptCommand_PrintTextString + tx Text064d + run_command ScriptCommand_Jump + dw ScriptJump_FinishedFirstRonaldFight + +Script_LostToFirstRonaldFight: ; e8f7 (3:68f7) + start_script + run_command ScriptCommand_PrintTextString + tx Text064e + +ScriptJump_FinishedFirstRonaldFight + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_4C + db $02 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e90f + run_command Func_cdcb + run_command Func_d41d + run_command ScriptCommand_QuitScriptFully + +NPCMovement_e905: ; e905 (3:6905) + db EAST + db EAST + db EAST + db EAST + db EAST + db SOUTH + db NORTH | NO_MOVE + db $ff + +NPCMovement_e90d: ; e90d (3:690d) + db NORTH + db $ff + +NPCMovement_e90f: ; e90f (3:690f) + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db $ff +; e915 + + INCROM $e915, $e91e + +ScriptSecondRonaldFight: ; e91e (3:691e) + start_script + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e905 + run_command ScriptCommand_DoFrames + db 60 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e90d + run_command ScriptCommand_PrintTextString + tx Text064f + run_command ScriptCommand_JumpIfPlayerCoordMatches + db $08 + db $02 + dw .ows_6934 + run_command ScriptCommand_SetPlayerDirection + db WEST + run_command ScriptCommand_MovePlayer + db WEST + db $01 +.ows_6934 + run_command ScriptCommand_SetPlayerDirection + db SOUTH + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_PrintTextString + tx Text0650 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_4D + db $01 + run_command ScriptCommand_StartBattle + db PRIZES_6 + db POWERFUL_RONALD_DECK_ID + db MUSIC_RONALD + run_command ScriptCommand_QuitScriptFully + +Script_BeatSecondRonaldFight: ; e947 (3:6947) + start_script + run_command ScriptCommand_PrintTextString + tx Text0651 + run_command ScriptCommand_GiveCard + db SUPER_ENERGY_RETRIEVAL + run_command ScriptCommand_ShowCardReceivedScreen + db SUPER_ENERGY_RETRIEVAL + run_command ScriptCommand_PrintTextString + tx Text0652 + run_command ScriptCommand_Jump + dw ScriptJump_FinishedSecondRonaldFight + +Script_LostToSecondRonaldFight: ; e955 (3:6955) + start_script + run_command ScriptCommand_PrintTextString + tx Text0653 + +ScriptJump_FinishedSecondRonaldFight ; e959 (3:6959) + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_4D + db $02 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_e90f + run_command Func_cdcb + run_command Func_d41d + run_command ScriptCommand_QuitScriptFully +; 0xe963 + + INCROM $e963, $e980 -RobertNPCScript: ; e980 (3:6980) +Script_Robert: ; e980 (3:6980) INCROM $e980, $e9a5 -Pappy1NPCScript: ; e9a5 (3:69a5) +Script_Pappy1: ; e9a5 (3:69a5) INCROM $e9a5, $ea30 -Gal3NPCScript: ; ea30 (3:6a30) +Script_Gal3: ; ea30 (3:6a30) INCROM $ea30, $ea3b -Chap4NPCScript: ; ea3b (3:6a3b) +Script_Chap4: ; ea3b (3:6a3b) INCROM $ea3b, $ea60 -DanielNPCScript: ; ea60 (3:6a60) +Script_Daniel: ; ea60 (3:6a60) INCROM $ea60, $eaa2 -StephanieNPCScript: ; eaa2 (3:6aa2) +Script_Stephanie: ; eaa2 (3:6aa2) INCROM $eaa2, $eadf -Murray2NPCScript: ; eadf (3:6adf) +Script_Murray2: ; eadf (3:6adf) INCROM $eadf, $eadf -MurrayNPCScript: ; eadf (3:6adf) +Script_Murray1: ; eadf (3:6adf) INCROM $eadf, $eb53 -Clerk7NPCScript: ; eb53 (3:6b53) +Script_Clerk7: ; eb53 (3:6b53) INCROM $eb53, $eb84 -Lad1NPCScript: ; eb84 (3:6b84) +Script_Lad1: ; eb84 (3:6b84) INCROM $eb84, $ebc1 -Man3NPCScript: ; ebc1 (3:6bc1) +Script_Man3: ; ebc1 (3:6bc1) INCROM $ebc1, $ebc5 -Specs2NPCScript: ; ebc5 (3:6bc5) +Script_Specs2: ; ebc5 (3:6bc5) INCROM $ebc5, $ebed -Specs3NPCScript: ; ebed (3:6bed) +Script_Specs3: ; ebed (3:6bed) INCROM $ebed, $ec11 -DavidNPCScript: ; ec11 (3:6c11) +Script_David: ; ec11 (3:6c11) INCROM $ec11, $ec42 -ErikNPCScript: ; ec42 (3:6c42) +Script_Erik: ; ec42 (3:6c42) INCROM $ec42, $ec67 -RickNPCScript: ; ec67 (3:6c67) +Script_Rick: ; ec67 (3:6c67) INCROM $ec67, $ecdb -JosephNPCScript: ; ecdb (3:6cdb) +Script_Joseph: ; ecdb (3:6cdb) INCROM $ecdb, $ed45 -Clerk8NPCScript: ; ed45 (3:6d45) - INCROM $ed45, $ed96 +Script_Clerk8: ; ed45 (3:6d45) + INCROM $ed45, $ed57 + +FireClubPressedA: ; ed57 (3:6d57) + ld hl, SlowpokePaintingObjectTable + call FindExtraInteractableObjects + ret + +SlowpokePaintingObjectTable: ; ed5e (3:6d5e) + db 16, 2, NORTH + dw Script_ee76 + db $00 + +; Given a table with data of the form: +; X, Y, Dir, Script +; Searches to try to find a match, and starts a Script if possible +FindExtraInteractableObjects: ; ed64 (3:6d64) + ld de, $5 +.findObjectMatchLoop + ld a, [hl] + or a + ret z + push hl + ld a, [wPlayerXCoord] + cp [hl] + jr nz, .didNotMatch + inc hl + ld a, [wPlayerYCoord] + cp [hl] + jr nz, .didNotMatch + inc hl + ld a, [wPlayerDirection] + cp [hl] + jr z, .foundObject +.didNotMatch + pop hl + add hl, de + jr .findObjectMatchLoop +.foundObject + inc hl + ld c, [hl] + inc hl + ld b, [hl] + pop hl + call SetNextScript + scf + ret +; 0xed8d + + INCROM $ed8d, $ed96 -JessicaNPCScript: ; ed96 (3:6d96) +Script_Jessica: ; ed96 (3:6d96) INCROM $ed96, $ede8 -Chap3NPCScript: ; ede8 (3:6de8) +Script_Chap3: ; ede8 (3:6de8) INCROM $ede8, $ee2c -Lad2NPCScript: ; ee2c (3:6e2c) - INCROM $ee2c, $ee88 +Script_Lad2: ; ee2c (3:6e2c) + INCROM $ee2c, $ee76 + +Script_ee76: ; ee76 (3:6e76) + start_script + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_21 + db $01 + dw .ows_ee7d + run_command ScriptCommand_QuitScriptFully -ManiaNPCScript: ; ee88 (3:6e88) +.ows_ee7d + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_21 + db $02 + run_command Func_ccdc + tx Text06a2 + run_command ScriptCommand_GiveCard + db SLOWPOKE1 + run_command ScriptCommand_ShowCardReceivedScreen + db SLOWPOKE1 + run_command ScriptCommand_QuitScriptFully +; 0xee88 + +Script_Mania: ; ee88 (3:6e88) INCROM $ee88, $eeb3 -JohnNPCScript: ; eeb3 (3:6eb3) +Script_John: ; eeb3 (3:6eb3) INCROM $eeb3, $eed8 -AdamNPCScript: ; eed8 (3:6ed8) +Script_Adam: ; eed8 (3:6ed8) INCROM $eed8, $eefd -JonathanNPCScript: ; eefd (3:6efd) +Script_Jonathan: ; eefd (3:6efd) INCROM $eefd, $ef22 -KenNPCScript: ; ef22 (3:6f22) - INCROM $ef22, $f025 +Script_Ken: ; ef22 (3:6f22) + INCROM $ef22, $ef96 + +Preload_Clerk9: ; ef96 (3:6f96) + call TryGiveMedalPCPacks + get_flag_value EVENT_MEDAL_COUNT + ld hl, .jumpTable + cp $09 + jp c, JumpToFunctionInTable + debug_ret + jr .asm_efe4 + +.jumpTable + dw .asm_efe4 + dw .asm_efe4 + dw .asm_efe4 + dw .asm_efba + dw .asm_efde + dw .asm_efc9 + dw .asm_efd8 + dw .asm_efd8 + dw .asm_efd8 + +.asm_efba + get_flag_value EVENT_FLAG_3F + or a + jr nz, .asm_efe4 + ld c, $01 + set_flag_value EVENT_FLAG_3F + jr .asm_efe4 + +.asm_efc9 + get_flag_value EVENT_FLAG_40 + or a + jr nz, .asm_efde + ld c, $01 + set_flag_value EVENT_FLAG_40 + jr .asm_efde + +.asm_efd8 + ld c, $07 + set_flag_value EVENT_FLAG_40 +.asm_efde + ld c, $07 + set_flag_value EVENT_FLAG_3F +.asm_efe4 + zero_flag_value EVENT_FLAG_42 + get_flag_value EVENT_FLAG_3F + cp $00 + jr z, .asm_eff8 + cp $07 + jr z, .asm_eff8 + ld c, $01 + jr .asm_f016 + +.asm_eff8 + get_flag_value EVENT_FLAG_40 + cp $00 + jr z, .asm_f008 + cp $07 + jr z, .asm_f008 + ld c, $02 + jr .asm_f016 + +.asm_f008 + get_flag_value EVENT_FLAG_41 + cp $00 + jr z, .asm_f023 + cp $07 + jr z, .asm_f023 + ld c, $03 +.asm_f016 + set_flag_value EVENT_FLAG_44 + max_flag_value EVENT_FLAG_42 + ld a, $0b + ld [wd111], a +.asm_f023 + scf + ret + +Script_Clerk9: ; f025 (3:7025) + start_script + run_command ScriptCommand_JumpIfFlagZero1 + db EVENT_FLAG_3F + dw .ows_f066 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_41 + db $07 + dw .ows_f069 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_41 + db $03 + dw .ows_f06f + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_41 + db $02 + dw .ows_f072 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_41 + db $01 + dw .ows_f06c + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_40 + db $07 + dw .ows_f069 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_40 + db $03 + dw .ows_f06f + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_40 + db $02 + dw .ows_f072 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_40 + db $01 + dw .ows_f06c + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_3F + db $07 + dw .ows_f069 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_3F + db $03 + dw .ows_f06f + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_3F + db $02 + dw .ows_f072 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_3F + db $01 + dw .ows_f06c +.ows_f066 + run_command ScriptCommand_PrintTextQuitFully + tx Text050a + +.ows_f069 + run_command ScriptCommand_PrintTextQuitFully + tx Text050b + +.ows_f06c + run_command ScriptCommand_PrintTextQuitFully + tx Text050c + +.ows_f06f + run_command ScriptCommand_PrintTextQuitFully + tx Text050d + +.ows_f072 + run_command ScriptCommand_PrintTextQuitFully + tx Text050e + +Preload_ChallengeHallNPCs2: ; f075 (3:7075) + call Preload_ChallengeHallNPCs1 + ccf + ret + +Preload_ChallengeHallNPCs1: ; f07a (3:707a) + get_flag_value EVENT_FLAG_42 + or a + jr z, .quit + ld a, $0b + ld [wd111], a + scf +.quit + ret + +ChallengeHallLobbyLoadMap: ; f088 (3:7088) + get_flag_value EVENT_FLAG_58 + or a + ret z + ld a, $02 + ld [wTempNPC], a + call FindLoadedNPC + ld bc, $7166 + jp SetNextNPCAndScript + +Script_Pappy3: ; f09c (3:709c) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text050f + +Script_Gal4: ; f0a0 (3:70a0) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text0510 + +Script_Champ: ; f0a4 (3:70a4) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text0511 + +Script_Hood2: ; f0a8 (3:70a8) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text0512 + +Script_Lass5: ; f0ac (3:70ac) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text0513 + +Script_Chap5: ; f0b0 (3:70b0) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text0514 + +Preload_ChallengeHallLobbyRonald1: ; f0b4 (3:70b4) + zero_flag_value2 EVENT_FLAG_58 + get_flag_value EVENT_RECEIVED_LEGENDARY_CARD + or a + jr nz, .asm_f0ff + get_flag_value EVENT_FLAG_59 + or a + jr nz, .asm_f11f + get_flag_value EVENT_FLAG_40 + cp $00 + jr z, .asm_f0e5 + call .asm_710f + get_flag_value EVENT_FLAG_40 + ld e, a + get_flag_value EVENT_FLAG_49 + ld d, a + ld hl, Unknown_f156 + call Func_f121 + jr nc, .asm_f11f + jr .asm_f0f7 +.asm_f0e5 + get_flag_value EVENT_FLAG_3F + ld e, a + get_flag_value EVENT_FLAG_48 + ld d, a + ld hl, Unknown_f146 + call Func_f121 + jr nc, .asm_f11f +.asm_f0f7 + ld a, [wPlayerYCoord] + ld [wLoadNPCYPos], a + scf + ret +.asm_f0ff + max_flag_value EVENT_FLAG_54 + max_flag_value EVENT_FLAG_55 + max_flag_value EVENT_FLAG_56 + max_flag_value EVENT_FLAG_57 +.asm_710f + max_flag_value EVENT_FLAG_50 + max_flag_value EVENT_FLAG_51 + max_flag_value EVENT_FLAG_52 + max_flag_value EVENT_FLAG_53 +.asm_f11f + or a + ret + +Func_f121: ; f121 (3:7121) + ld c, $04 +.asm_f123 + ld a, [hli] + cp e + jr nz, .asm_f13e + ld a, [hli] + cp d + jr nz, .asm_f13f + ld a, [hl] + call GetEventFlagValue + or a + jr nz, .asm_f13f + ld a, [hl] + call MaxOutEventFlag + inc hl + ld c, [hl] + set_flag_value EVENT_FLAG_58 + scf + ret +.asm_f13e + inc hl +.asm_f13f + inc hl + inc hl + dec c + jr nz, .asm_f123 + or a + ret +; 0xf146 + +Unknown_f146: ; f146 (3:7146) + INCROM $f146, $f156 -Clerk9NPCScript: ; f025 (3:7025) - INCROM $f025, $f09c +Unknown_f156: ; f156 (3:7156) + INCROM $f156, $f239 + +ChallengeHallAfterDuel: ; f239 (3:7239) + ld c, $00 + ld a, [wDuelResult] + or a + jr z, .won + ld c, $02 +.won + ld b, $00 + ld hl, ChallengeHallAfterDuelTable + add hl, bc + ld c, [hl] + inc hl + ld b, [hl] + ld a, NPC_HOST + ld [wTempNPC], a + jp SetNextNPCAndScript + +ChallengeHallAfterDuelTable: + dw WonAtChallengeHall + dw LostAtChallengeHall + +ChallengeHallLoadMap: ; f258 (3:7258) + get_flag_value EVENT_FLAG_47 + or a + ret z + ld a, NPC_HOST + ld [wTempNPC], a + call FindLoadedNPC + ld bc, Script_f433 + jp SetNextNPCAndScript + +Script_Clerk13: ; f26c (3:726c) + start_script + run_command ScriptCommand_PrintTextQuitFully + tx Text0525 + +Preload_Guide: ; f270 (3:7270) + get_flag_value EVENT_FLAG_42 + or a + jr z, .asm_f281 + ld a, $1c + ld [wLoadNPCXPos], a + ld a, $02 + ld [wLoadNPCYPos], a +.asm_f281 + scf + ret +; 0xf283 -Pappy3NPCScript: ; f09c (3:709c) - INCROM $f09c, $f0a0 +Script_Guide: ; f283 (3:7283) + start_script + run_command ScriptCommand_JumpIfFlagZero2 + db EVENT_FLAG_42 + dw .ows_f28b + run_command ScriptCommand_PrintTextQuitFully + tx Text0526 + +.ows_f28b + run_command ScriptCommand_JumpIfFlagZero1 + db $3f + dw .ows_f292 + run_command ScriptCommand_PrintTextQuitFully + tx Text0527 -Gal4NPCScript: ; f0a0 (3:70a0) - INCROM $f0a0, $f0a4 +.ows_f292 + run_command ScriptCommand_PrintTextQuitFully + tx Text0528 -ChampNPCScript: ; f0a4 (3:70a4) - INCROM $f0a4, $f0a8 +Script_Clerk12: ; f295 (3:7295) + start_script + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_41 + db $03 + dw .ows_f2c4 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_41 + db $02 + dw .ows_f2c1 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_40 + db $03 + dw .ows_f2c4 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_40 + db $02 + dw .ows_f2c1 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_3F + db $03 + dw .ows_f2c4 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_3F + db $02 + dw .ows_f2c1 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $02 + dw .ows_f2cd + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $03 + dw .ows_f2d3 + run_command ScriptCommand_Jump + dw .ows_f2c7 + +.ows_f2c1 + run_command ScriptCommand_PrintTextQuitFully + tx Text0529 + +.ows_f2c4 + run_command ScriptCommand_PrintTextQuitFully + tx Text052a + +.ows_f2c7 + run_command ScriptCommand_PrintTextString + tx Text052b + run_command ScriptCommand_Jump + dw .ows_f2d6 + +.ows_f2cd + run_command ScriptCommand_PrintTextString + tx Text052c + run_command ScriptCommand_Jump + dw .ows_f2d6 + +.ows_f2d3 + run_command ScriptCommand_PrintTextString + tx Text052d +.ows_f2d6 + run_command ScriptCommand_PrintTextString + tx Text052e + run_command ScriptCommand_AskQuestionJump + tx Text052f + dw .ows_f2e1 + run_command ScriptCommand_PrintTextQuitFully + tx Text0530 + +.ows_f2e1 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_59 + run_command ScriptCommand_PrintTextString + tx Text0531 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f349 + run_command ScriptCommand_JumpIfPlayerCoordMatches + db 8 + db 18 + dw .ows_f2fa + run_command ScriptCommand_JumpIfPlayerCoordMatches + db 12 + db 18 + dw .ows_f302 + run_command ScriptCommand_MovePlayer + db NORTH + db $02 + run_command ScriptCommand_Jump + dw .ows_f307 + +.ows_f2fa + run_command ScriptCommand_SetPlayerDirection + db EAST + run_command ScriptCommand_MovePlayer + db EAST + db $02 + run_command ScriptCommand_Jump + dw .ows_f307 + +.ows_f302 + run_command ScriptCommand_SetPlayerDirection + db WEST + run_command ScriptCommand_MovePlayer + db WEST + db $02 +.ows_f307 + run_command ScriptCommand_SetPlayerDirection + db NORTH + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_FLAG_43 + dw .ows_f33a + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_43 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_MovePlayer + db NORTH + db $01 + run_command ScriptCommand_SetPlayerDirection + db EAST + run_command ScriptCommand_DoFrames + db 30 + run_command ScriptCommand_SetPlayerDirection + db SOUTH + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_SetPlayerDirection + db EAST + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_SetPlayerDirection + db SOUTH + run_command ScriptCommand_DoFrames + db 30 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 +.ows_f33a + run_command ScriptCommand_SetPlayerDirection + db EAST + run_command ScriptCommand_MovePlayer + db EAST + db $01 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f34e + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db $4a + dw Script_f353 + run_command ScriptCommand_EndScriptLoop1 + ret +; f349 -Hood2NPCScript: ; f0a8 (3:70a8) - INCROM $f0a8, $f0ac +NPCMovement_f349: ; f349 (3:7349) + db NORTH + db NORTH + db EAST +; fallthrough -Lass5NPCScript: ; f0ac (3:70ac) - INCROM $f0ac, $f0b0 +NPCMovement_f34c: ; f34c (3:734c) + db WEST | NO_MOVE + db $ff -Chap5NPCScript: ; f0b0 (3:70b0) - INCROM $f0b0, $f26c +NPCMovement_f34e: ; f34e (3:734e) + db WEST + db SOUTH + db SOUTH + db $ff -Clerk13NPCScript: ; f26c (3:726c) - INCROM $f26c, $f283 +Script_Host: ; f352 (3:7352) + ret -GuideNPCScript: ; f283 (3:7283) - INCROM $f283, $f295 +Script_f353: ; f353 (3:7353) + start_script + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f37d + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f390 + run_command Func_d16b + db $00 + run_command ScriptCommand_PrintTextString + tx Text0532 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f37f + run_command ScriptCommand_PrintTextString + tx Text0533 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f388 + run_command ScriptCommand_PrintTextString + tx Text0534 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f38e + run_command ScriptCommand_PrintTextString + tx Text0535 + run_command Func_cd4f + db $04 + db $00 + db $00 + run_command ScriptCommand_QuitScriptFully + +NPCMovement_f37d: ; f37d (3:737d) + db EAST | NO_MOVE + db $ff + +NPCMovement_f37f: ; f37f (3:737f) + db EAST + db EAST + db SOUTH + db $ff + +NPCMovement_f383: ; f383 (3:7383) + db NORTH + db WEST + db WEST + db SOUTH | NO_MOVE + db $ff + +NPCMovement_f388: ; f388 (3:7388) + db NORTH + db WEST + db WEST +; fallthrough + +NPCMovement_f38b: ; f38b (3:738b) + db WEST + db SOUTH + db $ff + +NPCMovement_f38e: ; f38e (3:738e) + db NORTH + db EAST +; fallthrough + +NPCMovement_f390: ; f390 (3:7390) + db SOUTH | NO_MOVE + db $ff + +LostAtChallengeHall: ; f392 (3:7392) + start_script + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f37d + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f390 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $02 + dw ScriptJump_f410 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $03 + dw ScriptJump_f410.ows_f41a + run_command Func_d16b + db $00 + run_command Func_d16b + db $01 + run_command ScriptCommand_PrintTextString + tx Text0536 +.ows_f3ae + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f38b + run_command ScriptCommand_PrintTextString + tx Text0537 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f38e + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $02 + dw .ows_f3ce + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $03 + dw .ows_f3d9 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_3F + db $03 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_48 + db $03 + run_command ScriptCommand_ZeroOutFlagValue + db EVENT_FLAG_51 + run_command ScriptCommand_Jump + dw .ows_f3e2 +.ows_f3ce + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_40 + db $03 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_49 + db $03 + run_command ScriptCommand_ZeroOutFlagValue + db EVENT_FLAG_55 + run_command ScriptCommand_Jump + dw .ows_f3e2 +.ows_f3d9 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_41 + db $03 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_4A + db $03 + run_command ScriptCommand_Jump + dw .ows_f3e2 +.ows_f3e2 + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db NPC_CLERK12 + dw Script_f3e9 + run_command ScriptCommand_EndScriptLoop1 + ret -Clerk12NPCScript: ; f295 (3:7295) - INCROM $f295, $f352 +Script_f3e9: ; f3e9 (3:73e9) + start_script + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f40a + run_command ScriptCommand_SetPlayerDirection + db WEST + run_command ScriptCommand_MovePlayer + db WEST + db $01 + run_command ScriptCommand_SetPlayerDirection + db SOUTH + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MovePlayer + db SOUTH + db $01 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f40d + run_command ScriptCommand_QuitScriptFully + +NPCMovement_f40a: ; f40a (3:740a) + db WEST + db EAST | NO_MOVE + db $ff + +NPCMovement_f40d: ; f40d (3:740d) + db EAST + db SOUTH | NO_MOVE + db $ff + +ScriptJump_f410: ; f410 (4:7410) + run_command Func_d16b + db $00 + run_command Func_d16b + db $01 + run_command ScriptCommand_PrintTextString + tx Text0538 + run_command ScriptCommand_Jump + dw LostAtChallengeHall.ows_f3ae + +.ows_f41a + run_command ScriptCommand_PrintTextString + tx Text0539 + run_command ScriptCommand_SetDialogName + db NPC_RONALD1 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $03 + dw .ows_f42e + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $01 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text053a + tx Text053b +.ows_f42e + run_command ScriptCommand_SetDialogName + db NPC_HOST + run_command ScriptCommand_Jump + dw LostAtChallengeHall.ows_f3ae + +Script_f433: ; f433 (3:7433) + start_script + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f37d + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f390 + run_command ScriptCommand_Jump + dw WonAtChallengeHall.ows_f4a4 + +WonAtChallengeHall; f441 (3:7441) + start_script + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f37d + run_command ScriptCommand_DoFrames + db 20 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f390 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $03 + dw ScriptJump_f4db + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $02 + dw .ows_f456 +.ows_f456 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $01 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text053c + tx Text053d + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f37f + run_command Func_d16b + db $00 + run_command ScriptCommand_PrintTextString + tx Text053e + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveWramNPC + dw NPCMovement_f4c8 + run_command Func_cdd8 + run_command ScriptCommand_PrintTextString + tx Text053f + run_command ScriptCommand_CloseTextBox + run_command Func_d195 + run_command Func_cdf5 + db $14 + db $14 + run_command ScriptCommand_MoveWramNPC + dw NPCMovement_f4d0 + run_command Func_d16b + db $00 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $02 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0540 + tx Text0541 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f383 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $02 + dw .ows_f4a4 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $03 + dw .ows_f4a1 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_SetDialogName + db $02 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $01 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0542 + tx Text0543 + run_command ScriptCommand_SetDialogName + db NPC_HOST + run_command ScriptCommand_CloseTextBox +.ows_f4a1 + run_command ScriptCommand_PrintTextString + tx Text0544 +.ows_f4a4 + run_command ScriptCommand_ZeroOutFlagValue + db EVENT_FLAG_47 + run_command ScriptCommand_PrintTextString + tx Text0545 + run_command ScriptCommand_AskQuestionJumpDefaultYes + tx Text0546 + dw .ows_f4bd + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_45 + db $02 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text0547 + tx Text0548 + run_command Func_cd4f + db $04 + db $00 + db $00 + run_command ScriptCommand_QuitScriptFully +.ows_f4bd + run_command ScriptCommand_PrintTextString + tx Text0549 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MaxOutFlagValue + db EVENT_FLAG_47 + run_command Func_d1ad + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_Jump + dw .ows_f4a4 + +NPCMovement_f4c8: ; f4c8 (3:74c8) + db EAST +NPCMovement_f4c9: ; f4c9 (3:74c9) + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db SOUTH + db $ff + +NPCMovement_f4d0: ; f4d0 (3:74d0) + db NORTH + db NORTH + db NORTH + db NORTH + db NORTH + db NORTH + db WEST + db $ff + +NPCMovement_f4d8: ; f4d8 (3:74d8) + db EAST + db SOUTH | NO_MOVE + db $ff + +ScriptJump_f4db: ; f4db (3:74db) + run_command ScriptCommand_PrintTextString + tx Text054a + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f37f + run_command Func_d16b + db $00 + run_command ScriptCommand_PrintTextString + tx Text054b + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $03 + dw .ows_f513 + run_command ScriptCommand_SetDialogName + db $02 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $01 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text054c + tx Text054d + run_command ScriptCommand_MoveWramNPC + dw NPCMovement_f4d8 + run_command ScriptCommand_DoFrames + db 40 + run_command ScriptCommand_MoveWramNPC + dw NPCMovement_f34c + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $01 + dw NO_JUMP + run_command ScriptCommand_PrintVariableText + tx Text054e + tx Text054f + run_command ScriptCommand_SetDialogName + db NPC_HOST + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveWramNPC + dw NPCMovement_f4c9 + run_command ScriptCommand_Jump + dw .ows_f516 +.ows_f513 + run_command ScriptCommand_MoveWramNPC + dw NPCMovement_f4c8 +.ows_f516 + run_command Func_cdd8 + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f383 + run_command ScriptCommand_PrintTextString + tx Text0550 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_MoveActiveNPC + dw NPCMovement_f38b + run_command Func_d1b3 + run_command ScriptCommand_PrintTextString + tx Text0551 + run_command ScriptCommand_GiveCard + db $00 + run_command ScriptCommand_ShowCardReceivedScreen + db $00 + run_command ScriptCommand_PrintTextString + tx Text0552 + run_command ScriptCommand_CloseTextBox + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $02 + dw .ows_f540 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_44 + db $03 + dw .ows_f549 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_3F + db $02 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_48 + db $02 + run_command ScriptCommand_Jump + dw .ows_f552 +.ows_f540 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_40 + db $02 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_49 + db $02 + run_command ScriptCommand_Jump + dw .ows_f552 +.ows_f549 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_41 + db $02 + run_command ScriptCommand_SetFlagValue + db EVENT_FLAG_4A + db $02 + run_command ScriptCommand_Jump + dw .ows_f552 +.ows_f552 + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db NPC_CLERK12 + dw Script_f3e9 + run_command ScriptCommand_EndScriptLoop1 + ret +; f559 -HostNPCScript: ; f352 (3:7352) - INCROM $f352, $f580 +; Loads the NPC to fight at the challenge hall +Preload_ChallengeHallOpponent: ; f559 (3:7559) + get_flag_value EVENT_FLAG_42 + or a + ret z + get_flag_value EVENT_FLAG_46 + or a + jr z, .asm_f56e + ld a, [wd696] + ld [wTempNPC], a + scf + ret +.asm_f56e + call Func_f5db + ld c, $01 + set_flag_value EVENT_FLAG_45 + call Func_f580 + max_flag_value EVENT_FLAG_46 + scf + ret Func_f580: ; f580 (3:7580) - call Func_ca69 - ld b, h + get_flag_value EVENT_FLAG_44 cp $3 jr z, .asm_f596 - call Func_ca69 - ld b, l + get_flag_value EVENT_FLAG_45 cp $3 ld d, $18 jr nz, .asm_f598 @@ -3467,24 +6463,118 @@ Func_f580: ; f580 (3:7580) ld a, [hl] .asm_f5ac - ld [wd3ab], a + ld [wTempNPC], a ld [wd696], a ret ; 0xf5b3 - INCROM $f5b3, $f71f + INCROM $f5b3, $f5db + +Func_f5db: ; f5db (3:75db) + xor a + ld [$d698], a + ld [$d699], a + ld [$d69a], a + ld [$d69b], a + ret +; 0xf5e9 + + INCROM $f5e9, $f602 + +Func_f602: ; f602 (3:7602) + INCROM $f602, $f631 -CourtneyNPCScript: ; f71f (3:771f) +Script_f631: ; f631 (3:7631) + start_script + run_command ScriptCommand_PrintTextString + tx Text0508 + run_command ScriptCommand_CloseAdvancedTextBox + run_command ScriptCommand_SetNextNPCandScript + db $02 + dw $763c + run_command ScriptCommand_EndScriptLoop1 + + ret +; 0xf63c + + INCROM $f63c, $f71f + +Script_Courtney: ; f71f (3:771f) INCROM $f71f, $f72a -SteveNPCScript: ; f72a (3:772a) +Script_Steve: ; f72a (3:772a) INCROM $f72a, $f735 -JackNPCScript: ; f735 (3:7735) +Script_Jack: ; f735 (3:7735) INCROM $f735, $f740 -RodNPCScript: ; f740 (3:7740) - INCROM $f740, $fc2b +Script_Rod: ; f740 (3:7740) + INCROM $f740, $fbdb + +HallOfHonorLoadMap: ; fbdb (3:7bdb) + ld a, SFX_10 + call PlaySFX + ret +; 0xfbe1 + + INCROM $fbe1, $fbf1 + +Script_fbf1: ; fbf1 (3:7bf1) + start_script + run_command ScriptCommand_JumpIfFlagNonzero2 + db EVENT_RECEIVED_LEGENDARY_CARD + dw .ows_fc10 + run_command ScriptCommand_MaxOutFlagValue + db EVENT_RECEIVED_LEGENDARY_CARD + run_command Func_ccdc + tx Text05b8 + run_command ScriptCommand_GiveCard + db ZAPDOS3 + run_command ScriptCommand_GiveCard + db MOLTRES2 + run_command ScriptCommand_GiveCard + db ARTICUNO2 + run_command ScriptCommand_GiveCard + db DRAGONITE1 + run_command ScriptCommand_ShowCardReceivedScreen + db $ff +.ows_fc05 + run_command Func_d38f + db $00 + run_command Func_ccdc + tx Text05b9 +.ows_fc0a + run_command Func_d38f + db $01 + run_command Func_d396 + db $01 + run_command Func_d3b9 + run_command ScriptCommand_QuitScriptFully + +.ows_fc10 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_71 + db $0f + dw .ows_fc20 + run_command Func_d209 + run_command Func_ccdc + tx Text05ba + run_command ScriptCommand_GiveCard + db $00 + run_command ScriptCommand_ShowCardReceivedScreen + db $00 + run_command ScriptCommand_Jump + dw .ows_fc05 + +.ows_fc20 + run_command Func_ccdc + tx Text05bb + run_command Func_d38f + db $00 + run_command Func_ccdc + tx Text05bc + run_command ScriptCommand_Jump + dw .ows_fc0a Func_fc2b: ; fc2b (3:7c2b) ld a, [wDuelResult] @@ -3501,17 +6591,29 @@ Func_fc2b: ; fc2b (3:7c2b) inc hl ld b, [hl] ld a, $b0 - ld [wd0c8], a + ld [wCurrentNPCNameTx], a ld a, $3 - ld [wd0c9], a - jp Func_c935 + ld [wCurrentNPCNameTx+1], a + jp SetNextScript PointerTable_fc4c: ; fc4c (3:7c4c) dw Unknown_fc64 dw Unknown_fc68 dw Unknown_fc60 - INCROM $fc52, $fc60 +Script_fc52: ; fc52 (3:7c52) + start_script + run_command ScriptCommand_PrintTextString + tx Text06c8 + run_command ScriptCommand_AskQuestionJumpDefaultYes + dw $0000 + dw .ows_fc5e + run_command ScriptCommand_PrintTextQuitFully + tx Text06c9 + +.ows_fc5e + run_command Func_cd76 + run_command ScriptCommand_QuitScriptFully Unknown_fc60: ; fc60 (3:7c60) INCROM $fc60, $fc64 @@ -3520,7 +6622,120 @@ Unknown_fc64: ; fc64 (3:7c64) INCROM $fc64, $fc68 Unknown_fc68: ; fc68 (3:7c68) - INCROM $fc68, $fcad + INCROM $fc68, $fc6c + +; Clerk looks away from you if you can't use infrared +; This is one of the preloads that does not change whether or not they appear +Preload_GiftCenterClerk: ; fc6c (3:7c6c) + ld a, [wConsole] + cp CONSOLE_CGB + jr z, .notCGB + ld a, NORTH + ld [wLoadNPCDirection], a +.notCGB + scf + ret + +Func_fc7a: ; fc7a (3:7c7a) + ld a, [wConsole] + ld c, a + set_flag_value EVENT_FLAG_74 + + start_script + run_command ScriptCommand_JumpIfFlagNotEqual + db EVENT_FLAG_74 + db $02 + dw Func_fcad.ows_fcd5 + run_command ScriptCommand_PrintTextString + tx Text06cd + run_command Func_d39d + db $00 + run_command ScriptCommand_JumpIfFlagNotLessThan + db EVENT_FLAG_72 + db $04 + dw Func_fc7a.ows_fcaa + run_command ScriptCommand_PrintTextString + tx Text06ce + run_command ScriptCommand_AskQuestionJumpDefaultYes + tx Text06cf + dw .ows_fca0 + run_command ScriptCommand_PrintTextString + tx Text06d0 + run_command ScriptCommand_Jump + dw Func_fc7a.ows_fcaa + +.ows_fca0 + run_command Func_d396 + db $00 + run_command ScriptCommand_PlaySFX + db $56 + run_command Func_ccdc + tx Text06d1 + run_command Func_d39d + db $01 + run_command ScriptCommand_QuitScriptFully + +.ows_fcaa + run_command ScriptCommand_PrintTextQuitFully + tx Text06d2 Func_fcad: ; fcad (3:7cad) - INCROM $fcad, $10000 + ld a, [wd10e] + ld c, a + set_flag_value EVENT_FLAG_72 + + start_script + run_command ScriptCommand_PlaySFX + db $56 + run_command Func_d396 + db $00 + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_72 + db $00 + dw .ows_fccc + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_72 + db $02 + dw .ows_fccf + run_command ScriptCommand_JumpIfFlagEqual + db EVENT_FLAG_72 + db $03 + dw .ows_fcd2 + run_command ScriptCommand_Jump + dw Func_fc7a.ows_fcaa + +.ows_fccc + run_command ScriptCommand_PrintTextQuitFully + tx Text06d3 + +.ows_fccf + run_command ScriptCommand_PrintTextQuitFully + tx Text06d4 + +.ows_fcd2 + run_command ScriptCommand_PrintTextQuitFully + tx Text06d5 + +.ows_fcd5 + run_command ScriptCommand_MoveArbitraryNPC + db NPC_GIFT_CENTER_CLERK + dw NPCMovement_fce1 + run_command ScriptCommand_PrintTextString + tx Text06d6 + run_command ScriptCommand_MoveArbitraryNPC + db NPC_GIFT_CENTER_CLERK + dw NPCMovement_fce3 + run_command ScriptCommand_QuitScriptFully + +NPCMovement_fce1: ; fce1 (3:7ce1) + db SOUTH | NO_MOVE + db $ff + +NPCMovement_fce3: ; fce3 (3:7ce3) + db NORTH | NO_MOVE + db $ff +; fce5 + +rept $31b + db $ff +endr |