经过一点改进，一百关，自己不要动一下，就过关了！
还有汽球僵尸，第二个卡用三叶草，等快到了，就放三叶，呵呵，只自动放过一个。
还有朋友可以不用抓图就可以试了，部分代码改为如下：
//找阳光
//Call FindPic(wx,wy+100,wx+800,wy+600,"2.bmp",0.7,px,py)
XY=Plugin.Color.FindMutiColor(wx,wy+100,wx+800,wy+600,"4FBBF3","-12|12|49B7F2,12|12|5EC4F4,0|13|01F6FE,0|24|57C0F3",0.8)
ZB = InStr(XY,"|")
px = Clng(Left(XY, ZB - 1)): py = Clng(Right(XY, Len(XY) - ZB))
//找炮,分二个区找炮，加快速度
// Call FindPic(wx,wy,wx+550,wy+240,"5.bmp",0.7,paox,paoy)
// Call FindPic(wx,wy+240,wx+550,wy+550,"5.bmp",0.7,paox2,paoy2)
XY=Plugin.Color.FindMutiColor(wx,wy,wx+550,wy+240,"20EBF9","6|0|1CEDFE,14|0|14EEFC,12|4|20FCFE,4|5|23F2FE,6|7|0BD8F6,-2|8|16EAFD,15|8|0BD9F5,2|11|0FDCF8,9|11|0DDEF8,-2|18|00C6E1,5|18|01A6C1,14|18|00B2CC",0.5)
//XY=Plugin.Color.FindMutiColor(wx,wy,wx+550,wy+550,"23F3FE","2|0|1DDAEA,5|0|22F1FE,2|2|08C6E1,0|3|02BCD7,5|3|06CEEA,0|6|13E2F8,2|6|24E1F9,5|6|0CDEF8",0.7)
ZB = InStr(XY,"|")
paox = Clng(Left(XY, ZB - 1)): paoy = Clng(Right(XY, Len(XY) - ZB))
懂一点程序的朋友都可看明白！
这么做的好处是提高找炮率。

我就喜欢技术人才
帮顶

……………………

看着for do if 好亲切的感觉…………

好啊

表示前排什么的额

淫才啊

等待你整理完毕发正式版我就飘红

对了，还要挂机视频

今天在外忙了一天，看看这么多朋友，帮顶很是高兴，谢谢了！

人才啊 挥发你的红外线吧

可能是精！

刚完成最后一波，自动打水中僵尸，及收钱代码！

经过两天的努力，已可以从200关挂机打几关了，现在最关的问题，还是找炮与点炮，炮很难做到一出来全找到，还有炮出来了点一下，不一定就点到了，（不想用把钱全收起的办法，收也不一定收的很及时，当你要点炮的时来了一个钱挡在炮上，看你就没办法了）有些问题要认真研究一下！到时发个挂机视频。