Plugin Bkgnd.SendString(h,"w=hong(变量)除100(必须除100)乘"&P&","&P&"是血的总长度")
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"w=w+208[208=血最前坐标] 等待按键")
Plugin Bkgnd.KeyDown(h,13)
WaitKey 
Plugin Bkgnd.SendString(h,"现在加判断语句IfColor w,81[81是Y坐标] 等待按键")
Plugin Bkgnd.KeyDown(h,13)
WaitKey 
Plugin Bkgnd.SendString(h,"IfColor w,81 血的颜色 2")
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"颜色等于不用加 等待按键")
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"Else ")
WaitKey 
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"颜色不等于加红 ")
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"在这里写入加红脚本")
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"ElseIf ")
Delay 500
KeyPress 13,1
VBSCall RunApp("notepad.exe")
Delay 1000
SayString 总之就是 血的末尾X坐标减血的开始X坐标=血的总长
KeyPress 13,1
SayString 随便设置个变量 W
KeyPress 13,1
SayString W=[脚本中的自定仪变量]除100*血总长
KeyPress 13,1
SayString w=w+开始X坐标
KeyPress 13,1
SayString IfColor w,开始y坐标 "颜色" 2