Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 basicscriot
- Inherits Script
- 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.numpad0) then
- dim pos as vector3 ' declares an variable of type 3D position
- dim m as model ' creates an variable of type Model
- pos = player.character.position.around(5).toground ' get an position around the player and set to the variable POS
- m = new model("ambulance") ' creates a new Ambulance model
- if native.function.call(of boolean)("CREATE_EMERGENCY_SERVICES_CAR", m.hash, pos.x, pos.y, pos.z) then
- msg("done", 1000) ' ok
- else
- msg("error", 1000) ' problem
- end if
- end if
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement