Code: ASM Resource Thread

eMMe97 said:

GREAT!!!!
Can u make a example script please? I don't understand how to make it (I just read the README text in the repository). Thank you :)

Click to expand...

writebytetooffset 0x1 <state tracker ram>
special 0x3c
waitstate
writebytetooffset 0x0 <state_tracker ram>

eMMe97 said:

Ok. But how can insert 2 Pokémon in the box? For example bulbasaur e squirtle?

Click to expand...

GoGoJJTech said:

For Emerald (Changes in Red):

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

main:
	push {r0-r7}
	[COLOR="Red"]ldr r0, =(0x20244EC) @Party Pokémon[/COLOR]
	mov r6, #0x0
	[COLOR="red"]ldr r7, =(0x20244E9) @Party Quantity[/COLOR]
	ldrb r7, [r7]

	
loop:
	cmp r6, r7
	beq end
	mov r1, #0x64
	mul r1, r1, r6
	add r0, r0, r1
	mov r5, r0
	mov r1, #0x39
	[COLOR="red"]ldr r3, =(0x806A518 +1) @Pokemon Get Attribute[/COLOR]
	bl linker
	mov r4, r0
	cmp r4, #0x0
	beq next
	mov r0, r5
	mov r1, #0x3A
	[COLOR="red"]ldr r3, =(0x806A518 +1) @Pokemon Get Attribute[/COLOR]
	bl linker
	add r6, r6, #0x1
	cmp r4, r0
	beq loop

addOn:
	add r4, r4, #0x3 @amount to add per step. Here it's 3
	cmp r4, r0
	ble cont
	mov r4, r0
	
cont:
	mov r0, r5
	mov r1, #0x39
	[COLOR="Red"]ldr r2, =(0x20375F0) @Var 0x800D (Lastresult)[/COLOR]
	strh r4, [r2]
	[COLOR="red"]ldr r3, =(0x806ACAC) @Pokemon Set Attribute[/COLOR]
	bl linker
	b loop
	
next:
	add r6, r6, #0x1
	b loop

end:
	pop {r0-r7}
	lsl r0, r0, #0x18
	lsr r0, r0, #0x18
	cmp r0, #0x1
	beq brancher
	mov r0, r5
	[COLOR="red"]ldr r1, =(0x809C8F4 +1)[/COLOR]
	bx r1

brancher:
	[COLOR="red"]ldr r0, =(0x809C92E +1) @This may actually fail the routine, needs testing[/COLOR]
	bx r0
	
linker:
	bx r3
	
.align 2

Insert at 0x9C8EA.

Click to expand...

opakedragon said:

Lunos said:

ghoulslash said:

Here you go! (admittedly I have not tested it)

Code:

.text
.align 2
.thumb
.thumb_func
.global GetHappiness

Main:
	push {r0-r2, lr}
	ldr r0, .var8004
	ldrb r0, [r0]	@slot num
	mov r1, #0x64
	mul r0, r1
	ldr r1, .PartyData
	add r0, r1, r0
	mov r1, #0x20	@happiness
	bl GetAttribute
	ldr r1, .var8004
	strb r0, [r1, #0x2]	@store into var8005
	pop {r0-r2, pc}
	
GetAttribute:
	ldr r2, =(0x0803FBE8 +1)
	bx r2
	
.align 2
.PartyData:	.word 0x02024284
.var8004:	.word 0x020370C0

Click to expand...

Welp, it didn't work.
I compiled the routine and dropped it in the offset 71A250, wrote this script and once I checked it In-Game, this was the result.

Note: Just for the record, the savefile is right after defeating my Rival for the very first time, so there's no way for my Pokémon to have 76 points.

Dunno if you'll be able to fix it, but in any case thank you very much.

Click to expand...

Would you be willing to reshare the script (the link is no longer working) in code tags? I am relatively new and trying to figure this stuff out.

Click to expand...

CloverDevteam said:

>Ruby/Saphhire
>nothing to see here
Real disappointing considering I'm stuck with a ruby base for certain reasons.

Click to expand...

Sagiri said:

Unhidden Power [FR]

This routine makes the game calculate and display the actual type of Hidden Power in battle and in status screens. If, for example, a Pok�mon's Hidden Power type is Water, it will display as a Water-type move, just like Surf or any other Water-type move.

Note that this only calculates and displays the type, not the base power.

Click to expand...

ShinypikachuX said:

I have a great idea for fire red I was thinking of in game player name change like to set the player name to a predefined name.
For example if the player name is David by setflag or setvar it could be changed to Mike I.e.,name decided by the hacker.
Sorry if this is too complicated and thanks in advance.

Click to expand...

.text
.align 2
.thumb
.thumb_func
.global ChangePokeNames
/*
Function to change all pokemon OT names to the players new name (unless IDs dont match aka traded pokemon)

Inputs: 
	-none
Outputs: 
	-none

Usage:
	callasm 0x809FC91  //rename player
	waitstate
	callasm [this_routine]+1
*/

Start:
	push {r0-r7, lr}

ChangePartyNames:
	ldr r7, .PartyPoke
	mov r6, #0x64
	mov r5, #0x5	
	bl NameChanges

ChangeBoxNames:
	ldr r7, .BoxDMA
	ldr r7, [r7]
	add r7, #0x4
	mov r6, #0x50
	mov r5, #0x69
	lsl r5, r5, #0x2		@420 box pokemon total
	bl NameChanges
	
Exit:
	pop {r0-r7, pc}
	
	
/*
Name Change Call Function
	r5 = num pokes to check
	r6 = data size per poke
	r7 = start address
*/	
NameChanges:
	push {lr}
	mov r4, #0x0	
	
OuterLoop:
	mov r0, r4
	mul r0, r6
	
GetPokeDataLoc:
	add r0, r0, r7	
	ldrh r1, [r0, #0x4]	
	
GetPlayerID:
	ldr r2, .Saveblock
	ldr r3, [r2]
	ldrh r2, [r3, #0xA]	
	
CompareIDs:
	cmp r1, r2
	bne OuterLoopRestart		@OTIDs do not match -> no name change
	
PrepInnerLoop:
	add r0, #0x14
	mov r2, #0x0	
	
charLoop:
	ldrb r1, [r3]
	strb r1, [r0]
	cmp r2, #0x6		@7 bytes for OT name
	beq OuterLoopRestart
	add r3, #0x1
	add r0, #0x1
	add r2, #0x1
	b charLoop

OuterLoopRestart:
	cmp r4, r5
	beq Return
	add r4, #0x1
	b OuterLoop

Return:
	pop {r0}
	bx r0

	
.align 2
.PartyPoke:	.word 0x02024284
.Saveblock:	.word 0x0300500C
.BoxDMA:	.word 0x03005010

Chacha Dinosaur said:

EV-enhancing items (Power Items)

Spoiler:

The routine now does not require any new Held Effect Item Byte. The new power items are tied to Macho Brace's Held Item Effect Byte. (Thanks to MrDollSteak for giving the idea.)
The type of EV gain is now differentiated by the Second Held Effect Byte (the byte just after the Primary Held Effect Byte in the Item Table).
There is no need to code the Speed Drop explicitly for Power Items.

Usage is now like this by using the following parameters in the Item Table:
Primary Byte | Secondary Byte | Item Name
0x18 | 0x0 | Macho Brace
0x18 | 0x1 | Power Weight
0x18 | 0x2 | Power Bracer
0x18 | 0x3 | Power Belt
0x18 | 0x4 | Power Anklet
0x18 | 0x5 | Power Lens
0x18 | 0x6 | Power Band

Also, there are additional byte changes mentioned in the Spoiler to limit the EVs for each stat from 255 to 252 to avoid wastage of EVs by normal battling.

Fire Red:-

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

Main:
    push {r2}
    mov r0, r8  /*Load pokemon slot no*/
    mov r1, #0xC
    mov r2, #0x0
    bl Decrypter /* Load pokemon's item */
    lsl r0, r0, #0x10
    lsr r0, r0, #0x10
    pop {r2} /* Restore Pokerus Factor*/
    cmp r0, #0xAF
    beq EnigmaBerry
    add r3, r0, #0x0
    bl GetItemEffect /* Get Held Item's Effect Byte*/
    lsl r0, r0, #0x18
    lsr r0, r0, #0x18
    cmp r0, #0x18
    bne NoPowerItem
    add r0, r3, #0x0
    bl GetSecondEffectByte
    lsl r0, r0, #0x18
    lsr r0, r0, #0x18
    cmp r0, #0x0
    beq MachoBrace
    add r1, r6, #0x1 /*Load a Power Item's Secondary Effect Byte*/
    cmp r1, r0 /*Match items*/ 
    bne NoPowerItem /*No Power Item or No Match for that particular stat*/
    lsl r2, r2, #0x2
    add r4, r4, r2 /* Add 4 EVs or 8 (due to Pokerus) */
NoPowerItem:    
    ldr r3, =0x080439D9
    bx r3

EnigmaBerry:
    ldr r3, =0x0804398F
    bx r3

MachoBrace:
    ldr r3, =0x080439D5
    bx r3

Decrypter:
    ldr r3, =0x0803FBE9
    bx r3

GetItemEffect:
    ldr r1, =0x0809A925
    bx r1

GetSecondEffectByte:
    ldr r1, =0x0809A949
    bx r1

/*At 43978: 04 1C 54 43 00 49 08 47 XX+1 XX XX 08 00 00 00 00 00 00 00 00 00 00*/
/*At 439FC && 43A02: FC to limit EV growth for each stat to 252 */

Emerald:-

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func

Main:
    push {r2}
    mov r0, r8  /*Load pokemon slot no*/
    mov r1, #0xC
    mov r2, #0x0
    bl Decrypter /* Load pokemon's item */
    lsl r0, r0, #0x10
    lsr r0, r0, #0x10
    pop {r2} /* Restore Pokerus Factor*/
    cmp r0, #0xAF
    beq EnigmaBerry
    add r3, r0, #0x0
    bl GetItemEffect /* Get Held Item's Effect Byte*/
    lsl r0, r0, #0x18
    lsr r0, r0, #0x18
    cmp r0, #0x18
    bne NoPowerItem
    add r0, r3, #0x0
    bl GetSecondEffectByte
    lsl r0, r0, #0x18
    lsr r0, r0, #0x18
    cmp r0, #0x0
    beq MachoBrace
    add r1, r6, #0x1 /*Load a Power Item's Secondary Effect Byte*/
    cmp r1, r0 /*Match items*/ 
    bne NoPowerItem /*No Power Item or No Match for that particular stat*/
    lsl r2, r2, #0x2
    add r4, r4, r2 /* Add 4 EVs or 8 (due to Pokerus) */
NoPowerItem:    
    ldr r3, =0x0806DC25
    bx r3

EnigmaBerry:
    ldr r3, =0x0806DBDB
    bx r3

MachoBrace:
    ldr r3, =0x0806DC21
    bx r3

Decrypter:
    ldr r3, =0x0806A519
    bx r3

GetItemEffect:
    ldr r1, =0x080D74DD
    bx r1

GetSecondEffectByte:
    ldr r1, =0x080D7501
    bx r1

/*At 6DBC4: 04 1C 54 43 00 49 08 47 XX+1 XX XX 08 00 00 00 00 00 00 00 00 00 00*/
/*At 6DC48 && 6DC4E: FC to limit EV growth for each stat to 252 */

Click to expand...

ghoulslash said:

The player's name can be changed from the overworld via callasm 0x809FC91

I have a pretty old routine I wrote to change the OT name of your pokemon to the new name based on matching OTIDs, so traded pokemon will retain their OT names. Note that I wrote it a while ago so there may be bugs

Spoiler:

Code:

.text
.align 2
.thumb
.thumb_func
.global ChangePokeNames
/*
Function to change all pokemon OT names to the players new name (unless IDs dont match aka traded pokemon)

Inputs: 
	-none
Outputs: 
	-none

Usage:
	callasm 0x809FC91  //rename player
	waitstate
	callasm [this_routine]+1
*/

Start:
	push {r0-r7, lr}

ChangePartyNames:
	ldr r7, .PartyPoke
	mov r6, #0x64
	mov r5, #0x5	
	bl NameChanges

ChangeBoxNames:
	ldr r7, .BoxDMA
	ldr r7, [r7]
	add r7, #0x4
	mov r6, #0x50
	mov r5, #0x69
	lsl r5, r5, #0x2		@420 box pokemon total
	bl NameChanges
	
Exit:
	pop {r0-r7, pc}
	
	
/*
Name Change Call Function
	r5 = num pokes to check
	r6 = data size per poke
	r7 = start address
*/	
NameChanges:
	push {lr}
	mov r4, #0x0	
	
OuterLoop:
	mov r0, r4
	mul r0, r6
	
GetPokeDataLoc:
	add r0, r0, r7	
	ldrh r1, [r0, #0x4]	
	
GetPlayerID:
	ldr r2, .Saveblock
	ldr r3, [r2]
	ldrh r2, [r3, #0xA]	
	
CompareIDs:
	cmp r1, r2
	bne OuterLoopRestart		@OTIDs do not match -> no name change
	
PrepInnerLoop:
	add r0, #0x14
	mov r2, #0x0	
	
charLoop:
	ldrb r1, [r3]
	strb r1, [r0]
	cmp r2, #0x6		@7 bytes for OT name
	beq OuterLoopRestart
	add r3, #0x1
	add r0, #0x1
	add r2, #0x1
	b charLoop

OuterLoopRestart:
	cmp r4, r5
	beq Return
	add r4, #0x1
	b OuterLoop

Return:
	pop {r0}
	bx r0

	
.align 2
.PartyPoke:	.word 0x02024284
.Saveblock:	.word 0x0300500C
.BoxDMA:	.word 0x03005010

Click to expand...

Lunos said:

I
EDIT:

I was testing this routine out just now, and I'm not entirely sure if it's working correctly.
It looks to me like the Eggs are inheriting 3 stats alone, when they should always inherit 5 stats :/
I've been doing tests using this routine and XXXX.

In my last attempt for example, the results of the Egg were:
-03 HP IVs. Charmander has 30 and Ditto 26.
-03 Atk IVs inherited from Charmander.
-22 Def IVs inherited from Charmander or Ditto (both have 22 Def IVs.)
-23 Spd IVs. Charmander has 31 and Ditto 25.
-19 SpAtk IVs. Charmander has 31 and Ditto 10.
-31 SpDef IVs inherited from Ditto.

If we assume that HP is the random stat in this spread, Spd and SpAtk are the issue here.
The Egg should have inherited Charmander's or Ditto's values in those stats after all, right?
Has anyone tested this yet?

Click to expand...

ShinypikachuX said:

No no I want to set player name to another one without any freedom to player, so I decide the name not the player.
But thanks anyways.
By the way can you help me I'm stuck with the random trainer id and secret id generator routine it won't compile for me please help.

Click to expand...

.text
.align 2
.thumb
.global NewPlayerName
/*
usage:
	loadpointer 0x0 @name
	callasm [this_routine+1]
*/

Main:
	push {r0-r4, lr}
	ldr r0, .loadPointer
        ldr r0, [r0]     @string pointer
	mov r4, r0
	bl StringLength
	cmp r0, #0x7
	bgt Exit
	ldr r0, .TrainerDMA
	ldr r0, [r0]	@dest
	mov r1, r4		@src
	bl StringCopy
Exit:
	pop {r0-r4, pc}
	
StringLength:
	ldr r1, =(0x8008E08|1)
	bx r1
	
StringCopy:
	ldr r2, =(0x8008D84|1)
	bx r2

.align 2
.loadPointer: .word 0x03000f14
.TrainerDMA: .word 0x0300500c

#dynamic 0x800000
#org @start
lock
faceplayer
loadpointer 0x0 @name
callasm 0x8990001
msgbox @newName 0x6
release
end
#org @name
= Fred
#org @newName
= Your new name is [player]!

By the way can you help me I'm stuck with the random trainer id and secret id generator routine it won't compile for me please help.

Click to expand...

ghoulslash said:

Actually, that's much easier. This will let you load a new player name into loadpointer 0x0 and then force the change. Make sure the player's name is 7 characters or less or else it will fail.

Spoiler:

Code:

.text
.align 2
.thumb
.global NewPlayerName
/*
usage:
	loadpointer 0x0 @name
	callasm [this_routine+1]
*/

Main:
	push {r0-r4, lr}
	ldr r0, .loadPointer
	mov r4, r0
	bl StringLength
	cmp r0, #0x7
	bgt Exit
	ldr r0, .TrainerDMA
	ldr r0, [r0]	@dest
	mov r1, r4		@src
	bl StringCopy
Exit:
	pop {r0-r4, pc}
	
StringLength:
	ldr r1, =(0x8008E08|1)
	bx r1
	
StringCopy:
	ldr r2, =(0x8008D84|1)
	bx r2

.align 2
.loadPointer: .word 0x03000f14
.TrainerDMA: .word 0x0300500c

eg. if I insert the above at 0x990000, then in XSE I could do the following to force the player's name to be Fred.

Code:

#dynamic 0x800000
#org @start
lock
faceplayer
loadpointer 0x0 @name
callasm 0x8990001
msgbox @newName 0x6
release
end
#org @name
= Fred
#org @newName
= Your new name is [player]!

I'm not sure what routine you're talking about, sorry :/

Click to expand...

ghoulslash said:

Actually, that's much easier. This will let you load a new player name into loadpointer 0x0 and then force the change. Make sure the player's name is 7 characters or less or else it will fail.

Spoiler:

Code:

.text
.align 2
.thumb
.global NewPlayerName
/*
usage:
	loadpointer 0x0 @name
	callasm [this_routine+1]
*/

Main:
	push {r0-r4, lr}
	ldr r0, .loadPointer
	mov r4, r0
	bl StringLength
	cmp r0, #0x7
	bgt Exit
	ldr r0, .TrainerDMA
	ldr r0, [r0]	@dest
	mov r1, r4		@src
	bl StringCopy
Exit:
	pop {r0-r4, pc}
	
StringLength:
	ldr r1, =(0x8008E08|1)
	bx r1
	
StringCopy:
	ldr r2, =(0x8008D84|1)
	bx r2

.align 2
.loadPointer: .word 0x03000f14
.TrainerDMA: .word 0x0300500c

eg. if I insert the above at 0x990000, then in XSE I could do the following to force the player's name to be Fred.

Code:

#dynamic 0x800000
#org @start
lock
faceplayer
loadpointer 0x0 @name
callasm 0x8990001
msgbox @newName 0x6
release
end
#org @name
= Fred
#org @newName
= Your new name is [player]!

I'm not sure what routine you're talking about, sorry :/

Click to expand...