|
| 02 Sep 2013 03:15 PM |
gui = Instance.new("ScreenGui", game.CoreGui) frame = Instance.new("Frame", gui) frame.Size = UDim2.new(0,250,0,250) frame.Position = UDim2.new(0,0,0,100) frame.BackgroundTransparency = 1 txtlbl = Instance.new("TextLabel", frame) txtlbl.Size = UDim2.new(1,0,0.1,0) txtlbl.Text = "Flood property change: Window 1" txtlbl.TextScaled = true txtlbl.Position = UDim2.new(0,0,-0.2,0) txtlbl.Font = "ArialBold" txtlbl.BackgroundTransparency = 0.6 txtlbl.BackgroundColor3 = (Color3.new(0,0,0)) txtlbl.BorderSizePixel = 0
txtbox = Instance.new("TextBox", frame) txtbox.Text = "Part/model name here" txtbox.Size = UDim2.new(1,0,0.1,0) txtbox.TextScaled = true txtbox.Font = "ArialBold" txtbox.Position = UDim2.new(0,0,-0.1,0) txtbox.BackgroundTransparency = 0.6 txtbox.BackgroundColor3 = (Color3.new(0,0,0)) txtbox.BorderSizePixel = 0
modelchild = Instance.new("TextLabel", frame) modelchild.Text = "Select model children" modelchild.Size = UDim2.new(0.8,0,0.1,0) modelchild.TextScaled = true modelchild.Font = "ArialBold" modelchild.Position = UDim2.new(0,0,0.1,0) modelchild.BackgroundTransparency = 0.6 modelchild.BackgroundColor3 = (Color3.new(0,0,0)) modelchild.BorderSizePixel = 0
modelbtn = Instance.new("TextButton", frame) modelbtn.Size = UDim2.new(0.2,0,0.1,0) modelbtn.Position = UDim2.new(0.8,0,0.1,0) modelbtn.TextScaled = true modelbtn.Font = "ArialBold" modelbtn.BackgroundTransparency = 0.6 modelbtn.BackgroundColor3 = (Color3.new(0,0,0)) modelbtn.BorderSizePixel = 0 modelbtn.Text = "true"
txtnew = Instance.new("TextBox", frame) txtnew.Text = "New name here" txtnew.Size = UDim2.new(1,0,0.1,0) txtnew.TextScaled = true txtnew.Font = "ArialBold" txtnew.Position = UDim2.new(0,0,0,0) txtnew.BackgroundTransparency = 0.6 txtnew.BackgroundColor3 = (Color3.new(0,0,0)) txtnew.BorderSizePixel = 0
tooltip = Instance.new("TextLabel", txtbox) tooltip.TextScaled = true tooltip.Font = "ArialBold" tooltip.Size = UDim2.new(0,0,1,0) tooltip.Position = UDim2.new(1,0,0,0) tooltip.Text = "The name of the part(s)/model(s) you'd like to change." tooltip.Visible = false tooltip.BackgroundTransparency = 0.6 tooltip.BackgroundColor3 = (Color3.new(0,0,0)) tooltip.BorderSizePixel = 0
toolnew = Instance.new("TextLabel", txtnew) toolnew.TextScaled = true toolnew.Font = "ArialBold" toolnew.Size = UDim2.new(0,0,1,0) toolnew.Position = UDim2.new(1,0,0,0) toolnew.Text = "The new name of the part(s)/model(s) you're changing. [leave blank if same]" toolnew.Visible = false toolnew.BackgroundTransparency = 0.6 toolnew.BackgroundColor3 = (Color3.new(0,0,0)) toolnew.BorderSizePixel = 0
endbtn = Instance.new("TextButton", frame) endbtn.Size = UDim2.new(1,0,0.1,0) endbtn.Position = UDim2.new(0,0,1.2,0) endbtn.Text = "Execute" endbtn.BackgroundTransparency = 0.6 endbtn.BackgroundColor3 = (Color3.new(0,0,0)) endbtn.BorderSizePixel = 0 endbtn.TextScaled = true endbtn.Font = "ArialBold" ------------------------------------------------------- open = Instance.new("TextButton", gui) open.Size = UDim2.new(0,50,0,30) open.Position = UDim2.new(0,0,0,20) open.Text = ">" open.BackgroundTransparency = 0.6 open.BackgroundColor3 = (Color3.new(0,0,0)) open.BorderSizePixel = 0 open.TextScaled = true
anchortxt = Instance.new("TextLabel", frame) anchortxt.Size = UDim2.new(1,-30,0.1,0) anchortxt.Position = UDim2.new(0,0,0.2,0) anchortxt.Text = "Anchored: " anchortxt.TextScaled = true anchortxt.BackgroundTransparency = 0.6 anchortxt.BackgroundColor3 = (Color3.new(0,0,0)) anchortxt.BorderSizePixel = 0 anchortxt.Font = "ArialBold"
locktxt = Instance.new("TextLabel", frame) locktxt.Size = UDim2.new(1,-30,0.1,0) locktxt.Position = UDim2.new(0,0,0.3,0) locktxt.Text = "Locked: " locktxt.TextScaled = true locktxt.BackgroundTransparency = 0.6 locktxt.BackgroundColor3 = (Color3.new(0,0,0)) locktxt.BorderSizePixel = 0 locktxt.Font = "ArialBold"
cancollidetxt = Instance.new("TextLabel", frame) cancollidetxt.Size = UDim2.new(1,-30,0.1,0) cancollidetxt.Position = UDim2.new(0,0,0.4,0) cancollidetxt.Text = "CanCollide: " cancollidetxt.TextScaled = true cancollidetxt.BackgroundTransparency = 0.6 cancollidetxt.BackgroundColor3 = (Color3.new(0,0,0)) cancollidetxt.BorderSizePixel = 0 cancollidetxt.Font = "ArialBold" -------------------------------------------------------
anchor = Instance.new("TextButton", frame) anchor.Size = UDim2.new(0,30,0.1,0) anchor.Position = UDim2.new(1,-30,0.2,0) anchor.Text = "true" anchor.TextScaled = true anchor.BackgroundTransparency = 0.6 anchor.BackgroundColor3 = (Color3.new(0,0,0)) anchor.BorderSizePixel = 0 anchor.Font = "ArialBold"
lock = Instance.new("TextButton", frame) lock.Size = UDim2.new(0,30,0.1,0) lock.Position = UDim2.new(1,-30,0.3,0) lock.Text = "true" lock.TextScaled = true lock.BackgroundTransparency = 0.6 lock.BackgroundColor3 = (Color3.new(0,0,0)) lock.BorderSizePixel = 0 lock.Font = "ArialBold"
cancollide = Instance.new("TextButton", frame) cancollide.Size = UDim2.new(0,30,0.1,0) cancollide.Position = UDim2.new(1,-30,0.4,0) cancollide.Text = "true" cancollide.TextScaled = true cancollide.BackgroundTransparency = 0.6 cancollide.BackgroundColor3 = (Color3.new(0,0,0)) cancollide.BorderSizePixel = 0 cancollide.Font = "ArialBold" ------------------------------------------------------- materialtxt = Instance.new("TextLabel", frame) materialtxt.Size = UDim2.new(0.5,0,0.1,0) materialtxt.Position = UDim2.new(0,0,0.5,0) materialtxt.Text = "Material: " materialtxt.TextScaled = true materialtxt.BackgroundTransparency = 0.6 materialtxt.BackgroundColor3 = (Color3.new(0,0,0)) materialtxt.BorderSizePixel = 0 materialtxt.Font = "ArialBold"
toptxt = Instance.new("TextLabel", frame) toptxt.Size = UDim2.new(0.5,0,0.1,0) toptxt.Position = UDim2.new(0,0,0.6,0) toptxt.Text = "Top surface: " toptxt.TextScaled = true toptxt.BackgroundTransparency = 0.6 toptxt.BackgroundColor3 = (Color3.new(0,0,0)) toptxt.BorderSizePixel = 0 toptxt.Font = "ArialBold"
bottomtxt = Instance.new("TextLabel", frame) bottomtxt.Size = UDim2.new(0.5,0,0.1,0) bottomtxt.Position = UDim2.new(0,0,0.7,0) bottomtxt.Text = "Bottom surface: " bottomtxt.TextScaled = true bottomtxt.BackgroundTransparency = 0.6 bottomtxt.BackgroundColor3 = (Color3.new(0,0,0)) bottomtxt.BorderSizePixel = 0 bottomtxt.Font = "ArialBold"
lefttxt = Instance.new("TextLabel", frame) lefttxt.Size = UDim2.new(0.5,0,0.1,0) lefttxt.Position = UDim2.new(0,0,0.8,0) lefttxt.Text = "Left surface: " lefttxt.TextScaled = true lefttxt.BackgroundTransparency = 0.6 lefttxt.BackgroundColor3 = (Color3.new(0,0,0)) lefttxt.BorderSizePixel = 0 lefttxt.Font = "ArialBold"
righttxt = Instance.new("TextLabel", frame) righttxt.Size = UDim2.new(0.5,0,0.1,0) righttxt.Position = UDim2.new(0,0,0.9,0) righttxt.Text = "Right surface: " righttxt.TextScaled = true righttxt.BackgroundTransparency = 0.6 righttxt.BackgroundColor3 = (Color3.new(0,0,0)) righttxt.BorderSizePixel = 0 righttxt.Font = "ArialBold"
backtxt = Instance.new("TextLabel", frame) backtxt.Size = UDim2.new(0.5,0,0.1,0) backtxt.Position = UDim2.new(0,0,1,0) backtxt.Text = "Back surface: " backtxt.TextScaled = true backtxt.BackgroundTransparency = 0.6 backtxt.BackgroundColor3 = (Color3.new(0,0,0)) backtxt.BorderSizePixel = 0 backtxt.Font = "ArialBold"
fronttxt = Instance.new("TextLabel", frame) fronttxt.Size = UDim2.new(0.5,0,0.1,0) fronttxt.Position = UDim2.new(0,0,1.1,0) fronttxt.Text = "Front surface: " fronttxt.TextScaled = true fronttxt.BackgroundTransparency = 0.6 fronttxt.BackgroundColor3 = (Color3.new(0,0,0)) fronttxt.BorderSizePixel = 0 fronttxt.Font = "ArialBold"
material = Instance.new("TextButton", frame) material.Size = UDim2.new(0.5,0,0.1,0) material.Position = UDim2.new(0.5,0,0.5,0) material.Text = "Plastic" material.TextScaled = true material.BackgroundTransparency = 0.6 material.BackgroundColor3 = (Color3.new(0,0,0)) material.BorderSizePixel = 0 material.Font = "ArialBold"
top = Instance.new("TextButton", frame) top.Size = UDim2.new(0.5,0,0.1,0) top.Position = UDim2.new(0.5,0,0.6,0) top.Text = "Smooth" top.TextScaled = true top.BackgroundTransparency = 0.6 top.BackgroundColor3 = (Color3.new(0,0,0)) top.BorderSizePixel = 0 top.Font = "ArialBold"
bottom = Instance.new("TextButton", frame) bottom.Size = UDim2.new(0.5,0,0.1,0) bottom.Position = UDim2.new(0.5,0,0.7,0) bottom.Text = "Smooth" bottom.TextScaled = true bottom.BackgroundTransparency = 0.6 bottom.BackgroundColor3 = (Color3.new(0,0,0)) bottom.BorderSizePixel = 0 bottom.Font = "ArialBold"
left = Instance.new("TextButton", frame) left.Size = UDim2.new(0.5,0,0.1,0) left.Position = UDim2.new(0.5,0,0.8,0) left.Text = "Smooth" left.TextScaled = true left.BackgroundTransparency = 0.6 left.BackgroundColor3 = (Color3.new(0,0,0)) left.BorderSizePixel = 0 left.Font = "ArialBold"
right = Instance.new("TextButton", frame) right.Size = UDim2.new(0.5,0,0.1,0) right.Position = UDim2.new(0.5,0,0.9,0) right.Text = "Smooth" right.TextScaled = true right.BackgroundTransparency = 0.6 right.BackgroundColor3 = (Color3.new(0,0,0)) right.BorderSizePixel = 0 right.Font = "ArialBold"
back = Instance.new("TextButton", frame) back.Size = UDim2.new(0.5,0,0.1,0) back.Position = UDim2.new(0.5,0,1,0) back.Text = "Smooth" back.TextScaled = true back.BackgroundTransparency = 0.6 back.BackgroundColor3 = (Color3.new(0,0,0)) back.BorderSizePixel = 0 back.Font = "ArialBold"
front = Instance.new("TextButton", frame) front.Size = UDim2.new(0.5,0,0.1,0) front.Position = UDim2.new(0.5,0,1.1,0) front.Text = "Smooth" front.TextScaled = true front.BackgroundTransparency = 0.6 front.BackgroundColor3 = (Color3.new(0,0,0)) front.BorderSizePixel = 0 front.Font = "ArialBold"
function modelbtnclick() if modelbtn.Text == "true" then modelbtn.Text = "false" else modelbtn.Text = "true" end end
function hover1() if tooltip.Visible == false then tooltip.Visible = true tooltip:TweenSizeAndPosition(UDim2.new(0.8,0,1,0), UDim2.new(1,0,0,0)) wait (1) else tooltip:TweenSizeAndPosition(UDim2.new(0,0,1,1), UDim2.new(1,0,0,0)) wait (1) tooltip.Visible = false end end
function hover2() if toolnew.Visible == false then toolnew.Visible = true toolnew:TweenSizeAndPosition(UDim2.new(0.8,0,1,0), UDim2.new(1,0,0,0)) wait (1) else toolnew:TweenSizeAndPosition(UDim2.new(0,0,1,1), UDim2.new(1,0,0,0)) wait (1) toolnew.Visible = false end end
function openclick() if open.Text == "<" then frame:TweenSizeAndPosition(UDim2.new(0,250,0,250), UDim2.new(0,-250,0,100)) wait (1) frame.Visible = false open.Text = ">" else frame.Visible = true frame:TweenSizeAndPosition(UDim2.new(0,250,0,250), UDim2.new(0,0,0,100)) wait (1) open.Text = "<" end end
function materialclick() if material.Text == "Plastic" then material.Text = "Wood" elseif material.Text == "Wood" then material.Text = "Slate" elseif material.Text == "Slate" then material.Text = "Concrete" elseif material.Text == "Concrete" then material.Text = "CorrodedMetal" elseif material.Text == "CorrodedMetal" then material.Text = "DiamondPlate" elseif material.Text == "DiamondPlate" then material.Text = "Foil" elseif material.Text == "Foil" then material.Text = "Grass" elseif material.Text == "Grass" then material.Text = "Ice" elseif material.Text == "Ice" then material.Text = "Plastic" end end
function topclick() if top.Text == "Smooth" then top.Text = "Glue" elseif top.Text == "Glue" then top.Text = "Weld" elseif top.Text == "Weld" then top.Text = "Studs" elseif top.Text == "Studs" then top.Text = "Inlet" elseif top.Text == "Inlet" then top.Text = "Universal" elseif top.Text == "Universal" then top.Text = "Hinge" elseif top.Text == "Hinge" then top.Text = "Motor" elseif top.Text == "Motor" then top.Text = "SteppingMotor" elseif top.Text == "SteppingMotor" then top.Text = "Unjoinable" elseif top.Text == "Unjoinable" then top.Text = "Smooth" end end
function rightclick() if right.Text == "Smooth" then right.Text = "Glue" elseif right.Text == "Glue" then right.Text = "Weld" elseif right.Text == "Weld" then right.Text = "Studs" elseif right.Text == "Studs" then right.Text = "Inlet" elseif right.Text == "Inlet" then right.Text = "Universal" elseif right.Text == "Universal" then right.Text = "Hinge" elseif right.Text == "Hinge" then right.Text = "Motor" elseif right.Text == "Motor" then right.Text = "SteppingMotor" elseif right.Text == "SteppingMotor" then right.Text = "Unjoinable" elseif right.Text == "Unjoinable" then right.Text = "Smooth" end end
function leftclick() if left.Text == "Smooth" then left.Text = "Glue" elseif left.Text == "Glue" then left.Text = "Weld" elseif left.Text == "Weld" then left.Text = "Studs" elseif left.Text == "Studs" then left.Text = "Inlet" elseif left.Text == "Inlet" then left.Text = "Universal" elseif left.Text == "Universal" then left.Text = "Hinge" elseif left.Text == "Hinge" then left.Text = "Motor" elseif left.Text == "Motor" then left.Text = "SteppingMotor" elseif left.Text == "SteppingMotor" then left.Text = "Unjoinable" elseif left.Text == "Unjoinable" then left.Text = "Smooth" end end
function frontclick() if front.Text == "Smooth" then front.Text = "Glue" elseif front.Text == "Glue" then front.Text = "Weld" elseif front.Text == "Weld" then front.Text = "Studs" elseif front.Text == "Studs" then front.Text = "Inlet" elseif front.Text == "Inlet" then front.Text = "Universal" elseif front.Text == "Universal" then front.Text = "Hinge" elseif front.Text == "Hinge" then front.Text = "Motor" elseif front.Text == "Motor" then front.Text = "SteppingMotor" elseif front.Text == "SteppingMotor" then front.Text = "Unjoinable" elseif front.Text == "Unjoinable" then front.Text = "Smooth" end end
function bottomclick() if bottom.Text == "Smooth" then bottom.Text = "Glue" elseif bottom.Text == "Glue" then bottom.Text = "Weld" elseif bottom.Text == "Weld" then bottom.Text = "Studs" elseif bottom.Text == "Studs" then bottom.Text = "Inlet" elseif bottom.Text == "Inlet" then bottom.Text = "Universal" elseif bottom.Text == "Universal" then bottom.Text = "Hinge" elseif bottom.Text == "Hinge" then bottom.Text = "Motor" elseif bottom.Text == "Motor" then bottom.Text = "SteppingMotor" elseif bottom.Text == "SteppingMotor" then bottom.Text = "Unjoinable" elseif bottom.Text == "Unjoinable" then bottom.Text = "Smooth" end end
function backclick() if back.Text == "Smooth" then back.Text = "Glue" elseif back.Text == "Glue" then back.Text = "Weld" elseif back.Text == "Weld" then back.Text = "Studs" elseif back.Text == "Studs" then back.Text = "Inlet" elseif back.Text == "Inlet" then back.Text = "Universal" elseif back.Text == "Universal" then back.Text = "Hinge" elseif back.Text == "Hinge" then back.Text = "Motor" elseif back.Text == "Motor" then back.Text = "SteppingMotor" elseif back.Text == "SteppingMotor" then back.Text = "Unjoinable" elseif back.Text == "Unjoinable" then back.Text = "Smooth" end end
function anchorclick() if anchor.Text == "true" then anchor.Text = "false" else anchor.Text = "true" end end
function lockclick() if lock.Text == "true" then lock.Text = "false" else lock.Text = "true" end end
function cancollideclick() if cancollide.Text == "true" then cancollide.Text = "false" else cancollide.Text = "true" end end
function executeclick() for l,v in pairs (workspace:children()) do if modelbtn.Text == "true" then for l,v in pairs (workspace[txtbox.Text]:children()) do if v:IsA("BasePart") then v.Material = material.Text if anchor.Text == "true" then anc = true else anc = false end v.Anchored = anc if lock.Text == "true" then lock1 = true else lock1 = false end v.Locked = lock1 if cancollide.Text == "true" then ccl = true else ccl = false end v.CanCollide = ccl v.TopSurface = top.Text v.BottomSurface = bottom.Text v.LeftSurface = left.Text v.RightSurface = right.Text v.BackSurface = back.Text v.FrontSurface = front.Text end end end if v.Name == txtbox.Text and v:IsA("BasePart") then v.Material = material.Text if anchor.Text == "true" then anc = true else anc = false end v.Anchored = anc if lock.Text == "true" then lock1 = true else lock1 = false end v.Locked = lock1 if cancollide.Text == "true" then ccl = true else ccl = false end v.CanCollide = ccl v.TopSurface = top.Text v.BottomSurface = bottom.Text v.LeftSurface = left.Text v.RightSurface = right.Text v.BackSurface = back.Text v.FrontSurface = front.Text if not txtnew.Text == "" or txtnew.Text == " " or txtnew.Text == " " or txtnew.Text == " " or txtnew.Text == " " or txtnew.Text == " " or txtnew.Text == " " then v.Name = txtnew.Text end end end end top.MouseButton1Down:connect(topclick) bottom.MouseButton1Down:connect(bottomclick) left.MouseButton1Down:connect(leftclick) right.MouseButton1Down:connect(rightclick) back.MouseButton1Down:connect(backclick) front.MouseButton1Down:connect(frontclick) anchor.MouseButton1Down:connect(anchorclick) lock.MouseButton1Down:connect(lockclick) cancollide.MouseButton1Down:connect(cancollideclick) endbtn.MouseButton1Down:connect(executeclick) material.MouseButton1Down:connect(materialclick) open.MouseButton1Down:connect(openclick) modelbtn.MouseButton1Down:connect(modelbtnclick) txtbox.MouseEnter:connect(hover1) txtnew.MouseEnter:connect(hover2)
print("yay i did it11")
- |
|
|
| Report Abuse |
|