1.                     按住<1>
  2.                     延时400毫秒
  3.                     弹起<1>
  4.                 条件结束
  5.             条件结束
  6.         条件结束
  7.         延时500毫秒
  8.         调用子程序 判断死亡
  9.     否则
  10.         //复活
  11.         如果表达式 (Dtime <> 0 and Died=1) 为真,则
  12.             Dtime=0
  13.             Ctime= 0
  14.             Died=0
  15.             T = 0
  16.             按键<Enter>
  17.             延时50毫秒
  18.             Mystring ="终于活了,不容易啊..."
  19.             调用子程序 说话
  20.             Mystring ="好了,开练吧..."
  21.             调用子程序 说话
  22.             按键<Esc>
  23.             延时200毫秒
  24.         条件结束
  25.         调用子程序 判断血量
  26.         调用子程序 切换状态
  27.     条件结束
  28. 子程序结束,回到调用处
  29. 子程序 切换状态
  30.     如果 (731,564) 的颜色不等于 #ffffff 则
  31.         如果表达式 (Chgtime =0) 为真,则
  32.             Chgtime = now
  33.             Ctime= 0
  34.         否则
  35.             如果表达式 (Datediff("s",Chgtime,now) <=15) 为真,则
  36.                 按键<Tab>
  37.                 延时120毫秒
  38.             否则
  39.                 Chgtime =0
  40.                 按键<Esc>
  41.                 调用子程序 取消国战
  42.                 调用子程序 判断死亡
  43.             条件结束
  44.         条件结束
  45.         调用子程序 切换状态
  46.     否则
  47.         Chgtime =0
  48.     条件结束
  49. 子程序结束,回到调用处
  50. 子程序 判断血量
  51.     如果表达式 (Htype =1) 为真,则
  52.         如果 (40,HPlowerY) 的颜色等于 #HPlowerColor 则
  53.             //少血,需要吃红
  54.             如果表达式 (HPdelay > 0) 为真,则
  55.                 如果表达式 (Htime = 0) 为真,则
  56.                     Htime = now
  57.                 否则
  58.                     如果表达式 (DateDiff("s",Htime,now) >= HPdelay) 为真,则
  59.                         按住<1>
  60.                         延时400毫秒
  61.                         弹起<1>
  62.                         Htime = 0
  63.                     条件结束
  64.                 条件结束
  65.             否则如果(HPdelay = 0)为真,则
  66.                 按住<1>
  67.                 延时400毫秒
  68.                 弹起<1>
  69.             条件结束
  70.         否则
  71.             Htime = 0
  72.         条件结束
  73.     条件结束
  74. 子程序结束,回到调用处
  75. 子程序 计算时间
  76.     THour=0
  77.     TMin=0
  78.     Tsec=0
  79.     THour = T\60\60
  80.     TMin = T\60 Mod 60
  81.     Tsec = T Mod 60
  82.     如果表达式 (THour >0) 为真,则
  83.         Mystring = Mystring & "[" & THour & "]小时"
  84.     条件结束
  85.     如果表达式 (TMin >0) 为真,则
  86.         Mystring = Mystring & "[" & TMin & "]分"
  87.     条件结束
  88.     Mystring = Mystring & "[" & Tsec & "]秒"
  89. 子程序结束,回到调用处
  90. 子程序 取得数字
  91.     Numb= ""
  92.     AnJian= 0
  93.     如果表达式 (AnJian<>13) 为真,则循环执行
  94.         等待按任意键，保存到变量AnJian中
  95.         如果表达式 (AnJian >= 48 and AnJian <= 57) 为真,则
  96.             Numb = Numb & Chr(AnJian)
  97.         否则如果(AnJian= 8)为真,则
  98.             Numb = Left(Numb,Len(Numb)-1)
  99.         条件结束
  100.     循环结束