BasicScript10.vb

Imports System ' basic imports
Imports GTA ' basic imports
Imports System.Windows.Forms ' needed to have access to "keys" enumeration, for example
Imports System.Drawing ' needed to handle colors referencing the color name, ex: myCar.color = System.Drawing.Color.Black

Public Class BasicScript
    Inherits Script

    private v as vehicle = nothing

    Public Sub New()
        Me.interval = 10
    End Sub

    private sub msg(sMsg as string, time as int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
    end sub

    Private Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        if e.key = keys.d1 then
            player.character.euphoria.armsWindMill.DisableOnImpact = false
            player.character.euphoria.armsWindMill.start(1000)
        end if

        if e.key = keys.d2 then
            player.character.euphoria.BeingShot.start(1000)
        end if

        if e.key = keys.d3 then
            player.character.euphoria.BodyBalance.damping = 1.0
            player.character.euphoria.BodyBalance.maxsteps = 10
            player.character.euphoria.BodyBalance.Stiffness = 10.0
            player.character.euphoria.BodyBalance.start(1000)
        end if

        if e.key = keys.d4 then
            player.character.euphoria.LeanToPosition.start(5000)
        end if

        if e.key = keys.d5 then
            player.character.euphoria.PedalLegs.start(5000)
        end if

        if e.key = keys.lbutton then
            dim v as vehicle = world.getclosestvehicle(player.character.position, 5.0)

            if exists(v) andalso player.character.isTouching(v) then
                player.character.euphoria.Grab.ItemToGrab = v
                player.character.euphoria.Grab.GrabDistance = 1.0
                player.character.euphoria.Grab.GrabMethod = euphoria.GrabMethod.Surface
                player.character.euphoria.Grab.GrabStrength = 100.0
                player.character.euphoria.Grab.DontLetGo = true
                player.character.euphoria.Grab.UseLeftHand = true
                player.character.euphoria.Grab.UseRightHand = true
                player.character.euphoria.Grab.start()
            end if
        end if

        if e.key = keys.d0 then player.character.isragdoll = false
    End Sub
    Private Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
    end sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        if exists(player.character.currentvehicle) then
            for each p as ped in world.getpeds(player.character.currentvehicle.position, 6.0)
                if exists(p) andalso not p.metadata.grab andalso (p <> player.character) andalso (p.istouching(player.character.currentvehicle)) andalso not p.euphoria.Grab.isGrabbed then
                    p.euphoria.Grab.ItemToGrab = player.character.currentvehicle
                    p.euphoria.Grab.GrabDistance = 1.0
                    p.euphoria.Grab.GrabMethod = euphoria.GrabMethod.Surface
                    p.euphoria.Grab.GrabStrength = 1000.0
                    p.euphoria.Grab.DontLetGo = true
                    p.euphoria.Grab.UseLeftHand = true
                    p.euphoria.Grab.UseRightHand = true
                    p.euphoria.Grab.start(10000)
                    p.invincible = true

                    p.metadata.grab = true
                end if

                if exists(p) andalso p.metadata.grab andalso not p.euphoria.Grab.isGrabbed then p.euphoria.Grab.start(10000)
            next
        end if
    end sub
End Class