- dim hong,hong1,lan,N,H,a,b
- dim sj(8),s(8),color(3),t(15)
- //定义数组
- dim i,m,r,j,FH,BJ
- i=0:m=0:r=0:j=1
- 调用子程序 初始化时间
- //初始化时间
- color(0)="0000F8":color(1)="D56D22":color(2)="0505F8"
- //color(0):人物血颜色,color(1):为蓝颜色,color(2):怪血颜色
- 用户定义变量 hong=60 红量<hong%时,自动吃小红
- 用户定义变量 hong1=35 红量<hong1%时,自动吃大红
- 用户定义变量 lan=20 蓝量<lan%时,自动吃蓝
- 用户定义变量 sj(0)=2 技能2间隔时间(秒)
- 调用子程序 [判断时间]
- 用户定义变量 sj(1)=2 技能3间隔时间(秒)
- 调用子程序 [判断时间]
- 用户定义变量 sj(2)=5 技能F1间隔时间(秒)
- 调用子程序 [判断时间]
- 用户定义变量 sj(3)=6 技能F2间隔时间(秒)
- 调用子程序 [判断时间]
- 用户定义变量 sj(4)=1200 技能F3间隔时间(秒)
- 调用子程序 [判断时间]
- 用户定义变量 H=1 H=1开启少血打坐功能,H=0不开启
- 用户定义变量 FH=3 复活第FH次数后挂机脚本停止运行
- 用户定义变量 BJ=25 挂机半径设置(值为:0--40,为0时关闭这功能)
- //******************************************
- // 主程序开始
- //******************************************
- 展开附件 \script
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\定位点.BMP",0.8,x,y)
- 延时500毫秒
- //取得定位点(x,y)这个坐标点
- 调用子程序 放大地图
- 延时10毫秒
- 调用子程序 挂机点
- 延时10毫秒
- 如果表达式 (1) 为真,则循环执行
- 标记 开始
- 延时32毫秒
- //------------------------------------------
- 调用子程序 死亡检测
- 延时10毫秒
- 调用子程序 红蓝检测
- 延时10毫秒
- 调用子程序 怪检测
- //------------------------------------------
- 循环结束
- //循环执行主程序
- //--------------------------------------------- [复活次数过多,结束脚本]
- 标记 脚本结束
- //MessageBox 复活次数超过FH次,脚本停止运行
- 脚本停止运行
- //***********************************************
- // 主程序结束
- //***********************************************
- 子程序 死亡检测
- 如果 (3/100*((x-616)-(x-733))+(x-733),y+11) 的颜色大约等于 #color(0) 则
- //人物最低血量检测
- 延时10毫秒
- 否则
- 调用子程序 复活
- 条件结束
- 条件结束
- 子程序结束,回到调用处
- //***********************************************
- 子程序 状态技能检测
- 延时10毫秒
- 如果表达式 (DateDiff("s",t(7),now)>=10) 为真,则
- t(7)=now
- //初始化时间量
- 如果 (x-35,y-3) 的颜色大约等于 #54BAFF 则
- //检测这个技能有没有放
- 延时10毫秒
- 否则
- 硬件模拟按键<F3>
- //放状态技能
- 延时1000毫秒
- 条件结束
- 条件结束
- 子程序结束,回到调用处
- //****************************************
- // 红蓝检测
- //****************************************
- 子程序 红蓝检测
- 延时10毫秒
- 如果 (hong/100*((x-616)-(x-733))+(x-733),y+11) 的颜色大约等于 #color(0) 则
- //人物血量少于hong%时,自动补血
- 延时10毫秒
- 否则
- 调用子程序 补红打坐
- 条件结束
- //-------------------------------------------------------
- 延时10毫秒
- 如果 (lan/100*((x-616)-(x-733))+(x-733),y+29) 的颜色大约等于 #color(1) 则
- //蓝少于lan%时,自动补蓝
- 延时10毫秒
- 否则
- 调用子程序 补蓝
- 条件结束
- 子程序结束,回到调用处