Create a new version of paste:

'http://gtaxscripting.blogspot.com/
'http://www.facebook.com/GtaIVScripting
'https://www.youtube.com/user/GTAScripting

' sorry people, i have no time now to comment and explain this mess :(
' this is not the best way to do the effects but works almost as expected
' this is my first script for GTA IV, totaly wierd

' by JulioNIB

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports GTA

Public Class TelekinesisPowers
    Inherits Script
    Private SOn As Boolean = True
    Private GTAIVVersion As Boolean = game.currentepisode = gameepisode.GTAIV
	private showKeyCode as boolean = false
	private vehFloatArray() as vehicle
	private vehFloatCont as int32 = 0
	private pedFloatArray() as ped
	private pedFloatCont as int32 = 0
	private oFakeCR as gta.object
	private vecOFakeCR as vector3
	private vehAlvoThrow as vehicle
	private pedAlvoThrow as ped 
	private bClearArray as boolean = false
	private chkWarp as checkpoint
	private bPreviewWarpPos as boolean = false	
	private bTelToWaypoint as boolean = true
	private bTelToWaypointInProgress as boolean = false
	private bAutoHeal as boolean = true
	private bFloatThingsFollowPl as boolean = true
	private bSafeWarpToVehicle as boolean = false
    Private hkThrowAuto, hkFloatThings, hkThrowFloatThings, hkWarpVehicle, hkWarpAnywhere, hkWarpWaypoint, keyNitro, keyHidraulics, _
		keySlowMotion, keyAim, keyHelp, keyNitroBoatBike, maxFloatPed, maxFloatVehicle As Int32
	private vecNitro as vector3
	private animSetJump_Std as animationset = new animationset("jump_std")
	private DistTargetVehicle, DistTargetPed, DistTargetObj, DistTargetHelicopter as double
	private bShowHelp as boolean = false
    Private HidraulicsForce As Double
    Private TargetedVehAutoIncDist As Double
    Private bAchouVeh As Boolean = True

    Public Sub New()
        Me.interval = 100
		
		chkWarp = new checkpoint
		chkWarp.visible = false
		chkWarp.color = system.drawing.color.FromArgb(100, system.drawing.color.red)
		chkWarp.position = player.character.position
		chkWarp.diameter = 2

		settings.load
		
		if Settings.GetValueKey("Skill_ThrowAuto", "Hotkeys", -1) = -1 then Settings.SetValue("Skill_ThrowAuto", "Hotkeys", Keys.D1)
		if Settings.GetValueKey("Skill_FloatThings", "Hotkeys", -1) = -1 then Settings.SetValue("Skill_FloatThings", "Hotkeys", Keys.D2)
		if Settings.GetValueKey("Skill_ThrowFloatingThings", "Hotkeys", -1) = -1 then Settings.SetValue("Skill_ThrowFloatingThings", "Hotkeys", Keys.D3)
		if Settings.GetValueKey("Skill_WarpToVehicle", "Hotkeys", -1) = -1 then Settings.SetValue("Skill_WarpToVehicle", "Hotkeys", Keys.D4)
		if Settings.GetValueKey("Skill_WarpToAnywhere", "Hotkeys", -1) = -1 then Settings.SetValue("Skill_WarpToAnywhere", "Hotkeys", Keys.D5)
		if Settings.GetValueKey("Skill_WarpToWaypoint", "Hotkeys", -1) = -1 then Settings.SetValue("Skill_WarpToWaypoint", "Hotkeys", Keys.D6)
		if Settings.GetValueKey("SlowMotion", "Hotkeys", -1) = -1 then Settings.SetValue("SlowMotion", "Hotkeys", Keys.LMenu)
		if Settings.GetValueKey("Aim", "Hotkeys", -1) = -1 then Settings.SetValue("Aim", "Hotkeys", Keys.RButton)
		if Settings.GetValueKey("Nitro", "Hotkeys", -1) = -1 then Settings.SetValue("Nitro", "Hotkeys", Keys.LShiftKey)
		if Settings.GetValueKey("Nitro_boat_bike", "Hotkeys", -1) = -1 then Settings.SetValue("Nitro_boat_bike", "Hotkeys", Keys.MButton)
        If Settings.GetValueKey("SuperHidraulics", "Hotkeys", -1) = -1 Then Settings.SetValue("SuperHidraulics", "Hotkeys", Keys.LControlKey)
        If Settings.GetValueKey("ShowHelp", "Hotkeys", -1) = -1 Then Settings.SetValue("ShowHelp", "Hotkeys", Keys.F1)
		if Settings.GetValueKey("Max_floating_peds", "General", -1) = -1 then Settings.SetValue("Max_floating_peds", "General", 20)
		if Settings.GetValueKey("Max_floating_vehicles", "General", -1) = -1 then Settings.SetValue("Max_floating_vehicles", "General", 20)
		if Settings.GetValueKey("AutoHeal", "General", -1) = -1 then Settings.SetValue("AutoHeal", "General", 1)
		if Settings.GetValueKey("FloatThings_follow_player", "General", -1) = -1 then Settings.SetValue("FloatThings_follow_player", "General", 1)
		if Settings.GetValueKey("Safe_Warp_to_Vehicle", "General", -1) = -1 then Settings.SetValue("Safe_Warp_to_Vehicle", "General", 0)
		if Settings.GetValueKey("getTargeted_Vehicle_around", "General", -1) = -1 then Settings.SetValue("getTargeted_Vehicle_around", "General", 1)
		if Settings.GetValueKey("getTargeted_Ped_around", "General", -1) = -1 then Settings.SetValue("getTargeted_Ped_around", "General", 1)
		if Settings.GetValueKey("getTargeted_Object_around", "General", -1) = -1 then Settings.SetValue("getTargeted_Object_around", "General", 1)
		if Settings.GetValueKey("getTargeted_Helicopter_around", "General", -1) = -1 then Settings.SetValue("getTargeted_Helicopter_around", "General", 3)
		if Settings.GetValueKey("Hidraulics_Force", "General", -1) = -1 then Settings.SetValue("Hidraulics_Force", "General", 7)
		
		settings.save
		
		hkThrowAuto = Settings.GetValueKey("Skill_ThrowAuto", "Hotkeys", Keys.D1)
		hkFloatThings = Settings.GetValueKey("Skill_FloatThings", "Hotkeys", Keys.D2)
		hkThrowFloatThings = Settings.GetValueKey("Skill_ThrowFloatingThings", "Hotkeys", Keys.D3)
		hkWarpVehicle = Settings.GetValueKey("Skill_WarpToVehicle", "Hotkeys", Keys.D4)
		hkWarpAnywhere = Settings.GetValueKey("Skill_WarpToAnywhere", "Hotkeys", Keys.D5)
		hkWarpWaypoint = Settings.GetValueKey("Skill_WarpToWaypoint", "Hotkeys", Keys.D6)
		keyNitro = Settings.GetValueKey("Nitro", "Hotkeys", Keys.LShiftKey)
		keyNitroBoatBike = Settings.GetValueKey("Nitro_boat_bike", "Hotkeys", Keys.MButton)
		keyHidraulics = Settings.GetValueKey("SuperHidraulics", "Hotkeys", Keys.LControlKey)
		keySlowMotion = Settings.GetValueKey("SlowMotion", "Hotkeys", Keys.LMenu)
        keyAim = Settings.GetValueKey("Aim", "Hotkeys", Keys.RButton)
        keyHelp = Settings.GetValueKey("ShowHelp", "Hotkeys", Keys.F1)
		maxFloatPed = Settings.GetValueKey("Max_floating_peds", "General", 20) - 1
		maxFloatVehicle = Settings.GetValueKey("Max_floating_vehicles", "General", 20) - 1
		bAutoHeal = Settings.GetValueKey("AutoHeal", "General", 1) = 1
		bFloatThingsFollowPl = Settings.GetValueKey("FloatThings_follow_player", "General", 1) = 1
		bSafeWarpToVehicle = Settings.GetValueKey("Safe_Warp_to_Vehicle", "General", 0) = 1
		DistTargetVehicle = Settings.GetValueKey("getTargeted_Vehicle_around", "General", 1)
		DistTargetPed = Settings.GetValueKey("getTargeted_Ped_around", "General", 1)
		DistTargetObj = Settings.GetValueKey("getTargeted_Object_around", "General", 1)
		DistTargetHelicopter = Settings.GetValueKey("getTargeted_Helicopter_around", "General", 3)
		HidraulicsForce = Settings.GetValueKey("Hidraulics_Force", "General", 7)
		
		redim pedFloatArray(maxFloatPed)
		redim vehFloatArray(maxFloatVehicle)
    End Sub
		
	private sub msg(smsg as string, duracao as int32)
		Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", smsg, duracao, 1)
	end sub	
	
	private function random(min as int32, max as int32)
		dim rnd as random = new random(System.DateTime.Now.Millisecond)
		random = rnd.next(min, max)
    end function
	
	private sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand		
        'if e.command = "teclas" then
        'showKeyCode = Not showKeyCode

        'msg("Mostra teclas: " & Convert.ToString(showKeyCode), 2000)
        'end if

        If e.Command = "TK" Then
            SOn = Not SOn

            If Not SOn Then
                msg("Telekinesis powers OFF", 3000)
            Else
                msg("Telekinesis powers ON", 3000)
            End If
        End If
	end sub
	
	private sub waitEx(time as int32)
		dim c as double = 0
		
		while c < time
			c += me.interval * 1.5
			wait(me.interval)
			
			Geral_tick(nothing, nothing)
		end while
	end sub
	
    Private Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        If Not SOn Then Exit Sub

        If e.Key = 9 Then
            If bFloatThingsFollowPl Then
                bFloatThingsFollowPl = False
                msg("FloatThings dont follow player...", 3000)
                Settings.SetValue("FloatThings_follow_player", "General", 0)
            Else
                bFloatThingsFollowPl = True
                msg("FloatThings will follow player...", 3000)
                Settings.SetValue("FloatThings_follow_player", "General", 1)
            End If

            Settings.Save()
        End If

        If e.Key = hkWarpAnywhere And Game.isKeyPressed(keyAim) Then bPreviewWarpPos = True

        'car jump
        If e.Key = keyHidraulics Then
            If Exists(Player.Character.CurrentVehicle) andalso not Player.Character.CurrentVehicle.model.isboat AndAlso _
			   Player.Character.CurrentVehicle.isOnAllWheels Then
                msg("Hidraulics? Yeah", 3000)

                Native.Function.Call("Apply_Force_To_Car", Player.Character.CurrentVehicle, True, 0, 0, HidraulicsForce, 0, 0, 0, False, False, False, True)
            End If
        End If

        If e.Key = hkThrowAuto And Game.isKeyPressed(keyAim) Then
            If Not ThrowAutoPed() Then
                If Not ThrowAutoVeh() Then ThrowAutoHeli()
            End If
        End If
        If e.Key = hkFloatThings And Game.isKeyPressed(keyAim) Then FloatThings()
        If e.Key = hkThrowFloatThings And Game.isKeyPressed(keyAim) Then 'set targets to Float
            vehAlvoThrow = targetedVehicle(2.0F, 200.0F, DistTargetVehicle)
            If Exists(vehAlvoThrow) AndAlso (Not vehAlvoThrow.isOnScreen Or vehAlvoThrow.Metadata.float) Then vehAlvoThrow = Nothing

            pedAlvoThrow = targetedPed(2.0F, 100.0F, DistTargetPed, False, 0)
            If Exists(pedAlvoThrow) AndAlso (Not pedAlvoThrow.isOnScreen Or pedAlvoThrow.Metadata.float) Then pedAlvoThrow = Nothing
        End If
        If e.Key = hkWarpVehicle And Game.isKeyPressed(keyAim) Then myWarpToVehicle()

        If e.Key = keyHelp Then bShowHelp = Not bShowHelp

        'show key codes
        If showKeyCode Then msg("key: " & Convert.ToInt32(e.KeyWithModifiers), 1000)
    End Sub
    Private Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
        If Not SOn Then Exit Sub

        If (e.Key = hkWarpAnywhere) And Game.isKeyPressed(keyAim) Then
            bPreviewWarpPos = False
            WarpToGround(1.0F, 1000.0F, 1.0F)
        End If

        If (e.Key = hkWarpWaypoint) And Not Game.isKeyPressed(keyAim) Then telToWayPoint()

        If Not Game.isKeyPressed(hkWarpAnywhere) Or Not (e.Key = keyAim) Then
            bPreviewWarpPos = False
            chkWarp.Visible = False
        End If

        If e.Key = hkThrowFloatThings Then
            If bClearArray Then
                bClearArray = False

                Try
                    If Exists(vehAlvoThrow) Then
                        vehAlvoThrow.NoLongerNeeded()
                        vehAlvoThrow.Metadata.float = False
                        vehAlvoThrow.Metadata.launched = False
                    End If
                    If Exists(pedAlvoThrow) Then
                        pedAlvoThrow.NoLongerNeeded()
                        pedAlvoThrow.Metadata.float = False
                        pedAlvoThrow.Metadata.launched = False
                    End If

                    vehAlvoThrow = Nothing
                    pedAlvoThrow = Nothing

                    For i = 0 To maxFloatVehicle
                        If Exists(vehFloatArray(i)) Then
                            vehFloatArray(i).NoLongerNeeded()
                            vehFloatArray(i).Metadata.float = False
                            vehFloatArray(i).Metadata.launched = False
                            vehFloatArray(i).FreezePosition = False
                            vehFloatArray(i).ApplyForce(vehFloatArray(i).Position.RelativeTop)
                        End If

                        vehFloatArray(i) = Nothing
                    Next i

                    For i = 0 To maxFloatPed
                        If Exists(pedFloatArray(i)) Then
                            pedFloatArray(i).NoLongerNeeded()
                            pedFloatArray(i).Metadata.float = False
                            pedFloatArray(i).Metadata.launched = False
                            pedFloatArray(i).FreezePosition = False
                            pedFloatArray(i).ApplyForce(pedFloatArray(i).Position.RelativeTop)
                        End If

                        pedFloatArray(i) = Nothing
                    Next i
                Catch
                End Try
            End If
        End If
    End Sub
	
    Private Sub telToWayPoint()
        If Not bTelToWaypoint Then
            bTelToWaypoint = True
            Exit Sub
        End If

        If bTelToWaypointInProgress Then
            bTelToWaypointInProgress = False
            Exit Sub
        End If

        Dim vec, vecTmp, vecDest As Vector3
        Dim ultValor
        Dim zMulti = 1

        If Exists(Game.GetWaypoint) Then
            vecDest = Game.GetWaypoint.Position
			vecDest.z += 2

            Player.Character.Invincible = True

            If Exists(Player.Character.CurrentVehicle) Then
                Player.Character.CurrentVehicle.CanBeDamaged = False
                Player.Character.WillFlyThroughWindscreen = False
            End If

            vecTmp = Player.Character.Position + ((vecDest - Player.Character.Position) / 2)
            vecTmp.Z = Player.Character.Position.Z + vecDest.DistanceTo(Player.Character.Position) / 5

            vec = Player.Character.Position
            vec.Z += 5

            If Not Exists(Player.Character.CurrentVehicle) Then
                ultValor = 100000

                Player.Character.forceragdoll(2000, true)

                While True
                    Wait(20)

                    If (zMulti = 1) And (Player.Character.Position.DistanceTo(vecTmp) > ultValor) Then Exit While

                    If Game.isKeyPressed(hkWarpWaypoint) Then
                        bTelToWaypointInProgress = True
                        zMulti = 20
                    Else
                        zMulti = 1
                    End If

                    vec = (vecTmp - Player.Character.Position) / 2

                    vec.Z *= zMulti

                    If Exists(Player.Character.CurrentVehicle) Then
                        Native.Function.Call("Apply_Force_To_Car", Player.Character.CurrentVehicle, True, vec.X, vec.Y, vec.Z, 0, 0, 0, False, False, False, True)
                    Else
						While vec.DistanceTo(vec.Zero) > 450
							vec /= 1.2
						End While
						While vec.DistanceTo(vec.Zero) < 400
							vec *= 1.2
						End While

                        Player.Character.Velocity = vec
						Native.Function.Call("Apply_Force_To_Ped", Player.Character, True, 0, 0, 1f, 0, 0, 1f, False, False, False, True)
                    End If

            ultValor = Player.Character.Position.DistanceTo(vecTmp)

            msg("Hold tight... you will fly", 3000)
                End While
            End If

            ultValor = 100000

            Player.Character.forceragdoll(2000, true)

            While True
                Wait(20)

                If (zMulti = 1) And (Player.Character.Position.DistanceTo(vecDest) > ultValor) Then Exit While

                If Game.isKeyPressed(hkWarpWaypoint) Then
                    bTelToWaypointInProgress = True
                    zMulti = -20
                Else
                    zMulti = 1
                End If

                vec = (vecDest - Player.Character.Position) / 2

                vec.Z *= zMulti

                If Exists(Player.Character.CurrentVehicle) Then
                    Native.Function.Call("Apply_Force_To_Car", Player.Character.CurrentVehicle, True, vec.X, vec.Y, vec.Z, 0.0F, 0.0F, 5.0F, False, False, False, True)
                Else
					While vec.DistanceTo(vec.Zero) > 350
						vec /= 1.2
					End While
					While vec.DistanceTo(vec.Zero) < 200
						vec *= 1.2
					End While
					
					Player.Character.Velocity = vec
                End If

                If Exists(Player.Character.CurrentVehicle) AndAlso (Player.Character.Position.DistanceTo(World.GetGroundPosition(Player.Character.Position)) < 5) Then
                    For Each vAux As Vehicle In World.GetVehicles(Player.Character.Position, 10.0F)
                        If Exists(vAux) AndAlso (Not vAux.Metadata.flying) AndAlso (vAux <> Player.Character.CurrentVehicle) Then
                            vAux.Metadata.flying = True
                            vec = (vAux.Position - (Player.Character.CurrentVehicle.Position + Game.CurrentCamera.Direction)) * 3
                            vAux.PetrolTankHealth = -1
                            Native.Function.Call("Apply_Force_To_Car", vAux, True, vec.X, vec.Y, 5.0F, 5.0F, 5.0F, 0, False, False, False, True)
                        End If
                    Next
					
					msg("Hold tight...", 3000)
				else
					msg("Hold more tight... you will fall", 3000)
                End If

                ultValor = Player.Character.Position.DistanceTo(vecDest)
            End While

            If Exists(Player.Character.CurrentVehicle) Then
                Player.Character.CurrentVehicle.FreezePosition = True
                Player.Character.CurrentVehicle.FreezePosition = False
                Native.Function.Call("Apply_Force_To_Car", Player.Character.CurrentVehicle, True, 2.0F, 2.0F, 3.0F, 0, 0, 0, False, False, False, True)
                Player.Character.CurrentVehicle.CanBeDamaged = False
            Else
                Player.Character.WillFlyThroughWindscreen = True
                Player.Character.FreezePosition = True
                Player.Character.FreezePosition = False
                Native.Function.Call("Apply_Force_To_Ped", Player.Character, True, 2.0F, 2.0F, 3.0F, 0, 0, 0, False, False, False, True)
                Player.Character.isRagdoll = False
            End If

            Player.Character.Invincible = False

            If Not Exists(Game.GetWaypoint) Then
                msg("Here we are", 3000)
            Else
                msg("D'OH. There is something in the way...", 3000)
            End If
        Else
            msg("Set the waypoint...", 3000)
        End If
    End Sub
	
	private sub FloatThings
		dim distV As Double = DistTargetVehicle
		dim distP as double = DistTargetPed
		dim vAux as vehicle
		dim pAux as ped
		dim vecAux as vector3        
		
        While Game.isKeyPressed(hkFloatThings) Andalso Game.isKeyPressed(keyAim)
            pAux = targetedPed(1F, 100.0F, distP, False, 0)

            If Exists(pAux) AndAlso (Not pAux.Metadata.float) Then
                If pedFloatCont < maxFloatPed Then
                    pedFloatCont += 1
                Else
                    pedFloatCont = 0
                End If

                vecAux = pAux.Position
                vecAux.z += 7
                pAux.Metadata.pos = vecAux
                pAux.Metadata.float = True
                pAux.DropCurrentWeapon()
                pAux.Weapons.RemoveAll()
				if exists(pedFloatArray(pedFloatCont)) then pedFloatArray(pedFloatCont).metadata.float = false
                pedFloatArray(pedFloatCont) = pAux

                msg("Float my dear", 3000)
			Else
                vAux = targetedVehicle(1F, 200.0F, distV)

                If Exists(vAux) AndAlso (Not vAux.Metadata.float) Then
                    If vehFloatCont < maxFloatVehicle Then
                        vehFloatCont += 1
                    Else
                        vehFloatCont = 0
                    End If

                    vecAux = vAux.Position
                    vecAux.z += 15
                    vAux.Metadata.pos = vecAux
                    vAux.Metadata.float = True
					vAux.canbedamaged = false
					vAux.metadata.FloatzPos = 100
					if exists(vehFloatArray(vehFloatCont)) then vehFloatArray(vehFloatCont).metadata.float = false
                    vehFloatArray(vehFloatCont) = vAux

                    For Each pAux In World.GetPeds(vAux.Position, 3.0F)
                        If pAux <> Player.Character Then pAux.Task.LeaveVehicleImmediately(vAux)
                    Next

                    msg("Float my dear", 3000)
                End If
            End If

            If Game.isKeyPressed(hkFloatThings) And Game.isKeyPressed(keyAim) Then 
				WaitEx(500)
				distV = 3
				distP = 3
			end if
        End While
    End sub
	
	private sub ThrowThings
		dim vecAux as vector3		
			
		for each vehAux as vehicle in vehFloatArray
			if exists(vehAux) andalso not vehAux.metadata.launched then	
				if exists(vehAlvoThrow) then					
					vecAux = (vehAlvoThrow.position - vehAux.position) * 15
					vehAux.PetrolTankHealth = -1
					vehAux.canbedamaged = true
					
					if vehAux.position.distanceto(vehAlvoThrow.position) < 10 then 
						vehAux.metadata.launched = true						
					end if
					
					msg("Throwing to targeted vehicle", 3000)
				elseif exists(pedAlvoThrow) then					
					vecAux = (pedAlvoThrow.position - vehAux.position) * 15					
					vehAux.PetrolTankHealth = -1
					vehAux.canbedamaged = true
						
					if vehAux.position.distanceto(pedAlvoThrow.position) < 10 then
						pedAlvoThrow.freezeposition = true
                        pedAlvoThrow.FreezePosition = False
                        pedAlvoThrow.ApplyForce(pedAlvoThrow.Position.RelativeTop)
						pedAlvoThrow.isragdoll = true
						vehAux.metadata.launched = true						
					end if
					
					msg("Throwing to targeted ped", 3000)
				else
					msg("Set the target...", 3000)
					exit sub
				end if
				
				bClearArray = true
				
				if not vehAux.metadata.prelaunched then 
					vehAux.metadata.prelaunched = true
					vehAux.freezeposition = true
					vehAux.freezeposition = false
				end if
				
				vehAux.metadata.float = false				
				vehAux.freezeposition = false
				
				Native.Function.Call("Apply_Force_To_Car", vehAux, True, vecAux.x, vecAux.y, vecAux.z - 3, 0, 5f, 0, False, False, False, True)	
			end if
		next
		
		for each pedAux as ped in pedFloatArray
			if exists(pedAux) andalso not pedAux.metadata.launched then	
				if exists(vehAlvoThrow) then
					vecAux = (vehAlvoThrow.position - pedAux.position) * 15
					
					if pedAux.position.distanceto(vehAlvoThrow.position) < 3 then pedAux.metadata.launched = true
					
					msg("Throwing to targeted vehicle", 3000)
				elseif exists(pedAlvoThrow) then
					vecAux = (pedAlvoThrow.position - pedAux.position) * 15
					
					if pedAux.position.distanceto(pedAlvoThrow.position) < 2 then 
						pedAlvoThrow.freezeposition = true
                        pedAlvoThrow.FreezePosition = False
                        pedAlvoThrow.ApplyForce(pedAlvoThrow.Position.RelativeBottom)
						pedAlvoThrow.isragdoll = true
						pedAux.metadata.launched = true
					end if
					
					msg("Throwing to targeted ped", 3000)
				else
					msg("Set the target...", 3000)
					exit sub
				end if	
				
				bClearArray = true
				
				if not pedAux.metadata.prelaunched then 
					pedAux.metadata.prelaunched = true
					pedAux.freezeposition = true
                    pedAux.FreezePosition = False
                    pedAux.ApplyForce(pedAux.Position.RelativeTop)
				end if
					
				pedAux.metadata.float = false
				pedAux.forceragdoll(1000, true)
				pedAux.freezeposition = false
				
				Native.Function.Call("Apply_Force_To_Ped", pedAux, True, vecAux.x, vecAux.y, vecAux.z - 2, 0, 0, 0, False, False, False, True)					
			end if
		next
	end sub
	
	private sub myWarpToVehicle		
		dim vAux as vehicle
		dim pAux, pAux2 as ped
		dim vecAux as vector3
		
		try
            vAux = targetedVehicle(1.0, 200.0F, DistTargetVehicle)
			
			if exists(vAux) then 
				player.character.invincible = true
				
				vAux.PassengersLeaveVehicle(true)
				
				msg("''myWarp'' to vehicle", 3000)
				
				dim timeOut = 0
				
				if exists(player.character.currentvehicle) then					
					native.function.call("SET_PED_FORCE_FLY_THROUGH_WINDSCREEN", player.character)
					while exists(player.character.currentvehicle) andalso (timeOut < 5000)
						timeOut += 300
						waitEx(100)
					end while
					Native.Function.Call("Apply_Force_To_Ped",  player.character, True, 0, 0, 7f, 0, 0f, 0, False, False, False, True)
					wait(500)
					player.character.freezeposition = true
					player.character.freezeposition = false
				else						
					player.character.animation.play(animSetJump_Std, "jump_on_spot", 10.0, AnimationFlags.Unknown01)
					if GTAIVVersion then 
						waitEx(800) 
					else
						waitEx(200)
						Native.Function.Call("Apply_Force_To_Ped", player.character, True, 0, 0, 7f, 0, 0, 0, False, False, False, True)
						waitEx(200)
					end if
				end if
				
				timeOut = 0
				
				while exists(vAux) andalso ((player.character.position.distanceto(vAux.position) > 5) and (timeOut < 10000))
					player.character.isragdoll = true
					
					if exists(vAux) then 
						vecAux = (vAux.position - player.character.position + (vAux.velocity / 2)) * 3
						
						if vecAux.distanceto(vecAux.zero) < 5 then
							vecAux *= 1.5
						else
							while vecAux.distanceto(vecAux.zero) > 250
								vecAux /= 1.2
							end while
						end if
							
						player.character.velocity = vecAux
						
						if vAux.position.distanceto(player.character.position) < 30 then
							pAux = vAux.GetPedOnSeat(VehicleSeat.Driver)
							
							if exists(pAux) then												
								native.function.call("SET_PED_FORCE_FLY_THROUGH_WINDSCREEN", paux)
								waitEx(500)
								if exists(pAux) then pAux.die
								pAux = vAux.GetPedOnSeat(VehicleSeat.Driver)
								if exists(pAux) then
									vecAux = vAux.position
									vecAux.z += 5		
									pAux2 = world.createped(pAux.model, vecAux)
									pAUx.delete	
									wait(200)
									if exists(pAux2) then
										pAux2.forceragdoll(3000, false)								
										pAux2.applyforce(pAux2.position - vAux.position)
										pAux2.die
									end if
								end if
							end if
						end if
					end if
					
					wait(50)
					timeOut += 200
				end while
				
				player.character.isragdoll = false
				player.character.invincible = false
				
				if exists(vAux) then	
					pAux = vAux.GetPedOnSeat(VehicleSeat.Driver)
					if exists(pAux) then pAux.delete
					
					if bSafeWarpToVehicle then
						player.character.freezeposition = true
						player.character.freezeposition = false
						player.character.isragdoll = false
						wait(50)
						player.character.task.ClearAllImmediately
						wait(50)
						player.character.task.WarpIntoVehicle(vAux, VehicleSeat.Driver)
					else
						player.character.WarpIntoVehicle(vAux, VehicleSeat.Driver)
					end if
					
					if exists(vAux) then
						for each pAux in world.getpeds(vAux.position, 3f)
							if exists(pAux) andalso (pAux <> player.character) then 
								pAux.task.LeaveVehicleImmediately(vAux)
								
								if pAux.pedtype <> pedtype.cop then pAux.task.fleefromchar(player.character)
							end if
						next
					end if
					
					if not player.character.isinvehicle and not bSafeWarpToVehicle then 
						msg("D'OH!!! Fail", 3000)
						vAux.PassengersLeaveVehicle(true)
					end if					
				else
					msg("Too late to warp, it's gone", 3000)
				end if
			end if
		catch exc As Exception
			msg("D'OH, an error occurred...", 3000)
		end try
	end sub
	
	private function ThrowAutoPed		
		dim fx, fy, fz as double
		dim veh as vehicle = nothing
		dim bPedInVeh as boolean = false
		dim a as ped = nothing
		dim vecAux as vector3
		
		a = targetedPed(1f, 100f, DistTargetPed, false, 0)
		
		if not exists(a) orelse not a.isalive then return false
		
		msg("Your ride", 2000)
		
        For Each veh In World.GetVehicles(a.Position, 20.0)
            If Exists(veh) AndAlso Not veh.Metadata.used AndAlso Not veh.Model.isHelicopter AndAlso _
               (veh <> a.CurrentVehicle) AndAlso veh.isOnScreen Then
                Exit For
            Else
                veh = Nothing
            End If
        Next
		
		if not exists(veh) then
            For Each veh In World.GetVehicles(a.Position, 50.0)
                If Exists(veh) AndAlso Not veh.Metadata.used AndAlso Not veh.Model.isHelicopter AndAlso _
                    (veh <> a.CurrentVehicle) AndAlso veh.isOnScreen Then
                    Exit For
                Else
                    veh = Nothing
                End If
            Next
		end if
		
		if not exists(veh) andalso exists(a) then
			dim oAux as gta.object
			vecAux = a.position
			vecAux.z += 30
			oAux = world.createobject(&HFBCD74AB, vecAux)		
			wait(200)
			if exists(oAux) andalso exists(a) then
				oAux.applyforce((a.position - oAux.position) + a.velocity)
				
				while exists(a) andalso exists(oAux)
					if oAux.position.distanceto(oAux.position.toground) <= 2 then
						world.addexplosion(oAux.position)
						a.die
						exit while
					end if
					
					world.startfire(oAux.position)
					
					wait(5)
				end while
				
				world.ExtinguishFire(oAux.position, 100)
			end if
			
			exit function
		end if
			
        If Exists(veh) Then
            If veh = Player.Character.CurrentVehicle Then
                veh.CanBeDamaged = False
            Else
                veh.Metadata.used = True
            End If

            If Exists(a) AndAlso a.isInVehicle Then
                bPedInVeh = True

                If random(1, 5) < 3 Then
                    a.LeaveVehicle()
                Else
                    a.Die()
                End If
            End If

            World.AddExplosion(veh.Position, ExplosionType.Molotov, 0.001, True, False, 0)
            Wait(100)

            If veh <> Player.Character.CurrentVehicle Then veh.PetrolTankHealth = -1

            veh.FreezePosition = False
            Native.Function.Call("Apply_Force_To_Car", veh, True, 0, 0, 10.0F, 0, 0, 0, False, False, False, True)
            waitEx(500)
            If Exists(veh) Then Native.Function.Call("Apply_Force_To_Car", veh, True, 0, 0, 0, 0, 5.0F, 0, False, False, False, True)
            waitEx(500)
            If Exists(veh) Then Native.Function.Call("Apply_Force_To_Car", veh, True, 0, 0, 2.0F, 0, 0, 0, False, False, False, True)
            waitEx(500)

            If Exists(veh) Then
                If bPedInVeh OrElse Not Exists(a) Then
                    If Exists(veh) Then
                        veh.CanBeDamaged = False

                        Native.Function.Call("BREAK_CAR_DOOR", veh, 0, False)
                        Native.Function.Call("BREAK_CAR_DOOR", veh, 1, False)
                        Native.Function.Call("BREAK_CAR_DOOR", veh, 2, False)
                        Native.Function.Call("BREAK_CAR_DOOR", veh, 3, False)
                        Native.Function.Call("BREAK_CAR_DOOR", veh, 4, False)
                        Native.Function.Call("BREAK_CAR_DOOR", veh, 5, False)

                        Dim expAux As Double = veh.Position.DistanceTo(Player.Character.Position)

                        expAux = ((100 - ((expAux * 100) / 60)) / 550)

                        If Exists(a) Then
                            If bPedInVeh Then a.isOnFire = True
                        End If

                        World.AddExplosion(veh.Position, ExplosionType.Rocket, 1, True, False, expAux)
                        Native.Function.Call("Apply_Force_To_Car", veh, True, Convert.ToDouble(random(1, 2)), Convert.ToDouble(random(1, 2)), _
                           Convert.ToDouble(random(30, 60)), Convert.ToDouble(random(5, 10)), Convert.ToDouble(random(5, 10)), Convert.ToDouble(random(5, 10)), False, False, False, True)
                        Wait(100)
                        If veh <> Player.Character.CurrentVehicle Then veh.PetrolTankHealth = -1
                        waitEx(400)
                    End If

                    If Exists(veh) And (veh <> Player.Character.CurrentVehicle) Then veh.CanBeDamaged = True
                Else
                    If Exists(a) Then
                        fx = (veh.Position.X - a.Position.X) * -15
                        fy = (veh.Position.Y - a.Position.Y) * -15
                        fz = (veh.Position.Z - a.Position.Z) * -13

                        If Exists(veh) Then
                            veh.Health = -1
                            veh.EngineHealth = -1
                            If veh <> Player.Character.CurrentVehicle Then veh.PetrolTankHealth = -1
                            Native.Function.Call("Apply_Force_To_Car", veh, True, fx, fy, fz, 0, 0.0F, 0.0F, False, False, False, True)
                        Else
                            msg("Too far...", 1000)
                        End If
                    Else
                        msg("Too far...", 1000)
                    End If
                End If
            End If
        Else
            msg("Too far...", 1000)
        End If

        If Exists(veh) Then
            If veh = Player.Character.CurrentVehicle Then
                veh.EngineHealth = 1000
                veh.PetrolTankHealth = 1000
            End If

            veh.CanBeDamaged = True
        End If

        Return True
    End Function
	
	private function ThrowAutoVeh
		dim veh as vehicle = nothing
		
		veh = targetedVehicle(2f, 200f, DistTargetVehicle)
		
		if exists(veh) andalso ((veh = player.character.currentvehicle) orelse veh.model.ishelicopter) then veh = nothing
		
		if not exists(veh) then return false								
		
		msg("Rise and burn", 2000)
		
		world.addexplosion(veh.position, explosiontype.molotov, 0.001, true, false, 0)
		wait(100)
		veh.PetrolTankHealth = -1
		veh.freezeposition = false
		Native.Function.Call("Apply_Force_To_Car", veh, True, 0, 0, 10f, 0, 0, 0, False, False, False, True)					
		waitEx(500)
		if exists(veh) then Native.Function.Call("Apply_Force_To_Car", veh, True, 0, 0, 0, 0, 5f, 0, False, False, False, True)					
		waitEx(500)
		if exists(veh) then Native.Function.Call("Apply_Force_To_Car", veh, True, 0, 0, 2f, 0, 0, 0, False, False, False, True)					
		waitEx(500)
		
		if exists(veh) then 	 
			veh.CanBeDamaged = false
		
			Native.Function.Call("BREAK_CAR_DOOR", veh, 0, false)
			Native.Function.Call("BREAK_CAR_DOOR", veh, 1, false)
			Native.Function.Call("BREAK_CAR_DOOR", veh, 2, false)
			Native.Function.Call("BREAK_CAR_DOOR", veh, 3, false)
			Native.Function.Call("BREAK_CAR_DOOR", veh, 4, false)
			Native.Function.Call("BREAK_CAR_DOOR", veh, 5, false)	
			
			dim expAux as double = veh.position.distanceto(player.character.position)
				
			expAux = ((100 -((expAux * 100) / 60)) / 550)
						
			world.addexplosion(veh.position, explosiontype.rocket, 1, true, false, expAux)									
			Native.Function.Call("Apply_Force_To_Car", veh, True, convert.todouble(random(1, 2)), convert.todouble(random(1, 2)), convert.todouble(random(30, 60)), convert.todouble(random(5, 10)), convert.todouble(random(5, 10)), convert.todouble(random(5, 10)), False, False, False, True)	
			wait(100)
			veh.PetrolTankHealth = -1
			waitEx(400)	
		
			if exists(veh) then	veh.CanBeDamaged = true
		else
			msg("Too far...", 1000)
		end if
		
		return true
	end function
	
	private function ThrowAutoHeli		
		dim veh as vehicle = nothing
		dim a as ped = nothing
		dim vecAux, force as vector3
		dim vHeli as vehicle = nothing
		dim AtackCont as int32 = 5
		
		if not exists(vHeli) then vHeli = targetedVehicle(2f, 300f, DistTargetHelicopter)

		if exists(vHeli) andalso ((vHeli = player.character.currentvehicle) orelse not vHeli.model.ishelicopter) then vHeli = nothing
		
		if not exists(vHeli) then return false
			
		for each veh in world.getvehicles(player.character.position, 60f)
			if exists(veh) andalso (veh <> vHeli) andalso veh.isalive andalso (veh <> player.character.currentvehicle) andalso not veh.metadata.isHeliKiller then
				exit for					
			else
				veh = nothing
			end if
		next
		
		if not exists(veh) then 					
			vecAux = player.character.direction
			vecAux.x = vecAux.x * -5 + player.character.position.x 
			vecAux.y = vecAux.y * -5 + player.character.position.y 
			vecAux.z = vecAux.z + player.character.position.z
			veh = world.createvehicle(vecAux)
		end if
			
		if exists(veh) then			
			veh.metadata.isHeliKiller = true
			
			msg("Heli down?", 2000)	
				
			veh.health = -1
			veh.enginehealth = -1
			veh.PetrolTankHealth = -1
			
			a = world.getclosestped(veh.position, 1f)
			
			if exists(a) then a.die
			
			veh.freezeposition = false
			Native.Function.Call("Apply_Force_To_Car", veh, True, 0, 0, 20f, 0, 0.0F, 0.0F, False, False, False, True)
			waitEx(1000)
			if exists(veh) then world.addexplosion(veh.position, explosiontype.default, 0.01, true, false, 0)	
			
			if exists(vHeli) then AtackCont = vheli.position.distanceto(player.character.position)
			
			msg("They have a Helicopter, i have telekinesis", 3000)
			
			while atackCont > 0						
				if exists(vHeli) then
					force = vHeli.position - veh.position					
					force.x = force.x * 230
					force.y = force.y * 230
					force.z = force.z * 230
					Native.Function.Call("Apply_Force_To_Car", veh, True, force.x, force.y, force.z, 0, 0.0F, 0.0F, False, False, False, True)
					atackCont -= 10
					wait(50)
				else
					exit while
				end if
			end while
		end if
		
		return true
	end function
		
	private function targetedObj(distMin as double, distMax as double, dist as double, optional ignoreTaged as boolean = true)
		dim vecPl, direction  as vector3	
		dim objAlvo as gta.object = nothing
		dim o as gta.object()
		dim distAux, distDif as double

		o = world.getallobjects
			
		direction = game.currentcamera.direction / 2
		
		if exists(player.character.currentvehicle) andalso (player.character.currentvehicle.model.ishelicopter orelse _
		    (player.character.currentvehicle.position.distanceto(player.character.currentvehicle.position.toground) > 3)) then
			direction.z += 0.12
			dist += 2
		else
			if exists(player.character.currentvehicle) andalso not player.character.currentvehicle.model.isbike then direction.z += 0.02
		end if
		
		if exists(player.character.currentvehicle) then			
			vecPl = game.currentcamera.position + (direction * 7)
		else
			vecPl = game.currentcamera.position + (direction)
		end if
		
		distDif = vecpl.distanceto(vecPl + direction)
		distAux = distDif
		
		while distAux <= distMax		
			vecPl += direction
			distAux += distDif
			
			for each objAlvo in o
				if exists(objAlvo) andalso (objAlvo.position.distanceto(vecPl) <= dist) andalso (objAlvo.position.distanceto(player.character.position) >= distMin) andalso _
				   (objAlvo.position.distanceto(player.character.position) <= distMax) andalso (objAlvo.position.distanceto(player.character.position) >= distMin) andalso _
				   (not ignoreTaged orelse (ignoreTaged andalso not objAlvo.metadata.ignored))then
					exit while
				else
					objAlvo = nothing
				end if
			next
			
			objAlvo = nothing
		end while
		
		return objAlvo
	end function
	
	private function targetedVehicle(distMin as double, distMax as double, dist as double, optional ignoreTaged as boolean = true)
		dim vecPl, direction as vector3
		dim vehAlvo as vehicle = nothing
        Dim distAux, distDif As Double

        If bAchouVeh Then
            TargetedVehAutoIncDist = distMax
        Else
            If TargetedVehAutoIncDist < 500 Then TargetedVehAutoIncDist += 50
            distMax = TargetedVehAutoIncDist
        End If
	
		direction = game.currentcamera.direction / 2
		
		if exists(player.character.currentvehicle) andalso (player.character.currentvehicle.model.ishelicopter orelse _
		    (player.character.currentvehicle.position.distanceto(player.character.currentvehicle.position.toground) > 3)) then
			direction.z += 0.12
			dist += 2
		else
			if exists(player.character.currentvehicle) andalso not player.character.currentvehicle.model.isbike then direction.z += 0.02
		end if
		
		if exists(player.character.currentvehicle) then			
			vecPl = game.currentcamera.position + (direction * 7)
		else
			vecPl = game.currentcamera.position + (direction)
		end if
		
		distDif = vecpl.distanceto(vecPl + direction)
		distAux = distDif
		
		while distAux <= distMax		
			vecPl += direction
			distAux += distDif
			
			for each vehAlvo in world.getvehicles(vecPl, dist)
                If Exists(vehAlvo) AndAlso (vehAlvo <> Player.Character.CurrentVehicle) AndAlso _
                   ((Not ignoreTaged) OrElse (ignoreTaged AndAlso Not vehAlvo.Metadata.ignore)) AndAlso _
                   (vehAlvo.Position.DistanceTo(Player.Character.Position) >= distMin) Then
                    Exit While
                Else
                    vehAlvo = Nothing
                End If
			next
		end while

        bAchouVeh = Exists(vehAlvo)

		return vehAlvo
	end function
	
	private function targetedPed(distMin as double, distMax as double, dist as double, inCarToo as boolean, mode as int32, _
	   optional aliveOnly as boolean = true, optional ignoreTaged as boolean = true)
		dim pedAlvo as ped = nothing
		dim vecPl, direction as vector3
		dim distAux, distDif as double
	
		direction = game.currentcamera.direction / 2
		
		if exists(player.character.currentvehicle) andalso (player.character.currentvehicle.model.ishelicopter orelse _
		    (player.character.currentvehicle.position.distanceto(player.character.currentvehicle.position.toground) > 3)) then
			direction.z += 0.12
			dist += 2
		else
			if exists(player.character.currentvehicle) andalso not player.character.currentvehicle.model.isbike then direction.z += 0.02
		end if
		
		if exists(player.character.currentvehicle) then			
			vecPl = game.currentcamera.position + (direction * 7)
		else
			vecPl = game.currentcamera.position + (direction)
		end if
		
		distDif = vecpl.distanceto(vecPl + direction)
		distAux = distDif
		
		while distAux <= distMax		
			vecPl += direction
			distAux += distDif
			
			for each pedAlvo in world.getpeds(vecPl, dist)
				if exists(pedAlvo) andalso (pedAlvo <> player.character) andalso (inCarToo orelse not pedAlvo.isinvehicle) andalso _
				   (pedAlvo.position.distanceto(player.character.position) >= distMin) andalso _
				   ((mode = 0) orelse (player.istargetting(pedAlvo))) andalso (not aliveOnly orelse (aliveOnly andalso pedAlvo.isalive)) andalso _
				   (not ignoreTaged orelse (ignoreTaged andalso not pedAlvo.metadata.ignore))	then
					exit while
				else
					pedAlvo = nothing
				end if
			next
		end while
		
		return pedAlvo
	end function
	
	private function WarpToGround(distMin as double, distMax as double, dist as double)
		dim vecPl, vecAux, direction, vecThrowVeh as vector3
		dim timeOut, ultDist as int32
		
		bTelToWaypoint = false
		
		direction = game.currentcamera.direction / 2
		
		if exists(player.character.currentvehicle) andalso (player.character.currentvehicle.model.ishelicopter orelse _
		    (player.character.currentvehicle.position.distanceto(player.character.currentvehicle.position.toground) > 3)) then
			direction.z += 0.12
			dist += 2
		else
			if exists(player.character.currentvehicle) andalso not player.character.currentvehicle.model.isbike then direction.z += 0.02
		end if
		
		if exists(player.character.currentvehicle) then			
			vecPl = game.currentcamera.position + (direction * 7)
		else
			vecPl = game.currentcamera.position + (direction)
		end if
		
		vecPl = game.currentcamera.position + direction
		
		while vecPl.distanceto(player.character.position) < distMax			
			vecPl += direction
			
			if (vecPl.distanceto(world.getgroundposition(vecPl, GroundType.highest)) < 1) andalso (vecPl.distanceto(player.character.position) > 10) andalso (world.getgroundz(vecPl) > 1) then	
				if bPreviewWarpPos then
					chkWarp.position = vecPl
					chkWarp.visible = true
					
					if vecPl.distanceto(player.character.position) > 200 then
						chkWarp.diameter = 4
					else
						chkWarp.diameter = 2
					end if
				else		
					if not exists(player.character.currentvehicle) then
						direction *= 2
					else
						direction *= 4
					end if
					
					vecPl.x += direction.x
					vecPl.y += direction.y
					vecPl.z += 2
					
					timeOut = 0
					
					player.character.invincible = true
					player.character.freezeposition = false
					if exists(player.character.currentvehicle) then player.character.currentvehicle.freezeposition = false
					
					if exists(player.character.currentvehicle) then player.character.currentvehicle.canBeDamaged = false
					
					msg("''myWarp'' to anywhere", 5000)
					
					vecAux.x = 0
					vecAux.y = 0
					vecAux.z = 10
					
					if player.character.isinvehicle then
						player.character.currentvehicle.velocity = vecAux
						waitEx(1000)
					else	
						if not player.character.isragdoll then
							player.character.animation.play(animSetJump_Std, "jump_on_spot", 10.0, AnimationFlags.Unknown01)
							
							if GTAIVVersion then 
								waitEx(800) 
							else
								waitEx(200)
								Native.Function.Call("Apply_Force_To_Ped", player.character, True, 0, 0, 7f, 0, 0, 0, False, False, False, True)
								waitEx(200)
							end if							
						end if
						
						player.character.velocity = vecAux
					end if
					
					player.character.forceragdoll(10000, true)
					 
					ultDist = 10000
					 
					while (player.character.position.distanceto(vecPl) >= 1) andalso (timeOut < 10000)						
						if ultDist < player.character.position.distanceto(vecPl) then
							exit while
						else
							ultDist = player.character.position.distanceto(vecPl)
						end if
						
						if player.character.isinvehicle then
							player.character.currentvehicle.applyforce(vecPl - player.character.position)
						else							
							vecAux = (vecPl - player.character.position) * 5
							
							if vecAux.distanceto(vecAux.zero) < 5 then
								vecAux *= 1.5
							else
								while vecAux.distanceto(vecAux.zero) > 250
									vecAux /= 1.2
								end while
							end if
							
							player.character.velocity = vecAux
						end if
						
						timeOut += 120
						
						player.character.isragdoll = true
						
						wait(100)
					end while					
					
					if exists(player.character.currentvehicle) then						
						if player.character.currentvehicle.position.distanceto2d(vecPl + direction) >= 5 then	
							player.character.currentvehicle.position = vecpl
						else
							player.character.currentvehicle.freezeposition = true
							player.character.currentvehicle.freezeposition = false
							player.character.currentvehicle.applyforce(player.character.currentvehicle.position.RelativeBottom)
						end if
					else
						if player.character.position.distanceto(vecPl) >= 2 then						
							player.character.position = vecpl					
						else
							player.character.velocity = player.character.velocity.zero
						end if
					end if
					
					chkWarp.visible = false
					
					player.character.isragdoll = false
					player.character.invincible = false
					
					if exists(player.character.currentvehicle) then player.character.currentvehicle.canBeDamaged = true
				end if
				
				return true
			else
				chkWarp.visible = false
			end if
		end while
		
		return false
	end function
		
	private sub targetedFloor
		if game.iskeypressed(keyAim) andalso exists(player.character.currentvehicle) andalso _
		   (player.character.currentvehicle.model.ishelicopter orelse _
		    player.character.currentvehicle.position.distanceto(player.character.currentvehicle.position.toground) > 3) then
			dim vecPl, direction as vector3
			
			direction = game.currentcamera.direction / 2
			direction.z += 0.12
			
			vecPl = game.currentcamera.position + direction
			
			while vecPl.distanceto(player.character.position) < 250				
				vecPl += direction
				
				if (vecPl.distanceto(world.getgroundposition(vecPl, GroundType.lowest)) < 1) orelse _
				   (vecPl.distanceto(world.getgroundposition(vecPl, GroundType.highest)) < 1) then	
					vecPl.z -= 1
					chkWarp.position = vecPl
					chkWarp.visible = true
					exit while
				end if
			end while
		end if
	end sub
	
    Private Sub Geral_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        If Not SOn Then Exit Sub

        Dim vecAux, vecGround As Vector3

        targetedFloor()

        If Game.isKeyPressed(keySlowMotion) Then
            Game.TimeScale = 0.3
            msg("Hey, slow down...", 500)
        Else
            Game.TimeScale = 1.0
        End If

        'WarpToGround "tick"
        If bPreviewWarpPos Then WarpToGround(1.0F, 1000.0F, 1.0F)
		
        'ThrowThings "tick"
        Try
            If Game.isKeyPressed(hkThrowFloatThings) And Game.isKeyPressed(keyAim) Then ThrowThings()
        Catch
        End Try

        'float peds
        For Each pAux As Ped In pedFloatArray
            If Exists(pAux) AndAlso pAux.Metadata.float Then
                If bFloatThingsFollowPl Then
                    vecAux = ((Player.Character.Position - pAux.Position) / pAux.Position.DistanceTo(Player.Character.Position)) * 1.5
                    vecGround = Player.Character.Position.ToGround
                    vecGround.X = pAux.Position.ToGround.X
                    vecGround.Y = pAux.Position.ToGround.Y

                    If (pAux.Position.DistanceTo(vecGround) < 10) Then
                        vecAux.Z += 3
                    ElseIf (pAux.Position.DistanceTo(vecGround) < 15) Then
                        vecAux.Z += 1.2
                    Else
                        If vecAux.Z < 0 Then
                            vecAux.Z = 1.1
                        ElseIf pAux.Position.Z < Player.Character.Position.Z Then
                            vecAux.Z = 1.2
                        End If
                    End If
                Else
                    vecAux = (pAux.Metadata.pos - pAux.Position) / 2
                End If

                pAux.isRagdoll = True

                If Not pAux.Metadata.ragDoll Then
                    pAux.Metadata.ragDoll = True
                Else
                    If Not pAux.isRagdoll And pAux.isAlive Then pAux.Die()
                End If

                If bFloatThingsFollowPl Then
                    If (pAux.Position.DistanceTo2D(Player.Character.Position) > 30) AndAlso Not pAux.Metadata.freezewhenclose Then pAux.Metadata.freezewhenclose = True

                    If pAux.Metadata.freezewhenclose AndAlso (pAux.Position.DistanceTo2D(Player.Character.Position) < 10) Then
                        pAux.Metadata.freezewhenclose = False
                        pAux.FreezePosition = True
                        pAux.FreezePosition = False
                        pAux.ApplyForce(pAux.Position.RelativeTop)
                    End If

                    Native.Function.Call("Apply_Force_To_Ped", pAux, True, vecAux.X / 2, vecAux.Y / 2, vecAux.Z, 0, 0, 0, False, False, False, True)
					
					If ((pAux.Position.Z - Player.Character.Position.Z) > 3) AndAlso (pAux.Position.DistanceTo(vecGround) > 20) Then
						pAux.ApplyForce((Player.Character.Position - pAux.Position) / 100)
					End If
                Else
                    If vecAux.Z < 0 Then
                        vecAux.Z = 1
                    ElseIf vecAux.Z > 2 Then
                        vecAux.Z = 1.5
                    End If
                    Native.Function.Call("Apply_Force_To_Ped", pAux, True, 0, 0, vecAux.Z, 0, 0, 0, False, False, False, True)
                End If
            End If
        Next

        'float vehicles
        For Each vAux In vehFloatArray
            If Exists(vAux) AndAlso vAux.Metadata.float Then
                If bFloatThingsFollowPl Then
                    vecAux = Player.Character.Position
                    vecAux.Z += 5
                    vecAux = (vecAux - vAux.Position) / 20

                    If Exists(Player.Character.CurrentVehicle) AndAlso Player.Character.CurrentVehicle.Model.isHelicopter Then
                        vecGround = Player.Character.Position
                    Else
                        vecGround = Player.Character.Position.ToGround
                    End If

                    vecGround.Z += 15
                    vecGround.X = vAux.Position.ToGround.X
                    vecGround.Y = vAux.Position.ToGround.Y

                    If (vAux.Position.Z - Player.Character.Position.Z < 4) AndAlso (vAux.Position.Z - Player.Character.Position.Z > -3) Then
                        vAux.FreezePosition = True
                        vAux.FreezePosition = False
                        vAux.ApplyForce(vAux.Position.RelativeTop)
                        vecAux.Z = 5
                    ElseIf vAux.Position.Z < vecGround.Z Then
                        vecAux.Z = 2
                    ElseIf vecAux.Z < 0 Then
                        vecAux.Z = 1
                    End If

                    If (vAux.Position.DistanceTo2D(Player.Character.Position) > 20) AndAlso Not vAux.Metadata.freezewhenclose Then vAux.Metadata.freezewhenclose = True

                    If vAux.Metadata.freezewhenclose AndAlso (vAux.Position.DistanceTo2D(Player.Character.Position) < 10) Then
                        vAux.Metadata.freezewhenclose = False
                        vAux.ApplyForceRelative(vAux.Direction * -15)
                    End If

                    Native.Function.Call("Apply_Force_To_Car", vAux, True, vecAux.X, vecAux.Y, vecAux.Z, 0.1, 0, 0, False, False, False, True)

                    vecAux = Player.Character.Position
                    vecAux.Z += 5

                    If ((vAux.Position.Z - vecAux.Z) > 3) AndAlso (vAux.Position.DistanceTo(vecGround) > 30) Then
                        vAux.ApplyForce((Player.Character.Position - vAux.Position) / 100)
                    End If
                Else
                    vecAux = (vAux.Metadata.pos - vAux.Position) / 6
                    If vecAux.Z < 0 Then vecAux.Z = 0
                    Native.Function.Call("Apply_Force_To_Car", vAux, True, 0, 0, vecAux.Z, 0.1, 0, 0, False, False, False, True)
                End If

                If vAux.Metadata.pos.z < 40 Then
                    vecAux = vAux.Metadata.pos
                    vecAux.Z += 0.1
                    vAux.Metadata.pos = vecAux
                End If
            End If
        Next

        'teleport to waypoint aux, when hold the button
        If Game.isKeyPressed(hkWarpWaypoint) And Exists(Game.GetWaypoint) And Not Game.isKeyPressed(keyAim) Then
            If Exists(Player.Character.CurrentVehicle) Then
                Native.Function.Call("Apply_Force_To_Car", Player.Character.CurrentVehicle, True, 0, 0, 15.0F, 0, 0, 0, False, False, False, True)
            Else
                Player.Character.isRagdoll = True
                Player.Character.Invincible = True
                Player.Character.ApplyForce(Game.CurrentCamera.Direction * 10)

                If Not Player.Character.Metadata.freeze Then Player.Character.Metadata.freeze = True
            End If
        Else
            If Player.Character.Metadata.freeze Then
                Player.Character.Metadata.freeze = False
                Player.Character.FreezePosition = True
                Player.Character.FreezePosition = False
            End If
        End If

        HealthAndArmorRegeneration()

        Nitro()
    End Sub
	
    Private Sub HealthAndArmorRegeneration()
        If bAutoHeal Then
            If Player.Character.Health < 100 Then Player.Character.Health += 1.0
            If Player.Character.Armor < 100 Then Player.Character.Armor += 1.0
        End If
    End Sub
		
    Private Sub Nitro()
        Try
            If Player.Character.isInVehicle AndAlso (Game.isKeyPressed(keyNitro) orelse game.iskeypressed(keyNitroBoatBike)) AndAlso Not Game.isKeyPressed(keyAim) AndAlso Player.Character.CurrentVehicle.isOnAllWheels Then
                if (Player.Character.CurrentVehicle.model.isbike orelse Player.Character.CurrentVehicle.model.isboat) then
					if not game.iskeypressed(keyNitroBoatBike) then exit sub
					
					if not Player.Character.CurrentVehicle.model.isbike then
						Native.Function.Call("Apply_Force_To_car", Player.Character.CurrentVehicle, True, _
							Player.Character.CurrentVehicle.Velocity.X / 6, Player.Character.CurrentVehicle.Velocity.Y / 6, 0, 0, 0, -1.0, False, False, False, True)
					else
						Native.Function.Call("Apply_Force_To_car", Player.Character.CurrentVehicle, True, _
							Player.Character.CurrentVehicle.Velocity.X / 6, Player.Character.CurrentVehicle.Velocity.Y / 6, 0, 0, 0, 0, False, False, False, True)
					end if
				else
					Native.Function.Call("Apply_Force_To_car", Player.Character.CurrentVehicle, True, _
						Player.Character.CurrentVehicle.Velocity.X / 6, Player.Character.CurrentVehicle.Velocity.Y / 6, 0, 0, 0, -0.2, False, False, False, True)
				end if
				
                msg("Supernatural Nitro? Yeah", 250)
            End If
        Catch
        End Try
    End Sub
	
    Private Sub Draw(ByVal sender As Object, ByVal g As GTA.GraphicsEventArgs) Handles MyBase.PerFrameDrawing
        If Not SOn Then Exit Sub

        If bShowHelp Then
            g.Graphics.DrawText("Hold Aim key and press the skill key...", 10, 10)
            g.Graphics.DrawText("  Skill Key 1: Throw targeted ped/vehicle automatically", 10, 40)
            g.Graphics.DrawText("  Skill Key 2: Put ped/vehicle to float", 10, 65)
            g.Graphics.DrawText("  Skill Key 3: Throw floating things into a target", 10, 90)
            g.Graphics.DrawText("  Skill Key 4: Warp into targeted vehicle", 10, 115)
            g.Graphics.DrawText("  Skill Key 5: Hold to see the target, release to warp to targeted floor/ceil/whatever", 10, 140)
            g.Graphics.DrawText("  *Skill Key 6: Warp to waypoint, this don't need the Aim key pressed", 10, 165)
            g.Graphics.DrawText("To switch the float mode press Tab", 10, 200)
        End If
    End Sub
	
End Class