scnorton
1630 lines
28 KiB
ArmAsm
1630 lines
28 KiB
ArmAsm
.include "asm/macros.inc"
|
|
.include "constants/constants.inc"
|
|
|
|
.syntax unified
|
|
|
|
.text
|
|
|
|
thumb_func_start ScrCmd_vmessage
|
|
ScrCmd_vmessage: @ 806BC6C
|
|
push {lr}
|
|
bl ScriptReadWord
|
|
ldr r1, _0806BC84 @ =gVScriptOffset
|
|
ldr r1, [r1]
|
|
subs r0, r1
|
|
bl ShowFieldMessage
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BC84: .4byte gVScriptOffset
|
|
thumb_func_end ScrCmd_vmessage
|
|
|
|
thumb_func_start ScrCmd_bufferspeciesname
|
|
ScrCmd_bufferspeciesname: @ 806BC88
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
ldr r1, _0806BCC0 @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r1
|
|
ldr r2, [r4]
|
|
movs r1, 0xB
|
|
muls r1, r0
|
|
ldr r0, _0806BCC4 @ =gSpeciesNames
|
|
adds r1, r0
|
|
adds r0, r2, 0
|
|
bl StringCopy
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BCC0: .4byte sScriptStringVars
|
|
_0806BCC4: .4byte gSpeciesNames
|
|
thumb_func_end ScrCmd_bufferspeciesname
|
|
|
|
thumb_func_start ScrCmd_bufferleadmonspeciesname
|
|
ScrCmd_bufferleadmonspeciesname: @ 806BCC8
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r2, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
ldr r0, _0806BD08 @ =sScriptStringVars
|
|
lsls r2, 2
|
|
adds r2, r0
|
|
ldr r4, [r2]
|
|
bl GetLeadMonIndex
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
movs r1, 0x64
|
|
muls r0, r1
|
|
ldr r1, _0806BD0C @ =gPlayerParty
|
|
adds r0, r1
|
|
movs r1, 0xB
|
|
movs r2, 0
|
|
bl GetMonData
|
|
movs r1, 0xB
|
|
muls r1, r0
|
|
ldr r0, _0806BD10 @ =gSpeciesNames
|
|
adds r1, r0
|
|
adds r0, r4, 0
|
|
bl StringCopy
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BD08: .4byte sScriptStringVars
|
|
_0806BD0C: .4byte gPlayerParty
|
|
_0806BD10: .4byte gSpeciesNames
|
|
thumb_func_end ScrCmd_bufferleadmonspeciesname
|
|
|
|
thumb_func_start ScrCmd_bufferpartymonnick
|
|
ScrCmd_bufferpartymonnick: @ 806BD14
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
movs r1, 0x64
|
|
muls r0, r1
|
|
ldr r1, _0806BD54 @ =gPlayerParty
|
|
adds r0, r1
|
|
ldr r1, _0806BD58 @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r1
|
|
ldr r4, [r4]
|
|
movs r1, 0x2
|
|
adds r2, r4, 0
|
|
bl GetMonData
|
|
adds r0, r4, 0
|
|
bl StringGetEnd10
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BD54: .4byte gPlayerParty
|
|
_0806BD58: .4byte sScriptStringVars
|
|
thumb_func_end ScrCmd_bufferpartymonnick
|
|
|
|
thumb_func_start ScrCmd_bufferitemname
|
|
ScrCmd_bufferitemname: @ 806BD5C
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
ldr r1, _0806BD8C @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r1
|
|
ldr r1, [r4]
|
|
bl sub_8099E90
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BD8C: .4byte sScriptStringVars
|
|
thumb_func_end ScrCmd_bufferitemname
|
|
|
|
thumb_func_start ScrCmd_cmdDA
|
|
ScrCmd_cmdDA: @ 806BD90
|
|
push {r4-r7,lr}
|
|
adds r4, r0, 0
|
|
ldr r0, [r4, 0x8]
|
|
ldrb r7, [r0]
|
|
adds r0, 0x1
|
|
str r0, [r4, 0x8]
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r5, r0, 16
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r6, r0, 16
|
|
ldr r1, _0806BDE4 @ =sScriptStringVars
|
|
lsls r0, r7, 2
|
|
adds r0, r1
|
|
ldr r4, [r0]
|
|
adds r0, r5, 0
|
|
adds r1, r4, 0
|
|
bl sub_8099E90
|
|
cmp r5, 0x4
|
|
bne _0806BDEC
|
|
cmp r6, 0x1
|
|
bls _0806BDEC
|
|
ldr r1, _0806BDE8 @ =gUnknown_83A72A0
|
|
adds r0, r4, 0
|
|
bl StringAppend
|
|
b _0806BE22
|
|
.align 2, 0
|
|
_0806BDE4: .4byte sScriptStringVars
|
|
_0806BDE8: .4byte gUnknown_83A72A0
|
|
_0806BDEC:
|
|
adds r0, r5, 0
|
|
subs r0, 0x85
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
cmp r0, 0x29
|
|
bhi _0806BE22
|
|
cmp r6, 0x1
|
|
bls _0806BE22
|
|
ldr r0, _0806BE2C @ =sScriptStringVars
|
|
lsls r1, r7, 2
|
|
adds r1, r0
|
|
ldr r4, [r1]
|
|
adds r0, r4, 0
|
|
bl StringLength
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
cmp r0, 0
|
|
beq _0806BE22
|
|
adds r0, r4, r0
|
|
subs r0, 0x1
|
|
movs r1, 0xFF
|
|
strb r1, [r0]
|
|
ldr r1, _0806BE30 @ =gUnknown_83A72A2
|
|
adds r0, r4, 0
|
|
bl StringAppend
|
|
_0806BE22:
|
|
movs r0, 0
|
|
pop {r4-r7}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BE2C: .4byte sScriptStringVars
|
|
_0806BE30: .4byte gUnknown_83A72A2
|
|
thumb_func_end ScrCmd_cmdDA
|
|
|
|
thumb_func_start ScrCmd_bufferdecorationname
|
|
ScrCmd_bufferdecorationname: @ 806BE34
|
|
push {lr}
|
|
ldr r1, [r0, 0x8]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_bufferdecorationname
|
|
|
|
thumb_func_start ScrCmd_buffermovename
|
|
ScrCmd_buffermovename: @ 806BE50
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
ldr r1, _0806BE88 @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r1
|
|
ldr r2, [r4]
|
|
movs r1, 0xD
|
|
muls r1, r0
|
|
ldr r0, _0806BE8C @ =gMoveNames
|
|
adds r1, r0
|
|
adds r0, r2, 0
|
|
bl StringCopy
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BE88: .4byte sScriptStringVars
|
|
_0806BE8C: .4byte gMoveNames
|
|
thumb_func_end ScrCmd_buffermovename
|
|
|
|
thumb_func_start ScrCmd_buffernumberstring
|
|
ScrCmd_buffernumberstring: @ 806BE90
|
|
push {r4,r5,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r5, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r4, r0, 0
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
adds r0, r4, 0
|
|
bl sub_80CBF04
|
|
adds r3, r0, 0
|
|
lsls r3, 24
|
|
lsrs r3, 24
|
|
ldr r0, _0806BED0 @ =sScriptStringVars
|
|
lsls r5, 2
|
|
adds r5, r0
|
|
ldr r0, [r5]
|
|
adds r1, r4, 0
|
|
movs r2, 0
|
|
bl ConvertIntToDecimalStringN
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BED0: .4byte sScriptStringVars
|
|
thumb_func_end ScrCmd_buffernumberstring
|
|
|
|
thumb_func_start ScrCmd_bufferstdstring
|
|
ScrCmd_bufferstdstring: @ 806BED4
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
ldr r1, _0806BF0C @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r1
|
|
ldr r2, [r4]
|
|
ldr r1, _0806BF10 @ =gUnknown_83E06B8
|
|
lsrs r0, 14
|
|
adds r0, r1
|
|
ldr r1, [r0]
|
|
adds r0, r2, 0
|
|
bl StringCopy
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BF0C: .4byte sScriptStringVars
|
|
_0806BF10: .4byte gUnknown_83E06B8
|
|
thumb_func_end ScrCmd_bufferstdstring
|
|
|
|
thumb_func_start ScrCmd_bufferstring
|
|
ScrCmd_bufferstring: @ 806BF14
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadWord
|
|
adds r1, r0, 0
|
|
ldr r0, _0806BF38 @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r0
|
|
ldr r0, [r4]
|
|
bl StringCopy
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BF38: .4byte sScriptStringVars
|
|
thumb_func_end ScrCmd_bufferstring
|
|
|
|
thumb_func_start ScrCmd_vloadword
|
|
ScrCmd_vloadword: @ 806BF3C
|
|
push {lr}
|
|
bl ScriptReadWord
|
|
adds r1, r0, 0
|
|
ldr r0, _0806BF58 @ =gVScriptOffset
|
|
ldr r0, [r0]
|
|
subs r1, r0
|
|
ldr r0, _0806BF5C @ =gStringVar4
|
|
bl StringExpandPlaceholders
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BF58: .4byte gVScriptOffset
|
|
_0806BF5C: .4byte gStringVar4
|
|
thumb_func_end ScrCmd_vloadword
|
|
|
|
thumb_func_start ScrCmd_vbufferstring
|
|
ScrCmd_vbufferstring: @ 806BF60
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadWord
|
|
adds r1, r0, 0
|
|
ldr r0, _0806BF8C @ =gVScriptOffset
|
|
ldr r0, [r0]
|
|
subs r1, r0
|
|
ldr r0, _0806BF90 @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r0
|
|
ldr r0, [r4]
|
|
bl StringCopy
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BF8C: .4byte gVScriptOffset
|
|
_0806BF90: .4byte sScriptStringVars
|
|
thumb_func_end ScrCmd_vbufferstring
|
|
|
|
thumb_func_start ScrCmd_bufferboxname
|
|
ScrCmd_bufferboxname: @ 806BF94
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
ldr r1, _0806BFCC @ =sScriptStringVars
|
|
lsls r4, 2
|
|
adds r4, r1
|
|
ldr r4, [r4]
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
bl GetBoxNamePtr
|
|
adds r1, r0, 0
|
|
adds r0, r4, 0
|
|
bl StringCopy
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806BFCC: .4byte sScriptStringVars
|
|
thumb_func_end ScrCmd_bufferboxname
|
|
|
|
thumb_func_start ScrCmd_givemon
|
|
ScrCmd_givemon: @ 806BFD0
|
|
push {r4-r6,lr}
|
|
mov r6, r9
|
|
mov r5, r8
|
|
push {r5,r6}
|
|
sub sp, 0x8
|
|
adds r4, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r6, r0, 0
|
|
lsls r6, 16
|
|
lsrs r6, 16
|
|
ldr r0, [r4, 0x8]
|
|
ldrb r1, [r0]
|
|
mov r9, r1
|
|
adds r0, 0x1
|
|
str r0, [r4, 0x8]
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r5, r0, 0
|
|
lsls r5, 16
|
|
lsrs r5, 16
|
|
adds r0, r4, 0
|
|
bl ScriptReadWord
|
|
mov r8, r0
|
|
adds r0, r4, 0
|
|
bl ScriptReadWord
|
|
ldr r1, [r4, 0x8]
|
|
ldrb r2, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r4, 0x8]
|
|
ldr r4, _0806C04C @ =gSpecialVar_Result
|
|
str r0, [sp]
|
|
str r2, [sp, 0x4]
|
|
adds r0, r6, 0
|
|
mov r1, r9
|
|
adds r2, r5, 0
|
|
mov r3, r8
|
|
bl ScriptGiveMon
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
strh r0, [r4]
|
|
movs r0, 0
|
|
add sp, 0x8
|
|
pop {r3,r4}
|
|
mov r8, r3
|
|
mov r9, r4
|
|
pop {r4-r6}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C04C: .4byte gSpecialVar_Result
|
|
thumb_func_end ScrCmd_givemon
|
|
|
|
thumb_func_start ScrCmd_giveegg
|
|
ScrCmd_giveegg: @ 806C050
|
|
push {r4,lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
ldr r4, _0806C078 @ =gSpecialVar_Result
|
|
bl sub_80A01AC
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
strh r0, [r4]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C078: .4byte gSpecialVar_Result
|
|
thumb_func_end ScrCmd_giveegg
|
|
|
|
thumb_func_start ScrCmd_setmonmove
|
|
ScrCmd_setmonmove: @ 806C07C
|
|
push {r4,r5,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r5, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
adds r1, r0, 0
|
|
lsls r1, 16
|
|
lsrs r1, 16
|
|
adds r0, r5, 0
|
|
adds r2, r4, 0
|
|
bl ScriptSetMonMoveSlot
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_setmonmove
|
|
|
|
thumb_func_start ScrCmd_checkpartymove
|
|
ScrCmd_checkpartymove: @ 806C0A8
|
|
push {r4-r7,lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r7, r0, 16
|
|
ldr r1, _0806C0BC @ =gSpecialVar_Result
|
|
movs r0, 0x6
|
|
strh r0, [r1]
|
|
movs r6, 0
|
|
b _0806C0F6
|
|
.align 2, 0
|
|
_0806C0BC: .4byte gSpecialVar_Result
|
|
_0806C0C0:
|
|
adds r0, r4, 0
|
|
movs r1, 0x2D
|
|
bl GetMonData
|
|
cmp r0, 0
|
|
bne _0806C0F0
|
|
adds r0, r4, 0
|
|
adds r1, r7, 0
|
|
bl pokemon_has_move
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
cmp r0, 0x1
|
|
bne _0806C0F0
|
|
ldr r0, _0806C0E8 @ =gSpecialVar_Result
|
|
strh r6, [r0]
|
|
ldr r0, _0806C0EC @ =gSpecialVar_0x8004
|
|
strh r5, [r0]
|
|
b _0806C116
|
|
.align 2, 0
|
|
_0806C0E8: .4byte gSpecialVar_Result
|
|
_0806C0EC: .4byte gSpecialVar_0x8004
|
|
_0806C0F0:
|
|
adds r0, r6, 0x1
|
|
lsls r0, 24
|
|
lsrs r6, r0, 24
|
|
_0806C0F6:
|
|
cmp r6, 0x5
|
|
bhi _0806C116
|
|
movs r0, 0x64
|
|
adds r1, r6, 0
|
|
muls r1, r0
|
|
ldr r0, _0806C120 @ =gPlayerParty
|
|
adds r4, r1, r0
|
|
adds r0, r4, 0
|
|
movs r1, 0xB
|
|
movs r2, 0
|
|
bl GetMonData
|
|
lsls r0, 16
|
|
lsrs r5, r0, 16
|
|
cmp r5, 0
|
|
bne _0806C0C0
|
|
_0806C116:
|
|
movs r0, 0
|
|
pop {r4-r7}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C120: .4byte gPlayerParty
|
|
thumb_func_end ScrCmd_checkpartymove
|
|
|
|
thumb_func_start ScrCmd_givemoney
|
|
ScrCmd_givemoney: @ 806C124
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadWord
|
|
adds r2, r0, 0
|
|
ldr r0, [r4, 0x8]
|
|
ldrb r1, [r0]
|
|
adds r0, 0x1
|
|
str r0, [r4, 0x8]
|
|
cmp r1, 0
|
|
bne _0806C14A
|
|
ldr r0, _0806C154 @ =gSaveBlock1Ptr
|
|
ldr r0, [r0]
|
|
movs r1, 0xA4
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
adds r1, r2, 0
|
|
bl AddMoney
|
|
_0806C14A:
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C154: .4byte gSaveBlock1Ptr
|
|
thumb_func_end ScrCmd_givemoney
|
|
|
|
thumb_func_start ScrCmd_takemoney
|
|
ScrCmd_takemoney: @ 806C158
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadWord
|
|
adds r2, r0, 0
|
|
ldr r0, [r4, 0x8]
|
|
ldrb r1, [r0]
|
|
adds r0, 0x1
|
|
str r0, [r4, 0x8]
|
|
cmp r1, 0
|
|
bne _0806C17E
|
|
ldr r0, _0806C188 @ =gSaveBlock1Ptr
|
|
ldr r0, [r0]
|
|
movs r1, 0xA4
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
adds r1, r2, 0
|
|
bl RemoveMoney
|
|
_0806C17E:
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C188: .4byte gSaveBlock1Ptr
|
|
thumb_func_end ScrCmd_takemoney
|
|
|
|
thumb_func_start ScrCmd_checkmoney
|
|
ScrCmd_checkmoney: @ 806C18C
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadWord
|
|
adds r2, r0, 0
|
|
ldr r0, [r4, 0x8]
|
|
ldrb r1, [r0]
|
|
adds r0, 0x1
|
|
str r0, [r4, 0x8]
|
|
cmp r1, 0
|
|
bne _0806C1BA
|
|
ldr r4, _0806C1C4 @ =gSpecialVar_Result
|
|
ldr r0, _0806C1C8 @ =gSaveBlock1Ptr
|
|
ldr r0, [r0]
|
|
movs r1, 0xA4
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
adds r1, r2, 0
|
|
bl IsEnoughMoney
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
strh r0, [r4]
|
|
_0806C1BA:
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C1C4: .4byte gSpecialVar_Result
|
|
_0806C1C8: .4byte gSaveBlock1Ptr
|
|
thumb_func_end ScrCmd_checkmoney
|
|
|
|
thumb_func_start ScrCmd_showmoneybox
|
|
ScrCmd_showmoneybox: @ 806C1CC
|
|
push {r4,r5,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r5, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r2, r1, 0x1
|
|
str r2, [r0, 0x8]
|
|
ldrb r1, [r1, 0x1]
|
|
adds r2, 0x1
|
|
str r2, [r0, 0x8]
|
|
cmp r1, 0
|
|
bne _0806C20A
|
|
ldr r0, _0806C214 @ =sub_809D6D4
|
|
bl sub_81119D4
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
cmp r0, 0x1
|
|
beq _0806C20A
|
|
ldr r0, _0806C218 @ =gSaveBlock1Ptr
|
|
ldr r0, [r0]
|
|
movs r1, 0xA4
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
bl GetMoney
|
|
adds r1, r5, 0
|
|
adds r2, r4, 0
|
|
bl DrawMoneyBox
|
|
_0806C20A:
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C214: .4byte sub_809D6D4
|
|
_0806C218: .4byte gSaveBlock1Ptr
|
|
thumb_func_end ScrCmd_showmoneybox
|
|
|
|
thumb_func_start ScrCmd_hidemoneybox
|
|
ScrCmd_hidemoneybox: @ 806C21C
|
|
push {lr}
|
|
bl HideMoneyBox
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_hidemoneybox
|
|
|
|
thumb_func_start ScrCmd_updatemoneybox
|
|
ScrCmd_updatemoneybox: @ 806C228
|
|
push {lr}
|
|
ldr r1, [r0, 0x8]
|
|
adds r1, 0x1
|
|
adds r2, r1, 0x1
|
|
str r2, [r0, 0x8]
|
|
ldrb r1, [r1, 0x1]
|
|
adds r2, 0x1
|
|
str r2, [r0, 0x8]
|
|
cmp r1, 0
|
|
bne _0806C24E
|
|
ldr r0, _0806C254 @ =gSaveBlock1Ptr
|
|
ldr r0, [r0]
|
|
movs r1, 0xA4
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
bl GetMoney
|
|
bl ChangeAmountInMoneyBox
|
|
_0806C24E:
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C254: .4byte gSaveBlock1Ptr
|
|
thumb_func_end ScrCmd_updatemoneybox
|
|
|
|
thumb_func_start ScrCmd_showcoinsbox
|
|
ScrCmd_showcoinsbox: @ 806C258
|
|
push {r4,r5,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r5, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
ldr r0, _0806C290 @ =sub_809D6D4
|
|
bl sub_81119D4
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
cmp r0, 0x1
|
|
beq _0806C286
|
|
bl GetCoins
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
adds r1, r5, 0
|
|
adds r2, r4, 0
|
|
bl ShowCoinsWindow
|
|
_0806C286:
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C290: .4byte sub_809D6D4
|
|
thumb_func_end ScrCmd_showcoinsbox
|
|
|
|
thumb_func_start ScrCmd_hidecoinsbox
|
|
ScrCmd_hidecoinsbox: @ 806C294
|
|
push {lr}
|
|
ldr r1, [r0, 0x8]
|
|
adds r1, 0x2
|
|
str r1, [r0, 0x8]
|
|
bl HideCoinsWindow
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_hidecoinsbox
|
|
|
|
thumb_func_start ScrCmd_updatecoinsbox
|
|
ScrCmd_updatecoinsbox: @ 806C2A8
|
|
push {lr}
|
|
ldr r1, [r0, 0x8]
|
|
adds r1, 0x2
|
|
str r1, [r0, 0x8]
|
|
bl GetCoins
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl PrintCoinsString
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_updatecoinsbox
|
|
|
|
thumb_func_start ScrCmd_trainerbattle
|
|
ScrCmd_trainerbattle: @ 806C2C4
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
ldr r0, [r4, 0x8]
|
|
bl sub_8080228
|
|
str r0, [r4, 0x8]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_trainerbattle
|
|
|
|
thumb_func_start ScrCmd_dotrainerbattle
|
|
ScrCmd_dotrainerbattle: @ 806C2D8
|
|
push {lr}
|
|
bl sub_8080464
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_dotrainerbattle
|
|
|
|
thumb_func_start ScrCmd_ontrainerbattleend
|
|
ScrCmd_ontrainerbattleend: @ 806C2E4
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
bl sub_80805E8
|
|
str r0, [r4, 0x8]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_ontrainerbattleend
|
|
|
|
thumb_func_start ScrCmd_ontrainerbattleendgoto
|
|
ScrCmd_ontrainerbattleendgoto: @ 806C2F8
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
bl sub_8080600
|
|
str r0, [r4, 0x8]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_ontrainerbattleendgoto
|
|
|
|
thumb_func_start ScrCmd_checktrainerflag
|
|
ScrCmd_checktrainerflag: @ 806C30C
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl HasTrainerAlreadyBeenFought
|
|
strb r0, [r4, 0x2]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_checktrainerflag
|
|
|
|
thumb_func_start ScrCmd_settrainerflag
|
|
ScrCmd_settrainerflag: @ 806C330
|
|
push {lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl trainer_flag_set
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_settrainerflag
|
|
|
|
thumb_func_start ScrCmd_cleartrainerflag
|
|
ScrCmd_cleartrainerflag: @ 806C34C
|
|
push {lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl trainer_flag_clear
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_cleartrainerflag
|
|
|
|
thumb_func_start ScrCmd_setwildbattle
|
|
ScrCmd_setwildbattle: @ 806C368
|
|
push {r4-r6,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadHalfword
|
|
adds r5, r0, 0
|
|
lsls r5, 16
|
|
lsrs r5, 16
|
|
ldr r0, [r4, 0x8]
|
|
ldrb r6, [r0]
|
|
adds r0, 0x1
|
|
str r0, [r4, 0x8]
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
adds r2, r0, 0
|
|
lsls r2, 16
|
|
lsrs r2, 16
|
|
adds r0, r5, 0
|
|
adds r1, r6, 0
|
|
bl CreateScriptedWildMon
|
|
movs r0, 0
|
|
pop {r4-r6}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_setwildbattle
|
|
|
|
thumb_func_start ScrCmd_dowildbattle
|
|
ScrCmd_dowildbattle: @ 806C39C
|
|
push {lr}
|
|
bl sub_807F8C4
|
|
bl ScriptContext1_Stop
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_dowildbattle
|
|
|
|
thumb_func_start ScrCmd_pokemart
|
|
ScrCmd_pokemart: @ 806C3AC
|
|
push {lr}
|
|
bl ScriptReadWord
|
|
bl sub_809C164
|
|
bl ScriptContext1_Stop
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_pokemart
|
|
|
|
thumb_func_start ScrCmd_pokemartdecoration
|
|
ScrCmd_pokemartdecoration: @ 806C3C0
|
|
push {lr}
|
|
bl ScriptReadWord
|
|
bl sub_809C1A0
|
|
bl ScriptContext1_Stop
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_pokemartdecoration
|
|
|
|
thumb_func_start ScrCmd_pokemartdecoration2
|
|
ScrCmd_pokemartdecoration2: @ 806C3D4
|
|
push {lr}
|
|
bl ScriptReadWord
|
|
bl sub_809C1BC
|
|
bl ScriptContext1_Stop
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_pokemartdecoration2
|
|
|
|
thumb_func_start ScrCmd_playslotmachine
|
|
ScrCmd_playslotmachine: @ 806C3E8
|
|
push {lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
ldr r1, _0806C40C @ =c2_exit_to_overworld_1_continue_scripts_restart_music
|
|
bl sub_813F804
|
|
bl ScriptContext1_Stop
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C40C: .4byte c2_exit_to_overworld_1_continue_scripts_restart_music
|
|
thumb_func_end ScrCmd_playslotmachine
|
|
|
|
thumb_func_start ScrCmd_setberrytree
|
|
ScrCmd_setberrytree: @ 806C410
|
|
movs r0, 0
|
|
bx lr
|
|
thumb_func_end ScrCmd_setberrytree
|
|
|
|
thumb_func_start ScrCmd_getpricereduction
|
|
ScrCmd_getpricereduction: @ 806C414
|
|
movs r0, 0
|
|
bx lr
|
|
thumb_func_end ScrCmd_getpricereduction
|
|
|
|
thumb_func_start ScrCmd_choosecontestmon
|
|
ScrCmd_choosecontestmon: @ 806C418
|
|
push {lr}
|
|
bl ScriptContext1_Stop
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_choosecontestmon
|
|
|
|
thumb_func_start ScrCmd_startcontest
|
|
ScrCmd_startcontest: @ 806C424
|
|
movs r0, 0
|
|
bx lr
|
|
thumb_func_end ScrCmd_startcontest
|
|
|
|
thumb_func_start ScrCmd_showcontestresults
|
|
ScrCmd_showcontestresults: @ 806C428
|
|
movs r0, 0
|
|
bx lr
|
|
thumb_func_end ScrCmd_showcontestresults
|
|
|
|
thumb_func_start ScrCmd_contestlinktransfer
|
|
ScrCmd_contestlinktransfer: @ 806C42C
|
|
movs r0, 0
|
|
bx lr
|
|
thumb_func_end ScrCmd_contestlinktransfer
|
|
|
|
thumb_func_start ScrCmd_dofieldeffect
|
|
ScrCmd_dofieldeffect: @ 806C430
|
|
push {lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
ldr r1, _0806C454 @ =gUnknown_20370B6
|
|
strh r0, [r1]
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
bl FieldEffectStart
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C454: .4byte gUnknown_20370B6
|
|
thumb_func_end ScrCmd_dofieldeffect
|
|
|
|
thumb_func_start ScrCmd_setfieldeffectarg
|
|
ScrCmd_setfieldeffectarg: @ 806C458
|
|
push {r4,lr}
|
|
ldr r1, [r0, 0x8]
|
|
ldrb r4, [r1]
|
|
adds r1, 0x1
|
|
str r1, [r0, 0x8]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
ldr r1, _0806C484 @ =gFieldEffectArguments
|
|
lsls r4, 2
|
|
adds r4, r1
|
|
lsls r0, 16
|
|
asrs r0, 16
|
|
str r0, [r4]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C484: .4byte gFieldEffectArguments
|
|
thumb_func_end ScrCmd_setfieldeffectarg
|
|
|
|
thumb_func_start WaitForFieldEffectFinish
|
|
WaitForFieldEffectFinish: @ 806C488
|
|
push {lr}
|
|
ldr r0, _0806C49C @ =gUnknown_20370B6
|
|
ldrb r0, [r0]
|
|
bl FieldEffectActiveListContains
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _0806C4A0
|
|
movs r0, 0
|
|
b _0806C4A2
|
|
.align 2, 0
|
|
_0806C49C: .4byte gUnknown_20370B6
|
|
_0806C4A0:
|
|
movs r0, 0x1
|
|
_0806C4A2:
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end WaitForFieldEffectFinish
|
|
|
|
thumb_func_start ScrCmd_waitfieldeffect
|
|
ScrCmd_waitfieldeffect: @ 806C4A8
|
|
push {r4,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
ldr r1, _0806C4CC @ =gUnknown_20370B6
|
|
strh r0, [r1]
|
|
ldr r1, _0806C4D0 @ =WaitForFieldEffectFinish
|
|
adds r0, r4, 0
|
|
bl SetupNativeScript
|
|
movs r0, 0x1
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C4CC: .4byte gUnknown_20370B6
|
|
_0806C4D0: .4byte WaitForFieldEffectFinish
|
|
thumb_func_end ScrCmd_waitfieldeffect
|
|
|
|
thumb_func_start ScrCmd_setrespawn
|
|
ScrCmd_setrespawn: @ 806C4D4
|
|
push {lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
bl sub_80554CC
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_setrespawn
|
|
|
|
thumb_func_start ScrCmd_checkplayergender
|
|
ScrCmd_checkplayergender: @ 806C4F0
|
|
ldr r1, _0806C500 @ =gSpecialVar_Result
|
|
ldr r0, _0806C504 @ =gSaveBlock2Ptr
|
|
ldr r0, [r0]
|
|
ldrb r0, [r0, 0x8]
|
|
strh r0, [r1]
|
|
movs r0, 0
|
|
bx lr
|
|
.align 2, 0
|
|
_0806C500: .4byte gSpecialVar_Result
|
|
_0806C504: .4byte gSaveBlock2Ptr
|
|
thumb_func_end ScrCmd_checkplayergender
|
|
|
|
thumb_func_start ScrCmd_playmoncry
|
|
ScrCmd_playmoncry: @ 806C508
|
|
push {r4,r5,lr}
|
|
adds r5, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r4, r0, 0
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
adds r0, r5, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r1, r0, 0
|
|
lsls r1, 24
|
|
lsrs r1, 24
|
|
adds r0, r4, 0
|
|
bl PlayCry7
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_playmoncry
|
|
|
|
thumb_func_start ScrCmd_waitmoncry
|
|
ScrCmd_waitmoncry: @ 806C540
|
|
push {lr}
|
|
ldr r1, _0806C550 @ =IsCryFinished
|
|
bl SetupNativeScript
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C550: .4byte IsCryFinished
|
|
thumb_func_end ScrCmd_waitmoncry
|
|
|
|
thumb_func_start ScrCmd_setmetatile
|
|
ScrCmd_setmetatile: @ 806C554
|
|
push {r4-r7,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r6, r0, 16
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r5, r0, 16
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r7, r0, 16
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
adds r1, r6, 0x7
|
|
lsls r1, 16
|
|
lsrs r6, r1, 16
|
|
adds r1, r5, 0x7
|
|
lsls r1, 16
|
|
lsrs r5, r1, 16
|
|
cmp r0, 0
|
|
bne _0806C5B8
|
|
adds r0, r6, 0
|
|
adds r1, r5, 0
|
|
adds r2, r7, 0
|
|
bl MapGridSetMetatileIdAt
|
|
b _0806C5CA
|
|
_0806C5B8:
|
|
movs r1, 0xC0
|
|
lsls r1, 4
|
|
adds r0, r1, 0
|
|
adds r2, r7, 0
|
|
orrs r2, r0
|
|
adds r0, r6, 0
|
|
adds r1, r5, 0
|
|
bl MapGridSetMetatileIdAt
|
|
_0806C5CA:
|
|
movs r0, 0
|
|
pop {r4-r7}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_setmetatile
|
|
|
|
thumb_func_start ScrCmd_opendoor
|
|
ScrCmd_opendoor: @ 806C5D4
|
|
push {r4,r5,lr}
|
|
adds r4, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r5, r0, 0
|
|
lsls r5, 16
|
|
lsrs r5, 16
|
|
adds r0, r4, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r4, r0, 0
|
|
lsls r4, 16
|
|
adds r5, 0x7
|
|
lsls r5, 16
|
|
lsrs r5, 16
|
|
movs r0, 0xE0
|
|
lsls r0, 11
|
|
adds r4, r0
|
|
lsrs r4, 16
|
|
adds r0, r5, 0
|
|
adds r1, r4, 0
|
|
bl sub_805B364
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl PlaySE
|
|
adds r0, r5, 0
|
|
adds r1, r4, 0
|
|
bl sub_805B310
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_opendoor
|
|
|
|
thumb_func_start ScrCmd_closedoor
|
|
ScrCmd_closedoor: @ 806C62C
|
|
push {r4,r5,lr}
|
|
adds r5, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r4, r0, 0
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
adds r0, r5, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r1, r0, 0
|
|
lsls r1, 16
|
|
adds r4, 0x7
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
movs r0, 0xE0
|
|
lsls r0, 11
|
|
adds r1, r0
|
|
lsrs r1, 16
|
|
adds r0, r4, 0
|
|
bl sub_805B2D0
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_closedoor
|
|
|
|
thumb_func_start sub_806C670
|
|
sub_806C670: @ 806C670
|
|
push {lr}
|
|
bl sub_805B350
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _0806C680
|
|
movs r0, 0
|
|
b _0806C682
|
|
_0806C680:
|
|
movs r0, 0x1
|
|
_0806C682:
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end sub_806C670
|
|
|
|
thumb_func_start ScrCmd_waitdoranim
|
|
ScrCmd_waitdoranim: @ 806C688
|
|
push {lr}
|
|
ldr r1, _0806C698 @ =sub_806C670
|
|
bl SetupNativeScript
|
|
movs r0, 0x1
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C698: .4byte sub_806C670
|
|
thumb_func_end ScrCmd_waitdoranim
|
|
|
|
thumb_func_start ScrCmd_setdooropen
|
|
ScrCmd_setdooropen: @ 806C69C
|
|
push {r4,r5,lr}
|
|
adds r5, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r4, r0, 0
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
adds r0, r5, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r1, r0, 0
|
|
lsls r1, 16
|
|
adds r4, 0x7
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
movs r0, 0xE0
|
|
lsls r0, 11
|
|
adds r1, r0
|
|
lsrs r1, 16
|
|
adds r0, r4, 0
|
|
bl sub_805B268
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_setdooropen
|
|
|
|
thumb_func_start ScrCmd_setdoorclosed
|
|
ScrCmd_setdoorclosed: @ 806C6E0
|
|
push {r4,r5,lr}
|
|
adds r5, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r4, r0, 0
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
adds r0, r5, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
adds r1, r0, 0
|
|
lsls r1, 16
|
|
adds r4, 0x7
|
|
lsls r4, 16
|
|
lsrs r4, 16
|
|
movs r0, 0xE0
|
|
lsls r0, 11
|
|
adds r1, r0
|
|
lsrs r1, 16
|
|
adds r0, r4, 0
|
|
bl sub_805B29C
|
|
movs r0, 0
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_setdoorclosed
|
|
|
|
thumb_func_start ScrCmd_addelevmenuitem
|
|
ScrCmd_addelevmenuitem: @ 806C724
|
|
movs r0, 0
|
|
bx lr
|
|
thumb_func_end ScrCmd_addelevmenuitem
|
|
|
|
thumb_func_start ScrCmd_showelevmenu
|
|
ScrCmd_showelevmenu: @ 806C728
|
|
movs r0, 0
|
|
bx lr
|
|
thumb_func_end ScrCmd_showelevmenu
|
|
|
|
thumb_func_start ScrCmd_checkcoins
|
|
ScrCmd_checkcoins: @ 806C72C
|
|
push {r4,lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl GetVarPointer
|
|
adds r4, r0, 0
|
|
bl GetCoins
|
|
strh r0, [r4]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_checkcoins
|
|
|
|
thumb_func_start ScrCmd_givecoins
|
|
ScrCmd_givecoins: @ 806C74C
|
|
push {lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl GiveCoins
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
cmp r0, 0x1
|
|
bne _0806C774
|
|
ldr r1, _0806C770 @ =gSpecialVar_Result
|
|
movs r0, 0
|
|
b _0806C778
|
|
.align 2, 0
|
|
_0806C770: .4byte gSpecialVar_Result
|
|
_0806C774:
|
|
ldr r1, _0806C780 @ =gSpecialVar_Result
|
|
movs r0, 0x1
|
|
_0806C778:
|
|
strh r0, [r1]
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C780: .4byte gSpecialVar_Result
|
|
thumb_func_end ScrCmd_givecoins
|
|
|
|
thumb_func_start ScrCmd_takecoins
|
|
ScrCmd_takecoins: @ 806C784
|
|
push {lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl TakeCoins
|
|
lsls r0, 24
|
|
lsrs r0, 24
|
|
cmp r0, 0x1
|
|
bne _0806C7AC
|
|
ldr r1, _0806C7A8 @ =gSpecialVar_Result
|
|
movs r0, 0
|
|
b _0806C7B0
|
|
.align 2, 0
|
|
_0806C7A8: .4byte gSpecialVar_Result
|
|
_0806C7AC:
|
|
ldr r1, _0806C7B8 @ =gSpecialVar_Result
|
|
movs r0, 0x1
|
|
_0806C7B0:
|
|
strh r0, [r1]
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C7B8: .4byte gSpecialVar_Result
|
|
thumb_func_end ScrCmd_takecoins
|
|
|
|
thumb_func_start ScrCmd_cmdCA
|
|
ScrCmd_cmdCA: @ 806C7BC
|
|
push {lr}
|
|
bl sub_8069A20
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_cmdCA
|
|
|
|
thumb_func_start ScrCmd_cmdCB
|
|
ScrCmd_cmdCB: @ 806C7C8
|
|
push {lr}
|
|
bl sub_8069A2C
|
|
movs r0, 0
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end ScrCmd_cmdCB
|
|
|
|
thumb_func_start ScrCmd_setmonobedient
|
|
ScrCmd_setmonobedient: @ 806C7D4
|
|
push {lr}
|
|
sub sp, 0x4
|
|
movs r2, 0x1
|
|
mov r1, sp
|
|
strb r2, [r1]
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
movs r1, 0x64
|
|
muls r0, r1
|
|
ldr r1, _0806C808 @ =gPlayerParty
|
|
adds r0, r1
|
|
movs r1, 0x50
|
|
mov r2, sp
|
|
bl SetMonData
|
|
movs r0, 0
|
|
add sp, 0x4
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C808: .4byte gPlayerParty
|
|
thumb_func_end ScrCmd_setmonobedient
|
|
|
|
thumb_func_start ScrCmd_checkmonobedience
|
|
ScrCmd_checkmonobedience: @ 806C80C
|
|
push {r4,lr}
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
ldr r4, _0806C83C @ =gSpecialVar_Result
|
|
movs r1, 0x64
|
|
muls r0, r1
|
|
ldr r1, _0806C840 @ =gPlayerParty
|
|
adds r0, r1
|
|
movs r1, 0x50
|
|
movs r2, 0
|
|
bl GetMonData
|
|
strh r0, [r4]
|
|
movs r0, 0
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C83C: .4byte gSpecialVar_Result
|
|
_0806C840: .4byte gPlayerParty
|
|
thumb_func_end ScrCmd_checkmonobedience
|
|
|
|
thumb_func_start ScrCmd_setmonmetlocation
|
|
ScrCmd_setmonmetlocation: @ 806C844
|
|
push {r4,lr}
|
|
sub sp, 0x4
|
|
adds r4, r0, 0
|
|
bl ScriptReadHalfword
|
|
lsls r0, 16
|
|
lsrs r0, 16
|
|
bl VarGet
|
|
lsls r0, 16
|
|
lsrs r3, r0, 16
|
|
ldr r0, [r4, 0x8]
|
|
ldrb r2, [r0]
|
|
mov r1, sp
|
|
strb r2, [r1]
|
|
adds r0, 0x1
|
|
str r0, [r4, 0x8]
|
|
cmp r3, 0x5
|
|
bhi _0806C87A
|
|
movs r0, 0x64
|
|
muls r0, r3
|
|
ldr r1, _0806C884 @ =gPlayerParty
|
|
adds r0, r1
|
|
movs r1, 0x23
|
|
mov r2, sp
|
|
bl SetMonData
|
|
_0806C87A:
|
|
movs r0, 0
|
|
add sp, 0x4
|
|
pop {r4}
|
|
pop {r1}
|
|
bx r1
|
|
.align 2, 0
|
|
_0806C884: .4byte gPlayerParty
|
|
thumb_func_end ScrCmd_setmonmetlocation
|
|
|
|
.align 2, 0 @ Don't pad with nop.
|