;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Duplicating tiles by dtothefourth
;
; Causes tiles to randomly copy themselves to adjacent tiles.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


!Rate = #$01 ; How many frames between spreading tiles
!Num  = #$01 ; How many tiles per spread
	;note that above 3 will cause flicker and 3 will cause flicker when also collecting coins and such

!AllowAir = 0 ; If not 0, air tiles will also be allowed to duplicate instead of just solid tiles
	;Probably want to turn the rate up a bit, as it will spend a fair amount of time duping air on top of air

!Retry = #$0020 ; How many times it will re-roll duplication targets if it chooses an invalid one
				; More consistant duping at the cost of potential lag, turn down for no lag

;FreeRAM
!XPos = $7FB600
!YPos = $7FB602
!Tile = $7FB604
!Prop = $7FB605
!Timer2 = $7FB606
nmi:
	LDA $00
	PHA
	LDA $9D
	ORA $13D4
	ORA $13FB
	ORA $1426
	ORA $1493
	ORA $0D9B
	BEQ +
	-
	PLA
	STA $00
	RTL
	+


	LDA $3E
	AND #$07
	CMP #$07
	BEQ -


	LDA !Timer2	; \ because there's no init function with CARL
	CMP #$55	; | snes initializes ram at #$55 i think
	BNE +		; | so this'll initialize it at #$00 instead
	LDA #$00	; |
	STA !Timer2	; |
	+		; /

	LDA !Timer2
	INC
	STA !Timer2
	CMP !Rate
	BEQ +
	PLA
	STA $00
	RTL
	+

	LDX !Num-1
	-
	PHX
	JSR Generate
	PLX
	DEX
	BPL -
			
	PLA
	STA $00
	RTL

Generate:
	LDA #$00
	STA !Timer2

	REP #$20
	LDA $94
	SEC
	SBC $7E
	CMP #$0010
	BPL +
	LDA #$0010
	+
	STA $9A
	STA !XPos
	
	LDA $96
	SEC
	SBC $80
	CMP #$0010
	BPL +
	LDA #$0010
	+
	STA $98
	STA !YPos

	LDA #$0000
	STA $1933
	
	STA !Prop

	-

	LDA !Prop
	INC
	STA !Prop
	CMP !Retry
	BNE +++++
	SEP #$20
	RTS
	+++++

	SEP #$20
	JSL $01ACF9
	REP #$20
	AND #$00F0
	CMP #$00F0
	BEQ -
	CLC
	ADC !XPos
	STA $9A

	--
	SEP #$20
	JSL $01ACF9
	REP #$20
	AND #$00F0
	CMP #$00F0
	BEQ --
	CMP #$00E0
	BEQ --
	CMP #$00D0
	BEQ --

	CLC
	ADC !YPos
	STA $98

	CMP #$01C0
	BPL -

	LDA $98
	SEC
	SBC $96
	BPL +++
	EOR #$FFFF
	INC
	+++
	STA $00

	LDA $9A
	SEC
	SBC $94
	BPL +++
	EOR #$FFFF
	INC
	+++
	CLC
	ADC $00
	CMP #$0041
	BMI -

	JSR GetMap16

	if !AllowAir == 0
	CMP #$0025
	BEQ -
	endif

	PHA

	JSR Offset

	PLA
	REP #$10
	TAX
	JSR change_map16
	SEP #$30


	+
	RTS

Offset:

	SEP #$20
	JSL $01ACF9
	AND #$03
	BNE +

	REP #$20
	LDA $98
	SEC
	SBC #$0010
	STA $98
	RTS
	+
	CMP #$01
	BNE +
	REP #$20
	LDA $9A
	CLC
	ADC #$0010
	STA $9A
	RTS
	+
	CMP #$02
	BNE +
	REP #$20
	LDA $98
	CLC
	ADC #$0010
	STA $98
	RTS
	+
	REP #$20
	LDA $9A
	SEC
	SBC #$0010
	STA $9A
	RTS


change_map16:
LDA $0F : PHA
	PHP
	PHY
	PHX
	LDY $98
	STY $0E
	LDY $9A
	STY $0C
	SEP #$30
	LDA $5B
	LDX $1933
	BEQ .Layer1
	LSR A
.Layer1
	STA $0A
	LSR A
	BCC .Horz
	LDA $9B
	LDY $99
	STY $9B
	STA $99
.Horz
	LDA $99
	CMP #$02
.check
	BCS .End
	LDA $9B
	CMP $5D
	BCC .NoEnd
