usrengn.pas

乐都SQL版传奇全套代码,绝对可编译

    end;
  end;
end;

function TUserEngine.GetMonRace(sMonName: string): Integer; //004ACDD8
var
  i                                     : Integer;
  MonInfo                               : pTMonInfo;
begin
  Result := -1;
  for i := 0 to MonsterList.Count - 1 do
  begin
    MonInfo := MonsterList.Items[i];
    if CompareText(MonInfo.sName, sMonName) = 0 then
    begin
      Result := MonInfo.btRace;
      break;
    end;
  end;
end;

procedure TUserEngine.MerchantInitialize;                   //004AC96C
var
  i                                     : Integer;
  Merchant                              : TMerchant;
  sCaption                              : string;
begin
  sCaption := FrmMain.Caption;
  m_MerchantList.Lock;
  try
    for i := m_MerchantList.Count - 1 downto 0 do
    begin
      Merchant := TMerchant(m_MerchantList.Items[i]);
      Merchant.m_PEnvir := g_MapManager.FindMap(Merchant.m_sMapName);
      if Merchant.m_PEnvir <> nil then
      begin
        Merchant.Initialize;                                //FFFE
        if Merchant.m_boAddtoMapSuccess and (not Merchant.m_boIsHide) then
        begin
          MainOutMessage('Merchant Initalize fail...' + Merchant.m_sCharName +
            ' ' + Merchant.m_sMapName + '(' + IntToStr(Merchant.m_nCurrX) + ':'
            +
            IntToStr(Merchant.m_nCurrY) + ')');
          m_MerchantList.Delete(i);
          Merchant.Free;
        end
        else
        begin
          Merchant.LoadNpcScript();
          Merchant.LoadNPCData();
        end;
      end
      else
      begin
        MainOutMessage(Merchant.m_sCharName +
          'Merchant Initalize fail... (m.PEnvir=nil)');
        m_MerchantList.Delete(i);
        Merchant.Free;
      end;
      FrmMain.Caption := sCaption + '[正在初始交易NPC(' +
        IntToStr(m_MerchantList.Count) + '/' + IntToStr(m_MerchantList.Count - i)
        +
        ')]';
      //Application.ProcessMessages;
    end;
  finally
    m_MerchantList.UnLock;
  end;
end;

procedure TUserEngine.NPCinitialize;                        //004ACC24
var
  i                                     : Integer;
  NormNpc                               : TNormNpc;
begin
  for i := QuestNPCList.Count - 1 downto 0 do
  begin
    NormNpc := TNormNpc(QuestNPCList.Items[i]);
    NormNpc.m_PEnvir := g_MapManager.FindMap(NormNpc.m_sMapName);
    if NormNpc.m_PEnvir <> nil then
    begin
      NormNpc.Initialize;                                   //FFFE
      if NormNpc.m_boAddtoMapSuccess and (not NormNpc.m_boIsHide) then
      begin
        MainOutMessage(NormNpc.m_sCharName + ' Npc Initalize fail... ');
        QuestNPCList.Delete(i);
        NormNpc.Free;
      end
      else
      begin
        NormNpc.LoadNpcScript();
      end;
    end
    else
    begin
      MainOutMessage(NormNpc.m_sCharName +
        ' Npc Initalize fail... (npc.PEnvir=nil) ');
      QuestNPCList.Delete(i);
      NormNpc.Free;
    end;

  end;
end;

function TUserEngine.GetLoadPlayCount: Integer;             //004AE7F0
begin
  Result := m_LoadPlayList.Count;
end;

function TUserEngine.GetOnlineHumCount: Integer;            //004AE7F0
begin
  Result := m_PlayObjectList.Count;
end;

function TUserEngine.GetUserCount: Integer;                 //004AE7C0
begin
  Result := m_PlayObjectList.Count + m_StringList_0C.Count;
end;

