API tools faq
paste
View difference between Paste ID: PfybDZAv and VeNppKuR
SHOW: | | - or go back to the newest paste.
1-
print("Shotgun M3 MADE BY vlad20020")
1+
---Dog Gui by vlad20020---
2-
if game:GetService("RunService"):IsClient() then error("yo weeb run it as served-sided script ok?") end
2+
3-
local Player,game,owner = owner,game

3+
4-
local RealPlayer = Player

4+
5-
do

5+
6-
    local rp = RealPlayer

6+
7-
    script.Parent = rp.Character

7+
8-
   

8+
9-
    --RemoteEvent for communicating

9+
10-
    local Event = Instance.new("RemoteEvent")

10+
11-
    Event.Name = "UserInput_Event"

11+
12-
 

12+
local ff = Instance.new("ForceField",char) ff.Visible = false

13-
    --Fake event to make stuff like Mouse.KeyDown work

13+
14-
    local function fakeEvent()

14+
hum.MaxHealth = "inf" hum.Health = "inf"

15-
        local t = {_fakeEvent=true,Functions={},Connect=function(self,f)table.insert(self.Functions,f) end}

15+
16-
        t.connect = t.Connect

16+
local sg = Instance.new("ScreenGui",plrg)

17-
        return t

17+
function CreateFrame(PARENT, TRANSPARENCY, BORDERSIZEPIXEL, POSITION, SIZE, COLOR, BORDERCOLOR, NAME)

18-
    end

18+
	local frame = Instance.new("Frame")

19-
 

19+
	frame.BackgroundTransparency = TRANSPARENCY

20-
    --Creating fake input objects with fake variables

20+
	frame.BorderSizePixel = BORDERSIZEPIXEL

21-
    local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}

21+
	frame.Position = POSITION

22-
    local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}

22+
	frame.Size = SIZE

23-
    local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)

23+
	frame.BackgroundColor3 = COLOR

24-
        CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil

24+
	frame.BorderColor3 = BORDERCOLOR

25-
    end}

25+
	frame.Name = NAME

26-
    --Merged 2 functions into one by checking amount of arguments

26+
	frame.Parent = PARENT

27-
    CAS.UnbindAction = CAS.BindAction

27+
	return frame

28-
 

28+
29-
    --This function will trigger the events that have been :Connect()'ed

29+
local frame = CreateFrame(sg,1,1,UDim2.new(0,0,.5,.5),UDim2.new(.15,0,.15,0),Color3.fromRGB(100,0,255),Color3.fromRGB(0,0,0),"Frame")

30-
    local function te(self,ev,...)

30+
local tbox = Instance.new("TextBox",frame) tbox.Size = UDim2.new(1,0,.5,0)  tbox.BackgroundColor3 = Color3.new(1,1,1) tbox.TextColor3 = Color3.fromRGB(255,160,0) tbox.ClearTextOnFocus = false tbox.Text = "Enter Target`s Name"

31-
        local t = m[ev]

31+
local button = Instance.new("TextButton",frame) button.TextScaled = true button.Size = UDim2.new(.33,0,.5,0) button.Position = UDim2.new(0,0,.5,0) button.BackgroundColor3 = Color3.new(0,1,0) button.TextColor3 = Color3.new(1,1,1) button.Text = "Submit"

32-
        if t and t._fakeEvent then

32+
local clear = Instance.new("TextButton",frame) clear.Size = UDim2.new(.34,0,.5,0) clear.Position = UDim2.new(.66,0,.5,0) clear.BackgroundColor3 = Color3.new(1,0,0) clear.TextColor3 = Color3.new(1,1,1) clear.Text = "Clear"

33-
            for _,f in pairs(t.Functions) do

33+
local des = Instance.new("TextButton",frame) clear.TextScaled = true des.Size = UDim2.new(.33,0,.5,0) des.Position = UDim2.new(.33,0,.5,0) des.TextScaled = true des.Text = "Oof" des.BackgroundColor3 = Color3.fromRGB(255,160,0) des.TextColor3 = Color3.new(1,1,1)

