1.     否则
  2.         调用子程序 找自己
  3.         调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  4.         如果表达式 (intX2>0 and intY2>0) 为真,则
  5.             超级模拟按键<F5>
  6.         否则
  7.             延时100毫秒
  8.         条件结束
  9.         延时500毫秒
  10.         调用子程序 充电
  11.     条件结束
  12.     延时500毫秒
  13.     （VBScript语句） TRt=timer
  14.     标记 看是否为房主
  15.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  16.     如果表达式 (intX>0 and intY>0) 为真,则
  17.         超级模拟按键<F5>
  18.         延时110毫秒
  19.         超级模拟按键<Enter>
  20.         延时110毫秒
  21.         跳转到标记 看是否为房主
  22.     条件结束
  23.     延时100毫秒
  24.     调用子程序 找自己
  25.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  26.     如果表达式 (intX2>0 and intY2>0) 为真,则
  27.     否则
  28.         超级模拟按键<F5>
  29.         延时100毫秒
  30.     条件结束
  31.     延时100毫秒
  32.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  33.     如果表达式 (intX>0 and intY>0) 为真,则
  34.     否则
  35.         跳转到标记 结束准备游戏
  36.     条件结束
  37.     延时100毫秒
  38.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  39.     如果表达式 (intX>0 and intY>0) 为真,则
  40.         超级模拟按键<Enter>
  41.     否则
  42.         跳转到标记 准备游戏start
  43.     条件结束
  44.     标记 结束准备游戏
  45.     // Gosub 等待读取
  46. 子程序结束,回到调用处
  47. 子程序 找自己
  48.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  49.     如果表达式 (intX>0 and intY>0) 为真,则
  50.         跳转到标记 结束找自己
  51.     否则
  52.         调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  53.         如果表达式 (intX>0 and intY>0) 为真,则
  54.             跳转到标记 结束找自己
  55.         否则
  56.             调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  57.             如果表达式 (intX>0 and intY>0) 为真,则
  58.                 跳转到标记 结束找自己
  59.             条件结束
  60.         条件结束
  61.     条件结束
  62.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  63.     如果表达式 (intX>0 and intY>0) 为真,则
  64.         跳转到标记 结束找自己
  65.     否则
  66.         调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  67.         如果表达式 (intX>0 and intY>0) 为真,则
  68.             跳转到标记 结束找自己
  69.         否则
  70.             调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  71.             如果表达式 (intX>0 and intY>0) 为真,则
  72.                 跳转到标记 结束找自己
  73.             条件结束
  74.         条件结束
  75.     条件结束
  76.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  77.     如果表达式 (intX>0 and intY>0) 为真,则
  78.         跳转到标记 结束找自己
  79.     否则
  80.         调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  81.         如果表达式 (intX>0 and intY>0) 为真,则
  82.             跳转到标记 结束找自己
  83.         否则
  84.             调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  85.             如果表达式 (intX>0 and intY>0) 为真,则
  86.                 跳转到标记 结束找自己
  87.             条件结束
  88.         条件结束
  89.     条件结束
  90.     调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  91.     如果表达式 (intX>0 and intY>0) 为真,则
  92.         跳转到标记 结束找自己
  93.     否则
  94.         调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  95.         如果表达式 (intX>0 and intY>0) 为真,则
  96.             跳转到标记 结束找自己
  97.         否则
  98.             调用外部VBScript子程序 在屏幕区域里查找图形(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
  99.             如果表达式 (intX>0 and intY>0) 为真,则
  100.                 跳转到标记 结束找自己