Changeset 316

Timestamp:

03/06/10 23:14:11 (6 months ago)

Author:

dark_byte

Message:

 

Location:

Cheat Engine

Files:

• CEFuncProc.pas (modified) (2 diffs)
• CheatEngine.res (modified) (previous)
• autoassembler.pas (modified) (3 diffs)
• cheatengine.dof (modified) (2 diffs)
• cheatengine.dpr (modified) (1 diff)
• formAddressChangeUnit.pas (modified) (2 diffs)
• frmRescanPointerUnit.dfm (modified) (5 diffs)
• frmRescanPointerUnit.pas (modified) (1 diff)
• pointerscannerfrm.dfm (modified) (1 diff)
• pointerscannerfrm.pas (modified) (1 diff)
• pointervaluelist.pas (modified) (11 diffs)
• standalone/MemoryTrainerUnit.pas (modified) (3 diffs)
• standalone/settingsunit.pas (modified) (1 diff)
• standalone/trainerwithassembler.dof (modified) (1 diff)
• symbolhandler.pas (modified) (1 diff)
• underc.pas (modified) (4 diffs)

Cheat Engine/CEFuncProc.pas

@@ -535 +535 @@
   //ProcessHandle: Thandle;
 
-  Skip_PAGE_NOCACHE: boolean;
-  Scan_MEM_PRIVATE: boolean;
-  Scan_MEM_IMAGE: boolean;
-  Scan_MEM_MAPPED: boolean;
+  Skip_PAGE_NOCACHE: boolean=false;
+  Scan_MEM_PRIVATE: boolean=true;
+  Scan_MEM_IMAGE: boolean=true;
+  Scan_MEM_MAPPED: boolean=false;
 
   CheatEngineDir: String;
@@ -628 +628 @@
   newAddressfile,newmemoryfile: File;
 
-  buffersize: dword;
+  buffersize: dword=512*1024;
   overridedebug: boolean;
 

Cheat Engine/autoassembler.pas

@@ -1603 +1603 @@
     if copy(currentline,1,2)='//' then continue; //skip
 
+    currentline:=trim(currentline);
+
     if (uppercase(currentline))='[ENABLE]' then
     begin
@@ -1644 +1646 @@
   for i:=0 to code.Count-1 do
   begin
-    if (uppercase(code[i]))='[ENABLE]' then
+    if (uppercase(trim(code[i])))='[ENABLE]' then
     begin
       insideenable:=true;
@@ -1651 +1653 @@
     end;
 
-    if (uppercase(code[i]))='[DISABLE]' then
+    if (uppercase(trim(code[i])))='[DISABLE]' then
     begin
       insideenable:=false;

Cheat Engine/cheatengine.dof

@@ -189 +189 @@
 MinorVer=6
 Release=0
-Build=66
+Build=72
 Debug=0
 PreRelease=0
@@ -200 +200 @@
 CompanyName=
 FileDescription=Cheat Engine 5.6
-FileVersion=5.6.0.66
+FileVersion=5.6.0.72
 InternalName=CheatEngine
 LegalCopyright=none

Cheat Engine/cheatengine.dpr

@@ -159 +159 @@
   frmReferencedStringsUnit in 'frmReferencedStringsUnit.pas' {frmReferencedStrings},
   ManualModuleLoader in 'ManualModuleLoader.pas',
-  windows7taskbar in 'windows7taskbar.pas';
+  windows7taskbar in 'windows7taskbar.pas',
+  bigmemallochandler in 'bigmemallochandler.pas';
 
 //  frmOpenGLUnit in 'frmOpenGLUnit.pas' {frmOpenGL};

Cheat Engine/formAddressChangeUnit.pas

@@ -77 +77 @@
     read:dword;
     check: boolean;
+    haserror: boolean;
 begin
   if length(pointerinfo)=0 then exit;
@@ -83 +84 @@
   for i:=length(pointerinfo)-1 downto 0 do
   begin
-    try
-      currentaddress:=symhandler.getaddressfromname(pointerinfo[i].address.Text);
-      err:=0; //no exception...
-    except
-      err:=1;
-    end;
+    haserror:=false;
+    currentaddress:=symhandler.getAddressFromName(  pointerinfo[i].address.Text, false, haserror);
+    if haserror then err:=1 else err:=0;
 
     if err>0 then

Cheat Engine/frmRescanPointerUnit.dfm

@@ -4 +4 @@
   BorderStyle = bsDialog
   Caption = 'Rescan pointerlist'
-  ClientHeight = 93
+  ClientHeight = 120
   ClientWidth = 267
   Color = clBtnFace
@@ -17 +17 @@
   PixelsPerInch = 120
   TextHeight = 16
+  object Label1: TLabel
+    Left = 160
+    Top = 60
+    Width = 52
+    Height = 16
+    Caption = 'seconds'
+  end
   object edtAddress: TEdit
     Left = 10
@@ -71 +78 @@
   object Button1: TButton
     Left = 48
-    Top = 56
+    Top = 88
     Width = 75
     Height = 25
@@ -81 +88 @@
   object Button2: TButton
     Left = 128
-    Top = 56
+    Top = 88
     Width = 75
     Height = 25
@@ -89 +96 @@
     TabOrder = 4
   end
+  object cbDelay: TCheckBox
+    Left = 56
+    Top = 60
+    Width = 65
+    Height = 17
+    Caption = 'Delay'
+    TabOrder = 5
+  end
+  object edtDelay: TEdit
+    Left = 126
+    Top = 56
+    Width = 27
+    Height = 24
+    TabOrder = 6
+    Text = '5'
+  end
 end

Cheat Engine/frmRescanPointerUnit.pas

@@ -16 +16 @@
     Button1: TButton;
     Button2: TButton;
+    cbDelay: TCheckBox;
+    edtDelay: TEdit;
+    Label1: TLabel;
     procedure rbFindAddressClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);

Cheat Engine/pointerscannerfrm.dfm

@@ -199 +199 @@
   end
   object Timer2: TTimer
+    Interval = 500
     OnTimer = Timer2Timer
     Left = 104

Cheat Engine/pointerscannerfrm.pas

@@ -1629 +1629 @@
           if savedialog1.Execute then
           begin
+            if cbDelay.Checked then
+            begin
+              try
+                sleep(strtoint(edtDelay.Text)*1000);
+              except
+
+              end;
+            end;
+
+
             rescan.filename:=savedialog1.filename;
 

Cheat Engine/pointervaluelist.pas

@@ -9 +9 @@
 
 uses windows, dialogs, SysUtils, classes, ComCtrls, cefuncproc, newkernelhandler,
-     symbolhandler, math;
+     symbolhandler, math, bigmemallochandler;
 
 type
@@ -46 +46 @@
   TReversePointerListHandler=class
   private
+    bmah: TBigMemoryAllocHandler;
     memoryregion: array of TMemoryRegion;
     level0list: PReversePointerListArray;
@@ -166 +167 @@
     if currentarray[entrynr].ReversePointerlistArray=nil then //allocate
     begin
-      getmem(temp, sizeof(TReversePointerListArray));
+//      getmem(temp, sizeof(TReversePointerListArray));
+      temp:=bmah.alloc(sizeof(TReversePointerListArray));
       ZeroMemory(temp, sizeof(TReversePointerListArray));
       currentarray[entrynr].ReversePointerlistArray:=temp;
@@ -182 +184 @@
   if plist=nil then //allocate one
   begin
-    getmem(currentarray[entrynr].pointerlist, sizeof(TPointerlist));
+    currentarray[entrynr].pointerlist:=bmah.alloc(sizeof(TPointerlist));
+//    getmem(currentarray[entrynr].pointerlist, sizeof(TPointerlist));
     plist:=currentarray[entrynr].pointerlist;
     
@@ -201 +204 @@
     if plist.list=nil then //create the list
     begin
-      getmem(plist.list, plist.expectedsize*sizeof(TPointerDataArray));
+      plist.list:=bmah.alloc(plist.expectedsize*sizeof(TPointerDataArray));
+     // getmem(plist.list, plist.expectedsize*sizeof(TPointerDataArray));
       ZeroMemory(plist.list, plist.expectedsize*sizeof(TPointerDataArray));
 
@@ -209 +213 @@
     if plist.pos>=plist.maxsize then
     begin
-      plist.maxsize:=plist.maxsize*4; //quadrupple the storage
-      ReallocMem(plist.list, plist.maxsize*sizeof(TPointerDataArray)); //realloc
+
+      plist.list:=bmah.realloc(plist.list,plist.maxsize*sizeof(TPointerDataArray), 4*plist.maxsize*sizeof(TPointerDataArray)); //quadrupple the storage
+      plist.maxsize:=plist.maxsize*4;
+      //ReallocMem(plist.list, plist.maxsize*sizeof(TPointerDataArray)); //realloc
     end;
 
@@ -217 +223 @@
     begin
       //it's a static, so create and fill in the static data
-      getmem(plist.list[plist.pos].staticdata, sizeof(TStaticData));
+//      getmem(plist.list[plist.pos].staticdata, sizeof(TStaticData));
+      plist.list[plist.pos].staticdata:=bmah.alloc(sizeof(TStaticData));
       plist.list[plist.pos].staticdata.moduleindex:=modulelist.IndexOf(mi.modulename);
       plist.list[plist.pos].staticdata.offset:=pointerwiththisvalue-mi.baseaddress;
