I'm not sure I understand you but...
Type TTile
Field type:Int
'...
EndType
Type TVehicle
'...
Method move(tileType:Int)
If tileType <> 1 Then
'Move...
EndIf
EndMethod
EndType
'...
Local tile:TTile = New TTile
Local vehicle:TVechicle = New TVechicle
'...
vechicle.move(tile.type)
'...
Nicolas.