1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
| Delay 2000
Dim screenX,screenY,deviceID,first=1
screenX = GetScreenX()
screenY = GetScreenY()
deviceID = GetDeviceID()
TracePrint ""&screenX&"*"&screenY&chr(10)
While 1
call messagebox ("准备进入出击")
TracePrint "准备进入出击"
Call zhanyi()
first = 2
Delay 3000
Wend
//----------------//
Sub zhanyi()
Dim dijiguan=1,zdd,ty=225,zyi=1,yv //zyi的值影响章节。dijiguan的值影响关卡//
call messagebox ("点击出击")
TracePrint "点击出击"
Delay 1000
Touch 567,1757, 100
call messagebox ("向左滑动归零")
TracePrint "向左滑动归零"
Delay 1000
TouchDown 95,198, 1//按住屏幕上的100,100坐标不放，并设置此触点ID=1
TouchMove 98,1212, 1, 200//将ID=1的触点花200毫秒移动至300,300坐标
TouchUp 1//松开弹起ID=1的触点
Delay 1000
call messagebox ("归零关卡选择")
TracePrint "归零关卡选择"
Touch 86, 225, 100
call messagebox ("选择关卡，注意单复数关卡坐标不一致")
TracePrint "选择关卡，注意单复数关卡坐标不一致"
Delay 1000
call messagebox ("章节选择为第" & zyi & "章")
TracePrint "章节选择"
ty=ty+(zyi-1)*450
Touch 99, ty, 100
yv = zyi mod 2
If yv=0 Then //判断奇偶关卡
Select Case dijiguan
Case 1
call messagebox ("选择关卡一")
TracePrint "选择偶数关卡一"
Touch 533,229, 100
Delay 1000
Case 2
call messagebox ("选择关卡二")
Touch 366,707, 100
Delay 1000
Case 3
call messagebox ("选择关卡三")
Touch 617,1059, 100
Delay 1000
Case 4
call messagebox ("选择关卡四")
Touch 403,1557, 100
Delay 1000
Case Else
call messagebox ("关卡值错误！")
End Select
Else //偶数关
Select Case dijiguan
Case 1
call messagebox ("选择关卡一")
TracePrint "选择奇数关卡一"
Touch 428,272, 100
Delay 1000
Case 2
call messagebox ("选择关卡二")
Touch 633,719, 100
Delay 1000
Case 3
call messagebox ("选择关卡三")
Touch 361,1102, 100
Delay 1000
Case 4
call messagebox ("选择关卡四")
Touch 605,1571, 100
Delay 1000
Case Else
call messagebox ("关卡值错误！")
End Select
End If
call messagebox ("关卡介绍页面")
TracePrint "关卡介绍页面"
Touch 225,1506, 100
Delay 1000
call messagebox ("出击！")
TracePrint "出击！"
Touch 228,1491, 100
Delay 3000
Touch 76,1756, 100 //打开搜寻敌人
Delay 3000
While 1
zdd = CmpColor(933,1513,"F3F6EE",0.9)
If zdd > -1 Then
zdd = CmpColor(568, 1799, "FFFFFF", 0.9)
If zdd > -1 Then
call messagebox ("回到关卡界面了，跳出战斗")
TracePrint "回到关卡界面了，跳出战斗"
Exit While
End If
End If
call messagebox ("似乎没有结束呢，继续战斗")
TracePrint "似乎没有结束呢，继续战斗"
Touch 185, 1649, 100
Delay 1000
Touch 830, 1794, 100
Delay 1000
zdd = CmpColor(1053,1580, "DDFFFF", 0.9)
If zdd = -1 Then
Touch 1025, 1562, 100
Delay 1000
Call messagebox("开启自动战斗")
TracePrint "开启自动战斗"
End If
Wend
Touch 1029, 385, 100
call messagebox ("回到主界面开始下个循环吧")
TracePrint "回到主界面开始下个循环吧"
End Sub
//----------------//
Sub messagebox(box)
TracePrint box
ShowMessage box
Delay 1500
End Sub
|
