有沒有機戰自動打怪腳本（機戰腳本）

大家好，我是小夏，我來為大家解答以上問題。有沒有機戰自動打怪腳本，機戰腳本很多人還不知道，現在讓我們一起來看看吧！

1、按鍵精靈

2、打怪的

3、機戰自動打怪簡易腳本

4、今天用按鍵里的原有腳本組合改造出了一個機戰的自動打怪腳本，初測試了一下可以用，不過有幾個地方不足，一是不能鎖定坐標，由于是兩點抓色的尋怪，所以會有亂跑的可能，不能自動檢物品（包括錢，水晶，裝備，核心）。第一次做腳本，還請大家共同研究，有那位朋友能將這個腳本改進的也發上來共同研究下。有時間的話，我把抓圖也加進去，這樣就可以檢東西了，不過這個需要比較長的時間，最近比較忙沒太多的時間弄。腳本中不能技能只能平砍，紅放在F6。

5、UserVar LTop=262,154 鼠標活動范圍：左上角坐標

6、UserVar RBot=776,491 鼠標活動范圍：右下角坐標

7、UserVar Center=493,292方形漸開搜怪起點

8、UserVar L=15 2個搜怪點之間的距離

9、UserVar M=2 從第幾圈開始搜索

10、//變量定義

11、Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2

12、s=InStr(LTop,",")

13、a1=int(Mid(LTop,1,s-1))

14、b1=int(Mid(LTop,s+1))

15、s=InStr(RBot,",")

16、a2=int(Mid(RBot,1,s-1))

17、b2=int(Mid(RBot,s+1))

18、s=InStr(Center,",")

19、x0=int(Mid(Center,1,s-1))

20、y0=int(Mid(Center,s+1))

21、If x0-a1>=a2-x0

22、 n=a1

23、Else

24、 n=x0-(a2-x0)

25、EndIf

26、Rem 開始

27、//循環開始標記

28、Delay 32

29、Rem 補紅

30、IfColor 196,31,92ff,1

31、Else

32、 KeyPress 117,1

33、 Delay 256

34、 //補血延時

35、EndIf

36、v=L

37、i=M

38、x=x0:y=y0-v

39、While x>=n

40、 k1=0:k2=v

41、 For 2

42、 For i

43、 x=x+k1:y=y+k2

44、 If x>=a1 and x<=a2 and y>=b1 and y<=b2

45、 VBSCall c1=GetPixelColor(x,y)

46、 MoveTo x y

47、 Delay 10

48、 VBSCall c2=GetPixelColor(x,y)

49、 If c1<>c2

50、 LeftClick 1

51、 //打怪代碼

52、 Delay 8000

53、 //打完怪后再重新開始搜索

54、 EndIf

55、 Delay 1

56、 EndIf

57、 EndFor

58、 k1=v:k2=0

59、 EndFor

60、 i=i+1:v=v*(-1)

61、EndWhile

62、Delay 200

63、//搜索完鼠標活動范圍后重新開始搜索

64、Goto 開始

65、 這是找怪的

66、Rem 找怪

67、VBSCall FindPic(173,201,1100,600,"sinuezhe.bmp",0.8,x,y)

68、If x>=0 and y>=0

69、 i=0

70、 MoveTo x+10 y+10

71、 Delay 50

72、 MoveR 30,60

73、 Delay 60

74、 LeftDoubleClick 1

75、 Delay 1000

76、 RightClick 1

77、 Delay 1500

78、 RightClick 1

79、 Delay 1000

80、EndIf

81、Goto 錢

82、Rem 錢

83、For 5

84、 VBSCall FindPic(173,201,1136,652,"qian.bmp",0.9,x,y)

85、 If x>=0 and y>=0

86、 MoveTo x+10 y+10

87、 Delay 50

88、 MoveR -22,13

89、 Delay 250

90、 LeftClick 1

91、 Delay 1500

92、 VBSCall FindPic(441,273,777,535,"sinuezhe.bmp",0.8,x,y)

93、 If x>=0 and y>=0

94、 Goto 找怪

95、 EndIf

96、 EndIf

97、EndFor

98、goto 找怪

99、這是我的機戰找怪的腳本命令 圖片見附件。圖片的制作其實非常簡單，論壇當中有說明的。但是需要補充就是背景顏色不一定非得是白色。:lol :lol

100、自動檢物品的沒有..

101、根本不起作用 例如這些水晶 流星之類的 抓圖什么都不起作用

本文到此講解完畢了，希望對大家有幫助。