View difference between Paste ID: FFfcY6Xs and UNpMxWbA

 -- Gaster <3
 -- Can You Give Me Some Money For A Taxi?
 
 --SHIROBAKO made by mugex--
 
 
 
 
 Player = game.Players.LocalPlayer
 
 Char = Player.Character
 
 Torso = Char.Torso
 
 Head = Char.Head
 
 Arms = {Char:FindFirstChild'Right Arm', Char:FindFirstChild'Left Arm'}
 
 Shoulders = {Torso:FindFirstChild'Right Shoulder', Torso:FindFirstChild'Left Shoulder'}
 
 Legs = {Char:FindFirstChild'Right Leg', Char:FindFirstChild'Left Leg'}
 
 HumRoot = Char:FindFirstChild'HumanoidRootPart'
 
 HumRootJ = HumRoot['RootJoint']
 
 Humanoid = Char:FindFirstChild'Humanoid'
 
 
 
 
 local s = Workspace:FindFirstChild('shirobako_script: '..Player.Name,true)
 
 if s then
 
         local f = s:FindFirstChild'stop'
 
         if f then
 
                 f:Invoke()
 
         end
 
 end
 
 s=nil
 
 
 
 
 Debris = game:service'Debris'
 
 RS = game:service'RunService'
 
 Chatserv = game:service'Chat'
 
 Insertserv = game:service'InsertService'
 
 
 
 
 Neck = Torso:FindFirstChild'Neck'
 
 
 
 
 pcall(function() Char.Shirobako:Destroy() end)
 
 Main = Instance.new("Model",Char)
 
 Main.Name = "Shirobako"
 
 script.Parent=Main
 
 
 
 
 cfn=CFrame.new
 
 ang = function(x,y,z) return CFrame.Angles(x or 0,y or 0,z or 0)end
 
 m={tau=math.pi*2}
 
 v3n=Vector3.new
 
 md,mr,PI=math.rad, math.random, math.pi
 
 bcol=BrickColor.new
 
 
 
 
 function l(a1,x,y,z,rx,ry,rz)
 
     local cf
 
     if tostring(a1):find(',') == nil then
 
         cf=a1.CFrame
 
     else cf=a1 end
 
     return cf*CFrame.new(x or 0,y or 0,z or 0)*CFrame.Angles(
 
                         rx or 0,ry or 0,yz or 0)
 
 end
 
 
 
 
 New = function(what)
 
     return function(bar)
 
         local obj=Instance.new(what)
 
         for arg,val in pairs(bar) do
 
             if arg == "_P" then
 
                 obj.Parent = val
 
             else
 
                                 if pcall(function()return obj[arg] end) then
 
                     obj[arg]=val
 
                 end
 
             end
 
         end
 
         return obj
 
     end
 
 end
 
 
 
 
 Edit = function(what)
 
         return function(args)
 
                 for _,obj in next,what do
 
                         for arg,val in next,args do
 
                                 if pcall(function()return obj[arg]end) then
 
                                         obj[arg]=val
 
                                 end
 
                         end
 
                 end
 
         end
 
 end
 
 
 
 
 _1=nil
 
 set_material = nil
 
 set_color = nil
 
 set_parent = nil
 
 Part = function(x,y,z,col,tr)
 
         local p = New"Part"{
 
                 _P=set_parent or Main;
 
                 BrickColor = bcol(col or set_color or "White");
 
                 CanCollide = false;
 
                 Transparency = tr or 0;
 
                 Size = Vector3.new(x or 0,y or 0,z or 0);
 
                 Material = set_material or 'SmoothPlastic';
 
         }
 
         for _,sur in next,Enum.NormalId:GetEnumItems() do
 
                 p[sur.Name..'Surface'] = 0
 
         end
 
         _1 = p
 
         return p
 
 end
 
 Wedge = function(x,y,z,col,tr)
 
         local p = New"WedgePart"{
 
                 _P=Main;
 
                 BrickColor = bcol(col or "White");
 
                 CanCollide = false;
 
                 Transparency = tr or 0;
 
                 Size = Vector3.new(x or 0,y or 0,z or 0);
 
                 Material = set_material or 'SmoothPlastic';
 
         }
 
         for _,sur in next,Enum.NormalId:GetEnumItems() do
 
                 p[sur.Name..'Surface'] = 0
 
         end
 
         _1 = p
 
         return p
 
 end
 
 Weld = function(part0,part1,c0,c1,...) --over-engineered welding function which accepts many things
 
         local ar = {...}
 
         local cframe0,cframe1
 
         local function checkf()local res=true
 
                 for i,v in pairs(ar)do
 
                         if type(v) ~= 'number' then
 
                                 res=false
 
                         end
 
                 end
 
                 return res
 
         end
 
         if type(c0) == 'table' then
 
                 cframe0 = CFrame.new(c0[1] or 0, c0[2] or 0, c0[3] or 0) * CFrame.Angles(
 
                         c0[4] or 0, c0[5] or 0, c0[6] or 0)
 
         elseif type(c0) == 'userdata' then
 
                 cframe0 = c0
 
         elseif type(c0) == 'number' and checkf() then
 
                 cframe0 = CFrame.new(c0 or 0,c1 or 0,ar[1] or 0) * CFrame.Angles(ar[2] or 0, ar[3] or 0, ar[4] or 0)
 
         end
 
         if type(c1) == 'table' then
 
                 cframe1 = CFrame.new(c1[1] or 0, c1[2] or 0, c1[3] or 0) * CFrame.Angles(
 
                         c1[4] or 0, c1[5] or 0, c1[6] or 0)
 
         elseif type(c1) == 'userdata' then
 
                 cframe1 = c1
 
         elseif type(c1) == 'number' and (not c0 or (c0 and type(c0) == 'table')) then
 
                 cframe1 = CFrame.new(c1 or 0, ar[1] or 0, ar[2] or 0) * CFrame.Angles(ar[3] or 0, ar[4] or 0, ar[5] or 0)
 
         end
 
         for i,v in pairs(ar)do
 
                 if type(v) == 'table' then
 
                         cframe1 = CFrame.new(v[1] or 0, v[2] or 0, v[3] or 0) * CFrame.new(v[4] or 0, v[5] or 0, v[6] or 0)
 
                 elseif type(v) == 'userdata' then
 
                         cframe1 = v
 
                 end
 
         end
 
 
 
         cframe0,cframe1 = cframe1,cframe0
 
         part0.Position=part1.Position
 
         local weld = Instance.new("Motor")
 
         weld.Part0 = part0
 
         weld.Part1 = part1
 
         weld.C0 = cframe0 or CFrame.new()
 
         weld.C1 = cframe1 or CFrame.new()
 
         weld.MaxVelocity = .1
 
         weld.Parent = part0
 
         return weld
 
 end
 
 
 
 
 mesh_ids = {spike = "rbxassetid://1033714";
 
         ring="rbxassetid://3270017";
 
 }
 
 
 
 
 Mesh = function(parent,id,sx,sy,sz)
 
         local name = ( (id == 'cyl' and 'CylinderMesh') or (id == 'bl' and 'BlockMesh') or 'SpecialMesh')
 
         local mesh = Instance.new(name)
 
         if id == 's' then
 
                 mesh.MeshType = Enum.MeshType.Sphere
 
         elseif id == 'w' then
 
                 mesh.MeshType = Enum.MeshType.Wedge
 
         elseif string.find(id,"://") ~= nil then
 
                 mesh.MeshId = id
 
         end
 
         mesh.Scale = Vector3.new(sx or 1, sy or 1, sz or 1)
 
         mesh.Parent = parent
 
         return mesh
 
 end
 
 
 
 
 hdl = Part(1.1,1.5,1.1) hdl.Material='Wood'
 
 hw=Weld(hdl,Arms[1],0,-2,0,-PI/2)
 
 
 
 
 -- New'Decal'{_P=hdl;face='Front';Texture='rbxassetid://49125250'}
 
 
 
 
 dollar = Part(1,1,1,'Bright green')
 
 dollar_msh=Mesh(dollar,"rbxassetid://443493147",.015,.015,.015)
 
 Weld(dollar,hdl,0,0,-.5,0,PI)
 
 
 
 
 top=Part(1,.1,1,'Black')Mesh(top,'bl',.95,.1,.95)
 
 Weld(top,hdl,0,.75)
 
 
 
 
 ring = Part(1,1,1)
 
 Weld(ring,hdl,0,0,.5,0,PI/2)
 
 Mesh(ring,mesh_ids.ring,1,1,3)
 
 
 
 
 Joints = {}
 
 function addJoint(name,weld,c0,c1)
 
         local t= {}
 
         t.w=weld
 
         t.n_c0 = c0 or weld.C0
 
         t.n_c1 = c1 or weld.C1
 
         t._desired=weld.C0
 
         t.speed=.1
 
         t.l=0
 
 
 
         function t:get()
 
                 return setmetatable({},{__newindex=function(t,i,v)
 
                 if i=='d' and self.l == 0 then
 
                         self.d = v
 
                 elseif i == 's' then self.speed=v end end})
 
         end
 
 
 
 
         setmetatable(t,{__newindex=function(ta,i,v)
 
         if i=='d' then
 
                 ta._desired = ta.n_c0 * v
 
         end end})
 
 
 
 
 
 
         Joints[name]=t
 
 end
 
 
 
 
 addJoint('rw',New"Weld"{_P = Torso;Part0=Torso;Part1=Arms[1];
 
 C0=cfn(1,0.5,0); C1=cfn(-.5,0.5,0)})
 
 addJoint('hw',hw)
 
 addJoint('tw',HumRootJ)
 
 
 
 
 rw=Joints.rw
 
 hw=Joints.hw
 
 tw=Joints.tw
 
 
 
 
 snd=New"Sound"{_P=hdl;SoundId='rbxassetid://359628148'}
 
 
 
 
 rw.d=ang(PI/2)
 
 script.Name='shirobako_script: '..Player.Name
 
 
 
 
 angle=0
 
 p_tick=tick()
 
 
 
 
 --Clear clothing--
 
 for i,v in pairs(Char:children())do
 
         if v:IsA'Hat' or v:IsA'Clothing'then
 
                 v:Destroy()
 
         end
 
 end
 
 
 
 
 function addHat(id)
 
         return function()
 
                 local id=id
 
                 for i,v in next,Char:children()do
 
                         if v:IsA'Hat' then v:Destroy() end
 
                 end
 
                 local as=Insertserv:LoadAsset(id):children()[1]
 
                 Player:LoadCharacterAppearance(as)
 
         end
 
 end
 
 
 
 
 MONEY = 0
 
 DonatedPlayers = {}
 
 
 
 
 function GiveAll()
 
         local as=Insertserv:LoadAsset(162067148)
 
         for i,v in next,DonatedPlayers do
 
                 local pl=game:service'Players':FindFirstChild(v)
 
                 if pl then
 
                         local cl=as:Clone()
 
                         pl:LoadCharacterAppearance(cl:children()[1])
 
                 end
 
         end
 
 
 
 
         acting = true
 
         rw.w.Part1 = nil
 
         tw.w.C0 = tw.n_c0
 
         Shoulders[1].Part0=Torso
 
         Shoulders[1].Part1=Arms[1]
 
         Shoulders[1].Parent=Torso
 
         Chatserv:Chat(Head,"THANK YOU EVERYONE =D")
 
         for i,v in pairs(Connections) do
 
                 v:disconnect()
 
         end
 
         Main:Destroy()
 
 end
 
 
 
 
 suits = {
 
         beggar={'rbxassetid://54674221','rbxassetid://54676961',-1};
 
         poor={'rbxassetid://398635080','rbxassetid://217385535',10,addHat(68259961)};
 
         rich={'rbxassetid://286378066','rbxassetid://198292567',20,addHat(1563352)};
 
         uberrich={'rbxassetid://231706573','rbxassetid://239131699',30,addHat(138932314)};
 
         FINAL={'rbxassetid://231706573','rbxassetid://239131699',40,GiveAll};
 
 }
 
 
 
 
 shirt = New"Shirt"{_P=Char;ShirtTemplate=suits.beggar[1]}
 
 pants = New"Pants"{_P=Char;PantsTemplate=suits.beggar[2]}
 
 
 
 
 function checksuit()
 
         for i,v in pairs(suits)do
 
                 if MONEY == v[3] then
 
                         cur_choise = i
 
                         shirt.ShirtTemplate=v[1]
 
                         pants.PantsTemplate=v[2]
 
                         if v[4] then
 
                                 v[4]()
 
                         end
 
                 end
 
         end
 
 end
 
 
 
 
 cur_choise = "beggar"
 
 choises = {
 
-beggar = {"Can I have some money?";";_;";"Can ya spare couple bucks?";"I'm so poor..."};
+beggar = {"Can you niggers give me money?";";_;";"Can ya niggers give me some money and watermelon??";"You niggers im still poor!"};
 
 poor = {"I need money for studies.", "Can ya lend me some cash?", ";_; Anyone?"};
 
 rich = {"Can ya give sum money for taxi?", "Please?"};
 
 uberrich={"Wanna get dominus? Gimme money!", "This is not a scam... I swear!", "Does anyone want a dominus?"};
 
 FINAL={"THANK YOU EVERYONE WHO DONATED =D"};
 
 }
 
 
 
 
 text = "_ bucks donated"
 
 text2 = "Thank you kind _"
 
 surfg = New"SurfaceGui"{_P=hdl,Face='Right'}
 
 lab=New"TextLabel"{_P=surfg;Size=UDim2.new(1,0,1,0);Text="0 bucks donated";TextScaled=true;BackgroundTransparency=1}
 
 thanking=false
 
 
 
 
 anim_con = RS.Stepped:connect(function()
 
         for _,j in next,Joints do
 
                 j.w.C0 = j.w.C0:lerp(j._desired,j.speed)
 
         end
 
 end)
 
 dead_con = Humanoid.Died:connect(function()
 
         acting=true
 
-        Chatserv:Chat(Head,"World is so cruel =(")
+        Chatserv:Chat(Head,"You fucks are cray cray..=(")
 
 end)
 
 
 
 
 acting=false
 
 
 
 
 depmoney=function(a)
 
         if not thanking then
 
                 snd:Play()
 
                 thanking=true
 
                 Chatserv:Chat(Head,text2:gsub('_',(a and a.Name or 'human')) )
 
                 MONEY = MONEY+1
 
                 if a then
 
                         local name = a.Name
 
                         local _in=false
 
                         for _,v in pairs(DonatedPlayers) do
 
                                 if v == name then
 
                                         _in=true
 
                                 end
 
                         end
 
                         if not _in then
 
                                 table.insert(DonatedPlayers,name)
 
                         end
 
                 end
 
                 checksuit()
 
                 lab.Text=text:gsub('_',MONEY)
 
                 wait(1.25)
 
                 thanking=false
 
         end
 
 end
 
 
 
 
 lab.Text=text:gsub('_',MONEY)
 
 New"ClickDetector"{_P=dollar}.MouseClick:connect(function(a)depmoney(a)end)
 
 cnt=0
 
 Connections = {}
 
 for i,v in next,getfenv(0) do
 
         if i:match("_con") ~= nil then
 
                 table.insert(Connections,v)
 
         end
 
 end
 
 
 
 
 swoosh_snd = New"Sound"{_P=hdl;SoundId='rbxassetid://134012322'}
 
 hit_snd = New"Sound"{_P=hdl;SoundId='rbxassetid://386946017'}
 
 
 
 
 function slash()
 
         acting=true
 
         rw.speed=.3
 
         rw.d=ang(PI/2,0,-PI/4)*ang(0,PI/2)
 
         swoosh_snd:Play()
 
         local con
 
         con=hdl.Touched:connect(function(hit)
 
                 local hum=hit.Parent:FindFirstChild'Humanoid'
 
                 if hum then
 
                         Spawn(function()hum.PlatformStand=true wait'.1'hum.PlatformStand=false end)
 
                         hum.Torso.Velocity=cfn(Torso.Position,hum.Torso.Position).lookVector*70+v3n(0,30,0)
 
                         hit_snd:Play()
 
                         con:disconnect()
 
                         Chatserv:Chat(Head,"Dont come closer!")
 
                 end
 
         end)
 
         wait'.15'
 
         rw.d=ang(PI/2,0,PI/4)*ang(0,PI/2)
 
         wait'.25'
 
         acting=false
 
         rw.speed=.1
 
         con:disconnect()
 
 end
 
 New"BindableFunction"{_P=script;Name='stop'}.OnInvoke=function()for i,v in pairs(Connections)do v:disconnect()end end
 
 -- thanking=true
 
 Spawn(function()
 
         while wait()do
 
         if not acting then
 
                 if (tick()-p_tick)>(2+(cnt/2*1.75)) and not thanking and cur_choise~='FINAL' then
 
                         local choise = choises[cur_choise]
 
                         cnt=cnt+1
 
                         cnt=(cnt>#choise and 1 or cnt)
 
                         Chatserv:Chat(Head, choise[cnt])
 
                         p_tick=tick()
 
                 end
 
                 angle=angle%100 + 1/5
 
 
 
                 if not thanking then
 
                         rw.d=ang(PI/2+math.sin(angle)*.15)
 
                         hw.d=ang(0,0,math.sin(angle)*.15)
 
                         tw.d=cfn()
 
                 else
 
                         rw.d=cfn(0,0,.15)*ang(PI/2,0,-PI/4)
 
                         hw.d=cfn(.15,0,0)*ang(0,md'-35')
 
                         tw.d=ang(md'15')
 
                 end end
 
         end
 
 end)
 
 
 
 
 Mouse = Player:GetMouse()
 
 Mouse.KeyDown:connect(function(key)
 
         if acting then return end
 
         if key == 'f' then
 
                 slash()
 
         end
 
 end)
 
 -- slash()
 
 -- for i =1,40 do depmoney(Player)end
 
 
 
 
 --type: hl/https://titanpad.com/ep/pad/export/Beggar/latest?format=txt