Sorry your browser is not supported!

    a. Check if they're in radar range.

       b. If yes, get the distance between them and the player.

       c. Do (Other Player's Position) - (Player's Position) for X, Y and Z.

       d. Store the results in 3 variables (now you have a vector from the player to the other player).

       e. Divide each of these variables by the distance you found earlier (This will convert your vector into a unit vector)

       f. Multiply each of these variables by the radius of your radar sphere.

       g. Add the camera's X/Y/Z positions to the corresponding variables.

       h. Now you know where the radar object should go for this player!

for thisenemy = 1 to MaxEnemy

    `Step a (check if enemy is in range)
    If thisenemy is in Radar Range
    
        `Step b (get distance)
        Dist# = Distance Between(player,thisenemy)
        
        `Step c & d (convert it to a vector (get the X/Y/Z compoents of the distance))
        XV# = thisenemyX# - playerX#
        YV# = thisenemyY# - playerY#
        ZV# = thisenemyZ# - playerZ#
        
        `Step e (Divide the vector by its length so we get a unit vector (values between -1.0 and 1.0)
        XV# = XV#/Dist#
        YV# = YV#/Dist#
        ZV# = ZV#/Dist#
        
        `Step f (Make the vector as long as the radius of your radar)
        XV# = XV# * RadarRadius#
        YV# = YV# * RadarRadius#
        ZV# = ZV# * RadarRadius#
        
        `Step g (Offset the new position from the camera rather than from the origin at 0,0,0)
        XV# = XV# + Camera Position X()
        YV# = YV# + Camera Position Y()
        ZV# = ZV# + Camera Position Z()
        
        `Step h (Put a radar object there!)
        Position Object RadarObject, XV#, YV#, ZV#
        
        `I could have done steps c thu g all at once, but I've separated them so it's easier to see.
    Endif
    
Next thisenemy

G#=RadarRange/84
For T=ObjFrom to ObjTo
   If Object Exist(T)
   if object visible (T)
      ObjX1#=Object Position X(Ship)
      ObjY1#=Object Position Y(Ship)
      ObjZ1#=Object Position Z(Ship)
      ObjX2#=Object Position X(T)
      ObjY2#=Object Position Y(T)
      ObjZ2#=Object Position Z(T)
      Dx#=ABS(ObjX1#-ObjX2#)
      Dy#=ABS(ObjY1#-ObjY2#)
      Dz#=ABS(ObjZ1#-ObjZ2#)
      Dist#=SQRT((Dx#*Dx#)+(Dy#*Dy#)+(Dz#*Dz#))
      `Convert 3d position to 2d position for radar blip.
      XRadar=(Object Position X(T)-Object position X(Ship))/G#
      ZRadar=(Object Position Z(T)-Object position Z(Ship))/G#
      `Angle for radar blip.
      TanAngle=ATANFULL(XRadar,ZRadar)
      If Object Angle X(Ship)>90 and Object Angle X(Ship)<270
     `If the unit is up side down (Reverse the angle).
         Heading=TanAngle-Object Angle Y(Ship)-180
         Inverted=1
      Else
         Heading=TanAngle-Object Angle Y(Ship)
         Inverted=0
      EndIf
      `Plot the distance and angle for radar blip.
      NewXRadar=(SIN(Heading)*Dist#)/G#
      NewZRadar=(COS(Heading)*Dist#)/G#
      `Display any enemy objects in radar range.
      If Dist#<=RadarRange
         Ink RGB(255,0,0),0
         If Inverted=0
            Dot width+NewXRadar,height-NewZRadar:Inverted=0
         Else
            `If Inverteded reverse radar.
            OK=0
            If NewXRadar>width Then X=NewXRadar-width:NewXRadar=X:OK=1
            If NewXRadar<width and OK=0 Then X=width-NewXRadar:NewXRadar=X:OK=1
            If NewXRadar=width and OK=0 Then X=width
            Dot X,height-NewZRadar
endif
         EndIf
      EndIf
   EndIf
Next T
EndFunction Inverted