Mike's GTA H4x 1.36 Extended [External Menu] [MPGH] (fixed)

[MikeRohsoft]

Teleport Options:
- Players
- Waypoint
- Fixed Points
- last used Car

Player Options:
- Heal
- Suicide
- Bullet Proof
- Wanted Level
- Ever Wanted
- Never Wanted
- Sprint Factor
- Swim Factor
- Godmode
- Super Jump
- Flaming Fists

Vehicle Options:
- Heal
- Destroy
- Gravity
- Acceleration
- Up Shift
- Down Shift
- Initial Force
- Line Grip
- Corner Grip
- Primary Red
- Primary Green
- Primary Blue

Weapon Options:
- Modifiers 1
- Modifiers 2
- No Reload
- Freeze Ammu
- Explosive Ammu
-Flamming Ammu

Script Engine inside!
Added Scripts:
- Time Trial Hack NEVER USE THIS SCRIPT IN PUBLIC SESSION - ONLY INVITE ONLY WITH TRUSTED PPL
- RP
- Anti AFK

 

The script are all in the Script Folder. All Files inside of it will be interpreted, doesn't matters what ending it has.
I just used .pas for Notepad++ Syntax for Pascal, because the Script Engine uses Pascal Script.
I added 3 Functions with ussualy Syntax:

function GetTickCount: cardinal; // Wrapper to GetTickCount64
procedure ShowMessage(msg: string); // <- this STOPS the Thread, use it only for Debugging.
procedure sleep(ms: integer); // <- it let the Memory Monitor Thread sleep, take care with this

function GameDistance(x1, y1, z1, x2, y2, z2: single): single;

And some Functions for wrapping the API Calls
All functions return false if parameter Id not exists

function ReadPropertyFloat(pId: string; out pFloat: single): boolean;
function WritePropertyFloat(pId: string; pFloat: single): boolean;

 

'PLAYER.HEALTH'
'PLAYER.MAXHEALTH'
'PLAYER.ARMOR'
'PLAYER.SPRINTSPEED'
'PLAYER.SWIMSPEED'

'PLAYER.POSITION.X'
'PLAYER.POSITION.Y'
'PLAYER.POSITION.Z'

'PLAYER.VEHICLE.X'
'PLAYER.VEHICLE.Y'
'PLAYER.VEHICLE.Z'
'PLAYER.VEHICLE.HEALTH'
'PLAYER.VEHICLE.GRAVITY'
'PLAYER.VEHICLE.ACCELLERATION'
'PLAYER.VEHICLE.CORNERGRIP'
'PLAYER.VEHICLE.DOWNSHIFT'
'PLAYER.VEHICLE.UPSHIFT'
'PLAYER.VEHICLE.INITIOALDRIVEFORCE'
'PLAYER.VEHICLE.LINEGRIP'

'PLAYER.WEAPON.ACCURATEMODEACCURACYMODIFIER'
'PLAYER.WEAPON.RUNANDGUNACCURACYMODIFIER'
'PLAYER.WEAPON.RECOILACCURACYMAX'
'PLAYER.WEAPON.SPREED'
'PLAYER.WEAPON.RECOILERRORTIME'
'PLAYER.WEAPON.RECOILRECOVERYRATE'
'PLAYER.WEAPON.RECOILACCURCYTOALLOWHEADSHOTAI'
'PLAYER.WEAPON.MINHEADSHOTDISTANCEAI'
'PLAYER.WEAPON.MAXHEADSHOTDISTANCEAI'
'PLAYER.WEAPON.HEADSHOTDAMAGEMODIFIERAI'
'PLAYER.WEAPON.RECOILACCURACYTOALLOWHEADSHOTPLAYER '
'PLAYER.WEAPON.MINHEADSHOTDISTANCEPLAYER'
'PLAYER.WEAPON.HEADSHOTDAMAGEMODIFIERPLAYER'
'PLAYER.WEAPON.BULLETDAMAGE'
'PLAYER.WEAPON.DAMAGETIME'
'PLAYER.WEAPON.DAMAGETIMEINVEHICLE'
'PLAYER.WEAPON.DAMAGETIMEINVEHICLEHEADSHOT'
'PLAYER.WEAPON.HITLIMBSDAMAGEMODIFIER'
'PLAYER.WEAPON.LIGHTLYARMOUREDDAMAGEMODIFIER'
'PLAYER.WEAPON.FORCE'
'PLAYER.WEAPON.FORCE2'
'PLAYER.WEAPON.FORCEHITPED'
'PLAYER.WEAPON.FORCEHITVEHICLE'
'PLAYER.WEAPON.FORCEHITFLYINGHELI'
'PLAYER.WEAPON.FORCEMAXSTRENGTHMULT'
'PLAYER.WEAPON.FORCEFALLOFFRANGESTART'
'PLAYER.WEAPON.FORCEFALLOFFRANGEEND'
'PLAYER.WEAPON.FORCEFALLOFFMIN'
'PLAYER.WEAPON.PROJECTILEFORCE'
'PLAYER.WEAPON.FRAGIMPULSE'
'PLAYER.WEAPON.PENETRATION'
'PLAYER.WEAPON.VERTICALLAUNCHADJUSTMENT'
'PLAYER.WEAPON.DROPFORWARDVELOCITY'
'PLAYER.WEAPON.MUZZLEVELOCITY'
'PLAYER.WEAPON.MULTYBULLETSHOOTSPREAD'
'PLAYER.WEAPON.RELOADTIMEMP'
'PLAYER.WEAPON.RELOADTIMESP'
'PLAYER.WEAPON.VEHICLERELOADTIME'
'PLAYER.WEAPON.RELOADTIMEMULTIPLIER'
'PLAYER.WEAPON.TIMEBETWEENSHOTS'

function ReadPropertyByte(pId: string; out pInt: byte): boolean;
function WritePropertyByte(pId: string; pInt: byte): boolean;

 

'PLAYER.WANTEDLEVEL'
'PLAYER.GODMODE'

function ReadPropertyInt(pId: string; out pInt: integer): boolean;
function WritePropertyInt(pId: string; pInt: integer): boolean;

 

'PLAYER.WEAPON.AMMOTYPE'
'PLAYER.WEAPON.WEAPONWHEELSLOT'
'PLAYER.WEAPON. ROU NDPERMAGAZINE'
'PLAYER.WEAPON.BULLETSINBATCH'
'PLAYER.WEAPON.BULLETSPERANIMLOOP'

function ReadPropertyStr(pId: string; out pStr: string): boolean;

 

'PLAYER.NAME'

function call(pFunctionName, pArgument: string): boolean;

 

'TELEPORT'
'SENDKEY'
'SENDKEYUP'
'SENDKEYDOWN'
'FOREGROUND'

All Pascal Script Scripts must have:

begin

end.

So lets give me some Script Examples:


Lets troll some:

var
  PlayerName: string;
  Health, MaxHealth, Armor, MaxArmor, FastRun, FastSwim: single;
  WantedLevel, GodMode: byte;
begin
  ReadPropertyStr('Player.Name', PlayerName);
  ReadPropertyFloat('Player.MaxHealth', MaxHealth);
  ReadPropertyFloat('Player.Health', Health);
  ReadPropertyFloat('Player.Armor', Armor); 
  if MaxHealth > Health then 
    WritePropertyFloat('Player.Health', MaxHealth); // Bullet Proof
  if PlayerName <> '' then
    MaxArmor := 50
  else 
    MaxArmor := 100;
  if MaxArmor > Armor then
    WritePropertyFloat('Player.Armor', MaxArmor); // Bullet Proof
  ReadPropertyByte('Player.WantedLevel', WantedLevel);  
  if WantedLevel > 0 then
    WritePropertyByte('Player.WantedLevel', 0); // Never Wanted
  ReadPropertyFloat('Player.SprintSpeed', FastRun);
  if FastRun <> 2 then
    WritePropertyFloat('Player.SprintSpeed', 2); // Fast Run
  ReadPropertyFloat('Player.SwimSpeed', FastSwim);
  if FastSwim <> 2 then
    WritePropertyFloat('Player.SwimSpeed', 2); // Fast Swim
  ReadPropertyByte('Player.GodMode', GodMode);
  if GodMode <> 9 then
    WritePropertyFloat('Player.GodMode', 9); // Godmode
