想衝等但卻沒時間怎辦!讓安卓按鍵精靈幫忙 - Android 台灣中文網

1080*1920

登錄/註冊後可看大圖

052020202.png (85.39 KB, 下載次數: 0)

下載附件保存到相冊

2017-1-4 11:48 上傳

程式裡頭，有判斷補血功能以及閃退回遊戲

另外遊戲本身有內掛但無法發動技能，但已經有寫入判斷怪血量來施放技能

紅水的話就照我所擺的快捷鍵來放

或是可以自己在寫

登錄/註冊後可看大圖

115858t61y3hdddmukup6p.jpg (104.2 KB, 下載次數: 0)

下載附件保存到相冊

2017-1-4 11:58 上傳

當你載好電腦版+手機板的按鍵精靈後

開電腦版把(mqb)導入進去

就可以一目瞭然的看到所寫的語言

//----------------
Dim 帳號角色
Select Case ReadUIConfig("帳號角色")
Case 0
帳號角色 = 0
Case 1
帳號角色 = 1
Case 2
帳號角色 = 2
Case 3
帳號角色 = 3
Case 4
帳號角色 = 4
Case 5
帳號角色 = 5
End Select
Dim 人物角色
Select Case ReadUIConfig("人物角色")
Case 0
人物角色 = 0
Case 1
人物角色 = 1
Case 2
人物角色 = 2
Case 3
人物角色 = 3
Case 4
人物角色 = 4
Case 5
人物角色 = 5
End Select
Dim 技能
Select Case ReadUIConfig("技能")
Case 0
技能 = 0
Case 1
技能 = 1
Case 2
技能 = 2
Case 3
技能 = 3
Case 4
技能 = 4
Case 5
技能 = 5
End Select
Sub 帳號
//--帳號1~6
If 帳號角色 = 0 Then
Tap 645, 860
Delay 100
End If
If 帳號角色 = 1 Then
Tap 646, 1265
Delay 100
End If
If 帳號角色 = 2 Then
Tap 645, 1665
Delay 100
End If
If 帳號角色 = 3 Then
Tap 179, 861
Delay 100
End If
If 帳號角色 = 4 Then
Tap 181, 1263
Delay 100
End If
If 帳號角色 = 5 Then
Tap 178, 1662
Delay 100
End If
End Sub
Sub 人物
//人物角色1~6
If 人物角色= 0 Then
Call Ranger手()
End If
If 人物角色 = 1 Then
Call Swordsman士()
End If
If 人物角色 = 2 Then
End If
If 人物角色 = 3 Then
End If
If 人物角色 = 4 Then
End If
If 人物角色 = 5 Then
End If
End Sub
//-----------子程式-------------
Sub Swordsman士
//--血--
If CmpColorEx("991|384|2D93F5", 1) = 0 Then
Tap 339, 1386
Delay 100
Tap 285, 1711
End If
//--skill--
If CmpColorEx("954|205|FEF030,951|340|F2BC22",1) = 1 Then
Dim X1, X2, Y1, Y2
FindColor 880, 1, 110, 1919, "00FF00", 0, 1, X1, Y1
If X1 > 0 And Y1 > 0 Then
FindColor X1, Y1, X1 + 100, Y1, "00FF00", 2, 1, X2, Y2
If X2 > 0 And Y2 > 0 Then
Call skill()
End If
End If
End If
End Sub
//----------------------
Sub Ranger手
//--血不足--
If CmpColorEx("990|284|20D1FB", 1) = 0 Then
Tap 285, 1711
End If
//--buff--(目前還在研究如何可以在介面中選擇發動哪種BUFF)
Dim X, Y, aX, bY
FindPic 1079, 0, 820, 490, "Attachment:BUFF4.png", "000000", 0, 0.9, X, Y
If X = -1 And Y = -1 Then
Call BUFF()
End If
//--血量不足時馬上發動強力技
If CmpColorEx("989|230|19BFFB,990|230|1EDCFD", 1) = 0 Then
Call 保命技()
End If
//-skill(判斷怪血量發動技能)- -
If CmpColorEx("949|256|FADA21,959|255|FDE92D",1) = 1 Then
Call green()
End If
End Sub
Sub green
Dim X1, X2, Y1, Y2
FindColor 880, 1, 110, 1919, "00FF00", 0, 1, X1, Y1
If X1 > 0 And Y1 > 0 Then
FindColor X1, Y1, X1 + 100, Y1, "00FF00", 2, 1, X2, Y2
If X2 > 0 And Y2 > 0 Then
Call skill()
End If
End If
End Sub
//-----------------------------
Sub skill
//腳色人物1~6
If 技能 = 0 Then
End If
If 技能 = 1 Then
Call 急速連擊()
End If
If 技能 = 2 Then
Call 光速連擊()
End If
If 技能 = 3 Then
call 光速雙擊()
End If
If 技能 = 4 Then
call 依修塔之環()
End If
If 技能 = 5 Then
Call 組合技 ()
End If
If 技能 = 5 Then
Call 惡魔鐮刀()
End If
End Sub
//----------Ranger手--------skill--
Sub 急速連擊
If CmpColorEx("344|1371|696964", 1) = 0 Then
Tap 339, 1386
Delay 100
End If
End Sub
Sub 光速連擊()
Dim X,Y
FindPic 1079, 1250, 2, 1915, "Attachment:保命技.png", "000000", 2, 0.9, X, Y
If X > -1 And Y > -1 Then
Tap X, Y
Delay 100
End If
End Sub
Sub 光速雙擊()
Dim X,Y
FindPic 1079, 1250, 2, 1915, "Attachment:光速雙擊.png", "000000", 2, 0.9, X, Y
If X > -1 And Y > -1 Then
Tap X, Y
Delay 100
End If
End Sub
Sub 組合技
Dim X,Y
FindPic 1079, 1250, 2, 1915, "Attachment:保命技1.png", "000000", 2, 0.9, X, Y
If X > -1 And Y > -1 Then
Tap X, Y
Delay 100
End If
End Sub
Sub 保命技
Dim X,Y
FindPic 1079, 1250, 2, 1915, "Attachment:保命技1.png", "000000", 2, 0.9, X, Y
If X > -1 And Y > -1 Then
Tap X, Y
Delay 100
End If
End Sub
Sub 依修塔之環
Dim X,Y
FindPic 1079, 1250, 2, 1915, "Attachment:依修塔之環.png", "000000", 2, 1, X, Y
If X > -1 And Y > -1 Then
Tap X, Y
Delay 100
End If
End Sub
Sub BUFF
Dim intX, intY
FindPic 1079, 1250, 2, 1915, "Attachment:BUFF2.png", "000000", 2, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
End If
End Sub
//------------Swordsman士----skill-----
Sub 惡魔鐮刀
Dim X,Y
FindPic 1079, 1250, 2, 1915, "Attachment:劍士.png", "000000", 2, 0.9, X, Y
If X > -1 And Y > -1 Then
Tap X, Y
Delay 100
End If
End Sub
//-----------------------
//----------------主程式---------------------------
Do
//--遊戲畫面---
If CmpColorEx("948|1907|253243,879|1875|0CF5FC,778|1861|04CDFB", 0.9) = 1 Then
Call 人()
//--Auto--
If CmpColorEx("699|81|83C9EE,695|86|3C70A7,690|91|4577A7",1) = 1 Then
Tap 695, 86
End If
Else
//--閃退--
Dim intX, intY
FindPic 0, 0, 0, 0, "Attachment:重新.png|Attachment:重新1.png", "000000", 0, 0.7, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 5000
ElseIf CmpColorEx("45|1759|4D4035,42|1791|2B1D13,44|1843|56463A,44|1859|CDC8C4", 1) = 1 Then
Tap 45, 1860
ElseIf CmpColorEx("43|1692|433328,49|1749|524439,49|1792|2B1D13,44|1857|CDC8C4",1) = 1 Then
Tap 45, 1860
ElseIf CmpColorEx("1030|1864|000000,1032|1869|959595,1029|1869|FFFFFF,1030|1874|000000",1) = 1 Then
Tap 1030,1874
ElseIf CmpColorEx("1004|1672|000000,1003|1700|FDFDFD,1005|1714|000000",1) = 1 Then
Tap 1000, 1700
ElseIf CmpColorEx("1003|1101|B3D6F8,582|1040|27E2FD,414|1004|1F1E22",1) = 1 Then
Tap 1003, 1100
//---斷線
ElseIf CmpColorEx("919|958|DDEEFA,835|962|ABC2D6,314|961|39C4F6,248|960|119CDA",0.9) = 1 Then
Tap 290, 965
ElseIf CmpColorEx("213|31|776657,213|49|11CFFC,207|62|17A9F9,213|72|3E2928",1) = 1 Then
Tap 149, 1817
//----1--
ElseIf CmpColorEx("47|1836|0083E3,58|1142|00D8FC,975|587|FEFEFE,651|860|39B5F6",1) = 1 Then
Call 帳號()
Delay 1000
End If
End If
Loop
//-----------------------------

複製代碼

登錄/註冊後可看大圖

歡迎光臨 Android 台灣中文網 (https://apk.tw/)