Mirage Source

Public Sub BltTarget()
If TargetType = TARGET_TYPE_PLAYER Then
  rec.top = 240
  rec.Left = 0
  rec.Bottom = rec.top + 80 + 8
  rec.Right = rec.Left + 48
  'rec.top = 0
  'rec.Bottom = 20
  'rec.Left = 0
  'rec.Right = 20
  DD_MiddleBuffer.BltFast (Player(Target).X * 32) + Player(Target).XOffset - 8, (Player(Target).Y * 32) + Player(Target).YOffset - 44, DD_MiscSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
  'DD_MiddleBuffer.BltFast 20, 20, DD_MiscSurf, rec, DDBLTFAST_SRCCOLORKEY And DDBLTFAST_WAIT
Else
  rec.top = 240
  rec.Left = 0
  rec.Bottom = rec.top + 80 + 8
  rec.Right = rec.Left + 48
  DD_MiddleBuffer.BltFast (MapNpc(Target).X * 32) + MapNpc(Target).XOffset - 8, (MapNpc(Target).Y * 32) + MapNpc(Target).YOffset - 44, DD_MiscSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
End If
End Sub

Public Sub BltTargetting()
Dim X As Long
Dim Y As Long
Dim rec As DXVBLib.RECT

    If Not OverPlay Then
        If Current_Target = 0 Or Current_TargetType = TARGET_TYPE_NONE Then Exit Sub
    End If

    If Current_TargetType = TARGET_TYPE_PLAYER And HasTarget Then
        If Current_Target <> MyIndex Then
            If GetPlayerMap(Current_Target) <> GetPlayerMap(MyIndex) Then Exit Sub
        End If
    End If

    With rec
        .Top = PIC_Y
        If Not HasTarget Then .Top = 0
        .Bottom = .Top + PIC_Y
        .Left = 40 * TargetLeft
        .Right = .Left + 40
    End With
   
    If HasTarget Then
        If Current_TargetType = TARGET_TYPE_PLAYER Then
            X = ((Norm.X_Loc(GetPlayerX(Current_Target)) + Player(Current_Target).XOffset) - 4)
            Y = ((Norm.Y_Loc(GetPlayerY(Current_Target)) + Player(Current_Target).YOffset) + 8)
        ElseIf Current_TargetType = TARGET_TYPE_NPC Then
            X = ((Norm.X_Loc(MapNpc(Current_Target).X) + MapNpc(Current_Target).XOffset) - 4)
            Y = ((Norm.Y_Loc(MapNpc(Current_Target).Y) + MapNpc(Current_Target).YOffset) + 8)
        End If
    Else
        X = (CurX * PIC_X) - 4
        Y = (CurY * PIC_Y) + 8
    End If
   
    If X < 0 Then
        X = 0
        With rec
            .Left = .Left + (X * -1)
        End With
    End If
   
    Call DD_BackBuffer.BltFast(X, Y, DD_Target, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

End Sub

' Change target
            TempPlayer(Index).Target = i
            TempPlayer(Index).TargetType = TARGET_TYPE_PLAYER
            Call PlayerMsg(Index, "Your target is now " & GetPlayerName(i) & ".", Yellow)

' Check for an npc
    For i = 1 To MAX_MAP_NPCS
        If MapNpc(GetPlayerMap(Index), i).Num > 0 Then
            If MapNpc(GetPlayerMap(Index), i).x = x And MapNpc(GetPlayerMap(Index), i).y = y Then
                ' Change target
                TempPlayer(Index).Target = i
                TempPlayer(Index).TargetType = TARGET_TYPE_NPC
                Call PlayerMsg(Index, "Your target is now a " & Trim$(Npc(MapNpc(GetPlayerMap(Index), i).Num).Name) & ".", Yellow)
                Exit Sub
            End If

 ' Check for an npc
  For i = MAX_MAP_NPCS To 1 Step -1
    If MapNpc(GetPlayerMap(index), i).Num > 0 Then
    If MapNpc(GetPlayerMap(index), i).x = x And MapNpc(GetPlayerMap(index), i).y = y Then
      ' Change target
      Player(index).Target = i
      Player(index).TargetType = TARGET_TYPE_NPC
      SendTarget index
      If Mid(Trim(Npc(MapNpc(GetPlayerMap(index), i).Num).Name), 0, 1) = "a" Then
        Call PlayerMsg(index, "Your target is now a " & Trim(Npc(MapNpc(GetPlayerMap(index), i).Num).Name) & ".", Yellow)
      End If
      Exit Sub
    End If
    End If
  Next i