I'm not sure to understand what do you ask...
Type Tiles
Field TileType:Int
End Type
Type Vehicle Extends Tiles
Field VehicleType:Int
Method MoveVehicle()
'code here
End Method
End Type
Global car:Vehicle = New Vehicle
If car.TileType <> 1 Then
car.MoveVehicle()
End If