ref: 2d644f5077fa9ec43009ea5ec072e6ade9a1f61b
dir: /macros.asm/
INCLUDE "macros/enum.asm" INCLUDE "macros/basestats.asm" INCLUDE "macros/event.asm" INCLUDE "macros/sound.asm" INCLUDE "macros/text.asm" INCLUDE "macros/charmap.asm" INCLUDE "macros/move_anim.asm" INCLUDE "macros/movement.asm" INCLUDE "macros/map.asm" INCLUDE "macros/pic.asm" INCLUDE "macros/predef.asm" INCLUDE "macros/rst.asm" INCLUDE "macros/mobile.asm" INCLUDE "macros/trainer.asm" INCLUDE "macros/trade_anim.asm" INCLUDE "macros/pals.asm" RGB: MACRO dw ((\3) << 10) + ((\2) << 5) + (\1) ENDM percent EQUS "* $ff / 100" dwb: MACRO dw \1 db \2 ENDM dbw: MACRO db \1 dw \2 ENDM dbbw: MACRO db \1, \2 dw \3 ENDM dbww: MACRO db \1 dw \2, \3 ENDM dbwww: MACRO db \1 dw \2, \3, \4 ENDM dn: MACRO rept _NARG / 2 db (\1) << 4 + (\2) shift shift endr ENDM dx: MACRO x = 8 * ((\1) - 1) rept \1 db ((\2) >> x) & $ff x = x + -8 endr ENDM dt: MACRO ; three-byte (big-endian) dx 3, \1 ENDM dd: MACRO ; four-byte (big-endian) dx 4, \1 ENDM bigdw: MACRO ; big-endian word dx 2, \1 ENDM dba: MACRO ; dbw bank, address rept _NARG dbw BANK(\1), \1 shift endr ENDM dab: MACRO ; dwb address, bank rept _NARG dwb \1, BANK(\1) shift endr ENDM lb: MACRO ; r, hi, lo ld \1, (\2 & $ff) << 8 + (\3 & $ff) ENDM ln: MACRO ; r, hi, lo ld \1, (\2 & $f) << 4 + (\3 & $f) ENDM bccoord equs "coord bc," decoord equs "coord de," hlcoord equs "coord hl," coord: MACRO ; register, x, y[, origin] if _NARG < 4 ld \1, TileMap + SCREEN_WIDTH * (\3) + (\2) else ld \1, \4 + SCREEN_WIDTH * (\3) + (\2) endc ENDM dwcoord: MACRO rept _NARG / 2 dw TileMap + SCREEN_WIDTH * (\2) + (\1) shift shift endr ENDM ldcoord_a: MACRO if _NARG < 3 ld [TileMap + SCREEN_WIDTH * (\2) + (\1)], a else ld [\3 + SCREEN_WIDTH * (\2) + (\1)], a endc ENDM lda_coord: MACRO if _NARG < 3 ld a, [TileMap + SCREEN_WIDTH * (\2) + (\1)] else ld a, [\3 + SCREEN_WIDTH * (\2) + (\1)] endc ENDM ; pic animations frame: MACRO db \1 x = \2 IF _NARG > 2 rept _NARG +- 2 x = x | (1 << (\3 + 1)) shift endr endc db x ENDM setrepeat: MACRO db $fe db \1 ENDM dorepeat: MACRO db $fd db \1 ENDM endanim: MACRO db $ff ENDM delanim: MACRO db $fc ENDM dorestart: MACRO db $fe ENDM sine_wave: MACRO ; \1: amplitude x = 0 rept $20 ; Round up. dw (sin(x) + (sin(x) & $ff)) >> 8 x = x + (\1) * $40000 endr ENDM bcd: MACRO rept _NARG dn ((\1) % 100) / 10, (\1) % 10 shift endr ENDM tiles EQUS "* $10" tile EQUS "+ $10 *" partymon: MACRO db \1 db \2 db \3, \4, \5, \6 dw \7 dt \8 rept 8 shift endr rept 5 bigdw \1 shift endr db \1, \2 db \3, \4, \5, \6 rept 6 shift endr db \1 db \2, \3, \4 db \5 db \6, \7 rept 7 shift endr rept 7 bigdw \1 shift endr db \1 ENDM palettes EQUS "* 8" palette EQUS "+ 8 *" ldpixel: MACRO if _NARG >= 5 lb \1, \2 * 8 + \4, \3 * 8 + \5 else lb \1, \2 * 8, \3 * 8 endc endm depixel EQUS "ldpixel de," bcpixel EQUS "ldpixel bc," dbpixel: MACRO if _NARG >= 4 db \1 * 8 + \3, \2 * 8 + \4 else db \1 * 8, \2 * 8 endc endm bgcoord: MACRO IF _NARG >= 4 ld \1, \3 * $20 + \2 + \4 ELSE ld \1, \3 * $20 + \2 + VBGMap0 ENDC ENDM hlbgcoord EQUS "bgcoord hl," debgcoord EQUS "bgcoord de," bcbgcoord EQUS "bgcoord bc," bgrows EQUS "* $20" palred EQUS "$0001 *" palgreen EQUS "$0020 *" palblue EQUS "$0400 *" dsprite: MACRO ; conditional segment is there because not every instance of ; this macro is directly OAM if _NARG >= 7 ; y tile, y pxl, x tile, x pxl, vtile offset, flags, palette db (\1 * 8) % $100 + \2, (\3 * 8) % $100 + \4, \5, (\6 << 3) + (\7 & 7) else db (\1 * 8) % $100 + \2, (\3 * 8) % $100 + \4, \5, \6 endc endm jumptable: MACRO ld a, [\2] ld e, a ld d, 0 ld hl, \1 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp hl endm maskbits: macro ; returns to x ; usage in rejection sampling ; .loop ; call Random ; maskbits 30 ; and x ; cp 30 ; jr nc, .loop x = 1 rept 8 IF \1 > x x = (x + 1) * 2 +- 1 ENDC endr endm homecall: MACRO ld a, [hROMBank] push af ld a, BANK(\1) rst Bankswitch call \1 pop af rst Bankswitch ENDM