Added class player, and procedure initialize