1.         鼠标移到 intX , intY
  2.         左键单击
  3.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  4.     循环结束
  5.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  6.     如果表达式 (intX>0 and intY>0) 为真,则循环执行
  7.         延时50毫秒
  8.         鼠标移到 intX , intY
  9.         左键单击
  10.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  11.     循环结束
  12.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  13.     如果表达式 (intX>0 and intY>0) 为真,则循环执行
  14.         延时50毫秒
  15.         鼠标移到 intX+5 , intY+5
  16.         左键单击
  17.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  18.     循环结束
  19.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  20.     如果表达式 (intX>0 and intY>0) 为真,则循环执行
  21.         延时50毫秒
  22.         鼠标移到 intX+5 , intY+5
  23.         左键单击
  24.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  25.     循环结束
  26. 子程序结束,回到调用处
  27. //====================清空屏幕对话框结束==============================
  28. //====================关闭小地图==============================
  29. 子程序 关闭小地图
  30.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  31.     如果表达式 (dtintX>0 and dtintY>0) 为真,则循环执行
  32.         鼠标移到 dtintX+5 , dtintY+5
  33.         左键单击
  34.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  35.         延时100毫秒
  36.     循环结束
  37. 子程序结束,回到调用处
  38. //====================关闭小地图结束==============================
  39. //====================打开小地图==============================
  40. 子程序 打开小地图
  41.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  42.     如果表达式 (dtintX<0 and dtintY<0) 为真,则
  43.         鼠标移到 X3+170 , Y3+250
  44.         左键单击
  45.     条件结束
  46. 子程序结束,回到调用处
  47. //====================打开小地图结束==============================
  48. //====================HP/MP/SP/EXP判断==============================
  49. 子程序 HPandMP
  50.     //--------------预留位，判断有无红蓝药---------------
  51.     （VBScript语句） dim hong,lan,hongT,lanT
  52.     //在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
  53.     hongT=1000
  54.     lanT=1000
  55.     标记 补HPMPXPEXP开始
  56.     //循环开始标记
  57.     延时32毫秒
  58.     //循环小延时，防止出现CPU使用率过高，脚本卡
  59.     如果 (int(bhp/100*(X3+872)-(X3+802)+(X3+802)),Y3+185) 的颜色不等于 #700AC 则
  60.         //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
  61.         //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
  62.         按键 <1>
  63.         //按下补血快捷键
  64.         延时hongT毫秒
  65.         //补血延时
  66.     条件结束
  67.     如果 (int(bmp/100*(X3+867)-(X3+802)+(X3+867)),Y3+200) 的颜色不等于 #D29721 则
  68.         //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
  69.         //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
  70.         按键 <2>
  71.         //按下补蓝快捷键
  72.         延时lanT毫秒
  73.         //补蓝延时
  74.     否则
  75.         跳转到标记 补红蓝完毕
  76.     条件结束
  77.     跳转到标记 补HPMPXPEXP开始
  78.     //跳转到循环开始
  79.     标记 补红蓝完毕
  80. 子程序结束,回到调用处
  81. //====================结束HP/MP/SP/EXP判断==============================
  82. //====================自动打怪==============================
  83. 子程序 自动打怪
  84.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  85.     如果表达式 (zdbintX>0 and zdbintY>0) 为真,则循环执行
  86.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  87.         如果表达式 (zdxintX>0 and zdxintY>0) 为真,则
  88.             延时100毫秒
  89.         否则
  90.             调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  91.             如果表达式 (zd1intX>0 and zd1intY>0) 为真,则
  92.                 鼠标移到 zd1intX , zd1intY
  93.                 左键单击
  94.                 延时50毫秒
  95.                 鼠标移到 zd1intX-384 , zd1intY-66
  96.                 左键单击
  97.                 延时50毫秒
  98.                 鼠标移到 X3+601 , X3+382
  99.                 左键单击
  100.                 延时50毫秒