pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-09-08 08:13:02 -07:00
Code Issues Packages Projects Releases Wiki Activity

More splitting of main.asm; remove unneeded rept 2

Browse Source
This commit is contained in:
pikalaxalt
2016-05-04 11:46:23 -04:00
parent 82f1534925
commit 3713b71d9e
107 changed files with 1222 additions and 1610 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
home/text.asm
View File

@@ -129,12 +129,10 @@ TextBoxPalette:: ; 1024
; Fill text box width c height b at hl with pal 7
ld de, AttrMap - TileMap
add hl, de
rept 2
inc b
endr
rept 2
inc b
inc c
inc c
endr
ld a, TEXTBOX_PAL
.col
push bc
@@ -640,12 +638,10 @@ TextScroll:: ; 138c
dec c
jr nz, .row
rept 2
inc de
endr
rept 2
inc de
inc hl
inc hl
endr
pop af
dec a
jr nz, .col
@@ -738,9 +734,8 @@ DoTextUntilTerminator:: ; 13f6
ld c, a
ld b, 0
ld hl, TextCommands
rept 2
add hl, bc
endr
add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
@@ -1014,9 +1009,8 @@ Text_PlaySound:: ; 1500
jr z, .done
cp b
jr z, .play
rept 2
inc hl
endr
inc hl
jr .loop
.play
@@ -1113,9 +1107,8 @@ Text_TX_STRINGBUFFER:: ; 156a
ld e, a
ld d, 0
ld hl, StringBufferPointers
rept 2
add hl, de
endr
add hl, de
ld a, BANK(StringBufferPointers)
call GetFarHalfword
ld d, h
@@ -1136,9 +1129,8 @@ Text_TX_DAY:: ; 1582
ld c, a
ld b, 0
ld hl, .Days
rept 2
add hl, bc
endr
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a