1.                                                                                                                                 左键单击
  2.                                                                                                                                 延时3000毫秒
  3.                                                                                                                                 //
  4.                                                                                                                                 //最后一个点是传送点,如发现停止移动时,需离开该路点,重新点击该路点
  5.                                                                                                                                 如果表达式 (TmpP>=UBound(lRoadPointArr)-2 And SelectPlace<=0) 为真,则
  6.                                                                                                                                     //检查角色是否正在移动
  7.                                                                                                                                     MvColorRec = GetPixelColor(496,698) & GetPixelColor(939,698)
  8.                                                                                                                                     //如角色停在最后一个点,就需离开该点,并重新点击
  9.                                                                                                                                     如果表达式 (LastColorRec=MvColorRec) 为真,则
  10.                                                                                                                                         LastColorRec = MvColorRec
  11.                                                                                                                                         EdgArr = Array(lRoadPointArr(TmpP+1)+Int(Cos(RndAng)*20),lRoadPointArr(TmpP+2)+Int(Sin(RndAng)*20))
  12.                                                                                                                                         如果表达式 (EdgArr(0)<244) 为真,则
  13.                                                                                                                                             EdgArr(0) = 244
  14.                                                                                                                                         条件结束
  15.                                                                                                                                         如果表达式 (EdgArr(1)<188) 为真,则
  16.                                                                                                                                             EdgArr(1) = 188
  17.                                                                                                                                         条件结束
  18.                                                                                                                                         鼠标移到 EdgArr(0) , EdgArr(1)
  19.                                                                                                                                         左键单击
  20.                                                                                                                                     否则
  21.                                                                                                                                         //移动中等待
  22.                                                                                                                                         LastColorRec = MvColorRec
  23.                                                                                                                                         延时3000毫秒
  24.                                                                                                                                     条件结束
  25.                                                                                                                                 条件结束
  26.                                                                                                                                 //
  27.                                                                                                                                 //--如果在最后一个路点弹出NPC传送对话框--
  28.                                                                                                                                 如果表达式 (TmpP>=UBound(lRoadPointArr)-2 And SelectPlace>0) 为真,则
  29.                                                                                                                                     如果表达式 (ColorCompare(GetPixelColor(502,231),"C6CBFF",15)) 为真,则
  30.                                                                                                                                         鼠标移到 392 , 463+((SelectPlace-1)*22)
  31.                                                                                                                                         左键单击
  32.                                                                                                                                         延时2000毫秒
  33.                                                                                                                                     条件结束
  34.                                                                                                                                 条件结束
  35.                                                                                                                                 //
  36.                                                                                                                             否则
  37.                                                                                                                                 LastColorRec = MvColorRec
  38.                                                                                                                                 //正在移动时等待
  39.                                                                                                                                 延时3000毫秒
  40.                                                                                                                             条件结束
  41.                                                                                                                             //
  42.                                                                                                                             调用子程序 检查是否战斗
  43.                                                                                                                             调用子程序 什么地方Sub
  44.                                                                                                                             调用插件命令 GoPlaceTimeArr(1) = GetSysInfo.GetTime()
  45.                                                                                                                             //MsgBox GoPlaceTimeArr(1) & "|" & GoPlaceTimeArr(0),0,GoPlaceTimeArr(2)
  46.                                                                                                                             GoPlaceTimeArr(2) = GoPlaceTimeArr(2)+(GoPlaceTimeArr(1)-GoPlaceTimeArr(0))
  47.                                                                                                                             Tmpli = Tmpli+1
  48.                                                                                                                             //EndIf
  49.                                                                                                                         循环结束
  50.                                                                                                                     子程序结束,回到调用处
  51.                                                                                                                     //---------------------------------------------------------------
  52.                                                                                                                     //
  53.                                                                                                                     //---------------------------------------------------------------
  54.                                                                                                                     子程序 找宝宝测试S
  55.                                                                                                                         //虽然方法不好.但坚决不用找图方法
  56.                                                                                                                         //为了提高脚本速度,只检查非组队下的3个怪物
  57.                                                                                                                         //
  58.                                                                                                                         Dim CaPetDebugTmp
  59.                                                                                                                         Dim PetFeaArr(11), XList, YList
  60.                                                                                                                         XList=Array(375,310,253,196,139,456,391,334,277,220)
  61.                                                                                                                         YList=Array(296,350,408,465,522,334,388,446,503,560)
  62.                                                                                                                         //
  63.                                                                                                                         PetFeaArr(0) = ScrPetFArr(0)-XList(ScrPetFArr(12))
  64.                                                                                                                         PetFeaArr(1) = ScrPetFArr(1)-YList(ScrPetFArr(12))
  65.                                                                                                                         PetFeaArr(2) = ScrPetFArr(2)
  66.                                                                                                                         PetFeaArr(3) = ScrPetFArr(3)
  67.                                                                                                                         PetFeaArr(4) = ScrPetFArr(4)-XList(ScrPetFArr(12))
  68.                                                                                                                         PetFeaArr(5) = ScrPetFArr(5)-YList(ScrPetFArr(12))
  69.                                                                                                                         PetFeaArr(6) = ScrPetFArr(6)
  70.                                                                                                                         PetFeaArr(7) = ScrPetFArr(7)
  71.                                                                                                                         PetFeaArr(8) = ScrPetFArr(8)-XList(ScrPetFArr(12))
  72.                                                                                                                         PetFeaArr(9) = ScrPetFArr(9)-YList(ScrPetFArr(12))
  73.                                                                                                                         PetFeaArr(10)= ScrPetFArr(10)
  74.                                                                                                                         PetFeaArr(11)= ScrPetFArr(11)
  75.                                                                                                                         //
  76.                                                                                                                         //MsgBox XList(1)+PetFeaArr(0) & "|" & YList(1)+PetFeaArr(1) & "|" & PetFeaArr(2) & "|" & PetFeaArr(3)
  77.                                                                                                                         CaPetDebugTmp = Array(0,0)
  78.                                                                                                                         Tmpi = 1
  79.                                                                                                                         如果表达式 (ExistPet(0)<0 And Tmpi<4 And place=ScrPetFArr(13)) 为真,则循环执行
  80.                                                                                                                             如果 (XList(Tmpi)+PetFeaArr(0),YList(Tmpi)+PetFeaArr(1)) 的颜色于 #PetFeaArr(2) 则
  81.                                                                                                                                 CaPetDebugTmp = Array(1,Tmpi)
  82.                                                                                                                                 如果 (XList(Tmpi)+PetFeaArr(4),YList(Tmpi)+PetFeaArr(5)) 的颜色于 #PetFeaArr(6) 则
  83.                                                                                                                                     CaPetDebugTmp = Array(2,Tmpi)
  84.                                                                                                                                     如果 (XList(Tmpi)+PetFeaArr(8),YList(Tmpi)+PetFeaArr(9)) 的颜色?2大约等于 #PetFeaArr(10) 则
  85.                                                                                                                                         CaPetDebugTmp = Array(3,Tmpi)
  86.                                                                                                                                         ExistPet = Array(Tmpi,XList(Tmpi)+25,YList(Tmpi)-53)
  87.                                                                                                                                     条件结束
  88.                                                                                                                                 条件结束
  89.                                                                                                                             条件结束
  90.                                                                                                                             Tmpi = Tmpi+1
  91.                                                                                                                         循环结束
  92.                                                                                                                         如果表达式 (place=ScrPetFArr(13)) 为真,则
  93.                                                                                                                             ChangeContent "Tex2", "BB特征:" & (CaPetDebugTmp(0)) & "/3"
  94.                                                                                                                         条件结束
  95.                                                                                                                         如果表达式 (place=ScrPetFArr(13) And CaPetDebugTmp(0)<3) 为真,则
  96.                                                                                                                             ChangeContent "Tex3", XList(CaPetDebugTmp(1)+1)+PetFeaArr(8) & "|" & YList(CaPetDebugTmp(1)+1)+PetFeaArr(CaPetDebugTmp(1)*4+1) & "|" & PetFeaArr(CaPetDebugTmp(1)*4+2) & "|" & PetFeaArr(CaPetDebugTmp(1)*4+3)
  97.                                                                                                                             //KeyPress 44,1
  98.                                                                                                                         条件结束
  99.                                                                                                                     子程序结束,回到调用处