gamecommand.pas

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

unit GameCommand;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComCtrls, StdCtrls, Spin,SDK,grobal2;

type
  TfrmGameCmd = class(TForm)
    PageControl: TPageControl;
    TabSheet1: TTabSheet;
    StringGridGameCmd: TStringGrid;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    EditUserCmdName: TEdit;
    EditUserCmdPerMission: TSpinEdit;
    Label6: TLabel;
    EditUserCmdOK: TButton;
    LabelUserCmdFunc: TLabel;
    LabelUserCmdParam: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EditUserCmdSave: TButton;
    StringGridGameMasterCmd: TStringGrid;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    LabelGameMasterCmdFunc: TLabel;
    LabelGameMasterCmdParam: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    EditGameMasterCmdName: TEdit;
    EditGameMasterCmdPerMission: TSpinEdit;
    EditGameMasterCmdOK: TButton;
    EditGameMasterCmdSave: TButton;
    StringGridGameDebugCmd: TStringGrid;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    LabelGameDebugCmdFunc: TLabel;
    LabelGameDebugCmdParam: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    EditGameDebugCmdName: TEdit;
    EditGameDebugCmdPerMission: TSpinEdit;
    EditGameDebugCmdOK: TButton;
    EditGameDebugCmdSave: TButton;
    procedure FormCreate(Sender: TObject);
    procedure StringGridGameCmdClick(Sender: TObject);
    procedure EditUserCmdNameChange(Sender: TObject);
    procedure EditUserCmdPerMissionChange(Sender: TObject);
    procedure EditUserCmdOKClick(Sender: TObject);
    procedure EditUserCmdSaveClick(Sender: TObject);
    procedure StringGridGameMasterCmdClick(Sender: TObject);
    procedure EditGameMasterCmdNameChange(Sender: TObject);
    procedure EditGameMasterCmdPerMissionChange(Sender: TObject);
    procedure EditGameMasterCmdOKClick(Sender: TObject);
    procedure StringGridGameDebugCmdClick(Sender: TObject);
    procedure EditGameDebugCmdNameChange(Sender: TObject);
    procedure EditGameDebugCmdPerMissionChange(Sender: TObject);
    procedure EditGameDebugCmdOKClick(Sender: TObject);
    procedure EditGameMasterCmdSaveClick(Sender: TObject);
    procedure EditGameDebugCmdSaveClick(Sender: TObject);
  private
    nRefGameUserIndex   :Integer;
    nRefGameMasterIndex :Integer;
    nRefGameDebugIndex  :Integer;
    procedure RefUserCommand();
    procedure RefGameMasterCommand();
    procedure RefGameMasterCmd(GameCmd:pTGameCmd;sCmdParam,sDesc:String);
    procedure RefDebugCommand();
    procedure RefGameDebugCmd(GameCmd: pTGameCmd; sCmdParam,
      sDesc: String);
    procedure RefGameUserCmd(GameCmd: pTGameCmd; sCmdParam, sDesc: String);
    { Private declarations }
  public
    procedure Open();
    { Public declarations }
  end;

var
  frmGameCmd: TfrmGameCmd;

implementation

uses M2Share;

{$R *.dfm}

procedure TfrmGameCmd.FormCreate(Sender: TObject);
begin
  PageControl.ActivePageIndex:=0;
  StringGridGameCmd.RowCount:=50;
  StringGridGameCmd.Cells[0,0]:='游戏命令';
  StringGridGameCmd.Cells[1,0]:='所需权限';
  StringGridGameCmd.Cells[2,0]:='命令格式';
  StringGridGameCmd.Cells[3,0]:='命令说明';

  StringGridGameMasterCmd.RowCount:=105;
  StringGridGameMasterCmd.Cells[0,0]:='游戏命令';
  StringGridGameMasterCmd.Cells[1,0]:='所需权限';
  StringGridGameMasterCmd.Cells[2,0]:='命令格式';
  StringGridGameMasterCmd.Cells[3,0]:='命令说明';

  StringGridGameDebugCmd.RowCount:=41;
  StringGridGameDebugCmd.Cells[0,0]:='游戏命令';
  StringGridGameDebugCmd.Cells[1,0]:='所需权限';
  StringGridGameDebugCmd.Cells[2,0]:='命令格式';
  StringGridGameDebugCmd.Cells[3,0]:='命令说明';


end;

procedure TfrmGameCmd.Open;
begin
  RefUserCommand();
  RefGameMasterCommand();
  RefDebugCommand();
  ShowModal;
