yh000774写得陆战脚本

  1 [General]
  2 Description=挂陆战
  3 BeginHotkey=105
  4 BeginHotkeyMod=2
  5 PauseHotkey=0
  6 PauseHotkeyMod=0
  7 StopHotkey=96
  8 StopHotkeyMod=2
  9 RunOnce=1
 10 EnableWindow=
 11 Enable=1
 12 AutoRun=0
 13 [Repeat]
 14 Type=0
 15 Number=1
 16 [Relative]
 17 SetupOCXFile=
 18 [Comment]
 19 Content=
 20 
 21 [Script]
 22 //说明：
 23 //F10-打开自定义面板，自定义面板里面：F1和F6两个地方放料理
 24 //文件包中2个.DLL文件放到plugin文件夹里边，
 25 //启动键是CTRL+小键盘数字9
 26 //功能：
 27 //1、自动寻找附近的NPC
 28 //2、自动补疲劳
 29 //3、战斗中自动补血（必须登陆2种补血药，否则连续战斗时可能出错，如果只登陆一种药品是补血肯定出错）
 30 //4、万一被打回入口了，5分钟没有战斗或疲劳大于80，任意条件达到就自动下线
 31 //发现问题请游戏中写信告诉我，PVP服： 太极 PVE服：实习护士
 32 //设置文件路径
 33 PutAttachment .\plugin
 34 
 35 //得到当前窗口句柄
 36 Plugin dhhlz01=Window.Foreground()
 37 VBS dim xxx1,yyy1,n,x0,y0,x2,y2,x00,y00,t,dhhlz01,eatno,buji01,buji02,buji03
 38 VBS dim x21,x22,x23,x24,x25,x26,y21,y22,y23,y24,y25,y26,power1
 39 VBS dim Addr_Person_X,Addr_Person_Y,Addr_Person_angle1,Addr_Person_angle2
 40 VBS dim mem_hp, men_hpmax,tireaddr, autosail,targetA,targetB,targetC,weather,wins,PI
 41 VBS dim life,lifemax,difflife,shui,liang,mucai
 42 VBS mem_hp=&h00b35700
 43 VBS mem_hpmax=&h00b35704
 44 VBS tireaddr=&h00b35710
 45 VBS war=&h00b3564C
 46 VBS object=&h00b326a0
 47 VBS selfmark = &h00b373e4
 48 VBS NPChp01addr = &h00b36744
 49 VBS NPChp02addr = &h00b367b0
 50 VBS NPChp03addr = &h00b3681c
 51 VBS myhpinwar = &h00b36528
 52 VBS mympinwar = &h00b36560
 53 Delay 100
 54 KeyPress 27,1
 55 Delay 500
 56 Plugin dhhlz01=Window.Foreground()
 57 Delay 100
 58 Plugin s = Window.GetClientRect(dhhlz01)
 59 Delay 100
 60 MyArray = Split(s, "|", -1, 1)
 61 t = Now
 62 Delay 300
 63 Rem 主程序
 64 For 999999
 65 //Gosub 从第一点去第二点
 66 Gosub 作战画面
 67 Gosub 疲劳判断及补充
 68 EndFor 
 69 Rem 主程序结束
 70 Sub 作战画面
 71 
 72 Rem 开始寻找NPC
 73 Plugin Window.Active(dhhlz01)
 74 Gosub 疲劳判断及补充
 75 VBS Difft = DateDiff("s",Now,t)
 76 Difft=abs(difft)
 77 If Difft > 300000
 78 Gosub 登出游戏
 79 EndIf 
 80 Plugin station=LazyGod.ReadMemory(dhhlz01,war,0)
 81 If station > 0
 82 Goto 战斗已经开始
 83 EndIf 
 84 Delay 500
 85 KeyPress 9,1
 86 Delay 500
 87 Plugin abcdefg=LazyGod.ReadMemory(dhhlz01,object,2)
 88 
 89 If abcdefg > 26000000
 90 Goto 找到一个目标
 92 EndIf 
 93 Goto 开始寻找NPC
 94 Rem 找到一个目标
 95 KeyPress 13,1
 96 Delay 2000
 97 KeyPress 13,1
 98 Delay 500
 99 KeyPress 13,1
