CF自动开枪脚本开源--所有版本源码公布

戰ぐ小夜

经典版与全兼容版源码全部发布，以后大家就自己做脚本吧，很简单的，根据我个人估计，这2个脚本，1年之内，都可以使用的，如果TP拦截，那么就需要按键精灵会员版里面的NP神盾，不过机率不大！
认真的说一句： 我不喜欢会员拿着我的代码，然后打包成小精灵出去卖钱，这样的人，我十分的鄙视，诅咒它用不起脚本！

UserVar 戰ぐ小夜=吾爱破解论坛 CF枪王辅助V1.0正式版

UserVar 52pojie=www.52pojie.cn 吾爱破解论坛

UserVar ok=︻┳═一 ︻┳═一

UserVar suikers=↓↓设置项目↓↓ ↓↓↓下面为设置项↓↓↓

UserVar resolution=DropList{800*600:0|1024*768:1|1280*800:2}=1 游戏分辨率[目前只支持1024*768]

UserVar pv=30 开枪频率【M4推荐频率】

UserVar killx=1 单次开枪子弹数量

UserVar onekill=0 第一枪延时[爆破模式]

UserVar c1=超越简单游脚本 在游戏内可以随时修改开枪频率

SetEnv "onekill",onekill

SetEnv "killx",killx

SetEnv "resolution",resolution

SetEnv "sleep",pv

If resolution=1

sMsg="1024*768"

EndIf 

If resolution=2

sMsg="1280*800"

EndIf 

If resolution=0

sMsg="800*600"

EndIf 

//MessageBox smsg

msg="游戏分辨率为:"&sMsg&vbcrlf& "开枪频率为"&pv &vbcrlf& "单次开枪子弹数量为"&killx &vbcrlf& "第一枪延时为"&onekill &vbcrlf&"随客CF枪王辅助脚本已经开始运行，确认无误后就进入游戏吧！"

Plugin Msg.ShowScrTXT(0,0,1024, 100, msg, "0000FF")

BeginThread "fire"

While 1

GetLastKey key

If key=121

sl=GetEnv("sleep")

sl=sl+1

SetEnv "sleep",sl

Plugin Msg.ShowScrTXT(300,240,800,600, "开枪频率为:"&sl, "0000FF")

ElseIf key=120

sle=GetEnv("sleep")

sle=sle-1

If sle<5

sle=5

EndIf 

SetEnv "sleep",sle

Plugin Msg.ShowScrTXT(300,240,800,600, "开枪频率为:"&sle, "0000FF")

EndIf 

Delay 10

EndWhile 

EndScript 

Sub fire

XY=GetEnv("resolution")

o=GetEnv("onekill")

X1=380

Y1=345

X2=420

Y2=355

If XY=1

X1=X1+112

X2=X2+112

Y1=Y1+84

Y2=Y2+84

EndIf 

If XY=2

X1=X1+240

X2=X2+240

Y1=Y1+100

Y2=Y2+100

EndIf 

While 1

VBSCall FindColorEx(X1,Y1,X2,Y2,"3239A0",0,0.7,x,y)

If x>0

Delay o

Gosub gun

EndIf 

Delay 1

VBSCall FindColorEx(X1,Y1,X2,Y2,"2A3EB8",0,0.7,x,y)

If x>0

Gosub gun

EndIf 

Delay 1

VBSCall FindColorEx(X1,Y1,X2,Y2,"1849F0",0,0.7,x,y)

If x>0

Gosub gun

EndIf 

Delay 1

VBSCall FindColorEx(X1,Y1,X2,Y2,"1849F0",0,0.7,x,y)

If x>0

Gosub gun

EndIf 

Delay 1

EndWhile 

Return 

Sub gun

k=GetEnv("killx")

s=GetEnv("sleep")

LeftClick k

Delay s

Return 

以上是经典版源码，开枪速度最快，基于按键精灵7可以无错编辑。
以下是全兼容版，开枪速度也很快，主要是支持所有分辨率和压枪[基于按键精灵8可以无错编辑]：

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

全兼容版，可以通过方向键上下左右，来调节延迟和频率。

刮刮乐送吾爱币：看完不回复的木JJ

Magicblade

不玩CF这种脑残游戏，还是顶一个

戰ぐ小夜

好东西大家一起分享
记得支持噢！！

小薪

我愁= =早知道不看刮刮乐了。。

青春

早知道不看刮刮乐了  但是有了源码也不会用啊 总的来说一句楼主辛苦了

戰ぐ小夜

小薪 发表于 2012-2-6 13:27
我愁= =早知道不看刮刮乐了。。

看了有好处哦

QQ67052387

我愁= =早知道不看刮刮乐了。。

沧海一数

不知道还有效不

gujiatai001

哈哈。我果断刮了，然后果断回了。

yezizhu78

不玩游戏

mary0217

好东西还是要支持一下的三。

小薪

戰ぐ小夜 发表于 2012-2-6 13:36
看了有好处哦

好处就是木JJ啊= =日....

戰ぐ小夜

青春 发表于 2012-2-6 13:35
早知道不看刮刮乐了  但是有了源码也不会用啊 总的来说一句楼主辛苦了

看了刮刮乐不素得了吾爱币了撒 ！！

阿杰

也不发个成品的。