mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
32ed487a47
# Conflicts: # audio/engine.asm # constants/gfx_constants.asm # constants/map_data_constants.asm # constants/pokemon_data_constants.asm # constants/sprite_constants.asm # constants/wram_constants.asm # data/maps/data.asm # engine/battle/ai/scoring.asm # engine/battle/core.asm # engine/battle/effect_commands.asm # engine/battle/misc.asm # engine/battle_anims/getpokeballwobble.asm # engine/breeding.asm # engine/buy_sell_toss.asm # engine/decorations.asm # engine/events/battle_tower/battle_tower.asm # engine/events/battle_tower/rules.asm # engine/events/buena.asm # engine/events/bug_contest/contest_2.asm # engine/events/daycare.asm # engine/events/dratini.asm # engine/events/halloffame.asm # engine/events/happiness_egg.asm # engine/events/kurt.asm # engine/events/lucky_number.asm # engine/events/magnet_train.asm # engine/events/overworld.asm # engine/events/pokerus/pokerus.asm # engine/events/print_unown.asm # engine/events/print_unown_2.asm # engine/events/unown_walls.asm # engine/item_effects.asm # engine/link.asm # engine/mon_menu.asm # engine/player_object.asm # engine/routines/playslowcry.asm # engine/scripting.asm # engine/search.asm # engine/search2.asm # engine/specials.asm # engine/start_menu.asm # engine/timeset.asm # home/battle_vars.asm # home/map.asm # maps/GoldenrodUndergroundSwitchRoomEntrances.asm # maps/IlexForest.asm # maps/KrissHouse2F.asm # maps/Route39Barn.asm # mobile/mobile_12_2.asm # mobile/mobile_40.asm # mobile/mobile_5f.asm # wram.asm
241 lines
3.5 KiB
NASM
Executable File
241 lines
3.5 KiB
NASM
Executable File
DisplayUsedMoveText: ; 105db0
|
|
; battle command 03
|
|
ld hl, UsedMoveText
|
|
call BattleTextBox
|
|
jp WaitBGMap
|
|
; 105db9
|
|
|
|
UsedMoveText: ; 105db9
|
|
; this is a stream of text and asm from 105db9 to 105ef6
|
|
text_jump _ActorNameText
|
|
start_asm
|
|
ld a, [hBattleTurn]
|
|
and a
|
|
jr nz, .start
|
|
|
|
ld a, [wPlayerMoveStruct + MOVE_ANIM]
|
|
call UpdateUsedMoves
|
|
|
|
.start
|
|
ld a, BATTLE_VARS_LAST_MOVE
|
|
call GetBattleVarAddr
|
|
ld d, h
|
|
ld e, l
|
|
|
|
ld a, BATTLE_VARS_LAST_COUNTER_MOVE
|
|
call GetBattleVarAddr
|
|
|
|
ld a, BATTLE_VARS_MOVE_ANIM
|
|
call GetBattleVar
|
|
ld [wd265], a
|
|
|
|
push hl
|
|
farcall CheckUserIsCharging
|
|
pop hl
|
|
jr nz, .grammar
|
|
|
|
; update last move
|
|
ld a, [wd265]
|
|
ld [hl], a
|
|
ld [de], a
|
|
|
|
.grammar
|
|
call GetMoveGrammar
|
|
; wd265 now contains MoveGrammar
|
|
|
|
; everything except 'instead' made redundant in localization
|
|
|
|
; check obedience
|
|
ld a, [wAlreadyDisobeyed]
|
|
and a
|
|
ld hl, UsedMove2Text
|
|
ret nz
|
|
|
|
; check move grammar
|
|
ld a, [wd265]
|
|
cp $3
|
|
ld hl, UsedMove2Text
|
|
ret c
|
|
ld hl, UsedMove1Text
|
|
ret
|
|
; 105e04
|
|
|
|
UsedMove1Text: ; 105e04
|
|
text_jump _UsedMove1Text
|
|
start_asm
|
|
jr UsedMoveText_CheckObedience
|
|
; 105e0b
|
|
|
|
UsedMove2Text: ; 105e0b
|
|
text_jump _UsedMove2Text
|
|
start_asm
|
|
UsedMoveText_CheckObedience: ; 105e10
|
|
; check obedience
|
|
ld a, [wAlreadyDisobeyed]
|
|
and a
|
|
jr z, .GetMoveNameText
|
|
; print "instead,"
|
|
ld hl, .UsedInsteadText
|
|
ret
|
|
; 105e1a
|
|
|
|
.UsedInsteadText:
|
|
text_jump _UsedInsteadText
|
|
start_asm
|
|
.GetMoveNameText:
|
|
ld hl, MoveNameText
|
|
ret
|
|
; 105e23
|
|
|
|
MoveNameText: ; 105e23
|
|
text_jump _MoveNameText
|
|
start_asm
|
|
; get start address
|
|
ld hl, .endusedmovetexts
|
|
|
|
; get move id
|
|
ld a, [wd265]
|
|
|
|
; 2-byte pointer
|
|
add a
|
|
|
|
; seek
|
|
push bc
|
|
ld b, $0
|
|
ld c, a
|
|
add hl, bc
|
|
pop bc
|
|
|
|
; get pointer to usedmovetext ender
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ret
|
|
; 105e39
|
|
|
|
.endusedmovetexts ; 105e39
|
|
; entries correspond to MoveGrammar sets
|
|
dw EndUsedMove1Text
|
|
dw EndUsedMove2Text
|
|
dw EndUsedMove3Text
|
|
dw EndUsedMove4Text
|
|
dw EndUsedMove5Text
|
|
; 105e43
|
|
|
|
EndUsedMove1Text: ; 105e43
|
|
text_jump _EndUsedMove1Text
|
|
db "@"
|
|
; 105e48
|
|
EndUsedMove2Text: ; 105e48
|
|
text_jump _EndUsedMove2Text
|
|
db "@"
|
|
; 105e4d
|
|
EndUsedMove3Text: ; 105e4d
|
|
text_jump _EndUsedMove3Text
|
|
db "@"
|
|
; 105e52
|
|
EndUsedMove4Text: ; 105e52
|
|
text_jump _EndUsedMove4Text
|
|
db "@"
|
|
; 105e57
|
|
EndUsedMove5Text: ; 105e57
|
|
text_jump _EndUsedMove5Text
|
|
db "@"
|
|
; 105e5c
|
|
|
|
|
|
GetMoveGrammar: ; 105e5c
|
|
; store move grammar type in wd265
|
|
|
|
push bc
|
|
; c = move id
|
|
ld a, [wd265]
|
|
ld c, a
|
|
ld b, $0
|
|
|
|
; read grammar table
|
|
ld hl, MoveGrammar
|
|
.loop
|
|
ld a, [hli]
|
|
; end of table?
|
|
cp -1
|
|
jr z, .end
|
|
; match?
|
|
cp c
|
|
jr z, .end
|
|
; advance grammar type at 0
|
|
and a
|
|
jr nz, .loop
|
|
; next grammar type
|
|
inc b
|
|
jr .loop
|
|
|
|
.end
|
|
; wd265 now contains move grammar
|
|
ld a, b
|
|
ld [wd265], a
|
|
|
|
; we're done
|
|
pop bc
|
|
ret
|
|
; 105e7a
|
|
|
|
INCLUDE "data/moves/grammar.asm"
|
|
|
|
|
|
UpdateUsedMoves: ; 105ed0
|
|
; append move a to wPlayerUsedMoves unless it has already been used
|
|
|
|
push bc
|
|
; start of list
|
|
ld hl, wPlayerUsedMoves
|
|
; get move id
|
|
ld b, a
|
|
; next count
|
|
ld c, NUM_MOVES
|
|
|
|
.loop
|
|
; get move from the list
|
|
ld a, [hli]
|
|
; not used yet?
|
|
and a
|
|
jr z, .add
|
|
; already used?
|
|
cp b
|
|
jr z, .quit
|
|
; next byte
|
|
dec c
|
|
jr nz, .loop
|
|
|
|
; if the list is full and the move hasn't already been used
|
|
; shift the list back one byte, deleting the first move used
|
|
; this can occur with struggle or a new learned move
|
|
ld hl, wPlayerUsedMoves + 1
|
|
; 1 = 2
|
|
ld a, [hld]
|
|
ld [hli], a
|
|
; 2 = 3
|
|
inc hl
|
|
ld a, [hld]
|
|
ld [hli], a
|
|
; 3 = 4
|
|
inc hl
|
|
ld a, [hld]
|
|
ld [hl], a
|
|
; 4 = new move
|
|
ld a, b
|
|
ld [wPlayerUsedMoves + 3], a
|
|
jr .quit
|
|
|
|
.add
|
|
; go back to the byte we just inced from
|
|
dec hl
|
|
; add the new move
|
|
ld [hl], b
|
|
|
|
.quit
|
|
; list updated
|
|
pop bc
|
|
ret
|
|
; 105ef6
|