mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
165 lines
2.9 KiB
NASM
Executable file
165 lines
2.9 KiB
NASM
Executable file
LanceScript: ; 5a2ae (16:62ae)
|
|
call LanceScript_5a2c4
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, LanceTrainerHeaders
|
|
ld de, LanceScriptPointers
|
|
ld a, [W_LANCECURSCRIPT]
|
|
call ExecuteCurMapScriptInTable
|
|
ld [W_LANCECURSCRIPT], a
|
|
ret
|
|
|
|
LanceScript_5a2c4: ; 5a2c4 (16:62c4)
|
|
ld hl, wd126
|
|
bit 5, [hl]
|
|
res 5, [hl]
|
|
ret z
|
|
ld a, [wd866]
|
|
bit 7, a
|
|
jr nz, .asm_5a2da
|
|
ld a, $31
|
|
ld b, $32
|
|
jp LanceScript_5a2de
|
|
.asm_5a2da
|
|
ld a, $72
|
|
ld b, $73
|
|
|
|
LanceScript_5a2de: ; 5a2de (16:62de)
|
|
push bc
|
|
ld [wd09f], a
|
|
ld bc, $602
|
|
call LanceScript_5a2f0
|
|
pop bc
|
|
ld a, b
|
|
ld [wd09f], a
|
|
ld bc, $603
|
|
|
|
LanceScript_5a2f0: ; 5a2f0 (16:62f0)
|
|
predef_jump ReplaceTileBlock
|
|
|
|
LanceScript_5a2f5: ; 5a2f5 (16:62f5)
|
|
xor a
|
|
ld [W_LANCECURSCRIPT], a
|
|
ret
|
|
|
|
LanceScriptPointers: ; 5a2fa (16:62fa)
|
|
dw LanceScript0
|
|
dw DisplayEnemyTrainerTextAndStartBattle
|
|
dw LanceScript2
|
|
dw LanceScript3
|
|
dw LanceScript4
|
|
|
|
LanceScript4: ; 5a304 (16:6304)
|
|
ret
|
|
|
|
LanceScript0: ; 5a305 (16:6305)
|
|
ld a, [wd866]
|
|
bit 6, a
|
|
ret nz
|
|
ld hl, CoordsData_5a33e
|
|
call ArePlayerCoordsInArray
|
|
jp nc, CheckFightingMapTrainers
|
|
xor a
|
|
ld [hJoyHeld], a
|
|
ld a, [wWhichTrade]
|
|
cp $3
|
|
jr nc, .asm_5a325
|
|
ld a, $1
|
|
ld [H_DOWNARROWBLINKCNT2], a
|
|
jp DisplayTextID
|
|
.asm_5a325
|
|
cp $5
|
|
jr z, LanceScript_5a35b
|
|
ld hl, wd866
|
|
bit 7, [hl]
|
|
set 7, [hl]
|
|
ret nz
|
|
ld hl, wd126
|
|
set 5, [hl]
|
|
ld a, (SFX_02_57 - SFX_Headers_02) / 3
|
|
call PlaySound
|
|
jp LanceScript_5a2c4
|
|
|
|
CoordsData_5a33e: ; 5a33e (16:633e)
|
|
db $01,$05
|
|
db $02,$06
|
|
db $0B,$05
|
|
db $0B,$06
|
|
db $10,$18
|
|
db $FF
|
|
|
|
LanceScript2: ; 5a349 (16:6349)
|
|
call EndTrainerBattle
|
|
ld a, [W_ISINBATTLE]
|
|
cp $ff
|
|
jp z, LanceScript_5a2f5
|
|
ld a, $1
|
|
ld [H_DOWNARROWBLINKCNT2], a
|
|
jp DisplayTextID
|
|
|
|
LanceScript_5a35b: ; 5a35b (16:635b)
|
|
ld a, $ff
|
|
ld [wJoyIgnore], a
|
|
ld hl, wSimulatedJoypadStatesEnd
|
|
ld de, RLEList_5a379
|
|
call DecodeRLEList
|
|
dec a
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
call StartSimulatingJoypadStates
|
|
ld a, $3
|
|
ld [W_LANCECURSCRIPT], a
|
|
ld [W_CURMAPSCRIPT], a
|
|
ret
|
|
|
|
RLEList_5a379: ; 5a379 (16:6379)
|
|
db D_UP, $0C
|
|
db D_LEFT, $0C
|
|
db D_DOWN, $07
|
|
db D_LEFT, $06
|
|
db $FF
|
|
|
|
LanceScript3: ; 5a382 (16:6382)
|
|
ld a, [wSimulatedJoypadStatesIndex]
|
|
and a
|
|
ret nz
|
|
call Delay3
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld [W_LANCECURSCRIPT], a
|
|
ld [W_CURMAPSCRIPT], a
|
|
ret
|
|
|
|
LanceTextPointers: ; 5a395 (16:6395)
|
|
dw LanceText1
|
|
|
|
LanceTrainerHeaders: ; 5a397 (16:6397)
|
|
LanceTrainerHeader0: ; 5a397 (16:6397)
|
|
db $1 ; flag's bit
|
|
db ($0 << 4) ; trainer's view range
|
|
dw wd866 ; flag's byte
|
|
dw LanceBeforeBattleText ; TextBeforeBattle
|
|
dw LanceAfterBattleText ; TextAfterBattle
|
|
dw LanceEndBattleText ; TextEndBattle
|
|
dw LanceEndBattleText ; TextEndBattle
|
|
|
|
db $ff
|
|
|
|
LanceText1: ; 5a3a4 (16:63a4)
|
|
TX_ASM
|
|
ld hl, LanceTrainerHeader0
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
LanceBeforeBattleText: ; 5a3ae (16:63ae)
|
|
TX_FAR _LanceBeforeBattleText
|
|
db "@"
|
|
|
|
LanceEndBattleText: ; 5a3b3 (16:63b3)
|
|
TX_FAR _LanceEndBattleText
|
|
db "@"
|
|
|
|
LanceAfterBattleText: ; 5a3b8 (16:63b8)
|
|
TX_FAR _LanceAfterBattleText
|
|
TX_ASM
|
|
ld hl, wd866
|
|
set 6, [hl]
|
|
jp TextScriptEnd
|