nesdev.com

SetBGColor:    lda BackgroundColors,y   ;to background color instead
               sta VRAM_Buffer1+3,x
               lda #$3f                 ;set for sprite palette address
               sta VRAM_Buffer1,x       ;save to buffer
               lda #$10
               sta VRAM_Buffer1+1,x
               lda #$04                 ;write length byte to buffer
               sta VRAM_Buffer1+2,x
               lda #$00                 ;now the null terminator
               sta VRAM_Buffer1+7,x
               txa                      ;move the buffer pointer ahead 7 bytes
               clc                      ;in case we want to write anything else later
               adc #$07
SetVRAMOffset:
               sta VRAM_Buffer1_Offset  ;store as new vram buffer offset
              lda $0750      ;;;;;SHANEM CODE
              cmp #$c1        ;;;;;SHANEM CODE
              beq newlabel    ;;;;;SHANEM CODE
              cmp #$21      ;;;;;;;SHANEM CODE
              beq label3         ;;;;;;;SHANEM CODE
              lda #$22             ;;;;;SHANEM CODE
              bne label           ;;;;;SHANEM CODE
newlabel: lda #$06          ;;;;;SHANEM CODE
label:       sta $6be2        ;;;;;SHANEM CODE you'll need to change this address
              lda #$00           ;;;;;;;SHANEM CODE
              beq label4         ;;;;;;;;;;;;;SHANEM CODE
label3:
              lda #$04          ;;;;;;;;;;;;;;;;SHANEM CODE
label4:
             sta $84e2         ;;;;;;;;;;;;;;;SHANEM CODE you'll need to change this address
            rts

WriteGameText:
               pha                      ;save text number to stack
               asl
               tay                      ;multiply by 2 and use as offset
               cpy #$04                 ;if set to do top status bar or world/lives display,
               bcc LdGameText           ;branch to use current offset as-is
               cpy #$08                 ;if set to do time-up or game over,
               bcc Chk2Players          ;branch to check players
               ldy #$08                 ;otherwise warp zone, therefore set offset
Chk2Players:   lda NumberOfPlayers      ;check for number of players
               bne LdGameText           ;if there are two, use current offset to also print name
               iny                      ;otherwise increment offset by one to not print name
LdGameText:    ldx GameTextOffsets,y    ;get offset to message we want to print
               ldy #$00
GameTextLoop:  lda GameText,x           ;load message data
               cmp #$ff                 ;check for terminator
               beq EndGameText          ;branch to end text if found
               sta VRAM_Buffer1,y       ;otherwise write data to buffer
               inx                      ;and increment increment
               iny
               bne GameTextLoop         ;do this for 256 bytes if no terminator found
EndGameText:   lda #$00                 ;put null terminator at end
               sta VRAM_Buffer1,y
               pla                      ;pull original text number from stack
               tax
               cmp #$04                 ;are we printing warp zone?
               bcs PrintWarpZoneNumbers
               dex                      ;are we printing the world/lives display?
               bne CheckPlayerName      ;if not, branch to check player's name
               ;H126 Fix (Credit: Southbird) - Jump to Lives Fix
               jsr PutLives             ;otherwise, check number of lives
               ldy WorldNumber          ;write world and level numbers (incremented for display)
               iny                      ;to the buffer in the spaces surrounding the dash
               sty VRAM_Buffer1+19
               ldy LevelNumber
               iny
               sty VRAM_Buffer1+21      ;we're done here
               rts

;H126 Fix (Extra Credit: Southbird) - Lives Fix
;Original thanks to Southbird, Based off the SMB3 disassembly!

PutLives:
   ldy #$00     ; init Y to 0
   lda NumberofLives ; lives counter
   cmp #$ff       
   bne ChkLivesCap   ; branch to check lives cap

   ; if lives counter is not -1 (255), then:
   lda #$24     ; blank tile
   jmp StoreLo     ; branch

ChkLivesCap:
   cmp #100
   bmi Under100     ; If Player's lives are under 100, jump

   lda #99
   sta NumberofLives ; else, cap at 99 lives

Under100:
   ; now loop while A is more than 10!
   cmp #10
   bmi StoreLo
   sec
   sbc #10       ; A -= 10
   iny       ; Y++
   jmp Under100    ; loop!

StoreLo:
   sta VRAM_Buffer1+8   ; store into low byte
   tya          ; most significant digit is now transferred to A
   bne StoreHi      ; if it's anything but zero, jump
   lda #$24       ; else use blank tile
StoreHi:
   sta VRAM_Buffer1+7   ; store into high byte
   rts              ; return

SetBGColor:    lda BackgroundColors,y   ;to background color instead
               sta VRAM_Buffer1+3,x
               lda #$3f                 ;set for sprite palette address
               sta VRAM_Buffer1,x       ;save to buffer
               lda #$10
               sta VRAM_Buffer1+1,x
               lda #$04                 ;write length byte to buffer
               sta VRAM_Buffer1+2,x
               lda #$00                 ;now the null terminator
               sta VRAM_Buffer1+7,x
               txa                      ;move the buffer pointer ahead 7 bytes
               clc                      ;in case we want to write anything else later
               adc #$07
SetVRAMOffset:
               sta VRAM_Buffer1_Offset  ;store as new vram buffer offset
               lda SecondaryHardMode   ;;;;;;;;;;SHANEM CODE
               bne label5                      ;;;;;;;;;;SHANEM CODE
               lda areapointer                   ;;;;;;;;;;SHANEM CODE
               cmp #$b9                   ;;;;;;;;;;;;SHANEM CODE
               beq label3            ;;;;;;;;;;;;SHANEM CODE
               bmi newlabel             ;;;;;;;;;;SHANEM CODE
               lda #$06               ;;;;;;;;;;SHANEM CODE
               bne label         ;;;;;;;;;;SHANEM CODE
newlabel: lda #$22             ;;;;;;;;;;SHANEM CODE
label:
               sta $6be2          ;;;;;;;;;;SHANEM CODE
               lda #$00           ;;;;;;;;;;;;SHANEM CODE
               beq label4         ;;;;;;;;;;;;SHANEM CODE
label3:
               lda #$04               ;;;;;;;;;;;;SHANEM CODE
label4:
               sta $d032             ;;;;;;;;;;;;;SHANEM CODE
label5: rts

;codes in the ares of what I was working with
SetupIntermediate:
      lda BackgroundColorCtrl  ;save current background color control
      pha                      ;and player status to stack
      lda PlayerStatus
      pha
      lda #$00                 ;set background color to black
      sta PlayerStatus         ;and player status to not fiery
      lda #$02                 ;this is the ONLY time background color control
      sta BackgroundColorCtrl  ;is set to less than 4
      jsr GetPlayerColors
      pla                      ;set up colors for intermediate lives display
      sta PlayerStatus
      pla                      ;return bg color control and player status
      sta BackgroundColorCtrl
      jmp IncSubtask    ;x bne       ;then move onto the next task

GetAreaPalette:
               ldy AreaType             ;select appropriate palette to load
               ldx AreaPalette,y        ;based on area type
SetVRAMAddr_A: stx VRAM_Buffer_AddrCtrl ;store offset into buffer control
NextSubtask:   jmp IncSubtask          ;move onto next task