end;
procedure TfrmGameCmd.RefGameUserCmd(GameCmd:pTGameCmd;sCmdParam,sDesc:String);
begin
  Inc(nRefGameUserIndex);
  if StringGridGameCmd.RowCount - 1 < nRefGameUserIndex then begin
    StringGridGameCmd.RowCount:=nRefGameUserIndex + 1;
  end;

  StringGridGameCmd.Cells[0,nRefGameUserIndex]:=GameCmd.sCmd;
  StringGridGameCmd.Cells[1,nRefGameUserIndex]:=IntToStr(GameCmd.nPermissionMin) + '/' + IntToStr(GameCmd.nPermissionMax);
  StringGridGameCmd.Cells[2,nRefGameUserIndex]:=sCmdParam;
  StringGridGameCmd.Cells[3,nRefGameUserIndex]:=sDesc;
  StringGridGameCmd.Objects[0,nRefGameUserIndex]:=TObject(GameCmd);
end;




//  StringGridGameCmd.Cells[3,12]:='未使用';
//  StringGridGameCmd.Cells[3,13]:='移动地图指定座标(需要戴传送装备)';
//  StringGridGameCmd.Cells[3,14]:='探测人物所在位置(需要戴传送装备)';
//  StringGridGameCmd.Cells[3,15]:='允许记忆传送';
//  StringGridGameCmd.Cells[3,16]:='将组队人员传送到身边(需要戴记忆全套装备)';
//  StringGridGameCmd.Cells[3,17]:='允许行会传送';
//  StringGridGameCmd.Cells[3,18]:='将行会成员传送身边(需要戴行会传送装备)';
//  StringGridGameCmd.Cells[3,19]:='开启仓库密码锁';
//  StringGridGameCmd.Cells[3,20]:='开启登录密码锁';
//  StringGridGameCmd.Cells[3,21]:='将仓库密码锁上';
//  StringGridGameCmd.Cells[3,22]:='设置仓库密码';
//  StringGridGameCmd.Cells[3,23]:='修改仓库密码';
//  StringGridGameCmd.Cells[3,24]:='清除密码(先开锁再清除密码)';
//  StringGridGameCmd.Cells[3,25]:='未使用';
//  StringGridGameCmd.Cells[3,26]:='查询夫妻位置';
//  StringGridGameCmd.Cells[3,27]:='允许夫妻传送';
//  StringGridGameCmd.Cells[3,28]:='夫妻将对方传送到身边';
//  StringGridGameCmd.Cells[3,29]:='查询师徒位置';
//  StringGridGameCmd.Cells[3,30]:='允许师徒传送';
//  StringGridGameCmd.Cells[3,31]:='师父将徒弟召唤到身边';
//  StringGridGameCmd.Cells[3,32]:='更换攻击模式(此命令不要修改)';
//  StringGridGameCmd.Cells[3,33]:='宝宝攻击状态(此命令不要修改)';
//  StringGridGameCmd.Cells[3,34]:='带马牌后骑上马';
//  StringGridGameCmd.Cells[3,35]:='从马上下来';
//  StringGridGameCmd.Cells[3,36]:='';
//  StringGridGameCmd.Cells[3,37]:='开启/关闭登录锁';
procedure TfrmGameCmd.RefUserCommand;
begin
  EditUserCmdOK.Enabled:=False;
  nRefGameUserIndex:=0;

  RefGameUserCmd(@g_GameCommand.DATA,
                   '@' + g_GameCommand.DATA.sCmd,
                   '查看当前服务器日期时间');
  RefGameUserCmd(@g_GameCommand.PRVMSG,
                   '@' + g_GameCommand.PRVMSG.sCmd,
                   '禁止指定人物发的私聊信息');
  RefGameUserCmd(@g_GameCommand.ALLOWMSG,
                   '@' + g_GameCommand.ALLOWMSG.sCmd,
                   '禁止别人向自己发私聊信息');
  RefGameUserCmd(@g_GameCommand.LETSHOUT,
                   '@' + g_GameCommand.LETSHOUT.sCmd,
                   '禁止接收组队聊天信息');
  RefGameUserCmd(@g_GameCommand.LETTRADE,
                   '@' + g_GameCommand.LETTRADE.sCmd,
                   '禁止交易交易物品');
  RefGameUserCmd(@g_GameCommand.LETGUILD,
                   '@' + g_GameCommand.LETGUILD.sCmd,
                   '允许加入行会');
  RefGameUserCmd(@g_GameCommand.ENDGUILD,
                   '@' + g_GameCommand.ENDGUILD.sCmd,
                   '退出当前所加入的行会');
  RefGameUserCmd(@g_GameCommand.BANGUILDCHAT,
                   '@' + g_GameCommand.BANGUILDCHAT.sCmd,
                   '禁止接收行会聊天信息');
  RefGameUserCmd(@g_GameCommand.AUTHALLY,
                   '@' + g_GameCommand.AUTHALLY.sCmd,
                   '许行会进入联盟');
  RefGameUserCmd(@g_GameCommand.AUTH,
                   '@' + g_GameCommand.AUTH.sCmd,
                   '开始进行行会联盟');
  RefGameUserCmd(@g_GameCommand.AUTHCANCEL,
                   '@' + g_GameCommand.AUTHCANCEL.sCmd,
                   '取消行会联盟关系');
  RefGameUserCmd(@g_GameCommand.DIARY,
                   '@' + g_GameCommand.DIARY.sCmd,
                   '未使用');
  RefGameUserCmd(@g_GameCommand.USERMOVE,
                   '@' + g_GameCommand.USERMOVE.sCmd,
                   '移动地图指定座标(需要戴传送装备)');
  RefGameUserCmd(@g_GameCommand.SEARCHING,
                   '@' + g_GameCommand.SEARCHING.sCmd,
                   '探测人物所在位置(需要戴传送装备)');
  RefGameUserCmd(@g_GameCommand.ALLOWGROUPCALL,
                   '@' + g_GameCommand.ALLOWGROUPCALL.sCmd,
                   '许记忆传送');
  RefGameUserCmd(@g_GameCommand.GROUPRECALLL,
                   '@' + g_GameCommand.GROUPRECALLL.sCmd,
                   '将组队人员传送到身边(需要戴记忆全套装备)');
  RefGameUserCmd(@g_GameCommand.ALLOWGUILDRECALL,
                   '@' + g_GameCommand.ALLOWGUILDRECALL.sCmd,
                   '允许行会传送');
  RefGameUserCmd(@g_GameCommand.GUILDRECALLL,
                   '@' + g_GameCommand.GUILDRECALLL.sCmd,
                   '将行会成员传送身边(需要戴行会传送装备)');
  RefGameUserCmd(@g_GameCommand.UNLOCKSTORAGE,
                   '@' + g_GameCommand.UNLOCKSTORAGE.sCmd,
                   '开启仓库密码锁');
  RefGameUserCmd(@g_GameCommand.UNLOCK,
                   '@' + g_GameCommand.UNLOCK.sCmd,
                   '开启登录密码锁');
  RefGameUserCmd(@g_GameCommand.LOCK,
                   '@' + g_GameCommand.LOCK.sCmd,
                   '将仓库密码锁上');
  RefGameUserCmd(@g_GameCommand.SETPASSWORD,
                   '@' + g_GameCommand.SETPASSWORD.sCmd,
                   '设置仓库密码');
  RefGameUserCmd(@g_GameCommand.CHGPASSWORD,
                   '@' + g_GameCommand.CHGPASSWORD.sCmd,
                   '修改仓库密码');
  RefGameUserCmd(@g_GameCommand.UNPASSWORD,
                   '@' + g_GameCommand.UNPASSWORD.sCmd,
                   '清除密码(先开锁再清除密码)');
  RefGameUserCmd(@g_GameCommand.MEMBERFUNCTION,
                   '@' + g_GameCommand.MEMBERFUNCTION.sCmd,
                   '未使用');
  RefGameUserCmd(@g_GameCommand.MEMBERFUNCTIONEX,
                   '@' + g_GameCommand.MEMBERFUNCTIONEX.sCmd,
                   '');                   
  RefGameUserCmd(@g_GameCommand.DEAR,
                   '@' + g_GameCommand.DEAR.sCmd,
                   '查询夫妻位置');
  RefGameUserCmd(@g_GameCommand.ALLOWDEARRCALL,
                   '@' + g_GameCommand.ALLOWDEARRCALL.sCmd,
                   '允许夫妻传送');
  RefGameUserCmd(@g_GameCommand.DEARRECALL,
                   '@' + g_GameCommand.DEARRECALL.sCmd,
                   '夫妻将对方传送到身边');
  RefGameUserCmd(@g_GameCommand.MASTER,
                   '@' + g_GameCommand.MASTER.sCmd,
                   '查询师徒位置');
  RefGameUserCmd(@g_GameCommand.ALLOWMASTERRECALL,
                   '@' + g_GameCommand.ALLOWMASTERRECALL.sCmd,
                   '允许师徒传送');
  RefGameUserCmd(@g_GameCommand.MASTERECALL,
                   '@' + g_GameCommand.MASTERECALL.sCmd,
                   '师父将徒弟召唤到身边');
   RefGameUserCmd(@g_GameCommand.TAKEONHORSE,
                   '@' + g_GameCommand.TAKEONHORSE.sCmd,
                   '带马牌后骑上马');
  RefGameUserCmd(@g_GameCommand.TAKEOFHORSE,
                   '@' + g_GameCommand.TAKEOFHORSE.sCmd,
                   '从马上下来');

  RefGameUserCmd(@g_GameCommand.LOCKLOGON,
                   '@' + g_GameCommand.LOCKLOGON.sCmd,