1.         条件结束
  2.         i=i-1
  3.         延时32毫秒
  4.     循环结束
  5.     标记 extWhileA
  6.     j=0
  7.     //得到开始地点在数组中的位置
  8.     如果表达式 (j<=e) 为真,则循环执行
  9.         如果表达式 (zdxl(j,2)=ksdt) 为真,则
  10.             b=j
  11.         条件结束
  12.         j=j+1
  13.         延时32毫秒
  14.     循环结束
  15.     //如果b或者e有一个为0说明没找到，此路不通，退出或者其他处理
  16.     //If b*e=0
  17.     // MessageBox 无法到达指定地图
  18.     // EndScript
  19.     //EndIf
  20.     //开始移动 A-B-C-B-D-B-E
  21.     // dtls=e
  22.     // While b<e
  23.     //If zdxl(dtls,2)=zdxl(e,2)
  24.     //e=dtls
  25.     //EndIf
  26.     //dtls=dtls-1
  27.     //EndWhile
  28.     如果表达式 (dtls<e) 为真,则循环执行
  29.         如果表达式 (zdxl(dtls,2)=zdxl(b,2)) 为真,则
  30.             b=dtls
  31.         条件结束
  32.         dtls=dtls+1
  33.     循环结束
  34.     b=b+1
  35.     //b点即是下一步走的地图，开始切换地图
  36.     zdxlX=zdxl(b,0)
  37.     zdxlY=zdxl(b,1)
  38.     调用子程序 清空屏幕对话框
  39.     调用子程序 打开小地图
  40.     鼠标移到 zdxlX-20 , zdxlY-20
  41.     左键单击
  42.     延时1500毫秒
  43.     鼠标移到 zdxlX , zdxlY
  44.     左键单击
  45.     调用子程序 清空屏幕对话框
  46.     ntime=5
  47.     调用子程序 角色是否移动
  48.     调用子程序 自动打怪
  49.     //判断是否到达
  50.     // Gosub chkMapColor
  51.     延时1000毫秒
  52.     调用子程序 检查当前地图
  53.     如果表达式 (ksdt=jsdt) 为真,则
  54.         跳转到标记 自动寻路结束
  55.     否则
  56.         跳转到标记 自动寻路开始
  57.     条件结束
  58.     标记 自动寻路结束
  59. 子程序结束,回到调用处
  60. //====================自动寻路结束==============================
  61. //====================检查当前地图==============================
  62. 子程序 检查当前地图
  63.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  64.     如果表达式 (dbintX>0 and dbintY>0) 为真,则
  65.         ksdt="稻田"
  66.         跳转到标记 结束检查当前地图
  67.     条件结束
  68.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  69.     如果表达式 (dbintX>0 and dbintY>0) 为真,则
  70.         ksdt="稻香村"
  71.         跳转到标记 结束检查当前地图
  72.     条件结束
  73.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  74.     如果表达式 (dbintX>0 and dbintY>0) 为真,则
  75.         ksdt="稻香村东"
  76.         跳转到标记 结束检查当前地图
  77.     条件结束
  78.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  79.     如果表达式 (dbintX>0 and dbintY>0) 为真,则
  80.         ksdt="李纨小屋"
  81.         跳转到标记 结束检查当前地图
  82.     条件结束
  83.     标记 结束检查当前地图
  84. 子程序结束,回到调用处
  85. //====================检查当前地图结束==============================
  86. //====================判断人物是否移动==============================
  87. 子程序 角色是否移动
  88.     //调用前请给ntime赋值，如： ntime=5 ，意思为5秒人物没有变化即中止判断,如果人物停止移动刚返还rwt=0
  89.     dGetColor=0
  90.     n=0
  91.     如果表达式 (n<ntime) 为真,则循环执行
  92.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  93.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  94.         cGetColor=aGetColor+bGetColor
  95.         如果表达式 (cGetColor<>dGetColor) 为真,则
  96.             dGetColor=cGetColor
  97.             延时500毫秒
  98.         否则
  99.             n=n+1
  100.             延时500毫秒