定点进化

jiangzhengwenjz

（可谓是考前无聊时最后的消遣了）
老样子只有火红，预览：

在空位YYYYYY写入：

1. .thumb
   
2. push {r4, lr}
   
3. ldr r0, =0x300537C
   
4. ldr r1, =0x80568E1
   
5. str r1, [r0]
   
6. ldr r0, =0x020370C0
   
7. ldrh r1, [r0, #2]
   
8. mov r2, #1
   
9. ldrh r3, [r0, #0x10]
   
10. ldr r4, =0x80cdda9
    
11. bl bx_r4
    
12. pop {r4, pc}
    
13. bx_r4: bx r4

复制代码

在空位ZZZZZZ写入：

1. .thumb
   
2. push {r4, lr}
   
3. mov r4, #0
   
4. loop:
   
5. ldr r0, =0x02024284
   
6. mov r1, #0x64
   
7. mul r1, r4
   
8. add r0, r0, r1
   
9. mov r1, #0xb
   
10. ldr r2, =0x803FBE9
    
11. bl bx_r2
    
12. ldr r1, =0x20370C0
    
13. ldrh r2, [r1]
    
14. cmp r0, r2
    
15. beq have_pre
    
16. add r4, #1
    
17. cmp r4, #6
    
18. bne loop
    
19. 
    
20. no_pokemon:
    
21. mov r4, #0xFF
    
22. b back
    
23. 
    
24. increment:
    
25. add r4, #1
    
26. cmp r4, #6
    
27. beq no_pokemon
    
28. b loop
    
29. 
    
30. have_pre:
    
31. ldr r0, =0x2024284
    
32. mov r1, #0x64
    
33. mul r1, r4
    
34. add r0, r0, r1
    
35. mov r1, #0x2d
    
36. ldr r2, =0x803FBE9
    
37. bl bx_r2
    
38. ldr r1, =0x20370C0
    
39. cmp r0, #1
    
40. beq increment
    
41. 
    
42. back:
    
43. strh r4, [r1, #0x10]
    
44. pop {r4, pc}
    
45. bx_r2:
    
46. bx r2

复制代码

在脚本中使用：

1. #org @start
   
2. lock
   
3. faceplayer
   
4. setvar 0x8004 0x4 //进化前精灵种族编号（此处小火龙）
   
5. setvar 0x8005 0x2 //进化后精灵种族编号（此处妙蛙草）
   
6. callasm 0x8ZZZZZZ+1
   
7. compare 0x800D 0xFF //检查0x8004中精灵是否在队伍中
   
8. if1 1 @no_that_pokemon
   
9. callasm 0x8YYYYYY+1 //未通过判定，执行进化
   
10. waitstate
    
11. //setweather 3 //只是例子，你可以在waitstate后继续执行脚本
    
12. //doweather
    
13. release
    
14. end
    
15. 
    
16. //---------------
    
17. #org @no_that_pokemon //通过判定，即无该精灵或该精灵处于蛋状态
    
18. msgbox @message_string 6 //"You don't have that pokemon. "
    
19. release
    
20. end
    
21. 
    
22. 
    
23. //---------
    
24. // Strings
    
25. //---------
    
26. #org @message_string
    
27. = You don't have that pokemon.

复制代码

当然，这只会进化第一只该种族精灵，不过个人认为比较合理。若要多精灵就自己改下吧

Against

膜拜！！！！！

Ralf·X

L进化成触手蛙的节奏=。=

非飞

这进化好亏

q79101

如果版主大人能补一个绿宝石的就最好了……！！