1.             令 T出现需要的药 = now
  2.             调用 识别任务
  3.             退出子程序
  4.             注释： MessageBox "没有可以买到的药！！！！！！！！"
  5.         条件结束
  6.         延时 yc + 200 毫秒
  7.         跳转到标记 出现需要的药(子程序 去药店买药)
  8.         (语句无法识别，可能有错误): End If //出现需要的药
  9.         (语句无法识别，可能有错误): Else // 出现购买
  10.         如果 DateDiff("s",T出现购买,now) > 11 则
  11.             令 T出现购买 = now
  12.             跳转到标记 t点NPC(子程序 去药店买药)
  13.         条件结束
  14.         延时 yc + 200 毫秒
  15.         跳转到标记 等待出现购买(子程序 去药店买药)
  16.         (语句无法识别，可能有错误): End If// 出现购买
  17.         (语句无法识别，可能有错误): Else //找药店老板。点1
  18.         如果 DateDiff("s",t点NPC,now) > 11 则
  19.             令 t点NPC = now
  20.             跳转到标记 济世堂1(子程序 去药店买药)
  21.         条件结束
  22.         延时 yc + 200 毫秒
  23.         跳转到标记 t点NPC(子程序 去药店买药)
  24.         (语句无法识别，可能有错误): End If //找药店老板。点1
  25.         (语句无法识别，可能有错误): Else //找药店老板
  26.         如果 DateDiff("s",T济世堂1,now) > 11 则
  27.             令 T济世堂1 = now
  28.             跳转到标记 接任务1(子程序 去药店买药)
  29.         条件结束
  30.         延时 yc + 200 毫秒
  31.         跳转到标记 济世堂1(子程序 去药店买药)
  32.         (语句无法识别，可能有错误): End If //找药店老板
  33.     否则如果 ditu = "轮回" 则
  34.         注释： MessageBox "死亡//没写"
  35.         （键盘）按 "F10" 键, 1次
  36.         延时 yc + 6000 毫秒
  37.     否则如果 ditu = "长安武器店" 则
  38.         调用 修正偏移(391,388)
  39.         延时 yc + 1000 毫秒
  40.     否则如果 ditu = "张记布庄" 则
  41.         调用 修正偏移(749,380)
  42.         延时 yc + 1000 毫秒
  43.         (语句无法识别，可能有错误): Else //识别地图//未知地图
  44.         （键盘）按 "F10" 键, 1次
  45.         延时 yc + 6000 毫秒
  46.         (语句无法识别，可能有错误): End if//识别地图
  47.         跳转到标记 接任务1(子程序 去药店买药)
  48.     子程序结束
  49.     子程序 覆盖帐号()
  50.         令 txt = ""
  51.         令 i = 0
  52.         标记 z(子程序 覆盖帐号)
  53.         注释： 欲写入的数据
  54.         令 neirong = zhanghaomima(zhwz - 1) & fgf & zhanghaomima(zhwz) & fgf & "完成"
  55.         注释： 写入第几行
  56.         令 jihang = ii + 1
  57.         如果 Len(txt行(i)) >= 1 则
  58.             注释：///3333333333
  59.         条件结束
  60.         如果 i = jihang - 1 则
  61.             注释：///4
  62.         条件结束
  63.         注释： 覆盖
  64.         令 txt = txt & neirong & vbCrLf
  65.         (语句无法识别，可能有错误): Else /////4
  66.         令 txt = txt & txt行(i) & vbCrLf
  67.         (语句无法识别，可能有错误): End If /////4
  68.         令 i = i + 1
  69.         跳转到标记 z(子程序 覆盖帐号)
  70.         (语句无法识别，可能有错误): Else /////3333333333
  71.         如果 i < jihang 则
  72.             注释：///5
  73.         条件结束
  74.         注释：If i<=jihang/////5
  75.         弹出窗口 "少于" & jihang & "行.关闭脚本在开！"
  76.         Media.Beep(2000,200)
  77.         脚本停止运行
  78.         (语句无法识别，可能有错误): End If /////5
  79.         (语句无法识别，可能有错误): End If /////3333333333
  80.         注释： 删除旧文檔
  81.         调用 File.DeleteFolder(zhlj)
  82.         注释： 储存新文檔
  83.         调用 File.WriteFileEx(zhlj,txt)
  84.         注释：MsgBox "练完保存了"
  85.         注释：EndScript//存完退出
  86.     子程序结束
  87.     子程序 覆盖帐号封号()
  88.         令 txt = ""
  89.         令 i = 0
  90.         标记 z(子程序 覆盖帐号封号)
  91.         注释： 欲写入的数据
  92.         令 neirong = zhanghaomima(zhwz - 1) & fgf & zhanghaomima(zhwz) & fgf & "帐号封号"
  93.         注释： 写入第几行
  94.         令 jihang = ii + 1
  95.         如果 Len(txt行(i)) >= 1 则
  96.             注释：///3333333333
  97.         条件结束
  98.         如果 i = jihang - 1 则
  99.             注释：///4
  100.         条件结束