configmongen.pas

乐都SQL版传奇全套代码,绝对可编译

unit ConfigMonGen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmConfigMonGen = class(TForm)
    ListBoxMonGen: TListBox;
  private
    { Private declarations }
  public
    procedure Open();
    { Public declarations }
  end;

var
  frmConfigMonGen                       : TfrmConfigMonGen;

implementation

uses UsrEngn, M2Share, Grobal2;

{$R *.dfm}

{ TfrmConfigMonGen }

procedure TfrmConfigMonGen.Open;
var
  i                                     : Integer;
  MonGen                                : pTMonGenInfo;
begin
  for i := 0 to UserEngine.m_MonGenList.Count - 1 do
  begin
    MonGen := UserEngine.m_MonGenList.Items[i];
    ListBoxMonGen.Items.AddObject(MonGen.sMapName + '(' + IntToStr(MonGen.nX) +
      ':' + IntToStr(MonGen.nY) + ')' + ' - ' + MonGen.sMonName,
      TObject(MonGen));
  end;
  self.ShowModal;
end;

end.