34-
                f(...)

34+
35-
            end

35+
clear.MouseButton1Click:connect(function()

36-
        end

36+
	tbox.Text = ""

37-
    end

37+
38-
    m.TrigEvent = te

38+
run = true

39-
    UIS.TrigEvent = te

39+
button.MouseButton1Click:connect(function()

40-
 

40+
	local naim = tbox.Text

41-
    Event.OnServerEvent:Connect(function(plr,io)

41+
	local target = workspace:FindFirstChild(naim)

42-
        if plr~=rp then return end

42+
	if target ~= nil then

43-
        m.Target = io.Target

43+
		local thum = target:FindFirstChildOfClass("Humanoid")

44-
        m.Hit = io.Hit

44+
		if thum ~= nil then

45-
        if not io.isMouse then

45+
			if target.Name == char.Name then

46-
            local b = io.UserInputState == Enum.UserInputState.Begin

46+
				

47-
            if io.UserInputType == Enum.UserInputType.MouseButton1 then

47+
			else

48-
                return m:TrigEvent(b and "Button1Down" or "Button1Up")

48+
		local dog = Instance.new("Model",workspace) dog.Name = char.Name.."`s Cat" 

49-
            end

49+
		local head = Instance.new("Part",dog) head.Name = "Head" head.Size = Vector3.new(0.01,0.01,0.01)

50-
            for _,t in pairs(CAS.Actions) do

50+
		local la1 = Instance.new("Part",dog) la1.Name = "Left Arm" la1.Size = Vector3.new(1,2,1) local t1 = Instance.new("Part",dog) t1.Name = "Torso" t1.Size = Vector3.new(2,2,1) local ra1 = Instance.new("Part",dog) ra1.Name = "Right Arm" ra1.Size = Vector3.new(1,2,1)

51-
                for _,k in pairs(t.Keys) do

51+
		local ll1 = Instance.new("Part",dog) ll1.Name = "Left Leg" ll1.Size = Vector3.new(1,2,1) local rl1 = Instance.new("Part",dog) rl1.Name = "Right Leg" rl1.Size = Vector3.new(1,2,1)

52-
                    if k==io.KeyCode then

52+
		local dhum = Instance.new("Humanoid",dog) local hmesh = Instance.new("SpecialMesh",head) hmesh.Scale = Vector3.new(1.25,1.25,1.25)

53-
                        t.Function(t.Name,io.UserInputState,io)

53+
		dhum.MaxHealth = "inf" dhum.Health = "inf" dhum.AutoJumpEnabled = true

54-
                    end

54+
		dhum.Died:connect(function()

55-
                end

55+
		local boom = Instance.new("Explosion",dog) boom.Position = t1.Position

56-
            end

56+
		end)

57-
            m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())

57+
		function die(hit)

58-
            UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)

58+
		if hit.Parent ~= nil then

59-
        end

59+
			local dumbass = hit.Parent:FindFirstChildOfClass("Humanoid")

60-
    end)

60+
			if dumbass ~= nil then

