lorom


;Plasma Cutter made by Black Falcon
;idea: InsomniaDMX
;Special thanks to Squishy Ichigo

!maxreserve = $09D4
!resmirror = $1774
!position = #$00AE
!draw = $9D98


!equbeam = $09A6
!colbeam = $09A8
!index = $0c18,x
!icon = $09D2

!free1 = $1F53	; originally thought to be a timer for demo scenes (which I'm not going to use :P)

!reserve = $09D6

!timer = $072D
!sound = $809021
!frames = $09DA

!pixelx = $0B64,x
!pixely = $0B78,x
!subx = $0B8C,x
!suby = $0BA0,x

;:::::::::::: BLOCK CHANGES :::::::::::::

;This section replaces the not respawning super missile block with
;a apecial block for plasma cutter

org $84CF75
LDA !free1	;CMP #$0200
DB $D0		;F0

;::::::: Changes Cooldown Counters :::::::::

org $90C26C
	DB $1E	;press fire

org $90C29B
	DB $0C	;hold fire

;::::::::::::Disables X-RAY::::::::::::::

org $90DDC8
	JSR $B80D
	RTS

org $90DDD3
NOP
NOP
NOP
NOP


;:::::::::::::: RUN ONCE ::::::::::::::::



org $90B8D0

JSR PLASMACUTTER
NOP
NOP
NOP

NOP
NOP
NOP

NOP
NOP
NOP

NOP
NOP
NOP

NOP
NOP
NOP

NOP
NOP
NOP

org $90F81D

PLASMACUTTER:
LDA !reserve
BEQ NARMAL
LDA !icon
CMP #$0005
BEQ SET
NARMAL:
	LDA !equbeam
	ORA #$8000
	STA !index
	AND #$000F
	ASL a
	TAY
	LDA $C28F,y
	JSR $809021
	RTS
SET:
LDA #$0004			;<<<<<<<<FRAMES!
STA !free1

LDA #$8018
STA !index

LDA #$0061	;LDA #$0061
JSR $8090A3

LDA #$0026 	;#$002A 
JSR $809021
RTS

;$90C3C9 BEAM palette
;$90AC8D BEAM palette update routine

COLOR:		; 08767E in ROM __________________________________________________
Dw $3800	;hardcoded palettes FTW!!
Dw $7FFF
Dw $001F
Dw $3416
Dw $300E
Dw $7FFF
Dw $02BF
Dw $0157
Dw $0015
Dw $0000
Dw $0000
Dw $0000
Dw $0000
Dw $0000
Dw $0000
Dw $00AD

DAHINTER:

PHX
PHA
PHP
LDA !icon
CMP #$0005
BEQ CUTTER
BRA NERMAL

CLEAR:
STZ !icon
NERMAL:
JSL $90AC8D ;updates beam palette back to normal
NORMAL:
PLP
PLA
PLX
JSL $90B197
RTS
CUTTER:
LDA !reserve
CMP #$0000
BEQ EMPTY
STA $12
INC $1772
LDA $1772
AND #$0004
CMP #$0004
BNE blubb
LDA $12
SBC #$0001
STA !reserve
STZ $1772
blubb:
LDA #$0006
STA $0CCC
PHB
LDA #$0020
LDX #COLOR
LDY #$C1C0
MVN $907E
PLB
BRA NORMAL

EMPTY:
STZ !free1
BRA CLEAR


org $90B968

JSR DAHINTER
NOP

;:::::::::::::: RUN EVERY FRAME ::::::::::::::::

org $93826B
	DB $80	;D0	beam flicker effect

org $82DBB2

	JSR $F720
NOP
NOP
NOP
NOP
NOP
NOP
NOP

org $82F720

PHP
PHX
PHA
LDA !reserve
BEQ YEP
LDA $09A6
BIT #$0008
BNE STEPOVER
LDA !icon
CMP #$0005
BNE STEPOVER
YEP:
LDA !icon
CMP #$0005
BMI STEPOVER
STZ !icon
STEPOVER:
LDA !free1
SEC
SBC #$0001
BMI ZERO
BEQ COOL
STA !free1

BRA SKIP
COOL:
LDX #$0000
BACK:
STZ !pixelx
STZ !pixely
STZ !subx
STZ !suby 
INX
INX
CPX #$000A
BNE BACK
ZERO:
STZ !free1
SKIP:
LDA #$0002
STA $09C0
PLA
PLX
PLP
LDA !frames
CLC
ADC #$0001
STA !frames
RTS

org $809C55

	JSR $CE00

org $80CE00

LDA !maxreserve
BEQ QUIT
LDA !reserve
CMP !resmirror
BEQ QUIT
STA !resmirror
LDX !position
JSR !draw
QUIT:
LDA $09D2
RTS

org $848957

JSR $EFD7
JSR $82E118



org $84EFD7
LDA #$000A
STA !maxreserve
STA !reserve
LDA #$0180
RTS


;-------------------------------------- END