- //*＝＝＝＝＝＝＝＝＝＝＝＝以下用户可修改的代码＝＝＝＝＝＝＝＝＝＝＝＝
- 用户定义变量 Ztai=1 此功能是加状态，1为只加一个状态，2为只加二个状态，3为只加三个状态。0为不加
- 用户定义变量 Fka=20 此功能是防卡,20=20秒<单位:秒>在20秒左右,有时候回卡住或被人拉走导致人物发呆
- 用户定义变量 Zdj=1 此功能是死亡后自动关机1为开,2为关闭功能
- //*＝＝＝＝＝＝＝＝＝＝＝＝以上是用户修改的代码＝＝＝＝＝＝＝＝＝＝＝＝
- Dim PFx,PFy,Ztai,Swx,Swy,fx,fy,Fka
- Dim File,F1,SaveString,FileName
- FileName="long\"&now&".ini"
- Set File = CreateObject("Scripting.FileSystemObject")
- Set F1 =File.CreateTextFile(FileName,2)
- F1.Close
- t2=now
- t1=now
- Gshu=0
- 调用插件命令 Fx=Sys.GetScRX()
- 调用插件命令 Fy=Sys.GetScRY()
- 标记 Gxue
- 如果 (432,35) 的颜色大约等于 #a5 则
- 调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
- 否则
- 按键<Tab>
- 延时500毫秒
- 跳转到标记 Gxue
- 条件结束
- 调用子程序 自动加状态
- 调用子程序 背包
- SaveString="*****************欢迎使用恶魔游武林-挂机开始*****************"
- 调用子程序 保存日志
- SaveString="***当前分辨率 "&Fx&"×"&Fy&""
- 调用子程序 保存日志
- SaveString="***当前加状态 "&Ztai&""
- 调用子程序 保存日志
- SaveString="***当前防卡设置 "&Fka&""
- 调用子程序 保存日志
- SaveString="***当前自动关机 "&Zdj&""
- 调用子程序 保存日志
- 标记 开始
- 调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
- 如果表达式 (Gxue=0000A5) 为真,则
- Gshu=Gshu+1
- 调用子程序 打怪
- 条件结束
- 调用子程序 拣东西
- 按键<Tab>
- 延时200毫秒
- 调用子程序 自动红蓝
- 调用子程序 死亡回城
- 跳转到标记 开始
- 子程序 自动红蓝
- 如果 (179,34) 的颜色不等于 #b5 则
- 按键<2>
- 延时1000毫秒
- 条件结束
- 如果 (135,46) 的颜色不等于 #ad9e00 则
- 按键<9>
- 延时1000毫秒
- 条件结束
- 子程序结束,回到调用处
- 子程序 紧急加血
- 如果 (179,34) 的颜色不等于 #b5 则
- 按键<2>
- 延时800毫秒
- 条件结束
- 子程序结束,回到调用处
- 子程序 背包
- 按键<B>
- 延时200毫秒
- 如果 (179,34) 的颜色不等于 #b5 则
- 按键<2>
- 延时1000毫秒
- 条件结束
- 调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
- 如果表达式 (PFx>0 and PFy>0) 为真,则循环执行
- 鼠标移到 PFx+4 , PFy+4
- 延时200毫秒
- 如果 (179,34) 的颜色不等于 #b5 则
- 按键<2>
- 延时1000毫秒
- 条件结束
- 左键按下
- 延时200毫秒
- 鼠标移到 146 , 251
- 延时200毫秒
- 左键弹起
- 延时200毫秒
- 如果 (179,34) 的颜色不等于 #b5 则
- 按键<2>
- 延时1000毫秒
- 条件结束
- 调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
- 循环结束
- 如果 (179,34) 的颜色不等于 #b5 则
- 按键<2>
- 条件结束
- 调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
- 如果表达式 (fx>0 and fy>0) 为真,则循环执行
- 鼠标移到 fx+4 , fy+4
- 延时200毫秒
- 右键单击
- 循环 5 遍