按鍵精靈

If Plugin.File.ReadINI("Command", "LT_x", ".\Config.ini") = "" Then
    MsgBox "第一次啟動，需抓取遊戲窗口位置，抓取完以後，請不要在更動介面大小或位置"
    Call S_Post()
    MsgBox "抓取完成，請進到遊戲中在重新啟動"
    EndScript
Else
    If MsgBox("如果你已經有更動過界面大小或者遊戲窗口位置，請按下【是】重新抓取，如要開始請直接按下【否】，按下【否】以後，請務必ㄧ定要在LEVEL1-3並且有出現顏色球，系統才可以運作。", 4, "窗口校正") = 6 Then
        Call S_Post()
        MsgBox "抓取完成，請進到遊戲中在重新啟動"
        EndScript
    End If
End If
LT_x = Plugin.File.ReadINI("Command", "LT_x", ".\Config.ini")
LT_y = Plugin.File.ReadINI("Command", "LT_y", ".\Config.ini")
RD_x = Plugin.File.ReadINI("Command", "RD_x", ".\Config.ini")
RD_y = Plugin.File.ReadINI("Command", "RD_y", ".\Config.ini")
C_x = Plugin.File.ReadINI("Command", "C_x", ".\Config.ini")
C_y = Plugin.File.ReadINI("Command", "C_y", ".\Config.ini")
G_D_X = Plugin.File.ReadINI("Command", "G_D_X", ".\Config.ini")
G_D_Y = Plugin.File.ReadINI("Command", "G_D_Y", ".\Config.ini")
G_T_X = Plugin.File.ReadINI("Command", "G_T_X", ".\Config.ini")
G_T_Y = Plugin.File.ReadINI("Command", "G_T_Y", ".\Config.ini")
M_C_X = (RD_x - LT_x) / 100
M_C_Y = (RD_y - LT_y) / 100
Dim B_C(4)
B_C(0) = GetPixelColor(G_T_X + (G_D_X - G_T_X) * 0.3 , G_T_Y + (G_D_Y - G_T_Y) * 0.3)
B_C(1) = GetPixelColor(G_T_X + (G_D_X - G_T_X) * 0.7 , G_T_Y + (G_D_Y - G_T_Y) * 0.3)
B_C(2) = GetPixelColor(G_T_X + (G_D_X - G_T_X) * 0.3 , G_T_Y + (G_D_Y - G_T_Y) * 0.7)
B_C(3) = GetPixelColor(G_T_X + (G_D_X - G_T_X) * 0.7 , G_T_Y + (G_D_Y - G_T_Y) * 0.7)
B_S_A = B_C(0)
B_S_A_C = 1
B_S_B_C = 0
For i = 1 To 3
    If B_C(i) = B_S_A Then
        B_S_A_C = B_S_A_C + 1
        B_S_A_C_C = B_C(i)
    Else
        If B_S_B = "" Then
            B_S_B = B_C(i)
        End If
        B_S_B_C = B_S_B_C + 1
        B_S_B_C_C = B_C(i)
    End If
Next
If B_S_A_C > B_S_B_C Then
    N_C = B_S_B
Else
    N_C = B_S_A
End If
M_C_M = 25
//電腦不好的G_D自行+200
G_D = 300
Do
    FindColor G_T_X, G_T_Y, G_D_X, G_D_Y, N_C, intX, intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY + (M_C_Y * 4)
        T_N_K = GetPixelColor(intX + (M_C_X * M_C_M), intY + (M_C_Y * 4))
        If T_N_K = "35222A" or CInt(intX + (M_C_X * M_C_M)) > CInt(G_D_X) Then
            N_C = GetPixelColor(intX - (M_C_X * M_C_M), intY + (M_C_Y * 4))
        Else
            N_C = GetPixelColor(intX + (M_C_X * M_C_M), intY + (M_C_Y * 4))
        End If
        LeftClick 1
        Delay G_D
    End If
    If G_C = 20 Then
        //電腦不好的G_D自行+200
        G_D = 250
    Else
        G_C = G_C + 1
    End If
Loop
Sub S_Post
    XY = Plugin.Color.FindMutiColor(0, 0, Plugin.Sys.GetScRX, Plugin.Sys.GetScRY, "35222A", "1|0|35222A,2|0|35222A,0|1|35222A,0|2|35222A", 1)
    ZB = InStr(XY, "|")
    X = Clng(Left(XY, ZB - 1)) : Y = Clng(Right(XY, Len(XY) - ZB))
    Call Plugin.File.WriteINI("Command", "LT_x", X, ".\Config.ini")
    Call Plugin.File.WriteINI("Command", "LT_y", Y, ".\Config.ini")
    Do
        If GetPixelColor(X, Y) = "35222A" Then
            X = X + 10
        Else
            X = X - 1
            If GetPixelColor(X, Y) = "35222A" Then
                r_sx = X
                Exit Do
            End If
        End If
        MoveTo X, Y
    Loop
    Do
        If GetPixelColor(X, Y) = "35222A" Then
            Y = Y + 10
        Else
            Y = Y - 1
            If GetPixelColor(X, Y) = "35222A" Then
                r_sy = Y
                Exit Do
            End If
        End If
        MoveTo X, Y
    Loop
    X = Clng(Left(XY, ZB - 1)) : Y = Clng(Right(XY, Len(XY) - ZB))
    Call Plugin.File.WriteINI("Command", "RD_x", r_sx, ".\Config.ini")
    Call Plugin.File.WriteINI("Command", "RD_y", r_sy, ".\Config.ini")
    C_x = X + ((r_sx - X) / 100) * 50
    C_y = Y + ((r_sy - Y) / 100) * 63.17
    Call Plugin.File.WriteINI("Command", "C_x", C_x, ".\Config.ini")
    Call Plugin.File.WriteINI("Command", "C_y", C_y, ".\Config.ini")
    G_D_X = X + ((r_sx - X) / 100) * 90
    G_D_Y = Y + ((r_sy - Y) / 100) * 85.49
    G_T_X = X + ((r_sx - X) / 100) * 10
    G_T_Y = Y + ((r_sy - Y) / 100) * 40.85
    Call Plugin.File.WriteINI("Command", "G_D_X", G_D_X, ".\Config.ini")
    Call Plugin.File.WriteINI("Command", "G_D_Y", G_D_Y, ".\Config.ini")
    Call Plugin.File.WriteINI("Command", "G_T_X", G_T_X, ".\Config.ini")
    Call Plugin.File.WriteINI("Command", "G_T_Y", G_T_Y, ".\Config.ini")
End Sub