Pokemon Center | 口袋中心以口袋妖怪为主题并带有其他动漫游戏的讨论

标题: ASM杂项集合【802/绿宝石】 [打印本页]

作者: 本站第一萌新 时间: 2020-5-2 21:06
标题: ASM杂项集合【802/绿宝石】
本帖最后由本站第一萌新于 2021-7-27 15:59 编辑

来这个论坛已经有不少时间了，一直也没什么好分享的，随便改一点以前写过的ASM代码给入门者参考一下吧。（虽然现在用ASM意义不大了:(）
前排提示：本人也是新手，编程方面完全是业余水平，故逻辑可能不是特别清楚。如有错误欢迎大佬指正。
蓝本：绿宝石802 3.0版本理论上绿宝石原版也可以，如果遇到只适用于802 3.0版本的我会标注。本人主要使用绿宝石802作为蓝本，固可能有不少只适用于802的例程
工具：armips
文中需要的文件以及放在下方
注意：绿宝石802的精灵数据没有加密，而原版绿宝石是有加密的。所以有的例程我虽然没有标出仅适用于802，但可能并不适用于原版绿宝石！如果想要解决此问题，请使用下面的《解除原版绿宝石精灵加密检测》！
欢迎各位改版者用于改版，但请使用前至少留个言！
目录：
内置内存锁
滚动式多选框
洗髓丹
恢复之石
穿墙术
多初始宠
禁止购买作弊
std0显示道具图片
64X64头像
精灵献祭
火箭队扭蛋机
恐惧黑802
觉醒石
脚本执行器
所有野生精灵闪光
显示觉醒力量属性，威力
昼夜不同调色板
随机对战
王者状态
能力值界面查看精灵个体，努力
死亡模式
精灵可使用对应属性的野外技能
命名界面支持中文输入
随机商店
简易个体努力查看器
修改等级上限
802大师球修复
梦特系统
战斗条款
全随机
不遇敌
火箭队模式
明雷
解除原版绿宝石精灵加密检测
调高闪光率

ArmipsMacros.txt

29.16 KB, 下载次数: 306

脚本的宏。重命名为.asm。

CharTable.txt

68.53 KB, 下载次数: 381

字符表。

ArmipsBSMacros.txt

23.7 KB, 下载次数: 296

战斗脚本的宏

作者: 本站第一萌新 时间: 2020-5-2 21:07
本帖最后由本站第一萌新于 2020-5-6 07:32 编辑

搭建内置金手指(内存锁)系统
本系统并不是实现了真正的锁住内存，而是不停往指定内存里写数据
此系统根据输入数据的大小来判断应该用什么指令储存，但事实上有时我们要求将某一区域的值全部写0。有兴趣者可以自行更改程序
和初始村中蓝色胖子对话查看效果

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func GoldfingerPutIn
push {r4-r5, lr}
ldr r0, =0x020375E0
ldrh r0, [r0]
lsl r0, #3
ldr r2, =0x0203F000
add r0, r2
mov r1, r2
add r1, #40
ldr r2, [r0]
str r2, [r1]
ldr r2, [r0, #4]
str r2, [r1, #4]
ldr r0, =(Task_GfProcessInput|1)
mov r1, #0
ldr r3, =(0x080A8FB0|1)
bl call_bx
ldr r5, =0x03005E00
mov r1, #40
mul r0, r1
add r5, r0
mov r0, #0 ;X
mov r1, #0 ;Y
mov r2, #18 ;W
mov r3, #2 ;H
ldr r4, =(0x080E2A1C|1)
bl call_bx2
strh r0, [r5, #8] ;twindowId
mov r1, #0
strh r1, [r5, #10] ;tstate
mov r1, #3
strh r1, [r5, #12] ;tslot
mov r1, #0
ldr r3, =(0x08197854|1)
bl call_bx
mov r0, #0
ldr r3, =(0x081999BC|1)
bl call_bx
pop {r4-r5, pc}
.endfunc
.pool
.func Task_GfProcessInput
push {r4-r6, lr}
mov r4, r0
ldr r6, =0x03005E00
mov r1, #40
mul r0, r1
add r6, r0
ldrh r5, [r6, #8] ;twindowId
ldrh r0, [r6, #10] ;tstate
cmp r0, #0
beq ShowGoldfinger
ldr r0, =0x030022C0
ldrh r0, [r0, #0x2E]
cmp r0, #1
beq A_Pressed
cmp r0, #2
beq B_Pressed
cmp r0, #0x10
beq Right_Pressed
cmp r0, #0x20
beq Left_Pressed
cmp r0, #0x40
beq Up_Pressed
cmp r0, #0x80
beq Down_Pressed
b InputEnd
A_Pressed:
ldr r0, =0x020375E0
ldrh r0, [r0]
lsl r0, #3
ldr r2, =0x0203F000
add r0, r2
mov r1, r2
add r1, #40
ldr r2, [r1]
str r2, [r0]
ldr r2, [r1, #4]
str r2, [r0, #4]
mov r2, #0
str r2, [r1]
str r2, [r1, #4]
ldr r0, =0x020375E0
mov r1, #1
strh r1, [r0, #0x10]
b DeleteTaskAndFreeWindow
B_Pressed:
mov r2, #0
str r2, [r1]
str r2, [r1, #4]
ldr r0, =0x020375E0
mov r1, #0
strh r1, [r0, #0x10]
DeleteTaskAndFreeWindow:
mov r0, r4
ldr r3, =(0x080A909C|1)
bl call_bx
mov r0, r5
ldr r3, =(0x080E2A78|1)
bl call_bx
b InputEnd
Right_Pressed:
ldrb r0, [r6, #12]
cmp r0, #4
beq InputEnd
cmp r0, #0
beq ChangeSide1
sub r0, #1
b UpdateNumber1
ChangeSide1:
mov r0, #7
UpdateNumber1:
strb r0, [r6, #12]
mov r1, r5
bl UpdateGoldfinger
b InputEnd
Left_Pressed:
ldrb r0, [r6, #12]
cmp r0, #3
beq InputEnd
cmp r0, #7
beq ChangeSide2
add r0, #1
b UpdateNumber2
ChangeSide2:
mov r0, #0
UpdateNumber2:
strb r0, [r6, #12]
mov r1, r5
bl UpdateGoldfinger
b InputEnd
Up_Pressed:
ldrb r0, [r6, #12]
ldr r1, =0x0203F000
add r1, #40
ldrb r2, [r0, r1]
cmp r2, #0xFF
bge InputEnd
add r2, #1
strb r2, [r0, r1]
mov r1, r5
bl UpdateGoldfinger
b InputEnd
Down_Pressed:
ldrb r0, [r6, #12]
ldr r1, =0x0203F000
add r1, #40
ldrb r2, [r0, r1]
cmp r2, #0
ble InputEnd
sub r2, #1
strb r2, [r0, r1]
mov r1, r5
bl UpdateGoldfinger
b InputEnd
ShowGoldfinger:
mov r0, #3
mov r1, r5
bl UpdateGoldfinger
mov r0, #1
strh r0, [r6, #10]
InputEnd:
pop {r4-r6, pc}
.endfunc
.pool
.func UpdateGoldfinger
push {r4-r7, lr}
add sp, #-8
mov r7, r0
mov r5, r1
mov r0, r1
mov r1, #17
ldr r3, =(0x08003C48|1)
bl call_bx
mov r6, #0
PrintPointerLoop:
cmp r6, #4
bge PrintColon
mov r0, r6
mov r1, r7
mov r2, r5
bl PrintNumberWithClour
add r6, #1
b PrintPointerLoop
PrintColon:
mov r0, #0
str r0, [sp]
str r0, [sp, #4]
mov r0, r5
ldr r1, =gText_Colon
mov r2, #65
mov r3, #1
ldr r4, =(0x080E04A4|1)
bl call_bx2
PrintInputLoop:
cmp r6, #8
bge PrintEnd
mov r0, r6
mov r1, r7
mov r2, r5
bl PrintNumberWithClour
add r6, #1
b PrintInputLoop
PrintEnd:
add sp, #8
pop {r4-r7, pc}
.endfunc
.pool
.func PrintNumberWithClour
push {r4-r7, lr}
add sp, #-8
mov r5, r0
mov r6, r1
mov r7, r2
ldr r0, =0x02021FC4
ldr r1, =0x0203F000
add r1, #40
ldrb r1, [r1, r5]
mov r2, #2
mov r3, #2
ldr r4, =(0x08008E20|1)
bl call_bx2
cmp r5, r6
bne NotHighLight
ldr r0, =0x02021EC4
ldr r1, =gText_HignLight
ldr r3, =(0x08008EE0|1)
bl call_bx
ldr r0, =0x02021EC4
ldr r1, =0x02021FC4
ldr r3, =(0x08008BC0|1)
bl call_bx
mov r0, #0
str r0, [sp]
str r0, [sp, #4]
mov r0, r7
ldr r1, =0x02021EC4
ldr r2, =poi
ldr r2, [r2, r5]
mov r3, #1
ldr r4, =(0x080E04A4|1)
bl call_bx2
b PrintWithColourEnd
NotHighLight:
mov r0, #0
str r0, [sp]
str r0, [sp, #4]
mov r0, r7
ldr r1, =0x02021FC4
ldr r2, =poi
ldr r2, [r2, r5]
mov r3, #1
ldr r4, =(0x080E04A4|1)
bl call_bx2
PrintWithColourEnd:
add sp, #8
pop {r4-r7, pc}
.endfunc
.pool
.func GoldfingerRun
mov r4, #0
RunGfLoop:
cmp r4, #6
bge LoopEnd
ldr r0, =0x4012
add r0, r4
ldr r3, =(0x0809D790|1)
bl call_bx
cmp r0, #0
beq PrepareForNext
ldr r0, =0x0203F000
lsl r1, r4, #3
add r1, r0
ldr r0, [r1]
ldr r1, [r1, #4]
mov r2, #1
neg r2, r2 ;0xFFFFFFFF
lsr r3, r2, #24 ;0xFF
cmp r1, r3
bls OneByte
lsr r3, r2, #16 ;0xFFFF
cmp r1, r3
bls TwoByte
str r1, [r0]
b PrepareForNext
OneByte:
strb r1, [r0]
b PrepareForNext
TwoByte:
strh r1, [r0]
PrepareForNext:
add r4, #1
b RunGfLoop
LoopEnd:
ldrb r0, [r5]
lsl r4, r0, #0x1F
lsr r4, r4, #0x1F
mov r1, #1
ldr r3, =(0x08006A28|1)
bx r3
.endfunc
.pool
.func DeleteGoldfinger
ldr r0, =0x020375E0
ldrh r0, [r0]
lsl r0, #3
ldr r1, =0x0203F000
add r0, r1
mov r1, #0
str r1, [r0]
str r1, [r0, #4]
bx lr
.endfunc
.pool
.func OpenGoldfinger
push {lr}
ldr r0, =0x020375E0
ldrh r0, [r0]
ldr r1, =0x4012
add r0, r1
ldr r3, =(0x0809D740|1)
bl call_bx
pop {pc}
.endfunc
.pool
.func CloseGoldfinger
push {lr}
ldr r0, =0x020375E0
ldrh r0, [r0]
ldr r1, =0x4012
add r0, r1
ldr r3, =(0x0809D768|1)
bl call_bx
pop {pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.func call_bx2
bx r4
.endfunc
.pool
poi:
.byte 49, 33, 17, 1, 129, 113, 97, 80
gText_Colon:
.string "："
gText_HignLight:
.string "[文本色_红]"
Script_BiGoldfinger:
lock
faceplayer
msgbox gText_Weclome, 0x6
Script_ChooseGf:
preparemsg gText_ChooseGf
waitmsg
multichoice 0x0, 0x0, 0x74, 0x00 ;如果你打算手动扩充或者修改了下面写入的地址，把0x74改成你的多选框Id
compare 0x800D, 0x7F
if1 0x1, Script_End
copyvar 0x8004, 0x800D
Script_ChooseOperate:
preparemsg gText_ChooseOperate
waitmsg
multichoice 0x0, 0x0, 0x75, 0x00 ;如果你打算手动扩充或者修改了下面写入的地址，把0x75改成你的多选框Id
compare 0x800D, 0x7F
if1 0x1, Script_ChooseGf
compare 0x800D, 0x0
if1 0x1, Script_OpenGf
compare 0x800D, 0x1
if1 0x1, Script_CloseGf
compare 0x800D, 0x2
if1 0x1, Script_AddGf
callasm (DeleteGoldfinger|1)
msgbox gText_DeleteSuccess, 0x6
goto Script_ChooseOperate
Script_OpenGf:
callasm (OpenGoldfinger|1)
msgbox gText_OpenSuccess, 0x6
goto Script_ChooseOperate
Script_CloseGf:
callasm (CloseGoldfinger|1)
msgbox gText_CloseSuccess, 0x6
goto Script_ChooseOperate
Script_AddGf:
preparemsg gText_PleaseAddGf
waitmsg ;这个waitmsg非常重要，因为文本框也是用的第四个buffer，必须等待文本输出完毕
callasm (GoldfingerPutIn|1)
waitkeypress
compare 0x800D, 0x0
if1 0x1, Script_AddCancel
msgbox gText_AddSuccess, 0x6
goto Script_ChooseOperate
Script_AddCancel:
msgbox gText_AddCancel, 0x6
goto Script_ChooseOperate
Script_End:
release
end
.align 4
Mult_ChooseSlot:
.word gText_Goldfinger1
.word 0x0
.word gText_Goldfinger2
.word 0x0
.word gText_Goldfinger3
.word 0x0
.word gText_Goldfinger4
.word 0x0
.word gText_Goldfinger5
.word 0x0
Mult_Operate:
.word gText_OpenGf
.word 0x0
.word gText_CloseGf
.word 0x0
.word gText_AddGf
.word 0x0
.word gText_DeleteGf
.word 0x0
gText_Goldfinger1:
.string "金手指一"
gText_Goldfinger2:
.string "金手指二"
gText_Goldfinger3:
.string "金手指三"
gText_Goldfinger4:
.string "金手指四"
gText_Goldfinger5:
.string "金手指五"
gText_OpenGf:
.string "开启金手指"
gText_CloseGf:
.string "关闭金手指"
gText_AddGf:
.string "添加金手指"
gText_DeleteGf:
.string "删除金手指"
gText_Weclome:
.string "欢迎使用内置金手指！"
gText_ChooseGf:
.string "请选择金手指槽："
gText_ChooseOperate:
.string "请选择操作："
gText_DeleteSuccess:
.string "成功删除金手指！"
gText_OpenSuccess:
.string "成功开启金手指！"
gText_CloseSuccess:
.string "成功关闭金手指！"
gText_PleaseAddGf:
.string "请输入金手指！"
gText_AddSuccess:
.string "成功添加金手指！"
gText_AddCancel:
.string "取消添加金手指！"
.org 0x08006A20 ;选择一个被调用及其频繁的地方
ldr r3, =(GoldfingerRun|1)
bx r3
.pool
.org 0x097003A0 ;这里是扩充多选框，注意此处是绿宝石802版本的。如果你用的是绿宝石原版请自行更改此地址（需要重定向）
.align 4
.word Mult_ChooseSlot
.word 0x05
.word Mult_Operate
.word 0x04
.org 0x089C0DFC
.word Script_BiGoldfinger
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-2 21:14
本帖最后由本站第一萌新于 2020-5-6 07:30 编辑

模仿jzw聚聚早期做的一个滚动式多选框（虽说是模仿其实我根本没看他的是怎么实现的，也没看效果，只是觉得创意不错就顺手写了一个）

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func RollingMul
push {r4-r7, lr}
ldr r0, =(Task_MulProcessInput|1)
mov r1, #0
ldr r4, =(0x080A8FB0|1)
bl call_bx
ldr r5, =0x03005E00
mov r1, #40
mul r0, r1
add r5, r0
mov r6, #0
mov r7, #0
GetLengthLoop:
ldr r0, =0x09700000 ;如果你用的绿宝石原版，这个改成绿宝石的多选框地址
ldr r1, =0x020375E0
ldrh r1, [r1] ;var8004 储存多选Id
lsl r1, #3
add r0, r1
ldrb r1, [r0, #4]
cmp r6, r1
bge LoopEnd
ldr r1, [r0]
lsl r0, r6, #3
ldr r0, [r1, r0]
mov r1, r7
ldr r4, =(0x080E2D2C|1)
bl call_bx
mov r7, r0
add r6, #1
b GetLengthLoop
LoopEnd:
mov r0, r7
ldr r4, =(0x080E2D40|1)
bl call_bx
mov r2, r0
ldr r1, =0x020375E0
ldrh r0, [r1, #2] ;var8005 储存X坐标
ldrh r1, [r1, #4] ;var8006 储存Y坐标
mov r3, #10
ldr r4, =(0x080E2A1C|1)
bl call_bx
strh r0, [r5, #8] ;twindowId
mov r1, #0
strh r1, [r5, #10] ;tchoice
strh r1, [r5, #12] ;tstate
mov r5, r0
mov r1, #0
ldr r4, =(0x08197854|1)
bl call_bx
mov r0, #0
ldr r4, =(0x081999BC|1)
bl call_bx
mov r0, r5
mov r1, #0
bl UpdateChoices
pop {r4-r7, pc}
.endfunc
.pool
.func Task_MulProcessInput ;r0 = taskId
push {r4-r7, lr}
mov r5, r0
ldr r2, =0x03005E00
mov r1, #40
mul r0, r1
add r2, r0
ldrh r6, [r2, #8]
mov r7, r2
ldrh r0, [r7, #12]
cmp r0, #0
beq InputEnd
ldr r0, =0x030022C0
ldrh r0, [r0, #0x2E]
cmp r0, #1
beq A_Pressed
cmp r0, #2
beq B_Pressed
cmp r0, #0x40
beq Up_Pressed
cmp r0, #0x80
beq Down_Pressed
b InputEnd
A_Pressed:
ldr r0, =0x020375E0
ldrh r7, [r7, #10]
strh r7, [r0, #0x10]
b DeleteTaskAndFreeWindow
B_Pressed:
ldr r0, =0x020375E0
mov r1, #0x7F
strh r1, [r0, #0x10]
b DeleteTaskAndFreeWindow
Up_Pressed:
ldrh r1, [r7, #10]
cmp r1, #0
ble InputEnd
sub r1, #1
strh r1, [r7, #10]
mov r0, r6
bl UpdateChoices
b InputEnd
Down_Pressed:
ldr r0, =0x09700000 ;如果你用的绿宝石原版，这个改成绿宝石的多选框地址
ldr r1, =0x020375E0
ldrh r1, [r1]
lsl r1, #3
add r0, r1
ldrb r0, [r0, #4]
sub r0, #1
ldrh r1, [r7, #10]
cmp r1, r0
bge InputEnd
add r1, #1
strh r1, [r7, #10]
mov r0, r6
bl UpdateChoices
b InputEnd
DeleteTaskAndFreeWindow:
mov r0, r5
ldr r4, =(0x080A909C|1)
bl call_bx
mov r0, r6
ldr r4, =(0x080E2A78|1)
bl call_bx
InputEnd:
mov r0, #1
strh r0, [r7, #12]
pop {r4-r7, pc}
.endfunc
.pool
.func UpdateChoices ;r0 = windowId r1 = 选中选项
push {r4-r7, lr}
mov r4, r8
push {r4}
add sp, #-8
mov r8, r0
mov r6, r1
mov r1, #17
ldr r4, =(0x08003C48|1)
bl call_bx
mov r7, #0
sub r5, r6, #2
PrintChoiceLoop:
cmp r7, #5
bge PrintEnd
mov r0, #2
sub r0, r7
cmp r6, r0
blt Skip
ldr r0, =0x09700000 ;如果你用的绿宝石原版，这个改成绿宝石的多选框地址
ldr r1, =0x020375E0
ldrh r1, [r1]
lsl r1, #3
add r0, r1
ldrb r1, [r0, #4]
cmp r5, r1
bge Skip
mov r1, #0
str r1, [sp]
str r1, [sp, #4]
ldr r0, [r0]
lsl r1, r5, #3
ldr r1, [r0, r1]
lsl r3, r7, #4
add r3, #1
mov r0, r8
mov r2, #8
ldr r4, =(0x080E04A4|1)
bl call_bx
Skip:
add r7, #1
add r5, #1
b PrintChoiceLoop
PrintEnd:
mov r0, r8
ldr r1, =gText_Arrow
mov r2, #0
mov r3, #0x21
ldr r4, =(0x080E04A4|1)
bl call_bx
add sp, #8
pop {r4}
mov r8, r4
pop {r4-r7, pc}
.endfunc
.pool
.func call_bx
bx r4
.endfunc
.pool
gText_Arrow:
.byte 0xEF, 0xFF
.close

复制代码

示例脚本：
lock
faceplayer
preparemsg 0x和多选框同时出现的文本地址
setvar 0x8004 多选Id
setvar 0x8005 X坐标
setvar 0x8006 Y坐标
callasm 0xF80001 //显示多选框
waitkeypress //需使用 waitkeypress 辅助
msgbox 0x选完后的文本地址 0x6
release
end

作者: 本站第一萌新 时间: 2020-5-2 21:18
本帖最后由本站第一萌新于 2020-5-2 21:19 编辑

前面发的可能不适于纯新手。今天最后发个入门级别的。明天再更新吧。不然貌似违反版规了。
使得指定位置的精灵变成6V

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func ChangePMTo6V
push {r4-r5, lr}
add sp, #-4
ldr r0, =0x020375E0 ;var8004中储存所选PM在队伍中的位置 [0-5]
ldrh r0, [r0]
mov r1, #0x64
mul r0,r1
ldr r4, =0x020244EC
add r4, r0
mov r5, #0
ChangeLoop:
mov r1, #0x27
add r1, r5
mov r0, #0x1F
str r0, [sp]
mov r2, sp
mov r0, r4
ldr r3, =(0x0806ACAC|1)
bl call_bx
add r5, #1
cmp r5, #5
bls ChangeLoop
LoopEnd:
mov r0, r4
ldr r3, =(0x08068D0C|1)
bl call_bx
add sp, #4
pop {r4-r5, pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.close

复制代码

示例脚本：
lock
faceplayer
msgbox 文本 6
special 0xA2
waitstate
callasm 插入位置 //记得加一
msgbox 文本 6
end

作者: jiangzhengwenjz 时间: 2020-5-2 22:34

本站第一萌新发表于 2020-5-2 21:18
前面发的可能不适于纯新手。今天最后发个入门级别的。明天再更新吧。不然貌似违反版规了。
使得指定位置的 ...

It's OK.
每条回复有独立内容，你想连发多少都可以

作者: 本站第一萌新 时间: 2020-5-3 08:24

jiangzhengwenjz 发表于 2020-5-2 22:34
It's OK.
每条回复有独立内容，你想连发多少都可以

好的

作者: 本站第一萌新 时间: 2020-5-3 08:28
走一步恢复全队精灵10点血量

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func RcoverStone
push {lr}
lsl r0, r0, #24
lsr r1, r0, #24
push {r1, r4-r6}
add sp, #-4
mov r4, #0
RcoverLoop:
ldr r0, =0x020244E9
ldrb r0, [r0]
cmp r4, r0
bge LoopEnd
ldr r5, =0x020244EC
mov r0, #100
mul r0, r4
add r5, r0
mov r0, r5
mov r1, #0x3A
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
mov r6, r0
mov r0, r5
mov r1, #0x39
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
add r0, #10
cmp r0, r6
bge MoreThanMax
mov r6, r0
MoreThanMax:
mov r0, r6
str r0, [sp]
mov r2, sp
mov r0, r5
mov r1, #0x39
ldr r3, =(0x0806ACAC|1)
bl call_bx
add r4, #1
b RcoverLoop
LoopEnd:
add sp, #4
pop {r1, r4-r6}
cmp r1, #0x33
ldr r3, =(0x080846FE|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x080847F8
ldr r3, =(RcoverStone|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-3 08:32
根据flag0x4012的值判断是否开启穿墙
和初始村蓝胖对话查看效果

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func AcrossWall
push {r4}
mov r8, r0
ldr r0, =0x4012
ldr r3, =(0x0809D790|1)
bl call_bx
cmp r0, #0
bne CanAcrossWall
mov r0, r8
mov r1, r5
mov r2, r4
mov r3, r6
ldr r4, =(0x08092BC8|1)
bl call_bx2
b Back
CanAcrossWall:
mov r0, #0
Back:
pop {r4}
ldr r3, =(0x0808B0C8|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.func call_bx2
bx r4
.endfunc
.pool
Script_AcrossWall:
lock
faceplayer
checkflag 0x4012
if1 0x0, Script_Open
clearflag 0x4012
msgbox gText_Close, 0x6
release
end
Script_Open:
setflag 0x4012
msgbox gText_Open, 0x6
release
end
gText_Close:
.string "关闭穿墙术！"
gText_Open:
.string "打开穿墙术！"
.org 0x0808B0C0
ldr r3, =(AcrossWall|1)
bx r3
.pool
.org 0x089C0DFC
.word Script_AcrossWall
.close

复制代码

这个解法可能不是最优的。貌似可以不用hook实现穿墙。

作者: 本站第一萌新 时间: 2020-5-3 08:43
本帖最后由本站第一萌新于 2020-5-29 17:36 编辑

很久以前写的了类似究极绿宝石那样的初始宠物系统，可以选择1-7代所有初始宠物。不过我看了一下这个应该和究极绿的实现方式不同。
注意1：此代码未经试验，因为我当时并没有研究主角选择的宠物对劲敌所选宠物的影响。所以此系统可以可能造成各种各样的BUG，请谨慎使用！
注意2：此代码仅适用于绿宝石802，当然，如果你的ROM也支持802只精灵且顺序和正版一样的话那也没有问题

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func SaveStarterMonHack
ldr r0, =0x020375F0
ldrh r0, [r0]
str r0, [sp]
mov r1, #3
ldr r3, =(0x082E7650|1)
bl call_bx
ldr r1, =0x02026DE2
strh r0, [r1]
ldr r0, [sp]
ldr r3, =(0x080B116A|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.align 2
NewsPokeballCoords:
.byte 0x3C, 0x40
.byte 0x78, 0x58
.byte 0xB4, 0x40
.byte 0x3C, 0x40
.byte 0x78, 0x58
.byte 0xB4, 0x40
.byte 0x3C, 0x40
.byte 0x78, 0x58
.byte 0xB4, 0x40
.byte 0x3C, 0x40
.byte 0x78, 0x58
.byte 0xB4, 0x40
.byte 0x3C, 0x40
.byte 0x78, 0x58
.byte 0xB4, 0x40
.byte 0x3C, 0x40
.byte 0x78, 0x58
.byte 0xB4, 0x40
.byte 0x3C, 0x40
.byte 0x78, 0x58
.byte 0xB4, 0x40
NewLabelCoords:
.byte 0x00, 0x09
.byte 0x10, 0x0A
.byte 0x08, 0x04
.byte 0x00, 0x09
.byte 0x10, 0x0A
.byte 0x08, 0x04
.byte 0x00, 0x09
.byte 0x10, 0x0A
.byte 0x08, 0x04
.byte 0x00, 0x09
.byte 0x10, 0x0A
.byte 0x08, 0x04
.byte 0x00, 0x09
.byte 0x10, 0x0A
.byte 0x08, 0x04
.byte 0x00, 0x09
.byte 0x10, 0x0A
.byte 0x08, 0x04
.byte 0x00, 0x09
.byte 0x10, 0x0A
.byte 0x08, 0x04
NewHandsPosition:
.byte 0x3C, 0x20
.byte 0x78, 0x38
.byte 0xB4, 0x20
.byte 0x3C, 0x20
.byte 0x78, 0x38
.byte 0xB4, 0x20
.byte 0x3C, 0x20
.byte 0x78, 0x38
.byte 0xB4, 0x20
.byte 0x3C, 0x20
.byte 0x78, 0x38
.byte 0xB4, 0x20
.byte 0x3C, 0x20
.byte 0x78, 0x38
.byte 0xB4, 0x20
.byte 0x3C, 0x20
.byte 0x78, 0x38
.byte 0xB4, 0x20
.byte 0x3C, 0x20
.byte 0x78, 0x38
.byte 0xB4, 0x20
NewsStarterMon:
.halfword 0x1, 0x4, 0x7
.halfword 0x98, 0x9B, 0x9E
.halfword 0x115, 0x118, 0x11B
.halfword 0x1B8, 0x1BB, 0x1BE
.halfword 0x224, 0x227, 0x22A
.halfword 0x2BF, 0x2C2, 0x2C5
.halfword 0x307, 0x30A, 0x30D
.org 0x0813431E
cmp r4, #19
.pool
.org 0x08133EE2
cmp r1, #21
.pool
.org 0x081341D8
.word NewsPokeballCoords
.org 0x081342E4
.word NewsPokeballCoords
.org 0x081345F0
.word NewLabelCoords
.org 0x08133EF4
.word NewsStarterMon
.org 0x08134734
.word NewHandsPosition
.org 0x080B115C
ldr r3, =(SaveStarterMonHack|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-3 09:14
一个对于积极禁金的人来说可能较有用的代码
在确认支付时会检查现在在购买的商品是否在商店列表中，如果不是则提示请不要作弊
注意1：此代码仅能防住03005E12 XXXX这类金手指，并不能防住直接更改商店商品的金手指
注意2：请打开CharTable.txt，在末尾输入FC09=[按键] 当然如果你懒的搞直接用十六进制写进去也行

.gba
.thumb
.loadtable "header/CharTable.txt"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func AntiBuyCheat
ldr r3, =0x02039F68
ldr r3, [r3]
Check:
ldrh r2, [r3]
cmp r0, r2
beq DontCheat
cmp r2, #0x0
beq HasCheat
add r3, #0x2
b Check
DontCheat:
ldr r3, =(0x080D6928|1)
bl call_bx
ldr r3, =(0x080E0F08|1)
bx r3
HasCheat:
ldr r1, =gText_DontCheat
ldr r3, =(0x080E0F32|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
gText_DontCheat:
.string "请不要作弊！[按键]"
.org 0x080E0F00
ldr r3, =(AntiBuyCheat|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-3 09:21
修改std0, 使得NPC给道具的时候可以显示出道具图片
我这里是使用OBJ实现的，貌似std1使用的不是这种方法

.gba
.thumb
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func ShowItemSprite
push {r4-r5, lr}
add sp, #-24
ldr r0, =0x200
ldr r4, =(0x08000B4C|1)
bl call_bx
str r0, [sp]
ldr r0, =0x120 ;24X24
bl call_bx
str r0, [sp, #4] ;buffer4x4
ldr r0, =0x020375D8
ldrh r0, [r0]
lsl r0, #3
ldr r5, =0x08FCBFF4 ;这个地方是绿宝石802的道具图片结构体（不知道怎么解释）数据地址，如果你用的绿宝石原版请自行搜索对应数据更改
add r5, r0
ldr r0, [r5]
ldr r1, [sp, #4]
swi #0x11
ldr r0, [sp, #4]
ldr r1, [sp]
ldr r4, =(0x081AFE44|1)
bl call_bx
ldr r0, [sp]
mov r1, sp
str r0, [r1, #8]
ldr r0, =0x200
strh r0, [r1, #12]
ldr r0, =0x1300
strh r0, [r1, #14]
add r0, sp, #8
ldr r4, =(0x080084F8|1)
bl call_bx
ldr r0, [r5, #4]
mov r1, sp
str r0, [r1, #16]
ldr r0, =0x1300
strh r0, [r1, #20]
add r0, sp, #16
ldr r4, =(0x0803458C|1)
bl call_bx
ldr r0, =SpriteTemplate
mov r1, #0xDA
mov r2, #0x88
mov r3, #0
ldr r4, =(0x08006DF4|1)
bl call_bx
ldr r1, =0x020375D8
strb r0, [r1, #4]
ldr r0, [sp, #4]
ldr r4, =(0x08000B60|1)
bl call_bx
ldr r0, [sp]
bl call_bx
add sp, #24
pop {r4-r5, pc}
.endfunc
.pool
.func DeleteItemSprite
push {r4, lr}
ldr r0, =0x020375D8
ldrb r0, [r0, #4]
mov r1, #0x44
mul r0, r1
ldr r2, =0x02020630
add r0, r2
ldr r4, =(0x08007620|1)
bl call_bx
pop {r4, pc}
.endfunc
.pool
.func call_bx
bx r4
.endfunc
.pool
.align 4
OamData:
.halfword 0x0 ;方形
.halfword 0x8000 ;32X32
.halfword 0x0
.align 4
SpriteTemplate:
.halfword 0x1300
.halfword 0x1300
.word OamData
.word 0x08614FF0
.word 0x0
.word 0x082EC6A8
.word (0x08007428|1)
ScriptGiveItem:
callasm (ShowItemSprite|1)
additem 0x8000, 0x8001
copyvar 0x8007, LASTRESULT
call 0x8271AE3
callasm (DeleteItemSprite|1)
return
.org 0x081DC2A0
.word ScriptGiveItem
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-3 09:25
本帖最后由本站第一萌新于 2020-5-3 09:29 编辑

显示隐藏64X64头像，应该比贴吧早期翻译的那个老外的要更安全
不过由于是随手写的，所以并没有翻转等各种功能，有兴趣可以自行实现

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func ShowMugshots
push {r4, lr}
add sp, #-16
ldr r0, =0x08F85000 ;头像表 [图片1][色盘1] [图片2][色盘2] [图片3][色盘3] ... 可以自行更改位置
ldr r1, =0x020375E0
ldrh r1, [r1]
lsl r1, #3
add r4, r0, r1
mov r1, sp
ldr r0, [r4]
str r0, [r1]
mov r0, #1
lsl r0, #11 ;0x800
strh r0, [r1, #4]
ldr r0, =0x1300
strh r0, [r1, #6]
mov r0, r1
ldr r3, =(0x08034530|1)
bl call_bx
add r1, sp, #8
ldr r0, [r4, #4]
str r0, [r1]
ldr r0, =0x1300
strh r0, [r1, #4]
mov r0, r1
ldr r3, =(0x0803458C|1)
bl call_bx
ldr r0, =SpriteTemplate
mov r1, #0x25
mov r2, #0x55
mov r3, #0
ldr r4, =(0x08006DF4|1)
bl call_bx2
ldr r1, =0x020375E0
strb r0, [r1]
add sp, #16
pop {r4, pc}
.endfunc
.pool
.func DeleteMugshots
push {lr}
ldr r0, =0x020375E0
ldrb r0, [r0]
mov r1, #0x44
mul r0, r1
ldr r2, =0x02020630
add r0, r2
ldr r3, =(0x08007620|1)
bl call_bx
pop {pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.func call_bx2
bx r4
.endfunc
.pool
.align 4
OamData:
.halfword 0x0 ;方形
.halfword 0xC000 ;64X64
.halfword 0x0
.align 4
SpriteTemplate:
.halfword 0x1300
.halfword 0x1300
.word OamData
.word 0x08614FF0
.word 0x0
.word 0x082EC6A8
.word (0x08007428|1)
.close

复制代码

var8004里面储存头像在头像表ID

作者: 本站第一萌新 时间: 2020-5-3 14:54
一个简单的源码，删除首位精灵，将其个体值复制给后面一只精灵，并将后面所有精灵向前移动一位

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func Sacrifice
push {r4, lr}
add sp, #-4
ldr r0, =0x020244E9
ldrb r0, [r0]
cmp r0, #2
blt Wrong
mov r4, #0
SacrificeLoop:
cmp r4, #6
bge DeletePoke
ldr r0, =0x020244EC
mov r1, #0x27
add r1, r4
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
str r0, [sp]
mov r2, sp
ldr r0, =0x020244EC
add r0, #100
mov r1, #0x27 ;HP_IV
add r1, r4
ldr r3, =(0x0806ACAC|1)
bl call_bx
add r4, #1
b SacrificeLoop
DeletePoke:
mov r4, #0
DeletePokeLoop:
ldr r0, =0x020244E9
ldrb r0, [r0]
sub r0, #1
cmp r4, r0
bge LoopEnd
ldr r0, =0x020244EC
mov r1, #100
mul r1, r4
add r0, r1 ;精灵地址
mov r1, r0
add r1, #100
mov r2, #100
ldr r3, =(0x0806B408|1)
bl call_bx
add r4, #1
b DeletePokeLoop
LoopEnd:
ldr r0, =0x020244E9
ldrb r0, [r0]
sub r0, #1
mov r1, #100
mul r0, r1
ldr r1, =0x020244EC
add r0, r1
ldr r3, =(0x08067A8C|1)
bl call_bx
ldr r0, =0x020244EC
ldr r3, =(0x08068D0C|1)
bl call_bx
mov r1, #1
b Back
Wrong:
mov r1, #0
Back:
ldr r0, =0x020375F0
strh r1, [r0]
add sp, #4
pop {r4, pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-3 14:57
一个简单的源码，实现剑盾动漫中火箭队的扭蛋机消耗一只喵喵随机获得1-2只精灵

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func REggMachine
push {r4-r5, lr}
mov r4, #0
CheckMeowthLoop:
cmp r4, #6
bge NoMeowth
ldr r0, =0x020244EC
mov r1, #100
mul r1, r4
add r0, r1
mov r1, #0xB
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
cmp r0, #0x34 ;喵喵
beq HasMeowth
add r4, #1
b CheckMeowthLoop
NoMeowth:
mov r0, #0
ldr r1, =0x020375F0
strh r0, [r1]
b Back
HasMeowth:
ldr r0, =0x020244EC
mov r1, #100
mul r1, r4
add r0, r1
ldr r3, =(0x08067A8C|1)
bl call_bx
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, #1
and r0, r1
add r0, #1
ldr r1, =0x020375F0
strh r0, [r1]
mov r4, r0
GivePokeLoop:
cmp r4, #0
ble Back
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, #16
lsl r1, #6
add r1, #45 ;0x42D 绿宝石802有0x42D只精灵，如果你用的绿宝石改成绿宝石的精灵数
ldr r3, =(0x082E7650|1)
bl call_bx
add r5, r0, #1
mov r1, #2
sub r0, r1, r4
mov r1, #0xFF
add r1, #1 ;0x100
mul r0, r1
ldr r1, =0x02021CC4
add r0, r1
ldr r1, =0x08F2B790
mov r2, #11
mul r2, r5
add r1, r2
ldr r3, =(0x08008B10|1)
bl call_bx
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, #100
ldr r3, =(0x082E7650|1)
bl call_bx
add r1, r0, #1
mov r0, r5
mov r2, #0
ldr r3, =(0x080F9244|1)
bl call_bx
sub r4, #1
b GivePokeLoop
Back:
pop {r4-r5, pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
Script_REggMachine:
lock
faceplayer
msgbox gText_UseOrNot, 0x5
compare 0x800D, 0x0
if1 0x1, Script_End
callasm (REggMachine|1)
compare 0x800D, 0x1
if1 0x0, Script_NoMeowth
if1 0x1, Script_GetOnePoke
msgbox gText_GetTwoPoke, 0x6
Script_End:
release
end
Script_NoMeowth:
msgbox gText_NoMeowth, 0x6
release
end
Script_GetOnePoke:
msgbox gText_GetOnePoke, 0x6
release
end
gText_UseOrNot:
.string "是否使用秘密武器？"
gText_NoMeowth:
.string "队伍中没有喵喵！"
gText_GetOnePoke:
.string "获得了[buffer2]！"
gText_GetTwoPoke:
.string "获得了[buffer1]和[buffer2]！"
.org 0x089C0DFC
.word Script_REggMachine
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-3 15:09
绿宝石802 3.0专享：
由于802重写了伤害计算函数，此代码无法作用于绿宝石原版
制造恐惧黑中的ghost
专属技能：诅咒无视一切秒杀，且不消耗PP
专属特性：恐惧敌方会因为恐惧而无法行动
在选择初始宠物的时候会把ghost放到你的背包里
至于被击败的训练师变成墓碑没搞，有兴趣的可以自己去尝试实现
这个是好久以前搞得东西了，又因为是自娱自乐之作且有版本限制应该没人会要。故我也懒得去改写了，直接发出来供大家参考

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "picture.gba","3.0.gba", 0x8000000
.org 0x08F80000
DmgHack:
ldr r3, [r2]
add r3, #1
str r3, [r2]
ldr r0, =0x020241EA
ldrh r0, [r0]
mov r1, #180
lsl r1, #2 ;诅咒技能代码：0x2D0
cmp r0, r1
bne DmgHackBack
ldr r0, =0x020241F0
mov r1, #1
neg r1, r1
strh r1, [r0]
ldr r3, =0x0202427C
mov r0, #0x10
strb r0, [r3]
ldr r3, =(0x08E1AB28|1)
bx r3
DmgHackBack:
mov r3, #0x58
ldr r0, =(0x08E1A930|1)
bx r0
CannotAttackHack:
mov r2, #0
ldr r0, =(0x02024084 + 32)
mov r3, r0
CannotAttackHackLoop:
ldrb r1, [r0]
cmp r1, #0xE9 ;恐惧特性代码：0xE9
beq CheckItSelfAbility
add r0, #0x58
add r2, #1
cmp r2, #4
blt CannotAttackHackLoop
CannotAttackHackBack:
mov r2, #0x58
mov r1, #8
mul r2, r5
ldr r3, =0x02024084
ldr r0, =(0x08E0EB00|1)
bx r0
CheckItSelfAbility:
mov r0, #0x58
mul r0, r5
add r0, r3
ldrb r0, [r0]
cmp r0, #0xE9
beq CannotAttackHackBack
ldr r1, =(0x08E0EB10|1)
bx r1
PPReduceHack:
lsl r0, r0, #4
and r4, r0
cmp r4, #0
bne NoPPReduce
ldr r0, =0x020241EA
ldrh r0, [r0]
mov r1, #180
lsl r1, #2
cmp r0, r1
beq NoPPReduce
ldr r3, =(0x08046B04|1)
bx r3
NoPPReduce:
ldr r3, =(0x08046BDC|1)
bx r3
GiveGhostToPlayer:
mov r1, #5
mov r2, #0
ldr r3, =(0x080F9244|1)
bl call_bx
mov r0, #133
lsl r0, #3
add r0, #6 ;Ghost编号：0x42E
mov r1, #1
mov r2, #0
ldr r3, =(0x080F9244|1)
bl call_bx
ldr r3, =(0x080B1182|1)
call_bx:
bx r3
.pool
STR_CURSE:
.byte 0x0C, 0x12, 0x03, 0xC8, 0x0D, 0xA4, 0x07, 0x51, 0x03, 0x0B, 0x11, 0x1F, 0x10, 0xB5, 0x10, 0x7F, 0x08, 0x79, 0xB8, 0xFE, 0x0B, 0xF5, 0x03, 0x17, 0x03, 0xC0, 0x07, 0x5B, 0x08, 0xBC, 0x01, 0xB1, 0x0C, 0x63, 0xAD, 0xFF
STR_FRIGHTEN:
.byte 0x0B, 0xF5, 0x03, 0x17, 0x0F, 0x42, 0x07, 0xE4, 0x07, 0x95, 0x03, 0x9D, 0x03, 0x54, 0x02, 0xED, 0x01, 0xD6, 0x03, 0x0A, 0xFF
MOVES_TO_LEARN:
.halfword 0x2D0, 0x01, 0x00, 0xFF
.org 0x08E2D98A
.byte 0x9 ;属性：Egg
.org 0x08E2D98C
.byte 0x1 ;PP：1
.org 0x08E2D992
.byte 0x1 ;类型：特殊攻击
.org 0x08DFAFB0
.byte 0x11, 0x1F, 0x10, 0xB5, 0xFF ;技能名称：诅咒
.org 0x08DF593C
.word STR_CURSE
.org 0x08DEBC40
.word 0x082D3BFB ;使用鬼系诅咒的动画
.org 0x08DE5D05
.byte 0x07, 0xE4, 0x07, 0x95 ,0xFF ;特性名称：恐惧
.org 0x08DE44A4
.word STR_FRIGHTEN
.org 0x08F2E58A
.byte 0xC1, 0xDC, 0xE3, 0xE7, 0xE8, 0xFF ;精灵名称：Ghost
.org 0x08F22B90 ;精灵图象，自己导入和更换地址
.word 0x08F80110
.org 0x08F27690
.word 0x08F80530
.org 0x08F25110
.word 0x08F80558
.org 0x08F29C10
.word 0x08F80970
.org 0x08F2B0D8 ;使用鬼斯通的小图标以及耿鬼的图鉴（模仿究极绿的）
.word 0x08C6FBC4
.org 0x08F2B70E
.byte 0x02
.org 0x08F50BCA
.halfword 0x5E
.org 0x08F1FBE8 ;基本能力
.byte 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF
.byte 0x09, 0x09
.byte 0xFF
.byte 0x00
.halfword 0x00
.halfword 0x00
.halfword 0x00
.byte 0xFF
.byte 0xFF
.byte 0xFF
.byte 0x05
.byte 0x0F, 0x0F
.byte 0xE9, 0xE9
.byte 0x00
.byte 0x04
.halfword 0x00
.org 0x08E21174
.word MOVES_TO_LEARN
.org 0x08E1A928
ldr r3, =(DmgHack|1)
bx r3
.pool
.org 0x08E0EAF8
ldr r3, =(CannotAttackHack|1)
bx r3
.pool
.org 0x08046AFC
ldr r3, =(PPReduceHack|1)
bx r3
.pool
.org 0x080B1178
ldr r3, =(GiveGhostToPlayer|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-3 15:12
本帖最后由本站第一萌新于 2020-5-3 15:19 编辑

绿宝石802专享：
这个源码使用了802的三属性框架，当然现在回头看这并不是最优的方法
制作觉醒石系统，携带对应属性觉醒石的精灵可以在战斗中获得额外属性
也是好久前写的代码了，和上面一样，不修改了

.gba
.thumb
.include "header/ArmipsBSMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
CheckHasAwakeningStone:
mov r0, #0x58
mul r0, r4
ldr r1, =(0x02024084 + 0x2E)
add r0, r1
ldrh r0, [r0]
mov r1, #80
lsl r1, #3
add r1, #18
cmp r0, r1 ;0x292
bgt HasNoAwakeningStone
sub r1, #17
cmp r0, r1 ;0x281
blt HasNoAwakeningStone
push {r5}
sub r5, r0, r1
ldr r1, =(0x08FC2C7C + 0x28)
mov r2, #0x2C
mul r0, r2
ldrb r0, [r0, r1]
ldr r3, =0x02024218
ldr r3, [r3]
mov r2, #0x24
mul r2, r4
add r1, r3, r2
add r1, #6
strb r0, [r1]
add r3, #0x9F
strb r4, [r3]
ldr r0, =(0x02024332 + 0x05)
strb r5, [r0]
pop {r5}
ldr r0, =BS_HASSTONE
ldr r3, =(0x08E073E4|1)
bl call_bx
ldr r3, =(0x08E19B64|1)
bx r3
HasNoAwakeningStone:
cmp r5, #0x95
beq GotoSub8E19B6A
bhi GotoSub8E19AEE
cmp r5, #0x20
ldr r3, =(0x08E19AD4|1)
bx r3
GotoSub8E19B6A:
ldr r3, =(0x08E19B6A|1)
bx r3
GotoSub8E19AEE:
ldr r3, =(0x08E19AEE|1)
bx r3
.pool
MoreBattlestring:
mov r3, #147
lsl r3, #2
add r1 ,r3, #1
cmp r0, r3
bgt More
mov r3, #0x7C
add r3, #0xFF
cmp r0, r3
bls GotoSub8E06654
ldr r3, =(0x08E0664C|1)
bx r3
More:
ldr r3, =NewBattleStringsTable
sub r0, r1
ldr r1, =(0x08E06658|1)
bx r1
GotoSub8E06654:
ldr r3, =(0x08E06654|1)
bx r3
.pool
call_bx:
bx r3
.pool
BS_HASSTONE:
printfromtable AwakeningStoneType
waitmessage 0x40
end3
STR_SUMMARY_NORMAL:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x0F, 0x0B, 0x01, 0x42, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_FIGHT:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x04, 0x5B, 0x03, 0x5C, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_FLYING:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x03, 0xCC, 0x0E, 0x5B, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_POISON:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x03, 0x63, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_GROUND:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x03, 0x1F, 0x09, 0x7E, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_ROCK:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x0E, 0xBB, 0x0B, 0xEB, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_BUG:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x02, 0x68, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_GHOST:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x04, 0xB5, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_STEEL:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x04, 0x40, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_FIRE:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x05, 0x7D, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_WATER:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x0C, 0x51, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_GRASS:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x02, 0x01, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_ELECTRIC:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x03, 0x2E, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_PSYCHIC:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x02, 0x2E, 0x09, 0xD2, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_ICE:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x01, 0xB6, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_DRAGON:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0xCD, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_DARK:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x03, 0x96, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_SUMMARY_FAIRY:
.byte 0x09, 0xD2, 0x04, 0x83, 0x0B, 0x43, 0x01, 0x63, 0x07, 0xD7, 0x09, 0x66, 0x0F, 0xE6, 0x10, 0x30, 0xFE, 0x03, 0x5C, 0x10, 0xA1, 0x07, 0xA5, 0x0E, 0x5C, 0x0E, 0xE6, 0x07, 0x5B, 0x0C, 0x39, 0x0E, 0x5F, 0xFE, 0x03, 0x0B, 0x0B, 0xCF, 0x0A, 0xA1, 0x03, 0x07, 0x07, 0x8F, 0xAD, 0xFF
STR_USE_NORMAL:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x0F, 0x0B, 0x01, 0x42, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_FIGHT:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x04, 0x5B, 0x03, 0x5C, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_FLYING:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x03, 0xCC, 0x0E, 0x5B, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_POISON:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x03, 0x63, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_GROUND:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x03, 0x1F, 0x09, 0x7E, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_ROCK:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x0E, 0xBB, 0x0B, 0xEB, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_BUG:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x02, 0x68, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_GHOST:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x04, 0xB5, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_STEEL:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x04, 0x40, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_FIRE:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x05, 0x7D, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_WATER:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x0C, 0x51, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_GRASS:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x02, 0x01, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_ELECTRIC:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x03, 0x2E, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_PSYCHIC:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x02, 0x2E, 0x09, 0xD2, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_ICE:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x01, 0xB6, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_DRAGON:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x08, 0xCD, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_DARK:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x03, 0x96, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
STR_USE_FAIRY:
.byte 0xFD, 0x12, 0x07, 0xA5, 0x0E, 0x5C, 0x08, 0x9E, 0x0E, 0xE6, 0x07, 0x5B, 0x0C, 0x39, 0x0E, 0x5F, 0xAB, 0xFF
.align 4
NewBattleStringsTable:
.word STR_USE_NORMAL
.word STR_USE_FIGHT
.word STR_USE_FLYING
.word STR_USE_POISON
.word STR_USE_GROUND
.word STR_USE_ROCK
.word STR_USE_BUG
.word STR_USE_GHOST
.word STR_USE_STEEL
.word STR_USE_FIRE
.word STR_USE_WATER
.word STR_USE_GRASS
.word STR_USE_ELECTRIC
.word STR_USE_PSYCHIC
.word STR_USE_ICE
.word STR_USE_DRAGON
.word STR_USE_DARK
.word STR_USE_FAIRY
.word 0x00
AwakeningStoneType:
.halfword 0x24D, 0x24E, 0x24F, 0x250, 0x251, 0x252, 0x253, 0x254, 0x255, 0x256, 0x257, 0x258, 0x259, 0x25A, 0x25B, 0x25C, 0x25D, 0x25E
.align 4
StonePic:
.word 0x00012010, 0xF0000036, 0xC0078001, 0x0F0013F0, 0x00CC04CC, 0x00BBBBCC, 0xD4BBBB02, 0x07701DF0
.word 0xBC12300C, 0x88C00330, 0x0003B090, 0xBB03108C, 0x00BBABAB, 0xBBBA8BBB, 0xBB88AB8B, 0xA88A8A00
.word 0x88A8A8B8, 0x888800A8, 0x8A88B88A, 0x8805B888, 0xCBB8A888, 0x009B5600, 0x00BB765A, 0x1003904C
.word 0xA3F0C817, 0x0F8801E0, 0xCC888888, 0xB3100200, 0xA3601EF0, 0x4001F0C0, 0x00000001
.align 4
StonePal:
.word 0x00002010, 0xFF7FFF00, 0x1F7C1F03, 0x7FE00000, 0x7C0003E0, 0xFF000000, 0x1A1B7E3F, 0x302B9F1B
.word 0x190022B9, 0x00000100
.org 0x08E19ACC
ldr r3, =(CheckHasAwakeningStone|1)
bx r3
.pool
.org 0x08E06644
ldr r3, =(MoreBattlestring|1)
bx r3
.pool
.org (0x08FC9AA8 + 0x2C * 0x00)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x0F, 0x0B, 0x01, 0x42, 0xFF, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x00)
.word STR_SUMMARY_NORMAL
.org (0x08FC9AD0 + 0x2C * 0x00)
.byte 0x00
.org (0x08FCD3FC + 0x08 * 0x00)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x01)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x04, 0x5B, 0x03, 0x5C, 0xFF, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x01)
.word STR_SUMMARY_FIGHT
.org (0x08FC9AD0 + 0x2C * 0x01)
.byte 0x01
.org (0x08FCD3FC + 0x08 * 0x01)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x02)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x03, 0xCC, 0x0E, 0x5B, 0xFF, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x02)
.word STR_SUMMARY_FLYING
.org (0x08FC9AD0 + 0x2C * 0x02)
.byte 0x02
.org (0x08FCD3FC + 0x08 * 0x02)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x03)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x03, 0x63, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x03)
.word STR_SUMMARY_POISON
.org (0x08FC9AD0 + 0x2C * 0x03)
.byte 0x03
.org (0x08FCD3FC + 0x08 * 0x03)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x04)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x03, 0x1F, 0x09, 0x7E, 0xFF, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x04)
.word STR_SUMMARY_GROUND
.org (0x08FC9AD0 + 0x2C * 0x04)
.byte 0x04
.org (0x08FCD3FC + 0x08 * 0x04)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x05)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x0E, 0xBB, 0x0B, 0xEB, 0xFF, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x05)
.word STR_SUMMARY_ROCK
.org (0x08FC9AD0 + 0x2C * 0x05)
.byte 0x05
.org (0x08FCD3FC + 0x08 * 0x05)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x06)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x02, 0x68, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x06)
.word STR_SUMMARY_BUG
.org (0x08FC9AD0 + 0x2C * 0x06)
.byte 0x06
.org (0x08FCD3FC + 0x08 * 0x06)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x07)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x04, 0xB5, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x07)
.word STR_SUMMARY_GHOST
.org (0x08FC9AD0 + 0x2C * 0x07)
.byte 0x07
.org (0x08FCD3FC + 0x08 * 0x07)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x08)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x04, 0x40, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x08)
.word STR_SUMMARY_STEEL
.org (0x08FC9AD0 + 0x2C * 0x08)
.byte 0x08
.org (0x08FCD3FC + 0x08 * 0x08)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x09)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x05, 0x7D, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x09)
.word STR_SUMMARY_FIRE
.org (0x08FC9AD0 + 0x2C * 0x09)
.byte 0x0A
.org (0x08FCD3FC + 0x08 * 0x09)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x0A)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x0C, 0x51, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x0A)
.word STR_SUMMARY_WATER
.org (0x08FC9AD0 + 0x2C * 0x0A)
.byte 0x0B
.org (0x08FCD3FC + 0x08 * 0x0A)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x0B)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x02, 0x01, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x0B)
.word STR_SUMMARY_GRASS
.org (0x08FC9AD0 + 0x2C * 0x0B)
.byte 0x0C
.org (0x08FCD3FC + 0x08 * 0x0B)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x0C)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x03, 0x2E, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x0C)
.word STR_SUMMARY_ELECTRIC
.org (0x08FC9AD0 + 0x2C * 0x0C)
.byte 0x0D
.org (0x08FCD3FC + 0x08 * 0x0C)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x0D)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x02, 0x2E, 0x09, 0xD2, 0xFF, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x0D)
.word STR_SUMMARY_PSYCHIC
.org (0x08FC9AD0 + 0x2C * 0x0D)
.byte 0x0E
.org (0x08FCD3FC + 0x08 * 0x0D)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x0E)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x01, 0xB6, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x0E)
.word STR_SUMMARY_ICE
.org (0x08FC9AD0 + 0x2C * 0x0E)
.byte 0x0F
.org (0x08FCD3FC + 0x08 * 0x0E)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x0F)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x08, 0xCD, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x0F)
.word STR_SUMMARY_DRAGON
.org (0x08FC9AD0 + 0x2C * 0x0F)
.byte 0x010
.org (0x08FCD3FC + 0x08 * 0x0F)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x10)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x03, 0x96, 0xFF, 0x00, 0x00, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x10)
.word STR_SUMMARY_DARK
.org (0x08FC9AD0 + 0x2C * 0x10)
.byte 0x11
.org (0x08FCD3FC + 0x08 * 0x10)
.word StonePic
.word StonePal
.org (0x08FC9AA8 + 0x2C * 0x11)
.byte 0x07, 0xA5, 0x0E, 0x5C, 0x0B, 0xEB, 0x00, 0x0E, 0xE6, 0x07, 0x5B, 0xFF, 0x00, 0x00
.org (0x08FC9ABC + 0x2C * 0x11)
.word STR_SUMMARY_FAIRY
.org (0x08FC9AD0 + 0x2C * 0x11)
.byte 0x17
.org (0x08FCD3FC + 0x08 * 0x11)
.word StonePic
.word StonePal
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-4 15:01
本帖最后由本站第一萌新于 2020-5-4 15:06 编辑

输入脚本地址，执行脚本
也是和初始村蓝胖对话查看效果
顺便说一下，我是因为偷懒才这么搞得。如果你想作用于其他NPC，请删掉

.org 0x089C0DFC
.word Script_ScriptRunner

复制代码

并将Script_ScriptRunner给你想要的NPC

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func ScriptRunner
push {r4-r5, lr}
ldr r0, =(Task_SRProcessInput|1)
mov r1, #0
ldr r4, =(0x080A8FB0|1)
bl call_bx
ldr r5, =0x03005E00
mov r1, #40
mul r0, r1
add r5, r0
mov r0, #0 ;X
mov r1, #0 ;Y
mov r2, #8 ;W
mov r3, #2 ;H
ldr r4, =(0x080E2A1C|1)
bl call_bx
strh r0, [r5, #8] ;twindowId
mov r1, #0
strh r1, [r5, #10] ;tstate
str r1, [r5, #12] ;tpointer
strh r1, [r5, #16] ;tslot
mov r1, #0
ldr r4, =(0x08197854|1)
bl call_bx
mov r0, #0
ldr r4, =(0x081999BC|1)
bl call_bx
pop {r4-r5, pc}
.endfunc
.pool
.func Task_SRProcessInput
push {r4-r7, lr}
mov r5, r0
ldr r7, =0x03005E00
mov r1, #40
mul r0, r1
add r7, r0
ldrh r6, [r7, #8] ;twindowId
ldrh r0, [r7, #10] ;tstate
cmp r0, #0
beq ShowScriptRunner
ldr r0, =0x030022C0
ldrh r0, [r0, #0x2E]
cmp r0, #1
beq A_Pressed
cmp r0, #2
beq B_Pressed
cmp r0, #0x10
beq Right_Pressed
cmp r0, #0x20
beq Left_Pressed
cmp r0, #0x40
beq Up_Pressed
cmp r0, #0x80
beq Down_Pressed
b InputEnd
A_Pressed:
ldr r0, =0x020375E0
strh r5, [r0]
mov r1, #1
strh r1, [r0, #0x10]
b InputEnd ;理论上这里应该先把window free了，但是懒得改了
B_Pressed:
mov r0, r5
mov r1, r6
bl DeleteTaskAndFreeWindow
ldr r0, =0x020375E0
mov r1, #0
strh r1, [r0, #0x10]
b InputEnd
Right_Pressed:
ldrh r0, [r7, #16]
cmp r0, #3
bge InputEnd
add r0, #1
strh r0, [r7, #16]
mov r2, r0
ldr r0, [r7, #12]
mov r1, r6
bl ShowPointer
b InputEnd
Left_Pressed:
ldrh r0, [r7, #16]
cmp r0, #0
ble InputEnd
sub r0, #1
strh r0, [r7, #16]
mov r2, r0
ldr r0, [r7, #12]
mov r1, r6
bl ShowPointer
b InputEnd
Up_Pressed:
ldrh r0, [r7, #16]
mov r1, #3
sub r1, r0
mov r2, r7
add r2, #12
ldrb r0, [r2, r1]
cmp r0, #0xFF
bge InputEnd
add r0, #1
strb r0, [r2, r1]
ldr r0, [r7, #12]
mov r1, r6
ldrh r2, [r7, #16]
bl ShowPointer
b InputEnd
Down_Pressed:
ldrh r0, [r7, #16]
mov r1, #3
sub r1, r0
mov r2, r7
add r2, #12
ldrb r0, [r2, r1]
cmp r0, #0
ble InputEnd
sub r0, #1
strb r0, [r2, r1]
ldr r0, [r7, #12]
mov r1, r6
ldrh r2, [r7, #16]
bl ShowPointer
b InputEnd
ShowScriptRunner:
ldr r0, [r7, #12] ;tpointer
mov r1, r6 ;twindowId
ldrh r2, [r7, #16] ;tslot
bl ShowPointer
mov r0, #1
strh r0, [r7, #10]
InputEnd:
pop {r4-r7, pc}
.endfunc
.pool
.func ShowPointer
push {r4-r7, lr}
mov r4, r8
push {r4}
add sp, #-8
mov r5, r0
mov r8, r1
mov r6, r2
mov r0, r1
mov r1, #17
ldr r4, =(0x08003C48|1)
bl call_bx
mov r7, #0
PrintPointerLoop:
cmp r7, #4
bge LoopEnd
mov r0, #0xFF
mov r1, #8
mov r2, #3
sub r2, r7
mul r1, r2
lsl r0, r1
and r0, r5
lsr r0, r1
mov r1, r0
ldr r0, =0x02021FC4
mov r2, #2
mov r3, #2
ldr r4, =(0x08008E20|1)
bl call_bx
cmp r7, r6
bne NotHighLight
ldr r0, =0x02021EC4
ldr r1, =gText_HignLight
ldr r4, =(0x08008EE0|1)
bl call_bx
ldr r0, =0x02021EC4
ldr r1, =0x02021FC4
ldr r4, =(0x08008BC0|1)
bl call_bx
mov r0, #0
str r0, [sp]
str r0, [sp, #4]
mov r0, r8
ldr r1, =0x02021EC4
mov r2, #16
mul r2, r7
add r2, #1
mov r3, #1
ldr r4, =(0x080E04A4|1)
bl call_bx
b PrepareToNext
NotHighLight:
mov r0, #0
str r0, [sp]
str r0, [sp, #4]
mov r0, r8
ldr r1, =0x02021FC4
mov r2, #16
mul r2, r7
add r2, #1
mov r3, #1
ldr r4, =(0x080E04A4|1)
bl call_bx
PrepareToNext:
add r7, #1
b PrintPointerLoop
LoopEnd:
add sp, #8
pop {r4}
mov r8, r4
pop {r4-r7, pc}
.endfunc
.pool
.func RunScript
push {r4-r5, lr}
ldr r0, =0x020375E0
ldrh r0, [r0] ;taskId
ldr r2, =0x03005E00
mov r1, #40
mul r1, r0
add r2, r1
ldrh r1, [r2, #8]
ldr r5, [r2, #12]
bl DeleteTaskAndFreeWindow
mov r0, r5
ldr r4, =(0x08098EF8|1)
bl call_bx
pop {r4-r5, pc}
.endfunc
.pool
.func DeleteTaskAndFreeWindow
push {r4-r5, lr}
mov r5, r1
ldr r4, =(0x080A909C|1)
bl call_bx
mov r0, r5
ldr r4, =(0x080E2A78|1)
bl call_bx
pop {r4-r5, pc}
.endfunc
.pool
.func call_bx
bx r4
.endfunc
.pool
gText_HignLight:
.string "[文本色_红]"
Script_ScriptRunner:
lock
faceplayer
preparemsg gText_PleaseInput
waitmsg
callasm (ScriptRunner|1)
waitkeypress
compare 0x800D, 1
if1 0x1, Script_RunScript
msgbox gText_Cancel, 0x6
release
end
Script_RunScript:
release
callasm (RunScript|1)
.org 0x089C0DFC
.word Script_ScriptRunner
gText_PleaseInput:
.string "欢迎使用脚本执行器，\n请输入脚本地址："
gText_Cancel:
.string "输入取消！"
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-4 20:26
入门时候写的，使得所有野生精灵（包括赠送精灵）变成闪光
不过指定PID的精灵好像不会有效果，不过我也懒得去改了

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func ShinyHack
push {r4-r6}
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r4, r0
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r5, #7
and r5, r0
ldr r3, =(0x080F0020|1)
bl call_bx
lsl r6, r0, #16
lsr r6, #16
lsr r0, #16
eor r0, r6
eor r0, r4
eor r0, r5
lsl r0, #16
orr r0, r4
mov r1, r0
pop {r4-r6}
ldr r3, =(0x0806AF8C|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x0806AF84
ldr r3, =(ShinyHack|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-5 20:26
显示觉醒力量属性（包括战斗中选择技能页面），威力
这一段代码还有很大的优化空间

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func SetMoveTypeIconsHack
cmp r0, #237
bne NotHiddenPower1
mov r0, #0
bl GetType
ldr r3, =(0x081C4448|1)
bx r3
NotHiddenPower1:
mov r1, r0
lsl r0, r1, #1
add r0, r1
lsl r0, #2
ldr r3, =(0x081C4444|1)
bx r3
.endfunc
.pool
.func MoveSelectionDisplayMoveTypeHack
cmp r2, #237
bne NotHiddenPower2
mov r4, r0
mov r0, #1
bl GetType
mov r2, r0
mov r0, r4
b Back
NotHiddenPower2:
lsl r1, r2, #1
add r1, r2
lsl r1, #2
add r1, r3
ldrb r2, [r1, #2]
Back:
ldr r3, =(0x08059BF2|1)
bx r3
.endfunc
.pool
.func PrintMovePowerHack
cmp r4, #237
bne NotHiddenPower3
bl GetPower
mov r1, r0
ldr r4, =0x02021CC4
ldr r3, =(0x081C3CA0|1)
bx r3
NotHiddenPower3:
add r2, r0, r2
ldrb r0, [r2, #1]
mov r6, r1
cmp r0, #1
ldr r3, =(0x081C3C8C|1)
bx r3
.endfunc
.pool
.func GetType ;r0 = isinbattle
push {r4-r5, lr}
add sp, #-12
cmp r0, #1
bne SummaryScreen
ldr r0, =0x02024064
ldrb r0, [r0]
ldr r3, =(0x08E1833C|1)
bl call_bx
b GetIvs1
SummaryScreen:
ldr r0, =0x0203CF1C
ldr r0, [r0]
add r0, #0xC
GetIvs1:
mov r1, sp
bl GetIvs
mov r4, #0
mov r5, #0
GetTypeLoop:
cmp r4, #6
bge GetTypeLoopEnd
mov r0, #1
lsl r1, r4, #1
mov r2, sp
ldrh r1, [r2, r1]
and r0, r1
lsl r0, r4
orr r5, r0
add r4, #1
b GetTypeLoop
GetTypeLoopEnd:
mov r0, #15
mul r0, r5
mov r1, #63
ldr r3, =(0x082E7B68|1)
bl call_bx
add r0, #1
cmp r0, #9
blt LessThanMy
add r0, #1
LessThanMy:
add sp, #12
pop {r4-r5, pc}
.endfunc
.pool
.func GetPower
push {r4-r5, lr}
add sp, #-12
ldr r0, =0x0203CF1C
ldr r0, [r0]
add r0, #0xC
mov r1, sp
bl GetIvs
mov r0, sp
ldrh r0, [r0]
mov r1, #2
and r0, r1
lsr r5, r0, #1
mov r4, #1
GetPowerLoop:
cmp r4, #6
bge GetPowerLoopEnd
mov r0, #2
lsl r1, r4, #1
mov r2, sp
ldrh r1, [r2, r1]
and r0, r1
sub r1, r4, #1
lsl r0, r1
orr r5, r0
add r4, #1
b GetPowerLoop
GetPowerLoopEnd:
mov r0, #40
mul r0, r5
mov r1, #63
ldr r3, =(0x082E7B68|1)
bl call_bx
add r0, #30
add sp, #12
pop {r4-r5, pc}
.endfunc
.pool
.func GetIvs
push {r4-r6, lr}
mov r5, r0
mov r6, r1
mov r4, #0
GetIvsLoop:
cmp r4, #6
bge GetIvsLoopEnd
mov r0, r5
mov r1, #0x27
add r1, r4
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
lsl r1, r4, #1
strh r0, [r1, r6]
add r4, #1
b GetIvsLoop
GetIvsLoopEnd:
pop {r4-r6, pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x081C443C
ldr r3, =(SetMoveTypeIconsHack|1)
bx r3
.pool
.org 0x081C3C84
ldr r3, =(PrintMovePowerHack|1)
bx r3
.pool
.org 0x08059BE8
ldr r1, =(MoveSelectionDisplayMoveTypeHack|1)
bx r1
.pool
.close

复制代码

作者: 1696774136 时间: 2020-5-6 00:11

本站第一萌新发表于 2020-5-2 21:14
模仿jzw聚聚早期做的一个滚动式多选框（虽说是模仿其实我根本没看他的是怎么实现的，也没看效果，只是觉得 ...

请问，原版绿宝石多选对话框在哪里呢

作者: 本站第一萌新 时间: 2020-5-6 07:26

1696774136 发表于 2020-5-6 00:11
请问，原版绿宝石多选对话框在哪里呢

0x0858B760

作者: 本站第一萌新 时间: 2020-5-6 14:43
本帖最后由本站第一萌新于 2020-5-6 14:47 编辑

昼夜使用不同调色板
注意：本代码仅为研究，我看了下和某绿的实现方式不同（那个暂且不懂，只是大概看了下是每帧都在判断），安全性和实用性暂且未知，只是发出来做个记录

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func DayNight
ldr r0, =0x083DF704
cmp r0, r4
bne Normal
ldr r0, =0x03005CF8
ldrb r0, [r0, #2]
cmp r0, #6
bge Normal
UseNightPal:
ldr r0, =(NightPal + 2)
b Back
Normal:
cmp r0, #18 ;6-18点使用原调色板（白天），其余使用自定义调色板（夜晚）
bge UseNightPal
ldr r0, [r4, #8]
add r0, #2
Back:
add r5, #1
ldr r3, =(0x08088CFE|1)
bx r3
.endfunc
.pool
.align 2
NightPal:
;请在此处书写你的调色板请仿照08DD4E10写至少5个(多了不会用到，但原版有不止5个)
.org 0x08088CF4
ldr r3, =(DayNight|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-6 17:21
本帖最后由本站第一萌新于 2020-5-7 15:56 编辑

之前做过的一个比较有意思的程序，随机在自定义的精灵库中抽取精灵构成双方队伍来进行对战。并且在战斗中禁用背包。之前是用C写的，我用ASM重写了一遍并删去了一些功能
以使其方便新手使用
此代码存在很大的修改空间，如可用r8储存目前的精灵数据地址。我由于是随便抽了一点时间写的所以没有进行修改。有兴趣的可以自己改进一下。

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.macro RandomPoke, species, helditem, move1, move2, move3, move4, nature, abilityNum
.halfword species
.halfword helditem
.byte HPIV, attIV, defIV, speIV, spaIV, spdIV
.byte HPEV, attEV, defEV, speEV, spaEV, spdEV
.halfword move1, move2, move3, move4
.byte nature
.byte abilityNum
.endmacro
.macro RandomPokeEnd
.halfword 0x0
.halfword 0x0
.byte 0x0, 0x0, 0x0, 0x0, 0x0, 0x0
.byte 0x0, 0x0, 0x0, 0x0, 0x0, 0x0
.halfword 0x0, 0x0, 0x0, 0x0
.byte 0x0
.byte 0x0
.endmacro
.org 0x08F80000
.func CheckIsRandom
ldr r3, =(0x0806EA68|1)
bl call_bx
mov r0, #128
lsl r0, #7
add r0, #18 ;0x4012
ldr r3, =(0x0809D790|1)
bl call_bx
cmp r0, #0
beq CheckEnd
bl LoadParties
CheckEnd:
ldr r1, =0x030022C0
mov r2, #33
lsl r2, #5
add r2, #25 ;0x439
ldr r3, =(0x080369EC|1)
bx r3
.endfunc
.pool
.func LoadParties
push {lr}
ldr r3, =(0x08067B0C|1)
bl call_bx
ldr r3, =(0x08067B2C|1)
bl call_bx
ldr r0, =0x020244EC
bl LoadParty
ldr r0, =0x02024744
bl LoadParty
pop {pc}
.endfunc
.pool
.func LoadParty
push {r4-r7, lr}
add sp, #-4
mov r4, r0
mov r5, #0
b GetMaxIdLoop
GetSpecieLoopEnd: ;out of range
add sp, #4
pop {r4-r7, pc}
GetMaxIdLoop:
ldr r0, =gRandomPokes
mov r1, #26
mul r1, r5
add r0, r1
ldrh r0, [r0]
cmp r0, #0
beq GetMaxIdLoopEnd
add r5, #1
b GetMaxIdLoop
GetMaxIdLoopEnd:
mov r6, #0
GetSpecieLoop:
cmp r6, #6
bge GetSpecieLoopEnd
GetRandomSpecie:
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, r5
ldr r3, =(0x082E7BE0|1)
bl call_bx
add r1, r0, #1
mov r7, #0
CheckRepeatLoop:
cmp r7, r6
bge CheckRepeatLoopEnd
mov r3, #100
mul r3, r7
add r3, r4
ldrh r2, [r3, #30]
cmp r1, r2
beq CheckRepeatLoopEnd
add r7, #1
b CheckRepeatLoop
CheckRepeatLoopEnd:
cmp r6, r7
bne GetRandomSpecie
mov r7, r0
ldr r1, =gRandomPokes
mov r2, #26
mul r0, r2
add r0, r1
ldrb r1, [r0, #24]
str r1, [sp]
ldrh r1, [r0]
mov r0, #100
mul r0, r6
add r0, r4
mov r2, #100
mov r3, #0
mov r5, r4
ldr r4, =(0x08067E90|1)
bl call_bx2
mov r4, r5
add r0, r7, #1
mov r3, #100
mul r3, r6
add r3, r4
strh r0, [r3, #30]
mov r0, #0xFF
str r0, [sp]
mov r0, #100
mul r0, r6
add r0, r4
mov r1, #0x15
mov r2, sp
ldr r3, =(0x0806ACAC|1)
bl call_bx
mov r0, #100
mul r0, r6
add r0, r4
mov r1, #0x20
mov r2, sp
ldr r3, =(0x0806ACAC|1)
bl call_bx
ldr r2, =gRandomPokes
add r2, #2
mov r0, #26
mul r0, r7
add r2, r0
mov r1, #0xC
mov r0, #100
mul r0, r6
add r0, r4
ldr r3, =(0x0806ACAC|1)
bl call_bx
mov r5, #0
SetMoveLoop:
cmp r5, #4
bge SetMoveLoopEnd
ldr r2, =gRandomPokes
add r2, #16
mov r0, #26
mul r0, r7
add r2, r0
lsl r0, r5, #1
add r2, r0
mov r1, #0xD
add r1, r5
mov r0, #100
mul r0, r6
add r0, r4
ldr r3, =(0x0806ACAC|1)
bl call_bx
ldr r2, =gRandomPokes
add r2, #16
mov r0, #26
mul r0, r7
add r2, r0
lsl r1, r5, #1
ldrh r0, [r2, r1]
mov r1, #0xFF
mov r2, r5
ldr r3, =(0x0806B960|1)
bl call_bx
str r0, [sp]
mov r2, sp
mov r0, #100
mul r0, r6
add r0, r4
mov r1, #0x11
add r1, r5
ldr r3, =(0x0806ACAC|1)
bl call_bx
add r5, #1
b SetMoveLoop
SetMoveLoopEnd:
mov r5, #0
SetIVEVLoop:
cmp r5, #6
bge SetIVEVLoopEnd
mov r1, #0x27
add r1, r5
ldr r2, =gRandomPokes
add r2, #4
mov r0, #26
mul r0, r7
add r2, r0
add r2, r5
mov r0, #100
mul r0, r6
add r0, r4
ldr r3, =(0x0806ACAC|1)
bl call_bx
mov r1, #0x1A
add r1, r5
ldr r2, =gRandomPokes
add r2, #10
mov r0, #26
mul r0, r7
add r2, r0
add r2, r5
mov r0, #100
mul r0, r6
add r0, r4
ldr r3, =(0x0806ACAC|1)
bl call_bx
add r5, #1
b SetIVEVLoop
SetIVEVLoopEnd:
ldr r2, =gRandomPokes
add r2, #25
mov r0, #26
mul r0, r7
add r2, r0
mov r1, #0x2E
mov r0, #100
mul r0, r6
add r0, r4
ldr r3, =(0x0806ACAC|1)
bl call_bx
mov r0, #100
mul r0, r6
add r0, r4
ldr r3, =(0x08068D0C|1)
bl call_bx
add r6, #1
b GetSpecieLoop
.endfunc
.pool
.func CantUseBagHack
ldr r1, =0x021F0902
and r0, r1
cmp r0, #0
bne CantUseBag
mov r0, #128
lsl r0, #7
add r0, #18 ;0x4012
ldr r3, =(0x0809D790|1)
bl call_bx
cmp r0, #0
bne CantUseBag
ldr r3, =(0x0803C48C|1)
bx r3
CantUseBag:
ldr r3, =(0x0803C23E|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.func call_bx2
bx r4
.endfunc
.pool
.align 2
gRandomPokes:
RandomPoke 0x71, 0x22C, 0x1F, 0x0, 0x1F, 0x1F, 0x0, 0x1F, 0xFC, 0x0, 0x4, 0x0, 0x0, 0xFC, 0x45, 0x5C, 0x87, 0x138, 0x14, 0x0
RandomPoke 0x321, 0x220, 0x1F, 0x0, 0x1F, 0x1F, 0x1F, 0x1F, 0xFC, 0x0, 0x4, 0x0, 0x0, 0xFC, 0x1F7, 0x186, 0x69, 0x72, 0x14, 0x1
RandomPoke 0x142, 0x149, 0x1F, 0x1F, 0x1F, 0x1F, 0x0, 0x1F, 0xFC, 0x0, 0xFC, 0x0, 0x0, 0x4, 0x11A, 0x105, 0x69, 0xB6, 0x8, 0x1
RandomPoke 0xE3, 0x22E, 0x1F, 0x1F, 0x1F, 0x1F, 0x0, 0x1F, 0xFC, 0x0, 0xFC, 0x0, 0x0, 0x4, 0x19D, 0x1BE, 0x1B0, 0x163, 0x8, 0x1
RandomPoke 0x28B, 0xC8, 0x1F, 0x1F, 0x1F, 0x0, 0x0, 0x1F, 0xFC, 0x0, 0xFC, 0x0, 0x0, 0x4, 0x168, 0x1B6, 0x49, 0xB6, 0x7, 0x0
RandomPoke 0x278, 0xC8, 0x1F, 0x0, 0x1F, 0x1F, 0x1F, 0x1F, 0xFC, 0x0, 0xFC, 0x0, 0x0, 0x4, 0x1D9, 0x19B, 0x15B, 0x69, 0x14, 0x1
RandomPokeEnd
.org 0x080369E4
ldr r3, =(CheckIsRandom|1)
bx r3
.pool
.org 0x0803C234
ldr r3, =(CantUseBagHack|1)
bx r3
.pool
.close

复制代码

如果你要新增精灵，请在gRandomPokes的末尾（RandomPokeEnd之前）以

RandomPoke 种类, 道具, HPIV, attIV, defIV, speIV, spaIV, spdIV, HPEV, attEV, defEV, speEV, spaEV, spdEV, 技能1, 技能2, 技能3, 技能4, 性格, 特性ID

复制代码

的方式书写。（性格可以去看金手指找，特性ID就是精灵种族对应的两种特性）
我已经添加了6只精灵，不过这是适用于绿宝石802的。如果你用的是绿宝石原版或者不想保留我的设定，删掉他们，但请保证至少有6只精灵
示例脚本：
#freespace 0xFF
#dynamic 0xF85000
#org @RandomBattle
setflag 0x273 //开启允许战败
setflag 0x4012 //开启随机对战
special 0x28 //储存队伍
trainerbattle 1 [训练师ID] 0 @msg1 @msg2 @ScriptAfterBattle
end

#org @ScriptAfterBattle
msgbox @msg3 2
settrainerflag [训练师ID] //设置训练师可再次对战
special 0x29 //恢复队伍
clearflag 0x4012 //禁用随机对战
clearflag 0x273 //禁用允许战败
end

#org @msg1
= ...

#org @msg2
= ...

#org @msg3
= ...
0x273这个flag在802中用于控制是否能够战败，不过我不确定绿宝石原版有没有这个flag。如果没有的话你可以自己研究或者找我，我有时间的话会帮你看看

作者: 本站第一萌新 时间: 2020-5-7 08:28
新增一个王者状态，拥有此状态的精灵的能力值将比同类多出1/4
在精灵页面和队伍中将会显示状态图标。当有其他状态存在时，将会显示其他状态的图标
战斗中遇到王者精灵将会有提示
这个也是很久前写的了，而且用的是蛇皮写法。所以逻辑性可能较差，勉强看看吧

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsBSMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func CalculateMonStatsHack1
push {r2, lr}
ldr r3, =(0x0806D8D4|1)
bl call_bx
CalculateMonStatsHack2:
ldrh r1, [r5, #30]
cmp r1, #0
beq Back
mov r1, #5
mul r0, r1
lsr r0, #2
Back:
pop {r2, pc}
.endfunc
.pool
.func HackType1
bl CalculateMonStatsHack1
mov r3, #70
mul r2, r3
ldr r3, =(0x08068E42|1)
add r3, r2
bx r3
.endfunc
.pool
.func HackType2
bl CalculateMonStatsHack1
lsl r1, r2, #2
add r1, #4
add r1, sp
str r0, [r1]
mov r3, #70
mul r2, r3
ldr r3, =(0x08068E42|1)
add r3, #2
add r3, r2
bx r3
.endfunc
.pool
.func HackHP
ldr r3, =(0x082E7540|1)
bl call_bx
add r0, r4
add r0, #0xA
mov r1, pc ;蛇皮操作，请勿学习
add r1, #9
push {r1}
push {r2}
bl CalculateMonStatsHack2
ldr r3, =(0x08068E24|1)
bx r3
.endfunc
.pool
.func RandomToBeKing
mov r1, #0x38
mov r2, sp
add r2, #10
ldr r3, =(0x0806ACAC|1)
bl call_bx
ldr r3, =(0x0806F5CC|1)
bl call_bx
ldr r1, =6666 ;概率分之一，最大0xFFFF
ldr r3, =(0x082E7BE0|1)
bl call_bx
cmp r0, #0
bne RandomEnd
mov r0, #1
mov r1, r8
strb r0, [r1, #30]
RandomEnd:
ldr r3, =(0x08067B9C|1)
bx r3
.endfunc
.pool
.func DoKingBS
mov r0, r7
ldr r3, =(0x08E1833C|1)
bl call_bx
ldrb r0, [r0, #30]
cmp r0, #0
beq BSCheckEnd
ldr r0, =0x0202420B
strb r7, [r0]
ldr r0, =BS_KINGSTATU
ldr r3, =(0x08E073E4|1)
bl call_bx
mov r4, #1
BSCheckEnd:
ldr r2, [sp, #0x10]
lsl r3, r7, #2
add r3, r2, r3
mov r2, #0x7F
ldr r0, =(0x08E051D4|1)
bx r0
.endfunc
.pool
.func MoreBattlestring
mov r3, #147
lsl r3, #2
add r1 ,r3, #1
cmp r0, r3
bgt More
mov r3, #0x7C
add r3, #0xFF
cmp r0, r3
bls Normal
ldr r3, =(0x08E0664C|1)
bx r3
Normal:
ldr r3, =(0x08E06654|1)
bx r3
More:
ldr r3, =NewBattleStringsTable
sub r0, r1
ldr r1, =(0x08E06658|1)
bx r1
.endfunc
.pool
.func CheckSpriteHack
ldr r3, =(0x081B2014|1)
bl call_bx
cmp r0, #0
bne CheckBack
ldrb r0, [r4, #30]
cmp r0, #0
beq CheckBack
mov r0, #8
CheckBack:
cmp r0, #0
ldr r3, =(0x081B2080|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
BS_KingStatu:
printstring 0x24D
waitmessage 0x40
end3
.align 4
NewBattleStringsTable:
.word gText_KingStatu
gText_KingStatu:
.string "王者的威压从", 0xFD, 0x0F, "身上溢出！"
.align 2
NewStatuIcons:
.word 0x00040010, 0x0000000A, 0x45030050, 0xC1440700, 0x131003C0, 0x44244450, 0x01031044, 0x42222222
.word 0x20442442, 0x0B10F203, 0x1B501750, 0x24222340, 0xD7221F30, 0x33002A20, 0x54600005, 0x13205CF0
.word 0x00AB1B10, 0x8300707F, 0x66870067, 0x131003C0, 0x26662004, 0x7B006666, 0x62206262, 0x22074062
.word 0x22226266, 0x11106650, 0x66130066, 0x4F666266, 0x26781026, 0x40010026, 0x000E1007, 0x0062571C
.word 0xE0000704, 0x205CF076, 0xD61B1013, 0x03016310, 0x28070129, 0x131003C0, 0x28220090, 0x88288822
.word 0x00848882, 0x282882FF, 0x22074028, 0x00226888, 0x82140013, 0x82220100, 0x28823A82, 0x0F500740
.word 0x10821700, 0x09572820, 0x01986001, 0x03C08864, 0x1B101310, 0xAB7F40AA, 0x80AA8701, 0x97012A03
.word 0x9B01802B, 0xAA2AAAB0, 0xA42AA2AA, 0x00220200, 0x00A22204, 0x63AA2A03, 0x000F002A, 0x22AAA217
.word 0x0A101B00, 0x109C01D7, 0x18002A09, 0x200C002A, 0x570C001C, 0x0B2C00A2, 0xC0BAE001, 0x1068105C
.word 0x1B10D513, 0x02D0FF01, 0x0702CD03, 0x5203402C, 0x2D0340CC, 0xCCC27F11, 0x06220100, 0xCC22C222
.word 0x10070022, 0xC2452C0D, 0x2C2C0F10, 0x2C09002C, 0x00A41E00, 0x1D02CC11, 0x0F10CC2C, 0x2C722CCC
.word 0x1D100A10, 0x0D222220, 0xFADC6002, 0x5C505480, 0x1B101310, 0x02507B32, 0x10B3407B, 0x07702403
.word 0x25001310, 0x86027B62, 0x228342E7, 0x2460128B, 0xF2160042, 0xCF7FA27F, 0x84027B22, 0x03C00444
.word 0x97129802, 0xEF56FF41, 0x032E0703, 0x0340EE0B, 0x802F0B10, 0xEE2E7F12, 0x222EE222, 0x10EE402E
.word 0xE2222207, 0x2F2E22E2, 0x0200E2E2, 0x101110E2, 0x10731008, 0x2300B31D, 0x0001002E, 0x00EE2E1F
.word 0x2B031018, 0x1500222E, 0xFE60030F, 0x60505880, 0x101310F7, 0xA2FFF21B, 0xE00270FF, 0xFF12E602
.word 0x2266261F, 0x03100C03, 0x1300D822, 0x10FD1B10, 0x430D031F, 0x2003200E, 0x2227032C, 0xF2C03B10
.word 0x00FFB2FF
.align 4
NewAnimCmdTable:
.incbin "test.gba", 0x61D0DC, 0x1C
.word NewAnim
.align 4
NewAnim:
.halfword 28, 0, 0xFFFF, 0
.org 0x08068E80
ldr r3, =(HackType1|1)
bx r3
.pool
.org 0x08068EC6
ldr r3, =(HackType2|1)
bx r3
.pool
.org 0x08068F0C
ldr r3, =(HackType1|1)
bx r3
.pool
.org 0x08068F52
ldr r3, =(HackType2|1)
bx r3
.pool
.org 0x08068F98
ldr r3, =(HackType1|1)
bx r3
.pool
.org 0x08068E1C
ldr r3, =(HackHP|1)
bx r3
.pool
.org 0x08067B94
ldr r3, =(RandomToBeKing|1)
bx r3
.pool
.org 0x08E051CC
ldr r3, =(DoKingBS|1)
bx r3
.pool
.org 0x08E06644
ldr r3, =(MoreBattlestring|1)
bx r3
.pool
.org 0x081B2076
ldr r3, =(CheckSpriteHack|1)
bx r3
.pool
.org 0x08615FF8
.word NewStatuIcons
.org 0x0861D0F8
.word NewStatuIcons
.halfword 0x400
.org 0x0861D110
.word NewAnimCmdTable
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-7 20:46
本帖最后由本站第一萌新于 2020-5-26 22:13 编辑

在宝可梦能力界面点击A可以依次查看精灵个体，努力，再按一次回到能力。个体和努力都根据大小分为三个阶层，每个阶层用不同的颜色显示（色板里居然没有绿色，只能用蓝色代替了

）
有的地方逻辑可以修改以最大限度的节省空间和效率，比如r9那个地方，还有switch可以换成pc（之前写错了）和地址的差跳转。我一样懒得搞了
（话说这个论坛好冷啊，连发了20条左右也只有两个人回复

）

.gba
.thumb
.loadtable "header/CharTable.txt"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func CheckIsAPressedHack
mov r1, #129
lsl r1, #7
add r1, #64 ;0x40C0
ldrb r0, [r0, r1]
cmp r0, #1
bne CheckIsAPressedBack
bl ShowStates
pop {r4-r5, pc}
CheckIsAPressedBack:
ldr r3, =(0x081C05BA|1)
bx r3
.endfunc
.pool
.func ClearStatuWhenChangePage
ldr r3, =0x0203F000 ;现在看来用一个变量应该会更好？但懒得改了
mov r2, #0
strb r2, [r3]
push {r4-r7, lr}
mov r7, r10
mov r6, r9
mov r5, r8
ldr r3, =(0x081C0A94|1)
bx r3
.endfunc
.pool
.func ClearStatuWhenChangeMon
ldr r3, =0x0203F000
mov r2, #0
strb r2, [r3]
push {r4-r7, lr}
mov r7, r0
mov r5, r1
ldr r3, =(0x081C060E|1)
bx r3
.endfunc
.pool
.func ShowStates
push {lr}
ldr r0, =0x0203F000
ldrb r1, [r0]
add r1, #1
strb r1, [r0]
ldr r0, =(Task_ShowStates|1)
ldr r3, =(0x080A8FB0|1)
bl call_bx
ldr r1, =0x03005E00
mov r2, #40
mul r0, r2
add r0, r1
mov r1, #0
strh r1, [r0, #8] ;tstate
pop {pc}
.endfunc
.pool
.func Task_ShowStates
push {r4-r7, lr}
mov r4, r0
ldr r5, =0x03005E00
mov r2, #40
mul r0, r2
add r5, r0
ldrh r0, [r5, #8] ;tstate
ldr r6, =0x0203F000
ldrb r7, [r6]
ldr r1, =Switch
lsl r0, #1
ldrh r0, [r0, r1]
ldr r1, =(Task_ShowStates|1)
add r0, r1
bx r0
ClearPageWindowTilemaps:
mov r0, #1
ldr r3, =(0x081C2C38|1)
bl call_bx
b AddState
PrintHeldItemName:
ldr r3, =(0x081C35E4|1)
bl call_bx
b AddState
PrintRibbonCount:
ldr r3, =(0x081C3690|1)
bl call_bx
b AddState
BufferLeftStatsIVsEVs:
cmp r7, #0
beq BufferLeftStats
mov r0, #1
bl BufferIVsAndEVs
b AddState
BufferLeftStats:
ldr r3, =(0x081C3710|1)
bl call_bx
b AddState
PrintLeftStatsIVsEVs:
cmp r7, #0
beq PrintLeftStats
mov r0, #1
bl PrintIVsAndEVs
b AddState
PrintLeftStats:
ldr r3, =(0x081C37D8|1)
bl call_bx
b AddState
BufferRightStatsIVsEVs:
cmp r7, #0
beq BufferRightStats
mov r0, #0
bl BufferIVsAndEVs
b AddState
BufferRightStats:
ldr r3, =(0x081C3808|1)
bl call_bx
b AddState
PrintRightStatsIVsEVs:
cmp r7, #0
beq PrintRightStats
mov r0, #0
bl PrintIVsAndEVs
b AddState
PrintRightStats:
ldr r3, =(0x081C3890|1)
bl call_bx
b AddState
PrintExpPointsNextLevel:
ldr r3, =(0x081C38C0|1)
bl call_bx
b AddState
CreatePageWindowTilemaps:
mov r0, #1
ldr r3, =(0x081C2AFC|1)
bl call_bx
b AddState
DestroyTask:
cmp r7, #2
bne Destroy
mov r7, #0xFF
strb r7, [r6]
Destroy:
mov r0, r4
ldr r3, =(0x080A909C|1)
bl call_bx
AddState:
ldrh r0, [r5, #8]
add r0, #1
strh r0, [r5, #8]
pop {r4-r7, pc}
.endfunc
.pool
.func BufferIVsAndEVs
push {r4-r7, lr}
mov r4, r8
mov r5, r9
mov r6, r10
push {r4-r6}
mov r10, r0
ldr r1, =0x0203F000
ldrb r1, [r1]
cmp r0, #0
bne BufferRight
mov r0, #7
mov r9, r0
cmp r1, #1
beq HPIV
mov r4, #0x1A
b IntToString
HPIV:
mov r4, #0x27
b IntToString
BufferRight:
mov r0, #3
mov r9, r0
cmp r1, #1
beq SpeIV
mov r4, #0x1D
b IntToString
SpeIV:
mov r4, #0x2A
IntToString:
mov r5, #0
ldr r6, =0x02021CC4
ldr r7, =0x0203CF1C
ldr r7, [r7]
add r7, #0xC
IntToStringLoop:
cmp r5, #3
bge IntToStringLoopEnd
mov r0, r7
add r1, r4, r5
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
mov r8, r0
bl GetLevelColour
mov r1, r0
mov r0, #0xFF
add r0, #1 ;0x100
mul r0, r5
add r0, r6
ldr r3, =(0x08008EE0|1)
bl call_bx
mov r0, #24
lsl r0, #5 ;0x300
add r0, r6
mov r1, r8
mov r2, #1
mov r3, r9
mov r8, r4
ldr r4, =(0x08008CC0|1)
bl call_bx2
mov r4, r8
mov r0, #0xFF
add r0, #1 ;0x100
mul r0, r5
add r0, r6
mov r1, #24
lsl r1, #5 ;0x300
add r1, r6
ldr r3, =(0x08008BC0|1)
bl call_bx
add r5, #1
b IntToStringLoop
IntToStringLoopEnd:
ldr r3, =(0x081AFBF0|1)
bl call_bx
mov r5, #0
SetPlaceholderPtrLoop:
cmp r5, #3
bge SetPlaceholderPtrLoopEnd
mov r1, #0xFF
add r1, #1 ;0x100
mul r1, r5
add r1, r6
mov r0, r5
ldr r3, =(0x081AFC0C|1)
bl call_bx
add r5, #1
b SetPlaceholderPtrLoop
SetPlaceholderPtrLoopEnd:
mov r0, r10
cmp r0, #0
bne LayoutRight
ldr r1, =gText_LayoutRight
b ExpandPlaceholders
LayoutRight:
ldr r1, =gText_LayoutLeft
ExpandPlaceholders:
mov r0, #24
lsl r0, #5 ;0x300
add r0, r6
ldr r3, =(0x081AFC28|1)
bl call_bx
pop {r4-r6}
mov r8, r4
mov r9, r5
mov r10, r6
pop {r4-r7, pc}
.endfunc
.pool
.func PrintIVsAndEVs
push {r4-r5, lr}
add sp, #-8
cmp r0, #0
bne PrintRight
mov r4, #4
mov r5, #2
b AddWindow
PrintRight:
mov r4, #2
mov r5, #3
AddWindow:
ldr r0, =0x0861CCEC
mov r1, r5
ldr r3, =(0x081C2D2C|1)
bl call_bx
mov r2, r4
ldr r1, =0x02021CC4
mov r3, #24
lsl r3, #5 ;0x300
add r1, r3
mov r3, #0
str r3, [sp]
str r3, [sp, #4]
mov r3, #1
ldr r4, =(0x081C25A4|1)
bl call_bx2
add sp, #8
pop {r4-r5, pc}
.endfunc
.pool
.func GetLevelColour
push {lr}
ldr r1, =0x0203F000
ldrb r1, [r1]
cmp r1, #1
bne IsEV
cmp r0, #10
ble BadColour
cmp r0, #20
ble NormalColour
b GoodColour
IsEV:
cmp r0, #85
ble BadColour
cmp r0, #170
ble NormalColour
GoodColour:
ldr r0, =gText_GoodColour
b GetLevelColourBack
BadColour:
ldr r0, =gText_BadColour
b GetLevelColourBack
NormalColour:
ldr r0, =gText_NormalColour
GetLevelColourBack:
pop {pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.func call_bx2
bx r4
.endfunc
.pool
.align 2
Switch:
.halfword (ClearPageWindowTilemaps - Task_ShowStates)
.halfword (PrintHeldItemName - Task_ShowStates)
.halfword (PrintRibbonCount - Task_ShowStates)
.halfword (BufferLeftStatsIVsEVs - Task_ShowStates)
.halfword (PrintLeftStatsIVsEVs - Task_ShowStates)
.halfword (BufferRightStatsIVsEVs - Task_ShowStates)
.halfword (PrintRightStatsIVsEVs - Task_ShowStates)
.halfword (PrintExpPointsNextLevel - Task_ShowStates)
.halfword (CreatePageWindowTilemaps - Task_ShowStates)
.halfword (DestroyTask - Task_ShowStates)
gText_LayoutRight:
.string 0xF7, 0x00, "\n", 0xF7, 0x01, "\n", 0xF7, 0x02
gText_LayoutLeft:
.string 0xF7, 0x01, "\n", 0xF7, 0x02, "\n", 0xF7, 0x00
gText_BadColour:
.string 0xFC, 0x01, 0x05
gText_NormalColour:
.string 0xFC, 0x01, 0x06
gText_GoodColour:
.string 0xFC, 0x01, 0x07
.org 0x081C05B0
ldr r3, =(CheckIsAPressedHack|1)
bx r3
.pool
.org 0x081C0A8C
ldr r3, =(ClearStatuWhenChangePage|1)
bx r3
.pool
.org 0x081C0604
ldr r3, =(ClearStatuWhenChangeMon|1)
bx r3
.pool
.close

复制代码

作者: jiangzhengwenjz 时间: 2020-5-8 06:24

本站第一萌新发表于 2020-5-7 20:46
在宝可梦能力界面点击A可以依次查看精灵个体，努力，再按一次回到能力。个体和努力都根据大小分为三个阶层 ...

在这里不设回复可见的话基本是不会有人回帖的

而且考虑到pokeemerald的存在，现在用ASM意义真的不大

作者: 本站第一萌新 时间: 2020-5-8 07:56

jiangzhengwenjz 发表于 2020-5-8 06:24
在这里不设回复可见的话基本是不会有人回帖的

而且考虑到pokeemerald的存在，现在用ASM意义真的不大

确实是。看到pokeemerald工程的那一刻我就感觉hook大限将至了

发这个帖子主要是考虑到论坛低端教程和高端教程之间没什么过渡，所以发一些稍微复杂一点。不过现在看起来也就是在自娱自乐了
但是感觉没有编程经验的新手凭借个人努力是很难完全搞懂pokeemerald的，不可能要求每个改版者都是专业程序员吧，就像我当初入门C的时候看聚聚发的那个个体努力显示器差点没看自闭了

各种系统完全搞不懂（其实现在也不是很懂，毕竟我是个闭门造车的典范，平时也就自己或和朋友一起瞎捉摸）（虽然说抄抄补补也能写出一些东西）
不过话说在国内我还没看到过几个用pokeemerald工程的改版，可能国内还是hook用的多一点吧

作者: jiangzhengwenjz 时间: 2020-5-8 11:33
本帖最后由 jiangzhengwenjz 于 2020-5-8 11:39 编辑

本站第一萌新发表于 2020-5-8 07:56
确实是。看到pokeemerald工程的那一刻我就感觉hook大限将至了
发这个帖子主要是考虑到论坛低 ...

额，pokeemerald只有更简单吧，因为只是用它改版你也并不需要懂他的build system，不需要懂怎么反编译，改改改就完事了，还有Egg现成的蓝本可以用，还可以用gdb调试

至于国内改版界，你如果不发这个贴我都要以为国内没人改版了（除了究绿那些人我算是知道），以前一起改版的人基本也都退了

我现在也不怎么搞改版，业余时间都在搞各种反编译项目，偶尔别人要帮忙的时候才写一下汇编
主要是现在那些函数和数据在pokeemerald/pokefirered里都命名得差不多了，再写功能就不会有太多感觉

以前，反编译还没出来，自己水平也不行，在那里调调调反而还挺有意思的

作者: 本站第一萌新 时间: 2020-5-8 12:00

jiangzhengwenjz 发表于 2020-5-8 11:33
额，pokeemerald只有更简单吧，因为只是用它改版你也并不需要懂他的build system，不需要懂怎么反编译， ...

确实感觉国内都没什么人研究GBA改版了。不过绿宝石802（应该会被最近国人在做的绿宝石890替代，毕竟有Z石梦特8代精灵等）这个蓝本已经足够满足大部分改版者的需求了，剩下的也就是写写脚本，剧情，导入素材的事了

作者: 本站第一萌新 时间: 2020-5-8 12:05
仅适用于绿宝石802
删除战死的精灵，并且如果主角战败则重置游戏（理论上能够抹除存档？但是这对模拟器而言并没有意义）

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsBSMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func DeleteFaintMon
push {lr}
bl 0x08E1833C
ldr r3, =(0x08067A8C|1)
bl call_bx
pop {pc}
.endfunc
.pool
.func DeleteAttacker
push {lr}
ldr r0, =0x0202420B
ldrb r0, [r0]
bl DeleteFaintMon
pop {pc}
.endfunc
.pool
.func DeleteTarget
push {lr}
ldr r0, =0x0202420B
ldrb r0, [r0, #1]
bl DeleteFaintMon
pop {pc}
.endfunc
.pool
.func CallasmHack
str r1, [r0]
ldr r1, =0x08E1FDFC
cmp r3, #166
blt CallasmHackBack
ldr r1, =(NewCallasmTable - 0x28)
sub r3, #166
CallasmHackBack:
lsl r2, r3, #2
add r3, r1, r2
ldr r1, =(0x08E193AC|1)
bx r1
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
BS_FaintAttacker:
playfaintingcry bank_attacker
pause_cmd 0x40
cmd1a bank_attacker
cmd1b bank_attacker
printstring 28
callasm_cmd 23
callasm_cmd 142
callasm_cmd 166
return_cmd
BS_FaintTarget:
playfaintingcry bank_target
pause_cmd 0x40
cmd1a bank_target
cmd1b bank_target
printstring 28
callasm_cmd 23
callasm_cmd 142
callasm_cmd 167
return_cmd
BS_CompactParty:
callasm_cmd 168
end2
BS_GotoCompactParty:
jumpifword 4, 0x02022FEC, 1, BS_CompactParty
goto_cmd BS_CompactParty
.align 4
NewCallasmTable:
.word (DeleteAttacker|1)
.word (DeleteTarget|1)
.word (0x080CE90C|1)
.org 0x08085F58
swi 0x0
.pool
.org 0x08E193A4
ldr r2, =(CallasmHack|1)
bx r2
.pool
.org 0x08049C04
.word BS_FaintAttacker
.org 0x08049C8C
.word BS_FaintTarget
.org 0x082DA7D9
.word BS_CompactParty
.org 0x082DA80F
.word BS_CompactParty
.org 0x082DA818
.word BS_CompactParty
.org 0x082DA8F0
.word BS_CompactParty
.org 0x082DA8E6
goto_cmd BS_GotoCompactParty
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-8 15:42
本帖最后由本站第一萌新于 2020-6-8 13:07 编辑

使得精灵可以使用对应属性的野外技能（一下想不起名字了，理解就好）如杰尼龟可以使用潜水，鱼跃龙门，冲浪。
这个创意最初是来自于老外FBI的，但他的实现我没有去看。不过想来也应该大同小异吧
注意：有点小bug 普通属性精灵无法换位

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func AddFieldMoveToList
ldr r5, =0x08615D7E
mov r0, #100
mov r1, r10
mul r0, r1
mov r1, r9
add r0, r1
mov r1, #0xB
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
ldr r1, =0x08F186E0
mov r2, #0x1C
mul r0, r2
add r0, r1
ldrb r7, [r0, #6]
ldrb r1, [r0, #7]
mov r8, r1
ldr r4, =0x08E2B7C8
mov r6, #0
AddFieldMoveLoop:
lsl r0, r6, #1
ldrh r0, [r0, r5]
cmp r0, #0xE
beq AddFieldMoveLoopEnd
mov r1, #0xC
mul r1, r0
add r1, r4
ldrb r1, [r1, #2]
cmp r1, r7
beq AddToList
mov r2, r8
cmp r1, r2
beq AddToList
b PrepareNext
AddToList:
mov r2, #19
add r2, r6
ldr r0, =0x0203CEC4
ldr r0, [r0]
mov r1, r0
add r0, #0xF
add r1, #0x17
ldr r3, =(0x080A0944|1)
bl call_bx
PrepareNext:
add r6, #1
b AddFieldMoveLoop
AddFieldMoveLoopEnd:
ldr r3, =(0x081B34AA|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x081B3440
ldr r3, =(AddFieldMoveToList|1)
bx r3
.pool
.org 0x081B54F6
mov r0, #1 ;使得徽章检查失去作用。删去这块如果你不想要这个效果
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-9 15:53
本帖最后由本站第一萌新于 2021-7-23 10:00 编辑

命名界面支持中文输入
这个是花了一上午搞得。还有些bug，所以最好不要用或者请自行稍作修改
1.输入中文的时候好像没有检测是否超出最大字符数
2.输入的时候字符无法对其下划线。这个是因为它输出不是一连串输出而是一个一个字符输出的，我实在懒得新建一个全局变量用来记录什么地方是中文字符什么地方不是
3.中文字符删除不能一次删完，而是会变成一个其他字符，原理同上
由于代码过于庞大，所以上传为文件，请自行重命名为.asm文件
不过现在想来貌似用一个循环就能实现了，实在没有必要浪费这么多空间:(
修复版下载地址：https://share.weiyun.com/PIwjima3 PS：解决了上述bug。但由于时间原因，该版本代码仍存在较大优化空间

ChineseInput.txt

43.36 KB, 下载次数: 307

中文输入

作者: 本站第一萌新 时间: 2020-5-10 09:12
修改pokemart脚本对应的函数，使得商店地址为0时随机生成商品（不会出现重要道具）
本例没有处理重复的问题，有兴趣的可以自行修改程序

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func NewSetItem
push {r4, lr}
ldr r1, =0x02039F60
mov r2, #0
strb r2, [r1, #0xC]
ldr r2, [r1, #8]
ldr r3, =0x0203F000
mov r1, #0
cmp r2, r3
bne CheckIsRandom
mov r1, #0
ClearItemLoop:
lsl r2, r1, #1
add r4, r2, r3
ldrh r2, [r4]
cmp r2, #0
beq CheckIsRandom
mov r2, #0
strh r2, [r4]
add r1, #1
b ClearItemLoop
CheckIsRandom:
cmp r0, #0
bne LoadItemToList
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, #10
ldr r3, =(0x082E7650|1)
bl call_bx
add r4, r0, #1
ldr r1, =0x02039F60
strb r4, [r1, #0xC]
mov r5, #0
GetRandomItemLoop:
cmp r5, r4
bge GetRandomItemLoopEnd
GetAgain:
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, #10
lsl r1, #6 ;0x280 改成你的版本的道具数
ldr r3, =(0x082E7650|1)
bl call_bx
add r0, #1
mov r6, r0
ldr r3, =(0x080D6C68|1)
bl call_bx
cmp r0, #5
beq GetAgain
ldr r1, =0x0203F000
lsl r2, r5, #1
strh r6, [r1, r2]
add r5, #1
b GetRandomItemLoop
GetRandomItemLoopEnd:
mov r0, #0
lsl r2, r5, #1
strh r0, [r1, r2]
mov r0, r1
mov r1, #1
LoadItemToList:
ldr r2, =0x02039F60
str r0, [r2, #8]
cmp r0, #0
bne NewSetItemBack
mov r1, #0
GetCountLoop:
lsl r0, r1, #1
ldrh r0, [r0, r2]
cmp r0, #0
beq GetCountLoopEnd
add r1, #1
b GetCountLoop
GetCountLoopEnd:
strb r1, [r2, #0xC]
NewSetItemBack:
pop {r4, pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x080DFB58
ldr r3, =(NewSetItem|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-13 13:09
简易个体努力查看器
之前做过的东西。这个肯定是不如版主早期那个作品美观的，不过还是发出来做个记录
一样的和初始村蓝胖对话查看效果，如果想自己更改示例脚本也已经给出了

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.macro WindowTemplate, bg, tilemapLeft, tilemapTop, width, height, paletteNum, baseBlock
.align 2
.byte bg
.byte tilemapLeft
.byte tilemapTop
.byte width
.byte height
.byte paletteNum
.halfword baseBlock
.endmacro
.macro BgTemplate, bg, charBaseIndex, mapBaseIndex, screenSize, paletteMode, priority, baseTile
.align 4
.word (bg) | (charBaseIndex << 2) | (mapBaseIndex << 4) | (screenSize << 9) | (paletteMode << 11) | (priority << 12) | (baseTile << 14)
.endmacro
.macro FillBgTilemapBufferRect, bg, tileNum, x, y, width, height, pal
mov r0, width
str r0, [sp]
mov r0, height
str r0, [sp, #4]
mov r0, pal
str r0, [sp, #8]
mov r0, bg
ldr r1, =0x1A2
add r1, (tileNum - 0x1A2)
mov r2, x
mov r3, y
ldr r4, =(0x08002804|1)
bl call_bx2
.endmacro
.org 0x08F80000
.func MainFunc
push {lr}
ldr r0, =(CB2_Main|1)
ldr r3, =(0x08000540|1)
bl call_bx
ldr r3, =(0x08098E54|1)
bl call_bx
pop {pc}
.endfunc
.pool
.func CB2_Main
push {lr}
ldr r1, =0x030022C0
mov r2, #0x87
lsl r2, #3
add r1, r2
mov r0, #0
strb r0, [r1] ;gMain.state
ldr r3, =(0x080AC378|1)
bl call_bx
ldr r3, =(0x08085D34|1)
bl call_bx
ldr r0, =(CB2_ShowIVEV|1)
ldr r3, =(0x08000540|1)
bl call_bx
ldr r1, =0x030022C0
ldr r0, =(0x080861CC|1)
str r0, [r1, #8]
pop {pc}
.func CB2_ShowIVEV
push {r4-r7, lr}
mov r4, r8
push {r4}
add sp, #-12
ldr r1, =0x030022C0
mov r2, #0x87
lsl r2, #3
add r1, r2
ldrb r0, [r1] ;gMain.state
ldr r1, =Switch
lsl r0, #1
ldrh r0, [r0, r1]
add r0, pc
bx r0
SetVBlankCallback:
mov r0, #0
ldr r3, =(0x080006F0|1)
bl call_bx
b AddState
InitBgsAndWindows:
mov r3, #0xC0
ldr r2, =0x06017000
lsl r3, #19
ClearLoop:
mov r1, #0x80
lsl r1, #5
mov r12, r1
add r3, r12
cmp r3, r2
bne ClearLoop
mov r3, sp
add r2, r3, #6
ldr r3, =0x040000D4
str r2, [r3]
mov r2, #0xA0
lsl r2, #19
str r2, [r3, #4]
ldr r2, =0x81000200
str r2, [r3, #8]
mov r0, #0
ldr r3, =(0x080017BC|1)
bl call_bx
mov r0, #0
ldr r1, =sShowEVIVBgTemplates
mov r2, #2
ldr r3, =(0x080017E8|1)
bl call_bx
mov r0, #0
mov r1, #0
mov r2, #0
ldr r3, =(0x08001D04|1)
bl call_bx
mov r0, #0
mov r1, #0
mov r2, #0
ldr r3, =(0x08001E7C|1)
mov r0, #1
mov r1, #0
mov r2, #0
ldr r3, =(0x08001D04|1)
bl call_bx
mov r0, #1
mov r1, #0
mov r2, #0
ldr r3, =(0x08001E7C|1)
bl call_bx
ldr r0, =sShowEVIVWinTemplates
ldr r3, =(0x080031C0|1)
bl call_bx
ldr r3, =(0x080045B0|1)
bl call_bx
mov r0, #0
mov r1, #12
lsl r1, #10
add r1, #0x40
ldr r3, =(0x080010B4|1)
bl call_bx
mov r0, #0
ldr r3, =(0x08001B30|1)
bl call_bx
mov r0, #1
ldr r3, =(0x08001B30|1)
bl call_bx
b AddState
ResetData:
ldr r3, =(0x080A1A74|1)
bl call_bx
ldr r3, =(0x080B9FB8|1)
bl call_bx
ldr r3, =(0x080A8F50|1)
bl call_bx
ldr r3, =(0x08006974|1)
bl call_bx
b AddState
LoadBoxTiles:
ldr r0, =0x03005D90
ldr r0, [r0]
ldrb r0, [r0, #0x14]
lsr r0, #3
ldr r3, =(0x08098758|1)
bl call_bx
ldr r1, [r0]
mov r2, #0x90
lsl r2, #1
ldr r3, =0x1A2
mov r0, #1
ldr r4, =(0x08001944|1)
bl call_bx2
b AddState
LoadWindowPalette:
ldr r0, =0x0855C6A0
mov r1, #0
mov r2, #2
ldr r3, =(0x080A1938|1)
bl call_bx
ldr r0, =0x03005D90
ldr r0, [r0]
ldrb r0, [r0, #0x14]
lsr r0, #3
ldr r3, =(0x08098758|1)
bl call_bx
ldr r0, [r0, #4]
mov r1, #0x70
mov r2, #0x20
ldr r3, =(0x080A1938|1)
bl call_bx
b AddState
LoadTextPalette:
ldr r0, =0x0855C604
mov r1, #0x10
mov r2, #0x20
ldr r3, =(0x080A1938|1)
bl call_bx
b AddState
DrawAndPutControl:
mov r0, #1
ldr r3, =(0x0800378C|1)
bl call_bx
bl DrawTextControl
b AddState
WaitState:
b AddState
DrawAndPutMonIVEV:
mov r0, #0
ldr r3, =(0x0800378C|1)
bl call_bx
mov r0, #0
bl DrawMonIVEV
b AddState
FillBgTilemapBufferRects:
bl FillBgTilemap
b AddState
CreateSpritesAndTask:
ldr r0, =(Task_ShowIVEVFadeIn|1)
ldr r3, =(0x080A8FB0|1)
bl call_bx
mov r5, r0
ldr r2, =0x03005E00
mov r1, #40
mul r0, r1
add r2, r0
mov r0, #1
strh r0, [r2, #8] ;tMonId
ldr r0, =0x020244E9
ldrb r6, [r0]
ldr r0, =0x020244EC
mov r8, r0
mov r7, #0
CreateSpritesLoop:
cmp r7, r6
bge CreateSpritesLoopEnd
mov r0, r8
mov r1, #100
mul r1, r7
add r0, r1
mov r1, #0
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
str r0, [sp, #4]
mov r0, #1
str r0, [sp, #8]
str r0, [sp]
mov r0, r8
mov r1, #100
mul r1, r7
add r0, r1
mov r1, #0xB
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
mov r4, r0
ldr r3, =(0x080D2F68|1)
bl call_bx
mov r0, r4
ldr r2, =PoiX
ldrb r2, [r2, r7]
ldr r1, =(0x08007428|1)
mov r3, #0x10
ldr r4, =(0x080D2CC4|1)
bl call_bx2
ldr r1, =0x02020630
mov r2, #0x44
mul r2, r0
add r1, r2
ldrh r2, [r1, #4]
ldr r3, =0xF3FF
and r2, r3
strh r2, [r1, #4]
mov r1, r5
ldr r3, =0x03005E00
mov r2, #40
mul r1, r2
add r3, r1
add r3, #9
strb r0, [r3, r7]
add r7, #1
b CreateSpritesLoop
CreateSpritesLoopEnd:
ldrb r0, [r3]
ldr r1, =0x02020630
mov r2, #0x44
mul r2, r0
add r1, r2
ldr r0, =(0x080D3014|1)
str r0, [r1, #0x1C]
b AddState
FadeAndChangeCallBack:
mov r0, #0
str r0, [sp]
neg r0, r0
mov r1, #0
mov r2, #0x10
mov r3, #0
ldr r4, =(0x080A1AD4|1)
bl call_bx2
ldr r0, =(0x080BA4C8|1)
ldr r3, =(0x080006F0|1)
bl call_bx
ldr r0, =(0x080BA4B0|1)
ldr r3, =(0x08000540|1)
bl call_bx
AddState:
ldr r1, =0x030022C0
mov r0, #0x87
lsl r0, #3
add r1, r0
ldrb r0, [r1]
add r0, #1
strb r0, [r1]
add sp, #12
pop {r4}
mov r8, r4
pop {r4-r7, pc}
.endfunc
.pool
.func DrawTextControl
push {r4, lr}
add sp, #-12
mov r0, #1
mov r1, #17
ldr r3, =(0x08003C48|1)
bl call_bx
mov r0, #1
str r0, [sp]
mov r0, #0xFF
str r0, [sp, #4]
mov r0, #0
str r0, [sp, #8]
mov r0, #1
mov r1, #1
ldr r2, =gText_Control
mov r3, #8
ldr r4, =(0x080045D0|1)
bl call_bx2
mov r0, #1
mov r1, #3
ldr r3, =(0x08003658|1)
bl call_bx
add sp, #12
pop {r4, pc}
.endfunc
.pool
.func DrawMonIVEV
push {r4-r6, lr}
add sp, #-16
mov r5, r0
mov r0, #0
mov r1, #17
ldr r3, =(0x08003C48|1)
bl call_bx
mov r0, #32
str r0, [sp]
mov r0, #0xFF
str r0, [sp, #4]
mov r0, #0
str r0, [sp, #8]
mov r0, #0
mov r1, #1
ldr r2, =gText_Frame
mov r3, #8
ldr r4, =(0x080045D0|1)
bl call_bx2
ldr r0, =0x02021FC4
mov r1, #0xFF
strb r1, [r0]
ldr r0, =0x020244EC
mov r1, #100
mul r1, r5
add r5, r1, r0
mov r6, #0
BufferIVLoop:
cmp r6, #6
bge BufferIVLoopEnd
mov r0, r5
mov r1, #0x27
add r1, r6
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
mov r1, r0
add r0, sp, #12
mov r2, #2
mov r3, #3
ldr r4, =(0x08008CC0|1)
bl call_bx2
ldr r0, =0x02021FC4
add r1, sp, #12
ldr r3, =(0x08008BC0|1)
bl call_bx
ldr r0, =0x02021FC4
ldr r1, =gText_Blank
ldr r3, =(0x08008BC0|1)
bl call_bx
add r6, #1
b BufferIVLoop
BufferIVLoopEnd:
ldr r0, =0x02021FC4
ldr r1, =gText_LineFeed
ldr r3, =(0x08008BC0|1)
bl call_bx
mov r6, #0
BufferEVLoop:
cmp r6, #6
bge BufferEVLoopEnd
mov r0, r5
mov r1, #0x1A
add r1, r6
mov r2, #0
ldr r3, =(0x0806A518|1)
bl call_bx
mov r1, r0
add r0, sp, #12
mov r2, #2
mov r3, #3
ldr r4, =(0x08008CC0|1)
bl call_bx2
ldr r0, =0x02021FC4
add r1, sp, #12
ldr r3, =(0x08008BC0|1)
bl call_bx
ldr r0, =0x02021FC4
ldr r1, =gText_Blank
ldr r3, =(0x08008BC0|1)
bl call_bx
add r6, #1
b BufferEVLoop
BufferEVLoopEnd:
mov r0, #48
str r0, [sp]
mov r0, #0xFF
str r0, [sp, #4]
mov r0, #0
str r0, [sp, #8]
mov r0, #0
mov r1, #1
ldr r2, =0x02021FC4
mov r3, #35
ldr r4, =(0x080045D0|1)
bl call_bx2
mov r0, #0
mov r1, #3
ldr r3, =(0x08003658|1)
bl call_bx
add sp, #16
pop {r4-r6, pc}
.endfunc
.pool
.func FillBgTilemap
push {r4, lr}
add sp, #-12
FillBgTilemapBufferRect 1, 0x1A2, 1, 0, 1, 1, 7
FillBgTilemapBufferRect 1, 0x1A3, 2, 0, 26, 1, 7
FillBgTilemapBufferRect 1, 0x1A4, 28, 0, 1, 1, 7
FillBgTilemapBufferRect 1, 0x1A5, 1, 1, 1, 14, 7
FillBgTilemapBufferRect 1, 0x1A7, 28, 1, 1, 14, 7
FillBgTilemapBufferRect 1, 0x1A8, 1, 15, 1, 1, 7
FillBgTilemapBufferRect 1, 0x1A9, 2, 15, 26, 1, 7
FillBgTilemapBufferRect 1, 0x1AA, 28, 15, 1, 1, 7
FillBgTilemapBufferRect 1, 0x1A2, 1, 16, 1, 1, 7
FillBgTilemapBufferRect 1, 0x1A3, 2, 16, 26, 1, 7
FillBgTilemapBufferRect 1, 0x1A4, 28, 16, 1, 1, 7
FillBgTilemapBufferRect 1, 0x1A5, 1, 17, 1, 2, 7
FillBgTilemapBufferRect 1, 0x1A7, 28, 17, 1, 2, 7
FillBgTilemapBufferRect 1, 0x1A8, 1, 19, 1, 1, 7
FillBgTilemapBufferRect 1, 0x1A9, 2, 19, 26, 1, 7
FillBgTilemapBufferRect 1, 0x1AA, 28, 19, 1, 1, 7
mov r0, #1
ldr r3, =(0x0800236C|1)
bl call_bx
add sp, #12
pop {r4, pc}
.endfunc
.pool
.func Task_ShowIVEVFadeIn
ldr r1, =0x02037FD4
ldrb r1, [r1, #7]
mov r2, #0x80
and r1, r2
cmp r1, #0
bne FadeInBack
ldr r1, =0x03005E00
mov r2, #40
mul r0, r2
add r0, r1
ldr r1, =(Task_ShowIVEVProcessInput|1)
str r1, [r0]
FadeInBack:
bx lr
.endfunc
.pool
.func Task_ShowIVEVProcessInput
push {r4-r5, lr}
add sp, #-4
ldr r1, =0x03005E00
mov r2, #40
mul r0, r2
add r5, r0, r1
ldr r0, =0x030022C0
ldrh r0, [r0, #0x2E]
cmp r0, #2
beq B_Pressed
cmp r0, #0x10
beq Right_Pressed
cmp r0, #0x20
beq Left_Pressed
b InputEnd
B_Pressed:
mov r0, #0
str r0, [sp]
neg r0, r0
mov r1, #0
mov r2, #0
mov r3, #0x10
ldr r4, =(0x080A1AD4|1)
bl call_bx2
ldr r0, =(Task_ShowIVEVFadeOut|1)
str r0, [r5]
b InputEnd
Right_Pressed:
ldrb r3, [r5, #8]
mov r1, r5
add r1, #8
ldrb r0, [r3, r1]
ldr r1, =0x02020630
mov r2, #0x44
mul r2, r0
add r1, r2
ldr r2, =(0x08007428|1)
str r2, [r1, #0x1C]
ldr r1, =0x020244E9
ldrb r1, [r1]
cmp r3, r1
bge BackToOne
add r3, #1
b RightNext
BackToOne:
mov r3, #1
RightNext:
strb r3, [r5, #8]
mov r1, r5
add r1, #8
ldrb r0, [r3, r1]
ldr r1, =0x02020630
mov r2, #0x44
mul r2, r0
add r1, r2
ldr r2, =(0x080D3014|1)
str r2, [r1, #0x1C]
sub r0, r3, #1
bl DrawMonIVEV
b InputEnd
Left_Pressed:
ldrb r3, [r5, #8]
mov r1, r5
add r1, #8
ldrb r0, [r3, r1]
ldr r1, =0x02020630
mov r2, #0x44
mul r2, r0
add r1, r2
ldr r2, =(0x08007428|1)
str r2, [r1, #0x1C]
mov r1, #1
cmp r3, r1
ble BackToMax
sub r3, #1
b LeftNext
BackToMax:
ldr r3, =0x020244E9
ldrb r3, [r3]
LeftNext:
strb r3, [r5, #8]
mov r1, r5
add r1, #8
ldrb r0, [r3, r1]
ldr r1, =0x02020630
mov r2, #0x44
mul r2, r0
add r1, r2
ldr r2, =(0x080D3014|1)
str r2, [r1, #0x1C]
sub r0, r3, #1
bl DrawMonIVEV
InputEnd:
add sp, #4
pop {r4-r5, pc}
.endfunc
.pool
.func Task_ShowIVEVFadeOut
push {lr}
ldr r1, =0x02037FD4
ldrb r1, [r1, #7]
mov r2, #0x80
and r1, r2
cmp r1, #0
bne FadeOutBack
ldr r3, =(0x080A909C|1)
bl call_bx
ldr r3, =(0x08003604|1)
bl call_bx
ldr r0, =0x030022C0
ldr r0, [r0, #8]
ldr r3, =(0x08000540|1)
bl call_bx
FadeOutBack:
pop {pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.func call_bx2
bx r4
.endfunc
.pool
Switch:
.halfword (SetVBlankCallback - SetVBlankCallback + 1)
.halfword (InitBgsAndWindows - SetVBlankCallback + 1)
.halfword (ResetData - SetVBlankCallback + 1)
.halfword (LoadBoxTiles - SetVBlankCallback + 1)
.halfword (LoadWindowPalette - SetVBlankCallback + 1)
.halfword (LoadTextPalette - SetVBlankCallback + 1)
.halfword (DrawAndPutControl - SetVBlankCallback + 1)
.halfword (WaitState - SetVBlankCallback + 1)
.halfword (DrawAndPutMonIVEV - SetVBlankCallback + 1)
.halfword (FillBgTilemapBufferRects - SetVBlankCallback + 1)
.halfword (CreateSpritesAndTask - SetVBlankCallback + 1)
.halfword (FadeAndChangeCallBack - SetVBlankCallback + 1)
sShowEVIVBgTemplates:
BgTemplate 1, 1, 30, 0, 0, 0, 0
BgTemplate 0, 1, 31, 0, 0, 1, 0
sShowEVIVWinTemplates:
WindowTemplate 1, 2, 1, 26, 14, 1, 2
WindowTemplate 0, 2, 17, 26, 2, 1, 0x16E
WindowTemplate 0xFF, 0, 0, 0, 0, 0, 0
PoiX:
.byte 0x25, 0x45, 0x65, 0x85, 0xA5, 0xC5
gText_Control:
.string 0xF8, 0x08, 0xF8, 0x09, "选择精灵" , 0x00, 0xF8, 0x01, "退出"
gText_Frame:
.string 0xFC, 0x11, 0x1B, "HP", 0xFC, 0x11, 0x0E, "ATT DEF SPE SPA SPD\nIV\nEV"
gText_Blank:
.string " "
gText_LineFeed:
.string "\n"
Script_ShowEVIV:
lock
faceplayer
callasm (MainFunc|1)
waitstate
release
end
.org 0x089C0DFC
.word Script_ShowEVIV
.close

复制代码

作者: 整理控 时间: 2020-5-15 11:30

666

作者: 本站第一萌新 时间: 2020-5-15 22:45

整理控发表于 2020-5-15 11:30
666

谬赞了，这些都是入门级的东西。主要是考虑到论坛和编程有关的东西要不是过于基础要不是过于复杂才发这个帖子的。（虽然说现在有了老外的工程用ASM确实没多大意义了:(）

作者: 本站第一萌新 时间: 2020-5-16 09:04
扩充等级上限到150级（至于为什么不是200级或者更上是因为第二种经验类型的计算公式不支持高于160级，我也懒得自己去修改了。不过即使是只有150级也可能会有bug，如果发现的话请自行改写计算公式）

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.macro EXP_MEDIUM_FAST, level
.word level * level * level
.endmacro
.macro EXP_ERRATIC, level
.word (level <= 50) ? ((100 - level) * level * level * level / 50) : (level <= 68) ? ((150 - level) * level * level * level / 100) : (level <= 98) ? (((1911 - 10 * level) / 3) * level * level * level / 500) : ((160 - level) * level * level * level / 100)
.endmacro
.macro EXP_FLUCTUATING, level
.word (level <= 15) ? (((level + 1) / 3 + 24) * level * level * level / 50) : (level <= 36) ? ((level + 14) * level * level * level / 50) : (((level / 2) + 32) * level * level * level / 50)
.endmacro
.macro EXP_MEDIUM_SLOW, level
.word (6 * level * level * level) / 5 - (15 * level * level) + (100 * level) - 140
.endmacro
.macro EXP_FAST, level
.word 4 * (level * level * level) / 5
.endmacro
.macro EXP_SLOW, level
.word 5 * (level * level * level) / 4
.endmacro
.org 0x08F80000
.align 4
NewExpTable:
.incbin "test.gba", 0x31F72C, 0x194
EXP_MEDIUM_FAST 101
EXP_MEDIUM_FAST 102
EXP_MEDIUM_FAST 103
EXP_MEDIUM_FAST 104
EXP_MEDIUM_FAST 105
EXP_MEDIUM_FAST 106
EXP_MEDIUM_FAST 107
EXP_MEDIUM_FAST 108
EXP_MEDIUM_FAST 109
EXP_MEDIUM_FAST 110
EXP_MEDIUM_FAST 111
EXP_MEDIUM_FAST 112
EXP_MEDIUM_FAST 113
EXP_MEDIUM_FAST 114
EXP_MEDIUM_FAST 115
EXP_MEDIUM_FAST 116
EXP_MEDIUM_FAST 117
EXP_MEDIUM_FAST 118
EXP_MEDIUM_FAST 119
EXP_MEDIUM_FAST 120
EXP_MEDIUM_FAST 121
EXP_MEDIUM_FAST 122
EXP_MEDIUM_FAST 123
EXP_MEDIUM_FAST 124
EXP_MEDIUM_FAST 125
EXP_MEDIUM_FAST 126
EXP_MEDIUM_FAST 127
EXP_MEDIUM_FAST 128
EXP_MEDIUM_FAST 129
EXP_MEDIUM_FAST 130
EXP_MEDIUM_FAST 131
EXP_MEDIUM_FAST 132
EXP_MEDIUM_FAST 133
EXP_MEDIUM_FAST 134
EXP_MEDIUM_FAST 135
EXP_MEDIUM_FAST 136
EXP_MEDIUM_FAST 137
EXP_MEDIUM_FAST 138
EXP_MEDIUM_FAST 139
EXP_MEDIUM_FAST 140
EXP_MEDIUM_FAST 141
EXP_MEDIUM_FAST 142
EXP_MEDIUM_FAST 143
EXP_MEDIUM_FAST 144
EXP_MEDIUM_FAST 145
EXP_MEDIUM_FAST 146
EXP_MEDIUM_FAST 147
EXP_MEDIUM_FAST 148
EXP_MEDIUM_FAST 149
EXP_MEDIUM_FAST 150
.incbin "test.gba", 0x31F8C0, 0x194
EXP_ERRATIC 101
EXP_ERRATIC 102
EXP_ERRATIC 103
EXP_ERRATIC 104
EXP_ERRATIC 105
EXP_ERRATIC 106
EXP_ERRATIC 107
EXP_ERRATIC 108
EXP_ERRATIC 109
EXP_ERRATIC 110
EXP_ERRATIC 111
EXP_ERRATIC 112
EXP_ERRATIC 113
EXP_ERRATIC 114
EXP_ERRATIC 115
EXP_ERRATIC 116
EXP_ERRATIC 117
EXP_ERRATIC 118
EXP_ERRATIC 119
EXP_ERRATIC 120
EXP_ERRATIC 121
EXP_ERRATIC 122
EXP_ERRATIC 123
EXP_ERRATIC 124
EXP_ERRATIC 125
EXP_ERRATIC 126
EXP_ERRATIC 127
EXP_ERRATIC 128
EXP_ERRATIC 129
EXP_ERRATIC 130
EXP_ERRATIC 131
EXP_ERRATIC 132
EXP_ERRATIC 133
EXP_ERRATIC 134
EXP_ERRATIC 135
EXP_ERRATIC 136
EXP_ERRATIC 137
EXP_ERRATIC 138
EXP_ERRATIC 139
EXP_ERRATIC 140
EXP_ERRATIC 141
EXP_ERRATIC 142
EXP_ERRATIC 143
EXP_ERRATIC 144
EXP_ERRATIC 145
EXP_ERRATIC 146
EXP_ERRATIC 147
EXP_ERRATIC 148
EXP_ERRATIC 149
EXP_ERRATIC 150
.incbin "test.gba", 0x31FA54, 0x194
EXP_FLUCTUATING 101
EXP_FLUCTUATING 102
EXP_FLUCTUATING 103
EXP_FLUCTUATING 104
EXP_FLUCTUATING 105
EXP_FLUCTUATING 106
EXP_FLUCTUATING 107
EXP_FLUCTUATING 108
EXP_FLUCTUATING 109
EXP_FLUCTUATING 110
EXP_FLUCTUATING 111
EXP_FLUCTUATING 112
EXP_FLUCTUATING 113
EXP_FLUCTUATING 114
EXP_FLUCTUATING 115
EXP_FLUCTUATING 116
EXP_FLUCTUATING 117
EXP_FLUCTUATING 118
EXP_FLUCTUATING 119
EXP_FLUCTUATING 120
EXP_FLUCTUATING 121
EXP_FLUCTUATING 122
EXP_FLUCTUATING 123
EXP_FLUCTUATING 124
EXP_FLUCTUATING 125
EXP_FLUCTUATING 126
EXP_FLUCTUATING 127
EXP_FLUCTUATING 128
EXP_FLUCTUATING 129
EXP_FLUCTUATING 130
EXP_FLUCTUATING 131
EXP_FLUCTUATING 132
EXP_FLUCTUATING 133
EXP_FLUCTUATING 134
EXP_FLUCTUATING 135
EXP_FLUCTUATING 136
EXP_FLUCTUATING 137
EXP_FLUCTUATING 138
EXP_FLUCTUATING 139
EXP_FLUCTUATING 140
EXP_FLUCTUATING 141
EXP_FLUCTUATING 142
EXP_FLUCTUATING 143
EXP_FLUCTUATING 144
EXP_FLUCTUATING 145
EXP_FLUCTUATING 146
EXP_FLUCTUATING 147
EXP_FLUCTUATING 148
EXP_FLUCTUATING 149
EXP_FLUCTUATING 150
.incbin "test.gba", 0x31FBE8, 0x194
EXP_MEDIUM_SLOW 101
EXP_MEDIUM_SLOW 102
EXP_MEDIUM_SLOW 103
EXP_MEDIUM_SLOW 104
EXP_MEDIUM_SLOW 105
EXP_MEDIUM_SLOW 106
EXP_MEDIUM_SLOW 107
EXP_MEDIUM_SLOW 108
EXP_MEDIUM_SLOW 109
EXP_MEDIUM_SLOW 110
EXP_MEDIUM_SLOW 111
EXP_MEDIUM_SLOW 112
EXP_MEDIUM_SLOW 113
EXP_MEDIUM_SLOW 114
EXP_MEDIUM_SLOW 115
EXP_MEDIUM_SLOW 116
EXP_MEDIUM_SLOW 117
EXP_MEDIUM_SLOW 118
EXP_MEDIUM_SLOW 119
EXP_MEDIUM_SLOW 120
EXP_MEDIUM_SLOW 121
EXP_MEDIUM_SLOW 122
EXP_MEDIUM_SLOW 123
EXP_MEDIUM_SLOW 124
EXP_MEDIUM_SLOW 125
EXP_MEDIUM_SLOW 126
EXP_MEDIUM_SLOW 127
EXP_MEDIUM_SLOW 128
EXP_MEDIUM_SLOW 129
EXP_MEDIUM_SLOW 130
EXP_MEDIUM_SLOW 131
EXP_MEDIUM_SLOW 132
EXP_MEDIUM_SLOW 133
EXP_MEDIUM_SLOW 134
EXP_MEDIUM_SLOW 135
EXP_MEDIUM_SLOW 136
EXP_MEDIUM_SLOW 137
EXP_MEDIUM_SLOW 138
EXP_MEDIUM_SLOW 139
EXP_MEDIUM_SLOW 140
EXP_MEDIUM_SLOW 141
EXP_MEDIUM_SLOW 142
EXP_MEDIUM_SLOW 143
EXP_MEDIUM_SLOW 144
EXP_MEDIUM_SLOW 145
EXP_MEDIUM_SLOW 146
EXP_MEDIUM_SLOW 147
EXP_MEDIUM_SLOW 148
EXP_MEDIUM_SLOW 149
EXP_MEDIUM_SLOW 150
.incbin "test.gba", 0x31FD7C, 0x194
EXP_FAST 101
EXP_FAST 102
EXP_FAST 103
EXP_FAST 104
EXP_FAST 105
EXP_FAST 106
EXP_FAST 107
EXP_FAST 108
EXP_FAST 109
EXP_FAST 110
EXP_FAST 111
EXP_FAST 112
EXP_FAST 113
EXP_FAST 114
EXP_FAST 115
EXP_FAST 116
EXP_FAST 117
EXP_FAST 118
EXP_FAST 119
EXP_FAST 120
EXP_FAST 121
EXP_FAST 122
EXP_FAST 123
EXP_FAST 124
EXP_FAST 125
EXP_FAST 126
EXP_FAST 127
EXP_FAST 128
EXP_FAST 129
EXP_FAST 130
EXP_FAST 131
EXP_FAST 132
EXP_FAST 133
EXP_FAST 134
EXP_FAST 135
EXP_FAST 136
EXP_FAST 137
EXP_FAST 138
EXP_FAST 139
EXP_FAST 140
EXP_FAST 141
EXP_FAST 142
EXP_FAST 143
EXP_FAST 144
EXP_FAST 145
EXP_FAST 146
EXP_FAST 147
EXP_FAST 148
EXP_FAST 149
EXP_FAST 150
.incbin "test.gba", 0x31FF10, 0x194
EXP_SLOW 101
EXP_SLOW 102
EXP_SLOW 103
EXP_SLOW 104
EXP_SLOW 105
EXP_SLOW 106
EXP_SLOW 107
EXP_SLOW 108
EXP_SLOW 109
EXP_SLOW 110
EXP_SLOW 111
EXP_SLOW 112
EXP_SLOW 113
EXP_SLOW 114
EXP_SLOW 115
EXP_SLOW 116
EXP_SLOW 117
EXP_SLOW 118
EXP_SLOW 119
EXP_SLOW 120
EXP_SLOW 121
EXP_SLOW 122
EXP_SLOW 123
EXP_SLOW 124
EXP_SLOW 125
EXP_SLOW 126
EXP_SLOW 127
EXP_SLOW 128
EXP_SLOW 129
EXP_SLOW 130
EXP_SLOW 131
EXP_SLOW 132
EXP_SLOW 133
EXP_SLOW 134
EXP_SLOW 135
EXP_SLOW 136
EXP_SLOW 137
EXP_SLOW 138
EXP_SLOW 139
EXP_SLOW 140
EXP_SLOW 141
EXP_SLOW 142
EXP_SLOW 143
EXP_SLOW 144
EXP_SLOW 145
EXP_SLOW 146
EXP_SLOW 147
EXP_SLOW 148
EXP_SLOW 149
EXP_SLOW 150
.incbin "test.gba", 0x31F72C, 0x194 ;不知道有什么用，但原版就是这样的
EXP_MEDIUM_FAST 101
EXP_MEDIUM_FAST 102
EXP_MEDIUM_FAST 103
EXP_MEDIUM_FAST 104
EXP_MEDIUM_FAST 105
EXP_MEDIUM_FAST 106
EXP_MEDIUM_FAST 107
EXP_MEDIUM_FAST 108
EXP_MEDIUM_FAST 109
EXP_MEDIUM_FAST 110
EXP_MEDIUM_FAST 111
EXP_MEDIUM_FAST 112
EXP_MEDIUM_FAST 113
EXP_MEDIUM_FAST 114
EXP_MEDIUM_FAST 115
EXP_MEDIUM_FAST 116
EXP_MEDIUM_FAST 117
EXP_MEDIUM_FAST 118
EXP_MEDIUM_FAST 119
EXP_MEDIUM_FAST 120
EXP_MEDIUM_FAST 121
EXP_MEDIUM_FAST 122
EXP_MEDIUM_FAST 123
EXP_MEDIUM_FAST 124
EXP_MEDIUM_FAST 125
EXP_MEDIUM_FAST 126
EXP_MEDIUM_FAST 127
EXP_MEDIUM_FAST 128
EXP_MEDIUM_FAST 129
EXP_MEDIUM_FAST 130
EXP_MEDIUM_FAST 131
EXP_MEDIUM_FAST 132
EXP_MEDIUM_FAST 133
EXP_MEDIUM_FAST 134
EXP_MEDIUM_FAST 135
EXP_MEDIUM_FAST 136
EXP_MEDIUM_FAST 137
EXP_MEDIUM_FAST 138
EXP_MEDIUM_FAST 139
EXP_MEDIUM_FAST 140
EXP_MEDIUM_FAST 141
EXP_MEDIUM_FAST 142
EXP_MEDIUM_FAST 143
EXP_MEDIUM_FAST 144
EXP_MEDIUM_FAST 145
EXP_MEDIUM_FAST 146
EXP_MEDIUM_FAST 147
EXP_MEDIUM_FAST 148
EXP_MEDIUM_FAST 149
EXP_MEDIUM_FAST 150
.incbin "test.gba", 0x31F72C, 0x194
EXP_MEDIUM_FAST 101
EXP_MEDIUM_FAST 102
EXP_MEDIUM_FAST 103
EXP_MEDIUM_FAST 104
EXP_MEDIUM_FAST 105
EXP_MEDIUM_FAST 106
EXP_MEDIUM_FAST 107
EXP_MEDIUM_FAST 108
EXP_MEDIUM_FAST 109
EXP_MEDIUM_FAST 110
EXP_MEDIUM_FAST 111
EXP_MEDIUM_FAST 112
EXP_MEDIUM_FAST 113
EXP_MEDIUM_FAST 114
EXP_MEDIUM_FAST 115
EXP_MEDIUM_FAST 116
EXP_MEDIUM_FAST 117
EXP_MEDIUM_FAST 118
EXP_MEDIUM_FAST 119
EXP_MEDIUM_FAST 120
EXP_MEDIUM_FAST 121
EXP_MEDIUM_FAST 122
EXP_MEDIUM_FAST 123
EXP_MEDIUM_FAST 124
EXP_MEDIUM_FAST 125
EXP_MEDIUM_FAST 126
EXP_MEDIUM_FAST 127
EXP_MEDIUM_FAST 128
EXP_MEDIUM_FAST 129
EXP_MEDIUM_FAST 130
EXP_MEDIUM_FAST 131
EXP_MEDIUM_FAST 132
EXP_MEDIUM_FAST 133
EXP_MEDIUM_FAST 134
EXP_MEDIUM_FAST 135
EXP_MEDIUM_FAST 136
EXP_MEDIUM_FAST 137
EXP_MEDIUM_FAST 138
EXP_MEDIUM_FAST 139
EXP_MEDIUM_FAST 140
EXP_MEDIUM_FAST 141
EXP_MEDIUM_FAST 142
EXP_MEDIUM_FAST 143
EXP_MEDIUM_FAST 144
EXP_MEDIUM_FAST 145
EXP_MEDIUM_FAST 146
EXP_MEDIUM_FAST 147
EXP_MEDIUM_FAST 148
EXP_MEDIUM_FAST 149
EXP_MEDIUM_FAST 150
.org 0x08067CF0
mov r0, #151
lsl r0, #2
.org 0x08069082
mov r5, #151
lsl r5, #2
.org 0x080690EE
mov r5, #151
lsl r5, #2
.org 0x0806C1A8
mov r0, #151
lsl r0, #2
.org 0x0806DFB2
mov r1, #151
lsl r1, #2
.org 0x0806DFBA
mov r2, #150
lsl r2, #2
.org 0x08059240
mov r1, #151
lsl r1, #2
.org 0x080593A0
mov r0, #151
lsl r0, #2
.org 0x080594A8
mov r0, #151
lsl r0, #2
.org 0x081BB324
mov r1, #151
lsl r1, #2
.org 0x081BB484
mov r0, #151
lsl r0, #2
.org 0x081BB58C
mov r0, #151
lsl r0, #2
.org 0x0807499C
mov r0, #151
lsl r0, #2
.org 0x081A7C70
mov r1, #151
lsl r1, #2
.org 0x081A9D10
mov r0, #151
lsl r0, #2
.org 0x081661CA
mov r0, #151
lsl r0, #2
.org 0x081C22FC
mov r0, #151
lsl r0, #2
.org 0x081C3922
mov r0, #151
lsl r0, #2
.org 0x081D6458
mov r0, #151
lsl r0, #2
.org 0x081C3908
cmp r0, #149
.org 0x081C22E2
cmp r1, #149
.org 0x08069096
cmp r2, #150
.org 0x08069102
cmp r2, #150
.org 0x0806C17C
cmp r0, #150
.org 0x0806DFD8
cmp r0, #150
.org 0x0805C54A
cmp r0, #149
.org 0x081BDD22
cmp r0, #149
.org 0x08074CDE
cmp r0, #149
.org 0x08E103E0 ;如果是绿宝石802，使用这一条
cmp r0, #149
; .org 0x0804A5BE ;如果是原版绿宝石，使用这两条(未经测试，如果发现bug请告知于我)
; cmp r0, #150
;
; .org 0x0804A88E
; cmp r0, #150
.org 0x0806FD20
cmp r0, #150
.org 0x0806FCE4
cmp r5, #149
.org 0x081B743A
cmp r0, #150
.org 0x080592C4
.word NewExpTable
.org 0x080593F0
.word NewExpTable
.org 0x08059500
.word NewExpTable
.org 0x08067DC0
.word NewExpTable
.org 0x080690B8
.word NewExpTable
.org 0x08069124
.word NewExpTable
.org 0x0806C2E4
.word NewExpTable
.org 0x0806DFF0
.word NewExpTable
.org 0x08074A10
.word NewExpTable
.org 0x081661FC
.word NewExpTable
.org 0x081A7CFC
.word NewExpTable
.org 0x081A9D48
.word NewExpTable
.org 0x081BB3A8
.word NewExpTable
.org 0x081BB4D4
.word NewExpTable
.org 0x081BB5E4
.word NewExpTable
.org 0x081C2338
.word NewExpTable
.org 0x081C3940
.word NewExpTable
.org 0x081D6488
.word NewExpTable
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-16 21:39
适用于绿宝石802 3.0版本
没啥东西想整了，做点小修复吧。修复802大师球必定抓捕

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func FixMasterBall
cmp r0, #4
bne Normal
mov r0, #1
neg r0, r0
bx lr
Normal:
ldr r3, =0x080001BC
push {r0-r2, r4-r7, lr}
ldr r2, [r3]
mov r3, #0x1C
ldr r5, =(0x08E14028|1)
bx r5
.endfunc
.pool
.org 0x08E14020
ldr r3, =(FixMasterBall|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-16 21:55
本帖最后由本站第一萌新于 2020-5-16 21:56 编辑

适用于绿宝石802 3.0版本
添加梦特性系统。这是从我之前的工程里挖出来的代码了。现在看来有更好的实现方式（比如究极绿的实现方式就十分巧妙和高效），不过也懒得改了（没错，就是这么懒）。想研究的自己去分析吧

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func PrintAbilityHack
add r1, #0x78
ldr r2, =0x0203CF1C
ldr r2, [r2]
add r2, #0xC
bl CheckIsDreamAbility
cmp r2, #0
bne PrintAbilityHackBack
ldrb r1, [r1]
ldr r3, =(0x0806B694|1)
bl call_bx
PrintAbilityHackBack:
mov r4, r0
ldr r3, =(0x081C2FEE|1)
bx r3
.endfunc
.pool
.func PrintDescriptionHack
ldrh r0, [r0]
add r1, #0x78
ldr r2, =0x0203CF1C
ldr r2, [r2]
add r2, #0xC
bl CheckIsDreamAbility
cmp r2, #0
bne PrintDescriptionHackBack
ldrb r1, [r1]
ldr r3, =(0x0806B694|1)
bl call_bx
PrintDescriptionHackBack:
ldr r3, =(0x081C3042|1)
bx r3
.endfunc
.pool
.func LoadAbilityHack1
bl LoadAbilityHack
ldr r3, =(0x0803AD6C|1)
bx r3
.endfunc
.pool
.func LoadAbilityHack2
bl LoadAbilityHack
ldrb r1, [r6]
ldr r3, =(0x0804C9A0|1)
bx r3
.endfunc
.pool
.func LoadAbilityHack
ldrb r1, [r1, #0x17]
lsr r1, r1, #7
push {r4-r5, lr}
mov r4, r0
mov r5, r1
ldr r0, =0x02024064
ldrb r0, [r0]
ldr r3, =(0x08E1833C|1)
bl call_bx
mov r2, r0
mov r0, r4
bl CheckIsDreamAbility
cmp r2, #0
bne LoadAbilityHackBack
mov r0, r4
mov r1, r5
ldr r3, =(0x0806B694|1)
bl call_bx
LoadAbilityHackBack:
pop {r4-r5, pc}
.endfunc
.pool
.func CheckIsDreamAbility
add r2, #0x13
ldrb r2, [r2]
mov r3, #8
and r2, r3
cmp r2, #0
beq CheckIsDreamAbilityBack
ldr r1, =(0x08F186E0 + 0x1A)
mov r2, #0x1C
mul r0, r2
add r0, r1
ldrb r0, [r0]
CheckIsDreamAbilityBack:
bx lr
.endfunc
.pool
.func RandomToHaveDreamAbility
mov r4, r0
ldr r3, =(0x08069270|1)
bl call_bx
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, #3
ldr r3, =(0x082E7BE0|1)
bl call_bx
cmp r0, #0
bne RandomToHaveDreamAbilityBack
add r4, #0x13
ldrb r0, [r4]
mov r1, #8
orr r0, r1
strb r0, [r4]
RandomToHaveDreamAbilityBack:
add sp, #0x20
pop {r3-r5}
mov r8, r3
ldr r3, =(0x08067E82|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x081C2FE6
ldr r3, =(PrintAbilityHack|1)
bx r3
.pool
.org 0x081C3038
ldr r3, =(PrintDescriptionHack|1)
bx r3
.pool
.org 0x0803AD64
ldr r3, =(LoadAbilityHack1|1)
bx r3
.pool
.org 0x0804C996
ldr r3, =(LoadAbilityHack2|1)
bx r3
.pool
.org 0x08067E78
ldr r3, =(RandomToHaveDreamAbility|1)
bx r3
.pool
.org 0x08F186E0 ;导入梦特性，貌似还会导入几只新精灵（当然是没图的，仅仅是数据而已）。不过影响不大。如果你实在不想让这一现象发生的话，请自行更改0x75B0
.incbin "files/files.bin", 0x320, 0x75B0
.close

复制代码

files这个文件是我当时为了把数据和源码绑在一起创建的一个文件，里面有新精灵图片，梦特数据等等各种乱七八糟的东西。

files.txt

75.17 KB, 下载次数: 158

重命名为.bin

作者: 本站第一萌新 时间: 2020-5-16 22:03
适用于绿宝石802 3.0版本
一样从之前的工程里挖出来的代码，添加睡眠条款和冰冻条款
这个几乎未经测试，如果发现bug请通知于我，我有时间可能会尝试修复

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func SleepClause
push {r0-r2, r4-r7, lr}
mov r4, r0
mov r5, r1
mov r1, #3
bl CheckClause
cmp r0, #0
bne CantGetSleep
mov r1, r5
mov r0, r4
mov r4, #0x58
mul r4, r0
ldr r3, =0x02024084
ldr r2, =(0x08E07BAC|1)
bx r2
CantGetSleep:
mov r0, #3
pop {r1-r7, pc}
.endfunc
.pool
.func FreezeClause
push {r3-r7, lr}
mov r4, r0
mov r5, r1
mov r1, #4
bl CheckClause
cmp r0, #0
bne CantGetFreeze
mov r1, r5
mov r0, r4
mov r3, #0x58
mul r3, r0
ldr r4, =0x02024084
ldr r3, =(0x08E07E04|1)
bx r3
CantGetFreeze:
mov r0, #3
pop {r3-r7, pc}
.endfunc
.pool
.func CheckClause
push {r4-r6,lr}
mov r5, #0
mov r6, r1
ldr r3, =(0x08E0736C|1)
bl call_bx
ldr r4, =0x020244EC
cmp r0, #1
bne CheckClauseLoop
ldr r4, =0x02024744
CheckClauseLoop:
mov r0, r4
mov r1, #100
mul r1, r5
add r0, r1
ldr r3, =(0x081B205C|1)
bl call_bx
cmp r0, r6
beq CheckClauseLoopEnd
add r5, #1
cmp r5, #6
blt CheckClauseLoop
CheckClauseLoopEnd:
mov r0, #0
cmp r5, #6
beq CantGetStatu
mov r0, #1
CantGetStatu:
pop {r4-r6, pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x08E07BA4
ldr r3, =(SleepClause|1)
bx r3
.pool
.org 0x08E07DFC
ldr r3, =(FreezeClause|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-17 10:10
前阵子全随机模式比较火啊，于是我就随便搞了一个。我不清楚那个全随机到底是什么东西，因为我没玩过，不过我搞的这是真正的全随机，不管是草丛里遇到的，NPC给的，甚至是对战训练师的精灵也是随机的。

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func GetRandomPoke
add r6, sp, #0x10
strb r2, [r6]
push {r0, r3}
ldr r3, =(0x0806F5CC|1)
bl call_bx
ldr r1, =0x42D ;改成你版本精灵数减一
ldr r3, =(0x082E7650|1)
bl call_bx
add r1, r0, #1
pop {r0, r3}
add r5, sp
strh r1, [r5]
ldr r5, =(0x08067BD8|1)
bx r5
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.org 0x08067BD0
ldr r6, =(GetRandomPoke|1)
bx r6
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-17 10:44
不遇敌，一样与初始村蓝胖对话查看效果

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func NoEnemies
push {r4-r6, lr}
lsl r0, r0, #0x18
lsr r6, r0, #0x18
ldr r0, =0x4012
ldr r3, =(0x0809D790|1)
bl call_bx
cmp r0, #0
beq CheckNext
mov r0, #0
pop {r4-r6, pc}
CheckNext:
ldr r0, =0x4021
ldr r3, =(0x080B58D4|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
Script_NoEnemies:
lock
faceplayer
checkflag 0x4012
if1 0x0, Script_Open
clearflag 0x4012
msgbox gText_Close, 0x6
release
end
Script_Open:
setflag 0x4012
msgbox gText_Open, 0x6
release
end
gText_Close:
.string "关闭不遇敌！"
gText_Open:
.string "打开不遇敌！"
.org 0x080B58CC
ldr r3, =(NoEnemies|1)
bx r3
.pool
.org 0x089C0DFC
.word Script_NoEnemies
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-23 20:09
本帖最后由本站第一萌新于 2020-5-24 08:19 编辑

久违的更新
最近在贴吧看到个火箭队改版，打败训练师之后可以抢夺的一只精灵。觉得挺有意思就模仿了一个。不过他那个是用的多选框实现的，感觉太low了。我这个使用队伍界面实现。
注意：这个例程只能抢普通训练师的精灵，抢不了带脚本训练师的精灵（我只试验了新手档小遥）。如果想要实现抢这些训练师的精灵请自行去修改。不过我感觉作为一个反派只会欺凌弱小没啥问题（其实就是懒得搞

）

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func InitRobPartyMenu
push {r4, lr}
add sp, #-12
ldr r3, =(0x08076D8C|1)
bl call_bx
ldr r0, =0x020244EC
ldr r1, =0x02024744
mov r2, #150
lsl r2, #2
ldr r3, =(0x0806B408|1)
bl call_bx
mov r0, #0
str r0, [sp]
ldr r1, =(0x081B1370|1)
str r1, [sp, #4]
ldr r1, =(0x080861CC|1)
str r1, [sp, #8]
mov r1, #0
mov r2, #14
mov r3, #0
ldr r4, =(0x081B0038|1)
bl call_bx2
add sp, #12
pop {r4, pc}
.endfunc
.pool
.func CaseRob
mov r0, #5
ldr r3, =(0x080A37A4|1)
bl call_bx
mov r0, r5
bl CreateWinAndFunc
pop {r4-r5, pc}
.endfunc
.pool
.func CreateWinAndFunc
push {lr}
ldr r2, =0x03005E00
mov r1, #40
mul r1, r0
add r1, r2
mov r0, #0xFF
strh r0, [r1, #8]
ldr r0, =(0x081B3730|1)
str r0, [r1]
bl CreateWindow
pop {pc}
.endfunc
.pool
.func CreateWindow
push {lr}
ldr r0, =0x0203CEC4
ldr r0, [r0]
add r0, #13
ldr r3, =(0x081B302C|1)
bl call_bx
ldr r0, =0x020244EC
ldr r1, =0x0203CEC8
ldrb r1, [r1, #9]
mov r2, #14
ldr r3, =(0x081B33B4|1)
bl call_bx
mov r0, #0
ldr r3, =(0x081B31B0|1)
bl call_bx
mov r0, #21
ldr r3, =(0x081B3054|1)
bl call_bx
pop {pc}
.endfunc
.pool
.func CursorCb_Rob
push {r4-r5, lr}
mov r4, r0
ldr r3, =(0x08076DD4|1)
bl call_bx
ldr r0, =0x0203CEC8
ldrb r0, [r0, #9]
ldr r1, =0x02024744
mov r2, #100
mul r0, r2
add r0, r1
mov r5, r0
ldr r3, =(0x0806B414|1)
bl call_bx
mov r0, r5
mov r1, #2
ldr r2, =0x02021CC4
ldr r3, =(0x0806A518|1)
bl call_bx
mov r0, r4
ldr r3, =(0x081B12C0|1)
bl call_bx
pop {r4-r5, pc}
.endfunc
.pool
.func CheckIsRob
mov r1, #21
str r1, [sp]
cmp r2, #14
beq IsRob
ldr r1, =(0x081B36FC|1)
b CheckBack
IsRob:
ldr r1, =(CreateWinAndFunc|1)
CheckBack:
str r1, [sp, #4]
ldr r1, [r3]
ldr r3, =(0x081B38BC|1)
bx r3
.endfunc
.pool
.func CheckCanExit
ldr r0, =0x0203CEC8
ldrb r0, [r0, #11]
cmp r0, #8
beq GotoSub81B1602
cmp r0, #14
beq CantExit
ldr r3, =(0x081B15E0|1)
bx r3
GotoSub81B1602:
ldr r3, =(0x081B1602|1)
bx r3
CantExit:
ldr r3, =(0x081B15FB|1)
bx r3
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
.func call_bx2
bx r4
.endfunc
.pool
.align 4
NewSwitchTable:
.incbin "test.gba", 0x1B144C, 0x2C
.word (CaseRob|1)
.align 4
NewActionTable:
.incbin "test.gba", 0x615D38, 0x38
.word ActionRob
NewListSizeTable:
.incbin "test.gba", 0x615D70, 0x0E
.byte 0x03
.align 4
NewCursorOptions:
.incbin "test.gba", 0x615C08, 0x108
.word gText_Rob
.word (CursorCb_Rob|1)
ActionRob:
.byte 0, 33, 2
Script_EndTrainerBattle:
callasm (InitRobPartyMenu|1)
waitstate
msgbox gText_RobPoke, 6
endtrainerbattle2
releaseall
end
gText_Rob:
.string 0xFC, 0x01, 0x04, "抢夺"
gText_RobPoke:
.string "[文本色_红]抢到了[buffer1]!"
.org 0x08271461
.word Script_EndTrainerBattle
.org 0x0827146C
.word Script_EndTrainerBattle
.org 0x08271477
.word Script_EndTrainerBattle
.org 0x08271482
.word Script_EndTrainerBattle
.org 0x0827148D
.word Script_EndTrainerBattle
.org 0x081B1432
cmp r0, #11
.org 0x081B1448
.word NewSwitchTable
.org 0x081B340C
.word NewListSizeTable
.word NewActionTable
.org 0x081B32F8
.word NewCursorOptions
.org 0x081B37C8
.word NewCursorOptions
.org 0x081B37F8
.word NewCursorOptions
.org 0x081B38B4
ldr r1, =(CheckIsRob|1)
bx r1
.pool
.org 0x081B15D8
ldr r3, =(CheckCanExit|1)
bx r3
.pool
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-24 13:54
本帖最后由本站第一萌新于 2020-5-24 14:09 编辑

看最近老外的不少改版都添加了明雷系统，我就也搞了一个。本质就是定点加行走图加取消草丛遇怪，不过我添加了浮动等级和随机携带道具（定义在精灵数据里的道具）。至于行走图自行添加。我不知道老外是不是这样的，不过想来估计也是大同小异吧

.gba
.thumb
.loadtable "header/CharTable.txt"
.include "header/ArmipsMacros.asm"
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
.org 0x08F80000
.func BrightRay
push {r4, lr}
ldr r3, =(0x0806F5CC|1)
bl call_bx
ldr r2, =0x020375E0
ldrb r1, [r2, #2]
ldrb r4, [r2, #3]
sub r1, r4
add r1, #1
ldr r3, =(0x082E7650|1)
bl call_bx
add r4, r0
ldr r3, =(0x0806F5CC|1)
bl call_bx
mov r1, #1
and r0, r1
lsl r0, #1
add r0, #12
ldr r1, =0x020375E0
ldrh r1, [r1]
ldr r2, =0x08F186E0 ;802 3.0版本不改。原版绿宝石将此处改成0x1BC下的地址
mov r3, #0x1C
mul r3, r1
add r3, r2
ldrh r2, [r0, r3]
mov r0, r1
mov r1, r4
ldr r3, =(0x080F93A0|1)
bl call_bx
ldr r3, =(0x080B08A8|1)
bl call_bx
ldr r3, =(0x08098F30|1)
bl call_bx
pop {r4, pc}
.endfunc
.pool
.func call_bx
bx r3
.endfunc
.pool
Script_BrightRay:
lock
faceplayer
msgbox gText_BrightRay, 6
callasm (BrightRay|1)
waitstate
hidesprite 0x800F
fadescreen 1
fadescreen 0
msgbox gText_PokeEscape, 6
release
return
gText_BrightRay:
.string "...？"
gText_PokeEscape:
.string "精灵消失不见。"
.org 0x080B58CC
mov r0, #0
bx lr
.close

复制代码

示例脚本：
setvar 0x8004 1 //精灵种类，如此处我用的妙蛙种子
setvar 0x8005 0x305 //最低等级和最高等级的拼接，如此处我用的3-5级
call 0xF80080
end

作者: 本站第一萌新 时间: 2020-5-28 12:49
本帖最后由本站第一萌新于 2020-5-30 10:39 编辑

去除原版绿宝石精灵加密和合法性检测

.gba
.thumb
.create "绿宝石.gba",0x8000000
.close
.open "BPEE.gba","绿宝石.gba", 0x8000000
.org 0x0806A236
nop
.org 0x0806A23C
nop
.org 0x0806A25A
nop
.org 0x0806A260
nop
.org 0x0806ADFE
b 0x0806AE1C
.org 0x0806A6DA
b 0x0806A6F2
.org 0x0806A27C
mov r0, #0
nop
nop
.close

复制代码

作者: 本站第一萌新 时间: 2020-5-28 22:08
一个非常简单的例程，调高出闪率

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000
CHANCE equ 0xFF ;修改这里以改变概率，原版为7，最大为0xFF
.org 0x08172F46
cmp r0, CHANCE
.org 0x08067C56
cmp r1, CHANCE
.org 0x0806E76C
cmp r0, CHANCE
.org 0x0806E7E2
cmp r0, CHANCE
.org 0x0806EBE4
cmp r2, CHANCE
.close

复制代码

作者: 皮卡大师 时间: 2020-5-30 14:59
是XSE用的吗

作者: 本站第一萌新 时间: 2020-5-30 22:29

皮卡大师发表于 2020-5-30 14:59
是XSE用的吗

不是。。。
工具我不是标明了吗，armips
如果不懂建议先去学下thumb语法，本站置顶帖内就有基础教程，不过他那个应该用的hackmew的thumb工具而不是armips

作者: 皮卡大师 时间: 2020-6-1 07:58

本站第一萌新发表于 2020-5-30 22:29
不是。。。
工具我不是标明了吗，armips
如果不懂建议先去学下thumb语法，本站置顶帖内就有基础教程， ...

好的，谢谢

作者: 本站第一萌新 时间: 2020-6-1 12:55

皮卡大师发表于 2020-6-1 07:58
好的，谢谢

不谢，加油吧，很久没看到有研究高端技术（虽然这并不算高端而且已经过时了）的国人了

作者: salver06182 时间: 2020-6-18 17:19
您好，这边有个疑问。
我发现代码中很多地方都是先BL再BX，而不是直接使用BLX，这是为什么呢？

作者: 本站第一萌新 时间: 2020-6-24 17:56

salver06182 发表于 2020-6-18 17:19
您好，这边有个疑问。
我发现代码中很多地方都是先BL再BX，而不是直接使用BLX，这是为什么呢？

因为这是thumb模式

作者: 宴愧 时间: 2020-12-16 15:20
你管这叫萌新？我干脆自废脑子算了

作者: 744865306 时间: 2021-2-7 11:29
走一步恢复精灵10点HP那个有bug：会导致训练师卡片背面那些东西显示错误

作者: MASTERPOPY 时间: 2021-6-14 22:58
你咋这么牛呢

作者: 744865306 时间: 2021-7-9 16:40

本站第一萌新发表于 2020-5-8 15:42
使得精灵可以使用对应属性的野外技能（一下想不起名字了，理解就好）如杰尼龟可以使用潜水，鱼跃龙门，冲浪 ...

这个源码并没有你说的那种bug，相反，它使精灵秘传技不显示且无效

作者: 744865306 时间: 2021-7-9 16:43

本站第一萌新发表于 2020-5-10 09:12
修改pokemart脚本对应的函数，使得商店地址为0时随机生成商品（不会出现重要道具）
本例没有处理重复的问 ...

这个代码有着很多的bug，比如说你没有考虑到装饰品的问题，此外，写入代码后，商店地址非0则无商品，原因或许是因为你开局就把地址弄成了一处空RAM？此外，还有着空位道具，以及你所说的重复问题

作者: 744865306 时间: 2021-7-9 16:46

本站第一萌新发表于 2020-5-17 10:10
前阵子全随机模式比较火啊，于是我就随便搞了一个。我不清楚那个全随机到底是什么东西，因为我没玩过，不过 ...

我将你的这一代码进行了改进，如下：

.gba
.thumb
.create "3.0.gba",0x8000000
.close
.open "test.gba","3.0.gba", 0x8000000

.org 0x08F80000
.func GetRandomPoke
      add r6,sp,#0x10
      strb r2,[r6]
      push {r0,r3}
randagain:
      ldr r3,=(0x0806F5CC|1)
      bl call_bx
      ldr r1,=0x42C
      ldr r3,=(0x082E7650|1)
      bl call_bx
      add r1,r0,#0x1
      mov r2,#0xFC
      cmp r1,r2
      bge cmpagain
end:
      pop {r0,r3}
      add r5,sp
      strh r1,[r5]
      ldr r5,=(0x08067BD8|1)
      bx r5
.endfunc
.pool

.func cmpagain
      mov r2,#0x17
      mov r3,#0xC
      mul r2,r3
      cmp r1,r2
      ble randagain
      b end
.endfunc
.pool

.func call_bx
      bx r3
.endfunc
.pool

.org 0x08067BD0
      ldr r6,=(GetRandomPoke|1)
      bx r6
.pool

.close

作者: 本站第一萌新 时间: 2021-7-19 22:12

744865306 发表于 2021-7-9 16:40
这个源码并没有你说的那种bug，相反，它使精灵秘传技不显示且无效

我以前测试的时候没有任何问题啊。这个可能是因为我以绿宝石802为蓝本吧。我记得802好像重定向了某些地址，和绿宝石有所不同

作者: 本站第一萌新 时间: 2021-7-19 22:15

744865306 发表于 2021-7-9 16:43
这个代码有着很多的bug，比如说你没有考虑到装饰品的问题，此外，写入代码后，商店地址非0则无商品，原因 ...

这个确实包括下面的随机对战因为我其实再很久之前就开始主要使用C语言开始改版了，我已经用C语言写了相对更加完善的商店系统，随机对战系统以及支持存储常用字的中文输入系统，懒得用ASM进行这么复杂的操作了。

作者: 本站第一萌新 时间: 2021-7-19 22:21

744865306 发表于 2021-7-9 16:46
我将你的这一代码进行了改进，如下：

.gba

很厉害。但是我那个代码的重点实现在自定义的精灵库里抽取特定配置的精灵

作者: 本站第一萌新 时间: 2021-7-19 22:26

744865306 发表于 2021-7-9 16:46
我将你的这一代码进行了改进，如下：

.gba

退坑好几个月了，很多东西都忘了，如果有讲错的敬请见谅

作者: 本站第一萌新 时间: 2021-7-19 22:31

744865306 发表于 2021-2-7 11:29
走一步恢复精灵10点HP那个有bug：会导致训练师卡片背面那些东西显示错误

这个不知道是哪来的bug了。插入的那个函数是我唯一找到的走一步运行一次的函数了。（所以说还是用反编译工程方便，可以避免这些奇奇怪怪的bug。）

作者: qq644348224 时间: 2021-7-23 00:53
学习了感谢分享千万别删帖对改版作者帮助蛮大的

作者: 744865306 时间: 2021-7-23 07:56

本站第一萌新发表于 2021-7-19 22:21
很厉害。但是我那个代码的重点实现在自定义的精灵库里抽取特定配置的精灵

唔……是的，不过空位精灵确实去除了更好，话说我感觉我之前发的那个还可以改进，或许可以靠lsl直接1个寄存器搞出那边mul出的东西

作者: 744865306 时间: 2021-7-23 07:59

本站第一萌新发表于 2021-7-19 22:15
这个确实包括下面的随机对战因为我其实再很久之前就开始主要使用C语言开始改版了，我已经用C语言写了相 ...

这样嘛……商店和中文输入能给我看下嘛？我之前尝试用ASM改进你的这两个源码，但都以失败告终

作者: 本站第一萌新 时间: 2021-7-23 09:04

qq644348224 发表于 2021-7-23 00:53
学习了感谢分享千万别删帖对改版作者帮助蛮大的

不会删的

作者: 本站第一萌新 时间: 2021-7-23 09:31
本帖最后由本站第一萌新于 2021-7-23 10:02 编辑

744865306 发表于 2021-7-23 07:59
这样嘛……商店和中文输入能给我看下嘛？我之前尝试用ASM改进你的这两个源码，但都以失败告终

商店的源码当时是写着玩的，我找不到工程了2333 不过其实我也没有考虑装饰品的事情，只是移除了空道具和重复物品。可以给你几个思路解决这两个问题：
移除空道具有两种思路：第一种是通过检测id，第二种是通过对比道具的首个字符是否为0xC8（即？）。我个人推荐第二种方法。因为如果使用第一种方法，若你日后将空道具替换成可用道具，就必须重新修改程序，显然十分麻烦，而第二种方法就能很好的避免这个问题。
移除重复物品的话，你只要在每次添加新物品的时候都对比一下之前有没有出现过这个物品，如果有就重新生成随机物品就行了。
中文输入是帮一个坛友写的，和其他的一些源码混杂在一个工程。而且我当时由于忙于备考所以采用了效率极低的方法避免杂字，这个还是有待改进。你想要的话可以把无关代码移除然后发给你，不过不一定能保证编译通过（毕竟一年没碰改版了）
中文输入下载链接已放入对应楼层至于为什么我不用github，因为密码忘了

作者: 744865306 时间: 2021-7-28 14:13
我可以将"恐惧"特性的发到口袋改版资源吧嘛？会注明是你的源码的

作者: 本站第一萌新 时间: 2021-7-28 14:37

744865306 发表于 2021-7-28 14:13
我可以将"恐惧"特性的发到口袋改版资源吧嘛？会注明是你的源码的

好（十个字数限制）

作者: 744865306 时间: 2021-8-2 15:46
怎么用ASM判定flag

作者: 本站第一萌新 时间: 2021-8-2 18:30

744865306 发表于 2021-8-2 15:46
怎么用ASM判定flag

0809d790 r0 =flagid

作者: 744865306 时间: 2021-8-2 20:08

本站第一萌新发表于 2021-8-2 18:30
0809d790 r0 =flagid

好的，谢谢大佬

作者: 744865306 时间: 2021-8-3 13:16

本站第一萌新发表于 2021-8-2 18:30
0809d790 r0 =flagid

怎么用ASM输出一段话呢？

作者: 本站第一萌新 时间: 2021-8-3 14:26

744865306 发表于 2021-8-3 13:16
怎么用ASM输出一段话呢？

较复杂建议用脚本

作者: 744865306 时间: 2021-8-3 14:38

本站第一萌新发表于 2021-8-3 14:26
较复杂建议用脚本

啊这，大佬就告诉我吧

作者: 本站第一萌新 时间: 2021-8-3 16:21

744865306 发表于 2021-8-3 14:38
啊这，大佬就告诉我吧

你非要用的话建议你去看看位于0809abd4的函数ScrCmd_message，这个是脚本里说话的函数
但是事实上直接用脚本能起到同样的效果而且简单太多了，08098ef8这个函数接受脚本地址作为参数，可以用来设置脚本

作者: 林书竹 时间: 2021-12-24 12:57
大佬，工具在哪下载，置顶的工具库没找到

作者: EMMET 时间: 2022-7-2 19:27
谢谢，刚开始学习ASM，有实例可以参考学习真是太好了

欢迎光临 Pokemon Center | 口袋中心以口袋妖怪为主题并带有其他动漫游戏的讨论 (http://162.218.49.243/)

Pokemon Center | 口袋中心 以口袋妖怪为主题并带有其他动漫游戏的讨论

Pokemon Center | 口袋中心以口袋妖怪为主题并带有其他动漫游戏的讨论