End Sub Sub 开始血量 dm_ret = dm.FindColor(xl + 71, yl + 58, xl + 70 + 140, yl + 60, "232323", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有血 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3)) Else dm_ret = dm.FindColor(xl + 70+139, yl + 58, xl + 70 + 140, yl + 60, "d90a00", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有血 = 100 end if End If dm_ret = dm.FindColor(xl + 71, yl + 58+8, xl + 70 + 140, yl + 60+8, "232323", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有蓝 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3)) Else dm_ret = dm.FindColor(xl + 70+139, yl + 58+8, xl + 70 + 140, yl + 60+8, "0118d9", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有血 = 100 end if End If dm_ret = dm.FindColor(xl + 141, yl + 58+48, xl +140 + 94, yl + 60+48, "232323", 0.9, 0, intX, intY) If intX >= 0 and intY >= 0 Then 宠物血 = int(left(((intx - xl - 140 - 1) / 95) * 100, 3)) Else dm_ret = dm.FindColor(xl + 140+94, yl + 58+48, xl + 140+95, yl + 60+48, "d90a00", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 宠物血 = 100 Else 宠物血 = 0 If 宠物血 = 0 Then BBjiaxue=0 End If end if End If End Sub Sub 获取血量 If TFjiaxue>0 or xueliang>0 or EMjiaxue>0 then dm_ret = dm.FindColor(xl + 70, yl + 58, xl + 70 + 140, yl + 60, "232323", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有血 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3)) Else dm_ret = dm.FindColor(xl + 70+139, yl + 58, xl + 70 + 140, yl + 60, "d90a00", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有血 = 100 end if End If End If If TFjialan>0 then dm_ret = dm.FindColor(xl + 70, yl + 58+8, xl + 70 + 140, yl + 60+8, "232323", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有蓝 = int(left(((intx - xl - 70 - 1) / 140) * 100, 3)) Else dm_ret = dm.FindColor(xl + 70+139, yl + 58+8, xl + 70 + 140, yl + 60+8, "0118d9", 1.0, 0, intX, intY) If intX >= 0 and intY >= 0 Then 自有血 = 100 end if End If End If If BBjiaxue>0 then dm_ret = dm.FindColor(xl + 70+70, yl + 58+48, xl + 70 + 95+70, yl + 60+48, "232323", 0.8, 0, intX, intY) If intX >= 0 and intY >= 0 Then 宠物血 = int(left(((intx - xl - 70-70 - 1) / 95) * 100, 3)) Else dm_ret = dm.FindColor(xl + 70+94+70, yl + 58+48, xl + 70 + 95+70, yl + 60+48, "d90a00", 0.8, 0, intX, intY) If intX >= 0 and intY >= 0 Then 宠物血 = 100 Else 宠物血 = 0 If 宠物血 = 0 Then BBjiaxue=0 End If end if End If End If End Sub Sub 加血加蓝 Call 获取血量 If xueliang = 0 Then Else If 自有血>0 and 自有血 < xueliang * 10 Then For 5 Beep Delay 50 Next End If End If If TFjiaxue = 0 Then else If 自有血>0 and 自有血 < TFjiaxue * 10 Then Call Plugin.Bkgnd.KeyPress(Hwnd, 118) goto 防卡死 End If End If If TFjialan = 0 Then else If 自有蓝>0 and 自有蓝 < TFjialan * 10 Then Call Plugin.Bkgnd.KeyPress(Hwnd, 119) goto 防卡死 End If End If