[NDS] Animal Crossing: Wild World [U 1.0] [AR]

[dragonboy269]

Search and Teleport v2

What it does:
This code searches for an item, then teleports you to that item

Directions: Type znx(xxx) y(yyy) into the chat and submit your message
zn is the activator, just type it

y is the hex code of the item, you can remove leading zeros

x is the number of items to skip, for example
if your friend has 2 gold roses in your town, typing
zn0 1c would teleport to the first gold rose, and typing zn1 1c would go to the second rose (skipping 1 of that item)


code:

023FF090 012FFF11
E0000000 000000E0
E1DF5DB4 E1DF4DB2
E28F2001 E12FFF12
493046F4 42AA880A
800CD142 F0003101
1C2CF841 F83EF000
21104A29 39010209
42AB8813 2C00D102
3C01D004 39013202
E02DD5F6 03092121
4B211C0D 23201AD2
0852021B 01E42402
42A22000 1B12DB02
E7FA3001 20001C04
DB022C04 30013C04
4358E7FA 182D0100
0124435C 20001909
DB022A10 30013A10
4358E7FA 435A182D
48111889 22A96800
1A8000D2 60856001
477046E6 3101200C
220F2500 3101780B
DC032B20 40C53901
E007092D DB002B40
40133B07 18ED4083
D5EF3804 00004770
021E3124 022AF136
021C6DEC 24246E7A
023FF090 E3520003

Source:

ldrh r5,Activator
ldrh r4,Done

@convert to thumb
add r2,pc,#1
bx r2
.thumb

mov r12,lr

@[Text to Item] = r5
ldr r1, text

ldrh r2,[r1]
cmp r2,r5
bne End
strh r4,[r1]
add r1,#1
bl TextToItem
mov r4,r5
bl TextToItem


@[Item Address] = r2
ldr r2, Map 
ldr r1, =0x10
lsl r1, #0x8
sub r1, #0x1 

maploop:
ldrh r3, [r2] 
cmp r3, r5 
bne notreplace
cmp r4,#0
beq Move
sub r4,#1
notreplace: 
add r2, #0x2 @add 2 to the map address, thus going to the next spot
sub r1, #0x1 @subtract 1 from r5, this is howmany times the loop repeats
bpl maploop 
b End

@[Calculations..]
Move:
mov r1,#0x21
lsl r1,#0xC @r1 X coordinate
mov r5,r1   @r5 y coordinate
ldr r3, Map
sub r2, r3
mov r3,#0x20
lsl r3,#8
lsr r2,#1
mov r4,#2
lsl r4,#7
mov r0,#0

@Box Number
Div1:
cmp r2,r4
blt Add1
sub r2,r4
add r0,#1
b Div1

Add1:
mov r4,r0
mov r0,#0

@Row number
Div2:
cmp r4,#4
blt Next
sub r4,#4
add r0,#1
b Div2

Next:
@r0 holds row number
@r4 holds box number
@r2 holds slot number

mul r0,r3
lsl r0, #4
add r5,r0
mul r4,r3
lsl r4,#4
add r1,r4

mov r0,#0

Div3:
cmp r2,#16
blt Finish
sub r2,#16
add r0,#1
b Div3

Finish:
mul r0,r3
add r5,r0

mul r2,r3
add r1,r2


ldr r0,Pointer
ldr r0,[r0]
mov r2, #0xA9
lsl r2, #3
sub r0,r2
str r1,[r0]
str r5,[r0,#8]
End:
mov lr,r12
bx lr

TextToItem:
mov r0,#0xC
add r1, #0x1
mov r5,#0x0
mov r2,#0xF

@[[Final text address in r5]]
loop:
ldrb r3,[r1]
add r1,#1
cmp r3,#0x20
bgt skipthis
sub r1,#1
lsr r5,r0
lsr r5,#4
b exit
skipthis:
cmp r3,#0x40
blt skip
sub r3,#0x7
skip:
and r3,r2
lsl r3,r0
add r5,r3
sub r0,#0x4
bpl loop
exit:
bx lr

.arm
Map:
.long 0x021E3124
text:
.long 0x022AF136
Pointer:
.long 0x21C6DEC
Activator:
.ascii "zn"
Done:
.ascii "$$"

Fixed a small error in v2
You will now teleport exactly in the middle of the item
therefor, if you teleport into something like a rock or a tree, you will be inside of it instead of beside it XD


Text convert routine by Toenailed

Mapslot to coordinates routine by me

All addresses by GH staff