zxcv 寫:相信我
真的能打贏礦怪的
還可以自動撿錢
撿礦
另外
讚成樓下仁兄的看法
想會用
我想要花的時間大概不會少於手動挖礦到GM的時間吧
再者
遊戲的樂趣本來就是自我尋找的
說真的會用這樣的東西
成就感會是想不到的大!!
剛看哇啊亂啊，感覺很難，其實看細點，還好，不過還是有幾個不會，大大能教嗎？看在跟你買過礦的份上
ExtVar[10]=0 （ExtVar是什麼啊？另一種Var嗎？）
While ExtVar[10]=0 （當不是時？）
M1: （這是指挖的點？）
ExtVar[9]=1 （ExtVar是什麼啊？另一種Var嗎？）
Call Mining （會了）
Return （這是？）
----------------------↓有待了解中
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
--------------------------------
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 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
-------------------------------------------
//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
----------------------------------------------------------------↑未了解
