www.pudn.com > M2Engine.rar > BnkEngn.pas

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.