Systemconf

Untitled

May 30th, 2019
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.32 KB | None | 0 0
  1. -- Farewell Infortality.
  2. -- Version: 2.82
  3. -- Instances:
  4. local ScreenGui = Instance.new("ScreenGui")
  5. local Lt2Gui = Instance.new("Frame")
  6. local MaxLand = Instance.new("TextButton")
  7. local TpWood = Instance.new("TextButton")
  8. local SellWood = Instance.new("TextButton")
  9. local GetItem = Instance.new("TextButton")
  10. local SpawnBox1 = Instance.new("TextBox")
  11. local QBox1 = Instance.new("TextBox")
  12. --Properties:
  13. ScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
  14.  
  15. Lt2Gui.Name = "Lt2 Gui"
  16. Lt2Gui.Parent = ScreenGui
  17. Lt2Gui.BackgroundColor3 = Color3.new(0.333333, 0.333333, 0.333333)
  18. Lt2Gui.BorderSizePixel = 0
  19. Lt2Gui.Position = UDim2.new(0.326138616, 0, 0.311029792, 0)
  20. Lt2Gui.Size = UDim2.new(0, 402, 0, 200)
  21.  
  22. MaxLand.Name = "MaxLand"
  23. MaxLand.Parent = Lt2Gui
  24. MaxLand.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.203922)
  25. MaxLand.BorderSizePixel = 0
  26. MaxLand.Position = UDim2.new(0.0654205605, 0, 0.109999999, 0)
  27. MaxLand.Size = UDim2.new(0, 113, 0, 34)
  28. MaxLand.Font = Enum.Font.SourceSans
  29. MaxLand.Text = "Max Land"
  30. MaxLand.TextColor3 = Color3.new(1, 1, 1)
  31. MaxLand.TextSize = 18
  32. MaxLand.MouseButton1Click:connect(function()
  33. for i, v in pairs(game:GetService("Workspace").Properties:GetChildren()) do
  34. if v:FindFirstChild("Owner") and v.Owner.Value == game.Players.LocalPlayer then
  35. base = v
  36. square = v.OriginSquare
  37. end
  38. end
  39. function makebase(pos)
  40. local Event = game:GetService("ReplicatedStorage").PropertyPurchasing.ClientExpandedProperty
  41. Event:FireServer(base, pos)
  42. end
  43. spos = square.Position
  44. makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z))
  45. makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z))
  46. makebase(CFrame.new(spos.X, spos.Y, spos.Z + 40))
  47. makebase(CFrame.new(spos.X, spos.Y, spos.Z - 40))
  48. makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z + 40))
  49. makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z - 40))
  50. makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z + 40))
  51. makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z - 40))
  52. makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z))
  53. makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z))
  54. makebase(CFrame.new(spos.X, spos.Y, spos.Z + 80))
  55. makebase(CFrame.new(spos.X, spos.Y, spos.Z - 80))
  56. --Corners--
  57. makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z + 80))
  58. makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z - 80))
  59. makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z + 80))
  60. makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z - 80))
  61. --Corners--
  62. makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z + 80))
  63. makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z + 80))
  64. makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z + 40))
  65. makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z - 40))
  66. makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z + 40))
  67. makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z - 40))
  68. makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z - 80))
  69. makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z - 80))
  70. end)
  71.  
  72. TpWood.Name = "TpWood"
  73. TpWood.Parent = Lt2Gui
  74. TpWood.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.203922)
  75. TpWood.BorderSizePixel = 0
  76. TpWood.Position = UDim2.new(0.383317083, 0, 0.109999999, 0)
  77. TpWood.Size = UDim2.new(0, 113, 0, 34)
  78. TpWood.Font = Enum.Font.SourceSans
  79. TpWood.Text = "Tp Wood"
  80. TpWood.TextColor3 = Color3.new(1, 1, 1)
  81. TpWood.TextSize = 18
  82. TpWood.MouseButton1Click:connec(function()
  83. for _, Log in pairs(game.Workspace.LogModels:GetChildren()) do
  84. if Log.Name:sub(1, 6) == "Loose_" and Log:findFirstChild("Owner") then
  85. if Log.Owner.Value == game.Players.LocalPlayer then
  86. Log:MoveTo(game.Players.LocalPlayer.Character.HumanoidRootPart.Position + Vector3.new(0, 20, 0))
  87. for i=1,100 do
  88. game.ReplicatedStorage.Interaction.ClientIsDragging:FireServer(Log)
  89. end
  90. end
  91. end
  92. end
  93. end)
  94.  
  95. SellWood.Name = "Sell Wood"
  96. SellWood.Parent = Lt2Gui
  97. SellWood.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.203922)
  98. SellWood.BorderSizePixel = 0
  99. SellWood.Position = UDim2.new(0.694504499, 0, 0.109999985, 0)
  100. SellWood.Size = UDim2.new(0, 113, 0, 34)
  101. SellWood.Font = Enum.Font.SourceSans
  102. SellWood.Text = "Sell Wood"
  103. SellWood.TextColor3 = Color3.new(1, 1, 1)
  104. SellWood.TextSize = 18
  105. SellWood.MouseButton1Click:Connect(function()
  106. for _, Log in pairs(game.Workspace.LogModels:GetChildren()) do
  107. if Log.Name:sub(1, 6) == "Loose_" and Log:findFirstChild("Owner") then
  108. if Log.Owner.Value == game.Players.LocalPlayer then
  109. for i,v in pairs(Log:GetChildren()) do
  110. if v.Name=="WoodSection" then
  111. spawn(function()
  112. for i=1,10 do
  113. wait()
  114. v.CFrame=CFrame.new(Vector3.new(315, -0.296, 85.791))*CFrame.Angles(math.rad(90),0,0)
  115. end
  116. end)
  117. end
  118. end
  119. spawn(function()
  120. for i=1,20 do
  121. wait()
  122. game.ReplicatedStorage.Interaction.ClientIsDragging:FireServer(Log)
  123. end
  124. end)
  125. end
  126. end
  127. end
  128. end)
  129.  
  130. GetItem.Name = "GetItem"
  131. GetItem.Parent = Lt2Gui
  132. GetItem.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.203922)
  133. GetItem.BorderSizePixel = 0
  134. GetItem.Position = UDim2.new(0.381071657, 0, 0.74000001, 0)
  135. GetItem.Size = UDim2.new(0, 113, 0, 19)
  136. GetItem.Font = Enum.Font.SourceSans
  137. GetItem.Text = "Get"
  138. GetItem.TextColor3 = Color3.new(1, 1, 1)
  139. GetItem.TextSize = 18
  140. GetItem.MouseButton1Click:Connect(function()
  141. local Item = SpawnBox1.Text
  142. local Quantity = QBox1.Text
  143.  
  144. local Land = nil
  145. for i,v in pairs(game.Workspace.Properties:GetChildren()) do
  146. if v.Owner.Value == game.Players.LocalPlayer then
  147. Land = v
  148. break
  149. end
  150. end
  151. if not Land then
  152. for i,v in pairs(game.Workspace.Properties:GetChildren()) do
  153. if v.Owner.Value == game.Players.LocalPlayer or v.Owner.Value == nil then
  154. Land = v
  155. game.ReplicatedStorage.Interaction.ClientIsDragging:FireServer(v)
  156. break
  157. end
  158. end
  159. end
  160.  
  161. function Spawn(Item)
  162. local Info = {}
  163. Info.Name = Item.Name
  164. Info.Type = game.ReplicatedStorage.Purchasables.Structures.HardStructures.Sawmill2.Type
  165. Info.OtherInfo = game.ReplicatedStorage.Purchasables.WireObjects.Wire.OtherInfo
  166. local Points = {Land.OriginSquare.Position + Vector3.new(0,5,0), Land.OriginSquare.Position + Vector3.new(0,5,0)}
  167. game.ReplicatedStorage.PlaceStructure.ClientPlacedWire:FireServer(Info, Points)
  168. end
  169.  
  170. for i=1, Quantity do
  171. Spawn(game.ReplicatedStorage.Purchasables:FindFirstChild(Item, true))
  172. end
  173. end)
  174. SpawnBox.Name = "SpawnBox"
  175. SpawnBox.Parent = Lt2Gui
  176. SpawnBox.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.203922)
  177. SpawnBox.BorderSizePixel = 0
  178. SpawnBox.Position = UDim2.new(0.293532342, 0, 0.430000007, 0)
  179. SpawnBox.Size = UDim2.new(0, 182, 0, 31)
  180. SpawnBox.Font = Enum.Font.SourceSans
  181. SpawnBox.Text = ""
  182. SpawnBox.TextColor3 = Color3.new(1, 1, 1)
  183. SpawnBox1.TextSize = 18
  184.  
  185. QBox1.Name = "QBox"
  186. QBox.Parent = Lt2Gui
  187. QBox.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.203922)
  188. QBox.BorderSizePixel = 0
  189. QBox.Position = UDim2.new(0.370646775, 0, 0.61499995, 0)
  190. QBox.Size = UDim2.new(0, 123, 0, 19)
  191. QBox.Font = Enum.Font.SourceSans
  192. QBox.Text = ""
  193. QBox.TextColor3 = Color3.new(1, 1, 1)
  194. QBox.TextSize = 18
  195. -- Scripts:
Add Comment
Please, Sign In to add comment