100 Delay 500
101 Rem 判断是否开战
102 Plugin station=LazyGod.ReadMemory(dhhlz01,war,0)
103 If station > 0
104 Goto 战斗已经开始
105 EndIf 
106 Plugin BGKM5.LClick(dhhlz01,646,360)
107 Delay 1500
108 Goto 判断是否开战
109 Else 
110 Goto 开始寻找NPC
111 EndIf 
112 Plugin station=LazyGod.ReadMemory(dhhlz01,war,0)
113 Plugin NPChp01=LazyGod.ReadMemory(dhhlz01,NPChp01addr,1)
114 Rem 战斗已经开始
115 Delay 300
116 VBS k=0
117 VBS t_old = now
120 Plugin BGKM5.LClick(dhhlz01,763,535)
121 //换武器
122 Delay 300
123 Plugin NPChp01=LazyGod.ReadMemory(dhhlz01,NPChp01addr,1)
124 Plugin NPChp02=LazyGod.ReadMemory(dhhlz01,NPChp02addr,1)
125 Plugin NPChp03=LazyGod.ReadMemory(dhhlz01,NPChp03addr,1)
126 While NPChp01 > 0 or NPChp02 > 0 or NPChp03 > 0
127 Plugin myhp=LazyGod.ReadMemory(dhhlz01,myhpinwar,1)
128 Plugin mymp=LazyGod.ReadMemory(dhhlz01,mympinwar,1)
129 VBS DiffDate = DateDiff("s",Now,t_old)
130 vbs diffdate = abs(diffdate)
131 If DiffDate > 1000
132 VBS k = 0
133 EndIf 
134 If myhp <= 100 and mymp > 120 and k=0
135 VBS k=k+1
136 VBS t_old = now
137 Delay 800
138 Plugin BGKM5.LClick(dhhlz01,685,535)
139 Delay 800
140 Plugin BGKM5.LClick(dhhlz01,711,490)
141 Delay 300
142 EndIf 
143 VBS Difft = DateDiff("s",Now,t_old)
144 VBS Difft = abs(Difft)
145 If myhp <= 100 and mymp > 120 and k=1 and Difft > 30
146 VBS k=k+1
147 Delay 800
148 Plugin BGKM5.LClick(dhhlz01,685,535)
149 Delay 800
150 Plugin BGKM5.LClick(dhhlz01,661,490)
151 Delay 300
152 EndIf 
153 Plugin BGKM5.LClick(dhhlz01,649,535)
154 Delay 500
155 Plugin BGKM5.LClick(dhhlz01,649,535)
156 Delay 500
157 Plugin NPChp01=LazyGod.ReadMemory(dhhlz01,NPChp01addr,1)
158 Plugin NPChp02=LazyGod.ReadMemory(dhhlz01,NPChp02addr,1)
159 Plugin NPChp03=LazyGod.ReadMemory(dhhlz01,NPChp03addr,1)
160 EndWhile 
161 VBS t = now
162 Delay 10000
163 Return 作战画面
164 Sub 疲劳判断及补充
165 Plugin mytire=LazyGod.ReadMemory(dhhlz01,tireaddr,1)
166 If mytire >= 250
167 Gosub 吃料理消除疲劳
168 EndIf 
169 Plugin mytire=LazyGod.ReadMemory(dhhlz01,tireaddr,1)
170 If mytire >= 800
171 Gosub 登出游戏
172 EndIf 
173 Return 疲劳判断及补充
174 Sub 从第一点去第二点
175 Plugin Window.Active(dhhlz01)
176 //Plugin BGKM5.RClick(dhhlz01,400,300)
177 KeyDown 40,1
178 Delay 800
179 KeyUp 40,1
180 Plugin BGKM5.RClick(dhhlz01,400,300)
181 Delay 300
182 Plugin BGKM5.RClick(dhhlz01,400,300)
183 Delay 1200
184 Return 从第一点去第二点
185 Sub 登出游戏
186 Plugin Window.Active(dhhlz01)
187 Delay 200
188 //按下Ctrl+L，退出游戏
189 KeyDown 17,1
190 KeyPress 76,1
191 KeyUp 17,1
192 Delay 2000
193 //按下回车确认退出
194 Plugin Window.Active(dhhlz01)
195 Delay 100
196 KeyPress 13,1
197 Delay 22000
198 Return 登出游戏
199 Sub 吃料理消除疲劳
200 Delay 300
201 Plugin Window.SendKeyPress(dhhlz01,121)
202 //按F10打开一级快捷菜单
203 Delay 500
204 Plugin f10=LazyGod.ReadMemory(dhhlz01,selfmark,0)
205 While f10 = 0
206 Delay 500
207 Plugin f10=LazyGod.ReadMemory(dhhlz01,selfmark,0)
208 EndWhile 
209 If eatno=0
210 //这个判断主要用于控制循环吃各种料理
211 Delay 200
212 Plugin Window.SendKeyPress(dhhlz01,112)
213 //第一次按F1吃第一种料理
214 Delay 800 
215 VBS eatno=eatno+1
216 //这个赋值主要用于控制循环吃各种料理，吃完一钟后控制变量+1
217 Goto 吃完一块料理
218 EndIf 
219 If eatno=1
220 Delay 200
221 Plugin Window.SendKeyPress(dhhlz01,117)
222 //第2次按F6吃第2种料理
223 Delay 800
224 VBS eatno=0
225 Goto 吃完一块料理
226 EndIf 
227 Rem 吃完一块料理
228 Return 吃料理补充行动力
229