EZ可掛自動打怪腳本 (只有近戰)

kaka2803

注意:
要先放攻擊在F1
自動撿寶在F2

//-----------------------------------------
//-----------------------------------------
Var1 = 0 //是否使用原點打怪功能[紅怪打你才會反擊]..啟用1.關閉0
Var2 = 0 //補助技能[傲氣狂怒]..啟用1.關閉0
Var3 = 0 //補助技能[蘊氣心流]..啟用1.關閉0
Var4 = 0 //補助技能[閃影步法]..啟用1.關閉0
Var5 = 0 //攻擊技能..啟用1.關閉0
Var6 = 1 //撿東西程序..啟用1.關閉0
Var7 = 0 //取消組隊.交易.好友功能..啟用1.關閉0
Var8 = 0 //遇人自動說話功能[腳本最下面可以設定你要說的話]..啟用1.關閉0..[請將小地圖放到最大]
Pos1 = 0 //遇人暫停腳本.走後繼續..啟動1.關閉0..[使用時請將小地圖放到最大]
Pos2 = 80 //補HP.請設定%數.1-99之間.預設是80%補血
Pos3 = 10 //防卡點程序.建議設定在5-30之間.[打怪物的次數.幾次後如果怪物的血量是滿的.重新執行]
Pos4 = 0 //設定是否使用範圍內打怪..啟用1.關閉0
Pos5 = 20 //設定範圍..[必須啟動範圍內打怪]
//-----------------------------------------
ExtVar[17] = ReadMemory[0x00717E28,3] //X座標
ExtVar[18] = ReadMemory[0x00717E24,3] //y座標
//-----------------------------------------
Start_FOD: //原點程序
If Var1 = 1
ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
While ExtVar[0] = -1
ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
Delay(500)
Wend
End If
CAll GET_MP
Return
//-----------------------------------------
GET_MP: //補助技能程序
ExtVar[4] = GetPicPos["Picture\oo.bmp",XY2Pos[50,577],XY2Pos[224,620],30] //F4的圖片
ExtVar[5] = GetPicPos["Picture\pp.bmp",XY2Pos[50,577],XY2Pos[224,620],30] //F5的圖片
ExtVar[6] = GetPicPos["Picture\qq.bmp",XY2Pos[50,577],XY2Pos[224,620],30] //F6的圖片
If Var2 = 1
If ExtVar[4] = -1  //傲氣狂怒
KeyPress(115)
Delay(2500)
End If
End If
If Var3 = 1
If ExtVar[5] = -1  //蘊氣心流
KeyPress(116)
Delay(2500)
End If
End If
If Var4 = 1
If ExtVar[6] = -1  //閃影步法
KeyPress(117)
Delay(2500)
End If
End If
Call Look_For_Map_Atk
//-----------------------------------------
Look_For_Map_Atk: //搜尋怪程序
ExtVar[3] = 0
ExtVar[25] = 0
ExtVar[26] = 0
KeyPress(9)
KeyPress(F1)
KeyPress(F2)
Delay(100)
ExtVar[7] = Color[XY2Pos[840, 36], 50]
If ExtVar[7] < 3096319 //搜尋到怪的血量有人打過就重新搜尋,避免發生搶怪
Call Look_For_Map_Atk
End If
Call OVER
Return
//-----------------------------------------
OVER: //打完怪物程序
ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30] //普通怪物
ExtVar[1] = GetPicPos["Picture\aa.bmp",XY2Pos[643,0],XY2Pos[695,51],30] //洞內怪物
ExtVar[2] = GetPicPos["Picture\hh.bmp",XY2Pos[643,0],XY2Pos[695,51],30] //王
While ExtVar[0] > -1 || ExtVar[1] > -1 || ExtVar[2] > -1
ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
ExtVar[1] = GetPicPos["Picture\aa.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
ExtVar[2] = GetPicPos["Picture\hh.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
If Var5 = 1
ExtVar[8] = Color[XY2Pos[160, 49], 50]
If ExtVar[8] = 16750895
KeyPress(118)
Delay(2000)
End If
End If
KeyPress(F2)
Delay(500)
ExtVar[3] = ExtVar[3]+1 //防卡點程序
If ExtVar[3] > Pos3
Delay(500)
ExtVar[9] = Color[XY2Pos[840, 36], 50]
If ExtVar[9] = 3096319
Call Look_For_Map_Atk
End If
End If
Call HP
Wend
Call Take_Something
Return
//------------------------------------------
HP: //補血程序
ExtVar[10] = GetColorPos[3096319,XY2Pos[Pos2*1.14+100,36],XY2Pos[214,39]] //HP
If ExtVar[10] < 0
KeyPress(114)
End If
ExtVar[11] = GetColorPos[3096319,XY2Pos[30*1.14+100,36],XY2Pos[214,39]] //HP低於30%回城
If ExtVar[11] < 0
KeyPress(119)
Delay(3000)
Stop
End If
Call BAD
Return
//-----------------------------------------
BAD: //武器更換程序
ExtVar[12] = GetPicPos["Picture\bad.bmp",XY2Pos[380,113],XY2Pos[404,134],30]
If ExtVar[12] > -1 //武器損壞替換
Delay(500)
ExtVar[13] = ExtVar[13]+1
If ExtVar[13] = 1 || ExtVar[13] = 3 || ExtVar[13] = 5
KeyPress(120)
Delay(3000)
End If
End If
ExtVar[12] = GetPicPos["Picture\bad.bmp",XY2Pos[380,113],XY2Pos[404,134],30]
If ExtVar[12] > -1 //武器損壞替換
If ExtVar[13] = 2 || ExtVar[13] = 4 || ExtVar[13] = 6
KeyPress(121)
Delay(3000)
End If
End If
ExtVar[12] = GetPicPos["Picture\bad.bmp",XY2Pos[380,113],XY2Pos[404,134],30]
If ExtVar[12] > -1 //全部武器損壞回程
If ExtVar[13] > 7
KeyPress(119)
Delay(3000)
Stop
End If
End If
Call OVER
Return
//-----------------------------------------
Take_Something: //撿東西程序
If Var6 = 1
KeyPress(113)
Delay(700)
KeyPress(113)
Delay(700)
KeyPress(113)
Delay(700)
End If
Call Cancel
Return
//-----------------------------------------
Cancel: //取消組隊.交易.好友功能.自動說話功能
If Var7 = 1
ExtVar[14] = GetPicPos["Picture\ii.bmp",XY2Pos[514,419],XY2Pos[558,436],30]
If ExtVar[14] > -1
MouseMove XY2Pos[535,427]
Delay(1000)
Left DbClick
Delay(1000)
End If
End If
If Var8 = 1
ExtVar[15] = GetPicPos["Picture\say.bmp",XY2Pos[871,41],XY2Pos[980,113],30]
If ExtVar[15] > -1
KeyPress(13)
Delay(500)
Text "請不要搶點好嗎??非常感謝"  //請在" "之間輸入你想說的話
Delay(500)
KeyPress(13)
Delay(500)
MouseMove XY2Pos[520,388]
Delay(500)
Left DbClick
End If
End If
If Pos1 = 1
ExtVar[16] = GetPicPos["Picture\say.bmp",XY2Pos[871,41],XY2Pos[980,113],30]
While ExtVar[16] > -1 //遇人停止腳本
ExtVar[16] = GetPicPos["Picture\say.bmp",XY2Pos[871,41],XY2Pos[980,113],30]
Delay(1000)
ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
If ExtVar[0] > -1  //被紅怪打反擊
Call OVER
End If
Wend
End If
Call FOP
//-----------------------------------------
FOP:
If Pos4 = 1
ExtVar[19] = ReadMemory[0x00717E28,3] //X座標
ExtVar[20] = ReadMemory[0x00717E24,3] //y座標
ExtVar[21] = ExtVar[17]+Pos5
ExtVar[22] = ExtVar[17]-Pos5
ExtVar[23] = ExtVar[18]+Pos5
ExtVar[24] = ExtVar[18]-Pos5
While ExtVar[19] > ExtVar[21]
ExtVar[19] = ReadMemory[0x00717E28,3] //X座標
MouseMove XY2Pos[162,398]
Left DbClick
Delay(500)
ExtVar[25] = ExtVar[25]+1 //防卡點程序
If ExtVar[25] = 20
Call Look_For_Map_Atk
End If
Wend
While ExtVar[19] < ExtVar[22]
ExtVar[19] = ReadMemory[0x00717E28,3] //X座標
MouseMove XY2Pos[832,398]
Left DbClick
Delay(500)
ExtVar[25] = ExtVar[25]+1 //防卡點程序
If ExtVar[25] = 20
Call Look_For_Map_Atk
End If
Wend
While ExtVar[20] > ExtVar[23]
ExtVar[20] = ReadMemory[0x00717E24,3] //y座標
MouseMove XY2Pos[511,623]
Left DbClick
Delay(500)
ExtVar[26] = ExtVar[26]+1 //防卡點程序
If ExtVar[26] = 20
Call Look_For_Map_Atk
End If
Wend
While ExtVar[20] < ExtVar[24]
ExtVar[20] = ReadMemory[0x00717E24,3] //y座標
MouseMove XY2Pos[505,95]
Left DbClick
Delay(500)
ExtVar[26] = ExtVar[26]+1 //防卡點程序
If ExtVar[26] = 20
Call Look_For_Map_Atk
End If
Wend
End If
Call Start_FOD
Return
//-----------------------------------------

外掛聯合國

[分享] EZ可掛自動打怪腳本 (只有近戰)