mainunit2.pas

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

unit MainUnit2;
//this unit is used by both the network client and the main program (USERINTERFACE)

interface

uses dialogs,forms,windows,sysutils,formsettingsunit,registry,cefuncproc,AdvancedOptionsUnit,
     MemoryBrowserFormUnit

{$ifdef net}
,unit2;
{$else}
,mainunit,hotkeyhandler,frmProcessWatcherunit,newkernelhandler;
{$endif}

procedure LoadSettingsFromRegistry;
procedure initcetitle;
function GetScanType: Integer;
function getVarType: Integer;

var
CEnorm:string = 'Cheat Engine';
  CERegion:string = 'Cheat Engine 5.2 - Please Wait!';
  CESearch:string = 'Cheat Engine 5.2 - Please Wait!';
  CERegionSearch:string = 'Cheat Engine 5.2 - Please Wait!';
  CEWait:string= 'Cheat Engine 5.2 - Please Wait!';

resourcestring
  strStart='Start';
  strStop='Stop';
  strOK='OK';
  strBug='BUG!';
  strAutoAssemble='Assembler';

  strAddressHasToBeReadable='The address has to be readable if you want to use this function';
  strNewScan='New Scan';
  strFirstScan='First Scan';
  strNoDescription='No description';

  strNeedNewerWindowsVersion='This function only works in Windows 2000+ (perhaps also NT but not tested)';

  //scantypes
  strexact='Exact';
  strexactvalue='Exact Value';
  strbiggerThan='Bigger than...';
  strSmallerThan='Smaller than...';
  strIncreasedValue='Increased value';
  strIncreasedValueBy='Increased value by ...';
  strDecreasedValue='Decreased value';
  strDecreasedValueBy='Decreased value by ...';
  strValueBetween='Value between...';
  strChangedValue='Changed value';
  strUnchangedValue='Unchanged value';
  strUnknownInitialValue='Unknown initial value';

  strFailedToInitialize='Failed to initialize the debugger';
  strovermaxlimit='You can''t have a max results value higher than 32000';
  strtoolong='Too long';

  type tspeedhackspeed=record
    speed: single;
    sleeptime: dword;
  end;

  var
    speedhackspeed1: tspeedhackspeed;
    speedhackspeed2: tspeedhackspeed;
    speedhackspeed3: tspeedhackspeed;
    speedhackspeed4: tspeedhackspeed;
    speedhackspeed5: tspeedhackspeed;

    speedupdelta: single;
    slowdowndelta: single;

implementation

function GetScanType: Integer;
var vtype: integer;
begin
  with mainform do
  begin
    result:=exact_value;

    vtype:= getvartype;
    if getvartype in [0,1,2,3,4,6] then
    begin
      if not nextscanbutton.enabled then
      begin
        //first scan
        case scantype.ItemIndex of
          0: result:=exact_value;
          1: result:=biggerthan;
          2: result:=smallerthan;
          3: result:=valuebetween;
          4: result:=Advanced_scan;
        end;
      end
      else
      begin
        //next scan
        case scantype.itemindex of
          0: result:=exact_value;
          1: result:=biggerthan;
          2: result:=smallerthan;
          3: result:=valuebetween;
          4: result:=increased_value;
          5: result:=increased_value_by;
          6: result:=decreased_value;
          7: result:=decreased_value_by;
          8: result:=changed_value;
          9: result:=unchanged_value;
        end;
      end;
    end;
  end;
end;

function getVarType: Integer;
begin
  {


Bit = 5
Byte =0
2 Bytes =1
4 Bytes =2
8 Bytes =6
Float =3
Double =4
Text = 7
}
  with mainform do
  begin
    case VarType.ItemIndex of
      0: result:=5; //binary
      1: result:=0; //byte
      2: result:=1; //2 bytes
      3: result:=2; //4 bytes
      4: result:=6; //8 bytes
      5: result:=3; //float
      6: result:=4; //double
      7: result:=7; //text
      8: result:=8; //array of byte
      else result:=0;
    end;
  end;
end;

