API tools faq
paste
Advertisement
InTesting

Parasite II: Green Girl

InTesting
Nov 24th, 2019
539
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 11.59 KB | None | 0 0
raw download clone embed print report
  1. print[[https://pastebin.com/raw/wFMdEEK8
  2. Q = Infect (within 50 studs) / Uninfect
  3. E = Move to point.
  4. R = (With infected player) Toggle control
  5. ]];
  6.  
  7. local function Set_Up_Function(player)
  8.     local Set_Up_1 = {
  9.         Color_1=Color3.fromRGB(0,255,0);
  10.        
  11.        
  12.         };
  13.    
  14.     local Set_Up_2={Name='Parasite_II_Green_Girl';Motor6d_Enabled={Left_Arm=true;Right_Arm=true;
  15.     Left_Leg=true;Right_Leg=true;}};
  16.     local Mode = {
  17.         Is_Infected = false;
  18.         Active = true;
  19.         Host = nil;
  20.         };
  21.     local Players,cwrap,Wait_For_Child_2,Storage,RE,RF,clerp=
  22.         game:GetService("Players"),function(a)local b=coroutine.wrap(a);b();return b;end,
  23.         function(p,c,wt)wt=wt or 1/60;local a;if not p or not c then return;end;
  24.         if typeof(p)~='Instance'or typeof(c)~='string'then return;end;repeat
  25.         a=p:FindFirstChild(c);wait(wt);until a;return a;end,{},nil,nil,function(cf,goal,al)
  26.         return cf:Lerp(goal,al);end;
  27.     player=(player=='FindPlayer'and(loadstring('return owner')()or Players:
  28.         GetPlayerFromCharacter(script.Parent)))or player;
  29.     script.Name=Set_Up_2.Name;if not player or not Players then return;end;
  30.     if loadstring('return owner')()then pcall(function()local NLS;NLS=loadstring('return NLS')();
  31.         NLS([[--(
  32. local lp,re,rf =
  33.     game:GetService("Players").LocalPlayer,script:WaitForChild('RE_Client'),
  34.     script:WaitForChild('RF_Client');
  35. local mouse = lp:GetMouse();
  36.  
  37. mouse.KeyDown:Connect(function(k)
  38.     re:FireServer('KD',k,mouse.Hit,mouse.Target);
  39. end);
  40. mouse.Button1Down:Connect(function()
  41.     re:FireServer('MB_Down',mouse.Hit,mouse.Target);
  42. end);
  43.  
  44. rf.OnClientInvoke = function(...)
  45.     local args = {...}
  46.     if args[1]=='Get_Mouse_CF'then return mouse.Hit;
  47.     elseif args[1]=='Get_Mouse_Target'then return mouse.Target;
  48.     end
  49. end;
  50.         --)]],script);
  51.         script.Parent=loadstring('return owner')().Character
  52.         end);end;
  53.     local pchar,Instance_2,Remove =
  54.         player.Character or(function()repeat wait(1);player:LoadCharacter();until
  55.         player.Character;return player.Character;end)(),function(c,p)
  56.         local a=(function()for a,b in pairs(Storage)do if b.ClassName==c then
  57.         table.remove(Storage,a);return b;end;end;end)()or Instance.new(c);if not a then
  58.         print'No classname';return;end;
  59.         for b,c in pairs(p)do local _,d= pcall(function()a[b]=c;end);if d then print(d);end;
  60.         end;return a;end,function(a)a.Parent=nil;table.insert(Storage,a);end;
  61.     if not pchar then return;end;
  62.     local a=(function()if loadstring('return owner')()then return{
  63.         Instance_2('RemoteEvent',{Name='RE_Client';Parent=script:GetChildren()[1];});
  64.         Instance_2('RemoteFunction',{Name='RF_Client';Parent=script:GetChildren()[1];})};end;
  65.         wait(2);return{script:FindFirstChildWhichIsA('RemoteEvent',true);script:
  66.         FindFirstChildWhichIsA('RemoteFunction',true);}end)();
  67.     RE,RF=unpack(a);if not RE or not RF then return;end;
  68.     local Head,HRootPart,Torso,Humanoid,Left_Arm,Right_Arm,Left_Leg,Right_Leg,Damage,Container =
  69.         (function()local a;repeat a=pchar:FindFirstChild'Head';if a then break;end;wait(1);
  70.         until nil;return a;end)(),(function()local a;repeat
  71.         a=pchar:FindFirstChild'HumanoidRootPart';if a then break;end;wait(1);until nil;return a;
  72.         end)(),(function()local a;repeat a=pchar:FindFirstChild'Torso';if a then break;end;
  73.         wait(1);until nil;return a;end)(),(function()local a;repeat
  74.         a=pchar:FindFirstChildWhichIsA'Humanoid';if a then break;end;wait(1);until nil;
  75.         return a;end)(),(function()local a;repeat a=pchar:FindFirstChild'Left Arm';if a then
  76.         break;end;wait(1);until nil;return a;end)(),(function()local a;repeat
  77.         a=pchar:FindFirstChild'Right Arm';if a then break;end;wait(1);until nil;return a;
  78.         end)(),(function()local a;repeat a=pchar:FindFirstChild'Left Leg';if a then break;end;
  79.         wait(1);until nil;return a;end)(),(function()local a;repeat
  80.         a=pchar:FindFirstChild'Right Leg';if a then break;end;wait(1);until nil;return a;
  81.         end)(),function(h,d,f)if not h then return;end;d=d or 10;f=f or function()end;
  82.         local a=h:FindFirstAncestorWhichIsA'Model';if not a or a==workspace or a==pchar then
  83.         return;end;local b,c=a:FindFirstChildWhichIsA'Humanoid',a:FindFirstChild'Head'or a:
  84.         FindFirstChild'Torso'or a:FindFirstChild'UpperTorso'or a:
  85.         FindFirstChild'HumanoidRootPart';
  86.         if b then if b.Health>150 then b.Health=0;else b:TakeDamage(d);end;elseif c then
  87.         Remove(c);else pcall(function()a:BreakJoints();end);end;end, Instance_2('Folder',{
  88.         Parent=pchar});
  89.     local Left_Hip,Left_Shoulder,Neck,Right_Hip,Right_Shoulder,RootJoint =
  90.         (not Set_Up_2.Motor6d_Enabled.Left_Leg and(function()
  91.         local a=Torso:FindFirstChild'Left Hip';if a then Remove(a)end;local b=Instance_2('Weld',
  92.         {Part0=Torso;Part1=Left_Leg;Parent=Torso;});return b;end)())or Torso:
  93.         FindFirstChild'Left Hip',(not Set_Up_2.Motor6d_Enabled.Left_Arm and(function()
  94.         local a=Torso:FindFirstChild'Left Shoulder';if a then Remove(a)end;
  95.         local b=Instance_2('Weld',{Part0=Torso;Part1=Left_Arm;Parent=Torso;});return b;end)())or
  96.         Torso:FindFirstChild'Left Shoulder',Torso:FindFirstChild'Neck',(not Set_Up_2.
  97.         Motor6d_Enabled.Right_Leg and(function()local a=Torso:FindFirstChild'Right Hip';
  98.         if a then Remove(a)end;local b=Instance_2('Weld',{Part0=Torso;Part1=Right_Leg;
  99.         Parent=Torso;});return b;end)())or Torso:FindFirstChild'Right Hip',(not Set_Up_2.
  100.         Motor6d_Enabled.Right_Arm and(function()local a=Torso:FindFirstChild'Right Shoulder';
  101.         if a then Remove(a)end;local b=Instance_2('Weld',{Part0=Torso;Part1=Right_Arm;
  102.         Parent=Torso;});return b;end)())or Torso:FindFirstChild'Right Shoulder',
  103.         HRootPart:FindFirstChild'RootJoint';
  104.     if not Left_Hip or not Left_Shoulder or not Neck or not Right_Hip or not Right_Shoulder or
  105.         not RootJoint then return;end; 
  106.     local Joints={Left_Hip;Left_Shoulder;Neck;Right_Hip;Right_Shoulder};   
  107.     local CFrames,CFrame_Mode={
  108.        
  109.         },{};
  110.     (function()for _,a in pairs(pchar:GetChildren())do(function()
  111.         if a:IsA'Accessory'then
  112.         local b,c=a:FindFirstChild'Handle',a:FindFirstChildWhichIsA('SpecialMesh',true);
  113.         if a:FindFirstChild('HairAttachment',true)and b then if c then c.TextureId='';end;
  114.         b.Color=Set_Up_1.Color_1;return;end;Remove(a);elseif a:IsA'CharacterMesh'then Remove(a);
  115.         end;end)();end;
  116.         (pchar:FindFirstChildWhichIsA'Shirt'or Instance_2('Shirt',{Parent=pchar})).ShirtTemplate=
  117.             'http://www.roblox.com/asset/?id=175305300';   
  118.         (pchar:FindFirstChildWhichIsA'Pants'or Instance_2('Pants',{Parent=pchar})).PantsTemplate=
  119.             'http://www.roblox.com/asset/?id=2755931300';  
  120.         local eye_part_1=Instance_2('Part',{Size=Vector3.new(.2,.3,.1);Color=Set_Up_1.Color_1;
  121.         Material='Neon';Massless=true;CanCollide=false;Anchored=false;Parent=Container;
  122.         Name='Eye'});
  123.        
  124.         Instance_2('SpecialMesh',{MeshType='Sphere';Parent=eye_part_1;});Instance_2('Weld',{
  125.         Part1=eye_part_1;Part0=Head;Parent=eye_part_1;C0=CFrame.new(-.0791487694,.250023842,
  126.         -.549007416,.999999702,-1.2239941e-20,2.98023171e-08,0,.999999344,-2.37426846e-07,0,
  127.         2.3742605e-07,1.00000012)});Instance_2('CharacterMesh',{MeshId=48112070;
  128.         BodyPart='Torso';Parent=pchar;});
  129.     end)();
  130.     local function Animation(cfs,In_Action)for _,c in pairs(Joints)do for a,b in pairs(cfs)do
  131.     if c.Name==a then for d,e in pairs(b)do if In_Action[a]==d then
  132.     c.C0,c.C1=clerp(c.C0,e.C0,e[3]or.5),clerp(c.C1,e.C1,e[3]or.5);end;end;break;end;end;end;end;
  133.     Humanoid.MaxHealth=math.huge;Humanoid.Health=Humanoid.MaxHealth;
  134.     local function ServerHandler(pl,...)local args={...};
  135.         if args[1]=='KD'then
  136.             if args[2]=='q'and Mode.Active then
  137.                 Mode.Active=false;Mode.Is_Infected=not Mode.Is_Infected;
  138.                 if Mode.Is_Infected and not Mode.Host then local a4=args[4];if not a4 then
  139.                     return;end;local a=a4:FindFirstAncestorWhichIsA'Model';if not a then
  140.                     Mode.Is_Infected=false;Mode.Active=true;return;end;
  141.                     local b,c=a:FindFirstChild'HumanoidRootPart',a:
  142.                     FindFirstChildWhichIsA'Humanoid';
  143.                     if a==workspace or a==pchar or not b or not c then
  144.                     Mode.Is_Infected=false;Mode.Active=true;return;end;
  145.                     if(b.Position-HRootPart.Position).Magnitude>50 then Mode.Is_Infected=false;
  146.                     Mode.Active=true;return;end;HRootPart.Anchored=true;b.Anchored=true;
  147.                     for _,d in pairs(pchar:GetDescendants())do
  148.                     if(d:IsA'BasePart'or d:IsA'Decal')and d~=HRootPart then
  149.                     d.Transparency=0;end;end;for d=1,60 do
  150.                     HRootPart.CFrame=clerp(HRootPart.CFrame,b.CFrame,.1);
  151.                     for _,e in pairs(pchar:GetDescendants())do
  152.                     if(e:IsA'BasePart'or e:IsA'Decal')and e~=HRootPart then
  153.                     e.Transparency=e.Transparency+(6/100);end;end;wait();end;
  154.                     Instance_2('WeldConstraint',{Part0=HRootPart;Part1=b;Parent=Container;Name=
  155.                     'Connection'});for _,d in pairs(pchar:GetDescendants())do
  156.                     if d:IsA'BasePart'then d.CanCollide=false;d.Massless=true;end;end;
  157.                     HRootPart.Anchored=false;b.Anchored=false;Mode.Host=a;
  158.                 elseif Mode.Host and not Mode.Is_Infected then
  159.                     local a,b=Mode.Host:FindFirstChild'HumanoidRootPart',Container:
  160.                     FindFirstChild'Connection';if b then Remove(b);end;
  161.                     wait();HRootPart.CFrame=HRootPart.CFrame*CFrame.new(0,0,1);
  162.                     HRootPart.Anchored=true;if a then a.Anchored=true;end;
  163.                     for _,d in pairs(pchar:GetDescendants())do
  164.                     if(d:IsA'BasePart'or d:IsA'Decal')and d~=HRootPart then
  165.                     d.Transparency=1;end;end;for c=1,60 do
  166.                     for _,d in pairs(pchar:GetDescendants())do
  167.                     if(d:IsA'BasePart'or d:IsA'Decal')and d~=HRootPart then
  168.                     d.Transparency=d.Transparency-(6/100);end;end;
  169.                     HRootPart.CFrame=HRootPart.CFrame*CFrame.new(0,0,.1);wait();end;
  170.                     for _,d in pairs(pchar:GetDescendants())do if d:IsA'BasePart'then
  171.                     d.CanCollide=true;d.Massless=false;end;end;HRootPart.Anchored=false;
  172.                     wait(.25);if a then a.Anchored=false;end;Mode.Host=nil;
  173.                 end;Mode.Active=true;for _,b in pairs(Players:GetPlayers())do
  174.                 b.DevComputerMovementMode=Enum.DevComputerMovementMode.UserChoice;
  175.                 b.DevTouchMovementMode=Enum.DevTouchMovementMode.UserChoice;
  176.                 end;
  177.             elseif args[2]=='e'and Mode.Host then local point,host=args[3],Mode.Host;
  178.                 if not host or not point then return;end;
  179.                 local hum_1=host:FindFirstChildWhichIsA'Humanoid';if not hum_1 then return;end;
  180.                 hum_1:MoveTo(point.Position);
  181.             elseif args[2]==' 'and Mode.Host then local host=Mode.Host;if not host then
  182.                 return;end;local hum_1=host:FindFirstChildWhichIsA'Humanoid';if not hum_1 then
  183.                 return;end;hum_1.Jump=true;
  184.             elseif args[2]=='r'and Mode.Host and Mode.Active then
  185.                 local c=Players:GetPlayerFromCharacter(Mode.Host);
  186.                 if not c then return;end;Mode.Active=false;
  187.                 local d=Instance_2('Part',{Shape='Ball';Anchored=true;Material='Ice';
  188.                 CanCollide=false;Size=Vector3.new(.01,.01,.01);Shape='Ball';Transparency=0;
  189.                 Parent=Container;Position=HRootPart.Position});
  190.                 if c.DevComputerMovementMode~=Enum.DevComputerMovementMode.Scriptable then
  191.                 c.DevComputerMovementMode=Enum.DevComputerMovementMode.Scriptable;
  192.                 c.DevTouchMovementMode=Enum.DevTouchMovementMode.Scriptable;
  193.                 d.Color=Color3.fromRGB(255,0,0);else
  194.                 c.DevComputerMovementMode=Enum.DevComputerMovementMode.UserChoice;
  195.                 c.DevTouchMovementMode=Enum.DevTouchMovementMode.UserChoice;
  196.                 d.Color=Color3.fromRGB(0,255,0);end;local tw=game:GetService("TweenService");
  197.                 tw:Create(d,TweenInfo.new(1,Enum.EasingStyle.Linear,Enum.EasingDirection.InOut,
  198.                     0,false,0),{Size=Vector3.new(10,10,10),Transparency=1}):Play();
  199.                 wait(1);Remove(d);Mode.Active=true;
  200.             end;
  201.         end;
  202.     end;
  203.     Humanoid.Died:Connect(function()if Mode.Host then
  204.         local a=Mode.Host:FindFirstChild'HumanoidRootPart';Damage(a,math.huge);
  205.         for _,b in pairs(Players:GetPlayers())do
  206.         b.DevComputerMovementMode=Enum.DevComputerMovementMode.UserChoice;
  207.         b.DevTouchMovementMode=Enum.DevTouchMovementMode.UserChoice;end;end;
  208.     end);
  209.     RE.OnServerEvent:Connect(ServerHandler);RF.OnServerInvoke=ServerHandler;
  210. end;
  211. Set_Up_Function'FindPlayer';
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!