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

[MikeRohsoft]

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


Teleport Options:
- Players
- Waypoint
- Objective
- Fixed Points
- last used Car
- Personal Vehicle

Player Options:
- Heal
- Suicide
- Bullet Proof
- Kill All Peds
- Wanted Level
- Ever Wanted
- Never Wanted
- Sprint Factor
- Swim Factor
- Godmode
- Super Jump
- Flaming Fists
- Off Radar
- No Ragdoll
- Seat Belt

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

Weapon Options:
- Modifiers 1
- Modifiers 2
- No Reload
- Freeze Ammu
- Explosive Ammu
- Flamming Ammu
- (Re-)Fill Ammu

Script Engine inside!
Added Scripts:
- 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'
'PLAYER.ISINVEHICLE'
'PLAYER.VEHICLE.GODMODE'
'PLAYER.VEHICLE.COLOR.PRIMARY.R'
'PLAYER.VEHICLE.COLOR.PRIMARY.G'
'PLAYER.VEHICLE.COLOR.PRIMARY.B'
'PLAYER.VEHICLE.COLOR.SECONDARY.R'
'PLAYER.VEHICLE.COLOR.SECONDARY.G'
'PLAYER.VEHICLE.COLOR.SECONDARY.B'

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:
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.
Pls give look at it 2 Seconds, click back to GTA an start to navigate the Menu.
The Menu will only displayed in Game on Window Mode.
It will close if you close GTA.

How i get Money from this?:
-Kill All Peds and they will drop a present for you

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

remove this line out of menu.xml

		<!-- <Entry action="toggle_mobile_radio" type="toggle">Mobile Radio</Entry> -->

i'm sry

https://www.virustotal.com/de/file/b...is/1489518569/
https://virusscan.jotti.org/en-US/fi...job/awmfn4vzkm

[[MPGH]Hugo Boss]

//Approved, file appears safe, but has not been tested.

Use at your own risk.

[jooshzz]

Will give this a try in a second, cheers for the update!

[Sqdness]

Thanks boi

[xlayer]

Thank you super speed!

[Lugious]

I'm gettin "access violation", previous releases worked well

[Sqdness]

Yeah, same problem for me

I'm gettin "access violation", previous releases worked well

[Hakkz0r]

I'm gettin "access violation", previous releases worked well

same here: Win 10 Enterprise 64bit - Social Club Edition

[MikeRohsoft]

remove this line out of menu.xml

		<!-- <Entry action="toggle_mobile_radio" type="toggle">Mobile Radio</Entry> -->

i'm sry

[brownstain]

Thanks for the upload!

[Lugious]

i've founded a fix for those who got "access violation" - you need to unblock(right-clicking and use the Unblock button in the properties) ALL downloaded files(menu,config, and every file in "Scripts")

[signet90210]

remove this line out of menu.xml

		<!-- <Entry action="toggle_mobile_radio" type="toggle">Mobile Radio</Entry> -->

i'm sry

Is the activate code still MPGH.net? Forgot to include it in the post.

[Faggiot]

YAY THANKS MR WIZARD

[michel devin]

Hello, thank you for quick update. Good work. Same for me. I have the problem. The password is the same as 1.37 thank you.

[razor253]

fucking amazing! thank you bro!