Someone

Dim UTKDead As Byte
yourslot = ReadByte(&H6E30E4)
UserSlotNo = ReadByte(&HC2DD5C)
CurTeam = ReadByte(&H6EF1C0 + (yourslot - 1) * 49377)

    If UTKSlot = "a" Then
        UTKSlot = "1"
    End If
    
    UTKDead = ReadByte(&H6E30E9 + (UTKSlot - 1) * 8)
    
    If CurTeam = "0" Then
        If UTKSlot = yourslot Then
        UTKSlot = UTKSlot + 1
        End If
    
    UTKUpDown = ReadFloat(&HAFAE68 + (UTKSlot - 1) * 8)
    UTKLeftRight = ReadFloat(&HAFAE64 + (UTKSlot - 1) * 8)
    UTKLeftRight2 = UTKLeftRight - 5
    UTKUpDown2 = UTKUpDown - 5
    
    WriteFloat (&HAFAE64 + (yourslot - 1) * 8), UTKUpDown2
    WriteFloat (&HAFAE68 + (yourslot - 1) * 8), UTKLeftRight2
    
    If UTKDead = "1" Then
        UTKSlot = UTKSlot + 1
    End If
    
    End If