EZS自動打怪&坐下

1. //腳本名稱：石器自動打怪
   
2. //腳本功能：．打怪坐下
   
3. //系統環境：．XP SP3，1024*768 32bit 60Hz，請自備EZQ/EZS，顯示晶片:NVIDIA(必需)
   
4. //遊戲環境：．螢幕大小1024*768,色彩品質32位元,其餘一律依照最初預設值
   
5. //前置動作：．先將腳色手動攻擊一次(戰鬥按esc)
   
6. //以下可調數值
   
7. var1 = 50 //hp%坐下
   
8. var2 = 50 //mp%坐下
   
9. var3 = 2 //1左 2右(先行方向)
   
10. var4 = 5 //移動範圍
    
11. //以上可調數值
    
12. extvar[21] = var1*0.76
    
13. extvar[22] = var2*0.76
    
14. extvar[23] = 1
    
15. extvar[12] = xy2pos[984,100]
    
16. Call xy
    
17. extvar[15] = extvar[11] - var4
    
18. extvar[16] = extvar[11] + var4
    
19. //extvar[12] = xy2pos[984,121]
    
20. //Call xy
    
21. //extvar[17] = extvar[11] - 10
    
22. //extvar[18] = extvar[11] + 10
    
23. start:
    
24. If Color[XY2Pos[993,50]] != 16777215
    
25. While Color[XY2Pos[993,50]] != 16777215
    
26.   KeyPress(27)
    
27.   extvar[23] = 1
    
28. Wend
    
29. Delay(1000)
    
30. End If
    
31. While Color[XY2Pos[520,258]] = 16777215
    
32. KeyPress(27)
    
33. Delay(500)
    
34. Wend
    
35. If extvar[23] = 1
    
36. Call hpmp
    
37. End If
    
38. extvar[12] = xy2pos[984,100]
    
39. Call xy
    
40. extvar[13] = extvar[11]
    
41. //extvar[12] = xy2pos[984,121]
    
42. //Call xy
    
43. //extvar[14] = extvar[11]
    
44. If extvar[13] > extvar[16] && var3 = 2
    
45. Left Click 25166071
    
46. var3 = 1
    
47. ElseIf extvar[15] > extvar[13] && var3 = 1
    
48. Left Click 25101058
    
49. var3 = 2
    
50. End If
    
51. If var3 = 1
    
52. Left Click 25166071
    
53. ElseIf var3 = 2
    
54. Left Click 25101058
    
55. End If
    
56. Jump start
    
57. xy:
    
58. extvar[11] = 0
    
59. Repeat 4
    
60. extvar[11] = extvar[11] * 10
    
61. If Color[extvar[12]+XY2Pos[2,0]] = 16777215
    
62.   extvar[10] = 5
    
63. ElseIf Color[extvar[12]+XY2Pos[2,7]] = 16777215
    
64.   extvar[10] = 4
    
65. ElseIf Color[extvar[12]+XY2Pos[3,4]] = 16777215
    
66.   extvar[10] = 8
    
67. ElseIf Color[extvar[12]+XY2Pos[3,5]] = 16777215
    
68.   extvar[10] = 1
    
69. ElseIf Color[extvar[12]+XY2Pos[2,3]] = 16777215
    
70.   extvar[10] = 6
    
71. ElseIf Color[extvar[12]+XY2Pos[3,7]] = 16777215
    
72.   extvar[10] = 2
    
73. ElseIf Color[extvar[12]+XY2Pos[3,2]] = 16777215
    
74.   extvar[10] = 3
    
75. ElseIf Color[extvar[12]+XY2Pos[2,6]] = 16777215
    
76.   extvar[10] = 9
    
77. ElseIf Color[extvar[12]+XY2Pos[1,1]] = 16777215
    
78.   extvar[10] = 7
    
79. Else
    
80.   extvar[10] = 0
    
81. End If
    
82. extvar[11] = extvar[10] + extvar[11]
    
83. extvar[12] = extvar[12] + 8
    
84. End Repeat
    
85. Return
    
86. hpmp:
    
87. extvar[20] = getcolorpos[10222325,0,xy2pos[1024,768]]
    
88. While extvar[20] < 0
    
89. KeyPress(84)
    
90. Delay(500)
    
91. extvar[20] = getcolorpos[10222325,0,xy2pos[1024,768]]
    
92. Wend
    
93. If Color[extvar[20] + extvar[21] + Y2Pos[18]] / 256 % 256 < 150
    
94. While Color[extvar[20] + XY2Pos[76,18]] / 256 % 256 < 150
    
95.   KeyPress(561)
    
96.   Delay(100)
    
97. Wend
    
98. ElseIf Color[extvar[20] + extvar[22] + XY2Pos[96,18]]/ 65536 < 150
    
99. While Color[extvar[20] + XY2Pos[172,18]]/ 65536 < 150
    
100.   KeyPress(561)
     
101.   Delay(100)
     
102. Wend
     
103. End If
     
104. While extvar[20] > 0
     
105. KeyPress(84)
     
106. Delay(500)
     
107. extvar[20] = getcolorpos[10222325,0,xy2pos[1024,768]]
     
108. Wend
     
109. extvar[23] = 0
     
110. Return

複製代碼

P.S 腳本如上,如要尋找ezs程式請自行想辦法(腳本及遊戲也好幾天沒動了)
左右移動範圍可在var4設定(絕不會卡點,因為是抓座標位置的)
進入遊戲後按alt+pause啟動喔(別在EZS下按執行啟動)!!!!

最重要的是"請用於台版",我也沒玩別的版本,不知道能過那些有加料的~~~

[ 本帖最後由 eggiex 於 2009-4-5 09:21 編輯 ]

感謝大大的分享           感謝唷

唷唷

現在只要在去下載ezs就可用哩

感謝大大的分享@@~~~~~~~~
YCT65B

可以給我EZS程式的載點嗎
謝謝大大

改版後一樣可以用喔..........太好了!!

感謝大大的分享@@
YCT47B YCT47B

感謝大大無私分享~!~

來去試試看！^^