熱血傳奇挖礦腳本怎麼寫

⑴ 求熱血傳奇百區（秒卡區）挖礦問題 要求百區高等玩家解答

其實只要是礦區就能出礦的·一般如下·樓上說的也是主要因素·

我一般就在 毒蛇山谷的礦區.大概中間那條細小的路上，有小房子旁邊挖.收獲肯定不錯。
其實主要就是運氣問題· 官方的挖礦腳本設置的很有規律的·就說個例子吧·

黑鐵礦是·1-10 也就是一個鐵礦需要你挖10下·
銀礦是 · 1-25 也就是一個銀礦需要你挖25下·
就這樣依此類推···

我說下裝備，穿狂風套+1對加準的手
在給你說個地方，在襖馬寺門口附近有個地方有些商店，在那裡有個小房子，你進去那也是個礦區，而且裡面沒怪的。

⑵ 求傳奇3G 2007 挖礦腳本（按鍵精靈）

For 4
Rem ==========ÏòÓÒÒƶ¯²¢ÍÚ£¨¹²8´Î£&;==========
For 8
IfColor 60 475 ff 1
KeyDown 18 1
KeyPress 88 1
KeyUp 18 1
MoveTo 420 350
Delay 200
LeftClick 1
MoveTo 420 350
Delay 200
LeftClick 1
Delay 500
KeyPress 109 1
EndIf
VBSCall Call FindPic(1,1,799,400,"84.bmp",0.9,intX,intY)
If intX=-1 and intY=-1
KeyPress 119 1
EndIf
MoveTo 307 168
Delay 2000
RightDown 1
Delay 1000
RightClick 1
MoveTo 564 71
Delay 1000
RightDown 1
Delay 1000
RightClick 1
Delay 1000
LeftClick 1
Delay 4000
LeftClick 1
Delay 30000
VBSCall Call FindPic(2,200,330,380,"ton.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
VBSCall Call FindPic(2,200,330,380,"tie.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
// VBSCall Call FindPic(2,200,330,380,"yin.bmp",1,intX,intY)
// If intX>=0 and intY>=0
// VBSCall Call SetCursorPos(intX,intY)
// LeftClick 1
// Delay 500
// MoveTo 100 100
// LeftClick 1
// Delay 1000
// EndIf
EndFor
Rem ==========Ïò×óÒƲ¢ÍÚ£¨¹²8´Î£&;==========
For 8
IfColor 60 475 ff 1
KeyDown 18 1
KeyPress 88 1
KeyUp 18 1
MoveTo 420 350
Delay 200
LeftClick 1
EndIf
VBSCall Call FindPic(1,1,799,400,"84.bmp",0.9,intX,intY)
If intX=-1 and intY=-1
KeyPress 119 1
EndIf
MoveTo 481 257
Delay 2000
RightDown 1
Delay 1000
RightClick 1
MoveTo 521 93
Delay 1000
RightDown 1
Delay 1000
RightClick 1
Delay 1000
LeftClick 1
Delay 4000
LeftClick 1
Delay 30000
VBSCall Call FindPic(2,200,330,380,"ton.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
VBSCall Call FindPic(2,200,330,380,"tie.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
// VBSCall Call FindPic(2,200,330,380,"yin.bmp",1,intX,intY)
// If intX>=0 and intY>=0
// VBSCall Call SetCursorPos(intX,intY)
// LeftClick 1
// Delay 500
// MoveTo 100 100
// LeftClick 1
// Delay 1000
// EndIf
EndFor
EndFor
KeyPress 49 1
Rem ==========ÕâÊǽá⣬ÎÞÏÞÑ­»·µ½È˹¤ÖÐÖ¹==========

⑶ 傳奇檢測礦物純度腳本問題。

檢測背包中物品的純度(持久,品質).
格式: CheckMine 物品名稱 數量(1-45) 純度(1-65)

例子:
檢測背包中是否有5個純度20的黑鐵礦石,並且回收.
[@main]
#IF
CheckMine 黑鐵礦石 5
20
#ACT
TakeMine
黑鐵礦石 5 20
#SAY
背包中有5個純度20的黑鐵礦石.
#ELSESAY
沒有.