!NorvegSpriteCHR = 	$0A25

CutsceneFPalette:
incbin CutsceneF.rawpal
	
CSINITF:
	STZ $2121
	%StandardDMA(#$2122, CutsceneFPalette, #512, #$00) 
	
	REP #$30	
	LDA #!NorvegSpriteCHR			; |
	LDX #$C000>>1				; | Upload Norveg
	LDY #!CS1DocCrocExGFXSize		; |
	JSL DecompressAndUploadGFXFile		; /
	
	
	SEP #$30
	
	LDA #$05
	STA !backgroundColor
	LDA #$06
	STA !backgroundColor+1
	LDA #$07
	STA !backgroundColor+2
	
	
	
	LDA #$00
	STA !currentFont
	
	JSL MarioCreate
	JSL NorvegCreate
	LDA #$00 : JSL MarioSetXPos
	LDA #$55 : JSL MarioSetYPos
	LDA #$53 : JSL MarioSetTargetX

	
	RTL

	

CSFT1:
db $F4
%VWFASM(MarioSetToVarWalkRight)

%VWFASM(SetSpeakerToNorveg)

db $FF
db $FF
db "So, you made it here after all. I've got to admit, you do have some skill; I can see why Doc was so impressed with you. ", $EF, $EB
db "Pity we got off on the wrong foot; you could have made a fine chief of security for us here at Norveg Industries. In hindsight, I think we can safely say contracting that out to third parties did not prove to be in the company's best interest.Ah, but live and learn, live and learn_", $EF, $EB
%VWFASM(MarioSetToSmallDoubleJumping)
db $F8
db "<Join me, Mario>? Ha-", $EE, "ha, don't worry, I wouldn't try anything that trite. "
db "Maybe in another life, another universe, but here and now, it seems we have a pretty clear conflict of interests, you and I. "
db "Can't run your business according to idle dreams, after all--", $EE, "we're still in the research and development stage of -that- particular project.", $EF, $EB
db "Like I said, it's a simple cost/", $EE, "benefit analysis, and I'm afraid that you, my friend, have proven yourself decidedly bad for businness. ", $EF, $EB
db "But don't get too distraught--", $EE, "you'll still get to make a contribution to our fine enterprise by plaing a crucial role in the testing of our prototype (boss name). "
db "So rest assured that you'll have a radiant spot in our company's history nonetheless.", $EF, $EB
db "(Boss-specific lines go here eventually...)", $EF, $EB
db $FF, $E0

