当前位置:首页 >> 信息与通信 >>

奇迹挂机捡物按键精灵源码


//--------------------------------------------------
// 脚本开始
//--------------------------------------------------
q=0
Delay 200
KeyPress 50,1
Delay 200


RightClick 1
Delay 200
KeyPress 51,1
Delay 200
RightClick 1
Delay 200
Rem 挂机
KeyPress 49,1
If q=110
Gosub 回位
EndIf
RightDown 1
Delay 1000
Gosub 搜宝
KeyPress 18,1
Gosub 搜宝
Delay 2000
Gosub 搜宝
KeyPress 18,1
Gosub 搜宝
KeyPress 18,1
Gosub 搜宝
Delay 2000
RightUp 1
Delay 1000
q=q+1
Goto 挂机
//--------------------------------------------------
// 打怪子程序
//--------------------------------------------------
Sub 打怪
Rem 打怪
RightDown 1
Delay 00
RightUp 1
Return
//--------------------------------------------------
// 搜宝子程序
//--------------------------------------------------
Sub 搜宝
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy)
If BSx>=0 and BSy>=0
Gosub 木瓜
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\祝福.bmp",1,XBx,XBy)
If XBx>=0 and XBy>=0
Gosub 祝福
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜1.bmp",1,ZJx,ZJy)
If ZJx>=0 and ZJy>=0
Gosub 木瓜1
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\祝福.bmp",1,ZLx,ZLy)
If ZLx>=0 and ZLy>=0
Gosub 祝福1
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼.bmp",1,ZDx,ZDy)
If ZDx>=0 and ZDy>=0
Gosub 之翼
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼1.bmp",1,ZSx,ZSy)
If ZSx>=0 and ZSy>=0
Gosub 之翼1
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼2.bmp",1,MYx,MYy)
If MYx>=0 and MYy>=0
Gosub 之翼2
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\生命.bmp",1,EMx,EMy)
If EMx>=0 and EMy>=0
Gosub 生命
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\灵魂.bmp",1,YJx,YJy)
If YJx>=0 and YJy>=0
Gosub 灵魂
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy)
If CBx>=0 and CBy>=0
Gosub 汉斯
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\宝石.bmp",1,YSx,YSy)
If YSx>=0 and YSy>=0
Gosub 宝石
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\血低.bmp",1,DDx,DDy)
If DDx>=0 and DDy>=0
KeyPress 81,1
Else
EndIf
Delay 100
Return
//--------------------------------------------------
// 捡宝子程序
//--------------------------------------------------
Sub 木瓜
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo BSx+30,BSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜"
KeyPress 13,1
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy)
If BSx>=0 and BSy>=0
Delay 600
MoveTo BSx+50,BSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜没捡到再捡"
KeyPress 13,1
Else
EndIf
KeyPress 13,1
Delay 400
SayString "哈哈木瓜捡到了"
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy)
If BSx>=0 and BSy>=0
Delay 600
MoveTo BSx+70,BSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜还没捡到再捡"
KeyPress 13,1
Else
EndIf
MoveTo 640,307
RightDown 1
Return
Sub 祝福
Delay 200
RightUp 1
Delay 600
MoveTo XBx+10,XBy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "祝福"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 木瓜1
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo ZJx+15,ZJy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜1"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 祝福1
Delay 200
RightUp 1
Delay 600
MoveTo ZLx+10,ZLy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "祝福1"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 之翼
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo ZDx+30,ZDy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼"
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼.bmp",1,ZDx,ZDy)
If ZDx>=0 and ZDy>=0
Delay 600
MoveTo ZDx+50,ZDy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString " 之翼没捡到再捡"
KeyPress 13,1
Else
EndIf
KeyPress 13,1
Delay 400
SayString "哈哈之翼捡到了"
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,ZDx,ZDy)
If ZDx>=0 and ZDy>=0
Delay 600
MoveTo ZDx+70,ZDy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼还没捡到再捡"
KeyPress 13,1
Else
EndIf
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 之翼1
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo ZSx+35,ZSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼1"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 之翼2
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo MYx+35,MYy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼2"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 生命
Delay 200
RightUp 1
Delay 600
MoveTo EMx+10,EMy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "生命"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 灵魂
Delay 200
RightUp 1
Delay 600
MoveTo YJx+5,YJy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "灵魂"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 汉斯
Delay 200
RightUp 1
Delay 600
MoveTo CBx+30,CBy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "汉斯"
KeyPress 13,1
VBSCall FindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy)
If CBx>=0 and CBy>=0
Delay 600
KeyPress 13,1
Delay 300
SayString "汉斯没捡到再捡"
KeyPress 13,1
MoveTo CBx+50,CBy+20
Delay 500
LeftClick 1
Delay 2000
Else
EndIf
KeyPress 13,1
Delay 300
SayString "哈哈汉斯捡到了"
KeyPress 13,1
VBSCall FindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy)
If CBx>=0 and CBy>=0
Delay 600
KeyPress 13,1
Delay 300
SayString "汉斯还没捡到再捡"
KeyPress 13,1
MoveTo CBx+50,CBy+20
Delay 500
LeftClick 1
Delay 2000
Else
EndIf
MoveTo 640,307
RightDown 1
Return
Sub 宝石
Delay 200
RightUp 1
Delay 600
MoveTo YSx+10,YSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "宝石"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 回位
q=0
KeyPress 77,1
Delay 1000
MoveTo 272,581
Delay 300
LeftClick 1
Delay 3000
MoveTo 942,526
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 1010,507
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 571,688
Delay 1000
LeftClick 1
Delay 3000
MoveTo 477,592
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 308,380
Delay 1000
LeftClick 1
Delay 3000
MoveTo 345,505
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 1021,562
Delay 3000
LeftClick 1
Delay 3000
Return 回位


