Bit 6 of PrintNum left-aligns numbers

This commit is contained in:
Rangi
2019-11-03 20:17:04 -05:00
parent 0c7b309f7f
commit 4d32035d4f
12 changed files with 40 additions and 40 deletions

View File

@@ -89,12 +89,12 @@ PrintMagikarpLength:
call Magikarp_LoadFeetInchesChars
ld hl, wStringBuffer1
ld de, wMagikarpLength
lb bc, PRINTNUM_RIGHTALIGN | 1, 2
lb bc, PRINTNUM_LEFTALIGN | 1, 2
call PrintNum
ld [hl], ""
inc hl
ld de, wMagikarpLength + 1
lb bc, PRINTNUM_RIGHTALIGN | 1, 2
lb bc, PRINTNUM_LEFTALIGN | 1, 2
call PrintNum
ld [hl], "″"
inc hl

View File

@@ -164,7 +164,7 @@ GetCaughtLevel:
ld [wSeerCaughtLevel], a
ld hl, wSeerCaughtLevelString
ld de, wSeerCaughtLevel
lb bc, PRINTNUM_RIGHTALIGN | 1, 3
lb bc, PRINTNUM_LEFTALIGN | 1, 3
call PrintNum
ret

View File

@@ -70,7 +70,7 @@ Rate:
ld bc, ITEM_NAME_LENGTH
call ByteFill
pop hl
lb bc, PRINTNUM_RIGHTALIGN | 1, 3
lb bc, PRINTNUM_LEFTALIGN | 1, 3
call PrintNum
ret

View File

@@ -371,7 +371,7 @@ TMHM_DisplayPocketItems:
ld [hl], "H"
inc hl
ld de, wTempTMHM
lb bc, PRINTNUM_RIGHTALIGN | 1, 2
lb bc, PRINTNUM_LEFTALIGN | 1, 2
call PrintNum
pop af
ld [wTempTMHM], a

View File

@@ -161,7 +161,7 @@ StartMenu_PrintBugContestStatus:
call PlaceString
hlcoord 8, 5
ld de, wParkBallsRemaining
lb bc, PRINTNUM_RIGHTALIGN | 1, 2
lb bc, PRINTNUM_LEFTALIGN | 1, 2
call PrintNum
hlcoord 1, 1
ld de, .CAUGHT
@@ -187,7 +187,7 @@ StartMenu_PrintBugContestStatus:
ld l, c
inc hl
ld c, 3
call Print8BitNumRightAlign
call Print8BitNumLeftAlign
.skip_level
pop af

View File

@@ -1952,7 +1952,7 @@ Script_getmoney:
call ResetStringBuffer1
call GetMoneyAccount
ld hl, wStringBuffer1
lb bc, PRINTNUM_RIGHTALIGN | 3, 6
lb bc, PRINTNUM_LEFTALIGN | 3, 6
call PrintNum
ld de, wStringBuffer1
jp GetStringBuffer
@@ -1964,7 +1964,7 @@ Script_getcoins:
call ResetStringBuffer1
ld hl, wStringBuffer1
ld de, wCoins
lb bc, PRINTNUM_RIGHTALIGN | 2, 6
lb bc, PRINTNUM_LEFTALIGN | 2, 6
call PrintNum
ld de, wStringBuffer1
jp GetStringBuffer
@@ -1976,7 +1976,7 @@ Script_getnum:
call ResetStringBuffer1
ld de, wScriptVar
ld hl, wStringBuffer1
lb bc, PRINTNUM_RIGHTALIGN | 1, 3
lb bc, PRINTNUM_LEFTALIGN | 1, 3
call PrintNum
ld de, wStringBuffer1
jp GetStringBuffer

View File

@@ -246,10 +246,10 @@ PlacePartyMonLevel:
jr nc, .ThreeDigits
ld a, "<LV>"
ld [hli], a
lb bc, PRINTNUM_RIGHTALIGN | 1, 2
lb bc, PRINTNUM_LEFTALIGN | 1, 2
; jr .okay
.ThreeDigits:
lb bc, PRINTNUM_RIGHTALIGN | 1, 3
lb bc, PRINTNUM_LEFTALIGN | 1, 3
; .okay
call PrintNum

View File

@@ -273,19 +273,19 @@ SetMinutes:
DisplayMinutesWithMinString:
ld de, wInitMinuteBuffer
call PrintTwoDigitNumberRightAlign
call PrintTwoDigitNumberLeftAlign
inc hl
ld de, String_min
call PlaceString
ret
PrintTwoDigitNumberRightAlign:
PrintTwoDigitNumberLeftAlign:
push hl
ld a, " "
ld [hli], a
ld [hl], a
pop hl
lb bc, PRINTNUM_RIGHTALIGN | 1, 2
lb bc, PRINTNUM_LEFTALIGN | 1, 2
call PrintNum
ret
@@ -684,7 +684,7 @@ PrintHour:
call AdjustHourForAMorPM
ld [wDeciramBuffer], a
ld de, wDeciramBuffer
call PrintTwoDigitNumberRightAlign
call PrintTwoDigitNumberLeftAlign
ret
GetTimeOfDayString: