www.pudn.com > woool12.rar > Event.pas
unit Event;
interface
uses
Windows, Classes, SysUtils, SyncObjs, ObjBase, Envir, Grobal2, MudUtil,MyList;
type
TEvent = class //0x40
m_nVisibleFlag: Integer; //0x04
m_Envir: TEnvirnoment;
m_nX: Integer; //0x0C
m_nY: Integer; //0x10
m_nEventType: Integer; //0x14
m_nEventParam: Integer; //0x18
m_dwOpenStartTick: LongWord; //0x1C
m_dwContinueTime: LongWord; //0x20 显示时间长度
m_dwCloseTick: LongWord; //0x24
m_boClosed: Boolean; //0x28
m_nDamage: Integer; ///0x2C
m_OwnBaseObject: TBaseObject; //0x30
m_dwRunStart: LongWord; //0x34
m_dwRunTick: LongWord; //0x38
m_boVisible: Boolean; //0x3C
m_boActive: Boolean; //0x3D
public
constructor Create(tEnvir: TEnvirnoment; nTX, nTY, nType, dwETime: Integer;
boVisible: Boolean);
destructor Destroy; override;
procedure Run(); virtual;
procedure Close();
end;
TStoneMineEvent = class(TEvent) //0x4C
m_nMineCount: Integer; //0x40
m_nAddStoneCount: Integer; //0x44
m_dwAddStoneMineTick: LongWord; //0x48
public
constructor Create(Envir: TEnvirnoment; nX, nY: Integer; nType: Integer);
destructor Destroy; override;
procedure AddStoneMine();
end;
TPileStones = class(TEvent) //0x40
public
constructor Create(Envir: TEnvirnoment; nX, nY: Integer; nType, nTime:
Integer);
destructor Destroy; override;
procedure AddEventParam();
end;
THolyCurtainEvent = class(TEvent) //0x40
public
constructor Create(Envir: TEnvirnoment; nX, nY: Integer; nType, nTime:
Integer);
destructor Destroy; override;
end;
TFireBurnEvent = class(TEvent) //0x44
m_dwRunTick: LongWord;
public
constructor Create(Creat: TBaseObject; nX, nY: Integer; nType: Integer;
nTime, nDamage: Integer);
destructor Destroy; override;
procedure Run(); override;
end;
TEventManager = class //0x0C
m_EventList: TGList;
m_ClosedEventList: TGList;
public
constructor Create();
destructor Destroy; override;
function GetEvent(Envir: TEnvirnoment; nX, nY: Integer; nType: Integer):
TEvent;
procedure AddEvent(Event: TEvent);
procedure Run();
end;
TMagicEvent = record
BaseObjectList: TMyList;
dwStartTick: LongWord;
dwTime: LongWord;
Events: array[0..7] of THolyCurtainEvent;
end;
pTMagicEvent = ^TMagicEvent;
implementation
uses M2Share;
{ TStoneMineEvent }
constructor TStoneMineEvent.Create(Envir: TEnvirnoment; nX, nY,
nType: Integer); //004A7D0C
begin
inherited Create(Envir, nX, nY, nType, 0, False);
m_Envir.AddToMapMineEvent(nX, nY, OS_EVENTOBJECT, Self);
m_boVisible := False;
m_nMineCount := Random(200);
m_dwAddStoneMineTick := GetTickCount();
m_boActive := False;
m_nAddStoneCount := Random(80);
end;
destructor TStoneMineEvent.Destroy;
begin
inherited;
end;
{ TEventManager }
procedure TEventManager.Run; //004A8190
var
i : Integer;
Event : TEvent;
nCheckCode : Integer;
resourcestring
sExceptionMsg = '[Exception] TEventManager::Run CheckCode: %d';
begin
nCheckCode := -1;
try
m_EventList.Lock;
try
i := 0;
while (True) do
begin
if m_EventList.Count <= i then
break;
nCheckCode := 1;
Event := TEvent(m_EventList.Items[i]);
nCheckCode := 2;
if Event.m_boActive and ((GetTickCount - Event.m_dwRunStart) >
Event.m_dwRunTick) then
begin
nCheckCode := 3;
Event.m_dwRunStart := GetTickCount();
nCheckCode := 4;
Event.Run();
nCheckCode := 5;
if Event.m_boClosed then
begin
nCheckCode := 6;
m_ClosedEventList.Lock;
try
m_ClosedEventList.Add(Event);
finally
m_ClosedEventList.UnLock;
end;
nCheckCode := 7;
m_EventList.Delete(i);
nCheckCode := 8;
end
else
Inc(i);
end
else
Inc(i);
end;
finally
m_EventList.UnLock;
end;
nCheckCode := 10;
m_ClosedEventList.Lock;
try
for i := m_ClosedEventList.Count - 1 downto 0 do
begin
nCheckCode := 11;
Event := TEvent(m_ClosedEventList.Items[i]);
nCheckCode := 12;
if (GetTickCount - Event.m_dwCloseTick) > 5 * 60 * 1000 then
begin
m_ClosedEventList.Delete(i);
nCheckCode := 13;
if Event<>nil then
Event.Free;
nCheckCode := 14;
end;
end;
finally
m_ClosedEventList.UnLock;
end;
except
on E: Exception do
begin
MainOutMessage(format(sExceptionMsg, [nCheckCode]));
MainOutMessage(E.Message);
end;
end;
end;
function TEventManager.GetEvent(Envir: TEnvirnoment; nX, nY,
nType: Integer): TEvent; //004A810C
var
i : Integer;
Event : TEvent;
begin
Result := nil;
m_EventList.Lock;
try
for i := 0 to m_EventList.Count - 1 do
begin
Event := TEvent(m_EventList.Items[i]);
if (Event.m_Envir = Envir) and
(Event.m_nX = nX) and
(Event.m_nY = nY) and
(Event.m_nEventType = nType) then
begin
Result := Event;
break;
end;
end;
finally
m_EventList.UnLock;
end;
end;
procedure TEventManager.AddEvent(Event: TEvent); //004A80EC
begin
m_EventList.Lock;
try
m_EventList.Add(Event);
finally
m_EventList.UnLock;
end;
end;
constructor TEventManager.Create(); //004A8014
begin
m_EventList := TGList.Create;
m_ClosedEventList := TGList.Create;
end;
destructor TEventManager.Destroy;
var
i : Integer;
begin
for i := 0 to m_EventList.Count - 1 do
begin
TEvent(m_EventList.Items[i]).Free;
end;
m_EventList.Free;
for i := 0 to m_ClosedEventList.Count - 1 do
begin
TEvent(m_ClosedEventList.Items[i]).Free;
end;
m_ClosedEventList.Free;
inherited;
end;
{ THolyCurtainEvent }
constructor THolyCurtainEvent.Create(Envir: TEnvirnoment; nX, nY, nType, nTime:
Integer); //004A7E60
begin
inherited Create(Envir, nX, nY, nType, nTime, True);
end;
destructor THolyCurtainEvent.Destroy;
begin
inherited;
end;
{ TFireBurnEvent }
constructor TFireBurnEvent.Create(Creat: TBaseObject; nX, nY, nType, nTime,
nDamage: Integer); //004A7EBC
begin
inherited Create(Creat.m_PEnvir, nX, nY, nType, nTime, True);
m_nDamage := nDamage;
m_OwnBaseObject := Creat;
end;
destructor TFireBurnEvent.Destroy;
begin
inherited;
end;
procedure TFireBurnEvent.Run; //004A7F30
var
i : Integer;
BaseObjectList : TMyList;
TargeTBaseObject : TBaseObject;
begin
if (GetTickCount - m_dwRunTick) > 3000 then
begin
m_dwRunTick := GetTickCount();
BaseObjectList := TMyList.Create;
if m_Envir <> nil then
begin
m_Envir.GeTBaseObjects(m_nX, m_nY, True, BaseObjectList);
for i := 0 to BaseObjectList.Count - 1 do
begin
TargeTBaseObject := TBaseObject(BaseObjectList.Items[i]);
if (TargeTBaseObject <> nil) and (m_OwnBaseObject <> nil) and
(m_OwnBaseObject.IsProperTarget(TargeTBaseObject)) then
begin
TargeTBaseObject.SendMsg(m_OwnBaseObject, RM_MAGSTRUCK_MINE, 0,
m_nDamage, 0, 0, '');
end;
end;
end;
BaseObjectList.Free;
end;
inherited;
end;
{ TEvent }
constructor TEvent.Create(tEnvir: TEnvirnoment; nTX, nTY, nType, dwETime:
Integer; boVisible: Boolean); //004A7B68
begin
m_dwOpenStartTick := GetTickCount();
m_nEventType := nType;
m_nEventParam := 0;
m_dwContinueTime := dwETime;
m_boVisible := boVisible;
m_boClosed := False;
m_Envir := tEnvir;
m_nX := nTX;
m_nY := nTY;
m_boActive := True;
m_nDamage := 0;
m_OwnBaseObject := nil;
m_dwRunStart := GetTickCount();
m_dwRunTick := 500;
if (m_Envir <> nil) and (m_boVisible) then
begin
m_Envir.AddToMap(m_nX, m_nY, OS_EVENTOBJECT, Self);
end
else
m_boVisible := False;
//EventCheck.Add(Self);
end;
destructor TEvent.Destroy;
var
i : Integer;
begin
{
for I := 0 to EventCheck.Count - 1 do begin
if EventCheck.Items[I] = Self then begin
EventCheck.Delete(I);
break;
end;
end;
}
inherited;
end;
procedure TEvent.Run; //004A7CE0
begin
if (GetTickCount - m_dwOpenStartTick) > m_dwContinueTime then
begin
m_boClosed := True;
Close();
end;
if (m_OwnBaseObject <> nil) and (m_OwnBaseObject.m_boGhost or
(m_OwnBaseObject.m_boDeath)) then
m_OwnBaseObject := nil;
end;
procedure TEvent.Close; //004A7C8C
begin
m_dwCloseTick := GetTickCount();
if m_boVisible then
begin
m_boVisible := False;
if m_Envir <> nil then
begin
m_Envir.DeleteFromMap(m_nX, m_nY, OS_EVENTOBJECT, Self);
end;
m_Envir := nil;
end;
end;
{ TPileStones }
constructor TPileStones.Create(Envir: TEnvirnoment; nX, nY, nType,
nTime: Integer); //004A7DDC
begin
inherited Create(Envir, nX, nY, nType, nTime, True);
m_nEventParam := 1;
end;
destructor TPileStones.Destroy;
begin
inherited;
end;
procedure TPileStones.AddEventParam; //sub_4A7E44;
begin
if m_nEventParam < 5 then
Inc(m_nEventParam);
end;
procedure TStoneMineEvent.AddStoneMine; //004A7DB8
begin
m_nMineCount := m_nAddStoneCount;
m_dwAddStoneMineTick := GetTickCount();
end;
end.