一段道德的代码

killer_zingy · 发表于 2009-7-27 11:02

马上注册，结交更多侠友！

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

小弟写了一段关于道德的代码, 编译完了以后道德可以用文字代替. 比如说, 如果你的道德是88, 那将会在属性框里显示, 侠之大者.

strs[24] := ' 品德';

drawshadowtext(@strs[24, 1], x + 430, y + 236, colcolor($7), colcolor($5));

//品德
  case RRole[rnum].Ethics of
0..20:
   begin
      str := '天理不容';
   end;
21..40:
   begin
      str := '穷凶极恶';
   end;
41..50:
   begin
      str := '略有小恶';
   end;
51..60:
   begin
      str := '略有小善';
   end;
61..80:
   begin
      str := '侠之小者';
   end;
   else
   begin
      str := '侠之大者';
   end;
   drawshadowtext(@str[1], x + 510, y + 236, colcolor($66), colcolor($63));
   end;
经过我的测试, 能行! 喜欢的朋友可以哪去