[file head]:
////////////////////////////////////////////////////////////////////////////////
// //
// 工程： M2Server //
// 版本: 1.0 //
// 公司： 乐都在线 //
// 网址： http://www.hh8.net //
// 日期： 2005-05-28 //
// //
////////////////////////////////////////////////////////////////////////////////

unit ObjectPlayer;

interface

uses
Classes, Windows, SysUtils, Dialogs, StrUtils, Math, ObjectEngine, DataManage,
ClassDeclaration, ObjectNPC;

type
TPlayerObject = class(TCharObject)
public
m_bEmpty: Boolean;
m_nArrIndex: Intege
... ...

[file tail]:
... ...
ure';

m_nCurrX := nX;
m_nCurrY := nY;
m_nDirection := 4;
m_pMap := pMap;

m_tFeature.btGender := 0;
m_tFeature.btWear := 4;
m_tFeature.btHair := 1;
m_tFeature.btWeapon := 5;

m_fScriptFile := FileOpen('capture.txt', fmOpenReadWrite);

TMirMap(pMap).AddNewObject(nX, nY, OS_MOVINGOBJECT, self);

AddRefMsg(RM_TURN, m_nDirection, nX, nY, 0, m_szName);
end;

procedure TScripterObject.Operate;
var
N: Integer;
szText,
szEncodeText: string;
begin
N := Random(32767) mod 7;

if (Random(32767) mod 10) = 0 then
begin
SetLength(szText, 128);
SetLength(szEncodeText, 128);

if (Random(32767) mod 2) = 0 then
begin
szText := 'Test1.';
end
else
begin
szText := 'Test2.';
end;

szEncodeText := EncodeString(szText);


ProcessForUserSaid(szEncodeText);
end
else
begin
WalkTo(N);
end;
end;


function TPlayerObject.RideHorse: Integer;
begin

end;

end.