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