然后，在我的脚本里，将如下代码输入
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 = 7000
划屏延时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"]
　✎﹏﹏
不用数了这条回复是标准的1339字。

这是第一段
　✎﹏﹏
jywzyy告诫吧友:文字可以逆转，时间岂能倒流，秒毫230秒23分25时81 六期星 日92月01年6102是经曾

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,划屏延时1)
Do Until 判断(自动开火) = False
KeepCapture
If 判断(没子弹) or 判断(刀子) Then
'TracePrint "没子弹"
Call 划屏(中心, 往前, 2,划屏延时2)
　✎﹏﹏
我掐指一算，楼主的贴子发表于3天18小时3分钟前,应该是2016-10-26 00:51发的。

For 3
点击 (加子弹)
Next
Delay 1200
'TracePrint "后退"
Call 划屏(中心, 往后, 3,划屏延时2)
End If
If TickCount() - mark > 10*1000 Then
'TracePrint "周期往右"
Call 划屏(中心, 往右,1, 划屏延时2)
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
　✎﹏﹏
jywzyy为您报时: 2016年10月29日 星期六 18时54分37秒037毫秒

这是第三段，也是最后一段，真不容易
　✎﹏﹏
是谁？是谁又把我的沙发抢了

以上是cf手游三头龙挂机脚本。是以前版本的，但我估计现在应该也能用。

不知道现在还能不能用了哈哈哈哈
　✎﹏﹏
jywzyy带您背单词:
[四级]expose/iks’pəuz/vt.使暴露；揭露