1.     LastFightingOperREC=Array(0,0)
  2.     //前一次操作记录
  3.     ExistPet(0) = -1
  4.     //战斗在存在宠物
  5.     LRCatchPetArr(2) = 0
  6.     如果表达式 (fighting>0) 为真,则循环执行
  7.         调用插件命令 EnterBattleTimeArray(1)=GetSysInfo.GetTime()
  8.         EnterBattleTimeMs=EnterBattleTimeArray(1)-EnterBattleTimeArray(0)
  9.         //------------------------------------------------
  10.         //操作分析
  11.         //
  12.         如果表达式 (fighting=1) 为真,则
  13.             ActTex = "角色操作"
  14.         否则如果(fighting=3)为真,则
  15.             ActTex = "宠物操作"
  16.         否则如果(fighting=2)为真,则
  17.             ActTex = "等待"
  18.         否则如果(fighting=-1)为真,则
  19.             ActTex = "世界地图画面"
  20.         否则如果(fighting=0)为真,则
  21.             ActTex = "非战斗"
  22.         否则
  23.             ActTex = fighting
  24.         条件结束
  25.         //ChangeContent "Tex2", "计时:" & EnterBattleTimeMs
  26.         //ChangeContent "Tex3", ActTex
  27.         //ChangeContent "Tex4", "修正:" & Join(MapMonCr,",")
  28.         //根据前一操作判断宠物是否死亡 - 连续角色操作,可再加操作相隔时间大于3秒限际
  29.         如果表达式 (fighting=1 and LastFightingOperREC(0)=1) 为真,则
  30.             // and EnterBattleTimeMs-LastFightingOperREC(1)>3000
  31.             如果表达式 (PetIsDeathB<=0) 为真,则
  32.                 调用子程序 检查宠物生命值是否为0
  33.                 如果表达式 (PetHpIsZero>0) 为真,则
  34.                     PetIsDeathB=PetIsDeathB+1
  35.                     如果表达式 (PetIsDeathB>0) 为真,则
  36.                         //MsgBox "宠物死亡",0,"PetIsDeathB"
  37.                         调用子程序 宠物忠诚减10
  38.                     条件结束
  39.                 条件结束
  40.             条件结束
  41.         条件结束
  42.         如果表达式 (fighting=1 and LastFightingOperREC(0)=1 and EnterBattleTimeMs-LastFightingOperREC(1)<3000) 为真,则
  43.             //MsgBox fighting & "|" & LastFightingOperREC(0) & "|" & EnterBattleTimeMs-LastFightingOperREC(1)
  44.             调用子程序 游戏特殊BUG消除Fr
  45.             //Framework程序Flash播放器有效
  46.             MapMonCr = Array(0,-30*Int(2*Rnd))
  47.             //鼠标怪物不中怪物,用随机函数尝试
  48.         条件结束
  49.         如果表达式 (fighting=3 and LastFightingOperREC(0)=3 and EnterBattleTimeMs-LastFightingOperREC(1)<3000) 为真,则
  50.             调用子程序 游戏特殊BUG消除Fr
  51.             MapMonCr = Array(0,-30*Int(2*Rnd))
  52.         条件结束
  53.         如果表达式 (EnterBattleTimeMs<15) 为真,则
  54.             FightingCount = FightingCount+1
  55.             ChangeContent "Tex5", "战斗:" & CStr(FightingCount)
  56.             ChangeContent "Tex6", "精英:" & CStr(EliteFightingCount)
  57.             ChangeContent "Tex7", "宠忠诚:" & PetFidelity
  58.             ChangeContent "Tex8", "抓宠:" & LRCatchPetArr(1) & "/" & LRCatchPetArr(0)
  59.         条件结束
  60.         如果表达式 (fighting<>2 And EnterBattleTimeMs>2000) 为真,则
  61.             LastFightingOperREC=Array(fighting,EnterBattleTimeMs)
  62.             //记录前一个有效操作(角色/宠物)与时间
  63.         条件结束
  64.         //------------------------------------------------
  65.         如果表达式 (fighting=1) 为真,则
  66.             如果表达式 (EnterBattleTimeMs>5000) 为真,则
  67.                 //检查前等待0.5秒,防止前排HP MP 状态检查不正确.
  68.                 延时1000毫秒
  69.             条件结束
  70.             //宠物攻击下不需检查,角色操作下检查
  71.             调用子程序 检查战斗中的前排生命值
  72.             调用子程序 检查战斗中的前排法力值
  73.             调用子程序 检查战斗中的后排生命法力值
  74.             如果表达式 (CharacherAtFont>0) 为真,则
  75.                 如果表达式 (HpPosUnknow(0)<=0) 为真,则
  76.                     CharacherHpLow=FrontHpLow
  77.                     CharacherMpLow=FrontMpLow
  78.                 条件结束
  79.                 如果表达式 (HpPosUnknow(1)<=0) 为真,则
  80.                     PetHpLow=BackHpLow
  81.                     PetMpLow=BackMpLow
  82.                 条件结束
  83.             否则
  84.                 如果表达式 (HpPosUnknow(1)<=0) 为真,则
  85.                     CharacherHpLow=BackHpLow
  86.                     CharacherMpLow=BackMpLow
  87.                 条件结束
  88.                 如果表达式 (HpPosUnknow(0)<=0) 为真,则
  89.                     PetHpLow=FrontHpLow
  90.                     PetMpLow=FrontMpLow
  91.                 条件结束
  92.             条件结束
  93.             //完成以上检查HP MP 状态
  94.             //
  95.             如果表达式 (EnterBattleTimeMs<=5000 And EliteMonster=0) 为真,则
  96.                 //战斗前5秒检查是否有精英怪物
  97.                 调用子程序 检查战斗中是否有精英怪物
  98.                 如果表达式 (LRCatchPetArr(1)<=LRCatchPetArr(0)) 为真,则
  99.                     调用子程序 找宝宝测试S
  100.                     //ChangeContent "Tex8", "找宝宝:" & Join(ExistPet,",")