Advertisement
Guest User

sada

a guest
Jul 21st, 2017
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.09 KB | None | 0 0
  1. --<< Vars
  2. local DS = game:GetService("DataStoreService"):GetDataStore("Hats-Testing")
  3. local Players = game.Players
  4. --<< Items
  5. local Items = {
  6.     ["SparkleWhite"] = {T = "BoolValue"; V = false; ID = 1},
  7.     ["DomEmp"] = {T = "BoolValue"; V = false; ID = 2},
  8.     ["DomFrig"] = {T = "BoolValue"; V = false; ID = 3},
  9.     ["DomInfer"] = {T = "BoolValue"; V = false; ID = 4},
  10.     ["DCrownG"] = {T = "BoolValue"; V = false; ID = 5},
  11.     ["DomAstra"] = {T = "BoolValue"; V = false; ID = 6},
  12.     ["SparkleRed"] = {T = "BoolValue"; V = false; ID = 7},
  13.     ["SparklePurp"] = {T = "BoolValue"; V = false; ID = 8},
  14.     ["ShaggyRain"] = {T = "BoolValue"; V = false; ID = 9},
  15.     ["SparkleMidBlue"] = {T = "BoolValue"; V = false; ID = 10},
  16.     ["DomMess"] = {T = "BoolValue"; V = false; ID = 11},
  17.     ["DomAureus"] = {T = "BoolValue"; V = false; ID = 12},
  18.     ["SparkleGreen"] = {T = "BoolValue"; V = false; ID = 13},
  19.     ["DomRex"] = {T = "BoolValue"; V = false; ID = 14},
  20.     ["SparklePink"] = {T = "BoolValue"; V = false; ID = 15},
  21.     ["SparkleTeal"] = {T = "BoolValue"; V = false; ID = 16},
  22.     ["DomVesp"] = {T = "BoolValue"; V = false; ID = 17},
  23.     ["DomPrae"] = {T = "BoolValue"; V = false; ID = 18}
  24. }
  25. --<< Load/Create Save
  26. game.Players.PlayerAdded:Connect(function(plr)
  27.     local UserKey = "UserId-" .. plr.UserId
  28.     local SavedItems = DS:GetAsync(UserKey)
  29.     local PlrFolder = game.ServerStorage.PlayerData:WaitForChild(UserKey):WaitForChild(script.Name)
  30.     for i, item in pairs(Items) do
  31.         local CInstance = Instance.new(item.T)
  32.         CInstance.Value = item.V
  33.         CInstance.Name = i
  34.         CInstance.Parent = PlrFolder
  35.         local ID = Instance.new("NumberValue")
  36.         ID.Value = item.ID
  37.         ID.Name = "ID"
  38.         ID.Parent = CInstance
  39.     end
  40.     if SavedItems then
  41.         for _, Item in pairs(PlrFolder:GetChildren()) do
  42.             local found = false
  43.             local val = false
  44.             for i, v in pairs(SavedItems) do
  45.                 if i == Item.ID.Value then
  46.                     found = true
  47.                     val = v
  48.                     break
  49.                 end
  50.             end
  51.             if found then
  52.                 Item.Value = val
  53.             end
  54.         end
  55.     else
  56.         local NewSave = {}
  57.         for i, item in pairs(Items) do
  58.             table.insert(NewSave, item.V)
  59.         end
  60.         DS:SetAsync(UserKey, NewSave)
  61.     end
  62. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement