Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'https://www.youtube.com/user/GTAScripting
- 'http://gtaxscripting.blogspot.com/
- 'http://www.facebook.com/GtaIVScripting
- 'https://twitter.com/julionib
- Imports System
- Imports GTA
- Imports System.Drawing
- Imports System.Windows.Forms
- Public Class ScriptDevelopment
- Inherits Script
- Private myXControl As Microsoft.Xna.Framework.Input.GamePadState
- Private lastPacketNumber As Int64 = 0
- Private ADown, BDown, XDown, YDown, BackDown, StartDown, LShoulderDown, RShoulderDown, RStickButtonDown, LStickButtonDown As Boolean
- Private LTrigger, RTrigger, LThumbX, LThumbY, RThumbX, RThumbY As Double
- Public Sub New()
- Me.Interval = 10
- End Sub
- Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
- End Sub
- Shadows 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 ev As EventArgs) Handles MyBase.Tick
- checkControl()
- msg("A " & ADown.ToString & _
- " B " & BDown.ToString & _
- " X " & XDown.ToString & _
- " Y " & YDown.ToString & _
- " Back " & BackDown.ToString & _
- " Start " & StartDown.ToString & _
- " Left shoulder " & LShoulderDown.ToString & _
- " Right shoulder " & RShoulderDown.ToString & _
- " Left stick button " & LStickButtonDown.ToString & _
- " Right stick button " & RStickButtonDown.ToString & _
- " Left trigger " & LTrigger.ToString & _
- " Right trigger " & RTrigger.ToString & _
- " Left thumb " & LThumbX.ToString & " " & LThumbY.ToString & _
- " Right thumb " & RThumbX.ToString & " " & RThumbY.ToString, 15)
- End Sub
- Private Sub checkControl()
- myXControl = Microsoft.Xna.Framework.Input.GamePad.GetState(Microsoft.Xna.Framework.PlayerIndex.One)
- If myXControl.IsConnected Then
- If lastPacketNumber <> myXControl.PacketNumber Then
- lastPacketNumber = myXControl.PacketNumber
- ADown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.A)
- BDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.B)
- XDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.X)
- YDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.Y)
- BackDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.Back)
- StartDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.Start)
- LShoulderDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.LeftShoulder)
- RShoulderDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.RightShoulder)
- LStickButtonDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.LeftStick)
- RStickButtonDown = myXControl.IsButtonDown(Microsoft.Xna.Framework.Input.Buttons.RightStick)
- End If
- LTrigger = myXControl.Triggers.Left
- RTrigger = myXControl.Triggers.Right
- LThumbX = myXControl.ThumbSticks.Left.X
- LThumbY = myXControl.ThumbSticks.Left.Y
- RThumbX = myXControl.ThumbSticks.Right.X
- RThumbY = myXControl.ThumbSticks.Right.Y
- End If
- End Sub
- Private Sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand
- End Sub
- Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles MyBase.PerFrameDrawing
- End Sub
- Private Sub msg(ByVal sMsg As String, ByVal time As Int32)
- Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
- End Sub
- Private Function intervalFix() As Double
- Return Me.Interval * (Game.FPS / 25)
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement