一、读内存僵尸刷新倒计时子程序
Sub CountDown(t)
i=600
While (i - t > 0)
Delay 4
i = Plugin.Memory.Read32Bit(hwnd,&H6a9ec0)
i = Plugin.Memory.Read32Bit(hwnd, i +&H768)
i = Plugin.Memory.Read32Bit(hwnd, i +&H559c)
Wend
End Sub

二、使按键精灵找到游戏语句
Dim hwnd
hwnd = Plugin.Window.MousePoint()

三、红字波预判语句 (其中t为预判时间，单位为ms)
Call Countdown(4)
Delay 7250 - t

四、安全右键子程序
Sub 安全右键
For 3
Call Plugin.Bkgnd.RightClick(hwnd, 60, 50)
Next
End Sub

五、点卡子程序
1.点卡
Sub 卡(n)
Call 安全右键
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 50 + 50 * n, 70)
Next
End Sub

2.点铲子
Sub 铲子
Call 安全右键
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 50 + 50 * 12, 70)
Next
End Sub

五、用卡子程序 (其中i为场地列数，j为场地行数)
Sub 用卡(i, j)
Call 安全右键
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 30 + 85 * j)
Next
End Sub

七、炮位子程序
1.前院 DE NE (其中i为场地列数，j为场地行数)
Sub 炮x
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 30 + 100 * j)
Next
End Sub

2.后院 PE FE (其中i为场地列数，j为场地行数)
Sub 炮x
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 30 + 85 * j)
Next
End Sub

3.天台 RE ME (其中i为场地列数，j为场地行数)
Sub 炮x
If i > 5 Then
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 85 * j)
Next
Else
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 85 * j + (120 - 20 * i))
Next
End If
End Sub

八、落点子程序
1.前院 DE NE (其中i为场地列数，j为场地行数)
Sub 炮x落点
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 30 + 100 * j)
Next
End Sub

2.后院 PE FE (其中i为场地列数，j为场地行数)
Sub 炮x落点
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 30 + 85 * j)
Next
End Sub

3.天台 RE ME (其中i为场地列数，j为场地行数)
Sub 炮x落点
If i > 5 Then
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 85 * j)
Next
Else
For 3
Call Plugin.Bkgnd.LeftClick(hwnd, 80 * i, 85 * j + (120 - 20 * i))
Next
End If
End Sub

十一、开始游戏子程序
1.出怪有气球选卡有三叶草或出怪无气球
Sub 开始游戏（出怪有气球选卡有三叶草或出怪无气球）
Call Plugin.Bkgnd.MoveTo(hwnd,80 * 3, 30 + 85 * 6.5)
Delay 300
Call Plugin.Bkgnd.LeftClick(hwnd,80 * 3, 30 + 85 * 6.5)
End Sub