Mike's GTA H4x 1.36 Extended [External Menu]

[MikeRohsoft]

Mike's GTA H4x 1.36 Extended


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

Player Options:
- Heal
- Suicide
- Bullet Proof
- Ever Wanted
- Never Wanted
- Fast Run
- Fast Swim
- Godmode

Vehicle Options:
- Heal
- Destroy
- Godmode
- Gravity

Weapon Options:
- Increase Bullet Damage
- No Spread
- No Recoil
- Fast Reload
- No Reload
- Freeze Ammu

Script Engine inside!
Added Scripts:
- Sirius NEVER USE THIS SCRIPT IN PUBLIC SESSION - ONLY INVITE ONLY WITH TRUSTED PPL
- RP NEVER USE THIS SCRIPT IN PUBLIC SESSION - ONLY SOLO
- 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.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****UNDPERMAGAZINE'
'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', 'S');
  sleep(1100);
  call('SendKey', 'E');
  state := 2;
end;

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

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

Controls:
F5: Show Menu
Control Menu with: UP, DOWN, ENTER and ESC, for changing Gravity Factor LEFT and RIGHT
F6: Teleport to Waypoint
F7: Heal
F8: Lose Cops
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.
The Menu will only displayed in Game on Window Mode.
It will close if you close GTA.

You don't like my Ingame Menu?
Rename menu.xml and Restart the Hack.

How to use Sirius Script:
Do it only in INVITE ONLY SESSION
Pls use this Thread to arrange Sessions

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


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

https://www.virustotal.com/de/file/b...is/1476392991/
https://virusscan.jotti.org/de-DE/fi...job/112dy360ec

[Smoke]

Approved.

Use at your OWN risk.

[scubs]

Nice release and nice Mods for the very fast approval!

[jjw337]

Solid release; everything i've tested is working well at the moment!

EDIT: i'm getting MGTA crashes when trying to change gravity for vehicles

Thanks for the continued work Mike

[Hakkz0r]

Brilliant job!

[Moonerunit]

doesn't work for me

[PornSeeker]

yea doesn't seem to work for me either, I even tried renaming the menu.xml

EDIT: When I ran the program as admin it fixed my issue, works great thank you

[skydoesodgcraft]

The gravity doesn't work, just makes the hack stop working and crash. Besides that, everything seems to be working excellent! Good Job Man!

[Gibba]

what exactely is the sirius script for? i only keep teleporting between 2 locations...

[D4nny_]

thank you so much Mike, you're the best

- - - Updated - - -

what exactely is the sirius script for? i only keep teleporting between 2 locations...

it is a time trial(money) hack, get in a car and start it

[veedubb]

Two questions... Does godmode work in solo session jobs? And does it also work for free falling from planes without parachute?

[Gibba]

thank you so much Mike, you're the best

- - - Updated - - -



it is a time trial(money) hack, get in a car and start it

nice, and thanks for the fast reply!

[MikeRohsoft]

Two questions... Does godmode work in solo session jobs? And does it also work for free falling from planes without parachute?

yes yes // 2short

[D4nny_]

Two questions... Does godmode work in solo session jobs? And does it also work for free falling from planes without parachute?

im pretty sure it works, i turned on godmode and bulletproof at the same time and a RPG cant kill me hope that helps

[DarkUprizer]

Wonderful work again as usual Mike.