穿越火线cf炼狱加特林

穿越火线cf炼狱加特林

Dim key1,key2,武器类型,开枪,intX,intY


//武器类型：1=炼狱加特林，2=usp，3=高挑,4=近身武器


Sub on_mouse_down() //捕获鼠标按下
key1=_MB //获取鼠标键代码赋值变量
if key1=1 then //判断鼠标按键=1是左键，2右键，3中键，4侧键，5侧键
开枪=1 //开始=1代表左键按下
endif
if key1=5 then //判断鼠标按键=1是左键，2右键，3中键，4侧键，5侧键
MsgBox 高挑&$$$
武器类型=3 //开枪=1代表左键按下
endif
endsub




Sub on_mouse_up() //捕获鼠标抬起
key2=_MB //获取鼠标键代码赋值变量
if key2=1 then //判断鼠标按键=1是左键，2右键，3中键，4侧键，5侧键
开枪=0 //开枪=1代表左键抬起
endif
endsub




Timer 1,1,1000 //开启定时器，每一秒钟检测一次手持枪械种类




while 1 //无限循环

if 开枪=1 then //判断鼠标左键是否按下
if 武器类型=1 then //武器类型：1=炼狱加特林，2=usp，3=高挑
LeftDown //左键按下
DelayRandom 100,150 //随机延迟
LeftUp //左键抬起
DelayRandom 15,30 //随机延迟
endif
if 武器类型=2 then //武器类型：1=炼狱加特林，2=usp，3=高挑
LeftDown //左键按下
DelayRandom 40,80 //随机延迟
LeftUp //左键抬起
DelayRandom 30,60 //随机延迟
endif
endif

if 武器类型=3 then //武器类型：1=炼狱加特林，2=usp，3=高挑
KeyDown "Space"
Delay 180
KeyUp "Space"
Delay 450
KeyDown "Space"
Delay 120
KeyDown "LCtrl"
Delay 150
KeyUp "Space"
Delay 10
KeyUp "LCtrl"
Delay 10
武器类型=0
endif
wend






Sub on_timer1()
//多点找色判断是不是炼狱加特林
FindMultiColor 2318,1306,2367,1322,000000,"1|0|C1C199,18|-1|C1C199,19|-1|000000,26|13|C1C199,26|14|000000,48|14|000000,48|13|C1C199,47|13|000000",0.90,0,intX,intY
If intX >= 0 Then
MsgBox 炼狱加特林&$$$
武器类型=1
else
武器类型=4
EndIf
//多点找色判断是不是usp
FindMultiColor 2313,1260,2549,1388,000000,"1|0|C1C199,4|0|C1C199,5|0|000000,7|0|C1C199,10|0|C1C199,11|0|000000,14|0|000000,15|0|C1C199,21|0|C1C199,22|0|000000,24|0|000000,25|0|C1C199,32|0|C1C199,33|0|000000",0.90,0,intX,intY
If intX >= 0 Then
MsgBox USP手枪&$$$
武器类型=2
else
武器类型=4
MsgBox 近身武器&$$$
EndIf
End Sub