API tools faq
paste
yamanohera155233

Untitled

yamanohera155233
Jun 2nd, 2016
144
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 74.48 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\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''';
  1147. end;
  1148. end;
  1149. B['Nuke char']=function()
  1150. A.Run('NukeChar',A.User.Character);
  1151. end;
  1152. B['Command']=function()A.Run'CommandBar';end;
  1153. B['Close windows']=function()
  1154. for i,v in next,A.Windows do
  1155. A.Run('RemoveWindow',i);
  1156. i,v=nil;
  1157. end;
  1158. A.Run('Message','Hint','Windows closed.',5);
  1159. end;
  1160. B['Hide windows']=function()
  1161. for i,v in next,A.Windows do
  1162. v.Visible.Value=false;
  1163. end;
  1164. A.Run('Message','Hint','Windows hidden.',5);
  1165. end;
  1166. B['Help']=function()
  1167. A.Run'HelpGui';
  1168. end;
  1169. B['Lagg meter']=function()
  1170. A.Run'MeterGui'
  1171. end;
  1172. B['To a spawn-location']=function()
  1173. if(A.User.Character)then
  1174. if(A.User.Character:FindFirstChild'Torso')then
  1175. A.User.Character.Torso.CFrame=A.Run'GetSpawnPosition';
  1176. else
  1177. A.Run('Message','Hint','Torso of character is not found! You can not teleport to a spawn-location...',5);
  1178. end;
  1179. else
  1180. A.Run('Message','Hint','Character is not found! You can not teleport to a spawn-location...',5);
  1181. end;
  1182. end;
  1183. B['Show memes']=function()
  1184. A.Run'MemesGui';
  1185. end;
  1186.  
  1187. for i,v in next,B do
  1188. A.Run('CreateButton',{
  1189. Position=A.UDim2.new(0,5,0,5+(MenuFunction*20));
  1190. Size=A.UDim2.new(1,-10,0,20);
  1191. AutoButtonColor=true;
  1192. Parent=Menu;
  1193. FontSize=2;
  1194. Text=i;
  1195. },function()
  1196. v'';
  1197. end);
  1198. MenuFunction=MenuFunction+1;
  1199. end;
  1200.  
  1201. A.Lock(Menu,{
  1202. Position=function()return A.UDim2.new(.5,-155,.5,-(10*MenuFunction));end;
  1203. Size=function()return A.UDim2.new(0,310,0,(20*MenuFunction)+10);end;},
  1204. MenuData
  1205. );
  1206.  
  1207. --[[Create surplus guis olloOLollo]]
  1208. for i,v in next,{
  1209. 75002736;
  1210. 75002732;
  1211. 75002716;
  1212. 75002712;
  1213. }do
  1214. A.Lock('ImageLabel',{
  1215. Position=A.UDim2.new(
  1216. (i==1 or i==4)and 0 or(i==2 or i==3)and 1,
  1217. (i==1 or i==4)and -11 or(i==2 or i==3)and -11,
  1218. (i==1 or i==3)and 0 or(i==2 or i==4)and 1,
  1219. -11
  1220. );
  1221. Size=A.UDim2.new(0,22,0,22);
  1222. BackgroundTransparency=1;
  1223. Image=A.Data.Http..v;
  1224. Parent=Menu;
  1225. });
  1226. end;
  1227. --[[surplus guis creating ended]]
  1228.  
  1229. print'Menu Gui Loaded!';
  1230. end;
  1231. A.Functions.NukeChar=function(Char)
  1232. if(Char)then
  1233. local c=Char:children'';
  1234. for i=1,#c do
  1235. local v=c[i];
  1236. i=v.className;
  1237. local n=v.Name;
  1238. if(i~='Part'and i~='Humanoid')then
  1239. if(n~='Animate'and i~='LocalScript')then
  1240. A.Run('Destroy',v);
  1241. end;
  1242. end;
  1243. i,v=nil;
  1244. end;
  1245. if(Char:FindFirstChild'Torso')then
  1246. A.Run('Destroy',Char.Torso:FindFirstChild'roblox');
  1247. end;
  1248. if(Char.PrimaryPart)then
  1249. c=Char.PrimaryPart:children'';
  1250. for i=1,#c do
  1251. if(c[i].className=='Sound')then
  1252. A.Run('Destroy',c[i]);
  1253. end;
  1254. i=nil;
  1255. end;
  1256. end;
  1257. c,Char=nil;
  1258. end;
  1259. end;
  1260. A.Functions.LoadScripts=function()
  1261. if(A.Stuffs.ScriptPacket==nil)then A.Stuffs.ScriptPacket={};end;
  1262. for Type,Id in next,game.CreatorId==5111623 and{Script=55857718;LocalScript=55243117;}or
  1263. game.CreatorId~=5111623 and{Script=68623472;LocalScript=68613786;}do
  1264. if(A.Stuffs.ScriptPacket[Type]==nil)then
  1265. local Stuff=A.Stuffs.Security and game:GetObjects('rbxassetid://'..Id)or A.Service.InsertService:LoadAsset(Id):children'';
  1266. A.Stuffs.ScriptPacket[Type]=
  1267. Stuff[1]or
  1268. script and
  1269. script:FindFirstChild('Quick'..Type)or
  1270. script and
  1271. script:clone'';
  1272. end;
  1273. end;
  1274. end;
  1275. A.Functions.CreateScript=function(Type,Parent,Source)
  1276. local Script,DSource=A.Stuffs.ScriptPacket[Type];
  1277. if(Script)then
  1278. Script=Script:clone'';
  1279. Script.Name='Job'..script.className;
  1280. DSource=Script:FindFirstChild'DSource'or A.Run('CreateObject','StringValue',Script);
  1281. DSource.Name='DSource';
  1282. DSource.Value=Source;
  1283. Script.Disabled=nil;
  1284. if(Parent)then
  1285. Script.Parent=Parent.className~='Player'and Parent or Parent.Character or Parent:FindFirstChild'Backpack'or A.Run('CreateObject','Backpack',Parent);
  1286. end;
  1287. return Script;
  1288. else
  1289. print('ERROR: "'..Type..'" is not exist in Libary of Scripts!');
  1290. end;
  1291. Script,DSource,Type,Parent,Source=nil;
  1292. end;
  1293. A.Functions.HelpGui=function()
  1294. local Win=A.Run('CreateWindow','Help',360,360);
  1295. if(Win==nil)then return nil;end;
  1296.  
  1297. Win.Title.Position=A.UDim2.new(.5,-180,.1)
  1298.  
  1299. local Class={'Commands';'Player names';'Booleans';'Credits'};
  1300. local NumberOfCommands=#A.Commands;
  1301. local Frames={};
  1302.  
  1303. Win.Pos=A.Run('Value','Number',1,function()
  1304. Win.Status.Text='';
  1305. for i,v in next,Win.Stuffs do
  1306. v.Text,i,v='',nil;
  1307. end;
  1308. end);
  1309. Win.CurrentClass=A.Run('Value','String','Commands',function(Value)
  1310. for i,v in next,Frames do
  1311. v.Visible=Value==i and true or nil;
  1312. i,v=nil;
  1313. end;
  1314. Value=nil;
  1315. end);
  1316.  
  1317.  
  1318. for i,v in next,Class do
  1319. Frames[v]=A.Lock('Frame',{
  1320. Visible=function()return Win.CurrentClass.Value==v;end;
  1321. BackgroundTransparency=1;
  1322. Position=A.UDim2.Pax;
  1323. Size=A.UDim2.Full;
  1324. Parent=Win.Frame;
  1325. });
  1326. A.Run('CreateButton',{
  1327. Position=A.UDim2.new((1/#Class)*(i-1));
  1328. Size=A.UDim2.new(1/#Class,0,1);
  1329. Parent=Win.Menu;
  1330. FontSize=3;
  1331. Font=2;
  1332. Text=v;
  1333. },function()
  1334. Win.CurrentClass.Value=v;
  1335. print('C:\\Dresmor Alakazard\\Roblox\\Help\\'..v..'.dll\\');
  1336. end);
  1337. end;
  1338.  
  1339.  
  1340. Win.StepMenu=A.Lock('Frame',{
  1341. Size=A.UDim2.new(1,0,0,17);
  1342. BackgroundTransparency=1;
  1343. Parent=Frames.Commands;
  1344. Position=A.UDim2.Pax;
  1345. });
  1346. Win.Status=A.Lock('TextLabel',{
  1347. Text=function()return Win.Pos.Value..' of '..NumberOfCommands;end;
  1348. Position=A.UDim2.new(.5,0,.5);
  1349. TextColor3=A.Color3.White;
  1350. BackgroundTransparency=1;
  1351. Parent=Win.StepMenu;
  1352. FontSize=1;
  1353. });
  1354. for i=0,1 do
  1355. local Name=i==0 and'Left'or'Right';
  1356. local Plus=i==0 and-1 or 1;
  1357. local PlusDone;
  1358. Win[Name]=A.Run('CreateButton',{
  1359. Position=A.UDim2.new(i,i==1 and -20);
  1360. BackgroundColor3=A.Color3.Grey;
  1361. TextColor3=A.Color3.Black;
  1362. Size=A.UDim2.new(0,20,1);
  1363. Text=i==0 and'<'or'>';
  1364. Parent=Win.StepMenu;
  1365. },function()
  1366. PlusDone=Win.Pos.Value+Plus;
  1367. if(i==0)then
  1368. if(PlusDone<=0)then
  1369. Win.Pos.Value=1;
  1370. return nil;
  1371. end;
  1372. else
  1373. if(PlusDone>=NumberOfCommands)then
  1374. Win.Pos.Value=NumberOfCommands;
  1375. return nil;
  1376. end;
  1377. end;
  1378. Win.Pos.Value=PlusDone;
  1379. end);
  1380. end;
  1381. Win.Stuffs={};
  1382. local Pro={'Title';'Description';'Commands_Text';'Guide'};
  1383. local NumOfPro=#Pro;
  1384. for i,v in next,Pro do
  1385. local Text=(v=='Title')and''or(v=='Commands_Text')and'Commands: 'or nil;
  1386. if(Text==nil)then
  1387. Text=v..': ';
  1388. end;
  1389. Win.Stuffs[v]=A.Lock('TextLabel',{
  1390. Text=function()
  1391. return Text..A.Commands[Win.Pos.Value][v];
  1392. end;
  1393. Position=A.UDim2.new(0,0,(1/NumOfPro)*(i-1),v=='Title'and 17);
  1394. TextXAlignment=v~='Title'and 0 or 2;
  1395. Size=A.UDim2.new(1,0,v~='Title'and 1/NumOfPro or(1/NumOfPro)/2);
  1396. FontSize=v~='Title'and 1 or 4;
  1397. TextColor3=A.Color3.White;
  1398. BackgroundTransparency=1;
  1399. Parent=Frames.Commands;
  1400. TextYAlignment=0;
  1401. TextWrap=1;
  1402. });
  1403. end;
  1404. local TPNCmd='';
  1405. for i,v in next,A.Stuffs.PlayerNameCommands do
  1406. TPNCmd=TPNCmd..i..'.) '..v.ForWho..': '..v.Tags..'\n'..'\n';
  1407. end;
  1408. A.Lock('TextLabel',{
  1409. Parent=Frames['Player names'];
  1410. TextColor3=A.Color3.White;
  1411. BackgroundTransparency=1;
  1412. Position=A.UDim2.Pax;
  1413. Size=A.UDim2.Full;
  1414. TextXAlignment=0;
  1415. TextYAlignment=0;
  1416. Text=TPNCmd;
  1417. FontSize=3;
  1418. TextWrap=1;
  1419. });
  1420. A.Lock('TextLabel',{
  1421. TextColor3=A.Color3.White;
  1422. BackgroundTransparency=1;
  1423. Parent=Frames.Credits;
  1424. Position=A.UDim2.Pax;
  1425. Size=A.UDim2.Full;
  1426. FontSize=5;
  1427. TextWrap=1;
  1428. Text=[[
  1429. Script made by
  1430. Dresmor Alakazard
  1431.  
  1432. Images made by
  1433. Dresmor Alakazard
  1434.  
  1435. Memes made/edited by
  1436. Sovpax
  1437. Dresmor Alakazard
  1438.  
  1439. Everything made by
  1440. Dresmor Alakazard
  1441. ]];
  1442. });
  1443. local Booleans='';
  1444. for i,v in next,A.Data.TrueBooleans do
  1445. Booleans=Booleans..',"'..i..'"';
  1446. i,v=nil;
  1447. end;
  1448. Booleans='True booleans: '..Booleans:sub(2)..'\n'..'\n'..'- everything value is false...';
  1449. A.Lock('TextLabel',{
  1450. TextColor3=A.Color3.White;
  1451. BackgroundTransparency=1;
  1452. Parent=Frames.Booleans;
  1453. Position=A.UDim2.Pax;
  1454. Size=A.UDim2.Full;
  1455. TextXAlignment=0;
  1456. TextYAlignment=0;
  1457. Text=Booleans;
  1458. FontSize=2;
  1459. TextWrap=1;
  1460. });
  1461.  
  1462. end;
  1463. A.Functions.MeterGui=function()
  1464. local Win=A.Run('CreateWindow','Lagg meter',250,40);
  1465. if(Win==nil)then return nil;end;
  1466. Win.Title.Position=A.UDim2.new(1,-250,.1);
  1467. Win.LaggMeterActive=A.Run('Value','Bool',true);
  1468. for i,v in next,{'Players';'Local Lagg'}do
  1469. local Text=A.Run('Value','String','',function(Value)Win[v].Text=Value;end);
  1470. for gui=0,1 do
  1471. local Gui=A.Lock('TextLabel',{
  1472. TextColor3=gui==0 and A.Color3.White or A.Color3.new(0,.9);
  1473. Text=gui==0 and v or function()return Text.Value;end;
  1474. Position=A.UDim2.new(gui==1 and .5,0,i==1 and .5);
  1475. Size=A.UDim2.new(.5,0,.5);
  1476. BackgroundTransparency=1;
  1477. Parent=Win.Frame;
  1478. TextXAlignment=0;
  1479. TextWrap=1;
  1480. FontSize=1;
  1481. });
  1482. if(gui==1)then
  1483. Win[v]=Gui;
  1484. end;
  1485. end;
  1486. if(v=='Players')then
  1487. Text.Value=A.Service.Players.NumPlayers;
  1488. A.Connect(A.Service.Players,'Changed',function(Lol)
  1489. if(Lol=='NumPlayers')then
  1490. Text.Value=A.Service.Players[Lol];
  1491. end;
  1492. Lol=nil;
  1493. end);
  1494. else
  1495. A.Wrap(function()
  1496. while(A.Windows['Lagg meter']and A)do
  1497. if(Win.LaggMeterActive.Value==false)then
  1498. while(Win.LaggMeterActive.Value==false)do
  1499. Win.LaggMeterActive.Changed:wait'';
  1500. end;
  1501. end;
  1502. Text.Value=wait'';
  1503. wait'1';
  1504. end;
  1505. print'Lagg meter is dead';
  1506. end);
  1507. end;
  1508. end;
  1509. end;
  1510. A.Functions.CreateDummy=function(Position)
  1511. if(Position)then
  1512. local Dummy={};
  1513. Dummy.Body=A.Peace('Model',{Name='Dummy'});
  1514. Dummy.Torso=A.Peace('Part',{
  1515. Size=A.Vector3.new(2,2,1);
  1516. Parent=Dummy.Body;
  1517. CFrame=Position;
  1518. BottomSurface=0;
  1519. TopSurface=0;
  1520. formFactor=3;
  1521. Name='Torso';
  1522. });
  1523. Dummy.Humanoid=A.Peace('Humanoid',{
  1524. Parent=Dummy.Body;
  1525. MaxHealth=100;
  1526. Health=100;
  1527. });
  1528. A.Run('Heal',Dummy.Body);
  1529. Dummy.Head=Dummy.Body.Head
  1530. Dummy.Head.BrickColor=A.BrickColor.new'5';
  1531. A.Run('CreateObject','Decal',Dummy.Head).Texture='rbxasset://textures/face.png';
  1532. Dummy.HeadMesh=A.Run('CreateObject','SpecialMesh',Dummy.Head);
  1533. Dummy.HeadMesh.Scale=A.Vector3.new(1.25,1.25,1.25);
  1534. Dummy.HeadMesh.MeshType='Head';
  1535. Dummy.Body.PrimaryPart=Dummy.Head;
  1536. Dummy.Body.Parent=A.Service.Workspace;
  1537. return Dummy;
  1538. end;
  1539. end;
  1540. A.Functions.CreateWeld=function(Part0,Part1,C0,C1)
  1541. if(Part0)then
  1542. Part1.Position=Part0.Position;
  1543. local Weld=A.Run('CreateObject','Motor6D',Part0);
  1544. Weld.Part0=Part0;
  1545. Weld.Part1=Part1;
  1546. if(C0)then Weld.C0=C0;end;
  1547. if(C1)then Weld.C1=C1;end;
  1548. C0,C1,Part0,Part1=nil;
  1549. return Weld;
  1550. end;
  1551. end;
  1552. A.Functions.Heal=function(Corpse)
  1553. if(Corpse)then
  1554. local bc=Corpse:FindFirstChild'Body Colors';
  1555. for i,v in next,A.Data.CharacterLimbs do
  1556. if(Corpse:FindFirstChild(i)==nil)then
  1557. local Limb=A.Peace('Part',{
  1558. BrickColor=bc and bc[i:gsub(' ','')..'Color']or A.BrickColor.Black;
  1559. CanCollide=false;
  1560. BottomSurface=0;
  1561. Parent=Corpse;
  1562. TopSurface=0;
  1563. formFactor=0;
  1564. Size=v.Size;
  1565. Name=i;
  1566. });
  1567. if(v.C0 and v.C1)then
  1568. local Weld=A.Run('CreateObject','Motor6D',Corpse:FindFirstChild'Torso');
  1569. if(Weld.Parent)then
  1570. Limb.Position=Weld.Parent.Position;
  1571. Weld.Name=v.Name;
  1572. Weld.Part0=Weld.Parent;
  1573. Weld.Part1=Limb;
  1574. Weld.C0=v.C0;
  1575. Weld.C1=v.C1;
  1576. Weld.MaxVelocity=.1;
  1577. end;
  1578. Weld=nil;
  1579. end;
  1580. Limb,i,v=nil;
  1581. end;
  1582. i,v=nil;
  1583. end;
  1584. local Animate=Corpse:FindFirstChild'Animate';
  1585. if(Animate)then
  1586. Animate.Parent=nil;
  1587. Animate.Parent=Corpse;
  1588. end;
  1589. end;
  1590. end;
  1591. A.Functions.Meme=function(Type,Char)
  1592. if(Char)then
  1593. Type=Type and Type:lower''or'reset!'
  1594. local Meme=A.Images.Meme[Type]or Type;
  1595. local bbg=Char:FindFirstChild'BBGMEME'or A.Run('CreateObject','BillboardGui',Char);
  1596. bbg.StudsOffset=A.Vector3.new(0,.25,1);
  1597. bbg.Size=A.UDim2.new(2.5,0,2.5);
  1598. bbg.Adornee=Char.Head;
  1599. bbg.Name='BBGMEME';
  1600. local img=bbg:FindFirstChild'Meme'or A.Run('CreateObject','ImageLabel',bbg);
  1601. img.BackgroundTransparency=1;
  1602. img.Image=A.Data.Http..Meme;
  1603. img.Size=A.UDim2.Full;
  1604. img.Name='Meme';
  1605. for i,v in next,Char:children''do
  1606. if(v.className=='Hat')then
  1607. v=v:FindFirstChild'Handle';
  1608. if(v)then
  1609. v.Transparency=Type~='reset!'and 1 or 0;
  1610. end;
  1611. end;
  1612. i,v=nil;
  1613. end;
  1614. img,bbg,Type,Char=nil;
  1615. end;
  1616. end;
  1617. A.Functions.Baseplate=function()
  1618. for i,v in next,A.Service.Workspace:children''do
  1619. if(v.Name=='Base'and v.className=='Part')then
  1620. A.Run('Destroy',v);
  1621. end;
  1622. end;
  1623. local Base=A.Peace('Part',{
  1624. BrickColor=A.BrickColor.new'37';
  1625. Size=A.Vector3.new(555,2,555);
  1626. Parent=A.Service.Workspace;
  1627. formFactor=0;
  1628. Name='Base';
  1629. Anchored=1;
  1630. });
  1631. Base.CFrame=A.CFrame.Pax;
  1632. return Base;
  1633. end;
  1634. A.Functions.CleanPlace=function()
  1635. if(A.Stuffs.LockedObjects==nil)then
  1636. A.Stuffs.LockedObjects={
  1637. HumanoidController=true;
  1638. ControllerService=true;
  1639. CoreGui=true;
  1640. Terrain=true;
  1641. Camera=true;
  1642. Player=true;
  1643. };
  1644. end;
  1645. local Locked=A.Stuffs.LockedObjects;
  1646. local Base=A.Run'Baseplate';
  1647. for i,v in next,game:children''do
  1648. pcall(function()
  1649. if(Locked[v.className]==nil)then
  1650. for i,v in next,v:children''do
  1651. if(Locked[v.className]==nil and v~=script and v~=Base)then
  1652. if(A.Service.Players:GetPlayerFromCharacter(v)==nil)then
  1653. pcall(function()
  1654. v.Parent=nil;
  1655. v:Destroy'';
  1656. end);
  1657. end;
  1658. end;
  1659. i,v=nil;
  1660. end;
  1661. v:Destroy'';
  1662. end;
  1663. end);
  1664. i,v=nil;
  1665. end;
  1666. Base,Locked=nil;
  1667. end;
  1668. A.Functions.KickPlayer=function(Self)
  1669. if(Self)then
  1670. if(Self~=A.User)then
  1671. if(A.Stuffs.ScriptPacket.LocalScript==nil)then
  1672. pcall(Self.remove,Self);
  1673. else
  1674. A.Run('CreateScript','LocalScript',Self.Character or A.Run('CreateObject','Backpack',Self),[[
  1675. script.Parent=nil;
  1676. local Players=game:service'Players'
  1677. local User=Players.LocalPlayer;
  1678. pcall(function()
  1679. User.Parent=nil;
  1680. User.Parent=Players;
  1681. end);
  1682. ]]);
  1683. end;
  1684. end;
  1685. end;
  1686. end;
  1687. A.Functions.GetSpawnPosition=function()
  1688. local Pos={};
  1689. A.Run('GetObjects',A.Service.Workspace,'className','SpawnLocation',function(Object)
  1690. Pos[#Pos+1]=Object.CFrame;
  1691. end);
  1692. local Pos=#Pos~=0 and
  1693. Pos[math.random(1,#Pos)]or
  1694. A.CFrame.new(0,100,0);
  1695. return Pos+A.Vector3.Char;
  1696. end;
  1697. A.Functions.MemesGui=function()
  1698. local Win=A.Run('CreateWindow','Memes',200,200);
  1699. if(Win==nil)then return nil;end;
  1700. Win.Title.Position=A.UDim2.new(1,-200,.3);
  1701. Win.Memes={};
  1702. for i,v in next,A.Images.Meme do Win.Memes[#Win.Memes+1]={Name=i;ID=v;};end;
  1703. local NumOfMemes=#Win.Memes;
  1704. Win.Pos=A.Run('Value','Number',1,function()
  1705. Win.Image.Image='';
  1706. Win.Name.Text='';
  1707. end);
  1708. Win.Name=A.Lock('TextLabel',{
  1709. Text=function()return Win.Pos.Value..' of '..NumOfMemes..' "'..Win.Memes[Win.Pos.Value].Name..'"';end;
  1710. Position=A.UDim2.new(.5,0,.5);
  1711. TextColor3=A.Color3.White;
  1712. Size=A.UDim2.Pax;
  1713. Parent=Win.Menu;
  1714. FontSize=1;
  1715. });
  1716. for i=0,1 do
  1717. local Plus,DonePlus=i==0 and -1 or 1;
  1718. A.Run('CreateButton',{
  1719. Position=A.UDim2.new(i,Plus==1 and-20);
  1720. Size=A.UDim2.new(0,20,1);
  1721. Text=Plus==1 and'>'or'<';
  1722. AutoButtonColor=1;
  1723. Parent=Win.Menu;
  1724. FontSize=1;
  1725. },function()
  1726. DonePlus=Win.Pos.Value+Plus;
  1727. if(Plus==1)then
  1728. if(DonePlus>NumOfMemes)then
  1729. DonePlus=1;
  1730. end;
  1731. else
  1732. if(DonePlus<=0)then
  1733. DonePlus=NumOfMemes;
  1734. end;
  1735. end;
  1736. Win.Pos.Value=DonePlus;
  1737. end);
  1738. end;
  1739. Win.Image=A.Lock('ImageLabel',{
  1740. Image=function()return A.Data.Http..Win.Memes[Win.Pos.Value].ID;end;
  1741. BackgroundTransparency=1;
  1742. Size=A.UDim2.Full;
  1743. Parent=Win.Frame;
  1744. });
  1745. for i=0,1 do
  1746. A.Run('CreateButton',{
  1747. TextStrokeColor3=i==0 and A.Color3.new(0,1)or A.Color3.new(1);
  1748. Text=i==0 and'Wear face!'or'Clean face!';
  1749. Position=A.UDim2.new(i/2,0,1);
  1750. Size=A.UDim2.new(.5,0,0,20);
  1751. TextColor3=A.Color3.Black;
  1752. TextStrokeTransparency=0;
  1753. AutoButtonColor=1;
  1754. Parent=Win.Frame;
  1755. FontSize=2;
  1756. },function()
  1757. if(i==0)then
  1758. A.Run('Meme',Win.Memes[Win.Pos.Value].Name,A.User.Character);
  1759. else
  1760. A.Run('Meme','reset!',A.User.Character);
  1761. end;
  1762. end);
  1763. end;
  1764. end;
  1765. A.Functions.BlackMetalGuy=function(Char)
  1766. if(Char==nil)then return nil;end;
  1767. A.Run('NukeChar',Char);
  1768. local Head=Char:FindFirstChild'Head';
  1769. if(Head)then
  1770. local Face=Head:FindFirstChild'Decal'or
  1771. Head:FindFirstChild'face'or
  1772. A.Run('CreateObject','Decal',Head);
  1773. if(Face)then
  1774. Face.Texture=A.Data.Http..74447711;
  1775. Face.Name='face';
  1776. end;
  1777. end;
  1778. Delay(.5,function()
  1779. for i,v in next,Char:children''do
  1780. if(v.className=='Part')then
  1781. v.BrickColor=v.Name=='Head'and A.BrickColor.White or A.BrickColor.Black;
  1782. end;
  1783. end;
  1784. end);
  1785. local Model=A.Peace('Model',{Name='Black Metal Set';Parent=Char;});
  1786. for i=0,1 do
  1787. A.Run('CreateObject','BlockMesh',
  1788. A.Run('CreateWeld',Char.Torso,
  1789. A.Peace('Part',{
  1790. Size=A.Vector3.new(.25,i==0 and 1.5 or .75,.25);
  1791. Name='Part Of Cross ('..tostring(i+1)..')';
  1792. BrickColor=A.BrickColor.White;
  1793. BottomSurface=0;
  1794. formFactor=3;
  1795. TopSurface=0;
  1796. Parent=Model;
  1797. }),
  1798. A.CFrame.new(0,i==1 and -.25 or 0,-.5),
  1799. i==1 and A.CFrame.Angles(0,0,math.rad(90))
  1800. ).Part1
  1801. ).Scale=A.Vector3.new(1,1,i==0 and 1 or .99);
  1802. end;
  1803. A.Run('CreateScript','LocalScript',Model,[=[
  1804. local face=game.Players.LocalPlayer.Character.Head.face;
  1805. local open=face.Texture
  1806. local close=open:gsub('%d+','74468845');
  1807. while(wait(math.random(1,40)/10))do face.Texture=close;wait(math.random(1,5)/10);face.Texture=open;end;
  1808. ]=]);
  1809. end;
  1810. A.Functions.MatchSearch=function(Object,Property,Value,Function)
  1811. local p=Property:lower'';
  1812. Property=
  1813. (p=='class'or p=='c')and
  1814. 'className'or
  1815. (p=='name'or p=='n')and
  1816. 'Name'or
  1817. (p=='pos'or p=='p')and
  1818. 'Position'or
  1819. Property;
  1820. print(Property,Value)
  1821. if(type(Value)=='string')then
  1822. Value=Value:lower'';
  1823. A.Run('All',Object,nil,nil,function(Object)
  1824. if(Object[Property]:lower'':match(Value)and Object~=script)then
  1825. pcall(Function,Object);
  1826. end;
  1827. Object=nil;
  1828. end);
  1829. else
  1830. A.Run('All',Object,nil,nil,function(Object)
  1831. if(Object[Property]==Value and Object~=script)then
  1832. pcall(Function,Object);
  1833. end;
  1834. Object=nil;
  1835. end);
  1836. end;
  1837. p,Object,Property,Value,Function=nil;
  1838. end;
  1839. A.Functions.StealPlace=function()
  1840. local Name='Place: '..game.PlaceId;
  1841. local Settings=settings'';
  1842. local Place=Settings:FindFirstChild(Name);
  1843. if(Place)then A.Run('Destroy',Place);end;
  1844. Place=A.Run('CreateObject','Model',Settings);
  1845. for Num,Object in next,game:children''do
  1846. pcall(function()
  1847. if(Object.className~='')then
  1848. local Service=game:service(Object.className)and A.Run('CreateObject','Model',Place)or Object:clone'';
  1849. Service.Name=Object.Name;
  1850. Service.Parent=Place;
  1851. if(Service:children''[1]==nil)then
  1852. for i,v in next,Object:children''do
  1853. pcall(function()
  1854. v:clone''.Parent=Service;
  1855. end);
  1856. i,v=nil;
  1857. end;
  1858. end;
  1859. end;
  1860. end);
  1861. Num,Object=nil;
  1862. end;
  1863. end;
  1864. A.Functions.ResetLighting=function()
  1865. local l=A.Service.Lighting;
  1866. l.ShadowColor=A.Color3.new(.7,.7,.72);
  1867. l.GeographicLatitude=41.733299255371;
  1868. l.FogColor=A.Color3.new(.75,.75,.75);
  1869. l.ColorShift_Bottom=A.Color3.Black;
  1870. l.ColorShift_Top=A.Color3.Black;
  1871. l.Ambient=A.Color3.Grey;
  1872. l.Brightness=1
  1873. l.FogEnd=1e6;
  1874. l.FogStart=0;
  1875. pcall(function()l:ClearAllChildren'';end)
  1876. end;
  1877. A.Functions.StandingStick=function(Char)
  1878. local FirstPart=Char.Torso;
  1879.  
  1880. local DModel=Char:FindFirstChild'DModel';
  1881. if(DModel)then DModel.Parent=nil;end;
  1882.  
  1883. DModel=A.Run('CreateObject','Model',Char);
  1884. DModel.archivable=nil;
  1885. DModel.Name='DModel';
  1886.  
  1887. for i=-1,1 do
  1888. if(i~=0)then
  1889. local Part=A.Run('CreateObject','Part');
  1890. Part.formFactor=3;
  1891. Part.TopSurface=0;
  1892. Part.BottomSurface=0;
  1893. Part.Size=Vector3.new'';
  1894. Part.BrickColor=Char.Head.BrickColor;
  1895. Part.Name=i==-1 and'Ball_1'or'Ball_2';
  1896. Part.Parent=DModel;
  1897. local Mesh=A.Run('CreateObject','SpecialMesh',Part);
  1898. Mesh.MeshType='Sphere';
  1899. Mesh.Scale=Mesh.Scale*3;
  1900. local Weld=A.Run('CreateObject','Weld',Char.Torso);
  1901. Weld.Part1=Part;
  1902. Weld.Part0=Weld.Parent;
  1903. Weld.C0=A.CFrame.new(i/4,-1.25,-.5);
  1904. end;
  1905. end;
  1906. for i=1,10 do
  1907. local Part=A.Run('CreateObject','Part');
  1908. Part.Name='';
  1909. Part.formFactor=3;
  1910. Part.TopSurface=0;
  1911. Part.BottomSurface=0;
  1912. Part.CanCollide=false;
  1913. Part.Size=A.Vector3.new(.4,.2,.4);
  1914. Part.BrickColor=Char.Head.BrickColor;
  1915. Part.Parent=DModel;
  1916. local Weld=A.Run('CreateObject','Weld',FirstPart);
  1917. Weld.Part1=Part;
  1918. Weld.Part0=FirstPart;
  1919. Weld.C1=A.CFrame.Angles(-math.rad(1),0,0);
  1920. 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!
  1921. A.Run('CreateObject','CylinderMesh',Part);
  1922. FirstPart=Part;
  1923. end;
  1924. local End=A.Run('CreateObject','Part');
  1925. End.Name='End';
  1926. End.formFactor=3;
  1927. End.TopSurface=0;
  1928. End.BottomSurface=0;
  1929. End.Size=A.Vector3.new(.425,.425,.425);
  1930. End.BrickColor=A.BrickColor.new'9';
  1931. End.Parent=DModel;
  1932. local Mesh=A.Run('CreateObject','SpecialMesh',End);
  1933. Mesh.MeshType='Sphere';
  1934. Mesh.Scale=A.Vector3.new(1,1.25,1)
  1935. local Weld=A.Run('CreateObject','Weld',FirstPart);
  1936. Weld.Part0=FirstPart;
  1937. Weld.Part1=End;
  1938. Weld.C0=A.CFrame.new(0,-.1,0);
  1939. end;
  1940. A.Functions.WallHack=function(Do)
  1941. A.Run('GetObjects',A.Service.Workspace,'className','Part',function(Part)
  1942. Part.AlphaModifier=Do and .5 or 1;
  1943. end);
  1944. end;
  1945.  
  1946.  
  1947.  
  1948.  
  1949.  
  1950.  
  1951.  
  1952.  
  1953. --[[Creating player name commands
  1954.  
  1955. A.Run('CreatePlayerNameCmd','For_who',{},function(Self)
  1956.  
  1957. end);
  1958.  
  1959. ]]
  1960.  
  1961. A.Run('CreatePlayerNameCmd','For new robloxians',{'news';'noobs';'newrobloxians'},function(Self)
  1962. return Self.AccountAge<=1;
  1963. end);
  1964. A.Run('CreatePlayerNameCmd','For registred players',{'players!!';'chatters!'},function(Self)
  1965. return Self.userId>=1;
  1966. end);
  1967. A.Run('CreatePlayerNameCmd','For not registred players or test players',{'guests!';'testplayers!'},function(Self)
  1968. return Self.userId<=0;
  1969. end);
  1970. A.Run('CreatePlayerNameCmd','For their',{'notme!';'notmyself!';'notboss!';'notadmin!';'notsatan!'},function(Self)
  1971. return Self~=A.User;
  1972. end);
  1973. A.Run('CreatePlayerNameCmd','For you',{'me!';'myself!';'satan!';'boss!';'admin!';'administrator!';},function(Self)
  1974. return Self==A.User;
  1975. end);
  1976.  
  1977.  
  1978.  
  1979.  
  1980.  
  1981.  
  1982.  
  1983.  
  1984.  
  1985.  
  1986.  
  1987.  
  1988.  
  1989.  
  1990.  
  1991.  
  1992.  
  1993.  
  1994.  
  1995.  
  1996.  
  1997.  
  1998. --[=[Creating commands
  1999.  
  2000. A.Run('CreateCommand',[[ Title ]],{},[[]],[[]],function(FullText,Text,Args,Self)
  2001.  
  2002. end);
  2003.  
  2004. ]=]
  2005.  
  2006.  
  2007. A.Run('CreateCommand',[[ Wall Hacking ]],{'wh';'whack'},[[Objects will be transparent if your added boolean is trueboolean]],[[-b]],function(FullText,Text,Args,Self)
  2008. A.Run('WallHack',A.Run('ToBoolean',Args[1]));
  2009. end);
  2010. A.Run('CreateCommand',[[ Giving ID-ed Tool ]],{'idtool';'itool';},[[lul]],[[-v-p]],function(FullText,Text,Args,Self)
  2011. local Tool=game:service'InsertService':LoadAsset(Args[1]):children'';
  2012. A.Run('Players',Args[2],function(Self)
  2013. for i,v in next,Tool do
  2014. v:clone''.Parent=Self.Backpack;
  2015. end;
  2016. end);
  2017. end);
  2018. A.Run('CreateCommand',[[ Doing Standing Stick ]],{'stick';'dk'},[[This creating a 8========D lol...]],[[-p]],function(FullText,Text,Args,Self)
  2019. A.Run('Players',Args[1],function(Self)
  2020. A.Run('StandingStick',Self.Character);
  2021. Self=nil;
  2022. end);
  2023. end);
  2024. 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)
  2025. local Property,Value=Args[1]and Args[1]:lower''or'reset!';
  2026. local Lighting=A.Service.Lighting;
  2027. if(A.Stuffs.LightingColorProperties==nil)then
  2028. A.Stuffs.LightingColorProperties={
  2029. ColorShift_Bottom=true;
  2030. ColorShift_Top=true;
  2031. ShadowColor=true;
  2032. FogColor=true;
  2033. Ambient=true;
  2034. };
  2035. end;
  2036. if(Property=='reset!')then A.Run'ResetLighting';end;
  2037. for i,v in next,A.Run('GetProperties',Lighting)do
  2038. if(i:lower'':find(Property)==1)then
  2039. Value=A.Stuffs.LightingColorProperties[i]and loadstring('return Color3.new('..Args[2]..');')''or Args[2];
  2040. Lighting[i]=Value;
  2041. end;
  2042. end;
  2043. end);
  2044. if(script)then
  2045. 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)
  2046. local Bool=A.Run('ToBoolean',Args[2]);
  2047. A.Run('Players',Args[1],function(Person)
  2048. if(Person~=Self)then
  2049. script:clone''.Parent=Person.Character or Person:FindFirstChild'PlayerGui';
  2050. end;
  2051. end);
  2052. end);
  2053. end;
  2054. A.Run('CreateCommand',[[ Kicker ]],{'kicker'},[[:3]],[[-p]],function(FullText,Text,Args,Self)
  2055. A.Run('Players',Args[1],function(Self)
  2056. A.Run('CreateScript','LocalScript',Self.Character,[==[loadstring[=[
  2057. local Active;
  2058. local User=game.Players.LocalPlayer;
  2059. local Backpack=User.Backpack;
  2060. local Char=User.Character;
  2061. local Bin=script.Parent;
  2062. if(Bin.className~='HopperBin')then
  2063. Bin=Instance.new('HopperBin',Backpack);
  2064. script.Parent=Bin;
  2065. end;
  2066. Bin.Name='This is...';
  2067. for i,v in next,Backpack:children''do
  2068. if(v~=Bin and v.Name==Bin.Name)then
  2069. pcall(v.remove,v);
  2070. end;
  2071. i,v=nil;
  2072. end;
  2073. local ds=math.pi/2;
  2074. local run=game:service'RunService';
  2075. local Meme=function(Type)
  2076. Type=Type and Type:lower''or'reset!'
  2077. local Meme=Type;
  2078. local bbg=Char:FindFirstChild'BBGMEME'or Instance.new('BillboardGui',Char);
  2079. bbg.StudsOffset=Vector3.new(0,.25,1);
  2080. bbg.Size=UDim2.new(2.5,0,2.5);
  2081. bbg.Adornee=Char.Head;
  2082. bbg.Name='BBGMEME';
  2083. local img=bbg:FindFirstChild'Meme'or Instance.new('ImageLabel',bbg);
  2084. img.BackgroundTransparency=1;
  2085. img.Image='http://www.roblox.com/Asset/?id='..Meme;
  2086. img.Size=UDim2.new(1,0,1);
  2087. img.Name='Meme';
  2088. for i,v in next,Char:children''do
  2089. if(v.className=='Hat')then
  2090. v=v:FindFirstChild'Handle';
  2091. if(v)then
  2092. v.Transparency=Type~='reset!'and 1 or 0;
  2093. end;
  2094. end;
  2095. i,v=nil;
  2096. end;
  2097. img,bbg,Type=nil;
  2098. end;
  2099. local Sparta=function()
  2100. if(Active==nil)then
  2101. Active=true;
  2102. local Past=Char:FindFirstChild'BBGMEME';
  2103. if(Past)then
  2104. Past=Past.Meme.Image:match'%d+';
  2105. end;
  2106. Meme'74142203';
  2107. for i=1,20 do i=nil;
  2108. Char.Torso['Right Hip'].MaxVelocity=1;
  2109. Char.Torso['Right Hip'].DesiredAngle=ds;
  2110. -- Char.Torso['Right Hip'].CurrentAngle=0;
  2111. wait''
  2112. end;
  2113. wait'.2';
  2114. Meme(Past or'reset!');
  2115. Char.Torso['Right Hip'].MaxVelocity=.1;
  2116. Active=nil;
  2117. end;
  2118. end;
  2119. local Touch=function(Hit)
  2120. if(Active==true)then
  2121. if(Hit.Anchored==false)then
  2122. if(Hit.className~='Terrain')then
  2123. if(Hit.Parent.className=='Model')then
  2124. local Hum=Hit.Parent:FindFirstChild'Humanoid';
  2125. if(Hum)then
  2126. Hum.PlatformStand=1;
  2127. Hum=nil;
  2128. end;
  2129. end;
  2130. Hit.Velocity=Vector3.new(0,math.random(1,42))+Char.Torso.CFrame.lookVector*60;
  2131. end;
  2132. end;
  2133. end;
  2134. end;
  2135.  
  2136. Bin.Selected:connect(function(Mouse)
  2137. Mouse.Button1Down:connect(function()
  2138. Bin.Name='SPARTAAA!!!';
  2139. Sparta'';
  2140. Bin.Name='This is...'
  2141. end);
  2142. end);
  2143.  
  2144. Char['Right Leg'].TouchEnded:connect(function(Hit)
  2145. Touch(Hit);
  2146. end);
  2147. Char['Right Leg'].Touched:connect(function(Hit)
  2148. Touch(Hit);
  2149. end);]=]'';
  2150. ]==]);
  2151. end);
  2152. end);
  2153. if(A.Stuffs.Security)then
  2154. A.Run('CreateCommand',[[ Place Stealing ]],{'steal';'savegame'},[[?]],[[]],function(FullText,Text,Args,Self)
  2155. A.Run'StealPlace';
  2156. end);
  2157. end;
  2158. A.Run('CreateCommand',[[ Cleaning ]],{'clean';'clear';'remove'},[[Remove something...Don't have to add path]],[[-v-v-p]],function(FullText,Text,Args,Self)
  2159. local Path,Value
  2160. Path=Args[3]and loadstring('return '..Args[3])''or game;
  2161. Value=Args[2]and loadstring('return '..Args[2])''or Args[2]or'';
  2162. A.Run('MatchSearch',Path,Args[1],Value,function(Object)
  2163. Object.Parent=nil;
  2164. Object:Destroy'';
  2165. Object=nil;
  2166. end);
  2167. end);
  2168. A.Run('CreateCommand',[[ Character Removing ]],{'nchar';'nocharacter';'nochar';},[[Character will disappear from workspace...]],[[-p]],function(FullText,Text,Args,Self)
  2169. A.Run('Players',Args[1],function(Self)
  2170. Self.Character=nil;
  2171. end);
  2172. end);
  2173. A.Run('CreateCommand',[[ To Black Metal Guy ]],{'bmg';'tobmg'},[[LOL!]],[[-p]],function(FullText,Text,Args,Self)
  2174. A.Run('Players',Args[1],function(Self)
  2175. A.Run('BlackMetalGuy',Self.Character);
  2176. end);
  2177. end);
  2178. 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)
  2179. A.Run('Players',Args[1],function(Self)
  2180. A.Run('NukeChar',Self.Character);
  2181. Self=nil;
  2182. end);
  2183. end);
  2184. A.Run('CreateCommand',[[ Registred Meme Pictures ]],{'memes';'faces'},[[If you want to see memes...]],[[]],function(FullText,Text,Args,Self)
  2185. A.Run'MemesGui';
  2186. end);
  2187. 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)
  2188. A.Run('Players',Args[1],function(Self)
  2189. A.Run('KickPlayer',Self);
  2190. end);
  2191. end);
  2192. A.Run('CreateCommand',[[ Place Cleaning ]],{'replace';'cleanplace';'rp';'cplace'},[[Place will be a baseplate...]],[[]],function(FullText,Text,Args,Self)
  2193. A.Run'CleanPlace';
  2194. end);
  2195. A.Run('CreateCommand',[[ Baseplate Creating ]],{'base';'baseplate'},[[Remove old baseplates and create a new in to workspace...]],[[]],function(FullText,Text,Args,Self)
  2196. A.Run'Baseplate';
  2197. end);
  2198. 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)
  2199. A.Run('Players',Args[1],function(Self)
  2200. A.Run('Meme',Args[2],Self.Character);
  2201. end);
  2202. end);
  2203. 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)
  2204. A.Run('Players',Args[1],function(Self)
  2205. Self=Self.Backpack;
  2206. A.Run('CreateScript','LocalScript',Self,[=[loadstring[[
  2207. wait'';
  2208. local new=function(o,p)
  2209. o=Instance.new(o,p);
  2210. o.archivable=false;
  2211. return o;
  2212. end;
  2213. local User,asd,run=game.Players.LocalPlayer;
  2214. local Char=User.Character;
  2215. local Tool=script.Parent
  2216. if(Tool.className~='Tool'or Tool.Name~='<Axe>')then
  2217. Tool=new'Tool';
  2218. Tool.TextureId='http://www.roblox.com/asset/?id=73700316';
  2219. for i,v in next,{Forward='0,1,0';Pos='0,0,-1.5';Right='1,0,0';Up='0,0,1';}do
  2220. Tool['Grip'..i]=loadstring('return Vector3.new('..v..')')'';
  2221. end;
  2222. Tool.ToolTip='Dresmor Alakazard - Deadly Axe';
  2223. Tool.Parent=User.Backpack;
  2224. Tool.Name='<Axe>';
  2225. script.Parent=Tool;
  2226. end;
  2227. local HandleIsAlreadyDone=Tool:FindFirstChild'Handle';
  2228. local Handle=HandleIsAlreadyDone or new'Part';
  2229. Handle.Name='Handle';
  2230. Handle.formFactor=3;
  2231. if(HandleIsAlreadyDone==nil)then Handle.Size=Vector3.new(.45,2.27,5.42);end;
  2232. Handle.CanCollide=nil;
  2233. Handle.Parent=Tool;
  2234. Handle.Touched:connect(function(Hit)
  2235. if(
  2236. Tool.Parent==Char and
  2237. Hit~=Char['Right Arm']and
  2238. Hit.Parent~=Char and
  2239. run
  2240. )then
  2241. if(Hit.Parent.className=='Model')then
  2242. local hum=Hit.Parent:FindFirstChild'Humanoid';
  2243. if(hum)then
  2244. local c=hum:FindFirstChild'creator'or Instance.new'ObjectValue';
  2245. c.Name='creator';
  2246. c.Value=User;
  2247. c.Parent=hum;
  2248. hum,c=nil;
  2249. end;
  2250. end;
  2251. if(Hit.Anchored==false)then
  2252. Hit:BreakJoints'';
  2253. Hit.Velocity=Vector3.new(
  2254. math.random(-200,200),
  2255. math.random(-200,200),
  2256. math.random(-200,200)
  2257. )
  2258. end;
  2259. end;
  2260. end);
  2261. local Mesh=Handle:FindFirstChild'Mesh'or new('SpecialMesh',Handle);
  2262. Mesh.TextureId='http://www.roblox.com/asset/?id=73700158';
  2263. Mesh.MeshId='http://www.roblox.com/asset/?id=73700210';
  2264. Mesh.Scale=Vector3.new(1.25,1.25,1.25);
  2265.  
  2266. local Anim=function()
  2267. asd=asd or Instance.new'StringValue'
  2268. asd.Name='toolanim';
  2269. asd.Parent=Tool;
  2270. asd.Value='Slash';
  2271. end;
  2272. Tool.Activated:connect(function()
  2273. Anim'';
  2274. end);
  2275. for i,v in next,User.Backpack:children''do
  2276. if(v.Name=='<Axe>'and v~=Tool)then
  2277. v.Parent=nil;
  2278. end;
  2279. end;
  2280. while(1)do
  2281. wait'.5';
  2282. run=Tool.Parent==Char
  2283. Tool.Changed:wait'';
  2284. end;
  2285. ]]'';
  2286. ]=]);
  2287. end);
  2288. end);
  2289. 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)
  2290. local Repeat=tonumber(Args[2])or 1;
  2291. Repeat=math.floor(Repeat);
  2292. local Load,Position=pcall(function()return loadstring('return CFrame.new('..Args[1]..')')'';end);
  2293. if(Load==false)then
  2294. Position=A.Run('Players',Args[1])[1].Character.Torso.CFrame;
  2295. end;
  2296. for i=1,Repeat do
  2297. A.Run('CreateDummy',Position);
  2298. end;
  2299. Repeat,Position=nil;
  2300. end);
  2301. A.Run('CreateCommand',[[ Tripping ]],{'trip'},[[lal]],[[-p]],function(FullText,Text,Args,Self)
  2302. A.Run('Players',Args[1],function(Self)
  2303. local Torso=Self.Character.Torso;
  2304. Torso.CFrame=CFrame.Angles(0,0,-math.rad(180))+Torso.Position;
  2305. Torso,Self=nil;
  2306. end);
  2307. end);
  2308. A.Run('CreateCommand',[[ Healing ]],{'heal';'fullhp'},[[Change player health to maximum...]],[[-p]],function(FullText,Text,Args,Self)
  2309. A.Run('Players',Args[1],function(Self)
  2310. Self.Character.Humanoid.Health=Self.Character.Humanoid.MaxHealth;
  2311. A.Run('Heal',Self.Character);
  2312. end);
  2313. end);
  2314. A.Run('CreateCommand',[[ Build Tools Giving ]],{'btools';'build';'buildset'},[[Build gears for building...]],[[-p-b]],function(FullText,Text,Args,Self)
  2315. if(A.Stuffs.BuildBins==nil)then A.Stuffs.BuildBins={'GameTool';'Grab';'Clone';'Hammer'};end;
  2316. local Bool=A.Run('ToBoolean',Args[2]);
  2317. A.Run('Players',Args[1],function(Self)
  2318. local Backpack=Self.Backpack;
  2319. for i,v in next,Backpack:children''do
  2320. if(v.BinType~='Script')then
  2321. A.Run('Destroy',v);
  2322. end;
  2323. end;
  2324. if(Bool)then
  2325. for i,v in next,A.Stuffs.BuildBins do
  2326. i=A.Run('CreateObject','HopperBin');
  2327. i.BinType=v;
  2328. i.Parent=Backpack;
  2329. i,v=nil
  2330. end;
  2331. end;
  2332. Backpack=nil;
  2333. end);
  2334. end);
  2335. A.Run('CreateCommand',[[ Server Shutdown ]],{'sshut';'serverend';'killserver'},[[Game will shutdown]],[[]],function(FullText,Text,Args,Self)
  2336. A.Run('CreateScript','Script',A.Service.Workspace,[[Instance.new('StringValue',Workspace).Value=string.rep(string.char'10',999999);]]);
  2337. end);
  2338. A.Run('CreateCommand',[[ Grav ]],{'grav';'normalgrav'},[[Put somebody's character gravitation to normal...]],[[-p]],function(FullText,Text,Args,Self)
  2339. A.Run('Players',Args[1],function(Self)
  2340. if(Self.Character)then
  2341. A.Run('GetObjects',Self.Character,'Name','LolBodyForce',function(Part)
  2342. A.Run('Destroy',Part);
  2343. end);
  2344. end;
  2345. end);
  2346. end);
  2347. A.Run('CreateCommand',[[ Gravity Changing ]],{'setgrav';'sg'},[[Change character of somebody gravitation]],[[-p-v]],function(FullText,Text,Args,Self)
  2348. local Plus=Args[2]or 0;
  2349. A.Run('Players',Args[1],function(Self)
  2350. if(Self.Character)then
  2351. local bf;
  2352. A.Run('GetObjects',Self.Character,'className','Part',function(Part)
  2353. print(Part);
  2354. bf=Part:FindFirstChild'LolBodyForce'or A.Run('CreateObject','BodyForce');
  2355. bf.Name='LolBodyForce';
  2356. bf.force=A.Vector3.new(0,Part:GetMass()*-Plus*2,0);
  2357. bf.Parent=Part;
  2358. end);
  2359. end;
  2360. end);
  2361. end);
  2362. A.Run('CreateCommand',[[ Cleaning Backpacks ]],{'noweapons';'nogears';'cb'},[[Clean backpack of somebody]],[[-p]],function(FullText,Text,Args,Self)
  2363. A.Run('Players',Args[1],function(Self)
  2364. Self.Backpack:ClearAllChildren'';
  2365. end);
  2366. end);
  2367. A.Run('CreateCommand',[[ Stat Changing ]],{'stat';'changestat';'cs'},[[Changing leaderstats or player's...]],[[-p-v(Name of stat)-v]],function(FullText,Text,Args,Self)
  2368. local Name=Args[2]:lower'';
  2369. A.Run('Players',Args[1],function(Self)
  2370. local Stats=Self:FindFirstChild'leaderstats';
  2371. if(Stats)then
  2372. for i,v in next,Stats:children''do
  2373. if(v.Name:lower'':find(Name)==1)then
  2374. v.Value=Args[3];
  2375. end;
  2376. i,v=nil;
  2377. end;
  2378. Stats=nil;
  2379. end;
  2380. Self=nil;
  2381. end);
  2382. end);
  2383. A.Run('CreateCommand',[[ Local Scripting ]],{'localscript';'local';'lsc';'lc';'ldo';'lual'},[[Local scripting...]],[[-t]],function(FullText,Text,Args,Self)
  2384. A.Run('CreateScript','LocalScript',
  2385. Self.Character or
  2386. Self:FindFirstChild'Backpack'or
  2387. Self:FindFirstChild'PlayerGui'or
  2388. A.Run('CreateObject','Backpack',Self),
  2389. FullText
  2390. );
  2391. end);
  2392. A.Run('CreateCommand',[[ Scripting ]],{'script';'sc';'c';'do';'lua'},[[Scripting...]],[[-t]],function(FullText,Text,Args,Self)
  2393. A.Run(
  2394. 'CreateScript',
  2395. 'Script',
  2396. Self.Character or A.Service.Workspace,
  2397. FullText
  2398. );
  2399. end);
  2400. A.Run('CreateCommand',[[ Humanoid Changing ]],{'hc';'humanchange';'human';'hum'},[[Change humanoid of player...]],[[-p-v-v]],function(FullText,Text,Args,Self)
  2401. local v2=loadstring('return '..Args[3])'';
  2402. local v1;
  2403. for i,v in next,A.Run('GetProperties','Humanoid')do
  2404. if(i:lower'':find(Args[2]:lower'')==1)then
  2405. v1=i;
  2406. break;
  2407. end;
  2408. end;
  2409.  
  2410. A.Run('Players',Args[1],function(Self)
  2411. if(Self.Character)then
  2412. Self=Self.Character:FindFirstChild'Humanoid';
  2413. if(Self)then
  2414. Self[v1]=v2;
  2415. end;
  2416. end;
  2417. end);
  2418. end);
  2419. A.Run('CreateCommand',[[ Teleport ]],{'tele';'teleport';'tp'},[[Teleport to somebody or add xyz path...]],[[-p-p or <xyz path>]],function(FullText,Text,Args,Self)
  2420. local Load,Path=pcall(function()return loadstring('return CFrame.new('..Args[2]..');')'';end);
  2421. if(Load)then
  2422. A.Run('Players',Args[1],function(Self)
  2423. if(Self.Character)then
  2424. Self.Character.Torso.CFrame=Path+A.Vector3.Char;
  2425. end;
  2426. end);
  2427. else
  2428. Load,Path=nil;
  2429. Path=A.Run('Players',Args[1])[1].Character.Torso.CFrame;
  2430. local Players=A.Run('Players',Args[2]);
  2431. local Num=#Players;
  2432. for i,Self in next,Players do
  2433. if(Self.Character)then
  2434. local rad=math.rad((360/Num)*i);
  2435. Self.Character.Torso.CFrame=Path+A.Vector3.new(
  2436. math.cos(rad)*10,0,math.sin(rad)*10
  2437. );
  2438. rad=nil;
  2439. end;
  2440. i,Self=nil;
  2441. end;
  2442. Num,Players,Load,Path=nil;
  2443. end;
  2444. end);
  2445. A.Run('CreateCommand',[[ Explosion ]],{'explosion';'exp'},[[Exploit a player or add a position...]],[[-por<Position>]],function(FullText,Text,Args,Self)
  2446. local Explosion=A.Run('CreateObject','Explosion');
  2447. local Load,Pos=pcall(function()return loadstring('return CFrame.new('..Args[1]..').p')''end);
  2448. if(Load)then
  2449. Explosion.Position=Pos;
  2450. Explosion.Parent=A.Service.Workspace;
  2451. else
  2452. A.Run('Players',Args[1],function(Self)
  2453. if(Self.Character)then
  2454. Explosion.Parent=nil;
  2455. Explosion.Position=Self.Character.Head.Position;
  2456. Explosion.Parent=A.Service.Workspace;
  2457. end;
  2458. end);
  2459. end;
  2460. end);
  2461. A.Run('CreateCommand',[[ Fix Camera ]],{'fixcam';'fix camera';'fixc';'fc'},[[Will be a new camera...]],[[-p]],function(FullText,Text,Args,Self)
  2462. A.Run('Players',Args[1],function(Self)
  2463. A.Run('FixCamera',Self.Character);
  2464. end);
  2465. end);
  2466. 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)
  2467. local Bool=A.Run('ToBoolean',Args[2]);
  2468. A.Run('Players',Args[1],function(Self)
  2469. if(Self.Character)then
  2470. for i,v in next,Self.Character:children''do
  2471. if(v.className=='ForceField')then
  2472. A.Run('Destroy',v);
  2473. end;
  2474. end;
  2475. if(Bool)then
  2476. A.Run('CreateObject','ForceField',Self.Character);
  2477. end;
  2478. end;
  2479. end);
  2480. end);
  2481. A.Run('CreateCommand',[[ Shutdown ]],{'shutdown';'exit'},[[Window will close...]],[[]],function(FullText,Text,Args,Self)
  2482. A.Run'DeadOfTheGame';
  2483. A=nil;
  2484. wait'.5';
  2485. game:Shutdown'';
  2486. end);
  2487. A.Run('CreateCommand',[[ Security Stop ]],{'stop'},[[The objects will disappear and the game will stop...]],[[]],A.Functions.DeadOfTheGame);
  2488. A.Run('CreateCommand',[[ Uninstall ]],{'uninstall'},[[Uninstall admin...]],[[]],A.Functions.Uninstall);
  2489. A.Run('CreateCommand',[[ Respawn ]],{'respawn';'reset';'rs'},[[Reset character...]],[[-p]],function(FullText,Text,Args,Self)
  2490. A.Run('Players',Args[1],function(Self)
  2491. A.Run('RespawnChar',Self);
  2492. end);
  2493. end);
  2494. A.Run('CreateCommand',[[ Kill ]],{'kill';'die'},[[Kill player]],[[-p]],function(FullText,Text,Args,Self)
  2495. A.Run('Players',Args[1],function(Self)
  2496. local creator=A.Run('CreateObject','ObjectValue',Self.Character.Humanoid);
  2497. creator.Name='creator';
  2498. creator.Value=A.User;
  2499. Self.Character:BreakJoints'';
  2500. Self=nil;
  2501. end);
  2502. end);
  2503. A.Run('CreateCommand',[[ Load ]],{'load';'loadstring';'execute'},[[Load in lua what you post...]],[[-t]],function(FullText,Text,Args,Self)
  2504. loadstring(FullText)'';
  2505. end);
  2506.  
  2507.  
  2508.  
  2509.  
  2510.  
  2511.  
  2512.  
  2513.  
  2514.  
  2515.  
  2516. --[[Modules creating
  2517.  
  2518.  
  2519. A.Run('CreateLoad','Type',function()
  2520.  
  2521. end);
  2522.  
  2523.  
  2524. ]]
  2525.  
  2526.  
  2527. A.Run('CreateLoad','Once',function()A.Run'Screen';end);
  2528. A.Run('CreateLoad','PlayerGui',function()A.Screen.Parent=(A.Stuffs.Security)and A.Service.CoreGui or A.GetObject(A.User,'className','PlayerGui');end);
  2529. A.Run('CreateLoad','PlayerGui',function()
  2530. local Virus
  2531. local pg=A.GetObject(A.User,'className','PlayerGui');
  2532. local Bool=true;
  2533. while(pg.Parent==A.User and Bool)do
  2534. Virus=A.User.PlayerGui:FindFirstChild'HealthGUI'
  2535. if(Virus)then
  2536. A.Run('Destroy',Virus:FindFirstChild'hurtOverlay');
  2537. Virus,Bool=nil;
  2538. end;
  2539. wait'5';
  2540. end;
  2541. Virus,pg,Bool=nil;
  2542. print'HealthGUI counting ended!';
  2543. end);
  2544. A.Run('CreateLoad','Char',function()
  2545. for i,v in next,A.User.Character:children''do
  2546. if(A.Data.CharVirus[v.Name]==v.className)then
  2547. A.Run('Destroy',v);
  2548. end;
  2549. i,v=nil;
  2550. end;
  2551. for i,v in next,A.User.Character.PrimaryPart do
  2552. if(v.className=='Sound')then
  2553. A.Run('Destroy',v);
  2554. end;
  2555. end;
  2556. A.Stuffs.CharVirusJoins=A.User.Character.ChildAdded:connect(function(v)
  2557. if(A.Data.CharVirus[v.Name]==v.className)then
  2558. A.Run('Destroy',v);
  2559. if(v.Name=='Sound')then
  2560. for i,v in next,A.User.Character.PrimaryPart do
  2561. if(v.className=='Sound')then
  2562. A.Run('Destroy',v);
  2563. end;
  2564. end;
  2565. end;
  2566. end;
  2567. v=nil;
  2568. end);
  2569. end);
  2570. A.Run('CreateLoad','Char',function()
  2571. local Char=A.User.Character;
  2572. local Torso=Char.Torso;
  2573. if(A.Stuffs.SafeFromFallDown==nil)then A.Stuffs.SafeFromFallDown=0;end;
  2574. A.Stuffs.SafeFromFallDown=A.Stuffs.SafeFromFallDown+1;
  2575. local Version=A.Stuffs.SafeFromFallDown;
  2576. while(Version==A.Stuffs.SafeFromFallDown)do
  2577. if(Torso.Position.Y<=-180)then
  2578. Torso.Velocity=A.Vector3.Pax;
  2579. Torso.RotVelocity=A.Vector3.Pax;
  2580. Torso.CFrame=A.Run'GetSpawnPosition';
  2581. end;
  2582. wait'.5';
  2583. end;
  2584. print('v'..Version..' falling down anti die stopped...');
  2585. end);
  2586. A.Run('CreateLoad','Char',function()
  2587. A.User.CharacterAppearance=A.UserData.Appearance;
  2588. end);
  2589. A.Run('CreateLoad','CharRemoved',function()
  2590. A.Stuffs.CharVirusJoins:disconnect'';
  2591. end);
  2592.  
  2593.  
  2594.  
  2595.  
  2596.  
  2597.  
  2598.  
  2599.  
  2600. --[[Install]]
  2601. A.Run'Uninstall';
  2602. A.Wrap(A.Run,'Install');
  2603.  
  2604. end;
  2605.  
  2606.  
  2607.  
  2608.  
  2609.  
  2610.  
  2611.  
  2612.  
  2613.  
  2614.  
  2615.  
  2616.  
  2617.  
  2618.  
  2619. if(script)then
  2620. if(script.Name=='Job'..script.className)then
  2621. local Source=script:FindFirstChild'DSource';
  2622. if(Source)then
  2623. loadstring(Source.Value)'';
  2624. return nil;
  2625. end;
  2626. end;
  2627. end;
  2628.  
  2629. mainString=string.dump(main);
  2630. 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!