Code: Ability Resource Thread

[Pokémon Hack Lab]

I know this is from 2015, but I tested this and it did not work. Do I need something like the Physical/Special split?

@ at 01EA54 insert 00 49 08 47 XX+1 XX XX 08 00 00

effectivnesscheck:
ldrb r1, [r0, #0x0]
mov r0, #0x8
and r0, r1
cmp r0, #0x0
bne noteffective

misscheck:
mov r0, #0x31
and r0, r1
cmp r0, #0x0
bne exit

notveryeffectivecheck:
mov r0, #0x4
and r0, r1
cmp r0, #0x0
beq supereffectivecheck
ldr r0, .userbank
ldr r1, .battlestruct
mov r2, #0x58
ldrb r0, [r0]
mul r2, r0
add r1, r1, r2
ldrb r1, [r1]
cmp r1, #0xXX @Tinted Lens ID
bne exit

hastintedlens:
ldr r0, .damage
ldrh r1, [r0]
lsl r1, r1, #0x1
strh r1, [r0]
b exit

supereffectivecheck:
mov r0, #0x2
and r0, r1
cmp r0, #0x0
beq exit
ldr r0, .targetbank
ldr r4, .battlestruct
mov r3, #0x58
ldrb r0, [r0]
mul r0, r3
add r1, r0, r4
ldrb r0, [r1]
cmp r0, #0xXX @Filter ID
beq hasfiltersolidrock
cmp r0, #0xXX @Solid Rock ID
bne exit
hasfiltersolidrock:
ldr r0, .damage
ldrh r1, [r0]
lsl r2, r1, #0x1
add r1, r1, r2
lsr r1, r1, #0x2
cmp r1, #0x0
bne notzero
mov r1, #0x1

notzero:
strh r1, [r0]
exit:
ldr r1, =0x0801ea71
bx r1

noteffective:
ldr r1, =0x0801ea5f
bx r1

.align 2
.userbank:	.word 0x02023d6b
.targetbank:	.word 0x02023d6c
.battlestruct:	.word 0x02023c04
.damage:	.word 0x02023d50

@ at 01EFAC insert 00 00 00 00 00 49 08 47 XX+1 XX XX 08

strugglecheck:
mov r1, r10
cmp r1, #0xa5
beq quit

effectivnesscheck:
ldrb r1, [r0, #0x0]
mov r0, #0x39
and r0, r1
cmp r0, #0x0
bne exit

notveryeffectivecheck:
mov r0, #0x4
and r0, r1
cmp r0, #0x0
beq supereffectivecheck
ldr r0, .userbank
ldr r1, .battlestruct
mov r2, #0x58
ldrb r0, [r0]
mul r2, r0
add r1, r1, r2
ldrb r1, [r1]
cmp r1, #0xXX @Tinted Lens ID
bne exit

hastintedlens:
ldr r0, .damage
ldrh r1, [r0]
lsl r1, r1, #0x1
strh r1, [r0]
b exit

supereffectivecheck:
mov r0, #0x2
and r0, r1
cmp r0, #0x0
beq exit
ldr r0, .targetbank
ldr r4, .battlestruct
mov r3, #0x58
ldrb r0, [r0]
mul r0, r3
add r1, r0, r4
ldrb r0, [r1]
cmp r0, #0xXX @Filter ID
beq hasfiltersolidrock
cmp r0, #0xXX @Solid Rock ID
bne exit
hasfiltersolidrock:
ldr r0, .damage
ldrh r1, [r0]
lsl r2, r1, #0x1
add r1, r1, r2
lsr r1, r1, #0x2
cmp r1, #0x0
bne notzero
mov r1, #0x1

notzero:
strh r1, [r0]

exit:
mov r0, sp
ldrb r0, [r0, #0x0]
quit:
add sp, #0x10
pop {r3-r5}
mov r8, r3
mov r9, r4
mov r10, r5
pop {r4-r7}
pop {r1}
bx r1

.align 2
.userbank:	.word 0x02023d6b
.targetbank:	.word 0x02023d6c
.battlestruct:	.word 0x02023c04
.damage:	.word 0x02023d50

 

[ShinyTillDawn]

@ at 01EA54 insert 00 49 08 47 XX+1 XX XX 08 00 00

effectivnesscheck:
ldrb r1, [r0, #0x0]
mov r0, #0x8
and r0, r1
cmp r0, #0x0
bne noteffective

misscheck:
mov r0, #0x31
and r0, r1
cmp r0, #0x0
bne exit

notveryeffectivecheck:
mov r0, #0x4
and r0, r1
cmp r0, #0x0
beq supereffectivecheck
ldr r0, .userbank
ldr r1, .battlestruct
mov r2, #0x58
ldrb r0, [r0]
mul r2, r0
add r1, r1, r2
ldrb r1, [r1]
cmp r1, #0xXX @Tinted Lens ID
bne exit

hastintedlens:
ldr r0, .damage
ldrh r1, [r0]
lsl r1, r1, #0x1
strh r1, [r0]
b exit

supereffectivecheck:
mov r0, #0x2
and r0, r1
cmp r0, #0x0
beq exit
ldr r0, .targetbank
ldr r4, .battlestruct
mov r3, #0x58
ldrb r0, [r0]
mul r0, r3
add r1, r0, r4
ldrb r0, [r1]
cmp r0, #0xXX @Filter ID
beq hasfiltersolidrock
cmp r0, #0xXX @Solid Rock ID
bne exit
hasfiltersolidrock:
ldr r0, .damage
ldrh r1, [r0]
lsl r2, r1, #0x1
add r1, r1, r2
lsr r1, r1, #0x2
cmp r1, #0x0
bne notzero
mov r1, #0x1

notzero:
strh r1, [r0]
exit:
ldr r1, =0x0801ea71
bx r1

noteffective:
ldr r1, =0x0801ea5f
bx r1

.align 2
.userbank:	.word 0x02023d6b
.targetbank:	.word 0x02023d6c
.battlestruct:	.word 0x02023c04
.damage:	.word 0x02023d50

@ at 01EFAC insert 00 00 00 00 00 49 08 47 XX+1 XX XX 08

strugglecheck:
mov r1, r10
cmp r1, #0xa5
beq quit

effectivnesscheck:
ldrb r1, [r0, #0x0]
mov r0, #0x39
and r0, r1
cmp r0, #0x0
bne exit

notveryeffectivecheck:
mov r0, #0x4
and r0, r1
cmp r0, #0x0
beq supereffectivecheck
ldr r0, .userbank
ldr r1, .battlestruct
mov r2, #0x58
ldrb r0, [r0]
mul r2, r0
add r1, r1, r2
ldrb r1, [r1]
cmp r1, #0xXX @Tinted Lens ID
bne exit

hastintedlens:
ldr r0, .damage
ldrh r1, [r0]
lsl r1, r1, #0x1
strh r1, [r0]
b exit

supereffectivecheck:
mov r0, #0x2
and r0, r1
cmp r0, #0x0
beq exit
ldr r0, .targetbank
ldr r4, .battlestruct
mov r3, #0x58
ldrb r0, [r0]
mul r0, r3
add r1, r0, r4
ldrb r0, [r1]
cmp r0, #0xXX @Filter ID
beq hasfiltersolidrock
cmp r0, #0xXX @Solid Rock ID
bne exit
hasfiltersolidrock:
ldr r0, .damage
ldrh r1, [r0]
lsl r2, r1, #0x1
add r1, r1, r2
lsr r1, r1, #0x2
cmp r1, #0x0
bne notzero
mov r1, #0x1

notzero:
strh r1, [r0]

exit:
mov r0, sp
ldrb r0, [r0, #0x0]
quit:
add sp, #0x10
pop {r3-r5}
mov r8, r3
mov r9, r4
mov r10, r5
pop {r4-r7}
pop {r1}
bx r1

.align 2
.userbank:	.word 0x02023d6b
.targetbank:	.word 0x02023d6c
.battlestruct:	.word 0x02023c04
.damage:	.word 0x02023d50

Thanks for the response. I feel bad now, because it actually was working in the first place; I mixed up 2 numbers in one of the offsets I was supposed to put code in.

 

[Marinebeast]

It looks like there's issues taken with the "modify wild Pokemon levels based on slot1 ability (pressure/intimidate/etc)" script, and refuses to compile since "CheckAbility" is defined twice. Attempting to remove the second "CheckAbility" makes the game crash when attempting to generate a wild encounter under the effect of specified abilities.

 

[Renovice]

I know this post is old, but i found out the magic guard script for removing recoil damage just removed recoil from all moves in my case and not only for magic guard

so i went and made updated version

Spoiler:

#include moves.bsh
#include abilities.bsh

#org 0x00000 (find free space in rom here)
jumpifability BANK_USER 0x63 0x82DB421
jumpifhalfword B_= 0x20241EA MOVE_STRUGGLE 0x082DB407
jumpifability BANK_USER ABILITY_ROCKHEAD 0x82DB421
jumpifhalfword 0x0 0x20241EA 0xA5 0x82DB407
jumpifability 0x1 0x45 0x82DB421

#org 0x00000 (find free space in rom here and put in your offset)
orword 0x2024280 0x100100
graphicalhpupdate 0x1
datahpupdate 0x1
printstring 0x64
waitmessage 0x40
faintpokemon 0x1 0x0 0x8000000
end

Insert this battle script into free space, and replace the pointers at 31C25C and 31C2BC to point to this battle script. Reminder make sure the second and first #org offsets are right next to eachother after they end in hex, so on the last byte of the first #org the second #org should start so if the first one has a length of 10 bytes or whatever put in 10 bytes after the start offset

 

[Renovice]

Magic guard Routine with poison prevention caused poison to 1HIT KO any poisoned pokemon from the damage lmao i had a good laugh when i saw that, here is a fixed version (hopefully)

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global preventtoxicdamage

BufferAbility:
mov r0, r1
add r0, #0x20
ldrb r0, [r0]
PoisonHealCheck:
cmp r0, #0x5B
beq NoDamage
MagicGuardCheck:
cmp r0, #0x63
bne PoisonDamage
NoDamage:
mov r0, #0x0
b StoreDamage
PoisonDamage:
ldrh r0, [r0, #0x2C]
lsr r0, r0, #0x4
SetDamage:
mov r0, #0x1
StoreDamage:
ldr r1, .Return
bx r1

.align 2

.Return: .word 0x08040BC3


Insert 01 48 00 47 00 00 xx xx xx 08 at 08040BB6 (edit cmpr0 #0x63 just edit the 63 to the index number (in hex) to whatever ability you want it to replace or if you want it to have a different index

 

[jmynes]

Am I doing something wrong? Whether I edit my hack, or vanilla Fire Red, I get a Bad Egg when I try to use the Magma Armour / Flame Body snippet.

For this bit:

/* Put 00 49 08 47 XX XX XX 08 at 0x46390 */

I'm placing 00 49 08 47 10 00 A1

And then for the snippet below, I'm inserting at A10000, using HMA (though I've also tried THUMB Editor & Assembler.

Out-Of-Battle Effects

Flame Body
Flame Body, Magma Armour and Steam Engine will halve the number of steps needed to hatch an egg if they are in the party.

Spoiler:

/* Put 00 49 08 47 XX XX XX 08 at 0x46390 */
.text
.align 2
.thumb
.thumb_func
.global FlameBodyOBD

CheckAbility:
sub r0, r0, #0x1
cmp r0, #0x1
blt NormalTime
push {r0-r5}
mov r5, #0x0 /* r5 = Number Pokemon, 0-5 */

Loop:
ldr r0, .FirstPokemon
mov r2, #0x64 /* Each Party Pokemon's RAM is 100 bytes long */
mul r2, r5
add r0, r0, r2
mov r1, #0x2E /* Ability Bit, 0x0 or 0x1 */
mov r2, #0x0
bl Decrypt
mov r4, r0 /* r4 = Ability Bit now */
ldr r0, .FirstPokemon
mov r2, #0x64 /* Each Party Pokemon's RAM is 100 bytes long */
mul r2, r5
add r0, r0, r2
mov r1, #0xB /* Species */
mov r2, #0x0
bl Decrypt
ldr r2, .BaseStatTable
mov r1, #0x1C /* Each entry is 0x1C bytes long */
mul r0, r1
add r2, r2, r0
add r2, r2, #0x16 /* First Ability */
add r2, r2, r4 /* If Ability Bit = 0x1, This is the second Ability now */
ldrb r1, [r2] /* Ability is in r1 */
cmp r1, #0x28 /* Magma Armour */
beq HalveTime
cmp r1, #0x28 /* Flame Body */
beq HalveTime
cmp r1, #0xF4 /* Steam Engine */
beq HalveTime
add r5, r5, #0x1 /* Add 1 to Pokemon counter */
cmp r5, #0x6 /* 0x6 means done party */
blt Loop
pop {r0-r5}
b NormalTime

HalveTime:
pop {r0-r5}
sub r0, r0, #0x1

NormalTime:
str r0, [sp]
add r0, r0, r4
mov r1, #0x20
ldr r3, .Return
bx r3

Decrypt:
ldr r3, .Decrypt
bx r3

.align 2
.FirstPokemon: .word 0x02024284
.BaseStatTable: .word 0x08254784
.Decrypt: .word 0x0803FBE9
.Return: .word 0x08046399

 

[AkameTheBulbasaur]

Am I doing something wrong? Whether I edit my hack, or vanilla Fire Red, I get a Bad Egg when I try to use the Magma Armour / Flame Body snippet.

For this bit:


I'm placing 00 49 08 47 10 00 A1

And then for the snippet below, I'm inserting at A10000, using HMA (though I've also tried THUMB Editor & Assembler.

I fixed the routine.

I changed "add r0, r0, r4" to "mov r0, r4". It was supposed to be the second thing (it loads some code from the original function that we overwrote when we branched) but for some reason, I copied the original code wrong.

Also, I fixed another bug. Turns out, I checked for Magma Armour twice and Flame Body zero times. One of the "cmp r1, #0x28" lines should be "cmp r1, #0x31" (0x28 is the index number for Magma Armour and 0x31 is the index number for Flame Body).

This should work correctly now, hopefully.

 

[Battle Trainer 1823]

Greetings, may I request a way to edit Pure Power, so it doubles Special Attack instead? Would help a lot of mons to reach better potential :'3

 

[imaleus]

Thank you! Also fixed.

S-Bird requested I finally get around to doing the Type Absorb abilities, and so I have!
I'll update this post once everything is done.

Lightningrod, Motor Drive, Dry Skin, Storm Drain and Sap Sipper

Spoiler:

Fire Red

Spoiler:

Currently they're just for Emerald and require a few pre-requisites. But I'll port them to Fire Red soon after.
Doesnt has informed me that there is probably going to be a bug with Discharge, Lava Plume, Surf and Petal Blizzard as they target all Pokemon on the field. If this is indeed the case I'll move them around.

Emerald

Spoiler:

Pre Requisites

Spoiler:

First of all, make sure you have the Battle String message loader hack enabled, and the Set word battle scripting command.
These are used in the various battle scripts to display custom messages.

Byte Changes

Spoiler:

042FBF - Change D1 to DA
This enables Volt Absorb to absorb Thunder Wave

043019 - Change D1 to DA
This enables Water Absorb and Dry Skin to absorb Soak

043076 - Change 56 D1 to 00 00
This enables Flash Fire to activate even if Frozen

Type Absorb Ability Table

Spoiler:

Insert this table into free space

0A 00 00 00 AA 2F 04 08
0B 00 00 00 04 30 04 08
12 00 00 00 5C 30 04 08
1F 00 00 00 44 44 44 08
4F 00 00 00 55 55 55 08
58 00 00 00 04 30 04 08
73 00 00 00 66 66 66 08
9E 00 00 00 77 77 77 08
FF 00 00 00 FF FF FF FF

Where 44 44 44 08 refers to the location of the Lightningrod ASM (do not add +1)
Where 55 55 55 08 refers to the location of the Motor Drive ASM (do not add +1)
Where 66 66 66 08 refers to the location of the first Storm Drain ASM (do not add +1)
Where 77 77 77 08 refers to the location of the Sap Sipper ASM (do not add +1)

Type Absorb Loader

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global typeabsorbloader

GetAbilityByte:
	ldrb r0, [r7]
LoadTable:
	push {r1-r6}
	ldr r5, .TableLoc
	mov r3, #0x0
Loop:
	lsl r2, r3, #0x3
	add r2, r2, r5
	ldrb r1, [r2]
	cmp r1, #0xFF
	beq End
	cmp r0, r1
	beq Success
	add r3, #0x1
	b Loop
Success:
	ldr r0, [r2, #0x4]
	pop {r1-r6}
	mov r15, r0
End:
	pop {r1-r6}
	ldr r2, .Return
	bx r2

.align 2

.TableLoc: .word 0x08CCCCCC
.Return: .word 0x08043127

#Insert 00 48 00 47 XX+1 XX XX 08 at 08042F94
#Doesnt has informed me that there is probably going to be a bug with Discharge, Lava Plume, Surf and Petal Blizzard as they target all Pokemon on the field. If this is indeed the case I'll move them around.

CCCCCC refers to the location of the Type Absorb Ability Table.

Routines

Spoiler:

Lightningrod

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global lightningrod

CheckElectricType:
	cmp r3, #0xD
	bne Return
CheckIfSpreadMove:
	ldr r1, .SpreadLoc
	ldr r0, .UserBank
	ldrb r0, [r0]
	lsl r0, r0, #0x4
	add r0, r0, r1
	ldrb r0, [r0, #0x2]
	ldr r1, .ScriptLoc
	lsl r0, r0, #0x1C
	cmp r0, #0x0
	bge RemovePP
SkipPP:
	ldr r0, .RaiseSpAtkBS
	add r0, #0x1
	b RunScript
RemovePP:
	ldr r0, .RaiseSpAtkBS
RunScript:
	str r0, [r1]
	mov r2, #0x2
	mov r9, r2
Return:
	ldr r2, .Return
	bx r2

.align 2

.SpreadLoc: .word 0x0202433C
.UserBank: .word 0x0202420B
.ScriptLoc: .word 0x02024214
.RaiseSpAtkBS: .word 0x08[B]CCCCCC[/B]
.Return: .word 0x08043127

CCCCCC refers to the following battle script that is also used in Storm Drain. It raises the Pokemon's Special Attack.

#dynamic 0x[B]CCCCCC[/B]
#freespacebyte 0xFF

#org @Main
ppreduce
attackstring
pause DELAY_HALFSECOND
jumpifstat BANK_TARGET B_= 0x4 0xC 0x082DB596
setbyte 0x202448F 0x0
playstatchangeanimation BANK_TARGET 0x10 0x0
setbyte 0x202448E 0x14
statbuffchange 0x80 false 0x00000000
setword 0x203E320 0x8[B]DDDDDD[/B]
printstring 0x184
pause DELAY_1SECOND
waitmessage DELAY_1SECOND
orbyte 0x202427C 0x8
goto 0x82D8A4E

DDDDDD refers to the following string that is used in a variety of abilities.

FD 13 B4 E7 00 FD 1B FE E6 D5 DD E7 D9 D8 00 DD
E8 E7 00 CD E4 AD 00 BB E8 DF AB

It says "User's Ability raised it's Sp. Atk!"

Motor Drive

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global motordrive

CheckElectricType:
	cmp r3, #0xD
	bne Return
CheckIfSpreadMove:
	ldr r1, .SpreadLoc
	ldr r0, .UserBank
	ldrb r0, [r0]
	lsl r0, r0, #0x4
	add r0, r0, r1
	ldrb r0, [r0, #0x2]
	ldr r1, .ScriptLoc
	lsl r0, r0, #0x1C
	cmp r0, #0x0
	bge RemovePP
SkipPP:
	ldr r0, .RaiseSpeedBS
	add r0, #0x1
	b RunScript
RemovePP:
	ldr r0, .RaiseSpeedBS
RunScript:
	str r0, [r1]
	mov r2, #0x2
	mov r9, r2
Return:
	ldr r2, .Return
	bx r2

.align 2

.SpreadLoc: .word 0x0202433C
.UserBank: .word 0x0202420B
.ScriptLoc: .word 0x02024214
.RaiseSpeedBS: .word 0x08[B]AAAAAA[/B]
.Return: .word 0x08043127

AAAAAA refers to the following battle script. It raises the Pokemon's Speed.

#dynamic 0x[B]AAAAAA[/B]
#freespacebyte 0xFF

#org @Main
ppreduce
attackstring
pause DELAY_HALFSECOND
jumpifstat BANK_TARGET B_= 0x3 0xC 0x082DB596
setbyte 0x202448F 0x0
playstatchangeanimation BANK_TARGET 0x8 0x0
setbyte 0x202448E 0x13
statbuffchange 0x80 false 0x00000000
setword 0x203E320 0x8[B]BBBBBB[/B]
printstring 0x184
pause DELAY_1SECOND
waitmessage DELAY_1SECOND
orbyte 0x202427C 0x8
goto 0x82D8A4E

BBBBBB refers to the following string that is used in a variety of abilities.

FD 13 B4 E7 00 FD 1B FE E6 D5 DD E7 D9 D8 00 DD
E8 E7 00 CD E4 D9 D9 D8 AB

It says "User's Ability raised it's Speed!"

Dry Skin

Spoiler:

Routine I: Restore HP in Rain

Spoiler:

Routine II: Take Damage in Sun

Spoiler:

Routine III: Increased Fire Damage

Spoiler:

Storm Drain

Spoiler:

Routine I: Increase Sp. Atk

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global stormdrain

CheckWaterType:
	cmp r3, #0xB
	bne Return
CheckIfSpreadMove:
	ldr r1, .SpreadLoc
	ldr r0, .UserBank
	ldrb r0, [r0]
	lsl r0, r0, #0x4
	add r0, r0, r1
	ldrb r0, [r0, #0x2]
	ldr r1, .ScriptLoc
	lsl r0, r0, #0x1C
	cmp r0, #0x0
	bge RemovePP
SkipPP:
	ldr r0, .RaiseSpAtkBS
	add r0, #0x1
	b RunScript
RemovePP:
	ldr r0, .RaiseSpAtkBS
RunScript:
	str r0, [r1]
	mov r2, #0x2
	mov r9, r2
Return:
	ldr r2, .Return
	bx r2

.align 2

.SpreadLoc: .word 0x0202433C
.UserBank: .word 0x0202420B
.ScriptLoc: .word 0x02024214
.RaiseSpAtkBS: .word 0x08[B]CCCCCC[/B]
.Return: .word 0x08043127

CCCCCC refers to the following battle script that is also used in Lightningrod. It raises the Pokemon's Special Attack. If you have already inserted this for Lightning Rod, you don't need to do it again.

#dynamic 0x[B]CCCCCC[/B]
#freespacebyte 0xFF

#org @Main
ppreduce
attackstring
pause DELAY_HALFSECOND
jumpifstat BANK_TARGET B_= 0x4 0xC 0x082DB596
setbyte 0x202448F 0x0
playstatchangeanimation BANK_TARGET 0x10 0x0
setbyte 0x202448E 0x14
statbuffchange 0x80 false 0x00000000
setword 0x203E320 0x8[B]DDDDDD[/B]
printstring 0x184
pause DELAY_1SECOND
waitmessage DELAY_1SECOND
orbyte 0x202427C 0x8
goto 0x82D8A4E

DDDDDD refers to the following string that is used in a variety of abilities.

FD 13 B4 E7 00 FD 1B FE E6 D5 DD E7 D9 D8 00 DD
E8 E7 00 CD E4 AD 00 BB E8 DF AB

It says "User's Ability raised it's Sp. Atk!"

Routine II: Check conditions for Redirection

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global stormdrain

BufferAbility:
	ldrb r1, [r0, #0xC]
	mov r0, #0x58
	mul r0, r1
	add r0, r0, r3
	add r0, #0x20
	ldrb r0, [r0]
	mov r8, r2
	push {r0}
MoveType:
	ldrb r0, [r4, #0x2]
	cmp r0, #0xB
	beq StormDrainCheck
	cmp r0, #0xD
	bne Return
LightningRodCheck:
	pop {r0}
	cmp r0, #0x1F
	beq Return
LightningRod:
	b StormDrain
StormDrainCheck:
	pop {r0}
	cmp r0, #0x73
	beq Return
StormDrain:
	ldr r0, .Return
	bx r0
Return:
	ldr r2, .Return2
	bx r2

.align 2

.Return: .word 0x0803E469
.Return2: .word 0x0803E631

#Insert 00 49 08 47 xx xx xx 08 at 0803E44C

Routine III: Redirect Move

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global stormdrain

BufferAbility:
	mov r0, #0x58
	mul r0, r2
	add r0, r0, r1
	add r0, #0x20
	ldrb r0, [r0]
	push {r0-r4}
BufferMoveType:
	ldr r2, .MoveData
	ldr r0, .MoveIndex
	ldrh r1, [r0]
	lsl r0, r1, #0x1
	add r0, r0, r1
	lsl r0, r0, #0x2
	add r4, r0, r2
MoveType:
	ldrb r0, [r4, #0x2]
	cmp r0, #0xB
	beq StormDrainCheck
	cmp r0, #0xD
	bne Return
LightningRodCheck:
	pop {r0-r4}
	cmp r0, #0x1F
	bne Return
LightningRod:
	b StormDrain
StormDrainCheck:
	pop {r0-r4}
	cmp r0, #0x73
	bne Return
StormDrain:
	ldr r0, .Return
	bx r0
Return:
	ldr r2, .Return2
	bx r2

.align 2

.MoveData: .word 0x0831C898
.MoveIndex: .word 0x020241EA
.Return: .word 0x0803E4B3
.Return2: .word 0x0803E4CF

#Insert 00 48 00 47 xx xx xx 08 at 0803E4A4

Replace 31C898 with the offset for your move table if you have expanded and repointed it.

Sap Sipper

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global sapsipper

CheckGrassType:
	cmp r3, #0xC
	bne Return
CheckIfSpreadMove:
	ldr r1, .SpreadLoc
	ldr r0, .UserBank
	ldrb r0, [r0]
	lsl r0, r0, #0x4
	add r0, r0, r1
	ldrb r0, [r0, #0x2]
	ldr r1, .ScriptLoc
	lsl r0, r0, #0x1C
	cmp r0, #0x0
	bge RemovePP
SkipPP:
	ldr r0, .RaiseAttackBS
	add r0, #0x1
	b RunScript
RemovePP:
	ldr r0, .RaiseAttackBS
RunScript:
	str r0, [r1]
	mov r2, #0x2
	mov r9, r2
Return:
	ldr r2, .Return
	bx r2

.align 2

.SpreadLoc: .word 0x0202433C
.UserBank: .word 0x0202420B
.ScriptLoc: .word 0x02024214
.RaiseAttackBS: .word 0x08[B]888888[/B]
.Return: .word 0x08043127

AAAAAA refers to the following battle script. It raises the Pokemon's Attack.

#dynamic 0x[B]888888[/B]
#freespacebyte 0xFF

#org @Main
ppreduce
attackstring
pause DELAY_HALFSECOND
jumpifstat BANK_TARGET B_= 0x1 0xC 0x082DB596
setbyte 0x202448F 0x0
playstatchangeanimation BANK_TARGET 0x2 0x0
setbyte 0x202448E 0x11
statbuffchange 0x80 false 0x08000000
setword 0x203E320 0x8[B]999999[/B]
printstring 0x184
pause DELAY_1SECOND
waitmessage DELAY_1SECOND
orbyte 0x202427C 0x8
goto 0x82D8A4E

999999 refers to the following string that is used in a variety of abilities.

FD 13 B4 E7 00 FD 1B FE E6 D5 DD E7 D9 D8 00 DD
E8 E7 00 BB E8 E8 D5 D7 DF AB

It says "User's Ability raised it's Attack!"

Does anyone here that uses HMA can help me with these routines? .-. I'm having a hard time with the Sp.Atk boost

 

[Noivsonar]

I know that it is bad to double post, but the precedent was long enough I think, and those abilities are not tied with the precedent.

Implementation of Adaptability/Strong Jaw/Iron Fist/Though Claws/Mega Launcher/Sand Force for Emerald :

Spoiler:

Main routine :

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global basedamageability
 
Main:
	cmp r4, #0x37
	bne Sniper
HustleBoost:
	lsr r0, r7, #0x1
	add r7, r0, r7
Sniper:
	cmp r4, #0x62	/*Number of your ability Sniper*/
	bne Technician
CheckCrit:
	ldr r0, CritLoc
	ldrb r0, [r0]
	cmp r0, #0x2
	bne Return
	b Boost
Technician:
	cmp r4, #0x66	/*Number of your ability Technician*/
	bne SlowStart
CheckBasePower:
	ldr r0, BasePower
	ldrb r0, [r0]
	cmp r0, #0x3D
	bge Return
Boost:
	lsr r0, r7, #0x1
	add r7, r0, r7
	mov r2, r8
	lsr r0, r2, #0x1
	add r0, r0, r2
	mov r8, r0
SlowStart:
	cmp r4, #0x71	/*Number of your ability SlowStart*/
	bne Adaptability
CheckCounter:
	ldr r0, SlowStartLoc
	ldr r2, [sp, #0x10]
	add r0, r0, r2
	ldrb r0, [r0]
	cmp r0, #0x0
	beq Return
AttackDrop:
	lsr r7, r7, #0x1

Adaptability:
	cmp r4, #0x5C	/*Number of your ability Adaptability*/
	beq GetPokeTypes
	b Numberofattackused

Return:
	ldr r0, Return0
	bx r0	

GetPokeTypes:
	push {r0-r5}
	ldr r1, BattleData2
	ldr r0, Bank
	ldrb r0, [r0]
	mov r2, #0x58
	mul r2, r0
	add r1, #0x21
	add r1, r2
	ldrb r0, [r1]
	ldrb r2, [r1, #1]
	bl GetMoveType

CompareIfMatchGetBoost:
	cmp r0, r4
	beq BoostAdapt
	cmp r2, r4
	bne Return2

BoostAdapt:
	mov r0, #0x2B
	mul r7, r0
	lsr r7, #5
	mov r2, r8
	mul r2, r0
	lsr r2, #5
	mov r8, r2

Return2:
	pop {r0-r5}
	b Return

Numberofattackused:
	push {r0-r3, r5}
	ldr r0, CurMoveIndex
	ldrh r3, [r0]
	mov r2, #0
	mov r1, #0

CheckTableAbility:
	cmp r4, #0xAE	  /*Number of your ability StrongJaw*/
	beq StrongJawLoad
	cmp r4, #0xB6	/*Number of your ability Tough Claws*/
	beq ToughClaws
	cmp r4, #0xB3	/*Number of your ability Mega Launcher*/
	beq MegaLauncherLoad
	cmp r4, #0xA0	/*Number of your ability SandForce*/
	beq SandForce
	cmp r4, #0x5A   	/*Number of your ability Iron Fist*/
	bne Return3

IronFistLoad:
	ldr r0, IronFistTable
	b LoopLoad

StrongJawLoad:
    	ldr r0, StrongJawTable
	b LoopLoad

MegaLauncherLoad:
     	ldr r0, MegaLauncherTable

LoopLoad:
   	add r2, r0, r1
     	ldrh r0, [r2]
     	ldr r5, =0x0000FFFF
	cmp r0, r5
	beq Return3
	cmp r0, r3
	beq TestBoost
	mov r2, #0
	add r1, #2
	cmp r4, #0xB3	/*Number of your ability Mega Launcher*/
	beq MegaLauncherLoad
	cmp r4, #0xAE	/*Number of your ability Strong Jaw*/
	beq StrongJawLoad
	cmp r4, #0x5A	/*Number of your ability Iron Fist*/
	beq IronFistLoad
	b Return3

TestBoost:
	cmp r4, #0x5A     /*Number of your ability Iron Fist*/
	beq BoostTwentyPercent
	b BoostFiftyPercent

SandForce:
	ldr r0, CurrentWeather
	ldr r0, [r0]
	cmp r0, #0x18
	beq TypeAttack
	cmp r0, #0x8
	bne Return3

TypeAttack:
	push {r3-r5}
	bl GetMoveType
	cmp r4, #4
	beq PopAndBoostThirtyPercent
	cmp r4, #5
	beq PopAndBoostThirtyPercent
	cmp r4, #8
	beq PopAndBoostThirtyPercent
	pop {r3-r5}
	b Return3	

PopAndBoostThirtyPercent:
	pop {r3-r5}
	push {r0-r4}
	mov r2, #0xD
	mov r0, #0x13
	mov r1, #0
	mov r3, #0
	ldr r4, ability_something
	bl Jump4
	cmp r0, #0
	bne PopReturn3
	mov r2, #0x4D
	mov r0, #0x13
	mov r1, #0
	mov r3, #0
	ldr r4, ability_something
	bl Jump4
	cmp r0, #0
	bne PopReturn3
	pop {r0-r4}
	b BoostThirtyPercent

PopReturn3:
	pop {r0-r4}
	b Return3

BoostTwentyPercent:
	mov r0, #0x4D
	mul r7, r0
	lsr r7, #6
	mov r2, r8
	mul r2, r0
	lsr r2, #6
	mov r8, r2
	b Return3

ToughClaws:
CheckContact:
	ldr r1, MoveData
	mov r2, #0xC
	mul r2, r3
	add r1, r2
	add r1, #0x8
	ldr r1, [r1]
	lsl r1, #0x1F
	lsr r1, #0x1F
	cmp r1, #1
	bne Return3

BoostThirtyPercent:
	mov r0, r8
	mov r3, #0xA7
	mul r0, r3
	lsr r0, #7
	mov r8, r0
	mul r7, r3
	lsr r7, #7
	b Return3

BoostFiftyPercent:
	lsr r0, r7, #0x1
	add r7, r0, r7
	mov r2, r8
	lsr r0, r2, #0x1
	add r0, r0, r2
	mov r8, r0
Return3:
	pop {r0-r3, r5}
	ldr r0, Return0
	bx r0

GetMoveType:
Exception:
	ldr r4, CheckTypeLoc
	ldr r4, [r4]
	ldrb r4, [r4, #0x13]
	mov r5, #0x3F
	and r4, r5
	cmp r4, #0
	beq MoveType
	bx lr

MoveType:
	ldr r3, CurMoveIndex
	ldrh r3, [r3]
	ldr r4, MoveData
	mov r5, #0xC
	mul r5, r3
	add r4, r5
	add r4, #0x2
	ldrb r4, [r4]	
	bx lr

Jump4:
	mov pc, r4

.align 2
IronFistTable: .word 0x08______ /*Location of your Iron fist table*/
StrongJawTable: .word 0x08______ /*Location of your Strong Jaw table*/
MegaLauncherTable: .word 0x08______ /*Location of your Mega Launcher table*/
CheckTypeLoc: .word 0x0202449C
Bank: .word 0x0202420B
MoveData: .word 0x831C898 /*Location of your move data*/
CurMoveIndex: .word 0x020241EA
BattleData2: .word 0x02024084
CritLoc: .word 0x02024211
BasePower: .word 0x020244E0
SlowStartLoc: .word 0x0203E324
Return0: .word 0x0806989A+1
CurrentWeather: .word 0x020243CC
ability_something: .word 0x08042828+1

/* Insert 00 48 00 47 XX+1 XX XX 08 at 0x08069888 */

Info for the tables Abilities :

Spoiler:

For IronFistTable, Mega Launcher and StrongJawTable you have to create three tables with the number in hex reversed of the moves affected. Exemple : if you're using a vanilla Emerald your StrongJaw table should look like this : 2C 00 F2 00 31 01 (reversed number of Bite, Crunch and Poison Fang).

Iron Fist Vanilla Table: 02 00 04 00 05 00 07 00 08 00 09 00 B7 00 DF 00 35 01 (thunder/fire/ice punch, mega punch etc..)

Mega Launcher vanilla Table: 60 01 (yeah this one is not that useful without adding new moves)

You can change it accordingly to what you want.

Tough claws check the "contact" flag, you can simply edit with G3T what move you want to be affected. (The default setting are those used in official genVI games).

Sand Force checks directly the type and the sandstorm, as well as if a pokémon on the field has Air lock or Cloud nine.

Prevent taking damage from Sandstorm for Sand Force :

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global sandforcenoadamage

Start:
add r0, #0x20
ldrb r0, [r0]
cmp r0, #8
beq NoDamage
cmp r0, #0x5C	/*Number of your ability SandForce*/
beq NoDamage
ldr r0, Return
bx r0

NoDamage:
ldr r1, Untouched
bx r1

.align 2
Return: .word 0x08051B94+1
Untouched: .word 0x08051BD4+1

/*Type 00 49 08 47 xx+1 xx xx 08 at 08051B8C*/

I used the same location to hook than MrDollSteak's technician because it seemed to be appriopriate to me.

I edited this ASM by kleenex to include Sharpness [EM]

Sharpness Table:

Spoiler:

0A 00 4C 00 A4 00 D3 00 3B 01 4E 01 5D 01
This Includes Cut, Razor Leaf, Slash, Fury Cutter, Air Cutter, Aerial Ace, and Leaf Blade,

ASM:

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global basedamageability

Main:
cmp r4, #0x37
bne Sniper
HustleBoost:
lsr r0, r7, #0x1
add r7, r0, r7
Sniper:
cmp r4, #0x62 /*Number of your ability Sniper*/
bne Technician
CheckCrit:
ldr r0, CritLoc
ldrb r0, [r0]
cmp r0, #0x2
bne Return
b Boost
Technician:
cmp r4, #0x66 /*Number of your ability Technician*/
bne SlowStart
CheckBasePower:
ldr r0, BasePower
ldrb r0, [r0]
cmp r0, #0x3D
bge Return
Boost:
lsr r0, r7, #0x1
add r7, r0, r7
mov r2, r8
lsr r0, r2, #0x1
add r0, r0, r2
mov r8, r0
SlowStart:
cmp r4, #0x71 /*Number of your ability SlowStart*/
bne Adaptability
CheckCounter:
ldr r0, SlowStartLoc
ldr r2, [sp, #0x10]
add r0, r0, r2
ldrb r0, [r0]
cmp r0, #0x0
beq Return
AttackDrop:
lsr r7, r7, #0x1

Adaptability:
cmp r4, #0x5C /*Number of your ability Adaptability*/
beq GetPokeTypes
b Numberofattackused

Return:
ldr r0, Return0
bx r0

GetPokeTypes:
push {r0-r5}
ldr r1, BattleData2
ldr r0, Bank
ldrb r0, [r0]
mov r2, #0x58
mul r2, r0
add r1, #0x21
add r1, r2
ldrb r0, [r1]
ldrb r2, [r1, #1]
bl GetMoveType

CompareIfMatchGetBoost:
cmp r0, r4
beq BoostAdapt
cmp r2, r4
bne Return2

BoostAdapt:
mov r0, #0x2B
mul r7, r0
lsr r7, #5
mov r2, r8
mul r2, r0
lsr r2, #5
mov r8, r2

Return2:
pop {r0-r5}
b Return

Numberofattackused:
push {r0-r3, r5}
ldr r0, CurMoveIndex
ldrh r3, [r0]
mov r2, #0
mov r1, #0

CheckTableAbility:
cmp r4, #0xAE /*Number of your ability StrongJaw*/
beq StrongJawLoad
cmp r4, #0xB6 /*Number of your ability Tough Claws*/
beq ToughClaws
cmp r4, #0xB3 /*Number of your ability Mega Launcher*/
beq MegaLauncherLoad
cmp r4, #0x124 /*Number of your ability Sharpness*/
beq SharpnessLoad
cmp r4, #0xA0 /*Number of your ability SandForce*/
beq SandForce
cmp r4, #0x5A /*Number of your ability Iron Fist*/
bne Return3

IronFistLoad:
ldr r0, IronFistTable
b LoopLoad

StrongJawLoad:
ldr r0, StrongJawTable
b LoopLoad

MegaLauncherLoad:
ldr r0, MegaLauncherTable
b LoopLoad

SharpnessLoad:
ldr r0, SharpnessTable

LoopLoad:
add r2, r0, r1
ldrh r0, [r2]
ldr r5, =0x0000FFFF
cmp r0, r5
beq Return3
cmp r0, r3
beq TestBoost
mov r2, #0
add r1, #2
cmp r4, #0xB3 /*Number of your ability Mega Launcher*/
beq MegaLauncherLoad
cmp r4, #0xAE /*Number of your ability Strong Jaw*/
beq StrongJawLoad
cmp r4, #0x124 /*Number of your ability Sharpness*/
beq SharpnessLoad
cmp r4, #0x5A /*Number of your ability Iron Fist*/
beq IronFistLoad
b Return3

TestBoost:
cmp r4, #0x5A /*Number of your ability Iron Fist*/
beq BoostTwentyPercent
b BoostFiftyPercent

SandForce:
ldr r0, CurrentWeather
ldr r0, [r0]
cmp r0, #0x18
beq TypeAttack
cmp r0, #0x8
bne Return3

TypeAttack:
push {r3-r5}
bl GetMoveType
cmp r4, #4
beq PopAndBoostThirtyPercent
cmp r4, #5
beq PopAndBoostThirtyPercent
cmp r4, #8
beq PopAndBoostThirtyPercent
pop {r3-r5}
b Return3

PopAndBoostThirtyPercent:
pop {r3-r5}
push {r0-r4}
mov r2, #0xD
mov r0, #0x13
mov r1, #0
mov r3, #0
ldr r4, ability_something
bl Jump4
cmp r0, #0
bne PopReturn3
mov r2, #0x4D
mov r0, #0x13
mov r1, #0
mov r3, #0
ldr r4, ability_something
bl Jump4
cmp r0, #0
bne PopReturn3
pop {r0-r4}
b BoostThirtyPercent

PopReturn3:
pop {r0-r4}
b Return3

BoostTwentyPercent:
mov r0, #0x4D
mul r7, r0
lsr r7, #6
mov r2, r8
mul r2, r0
lsr r2, #6
mov r8, r2
b Return3

ToughClaws:
CheckContact:
ldr r1, MoveData
mov r2, #0xC
mul r2, r3
add r1, r2
add r1, #0x8
ldr r1, [r1]
lsl r1, #0x1F
lsr r1, #0x1F
cmp r1, #1
bne Return3

BoostThirtyPercent:
mov r0, r8
mov r3, #0xA7
mul r0, r3
lsr r0, #7
mov r8, r0
mul r7, r3
lsr r7, #7
b Return3

BoostFiftyPercent:
lsr r0, r7, #0x1
add r7, r0, r7
mov r2, r8
lsr r0, r2, #0x1
add r0, r0, r2
mov r8, r0
Return3:
pop {r0-r3, r5}
ldr r0, Return0
bx r0

GetMoveType:
Exception:
ldr r4, CheckTypeLoc
ldr r4, [r4]
ldrb r4, [r4, #0x13]
mov r5, #0x3F
and r4, r5
cmp r4, #0
beq MoveType
bx lr

MoveType:
ldr r3, CurMoveIndex
ldrh r3, [r3]
ldr r4, MoveData
mov r5, #0xC
mul r5, r3
add r4, r5
add r4, #0x2
ldrb r4, [r4]
bx lr

Jump4:
mov pc, r4

.align 2
IronFistTable: .word 0x08______ /*Location of your Iron fist table*/
StrongJawTable: .word 0x08______ /*Location of your Strong Jaw table*/
MegaLauncherTable: .word 0x08______ /*Location of your Mega Launcher table*/
SharpnessTable: .word 0x08______ /*Location of your Sharpness table*/
CheckTypeLoc: .word 0x0202449C
Bank: .word 0x0202420B
MoveData: .word 0x831C898 /*Location of your move data*/
CurMoveIndex: .word 0x020241EA
BattleData2: .word 0x02024084
CritLoc: .word 0x02024211
BasePower: .word 0x020244E0
SlowStartLoc: .word 0x0203E324
Return0: .word 0x0806989A+1
CurrentWeather: .word 0x020243CC
ability_something: .word 0x08042828+1

]

 

[ZekroSlice]

Can y'all help me ? I'm doing a Ruby hack and was wondering if anyone could help me with adding new abilities like this in my hack 🙏🏾

 

[Noivsonar]

Hiya there aren't many abilities here available for Ruby, but you will need to know the basics to compiling an ASM into a bin. file.

 

[Noivsonar]

I edited the routine of Overcoat/Bulletproof to include Dazzling and its variants, as well as Good as Gold.
[EM]

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global overcoatbulletproof

BufferAbility:
ldrb r0, [r7]
SoundproofCheck:
cmp r0, #0x2B
bne OvercoatCheck
Soundproof:
ldr r0, .Return
bx r0
OvercoatCheck:
cmp r0, #0xX
bne GoldCheck
Overcoat:
ldr r0, .OvercoatTable
b StartLoop
DazzlingCheck:
cmp r0, #0xX
bne QueenlyMajestyCheck
Dazzling:
ldr r0, .PriorityTable
b StartLoop
QueenlyMajestyCheck:
cmp r0, #0xX
bne ArmorTailCheck
QueenlyMajesty:
ldr r0, .PriorityTable
b StartLoop
ArmorTailCheck:
cmp r0, #0xX
bne GoldCheck
ArmorTail:
ldr r0, .PriorityTable
b StartLoop
GoldCheck:
cmp r0, #0xX
bne BulletproofCheck
Gold:
ldr r0, .GoldTable
b StartLoop
BulletproofCheck:
cmp r0, #0xX
bne Return
Bulletproof:
ldr r0, .BulletproofTable
StartLoop:
mov r4, #0x0
ldr r2, .Return2
bx r2
Return:
ldr r1, .Return3
bx r1

Loop:

.align 2
.Return: .word 0x08042F03
.OvercoatTable: .word 0x08AAAAAA
.BulletproofTable: .word 0x08BBBBBB
.PriorityTable: .word 0x08CCCCCC
.GoldTable: .word 0x08DDDDDD
.Return2: .word 0x08042F07
.Return3: .word 0x08042F11

 

[Pokémon Hack Lab]

ABILITY POP-UP [FR]

As you can see in the video, its a simply ability pop-up for binary, using the code for the battle lvl up banner as a base. But the image is still editable like other things bellow.
* The pokemon's icon visibility and its position on the boxes are editable.
* The box's position is editable.
* There is two text align chosen on the ASM, Right or left align.

First inserts the callasm command that can be found here: https://www.pokecommunity.com/threads/quick-research-development-thread.205158/post-7101031

then, add the pointer for the asm bellow.

All credits go to Blackuser.

Spoiler:

@ Credits to blackuser
.thumb
.thumb_func
.global AbilityPopUp

.equ MyLoc, 0x900000 @ Location of non hooking resource area(main routines plus Battle Scripts).
.equ AbilityDataLoc, 0x0824FC40 @ Change it if you have expanded your ability name data location.
.equ LoadIcon, 0x1 @ Change it to 0 if you don't want to display the poke icon on the pop up box.
.equ LoadAbilityPopUpCommand, 0xF9 @ The battle script command that calls the box(need go to your battlescript command table and make a pointer for this asm +1).
.equ CallAsmCommand, 0xF8 @ The battle script command that call asms(this asm does't insert this, you will need do it yourself).
.equ BoxImage, 0x082506F0 @ Offset where you inserted the box image.
.equ BoxPallet, 0x082506D0 @ Offset where you inserted the box palette.

@ The box will need have 96x24 of width and height respectively, and 16 colours.
@ Insert the box image using NSE(need be compressed).
@ Insert the box palette using NSE(don't need be compressed).
@ The first color of the palette is the transparent color.
@ The second color of the palette(counting with the transparent color) is used for the text image. (will need be different of the body color of the box).
@ The third color of the palette(counting with the transparent color) is used for the text shadow. (will need be different of the body color of the box and the color of the text image).

@ Command Arguments

@ (command iD)(byte)(bank)(ability iD)

@ The first parameter 0,1 or 2
@ If 0x0 removes the ability pop-up box(the second parameter is used for choose the return anim, the third parameter is not used(set to zero))
@ If 0x1 load the ability pop-up box
@ If 0x2 the third parameter is another bank and the loaded ability iD depends on it(see banks below)(the second parameter is still used for choose the side(so it's possible display the target ability on the user side)). Can be used for moves like Skill Swap.

@ The second parameter (the bank) (used for choose in what side show the box and the anim)
@ 0x0= target bank (02023d6c)
@ 0x1= user bank (02023d6b)
@ 0xA= scripting bank (02023fdb)
@ And others...

@ The third parameter is the ability iD (if it's zero it load the ability iD from the buffer loc(02023d6a))

.equ RomAreaOffset, 0x8000000

@ Also includes an updated effect of sturdy and intimidate

@ Script References
@ This only covers the gen3 abilities and does't include the moves
.equ ClearBodyWhiteSmokepointer, 0x27e04
.equ ColorChangepointer, 0x1aa58
.equ CuteCharmpointer, 0x1b00c
.equ Damppointer, 0x271bc
.equ Drizzlepointer, 0x1a2a4
.equ Droughtpointer, 0x1a304
.equ SandStreampointer, 0x1a2d4
.equ EffectSporePoisonPointPoisonpointer, 0x250634
.equ EffectSporeSleeppointer, 0x250630
.equ SynchronizeEffectSporeStaticParalizepointer, 0x250640
.equ FlashFirepointer1, 0x1a7d0
.equ FlashFirepointer2, 0x1a7f4
.equ FlashFirepointer3, 0x1a824
.equ FlashFirepointer4, 0x1a870
.equ Forescastpointer, 0x1d92f9
.equ HyperCutterKeenEyepointer1, 0x27e64
.equ HyperCutterKeenEyepointer2, 0x27ec8
.equ SynchronizeImmunitypointer1, 0x201dc
.equ Immunitypointer2, 0x2049c
.equ Immunitypointer3, 0x20508
.equ Immunitypointer4, 0x1d6e60
.equ SynchronizeWaterVeilpointer1, 0x202b0
.equ WaterVeilpointer2, 0x20300
.equ WaterVeilpointer3, 0x1d7f88
.equ Limberpointer1, 0x20428
.equ Limberpointer2, 0x1d7256
.equ LiquidOozepointer, 0x1d6a14
.equ LiquidOozeLeechSeedpointer, 0x1d8b6e
.equ OwnTempopointer1, 0x1d70b1
.equ OwnTempopointer2, 0x1d7901
.equ OwnTempopointer3, 0x1d7f13
.equ RainDishpointer, 0x1a4a0
.equ RoughSkinpointer, 0x1ab18
.equ InnerFocuspointer, 0x2086c
.equ WaterAbsorbVoltAbsorbpointer1, 0x1a894
.equ WaterAbsorbVoltAbsorbpointer2, 0x1a880
.equ WaterAbsorbVoltAbsorbpointer3, 0x1a70c
.equ WaterAbsorbVoltAbsorbpointer4, 0x1a764
.equ WaterAbsorbVoltAbsorbpointer5, 0x1a6f8
.equ WaterAbsorbVoltAbsorbpointer6, 0x1a750
.equ SoundProofpointer, 0x1a694
.equ ShedSkinpointer, 0x1a588
.equ Truantpointer, 0x19604
.equ SpeedBoostpointer, 0x1a5d4
.equ StickyHoldpointer1, 0x20d8c
.equ StickyHoldpointer2, 0x21054
.equ StickyHoldpointer3, 0x2c250
.equ Tracepointer, 0x1bb18
.equ SuctionCupspointer, 0x1d6cb7
.equ SturdyPointer, 0x289f0
.equ SturdyUpdatePointer, 0x1fccc
.equ SturdyUpdateAsmPointer1, 0x1f1d2
.equ SturdyUpdateAsmPointer2, 0x1fc12
.equ ArenaTrapShadowTagMagnetPullPointer, 0x14744
.equ RunAwayPointer, 0x158b0
.equ ObliviousPointer, 0x28f8c
.equ VitalSpiritInsomniaPointer, 0x1d6985
.equ FlameBodyPointer, 0x250638
.equ WonderGuardLevitateAsmPointer, 0x1fbd2
.equ IntimidatePointer, 0x1d9308

@Sort the order of these .orgs in increasing order of locations so you don't get the error message: attempt to move .org backwards.

@NewScriptsRepoint
.org ArenaTrapShadowTagMagnetPullPointer
.word NewMagnetPullShadowTagArenaTrapScript+RomAreaOffset

.org RunAwayPointer
.word NewRunAwayScript+RomAreaOffset

.org Truantpointer
.word NewTruantScript+RomAreaOffset

.org Drizzlepointer
.word NewDrizzleScript+RomAreaOffset

.org SandStreampointer
.word NewSandStreamScript+RomAreaOffset

.org Droughtpointer
.word NewDroughtScript+RomAreaOffset

.org RainDishpointer
.word NewRainDishScript+RomAreaOffset

.org ShedSkinpointer
.word NewShedSkinScript+RomAreaOffset

.org SpeedBoostpointer
.word NewSpeedBoostScript+RomAreaOffset

.org SoundProofpointer
.word NewSoundProofScript+RomAreaOffset

.org WaterAbsorbVoltAbsorbpointer5
.word NewWaterAbsorbVoltAbsorbScript2+RomAreaOffset+1

.org WaterAbsorbVoltAbsorbpointer3
.word NewWaterAbsorbVoltAbsorbScript2+RomAreaOffset

.org WaterAbsorbVoltAbsorbpointer6
.word NewWaterAbsorbVoltAbsorbScript2+RomAreaOffset+1

.org WaterAbsorbVoltAbsorbpointer4
.word NewWaterAbsorbVoltAbsorbScript2+RomAreaOffset

.org FlashFirepointer1
.word NewFlashFireScript+RomAreaOffset+1

.org FlashFirepointer2
.word NewFlashFireScript+RomAreaOffset

.org FlashFirepointer3
.word NewFlashFireScript+RomAreaOffset+1

.org FlashFirepointer4
.word NewFlashFireScript+RomAreaOffset

.org WaterAbsorbVoltAbsorbpointer2
.word NewWaterAbsorbVoltAbsorbScript+RomAreaOffset+1

.org WaterAbsorbVoltAbsorbpointer1
.word NewWaterAbsorbVoltAbsorbScript+RomAreaOffset

.org ColorChangepointer
.word NewColorChangeScript+RomAreaOffset

.org RoughSkinpointer
.word NewRoughSkinScript+RomAreaOffset

.org CuteCharmpointer
.word NewCuteCharmScript+RomAreaOffset

.org Tracepointer
.word NewTraceScript+RomAreaOffset

.org SturdyUpdateAsmPointer1
ldr r1, [r0, r1]
ldr r5, .SturdyUpdateASMHook
bx r5

.align 2
.SturdyUpdateASMHook: .word NewSturdyUpdateHook+RomAreaOffset+1

.org WonderGuardLevitateAsmPointer
ldr r3, .LevitateWonderGuardHook
bx r3
lsl r0, #0x0

.align 2
.LevitateWonderGuardHook: .word NewLevitateWonderGuardHook+RomAreaOffset+1

.org SturdyUpdateAsmPointer2
lsl r0, #0x0
ldr r1, .SturdyUpdateASMHook2
bx r1

.align 2
.SturdyUpdateASMHook2: .word NewSturdyUpdateHook2+RomAreaOffset+1

.org SturdyUpdatePointer
.word NewSturdyUpdateScript+RomAreaOffset

.org SynchronizeImmunitypointer1
.word NewSynchronizeImmunityScript+RomAreaOffset

.org SynchronizeWaterVeilpointer1
.word NewSynchronizeWaterVeilScript+RomAreaOffset

.org WaterVeilpointer2
.word NewSynchronizeWaterVeilScript+RomAreaOffset

.org Limberpointer1
.word NewLimberScript+RomAreaOffset

.org Immunitypointer2
.word NewSynchronizeImmunityScript+RomAreaOffset

.org Immunitypointer3
.word NewSynchronizeImmunityScript+RomAreaOffset

.org InnerFocuspointer
.word NewInnerFocusScript+RomAreaOffset

.org StickyHoldpointer1
.word NewStickyHoldScript+RomAreaOffset

.org StickyHoldpointer2
.word NewStickyHoldScript+RomAreaOffset

.org Damppointer
.word NewDampScript+RomAreaOffset

.org ClearBodyWhiteSmokepointer
.word NewClearBodyWhiteSmokeScript+RomAreaOffset

.org HyperCutterKeenEyepointer1
.word NewHyperCutterKeenEyeScript+RomAreaOffset

.org HyperCutterKeenEyepointer2
.word NewHyperCutterKeenEyeScript+RomAreaOffset

.org SturdyPointer
.word NewSturdyScript+RomAreaOffset

.org ObliviousPointer
.word NewObliviousScript+RomAreaOffset

.org StickyHoldpointer3
.word NewStickyHoldScript+RomAreaOffset

.org VitalSpiritInsomniaPointer
.word NewVitalSpiritInsomniaScript+RomAreaOffset

.org LiquidOozepointer
.word NewLiquidOozeScript+RomAreaOffset

.org SuctionCupspointer
.word NewSuctionCupsScript+RomAreaOffset

.org Immunitypointer4
.word NewSynchronizeImmunityScript+RomAreaOffset

.org OwnTempopointer1
.word NewOwnTempoScript+RomAreaOffset

.org Limberpointer2
.word NewLimberScript+RomAreaOffset

.org OwnTempopointer2
.word NewOwnTempoScript+RomAreaOffset

.org OwnTempopointer3
.word NewOwnTempoScript+RomAreaOffset

.org WaterVeilpointer3
.word NewSynchronizeWaterVeilScript+RomAreaOffset

.org LiquidOozeLeechSeedpointer
.word NewLiquidOozeLeechSeedScript+RomAreaOffset

.org Forescastpointer
.word NewForescastScript+RomAreaOffset

.org IntimidatePointer
.word NewIntimidateScript+RomAreaOffset

.org EffectSporeSleeppointer
.word NewEffectSporeSleepScript+RomAreaOffset

.org EffectSporePoisonPointPoisonpointer
.word NewEffectSporePoisonPointPoisonScript+RomAreaOffset

.org FlameBodyPointer
.word NewFlameBodyScript+RomAreaOffset

.org SynchronizeEffectSporeStaticParalizepointer
.word NewSynchronizeEffectSporeStaticParalizeScript+RomAreaOffset

.align 2
.org MyLoc

Abilitypopup:
push {r4-r7,lr}
mov r7, r8
push {r7}
add sp, #-0x10
ldr r4, .SCRIPTPOINTER
ldr r5, [r4]
ldrb r0, [r5, #0x2]
ldr r1, .GETBANK
bl BX_r1
ldr r1, .SCRIPTBANK
strb r0, [r1]
ldrb r2, [r5, #0x1]
cmp r2, #0x0
bne LOADBOX
add r0, #0x80
strb r0, [r1]
b REMOVEBOX

LOADBOX:
ldr r4, .BATTLEBG2_Y
mov r0, #0x60
strh r0, [r4]
mov r0, #0x2
mov r1, #0x7
mov r2, #0x0
ldr r3, .SETBGATTRIBUTE
bl BX_r3
mov r0, #0x2
ldr r1, .SHOWBG
bl BX_r1
ldr r1, .BATTLEBG2_X
ldr r0, .SCRIPTBANK
ldrb r0, [r0]
cmp r0, #0x1
beq TARGETBOX
cmp r0, #0x3
beq TARGETBOX
mov r0, #0xb0 @User box pos y
mov r2, #0xbc
lsl r2, #0x2
b SETBOX

TARGETBOX:
mov r0, #0x8 @Target box pos y
neg r0, r0
mov r2, #0xd0
lsl r2, #0x1

SETBOX:
strh r0, [r4]
strh r2, [r1]
ldr r0, .BOXPAL
mov r1, #0x60
mov r2, #0x20
ldr r3, .LOADPAL
bl BX_r3
mov r0, #0xd
ldr r1, .BOXIMG
mov r2, #0x0
mov r3, #0x0
ldr r4, .COPYTOWINDOW
bl BX_r4
mov r0, #0xd
ldr r1, .PUTTOTILEMAP
bl BX_r1
mov r0, #0xd
mov r1, #0x3
ldr r2, .COPYTOVRAM
bl BX_r2
ldr r0, .SCRIPTBANK
ldrb r0, [r0]
mov r1, #0x58
mul r0, r1
ldr r1, .BATTLEDATA
add r0, #0x30
add r0, r1
ldr r7, .BUFFERRAM
mov r1, #0x0

GETNAMELOOP:
ldrb r2, [r0, r1]
cmp r2, #0xff
beq SETNAME
strb r2, [r7, r1]
add r1, #0x1
b GETNAMELOOP

SETNAME:
add r1, r7
mov r0, #0xb4
strb r0, [r1]
mov r0, #0xe7
strb r0, [r1, #0x1]
mov r0, #0xff
strb r0, [r1, #0x2]
str r7, [sp]
mov r1, sp
mov r4, #0x0
mov r0, #0xd
strb r0, [r1, #0x4]
mov r0, sp
mov r5, #0x22 @Text pos x (Left = 4 / Right = 22)
strb r4, [r0, #0x5]
strb r5, [r0, #0x6]
strb r4, [r0, #0x7]
strb r5, [r0, #0x8]
strb r4, [r0, #0x9]
strb r4, [r0, #0xa]
strb r4, [r0, #0xb]
mov r3, sp
ldrb r2, [r3, #0xc]
mov r1, #0x10
neg r1, r1
mov r0, r1
and r0, r2
strb r0, [r3, #0xc]
mov r2, sp
mov r0, #0x10
strb r0, [r2, #0xc]
ldrb r0, [r2, #0xd]
and r1, r0
strb r1, [r2, #0xd]
mov r0, sp
mov r5, #0x20
strb r5, [r0, #0xd]
mov r1, #0xff
mov r2, #0x0
ldr r3, .ADDTEXTPRINTER
bl BX_r3
ldr r3, .SCRIPTPOINTER
ldr r3, [r3]
ldrb r2, [r3, #0x3]
ldrb r3, [r3, #0x1]
cmp r3, #0x2
beq LOADFROMDATA
cmp r2, #0x0
bne DISPLAYABILITY
ldr r2, .ABILITYBUFFER
ldrb r2, [r2]
b DISPLAYABILITY

LOADFROMDATA:
mov r0, r2
ldr r1, .GETBANK
bl BX_r1
mov r1, #0x58
mul r0, r1
ldr r1, .BATTLEDATA
add r1, #0x20
ldrb r2, [r1, r0]

DISPLAYABILITY:
mov r1, #0xd
mul r2, r1
ldr r1, .ABILITYDATA
add r0, r2, r1
str r0, [sp]
mov r0, sp
mov r1, #0xa
strb r1, [r0, #0x7]
strb r1, [r0, #0x9]
mov r1, #0xff
mov r2, #0x0
ldr r3, .ADDTEXTPRINTER
bl BX_r3
mov r0, #0xd
mov r1, #0x2
ldr r3, .COPYTOVRAM
bl BX_r3
.if LoadIcon == 1
bl LOADPOKEICON
.endif

REMOVEBOX:
ldr r4, .SCRIPTPOINTER
ldr r0, [r4]
add r0, #0x4
ldr r1, .PUSHSCRIPT
bl BX_r1
ldr r0, .ANIMSCRIPT
str r0, [r4]
add sp, #0x10
pop {r3}
mov r8, r3
pop {r4-r7}
pop {r0}
bx r0

.if LoadIcon == 1
LOADPOKEICON:
push {r4-r6,lr}
mov r6, r8
push {r6}
add sp, #-0x10
ldr r0, .SCRIPTBANK
ldrb r0, [r0]
mov r1, #0x58
mul r0, r1
ldr r1, .BATTLEDATA
add r0, r1
ldr r1, [r0, #0x48]
ldrh r0, [r0]
mov r4, r0
mov r2, #0x1
ldr r3, .GETICONIMG
bl BX_r3
str r0, [sp]
ldr r5, .MAKER1
ldr r0, [sp, #0x4]
and r0, r5
mov r1, #0x80
lsl r1, #0x2
orr r0, r1
ldr r1, .MAKER2
and r0, r1
ldr r1, .TAG1
orr r0, r1
str r0, [sp, #0x4]
mov r0, r4
ldr r1, .GETICONPAL
bl BX_r1
str r0, [sp, #0x8]
add r4, sp, #0x8
ldr r0, [r4, #0x4]
and r0, r5
ldr r1, .TAG2
orr r0, r1
str r0, [r4, #0x4]
mov r0, sp
ldr r1, .LOADICONIMG
bl BX_r1
mov r0, r4
ldr r1, .LOADICONPAL
bl BX_r1
ldr r0, .SCRIPTBANK
ldrb r0, [r0]
cmp r0, #0x1
beq TARGETICONPOS
cmp r0, #0x3
beq TARGETICONPOS
mov r1, #0xA2 @User icon x pos (Left = DE / Right = A2)
mov r2, #0x58 @User icon y pos
b LOADICONOAM

TARGETICONPOS:
mov r1, #0xA2 @Target icon x pos (Left = DE / Right = A2)
mov r2, #0x10 @Target icon y pos

LOADICONOAM:
ldr r0, .ICON_CB
mov r3, #0x0
ldr r4, .CREATEICONOAMSPRITE
bl BX_r4
lsl r0, #0x18
lsr r0, #0x18
ldr r2, .SPRITES
lsl r1, r0, #0x4
add r1, r0
lsl r1, #0x2
add r1, r2
mov r0, #0x0
strh r0, [r1, #0x2e]
add sp, #0x10
pop {r3}
mov r8, r3
pop {r4-r6}
pop {r0}
bx r0
.endif

BX_r1:
bx r1

BX_r2:
bx r2

BX_r3:
bx r3

BX_r4:
bx r4

.align 2
.if LoadIcon == 1
.GETICONIMG: .word 0x08097055
.GETICONPAL: .word 0X080971CD
.MAKER1: .word 0XFFFF0000
.MAKER2: .word 0x0000FFFF
.TAG1: .word 0xD75A0000
.TAG2: .word 0x0000D75A
.LOADICONIMG: .word 0x080086DD
.LOADICONPAL: .word 0x08008929
.ICON_CB: .word 0x082507C8
.CREATEICONOAMSPRITE: .word 0x08006F8D
.SPRITES: .word 0x0202063c
.endif
.SCRIPTPOINTER: .word 0x02023D74
.BATTLEBG2_X: .word 0x0202297C
.BATTLEBG2_Y: .word 0x0202297E
.SETBGATTRIBUTE: .word 0x080019E5
.SHOWBG: .word 0x080019BD
.LOADPAL: .word 0x080703ED
.COPYTOWINDOW: .word 0x08004405
.PUTTOTILEMAP: .word 0x08003FA1
.COPYTOVRAM: .word 0x08003F21
.GETBANK: .word 0x08016E25
.BATTLEDATA: .word 0x02023BE4
.BUFFERRAM: .word 0x0202298C
.ADDTEXTPRINTER: .word 0x08002CF5
.ABILITYBUFFER: .word 0x02023D6A
.PUSHSCRIPT: .word 0x08017521
.SCRIPTBANK: .word 0x02023FDB
.ABILITYDATA: .word AbilityDataLoc
.BOXIMG: .word BoxImage
.BOXPAL: .word BoxPallet
.ANIMSCRIPT: .word AnimBox+RomAreaOffset

.align 2
ANIMBOXASM:
push {r4-r7,lr}
mov r5, #0x5 @how lower this more slow the box move it, need be higer than 0
ldr r0, .BGX
ldrh r1, [r0]
ldr r3, .BANK
ldrb r2, [r3]
cmp r2, #0x80
bhs removebox
cmp r2, #0x0
beq loaduserbox
cmp r2, #0x2
beq loaduserbox
mov r4, #0x80 @0x80*4=0x200 : target box x pos
lsl r4, #0x2
cmp r1, r4
bcs endfunc
add r1, r5
cmp r1, r4
bhi adjust
b set

loaduserbox:
mov r4, #0xa4 @0xA4*4=0x290 : user box x pos
lsl r4, #0x2
cmp r1, r4
bls endfunc
sub r1, r5
cmp r1, r4
bcc adjust
b set

removebox:
mov r4, r2
sub r4, #0x80
cmp r4, #0x1
beq removetargetbox
cmp r4, #0x3
beq removetargetbox
mov r4, #0xbf
lsl r4, #0x2
cmp r1, r4
beq removeandend
add r1, r5
cmp r1, r4
bhs adjust
b set

removetargetbox:
mov r4, #0xc7
lsl r4, #0x1
cmp r1, r4
beq removeandend
sub r1, r5
cmp r1, r4
bhs set

adjust:
mov r1, r4

set:
strh r1, [r0]
ldr r0, .POINTER
ldr r1, [r0]
sub r1, #0x5
str r1, [r0]
b endfunc

removeandend:
sub r2, #0x80
strb r2, [r3]
mov r0, #0xd
ldr r1, .REMOVEBOXFUNC1
bl call_r1
mov r0, #0xd
mov r1, #0x1
ldr r2, .REMOVEBOXFUNC2
bl call_r2
mov r0, #0x2
mov r1, #0x7
mov r2, #0x2
ldr r3, .REMOVEBOXFUNC3
bl call_r3
mov r0, #0x2
ldr r1, .REMOVEBOXFUNC4
bl call_r1
ldr r0, .BGX
mov r1, #0x0
strh r1, [r0]

endfunc:
pop {r4-r7,pc}

call_r1:
bx r1

call_r2:
bx r2

call_r3:
bx r3

.align 2
.BGX: .word 0x0202297C
.BANK: .word 0x02023FDB
.POINTER: .word 0x02023D74
.REMOVEBOXFUNC1: .word 0x080040B9
.REMOVEBOXFUNC2: .word 0x08003F21
.REMOVEBOXFUNC3: .word 0x080019E5
.REMOVEBOXFUNC4: .word 0x080019BD

.align 2
CheckIfSturdyIsLifingTarget:
ldr r0, .bank
ldrb r0, [r0]
lsl r0, #0x4
ldr r1, .loc
ldrb r0, [r1, r0]
mov r1, #0x2
and r0, r1
cmp r0, #0x0
beq sturdyeffect
ldr r1, .currpointer
ldr r0, .script
str r0, [r1]

sturdyeffect:
bx lr

.align 2
.bank: .word 0x02023d6c
.loc: .word 0x02023e8c
.currpointer: .word 0x02023d74
.script: .word 0x081d8fd8

@NewSturdyHookRoutine
.align 2
NewSturdyUpdateHook:
mov r5, r2
mov r0, #0x80
lsl r0, #0x11
and r1, r0
cmp r1, #0x0
bne subsreturn
mov r0, #0x58
mul r0, r4
add r0, r5
add r0, #0x20
ldrb r2, [r0]
cmp r2, #0x5
bne falseswipecheck
ldrh r1, [r0, #0x8]
ldrh r0, [r0, #0xc]
cmp r0, r1
bne falseswipecheck
ldr r2, .damageloc
ldr r0, [r2]
cmp r1, r0
bgt subsreturn
sub r0, r1, #0x1
str r0, [r2]
ldr r0, .return3
bx r0

subsreturn:
ldr r0, .return1
bx r0

falseswipecheck:
ldr r0, .return2
bx r0

.align 2
.return1: .word 0x0801f295
.return2: .word 0x0801f1e3
.return3: .word 0x0801f23d
.damageloc: .word 0x02023d50
.protectstruct: .word 0x02023e8c

@SturdyMessageCheckAsm
.align 2
NewSturdyUpdateHook2:
cmp r0, #0x40
beq sturdyjump
cmp r0, #0x40
bgt returnotherchecks
cmp r0, #0x20
bne returnone
ldr r0, .returnone
bx r0

returnone:
ldr r0, .returntwo
bx r0

returnotherchecks:
ldr r2, .returntree
bx r2

call_in_r1:
bx r1

sturdyjump:
ldr r4, .currscript
ldr r0, [r4]
add r0, #0x1
ldr r1, .func
bl call_in_r1
ldr r0, .sturdyscript
str r0, [r4]
pop {r4-r7}
pop {r0}
bx r0

.align 2
.returnone: .word 0x0801fd25
.returntwo: .word 0x0801fc79
.returntree: .word 0x0801fc23
.func: .word 0x08017521
.currscript: .word 0x02023d74
.sturdyscript: .word NewSturdyUpdateScript+RomAreaOffset

@LevitateHookRoutine
.align 2
NewLevitateWonderGuardHook:
cmp r0, #0x4
beq levitatewonderguard
cmp r0, #0x3
bne end

levitatewonderguard:
push {r0}
ldr r4, .scriptloc
ldr r0, [r4]
add r0, #0x1
bl pushscript
pop {r0}
cmp r0, #0x3
beq wonderguardscript
ldr r0, .newlevitatescript
b next

wonderguardscript:
ldr r0, .newwonderguardscript

next:
str r0, [r4]
pop {r4-r7}
pop {r0}
bx r0

end:
lsl r0, #0x1
add r0, r1
ldrh r3, [r0]
strb r4, [r7, #0x7]
ldr r0, .return
bx r0

pushscript:
ldr r1, .scriptpusher
bx r1

.align 2
.scriptloc: .word 0x02023d74
.return: .word 0x0801fd2b
.scriptpusher: .word 0x08017521
.newlevitatescript: .word NewLevitateScript+RomAreaOffset
.newwonderguardscript: .word NewWonderGuardScript+RomAreaOffset

AnimBox:
.byte CallAsmCommand
.word ANIMBOXASM+RomAreaOffset+1
.byte 0x3c

NewRunAwayScript:
.byte LoadAbilityPopUpCommand, 0x1, 0x1, 0x0
.byte 0x10, 0x53, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x1, 0x0
.byte 0x3e

NewColorChangeScript:
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0xc6, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

NewCuteCharmScript:
.byte 0x65, 0x1, 0x0, 0x0, 0xf, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0x36, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

NewDampScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0xc4, 0x0, 0x39, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d694e

NewDrizzleScript:
.byte 0x39, 0x20, 0x0, 0x45, 0x7, 0xa, 0x0, 0x0, 0x0, 0x0
.byte LoadAbilityPopUpCommand, 0x1, 0xa, 0x0
.byte 0x10, 0xc1, 0x0, 0x3a, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x28
.word 0x081d928d

NewDroughtScript:
.byte 0x39, 0x20, 0x0, 0x45, 0x7, 0xb, 0x0, 0x0, 0x0, 0x0
.byte LoadAbilityPopUpCommand, 0x1, 0xa, 0x0
.byte 0x10, 0x4b, 0x1, 0x3a, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x28
.word 0x081d928d

NewClearBodyWhiteSmokeScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0xa, 0x0
.byte 0x10, 0xce, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x3c

NewSandStreamScript:
.byte 0x39, 0x20, 0x0, 0x45, 0x7, 0xc, 0x0, 0x0, 0x0, 0x0
.byte LoadAbilityPopUpCommand, 0x1, 0xa, 0x0
.byte 0x10, 0x34, 0x1, 0x3a, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x28
.word 0x081d928d

NewEffectSporePoisonPointPoisonScript:
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x1
.word 0x081d91d5
.byte 0x64, 0x2, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0, 0x13
.word 0x083fe5bc
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x98, 0x2, 0x3a, 0x3c

NewEffectSporeSleepScript:
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x1
.word 0x081d91b9
.byte 0x64, 0x2, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0, 0x13
.word 0x083fe5c4
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x98, 0x2, 0x3a, 0x3c

NewSynchronizeEffectSporeStaticParalizeScript:
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x1
.word 0x081d9202
.byte 0x64, 0x2, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0, 0x13
.word 0x083fe5c0
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x98, 0x2, 0x3a, 0x3c

NewFlashFireScript:
.byte 0x3, 0x2, 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x12, 0x13
.word 0x083fe650
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0, 0x28
.word 0x081d694e

NewForescastScript:
.byte 0xe6, 0x3a, LoadAbilityPopUpCommand, 0x1, 0xa, 0x3b
.byte 0x10, 0x3a, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x3c

NewHyperCutterKeenEyeScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0xa, 0x0
.byte 0x10, 0x35, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x28
.word 0x081d9487

NewSynchronizeImmunityScript:
.byte 0x39, 0x20, 0x0, 0x29, 0x0
.word 0x02023e87
.byte 0x0
.word DisplaySynchAndImmunityString+RomAreaOffset
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x2
.word 0x081d943b

DisplaySynchAndImmunityString:
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x13
.word 0x083fe644
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

NewSynchronizeWaterVeilScript:
.byte 0x39, 0x20, 0x0, 0x29, 0x0
.word 0x02023e87
.byte 0x0
.word DisplaySynchAndWaterVeilString+RomAreaOffset
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x2
.word 0x081d9423

DisplaySynchAndWaterVeilString:
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x13
.word 0x083fe638
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

NewLimberScript:
.byte 0x39, 0x20, 0x0, 0x29, 0x1
.word 0x02023e87
.byte 0x0
.word 0x081d942f
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x0, 0x13
.word 0x083fe63e
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

NewLevitateScript:
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0x4c, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

NewWonderGuardScript:
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0x1a, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

NewLiquidOozeScript:
.byte 0x80, 0x0, 0x2e
.word 0x02023e87
.byte 0x1, 0xb, 0x1, 0xc, 0x1, 0x29, 0x4
.word 0x02023dcc
.byte 0x29
.word 0x081d6a42
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x40
.byte 0x13
.word 0x083fe5dc
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d6a42

NewLiquidOozeLeechSeedScript:
.byte 0x2e
.word 0x02023e87
.byte 0x4, 0x35
.word 0x02023dd0, 0x00100100
.byte 0xb, 0x0, 0xc, 0x0, LoadAbilityPopUpCommand, 0x1, 0x1, 0x40, 0x13
.word 0x083fe558
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x1, 0x0
.byte 0x28
.word 0x081d8b9a

NewOwnTempoScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x14
.byte 0x10, 0xca, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d694e

NewRainDishScript:
.byte LoadAbilityPopUpCommand, 0x1, 0x1, 0x0
.byte 0x10, 0x33, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x1, 0x0
.byte 0x28
.word 0x081d92b1

NewRoughSkinScript:
.byte 0x35
.word 0x02023dd0, 0x00100100
.byte 0xb, 0x1, 0xc, 0x1, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0xcf, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d94b6

NewInnerFocusScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0x5b, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d694e

NewWaterAbsorbVoltAbsorbScript:
.byte 0x3, 0x2, 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0x47, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d93eb

NewWaterAbsorbVoltAbsorbScript2:
.byte 0x3, 0x2, 0x39, 0x20, 0x0, 0x35
.word 0x02023dd0, 0x00000100
.byte 0xb, 0x0, 0xc, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0xc5, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0, 0x28
.word 0x081d93d5

NewSoundProofScript:
.byte 0x2, 0x3, 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x2b
.byte 0x10, 0x32, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d694e

NewShedSkinScript:
.byte LoadAbilityPopUpCommand, 0x1, 0xa, 0x3d
.byte 0x10, 0x38, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x98, 0x1, 0x3f

NewTruantScript:
.byte LoadAbilityPopUpCommand, 0x1, 0x1, 0x36
.byte 0x13
.word 0x083fe61a
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x1, 0x0
.byte 0x28
.word 0x081d94fa

NewSpeedBoostScript:
.byte 0x45, 0x1, 0x1
.word 0x02023fd4
.byte LoadAbilityPopUpCommand, 0x1, 0xa, 0x0
.byte 0x10, 0xc2, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x3f

NewStickyHoldScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0x37, 0x1, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d6947 @fix sticky hold faint bug

NewTraceScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0xa, 0x24
.byte 0x10, 0x30, 0x1, 0x12, 0x20, 0x0, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x10, 0x30, 0x1, 0x12, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0xa, 0x0, 0x10, 0xd0, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0xa, 0x0, 0x3f

NewIntimidateScript:
.byte 0x39, 0x20, 0x0, 0x2e
.word 0x02023d6c
.byte 0x0, 0x2e
.word 0x02023fde
.byte 0x91

IntimidateLoop:
.byte 0xe1
.word 0x081d936a
.byte 0x1d, 0x0, 0x0, 0x0, 0x0, 0x1
.word NextIntimidateTarget+RomAreaOffset
.byte 0x1e, 0x0, 0x1d
.word AbilityBlocksIntimidateScript+RomAreaOffset @Clear body
.byte 0x1e, 0x0, 0x34
.word AbilityBlocksIntimidateScript+RomAreaOffset @Hyper cutter
.byte 0x1e, 0x0, 0x49
.word AbilityBlocksIntimidateScript+RomAreaOffset @white smoke
.byte 0x1e, 0x0, 0x14
.word AbilityBlocksIntimidateScript+RomAreaOffset @Own tempo
.byte 0x1e, 0x0, 0x27
.word AbilityBlocksIntimidateScript+RomAreaOffset @inner focus
.byte 0x1e, 0x0, 0xc
.word AbilityBlocksIntimidateScript+RomAreaOffset @Oblivious
.byte 0x89, 0x21
.word NextIntimidateTarget+RomAreaOffset
.byte 0x29, 0x2
.word 0x02023e87
.byte 0x1
.word NextIntimidateTarget+RomAreaOffset
.byte 0x47, 0x45, 0x0, 0x1
.word 0x02023fd4
.byte LoadAbilityPopUpCommand, 0x1, 0xa, 0x0, 0x10, 0xcd, 0x0, 0x12, 0x40, 0x0
.byte LoadAbilityPopUpCommand, 0x0, 0xa, 0x0

NextIntimidateTarget:
.byte 0x2f
.word 0x02023d6c
.byte 0x1
.byte 0x28
.word IntimidateLoop+RomAreaOffset

AbilityBlocksIntimidateScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x2, 0x0, 0x0, 0x10, 0x55, 0x1, 0x12, 0x40, 0x0
.byte LoadAbilityPopUpCommand, 0x0, 0x0, 0x0, 0x28
.word NextIntimidateTarget+RomAreaOffset

NewSuctionCupsScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x15
.byte 0x10, 0xcc, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d694e

NewSturdyScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0
.byte 0x10, 0xc3, 0x0, 0x39, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x28
.word 0x081d694e

NewMagnetPullShadowTagArenaTrapScript:
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x2
.word 0x081d8943
.byte LoadAbilityPopUpCommand, 0x1, 0xa, 0x0, 0x14
.word 0x083fe51e
.byte LoadAbilityPopUpCommand, 0x0, 0xa, 0x0
.byte 0x44

NewObliviousScript:
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0xc
.byte 0x10, 0xc8, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0, 0x28
.word 0x081d694e

NewVitalSpiritInsomniaScript:
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x2
.word 0x081d69cc
.byte 0x39, 0x20, 0x0, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0, 0x13
.word 0x083fe576
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0, 0x28
.word 0x081d694e

NewFlameBodyScript:
.byte 0x29, 0x1
.word 0x02023e87
.byte 0x1
.word 0x081d91e4
.byte 0x64, 0x2, LoadAbilityPopUpCommand, 0x1, 0x0, 0x0, 0x13
.word 0x083fe5c8
.byte 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0, 0x28
.word 0x081d91c3

NewSturdyUpdateScript:
.byte CallAsmCommand
.word CheckIfSturdyIsLifingTarget+RomAreaOffset+1
.byte LoadAbilityPopUpCommand, 0x1, 0x0, 0x5
.byte 0x10, 0x99, 0x0, 0x12, 0x40, 0x0, LoadAbilityPopUpCommand, 0x0, 0x0, 0x0
.byte 0x3c

The asm is inserted into rom via .org and includes all GenIII abilities(i think don't loses any) and also has an update for Intimidate and Sturdy, and adds a mensage script to Levitate and Wonder Guard.

I will don't give support for use this since it was writen a long ago, use it to your risk.