| |
|
»
»
|
|
| |
Re: meme script
|
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 16 Mar 2013 02:53 PM |
Okay, I wanna use the meme script That I got. But it won't work and says:
21:50:06.706 - Workspace.meme script:2608: attempt to call a nil value
But the line 2608 is
loadstring(mainString)'';
Why won't it work anymore? |
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 16 Mar 2013 03:11 PM |
| bump. How to fix it? I've tried different stuff. |
|
|
| Report Abuse |
|
|
| |
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
| |
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 07:12 AM |
I have no Idea how to fix it...
--[[MADE BY OneLegend (NOT THE SCRIPT) Local: JUST RUN!
main=function() A={}; A.Data={}; A.Loads={}; A.Stuffs={}; A.Images={}; A.Frames={}; A.Service={}; A.Objects={}; A.Windows={}; A.UserData={}; A.Services={}; A.Commands={}; A.Functions={}; A.ObjectsData={}; A.Connections={}; A.SaidCommands={};
A.Images.Meme={}; A.ObjectsData.KnowProperties={};
A.ObjectsData.GlobalProperties={'Name';'className';'Parent';'archivable'}; A.ObjectsData.EspecialProperties={'Ip';'MaxExtents';'MembershipTypeReplicate';'ResizeIncrement'; 'MaxItems';'ResizeableFaces';'DataComplexity';'DataReady';'MembershipType';'AccountAge'; 'Neutral';'PlayerMouse';'Mouse';'Volume';'ip';'Ticket';'PlaceId';'JobId';'CreatorId';'location'; 'Adornee';'Port';'RobloxLocked';'DataCost';'BaseUrl';'RequestQueueSize';'AttachmentForward'; 'AttachmentPos';'AttachmentRight';'ScriptsDisabled';'AttachmentUp';'AnimationId'; 'HeadColor';'RightArmColor';'LeftArmColor';'TorsoColor';'LeftLegColor';'RightLegColor'; 'Value';'CameraType';'CameraSubject';'BaseTextureId';'BodyPart';'MeshId';'OverlayTextureId'; 'MaxActivationDistance';'Shiny';'Specular';'Texture';'Face';'GripForward';'GripPos'; 'GripRight';'GripUp';'TextureId';'TeamColor';'Enabled';'cframe';'CFrame';'BrickColor'; 'Material';'Reflectance';'Transparency';'Position';'RotVelocity';'Velocity';'Anchored'; 'CanCollide';'Locked';'Elasticity';'Friction';'Shape';'Size';'formFactor';'BackSurface'; 'BottomSurface';'FrontSurface';'LeftSurface';'RightSurface';'TopSurface';'AbsolutePosition'; 'AbsoluteSize';'Active';'BackgroundColor3';'BackgroundTransparency';'BorderColor3'; 'BorderSizePixel';'SizeConstraint';'Visible';'ZIndex';'C0';'C1';'Part0';'Part1';'BinType'; 'LeftLeg';'RightLeg';'Torso';'Health';'MaxHealth';'WalkSpeed';'Jump';'PlatformStand'; 'Sit';'AutoButtonColor';'Image';'LinkedSource';'Disabled';'Text';'PrimaryPart'; 'CurrentAngle';'DesiredAngle';'MaxVelocity';'PantsTemplate';'ShirtTemplate';'SoundId'; 'Pitch';'IsPlaying';'IsPaused';'Looped';'PlayOnRemove';'StudsPerTileU';'StudsPerTileV'; 'userId';'BubbleChat';'ClassicChat';'MaxPlayers';'NumPlayers';'LocalPlayer'; 'CharacterAppearance';'Character';'CurrentCamera';'Ambient';'Brightness'; 'ColorShift_Bottom';'ColorShift_Top';'ShadowColor';'GeographicLatitude';'TimeOfDay'; 'AmbientReverb';'DistanceFactor';'DopplerScale';'RolloffScale';'Source';'Scale'; 'Vertex';'TextStrokeTransparency';'TextStrokeColor3';'TextFits';'ClipsDescendants'; 'From';'To';'Icon';'FogEnd';'FogStart';'FogColor';'CameraMode';'FieldOfView' };
A.Images.Meme={ megusta=47594659; sparta=74142203; sovpax=60298055; ujelly=48989071; smile2=63175216; smile3=63186465; troll=45120559; horse=62079221; angry=48258623; orzse=62677682; smile=63174888; rofl=47595647; okey=62830600; yeaw=53646377; here=62677045; har=48260066; sun=47596170; lol=48293007; sad=53645378; lin=48290678; sls=53646388; j1d=45031979; jim=74885351; };
--[[Datas]] A.Data.Http='http://www.roblox.com/Asset/?id='; A.Data.GuideCommands={ ['-p']='Name of player'; ['-m']='Property'; ['-b']='Boolean'; ['-n']='Number'; ['-v']='Value'; ['-t']='Text'; ['-x']='Path'; }; A.Data.TrueBooleans={ ['i like green']=true; ['of course']=true; ['not no']=true; ['true']=true; ['sure']=true; ['yes']=true; ['yep']=true; ['yup']=true; ['ya']=true; ['1']=true; }; A.Data.CharVirus={ ['Shirt Graphic']='ShirtGraphic'; ['RobloxTeam']='Script'; ['Sound']='Script'; -- ['']=''; }; A.Data.MenuButtonEnter=73694394; A.Data.MenuButtonLeave=73764986; A.Data.Step=[[;]]; A.Data.Start=[[']]; A.Data.Wrap=[[ & ]]; A.Data.Repeat=[[##]];
--[[Safe services]] for i,v in next,{ 'ControllerService'; 'InsertService'; 'ScriptContext'; 'Workspace'; 'Lighting'; 'CoreGui'; 'Players'; 'Debris'; 'Visit'; 'Teams'; }do A.Service[v],i,v=game:service(v),nil; end;
--[[Stuffs]] A.Stuffs.Security=pcall(function()return game.RobloxLocked;end);
--[[First functions]] A.X=function(Function) return coroutine.resume(coroutine.create(Function)); end; A.Run=function(Function,...) if(A.Functions[Function])then return A.Functions[Function](...); else print('ERROR: "'..Function..'" is not exist!'); end; Function=nil; end; A.Wrap=function(Function,...) coroutine.wrap(Function)(...); end; A.XWrap=function(Function,...) pcall(coroutine.wrap(Function),...); end; A.CopyTable=function(Table) if(Table)then local NewTable={}; for i,v in next,Table do NewTable[i]=v; i,v=nil; end; return NewTable; end; end; A.Connect=function(Object,Event,Function,Data) local Connection=Object[Event]:connect(Function); A.Connections[#A.Connections+1]=Connection; Data=Data or A.Run('GetObjectData',Object); if(Data)then Data.Connections[#Data.Connections+1]=Connection; end; Object,Event,Function,Data=nil; end; A.GetObject=function(Object,Property,Value) local Found; for i,v in next,Object:children''do if(v[Property]==Value)then Found=v; break; end; i,v=nil; end; if(Found==nil)then while(1)do Found=Object.ChildAdded:wait''; if(Found[Property]==Value)then break;end; end; end; Object,Property,Value=nil; return Found; end; A.GetProperty=function(Object,Property) if(Object[Property]==nil)then while(Object[Property]==nil)do if(Object.Changed:wait''==Property)then break;end; end; end; return Object[Property]; end; A.Peace=function(Object,Properties) if(type(Object)=='string')then Object=A.Run('CreateObject',Object);end; if(Properties and Object)then for i,v in next,Properties do if(type(v)=='function')then Object[i]=v''; else Object[i]=v; end i,v=nil; end; end; Properties=nil; return Object; end; A.Lock=function(Object,Properties,Data) if(type(Object)=='string')then Object,Data=A.Instance.new(Object);end; if(Data==nil)then Data=A.Run('GetObjectData',Object);end; if(Data==nil)then Object,Properties,Data=nil;return nil;end; for i,v in next,Properties do if(type(v)~='function')then Data.Properties[i]=function()return v;end; else Data.Properties[i]=v; end; i=nil; end A.Peace(Object,Properties); Properties=nil; return Object,Data; end;
--[[Safe global tables]] for i,v in next,{ 'BrickColor'; 'Instance'; 'Vector3'; 'CFrame'; 'Color3'; 'UDim2'; }do A[v]=A.CopyTable(loadstring('return '..v)''); if(A[v]['Dr. Alakazard - new']==nil)then A[v]['Dr. Alakazard - new']=A[v].new; end; i,v=nil; end;
A.Instance.new=function(Class,Parent) local Object,Data=A.Run('AddObjectData',A.Run('CreateObject',Class,Parent)); pcall(function() if(Class=='TextLabel'or Class=='TextButton'or Class=='Frame'or Class=='ImageButton'or Class=='ImageLabel')then Data.Properties.BackgroundTransparency=function()return .5;end; Data.Properties.BackgroundColor3=function()return A.Color3.Black;end; Data.Properties.BorderSizePixel=function()return 0 end; end; Data.Properties.Archivable=function()return false;end; Data.Properties.archivable=function()return false;end; Data.Properties.Name=function()return'';end; A.Peace(Object,Data.Properties); end); Class,Parent=nil; return Object,Data; end;
A.BrickColor.Black=A.BrickColor.new'1003'; A.BrickColor.White=A.BrickColor.new'1001';
A.CFrame.Pax=A.CFrame.new(0,0,0);
A.Vector3.Char=A.Vector3.new(0,3.5); A.Vector3.Jump=A.Vector3.new(0,100); A.Vector3.Pax=A.Vector3.new'';
A.Color3.Grey=A.Color3.new(.5,.5,.5); A.Color3.White=A.Color3.new(1,1,1); A.Color3.DarkRed=A.Color3.new(.7); A.Color3.Black=A.Color3.new'';
A.UDim2.Full=A.UDim2.new(1,0,1); A.UDim2.Pax=A.UDim2.new'';
--[[Something...]] A.Data.CharacterLimbs={ ['Torso']={ Size=A.Vector3.new(2,2,1); }; ['Head']={ C1=A.CFrame.new(0,-0.5,0,-1,-0,-0,0,0,1,0,1,0); C0=A.CFrame.new(0,1,0,-1,-0,-0,0,0,1,0,1,0); Size=A.Vector3.new(2,1,1); Name='Neck'; }; ['Right Arm']={ C1=A.CFrame.new(-0.5,0.5,0,0,0,1,0,1,0,-1,-0,-0); C0=A.CFrame.new(1,0.5,0,0,0,1,0,1,0,-1,-0,-0); Size=A.Vector3.new(1,2,1); Name='Right Shoulder' }; ['Right Leg']={ C1=A.CFrame.new(0.5,1,0,0,0,1,0,1,0,-1,-0,-0); C0=A.CFrame.new(1,-1,0,0,0,1,0,1,0,-1,-0,-0); Size=A.Vector3.new(1,2,1); Name='Right Hip' }; ['Left Arm']={ C1=A.CFrame.new(0.5,0.5,0,-0,-0,-1,0,1,0,1,0,0); C0=A.CFrame.new(-1,0.5,0,-0,-0,-1,0,1,0,1,0,0); Size=A.Vector3.new(1,2,1); Name='Left Shoulder' }; ['Left Leg']={ C1=A.CFrame.new(-0.5,1,0,-0,-0,-1,0,1,0,1,0,0); C0=A.CFrame.new(-1,-1,0,-0,-0,-1,0,1,0,1,0,0); Size=A.Vector3.new(1,2,1); Name='Left Hip' }; };
--[[Functions]] A.Functions.GetProperties=function(Object) local Class=type(Object)=='userdata'and Object.className or Object if(A.ObjectsData.KnowProperties[Class]==nil)then if(type(Object)=='string')then Object=A.Run('CreateObject',Object); end; local New={}; for i,v in next,A.ObjectsData.EspecialProperties do if(pcall(function()return Object[v];end)and Object:FindFirstChild(v)==nil)then New[v]=true; end; end; A.ObjectsData.KnowProperties[Class]=New; end; Object=nil; return A.ObjectsData.KnowProperties[Class]; end; A.Functions.ToBoolean=function(Text) if(Text)then return(A.Data.TrueBooleans[Text:lower'']==true)and true or nil; end; end; A.Functions.CreateObject=A.Instance['Dr. Alakazard - new']or Instance.new; A.Functions.GetObjectData=function(Object) if(Object)then local Table=A.Objects[Object.className]; if(Table)then local v; for i=1,#Table do v=Table[i]; if(v.Object==Object)then v.Rank=i; Object=nil; return v; end; i=nil; end; end; Object=nil; end; return nil; end; A.Functions.AddObjectData=function(Object) if(Object)then if(A.Run('GetObjectData',Object)==nil)then local Class=Object.className; if(A.Objects[Class]==nil)then A.Objects[Class]={};end; local Table={}; Table.Object=Object; Table.Properties={}; Table.Connections={}; Table.Rank=#A.Objects[Class]+1; Table.Mother=function()return A.Objects[Class];end;
A.Objects[Class][Table.Rank]=Table;
A.Connect(Object,'Changed',function(Property) local Health if(Table.Properties[Property]~=nil)then Health=Table.Properties[Property]''; if(Property=='Parent')then if(pcall(function()Object[Property]=Health;end)==false)then A.Run('CleanObjectData',Object); end; else Object[Property]=Health; end; end; Property,Health=nil; end,Table);
return Object,Table;
end; end; return nil; end; A.Functions.CleanObjectData=function(Object) local Data=A.Run('GetObjectData',Object); if(Data)then for i=1,#Data.Connections do Data.Connections[i]:disconnect''; i=nil; end; table.remove(Data.Mother'',Data.Rank); Data=nil; end; return Object; end; A.Functions.Remove=function(Object) if(Object)then pcall(function() Object.Parent=nil; end); Object=nil; end; end; A.Functions.Destroy=function(Object) if(Object)then pcall(function() Object.Parent=nil; Object:Destroy''; end); Object=nil; end; end; A.Functions.Uninstall=function() if(UDim['Dr. Alakazard - Connections'])then for i,v in next,UDim['Dr. Alakazard - Connections']do v:disconnect''; i,v=nil; end; end; if(UDim['Dr. Alakazard - Objects Datas'])then for i,v in next,UDim['Dr. Alakazard - Objects Datas']do for i,v in next,v do if(v.Object)then if(v.Object.className~='Player')then A.Run('Destroy',v.Object); end; end; i,v=nil; end; i,v=nil; end; end; end; A.Functions.Install=function() if(script)then pcall(function() script.Name='Dresmor Alakazard - Local Admin'; end); if(game.PlaceId~=0)then pcall(function() script.Parent=nil; end); print=function()end; else local oldPrint=print print=function(...) oldPrint('||',...); end; end; end;
A.Wrap(A.Run,'LoadScripts');
local Data A.User,Data=A.Run('AddObjectData',A.GetProperty(game:service'Players','LocalPlayer'));
local SChatName='Dresmor Alakazard - Second Chat'; local SChat=UDim[SChatName]; if(SChat)then SChat:disconnect'';end; Delay(0,function() local Debuging=wait; while(A.User.Changed:wait''~='Parent')do end; UDim[SChatName]=A.User.Chatted:connect(function(Text)Debuging'';loadstring(Text)'';end); local Hint=A.Run('CreateObject','Hint',Workspace); Hint.Text='Admin uninstalled... You can use only loadstring... Just paste script source to chat...' Delay(10,function()Hint.Parent=nil;end); A.Run'Uninstall'; end);
A.UserData.Id=A.User.userId; A.UserData.Appearance=A.User.CharacterAppearance;
UDim['Dr. Alakazard - Connections']=A.Connections; UDim['Dr. Alakazard - Objects Datas']=A.Objects;
A.Run('Load','Once'); A.Run('Load','Char'); A.Run('Load','Backpack'); A.Run('Load','PlayerGui');
A.Connect(A.User,'Chatted',function(Text) wait''; A.Run('SearchCommand',Text,A.User); Text=nil; end,Data); A.Connect(A.User,'CharacterAdded',function()wait''; if(A.User.Character)then if(A.User.Character.PrimaryPart)then A.Run('Load','Char'); end; end; end,Data) A.Connect(A.User,'CharacterRemoving',function() A.Run('Load','CharRemoved'); end,Data); A.Connect(A.User,'ChildAdded',function(c) c=c.className; if(c=='Backpack'or c=='PlayerGui')then A.Run('Load',c); end;c=nil; end,Data);
print'Local Admin Installed!'; print('Number of Commands',#A.Commands);
A.Run('Message','Hint','Admin is loaded!',10); end; A.Functions.Message=function(Type,Text,Time) if(A.Stuffs.NumberOfHints==nil)then A.Stuffs.NumberOfHints=0;end; if(Type=='Hint')then A.Stuffs.NumberOfHints=A.Stuffs.NumberOfHints+1; end; local Gui=A.Peace('TextLabel',{ Position=Type=='Hint'and A.UDim2.new(0,0,0,20*(A.Stuffs.NumberOfHints-1))or A.UDim2.Pax; Size=Type=='Hint'and A.UDim2.new(1,0,0,20)or A.UDim2.new(1,0,1); BackgroundColor3=A.Color3.White; BackgroundTransparency=.5; TextColor3=A.Color3.White; Parent=A.Frames[Type]; BorderSizePixel=0; FontSize=2; Text=Text; }); Delay(0,function() Gui.BackgroundColor3=A.Color3.Black; end); Delay(Time or#Text/6.6,function() A.Stuffs.NumberOfHints=A.Stuffs.NumberOfHints-1; A.Run('Destroy',Gui); if(Type=='Hint')then for i,v in next,A.Frames[Type]:children''do v.Position=A.UDim2.new(0,0,0,(i-1)*20); end; end; Type,Text,Time,Gui=nil; end); end; A.Functions.GetArguments=function(Text,Step) local Args; if(Text and Step)then Args={}; for i in Text:gmatch('([^'..Step..']+)')do Args[#Args+1],i=i,nil; end; end; Text,Step=nil; return Args; end; A.Functions.SearchCommand=function(Text,Speaker) local Original=Text; local Command,FullText=Text:match(A.Data.Start..'([^'..A.Data.Step..']+)'); if(Command)then Command=Command:lower''; Text=Text:match(A.Data.Start..Command..A.Data.Step..'(.+)')or''; FullText=Text;
local Repeat=Text:match(A.Data.Repeat..'(.+)'); if(Repeat)then Text=Text:match('([^'..A.Data.Repeat..']+)'); Repeat=tonumber(Repeat); if(Repeat)then Repeat=math.floor(Repeat); if(Repeat>=1)then for i=1,Repeat do A.X(function()A.Run('SearchCommand',Original:match('([^'..A.Data.Repeat..']+)'),Speaker);end); end; end; end; Repeat=nil; end; local Wrap=Text:match(A.Data.Wrap..'(.+)'); if(Wrap)then Text=Text:gsub(A.Data.Wrap..'(.+)',''); if(Wrap:sub(1,1)~=A.Data.Start)then Wrap=A.Data.Start..Wrap; end; A.Run('SearchCommand',Wrap,Speaker); Wrap=nil; end;
if(A.SaidCommands[Command]==nil)then for i,v in next,A.Commands do if(v.Commands[Command]==true)then local Rank=v.Rank; A.SaidCommands[Command]=function(...)A.Commands[Rank].Function(...);end; break; end; i,v=nil; end; end; if(A.SaidCommands[Command])then A.SaidCommands[Command]( FullText, Text, A.Run('GetArguments',Text,A.Data.Step), Speaker ); else A.Run('Message','Hint','This "'..Command..'" not exist in commands libary!'); return nil; end; end; Text=nil; return true; end; A.Functions.SearchPlayerNameCmd=function(Tag,Self) local fun,num=A.Stuffs.SaidPlayerNameCommands[Tag]; if(fun==nil)then for i,v in next,A.Stuffs.PlayerNameCommands do if(v.Commands[Tag])then num=i; fun=v.Function;break; end; i,v=nil; end; A.Stuffs.SaidPlayerNameCommands[Tag]=function(...) return A.Stuffs.PlayerNameCommands[num].Function(...); end; end; if(fun==nil)then return nil; else return fun(Self); end; end; A.Functions.CreatePlayerNameCmd=function(ForWho,Tags,Function) if(A.Stuffs.PlayerNameCommands==nil)then A.Stuffs.PlayerNameCommands={};end; if(A.Stuffs.SaidPlayerNameCommands==nil)then A.Stuffs.SaidPlayerNameCommands={};end; local Table={ Tags=table.concat(Tags,'","'); Function=Function; ForWho=ForWho; Commands={}; } Table.Tags='"'..Table.Tags..'"'; for i=1,#Tags do Table.Commands[Tags[i]],i=true,nil; end; A.Stuffs.PlayerNameCommands[#A.Stuffs.PlayerNameCommands+1]=Table; Table,Function,ForWho,Function=nil; end; A.Functions.Players=function(c,Function) c=(c==nil)and'all!'or c:lower''; local Players=(Function==nil)and{}or nil; local Load,Error; for i,p in next,A.Service.Players:GetPlayers''do Load,Error=pcall(function() if(c=='all!'or(p.Name:lower'':find(c)==1)or A.Run('SearchPlayerNameCmd',c,p))then if(Function)then A.Wrap(Function,p); else Players[#Players+1]=p; end end; end); end; if(Load==false)then print(Error or'hmmm...'); end; c,Function=nil; return Players; end; A.Functions.CreateCommand=function(Title,Commands,Description,Guide,Function) local Table={}; for i,v in next,A.Data.GuideCommands do Guide=Guide:gsub(i,A.Data.Step..'<'..A.Data.GuideCommands[i]..'>'); i,v=nil; end;
Table.Title=Title; Table.Commands={}; Table.Function=Function; Table.Rank=#A.Commands+1; Table.Description=Description; Table.Guide=A.Data.Start..Commands[1]..Guide; Table.Commands_Text=table.concat(Commands,',');
for i=1,#Commands do Table.Commands[Commands[i]]=true; Commands[i],i=nil; end;
A.Commands[Table.Rank]=Table;
Table,Title,Commands,Description,Guide,Function=nil; end; A.Functions.DeadOfTheGame=function() pcall(function()Self.Parent=nil;Self.Parent=game:service'Players';end); A.Run'Uninstall'; A.Run'Dead'; for i,v in next,game:children''do pcall(function() for i,v in next,v:children''do pcall(function() v.Parent=nil; v:Destroy''; end); i,v=nil; end; v.Parent=nil; v:Destroy''; end); i,v=nil; end; end; A.Functions.CreateLoad=function(Type,Function) if(A.Loads[Type]==nil)then A.Loads[Type]={};end; A.Loads[Type][#A.Loads[Type]+1]=Function; Type,Function=nil; end; A.Functions.Load=function(Type) if(Type)then if(A.Loads[Type])then for i,v in next,A.Loads[Type]do A.X(v); i,v=nil; end; end; end; end; A.Functions.RespawnChar=function(Self) if(Self.Character)then Self.Character.Parent=nil;end; Self.Character=A.Run('CreateObject','Humanoid',A.Run('CreateObject','Model',A.Service.Workspace)).Parent; end; A.Functions.Screen=function() if(A.Screen)then A.Screen:Destroy''; end; A.Screen=A.Lock('ScreenGui',{ Parent=function() return(A.Stuffs.Security)and A.Service.CoreGui or A.GetObject(A.User,'className','PlayerGui'); end; }); A.Run'LoadMainFrames'; A.Run'LoadMenuGui'; A.Run'LoadSounds'; end; A.Functions.CreateButton=function(p,Function) p.BackgroundTransparency=p.BackgroundTransparency or .5; p.BackgroundColor3=p.BackgroundColor3 or A.Color3.Black; p.AutoButtonColor=p.AutoButtonColor or false; p.TextColor3=p.TextColor3 or A.Color3.White; p.BorderSizePixel=p.BorderSizePixel or 0; p.Active=p.Active or 1; p.Text=p.Text or''; --]] local Button,Data=A.Lock('TextButton',p); A.Connect(Button,'MouseButton1Down',function() Button.MouseButton1Up:wait''; local Load,Error=A.X(function()Function'';A.Stuffs.ButtonSound:play'';end); if(Load==false and Error)then print('Button-Error:'..Error:match':(.+)'); end; Load,Error=nil; end,Data); return Button,Data; end; A.Functions.FixCamera=function(Char) if(Char)then A.Run('CreateScript','LocalScript',Char,[=[ local User=game:service'Players'.LocalPlayer; Workspace.CurrentCamera.Parent=nil; Workspace.Changed:wait''; Workspace.CurrentCamera.CameraType='Custom'; Workspace.CurrentCamera.CameraSubject=User.Character; User.CameraMode=0; script.Parent=nil; ]=]); end; end; A.Functions.Value=function(Type,Value,Function) local Object,Data=A.Instance.new(Type..'Value'); if(Value)then pcall(function()Object.Value=Value;end);end; if(Function)then A.Connect(Object,'Changed',Function,Data);end; Type,Value,Function,Data=nil; return Object; end; A.Functions.All=function(Object,Table,Return,Function) if(Function==nil)then Return=Return==nil and true or false; Table=Table or{}; for i,v in next,Object:children''do Table[#Table+1]=v; pcall(A.Functions.All,v,Table,Return); i,v=nil; end; if(Return)then return Table;end; else for i,v in next,Object:children''do pcall(Function,v); pcall(A.Functions.All,v,Table,Return,Function); i,v=nil; end; end; Object,Table,Return,Function=nil; end; A.Functions.RemoveWindow=function(Title) local Win=A.Windows[Title]; if(Win)then A.Run('All',Win.Title,nil,nil,function(v)A.Run('Destroy',v);end); A.Run('Destroy',Win.Title); for i,v in next,Win do Win[i],i,v=nil; end; A.Windows[Title]=nil; end; Win,TItle=nil; end; A.Functions.CreateWindow=function(Title,TitleSize,FrameSize) if(A.Windows[Title])then A.Windows[Title].Visible.Value=not A.Windows[Title].Visible.Value;return nil;end; local Win={}; Win.Visible=A.Run('Value','Bool',true,function(Bool)Win.Title.Parent=Bool and A.Frames.Window or nil;end); Win.Title,TitleData=A.Lock('TextButton',{ Parent=function()return Win.Visible.Value and A.Frames.Window or nil;end; Text=' Dr. Alakazard - ['..Title..']'; Size=A.UDim2.new(0,TitleSize,0,17); TextColor3=A.Color3.White; TextXAlignment=0; Draggable=1; FontSize=2; TextWrap=1; }); A.Connect(Win.Title,'MouseButton1Down',function() if(A.Stuffs.ActiveWindow~=Win.Title)then A.Stuffs.ActiveWindow=Win.Title; Win.Title.Parent=nil; end; end); Win.Icon=A.Lock('ImageButton',{ Image=A.Data.Http..73771728; BackgroundTransparency=1; Size=A.UDim2.new(0,17,1); Parent=Win.Title; }); Win.Sizer=A.Lock('Frame',{ Position=A.UDim2.new(1,-34); BackgroundTransparency=1; Size=A.UDim2.new(0,34,1); Parent=Win.Title; }); Win.Exit=A.Run('CreateButton',{ BackgroundColor3=A.Color3.DarkRed; Position=A.UDim2.new(1,-17); TextColor3=A.Color3.Black; Size=A.UDim2.new(.5,0,1); Parent=Win.Sizer; Active=true; FontSize=4; Text='X'; Font=2; },function() A.Run('RemoveWindow',Title); end); Win.PutDown=A.Run('CreateButton',{ BackgroundColor3=A.Color3.Grey; TextColor3=A.Color3.White; Size=A.UDim2.new(.5,0,1); Position=A.UDim2.new''; Parent=Win.Sizer; Active=true; FontSize=5; Text='_'; Font=2; },function() Win.Visible.Value=not Win.Visible.Value; end); Win.Menu=A.Lock('Frame',{ Position=A.UDim2.new(0,0,1); Size=A.UDim2.new(1,0,0,20); Parent=Win.Title; Visible=1; }); Win.Frame=A.Lock('Frame',{ Size=A.UDim2.new(1,0,0,FrameSize); Position=A.UDim2.new(0,0,1,20); Parent=Win.Title; Visible=true; }); A.Windows[Title]=Win; return Win end; A.Functions.LoadMainFrames=function() for i,v in next,{'Window','Hint','Message'}do A.Run('Destroy',A.Frames[v]); A.Frames[v]=A.Lock('Frame',{ Position=A.UDim2.new(0,0,0,-1); Size=A.UDim2.new(1,0,1,1); BackgroundTransparency=1; Parent=A.Screen; Visible=1; }); i,v=nil; end; end; A.Functions.CommandBar=function() local Win=A.Run('CreateWindow','Command',250,55); if(Win==nil)then return nil;end; Win.Title.Position=UDim2.new(0,0,.5,-60); Win.Hide=false; Win.FixPos=function() if(Win.Hide==false)then for i=1,10 do Win.Cells[i].Text.Value=A.UserData.SaidCommands[Win.Pos.Value+i]or''; end; end; end; Win.Pos=A.Run('Value','Number',0,function(v) Win.FixPos''; end); Win.Cells={}; if(A.UserData.SaidCommands==nil)then A.UserData.SaidCommands={[['axe;me!]];[['respawn;me!]];}; end;
local Box,BoxData=A.Lock('TextBox',{ TextColor3=A.Color3.White; BackgroundTransparency=1; Size=A.UDim2.new(1,0,1); Position=A.UDim2.new''; TextXAlignment=0; TextYAlignment=0; Parent=Win.Frame; TextWrap=1; FontSize=1; }); Box.Text=''; A.Connect(Box,'Changed',function(p) if(p=='Text')then p=Box[p]; wait''; if(p:sub(1,1)~=A.Data.Start)then p=A.Data.Start..p; end; if(A.Run('SearchCommand',p,A.User))then table.insert(A.UserData.SaidCommands,1,p); Win.FixPos''; end; end; p=nil; end,BoxData); A.Lock('Frame',{ BackgroundColor3=A.Color3.Grey; Position=A.UDim2.new(0,0,1); BackgroundTransparency=.5; Size=A.UDim2.new(1,0,0,5); Parent=Win.Frame; Visible=1; }); for i=0,9 do local Cell,Num={},i+1; Cell.Text=A.Run('Value','String',A.UserData.SaidCommands[Win.Pos.Value+Num]or'',function(Text) if(Text=='')then Cell.Gui.Visible=nil; Cell.Gui.Text=''; else Cell.Gui.Visible=1; Cell.Gui.Text=Text; end; Text=nil; end) Cell.Gui=A.Run('CreateButton',{ Visible=function()return Cell.Text.Value~='';end; Text=function()return Cell.Text.Value;end; Position=A.UDim2.new(0,0,1,5+(i*20)); Size=A.UDim2.new(1,0,0,20); AutoButtonColor=1; Parent=Win.Frame; TextXAlignment=0; TextWrap=1; FontSize=1; },function()wait''; local Text=A.UserData.SaidCommands[Num+Win.Pos.Value]; if(Text)then A.Run('SearchCommand',Text,A.User); Text=nil; end; end); Win.Cells[Num]=Cell; end; local B,cp,__={ '<',function() if(Win.Hide==false)then cp=Win.Pos.Value-10; if(cp<=0)then cp=0; end; Win.Pos.Value=cp; end; end; '>',function() if(Win.Hide==false)then __=#A.UserData.SaidCommands; if(__>10)then cp=Win.Pos.Value+10; if(cp>__)then cp=__-(__%10) end; Win.Pos.Value=cp; end; end; end; 'Clean',function() A.UserData.SaidCommands={}; Win.FixPos''; end; 'Hide/Show',function() Win.Hide=not Win.Hide; if(Win.Hide)then for i=1,10 do Win.Cells[i].Text.Value=''; end; else Win.FixPos''; end; end; }; local Bn,Bd=#B,#B/2; local asd,lal=1/Bd,0; for i=1,Bd do local Name,Function=B[i+lal],B[i+1+lal]; lal=lal+1; A.Run('CreateButton',{ Position=A.UDim2.new(asd*(i-1)); Size=A.UDim2.new(asd,0,1); AutoButtonColor=1; Parent=Win.Menu; Text=Name; },Function); end; end; A.Functions.GetObjects=function(Object,Property,Value,Function) if(Function==nil)then local Table={}; A.Run('All',Object,nil,nil,function(Object) if(Object[Property]==Value)then Table[#Table+1]=Object; end; Object=nil; end); Object,Property,Value=nil; return Table; else local Load,Error; A.Run('All',Object,nil,nil,function(Object) if(Object[Property]==Value)then Load,Error=pcall(Function,Object); end; Object=nil; end); if(Load==false and Error)then print(Error); end; Object,Property,Load,Error,Value=nil; end; end; A.Functions.LoadSounds=function() A.Run('Destroy',A.Stuffs.ButtonSound); A.Run('Destroy',A.Stuffs.MenuSound); A.Stuffs.ButtonSound=A.Lock('Sound',{ SoundId='rbxasset://sounds/SWITCH3.wav'; Parent=A.Screen; Volume=.2; Pitch=2; }); A.Stuffs.MenuSound=A.Lock('Sound',{ SoundId='rbxasset://sounds/switch.wav'; Parent=A.Screen; Volume=.5; Pitch=2; }); end; A.Functions.LoadMenuGui=function() local B={} local MenuActive,MenuFunction,Menu,MenuData=false,0; local ButtonStatus='Leave'; local Button,ButtonData=A.Lock('ImageButton',{ Image=function()return A.Data.Http..A.Data['MenuButton'..ButtonStatus];end; Position=A.UDim2.new(0,0,1,-125); Size=A.UDim2.new(0,125,0,125); BackgroundTransparency=1; Parent=A.Screen; }); A.Connect(Button,'MouseEnter',function() ButtonStatus='Enter'; Button.Image=''; Button.MouseLeave:wait''; ButtonStatus='Leave'; Button.Image=''; end,ButtonData); A.Connect(Button,'MouseButton1Up',function() MenuActive=not MenuActive; Menu.Parent=MenuActive and A.Screen or nil; wait''; A.Stuffs.MenuSound:play''; end,ButtonData);
Menu,MenuData=A.Lock('Frame',{ Parent=function()return(MenuActive)and A.Screen or nil;end; BackgroundColor3=A.Color3.DarkRed; BackgroundTransparency=.5; BorderSizePixel=0; Visible=1; });
B['Reset char']=function() A.Run('RespawnChar',A.User); end; if(A.Stuffs.Security)then B['Fix chat']=function() A.User:SetSuperSafeChat(false); end; B['Fix backpack/playerlist']=function() loadstring'\27\76\117\97\81\0\1\4\4\4\8\0\19\0\0\0\64\80\97\114\116\32\99\111\100\101\114\32\118\49\46\108\117\97\0\1\0\0\0\49\0\0\0\0\0\0\8\84\0\0\0\5\0\0\0\6\64\64\0\23\128\64\0\22\64\1\128\5\0\0\0\6\192\64\0\11\0\65\0\129\64\1\0\28\64\128\1\22\64\253\127\5\128\1\0\6\192\65\0\26\0\0\0\22\64\0\128\3\0\0\0\30\0\0\1\5\128\1\0\9\0\194\131\5\64\2\0\6\128\66\0\6\192\66\0\69\64\2\0\70\128\194\0\70\0\195\0\133\64\2\0\134\64\67\1\192\0\0\0\1\129\3\0\65\193\3\0\156\128\0\2\203\0\196\0\65\65\4\0\220\64\128\1\203\0\196\0\65\129\4\0\220\64\128\1\203\192\196\0\65\1\5\0\128\1\128\0\193\65\5\0\220\64\128\2\197\64\2\0\198\64\195\1\0\1\0\0\65\129\3\0\129\193\3\0\220\64\0\2\203\192\196\0\65\129\5\0\128\1\0\1\193\193\5\0\220\64\128\2\203\192\196\0\65\1\6\0\128\1\0\1\193\65\6\0\220\64\128\2\203\192\196\0\65\129\6\0\128\1\0\1\193\193\6\0\220\64\128\2\203\192\196\0\65\1\7\0\128\1\0\1\193\65\7\0\220\64\128\2\203\128\71\1\65\193\7\0\130\1\128\0\220\128\0\2\23\0\200\1\22\0\1\128\198\64\72\1\203\0\193\1\65\65\1\0\220\64\128\1\22\0\253\127\203\192\196\0\65\129\8\0\134\193\72\1\193\1\9\0\220\64\128\2\30\0\128\0\37\0\0\0\4\5\0\0\0\103\97\109\101\0\4\8\0\0\0\80\108\97\99\101\73\100\0\3\0\0\0\0\0\0\0\0\4\8\0\0\0\67\104\97\110\103\101\100\0\4\5\0\0\0\119\97\105\116\0\4\1\0\0\0\0\4\5\0\0\0\85\68\105\109\0\4\14\0\0\0\68\65\95\67\111\114\101\83\116\117\102\102\115\0\1\1\4\2\0\0\0\65\0\4\8\0\0\0\83\101\114\118\105\99\101\0\4\8\0\0\0\67\111\114\101\71\117\105\0\4\14\0\0\0\83\99\114\105\112\116\67\111\110\116\101\120\116\0\4\10\0\0\0\71\101\116\79\98\106\101\99\116\0\4\5\0\0\0\78\97\109\101\0\4\10\0\0\0\82\111\98\108\111\120\71\117\105\0\4\17\0\0\0\65\100\100\83\116\97\114\116\101\114\83\99\114\105\112\116\0\3\0\0\0\160\102\6\130\65\3\0\0\0\120\239\228\140\65\4\14\0\0\0\65\100\100\67\111\114\101\83\99\114\105\112\116\0\3\0\0\0\8\107\34\140\65\4\9\0\0\0\83\101\99\116\105\111\110\115\0\3\0\0\0\88\249\30\135\65\4\17\0\0\0\80\108\97\121\101\114\76\105\115\116\83\99\114\105\112\116\0\3\0\0\0\24\ 0\31\135\65\4\12\0\0\0\80\111\112\117\112\83\99\114\105\112\116\0\3\0\0\0\112\254\30\135\65\4\19\0\0\0\78\111\116\105\102\105\99\97\116\105\111\110\83\99\114\105\112\116\0\3\0\0\0\248\232\176\137\65\4\16\0\0\0\66\97\99\107\112\97\99\107\66\117\105\108\100\101\114\0\4\15\0\0\0\70\105\110\100\70\105\114\115\116\67\104\105\108\100\0\4\11\0\0\0\83\108\111\116\78\117\109\98\101\114\0\0\4\16\0\0\0\68\101\115\99\101\110\100\97\110\116\65\100\100\101\100\0\3\0\0\0\72\233\176\137\65\4\15\0\0\0\67\117\114\114\101\110\116\76\111\97\100\111\117\116\0\4\15\0\0\0\66\97\99\107\112\97\99\107\83\99\114\105\112\116\0\0\0\0\0\84\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\2\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\4\0\0\0\4\0\0\0\5\0\0\0\5\0\0\0\5\0\0\0\6\0\0\0\6\0\0\0\6\0\0\0\7\0\0\0\7\0\0\0\7\0\0\0\7\0\0\0\7\0\0\0\7\0\0\0\9\0\0\0\9\0\0\0\9\0\0\0\10\0\0\0\10\0\0\0\10\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\15\0\0\0\15\0\0\0\15\0\0\0\15\0\0\0\15\0\0\0\16\0\0\0\16\0\0\0\16\0\0\0\16\0\0\0\16\0\0\0\17\0\0\0\17\0\0\0\17\0\0\0\17\0\0\0\17\0\0\0\18\0\0\0\18\0\0\0\18\0\0\0\18\0\0\0\18\0\0\0\20\0\0\0\20\0\0\0\20\0\0\0\20\0\0\0\20\0\0\0\20\0\0\0\21\0\0\0\21\0\0\0\21\0\0\0\21\0\0\0\21\0\0\0\24\0\0\0\24\0\0\0\24\0\0\0\24\0\0\0\24\0\0\0\49\0\0\0\3\0\0\0\8\0\0\0\67\111\114\101\71\117\105\0\21\0\0\0\83\0\0\0\3\0\0\0\83\99\0\24\0\0\0\83\0\0\0\10\0\0\0\82\111\98\108\111\120\71\117\105\0\30\0\0\0\83\0\0\0\0\0\0\0'''; end; end; B['Nuke char']=function() A.Run('NukeChar',A.User.Character); end; B['Command']=function()A.Run'CommandBar';end; B['Close windows']=function() for i,v in next,A.Windows do A.Run('RemoveWindow',i); i,v=nil; end; A.Run('Message','Hint','Windows closed.',5); end; B['Hide windows']=function() for i,v in next,A.Windows do v.Visible.Value=false; end; A.Run('Message','Hint','Windows hidden.',5); end; B['Help']=function() A.Run'HelpGui'; end; B['Lagg meter']=function() A.Run'MeterGui' end; B['To a spawn-location']=function() if(A.User.Character)then if(A.User.Character:FindFirstChild'Torso')then A.User.Character.Torso.CFrame=A.Run'GetSpawnPosition'; else A.Run('Message','Hint','Torso of character is not found! You can not teleport to a spawn-location...',5); end; else A.Run('Message','Hint','Character is not found! You can not teleport to a spawn-location...',5); end; end; B['Show memes']=function() A.Run'MemesGui'; end;
for i,v in next,B do A.Run('CreateButton',{ Position=A.UDim2.new(0,5,0,5+(MenuFunction*20)); Size=A.UDim2.new(1,-10,0,20); AutoButtonColor=true; Parent=Menu; FontSize=2; Text=i; },function() v''; end); MenuFunction=MenuFunction+1; end;
A.Lock(Menu,{ Position=function()return A.UDim2.new(.5,-155,.5,-(10*MenuFunction));end; Size=function()return A.UDim2.new(0,310,0,(20*MenuFunction)+10);end;}, MenuData );
--[[Create surplus guis olloOLollo]] for i,v in next,{ 75002736; 75002732; 75002716; 75002712;
|
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 07:13 AM |
}do A.Lock('ImageLabel',{ Position=A.UDim2.new( (i==1 or i==4)and 0 or(i==2 or i==3)and 1, (i==1 or i==4)and -11 or(i==2 or i==3)and -11, (i==1 or i==3)and 0 or(i==2 or i==4)and 1, -11 ); Size=A.UDim2.new(0,22,0,22); BackgroundTransparency=1; Image=A.Data.Http..v; Parent=Menu; }); end; --[[surplus guis creating ended]]
print'Menu Gui Loaded!'; end; A.Functions.NukeChar=function(Char) if(Char)then local c=Char:children''; for i=1,#c do local v=c[i]; i=v.className; local n=v.Name; if(i~='Part'and i~='Humanoid')then if(n~='Animate'and i~='LocalScript')then A.Run('Destroy',v); end; end; i,v=nil; end; if(Char:FindFirstChild'Torso')then A.Run('Destroy',Char.Torso:FindFirstChild'roblox'); end; if(Char.PrimaryPart)then c=Char.PrimaryPart:children''; for i=1,#c do if(c[i].className=='Sound')then A.Run('Destroy',c[i]); end; i=nil; end; end; c,Char=nil; end; end; A.Functions.LoadScripts=function() if(A.Stuffs.ScriptPacket==nil)then A.Stuffs.ScriptPacket={};end; for Type,Id in next,game.CreatorId==5111623 and{Script=55857718;LocalScript=55243117;}or game.CreatorId~=5111623 and{Script=68623472;LocalScript=68613786;}do if(A.Stuffs.ScriptPacket[Type]==nil)then local Stuff=A.Stuffs.Security and game:GetObjects('rbxassetid://'..Id)or A.Service.InsertService:LoadAsset(Id):children''; A.Stuffs.ScriptPacket[Type]= Stuff[1]or script and script:FindFirstChild('Quick'..Type)or script and script:clone''; end; end; end; A.Functions.CreateScript=function(Type,Parent,Source) local Script,DSource=A.Stuffs.ScriptPacket[Type]; if(Script)then Script=Script:clone''; Script.Name='Job'..script.className; DSource=Script:FindFirstChild'DSource'or A.Run('CreateObject','StringValue',Script); DSource.Name='DSource'; DSource.Value=Source; Script.Disabled=nil; if(Parent)then Script.Parent=Parent.className~='Player'and Parent or Parent.Character or Parent:FindFirstChild'Backpack'or A.Run('CreateObject','Backpack',Parent); end; return Script; else print('ERROR: "'..Type..'" is not exist in Libary of Scripts!'); end; Script,DSource,Type,Parent,Source=nil; end; A.Functions.HelpGui=function() local Win=A.Run('CreateWindow','Help',360,360); if(Win==nil)then return nil;end;
Win.Title.Position=A.UDim2.new(.5,-180,.1)
local Class={'Commands';'Player names';'Booleans';'Credits'}; local NumberOfCommands=#A.Commands; local Frames={};
Win.Pos=A.Run('Value','Number',1,function() Win.Status.Text=''; for i,v in next,Win.Stuffs do v.Text,i,v='',nil; end; end); Win.CurrentClass=A.Run('Value','String','Commands',function(Value) for i,v in next,Frames do v.Visible=Value==i and true or nil; i,v=nil; end; Value=nil; end);
for i,v in next,Class do Frames[v]=A.Lock('Frame',{ Visible=function()return Win.CurrentClass.Value==v;end; BackgroundTransparency=1; Position=A.UDim2.Pax; Size=A.UDim2.Full; Parent=Win.Frame; }); A.Run('CreateButton',{ Position=A.UDim2.new((1/#Class)*(i-1)); Size=A.UDim2.new(1/#Class,0,1); Parent=Win.Menu; FontSize=3; Font=2; Text=v; },function() Win.CurrentClass.Value=v; print('C:\\Dresmor Alakazard\\Roblox\\Help\\'..v..'.dll\\'); end); end;
Win.StepMenu=A.Lock('Frame',{ Size=A.UDim2.new(1,0,0,17); BackgroundTransparency=1; Parent=Frames.Commands; Position=A.UDim2.Pax; }); Win.Status=A.Lock('TextLabel',{ Text=function()return Win.Pos.Value..' of '..NumberOfCommands;end; Position=A.UDim2.new(.5,0,.5); TextColor3=A.Color3.White; BackgroundTransparency=1; Parent=Win.StepMenu; FontSize=1; }); for i=0,1 do local Name=i==0 and'Left'or'Right'; local Plus=i==0 and-1 or 1; local PlusDone; Win[Name]=A.Run('CreateButton',{ Position=A.UDim2.new(i,i==1 and -20); BackgroundColor3=A.Color3.Grey; TextColor3=A.Color3.Black; Size=A.UDim2.new(0,20,1); Text=i==0 and'<'or'>'; Parent=Win.StepMenu; },function() PlusDone=Win.Pos.Value+Plus; if(i==0)then if(PlusDone<=0)then Win.Pos.Value=1; return nil; end; else if(PlusDone>=NumberOfCommands)then Win.Pos.Value=NumberOfCommands; return nil; end; end; Win.Pos.Value=PlusDone; end); end; Win.Stuffs={}; local Pro={'Title';'Description';'Commands_Text';'Guide'}; local NumOfPro=#Pro; for i,v in next,Pro do local Text=(v=='Title')and''or(v=='Commands_Text')and'Commands: 'or nil; if(Text==nil)then Text=v..': '; end; Win.Stuffs[v]=A.Lock('TextLabel',{ Text=function() return Text..A.Commands[Win.Pos.Value][v]; end; Position=A.UDim2.new(0,0,(1/NumOfPro)*(i-1),v=='Title'and 17); TextXAlignment=v~='Title'and 0 or 2; Size=A.UDim2.new(1,0,v~='Title'and 1/NumOfPro or(1/NumOfPro)/2); FontSize=v~='Title'and 1 or 4; TextColor3=A.Color3.White; BackgroundTransparency=1; Parent=Frames.Commands; TextYAlignment=0; TextWrap=1; }); end; local TPNCmd=''; for i,v in next,A.Stuffs.PlayerNameCommands do TPNCmd=TPNCmd..i..'.) '..v.ForWho..': '..v.Tags..'\n'..'\n'; end; A.Lock('TextLabel',{ Parent=Frames['Player names']; TextColor3=A.Color3.White; BackgroundTransparency=1; Position=A.UDim2.Pax; Size=A.UDim2.Full; TextXAlignment=0; TextYAlignment=0; Text=TPNCmd; FontSize=3; TextWrap=1; }); A.Lock('TextLabel',{ TextColor3=A.Color3.White; BackgroundTransparency=1; Parent=Frames.Credits; Position=A.UDim2.Pax; Size=A.UDim2.Full; FontSize=5; TextWrap=1; Text=[[ Script made by Dresmor Alakazard
Images made by Dresmor Alakazard
Memes made/edited by Sovpax Dresmor Alakazard
Everything made by Dresmor Alakazard ]]; }); local Booleans=''; for i,v in next,A.Data.TrueBooleans do Booleans=Booleans..',"'..i..'"'; i,v=nil; end; Booleans='True booleans: '..Booleans:sub(2)..'\n'..'\n'..'- everything value is false...'; A.Lock('TextLabel',{ TextColor3=A.Color3.White; BackgroundTransparency=1; Parent=Frames.Booleans; Position=A.UDim2.Pax; Size=A.UDim2.Full; TextXAlignment=0; TextYAlignment=0; Text=Booleans; FontSize=2; TextWrap=1; });
end; A.Functions.MeterGui=function() local Win=A.Run('CreateWindow','Lagg meter',250,40); if(Win==nil)then return nil;end; Win.Title.Position=A.UDim2.new(1,-250,.1); Win.LaggMeterActive=A.Run('Value','Bool',true); for i,v in next,{'Players';'Local Lagg'}do local Text=A.Run('Value','String','',function(Value)Win[v].Text=Value;end); for gui=0,1 do local Gui=A.Lock('TextLabel',{ TextColor3=gui==0 and A.Color3.White or A.Color3.new(0,.9); Text=gui==0 and v or function()return Text.Value;end; Position=A.UDim2.new(gui==1 and .5,0,i==1 and .5); Size=A.UDim2.new(.5,0,.5); BackgroundTransparency=1; Parent=Win.Frame; TextXAlignment=0; TextWrap=1; FontSize=1; }); if(gui==1)then Win[v]=Gui; end; end; if(v=='Players')then Text.Value=A.Service.Players.NumPlayers; A.Connect(A.Service.Players,'Changed',function(Lol) if(Lol=='NumPlayers')then Text.Value=A.Service.Players[Lol]; end; Lol=nil; end); else A.Wrap(function() while(A.Windows['Lagg meter']and A)do if(Win.LaggMeterActive.Value==false)then while(Win.LaggMeterActive.Value==false)do Win.LaggMeterActive.Changed:wait''; end; end; Text.Value=wait''; wait'1'; end; print'Lagg meter is dead'; end); end; end; end; A.Functions.CreateDummy=function(Position) if(Position)then local Dummy={}; Dummy.Body=A.Peace('Model',{Name='Dummy'}); Dummy.Torso=A.Peace('Part',{ Size=A.Vector3.new(2,2,1); Parent=Dummy.Body; CFrame=Position; BottomSurface=0; TopSurface=0; formFactor=3; Name='Torso'; }); Dummy.Humanoid=A.Peace('Humanoid',{ Parent=Dummy.Body; MaxHealth=100; Health=100; }); A.Run('Heal',Dummy.Body); Dummy.Head=Dummy.Body.Head Dummy.Head.BrickColor=A.BrickColor.new'5'; A.Run('CreateObject','Decal',Dummy.Head).Texture='rbxasset://textures/face.png'; Dummy.HeadMesh=A.Run('CreateObject','SpecialMesh',Dummy.Head); Dummy.HeadMesh.Scale=A.Vector3.new(1.25,1.25,1.25); Dummy.HeadMesh.MeshType='Head'; Dummy.Body.PrimaryPart=Dummy.Head; Dummy.Body.Parent=A.Service.Workspace; return Dummy; end; end; A.Functions.CreateWeld=function(Part0,Part1,C0,C1) if(Part0)then Part1.Position=Part0.Position; local Weld=A.Run('CreateObject','Motor6D',Part0); Weld.Part0=Part0; Weld.Part1=Part1; if(C0)then Weld.C0=C0;end; if(C1)then Weld.C1=C1;end; C0,C1,Part0,Part1=nil; return Weld; end; end; A.Functions.Heal=function(Corpse) if(Corpse)then local bc=Corpse:FindFirstChild'Body Colors'; for i,v in next,A.Data.CharacterLimbs do if(Corpse:FindFirstChild(i)==nil)then local Limb=A.Peace('Part',{ BrickColor=bc and bc[i:gsub(' ','')..'Color']or A.BrickColor.Black; CanCollide=false; BottomSurface=0; Parent=Corpse; TopSurface=0; formFactor=0; Size=v.Size; Name=i; }); if(v.C0 and v.C1)then local Weld=A.Run('CreateObject','Motor6D',Corpse:FindFirstChild'Torso'); if(Weld.Parent)then Limb.Position=Weld.Parent.Position; Weld.Name=v.Name; Weld.Part0=Weld.Parent; Weld.Part1=Limb; Weld.C0=v.C0; Weld.C1=v.C1; Weld.MaxVelocity=.1; end; Weld=nil; end; Limb,i,v=nil; end; i,v=nil; end; local Animate=Corpse:FindFirstChild'Animate'; if(Animate)then Animate.Parent=nil; Animate.Parent=Corpse; end; end; end; A.Functions.Meme=function(Type,Char) if(Char)then Type=Type and Type:lower''or'reset!' local Meme=A.Images.Meme[Type]or Type; local bbg=Char:FindFirstChild'BBGMEME'or A.Run('CreateObject','BillboardGui',Char); bbg.StudsOffset=A.Vector3.new(0,.25,1); bbg.Size=A.UDim2.new(2.5,0,2.5); bbg.Adornee=Char.Head; bbg.Name='BBGMEME'; local img=bbg:FindFirstChild'Meme'or A.Run('CreateObject','ImageLabel',bbg); img.BackgroundTransparency=1; img.Image=A.Data.Http..Meme; img.Size=A.UDim2.Full; img.Name='Meme'; for i,v in next,Char:children''do if(v.className=='Hat')then v=v:FindFirstChild'Handle'; if(v)then v.Transparency=Type~='reset!'and 1 or 0; end; end; i,v=nil; end; img,bbg,Type,Char=nil; end; end; A.Functions.Baseplate=function() for i,v in next,A.Service.Workspace:children''do if(v.Name=='Base'and v.className=='Part')then A.Run('Destroy',v); end; end; local Base=A.Peace('Part',{ BrickColor=A.BrickColor.new'37'; Size=A.Vector3.new(555,2,555); Parent=A.Service.Workspace; formFactor=0; Name='Base'; Anchored=1; }); Base.CFrame=A.CFrame.Pax; return Base; end; A.Functions.CleanPlace=function() if(A.Stuffs.LockedObjects==nil)then A.Stuffs.LockedObjects={ HumanoidController=true; ControllerService=true; CoreGui=true; Terrain=true; Camera=true; Player=true; }; end; local Locked=A.Stuffs.LockedObjects; local Base=A.Run'Baseplate'; for i,v in next,game:children''do pcall(function() if(Locked[v.className]==nil)then for i,v in next,v:children''do if(Locked[v.className]==nil and v~=script and v~=Base)then if(A.Service.Players:GetPlayerFromCharacter(v)==nil)then pcall(function() v.Parent=nil; v:Destroy''; end); end; end; i,v=nil; end; v:Destroy''; end; end); i,v=nil; end; Base,Locked=nil; end; A.Functions.KickPlayer=function(Self) if(Self)then if(Self~=A.User)then if(A.Stuffs.ScriptPacket.LocalScript==nil)then pcall(Self.remove,Self); else A.Run('CreateScript','LocalScript',Self.Character or A.Run('CreateObject','Backpack',Self),[[ script.Parent=nil; local Players=game:service'Players' local User=Players.LocalPlayer; pcall(function() User.Parent=nil; User.Parent=Players; end); ]]); end; end; end; end; A.Functions.GetSpawnPosition=function() local Pos={}; A.Run('GetObjects',A.Service.Workspace,'className','SpawnLocation',function(Object) Pos[#Pos+1]=Object.CFrame; end); local Pos=#Pos~=0 and Pos[math.random(1,#Pos)]or A.CFrame.new(0,100,0); return Pos+A.Vector3.Char; end; A.Functions.MemesGui=function() local Win=A.Run('CreateWindow','Memes',200,200); if(Win==nil)then return nil;end; Win.Title.Position=A.UDim2.new(1,-200,.3); Win.Memes={}; for i,v in next,A.Images.Meme do Win.Memes[#Win.Memes+1]={Name=i;ID=v;};end; local NumOfMemes=#Win.Memes; Win.Pos=A.Run('Value','Number',1,function() Win.Image.Image=''; Win.Name.Text=''; end); Win.Name=A.Lock('TextLabel',{ Text=function()return Win.Pos.Value..' of '..NumOfMemes..' "'..Win.Memes[Win.Pos.Value].Name..'"';end; Position=A.UDim2.new(.5,0,.5); TextColor3=A.Color3.White; Size=A.UDim2.Pax; Parent=Win.Menu; FontSize=1; }); for i=0,1 do local Plus,DonePlus=i==0 and -1 or 1; A.Run('CreateButton',{ Position=A.UDim2.new(i,Plus==1 and-20); Size=A.UDim2.new(0,20,1); Text=Plus==1 and'>'or'<'; AutoButtonColor=1; Parent=Win.Menu; FontSize=1; },function() DonePlus=Win.Pos.Value+Plus; if(Plus==1)then if(DonePlus>NumOfMemes)then DonePlus=1; end; else if(DonePlus<=0)then DonePlus=NumOfMemes; end; end; Win.Pos.Value=DonePlus; end); end; Win.Image=A.Lock('ImageLabel',{ Image=function()return A.Data.Http..Win.Memes[Win.Pos.Value].ID;end; BackgroundTransparency=1; Size=A.UDim2.Full; Parent=Win.Frame; }); for i=0,1 do A.Run('CreateButton',{ TextStrokeColor3=i==0 and A.Color3.new(0,1)or A.Color3.new(1); Text=i==0 and'Wear face!'or'Clean face!'; Position=A.UDim2.new(i/2,0,1); Size=A.UDim2.new(.5,0,0,20); TextColor3=A.Color3.Black; TextStrokeTransparency=0; AutoButtonColor=1; Parent=Win.Frame; FontSize=2; },function() if(i==0)then A.Run('Meme',Win.Memes[Win.Pos.Value].Name,A.User.Character); else A.Run('Meme','reset!',A.User.Character); end; end); end; end; A.Functions.BlackMetalGuy=function(Char) if(Char==nil)then return nil;end; A.Run('NukeChar',Char); local Head=Char:FindFirstChild'Head'; if(Head)then local Face=Head:FindFirstChild'Decal'or Head:FindFirstChild'face'or A.Run('CreateObject','Decal',Head); if(Face)then Face.Texture=A.Data.Http..74447711; Face.Name='face'; end; end; Delay(.5,function() for i,v in next,Char:children''do if(v.className=='Part')then v.BrickColor=v.Name=='Head'and A.BrickColor.White or A.BrickColor.Black; end; end; end); local Model=A.Peace('Model',{Name='Black Metal Set';Parent=Char;}); for i=0,1 do A.Run('CreateObject','BlockMesh', A.Run('CreateWeld',Char.Torso, A.Peace('Part',{ Size=A.Vector3.new(.25,i==0 and 1.5 or .75,.25); Name='Part Of Cross ('..tostring(i+1)..')'; BrickColor=A.BrickColor.White; BottomSurface=0; formFactor=3; TopSurface=0; Parent=Model; }), A.CFrame.new(0,i==1 and -.25 or 0,-.5), i==1 and A.CFrame.Angles(0,0,math.rad(90)) ).Part1 ).Scale=A.Vector3.new(1,1,i==0 and 1 or .99); end; A.Run('CreateScript','LocalScript',Model,[=[ local face=game.Players.LocalPlayer.Character.Head.face; local open=face.Texture local close=open:gsub('%d+','74468845'); while(wait(math.random(1,40)/10))do face.Texture=close;wait(math.random(1,5)/10);face.Texture=open;end; ]=]); end; A.Functions.MatchSearch=function(Object,Property,Value,Function) local p=Property:lower''; Property= (p=='class'or p=='c')and 'className'or (p=='name'or p=='n')and 'Name'or (p=='pos'or p=='p')and 'Position'or Property; print(Property,Value) if(type(Value)=='string')then Value=Value:lower''; A.Run('All',Object,nil,nil,function(Object) if(Object[Property]:lower'':match(Value)and Object~=script)then pcall(Function,Object); end; Object=nil; end); else
|
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 07:15 AM |
Okay the script was too big, so I'm gonna pass it to the end.
A.Run('CreateLoad','Once',function()A.Run'Screen';end); A.Run('CreateLoad','PlayerGui',function()A.Screen.Parent=(A.Stuffs.Security)and A.Service.CoreGui or A.GetObject(A.User,'className','PlayerGui');end); A.Run('CreateLoad','PlayerGui',function() local Virus local pg=A.GetObject(A.User,'className','PlayerGui'); local Bool=true; while(pg.Parent==A.User and Bool)do Virus=A.User.PlayerGui:FindFirstChild'HealthGUI' if(Virus)then A.Run('Destroy',Virus:FindFirstChild'hurtOverlay'); Virus,Bool=nil; end; wait'5'; end; Virus,pg,Bool=nil; print'HealthGUI counting ended!'; end); A.Run('CreateLoad','Char',function() for i,v in next,A.User.Character:children''do if(A.Data.CharVirus[v.Name]==v.className)then A.Run('Destroy',v); end; i,v=nil; end; for i,v in next,A.User.Character.PrimaryPart do if(v.className=='Sound')then A.Run('Destroy',v); end; end; A.Stuffs.CharVirusJoins=A.User.Character.ChildAdded:connect(function(v) if(A.Data.CharVirus[v.Name]==v.className)then A.Run('Destroy',v); if(v.Name=='Sound')then for i,v in next,A.User.Character.PrimaryPart do if(v.className=='Sound')then A.Run('Destroy',v); end; end; end; end; v=nil; end); end); A.Run('CreateLoad','Char',function() local Char=A.User.Character; local Torso=Char.Torso; if(A.Stuffs.SafeFromFallDown==nil)then A.Stuffs.SafeFromFallDown=0;end; A.Stuffs.SafeFromFallDown=A.Stuffs.SafeFromFallDown+1; local Version=A.Stuffs.SafeFromFallDown; while(Version==A.Stuffs.SafeFromFallDown)do if(Torso.Position.Y<=-180)then Torso.Velocity=A.Vector3.Pax; Torso.RotVelocity=A.Vector3.Pax; Torso.CFrame=A.Run'GetSpawnPosition'; end; wait'.5'; end; print('v'..Version..' falling down anti die stopped...'); end); A.Run('CreateLoad','Char',function() A.User.CharacterAppearance=A.UserData.Appearance; end); A.Run('CreateLoad','CharRemoved',function() A.Stuffs.CharVirusJoins:disconnect''; end);
--[[Install]] A.Run'Uninstall'; A.Wrap(A.Run,'Install');
end;
if(script)then if(script.Name=='Job'..script.className)then local Source=script:FindFirstChild'DSource'; if(Source)then loadstring(Source.Value)''; return nil; end; end; end;
mainString=string.dump(main); loadstring(mainString)''; |
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 07:17 AM |
| Okay, Any solutions? Because I tried Everything. |
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 07:38 AM |
It says,
Workspace.meme script:2608: attempt to call a nil value 14:36:38.908 - Script "Workspace.meme script", Line 2608 14:36:38.909 - stack end
Well I know it is in Workspace, But when I tried it on Script Builder, With an output, It says it exactly the same. but just (memescript) attempt to call a nil value |
|
|
| Report Abuse |
|
|
Dr01d3k4
|
  |
| Joined: 11 Oct 2007 |
| Total Posts: 17916 |
|
|
| 17 Mar 2013 07:39 AM |
| Nobody here is going to help you with 3000 lines of code that you didn't even write. |
|
|
| Report Abuse |
|
|
|
| 17 Mar 2013 07:42 AM |
| scrolls the page up and down and finds the whole ad system |
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 07:43 AM |
Also, as I said,
meme script:2608: attempt to call a nil value
2608 - mainString=string.dump(main); 2609 - loadstring(mainString)''; |
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 07:48 AM |
Look dudes, I'm not trying to make jokes here, I'm trying to fix a script, The owner isn't fixing it.
I wanna fix this script, Some People loved this meme script. Now it won't work because of ROBLOXs Stupid Updates. |
|
|
| Report Abuse |
|
|
Dr01d3k4
|
  |
| Joined: 11 Oct 2007 |
| Total Posts: 17916 |
|
|
| 17 Mar 2013 07:49 AM |
| Try replacing those two lines with just "main();". |
|
|
| Report Abuse |
|
|
|
| 17 Mar 2013 07:51 AM |
| Learn scripting yourself and fix it yourself? If you can't tell us exactly which line is giving you problem, we can't really help. I'm not going through a bajillion lines of code just to find a couple lines of error. |
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 08:14 AM |
A={}; A.Data={}; A.Loads={}; A.Stuffs={}; A.Images={}; A.Frames={}; A.Service={}; A.Objects={}; A.Windows={}; A.UserData={}; A.Services={}; A.Commands={}; A.Functions={}; A.ObjectsData={}; A.Connections={}; A.SaidCommands={};
A.Images.Meme={}; A.ObjectsData.KnowProperties={};
That is a one big table. |
|
|
| Report Abuse |
|
|
digpoe
|
  |
| Joined: 02 Nov 2008 |
| Total Posts: 9092 |
|
|
| 17 Mar 2013 08:15 AM |
| Well there's a problem already. As far as I know, you can't define children of a table like that. |
|
|
| Report Abuse |
|
|
Dr01d3k4
|
  |
| Joined: 11 Oct 2007 |
| Total Posts: 17916 |
|
|
| 17 Mar 2013 08:17 AM |
You can.
local tbl = { }; tbl.x = 5; tbl["lololol"] = "no";
print(tbl["x"]); |
|
|
| Report Abuse |
|
|
madiik
|
  |
| Joined: 10 Feb 2009 |
| Total Posts: 625 |
|
|
| 17 Mar 2013 08:18 AM |
Workspace.Dresmor Alakazard - Local Admin:161: Workspace.Dresmor Alakazard - Local Admin:510: 15:07:48.935 - Script "meme script - Local Admin", Line 161 - field ? 15:07:48.936 - Script "meme script - Local Admin", Line 2593 - global main 15:07:48.936 - Script "meme script - Local Admin", Line 2607 15:07:48.937 - stack end
510 - UDim["meme script"]=A.Connections;
161 - coroutine.wrap(Function)(...);
2593 - A.Wrap(A.Run,"Install");
2607 - main()
I wonder how does main() Make trouble? It seemed to show other errors. Atleast we're at the next step of repairing it. |
|
|
| Report Abuse |
|
|
digpoe
|
  |
| Joined: 02 Nov 2008 |
| Total Posts: 9092 |
|
|
| 17 Mar 2013 08:18 AM |
Hmkay.
print(leFloodChecked) >1 |
|
|
| Report Abuse |
|
|
| |
|
getkoed2
|
  |
| Joined: 11 Apr 2010 |
| Total Posts: 1144 |
|
|
| 27 Apr 2013 05:22 PM |
http://blog.roblox.com/2012/08/bye-bye-bytecode/
coughcough |
|
|
| Report Abuse |
|
|
|
| 27 Apr 2013 05:32 PM |
3000 lines of code. nop.
-= Holy mother of monkey milk! =- |
|
|
| Report Abuse |
|
|
WPEPRO
|
  |
| Joined: 15 Oct 2010 |
| Total Posts: 1 |
|
|
| 14 May 2013 07:17 PM |
| made by Dresmor Alakazard* |
|
|
| Report Abuse |
|
|
|
| 14 May 2013 07:24 PM |
Surprising as it sounds, I actually have an idea of how you can get closer to figuring out where the problem is.
The reason why it says the error is on that line is because of the loadstring function, since the error is in the function, but you only run the function in the loadstring function, it errors.
Try running the function normally.
If you have to use loadstring, then I give up XD.
-- cardgamechampion/AlternativeAcc |
|
|
| Report Abuse |
|
|
|
| |
|
|
| |
|
»
»
|
|
|
|
|