humaninfo.pas

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

unit HumanInfo;

interface

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

type
  TfrmHumanInfo = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    EditName: TEdit;
    EditMap: TEdit;
    EditXY: TEdit;
    EditAccount: TEdit;
    EditIPaddr: TEdit;
    EditLogonTime: TEdit;
    EditLogonLong: TEdit;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    EditLevel: TSpinEdit;
    EditGold: TSpinEdit;
    EditPKPoint: TSpinEdit;
    EditExp: TSpinEdit;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    GroupBox3: TGroupBox;
    Label11: TLabel;
    EditAC: TEdit;
    Label13: TLabel;
    EditMAC: TEdit;
    Label14: TLabel;
    EditDC: TEdit;
    EditMC: TEdit;
    Label15: TLabel;
    EditSC: TEdit;
    Label16: TLabel;
    EditHP: TEdit;
    Label17: TLabel;
    Label18: TLabel;
    EditMP: TEdit;
    Timer: TTimer;
    GroupBox4: TGroupBox;
    CheckBoxMonitor: TCheckBox;
    GroupBox5: TGroupBox;
    EditHumanStatus: TEdit;
    GroupBox6: TGroupBox;
    CheckBoxGameMaster: TCheckBox;
    CheckBoxSuperMan: TCheckBox;
    CheckBoxObserver: TCheckBox;
    ButtonKick: TButton;
    GroupBox7: TGroupBox;
    GroupBox9: TGroupBox;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    EditGameGold: TSpinEdit;
    EditGamePoint: TSpinEdit;
    EditCreditPoint: TSpinEdit;
    EditBonusPoint: TSpinEdit;
    Label19: TLabel;
    EditEditBonusPointUsed: TSpinEdit;
    ButtonSave: TButton;
    GridUserItem: TStringGrid;
    GroupBox8: TGroupBox;
    GridBagItem: TStringGrid;
    GroupBox10: TGroupBox;
    GridStorageItem: TStringGrid;
    procedure TimerTimer(Sender: TObject);
    procedure CheckBoxMonitorClick(Sender: TObject);
    procedure ButtonKickClick(Sender: TObject);
    procedure ButtonSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure RefHumanInfo();
    { Private declarations }
  public
    PlayObject:TPlayObject;
    procedure Open();
    { Public declarations }
  end;

var
  frmHumanInfo: TfrmHumanInfo;

implementation

uses UsrEngn, ItmUnit, M2Share, Grobal2;

{$R *.dfm}
var
  boRefHuman:Boolean = False;
{ TfrmHumanInfo }

procedure TfrmHumanInfo.FormCreate(Sender: TObject);
begin
  GridUserItem.Cells[0,0]:='装备位置';
  GridUserItem.Cells[1,0]:='装备名称';
  GridUserItem.Cells[2,0]:='系列号';
  GridUserItem.Cells[3,0]:='持久';
  GridUserItem.Cells[4,0]:='攻';
  GridUserItem.Cells[5,0]:='魔';
  GridUserItem.Cells[6,0]:='道';
  GridUserItem.Cells[7,0]:='防';
  GridUserItem.Cells[8,0]:='魔防';
  GridUserItem.Cells[9,0]:='附加属性';

  GridUserItem.Cells[0,1]:='衣服';
  GridUserItem.Cells[0,2]:='武器';
  GridUserItem.Cells[0,3]:='照明物';
  GridUserItem.Cells[0,4]:='项链';
  GridUserItem.Cells[0,5]:='头盔';
  GridUserItem.Cells[0,6]:='左手镯';
  GridUserItem.Cells[0,7]:='右手镯';
  GridUserItem.Cells[0,8]:='左戒指';
  GridUserItem.Cells[0,9]:='右戒指';
  GridUserItem.Cells[0,10]:='物品';
  GridUserItem.Cells[0,11]:='腰带';
  GridUserItem.Cells[0,12]:='鞋子';
  GridUserItem.Cells[0,13]:='宝石';

  GridBagItem.Cells[0,0]:='序号';
  GridBagItem.Cells[1,0]:='装备名称';
  GridBagItem.Cells[2,0]:='系列号';
  GridBagItem.Cells[3,0]:='持久';
  GridBagItem.Cells[4,0]:='攻';
  GridBagItem.Cells[5,0]:='魔';
  GridBagItem.Cells[6,0]:='道';
  GridBagItem.Cells[7,0]:='防';
  GridBagItem.Cells[8,0]:='魔防';
  GridBagItem.Cells[9,0]:='附加属性';


  GridStorageItem.Cells[0,0]:='序号';
  GridStorageItem.Cells[1,0]:='装备名称';
  GridStorageItem.Cells[2,0]:='系列号';
  GridStorageItem.Cells[3,0]:='持久';
  GridStorageItem.Cells[4,0]:='攻';
  GridStorageItem.Cells[5,0]:='魔';
  GridStorageItem.Cells[6,0]:='道';
  GridStorageItem.Cells[7,0]:='防';
  GridStorageItem.Cells[8,0]:='魔防';
  GridStorageItem.Cells[9,0]:='附加属性';

