; ===========================================================================
; ---------------------------------------------------------------------------
; Object 02 - Block Set 01
; Set includes:
; - Dirt/Grass Block (run at GrassBlock if no subtype bits are set)
; - Cobblestone Block (run at CobblestoneBlock if subtype bit 0 is set)
; - Stone Block (run at StoneBlock if subtype bit 1 is set)
; - Wood Block (run at WoodBlock if subtype bits 0 and 1 are set)
; - Leaf Block (run at LeafBlock if subtype bit 2 is set)
; - Sand Block (run at SandBlock if subtype bits 0 and 2 are set)
; - Gravel Block (run at GravelBlock if subtype bits 0 and 1 are set)
; ---------------------------------------------------------------------------
Obj02:				; XREF: Obj_Index
		moveq	#0,d0
		bra.w	GrassBlock
;		move.b	$28(a0),d0
;		beq.w	GrassBlock
;		cmpi.b	#%00000001,d0
;		bne.w	CobblestoneBlock
;		cmpi.b	#%00000010,d0
;		bne.w	StoneBlock
;		cmpi.b	#%00000011,d0
;		bne.w	WoodBlock
;		cmpi.b	#%00000100,d0
;		bne.w	LeafBlock
;		cmpi.b	#$00000101,d0
;		bne.w	SandBlock
;		cmpi.b	#$00000110,d0
;		bne.w	GravelBlock
		rts
; ===========================================================================
; ---------------------------------------------------------------------------
; Block 001 - Dirt/Grass Block
; ---------------------------------------------------------------------------
GrassBlock:
		moveq	#0,d0
		move.b	$24(a0),d0
		move.w	GrassBlock_Index(pc,d0.w),d1
		jmp	GrassBlock_Index(pc,d1.w)
; ===========================================================================
GrassBlock_Index:
		dc.w	GrassBlock_Init-GrassBlock_Index
		dc.w	GrassBlock_Main-GrassBlock_Index
; ===========================================================================
GrassBlock_Init:
		addq.b	#2,$24(a0)
		move.l	#Map_GrassBlock,4(a0)
		move.b	#$20,$16(a0)
		move.b	#$20,$17(a0)
		move.b	#1,$1A(a0)
		move.w	#0,2(a0)
		move.b	#0,$18(a0)

GrassBlock_Main:
		jsr	(SolidObject).l
		rts

; ===========================================================================
; ---------------------------------------------------------------------------
; Nemesis compressed art (2 blocks)
; Grass Block
; ---------------------------------------------------------------------------
ArtNem_GrassBlock:	incbin	"artnem\grassblock.bin"
; ---------------------------------------------------------------------------
; Sprite Mappings
; Grass Block
; ---------------------------------------------------------------------------
Map_GrassBlock:		include	"_maps\GrassBlock.asm"
; ===========================================================================