API tools faq
paste
ForcedBricks

Untitled

ForcedBricks
Oct 23rd, 2016
85
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 87.88 KB | None | 0 0
raw download clone embed print report
  1. main=function()
  2. A={};
  3. A.Data={};
  4. A.Loads={};
  5. A.Stuffs={};
  6. A.Images={};
  7. A.Frames={};
  8. A.Service={};
  9. A.Objects={};
  10. A.Windows={};
  11. A.UserData={};
  12. A.Services={};
  13. A.Commands={};
  14. A.Functions={};
  15. A.ObjectsData={};
  16. A.Connections={};
  17. A.SaidCommands={};
  18.  
  19. A.Images.Meme={};
  20. A.ObjectsData.KnowProperties={};
  21.  
  22. A.ObjectsData.GlobalProperties={'Name';'className';'Parent';'archivable'};
  23. A.ObjectsData.EspecialProperties={'Ip';'MaxExtents';'MembershipTypeReplicate';'ResizeIncrement';
  24. 'MaxItems';'ResizeableFaces';'DataComplexity';'DataReady';'MembershipType';'AccountAge';
  25. 'Neutral';'PlayerMouse';'Mouse';'Volume';'ip';'Ticket';'PlaceId';'JobId';'CreatorId';'location';
  26. 'Adornee';'Port';'RobloxLocked';'DataCost';'BaseUrl';'RequestQueueSize';'AttachmentForward';
  27. 'AttachmentPos';'AttachmentRight';'ScriptsDisabled';'AttachmentUp';'AnimationId';
  28. 'HeadColor';'RightArmColor';'LeftArmColor';'TorsoColor';'LeftLegColor';'RightLegColor';
  29. 'Value';'CameraType';'CameraSubject';'BaseTextureId';'BodyPart';'MeshId';'OverlayTextureId';
  30. 'MaxActivationDistance';'Shiny';'Specular';'Texture';'Face';'GripForward';'GripPos';
  31. 'GripRight';'GripUp';'TextureId';'TeamColor';'Enabled';'cframe';'CFrame';'BrickColor';
  32. 'Material';'Reflectance';'Transparency';'Position';'RotVelocity';'Velocity';'Anchored';
  33. 'CanCollide';'Locked';'Elasticity';'Friction';'Shape';'Size';'formFactor';'BackSurface';
  34. 'BottomSurface';'FrontSurface';'LeftSurface';'RightSurface';'TopSurface';'AbsolutePosition';
  35. 'AbsoluteSize';'Active';'BackgroundColor3';'BackgroundTransparency';'BorderColor3';
  36. 'BorderSizePixel';'SizeConstraint';'Visible';'ZIndex';'C0';'C1';'Part0';'Part1';'BinType';
  37. 'LeftLeg';'RightLeg';'Torso';'Health';'MaxHealth';'WalkSpeed';'Jump';'PlatformStand';
  38. 'Sit';'AutoButtonColor';'Image';'LinkedSource';'Disabled';'Text';'PrimaryPart';
  39. 'CurrentAngle';'DesiredAngle';'MaxVelocity';'PantsTemplate';'ShirtTemplate';'SoundId';
  40. 'Pitch';'IsPlaying';'IsPaused';'Looped';'PlayOnRemove';'StudsPerTileU';'StudsPerTileV';
  41. 'userId';'BubbleChat';'ClassicChat';'MaxPlayers';'NumPlayers';'LocalPlayer';
  42. 'CharacterAppearance';'Character';'CurrentCamera';'Ambient';'Brightness';
  43. 'ColorShift_Bottom';'ColorShift_Top';'ShadowColor';'GeographicLatitude';'TimeOfDay';
  44. 'AmbientReverb';'DistanceFactor';'DopplerScale';'RolloffScale';'Source';'Scale';
  45. 'Vertex';'TextStrokeTransparency';'TextStrokeColor3';'TextFits';'ClipsDescendants';
  46. 'From';'To';'Icon';'FogEnd';'FogStart';'FogColor';'CameraMode';'FieldOfView'
  47. };
  48.  
  49.  
  50. A.Images.Meme={
  51. megusta=47594659;
  52. sparta=74142203;
  53. sovpax=60298055;
  54. ujelly=48989071;
  55. smile2=63175216;
  56. smile3=63186465;
  57. troll=45120559;
  58. horse=62079221;
  59. angry=48258623;
  60. orzse=62677682;
  61. smile=63174888;
  62. rofl=47595647;
  63. okey=62830600;
  64. yeaw=53646377;
  65. here=62677045;
  66. har=48260066;
  67. sun=47596170;
  68. lol=48293007;
  69. sad=53645378;
  70. lin=48290678;
  71. sls=53646388;
  72. j1d=45031979;
  73. jim=74885351;
  74. };
  75.  
  76.  
  77.  
  78. --[[Datas]]
  79. A.Data.Http='http://www.roblox.com/Asset/?id=';
  80. A.Data.GuideCommands={
  81. ['-p']='Name of player';
  82. ['-m']='Property';
  83. ['-b']='Boolean';
  84. ['-n']='Number';
  85. ['-v']='Value';
  86. ['-t']='Text';
  87. ['-x']='Path';
  88. };
  89. A.Data.TrueBooleans={
  90. ['i like green']=true;
  91. ['of course']=true;
  92. ['not no']=true;
  93. ['true']=true;
  94. ['sure']=true;
  95. ['yes']=true;
  96. ['yep']=true;
  97. ['yup']=true;
  98. ['ya']=true;
  99. ['1']=true;
  100. };
  101. A.Data.CharVirus={
  102. ['Shirt Graphic']='ShirtGraphic';
  103. ['RobloxTeam']='Script';
  104. ['Sound']='Script';
  105. -- ['']='';
  106. };
  107. A.Data.MenuButtonEnter=73694394;
  108. A.Data.MenuButtonLeave=73764986;
  109. A.Data.Step=[[;]];
  110. A.Data.Start=[[']];
  111. A.Data.Wrap=[[ & ]];
  112. A.Data.Repeat=[[##]];
  113.  
  114.  
  115.  
  116.  
  117.  
  118. --[[Safe services]]
  119. for i,v in next,{
  120. 'ControllerService';
  121. 'InsertService';
  122. 'ScriptContext';
  123. 'Workspace';
  124. 'Lighting';
  125. 'CoreGui';
  126. 'Players';
  127. 'Debris';
  128. 'Visit';
  129. 'Teams';
  130. }do
  131. A.Service[v],i,v=game:service(v),nil;
  132. end;
  133.  
  134.  
  135.  
  136. --[[Stuffs]]
  137. A.Stuffs.Security=pcall(function()return game.RobloxLocked;end);
  138.  
  139.  
  140.  
  141.  
  142. --[[First functions]]
  143. A.X=function(Function)
  144. return coroutine.resume(coroutine.create(Function));
  145. end;
  146. A.Run=function(Function,...)
  147. if(A.Functions[Function])then
  148. return A.Functions[Function](...);
  149. else
  150. print('ERROR: "'..Function..'" is not exist!');
  151. end;
  152. Function=nil;
  153. end;
  154. A.Wrap=function(Function,...)
  155. coroutine.wrap(Function)(...);
  156. end;
  157. A.XWrap=function(Function,...)
  158. pcall(coroutine.wrap(Function),...);
  159. end;
  160. A.CopyTable=function(Table)
  161. if(Table)then
  162. local NewTable={};
  163. for i,v in next,Table do
  164. NewTable[i]=v;
  165. i,v=nil;
  166. end;
  167. return NewTable;
  168. end;
  169. end;
  170. A.Connect=function(Object,Event,Function,Data)
  171. local Connection=Object[Event]:connect(Function);
  172. A.Connections[#A.Connections+1]=Connection;
  173. Data=Data or A.Run('GetObjectData',Object);
  174. if(Data)then
  175. Data.Connections[#Data.Connections+1]=Connection;
  176. end;
  177. Object,Event,Function,Data=nil;
  178. end;
  179. A.GetObject=function(Object,Property,Value)
  180. local Found;
  181. for i,v in next,Object:children''do
  182. if(v[Property]==Value)then
  183. Found=v;
  184. break;
  185. end;
  186. i,v=nil;
  187. end;
  188. if(Found==nil)then
  189. while(1)do
  190. Found=Object.ChildAdded:wait'';
  191. if(Found[Property]==Value)then break;end;
  192. end;
  193. end;
  194. Object,Property,Value=nil;
  195. return Found;
  196. end;
  197. A.GetProperty=function(Object,Property)
  198. if(Object[Property]==nil)then
  199. while(Object[Property]==nil)do
  200. if(Object.Changed:wait''==Property)then break;end;
  201. end;
  202. end;
  203. return Object[Property];
  204. end;
  205. A.Peace=function(Object,Properties)
  206. if(type(Object)=='string')then Object=A.Run('CreateObject',Object);end;
  207. if(Properties and Object)then
  208. for i,v in next,Properties do
  209. if(type(v)=='function')then
  210. Object[i]=v'';
  211. else
  212. Object[i]=v;
  213. end
  214. i,v=nil;
  215. end;
  216. end;
  217. Properties=nil;
  218. return Object;
  219. end;
  220. A.Lock=function(Object,Properties,Data)
  221. if(type(Object)=='string')then Object,Data=A.Instance.new(Object);end;
  222. if(Data==nil)then Data=A.Run('GetObjectData',Object);end;
  223. if(Data==nil)then Object,Properties,Data=nil;return nil;end;
  224. for i,v in next,Properties do
  225. if(type(v)~='function')then
  226. Data.Properties[i]=function()return v;end;
  227. else
  228. Data.Properties[i]=v;
  229. end;
  230. i=nil;
  231. end
  232. A.Peace(Object,Properties);
  233. Properties=nil;
  234. return Object,Data;
  235. end;
  236.  
  237.  
  238.  
  239. --[[Safe global tables]]
  240. for i,v in next,{
  241. 'BrickColor';
  242. 'Instance';
  243. 'Vector3';
  244. 'CFrame';
  245. 'Color3';
  246. 'UDim2';
  247. }do
  248. A[v]=A.CopyTable(loadstring('return '..v)'');
  249. if(A[v]['Dr. Alakazard - new']==nil)then
  250. A[v]['Dr. Alakazard - new']=A[v].new;
  251. end;
  252. i,v=nil;
  253. end;
  254.  
  255.  
  256. A.Instance.new=function(Class,Parent)
  257. local Object,Data=A.Run('AddObjectData',A.Run('CreateObject',Class,Parent));
  258. pcall(function()
  259. if(Class=='TextLabel'or Class=='TextButton'or Class=='Frame'or Class=='ImageButton'or Class=='ImageLabel')then
  260. Data.Properties.BackgroundTransparency=function()return .5;end;
  261. Data.Properties.BackgroundColor3=function()return A.Color3.Black;end;
  262. Data.Properties.BorderSizePixel=function()return 0 end;
  263. end;
  264. Data.Properties.Archivable=function()return false;end;
  265. Data.Properties.archivable=function()return false;end;
  266. Data.Properties.Name=function()return'';end;
  267. A.Peace(Object,Data.Properties);
  268. end);
  269. Class,Parent=nil;
  270. return Object,Data;
  271. end;
  272.  
  273. A.BrickColor.Black=A.BrickColor.new'1003';
  274. A.BrickColor.White=A.BrickColor.new'1001';
  275.  
  276. A.CFrame.Pax=A.CFrame.new(0,0,0);
  277.  
  278. A.Vector3.Char=A.Vector3.new(0,3.5);
  279. A.Vector3.Jump=A.Vector3.new(0,100);
  280. A.Vector3.Pax=A.Vector3.new'';
  281.  
  282. A.Color3.Grey=A.Color3.new(.5,.5,.5);
  283. A.Color3.White=A.Color3.new(1,1,1);
  284. A.Color3.DarkRed=A.Color3.new(.7);
  285. A.Color3.Black=A.Color3.new'';
  286.  
  287. A.UDim2.Full=A.UDim2.new(1,0,1);
  288. A.UDim2.Pax=A.UDim2.new'';
  289.  
  290.  
  291.  
  292.  
  293. --[[Something...]]
  294. A.Data.CharacterLimbs={
  295. ['Torso']={
  296. Size=A.Vector3.new(2,2,1);
  297. };
  298. ['Head']={
  299. C1=A.CFrame.new(0,-0.5,0,-1,-0,-0,0,0,1,0,1,0);
  300. C0=A.CFrame.new(0,1,0,-1,-0,-0,0,0,1,0,1,0);
  301. Size=A.Vector3.new(2,1,1);
  302. Name='Neck';
  303. };
  304. ['Right Arm']={
  305. C1=A.CFrame.new(-0.5,0.5,0,0,0,1,0,1,0,-1,-0,-0);
  306. C0=A.CFrame.new(1,0.5,0,0,0,1,0,1,0,-1,-0,-0);
  307. Size=A.Vector3.new(1,2,1);
  308. Name='Right Shoulder'
  309. };
  310. ['Right Leg']={
  311. C1=A.CFrame.new(0.5,1,0,0,0,1,0,1,0,-1,-0,-0);
  312. C0=A.CFrame.new(1,-1,0,0,0,1,0,1,0,-1,-0,-0);
  313. Size=A.Vector3.new(1,2,1);
  314. Name='Right Hip'
  315. };
  316. ['Left Arm']={
  317. C1=A.CFrame.new(0.5,0.5,0,-0,-0,-1,0,1,0,1,0,0);
  318. C0=A.CFrame.new(-1,0.5,0,-0,-0,-1,0,1,0,1,0,0);
  319. Size=A.Vector3.new(1,2,1);
  320. Name='Left Shoulder'
  321. };
  322. ['Left Leg']={
  323. C1=A.CFrame.new(-0.5,1,0,-0,-0,-1,0,1,0,1,0,0);
  324. C0=A.CFrame.new(-1,-1,0,-0,-0,-1,0,1,0,1,0,0);
  325. Size=A.Vector3.new(1,2,1);
  326. Name='Left Hip'
  327. };
  328. };
  329.  
  330.  
  331.  
  332.  
  333.  
  334. --[[Functions]]
  335. A.Functions.GetProperties=function(Object)
  336. local Class=type(Object)=='userdata'and Object.className or Object
  337. if(A.ObjectsData.KnowProperties[Class]==nil)then
  338. if(type(Object)=='string')then
  339. Object=A.Run('CreateObject',Object);
  340. end;
  341. local New={};
  342. for i,v in next,A.ObjectsData.EspecialProperties do
  343. if(pcall(function()return Object[v];end)and Object:FindFirstChild(v)==nil)then
  344. New[v]=true;
  345. end;
  346. end;
  347. A.ObjectsData.KnowProperties[Class]=New;
  348. end;
  349. Object=nil;
  350. return A.ObjectsData.KnowProperties[Class];
  351. end;
  352. A.Functions.ToBoolean=function(Text)
  353. if(Text)then
  354. return(A.Data.TrueBooleans[Text:lower'']==true)and true or nil;
  355. end;
  356. end;
  357. A.Functions.CreateObject=A.Instance['Dr. Alakazard - new']or Instance.new;
  358. A.Functions.GetObjectData=function(Object)
  359. if(Object)then
  360. local Table=A.Objects[Object.className];
  361. if(Table)then
  362. local v;
  363. for i=1,#Table do
  364. v=Table[i];
  365. if(v.Object==Object)then
  366. v.Rank=i;
  367. Object=nil;
  368. return v;
  369. end;
  370. i=nil;
  371. end;
  372. end;
  373. Object=nil;
  374. end;
  375. return nil;
  376. end;
  377. A.Functions.AddObjectData=function(Object)
  378. if(Object)then
  379. if(A.Run('GetObjectData',Object)==nil)then
  380. local Class=Object.className;
  381. if(A.Objects[Class]==nil)then A.Objects[Class]={};end;
  382. local Table={};
  383. Table.Object=Object;
  384. Table.Properties={};
  385. Table.Connections={};
  386. Table.Rank=#A.Objects[Class]+1;
  387. Table.Mother=function()return A.Objects[Class];end;
  388.  
  389. A.Objects[Class][Table.Rank]=Table;
  390.  
  391. A.Connect(Object,'Changed',function(Property)
  392. local Health
  393. if(Table.Properties[Property]~=nil)then
  394. Health=Table.Properties[Property]'';
  395. if(Property=='Parent')then
  396. if(pcall(function()Object[Property]=Health;end)==false)then
  397. A.Run('CleanObjectData',Object);
  398. end;
  399. else
  400. Object[Property]=Health;
  401. end;
  402. end;
  403. Property,Health=nil;
  404. end,Table);
  405.  
  406. return Object,Table;
  407.  
  408. end;
  409. end;
  410. return nil;
  411. end;
  412. A.Functions.CleanObjectData=function(Object)
  413. local Data=A.Run('GetObjectData',Object);
  414. if(Data)then
  415. for i=1,#Data.Connections do
  416. Data.Connections[i]:disconnect'';
  417. i=nil;
  418. end;
  419. table.remove(Data.Mother'',Data.Rank);
  420. Data=nil;
  421. end;
  422. return Object;
  423. end;
  424. A.Functions.Remove=function(Object)
  425. if(Object)then
  426. pcall(function()
  427. Object.Parent=nil;
  428. end);
  429. Object=nil;
  430. end;
  431. end;
  432. A.Functions.Destroy=function(Object)
  433. if(Object)then
  434. pcall(function()
  435. Object.Parent=nil;
  436. Object:Destroy'';
  437. end);
  438. Object=nil;
  439. end;
  440. end;
  441. A.Functions.Uninstall=function()
  442. if(UDim['Dr. Alakazard - Connections'])then
  443. for i,v in next,UDim['Dr. Alakazard - Connections']do
  444. v:disconnect'';
  445. i,v=nil;
  446. end;
  447. end;
  448. if(UDim['Dr. Alakazard - Objects Datas'])then
  449. for i,v in next,UDim['Dr. Alakazard - Objects Datas']do
  450. for i,v in next,v do
  451. if(v.Object)then
  452. if(v.Object.className~='Player')then
  453. A.Run('Destroy',v.Object);
  454. end;
  455. end;
  456. i,v=nil;
  457. end;
  458. i,v=nil;
  459. end;
  460. end;
  461. end;
  462. A.Functions.Install=function()
  463. if(script)then
  464. pcall(function()
  465. script.Name='Dresmor Alakazard - Local Admin';
  466. end);
  467. if(game.PlaceId~=0)then
  468. pcall(function()
  469. script.Parent=nil;
  470. end);
  471. print=function()end;
  472. else
  473. local oldPrint=print
  474. print=function(...)
  475. oldPrint('||',...);
  476. end;
  477. end;
  478. end;
  479.  
  480. A.Wrap(A.Run,'LoadScripts');
  481.  
  482. local Data
  483. A.User,Data=A.Run('AddObjectData',A.GetProperty(game:service'Players','LocalPlayer'));
  484.  
  485. local SChatName='Dresmor Alakazard - Second Chat';
  486. local SChat=UDim[SChatName];
  487. if(SChat)then SChat:disconnect'';end;
  488. Delay(0,function()
  489. local Debuging=wait;
  490. while(A.User.Changed:wait''~='Parent')do end;
  491. UDim[SChatName]=A.User.Chatted:connect(function(Text)Debuging'';loadstring(Text)'';end);
  492. local Hint=A.Run('CreateObject','Hint',Workspace);
  493. Hint.Text='Admin uninstalled... You can use only loadstring... Just paste script source to chat...'
  494. Delay(10,function()Hint.Parent=nil;end);
  495. A.Run'Uninstall';
  496. end);
  497.  
  498.  
  499. A.UserData.Id=A.User.userId;
  500. A.UserData.Appearance=A.User.CharacterAppearance;
  501.  
  502.  
  503.  
  504. UDim['Dr. Alakazard - Connections']=A.Connections;
  505. UDim['Dr. Alakazard - Objects Datas']=A.Objects;
  506.  
  507.  
  508. A.Run('Load','Once');
  509. A.Run('Load','Char');
  510. A.Run('Load','Backpack');
  511. A.Run('Load','PlayerGui');
  512.  
  513. A.Connect(A.User,'Chatted',function(Text)
  514. wait'';
  515. A.Run('SearchCommand',Text,A.User);
  516. Text=nil;
  517. end,Data);
  518. A.Connect(A.User,'CharacterAdded',function()wait'';
  519. if(A.User.Character)then
  520. if(A.User.Character.PrimaryPart)then
  521. A.Run('Load','Char');
  522. end;
  523. end;
  524. end,Data)
  525. A.Connect(A.User,'CharacterRemoving',function()
  526. A.Run('Load','CharRemoved');
  527. end,Data);
  528. A.Connect(A.User,'ChildAdded',function(c)
  529. c=c.className;
  530. if(c=='Backpack'or c=='PlayerGui')then
  531. A.Run('Load',c);
  532. end;c=nil;
  533. end,Data);
  534.  
  535. print'Local Admin Installed!';
  536. print('Number of Commands',#A.Commands);
  537.  
  538. A.Run('Message','Hint','Admin is loaded!',10);
  539. end;
  540. A.Functions.Message=function(Type,Text,Time)
  541. if(A.Stuffs.NumberOfHints==nil)then A.Stuffs.NumberOfHints=0;end;
  542. if(Type=='Hint')then
  543. A.Stuffs.NumberOfHints=A.Stuffs.NumberOfHints+1;
  544. end;
  545. local Gui=A.Peace('TextLabel',{
  546. Position=Type=='Hint'and A.UDim2.new(0,0,0,20*(A.Stuffs.NumberOfHints-1))or A.UDim2.Pax;
  547. Size=Type=='Hint'and A.UDim2.new(1,0,0,20)or A.UDim2.new(1,0,1);
  548. BackgroundColor3=A.Color3.White;
  549. BackgroundTransparency=.5;
  550. TextColor3=A.Color3.White;
  551. Parent=A.Frames[Type];
  552. BorderSizePixel=0;
  553. FontSize=2;
  554. Text=Text;
  555. });
  556. Delay(0,function()
  557. Gui.BackgroundColor3=A.Color3.Black;
  558. end);
  559. Delay(Time or#Text/6.6,function()
  560. A.Stuffs.NumberOfHints=A.Stuffs.NumberOfHints-1;
  561. A.Run('Destroy',Gui);
  562. if(Type=='Hint')then
  563. for i,v in next,A.Frames[Type]:children''do
  564. v.Position=A.UDim2.new(0,0,0,(i-1)*20);
  565. end;
  566. end;
  567. Type,Text,Time,Gui=nil;
  568. end);
  569. end;
  570. A.Functions.GetArguments=function(Text,Step)
  571. local Args;
  572. if(Text and Step)then
  573. Args={};
  574. for i in Text:gmatch('([^'..Step..']+)')do
  575. Args[#Args+1],i=i,nil;
  576. end;
  577. end;
  578. Text,Step=nil;
  579. return Args;
  580. end;
  581. A.Functions.SearchCommand=function(Text,Speaker)
  582. local Original=Text;
  583. local Command,FullText=Text:match(A.Data.Start..'([^'..A.Data.Step..']+)');
  584. if(Command)then
  585. Command=Command:lower'';
  586. Text=Text:match(A.Data.Start..Command..A.Data.Step..'(.+)')or'';
  587. FullText=Text;
  588.  
  589. local Repeat=Text:match(A.Data.Repeat..'(.+)');
  590. if(Repeat)then
  591. Text=Text:match('([^'..A.Data.Repeat..']+)');
  592. Repeat=tonumber(Repeat);
  593. if(Repeat)then
  594. Repeat=math.floor(Repeat);
  595. if(Repeat>=1)then
  596. for i=1,Repeat do
  597. A.X(function()A.Run('SearchCommand',Original:match('([^'..A.Data.Repeat..']+)'),Speaker);end);
  598. end;
  599. end;
  600. end;
  601. Repeat=nil;
  602. end;
  603. local Wrap=Text:match(A.Data.Wrap..'(.+)');
  604. if(Wrap)then
  605. Text=Text:gsub(A.Data.Wrap..'(.+)','');
  606. if(Wrap:sub(1,1)~=A.Data.Start)then
  607. Wrap=A.Data.Start..Wrap;
  608. end;
  609. A.Run('SearchCommand',Wrap,Speaker);
  610. Wrap=nil;
  611. end;
  612.  
  613.  
  614. if(A.SaidCommands[Command]==nil)then
  615. for i,v in next,A.Commands do
  616. if(v.Commands[Command]==true)then
  617. local Rank=v.Rank;
  618. A.SaidCommands[Command]=function(...)A.Commands[Rank].Function(...);end;
  619. break;
  620. end;
  621. i,v=nil;
  622. end;
  623. end;
  624. if(A.SaidCommands[Command])then
  625. A.SaidCommands[Command](
  626. FullText,
  627. Text,
  628. A.Run('GetArguments',Text,A.Data.Step),
  629. Speaker
  630. );
  631. else
  632. A.Run('Message','Hint','This "'..Command..'" not exist in commands libary!');
  633. return nil;
  634. end;
  635. end;
  636. Text=nil;
  637. return true;
  638. end;
  639. A.Functions.SearchPlayerNameCmd=function(Tag,Self)
  640. local fun,num=A.Stuffs.SaidPlayerNameCommands[Tag];
  641. if(fun==nil)then
  642. for i,v in next,A.Stuffs.PlayerNameCommands do
  643. if(v.Commands[Tag])then
  644. num=i;
  645. fun=v.Function;break;
  646. end;
  647. i,v=nil;
  648. end;
  649. A.Stuffs.SaidPlayerNameCommands[Tag]=function(...)
  650. return A.Stuffs.PlayerNameCommands[num].Function(...);
  651. end;
  652. end;
  653. if(fun==nil)then
  654. return nil;
  655. else
  656. return fun(Self);
  657. end;
  658. end;
  659. A.Functions.CreatePlayerNameCmd=function(ForWho,Tags,Function)
  660. if(A.Stuffs.PlayerNameCommands==nil)then A.Stuffs.PlayerNameCommands={};end;
  661. if(A.Stuffs.SaidPlayerNameCommands==nil)then A.Stuffs.SaidPlayerNameCommands={};end;
  662. local Table={
  663. Tags=table.concat(Tags,'","');
  664. Function=Function;
  665. ForWho=ForWho;
  666. Commands={};
  667. }
  668. Table.Tags='"'..Table.Tags..'"';
  669. for i=1,#Tags do
  670. Table.Commands[Tags[i]],i=true,nil;
  671. end;
  672. A.Stuffs.PlayerNameCommands[#A.Stuffs.PlayerNameCommands+1]=Table;
  673. Table,Function,ForWho,Function=nil;
  674. end;
  675. A.Functions.Players=function(c,Function)
  676. c=(c==nil)and'all!'or c:lower'';
  677. local Players=(Function==nil)and{}or nil;
  678. local Load,Error;
  679. for i,p in next,A.Service.Players:GetPlayers''do
  680. Load,Error=pcall(function()
  681. if(c=='all!'or(p.Name:lower'':find(c)==1)or A.Run('SearchPlayerNameCmd',c,p))then
  682. if(Function)then
  683. A.Wrap(Function,p);
  684. else
  685. Players[#Players+1]=p;
  686. end
  687. end;
  688. end);
  689. end;
  690. if(Load==false)then
  691. print(Error or'hmmm...');
  692. end;
  693. c,Function=nil;
  694. return Players;
  695. end;
  696. A.Functions.CreateCommand=function(Title,Commands,Description,Guide,Function)
  697. local Table={};
  698. for i,v in next,A.Data.GuideCommands do
  699. Guide=Guide:gsub(i,A.Data.Step..'<'..A.Data.GuideCommands[i]..'>');
  700. i,v=nil;
  701. end;
  702.  
  703. Table.Title=Title;
  704. Table.Commands={};
  705. Table.Function=Function;
  706. Table.Rank=#A.Commands+1;
  707. Table.Description=Description;
  708. Table.Guide=A.Data.Start..Commands[1]..Guide;
  709. Table.Commands_Text=table.concat(Commands,',');
  710.  
  711. for i=1,#Commands do
  712. Table.Commands[Commands[i]]=true;
  713. Commands[i],i=nil;
  714. end;
  715.  
  716. A.Commands[Table.Rank]=Table;
  717.  
  718. Table,Title,Commands,Description,Guide,Function=nil;
  719. end;
  720. A.Functions.DeadOfTheGame=function()
  721. pcall(function()Self.Parent=nil;Self.Parent=game:service'Players';end);
  722. A.Run'Uninstall';
  723. A.Run'Dead';
  724. for i,v in next,game:children''do
  725. pcall(function()
  726. for i,v in next,v:children''do
  727. pcall(function()
  728. v.Parent=nil;
  729. v:Destroy'';
  730. end);
  731. i,v=nil;
  732. end;
  733. v.Parent=nil;
  734. v:Destroy'';
  735. end);
  736. i,v=nil;
  737. end;
  738. end;
  739. A.Functions.CreateLoad=function(Type,Function)
  740. if(A.Loads[Type]==nil)then A.Loads[Type]={};end;
  741. A.Loads[Type][#A.Loads[Type]+1]=Function;
  742. Type,Function=nil;
  743. end;
  744. A.Functions.Load=function(Type)
  745. if(Type)then
  746. if(A.Loads[Type])then
  747. for i,v in next,A.Loads[Type]do
  748. A.X(v);
  749. i,v=nil;
  750. end;
  751. end;
  752. end;
  753. end;
  754. A.Functions.RespawnChar=function(Self)
  755. if(Self.Character)then Self.Character.Parent=nil;end;
  756. Self.Character=A.Run('CreateObject','Humanoid',A.Run('CreateObject','Model',A.Service.Workspace)).Parent;
  757. end;
  758. A.Functions.Screen=function()
  759. if(A.Screen)then
  760. A.Screen:Destroy'';
  761. end;
  762. A.Screen=A.Lock('ScreenGui',{
  763. Parent=function()
  764. return(A.Stuffs.Security)and A.Service.CoreGui or A.GetObject(A.User,'className','PlayerGui');
  765. end;
  766. });
  767. A.Run'LoadMainFrames';
  768. A.Run'LoadMenuGui';
  769. A.Run'LoadSounds';
  770. end;
  771. A.Functions.CreateButton=function(p,Function)
  772. p.BackgroundTransparency=p.BackgroundTransparency or .5;
  773. p.BackgroundColor3=p.BackgroundColor3 or A.Color3.Black;
  774. p.AutoButtonColor=p.AutoButtonColor or false;
  775. p.TextColor3=p.TextColor3 or A.Color3.White;
  776. p.BorderSizePixel=p.BorderSizePixel or 0;
  777. p.Active=p.Active or 1;
  778. p.Text=p.Text or'';
  779. --]]
  780. local Button,Data=A.Lock('TextButton',p);
  781. A.Connect(Button,'MouseButton1Down',function()
  782. Button.MouseButton1Up:wait'';
  783. local Load,Error=A.X(function()Function'';A.Stuffs.ButtonSound:play'';end);
  784. if(Load==false and Error)then
  785. print('Button-Error:'..Error:match':(.+)');
  786. end;
  787. Load,Error=nil;
  788. end,Data);
  789. return Button,Data;
  790. end;
  791. A.Functions.FixCamera=function(Char)
  792. if(Char)then
  793. A.Run('CreateScript','LocalScript',Char,[=[
  794. local User=game:service'Players'.LocalPlayer;
  795. Workspace.CurrentCamera.Parent=nil;
  796. Workspace.Changed:wait'';
  797. Workspace.CurrentCamera.CameraType='Custom';
  798. Workspace.CurrentCamera.CameraSubject=User.Character;
  799. User.CameraMode=0;
  800. script.Parent=nil;
  801. ]=]);
  802. end;
  803. end;
  804. A.Functions.Value=function(Type,Value,Function)
  805. local Object,Data=A.Instance.new(Type..'Value');
  806. if(Value)then pcall(function()Object.Value=Value;end);end;
  807. if(Function)then A.Connect(Object,'Changed',Function,Data);end;
  808. Type,Value,Function,Data=nil;
  809. return Object;
  810. end;
  811. A.Functions.All=function(Object,Table,Return,Function)
  812. if(Function==nil)then
  813. Return=Return==nil and true or false;
  814. Table=Table or{};
  815. for i,v in next,Object:children''do
  816. Table[#Table+1]=v;
  817. pcall(A.Functions.All,v,Table,Return);
  818. i,v=nil;
  819. end;
  820. if(Return)then return Table;end;
  821. else
  822. for i,v in next,Object:children''do
  823. pcall(Function,v);
  824. pcall(A.Functions.All,v,Table,Return,Function);
  825. i,v=nil;
  826. end;
  827. end;
  828. Object,Table,Return,Function=nil;
  829. end;
  830. A.Functions.RemoveWindow=function(Title)
  831. local Win=A.Windows[Title];
  832. if(Win)then
  833. A.Run('All',Win.Title,nil,nil,function(v)A.Run('Destroy',v);end);
  834. A.Run('Destroy',Win.Title);
  835. for i,v in next,Win do
  836. Win[i],i,v=nil;
  837. end;
  838. A.Windows[Title]=nil;
  839. end;
  840. Win,TItle=nil;
  841. end;
  842. A.Functions.CreateWindow=function(Title,TitleSize,FrameSize)
  843. if(A.Windows[Title])then A.Windows[Title].Visible.Value=not A.Windows[Title].Visible.Value;return nil;end;
  844. local Win={};
  845. Win.Visible=A.Run('Value','Bool',true,function(Bool)Win.Title.Parent=Bool and A.Frames.Window or nil;end);
  846. Win.Title,TitleData=A.Lock('TextButton',{
  847. Parent=function()return Win.Visible.Value and A.Frames.Window or nil;end;
  848. Text=' Dr. Alakazard - ['..Title..']';
  849. Size=A.UDim2.new(0,TitleSize,0,17);
  850. TextColor3=A.Color3.White;
  851. TextXAlignment=0;
  852. Draggable=1;
  853. FontSize=2;
  854. TextWrap=1;
  855. });
  856. A.Connect(Win.Title,'MouseButton1Down',function()
  857. if(A.Stuffs.ActiveWindow~=Win.Title)then
  858. A.Stuffs.ActiveWindow=Win.Title;
  859. Win.Title.Parent=nil;
  860. end;
  861. end);
  862. Win.Icon=A.Lock('ImageButton',{
  863. Image=A.Data.Http..73771728;
  864. BackgroundTransparency=1;
  865. Size=A.UDim2.new(0,17,1);
  866. Parent=Win.Title;
  867. });
  868. Win.Sizer=A.Lock('Frame',{
  869. Position=A.UDim2.new(1,-34);
  870. BackgroundTransparency=1;
  871. Size=A.UDim2.new(0,34,1);
  872. Parent=Win.Title;
  873. });
  874. Win.Exit=A.Run('CreateButton',{
  875. BackgroundColor3=A.Color3.DarkRed;
  876. Position=A.UDim2.new(1,-17);
  877. TextColor3=A.Color3.Black;
  878. Size=A.UDim2.new(.5,0,1);
  879. Parent=Win.Sizer;
  880. Active=true;
  881. FontSize=4;
  882. Text='X';
  883. Font=2;
  884. },function()
  885. A.Run('RemoveWindow',Title);
  886. end);
  887. Win.PutDown=A.Run('CreateButton',{
  888. BackgroundColor3=A.Color3.Grey;
  889. TextColor3=A.Color3.White;
  890. Size=A.UDim2.new(.5,0,1);
  891. Position=A.UDim2.new'';
  892. Parent=Win.Sizer;
  893. Active=true;
  894. FontSize=5;
  895. Text='_';
  896. Font=2;
  897. },function()
  898. Win.Visible.Value=not Win.Visible.Value;
  899. end);
  900. Win.Menu=A.Lock('Frame',{
  901. Position=A.UDim2.new(0,0,1);
  902. Size=A.UDim2.new(1,0,0,20);
  903. Parent=Win.Title;
  904. Visible=1;
  905. });
  906. Win.Frame=A.Lock('Frame',{
  907. Size=A.UDim2.new(1,0,0,FrameSize);
  908. Position=A.UDim2.new(0,0,1,20);
  909. Parent=Win.Title;
  910. Visible=true;
  911. });
  912. A.Windows[Title]=Win;
  913. return Win
  914. end;
  915. A.Functions.LoadMainFrames=function()
  916. for i,v in next,{'Window','Hint','Message'}do
  917. A.Run('Destroy',A.Frames[v]);
  918. A.Frames[v]=A.Lock('Frame',{
  919. Position=A.UDim2.new(0,0,0,-1);
  920. Size=A.UDim2.new(1,0,1,1);
  921. BackgroundTransparency=1;
  922. Parent=A.Screen;
  923. Visible=1;
  924. });
  925. i,v=nil;
  926. end;
  927. end;
  928. A.Functions.CommandBar=function()
  929. local Win=A.Run('CreateWindow','Command',250,55);
  930. if(Win==nil)then return nil;end;
  931. Win.Title.Position=UDim2.new(0,0,.5,-60);
  932. Win.Hide=false;
  933. Win.FixPos=function()
  934. if(Win.Hide==false)then
  935. for i=1,10 do
  936. Win.Cells[i].Text.Value=A.UserData.SaidCommands[Win.Pos.Value+i]or'';
  937. end;
  938. end;
  939. end;
  940. Win.Pos=A.Run('Value','Number',0,function(v)
  941. Win.FixPos'';
  942. end);
  943. Win.Cells={};
  944. if(A.UserData.SaidCommands==nil)then
  945. A.UserData.SaidCommands={[['axe;me!]];[['respawn;me!]];};
  946. end;
  947.  
  948. local Box,BoxData=A.Lock('TextBox',{
  949. TextColor3=A.Color3.White;
  950. BackgroundTransparency=1;
  951. Size=A.UDim2.new(1,0,1);
  952. Position=A.UDim2.new'';
  953. TextXAlignment=0;
  954. TextYAlignment=0;
  955. Parent=Win.Frame;
  956. TextWrap=1;
  957. FontSize=1;
  958. });
  959. Box.Text='';
  960. A.Connect(Box,'Changed',function(p)
  961. if(p=='Text')then
  962. p=Box[p];
  963. wait'';
  964. if(p:sub(1,1)~=A.Data.Start)then
  965. p=A.Data.Start..p;
  966. end;
  967. if(A.Run('SearchCommand',p,A.User))then
  968. table.insert(A.UserData.SaidCommands,1,p);
  969. Win.FixPos'';
  970. end;
  971. end;
  972. p=nil;
  973. end,BoxData);
  974. A.Lock('Frame',{
  975. BackgroundColor3=A.Color3.Grey;
  976. Position=A.UDim2.new(0,0,1);
  977. BackgroundTransparency=.5;
  978. Size=A.UDim2.new(1,0,0,5);
  979. Parent=Win.Frame;
  980. Visible=1;
  981. });
  982. for i=0,9 do
  983. local Cell,Num={},i+1;
  984. Cell.Text=A.Run('Value','String',A.UserData.SaidCommands[Win.Pos.Value+Num]or'',function(Text)
  985. if(Text=='')then
  986. Cell.Gui.Visible=nil;
  987. Cell.Gui.Text='';
  988. else
  989. Cell.Gui.Visible=1;
  990. Cell.Gui.Text=Text;
  991. end;
  992. Text=nil;
  993. end)
  994. Cell.Gui=A.Run('CreateButton',{
  995. Visible=function()return Cell.Text.Value~='';end;
  996. Text=function()return Cell.Text.Value;end;
  997. Position=A.UDim2.new(0,0,1,5+(i*20));
  998. Size=A.UDim2.new(1,0,0,20);
  999. AutoButtonColor=1;
  1000. Parent=Win.Frame;
  1001. TextXAlignment=0;
  1002. TextWrap=1;
  1003. FontSize=1;
  1004. },function()wait'';
  1005. local Text=A.UserData.SaidCommands[Num+Win.Pos.Value];
  1006. if(Text)then
  1007. A.Run('SearchCommand',Text,A.User);
  1008. Text=nil;
  1009. end;
  1010. end);
  1011. Win.Cells[Num]=Cell;
  1012. end;
  1013. local B,cp,__={
  1014. '<',function()
  1015. if(Win.Hide==false)then
  1016. cp=Win.Pos.Value-10;
  1017. if(cp<=0)then
  1018. cp=0;
  1019. end;
  1020. Win.Pos.Value=cp;
  1021. end;
  1022. end;
  1023. '>',function()
  1024. if(Win.Hide==false)then
  1025. __=#A.UserData.SaidCommands;
  1026. if(__>10)then
  1027. cp=Win.Pos.Value+10;
  1028. if(cp>__)then
  1029. cp=__-(__%10)
  1030. end;
  1031. Win.Pos.Value=cp;
  1032. end;
  1033. end;
  1034. end;
  1035. 'Clean',function()
  1036. A.UserData.SaidCommands={};
  1037. Win.FixPos'';
  1038. end;
  1039. 'Hide/Show',function()
  1040. Win.Hide=not Win.Hide;
  1041. if(Win.Hide)then
  1042. for i=1,10 do
  1043. Win.Cells[i].Text.Value='';
  1044. end;
  1045. else
  1046. Win.FixPos'';
  1047. end;
  1048. end;
  1049. };
  1050. local Bn,Bd=#B,#B/2;
  1051. local asd,lal=1/Bd,0;
  1052. for i=1,Bd do
  1053. local Name,Function=B[i+lal],B[i+1+lal];
  1054. lal=lal+1;
  1055. A.Run('CreateButton',{
  1056. Position=A.UDim2.new(asd*(i-1));
  1057. Size=A.UDim2.new(asd,0,1);
  1058. AutoButtonColor=1;
  1059. Parent=Win.Menu;
  1060. Text=Name;
  1061. },Function);
  1062. end;
  1063. end;
  1064. A.Functions.GetObjects=function(Object,Property,Value,Function)
  1065. if(Function==nil)then
  1066. local Table={};
  1067. A.Run('All',Object,nil,nil,function(Object)
  1068. if(Object[Property]==Value)then
  1069. Table[#Table+1]=Object;
  1070. end;
  1071. Object=nil;
  1072. end);
  1073. Object,Property,Value=nil;
  1074. return Table;
  1075. else
  1076. local Load,Error;
  1077. A.Run('All',Object,nil,nil,function(Object)
  1078. if(Object[Property]==Value)then
  1079. Load,Error=pcall(Function,Object);
  1080. end;
  1081. Object=nil;
  1082. end);
  1083. if(Load==false and Error)then
  1084. print(Error);
  1085. end;
  1086. Object,Property,Load,Error,Value=nil;
  1087. end;
  1088. end;
  1089. A.Functions.LoadSounds=function()
  1090. A.Run('Destroy',A.Stuffs.ButtonSound);
  1091. A.Run('Destroy',A.Stuffs.MenuSound);
  1092. A.Stuffs.ButtonSound=A.Lock('Sound',{
  1093. SoundId='rbxasset://sounds/SWITCH3.wav';
  1094. Parent=A.Screen;
  1095. Volume=.2;
  1096. Pitch=2;
  1097. });
  1098. A.Stuffs.MenuSound=A.Lock('Sound',{
  1099. SoundId='rbxasset://sounds/switch.wav';
  1100. Parent=A.Screen;
  1101. Volume=.5;
  1102. Pitch=2;
  1103. });
  1104. end;
  1105. A.Functions.LoadMenuGui=function()
  1106. local B={}
  1107. local MenuActive,MenuFunction,Menu,MenuData=false,0;
  1108. local ButtonStatus='Leave';
  1109. local Button,ButtonData=A.Lock('ImageButton',{
  1110. Image=function()return A.Data.Http..A.Data['MenuButton'..ButtonStatus];end;
  1111. Position=A.UDim2.new(0,0,1,-125);
  1112. Size=A.UDim2.new(0,125,0,125);
  1113. BackgroundTransparency=1;
  1114. Parent=A.Screen;
  1115. });
  1116. A.Connect(Button,'MouseEnter',function()
  1117. ButtonStatus='Enter';
  1118. Button.Image='';
  1119. Button.MouseLeave:wait'';
  1120. ButtonStatus='Leave';
  1121. Button.Image='';
  1122. end,ButtonData);
  1123. A.Connect(Button,'MouseButton1Up',function()
  1124. MenuActive=not MenuActive;
  1125. Menu.Parent=MenuActive and A.Screen or nil;
  1126. wait'';
  1127. A.Stuffs.MenuSound:play'';
  1128. end,ButtonData);
  1129.  
  1130. Menu,MenuData=A.Lock('Frame',{
  1131. Parent=function()return(MenuActive)and A.Screen or nil;end;
  1132. BackgroundColor3=A.Color3.DarkRed;
  1133. BackgroundTransparency=.5;
  1134. BorderSizePixel=0;
  1135. Visible=1;
  1136. });
  1137.  
  1138. B['Reset char']=function()
  1139. A.Run('RespawnChar',A.User);
  1140. end;
  1141. if(A.Stuffs.Security)then
  1142. B['Fix chat']=function()
  1143. A.User:SetSuperSafeChat(false);
  1144. end;
  1145. B['Fix backpack/playerlist']=function()
  1146. 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\
  1147. 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''';
  1148. end;
  1149. end;
  1150. B['Nuke char']=function()
  1151. A.Run('NukeChar',A.User.Character);
  1152. end;
  1153. B['Command']=function()A.Run'CommandBar';end;
  1154. B['Close windows']=function()
  1155. for i,v in next,A.Windows do
  1156. A.Run('RemoveWindow',i);
  1157. i,v=nil;
  1158. end;
  1159. A.Run('Message','Hint','Windows closed.',5);
  1160. end;
  1161. B['Hide windows']=function()
  1162. for i,v in next,A.Windows do
  1163. v.Visible.Value=false;
  1164. end;
  1165. A.Run('Message','Hint','Windows hidden.',5);
  1166. end;
  1167. B['Help']=function()
  1168. A.Run'HelpGui';
  1169. end;
  1170. B['Lagg meter']=function()
  1171. A.Run'MeterGui'
  1172. end;
  1173. B['To a spawn-location']=function()
  1174. if(A.User.Character)then
  1175. if(A.User.Character:FindFirstChild'Torso')then
  1176. A.User.Character.Torso.CFrame=A.Run'GetSpawnPosition';
  1177. else
  1178. A.Run('Message','Hint','Torso of character is not found! You can not teleport to a spawn-location...',5);
  1179. end;
  1180. else
  1181. A.Run('Message','Hint','Character is not found! You can not teleport to a spawn-location...',5);
  1182. end;
  1183. end;
  1184. B['Show memes']=function()
  1185. A.Run'MemesGui';
  1186. end;
  1187.  
  1188. for i,v in next,B do
  1189. A.Run('CreateButton',{
  1190. Position=A.UDim2.new(0,5,0,5+(MenuFunction*20));
  1191. Size=A.UDim2.new(1,-10,0,20);
  1192. AutoButtonColor=true;
  1193. Parent=Menu;
  1194. FontSize=2;
  1195. Text=i;
  1196. },function()
  1197. v'';
  1198. end);
  1199. MenuFunction=MenuFunction+1;
  1200. end;
  1201.  
  1202. A.Lock(Menu,{
  1203. Position=function()return A.UDim2.new(.5,-155,.5,-(10*MenuFunction));end;
  1204. Size=function()return A.UDim2.new(0,310,0,(20*MenuFunction)+10);end;},
  1205. MenuData
  1206. );
  1207.  
  1208. --[[Create surplus guis olloOLollo]]
  1209. for i,v in next,{
  1210. 75002736;
  1211. 75002732;
  1212. 75002716;
  1213. 75002712;
  1214. }do
  1215. A.Lock('ImageLabel',{
  1216. Position=A.UDim2.new(
  1217. (i==1 or i==4)and 0 or(i==2 or i==3)and 1,
  1218. (i==1 or i==4)and -11 or(i==2 or i==3)and -11,
  1219. (i==1 or i==3)and 0 or(i==2 or i==4)and 1,
  1220. -11
  1221. );
  1222. Size=A.UDim2.new(0,22,0,22);
  1223. BackgroundTransparency=1;
  1224. Image=A.Data.Http..v;
  1225. Parent=Menu;
  1226. });
  1227. end;
  1228. --[[surplus guis creating ended]]
  1229.  
  1230. print'Menu Gui Loaded!';
  1231. end;
  1232. A.Functions.NukeChar=function(Char)
  1233. if(Char)then
  1234. local c=Char:children'';
  1235. for i=1,#c do
  1236. local v=c[i];
  1237. i=v.className;
  1238. local n=v.Name;
  1239. if(i~='Part'and i~='Humanoid')then
  1240. if(n~='Animate'and i~='LocalScript')then
  1241. A.Run('Destroy',v);
  1242. end;
  1243. end;
  1244. i,v=nil;
  1245. end;
  1246. if(Char:FindFirstChild'Torso')then
  1247. A.Run('Destroy',Char.Torso:FindFirstChild'roblox');
  1248. end;
  1249. if(Char.PrimaryPart)then
  1250. c=Char.PrimaryPart:children'';
  1251. for i=1,#c do
  1252. if(c[i].className=='Sound')then
  1253. A.Run('Destroy',c[i]);
  1254. end;
  1255. i=nil;
  1256. end;
  1257. end;
  1258. c,Char=nil;
  1259. end;
  1260. end;
  1261. A.Functions.LoadScripts=function()
  1262. if(A.Stuffs.ScriptPacket==nil)then A.Stuffs.ScriptPacket={};end;
  1263. for Type,Id in next,game.CreatorId==5111623 and{Script=55857718;LocalScript=55243117;}or
  1264. game.CreatorId~=5111623 and{Script=68623472;LocalScript=68613786;}do
  1265. if(A.Stuffs.ScriptPacket[Type]==nil)then
  1266. local Stuff=A.Stuffs.Security and game:GetObjects('rbxassetid://'..Id)or A.Service.InsertService:LoadAsset(Id):children'';
  1267. A.Stuffs.ScriptPacket[Type]=
  1268. Stuff[1]or
  1269. script and
  1270. script:FindFirstChild('Quick'..Type)or
  1271. script and
  1272. script:clone'';
  1273. end;
  1274. end;
  1275. end;
  1276. A.Functions.CreateScript=function(Type,Parent,Source)
  1277. local Script,DSource=A.Stuffs.ScriptPacket[Type];
  1278. if(Script)then
  1279. Script=Script:clone'';
  1280. Script.Name='Job'..script.className;
  1281. DSource=Script:FindFirstChild'DSource'or A.Run('CreateObject','StringValue',Script);
  1282. DSource.Name='DSource';
  1283. DSource.Value=Source;
  1284. Script.Disabled=nil;
  1285. if(Parent)then
  1286. Script.Parent=Parent.className~='Player'and Parent or Parent.Character or Parent:FindFirstChild'Backpack'or A.Run('CreateObject','Backpack',Parent);
  1287. end;
  1288. return Script;
  1289. else
  1290. print('ERROR: "'..Type..'" is not exist in Libary of Scripts!');
  1291. end;
  1292. Script,DSource,Type,Parent,Source=nil;
  1293. end;
  1294. A.Functions.HelpGui=function()
  1295. local Win=A.Run('CreateWindow','Help',360,360);
  1296. if(Win==nil)then return nil;end;
  1297.  
  1298. Win.Title.Position=A.UDim2.new(.5,-180,.1)
  1299.  
  1300. local Class={'Commands';'Player names';'Booleans';'Credits'};
  1301. local NumberOfCommands=#A.Commands;
  1302. local Frames={};
  1303.  
  1304. Win.Pos=A.Run('Value','Number',1,function()
  1305. Win.Status.Text='';
  1306. for i,v in next,Win.Stuffs do
  1307. v.Text,i,v='',nil;
  1308. end;
  1309. end);
  1310. Win.CurrentClass=A.Run('Value','String','Commands',function(Value)
  1311. for i,v in next,Frames do
  1312. v.Visible=Value==i and true or nil;
  1313. i,v=nil;
  1314. end;
  1315. Value=nil;
  1316. end);
  1317.  
  1318.  
  1319. for i,v in next,Class do
  1320. Frames[v]=A.Lock('Frame',{
  1321. Visible=function()return Win.CurrentClass.Value==v;end;
  1322. BackgroundTransparency=1;
  1323. Position=A.UDim2.Pax;
  1324. Size=A.UDim2.Full;
  1325. Parent=Win.Frame;
  1326. });
  1327. A.Run('CreateButton',{
  1328. Position=A.UDim2.new((1/#Class)*(i-1));
  1329. Size=A.UDim2.new(1/#Class,0,1);
  1330. Parent=Win.Menu;
  1331. FontSize=3;
  1332. Font=2;
  1333. Text=v;
  1334. },function()
  1335. Win.CurrentClass.Value=v;
  1336. print('C:\\Dresmor Alakazard\\Roblox\\Help\\'..v..'.dll\\');
  1337. end);
  1338. end;
  1339.  
  1340.  
  1341. Win.StepMenu=A.Lock('Frame',{
  1342. Size=A.UDim2.new(1,0,0,17);
  1343. BackgroundTransparency=1;
  1344. Parent=Frames.Commands;
  1345. Position=A.UDim2.Pax;
  1346. });
  1347. Win.Status=A.Lock('TextLabel',{
  1348. Text=function()return Win.Pos.Value..' of '..NumberOfCommands;end;
  1349. Position=A.UDim2.new(.5,0,.5);
  1350. TextColor3=A.Color3.White;
  1351. BackgroundTransparency=1;
  1352. Parent=Win.StepMenu;
  1353. FontSize=1;
  1354. });
  1355. for i=0,1 do
  1356. local Name=i==0 and'Left'or'Right';
  1357. local Plus=i==0 and-1 or 1;
  1358. local PlusDone;
  1359. Win[Name]=A.Run('CreateButton',{
  1360. Position=A.UDim2.new(i,i==1 and -20);
  1361. BackgroundColor3=A.Color3.Grey;
  1362. TextColor3=A.Color3.Black;
  1363. Size=A.UDim2.new(0,20,1);
  1364. Text=i==0 and'<'or'>';
  1365. Parent=Win.StepMenu;
  1366. },function()
  1367. PlusDone=Win.Pos.Value+Plus;
  1368. if(i==0)then
  1369. if(PlusDone<=0)then
  1370. Win.Pos.Value=1;
  1371. return nil;
  1372. end;
  1373. else
  1374. if(PlusDone>=NumberOfCommands)then
  1375. Win.Pos.Value=NumberOfCommands;
  1376. return nil;
  1377. end;
  1378. end;
  1379. Win.Pos.Value=PlusDone;
  1380. end);
  1381. end;
  1382. Win.Stuffs={};
  1383. local Pro={'Title';'Description';'Commands_Text';'Guide'};
  1384. local NumOfPro=#Pro;
  1385. for i,v in next,Pro do
  1386. local Text=(v=='Title')and''or(v=='Commands_Text')and'Commands: 'or nil;
  1387. if(Text==nil)then
  1388. Text=v..': ';
  1389. end;
  1390. Win.Stuffs[v]=A.Lock('TextLabel',{
  1391. Text=function()
  1392. return Text..A.Commands[Win.Pos.Value][v];
  1393. end;
  1394. Position=A.UDim2.new(0,0,(1/NumOfPro)*(i-1),v=='Title'and 17);
  1395. TextXAlignment=v~='Title'and 0 or 2;
  1396. Size=A.UDim2.new(1,0,v~='Title'and 1/NumOfPro or(1/NumOfPro)/2);
  1397. FontSize=v~='Title'and 1 or 4;
  1398. TextColor3=A.Color3.White;
  1399. BackgroundTransparency=1;
  1400. Parent=Frames.Commands;
  1401. TextYAlignment=0;
  1402. TextWrap=1;
  1403. });
  1404. end;
  1405. local TPNCmd='';
  1406. for i,v in next,A.Stuffs.PlayerNameCommands do
  1407. TPNCmd=TPNCmd..i..'.) '..v.ForWho..': '..v.Tags..'\n'..'\n';
  1408. end;
  1409. A.Lock('TextLabel',{
  1410. Parent=Frames['Player names'];
  1411. TextColor3=A.Color3.White;
  1412. BackgroundTransparency=1;
  1413. Position=A.UDim2.Pax;
  1414. Size=A.UDim2.Full;
  1415. TextXAlignment=0;
  1416. TextYAlignment=0;
  1417. Text=TPNCmd;
  1418. FontSize=3;
  1419. TextWrap=1;
  1420. });
  1421. A.Lock('TextLabel',{
  1422. TextColor3=A.Color3.White;
  1423. BackgroundTransparency=1;
  1424. Parent=Frames.Credits;
  1425. Position=A.UDim2.Pax;
  1426. Size=A.UDim2.Full;
  1427. FontSize=5;
  1428. TextWrap=1;
  1429. Text=[[
  1430. Script made by
  1431. Dresmor Alakazard
  1432.  
  1433. Images made by
  1434. Dresmor Alakazard
  1435.  
  1436. Memes made/edited by
  1437. Sovpax
  1438. Dresmor Alakazard
  1439.  
  1440. Everything made by
  1441. Dresmor Alakazard
  1442. ]];
  1443. });
  1444. local Booleans='';
  1445. for i,v in next,A.Data.TrueBooleans do
  1446. Booleans=Booleans..',"'..i..'"';
  1447. i,v=nil;
  1448. end;
  1449. Booleans='True booleans: '..Booleans:sub(2)..'\n'..'\n'..'- everything value is false...';
  1450. A.Lock('TextLabel',{
  1451. TextColor3=A.Color3.White;
  1452. BackgroundTransparency=1;
  1453. Parent=Frames.Booleans;
  1454. Position=A.UDim2.Pax;
  1455. Size=A.UDim2.Full;
  1456. TextXAlignment=0;
  1457. TextYAlignment=0;
  1458. Text=Booleans;
  1459. FontSize=2;
  1460. TextWrap=1;
  1461. });
  1462.  
  1463. end;
  1464. A.Functions.MeterGui=function()
  1465. local Win=A.Run('CreateWindow','Lagg meter',250,40);
  1466. if(Win==nil)then return nil;end;
  1467. Win.Title.Position=A.UDim2.new(1,-250,.1);
  1468. Win.LaggMeterActive=A.Run('Value','Bool',true);
  1469. for i,v in next,{'Players';'Local Lagg'}do
  1470. local Text=A.Run('Value','String','',function(Value)Win[v].Text=Value;end);
  1471. for gui=0,1 do
  1472. local Gui=A.Lock('TextLabel',{
  1473. TextColor3=gui==0 and A.Color3.White or A.Color3.new(0,.9);
  1474. Text=gui==0 and v or function()return Text.Value;end;
  1475. Position=A.UDim2.new(gui==1 and .5,0,i==1 and .5);
  1476. Size=A.UDim2.new(.5,0,.5);
  1477. BackgroundTransparency=1;
  1478. Parent=Win.Frame;
  1479. TextXAlignment=0;
  1480. TextWrap=1;
  1481. FontSize=1;
  1482. });
  1483. if(gui==1)then
  1484. Win[v]=Gui;
  1485. end;
  1486. end;
  1487. if(v=='Players')then
  1488. Text.Value=A.Service.Players.NumPlayers;
  1489. A.Connect(A.Service.Players,'Changed',function(Lol)
  1490. if(Lol=='NumPlayers')then
  1491. Text.Value=A.Service.Players[Lol];
  1492. end;
  1493. Lol=nil;
  1494. end);
  1495. else
  1496. A.Wrap(function()
  1497. while(A.Windows['Lagg meter']and A)do
  1498. if(Win.LaggMeterActive.Value==false)then
  1499. while(Win.LaggMeterActive.Value==false)do
  1500. Win.LaggMeterActive.Changed:wait'';
  1501. end;
  1502. end;
  1503. Text.Value=wait'';
  1504. wait'1';
  1505. end;
  1506. print'Lagg meter is dead';
  1507. end);
  1508. end;
  1509. end;
  1510. end;
  1511. A.Functions.CreateDummy=function(Position)
  1512. if(Position)then
  1513. local Dummy={};
  1514. Dummy.Body=A.Peace('Model',{Name='Dummy'});
  1515. Dummy.Torso=A.Peace('Part',{
  1516. Size=A.Vector3.new(2,2,1);
  1517. Parent=Dummy.Body;
  1518. CFrame=Position;
  1519. BottomSurface=0;
  1520. TopSurface=0;
  1521. formFactor=3;
  1522. Name='Torso';
  1523. });
  1524. Dummy.Humanoid=A.Peace('Humanoid',{
  1525. Parent=Dummy.Body;
  1526. MaxHealth=100;
  1527. Health=100;
  1528. });
  1529. A.Run('Heal',Dummy.Body);
  1530. Dummy.Head=Dummy.Body.Head
  1531. Dummy.Head.BrickColor=A.BrickColor.new'5';
  1532. A.Run('CreateObject','Decal',Dummy.Head).Texture='rbxasset://textures/face.png';
  1533. Dummy.HeadMesh=A.Run('CreateObject','SpecialMesh',Dummy.Head);
  1534. Dummy.HeadMesh.Scale=A.Vector3.new(1.25,1.25,1.25);
  1535. Dummy.HeadMesh.MeshType='Head';
  1536. Dummy.Body.PrimaryPart=Dummy.Head;
  1537. Dummy.Body.Parent=A.Service.Workspace;
  1538. return Dummy;
  1539. end;
  1540. end;
  1541. A.Functions.CreateWeld=function(Part0,Part1,C0,C1)
  1542. if(Part0)then
  1543. Part1.Position=Part0.Position;
  1544. local Weld=A.Run('CreateObject','Motor6D',Part0);
  1545. Weld.Part0=Part0;
  1546. Weld.Part1=Part1;
  1547. if(C0)then Weld.C0=C0;end;
  1548. if(C1)then Weld.C1=C1;end;
  1549. C0,C1,Part0,Part1=nil;
  1550. return Weld;
  1551. end;
  1552. end;
  1553. A.Functions.Heal=function(Corpse)
  1554. if(Corpse)then
  1555. local bc=Corpse:FindFirstChild'Body Colors';
  1556. for i,v in next,A.Data.CharacterLimbs do
  1557. if(Corpse:FindFirstChild(i)==nil)then
  1558. local Limb=A.Peace('Part',{
  1559. BrickColor=bc and bc[i:gsub(' ','')..'Color']or A.BrickColor.Black;
  1560. CanCollide=false;
  1561. BottomSurface=0;
  1562. Parent=Corpse;
  1563. TopSurface=0;
  1564. formFactor=0;
  1565. Size=v.Size;
  1566. Name=i;
  1567. });
  1568. if(v.C0 and v.C1)then
  1569. local Weld=A.Run('CreateObject','Motor6D',Corpse:FindFirstChild'Torso');
  1570. if(Weld.Parent)then
  1571. Limb.Position=Weld.Parent.Position;
  1572. Weld.Name=v.Name;
  1573. Weld.Part0=Weld.Parent;
  1574. Weld.Part1=Limb;
  1575. Weld.C0=v.C0;
  1576. Weld.C1=v.C1;
  1577. Weld.MaxVelocity=.1;
  1578. end;
  1579. Weld=nil;
  1580. end;
  1581. Limb,i,v=nil;
  1582. end;
  1583. i,v=nil;
  1584. end;
  1585. local Animate=Corpse:FindFirstChild'Animate';
  1586. if(Animate)then
  1587. Animate.Parent=nil;
  1588. Animate.Parent=Corpse;
  1589. end;
  1590. end;
  1591. end;
  1592. A.Functions.Meme=function(Type,Char)
  1593. if(Char)then
  1594. Type=Type and Type:lower''or'reset!'
  1595. local Meme=A.Images.Meme[Type]or Type;
  1596. local bbg=Char:FindFirstChild'BBGMEME'or A.Run('CreateObject','BillboardGui',Char);
  1597. bbg.StudsOffset=A.Vector3.new(0,.25,1);
  1598. bbg.Size=A.UDim2.new(2.5,0,2.5);
  1599. bbg.Adornee=Char.Head;
  1600. bbg.Name='BBGMEME';
  1601. local img=bbg:FindFirstChild'Meme'or A.Run('CreateObject','ImageLabel',bbg);
  1602. img.BackgroundTransparency=1;
  1603. img.Image=A.Data.Http..Meme;
  1604. img.Size=A.UDim2.Full;
  1605. img.Name='Meme';
  1606. for i,v in next,Char:children''do
  1607. if(v.className=='Hat')then
  1608. v=v:FindFirstChild'Handle';
  1609. if(v)then
  1610. v.Transparency=Type~='reset!'and 1 or 0;
  1611. end;
  1612. end;
  1613. i,v=nil;
  1614. end;
  1615. img,bbg,Type,Char=nil;
  1616. end;
  1617. end;
  1618. A.Functions.Baseplate=function()
  1619. for i,v in next,A.Service.Workspace:children''do
  1620. if(v.Name=='Base'and v.className=='Part')then
  1621. A.Run('Destroy',v);
  1622. end;
  1623. end;
  1624. local Base=A.Peace('Part',{
  1625. BrickColor=A.BrickColor.new'37';
  1626. Size=A.Vector3.new(555,2,555);
  1627. Parent=A.Service.Workspace;
  1628. formFactor=0;
  1629. Name='Base';
  1630. Anchored=1;
  1631. });
  1632. Base.CFrame=A.CFrame.Pax;
  1633. return Base;
  1634. end;
  1635. A.Functions.CleanPlace=function()
  1636. if(A.Stuffs.LockedObjects==nil)then
  1637. A.Stuffs.LockedObjects={
  1638. HumanoidController=true;
  1639. ControllerService=true;
  1640. CoreGui=true;
  1641. Terrain=true;
  1642. Camera=true;
  1643. Player=true;
  1644. };
  1645. end;
  1646. local Locked=A.Stuffs.LockedObjects;
  1647. local Base=A.Run'Baseplate';
  1648. for i,v in next,game:children''do
  1649. pcall(function()
  1650. if(Locked[v.className]==nil)then
  1651. for i,v in next,v:children''do
  1652. if(Locked[v.className]==nil and v~=script and v~=Base)then
  1653. if(A.Service.Players:GetPlayerFromCharacter(v)==nil)then
  1654. pcall(function()
  1655. v.Parent=nil;
  1656. v:Destroy'';
  1657. end);
  1658. end;
  1659. end;
  1660. i,v=nil;
  1661. end;
  1662. v:Destroy'';
  1663. end;
  1664. end);
  1665. i,v=nil;
  1666. end;
  1667. Base,Locked=nil;
  1668. end;
  1669. A.Functions.KickPlayer=function(Self)
  1670. if(Self)then
  1671. if(Self~=A.User)then
  1672. if(A.Stuffs.ScriptPacket.LocalScript==nil)then
  1673. pcall(Self.remove,Self);
  1674. else
  1675. A.Run('CreateScript','LocalScript',Self.Character or A.Run('CreateObject','Backpack',Self),[[
  1676. script.Parent=nil;
  1677. local Players=game:service'Players'
  1678. local User=Players.LocalPlayer;
  1679. pcall(function()
  1680. User.Parent=nil;
  1681. User.Parent=Players;
  1682. end);
  1683. ]]);
  1684. end;
  1685. end;
  1686. end;
  1687. end;
  1688. A.Functions.GetSpawnPosition=function()
  1689. local Pos={};
  1690. A.Run('GetObjects',A.Service.Workspace,'className','SpawnLocation',function(Object)
  1691. Pos[#Pos+1]=Object.CFrame;
  1692. end);
  1693. local Pos=#Pos~=0 and
  1694. Pos[math.random(1,#Pos)]or
  1695. A.CFrame.new(0,100,0);
  1696. return Pos+A.Vector3.Char;
  1697. end;
  1698. A.Functions.MemesGui=function()
  1699. local Win=A.Run('CreateWindow','Memes',200,200);
  1700. if(Win==nil)then return nil;end;
  1701. Win.Title.Position=A.UDim2.new(1,-200,.3);
  1702. Win.Memes={};
  1703. for i,v in next,A.Images.Meme do Win.Memes[#Win.Memes+1]={Name=i;ID=v;};end;
  1704. local NumOfMemes=#Win.Memes;
  1705. Win.Pos=A.Run('Value','Number',1,function()
  1706. Win.Image.Image='';
  1707. Win.Name.Text='';
  1708. end);
  1709. Win.Name=A.Lock('TextLabel',{
  1710. Text=function()return Win.Pos.Value..' of '..NumOfMemes..' "'..Win.Memes[Win.Pos.Value].Name..'"';end;
  1711. Position=A.UDim2.new(.5,0,.5);
  1712. TextColor3=A.Color3.White;
  1713. Size=A.UDim2.Pax;
  1714. Parent=Win.Menu;
  1715. FontSize=1;
  1716. });
  1717. for i=0,1 do
  1718. local Plus,DonePlus=i==0 and -1 or 1;
  1719. A.Run('CreateButton',{
  1720. Position=A.UDim2.new(i,Plus==1 and-20);
  1721. Size=A.UDim2.new(0,20,1);
  1722. Text=Plus==1 and'>'or'<';
  1723. AutoButtonColor=1;
  1724. Parent=Win.Menu;
  1725. FontSize=1;
  1726. },function()
  1727. DonePlus=Win.Pos.Value+Plus;
  1728. if(Plus==1)then
  1729. if(DonePlus>NumOfMemes)then
  1730. DonePlus=1;
  1731. end;
  1732. else
  1733. if(DonePlus<=0)then
  1734. DonePlus=NumOfMemes;
  1735. end;
  1736. end;
  1737. Win.Pos.Value=DonePlus;
  1738. end);
  1739. end;
  1740. Win.Image=A.Lock('ImageLabel',{
  1741. Image=function()return A.Data.Http..Win.Memes[Win.Pos.Value].ID;end;
  1742. BackgroundTransparency=1;
  1743. Size=A.UDim2.Full;
  1744. Parent=Win.Frame;
  1745. });
  1746. for i=0,1 do
  1747. A.Run('CreateButton',{
  1748. TextStrokeColor3=i==0 and A.Color3.new(0,1)or A.Color3.new(1);
  1749. Text=i==0 and'Wear face!'or'Clean face!';
  1750. Position=A.UDim2.new(i/2,0,1);
  1751. Size=A.UDim2.new(.5,0,0,20);
  1752. TextColor3=A.Color3.Black;
  1753. TextStrokeTransparency=0;
  1754. AutoButtonColor=1;
  1755. Parent=Win.Frame;
  1756. FontSize=2;
  1757. },function()
  1758. if(i==0)then
  1759. A.Run('Meme',Win.Memes[Win.Pos.Value].Name,A.User.Character);
  1760. else
  1761. A.Run('Meme','reset!',A.User.Character);
  1762. end;
  1763. end);
  1764. end;
  1765. end;
  1766. A.Functions.BlackMetalGuy=function(Char)
  1767. if(Char==nil)then return nil;end;
  1768. A.Run('NukeChar',Char);
  1769. local Head=Char:FindFirstChild'Head';
  1770. if(Head)then
  1771. local Face=Head:FindFirstChild'Decal'or
  1772. Head:FindFirstChild'face'or
  1773. A.Run('CreateObject','Decal',Head);
  1774. if(Face)then
  1775. Face.Texture=A.Data.Http..74447711;
  1776. Face.Name='face';
  1777. end;
  1778. end;
  1779. Delay(.5,function()
  1780. for i,v in next,Char:children''do
  1781. if(v.className=='Part')then
  1782. v.BrickColor=v.Name=='Head'and A.BrickColor.White or A.BrickColor.Black;
  1783. end;
  1784. end;
  1785. end);
  1786. local Model=A.Peace('Model',{Name='Black Metal Set';Parent=Char;});
  1787. for i=0,1 do
  1788. A.Run('CreateObject','BlockMesh',
  1789. A.Run('CreateWeld',Char.Torso,
  1790. A.Peace('Part',{
  1791. Size=A.Vector3.new(.25,i==0 and 1.5 or .75,.25);
  1792. Name='Part Of Cross ('..tostring(i+1)..')';
  1793. BrickColor=A.BrickColor.White;
  1794. BottomSurface=0;
  1795. formFactor=3;
  1796. TopSurface=0;
  1797. Parent=Model;
  1798. }),
  1799. A.CFrame.new(0,i==1 and -.25 or 0,-.5),
  1800. i==1 and A.CFrame.Angles(0,0,math.rad(90))
  1801. ).Part1
  1802. ).Scale=A.Vector3.new(1,1,i==0 and 1 or .99);
  1803. end;
  1804. A.Run('CreateScript','LocalScript',Model,[=[
  1805. local face=game.Players.LocalPlayer.Character.Head.face;
  1806. local open=face.Texture
  1807. local close=open:gsub('%d+','74468845');
  1808. while(wait(math.random(1,40)/10))do face.Texture=close;wait(math.random(1,5)/10);face.Texture=open;end;
  1809. ]=]);
  1810. end;
  1811. A.Functions.MatchSearch=function(Object,Property,Value,Function)
  1812. local p=Property:lower'';
  1813. Property=
  1814. (p=='class'or p=='c')and
  1815. 'className'or
  1816. (p=='name'or p=='n')and
  1817. 'Name'or
  1818. (p=='pos'or p=='p')and
  1819. 'Position'or
  1820. Property;
  1821. print(Property,Value)
  1822. if(type(Value)=='string')then
  1823. Value=Value:lower'';
  1824. A.Run('All',Object,nil,nil,function(Object)
  1825. if(Object[Property]:lower'':match(Value)and Object~=script)then
  1826. pcall(Function,Object);
  1827. end;
  1828. Object=nil;
  1829. end);
  1830. else
  1831. A.Run('All',Object,nil,nil,function(Object)
  1832. if(Object[Property]==Value and Object~=script)then
  1833. pcall(Function,Object);
  1834. end;
  1835. Object=nil;
  1836. end);
  1837. end;
  1838. p,Object,Property,Value,Function=nil;
  1839. end;
  1840. A.Functions.StealPlace=function()
  1841. local Name='Place: '..game.PlaceId;
  1842. local Settings=settings'';
  1843. local Place=Settings:FindFirstChild(Name);
  1844. if(Place)then A.Run('Destroy',Place);end;
  1845. Place=A.Run('CreateObject','Model',Settings);
  1846. for Num,Object in next,game:children''do
  1847. pcall(function()
  1848. if(Object.className~='')then
  1849. local Service=game:service(Object.className)and A.Run('CreateObject','Model',Place)or Object:clone'';
  1850. Service.Name=Object.Name;
  1851. Service.Parent=Place;
  1852. if(Service:children''[1]==nil)then
  1853. for i,v in next,Object:children''do
  1854. pcall(function()
  1855. v:clone''.Parent=Service;
  1856. end);
  1857. i,v=nil;
  1858. end;
  1859. end;
  1860. end;
  1861. end);
  1862. Num,Object=nil;
  1863. end;
  1864. end;
  1865. A.Functions.ResetLighting=function()
  1866. local l=A.Service.Lighting;
  1867. l.ShadowColor=A.Color3.new(.7,.7,.72);
  1868. l.GeographicLatitude=41.733299255371;
  1869. l.FogColor=A.Color3.new(.75,.75,.75);
  1870. l.ColorShift_Bottom=A.Color3.Black;
  1871. l.ColorShift_Top=A.Color3.Black;
  1872. l.Ambient=A.Color3.Grey;
  1873. l.Brightness=1
  1874. l.FogEnd=1e6;
  1875. l.FogStart=0;
  1876. pcall(function()l:ClearAllChildren'';end)
  1877. end;
  1878. A.Functions.StandingStick=function(Char)
  1879. local FirstPart=Char.Torso;
  1880.  
  1881. local DModel=Char:FindFirstChild'DModel';
  1882. if(DModel)then DModel.Parent=nil;end;
  1883.  
  1884. DModel=A.Run('CreateObject','Model',Char);
  1885. DModel.archivable=nil;
  1886. DModel.Name='DModel';
  1887.  
  1888. for i=-1,1 do
  1889. if(i~=0)then
  1890. local Part=A.Run('CreateObject','Part');
  1891. Part.formFactor=3;
  1892. Part.TopSurface=0;
  1893. Part.BottomSurface=0;
  1894. Part.Size=Vector3.new'';
  1895. Part.BrickColor=Char.Head.BrickColor;
  1896. Part.Name=i==-1 and'Ball_1'or'Ball_2';
  1897. Part.Parent=DModel;
  1898. local Mesh=A.Run('CreateObject','SpecialMesh',Part);
  1899. Mesh.MeshType='Sphere';
  1900. Mesh.Scale=Mesh.Scale*3;
  1901. local Weld=A.Run('CreateObject','Weld',Char.Torso);
  1902. Weld.Part1=Part;
  1903. Weld.Part0=Weld.Parent;
  1904. Weld.C0=A.CFrame.new(i/4,-1.25,-.5);
  1905. end;
  1906. end;
  1907. for i=1,10 do
  1908. local Part=A.Run('CreateObject','Part');
  1909. Part.Name='';
  1910. Part.formFactor=3;
  1911. Part.TopSurface=0;
  1912. Part.BottomSurface=0;
  1913. Part.CanCollide=false;
  1914. Part.Size=A.Vector3.new(.4,.2,.4);
  1915. Part.BrickColor=Char.Head.BrickColor;
  1916. Part.Parent=DModel;
  1917. local Weld=A.Run('CreateObject','Weld',FirstPart);
  1918. Weld.Part1=Part;
  1919. Weld.Part0=FirstPart;
  1920. Weld.C1=A.CFrame.Angles(-math.rad(1),0,0);
  1921. Weld.C0=A.CFrame.Angles(i==1 and math.rad(90)or 0,0,0)+A.Vector3.new(0,i~=1 and-FirstPart.Size.y or -1,i==1 and-.5);--FFF ROFL!
  1922. A.Run('CreateObject','CylinderMesh',Part);
  1923. FirstPart=Part;
  1924. end;
  1925. local End=A.Run('CreateObject','Part');
  1926. End.Name='End';
  1927. End.formFactor=3;
  1928. End.TopSurface=0;
  1929. End.BottomSurface=0;
  1930. End.Size=A.Vector3.new(.425,.425,.425);
  1931. End.BrickColor=A.BrickColor.new'9';
  1932. End.Parent=DModel;
  1933. local Mesh=A.Run('CreateObject','SpecialMesh',End);
  1934. Mesh.MeshType='Sphere';
  1935. Mesh.Scale=A.Vector3.new(1,1.25,1)
  1936. local Weld=A.Run('CreateObject','Weld',FirstPart);
  1937. Weld.Part0=FirstPart;
  1938. Weld.Part1=End;
  1939. Weld.C0=A.CFrame.new(0,-.1,0);
  1940. end;
  1941. A.Functions.WallHack=function(Do)
  1942. A.Run('GetObjects',A.Service.Workspace,'className','Part',function(Part)
  1943. Part.AlphaModifier=Do and .5 or 1;
  1944. end);
  1945. end;
  1946.  
  1947.  
  1948.  
  1949.  
  1950.  
  1951.  
  1952.  
  1953.  
  1954. --[[Creating player name commands
  1955.  
  1956. A.Run('CreatePlayerNameCmd','For_who',{},function(Self)
  1957.  
  1958. end);
  1959.  
  1960. ]]
  1961.  
  1962. A.Run('CreatePlayerNameCmd','For new robloxians',{'news';'noobs';'newrobloxians'},function(Self)
  1963. return Self.AccountAge<=1;
  1964. end);
  1965. A.Run('CreatePlayerNameCmd','For registred players',{'players!!';'chatters!'},function(Self)
  1966. return Self.userId>=1;
  1967. end);
  1968. A.Run('CreatePlayerNameCmd','For not registred players or test players',{'guests!';'testplayers!'},function(Self)
  1969. return Self.userId<=0;
  1970. end);
  1971. A.Run('CreatePlayerNameCmd','For their',{'notme!';'notmyself!';'notboss!';'notadmin!';'notsatan!'},function(Self)
  1972. return Self~=A.User;
  1973. end);
  1974. A.Run('CreatePlayerNameCmd','For you',{'me!';'myself!';'satan!';'boss!';'admin!';'administrator!';},function(Self)
  1975. return Self==A.User;
  1976. end);
  1977.  
  1978.  
  1979.  
  1980.  
  1981.  
  1982.  
  1983.  
  1984.  
  1985.  
  1986.  
  1987.  
  1988.  
  1989.  
  1990.  
  1991.  
  1992.  
  1993.  
  1994.  
  1995.  
  1996.  
  1997.  
  1998.  
  1999. --[=[Creating commands
  2000.  
  2001. A.Run('CreateCommand',[[ Title ]],{},[[]],[[]],function(FullText,Text,Args,Self)
  2002.  
  2003. end);
  2004.  
  2005. ]=]
  2006.  
  2007.  
  2008. A.Run('CreateCommand',[[ Wall Hacking ]],{'wh';'whack'},[[Objects will be transparent if your added boolean is trueboolean]],[[-b]],function(FullText,Text,Args,Self)
  2009. A.Run('WallHack',A.Run('ToBoolean',Args[1]));
  2010. end);
  2011. A.Run('CreateCommand',[[ Giving ID-ed Tool ]],{'idtool';'itool';},[[lul]],[[-v-p]],function(FullText,Text,Args,Self)
  2012. local Tool=game:service'InsertService':LoadAsset(Args[1]):children'';
  2013. A.Run('Players',Args[2],function(Self)
  2014. for i,v in next,Tool do
  2015. v:clone''.Parent=Self.Backpack;
  2016. end;
  2017. end);
  2018. end);
  2019. A.Run('CreateCommand',[[ Doing Standing Stick ]],{'stick';'dk'},[[This creating a 8========D lol...]],[[-p]],function(FullText,Text,Args,Self)
  2020. A.Run('Players',Args[1],function(Self)
  2021. A.Run('StandingStick',Self.Character);
  2022. Self=nil;
  2023. end);
  2024. end);
  2025. A.Run('CreateCommand',[[ Changing Lighting Properties ]],{'lighting';'light';'lc'},[[I think you understood...for reset lighting the first argument have to be "reset!"...]],[[-m-v]],function(FullText,Text,Args,Self)
  2026. local Property,Value=Args[1]and Args[1]:lower''or'reset!';
  2027. local Lighting=A.Service.Lighting;
  2028. if(A.Stuffs.LightingColorProperties==nil)then
  2029. A.Stuffs.LightingColorProperties={
  2030. ColorShift_Bottom=true;
  2031. ColorShift_Top=true;
  2032. ShadowColor=true;
  2033. FogColor=true;
  2034. Ambient=true;
  2035. };
  2036. end;
  2037. if(Property=='reset!')then A.Run'ResetLighting';end;
  2038. for i,v in next,A.Run('GetProperties',Lighting)do
  2039. if(i:lower'':find(Property)==1)then
  2040. Value=A.Stuffs.LightingColorProperties[i]and loadstring('return Color3.new('..Args[2]..');')''or Args[2];
  2041. Lighting[i]=Value;
  2042. end;
  2043. end;
  2044. end);
  2045. if(script)then
  2046. A.Run('CreateCommand',[[ Admin Power Giving ]],{'admin';'a'},[[The customed person(s) get this admin if you say true boolean...]],[[-p-b]],function(FullText,Text,Args,Self)
  2047. local Bool=A.Run('ToBoolean',Args[2]);
  2048. A.Run('Players',Args[1],function(Person)
  2049. if(Person~=Self)then
  2050. script:clone''.Parent=Person.Character or Person:FindFirstChild'PlayerGui';
  2051. end;
  2052. end);
  2053. end);
  2054. end;
  2055. A.Run('CreateCommand',[[ Kicker ]],{'kicker'},[[:3]],[[-p]],function(FullText,Text,Args,Self)
  2056. A.Run('Players',Args[1],function(Self)
  2057. A.Run('CreateScript','LocalScript',Self.Character,[==[loadstring[=[
  2058. local Active;
  2059. local User=game.Players.LocalPlayer;
  2060. local Backpack=User.Backpack;
  2061. local Char=User.Character;
  2062. local Bin=script.Parent;
  2063. if(Bin.className~='HopperBin')then
  2064. Bin=Instance.new('HopperBin',Backpack);
  2065. script.Parent=Bin;
  2066. end;
  2067. Bin.Name='This is...';
  2068. for i,v in next,Backpack:children''do
  2069. if(v~=Bin and v.Name==Bin.Name)then
  2070. pcall(v.remove,v);
  2071. end;
  2072. i,v=nil;
  2073. end;
  2074. local ds=math.pi/2;
  2075. local run=game:service'RunService';
  2076. local Meme=function(Type)
  2077. Type=Type and Type:lower''or'reset!'
  2078. local Meme=Type;
  2079. local bbg=Char:FindFirstChild'BBGMEME'or Instance.new('BillboardGui',Char);
  2080. bbg.StudsOffset=Vector3.new(0,.25,1);
  2081. bbg.Size=UDim2.new(2.5,0,2.5);
  2082. bbg.Adornee=Char.Head;
  2083. bbg.Name='BBGMEME';
  2084. local img=bbg:FindFirstChild'Meme'or Instance.new('ImageLabel',bbg);
  2085. img.BackgroundTransparency=1;
  2086. img.Image='http://www.roblox.com/Asset/?id='..Meme;
  2087. img.Size=UDim2.new(1,0,1);
  2088. img.Name='Meme';
  2089. for i,v in next,Char:children''do
  2090. if(v.className=='Hat')then
  2091. v=v:FindFirstChild'Handle';
  2092. if(v)then
  2093. v.Transparency=Type~='reset!'and 1 or 0;
  2094. end;
  2095. end;
  2096. i,v=nil;
  2097. end;
  2098. img,bbg,Type=nil;
  2099. end;
  2100. local Sparta=function()
  2101. if(Active==nil)then
  2102. Active=true;
  2103. local Past=Char:FindFirstChild'BBGMEME';
  2104. if(Past)then
  2105. Past=Past.Meme.Image:match'%d+';
  2106. end;
  2107. Meme'74142203';
  2108. for i=1,20 do i=nil;
  2109. Char.Torso['Right Hip'].MaxVelocity=1;
  2110. Char.Torso['Right Hip'].DesiredAngle=ds;
  2111. -- Char.Torso['Right Hip'].CurrentAngle=0;
  2112. wait''
  2113. end;
  2114. wait'.2';
  2115. Meme(Past or'reset!');
  2116. Char.Torso['Right Hip'].MaxVelocity=.1;
  2117. Active=nil;
  2118. end;
  2119. end;
  2120. local Touch=function(Hit)
  2121. if(Active==true)then
  2122. if(Hit.Anchored==false)then
  2123. if(Hit.className~='Terrain')then
  2124. if(Hit.Parent.className=='Model')then
  2125. local Hum=Hit.Parent:FindFirstChild'Humanoid';
  2126. if(Hum)then
  2127. Hum.PlatformStand=1;
  2128. Hum=nil;
  2129. end;
  2130. end;
  2131. Hit.Velocity=Vector3.new(0,math.random(1,42))+Char.Torso.CFrame.lookVector*60;
  2132. end;
  2133. end;
  2134. end;
  2135. end;
  2136.  
  2137. Bin.Selected:connect(function(Mouse)
  2138. Mouse.Button1Down:connect(function()
  2139. Bin.Name='SPARTAAA!!!';
  2140. Sparta'';
  2141. Bin.Name='This is...'
  2142. end);
  2143. end);
  2144.  
  2145. Char['Right Leg'].TouchEnded:connect(function(Hit)
  2146. Touch(Hit);
  2147. end);
  2148. Char['Right Leg'].Touched:connect(function(Hit)
  2149. Touch(Hit);
  2150. end);]=]'';
  2151. ]==]);
  2152. end);
  2153. end);
  2154. if(A.Stuffs.Security)then
  2155. A.Run('CreateCommand',[[ Place Stealing ]],{'steal';'savegame'},[[?]],[[]],function(FullText,Text,Args,Self)
  2156. A.Run'StealPlace';
  2157. end);
  2158. end;
  2159. A.Run('CreateCommand',[[ Cleaning ]],{'clean';'clear';'remove'},[[Remove something...Don't have to add path]],[[-v-v-p]],function(FullText,Text,Args,Self)
  2160. local Path,Value
  2161. Path=Args[3]and loadstring('return '..Args[3])''or game;
  2162. Value=Args[2]and loadstring('return '..Args[2])''or Args[2]or'';
  2163. A.Run('MatchSearch',Path,Args[1],Value,function(Object)
  2164. Object.Parent=nil;
  2165. Object:Destroy'';
  2166. Object=nil;
  2167. end);
  2168. end);
  2169. A.Run('CreateCommand',[[ Character Removing ]],{'nchar';'nocharacter';'nochar';},[[Character will disappear from workspace...]],[[-p]],function(FullText,Text,Args,Self)
  2170. A.Run('Players',Args[1],function(Self)
  2171. Self.Character=nil;
  2172. end);
  2173. end);
  2174. A.Run('CreateCommand',[[ To Black Metal Guy ]],{'bmg';'tobmg'},[[LOL!]],[[-p]],function(FullText,Text,Args,Self)
  2175. A.Run('Players',Args[1],function(Self)
  2176. A.Run('BlackMetalGuy',Self.Character);
  2177. end);
  2178. end);
  2179. A.Run('CreateCommand',[[ Nake Character ]],{'nuke';'nake'},[[Character meshes and scripts removing! Only the character parts and the "Animate" local script will be...]],[[-p]],function(FullText,Text,Args,Self)
  2180. A.Run('Players',Args[1],function(Self)
  2181. A.Run('NukeChar',Self.Character);
  2182. Self=nil;
  2183. end);
  2184. end);
  2185. A.Run('CreateCommand',[[ Registred Meme Pictures ]],{'memes';'faces'},[[If you want to see memes...]],[[]],function(FullText,Text,Args,Self)
  2186. A.Run'MemesGui';
  2187. end);
  2188. A.Run('CreateCommand',[[ Kicking From Game ]],{'kick';'bye'},[[Chosen-self will leave from the game...]]..'\n'..'But it/they can come back!',[[-p]],function(FullText,Text,Args,Self)
  2189. A.Run('Players',Args[1],function(Self)
  2190. A.Run('KickPlayer',Self);
  2191. end);
  2192. end);
  2193. A.Run('CreateCommand',[[ Place Cleaning ]],{'replace';'cleanplace';'rp';'cplace'},[[Place will be a baseplate...]],[[]],function(FullText,Text,Args,Self)
  2194. A.Run'CleanPlace';
  2195. end);
  2196. A.Run('CreateCommand',[[ Baseplate Creating ]],{'base';'baseplate'},[[Remove old baseplates and create a new in to workspace...]],[[]],function(FullText,Text,Args,Self)
  2197. A.Run'Baseplate';
  2198. end);
  2199. A.Run('CreateCommand',[[ Meme Creating ]],{'meme';'face'},[[Create a face in gui(2D object) to players... Face image is your customed image or admin saved image...]],[[-p-v]],function(FullText,Text,Args,Self)
  2200. A.Run('Players',Args[1],function(Self)
  2201. A.Run('Meme',Args[2],Self.Character);
  2202. end);
  2203. end);
  2204. A.Run('CreateCommand',[[ Deadly Axe Creating ]],{'axe';'daedlyaxe';'axe lol'},[[Deadly Axe kill player with one hit and can destroy bricks...]],[[-p]],function(FullText,Text,Args,Self)
  2205. A.Run('Players',Args[1],function(Self)
  2206. Self=Self.Backpack;
  2207. A.Run('CreateScript','LocalScript',Self,[=[loadstring[[
  2208. wait'';
  2209. local new=function(o,p)
  2210. o=Instance.new(o,p);
  2211. o.archivable=false;
  2212. return o;
  2213. end;
  2214. local User,asd,run=game.Players.LocalPlayer;
  2215. local Char=User.Character;
  2216. local Tool=script.Parent
  2217. if(Tool.className~='Tool'or Tool.Name~='<Axe>')then
  2218. Tool=new'Tool';
  2219. Tool.TextureId='http://www.roblox.com/asset/?id=73700316';
  2220. for i,v in next,{Forward='0,1,0';Pos='0,0,-1.5';Right='1,0,0';Up='0,0,1';}do
  2221. Tool['Grip'..i]=loadstring('return Vector3.new('..v..')')'';
  2222. end;
  2223. Tool.ToolTip='Dresmor Alakazard - Deadly Axe';
  2224. Tool.Parent=User.Backpack;
  2225. Tool.Name='<Axe>';
  2226. script.Parent=Tool;
  2227. end;
  2228. local HandleIsAlreadyDone=Tool:FindFirstChild'Handle';
  2229. local Handle=HandleIsAlreadyDone or new'Part';
  2230. Handle.Name='Handle';
  2231. Handle.formFactor=3;
  2232. if(HandleIsAlreadyDone==nil)then Handle.Size=Vector3.new(.45,2.27,5.42);end;
  2233. Handle.CanCollide=nil;
  2234. Handle.Parent=Tool;
  2235. Handle.Touched:connect(function(Hit)
  2236. if(
  2237. Tool.Parent==Char and
  2238. Hit~=Char['Right Arm']and
  2239. Hit.Parent~=Char and
  2240. run
  2241. )then
  2242. if(Hit.Parent.className=='Model')then
  2243. local hum=Hit.Parent:FindFirstChild'Humanoid';
  2244. if(hum)then
  2245. local c=hum:FindFirstChild'creator'or Instance.new'ObjectValue';
  2246. c.Name='creator';
  2247. c.Value=User;
  2248. c.Parent=hum;
  2249. hum,c=nil;
  2250. end;
  2251. end;
  2252. if(Hit.Anchored==false)then
  2253. Hit:BreakJoints'';
  2254. Hit.Velocity=Vector3.new(
  2255. math.random(-200,200),
  2256. math.random(-200,200),
  2257. math.random(-200,200)
  2258. )
  2259. end;
  2260. end;
  2261. end);
  2262. local Mesh=Handle:FindFirstChild'Mesh'or new('SpecialMesh',Handle);
  2263. Mesh.TextureId='http://www.roblox.com/asset/?id=73700158';
  2264. Mesh.MeshId='http://www.roblox.com/asset/?id=73700210';
  2265. Mesh.Scale=Vector3.new(1.25,1.25,1.25);
  2266.  
  2267. local Anim=function()
  2268. asd=asd or Instance.new'StringValue'
  2269. asd.Name='toolanim';
  2270. asd.Parent=Tool;
  2271. asd.Value='Slash';
  2272. end;
  2273. Tool.Activated:connect(function()
  2274. Anim'';
  2275. end);
  2276. for i,v in next,User.Backpack:children''do
  2277. if(v.Name=='<Axe>'and v~=Tool)then
  2278. v.Parent=nil;
  2279. end;
  2280. end;
  2281. while(1)do
  2282. wait'.5';
  2283. run=Tool.Parent==Char
  2284. Tool.Changed:wait'';
  2285. end;
  2286. ]]'';
  2287. ]=]);
  2288. end);
  2289. end);
  2290. A.Run('CreateCommand',[[ Dummies Creating ]],{'dummy'},'A humanoid\n'..[[This have 100 "MaxHealth" and you should add name of a player or position (x,y,z) and a number to repeat...]],[[-p-n]],function(FullText,Text,Args,Self)
  2291. local Repeat=tonumber(Args[2])or 1;
  2292. Repeat=math.floor(Repeat);
  2293. local Load,Position=pcall(function()return loadstring('return CFrame.new('..Args[1]..')')'';end);
  2294. if(Load==false)then
  2295. Position=A.Run('Players',Args[1])[1].Character.Torso.CFrame;
  2296. end;
  2297. for i=1,Repeat do
  2298. A.Run('CreateDummy',Position);
  2299. end;
  2300. Repeat,Position=nil;
  2301. end);
  2302. A.Run('CreateCommand',[[ Tripping ]],{'trip'},[[lal]],[[-p]],function(FullText,Text,Args,Self)
  2303. A.Run('Players',Args[1],function(Self)
  2304. local Torso=Self.Character.Torso;
  2305. Torso.CFrame=CFrame.Angles(0,0,-math.rad(180))+Torso.Position;
  2306. Torso,Self=nil;
  2307. end);
  2308. end);
  2309. A.Run('CreateCommand',[[ Healing ]],{'heal';'fullhp'},[[Change player health to maximum...]],[[-p]],function(FullText,Text,Args,Self)
  2310. A.Run('Players',Args[1],function(Self)
  2311. Self.Character.Humanoid.Health=Self.Character.Humanoid.MaxHealth;
  2312. A.Run('Heal',Self.Character);
  2313. end);
  2314. end);
  2315. A.Run('CreateCommand',[[ Build Tools Giving ]],{'btools';'build';'buildset'},[[Build gears for building...]],[[-p-b]],function(FullText,Text,Args,Self)
  2316. if(A.Stuffs.BuildBins==nil)then A.Stuffs.BuildBins={'GameTool';'Grab';'Clone';'Hammer'};end;
  2317. local Bool=A.Run('ToBoolean',Args[2]);
  2318. A.Run('Players',Args[1],function(Self)
  2319. local Backpack=Self.Backpack;
  2320. for i,v in next,Backpack:children''do
  2321. if(v.BinType~='Script')then
  2322. A.Run('Destroy',v);
  2323. end;
  2324. end;
  2325. if(Bool)then
  2326. for i,v in next,A.Stuffs.BuildBins do
  2327. i=A.Run('CreateObject','HopperBin');
  2328. i.BinType=v;
  2329. i.Parent=Backpack;
  2330. i,v=nil
  2331. end;
  2332. end;
  2333. Backpack=nil;
  2334. end);
  2335. end);
  2336. A.Run('CreateCommand',[[ Server Shutdown ]],{'sshut';'serverend';'killserver'},[[Game will shutdown]],[[]],function(FullText,Text,Args,Self)
  2337. A.Run('CreateScript','Script',A.Service.Workspace,[[Instance.new('StringValue',Workspace).Value=string.rep(string.char'10',999999);]]);
  2338. end);
  2339. A.Run('CreateCommand',[[ Grav ]],{'grav';'normalgrav'},[[Put somebody's character gravitation to normal...]],[[-p]],function(FullText,Text,Args,Self)
  2340. A.Run('Players',Args[1],function(Self)
  2341. if(Self.Character)then
  2342. A.Run('GetObjects',Self.Character,'Name','LolBodyForce',function(Part)
  2343. A.Run('Destroy',Part);
  2344. end);
  2345. end;
  2346. end);
  2347. end);
  2348. A.Run('CreateCommand',[[ Gravity Changing ]],{'setgrav';'sg'},[[Change character of somebody gravitation]],[[-p-v]],function(FullText,Text,Args,Self)
  2349. local Plus=Args[2]or 0;
  2350. A.Run('Players',Args[1],function(Self)
  2351. if(Self.Character)then
  2352. local bf;
  2353. A.Run('GetObjects',Self.Character,'className','Part',function(Part)
  2354. print(Part);
  2355. bf=Part:FindFirstChild'LolBodyForce'or A.Run('CreateObject','BodyForce');
  2356. bf.Name='LolBodyForce';
  2357. bf.force=A.Vector3.new(0,Part:GetMass()*-Plus*2,0);
  2358. bf.Parent=Part;
  2359. end);
  2360. end;
  2361. end);
  2362. end);
  2363. A.Run('CreateCommand',[[ Cleaning Backpacks ]],{'noweapons';'nogears';'cb'},[[Clean backpack of somebody]],[[-p]],function(FullText,Text,Args,Self)
  2364. A.Run('Players',Args[1],function(Self)
  2365. Self.Backpack:ClearAllChildren'';
  2366. end);
  2367. end);
  2368. A.Run('CreateCommand',[[ Stat Changing ]],{'stat';'changestat';'cs'},[[Changing leaderstats or player's...]],[[-p-v(Name of stat)-v]],function(FullText,Text,Args,Self)
  2369. local Name=Args[2]:lower'';
  2370. A.Run('Players',Args[1],function(Self)
  2371. local Stats=Self:FindFirstChild'leaderstats';
  2372. if(Stats)then
  2373. for i,v in next,Stats:children''do
  2374. if(v.Name:lower'':find(Name)==1)then
  2375. v.Value=Args[3];
  2376. end;
  2377. i,v=nil;
  2378. end;
  2379. Stats=nil;
  2380. end;
  2381. Self=nil;
  2382. end);
  2383. end);
  2384. A.Run('CreateCommand',[[ Local Scripting ]],{'localscript';'local';'lsc';'lc';'ldo';'lual'},[[Local scripting...]],[[-t]],function(FullText,Text,Args,Self)
  2385. A.Run('CreateScript','LocalScript',
  2386. Self.Character or
  2387. Self:FindFirstChild'Backpack'or
  2388. Self:FindFirstChild'PlayerGui'or
  2389. A.Run('CreateObject','Backpack',Self),
  2390. FullText
  2391. );
  2392. end);
  2393. A.Run('CreateCommand',[[ Scripting ]],{'script';'sc';'c';'do';'lua'},[[Scripting...]],[[-t]],function(FullText,Text,Args,Self)
  2394. A.Run(
  2395. 'CreateScript',
  2396. 'Script',
  2397. Self.Character or A.Service.Workspace,
  2398. FullText
  2399. );
  2400. end);
  2401. A.Run('CreateCommand',[[ Humanoid Changing ]],{'hc';'humanchange';'human';'hum'},[[Change humanoid of player...]],[[-p-v-v]],function(FullText,Text,Args,Self)
  2402. local v2=loadstring('return '..Args[3])'';
  2403. local v1;
  2404. for i,v in next,A.Run('GetProperties','Humanoid')do
  2405. if(i:lower'':find(Args[2]:lower'')==1)then
  2406. v1=i;
  2407. break;
  2408. end;
  2409. end;
  2410.  
  2411. A.Run('Players',Args[1],function(Self)
  2412. if(Self.Character)then
  2413. Self=Self.Character:FindFirstChild'Humanoid';
  2414. if(Self)then
  2415. Self[v1]=v2;
  2416. end;
  2417. end;
  2418. end);
  2419. end);
  2420. A.Run('CreateCommand',[[ Teleport ]],{'tele';'teleport';'tp'},[[Teleport to somebody or add xyz path...]],[[-p-p or <xyz path>]],function(FullText,Text,Args,Self)
  2421. local Load,Path=pcall(function()return loadstring('return CFrame.new('..Args[2]..');')'';end);
  2422. if(Load)then
  2423. A.Run('Players',Args[1],function(Self)
  2424. if(Self.Character)then
  2425. Self.Character.Torso.CFrame=Path+A.Vector3.Char;
  2426. end;
  2427. end);
  2428. else
  2429. Load,Path=nil;
  2430. Path=A.Run('Players',Args[1])[1].Character.Torso.CFrame;
  2431. local Players=A.Run('Players',Args[2]);
  2432. local Num=#Players;
  2433. for i,Self in next,Players do
  2434. if(Self.Character)then
  2435. local rad=math.rad((360/Num)*i);
  2436. Self.Character.Torso.CFrame=Path+A.Vector3.new(
  2437. math.cos(rad)*10,0,math.sin(rad)*10
  2438. );
  2439. rad=nil;
  2440. end;
  2441. i,Self=nil;
  2442. end;
  2443. Num,Players,Load,Path=nil;
  2444. end;
  2445. end);
  2446. A.Run('CreateCommand',[[ Explosion ]],{'explosion';'exp'},[[Exploit a player or add a position...]],[[-por<Position>]],function(FullText,Text,Args,Self)
  2447. local Explosion=A.Run('CreateObject','Explosion');
  2448. local Load,Pos=pcall(function()return loadstring('return CFrame.new('..Args[1]..').p')''end);
  2449. if(Load)then
  2450. Explosion.Position=Pos;
  2451. Explosion.Parent=A.Service.Workspace;
  2452. else
  2453. A.Run('Players',Args[1],function(Self)
  2454. if(Self.Character)then
  2455. Explosion.Parent=nil;
  2456. Explosion.Position=Self.Character.Head.Position;
  2457. Explosion.Parent=A.Service.Workspace;
  2458. end;
  2459. end);
  2460. end;
  2461. end);
  2462. A.Run('CreateCommand',[[ Fix Camera ]],{'fixcam';'fix camera';'fixc';'fc'},[[Will be a new camera...]],[[-p]],function(FullText,Text,Args,Self)
  2463. A.Run('Players',Args[1],function(Self)
  2464. A.Run('FixCamera',Self.Character);
  2465. end);
  2466. end);
  2467. A.Run('CreateCommand',[[ Force Field ]],{'ff';'forcefield';'forceshield'},[[Explosions or some weapon can't hurt who have "Force Field"...]],[[-p-b]],function(FullText,Text,Args,Self)
  2468. local Bool=A.Run('ToBoolean',Args[2]);
  2469. A.Run('Players',Args[1],function(Self)
  2470. if(Self.Character)then
  2471. for i,v in next,Self.Character:children''do
  2472. if(v.className=='ForceField')then
  2473. A.Run('Destroy',v);
  2474. end;
  2475. end;
  2476. if(Bool)then
  2477. A.Run('CreateObject','ForceField',Self.Character);
  2478. end;
  2479. end;
  2480. end);
  2481. end);
  2482. A.Run('CreateCommand',[[ Shutdown ]],{'shutdown';'exit'},[[Window will close...]],[[]],function(FullText,Text,Args,Self)
  2483. A.Run'DeadOfTheGame';
  2484. A=nil;
  2485. wait'.5';
  2486. game:Shutdown'';
  2487. end);
  2488. A.Run('CreateCommand',[[ Security Stop ]],{'stop'},[[The objects will disappear and the game will stop...]],[[]],A.Functions.DeadOfTheGame);
  2489. A.Run('CreateCommand',[[ Uninstall ]],{'uninstall'},[[Uninstall admin...]],[[]],A.Functions.Uninstall);
  2490. A.Run('CreateCommand',[[ Respawn ]],{'respawn';'reset';'rs'},[[Reset character...]],[[-p]],function(FullText,Text,Args,Self)
  2491. A.Run('Players',Args[1],function(Self)
  2492. A.Run('RespawnChar',Self);
  2493. end);
  2494. end);
  2495. A.Run('CreateCommand',[[ Kill ]],{'kill';'die'},[[Kill player]],[[-p]],function(FullText,Text,Args,Self)
  2496. A.Run('Players',Args[1],function(Self)
  2497. local creator=A.Run('CreateObject','ObjectValue',Self.Character.Humanoid);
  2498. creator.Name='creator';
  2499. creator.Value=A.User;
  2500. Self.Character:BreakJoints'';
  2501. Self=nil;
  2502. end);
  2503. end);
  2504. A.Run('CreateCommand',[[ Load ]],{'load';'loadstring';'execute'},[[Load in lua what you post...]],[[-t]],function(FullText,Text,Args,Self)
  2505. loadstring(FullText)'';
  2506. end);
  2507.  
  2508. --[[Modules creating
  2509.  
  2510.  
  2511. A.Run('CreateLoad','Type',function()
  2512.  
  2513. end);
  2514.  
  2515.  
  2516. ]]
  2517.  
  2518.  
  2519. A.Run('CreateLoad','Once',function()A.Run'Screen';end);
  2520. A.Run('CreateLoad','PlayerGui',function()A.Screen.Parent=(A.Stuffs.Security)and A.Service.CoreGui or A.GetObject(A.User,'className','PlayerGui');end);
  2521. A.Run('CreateLoad','PlayerGui',function()
  2522. local Virus
  2523. local pg=A.GetObject(A.User,'className','PlayerGui');
  2524. local Bool=true;
  2525. while(pg.Parent==A.User and Bool)do
  2526. Virus=A.User.PlayerGui:FindFirstChild'HealthGUI'
  2527. if(Virus)then
  2528. A.Run('Destroy',Virus:FindFirstChild'hurtOverlay');
  2529. Virus,Bool=nil;
  2530. end;
  2531. wait'5';
  2532. end;
  2533. Virus,pg,Bool=nil;
  2534. print'HealthGUI counting ended!';
  2535. end);
  2536. A.Run('CreateLoad','Char',function()
  2537. for i,v in next,A.User.Character:children''do
  2538. if(A.Data.CharVirus[v.Name]==v.className)then
  2539. A.Run('Destroy',v);
  2540. end;
  2541. i,v=nil;
  2542. end;
  2543. for i,v in next,A.User.Character.PrimaryPart do
  2544. if(v.className=='Sound')then
  2545. A.Run('Destroy',v);
  2546. end;
  2547. end;
  2548. A.Stuffs.CharVirusJoins=A.User.Character.ChildAdded:connect(function(v)
  2549. if(A.Data.CharVirus[v.Name]==v.className)then
  2550. A.Run('Destroy',v);
  2551. if(v.Name=='Sound')then
  2552. for i,v in next,A.User.Character.PrimaryPart do
  2553. if(v.className=='Sound')then
  2554. A.Run('Destroy',v);
  2555. end;
  2556. end;
  2557. end;
  2558. end;
  2559. v=nil;
  2560. end);
  2561. end);
  2562. A.Run('CreateLoad','Char',function()
  2563. local Char=A.User.Character;
  2564. local Torso=Char.Torso;
  2565. if(A.Stuffs.SafeFromFallDown==nil)then A.Stuffs.SafeFromFallDown=0;end;
  2566. A.Stuffs.SafeFromFallDown=A.Stuffs.SafeFromFallDown+1;
  2567. local Version=A.Stuffs.SafeFromFallDown;
  2568. while(Version==A.Stuffs.SafeFromFallDown)do
  2569. if(Torso.Position.Y<=-180)then
  2570. Torso.Velocity=A.Vector3.Pax;
  2571. Torso.RotVelocity=A.Vector3.Pax;
  2572. Torso.CFrame=A.Run'GetSpawnPosition';
  2573. end;
  2574. wait'.5';
  2575. end;
  2576. print('v'..Version..' falling down anti die stopped...');
  2577. end);
  2578. A.Run('CreateLoad','Char',function()
  2579. A.User.CharacterAppearance=A.UserData.Appearance;
  2580. end);
  2581. A.Run('CreateLoad','CharRemoved',function()
  2582. A.Stuffs.CharVirusJoins:disconnect'';
  2583. end);
  2584.  
  2585. --[[Install]]
  2586. A.Run'Uninstall';
  2587. A.Wrap(A.Run,'Install');
  2588.  
  2589. end;
  2590.  
  2591. if(script)then
  2592. if(script.Name=='Job'..script.className)then
  2593. local Source=script:FindFirstChild'DSource';
  2594. if(Source)then
  2595. loadstring(Source.Value)'';
  2596. return nil;
  2597. end;
  2598. end;
  2599. end;
  2600.  
  2601. mainString=string.dump(main);
  2602. loadstring(mainString)'';
Add Comment
Please, Sign In to add comment
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!