Question

求个好心的易语言大神把这按键精灵源代码改成E语言写法有重谢哟!

Sub 冲锋枪()
Do
//绿色准心
FindCenterColor (宽 / 2) - 50 + Ux, (高 / 2) - 50 + Uy, (宽 / 2) + 50 + Ux, (高 / 2) + 50 + Uy, "00FD00", intX, intY
If intX > 0 And intY > 0 Then
//寻找敌人身上(或头上)醒目的颜色(这里颜色仅做参考)
//找到后鼠标偏移过去
//找敌人颜色1
FindColorEx intX - 170, intY - 50, intX + 170, intY + 50, "2A334F", 1, 0.85, intX1, intY1
If intX1 > 0 And intY1 > 0 Then
//计算出需要偏移的量
X = intX1 - intX
Y = intY1 - intY
//因为3D游戏与2D游戏偏移不同，具体除以多少根据实际调试
dm.MoveR X / 4.5, Y / 2.5
//找到颜色后，用跳转语句跳过其他颜色的查找，提高效率
Goto 标记
End If
//找敌人颜色2
FindColorEx intX - 170, intY - 50, intX + 170, intY + 50, "232A43", 1, 0.85, intX2, intY2
If intX2 > 0 And intY2 > 0 Then
X = intX2 - intX
Y = intY2 - intY
dm.MoveR X / 4.5, Y / 2.5
Goto 标记
End If
//找敌人颜色3
FindColorEx intX - 170, intY - 50, intX + 170, intY + 50, "323B50", 1, 0.85, intX3, intY3
If intX3 > 0 And intY3 > 0 Then
X = intX3 - intX
Y = intY3 - intY
dm.MoveR X / 4.5, Y / 2.5
Goto 标记
End If
Rem 标记
//自瞄锁定敌人后，就单单循环找红名，知道敌人死亡
//找红名
FindColor intX - 65, intY - 20, intX + 60, intY + 85, "0000FC", intXX1, intYY1
If intXX1 > 0 And intYY1 > 0 Then
LeftClick 1
Do
FindColor intX - 65, intY - 20, intX + 60, intY + 85, "0000FC", intXX2, intYY2
If intXX2 > 0 And intYY2 > 0 Then
LeftClick 1
Else
//敌人死了就退出无限找红名的循环
Exit Do
End If
Loop
End If
End If
Loop
End Sub

Answer 1

.版本 2

.子程序 子程序_冲锋枪
.局部变量 intX, 整数型
.局部变量 intY, 整数型
.局部变量 intX1, 整数型
.局部变量 intY1, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型
.局部变量 intX2, 整数型
.局部变量 intY2, 整数型
.局部变量 intX3, 整数型
.局部变量 intY3, 整数型
.局部变量 intXX1, 整数型
.局部变量 intYY1, 整数型
.局部变量 intXX2, 整数型
.局部变量 intYY2, 整数型

.循环判断首 ()
' 绿色准心
FindCenterColor（ (宽 / 2) - 50 + Ux, (高 / 2) - 50 + Uy, (宽 / 2) + 50 + Ux, (高 / 2) + 50 + Uy, "00FD00", intX, intY）
.如果真 (intX ＞ 0 且 intY ＞ 0)
' 寻找敌人身上(或头上)醒目的颜色(这里颜色仅做参考)
' 找到后鼠标偏移过去
' 找敌人颜色1
FindColorEx (intX - 170, intY - 50, intX + 170, intY + 50, "2A334F", 1, 0.85, intX1, intY1)
.如果 (intX1 ＞ 0 且 intY1 ＞ 0)
' 计算出需要偏移的量
X = intX1 - intX
Y = intY1 - intY
' 因为3D游戏与2D游戏偏移不同，具体除以多少根据实际调试
dm.MoveR X / 4.5, Y / 2.5
' 找到颜色后，用跳转语句跳过其他颜色的查找，提高效率
.否则
' 找敌人颜色2
FindColorEx (intX - 170, intY - 50, intX + 170, intY + 50, "232A43", 1, 0.85, intX2, intY2)
.如果 (intX1 ＞ 0 且 intY1 ＞ 0)
' 计算出需要偏移的量
X ＝ intX2 － intX
Y ＝ intY2 － intY
' 因为3D游戏与2D游戏偏移不同，具体除以多少根据实际调试
dm.MoveR X / 4.5, Y / 2.5
' 找到颜色后，用跳转语句跳过其他颜色的查找，提高效率
.否则
FindColorEx (intX - 170, intY - 50, intX + 170, intY + 50, "323B50", 1, 0.85, intX3, intY3)
.如果真 (intX1 ＞ 0 且 intY1 ＞ 0)
' 计算出需要偏移的量
X ＝ intX2 － intX
Y ＝ intY2 － intY
' 因为3D游戏与2D游戏偏移不同，具体除以多少根据实际调试
dm.MoveR X / 4.5, Y / 2.5
' 找到颜色后，用跳转语句跳过其他颜色的查找，提高效率
.如果真结束

.如果结束

.如果结束
' 自瞄锁定敌人后，就单单循环找红名，知道敌人死亡
' 找红名
FindColor (intX - 65, intY - 20, intX + 60, intY + 85, "0000FC", intXX1, intYY1)
.如果真 (intXX1 ＞ 0 且 intYY1 ＞ 0)
LeftClick (1)
.循环判断首 ()
FindColor (intX - 65, intY - 20, intX + 60, intY + 85, "0000FC", intXX2, intYY2)
.如果 (intXX2 ＞ 0 且 intYY2 ＞ 0)
LeftClick (1)
.否则
跳出循环 ()
.如果结束

.循环判断尾 ()

.如果真结束

.如果真结束

.循环判断尾 ()
我没有大漠插件，所以无法调试。你自己试试吧

Answer 2

这应该是CF的自动瞄准吧

追问

嗯哪

追答

我刚刚开始学易语言 暂时还帮不到你

追问

好吧，还是谢谢你。