武俠Q傳 EZScript自動打魔教

//BlueStacks 畫面請調為800x600
Var1 =  1 //目前關數
Var2 =  9000// 到那關停止

ExtVar[0] =1  //1=自動模式, 其它=監控模式

ExtVar[1] = 2//氣血重要性 0=不點, 1=可點, 2=30%必點
ExtVar[2] = 2 //武力重要性 0=不點
ExtVar[3] = 1 //防禦重要性 0=不點
ExtVar[4] = 1 //內力重要性 0=不點
ExtVar[5] = 0 //身法重要性 0=不點

// 以下會先判斷血戰, 再力戰
ExtVar[6] = 490 // 血戰最高關數, 0=不打血戰
ExtVar[7] = 550 // 力戰最高關數, 0=不打力戰

//上限設定(自動並不會計算3%)
ExtVar[31] = 3500 //氣血 2800
ExtVar[32] = 4000 //武力 2800 2415就打到1000?
ExtVar[33] = 1000 //防禦  300
ExtVar[34] = 650  //內力 400
ExtVar[35] = 0 //身法

//目前設定
ExtVar[36] = Var4//氣血
ExtVar[37] = Var5//武力
ExtVar[38] = Var6//防禦
ExtVar[39] = Var7//內力
ExtVar[40] = Var8 //身法

Pos1 = XY2Pos[250,250] // 3%位置
Pos2 = XY2Pos[400,250] // 15%位置
Pos3 = XY2Pos[550,250] // 30%位置

While Var2 >= Var1
    Var3 = Color[11338048]
    Var4 = ExtVar[36] //目前氣血%數檢查
    Var5 = ExtVar[37] //目前武力%數檢查
    Var6 = ExtVar[38] //目前防禦%數檢查
    Var7 = ExtVar[39] //目前內力%數檢查
    Var8 = ExtVar[40] //目前身法%數檢查

    //(血戰/力戰/奮戰)
    If Var3=1450400
        If Var1 < ExtVar[6]
           ExtVar[21] = 27328757
        ElseIf Var1 < ExtVar[7]
           ExtVar[21] = 27197839
        Else
           ExtVar[21] = 27263553
        End If
        Call Click
    //加強屬性視窗
    ElseIf Var3=9231841
        ExtVar[21] = 0
        ExtVar[13]= 0
        //判斷30%
        Call CheckColor
        //ExtVar[12] = ExtVar[ExtVar[11]]
        //If ExtVar[11] = 0 //判斷不出屬性
            // ExtVar[12] = 0
        //    stop
        If ExtVar[ExtVar[11]] = 2 // 此屬性必點
            ExtVar[21] = XY2Pos[550,250]
        Else
            //判斷15%
            If ExtVar[12] = 0 //判斷不出屬性, 直接點3%
                ExtVar[21] = XY2Pos[250,250]
                Stop
            ElseIf ExtVar[ExtVar[12]] = 2
                // 此屬性必點
                ExtVar[21] = XY2Pos[400,250]
            Else
                //如果連15%都沒有必點, 就判斷30%的是否有比15%重要
                If ExtVar[ExtVar[11]] > ExtVar[ExtVar[12]]
                    ExtVar[21] = XY2Pos[550,250]
                //如果30%沒有比較大, 就判斷15%, 是否可以點
            ElseIf ExtVar[ExtVar[12]]  >= 1
  if ExtVar[ExtVar[11]] = ExtVar[ExtVar[12]]
        ExtVar[21] = XY2Pos[550,250]
  Else
                        ExtVar[21] = XY2Pos[400,250]
                   End If
                Else
              ExtVar[21] = XY2Pos[250,250]
             End If
          End If
        End If
        //If ExtVar[21] = 0
            //到這行就代表有問題了, 或是星星不夠15%跟30%
            //stop
        If ExtVar[21] != 0
   If ExtVar[22] != Var1
    ExtVar[45] = 0
            If ExtVar[21] = XY2Pos[550,250] //30%
      ExtVar[ExtVar[11]+35] = ExtVar[ExtVar[11]+35] + 30
              ExtVar[45] = ExtVar[11]
            ElseIf ExtVar[21] = XY2Pos[400,250] //15%
      ExtVar[ExtVar[12]+35] = ExtVar[ExtVar[12]+35] + 15
              ExtVar[45] = ExtVar[12]
            Else
      ExtVar[ExtVar[13]+35] = ExtVar[ExtVar[13]+35] + 3
              ExtVar[45] = ExtVar[13]
            End If
    If ExtVar[45]>0 && ExtVar[ExtVar[45]+35] >= ExtVar[ExtVar[45]+30]
              ExtVar[ExtVar[45]]=0
            End If
       ExtVar[22]=Var1
   End If
            Call Click
        End If
    // 掌門有驚喜
    ElseIf Var3=4016461 || Var3=8827838
           ExtVar[21] = 29557138
           Call Click
    ElseIf Var3=5590043||Var3=5591328
        //判斷是否完勝
          If Color[7667880]=4210752
             Var3= Color[11338048]
          Else
             ExtVar[21]=32768491
             Call Click
             Var1 = Var1 + 1
          End If
    End If
Wend
stop

CheckColor:
   Pos6 = Color[XY2Pos[550,250]]
   ExtVar[11] = 0
   //氣血 ok
   If Pos6 = 10049757
       ExtVar[11] = 1
   End If
   //武力 ok
   If Pos6 = 3364314
       ExtVar[11] = 2
   End If
   //防禦 OK
   If Pos6 = 5820412
       ExtVar[11] = 3
   End If
   //內力 ok
   If Pos6 = 11181104
       ExtVar[11] = 4
   End If
   //身法 ok
   If Pos6 = 4500002
       ExtVar[11] = 5
   End If

   Pos6 = Color[XY2Pos[400,250]]
   ExtVar[12] = 0
   //氣血 ok
   If Pos6 = 11036381
       ExtVar[12] = 1
   End If
   //武力 ok
   If Pos6 = 3364315
       ExtVar[12] = 2
   End If
   //防禦 ok
   If Pos6 = 5757949
       ExtVar[12] = 3
   End If
   //內力 OK
   If Pos6 = 10197809
       ExtVar[12] = 4
   End If
   //身法 ok
   If Pos6 = 4500002
       ExtVar[12] = 5
   End If

   Pos6 = Color[XY2Pos[250,250]]
   ExtVar[13] = 0
   //氣血 ok
   If Pos6 = 10509533
       ExtVar[13] = 1
   End If
   //武力 ok
   If Pos6 = 3364317
       ExtVar[13] = 2
   End If
   //防禦 ok
   If Pos6 = 5624831
       ExtVar[13] = 3
   End If
   //內力 ok
   If Pos6 = 10721587
       ExtVar[13] = 4
   End If
   //身法 ok
   If Pos6 = 4500002
       ExtVar[13] = 5
   End If
   Return


Click:
      ExtVar[45]= Var3
     If ExtVar[0] = 1
       Left Click ExtVar[21]
     Else
       MouseMove ExtVar[21]
     End If
     Delay (500)
     While  Color[11338048]=ExtVar[45]
     Wend
     Return