101. 调用插件命令 Bkgnd.SendString(h,"w=hong(变量)除100(必须除100)乘"&P&","&P&"是血的总长度")
102. 调用插件命令 Bkgnd.KeyDown(h,13)
103. 调用插件命令 Bkgnd.SendString(h,"w=w+208[208=血最前坐标] 等待按键")
104. 调用插件命令 Bkgnd.KeyDown(h,13)
105. 等待按任意键，保存到变量Bkgnd.KeyDown(h,13)中
106. 调用插件命令 Bkgnd.SendString(h,"现在加判断语句IfColor w,81[81是Y坐标] 等待按键")
107. 调用插件命令 Bkgnd.KeyDown(h,13)
108. 等待按任意键，保存到变量Bkgnd.KeyDown(h,13)中
109. 调用插件命令 Bkgnd.SendString(h,"IfColor w,81 血的颜色 2")
110. 调用插件命令 Bkgnd.KeyDown(h,13)
111. 调用插件命令 Bkgnd.SendString(h,"颜色等于不用加 等待按键")
112. 调用插件命令 Bkgnd.KeyDown(h,13)
113. 调用插件命令 Bkgnd.SendString(h,"Else ")
114. 等待按任意键，保存到变量Bkgnd.SendString(h,"Else ")中
115. 调用插件命令 Bkgnd.KeyDown(h,13)
116. 调用插件命令 Bkgnd.SendString(h,"颜色不等于加红 ")
117. 调用插件命令 Bkgnd.KeyDown(h,13)
118. 调用插件命令 Bkgnd.SendString(h,"在这里写入加红脚本")
119. 调用插件命令 Bkgnd.KeyDown(h,13)
120. 调用插件命令 Bkgnd.SendString(h,"ElseIf ")
121. 延时500毫秒
122. 按键<Enter>
123. 调用外部VBScript子程序 运行一个外部程序("notepad.exe")
124. 延时1000毫秒
125. 输入文本 总之就是 血的末尾X坐标减血的开始X坐标=血的总长
126. 按键<Enter>
127. 输入文本 随便设置个变量 W
128. 按键<Enter>
129. 输入文本 W=[脚本中的自定仪变量]除100*血总长
130. 按键<Enter>
131. 输入文本 w=w+开始X坐标
132. 按键<Enter>
133. 输入文本 IfColor w,开始y坐标 "颜色" 2