按键精灵之渐开线找怪脚本
3星 · 超过75%的资源 需积分: 18 163 浏览量
2011-04-15
09:17:02
上传
评论 3
收藏 611KB DOC 举报 
//2 张间距
VBS n=200
//初始抓第一张图的颜色点坐标(下面坐标自己修改)
VBS x=100:y=100
//4 张图，循环 4 次
For 4
VBSCall c=GetPixelColor(x,y)
//颜色判断(可自行增加多个判断项)
If c="00FF00" or c="FF00FF" or c="DDFFDD"
Gosub 移动单击
ElseIf c="DDFF00" or c="FFDDFF" or c="FFFFDD"
Gosub 移动单击
ElseIf c="AAFF00" or c="FFAAAA" or c="AAAADD"
Gosub 移动单击
EndIf
VBS x=x+n
EndFor
Rem 开始
MessageBox 识别错误，发现新图片，请把鼠标移动到不同的图片上，再按[ctrl]键
WaitKey k
//[ctrl]键 acsii 码 17
If k=17
//鼠标位置判断(4 个位置区域)
VBSCall GetCursorPos(mx,my)
If mx>100 and mx<200
//下面坐标自己修改(就是颜色位置)
VBS cx=100:cy=100
ElseIf mx>200 and mx<300
VBS cx=200:cy=200
ElseIf mx>300 and mx<400
VBS cx=300:cy=300
ElseIf mx>400 and mx<500
VBS cx=400:cy=400
Else
MessageBox 鼠标位置放的不对，重新开始！
Goto 开始
EndIf
//得到鼠标区域位置颜色
VBSCall c1=GetPixelColor(cx,cy)
VBSCall MessageBox("[ "&c1&" ]得到的新颜色自己手动增加到颜色判断里面")
EndIf
Rem 结束
EndScript
Sub 移动单击
资源评论
jptlxhf2013-09-05用处不大，可能对老式2D游戏有点用
