1.     循环开始
  2.         如果 i < 6 则
  3.             定义变量 zb
  4.             令 zb = split(zouwei(i),",",- 1 ,0)
  5.             令 pyx = int(rnd * 5)
  6.             令 pyy = int(rnd * 5)
  7.             令 zb_x = zb(0) + pyx
  8.             令 zb_y = zb(1) + pyy
  9.             令 i = i + 1
  10.             （鼠标）移动到 (zb_x + d2_pyx, zb_y + d2_pyy)
  11.             （鼠标）左键单击, 1次
  12.             延时 runtime + int(rnd * 200) 毫秒
  13.         否则
  14.             令 stateinfo = "跑路已完成"
  15.             显示信息()
  16.             注释： Delay 10
  17.             跳出循环
  18.         条件结束
  19.     循环结束
  20. 子程序结束
  21. 子程序 Runtolaopi
  22.     令 stateinfo = "去杀老皮"
  23.     显示信息()
  24.     （键盘）按 amhotkey 键, 1次
  25.     延时 500 + int(rnd * 500) 毫秒
  26.     （鼠标）右键单击, 1次
  27.     延时 500 毫秒
  28.     注释： KeyPress "F1",1
  29.     注释： Delay 500
  30.     注释： RightClick 1
  31.     注释： Delay 1000
  32.     定义变量 zz
  33.     令 zz = "753,160|727,84 |650,100|500,50"
  34.     定义变量 zouwei
  35.     令 zouwei = Split(zz,"|",- 1 ,0)
  36.     令 i = 0
  37.     循环开始
  38.         如果 i < 4 则
  39.             定义变量 zb
  40.             令 zb = split(zouwei(i),",",- 1 ,0)
  41.             令 zb_x = zb(0) + int(rnd * 10)
  42.             令 zb_y = zb(1) + int(rnd * 10)
  43.             令 i = i + 1
  44.             延时 10 + int(rnd * 50) 毫秒
  45.             （键盘）按 tphotkey 键, 1次
  46.             延时 100 毫秒
  47.             （鼠标）移动到 (zb_x + d2_pyx, zb_y + d2_pyy)
  48.             延时 100 毫秒
  49.             （鼠标）右键单击, 1次
  50.             延时 sctime + int(rnd * 200) 毫秒
  51.         否则
  52.             跳出循环
  53.         条件结束
  54.     循环结束
  55. 子程序结束
  56. 函数 inTPdoor()
  57.     注释：找TP门并进入
  58.     注释：------------------------------------------------------
  59.     注释： inTP
  60.     注释： 0:失败 1:成功
  61.     注释：------------------------------------------------------
  62.     令 ii = 1
  63.     令 dtime = 0
  64.     令 d2state = 0
  65.     令 maxdelay = 5 * maxdelay
  66.     循环当 dtime < maxdelay 时
  67.         注释：开始等待TP开门
  68.         (语句无法识别，可能有错误): FindColor d2_pyx+50,d2_pyy+50,d2_pyx+700,d2_pyy+500,"7070E0",intX,intY //TP
  69.         (语句无法识别，可能有错误): FindColor d2_pyx+400-100,d2_pyy+300-50,d2_pyx+400+100,d2_pyy+300+50,"4CC0F4",intX1,intY1 //小圈
  70.         如果 intX > 0 并且 intX1 > 0 则
  71.             令 stateinfo = "TP门找到，正在尝试进入TP门..."
  72.             显示信息()
  73.             注释：间隔点击TP门， 和小地图黄圈（归位，防止跑太远）
  74.             如果 ii = 1 则
  75.                 （鼠标）移动到 (intX + int(rnd * 5), intY + 50 + int(rnd * 10))
  76.                 令 ii = 0
  77.             否则
  78.                 （鼠标）移动到 (intX1, intY1)
  79.                 令 ii = 1
  80.             条件结束
  81.             延时 20 毫秒
  82.             （鼠标）左键单击, 1次
  83.             （鼠标）相对移动 (0, 20)
  84.             延时 1500 + int(rnd * 100) 毫秒
  85.         否则
  86.             令 stateinfo = "未找到红门 -退出游戏" & "/" & (maxDelay - dtime)
  87.             显示信息()
  88.             exitGame()
  89.         条件结束
  90.         令 GetColor = 得到指定点 (d2_pyx + 136, d2_pyy + 566) 的颜色
  91.         如果 GetColor = "485058" 则
  92.             令 stateinfo = "你拉塞克"
  93.             显示信息()
  94.             (语句无法识别，可能有错误): d2state=3 //你拉塞克
  95.             跳出循环
  96.         条件结束
  97.         令 d2state = getd2state()
  98.         如果 d2state = 1 则
  99.             跳出循环
  100.         条件结束