HALLOWEEN 2023 - FOR C64 v. 1.2

' *****************************************************
' HALLOWEEN 2023 - FOR C64 v. 1.2
' XC=BASIC 2.3 CODE BY KIMONO (FELICE NARDELLA)
' GRAPHICS BY KIMONO (FELICE NARDELLA)
' SID: "MIDSOMER WALTZ" BY MANGANOID
' *****************************************************

'IND. CARICAMENTO SPRITE
CONST INDSPR = 12800

CONST RASTER = 53266

GOTO START

ORIGIN $1000
INCBIN "MidsomerFINAL3_NO_HEADER_FIXED.sid"

PROC START_MUSIC
  ASM "  SEI"
  DOKE $314, @IRQ_ROUTINE
  POKE $D011, $1B
  POKE $D012, $00
  POKE $DC0D, $7F
  POKE $D01A, $01
  POKE $D019, $01
  ASM "
    LDA #$00
    JSR $1000
    CLI"

  RETURN

  IRQ_ROUTINE:
    ASM "
    LDA #$01
    STA $D019
    JSR $1003
    JMP $EA31"
ENDPROC

START:
CALL START_MUSIC
'COLORA SFONDO
DOKE $D020,0

'CARICA SFONDO
FOR K = 0 TO 999
	POKE $400+K,FRAME00[K]
	POKE $D800+K,FRAME00[1000+K]
NEXT K

' carica franke 1
FOR i! = 0 TO 63
	POKE INDSPR+i!, sprite1![i!]
NEXT

' carica fantasma
FOR i! = 0 TO 63
	POKE INDSPR+i!+64,sprite2![i!]
NEXT

' carica franke 2
FOR i! = 0 TO 63
	POKE INDSPR+i!+128,sprite3![i!]
NEXT

'PUNTATORI SPRITES
FOR i! = 0 TO 1
	POKE 2040+i!,200+i!
NEXT

'attiva sprites multicolor
POKE 53276,1

'MULTICOLOR 1 E 2
POKE 53285,8 : POKE 53286,5

'colori sprite
POKE 53287,11
POKE 53288,1

'ATTIVA SPRITES
POKE 53269,3

'y pos_SP1
POKE 53249,145

'y pos_SP2
POKE 53251,90

'larghezza
POKE 53277,2

'altezza
POKE 53271,3

z! = 0
o! = 0
a! = 0

WHILE o! < 2
	GOSUB wait_frame

	'x pos_SP1
	POKE 53248,241+z!
	'x pos_SP2
	POKE 53250,90-z!

	a! = 1-a!
	IF z! = 10 THEN o! = 1 - o!
	IF z! = 0 THEN o! = 1 - o!
	IF o! = 1 THEN z! = z! + 1
	IF o! = 0 THEN z! = z! - 1
	IF a! = 1 THEN POKE 2040,200
	IF a! = 0 THEN POKE 2040,202

ENDWHILE

wait_frame:
FOR j! = 0 TO 8
WATCH RASTER, 250
NEXT j!
RETURN

' sprite franke 1
DATA sprite1![] = 0,170,0,2,255,128,3,190,192,11,60,224,3,255,192,0,195,0,0,255,0,0,60,0,10,170,160,5,150,80,5,170,80,5,150,80,5,170,80,5,150,80,15,170,240,15,170,240,2,170,128,2,130,128,3,195,192,3,193,80,5,64,0,140

' sprite fantasma
DATA sprite2![] = 0,0,0,0,56,0,0,124,0,0,254,16,16,214,48,24,254,112,28,199,240,31,239,240,31,255,224,15,255,192,3,255,0,3,254,0,3,254,0,1,254,0,1,254,0,1,254,0,1,254,0,1,252,0,3,248,0,31,240,0,0,0,0,1

' sprite franke 2
DATA sprite3![] = 0,170,0,2,255,128,3,190,192,11,60,224,3,255,192,0,195,0,0,255,0,0,60,0,10,170,160,5,150,80,5,170,80,5,150,80,5,170,80,5,150,80,15,170,240,15,170,240,2,170,128,2,130,128,3,195,192,5,67,192,0,1,80,140

DATA FRAME00[] = 32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,46,32,32,32,32,32,32,32,46,32,32,111,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,254,160,252,32,46,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,103,160,160,160,116,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,251,160,236,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,119,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,46,32,32,32,46,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,46,32,32,32,32,32,46,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,46,32,32,46,32,111,111,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,46,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,122,160,160,76,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,46,32,32,32,32,32,32,106,160,250,204,160,101,32,32,46,32,32,32,32,32,32,32,111,32,32,32,32,32,32,32,46,32,32,32,111,111,111,32,32,32,32,32,46,32,32,32,106,160,208,207,160,101,32,32,32,32,46,32,32,32,32,122,160,76,32,32,32,46,32,32,32,32,32,103,160,160,160,116,32,32,104,32,32,32,104,32,106,160,234,244,160,101,32,32,32,32,32,32,32,32,103,160,209,160,116,32,32,32,32,104,32,32,32,103,160,219,160,116,160,160,160,160,160,160,160,160,106,160,232,232,160,101,160,232,160,160,160,160,160,160,103,160,232,160,116,160,160,160,160,160,160,160,160,103,160,221,160,116,111,124,160,160,232,160,160,160,106,160,160,160,160,101,160,160,160,160,160,160,160,160,123,226,226,226,108,160,160,160,174,160,160,160,79,255,160,160,160,127,160,101,160,160,160,160,160,160,248,248,248,248,248,248,160,160,160,160,160,160,160,160,232,160,160,160,160,232,160,160,160,231,248,244,124,226,226,226,226,226,160,101,160,160,160,160,160,160,160,160,160,160,160,160,160,160,232,232,160,160,160,160,160,160,160,160,160,160,160,160,239,250,160,204,239,160,160,160,160,139,160,101,160,232,160,160,160,160,160,32,111,111,111,32,160,160,160,160,160,232,160,160,160,174,160,160,160,160,160,160,225,160,160,160,97,160,160,160,160,137,160,101,160,160,160,220,160,160,32,122,160,160,160,76,32,160,160,160,160,160,160,160,160,160,160,160,232,160,160,160,247,208,160,207,247,160,160,160,160,141,248,248,160,160,160,160,160,160,103,160,146,137,144,160,116,160,160,160,160,160,160,126,111,111,111,124,160,160,160,160,160,231,160,244,160,160,160,232,160,143,160,160,160,160,160,160,160,160,103,160,232,160,232,160,116,160,232,160,160,232,160,103,160,232,160,116,160,160,160,126,111,111,160,111,111,124,160,160,160,142,160,232,232,160,160,160,160,160,103,160,232,232,232,160,116,160,160,160,160,160,160,103,160,160,160,116,160,232,160,108,192,192,192,192,192,123,160,160,160,143,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,7,14,14,14,14,14,14,14,7,14,14,7,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,7,7,7,15,7,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,7,7,7,7,7,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,7,7,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,7,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,7,14,14,14,7,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,7,14,14,14,14,14,7,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,7,14,14,7,14,15,15,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,7,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,14,14,14,15,11,11,15,14,14,14,14,14,14,14,14,14,7,11,15,15,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,14,14,14,14,14,14,15,11,11,11,11,15,14,14,7,14,14,14,14,14,15,15,15,15,15,14,14,7,14,14,7,14,14,14,15,15,15,14,14,14,14,14,7,14,14,14,15,11,11,11,11,15,14,14,14,14,7,14,14,14,15,15,11,15,15,15,14,7,14,14,14,14,14,15,12,12,12,15,14,14,13,13,13,13,13,14,15,11,11,11,11,15,14,14,13,13,13,13,13,13,15,11,11,11,15,14,14,14,13,13,13,13,13,15,12,12,12,15,13,13,13,13,13,13,13,13,15,11,11,11,11,15,13,13,13,13,13,13,13,13,15,11,11,11,15,13,13,13,13,13,13,13,13,15,12,12,12,15,15,13,13,13,13,13,13,13,15,11,11,11,11,15,13,13,13,13,13,13,13,13,13,11,11,11,13,13,13,13,13,13,13,13,13,15,12,12,12,15,11,15,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,12,13,12,12,12,12,12,12,11,15,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,12,13,13,13,13,13,13,13,11,15,13,13,13,13,13,13,13,14,15,15,15,14,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,12,12,12,12,12,13,13,13,13,13,11,15,13,13,13,13,13,13,13,15,11,11,11,15,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,12,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,15,11,11,11,11,11,15,13,13,13,13,13,13,13,15,15,15,13,13,13,13,13,13,13,12,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,15,11,11,11,11,11,15,13,13,13,13,13,13,15,12,12,12,15,13,13,13,13,15,15,12,15,15,13,13,13,13,13,13,13,13,13,13,13,13,13,15,11,11,11,11,11,15,13,13,13,13,13,13,15,12,12,12,15,13,13,13,12,12,12,12,12,12,12,13,13,13,13