[已回复] 请问大神们一个关于按键精灵安卓版的怪异问题

Import "GK.luae"
Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次 
PutAttachment "/sdcard/Capture/", "*.*"

Dim 灵签基色_x                //灵签基准色取色点x坐标
Dim 灵签基色_y                //灵签基准色取色点y坐标
Dim 灵签比对_x                //灵签基比对点x坐标
Dim 灵签比对_y                //灵签基比对点y坐标
Dim 商店_x
Dim 商店_y
Dim mark09,mark12,mark18,mark21
//-------灵签基准色取色点坐标赋值---------------
灵签基色_x = array(127 , 835 , 127 , 835)                //灵签基准色取色点x坐标
灵签基色_y = array(217 , 217 , 425 , 425)                //灵签基准色取色点y坐标
//--------灵签比对点取色坐标赋值----------------
灵签比对_x = array(191 , 899 , 191 , 899)                //灵签基准色取色点x坐标
灵签比对_y = array(217 , 217 , 425 , 425)                //灵签基准色取色点y坐标
//-------商店货物栏位置坐标赋值----------------
商店_x = array(95 , 804, 95 , 804)                                                //货物栏左上角坐标X。货物栏左下角X坐标+695。商店_x(0-1-2-3-4-5)
商店_y = array(203, 203, 412, 412)                                                //货物栏左上角坐标Y。货物栏左下角Y坐标+194。商店_y(0-1-2-3-4-5)

//804+699=1503,412+199=611
//---------标记赋值----------------------------
mark09 = 0
mark12 = 0
mark18 = 0
mark21 = 0

If ReadUIConfig("自动购买") Then 
    TracePrint "选中自动购买:"
    Do
        //--------灵签商店(每天每个收获时间段只进入一次)-------
        TracePrint "时间:"&DateTime.Hour()
        TracePrint "mark09:"&mark09
        TracePrint "mark12:"&mark12
        TracePrint "mark18:"&mark18
        TracePrint "mark21:"&mark21

        If DateTime.Hour() >= 9 and DateTime.Hour()  < 12 and mark09 = 0 Then 
            Call 灵签商店()
            mark09 = 1
        End If
    
        If DateTime.Hour() >= 12 and DateTime.Hour() < 18 and mark12 = 0 Then 
            Call 灵签商店()
            mark12 = 1
        End If
    
        If DateTime.Hour() >= 18 and DateTime.Hour() < 21 and mark18 = 0 Then 
            Call 灵签商店()
            mark18 = 1
        End If
        If DateTime.Hour() >= 21 and DateTime.Hour() < 24 and mark21 = 0 Then 
            Call 灵签商店()
            mark21 = 1
        End If
        Delay 1800000
    Loop
End If

Sub 灵签商店()
    Tap 1410,455        //点击神将图
    Delay 2000
    Tap 440,60                //点击灵签商店
    Delay 2000
    For i = 1 To 4
                TracePrint i&":"&GetPixelColor(灵签比对_x(i-1), 灵签比对_y(i-1),0)&","& GetPixelColor(灵签基色_x(i-1), 灵签基色_y(i-1),0)
        If GetPixelColor(灵签比对_x(i-1), 灵签比对_y(i-1),0) <>  GetPixelColor(灵签基色_x(i-1), 灵签基色_y(i-1),0) Then 
            TracePrint "不相同"
            Dim arr1= Gk.Find2(商店_x(i - 1), 商店_y(i - 1), (商店_x(i - 1) + 699), (商店_y(i - 1) + 199),"Attachment:01-灵签币.png","101010",0,0.8) 
            Delay 500
            TracePrint i&","&arr1(1)&"灵签币！"
            Dim arr2= Gk.Find2(商店_x(i - 1), 商店_y(i - 1), (商店_x(i - 1) + 699), (商店_y(i - 1) + 199),"Attachment:02-灵签购买.png","101010",0,0.7) 
            Delay 500
            TracePrint i&","&arr2(1)&"购买！"
            If arr1(0) and arr2(0) Then 
                TracePrint i&"位置发现可购买灵签！"
                Delay 2000
                Tap arr2(1),arr2(2)
                Delay 2000
                Tap 800,80
                Delay 2000
            End If
        End If 
    Next
    Call 返回主界面()
End Sub

Sub 返回主界面()
    Do
        dim arr1= Gk.Find2( 0, 0, 1600, 900,"Attachment:00-主界面标志.png","101010",0,0.8) 
        Delay 1000
        If arr1(0) Then 
            Goto 已回到主界面
                Else 
            Tap 60, 32
            Delay 2000
        End If
    Loop
    Rem 已回到主界面
End Sub