按键【第三篇】x国梦

命令库

Import "zm.luae" //导入插件,只需执行一次

Function random(min, max)
    //要产生指定范围的随机整数，请使用以下公式： 
    //Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
    //例如产生2到6之间的随机数: 
    Randomize
    random = Int( ( (max-min+1) * Rnd()) + min)   

End Function

Function randlr(val)
    // 左右偏差n元素
    //要产生指定范围的随机整数，请使用以下公式： 
    Randomize
    dim offset = 5
    dim rnd_num = Rnd()
    If rnd_num > 0.5 Then 
        randlr = Int(val + offset * rnd_num)
    Else
        randlr = Int(val - offset * rnd_num)
    End If

End Function


Function baiduOcr(x1, y1, x2, y2)
    zm.Init  //初始化插件,只需执行一次
    
    Dim APIKey="xxx",SecretKey="xxx"
    Dim ret, t()
    //例子1: 设置默认通用文字识别
    If Not zm.OcrBaiDuInit(APIKey, SecretKey) Then
        TracePrint "初始化设置百度云识别失败"
        EndScript
    End If
    ret = zm.OcrBaiDu(x1, y1, x2, y2)
    TracePrint "识别结果:", ret
    baiduOcr = ret
End Function

自动领金

// x国梦
Import "TT.mql"

SetScreenScale 1080, 1920, 1
TracePrint 1

Do

	If ReadUIConfig("自动领金") Then 
		TracePrint 2
	
		Swipe TT.randlr(297),  TT.randlr(1260),  TT.randlr(295),   TT.randlr(605),   TT.randlr(205)
		Delay TT.random(1000, 3000)
		Swipe TT.randlr(555) , TT.randlr(1050),  TT.randlr(560),   TT.randlr(620),   TT.randlr(205)
		Delay TT.random(1000, 3000)
		Swipe TT.randlr(803),  TT.randlr(1003),  TT.randlr(803),   TT.randlr(500),   TT.randlr(205)
		
	End If
	
	Delay TT.random(2000, 5000)

Loop

　　

// x国梦
Import "TT.mql"


SetScreenScale 1080, 1920, 1
TracePrint 1

Dim 主界面 = Array(92,1802)
Dim 火车货物= Array( Array(662,1621), Array(819,1557), Array(970,1472) )
Dim 建筑= Array( Array(310,1181), Array(292,928), Array(299,706), Array(546,1070), Array(551,829), Array(553,574), Array(791,933), Array(793,684), Array(808,463) )
Dim 升级按钮= Array(977, 1150)


dim 领金延迟 = ReadUIConfig("领金延迟")
dim 升级延迟 = ReadUIConfig("升级延迟")

Do
    
    If ReadUIConfig("自动领金") Then 
        Call 自动领金()
    End If
    
    Delay TT.randlr(领金延迟 * 2000)
    
    If ReadUIConfig("卸货") Then 
        Call 自动卸货()
    End If
    
    If ReadUIConfig("自动领红包") Then 
        Call 自动领红包()
    End If 
    
    If ReadUIConfig("建筑升级") Then 
        Call 建筑升级()
    End If 
    

Loop


Sub 自动领金()
        Tap 主界面(0), 主界面(1)  //回到主界面
        TracePrint "自动领金在执行"
        Swipe TT.randlr(297),  TT.randlr(1260),  TT.randlr(295),   TT.randlr(605),   TT.randlr(205)
        Delay TT.random(1000, 3000)
        Swipe TT.randlr(555) , TT.randlr(1050),  TT.randlr(560),   TT.randlr(620),   TT.randlr(205)
        Delay TT.random(1000, 3000)
        Swipe TT.randlr(803),  TT.randlr(1003),  TT.randlr(803),   TT.randlr(500),   TT.randlr(205)    
End Sub

Sub 自动卸货()
        Tap 主界面(0), 主界面(1)  //回到主界面
        TracePrint "自动卸货在执行"
        Dim X,Y
        FindPic  TT.randlr(644), TT.randlr(1531), TT.randlr(831), TT.randlr(1661),"Attachment:火车.png","000000",0,0.9,X,Y
        If X > -1 Then 
            For 4  '循环卸货4次
                Delay TT.random(1000, 3000)
                For Each 货物 In 火车货物
                    Delay TT.random(1000, 1100)
                    Call 卸货(货物(0), 货物(1))
                Next    
            Next
        Else 
            TracePrint "火车还没来"
        End If
    
End Sub

Sub 卸货(x, y)
    For Each 货 In 建筑
        Swipe TT.randlr(x), TT.randlr(y), TT.randlr(货(0)), TT.randlr(货(1))
    Next
    
End Sub

Sub 自动领红包()
    Tap 主界面(0), 主界面(1)  //回到主界面
    TracePrint "自动领红包在执行"
    // 进入商店界面
    Dim X,Y
    FindColor 530, 1730, 612, 1765, "0C1099", 0, 0.9, X, Y
    
    If X > -1 Then 
        Tap X, Y
    Else 
        TracePrint "还没有红包"
        Exit Sub
    End If
    
    // 每种红包领取3次
    For 3
        // 领取福气红包
        Dim X1,Y1
        FindColor 276,632,304,664,"FFFFFF",0,0.9,X1,Y1
        If X1 > -1 Then 
            For 3
                Delay 3000
                Tap TT.randlr(X1), TT.randlr(Y1)
            Next
        End If
        
        // 领取多福红包
        Dim X2,Y2
        FindColor 610,632,639,669,"FFFFFF",0,0.9,X1,Y1
        If X1 > -1 Then 
            For 3
                Delay 3000
                Tap TT.randlr(X1), TT.randlr(Y1)
            Next
        End If
        
        //打开相册
        Dim X3,Y3
        FindColor 611,1318,644,1365,"FFFFFF",0,0.9,X2,Y2
        If X2 > -1 And Y2 > -1 Then
            Delay 2000
            Tap TT.randlr(X2),TT.randlr(Y2)
        End If
        
    Next

    TracePrint "红包领取结束"
    Tap 主界面(0), 主界面(1)  //回到主界面

    
End Sub

Sub 建筑升级()
    '升级概率: 0.3
    Tap 主界面(0), 主界面(1)  //回到主界面
    TracePrint "自动升级建筑在执行"
    Randomize
    If Rnd() > 0.4 Then 
        TracePrint "此次不升级"
        Exit Sub
    End If

    Tap 升级按钮(0), 升级按钮(1)
    For Each 每个 In 建筑
        Tap 每个(0), 每个(1)
        Delay TT.randlr(2000)
        Tap 858, 1750
        Delay 1000
    Next
    Tap 升级按钮(0), 升级按钮(1)
    Delay TT.randlr(升级延迟 * 1000)
    Tap 主界面(0), 主界面(1)  //回到主界面    
End Sub