801.             延时192毫秒
802.         循环结束
803.     条件结束
804.     标记 有矿
805.     按住#pick
806.     延时64毫秒
807.     弹起#pick
808.     延时192毫秒
809.     调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
810.     如果表达式 (xx<=0) 为真,则
811.         调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
812.     条件结束
813.     如果表达式 (xx>0) 为真,则
814.         鼠标移到 xx , yy
815.         延时32毫秒
816.         循环 2 遍
817.             左键按下
818.             延时64毫秒
819.             左键弹起
820.             延时8毫秒
821.         循环结束
822.         鼠标移到 650 , 384
823.         循环 4 遍
824.             按住#pick
825.             延时64毫秒
826.             弹起#pick
827.             延时192毫秒
828.         循环结束
829.         调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
830.         如果表达式 (xx1<=0) 为真,则
831.             调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
832.         条件结束
833.         如果表达式 (xx1>0) 为真,则
834.             xx=xx1:yy=yy1
835.             如果表达式 (abs(xx1-xx)<=10) 为真,则
836.                 调用子程序 挖矿中
837.             条件结束
838.         条件结束
839.         跳转到标记 有矿
840.     条件结束
841. 子程序结束,回到调用处
842. //**********************
843. 子程序 挖矿中
844.     标记 继续挖矿
845.     i=0
846.     鼠标移到 xx , yy
847.     延时32毫秒
848.     循环 2 遍
849.         左键按下
850.         延时64毫秒
851.         左键弹起
852.         延时8毫秒
853.     循环结束
854.     鼠标移到 20 , 384
855.     循环 2 遍
856.         按住#pick
857.         延时64毫秒
858.         弹起#pick
859.         延时192毫秒
860.     循环结束
861.     调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
862.     如果表达式 (xx1<0) 为真,则
863.         调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
864.     条件结束
865.     如果表达式 (xx1>0) 为真,则
866.         跳转到标记 继续挖矿
867.     条件结束
868.     //拣东西
869.     调用子程序 捡东西
870. 子程序结束,回到调用处
871. //***********************
872. 子程序 开关地图
873.     按住<M>
874.     延时512毫秒
875.     弹起<M>
876.     延时512毫秒
877. 子程序结束,回到调用处