1. 用户定义变量 jinyan=1260000 当前级别升级需要经验
  2. 用户定义变量 t=10 隔多少分钟得到结果
  3. 用户定义变量 fb=DropList{1360×768分辨率1088×612窗口:3|1440×900分辨率1280×720窗口:0|1440×900分辨率1088×612窗口:2|1024×768分辨率800×600窗口:1}=0 选择屏幕和游戏窗口的分辨率类型//主程序部分
  4. //传说中的分割线=======================================================================================
  5. 标记 程序开始
  6. 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  7. 调用子程序 判断分辨率类型
  8. 调用子程序 鉴别阶段
  9. //第一次鉴别是找到开始的经验
  10. 如果表达式 (q=0) 为真,则
  11.     调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  12.     跳转到标记 程序结束
  13. 条件结束
  14. kaishi=p
  15. 调用子程序 延时阶段
  16. //第二次鉴别是找到设定时间结束时经验,两次使用的是一个子程序,可以节省代码,呵呵。个人认为用子程序是好习惯。!@ !
  17. 调用子程序 鉴别阶段
  18. jieshu=p
  19. 调用子程序 赋值阶段
  20. 如果表达式 (zengliang=0) 为真,则
  21.     调用子程序 没有长经验
  22.     跳转到标记 程序结束
  23. 条件结束
  24. 如果表达式 (w>1) 为真,则
  25.     调用子程序 总时间大于两个小时
  26. 条件结束
  27. 如果表达式 (w=1) 为真,则
  28.     调用子程序 总时间一个小时
  29. 条件结束
  30. 如果表达式 (w=0) 为真,则
  31.     调用子程序 总时间不到一个小时
  32. 条件结束
  33. 如果表达式 (jy>10000) 为真,则
  34.     jy=Fix(jy/10000)
  35.     调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  36. 否则
  37.     如果表达式 (jy>1000) 为真,则
  38.         jy=Fix(jy/1000)
  39.         调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  40.     否则
  41.         调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  42.     条件结束
  43. 条件结束
  44. 如果表达式 (g>0) 为真,则
  45.     调用子程序 剩余时间大于一个小时
  46. 条件结束
  47. 如果表达式 (g=0) 为真,则
  48.     调用子程序 剩余时间不到一个小时
  49. 条件结束
  50. 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  51. //下面的代码是来估计完成时间的,把系统的时间和得到时间相加,并且判断是否大于24点的(因为挂机的一般都是晚上,^_^)
  52. shi=Hour(Now)+g
  53. fen=Minute(Now)+k
  54. half=0
  55. 如果表达式 (fen>60) 为真,则
  56.     jinshi=Fix(fen/60)
  57.     fen=fen-60*jinshi
  58.     shi=shi+jinshi
  59. 条件结束
  60. 如果表达式 (shi>23) 为真,则
  61.     shi=shi-24
  62. 条件结束
  63. 如果表达式 (shi>12) 为真,则
  64.     shi=shi-12
  65.     half=1
  66. 条件结束
  67. 如果表达式 (half=0) 为真,则
  68.     调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  69. 否则
  70.     调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  71. 条件结束
  72. 调用外部VBScript子程序 MessageBox("老大,我要开始了,单击确定继续程序,"&t&" 分钟后知道结果!")
  73. 标记 程序结束
  74. //传说中的分割线========================================================================================
  75. 以下是程序的子程序部分
  76. //子程序的分割线----------------------------------------------------------------------------------------------------------------------------------------------------------
  77. 子程序 判断分辨率类型
  78.     //我的电脑是1440*900的宽屏分辨率,点是自己抓得,如果各位大侠测试的时候没有找到游戏,可以自己改点(本来想用找颜色的,可是用这个比较方便)
  79.     如果表达式 (fb=0) 为真,则
  80.         leng=970
  81.         //leng是经验条的长度,抓点以后自己算得
  82.         f=744
  83.         //f是经验条绿色部分的纵坐标,可以稍微偏差一点
  84.         zuimodian=1204
  85.         //zuimodian是经验条最末点x坐标
  86.     条件结束
  87.     如果表达式 (fb=1) 为真,则
  88.         leng=791
  89.         f=618
  90.         zuimodian=907
  91.     条件结束
  92.     如果表达式 (fb=3) 为真,则
  93.         leng=970
  94.         f=623
  95.         zuimodian=1164
  96.     条件结束
  97.     如果表达式 (fb=2) 为真,则
  98.         leng=970
  99.         f=689
  100.         zuimodian=1204