脚本制作教程：按键精灵加速游戏

精心整理脚本制作教程：按键精灵加速游戏

来源：按键学院【按键精灵】植物大战僵尸这款游戏，想必大家都不陌生

讲述的是一场植物与僵尸之间刻骨铭心的撕逼大战

是一款老少皆宜和善可爱的游戏……此处省略一万字……

『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、过场景时的速度快慢