1.     条件结束
  2. 子程序结束
  3. 注释：子程序的分割线-----------------------------------------------------------------------------------------------------------------------------------
  4. 子程序 鉴别阶段()
  5.     令 p = zuimodian
  6.     注释：从上面的到最末点的坐标参加计算
  7.     标记 开始检测(子程序 鉴别阶段)
  8.     注释：通过颜色判断当前经验的坐标
  9.     如果点 (p,f) 的颜色约等于 "c700" 则
  10.         令 p = p
  11.         注释：p值是用来返回的，这里覆盖了原来的值，所以可以反复调用这个子程序
  12.         令 q = 1
  13.         注释：q值是帮助判断找到没有的标记值，找到=1，没有=0
  14.     否则
  15.         注释：这个if是规定从右到左的找，直到找到
  16.         如果 p > 0 则
  17.             令 p = p - 1
  18.             跳转到标记 开始检测(子程序 鉴别阶段)
  19.         否则
  20.             调用 弹出窗口 "Sorry!我没有找到程序运行需要的参数！游戏是不是没有运行？"
  21.             令 q = 0
  22.         条件结束
  23.     条件结束
  24. 子程序结束
  25. 注释：子程序的分割线-----------------------------------------------------------------------------------------------------------------------------------
  26. 子程序 延时阶段()
  27.     令 haomiao = t * 60000
  28.     延时 haomiao 毫秒
  29. 子程序结束
  30. 注释：子程序的分割线-----------------------------------------------------------------------------------------------------------------------------------
  31. 子程序 赋值阶段()
  32.     令 zengliang = jieshu - kaishi
  33.     令 zb = zengliang / leng
  34.     令 yb = (zuimodian - jieshu) / leng
  35.     令 total = t / zb
  36.     令 lest = total * yb
  37.     令 i = (jinyan * zb) / t
  38.     令 jy = jinyan * yb
  39.     注释：上面的一段是计算增加经验和剩余经验的百分比和总时间与剩余时间的判断
  40.     令 w = Fix(total / 60)
  41.     令 r = Fix(total - w * 60)
  42.     令 g = Fix(lest / 60)
  43.     令 k = Fix(lest - g * 60)
  44.     注释：这一段是换算小时的
  45.     令 jy = Fix(jy)
  46.     令 i = Fix(i)
  47.     注释：Fix（）是取整函数，相当于Int,不过小于零的时候好像有不同，可到宝典看看，（什么，你不知道宝典，按键的啦！！！）
  48. 子程序结束
  49. 注释：分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  50. 注释：下面的这几段没有什么好说的，对话框的使用啦，很简单的。
  51. 子程序 没有长经验()
  52.     调用 弹出窗口 "老大，你玩我啊，一点都没有变嘛，还要继续努力啊！"
  53.     调用 弹出窗口 "本级升级单位时间经验当然等于 " & i & " 点经验每分钟啦！"
  54.     调用 弹出窗口 "你的升级路程还很长啊，一点都没有长经验嘛 ！"
  55. 子程序结束
  56. 注释：分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  57. 子程序 总时间大于两个小时()
  58.     调用 弹出窗口 "本级升级需要总时间预计为 " & w & " 小时 " & r & " 分钟！"
  59.     调用 弹出窗口 "有够衰啊，居然要 " & w & " 多个小时才够升级！"
  60. 子程序结束
  61. 注释：分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  62. 子程序 总时间一个小时()
  63.     调用 弹出窗口 "本级升级需要总时间预计为 " & w & " 小时 " & r & " 分钟！"
  64.     调用 弹出窗口 "还不错啊， " & w & " 个多小时就够升级了！"
  65. 子程序结束
  66. 注释：分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  67. 子程序 总时间不到一个小时()
  68.     调用 弹出窗口 "本级升级需要总时间预计为 " & r & " 分钟！"
  69.     调用 弹出窗口 "太帅了，不到1个小时就够升级了！"
  70. 子程序结束
  71. 注释：分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  72. 子程序 剩余时间大于一个小时()
  73.     调用 弹出窗口 "你惨了!(∵)!还要 " & g & " 小时 " & k & " 分钟你才能升级！"
  74. 子程序结束
  75. 注释：分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  76. 子程序 剩余时间不到一个小时()
  77.     调用 弹出窗口 "恭喜你！^_^ ！离本次升级结束还有 " & k & " 分钟 ！"
  78. 子程序结束