API tools faq
paste
Advertisement
Guest User

CheatEngineFitness

a guest
Nov 3rd, 2013
82
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Diff 21.77 KB | None | 0 0
raw download clone embed print report
  1. Index: cheatengine.lpr
  2. ===================================================================
  3. --- cheatengine.lpr (wersja 2198)
  4. +++ cheatengine.lpr (kopia robocza)
  5. @@ -35,8 +35,8 @@
  6.    Structuresfrm, PointerscannerSettingsFrm, simpleaobscanner,
  7.    PointerscanresultReader, pointervaluelist, rescanhelper, pointerscannerfrm,
  8.    VirtualMemory, ValueFinder, frmRescanPointerUnit, SyncObjs2,
  9. -  ManualModuleLoader, SynHighlighterAA, APIhooktemplatesettingsfrm,
  10. -  frmAAEditPrefsUnit, disassembler, hexviewunit, guisafecriticalsection,
  11. +  ManualModuleLoader, {SynHighlighterAA,} APIhooktemplatesettingsfrm,
  12. +  {frmAAEditPrefsUnit,} disassembler, hexviewunit, guisafecriticalsection,
  13.    DebugHelper, debugeventhandler, formFoundcodeListExtraUnit,
  14.    debuggertypedefinitions, sfloat, addresslist, MemoryRecordUnit,
  15.    ThreadlistExFRM, windows7taskbar, tablist, frmStructuresConfigUnit,
  16. @@ -44,9 +44,9 @@
  17.    DebuggerInterfaceAPIWrapper, frmDebugEventsUnit, changelist, tableconverter,
  18.    DBK32functions, debug, multicpuexecution, vmxfunctions, frmPagingUnit,
  19.    bigmemallochandler, KernelDebuggerInterface, CustomTypeHandler, LuaHandler,
  20. -  frmLuaEngineUnit, frmMemviewPreferencesUnit, frmBreakpointConditionUnit,
  21. +  {frmLuaEngineUnit,} frmMemviewPreferencesUnit, frmBreakpointConditionUnit,
  22.    frmTracerConfigUnit, frmStackViewUnit, luaJit, ScrollBoxEx, fileaccess,
  23. -  ceguicomponents, formdesignerunit, LuaCaller, LuaSyntax, cesupport,
  24. +  ceguicomponents, formdesignerunit, LuaCaller, {LuaSyntax,} cesupport,
  25.    trainergenerator, genericHotkey, frmExeTrainerGeneratorUnit, luafile,
  26.    xmplayer_server, xmplayer_defines, ExtraTrainerComponents, frmAdConfigUnit,
  27.    IconStuff, cetranslator, frmStringMapUnit, MemFuncs, frmStringPointerScanUnit,
  28. Index: formdesignerunit.pas
  29. ===================================================================
  30. --- formdesignerunit.pas    (wersja 2198)
  31. +++ formdesignerunit.pas    (kopia robocza)
  32. @@ -548,9 +548,9 @@
  33.      //go there
  34.      mainform.frmLuaTableScript.Show;
  35.  
  36. -    mainform.frmLuaTableScript.assemblescreen.SelStart:=integer(methodlist.Objects[i])+1;
  37. -    mainform.frmLuaTableScript.assemblescreen.SelEnd:=integer(methodlist.Objects[i])+1;
  38. -    mainform.frmLuaTableScript.assemblescreen.CaretY:=mainform.frmLuaTableScript.assemblescreen.CaretY+1;
  39. +    //mainform.frmLuaTableScript.assemblescreen.SelStart:=integer(methodlist.Objects[i])+1;
  40. +    //mainform.frmLuaTableScript.assemblescreen.SelEnd:=integer(methodlist.Objects[i])+1;
  41. +    //mainform.frmLuaTableScript.assemblescreen.CaretY:=mainform.frmLuaTableScript.assemblescreen.CaretY+1;
  42.  
  43.      mainform.frmLuaTableScript.assemblescreen.SetFocus;
  44.    end;
  45. @@ -563,7 +563,7 @@
  46.    c: integer;
  47.    wp: tpoint;
  48.  begin
  49. -  UpdateMethodListIfNeeded;
  50. +{  UpdateMethodListIfNeeded;
  51.  
  52.    //check if this method exists
  53.    i:=methodlist.IndexOf(name);
  54. @@ -578,7 +578,7 @@
  55.      mainform.frmLuaTableScript.assemblescreen.CaretXY:=wp;
  56.      mainform.frmLuaTableScript.assemblescreen.SelectWord;
  57.    end;
  58. -
  59. +}
  60.  end;
  61.  
  62.  function TFormDesigner.ogm(const Method: TMethod; CheckOwner: TObject): String;
  63. @@ -602,7 +602,7 @@
  64.    sd: TSysCharSet;
  65.    fn: string;
  66.  begin
  67. -  sd:=WordDelimiters-['_'];
  68. +{  sd:=WordDelimiters-['_'];
  69.  
  70.    if lastupdate<MainForm.frmLuaTableScript.assemblescreen.ChangeStamp then
  71.    begin
  72. @@ -627,6 +627,7 @@
  73.  
  74.      until z=nil;
  75.    end;
  76. +}
  77.  end;
  78.  
  79.  procedure TFormDesigner.OnGetMethods(TypeData: PTypeData; Proc: TGetStrProc);
  80. Index: frmautoinjectunit.pas
  81. ===================================================================
  82. --- frmautoinjectunit.pas   (wersja 2198)
  83. +++ frmautoinjectunit.pas   (kopia robocza)
  84. @@ -7,9 +7,9 @@
  85.  uses
  86.    windows, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  87.    StdCtrls, ExtCtrls, Menus, CEFuncProc, StrUtils, types, ComCtrls, LResources,
  88. -  NewKernelHandler, SynEdit, SynHighlighterCpp, SynHighlighterAA, LuaSyntax, disassembler,
  89. -  MainUnit2, Assemblerunit, autoassembler, symbolhandler, SynEditSearch,
  90. -  MemoryRecordUnit, tablist, customtypehandler, registry, SynGutterBase, SynEditMarks,
  91. +  NewKernelHandler, {SynEdit, SynHighlighterCpp, SynHighlighterAA, LuaSyntax,} disassembler,
  92. +  MainUnit2, Assemblerunit, autoassembler, symbolhandler, //SynEditSearch,
  93. +  MemoryRecordUnit, tablist, customtypehandler, registry, //SynGutterBase, SynEditMarks,
  94.    luahandler, memscan, foundlisthelper, ProcessHandlerUnit;
  95.  
  96.  
  97. @@ -151,11 +151,11 @@
  98.    private
  99.      { Private declarations }
  100.  
  101. -    AAHighlighter: TSynAASyn;
  102. -    CPPHighlighter: TSynCppSyn;
  103. -    LuaHighlighter: TSynLuaSyn;
  104. +    //AAHighlighter: TSynAASyn;
  105. +    //CPPHighlighter: TSynCppSyn;
  106. +    //LuaHighlighter: TSynLuaSyn;
  107.  
  108. -    assembleSearch: TSynEditSearch;
  109. +    //assembleSearch: TSynEditSearch;
  110.  
  111.      oldtabindex: integer;
  112.      scripts: TScripts;
  113. @@ -169,14 +169,14 @@
  114.      procedure injectscript(createthread: boolean);
  115.      procedure tlistOnTabChange(sender: TObject; oldselection: integer);
  116.      procedure setCustomTypeScript(x: boolean);
  117. -    procedure gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  118. +    //procedure gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  119.      procedure assemblescreenchange(sender: TObject);
  120.      function GetUniqueAOB(mi: TModuleInfo; address: ptrUint; codesize: Integer; var resultOffset: Integer) : string;
  121.  
  122.    public
  123.      { Public declarations }
  124.  
  125. -    assemblescreen: TSynEdit;
  126. +    assemblescreen: TMemo;
  127.      tlist: TTablist;
  128.  
  129.      editscript: boolean;
  130. @@ -201,7 +201,7 @@
  131.  implementation
  132.  
  133.  
  134. -uses frmAAEditPrefsUnit,MainUnit,memorybrowserformunit,APIhooktemplatesettingsfrm;
  135. +uses {frmAAEditPrefsUnit,}MainUnit,memorybrowserformunit,APIhooktemplatesettingsfrm;
  136.  
  137.  resourcestring
  138.    rsExecuteScript = 'Execute script';
  139. @@ -233,7 +233,7 @@
  140.    fluamode:=state;
  141.    if state then
  142.    begin
  143. -    assemblescreen.Highlighter:=LuaHighlighter;
  144. +    //assemblescreen.Highlighter:=LuaHighlighter;
  145.  
  146.      //change gui to lua style
  147.      button1.Caption:=rsExecuteScript;
  148. @@ -249,7 +249,7 @@
  149.    end
  150.    else
  151.    begin
  152. -    assemblescreen.Highlighter:=AAHighlighter;
  153. +    //assemblescreen.Highlighter:=AAHighlighter;
  154.  
  155.  
  156.      //change gui to autoassembler style
  157. @@ -286,7 +286,7 @@
  158.    if luamode then
  159.    begin
  160.      //execute
  161. -    LUA_DoScript(assemblescreen.Text);
  162. +    LUA_DoScript(assemblescreen.Lines.Text);
  163.      modalresult:=mrok; //not modal anymore, but can still be used to pass info
  164.      if editscript2 or CustomTypeScript then close;
  165.    end
  166. @@ -345,7 +345,7 @@
  167.      assemblescreen.Lines.Clear;
  168.      assemblescreen.Lines.LoadFromFile(opendialog1.filename);
  169.      savedialog1.FileName:=opendialog1.filename;
  170. -    assemblescreen.AfterLoadFromFile;
  171. +    //assemblescreen.AfterLoadFromFile;
  172.  
  173.    end;
  174.  {$endif}
  175. @@ -375,10 +375,10 @@
  176.  
  177.    f:=tfilestream.Create(savedialog1.filename,fmcreate);
  178.    try
  179. -    s:=assemblescreen.text;
  180. -    f.Write(s[1],length(assemblescreen.text));
  181. +    s:=assemblescreen.Lines.Text;
  182. +    f.Write(s[1],length(assemblescreen.Lines.Text));
  183.  
  184. -    assemblescreen.MarkTextAsSaved;
  185. +    //assemblescreen.MarkTextAsSaved;
  186.  
  187.    finally
  188.      f.Free;
  189. @@ -408,9 +408,9 @@
  190.          //call finish routine with script
  191.  
  192.          if modalresult=mrok then
  193. -          callbackroutine(memrec, assemblescreen.text,true)
  194. +          callbackroutine(memrec, assemblescreen.Lines.Text,true)
  195.          else
  196. -          callbackroutine(memrec, assemblescreen.text,false);
  197. +          callbackroutine(memrec, assemblescreen.Lines.Text,false);
  198.  
  199.          action:=cafree;
  200.        end
  201. @@ -419,9 +419,9 @@
  202.        begin
  203.  
  204.          if modalresult=mrok then
  205. -          CustomTypeCallback(customtype, assemblescreen.text,true,luamode)
  206. +          CustomTypeCallback(customtype, assemblescreen.Lines.Text,true,luamode)
  207.          else
  208. -          CustomTypeCallback(customtype, assemblescreen.text,false,luamode);
  209. +          CustomTypeCallback(customtype, assemblescreen.Lines.Text,false,luamode);
  210.  
  211.          action:=cafree;
  212.        end;
  213. @@ -666,7 +666,7 @@
  214.         autoassemble(assemblescreen.lines,false,false,true,false,aa,registeredsymbols) then
  215.      begin
  216.        //add a entry with type 255
  217. -      mainform.AddAutoAssembleScript(assemblescreen.text);
  218. +      mainform.AddAutoAssembleScript(assemblescreen.Lines.Text);
  219.  
  220.  
  221.      end
  222. @@ -1077,7 +1077,7 @@
  223.    if editscript then
  224.      button1.Caption:=strOK;
  225.  
  226. -  assemblescreen.SetFocus;
  227. +  //assemblescreen.SetFocus;
  228.  end;
  229.  
  230.  procedure TfrmAutoInject.assemblescreenKeyDown(Sender: TObject;
  231. @@ -1352,14 +1352,14 @@
  232.  begin
  233.  {$ifndef standalonetrainerwithassembler}
  234.  
  235. -  scripts[length(scripts)-1].script:=assemblescreen.Text;
  236. +  scripts[length(scripts)-1].script:=assemblescreen.Lines.Text;
  237.    setlength(scripts,length(scripts)+1);
  238.  
  239.    scripts[length(scripts)-1].script:='';
  240.    scripts[length(scripts)-1].undoscripts[0].oldscript:='';
  241.    scripts[length(scripts)-1].currentundo:=0;
  242.  
  243. -  assemblescreen.Text:='';
  244. +  assemblescreen.Lines.Text:='';
  245.  
  246.  
  247.    if length(scripts)=2 then //first time new
  248. @@ -1378,20 +1378,20 @@
  249.  begin
  250.  {$ifndef standalonetrainerwithassembler}
  251.  
  252. -  scripts[oldselection].script:=assemblescreen.text;
  253. +  scripts[oldselection].script:=assemblescreen.Lines.Text;
  254.    scripts[oldselection].filename:=opendialog1.FileName;
  255.  
  256. -  assemblescreen.text:=scripts[tlist.SelectedTab].script;
  257. +  assemblescreen.Lines.Text:=scripts[tlist.SelectedTab].script;
  258.    opendialog1.FileName:=scripts[tlist.SelectedTab].filename;
  259.  
  260.    oldtabindex:=tlist.SelectedTab;
  261.  
  262. -  assemblescreen.ClearUndo;
  263. +  //assemblescreen.ClearUndo;
  264.  
  265.  {$endif}
  266.  end;
  267.  
  268. -procedure tfrmAutoInject.gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  269. +{procedure tfrmAutoInject.gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  270.  begin
  271.    if assemblescreen.Lines.Count>line then
  272.    begin
  273. @@ -1400,6 +1400,7 @@
  274.      assemblescreen.SelectLine(true);
  275.    end;
  276.  end;
  277. +}
  278.  
  279.  
  280.  
  281. @@ -1418,11 +1419,11 @@
  282.    assemblescreen.SelLength:=0; }
  283.  
  284.  
  285. -  AAHighlighter:=TSynAASyn.Create(self);
  286. -  CPPHighlighter:=TSynCppSyn.create(self);
  287. -  LuaHighlighter:=TSynLuaSyn.Create(self);
  288. +  //AAHighlighter:=TSynAASyn.Create(self);
  289. +  //CPPHighlighter:=TSynCppSyn.create(self);
  290. +  //LuaHighlighter:=TSynLuaSyn.Create(self);
  291.  
  292. -  assembleSearch:=TSyneditSearch.Create;
  293. +  //assembleSearch:=TSyneditSearch.Create;
  294.  
  295.    tlist:=TTablist.Create(self);
  296.    tlist.height:=20;
  297. @@ -1433,28 +1434,29 @@
  298.    tlist.Parent:=panel2;
  299.  
  300.  
  301. -  assemblescreen:=TSynEdit.Create(self);
  302. -  assemblescreen.Highlighter:=AAHighlighter;
  303. -  assemblescreen.Options:=SYNEDIT_DEFAULT_OPTIONS - [eoScrollPastEol]+[eoTabIndent];
  304. +  assemblescreen:=TMemo.Create(self);
  305. +  //assemblescreen.Highlighter:=AAHighlighter;
  306. +  //assemblescreen.Options:=SYNEDIT_DEFAULT_OPTIONS - [eoScrollPastEol]+[eoTabIndent];
  307.    assemblescreen.Font.Quality:=fqDefault;
  308. -  assemblescreen.WantTabs:=true;
  309. -  assemblescreen.TabWidth:=4;
  310. +  //assemblescreen.WantTabs:=true;
  311. +  //assemblescreen.TabWidth:=4;
  312. +  assemblescreen.WordWrap:=false;
  313. +  assemblescreen.ScrollBars:=ssAutoBoth;
  314. +  //assemblescreen.Gutter.MarksPart.Visible:=false;
  315. +  //assemblescreen.Gutter.Visible:=true;
  316. +  //assemblescreen.Gutter.LineNumberPart.Visible:=true;
  317. +  //assemblescreen.Gutter.LeftOffset:=1;
  318. +  //assemblescreen.Gutter.RightOffset:=1;
  319.  
  320.  
  321. -  assemblescreen.Gutter.MarksPart.Visible:=false;
  322. -  assemblescreen.Gutter.Visible:=true;
  323. -  assemblescreen.Gutter.LineNumberPart.Visible:=true;
  324. -  assemblescreen.Gutter.LeftOffset:=1;
  325. -  assemblescreen.Gutter.RightOffset:=1;
  326. -
  327.    assemblescreen.Align:=alClient;
  328.    assemblescreen.PopupMenu:=PopupMenu1;
  329.    assemblescreen.Parent:=panel2;
  330.  
  331. -  assemblescreen.Gutter.OnGutterClick:=gutterclick;
  332. +  //assemblescreen.Gutter.OnGutterClick:=gutterclick;
  333.  
  334.    assemblescreen.name:='Assemblescreen';
  335. -  assemblescreen.Text:='';
  336. +  assemblescreen.Lines.Text:='';
  337.  
  338.    assemblescreen.OnChange:=assemblescreenchange;
  339.  
  340. @@ -1474,20 +1476,20 @@
  341.        if reg.valueexists('Font.quality') then
  342.          assemblescreen.Font.quality:=TFontQuality(reg.ReadInteger('Font.quality'));
  343.  
  344. -      if reg.valueexists('Show Line Numbers') then
  345. -        assemblescreen.Gutter.linenumberpart.visible:=reg.ReadBool('Show Line Numbers');
  346. +      //if reg.valueexists('Show Line Numbers') then
  347. +        //assemblescreen.Gutter.linenumberpart.visible:=reg.ReadBool('Show Line Numbers');
  348.  
  349. -      if reg.valueexists('Show Gutter') then
  350. -        assemblescreen.Gutter.Visible:=reg.ReadBool('Show Gutter');
  351. +      //if reg.valueexists('Show Gutter') then
  352. +        //assemblescreen.Gutter.Visible:=reg.ReadBool('Show Gutter');
  353.  
  354. -      if reg.valueexists('smart tabs') then
  355. -        if reg.ReadBool('smart tabs') then assemblescreen.Options:=assemblescreen.options+[eoSmartTabs];
  356. +      //if reg.valueexists('smart tabs') then
  357. +        //if reg.ReadBool('smart tabs') then assemblescreen.Options:=assemblescreen.options+[eoSmartTabs];
  358.  
  359. -      if reg.valueexists('tabs to spaces') then
  360. -        if reg.ReadBool('tabs to spaces') then assemblescreen.Options:=assemblescreen.options+[eoTabsToSpaces];
  361. +      //if reg.valueexists('tabs to spaces') then
  362. +        //if reg.ReadBool('tabs to spaces') then assemblescreen.Options:=assemblescreen.options+[eoTabsToSpaces];
  363.  
  364. -      if reg.valueexists('tab width') then
  365. -        assemblescreen.tabwidth:=reg.ReadInteger('tab width');
  366. +      //if reg.valueexists('tab width') then
  367. +        //assemblescreen.tabwidth:=reg.ReadInteger('tab width');
  368.      end;
  369.  
  370.    finally
  371. @@ -1505,13 +1507,13 @@
  372.  procedure TfrmAutoInject.Syntaxhighlighting1Click(Sender: TObject);
  373.  begin
  374.  {$ifndef standalonetrainerwithassembler}
  375. -
  376. +{
  377.    Syntaxhighlighting1.checked:=not Syntaxhighlighting1.checked;
  378.    if Syntaxhighlighting1.checked then //enable
  379.      assemblescreen.Highlighter:=AAHighlighter
  380.    else //disabl
  381.      assemblescreen.Highlighter:=nil;
  382. -
  383. +}
  384.  {$endif}
  385.  end;
  386.  
  387. @@ -1530,7 +1532,7 @@
  388.  
  389.    if messagedlg(Format(rsAreYouSureYouWantToClose, [tlist.TabText[selectedtab]]), mtConfirmation, [mbyes, mbno], 0)=mryes then
  390.    begin
  391. -    scripts[oldtabindex].script:=assemblescreen.text; //save current script
  392. +    scripts[oldtabindex].script:=assemblescreen.Lines.Text; //save current script
  393.      tlist.RemoveTab(selectedtab);
  394.  
  395.      for i:=selectedtab to length(scripts)-2 do
  396. @@ -1542,7 +1544,7 @@
  397.      begin
  398.        oldtabindex:=length(scripts)-1;
  399.        tlist.SelectedTab:=oldtabindex;
  400. -      assemblescreen.text:=scripts[oldtabindex].script;
  401. +      assemblescreen.Lines.Text:=scripts[oldtabindex].script;
  402.        assemblescreen.OnChange(assemblescreen);
  403.      end;
  404.  
  405. @@ -1582,7 +1584,7 @@
  406.   obsolete
  407.    //this will inject the script dll and generate a assembler script the user can use to call the script
  408.    //first set the environment var for uc_home
  409. -  s:=assemblescreen.text;
  410. +  s:=assemblescreen.Lines.Text;
  411.    if not symhandler.getmodulebyname('undercdll.dll',mi) then
  412.    begin
  413.      //dll was not loaded yet
  414. @@ -1641,7 +1643,7 @@
  415.    end else hasjustloadedundercdll:=false;
  416.  
  417.    //now allocate memory for the script and write it to there
  418. -  totalmem:=length(assemblescreen.text);
  419. +  totalmem:=length(assemblescreen.Lines.Text);
  420.    address:=VirtualAllocEx(processhandle,nil,totalmem+512,mem_commit,page_execute_readwrite);
  421.    if address=nil then raise exception.create('Failed allocating memory for the script');
  422.    if not WriteProcessMemory(processhandle,address,@s[1],totalmem,totalwritten) then
  423. @@ -1721,17 +1723,17 @@
  424.  
  425.  procedure TfrmAutoInject.Cut1Click(Sender: TObject);
  426.  begin
  427. -  assemblescreen.CutToClipboard;
  428. +  //assemblescreen.CutToClipboard;
  429.  end;
  430.  
  431.  procedure TfrmAutoInject.Copy1Click(Sender: TObject);
  432.  begin
  433. -  assemblescreen.CopyToClipboard;
  434. +  //assemblescreen.CopyToClipboard;
  435.  end;
  436.  
  437.  procedure TfrmAutoInject.Paste1Click(Sender: TObject);
  438.  begin
  439. -  assemblescreen.PasteFromClipboard;
  440. +  //assemblescreen.PasteFromClipboard;
  441.  end;
  442.  
  443.  procedure TfrmAutoInject.Find1Click(Sender: TObject);
  444. @@ -1744,7 +1746,7 @@
  445.  procedure TfrmAutoInject.FindDialog1Find(Sender: TObject);
  446.  begin
  447.    //scan the text for the given text
  448. -  assemblescreen.SearchReplace(finddialog1.FindText,'',[]);
  449. +  //assemblescreen.SearchReplace(finddialog1.FindText,'',[]);
  450.  
  451.    FindDialog1.close;
  452.  end;
  453. @@ -1753,7 +1755,7 @@
  454.  procedure TfrmAutoInject.AAPref1Click(Sender: TObject);
  455.  var reg: tregistry;
  456.  begin
  457. -  with TfrmAAEditPrefs.create(self) do
  458. +{  with TfrmAAEditPrefs.create(self) do
  459.    begin
  460.      try
  461.        if execute(assemblescreen) then
  462. @@ -1786,6 +1788,7 @@
  463.        free;
  464.      end;
  465.    end;
  466. +}
  467.  end;
  468.  
  469.  procedure TfrmAutoInject.FormDestroy(Sender: TObject);
  470. @@ -1799,7 +1802,7 @@
  471.  
  472.  procedure TfrmAutoInject.Undo1Click(Sender: TObject);
  473.  begin
  474. -  assemblescreen.Undo;
  475. +  //assemblescreen.Undo;
  476.  end;
  477.  
  478.  // \/   http://forum.cheatengine.org/viewtopic.php?t=566415 (jgoemat and some mods by db)
  479. Index: frmExeTrainerGeneratorUnit.pas
  480. ===================================================================
  481. --- frmExeTrainerGeneratorUnit.pas  (wersja 2198)
  482. +++ frmExeTrainerGeneratorUnit.pas  (kopia robocza)
  483. @@ -202,7 +202,7 @@
  484.    if tiny then
  485.    begin
  486.      //temporarily insert this in front of the lua script
  487. -    MainForm.frmLuaTableScript.assemblescreen.BeginUpdate;
  488. +    //MainForm.frmLuaTableScript.assemblescreen.BeginUpdate;
  489.      MainForm.frmLuaTableScript.assemblescreen.Lines.Insert(0, 'RequiredCEVersion='+floattostr(ceversion));
  490.      MainForm.frmLuaTableScript.assemblescreen.Lines.Insert(1, 'if (getCEVersion==nil) or (getCEVersion()<RequiredCEVersion) then');
  491.      MainForm.frmLuaTableScript.assemblescreen.Lines.Insert(2, '  messageDialog(''Please install Cheat Engine ''..RequiredCEVersion, mtError, mbOK)');
  492. @@ -220,7 +220,7 @@
  493.        for i:=0 to 4 do
  494.          MainForm.frmLuaTableScript.assemblescreen.Lines.Delete(0);
  495.  
  496. -      MainForm.frmLuaTableScript.assemblescreen.EndUpdate;
  497. +      //MainForm.frmLuaTableScript.assemblescreen.EndUpdate;
  498.      end;
  499.    end;
  500.  
  501. Index: LuaHandler.pas
  502. ===================================================================
  503. --- LuaHandler.pas  (wersja 2198)
  504. +++ LuaHandler.pas  (kopia robocza)
  505. @@ -59,7 +59,7 @@
  506.  
  507.  implementation
  508.  
  509. -uses mainunit, mainunit2, luaclass, frmluaengineunit, plugin, pluginexports, MemoryRecordUnit,
  510. +uses mainunit, mainunit2, luaclass, {frmluaengineunit,} plugin, pluginexports, MemoryRecordUnit,
  511.    debuggertypedefinitions, symbolhandler, frmautoinjectunit, simpleaobscanner,
  512.    addresslist, memscan, foundlisthelper, cesupport, DBK32functions, sharedMemory,
  513.    disassemblerComments, disassembler, LuaCanvas, LuaPen, LuaFont, LuaBrush, LuaPicture, LuaMenu,
  514. @@ -123,7 +123,7 @@
  515.      end;
  516.    end;
  517.  
  518. -  if (result=LUA_ERRRUN) and (errf=0) then //an error occured and no error handler was specified
  519. +{  if (result=LUA_ERRRUN) and (errf=0) then //an error occured and no error handler was specified
  520.    begin
  521.      if GetCurrentThreadId=MainThreadID then
  522.      begin
  523. @@ -155,6 +155,7 @@
  524.        end;
  525.      end;
  526.    end;
  527. +}
  528.  end;
  529.  
  530.  function lua_dostring(L: Plua_State; const str: PChar): Integer;
  531. @@ -894,7 +895,7 @@
  532.  function print2(param: pointer): pointer;
  533.  var usesluaengineform: boolean;
  534.  begin
  535. -  usesluaengineform:=false;
  536. +{  usesluaengineform:=false;
  537.  
  538.    if printoutput=nil then
  539.    begin
  540. @@ -914,6 +915,7 @@
  541.      printoutput:=nil;
  542.  
  543.    result:=nil;
  544. +}
  545.  end;
  546.  
  547.  function print(L: PLua_State): integer; cdecl;
  548. Index: MainUnit.pas
  549. ===================================================================
  550. --- MainUnit.pas    (wersja 2198)
  551. +++ MainUnit.pas    (kopia robocza)
  552. @@ -1132,7 +1132,7 @@
  553.  
  554.      FreeAndNil(changescript1);
  555.  
  556. -    frmLuaTableScript.assemblescreen.ClearAll;
  557. +    frmLuaTableScript.assemblescreen.Lines.Clear;
  558.  
  559.      frmLuaTableScript.Free;
  560.    end;
  561. Index: MemoryBrowserFormUnit.pas
  562. ===================================================================
  563. --- MemoryBrowserFormUnit.pas   (wersja 2198)
  564. +++ MemoryBrowserFormUnit.pas   (kopia robocza)
  565. @@ -551,7 +551,7 @@
  566.    pointerscannerfrm,
  567.    frmDebugEventsUnit,
  568.    frmPagingUnit,
  569. -  frmluaengineunit,
  570. +  //frmluaengineunit,
  571.    disassemblerviewlinesunit,
  572.    frmBreakpointConditionunit,
  573.    frmStringMapUnit,
  574. @@ -794,12 +794,12 @@
  575.  
  576.  procedure TMemoryBrowser.miLuaEngineClick(Sender: TObject);
  577.  begin
  578. -  //start lua engine window
  579. +{  //start lua engine window
  580.    if frmLuaEngine=nil then
  581.      frmLuaEngine:=TfrmLuaEngine.create(MemoryBrowser); //main mb
  582.  
  583.    frmLuaEngine.show;
  584. -
  585. +}
  586.  end;
  587.  
  588.  procedure TMemoryBrowser.miPagingClick(Sender: TObject);
  589. Index: OpenSave.pas
  590. ===================================================================
  591. --- OpenSave.pas    (wersja 2198)
  592. +++ OpenSave.pas    (kopia robocza)
  593. @@ -1095,7 +1095,7 @@
  594.    begin
  595.      luascript:=CheatTable.AppendChild(doc.CreateElement('LuaScript'));
  596.      luascript.TextContent:=Utf8ToAnsi(mainform.frmLuaTableScript.assemblescreen.text);
  597. -    mainform.frmLuaTableScript.assemblescreen.MarkTextAsSaved;
  598. +    //mainform.frmLuaTableScript.assemblescreen.MarkTextAsSaved;
  599.    end;
  600.  
  601.    //disassemblercomments
  602. Index: plugin.pas
  603. ===================================================================
  604. --- plugin.pas  (wersja 2198)
  605. +++ plugin.pas  (kopia robocza)
  606. @@ -873,7 +873,7 @@
  607.  
  608.  implementation
  609.  
  610. -uses MainUnit,memorybrowserformunit,formsettingsunit, pluginexports, SynHighlighterAA, DBK32functions, luahandler;
  611. +uses MainUnit,memorybrowserformunit,formsettingsunit, pluginexports, {SynHighlighterAA,} DBK32functions, luahandler;
  612.  
  613.  resourcestring
  614.    rsErrorEnabling = 'Error enabling %s';
  615. @@ -1798,8 +1798,8 @@
  616.    exportedfunctions.disassembleEx:=@ce_disassemble;
  617.    exportedfunctions.loadModule:=@ce_loadModule;
  618.  
  619. -  exportedfunctions.aa_AddExtraCommand:=@aa_AddExtraCommand;
  620. -  exportedfunctions.aa_RemoveExtraCommand:=@aa_RemoveExtraCommand;
  621. +  //exportedfunctions.aa_AddExtraCommand:=@aa_AddExtraCommand;
  622. +  //exportedfunctions.aa_RemoveExtraCommand:=@aa_RemoveExtraCommand;
  623.  
  624.    //version 4 init
  625.    exportedfunctions.createTableEntry:=@ce_createTableEntry;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!