Death

Public Sub Death(ByVal ID As Integer)

    With Events(UserList(ID).flags.ID_Event)
        .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Deaths = .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Deaths + 1
        .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Current_Deaths = .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Current_Deaths + 1
        .Teams(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Team_Arena).Killed = .Teams(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Team_Arena).Killed + 1
        WarpUserChar ID, .MAP_Arena, .Arenas(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Arena).Pos(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).X_Corner, .Arenas(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Arena).Pos(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Y_Corner, False
         If .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Current_Deaths = UserList(ID).flags.ID_Event Then _
            Round_Win .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Team_Arena, UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team, UserList(ID).flags.ID_Event
    End With

End Sub