1. //
  2. //修正战斗中怪物无法点击错误.
  3. MapMonCr = Array(0,0)
  4. //
  5. //用于保存到达目的地途经地图的数组变量
  6. Dim DecPlaceArr
  7. //
  8. place = "樱舞仙境"
  9. fighting=0
  10. //战半中?
  11. LastFightingOperREC=Array(0,0)
  12. //前个战斗操作记录LastFightingOperREC=Array(战斗标记,操作时间)
  13. FightingCount = 0
  14. EliteFightingCount = 0
  15. EliteMonster=0
  16. //精英怪物
  17. FrontHpLow=0
  18. CharacherHpLow=0
  19. FrontMpLow=0
  20. CharacherMpLow=0
  21. Bhplow=0
  22. Bmplow=0
  23. BackHpLow=0
  24. PetHpLow=0
  25. BackMpLow=0
  26. PetMpLow=0
  27. petdeath=0
  28. PetIsDeathB=0
  29. //另一记录宠物死亡变量
  30. PetHpIsZero=0
  31. PetHpPositionY=0
  32. PetHpPositionX=0
  33. CharacherHpPositionY=0
  34. CharacherHpPositionX=0
  35. HpPosUnknow=Array(0,0)
  36. //长时间不能检测到战斗中的生命条,重新查找位置
  37. LastMonsterHpPos=Array(0,0)
  38. reref=0
  39. notexit=0
  40. FindMonsterLoop=0
  41. MoveMapCount=0
  42. //调整小地图次数统计
  43. TimeOutRefreshTimeArray=Array(0,0,60000)
  44. //防卡刷新数组-记录前后两个时间
  45. MiniMapColorS=Array(0,0)
  46. LastDebugKey=0
  47. FHPMiss=0
  48. BHPMiss=0
  49. //
  50. SetWaitColor=Array("c6cbff",10000,588,289,0)
  51. PetFidelity=100
  52. //
  53. 如果表达式 (Not(IsNumeric(usemagic))) 为真,则
  54.     usemagic=1
  55. 条件结束
  56. 如果表达式 (Not(IsNumeric(SecondMagic))) 为真,则
  57.     SecondMagic=0
  58. 条件结束
  59. 如果表达式 (Not(IsNumeric(debugon))) 为真,则
  60.     debugon=0
  61. 条件结束
  62. 如果表达式 (Not(IsNumeric(petusemagic))) 为真,则
  63.     petusemagic=0
  64. 条件结束
  65. 如果表达式 (Not(IsNumeric(petusemagic))) 为真,则
  66.     petusemagic=0
  67. 条件结束
  68. 如果表达式 (Not(IsNumeric(petdefense))) 为真,则
  69.     petdefense=1
  70. 条件结束
  71. 如果表达式 (Not(IsNumeric(TreatPet))) 为真,则
  72.     TreatPet=5
  73. 条件结束
  74. 如果表达式 (Not(IsNumeric(TreatSelf))) 为真,则
  75.     TreatSelf=5
  76. 条件结束
  77. 如果表达式 (Not(IsNumeric(newwindow))) 为真,则
  78.     newwindow=1
  79. 条件结束
  80. 如果表达式 (Not(IsNumeric(pethppercent))) 为真,则
  81.     pethppercent=45
  82. 条件结束
  83. 如果表达式 (Not(IsNumeric(petmppercent))) 为真,则
  84.     petmppercent=10
  85. 条件结束
  86. 如果表达式 (Not(IsNumeric(hppercent))) 为真,则
  87.     hppercent=50
  88. 条件结束
  89. 如果表达式 (Not(IsNumeric(mppercent))) 为真,则
  90.     mppercent=10
  91. 条件结束
  92. 如果表达式 (Not(IsNumeric(Bhppercent))) 为真,则
  93.     Bhppercent=0
  94. 条件结束
  95. 如果表达式 (Not(IsNumeric(Bmppercent))) 为真,则
  96.     Bmppercent=0
  97. 条件结束
  98. 如果表达式 (Not(IsNumeric(CharacherAtFont))) 为真,则
  99.     CharacherAtFont=1
  100. 条件结束