过神医自动加血小退归位脚本

VBS dim hong,lan,Var1.Var2，Var3
UserVar hong=DropList{5%:5|10%:10|15%:15|20%:20|25%:25|30%:30|35%:35|40%:40|45%:45|50%:50|55%:55|60%:60|65%:65|70%:70|75%:75|80%:80|85%:85|90%:90|95%:95}=70 <%自动喝红
UserVar lan=DropList{5%:5|10%:10|15%:15|20%:20|25%:25|30%:30|35%:35|40%:40|45%:45|50%:50|55%:55|60%:60|65%:65|70%:70|75%:75|80%:80|85%:85|90%:90|95%:95}=30 <%自动喝蓝
UserVar Var1=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121}=112 补血技能快捷键
UserVar Var2=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121}=113 补蓝技能快捷键
UserVar Var3=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121}=114 当血量少于%时使用的技能(如盾)
VBSCall Call FindPic(0,0,1280,767,"Attachment:\主确定.bmp",0.9,qdx,qdy)
If zx>=0 and zy>=0
Else
msgbox "无法检测到QQ幻想窗口@.@!",16,"检测错误"
EndScript
EndIf
Delay 200
MoveTo 901,92
Delay 200
LeftClick 1
EndIf
Delay 3000
Rem 记录挂机点
MoveTo qdx qdy
Delay 200
KeyDown 18,1
Delay 200
KeyPress 77,1
Delay 200
KeyUp 18,1
Delay 800
VBSCall FindPic(qdx,qdy,qdx+800,qdy+600,"Attachment:\人物.bmp",0.8,gwzx,gwzy)
//找到人物在地图上的位置，记录挂机点
Delay 300
If gwzx>=0 and gwzy>=0
MoveTo gwzx+6 gwzy+6
Delay 3000
KeyDown 18,1
Delay 200
KeyPress 77,1
Delay 200
KeyUp 18,1
Delay 200
KeyDown 18,1
Delay 200
KeyPress 87,1
Delay 200
KeyUp 18,1
Delay 200
MoveTo qdx qdy
Goto search
Else
Goto 记录挂机点
EndIf
Rem search
Delay 1000
IfColor 143,166,889090,2
Gosub 过神医
EndIf
IfColor hong/100*(282-192)+192 125,189420,2
Else
KeyPress Var1,1
Delay 200
KeyPress Var3,1
EndIf
IfColor lan/100*(275-181)+181 136,c84c08,2
Else
KeyPress Var2,1
EndIf
Goto search
Sub 过神医
Delay 5000
IfColor 143,165,808488,2
      VBSCall FindPic(0,0,1023,767,"Attachment:\sy.bmp",0.9,syx,syy)
      Delay 1000
      MoveTo syx+135,syy+50
      Delay 1000
      LeftClick 1
      Delay 5000
      MoveTo qdx qdy
EndIf
IfColor 143,166,2884f0,2
      Goto search
Else
EndIf
IfColor 143,165,808488,2
      VBSCall FindPic(0,0,1023,767,"Attachment:\sy.bmp",0.9,syx,syy)
      Delay 1000
      MoveTo syx+135,syy+50
      Delay 1000
      LeftClick 1
      Delay 3000
      MoveTo qdx qdy
Else
      Delay 3000
EndIf
IfColor 143,166,2884f0,2
      Goto search
Else
      Delay 1000
      MoveTo 511,66
      LeftClick 1
      Rem 摆脱战斗
      For 6
         KeyDown 18,1
         KeyPress 82,1
         Delay 1000
         KeyUp 18,1
      EndFor
EndIf
VBSCall Call FindPic(qdx,qdy,qdx+800,qdy+600,"Attachment:\状态.bmp",0.7,ztx,zty)
If ztx>=0 and zty>=0
      Goto 摆脱战斗
Else
EndIf
Rem 返回角色
KeyPress 27,1
Delay 500
IfColor 519,400,d87c50,2
      MoveTo 519,400
      LeftDoubleClick 1
Else
      Goto 返回角色
EndIf
Rem 登陆角色
Delay 6000
IfColor 501,582,48a8d8,2
      KeyPress 13,2
Else
      Delay 3000
      Goto 登陆角色
EndIf
Delay 5000
IfColor 143,166,1878e8,2
      Delay 5000
Else
      Goto 登陆角色
EndIf
EndIf
Gosub 回挂机点
Return 过神医  Rem s
Sub 回挂机点
//回挂机原点，同时也可防止卡人
Delay 200
KeyDown 18,1
Delay 200
KeyPress 77,1
Delay 200
KeyUp 18,1
Delay 600
MoveTo gwzx+8 gwzy+4
Delay 400
For 10
      RightClick 1
      Delay 1000
EndFor
KeyDown 18,1
Delay 200
KeyPress 77,1
Delay 200
KeyUp 18,1
EndIf
Rem 回挂机点结束
Delay 200
KeyDown 18,1
Delay 200
KeyPress 87,1
Delay 200
KeyUp 18,1
MoveTo qdx qdy
Return 回挂机点

以上是过神医的脚本  脚本所需要的图片在附件那里不会弄的联系我

[ 本帖最后由 kunkid 于 2008-8-19 21:39 编辑 ]

11.jpg (55.72 KB)