植物大战僵尸吧 关注:565,007贴子:5,112,420

【RE】10炮全自动挂机 附脚本加视频

只看楼主收藏回复

写了几天终于写出来了...
话说RE真的比PE简单多了...只要阵型找对了的话....
所以真的很膜拜1r1r2 和ponymzh的...


IP属地:甘肃1楼2010-07-05 00:07回复

    采用底线10炮的阵型,灯笼的某个贴说过底线炮最好落底,这样就能炸全45路
    但是我觉得炸在2路更好,可以炸全12路,有时3路也有时能炸到,然后前置炮炸全345路
    可以看到,这样的阵单曾也能守住imp,这跟PE单曾守住后场同理,
    因为这里imp最多只能扔到4列。红眼在众多冰瓜的攻击下3炮挂掉,压力几乎为零
    梯子在10炮节奏下就算完全不被减速也不会碰到春哥......
    唯一有威胁的是imp....有一次竟然咬到前置春哥,立刻瞎眼了....
    


    IP属地:甘肃2楼2010-07-05 00:07
    回复
      2025-08-19 00:47:47
      广告
      不感兴趣
      开通SVIP免广告
      今天挂了半天,从222F挂到了346F,还存活,应该没有问题...
      那啥...因为对按键的语言不熟悉...所以没用什么太高级的东西...
      看着高手所写的那些...晕啊晕,所以我都是用些很弱智的想法来实现的,
      高手就不要喷了....下面是代码,按键精灵版本8.0适用


      IP属地:甘肃3楼2010-07-05 00:08
      回复
        key = WaitKey()
        //输入要从哪组炮开始,从上往下分别对应主键盘上的1~5
        If key>48 And key<53 Then
        //获取游戏窗口坐标
             handle= Plugin.Window.Foreground()
             s = Plugin.Window.GetClientRect(handle)
             MyArray = Split(s, "|", -1, 1)
             wx = int(MyArray(0))
             wy = int(MyArray(1))
        //获取结束
             cannon=key-49   //轮到使用哪组炮
             even=1     //是否偶数Flag
                  
             Call choosecard   //进入选卡程序
            
             Rem goon   //发炮标记
            
             While 1
                 Call whichtoshoot //选择可用炮发射
                 Delay 700      
        //发炮完后收集阳光
                 Call FindColorEx(wx,wy+80,wx+800,wy+600,"01F6FE",2,1,intx,inty)     
                 If intx>0 and inty>0 Then
                     SaveMousePos
                     MoveTo intx,inty
                     LeftClick 1
                     RightClick 1
                     RestoreMousePos
                 End if
                 for 12  
                     Delay 500
                     warning=GetPixelColor(wx+174,wy+320)   //判断红字
                     If warning="0000FF" Then     
                         even=1-even
                         If even Then    
                             Call ice    //如果是偶数Flag,进入冰消子程序
                         Else            
                             Delay 7500
                             Goto goon     //如果是奇数Flag,等待一段时间
                         End If
                     End if
                 Next
             Wend
        End If


        IP属地:甘肃4楼2010-07-05 00:08
        回复
          Sub shoot(a,b)       //发炮子程序
               MoveTo wx+487,wy+a
               LeftClick 1
               Call GetCursorPos(x,y)
               For 3
                   color=GetPixelColor(x+10,y)
                   If color<>"1200FF" Then    //点击炮后检测是否变红,没变红就继续点
                       LeftClick 1
                   End if
               Next
               MoveTo wx+682,wy+383
               LeftClick 1
              
               MoveTo wx+80,wy+b
               LeftClick 1
               Call GetCursorPos(x,y)
               For 3
                   color=GetPixelColor(x+10,y)
                   If color<>"1200FF" Then
                       LeftClick 1
                   End if
               Next
               MoveTo wx+694,wy+208
               LeftClick 1
              
          End Sub
          Sub whichtoshoot    //选择可用炮发射
               If cannon=0 Then
                   Call shoot(89,195)
               End if
                  
               If cannon=1 Then
                   Call shoot(178,284)
               End if
                  
               If cannon=2 Then
                   Call shoot(255,361)
               End if
                  
               If cannon=3 Then
                   Call shoot(341,447)
               End if
                  
               If cannon=4 Then
                   Call shoot(428,530)
               End if
               cannon=(cannon+1) Mod 5
              
          End sub


          IP属地:甘肃5楼2010-07-05 00:08
          回复
            Sub ice   //冰消子程序
                 Delay 4800
                 MoveTo wx+114,wy+40
                 LeftClick 1
                 MoveTo wx+633,wy+294
                 LeftClick 1
                 RightClick 1
                 MoveTo wx+164,wy+42
                 LeftClick 1
                 MoveTo wx+633,wy+294
                 LeftClick 1
                 MoveTo wx+213,wy+38
                 LeftClick 1
                 MoveTo wx+633,wy+294
                 LeftClick 1
                
                 Delay 2700
                
                 While 1
                     Call whichtoshoot
                     For 12
                         Delay 500
                         shadow=GetPixelColor(wx+26,wy+382)  
            //如果中间出现暗条(Flag结束提示条)就等待一段时间然后进入选卡
                         If   shadow="0F1B46" Then    
                             Delay 12000
                             Call choosecard  
                         End if
                     Next
                     Delay 700
                 Wend
            End Sub
            Sub choosecard   //选卡子程序
                 Rem chooseagain   //重选标记
                
                 For 15         //清空卡槽
                     MoveTo wx+100,wy+30
                     LeftClick 1
                     Delay 50
                 Next
                 MoveTo wx+101,wy+433
                 LeftClick 1
                 MoveTo wx+366,wy+223
                 LeftClick 1
                 MoveTo wx+205,wy+433
                 LeftClick 1
                 MoveTo wx+150,wy+155
                 LeftClick 1
                 MoveTo wx+209,wy+147
                 LeftClick 1
                 MoveTo wx+260,wy+150
                 LeftClick 1
                 MoveTo wx+310,wy+152
                 LeftClick 1
                 MoveTo wx+369,wy+154
                 LeftClick 1
                 MoveTo wx+418,wy+157
                 LeftClick 1
                 MoveTo wx+207,wy+360
                 LeftClick 1
                 MoveTo wx+237,wy+565
                 LeftClick 1
                
                 Delay 2000
                 imitater=GetPixelColor(wx+490,wy+545)   //捕捉模仿者位置的颜色
                 If imitater="7B797B" Then
                     Goto chooseagain   //选卡失败的话重新选卡
                 End if
                
                 Delay 8500
                 Goto goon   //回到发炮标记
               
            End Sub


            IP属地:甘肃6楼2010-07-05 00:08
            回复
              视频:
              有声音的伪高清,这是用Fraps录的....文件太大....只录了3F....不然就分段了....
              


              IP属地:甘肃8楼2010-07-05 00:09
              回复
                没声音的超渣画质超长挂机视频...1个小时....只是一个证明而已
                估计没人会完整的看完,我自己就没看完= =
                


                IP属地:甘肃9楼2010-07-05 00:09
                回复
                  2025-08-19 00:41:47
                  广告
                  不感兴趣
                  开通SVIP免广告
                  占个SF


                  IP属地:甘肃10楼2010-07-05 00:13
                  回复
                    脚本建议还是不要发布的好


                    11楼2010-07-05 00:15
                    回复
                      回复:11楼
                      额...因为我不是第一个发的...第一个发的那个连小精灵下载都提供了


                      IP属地:甘肃13楼2010-07-05 00:22
                      回复
                        我来了


                        14楼2010-07-05 00:27
                        回复
                          很悲哀的发现本来H的土豆视频变成了不H的...
                          而原来不H的优酷视频变成了H的...


                          IP属地:甘肃15楼2010-07-05 00:27
                          回复