Untitled

--------------------------------------------------------------
TIMUTKSLOT:
--------------------------------------------------------------
UTKSlot = "99"
CurTeam = ReadByte(&H6EF1C0 + (yourslot - 1) * 49377)
If CurTeam = "0" Then
timMassKill2 = True
timUtkSlot = False
Else
timMassKill3 = True
timUtkSlot = False
End If
End Sub
--------------------------------------------------------------
TIMMASSKILL2:
--------------------------------------------------------------
Dim UTKDead As Byte
yourslot = ReadByte(&H6E30E4)
UserSlotNo = ReadByte(&HC2DD5C)
CurTeam = ReadByte(&H6EF1C0 + (yourslot - 1) * 49377)

    If UTKSlot = "99" Then
        UTKSlot = "1"
    End If
    
    UTKDead = ReadByte(&H6E30E9 + (UTKSlot - 1) * 8)
    
Start0:
    If CurTeam = "0" Then
            If UTKSlot = yourslot Then
            UTKSlot = UTKSlot + 1
        End If
    
        If UTKSlot = "31" Then
            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
        Else
        GoTo Start0
    End If
    
    End If
--------------------------------------------------------------
TIMMASSKILL3:
--------------------------------------------------------------
Dim UTKDead As Byte
yourslot = ReadByte(&H6E30E4)
UserSlotNo = ReadByte(&HC2DD5C)
CurTeam = ReadByte(&H6EF1C0 + (yourslot - 1) * 49377)

    If UTKSlot = "99" Then
        UTKSlot = "1"
    End If
    
UTKTeam = ReadByte(&H6EF1C0 + (UTKSlot - 1) * 49377)
    UTKDead = ReadByte(&H6E30E9 + (UTKSlot - 1) * 8)
    
Start1:
        If UTKSlot = yourslot Then
        UTKSlot = UTKSlot + 1
        End If
        
        If UTKTeam = CurTeam Then
        UTKSlot = UTKSlot + 1
        End If
        
        If UTKDead = "1" Then
            UTKSlot = UTKSlot + 1
            Else
            GoTo Start0
        End If
        
        If UTKSlot = "31" Then
            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
        Else
        GoTo Start1
    End If
--------------------------------------------------------------