API tools faq
paste
shwag

aaaaa

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