1.                             lRoadPointArr = Array(10000,397,318,600000,266,214)
  2.                             SelectPlace = 0
  3.                         否则如果(place="沉睡森林" And DecPlaceArr(1)="精灵城")为真,则
  4.                             lRoadPointArr = Array(10000,397,318,600000,600,440)
  5.                             SelectPlace = 0
  6.                         否则如果(place="云麓山脉" And DecPlaceArr(1)="沉睡森林")为真,则
  7.                             lRoadPointArr = Array(3000,573,365,600000,617,364)
  8.                             SelectPlace = 0
  9.                         条件结束
  10.                         如果表达式 (Not(IsEmpty(lRoadPointArr))) 为真,则
  11.                             调用子程序 移动到下一个地图
  12.                             GoingToPlace = True
  13.                         条件结束
  14.                     条件结束
  15.                 条件结束
  16.             条件结束
  17.             //---------------------------------------------
  18.             如果表达式 (Not(GoingToPlace)) 为真,则
  19.                 ChangeContent "Tex1", place
  20.                 如果表达式 (place="云台原野") 为真,则
  21.                     调用子程序 云台原野找怪
  22.                 否则如果(place="出云东郊")为真,则
  23.                     调用子程序 出云东郊找怪
  24.                 否则如果(place="梨阳湖北")为真,则
  25.                     调用子程序 梨阳湖北找怪
  26.                 否则如果(place="禅意静地")为真,则
  27.                     调用子程序 禅意静地找怪
  28.                 否则如果(place="云天绿洲")为真,则
  29.                     调用子程序 云天绿洲找怪
  30.                 否则如果(place="朵拉雪地")为真,则
  31.                     调用子程序 朵拉雪地找怪
  32.                 否则如果(place="曙光平原")为真,则
  33.                     调用子程序 曙光平原找怪
  34.                 否则如果(place="梨阳岛")为真,则
  35.                     调用子程序 梨阳岛找怪
  36.                 否则如果(place="樱舞仙境")为真,则
  37.                     调用子程序 樱舞仙境找怪
  38.                     //ElseIf place="仙朵拉城"
  39.                     //Gosub 仙朵拉城出城
  40.                     //Delay 5000
  41.                     //MsgBox "到达目的地:" & place,0,"自动寻路"
  42.                 否则如果(place="禁忌平原")为真,则
  43.                     调用子程序 禁忌平原找怪
  44.                 否则如果(place="沉睡森林")为真,则
  45.                     调用子程序 沉睡森林找怪
  46.                 否则如果(place="梨阳村")为真,则
  47.                     调用子程序 梨阳村找怪
  48.                 否则如果(place="冰石雪原")为真,则
  49.                     调用子程序 冰石雪原找怪
  50.                 否则如果(place="玉蜂林")为真,则
  51.                     调用子程序 玉蜂林找怪
  52.                 否则
  53.                     //未知地图
  54.                     //检查小地图位置是否正确
  55.                     MiniMapColorS=Array(0,0)
  56.                     调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  57.                     如果表达式 (MiniMapColorS(0)<>616 or MiniMapColorS(1)<>144) 为真,则
  58.                         MiniMapColorN=Array(MiniMapColorS(0)-616,MiniMapColorS(1)-144)
  59.                         鼠标移到 250 , 152
  60.                         左键按下
  61.                         鼠标移到 300 , 300
  62.                         延时50毫秒
  63.                         鼠标移到 250-MiniMapColorN(0) , 152-MiniMapColorN(1)
  64.                         左键弹起
  65.                         延时1000毫秒
  66.                     条件结束
  67.                     调用子程序 愤怒谷道找怪
  68.                 条件结束
  69.             条件结束
  70.         条件结束
  71.         //防卡3分钟后刷新
  72.         TimeOutRefreshTimeArray(2) = 180000
  73.         调用子程序 防卡刷新第N分钟
  74.         FindMonsterLoop=FindMonsterLoop+1
  75.     循环结束
  76.     调用子程序 防卡刷新重置
  77.     waitcolrrere=Array(0,0)
  78.     如果表达式 (GetPixelColor(480,370)<>"00FFFF" and waitcolrrere(0)<30 and fighting<>1 and fighting<>0) 为真,则循环执行
  79.         //等待战斗操作到来,最长15秒
  80.         如果表达式 (waitcolrrere(1)>5) 为真,则
  81.             调用子程序 检查是否战斗
  82.             waitcolrrere(1)=0
  83.         条件结束
  84.         waitcolrrere(0)=waitcolrrere(0)+1
  85.         waitcolrrere(1)=waitcolrrere(1)+1
  86.         延时500毫秒
  87.     循环结束
  88.     延时100毫秒
  89.     //进入战斗时向下执行
  90.     //------战前设置------
  91.     EnterBattleTimeArray=Array(0,0)
  92.     调用插件命令 EnterBattleTimeArray(0)=GetSysInfo.GetTime()
  93.     调用插件命令 EnterBattleTimeArray(1)=GetSysInfo.GetTime()
  94.     //战斗时间计算
  95.     EliteMonster=0
  96.     //精英怪物
  97.     petdeath=0
  98.     PetIsDeathB=0
  99.     //宠物没有死亡
  100.     PetHpIsZero=0