mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2025-04-09 05:44:44 -07:00
map setup and warps
This commit is contained in:
PikalaxALT
parent
8a439dbd05
commit
c635e30777
@ -1889,26 +1889,26 @@ SubtractHP: ; 3cc45
|
||||
.ok
|
||||
inc hl
|
||||
ld a, [hl]
|
||||
ld [wd1ec], a
|
||||
ld [Buffer3], a
|
||||
sub c
|
||||
ld [hld], a
|
||||
ld [wd1ee], a
|
||||
ld [Buffer5], a
|
||||
ld a, [hl]
|
||||
ld [wd1ed], a
|
||||
ld [Buffer4], a
|
||||
sbc b
|
||||
ld [hl], a
|
||||
ld [wd1ef], a
|
||||
ld [Buffer6], a
|
||||
ret nc
|
||||
|
||||
ld a, [wd1ec]
|
||||
ld a, [Buffer3]
|
||||
ld c, a
|
||||
ld a, [wd1ed]
|
||||
ld a, [Buffer4]
|
||||
ld b, a
|
||||
xor a
|
||||
ld [hli], a
|
||||
ld [hl], a
|
||||
ld [wd1ee], a
|
||||
ld [wd1ef], a
|
||||
ld [Buffer5], a
|
||||
ld [Buffer6], a
|
||||
ret
|
||||
; 3cc76
|
||||
|
||||
@ -4508,13 +4508,13 @@ HandleHPHealingItem: ; 3dd2f
|
||||
.go
|
||||
push bc
|
||||
ld a, [de]
|
||||
ld [wd1ec], a
|
||||
ld [Buffer3], a
|
||||
add a
|
||||
ld c, a
|
||||
dec de
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [wd1ed], a
|
||||
ld [Buffer4], a
|
||||
adc a
|
||||
ld b, a
|
||||
ld a, b
|
||||
@ -4539,12 +4539,12 @@ HandleHPHealingItem: ; 3dd2f
|
||||
ld [Buffer1], a
|
||||
ld a, [de]
|
||||
add c
|
||||
ld [wd1ee], a
|
||||
ld [Buffer5], a
|
||||
ld c, a
|
||||
dec de
|
||||
ld a, [de]
|
||||
adc $0
|
||||
ld [wd1ef], a
|
||||
ld [Buffer6], a
|
||||
ld b, a
|
||||
ld a, [hld]
|
||||
cp c
|
||||
@ -4552,15 +4552,15 @@ HandleHPHealingItem: ; 3dd2f
|
||||
sbc b
|
||||
jr nc, .okay
|
||||
ld a, [hli]
|
||||
ld [wd1ef], a
|
||||
ld [Buffer6], a
|
||||
ld a, [hl]
|
||||
ld [wd1ee], a
|
||||
ld [Buffer5], a
|
||||
|
||||
.okay
|
||||
ld a, [wd1ef]
|
||||
ld a, [Buffer6]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld a, [wd1ee]
|
||||
ld a, [Buffer5]
|
||||
ld [de], a
|
||||
ld a, [hBattleTurn]
|
||||
ld [wd10a], a
|
||||
|
||||
@ -61,4 +61,4 @@ const_value SET $f1
|
||||
const map_keep_palettes ; 2b
|
||||
const map_text_scroll_off ; 2c
|
||||
const map_stop_script ; 2d
|
||||
map_end_setup_script EQU -1
|
||||
map_end EQU -1
|
||||
|
||||
@ -93,6 +93,8 @@ SCREEN_HEIGHT_PX EQU SCREEN_HEIGHT * 8
|
||||
|
||||
BG_MAP_WIDTH EQU 32
|
||||
BG_MAP_HEIGHT EQU 32
|
||||
WMISC_WIDTH EQU 6 * 4
|
||||
WMISC_HEIGHT EQU 5 * 4
|
||||
|
||||
TILE_WIDTH EQU 8
|
||||
|
||||
|
||||
@ -36,7 +36,7 @@ SpriteAnimFrameData: ; 8d6e6
|
||||
dw Unknown_8d87d ; 22
|
||||
dw Unknown_8d880 ; 23
|
||||
dw Unknown_8d883 ; 24
|
||||
dw Unknown_8d890 ; 25
|
||||
dw Unknown_8d890 ; 25 headbutt
|
||||
dw Unknown_8d899 ; 26
|
||||
dw Unknown_8d89c ; 27
|
||||
dw Unknown_8d89f ; 28
|
||||
@ -238,7 +238,7 @@ Unknown_8d883: db $56, $0a
|
||||
db $58, $09
|
||||
db $5a, $0a
|
||||
db -2
|
||||
Unknown_8d890: db $50, $02
|
||||
Unknown_8d890: db $50, $02 ; center
|
||||
db $5b, $02
|
||||
db $50, $02
|
||||
db $5b, $42
|
||||
|
||||
430
engine/anim_hp_bar.asm
Executable file
430
engine/anim_hp_bar.asm
Executable file
@ -0,0 +1,430 @@
|
||||
_AnimateHPBar: ; d627
|
||||
call Functiond65f
|
||||
jr c, .do_player
|
||||
call Functiond670
|
||||
.enemy_loop
|
||||
push bc
|
||||
push hl
|
||||
call Functiond6e2
|
||||
pop hl
|
||||
pop bc
|
||||
push af
|
||||
push bc
|
||||
push hl
|
||||
call Functiond730
|
||||
call Functiond7c9
|
||||
pop hl
|
||||
pop bc
|
||||
pop af
|
||||
jr nc, .enemy_loop
|
||||
ret
|
||||
|
||||
.do_player
|
||||
call Functiond670
|
||||
.player_loop
|
||||
push bc
|
||||
push hl
|
||||
call Functiond6f5
|
||||
pop hl
|
||||
pop bc
|
||||
ret c
|
||||
push af
|
||||
push bc
|
||||
push hl
|
||||
call Functiond749
|
||||
call Functiond7c9
|
||||
pop hl
|
||||
pop bc
|
||||
pop af
|
||||
jr nc, .player_loop
|
||||
ret
|
||||
; d65f
|
||||
|
||||
Functiond65f: ; d65f
|
||||
ld a, [Buffer2]
|
||||
and a
|
||||
jr nz, .player
|
||||
ld a, [Buffer1]
|
||||
cp 6 * 8
|
||||
jr nc, .player
|
||||
and a
|
||||
ret
|
||||
|
||||
.player
|
||||
scf
|
||||
ret
|
||||
; d670
|
||||
|
||||
Functiond670: ; d670
|
||||
; Buffer1-2: Max HP
|
||||
; Buffer3-4: Old HP
|
||||
; Buffer5-6: New HP
|
||||
push hl
|
||||
ld hl, Buffer1
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
ld a, [hli]
|
||||
ld c, a
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
pop hl
|
||||
call ComputeHPBarPixels
|
||||
ld a, e
|
||||
ld [wd1f1], a
|
||||
|
||||
ld a, [Buffer5]
|
||||
ld c, a
|
||||
ld a, [Buffer6]
|
||||
ld b, a
|
||||
ld a, [Buffer1]
|
||||
ld e, a
|
||||
ld a, [Buffer2]
|
||||
ld d, a
|
||||
call ComputeHPBarPixels
|
||||
ld a, e
|
||||
ld [wd1f2], a
|
||||
|
||||
push hl
|
||||
ld hl, Buffer3
|
||||
ld a, [hli]
|
||||
ld c, a
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
pop hl
|
||||
ld a, e
|
||||
sub c
|
||||
ld e, a
|
||||
ld a, d
|
||||
sbc b
|
||||
ld d, a
|
||||
jr c, .asm_d6c1
|
||||
ld a, [Buffer3]
|
||||
ld [wd1f5], a
|
||||
ld a, [Buffer5]
|
||||
ld [wd1f6], a
|
||||
ld bc, 1
|
||||
jr .asm_d6d9
|
||||
|
||||
.asm_d6c1
|
||||
ld a, [Buffer3]
|
||||
ld [wd1f6], a
|
||||
ld a, [Buffer5]
|
||||
ld [wd1f5], a
|
||||
ld a, e
|
||||
xor $ff
|
||||
inc a
|
||||
ld e, a
|
||||
ld a, d
|
||||
xor $ff
|
||||
ld d, a
|
||||
ld bc, rIE
|
||||
.asm_d6d9
|
||||
ld a, d
|
||||
ld [wd1f3], a
|
||||
ld a, e
|
||||
ld [wd1f4], a
|
||||
ret
|
||||
; d6e2
|
||||
|
||||
Functiond6e2: ; d6e2
|
||||
ld hl, wd1f1
|
||||
ld a, [wd1f2]
|
||||
cp [hl]
|
||||
jr nz, .asm_d6ed
|
||||
scf
|
||||
ret
|
||||
|
||||
.asm_d6ed
|
||||
ld a, c
|
||||
add [hl]
|
||||
ld [hl], a
|
||||
call Functiond839
|
||||
and a
|
||||
ret
|
||||
; d6f5
|
||||
|
||||
Functiond6f5: ; d6f5
|
||||
.asm_d6f5
|
||||
ld hl, Buffer3
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
ld a, e
|
||||
cp [hl]
|
||||
jr nz, .asm_d707
|
||||
inc hl
|
||||
ld a, d
|
||||
cp [hl]
|
||||
jr nz, .asm_d707
|
||||
scf
|
||||
ret
|
||||
|
||||
.asm_d707
|
||||
ld l, e
|
||||
ld h, d
|
||||
add hl, bc
|
||||
ld a, l
|
||||
ld [Buffer3], a
|
||||
ld a, h
|
||||
ld [wd1ed], a
|
||||
push hl
|
||||
push de
|
||||
push bc
|
||||
ld hl, Buffer1
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
ld a, [hli]
|
||||
ld c, a
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
call ComputeHPBarPixels
|
||||
pop bc
|
||||
pop de
|
||||
pop hl
|
||||
ld a, e
|
||||
ld hl, wd1f1
|
||||
cp [hl]
|
||||
jr z, .asm_d6f5
|
||||
ld [hl], a
|
||||
and a
|
||||
ret
|
||||
; d730
|
||||
|
||||
Functiond730: ; d730
|
||||
call Functiond784
|
||||
ld d, $6
|
||||
ld a, [wd10a]
|
||||
and $1
|
||||
ld b, a
|
||||
ld a, [wd1f1]
|
||||
ld e, a
|
||||
ld c, a
|
||||
push de
|
||||
call Functiond771
|
||||
pop de
|
||||
call Functiond7b4
|
||||
ret
|
||||
; d749
|
||||
|
||||
Functiond749: ; d749
|
||||
call Functiond784
|
||||
ld a, [Buffer3]
|
||||
ld c, a
|
||||
ld a, [wd1ed]
|
||||
ld b, a
|
||||
ld a, [Buffer1]
|
||||
ld e, a
|
||||
ld a, [Buffer2]
|
||||
ld d, a
|
||||
call ComputeHPBarPixels
|
||||
ld c, e
|
||||
ld d, $6
|
||||
ld a, [wd10a]
|
||||
and $1
|
||||
ld b, a
|
||||
push de
|
||||
call Functiond771
|
||||
pop de
|
||||
call Functiond7b4
|
||||
ret
|
||||
; d771
|
||||
|
||||
Functiond771: ; d771
|
||||
ld a, [wd10a]
|
||||
cp $2
|
||||
jr nz, .skip
|
||||
ld a, $28
|
||||
add l
|
||||
ld l, a
|
||||
ld a, $0
|
||||
adc h
|
||||
ld h, a
|
||||
.skip
|
||||
call DrawBattleHPBar
|
||||
ret
|
||||
; d784
|
||||
|
||||
Functiond784: ; d784
|
||||
ld a, [wd10a]
|
||||
and a
|
||||
ret z
|
||||
cp $1
|
||||
jr z, .load_15
|
||||
ld de, $16
|
||||
jr .loaded_de
|
||||
|
||||
.load_15
|
||||
ld de, $15
|
||||
.loaded_de
|
||||
push hl
|
||||
add hl, de
|
||||
ld a, " "
|
||||
rept 2
|
||||
ld [hli], a
|
||||
endr
|
||||
ld [hld], a
|
||||
dec hl
|
||||
ld a, [Buffer3]
|
||||
ld [StringBuffer2 + 1], a
|
||||
ld a, [wd1ed]
|
||||
ld [StringBuffer2], a
|
||||
ld de, StringBuffer2
|
||||
lb bc, 2, 3
|
||||
call PrintNum
|
||||
pop hl
|
||||
ret
|
||||
; d7b4
|
||||
|
||||
Functiond7b4: ; d7b4
|
||||
ld a, [hCGB]
|
||||
and a
|
||||
ret z
|
||||
ld hl, wd1f0
|
||||
call SetHPPal
|
||||
ld a, [wd1f0]
|
||||
ld c, a
|
||||
callba Function8c43
|
||||
ret
|
||||
; d7c9
|
||||
|
||||
Functiond7c9: ; d7c9
|
||||
ld a, [hCGB]
|
||||
and a
|
||||
jr nz, .cgb
|
||||
call DelayFrame
|
||||
call DelayFrame
|
||||
ret
|
||||
|
||||
.cgb
|
||||
ld a, [wd10a]
|
||||
and a
|
||||
jr z, .load_0
|
||||
cp $1
|
||||
jr z, .load_1
|
||||
ld a, [CurPartyMon]
|
||||
cp $3
|
||||
jr nc, .c_is_1
|
||||
ld c, $0
|
||||
jr .c_is_0
|
||||
|
||||
.c_is_1
|
||||
ld c, $1
|
||||
.c_is_0
|
||||
push af
|
||||
cp $2
|
||||
jr z, .skip_delay
|
||||
cp $5
|
||||
jr z, .skip_delay
|
||||
ld a, $2
|
||||
ld [hBGMapMode], a
|
||||
ld a, c
|
||||
ld [hBGMapThird], a
|
||||
call DelayFrame
|
||||
.skip_delay
|
||||
ld a, $1
|
||||
ld [hBGMapMode], a
|
||||
ld a, c
|
||||
ld [hBGMapThird], a
|
||||
call DelayFrame
|
||||
pop af
|
||||
cp $2
|
||||
jr z, .two_frames
|
||||
cp $5
|
||||
jr z, .two_frames
|
||||
ret
|
||||
|
||||
.two_frames
|
||||
inc c
|
||||
ld a, $2
|
||||
ld [hBGMapMode], a
|
||||
ld a, c
|
||||
ld [hBGMapThird], a
|
||||
call DelayFrame
|
||||
ld a, $1
|
||||
ld [hBGMapMode], a
|
||||
ld a, c
|
||||
ld [hBGMapThird], a
|
||||
call DelayFrame
|
||||
ret
|
||||
|
||||
.load_0
|
||||
ld c, $0
|
||||
jr .finish
|
||||
|
||||
.load_1
|
||||
ld c, $1
|
||||
.finish
|
||||
call DelayFrame
|
||||
ld a, c
|
||||
ld [hBGMapThird], a
|
||||
call DelayFrame
|
||||
ret
|
||||
; d839
|
||||
|
||||
Functiond839: ; d839
|
||||
ld a, [Buffer1]
|
||||
ld c, a
|
||||
ld b, 0
|
||||
ld hl, 0
|
||||
ld a, [wd1f1]
|
||||
cp 6 * 8
|
||||
jr nc, .coppy_buffer
|
||||
and a
|
||||
jr z, .return_zero
|
||||
call AddNTimes
|
||||
ld b, 0
|
||||
.loop
|
||||
ld a, l
|
||||
sub 6 * 8
|
||||
ld l, a
|
||||
ld a, h
|
||||
sbc $0
|
||||
ld h, a
|
||||
jr c, .done
|
||||
inc b
|
||||
jr .loop
|
||||
|
||||
.done
|
||||
push bc
|
||||
ld bc, $80
|
||||
add hl, bc
|
||||
pop bc
|
||||
ld a, l
|
||||
sub 6 * 8
|
||||
ld l, a
|
||||
ld a, h
|
||||
sbc $0
|
||||
ld h, a
|
||||
jr c, .no_carry
|
||||
inc b
|
||||
.no_carry
|
||||
ld a, [wd1f5]
|
||||
cp b
|
||||
jr nc, .finish
|
||||
ld a, [wd1f6]
|
||||
cp b
|
||||
jr c, .finish
|
||||
ld a, b
|
||||
.finish
|
||||
ld [Buffer3], a
|
||||
ret
|
||||
|
||||
.return_zero
|
||||
xor a
|
||||
ld [Buffer3], a
|
||||
ret
|
||||
|
||||
.coppy_buffer
|
||||
ld a, [Buffer1]
|
||||
ld [Buffer3], a
|
||||
ret
|
||||
; d88c
|
||||
@ -264,8 +264,8 @@ StartTrainerBattle_Flash: ; 8c3ab (23:43ab)
|
||||
ret
|
||||
|
||||
.DoFlashAnimation: ; 8c3b3 (23:43b3)
|
||||
ld a, [wd847]
|
||||
cp -1
|
||||
ld a, [wTimeOfDayPalset]
|
||||
cp %11111111 ; dark cave
|
||||
jr z, .done
|
||||
ld hl, wcf64
|
||||
ld a, [hl]
|
||||
|
||||
@ -2349,7 +2349,7 @@ Function29dba: ; 29dba
|
||||
ld a, [ScriptVar]
|
||||
and a
|
||||
jr z, .asm_29e08
|
||||
ld bc, rIE
|
||||
ld bc, -1
|
||||
.asm_29de0
|
||||
dec bc
|
||||
ld a, b
|
||||
|
||||
@ -3040,7 +3040,7 @@ Function579d: ; 579d
|
||||
ld [wd04e], a
|
||||
ld [PlayerObjectStepFrame], a
|
||||
call Function57bc
|
||||
callba CheckWarpCollision
|
||||
callba CheckWarpFacingDown
|
||||
call c, SpawnInFacingDown
|
||||
call SpawnInCustomFacing
|
||||
ret
|
||||
|
||||
@ -33,11 +33,9 @@ MapSetupScripts: ; 15377
|
||||
|
||||
MapSetupScript_Teleport: ; 1538f
|
||||
db map_prolong_sprites
|
||||
|
||||
MapSetupScript_Fly: ; 15390
|
||||
db map_fade_out_palettes
|
||||
db map_keep_roam
|
||||
|
||||
MapSetupScript_Warp: ; 15392
|
||||
db map_lcd_off
|
||||
db map_sound_off
|
||||
@ -61,7 +59,7 @@ MapSetupScript_Warp: ; 15392
|
||||
db map_fade_in_palettes
|
||||
db map_animations_on
|
||||
db map_wildmons
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
MapSetupScript_BadWarp: ; 153a9
|
||||
db map_load_spawn
|
||||
@ -85,7 +83,7 @@ MapSetupScript_BadWarp: ; 153a9
|
||||
db map_fade_in_palettes
|
||||
db map_animations_on
|
||||
db map_wildmons
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
MapSetupScript_Connection: ; 153bf
|
||||
db map_animations_off
|
||||
@ -104,14 +102,12 @@ MapSetupScript_Connection: ; 153bf
|
||||
db map_wildmons
|
||||
db map_update_roam
|
||||
db map_animations_on
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
MapSetupScript_Fall: ; 153d0
|
||||
db map_prolong_sprites
|
||||
|
||||
MapSetupScript_Door: ; 153d1
|
||||
db map_fade_out_palettes
|
||||
|
||||
MapSetupScript_Train: ; 153d2
|
||||
db map_load_warp
|
||||
db map_attributes
|
||||
@ -133,7 +129,7 @@ MapSetupScript_Train: ; 153d2
|
||||
db map_animations_on
|
||||
db map_wildmons
|
||||
db map_update_roam
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
MapSetupScript_ReloadMap: ; 153e7
|
||||
db map_fade
|
||||
@ -151,7 +147,7 @@ MapSetupScript_ReloadMap: ; 153e7
|
||||
db map_fade_in_palettes
|
||||
db map_animations_on
|
||||
db map_wildmons
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
MapSetupScript_LinkReturn: ; 153f7
|
||||
db map_fade
|
||||
@ -170,7 +166,7 @@ MapSetupScript_LinkReturn: ; 153f7
|
||||
db map_animations_on
|
||||
db map_wildmons
|
||||
db map_text_scroll_off
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
MapSetupScript_Continue: ; 15408
|
||||
db map_lcd_off
|
||||
@ -190,12 +186,12 @@ MapSetupScript_Continue: ; 15408
|
||||
db map_fade_in_palettes
|
||||
db map_animations_on
|
||||
db map_wildmons
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
MapSetupScript_Submenu: ; 1541a
|
||||
db map_load_blocks
|
||||
db map_connection_blocks
|
||||
db map_end_setup_script
|
||||
db map_end
|
||||
|
||||
|
||||
ReadMapSetupScript: ; 1541d
|
||||
|
||||
@ -190,7 +190,7 @@ PlacePartymonHPBar: ; 50117
|
||||
ld d, a
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
predef DrawPartyMenuHPBar
|
||||
predef ComputeHPBarPixels
|
||||
ret
|
||||
; 50138
|
||||
|
||||
|
||||
@ -34,7 +34,7 @@ PredefPointers:: ; 856b
|
||||
add_predef Predef1
|
||||
add_predef HealParty
|
||||
add_predef FlagPredef
|
||||
add_predef DrawPartyMenuHPBar
|
||||
add_predef ComputeHPBarPixels
|
||||
add_predef FillPP
|
||||
add_predef TryAddMonToParty
|
||||
add_predef AddTempmonToParty
|
||||
|
||||
@ -16,7 +16,7 @@ endr
|
||||
|
||||
.Jumptable: ; 8d25b (23:525b)
|
||||
jumptable_start
|
||||
jumptable .zero ; town map
|
||||
jumptable .zero ; null
|
||||
jumptable .one ; bouncing mon icon
|
||||
jumptable .two ; bouncing mon icon, selected
|
||||
jumptable .three ; bouncing mon icon, menu open
|
||||
|
||||
@ -585,7 +585,7 @@ SpriteAnimSeqData: ; 8d1c4
|
||||
db SPRITE_ANIM_FRAMESET_1D, SPRITE_ANIM_SEQ_17, $00 ; 18 flying leaves
|
||||
db SPRITE_ANIM_FRAMESET_1F, SPRITE_ANIM_SEQ_00, $00 ; 19
|
||||
db SPRITE_ANIM_FRAMESET_24, SPRITE_ANIM_SEQ_19, $00 ; 1a
|
||||
db SPRITE_ANIM_FRAMESET_25, SPRITE_ANIM_SEQ_00, $00 ; 1b
|
||||
db SPRITE_ANIM_FRAMESET_25, SPRITE_ANIM_SEQ_00, $00 ; 1b headbutt
|
||||
db SPRITE_ANIM_FRAMESET_20, SPRITE_ANIM_SEQ_13, $00 ; 1c
|
||||
db SPRITE_ANIM_FRAMESET_26, SPRITE_ANIM_SEQ_1A, $00 ; 1d
|
||||
db SPRITE_ANIM_FRAMESET_2D, SPRITE_ANIM_SEQ_00, $00 ; 1e
|
||||
|
||||
@ -1280,7 +1280,7 @@ MonMenu_Fly: ; 12e30
|
||||
; 12e55
|
||||
|
||||
MonMenu_Flash: ; 12e55
|
||||
callba Functionc8ac
|
||||
callba OWFlash
|
||||
ld a, [wFieldMoveSucceeded]
|
||||
cp $1
|
||||
jr nz, .Fail
|
||||
|
||||
@ -407,7 +407,7 @@ Function4df45: ; 4df45 (13:5f45)
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
ld e, [hl]
|
||||
callba DrawPartyMenuHPBar
|
||||
callba ComputeHPBarPixels
|
||||
ld hl, wcda1
|
||||
call SetHPPal
|
||||
ld b, SCGB_03
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
Function8c001:: ; 8c001
|
||||
UpdateTimeOfDayPal:: ; 8c001
|
||||
call UpdateTime
|
||||
ld a, [TimeOfDay]
|
||||
ld [CurTimeOfDay], a
|
||||
@ -12,7 +12,7 @@ _TimeOfDayPals:: ; 8c011
|
||||
; return carry if pals are changed
|
||||
|
||||
; forced pals?
|
||||
ld hl, wd846
|
||||
ld hl, wTimeOfDayPalFlags
|
||||
bit 7, [hl]
|
||||
jr nz, .dontchange
|
||||
|
||||
@ -198,7 +198,7 @@ brightlevel: MACRO
|
||||
db (\1 << 6) | (\2 << 4) | (\3 << 2) | \4
|
||||
ENDM
|
||||
|
||||
Function8c0e5: ; 8c0e5
|
||||
ReplaceTimeOfDayPals: ; 8c0e5
|
||||
ld hl, .BrightnessLevels
|
||||
ld a, [wc2d0]
|
||||
cp $4 ; Dark cave, needs Flash
|
||||
@ -210,18 +210,20 @@ Function8c0e5: ; 8c0e5
|
||||
adc h
|
||||
ld h, a
|
||||
ld a, [hl]
|
||||
ld [wd847], a
|
||||
ld [wTimeOfDayPalset], a
|
||||
ret
|
||||
|
||||
.DarkCave
|
||||
ld a, [StatusFlags]
|
||||
bit 2, a
|
||||
bit 2, a ; Flash
|
||||
jr nz, .UsedFlash
|
||||
ld a, $ff ; 3, 3, 3, 3
|
||||
ld [wd847], a
|
||||
ld a, %11111111 ; 3, 3, 3, 3
|
||||
ld [wTimeOfDayPalset], a
|
||||
ret
|
||||
|
||||
.UsedFlash
|
||||
ld a, $aa ; 2, 2, 2, 2
|
||||
ld [wd847], a
|
||||
ld a, %10101010 ; 2, 2, 2, 2
|
||||
ld [wTimeOfDayPalset], a
|
||||
ret
|
||||
; 8c10f (23:410f)
|
||||
|
||||
@ -257,25 +259,25 @@ endr
|
||||
dw .DarknessPalette
|
||||
|
||||
.MorningPalette
|
||||
ld a, [wd847]
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %00000011 ; 0
|
||||
ret
|
||||
|
||||
.DayPalette
|
||||
ld a, [wd847]
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %00001100 ; 1
|
||||
srl a
|
||||
srl a
|
||||
ret
|
||||
|
||||
.NitePalette
|
||||
ld a, [wd847]
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %00110000 ; 2
|
||||
swap a
|
||||
ret
|
||||
|
||||
.DarknessPalette
|
||||
ld a, [wd847]
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %11000000 ; 3
|
||||
rlca
|
||||
rlca
|
||||
|
||||
@ -237,8 +237,8 @@ LoadMapTimeOfDay: ; 104750
|
||||
res 6, [hl]
|
||||
ld a, $1
|
||||
ld [wSpriteUpdatesEnabled], a
|
||||
callba Function8c0e5
|
||||
callba Function8c001
|
||||
callba ReplaceTimeOfDayPals
|
||||
callba UpdateTimeOfDayPal
|
||||
call OverworldTextModeSwitch
|
||||
call Function104770
|
||||
call Function1047a3
|
||||
|
||||
@ -9,12 +9,12 @@ PlayWhirlpoolSound: ; 8c7d4
|
||||
BlindingFlash: ; 8c7e1
|
||||
callba FadeOutPalettes
|
||||
ld hl, StatusFlags
|
||||
set 2, [hl]
|
||||
callba Function8c0e5
|
||||
callba Function8c001
|
||||
set 2, [hl] ; Flash
|
||||
callba ReplaceTimeOfDayPals
|
||||
callba UpdateTimeOfDayPal
|
||||
ld b, SCGB_09
|
||||
call GetSGBLayout
|
||||
callba Function49409
|
||||
callba LoadOW_BGPal7
|
||||
callba FadeInPalettes
|
||||
ret
|
||||
; 8c80a
|
||||
@ -32,13 +32,13 @@ ShakeHeadbuttTree: ; 8c80a
|
||||
call Cut_Headbutt_GetPixelFacing
|
||||
ld a, SPRITE_ANIM_INDEX_1B
|
||||
call _InitSpriteAnimStruct
|
||||
ld hl, $3
|
||||
ld hl, SPRITEANIMSTRUCT_TILE_ID
|
||||
add hl, bc
|
||||
ld [hl], $84
|
||||
ld a, 36 * 4
|
||||
ld [wCurrSpriteOAMAddr], a
|
||||
callba DoNextFrameForAllSprites
|
||||
call GetHeadbuttTreeRelativeLocation
|
||||
call HideHeadbuttTree
|
||||
ld a, $20
|
||||
ld [wcf64], a
|
||||
call WaitSFX
|
||||
@ -78,7 +78,7 @@ HeadbuttTreeGFX: ; 8c893
|
||||
INCBIN "gfx/unknown/08c893.2bpp"
|
||||
; 8c913
|
||||
|
||||
GetHeadbuttTreeRelativeLocation: ; 8c913
|
||||
HideHeadbuttTree: ; 8c913
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
ld a, [PlayerDirection]
|
||||
@ -113,6 +113,9 @@ TreeRelativeLocationTable: ; 8c938
|
||||
; 8c940
|
||||
|
||||
OWCutAnimation: ; 8c940
|
||||
; Animation index in e
|
||||
; 0: Split tree in half
|
||||
; 1: Mow the lawn
|
||||
ld a, e
|
||||
and $1
|
||||
ld [wJumptableIndex], a
|
||||
|
||||
129
home/map.asm
129
home/map.asm
@ -114,9 +114,9 @@ LoadMapPart:: ; 217a
|
||||
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
||||
call ByteFill
|
||||
|
||||
ld a, BANK(Function4d15b)
|
||||
ld a, BANK(_LoadMapPart)
|
||||
rst Bankswitch
|
||||
call Function4d15b
|
||||
call _LoadMapPart
|
||||
|
||||
pop af
|
||||
rst Bankswitch
|
||||
@ -124,38 +124,40 @@ LoadMapPart:: ; 217a
|
||||
; 2198
|
||||
|
||||
LoadMetatiles:: ; 2198
|
||||
; de <- wOverworldMapAnchor
|
||||
; de <- wOverworldMapAnchor
|
||||
ld a, [wOverworldMapAnchor]
|
||||
ld e, a
|
||||
ld a, [wOverworldMapAnchor + 1]
|
||||
ld d, a
|
||||
ld hl, wMisc
|
||||
ld b, 5 ; SCREEN_WIDTH / 4
|
||||
ld b, WMISC_HEIGHT / 4 ; 5
|
||||
|
||||
.loop
|
||||
.row
|
||||
push de
|
||||
push hl
|
||||
ld c, 6 ; SCREEN_HEIGHT / 3
|
||||
ld c, WMISC_WIDTH / 4 ; 6
|
||||
|
||||
.loop2
|
||||
.col
|
||||
push de
|
||||
push hl
|
||||
; Load the current map block.
|
||||
; If the current map block is a border block, load the border block.
|
||||
ld a, [de]
|
||||
and a
|
||||
jr nz, .ok
|
||||
ld a, [MapBorderBlock]
|
||||
|
||||
.ok
|
||||
; Load the current wMisc address into de.
|
||||
ld e, l
|
||||
ld d, h
|
||||
; double a, load hl <- a, multiply hl by 8
|
||||
; Set hl to the address of the current metatile data ([TilesetBlocksAddress] + (a) tiles).
|
||||
add a
|
||||
ld l, a
|
||||
ld h, 0
|
||||
rept 3
|
||||
add hl,hl
|
||||
add hl, hl
|
||||
endr
|
||||
; hl <- hl + [TilesetBlocksAddress]
|
||||
ld a, [TilesetBlocksAddress]
|
||||
add l
|
||||
ld l, a
|
||||
@ -163,37 +165,36 @@ endr
|
||||
adc h
|
||||
ld h, a
|
||||
|
||||
; copy the 4x4 metatile
|
||||
rept 3
|
||||
; copy 4 bytes from hl to de
|
||||
rept 4
|
||||
ld a, [hli]
|
||||
ld [de], a
|
||||
inc de
|
||||
endr
|
||||
; next row
|
||||
ld a, e
|
||||
add SCREEN_WIDTH
|
||||
add WMISC_WIDTH - 4
|
||||
ld e, a
|
||||
jr nc, .next\@
|
||||
inc d
|
||||
.next\@
|
||||
endr
|
||||
; copy 4 more bytes from hl to de
|
||||
rept 4
|
||||
ld a, [hli]
|
||||
ld [de], a
|
||||
inc de
|
||||
endr
|
||||
|
||||
; Next metatile
|
||||
pop hl
|
||||
ld de, 4
|
||||
add hl, de
|
||||
pop de
|
||||
inc de
|
||||
dec c
|
||||
jp nz, .loop2
|
||||
jp nz, .col
|
||||
; Next metarow
|
||||
pop hl
|
||||
ld de, $60
|
||||
ld de, WMISC_WIDTH * 4
|
||||
add hl, de
|
||||
pop de
|
||||
ld a, [MapWidth]
|
||||
@ -202,10 +203,9 @@ endr
|
||||
ld e, a
|
||||
jr nc, .ok2
|
||||
inc d
|
||||
|
||||
.ok2
|
||||
dec b
|
||||
jp nz, .loop
|
||||
jp nz, .row
|
||||
ret
|
||||
; 222a
|
||||
|
||||
@ -223,7 +223,7 @@ CheckWarpTile:: ; 2238
|
||||
ret nc
|
||||
|
||||
push bc
|
||||
callba Function149af
|
||||
callba CheckDirectionalWarp
|
||||
pop bc
|
||||
ret nc
|
||||
|
||||
@ -232,8 +232,6 @@ CheckWarpTile:: ; 2238
|
||||
ret
|
||||
; 224a
|
||||
|
||||
|
||||
|
||||
WarpCheck:: ; 224a
|
||||
call GetDestinationWarpNumber
|
||||
ret nc
|
||||
@ -242,7 +240,7 @@ WarpCheck:: ; 224a
|
||||
; 2252
|
||||
|
||||
GetDestinationWarpNumber:: ; 2252
|
||||
callba Function1499a
|
||||
callba CheckWarpCollision
|
||||
ret nc
|
||||
|
||||
ld a, [hROMBank]
|
||||
@ -366,8 +364,6 @@ CopyWarpData:: ; 22a7
|
||||
ret
|
||||
; 22ee
|
||||
|
||||
|
||||
|
||||
CheckOutdoorMap:: ; 22ee
|
||||
cp ROUTE
|
||||
ret z
|
||||
@ -395,7 +391,6 @@ Function2300:: ; unreferenced
|
||||
ret
|
||||
; 2309
|
||||
|
||||
|
||||
LoadMapAttributes:: ; 2309
|
||||
call CopyMapHeaders
|
||||
call SwitchToMapScriptHeaderBank
|
||||
@ -503,7 +498,6 @@ GetMapConnections:: ; 2368
|
||||
ret
|
||||
; 23a3
|
||||
|
||||
|
||||
GetMapConnection:: ; 23a3
|
||||
; Load map connection struct at hl into de.
|
||||
ld c, SouthMapConnection - NorthMapConnection
|
||||
@ -516,7 +510,6 @@ GetMapConnection:: ; 23a3
|
||||
ret
|
||||
; 23ac
|
||||
|
||||
|
||||
ReadMapTriggers:: ; 23ac
|
||||
ld a, [hli] ; trigger count
|
||||
ld c, a
|
||||
@ -749,8 +742,6 @@ LoadBlockData:: ; 24cd
|
||||
ret
|
||||
; 24e4
|
||||
|
||||
|
||||
|
||||
ChangeMap:: ; 24e4
|
||||
ld a, [hROMBank]
|
||||
push af
|
||||
@ -801,8 +792,6 @@ endr
|
||||
ret
|
||||
; 2524
|
||||
|
||||
|
||||
|
||||
FillMapConnections:: ; 2524
|
||||
|
||||
; North
|
||||
@ -901,7 +890,6 @@ FillMapConnections:: ; 2524
|
||||
ret
|
||||
; 25d3
|
||||
|
||||
|
||||
FillNorthConnectionStrip::
|
||||
FillSouthConnectionStrip:: ; 25d3
|
||||
|
||||
@ -938,7 +926,6 @@ FillSouthConnectionStrip:: ; 25d3
|
||||
ret
|
||||
; 25f6
|
||||
|
||||
|
||||
FillWestConnectionStrip::
|
||||
FillEastConnectionStrip:: ; 25f6
|
||||
|
||||
@ -983,7 +970,6 @@ LoadMapStatus:: ; 261b
|
||||
ret
|
||||
; 261f
|
||||
|
||||
|
||||
CallScript:: ; 261f
|
||||
; Call a script at a:hl.
|
||||
|
||||
@ -1138,7 +1124,6 @@ GetMovementData:: ; 26c7
|
||||
ret
|
||||
; 26d4
|
||||
|
||||
|
||||
GetScriptByte:: ; 0x26d4
|
||||
; Return byte at ScriptBank:ScriptPos in a.
|
||||
|
||||
@ -1170,7 +1155,6 @@ GetScriptByte:: ; 0x26d4
|
||||
ret
|
||||
; 0x26ef
|
||||
|
||||
|
||||
ObjectEvent:: ; 0x26ef
|
||||
jumptextfaceplayer ObjectEventText
|
||||
; 0x26f2
|
||||
@ -1180,7 +1164,6 @@ ObjectEventText::
|
||||
db "@"
|
||||
; 0x26f7
|
||||
|
||||
|
||||
BGEvent:: ; 26f7
|
||||
jumptext BGEventText
|
||||
; 26fa
|
||||
@ -1190,7 +1173,6 @@ BGEventText:: ; 26fa
|
||||
db "@"
|
||||
; 26ff
|
||||
|
||||
|
||||
CoordinatesEvent:: ; 26ff
|
||||
jumptext CoordinatesEventText
|
||||
; 2702
|
||||
@ -1200,7 +1182,6 @@ CoordinatesEventText:: ; 2702
|
||||
db "@"
|
||||
; 2707
|
||||
|
||||
|
||||
CheckObjectMask:: ; 2707
|
||||
ld a, [hMapObjectIndexBuffer]
|
||||
ld e, a
|
||||
@ -1231,7 +1212,6 @@ UnmaskObject:: ; 271e
|
||||
ret
|
||||
; 272a
|
||||
|
||||
|
||||
ScrollMapDown:: ; 272a
|
||||
hlcoord 0, 0
|
||||
ld de, BGMapBuffer
|
||||
@ -1472,7 +1452,7 @@ BufferScreen:: ; 2879
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld de, XCoord + 1
|
||||
ld de, wScreenSave
|
||||
ld c, $5
|
||||
ld b, $6
|
||||
.asm_2886
|
||||
@ -1501,9 +1481,9 @@ SaveScreen:: ; 289d
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld de, XCoord + 1
|
||||
ld de, wScreenSave
|
||||
ld a, [MapWidth]
|
||||
add $6
|
||||
add 6
|
||||
ld [hMapObjectIndexBuffer], a
|
||||
ld a, [wPlayerStepDirection]
|
||||
and a
|
||||
@ -1517,7 +1497,7 @@ SaveScreen:: ; 289d
|
||||
ret
|
||||
|
||||
.up
|
||||
ld de, wdcbf
|
||||
ld de, wScreenSave + 6
|
||||
ld a, [hMapObjectIndexBuffer]
|
||||
ld c, a
|
||||
ld b, $0
|
||||
@ -1525,26 +1505,23 @@ SaveScreen:: ; 289d
|
||||
jr .vertical
|
||||
|
||||
.down
|
||||
ld de, XCoord + 1
|
||||
|
||||
ld de, wScreenSave
|
||||
.vertical
|
||||
ld b, $6
|
||||
ld c, $4
|
||||
jr Function28f7
|
||||
ld b, 6
|
||||
ld c, 4
|
||||
jr SaveScreen_LoadNeighbor
|
||||
|
||||
.left
|
||||
ld de, XCoord + 2
|
||||
ld de, wScreenSave + 1
|
||||
inc hl
|
||||
jr .horizontal
|
||||
|
||||
.right
|
||||
ld de, XCoord + 1
|
||||
|
||||
ld de, wScreenSave
|
||||
.horizontal
|
||||
ld b, $5
|
||||
ld c, $5
|
||||
jr Function28f7
|
||||
|
||||
ld b, 5
|
||||
ld c, 5
|
||||
jr SaveScreen_LoadNeighbor
|
||||
|
||||
LoadNeighboringBlockData:: ; 28e3
|
||||
ld hl, wOverworldMapAnchor
|
||||
@ -1552,26 +1529,26 @@ LoadNeighboringBlockData:: ; 28e3
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld a, [MapWidth]
|
||||
add $6
|
||||
add 6
|
||||
ld [hConnectionStripLength], a
|
||||
ld de, XCoord + 1
|
||||
ld b, $6
|
||||
ld c, $5
|
||||
ld de, wScreenSave
|
||||
ld b, 6
|
||||
ld c, 5
|
||||
|
||||
Function28f7:: ; 28f7
|
||||
.loop1
|
||||
SaveScreen_LoadNeighbor:: ; 28f7
|
||||
.row
|
||||
push bc
|
||||
push hl
|
||||
push de
|
||||
.loop2
|
||||
.col
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [hli], a
|
||||
dec b
|
||||
jr nz, .loop2
|
||||
jr nz, .col
|
||||
pop de
|
||||
ld a, e
|
||||
add $6
|
||||
add 6
|
||||
ld e, a
|
||||
jr nc, .okay
|
||||
inc d
|
||||
@ -1580,11 +1557,11 @@ Function28f7:: ; 28f7
|
||||
pop hl
|
||||
ld a, [hConnectionStripLength]
|
||||
ld c, a
|
||||
ld b, $0
|
||||
ld b, 0
|
||||
add hl, bc
|
||||
pop bc
|
||||
dec c
|
||||
jr nz, .loop1
|
||||
jr nz, .row
|
||||
ret
|
||||
; 2914
|
||||
|
||||
@ -1746,7 +1723,6 @@ Function29ff:: ; 29ff
|
||||
ret
|
||||
; 2a07
|
||||
|
||||
|
||||
GetFacingTileCoord:: ; 2a07
|
||||
; Return map coordinates in (d, e) and tile id in a
|
||||
; of the tile the player is facing.
|
||||
@ -1793,7 +1769,6 @@ endr
|
||||
dw TileRight
|
||||
; 2a3c
|
||||
|
||||
|
||||
GetCoordTile:: ; 2a3c
|
||||
; Get the collision byte for tile d, e
|
||||
call GetBlockLocation
|
||||
@ -1861,7 +1836,6 @@ GetBlockLocation:: ; 2a66
|
||||
ret
|
||||
; 2a8b
|
||||
|
||||
|
||||
CheckFacingSign:: ; 2a8b
|
||||
call GetFacingTileCoord
|
||||
; Load facing into b.
|
||||
@ -2002,7 +1976,6 @@ CheckStandingOnXYTrigger:: ; 2ae7
|
||||
ret
|
||||
; 2b29
|
||||
|
||||
|
||||
FadeToMenu:: ; 2b29
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
@ -2013,7 +1986,6 @@ FadeToMenu:: ; 2b29
|
||||
ret
|
||||
; 2b3c
|
||||
|
||||
|
||||
CloseSubmenu:: ; 2b3c
|
||||
call ClearBGPalettes
|
||||
call Function2bae
|
||||
@ -2032,14 +2004,13 @@ ExitAllMenus:: ; 2b4d
|
||||
Function2b5c:: ; 2b5c
|
||||
ld b, SCGB_09
|
||||
call GetSGBLayout
|
||||
callba Function49409
|
||||
callba LoadOW_BGPal7
|
||||
call WaitBGMap2
|
||||
callba FadeInPalettes
|
||||
call EnableSpriteUpdates
|
||||
ret
|
||||
; 2b74
|
||||
|
||||
|
||||
Function2b74:: ; 0x2b74
|
||||
push af
|
||||
ld a, $1
|
||||
@ -2056,7 +2027,7 @@ Function2b74:: ; 0x2b74
|
||||
call WaitBGMap2
|
||||
ld b, SCGB_09
|
||||
call GetSGBLayout
|
||||
callba Function49409
|
||||
callba LoadOW_BGPal7
|
||||
call UpdateTimePals
|
||||
call DelayFrame
|
||||
ld a, $1
|
||||
@ -2078,7 +2049,7 @@ Function2bae:: ; 2bae
|
||||
ld a, [MapNumber]
|
||||
ld c, a
|
||||
call SwitchToAnyMapBank
|
||||
callba Function8c001
|
||||
callba UpdateTimeOfDayPal
|
||||
call OverworldTextModeSwitch
|
||||
call LoadTileset
|
||||
ld a, 9
|
||||
@ -2090,7 +2061,6 @@ Function2bae:: ; 2bae
|
||||
ret
|
||||
; 2be5
|
||||
|
||||
|
||||
GetMapHeaderPointer:: ; 2be5
|
||||
ld a, [MapGroup]
|
||||
ld b, a
|
||||
@ -2167,7 +2137,6 @@ GetAnyMapHeaderMember:: ; 0x2c0c
|
||||
ret
|
||||
; 0x2c1c
|
||||
|
||||
|
||||
SwitchToMapBank:: ; 2c1c
|
||||
ld a, [MapGroup]
|
||||
ld b, a
|
||||
@ -2181,7 +2150,6 @@ SwitchToAnyMapBank:: ; 2c24
|
||||
ret
|
||||
; 2c29
|
||||
|
||||
|
||||
GetMapBank:: ; 2c29
|
||||
ld a, [MapGroup]
|
||||
ld b, a
|
||||
@ -2224,7 +2192,6 @@ SwitchToMapScriptHeaderBank:: ; 2c52
|
||||
ret
|
||||
; 2c57
|
||||
|
||||
|
||||
GetMapScriptHeaderBank:: ; 2c57
|
||||
ld a, [MapScriptHeaderBank]
|
||||
ret
|
||||
|
||||
@ -2697,7 +2697,7 @@ Function1111d7: ; 1111d7
|
||||
dec hl
|
||||
|
||||
.asm_1111ee
|
||||
ld bc, rIE
|
||||
ld bc, -1
|
||||
.asm_1111f1
|
||||
ld a, [hli]
|
||||
inc bc
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user