Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'http://gtaxscripting.blogspot.com/
- 'http://www.facebook.com/GtaIVScripting
- 'https://www.youtube.com/user/GTAScripting
- ' observation, this is an non-working sample :)
- Imports System
- Imports GTA
- Public Class myBasicScript
- Inherits Script
- Private myGlobalVariable As Double
- Private myGlobalVariableAUx As Double = 100
- Private textureTest As Texture
- Private Class myCustomClass
- Private anClassPrivateVariable As Int16
- Public anClassPublicVariable As Int16
- End Class
- Public Sub New()
- Me.Interval = 10
- End Sub
- Private Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
- 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
- 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
- e.Graphics.DrawText("my text inside the PerFrameDrawing event", 10, 10)
- ' draw the text starting at 10, 10 (X, Y screen position)
- e.Graphics.DrawLine(10, 20, 100, 20, 1, Color.Red)
- ' draw an line starting at 10, 20, ending at 100, 20, with 1of width and red color
- e.Graphics.DrawRectangle(100, 100, 200, 200, color.FromArgb(100, 255, 255, 255))
- ' draw an rectangle with center at 100, 100, with 200 of width, 200 of height and with semi transparent white color
- e.Graphics.DrawSprite(textureTest, 300, 300, 100, 100, 0)
- ' draw an texture with center at 300, 300, with 100 of widht, 100 of height and 0 of rotation
- 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
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement