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