Halloween 2023

; ***************************************************************
; HALLOWEEN 2023 - FOR C64
; 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.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 sprite1
FOR i! = 0 TO 63
	POKE INDSPR+i!, sprite1![i!]
NEXT

' carica sprite2
FOR i! = 0 TO 63
	POKE INDSPR+i!+64,sprite2![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,3

'altezza
POKE 53271,3

z = 0
o = 0

LOOP:
GOSUB wait_frame

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

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

GOTO LOOP

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

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,195,192,5,65,80,140

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

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