
//换算坐标模块
MessageBox "脚本开始,请将鼠标移动到游戏窗口上,按任意键继续。确保已经选择Fast
Track选项并激活回旋镖三级建筑"
WaitKey
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
dim MyArray
MyArray = Split(sRect, "|")
x = Clng(MyArray(0))
y = Clng(MyArray(1))
x = x - 147
y = y - 158
MessageBox "起始坐标获取完毕,任意键继续,脚本开始操作,请勿切换、移动、缩放游戏窗口"
WaitKey
//进入游戏模块
MoveTo 838+x, 621+y
LeftClick 1
Delay 4000
MoveTo 519+x, 377+y
LeftClick 1
Delay 4000
MoveTo 786+x, 579+y
LeftClick 1
Delay 4000
MoveTo 407+x, 392+y
LeftClick 1
Delay 10000
MoveTo 706+x, 645+y
LeftClick 1
Delay 7000
//建造2-3R模块
KeyPress "R", 1
MoveTo 326+x, 443+y
LeftClick 1
KeyPress ",", 2
KeyPress ".", 3
//自动开始下一波x次模块
i = 0
Do
IfColor 883+x,652+y,"00D69C",0
Then
KeyPress "Space", 2
i = i + 1
Delay 500
End If
Delay 1000
Loop While i < 12 //次数
//建造2-2C模块
KeyPress "C", 1
MoveTo 430+x, 387+y //坐标
LeftClick 1
KeyPress ",", 2
KeyPress ".", 2
//游戏结束,退回主界面模块
Do
IfColor 359+x, 292+y, "F8AE41", 0 Then
Delay 1000
IfColor 359+x, 292+y, "F8AE41", 0 Then
Exit Do
End If
End If
Delay 1000
Loop
MoveTo 622+x, 549+y
LeftClick 1
Delay 4000
MoveTo 328+x, 504+y
LeftClick 1
Delay 6000
MoveTo 801+x, 334+y
LeftClick 1
Delay 5000










