扩展MonGen支持自定义怪物名字颜色

        sLineText := GetValidStr3(sLineText, sData, [' ', #9]);
        MonGenInfo.nMissionGenRate := Str_ToInt(sData, 0);
        //新增怪物名称颜色
        sLineText := GetValidStr3(sLineText, sData, [' ', #9]);
        MonGenInfo.btNameColor := Str_ToInt(sData, 255);

//    if BaseObject.m_dwFightIPExp > 0 then
//      Result := 253;

function TUserEngine.RegenMonsters(MonGen: pTMonGenInfo; nCount: Integer): Boolean;
var
  dwStartTick               : LongWord;
  nX                        : Integer;
  nY                        : Integer;
  i                         : Integer;
  Cert                      : TBaseObject;
resourcestring
  sExceptionMsg             = '[Exception] TUserEngine::RegenMonsters';
begin
  Result := True;
  dwStartTick := GetTickCount();
  try
    if MonGen.nRace > 0 then begin
      if (MonGen.nMissionGenRate > 0) and (Random(100) < MonGen.nMissionGenRate) then begin
        nX := (MonGen.nX - MonGen.nRange) + Random(MonGen.nRange * 2 + 1);
        nY := (MonGen.nY - MonGen.nRange) + Random(MonGen.nRange * 2 + 1);
        for i := 0 to nCount - 1 do begin
          Cert := AddBaseObject(MonGen.sMapName, ((nX - 10) + Random(20)), ((nY - 10) + Random(20)), MonGen.nRace, MonGen.sMonName);
          if Cert <> nil then begin
            Cert.m_boCanReAlive := True;
            Cert.m_dwReAliveTick := GetTickCount;
            Cert.m_pMonGen := MonGen;
            //增加颜色设置
            Cert.m_btNameColor := MonGen.btNameColor;
            Inc(MonGen.nActiveCount);
            MonGen.CertList.Add(Cert);
          end;
          if (GetTickCount - dwStartTick) > g_dwZenLimit then begin
            Result := False;
            Break;
          end;
        end;
      end else begin
        for i := 0 to nCount - 1 do begin
          nX := (MonGen.nX - MonGen.nRange) + Random(MonGen.nRange * 2 + 1);
          nY := (MonGen.nY - MonGen.nRange) + Random(MonGen.nRange * 2 + 1);
          Cert := AddBaseObject(MonGen.sMapName, nX, nY, MonGen.nRace, MonGen.sMonName);
          if Cert <> nil then begin
            Cert.m_boCanReAlive := True;
            Cert.m_dwReAliveTick := GetTickCount;
            Cert.m_pMonGen := MonGen;
            //增加颜色设置
            Cert.m_btNameColor := MonGen.btNameColor;
            Inc(MonGen.nActiveCount);
            MonGen.CertList.Add(Cert);
          end;
          if (GetTickCount - dwStartTick) > g_dwZenLimit then begin
            Result := False;
            Break;
          end;
        end;
      end;
    end;
  except
    on E: Exception do begin
      MainOutMessageAPI(sExceptionMsg);
      MainOutMessageAPI(E.Message);
    end;
  end;
end;

;=====下面这几个是对整个怪物的爆率生效的=====

;#RATECONTROL 10 10 1 5 1
;高于10级降爆率，否则加爆率，每高一级降5点，最多降10级的点数，每低1级加5点，至多加5级的点数
;#HIGHLVLNODROP
;高于给定等级什么都不爆
;LOWLEVELNODROP
;低于给定等级什么都不爆
;#GUARDNODROP
;大刀砍死什么都不爆
;#OWNSYS
;爆出来的东西所有人都得等到物品保护时间过后才能拾取
;#NORATE
;忽略人物的怪物爆率属性
;=====上面这几个是对整个怪物的爆率生效的=====
;由于美元符号在论坛发不出来，所以用RMB符号替代一下，知道有这么个事就行了
#CHILD 1/1 {￥GOLDCOUNT,>,500,FALSE} RANDOM
(
;新爆率，检查人物金币数量，大于500允许继续，不扣取金币，随机抽一件
1/1    金币|@掉落物检查 800 ￥GOLDCOUNT > 500 FALSE
;金币，爆之前先执行金币检查，金币大于500再去执行QF脚本
1/1    青铜剑|@掉落物检查 1 ￥GOLDCOUNT > 5000 TRUE
;同理，只不过这个会扣掉5000金币
)

1/1    小手镯|@掉落物检查 1 ￥GOLDCOUNT > 5000 FALSE
;同理

;下面这就是最传统的爆率了
1/4    玻璃戒指
1/4    六角戒指
1/4    皮制手套

[@掉落物检查]
;#IF
;CHECKDROPITEM 青铜剑
;equal <￥DROPMONNAME> 半兽人0
;也可以使用CHECKMONNAME 半兽人0
;#ACT
;SETALLOWDROP 1
;SENDMSG 0 怪物<￥DROPMONNAME>禁止爆出物品<￥DROPITEMNAME>

#OR
CHECKDROPITEM 小手镯
CHECKDROPITEM 金币
CHECKDROPITEM 青铜剑
#ACT
SETALLOWDROP 0
SENDMSG 0 <￥DROPITEMNAME>禁止爆出