部分手机不能用的
这是源代码
SetScreenScale 540, 960, 0
Dim win_x,win_y
win_x = GetScreenX()
win_y = GetScreenY()
If win_x / win_y <> 540 / 960 Then
ShowMessage "当前分辨率为:"&win_x&"x"&win_Y&",不支持此脚本。"
Delay 2000
EndScript
End If
////////////////////////////////////////////////////////////////////////////////
'定义一些常用变量
Dim 普通模式(心意修改),困难模式(心意修改),单人匹配,返回大厅,该局结束,忽略邀请,网络差,匹配不到,升级了,新成就,自动开火,手动开火,冰冻,没子弹,刀子,加子弹
Dim 中心(),往前(),往后,往右(),往左(),解冻1,解冻2
Dim 检测冰冻,线程状态=False ,划屏延时1,划屏延时2,加子弹延时,mark
dim temp,模式,id,复活币,是否复活,复活
普通模式(心意修改) = "451|286|055C03-101010,451|384|0671D5-101010"
困难模式(心意修改) = "449|391|16538E-101010,459|310|02A301-101010"
单人匹配 = "35|857|164EA2-101010,32|867|6DAFD8-101010"
返回大厅 = "45|779|344E62-101010,45|794|5496BF-101010"
忽略邀请 = "476|721|0505FF-101010,397|586|69ABD4-101010"
该局结束 = "153|447|5892C4-101010,159|471|2C3247-101010"
网络差 = "289|573|32324D-101010,289|579|599AC3-101010"
匹配不到 = "287|453|5597C0-101010,286|473|393953-101010"
新成就 = "86|676|34344F-101010,89|691|A7A7AE-101010"
升级了 = "30|389|000000-101010,495|364|000000-101010"
自动开火 = "526|178|7DE9FF-101010,526|190|7DE9FF-101010"
手动开火 = "527|241|7DE9FF-101010,526|235|7DE9FF-101010"
冰冻 = "362|340|FDA327-101010,358|342|FFA73C-101010,360|358|FEA632-101010"
没子弹 = "21|640|024DF7-101010,42|640|024CF9-101010"
刀子 = "7|647|FFFFFF-101010,45|628|FFFFFF-101010,23|655|FFFFFF-101010"
加子弹 = "265|636|7AEAFE-101010,265|647|74EBFD-101010"
复活币 ="162|464|A39246-101010,162|432|5F99CB-101010,184|492|385A72-101010"
往前 = Array(292, 216)
往后 =Array (11,216)
中心 = Array(143, 206)
往右 = Array(43,347)
解冻1 = Array(362, 241)
解冻2 = Array(130, 242)
划屏延时1 = 8000
划屏延时2 = 2500
/////////////////////////////////////////////////////////////
UI.NewLayout ("选择冰火巨蜥挂机难度")
UI.AddRadioGroup "选择冰火巨蜥挂机难度", "单选框1", {"普通模式", "困难模式"}, 0
UI.NewRow "选择冰活巨蜥挂机难度", "换行1"
UI.AddCheckBox "选择冰火巨蜥挂机难度", "多选框1", "是否使用复活币", false
UI.Show ("选择冰火巨蜥挂机难度")
temp = UI.GetValue("单选框1")
Select Case temp["单选框1"]
Case 0
模式 = 普通模式(心意修改)
Case 1
模式 = 困难模式(心意修改)
End Select
temp = UI.GetValue("多选框1")
是否复活 = temp["多选框1"]
If 是否复活 = True Then
复活=复活币
End If
Randomize
//////////////////////////////////////////////////////////////////////////////
//'调试区
//KeepCapture
//'TracePrint 模式
//'TracePrint 是否复活
//'TracePrint 等待
//'TracePrint 判断(复活币)
//ReleaseCapture
//EndScript
///////////////////////////////////////////////////////////////////////////
'主线循环
Do
KeepCapture
If 判断点击(模式) Then
ElseIf 判断(自动开火) Then
Call 挂机()
ElseIf 判断点击(复活) Then
ElseIf 判断点击(单人匹配) Then
ElseIf 判断点击(忽略邀请) Then
ElseIf 判断点击(匹配不到) Then
ElseIf 判断点击(网络差) Then
ElseIf 判断点击(该局结束) Then
ElseIf 判断点击(手动开火) Then
ElseIf 判断点击(返回大厅) Then
Thread.Stop(检测冰冻)
线程状态 = False
ElseIf 判断点击(升级了) Then
ElseIf 判断点击(新成就) Then
End If
ReleaseCapture
Delay 2000
Loop
/////////////////////////////////////////////////////////////////////////////
'固定模块
Function 判断(坐标特征)
判断=False
If CmpColorEx(坐标特征, 0.9) = 1 Then
判断 = True
ReleaseCapture
End If
End Function
Sub 点击(坐标特征)
Dim arr()
arr = Split(坐标特征, "|")
Tap arr(0), arr(1)
End Sub
Function 判断点击(坐标特征)
判断点击 =False
If 判断(坐标特征) = True Then
Dim arr()
arr = Split(坐标特征, "|")
arr(0) = 坐标随机(arr(0))
arr(1) = 坐标随机(arr(1))
Tap arr(0),arr(1)
判断点击 = True
ReleaseCapture
End If
End Function
Function 划屏(坐标1,坐标2, id, 耗时)
Dim x1,x2,y1,y2
x1 = 坐标随机(坐标1(0))
y1 = 坐标随机(坐标1(1))
x2 = 坐标随机(坐标2(0))
y2 = 坐标随机(坐标2(1))
耗时 = 时间随机(耗时)
'TracePrint x1&","&y1&"到"&x2&","&y2
TouchDown x1, y1, id
TouchMove x2, y2, id, 耗时
TouchUp id
End Function
Function 坐标随机(value)
坐标随机 = Int((value + 10 - value + 1) * Rnd() + value)
End Function
Function 时间随机(value)
时间随机 = Int((value + 1000 - value + 1) * Rnd() + value)
End Function
/////////////////////////////////////////////////////////////////////////////
'功能模块
Function 挂机()
If 线程状态 = False Then
线程状态 = True
检测冰冻 = Thread.Start(解冻,冰冻,解冻1, 解冻2 )
End If
mark = TickCount()
'TracePrint "自动开火划屏"
Call 划屏(中心,往前,0,划屏延时2)
Call 划屏(中心, 往右, 0,划屏延时1)
Do Until 判断(自动开火) = False
KeepCapture
If 判断(没子弹) or 判断(刀子) Then
'TracePrint "没子弹"
Call 划屏(中心, 往前, 2,划屏延时2)
For 3
点击 (加子弹)
Next
Delay 1200
'TracePrint "后退"
Call 划屏(中心, 往左, 3,划屏延时2)
End If
If TickCount() - mark > 10*1000 Then
'TracePrint "周期往后"
Call 划屏(中心, 往左,1, 划屏延时1)
mark=TickCount()
End If
ReleaseCapture
Delay 2000
Loop
End Function
Function 解冻(冰,坐标1,坐标2)
Do
If 判断(冰) Then
For 4
Call 划屏(坐标1, 坐标2, 4, 0)
Next
End If
Delay 1200
Loop
End Function