Rocitizens Custom Car GUI

Data = game.Players.LocalPlayer.PlayerGui.GameValues
CarData = Data.CarData
Frames = {"UnderTaker", "Valiant", "Renegade", "Jaguar", "Monarch", "Intrepid", "Sleigher", "Schoolbus", "Police Intrepid"}
Hoods = {"Standard", "Scoop1", "Vent1", "Vent2", "Vent3", "Stripes1", "Stripes2", "Indent"}
Colors = {"Black", "Bright violet", "Crimson", "Medium blue", "Dark orange", "Hot pink", "Lime green", "Mid gray", "Neon orange", "Bright yellow", "Really black", "Bright blue", "Maroon", "Bright red", "White"}
RimsT = {"5 Spoke", "8 Spoke Narrow", "16 Spoke Narrow", "6 Spoke Split", "5 Spoke Wide", "12 Spoke Turbine", "6 Spoke Turbine", "8 Spoke"}
Spoilers = {"None", "Tall", "Flat", "Skewed", "Wing", "Medium"}
Skirts = {"Tilted", "Standard", "None"}
SelectedFrame = ""
SelectedHood = ""
SelectedPrim = ""
SelectedRimsC = ""
SelectedSec = ""
SelectedSkirt = ""
SelectedSC = ""
SelectedSpoiler = ""
SelectedSpC = ""
SelectedPrice = ""
SelectedRims = ""

function MakeTemp()
Folder = Instance.new("Folder", CarData)
Folder.Name = "CarTemplate"
Folder2 = Instance.new("Folder", Folder)
Folder2.Name = "Status"
Object = Instance.new("ObjectValue", Folder2)
Object.Name = "Object"
Boolean = Instance.new("BoolValue", Folder2)
Boolean.Name = "IsActive"
Boolean.Value = false
Folder3 = Instance.new("Folder", Folder)
Folder3.Name = "Specs"
return Folder
end

function SV(Par, Name, Val)
StrV = Instance.new("StringValue", Par)
StrV.Name = Name
StrV.Value = Val
end

function MakeCar(Folder, Frame, Hood, Color1, RimColor, Color2, Skirt, SkirtColor, Spoiler, SpoilerColor, Price, Rims)
SV(Folder, "Frame", Frame)
SV(Folder, "Hood", Hood)
SV(Folder, "PrimaryColor", Color1)
SV(Folder, "RimColor", RimColor)
SV(Folder, "SecondaryColor", Color2)
SV(Folder, "Skirts", Skirt)
SV(Folder, "SkirtsColor", SkirtColor)
SV(Folder, "Spoiler", Spoiler)
SV(Folder, "SpoilerColor", SpoilerColor)
SV(Folder, "Rims", Rims)
PriceI = Instance.new("IntValue", Folder)
PriceI.Name = "Price"
PriceI.Value = Price
end

function Expand(Frame, CustomSize)
BaseSize = Frame.Size
Frame.MouseEnter:connect(function()
Frame.Size = CustomSize
end)
Frame.MouseLeave:connect(function()
Frame.Size = BaseSize
end)
end

function MakeLabel(Frame, LabelText, X, Y)
Label = Instance.new("TextLabel", Frame)
Label.Text = LabelText
Label.TextScaled = true
Label.TextColor3 = Color3.new(1, 1, 1)
Label.Size = UDim2.new(0, 100, 0, 25)
Label.Position = UDim2.new(0, X, 0, Y)
Label.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
end

function MakeScroll(Frame, LabelText, X, Y)
LFrame = Instance.new("ScrollingFrame", Frame)
LFrame.Size = UDim2.new(0, 100, 0, 25)
LFrame.Position = UDim2.new(0, X, 0, Y)
LFrame.BackgroundColor3 = Color3.new(0, 0, 0)
Expand(LFrame, UDim2.new(0, 100, 0, 75))
MakeLabel(Frame, LabelText, X, Y - 26)
return LFrame
end

function MakeButton(Frame, ButtonText, Number, CarType)
Frame.CanvasSize = UDim2.new(0, 0, 0, 26 * (Number + 1))
Button = Instance.new("TextButton", Frame)
Button.Size = UDim2.new(0, 85, 0, 25)
Button.Position = UDim2.new(0, 0, 0, Number*26)
Button.BackgroundColor3 = Color3.new(0.4, 0.5, 0.7)
Button.Text = ButtonText
Button.TextScaled = true
Button.TextColor3 = Color3.new(1, 1, 1)
Button.MouseButton1Down:connect(function()
SetType(CarType, ButtonText)
end)
end

function SetType(CarType, PartName)
if CarType == "Frame" then
SelectedFrame = PartName
SelectedFrameF.Text = PartName
elseif CarType == "Hood" then
SelectedHood = PartName
SelectedHoodF.Text = PartName
elseif CarType == "Color1" then
SelectedPrim = PartName
SelectedColor1F.Text = PartName
elseif CarType == "Color2" then
SelectedSec = PartName
SelectedColor2F.Text = PartName
elseif CarType == "Rims" then
SelectedRims = PartName
SelectedRimsF.Text = PartName
elseif CarType == "RimsColor" then
SelectedRimsC = PartName
SelectedRCF.Text = PartName
elseif CarType == "Spoiler" then
SelectedSpoiler = PartName
SelectedSpoilerF.Text = PartName
elseif CarType == "SpoilerColor" then
SelectedSpC = PartName
SelectedSCF.Text = PartName
elseif CarType == "Skirt" then
SelectedSkirt = PartName
SelectedSkirtF.Text = PartName
elseif CarType == "SkirtColor" then
SelectedSC = PartName
SelectedSkirtColorF.Text = PartName
end
end

