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. 调用 弹出窗口 "老大,我要开始了,单击确定继续程序," & t & " 分钟后知道结果!"
  7. 调用 判断分辨率类型()
  8. 调用 鉴别阶段()
  9. 注释:第一次鉴别是找到开始的经验
  10. 如果 q = 0 则
  11.     调用 弹出窗口 "请确认游戏运行正常,经验条没有被遮挡,分辨率正确!!!"
  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.     调用 弹出窗口 "你的本级升级所需的剩余经验呢约为 " & jy & " W余点!继续努力!"
  36. 否则
  37.     如果 jy > 1000 则
  38.         令 jy = Fix(jy / 1000)
  39.         调用 弹出窗口 "你的本级升级所需的剩余经验只有 " & jy & " 千余点!加油加油!"
  40.     否则
  41.         调用 弹出窗口 "你的本级升级所需的剩余经验约为 " & jy & " 点!很快就升级了!"
  42.     条件结束
  43. 条件结束
  44. 如果 g > 0 则
  45.     调用 剩余时间大于一个小时()
  46. 条件结束
  47. 如果 g = 0 则
  48.     调用 剩余时间不到一个小时()
  49. 条件结束
  50. 调用 弹出窗口 "本级升级效率是每分钟 " & i & " 点经验!"
  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.     调用 弹出窗口 "预计本次升级结束时间为 " & shi & ":" & fen & " " & " Am!"
  69. 否则
  70.     调用 弹出窗口 "预计本次升级结束时间为 " & shi & ":" & fen & " " & " Pm!"
  71. 条件结束
  72. 调用 弹出窗口 "OK,我的工作是结束了哦,你还要继续呢!!!拜拜!!"
  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