actionspeedconfig.pas

传奇2...飘飘M2的源码.曾经是传奇"龙"版用得最好的M2程序.完整M2源码

unit ActionSpeedConfig;

interface

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

type
  TfrmActionSpeed = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    EditRunLongHitIntervalTime: TSpinEdit;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    EditActionIntervalTime: TSpinEdit;
    CheckBoxControlActionInterval: TCheckBox;
    CheckBoxControlRunLongHit: TCheckBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    EditRunHitIntervalTime: TSpinEdit;
    CheckBoxControlRunHit: TCheckBox;
    GroupBox5: TGroupBox;
    Label3: TLabel;
    EditWalkHitIntervalTime: TSpinEdit;
    CheckBoxControlWalkHit: TCheckBox;
    ButtonSave: TButton;
    ButtonDefault: TButton;
    ButtonClose: TButton;
    CheckBoxIncremeng: TCheckBox;
    GroupBox6: TGroupBox;
    Label4: TLabel;
    EditRunMagicIntervalTime: TSpinEdit;
    CheckBoxControlRunMagic: TCheckBox;
    Label5: TLabel;
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonDefaultClick(Sender: TObject);
    procedure ButtonSaveClick(Sender: TObject);
    procedure CheckBoxControlActionIntervalClick(Sender: TObject);
    procedure EditActionIntervalTimeChange(Sender: TObject);
    procedure CheckBoxControlRunLongHitClick(Sender: TObject);
    procedure EditRunLongHitIntervalTimeChange(Sender: TObject);
    procedure CheckBoxControlRunHitClick(Sender: TObject);
    procedure EditRunHitIntervalTimeChange(Sender: TObject);
    procedure CheckBoxControlWalkHitClick(Sender: TObject);
    procedure EditWalkHitIntervalTimeChange(Sender: TObject);
    procedure CheckBoxIncremengClick(Sender: TObject);
    procedure CheckBoxControlRunMagicClick(Sender: TObject);
    procedure EditRunMagicIntervalTimeChange(Sender: TObject);
  private
    { Private declarations }
    boOpened: Boolean;
    boModValued: Boolean;
    procedure ModValue();
    procedure uModValue();
    procedure SaveConfig();
    procedure RefSpeedConfig();
  public
    procedure Open();
    { Public declarations }
  end;

var
  frmActionSpeed: TfrmActionSpeed;

implementation

uses SDK, M2Share;

{$R *.dfm}

{ TfrmActionSpeed }

procedure TfrmActionSpeed.ModValue;
begin
  boModValued := True;
  ButtonSave.Enabled := True;

end;

procedure TfrmActionSpeed.uModValue;
begin
  boModValued := False;
  ButtonSave.Enabled := False;
end;

procedure TfrmActionSpeed.Open;
begin
  boOpened := False;
  uModValue();
  RefSpeedConfig();


  boOpened := True;
  ShowModal;
end;

procedure TfrmActionSpeed.ButtonCloseClick(Sender: TObject);
resourcestring
  sExitMsg = '设置已被修改是否不保存设置退出？';
  sExitMsgTitle = '确认信息';
begin
  if not boModValued then begin
    Close;
    exit;
  end;
  if (MessageBox(Handle, PChar(sExitMsg), PChar(sExitMsgTitle), MB_YESNO + MB_ICONQUESTION) = IDYES) then begin
    Close;
  end;
end;

procedure TfrmActionSpeed.RefSpeedConfig;
begin
  EditActionIntervalTime.Value := g_Config.dwActionIntervalTime;
  EditRunLongHitIntervalTime.Value := g_Config.dwRunLongHitIntervalTime;
  EditRunHitIntervalTime.Value := g_Config.dwRunHitIntervalTime;
  EditWalkHitIntervalTime.Value := g_Config.dwWalkHitIntervalTime;
  EditRunMagicIntervalTime.Value := g_Config.dwRunMagicIntervalTime;
  CheckBoxControlActionInterval.Checked := g_Config.boControlActionInterval;
  CheckBoxControlRunLongHit.Checked := g_Config.boControlRunLongHit;
  CheckBoxControlRunHit.Checked := g_Config.boControlRunHit;
  CheckBoxControlWalkHit.Checked := g_Config.boControlWalkHit;
  CheckBoxControlRunMagic.Checked := g_Config.boControlRunMagic;
end;

procedure TfrmActionSpeed.ButtonDefaultClick(Sender: TObject);
resourcestring
  sExitMsg = '是否确认恢复默认设置？';
  sExitMsgTitle = '确认信息';
begin
  if Application.MessageBox(PChar(sExitMsg), PChar(sExitMsgTitle), MB_YESNO + MB_ICONQUESTION) <> IDYES then begin
    exit;
  end;
  boOpened := False;
  ModValue();
  g_Config.dwActionIntervalTime := 400;
  g_Config.dwRunLongHitIntervalTime := 800;
  g_Config.dwRunHitIntervalTime := 800;
  g_Config.dwWalkHitIntervalTime := 800;
  g_Config.dwRunMagicIntervalTime := 900;
  g_Config.boControlActionInterval := True;
  g_Config.boControlRunLongHit := True;
  g_Config.boControlRunHit := True;
  g_Config.boControlWalkHit := True;
  g_Config.boControlRunMagic := True;

  RefSpeedConfig();
  boOpened := True;
