thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-09-17 02:40:50 +12:00
Code Issues Actions Packages Projects Releases Wiki Activity

Start of the text engine.

Browse source 
hg-commit-id: 31967a870912
This commit is contained in:
IIMarckus 2011-05-30 22:32:10 -06:00
parent 68f0afdfa2
commit d3270b231b
1 changed files with 85 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

89
pokered.asm
View file

@ -464,7 +464,7 @@ TextBoxBorder: ; 1922
call NPlaceChar
ld [hl],$7E ; lower-right border ┘
ret
;
NPlaceChar:
; place a row of width c of identical characters
ld d,c
@ -474,7 +474,88 @@ NPlaceChar:
jr nz,.loop\@
ret
INCBIN "baserom.gbc",$1955,$20AF - $1955
PlaceString: ; 1955
push hl
.Start\@
ld a,[de]
; $50 ends a string
cp $50
jr nz,.PlaceText\@
ld b,h
ld c,l
pop hl
ret
.PlaceText\@
cp $4E
jr nz,.next\@
ld bc,$0028
ld a,[$FFF6]
bit 2,a
jr z,.next2\@
ld bc,$14
.next2\@
pop hl
add hl,bc
push hl
jp $19E8
.next\@
cp $4F
jr nz,.next3\@
pop hl
ld hl,$C4E1
push hl
jp $19E8
.next3\@
and a
jp z,$19EC
cp $4C
jp z,$1B0A
cp $4B
jp z,$1AF8
cp $51
jp z,$1AB4
cp $49
jp z,$1AD5
cp $52
jp z,$19F9
cp $53
jp z,$19FF
cp $54
jp z,$1A1D
cp $5B
jp z,$1A11
cp $5E
jp z,$1A17
cp $5C
jp z,$1A0B
cp $5D
jp z,$1A05
cp $55
jp z,$1A7C
cp $56
jp z,$1A23
cp $57
jp z,$1AAD
cp $58
jp z,$1A95
cp $4A
jp z,$1A29
cp $5F
jp z,$1A91
cp $59
jp z,$1A2F
cp $5A
jp z,$1A35
ld [hli],a
call $38D3
inc de
jp .Start\@
INCBIN "baserom.gbc",$19EC,$20AF - $19EC
DelayFrame: ; 20AF
; delay for one frame
@ -880,7 +961,7 @@ MainMenu:
FuncCoord 2,2
ld hl,Coord
ld de,$5D7E
call $1955 ; print text
call PlaceString
jr .next2\@
.next1\@
FuncCoord 0,0
@ -891,7 +972,7 @@ MainMenu:
FuncCoord 2,2
ld hl,Coord
ld de,$5D87
call $1955 ; print text
call PlaceString
.next2\@
ld hl,$D730
res 6,[hl]