[分享]挖礦程式（含自動打怪）

[「邪王」石之軒]

真腫大......

[喵喵Berry]

真勇敢......

[「邪王」石之軒]

啤洒肚不要再脹大了呀

[Eric]

笨蟲不要來呀 ...

[「邪王」石之軒]

太長了....看都累了...甭說研究了....呵
大家加油^^...
說不定不久後我會常常上線了...

長老快回來呀 ...

[Eric]

太長了....看都累了...甭說研究了....呵
大家加油^^...
說不定不久後我會常常上線了...

師兄快回來呀 ...

[「邪王」石之軒]

不用po給我了......寫好給我用就好
最好順道幫我掛吧

[kimo2001]

＠＿＿＠｜｜
好長阿 看到頭昏了
如果你要的是伐木的EZS的話再等一陣子吧
我正在研究伐木的判斷程式
快寫好了 寫好了我會PO上來的@_@

[「邪王」石之軒]

fatality大的伐木ezs可說是我的失眠救星...
我每次看了三行就想睡了

[ZHANG]

太長了....看都累了...甭說研究了....呵
大家加油^^...
說不定不久後我會常常上線了...

[「邪王」石之軒]

看著Ben巨大的背景，我彷彿看到了FS輝煌的未來......

[kin98]

BEN大..可不可以研究依下這一篇腳本

看了很久..真的看不懂..

這是fatality寫的


[variable]
var1=1
var2=1
var3=500
var4=500
var5=12000
var6=1
var7=15
var8=350
pos1=
pos2=3998139
pos3=11076170
pos4=4915703
pos5=13304415
pos6=
pos7=13500791
pos8=100
[script]
//AutoMining in Northern Territory Vally
// from 1768,1089

//Var1 start line(next line)
//Var2 auto loot
//Var6=1 say funny words
ExtVar[10]=0
ExtVar[20]=15
ExtVar[21]=420
ExtVar[22]=390
ExtVar[23]=350
ExtVar[31]=0
While ExtVar[10]=0
On Hits<STR Jump Heal

If Var1=1
Var1=2
// A01+A02===============================
Var8=ExtVar[21]
Goto 1758,1089
Goto 1758,1075
Goto 1753,1075
Call M5
Call M6
Call M7
Goto 1753,1078
Call M5
Call M6
Call M7
Goto 1753,1081
Call M5
Call M6
Call M7
Goto 1753,1083
Call M5
Call M6
Goto 1753,1086
Call M5
Call M6
Call M7
Goto 1754,1086
Goto 1754,1088
Call M4
Call M5
Call M6
Call M7
Goto 1768,1088
Goto 1768,1089
Call Put

// A04+A03===============================
Goto 1760,1089
Goto 1760,1101
Goto 1759,1101
Call M4
Call M5
Call M6
Goto 1759,1100
Goto 1758,1100
Call M5
Call M6
Call M7
Goto 1758,1098
Goto 1757,1098
Call M5
Call M6
Call M7
Goto 1757,1095
Call M5
Call M6
Call M7
Goto 1757,1092
Call M5
Call M6
Call M7
Goto 1757,1090
Goto 1756,1090
Call M5
Call M6
Goto 1756,1089
Goto 1755,1089
Call M5
Goto 1768,1089
Call Put

// A06+A05===============================
Var8=ExtVar[22]
Goto 1760,1089
Goto 1760,1119
Call M5
Call M6
Call M7
Goto 1760,1116
Call M5
Call M6
Call M7
Goto 1760,1113
Call M5
Call M6
Call M7
Goto 1760,1110
Call M5
Call M6
Call M7
Goto 1760,1107
Call M5
Call M6
Call M7
Goto 1760,1104
Call M5
Call M6
Call M7
Goto 1760,1089
Goto 1768,1089
Call Put

// A08+A07===============================
Goto 1761,1089
Goto 1761,1136
Call M5
Call M6
Call M7
Goto 1761,1133
Call M5
Call M6
Call M7
Goto 1761,1130
Call M5
Call M6
Call M7
Goto 1761,1127
Call M5
Call M6
Call M7
Goto 1761,1124
Call M5
Call M6
Call M7
Goto 1761,1122
Goto 1760,1122
Call M5
Call M6
Call M7
Goto 1760,1089
Goto 1768,1089
Call Put

