humaninfo.pas

传奇源代码的delphi版本

unit HumanInfo;

interface

uses
  svn, 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;
    EditBankGold: TSpinEdit;
    Label20: TLabel;
    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]:='Item Slot';
  GridUserItem.Cells[1,0]:='Item Name';
  GridUserItem.Cells[2,0]:='Item No';
  GridUserItem.Cells[3,0]:='Durability';
  GridUserItem.Cells[4,0]:='DC';
  GridUserItem.Cells[5,0]:='MC';
  GridUserItem.Cells[6,0]:='SC';
  GridUserItem.Cells[7,0]:='AC';
  GridUserItem.Cells[8,0]:='MAC';
  GridUserItem.Cells[9,0]:='Added Stats';

  GridUserItem.Cells[0,1]:='Armour';
  GridUserItem.Cells[0,2]:='Weapon';
  GridUserItem.Cells[0,3]:='Candle';
  GridUserItem.Cells[0,4]:='Necklace';
  GridUserItem.Cells[0,5]:='Helmet';
  GridUserItem.Cells[0,6]:='Left Bracer';
  GridUserItem.Cells[0,7]:='Right Bracer';
  GridUserItem.Cells[0,8]:='Left Ring';
  GridUserItem.Cells[0,9]:='Right Ring';
  GridUserItem.Cells[0,10]:='Amulet';
  GridUserItem.Cells[0,11]:='Belt';
  GridUserItem.Cells[0,12]:='Shoe';
  GridUserItem.Cells[0,13]:='Stone';

  GridBagItem.Cells[0,0]:='Slot ID';
  GridBagItem.Cells[1,0]:='Item Name';
  GridBagItem.Cells[2,0]:='Item No';
  GridBagItem.Cells[3,0]:='Durability';
  GridBagItem.Cells[4,0]:='DC';
  GridBagItem.Cells[5,0]:='MC';
  GridBagItem.Cells[6,0]:='SC';
  GridBagItem.Cells[7,0]:='AC';
  GridBagItem.Cells[8,0]:='MAC';
  GridBagItem.Cells[9,0]:='Added Stats';


  GridStorageItem.Cells[0,0]:='Slot ID';
  GridStorageItem.Cells[1,0]:='Item Name';
  GridStorageItem.Cells[2,0]:='Item No';
  GridStorageItem.Cells[3,0]:='Durability';
  GridStorageItem.Cells[4,0]:='DC';
  GridStorageItem.Cells[5,0]:='MC';
  GridStorageItem.Cells[6,0]:='SC';
  GridStorageItem.Cells[7,0]:='AC';
  GridStorageItem.Cells[8,0]:='MAC';
  GridStorageItem.Cells[9,0]:='Added Stats';

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)) + ' minutes';
  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);

  EditBankGold.Value:=PlayObject.m_nBankGold;
  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 +
                    PlayObject.m_BonusAbil.AC +
                    PlayObject.m_BonusAbil.MAC +