procedure TUserEngine.ProcessHumans;

  function IsLogined(sChrName: string;DBIndex:Integer): Boolean;            //004AFC68
  var
    i                                   : Integer;
    PlayObject                            : TPlayObject;
  begin
    Result := False;
    if FrontEngine.InSaveRcdList(sChrName) then
    begin
      Result := True;
    end
    else
    begin
      for i := 0 to m_PlayObjectList.Count - 1 do
      begin
         PlayObject := TPlayObject(m_PlayObjectList.Objects[i]);
        if CompareText(m_PlayObjectList.Strings[i], sChrName) = 0 then
        begin
          if PlayObject.DBIndex=dbindex then
          Begin
            Result := True;
            break;
          End;
        end;
      end;
    end;
  end;

  function MakeNewHuman(UserOpenInfo: pTUserOpenInfo): TPlayObject; //004AFD28
  var
    PlayObject                          : TPlayObject;
    Abil                                : pTAbility;
    Envir                               : TEnvirnoment;
    nC                                  : Integer;
    SwitchDataInfo                      : pTSwitchDataInfo;
    Castle, Castle1                     : TUserCastle;

  resourcestring
    sExceptionMsg                           =
      '[Exception] TUserEngine::MakeNewHuman';
    sChangeServerFail1                  = 'chg-server-fail-1 [%d] -> [%d] [%s]';
    sChangeServerFail2                  = 'chg-server-fail-2 [%d] -> [%d] [%s]';
    sChangeServerFail3                  = 'chg-server-fail-3 [%d] -> [%d] [%s]';
    sChangeServerFail4                  = 'chg-server-fail-4 [%d] -> [%d] [%s]';
    sErrorEnvirIsNil                    = '[Error] PlayObject.PEnvir = nil';
  label
    ReGetMap;
  begin
    Result := nil;
    try
      PlayObject := TPlayObject.Create;

      if not g_Config.boVentureServer then
      begin
        UserOpenInfo.sChrName := '';
        //UserOpenInfo.LoadUser.nSessionID := 0;
        SwitchDataInfo := GetSwitchData(UserOpenInfo.sChrName,UserOpenInfo.LoadUser.nSessionID);
      end
      else
        SwitchDataInfo := nil;                              //004AFD95

      SwitchDataInfo := nil;

     // if SwitchDataInfo = nil then
      begin
        GetHumData(PlayObject, UserOpenInfo.HumanRcd);
        PlayObject.m_btRaceServer := RC_PLAYOBJECT;
        if PlayObject.m_sHomeMap = '' then
        begin
          ReGetMap:
          PlayObject.m_sHomeMap := GetHomeInfo(PlayObject.m_nHomeX,
            PlayObject.m_nHomeY);

          PlayObject.m_sMapName := PlayObject.m_sHomeMap;
          PlayObject.m_sMapFileName:=PlayObject.m_sHomeMap;
          PlayObject.m_nCurrX := GetRandHomeX(PlayObject);
          PlayObject.m_nCurrY := GetRandHomeY(PlayObject);
          if PlayObject.m_Abil.Level = 0 then
          begin
            Abil := @PlayObject.m_Abil;
            Abil.Level := 1;
            Abil.AC := 0;
            Abil.MAC := 0;
            Abil.DC := MakeLong(1, 2);
            Abil.MC := MakeLong(1, 2);
            Abil.SC := MakeLong(1, 2);
            Abil.MP := 15;
            Abil.HP := 15;
            Abil.MaxHP := 15;
            Abil.MaxMP := 15;
            Abil.Exp := 0;
            Abil.MaxExp := 100;
            Abil.Weight := 0;
            Abil.MaxWeight := 30;
            PlayObject.m_boNewHuman := True;
          end;
        end;
        Envir := g_MapManager.GetMapInfo(nServerIndex, PlayObject.m_sMapName);
        if Envir <> nil then
        begin
          PlayObject.m_sMapFileName := Envir.m_sMapFileName;

          if Envir.m_boFight3Zone then
          begin //是否在行会战争地图死亡
            if (PlayObject.m_Abil.HP <= 0) and (PlayObject.m_nFightZoneDieCount
              < 3) then
            begin
              PlayObject.m_Abil.HP := PlayObject.m_Abil.MaxHP;
              PlayObject.m_Abil.MP := PlayObject.m_Abil.MaxMP;
              PlayObject.m_boDieInFight3Zone := True;
            end
            else
              PlayObject.m_nFightZoneDieCount := 0;
          end;
        end;

        PlayObject.m_MyGuild :=
          g_GuildManager[PlayObject.dbindex mod 2].MemberOfGuild(PlayObject.m_sCharName);
        Castle := g_CastleManager.InCastleWarArea(Envir, PlayObject.m_nCurrX,
          PlayObject.m_nCurrY);
        {
        if (Envir <> nil) and ((UserCastle.m_MapPalace = Envir) or
          (UserCastle.m_boUnderWar and UserCastle.InCastleWarArea(PlayObject.m_PEnvir,PlayObject.m_nCurrX,PlayObject.m_nCurrY))) then begin
        }
        if (Envir <> nil) and (Castle <> nil) and ((Castle.m_MapPalace = Envir)
          or Castle.m_boUnderWar) then
        begin
          Castle1 := g_CastleManager.IsCastleMember(PlayObject);

          //if not UserCastle.IsMember(PlayObject) then begin
          //攻城战回城
          if Castle1 = nil then
          begin
            //如果在皇宫里则回城
            if Castle.m_MapPalace = Envir then
            begin
              Randomize;

              PlayObject.m_sMapName := PlayObject.m_sHomeMap;
              PlayObject.m_nCurrX := PlayObject.m_nHomeX - 2 + Random(5);
              PlayObject.m_nCurrY := PlayObject.m_nHomeY - 2 + Random(5);
            end;
          end
          else
          begin
            {
            if UserCastle.m_MapPalace = Envir then begin
              PlayObject.m_sMapName:=UserCastle.GetMapName();
              PlayObject.m_nCurrX:=UserCastle.GetHomeX;
              PlayObject.m_nCurrY:=UserCastle.GetHomeY;
            end;
            }
            if Castle.m_MapPalace = Envir then
            begin
              PlayObject.m_sMapName := Castle.GetMapName();
              PlayObject.m_nCurrX := Castle.GetHomeX;
              PlayObject.m_nCurrY := Castle.GetHomeY;
            end;

          end;
        end;                                                //004B00C0

     //   if (PlayObject.nC4 <= 1) and (PlayObject.m_Abil.Level >= 1) then
     //     PlayObject.nC4 := 2;
        if g_MapManager.FindMap(PlayObject.m_sMapName) = nil then
          PlayObject.m_Abil.HP := 0;
        if PlayObject.m_Abil.HP <= 0 then
        begin
          PlayObject.ClearStatusTime();
          if PlayObject.PKLevel < 2 then
          begin
            Castle := g_CastleManager.IsCastleMember(PlayObject);
            //            if UserCastle.m_boUnderWar and (UserCastle.IsMember(PlayObject)) then begin
            if (Castle <> nil) and Castle.m_boUnderWar then
            begin
              PlayObject.m_sMapName := Castle.m_sHomeMap;
              PlayObject.m_nCurrX := Castle.GetHomeX;
              PlayObject.m_nCurrY := Castle.GetHomeY;
            end
            else
            begin
              PlayObject.m_sMapName := PlayObject.m_sHomeMap;
              PlayObject.m_nCurrX := PlayObject.m_nHomeX - 2 + Random(5);
              PlayObject.m_nCurrY := PlayObject.m_nHomeY - 2 + Random(5);
            end;
          end
          else
          begin                                             //004B0201
            PlayObject.m_sMapName := g_Config.sRedDieHomeMap {'3'};
            PlayObject.m_nCurrX := Random(13) + g_Config.nRedDieHomeX {839};
            PlayObject.m_nCurrY := Random(13) + g_Config.nRedDieHomeY {668};
          end;
          PlayObject.m_Abil.HP := 14;
          //2005-11-02

        end;                                                //004B023D

        PlayObject.AbilCopyToWAbil();
        Envir := g_MapManager.GetMapInfo(nServerIndex, PlayObject.m_sMapName);
        if Envir = nil then
        begin
          PlayObject.m_nSessionID := UserOpenInfo.LoadUser.nSessionID;
          PlayObject.m_nSocket := UserOpenInfo.LoadUser.nSocket;
          PlayObject.m_nGateIdx := UserOpenInfo.LoadUser.nGateIdx;
          PlayObject.m_nGSocketIdx := UserOpenInfo.LoadUser.nGSocketIdx;
          PlayObject.m_WAbil := PlayObject.m_Abil;
          PlayObject.m_nServerIndex :=
            g_MapManager.GetMapOfServerIndex(PlayObject.m_sMapName);
          if PlayObject.m_Abil.HP <> 14 then
          begin
            MainOutMessage(format(sChangeServerFail1, [nServerIndex,
              PlayObject.m_nServerIndex, PlayObject.m_sMapName]));

          end;
          SendSwitchData(PlayObject, PlayObject.m_nServerIndex);
          SendChangeServer(PlayObject, PlayObject.m_nServerIndex);
          PlayObject.Free;
          exit;
        end;
        PlayObject.m_sMapFileName:=Envir.m_sMapFileName;
        nC := 0;
        while (True) do
        begin                                               //004B03CC
          if Envir.CanWalk(PlayObject.m_nCurrX, PlayObject.m_nCurrY, True) then
            break;
          PlayObject.m_nCurrX := PlayObject.m_nCurrX - 3 + Random(6);
          PlayObject.m_nCurrY := PlayObject.m_nCurrY - 3 + Random(6);

          Inc(nC);
          if nC >= 5 then
            break;
        end;

        if not Envir.CanWalk(PlayObject.m_nCurrX, PlayObject.m_nCurrY, True)
          then
        begin
          MainOutMessage(format(sChangeServerFail2, [nServerIndex,
            PlayObject.m_nServerIndex, PlayObject.m_sMapName]));

          PlayObject.m_sMapName := g_Config.sHomeMap;
          Envir := g_MapManager.FindMap(g_Config.sHomeMap);
          PlayObject.m_nCurrX := g_Config.nHomeX;
          PlayObject.m_nCurrY := g_Config.nHomeY;
        end;

        PlayObject.m_PEnvir := Envir;
        if PlayObject.m_PEnvir = nil then
        begin
          MainOutMessage(sErrorEnvirIsNil);
          goto ReGetMap;
        end
        else
        begin
          PlayObject.m_boReadyRun := False;
        end;
      end;
                                 //004B085C
      PlayObject.m_sUserID := UserOpenInfo.LoadUser.sAccount;
      PlayObject.m_sIPaddr := UserOpenInfo.LoadUser.sIPaddr;
      PlayObject.m_sIPLocal := GetIPLocal(PlayObject.m_sIPaddr);