183200 发表于 2018-7-24 15:10:32

分享一下刺激战场血条写法

这是刺激战场血条写法.

需要上市的拿去. 不会的别喷.谢谢.
**** 本内容需购买 ****

风言 发表于 2018-7-24 16:44:30

付费内容 购买记录

.版本 2

.子程序 老桃儿纵向血条绘制
.参数 Head, RECT
.参数 默认颜色, 整数型
.参数 背景颜色, 整数型
.参数 health, 整数型
.局部变量 DrawX, 整数型
.局部变量 DrawY, 整数型
.局部变量 dwDrawWidth, 整数型
.局部变量 dwColor, 整数型

DrawX ＝ Head.x
DrawY ＝ Head.y
dwColor ＝ 默认颜色
.如果真 (health ＞ 100)
    health ＝ 100
    dwColor ＝ 转换颜色 (#绿色)
.如果真结束
.如果 (health ＜ 75 且 health ＞ 40)
    dwColor ＝ 转换颜色 (#黄色)
.否则
    .如果 (health ＜ 40)
      dwColor ＝ 转换颜色 (#红色)
    .否则

    .如果结束

.如果结束
dwDrawWidth ＝ health × Head.h ÷ 100
绘制直线2 (DrawX － 6, DrawY － 1, 5, Head.h ＋ 2, 背景颜色)
绘制直线2 (DrawX － 5, DrawY ＋ Head.h － dwDrawWidth, 3, dwDrawWidth, dwColor)

风言 发表于 2018-7-24 16:43:25

你拿别人的东西你卖你麻麻比
页: [1]
查看完整版本: 分享一下刺激战场血条写法