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

[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 Sirius Script:
Do it only in INVITE ONLY SESSION

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


Player Reports may Results in BAN!
You use it at your own Risk

https://www.virustotal.com/de/file/f...is/1478990027/
https://virusscan.jotti.org/en-US/fi...job/ttrhbq42di

Use this Thread to Arrange Time Trial Money Lobbies:
https://www.mpgh.net/forum/showthread.php?t=1186067

[[MPGH]Hugo Boss]

//Approved, file appears safe.

Use at your own risk.

[awhitegirl]

I'm not sure if it's happening to anyone else, but it appears to crash my game as soon as I enter a vehicle.

SPECS
i7-6900k
Win 10
GTX1080
Steam Version

-----------------
Appears to be 50/50. Sometimes it'll crash my game, other times not. Gravity changing crashes the menu though

[liukejun9999]

ME TOO !!!CRASH~~~~~

[awhitegirl]

Edit 1: I worked out the crashing problem. It appears that you don't crash when it's your OWN vehicle. If you try to enter or even edit NPC vehicles or other players' vehicles, you crash. You also crash if you load it up after you enter any vehicle even your own.

Edit 2: Don't listen to some of Edit 1. I think that it's certain vehicles causing the crash in fact. Entering a Sultan and Kuruma kept crashing me, they were owned by me, but as soon as I entered an RE-7B, the game appears to continue running. Entering other people's vehicles still crashes me though.

[rain247]

For me it's not crashing. Great work Mike awesome menu!

[Cletus161]

Chash :ccc

[awhitegirl]

For me it's not crashing. Great work Mike awesome menu!

Are you using SC or Steam? Have you entered multitude of vehicles?

[ProjectHazmat]

Anyone else stuck with just a debug menu popping up?

Edit: Nevermind. I just didn't read everything xD

[hellrier]

infinate ammo not working

[qq813737215]

What do I need to fill in the box?

[y2967174932]

win10开这个hack很不稳定，过一会hack会界面卡死。

[wchan35]

i actually love this new version, it gives me more options which i can set things up whatever i want. althought the crash also happen to me too(sc version), but its not a big deal. and also, i can see that mike u delete "lose cops" and "infinite ammo" on the menu, i actually use those a lot, especially infinite ammo(rpg has only 20 ammo...) and if u can tell me how to set hotkey to "never wanted"? and one more thing, all those setting such as modifers is kind of "complicate" to me. mike could u plz make some description for those setting? overall is great job. thanks mike

- - - Updated - - -

- - - Updated - - -

win10开这个hack很不稳定，过一会hack会界面卡死。

這完全取決於你用了什麼功能，設置了什麼。。。 我單純用生命恢復和無星，玩幾個小時都沒出現卡。。。

[David_G]

Thanks! Does this version have the "TeleportToMissionWP" function you mentioned in a past example? It is neither in the menu.xml nor mentioned in the script explanation of the topic start...

Edit: I found it in racehack.pas:

call('TELEPORTTOYELLOW', '');

But can I use it as menu entry as well?

[mazhagil]

steam version crash when i try to enter my car or other car