论坛 › 源码漏洞修复共享 › 飞尔20120918修复抖动 77M2版

admin 发表于 2018-4-23 07:16:33

飞尔20120918修复抖动 77M2版

procedure TPlayScene.Run();
var
I, k             : Integer;
movetick         : Boolean;
evn            : TEvent;
Actor            : TActor;
meff             : TMagicEff;
dwCheckTime      : LongWord;
dwTestCheckTime: LongWord;
nIdx             : Integer;
boCheckTimeLimit : Boolean;
nCheckCode       : Integer;
dwStepMoveTime   : LongWord;
dwTickTime       : LongWord;
begin
if (g_MySelf = nil) then begin
    Exit;
end;
g_boDoFastFadeOut := False;
movetick := False;
if g_ServerConfig.boChgSpeed then begin
    //dwStepMoveTime := g_Config.dwStepMoveTime;
    dwStepMoveTime := _MAX(100 - Trunc((g_MySelf.m_Abil.MoveSpeed * 100) / 100), 5);
end else begin
    dwStepMoveTime := 100;
end;

if GetTickCount - m_dwMoveTime >= dwStepMoveTime then begin
    m_dwMoveTime := GetTickCount;
    movetick := True;
    Inc(m_nMoveStepCount);
    if m_nMoveStepCount > 1 then m_nMoveStepCount := 0;
end;

if GetTickCount - m_dwAniTime >= 50 then begin
    m_dwAniTime := GetTickCount;
    Inc(m_nAniCount);
    if m_nAniCount > 100000 then m_nAniCount := 0;
end;

for I := 0 to m_ActorList.Count - 1 do
    actor := m_ActorList;

try
   // nIdx := m_nProcHumIDx;
    nIdx := 0;
    //dwCheckTime := GetTickCount();
    //boCheckTimeLimit := False;
    while True do begin
      nCheckCode := 0;
      if nIdx >= m_ActorList.Count then Break;
      Actor := TActor(m_ActorList.Items);
      if not Actor.m_boDelActor then begin
      nCheckCode := 1;
      //dwTestCheckTime := GetTickCount();
      //boCanMove := Actor.CanMove;

      if movetick then Actor.m_boLockEndFrame := False;

      if not Actor.m_boLockEndFrame then begin
          nCheckCode := 4;
          Actor.ProcMsg;
          nCheckCode := 5;
          if movetick then begin
            nCheckCode := 6;
            if Actor.Move(Actor.m_nMoveStepCount) then begin
            Inc(nIdx);
            nCheckCode := 7;
            Continue;
            end;
          end;
          nCheckCode := 8;
          Actor.Run;
          nCheckCode := 9;
          if Actor <> g_MySelf then Actor.ProcHurryMsg;
          nCheckCode := 10;
      end;

      nCheckCode := 11;
      if Actor = g_MySelf then Actor.ProcHurryMsg;
      nCheckCode := 12;
      if Actor.m_nWaitForRecogId <> 0 then begin
          nCheckCode := 13;
          if Actor.IsIdle then begin
            nCheckCode := 14;
            DelChangeFace(Actor.m_nWaitForRecogId);
            nCheckCode := 15;
            NewActor(Actor.m_nWaitForRecogId, Actor.m_nCurrX, Actor.m_nCurrY, Actor.m_btDir, Actor.m_nWaitForFeature, Actor.m_nWaitForStatus);
            nCheckCode := 16;
            Actor.m_nWaitForRecogId := 0;
            Actor.m_boDelActor := True;
          end;
      end;
      end;
      nCheckCode := 17;
      if Actor.m_boDelActor then begin
      nCheckCode := 18;
      m_ActorList.Delete(nIdx);
      nCheckCode := 19;
      UpDataFreeActorList(Actor);
      nCheckCode := 20;
      if g_TargetCret = Actor then g_TargetCret := nil;
      if g_FocusCret = Actor then g_FocusCret := nil;
      if g_MagicTarget = Actor then g_MagicTarget := nil;
      if g_MyHero = Actor then g_MyHero := nil;
      if g_SerieTarget = Actor then g_SerieTarget := nil;
      nCheckCode := 21;
      end else Inc(nIdx);
    end;
except
    on E: Exception do begin
      DebugOutStr('101 Code:' + IntToStr(nCheckCode));
      DebugOutStr('101 ' + E.Message);
      if nCheckCode = 4 then
      DebugOutStr('101 UserName ' + Actor.m_sUserName);
    end;
end;

nCheckCode := 22;
try
    nIdx := 0;
    while True do begin
      nCheckCode := 23;
      if nIdx >= m_GroundEffectList.Count then Break;
      nCheckCode := 24;
      meff := m_GroundEffectList;
      nCheckCode := 25;
      if meff.m_boActive then begin
      nCheckCode := 26;
      if not meff.Run then begin
          nCheckCode := 27;
          m_GroundEffectList.Delete(nIdx);
          nCheckCode := 28;
          meff.Free;
          nCheckCode := 29;
          Continue;
      end;
      end;
      Inc(nIdx);
    end;
    nCheckCode := 30;
    nIdx := 0;
    while True do begin
      nCheckCode := 31;
      if nIdx >= m_EffectList.Count then Break;
      nCheckCode := 32;
      meff := m_EffectList;
      nCheckCode := 33;
      if meff.m_boActive then begin
      nCheckCode := 34;
      if not meff.Run then begin
          nCheckCode := 35;
          meff.Free;
          nCheckCode := 36;
          m_EffectList.Delete(nIdx);
          nCheckCode := 37;
          Continue;
      end;
      end;
      Inc(nIdx);
    end;
    nCheckCode := 38;
    nIdx := 0;
    while True do begin
      nCheckCode := 39;
      if nIdx >= m_FlyList.Count then Break;
      nCheckCode := 40;
      meff := m_FlyList;
      nCheckCode := 41;
      if meff.m_boActive then begin
      nCheckCode := 42;
      if not meff.Run then begin
          nCheckCode := 43;
          meff.Free;
          nCheckCode := 44;
          m_FlyList.Delete(nIdx);
          nCheckCode := 45;
          Continue;
      end;
      end;
      Inc(nIdx);
    end;
    nCheckCode := 46;
    EventMan.Execute;
    nCheckCode := 47;

except
    on E: Exception do begin
      DebugOutStr('102 Code:' + IntToStr(nCheckCode));
      DebugOutStr('102 ' + E.Message);
    end;
end;

try
//清除超过显示范围的物品数据

    ClearDropItem();

//清除超过显示范围的魔法数据
    for k := EventMan.EventList.Count - 1 downto 0 do begin
      evn := TEvent(EventMan.EventList);
      if ((abs(evn.m_nX - g_MySelf.m_nCurrX) > 30) and (abs(evn.m_nY - g_MySelf.m_nCurrY) > 30)) or (not evn.m_boVisible) then begin
      EventMan.EventList.Delete(k);
      evn.Free;
      //Break;
      end;
    end;
end;
end;

查看完整版本: 飞尔20120918修复抖动 77M2版