Entity Extra

0

Our Rating

0
Reader Rating: (1 Rate)
10

**********
PedExtra
**********

– Usage
Dim XPlayer = New PedExtra(Game.Player.Character)

– Get Ped’s Hat
Dim PedProps As Integer = XPlayer.GetPedProp(PedPropsVars.PROP_HATS)

– Get Ped’s Hat Texture
Dim PedPropTexture As Integer = XPlayer.GetPedPropTexture(PedPropsVars.PROP_HATS)

– Change Player’s Component Variation
PedExtra.SetComponentVariation(Game.Player.Character, PedComponentsVars.COMPONET_TORSO, 1, 2, 3)

– Change Player’s Props
PedExtra.SetPropIndex(Game.Player.Character, PedPropsVars.PROP_HATS, 1, 2, True)

– Get Number of Hat Prop Drawable Variations
Dim Num As Integer = XPlayer.GetNumberOfPropDrawableVariations(PedPropsVars.PROP_HATS)

– Get Number of Prop Texture Variations
Dim Num As Integer = XPlayer.GetNumberOfPropTextureVariations(2)

– Get Number of Palette Variation
Dim Num As Integer = XPlayer.GetPaletteVariation(PedComponentsVars.COMPONET_TORSO)

– Get Number of Texture Variations
Dim Num As Integer = XPlayer.GetNumberOfTextureVariations(PedComponentsVars.COMPONET_TORSO, 1)

– Get Texture Variation
Dim Num As Integer = XPlayer.GetTextureVariation(PedComponentsVars.COMPONET_TORSO)

– Get Number of Drawable Variations
Dim Num As Integer = XPlayer.GetNumberOfDrawableVariations(PedComponentsVars.COMPONET_TORSO)

– Get Drawable Variation
Dim Num As Integer = XPlayer.GetDrawableVariation(PedComponentsVars.COMPONET_TORSO)

– Clear All Ped’s Props
PedExtra.ClearAllPedProps(Game.Player.Character)

– Set Player Default Component Variation
PedExtra.SetDefaultComponentVariation(Game.Player.Character)

– Get the Weapon Ped was using in Hash
Dim WeaponHash As Integer = XPlayer.GetCurrentWeaponPedUsing()

– Is Player exiting a vehicle? (Sub Task)
Dim Bool As Boolean = XPlayer.IsSubtaskActive(Subtask.EXITING_VEHICLE_CLOSING_DOOR)

– Is Player Driving?
Dim Bool As Boolean = XPlayer.IsDriving()

– Make Player Ragdoll 5000ms
PedExtra.Ragdoll(Game.Player.Character, 5000)

– Change Ped Model
XPlayer.SetPedModel = PedHash.AmandaTownley

– Is Ped Can Use? (Exist)
Dim Bool As Boolean = XPlayer.CanUse()

– Get Ped’s Model
Dim Text As String = XPlayer.GetPedModel()

– Play Drinking Wine Animation
PedExtra.TaskPlayAnim(Game.Player.Character, “mp_safehousewine@”, “drinking_wine”, -1)

– Play Drinking Wine Animation Loop
PedExtra.TaskPlayAnimLoop(Game.Player.Character, “mp_safehousewine@”, “drinking_wine”, -1)

*********
UIExtra
*********

– Spawn a working Television
Dim TVProp As Prop
Dim TVID As Integer = UIExtra.GetTVRenderTargetID()
Public TVBool As Boolean = False

If TVProp = Nothing Then
Dim tvmdl As Model = New Model(1036195894)
tvmdl.Request(250)
If tvmdl.IsInCdImage AndAlso tvmdl.IsValid Then
While Not tvmdl.IsLoaded
Wait(50)
End While
TVProp = World.CreateProp(tvmdl, World.GetNextPositionOnSidewalk(Player.Position), True, True)
End If
tvmdl.MarkAsNoLongerNeeded()
End If
UIExtra.TurnOnTV(TVProp, TVID, UIExtra.TVChannel.Channel1, False)
TVBool = True

– Update TV Screen every tick (Should call on every tick)
Dim TVID As Integer = UIExtra.GetTVRenderTargetID()