end;

procedure TfrmHumanInfo.Open;
begin
  RefHumanInfo();
  ButtonKick.Enabled:=True;
  Timer.Enabled:=True;
  ShowModal;
  CheckBoxMonitor.Checked:=False;
  Timer.Enabled:=False;
end;

procedure TfrmHumanInfo.RefHumanInfo;
var
  i: Integer;
  nTotleUsePoint: Integer;
  StdItem: TItem;
  Item: TStdItem;

  UserItem: pTUserItem;
begin
  if (PlayObject = nil) then begin
    exit;
  end;
  EditName.Text:=PlayObject.m_sCharName;
  EditMap.Text:=PlayObject.m_sMapName + '(' + PlayObject.m_PEnvir.sMapDesc + ')';
  EditXY.Text:=IntToStr(PlayObject.m_nCurrX) + ':' + IntToStr(PlayObject.m_nCurrY);
  EditAccount.Text:=PlayObject.m_sUserID;
  EditIPaddr.Text:=PlayObject.m_sIPaddr;
  EditLogonTime.Text:=DateTimeToStr(PlayObject.m_dLogonTime);
  EditLogonLong.Text:=IntToStr((GetTickCount - PlayObject.m_dwLogonTick) div (60 * 1000)) + ' 分钟';
  EditLevel.Value:=PlayObject.m_Abil.Level;
  EditGold.Value:=PlayObject.m_nGold;
  EditPKPoint.Value:=PlayObject.m_nPkPoint;
  EditExp.Value:=PlayObject.m_Abil.Exp;

  EditAC.Text:=IntToStr(LoWord(PlayObject.m_WAbil.AC)) + '/' + IntToStr(HiWord(PlayObject.m_WAbil.AC));
  EditMAC.Text:=IntToStr(LoWord(PlayObject.m_WAbil.MAC)) + '/' + IntToStr(HiWord(PlayObject.m_WAbil.MAC));
  EditDC.Text:=IntToStr(LoWord(PlayObject.m_WAbil.DC)) + '/' + IntToStr(HiWord(PlayObject.m_WAbil.DC));
  EditMC.Text:=IntToStr(LoWord(PlayObject.m_WAbil.MC)) + '/' + IntToStr(HiWord(PlayObject.m_WAbil.MC));
  EditSC.Text:=IntToStr(LoWord(PlayObject.m_WAbil.SC)) + '/' + IntToStr(HiWord(PlayObject.m_WAbil.SC));
  EditHP.Text:=IntToStr(PlayObject.m_WAbil.HP) + '/' + IntToStr(PlayObject.m_WAbil.MaxHP);
  EditMP.Text:=IntToStr(PlayObject.m_WAbil.MP) + '/' + IntToStr(PlayObject.m_WAbil.MaxMP);

  EditGameGold.Value:=PlayObject.m_nGameGold;
  EditGamePoint.Value:=PlayObject.m_nGamePoint;
  EditCreditPoint.Value:=PlayObject.m_btCreditPoint;
  EditBonusPoint.Value:=PlayObject.m_nBonusPoint;

    nTotleUsePoint:=PlayObject.m_BonusAbil.DC +
                    PlayObject.m_BonusAbil.MC +
                    PlayObject.m_BonusAbil.SC +