TC官方合作论坛

标题: 高手们，快来帮帮我！ [打印本页]

作者: zhaowujiang 时间: 2013-2-19 00:08
标题: 高手们，快来帮帮我！
列如：
=====================================================
功能定位()
j=编辑框.获得文本("编辑框20")
dm.KeyPressChar(j)
辅助.等待(1500)
dm.MoveTo(338,266)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
   如果结束
dm.MoveTo(366,293)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
如果结束
dm.MoveTo(395,310)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
如果结束
dm.MoveTo(440,310)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
如果结束
dm.MoveTo(468,284)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
如果结束
dm.MoveTo(426,250)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
如果结束
dm.MoveTo(400, 240)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
如果结束
dm.MoveTo(375,250)
辅助.等待(150)
dm_ret = dm.FindPic(0, 0, 800, 600, "dingwei.bmp", "000000", 0.6, 0, X2, Y2)
如果(X2 >= 0)
      dm.GetCursorPos(X1,Y1)
如果结束
功能结束
功能养分()
dm_ret = dm.FindPic(0, 0, 800, 600, "41.bmp", "000000", 0.7, 0, X,Y)
如果( X >= 0 )
      dm.MoveTo(555, 335)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
dm_ret = dm.FindPic(0, 0, 800, 600, "42.bmp", "000000", 0.7, 0, X,Y)
如果( X >= 0 )
      dm.MoveTo(555, 335)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
dm_ret = dm.FindPic(0, 0, 800, 600, "43.bmp", "000000", 0.5, 0, X,Y)
如果( X >= 0 )
      dm.MoveTo(555, 335)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
功能结束
功能水份()
dm_ret = dm.FindPic(0, 0, 800, 600, "3.bmp", "000000", 0.7, 0, X,Y)
如果(X >= 0)
      dm.MoveTo(590, 335)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
dm_ret = dm.FindPic(0, 0, 800, 600, "31.bmp", "000000", 0.7, 0, X,Y)
如果(X >= 0)
      dm.MoveTo(590, 335)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
dm_ret = dm.FindPic(0, 0, 800, 600, "32.bmp", "000000", 0.5, 0, X,Y)
如果(X >= 0)
      dm.MoveTo(590, 335)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
功能结束
功能虫害()
dm_ret = dm.FindPic(0, 0, 800, 600, "2.bmp", "000000", 0.7, 0, X,Y)
如果(X >= 0)
      dm.MoveTo(630, 330)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
dm_ret = dm.FindPic(0, 0, 800, 600, "21.bmp", "000000", 0.6, 0, X,Y)
如果(X >= 0)
      dm.MoveTo(630, 330)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
dm_ret = dm.FindPic(0, 0, 800, 600, "22.bmp", "000000", 0.5, 0, X,Y)
如果(X >= 0)
      dm.MoveTo(630, 330)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
功能结束
功能收割()
dm_ret = dm.FindPic(0, 0, 800, 600, "12.bmp", "000000", 0.5, 0, X3,Y3)
如果(X3 >= 0)
      dm.MoveTo(547, 249)
      辅助.等待(50)
      ret=dm.LeftClick()
      辅助.等待(50)
如果结束
功能结束
===========================
我想要的程序模式如下：
定位
循环（真）
养分-------------------找到任何一个图都从循环开始
水份-------------------找到任何一个图都从循环开始
虫害-------------------找到任何一个图都从循环开始
收割-------------------找到图都从定位开始
循环结束
============================
能帮我解决的请给个代码或思路,小弟不胜感激！！！！！！

作者: 冷月无痕 时间: 2013-2-19 09:22
从循环开始就用继续
从定位开始就调用定位函数

作者: Sky_Pro 时间: 2013-2-19 09:32
代码好多啊。。学习了。。。

作者: honge10000 时间: 2013-2-19 09:37
这是做的什么游戏的代码?

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)