Sledge,
Thanks again for the example. Had one of many dull moments. This now works for me.....
Function shipinview()
shipseen=0
For s.ship = Each ship
If EntityInView ( S\SIMAGE,camera )
shipseen=1
ID=S\SID%
End If
Next
End Function
Thanks again for the example. Had one of many dull moments. This now works for me.....
Function shipinview()
shipseen=0
For s.ship = Each ship
If EntityInView ( S\SIMAGE,camera )
shipseen=1
ID=S\SID%
End If
Next
End Function