DizzyEgg said:

You probably messed up pointers. Try doing it again and make sure all your pointers are correct.



It seems that TMs are still consumable if taught to a pokemon without animation, i.e. if it only knows 2 moves.

Click to expand...

Lance32497 said:

Hello, since the EXP. Gain canceller had been effin'ly implemented, it's good to have MONEY gain and reduce canceller so that we can make a Battle frontier-like event.
Request

Click to expand...

.text
.align 2
.thumb
.thumb_func

main:
    push {r0-r3}
    mov r0, #0xFF
    lsl r0, r0, #0x1
    add r0, r0, #0x5
    ldr r2, =(0x806E6D0 +1)
    bl linker
    cmp r0, #0x1
    beq skip
    pop {r0-r3}
    mov r0, #0x0
    mov r1, r8
    ldr r0, [r1]
    mov r1, #0xa4
    lsl r1, r1, #0x2
    add r0, r0, r1
    add r1, r4, #0x0
    ldr r2, =(0x809FDA0 +1)
    bl linker
    ldr r1, =(0x8025A00 +1)
    bx r1
    
skip:
    pop {r0-r3}
    mov r0, #0x0
    mov r1, r8
    ldr r0, [r1]
    mov r1, #0xa4
    lsl r1, r1, #0x2
    add r0, r0, r1
    add r1, r4, #0x0
    ldr r1, =(0x8025A00 +1)
    bx r1
    
linker:
    bx r2
    
.align 2

0F B4 FF 20 40 00 05 30 0E 4A 00 F0 19 F8 01 28 0C D0 0F BC 00 20 41 46 08 68 A4 21 89 00 40 18 21 1C 09 4A 00 F0 0C F8 08 49 08 47 0F BC 00 20 41 46 08 68 A4 21 89 00 40 18 21 1C 03 49 08 47 10 47 C0 46 D1 E6 06 08 A1 FD 09 08 01 5A 02 08

00 48 00 47 XX XX XX 08

.text
.align 2
.thumb
.thumb_func

main:
    mov r0, #0xFF
    lsl r0, r0, #0x1
    add r0, r0, #0x5
    ldr r2, =(0x806E6D0 +1)
    bl linker
    cmp r0, #0x1
    beq skip
    add r0, r4, #0x0
    ldr r2, =(0x809fdd8 +1)
    bl linker
    
skip:
    ldr r2, =(0x80a0058 +1)
    bl linker
    ldr r2, =(0x8054BEA +1)
    
linker:
    bx r2
    
.align 2

FF 20 40 00 05 30 07 4A 00 F0 0A F8 01 28 03 D0 20 1C 05 4A 00 F0 04 F8 04 4A 00 F0 01 F8 04 4A 10 47 C0 46 D1 E6 06 08 D9 FD 09 08 59 00 0A 08 EB 4B 05 08

00 48 00 47 XX XX XX 08

.text
.align 2
.thumb
.thumb_func

main:
    ldr r0, =(0x83fb432)
    cmp r2, r0
    beq checkflag
    ldr r0, =(0x83fb4f6)
    cmp r2, r0
    beq checkflag
    b noskip

checkflag:
    mov r0, #0xFF
    lsl r0, r0, #0x1
    add r0, r0, #0x5
    ldr r3, =(0x806E6D0 +1)
    bl linker
    cmp r0, #0x1
    beq skip

noskip:
    ldr r0, =(0x202298C)
    mov r1, #0x0
    ldr r3, =(0x80D87BC +1)
    bl linker
    
skip:
    ldr r0, =(0x8032B4C +1)
    bx r0
    
linker:
    bx r3

.align 2

0B 48 82 42 03 D0 0B 48 82 42 00 D0 07 E0 FF 20 40 00 05 30 08 4B 00 F0 09 F8 01 28 04 D0 07 48 00 21 07 4B 00 F0 02 F8 06 48 00 47 18 47 C0 46 32 B4 3F 08 F6 B4 3F 08 D1 E6 06 08 8C 29 02 02 BD 87 0D 08 4D 2B 03 08

00 48 00 47 XX XX XX 08

NylonGamer said:

Temporarily disabling prize money from battle


