; ===========================================================================
; ---------------------------------------------------------------------------
; 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"
; ===========================================================================
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