圣境传说前台脚本源码+后台源码Q文件（按键精灵已不再掉线） [复制链接]

本帖最后由 qq250039815 于 2012-4-10 16:59 编辑

这两天玩了个新游戏 叫圣境传说 写了个简单的脚本 跟大家分享下 盒子 或会员精灵
现在我编辑下 更新了以下功能
1.不抢怪 不杀BOSS
2.猎人宝宝死亡自动召唤
3.死亡自动返回挂机点
4.定点挂机杀够数量怪物 自动返回挂机点
5.装备没持久验证报警


源码：

---

---

通用版：

---

ii=0
w=1
Delay 1000
GetCursorPos intX, intY
Delay 100
KeyPress 77, 1
Delay 100
Rem 开始找怪
Gosub 验证报警
Gosub 死亡复活返回挂机
KeyPress 9, 1
Delay 300
i=i+1
If i>=10
i=0
KeyPress 77, 1
Delay 1000
MoveToEx intX, intY
Delay 500
LeftClick 1
Delay 1000
While w=1
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\6.bmp",0.9,xxxxxx,yyyyyy
If xxxxxx <0
KeyPress 77, 1
Delay 500
Gosub 防卡地图
Goto 开始找怪

End If
Wend
End If
Gosub 开始打怪
Goto 开始找怪
Sub 开始打怪
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\1.bmp",0.9,x,y
If x > 0
Delay 500
Gosub 死亡复活返回挂机
IfColor 288+x,37+y,&HC8BCF6,2
Gosub 召唤宝宝
Gosub 装备没耐久
Gosub 验证报警
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Gosub 技能释放
Rem 继续打怪
IfColor 177+x,37+y,&HC4BBF9,2
Gosub 装备没耐久
Gosub 验证报警
Gosub 技能释放
Gosub 防卡怪
Gosub 防无限技能
Else
Goto 开始找怪
End If
Goto 继续打怪
End If
End If
End Sub
Sub 防卡怪
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\1.bmp",0.9,x,y
If x > 0
IfColor 288+x,37+y,&HC8BCF6,2
Goto 开始找怪
End If
End If
End Sub
Sub 技能释放
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\8BOSS图.bmp",0.9,xxxxxxxx,yyyyyyyy
If xxxxxxxx < 0
KeyPress 49, 1
Delay 500
KeyPress 50, 1
Delay 500
KeyPress 51, 1
Delay 500
KeyPress 52, 1
Delay 1000
End If
End Sub
Sub 召唤宝宝
FindPic 0,0,1920,1080,"C:\Documents and Settings\Administrator\桌面\坐骑.bmp",0.9,xxx,yyy
If xxx > 0
IfColor -102+x,91+y,&HC4BBF9,0
Else
KeyDown 18, 1
KeyPress 48, 1
KeyUp 18, 1
Delay 3000
End If
End If
End Sub
Sub 验证报警
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\4.bmp",0.5,xxxx,yyyy
If xxxx > 0
Delay 100
KeyPress 116, 1
Delay 100
EndScript
End If
End Sub

Sub 死亡复活返回挂机
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\就近复活7.bmp",0.9,xxxxxxx,yyyyyyy
If xxxxxxx > 0
MoveToEx xxxxxxx, yyyyyyy
Delay 300
LeftClick 1
Delay 2000
KeyPress 77, 1
Delay 2000
MoveToEx intX, intY
Delay 500
LeftClick 1
Delay 1000
While w=1
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\6.bmp",0.9,xxxxxx,yyyyyy
If xxxxxx <0
KeyPress 77, 1
Delay 500
Gosub 防卡地图
Goto 开始找怪

End If
Wend
End If
End Sub
Sub 防卡地图
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\6.bmp",0.9,xxxxxx,yyyyyy
If xxxxxx < 0
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\5.bmp",0.9,xxxxx,yyyyy
If xxxxx > 0
Delay 200
KeyPress 27, 1
End If

End If
End Sub
Sub 装备没耐久
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\损.bmp",0.9,xx,yy
If xx > 0
KeyPress 116, 1
Delay 1000
EndScript
End If
End Sub
Sub 防无限技能
FindPic 0,0,1920,1080,"C:\Documents and Settings\Administrator\桌面\坐骑.bmp",0.9,xxx,yyy
If xxx > 0
Goto 开始找怪
End If
End Sub

---

补血的话 游戏自带。
游戏界面点下默认 分辨率也为1024 768 太大找不到图是不行的
盒子无法调用音乐 验证提示利用的QQ音乐或者其他音乐播放器 请打开一个音乐播放器 选择一首歌曲 将播放快捷键设置为F5
有问题+我QQ250039815


将附件图片放在桌面即可

补充：


按键精灵用户请开启神盾，将盒子的movetoex增强鼠标移动改成
moveto，并且将图片放入附加，即可在按键精灵中进行操作。

图片名称无需修改 格式改为bmp

---

---