bnkengn.pas

原版翎风(LF)引擎(M2)源码(Delphi)

unit BnkEngn;

interface

uses
  Windows, Classes, ObjBase, ObjNpc;

type
  TOpAction = (o_GetGold, o_SaveGold, o_ViewGold);
  TReQuestInfo = record
    NPC: TMerchant;
    PlayObject: TPlayObject;
    OpAction: TOpAction;
    nGameGold: Integer;
    sAccount: string;
    sPassword: string;
  end;
  pTReQuestInfo = ^TReQuestInfo;
  TBankEngine = class(TThread)
    m_UserReQuestList: TList;
    m_CompleteList: TList;
    m_CS: TRTLCriticalSection;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
    procedure Lock;
    procedure UnLock;
  end;

implementation

{ TBankEngine }

constructor TBankEngine.Create(CreateSuspended: Boolean);
begin
  inherited;
  InitializeCriticalSection(m_CS);
  m_UserReQuestList := TList.Create;
  m_CompleteList := TList.Create;
end;

destructor TBankEngine.Destroy;
begin
  m_UserReQuestList.Free;
  m_CompleteList.Free;
  DeleteCriticalSection(m_CS);
  inherited;
end;

procedure TBankEngine.Execute;
var
  i: Integer;
  ReQuestInfo: pTReQuestInfo;
begin
  while not Terminated do
  begin
    Lock;
    try

    finally
      UnLock;
    end;
    for i := 0 to m_UserReQuestList.Count - 1 do
    begin
      ReQuestInfo := m_UserReQuestList.Items[i];
      case ReQuestInfo.OpAction of //
        o_GetGold: ;
        o_SaveGold: ;
        o_ViewGold: ;
      end;
    end;
    Sleep(1);
  end;
end;

procedure TBankEngine.Lock;
begin
  EnterCriticalSection(m_CS);
end;

procedure TBankEngine.UnLock;
begin
  LeaveCriticalSection(m_CS);
end;

end.