frmdirectxunit.pas

冒险岛吸怪源码ＵＣＥ的制作材料 用于冒险岛游戏的外挂

unit frmDirectXUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,cefuncproc, Menus, Buttons, ComCtrls;

const dxmessversion=1;
type
  TfrmDirectX = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Label1: TLabel;
    LoadButton: TSpeedButton;
    SaveButton: TSpeedButton;
    Panel2: TPanel;
    Label21: TLabel;
    Label22: TLabel;
    Button6: TButton;
    editKeyPolling: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label23: TLabel;
    Zoom1: TEdit;
    Zoom2: TEdit;
    Zoom3: TEdit;
    Zoom4: TEdit;
    Zoom5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Zoomlevel1: TEdit;
    Zoomlevel2: TEdit;
    Zoomlevel3: TEdit;
    Zoomlevel4: TEdit;
    Zoomlevel5: TEdit;
    Zoomin: TEdit;
    Button7: TButton;
    zoomdelta: TEdit;
    Zoomout: TEdit;
    Button8: TButton;
    nozoom: TEdit;
    Button9: TButton;
    GroupBox2: TGroupBox;
    Label25: TLabel;
    fog: TEdit;
    Button10: TButton;
    Button11: TButton;
    zbuffer: TEdit;
    Label26: TLabel;
    Label27: TLabel;
    Lighting: TEdit;
    Button12: TButton;
    GroupBox3: TGroupBox;
    Label28: TLabel;
    autoaimtoggle: TEdit;
    Button13: TButton;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    TrackBar1: TTrackBar;
    Label24: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    PreviousTexture: TEdit;
    Button16: TButton;
    CheckBox2: TCheckBox;
    Label35: TLabel;
    Button17: TButton;
    nexttexture: TEdit;
    Label36: TLabel;
    Button18: TButton;
    locktexture: TEdit;
    Label37: TLabel;
    IncreaseX: TEdit;
    Button19: TButton;
    Label38: TLabel;
    DecreaseX: TEdit;
    Button20: TButton;
    Label39: TLabel;
    IncreaseY: TEdit;
    Button21: TButton;
    Label40: TLabel;
    DecreaseY: TEdit;
    Button22: TButton;
    Label41: TLabel;
    IncreaseZ: TEdit;
    Button23: TButton;
    Label42: TLabel;
    DecreaseZ: TEdit;
    Button24: TButton;
    aimfile1: TEdit;
    Label43: TLabel;
    setaimsetting1: TEdit;
    Button25: TButton;
    Label46: TLabel;
    aimfile2: TEdit;
    Label44: TLabel;
    setaimsetting2: TEdit;
    Button26: TButton;
    Label45: TLabel;
    aimfile3: TEdit;
    Label47: TLabel;
    setaimsetting3: TEdit;
    Button27: TButton;
    Label48: TLabel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label49: TLabel;
    loadaimsettingsfile: TEdit;
    Button28: TButton;
    Label50: TLabel;
    Saveaimsettingsfile: TEdit;
    Button29: TButton;
    Label51: TLabel;
    callibrationkey: TEdit;
    Button30: TButton;
    Label52: TLabel;
    mousecallibrationhorizontal1point: TEdit;
    Label53: TLabel;
    Label54: TLabel;
    mousecallibrationhorizontal5point: TEdit;
    Label55: TLabel;
    Label56: TLabel;
    mousecallibrationhorizontal10point: TEdit;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    mousecallibrationvertical1point: TEdit;
    Label60: TLabel;
    Label61: TLabel;
    mousecallibrationvertical5point: TEdit;
    Label62: TLabel;
    Label63: TLabel;
    mousecallibrationvertical10point: TEdit;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    mousecallibrationhorizontal2point: TEdit;
    Label67: TLabel;
    Label68: TLabel;
    mousecallibrationvertical2point: TEdit;
    Label69: TLabel;
    Label70: TLabel;
    mousecallibrationhorizontal20point: TEdit;
    Label71: TLabel;
    Label72: TLabel;
    mousecallibrationvertical20point: TEdit;
    Label73: TLabel;
    Label74: TLabel;
    mousecallibrationhorizontal40point: TEdit;
    Label75: TLabel;
    Label76: TLabel;
    mousecallibrationvertical40point: TEdit;
    Label77: TLabel;
    Panel3: TPanel;
    rbtoggleoneff: TRadioButton;
    rbKeepDown: TRadioButton;
    autoshoot: TCheckBox;
    Panel4: TPanel;
    Label29: TLabel;
    increaselag: TEdit;
    Button14: TButton;
    Label78: TLabel;
    lag: TEdit;
    Label30: TLabel;
    Label31: TLabel;
    decreaselag: TEdit;
    Button15: TButton;
    lagdelta: TEdit;
    getlagfrommemory: TCheckBox;
    Button31: TButton;
    Addresslabel: TLabel;
    UseFpsLag: TCheckBox;
    Wireframe: TEdit;
    Button32: TButton;
    Label79: TLabel;
    ShowKeyList: TEdit;
    Button33: TButton;
    Label32: TLabel;
    GroupBox4: TGroupBox;
    Label80: TLabel;
    SaveAllTextures: TEdit;
    Button34: TButton;
    Mousekeymenu: TPopupMenu;
    LeftMouse1: TMenuItem;
    CenterMouse1: TMenuItem;
    RightMouse1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Zoom1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Zoom2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Zoom3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Zoom4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Zoom5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ZoominKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ZoomoutKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure nozoomKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure fogKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure zbufferKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LightingKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure autoaimtoggleKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button13Click(Sender: TObject);
    procedure increaselagKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure decreaselagKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure setaimsetting1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure setaimsetting2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure setaimsetting3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure PreviousTextureKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure nexttextureKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure locktextureKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure IncreaseXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure IncreaseYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure IncreaseZKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DecreaseXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DecreaseYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DecreaseZKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button19Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure LoadButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure loadaimsettingsfileKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SaveaimsettingsfileKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button16Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure callibrationkeyKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure rbtoggleoneffClick(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure getlagfrommemoryClick(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure WireframeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ShowKeyListKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure SaveAllTexturesKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LeftMouse1Click(Sender: TObject);
  private
    { Private declarations }


    tempkeys: TKeys;

    procedure ApplyTempkeys;
    procedure updatecallibration(var Message: TMessage); message WM_USER+1;
    procedure setkey(key:word; var tempkeysitem: tkeycombo;ed:tedit);
  public
    { Public declarations }
  end;

var
  frmDirectX: TfrmDirectX;

implementation

uses MainUnit;

{$R *.dfm}

procedure TfrmDirectX.updatecallibration(var Message: TMessage);
begin
  mousecallibrationhorizontal1point.text:=format('%.2f',[keys.mousecallibrationhorizontal1point]);
  mousecallibrationhorizontal2point.text:=format('%.2f',[keys.mousecallibrationhorizontal2point]);
  mousecallibrationhorizontal5point.text:=format('%.2f',[keys.mousecallibrationhorizontal5point]);
  mousecallibrationhorizontal10point.text:=format('%.2f',[keys.mousecallibrationhorizontal10point]);
  mousecallibrationhorizontal20point.text:=format('%.2f',[keys.mousecallibrationhorizontal20point]);
  mousecallibrationhorizontal40point.text:=format('%.2f',[keys.mousecallibrationhorizontal40point]);

  mousecallibrationvertical1point.text:=format('%.2f',[keys.mousecallibrationvertical1point]);
  mousecallibrationvertical2point.text:=format('%.2f',[keys.mousecallibrationvertical2point]);
  mousecallibrationvertical5point.text:=format('%.2f',[keys.mousecallibrationvertical5point]);
  mousecallibrationvertical10point.text:=format('%.2f',[keys.mousecallibrationvertical10point]);
  mousecallibrationvertical20point.text:=format('%.2f',[keys.mousecallibrationvertical20point]);
  mousecallibrationvertical40point.text:=format('%.2f',[keys.mousecallibrationvertical40point]);


end;


procedure TfrmDirectX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  unmapviewoffile(keys);
  closehandle(keysfilemapping);
end;

procedure TfrmDirectX.FormCreate(Sender: TObject);
begin
  scrollbox1.VertScrollBar.Position:=0;

  zeromemory(keys,sizeof(keys));

  keys.configured:=false;
  keys.CEDir:=CheatEngineDir;


  Zoomlevel1.Text:=format('%.1f',[1.00]);
  Zoomlevel2.Text:=format('%.1f',[2.00]);
  Zoomlevel3.Text:=format('%.1f',[4.00]);
  Zoomlevel4.Text:=format('%.1f',[8.00]);
  Zoomlevel5.Text:=format('%.1f',[16.00]);
  zoomdelta.Text:=format('%.1f',[0.2]);

  mousecallibrationhorizontal1point.Text:=format('%.1f',[1.00]);
  mousecallibrationhorizontal2point.Text:=format('%.1f',[2.00]);
  mousecallibrationhorizontal5point.Text:=format('%.1f',[5.00]);
  mousecallibrationhorizontal10point.Text:=format('%.1f',[10.00]);
  mousecallibrationhorizontal20point.Text:=format('%.1f',[20.00]);
  mousecallibrationhorizontal40point.Text:=format('%.1f',[40.00]);

  mousecallibrationvertical1point.Text:=format('%.1f',[1.00]);
  mousecallibrationvertical2point.Text:=format('%.1f',[2.00]);
  mousecallibrationvertical5point.Text:=format('%.1f',[5.00]);
  mousecallibrationvertical10point.Text:=format('%.1f',[10.00]);
  mousecallibrationvertical20point.Text:=format('%.1f',[20.00]);
  mousecallibrationvertical40point.Text:=format('%.1f',[40.00]);


  keys.movespeed:=0.2;
  keys.pollinginterval:=250;
  keys.lagtoset:=200;
  keys.setlag:=true;

  Zoomlevel5.Text:=format('%.1f',[16.00]);

  tempkeys:=keys^;
end;

procedure TfrmDirectX.Zoom1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.zoom1[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zoom1[i]=0 then
      begin
        tempkeys.zoom1[i]:=key;
        break;
      end else
      if tempkeys.zoom1[i]=key then break;
  end;

  zoom1.Text:=ConvertKeyComboToString(tempkeys.zoom1);
end;

procedure TfrmDirectX.Button6Click(Sender: TObject);
begin
  applytempkeys;

  keys^:=tempkeys;
end;

procedure TfrmDirectX.Button1Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zoom1[0],10);
  zoom1.Text:=ConvertKeyComboToString(tempkeys.zoom1); //=''
  zoom1.SetFocus;
end;

procedure TfrmDirectX.Button2Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zoom2[0],10);
  zoom2.Text:=ConvertKeyComboToString(tempkeys.zoom2); //=''
  zoom2.SetFocus;
end;

procedure TfrmDirectX.Button3Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zoom3[0],10);
  zoom3.Text:=ConvertKeyComboToString(tempkeys.zoom3); //=''
  zoom3.SetFocus;
end;

procedure TfrmDirectX.Button4Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zoom4[0],10);
  zoom4.Text:=ConvertKeyComboToString(tempkeys.zoom4); //=''
  zoom4.SetFocus;
end;

procedure TfrmDirectX.Button5Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zoom5[0],10);
  zoom5.Text:=ConvertKeyComboToString(tempkeys.zoom5); //=''
  zoom5.SetFocus;
end;

procedure TfrmDirectX.Zoom2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);