挂机自动买药 防止挂机死亡

很久以前开发的一个功能.
挂机自动买药 防止挂机死亡
QF

1. ;------------------------------------挂机
   
2. [@StartAutoOnline]
   
3. #IF
   
4. #act
   
5. 
   
6. #IF
   
7. EQUAL S$自动挂机
   
8. #ACT
   
9. GOTO @挂机保护
   
10. #ElseAct
    
11. SetOnTimer 254 G39
    
12. StartAutoPlayGame
    
13. PLAYEFFECT 11 95 20 0 200 1 -70 -110 0
    
14. SENDMSG 6 {[挂机]：已经开始挂机自动打怪，使用快捷键|255:0:1}{“CTRL+ALT+X”|254:0:1}{停止挂机|249:0:1}
    
15. 
    
16. 
    
17. [@挂机保护]
    
18. <自动挂机保护系统/FCOLOR=251>\
    
19. 　\
    
20. <为防止您在挂机途中因为各种情况扑街,我服特别推出自动挂机买药功能/FCOLOR=251>\
    
21. <请在内挂中设置好保护,背包内没有药品以后将会自动购买药品/FCOLOR=180>\
    
22. <目前价格：/FCOLOR=251><超级金创药 超级魔法药/FCOLOR=242>\
    
23. <每捆：/FCOLOR=251>{<$STR(G38)>金币/FCOLOR=70}\
    
24. <请确定您需要购买的数量/FCOLOR=70>背包低于<$STR(N$自动挂机)>个红或蓝包自动购买<设置数量/@@InPutInteger2(请输入0-10的数字)>\
    
25. 　\
    
26. 　<为防止打扰,您需要小退后才能再次看见本界面/FCOLOR=251>　　　<开始挂机/@确认挂机信息>
    
27. 
    
28. 
    
29. [@InPutInteger2]
    
30. #IF
    
31. Equal N2 0
    
32. #ACT
    
33. SENDMSG 6 您取消了自动买药功能
    
34. MOV N$自动挂机 <$STR(N2)>
    
35. GOTO @挂机保护
    
36. Break
    
37. #if
    
38. SMALL N2 11
    
39. LARGE N2 0
    
40. #ACT
    
41. MOV N$自动挂机 <$STR(N2)>
    
42. goto @挂机保护
    
43. #ElseAct
    
44. SENDMSG 6 请输入0-10的范围!
    
45. Break
    
46. 
    
47. 
    
48. 
    
49. [@确认挂机信息]
    
50. #IF
    
51. #ACT
    
52. MOV S$自动挂机 可以挂机了
    
53. SetOnTimer 254 G39
    
54. StartAutoPlayGame
    
55. PLAYEFFECT 11 95 20 0 200 1 -70 -110 0
    
56. SENDMSG 6 {[挂机]：已经开始挂机自动打怪，使用快捷键|255:0:1}{“CTRL+ALT+X”|254:0:1}{停止挂机|249:0:1}
    
57. Close
    
58. 
    
59. 
    
60. 
    
61. [@StopAutoOnline]
    
62. #ACT
    
63. ClearPlayEffect
    
64. StopAutoPlayGame
    
65. SetOffTimer 254
    
66. SENDMSG 6 {[挂机]：已经结束，使用快捷键|255:0:1}{“CTRL+ALT+X”|254:0:1}{开始挂机|249:0:1}
    
67. Close
    

复制代码

QM

1. 
   
2. [@OnTimer254]
   
3. #if
   
4. NOT EQUAL <$STR(N$自动挂机)> 0
   
5. #ElseAct
   
6. SENDMSG 6 您本次挂机未设定自动买药，需要买药请重新小退一次
   
7. SetOffTimer 254
   
8. Break
   
9. 
   
10. #IF
    
11. checkgold <$STR(N$自动挂机)>
    
12. #ElseAct
    
13. SENDMSG 6 您没有钱了,自动挂机补药系统已进入待机模式。
    
14. SetOffTimer 254
    
15. Break
    
16. 
    
17. #if
    
18. CHECKBAGSIZE 1
    
19. #ElseAct
    
20. SENDMSG 6 背包不足，停止自动买药
    
21. SetOffTimer 254
    
22. Break
    
23. 
    
24. #IF
    
25. not CheckItem 超级金创药 <$STR(N$自动挂机)>
    
26. checkgold G38
    
27. #act
    
28. give 超级金创药 1
    
29. take 金币 G38
    
30. 
    
31. #IF
    
32. not CheckItem 超级魔法药 <$STR(N$自动挂机)>
    
33. checkgold G38
    
34. #act
    
35. give 超级魔法药 1
    
36. take 金币 G38

复制代码