API tools faq
paste
Advertisement
waconline

forest

waconline
Feb 12th, 2020
2,346
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.36 KB | None | 0 0
raw download clone embed print report
  1. --https://github.com/Mokiros/roblox-FE-compatibility
  2. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  3. local Player,game,owner = owner,game
  4. local RealPlayer = Player
  5. do
  6. print("FE Compatibility code V2 by Mokiros")
  7. local RealPlayer = RealPlayer
  8. script.Parent = RealPlayer.Character
  9.  
  10. --Fake event to make stuff like Mouse.KeyDown work
  11. local Disconnect_Function = function(this)
  12. this[1].Functions[this[2]] = nil
  13. end
  14. local Disconnect_Metatable = {__index={disconnect=Disconnect_Function,Disconnect=Disconnect_Function}}
  15. local FakeEvent_Metatable = {__index={
  16. Connect = function(this,f)
  17. local i = tostring(math.random(0,10000))
  18. while this.Functions[i] do
  19. i = tostring(math.random(0,10000))
  20. end
  21. this.Functions[i] = f
  22. return setmetatable({this,i},Disconnect_Metatable)
  23. end
  24. }}
  25. FakeEvent_Metatable.__index.connect = FakeEvent_Metatable.__index.Connect
  26. local function fakeEvent()
  27. return setmetatable({Functions={}},FakeEvent_Metatable)
  28. end
  29.  
  30. --Creating fake input objects with fake variables
  31. local FakeMouse = {Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent(),Button2Up=fakeEvent(),Button2Down=fakeEvent()}
  32. FakeMouse.keyUp = FakeMouse.KeyUp
  33. FakeMouse.keyDown = FakeMouse.KeyDown
  34. local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
  35. local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
  36. CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
  37. end}
  38. --Merged 2 functions into one by checking amount of arguments
  39. CAS.UnbindAction = CAS.BindAction
  40.  
  41. --This function will trigger the events that have been :Connect()'ed
  42. local function TriggerEvent(self,ev,...)
  43. for _,f in pairs(self[ev].Functions) do
  44. f(...)
  45. end
  46. end
  47. FakeMouse.TriggerEvent = TriggerEvent
  48. UIS.TriggerEvent = TriggerEvent
  49.  
  50. --Client communication
  51. local Event = Instance.new("RemoteEvent")
  52. Event.Name = "UserInput_Event"
  53. Event.OnServerEvent:Connect(function(plr,io)
  54. if plr~=RealPlayer then return end
  55. FakeMouse.Target = io.Target
  56. FakeMouse.Hit = io.Hit
  57. if not io.isMouse then
  58. local b = io.UserInputState == Enum.UserInputState.Begin
  59. if io.UserInputType == Enum.UserInputType.MouseButton1 then
  60. return FakeMouse:TriggerEvent(b and "Button1Down" or "Button1Up")
  61. end
  62. if io.UserInputType == Enum.UserInputType.MouseButton2 then
  63. return FakeMouse:TriggerEvent(b and "Button2Down" or "Button2Up")
  64. end
  65. for _,t in pairs(CAS.Actions) do
  66. for _,k in pairs(t.Keys) do
  67. if k==io.KeyCode then
  68. t.Function(t.Name,io.UserInputState,io)
  69. end
  70. end
  71. end
  72. FakeMouse:TriggerEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
  73. UIS:TriggerEvent(b and "InputBegan" or "InputEnded",io,false)
  74. end
  75. end)
  76. Event.Parent = NLS([==[local Event = script:WaitForChild("UserInput_Event")
  77. local Mouse = owner:GetMouse()
  78. local UIS = game:GetService("UserInputService")
  79. local input = function(io,RobloxHandled)
  80. if RobloxHandled then return end
  81. --Since InputObject is a client-side instance, we create and pass table instead
  82. Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState,Hit=Mouse.Hit,Target=Mouse.Target})
  83. end
  84. UIS.InputBegan:Connect(input)
  85. UIS.InputEnded:Connect(input)
  86.  
  87. local h,t
  88. --Give the server mouse data every second frame, but only if the values changed
  89. --If player is not moving their mouse, client won't fire events
  90. local HB = game:GetService("RunService").Heartbeat
  91. while true do
  92. if h~=Mouse.Hit or t~=Mouse.Target then
  93. h,t=Mouse.Hit,Mouse.Target
  94. Event:FireServer({isMouse=true,Target=t,Hit=h})
  95. end
  96. --Wait 2 frames
  97. for i=1,2 do
  98. HB:Wait()
  99. end
  100. end]==],script)
  101.  
  102. ----Sandboxed game object that allows the usage of client-side methods and services
  103. --Real game object
  104. local RealGame = game
  105.  
  106. --Metatable for fake service
  107. local FakeService_Metatable = {
  108. __index = function(self,k)
  109. local s = rawget(self,"_RealService")
  110. if s then
  111. return typeof(s[k])=="function"
  112. and function(_,...)return s[k](s,...)end or s[k]
  113. end
  114. end,
  115. __newindex = function(self,k,v)
  116. local s = rawget(self,"_RealService")
  117. if s then s[k]=v end
  118. end
  119. }
  120. local function FakeService(t,RealService)
  121. t._RealService = typeof(RealService)=="string" and RealGame:GetService(RealService) or RealService
  122. return setmetatable(t,FakeService_Metatable)
  123. end
  124.  
  125. --Fake game object
  126. local FakeGame = {
  127. GetService = function(self,s)
  128. return rawget(self,s) or RealGame:GetService(s)
  129. end,
  130. Players = FakeService({
  131. LocalPlayer = FakeService({GetMouse=function(self)return FakeMouse end},Player)
  132. },"Players"),
  133. UserInputService = FakeService(UIS,"UserInputService"),
  134. ContextActionService = FakeService(CAS,"ContextActionService"),
  135. RunService = FakeService({
  136. _btrs = {},
  137. RenderStepped = RealGame:GetService("RunService").Heartbeat,
  138. BindToRenderStep = function(self,name,_,fun)
  139. self._btrs[name] = self.Heartbeat:Connect(fun)
  140. end,
  141. UnbindFromRenderStep = function(self,name)
  142. self._btrs[name]:Disconnect()
  143. end,
  144. },"RunService")
  145. }
  146. rawset(FakeGame.Players,"localPlayer",FakeGame.Players.LocalPlayer)
  147. FakeGame.service = FakeGame.GetService
  148. FakeService(FakeGame,game)
  149. --Changing owner to fake player object to support owner:GetMouse()
  150. game,owner = FakeGame,FakeGame.Players.LocalPlayer
  151. end
  152. size = 240
  153.  
  154.  
  155.  
  156. CA = CFrame.Angles
  157.  
  158. CN = CFrame.new
  159.  
  160. V3 = Vector3.new
  161.  
  162. MR = math.rad
  163.  
  164. MP = math.pi
  165.  
  166. MRA = math.random
  167.  
  168. MH = math.huge
  169.  
  170.  
  171.  
  172. Wood = {"Brown", "Reddish brown"}
  173.  
  174. Leaves = {"Earth green", "Bright green", "Dark green", "Camo"}
  175.  
  176. LeafMeshes = {{"http://www.roblox.com/asset/?id=16659363", V3(2.05,-1.6,2.05)},
  177.  
  178. {"http://www.roblox.com/asset/?id=1091940", V3(1.2,0.6,1.2)}}
  179.  
  180.  
  181.  
  182. Rock = {"Medium grey", "Dark grey"}
  183.  
  184.  
  185.  
  186. Add = {
  187.  
  188. Mesh = function(P, Id, Id2, scale)
  189.  
  190. local m = Instance.new("SpecialMesh", P)
  191.  
  192. m.Scale = scale
  193.  
  194. m.MeshId = Id
  195.  
  196. m.TextureId = Id2
  197.  
  198. end
  199.  
  200. }
  201.  
  202.  
  203.  
  204. function Part(P, Anch, Coll, Tran, Ref, Col, X, Y, Z)
  205.  
  206. local p = Instance.new("Part")
  207.  
  208. p.TopSurface = 0
  209.  
  210. p.BottomSurface = 0
  211.  
  212. p.Transparency = Tran
  213.  
  214. p.Reflectance = Ref
  215.  
  216. p.CanCollide = Coll
  217.  
  218. p.Anchored = Anch
  219.  
  220. p.BrickColor = BrickColor.new(Col)
  221.  
  222. p.formFactor = "Custom"
  223.  
  224. p.Size = V3(X,Y,Z)
  225.  
  226. p.Parent = P
  227.  
  228. p.Locked = true
  229.  
  230. p:BreakJoints()
  231.  
  232. return p
  233.  
  234. end
  235.  
  236.  
  237.  
  238. Mod = Instance.new("Model",workspace)
  239.  
  240. Mod.Name = "Jungle"
  241.  
  242.  
  243.  
  244. Models = {
  245.  
  246. function(cf, siz)
  247.  
  248. local m = Instance.new("Model",Mod)
  249.  
  250. local cen = cf * CN(0, 0, -38*siz)
  251.  
  252. local wo = Wood[MRA(1,#Wood)]
  253.  
  254. local le = Leaves[MRA(1,#Leaves)]
  255.  
  256. local last = nil
  257.  
  258. for i = 0, 1, 0.2 do
  259.  
  260. local p = Part(m, true, true, 0, 0, wo, 3*siz, 5.7*siz, 3*siz)
  261.  
  262. Instance.new("SpecialMesh",p)
  263.  
  264. p.CFrame = cen * CA(MR(-40*i), 0, 0) * CN(0, 0, 38*siz)
  265.  
  266. if wo == Wood[1] then wo = Wood[2] else wo = Wood[1] end
  267.  
  268. last = p
  269.  
  270. end
  271.  
  272. local messa = LeafMeshes[MRA(1,#LeafMeshes)]
  273.  
  274. local a = -3
  275.  
  276. if messa == LeafMeshes[1] then
  277.  
  278. a = 0.4
  279.  
  280. end
  281.  
  282. last.BrickColor = BrickColor.new(le)
  283.  
  284. local p = Part(m, true, false, 0, 0, le, 0.2, 0.2, 0.2)
  285.  
  286. local m = Add.Mesh(p, messa[1], "", V3((messa[2].X*10)*siz,(messa[2].Y*10)*siz,(messa[2].Z*10)*siz))
  287.  
  288. p.CFrame = last.CFrame * CN(0, a*siz, 0) * CA(MP+MR(20), 0, 0)
  289.  
  290. end,
  291.  
  292. function(cf, siz)
  293.  
  294. local m = Instance.new("Model",Mod)
  295.  
  296. local ro1, ro2 = Rock[MRA(1,#Rock)], Rock[MRA(1,#Rock)]
  297.  
  298. local p = Part(m, true, true, 0, 0, ro1, 7.5*siz, 7.5*siz, 7.5*siz)
  299.  
  300. p.CFrame = cf * CN(0, 1.8*siz, 4*siz) * CA(MR(MRA(-180,180)), MR(MRA(-180,180)), MR(MRA(-180,180)))
  301.  
  302. local ms = Add.Mesh(p, "http://www.roblox.com/asset/?id=1290033", "", V3(5*siz, 5*siz, 5*siz))
  303.  
  304.  
  305.  
  306. local p2 = Part(m, true, true, 0, 0, ro2, 5.5*siz, 5.5*siz, 5.5*siz)
  307.  
  308. p2.CFrame = cf * CN(7*siz, 1.5*siz, -6*siz) * CA(MR(MRA(-180,180)), MR(MRA(-180,180)), MR(MRA(-180,180)))
  309.  
  310. local ms2 = Add.Mesh(p2, "http://www.roblox.com/asset/?id=1290033", "", V3(3.8*siz, 3.8*siz, 3.8*siz))
  311.  
  312. end,
  313.  
  314. function(cf, siz)
  315.  
  316. local m = Instance.new("Model",Mod)
  317.  
  318. local le = Leaves[MRA(1,#Leaves)]
  319.  
  320.  
  321.  
  322. local p = Part(m, true, false, 0, 0, le, 0.2, 0.2, 0.2)
  323.  
  324. p.CFrame = cf * CN(2*siz, 1.6*siz, -4*siz) * CA(0, 0, 0)
  325.  
  326. local ms = Add.Mesh(p, "http://www.roblox.com/asset/?id=1095708", "", V3(12*siz, 11*siz, 10*siz))
  327.  
  328.  
  329.  
  330. local p2 = Part(m, true, false, 0, 0, le, 0.2, 0.2, 0.2)
  331.  
  332. p2.CFrame = cf * CN(-4*siz, 1.1*siz, -1*siz) * CA(0, MR(-34), 0)
  333.  
  334. local ms2 = Add.Mesh(p2, "http://www.roblox.com/asset/?id=1095708", "", V3(10*siz, 7.5*siz, 8*siz))
  335.  
  336. end,
  337.  
  338. function(cf, siz)
  339.  
  340. local m = Instance.new("Model",Mod)
  341.  
  342.  
  343.  
  344. local p = Part(m, true, false, 0, 0, "Bright green", 0.2, 0.2, 0.2)
  345.  
  346. p.CFrame = cf * CN(2*siz, 1.1*siz, -4*siz) * CA(0, 0, 0)
  347.  
  348. local ms = Add.Mesh(p, "http://www.roblox.com/asset/?id=16659363", "http://www.roblox.com/asset/?id=16659355", V3(10*siz, 14*siz, 10*siz))
  349.  
  350.  
  351.  
  352. local p2 = Part(m, true, false, 0, 0, "Bright green", 0.2, 0.2, 0.2)
  353.  
  354. p2.CFrame = cf * CN(-4*siz, 0.7*siz, 1*siz) * CA(MR(MRA(-15,15)), MR(MRA(-180,180)), MR(MRA(-15,15)))
  355.  
  356. local ms2 = Add.Mesh(p2, "http://www.roblox.com/asset/?id=16659363", "http://www.roblox.com/asset/?id=16659355", V3(7*siz, 11*siz, 6*siz))
  357.  
  358. end,
  359.  
  360. function(cf, siz)
  361.  
  362. local m = Instance.new("Model",Mod)
  363.  
  364.  
  365.  
  366. local p = Part(m, true, true, 0, 0, "White", 1.2*siz, 6*siz, 1.2*siz)
  367.  
  368. p.CFrame = cf * CN((MRA(-4*100,4*100)/100)*siz, 3.2*siz, (MRA(-4*100,4*100)/100)*siz) * CA(0, MR(MRA(-180,180)), 0)
  369.  
  370. local ms = Add.Mesh(p, "http://www.roblox.com/asset/?id=1090398", "http://www.roblox.com/asset/?id=1090399", V3(3.5*siz, 5*siz, 3.5*siz))
  371.  
  372. end,
  373.  
  374. function(cf, siz)
  375.  
  376. local m = Instance.new("Model",Mod)
  377.  
  378. local col = Wood[MRA(1,#Wood)]
  379.  
  380. local p = Part(m, true, true, 0, 0, col, 2.8*siz, 22*siz, 2.8*siz)
  381.  
  382. Instance.new("SpecialMesh",p)
  383.  
  384. p.CFrame = cf * CN((MRA(-4*100,4*100)/100)*siz, 11*siz, (MRA(-4*100,4*100)/100)*siz) * CA(0, MR(MRA(-180,180)), 0)
  385.  
  386. local leave = Leaves[MRA(1, #Leaves)]
  387.  
  388. local mes = LeafMeshes[MRA(1, #LeafMeshes)]
  389.  
  390. local a = 3
  391.  
  392. local ca = CA(MR(MRA(-30, 30)), MR(MRA(-180, 180)), MR(MRA(-30, 30)))
  393.  
  394. if mes == LeafMeshes[1] then
  395.  
  396. a = -0.5
  397.  
  398. ca = ca * CA(MP, 0, 0)
  399.  
  400. end
  401.  
  402. for i = 1, MRA(1,5) do
  403.  
  404. local cf2 = p.CFrame * CA(0, MR(MRA(-180,180)), 0) * CN(0, (MRA(2*100, 14*100)/100)*siz, -1.4*siz)
  405.  
  406. local center = cf2 * CN(0, 0, -8*siz) * CA(0, 0, 0)
  407.  
  408. local first = nil
  409.  
  410. for x = 0, 45, 15 do
  411.  
  412. local p2 = Part(m, true, true, 0, 0, col, 2.5*siz, 4*siz, 2.5*siz)
  413.  
  414. Instance.new("SpecialMesh", p2)
  415.  
  416. p2.CFrame = center * CN(0, 0, 4*siz) * CA(MR(x), 0, 0) * CN(0, 0, 10*siz) * CA(0, 0, 0)
  417.  
  418. if first == nil then first = p2 end
  419.  
  420. end
  421.  
  422. local p3 = Part(m, true, false, 0, 0, leave, 0.2, 0.2, 0.2)
  423.  
  424. Add.Mesh(p3, mes[1], "", (mes[2]*7)*siz)
  425.  
  426. local ca2 = CA(MR(MRA(-30, 30)), MR(MRA(-180, 180)), MR(MRA(-30, 30)))
  427.  
  428. if mes == LeafMeshes[1] then
  429.  
  430. ca2 = ca2 * CA(MP, 0, 0)
  431.  
  432. end
  433.  
  434. p3.CFrame = first.CFrame * CN(0, a*siz, 0) * ca2
  435.  
  436. end
  437.  
  438. local p3 = Part(m, true, false, 0, 0, leave, 0.2, 0.2, 0.2)
  439.  
  440. Add.Mesh(p3, mes[1], "", (mes[2]*9)*siz)
  441.  
  442. local cn = p.CFrame * CN(0, 11*siz, 0)
  443.  
  444. p3.CFrame = cn * CN(0, a*siz, 0) * ca
  445.  
  446. end,
  447.  
  448. }
  449.  
  450.  
  451.  
  452. pos = CN(0, 0, 0)
  453.  
  454.  
  455.  
  456.  
  457.  
  458. local base = Part(Mod, true, true, 0, 0, Leaves[MRA(1,#Leaves)], size, 1, size)
  459.  
  460. base.CFrame = pos * CN(0, 1, 0)
  461.  
  462. base.Material = "Grass"
  463.  
  464.  
  465.  
  466. for x = -size/2, size/2, 20 do
  467.  
  468. for z = -size/2, size/2, 20 do
  469.  
  470. Models[MRA(1, #Models)](pos * CN(x+(MRA(-4*1000, 4*1000)/1000), 1.2, z+(MRA(-4*1000, 4*1000)/1000)) * CA(0, MR(MRA(-180,180)), 0), MRA(1.1*100, 2.4*100)/100)
  471.  
  472. end
  473.  
  474. wait(0.2)
  475.  
  476. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!