功能
说明
关于失联党员情况说明岗位说明总经理岗位说明书会计岗位说明书行政主管岗位说明书
:
1.内存加红/加蓝.
找不到内存怎么办?
这个脚本里面有找色加血/蓝(默认75%,不可改动(血条放到屏幕左上角)
2.蓝/红少于10时自动回城
3.血(F1)
4.蓝(F2)
5.速度(F3)
6.技能(F4)
7.捡物小手(F5)
8.回城符(F6)
Dim hong,mp,lan,lanL
UserVar Var1=DropList{开启:1|不开启:2}=0 找色加血蓝(默认75%,不可改动(血条放到屏幕左上角)
UserVar hong=300 内存加血,血少于多少时加血(F1)
UserVar lan=100 内存加蓝,蓝少于多少时加蓝(F2)
Plugin Hwnd = Window.MousePoint()
VBS dim sw1,sw2,find
UserVar anjian04=DropList{启动 飞:116|启动 跑:115|不启动:117}=3 跑 速度按钮(F3)
UserVar anjian03=DropList{启动:117|不启动:114|平砍:115}=2 技能按键(F4)
UserVar find=DropList{关:0|开:1}=1 捡物小手开关(F5)
UserVar anjian05=DropList{启动:125|不启动:116}=3 蓝/红少于10时自动回城 回城符(F6)
//****************************主程序开始**************************************
[post]SayString "开始打怪!!! ~0~"
Delay 30
KeyPress 13,1
Rem 111
If find=1
KeyPress 116,1
Delay 30
KeyPress 116,1
Delay 30
EndIf
Delay 20
For 100
If anjian03=117
dim color(2)
dim s1,x,y
color(0)="95ecf4":color(1)="000000":color(2)="000000"
s1=0
VBSCall FindCenterColor(0, 0,798, 580,color(s1),x,y)
If x>0 and y>0
KeyPress 115,1
Delay 20
KeyPress 115,1
Else
EndIf
EndIf
If anjian03=115
dim color(2)
dim s1,x,y
color(0)="95ecf4":color(1)="000000":color(2)="000000"
s1=0
VBSCall FindCenterColor(0, 0,798, 580,color(s1),x,y)
If x>0 and y>0
Else
MiddleClick 1
Delay 20
MiddleClick 1
EndIf
EndIf
If anjian05=125
dim color(2)
dim s4,x,y
color(0)="3232ff":color(1)="3232ff":color(2)="3232ff"
VBSCall FindCenterColor(423, 591,496, 624,color(s4),x,y)
If x>0 and y>0
SayString "血/蓝少于10. 保命要紧,回城了. 886 ~0~"
Delay 20
KeyPress 13,1
KeyPress 117,1
KeyPress 117,1
Delay 5000
KeyDown 17,1
Delay 20
KeyPress 67,1
KeyUp 17,1
SayString "血/蓝少于10. 保命要紧,回城了. 886 ~0~"
Delay 20
KeyPress 13,1
EndScript
Else
EndIf
EndIf
If anjian04=115
dim color(2)
dim s,x,y
color(0)="f7ebd6":color(1)="000000":color(2)="000000"
s=0
VBSCall FindCenterColor(734, 247,803, 571,color(s),x,y)
If x>0 and y>0
Else
KeyPress 114,1
KeyPress 114,1
Delay 20
EndIf
EndIf
If anjian04=116
dim color(2)
dim s,x,y
color(0)="f7df94":color(1)="000000":color(2)="000000"
s=0
VBSCall FindCenterColor(734, 247,803, 571,color(s),x,y)
If x>0 and y>0
Else
KeyPress 114,1
KeyPress 114,1
Delay 20
EndIf
EndIf
If Var1=2
Plugin mp = Memory.Read16Bit(Hwnd,&H455B638)
Plugin lanL = Memory.Read16Bit(Hwnd,&H455B63C)
If clng(mp)<=hong
KeyPress 112,1
Delay 20
EndIf
If clng(lanL)<=lan
KeyPress 113,1
Delay 20
EndIf
EndIf
If Var1=1
dim color(2)
dim s2,x,y
color(0)="3a3af0":color(1)="3a3af0":color(2)="000000"
s=0
VBSCall FindCenterColor(107, 28,152, 72,color(s2),x,y)
If x>0 and y>0
Else
KeyPress 112,1
Delay 20
EndIf
dim color(2)
dim s3,x,y
color(0)="c58145":color(1)="c58145":color(2)="000000"
s=0
VBSCall FindCenterColor(107, 28,152, 72,color(s3),x,y)
If x>0 and y>0
Else
KeyPress 113,1
Delay 20
EndIf
EndIf
EndFor
Goto 111