|
本帖最后由 icyleaves 于 2014-4-13 13:24 编辑
其他功能照着改就行了
- function moveclickPicArea(a1,b1,a2,b2,pic,delta_color)//鼠标移动并点击图片
- pic,delta_color
- int a1,b1,a2,b2
- dm.FindPic(a1,b1,a2,b2,pic,delta_color,0.7,0,intx,inty)//找图
- dm.MoveTo(intx,inty)
- dm_ret = dm.FindMultiColor(0,0,rCX,rCY,"e8a400","8|5|f0f8f0,6|4|f0f8f0",1.0,1,intx1,inty1)//获取游戏鼠标位置
- dm.GetCursorPos(x0,y0)//获得真实鼠标位置
- help.sleep(20)
- while(true)
- dm_ret = dm.FindMultiColor(0,0,rCX,rCY,"e8a400","8|5|f0f8f0,6|4|f0f8f0",1.0,1,intx1,inty1)
- if(intx1 <0)
- help.sleep(1)
- x0=0
- y0=0
- else
- if(intx1 > intx)
- x0=-1
- endif
- if(intx1 < intx)
- x0=1
- endif
- if(intx1 == intx)
- x0=0
- endif
- if(inty1 > inty)
- y0=-1
- endif
- if(inty1 < inty)
- y0=1
- endif
- if(inty1 == inty)
- y0=0
- endif
- if(math.abs(intx1-intx)<2&&math.abs(inty1-inty)<2)
- dm.LeftClick()
- help.sleep(2000)
- break
- endif
- endif
-
- dm.MoveR(x0,y0)
- dm.GetCursorPos(x,y)
- if(x>rCX||y>rCY||x<0||y<0)
- dm.MoveTo(rCX/2,rCY/2)
- dm.MoveTo(intx,inty)
- endif
- endwhile
- endfunction
复制代码 |

|