// A10+A09===============================
Var8=ExtVar[23]
Goto 1761,1089
Goto 1761,1151
Goto 1756,1151
Call M6
Call M7
Call M8
Call M1
Goto 1758,1151
Goto 1758,1149
Call M6
Call M7
Call M8
Goto 1759,1149
Goto 1759,1147
Call M6
Call M7
Goto 1760,1147
Goto 1760,1145
Call M5
Call M6
Call M7
Call M8
Goto 1761,1142
Call M5
Call M6
Call M7
Goto 1761,1139
Call M5
Call M6
Call M7
Goto 1761,1089
Goto 1768,1089
Call Put
Call Repair
End If

If Var1=2
Var1=3
// B02+B01===============================
Var8=ExtVar[21]
Goto 1775,1089
Goto 1775,1085
Call M3
Call M2
Call M1
Goto 1775,1082
Goto 1776,1082
Call M4
Call M3
Call M2
Call M1
Goto 1776,1079
Goto 1777,1079
Call M4
Call M3
Goto 1777,1078
Goto 1778,1078
Call M4
Call M3
Call M2
Call M1
Goto 1778,1075
Call M3
Call M2
Goto 1778,1074
Goto 1779,1074
Call M3
Call M2
Call M1
Goto 1773,1074
Goto 1773,1089
Goto 1768,1089
Call Put

// B04+B03===============================
Goto 1775,1089
Goto 1775,1103
Call M3
Call M2
Call M1
Goto 1775,1100
Call M3
Call M2
Call M1
Goto 1775,1097
Call M3
Call M2
Call M1
Goto 1775,1094
Call M3
Call M2
Call M1
Goto 1775,1091
Call M3
Call M2
Call M1
Goto 1775,1088
Call M3
Call M2
Call M1
Goto 1775,1089
Goto 1768,1089
Call Put

// B06+B05===============================
Var8=ExtVar[22]
Goto 1775,1089
Goto 1775,1119
Goto 1778,1119
Call M2
Call M1
Call M8
Goto 1777,1119
Goto 1777,1116
Call M3
Call M2
Call M1
Goto 1777,1113
Call M3
Call M2
Call M1
Goto 1777,1110
Call M3
Call M2
Call M1
Call M8
Goto 1776,1110
Goto 1776,1108
Call M2
Call M1
Call M8
Goto 1775,1108
Goto 1775,1106
Call M2
Call M1
Goto 1775,1089
Goto 1768,1089
Call Put

// B08+B07===============================
Goto 1775,1089
Goto 1775,1134
Goto 1778,1134
Call M3
Call M2
Call M1
Goto 1778,1131
Call M3
Call M2
Goto 1778,1130
Goto 1779,1130
Call M3
Call M2
Call M1
Goto 1779,1128
Call M2
Goto 1779,1126
Call M3
Call M2
Call M1
Goto 1779,1123
Call M3
Call M2
Call M1
Goto 1779,1120
Call M3
Call M2
Call M1
Goto 1775,1120
Goto 1775,1089
Goto 1768,1089
Call Put

// B10+B09===============================
Var8=ExtVar[23]
Goto 1775,1089
Goto 1775,1152
Goto 1779,1152
Call M3
Call M2
Call M1
Goto 1779,1149
Call M3
Call M2
Call M1
Goto 1779,1146
Call M3
Call M2
Call M1
Goto 1779,1144
Call M2
Goto 1779,1142
Call M3
Call M2
Call M1
Goto 1779,1139
Call M3
Call M2
Call M1
Goto 1779,1138
Call M1
Call M8
Goto 1778,1138
Goto 1778,1137
Call M1
Goto 1775,1128
Goto 1775,1089
Goto 1768,1089
Call Put

// B11 ===================================
Goto 1775,1089
Goto 1775,1155
Goto 1776,1155
Goto 1776,1161
Goto 1778,1161
Call M4
Call M3
Call M2
Call M1
Goto 1778,1158
Call M3
Call M2
Call M1
Goto 1778,1155
Call M3
Call M2
Call M1
Goto 1775,1155
Goto 1775,1089
Goto 1768,1089
Call Put
Call Repair
End If

If Var1=3
Var1=1
// C02+C01===============================
Var8=ExtVar[21]
Goto 1758,1089
Goto 1758,1065
Goto 1738,1065
Goto 1738,1060
Call M7
Call M8
Call M1
Goto 1741,1060
Call M7
Call M8
Call M1
Call M2
Goto 1741,1061
Goto 1743,1061
Call M8
Call M1
Goto 1743,1062
Goto 1745,1062
Call M7
Call M8
Call M1
Call M2
Goto 1745,1063
Goto 1748,1063
Call M7
Call M8
Call M1
Call M2
Goto 1748,1064
Goto 1749,1064
Call M1
Call M2
Goto 1749,1065
Goto 1758,1065
Goto 1758,1089
Goto 1768,1089
Call Put

