mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
444 lines
8.1 KiB
NASM
Executable file
444 lines
8.1 KiB
NASM
Executable file
CeruleanCityScript: ; 19480 (6:5480)
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, CeruleanCityScriptPointers
|
|
ld a, [W_CERULEANCITYCURSCRIPT]
|
|
jp CallFunctionInTable
|
|
|
|
CeruleanCityScript_1948c: ; 1948c (6:548c)
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld [W_CERULEANCITYCURSCRIPT], a
|
|
ld a, $5
|
|
ld [wcc4d], a
|
|
ld a, $11
|
|
jp Predef
|
|
|
|
CeruleanCityScriptPointers: ; 1949d (6:549d)
|
|
dw CeruleanCityScript0
|
|
dw CeruleanCityScript1
|
|
dw CeruleanCityScript2
|
|
dw CeruleanCityScript3
|
|
dw CeruleanCityScript4
|
|
|
|
CeruleanCityScript4: ; 194a7 (6:54a7)
|
|
ld a, [W_ISINBATTLE]
|
|
cp $ff
|
|
jp z, CeruleanCityScript_1948c
|
|
ld a, $f0
|
|
ld [wJoyIgnore], a
|
|
ld hl, wd75b
|
|
set 7, [hl]
|
|
ld a, $2
|
|
ld [$ff8c], a
|
|
call DisplayTextID
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld [W_CERULEANCITYCURSCRIPT], a
|
|
ret
|
|
|
|
CeruleanCityScript0: ; 194c8 (6:54c8)
|
|
ld a, [wd75b]
|
|
bit 7, a
|
|
jr nz, .asm_194f7 ; 0x194cd $28
|
|
ld hl, CeruleanCityCoords1
|
|
call ArePlayerCoordsInArray
|
|
jr nc, .asm_194f7 ; 0x194d5 $20
|
|
ld a, [wWhichTrade]
|
|
cp $1
|
|
ld a, $8
|
|
ld b, $0
|
|
jr nz, .asm_194e6 ; 0x194e0 $4
|
|
ld a, $4
|
|
ld b, $4
|
|
.asm_194e6
|
|
ld [wd528], a
|
|
ld a, b
|
|
ld [wSpriteStateData1 + $29], a
|
|
call Delay3
|
|
ld a, $2
|
|
ld [$ff8c], a
|
|
jp DisplayTextID
|
|
.asm_194f7
|
|
ld a, [wd75a]
|
|
bit 0, a
|
|
ret nz
|
|
ld hl, CeruleanCityCoords2
|
|
call ArePlayerCoordsInArray
|
|
ret nc
|
|
ld a, [wd700]
|
|
and a
|
|
jr z, .asm_19512 ; 0x19508 $8
|
|
ld a, $ff
|
|
ld [wc0ee], a
|
|
call PlaySound
|
|
.asm_19512
|
|
ld c, BANK(Music_MeetRival)
|
|
ld a, MUSIC_MEET_RIVAL
|
|
call PlayMusic
|
|
xor a
|
|
ld [hJoyHeld], a
|
|
ld a, $f0
|
|
ld [wJoyIgnore], a
|
|
ld a, [W_XCOORD]
|
|
cp $14
|
|
jr z, .asm_19535 ; 0x19526 $d
|
|
ld a, $1
|
|
ld [$ff8c], a
|
|
ld a, $5
|
|
ld [$ff8b], a
|
|
call Func_3500
|
|
ld [hl], $19
|
|
.asm_19535
|
|
ld a, $5
|
|
ld [wcc4d], a
|
|
ld a, $15
|
|
call Predef
|
|
ld de, CeruleanCityMovement1
|
|
ld a, $1
|
|
ld [$ff8c], a
|
|
call MoveSprite
|
|
ld a, $1
|
|
ld [W_CERULEANCITYCURSCRIPT], a
|
|
ret
|
|
|
|
CeruleanCityCoords1: ; 1954f (6:554f)
|
|
db $07,$1e
|
|
db $09,$1e
|
|
db $ff
|
|
|
|
CeruleanCityCoords2: ; 19554 (6:5554)
|
|
db $06,$14
|
|
db $06,$15
|
|
db $ff
|
|
|
|
CeruleanCityMovement1: ; 19559 (6:5559)
|
|
db $00,$00,$00,$FF
|
|
|
|
CeruleanCityScript_1955d: ; 1955d (6:555d)
|
|
ld a,1
|
|
ld [$ff8c],a
|
|
xor a
|
|
ld [$ff8d],a
|
|
jp Func_34a6 ; face object
|
|
|
|
CeruleanCityScript1: ; 19567 (6:5567)
|
|
ld a, [wd730]
|
|
bit 0, a
|
|
ret nz
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld a, $1
|
|
ld [$ff8c], a
|
|
call DisplayTextID
|
|
ld hl, wd72d
|
|
set 6, [hl]
|
|
set 7, [hl]
|
|
ld hl, CeruleanCityText_1966d
|
|
ld de, CeruleanCityText_19672
|
|
call PreBattleSaveRegisters
|
|
ld a, SONY1 + $c8
|
|
ld [W_CUROPPONENT], a
|
|
|
|
; select which team to use during the encounter
|
|
ld a, [W_RIVALSTARTER]
|
|
cp STARTER2
|
|
jr nz, .NotSquirtle ; 0x19592 $4
|
|
ld a, $7
|
|
jr .done
|
|
.NotSquirtle
|
|
cp STARTER3
|
|
jr nz, .Charmander ; 0x1959a $4
|
|
ld a, $8
|
|
jr .done
|
|
.Charmander
|
|
ld a, $9
|
|
.done
|
|
ld [W_TRAINERNO], a
|
|
|
|
xor a
|
|
ld [hJoyHeld], a
|
|
call CeruleanCityScript_1955d
|
|
ld a, $2
|
|
ld [W_CERULEANCITYCURSCRIPT], a
|
|
ret
|
|
|
|
CeruleanCityScript2: ; 195b1 (6:55b1)
|
|
ld a, [W_ISINBATTLE]
|
|
cp $ff
|
|
jp z, CeruleanCityScript_1948c
|
|
call CeruleanCityScript_1955d
|
|
ld a, $f0
|
|
ld [wJoyIgnore], a
|
|
ld hl, wd75a
|
|
set 0, [hl]
|
|
ld a, $1
|
|
ld [$ff8c], a
|
|
call DisplayTextID
|
|
ld a, $ff
|
|
ld [wc0ee], a
|
|
call PlaySound
|
|
callba Music_RivalAlternateStart
|
|
ld a, $1
|
|
ld [$ff8c], a
|
|
call SetSpriteMovementBytesToFF
|
|
ld a, [W_XCOORD]
|
|
cp $14
|
|
jr nz, .asm_195f0 ; 0x195e9 $5
|
|
ld de, CeruleanCityMovement4
|
|
jr .asm_195f3 ; 0x195ee $3
|
|
.asm_195f0
|
|
ld de, CeruleanCityMovement3
|
|
.asm_195f3
|
|
ld a, $1
|
|
ld [$ff8c], a
|
|
call MoveSprite
|
|
ld a, $3
|
|
ld [W_CERULEANCITYCURSCRIPT], a
|
|
ret
|
|
|
|
CeruleanCityMovement3: ; 19600 (6:5600)
|
|
db $80,$00,$00,$00,$00,$00,$00,$FF
|
|
|
|
CeruleanCityMovement4: ; 19608 (6:5608)
|
|
db $c0,$00,$00,$00,$00,$00,$00,$FF
|
|
|
|
CeruleanCityScript3: ; 19610 (6:5610)
|
|
ld a, [wd730]
|
|
bit 0, a
|
|
ret nz
|
|
ld a, $5
|
|
ld [wcc4d], a
|
|
ld a, $11
|
|
call Predef
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
call Func_2307
|
|
ld a, $0
|
|
ld [W_CERULEANCITYCURSCRIPT], a
|
|
ret
|
|
|
|
CeruleanCityTextPointers: ; 1962d (6:562d)
|
|
dw CeruleanCityText1
|
|
dw CeruleanCityText2
|
|
dw CeruleanCityText3
|
|
dw CeruleanCityText4
|
|
dw CeruleanCityText5
|
|
dw CeruleanCityText6
|
|
dw CeruleanCityText7
|
|
dw CeruleanCityText8
|
|
dw CeruleanCityText9
|
|
dw CeruleanCityText10
|
|
dw CeruleanCityText11
|
|
dw CeruleanCityText12
|
|
dw CeruleanCityText13
|
|
dw MartSignText
|
|
dw PokeCenterSignText
|
|
dw CeruleanCityText16
|
|
dw CeruleanCityText17
|
|
|
|
CeruleanCityText1: ; 1964f (6:564f)
|
|
db $08 ; asm
|
|
ld a, [wd75a] ; rival battle flag
|
|
bit 0, a
|
|
; do pre-battle text
|
|
jr z, .PreBattleText
|
|
; or talk about bill
|
|
ld hl, CeruleanCityText_19677
|
|
call PrintText
|
|
jr .end ; 0x1965d
|
|
.PreBattleText ; 0x1965f
|
|
ld hl, CeruleanCityText_19668
|
|
call PrintText
|
|
.end ; 0x19665
|
|
jp TextScriptEnd
|
|
|
|
CeruleanCityText_19668: ; 19668 (6:5668)
|
|
TX_FAR _CeruleanCityText_19668
|
|
db "@"
|
|
|
|
CeruleanCityText_1966d: ; 1966d (6:566d)
|
|
TX_FAR _CeruleanCityText_1966d
|
|
db "@"
|
|
|
|
CeruleanCityText_19672: ; 19672 (6:5672)
|
|
TX_FAR _CeruleanCityText_19672
|
|
db "@"
|
|
|
|
CeruleanCityText_19677: ; 19677 (6:5677)
|
|
TX_FAR _CeruleanCityText_19677
|
|
db "@"
|
|
|
|
CeruleanCityText2: ; 1967c (6:567c)
|
|
db $8
|
|
ld a, [wd75b]
|
|
bit 7, a
|
|
jr nz, .asm_4ca20 ; 0x19682 $29
|
|
ld hl, CeruleanCityText_196d9
|
|
call PrintText
|
|
ld hl, wd72d
|
|
set 6, [hl]
|
|
set 7, [hl]
|
|
ld hl, CeruleanCityText_196ee
|
|
ld de, CeruleanCityText_196ee
|
|
call PreBattleSaveRegisters
|
|
ld a, [$ff8c]
|
|
ld [wcf13], a
|
|
call EngageMapTrainer
|
|
call InitBattleEnemyParameters
|
|
ld a, $4
|
|
ld [W_CERULEANCITYCURSCRIPT], a
|
|
jp TextScriptEnd
|
|
.asm_4ca20 ; 0x196ad
|
|
ld hl, CeruleanCityText_196f3
|
|
call PrintText
|
|
ld bc, $e401
|
|
call GiveItem
|
|
jr c, .Success
|
|
ld hl, TM28NoRoomText
|
|
call PrintText
|
|
jr .Done
|
|
.Success
|
|
ld a, $1
|
|
ld [wcc3c], a
|
|
ld hl, ReceivedTM28Text
|
|
call PrintText
|
|
callba Func_74872
|
|
.Done
|
|
jp TextScriptEnd
|
|
|
|
CeruleanCityText_196d9: ; 196d9 (6:56d9)
|
|
TX_FAR _CeruleanCityText_196d9
|
|
db "@"
|
|
|
|
ReceivedTM28Text: ; 196de (6:56de)
|
|
TX_FAR _ReceivedTM28Text
|
|
db $0B
|
|
TX_FAR _ReceivedTM28Text2
|
|
db $0D, "@"
|
|
|
|
TM28NoRoomText: ; 196e9 (6:56e9)
|
|
TX_FAR _TM28NoRoomText
|
|
db "@"
|
|
|
|
CeruleanCityText_196ee: ; 196ee (6:56ee)
|
|
TX_FAR _CeruleanCityText_196ee
|
|
db "@"
|
|
|
|
CeruleanCityText_196f3: ; 196f3 (6:56f3)
|
|
TX_FAR _CeruleanCityText_196f3
|
|
db "@"
|
|
|
|
CeruleanCityText3: ; 196f8 (6:56f8)
|
|
TX_FAR _CeruleanCityText3
|
|
db "@"
|
|
|
|
CeruleanCityText4: ; 196fd (6:56fd)
|
|
TX_FAR _CeruleanCityText4
|
|
db "@"
|
|
|
|
CeruleanCityText5: ; 19702 (6:5702)
|
|
TX_FAR _CeruleanCityText5
|
|
db "@"
|
|
|
|
CeruleanCityText11: ; 19707 (6:5707)
|
|
CeruleanCityText6: ; 19707 (6:5707)
|
|
TX_FAR _CeruleanCityText6
|
|
db "@"
|
|
|
|
CeruleanCityText7: ; 1970c (6:570c)
|
|
db $08 ; asm
|
|
ldh a, [$d3]
|
|
cp $b4
|
|
jr c, .asm_e9fc9 ; 0x19711
|
|
ld hl, CeruleanCityText_19730
|
|
call PrintText
|
|
jr .asm_d486e ; 0x19719
|
|
.asm_e9fc9 ; 0x1971b
|
|
cp $64
|
|
jr c, .asm_df99b ; 0x1971d
|
|
ld hl, CeruleanCityText_19735
|
|
call PrintText
|
|
jr .asm_d486e ; 0x19725
|
|
.asm_df99b ; 0x19727
|
|
ld hl, CeruleanCityText_1973a
|
|
call PrintText
|
|
.asm_d486e ; 0x1972d
|
|
jp TextScriptEnd
|
|
|
|
CeruleanCityText_19730: ; 19730 (6:5730)
|
|
TX_FAR _CeruleanCityText_19730
|
|
db "@"
|
|
|
|
CeruleanCityText_19735: ; 19735 (6:5735)
|
|
TX_FAR _CeruleanCityText_19735
|
|
db "@"
|
|
|
|
CeruleanCityText_1973a: ; 1973a (6:573a)
|
|
TX_FAR _CeruleanCityText_1973a
|
|
db "@"
|
|
|
|
CeruleanCityText8: ; 1973f (6:573f)
|
|
db $08 ; asm
|
|
ldh a, [$d3]
|
|
cp $b4
|
|
jr c, .asm_e28da ; 0x19744
|
|
ld hl, CeruleanCityText_1976f
|
|
call PrintText
|
|
jr .asm_f2f38 ; 0x1974c
|
|
.asm_e28da ; 0x1974e
|
|
cp $78
|
|
jr c, .asm_15d08 ; 0x19750
|
|
ld hl, CeruleanCityText_19774
|
|
call PrintText
|
|
jr .asm_f2f38 ; 0x19758
|
|
.asm_15d08 ; 0x1975a
|
|
cp $3c
|
|
jr c, .asm_d7fea ; 0x1975c
|
|
ld hl, CeruleanCityText_19779
|
|
call PrintText
|
|
jr .asm_f2f38 ; 0x19764
|
|
.asm_d7fea ; 0x19766
|
|
ld hl, CeruleanCityText_1977e
|
|
call PrintText
|
|
.asm_f2f38 ; 0x1976c
|
|
jp TextScriptEnd
|
|
|
|
CeruleanCityText_1976f: ; 1976f (6:576f)
|
|
TX_FAR _CeruleanCityText_1976f
|
|
db "@"
|
|
|
|
CeruleanCityText_19774: ; 19774 (6:5774)
|
|
TX_FAR _CeruleanCityText_19774
|
|
db "@"
|
|
|
|
CeruleanCityText_19779: ; 19779 (6:5779)
|
|
TX_FAR _CeruleanCityText_19779
|
|
db "@"
|
|
|
|
CeruleanCityText_1977e: ; 1977e (6:577e)
|
|
TX_FAR _CeruleanCityText_1977e
|
|
db "@"
|
|
|
|
CeruleanCityText9: ; 19783 (6:5783)
|
|
TX_FAR _CeruleanCityText9
|
|
db "@"
|
|
|
|
CeruleanCityText10: ; 19788 (6:5788)
|
|
TX_FAR _CeruleanCityText10
|
|
db "@"
|
|
|
|
CeruleanCityText12: ; 1978d (6:578d)
|
|
TX_FAR _CeruleanCityText12
|
|
db "@"
|
|
|
|
CeruleanCityText13: ; 19792 (6:5792)
|
|
TX_FAR _CeruleanCityText13
|
|
db "@"
|
|
|
|
CeruleanCityText16: ; 19797 (6:5797)
|
|
TX_FAR _CeruleanCityText16
|
|
db "@"
|
|
|
|
CeruleanCityText17: ; 1979c (6:579c)
|
|
TX_FAR _CeruleanCityText17
|
|
db "@"
|