高手们，快来帮帮我！

zhaowujiang

列如：
=====================================================
功能 定位()
    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)
    如果结束
功能结束
===========================
我想要的程序模式如下：
定位
循环（真）
养分-------------------找到任何一个图都从循环开始
水份-------------------找到任何一个图都从循环开始
虫害-------------------找到任何一个图都从循环开始
收割-------------------找到图都从定位开始
循环结束
============================
能帮我解决的请给个代码或思路,小弟不胜感激！！！！！！

冷月无痕

从循环开始 就用 继续
从定位开始 就调用定位函数

Sky_Pro

代码好多啊。。学习了。。。

honge10000

这是做的什么游戏的代码?