- 用户定义变量 jinyan=1260000 当前级别升级需要经验
- 用户定义变量 t=10 隔多少分钟得到结果
- 用户定义变量 fb=DropList{1360×768分辨率1088×612窗口:3|1440×900分辨率1280×720窗口:0|1440×900分辨率1088×612窗口:2|1024×768分辨率800×600窗口:1}=0 选择屏幕和游戏窗口的分辨率类型//主程序部分
- //传说中的分割线=======================================================================================
- 标记 程序开始
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 调用子程序 判断分辨率类型
- 调用子程序 鉴别阶段
- //第一次鉴别是找到开始的经验
- 如果表达式 (q=0) 为真,则
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 跳转到标记 程序结束
- 条件结束
- kaishi=p
- 调用子程序 延时阶段
- //第二次鉴别是找到设定时间结束时经验,两次使用的是一个子程序,可以节省代码,呵呵。个人认为用子程序是好习惯。!@ !
- 调用子程序 鉴别阶段
- jieshu=p
- 调用子程序 赋值阶段
- 如果表达式 (zengliang=0) 为真,则
- 调用子程序 没有长经验
- 跳转到标记 程序结束
- 条件结束
- 如果表达式 (w>1) 为真,则
- 调用子程序 总时间大于两个小时
- 条件结束
- 如果表达式 (w=1) 为真,则
- 调用子程序 总时间一个小时
- 条件结束
- 如果表达式 (w=0) 为真,则
- 调用子程序 总时间不到一个小时
- 条件结束
- 如果表达式 (jy>10000) 为真,则
- jy=Fix(jy/10000)
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 否则
- 如果表达式 (jy>1000) 为真,则
- jy=Fix(jy/1000)
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 否则
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 条件结束
- 条件结束
- 如果表达式 (g>0) 为真,则
- 调用子程序 剩余时间大于一个小时
- 条件结束
- 如果表达式 (g=0) 为真,则
- 调用子程序 剩余时间不到一个小时
- 条件结束
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- //下面的代码是来估计完成时间的,把系统的时间和得到时间相加,并且判断是否大于24点的(因为挂机的一般都是晚上,^_^)
- shi=Hour(Now)+g
- fen=Minute(Now)+k
- half=0
- 如果表达式 (fen>60) 为真,则
- jinshi=Fix(fen/60)
- fen=fen-60*jinshi
- shi=shi+jinshi
- 条件结束
- 如果表达式 (shi>23) 为真,则
- shi=shi-24
- 条件结束
- 如果表达式 (shi>12) 为真,则
- shi=shi-12
- half=1
- 条件结束
- 如果表达式 (half=0) 为真,则
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 否则
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 条件结束
- 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
- 标记 程序结束
- //传说中的分割线========================================================================================
- 以下是程序的子程序部分
- //子程序的分割线----------------------------------------------------------------------------------------------------------------------------------------------------------
- 子程序 判断分辨率类型
- //我的电脑是1440*900的宽屏分辨率,点是自己抓得,如果各位大侠测试的时候没有找到游戏,可以自己改点(本来想用找颜色的,可是用这个比较方便)
- 如果表达式 (fb=0) 为真,则
- leng=970
- //leng是经验条的长度,抓点以后自己算得
- f=744
- //f是经验条绿色部分的纵坐标,可以稍微偏差一点
- zuimodian=1204
- //zuimodian是经验条最末点x坐标
- 条件结束
- 如果表达式 (fb=1) 为真,则
- leng=791
- f=618
- zuimodian=907
- 条件结束
- 如果表达式 (fb=3) 为真,则
- leng=970
- f=623
- zuimodian=1164
- 条件结束
- 如果表达式 (fb=2) 为真,则
- leng=970
- f=689
- zuimodian=1204