CF红名自动（按键精灵）

a139622

从别的地方复制的，我用不明白。。。
UserVar Var1=30 "开枪频率"

UserVar Var2=1 "单次开枪子弹数量"

UserVar Var3=0 "第一枪延迟"

UserVar Var4=55 "压枪延迟"

//定义变量

DimEnv iWidth ,iHeight //int 屏幕分辨率

DimEnv iFD //开枪频率

iFD=Var1

DimEnv iFN //几发连射

iFN=Var2

DimEnv iFFD //第一枪延迟

iFFD=Var3

DimEnv iND //压枪延迟

iND=Var4



//调用主函数

Call Main()



//**Main

//程序入口主函数

Sub Main()

//int 四个角的坐标

Dim iLT,iRT,iLB,iRB

//临时对象

Dim vTemp

Dim bCanShoot

Dim sStr

//得到分辨率(四个坐标)

sStr=getParameter()

//把返回的坐标分割成数组

vTemp=Split(sStr, "|", -1, 1)



iLT=vTemp(0)

iRT=vTemp(1)

iLB=vTemp(2)

iRB=vTemp(3)

//启用设置开枪频率线程

BeginThread setFireDelay



//循环脚本

While True

Delay 1

//搜索射程内的敌人

bCanShoot=findFoe(iLT,iRT,iLB,iRB)

//进入射程

If bCanShoot

//第一枪延迟

Delay iFFD

//射击

Call shootFoe()

//如果没有命中就压枪

If ifBingo()

Delay iND

End If

End If

Wend

End Sub



//**Function

//功能:判断屏幕分辨率

//返回:四个坐标的字符串

Function getParameter()

Dim iLT,iRT,iLB,iRB //int 四个角的坐标

iWidth = Plugin.Sys.GetScRX() //得到屏幕的宽度

iHeight = Plugin.Sys.GetScRY() //得到屏幕的高度

If iWidth=800 Then

iLT=0

iRT=0

iLB=0

iRB=0

ElseIf iWidth=1024 Then

iLT=112 //加上坐标偏移

iRT=84

iLB=112

iRB=84

ElseIf iWidth=1280 Then

iLT=240 //加上坐标偏移

iRT=100

iLB=240

iRB=100

End If



iLT=iLT+380 //LeftTop 左上角

iRT=iRT+345 //RightTop 右上角

iLB=iLB+420 //LeftBottom 左下角

iRB=iRB+355 //RightBottom 右下角

getParameter=iLT&"|"&iRT&"|"&iLB&"|"&iRB //返回字符串

End Function



//**Function

//功能:判断射程内是否有敌人

//返回:是True,否False

Function findFoe(iLT,iRT,iLB,iRB)

Dim sColor(3) //Array(string) 用于存放颜色的数组

Dim i //int 循环变量

Dim iX,iY //int 得到颜色的坐标

Dim bHave //boolean 是否找到敌人

//初始化颜色

sColor(0)="3239A0"

sColor(1)="2A3EB8"

sColor(2)="1849F0"

sColor(3)="1849F0"



bHave=false //初始化



//找颜色

For i=0 to 3 step 1

Call FindColorEx(iLT,iRT,iLB,iRB,sColor(i),1,0.7,iX,iY)

If iX>0 And iY>0

bHave=true //找到了

KeyPress 44, 1

Goto rHave //跳出

End If

Next



Rem rHave

findFoe=bHave//Return 函数返回值

End Function



//**Function

//功能:判断是否没有命中敌人

//返回:是True,否False

Function noBingo()

Dim iX,iY //int 得到颜色的坐标

Call FindColorEx(iWidth/2-5,iHeight/2-5,iWidth/2+5,iHeight+5,"7E7EC0",1,0.7,iX,iY)

If iX > 0 Then

noBingo=True

Else

noBingo=False

End If



End Function





//**Sub

//功能:射击

Sub shootFoe()



LeftClick iFN //左键单击 * 次

Delay iFD //延迟 * 毫秒

End Sub



//**Sun

//参数(字符串,秒,第几行)

//功能:显示字符串

Sub showStr(str,n,row)

For n*100

Delay 1

Call Plugin.Msg.ShowScrTXT(0, (row-1)*19, 120, 19, str, "0000FF")

Next

End Sub



//**Sun

//功能:设置开枪延迟

//# 多线程启动

Sub setFireDelay()

Dim key

While True

key=WaitKey()

If key=37

iFD=iFD-1 //缩小开枪延迟

Call showStr("开枪频率为"&iFD&"毫秒",5,1)

ElseIf key=39 //方向键 右

iFD=iFD+1 //增加开枪延迟

Call showStr("开枪频率为"&iFD&"毫秒",5,1)

ElseIf key=38 //方向键 右

iFD=iFD+5 //增加开枪延迟

Call showStr("开枪频率为"&iFD&"毫秒",5,1)

ElseIf key=40 //方向键 右

iFD=iFD-5 //增加开枪延迟

Call showStr("开枪频率为"&iFD&"毫秒",5,1)

End If

Wend

End Sub

a139622

这个应该不能直接用，我是虚拟机开游戏，电脑开按键，这样不会检测。（不要打人机会16-3）

a139622

a139622 发表于 2024-1-18 16:06
我发现用虚拟机玩游戏，本机开辅助会很稳定，就是玩游戏会很卡

还可以搭配论坛里的ai一起用

a4610010

有用吗，你试了没有

a139622

a4610010 发表于 2023-10-27 12:36
有用吗，你试了没有

有啊，就是不好控制

2792866856

a139622 发表于 2023-10-27 13:13
有啊，就是不好控制

怎么搞的

a139622

Do
FindColorEx 324, 313, 424, 346, "33399E",2, 0.8, X, Y
If x>=0
LeftDown 1
Delay 44
LeftUp 1
End If
Loop



（这个勉强能用，800，600的）

a139622

发现一个新方法，基本没啥后座
FindColorEx 324, 313, 424, 346, "33399E",2, 0.8, X, Y
If x>=0，than
movers 0,0
end if

a139622

a139622 发表于 2023-12-7 20:18
发现一个新方法，基本没啥后座
FindColorEx 324, 313, 424, 346, "33399E",2, 0.8, X, Y
If x>=0，than

封不封不知道

After

a139622 发表于 2023-12-7 20:31
封不封不知道

这个超级模拟鼠标为什么低于0.5就用不了

a139622

After 发表于 2024-1-7 00:38
这个超级模拟鼠标为什么低于0.5就用不了

那个0.5

a139622

我发现用虚拟机玩游戏，本机开辅助会很稳定，就是玩游戏会很卡