end;

procedure TfrmActionSpeed.SaveConfig;
begin
  Config.WriteBool('Setup', 'ControlActionInterval', g_Config.boControlActionInterval);
  Config.WriteBool('Setup', 'ControlWalkHit', g_Config.boControlWalkHit);
  Config.WriteBool('Setup', 'ControlRunLongHit', g_Config.boControlRunLongHit);
  Config.WriteBool('Setup', 'ControlRunHit', g_Config.boControlRunHit);
  Config.WriteBool('Setup', 'ControlRunMagic', g_Config.boControlRunMagic);

  Config.WriteInteger('Setup', 'ActionIntervalTime', g_Config.dwActionIntervalTime);
  Config.WriteInteger('Setup', 'RunLongHitIntervalTime', g_Config.dwRunLongHitIntervalTime);
  Config.WriteInteger('Setup', 'RunHitIntervalTime', g_Config.dwRunHitIntervalTime);
  Config.WriteInteger('Setup', 'WalkHitIntervalTime', g_Config.dwWalkHitIntervalTime);
  Config.WriteInteger('Setup', 'RunMagicIntervalTime', g_Config.dwRunMagicIntervalTime);
end;

procedure TfrmActionSpeed.ButtonSaveClick(Sender: TObject);
begin
  SaveConfig();
  uModValue();
end;

procedure TfrmActionSpeed.CheckBoxIncremengClick(Sender: TObject);
var
  nIncrement: Integer;
begin
  if CheckBoxIncremeng.Checked then nIncrement := 1
  else nIncrement := 10;

  EditActionIntervalTime.Increment := nIncrement;
  EditRunLongHitIntervalTime.Increment := nIncrement;
  EditRunHitIntervalTime.Increment := nIncrement;
  EditWalkHitIntervalTime.Increment := nIncrement;
end;
procedure TfrmActionSpeed.CheckBoxControlActionIntervalClick(
  Sender: TObject);
var
  boStatus: Boolean;
begin
  boStatus := CheckBoxControlActionInterval.Checked;
  EditActionIntervalTime.Enabled := boStatus;
  CheckBoxControlRunLongHit.Enabled := boStatus;
  CheckBoxControlRunHit.Enabled := boStatus;
  CheckBoxControlWalkHit.Enabled := boStatus;
  CheckBoxControlRunMagic.Enabled := boStatus;

  CheckBoxControlRunLongHitClick(Sender);
  CheckBoxControlRunHitClick(Sender);
  CheckBoxControlWalkHitClick(Sender);
  CheckBoxControlRunMagicClick(Sender);

  if not boOpened then exit;
  g_Config.boControlActionInterval := boStatus;
  ModValue();
end;

procedure TfrmActionSpeed.EditActionIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwActionIntervalTime := EditActionIntervalTime.Value;
  ModValue();
end;

procedure TfrmActionSpeed.CheckBoxControlRunLongHitClick(Sender: TObject);
var
  boStatus: Boolean;
begin
  boStatus := CheckBoxControlRunLongHit.Checked and CheckBoxControlRunLongHit.Enabled;

  EditRunLongHitIntervalTime.Enabled := boStatus;

  if not boOpened then exit;
  g_Config.boControlRunLongHit := boStatus;
  ModValue();
end;

procedure TfrmActionSpeed.EditRunLongHitIntervalTimeChange(
  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwRunLongHitIntervalTime := EditRunLongHitIntervalTime.Value;
  ModValue();
end;

procedure TfrmActionSpeed.CheckBoxControlRunHitClick(Sender: TObject);
var
  boStatus: Boolean;
begin
  boStatus := CheckBoxControlRunHit.Checked and CheckBoxControlRunHit.Enabled;
  EditRunHitIntervalTime.Enabled := boStatus;

  if not boOpened then exit;
  g_Config.boControlRunHit := boStatus;
  ModValue();
end;

procedure TfrmActionSpeed.EditRunHitIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwRunHitIntervalTime := EditRunHitIntervalTime.Value;
  ModValue();
end;

procedure TfrmActionSpeed.CheckBoxControlWalkHitClick(Sender: TObject);
var
  boStatus: Boolean;
begin
  boStatus := CheckBoxControlWalkHit.Checked and CheckBoxControlWalkHit.Enabled;
  EditWalkHitIntervalTime.Enabled := boStatus;

  if not boOpened then exit;
  g_Config.boControlWalkHit := boStatus;
  ModValue();
end;

procedure TfrmActionSpeed.EditWalkHitIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwWalkHitIntervalTime := EditWalkHitIntervalTime.Value;
  ModValue();
end;



procedure TfrmActionSpeed.CheckBoxControlRunMagicClick(Sender: TObject);
var
  boStatus: Boolean;
begin
  boStatus := CheckBoxControlRunMagic.Checked and CheckBoxControlRunMagic.Enabled;
  EditRunMagicIntervalTime.Enabled := boStatus;

  if not boOpened then exit;
  g_Config.boControlRunMagic := boStatus;
  ModValue();
end;

procedure TfrmActionSpeed.EditRunMagicIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwRunMagicIntervalTime := EditRunMagicIntervalTime.Value;
  ModValue();
end;

end.