.End
	REP #$10
	PLX
	PLY
	PLP
	JMP .returnasdf

.NoEnd
	STA $0B
	ASL A
	ADC $0B
	TAY
	REP #$20
	LDA $98
	AND.w #$FFF0
	STA $08
	AND.w #$00F0
	ASL #2			; 0000 00YY YY00 0000
	XBA			; YY00 0000 0000 00YY
	STA $06
	TXA
	SEP #$20
	ASL A
	TAX

	LDA $0D
	LSR A
	LDA $0F
	AND #$01		; 0000 000y
	ROL A			; 0000 00yx
	ASL #2			; 0000 yx00
	ORA.l .LayerData,x	; 001l yx00
	TSB $06			; $06 : 001l yxYY
	LDA $9A			; X LowByte
	AND #$F0		; XXXX 0000
	LSR #3			; 000X XXX0
	TSB $07			; $07 : YY0X XXX0
	LSR A
	TSB $08

	LDA $1925
	ASL A
	REP #$31
	ADC $00BEA8,x
	TAX
	TYA

		ADC $00,x
		TAX
		LDA $08
		ADC $00,x
	TAX
	PLA
	ASL A
	TAY
	LSR A
	SEP #$20
		STA $7E0000,x
		XBA
		STA $7F0000,x
	LSR $0A
	LDA $1933
	REP #$20
	BCS .Vert
	BNE .HorzL2
.HorzL1
	LDA $1A			;\
	SBC #$007F		; |$08 : Layer1X - 0x80
	STA $08			;/
	LDA $1C			;  $0A : Layer1Y
	BRA .Common
.HorzL2
	LDA $1E			;\ $08 : Layer2X
	STA $08			;/
	LDA $20			;\ $0A : Layer2Y - 0x80
	SBC #$007F		;/
	BRA .Common

.Vert
	BNE .VertL2
	LDA $1A			;\ $08 : Layer1X
	STA $08			;/
	LDA $1C			;\ $0A : Layer1Y - 0x80
	SBC #$0080		;/
	BRA .Common
.VertL2
	LDA $1E			;\
	SBC #$0080		; |$08 : Layer2X - 0x80
	STA $08			;/
	LDA $20			;  $0A : Layer2Y
.Common
	STA $0A
	PHB
	PHK
;	PER $0006
	PEA .return-1
	PEA $804C
	JML $00C0FB
.return
	PLB
	PLY
	PLP
.returnasdf
	PLA : STA $0F
	RTS

.LayerData	db $20,$00,$30

GetMap16:
	PHX
	PHP
	REP #$10
	PHB
	LDY $98
	STY $0E
	LDY $9A
	STY $0C
	SEP #$30
	LDA $5B
	LDX $1933
	BEQ .layer1
	LSR A
.layer1
	STA $0A
	LSR A
	BCC .horz
	LDA $9B
	LDY $99
	STY $9B
	STA $99
.horz
.verticalCheck
	LDA $99
	CMP #$02
.check
	BCC .noEnd
	PLB
	PLP
	PLX
	PLA
	STA $00
	LDA #$FF
	RTL
	
.noEnd
	LDA $9B
	STA $0B
	ASL A
	ADC $0B
	TAY
	REP #$20
	LDA $98
	AND.w #$FFF0
	STA $08
	AND.w #$00F0
	ASL #2			; 0000 00YY YY00 0000
	XBA			; YY00 0000 0000 00YY
	STA $06
	TXA
	SEP #$20
	ASL A
	TAX
	
	LDA $0D
	LSR A
	LDA $0F
	AND #$01		; 0000 000y
	ROL A			; 0000 00yx
	ASL #2			; 0000 yx00
	ORA #$20		; 0010 yx00
	CPX #$00
	BEQ .noAdd
	ORA #$10		; 001l yx00
.noAdd
	TSB $06			; $06 : 001l yxYY
	LDA $9A			; X LowByte
	AND #$F0		; XXXX 0000
	LSR #3			; 000X XXX0
	TSB $07			; $07 : YY0X XXX0
	LSR A
	TSB $08

	LDA $1925
	ASL A
	REP #$31
	ADC $00BEA8,x
	TAX
	TYA
    ADC $00,x
    TAX
    LDA $08
    ADC $00,x
	TAX
	SEP #$20
	LDA $7F0000,x
	XBA
	LDA $7E0000,x
	SEP #$30
	XBA
	TAY
	XBA

	PLB
	PLP
	PLX
	RTS

back to listings