大航海时代ol吧 关注:117,190贴子:4,563,183

就不信没人用脚本挂划船!!

只看楼主收藏回复

好人一生平安


来自iPhone客户端1楼2012-04-17 22:33回复


    IP属地:福建2楼2012-04-17 22:40
    回复
      2025-08-31 14:37:19
      广告
      不感兴趣
      开通SVIP免广告
      现在用神圣挂的了,神圣没那么麻烦~


      3楼2012-04-17 23:07
      回复
        VBS Dim i,j,ren,chp,hp,xmin,pd1,pd2,hpmax,delaymax,hcsw,jssw
        VBS Dim sw1,sw2,sw3,sw4,sw5,sw5_1,sw5_2,sw1_1,day,day1,day2,day3,day4
        VBS Dim chpAdd,renAdd,hpAdd,DayAdd
        UserVar hpmax=60 吃料理体力上限
        UserVar delaymax=30 调节网速
        UserVar hcsw=1 转圈/点岸开关,1转圈,0点岸边
        UserVar sw1=1 操帆开关1开启0关闭(F5)
        UserVar sw1_1=1 操帆加速练习开关1启用0关闭
        UserVar sw2=1 划船开关1开启0关闭(F2)
        UserVar sw3=1 自定义开关1开启0关闭(F3)
        UserVar sw4=1 自定义开关1开启0关闭(F4)
        UserVar sw5=1 漂副官开关1开启0关闭
        UserVar sw5_1=1 二副官开关1开启0关闭
        UserVar sw5_2=80 漂副官职位天数(天)
        VBS chpAdd=&H00CD38B2
        VBS renAdd=&H00CD38A4
        VBS hpAdd=&H00CD3898
        VBS dayAdd=&H00CD65F4
        VBSCall Call GetCursorPos(pd1,pd2)
        Plugin hwn=Window.Foreground()
        //Plugin hwn=Window.GetKeyFocusWnd()
        Plugin win=BGKM5.ScrToCli(hwn,pd1,pd2)
        MyArray = Split(win, "|", -1, 1)
        pd1 = MyArray(0)
        pd2 = MyArray(1)
        Gosub 读参数
        VBS day4=day
        While 1
        Gosub 点岸边
        Gosub 救助
        Gosub 点岸边
        Gosub 吃料理
        Gosub 点岸边
        Gosub 划船
        Gosub 点岸边
        Gosub 操帆
        Gosub 点岸边
        Gosub 自定义1
        Gosub 点岸边
        Gosub 自定义2
        Gosub 点岸边
        Gosub 副官
        Gosub 点岸边
        EndWhile
        Sub 读参数
        Plugin ren=Memory.Read16Bit(hwn,renAdd)
        Plugin xmin=Memory.Read16Bit(hwn,hpAdd)
        Plugin chp=Memory.Read16Bit(hwn,chpAdd)
        Plugin day=Memory.Read32Bit(hwn,dayAdd)
        Return 读参数
        Sub 清屏
        VBS i=0
        Plugin Window.SendKeyPress(hwn,120)
        Return 清屏
        Sub 划船
        If sw2=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
        Plugin Window.SendKeyPress(hwn,113)
        Plugin Window.SendKeyPress(hwn,27)
        Gosub 点岸边
        Gosub 读参数
        VBS i=i+1
        If i-delaymax>0
        Goto 超时退出
        EndIf
        EndWhile
        Rem 超时退出
        Gosub 清屏
        EndIf
        Return 划船
        Sub 操帆
        If sw1=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
        Plugin Window.SendKeyPress(hwn,116)
        Plugin Window.SendKeyPress(hwn,27)
        Gosub 点岸边
        Gosub 读参数
        VBS i=i+1
        If i-delaymax>0
        Goto 超时退出1
        EndIf
        EndWhile
        Rem 超时退出1
        If sw1_1=1
        Plugin BGKM5.LClick(hwn,781,581)
        EndIf
        Gosub 清屏
        EndIf
        Return 操帆
        Sub 点岸边
        If hcsw=1
        Plugin BGKM5.RClick(hwn,pd1,pd2)
        Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
        EndIf
        If hcsw=0
        Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
        Plugin BGKM5.LDBCLK(hwn,pd1+20,pd2)
        EndIf
        Return 点岸边
        Sub 副官
        If sw5=1
        Gosub 读参数
        VBS day1=(day-day4)/sw5_2-(day-day4)\sw5_2
        


        IP属地:江苏4楼2012-04-17 23:18
        回复
          VBS day2=day-day4-sw5_2
          If day1=0 and day2>=0 and day3-day<>0
          VBS day3=day
          For 3
          Plugin Window.SendKeyPress(hwn,123)
          EndFor
          Delay 2000
          Plugin Window.SendKeyPress(hwn,40)
          Delay 1000
          Plugin BGKM5.LClick(hwn,343,98)
          Delay 1000
          Plugin Window.SendKeyPress(hwn,38)
          Delay 1000
          Plugin Window.SendKeyPress(hwn,13)
          Delay 1000
          Plugin Window.SendKeyPress(hwn,27)
          EndIf
          EndIf
          Return 副官
          Sub 自定义1
          If sw3=1
          Gosub 读参数
          VBS hp=xmin
          While hp=xmin
          Plugin Window.SendKeyPress(hwn,114)
          Plugin Window.SendKeyPress(hwn,27)
          Gosub 点岸边
          Gosub 读参数
          VBS i=i+1
          If i-delaymax>0
          Goto 超时退出2
          EndIf
          EndWhile
          Rem 超时退出2
          Gosub 清屏
          EndIf
          Return 自定义1
          Sub 自定义2
          If sw4=1
          Gosub 读参数
          VBS hp=xmin
          While hp=xmin
          Plugin Window.SendKeyPress(hwn,115)
          Plugin Window.SendKeyPress(hwn,27)
          Gosub 点岸边
          Gosub 读参数
          VBS i=i+1
          If i-delaymax>0
          Goto 超时退出3
          EndIf
          EndWhile
          Rem 超时退出3
          Gosub 清屏
          EndIf
          Return 自定义2
          Sub 救助
          Gosub 读参数
          While ren=0 or chp=0
          Plugin Window.SendKeyPress(hwn,112)
          Gosub 点岸边
          Plugin Window.SendKeyPress(hwn,27)
          Gosub 读参数
          EndWhile
          Return 救助
          Sub 吃料理
          Gosub 读参数
          While xmin-hpmax<0
          Plugin Window.SendKeyPress(hwn,118)
          Gosub 点岸边
          Plugin Window.SendKeyPress(hwn,27)
          Gosub 读参数
          EndWhile
          Return 吃料理
          


          IP属地:江苏5楼2012-04-17 23:18
          回复
            按键精灵 麻烦多


            IP属地:广西6楼2012-04-17 23:27
            回复
              这下有福了


              来自iPhone客户端7楼2012-04-17 23:34
              回复
                何出此言?请明示


                8楼2012-04-18 09:00
                回复
                  2025-08-31 14:31:19
                  广告
                  不感兴趣
                  开通SVIP免广告
                  我人懒 懒得研究··· 所以就觉得麻烦别


                  IP属地:广西9楼2012-04-18 09:03
                  回复
                    用泡泡,挂划船免费的


                    10楼2012-04-18 09:04
                    回复
                      好像也不用研究,直接用就行啊。
                      我吓了一跳,以为有什么安全风险呢。


                      11楼2012-04-18 09:06
                      回复
                        回复10楼:泡泡官网上不去了 不幸福


                        来自iPhone客户端12楼2012-04-18 09:08
                        回复
                          我在想专业的挂软是不是不容易漂出圈啊


                          13楼2012-04-18 09:33
                          回复
                            这个很想用,但是不会用0.0


                            IP属地:浙江14楼2012-04-18 09:54
                            回复
                              2025-08-31 14:25:19
                              广告
                              不感兴趣
                              开通SVIP免广告
                              我只想说你现在挂满了划船能做什么呢


                              IP属地:北京15楼2012-04-18 10:05
                              回复