1.     （键盘）按下 Alt 键
  2.     （键盘）按 A 键, 1次
  3.     （键盘）弹起 Alt 键
  4.     延时 100 毫秒
  5.     （键盘）按下 Alt 键
  6.     （键盘）按 A 键, 1次
  7.     （键盘）弹起 Alt 键
  8. 子程序结束
  9. 子程序 写坐标(x,y)
  10.     令 t点王母 = now
  11.     标记 写坐标1(子程序 写坐标)
  12.     调用 打开地图
  13.     从左上到右下查找图片 "c:\XYW\大地图.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：200 下：295），相似度 0.9
  14.     如果 intX > 0 并且 intY > 0 则
  15.         调用 修正偏移(intX + 3,intY + 9)
  16.         延时 yc + 1000 毫秒
  17.         从左上到右下查找图片 "c:\XYW\点坐标.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：200 下：295），相似度 0.9
  18.         如果 intX > 0 并且 intY > 0 则
  19.             调用 修正偏移(intX + 38,intY + 245)
  20.             延时 yc + 30 毫秒
  21.             （键盘）按 "BackSpace" 键, 5次
  22.             延时 yc + 30 毫秒
  23.             输入文本 x
  24.             延时 yc + 50 毫秒
  25.             （键盘）按 "Enter" 键, 1次
  26.             注释： call 修正偏移(162,387)
  27.             延时 yc + 30 毫秒
  28.             （键盘）按 "BackSpace" 键, 5次
  29.             延时 yc + 30 毫秒
  30.             输入文本 Y
  31.             延时 yc + 30 毫秒
  32.             （键盘）按 "Enter" 键, 3次
  33.             延时 yc + 30 毫秒
  34.             调用 关闭地图
  35.         否则
  36.             延时 yc + 200 毫秒
  37.             跳转到标记 写坐标1(子程序 写坐标)
  38.         条件结束
  39.     否则
  40.         如果 DateDiff("s",t点王母,now) > 11 则
  41.             令 t点王母 = now
  42.             调用 打开地图
  43.         条件结束
  44.         延时 yc + 200 毫秒
  45.         跳转到标记 写坐标1(子程序 写坐标)
  46.     条件结束
  47. 子程序结束
  48. 子程序 疲敝()
  49.     调用 关闭道具
  50.     从左上到右下查找图片 "c:\XYW\显示.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：807 下：621），相似度 0.9
  51.     如果 intX > 0 并且 intY > 0 则
  52.     否则
  53.         （键盘）按下 Alt 键
  54.         （键盘）按 4 键, 1次
  55.         （键盘）弹起 Alt 键
  56.         （键盘）按下 Alt 键
  57.         （键盘）按 5 键, 1次
  58.         （键盘）弹起 Alt 键
  59.         （键盘）按下 Alt 键
  60.         （键盘）按 5 键, 1次
  61.         （键盘）弹起 Alt 键
  62.     条件结束
  63. 子程序结束
  64. 子程序 关闭地图()
  65.     标记 关闭地图(子程序 关闭地图)
  66.     从左上到右下查找图片 "c:\XYW\大地图.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：807 下：621），相似度 0.9
  67.     如果 intX > 0 并且 intY > 0 则
  68.         （键盘）按 "Tab" 键, 1次
  69.         延时 yc + 200 毫秒
  70.         跳转到标记 关闭地图(子程序 关闭地图)
  71.     否则
  72.     条件结束
  73.     标记 点坐标(子程序 关闭地图)
  74.     从左上到右下查找图片 "c:\XYW\点坐标.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：807 下：621），相似度 0.9
  75.     如果 intX > 0 并且 intY > 0 则
  76.         （键盘）按 "Tab" 键, 1次
  77.         延时 yc + 200 毫秒
  78.         跳转到标记 关闭地图(子程序 关闭地图)
  79.     否则
  80.     条件结束
  81. 子程序结束
  82. 子程序 按F1()
  83.     （键盘）按 "F1" 键, 1次
  84.     延时 yc + 200 毫秒
  85.     调用 修正偏移(165,323)
  86.     延时 yc + 200 毫秒
  87.     （键盘）按下 Alt 键
  88.     （键盘）按 A 键, 1次
  89.     （键盘）弹起 Alt 键
  90. 子程序结束
  91. 子程序 去掉空行和空格()
  92.     注释：lj=Plugin.Sys.GetDir(0)//获取小精灵当前路径
  93.     注释：判断帐号文件存在不
  94.     注释：lj = Replace(lj, "plugin","")//当前路径
  95.     注释：MsgBox lj
  96.     注释：zhlj = lj& "帐号.txt"//帐号路径
  97.     令 zz = File.ExistFile(zhlj)
  98.     如果 zz = 1 则
  99.     否则
  100.         MsgBox("帐号文件不存在")