Here is a routine that will prevent you from getting money after you won a battle against a trainer. Note that the message telling you about your prize money still shows up, iI am working on that. I'll update the post later with the final version because I don't have much time today. EDIT: I just realized ita lso doesn't work when you lose, so just wait a bit and dont insert it yet...


How to insert:

Compile and insert this routine anywhere into free space:

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

main:
    push {r0-r3}
    mov r0, #0xFF
    lsl r0, r0, #0x1
    add r0, r0, #0x5
    ldr r2, =(0x806E6D0 +1)
    bl linker
    cmp r0, #0x1
    beq skip
    pop {r0-r3}
    mov r0, #0x0
    mov r1, r8
    ldr r0, [r1]
    mov r1, #0xa4
    lsl r1, r1, #0x2
    add r0, r0, r1
    add r1, r4, #0x0
    ldr r2, =(0x809FDA0 +1)
    bl linker
    ldr r1, =(0x8025A00 +1)
    bx r1
    
skip:
    pop {r0-r3}
    mov r0, #0x0
    mov r1, r8
    ldr r0, [r1]
    mov r1, #0xa4
    lsl r1, r1, #0x2
    add r0, r0, r1
    add r1, r4, #0x0
    ldr r1, =(0x8025A00 +1)
    bx r1
    
linker:
    bx r2
    
.align 2

(not really space saving, i know...)

Compiled:

Code:

0F B4 FF 20 40 00 05 30 0E 4A 00 F0 19 F8 01 28 0C D0 0F BC 00 20 41 46 08 68 A4 21 89 00 40 18 21 1C 09 4A 00 F0 0C F8 08 49 08 47 0F BC 00 20 41 46 08 68 A4 21 89 00 40 18 21 1C 03 49 08 47 10 47 C0 46 D1 E6 06 08 A1 FD 09 08 01 5A 02 08

Now navigate to 0x0259E8 and insert following bytes:

Code:

00 48 00 47 XX XX XX 08

Where XX XX XX is the location of the routine you inserted + 1.


How to use:

In order to disable prize money you have to set the flag 0x203.
If you want to reenable it just clear the flag and you will get money again.

Click to expand...

DizzyEgg said:

You probably messed up pointers. Try doing it again and make sure all your pointers are correct.



It seems that TMs are still consumable if taught to a pokemon without animation, i.e. if it only knows 2 moves.

Click to expand...

Where XX XX XX is the location of the routine you inserted + 1.

Click to expand...

FrogInfected said:

I don't really get what the "+1" means. That's probably where I messed up.

Click to expand...

Day/Night Switching of Textbox Palettes (FireRed)

.text
.align 2
.thumb
.thumb_func

main:
  @ get the time
  ldr r1, =(0x300553C) @ if your RTC uses a different location for the time, change this
  ldrb r1, [r1, #0x6]

  @ check the time
  @ if <= 6 AM or >= 6 PM
  @   load night palette
  @ else
  @   load day palette
  cmp r1, #0x6 @ 6 AM
  ble set_night
  cmp r1, #0x12 @ 6 PM
  bge set_night

set_day:
  ldr r1, day_palette
  b return

set_night:
  ldr r1, night_palette

return:
  @ this uses the end of the original function
  @ so there should be no problems
  add r0, r0, r1
  pop {r1}
  bx r1

.align 2

day_palette:
  .word 0x08471DEC

night_palette:
  .word 0x08ZZZZZZ @ change this to your night palette

00 49 08 47 XX XX XX 08 00 00 00 00

Deokishisu said:

If you put the routine at 0x800000, your pointer would NOT be 00 00 80 08, it would be 01 00 80 08, as if the location was 0x800001. It's a THUMB quirk, I think.

Click to expand...

FrogInfected said:

So it's just +1 for the first byte? Also, for every asm pointer, do I always have to add +1?

Click to expand...

FrogInfected said:

for every asm pointer, do I always have to add +1?

Click to expand...

ldr r0, .addr
mov pc, r0
.align 2
.addr: [offset of your code]

chrunch said:

Yes, and no only if it says to.

Click to expand...

NylonGamer said:

Spoiler:

Temporarily disabling prize money from battle


Here is a routine that will prevent you from getting money after you won a battle against a trainer. Good for tournament-style battles, where it makes no sense that you get or lose money.

How to insert:

Compile and insert this routine anywhere into free space:

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

main:
    push {r0-r3}
    mov r0, #0xFF
    lsl r0, r0, #0x1
    add r0, r0, #0x5
    ldr r2, =(0x806E6D0 +1)
    bl linker
    cmp r0, #0x1
    beq skip
    pop {r0-r3}
    mov r0, #0x0
    mov r1, r8
    ldr r0, [r1]
    mov r1, #0xa4
    lsl r1, r1, #0x2
    add r0, r0, r1
    add r1, r4, #0x0
    ldr r2, =(0x809FDA0 +1)
    bl linker
    ldr r1, =(0x8025A00 +1)
    bx r1
    
skip:
    pop {r0-r3}
    mov r0, #0x0
    mov r1, r8
    ldr r0, [r1]
    mov r1, #0xa4
    lsl r1, r1, #0x2
    add r0, r0, r1
    add r1, r4, #0x0
    ldr r1, =(0x8025A00 +1)
    bx r1
    
linker:
    bx r2
    
.align 2

(not really space saving, i know...)

Compiled:

Code:

0F B4 FF 20 40 00 05 30 0E 4A 00 F0 19 F8 01 28 0C D0 0F BC 00 20 41 46 08 68 A4 21 89 00 40 18 21 1C 09 4A 00 F0 0C F8 08 49 08 47 0F BC 00 20 41 46 08 68 A4 21 89 00 40 18 21 1C 03 49 08 47 10 47 C0 46 D1 E6 06 08 A1 FD 09 08 01 5A 02 08

Now navigate to 0x0259E8 and insert following bytes:

Code:

00 48 00 47 XX XX XX 08

Where XX XX XX is the location of the routine you inserted + 1.


Next compile and insert this routine into free space:

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

main:
    mov r0, #0xFF
    lsl r0, r0, #0x1
    add r0, r0, #0x5
    ldr r2, =(0x806E6D0 +1)
    bl linker
    cmp r0, #0x1
    beq skip
    add r0, r4, #0x0
    ldr r2, =(0x809fdd8 +1)
    bl linker
    
skip:
    ldr r2, =(0x80a0058 +1)
    bl linker
    ldr r2, =(0x8054BEA +1)
    
linker:
    bx r2
    
.align 2

Compiled:

Code:

FF 20 40 00 05 30 07 4A 00 F0 0A F8 01 28 03 D0 20 1C 05 4A 00 F0 04 F8 04 4A 00 F0 01 F8 04 4A 10 47 C0 46 D1 E6 06 08 D9 FD 09 08 59 00 0A 08 EB 4B 05 08

Finally navigate to 0x054BE0 and insert following bytes where XX XX XX is the location of the second routine +1:

Code:

00 48 00 47 XX XX XX 08

This thing requires two routines, that's because the money gets reduced when you black out while the prize money is gained after the message appears. These are two different places so there have to be two different functions :P


At last you should also want to remove the text that appears after winning/losing that informs you about the money you gained/lost. You need another routine for that. Compile and insert into free space:

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

main:
    ldr r0, =(0x83fb432)
    cmp r2, r0
    beq checkflag
    ldr r0, =(0x83fb4f6)
    cmp r2, r0
    beq checkflag
    b noskip

checkflag:
    mov r0, #0xFF
    lsl r0, r0, #0x1
    add r0, r0, #0x5
    ldr r3, =(0x806E6D0 +1)
    bl linker
    cmp r0, #0x1
    beq skip

noskip:
    ldr r0, =(0x202298C)
    mov r1, #0x0
    ldr r3, =(0x80D87BC +1)
    bl linker
    
skip:
    ldr r0, =(0x8032B4C +1)
    bx r0
    
linker:
    bx r3

.align 2

Compiled:

Code:

0B 48 82 42 03 D0 0B 48 82 42 00 D0 07 E0 FF 20 40 00 05 30 08 4B 00 F0 09 F8 01 28 04 D0 07 48 00 21 07 4B 00 F0 02 F8 06 48 00 47 18 47 C0 46 32 B4 3F 08 F6 B4 3F 08 D1 E6 06 08 8C 29 02 02 BD 87 0D 08 4D 2B 03 08

Now change the bytes at 0x032B44 to following (XX XX XX) is the location of this last routine:

Code:

00 48 00 47 XX XX XX 08

How to use:

In order to disable prize money you have to set the flag 0x203.
If you want to reenable it just clear the flag and you will get money again.

Click to expand...

Ephraim225 said:

Checking HM Compatibility
Hey guys, I've got a fun one for you. If you're like me and hate wasting move slots on HMs, this hack will make that a thing of the past. This hack checks whether the player's team contains a Pokemon that can learn an HM you specify. It doesn't check if they actually HAVE it, only whether they CAN learn it. Used correctly, the player can simply walk up to a tree and cut it immediately if they have a Pokémon that can cut. This is for Fire Red but porting it should be simple if you know the equivalent offsets in Emerald (and I don't, if someone does, let me know and I'll update this post)

Compile and insert to free space:

Spoiler:

.align 2
.thumb

start:
push {r0-r5, lr}
mov r5, #0x0

loopback:
ldr r0, =(0x2024284) /* Player's party in RAM */
mov r2, #0x64
mov r1, r5
mul r1, r1, r2
add r0, r0, r1
mov r1, #0xB
ldr r3, =(0x803FBE8 +1) /* Pokemon decrypter */
bl linker

ldr r3, =(0x8252BD0) /* TM Compatibility table */
lsl r0, r0, #0x3
add r3, r0, r3
add r3, r3, #0x6
ldrb r2, [r3]
ldr r1, =(0x20370D0) /* Var 0x800D in RAM */
ldrb r0, [r1]
mov r3, r0
and r3, r2, r3
cmp r0, r3
beq end

ldr r3, =(0x2024029) /* Player's team size */
ldrb r3, [r3]
add r5, r5, #0x1
cmp r5, r3
beq endfail
b loopback

end:
strb r5, [r1]
pop {r0-r5, pc}

endfail:
mov r5, #0x6
strb r5, [r1]
pop {r0-r5, pc}

linker:
bx r3

NOTE: Before you compile, direct your attention to the line highlighted in blue. The offset here is the offset of the table that determines TM/HM compatibility. If you have expanded the number of Pokémon in your hack, be sure to change this offset to whatever the new offset is.

Now, using this ASM is simple. In whatever script you're writing, first set variable 0x800D (aka LASTRESULT) to one of the following values based on the HM you are checking:

Spoiler:

0x4 - Cut
0x8 - Fly
0x10 - Surf
0x20 - Strength
0x40 - Flash
0x80 - Rock Smash

Then, call the ASM using Callasm. After the ASM runs, variable 0x800D will be set to the party slot containing the Pokémon who can learn whatever move you checked for, or 0x6 if no Pokémon was found.

The only issue is, Fly and Flash aren't used in scripts by the game, and Dive and Waterfall can't be checked. Making items that perform the same functions using other methods, however, is a working substitute.

Here's an example script. Let's say I'm editing the cut tree script. (If you remove the badge check and attack check as I have you can actually overwrite the original script with this, as there's enough space for it)

