shithub: pokecrystal

ref: d5ddd9e54ec2422d6f1cd7c561c1750512d0a81d
dir: /predef/sgb.asm/

View raw version
Function864c: ; 864c
; LoadSGBLayout
	call CheckCGB
	jp nz, Function8d59

	ld a, b
	cp $ff
	jr nz, .asm_865a
	ld a, [SGBPredef]

.asm_865a
	cp $fc
	jp z, Function8ade
	ld l, a
	ld h, 0
	add hl, hl
	ld de, Table866f
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld de, Function8a60
	push de
	jp [hl]
; 866f

Table866f: ; 866f
	dw Function86ad
	dw Function86b4
	dw Function875c
	dw Function8763
	dw Function87b2
	dw Function8852
	dw Function8859
	dw Function8867
	dw Function8860
	dw Function88b1
	dw Function87ab
	dw Function88cd
	dw Function8884
	dw Function891a
	dw Function873c
	dw Function8897
	dw Function882a
	dw Function889e
	dw Function8928
	dw Function8890
	dw Function884b
	dw Function891a
	dw Function8823
	dw Function87e9
	dw Function8921
	dw Function89a6
	dw Function89ad
	dw Function89d9
	dw Function89e0
	dw Function8860
	dw Function8969
; 86ad

Function86ad: ; 86ad
	ld hl, PalPacket_9c66
	ld de, BlkPacket_9aa6
	ret
; 86b4

Function86b4: ; 86b4
	ld hl, BlkPacket_9aa6
	call Function9809
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld a, [PlayerHPPal]
	ld l, a
	ld h, 0
rept 2
	add hl, hl
endr
	ld de, Palettes_a8be
	add hl, de
	ld a, [hli]
	ld [wcda9 + 3], a
	ld a, [hli]
	ld [wcda9 + 4], a
	ld a, [hli]
	ld [wcda9 + 5], a
	ld a, [hl]
	ld [wcda9 + 6], a
	ld a, [EnemyHPPal]
	ld l, a
	ld h, $0
rept 2
	add hl, hl
endr
	ld de, Palettes_a8be
	add hl, de
	ld a, [hli]
	ld [wcda9 + 9], a
	ld a, [hli]
	ld [wcda9 + 10], a
	ld a, [hli]
	ld [wcda9 + 11], a
	ld a, [hl]
	ld [wcda9 + 12], a
	ld hl, PalPacket_9cf6
	ld de, wcda9 + $10
	ld bc, $0010
	call CopyBytes
	call Function9729
	ld a, [hli]
	ld [wcda9 + $13], a
	ld a, [hli]
	ld [wcda9 + $14], a
	ld a, [hli]
	ld [wcda9 + $15], a
	ld a, [hl]
	ld [wcda9 + $16], a
	call Function973a
	ld a, [hli]
	ld [wcda9 + $19], a
	ld a, [hli]
	ld [wcda9 + $1a], a
	ld a, [hli]
	ld [wcda9 + $1b], a
	ld a, [hl]
	ld [wcda9 + $1c], a
	ld hl, wcda9
	ld de, wcda9 + $10
	ld a, $1
	ld [SGBPredef], a
	ret
; 873c

Function873c: ; 873c
	ld hl, PalPacket_9bd6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld hl, wcda9 + 1
	ld [hl], $10
rept 2
	inc hl
endr
	ld a, [PlayerHPPal]
	add $2f
	ld [hl], a
	ld hl, wcda9
	ld de, BlkPacket_9ad6
	ret
; 875c

Function875c: ; 875c
	ld hl, PalPacket_9c76
	ld de, BlkPacket_9a86
	ret
; 8763

Function8763: ; 8763
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld a, [wcda1]
	ld l, a
	ld h, $0
rept 2
	add hl, hl
endr
	ld de, Palettes_a8be
	add hl, de
	ld a, [hli]
	ld [wcda9 + 3], a
	ld a, [hli]
	ld [wcda9 + 4], a
	ld a, [hli]
	ld [wcda9 + 5], a
	ld a, [hl]
	ld [wcda9 + 6], a
	ld a, [CurPartySpecies]
	ld bc, wd10e + 21
	call Function974b
	ld a, [hli]
	ld [wcda9 + 9], a
	ld a, [hli]
	ld [wcda9 + 10], a
	ld a, [hli]
	ld [wcda9 + 11], a
	ld a, [hl]
	ld [wcda9 + 12], a
	ld hl, wcda9
	ld de, BlkPacket_9ac6
	ret
; 87ab

