修复昼夜携带道具进化方式

jiangzhengwenjz

由于老外的源码有些问题 所以应jirachiwish的要求重新写了一个
若使用扩充进化方式为8个的表格请自行修改.set中的内容，并修改源码3中#40为#64
以及修改源码1和源码2中add r1, r6, r7为lsl r1, r6, #1
昼携带道具进化：

1. .thumb
   
2. #For Firered, include it in the evolution method table
   
3. 
   
4. .set Time, 0x3005542
   
5. .set EvoExit, 0x8043111
   
6. .set Evolve, 0x804310D
   
7. .set Decrypter, 0x803FBE9
   
8. 
   
9. ldr r0, =Time
   
10. ldrb r0, [r0]
    
11. cmp r0, #0x15
    
12. bge exit
    
13. cmp r0, #6
    
14. blt exit
    
15. 
    
16. DecryptItem:
    
17. add r1, r6, r7
    
18. lsl r1, r1, #0x3
    
19. add r1, r2, r1
    
20. add r1, r1, r3
    
21. push {r1-r4}
    
22. ldrh r4, [r1, #0x2]
    
23. mov r0, r8
    
24. mov r1, #0xc
    
25. ldr r3, =Decrypter
    
26. bl bx_r3
    
27. cmp r0, r4
    
28. bne exit2
    
29. pop {r1-r4}
    
30. ldr r0, =Evolve
    
31. bx r0
    
32. 
    
33. exit2:
    
34. pop {r1-r4}
    
35. 
    
36. exit:
    
37. ldr r0, =EvoExit
    
38. bx r0
    
39. 
    
40. bx_r3:
    
41. bx r3
    
42. .ltorg

复制代码

夜携带道具进化：

1. .thumb
   
2. #For Firered, include it in the evolution method table
   
3. 
   
4. .set Time, 0x3005542
   
5. .set EvoExit, 0x8043111
   
6. .set Evolve, 0x804310D
   
7. .set Decrypter, 0x803FBE9
   
8. 
   
9. ldr r0, =Time
   
10. ldrb r0, [r0]
    
11. cmp r0, #0x15
    
12. bge DecryptItem
    
13. cmp r0, #6
    
14. bge exit
    
15. 
    
16. DecryptItem:
    
17. add r1, r6, r7
    
18. lsl r1, r1, #0x3
    
19. add r1, r2, r1
    
20. add r1, r1, r3
    
21. push {r1-r4}
    
22. ldrh r4, [r1, #0x2]
    
23. mov r0, r8
    
24. mov r1, #0xc
    
25. ldr r3, =Decrypter
    
26. bl bx_r3
    
27. cmp r0, r4
    
28. bne exit2
    
29. pop {r1-r4}
    
30. ldr r0, =Evolve
    
31. bx r0
    
32. 
    
33. exit2:
    
34. pop {r1-r4}
    
35. 
    
36. exit:
    
37. ldr r0, =EvoExit
    
38. bx r0
    
39. 
    
40. bx_r3:
    
41. bx r3
    
42. .ltorg

复制代码

删除道具修复：

1. #Firered: put 00 48 00 47 XX+1 XX XX 08 at 0x80CED68
   
2. 
   
3. .set IndexOfDayHeldItem, 0x10
   
4. .set IndexOfNightHeldItem, 0x11
   
5. 
   
6. .set Encrypt, 0x804037D
   
7. .set Decrypt, 0x803FBE9
   
8. .set BackAddr, 0x80CED71
   
9. .set EvoTable, 0x8259754
   
10. 
    
11. .thumb
    
12. mov r0, r9
    
13. mov r1, #0xb
    
14. ldr r3, =Decrypt
    
15. bl bx_r3
    
16. ldr r1, =EvoTable
    
17. mov r2, #40
    
18. mul r0, r2
    
19. add r0, r1, r0
    
20. ldrh r0, [r0]
    
21. cmp r0, #IndexOfDayHeldItem
    
22. beq ItemReduction
    
23. cmp r0, #IndexOfNightHeldItem
    
24. bne back
    
25. 
    
26. ItemReduction:
    
27. mov r0, r9
    
28. mov r1, #0xc
    
29. mov r2, #0
    
30. str r2, [sp]
    
31. mov r2, sp
    
32. ldr r3, =Encrypt
    
33. bl bx_r3
    
34. 
    
35. back:
    
36. mov r0, r9
    
37. mov r1, #0xB
    
38. mov r2, r4
    
39. add r2, #0xC
    
40. ldr r3, =Encrypt
    
41. bl bx_r3
    
42. mov r0, r9
    
43. ldr r3, =BackAddr
    
44. 
    
45. bx_r3:
    
46. bx r3
    
47. .ltorg

复制代码

Deicde丶笑沧海

这是火红？

jiangzhengwenjz

Deicde丶笑沧海 发表于 2016-7-30 13:12
这是火红？

火红，移植到绿宝石需要改.set的各种地址 以及跳出的地址

Deicde丶笑沧海

jiangzhengwenjz 发表于 2016-7-30 13:28
火红，移植到绿宝石需要改.set的各种地址 以及跳出的地址

懒得看了