API tools faq
paste
ThomasSpeedrunner

Grass Block Stuffz

ThomasSpeedrunner
Aug 30th, 2013
6,411
0
Never
2
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Motorola 68000 HiSoft Dev 2.62 KB | None | 0 0
raw download clone embed print report
  1. ; ===========================================================================
  2. ; ---------------------------------------------------------------------------
  3. ; Object 02 - Block Set 01
  4. ; Set includes:
  5. ; - Dirt/Grass Block (run at GrassBlock if no subtype bits are set)
  6. ; - Cobblestone Block (run at CobblestoneBlock if subtype bit 0 is set)
  7. ; - Stone Block (run at StoneBlock if subtype bit 1 is set)
  8. ; - Wood Block (run at WoodBlock if subtype bits 0 and 1 are set)
  9. ; - Leaf Block (run at LeafBlock if subtype bit 2 is set)
  10. ; - Sand Block (run at SandBlock if subtype bits 0 and 2 are set)
  11. ; - Gravel Block (run at GravelBlock if subtype bits 0 and 1 are set)
  12. ; ---------------------------------------------------------------------------
  13. Obj02:              ; XREF: Obj_Index
  14.         moveq   #0,d0
  15.         bra.w   GrassBlock
  16. ;       move.b  $28(a0),d0
  17. ;       beq.w   GrassBlock
  18. ;       cmpi.b  #%00000001,d0
  19. ;       bne.w   CobblestoneBlock
  20. ;       cmpi.b  #%00000010,d0
  21. ;       bne.w   StoneBlock
  22. ;       cmpi.b  #%00000011,d0
  23. ;       bne.w   WoodBlock
  24. ;       cmpi.b  #%00000100,d0
  25. ;       bne.w   LeafBlock
  26. ;       cmpi.b  #$00000101,d0
  27. ;       bne.w   SandBlock
  28. ;       cmpi.b  #$00000110,d0
  29. ;       bne.w   GravelBlock
  30.         rts
  31. ; ===========================================================================
  32. ; ---------------------------------------------------------------------------
  33. ; Block 001 - Dirt/Grass Block
  34. ; ---------------------------------------------------------------------------
  35. GrassBlock:
  36.         moveq   #0,d0
  37.         move.b  $24(a0),d0
  38.         move.w  GrassBlock_Index(pc,d0.w),d1
  39.         jmp GrassBlock_Index(pc,d1.w)
  40. ; ===========================================================================
  41. GrassBlock_Index:
  42.         dc.w    GrassBlock_Init-GrassBlock_Index
  43.         dc.w    GrassBlock_Main-GrassBlock_Index
  44. ; ===========================================================================
  45. GrassBlock_Init:
  46.         addq.b  #2,$24(a0)
  47.         move.l  #Map_GrassBlock,4(a0)
  48.         move.b  #$20,$16(a0)
  49.         move.b  #$20,$17(a0)
  50.         move.b  #1,$1A(a0)
  51.         move.w  #0,2(a0)
  52.         move.b  #0,$18(a0)
  53.  
  54. GrassBlock_Main:
  55.         jsr (SolidObject).l
  56.         rts
  57.  
  58. ; ===========================================================================
  59. ; ---------------------------------------------------------------------------
  60. ; Nemesis compressed art (2 blocks)
  61. ; Grass Block
  62. ; ---------------------------------------------------------------------------
  63. ArtNem_GrassBlock:  incbin  "artnem\grassblock.bin"
  64. ; ---------------------------------------------------------------------------
  65. ; Sprite Mappings
  66. ; Grass Block
  67. ; ---------------------------------------------------------------------------
  68. Map_GrassBlock:     include "_maps\GrassBlock.asm"
  69. ; ===========================================================================
Advertisement
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!