// C04+C03===============================
Var8=ExtVar[22]
Goto 1758,1089
Goto 1758,1065
Goto 1723,1065
Goto 1723,1057
Call M7
Call M8
Call M1
Goto 1726,1057
Call M7
Call M8
Call M1
Goto 1729,1057
Call M7
Call M8
Call M1
Goto 1729,1058
Goto 1730,1058
Call M8
Call M1
Call M2
Goto 1730,1059
Goto 1731,1059
Call M1
Call M2
Goto 1731,1060
Goto 1734,1060
Call M7
Call M8
Call M1
Goto 1736,1060
Call M8
Goto 1736,1065
Goto 1758,1065
Goto 1758,1089
Goto 1768,1089
Call Put

// C06+C05===============================
Goto 1758,1089
Goto 1758,1065
Goto 1716,1065
Goto 1716,1060
Call M6
Call M7
Goto 1716,1061
Goto 1714,1061
Call M5
Call M6
Call M7
Call M8
Goto 1714,1064
Call M5
Call M6
Call M7
Goto 1717,1064
Goto 1717,1059
Call M6
Call M7
Call M8
Goto 1718,1059
Goto 1718,1058
Call M7
Call M8
Goto 1719,1058
Goto 1719,1057
Call M7
Call M8
Call M1
Goto 1721,1057
Call M8
Goto 1721,1065
Goto 1758,1065
Goto 1758,1089
Goto 1768,1089
Call Put

// C07+C08===============================
Goto 1758,1089
Goto 1758,1065
Goto 1714,1065
Goto 1714,1073
Call M5
Call M6
Call M7
Goto 1714,1070
Call M5
Call M6
Call M7
Goto 1714,1067
Call M5
Call M6
Call M7
Goto 1714,1074
Call M5
Call M4
Goto 1715,1074
Goto 1715,1075
Call M5
Call M4
Call M3
Goto 1718,1075
Call M5
Call M4
Call M3
Goto 1720,1075
Call M4
Goto 1720,1065
Goto 1758,1065
Goto 1758,1089
Goto 1768,1089
Call Put

// C09+C10===============================
Goto 1758,1089
Goto 1758,1065
Goto 1722,1065
Goto 1722,1075
Call M5
Call M4
Call M3
Goto 1724,1075
Call M4
Call M3
Call M2
Goto 1724,1074
Goto 1725,1074
Call M3
Call M2
Call M1
Goto 1725,1071
Goto 1726,1071
Call M4
Call M3
Call M2
Goto 1726,1070
Goto 1729,1070
Call M5
Call M4
Call M3
Call M2
Call M1
Goto 1729,1068
Goto 1730,1068
Call M3
Call M2
Call M1
Goto 1730,1065
Goto 1758,1065
Goto 1758,1089
Goto 1768,1089
Call Put

// C11+C12===============================
Var8=ExtVar[21]
Goto 1758,1089
Goto 1758,1065
Goto 1732,1065
Goto 1732,1066
Call M4
Call M3
Call M2
Goto 1732,1065
Goto 1735,1065
Call M5
Call M4
Call M3
Goto 1738,1065
Call M5
Call M4
Goto 1739,1065
Goto 1739,1066
Call M5
Call M4
Goto 1740,1066
Goto 1740,1067
Call M5
Call M4
Call M3
Goto 1743,1067
Goto 1743,1068
Call M6
Call M5
Call M4
Call M3
Goto 1745,1068
Goto 1745,1069
Call M5
Call M4
Call M3
Goto 1758,1069
Goto 1758,1089
Goto 1768,1089
Call Put

// C13 ===================================
Goto 1758,1089
Goto 1758,1065
Goto 1748,1069
Call M5
Call M4
Call M3
Goto 1751,1069
Call M5
Call M4
Goto 1752,1069
Goto 1752,1072
Call M7
Call M6
Call M5
Goto 1752,1073
Call M5
Goto 1758,1073
Goto 1758,1089
Goto 1768,1089
Call Put
Call Repair
End If

WEnd
Stop

//=========================== Sub Mining
M1:
ExtVar[9]=1
Call Mining
Return
M2:
ExtVar[9]=2
Call Mining
Return
M3:
ExtVar[9]=3
Call Mining
Return
M4:
ExtVar[9]=4
Call Mining
Return
M5:
ExtVar[9]=5
Call Mining
Return
M6:
ExtVar[9]=6
Call Mining
Return
M7:
ExtVar[9]=7
Call Mining
Return
M8:
ExtVar[9]=8
Call Mining
Return

Mining:
Repeat Var7
Sendmacro(ExtVar[9])
Delay Var4
If Color[28115000]=2626584
Break
End If
If Color[28115000]!=2626584
WaitForWghtChange(Var5)
End If
Delay Pos8
If Color[28311742]=2626584 && Color[28311744]=8946824 Then
Break
End If
End Repeat
Call CleanCorpse
Return

//======================= Sub CleanCorpse
CleanCorpse:
ExtVar[0]=GetColorPos[6321288,13435167,16384348]
If ExtVar[0]!=-1
Double Left Click ExtVar[0]
Delay Var3
Drag All From 15597876 to 12124480
Delay Var3
End If
ExtVar[0]=GetColorPos[1572952,13435167,16384348]
If ExtVar[0]!=-1
Double Left Click ExtVar[0]
Delay Var3
Drag All From 15597876 to 12124480
Delay Var3
End If
ExtVar[0]=GetColorPos[1048664,13435167,16384348]
If ExtVar[0]!=-1
Double Left Click ExtVar[0]
Delay Var3
Drag All From 15597876 to 12124480
Delay Var3
End If
If WGHT>Var8
Var7=0
End If
Return

//============================= Sub Heal
//Heal myself
Heal:
If Var6=1
Say "Prepare to die!"
End If
Sendmacro(15)
ExtVar[1]=0
ExtVar[2]=1
While ExtVar[1]<3
If Hits<10 && ExtVar[31]<5 Then
Say ".av8d .血剩不到 10 滴...."
ExtVar[31]=ExtVar[31]+1
End If
If Hits<STR
Sendkey(Alt+77)
Delay 4000
ExtVar[1]=0
Else
Delay 4000
ExtVar[1]=ExtVar[1]+1
ExtVar[31]=0
End If
WEnd
If Var6=1
Say "Piece of cake!"
End If
If Var2=1
Call AutoLoot
End If
Sendkey(9)
Resume

//============================== Sub Loot
AutoLoot:
Double Left Click 15663455
Delay 200
Double Left Click 16187734
Delay 200
Double Left Click 16843074
Delay 200
Double Left Click 16908591
Delay 200
Double Left Click 15270181
Delay 200
Double Left Click 12779814
Delay 200
Double Left Click 11206976
Delay 200
Double Left Click 12583264
Delay 200
Double Left Click 15597876
Delay 200
Delay Var3
//close paper doll
If Color[20447835]=4738136
Right Click 20447835
Delay Var3
End If

If Color[4915813]=5276848
//treasure map
ExtVar[0]=GetColorPos[4209880,Pos4,Pos5]
If ExtVar[0]!=-1
Drag All From ExtVar[0] to 12124480
Delay Var4
End If
//aqua ores
ExtVar[0]=GetColorPos[8418368,Pos4,Pos5]
If ExtVar[0]!=-1
Drag All From ExtVar[0] to 12124480
Delay Var4
End If
//iron ores
ExtVar[0]=GetColorPos[5788776,Pos4,Pos5]
If ExtVar[0]!=-1
Drag All From ExtVar[0] to 12124480
Delay Var4
End If
//aqua ores
ExtVar[0]=GetColorPos[8418368,Pos4,Pos5]
If ExtVar[0]!=-1
Drag All From ExtVar[0] to 12124480
Delay Var4
End If
//money
ExtVar[0]=GetColorPos[11416,Pos4,Pos5]
If ExtVar[0]!=-1
Drag All From ExtVar[0] to 12124480
Delay Var4
End If
End If
Return

//============================== Sub Put
//Put ores into chest
Put:
Goto 1768,1089
Delay Var3
//Drag area #1
//Pos2=3998139
//Pos3=11076170
Call Put2

//Drag area #2
//Pos2=10682806
//Pos3=12976628
//Call Put2

//Drag area #3
//Pos2=10945037
//Pos3=12059211
//Call Put2

//Pos2=3998139
//Pos3=11076170

If ExtVar[2]=1
//bandage
ExtVar[3]=100-User1
Drag ExtVar[3] From 10879319 To 9634257
Delay 1000

//used bandage
ExtVar[0]=GetColorPos[13161712,pos2,pos3]
If ExtVar[0]!=-1
Drag All from ExtVar[0] to pos7
Delay 1000
End IF
End If
ExtVar[2]=0
Var7=ExtVar[20]
Return

//============================== Sub Put2
Put2:
ExtVar[11]=0
While ExtVar[11]=0
ExtVar[12]=0
ExtVar[13]=WGHT
//Close Paperdoll
If Color[20447835]=4738136
Right Click 20447835
Delay Var3
End If
//Close & Open Backpack //force re-open
If Color[1114569]!=3167352
Sendkey(Alt+85)
Delay Var3
Sendkey(Alt+73)
Delay Var3
End If
//Drag ores and diamonds
//aqua
ExtVar[0]=GetColorPos[8418368,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//black
ExtVar[0]=GetColorPos[3152928,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//mytheril
ExtVar[0]=GetColorPos[5254184,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//valorite
ExtVar[0]=GetColorPos[6310984,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//verite
ExtVar[0]=GetColorPos[3167320,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//rose
ExtVar[0]=GetColorPos[4734048,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//golden
ExtVar[0]=GetColorPos[4220032,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//silver
ExtVar[0]=GetColorPos[9469048,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//shadow
ExtVar[0]=GetColorPos[3681328,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//bloodrock ore
ExtVar[0]=GetColorPos[2628672,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//agapite
ExtVar[0]=GetColorPos[4209744,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//copper
ExtVar[0]=GetColorPos[4209760,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//dull copper ore
ExtVar[0]=GetColorPos[3685472,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//old copper
ExtVar[0]=GetColorPos[3685416,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//rusty ore
ExtVar[0]=GetColorPos[2106424,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//bronze ore
ExtVar[0]=GetColorPos[2634832,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//iron ore
ExtVar[0]=GetColorPos[5788776,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put3
End If
//treasure map
ExtVar[0]=GetColorPos[4209880,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//sapphires
ExtVar[0]=GetColorPos[11033696,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//rubies
ExtVar[0]=GetColorPos[160,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//emeralds
ExtVar[0]=GetColorPos[3712048,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//tourmalines
ExtVar[0]=GetColorPos[3181696,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//star sapphires
ExtVar[0]=GetColorPos[16743528,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//amethysts
ExtVar[0]=GetColorPos[9974936,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//citrines
ExtVar[0]=GetColorPos[11416,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//diamonds
ExtVar[0]=GetColorPos[16733256,Pos2,Pos3]
If ExtVar[0]!=-1
Call Put4
End If
//not found!
If ExtVar[12]=0
Break
End If
If ExtVar[13]=WGHT
Goto 1768,1089
End If
WEnd
Return

//============================== Sub Put3
Put3:
Drag All From ExtVar[0] to Pos7
Delay Var3
Sendkey(Alt+73)
Delay Var3
ExtVar[12]=1
Return

//============================== Sub Put4
Put4:
Drag All From ExtVar[0] to Pos7
Delay Var3
ExtVar[12]=1
Return

//============================= Sub Repair
Repair:
Drag 11 from 11796844 to 5177813
Delay Var3
Repeat 6
Sendmacro(13)
Delay Var3
Sendmacro(14)
Delay Var3
End Repeat
Delay 1500
Drag All From GetColorPos[11576472,4850130,5702111] to 11796844
Delay Var3
Return

[TG]

BEN你還真是越來越厲害了...

[mahoro]

謝謝前輩

[kimo2001]

//此程式為修改EZS官方網站的範例～～修改人：Ben
//如此程式有問題可以用MSN找我
//此程式須配合UOA

//挖礦和釣魚範例
//f2為使用挖礦工具
//pos1為你站的位置
//var5和var6為delay 等待時間,自己視連線修改
//var7為挖5x5,如果是釣魚請把var7設成13,等待時間也不需那麼長


var5=500
var6=13000
var7=5
var1=0
repeat var7
var2=0
repeat var7
var3=(var1-var2)*22
var4=(var1+var2-var7+1)*22
pos2=pos1-x(var3)+y(var4)

if hits <=95 // 如果血量低於95 自動換武器
sendkey(40) // 把工具放下的熱鍵 (需配合UOA) 預設鍵↓
sendkey(40) // 把工具放下的熱鍵 (需配合UOA)
sendkey(38) // 把武器拿起的熱鍵 (需配合UOA) 預設鍵↑
sendkey(38) // 把武器拿起的熱鍵 (需配合UOA)
repeat 20
sendkey(116) // 按下F5自動使用繃帶補血
delay(3200)
end repeat
end if

sendkey(f2) // 按下F2為自動使用工具
delay(var5)
left click at pos2
delay(var6)

if hits <=95 //此程式碼跟上面的是一樣的
sendkey(40)
sendkey(40)
sendkey(38)
sendkey(38)
repeat 20
sendkey(116)
delay(3200)
end repeat
end if

var2=var2+1
end repeat
var1=var1+1
end repeat