01.c,d,i,j,k
02.dim x,y,x1,y1,x2,y2,x3,y3,x4,y4
03.UserVar a="F2" "设置第一技能键(F2)。"
04.UserVar b="F3" "固定设置第一使用怒气技能键(F3)。"
05.UserVar c="F4" "设置第二技能键(F4)。"
06.UserVar d="F5" "设置打坐回血蓝键(F5)。"
07.Delay 200
08.i=0
09.j=0
10.While true
11. x=0
12. y=0
13. Delay 200
14. Call FindColorEx(100,100,870,510,"0000FD",0,0.8,x,y)
15. If x>=10 and y>=10 Then
16. MoveTo x+8,y+25
17. LeftClick 1
18. Delay 200
19. Call 技能()
20. Call 杀怪()
21. ElseIf x<10 and y<10 Then
22. Delay 200
23. k=1
24. KeyPress 116,1
25. Delay 3000
26. End if
27.Wend
28.Sub 技能()
29. Delay 200
30. If k=1 Then
31. MoveTo 767,35
32. Delay 350
33. RightClick 1
34. Delay 350
35. k=0
36. End if
37. Call FindColorEx(172,42,172,42,"D5FFFF",0,0.9,x3,y3)
38. If x3=172 and y3=42 Then
39. Delay 200
40. KeyPress 114,1
41. x3=0
42. y3=0
43. End if
44. Delay 200
45. Call FindColorEx(187,37,187,37,"FF5C5D",0,0.9,x4,y4)
46. If x4=187 and y4=37 Then
47. Delay 200
48. KeyPress 115,1
49. x4=0
50. y4=0
51. End if
52. Delay 200
53.End Sub
54.Sub 杀怪()
55. Delay 200
56. While true
57. x1=0
58. y1=0
59. Delay 200
60. Call FindColorEx(221,29,224,29,"080810",0,0.9,x1,y1)
61. If x1>=221 and y1>=29 Then
62. Delay 200
63. Goto 怪已死
64. End if
65. Delay 200
66. Call FindColorEx(221,29,224,29,"3E4DFD",0,0.8,x2,y2)
67. If x2<=221 and y2<=29 Then
68. i=(x+5)-510
69. j=(y+25)-400
70. MoveTo ABS(i-510),ABS(j-400)
71. Delay 200
72. LeftClick 1
73. Delay 200
74. Goto 怪已死
75. End if
76. Wend
77. Rem 怪已死
78. Delay 200
79.End Sub |