!sprite_id = $7e009e
!new_sprite_id = $7fba20

	lda !carl_initialized
	bne skip_init
	lda #$2D
	sta !new_sprite_id
	sta !carl_initialized

skip_init:
	ldx #$0b
loop_over_sprites:
	
	lda !sprite_id,X
	
	cmp #$20
	beq loop_end
	
	cmp #$0e
	beq loop_end
	
	cmp #$29
	beq loop_end
	
	cmp #$4a
	beq loop_end
	
	cmp #$60
	beq loop_end
	
	cmp #$7b
	beq loop_end
	
	cmp #$80
	beq loop_end
	
	cmp #$a9
	beq loop_end
	
	cmp #$c5
	beq loop_end
	
	lda !new_sprite_id
	sta !sprite_id,X
	
loop_end:
	dex
	bpl loop_over_sprites

	lda #$00
	rtl

back to listings