1.             延时900毫秒
  2.             如果 (179,34) 的颜色不等于 #b5 则
  3.                 按键<2>
  4.                 延时240毫秒
  5.             条件结束
  6.         循环结束
  7.         调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
  8.     循环结束
  9.     延时128毫秒
  10.     按键<B>
  11.     延时92毫秒
  12. 子程序结束,回到调用处
  13. 子程序 死亡回城
  14.     调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
  15.     如果表达式 (Swx>0 and Swy>0) 为真,则
  16.         鼠标移到 Swx , Swy
  17.         延时159毫秒
  18.         循环 10 遍
  19.             左键单击
  20.             延时128毫秒
  21.         循环结束
  22.         调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
  23.         SaveString="从开启脚本到现在共打怪"&Gshu&""
  24.         调用子程序 保存日志
  25.         如果表达式 (Zdj=1) 为真,则
  26.             调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
  27.             延时10000毫秒
  28.         条件结束
  29.     条件结束
  30. 子程序结束,回到调用处
  31. 子程序 自动加状态
  32.     如果表达式 (Ztai>0) 为真,则
  33.         循环 4 遍
  34.             按键<5>
  35.             延时500毫秒
  36.             调用子程序 自动红蓝
  37.         循环结束
  38.     条件结束
  39.     延时100毫秒
  40.     如果表达式 (Ztai>1) 为真,则
  41.         循环 4 遍
  42.             按键<6>
  43.             延时500毫秒
  44.             调用子程序 自动红蓝
  45.         循环结束
  46.     条件结束
  47.     延时100毫秒
  48.     如果表达式 (Ztai>2) 为真,则
  49.         循环 4 遍
  50.             按键<7>
  51.             延时500毫秒
  52.             调用子程序 自动红蓝
  53.         循环结束
  54.     条件结束
  55. 子程序结束,回到调用处
  56. 子程序 拣东西
  57.     循环 10 遍
  58.         调用子程序 自动红蓝
  59.         按键<4>
  60.         延时135毫秒
  61.     循环结束
  62. 子程序结束,回到调用处
  63. 子程序 打怪
  64.     调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
  65.     如果表达式 (gxue=0000A5) 为真,则循环执行
  66.         调用子程序 背包
  67.         循环 3 遍
  68.             按键<1>
  69.             延时200毫秒
  70.             调用子程序 紧急加血
  71.         循环结束
  72.         调用子程序 自动红蓝
  73.         如果表达式 (datediff("s",t2,now)>Fka) 为真,则
  74.             按键<Tab>
  75.             延时200毫秒
  76.             t2=now
  77.         条件结束
  78.         如果表达式 (datediff("s",t1,now)>1650) 为真,则
  79.             调用子程序 自动加状态
  80.             t1=now
  81.         条件结束
  82.         调用子程序 死亡回城
  83.         调用外部VBScript子程序 Gxue=得到指定点的颜色(432,35)
  84.     循环结束
  85. 子程序结束,回到调用处
  86. 子程序 保存日志
  87.     Set F1 =File.OpenTextFile(FileName,8)
  88.     F1.WriteLine(Now&SaveString)
  89.     F1.Close
  90. 子程序结束,回到调用处