Untitled

    yourslot = ReadByte(&H6E30E4)
    UserSlotNo = ReadByte(&HC2DD5C)
    Text5.Text = UserSlotNo
    
    CurTeam = ReadByte(&H6EF1C0 + (yourslot - 1) * 49377)
    
    If yourslot = UTKSlot Then
    UTKSlot = UTKSlot + 1
    End If
    
    UTKTeam = ReadByte(&H6EF1C0 + (UTKSlot - 1) * 49377)
    
    If UTKTeam = CurTeam Then
    UTKSlot = UTKSlot + 1
    End If
    
    Health = Read2Byte(&H6E30F4 + (UTKSlot - 1) * 49377)
    
    If Health = 0 Then
    UTKSlot = UTKSlot + 1
    Else
    If Health < 0 Then
    UTKSlot = UTKSlot + 1
    Else
    If UTKTeam = "0" Then
    If UTKSlot > UserSlotNo Then
    UTKSlot = "1"
    Else
    UTKUpDown = UInt2SInt(ReadFloat(&HAFAE68 + (UTKSlot - 1) * 8))
    UTKLeftRight = UInt2SInt(ReadFloat(&HAFAE64 + (UTKSlot - 1) * 8))
    UTKLeftRight = UTKLeftRight
    UTKLeftRight2 = UTKLeftRight
    UTKUpDown2 = UTKUpDown
    
    WriteFloat (&HAFAE68 + (yourslot - 1) * 8), UTKUpDown
    WriteFloat (&HAFAE64 + (yourslot - 1) * 8), UTKLeftRight
    
    UTKUpDown = UInt2SInt(ReadFloat(&HAFAE68 + (UTKSlot - 1) * 8))
    UTKLeftRight = UInt2SInt(ReadFloat(&HAFAE64 + (UTKSlot - 1) * 8))
    UTKUpDown2 = UTKUpDown
    UTKLeftRight2 = UTKLeftRight

    
    Write2Bytes (&H6EF0BC), UTKUpDown2
    Write2Bytes (&H6EF0BA), UTKLeftRight2
End If

Else

If UTKSlot > UserSlotNo Then
    UTKSlot = "1"
    Else
   
    UTKUpDown = UInt2SInt(ReadFloat(&HAFAE68 + (UTKSlot - 1) * 8))
    UTKLeftRight = UInt2SInt(ReadFloat(&HAFAE64 + (UTKSlot - 1) * 8))
    UTKLeftRight = UTKLeftRight
    UTKLeftRight2 = UTKLeftRight
    UTKUpDown2 = UTKUpDown
    
    WriteFloat (&HAFAE68 + (yourslot - 1) * 8), UTKUpDown
    WriteFloat (&HAFAE64 + (yourslot - 1) * 8), UTKLeftRight
    
    UTKUpDown = UInt2SInt(ReadFloat(&HAFAE68 + (UTKSlot - 1) * 8))
    UTKLeftRight = UInt2SInt(ReadFloat(&HAFAE64 + (UTKSlot - 1) * 8))
    UTKUpDown2 = UTKUpDown
    UTKLeftRight2 = UTKLeftRight

    
    Write2Bytes (&H6EF0BC), UTKUpDown2
    Write2Bytes (&H6EF0BA), UTKLeftRight2
        
    Write2Bytes (&H6EF0BC + (yourslot - 1) * 8), UTKUpDown2
    Write2Bytes (&H6EF0BA + (yourslot - 1) * 8), UTKLeftRight2
End If
End If
End If
End If