FPS游戏压枪模版，可做参考

FPS游戏压枪模版，可做参考

Dim zj,yj,GetKeyState,ax,tq
zj=GetKeyState(1)//获取鼠标左键
yj=GetKeyState(2)//获取鼠标右键
ax=1//按键值等于1为按下状态
tq=0//按键值等于0为弹起状态
If zj=ax and yj=ax//如果鼠标左键和鼠标右键为按下状态执行压枪数据
for 100     //单发压枪数据，根据自己玩的游戏更改延时
Delay 1 //此为吃鸡模版，其他游戏也可根据此模版进行更改
MoveR 0,1
Next
Call jc()//检测鼠标左右键是否按下


for 40
Delay 2
MoveR 0,1
Next
Call jc()




for 80
Delay 1
MoveR 0,1
Next
Call jc()




for 80
Delay 1
MoveR 0,1
Next
Call jc()


//5发子弹
Delay 2000
Endif
RestartScript
Sub jc()//子程序检测左右键是否未按下
yj=GetKeyState(2)
zj=GetKeyState(1)
If zj=0 or yj=0//如果鼠标左键或鼠标右键为未按下状态重启脚本
RestartScript
Endif
EndSub