61-
    Event.Parent = NLS([==[

61+
				if hit.Parent == char then

62-
    local Player = game:GetService("Players").LocalPlayer

62+
				else

63-
    local Event = script:WaitForChild("UserInput_Event")

63+
					dumbass.MaxHealth = 100

64-
 

64+
					dumbass.Health = dumbass.Health -math.random(1,5)

65-
    local Mouse = Player:GetMouse()

65+
				end

66-
    local UIS = game:GetService("UserInputService")

66+
				end

67-
    local input = function(io,a)

67+
68-
        if a then return end

68+
69-
        --Since InputObject is a client-side instance, we create and pass table instead

69+
		t1.Touched:connect(die)

70-
        Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState,Hit=Mouse.Hit,Target=Mouse.Target})

70+
		--Colors--

71-
    end

71+
		head.BrickColor = BrickColor.new("Neon orange") t1.BrickColor = BrickColor.new("Neon orange") ra1.BrickColor = BrickColor.new("Neon orange") la1.BrickColor = BrickColor.new("Neon orange") rl1.BrickColor = BrickColor.new("Neon orange") ll1.BrickColor = BrickColor.new("Neon orange")

72-
    UIS.InputBegan:Connect(input)

72+
		--End Of Colors--

73-
    UIS.InputEnded:Connect(input)

73+
		local fais = Instance.new("Decal",head) fais.Texture = "http://www.roblox.com/asset/?id=1077397727" local zivot = Instance.new("Decal",t1) zivot.Texture = "http://www.roblox.com/asset/?id=631168527"

74-
 

74+
		local hath = Instance.new("Part",dog) hath.Size = Vector3.new(2,1,1) hath.CFrame = head.CFrame local hw = Instance.new("Weld",hath) hw.Part0 = head hw.Part1 = hath hath.Name = "Ears" local mesh = Instance.new("SpecialMesh",hath) mesh.MeshType = "FileMesh" mesh.MeshId = "http://www.roblox.com/asset/?id=379552190" mesh.TextureId = "http://www.roblox.com/asset/?id=379541232" mesh.Scale = Vector3.new(1.55, 1.5, 1.55)

75-
    local h,t

75+
		local nec = Instance.new("Motor6D",t1) nec.Part0 = t1 nec.Part1 = head nec.C0 = nec.C0 * CFrame.new(-0.5,1,0.4)

76-
    --Give the server mouse data 30 times every second, but only if the values changed

76+
		local ris = Instance.new("Motor6D",t1) ris.Part0 = t1 ris.Part1 = ra1 ris.C0 = ris.C0 * CFrame.new(1.5,0,0)

77-
    --If player is not moving their mouse, client won't fire events

77+
		local lis = Instance.new("Motor6D",t1) lis.Part0 = t1 lis.Part1 = la1 lis.C0 = lis.C0 * CFrame.new(-1.5,0,0)

78-
    while wait(1/30) do

78+
		local rih = Instance.new("Motor6D",t1) rih.Part0 = t1 rih.Part1 = rl1 rih.C0 = rih.C0 * CFrame.new(.5,-2,0)

79-
        if h~=Mouse.Hit or t~=Mouse.Target then

79+
		local lih = Instance.new("Motor6D",t1) lih.Part0 = t1 lih.Part1 = ll1 lih.C0 = lih.C0 * CFrame.new(-.5,-2,0)

80-
            h,t=Mouse.Hit,Mouse.Target

80+
		local pos = math.random(1,5)

81-
            Event:FireServer({isMouse=true,Target=t,Hit=h})

81+
		if pos == 1 then

82-
        end

82+
		head.CFrame = h.CFrame * CFrame.new(4,0,0)

83-
    end]==],Player.Character)

83+
		t1.CFrame = t.CFrame * CFrame.new(4,0,0)

84-
 

84+
		ra1.CFrame = ra.CFrame * CFrame.new(4,0,0)

85-
    ----Sandboxed game object that allows the usage of client-side methods and services

85+
		la1.CFrame = la.CFrame * CFrame.new(4,0,0)

86-
    --Real game object

86+
		rl1.CFrame = rl.CFrame * CFrame.new(4,0,0)

87-
    local _rg = game

87+
		ll1.CFrame = ll.CFrame * CFrame.new(4,0,0)

88-
 

88+
89-
    --Metatable for fake service

89+
		if pos == 2 then

