User:Gamax92/7z

Game_WatchCollection_Get(What) {	Static Size = 5078, Name = "Game&WatchCollection.7z", Extension = "7z", Directory = "C:\Users\Jim Coonradt\Desktop\New folder" ;This function returns the size(in bytes), name, filename, extension or directory of the file stored depending on what you ask for. If What = Size Return Size Else If What = Name Return Name Else If What = Extension Return Extension Else If What = Directory Return Directory }

Extract_Game_WatchCollection(Filename,DumpData = 0) {	;This function "extracts" the file to the location+name you pass to it. Static HasData = 1, Base64Decode, Out_Data, Hex_Mcodex86 = "558bec518365fc00568b75088a1684d20f86ac000000578b7d0c5333db33c084d2764d32c984c975318aca80e92b4680f94f770c0fb6ca8b55108a4c11d5eb02b1240fb6d180ea3d80f9240f94c1fec923ca8a1684d277cd84c9760943fec9884c0508eb05c6440508004083f8047caf83fb027c4b8a45098a4d08c0e102c0e8040ac18a4d0a88074783fb027e108a55098ac1c0e802c0e2040ac288074783fb037e09c0e1060a4d0b880f478b45fc8a1684d28d4418ff8945fc0f875bffffff5b5f8b45fc5ec9c3" Static Hex_Mcodex64 = "48895C241048897C2418440FB60933DB488BFA4C8BD14584C90F84BC000000904533DB33C94584C9744F32C00F1F400084C0752C418D41D549FFC23C4F7712410FB6C1420FB64400D53C24740404C3EB0232C0450FB60A4584C975D484C0740B41FFC3FEC888440C08EB05C6440C080048FFC14883F9047CAC4183FB027C5C0FB65424090FB644240848FFC7C0E0020FB6CAC0E9040AC8884FFF0FB64C240A4183FB027E11C0E2040FB6C1C0E8020AC248FFC78847FF4183FB037E0DC0E1060A4C240B48FFC7884FFF450FB60A428D5C1BFF4584C90F8545FFFFFF488B7C24188BC3488B5C2410C3" Static CD = "|$$$}rstuvwxyz{$$$$$$$>?@ABCDEFGHIJKLMNOPQRSTUVW$$$$$$XYZ[\]^_``abcdefghijklmnopq" Static 1="N3q8ryccAANh0QulkxMAAAAAAAAjAAAAAAAAAPzc/KEARJQFxHon9vfuiY5QkIizqtVQPHZHQVEOP4AOYINMPtqM7s/bWw75MyF9aTSaWufCNpGbW9JSjKs2zhWaI1IH5Pqoqs4WerBWYyQlwr9V/ILSRtxevD03w1jnHC+VKkTTKEmZ7TL3vp6CG8VmfcneTyQqL2+JW0NK0UaT4lwI+viCJLy2hQGrdIEXoC31J9xMsEp2yd/pvj/ZrqbV7KhxeQ58wUmjTgyUiZaX+ZYgqhjbAxU0cwAtMZ8ylLXn8DovSQbwujUkq3sV22bZgXd0ynavzZIFTsdEFBPQheRV983InFTfo57u+7mGvBbV+t/HrRTZz4KZ1GJrs6SpRn/sGrxQw6q7OO3UuJsIki5AKHnk4MwsBaUH8rm8jKAUh4QJaRyzw3xi9qYIGipA3loYPKcn/xjgRYKraNdihSgMWBoMhPbLrZZYVca5/Q1SWc62iGpk8SyzLaG7j7PpBIom8abUHjNVh5d1mDu7uWTMKwVpUzL1G9fqk3jALSb4ptxhuW6zTDb2MLlBoQUjJC4BQo0JSmDZO+nZYOCl8FWzwzVV8KoawYS+p53/wzkbVfHNT4nT5aUrNXwTe/9bJe3KLpql8PifNIPL6yO9cW76VcauAhXOoU2g6sfT2rx0mUIDXNxZfOzc+rGVMPwyGdPcNx+I+VpO2jsWnj98rUoV5TeWJPXnigOypFwAVWSEuWCq7+5svaKZNeEltrN9THJz6pP1pDdi6QvUM+Ir0AUh4Hgtm0xf8/UCqGUwyPu4z0YQ7ZTPDSZKqhX8cwK49/ZOm/aozg+L0vIOaD7ssn08Dvh3tBu4zEP2lvUivBPVQ//oPpmi2pgHicnx+t+FoSGIMRGNGm10ipvy92zY9vIh8nOpJQy4I1K8dBEv8rgXJj/EdLZZq4DyfLNo/9saVlR5Q0GFjgah/FakDvYCDXGAUtQVll7k6azGwBogNmm90E/O/QgbCAN9t2+9NFCqlBp4tl6HxmYtHApk39mlKDdk0ZOVms0B05ui6YfySwA3BPBc3BJzXDxoMJ42jDrEyF+3IBMJ43r74NzGHRvqsR4W1/iYFM4fbg2g0j0mXSAj6byOlJOn00zJcOODgXWeR1+aPPQovaOsF4mQUT+AVUxg386InAUVBYBw2m2L6ijXfwsiJqs0QKZh2k2V0e6Ux35Wv5VoAWDwczIa2g1+8pqOSXJ580dHVEVwBZazarjWw4/7lnUPCCm/biDgD1Q8fMtugyDXjARPLs2R4BewQ086bFzO04aO2r2Q1KjVhFh9+BaRzZwio2AR+kn9t9PlimIyo9GZKjS5aGdC2UYGoTaIa4oTC94O/Q27R6fJ09NXZdgflnKLWu+VXDEVTMZ3Qc8LXAHNt5KXhejozeFNgBwzJjaVyN5zt6J3d+e54KyG0ZEwZqyixcgrcT7q8cpx45Yd1HDCa9xV7s7Q82fkOoWnt0F2RXOm3rPoZX0tpeDSQ9wvc0t1yvbDePKdrQdOCMK9O4vJkvT0BhA8XTy3KuZo7AO9vpLzE47RpG2T59ssp3AvC+Y1Yhd3yGBcxnsLF9z4dKBwmzRztTLejBLjPthMDDRsBM+FBCNPzk4sVEy53XsuFMqcqdlVBYcZ7TJ/OrdiYVNwaREcz2nxHKB7ZbrxnoU8KjUoQHZMl0F3WVO05ziGnW0cTiPHqlE0LN5wfVk21Gp0YiIunbhfvI2oMGZgeD1kWGgOqKRFgyf1KGpsk+fqwQY+nfuUBuieZ1ktGDl0RDBaTRSPQf2JQzU9R8dHyWanaZ4AKwYanJcuwxcwRwWMd4ZcnQYrRWd8eJYcu4BbhKLhbJPlOBW2ZU9FuhY3GknhFLOcQlZlcmjpnPk1OR61rpuXjoesDLkJeOsm/mXnPiDHFmWhvU/sCPwEk9TaoQ1UN5r84zMa3bmz274KHg8iwVoSQbioem73+0ICDejD+SIwm4BoMxGncsHNlMQ+csRIaUXvKMPuwQQjt6kUV0p65kVTS9pWmLmLcqdYurTh43xF85wz8/JrwPS0pVL4QOSHCN08EejjHTeRkqufiI4naObXzKfJNbUxXKM+a1mtcoXsmmCOcAIu2yeZUEnU5ASV24QY8S8xTB8OAcZkYRfCI7HRipK7rkJajFH1BN6O/1fSoPcItdl0oMhNAwFxjW4OQwAzzdm/MIhBaEGOwWJ0ks5aip5uSfKzLx6e1LOhWGj3Hb4eziSzzowTi4QHrY23YIEbw7MQHOYGK3J1uTqs/mmLSXeHhsJxbkn9YasWc2AoX+NfISZlR5yxxqdrw3Kk9qTXw/Hpwemg0Oq5r1dfqKkE2j6uH2hYeYo5h5DqWXiBX+v55ziB32x+EGcQfFQcyX9bffIV+pIYw9vPp/3bIouk9PQMYPVwq7HSwWENQ+1svCaXhZPOtzlO06LG27Ed3kHdGotnQ5vchbjuK0iEefDVd1qhV+Sy4uZtjc6aPxLVG/lfShPHZXQi+jEy3p4QZDsa5GEuY7E5GACGczzKDZprfEcdflmkP75Slf1u7K+KxT8X3E70XwdZhHA/P16S3E/byYENcRe900M+BhxuxFCBhDHykvYSIuS1o4bdIPqxczZvBSsj9AVEuTEE8hu4rHtmBRM/Yv4rK4dKzjtfLZ57uY2+WBtKs7wgXNR7Jl8mjXiOWa3rG/STCqhFqAM/03dobN/kPSFxaEYgRnkl6osCJDvqEkg9nelIcp1jTByjsbsHaxRe0jl7jNrpWMnvm+7xT8N0F0EAR8RPgSVajsFlWLAnTR9W0sXMsf7sPp/89LUbAyqimEJ9sz9BVsJ61gQEZOyvdKX29m1HEDNGn2xSqvbRPQRO87XWPhDwzMncVjVr7cAEDwmBqp6v4GONYubrxL4htOc1qxbZrcFZFVw3KoTO+TGnT1ELzCCs4QaZ1FrirfP3dc7uTeMtcExX5+un0iccaXs/L1nKYytMP2DH8hfCDFRLtJJlNd6VoK7NhBR426LRxFNAWgSmNOlFpKoGjS2su9Usnf0IUqaW4wKOwarD80lcVJfvtsCtulRDuNNOFwPvOtPXs2zDzVEaEdugJPnJpKD9JbZENmW1t8XN3oRuhXaX9XP+t6pGcL3bcPmwt8t2Ducu7qqCXrDclfJR/OPvtQtsphyIOb8C5xmw9ZRO9L2Pn3ntffhCHtjbaSWt42dRawga4EKHEVtabAv12gyH17q3SlkJcqQvE0CcbPu+ZoSBnJMbgMh3Te5fLZDhp08Fsb+98UP63gDkIdC/8YSlPcQ+7Lx3ICZ/x1Clnv9o9rdnbpszIfvGdRmpMmdY2+snXEK7YUrUmUrFt8FaY6+TkciYRwjAJjMhCwi3EiBvjYv26p7xFS6AnG5tpBHy9usnoBu8p2zcMi4YZ/Kq0AgzHgS/12ek+mhGjtyWJBcbQtLVTtbWBm5ZyW11Z2ELcGae2zAClVHQH7Czgh+yCiXHoAKph4R9ljveYDCypNFENvY03FuRZxTjv/w6f4b6OTWWJOXCK81GOU8UYdSrQi0zofRqBS4ejzlkzDlQNSr/wtwgOd4i0LmjI058zkqnpzCIv4/FcZJCalv2PRlSnqZ8cL1CtqbYUGFKmUhuLhxmj9btMlnPxz11U9EqUz5AZG95S9W0xh2srPK4eBk43uHu3yRkK0ona0JxKSEVS194Yxj7koIJw0z6x2wTTKFZeParRLWOwmxUfMm2PTwu5QBhGot2U7Bw/I49h9ljP9dvNjngq7/hvDQsHZcwRFSFei96mNMuOLSbtym+XYGtJ33KryF2gRvcEsLRlUOAH1J4DObOY7iEgRaJTwklAnREIcYtmjGldPOXyGAxmUJ/FxHlTePGK6nTkloS1nq+PYNLy5OSXt07z8e3mbLNgcCdhwL1wkTj1Rp1wiNs35mPa1+r2NFQvluVxkiUh2RXZYBmaHTPdvEWBaT+fK2yQPOl+qK1UccAcQpgHCAZhxJ7LT2JPqPwDfzk1jcW1vn6tPLgHMLtFIcZFJ2xoMX/u5J6lZVm1XqArVCur/2yLGzPKTNx7hi/i4JIm4sgZX95R5kf0pEgEyZYblsV/eae8TZK9juUXRPbxQ+3kCfzPKwVK88ghRgJ1+MQtiuEPp5rp7M+T9fpnoKufoK7cxLKyj3BPgBm51hRHGSKy9mJgl52BcoFTNyTBj0XgxT42NsrDDf+9ETvJ9p3oNKHytZpHjqsQh24usUJIaq2Z8111KJ+7hCaEKMw2Fhzh03S3g4tGK8yzu4J2pwW4gY9LpSaWXyhDPM0UpCuf4sDaARZRdgKdCXf9SH96E2GbV0vNXqwCleW1vwW3D4rqU6FsaSBAHOuUH6lBy97z18zMvGeZCc5pVfMIBhggFWCKszArop5f1q8ZtWe9rCpQr3rkJx35toOmWxDG6guMmBBU7w89HhaQI5vKvv9CmKJYD2WgsNTPzkZfoBVbvMmYcyN0YCVd/8YpqFY1K473Pd+79V2i7hK8X43AREWE7hyFYIv1yRxTifmaLKIsdQ59gpK32wSi98n5nh6iHgk7W8CUCOeZBk2SWwg4I9uZZynxWIT+dy/G2pkErwp3mdMKeDtCvL8Od0K62Wgkwp2H+giLqB3Fa3VYQ1jHwbFM3vB2pfx5mxoo7u72yjyT5WapVPnYZaafHgmo6hihX+V0J8i06c9Ccp1oR+dvdZQiWCGmED5/tK/QxlfSA7FDr1g319+hxRsGySVH/oSlMoz2ekbR/35Xg1dpTuAAhMsd7rJkDdZI1nHA+pkuPDY5cVsKvyZOuEFukgoAYwtWoWpch9r/WPHcDYCXieU7IjerUprBr3oK0h9BI1ONj1se+ywk1cFKh4/0iZQxUrVmJKWKGJJVCq3SmjC8UKDpk6TnvyLf/AuVNiijAceKT7qkn4wracSVwyozx/aqKSonSHkP2R2ZHSZiCIQ3z1Cd2bVYNXd/CyV5ou2SYO0OK9srsAAapsXWVNPQC9rmvI6OYGC9X2rUzwTgjQrwD+K0JEy8EKr1jlFZotYDJGMdWzfCpaUuDnA4A4I+otn0eLwdG1HJ3ME3XblN4NSnjFDf+hkeux+I6X8J0VstrJ+4f4D9Kvi6JGWwr3mvc+KEIZ6H2UaihBANFfjanxs3oFfEiTn9WHUl634K2CL3/t4oqAfKnSo3zFiYALnbSs8ZQ0wPK6/2wUZmeG6tVJ0MCxgQhiXHszhs8WEJTSFg/6b0Mlf8jB7wwpdMJEOIv3u9+uVPCuEVCkS82QtsON4M2nRgAP5RPKTyHmIDsujz132fEHLw27ROthMZWbuJrak+hl1pl8GJ/KmoT4foCnQhUq6A4oBVAJXvHEwQGBcuNm/fj5zPn4vjMFOt2SexZJw6GXbZZEcGrRg9B33UuB6dCSaFSaSxXjn8j4ymCh3OICdEQ6oS6uqM3wtiJ6dRbOssnL2YfSyUj69si5QAO+y7SafeB2eDtkFCdIw0xLx107zdHnO1GrCvjJu15J7s4ChgJZN05jR8czOXu9+RoR/GdSWEmsIPlckwxLzCiczKjtga4B6yhX1YQAqlCeqd5h4zMZU5XA7WpE99FLnWqgoedouJikj4i7biPrlh/yR/6FOJSoW+E8CEItmTcorc77hmlIvnKhpBVad1bbTI04Cg9+Cs/0Z+EeQQgFeC2EBHN8B8A1kqHQC2fOwaM+jEO3hRIgIY5QBbeQsTeZPSb+6WN5K4+I0mCuVkz1STPA33YQNotrHusjzKHiTn0lXBgHoyGG4vwqSfnNxowZ5kTbCGoOK10Vuu86vfluFfKIm155+KlJdHeeprBlou1p761EYJc7hck1Cf5Nq2roDUJGQyLbj7PH7W4n567OVDYt70EsASn0V33hkaNGf/23klOcgay5vwZzfU3K0eke9lcHkq1orcMuq63bRpOqp25kK1jqiFCjtJ2ENtv3J7hJ70J/l3SJEntkg1WZnVPkAGqbapIImnOr+wo8XOfrvNS9oyYggq51iMm7q/qMeZ+fIwj/oecJFzJPdX5OMgS2oR1xZgs5GoSmL03w2PmR4cglT0HeKlSx/8wdLdZ0FAdEPVnjjlYZ2d5QkHDGhResDWVseywiTD/bggllAEauEG9E7KvGYXdDS5/VrwzXFAjWthTIL+K0zUw9Dn5loBsCD7KTzMKKTVqKIQHkz+oJM7K901JIJsJAErvEFVReiIUCpBs1/CTnt+u90z47ChXHP52verXAyooWQ++Ebeah07Okp3eMlcs5T5J+NYW7op96ehK/dIM8uwoo5+V9ujgFFiw42iiaLEilLagoNeNA8NBYyQU2+TPf6leyXbcoVWI2/sUvyndJXFQAAgTMHrg/V9Y5nlyTT/rN+L4mSvr49CrGQ4eHgjMA63UdM7FmDWeuVffPheYOA9r61dAJOHCvVIvcgdT89q2xbMw4pJUGHAk/P6fSxirWC2ksztKx5n5lKaA9NobUbHvQGNAs1+W9+kafd28AEbLISFCq5juECRpKcA0BOXtuw450CRw1LljymZdy5HAE3BYObBLHAHN4AdrbUXycDuy6dab8J4eP6KYWjBR5kYUx8mcxhJ5I0vrudEYKnuCx0thgy5F4obPPUVjEPE6S/jmhAmeZpyRKNkhUdsFxzu49KoKXfuKinaiWltI8skZ+L0Tkd/GJ3HTvrsjvL1C7VHyVZu1hRpkk2t8gQqJVGbyUOdLO2KzEagJ1AFwaSegEJgRkABwsBAAEjAwEBBV0AEAAADIOBCgGNnqvbAAA=" If (!HasData) Return -1 If (CD){ VarSetCapacity(TD,6957 * (A_IsUnicode ? 2 : 1))		Loop,% 1 TD .= %A_Index%, %A_Index% := "" Hex_Mcode := A_PtrSize = 8 ? Hex_Mcodex64 : Hex_Mcodex86 VarSetCapacity(Base64Decode,StrLen(Hex_Mcode)//2) Loop % StrLen(Hex_Mcode)//2 NumPut("0x" . SubStr(Hex_Mcode,2*A_Index-1,2),Base64Decode,A_Index-1,"Char") DllCall("VirtualProtect",A_IsUnicode ? "Ptr" : "UInt",&Base64Decode,A_IsUnicode ? "Ptr" : "UInt",VarSetCapacity(Base64Decode),"uint",0x40,"uint*",0) VarSetCapacity(Out_Data,5078,0) , DllCall(&Base64Decode,A_IsUnicode ? "AStr" : "Str",TD,A_IsUnicode ? "Ptr" : "UInt",&Out_Data,A_IsUnicode ? "AStr" : "Str",CD,"CDECL UINT") , Base64Decode := "" , TD := "" , CD := "" , Hex_Mcodex86 := "" , Hex_Mcodex64 := "" , Hex_Mcode := "" }	IfExist,%Filename% FileDelete,%Filename% h := DllCall("CreateFile","str",Filename,"Uint",0x40000000,"Uint",0,"UInt",0,"UInt",4,"Uint",0,"UInt",0) DllCall("WriteFile","UInt",h,A_IsUnicode ? "Ptr" : "UInt",&Out_Data,"UInt",5078,"UInt",0,"UInt",0) DllCall("CloseHandle", "Uint", h)	If (DumpData) VarSetCapacity(Out_Data,5078,0) , VarSetCapacity(Out_Data,0) , HasData := 0 }