Advertisement
TheVideoVolcano

GTA IV SCRIPHOOK DEVELOPING

Mar 26th, 2013
327
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.09 KB | None | 0 0
  1. 'http://gtaxscripting.blogspot.com/
  2. 'http://www.facebook.com/GtaIVScripting
  3. 'https://www.youtube.com/user/GTAScripting
  4.  
  5. Imports System
  6. Imports GTA
  7. Imports System.Drawing
  8. Imports System.Windows.Forms
  9.  
  10. Public Class myBasicScript
  11.     Inherits Script
  12.  
  13.     Public Sub New()
  14.         Me.Interval = 10
  15.     End Sub
  16.  
  17.     Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
  18.     End Sub
  19.  
  20.     Shadows Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
  21.     End Sub
  22.  
  23.     Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
  24.     End Sub
  25.  
  26.     Private Sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand
  27.     End Sub
  28.  
  29.     Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles MyBase.PerFrameDrawing
  30.     End Sub
  31.  
  32.     Private Sub msg(ByVal sMsg As String, ByVal time As Int32)
  33.         Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
  34.     End Sub
  35. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement