热血传奇挖矿脚本怎么写

⑴ 求热血传奇百区（秒卡区）挖矿问题 要求百区高等玩家解答

其实只要是矿区就能出矿的·一般如下·楼上说的也是主要因素·

我一般就在 毒蛇山谷的矿区.大概中间那条细小的路上，有小房子旁边挖.收获肯定不错。
其实主要就是运气问题· 官方的挖矿脚本设置的很有规律的·就说个例子吧·

黑铁矿是·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
没有.