API tools faq
paste
aweeb

Tycoon

aweeb
Feb 16th, 2019
842
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.25 KB | None | 0 0
raw download clone embed print report
  1. local n = tostring(math.random())
  2. script.Name = n
  3. local env = require(2084649733)
  4. env.print = print
  5. env.warn = warn
  6. env.error = error
  7. env.owner = env.game:GetService("Players"):FindFirstChild(owner.Name)
  8. env._script = script
  9. env._Instance = Instance
  10. env.NLS = NLS
  11. setfenv(1,env)
  12. script = workspace:FindFirstChild(n) or error("Script not found")
  13.  
  14. local Tycoon = (function(a)local function b(a,c)local d={}local e=string.format("([^%s]+)",c)a:gsub(e,function(f)d[#d+1]=f end)return d end;local function g(h,a)local function i(i)return unpack(b(i,","))end;if a=="true"or a=="false"then return a=="true"elseif h=="Color"or h:sub(#h-5)=="Color3"then return Color3.new(i(a))elseif#b(a,",")==4 then return UDim2.new(i(a))elseif#b(a,",")==3 then return Vector3.new(i(a))elseif#b(a,",")==2 then return Vector2.new(i(a))elseif tonumber(h)then return tonumber(h)else return a end end;local j=b(a,";")local k=b(table.remove(j,1),",")local l=b(table.remove(j,1),",")local m=Instance.new("Model")local n=m;local o=nil;table.foreach(j,function(p,f)if f=="n"then n=o;return elseif f=="p"then n=n.Parent;return end;local q=b(f,"|")local r=Instance.new(l[tonumber(table.remove(q,1))])if r:IsA("BasePart")then r.Anchored=true;r.Locked=true end;table.foreach(q,function(s,h)local i=h:find(":")i={h:sub(1,i-1),h:sub(i+1)}local h,t=k[tonumber(i[1])],i[2]t=g(h,t)r[h]=t end)r.Parent=n;o=r end)return m end
  15. )("Name,Color,Material,Position,Orientation,Size,Shape,Value,Transparency,CanCollide,LightInfluence,MaxDistance,StudsOffset,BackgroundColor3,BackgroundTransparency,Font,Text,TextColor3,TextScaled,TextSize,TextStrokeTransparency,TextWrapped;Folder,Part,NumberValue,StringValue,Model,BillboardGui,TextLabel,PointLight,Humanoid;1|1:Buttons;n;2|1:Back Wall|2:1,0,0|3:SmoothPlastic|4:-8,1.05,64|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:750;4|1:UpName|8:WallBack;p;2|1:Dropper 1|2:1,0,0|3:SmoothPlastic|4:50,1.05,104|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost;4|1:UpName|8:Dropper1;p;2|1:Dropper 2|2:1,0,0|3:SmoothPlastic|4:40,1.05,104|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:100;4|1:UpName|8:Dropper2;p;2|1:Dropper 3|2:1,0,0|3:SmoothPlastic|4:30,1.05,104|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:200;4|1:UpName|8:Dropper3;p;2|1:Dropper 4|2:1,0,0|3:SmoothPlastic|4:20,1.05,104|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:400;4|1:UpName|8:Dropper4;p;2|1:Dropper 5|2:1,0,0|3:SmoothPlastic|4:10,1.05,104|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:800;4|1:UpName|8:Dropper5;p;2|1:Dropper 6|2:1,0,0|3:SmoothPlastic|4:0,1.05,104|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:1600;4|1:UpName|8:Dropper6;p;2|1:Front Wall|2:1,0,0|3:SmoothPlastic|4:-13,1.05,64|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:750;4|1:UpName|8:WallFront;p;2|1:Left Wall|2:1,0,0|3:SmoothPlastic|4:-3,1.05,64|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:750;4|1:UpName|8:WallLeft;p;2|1:Owner Only Door|2:1,0,0|3:SmoothPlastic|4:25,1.05,64|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:1000;4|1:UpName|8:OwnerDoor;p;2|1:Right Wall|2:1,0,0|3:SmoothPlastic|4:2,1.05,64|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:750;4|1:UpName|8:WallRight;p;2|1:Upgrader 1|2:1,0,0|3:SmoothPlastic|4:-10,1.05,104|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:1000;4|1:UpName|8:Upgrader;p;2|1:Ceiling|2:1,0,0|3:SmoothPlastic|4:-18,1.05,64|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:999;4|1:UpName|8:Ceiling;p;2|1:Conveyor Walls|2:1,0,0|3:SmoothPlastic|4:52,1.05,79|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:500;4|1:UpName|8:ConveyorWalls;p;2|1:Higher Conveyor Walls|2:1,0,0|3:SmoothPlastic|4:46,1.05,79|5:0,0,-90|6:0.11,4,4|7:Cylinder;n;3|1:Cost|8:1500;4|1:UpName|8:HigherWalls;p;p;1|1:Upgrades;n;5|1:Dropper2;n;2|3:DiamondPlate|4:40,15,92|6:2,2,8;2|3:DiamondPlate|4:40,12.71,92.99|5:30,0,0|6:1,1,8;2|3:DiamondPlate|4:40,9.5,98|6:4,13,4;2|3:Concrete|4:40,2,98|6:6,2,6;2|1:Dropper|2:0.98,0.98,0.98|3:SmoothPlastic|9:0.5|4:40,13.5,89|6:1,1,1;3|1:Cost|8:90;3|1:Delay|8:4;p;5|1:Dropper4;n;2|3:DiamondPlate|4:20,15,92|6:2,2,8;2|3:DiamondPlate|4:20,12.71,92.99|5:30,0,0|6:1,1,8;2|3:DiamondPlate|4:20,9.5,98|6:4,13,4;2|3:Concrete|4:20,2,98|6:6,2,6;2|1:Dropper|2:0.98,0.98,0.98|3:SmoothPlastic|9:0.5|4:20,13.5,89|6:1,1,1;3|1:Cost|8:70;3|1:Delay|8:2;p;5|1:Dropper5;n;2|3:DiamondPlate|4:10,15,92|6:2,2,8;2|3:DiamondPlate|4:10,12.71,92.99|5:30,0,0|6:1,1,8;2|3:DiamondPlate|4:10,9.5,98|6:4,13,4;2|3:Concrete|4:10,2,98|6:6,2,6;2|1:Dropper|2:0.98,0.98,0.98|3:SmoothPlastic|9:0.5|4:10,13.5,89|6:1,1,1;3|1:Cost|8:60;3|1:Delay|8:1;p;5|1:Dropper6;n;2|3:DiamondPlate|4:0,15.75,92|6:3,2.5,8;2|3:DiamondPlate|4:0,13.86,93.36|5:30,0,0|6:2,1.5,8;2|3:DiamondPlate|4:0,10,98|6:5,14,5;2|3:Concrete|4:0,2,98|6:7,2,7;2|1:Dropper|2:0.98,0.98,0.98|3:SmoothPlastic|9:0.5|4:0,13.5,89|6:2,2,2;3|1:Cost|8:1000;3|1:Delay|8:10;p;5|1:Dropper1;n;2|3:DiamondPlate|4:50,15,92|6:2,2,8;2|3:DiamondPlate|4:50,12.71,92.99|5:30,0,0|6:1,1,8;2|3:DiamondPlate|4:50,9.5,98|6:4,13,4;2|3:Concrete|4:50,2,98|6:6,2,6;2|1:Dropper|2:0.98,0.98,0.98|3:SmoothPlastic|9:0.5|4:50,13.5,89|6:1,1,1;3|1:Delay|8:5;3|1:Cost|8:100;p;5|1:Dropper3;n;2|3:DiamondPlate|4:30,15,92|6:2,2,8;2|3:DiamondPlate|4:30,12.71,92.99|5:30,0,0|6:1,1,8;2|3:DiamondPlate|4:30,9.5,98|6:4,13,4;2|3:Concrete|4:30,2,98|6:6,2,6;2|1:Dropper|2:0.98,0.98,0.98|3:SmoothPlastic|9:0.5|4:30,13.5,89|6:1,1,1;3|1:Cost|8:80;3|1:Delay|8:3;p;5|1:Upgrader;n;2|3:DiamondPlate|4:-10,5,98|6:2,6,6;2|3:Concrete|4:-10,1.5,97.5|6:4,1,7;2|1:Touch|3:Neon|9:0.7|4:-10,4.5,89.5|6:1,5,11|10:false;p;5|1:WallLeft;n;2|3:Metal|4:-39.5,17,85|6:1,4,48;2|3:Glass|9:0.5|4:-39.5,13,85|6:1,4,48;2|3:Metal|4:-39.5,9,85|6:1,4,48;2|3:Glass|9:0.5|4:-39.5,5.01,85|6:1,4,48;2|3:Metal|4:-39.5,2.01,85|6:1,2,48;p;5|1:WallRight;n;2|3:Metal|4:69.5,17,85|6:1,4,48;2|3:Glass|9:0.5|4:69.5,13,85|6:1,4,48;2|3:Metal|4:69.5,9,85|6:1,4,48;2|3:Glass|9:0.5|4:69.5,5.01,85|6:1,4,48;2|3:Metal|4:69.5,2.01,85|6:1,2,48;p;5|1:WallFront;n;2|3:Metal|4:46,9,60.5|6:48,4,1;2|3:Glass|9:0.5|4:46,5,60.5|6:48,4,1;2|3:Metal|4:46,2,60.5|6:48,2,1;2|3:Metal|4:15,17,60.5|6:110,4,1;2|3:Metal|4:17,10,60.5|6:10,2,1;2|3:Metal|4:-14,2,60.5|6:52,2,1;2|3:Glass|9:0.5|4:-14,5,60.5|6:52,4,1;2|3:Glass|9:0.5|4:15,13,60.5|6:110,4,1;2|3:Metal|4:-14,9,60.5|6:52,4,1;p;5|1:WallBack;n;2|3:Metal|4:15,17,109.5|6:110,4,1;2|3:Glass|9:0.5|4:15,13,109.5|6:110,4,1;2|3:Metal|4:15,9,109.5|6:110,4,1;2|3:Glass|9:0.5|4:15,5,109.5|6:110,4,1;2|3:Metal|4:15,2,109.5|6:110,2,1;p;2|1:Ceiling|3:Metal|4:15,19.5,85|6:110,1,50;5|1:OwnerDoor;n;2|3:Metal|4:12.5,5,60.5|6:1,8,1;5|1:Lasers;n;2|2:1,0,0|3:Neon|9:0.5|4:17,3,60.5|6:8,1,1|7:Cylinder|10:false;2|2:1,0,0|3:Neon|9:0.5|4:17,5,60.5|6:8,1,1|7:Cylinder|10:false;2|2:1,0,0|3:Neon|9:0.5|4:17,7,60.5|6:8,1,1|7:Cylinder|10:false;p;2|3:Metal|4:21.5,5,60.5|6:1,8,1;p;5|1:ConveyorWalls;n;2|3:Metal|4:55.5,2,89|6:1,2,10;2|3:Metal|4:10,2,94.5|6:92,2,1;2|3:Metal|4:-35.5,2,89|6:1,2,10;2|3:Metal|4:10,2,83.5|6:92,2,1;p;5|1:HigherWalls;n;2|3:Glass|9:0.5|4:10,5,94.5|6:92,4,1;2|3:Metal|4:10,9,94.5|6:92,4,1;2|3:Metal|4:10,9,83.5|6:92,4,1;2|3:Glass|9:0.5|4:10,5,83.5|6:92,4,1;2|3:Glass|9:0.5|4:55.5,5,89|6:1,4,10;2|3:Metal|4:55.5,9,89|6:1,4,10;2|3:Glass|9:0.5|4:-35.5,5,89|6:1,4,10;2|3:Metal|4:-35.5,9,89|6:1,4,10;p;p;1|1:Templates;n;6|1:CostLabel|6:5,0,1,0|11:1|12:50|13:0,2,0;n;7|1:NameText|6:0.81,0,1,0|14:1,1,1|15:1|16:Cartoon|17:ItemName -|18:1,1,1|19:true|20:14|21:0|22:true;7|1:Label|4:0.81,0,0,0|6:0.21,0,1,0|14:1,1,1|15:1|16:Cartoon|17:999|18:1,1,1|19:true|20:14|21:0|22:true;p;p;5|1:Tycoon;n;2|1:Conveyor|2:0.11,0.17,0.21|3:SmoothPlastic|4:15,1.5,89|6:80,1,10;2|1:Burner|2:0.77,0.16,0.11|3:Granite|4:-30,1.2,89|6:10,0.4,10|10:false;n;8|2:1,0,0;p;2|1:Floor|3:DiamondPlate|4:15,0.5,85|6:110,1,50;5|1:Sign;n;2|1:Head|3:SmoothPlastic|4:17,0.5,56|6:8,1,8;9;p;5|1:Info;n;2|1:Head|3:SmoothPlastic|4:42,1.5,65|6:8,1,8;9;p;p;")
  16. local Player = owner or game.Players.Mokiros or game.Players.Player1
  17. local TModel = Tycoon.Tycoon
  18. local Templates,Buttons,Upgrades = Tycoon.Templates,Tycoon.Buttons,Tycoon.Upgrades
  19. local CostLabel = Templates.CostLabel
  20. local Parts = Instance.new("Folder")
  21. Parts.Parent = TModel
  22.  
  23. local Sign = TModel.Sign
  24. local Info = TModel.Info
  25.  
  26. Sign.Name = Player.Name.."'s Tycoon"
  27.  
  28. local Money = 0
  29. function ChangeMoney(amount)
  30. Money = Money + amount
  31. Info.Name = "Currency: "..tostring(Money)
  32. for _,Button in pairs(Buttons:GetChildren()) do
  33. local h = Button.Head
  34. local Cost = h.Cost.Value
  35. local OrigName = h.OrigName.Value
  36. if Money>=Cost then
  37. h.Color = Color3.new(0,1,0)
  38. Button.Name = OrigName.." ["..tostring(Cost).."]".." [Can Buy]"
  39. else
  40. h.Color = Color3.new(1,0,0)
  41. Button.Name = OrigName.." ["..tostring(Cost).."]".." ["..tostring(Cost-Money).."]"
  42. end
  43. end
  44. end
  45.  
  46. function AddDropper(model)
  47. local drop = model.Dropper
  48. drop.CanCollide = false
  49. local Cost,Delay = model.Cost.Value,model.Delay.Value
  50. spawn(function()
  51. while wait(Delay) do
  52. local p = Instance.new("Part")
  53. p.Size = drop.Size
  54. p.CFrame = drop.CFrame
  55. local v = Instance.new("NumberValue")
  56. v.Name = "Cost"
  57. v.Value = Cost
  58. v.Parent = p
  59. p.Parent = Parts
  60. end
  61. end)
  62. end
  63.  
  64. for _,Button in pairs(Buttons:GetChildren()) do
  65. local Cost,UpgradeName = Button.Cost.Value,Button.UpName.Value
  66. local UpgradeModel = Upgrades:FindFirstChild(UpgradeName)
  67. if not UpgradeModel then error('No Upgrade model with the name '..UpgradeName) end
  68. --[[
  69. local label = CostLabel:Clone()
  70. label.NameText.Text = UpgradeName.." -"
  71. label.Label.Text = tostring(Cost)
  72. label.Parent = Button
  73. ]]
  74. local nv = Instance.new("StringValue")
  75. nv.Name = "OrigName"
  76. nv.Value = Button.Name
  77. nv.Parent = Button
  78. local Model = Instance.new("Model")
  79. Instance.new("Humanoid").Parent = Model
  80. Button.Parent = Model
  81. Model.Name = Button.Name.." ["..tostring(Cost).."]".." [???]"
  82. Button.Name = "Head"
  83. Model.Parent = Buttons
  84. local a = false
  85. Button.Touched:Connect(function(hit)
  86. if a then return end
  87. local plr = game:GetService("Players"):GetPlayerFromCharacter(hit.Parent)
  88. if plr==Player and Money>=Cost then
  89. ChangeMoney(-Cost)
  90. UpgradeModel.Parent = TModel
  91. a = true
  92. Model:Destroy()
  93. if UpgradeModel:FindFirstChild('Dropper') then
  94. AddDropper(UpgradeModel)
  95. end
  96. end
  97. end)
  98. end
  99.  
  100. spawn(function()
  101. while wait(5) do
  102. TModel.Conveyor.Velocity = Vector3.new(-20,0,0)
  103. end
  104. end)
  105. TModel.Burner.Touched:Connect(function(hit)
  106. if hit.Parent~=Parts then return end
  107. local Cost = hit.Cost.Value
  108. ChangeMoney(Cost)
  109. hit:Destroy()
  110. end)
  111.  
  112. ChangeMoney(0)
  113. Buttons.Parent = TModel
  114. TModel.Parent = script
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!