Why my script doesn't work?

Your code never actually awards a badge! Also you only check if the user has the badge if they don't have the pass, Right code:

function hasPass(player,id) --Creating a simple function to see if the player has the GamePass with that id
 if game:GetService("GamePassService"):PlayerHasPass(player,id) then
  return true
 else 
  return false
 end
end



game.Players.PlayerAdded:connect(function(player)

 if hasPass(player,163409880) then --We're calling the function
  print(player.Name .. " has the GamePass!")


 if game:GetService("BadgeService"):UserHasBadge(p.userId, 93416536) then
        print("The user has this badge")
else
game:GetService("BadgeService")AwardBadge(p.userId, 93416536)
end
else
  print(player.Name .. " doesn't have the GamePass")
 end
end)