奇迹世界挂机脚本

2025-02-26 18:30:31

推荐回答（1个）

回答1：

不玩奇迹世界了--送个自用挂机脚本---

不想玩奇迹世界了,玩这个游戏觉得没什么意思

现在把我自己用的脚本送给你们,还在玩奇迹世界的并有兴趣的可以试用下,在分辨率为1024*768窗口32位色下运行(法师群攻不能用)

把下面的代码复制粘贴就行了~~~~~~~~~~~~~~~~~~

用了的吼下^_^ 或回个贴^_^

呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//复制下面代码

//【功能说明】.
//自动找怪(没怪时是否要跑一小段路,默认为跑一小段路),打怪和补血,6秒怪不少血就重新找怪.
//副本复活设置和野外复活设置,(默认为副本复活,复活超过5次装备保护,也可设置更多).
//野外组队设置(默认为拒绝组队交易)
//【使用说明】.
//在分辨率为1024*768窗口32位色下运行
//数字1,2,3,4,5为技能键,数字6为捡拾,数字7为小红,8为大红,9为蓝.
//当Z设置为1时自动跑动(默认为自动跑动),为0时不自动跑动.
//FH为副本复活设置为10,FH为野外复活设置为1,
//zu=10为同意组队交易,设置为zu=1(默认)时为拒绝组队交易
//【制作作者】.
//****风少****

