SHOW:
|
|
- or go back to the newest paste.
| 1 | Imports System | |
| 2 | Imports System.Drawing | |
| 3 | Imports System.Windows.Forms | |
| 4 | Imports GTA | |
| 5 | Imports System.IO | |
| 6 | ||
| 7 | Public Class BaseScriptProject | |
| 8 | Inherits Script | |
| 9 | ||
| 10 | Public Sub New() | |
| 11 | Me.Interval = 10 | |
| 12 | End Sub | |
| 13 | ||
| 14 | Private Sub msg(ByVal smsg As String, ByVal duracao As Int32) | |
| 15 | Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", smsg, duracao, 1)
| |
| 16 | End Sub | |
| 17 | ||
| 18 | Private Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown | |
| 19 | End Sub | |
| 20 | ||
| 21 | Private Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp | |
| 22 | End Sub | |
| 23 | ||
| 24 | Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick | |
| 25 | End Sub | |
| 26 | ||
| 27 | Private Sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand | |
| 28 | End Sub | |
| 29 | ||
| 30 | Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles MyBase.PerFrameDrawing | |
| 31 | ||
| 32 | End Sub | |
| 33 | End Class |
