pokeemerald/asm/macros/battle_anim_script.inc

@ commands

	.macro loadspritegfx tag:req
	.byte 0x0
	.2byte \tag
	.endm

	.macro unloadspritegfx tag:req
	.byte 0x1
	.2byte \tag
	.endm

.macro createsprite template:req, anim_battler:req, subpriority_offset:req, argv:vararg
	.byte 0x02
	.4byte \template
	.if \anim_battler == ANIM_TARGET
	.byte 0x80 | (\subpriority_offset & 0x7F)
	.else
	.byte (\subpriority_offset & 0x7F)
	.endif
	.byte (.Lsprite_\@_2 - .Lsprite_\@_1) / 2
.Lsprite_\@_1:
	.2byte \argv
.Lsprite_\@_2:
	.endm

	.macro createvisualtask addr:req, priority:req, argv:vararg
	.byte 0x03
	.4byte \addr
	.byte \priority
	.byte (.Lcreatetask_\@_2 - .Lcreatetask_\@_1) / 2
.Lcreatetask_\@_1:
	.2byte \argv
.Lcreatetask_\@_2:
	.endm

	.macro delay param0:req
	.byte 0x4
	.byte \param0
	.endm

	.macro waitforvisualfinish
	.byte 0x5
	.endm

	.macro hang1
	.byte 0x6
	.endm

	.macro hang2
	.byte 0x7
	.endm

	.macro end
	.byte 0x8
	.endm

	.macro playse se:req
	.byte 0x9
	.2byte \se
	.endm

	.macro monbg battler:req
	.byte 0xa
	.byte \battler
	.endm

	.macro clearmonbg battler:req
	.byte 0xb
	.byte \battler
	.endm

	.macro setalpha eva:req, evb:req
	.byte 0x0C
	.2byte ((\evb) << 8) | (\eva)
	.endm

	.macro blendoff
	.byte 0xd
	.endm

	.macro call param0:req
	.byte 0xe
	.4byte \param0
	.endm

	.macro return
	.byte 0xf
	.endm

	.macro setarg param0:req, param1:req
	.byte 0x10
	.byte \param0
	.2byte \param1
	.endm

	.macro choosetwoturnanim param0:req, param1:req
	.byte 0x11
	.4byte \param0
	.4byte \param1
	.endm

	.macro jumpifmoveturn param0:req, ptr:req
	.byte 0x12
	.byte \param0
	.4byte \ptr
	.endm

	.macro goto ptr:req
	.byte 0x13
	.4byte \ptr
	.endm

	.macro fadetobg bg:req
	.byte 0x14
	.byte \bg
	.endm

	.macro restorebg
	.byte 0x15
	.endm

	.macro waitbgfadeout
	.byte 0x16
	.endm

	.macro waitbgfadein
	.byte 0x17
	.endm

	.macro changebg bg:req
	.byte 0x18
	.byte \bg
	.endm

	.macro playsewithpan se:req, pan:req
	.byte 0x19
	.2byte \se
	.byte \pan
	.endm

	.macro setpan pan:req
	.byte 0x1a
	.byte \pan
	.endm

	.macro panse_1B se:req, param1:req, param2:req, param3:req, param4
	.byte 0x1b
	.2byte \se
	.byte \param1
	.byte \param2
	.byte \param3
	.byte \param4
	.endm

	.macro loopsewithpan se:req, param1:req, param2:req, param3:req
	.byte 0x1c
	.2byte \se
	.byte \param1
	.byte \param2
	.byte \param3
	.endm

	.macro waitplaysewithpan se:req, param1:req, param2:req
	.byte 0x1d
	.2byte \se
	.byte \param1
	.byte \param2
	.endm

	.macro setbldcnt param0:req
	.byte 0x1e
	.2byte \param0
	.endm

	.macro createsoundtask addr:req, argv:vararg
	.byte 0x1F
	.4byte \addr
	.byte (.Lcreatetask_1F_\@_2 - .Lcreatetask_1F_\@_1) / 2
.Lcreatetask_1F_\@_1:
	.2byte \argv
.Lcreatetask_1F_\@_2:
	.endm

	.macro waitsound
	.byte 0x20
	.endm

	.macro jumpargeq param0:req, param1:req, ptr:req
	.byte 0x21
	.byte \param0
	.2byte \param1
	.4byte \ptr
	.endm

	.macro monbg_22 battler:req
	.byte 0x22
	.byte \battler
	.endm

	.macro clearmonbg_23 battler:req
	.byte 0x23
	.byte \battler
	.endm

	.macro jumpifcontest ptr:req
	.byte 0x24
	.4byte \ptr
	.endm

	.macro fadetobgfromset param0:req, param1:req, param2:req
	.byte 0x25
	.byte \param0
	.byte \param1
	.byte \param2
	.endm

	.macro panse_26 se:req, param1:req, param2:req, param3:req, param4
	.byte 0x26
	.2byte \se
	.byte \param1
	.byte \param2
	.byte \param3
	.byte \param4
	.endm

	.macro panse_27 se:req, param1:req, param2:req, param3:req, param4
	.byte 0x27
	.2byte \se
	.byte \param1
	.byte \param2
	.byte \param3
	.byte \param4
	.endm

	.macro monbgprio_28 battler:req
	.byte 0x28
	.byte \battler
	.endm

	.macro monbgprio_29
	.byte 0x29
	.endm

	.macro monbgprio_2A battler:req
	.byte 0x2a
	.byte \battler
	.endm

	.macro invisible battler:req
	.byte 0x2b
	.byte \battler
	.endm

	.macro visible battler:req
	.byte 0x2c
	.byte \battler
	.endm

	.macro doublebattle_2D battler:req
	.byte 0x2d
	.byte \battler
	.endm

	.macro doublebattle_2E battler:req
	.byte 0x2e
	.byte \battler
	.endm

	.macro stopsound
	.byte 0x2f
	.endm
	
@ useful macros
	.macro jumpreteq value:req, ptr:req
	jumpargeq ARG_RET_ID, \value, \ptr
	.endm
	
	.macro jumprettrue ptr:req
	jumpreteq TRUE, \ptr
	.endm
	
	.macro jumpretfalse ptr:req
	jumpreteq FALSE, \ptr
	.endm
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`@ commands`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro loadspritegfx tag:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x0`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \tag`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro unloadspritegfx tag:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x1`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \tag`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro createsprite template:req, anim_battler:req, subpriority_offset:req, argv:vararg`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x02`
			`.4byte \template`
remove extra macro and shorten names 2018-11-13 22:19:52 +01:00			`.if \anim_battler == ANIM_TARGET`
update createsprite macro and rename BANK to BATTLER 2018-11-13 21:35:46 +01:00			`.byte 0x80 \| (\subpriority_offset & 0x7F)`
			`.else`
			`.byte (\subpriority_offset & 0x7F)`
			`.endif`
			`.byte (.Lsprite_\@_2 - .Lsprite_\@_1) / 2`
			`.Lsprite_\@_1:`
			`.2byte \argv`
			`.Lsprite_\@_2:`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro createvisualtask addr:req, priority:req, argv:vararg`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x03`
			`.4byte \addr`
			`.byte \priority`
			`.byte (.Lcreatetask_\@_2 - .Lcreatetask_\@_1) / 2`
			`.Lcreatetask_\@_1:`
			`.2byte \argv`
			`.Lcreatetask_\@_2:`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro delay param0:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x4`
			`.byte \param0`
			`.endm`

			`.macro waitforvisualfinish`
			`.byte 0x5`
			`.endm`

			`.macro hang1`
			`.byte 0x6`
			`.endm`

			`.macro hang2`
			`.byte 0x7`
			`.endm`

			`.macro end`
			`.byte 0x8`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro playse se:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x9`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \se`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro monbg battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0xa`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro clearmonbg battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0xb`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro setalpha eva:req, evb:req`
Sync battle anim labels with pokeruby 2018-09-12 22:58:03 +02:00			`.byte 0x0C`
			`.2byte ((\evb) << 8) \| (\eva)`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

			`.macro blendoff`
			`.byte 0xd`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro call param0:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0xe`
			`.4byte \param0`
			`.endm`

			`.macro return`
			`.byte 0xf`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro setarg param0:req, param1:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x10`
			`.byte \param0`
			`.2byte \param1`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro choosetwoturnanim param0:req, param1:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x11`
			`.4byte \param0`
			`.4byte \param1`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro jumpifmoveturn param0:req, ptr:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x12`
			`.byte \param0`
