diff options
Diffstat (limited to 'main.asm')
| -rw-r--r-- | main.asm | 1876 |
1 files changed, 6 insertions, 1870 deletions
@@ -1,3 +1,6 @@ +INCLUDE "includes.asm" + + SECTION "bank0",ROM0 INCLUDE "rst.asm" @@ -31420,10 +31423,7 @@ INCBIN "baserom.gbc",$2017c,$20181 - $2017c INCLUDE "tilesets/data_3.asm" -EggMovePointers: ; 0x23b11 -INCLUDE "stats/egg_move_pointers.asm" -INCLUDE "stats/egg_moves.asm" SECTION "bank9",ROMX,BANK[$9] @@ -54676,10 +54676,7 @@ GetPreEvolution: ; 42581 ; 425b1 -EvosAttacksPointers: ; 0x425b1 -INCLUDE "stats/evos_attacks_pointers.asm" -INCLUDE "stats/evos_attacks.asm" SECTION "bank11",ROMX,BANK[$11] @@ -85550,1873 +85547,10 @@ INCBIN "baserom.gbc",$93327,$93a31 - $93327 SECTION "bank25",ROMX,BANK[$25] -MapGroupPointers: ; 0x94000 -; pointers to the first map header of each map group - dw MapGroup1 - dw MapGroup2 - dw MapGroup3 - dw MapGroup4 - dw MapGroup5 - dw MapGroup6 - dw MapGroup7 - dw MapGroup8 - dw MapGroup9 - dw MapGroup10 - dw MapGroup11 - dw MapGroup12 - dw MapGroup13 - dw MapGroup14 - dw MapGroup15 - dw MapGroup16 - dw MapGroup17 - dw MapGroup18 - dw MapGroup19 - dw MapGroup20 - dw MapGroup21 - dw MapGroup22 - dw MapGroup23 - dw MapGroup24 - dw MapGroup25 - dw MapGroup26 - - INCLUDE "maps/map_headers.asm" - INCLUDE "maps/second_map_headers.asm" -Function966b0: ; 966b0 - xor a - ld [$d432], a -.asm_966b4 - ld a, [$d432] - ld hl, .pointers - rst JumpTable - ld a, [$d432] - cp 3 ; done - jr nz, .asm_966b4 -.done - ret - -.pointers - dw Function96724 - dw Function9673e - dw Function96773 - dw .done -; 966cb - - -Function966cb: ; 966cb - xor a - ld [ScriptFlags3], a - ret -; 966d0 - -Function966d0: ; 966d0 - ld a, $ff - ld [ScriptFlags3], a - ret -; 966d6 - -Function966d6: ; 966d6 - ld hl, ScriptFlags3 - bit 5, [hl] - ret -; 966dc - -Function966dc: ; 966dc - ld hl, ScriptFlags3 - res 2, [hl] - ret -; 966e2 - -Function966e2: ; 966e2 - ld hl, ScriptFlags3 - res 1, [hl] - ret -; 966e8 - -Function966e8: ; 966e8 - ld hl, ScriptFlags3 - res 0, [hl] - ret -; 966ee - -Function966ee: ; 966ee - ld hl, ScriptFlags3 - res 4, [hl] - ret -; 966f4 - -Function966f4: ; 966f4 - ld hl, ScriptFlags3 - set 2, [hl] - ret -; 966fa - -Function966fa: ; 966fa - ld hl, ScriptFlags3 - set 1, [hl] - ret -; 96700 - -Function96700: ; 96700 - ld hl, ScriptFlags3 - set 0, [hl] - ret -; 96706 - -Function96706: ; 96706 - ld hl, ScriptFlags3 - set 4, [hl] - ret -; 9670c - -Function9670c: ; 9670c - ld hl, ScriptFlags3 - bit 2, [hl] - ret -; 96712 - -Function96712: ; 96712 - ld hl, ScriptFlags3 - bit 1, [hl] - ret -; 96718 - -Function96718: ; 96718 - ld hl, ScriptFlags3 - bit 0, [hl] - ret -; 9671e - -Function9671e: ; 9671e - ld hl, ScriptFlags3 - bit 4, [hl] - ret -; 96724 - - -Function96724: ; 96724 - xor a - ld [ScriptVar], a - xor a - ld [ScriptRunning], a - ld hl, $d432 - ld bc, $3e - call ByteFill - callba Function113e5 - call ClearJoypadPublic - ; fallthrough -; 9673e - - -Function9673e: ; 9673e - xor a - ld [$d453], a - ld [$d454], a - call Function968d1 - callba Function15363 - call Function966cb - ld a, [$ff9f] - cp $f7 - jr nz, .asm_9675a - call Function966d0 -.asm_9675a - ld a, [$ff9f] - cp $f3 - jr nz, .asm_96764 - xor a - ld [PoisonStepCount], a -.asm_96764 - xor a - ld [$ff9f], a - ld a, $2 - ld [$d432], a - ret -; 9676d - - -Function9676d: ; 9676d - ld c, 30 - call DelayFrames - ret -; 96773 - - -Function96773: ; 96773 - call ResetOverworldDelay - call Function967c1 - callba Function97e08 - call DoEvents - ld a, [$d432] - cp 2 - ret nz - call Function967d1 - call NextOverworldFrame - call Function967e1 - call Function967f4 - ret -; 96795 - - -DoEvents: ; 96795 - ld a, [$d433] - ld hl, .pointers - rst JumpTable - ret - -.pointers - dw Function967a1 - dw Function967ae -; 967a1 - -Function967a1: ; 967a1 - call PlayerEvents - call Function966cb - callba ScriptEvents - ret -; 967ae - -Function967ae: ; 967ae - ret -; 967af - - -MaxOverworldDelay: ; 967af - db 2 -; 967b0 - -ResetOverworldDelay: ; 967b0 - ld a, [MaxOverworldDelay] - ld [OverworldDelay], a - ret -; 967b7 - -NextOverworldFrame: ; 967b7 - ld a, [OverworldDelay] - and a - ret z - ld c, a - call DelayFrames - ret -; 967c1 - - -Function967c1: ; 967c1 - ld a, [$d433] - cp 1 - ret z - call UpdateTime - call GetJoypadPublic - call TimeOfDayPals - ret -; 967d1 - -Function967d1: ; 967d1 - callba Function576a - callba Functiond497 - call Function96812 - ret -; 967e1 - -Function967e1: ; 967e1 - callba Function5920 - callba Functiond4d2 - callba Functionb8098 - ret -; 967f4 - -Function967f4: ; 967f4 - ld a, [$d150] - bit 5, a - jr z, .asm_96806 - bit 6, a - jr z, .asm_9680c - bit 4, a - jr nz, .asm_9680c - call Function966d0 - -.asm_96806 - ld a, $0 - ld [$d433], a - ret - -.asm_9680c - ld a, $1 - ld [$d433], a - ret -; 96812 - -Function96812: ; 96812 - ld hl, $d150 - bit 6, [hl] - ret z - callba Function81ca - - ret -; 9681f - - -PlayerEvents: ; 9681f - - xor a - - ld a, [ScriptRunning] - and a - ret nz - - call Function968e4 - - call CheckTrainerBattle3 - jr c, .asm_96848 - - call CheckTileEvent - jr c, .asm_96848 - - call Function97c30 - jr c, .asm_96848 - - call Function968ec - jr c, .asm_96848 - - call Function9693a - jr c, .asm_96848 - - call OWPlayerInput - jr c, .asm_96848 - - xor a - ret - - -.asm_96848 - push af - callba Function96c56 - pop af - - ld [ScriptRunning], a - call Function96beb - ld a, [ScriptRunning] - cp 4 - jr z, .asm_96865 - cp 9 - jr z, .asm_96865 - - xor a - ld [$c2da], a - -.asm_96865 - scf - ret -; 96867 - - -CheckTrainerBattle3: ; 96867 - nop - nop - call CheckTrainerBattle2 - jr nc, .asm_96872 - ld a, 1 - scf - ret - -.asm_96872 - xor a - ret -; 96874 - - -CheckTileEvent: ; 96874 -; Check for warps, tile triggers or wild battles. - - call Function9670c - jr z, .asm_96886 - - callba Function104820 - jr c, .asm_968a6 - - call Function2238 - jr c, .asm_968aa - -.asm_96886 - call Function96712 - jr z, .asm_96890 - - call Function2ad4 - jr c, .asm_968ba - -.asm_96890 - call Function96718 - jr z, .asm_96899 - - call CountStep - ret c - -.asm_96899 - call Function9671e - jr z, .asm_968a4 - - call Function97cc0 - ret c - jr .asm_968a4 - -.asm_968a4 - xor a - ret - -.asm_968a6 - ld a, 4 - scf - ret - -.asm_968aa - ld a, [StandingTile] - call CheckPitTile - jr nz, .asm_968b6 - ld a, 6 - scf - ret - -.asm_968b6 - ld a, 5 - scf - ret - -.asm_968ba - ld hl, MovementAnimation - ld a, [hli] - ld h, [hl] - ld l, a - call GetMapScriptHeaderBank - call CallScript - ret -; 968c7 - - -Function968c7: ; 968c7 - ld hl, $d452 - ld a, [hl] - and a - ret z - dec [hl] - ret z - scf - ret -; 968d1 - -Function968d1: ; 968d1 - ld a, 5 - ld [$d452], a - ret -; 968d7 - -Function968d7: ; 968d7 - ret -; 968d8 - -Function968d8: ; 968d8 - ld a, [$d452] - cp 2 - ret nc - ld a, 2 - ld [$d452], a - ret -; 968e4 - -Function968e4: ; 968e4 - call Function966d6 - ret z - call Function2f3e - ret -; 968ec - -Function968ec: ; 968ec - ld a, [$dc07] - and a - jr z, .asm_96938 - - ld c, a - call Function211b - cp c - jr nc, .asm_96938 - - ld e, a - ld d, 0 - ld hl, $dc08 - ld a, [hli] - ld h, [hl] - ld l, a - add hl, de - add hl, de - add hl, de - add hl, de - - call GetMapScriptHeaderBank - call GetFarHalfword - call GetMapScriptHeaderBank - call CallScript - - ld hl, ScriptFlags - res 3, [hl] - - callba Function96c56 - callba ScriptEvents - - ld hl, ScriptFlags - bit 3, [hl] - jr z, .asm_96938 - - ld hl, $d44f - ld a, [hli] - ld h, [hl] - ld l, a - ld a, [$d44e] - call CallScript - scf - ret - -.asm_96938 - xor a - ret -; 9693a - -Function9693a: ; 9693a - ld a, [InLinkBattle] - and a - jr nz, .asm_96964 - ld hl, StatusFlags2 - bit 2, [hl] - jr z, .asm_96951 - callba Function114a4 - jr c, .asm_96966 - xor a - ret - -.asm_96951 - callba Function11452 - callba Function114e7 - callba Function90074 - ret c - -.asm_96964 - xor a - ret - -.asm_96966 - ld a, $4 - ld hl, $75f8 - call CallScript - scf - ret -; 96970 - -Function96970: ; 96970 - ld a, 8 - scf - ret -; 96974 - - -OWPlayerInput: ; 96974 - - call PlayerMovement - ret c - and a - jr nz, .NoAction - -; Can't perform button actions while sliding on ice. - callba Function80404 - jr c, .NoAction - - call CheckAPressOW - jr c, .Action - - call CheckMenuOW - jr c, .Action - -.NoAction - xor a - ret - -.Action - push af - callba Function80422 - pop af - scf - ret -; 96999 - - -CheckAPressOW: ; 96999 - ld a, [hJoyPressed] - and A_BUTTON - ret z - call TryObjectEvent - ret c - call TryReadSign - ret c - call Function97c5f - ret c - xor a - ret -; 969ac - - -PlayTalkObject: ; 969ac - push de - ld de, SFX_READ_TEXT_2 - call PlaySFX - pop de - ret -; 969b5 - - -TryObjectEvent: ; 969b5 - callba CheckFacingObject - jr c, .IsObject - xor a - ret - -.IsObject - call PlayTalkObject - ld a, [hConnectedMapWidth] - call Function1ae5 - ld hl, $0001 - add hl, bc - ld a, [hl] - ld [$ffe0], a - - ld a, [$ffe0] - call GetMapObject - ld hl, $0008 - add hl, bc - ld a, [hl] - and $f - -; Bug: If IsInArray returns nc, data at bc will be executed as code. - push bc - ld de, 3 - ld hl, .data_969ee - call IsInArray - jr nc, .asm_969ec - pop bc - - inc hl - ld a, [hli] - ld h, [hl] - ld l, a - jp [hl] - -.asm_969ec - xor a - ret - -.data_969ee - dbw 0, .zero - dbw 1, .one - dbw 2, .two - dbw 3, .three - dbw 4, .four - dbw 5, .five - dbw 6, .six - db $ff -; 96a04 - -.zero ; 96a04 - ld hl, $000a - add hl, bc - ld a, [hli] - ld h, [hl] - ld l, a - call GetMapScriptHeaderBank - call CallScript -; ld a, -1 - ret -; 96a12 - -.one ; 96a12 - ld hl, $000a - add hl, bc - ld a, [hli] - ld h, [hl] - ld l, a - call GetMapScriptHeaderBank - ld de, EngineBuffer1 - ld bc, 2 - call FarCopyBytes - ld a, 3 - scf - ret -; 96a29 - -.two ; 96a29 - call Function3674 - ld a, 2 - scf - ret -; 96a30 - -.three ; 96a30 - xor a - ret -; 96a32 - -.four ; 96a32 - xor a - ret -; 96a34 - -.five ; 96a34 - xor a - ret -; 96a36 - -.six ; 96a36 - xor a - ret -; 96a38 - - -TryReadSign: ; 96a38 - call CheckFacingSign - jr c, .IsSign - xor a - ret - -.IsSign - ld a, [MartPointer] - ld hl, .signs - rst JumpTable - ret - -.signs - dw .read - dw .up - dw .down - dw .right - dw .left - dw .ifset - dw .ifnotset - dw .itemifset - dw .asm_96aa2 -; 96a59 - -.up - ld b, UP << 2 - jr .checkdir -.down - ld b, DOWN << 2 - jr .checkdir -.right - ld b, RIGHT << 2 - jr .checkdir -.left - ld b, LEFT << 2 - jr .checkdir - -.checkdir - ld a, [PlayerDirection] - and %1100 - cp b - jp nz, .dontread - -.read - call PlayTalkObject - ld hl, $d041 - ld a, [hli] - ld h, [hl] - ld l, a - call GetMapScriptHeaderBank - call CallScript - scf - ret - -.itemifset - call CheckSignFlag - jp nz, .dontread - call PlayTalkObject - call GetMapScriptHeaderBank - ld de, EngineBuffer1 - ld bc, 3 - call FarCopyBytes - ld a, $4 - ld hl, $7625 - call CallScript - scf - ret - -.asm_96aa2 - call CheckSignFlag - jr nz, .dontread - call GetMapScriptHeaderBank - ld de, EngineBuffer1 - ld bc, 3 - call FarCopyBytes - jr .dontread - -.ifset - call CheckSignFlag - jr z, .dontread - jr .asm_96ac1 - -.ifnotset - call CheckSignFlag - jr nz, .dontread - -.asm_96ac1 - push hl - call PlayTalkObject - pop hl - inc hl - inc hl - call GetMapScriptHeaderBank - call GetFarHalfword - call GetMapScriptHeaderBank - call CallScript - scf - ret - -.dontread - xor a - ret -; 96ad8 - - -CheckSignFlag: ; 96ad8 - ld hl, $d041 - ld a, [hli] - ld h, [hl] - ld l, a - push hl - call GetMapScriptHeaderBank - call GetFarHalfword - ld e, l - ld d, h - ld b, $2 - call EventFlagAction - ld a, c - and a - pop hl - ret -; 96af0 - - -PlayerMovement: ; 96af0 - callba DoPlayerMovement - ld a, c - ld hl, .pointers - rst JumpTable - ld a, c - ret -; 96afd - -.pointers - dw .zero - dw .one - dw .two - dw .three - dw .four - dw .five - dw .six - dw .seven - -.zero -.four ; 96b0d - xor a - ld c, a - ret -; 96b10 - -.seven ; 96b10 - call Function968d7 ; empty - xor a - ld c, a - ret -; 96b16 - -.one ; 96b16 - ld a, 5 - ld c, a - scf - ret -; 96b1b - -.two ; 96b1b - ld a, 9 - ld c, a - scf - ret -; 96b20 - -.three ; 96b20 -; force the player to move in some direction - ld a, $4 - ld hl, $653d - call CallScript -; ld a, -1 - ld c, a - scf - ret -; 96b2b - -.five -.six ; 96b2b - ld a, -1 - ld c, a - and a - ret -; 96b30 - - -CheckMenuOW: ; 96b30 - xor a - ld [$ffa0], a - ld [$ffa1], a - ld a, [hJoyPressed] - - bit 2, a ; SELECT - jr nz, .Select - - bit 3, a ; START - jr z, .NoMenu - - ld a, BANK(StartMenuScript) - ld hl, StartMenuScript - call CallScript - scf - ret - -.NoMenu - xor a - ret - -.Select - call PlayTalkObject - ld a, BANK(SelectMenuScript) - ld hl, SelectMenuScript - call CallScript - scf - ret -; 96b58 - - -StartMenuScript: ; 96b58 - 3callasm BANK(StartMenu), StartMenu - 2jump StartMenuCallback -; 96b5f - -SelectMenuScript: ; 96b5f - 3callasm BANK(SelectMenu), SelectMenu - 2jump SelectMenuCallback -; 96b66 - -StartMenuCallback: -SelectMenuCallback: ; 96b66 - copybytetovar $ffa0 - if_equal $80, .Script - if_equal $ff, .Asm - end -; 96b72 - -.Script ; 96b72 - 2ptjump $d0e8 -; 96b75 - -.Asm ; 96b75 - 2ptcallasm $d0e8 - end -; 96b79 - - -CountStep: ; 96b79 - ld a, [InLinkBattle] - and a - jr nz, .asm_96bc9 - - callba Function90136 - jr c, .asm_96bcb - - call Function96bd7 - jr c, .asm_96bcb - - ld hl, PoisonStepCount - inc [hl] - ld hl, StepCount - inc [hl] - jr nz, .asm_96b9c - - callba StepHappiness - -.asm_96b9c - ld a, [StepCount] - cp $80 - jr nz, .asm_96bab - - callba Function16f3e - jr nz, .asm_96bcf - -.asm_96bab - callba DaycareStep - - ld hl, PoisonStepCount - ld a, [hl] - cp 4 - jr c, .asm_96bc3 - ld [hl], 0 - - callba Function505da - jr c, .asm_96bcb - -.asm_96bc3 - callba Function97db3 - -.asm_96bc9 - xor a - ret - -.asm_96bcb - ld a, -1 - scf - ret - -.asm_96bcf - ld a, 8 - scf - ret -; 96bd3 - - -Function96bd3: ; 96bd3 - ld a, $7 - scf - ret -; 96bd7 - -Function96bd7: ; 96bd7 - ld a, [$dca1] - and a - ret z - dec a - ld [$dca1], a - ret nz - ld a, $4 - ld hl, $7619 - call CallScript - scf - ret -; 96beb - -Function96beb: ; 96beb - ld a, [ScriptRunning] - and a - ret z - cp $ff - ret z - cp $a - ret nc - - ld c, a - ld b, 0 - ld hl, ScriptPointers96c0c - add hl, bc - add hl, bc - add hl, bc - ld a, [hli] - ld [ScriptBank], a - ld a, [hli] - ld [ScriptPos], a - ld a, [hl] - ld [ScriptPos + 1], a - ret -; 96c0c - -ScriptPointers96c0c: ; 96c0c - dbw BANK(UnknownScript_0x96c2d), UnknownScript_0x96c2d - dbw BANK(UnknownScript_0xbe675), UnknownScript_0xbe675 - dbw BANK(UnknownScript_0xbe66a), UnknownScript_0xbe66a - dbw BANK(UnknownScript_0x122ce), UnknownScript_0x122ce - dbw BANK(UnknownScript_0x96c4d), UnknownScript_0x96c4d - dbw BANK(UnknownScript_0x96c34), UnknownScript_0x96c34 - dbw BANK(FallIntoMapScript), FallIntoMapScript - dbw BANK(UnknownScript_0x124c8), UnknownScript_0x124c8 - dbw BANK(UnknownScript_0x96c2f), UnknownScript_0x96c2f - dbw BANK(UnknownScript_0x96c4f), UnknownScript_0x96c4f - dbw BANK(UnknownScript_0x96c2d), UnknownScript_0x96c2d -; 96c2d - -UnknownScript_0x96c2d: ; 96c2d - end -; 96c2e - -UnknownScript_0x96c2e: ; 96c2e - end -; 96c2f - -UnknownScript_0x96c2f: ; 96c2f - 3callasm $05, $6f5e - end -; 96c34 - -UnknownScript_0x96c34: ; 96c34 - warpsound - newloadmap $f5 - end -; 96c38 - -FallIntoMapScript: ; 96c38 - newloadmap $f6 - playsound SFX_KINESIS - applymovement $0, MovementData_0x96c48 - playsound SFX_STRENGTH - 2call UnknownScript_0x96c4a - end -; 96c48 - -MovementData_0x96c48: ; 96c48 - skyfall - step_end -; 96c4a - -UnknownScript_0x96c4a: ; 96c4a - earthquake 16 - end -; 96c4d - -UnknownScript_0x96c4d: ; 96c4d - reloadandreturn $f7 -; 96c4f - -UnknownScript_0x96c4f: ; 96c4f - deactivatefacing $3 - 3callasm BANK(Function96706), Function96706 - end -; 96c56 - - -Function96c56: ; 96c56 - push af - ld a, 1 - ld [ScriptMode], a - pop af - ret -; 96c5e - - -ScriptEvents: ; 96c5e - call StartScript -.loop - ld a, [ScriptMode] - ld hl, .modes - rst JumpTable - call CheckScript - jr nz, .loop - ret -; 96c6e - -.modes ; 96c6e - dw EndScript - dw RunScriptCommand - dw WaitScriptMovement - dw WaitScript - -EndScript: ; 96c76 - call StopScript - ret -; 96c7a - -WaitScript: ; 96c7a - call StopScript - - ld hl, ScriptDelay - dec [hl] - ret nz - - callba Function58b9 - - ld a, SCRIPT_READ - ld [ScriptMode], a - call StartScript - ret -; 96c91 - -WaitScriptMovement: ; 96c91 - call StopScript - - ld hl, VramState - bit 7, [hl] - ret nz - - callba Function58b9 - - ld a, SCRIPT_READ - ld [ScriptMode], a - call StartScript - ret -; 96ca9 - -RunScriptCommand: ; 96ca9 - call GetScriptByte - ld hl, ScriptCommandTable - rst JumpTable - ret -; 96cb1 - - -INCLUDE "engine/scripting.asm" - - -Function97c20: ; 97c20 - ld a, [.byte] - ld [ScriptVar], a - ret - -.byte - db 0 -; 97c28 - -Function97c28: ; 97c28 - ld hl, StatusFlags2 - res 1, [hl] - res 2, [hl] - ret -; 97c30 - -Function97c30: ; 97c30 - ld a, [$d45c] - and a - ret z - ld hl, $d45e - ld a, [hli] - ld h, [hl] - ld l, a - ld a, [$d45d] - call CallScript - scf - push af - xor a - ld hl, $d45c - ld bc, 8 - call ByteFill - pop af - ret -; 97c4f - -Function97c4f: ; 97c4f - ld hl, $d45c - ld a, [hl] - and a - ret nz - ld [hl], 1 - inc hl - ld [hl], b - inc hl - ld [hl], e - inc hl - ld [hl], d - scf - ret -; 97c5f - -Function97c5f: ; 97c5f - call GetFacingTileCoord - ld [EngineBuffer1], a - ld c, a - callba Function1365b - jr c, .asm_97cb9 - - call CheckCutTreeTile - jr nz, .whirlpool - callba TryCutOW - jr .asm_97cb9 - -.whirlpool - ld a, [EngineBuffer1] - call CheckWhirlpoolTile - jr nz, .waterfall - callba TryWhirlpoolOW - jr .asm_97cb9 - -.waterfall - ld a, [EngineBuffer1] - call CheckWaterfallTile - jr nz, .headbutt - callba TryWaterfallOW - jr .asm_97cb9 - -.headbutt - ld a, [EngineBuffer1] - call CheckHeadbuttTreeTile - jr nz, .surf - callba TryHeadbuttOW - jr c, .asm_97cb9 - jr .asm_97cb7 - -.surf - callba TrySurfOW - jr nc, .asm_97cb7 - jr .asm_97cb9 - -.asm_97cb7 - xor a - ret - -.asm_97cb9 - call PlayClickSFX - ld a, $ff - scf - ret -; 97cc0 - - -Function97cc0: ; 97cc0 -; Rock Smash encounter - - call Function968c7 - jr c, .asm_97ce2 - call Function97cfd - jr nc, .asm_97ce2 - ld hl, StatusFlags2 - bit 2, [hl] - jr nz, .asm_97cdb - callba Function2a0e7 - jr nz, .asm_97ce2 - jr .asm_97ce6 - -.asm_97cdb - call Function97d23 - jr nc, .asm_97ce2 - jr .asm_97ced - -.asm_97ce2 - ld a, 1 - and a - ret - -.asm_97ce6 - ld a, BANK(RockSmashBattleScript) - ld hl, RockSmashBattleScript - jr .asm_97cf4 - -.asm_97ced - ld a, BANK(UnknownScript_0x135eb) - ld hl, UnknownScript_0x135eb - jr .asm_97cf4 - -.asm_97cf4 - call CallScript - scf - ret -; 97cf9 - -RockSmashBattleScript: ; 97cf9 - battlecheck - startbattle - returnafterbattle - end -; 97cfd - -Function97cfd: ; 97cfd - ld hl, StatusFlags - bit 5, [hl] - jr nz, .asm_97d21 - ld a, [$d19a] - cp $4 - jr z, .asm_97d17 - cp $7 - jr z, .asm_97d17 - callba Function149dd - jr nc, .asm_97d21 - -.asm_97d17 - ld a, [StandingTile] - call CheckIceTile - jr z, .asm_97d21 - scf - ret - -.asm_97d21 - and a - ret -; 97d23 - -Function97d23: ; 97d23 - call Function97d64 - ret nc - call Function97d31 - callba Function2a1df - ret -; 97d31 - -Function97d31: ; 97d31 -; Pick a random mon out of ContestMons. - -.asm_97d31 - call Random - cp 100 << 1 - jr nc, .asm_97d31 - srl a - - ld hl, ContestMons - ld de, 4 -.CheckMon - sub [hl] - jr c, .GotMon - add hl, de - jr .CheckMon - -.GotMon - inc hl - -; Species - ld a, [hli] - ld [$d22e], a - -; Min level - ld a, [hli] - ld d, a - -; Max level - ld a, [hl] - - sub d - jr nz, .RandomLevel - -; If min and max are the same. - ld a, d - jr .GotLevel - -.RandomLevel -; Get a random level between the min and max. - ld c, a - inc c - call Random - ld a, [hRandomAdd] - call SimpleDivide - add d - -.GotLevel - ld [CurPartyLevel], a - - xor a - ret -; 97d64 - -Function97d64: ; 97d64 - ld a, [StandingTile] - call Function188e - ld b, $66 - jr z, .asm_97d70 - ld b, $33 - -.asm_97d70 - callba Function2a124 - callba Function2a138 - call Random - ld a, [hRandomAdd] - cp b - ret c - ld a, 1 - and a - ret -; 97d87 - -ContestMons: ; 97d87 - ; %, species, min, max - db 20, CATERPIE, 7, 18 - db 20, WEEDLE, 7, 18 - db 10, METAPOD, 9, 18 - db 10, KAKUNA, 9, 18 - db 5, BUTTERFREE, 12, 15 - db 5, BEEDRILL, 12, 15 - db 10, VENONAT, 10, 16 - db 10, PARAS, 10, 17 - db 5, SCYTHER, 13, 14 - db 5, PINSIR, 13, 14 - db -1, VENOMOTH, 30, 40 -; 97db3 - -Function97db3: ; 97db3 - nop - nop - ; fallthrough -; 97db5 - -Function97db5: ; 97db5 - ld hl, StatusFlags2 - bit 4, [hl] - jr z, .asm_97df7 - ld a, [PlayerState] - cp $1 - jr nz, .asm_97df7 - call Function2d05 - and a - jr nz, .asm_97df7 - ld hl, $dca2 - ld a, [hli] - ld d, a - ld e, [hl] - cp $ff - jr nz, .asm_97dd8 - ld a, e - cp $ff - jr z, .asm_97ddc - -.asm_97dd8 - inc de - ld [hl], e - dec hl - ld [hl], d - -.asm_97ddc - ld a, d - cp $4 - jr c, .asm_97df7 - ld a, [$dc31] - and a - jr nz, .asm_97df7 - ld a, $6 - ld [$dc31], a - xor a - ld [$dc32], a - ld hl, StatusFlags2 - res 4, [hl] - scf - ret - -.asm_97df7 - xor a - ret -; 97df9 - -Function97df9: ; 97df9 - ld hl, $d6de - ld de, $0006 - ld c, $4 - xor a -.asm_97e02 - ld [hl], a - add hl, de - dec c - jr nz, .asm_97e02 - ret -; 97e08 - -Function97e08: ; 97e08 - ld hl, $d6de - xor a -.asm_97e0c - ld [hConnectionStripLength], a - ld a, [hl] - and a - jr z, .asm_97e19 - push hl - ld b, h - ld c, l - call Function97e79 - pop hl - -.asm_97e19 - ld de, $0006 - add hl, de - ld a, [hConnectionStripLength] - inc a - cp $4 - jr nz, .asm_97e0c - ret -; 97e25 - -Function97e25: ; 97e25 - ld hl, $d6de - ld bc, 6 - call AddNTimes - ld b, h - ld c, l - ret -; 97e31 - -Function97e31: ; 97e31 - push bc - push de - call Function97e45 - ld d, h - ld e, l - pop hl - pop bc - ret c - ld a, b - ld bc, $0005 - call FarCopyBytes - xor a - ld [hl], a - ret -; 97e45 - -Function97e45: ; 97e45 - ld hl, $d6de - ld de, $0006 - ld c, $4 -.asm_97e4d - ld a, [hl] - and a - jr z, .asm_97e57 - add hl, de - dec c - jr nz, .asm_97e4d - scf - ret - -.asm_97e57 - ld a, $4 - sub c - and a - ret -; 97e5c - -Function97e5c: ; 97e5c - ld hl, $d6de - ld de, $0006 - ld c, $4 -.asm_97e64 - ld a, [hl] - cp b - jr z, .asm_97e6e - add hl, de - dec c - jr nz, .asm_97e64 - and a - ret - -.asm_97e6e - xor a - ld [hl], a - scf - ret -; 97e72 - -Function97e72: ; 97e72 - ld hl, $0000 - add hl, bc - ld [hl], 0 - ret -; 97e79 - -Function97e79: ; 97e79 - ld hl, $0000 - add hl, bc - ld a, [hl] - cp 5 - jr c, .asm_97e83 - xor a - -.asm_97e83 - ld e, a - ld d, 0 - ld hl, Table97e94 - add hl, de - add hl, de - add hl, de - ld a, [hli] - push af - ld a, [hli] - ld h, [hl] - ld l, a - pop af - rst FarCall - ret -; 97e94 - -Table97e94: ; 97e94 - dbw BANK(Function97eb7), Function97eb7 - dbw BANK(Function97eb8), Function97eb8 - dbw BANK(Function97f42), Function97f42 - dbw BANK(Function97ef9), Function97ef9 - dbw BANK(Function97ebc), Function97ebc -; 97ea3 - -Function97ea3: ; 97ea3 - ld hl, $0005 - add hl, bc - ld a, [hl] - pop hl - rst JumpTable - ret -; 97eab - -Function97eab: ; 97eab - ld hl, $0005 - add hl, bc - inc [hl] - ret -; 97eb1 - -Function97eb1: ; 97eb1 - ld hl, $0005 - add hl, bc - dec [hl] - ret -; 97eb7 - -Function97eb7: ; 97eb7 - ret -; 97eb8 - -Function97eb8: ; 97eb8 - call Function2f3e - ret -; 97ebc - -Function97ebc: ; 97ebc - call Function97ea3 - dw Function97ec3 - dw Function97ecd -; 97ec3 - -Function97ec3: ; 97ec3 - ld a, [hSCY] - ld hl, $0004 - add hl, bc - ld [hl], a - call Function97eab -; 97ecd - -Function97ecd: ; 97ecd - ld hl, $0001 - add hl, bc - ld a, [hl] - dec a - ld [hl], a - jr z, .asm_97eee - and $1 - jr z, .asm_97ee4 - ld hl, $0002 - add hl, bc - ld a, [hSCY] - sub [hl] - ld [hSCY], a - ret - -.asm_97ee4 - ld hl, $0002 - add hl, bc - ld a, [hSCY] - add [hl] - ld [hSCY], a - ret - -.asm_97eee - ld hl, $0004 - add hl, bc - ld a, [hl] - ld [hSCY], a - call Function97e72 - ret -; 97ef9 - -Function97ef9: ; 97ef9 - call Function97ea3 - dw Function97f02 - dw Function97f0a - dw Function97f1b -; 97f02 - -Function97f02: ; 97f02 - call Function97f38 - jr z, Function97f2c - call Function97eab -; 97f0a - -Function97f0a: ; 97f0a - call Function97f38 - jr z, Function97f2c - call Function97eab - - ld hl, $0002 - add hl, bc - ld a, [hl] - ld [$d173], a - ret -; 97f1b - -Function97f1b: ; 97f1b - call Function97f38 - jr z, Function97f2c - call Function97eb1 - - ld hl, $0003 - add hl, bc - ld a, [hl] - ld [$d173], a - ret -; 97f2c - -Function97f2c: ; 97f2c - ld a, $7f - ld [$d173], a - ld hl, $0005 - add hl, bc - ld [hl], 0 - ret -; 97f38 - -Function97f38: ; 97f38 - push bc - ld bc, $d4d6 - call GetSpriteDirection - and a - pop bc - ret -; 97f42 - -Function97f42: ; 97f42 - ld de, $d4d6 - ld a, $d -.asm_97f47 - push af - - ld hl, $0000 - add hl, de - ld a, [hl] - and a - jr z, .asm_97f71 - - ld hl, $0003 - add hl, de - ld a, [hl] - cp $19 - jr nz, .asm_97f71 - - ld hl, $000e - add hl, de - ld a, [hl] - call CheckPitTile - jr nz, .asm_97f71 - - ld hl, $0007 - add hl, de - ld a, [hl] - cp $ff - jr nz, .asm_97f71 - call Function3567 - jr c, .asm_97f7c - -.asm_97f71 - ld hl, $0028 - add hl, de - ld d, h - ld e, l - - pop af - dec a - jr nz, .asm_97f47 - ret - -.asm_97f7c - pop af - ret -; 97f7e - - SECTION "bank26",ROMX,BANK[$26] @@ -87474,7 +85608,9 @@ INCLUDE "maps/BattleTowerOutside.asm" SECTION "bank28",ROMX,BANK[$28] -INCBIN "baserom.gbc",$a0000,$a1eca - $a0000 +INCBIN "baserom.gbc",$a0000,$a0c28 - $a0000 + +INCLUDE "text/buena.asm" SECTION "bank29",ROMX,BANK[$29] |