function MakeTab(Frame, Tab, CarType)
TempButton = Instance.new("TextButton", Frame)
TempButton.Size = UDim2.new(0, 85, 0, 25)
TempButton.Position = UDim2.new(0, 0, 0, 0)
TempButton.BackgroundColor3 = Color3.new(0.4, 0.5, 0.7)
TempButton.Text = "Selected"
TempButton.TextScaled = true
TempButton.TextColor3 = Color3.new(1, 1, 1)
for i = 1, #Tab do
MakeButton(Frame, Tab[i], i, CarType)
end
return TempButton
end

Gui = Instance.new("ScreenGui", game.CoreGui)
Gui.Name = "CustomCar"

BaseFrame = Instance.new("Frame", Gui)
BaseFrame.Size = UDim2.new(0, 340, 0, 440)
BaseFrame.BackgroundColor3 = Color3.new(0.15, 0.4, 0.75)
BaseFrame.Draggable = true
BaseFrame.Active = true

Bar = Instance.new("Frame", BaseFrame)
Bar.Name = "Bar"
Bar.Size = UDim2.new(0, 340, 0, 25)
Bar.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)

FrameFrame = MakeScroll(BaseFrame, "Frame", 15, 52)
HoodFrame = MakeScroll(BaseFrame, "Hood", 116, 52)
Color1Frame = MakeScroll(BaseFrame, "Prime Color", 217, 52)
Color2Frame = MakeScroll(BaseFrame, "Second Color", 15, 156)
RimsFrame = MakeScroll(BaseFrame, "Rims", 116, 156)
RimsColorFrame = MakeScroll(BaseFrame, "Rims Color", 217, 156)
SpoilerFrame = MakeScroll(BaseFrame, "Spoiler", 15, 260)
SpoilerColorFrame = MakeScroll(BaseFrame, "Spoiler Color", 116, 260)
SkirtFrame = MakeScroll(BaseFrame, "Skirts", 217, 260)
SkirtColorFrame = MakeScroll(BaseFrame, "Skirt Color", 15, 364)

--PriceFrame
PriceFrame = Instance.new("TextBox", BaseFrame)
PriceFrame.Size = UDim2.new(0, 100, 0, 51)
PriceFrame.Position = UDim2.new(0, 116, 0, 338)
PriceFrame.BackgroundColor3 = Color3.new(0, 0, 0)
PriceFrame.Text = "Price"
PriceFrame.TextScaled = true
PriceFrame.TextColor3 = Color3.new(1, 1, 1)
--End Of Price Frame--
--Frames--
SelectedFrameF = MakeTab(FrameFrame, Frames, "Frame")
--EndOfFrames--
--Hoods--
SelectedHoodF = MakeTab(HoodFrame, Hoods, "Hood")
--EndOfHoods--
--PrimeColor--
SelectedColor1F = MakeTab(Color1Frame, Colors, "Color1")
--EndOfPrimeColor--
--SecondColor--
SelectedColor2F = MakeTab(Color2Frame, Colors, "Color2")
--EndOfSecondColor--
--Rims--
SelectedRimsF = MakeTab(RimsFrame, RimsT, "Rims")
--EndOfRims--
--RimsColor--
SelectedRCF = MakeTab(RimsColorFrame, Colors, "RimsColor")
--EndOfRimsColor--
--Spoiler--
SelectedSpoilerF = MakeTab(SpoilerFrame, Spoilers, "Spoiler")
--EndOfSpoiler--
--SpoilerColor--
SelectedSCF = MakeTab(SpoilerColorFrame, Colors, "SpoilerColor")
--EndOfSpoilerColor--
--Skirts--
SelectedSkirtF = MakeTab(SkirtFrame, Skirts, "Skirt")
--EndOfSkirts--
--SkirtColor--
SelectedSkirtColorF = MakeTab(SkirtColorFrame, Colors, "SkirtColor")
--EndOfSkirtColor--
--MakeCar--
MakeCarB = Instance.new("TextButton", BaseFrame)
MakeCarB.Size = UDim2.new(0, 100, 0, 51)
MakeCarB.Position = UDim2.new(0, 217, 0, 338)
MakeCarB.BackgroundColor3 = Color3.new(0.2, 0.4, 0.6)
MakeCarB.Text = "Create Car"
MakeCarB.TextScaled = true
MakeCarB.TextColor3 = Color3.new(0.2, 0.9, 0.2)
MakeCarB.MouseButton1Down:connect(function()
Price = tonumber(PriceFrame.Text) or 0
CarFolder = MakeTemp()
MakeCar(CarFolder.Specs, SelectedFrame, SelectedHood, SelectedPrim, SelectedRimsC, SelectedSec, SelectedSkirt, SelectedSC, SelectedSpoiler, SelectedSpC, Price, SelectedRims)
end)
--EndOfMakeCar--