VBS dim hong,hong1,hong2,lan,hongT,lanT,Z,B
VBS t1=now:n=0
VBS dim FH,zu,n
VBS f=1
UserVar hong=70 血量UserVar hong1=50 血量UserVar hong2=20 血量UserVar lan=30 蓝量UserVar Z=1 Z的值为1时自动走动,为0时不走动
UserVar FH=10 10为副本复活,1野外复活
UserVar zu=1 10为同意组队,1为拒绝组队
UserVar n=5 默认复活5次,也可设为更多
UserVar B=1 为启动组队交易功能(1为启用,0为不启用)
//*******************************************
// 主程序
//*******************************************
Rem 开始
//循环开始标记
Delay 32
//循环小延时，防止出现CPU使用率过高，脚本卡
//****************************************
// 怪检测
//****************************************
VBSCall FindColorEx(430,61,550,72,"#0C197C",0,0.8,x,y)
If x>=0 and y>=0
KeyPressH 49 1
//找到怪,攻击
Delay 32
Gosub 打怪
Gosub 锁怪时间和怪血量判断
Else
VBS n=n+1
KeyPressH 9,1
Delay 32
If n>=5
Gosub 移动和找怪
EndIf
EndIf
//****************************************
// 组队+复活+交易检测
//****************************************
IfColor 450 322 #110F10 2
//VBSCall FindColorEx(409,312,610,330,"#110F10",0,0.9,x,y)
//If x>=0 and y>=0
Gosub 复活组队交易
EndIf
Delay 32
//****************************************
// 红检测
//****************************************
IfColor hong/100*(296-86)+86 40 #080908 2
//x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
//y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
Gosub 补红
EndIf
//****************************************
// 蓝检测
//****************************************
IfColor lan/100*(296-86)+86 52 #0A0903 2
//x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
//y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
Gosub 补蓝
EndIf
Delay 32
Goto 开始
//主程序循环执行
//********************************************
// 补红蓝
//********************************************
Sub 补红
//Rem 补红
IfColor hong/100*(296-86)+86 40 #080908 2
//x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
//y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
IfColor hong1/100*(296-86)+86 40 #080908 2
KeyPressH 56 1
Delay 32
KeyPressH 55,1
//按下补血快捷键
Delay hongT
//补血延时
Else
KeyPressH 55 1
//按下补血快捷键
Delay hongT
//补血延时
EndIf
EndIf
Rem 血少离开
IfColor hong2/100*(296-86)+86 40 #080908 2
//x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
//y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
VBSCall FindColorEx(430,61,550,72,"#0C197C",0,0.8,x,y)
//Delay 200
If x>=0 and y>=0
KeyPressH 56,1
Delay 32
KeyPressH 55,1
KeyDownH 68,1
Delay 300
KeyUpH 68,1
KeyDownH 87,1
Delay 5000
KeyUpH 87,1
Delay 32
Else
KeyPressH 187,1
//坐下休息
Delay 5000
EndIf
EndIf
Rem 1
Return 补红
Sub 补蓝
IfColor lan/100*(296-86)+86 52 #0A0903 2
//x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
//y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
KeyPressH 57 1
//按下补蓝快捷键
Delay lanT
//补蓝延时
EndIf
// Rem 1
Return 补蓝
//*************************************
// 找怪部份
//*************************************
Sub 移动和找怪
Delay 32
//找怪
If Z=1
KeyDownH 87,1
Delay 1500
KeyUpH 87 1
KeyPressH 32,1
KeyDownH 87,1
Delay 2000
KeyUpH 87 1
Delay 2
KeyPressH 9 1
VBSCall FindColorEx(430,61,550,72,"#0C197C",0,0.8,x,y)
//Delay 200
If x>=0 and y>=0
KeyPressH 49 1
//找到怪,攻击
Goto 12
Else
Delay 500
KeyDownH 83 1
Delay 200
KeyUpH 83 1
//后退一点
KeyDownH 68 1
Delay 250
KeyUpH 68 1
//转方向
KeyPressH 9 1
EndIf
EndIf
Delay 32
Rem 12
Return 移动和找怪
//**************************************
// 打怪和血少保护
//*************************************
Sub 打怪
//Rem 打怪
VBS n=0
//返回初始值
KeyPressH 49 1
//放技能 1
Delay 64
KeyPressH 54 1
//捡起东西
Delay 64
KeyPressH 50 1
//放技能 2
Delay 64
KeyPressH 51 1
//放技能 3
Delay 64
KeyPressH 49 1
//放技能 1
Delay 64
KeyPressH 54 1
//捡起东西
Delay 64
KeyPressH 52 1
//放技能 4
Delay 64
KeyPressH 53 1
//放技能 5
Delay 64
KeyPressH 54 1
//捡起东西
Rem 血少离开
IfColor hong2/100*(296-86)+86 40 #080908 2
//x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
//y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
KeyPressH 56,1
Delay 32
KeyPressH 55,1
KeyDownH 68,1
Delay 300
KeyUpH 68,1
KeyDownH 87,1
Delay 5000
KeyUpH 87,1
Delay 32
EndIf
Rem 123
Return 打怪
//********************************
// 锁怪5秒超时换怪判断
//********************************
Sub 锁怪时间和怪血量判断
VBSCall FindColorEx(430,61,550,72,"#0C197C",0,0.8,x,y)
Delay 8
If x>=0 and y>=0
//怪还没杀死
If DateDiff("s",t1,now)>=6
//< DateDiff 函数：返回两个日期之间的时间间隔>
//<"s"：秒>
Delay 8
VBS t1=now
//重新定义时间变量
VBSCall FindColorEx(600,61,640,72,"#1625AA",0,0.8,x,y)
Delay 8
If x>=0 and y>=0
//还没打到怪,太远或卡或是BOSS,重新找怪
KeyPressH 9,1
//锁定下一个怪
EndIf
EndIf
//****************************************
// 捡拾东西
//****************************************
Else
KeyPressH 54 3
//捡起东西
Delay 32
KeyPressH 54 3
//捡起东西
Delay 32
EndIf
Rem 1234
Return 锁怪时间和怪血量判断
//******************************************
// 组队+复活+交易
//******************************************
Sub 复活组队交易
//****************************************
// 复活检测
//****************************************
//IfColor 450 322 #110F10 0
IfColor FH/100*(160-90)+90 40 #060603 2
//x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
//y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
If FH=10 and f<=n
VBS f=f+1
//复活次数累加
MoveTo 446,455
Delay 32
LeftClickH 1
//副本复活
ElseIf FH=1 and f<=n
// If f<=n
VBS f=f+1
//复活次数累加
MoveTo 570,454
Delay 32
LeftClickH 1
//野外复活
EndIf
EndIf
Delay 32
//延时
//****************************************
// 组队交易检测
//****************************************
Delay 500
IfColor 450 322 #110F10 0
// VBSCall FindColorEx(409,312,610,330,"#110F10",0,0.9,x,y)
// If x>=0 and y>=0
If zu=10 and B=1
MoveTo 445,455
Delay 32
LeftClickH 1
//同意组队交易
ElseIf zu=1 and B=1
//默认为拒绝组队交易
MoveTo 572,455
Delay 32
LeftClickH 1
//拒绝组队交易
EndIf
EndIf
Rem 12345
Return 复活组队交易

最新问答

晨光优品按动笔芯和kaco爱心笔芯一样嘛？