pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2024-11-16 11:27:33 -08:00
Code Issues Packages Projects Releases Wiki Activity

copy in ClearScreenArea from pokered

Browse Source
This commit is contained in:
Bryan Bishop 2012-05-30 21:57:26 -05:00
parent 723e49531e
commit b18cf8aef2
1 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
main.asm
View File

@ -47408,7 +47408,44 @@ INCBIN "baserom.gbc",$84000,$4000
SECTION "bank22",DATA,BANK[$22]
INCBIN "baserom.gbc",$88000,$3170
INCBIN "baserom.gbc",$88000,$896ff - $88000
ClearScreenArea: ; 0x896ff
; clears an area of the screen
; INPUT:
; hl = address of upper left corner of the area
; b = height
; c = width
ld a, $7f ; blank tile
ld de, 20 ; screen width
.loop\@
push bc
push hl
.innerLoop\@
ld [hli], a
dec c
jr nz, .innerLoop\@
pop hl
pop bc
add hl, de
dec b
jr nz, .loop\@
dec hl
inc c
inc c
.asm_89713
ld a, $36
ld [hli], a
dec c
ret z
ld a, $18
ld [hli], a
dec c
jr nz, .asm_89713 ; 0x8971c $f5
ret
; 0x8971f
INCBIN "baserom.gbc",$8971f,$8b170 - $8971f
SpecialDratini: ; 0x8b170
; if $c2dd is 0 or 1, change the moveset of the last Dratini in the party.