procedure LoadSettingsFromRegistry;
var reg : TRegistry;
    modifier: dword;
    key: dword;
    hotkey: string;
    i,j: integer;
    go: boolean;
    temphotkeylist: array [0..26] of cefuncproc.tkeycombo;
    found:boolean;
begin
  try
    reg:=Tregistry.Create;
    try
      Reg.RootKey := HKEY_CURRENT_USER;
      if Reg.OpenKey('\Software\Cheat Engine',false) then
      begin
        with formsettings do
        begin
          LoadingSettingsFromRegistry:=true;
          try cbshowundo.checked:=reg.ReadBool('Undo'); except end;
          try cbShowAdvanced.checked:=reg.ReadBool('Advanced');except end;
          try checkThread.checked:=reg.ReadBool('SeperateThread'); except end;
          try combothreadpriority.itemindex:=reg.ReadInteger('ScanThreadpriority'); except end;

          mainform.UndoScan.visible:={$ifdef net}false{$else}cbshowundo.checked{$endif};


          mainform.advancedbutton.Visible:=cbShowAdvanced.checked;
          mainform.cbspeedhack.Visible:=cbShowAdvanced.checked;


          {$ifndef net}
          SuspendHotkeyHandler;

          try speedhackspeed1.speed:=reg.ReadFloat('Speedhack 1 speed'); except speedhackspeed1.speed:=1; end;
          try speedhackspeed1.sleeptime:=reg.ReadInteger('Speedhack 1 sleeptime'); except speedhackspeed1.sleeptime:=3; end;
          try speedhackspeed2.speed:=reg.ReadFloat('Speedhack 2 speed'); except speedhackspeed2.speed:=1; end;
          try speedhackspeed2.sleeptime:=reg.ReadInteger('Speedhack 2 sleeptime'); except speedhackspeed2.sleeptime:=3; end;
          try speedhackspeed3.speed:=reg.ReadFloat('Speedhack 3 speed'); except speedhackspeed3.speed:=1; end;
          try speedhackspeed3.sleeptime:=reg.ReadInteger('Speedhack 3 sleeptime'); except speedhackspeed3.sleeptime:=3; end;
          try speedhackspeed4.speed:=reg.ReadFloat('Speedhack 4 speed'); except speedhackspeed4.speed:=1; end;
          try speedhackspeed4.sleeptime:=reg.ReadInteger('Speedhack 4 sleeptime'); except speedhackspeed4.sleeptime:=3; end;
          try speedhackspeed5.speed:=reg.ReadFloat('Speedhack 5 speed'); except speedhackspeed5.speed:=1; end;
          try speedhackspeed5.sleeptime:=reg.ReadInteger('Speedhack 5 sleeptime'); except speedhackspeed5.sleeptime:=3; end;

          try speedupdelta:=reg.ReadFloat('Increase Speedhack delta'); except end;
          try slowdowndelta:=reg.ReadFloat('Decrease Speedhack delta'); except end;

          try reg.ReadBinaryData('Show Cheat Engine Hotkey',temphotkeylist[0][0],10); except mainform.label7.Caption:=''; end;
          try reg.ReadBinaryData('Pause process Hotkey',temphotkeylist[1][0],10); except end;
          try reg.ReadBinaryData('Toggle speedhack Hotkey',temphotkeylist[2][0],10); except end;
          try reg.ReadBinaryData('Set Speedhack speed 1 Hotkey',temphotkeylist[3][0],10); except end;
          try reg.ReadBinaryData('Set Speedhack speed 2 Hotkey',temphotkeylist[4][0],10); except end;
          try reg.ReadBinaryData('Set Speedhack speed 3 Hotkey',temphotkeylist[5][0],10); except end;
          try reg.ReadBinaryData('Set Speedhack speed 4 Hotkey',temphotkeylist[6][0],10); except end;
          try reg.ReadBinaryData('Set Speedhack speed 5 Hotkey',temphotkeylist[7][0],10); except end;

          try reg.ReadBinaryData('Increase Speedhack speed',temphotkeylist[8][0],10); except end;
          try reg.ReadBinaryData('Decrease Speedhack speed',temphotkeylist[9][0],10); except end;

          try reg.ReadBinaryData('Binary Hotkey',temphotkeylist[10][0],10); except end;
          try reg.ReadBinaryData('Byte Hotkey',temphotkeylist[11][0],10); except end;
          try reg.ReadBinaryData('2 Bytes Hotkey',temphotkeylist[12][0],10); except end;
          try reg.ReadBinaryData('4 Bytes Hotkey',temphotkeylist[13][0],10); except end;
          try reg.ReadBinaryData('8 Bytes Hotkey',temphotkeylist[14][0],10); except end;
          try reg.ReadBinaryData('Float Hotkey',temphotkeylist[15][0],10); except end;
          try reg.ReadBinaryData('Double Hotkey',temphotkeylist[16][0],10); except end;
          try reg.ReadBinaryData('Text Hotkey',temphotkeylist[17][0],10); except end;
          try reg.ReadBinaryData('Array of Byte Hotkey',temphotkeylist[18][0],10); except end;
          try reg.ReadBinaryData('New Scan Hotkey',temphotkeylist[19][0],10); except end;
          try reg.ReadBinaryData('Unknown Initial Value Hotkey',temphotkeylist[20][0],10); except end;
          try reg.ReadBinaryData('Increased Value Hotkey',temphotkeylist[21][0],10); except end;
          try reg.ReadBinaryData('Decreased Value Hotkey',temphotkeylist[22][0],10); except end;
          try reg.ReadBinaryData('Changed Value Hotkey',temphotkeylist[23][0],10); except end;
          try reg.ReadBinaryData('Unchanged Value Hotkey',temphotkeylist[24][0],10); except end;
          try reg.ReadBinaryData('Undo Last scan Hotkey',temphotkeylist[25][0],10); except end;
          try reg.ReadBinaryData('Cancel scan Hotkey',temphotkeylist[26][0],10); except end;

          try reg.ReadBinaryData('Speedhack speed 1',Speedhackspeed1,sizeof(tspeedhackspeed)); except speedhackspeed1.speed:=2; speedhackspeed1.sleeptime:=3; end;
          try reg.ReadBinaryData('Speedhack speed 2',Speedhackspeed2,sizeof(tspeedhackspeed)); except speedhackspeed2.speed:=2; speedhackspeed2.sleeptime:=3; end;
          try reg.ReadBinaryData('Speedhack speed 3',Speedhackspeed3,sizeof(tspeedhackspeed)); except speedhackspeed3.speed:=2; speedhackspeed3.sleeptime:=3; end;
          try reg.ReadBinaryData('Speedhack speed 4',Speedhackspeed4,sizeof(tspeedhackspeed)); except speedhackspeed4.speed:=2; speedhackspeed4.sleeptime:=3; end;
          try reg.ReadBinaryData('Speedhack speed 5',Speedhackspeed5,sizeof(tspeedhackspeed)); except speedhackspeed5.speed:=2; speedhackspeed5.sleeptime:=3; end;


          //fill the hotkeylist
          for i:=0 to 26 do
          begin
            found:=false;

            for j:=0 to length(hotkeythread.hotkeylist)-1 do
            begin
              if (hotkeythread.hotkeylist[j].id=i) and (hotkeythread.hotkeylist[j].handler2) then
              begin
                //found it
                hotkeythread.hotkeylist[j].keys:=temphotkeylist[i];
                found:=true;
                break;
              end;
            end;

            if not found then //add it
            begin
              j:=length(hotkeythread.hotkeylist);
              setlength(hotkeythread.hotkeylist,j+1);
              hotkeythread.hotkeylist[j].keys:=temphotkeylist[i];
              hotkeythread.hotkeylist[j].windowtonotify:=mainform.Handle;
              hotkeythread.hotkeylist[j].id:=i;
              hotkeythread.hotkeylist[j].handler2:=true;
            end;

            checkkeycombo(temphotkeylist[i]);
          end;

          if temphotkeylist[0][0]<>0 then
            hotkey:=ConvertKeyComboToString(temphotkeylist[0])