0*1050,游戏窗口800*600至于左上顶角,必须为前台,鼠标不能有其他操作 //新手一名,在通用脚本上修改来的,不完善的地方请高手帮忙修改 dim hong,lan,bbhong,bblan,paodong //声明变量 UserVar hong=70 "当HP<多少%时,使用红药" UserVar lan=30 "当MP<多少%时,使用蓝药" UserVar bbhong=70 "当HP<多少%时,使用红药" UserVar bblan=30 "蓝量<lan%时,召唤兽自动吃蓝。" UserVar paodong=DropList{"跑动":1|"跟随":2}=0 "遇敌方式" Rem 开始 IfColor 751, 261, "673500", 0 Then //如果某处的颜色=什么,可以是战斗内和战斗外不同的颜色,x和y是坐标,color1,是颜色 Call 战斗() //调用战斗的子程序 Else // Call 检查验证() //调用检查验证的子程序 Delay 100 //延时防卡 Call 检查红蓝() //调用检查红蓝子程序 Delay 100 //延时防卡 Call 遇怪() //调用遇怪子程序 End If Goto 开始 //回到开头继续循环 //-------------------战斗子程序----------------------- Sub 战斗() IfColor 751, 261, "673500", 0 Then //如果某处的颜色=什么,是战斗指令框的颜色(就是点防御啊法术什么的),x和y是坐标,color2是颜色 KeyDown 18,1 Delay 100 KeyPress 65,1 Delay 100 KeyUp 18,1 Delay 500 KeyDown 18,1 Delay 100 KeyPress 65,1 Delay 100 KeyUp 18,1 //可以把上面这段改成自己想要的战斗命令,这里以Alt+A为例,按两次是为了把召唤兽算进 Else Call 等待 //调用等待子程序,等待战斗指令框出现 Delay 100 //延时防卡 EndIf End Sub //子程序完结回到调用处 Sub 等待() Delay 2000 //写上你等待的时间(单位:毫秒) End Sub //子程序完结回到调用处 //-------------------判断验证子程序----------------------- //Sub 检查验证 //写上你的判断验证语句这里以找色函数为例 // FindColor(left,right,top,bottom,color3,x,y) // FindColor(left,right,top,bottom,color4,x2,y2) // FindColor(left,right,top,bottom,color5,x3,y3) //多色寻找验证框 //If x>0 and y>0 // If x2>0 and y2>0 // If x3>0 and y3>0 // Delay 10 // VBS strSoundFile = "C:\WINDOWS\Media\ringin.wav" // VBS Set objShell = CreateObject("Wscript.Shell") // VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) // VBS objShell.Run strCommand, 0, True //上面这些语句的效果就是发出丁零零一声,引用自晨风大大的脚本 // EndIf // EndIf // EndIf //End Sub //子程序完结回到调用处 //-------------------检查红蓝子程序----------------------- Sub 检查红蓝() hx1=111 //hx1,血条左上角(X)坐标,自己设定。 hx2=184 //hx2,血条右上角(X)坐标,自己设定。 hy=61 //hy,血条X1-X2直线上的Y坐标,自己设定(可直接取右上角Y)。 mx1=111 //mx1,蓝条左上角(X)坐标,自己设定。 mx2=184 //mx2,蓝条右上角(X)坐标,自己设定。 my=79 //my,蓝条X1-X2直线上的Y坐标,自己设定(可直接取右上角Y)。 bhx1=286 //hx1,血条左上角(X)坐标,自己设定。 bhx2=359