mirror of https://github.com/pret/pokecrystal.git
2593 lines
37 KiB
NASM
Executable File
2593 lines
37 KiB
NASM
Executable File
Function170000: ; 170000
|
|
ld a, [$c62b]
|
|
ld [$c6d0], a
|
|
ld hl, $c62e
|
|
ld de, $c6e7
|
|
ld bc, $0005
|
|
call CopyBytes
|
|
ld a, $50
|
|
ld [de], a
|
|
ld hl, $c663
|
|
ld de, $c6f2
|
|
ld bc, $0005
|
|
call CopyBytes
|
|
ld a, $50
|
|
ld [de], a
|
|
ld hl, $c648
|
|
ld a, [hli]
|
|
ld [$c6fd], a
|
|
ld a, [hl]
|
|
ld [$c6fe], a
|
|
ld hl, $c639
|
|
ld a, [hli]
|
|
ld [$c6ff], a
|
|
ld a, [hl]
|
|
ld [wc700], a
|
|
ld bc, $c633
|
|
callba GetCaughtGender
|
|
ld a, c
|
|
ld [wc701], a
|
|
ld a, [wcd81]
|
|
ld [wc74e], a
|
|
ld hl, $c608
|
|
ld de, $d800
|
|
ld bc, $008f
|
|
call CopyBytes
|
|
ret
|
|
; 17005a
|
|
|
|
Function17005a: ; 17005a
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$a824]
|
|
ld [wc702], a
|
|
ld hl, $a827
|
|
ld de, wc719
|
|
ld bc, $0005
|
|
call CopyBytes
|
|
ld a, $50
|
|
ld [de], a
|
|
ld hl, $a85c
|
|
ld de, wc724
|
|
ld bc, $0005
|
|
call CopyBytes
|
|
ld a, $50
|
|
ld [de], a
|
|
ld hl, $a841
|
|
ld a, [hli]
|
|
ld [wc72f], a
|
|
ld a, [hl]
|
|
ld [wc730], a
|
|
ld hl, $a832
|
|
ld a, [hli]
|
|
ld [wc731], a
|
|
ld a, [hl]
|
|
ld [wc732], a
|
|
ld bc, $a82c
|
|
callba GetCaughtGender
|
|
ld a, c
|
|
ld [wc733], a
|
|
ld a, [wcd81]
|
|
ld [wc74e], a
|
|
call CloseSRAM
|
|
ret
|
|
; 1700b0
|
|
|
|
Function1700b0: ; 1700b0
|
|
call Function17021e
|
|
callba Function118121
|
|
ret
|
|
; 1700ba
|
|
|
|
Function1700ba: ; 1700ba
|
|
call Function17021e
|
|
callba Function11811a
|
|
ret
|
|
; 1700c4
|
|
|
|
Function1700c4: ; 1700c4
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $3
|
|
ld [rSVBK], a
|
|
call Function17042c
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, $1
|
|
ld [$be45], a
|
|
xor a
|
|
ld [$be46], a
|
|
ld hl, $dffc
|
|
ld de, $aa41
|
|
ld bc, $0004
|
|
call CopyBytes
|
|
ld hl, $d202
|
|
ld de, $aa8e
|
|
ld bc, $0594
|
|
call CopyBytes
|
|
ld hl, $aa5d
|
|
ld a, [hl]
|
|
inc [hl]
|
|
inc hl
|
|
sla a
|
|
sla a
|
|
ld e, a
|
|
ld d, $0
|
|
add hl, de
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, $dffc
|
|
ld bc, $0004
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
pop af
|
|
ld [rSVBK], a
|
|
ret
|
|
; 170114
|
|
|
|
Function170114: ; 170114
|
|
call Function17021e
|
|
call Function170121
|
|
callba Function11805f
|
|
ret
|
|
; 170121
|
|
|
|
Function170121: ; 170121
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld hl, $a948
|
|
ld de, $c608
|
|
ld bc, $00f6
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
call Function170c8b
|
|
ret
|
|
; 170139
|
|
|
|
Function170139: ; 170139
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld de, $aa41
|
|
ld h, $0
|
|
ld l, h
|
|
ld bc, $03e8
|
|
call Function17020c
|
|
ld bc, $0064
|
|
call Function17020c
|
|
ld bc, $000a
|
|
call Function17020c
|
|
ld a, [de]
|
|
ld c, a
|
|
ld b, $0
|
|
add hl, bc
|
|
call CloseSRAM
|
|
ld a, h
|
|
ld [$c608], a
|
|
ld a, l
|
|
ld [$c608 + 1], a
|
|
ld hl, $c628
|
|
ld a, [PlayerID]
|
|
ld [hli], a
|
|
ld a, [PlayerID + 1]
|
|
ld [hli], a
|
|
ld a, [wSecretID]
|
|
ld [hli], a
|
|
ld a, [wSecretID + 1]
|
|
ld [hli], a
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, PlayerName
|
|
ld bc, $0005
|
|
call CopyBytes
|
|
ld bc, PlayerID
|
|
ld de, PlayerGender
|
|
callba Function4e929
|
|
ld de, $c62c + 5
|
|
ld a, c
|
|
ld [de], a
|
|
inc de
|
|
ld a, $df
|
|
ld [wcd49], a
|
|
ld a, $dc
|
|
ld [wcd4a], a
|
|
ld a, $41
|
|
ld [wcd4b], a
|
|
ld a, $de
|
|
ld [wcd4c], a
|
|
ld a, $3
|
|
.asm_1701ac
|
|
push af
|
|
ld a, [wcd49]
|
|
ld l, a
|
|
ld a, [wcd4a]
|
|
ld h, a
|
|
ld bc, $0030
|
|
call CopyBytes
|
|
ld a, l
|
|
ld [wcd49], a
|
|
ld a, h
|
|
ld [wcd4a], a
|
|
ld a, [wcd4b]
|
|
ld l, a
|
|
ld a, [wcd4c]
|
|
ld h, a
|
|
ld bc, $0006
|
|
call CopyBytes
|
|
ld a, l
|
|
ld [wcd4b], a
|
|
ld a, h
|
|
ld [wcd4c], a
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_1701ac
|
|
ld a, $4
|
|
call GetSRAMBank
|
|
ld hl, $a013
|
|
ld bc, $0024
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld hl, $a894
|
|
ld bc, $0006
|
|
call CopyBytes
|
|
ld hl, $c608
|
|
ld de, $a948
|
|
ld bc, $00f6
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ret
|
|
; 17020c
|
|
|
|
Function17020c: ; 17020c
|
|
ld a, [de]
|
|
inc de
|
|
and a
|
|
ret z
|
|
.asm_170210
|
|
add hl, bc
|
|
dec a
|
|
jr nz, .asm_170210
|
|
ret
|
|
; 170215
|
|
|
|
BattleTowerBattle: ; 170215
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
call Function17022c
|
|
ret
|
|
; 17021d
|
|
|
|
Function17021d: ; 17021d
|
|
ret
|
|
; 17021e
|
|
|
|
Function17021e: ; 17021e
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
ld [wcf64], a
|
|
ld [wcf65], a
|
|
ld [wcf66], a
|
|
ret
|
|
; 17022c
|
|
|
|
Function17022c: ; 17022c
|
|
.loop
|
|
call Jumpto_BattleTowerBattleFunction
|
|
call DelayFrame
|
|
ld a, [wJumptableIndex]
|
|
cp $1
|
|
jr nz, .loop
|
|
ret
|
|
; 17023a
|
|
|
|
Jumpto_BattleTowerBattleFunction: ; 17023a
|
|
ld a, [wJumptableIndex]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, Jumptable_BattleTowerBattleFunctions
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
; 170249
|
|
|
|
Jumptable_BattleTowerBattleFunctions: ; 170249
|
|
dw RunBattleTowerBattle
|
|
dw SkipBattleTowerBattle
|
|
; 17024d
|
|
|
|
RunBattleTowerBattle: ; 17024d
|
|
ld a, [Options]
|
|
push af
|
|
ld hl, Options
|
|
set 6, [hl]
|
|
ld a, [InBattleTowerBattle]
|
|
push af
|
|
or $1
|
|
ld [InBattleTowerBattle], a
|
|
xor a
|
|
ld [wLinkMode], a
|
|
callba Mobile_HealParty
|
|
callba HealParty
|
|
call Function1702b7
|
|
call Function170bf7
|
|
predef StartBattle
|
|
callba LoadPokemonData
|
|
callba HealParty
|
|
ld a, [wBattleResult]
|
|
ld [ScriptVar], a
|
|
and a
|
|
jr nz, .lost
|
|
ld a, BANK(sNrOfBeatenBattleTowerTrainers)
|
|
call GetSRAMBank
|
|
ld a, [sNrOfBeatenBattleTowerTrainers]
|
|
ld [wNrOfBeatenBattleTowerTrainers], a ; wcf64
|
|
call CloseSRAM
|
|
ld hl, StringBuffer3
|
|
ld a, [wNrOfBeatenBattleTowerTrainers] ; wcf64
|
|
add $f7
|
|
ld [hli], a
|
|
ld a, $50
|
|
ld [hl], a
|
|
|
|
.lost
|
|
pop af
|
|
ld [InBattleTowerBattle], a
|
|
pop af
|
|
ld [Options], a
|
|
ld a, $1
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
|
|
Function1702b7: ; 1702b7
|
|
; Initialise the BattleTower-Trainer and his Pkmn
|
|
call CopyBTTrainer_FromBT_OTrainer_TowBT_OTTempCopy
|
|
ld de, wBT_OTTempCopy + wBT_OTTempCopy_Pkmn1Name ; $c643
|
|
ld c, PKMN_NAME_LENGTH
|
|
callba Function17d073
|
|
jr nc, .asm_1702db
|
|
|
|
ld a, [wBT_OTTempCopy + wBT_OTTempCopy_Pkmn1]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld l, e
|
|
ld h, d
|
|
ld de, wBT_OTTempCopy + wBT_OTTempCopy_Pkmn1Name ; $c643
|
|
ld bc, PKMN_NAME_LENGTH
|
|
call CopyBytes
|
|
|
|
.asm_1702db
|
|
ld de, wBT_OTTempCopy + wBT_OTTempCopy_Pkmn2Name ; $c67e
|
|
ld c, PKMN_NAME_LENGTH
|
|
callba Function17d073
|
|
jr nc, .asm_1702fc
|
|
ld a, [wBT_OTTempCopy + wBT_OTTempCopy_Pkmn2] ; [$c64e]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld l, e
|
|
ld h, d
|
|
ld de, wBT_OTTempCopy + wBT_OTTempCopy_Pkmn2Name ; $c67e
|
|
ld bc, PKMN_NAME_LENGTH
|
|
call CopyBytes
|
|
|
|
.asm_1702fc
|
|
ld de, wBT_OTTempCopy + wBT_OTTempCopy_Pkmn3Name ; $c686 + 51 = $c6b9
|
|
ld c, PKMN_NAME_LENGTH
|
|
callba Function17d073
|
|
jr nc, .asm_17031d
|
|
ld a, [wBT_OTTempCopy + wBT_OTTempCopy_Pkmn3] ; [$c689]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld l, e
|
|
ld h, d
|
|
ld de, wBT_OTTempCopy + wBT_OTTempCopy_Pkmn3Name ; $c686 + 51 = $c6b9
|
|
ld bc, PKMN_NAME_LENGTH
|
|
call CopyBytes
|
|
|
|
.asm_17031d
|
|
ld a, $50
|
|
ld [wBT_OTTempCopy + wBT_OTTempCopy_45], a ; $c64d
|
|
ld [wBT_OTTempCopy + wBT_OTTempCopy_80], a ; $c688
|
|
ld [wBT_OTTempCopy + wBT_OTTempCopy_BB], a ; $c68a + 57 = $c6c3
|
|
call Function170c98
|
|
ld de, wBT_OTTempCopy
|
|
ld c, $a
|
|
callba Function17d073
|
|
jr nc, .asm_17033d
|
|
ld hl, String_170426
|
|
jr .asm_170340
|
|
|
|
.asm_17033d
|
|
ld hl, wBT_OTTempCopy ; 0xc608
|
|
|
|
.asm_170340
|
|
ld de, wd26b
|
|
ld bc, $000a
|
|
call CopyBytes
|
|
ld a, $50
|
|
ld [de], a
|
|
ld hl, wBT_OTTempCopy + wBT_OTTempCopy_TrainerClass
|
|
ld a, [hli]
|
|
ld [OtherTrainerClass], a
|
|
ld a, $ea
|
|
ld [BGMapBuffer], a
|
|
ld a, $d3
|
|
ld [wcd21], a
|
|
|
|
; Copy Pkmn into Memory from the address in hl
|
|
ld de, OTPartyMon1Species
|
|
ld bc, OTPartyCount
|
|
ld a, BATTLETOWER_NROFPKMNS ; Number of Pkmn the BattleTower-Trainer has
|
|
ld [bc], a
|
|
inc bc
|
|
.asm_170367
|
|
push af
|
|
ld a, [hl]
|
|
ld [bc], a
|
|
inc bc
|
|
push bc
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
call CopyBytes
|
|
push de
|
|
ld a, [BGMapBuffer]
|
|
ld e, a
|
|
ld a, [wcd21]
|
|
ld d, a
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld a, e
|
|
ld [BGMapBuffer], a
|
|
ld a, d
|
|
ld [wcd21], a
|
|
pop de
|
|
pop bc
|
|
pop af
|
|
dec a
|
|
and a
|
|
jr nz, .asm_170367
|
|
ld a, $ff
|
|
ld [bc], a
|
|
ret
|
|
; 170394
|
|
|
|
Function170394: ; 170394
|
|
ld hl, $c608 + 11
|
|
ld d, $3
|
|
.asm_170399
|
|
push de
|
|
push hl
|
|
ld b, h
|
|
ld c, l
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .asm_1703b1
|
|
cp $ff
|
|
jr z, .asm_1703b1
|
|
cp $fe
|
|
jr z, .asm_1703b1
|
|
cp $fd
|
|
jr z, .asm_1703b1
|
|
cp $fc
|
|
jr nz, .asm_1703b4
|
|
|
|
.asm_1703b1
|
|
ld a, $eb
|
|
ld [hl], a
|
|
|
|
.asm_1703b4
|
|
ld [CurSpecies], a
|
|
call GetBaseData
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$b2fb]
|
|
call CloseSRAM
|
|
ld e, a
|
|
ld hl, $001f
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp $2
|
|
ld a, $2
|
|
jr c, .asm_1703d6
|
|
ld a, [hl]
|
|
cp e
|
|
jr c, .asm_1703d7
|
|
ld a, e
|
|
|
|
.asm_1703d6
|
|
ld [hl], a
|
|
|
|
.asm_1703d7
|
|
ld [CurPartyLevel], a
|
|
ld hl, $0002
|
|
add hl, bc
|
|
ld d, $3
|
|
ld a, [hli]
|
|
and a
|
|
jr z, .asm_1703ea
|
|
cp $fc
|
|
jr nc, .asm_1703ea
|
|
jr .asm_1703f4
|
|
|
|
.asm_1703ea
|
|
dec hl
|
|
ld a, $1
|
|
ld [hli], a
|
|
xor a
|
|
rept 2
|
|
ld [hli], a
|
|
endr
|
|
ld [hl], a
|
|
jr .asm_1703ff
|
|
|
|
.asm_1703f4
|
|
ld a, [hl]
|
|
cp $fc
|
|
jr c, .asm_1703fb
|
|
ld [hl], $0
|
|
|
|
.asm_1703fb
|
|
inc hl
|
|
dec d
|
|
jr nz, .asm_1703f4
|
|
|
|
.asm_1703ff
|
|
ld hl, $0024
|
|
add hl, bc
|
|
ld d, h
|
|
ld e, l
|
|
push hl
|
|
push de
|
|
ld hl, $000a
|
|
add hl, bc
|
|
ld b, $1
|
|
predef CalcPkmnStats
|
|
pop de
|
|
pop hl
|
|
rept 2
|
|
dec de
|
|
endr
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hl]
|
|
ld [de], a
|
|
pop hl
|
|
ld bc, $003b
|
|
add hl, bc
|
|
pop de
|
|
dec d
|
|
jp nz, .asm_170399
|
|
ret
|
|
; 170426
|
|
|
|
String_170426: ; 170426
|
|
db "CHRIS@"
|
|
; 17042c
|
|
|
|
Function17042c: ; 17042c
|
|
ld hl, OTPartyMon2ID
|
|
ld a, $7
|
|
.asm_170431
|
|
push af
|
|
push hl
|
|
ld c, $12
|
|
.asm_170435
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld a, [hli]
|
|
and a
|
|
jr z, .asm_170451
|
|
cp $f
|
|
jr nc, .asm_17045b
|
|
push hl
|
|
ld hl, Unknown_170470
|
|
dec a
|
|
ld e, a
|
|
ld d, 0
|
|
add hl, de
|
|
ld a, [hl]
|
|
pop hl
|
|
cp b
|
|
jr c, .asm_17045b
|
|
jr z, .asm_17045b
|
|
jr .asm_170456
|
|
|
|
.asm_170451
|
|
ld a, b
|
|
cp $fc
|
|
jr nc, .asm_17045b
|
|
|
|
.asm_170456
|
|
dec c
|
|
jr nz, .asm_170435
|
|
jr .asm_170466
|
|
|
|
.asm_17045b
|
|
pop de
|
|
push de
|
|
ld hl, Unknown_17047e
|
|
ld bc, $0024
|
|
call CopyBytes
|
|
|
|
.asm_170466
|
|
pop hl
|
|
ld de, $00e0
|
|
add hl, de
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_170431
|
|
ret
|
|
; 170470
|
|
|
|
Unknown_170470:
|
|
db $12, $24, $45, $45, $42, $42, $45, $42, $27, $27, $45, $27, $42, $24
|
|
|
|
Unknown_17047e:
|
|
db $03, $04, $05, $08
|
|
db $03, $05, $0e, $06
|
|
db $03, $02, $00, $00
|
|
db $39, $07, $07, $04
|
|
db $00, $05, $04, $07
|
|
db $01, $05, $00, $00
|
|
db $0f, $05, $14, $07
|
|
db $05, $05, $11, $0c
|
|
db $0c, $06, $06, $04
|
|
|
|
|
|
CopyBTTrainer_FromBT_OTrainer_TowBT_OTTempCopy: ; 1704a2
|
|
; copy the BattleTower-Trainer data that lies at 'BT_OTrainer' to 'wBT_OTTempCopy'
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $3
|
|
ld [rSVBK], a
|
|
ld hl, BT_OTrainer ; $d100
|
|
ld de, wBT_OTTempCopy ; $c608
|
|
ld bc, BT_OTrainerEnd - BT_OTrainer ; $e0 = $a + $1 + 3*$3b + $24
|
|
; = $a + $1 + BATTLETOWER_NROFPKMNS * (PARTYMON_STRUCT_LENGTH + PKMN_NAME_LENGTH) + BATTLETOWER_TRAINERDATALENGTH
|
|
call CopyBytes
|
|
pop af
|
|
ld [rSVBK], a
|
|
ld a, BANK(s1_be45)
|
|
call GetSRAMBank
|
|
ld a, $2
|
|
ld [s1_be45], a
|
|
ld hl, sNrOfBeatenBattleTowerTrainers
|
|
inc [hl]
|
|
call CloseSRAM
|
|
SkipBattleTowerBattle: ; 1704c9
|
|
ret
|
|
; 1704ca
|
|
|
|
|
|
Function1704ca: ; 1704ca
|
|
ld a, [$be46]
|
|
cp $7
|
|
jr c, .asm_1704d3
|
|
ld a, $6
|
|
|
|
.asm_1704d3
|
|
ld hl, $afce
|
|
ld de, -$e0
|
|
.asm_1704d9
|
|
and a
|
|
jr z, .asm_1704e0
|
|
add hl, de
|
|
dec a
|
|
jr .asm_1704d9
|
|
|
|
.asm_1704e0
|
|
ret
|
|
; 1704e1
|
|
|
|
Function1704e1: ; 1704e1
|
|
call SpeechTextBox
|
|
call FadeToMenu
|
|
call Function17021e
|
|
call Function1704f1
|
|
call Function2b3c
|
|
ret
|
|
; 1704f1
|
|
|
|
Function1704f1: ; 1704f1
|
|
call WhiteBGMap
|
|
call ClearSprites
|
|
call ClearScreen
|
|
.asm_1704fa
|
|
call JoyTextDelay
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a
|
|
jr nz, .asm_17050f
|
|
call Function170510
|
|
callba Function104061
|
|
jr .asm_1704fa
|
|
|
|
.asm_17050f
|
|
ret
|
|
; 170510
|
|
|
|
Function170510: ; 170510
|
|
ld a, [wJumptableIndex]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, Jumptable_17051f
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
; 17051f
|
|
|
|
Jumptable_17051f: ; 17051f
|
|
dw Function170525
|
|
dw Function170571
|
|
dw Function170577
|
|
; 170525
|
|
|
|
Function170525: ; 170525
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
|
|
ld hl, $a89c
|
|
ld de, StringBuffer3
|
|
ld bc, $0016
|
|
call CopyBytes
|
|
|
|
ld hl, $a8b2
|
|
ld de, $c608
|
|
ld bc, $0096
|
|
call CopyBytes
|
|
|
|
call CloseSRAM
|
|
hlcoord 1, 1
|
|
ld de, StringBuffer3
|
|
call PlaceString
|
|
hlcoord 1, 3
|
|
ld de, String_170676
|
|
call PlaceString
|
|
hlcoord 4, 3
|
|
ld de, StringBuffer4
|
|
call PlaceString
|
|
hlcoord 8, 3
|
|
ld de, String_17067a
|
|
call PlaceString
|
|
call Function1705b7
|
|
call Function1705f0
|
|
jr Function1705b2
|
|
|
|
|
|
Function170571:
|
|
call SetPalettes
|
|
call Function1705b2
|
|
|
|
|
|
Function170577:
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and $1
|
|
jr nz, .asm_1705ac
|
|
ld a, [hl]
|
|
and $2
|
|
jr nz, .asm_1705ac
|
|
ld a, [hl]
|
|
and $40
|
|
jr nz, .asm_17058f
|
|
ld a, [hl]
|
|
and $80
|
|
jr nz, .asm_17059d
|
|
ret
|
|
|
|
.asm_17058f
|
|
ld a, [wcf64]
|
|
and a
|
|
ret z
|
|
sub $f
|
|
ld [wcf64], a
|
|
call Function1705f0
|
|
ret
|
|
|
|
.asm_17059d
|
|
ld a, [wcf64]
|
|
cp $3c
|
|
ret z
|
|
add $f
|
|
ld [wcf64], a
|
|
call Function1705f0
|
|
ret
|
|
|
|
.asm_1705ac
|
|
ld hl, wJumptableIndex
|
|
set 7, [hl]
|
|
ret
|
|
|
|
Function1705b2:
|
|
ld hl, wJumptableIndex
|
|
inc [hl]
|
|
ret
|
|
; 1705b7
|
|
|
|
Function1705b7: ; 1705b7
|
|
hlcoord 0, 4
|
|
ld a, $79
|
|
ld [hli], a
|
|
ld c, $12
|
|
.asm_1705bf
|
|
ld a, $7a
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_1705bf
|
|
ld a, $7b
|
|
ld [hli], a
|
|
ld de, $0014
|
|
ld c, $c
|
|
.asm_1705cd
|
|
ld a, $7c
|
|
ld [hl], a
|
|
add hl, de
|
|
dec c
|
|
jr nz, .asm_1705cd
|
|
ld a, $7d
|
|
ld [hli], a
|
|
ld c, $12
|
|
.asm_1705d9
|
|
ld a, $7a
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_1705d9
|
|
ld a, $7e
|
|
ld [hl], a
|
|
ld de, $ffec
|
|
add hl, de
|
|
ld c, $c
|
|
.asm_1705e8
|
|
ld a, $7c
|
|
ld [hl], a
|
|
add hl, de
|
|
dec c
|
|
jr nz, .asm_1705e8
|
|
ret
|
|
; 1705f0
|
|
|
|
Function1705f0: ; 1705f0
|
|
call Function17064b
|
|
call Function17065d
|
|
ld a, $50
|
|
ld [wcd4e], a
|
|
ld hl, $c608
|
|
ld a, [wcf64]
|
|
ld c, a
|
|
xor a
|
|
ld b, a
|
|
add hl, bc
|
|
push hl
|
|
pop bc
|
|
hlcoord 1, 6
|
|
ld a, $6
|
|
.asm_17060c
|
|
push af
|
|
push hl
|
|
ld a, $3
|
|
.asm_170610
|
|
push af
|
|
ld de, wcd49
|
|
ld a, [bc]
|
|
and a
|
|
jr z, .asm_170625
|
|
ld a, $5
|
|
.asm_17061a
|
|
push af
|
|
ld a, [bc]
|
|
ld [de], a
|
|
inc bc
|
|
inc de
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_17061a
|
|
jr .asm_170631
|
|
|
|
.asm_170625
|
|
ld a, $5
|
|
.asm_170627
|
|
push af
|
|
ld a, $e3
|
|
ld [de], a
|
|
inc de
|
|
inc bc
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_170627
|
|
|
|
.asm_170631
|
|
ld de, wcd49
|
|
push bc
|
|
call PlaceString
|
|
ld de, $0006
|
|
add hl, de
|
|
pop bc
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_170610
|
|
pop hl
|
|
ld de, $0028
|
|
add hl, de
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_17060c
|
|
ret
|
|
; 17064b
|
|
|
|
Function17064b: ; 17064b
|
|
hlcoord 1, 5
|
|
xor a
|
|
ld b, $c
|
|
.asm_170651
|
|
ld c, $12
|
|
.asm_170653
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_170653
|
|
rept 2
|
|
inc hl
|
|
endr
|
|
dec b
|
|
jr nz, .asm_170651
|
|
ret
|
|
; 17065d
|
|
|
|
Function17065d: ; 17065d
|
|
ld a, [wcf64]
|
|
and a
|
|
jr z, .asm_170669
|
|
hlcoord 18, 5
|
|
ld a, $61
|
|
ld [hl], a
|
|
|
|
.asm_170669
|
|
ld a, [wcf64]
|
|
cp $3c
|
|
ret z
|
|
hlcoord 18, 16
|
|
ld a, $ee
|
|
ld [hl], a
|
|
ret
|
|
; 170676
|
|
|
|
String_170676: ; 170676
|
|
db "ルーム@"
|
|
; 17067a
|
|
|
|
String_17067a: ; 17067a
|
|
db "れきだいりーダーいちらん@"
|
|
; 170687
|
|
|
|
BattleTowerAction: ; 170687
|
|
ld a, [ScriptVar]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, .jumptable
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
; 170696
|
|
|
|
|
|
.jumptable: ; 170696 (5c:4696)
|
|
dw Function17075f ; 0x00
|
|
dw Function170788 ; 0x01
|
|
dw Function170778 ; 0x02
|
|
dw Function170799 ; 0x03
|
|
dw Function17079d ; 0x04
|
|
dw Function1707ac ; 0x05
|
|
dw Function1707f4 ; 0x06
|
|
dw Function170868 ; 0x07
|
|
dw Function170881 ; 0x08
|
|
dw Function17089a ; 0x09
|
|
dw Function1708b1 ; 0x0a
|
|
dw Function1708b9 ; 0x0b
|
|
dw Function1708c8 ; 0x0c
|
|
dw Function1708f0 ; 0x0d
|
|
dw Function17093c ; 0x0e
|
|
dw Function1709aa ; 0x0f
|
|
dw Function1709bb ; 0x10
|
|
dw Function170a9c ; 0x11
|
|
dw Function170aa0 ; 0x12
|
|
dw Function170aaf ; 0x13
|
|
dw Function170abe ; 0x14
|
|
dw Function170ad7 ; 0x15
|
|
dw Function170807 ; 0x16
|
|
dw Function17081d ; 0x17
|
|
dw Function170ae8 ; 0x18
|
|
dw Function170b16 ; 0x19
|
|
dw ResetBattleTowerTrainersSRAM ; 0x1a
|
|
dw Function1706ee ; 0x1b
|
|
dw Function17071b ; 0x1c
|
|
dw Function170729 ; 0x1d
|
|
dw Function17073e ; 0x1e
|
|
dw Function170737 ; 0x1f
|
|
|
|
|
|
; Reset the save memory for BattleTower-Trainers (Counter and all 7 TrainerBytes)
|
|
ResetBattleTowerTrainersSRAM: ; 1706d6 (5c:46d6) BattleTowerAction $1a
|
|
ld a, BANK(sBTTrainers)
|
|
call GetSRAMBank
|
|
|
|
ld a, $ff
|
|
ld hl, sBTTrainers
|
|
ld bc, BATTLETOWER_NROFTRAINERS
|
|
call ByteFill
|
|
|
|
xor a
|
|
ld [sNrOfBeatenBattleTowerTrainers], a
|
|
|
|
call CloseSRAM
|
|
|
|
ret
|
|
|
|
Function1706ee: ; 1706ee (5c:46ee)
|
|
ld a, BANK(sbe50)
|
|
call GetSRAMBank
|
|
|
|
ld a, [sbe50]
|
|
call CloseSRAM
|
|
ld [ScriptVar], a
|
|
ld hl, NumItems
|
|
ld a, [hli]
|
|
cp $14
|
|
ret c
|
|
ld b, $14
|
|
ld a, [ScriptVar]
|
|
ld c, a
|
|
.asm_170709
|
|
ld a, [hli]
|
|
cp c
|
|
jr nz, .asm_170711
|
|
ld a, [hl]
|
|
cp $5f
|
|
ret c
|
|
.asm_170711
|
|
inc hl
|
|
dec b
|
|
jr nz, .asm_170709
|
|
ld a, $12
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
Function17071b: ; 17071b (5c:471b)
|
|
ld a, BANK(s1_be45)
|
|
call GetSRAMBank
|
|
ld a, $3
|
|
ld [s1_be45], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170729: ; 170729 (5c:4729)
|
|
ld a, BANK(s1_be45)
|
|
call GetSRAMBank
|
|
ld a, $4
|
|
ld [s1_be45], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170737: ; 170737 (5c:4737)
|
|
callba SaveOptions
|
|
ret
|
|
|
|
Function17073e: ; 17073e (5c:473e)
|
|
call Random
|
|
ld a, [hRandomAdd] ; $ff00+$e1
|
|
and $7
|
|
cp $6
|
|
jr c, .asm_17074b
|
|
sub $6
|
|
.asm_17074b
|
|
add $1a
|
|
cp $1e
|
|
jr z, Function17073e
|
|
push af
|
|
ld a, BANK(sbe50)
|
|
call GetSRAMBank
|
|
pop af
|
|
ld [sbe50], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function17075f: ; 17075f (5c:475f)
|
|
call Function17089a
|
|
ld a, [ScriptVar]
|
|
and a
|
|
ret z
|
|
ld a, BANK(sbe4f)
|
|
call GetSRAMBank
|
|
ld a, [sbe4f]
|
|
and $2
|
|
ld [ScriptVar], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170778: ; 170778 (5c:4778)
|
|
ld hl, s1_be45
|
|
ld a, BANK(s1_be45)
|
|
call GetSRAMBank
|
|
ld a, [hl]
|
|
ld [ScriptVar], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170788: ; 170788 (5c:4788)
|
|
ld a, BANK(sbe4f)
|
|
call GetSRAMBank
|
|
ld a, [sbe4f]
|
|
or $2
|
|
ld [sbe4f], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170799: ; 170799 (5c:4799)
|
|
ld c, $1
|
|
jr asm_17079f
|
|
|
|
Function17079d: ; 17079d (5c:479d)
|
|
ld c, $0
|
|
asm_17079f: ; 17079f (5c:479f)
|
|
ld a, BANK(s1_be45)
|
|
call GetSRAMBank
|
|
ld a, c
|
|
ld [s1_be45], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function1707ac: ; 1707ac (5c:47ac)
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$aa8c]
|
|
ld b, a
|
|
ld a, [$be46]
|
|
ld [ScriptVar], a
|
|
call CloseSRAM
|
|
and a
|
|
ret z
|
|
ld a, b
|
|
cp $2
|
|
jr nc, .asm_1707ef
|
|
push bc
|
|
call UpdateTime
|
|
pop bc
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$aa8b]
|
|
call CloseSRAM
|
|
ld c, a
|
|
ld a, [CurDay]
|
|
sub c
|
|
jr c, .asm_1707e5
|
|
cp $8
|
|
jr nc, .asm_1707ef
|
|
ld a, b
|
|
and a
|
|
jr nz, .asm_1707ef
|
|
ret
|
|
.asm_1707e5
|
|
ld hl, CurDay
|
|
ld a, $8c
|
|
sub c
|
|
add [hl]
|
|
cp $8
|
|
ret c
|
|
.asm_1707ef
|
|
ld a, $8
|
|
ld [ScriptVar], a
|
|
|
|
Function1707f4: ; 1707f4 (5c:47f4)
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
xor a
|
|
ld [$be46], a
|
|
ld [$aa8b], a
|
|
ld [$aa8c], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170807: ; 170807 (5c:4807)
|
|
call UpdateTime
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [CurDay]
|
|
ld [$b2f9], a
|
|
xor a
|
|
ld [$b2fa], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function17081d: ; 17081d (5c:481d)
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$b2f9]
|
|
ld c, a
|
|
ld a, [$b2fa]
|
|
ld b, a
|
|
call CloseSRAM
|
|
cp $2
|
|
jr nc, .asm_170853
|
|
push bc
|
|
call UpdateTime
|
|
pop bc
|
|
ld a, [CurDay]
|
|
sub c
|
|
jr c, .asm_170849
|
|
cp $b
|
|
jr nc, .asm_170853
|
|
ld a, b
|
|
and a
|
|
jr nz, .asm_170853
|
|
ret
|
|
.asm_170849
|
|
ld hl, CurDay
|
|
ld a, $8c
|
|
sub c
|
|
add [hl]
|
|
cp $b
|
|
ret c
|
|
.asm_170853
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
xor a
|
|
ld [$b2f9], a
|
|
ld [$b2fa], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170868: ; 170868 (5c:4868)
|
|
ld a, BANK(sbe47)
|
|
call GetSRAMBank
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, $3
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ld a, [wd000 + $800]
|
|
ld [sbe47], a
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170881: ; 170881 (5c:4881)
|
|
ld a, BANK(sbe47)
|
|
call GetSRAMBank
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, $3
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ld a, [sbe47]
|
|
ld [wd000 + $800], a
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function17089a: ; 17089a
|
|
ld a, [wcfcd]
|
|
and a
|
|
jr z, .asm_1708ad
|
|
callba Function14bcb
|
|
jr z, .asm_1708ab
|
|
xor a
|
|
jr .asm_1708ad
|
|
|
|
.asm_1708ab
|
|
ld a, $1
|
|
|
|
.asm_1708ad
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 1708b1
|
|
|
|
|
|
Function1708b1: ; 1708b1 (5c:48b1)
|
|
xor a
|
|
ld [MusicFade], a
|
|
call MaxVolume
|
|
ret
|
|
|
|
Function1708b9: ; 1708b9 (5c:48b9) something to do with GS Ball
|
|
ld a, BANK(s1_be3c)
|
|
call GetSRAMBank
|
|
ld a, [s1_be3c]
|
|
ld [ScriptVar], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function1708c8: ; 1708c8 (5c:48c8)
|
|
call UpdateTime
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [CurDay]
|
|
ld [$aa8b], a
|
|
xor a
|
|
ld [$aa8c], a
|
|
ld a, [$aa5d]
|
|
cp $2
|
|
jr nc, .asm_1708ec
|
|
ld a, [CurDay]
|
|
ld [$aa48], a
|
|
ld a, $1
|
|
ld [$aa47], a
|
|
.asm_1708ec
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function1708f0: ; 1708f0 (5c:48f0)
|
|
xor a
|
|
ld [ScriptVar], a
|
|
call UpdateTime
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$aa48]
|
|
ld c, a
|
|
ld a, [$aa47]
|
|
call CloseSRAM
|
|
and a
|
|
ret z
|
|
ld hl, CurDay
|
|
ld a, c
|
|
cp [hl]
|
|
jr nz, Function170923
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$aa5d]
|
|
call CloseSRAM
|
|
cp $5
|
|
ret c
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
|
|
Function170923: ; 170923
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
xor a
|
|
ld [$aa48], a
|
|
ld [$aa47], a
|
|
ld hl, $aa5d
|
|
ld bc, $0011
|
|
call ByteFill
|
|
call CloseSRAM
|
|
ret
|
|
; 17093c
|
|
|
|
|
|
Function17093c: ; 17093c (5c:493c)
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ld a, EGG_TICKET
|
|
ld [CurItem], a
|
|
ld hl, NumItems
|
|
call CheckItem
|
|
ret nc
|
|
ld a, [PartyCount]
|
|
ld b, 0
|
|
ld c, a
|
|
ld hl, PartySpecies
|
|
.loop
|
|
ld a, [hli]
|
|
cp EGG
|
|
jr nz, .not_egg
|
|
push hl
|
|
ld hl, PartyMonOT ; wddff (aliases: PartyMonOT)
|
|
ld de, $6
|
|
ld a, b
|
|
and a
|
|
jr z, .skip
|
|
.loop2
|
|
add hl, de
|
|
dec a
|
|
jr nz, .loop2
|
|
.skip
|
|
ld de, String_1709a4
|
|
ld a, $6
|
|
.asm_17096e
|
|
push af
|
|
ld a, [de]
|
|
inc de
|
|
cp [hl]
|
|
inc hl
|
|
jr nz, .asm_17099d
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_17096e
|
|
rept 4
|
|
dec hl
|
|
endr
|
|
ld a, $50
|
|
rept 2
|
|
ld [hli], a
|
|
endr
|
|
pop hl
|
|
ld a, EGG_TICKET
|
|
ld [CurItem], a
|
|
ld a, $1
|
|
ld [wItemQuantityChangeBuffer], a
|
|
ld a, $ff
|
|
ld [wd107], a
|
|
ld hl, NumItems
|
|
call TossItem
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_17099d
|
|
pop af
|
|
pop hl
|
|
.not_egg
|
|
inc b
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 1709a4 (5c:49a4)
|
|
|
|
String_1709a4: ; 1709a4
|
|
db "なぞナゾ@@"
|
|
|
|
Function1709aa: ; 1709aa (5c:49aa)
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, BANK(w3_d090)
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ld a, [w3_d090]
|
|
ld [ScriptVar], a
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ret
|
|
|
|
Function1709bb: ; 1709bb (5c:49bb)
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$a800]
|
|
call CloseSRAM
|
|
cp 6
|
|
jr nc, .invalid
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, Jumptable_1709e7
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
|
|
.invalid
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
xor a
|
|
ld [$a800], a
|
|
call CloseSRAM
|
|
ret
|
|
; 1709e7 (5c:49e7)
|
|
|
|
Jumptable_1709e7: ; 1709e7
|
|
dw Function170a00
|
|
dw Function170a00
|
|
dw Function1709f3
|
|
dw Function1709f3
|
|
dw Function170a01
|
|
dw Function170a33
|
|
; 1709f3
|
|
|
|
Function1709f3: ; 1709f3
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, $1
|
|
ld [$a800], a
|
|
call CloseSRAM
|
|
|
|
Function170a00: ; 170a00
|
|
ret
|
|
; 170a01
|
|
|
|
Function170a01: ; 170a01
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld hl, $b023
|
|
ld de, $c608
|
|
ld bc, $0069
|
|
call CopyBytes
|
|
ld a, [$a825]
|
|
ld [wcd30], a
|
|
ld a, [$a826]
|
|
ld [wcd31], a
|
|
call CloseSRAM
|
|
callba Function11b6b4
|
|
callba Function17d0f3
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 170a33
|
|
|
|
Function170a33: ; 170a33
|
|
ld a, $0
|
|
call GetSRAMBank
|
|
ld hl, wRTC
|
|
ld de, $c608
|
|
ld bc, $0004
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld hl, $b08c
|
|
ld de, $c608
|
|
ld c, $4
|
|
.asm_170a54
|
|
ld a, [de]
|
|
inc de
|
|
cp [hl]
|
|
jr nz, .asm_170a78
|
|
inc hl
|
|
dec c
|
|
jr nz, .asm_170a54
|
|
call CloseSRAM
|
|
ld a, [MapGroup]
|
|
ld b, a
|
|
ld a, [MapNumber]
|
|
ld c, a
|
|
call GetMapTrigger
|
|
ld a, d
|
|
or e
|
|
jr z, .asm_170a72
|
|
ld a, [de]
|
|
and a
|
|
ret nz
|
|
|
|
.asm_170a72
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_170a78
|
|
call CloseSRAM
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
xor a
|
|
ld [$a800], a
|
|
call CloseSRAM
|
|
ld [ScriptVar], a
|
|
ld a, [MapGroup]
|
|
ld b, a
|
|
ld a, [MapNumber]
|
|
ld c, a
|
|
call GetMapTrigger
|
|
ld a, d
|
|
or e
|
|
jr z, .asm_170a9b
|
|
xor a
|
|
ld [de], a
|
|
|
|
.asm_170a9b
|
|
ret
|
|
; 170a9c
|
|
|
|
Function170a9c: ; 170a9c (5c:4a9c)
|
|
ld c, $0
|
|
jr asm_170aa2
|
|
|
|
Function170aa0: ; 170aa0 (5c:4aa0)
|
|
ld c, $1
|
|
asm_170aa2: ; 170aa2 (5c:4aa2)
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, c
|
|
ld [$aa8d], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170aaf: ; 170aaf (5c:4aaf)
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$aa8d]
|
|
ld [ScriptVar], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170abe: ; 170abe (5c:4abe)
|
|
call Function17089a
|
|
ld a, [ScriptVar]
|
|
and a
|
|
ret z
|
|
ld a, BANK(sbe4f)
|
|
call GetSRAMBank
|
|
ld a, [sbe4f]
|
|
and $1
|
|
ld [ScriptVar], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170ad7: ; 170ad7 (5c:4ad7)
|
|
ld a, BANK(sbe4f)
|
|
call GetSRAMBank
|
|
ld a, [sbe4f]
|
|
or $1
|
|
ld [sbe4f], a
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function170ae8: ; 170ae8 (5c:4ae8)
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$b2fb]
|
|
call CloseSRAM
|
|
ld c, $a
|
|
call SimpleDivide
|
|
ld a, b
|
|
ld [wcd4f], a
|
|
xor a
|
|
ld [ScriptVar], a
|
|
callba Function119d93
|
|
ret nc
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$b2fb]
|
|
call CloseSRAM
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
Function170b16: ; 170b16 (5c:4b16)
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$b2fb]
|
|
call CloseSRAM
|
|
ld c, 10
|
|
call SimpleDivide
|
|
ld a, b
|
|
ld [wcd4f], a
|
|
xor a
|
|
ld [ScriptVar], a
|
|
callba Function119dd1
|
|
ret nc
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [$b2fb]
|
|
call CloseSRAM
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
Function_LoadOpponentTrainerAndPokemonsWithOTSprite: ; 0x170b44
|
|
callba Function_LoadOpponentTrainerAndPokemons
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $3
|
|
ld [rSVBK], a
|
|
ld hl, wd10a
|
|
ld a, [hl]
|
|
dec a
|
|
ld c, a
|
|
ld b, $0
|
|
pop af
|
|
ld [rSVBK], a
|
|
ld hl, Unknown_170b90
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wcd49], a
|
|
|
|
; Load sprite of the opponent trainer
|
|
; because s/he is chosen randomly and appears out of nowhere
|
|
ld a, [ScriptVar]
|
|
dec a
|
|
sla a
|
|
ld e, a
|
|
sla a
|
|
sla a
|
|
sla a
|
|
ld c, a
|
|
ld b, $0
|
|
ld d, $0
|
|
ld hl, MapObjects
|
|
add hl, bc
|
|
inc hl
|
|
ld a, [wcd49]
|
|
ld [hl], a
|
|
ld hl, UsedSprites
|
|
add hl, de
|
|
ld [hli], a
|
|
ld [hUsedSpriteIndex], a
|
|
ld a, [hl]
|
|
ld [hUsedSpriteTile], a
|
|
callba Function143c8
|
|
ret
|
|
; 170b90
|
|
|
|
Unknown_170b90:
|
|
db $12, $13, $14, $15, $18, $17
|
|
db $16, $19, $04, $05, $11, $01
|
|
db $1c, $1b, $21, $1e, $1a, $1d
|
|
db $1f, $3c, $20, $27, $27, $27
|
|
db $28, $0a, $23, $24, $2a, $2b
|
|
db $35, $40, $2a, $29, $22, $25
|
|
db $3a, $2b, $24, $49, $2b, $07
|
|
db $2c, $2d, $4a, $0d, $4b, $3a
|
|
db $2b, $41, $35, $27, $28, $27
|
|
db $36, $3e, $30, $2c, $2d, $3d
|
|
db $26, $2e, $06, $07, $43, $36
|
|
|
|
Function170bd2: ; 170bd2
|
|
ret
|
|
; 170bd3
|
|
|
|
SpecialCheckForBattleTowerRules: ; 170bd3
|
|
callba CheckForBattleTowerRules
|
|
jr c, .asm_170bde
|
|
xor a
|
|
jr .asm_170be0
|
|
|
|
.asm_170bde
|
|
ld a, $1
|
|
|
|
.asm_170be0
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 170be4
|
|
Function170be4: ; 170be4
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
xor a
|
|
ld hl, $a894
|
|
ld bc, $0008
|
|
call ByteFill
|
|
call CloseSRAM
|
|
ret
|
|
; 170bf7
|
|
|
|
Function170bf7: ; 170bf7
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld hl, $a89a
|
|
xor a
|
|
ld [hli], a
|
|
ld [hl], a
|
|
call CloseSRAM
|
|
ret
|
|
; 170c06
|
|
|
|
Function170c06: ; 170c06
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld hl, $a894
|
|
ld a, [wBattleResult]
|
|
and a
|
|
jr nz, .asm_170c15
|
|
inc [hl]
|
|
|
|
.asm_170c15
|
|
rept 2
|
|
inc hl
|
|
endr
|
|
ld a, [$a89b]
|
|
add [hl]
|
|
ld [hld], a
|
|
ld a, [$a89a]
|
|
adc [hl]
|
|
ld [hli], a
|
|
jr nc, .asm_170c27
|
|
ld a, $ff
|
|
ld [hld], a
|
|
ld [hli], a
|
|
|
|
.asm_170c27
|
|
inc hl
|
|
push hl
|
|
ld de, 0
|
|
xor a
|
|
ld [wd265], a
|
|
.asm_170c30
|
|
ld hl, PartyMon1HP
|
|
ld a, [wd265]
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld c, [hl]
|
|
rept 2
|
|
inc hl
|
|
endr
|
|
ld a, [hld]
|
|
sub c
|
|
ld c, a
|
|
ld a, [hl]
|
|
sbc b
|
|
ld b, a
|
|
push de
|
|
pop hl
|
|
add hl, bc
|
|
push hl
|
|
pop de
|
|
jr c, .asm_170c58
|
|
ld a, [wd265]
|
|
inc a
|
|
ld [wd265], a
|
|
cp $3
|
|
jr c, .asm_170c30
|
|
jr .asm_170c5b
|
|
|
|
.asm_170c58
|
|
ld de, -1
|
|
|
|
.asm_170c5b
|
|
pop hl
|
|
inc hl
|
|
ld a, e
|
|
add [hl]
|
|
ld [hld], a
|
|
ld a, d
|
|
adc [hl]
|
|
ld [hli], a
|
|
jr nc, .asm_170c69
|
|
ld a, $ff
|
|
ld [hld], a
|
|
ld [hli], a
|
|
|
|
.asm_170c69
|
|
inc hl
|
|
push hl
|
|
ld b, $0
|
|
ld c, $0
|
|
.asm_170c6f
|
|
ld hl, PartyMon1HP
|
|
ld a, b
|
|
push bc
|
|
call GetPartyLocation
|
|
pop bc
|
|
ld a, [hli]
|
|
or [hl]
|
|
jr nz, .asm_170c7d
|
|
inc c
|
|
|
|
.asm_170c7d
|
|
inc b
|
|
ld a, b
|
|
cp $3
|
|
jr c, .asm_170c6f
|
|
pop hl
|
|
ld a, [hl]
|
|
add c
|
|
ld [hl], a
|
|
call CloseSRAM
|
|
ret
|
|
; 170c8b
|
|
|
|
Function170c8b: ; 170c8b
|
|
ld hl, LastPlayerCounterMove
|
|
ld b, $5
|
|
.asm_170c90
|
|
ld a, [hl]
|
|
xor $ff
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .asm_170c90
|
|
ret
|
|
; 170c98
|
|
|
|
Function170c98: ; 170c98
|
|
ld c, $3
|
|
ld hl, $c608 + 13
|
|
.asm_170c9d
|
|
push hl
|
|
ld a, [hl]
|
|
cp $fc
|
|
jr c, .asm_170ca6
|
|
ld a, $1
|
|
ld [hl], a
|
|
|
|
.asm_170ca6
|
|
inc hl
|
|
ld b, $3
|
|
.asm_170ca9
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .asm_170cb1
|
|
cp $fc
|
|
jr c, .asm_170cb9
|
|
|
|
.asm_170cb1
|
|
xor a
|
|
ld [hl], a
|
|
inc hl
|
|
dec b
|
|
jr nz, .asm_170cb1
|
|
jr .asm_170cbd
|
|
|
|
.asm_170cb9
|
|
inc hl
|
|
dec b
|
|
jr nz, .asm_170ca9
|
|
|
|
.asm_170cbd
|
|
pop hl
|
|
ld de, $003b
|
|
add hl, de
|
|
dec c
|
|
jr nz, .asm_170c9d
|
|
ret
|
|
; 170cc6
|
|
|
|
Function170cc6: ; 170cc6
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $6
|
|
ld [rSVBK], a
|
|
ld hl, LZ_170d16
|
|
ld de, wd000
|
|
call Decompress
|
|
ld a, $1
|
|
ld [rVBK], a
|
|
ld de, wd000
|
|
ld hl, VTiles0
|
|
lb bc, $6, $c1
|
|
call Get2bpp
|
|
xor a
|
|
ld [rVBK], a
|
|
ld hl, LZ_1715a4
|
|
ld de, wd000
|
|
call Decompress
|
|
ld de, Unkn1Pals
|
|
ld hl, VTiles0
|
|
lb bc, $6, $53
|
|
call Get2bpp
|
|
pop af
|
|
ld [rSVBK], a
|
|
ret
|
|
; 170d02
|
|
|
|
Function170d02: ; 170d02
|
|
ld a, $1
|
|
ld [rVBK], a
|
|
ld de, GFX_171848
|
|
ld hl, VTiles1 tile $41
|
|
lb bc, BANK(GFX_171848), $18
|
|
call Get2bpp
|
|
xor a
|
|
ld [rVBK], a
|
|
ret
|
|
; 170d16
|
|
|
|
LZ_170d16:
|
|
INCBIN "gfx/unknown/170d16.2bpp.lz"
|
|
|
|
LZ_1715a4:
|
|
INCBIN "gfx/unknown/1715a4.2bpp.lz"
|
|
|
|
GFX_171848:
|
|
INCBIN "gfx/unknown/171848.2bpp"
|
|
|
|
Function1719c8: ; 1719c8 (5c:59c8)
|
|
ld a, [hInMenu]
|
|
push af
|
|
ld a, $1
|
|
ld [hInMenu], a
|
|
call Function1719d6
|
|
pop af
|
|
ld [hInMenu], a
|
|
ret
|
|
|
|
Function1719d6: ; 1719d6 (5c:59d6)
|
|
callba Function1183cb
|
|
call Function1719ed
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a ; $ff00+$70
|
|
call Function171a11
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ret
|
|
|
|
Function1719ed: ; 1719ed (5c:59ed)
|
|
xor a
|
|
ld [wcd49], a
|
|
ld [wcd4a], a
|
|
dec a
|
|
ld [wcd4b], a
|
|
call WhiteBGMap
|
|
call ClearSprites
|
|
callba Function171d2b
|
|
callba Function104061
|
|
callba Function8cf53
|
|
ret
|
|
|
|
Function171a11: ; 171a11 (5c:5a11)
|
|
call JoyTextDelay
|
|
ld a, [wcd49]
|
|
bit 7, a
|
|
jr nz, .asm_171a2c
|
|
call Function171a36
|
|
callba Function8cf69
|
|
callba Function104061
|
|
jr Function171a11
|
|
.asm_171a2c
|
|
callba Function8cf53
|
|
call ClearSprites
|
|
ret
|
|
|
|
Function171a36: ; 171a36 (5c:5a36)
|
|
ld a, [wcd49]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, Jumptable_171a45
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
|
|
Jumptable_171a45: ; 171a45 (5c:5a45)
|
|
dw Function171a95
|
|
dw Function171ac9
|
|
dw Function171a5d
|
|
dw Function171ad7
|
|
dw Function171a5d
|
|
dw Function171aec
|
|
dw Function171b4b
|
|
dw Function171b85
|
|
dw Function171bcc
|
|
dw Function171c2c
|
|
dw Function171c39
|
|
dw Function171c41
|
|
|
|
|
|
Function171a5d: ; 171a5d (5c:5a5d)
|
|
ld a, [wc821]
|
|
bit 1, a
|
|
jr nz, .asm_171a6a
|
|
bit 0, a
|
|
ret nz
|
|
jp Function171c66
|
|
.asm_171a6a
|
|
ld a, $0
|
|
call Function3e32
|
|
ld [wc300], a
|
|
ld a, l
|
|
ld [wc301], a
|
|
ld a, h
|
|
ld [wc302], a
|
|
ld a, $a
|
|
call Function3e32
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, $1
|
|
ld [rSVBK], a ; $ff00+$70
|
|
callba Function118452
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ld a, $a
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
Function171a95: ; 171a95 (5c:5a95)
|
|
callba Function171ccd
|
|
hlcoord 2, 8
|
|
ld de, String_171aa7
|
|
call PlaceString
|
|
jp Function171c66
|
|
; 171aa7 (5c:5aa7)
|
|
|
|
String_171aa7: ; 171aa7
|
|
db "モバイルアダプタに"
|
|
next "せつぞく しています"
|
|
next "しばらく おまちください"
|
|
db "@"
|
|
; 171ac9
|
|
|
|
Function171ac9: ; 171ac9 (5c:5ac9)
|
|
ld de, wcd81
|
|
ld hl, $5c
|
|
ld a, $2
|
|
call Function3e32
|
|
jp Function171c66
|
|
|
|
Function171ad7: ; 171ad7 (5c:5ad7)
|
|
xor a
|
|
ld hl, $c608
|
|
ld bc, $66
|
|
call ByteFill
|
|
ld de, $c608
|
|
ld a, $c
|
|
call Function3e32
|
|
jp Function171c66
|
|
|
|
Function171aec: ; 171aec (5c:5aec)
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, $1
|
|
ld [rSVBK], a ; $ff00+$70
|
|
callba Function118452
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
hlcoord 2, 6
|
|
ld a, $8
|
|
.asm_171b01
|
|
push af
|
|
push hl
|
|
xor a
|
|
ld bc, $10
|
|
call ByteFill
|
|
pop hl
|
|
ld de, $14
|
|
add hl, de
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_171b01
|
|
hlcoord 2, 7
|
|
ld a, $3
|
|
ld de, $c608
|
|
.asm_171b1b
|
|
push af
|
|
push hl
|
|
ld a, [de]
|
|
and a
|
|
jr z, .asm_171b34
|
|
ld a, [wcd4b]
|
|
inc a
|
|
ld [wcd4b], a
|
|
push hl
|
|
call Function171b42
|
|
pop hl
|
|
ld bc, $ffec
|
|
add hl, bc
|
|
call Function171b42
|
|
.asm_171b34
|
|
pop hl
|
|
ld bc, $14
|
|
rept 3
|
|
add hl, bc
|
|
endr
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_171b1b
|
|
jp Function171c66
|
|
|
|
Function171b42: ; 171b42 (5c:5b42)
|
|
ld a, [de]
|
|
inc de
|
|
and a
|
|
ret z
|
|
sub $20
|
|
ld [hli], a
|
|
jr Function171b42
|
|
|
|
Function171b4b: ; 171b4b (5c:5b4b)
|
|
lb de, $40, $10
|
|
ld a, $1d
|
|
call Function3b2a
|
|
ld hl, $c
|
|
add hl, bc
|
|
ld a, $8
|
|
ld [hl], a
|
|
lb de, $40, $98
|
|
ld a, $1d
|
|
call Function3b2a
|
|
ld hl, $c
|
|
add hl, bc
|
|
ld a, $9
|
|
ld [hl], a
|
|
lb de, $8a, $70
|
|
ld a, $1d
|
|
call Function3b2a
|
|
ld hl, $c
|
|
add hl, bc
|
|
ld a, $a
|
|
ld [hl], a
|
|
ld a, $4
|
|
ld [wcd23], a
|
|
ld a, $8
|
|
ld [wcd24], a
|
|
jp Function171c66
|
|
|
|
Function171b85: ; 171b85 (5c:5b85)
|
|
ld hl, hJoyPressed ; $ffa7
|
|
ld a, [hl]
|
|
and $2
|
|
jp nz, Function171b9f
|
|
ld a, [hl]
|
|
and $1
|
|
jp nz, Function171bbd
|
|
ld a, [hl]
|
|
and $40
|
|
jr nz, asm_171ba5
|
|
ld a, [hl]
|
|
and $80
|
|
jr nz, asm_171baf
|
|
ret
|
|
|
|
Function171b9f: ; 171b9f (5c:5b9f)
|
|
ld a, $80
|
|
ld [wcd49], a
|
|
ret
|
|
asm_171ba5: ; 171ba5 (5c:5ba5)
|
|
ld a, [wcd4a]
|
|
and a
|
|
ret z
|
|
dec a
|
|
ld [wcd4a], a
|
|
ret
|
|
asm_171baf: ; 171baf (5c:5baf)
|
|
ld a, [wcd4b]
|
|
ld c, a
|
|
ld a, [wcd4a]
|
|
cp c
|
|
ret z
|
|
inc a
|
|
ld [wcd4a], a
|
|
ret
|
|
|
|
Function171bbd: ; 171bbd (5c:5bbd)
|
|
call PlayClickSFX
|
|
ld a, $8
|
|
ld [wcd23], a
|
|
xor a
|
|
ld [wcd24], a
|
|
jp Function171c66
|
|
|
|
Function171bcc: ; 171bcc (5c:5bcc)
|
|
ld hl, hJoyPressed ; $ffa7
|
|
ld a, [hl]
|
|
and $2
|
|
jp nz, Function171bdc
|
|
ld a, [hl]
|
|
and $1
|
|
jp nz, Function171beb
|
|
ret
|
|
|
|
Function171bdc: ; 171bdc (5c:5bdc)
|
|
ld a, $4
|
|
ld [wcd23], a
|
|
ld a, $8
|
|
ld [wcd24], a
|
|
ld hl, wcd49
|
|
dec [hl]
|
|
ret
|
|
|
|
Function171beb: ; 171beb (5c:5beb)
|
|
ld a, $5
|
|
call GetSRAMBank
|
|
ld a, [wcd4a]
|
|
ld [$aa4a], a
|
|
call CloseSRAM
|
|
ld hl, MenuDataHeader_171c6b
|
|
call LoadMenuDataHeader
|
|
call Function1cbb
|
|
call GetMemTileCoord
|
|
callba Function104061
|
|
hlcoord 1, 14
|
|
ld de, String_171c73
|
|
call PlaceString
|
|
ld a, [wcd4a]
|
|
cp $2
|
|
jr z, .asm_171c1f
|
|
ld a, $8
|
|
jr .asm_171c21
|
|
.asm_171c1f
|
|
ld a, $c
|
|
.asm_171c21
|
|
ld [wcd24], a
|
|
ld a, $1e
|
|
ld [wcd4c], a
|
|
call Function171c66
|
|
|
|
Function171c2c: ; 171c2c (5c:5c2c)
|
|
ld hl, wcd4c
|
|
dec [hl]
|
|
ret nz
|
|
call ExitMenu
|
|
call WhiteBGMap
|
|
jr asm_171c60
|
|
|
|
Function171c39: ; 171c39 (5c:5c39)
|
|
ld a, $28
|
|
ld [wcd4c], a
|
|
call Function171c66
|
|
|
|
Function171c41: ; 171c41 (5c:5c41)
|
|
ld hl, wcd4c
|
|
dec [hl]
|
|
ret nz
|
|
call WhiteBGMap
|
|
callba Function106462
|
|
callba Function106464
|
|
ld a, $2
|
|
ld [wc303], a
|
|
callba Function17f555
|
|
asm_171c60: ; 171c60 (5c:5c60)
|
|
ld a, $80
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
Function171c66: ; 171c66 (5c:5c66)
|
|
ld hl, wcd49
|
|
inc [hl]
|
|
ret
|
|
; 171c6b (5c:5c6b)
|
|
|
|
MenuDataHeader_171c6b: ; 171c6b
|
|
db $40 ; flags
|
|
db 12, 0 ; start coords
|
|
db 17, 19 ; end coords
|
|
dw NULL
|
|
db 0 ; default option
|
|
; 171c73
|
|
|
|
String_171c73: ; 171c73
|
|
db "モバイルセンターを けってい"
|
|
next "しました@"
|
|
; 171c87
|
|
|
|
Function171c87: ; 171c87 (5c:5c87)
|
|
call DisableLCD
|
|
ld hl, GFX_171db1
|
|
ld de, VTiles2 tile $00
|
|
ld bc, $6e0
|
|
call CopyBytes
|
|
ld hl, LZ_172abd
|
|
ld de, VTiles0 tile $00
|
|
call Decompress
|
|
call EnableLCD
|
|
ld hl, Tilemap_172491
|
|
decoord 0, 0
|
|
ld bc, $168
|
|
call CopyBytes
|
|
ld hl, Attrmap_1727ed
|
|
decoord 0, 0, AttrMap
|
|
ld bc, $168
|
|
call CopyBytes
|
|
hlcoord 3, 2
|
|
ld de, String_172e31
|
|
call PlaceString
|
|
hlcoord 3, 16
|
|
ld de, String_172e3f
|
|
call PlaceString
|
|
ret
|
|
|
|
Function171ccd: ; 171ccd (5c:5ccd)
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ld hl, Palette_171d71
|
|
ld de, Unkn1Pals
|
|
ld bc, $40
|
|
call CopyBytes
|
|
ld hl, MovementAnimation
|
|
ld a, $ff
|
|
ld [hli], a
|
|
ld a, $7f
|
|
ld [hl], a
|
|
call SetPalettes
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ret
|
|
|
|
Function171cf0: ; 171cf0 (5c:5cf0)
|
|
xor a
|
|
hlcoord 4, 15
|
|
rept 2
|
|
ld [hli], a
|
|
endr
|
|
ld a, [wcd4b]
|
|
xor $1
|
|
ld [wcd4b], a
|
|
and a
|
|
jr nz, .asm_171d16
|
|
ld hl, Tilemap_17251d
|
|
decoord 0, 7
|
|
ld bc, $8c
|
|
call CopyBytes
|
|
hlcoord 3, 16
|
|
ld de, String_172e3f
|
|
jp PlaceString
|
|
.asm_171d16
|
|
ld hl, Tilemap_1725f9
|
|
decoord 0, 7
|
|
ld bc, $8c
|
|
call CopyBytes
|
|
hlcoord 3, 16
|
|
ld de, String_172e4e
|
|
jp PlaceString
|
|
|
|
Function171d2b: ; 171d2b (5c:5d2b)
|
|
call DisableLCD
|
|
ld hl, GFX_171db1
|
|
ld de, VTiles2 tile $00
|
|
ld bc, $6e0
|
|
call CopyBytes
|
|
ld hl, LZ_172abd
|
|
ld de, VTiles0 tile $00
|
|
call Decompress
|
|
call EnableLCD
|
|
ld hl, Tilemap_172685
|
|
decoord 0, 0
|
|
ld bc, $168
|
|
call CopyBytes
|
|
ld hl, Attrmap_172955
|
|
decoord 0, 0, AttrMap
|
|
ld bc, $168
|
|
call CopyBytes
|
|
hlcoord 2, 2
|
|
ld de, String_172e5d
|
|
call PlaceString
|
|
hlcoord 14, 16
|
|
ld de, String_172e58
|
|
call PlaceString
|
|
ret
|
|
; 171d71 (5c:5d71)
|
|
|
|
Palette_171d71:
|
|
RGB 0, 0, 0
|
|
RGB 3, 0, 0
|
|
RGB 5, 0, 0
|
|
RGB 31, 31, 29
|
|
RGB 0, 2, 10
|
|
RGB 2, 10, 21
|
|
RGB 0, 0, 0
|
|
RGB 10, 26, 31
|
|
RGB 0, 0, 0
|
|
RGB 0, 7, 8
|
|
RGB 31, 8, 0
|
|
RGB 1, 17, 15
|
|
RGB 31, 16, 0
|
|
RGB 31, 22, 0
|
|
RGB 31, 27, 0
|
|
RGB 31, 31, 0
|
|
RGB 31, 18, 6
|
|
RGB 0, 3, 0
|
|
RGB 0, 9, 0
|
|
RGB 0, 12, 0
|
|
RGB 0, 16, 0
|
|
RGB 0, 22, 0
|
|
RGB 0, 25, 0
|
|
RGB 0, 27, 0
|
|
RGB 5, 5, 16
|
|
RGB 8, 19, 28
|
|
RGB 0, 0, 0
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 29
|
|
RGB 21, 21, 20
|
|
RGB 11, 11, 10
|
|
RGB 0, 0, 0
|
|
GFX_171db1:
|
|
INCBIN "gfx/unknown/171db1.2bpp"
|
|
Tilemap_172491:
|
|
INCBIN "gfx/unknown/172491.tilemap"
|
|
Tilemap_17251d:
|
|
INCBIN "gfx/unknown/17251d.tilemap"
|
|
Tilemap_1725f9:
|
|
INCBIN "gfx/unknown/1725f9.tilemap"
|
|
Tilemap_172685:
|
|
INCBIN "gfx/unknown/172685.tilemap"
|
|
Attrmap_1727ed:
|
|
INCBIN "gfx/unknown/1727ed.attrmap"
|
|
Attrmap_172955:
|
|
INCBIN "gfx/unknown/172955.attrmap"
|
|
LZ_172abd:
|
|
INCBIN "gfx/pokedex/slowpoke.2bpp.lz"
|
|
|
|
String_172e31: ; 172e31
|
|
db "パスワード", $1f, "いれてください@"
|
|
String_172e3f: ; 172e3f
|
|
db "きりかえ やめる けってい@"
|
|
String_172e4e: ; 172e4e
|
|
db "きりかえ やめる "
|
|
String_172e58:
|
|
db "けってい@"
|
|
String_172e5d: ; 172e5d
|
|
db "せつぞくする モバイルセンターを"
|
|
next "えらんで ください@"
|
|
; 172e78
|
|
|
|
|
|
Function172e78: ; 172e78 (5c:6e78)
|
|
ld a, $7f
|
|
hlcoord 0, 0
|
|
ld bc, $168
|
|
call ByteFill
|
|
ld a, $7
|
|
hlcoord 0, 0, AttrMap
|
|
ld bc, $168
|
|
call ByteFill
|
|
call DisableLCD
|
|
ld hl, GFX_172f1f
|
|
ld de, VTiles2 tile $00
|
|
ld bc, $610
|
|
call CopyBytes
|
|
call EnableLCD
|
|
ld hl, Tilemap_1733af
|
|
decoord 0, 0
|
|
ld bc, $168
|
|
call CopyBytes
|
|
ld hl, Attrmap_173517
|
|
decoord 0, 0, AttrMap
|
|
ld bc, $168
|
|
call CopyBytes
|
|
ret
|
|
; 172eb9 (5c:6eb9)
|
|
|
|
Function172eb9:
|
|
ld a, [rSVBK] ; $ff00+$70
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ld hl, Palette_172edf
|
|
ld de, Unkn1Pals
|
|
ld bc, $40
|
|
call CopyBytes
|
|
ld hl, Palette_172edf
|
|
ld de, BGPals
|
|
ld bc, $40
|
|
call CopyBytes
|
|
call SetPalettes
|
|
pop af
|
|
ld [rSVBK], a ; $ff00+$70
|
|
ret
|
|
; 172edf (5c:6edf)
|
|
|
|
Palette_172edf:
|
|
RGB 5, 12, 17
|
|
RGB 31, 31, 31
|
|
RGB 18, 25, 28
|
|
RGB 10, 17, 21
|
|
RGB 6, 13, 18
|
|
RGB 31, 31, 31
|
|
RGB 20, 26, 28
|
|
RGB 12, 19, 23
|
|
RGB 3, 10, 16
|
|
RGB 31, 31, 31
|
|
RGB 6, 13, 18
|
|
RGB 20, 26, 28
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 5, 5, 16
|
|
RGB 8, 19, 28
|
|
RGB 0, 0, 0
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
RGB 0, 0, 0
|
|
|
|
GFX_172f1f:
|
|
INCBIN "gfx/unknown/172f1f.2bpp"
|
|
|
|
Tilemap_1733af:
|
|
IF DEF(CORRUPT_TILES)
|
|
INCBIN "gfx/unknown/1733af_corrupt.tilemap"
|
|
ELSE
|
|
INCBIN "gfx/unknown/1733af.tilemap"
|
|
ENDC
|
|
|
|
Attrmap_173517:
|
|
INCBIN "gfx/unknown/173517.attrmap"
|