Use :req macros 2018-12-02 19:24:06 +01:00			`.4byte \ptr`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro goto ptr:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x13`
Use :req macros 2018-12-02 19:24:06 +01:00			`.4byte \ptr`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro fadetobg bg:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x14`
Use :req macros 2018-12-02 19:24:06 +01:00			`.byte \bg`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

			`.macro restorebg`
			`.byte 0x15`
			`.endm`

			`.macro waitbgfadeout`
			`.byte 0x16`
			`.endm`

			`.macro waitbgfadein`
			`.byte 0x17`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro changebg bg:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x18`
Use :req macros 2018-12-02 19:24:06 +01:00			`.byte \bg`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro playsewithpan se:req, pan:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x19`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \se`
			`.byte \pan`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro setpan pan:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x1a`
Use :req macros 2018-12-02 19:24:06 +01:00			`.byte \pan`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro panse_1B se:req, param1:req, param2:req, param3:req, param4`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x1b`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \se`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte \param1`
			`.byte \param2`
			`.byte \param3`
			`.byte \param4`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro loopsewithpan se:req, param1:req, param2:req, param3:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x1c`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \se`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte \param1`
			`.byte \param2`
			`.byte \param3`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro waitplaysewithpan se:req, param1:req, param2:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x1d`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \se`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte \param1`
			`.byte \param2`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro setbldcnt param0:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x1e`
			`.2byte \param0`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro createsoundtask addr:req, argv:vararg`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x1F`
			`.4byte \addr`
			`.byte (.Lcreatetask_1F_\@_2 - .Lcreatetask_1F_\@_1) / 2`
			`.Lcreatetask_1F_\@_1:`
			`.2byte \argv`
			`.Lcreatetask_1F_\@_2:`
			`.endm`

			`.macro waitsound`
			`.byte 0x20`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro jumpargeq param0:req, param1:req, ptr:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x21`
			`.byte \param0`
			`.2byte \param1`
Use :req macros 2018-12-02 19:24:06 +01:00			`.4byte \ptr`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro monbg_22 battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x22`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro clearmonbg_23 battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x23`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro jumpifcontest ptr:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x24`
Use :req macros 2018-12-02 19:24:06 +01:00			`.4byte \ptr`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro fadetobgfromset param0:req, param1:req, param2:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x25`
			`.byte \param0`
			`.byte \param1`
			`.byte \param2`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro panse_26 se:req, param1:req, param2:req, param3:req, param4`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x26`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \se`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte \param1`
			`.byte \param2`
			`.byte \param3`
			`.byte \param4`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro panse_27 se:req, param1:req, param2:req, param3:req, param4`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x27`
Use :req macros 2018-12-02 19:24:06 +01:00			`.2byte \se`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte \param1`
			`.byte \param2`
			`.byte \param3`
			`.byte \param4`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro monbgprio_28 battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x28`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

			`.macro monbgprio_29`
			`.byte 0x29`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro monbgprio_2A battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x2a`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro invisible battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x2b`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro visible battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x2c`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro doublebattle_2D battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x2d`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro doublebattle_2E battler:req`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.byte 0x2e`
Bank to battler 2018-09-01 18:36:08 +02:00			`.byte \battler`
dump battle animation scripts 2017-12-31 16:28:57 +01:00			`.endm`

			`.macro stopsound`
			`.byte 0x2f`
			`.endm`
Document battle animation scripts. 2018-09-10 21:19:19 +02:00
			`@ useful macros`
Use :req macros 2018-12-02 19:24:06 +01:00			`.macro jumpreteq value:req, ptr:req`
Document battle animation scripts. 2018-09-10 21:19:19 +02:00			`jumpargeq ARG_RET_ID, \value, \ptr`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro jumprettrue ptr:req`
Document battle animation scripts. 2018-09-10 21:19:19 +02:00			`jumpreteq TRUE, \ptr`
			`.endm`

Use :req macros 2018-12-02 19:24:06 +01:00			`.macro jumpretfalse ptr:req`
Document battle animation scripts. 2018-09-10 21:19:19 +02:00			`jumpreteq FALSE, \ptr`
			`.endm`