家国梦:100:  自动化脚本

所需工具: Windows10、按键精灵手机助手、雷电模拟器

使用步骤:
1. 雷电模拟器设置分辨率为 手机版 1080*1920, 安装家国梦, 并登录;
2. PC上安装按键精灵手机助手, 连接雷电模拟器, 新建脚本, 把下边的脚本内容填进去, 点击调试;
3. enjoy

注: 不需要自动升级建筑, 自动打开红包的, 把对应的代码用 // 注释符号 注释掉就行了

```
Sub Auto()
	Tap 90, 1820
	Delay 500

	Dim HOUSE_X = Array(300,545,800,290,560,800,290,560,780)
	Dim HOUSE_Y = Array(1200,1080,950,960,820,725,720,580,450)
	Dim HOUSE_INDEX = 1

	Dim X(3), Y(3)
	X(1) = 660
	X(2) = 825
	X(3) = 975
	Y(1) = 1635
	Y(2) = 1555
	Y(3) = 1470

	Dim INDEX, UPCNT
	UPCNT = 0
	While True

		For INDEX = 1 To 3
			//TracePrint INDEX
			TouchDown X(INDEX), Y(INDEX)
			Delay 500
			Dim IntX,IntY
			FindColor 0,0,0,0,"80FFFF|81FFFF|80FF00",0,1.0,intX,intY
			If intX >-1 then
    			Traceprint "找到货物"
    			TouchMove intX + 50, intY
    			Delay 200
			Else
    			Traceprint "没有货物"
			End If
			TouchUp
		Next

		Delay 500
		TouchDown 200, 1280
		TouchMove 1000, 825
		TouchMove 820, 700
		TouchMove 170, 1045
		TouchMove 210, 760
		TouchMove 900, 400
		TouchUp

		Delay 500

		UPCNT = UPCNT + 1
		If UPCNT >= 10 Then
			UPCNT = 0
			Call Up(HOUSE_X(HOUSE_INDEX), HOUSE_Y(HOUSE_INDEX)) //升级指定房屋
			HOUSE_INDEX = HOUSE_INDEX + 1
			If HOUSE_INDEX > 9 Then
				HOUSE_INDEX = 1
			End If
			Delay 1000
		End If
	Wend
End Sub


Sub Up(X, Y)
	Tap 970, 1145 //进入升级
	Delay 1000

	while CmpColor(1050, 1160, "4DDDFF", 1.0) < 0
		Traceprint "等待进入升级页面"
		Delay 500
	Wend
	Tap X, Y  //点击建筑
	Delay 1000

	Dim intX, intY, res
	res = FindColor(900,1670, 990, 1700, "FFFFFF", 0, 1.0, intX, intY)
	//如果没有找到，intX和intY的值都会被置为-1
	While res > -1
		Tap 870, 1750
		Traceprint "升级一次"
		Delay 100
		res = FindColor(900,1670, 990, 1700, "FFFFFF", 0, 1.0, intX, intY)
	Wend

	Traceprint "金币不足"
	Tap 970, 1145 //退出升级
	Delay 1000
End Sub


Sub HB()
	Dim intX, intY, res
	Tap 525, 1810
	Delay 1000


	// 相册
	res = FindColor(540, 1520, 590, 1555, "3942FA", 0, 1.0, intX, intY)
	If res > -1 Then
		TracePrint "无相册"
	Else
		Tap 100, 1330
		Delay 500
		res = FindColor(790, 1070, 910, 1140, "2CD3FF", 0, 1.0, intX, intY)
		If res > -1 Then
			TracePrint "无相册"
		End If
		While intX = -1 And intY = -1
			Tap 100, 1330
			Delay 500
            If FindColor(540, 1520, 590, 1555, "3942FA", 0, 1.0, intX, intY) > -1 Then
				Goto skip
			End If
			FindColor 790, 1070, 910, 1140, "2CD3FF", 0, 1.0, intX, intY
		Wend
		Tap 300, 1120
		Delay 500
	End If

Rem skip
	// 满福红包
	res = FindColor(800, 825, 860, 875, "F2D075|F2CE75", 0, 1.0, intX, intY)
	If res > -1 Then
		TracePrint "无满福红包"
	End If
	While res<0
		TracePrint "满福红包 "
		Tap 865, 630
		Delay 1000
		res = FindColor(695, 1485, 715, 1540, "FFFFFF", 0, 1.0, intX, intY)
		While res>-1
			TracePrint "tap "&res
			Tap 545, 1040
			Delay 1000
			res = FindColor(695, 1485, 715, 1540, "FFFFFF", 0, 1.0, intX, intY)
		Wend
		res = FindColor(800, 825, 860, 875, "F2D075|F2CE75", 0, 1.0, intX, intY)
	Wend
	Delay 100

	// 多福红包
	res = FindColor(460, 825, 525, 875, "F2D075|F2CE75", 0, 1.0, intX, intY)
	If res > -1 Then
		TracePrint "无多福红包"
	End If
	While res<0
		TracePrint "多福红包 "
		Tap 530, 630
		Delay 1000
		res = FindColor(695, 1485, 715, 1540, "FFFFFF", 0, 1.0, intX, intY)
		While res>-1
			TracePrint "tap "&res
			Tap 545, 1040
			Delay 1000
			res = FindColor(695, 1485, 715, 1540, "FFFFFF", 0, 1.0, intX, intY)
		Wend
		res = FindColor(460, 825, 525, 875, "F2D075|F2CE75", 0, 1.0, intX, intY)
	Wend
	Delay 100

	// 福气红包
	res = FindColor(140, 825, 200, 875, "F2D075|F2CE75", 0, 1.0, intX, intY)
	If res > -1 Then
		TracePrint "无福气红包"
	End If
	While res<0
		TracePrint "福气红包 "
		Tap 200, 630
		Delay 1000
		res = FindColor(695, 1485, 715, 1540, "FFFFFF", 0, 1.0, intX, intY)
		While res>-1
			TracePrint "tap"
			Tap 545, 1040
			Delay 1000
			res = FindColor(695, 1485, 715, 1540, "FFFFFF", 0, 1.0, intX, intY)
		Wend
		res = FindColor(120, 825, 165, 875, "F2D075|F2CE75", 0, 1.0, intX, intY)
	Wend
	Delay 100

End Sub


Call HB()
Call Auto()
```