植物大战僵尸吧 关注:564,299贴子:5,106,825
  • 10回复贴,共1

新人报道,送上冰瓜12炮和按键精灵脚本

只看楼主收藏回复

RT


1楼2012-10-31 16:33回复



    2楼2012-10-31 16:34
    回复
      2025-08-06 08:28:12
      广告
      不感兴趣
      开通SVIP免广告
      最近换了年度英文版,导致无尽存档丢失,一狠心摆了个12炮加按键精灵,希望可以快点赶上去,脚本给想用12炮冲flags新手,高手请无视


      3楼2012-10-31 16:39
      回复
        Hwnd = Plugin.Window.MousePoint()
        sRect = Plugin.Window.GetClientRect(Hwnd)
        MyArray=Split(sRect,"|")
        Ux=MyArray(0)
        Uy=MyArray(1)
        Rem 等待输入
        key = WaitKey()
        If key>48 and key<55 Then Call 循环炮轰()
        End If
        Sub 循环炮轰()
        Rem 循环炮轰
        If key=49 Then
        Call 控制()
        SaveMousePos
        For 2
        MoveTo Ux+104, Uy+274
        LeftClick 1
        MoveTo Ux+673, Uy+218
        LeftClick 1
        MoveTo Ux+104, Uy+274+85
        LeftClick 1
        MoveTo Ux+673, Uy+473
        LeftClick 1
        Next
        RestoreMousePos
        key=key+1
        Delay 5500
        End If
        If key = 50 Then
        Call 控制()
        SaveMousePos
        For 2
        MoveTo Ux+104+160, Uy+274
        LeftClick 1
        MoveTo Ux+673, Uy+218
        LeftClick 1
        MoveTo Ux+104+160, Uy+274+85
        LeftClick 1
        MoveTo Ux+673, Uy+473
        LeftClick 1
        Next
        RestoreMousePos
        key=key+1
        Delay 5500
        End If
        If key = 51 Then
        Call 控制()
        SaveMousePos
        For 2
        MoveTo Ux+104+320, Uy+274
        LeftClick 1
        MoveTo Ux+673, Uy+218
        LeftClick 1
        MoveTo Ux+104+320, Uy+274+85
        LeftClick 1
        MoveTo Ux+673, Uy+473
        LeftClick 1
        Next
        RestoreMousePos
        key=key+1
        Delay 5500
        End If
        If key = 52 Then
        Call 控制()
        SaveMousePos
        For 2
        MoveTo Ux+104+480, Uy+274
        LeftClick 1
        MoveTo Ux+673, Uy+473
        LeftClick 1
        MoveTo Ux+104+480, Uy+274+85
        LeftClick 1
        MoveTo Ux+673, Uy+218
        LeftClick 1
        Next
        RestoreMousePos
        key=key+1
        Delay 5500
        End If
        If key = 53 Then
        Call 控制()
        SaveMousePos
        For 2
        MoveTo Ux+104+320, Uy+274-2*85
        LeftClick 1
        MoveTo Ux+673, Uy+218
        LeftClick 1
        MoveTo Ux+104+320, Uy+274-85
        LeftClick 1
        MoveTo Ux+673, Uy+473
        LeftClick 1
        Next
        RestoreMousePos
        key=key+1
        Delay 5500
        End If
        If key = 54 Then
        Call 控制()
        SaveMousePos
        For 2
        MoveTo Ux+104+320, Uy+274+2*85
        LeftClick 1
        MoveTo Ux+673, Uy+218
        LeftClick 1
        MoveTo Ux+104+320, Uy+274+3*85
        LeftClick 1
        MoveTo Ux+673, Uy+473
        LeftClick 1
        Next
        RestoreMousePos
        key=key-5
        Delay 5500
        End If
        Goto 循环炮轰
        End Sub
        Sub 控制()
        IfColor Ux+4,Uy+322,"532415",0 Then
        IfColor Ux+124,Uy+322,"FF",0 Then
        Goto 等待输入
        End If
        Else
        Goto 等待输入
        End If
        End Sub


        4楼2012-10-31 16:41
        收起回复
          嗯,这个是前台脚本,通常情况下也够用了。


          IP属地:天津5楼2012-10-31 16:46
          回复
            操作及注意事项
            1、请在窗口模式下使用本按键精灵脚本,启动时先将鼠标指向窗口,本脚本采用相对坐标,所以一般情况下都是能用的。
            2、123456数字键分别代表从哪一组玉米开始循环。
            3、当红字出现和进入选卡界面时会停止发炮,需要发炮时请点数字键123456中某一个,必须注意的是点的这一组玉米需要有炮。
            4、因为12炮能全收矿工,所以后面4个存冰位还是很安全的,但不要存太多,免得小偷一次偷两个以上就悲剧了,我是因为阳光太多,所以丢了4个冰在后面。
            5、不支持自动冰消珊瑚,因为按键精灵的双线程还不是很完善,请手动冰消珊瑚。
            6、想到再补充。


            6楼2012-10-31 16:57
            回复
              7、在12炮的火力下,任何怪都会自动跟着炮火的节奏走,预判炸反应炸什么的都是浮云


              8楼2012-10-31 17:06
              回复



                IP属地:湖南通过百度相册上传9楼2013-08-11 14:55
                回复
                  2025-08-06 08:22:12
                  广告
                  不感兴趣
                  开通SVIP免广告
                  抽象呢看着


                  IP属地:江西来自Android客户端10楼2023-10-10 21:31
                  回复