- 否则
- FHPMiss=0
- 条件结束
- 条件结束
- 调用子程序 DEBUGKEY
- 如果表达式 (((debugon=1045 or debugon=995) and CharacherHpPositionY<=0) or LastDebugKey=191) 为真,则
- MsgBox "前排生命条找不到:" & CharacherHpPositionX & "|" & CharacherHpPositionY,0,"检查战斗中(前排)的生命值"
- 条件结束
- 如果表达式 (FrontHpLow<0) 为真,则
- //已经用道具~则跳过一次检测 - 已经更改!失效
- FrontHpLow=FrontHpLow+1
- 否则
- //ChangeContent "Tex5", "前:"CharacherHpPositionX & "|" & CharacherHpPositionY
- 如果表达式 (debugon=1045 or debugon=995) 为真,则
- MsgBox "GetPixelColor(" & CharacherHpPositionX & "," & CharacherHpPositionY & ")=" & GetPixelColor(CharacherHpPositionX,CharacherHpPositionY),0,"检查战斗中的角色(前排)生命值"
- 条件结束
- FrontHpLow=0
- //IfColor 630,408,0000ff,2
- 如果表达式 (ColorCompare(GetPixelColor(CharacherHpPositionX+1,CharacherHpPositionY),"DEDFDE",15)) 为真,则
- //IfColor 630+hppercent,408,ff,2
- 如果表达式 (ColorCompare(GetPixelColor(CharacherHpPositionX+hppercent,CharacherHpPositionY+3),"0000ff",15)) 为真,则
- FrontHpLow=0
- 否则
- FrontHpLow=1
- 条件结束
- HpPosUnknow(0)=0
- 否则
- 如果表达式 (HpPosUnknow(0)>=2) 为真,则
- FHPMiss=1
- //MsgBox "FHPMiss"
- 否则
- HpPosUnknow(0)=HpPosUnknow(0)+1
- 条件结束
- 条件结束
- 条件结束
- 子程序结束,回到调用处
- 子程序 检查战斗中的前排法力值
- 如果表达式 (FrontMpLow<0) 为真,则
- //已经用道具则跳过
- FrontMpLow=FrontMpLow+1
- 否则
- //IfColor 630,415,ad3031,0
- 如果表达式 (ColorCompare(GetPixelColor(CharacherHpPositionX+1,CharacherHpPositionY),"DEDFDE",15)) 为真,则
- //IfColor 630+mppercent,415,ad3031,0
- 如果表达式 (ColorCompare(GetPixelColor(CharacherHpPositionX+mppercent,CharacherHpPositionY+10),"AD3031",15)) 为真,则
- FrontMpLow=0
- 否则
- FrontMpLow=1
- 条件结束
- 条件结束
- 条件结束
- 子程序结束,回到调用处
- 子程序 检查战斗中的后排生命法力值
- 如果表达式 (PetHpPositionY<=0 or BHPMiss>0) 为真,则
- 调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
- //MessageBox PetHpPositionY
- 如果表达式 ((ColorCompare(GetPixelColor(PetHpPositionX+40,PetHpPositionY+12),"DEDFDE",15)<=0 or ColorCompare(GetPixelColor(PetHpPositionX,PetHpPositionY),"DEDFDE",15)<=0)) 为真,则
- BHPMiss=1
- //MsgBox "BHPMiss"
- 否则
- BHPMiss=0
- 条件结束
- 条件结束
- 如果表达式 ((debugon=1045 or debugon=995) and PetHpPositionY<=0) 为真,则
- MsgBox "后排生命条找不到",0,"检查战斗中的宠物(后排)生命值"
- 条件结束
- 如果表达式 (BackHpLow<0) 为真,则
- //如果宠物已经使用道具或治疗
- BackHpLow=BackHpLow+1
- 否则
- BackHpLow=0
- //ChangeContent "Tex6", "前:"PetHpPositionX & "|" & PetHpPositionY
- //IfColor 713,486,dedfde,2
- 如果表达式 (debugon=1045 or debugon=995) 为真,则
- MsgBox "GetPixelColor(713,"& PetHpPositionY & "=" & GetPixelColor(PetHpPositionX,PetHpPositionY),0,"检查战斗中的宠物生命值"
- 条件结束
- 如果表达式 (ColorCompare(GetPixelColor(PetHpPositionX+1,PetHpPositionY),"dedfde",15)) 为真,则
- //IfColor 713+hppercent,489,ff,2
- 如果表达式 (ColorCompare(GetPixelColor(PetHpPositionX+pethppercent,PetHpPositionY+3),"0000FF",15)) 为真,则
- BackHpLow=0
- 否则
- BackHpLow=1
- 条件结束
- HpPosUnknow(1)=0
- 否则
- //未检查到生命条2次,第3次重新查找
- 如果表达式 (HpPosUnknow(1)>=2) 为真,则
- BHPMiss=1
- 否则
- HpPosUnknow(1)=HpPosUnknow(1)+1
- 条件结束
- 条件结束
- 条件结束
- //---------后排法力足够检查----------
- 如果表达式 (BackMpLow<0) 为真,则
- //如果宠物已经使用道具或治疗
- BackMpLow=BackMpLow+1
- 否则
- BackMpLow=0
- //IfColor 713,486,dedfde,2