SHOW:
|
|
- or go back to the newest paste.
| 1 | if game:GetService("RunService"):IsClient() then error("Please run as a server script. Use h/ instead of hl/.") end
| |
| 2 | print("FE Compatibility: by WaverlyCole & Mokiros")
| |
| 3 | InternalData = {}
| |
| 4 | do | |
| 5 | script.Parent = owner.Character | |
| 6 | local Event = Instance.new("RemoteEvent")
| |
| 7 | Event.Name = "UserInput" | |
| 8 | local function NewFakeEvent() | |
| 9 | local Fake = {fakeEvent=true,Connect=function(self,Func)self.Function=Func end}Fake.connect = Fake.Connect
| |
| 10 | return Fake | |
| 11 | end | |
| 12 | local Mouse = {Target=nil,Hit=CFrame.new(),KeyUp=NewFakeEvent(),KeyDown=NewFakeEvent(),Button1Up=NewFakeEvent(),Button1Down=NewFakeEvent()}
| |
| 13 | local UserInputService = {InputBegan=NewFakeEvent(),InputEnded=NewFakeEvent()}
| |
| 14 | local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
| |
| 15 | self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
| |
| 16 | end};ContextActionService.UnBindAction = ContextActionService.BindAction | |
| 17 | local function TriggerEvent(self,Event,...) | |
| 18 | local Trigger = Mouse[Event] | |
| 19 | if Trigger and Trigger.fakeEvent and Trigger.Function then | |
| 20 | Trigger.Function(...) | |
| 21 | end | |
| 22 | end | |
| 23 | Mouse.TrigEvent = TriggerEvent | |
| 24 | UserInputService.TrigEvent = TriggerEvent | |
| 25 | Event.OnServerEvent:Connect(function(FiredBy,Input) | |
| 26 | if FiredBy.Name ~= owner.Name then end | |
| 27 | if Input.MouseEvent then | |
| 28 | Mouse.Target = Input.Target | |
| 29 | Mouse.Hit = Input.Hit | |
| 30 | else | |
| 31 | local Begin = Input.UserInputState == Enum.UserInputState.Begin | |
| 32 | if Input.UserInputType == Enum.UserInputType.MouseButton1 then | |
| 33 | return Mouse:TrigEvent(Begin and "Button1Down" or "Button1Up") | |
| 34 | end | |
| 35 | for _,Action in pairs(ContextActionService.Actions) do | |
| 36 | for _,Key in pairs(Action.Keys) do | |
| 37 | if Key==Input.KeyCode then | |
| 38 | - | Instance.new("DistortionSoundEffect", sound).Level = 1000
|
| 38 | + | Action.Function(Action.Name,Input.UserInputState,Input) |
| 39 | end | |
| 40 | end | |
| 41 | end | |
| 42 | Mouse:TrigEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower()) | |
| 43 | UserInputService:TrigEvent(Begin and "InputBegan" or "InputEnded",Input,false) | |
| 44 | end | |
| 45 | end) | |
| 46 | InternalData["Mouse"] = Mouse | |
| 47 | InternalData["ContextActionService"] = ContextActionService | |
| 48 | InternalData["UserInputService"] = UserInputService | |
| 49 | Event.Parent = NLS([[ | |
| 50 | local Player = owner | |
| 51 | local Event = script:WaitForChild("UserInput")
| |
| 52 | local UserInputService = game:GetService("UserInputService")
| |
| 53 | local Mouse = Player:GetMouse() | |
| 54 | local Input = function(Input,gameProcessedEvent) | |
| 55 | if gameProcessedEvent then return end | |
| 56 | Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
| |
| 57 | end | |
| 58 | UserInputService.InputBegan:Connect(Input) | |
| 59 | UserInputService.InputEnded:Connect(Input) | |
| 60 | local Hit,Target | |
| 61 | while wait(1/30) do | |
| 62 | if Hit ~= Mouse.Hit or Target ~= Mouse.Target then | |
| 63 | Hit,Target = Mouse.Hit,Mouse.Target | |
| 64 | Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
| |
| 65 | end | |
| 66 | end | |
| 67 | ]],owner.Character) | |
| 68 | end | |
| 69 | RealGame = game;game = setmetatable({},{
| |
| 70 | __index = function (self,Index) | |
| 71 | local Sandbox = function (Thing) | |
| 72 | if Thing:IsA("Player") then
| |
| 73 | local RealPlayer = Thing | |
| 74 | return setmetatable({},{
| |
| 75 | __index = function (self,Index) | |
| 76 | local Type = type(RealPlayer[Index]) | |
| 77 | if Type == "function" then | |
| 78 | if Index:lower() == "getmouse" or Index:lower() == "mouse" then | |
| 79 | return function (self) | |
| 80 | - | label.Text = "Made By ChuckXZ! Also Edited by UltimateGate" |
| 80 | + | return InternalData["Mouse"] |
| 81 | end | |
| 82 | end | |
| 83 | return function (self,...) | |
| 84 | return RealPlayer[Index](RealPlayer,...) | |
| 85 | end | |
| 86 | else | |
| 87 | if Index == "PlrObj" then | |
| 88 | return RealPlayer | |
| 89 | end | |
| 90 | return RealPlayer[Index] | |
| 91 | end | |
| 92 | end; | |
| 93 | __tostring = function(self) | |
| 94 | return RealPlayer.Name | |
| 95 | end | |
| 96 | }) | |
| 97 | end | |
| 98 | end | |
| 99 | if RealGame[Index] then | |
| 100 | local Type = type(RealGame[Index]) | |
| 101 | if Type == "function" then | |
| 102 | if Index:lower() == "getservice" or Index:lower() == "service" then | |
| 103 | return function (self,Service) | |
| 104 | if Service:lower() == "players" then | |
| 105 | return setmetatable({},{
| |
| 106 | __index = function (self2,Index2) | |
| 107 | local RealService = RealGame:GetService(Service) | |
| 108 | local Type2 = type(Index2) | |
| 109 | if Type2 == "function" then | |
| 110 | return function (self,...) | |
| 111 | return RealService[Index2](RealService,...) | |
| 112 | end | |
| 113 | else | |
| 114 | if Index2:lower() == "localplayer" then | |
| 115 | return Sandbox(owner) | |
| 116 | end | |
| 117 | return RealService[Index2] | |
| 118 | end | |
| 119 | end; | |
| 120 | __tostring = function(self) | |
| 121 | return RealGame:GetService(Service).Name | |
| 122 | end | |
| 123 | }) | |
| 124 | elseif Service:lower() == "contextactionservice" then | |
| 125 | return InternalData["ContextActionService"] | |
| 126 | elseif Service:lower() == "contextactionservice" then | |
| 127 | return InternalData["UserInputService"] | |
| 128 | elseif Service:lower() == "runservice" then | |
| 129 | return setmetatable({},{
| |
| 130 | __index = function(self2,Index2) | |
| 131 | local RealService = RealGame:GetService(Service) | |
| 132 | local Type2 = type(Index2) | |
| 133 | if Type2 == "function" then | |
| 134 | return function (self,...) | |
| 135 | return RealService[Index2](RealService,...) | |
| 136 | end | |
| 137 | else | |
| 138 | if Index2:lower() == "bindtorenderstep" then | |
| 139 | return function (self,Name,Priority,Function) | |
| 140 | return RealGame:GetService("RunService").Stepped:Connect(Function)
| |
| 141 | end | |
| 142 | end | |
| 143 | if Index2:lower() == "renderstepped" then | |
| 144 | return RealService["Stepped"] | |
| 145 | end | |
| 146 | return RealService[Index2] | |
| 147 | end | |
| 148 | end | |
| 149 | }) | |
| 150 | else | |
| 151 | return RealGame:GetService(Service) | |
| 152 | end | |
| 153 | end | |
| 154 | end | |
| 155 | return function (self,...) | |
| 156 | return RealGame[Index](RealGame,...) | |
| 157 | end | |
| 158 | else | |
| 159 | if game:GetService(Index) then | |
| 160 | return game:GetService(Index) | |
| 161 | end | |
| 162 | return RealGame[Index] | |
| 163 | end | |
| 164 | else | |
| 165 | return nil | |
| 166 | end | |
| 167 | end | |
| 168 | });Game = game;owner = game:GetService("Players").LocalPlayer;script = {}
| |
| 169 | print("Complete! Running...")
| |
| 170 | ||
| 171 | ||
| 172 | --//Paste script below this line. | |
| 173 | ||
| 174 | --ffghjkgh67 | |
| 175 | ||
| 176 | --Script Builder Radio! | |
| 177 | ||
| 178 | local Player = game.Players.LocalPlayer | |
| 179 | local c = Player.Character | |
| 180 | if not c or not c.Parent then | |
| 181 | c = Player.CharacterAdded:wait() | |
| 182 | end | |
| 183 | ||
| 184 | wait(1) | |
| 185 | ||
| 186 | local radio = Instance.new("Part",c)
| |
| 187 | radio.Name = "Radio" | |
| 188 | radio.CanCollide = false | |
| 189 | radio.Anchored = true | |
| 190 | radio.FormFactor = "Custom" | |
| 191 | radio.Size = Vector3.new(3.2, 1.43, 0.8) | |
| 192 | radio.CFrame = c.Torso.CFrame * CFrame.new(0,0,.8) | |
| 193 | radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,3.15,0) | |
| 194 | radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,0,-.7) | |
| 195 | ||
| 196 | local mesh = Instance.new("SpecialMesh",radio)
| |
| 197 | mesh.MeshId = "http://www.roblox.com/asset/?id=151760030" | |
| 198 | mesh.TextureId = "http://www.roblox.com/asset/?id=201953316" | |
| 199 | ||
| 200 | local weld = Instance.new("Weld",radio)
| |
| 201 | weld.Part0 = c.Torso | |
| 202 | weld.Part1 = radio | |
| 203 | weld.C0 = c.Torso.CFrame:inverse() | |
| 204 | weld.C1 = radio.CFrame:inverse() | |
| 205 | radio.Anchored = false | |
| 206 | ||
| 207 | local sound = Instance.new("Sound",radio)
| |
| 208 | sound.Name = "Music" | |
| 209 | sound.Looped = true | |
| 210 | sound.Volume = 1000 | |
| 211 | ||
| 212 | local gui = Instance.new("ScreenGui",Player.PlayerGui)
| |
| 213 | ||
| 214 | local frame = Instance.new("Frame",gui)
| |
| 215 | frame.BackgroundColor3 = Color3.new(58/255,58/255,58/255) | |
| 216 | frame.BorderColor3 = Color3.new(0,0,0) | |
| 217 | frame.BorderSizePixel = 2 | |
| 218 | frame.Size = UDim2.new(0,300,0,200) | |
| 219 | frame.Position = UDim2.new(0,20,.5,-100) | |
| 220 | ||
| 221 | local playb = Instance.new("TextButton",frame)
| |
| 222 | playb.BackgroundColor3 = Color3.new(0,85/255,0) | |
| 223 | playb.BorderColor3 = Color3.new(0,0,0) | |
| 224 | playb.BorderSizePixel = 2 | |
| 225 | playb.Size = UDim2.new(.3,0,.2,0) | |
| 226 | playb.Position = UDim2.new(.1,0,.7,0) | |
| 227 | playb.Text = "Play" | |
| 228 | playb.TextColor3 = Color3.new(255,255,255) | |
| 229 | playb.TextScaled = true | |
| 230 | ||
| 231 | local stopb = Instance.new("TextButton",frame)
| |
| 232 | stopb.BackgroundColor3 = Color3.new(170/255,0,0) | |
| 233 | stopb.BorderColor3 = Color3.new(0,0,0) | |
| 234 | stopb.BorderSizePixel = 2 | |
| 235 | stopb.Size = UDim2.new(.3,0,.2,0) | |
| 236 | stopb.Position = UDim2.new(.6,0,.7,0) | |
| 237 | stopb.Text = "Stop" | |
| 238 | stopb.TextColor3 = Color3.new(255,255,255) | |
| 239 | stopb.TextScaled = true | |
| 240 | ||
| 241 | local stipb = Instance.new("TextBox",frame)
| |
| 242 | stipb.BackgroundColor3 = Color3.new(0,0,127/255) | |
| 243 | stipb.BorderColor3 = Color3.new(0,0,0) | |
| 244 | stipb.BorderSizePixel = 2 | |
| 245 | stipb:TweenSize(UDim2.new(.5,0,.25,0),"Out","Quad",1,true) | |
| 246 | stipb.Position = UDim2.new(.25,0,.3,0) | |
| 247 | stipb.Text = "SoundId" | |
| 248 | stipb.TextColor3 = Color3.new(255,255,255) | |
| 249 | stipb.TextScaled = true | |
| 250 | ||
| 251 | local label = Instance.new("TextLabel",frame)
| |
| 252 | label.Text = "Made By ChuckXZ! | Also Edited by UltimateGate (Converted by SS)" | |
| 253 | label.TextScaled = true | |
| 254 | label:TweenSize(UDim2.new(1,0,.2,0)) | |
| 255 | label.TextColor3 = Color3.new(255,255,255) | |
| 256 | label.BackgroundTransparency = 1 | |
| 257 | --stipb.Size = UDim2.new(1,0,.2,0) | |
| 258 | ||
| 259 | local Playing = false | |
| 260 | ||
| 261 | stipb.Changed:connect(function() | |
| 262 | sound.SoundId = "rbxassetid://" .. stipb.Text | |
| 263 | end) | |
| 264 | ||
| 265 | playb.MouseButton1Click:connect(function() | |
| 266 | sound:Play() | |
| 267 | Playing = true | |
| 268 | end) | |
| 269 | ||
| 270 | stopb.MouseButton1Click:connect(function() | |
| 271 | sound:Stop() | |
| 272 | Playing = false | |
| 273 | end) | |
| 274 | ||
| 275 | while true do | |
| 276 | if Playing then | |
| 277 | mesh.Scale = Vector3.new(1.1,1.1,1.1) | |
| 278 | wait(.2) | |
| 279 | mesh.Scale = Vector3.new(1,1,1) | |
| 280 | end | |
| 281 | wait(.2) | |
| 282 | end |