Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- 130
- 131
- 132
- 133
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
- 159
- 160
- 161
- 162
- 163
- 164
- 165
- 166
- 167
- 168
- 169
- 170
- 171
- 172
- 173
- 174
- 175
- 176
- 177
- 178
- 179
- 180
- 181
- 182
- 183
- 184
- 185
- 186
- 187
- 188
- 189
- 190
- 191
- 192
- 193
- 194
- 195
- 196
- 197
- 198
- 199
- 200
- 201
- 202
- 203
- 204
- 205
- 206
- 207
- 208
- 209
- 210
- 211
- 212
- 213
- 214
- 215
- 216
- 217
- 218
- 219
- 220
- 221
- 222
- 223
- 224
- 225
- 226
- 227
- 228
- 229
- 230
- 231
- 232
- 233
- 234
- 235
- 236
- 237
- 238
- 239
- 240
- 241
- 242
- 243
- 244
- 245
- 246
- 247
- 248
- 249
- 250
- 251
- 252
- 253
- 254
- 255
- 256
- 257
- 258
- 259
- 260
- 261
- 262
- 263
- 264
- 265
- 266
- 267
- 268
- 269
- 270
- 271
- 272
- 273
- 274
- 275
- 276
- 277
- 278
- 279
- 280
- 281
- 282
- 283
- 284
- 285
- 286
- 287
- 288
- 289
- 290
- 291
- 292
- 293
- 294
- 295
- 296
- 297
- 298
- 299
- 300
- 301
- 302
- 303
- 304
- 305
- 306
- 307
- 308
- 309
- 310
- 311
- 312
- 313
- 314
- 315
- 316
- 317
- 318
- 319
- 320
- 321
- 322
- 323
- 324
- 325
- 326
- 327
- 328
- 329
- 330
- 331
- 332
- 333
- 334
- 335
- 336
- 337
- 338
- 339
- 340
- 341
- 342
- 343
- 344
- 345
- 346
- 347
- 348
- 349
- 350
- 351
- 352
- 353
- 354
- 355
- 356
- 357
- 358
- 359
- 360
- 361
- 362
- 363
- 364
- 365
- 366
- 367
- 368
- 369
- 370
- 371
- 372
- 373
- 374
- 375
- 376
- 377
- 378
- 379
- 380
- 381
- 382
- 383
- 384
- 385
- 386
- 387
- 388
- 389
- 390
- 391
- 392
- 393
- 394
- 395
- 396
- 397
- 398
- 399
- 400
- 401
- 402
- 403
- 404
- 405
- 406
- 407
- 408
- 409
- 410
- 411
- 412
- 413
- 414
- 415
- 416
- 417
- 418
- 419
- 420
- 421
- 422
- 423
- 424
- 425
- 426
- 427
- 428
- 429
- 430
- 431
- 432
- 433
- 434
- 435
- 436
- 437
- 438
- 439
- 440
- 441
- 442
- 443
- 444
- 445
- 446
- 447
- 448
- 449
- 450
- 451
- 452
- 453
- 454
- 455
- 456
- 457
- 458
- 459
- 460
- 461
- 462
- 463
- 464
- 465
- 466
- 467
- 468
- 469
- 470
- 471
- 472
- 473
- 474
- 475
- 476
- 477
- 478
- 479
- 480
- 481
- 482
- 483
- 484
- 485
- 486
- 487
- 488
- 489
- 490
- 491
- 492
- 493
- 494
- 495
- 496
- 497
- 498
- 499
- 500
- 501
- 502
- 503
- 504
- 505
- 506
- 507
- 508
- 509
- 510
- 511
- 512
- 513
- 514
- 515
- 516
- 517
- 518
- 519
- 520
- 521
- 522
- 523
- 524
- 525
- 526
- 527
- 528
- 529
- 530
- 531
- 532
- 533
- 534
- 535
- 536
- 537
- 538
- 539
- 540
- 541
- 542
- 543
- 544
- 545
- 546
- 547
- 548
- 549
- 550
- 551
- 552
- 553
- 554
- 555
- 556
- 557
- 558
- 559
- 560
- 561
- 562
- 563
- 564
- 565
- 566
- 567
- 568
- 569
- 570
- 571
- 572
- 573
- 574
- 575
- 576
- 577
- 578
- 579
- 580
- 581
- 582
- 583
- 584
- 585
- 586
- 587
- 588
- 589
- 590
- 591
- 592
- 593
- 594
- 595
- 596
- 597
- 598
- 599
- 600
- 601
- 602
- 603
- 604
- 605
- 606
- 607
- 608
- 609
- 610
- 611
- 612
- 613
- 614
- 615
- 616
- 617
- 618
- 619
- 620
- 621
- 622
- 623
- 624
- 625
- 626
- 627
- 628
- 629
- 630
- 631
- 632
- 633
- 634
- 635
- 636
- 637
- 638
- 639
- 640
- 641
- 642
- 643
- 644
- 645
- 646
- 647
- 648
- 649
- 650
- 651
- 652
- 653
- 654
- 655
- 656
- 657
- 658
- 659
- 660
- 661
- 662
- 663
- 664
- 665
- 666
- 667
- 668
- 669
- 670
- 671
- 672
- 673
- 674
- 675
- 676
- 677
- 678
- 679
- 680
- 681
- 682
- 683
- 684
- 685
- 686
- 687
- 688
- 689
- 690
- 691
- 692
- 693
- 694
- 695
- 696
- 697
- 698
- 699
- 700
- 701
- 702
- 703
- 704
- 705
- 706
- 707
- 708
- 709
- 710
- 711
- 712
- 713
- 714
- 715
- 716
- 717
- 718
- 719
- 720
- 721
- 722
- 723
- 724
- 725
- 726
- 727
- 728
- 729
- 730
- 731
- 732
- 733
- 734
- 735
- 736
- 737
- 738
- 739
- 740
- 741
- 742
- 743
- 744
- 745
- 746
- 747
- 748
- 749
- 750
- 751
- 752
- 753
- 754
- 755
- 756
- 757
- 758
- 759
- 760
- 761
- 762
- 763
- 764
- 765
- 766
- 767
- 768
- 769
- 770
- 771
- 772
- 773
- 774
- 775
- 776
- 777
- 778
- 779
- 780
- 781
- 782
- 783
- 784
- 785
- 786
- 787
- 788
- 789
- 790
- 791
- 792
- 793
- 794
- 795
- 796
- 797
- 798
- 799
- 800
- 801
- 802
- 803
- 804
- 805
- 806
- 807
- 808
- 809
- 810
- 811
- 812
- 813
- 814
- 815
- 816
- 817
- 818
- 819
- 820
- 821
- 822
- 823
- 824
- 825
- 826
- 827
- 828
- 829
- 830
- 831
- 832
- 833
- 834
- 835
- 836
- 837
- 838
- 839
- 840
- 841
- 842
- 843
- 844
- 845
- 846
- 847
- 848
- 849
- 850
- 851
- 852
- 853
- 854
- 855
- 856
- 857
- 858
- 859
- 860
- 861
- 862
- 863
- 864
- 865
- 866
- 867
- 868
- 869
- 870
- 871
- 872
- 873
- 874
- 875
- 876
- 877
- 878
- 879
- 880
- 881
- 882
- 883
- 884
- 885
- 886
- 887
- 888
- 889
- 890
- 891
- 892
- 893
- 894
- 895
- 896
- 897
- 898
- 899
- 900
- 901
- 902
- 903
- 904
- 905
- 906
- 907
- 908
- 909
- 910
- 911
- 912
- 913
- 914
- 915
- 916
- 917
- 918
- 919
- 920
- 921
- 922
- 923
- 924
- 925
- 926
- 927
- 928
- 929
- 930
- 931
- 932
- 933
- 934
- 935
- 936
- 937
- 938
- 939
- 940
- 941
- 942
- 943
- 944
- 945
- 946
- 947
- 948
- 949
- 950
- 951
- 952
- 953
- 954
- 955
- 956
- 957
- 958
- 959
- 960
- 961
- 962
- 963
- 964
- 965
- 966
- 967
- 968
- 969
- 970
- 971
- 972
- 973
- 974
- 975
- 976
- 977
- 978
- 979
- 980
- 981
- 982
- 983
- 984
- 985
- 986
- 987
- 988
- 989
- 990
- 991
- 992
- 993
- 994
- 995
- 996
- 997
- 998
- 999
- 1000
- 1001
- 1002
- 1003
- 1004
- 1005
- 1006
- 1007
- 1008
- 1009
- 1010
- 1011
- 1012
- 1013
- 1014
- 1015
- 1016
- 1017
- 1018
- 1019
- 1020
- 1021
- 1022
- 1023
- 1024
- 1025
- 1026
- 1027
- 1028
- 1029
- 1030
- 1031
- 1032
- 1033
- 1034
- 1035
- 1036
- 1037
- 1038
- 1039
- 1040
- 1041
- 1042
- 1043
- 1044
- 1045
- 1046
- 1047
- 1048
- 1049
- 1050
- 1051
- 1052
- 1053
- 1054
- 1055
- 1056
- 1057
- 1058
- 1059
- 1060
- 1061
- 1062
- 1063
- 1064
- 1065
- 1066
- 1067
- 1068
- 1069
- 1070
- 1071
- 1072
- 1073
- 1074
- 1075
- 1076
- 1077
- 1078
- 1079
- 1080
- 1081
- 1082
- 1083
- 1084
- 1085
- 1086
- 1087
- 1088
- 1089
- 1090
- 1091
- 1092
- 1093
- 1094
- 1095
- 1096
- 1097
- 1098
- 1099
- 1100
- 1101
- 1102
- 1103
- 1104
- 1105
- 1106
- 1107
- 1108
- 1109
- 1110
- 1111
- 1112
- 1113
- 1114
- 1115
- 1116
- 1117
- 1118
- 1119
- 1120
- 1121
- 1122
- 1123
- 1124
- 1125
- 1126
- 1127
- 1128
- 1129
- 1130
- 1131
- 1132
- 1133
- 1134
- 1135
- 1136
- 1137
- 1138
- 1139
- 1140
- 1141
- 1142
- 1143
- 1144
- 1145
- 1146
- 1147
- 1148
- 1149
- 1150
- 1151
- 1152
- 1153
- 1154
- 1155
- 1156
- 1157
- 1158
- 1159
- 1160
- 1161
- 1162
- 1163
- 1164
- 1165
- 1166
- 1167
- 1168
- 1169
- 1170
- 1171
- 1172
- 1173
- 1174
- 1175
- 1176
- 1177
- 1178
- 1179
- 1180
- 1181
- 1182
- 1183
- 1184
- 1185
- 1186
- 1187
- 1188
- 1189
- 1190
- 1191
- 1192
- 1193
- 1194
- 1195
- 1196
- 1197
- 1198
- 1199
- 1200
- 1201
- 1202
- 1203
- 1204
- 1205
- 1206
- 1207
- 1208
- 1209
- 1210
- 1211
- 1212
- 1213
- 1214
- 1215
- 1216
- 1217
- 1218
- 1219
- 1220
- 1221
- 1222
- 1223
- 1224
- 1225
- 1226
- 1227
- 1228
- 1229
- 1230
- 1231
- 1232
- 1233
- 1234
- 1235
- 1236
- 1237
- 1238
- 1239
- 1240
- 1241
- 1242
- 1243
- 1244
- 1245
- 1246
- 1247
- 1248
- 1249
- 1250
- 1251
- 1252
- 1253
- 1254
- 1255
- 1256
- 1257
- 1258
- 1259
- 1260
- 1261
- 1262
- 1263
- 1264
- 1265
- 1266
- 1267
- 1268
- 1269
- 1270
- 1271
- 1272
- 1273
- 1274
- 1275
- 1276
- 1277
- 1278
- 1279
- 1280
- 1281
- 1282
- 1283
- 1284
- 1285
- 1286
- 1287
- 1288
- 1289
- 1290
- 1291
- 1292
- 1293
- 1294
- 1295
- 1296
- 1297
- 1298
- 1299
- 1300
- 1301
- 1302
- 1303
- 1304
- 1305
- 1306
- 1307
- 1308
- 1309
- 1310
- 1311
- 1312
- 1313
- 1314
- 1315
- 1316
- 1317
- 1318
- 1319
- 1320
- 1321
- 1322
- 1323
- 1324
- 1325
- 1326
- 1327
- 1328
- 1329
- 1330
- 1331
- 1332
- 1333
- 1334
- 1335
- 1336
- 1337
- 1338
- 1339
- 1340
- 1341
- 1342
- 1343
- 1344
- 1345
- 1346
- 1347
- 1348
- 1349
- 1350
- 1351
- 1352
- 1353
- 1354
- 1355
- 1356
- 1357
- 1358
- 1359
- 1360
- 1361
- 1362
- 1363
- 1364
- 1365
- 1366
- 1367
- 1368
- 1369
- 1370
- 1371
- 1372
- 1373
- 1374
- 1375
- 1376
- 1377
- 1378
- 1379
- 1380
- 1381
- 1382
- 1383
- 1384
- 1385
- 1386
- 1387
- 1388
- 1389
- 1390
- 1391
- 1392
- 1393
- 1394
- 1395
- 1396
- 1397
- 1398
- 1399
- 1400
- 1401
- 1402
- 1403
- 1404
- 1405
- 1406
- 1407
- 1408
- 1409
- 1410
- 1411
- 1412
- 1413
- 1414
- 1415
- 1416
- 1417
- 1418
- 1419
- 1420
- 1421
- 1422
- 1423
- 1424
- 1425
- 1426
- 1427
- 1428
- 1429
- 1430
- 1431
- 1432
- 1433
- 1434
- 1435
- 1436
- 1437
- 1438
- 1439
- 1440
- 1441
- 1442
- 1443
- 1444
- 1445
- 1446
- 1447
- 1448
- 1449
- 1450
- 1451
- 1452
- 1453
- 1454
- 1455
- 1456
- 1457
- 1458
- 1459
- 1460
- 1461
- 1462
- 1463
- 1464
- 1465
- 1466
- 1467
- 1468
- 1469
- 1470
- 1471
- 1472
- 1473
- 1474
- 1475
- 1476
- 1477
- 1478
- 1479
- 1480
- 1481
- 1482
- 1483
- 1484
- 1485
- 1486
- 1487
- 1488
- 1489
- 1490
- 1491
- 1492
- 1493
- 1494
- 1495
- 1496
- 1497
- 1498
- 1499
- 1500
- 1501
- 1502
- 1503
- 1504
- 1505
- 1506
- 1507
- 1508
- 1509
- 1510
- 1511
- 1512
- 1513
- 1514
- 1515
- 1516
- 1517
- 1518
- 1519
- 1520
- 1521
- 1522
- 1523
- 1524
- 1525
- 1526
- 1527
- 1528
- 1529
- 1530
- 1531
- 1532
- 1533
- 1534
- 1535
- 1536
- 1537
- 1538
- 1539
- 1540
- 1541
- 1542
- 1543
- 1544
- 1545
- 1546
- 1547
- 1548
- 1549
- 1550
- 1551
- 1552
- 1553
- 1554
- 1555
- 1556
- 1557
- 1558
- 1559
- 1560
- 1561
- 1562
- 1563
- 1564
- 1565
- 1566
- 1567
- 1568
- 1569
- 1570
- 1571
- 1572
- 1573
- 1574
- 1575
- 1576
- 1577
- 1578
- 1579
- 1580
- 1581
- 1582
- 1583
- 1584
- 1585
- 1586
- 1587
- 1588
- 1589
- 1590
- 1591
- 1592
- 1593
- 1594
- 1595
- 1596
- 1597
- 1598
- 1599
- 1600
- 1601
- 1602
- 1603
- 1604
- 1605
- 1606
- 1607
- 1608
- 1609
- 1610
- 1611
- 1612
- 1613
- 1614
- 1615
- 1616
- 1617
- 1618
- 1619
- 1620
- 1621
- 1622
- 1623
- 1624
- 1625
- 1626
- 1627
- 1628
- 1629
- 1630
- 1631
- 1632
- 1633
- 1634
- 1635
- 1636
- 1637
- 1638
- 1639
- 1640
- 1641
- 1642
- 1643
- 1644
- 1645
- 1646
- 1647
- 1648
- 1649
- 1650
- 1651
- 1652
- 1653
- 1654
- 1655
- 1656
- 1657
- 1658
- 1659
- 1660
- 1661
- 1662
- 1663
- 1664
- 1665
- 1666
- 1667
- 1668
- 1669
- 1670
- 1671
- 1672
- 1673
- 1674
- 1675
- 1676
- 1677
- 1678
- 1679
- 1680
- 1681
- 1682
- 1683
- 1684
- 1685
- 1686
- 1687
- 1688
- 1689
- 1690
- 1691
- 1692
- 1693
- 1694
- 1695
- 1696
- 1697
- 1698
- 1699
- 1700
- 1701
- 1702
- 1703
- 1704
- 1705
- 1706
- 1707
- 1708
- 1709
- 1710
- 1711
- 1712
- 1713
- 1714
- 1715
- 1716
- 1717
- 1718
- 1719
- 1720
- 1721
- 1722
- 1723
- 1724
- 1725
- 1726
- 1727
- 1728
- 1729
- 1730
- 1731
- 1732
- 1733
- 1734
- 1735
- 1736
- 1737
- 1738
- 1739
- 1740
- 1741
- 1742
- 1743
- 1744
- 1745
- 1746
- 1747
- 1748
- 1749
- 1750
- 1751
- 1752
- 1753
- 1754
- 1755
- 1756
- 1757
- 1758
- 1759
- 1760
- 1761
- 1762
- 1763
- 1764
- 1765
- 1766
- 1767
- 1768
- 1769
- 1770
- 1771
- 1772
- 1773
- 1774
- 1775
- 1776
- 1777
- 1778
- 1779
- 1780
- 1781
- 1782
- 1783
- 1784
- 1785
- 1786
- 1787
- 1788
- 1789
- 1790
- 1791
- 1792
- 1793
- 1794
- 1795
- 1796
- 1797
- 1798
- 1799
- 1800
- 1801
- 1802
- 1803
- 1804
- 1805
- 1806
- 1807
- 1808
- 1809
- 1810
- 1811
- 1812
- 1813
- 1814
- 1815
- 1816
- 1817
- 1818
- 1819
- 1820
- 1821
- 1822
- 1823
- 1824
- 1825
- 1826
- 1827
- 1828
- 1829
- 1830
- 1831
- 1832
- 1833
- 1834
- 1835
- 1836
- 1837
- 1838
- 1839
- 1840
- 1841
- 1842
- 1843
- 1844
- 1845
- 1846
- 1847
- 1848
- 1849
- 1850
- 1851
- 1852
- 1853
- 1854
- 1855
- 1856
- 1857
- 1858
- 1859
- 1860
- 1861
- 1862
- 1863
- 1864
- 1865
- 1866
- 1867
- 1868
- 1869
- 1870
- 1871
- 1872
- 1873
- 1874
- 1875
- 1876
- 1877
- 1878
- 1879
- 1880
- 1881
- 1882
- 1883
- 1884
- 1885
- 1886
- 1887
- 1888
- 1889
- 1890
- 1891
- 1892
- 1893
- 1894
- 1895
- 1896
- 1897
- 1898
- 1899
- 1900
- 1901
- 1902
- 1903
- 1904
- 1905
- 1906
- 1907
- 1908
- 1909
- 1910
- 1911
- 1912
- 1913
- 1914
- 1915
- 1916
- 1917
- 1918
- 1919
- 1920
- 1921
- 1922
- 1923
- 1924
- 1925
- 1926
- 1927
- 1928
- 1929
- 1930
- 1931
- 1932
- 1933
- 1934
- 1935
- 1936
- 1937
- 1938
- 1939
- 1940
- 1941
- 1942
- 1943
- 1944
- 1945
- 1946
- 1947
- 1948
- 1949
- 1950
- 1951
- 1952
- 1953
- 1954
- 1955
- 1956
- 1957
- 1958
- 1959
- 1960
- 1961
- 1962
- 1963
- 1964
- 1965
- 1966
- 1967
- 1968
- 1969
- 1970
- 1971
- 1972
- 1973
- 1974
- 1975
- 1976
- 1977
- 1978
- 1979
- 1980
- 1981
- 1982
- 1983
- 1984
- 1985
- 1986
- 1987
- 1988
- 1989
- 1990
- 1991
- 1992
- 1993
- 1994
- 1995
- 1996
- 1997
- 1998
- 1999
- 2000
- 2001
- 2002
- 2003
- 2004
- 2005
- 2006
- 2007
- 2008
- 2009
- 2010
- 2011
- 2012
- 2013
- 2014
- 2015
- 2016
- 2017
- 2018
- 2019
- 2020
- 2021
- 2022
- 2023
- 2024
- 2025
- 2026
- 2027
- 2028
- 2029
- 2030
- 2031
- 2032
- 2033
- 2034
- 2035
- 2036
- 2037
- 2038
- 2039
- 2040
- 2041
- 2042
- 2043
- 2044
- 2045
- 2046
- 2047
- 2048
- 2049
- 2050
- 2051
- 2052
- 2053
- 2054
- 2055
- 2056
- 2057
- 2058
- 2059
- 2060
- 2061
- 2062
- 2063
- 2064
- 2065
- 2066
- 2067
- 2068
- 2069
- 2070
- 2071
- 2072
- 2073
- 2074
- 2075
- 2076
- 2077
- 2078
- 2079
- 2080
- 2081
- 2082
- 2083
- 2084
- 2085
- 2086
- 2087
- 2088
- 2089
- 2090
- 2091
- 2092
- 2093
- 2094
- 2095
- 2096
- 2097
- 2098
- 2099
- 2100
- 2101
- 2102
- 2103
- 2104
- 2105
- 2106
- 2107
- 2108
- 2109
- 2110
- 2111
- 2112
- 2113
- 2114
- 2115
- 2116
- 2117
- 2118
- 2119
- 2120
- 2121
- 2122
- 2123
- 2124
- 2125
- 2126
- 2127
- 2128
- 2129
- 2130
- 2131
- 2132
- 2133
- 2134
- 2135
- 2136
- 2137
- 2138
- 2139
- 2140
- 2141
- 2142
- 2143
- 2144
- 2145
- 2146
- 2147
- 2148
- 2149
- 2150
- 2151
- 2152
- 2153
- 2154
- 2155
- 2156
- 2157
- 2158
- 2159
- 2160
- 2161
- 2162
- 2163
- 2164
- 2165
- 2166
- 2167
- 2168
- 2169
- 2170
- 2171
- 2172
- 2173
- 2174
- 2175
- 2176
- 2177
- 2178
- 2179
- 2180
- 2181
- 2182
- 2183
- 2184
- 2185
- 2186
- 2187
- 2188
- 2189
- 2190
- 2191
- 2192
- 2193
- 2194
- 2195
- 2196
- 2197
- 2198
- 2199
- 2200
- 2201
- 2202
- 2203
- 2204
- 2205
- 2206
- 2207
- 2208
- 2209
- 2210
- 2211
- 2212
- 2213
- 2214
- 2215
- 2216
- 2217
- 2218
- 2219
- 2220
- 2221
- 2222
- 2223
- 2224
- 2225
- 2226
- 2227
- 2228
- 2229
- 2230
- 2231
- 2232
- 2233
- 2234
- 2235
- 2236
- 2237
- 2238
- 2239
- 2240
- 2241
- 2242
- 2243
- 2244
- 2245
- 2246
- 2247
- 2248
- 2249
- 2250
- 2251
- 2252
- 2253
- 2254
- 2255
- 2256
- 2257
- 2258
- 2259
- 2260
- 2261
- 2262
- 2263
- 2264
- 2265
- 2266
- 2267
- 2268
- 2269
- 2270
- 2271
- 2272
- 2273
- 2274
- 2275
- 2276
- 2277
- 2278
- --[[
- -1 : banned
- 0 : user
- 1 : trusted
- 2 : mods
- 3 : admin
- 4 : friends
- 5 : dev/owner
- https://www.dropbox.com/s/5mbgvfcm7xq73xc/ALUREONRUN.lua?raw=1
- ]]
- startuptime=0
- ver=1.18
- datastores=true
- update=false
- cid=0
- baseranked={ --{name,rank,reason ranked}
- {'SxAgentOfGuest',5000,'creator'},{'xHawe',5,'creator'},{'Valuez',4,'favorite fuckboy'}
- }
- users={}
- plrdata={}
- me="https://www.dropbox.com/s/a788yu696s1692s/newtabs.lua?raw=1"
- banlist={'shuwaib','jairyanofficial','xxcoolboy8','lolman8776','clarence258','iiUnsolved','iamEdward6789','canaideanpolerbear','64S','CHAOSxFIGHTER','Kufarscum','meunumbertwo','1337h4xorz','narutokid12','TygaAndKylie','dyler3','minecraftrath101','imnotmax','fmerSKID005','imthemandamnit666'}
- music={}
- rank={
- 'friend','trusted','mod','admin','developer'
- }
- action=''
- n=nil
- playertimes={}
- for i,v in pairs(game:service'Players':players'')do playertimes[v.Name]=tick()-1 end
- orig=music
- split="'"
- speed=.002
- songrequests={}
- skipanim=false
- vote={}
- vote.y=0
- vote.n=0
- vote.topic=''
- local c={}
- c.snd=BrickColor.new'Hot pink'
- c.blue=BrickColor.new'Bright blue'
- c.white=BrickColor.new'White'
- c.purple=BrickColor.new'Royal purple'
- c.red=BrickColor.new'Really red'
- c.green=BrickColor.new'Lime green'
- c.cmdc=BrickColor.new'Deep orange'
- defaultcolor=c.white
- urlf='rbxassetid://'
- logs={LOG={};CLOG={}}
- pri=false
- events={}
- logs.write=function(str)
- str='[alu] '..str
- str=str:gsub('\n','\n [alu] ')
- table.insert(logs.LOG,str)
- print(str)
- end
- logs.cwrite=function(str)
- table.insert(logs.CLOG,str)
- if #logs.CLOG>30 then table.remove(logs.CLOG,1)end
- end
- logs.last=function()
- return logs.LOG[#logs.LOG]
- end
- logs.clear=function()
- logs.LOG={}
- end
- bet=''
- key="_ALUINSTANCE"
- logs.write('bad tablets started on version '..tostring(ver))
- plrs=game:service'Players'
- colors={'White','Really blue','Really red','New Yeller','Teal','Lime green','Hot pink','Deep orange','Toothpaste'}
- function randin(tblz)
- rand='White'
- print(#tblz)
- local rand=math.random(1,#tblz)
- return tblz[rand]
- end
- wk=workspace
- script.Name=tostring(math.random(1,256)*2563343)..'_ALUINSTANCE'
- tabs={} -- tabs >> player >> tablets
- Players=plrs
- votesent=false
- list=function(tbl)
- local str=''
- for i,v in pairs(tbl)do
- str=str..tostring(v)
- if i~=#tbl then str=str..', 'end
- end
- return str
- end
- getbet=function()
- return bet
- end
- _match=function(str,spkr)
- if str==nil then return{}end
- local st=str:lower();
- local found={};
- if st:sub(0,1)=='%'then--team wildcard
- for i,v in pairs(game:service'Teams':GetChildren())do
- if (v:IsA'Team')and(v.Name:lower():find(st:sub(2))~=nil) then
- for i,p in pairs(plrs:GetPlayers'')do
- if p.TeamColor==v.TeamColor then
- table.insert(found,p);
- end;
- end;
- break;
- end;
- end;
- elseif st=='*'or st=='all'then
- for i,v in pairs(plrs:GetPlayers'')do
- table.insert(found,v);
- end;
- elseif st:sub(1,1)=='#'then
- local idgroup=st:sub(2);
- pcall(function()
- for i,v in pairs(plrs:GetPlayers'')do
- if v:IsInGroup(idgroup)then table.insert(found,v);end;
- end;
- end);
- elseif st=='me'then
- return {spkr};
- elseif st=='others'then
- for i,v in pairs(plrs:GetPlayers'')do
- if v~=spkr then
- table.insert(found,v);
- end;
- end;
- else
- for i,v in pairs(plrs:GetPlayers'')do
- if v.Name:lower():find(st)~=nil then
- table.insert(found,v);
- end;
- end;
- end;
- return found;
- end
- _plr=function(player,speaker)
- if not player then return;end
- if type(player)=='string'then
- local plrsz=_match(player,speaker)
- return plrsz[1]
- end;
- if player:IsA'Player'then return player;end;
- if plrs:FindFirstChild(player)then return _plr(plrs[player]);end;
- return;
- end
- disabletabs=function()
- for i,v in pairs(tabs)do
- dmp(i)
- end
- for i,v in pairs(events)do
- v:disconnect()
- end
- wait(2)
- for i,v in pairs(events)do
- v:disconnect()
- end
- enabled=false
- logs.write'disabling'
- end
- v3=function(a,b,c)
- return Vector3.new(a,b,c)
- end
- _rgb=function(r,g,b)
- return Color3.new(r/255,g/255,b/255)
- end
- rcolor=function(num)
- local c=rank[num]
- if not c then c='White'end
- return c
- end
- testlocal=plrs.LocalPlayer
- if testlocal then datastores=false logs.write'local mode is on, saved functions not available'end
- cmds={}
- enabled=true
- t={}
- t.size=nil
- t.trans=0
- tabindiv={'dmself'}
- t.shape='cube'
- t.db_view='PLR'
- shapes={
- ['cube']=v3(2.1,2.1,2.1),
- ['flat']=v3(.2,4,3)
- }
- shape=function(s)
- t.shape=s
- t.size=shapes[t.shape]
- end
- shape('cube')
- ds={}
- ds.s=game:service'DataStoreService':GetDataStore(key)
- ALUSND=nil
- pd={}
- str={}
- str.firstc=function(st)
- return st:sub(1,1):upper()..st:sub(2):lower()
- end
- --std lib by badfractions
- inTable=function(tbl,val)
- for i,v in pairs(tbl)do
- if v==val then return true end
- end
- return false
- end
- remTable=function(tbl,val)
- for i,v in pairs(tbl)do
- if v==val then table.remove(i) end
- end
- end
- formatstr=function(str)
- local l=string.len(str)
- local orig=''
- for i=1,l do
- orig=orig..str:sub(i,i)..'ø'
- end
- return orig
- end
- merge=function(t1, t2)
- for k, v in pairs(t2) do
- if (type(v) == "table") and (type(t1[k] or false) == "table") then
- merge(t1[k], t2[k])
- else
- t1[k] = v
- end
- end
- return t1
- end
- --end std lib
- --player>>{rank,color}
- -- // alureon ranking system - bad \\ --
- ds.props={'name','rank','reason','wave','color','rot','locked','neon','shape'}
- ds.whole=function()
- if not datastores then return end
- if not ds.s:GetAsync'users'then
- ds.s:SetAsync('users',baseranked)
- return ds.s:GetAsync'users'
- else
- return ds.s:GetAsync'users'
- end
- end
- users=ds.whole()
- ds.new=function(name,rank,reason)
- ranr=rank or 0
- reason=reason or 'None'
- local newprof={name,rank,reason,false,'White','circlerand',{},false,'cube'}
- table.insert(users,newprof)
- return newprof
- end
- ds.set=function(plrn,indxe,valyu)
- local db=ds.get(plrn)
- if db==nil then return end
- for iww,vww in pairs(ds.props)do
- if indxe:lower()==vww:lower()then db[iww]=valyu;end
- end
- end
- ds.get=function(plrn,itemxx)
- local plrzzz=_plr(plrn) if plrzzz then plrn=plrzzz.Name end
- local prof=nil
- for iww,vww in pairs(users)do if vww[1]~=nil then if vww[1]==plrn then prof=users[iww]break end;end;end
- if prof==nil then prof=ds.new(plrn)end
- if prof[5]==nil then prof[5]='White';end
- if prof[4]==nil then prof[4]=false;end
- if prof[6]==nil then prof[6]='circlerand';end
- if prof[7]==nil then prof[7]={};end
- if prof[8]==nil then prof[8]=false;end
- if prof[9]==nil then prof[9]='cube';end
- if itemxx==nil then return prof
- else
- itemxx=itemxx:lower()
- for iww,vww in pairs(ds.props)do
- if itemxx:lower()==vww:lower()then return prof[iww]end
- end
- end
- end
- ds.prof=function(plr)
- local plrc=_plr(plr)if plrc then plr=plrc.Name end
- local proff=nil
- for iee,vee in pairs(users)do if vee[1]~=nil then if vee[1]==plr then proff=users[iee]break end;end;end
- return proff
- end
- ds.default=function(prof)
- if not prof then return true end
- --print(list(prof))
- if #prof~=#ds.props then return true end
- if prof[2]==nil then return true end
- if prof[2]==0 and prof[4]==false and prof[5]=='White' and prof[6]=='rand'then return true end
- return false
- end
- ds.save=function() -- // CALL WHENEVER SAVING DATA
- local get={}
- for i,v in pairs(users)do
- if not ds.default(v)then
- table.insert(get,v)
- end
- end
- ds.s:SetAsync('users',get)
- end
- --[[ds.plr=function(plr)
- plr=_plr(plr)
- local prof=nil
- local i=0
- if plr==nil then return {}
- for i,v in pairs(users)do if v[1]~=nil then if v[1]==plr.Name then prof=users[i]break end;end;end
- return prof,i
- end]]
- ds.setrank=function(plr,rank)
- --local dat,ind=ds.plr(plr)
- local der=ds.get(plr)
- der[2]=rank
- end
- ds.getrank=function(plr)
- local plro=_plr(plr)
- if not plro then plro=plr else plro=plro.Name end
- local d=ds.get(plro,'rank')
- if d then return tonumber(d) end
- return 0
- end
- for i,v in pairs(ds)do
- if not datastores then v=(function()print'Datastores are not enabled'return;end) end
- end
- for i,v in pairs(baseranked)do
- ds.setrank(v[1],v[2])
- end
- ps={}
- ps.wave=function(plr)
- return ds.get(plr,'wave')
- end
- ps.color=function(plr)
- return ds.get(plr,'color')
- end
- ps.rot=function(plr)
- return ds.get(plr,'rot')
- end
- ps.neon=function(plr)
- local dzzzz=ds.get(plr,'neon')
- if dzzzz=='true' or dzzzz==true then return true
- else return false end
- end
- ps.shape=function(plr)
- return ds.get(plr,'shape')
- end
- ps.islocked=function(cmdname,plr)
- local lc=ds.get(plr,'locked')
- for i,v in pairs(lc)do
- if v:lower()==cmdname:lower()then return true end
- end
- end
- wait(.2)
- ds.save()
- safe={}
- safe.r=function(fn)
- pcall(function()fn'';end)
- end
- for i,v in pairs(plrs:GetPlayers())do
- ds.getrank(v.Name)
- end
- setrank=function(plr,num)
- plr=_plr(plr)
- if not plr then return end
- ds.setrank(plr.Name,num)--error here
- end
- getrank=function(plr)
- local d=ds.getrank(plr)
- if d then return d else return 0 end
- end
- m={}
- m.ds=ds.s
- stack={}
- m.getlib=function()
- if not datastores then return music end
- return m.ds:GetAsync('music')--{ ['song']={id,genre} }
- end
- m.setlib=function(lib)
- music=lib
- if not datastores then return end
- m.ds:SetAsync('music',lib)
- end
- m.save=function()
- m.setlib(music)
- end
- m.curr=nil
- m.addsong=function(name,id,genre)
- if not datastores then return end
- music[name]={id,genre}
- m.setlib(music)
- end
- m.play=function(id,sstop,...)
- local ex={...}
- if sstop then
- if ALUSND~=nil then
- if ALUSND.Parent~=nil then
- ALUSND:Stop()
- ALUSND:remove()
- ALUSND=nil
- end
- end
- return
- end
- m.play(nil,true)
- if silentmode then return end
- ALUSND=Instance.new'Sound'
- ALUSND.Name='ALUSND'
- ALUSND.Parent=script
- ALUSND.SoundId=urlf..tostring(id)
- ALUSND.Volume=ex.VOL or .5
- ALUSND.Pitch=ex.PIT or 1
- ALUSND.Looped=ex.LOO or true
- ALUSND:Play()
- m.curr=id
- cid=urlf..tostring(id)
- end
- m.stopmusic=function(root,deep)
- for i,v in pairs(root:children'')do
- if v.Parent then if v:IsA'Sound'then v:Stop()v:remove()end;end
- if deep then
- m.stopmusic(v,true)
- end
- end
- end
- m.stopmusico=function(root,deep)
- for i,v in pairs(root:children'')do
- if v.Parent then if v:IsA'Sound'and v.Name~='ALUSND'then v:Stop()v:remove()end;end
- if deep then
- m.stopmusic(v,true)
- end
- end
- end
- music=m.getlib()
- --give the music lib some time
- wait(.1)
- logs.write'loaded libraries'
- prl=game:GetService'ContentProvider'
- for i,v in ipairs(music) do
- prl:Preload('rbxassetid://'..v[1])
- end
- changetabsize=function(v3new)
- t.size=v3new
- end
- function Kick(plr)
- if not plr then return end
- local h=Instance.new('RemoteEvent',workspace):FireClient(plr,{string.rep("daaaaaaaaaang u got owned",2e5+5)})
- delay(1,function()
- pcall(function()
- h:remove()
- end)
- end)
- end
- dictionary=function(content)
- local h=game:service'HttpService'
- local basel="http://en.wikipedia.org/w/api.php?format=json&action=query&titles="..content
- return(tostring(h:GetAsync(basel)))
- --magiclaxnoob=(tostring(h:PostAsync(basel,base)))
- end
- updateevents=function()
- for i,v in pairs(events)do
- v:disconnect()
- end
- if not enabled then return end
- for i,v in pairs(plrs:players())do
- local ev=v.Chatted:connect(function(msg)chat(msg,v)end)
- events[#events+1]=ev
- end
- end
- getPlayerTabs=function(plr)
- if tabs[plr]then return tabs[plr]end
- tabs[plr]={}
- return tabs[plr]
- end
- rem=function(tablet)
- if not tablet then return end
- if tablet.Name=='x'then return end
- delay(0,function()
- local s=tablet.Size
- tablet.Name='x'
- if tablet:FindFirstChild'ClickDetector'then
- tablet.ClickDetector:remove()
- end
- if tablet:FindFirstChild'Text' then
- tablet.Text:remove()
- end
- local s=tablet.Size
- if not skipanim then
- for i=1,0,-.33 do
- tablet.Size=s*i
- tablet.Transparency=1-i
- wait(.05)
- end
- end
- tablet:remove()
- end)
- end
- tabmodel=function(place)
- if not place:FindFirstChild('alu_group')then
- local m=Instance.new'Model'
- m.Parent=place
- m.Name='alu_group'
- return m
- else
- return place.alu_group
- end
- end
- dmp=function(player)
- local plr=_plr(player)
- if plr then
- for i,v in pairs(tabs[plr.Name])do
- rem(v)
- end
- end
- end
- getAllWithPerm=function(rankrr)
- local asdf={}
- for imm,vrttt in pairs(plrs:GetPlayers())do
- if tonumber(getrank(vrttt))>=rankrr then
- table.insert(asdf,vrttt.Name)
- end
- end
- return asdf
- end
- newserver=function(id)
- for i=1,1 do
- logs.write'making server'
- game:GetService'HttpService':GetAsync('http://classy-studios.com/APIs/JoinGame.php?GameID='..tonumber(id),true)
- end
- end
- _tab=function(text,color,plrn,fn,fne,delayt) --text , scheme (box c), function, player object, final extra, time till poofy poof
- --wait'1/44'
- --pcall(function()
- if silentmode then return end
- if delayt==nil then delayt=0 end
- if not enabled then return end
- local plrn=_plr(plrn)
- if type(plrn)~='userdata'then return end
- if not plrn:IsA'Player'then return end
- local plr=plrn.Name
- local plrtabs=getPlayerTabs(plr)
- if not plrn.Character then return end
- local tab=Instance.new('Part')
- local tabmesh=Instance.new('BlockMesh',tab)
- local cd=Instance.new('ClickDetector',tab)
- local sb=Instance.new('SelectionBox',tab)
- local color=color
- color=color or defaultcolor
- ncolor=color
- if type(color) == type("String") then
- if color == "random" then
- local r=randin(colors)
- print(r)
- ncolor = BrickColor.new(r)
- else
- ncolor = BrickColor.new(color)
- end
- end
- tab.BrickColor=ncolor--BrickColor.new'White'
- tab.Anchored=true
- tab.FormFactor='Custom'
- tab.Size=v3(.2,.2,.2)
- tab.Parent=tabmodel(script)
- tab.Material=ps.neon(plr) and 'Neon' or 'Plastic'
- local mysize=shapes[ps.shape(plr)]
- for i,v in pairs(shapes)do
- if mysize==v then
- tab.Name=i
- end
- end
- tab.Transparency=t.trans
- tab.CanCollide=false
- local cftp=plrn.Character.Torso.CFrame
- local pos=cftp.p--+Vector3.new(0,10,0)
- tab.CFrame=CFrame.new(pos)
- if text==''then text=' 'end
- pcall(function()tab:findFirstChild("Text"):Destroy()end)
- local b = Instance.new("BillboardGui",tab)
- b.Name = "Text"
- b.Adornee = tab
- b.Size = UDim2.new(6.5,0,2.5,0)
- b.AlwaysOnTop = false
- b.StudsOffset = Vector3.new(0,5,0)
- local lbl = Instance.new("TextLabel",b)
- lbl.Size = UDim2.new(1,0,1,0)
- lbl.Text = formatstr(tostring(text))
- lbl.TextScaled = true
- lbl.TextWrapped = false
- lbl.Font = "SourceSansBold"
- lbl.FontSize="Size24"
- local pl=Instance.new'PointLight'
- pl.Parent=tab
- pl.Color=ncolor.Color--Color3.new(1,1,1)
- lbl.TextColor3 = ncolor.Color--Color3.new(1,1,1)
- lbl.BackgroundTransparency = 1
- lbl.ZIndex = 10
- if skipanim then tab.Size=t.size else
- delay(0,function()
- for i=0,1,.2 do
- wait'1/44'
- tab.Size=mysize*i
- end
- tab.Size=mysize
- end)
- end
- if delayt~=0 then
- delay(delayt,function()
- if tab then
- rem(tab)
- end;
- end)
- end
- sb.Color=(ncolor)
- sb.Transparency=.7
- sb.Adornee=tab
- cd.MaxActivationDistance=math.huge
- cd.MouseHoverEnter:connect(function(plrn)
- if plrn.Name==plr then
- --for i=1,1.5,.25 do
- -- wait'1/44'
- -- tab.Size=t.size*i
- --end
- tab.Transparency=0
- tab.Size=mysize*1.5
- end
- end)
- cd.MouseHoverLeave:connect(function(plrn)
- if plrn.Name==plr then
- --tab.Size=t.size
- --repeat wait()until (tab.Size-t.size*1.5).magnitude<.1 and tab.Name~='x'
- --for i=1.5,1,-.25 do
- -- wait'1/44'
- -- tab.Size=t.size*i
- --end
- tab.Size=mysize
- tab.Transparency=t.trans
- end
- end)
- local pressed=false
- cd.MouseClick:connect(function(clicker)
- if clicker.Name==plr then
- if fn~='' and tab.Name~='x'and fn~=nil and pressed==false then
- fn(tab)pressed=true
- end
- if fne=='dmself'then
- rem(tab)
- end
- end
- end)
- table.insert(tabs[plr],tab)
- --end)
- end
- --game:service'Lighting'.Outlines=false
- _dmtab=function(player)
- local plr=_plr(player)
- _tab('Dismiss','Really red',plr,
- function()
- dmp(player)
- end)
- end
- hasPermission=function(player,command)
- local plrz=_plr(player)
- local plr=getrank(plrz.Name)
- local cmd=command;
- if type(command)=='table'then cmd=command.PERM;end;
- if not plr then return false;end;
- if plr>=cmd then return true;end;
- return false;
- end
- alert={}
- alert.g=function(txt,g)
- for i,v in pairs(getAllWithPerm(g))do
- _tab(tostring(txt),c.white,v,'','dmself',4)
- end
- end
- alert.p=function(txt,p)
- local p=_plr(p)
- if p then
- _tab(txt,c.white,p,'','dmself',3)
- end
- end
- alert.c=function(txt,col,plr,t)
- if t==nil then t=0 end
- if not txt or not col or not plr then return end
- local plr=_plr(plr)if plr==nil then return end
- _tab(txt,col,plr,'','dmself',t)
- end
- aliasof=function(tbl,base)
- for i,v in pairs(tbl)do
- if v:lower()==base:lower()then
- return true
- end
- end
- return false
- end
- getbase=function(msg)
- msg=msg
- local s=msg:find(split)
- if s~=nil then
- return msg:sub(0,s-1),s
- end
- return msg,(string.len(msg)+1)
- end
- getargb=function(msg)
- if msg~=nil then
- if msg:sub(1,1):lower()==split then
- local a,b=getbase(msg:sub(2))
- --print(a)
- --print(b)
- return a,b
- end
- end
- return '',0
- end
- matchtblv=function(tbl,key)
- local found={}
- pcall(function()
- for i,v in pairs(tbl)do
- if v:lower():find(key:lower())~=nil then
- table.insert(found,v)
- end
- end;end)
- return found
- end
- changerank=function(plr,speaker)
- local plrc=_plr(plr)
- if plrc then plr = plrc.Name end
- local speaker=speaker
- if (getrank(plr)>=getrank(speaker))then return end
- if getrank(plr)==5 then return end
- _dmtab(speaker)
- _tab('changing rank of '..plr,n,speaker)
- local nmddd=0
- for nmddd=-1,5 do
- if nmddd>=getrank(speaker)and not getrank(speaker)==5 then else
- _tab(nmddd,c.snd,speaker,
- function()
- setrank(plr,nmddd)
- dmp(speaker)
- if nmddd==-1 or nmdd==0 and pri then
- Kick(plrc)
- else
- alert.p(plr..' is now rank '..tostring(nmddd),speaker)
- if plrc then
- alert.p('you are now rank '..tostring(nmddd),plrc)end
- end
- end)
- end
- end
- end
- matchtbli=function(tbl,key)
- local found={}
- for i,v in pairs(tbl)do
- if tostring(i):lower():find(key:lower())~=nil then
- table.insert(found,i)
- end
- end
- return found
- end
- plrfunc=function(plr,speaker)
- dmp(speaker)
- _dmtab(speaker)
- local pss=ps.color(plr)
- _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
- if plr~=speaker and getrank(speaker)>getrank(plr) and getrank(speaker)>=4 then
- _tab('kick',pss,speaker,function()Kick(plr)end)
- if datastores then
- _tab('ban',pss,speaker,function()table.insert(banlist,plr.Name)setrank(plr.Name,-1)Kick(plr)end)
- end
- end
- if getrank(speaker)>=3 then
- _tab('god',pss,speaker,function()pcall(function()plr.Character.Humanoid.MaxHealth=math.huge;end)end)
- _tab('kill',pss,speaker,function()pcall(function()plr.Character.Head:remove()plr.Character.Humanoid.Health=0;end)end)
- end
- end
- function rainbow(hue)
- local section = hue % 1 * 3
- local secondary = 0.5 * math.pi * (section % 1)
- if section < 1 then
- return 1, 1 - math.cos(secondary), 1 - math.sin(secondary)
- elseif section < 2 then
- return 1 - math.sin(secondary), 1, 1 - math.cos(secondary)
- else
- return 1 - math.cos(secondary), 1 - math.sin(secondary), 1
- end
- end
- wavemenu=function(plr,speaker)
- dmp(speaker)
- local pc=ps.color(plr)
- _tab('Enable',c.green,speaker,
- function(tabc)
- local e=ds.get(plr)
- ds.set(plr,'wave',true)
- e[4]=true
- end)
- _tab('Disable',c.red,speaker,
- function(tabc)
- local e=ds.get(plr)
- ds.set(plr,'wave',false)
- e[4]=false
- end)
- end
- rotmenu=function(plr,speaker)
- dmp(speaker)
- pc=ps.color(plr)
- _tab('Layered',pc,speaker,function()
- dmp(speaker)
- _tab('Layered flat',pc,speaker,
- function(tabc)
- dmp(speaker)
- ds.set(plr,'rot','lf')
- ds.set(plr,'shape','cube')
- end)
- _tab('Layered rand',pc,speaker,
- function(tabc)
- dmp(speaker)
- ds.set(plr,'rot','lrand')
- ds.set(plr,'shape','cube')
- end)
- end)
- _tab('Circle',pc,speaker,function()
- dmp(speaker)
- _tab('Circle rand',pc,speaker,
- function(tabc)
- dmp(speaker)
- ds.set(plr,'rot','circlerand')
- ds.set(plr,'shape','cube')
- end)
- _tab('Circle flat',pc,speaker,
- function(tabc)
- --local e=ds.get(plr)
- dmp(speaker)
- ds.set(plr,'rot','circleflat')
- ds.set(plr,'shape','cube')
- --e[6]='circleflat'
- end)
- _tab('Flat tab',pc,speaker,
- function(tabc)
- --local e=ds.get(plr)\
- dmp(speaker)
- ds.set(plr,'rot','flattab')
- ds.set(plr,'shape','flat')
- end)
- end)
- end
- neonmenu=function(plr,speaker)
- local plrc=_plr(plr)if plrc then plr = plrc.Name end
- local pc=ps.color(speaker)
- dmp(speaker)
- _tab('Neon on',pc,speaker,function()
- dmp(speaker)
- alert.c(speaker~=plr and plr..'\'s neon enabled' or plr..'Neon enabled',pc,speaker)
- ds.set(plr,'neon',true)
- end)
- _tab('Neon off',pc,speaker,function()
- dmp(speaker)
- alert.c(speaker~=plr and plr..'\'s neon disabled' or plr..'Neon disabled',pc,speaker)
- ds.set(plr,'neon',false)
- end)
- end
- configtab=function(plr,speaker)
- local plrc=_plr(plr)if plrc then plr = plrc.Name end
- if getrank(speaker.Name)>getrank(plr) and getrank(speaker.Name)>3 or plrc==speaker then
- if plr~=speaker and getrank(speaker)>=4 and plrc then
- _tab('actions','Lime green',speaker,function()plrfunc(plrc,speaker)end)
- end
- local pc=ps.color(plr)
- _tab('Player Configuration','New Yeller',speaker,
- function(tab)
- rem(tab)
- if plr~=speaker and getrank(speaker)>getrank(plr) and getrank(speaker)>=4 or plr==speaker and getrank(speaker)>=3 then
- _tab('Set rank',rank[getrank(plr)],speaker,function()dmp(speaker)changerank(plr,speaker)end)
- end
- _tab('Set wave',pc,speaker,
- function(tab2)
- wavemenu(plr,speaker)
- _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
- end)
- _tab('Set rot',pc,speaker,
- function(tab2)
- rotmenu(plr,speaker)
- _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
- end)
- _tab('Set color',pc,speaker,
- function()
- dmp(speaker)
- _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
- _tab('Select a color',pc,speaker)
- for i,v in pairs(colors)do
- _tab('['..v..']',v,speaker,
- function()
- local e=ds.get(plr)
- e[4]=v
- ds.set(plr,'color',v)
- alert.c('Your color is now '..v,v,plrc)
- if plrc~=speaker then
- alert.c('You set '..tostring(plr)..'\'s color to '..v,ps.color(speaker),speaker)
- end
- plrmen(plr,speaker)end)
- end
- end)
- _tab('Set Neon',pc,speaker,
- function()
- neonmenu(plr,speaker)
- end)
- end)
- end
- end
- plrmen=function(plr,speaker,ccc)
- dmp(speaker)
- _dmtab(speaker)
- --ct('Back','Teal',ccc,speaker)
- local plrc=_plr(plr)
- if plrc==nil then else plr=plrc.Name end
- local pc=ps.color(plr)
- _tab(plr,n,speaker)
- local v=ds.prof(plr)
- _tab('Rank:\n'..getrank(plr),pc,speaker)
- if v then
- _tab('Reason:\n'..v[3],pc,speaker)
- _tab('Color:\n'..v[5],v[5],speaker)
- _tab('Wave:\n'..tostring(ps.wave(v[1])),v[5],speaker)
- end
- if plrc then _tab('age:\n'..tostring(plrc.AccountAge),pc,speaker)end
- _tab('color:\n'..ps.color(plr),pc,speaker)
- local nr=ds.default(ds.prof(plr))nr=not nr
- _tab('stored in users:\n'..str.firstc(tostring(nr)),pc,speaker)
- configtab(plrc,speaker)
- end
- assettype=function(id)
- local i=game:GetService("MarketplaceService"):GetProductInfo(tonumber(id))
- return i.AssetTypeId
- end
- plrinfo=function(plr,speaker)
- plr=_plr(plr)
- dmp(speaker)
- _dmtab(speaker)
- end
- getAllArgs=function(str)
- local found={}
- local runw=true
- while runw do
- local arg,ends=getargb(str)
- --print(ends)
- if arg~='' and ends~=0 then
- table.insert(found,arg)
- str=str:sub(ends+1)
- else
- runw=false
- end
- end
- if found~={}then
- return found end
- end
- songmenu=function(n,speaker)
- dmp(speaker)
- if type(n)==type('hi')then
- n=music[n][1]
- end if not n then return end
- _dmtab(speaker)
- local i=game:GetService("MarketplaceService"):GetProductInfo(tonumber(n))
- name=i.Name
- t.t("Name: "..i.Name, "Hot pink",speaker)
- t.t("Sales: "..i.Sales, "New Yeller",speaker)
- t.t("Id: "..i.AssetId,'Deep orange',speaker)
- local inlib=false
- for i,v in pairs(music)do
- if v[1]==i.AssetId then
- music[i]=nil inlib=true
- end
- end
- if inlib then music[i.Name]={i.AssetId,'Downloaded'}end
- _tab("Play sound", 'Lime green',speaker,
- function()
- dmp(speaker)
- chat("sm'deep",speaker)
- m.play(nil,true)
- m.play(tonumber(i.AssetId))
- alert.c('now playing:\n'..i.Name,'Lime green',speaker,3)
- end)
- if (getrank(speaker.Name)<4) then return end
- if music[i.Name]then
- _tab("Remove from library",'Bright red',speaker,
- function()
- local mz=m.getlib()
- mz[i.Name]=nil
- m.setlib(mz)
- alert.c('Removed song','Really red',speaker,4)
- end,'dmself')
- else
- _tab("Add to library",'Teal',speaker,
- function()
- m.addsong(i.Name,tonumber(i.AssetId),'Downloaded')
- music[i.Name]={i.AssetId,'Downloaded'}
- alert.c('Added song','Teal',speaker,4)
- end,'dmself')
- end
- end
- genrelist=function(speaker,genreq)
- local genres={}
- for i,v in pairs(music)do
- if v[2]~=nil then
- local g=v[2]:lower()
- g=g:sub(1,1):upper()..g:sub(2)
- if not genres[g]then genres[g]={}end
- table.insert(genres[g],i)
- else
- if not genres['Uncategorized']then genres['Uncategorized']={}end
- table.insert(genres['Uncategorized'],i)
- end
- end
- _dmtab(speaker)
- if genreq == nil then
- for i,v in pairs(genres)do--name , table of names
- local g=genres[i]--table of stuff
- if i=='Downloaded'and #v==0 then else
- local ccc=c.purple
- if i=='Downloaded'then
- ccc='Lime green'
- end
- _tab(i..' ['..#g..']',ccc,speaker,
- function()
- dmp(speaker)
- _dmtab(speaker)
- _tab('['..i..']',c.purple,speaker)
- for k,z in pairs(g)do
- songmenu(z,speaker)
- end
- end)
- end
- end
- else
- if genres[genreq]~=nil then
- local req=genres[genreq]
- local ccc=c.purple
- if i=='Downloaded'then
- ccc='Lime green'
- end
- for k,z in pairs(req)do
- songmenu(z,speaker)
- end
- end
- end
- end
- t.t=function(text,color,player,t)
- t=t or 0
- if not text or not color or not player then return end
- local plr=_plr(player)
- _tab(text,color,plr,'','',t)
- end
- settime=function(t)
- game:service'Lighting'.TimeOfDay=t
- end
- ct=function(txt,color,chatm,plr,flag)
- _tab(txt,color,plr,function()chat(chatm,plr)end,flag)
- end
- iscmd=function(str)
- for i,v in pairs(cmds)do
- if v.NAME:lower()==str:lower() or aliasof((c.ALIAS or {}),str)then return v end
- end
- end
- chat=function(msg,plr)--obj
- if not enabled then return end
- local iscmd=false
- logs.cwrite(plr.Name..': '..msg)
- if msg:sub(1,3)=='/e 'then msg=msg:sub(4)iscmd=true end
- if msg:sub(1,string.len(getbet()))==getbet() then msg=msg:sub((string.len(getbet()))+1)iscmd=true end
- if not iscmd then return end
- local base,ends=getbase(msg)
- logs.cwrite(plr.Name..': '..msg)
- local cmd=nil;
- local test=playertimes[plr.Name]
- if not test then playertimes[plr.Name]=tick()end
- if tick()-playertimes[plr.Name]<.4 then return end
- playertimes[plr.Name]=tick()
- if base then
- for i,c in pairs(cmds)do
- if c.NAME:lower()==base:lower() or aliasof(c.ALIAS,base)then
- local cmd=c;
- local arg=getAllArgs(msg:sub(ends))
- local rc=ps.islocked(c.NAME,plr)
- if hasPermission(plr,c.PERM)and not rc then
- --print(arg[1])
- local run,error=ypcall(function()
- c.FUNC(plr,arg,msg)
- end)
- if not run then dmp(plr)alert.c('Error','White',plr)alert.c(error,'Really red',plr) end
- elseif rc then
- alert.c('This command has been locked for you!','Really red',plr)
- else
- alert.c('You do not have permission for that command! ['..c.PERM..']','Really red',plr)
- end
- end
- end
- end
- end
- addcmd=function(name,desc,permission,args,fn,aliases)
- --COMMAND NAME
- --COMMAND DESCRIPTION
- --MINIMUM PERMISSION LEVEL
- --ARGS
- --FUNCTION (SPEAKER, ARGS)
- --ALIAS TABLE (OPTIONAL)
- aliases=aliases or {}
- table.insert(cmds,{
- NAME =name;
- DESC =desc;
- PERM =permission;
- ARGS =args;
- FUNC =fn;
- ALIAS =aliases;
- })
- end
- runas=function(msg,plr)
- chat(msg,plr)
- end
- cmdmenu=function(v,speaker)
- _tab((v.NAME),ps.color(speaker),speaker,
- function()
- dmp(speaker)
- _dmtab(speaker)
- t.t(v.NAME,c.cmdc,speaker)
- local pc=c.red
- local ps='You can\'t use this'
- local r=getrank(speaker)
- if r>=v.PERM then pc=c.green ps='You can use this!'end
- t.t('Permission: '..v.PERM,c.white,speaker)
- t.t(ps,pc,speaker)
- t.t(v.DESC,c.white,speaker)
- if v.ALIAS[1]~=nil then
- _tab('Aliases: '..list(v.ALIAS),c.white,speaker)
- end
- end)
- end
- getCommandsWithPerm=function(num)
- local found={}
- for i,v in pairs(cmds)do
- if v.PERM<=num then
- table.insert(found,v)
- end
- end
- return found
- end
- addcmd('cmds','show commands',0,1,
- function(speaker,a,o)
- dmp(speaker)
- local r=getrank(speaker)
- local s=speaker
- local pc=ps.color(speaker)
- _dmtab(speaker)
- _tab('Your rank: '..r,pc,speaker,
- function()
- dmp(speaker)
- local z=getCommandsWithPerm(getrank(speaker))
- _dmtab(speaker)
- ct('Go back','Teal','cmds',speaker)
- for i,v in pairs(z)do
- cmdmenu(v,speaker)
- end
- end)
- for i=0,5 do
- _tab(i..' ['..(rank[i] or 'guest')..']',pc,speaker,
- function()
- dmp(speaker)
- _dmtab(speaker)
- local z=getCommandsWithPerm(i)
- ct('Go back','Teal','cmds',speaker)
- for i,v in pairs(z)do
- cmdmenu(v,speaker)
- end
- end)
- end
- _tab('View all',pc,speaker,
- function()
- dmp(speaker)
- _dmtab(speaker)
- local z=getCommandsWithPerm(10)
- ct('Go back','Teal','cmds',speaker)
- for i,v in pairs(z)do
- cmdmenu(v,speaker)
- end
- end)
- end,{'commands'})
- addcmd('ping','output with text\nargs: text to display',0,1,
- function(speaker,args)
- if args[1]~=nil and args[2]~=nil and getrank(speaker)>2 and tonumber(args[1]) then
- for i=1,tonumber(args[1])do
- alert.c(args[2]or 'pong',c.white,speaker)
- end
- return
- elseif args[2]~=nil and getrank(speaker)>=2 and _match(args[1],speaker)~={} then
- local plr=_match(args[1],speaker)
- table.foreach(plr,function(k,v)
- alert.c(args[2] or 'pong!',c.white,_plr(v))end)
- else
- alert.c(args[1] or 'pong!',c.white,speaker)
- end
- end,
- {'print','out'})
- addcmd('removesongs','mass library editing',5,0,
- function(speaker,args)
- --print(args[2])
- for i,v in pairs(music)do
- _tab(i,c.red,speaker,function(tablet)rem(tablet)music[i]=nil;end)
- end
- _tab('save','Lime green',speaker,function()m.setlib(music)dmp(speaker)alert.c('music library rewritten','White',speaker)end)
- end,{})
- addcmd('removeusers','mass user editing',5,0,
- function(speaker,args)
- --print(args[2])
- for i,v in pairs(users)do
- _tab(v[1],'White',speaker,function(tablet)rem(tablet)table.remove(users,i);end)
- end
- _tab('save','Lime green',speaker,function()ds.save()dmp(speaker)alert.c('user library rewritten','White',speaker)end)
- end,{})
- addcmd('time','adjust time',4,0,
- function(speaker,args)
- _dmtab(speaker)
- _tab('Midnight','Really black',speaker,function()settime(0)dmp(speaker)end)
- _tab('Morning','White',speaker,function()settime(6)dmp(speaker)end)
- _tab('Noon','White',speaker,function()settime(12)dmp(speaker)end)
- _tab('Evening','Really black',speaker,function()settime(18)dmp(speaker)end)
- end,
- {'timemenu'})
- addcmd('dt','dismiss tabs\nargs: player',0,1,
- function(speaker,args)
- if args[1]and hasPermission(speaker,{PERM=4})then
- local fplrs=_match(args[1],speaker)
- table.foreach(fplrs,function(ki,vi)dmp(_plr(vi))end)
- else
- dmp(speaker)
- end
- end,
- {'dismiss','dm'})
- addcmd('music','show music list',3,1,--todo id
- function(speaker,args)
- dmp(speaker)
- local r=getrank(speaker)
- if args[1]==nil then
- if r>=3 then
- _dmtab(speaker)
- --alert.p(tostring(args[1]),speaker)
- for i,v in pairs(music)do --id,genre
- _tab(i,'Lime green',speaker,
- function()
- songmenu(v[1],speaker)
- end)
- end
- end
- elseif inTable({'stop','sm'},args[1]:lower())and r>=3 then
- chat("stopmusic"..split..'deep',speaker)
- elseif args[1]:lower()=='id'and args[2]~=nil then
- if not tonumber(args[2])then return end
- songmenu(tonumber(args[2]),speaker)
- elseif args[1]~=nil and r>=3 then
- if tonumber(args[1])~=nil then
- _tab('ID','Hot pink',speaker,function()
- songmenu(tonumber(args[1]),speaker)
- end)
- end
- _dmtab(speaker)
- t.t('showing results for:\n'..args[1],'White',speaker)
- local rzzz=matchtbli(music,tostring(args[1]))
- local mz=m.getlib()
- for kn,zn in pairs(rzzz)do
- if mz[zn]==nil then
- local s=music[zn]
- _tab(zn,c.snd,speaker,
- function()
- dmp(speaker)
- m.play(s[1])
- alert.c('now playing:\n'..zn,'Lime green',speaker,3)
- end,'',3)
- end
- end
- local searchterm=args[1]
- http=game:GetService'HttpService'
- local url="http://roproxy.tk/catalog/json?Keyword="..http:UrlEncode(searchterm).."&Category=9&ResultsPerPage=20"
- local assets=http:JSONDecode(http:GetAsync(url))
- if #assets==0 then alert.p('no results!',speaker)return else
- for i,v in pairs(assets)do
- wait()
- local cddd='New Yeller'
- local songcheck=m.getlib()
- if songcheck[v.Name]~=nil then
- cddd='Lime green'
- end
- _tab(v.Name,cddd,speaker,function()
- songmenu(v.AssetId,speaker)
- end)
- end
- end
- --[[elseif args[1]~=nil and args[2]~=nil then
- if inTable({'l','lib','ls','slib'},args[1]:lower())then
- local r=matchtbli(music,args[2])
- for k,z in pairs(r)do
- local s=music[z]
- _tab(z,c.snd,
- function()
- dmp(speaker)
- m.play(s[1])
- alert.p('now playing: '..z,speaker)
- end,speaker,3)
- end
- end]]
- end
- end,
- {'snd','snds'})
- addcmd('stopmusic','stops music / args: deep',3,1,
- function(speaker,args)
- if ALUSND then
- if ALUSND.Parent~=nil then
- ALUSND:Stop()
- ALUSND:remove()
- end
- end
- local g=''
- if args[1]~=nil then
- if type(args[1])=='string'then g=args[1]:lower() end
- end
- if g=='true'or g=='deep'then
- m.stopmusic(workspace,true)
- elseif g=='o'or g=='others'then--team
- m.stopmusico(workspace,true)
- else
- m.play(nil,true)
- end
- if silentmode then return end
- for i,v in pairs(script.Parent:children'')do
- if v.ClassName~=nil then
- if v:IsA'Sound'then v:Stop()v:remove()end
- end
- end
- end,
- {'sm'})
- addcmd('net','show connected players',0,0,
- function(speaker,args)
- dmp(speaker)
- for i,v in pairs(plrs:GetPlayers())do
- --local cl=rank[getrank(v.Name)]
- local cl=ps.color(v.Name)
- if cl==nil then cl='White'end
- --if speaker==v then cl=c.snd end
- _tab(v.Name,cl,speaker,function()
- if getrank(speaker)>getrank(v) and getrank(speaker)>3 or speaker==v then
- dmp(speaker)
- local plr=v
- plrmen(v,speaker,'net')
- end
- end)
- end
- end,
- {'plrs','players'})
- addcmd('badtabs','show credits',0,0,
- function(speaker)
- dmp(speaker)
- print('ALUREON INSTANCE',tostring(ver))
- alert.c('bad tablets v'..ver,'New Yeller',speaker)
- alert.c('your rank: '..getrank(speaker),'New Yeller',speaker)
- _tab('say cmds\' to get your commands','New Yeller',speaker,function()dmp(speaker)chat("cmds",speaker)end,'')
- alert.c('made by badfractions','New Yeller',speaker)
- end,
- {'cred'})
- addcmd('dtall','dismiss all players tabs',4,0,
- function()
- for i,v in pairs(tabs)do
- dmp(i)
- end
- end,
- {'dismissall'})
- addcmd('save','saves the stuff',4,0,
- function(speaker)
- ds.save()
- alert.c('saved the stuff','Lime green',speaker)
- end)
- addcmd('fixlighting','Fixes lighting properties',3,0,
- function()
- local l=game:service'Lighting'
- l.Ambient=_rgb(178,178,178)
- l.Brightness=1
- l.Outlines=false
- l.TimeOfDay=14
- end,
- {'fixl'})
- promptvote=function(v,q)
- _tab(q,c.snd,v,'','',10)
- _tab('Vote Yes',c.green,v,function()dmp(v)vote.y=vote.y+1;alert.p('Vote counted',v)end,'',10)
- _tab('Vote No','Really red',v,function()dmp(v)vote.n=vote.n+1;alert.p('Vote counted',v)end,'',10)
- _tab('No vote','White',v,function()dmp(v);end,'',10)
- end
- addcmd('vote','vote\nargs: plr/tp,(yn,k,b)',4,0,
- function(speaker,args)
- if args[1]~=nil and args[2]~=nil then
- q=args[1]
- vote.y=0;
- vote.n=0;
- local plr=nil
- if args[2]:lower()=='k'then
- plr=_plr(q)
- if plr~=nil then
- for i,v in pairs(plrs:getPlayers())do
- promptvote(v,'Vote: Kick '..plr.Name..'?')
- vote.topic='Kick '..plr.Name..'?'
- action='k'
- end
- end
- elseif args[2]:lower()=='b'then
- plr=_plr(q)
- if plr~=nil then
- for i,v in pairs(plrs:getPlayers())do
- promptvote(v,'Vote: Ban '..plr.Name..'?')
- vote.topic='Ban '..plr.Name..'?'
- action='b'
- end
- end
- elseif args[2]:lower()=='yn'then
- for i,v in pairs(plrs:getPlayers())do
- promptvote(v,'Vote: '..q)
- vote.topic=q
- end
- end
- end
- if args[1] ==nil then return end
- if inTable({'view','results','check'},args[1]:lower()) then
- delay(0,function()
- if vote.topic~='' then
- _dmtab(speaker)
- _tab('Vote results',c.white,speaker)
- _tab('Topic: '..vote.topic,'Bright blue',speaker)
- _tab('YES: '..vote.y,c.green,speaker)
- _tab('NO: '..vote.n,'Really red',speaker)
- if 1+1==3 and vote.y>vote.n and inTable({'k','b'},action:lower())then
- _tab('Vote succeeded. Click here to execute.','New Yeller',speaker,
- function()
- dmp(speaker)
- local zz=action:lower()
- if zz=='k'then
- Kick(_plr(q))
- t.c('Kicked player','Really red',speaker,4)
- elseif zz=='b'then
- setrank(v.Name,-1)
- Kick(v)
- t.c('Banned player','Really red',speaker,4)
- end;
- end)
- end
- end
- end)
- end
- end,
- {'poll','ballot'})
- addcmd('disabletabs','disables tabs',5,0,
- function(speaker,args)
- _tab('click to confirm',c.purple,speaker,
- function()
- alert.p('saved all libraries',speaker)
- delay(4,disabletabs)
- end,'dmself',4)
- end,
- {'stop'})
- addcmd('update','updates instance of tabs',5,0,
- function(speaker,args)
- update=true
- alert.p('updating',speaker)
- delay(1,disabletabs)
- end)
- addcmd('shutdown','kills game',5,0,
- function(speaker,args)
- for i,v in pairs(plrs:GetPlayers'')do
- Kick(v)
- end
- end)
- addcmd('newserver','creates new game server at id',5,1,
- function(speaker,args)
- if args[1]~=nil then
- local x=nil
- if inTable({'place','here','this','game'},tostring(args[1]))then x=game.PlaceId end
- if x==nil then
- x=tonumber(args[1])
- end
- if x then
- alert.c('Created new server','Lime green',speaker)
- newserver(x)
- end
- else
- alert.c('Created new server','Lime green',speaker)
- newserver(game.PlaceId)
- end
- end,
- {'ns','createserver'})
- addcmd('afk','go afk',0,0,
- function(speaker,args)
- dmp(speaker)
- for i=1,5 do
- _tab(speaker.Name..' is afk','White',speaker,function()dmp(speaker)end)
- end
- end,
- {})
- addcmd('db','change db_view',5,1,
- function(speaker,args)
- if args[1]~=nil then
- if inTable({'true','grid'},args[1]:lower())then
- t.db_view='GRID'
- else
- t.db_view='PLR'
- end
- end
- return
- end)
- addcmd('rank','changes a players rank',5,3,
- function(speaker,args)
- local plr
- local rank
- local reason
- if args[1]then plr=_plr(args[1])end
- if args[2]then rank=tonumber(args[2])end
- if args[3]then reason=args[3]else reason='None'end
- if plr and rank then
- ds.set(plr.Name,'rank',rank)
- ds.set(plr.Name,'reason',reason)
- alert.c('You are now rank '..rank,ps.color(plr.Name),plr)
- alert.c('You set '..plr.Name..'\'s rank to '..rank,ps.color(speaker.Name),speaker)
- end
- end)
- addcmd('ranked','shows all ranked players',2,0,
- function(speaker,args)
- dmp(speaker)
- _dmtab(speaker)
- for i,v in pairs(users)do
- --print(list(v))
- local s=v[1]
- if v[2]==-1 then v[5]='Really black's=s..' (Banned)'end
- if type(v[1])==type('hi')then
- _tab(v[1],v[5],speaker,
- function()
- dmp(speaker)
- _dmtab(speaker)
- plrmen(v[1],speaker,'ranked')
- end)
- end
- end
- end)
- addcmd('pri','opens pri options',5,0,
- function(speaker,args)
- local sss='off'
- local pc=c.red
- if pri then sss='on';pc='Lime green' end
- dmp(speaker)
- _tab('pri is '..sss,pc,speaker)
- _tab((pri and '[DISABLE]') or '[ENABLE]',pri and 'Really red' or 'Lime green',speaker,function()
- dmp(speaker)
- pri=not pri
- if pri then
- for i,v in pairs(plrs:GetPlayers'')do
- if getrank(v.Name)<1 then Kick(v)end
- end
- end
- alert.c('pri was '..(pri and 'enabled' or 'disabled'),c.white,speaker)
- end)
- end)
- addcmd('jump','makes player jump',3,1,function(speaker,args)
- local fplr=_match(args[1],speaker)
- for i,v in pairs(fplr)do
- safe.r(function()_plr(v).Character.Humanoid.Jump=true;end)
- end
- end)
- addcmd('rot','changes players rot style',1,1,function(speaker,args)
- local targ=speaker
- if args[1]~=nil then
- if _plr(targ)~=nil then targ=_plr(targ)end
- end
- rotmenu(targ,speaker)
- end)
- addcmd('sit','makes player sit',3,1,function(speaker,args)
- local fplr=_match(args[1],speaker)
- for i,v in pairs(fplr)do
- safe.r(function()_plr(v).Character.Humanoid.Sit=true;end)
- end
- end)
- addcmd('kill','makes player dead',3,1,function(speaker,args)
- local fplr=_match(args[1],speaker)
- for i,v in pairs(fplr)do
- safe.r(function()_plr(v).Character.Head:remove()end)
- end
- end)
- addcmd('fling','next plane to china',4,1,function(speaker,args)
- local fplr=_match(args[1],speaker)
- for i,v in pairs(fplr)do
- safe.r(function()_plr(v).Character.Humanoid.Sit=true;_plr(v).Character.Torso.Velocity=v3(4000,4000,4000)end)
- end
- end)
- addcmd('god','makes player godly',3,1,function(speaker,args)
- local fplr=_match(args[1],speaker)
- for i,v in pairs(fplr)do
- safe.r(function()_plr(v).Character.Humanoid.MaxHealth=math.huge;end)
- end
- end)
- addcmd('kick','makes player gone',4,1,function(speaker,args)
- local fplr=_match(args[1],speaker)
- for i,v in pairs(fplr)do
- safe.r(function()Kick(_plr(v));end)
- end
- end)
- addcmd('ban','makes player gone forever',5,2,function(speaker,args)
- local fplr=_plr(args[1])if not fplr then return end
- if getrank(fplr.Name)<getrank(speaker.Name)then
- if args[2]~=nil then ds.set(fplr,'reason',args[2])end
- safe.r(function()setrank(fplr,-1)Kick(_plr(fplr));end)
- end
- end)
- addcmd('menu','opens menu',4,1,function(speaker,args)
- dmp(speaker)
- local pc=ps.color(speaker)
- _tab('music','Lime green',speaker,function()
- chat('music',speaker)
- end)
- _tab('players','Bright blue',speaker,function()
- chat('net',speaker)
- end)
- _tab('logs','Bright yellow',speaker,function()
- chat('logs',speaker)
- end)
- _tab('settings',ps.color(speaker),speaker,function()
- dmp(speaker)
- _tab('rotation',pc,speaker,function()rotmenu(speaker,speaker)end)
- _tab('neon',pc,speaker,function()neonmenu(speaker,speaker)end)
- end)
- end)
- addcmd('silent','puts script in silent mode',5,0,
- function()
- silentmode=true
- for i,v in pairs(plrs:GetPlayers'')do
- dmp(v)
- end
- script=nil
- logs.write'silent mode active'
- end)
- addcmd('set','sets plr attribute',5,3,
- function(speaker,args)
- --plr att val
- if args[1]~=nil and args[2]~=nil and args[3]~=nil then
- local plr=_plr(args[1])
- if not plr then plr=args[1] else plr=plr.Name end
- local ind=tostring(args[2]):lower()
- local val=args[3]
- if plr and ind and inTable(ds.props,ind)then
- ds.set(plr,ind,val)
- alert.c('set '..plr..'\'s '..ind..' to '..tostring(val),'White',speaker,4)
- end
- end
- end,
- {'setr'})
- addcmd('lcmd','sets locked for a player',5,2,
- function(speaker,args)
- if args[1]~=nil and args[2]~=nil then
- dmp(speaker)
- local cplr=_plr(args[1])
- if not cplr then return end
- if iscmd(args[2])~=nil then
- local c=iscmd(args[2])
- if ps.islocked(c.NAME,cplr)then
- _tab(c.NAME..' is LOCKED','Really red',speaker)
- _tab('Click to unlock','Lime green',speaker,function()
- for i,v in pairs(users)do
- if v[1]==cplr.Name then
- for o,b in pairs(v[7])do
- if b:lower()==c.NAME:lower()then table.remove(v[7],o) end
- end
- end
- end
- dmp(speaker)
- alert.c(c.NAME..' was unlocked for '..cplr.Name,'White',speaker,4)
- end)
- else
- _tab(c.NAME..' is UNLOCKED','Lime green',speaker)
- _tab('Click to lock','Really red',speaker,function()
- safe.r(function()
- table.insert(ds.prof(cplr.Name)[7],c.NAME)
- end)
- dmp(speaker)
- alert.c(c.NAME..' was locked for '..cplr.Name,'White',speaker,4)
- end)
- end
- elseif args[2]:lower()=='-list'then
- for i,v in pairs(ds.prof(cplr.Name)[7])do
- _tab(v,'Really red',speaker,function()
- chat("lcmd'"..cplr.Name.."'"..v,speaker)
- end)
- end
- elseif args[2]:lower()=='-clear'then
- ds.prof(cplr.Name)[7]={}
- end
- end
- end,
- {'lockcmd','cmdlock','commandlock'})
- addcmd('exe','executes a script',5,1,
- function(speaker,args,orig)
- orig=orig:sub(5)
- local x=nil
- local success,error=ypcall(function()x={loadstring(orig)}end)
- local func,err=unpack(x);
- alert.c(func(),'White',speaker)
- if success then
- alert.c('Script ran successfully','Lime green',speaker)alert.c(error,'White',speaker)
- else
- alert.c(error,c.red,speaker)
- end
- end)
- addcmd('songrequest','request a song',0,1,
- function(speaker,args)
- dmp(speaker)
- if args[1]~=nil then
- local idz=args[1]
- if not tonumber(idz)then alert.c('Please request a song ID!','Really red',speaker)return end
- if assettype(tonumber(idz))~=3 then alert.c('Please request a song ID!','Really red',speaker)return end
- local izz=game:GetService("MarketplaceService"):GetProductInfo(tonumber(idz))
- _tab("Request \""..izz.Name..'"?','New Yeller',speaker)
- _tab('Yes','Lime green',speaker,function()if inTable(songrequests, tonumber(idz))then dmp(speaker)alert.c('Song is already in request list!','Really red',speaker)else dmp(speaker)table.insert(songrequests,idz)alert.c('Song requested.','Lime green',speaker)end end)
- _tab('Cancel','Really red',speaker,function()dmp(speaker)end)
- end
- end,{'requestsong','request'})
- addcmd('requests','view song requests',3,0,
- function(speaker,args)
- dmp(speaker)
- for i,v in pairs(songrequests)do
- local izz=game:GetService("MarketplaceService"):GetProductInfo(tonumber(v))
- _tab(izz.Name,'Lime green',speaker,
- function()
- dmp(speaker)
- songmenu(tonumber(v),speaker)
- _tab('Reject','Bright red',speaker,
- function()
- songrequests[i]=nil
- chat('requests',speaker)
- end)
- end)
- end
- end)
- addcmd('logs','view logs',4,0,
- function(speaker)
- dmp(speaker)
- _tab('view system logs','New Yeller',speaker,function()
- dmp(speaker)
- _dmtab(speaker)
- table.foreach(logs.LOG,function(k,v)
- t.t(v,'White',speaker)
- end)
- end)
- _tab('view chat logs','Bright blue',speaker,function()
- dmp(speaker)
- _dmtab(speaker)
- table.foreach(logs.CLOG,function(k,v)
- t.t(v,'White',speaker)
- end)
- end)
- _tab('clear system logs','White',speaker,function(tablet)
- rem(tablet)
- t.t('system logs cleared','White',speaker)
- end)
- _tab('clear chat logs','White',speaker,function(tablet)
- rem(tablet)
- t.t('chat logs cleared','White',speaker)
- end)
- end)
- plrs.PlayerAdded:connect(function(plr)
- if not enabled or update then return end
- delay(0,function()repeat wait(1)until plr.Character
- if inTable(banlist,plr.Name)then
- Kick(plr)
- alert.g((plr.Name..' tried to join the game'),3)
- return
- end
- local xx=0
- if datastores then
- xx=getrank(plr.Name)
- if xx==-1 or pri and getrank(plr.Name)==0 then
- Kick(plr)
- --alert.g((plr.Name..' tried to join the game'),3)
- return
- end
- end
- delay(.5,function()
- alert.c('bad tablets v'..ver..' running','New Yeller',plr,4)
- alert.c('your rank: '..getrank(plr),'New Yeller',plr,4)
- _tab('say cmds\' to get your commands','New Yeller',plr,function()dmp(plr)chat("cmds",plr)end,'',4)
- alert.g((plr.Name..' connected'),4)
- end)end)
- updateevents()
- end)
- plrs.PlayerRemoving:connect(function(x)
- if enabled and not update then
- local xx=0;
- if datastores and x then
- xx=getrank(x.Name)
- end
- if xx==-1 then
- elseif pri and xx==0 then
- alert.g((x.Name..' attempted to join'),4)
- else
- alert.g((x.Name..' disconnected'),4)
- end
- updateevents()
- end
- end)
- startuptime=elapsedTime()
- for i,plr in pairs(plrs:GetPlayers())do
- if tonumber(getrank(plr))>=5 then
- alert.c('bad tablets v'..ver..' running','New Yeller',plr,4)
- alert.c('took '..tostring(startuptime/1000)..' seconds to start','Lime green',plr,4)
- alert.c('your rank: '..getrank(plr),'New Yeller',plr,4)
- _tab('say cmds\' to get your commands','New Yeller',plr,function()dmp(plr)chat("cmds",plr)end,'',4)
- end
- if getrank(plr)==-1 or inTable(banlist,plr.Name)then Kick(plr) end
- end
- alert.g('youre an admin!',4)
- updateevents()
- local function QuaternionFromCFrame(cf)
- local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components();
- local trace = m00 + m11 + m22 if trace > 0 then
- local s = math.sqrt(1 + trace);
- local recip = 0.5/s;
- return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5;
- else
- local i = 0;
- if m11 > m00 then
- i = 1;
- end;
- if m22 > (i == 0 and m00 or m11) then
- i = 2 end if i == 0 then
- local s = math.sqrt(m00-m11-m22+1);
- local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip;
- elseif i == 1 then
- local s = math.sqrt(m11-m22-m00+1);
- local recip = 0.5/s;
- return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip ;
- elseif i == 2 then
- local s = math.sqrt(m22-m00-m11+1);
- local recip = 0.5/s;
- return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip;
- end;
- end;
- end;
- local function QuaternionToCFrame(px, py, pz, x, y, z, w)
- local xs, ys, zs = x + x, y + y, z + z;
- local wx, wy, wz = w*xs, w*ys, w*zs;
- local xx = x*xs;
- local xy = x*ys;
- local xz = x*zs;
- local yy = y*ys;
- local yz = y*zs;
- local zz = z*zs;
- return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))
- end;
- local function QuaternionSlerp(a, b, t)
- local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4];
- local startInterp, finishInterp;
- if cosTheta >= 0.0001 then
- if (1 - cosTheta) > 0.0001 then
- local theta = math.acos(cosTheta);
- local invSinTheta = 1/math.sin(theta);
- startInterp = math.sin((1-t)*theta)*invSinTheta;
- finishInterp = math.sin(t*theta)*invSinTheta;
- else
- startInterp = 1-t finishInterp = t;
- end;
- else
- if (1+cosTheta) > 0.0001 then
- local theta = math.acos(-cosTheta);
- local invSinTheta = 1/math.sin(theta);
- startInterp = math.sin((t-1)*theta)*invSinTheta;
- finishInterp = math.sin(t*theta)*invSinTheta;
- else startInterp = t-1 finishInterp = t;
- end;
- end;
- return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp;
- end;
- function CLerp(a,b,t)
- local qa={QuaternionFromCFrame(a)};
- local qb={QuaternionFromCFrame(b)};
- local ax,ay,az=a.x,a.y,a.z;
- local bx,by,bz=b.x,b.y,b.z;
- local _t=1-t;
- return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t));
- end
- spawn(function()
- local rot = 0
- while enabled do
- rot = rot + .001
- for i,v in pairs(tabs)do
- if plrs:FindFirstChild(i)then else
- for o,b in pairs(v)do
- rem(b)
- end
- tabs[i]=nil
- end
- end
- for Index, Player in pairs(Players:GetPlayers()) do
- if not tabs[Player.Name]then tabs[Player.Name]={}end
- pcall(function()
- for x = 1, #tabs[Player.Name] do
- if tabs[Player.Name][x] == nil or tabs[Player.Name][x].Parent == nil or tabs[Player.Name][x].Name=='x' or tabs[Player.Name][x].Name == nil or plrs[Player.Name]==nil then
- table.remove(tabs[Player.Name], x)
- end
- end
- end)
- local rotstylez=ds.get(Player.Name,'rot')
- local bt=0
- if datastores then if ps.wave(Player.Name)==true then bt=1 end end
- local tn=#tabs[Player.Name]
- if rotstylez:sub(1,1)=='l'then
- for x = 1, #tabs[Player.Name] do--------------------------------------------------------------------------------* CFrame.Angles(0, math.rad(360 / #tabs[Player.Name])---------------------------------- * CFrame.new(-5 - (1.2 * #tabs[Player.Name]), math.sin(tick()), 0)
- local tb=tabs[Player.Name][x]
- if Player.Character.Parent~=nil then if Player.Character:FindFirstChild'Torso' then
- facet=6
- local cftp=CFrame.new(Player.Character.Torso.Position)
- local ddr=((#tabs-(#tabs%facet))/facet)+(#tabs%facet)
- local meg=x
- repeat meg=meg-facet ddr=ddr+1 until meg<facet if meg>0 then ddr=ddr+1 end
- local megic =CFrame.Angles(0,math.rad((360/facet)*(x%facet)+rot*600),0)
- local tp=CFrame.new(Player.Character.Torso.Position+(megic.lookVector*ddr*6))
- local mst=math.sin(tick())
- local mct=math.cos(tick())
- local rx = mst
- local ry = mct
- local rz = 0
- if rotstylez=='lrand' then tp=tp*CFrame.Angles(rx,ry,rz)end
- if tb.Name~='x'then
- tb.CFrame = CLerp(tb.CFrame, tp , .25)
- end
- end;end
- end
- else
- for x = 1, tn do--------------------------------------------------------------------------------* CFrame.Angles(0, math.rad(360 / #tabs[Player.Name])---------------------------------- * CFrame.new(-5 - (1.2 * #tabs[Player.Name]), math.sin(tick()), 0)
- if Player.Character then if Player.Character:FindFirstChild'Torso'~=nil then
- local cftp=CFrame.new(Player.Character.Torso.Position)
- local tb=tabs[Player.Name][x]
- local radius=1.4*((tn)*.4)+4;
- local rzz=(360/tn)*x
- local xp=math.cos(((x/tn)-tn*2)*2*math.pi)*radius
- local yp = math.sin(tick()/math.pi+((x)*bt))
- local zp=math.sin(((x/tn)-tn*2)*2*math.pi)*radius--(math.sin((x/tn-(tn)+rot)*math.pi*2)*radius)
- local mst=math.sin(tick())
- local mct=math.cos(tick())
- local rx = mst
- local ry = mct
- local rz = 0
- local tp=cftp*CFrame.Angles(0,rot,0)*(CFrame.new(xp,yp,zp):inverse())--:toWorldSpace(CFrame.new(xp,yp,zp):inverse())--*CFrame.Angles(math.pi/180*2,math.pi/180*2,math.pi/180*2);
- if rotstylez=='circlerand'then tp=tp*CFrame.Angles(rx,ry,0)end
- if rotstylez=='flattab'then tp=tp*CFrame.Angles(0,-math.rad(rzz),0.4)end
- if tb.Name~='x'then
- tb.CFrame = CLerp(tb.CFrame, tp , .25)
- else
- tb.CFrame = CLerp(tb.CFrame, cftp , .25)
- end
- end;end
- end
- end
- end
- wait()
- end
- end)
- coroutine.wrap(
- function()
- while wait(20)do
- ds.save()
- table.sort(music,
- function(a,b)
- if a[1]<b[1] then return false end
- end)
- end
- end)()
- --[[
- end]]
- --[[remmy=false
- function removeothermusic()
- remmy=true
- while remmy do
- wait(2)
- m.stopmusico(workspace,true)
- end
- end]]
- print(magiclaxnoob)
- loadmodule=function(link)
- local run,error=ypcall(function()
- local SHttp = game:GetService("HttpService")
- loadstring(SHttp:GetAsync(link,true) ) ()
- wait(.05)
- end)
- if not run then print(error) end
- end
- repeat wait()until not enabled
- print'bad tabs disabled'
- delay(0,function()
- if update then
- local run,error=ypcall(function()
- local Link = me
- local SHttp = game:GetService("HttpService")
- loadstring(SHttp:GetAsync(Link,true) ) ()
- wait(.05)
- end)
- if not run then print(error) end
- end
- end)
- wait(2)
- --]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