If TVBool Then ‘Update TV Screen
UIExtra.DrawTVScreenEveryFrame(TVID)
End If

– Turn off the TV
UIExtra.TurnOffTV()

– Display Help Text on Screen
UIExtra.DisplayHelpTextThisFrame(“Press ” & ControlButton.VehicleCinematicDownOnly & ” to do something.”)

– Display Notification on Screen with Contact icon
UIExtra.DisplayNotificationThisFrame(“I’m Not MentaL”, “You pressed the N key.”, ContactIcon.Barry, True, UIExtra.IconType.RightJumpingArrow)

– Read/Write CFG (As Seen on Single Player Apartment, Premium Deluxe Motorsport Car Dealership, Gymnasium, etc)
Dim Text As String = UIExtra.ReadCfgValue(“Key”, “Value”, “C:\FileName.cfg”)
UIExtra.WriteCfgValue(“Key”, Text, “C:\FileName.cfg”)

– Draw Text on Screen
UIExtra.DrawText(“Hello World!”, New PointF(100, 100), 1.5, System.Drawing.Color.Red, GTAFont.Pricedown, GTAFontAlign.Left, GTAFontStyleOptions.DropShadow)

– Get Player’s Radio Station Name
Dim RadioStationName As String = UIExtra.GetPlayerCurrentRadioStation()

– Play External Sound/Music File with Volume Control
UIExtra.PlayExternalSoundFile(“C:\sound.wav”, 50)

**************
VehicleExtra
**************

– Usage
Dim XVehicle = New VehicleExtra(Game.Player.Character.LastVehicle)

– Get/Set Door Angle (0.0 to 1.0)
XVehicle.DoorAngle(VehicleDoor.FrontRightDoor) = XVehicle.DoorAngle(VehicleDoor.FrontLeftDoor)

– Open/Close Bomb bay Doors
VehicleExtra.OpenBombBayDoors(Game.Player.Character.LastVehicle)
VehicleExtra.CloseBombBayDoors(Game.Player.Character.LastVehicle)

– Set Player Last Vehicle
VehicleExtra.SetPlayerLastVehicle(Vehicle)

– Make Vehicle drops money when exploded
XVehicle.SetVehicleDropsMoneyWhenExploded = True

– Get Ped’s Vehicle Weapon in Hash
Dim VehicleWeapon As Integer = XVehicle.GetVehicleWeapon(Game.Player.Character)

– Can Use Vehicle? (Exist)
If XVehicle.CanUse Then
UI.Notify(“This Vehicle Can Use”)
End If

– Get Vehicle’s Model
Dim Text As String = XVehicle.GetVehicleModel()

************
WorldExtra
************

– Load GTA Online Maps
WorldExtra.LoadOnlineMaps()

– Unload GTA Online Maps
WorldExtra.UnLoadOnlineMaps()

– Get Interior ID (Example: Premium Deluxe Motorsport)
Dim InteriorID As Integer = WorldExtra.GetInteriorID(New Vector3(-59.793598175048828, -1098.7840576171875, 27.2612))

– Enable Interior Prop (Example: Premium Deluxe Motorsport)
WorldExtra.EnableInteriorProp(New Vector3(-59.793598175048828, -1098.7840576171875, 27.2612), “csr_beforeMission”)

– Disable Interior Prop (Example: Premium Deluxe Motorsport)
WorldExtra.DisableInteriorProp(New Vector3(-59.793598175048828, -1098.7840576171875, 27.2612), “csr_beforeMission”)

– Make Hidden Interior Visible (Example: 10 Car Garage)
WorldExtra.SetInteriorActive(New Vector3(222.592, -968.1, -99))

– Make Hidden Map or Interior Visible (Example: Custom Apartment)
WorldExtra.ToggleIPL(“apa_v_mp_h_01_a”)

– Remove Hidden Map or Interior (Example: Custom Apartment)
WorldExtra.RemoveIPL(“apa_v_mp_h_01_a”)

– Change Interior like Custom Apartment in GTA Online
WorldExtra.ChangeIPL(“apa_v_mp_h_01_a”, “apa_v_mp_h_01_b”)

About author

No comments

Recommend