Spoiler:

#org 0x81BDF13
'-----------------------------------
special INIT_STEPCOUNT
compare LASTRESULT 0x2
if == jump 0x81A7AE0 ' Equal To
lockall
setvar LASTRESULT 0x4
callasm 0x8XXXXXX ' This should be changed to wherever you put the ASM in your ROM
compare LASTRESULT 0x6
if == jump 0x81BDF87 ' This skips the rest of the script if 0x6 is returned
setanimation 0x0 0x800D
storepartypokemon 0x0 0x800D
storeattack 0x1 0xF
msgbox 0x81BDF94 ' This tree looks like...
callstd MSG_YESNO ' Yes/No message
compare LASTRESULT NO
if == jump 0x81BDF91 ' Equal To
msgbox 0x81BDFD7 ' \v\h02 used \v\h03!
callstd MSG_NOCLOSE ' Non-closing message
closemsg
doanimation 0x2
waitspecial
jump 0x81BDF76

Anyways, that's that. I'll be using this in the future, but I do hope others can make use of it too.

Click to expand...

cmp r5, r3
beq endfail
b loopback

FBI said:

I don't know where it is either. Perhaps you can ask daniilS via VM or something.




1) For forced evolution, I don't know what you're really talking about. You mean just make a Pokemon evolve without giving the player time to hit the "b" button? I'll look into Pokemon evolution sure.

