脚本制作教程:按键精灵加速游戏
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
精心整理脚本制作教程:按键精灵加速游戏
来源:按键学院【按键精灵】植物大战僵尸这款游戏,想必大家都不陌生
讲述的是一场植物与僵尸之间刻骨铭心的撕逼大战
是一款老少皆宜和善可爱的游戏……此处省略一万字……
『4』快和慢这两个蓝色的按钮,也是用于调整速度的,与滑块的区别在于:滑块可以一次性拉动很大的范围,而按钮是精确调整的,每一次点击增/减一个单位的速度。
『5』恢复"按钮",用于将速度归零。
变速命令
变速命令是官方新插件里的 SysEx系统插件增强版下的命令:Speed
注意:速度的倍数,范围:-256~256,保留小数点后3位,可以实现1.001、1.002倍速度。
我们要实现,拖动滑块图片,往左右移动的时候,滑块图片会跟随着鼠标移动。
步骤:
『1』当我们点住滑块这张图片时,获取当前鼠标位置。
『2』启动计时器,计时器的时间间隔设置为50毫秒。
『3』在计时器的Timer事件里再次获取当前鼠标位置,对比两次获取鼠标位置之间横坐标的差值。『4』将滑块图片的横坐标加上两次鼠标位置之间的横坐标差值。
『5』检测鼠标左键是否弹起,如果弹起则将计时器的Enabled属性设置为假。
整体代码
//调试运行事件子程序
//SubOnScriptLoad()
//Form1.Show
//EndSub
Form1.Show
EndScript
//《》
当前句柄=0
CallForm1.
EndEvent
//《》
EventForm1.
Form1.
Form1.滑块
Form1.
Call(
EndEvent
Form1.
EndEvent
//《》
EventForm1.
Form1.滑块
IfForm1.滑块
Form1.
//
Call(
EndEvent
//《》
EventForm1.快.Click
Form1.滑块.Left=Form1.滑块.Left+1
IfForm1.滑块.Left>=296ThenForm1.滑块.Left=296
Form1.速度值.Caption=Form1.滑块.Left-196&"倍数"
//设置指定窗口(Hwnd)加速到100倍
Call(当前句柄,Form1.滑块.Left-196)
EndEvent
//《》-------------滑块变速
EventForm1.滑块.Click
GetCursorPosqx,qy
hx=Form1.滑块.Left
EndEvent
GetCursorPosx,y
dx=x-qx
Ifhx+dx<=16Then
Form1.滑块.Left=16
ElseIfhx+dx>=296Then
Form1.滑块.Left=296
Else
Form1.滑块.Left=hx+dx
EndIf
Form1.速度值.Caption=Form1.滑块.Left-196&"倍数" //设置指定窗口(Hwnd)加速到100倍
Call(
=False
EndIf
EndEvent
//《》
EventForm1.
CallForm1.
Form1.
s="0-空|"
当前句柄=0
EndEvent
er
Do
Form1.
Form1.
ExitDo
Else
IfsT ext<>""Thens=s&Hwnd1&"-"&sText&"|"
EndIf
EndIf
Loop
EndEvent
//《》-------------选择窗口标题
EventForm1.窗口标题.SelectChange
CallForm1.恢复速度.Click
Dim索引
索引=Split(Form1.窗口标题.List,"|")
当前句柄=split(索引(Form1.窗口标题.ListIndex),"-")(0) Call(当前句柄,Form1.滑块.Left-196)
EndEvent
//《》-------------界面关闭后停止变速
EventForm1.UnLoad
CallForm1.恢复速度.Click
EndEvent
注意:变速命令,并不是说对所有的网游都无效的,变速游戏会影响到游戏的这些地方:
1、过场景时的速度快慢