| Nom du fichier : Hell Yeah! : Wrath of The Dead Rabbit Trainer +2 - Auteur : ALI - [PC] |
object FormAbout: TFormAbout
Left = 558
Height = 238
Top = 201
Width = 387
AlphaBlend = True
AlphaBlendValue = 235
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'About This Trainer'
ClientHeight = 238
ClientWidth = 387
Font.CharSet = ANSI_CHARSET
Font.Height = -11
Font.Name = 'Verdana'
Font.Pitch = fpVariable
Font.Quality = fqDraft
FormStyle = fsStayOnTop
Position = poMainFormCenter
ShowInTaskBar = stNever
LCLVersion = '1.1'
object GroupBoxPoweredBy: TGroupBox
Left = 120
Height = 72
Top = 48
Width = 258
Caption = 'Powered By'
ClientHeight = 54
ClientWidth = 254
TabOrder = 0
object LabelPoweredBy: TLabel
Left = 13
Height = 39
Top = 6
Width = 55
Caption = 'CETack:'#13#10#13#10'Lazarus:'
Font.CharSet = ANSI_CHARSET
Font.Height = -11
Font.Name = 'Verdana'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object TackURLCETack: TTackURL
Cursor = crHandPoint
Left = 85
Height = 13
Top = 6
Width = 153
Caption = 'Forum.CheatEngine.org'
Font.CharSet = ANSI_CHARSET
Font.Color = clHotLight
Font.Height = -11
Font.Name = 'Verdana'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
ParentCo...... |
unit About;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, TackCtrls, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls;
type
{ TFormAbout }
TFormAbout = class(TForm)
CheckBoxJoy: TCheckBox;
GroupBoxPoweredBy: TGroupBox;
ImageAvatar: TImage;
LabelMadeBy: TLabel;
LabelPoweredBy: TLabel;
LabelTrainerName: TLabel;
TackURLCETack: TTackURL;
TackURLLazarus: TTackURL;
private
{ private declarations }
public
{ public declarations }
end;
var
FormAbout: TFormAbout;
implementation
{$R *.lfm}
end.
|
program HellYeah;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, main, about
{ you can add units after this };
{$R *.res}
begin
Application.Title:='Hell Yeah';
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(TFormAbout,FormAbout);
Application.Run;
end.
|
object FormMain: TFormMain
Left = 511
Height = 315
Top = 200
Width = 522
AlphaBlend = True
AlphaBlendValue = 235
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Hell Yeah! Wrath of The Dead Rabbit Plus 2 Trainer'
ClientHeight = 315
ClientWidth = 522
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Verdana'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Position = poDesktopCenter
LCLVersion = '1.1'
object GroupBoxOptions: TGroupBox
Left = 224
Height = 121
Top = 8
Width = 288
Caption = 'Options'
ClientHeight = 103
ClientWidth = 284
TabOrder = 0
object TackBoxAmmo: TTackBox
Left = 16
Height = 19
Top = 40
Width = 253
Caption = 'Enable Infinite Ammo --------- F2 or RSB'
OnClick = TackBoxAmmoClick
TabOrder = 0
AAScript.Strings = (
'[ENABLE]'
'//You can''t activate this script before the 1st shot!'
'aobscan(aobGun,D8 AB A0 02 00 00 D9 9B A0 02 00 00)'
'aobscan(aobMissile,D8 AB 9C 02 00 00 D9 9B 9C 02 00 00 EB)'
'aobscan(aobGrenade,83 7C 82 08 00 0F 9F C1 0F B6 C9 83 7E)'
''
'alloc(cheater,32)'
'label(locGun)'
'label(retGrenade)'
'label(chtGrenade)'
'label(locGrenade)'
'label(locMissile)'
'registersymbol(locGun)'
'registersymbol(locMissile...... |
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, TackCtrls, TackTrainer, Forms, Controls,
Graphics, Dialogs, StdCtrls, ExtCtrls, Windows, MMSystem,about;
type
{ TFormMain }
TFormMain = class(TForm)
GroupBox1: TGroupBox;
GroupBoxOptions: TGroupBox;
GroupBoxStatus: TGroupBox;
ImagePoster: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
LabelHelp: TLabel;
LabelNotes: TLabel;
LabelGame: TLabel;
LabelTrainer: TLabel;
TackBoxHealth: TTackBox;
TackBoxAmmo: TTackBox;
Trainer: TTrainer;
procedure ImagePosterClick(Sender: TObject);
procedure LabelHelpClick(Sender: TObject);
procedure TackBoxHealthClick(Sender: TObject);
procedure TackBoxAmmoClick(Sender: TObject);
procedure TrainerAttach(Sender: TObject);
procedure TrainerPress(Sender: TObject);
procedure TrainerUpdate(Sender: TObject);
private
{ private declarations }
public
end;
var
FormMain: TFormMain;
implementation
{$R *.lfm} {$R sound.res}
procedure TFormMain.TrainerUpdate(Sender: TObject);
begin
if Trainer.GetGameProcessId()then
begin
GroupBoxOptions.Enabled:=true;
Trainer.EnableHotkey:=true;
LabelGame.Caption:=rsGameRunning;
Trainer.DoBoxUpdate(TackBoxAmmo, 'locGun', 'D9', 'D8');
Trainer.DoBoxUpdate(TackBoxHealth,'locHealth','E9', '83');
if not Trainer.Checked then
LabelTrainer.Caption:=...... |
█▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓█ █▓▒▒▒▓█████▓█████▓█████▓█▓█▓▓▓█▓█████▓█████▓█████▓▓▓▓████▓█▓█████▓█▓▓▓█▓▒▒▒▓█ █▓▒ ▓▓▓█▓▓▓█▓▓▓█▓█▓▓▓█▓█▓██▓▓█▓█▓▓▓▓▓█▓▓▓█▓█▓▓▓▓▓▓▓▓█▓▓▓▓█▓▓▓█▓▓▓▓█▓█▓▓ ▒▓█ █▓ ▓▓▓█▓▓▓█████▓█████▓█▓█▓█▓█▓████▓▓█████▓█████▓██▓█▓▓▓▓█▓▓▓█▓▓▓▓▓█▓▓▓ ▓█ █▓▒ ▓▓▓█▓▓▓█▓▓█▓▓█▓▓▓█▓█▓█▓▓██▓█▓▓▓▓▓█▓▓█▓▓▓▓▓▓█▓▓▓▓█▓▓▓▓█▓▓▓█▓▓▓▓▓█▓▓▓ ▒▓█ █▓▒▒▒▓▓▓█▓▓▓█▓▓▓█▓█▓▓▓█▓█▓█▓▓▓█▓█████▓█▓▓▓█▓█████▓▓▓▓████▓█▓▓▓█▓▓▓▓▓█▓▓▓▒▒▒▓█ █▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓█ █▓▓▓▓░░░ Trainers City ░░░▓▓▓▓▓█ █▓▒▒▒ - The Bible Trainers - ▒▒▒▓█ █▓▒ since 1998 ▒▓█ █▓ ■■■■■■■■■ http://www.trainerscity.com ■■■■■■■■■ ▓█ █ █ █ Your best source of Trainers and Cheat codes █ █ For PC, PSX, PSP, PS3, PS4, Xbox, Xbox 360, Wii, █ █ WiiU, iPhones, iPad, Ipod, Android, 3DS █ █┼ More Than : 40 000 files !! ┼█ █┼┼ ┼┼█ █┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼...... |
| Téléchargé : 4861 fois |
| Mise à jour : 1970.01.01 |
![[Laraider] Fansite officiel sur tomb Raider et Lara Croft](images/home/clients/client16.png "[Laraider] Fansite officiel sur tomb Raider et Lara Croft")
Comments