//6.1更新增加随机数、识别战斗状态,测试无错误 //在我接触按键一月以来感谢【爱? 老婆'炜儿】一直以来的指导、帮助,一个很低调很热心的朋友,大哥哥,发自内心的感谢你...(此处省去1W字,O(∩_∩)O哈哈~)希望我们的友谊天长地久---------感恩版 //此脚本功能简单,由于还在学习大漠所以当时没有用上插件,这是半月前写出来的,早想编译出来了,可是学车耽误半月。。。 //测试地图:江南野外、大唐国境 //备注:附赠源码,只为交流学习,如有喜欢交流的朋友论坛找我吧 //论坛名字:豪燕 //QQ:839552004 UserVar Var1=DropList{"物理攻击":"A"|"法术攻击":"Q"}=0 "人物攻击" UserVar Var2=DropList{"物理攻击":"A"|"法术攻击":"Q"}=0 "宠物攻击" Hwnd = Plugin.Window.Foreground() sRect = Plugin.Window.GetClientRect(Hwnd) Dim MyArray MyArray=Split(sRect,"|") Ux=CLng(MyArray(0)) Uy=CLng(MyArray(1)) Call Plugin.Window.Move(Hwnd, 0, 0) Hwndck = Plugin.Window.Find(0, "梦幻西游 聊天窗口") Call Plugin.Window.Hide(Hwndck) Rem 开始 KeyPress "Tab", 1 Delay 200 i = 0 While i=0 FindPic 0,0,1024,768,"Attachment:\地图.bmp",0.2,dituX,dituY If dituX > 0 And dituY > 0 Then Delay 200 Call 随机数() i = 1 Call 战斗() Else KeyPress "Tab", 1 SayString "没找到图" End If Wend KeyPress "Tab", 1 Call 战斗() Delay 8000 Goto 开始 Sub 战斗() FindColorEx 286+Ux,34+Uy,368+Ux,81+Uy,"F8FCF8",0,0.9,intX,intY If intX > Ux And intY > Uy Then SayString "调用战斗" Rem 战斗 FindPic Ux,Uy,Ux+640,Uy+480,"Attachment:\法术.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then SayString "战斗开始" MoveTo Ux, Uy LeftClick 1 KeyDown 18, 1 If Var1 = "A" Then KeyPress "A", 1 ElseIf Var1 = "Q" Then KeyPress "Q", 1 End If KeyUp 18, 1 Delay 500 KeyDown 18, 1 If Var2 = "A" Then KeyPress "A", 1 ElseIf Var2 = "Q" Then KeyPress "Q", 1 End If KeyUp 18, 1 End If Delay 8000 FindColorEx 286+Ux,34+Uy,368+Ux,81+Uy,"F8FCF8",0,0.9,intX,intY If intX > Ux And intY > Uy Then Goto 战斗 Else Goto 战斗结束 End If End If Rem 战斗结束 Delay 1000 MoveTo Ux, Uy End Sub Sub 随机数() Randomize //获得0-3的随机数 n = Int(rnd * 4) If n = 0 Then MoveTo 151 + dituX, 87 + dituY Delay 50 LeftClick 1 End If If n = 1 Then MoveTo 355+dituX, 61+dituY Delay 50 LeftClick 1 End If If n = 2 Then MoveTo 126+dituX, 224+dituY Delay 50 LeftClick 1 End If If n = 3 Then MoveTo 370+dituX, 226+dituY Delay 50 LeftClick 1 End If