end.

Lets do some more useful, like a RP Script:

var
  WantedLevel: byte;
begin
  ReadPropertyByte('Player.WantedLevel', WantedLevel);
  if WantedLevel >= 5 then
    WritePropertyByte('Player.WantedLevel', 0)
  else
    WritePropertyByte('Player.WantedLevel', 5);
end.

Lets do some more complex Stuff, Anti AFK Script:

var
  state: byte;
  LastTicks: cardinal;

procedure Initalize;
begin
  LastTicks := GetTickCount;
  state := 1;
end;

procedure AFKCheck;
var
  Ticks: cardinal;
begin
  Ticks := GetTickCount;
  if Ticks - LastTicks > 780000 then
  begin
    if state = 1 then
      call('ForeGround','')
    else if state = 10 then
    begin
      call('SendKey', 'S');
      LastTicks := Ticks;
      state := 0;
    end;
    state := state + 1;
  end;
end;

begin
  case state of
    0: Initalize;
    else AFKCheck;
  end;
end.

Ok, let's try some Bot Behaviour, Time Trial Bot:

var
  state: byte;
  SiriusCoordsStart: string;
  SiriusCoordsEnd: string;

procedure Initalize;
begin
  SiriusCoordsStart := '-1504.522217;1482.826050;116.529312';
  SiriusCoordsEnd := '-631.880737;-372.079926;34.320568';
  state := 1;
end;

procedure StartTimeTrial(const CoordStr: string);
begin
  call('Teleport', CoordStr);
  sleep(10);
  call('SendKey', 'E');
  state := 2;
end;

procedure EndTimeTrial(const CoordStr: string);
begin
  call('Teleport', CoordStr);
  sleep(10);
  state := 1;  
end;

Controls:
F4: ReHook;
F5: Show Menu
Control Menu with: UP, DOWN, ENTER and ESC, for changing Gravity Factor LEFT and RIGHT
F6: Teleport to Waypoint
F9: Save Coords to Clipboard

You can change all Settings and create other Hotkey Functions by config.xml
Modifiy the Menu by menu.xml

How to use it:
Extract all Files in a Folder.
Start it only if GTA is full loaded.
insert mpgh.net in the Textbox and click StartButton.
The Menu will only displayed in Game on Window Mode.
It will close if you close GTA.

How to use Time Trial Exploit Script:
Do it only in INVITE ONLY SESSIONS with 1+ Friend

How to use RP Script:
Teleport to a place where Police can't reach you.
Under "Special" you find some Locations.

still undetected since First Release of this Concept: 08-27-2016 (H4x 1.35 Beta)
Player Reports may Results in BAN!
You use it at your own Risk
https://virusscan.jotti.org/en-US/fi...job/k46fsntrv0
https://www.virustotal.com/de/file/4...is/1479155003/

Use this Thread to offering Time Trial Sessions Lobby's:
https://www.mpgh.net/forum/showthread.php?t=1186067

[akim14]

//Approved

[skydoesodgcraft]

Is there a way to completely freeze your ammo so that it doesnt consume your ammo but still shoots it? Everything else I love about this. Keep up the good work!

[ChromaKey]

Thany You!

[awhitegirl]

