Cheat Engine

[DeletedUser14087]

Video TuT will come soon.

Needs:
*Delphi (Any version)
*ShockWave Flash 1.0 Componet ActiveX control

NOTE: Before we start,i wonna make sure you have this ActiveX control in your "ActiveX" Tab.



if you dont,follow the this:

Go to Componet,and click import ActiveX control


Then choose ShockWave Flash 1.0,and click install


Great!,now that you've installed the ActiveX control,you can use it !


Making The Flash Trainer

Open up a new clean UI/Application by going to File --> New --> Application


Now that you've opend a new Application Form/Unit,you will see something like this


Put a ShockWave Flash Panel on The Form

You can rename the SWF1 name,to w/e you want,but remember the string you use to control it.

Now making the button (standard tab) to load a game,in this case we use bubble trouble,our favorite game

Remeber you can change the button caption to "Load Game" or anything you want (including size)

Loading the movie,double click the button and add the SWF1 string name and the LoadMovie function,in the (' ') add the link to the .swf game,dont forget to add 0, before the '') to make it execute


Now we add 2 Edit Boxes (Edit1 and Edit2) and anothor Button (Button2)

Button2 controls Edit1 and Edit2
Edit1 is for variables,example: Health variable in Bubble Trouble is "lives1"
Edit2 is for Value,Example we want 10 lives,so we do 10.

Configuring the Button and Edit1,Edit2

When we click the button,it will load the variable taken from Edit1 (GetVarivalbe Function) and it will Set the Variable (SetVariable Function) and Value to the SWF1 Panel we set earlier (if you remember )

In the end,we get something like this


Source is attached below

[GordonBM]

I still don't get it !! But thanks lol. I'm still working in VB. =)

[DeletedUser14087]

I expected appalsap to comment here...

[HomerSexual]

good tut kasper

not difficult but nice finish of your trainer

and at the vb guy

flash in vb is VERY easy...

[Varreon]

And thats it? Seems simple for a trainer... IM GUNNA TRY IT RIGHT NOW!!!

*edit*
after reading it more closely, u said that lives in that game is lives1. How did you find out the name of the variable? Is there a flash decompiler?

[DeletedUser14087]

[Varreon]

Hate to be the noob who can't follow a tut, but I get an error:

Project Trainer.exe raised exception class EAccessViolation with message "Access Violation at address 30085BED in module "Flash9.ocx". Read of Address 00000000.

[DeletedUser14087]

[HomerSexual]

are you running runescape or maple

lol?

[DeletedUser14087]

[Varreon]

I got my error at "Player.SetVariable(Edit1.Text,Edit2.Text);"

i renamed my Shockwave control to player.

BTW:
I included the GetVariable Line, but what is the point of it? You never display the value, just change it.(Im sure im missing something...)

[HomerSexual]

Kasper some games like RS and maple wont let you compile code

it was to Varreon

[DeletedUser14087]

[Varreon]

Here we go:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, OleCtrls, ShockwaveFlashObjects_TLB, Menus;

type
TForm1 = class(TForm)
Player: TShockwaveFlash;
BitBtn1: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
MainMenu1: TMainMenu;
File1: TMenuItem;
QuickLoad1: TMenuItem;
BubbleTrouble1: TMenuItem;
hreeFootNinja1: TMenuItem;
XenoTactic1: TMenuItem;
Quit1: TMenuItem;
BitBtn2: TBitBtn;
Edit2: TEdit;
Edit3: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure Quit1Click(Sender: TObject);
procedure BubbleTrouble1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure hreeFootNinja1Click(Sender: TObject);
procedure XenoTactic1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Player.LoadMovie(0,Edit1.Text);
end;

procedure TForm1.Quit1Click(Sender: TObject);
begin
Close();
end;

procedure TForm1.BubbleTrouble1Click(Sender: TObject);
begin
Player.LoadMovie(0,'http://miniclip.com/swfcontent/freegames/bubbletrouble.swf');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Player.GetVariable(Edit1.Text);
Player.SetVariable(Edit1.Text,Edit2.text);
end;

procedure TForm1.hreeFootNinja1Click(Sender: TObject);
begin
Player.LoadMovie(0,'http://www.miniclip.com/games/3-foot-ninja/en/3-foot-ninja.swf');
end;

procedure TForm1.XenoTactic1Click(Sender: TObject);
begin
Player.LoadMovie(0,'http://www.xgenstudios.com/xenotactic/xenotactic.swf');
end;

end.

[DeletedUser14087]

You forgot to add Edit1 and Edit2 lol ?