90-
    local fsmt = {

90+
		head.CFrame = h.CFrame * CFrame.new(-3,0,4)

91-
        __index = function(self,k)

91+
		t1.CFrame = t.CFrame * CFrame.new(-3,0,4)

92-
            local s = rawget(self,"_RealService")

92+
		ra1.CFrame = ra.CFrame * CFrame.new(-3,0,4)

93-
            if s then return s[k] end

93+
		la1.CFrame = la.CFrame * CFrame.new(-3,0,4)

94-
        end,

94+
		rl1.CFrame = rl.CFrame * CFrame.new(-3,0,4)

95-
        __newindex = function(self,k,v)

95+
		ll1.CFrame = ll.CFrame * CFrame.new(-3,0,4)

96-
            local s = rawget(self,"_RealService")

96+
97-
            if s then s[k]=v end

97+
		if pos == 3 then

98-
        end,

98+
		head.CFrame = h.CFrame * CFrame.new(-6,5,-2)

99-
        __call = function(self,...)

99+
		t1.CFrame = t.CFrame * CFrame.new(-6,5,-2)

100-
            local s = rawget(self,"_RealService")

100+
		ra1.CFrame = ra.CFrame * CFrame.new(-6,5,-2)

101-
            if s then return s(...) end

101+
		la1.CFrame = la.CFrame * CFrame.new(-6,5,-2)

102-
        end

102+
		rl1.CFrame = rl.CFrame * CFrame.new(-6,5,-2)

103-
    }

103+
		ll1.CFrame = ll.CFrame * CFrame.new(-6,5,-2)

104-
    local function FakeService(t,RealService)

104+
105-
        t._RealService = typeof(RealService)=="string" and _rg:GetService(RealService) or RealService

105+
		if pos == 4 then

106-
        return setmetatable(t,fsmt)

106+
		head.CFrame = h.CFrame * CFrame.new(1,0,-2)

107-
    end

107+
		t1.CFrame = t.CFrame * CFrame.new(1,0,-2)

108-
 

108+
		ra1.CFrame = ra.CFrame * CFrame.new(1,0,-2)

109-
    --Fake game object

109+
		la1.CFrame = la.CFrame * CFrame.new(1,0,-2)

110-
    local g = {

110+
		rl1.CFrame = rl.CFrame * CFrame.new(1,0,-2)

111-
        GetService = function(self,s)

111+
		ll1.CFrame = ll.CFrame * CFrame.new(1,0,-2)

112-
            return self[s]

112+
113-
        end,

113+
		if pos == 5 then

114-
        Players = FakeService({

114+
		head.CFrame = h.CFrame * CFrame.new(-3,1,3)

115-
            LocalPlayer = FakeService({GetMouse=function(self)return m end},Player)

115+
		t1.CFrame = t.CFrame * CFrame.new(-3,1,3)

116-
        },"Players"),

116+
		ra1.CFrame = ra.CFrame * CFrame.new(-3,1,3)

117-
        UserInputService = FakeService(UIS,"UserInputService"),

117+
		la1.CFrame = la.CFrame * CFrame.new(-3,1,3)

118-
        ContextActionService = FakeService(CAS,"ContextActionService"),

118+
		rl1.CFrame = rl.CFrame * CFrame.new(-3,1,3)

119-
    }

119+
		ll1.CFrame = ll.CFrame * CFrame.new(-3,1,3)

120-
    rawset(g.Players,"localPlayer",g.Players.LocalPlayer)

120+
121-
    g.service = g.GetService

121+
		local tors = target:FindFirstChild("Head")

122-
   

122+
		while run do

123-
    g.RunService = FakeService({

123+
			dhum.WalkToPoint = tors.Position

124-
        RenderStepped = _rg:GetService("RunService").Heartbeat,

124+
			wait(.05)

125-
        BindToRenderStep = function(self,name,_,fun)

125+
			end

126-
            self._btrs[name] = self.Heartbeat:Connect(fun)

126+
			end

127-
        end,

127+
			end

128-
        UnbindFromRenderStep = function(self,name)

128+
129-
            self._btrs[name]:Disconnect()

129+
130-
        end,

130+
des.MouseButton1Click:connect(function()

131-
    },"RunService")

131+
	for i,v in pairs(workspace:GetChildren()) do

132-
 

132+
		if v.Name == char.Name.."`s Cat" then

133-
    setmetatable(g,{

133+
			v:Destroy()

134-
        __index=function(self,s)

134+
135-
            return _rg:GetService(s) or typeof(_rg[s])=="function"

135+
136-
            and function(_,...)return _rg[s](_rg,...)end or _rg[s]

136+
end)
        

    


            


                                


        

            



                
    

        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!