Thanks Mike! It doesn't seem to crash anymore with all my cars, and NPC cars. I'll keep you posted though if anything causes a crash.

[amirulizz02]

Thank youuu

[awhitegirl]

Edit 1: I found a crash issue. It seems teleporting to other players crashes the game on Steam version. Whether they are outside or inside. Can anyone else test on their computers?

Edit 2: It seems that teleporting in general now crashes your game. I tested waypoint teleporting, and then game crashes about 5-10 seconds later after being frozen on the spot.

[bpsboy]

I noticed after a while, when you hit the hotkeys, the menu just freezes and nothing happens, but yet the things you already enabled still work. Also, some of them (flaming fists) do not work

[sodoulikeegg]

Time trial doesn't work for me. The time trial spot isn't there it seems. No crashes anymore on entering vehicles so far. I have crashed 2x so far: one from teleporting to maze bank, and one from turning on the time trial hack.

- - - Updated - - -

For flaming fists and super jump etc. you have to enable them with enter rather than arrow keys.

[MikeRohsoft]

Time trial doesn't work for me. The time trial spot isn't there it seems. No crashes anymore on entering vehicles so far. I have crashed 2x so far: one from teleporting to maze bank, and one from turning on the time trial hack.

- - - Updated - - -

For flaming fists and super jump etc. you have to enable them with enter rather than arrow keys.

open script folder, open timetrialexploit.pas in an editor, replace content with this:

{ Part of Mike's GTA H4x Extended Menu }

var
  state: byte;
  SiriusCoordsStart: string;
  SiriusCoordsEnd: string;

procedure Initalize;
begin
  SiriusCoordsStart := '231,622665;3300,979248;40,466408';
  SiriusCoordsEnd := '993,884644;4458,817383;50,731663';
  state := 1;
end;

procedure StartTimeTrial(const CoordStr: string);
begin
  call('Teleport', CoordStr);
  sleep(200);
  call('SendKey', 'E');
  sleep(200);
  state := 2;
end;

procedure EndTimeTrial(const CoordStr: string);
begin
  call('Teleport', CoordStr);
  sleep(200);
  state := 1;  
end;

begin
  case state of
    1: StartTimeTrial(SiriusCoordsStart);
    2: EndTimeTrial(SiriusCoordsEnd);
    else Initalize;
  end;
end.

[bpsboy]

open script folder, open timetrialexploit.pas in an editor, replace content with this:

{ Part of Mike's GTA H4x Extended Menu }

var
  state: byte;
  SiriusCoordsStart: string;
  SiriusCoordsEnd: string;

procedure Initalize;
begin
  SiriusCoordsStart := '231,622665;3300,979248;40,466408';
  SiriusCoordsEnd := '993,884644;4458,817383;50,731663';
  state := 1;
end;

procedure StartTimeTrial(const CoordStr: string);
begin
  call('Teleport', CoordStr);
  sleep(200);
  call('SendKey', 'E');
  sleep(200);
  state := 2;
end;

procedure EndTimeTrial(const CoordStr: string);
begin
  call('Teleport', CoordStr);
  sleep(200);
  state := 1;  
end;

begin
  case state of
    1: StartTimeTrial(SiriusCoordsStart);
    2: EndTimeTrial(SiriusCoordsEnd);
    else Initalize;
  end;
end.

Do you plan to fix the bugs I stated?

[sodoulikeegg]

I did this, it still crashes when i enable the hack

edit: nvm it works

[Benw2]

On the previous version of your menu you had mixed up no reload and freeze ammu. Not much of a problem there. Now only no reload works and toggling the options off doesn't disable it.

[copycatditto]

For those with crashes on startup, a friend of mine had the same issue and they were fixed after installing "Microsoft Visual C++ 2015". After that he could use the hack without issues most of the time.

[BananaFPS]

Is the time trial hack patched? I think it is. When i'm in a invite only session with a friend, it just glitches into the ground and nothing happens