脚本功能:1.服务器维护或掉线后会自动登录,直到登录进去为止2.人被杀后会自动回城复活3.龙被杀会自动打开背包用复活戒指复活4.当饥饿度到85左右会自动吃一块肉注意:肉块放快捷键8,龙契约石放0,龙复活物品和要复活的龙契约石必须放背包打开的第一页,否则龙被杀死后不能自动复活,以下脚本从#号开始复制,要填上你的账号和密码#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上，您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
//###############你的游戏账号#################
GameAccount = "账号名"
//###############你的游戏密码#################Password = "密码"
//================提醒开始=====================
UserVar dragon=DropList{红龙:红龙|青铜龙:青铜龙|黑龙:黑龙|金龙:金龙|银龙:银龙|蓝龙:蓝龙|白龙:白龙}=0 选择龙
UserVar loginType=DropList{普通登陆:普通登陆|盛大用户登陆:盛大用户登陆}=0 选择登陆类型
VBS set obj=createobject("WScript.Shell")
//================提醒结束=====================
Rem 开始
If dragon="红龙"
l
l
ElseIf dragon="青铜龙"
l
l
ElseIf dragon="黑龙"
l
l
EndIf
dir = "lqs\"
Plugin findWin = Window.Find(0,"龙骑士Online")
If findWin=0
Gosub 打开龙骑士
Else
//判断是否有登录报错的弹出的对话框
Gosub 激活游戏窗口
Gosub 确定按钮
VBS dim IsLogin
//赋值1为登录界面
IsLogin=0
VBSCall FindColor(153,446,220,478,"0c187d",x,y)
If x>0
IsLogin = 1
If loginType<>"普通登陆"
IfColor 480,259,e5e5e5,1
MoveTo 238,583
Delay 200
LeftClick 0
Delay 500
EndIf
EndIf
EndIf
If IsLogin=1
Gosub 登录
Else
//判断是否进入角色页面
VBSCall FindColor(365,527,439,598,"0d1761",x,y)
If x>0
MoveTo x,y
Delay 300
LeftClick 0
Else
Gosub 判断是否骑龙状态
Gosub 喂肉
EndIf
EndIf
EndIf
Goto 开始
Sub 判断是否骑龙状态
VBS dim x,y
VBSCall FindColorEx(5,83,70,140,longColor,1,0.9,x,y)
If x<0
KeyPress 48,0
Delay 5000
VBSCall FindColorEx(5,83,70,140,longColor,1,0.9,x,y)
//如果骑不上龙则认为龙已经死亡,下一步打开背包吃复活
If x<0
VBSCall FindColor(525,180,798,590,"74868a",xB,yB)
//如果当时背包为未打开状态则打开背包
If xB<0
KeyPress 66,1
Delay 2000
EndIf
//查找复活物品
findColor=0
VBSCall FindColor(525,180,798,590,"367f65",x,y)
If x<0
VBSCall FindColor(525,180,798,590,"179d83",x,y)
If x<0
//YN2 = obj.Popup("当面背包页未发现飞龙复活物品",0,"龙骑士",36)
Else
findColor=1
EndIf
Else
findColor=1
EndIf
If findColor=1
MoveTo x,y
Delay 100
RightClick 1
Delay 100
//查找龙契约石
VBSCall FindColor(525,180,798,590,longShiColor,x,y)
If x>0
MoveTo x,y
Delay 100
LeftClick 1
//Delay 100
//RightClick 1
Delay 100
KeyPress 66,1
//Delay 5000
EndIf
EndIf
EndIf
EndIf
VBSCall FindColor(250,108,590,311,"18b7d3",x,y)
//人已经死亡的状态
If x>-1
MoveTo x,y
Delay 300
LeftClick 1
EndIf
Return 判断是否骑龙状态
VBS dim i
Sub 喂肉
VBS dim x,y
VBSCall FindColor(138,140,482,570,"11118d",x,y)
//显示龙饥饿度面板
If x<0
KeyPress 67,0
Delay 500
Else
IfColor x-83,y+6,0d1215,2
KeyPress 56,0
Delay 500
EndIf
EndIf
Return 喂肉
Sub 登录
If loginType="普通登陆"
//判断是否卡死在登录状态
Rem checkLoginStat
VBSCall FindPic(0,0,1020,760,dir&"登录中.bmp",0.8,x,y)
If x>-1
//检测50次后关闭游戏客户端
If j > 100
//MessageBox "100"
Plugin findWin = Window.Find(0,"龙骑士Online")
Plugin Window.Close(findWin)
EndIf
Delay 1000
VBSCall FindPic(0,0,1020,760,dir&"登录中.bmp",0.8,x,y)
If x>-1
j = j+1
// MessageBox j
Goto checkLoginStat
EndIf
EndIf
MoveTo 438,389
Delay 100
LeftClick 0
Delay 100
//光标向右移,防止光标在字符中间
KeyPress 39,20
Delay 300
KeyPress 8,30
Delay 500
SayString GameAccount
Delay 100
MoveTo 423,452
Delay 100
LeftClick 1
Delay 100
//光标向右移,防止光标在字符中间
KeyPress 39,20
Delay 300
KeyPress 8,30
Delay 500
SayString Password
Delay 500
KeyPress 13
Else
//盛大用户登录
MoveTo 485,259
Delay 100
LeftClick 0
Delay 100
//光标向右移,防止光标在字符中间
KeyPress 39,20
Delay 300
KeyPress 8,30
Delay 500
SayString GameAccount
Delay 100
MoveTo 483,301
Delay 100
LeftClick 1
Delay 100
//光标向右移,防止光标在字符中间
KeyPress 39,20
Delay 300
KeyPress 8,30
Delay 500
SayString Password
Delay 500
KeyPress 13
EndIf
Return 登录
Sub 确定按钮
VBS dim x,y
VBSCall FindColor(330,335,507,406,"21c9f7",x,y)
If x>-1
MoveTo x,y
Delay 500
LeftClick 1
EndIf
//打开游戏点同意按钮
IfColor 663,564,189bc9,0
MoveTo 663,564
Delay 500
LeftClick 1
EndIf
Return 确定按钮
Sub 激活游戏窗口
Plugin findWin = Window.Find(0,"龙骑士Online")
If findWin <> 0
Plugin rect = Window.GetClientRect(findWin)
If rect<>"0"
arr = Split(rect,"|")
If CInt(arr(2)) <> 800 and CInt(arr(3)) <> 600
YN=obj.Popup("请将游戏分辩率调成800*600*32",0,"龙骑士",0)
EndIf
EndIf
Plugin actWindow = Window.Active(findWin)
Plugin Window.Move(findWin,0,0)
EndIf
Return 激活游戏窗口
Sub 打开龙骑士
VBSCall RunApp("D:\龙骑士OL")
Delay 1000
Plugin directory = Window.Find(0,"龙骑士OL")
Plugin Window.Active(directory)
Delay 500
KeyPress 33,15
Delay 1000
VBSCall FindPic(0,50,1023,767,dir&"enter.bmp",0.8,x,y)
If x>-1
MoveTo x,y
Delay 500
LeftDoubleClick 1
Delay 30000
EndIf
Return 打开龙骑士
附件:
script.rar 附件:
lqs.rar