1.                 ScanL(mx)=1
  2.             否则
  3.                 调用外部VBScript子程序 在区域里从中间开始找颜色(MapA(0),MapA(1),MapA(2),MapA(3),"FF",xa,ya)
  4.             条件结束
  5.             mx=mx+1
  6.         循环结束
  7.         //判断
  8.         N=0
  9.         如果表达式 (N<4) 为真,则循环执行
  10.             i=0
  11.             如果表达式 (i<5) 为真,则循环执行
  12.                 如果表达式 (ScanL(i)<>NumL(N,i)) 为真,则
  13.                     //一有不对马上跳出
  14.                     i=100
  15.                 否则
  16.                     //全中
  17.                     如果表达式 (i=4) 为真,则
  18.                         TheNum=N
  19.                         N=100
  20.                     条件结束
  21.                 条件结束
  22.                 i=i+1
  23.             循环结束
  24.             N=N+1
  25.         循环结束
  26.         如果表达式 (N=101) 为真,则
  27.             //筛选
  28.             如果表达式 (TheNum=0) 为真,则
  29.                 Number=2
  30.             否则如果(TheNum=1)为真,则
  31.                 Number=9
  32.             否则如果(TheNum=2)为真,则
  33.                 Number=8
  34.             否则如果(TheNum=3)为真,则
  35.                 Number=3
  36.             条件结束
  37.         否则
  38.             //只余下5.6，扫描一个点即可
  39.             调用外部VBScript子程序 在区域里从中间开始找颜色(MapA(0),MapA(1),MapA(2),MapA(3),"FF",xa,ya)
  40.             如果表达式 (rel="080C08") 为真,则
  41.                 Number=5
  42.             否则如果(rel="94FFFF")为真,则
  43.                 Number=6
  44.             否则
  45.                 调用外部VBScript子程序 在区域里从中间开始找颜色(MapA(0),MapA(1),MapA(2),MapA(3),"FF",xa,ya)
  46.             条件结束
  47.         条件结束
  48.     条件结束
  49. 子程序结束,回到调用处
  50. //取人物坐标值
  51. //置于变量MapX、MapY
  52. 子程序 GetMapPos
  53.     x=742
  54.     T=0
  55.     （VBScript语句） Dim valPos(6)
  56.     如果表达式 (T<6) 为真,则循环执行
  57.         调用子程序 Scan
  58.         （VBScript语句） valPos(T)=Number
  59.         如果表达式 (X=754) 为真,则
  60.             X=780
  61.         否则
  62.             X=X+6
  63.         条件结束
  64.         T=T+1
  65.     循环结束
  66.     （VBScript语句） MapX=valPos(0)*100+valPos(1)*10+valPos(2)
  67.     （VBScript语句） MapY=valPos(3)*100+valPos(4)*10+valPos(5)
  68.     //VBSCall MessageBox(MapX)
  69.     //VBSCall MessageBox(MapY)
  70. 子程序结束,回到调用处
  71. //挂机参数 设置
  72. 子程序 SetPara
  73.     // VBS tell(0)="挂机范围X坐标："
  74.     // VBS tell(1)="挂机范围Y坐标:"
  75.     调用子程序 GetMapPos
  76.     MapX0=MapX
  77.     MapY0=MapY
  78.     tell="挂机半径:"
  79.     intval=0
  80.     如果表达式 (intval=0) 为真,则循环执行
  81.         调用外部VBScript子程序 在区域里从中间开始找颜色(MapA(0),MapA(1),MapA(2),MapA(3),"FF",xa,ya)
  82.         intval=str*1
  83.         如果表达式 (intval=0) 为真,则
  84.             弹出窗口 输入有误，请重输
  85.         条件结束
  86.     循环结束
  87.     R0=intval
  88. 子程序结束,回到调用处
  89. //控制挂机范围
  90. 子程序 RangeCtrl
  91.     调用子程序 GetMapPos
  92.     Mapmx=MapX0-MapX
  93.     Mapmy=MapY0-MapY
  94.     如果表达式 ((Mapmx*Mapmx+Mapmy*Mapmy)>R0*R0) 为真,则
  95.         //大于挂机半径
  96.         //向原点走去？
  97.         如果表达式 (Mapmx>0) 为真,则
  98.             //在右边
  99.             stepx=100
  100.         否则如果(Mapmx<0)为真,则