@@ -500 +507 @@
 begin
   setlength(memoryregion,0);
-  deletepath(level0list,0);
+//  deletepath(level0list,0);
+  if bmah<>nil then
+    bmah.Free;
 end;
 
@@ -528 +537 @@
 
 begin
+  bmah:=TBigMemoryAllocHandler.create;
+
   modulelist:=tstringlist.create;
   symhandler.getModuleList(modulelist);
 
+  buffer:=nil;
 
   count:=0;
@@ -536 +548 @@
   address:=start;
 
-  getmem(level0list, sizeof(TReversePointerListArray));
+  level0list:=bmah.alloc(sizeof(TReversePointerListArray));
+  //getmem(level0list, sizeof(TReversePointerListArray));
   ZeroMemory(level0list, sizeof(TReversePointerListArray));
 
@@ -717 +730 @@
   progressbar.Position:=0;
 
+  if buffer<>nil then
+    freemem(buffer);
  // showmessage('count='+inttostr(count));
 end;

Cheat Engine/standalone/MemoryTrainerUnit.pas

@@ -506 +506 @@
             end;
           except
-            //failed
+            on e: exception do
+              raise exception.create(e.Message);
           end;
 
@@ -558 +559 @@
         begin
           //auto assemble script
-          //dissable it
+          //enable it
           sl:=tstringlist.Create;
           sl.Text:=trainerdata[i].addressentrys[j].autoassemblescript;
@@ -578 +579 @@
           except
             //failed
+            on e: exception do
+              raise exception.create(e.Message);
           end;
 

Cheat Engine/standalone/settingsunit.pas

@@ -28 +28 @@
   try
     {$ifdef trainerbeta}
-      trainerfile:=TFileStream.create('c:\xxx.exe',fmOpenRead or fmShareDenyNone);
+      trainerfile:=TFileStream.create('c:\tutorialhack.exe',fmOpenRead or fmShareDenyNone);
     {$else}
       trainerfile:=TFileStream.create(application.exename,fmOpenRead or fmShareDenyNone);

Cheat Engine/standalone/trainerwithassembler.dof

@@ -141 +141 @@
 Item1=C:\svnx\Cheat Engine\SynEdit\Source\
 [HistoryLists\hlConditionals]
-Count=14
+Count=15
 Item0=standalonetrainer;standalonetrainerwithassembler;standalonetrainerwithassemblerandaobscanner
-Item1=trainerbeta;standalonetrainer;standalonetrainerwithassembler;standalonetrainerwithassemblerandaobscanner
-Item2=cemain;NOcrashtest;DEBUG
-Item3=cemain;NOcrashtest;NODEBUG
-Item4=cemain;crashtest;DEBUG
-Item5=cemain;crashtest
-Item6=cemain;DEBUG
-Item7=cemain;debugmemscan
-Item8=cemain
-Item9=beta52
-Item10=DEU
-Item11=RUS
-Item12=debug2
-Item13=debug
+Item1=standalonetrainer;standalonetrainerwithassembler;standalonetrainerwithassemblerandaobscanner;trainerbeta
+Item2=trainerbeta;standalonetrainer;standalonetrainerwithassembler;standalonetrainerwithassemblerandaobscanner
+Item3=cemain;NOcrashtest;DEBUG
+Item4=cemain;NOcrashtest;NODEBUG
+Item5=cemain;crashtest;DEBUG
+Item6=cemain;crashtest
+Item7=cemain;DEBUG
+Item8=cemain;debugmemscan
+Item9=cemain
+Item10=beta52
+Item11=DEU
+Item12=RUS
+Item13=debug2
+Item14=debug
 [HistoryLists\hlUnitAliases]
 Count=1

Cheat Engine/symbolhandler.pas

@@ -931 +931 @@
 begin
   haserror:=false;
+  hasPointer:=false;
   
 {$ifdef autoassemblerdll}

Cheat Engine/underc.pas

@@ -200 +200 @@
 
 
-  //uc_init(pchar(' '),false);
-  Set8087CW($133f);
+
+//  uc_init(nil,false);
+
 
 
@@ -216 +217 @@
     exit;
 
-  uc_finis;
-
+ // uc_finis;
+//  freelibrary(underclibrary);
   currentthreadid:=0;
   scriptEngineCS.leave;
 
   result:=true;
-
-  //Set8087CW($133f);
 end;
 
 function TScriptEngine.execute_command(command: string): boolean;
-var x: pchar;
 begin
   result:=false;
@@ -233 +231 @@
     exit;
 
-//  result:=uc_exec(pchar(command));
-
-getmem(x,256);
-  uc_compile(x,pchar(command));
-  freemem(x);
+  result:=uc_exec(pchar(command));
 end;
 
@@ -287 +281 @@
 
 
+