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.             调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  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.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  53.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  54.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  55. 子程序结束,回到调用处
  56. //分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  57. 子程序 总时间大于两个小时
  58.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  59.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  60. 子程序结束,回到调用处
  61. //分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  62. 子程序 总时间一个小时
  63.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  64.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  65. 子程序结束,回到调用处
  66. //分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  67. 子程序 总时间不到一个小时
  68.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  69.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  70. 子程序结束,回到调用处
  71. //分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  72. 子程序 剩余时间大于一个小时
  73.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  74. 子程序结束,回到调用处
  75. //分割线------------------------------------------------------------------------------------------------------------------------------------------------------
  76. 子程序 剩余时间不到一个小时
  77.     调用外部VBScript子程序 MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
  78. 子程序结束,回到调用处