Function87ab: ; 87ab
	ld hl, PalPacket_9c56
	ld de, wcda9 + 1
	ret
; 87b2

Function87b2: ; 87b2
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld hl, wcda9 + 3
	ld [hl], $9f
	inc hl
	ld [hl], $2a
	inc hl
	ld [hl], $5a
	inc hl
	ld [hl], $19
	ld a, [CurPartySpecies]
	call Function9775
	ld a, [hli]
	ld [wcda9 + 9], a
	ld a, [hli]
	ld [wcda9 + 10], a
	ld a, [hli]
	ld [wcda9 + 11], a
	ld a, [hl]
	ld [wcda9 + 12], a
	ld hl, wcda9
	ld de, BlkPacket_9ae6
	ret
; 87e9

Function87e9: ; 87e9
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld hl, wcda9 + 3
	ld [hl], $9f
	inc hl
	ld [hl], $2a
	inc hl
	ld [hl], $5a
	inc hl
	ld [hl], $19
	ld a, [CurPartySpecies]
	ld bc, wd10e + 21
	call Function974b
	ld a, [hli]
	ld [wcda9 + 9], a
	ld a, [hli]
	ld [wcda9 + 10], a
	ld a, [hli]
	ld [wcda9 + 11], a
	ld a, [hl]
	ld [wcda9 + 12], a
	ld hl, wcda9
	ld de, BlkPacket_9ae6
	ret
; 8823

Function8823: ; 8823
	call Function87b2
	ld de, BlkPacket_9af6
	ret
; 882a

Function882a: ; 882a
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld hl, wcda9 + 3
	ld [hl], $9f
	inc hl
	ld [hl], $2a
	inc hl
	ld [hl], $5a
	inc hl
	ld [hl], $19
	ld hl, wcda9
	ld de, BlkPacket_9a86
	ret
; 884b

Function884b: ; 884b
	ld hl, PalPacket_9c36
	ld de, BlkPacket_9a86
	ret
; 8852

Function8852: ; 8852
	ld hl, PalPacket_9c96
	ld de, BlkPacket_9b06
	ret
; 8859

Function8859: ; 8859
	ld hl, PalPacket_9ca6
	ld de, BlkPacket_9b76
	ret
; 8860

Function8860: ; 8860
	ld hl, PalPacket_9cb6
	ld de, BlkPacket_9a86
	ret
; 8867

Function8867: ; 8867
	ld b, 0
	ld hl, Unknown_8878
rept 4
	add hl, bc
endr
	ld e, [hl]
	inc hl
	ld d, [hl]
	inc hl
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ret
; 8878

Unknown_8878: ; 8878
	dw BlkPacket_9a86, PalPacket_9be6
	dw BlkPacket_9a96, PalPacket_9c06
	dw BlkPacket_9a86, PalPacket_9c16
; 8884

Function8884: ; 8884
	ld hl, PalPacket_9b96
	ld de, BlkPacket_9b56
	ld a, $8
	ld [SGBPredef], a
	ret
; 8890

Function8890: ; 8890
	ld hl, PalPacket_9ba6
	ld de, BlkPacket_9b86
	ret
; 8897

Function8897: ; 8897
	ld hl, PalPacket_9c46
	ld de, BlkPacket_9a86
	ret
; 889e

Function889e: ; 889e
	ld hl, BlkPacket_9a86
	ld de, PlayerLightScreenCount
	ld bc, $0010
	call CopyBytes
	ld hl, PalPacket_9bb6
	ld de, BlkPacket_9a86
	ret
; 88b1

Function88b1: ; 88b1
	ld hl, PalPacket_9bd6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	call Function8a0c
	ld hl, wcda9 + 1
	ld [hld], a
	ld de, BlkPacket_9a86
	ld a, $9
	ld [SGBPredef], a
	ret
; 88cd

Function88cd: ; 88cd
	push bc
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	pop bc
	ld a, c
	and a
	jr z, .asm_88ef
	ld hl, wcda9 + 3
	ld [hl], $e7
	inc hl
	ld [hl], $1c
	inc hl
	ld [hl], $62
	inc hl
	ld [hl], $c
	jr .asm_8913

.asm_88ef
	ld hl, PartyMon1DVs
	ld bc, $0030
	ld a, [CurPartyMon]
	call AddNTimes
	ld c, l
	ld b, h
	ld a, [PlayerHPPal]
	call Function974b
	ld a, [hli]
	ld [wcda9 + 3], a
	ld a, [hli]
	ld [wcda9 + 4], a
	ld a, [hli]
	ld [wcda9 + 5], a
	ld a, [hl]
	ld [wcda9 + 6], a