相关文章:
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享_计算机软件及应用_IT/...按键精灵自动加血和加蓝... 11页 免费 武林群侠传2自动采矿脚本... 2页 ...
按键精灵做连击脚本(奇迹MU战士用)
按键精灵做连击脚本 1、123 键的按法 所谓按法实际上就是各种代码方式 常见的...奇迹挂机捡物按键精灵源... 3页 2下载券 _连击延时数据【仅供参考... 3页...
学习游戏脚本制作:按键精灵键鼠同步器源码分享_图文
学习游戏脚本制作:按键精灵键鼠同步器源码分享_计算机软件及应用_IT/计算机_专业资料。按键精灵——简单游戏脚本制作开发工具, 按键精灵论坛配有丰富的简单脚本开发...
自动喊话脚本源码
自动喊话脚本源码_计算机软件及应用_IT/计算机_专业资料。按键精灵 脚本 自动喊话UserVar sayingStr=0 "设置内容" UserVar fuben=0 "设置内容" UserVar mitan=0 "...
按键精灵判断DNF人物位置源码
按键精灵判断 DNF 人物位置源码 DNF 这游戏,每次进图的时候,boos 位置还有门口位置和障碍物每次可能都不一样. 这让不少制作脚本的新手很苦恼, 前段时间有人在...
按键精灵DNF秒拍卖源码
第 " & 种_竞拍 & " 种物品, 已成功 " & 笔_竞拍 & " 笔。 ", "...按键精灵DNF自动加血源码... 按键精灵DNF强化上架循环...1/2 相关文档推荐 ...
来自按键精灵的DNF刷第一图源码
来自按键精灵的DNF刷第一图源码_计算机软件及应用_IT/计算机_专业资料。来自按键..."出图按键" UserVar ctj2=0 "出图按键" UserVar jqaj=0 "取按键" ...
VB 类按键精灵源码2014
VB 类按键精灵源码2014_计算机软件及应用_IT/计算机_专业资料。VB 类按键精灵源码VB 类按键精灵源码 2008-02-06 09:55:09| 分类: 默认分类 | 标签: |字号大...
能真正后台运行的按键精灵代码支持最小化和切换窗口
hwnd UserVar yanshi=300 //间隔时间,也可设置如红蓝低于某个数时自动运行动作...按键精灵打怪代码 2页 免费 按键精灵源代码整理 11页 免费 一个浮动窗口和...
按键精灵脚本制作
然后切换到按键精灵程序。按 ifcolor 的使用方法来抓取我们的血条颜色坐标。并且 插入到代码内。 此时,我们可以看到在按键精灵里多出了三条语句(在源代码那边哦):...
更多相关标签:
奇迹mu精灵地图挂机点 | 奇迹精灵地图挂机点 | 按键精灵奇迹挂机脚本 | 奇迹精灵地图挂机 | 精灵奇迹 | 全民奇迹精灵组合大全 | 热血精灵派奇迹之路 | 奇迹暖暖精灵鹿后 |