2) I haven't seen it so VMing me it would be nice. Anyways this is rather easy, I've done it before. I'll post the results at the bottom of this post.

3) Skipping the introduction was already done by Knizz. There's a post in the research and development section's quick research thread.

Preventing TMs from being consumed on use

Quick research:
TMs are deleted in two places. The first place is in their own function. When called from the bag, after use the TM has it's own deletion mechanism. The second way is from the bag, after you use a TM the bag attempts to delete it as well. Well, the solution is quite simple. There's two ways to do this, either go to 0809A1D8 call your own function there which checks if the item is a TM, and if it is, just jump to the end. Or much more simply you just remove the parts from the bag and tm function that deletes the TM (Which is what I did). The former way is a way you can make another item you have unconsumable.

To insert:
Do the byte changes below
0x124F78: 00 00 00 00
0x125C80: 00 00 00 00

Make it Ungivable:
insert that at 0x1326B8: 00 00 17 E0

Make it consumable after animation:
Insert: 00 00 00 00 at 0x124F78

To remove the quantities showing up in the bag:

Compile and insert into free space:

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

main:
	cmp r5, #0x0
	bne end
	ldr r3, =(0x8131EFE +1)
	bx r3

end:
	mov r0, r7
	mov r1, #0x8
	mov r2, r4
	ldr r6, =(0x81335B0 +1)
	bl link
	ldr r3, =(0x8131EFE +1)
	bx r3

link:
	bx r6

.align 2

Here's a compiled version:

Code:

00 2D 01 D1 05 4B 18 47 38 1C 08 21 22 1C 04 4E 00 F0 02 F8 01 4B 18 47 30 47 C0 46 FF 1E 13 08 B1 35 13 08

Now navigate to 0x131EF4 and insert:

Code:

00 48 00 47 XX XX XX 08

Where XX XX XX is the pointer to where you assembled the routine +1

Now navigate to 0x131EA5 and change the byte to E0

Unsellable:
Basically for the TMs, you can still sell them to vendors. To change this, you need to modify each TM individually. It's unfortunate, but the game checks if an item can be sold my comparing it's market price to zero. If it's strictly greater than zero, then you can sell it to a vendor, seems to be the rule. So to make TMs unsellable you need to set their market prices individually to zero.
I can't use my own checks to disguise the TMs as unique because the sell routine in shops are used for ALL items including potions, berries, TMs, and other items like nuggets.


Present :3

Click to expand...

0x132924 - 00 00 00 00

0x9BCC2 - 00 00 00 00

Reusable TMs

0x1326BA - 17 E0 //can't hold as item
0x124F78 - 00 00 00 00 //can't delete
0x125C80 - 00 00 00 00 //can't delete
0x124EAC - 00 00 00 00 //can't delete
0x131EA6 - 2A E0 //fix the graphic
0x132924 - 00 00 00 00 //can't sell
0x9BCC2 - 00 00 00 00 //hide the box showing quantity

Forcing the text speed to "fast"

0xF78D0 - 01 20

Pokemon_XY said:

I've found a way to make TMs unsellable:

Code:

0x132924 - 00 00 00 00

In addition, the quantity in bag when you buy TMs in the game should be hided, and here is a quick way to remove the box which shows the quantity for all items:

Code:

0x9BCC2 - 00 00 00 00

So here's the full code, no extra routines needed

Reusable TMs

Code:

0x1326BA - 17 E0 //can't hold as item
0x124F78 - 00 00 00 00 //can't delete
0x125C80 - 00 00 00 00 //can't delete
0x124EAC - 00 00 00 00 //can't delete
0x131EA6 - 2A E0 //fix the graphic
0x132924 - 00 00 00 00 //can't sell
0x9BCC2 - 00 00 00 00 //hide the box showing quantity

My contribution:

Forcing the text speed to "fast"

It is done by neglecting the speed set by the player:

Code:

0xF78D0 - 01 20

Then everything is done automatically.

Click to expand...

BlackWhiteRobin said:

Umm... Hi. I believe I don't understand the implication of your comment "//can't delete". Does this mean I can't delete the attack I taught using a TM?

Click to expand...