.asm_8913
	ld hl, wcda9
	ld de, BlkPacket_9a86
	ret
; 891a

Function891a: ; 891a
	ld hl, PalPacket_9cb6
	ld de, BlkPacket_9a86
	ret
; 8921

Function8921: ; 8921
	ld hl, PalPacket_9bc6
	ld de, BlkPacket_9a86
	ret
; 8928

Function8928: ; 8928
	ld hl, PalPacket_9bd6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld hl, BlkPacket_9a86
	ld de, wcda9 + $10
	ld bc, $0010
	call CopyBytes
	call Function8a0c
	ld hl, wcda9 + 1
	ld [hl], a
	ld hl, wcda9 + 3
	ld [hl], $2e
	ld hl, wcda9 + $13
	ld a, $5
	ld [hli], a
	ld a, [wcf83]
	ld [hli], a
	ld a, [wcf82]
	ld [hli], a
	ld a, [wcf85]
	ld [hli], a
	ld a, [wcf84]
	ld [hl], a
	ld hl, wcda9
	ld de, wcda9 + $10
	ret
; 8969

Function8969: ; 8969
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld a, [CurPartySpecies]
	ld l, a
	ld h, 0
rept 3
	add hl, hl
endr
	ld de, PokemonPalettes
	add hl, de
	ld a, [wcf65]
	and 3
	sla a
	sla a
	ld c, a
	ld b, 0
	add hl, bc
	ld a, [hli]
	ld [wcda9 + 3], a
	ld a, [hli]
	ld [wcda9 + 4], a
	ld a, [hli]
	ld [wcda9 + 5], a
	ld a, [hl]
	ld [wcda9 + 6], a
	ld hl, wcda9
	ld de, BlkPacket_9a86
	ret
; 89a6

Function89a6: ; 89a6
	ld hl, PalPacket_9cd6
	ld de, BlkPacket_9a86
	ret
; 89ad

Function89ad: ; 89ad
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld a, [CurPartySpecies]
	ld bc, wd10e + 21
	call Function974b
	ld a, [hli]
	ld [wcda9 + 3], a
	ld a, [hli]
	ld [wcda9 + 4], a
	ld a, [hli]
	ld [wcda9 + 5], a
	ld a, [hl]
	ld [wcda9 + 6], a
	ld hl, wcda9
	ld de, BlkPacket_9a86
	ret
; 89d9

Function89d9: ; 89d9
	ld hl, PalPacket_9cc6
	ld de, BlkPacket_9a86
	ret
; 89e0

Function89e0: ; 89e0
	ld hl, PalPacket_9ce6
	ld de, wcda9
	ld bc, $0010
	call CopyBytes
	ld a, [CurPartySpecies]
	ld bc, wd10e + 21
	call Function9764
	ld a, [hli]
	ld [wcda9 + 3], a
	ld a, [hli]
	ld [wcda9 + 4], a
	ld a, [hli]
	ld [wcda9 + 5], a
	ld a, [hl]
	ld [wcda9 + 6], a
	ld hl, wcda9
	ld de, BlkPacket_9a86
	ret
; 8a0c

Function8a0c: ; 8a0c
	ld a, [TimeOfDayPal]
	cp $2
	jr c, .asm_8a16
	ld a, $19
	ret

.asm_8a16
	ld a, [wPermission]
	cp $2
	jr z, .asm_8a39
	cp $4
	jr z, .asm_8a3c
	cp $7
	jr z, .asm_8a3c
	cp $5
	jr z, .asm_8a3f
	cp $6
	jr z, .asm_8a42
	ld a, [MapGroup]
	ld e, a
	ld d, 0
	ld hl, Unknown_8a45
	add hl, de
	ld a, [hl]
	ret

.asm_8a39
	ld a, $0
	ret

.asm_8a3c
	ld a, $18
	ret

.asm_8a3f
	ld a, $6
	ret

.asm_8a42
	ld a, $3
	ret
; 8a45

Unknown_8a45: ; 8a45
	db $00
	db $12
	db $14
	db $18
	db $11
	db $15
	db $09
	db $04
	db $0f
	db $16
	db $0e
	db $10
	db $06
	db $01
	db $03
	db $06
	db $0b
	db $08
	db $05
	db $17
	db $08
	db $07
	db $13
	db $02
	db $0c
	db $0a
	db $0d
; 8a60

Function8a60: ; 8a60
	push de
	call Function9809
	pop hl
	jp Function9809
; 8a68