End Sub

 
 
 
 

//建设脚本
Sub 建设判断
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 56, 200)
GetColor1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 56, 220)
GetColor2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 56, 240)
GetColor3 = Plugin.Bkgnd.GetPixelColor(Hwnd, 56, 260)
GetColor4 = Plugin.Bkgnd.GetPixelColor(Hwnd, 56, 280)

If GetColor = "31CF63" or GetColor1 = "31CF63" or GetColor2 = "31CF63" or GetColor3 = "31CF63" or GetColor4 = "31CF63" or GetColor = "33CC66" or GetColor1 = "33CC66" or GetColor2 = "33CC66" or GetColor3 = "33CC66" or GetColor4 = "33CC66"then
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Else
Goto wait
End If
End sub

//建设子程序

//建设民居
Sub 民居
Call 建设判断
Call 民居1
Delay 800
Call 建设判断
Call 民居2
Delay 800
Call 建设判断
Call 民居3
Delay 800
Call 建设判断
Call 民居4
Delay 800
Call 建设判断
Call 民居5
Delay 800
Call 建设判断
Call 民居6
Delay 800
Call 建设判断
Call 民居7
Delay 800
Call 建设判断
Call 民居8
Delay 800
End Sub


Sub 民居1
Call Plugin.Bkgnd.LeftClick(Hwnd, 500, 165)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 350)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 680, 196)
End Sub
 
Sub 民居2
Call Plugin.Bkgnd.LeftClick(Hwnd, 580, 220)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 350)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 680, 196)
End Sub

Sub 民居3
Call Plugin.Bkgnd.LeftClick(Hwnd, 650, 260)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 350)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 680, 196)
End Sub

Sub 民居4
Call Plugin.Bkgnd.LeftClick(Hwnd, 710, 305)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 350)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 680, 196)
End Sub

Sub 民居5
Call Plugin.Bkgnd.LeftClick(Hwnd, 645, 345)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 350)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 680, 196)
End Sub

Sub 民居6
Call Plugin.Bkgnd.LeftClick(Hwnd, 565, 85)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 350)
Delay 800
Call Plugin.Bkgnd.LeftClick(Hwnd, 680, 196)