Code: ASM Resource Thread

[azurile13]

I'll try to look at that, perhaps one of the addresses is incorrect.



Tried this one, but it doesn't work correctly, I modified the routine because it doesn't compile to my compiler

Spoiler:

.align 2
.thumb

main:
	ldr r3, var8004
	ldrh r0, [r3, #0x0]
	lsl r0, r0, #0x[B]4[/B] @assuming length of tm compatibility is still 8 bytes
	ldr r1, tm_compatibility
	add r0, r1
	ldrh r2, [r3, #0x2]	@var8005
	lsr r1, r2, #0x3 @I assume "move" is tm number, not the actual move index?
	ldrb r0, [r0, r1]
	lsl r2, r2, #0x1D
	lsr r2, r2, #0x1D
	lsr r0, r0, r2
	lsl r0, r0, #0x1F
	lsr r0, r0, #0x1F
	strh r0, [r3, 0x0]	@store back in var8004, or wherever
	bx lr

.align 2

var8004:		.word 0x20370C0
tm_compatibility:	.word 0x9859940

I changed that to 4 since I had expanded the TM and HM, then, this is my script:

Spoiler:

'---------------
#org 0x8213AD
setvar 0x8004 0x14E
setvar 0x8005 0x1F
callasm 0x9921521
compare 0x8004 0x0
if 0x1 goto 0x88213D1
msgbox 0x88213E0 MSG_NORMAL '"yes"
end

'---------------
#org 0x8213D1
msgbox 0x88213DB MSG_NORMAL '"no"
end


'---------
' Strings
'---------
#org 0x8213E0
= yes

#org 0x8213DB
= no

Var 8004 being the index number of Flygon
and Var 8005 being the TM index which is TM 32 Double Team, it always jumps to YES even though I unchecked it.

Wait, I don't even see what you changed with my routine besides putting actual numbers in the literal pool.
Also, you saying you "unchecked it" makes me think you were modifying compatibility with a tool. But I don't think any tools currently out even support expanding TMs. You most likely had to expand the table by hand. Did you actually change the length of the compatibility table from 8 bytes per pokemon to 16 bytes?

 

[Lance32497]

Wait, I don't even see what you changed with my routine besides putting actual numbers in the literal pool.
Also, you saying you "unchecked it" makes me think you were modifying compatibility with a tool. But I don't think any tools currently out even support expanding TMs. You most likely had to expand the table by hand. Did you actually change the length of the compatibility table from 8 bytes per pokemon to 16 bytes?

I made lsl r0, r0, #0x3 to lsl r0, r0, #0x4, and about the tool that supports expansion of TM, D&D Editor of Dark Zeta does that

 

[Dontreadthi]

I have tried all weekend and I cant get it. If anyone has the time, Id like some help with the following:
ASM script to check and see if a Pokemon has any moves left in the Pokemon Relearner.

Things I know:
Special 0xDB pulls up a selection to select a pokemon
0x8005 stores 0 if the pokemon has no moves to learn (From Two Island Move relearner)

Not that great at finding code with breakpoints... So i need some help to intercept the above so that when I call the ASM script it will take in the party position and output if there is a move or not. (Basically special DB without thee selection screen + Waitstate)

Thanks

 

[NewDenverCity]

I have tried all weekend and I cant get it. If anyone has the time, Id like some help with the following:
ASM script to check and see if a Pokemon has any moves left in the Pokemon Relearner.

Things I know:
Special 0xDB pulls up a selection to select a pokemon
0x8005 stores 0 if the pokemon has no moves to learn (From Two Island Move relearner)

Not that great at finding code with breakpoints... So i need some help to intercept the above so that when I call the ASM script it will take in the party position and output if there is a move or not. (Basically special DB without thee selection screen + Waitstate)

Thanks

I'm not sure why you'd want this, as without special 0xDB you'd always be searching the first pokemon in your party. On top of that, you'd probably end up storing the results back into a var anyway. If the special and 0x8005 works, why fix something that's not broken?

 

[Dontreadthi]

Well it's not broken but its inconvenient. I have the party position of the pokemon already from previous code, but then to ask the user to select the pokemon in question again is redundant.

Maybe I did a poor job in explaining. What I am after is to mimic the above special 0xDB but skip the selection screen and instead input the variable for party position. I can do most of the work. Just need help locating where the code is located in the ROM. Then I can make a hook & catch.

 

[Joexv]

Well it's not broken but its inconvenient. I have the party position of the pokemon already from previous code, but then to ask the user to select the pokemon in question again is redundant.

Maybe I did a poor job in explaining. What I am after is to mimic the above special 0xDB but skip the selection screen and instead input the variable for party position. I can do most of the work. Just need help locating where the code is located in the ROM. Then I can make a hook & catch.

Well you wouldn't really need any hooks. Just copy the special 0xDB routine and modify it to instead read from a variable rather then the selection. I would help by giving a maybe offset to start with but idb isnt working for me right now.

 

[azurile13]

Well it's not broken but its inconvenient. I have the party position of the pokemon already from previous code, but then to ask the user to select the pokemon in question again is redundant.

Maybe I did a poor job in explaining. What I am after is to mimic the above special 0xDB but skip the selection screen and instead input the variable for party position. I can do most of the work. Just need help locating where the code is located in the ROM. Then I can make a hook & catch.

I don't get what you're looking for, but you can find the pointer to any special routine with the table and some maths. For FireRed, the special table is at 0x0815FD60.

 

[EdgeZard X]

Hi,

Is making the move tutors reusable doable via ASM, or is there just a specific flag that gets set in their routines that needs to be removed?

 

[Aruaruu]

Hi,

Is making the move tutors reusable doable via ASM, or is there just a specific flag that gets set in their routines that needs to be removed?

Its a flag in their script.

 

[EdgeZard X]

Its a flag in their script.

I see, I guess I'll have to find all the move tutors and remove the flag condition.

......and fix their text because I changed what most of them teach.

Now I have another question concerning the Dawn Stone routine that was posted here, since my ROM contains all the Gen 4 evolutions and I wasn't sure on how I'd correctly work Gallade/Froslass:

Spoiler:

"Change the values in the lines marked UPDATE THIS to the indexes of male stone evos and female stone evos. Leave their entries blank in the general evolution table; stone evolutions function differently from level-up evolutions."

Does the "indexes" refer to the indexes of the Pokémon that evolve by Dawn Stone (Kirlia, Snorunt), or the indexes of Pokémon that have evolved from Dawn Stone (Gallade, Froslass)?

And....

Spoiler:

".org 0x4318e
lsl r0, r0, #0x0
ldr r2, .MethodAddr
bx r2

.MethodAddr: .word 0x085B2521 #UPDATE THIS TO MAIN FUNCTION OFFSET+1

What does it mean by main function, and what does the 0x4318e refer to?

 

[DeliPunch]

Could someone make a asm thingy for emerald that advances the rtc by game time times 2 or 3? for when you don't actually have an rtc (flashcarts)

 

[Angry_Bird404]

I don't know if anyone's been working on this lately, but I've been itching to share this.

FireRed lacks a system that uses a Region Dex order seperate from the National Dex. If you were to have a Region Dex and a National Dex, your National Dex would look unprofessional. What I'm putting here is my work towards a Region Dex system for FireRed. I would like to stress however that it is both unoptimized and unfinished, but I really wanted to release this.

The current routines

Spoiler:

Loading the right species

Spoiler:

.text
.align 2
.thumb
.thumb_func

main:
mov r4, r8
lsl r0, r4, #0x10
lsr r5, r0, #0x10
add r4, #0x1
ldr r0, .HoennDex
lsl r5, r5, #0x1
add r0, r0, r5
ldrh r0, [r0]
mov r5, r0
ldr r0, .return
bx r0

.align 2

.HoennDex: .word 0x08252216
.nationaltoindex: .word 0x08043200+1
.return: .word 0x08103574+1

Insert 00 48 00 47 xx xx xx 08 at 0x10356C

Correct numbering

Spoiler:

.text
.align 2
.thumb
.thumb_func

lsr r4, r4, #0x18
lsl r6, r6, #0x18
lsr r6, r6, #0x18
ldr r1, .indextonatdex
bl Linker
mov r2, r0
ldr r1, .dexarea
add r1, r1, #0xa
ldrb r1, [r1]
cmp r1, #0x1
beq regionnumber
mov r0, r2
b GoBack

Linker:
bx r1

GoBack:
ldr r2, .return
bx r2

regionnumber:
mov r0, #0x0
ldr r1, .HoennDex

Loop:
mov r0, r3
lsl r3, r3, #0x1
add r1, r1, r3
ldrh r3, [r1]
add r0, r0, #0x1
cmp r1, r2
bne Loop
b GoBack

.align 2

.HoennDex: .word 0x08252324
.indextonatdex: .word 0x08043298+1
.flagcheck: .word 0x0806e6d0+1
.return: .word 0x08104a6a+1

Insert 00 4A 10 47 xx xx xx 08 at 0x104A60

Fixing the end of the region dex

Spoiler:

.text
.align 2
.thumb
.thumb_func

main:
push {r2}
mov r2, #0x0
ldr r1, .HoennDex

loop:
lsl r0, r2, #0x1
add r0, r0, r1
ldrh r0, [r0]
add r2, #0x1
cmp r0, r5
bne loop

lastpart:
ldr r1, =0x100 /*Put the length of your Region Dex here, this supports beyond 256*/
mov r10, r2
pop {r2}
str r2, [r3, #4]
mov r8, r9
mov r0, r8
cmp r0, r1
ble jump
ldr r1, .return2
bx r1

jump:
ldr r1, .return
bx r1

.align 2

.HoennDex: .word 0x08252324
.return: .word 0x0810356c+1
.return2: .word 0x08103906+1

Insert 00 49 08 47 xx xx xx 08 at 0x1035F0

To-Do list
Fix counting the Region Dex for things like the start screen and talking to the Professor
Displaying the Region Dex number when you don't have the National Dex on the summary screen
Making searches and habitat lists use Region Dex numbers before the National Dex

Send me a PM if you're interested in fixing up what's left.

 

[azurile13]

Cool. Seems very useful so people don't do the "national dex at start" all the time :) But in "Loading the right species," I assume the "bx r1" is meant to be a bl linker? You're never going to reach the mov r5, r0 and return :P

EDIT: meant to quote AngryBird

 

[Angry_Bird404]

Cool. Seems very useful so people don't do the "national dex at start" all the time :) But in "Loading the right species," I assume the "bx r1" is meant to be a bl linker? You're never going to reach the mov r5, r0 and return :P

I know you misquoted me but thanks! I actually put in an outdated version by accident. The correct version doesn't even call the routine in the first place. I'll fix it right away.

 

[Aligatueur]

Hey !
So first I want to say, I've really a bad level. I know HOW to put the routine on ROM, and to be honnest, I'm too stupid to understand ALL the routine things. But here's my "little story"

So, I wanted to do a FR 1/256 Shiny Rate for myself, because i want to relax a little from always Shiny Hunting like a crazy guy. But it's really a IMPORTANT project for me. I've found this asm thread, found what I wanted. So i've started to learn ASM, but to be honnest not the "what this means" thing. But here's my problem :

I did my 1/256 rom. It's working. No problem. Except one (but after speaking with an other guy who did the same he has the same problem) : The gender (or the nature for his case) is always the same. In my case i always have female Shiny. I really would like to keep the random of Gender + Nature for my 1/256 Shiny (like in my 4G/5G 1/256 hack-rom)

So I'd to know if somebody can find the way to fix this. For information :

I use these :

https://www.pokecommunity.com/posts/8531430/
First the RNNG.
https://www.pokecommunity.com/posts/8531480/
After this one, for the Shiny Pokémon PID Generation (and may be it's the problem ?)

and finally my "own" Shiny Rate script :

Spoiler:

.text
.align 2
.thumb
.thumb_func


main:
push {r0-r3}

normal:
mov r0, #0x1
lsl r0, r0, #0x8

calcChance:
ldr r1, =(0x20370B8)
strh r0, [r1]
ldr r2, .random
bl linker
cmp r0, #0x0
bne end
mov r0, #0xFF
ldr r1, =(0x20370BC)
strb r0, [r1]
ldr r1, =(0x20370B8)
mov r0, #0x0
strh r0, [r1]

end:
pop {r0-r3}
sub SP, SP, #0x20
mov r7, r0
ldr r4, [SP, #0x40]
ldr r4, [SP, #0x48]
mov r5, #0xE
ldr r6, =(0x803DAD8 +1)
bx r6

linker:
bx r2


.align 2

.random:
.word 0x8800001

Any help ?
Thank you !

 

[Trainer 781]

Sitrus Berry Update:

Spoiler:

Restore 25% of maximum HP.

FireRed:-

Spoiler:

Item Use Effect:

.text
.align 2
.thumb
.thumb_func
.global sitrusoverworld

Main:

  ldr r1, [sp, #0xC]   @ItemIndex
  cmp r1, #0x8E @Sirtus
  bne Skip
  lsr r0, r0, #0x1   @HP to Restore

Skip:  
  cmp r0, #0x0
  bne Exit
  mov r0, #0x1

Exit:
  ldr r1, =0x8041CA4+1
  bx r1

@@At x2528B8: FE 00
@@At x41C94: 00 49 08 47 XX+1 XX XX 08

Hold Item Effect:

.text
.align 2
.thumb
.thumb_func
.global sitruspinch

Main:

  ldrh r1, [r2, #0x2E]   @ItemIndex
  ldrh r3, [r2, #0x28]
  mov r5, r9
  cmp r1, #0x8E @Sitrus
  bne NotZero
  ldrh r0, [r2, #0x2C]
  lsr r5, r0, #0x2   @HP to Restore
  cmp r5, #0x0
  bne NotZero
  mov r5, #0x1

NotZero:
  str r5, [r4]
  ldr r1, =0x801BF08+1
  bx r1

@At x1BF00: 00 49 08 47 XX+1 XX XX 08

Emerald:-

Spoiler:

Item Use Effect:

.text
.align 2
.thumb
.thumb_func
.global sitrusoverworld

Main:

  ldr r1, [sp, #0xC]   @ItemIndex
  cmp r1, #0x8E @Sirtus
  bne Skip
  lsr r0, r0, #0x1   @HP to Restore

Skip:  
  cmp r0, #0x0
  bne Exit
  mov r0, #0x1

Exit:
  ldr r1, =0x806C610+1
  bx r1

@@At x31E54C: FE 00
@@At x6C600: 00 49 08 47 XX+1 XX XX 08

Hold Item Effect:

.text
.align 2
.thumb
.thumb_func
.global sitruspinch

Main:

  ldrh r1, [r2, #0x2E]   @ItemIndex
  ldrh r3, [r2, #0x28]
  mov r5, r9
  cmp r1, #0x8E @Sitrus
  bne NotZero
  ldrh r0, [r2, #0x2C]
  lsr r5, r0, #0x2   @HP to Restore
  cmp r5, #0x0
  bne NotZero
  mov r5, #0x1

NotZero:
  str r5, [r4]
  ldr r1, =0x804478C+1
  bx r1

@At x44784: 00 49 08 47 XX+1 XX XX 08

Berry Activation Update:

Spoiler:

Activates consumable berries as soon as possible (end move or a certain multi-hit strike) after the required consumption condition is met, consistent to later generations, rather than activating on End Turn.

Emerald:-

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global endmoveberries

.include "T:/asdS/thumb/bsmacros.asm"
@@https://www.pokecommunity.com/showpost.php?p=9062722&postcount=332
@@ Paste all the content from the 'BS Macro & Defines' Spoiler in this link to a new blank ASM file and include its path.

.equ RomAreaOffset, 0x8000000
.equ BerryLoc, 0xE10000
.equ ContraryID, 0x7F
.equ GluttonyID, 0x53
.equ BattleData, 0x2024084
.equ Sitrus, 0x8E
.equ Return, 0x08045674+1
.equ Return2, 0x0804582A+1
.equ ItemBuffer, 0x2024208
.equ ScriptPointer, 0x2024214
.equ ScriptPusher, 0x803FAFC+1
.equ MiscBufferCountersArea, 0x2024474
.equ Bank_F, 0x202420F
.equ ActiveBank, 0x2024064
.equ Damage, 0x20241F0
.equ NoOfBattlers, 0x202406C
.equ UserBank, 0x202420B
.equ TargetPartner, 0x202420E
.equ BattleOutcome, 0x2022F58
.equ Divider, 0x82e7540+1
.equ ConfuseAccToNature, 0x806e880+1
.equ RNG, 0x806F5CC+1
.equ DivMod, 0x82E7Be0+1
.equ OranHealBSLoc, OranHealBS+RomAreaOffset
.equ HealAndConfuseBSLoc, HealAndConfuseBS+RomAreaOffset
.equ FocusBerryBSLoc, FocusBerryBS+RomAreaOffset
.equ StatRaiseBSLoc, StatRaiseBS+RomAreaOffset 

.org 0x45280
    mov r7, #0x0
    ldr r0, =NoOfBattlers
    ldrb r0, [r0]
    cmp r7, r0
    bcc CheckBankHP
    b 0x4582A

CheckBankHP:
    ldr r1, =BattleData
    mov r8, r1
    mov r0, #0x58
    mul r0, r7
    add r0, r0, r1
    ldrh r2, [r0, #0x28]
    cmp r2, #0x0
    bne HasHP
    b 0x45674

HasHP:
    ldr r4, =ItemBuffer
    ldrh r0, [r0, #0x2E] 
    strh r0, [r4]
    bl 0xD74DC
    lsl r0, r0, #0x18
    lsr r5, r0, #0x18
    sub r0, r5, #1
    cmp r0, #0x1B
    bls LoadBerryTable
    b 0x45674

LoadBerryTable:
    lsl r0, r0, #2
    ldr r1, BerryTableLoc
    add r0, r0, r1
    ldr r3, [r0]
    ldrh r0, [r4]
    bl 0xD7500
    lsl r0, r0, #0x18
    lsr r0, r0, #0x18
    mov r9, r0
    mov pc, r3
    
.align 2
BerryTableLoc: .word BerryLoc+RomAreaOffset

.align 2
.pool


.org BerryLoc
.word HPRestoreBerry+RomAreaOffset @Oran, Sitrus, Berry Juice 
.word 0x8045354  @Cheri Berry
.word 0x8045444  @Chesto Berry
.word 0x8045390  @Pecha Berry
.word 0x80453CC  @Rawst Berry
.word 0x8045408  @Aspear Berry
.word 0x8045674       @Leppa Berry
.word 0x804548C  @Persim Berry
.word 0x8045520  @Lum Berry
.word HPRestoreConfuseBerry+RomAreaOffset @Figy
.word HPRestoreConfuseBerry+RomAreaOffset @Wiki
.word HPRestoreConfuseBerry+RomAreaOffset @Mago
.word HPRestoreConfuseBerry+RomAreaOffset @Aguav
.word HPRestoreConfuseBerry+RomAreaOffset @Iapapa
.word StatRaiseBerry+RomAreaOffset @Leichi
.word StatRaiseBerry+RomAreaOffset @Ganlon
.word StatRaiseBerry+RomAreaOffset @Salac
.word StatRaiseBerry+RomAreaOffset @Petaya
.word StatRaiseBerry+RomAreaOffset @Apicot
.word LansatBerry+RomAreaOffset @Lansat
.word StarfBerry+RomAreaOffset @Starf
.word 0x8045674
.word 0x8045614 @White Herb
.word 0x8045674
.word 0x8045674
.word 0x8045674
.word 0x8045674
.word 0x80454C8 @Mental Herb

@@@@@@@@@@@@@@@Oran


.align 2
HPRestoreBerry:
    mov r1, r8
    mov r0, #0x58
    mul r0, r7
    add r2, r0, r1
    ldrh r1, [r2, #0x2C]
    ldrh r3, [r2, #0x28]
    lsr r0, r1, #1
    cmp r3, r0
    bls RestoreHP
    b Quit

RestoreHP:
    ldrh r0, [r4]
    ldr r4, =Damage
    mov r5, r9
    cmp r0, #Sitrus  @Sitrus
    bne NotZero
    ldrh r0, [r2, #0x2C]
    lsr r5, r0, #0x2
    cmp r5, #0x0
    bne NotZero
    mov r5, #0x1

NotZero:
    add r0, r3, r5
    cmp r0, r1
    ble NegDamage
    sub r5, r1, r3

NegDamage:
    neg r5, r5
    str r5, [r4]
    ldr r6, =ScriptPusher
    bl Linker
    ldr r1, =ScriptPointer
    ldr r0, =OranHealBSLoc
    str r0, [r1]
    mov r0, #0x1
    str r0, [sp, #0xC]
    b SetupBuffersAndExit

.align 2
.pool


@@@@@@@@@@@@@@@@@@@@@@@@@@
HPRestoreConfuseBerry:
    mov r0, r5
    sub r0, #0xA
    mov r10, r0
    mov r0, #0x58
    mov r1, r7
    mul r1, r0
    str r1, [sp, #0x18]
    mov r4, r1
    add r4, r8
    ldrh r0, [r4, #0x2C]
    ldrh r1, [r4, #0x28]
    lsr r0, r0, #0x1
    cmp r1, r0
    bls RestoreHPAttemptConfuse
    b Quit

RestoreHPAttemptConfuse:
    ldr r1, =BattleOutcome
    mov r0, #0xFD
    strb r0, [r1]
    mov r0, #0x8
    strb r0, [r1, #0x1]
    mov r0, r10
    strb r0, [r1, #0x2]
    mov r0, #0xFF
    strb r0, [r1, #0x3]
    ldr r5, =Damage
    ldrh r0, [r4, #0x2C]
    mov r1, r9
    ldr r6, =Divider
    bl Linker
    str r0, [r5]
    cmp r0, #0x0
    bne NotZeroWiki
    mov r0, #0x1
    str r0, [r5]

NotZeroWiki:
    ldrh r2, [r4, #0x28]
    ldr r0, [r5]
    add r0, r2, r0
    ldrh r1, [r4, #0x2C]
    cmp r0, r1
    ble CheckConfusion
    sub r0, r1, r2
    str r0, [r5]

CheckConfusion:
    ldr r0, [r5]
    neg r0, r0
    str r0, [r5]
    mov r0, r8
    add r0, #0x48
    ldr r2, [sp, #0x18]
    add r0, r2, r0
    ldr r0, [r0]
    mov r1, r10
    ldr r6, =ConfuseAccToNature
    bl Linker
    lsl r0, r0, #0x10
    blt BerryConfuse
    ldr r6, =ScriptPusher
    bl Linker
    ldr r1, =ScriptPointer
    ldr r0, =OranHealBSLoc
    str r0, [r1]
    mov r0, #0x1
    str r0, [sp, #0xC]
    b SetupBuffersAndExit

BerryConfuse:
    ldr r6, =ScriptPusher
    bl Linker
    ldr r1, =ScriptPointer
    ldr r0, =HealAndConfuseBSLoc
    str r0, [r1]
    mov r0, #0x1
    str r0, [sp, #0xC]
    b SetupBuffersAndExit
.align 2
.pool


@@@@@@@@@@@@@@@@@@
StatRaiseBerry:
    mov r0, r5
    sub r0, #0xF
    mov r10, r0
    mov r0, #0x58
    mul r0, r7
    mov r3, r8
    add r5, r0, r3
    ldrh r4, [r5, #0x28]
    ldrh r0, [r5, #0x2C]

GluttonyCheck:
    mov r2, #0x20
    add r2, r2, r5
    ldrb r2, [r2]
    cmp r2, #GluttonyID
    bne CheckPinchActivation
    lsl r0, r0, #0x1

CheckPinchActivation:
    mov r1, r9
    ldr r6, =Divider
    bl Linker
    cmp r4, r0
    bls CheckForContrary
    b Quit

CheckForContrary:
    mov r6, #0xC
    cmp r2, #ContraryID
    bne NoContrary_Re
    mov r6, #0x0

NoContrary_Re:
    mov r0, r10
    add r0, #0x19
    add r0, r0, r5
    ldrb r0, [r0]
    cmp r0, r6
    bne BoostStat
    b Quit

BoostStat:
    ldr r1, =BattleOutcome
    mov r2, #0xFD
    strb r2, [r1]
    mov r0, #5
    strb r0, [r1, #0x1]
    mov r0, r10
    add r0, #0x1
    strb r0, [r1, #0x2]
    mov r0, #0xFF
    strb r0, [r1, #0x3]
    ldr r0, =TargetPartner
    strb r7, [r0]
    ldr r1, =MiscBufferCountersArea
    mov r0, r10
    add r0, #0x11
    strb r0, [r1, #0x1A]
    sub r0, r0, #0x2
    strb r0, [r1, #0x10]
    mov r0, #0x0
    strb r0, [r1, #0x11]    
    ldr r6, =ScriptPusher
    bl Linker
    ldr r1, =ScriptPointer
    ldr r0, =StatRaiseBSLoc
    str r0, [r1]
    mov r0, #0x1
    str r0, [sp, #0xC]
    b SetupBuffersAndExit
.align 2
.pool

@@@@@@@@@@@@@Lansat Berry:
LansatBerry:
    mov r0, #0x58
    mul r0, r7
    mov r3, r8
    add r5, r0, r3
    ldrh r4, [r5, #0x28]
    ldrh r0, [r5, #0x2C]

GluttonyCheck_Lansat:
    mov r2, #0x20
    add r2, r2, r5
    ldrb r2, [r2]
    cmp r2, #GluttonyID
    bne CheckPinchActivation_Lansat
    lsl r0, r0, #0x1

CheckPinchActivation_Lansat:
    mov r1, r9
    ldr r6, =Divider
    bl Linker
    cmp r4, r0
    bls CheckFocus
    b Quit   

CheckFocus:
    ldr r2, [r5, #0x50]
    mov r3, #0x80
    lsl r3, r3, #0xD
    mov r0, r2
    and r0, r3
    cmp r0, #0x0
    beq SetFocus
    b Quit    

SetFocus:
    orr r2, r3
    str r2, [r5, #0x50]
    ldr r6, =ScriptPusher
    bl Linker
    ldr r1, =ScriptPointer
    ldr r0, =FocusBerryBSLoc
    str r0, [r1]
    mov r0, #0x1
    str r0, [sp, #0xC]
    b SetupBuffersAndExit
.align 2
.pool

@@@@@@@@@@@@@@@
StarfBerry:
    mov r0, #0x58
    mul r0, r7
    mov r3, r8
    add r5, r0, r3
    ldrh r4, [r5, #0x28]
    ldrh r0, [r5, #0x2C]

GluttonyCheck_Starf:
    mov r2, #0x20
    add r2, r2, r5
    ldrb r2, [r2]
    cmp r2, #GluttonyID
    bne CheckPinchActivation_Starf
    lsl r0, r0, #0x1

CheckPinchActivation_Starf:
    mov r1, r9
    ldr r6, =Divider
    bl Linker
    cmp r4, r0
    bgt Quit

CheckStats:
    mov r6, #0xC
    cmp r2, #ContraryID
    bne NoContrary
    mov r6, #0x0

NoContrary:
    mov r0, #0x0
    mov r10, r0
    add r0, r5, #0x1
    mov r1, r8
    add r1, #0x18
    add r0, r0, r1
    ldrb r0, [r1]
    lsl r0, r0, #0x18
    asr r0, r0, #0x18
    cmp r0, r6
    bne RaisableStat
    mov r0, r8
    add r0, #0x19
    add r1, r5, r0

Loop:
    add r1, #1
    add r2, #1
    add r10, r2
    mov r3, r10
    cmp r3, #0x4
    bgt Quit
    ldrb r0, [r1]
    cmp r0, r6
    beq Loop

RaisableStat:
    mov r0, #0x58
    mov r0, r7
    add r4, r0, r7
    ldr r5, =0x202409C
    mov r9, r6

StatSelect:    
    ldr r6, =RNG
    bl Linker
    lsl r0, r0, #0x10
    lsr r0, r0, #0x10
    mov r1, #0x5
    ldr r6, =DivMod
    bl Linker
    lsl r0, r0, #0x10
    lsr r0, r0, #0x10
    mov r10, r0
    add r0, r0, r4
    add r0, r0, r5
    ldrb r0, [r0] 
    lsl r0, r0, #0x18
    asr r0, r0, #0x18
    mov r6, r9
    cmp r0, r6
    beq StatSelect

BoostRandomStat:
    ldr r1, =BattleOutcome
    mov r2, #0xFD
    strb r2, [r1]
    mov r0, #5
    strb r0, [r1, #0x1]
    mov r0, r10
    add r0, #0x1
    strb r0, [r1, #0x2]
    mov r0, #0xFF
    strb r0, [r1, #0x3]
    ldr r0, =TargetPartner
    strb r7, [r0]
    ldr r1, =MiscBufferCountersArea
    mov r0, r10
    add r0, #0x21
    strb r0, [r1, #0x1A]
    add r0, #6
    strb r0, [r1, #0x10]
    mov r0, #0x0
    strb r0, [r1, #0x11]    
    ldr r6, =ScriptPusher
    bl Linker
    ldr r1, =ScriptPointer
    ldr r0, =StatRaiseBSLoc
    str r0, [r1]
    mov r0, #0x1
    str r0, [sp, #0xC]


SetupBuffersAndExit:
    ldr r0, =MiscBufferCountersArea
    strb r7, [r0, #0x17]
    ldr r0, =Bank_F
    strb r7, [r0]
    ldr r4, =ActiveBank
    strb r7, [r4]

Quit2:
    ldr r1, =Return2
    bx r1

Quit:
    ldr r1, =Return
    bx r1

Linker:
     bx r6

.align 2
.pool

SwapBanks:
    ldr r1, =UserBank
    ldrb r0, [r1]
    ldr r3, =Bank_F
    ldrb r2, [r3]
    strb r0, [r3]
    strb r2, [r1]
    bx lr
.align 2
.pool

@@@@OranBerryBS:
OranHealBS:
playanimation 0xA 0x7 0x0

printstring 0x12A

waitmessage 0x40

orword 0x2024280 0x100

graphicalhpupdate 0xA

datahpupdate 0xA

removeitem 0xA
return
.align 2

@@@@
HealAndConfuseBS:
playanimation 0xA 0x7 0x0

printstring 0x12A

waitmessage 0x40

orword 0x2024280 0x100

graphicalhpupdate 0xA

datahpupdate 0xA

printstring 0x144
waitmessage 0x40

callasm SwapBanks+RomAreaOffset+1
setbyte 0x2024335 0x47
seteffecttarget
callasm SwapBanks+RomAreaOffset+1
removeitem 0xA
return

@@@@
FocusBerryBS:
playanimation 0xA 0x7 0x0

printstring 0x146

waitmessage 0x40

removeitem 0xA
return

.align 2
@@@@@@@
StatRaiseBS:
playanimation 0xA 0x7 0x0
callasm SwapBanks+RomAreaOffset+1
statbuffchange 0x41 StatRaiseAnimation+RomAreaOffset

StatRaiseAnimation:
callasm SwapBanks+RomAreaOffset+1
setbyte 0x2024337 0x4
playanimation 0x2 0x1 0x2024484

printfromtable 0x85CC89C

waitmessage 0x40
removeitem 0xA
return

 

[Pheonix x]

If it is possible can somebody make a asm for sprite switching for gogoat system.

 

[leyn09]

May I request an asm for expert belt and focus sash if it's possible? Thanksss!

 

[Trainer 781]

May I request an asm for expert belt and focus sash if it's possible? Thanksss!

Expert belt is in the ability resource thread along with Solid Rock.

 

[lesleyrs]

has anyone ever thought about seperate pokemon storage systems for each region? Or would that be an insane amount of work?

I think itd be really cool