Skip to content

Commit

Permalink
Add space between arguments in assembly instructions and remove redun…
Browse files Browse the repository at this point in the history
…dant a in instructions like add a, x
  • Loading branch information
xCrystal committed Dec 30, 2017
1 parent 94b9a86 commit 237aeb8
Show file tree
Hide file tree
Showing 50 changed files with 7,230 additions and 7,230 deletions.
52 changes: 26 additions & 26 deletions engine/HoF_room_pc.asm
Original file line number Diff line number Diff line change
Expand Up @@ -47,61 +47,61 @@ FadeInCreditsText:

DisplayCreditsMon:
xor a
ld [H_AUTOBGTRANSFERENABLED],a
ld [H_AUTOBGTRANSFERENABLED], a
call SaveScreenTilesToBuffer1
call FillMiddleOfScreenWithWhite

; display the next monster from CreditsMons
ld hl,wNumCreditsMonsDisplayed
ld c,[hl] ; how many monsters have we displayed so far?
ld hl, wNumCreditsMonsDisplayed
ld c, [hl] ; how many monsters have we displayed so far?
inc [hl]
ld b,0
ld hl,CreditsMons
add hl,bc ; go that far in the list of monsters and get the next one
ld a,[hl]
ld [wcf91],a
ld [wd0b5],a
ld b, 0
ld hl, CreditsMons
add hl, bc ; go that far in the list of monsters and get the next one
ld a, [hl]
ld [wcf91], a
ld [wd0b5], a
coord hl, 8, 6
call GetMonHeader
call LoadFrontSpriteByMonIndex
ld hl,vBGMap0 + $c
ld hl, vBGMap0 + $c
call CreditsCopyTileMapToVRAM
xor a
ld [H_AUTOBGTRANSFERENABLED],a
ld [H_AUTOBGTRANSFERENABLED], a
call LoadScreenTilesFromBuffer1
ld hl,vBGMap0
ld hl, vBGMap0
call CreditsCopyTileMapToVRAM
ld a,$A7
ld [rWX],a
ld hl,vBGMap1
ld a, $A7
ld [rWX], a
ld hl, vBGMap1
call CreditsCopyTileMapToVRAM
call FillMiddleOfScreenWithWhite
ld a,%11111100 ; make the mon a black silhouette
ld [rBGP],a
ld a, %11111100 ; make the mon a black silhouette
ld [rBGP], a

; scroll the mon left by one tile 7 times
ld bc,7
ld bc, 7
.scrollLoop1
call ScrollCreditsMonLeft
dec c
jr nz,.scrollLoop1
jr nz, .scrollLoop1

; scroll the mon left by one tile 20 times
; This time, we have to move the window left too in order to hide the text that
; is wrapping around to the right side of the screen.
ld c,20
ld c, 20
.scrollLoop2
call ScrollCreditsMonLeft
ld a,[rWX]
ld a, [rWX]
sub 8
ld [rWX],a
ld [rWX], a
dec c
jr nz,.scrollLoop2
jr nz, .scrollLoop2

xor a
ld [hWY],a
ld a,%11000000
ld [rBGP],a
ld [hWY], a
ld a, %11000000
ld [rBGP], a
ret

INCLUDE "data/credit_mons.asm"
Expand Down
Loading

0 comments on commit 237aeb8

Please sign in to comment.