!norvegState = !actorVar1,x
!norvegXPos = !actorVar2,x
!norvegYPos = !actorVar3,x
!norvegTimer = !actorVar4,x

SetSpeakerToNorveg:
	LDX !norvegIndex
	STX !currentSpeaker
	RTL

NorvegSetToNormal:
	LDX !norvegIndex
	LDA #$00
	STA !norvegState
	RTL


	
NorvegCreate:
	REP #$20
	LDA.w #NorvegINIT
	STA $00
	LDX.b #NorvegINIT>>16
	STX $02
	
	LDA.w #NorvegMAIN
	STA $03
	LDX.b #NorvegMAIN>>16
	STX $05
	
	LDA.w #NorvegNMI
	STA $06
	LDX.b #NorvegNMI>>16
	STX $08
	SEP #$20
	JSL NewActor
	STX !norvegIndex
	RTL

NorvegINIT:
	LDA #$0F
	STA !norvegYPos
	LDA #$6F
	STA !norvegXPos
	RTL

NorvegMAIN:
	
	PHK
	PLB

	LDA #$3C : STA $03
	
	LDA !norvegXPos : STA $00
	LDA !norvegYPos : STA $01
	LDA #$00 : STA $02
	LDA #$02 : JSL DrawTile
	
	LDA !norvegXPos : CLC : ADC #$08 : STA $00
	LDA !norvegYPos : STA $01
	LDA #$01 : STA $02
	LDA #$02 : JSL DrawTile
	
	LDA !norvegXPos : STA $00
	LDA !norvegYPos : CLC : ADC #$10 : STA $01
	LDA #$20 : STA $02
	LDA #$02 : JSL DrawTile
	
	LDA !norvegXPos : CLC : ADC #$08 : STA $00
	LDA !norvegYPos : CLC : ADC #$10 : STA $01
	LDA #$21 : STA $02
	LDA #$02 : JSL DrawTile
	
	LDA !norvegXPos : STA $00
	LDA !norvegYPos : CLC : ADC #$20 : STA $01
	LDA #$40 : STA $02
	LDA #$02 : JSL DrawTile
	
	LDA !norvegXPos : CLC : ADC #$08 : STA $00
	LDA !norvegYPos : CLC : ADC #$20 : STA $01
	LDA #$41 : STA $02
	LDA #$02 : JSL DrawTile
	
	RTL

NorvegNMI:
	RTL
	


