w8 · tx · GFT···CyD

tx · GFTGUCahAmALQBRV8K1MaokuD6f2jUHs51CXC35oECyD

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.03200000 Waves

2023.05.23 13:17 [2590488] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GFTGUCahAmALQBRV8K1MaokuD6f2jUHs51CXC35oECyD",
    "fee": 3200000,
    "feeAssetId": null,
    "timestamp": 1684837081348,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "56NqaqxXGP3Spd8nusztRC28oFoY8hptmN65rW7wzEbfFqzgCn4WbcuG73Bp94nnqk8wTq4Q4PU7TR9xCV2wEmNG"
    ],
    "script": "base64:BgIrCAISAwoBCBIECgIRERIECgIRERIDCgEREgQKAgEBEgQKAggIEgUKAwgICFcAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDcAgK3iBAAFTVVMVDgAgMLXLwAGTVVMVDEwAIDIr6AlAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAAQxnZXRJbnRPckVsc2UCA2tleQpkZWZhdWx0VmFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFA2tleQUKZGVmYXVsdFZhbAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgAUSWR4Q2ZnR292ZXJuYW5jZURhcHAAAwEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EABk5VTVJFUwAGABNGQUNUT1JZTUFYV0FSRUhPVVNFAIDIr6AlABBSRVNPVVJDRVBSSUNFTUlOANW1AgAKTUlOUEFZTUVOVACQTgAOU0VMTE1VTFRJUExJRVIAyAEADUJVWU1VTFRJUExJRVIArAIACkxBTkRQUkVGSVgCBExBTkQACkRVQ0tQUkVGSVgCBERVQ0sADFdITVVMVElQTElFUgCAyK+gJQAKQVVDVElPTkZFRQCQTgAOTUlOU0hPUFBBWU1FTlQAoI0GAAhyZXNUeXBlcwkAzAgCAgNPaWwJAMwIAgIDT3JlCQDMCAICBFdvb2QJAMwIAgIEU2FuZAkAzAgCAgRDbGF5CQDMCAICB09yZ2FuaWMFA25pbAAIbWF0VHlwZXMJAMwIAgIERnVlbAkAzAgCAgVNZXRhbAkAzAgCAgVQbGFuawkAzAgCAgVHbGFzcwkAzAgCAgdQbGFzdGljCQDMCAICB1Byb3RlaW4FA25pbAAJcHJvZFR5cGVzCQDMCAICDUZpcnN0IEFpZCBLaXQJAMwIAgIIQmFja3BhY2sJAMwIAgILRm9vZCBSYXRpb24JAMwIAgIISmV0IFBhY2sJAMwIAgIGU2hpZWxkBQNuaWwACmNvbnRpbmVudHMJAMwIAgIIQW1lcmljYXMJAMwIAgIGRXVyb3BlCQDMCAICBEFzaWEJAMwIAgIGQWZyaWNhCQDMCAICB09jZWFuaWEFA25pbAAQcHJvZHVjdGlvbk1hdHJpeAkAzAgCAhIxXzFfMV8yXzJfNV8xXzEwXzAJAMwIAgITMl8yXzJfNF80XzEwXzFfMTBfMAkAzAgCAhMzXzNfM182XzZfMTVfMV8xMF8wCQDMCAICEzJfNV81XzJfN181XzJfMTAwXzEJAMwIAgIXNF8xMF8xMF80XzE0XzEwXzJfMTAwXzEJAMwIAgIXNl8xNV8xNV82XzIxXzE1XzJfMTAwXzEJAMwIAgISMV8xXzFfMV8xXzhfMV8xMF8yCQDMCAICEzJfMl8yXzJfMl8xNl8xXzEwXzIJAMwIAgITM18zXzNfM18zXzI0XzFfMTBfMgkAzAgCAhM5XzlfMV81XzVfMV81XzEwMF8zCQDMCAICFzE4XzE4XzJfMTBfMTBfMl81XzEwMF8zCQDMCAICFzI3XzI3XzNfMTVfMTVfM181XzEwMF8zCQDMCAICEjJfMl8xXzJfMl8yXzFfMTBfNAkAzAgCAhI0XzRfMl80XzRfNF8xXzEwXzQJAMwIAgISNl82XzNfNl82XzZfMV8xMF80BQNuaWwAD2NvbnRJZHhBbWVyaWNhcwAAAA1jb250SWR4RXVyb3BlAAEAC2NvbnRJZHhBc2lhAAIADWNvbnRJZHhBZnJpY2EAAwAOY29udElkeE9jZWFuaWEABAANcmVjaXBlSWR4RnVlbAAAAA5yZWNpcGVJZHhNZXRhbAABAA5yZWNpcGVJZHhQbGFuawACAA5yZWNpcGVJZHhHbGFzcwADABByZWNpcGVJZHhQbGFzdGljAAQAEHJlY2lwZUlkeFByb3RlaW4ABQAPcmVjaXBlSWR4V2VpZ2h0AAYAEXJlY2lwZUlkeFBhY2tzaXplAAcAEnJlY2lwZUlkeENvbnRpbmVudAAIAR5rZXlGYWN0b3J5V2FyZWhvdXNlQnlJZEFuZFR5cGUCCWZhY3RvcnlJZAdyZXNUeXBlCQCsAgIJAKwCAgkArAICAhtmYWN0b3J5V2hCeUNvbnRpbmVudEFuZFJlc18FCWZhY3RvcnlJZAIBXwkApAMBBQdyZXNUeXBlAQ5rZXlPcmRlckJ5TGFuZAELbGFuZEFzc2V0SWQJAKwCAgIKbGFuZE9yZGVyXwULbGFuZEFzc2V0SWQBFGtleVN0YWtlZER1Y2tCeU93bmVyAQlvd25lckFkZHIJAKwCAgISc3Rha2VkRHVja0J5T3duZXJfBQlvd25lckFkZHIBEWtleUJhY2twYWNrQnlEdWNrAQtkdWNrQXNzZXRJZAkArAICAgliYWNrUGFja18FC2R1Y2tBc3NldElkAQ9rZXlEdWNrTG9jYXRpb24BC2R1Y2tBc3NldElkCQCsAgICDWR1Y2tMb2NhdGlvbl8FC2R1Y2tBc3NldElkAQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtzdGFrZWRUaW1lXwUHYXNzZXRJZAEPa2V5QWRkcmVzc1JlZkJ5AQRhZGRyCQCsAgICCWFjY1JlZkJ5XwUEYWRkcgAPbG9jSWR4Q29udGluZW50AAAACmxvY0lkeFR5cGUAAQAIbG9jSWR4SWQAAgAKYnBJZHhMZXZlbAAAAAhicElkeFJlcwABAAhicElkeE1hdAACAAlicElkeFByb2QAAwAId2hJZHhWb2wAAAAId2hJZHhSZXMAAQAId2hJZHhNYXQAAgAJd2hJZHhQcm9kAAMADndoSWR4TG9ja2VkVm9sAAQACW9yZElkeFJlcwAAAAlvcmRJZHhNYXQAAQAKb3JkSWR4UHJvZAACAQhhc1N0cmluZwEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAhhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBCGdldE9yZGVyAQZvcmRLZXkEAXAJALUJAgkBC3ZhbHVlT3JFbHNlAgkAoggBBQZvcmRLZXkCMDBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwOjBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwOgIBOgkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCW9yZElkeFJlcwIBXwUGTlVNUkVTCQCRAwIFAXAFCW9yZElkeFJlcwIXMEAwXzBAMF8wQDBfMEAwXzBAMF8wQDAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQlvcmRJZHhNYXQCAV8FBk5VTVJFUwkAkQMCBQFwBQlvcmRJZHhNYXQCFzBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwCQDMCAIJAJEDAgUBcAUKb3JkSWR4UHJvZAUDbmlsARJnZXRXYXJlaG91c2VWb2x1bWUBCXZvbFByZWZpeAQFcGFydHMJALUJAgUJdm9sUHJlZml4AgFfCQBoAgkAaAIFDFdITVVMVElQTElFUgkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwYXJ0cwABAAEJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwYXJ0cwAAARlnZXRXYXJlaG91c2VDdXJyUmVzVm9sdW1lAQljdXJyZW50V2gKAQNzdW0CA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0KAAIkbAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8KAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA3N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgEZZ2V0V2FyZWhvdXNlQ3Vyck1hdFZvbHVtZQEJY3VycmVudFdoCgEDc3VtAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtCgACJGwJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQNzdW0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYBG2dldFdhcmVob3VzZUN1cnJHb29kc1ZvbHVtZQEJY3VycmVudFdoBAVnb29kcwkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAMJAAACBQVnb29kcwIAAAAKAQNzdW0CA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0KAAIkbAkAvAkCBQVnb29kcwIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDc3VtAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBDHNlbGxJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2R0UmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgUOU0VMTE1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBkAgkAaAIAZAUCdzAJAGgCADIFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkdFJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZHRSZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZHRSZWNlaXZlZAELYnV5SW50ZXJuYWwEBWxvY0lkB21hdFR5cGUGYW1vdW50CG1heFByaWNlBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQdtYXRUeXBlBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABAJtMQMJAGYCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAlwMBCQDMCAIFBmFtb3VudAkAzAgCCQBlAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFA25pbAAABAJtMAkAlwMBCQDMCAIFAncwCQDMCAIJAGUCBQZhbW91bnQFAm0xBQNuaWwEAW0JAGQCBQJtMAUCbTEECXVzZHRTcGVudAkAZAIJAGsDBQJtMAkAZQIJAGgCBQ1CVVlNVUxUSVBMSUVSBRBSRVNPVVJDRVBSSUNFTUlOCQBrAwkAZQIJAGgCAGQFAncwCQBoAgAyBQJtMAUQUkVTT1VSQ0VQUklDRU1JTgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUGTVVMVDEwCQBrAwUCbTEJAGgCAAIFEFJFU09VUkNFUFJJQ0VNSU4FBU1VTFQ4BAZtYXgxMDEJAGQCBQhtYXhQcmljZQkAaQIFCG1heFByaWNlAGQDCQBmAgkAaAIFCXVzZHRTcGVudAUFTVVMVDgJAGgCBQZtYXgxMDEFAW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD0FjdHVhbCBwcmljZSA9IAkApAMBBQl1c2R0U3BlbnQCAyAvIAkApAMBBQFtAg4gPiBtYXhQcmljZSA9IAkApAMBBQhtYXhQcmljZQIDLCAoBQVsb2NJZAICLCAJAJEDAgUIbWF0VHlwZXMFB21hdFR5cGUCASkJAJUKAwkBDEludGVnZXJFbnRyeQIFBXdoS2V5CQBlAgUCdzAFAW0FCXVzZHRTcGVudAUBbQELZ2V0QmFja3BhY2sBBWJwS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoCAToJAMwIAgkApAMBCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgUBcAUKYnBJZHhMZXZlbAAACQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeFJlcwILMF8wXzBfMF8wXzAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4TWF0AgswXzBfMF8wXzBfMAkAzAgCCQCRAwIFAXAFCWJwSWR4UHJvZAUDbmlsAQxjaGVja0Jsb2NrZWQAAwkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ9zdGFraW5nQ29udHJhY3QJAQprZXlCbG9ja2VkAAcJAAIBAh9Db250cmFjdHMgYXJlIHVuZGVyIG1haW50ZW5hbmNlBQR1bml0AQlzZXRDb21tb24CA2FjYwRpdGVtBAFqCAUDYWNjAl8xBAlpdGVtUGFydHMJALUJAgUEaXRlbQIBQAMJAQIhPQIJAJADAQUJaXRlbVBhcnRzAAIJAAIBAi5JbmNvcnJlY3Qgb3JkZXIgZm9ybWF0LCBzaG91bGQgYmUgYW1vdW50QHByaWNlBAhuZXdPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWl0ZW1QYXJ0cwAABAhuZXdPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWl0ZW1QYXJ0cwABBAluZXdPcmRVc2QJAGsDBQhuZXdPcmRBbQUIbmV3T3JkUHIFBU1VTFQ4BAN3aHAJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl81BQFqBAtjdXJPcmRQYXJ0cwkAtQkCCQCRAwIIBQNhY2MCXzYFAWoCAUAECGN1ck9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgULY3VyT3JkUGFydHMAAAQIY3VyT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwABAwkAZgIAAAUIY3VyT3JkUHIJAAIBAhdQcmljZSBjYW4ndCBiZSBuZWdhdGl2ZQQJY3VyT3JkVXNkCQBrAwUIY3VyT3JkQW0FCGN1ck9yZFByBQVNVUxUOAMJAAACBQhuZXdPcmRBbQAAAwkAZgIFCGN1ck9yZEFtAAAJAJgKBgkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEFA3docAkAZQIIBQNhY2MCXzMFCGN1ck9yZEFtCQBlAggFA2FjYwJfNAUJY3VyT3JkVXNkCAUDYWNjAl81CAUDYWNjAl82CQCYCgYJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUDd2hwBQhjdXJPcmRBbQkAZAIIBQNhY2MCXzMFCGN1ck9yZEFtCAUDYWNjAl80CAUDYWNjAl81CAUDYWNjAl82AwkAZgIFCG5ld09yZEFtAAADCQBmAgAABQhjdXJPcmRBbQQGYW1EaWZmCQBkAgUIbmV3T3JkQW0FCGN1ck9yZEFtCQCYCgYJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUDd2hwBQhjdXJPcmRBbQkAZAIIBQNhY2MCXzMFBmFtRGlmZgkAZAIIBQNhY2MCXzQFCW5ld09yZFVzZAgFA2FjYwJfNQgFA2FjYwJfNgkAmAoGCQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUDd2hwCQBlAgkAZAIIBQNhY2MCXzMFCG5ld09yZEFtBQhjdXJPcmRBbQkAZQIJAGQCCAUDYWNjAl80BQluZXdPcmRVc2QFCWN1ck9yZFVzZAgFA2FjYwJfNQgFA2FjYwJfNgMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGUCBQhjdXJPcmRBbQUIbmV3T3JkQW0DCQBmAgAACQBlAgUDd2hwBQZhbURpZmYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQUGYW1EaWZmAhogZnJvbSB3YXJlaG91c2UsIGJ1dCBvbmx5IAkApAMBBQN3aHACCiBhdmFpbGFibGUJAJgKBgkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aHAFBmFtRGlmZgkAZAIIBQNhY2MCXzMFBmFtRGlmZggFA2FjYwJfNAgFA2FjYwJfNQgFA2FjYwJfNgMJAGYCAAAJAGQCBQN3aHAFCG5ld09yZEFtCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHRha2UgCQCkAwEJAQEtAQUIbmV3T3JkQW0CGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3docAIKIGF2YWlsYWJsZQkAmAoGCQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIFA3docAUIbmV3T3JkQW0JAGUCCQBlAggFA2FjYwJfMwUIbmV3T3JkQW0FCGN1ck9yZEFtCQBlAggFA2FjYwJfNAUJY3VyT3JkVXNkCAUDYWNjAl81CAUDYWNjAl82AQxhY2NlcHRDb21tb24CA2FjYw1icE9yZFByb2RJdGVtBAFqCAUDYWNjAl83BA5icE9yZFByb2RQYXJ0cwkAtQkCBQ1icE9yZFByb2RJdGVtAgFAAwkBAiE9AgkAkAMBBQ5icE9yZFByb2RQYXJ0cwACCQACAQIuSW5jb3JyZWN0IG9yZGVyIGZvcm1hdCwgc2hvdWxkIGJlIGFtb3VudEBwcmljZQQHYnBPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmJwT3JkUHJvZFBhcnRzAAAEB2JwT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5icE9yZFByb2RQYXJ0cwABAwkAZgIAAAUHYnBPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAhicE9yZFVzZAkAawMFB2JwT3JkQW0FB2JwT3JkUHIFBU1VTFQ4BANicHAJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl84BQFqBAN3aHAJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl85BQFqBAp3aE9yZFBhcnRzCQC1CQIJAJEDAggFA2FjYwNfMTAFAWoCAUAEB3doT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAAEB3doT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAEDAwkBAiE9AgUHYnBPcmRBbQAACQECIT0CBQdicE9yZFByBQd3aE9yZFByBwkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAgpQcmljZXMgb2YgCQCRAwIIBQNhY2MDXzExBQFqAhcgZG9uJ3QgbWF0Y2ghIFdIIHByaWNlPQkApAMBBQd3aE9yZFByAg0sIHlvdXIgcHJpY2U9CQCkAwEFB2JwT3JkUHIECHdoT3JkVXNkCQBrAwUHd2hPcmRBbQUHd2hPcmRQcgUFTVVMVDgDCQAAAgUHYnBPcmRBbQAACQCdCgsJAM0IAggFA2FjYwJfMQkApAMBBQN3aHAJAM0IAggFA2FjYwJfMgkAkQMCCAUDYWNjA18xMAUBagkAzQgCCAUDYWNjAl8zCQCkAwEFA2JwcAgFA2FjYwJfNAgFA2FjYwJfNQgFA2FjYwJfNgkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExAwkAZgIFB2JwT3JkQW0AAAMJAGYCAAAFB3doT3JkQW0DCQBmAgUHYnBPcmRBbQkBAS0BBQd3aE9yZEFtCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD0F0dGVtcHQgdG8gYnV5IAkApAMBBQdicE9yZEFtAgQgb2YgCQCRAwIIBQNhY2MDXzExBQFqAhssIGJ1dCB3YXJlaG91c2Ugb25seSBzZWxscyAJAKQDAQkBAS0BBQd3aE9yZEFtCQCdCgsJAM0IAggFA2FjYwJfMQkApAMBBQN3aHAJAM0IAggFA2FjYwJfMgkArAICCQCsAgIJAKQDAQkAZAIFB3doT3JkQW0FB2JwT3JkQW0CAUAJAKQDAQUHd2hPcmRQcgkAzQgCCAUDYWNjAl8zCQCkAwEJAGQCBQNicHAFB2JwT3JkQW0JAGQCCAUDYWNjAl80BQdicE9yZEFtCAUDYWNjAl81CQBkAggFA2FjYwJfNgUIYnBPcmRVc2QJAGQCCAUDYWNjAl83AAEIBQNhY2MCXzgIBQNhY2MCXzkIBQNhY2MDXzEwCAUDYWNjA18xMQkAAgEJAKwCAgkArAICAg9BdHRlbXB0IHRvIGJ1eSAJAJEDAggFA2FjYwNfMTEFAWoCICB3aGlsZSB3YXJlaG91c2UgZG9lc24ndCBzZWxsIGl0AwkAZgIFB3doT3JkQW0AAAMJAGYCCQEBLQEFB2JwT3JkQW0FB3doT3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byBzZWxsIAkApAMBCQEBLQEFB2JwT3JkQW0CBCBvZiAJAJEDAggFA2FjYwNfMTEFAWoCGiwgYnV0IHdhcmVob3VzZSBvbmx5IGJ1eXMgCQCkAwEFB3doT3JkQW0DCQBmAgkBAS0BBQdicE9yZEFtBQNicHAJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byBzZWxsIAkApAMBCQEBLQEFB2JwT3JkQW0CFCwgYnV0IHlvdSBvbmx5IGhhdmUgCQCkAwEFA2JwcAIEIG9mIAkAkQMCCAUDYWNjA18xMQUBagkAnQoLCQDNCAIIBQNhY2MCXzEJAKQDAQkAZQIFA3docAUHYnBPcmRBbQkAzQgCCAUDYWNjAl8yCQCsAgIJAKwCAgkApAMBCQBkAgUHd2hPcmRBbQUHYnBPcmRBbQIBQAkApAMBBQd3aE9yZFByCQDNCAIIBQNhY2MCXzMJAKQDAQkAZAIFA2JwcAUHYnBPcmRBbQkAZQIIBQNhY2MCXzQFB2JwT3JkQW0JAGUCCAUDYWNjAl81BQhicE9yZFVzZAgFA2FjYwJfNgkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExCQACAQkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAJEDAggFA2FjYwNfMTEFAWoCHyB3aGlsZSB3YXJlaG91c2UgZG9lc24ndCBidXkgaXQHAWkBDWNvbnN0cnVjdG9yVjEBCHJlc3RBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDmtleVJlc3RBZGRyZXNzAAUIcmVzdEFkZHIFA25pbAFpAQ1zZWxsUmVzb3VyY2VzAgdhbW91bnRzCW1pblByaWNlcwQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIqc2VsbFJlc291cmNlcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBWxvY0lkCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfCgEFYWRkZXICA2FjYwFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCFCwgYnV0IHRyaWVkIHRvIHNlbGwgCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJVlvdSB0cmllZCB0byBzZWxsIG5lZ2F0aXZlIGFtb3VudCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCAjogCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCCQCRAwIFB2Ftb3VudHMFAWoAAAQBYgkBDHNlbGxJbnRlcm5hbAQFBWxvY0lkBQFqCQCRAwIFB2Ftb3VudHMFAWoJAJEDAgUJbWluUHJpY2VzBQFqCQCVCgMJAM0IAggFA2FjYwJfMQgFAWICXzEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAJEDAgUHYW1vdW50cwUBagkAZAIIBQNhY2MCXzMIBQFiAl8yCQCVCgMIBQNhY2MCXzEJAM0IAggFA2FjYwJfMgkAkQMCBQdyZXNMaXN0BQFqCAUDYWNjAl8zBAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCCQDNCAIIBQZtZXJnZWQCXzEJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcggFBm1lcmdlZAJfMwULdXNkdEFzc2V0SWQFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQxidXlNYXRlcmlhbHMCB2Ftb3VudHMJbWF4UHJpY2VzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVsb2NJZAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwoBCG1VcGRhdGVyAgNhY2MBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJFlvdSB0cmllZCB0byBidXkgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhtYXRUeXBlcwUBagICOiAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagAABAFiCQELYnV5SW50ZXJuYWwEBQVsb2NJZAUBagkAkQMCBQdhbW91bnRzBQFqCQCRAwIFCW1heFByaWNlcwUBagkAlQoDCQDNCAIIBQNhY2MCXzEIBQFiAl8xCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqCAUBYgJfMwkAZAIIBQNhY2MCXzMIBQFiAl8yCQCVCgMIBQNhY2MCXzEJAM0IAggFA2FjYwJfMgkAkQMCBQdtYXRMaXN0BQFqCAUDYWNjAl8zBAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhtVXBkYXRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAGYCCAUGbWVyZ2VkAl8zBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQCkAwEFA2FtdAILLCByZXF1aXJlZD0JAKQDAQgFBm1lcmdlZAJfMwQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQEcmVzdAMJAGYCCQBlAgUDYW10CAUGbWVyZ2VkAl8zAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10CAUGbWVyZ2VkAl8zBQt1c2R0QXNzZXRJZAUDbmlsBQNuaWwEEGFjdGl2aXRpZXNBbW91bnQJAGkCCAUGbWVyZ2VkAl8zAGQJAJQKAgkAzQgCCQDOCAIIBQZtZXJnZWQCXzEFBHJlc3QJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFleGNoYW5nZVJlc291cmNlcwEHYW1vdW50cwQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQFbG9jSWQJAJEDAgULY3VyTG9jYXRpb24FCGxvY0lkeElkBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB3Jlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8EB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8KAQlleGNoYW5nZXICA2FjYwFqBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQFqBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABANhbWoJAJEDAgUHYW1vdW50cwUBagMJAGYCBQNhbWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQFqCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCVlvdSBoYXZlIAkAkQMCBQdyZXNMaXN0BQFqAgQgb2YgCQCRAwIFCHJlc1R5cGVzBQFqAhgsIGJ1dCB0cmllZCB0byBleGNoYW5nZSAJAKQDAQUDYW1qAwkAZgIAAAUDYW1qCQACAQkArAICCQCsAgIJAKwCAgIpWW91IHRyaWVkIHRvIGV4Y2hhbmdlIG5lZ2F0aXZlIGFtb3VudCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCAjogCQCkAwEFA2FtagMJAGYCBQNhbWoAAAkAlgoECQDNCAIIBQNhY2MCXzEJAKQDAQkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQFqBQNhbWoJAM0IAggFA2FjYwJfMgkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB21hdExpc3QFAWoFA2FtagkAZAIIBQNhY2MCXzMJAGsDBQNhbWoFEFJFU09VUkNFUFJJQ0VNSU4FBU1VTFQ4CQDNCAIIBQNhY2MCXzQJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQUCdzAJAJYKBAkAzQgCCAUDYWNjAl8xCQCRAwIFB3Jlc0xpc3QFAWoJAM0IAggFA2FjYwJfMgkAkQMCBQdtYXRMaXN0BQFqCAUDYWNjAl8zCAUDYWNjAl80BAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEBQNuaWwFA25pbAAABQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWV4Y2hhbmdlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAGYCCAUGbWVyZ2VkAl8zBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQCkAwEFA2FtdAILLCByZXF1aXJlZD0JAKQDAQgFBm1lcmdlZAJfMwQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCCAUGbWVyZ2VkAl8xAgFfCQDMCAIJALkJAggFBm1lcmdlZAJfMgIBXwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgQGcmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEBHJlc3QDCQBmAgkAZQIFA2FtdAgFBm1lcmdlZAJfMwAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFA2FtdAgFBm1lcmdlZAJfMwULdXNkdEFzc2V0SWQFA25pbAUDbmlsBBBhY3Rpdml0aWVzQW1vdW50CQBpAggFBm1lcmdlZAJfMwBkCQCUCgIJAM0IAgkAzggCBQRyZXN0CAUGbWVyZ2VkAl80CQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkBQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEKY3JhZnRHb29kcwIKcHJvZHVjdElkeAhxdWFudGl0eQQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkBAiE9AgUDYW10BQVNVUxUNgkAAgECKmV4YWN0bHkgMSBVU0RUIG11c3QgYmUgYXR0YWNoZWQgYXMgcGF5bWVudAMJAGcCAAAFCHF1YW50aXR5CQACAQIbUXVhbnRpdHkgc2hvdWxkIGJlIHBvc2l0aXZlBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAU0JAAIBCQCsAgICMUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgTWFudWZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBGNvbnQJAJEDAgULY3VyTG9jYXRpb24FD2xvY0lkeENvbnRpbmVudAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfAwMJAGYCAAAFCnByb2R1Y3RJZHgGCQBnAgUKcHJvZHVjdElkeAkAkAMBBRBwcm9kdWN0aW9uTWF0cml4CQACAQkArAICAhRVbmtub3duIHByb2R1Y3QgaWR4PQkApAMBBQpwcm9kdWN0SWR4BAZyZWNpcGUJALUJAgkAkQMCBRBwcm9kdWN0aW9uTWF0cml4BQpwcm9kdWN0SWR4AgFfAwkBAiE9AgkAkAMBBQZyZWNpcGUJAGQCBQZOVU1SRVMAAwkAAgEJAKwCAgIXRmF0YWw6IHVua25vd24gcmVjaXBlOiAJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUKcHJvZHVjdElkeAQOcHJvZHVjdENvbnRJZHgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFEnJlY2lwZUlkeENvbnRpbmVudAMJAQIhPQIJAJEDAgUKY29udGluZW50cwUOcHJvZHVjdENvbnRJZHgFBGNvbnQJAAIBCQCsAgIJAKwCAgkArAICAh1UaGlzIHByb2R1Y3QgaXMgYXZhaWxhYmxlIGluIAkAkQMCBQpjb250aW5lbnRzBQ5wcm9kdWN0Q29udElkeAIRLCBidXQgeW91IGFyZSBpbiAFBGNvbnQECHByb2RMaXN0AwkAAAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgFfCgEGZmlsbGVyAgNhY2MLaWdub3JlZEl0ZW0EAW4IBQNhY2MCXzIEAnhzAwkAZgIJAJADAQUIcHJvZExpc3QFAW4JAJEDAgUIcHJvZExpc3QFAW4CATAEAXgJAQ1wYXJzZUludFZhbHVlAQUCeHMEBmFtb3VudAkAaAIFCHF1YW50aXR5CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBRFyZWNpcGVJZHhQYWNrc2l6ZQQBeQMJAAACBQFuBQpwcm9kdWN0SWR4CQCkAwEJAGQCBQF4BQZhbW91bnQFAnhzCQCUCgIJAM0IAggFA2FjYwJfMQUBeQkAZAIFAW4AAQQGYnBQcm9kCAoAAiRsBRBwcm9kdWN0aW9uTWF0cml4CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEGZmlsbGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADICXzEKAQhwcm9kdWNlcgIDYWNjAWoEB25lZWRNYXQJAGgCCQBoAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBnJlY2lwZQUBagUFTVVMVDcFCHF1YW50aXR5BAdoYXZlTWF0CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHbWF0TGlzdAUBagMJAGYCBQduZWVkTWF0BQdoYXZlTWF0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAglZb3UgaGF2ZSAJAJEDAgUHbWF0TGlzdAUBagIEIG9mIAkAkQMCBQhtYXRUeXBlcwUBagIWLCBidXQgcmVjaXBlIHJlcXVpcmVzIAkApAMBBQduZWVkTWF0Ag4gZm9yIHF1YW50aXR5IAkApAMBBQhxdWFudGl0eQMJAGYCBQduZWVkTWF0AAAJAM0IAgUDYWNjCQCkAwEJAGUCBQdoYXZlTWF0BQduZWVkTWF0CQDNCAIFA2FjYwkAkQMCBQdtYXRMaXN0BQFqBAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhwcm9kdWNlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgkAuQkCBQZtZXJnZWQCAV8JAMwIAgkAuQkCBQZicFByb2QCAV8FA25pbAIBOgQGcmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwJAJQKAgUDbmlsBQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQERc2V0V2FyZWhvdXNlT3JkZXICDGNhcmdvTGlzdFN0cgtsYW5kQXNzZXRJZAQEdXNlcggFAWkMb3JpZ2luQ2FsbGVyBARhZGRyCQClCAEFBHVzZXIEBnJlc3VsdAMJAQIhPQIFBHVzZXIFDHJlc3RDb250cmFjdAkBDGNoZWNrQmxvY2tlZAAHBAVhc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFC2xhbmRBc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMDCQECIT0CBQR1c2VyBQxyZXN0Q29udHJhY3QJAQIhPQIFBW93bmVyBQRhZGRyBwkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQKY2FyZ29QYXJ0cwkAvAkCBQxjYXJnb0xpc3RTdHICAToDCQECIT0CCQCQAwEFCmNhcmdvUGFydHMAAwkAAgECNGNhcmdvTGlzdFN0ciBzaG91bGQgY29udGFpbiBleGFjdGx5IDIgJzonIHNlcGFyYXRvcnMECHJlc1BhcnRzCQC1CQIJAJEDAgUKY2FyZ29QYXJ0cwAAAgFfBAhtYXRQYXJ0cwkAtQkCCQCRAwIFCmNhcmdvUGFydHMAAQIBXwQJcHJvZFBhcnRzAwkAAAIJAJEDAgUKY2FyZ29QYXJ0cwACAgAFA25pbAkAtQkCCQCRAwIFCmNhcmdvUGFydHMAAgIBXwMJAQIhPQIJAJADAQUIcmVzUGFydHMFBk5VTVJFUwkAAgECIEFsbCA2IHJlc291cmNlcyBzaG91bGQgYmUgcGFzc2VkAwkBAiE9AgkAkAMBBQhtYXRQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgbWF0ZXJpYWxzIHNob3VsZCBiZSBwYXNzZWQEAndoCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIUZ2V0V2FyZWhvdXNlUkVBRE9OTFkJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQFd2hWb2wJARJnZXRXYXJlaG91c2VWb2x1bWUBCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhWb2wEBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEFBm9yZEtleQQNY3VycmVudE9yZFJlcwkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeFJlcwIBXwQNY3VycmVudE9yZE1hdAkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeE1hdAIBXwQOY3VycmVudE9yZFByb2QDCQAAAgkAkQMCBQpjdXJyZW50T3JkBQpvcmRJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCm9yZElkeFByb2QCAV8EDXVzZHROZWVkMkxvY2sAAAQBcgoAAiRsBQhyZXNQYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJgKBgAABQNuaWwAAAAABQljdXJyV2hSZXMFDWN1cnJlbnRPcmRSZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBbQoAAiRsBQhtYXRQYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJgKBgAABQNuaWwIBQFyAl8zCAUBcgJfNAUJY3VycldoTWF0BQ1jdXJyZW50T3JkTWF0CgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlzZXRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEAXAKAAIkbAUJcHJvZFBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAmAoGAAAFA25pbAgFAW0CXzMIBQFtAl80BQpjdXJyV2hQcm9kBQ5jdXJyZW50T3JkUHJvZAoBBSRmMl8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJc2V0Q29tbW9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYyXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMl8yAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIECHZvbFNhbGRvCAUBcAJfMwMJAGYCBQh2b2xTYWxkbwUFd2hWb2wJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICE0F0dGVtcHQgdG8gcmVzZXJ2ZSAJAKQDAQUIdm9sU2FsZG8CESBzcGFjZSwgYnV0IG9ubHkgCQCkAwEFBXdoVm9sAhUgd2FyZWhvdXNlIHNwYWNlIGxlZnQEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4Vm9sCQDMCAIJALkJAggFAXICXzICAV8JAMwIAgkAuQkCCAUBbQJfMgIBXwkAzAgCCQC5CQIIBQFwAl8yAgFfCQDMCAIJAKQDAQUIdm9sU2FsZG8FA25pbAIBOgQGd2hTYXZlCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwDCQAAAgUGd2hTYXZlBQZ3aFNhdmUECHVzZFNhbGRvCAUBcAJfNAQHYWN0aW9ucwMJAGYCBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFCHVzZFNhbGRvCQACAQkArAICAhJQYXltZW50IG5lZWRlZCBpcyAJAKQDAQUIdXNkU2FsZG8JAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQxjYXJnb0xpc3RTdHIFA25pbAMJAAACBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhJObyBwYXltZW50cyBuZWVkZWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUFb3duZXIJAQEtAQUIdXNkU2FsZG8FC3VzZHRBc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwJAJQKAgUHYWN0aW9ucwUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFGFjY2VwdFdhcmVob3VzZU9yZGVyAwpicE9yZGVyU3RyC2xhbmRBc3NldElkC2R1Y2tBc3NldElkBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcgQKY2FsbGVyQWRkcgkApQgBBQZjYWxsZXIEEXN0YWtlZER1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQpjYWxsZXJBZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAtjdXJMb2NhdGlvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBRFzdGFrZWREdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OBANsb2MJALUJAgkBBXZhbHVlAQULY3VyTG9jYXRpb24CAV8DCQECIT0CCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIBTAkAAgEJAKwCAgkArAICAhZEdWNrIGxvY2F0aW9uIHR5cGUgaXMgCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIRLCBidXQgc2hvdWxkIGJlIEwDCQECIT0CBRFzdGFrZWREdWNrQXNzZXRJZAULZHVja0Fzc2V0SWQJAAIBCQCsAgIJAKwCAgkArAICAhRZb3VyIHN0YWtlZCBkdWNrIGlzIAURc3Rha2VkRHVja0Fzc2V0SWQCDSwgYnV0IHBhc3NlZCAFC2R1Y2tBc3NldElkBAlsYW5kQXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgICBE5GVCAIBQlsYW5kQXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQECWxhbmRPd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFCWxhbmRBc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQAAAgUJbGFuZE93bmVyBQpjYWxsZXJBZGRyCQACAQIeWW91IGNhbm5vdCB0cmFkZSB3aXRoIHlvdXJzZWxmBAxicE9yZGVyUGFydHMJALwJAgUKYnBPcmRlclN0cgIBOgMJAQIhPQIJAJADAQUMYnBPcmRlclBhcnRzAAMJAAIBAjJicE9yZGVyU3RyIHNob3VsZCBjb250YWluIGV4YWN0bHkgMiAnOicgc2VwYXJhdG9ycwQIYnBPcmRSZXMJALUJAgkAkQMCBQxicE9yZGVyUGFydHMAAAIBXwQIYnBPcmRNYXQJALUJAgkAkQMCBQxicE9yZGVyUGFydHMAAQIBXwQJYnBPcmRQcm9kAwkAAAIJAJEDAgUMYnBPcmRlclBhcnRzAAICAAUDbmlsCQC1CQIJAJEDAgUMYnBPcmRlclBhcnRzAAICAV8DCQECIT0CCQCQAwEFCGJwT3JkUmVzBQZOVU1SRVMJAAIBAiBBbGwgNiByZXNvdXJjZXMgc2hvdWxkIGJlIHBhc3NlZAMJAQIhPQIJAJADAQUIYnBPcmRNYXQFBk5VTVJFUwkAAgECIEFsbCA2IG1hdGVyaWFscyBzaG91bGQgYmUgcGFzc2VkBAJ3aAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCFGdldFdhcmVob3VzZVJFQURPTkxZCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAQJY3VycmVudFdoCQC8CQIFAndoAgE6BAljdXJyV2hSZXMJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBAljdXJyV2hNYXQJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBApjdXJyV2hQcm9kAwkAAAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAAUDbmlsCQC1CQIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAV8EDGN1cnJXaFJlc1ZvbAkBGWdldFdhcmVob3VzZUN1cnJSZXNWb2x1bWUBBQljdXJyZW50V2gEDGN1cnJXaE1hdFZvbAkBGWdldFdhcmVob3VzZUN1cnJNYXRWb2x1bWUBBQljdXJyZW50V2gEDmN1cnJXaEdvb2RzVm9sCQEbZ2V0V2FyZWhvdXNlQ3Vyckdvb2RzVm9sdW1lAQUJY3VycmVudFdoBA9jdXJyV2hMb2NrZWRWb2wJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQljdXJyZW50V2gFDndoSWR4TG9ja2VkVm9sBAt3aFNwYWNlTGVmdAkAZQIJAGUCCQBlAgkAZQIJARJnZXRXYXJlaG91c2VWb2x1bWUBCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhWb2wFDGN1cnJXaFJlc1ZvbAUMY3VycldoTWF0Vm9sBQ5jdXJyV2hHb29kc1ZvbAUPY3VycldoTG9ja2VkVm9sBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQJYnBSZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAlicE1hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8ECmJwUHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8EBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQEBXdoT3JkCQEIZ2V0T3JkZXIBBQZvcmRLZXkECHdoT3JkUmVzCQC1CQIJAJEDAgUFd2hPcmQFCW9yZElkeFJlcwIBXwQId2hPcmRNYXQJALUJAgkAkQMCBQV3aE9yZAUJb3JkSWR4TWF0AgFfBAl3aE9yZFByb2QDCQAAAgkAkQMCBQV3aE9yZAUKb3JkSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQV3aE9yZAUKb3JkSWR4UHJvZAIBXwQNdXNkdE5lZWQyTG9jawAABAFyCgACJGwFCGJwT3JkUmVzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAnQoLBQNuaWwFA25pbAUDbmlsAAAAAAAAAAAFCWJwUmVzTGlzdAUJY3VycldoUmVzBQh3aE9yZFJlcwUIcmVzVHlwZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGFjY2VwdENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBbQoAAiRsBQhicE9yZE1hdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJ0KCwUDbmlsBQNuaWwFA25pbAgFAXICXzQIBQFyAl81CAUBcgJfNgAABQlicE1hdExpc3QFCWN1cnJXaE1hdAUId2hPcmRNYXQFCG1hdFR5cGVzCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhY2NlcHRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEAXADCQECIT0CCQCQAwEFCWJwT3JkUHJvZAAACgACJGwFCWJwT3JkUHJvZAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJ0KCwUDbmlsBQNuaWwFA25pbAgFAW0CXzQIBQFtAl81CAUBbQJfNgAABQpicFByb2RMaXN0BQpjdXJyV2hQcm9kBQl3aE9yZFByb2QFCXByb2RUeXBlcwoBBSRmMl8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMYWNjZXB0Q29tbW9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYyXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMl8yAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIJAJ0KCwUKY3VycldoUHJvZAUJd2hPcmRQcm9kBQpicFByb2RMaXN0CAUBbQJfNAgFAW0CXzUIBQFtAl82AAAFCmJwUHJvZExpc3QFCmN1cnJXaFByb2QFCXdoT3JkUHJvZAUJcHJvZFR5cGVzBAh2b2xTYWxkbwgFAXACXzQEDG5ld0xvY2tlZFZvbAMJAGYCAAAJAGUCBQ9jdXJyV2hMb2NrZWRWb2wFCHZvbFNhbGRvAAAJAGUCBQ9jdXJyV2hMb2NrZWRWb2wFCHZvbFNhbGRvBAV3aFN0cgkAugkCCQDMCAIJAJEDAgUJY3VycmVudFdoBQh3aElkeFZvbAkAzAgCCQC5CQIIBQFyAl8xAgFfCQDMCAIJALkJAggFAW0CXzECAV8JAMwIAgkAuQkCCAUBcAJfMQIBXwkAzAgCCQCkAwEFDG5ld0xvY2tlZFZvbAUDbmlsAgE6BAtuZXdXaE9yZFN0cgkAugkCCQDMCAIJALkJAggFAXICXzICAV8JAMwIAgkAuQkCCAUBbQJfMgIBXwkAzAgCCQC5CQIIBQFwAl8yAgFfBQNuaWwCAToECG5ld0JwU3RyCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQFyAl8zAgFfCQDMCAIJALkJAggFAW0CXzMCAV8JAMwIAgkAuQkCCAUBcAJfMwIBXwUDbmlsAgE6BAZ3aFNhdmUJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag1zYXZlV2FyZWhvdXNlCQDMCAIFBXdoU3RyCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAMJAAACBQZ3aFNhdmUFBndoU2F2ZQQGYnBTYXZlCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUIbmV3QnBTdHIFA25pbAUDbmlsAwkAAAIFBmJwU2F2ZQUGYnBTYXZlBAdhY3Rpb25zCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQULbmV3V2hPcmRTdHIFA25pbAQNdXNkV2gyQnBTYWxkbwgFAXACXzUECGFjdGlvbnMxAwkAZgIFDXVzZFdoMkJwU2FsZG8AAAQLdXNkV2gyQnBGZWUJAGsDCAUBcAJfNQUKQVVDVElPTkZFRQUFTVVMVDYECHJlZkJ5S2V5CQEPa2V5QWRkcmVzc1JlZkJ5AQUKY2FsbGVyQWRkcgQFcmVmQnkJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQhyZWZCeUtleQMJAQlpc0RlZmluZWQBBQVyZWZCeQkAzQgCCQDNCAIJAM0IAgUHYWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyCQBlAggFAXACXzUJAGgCAAMFC3VzZFdoMkJwRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEFBXJlZkJ5BQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQJAM0IAgkAzQgCBQdhY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIJAGUCCAUBcAJfNQkAaAIAAwULdXNkV2gyQnBGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZFdoMkJwRmVlBQt1c2R0QXNzZXRJZAUHYWN0aW9ucwQNdXNkQnAyV2hTYWxkbwgFAXACXzYDCQBmAgUNdXNkQnAyV2hTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFDXVzZEJwMldoU2FsZG8JAAIBCQCsAgICElBheW1lbnQgbmVlZGVkIGlzIAkApAMBBQ11c2RCcDJXaFNhbGRvAwkAZgIFDk1JTlNIT1BQQVlNRU5UBQNhbXQJAAIBCQCsAgICG1BheW1lbnQgc2hvdWxkIGJlIGF0IGxlYXN0IAkApAMBBQ5NSU5TSE9QUEFZTUVOVAQLdXNkQnAyV2hGZWUJAGsDCAUBcAJfNgUKQVVDVElPTkZFRQUFTVVMVDYECHJlZkJ5S2V5CQEPa2V5QWRkcmVzc1JlZkJ5AQUJbGFuZE93bmVyBAVyZWZCeQkAnQgCBQ9zdGFraW5nQ29udHJhY3QFCHJlZkJ5S2V5AwkBCWlzRGVmaW5lZAEFBXJlZkJ5CQDNCAIJAM0IAgkAzQgCBQhhY3Rpb25zMQkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUJbGFuZE93bmVyCQBlAggFAXACXzYJAGgCAAMFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BQt1c2RCcDJXaEZlZQULdXNkdEFzc2V0SWQJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEFBXJlZkJ5BQt1c2RCcDJXaEZlZQULdXNkdEFzc2V0SWQJAM0IAgkAzQgCBQhhY3Rpb25zMQkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUJbGFuZE93bmVyCQBlAggFAXACXzYJAGgCAAMFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BQt1c2RCcDJXaEZlZQULdXNkdEFzc2V0SWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhJObyBwYXltZW50cyBuZWVkZWQFCGFjdGlvbnMxCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAEhqo9Q=",
    "height": 2590488,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2xufPf213EMY9jHGXYMPp6Vqsg8jA4pbzmdDmJ6DDp1W
Next: BFw3GrsqHpjMPjbPA57ur63We2yEsy1UiRaAmeg1vjW2

Diff: 
Old New Differences
509 509                                              let rest = if (((amt - merged._3) > 0))
510 510                                                  then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
511 511                                                  else nil
512 -                                             $Tuple2((merged._1 ++ rest), result)
512 +                                             let activitiesAmount = (merged._3 / 100)
513 +                                             $Tuple2(((merged._1 ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
513 514                                              }
514 515                                      }
515 516                              }
578 579                                              let rest = if (((amt - merged._3) > 0))
579 580                                                  then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
580 581                                                  else nil
581 -                                             $Tuple2((rest ++ merged._4), result)
582 +                                             let activitiesAmount = (merged._3 / 100)
583 +                                             $Tuple2(((rest ++ merged._4) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
582 584                                              }
583 585                                      }
584 586                              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let MULT6 = 1000000
7 7  
8 8  let MULT7 = 10000000
9 9  
10 10  let MULT8 = 100000000
11 11  
12 12  let MULT10 = 10000000000
13 13  
14 14  let chain = take(drop(this.bytes, 1), 1)
15 15  
16 16  let usdtAssetId = match chain {
17 17      case _ => 
18 18          if ((base58'2W' == $match0))
19 19              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
20 20              else if ((base58'2T' == $match0))
21 21                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
22 22                  else throw("Unknown chain")
23 23  }
24 24  
25 25  let defaultRestAddressStr = match chain {
26 26      case _ => 
27 27          if ((base58'2W' == $match0))
28 28              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
29 29              else if ((base58'2T' == $match0))
30 30                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
31 31                  else throw("Unknown chain")
32 32  }
33 33  
34 34  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
35 35  
36 36  
37 37  func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal)
38 38  
39 39  
40 40  let IdxCfgStakingDapp = 1
41 41  
42 42  let IdxCfgEconomyDapp = 2
43 43  
44 44  let IdxCfgGovernanceDapp = 3
45 45  
46 46  func keyRestCfg () = "%s__restConfig"
47 47  
48 48  
49 49  func keyRestAddress () = "%s__restAddr"
50 50  
51 51  
52 52  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
53 53  
54 54  
55 55  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
56 56  
57 57  
58 58  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
59 59  
60 60  let restCfg = readRestCfgOrFail(restContract)
61 61  
62 62  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
63 63  
64 64  let DEFAULTLOCATION = "Africa_F_Africa"
65 65  
66 66  let NUMRES = 6
67 67  
68 68  let FACTORYMAXWAREHOUSE = 10000000000
69 69  
70 70  let RESOURCEPRICEMIN = 39637
71 71  
72 72  let MINPAYMENT = 10000
73 73  
74 74  let SELLMULTIPLIER = 200
75 75  
76 76  let BUYMULTIPLIER = 300
77 77  
78 78  let LANDPREFIX = "LAND"
79 79  
80 80  let DUCKPREFIX = "DUCK"
81 81  
82 82  let WHMULTIPLIER = 10000000000
83 83  
84 84  let AUCTIONFEE = 10000
85 85  
86 86  let MINSHOPPAYMENT = 100000
87 87  
88 88  let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
89 89  
90 90  let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
91 91  
92 92  let prodTypes = ["First Aid Kit", "Backpack", "Food Ration", "Jet Pack", "Shield"]
93 93  
94 94  let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
95 95  
96 96  let productionMatrix = ["1_1_1_2_2_5_1_10_0", "2_2_2_4_4_10_1_10_0", "3_3_3_6_6_15_1_10_0", "2_5_5_2_7_5_2_100_1", "4_10_10_4_14_10_2_100_1", "6_15_15_6_21_15_2_100_1", "1_1_1_1_1_8_1_10_2", "2_2_2_2_2_16_1_10_2", "3_3_3_3_3_24_1_10_2", "9_9_1_5_5_1_5_100_3", "18_18_2_10_10_2_5_100_3", "27_27_3_15_15_3_5_100_3", "2_2_1_2_2_2_1_10_4", "4_4_2_4_4_4_1_10_4", "6_6_3_6_6_6_1_10_4"]
97 97  
98 98  let contIdxAmericas = 0
99 99  
100 100  let contIdxEurope = 1
101 101  
102 102  let contIdxAsia = 2
103 103  
104 104  let contIdxAfrica = 3
105 105  
106 106  let contIdxOceania = 4
107 107  
108 108  let recipeIdxFuel = 0
109 109  
110 110  let recipeIdxMetal = 1
111 111  
112 112  let recipeIdxPlank = 2
113 113  
114 114  let recipeIdxGlass = 3
115 115  
116 116  let recipeIdxPlastic = 4
117 117  
118 118  let recipeIdxProtein = 5
119 119  
120 120  let recipeIdxWeight = 6
121 121  
122 122  let recipeIdxPacksize = 7
123 123  
124 124  let recipeIdxContinent = 8
125 125  
126 126  func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
127 127  
128 128  
129 129  func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
130 130  
131 131  
132 132  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
133 133  
134 134  
135 135  func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
136 136  
137 137  
138 138  func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
139 139  
140 140  
141 141  func keyBlocked () = "contractsBlocked"
142 142  
143 143  
144 144  func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
145 145  
146 146  
147 147  func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
148 148  
149 149  
150 150  func keyAddressRefBy (addr) = ("accRefBy_" + addr)
151 151  
152 152  
153 153  let locIdxContinent = 0
154 154  
155 155  let locIdxType = 1
156 156  
157 157  let locIdxId = 2
158 158  
159 159  let bpIdxLevel = 0
160 160  
161 161  let bpIdxRes = 1
162 162  
163 163  let bpIdxMat = 2
164 164  
165 165  let bpIdxProd = 3
166 166  
167 167  let whIdxVol = 0
168 168  
169 169  let whIdxRes = 1
170 170  
171 171  let whIdxMat = 2
172 172  
173 173  let whIdxProd = 3
174 174  
175 175  let whIdxLockedVol = 4
176 176  
177 177  let ordIdxRes = 0
178 178  
179 179  let ordIdxMat = 1
180 180  
181 181  let ordIdxProd = 2
182 182  
183 183  func asString (v) = match v {
184 184      case s: String => 
185 185          s
186 186      case _ => 
187 187          throw("fail to cast into String")
188 188  }
189 189  
190 190  
191 191  func getOrder (ordKey) = {
192 192      let p = split(valueOrElse(getString(ordKey), "0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:"), ":")
193 193  [if ((size(split(p[ordIdxRes], "_")) == NUMRES))
194 194          then p[ordIdxRes]
195 195          else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
196 196          then p[ordIdxMat]
197 197          else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
198 198      }
199 199  
200 200  
201 201  func getWarehouseVolume (volPrefix) = {
202 202      let parts = split(volPrefix, "_")
203 203      ((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
204 204      }
205 205  
206 206  
207 207  func getWarehouseCurrResVolume (currentWh) = {
208 208      func sum (acc,item) =     (acc + parseIntValue(item))
209 209  
210 210      let $l = split(currentWh[whIdxRes], "_")
211 211      let $s = size($l)
212 212      let $acc0 = 0
213 213      func $f0_1 ($a,$i) =     if (($i >= $s))
214 214          then $a
215 215          else sum($a, $l[$i])
216 216  
217 217      func $f0_2 ($a,$i) =     if (($i >= $s))
218 218          then $a
219 219          else throw("List size exceeds 6")
220 220  
221 221      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
222 222      }
223 223  
224 224  
225 225  func getWarehouseCurrMatVolume (currentWh) = {
226 226      func sum (acc,item) =     (acc + parseIntValue(item))
227 227  
228 228      let $l = split(currentWh[whIdxMat], "_")
229 229      let $s = size($l)
230 230      let $acc0 = 0
231 231      func $f0_1 ($a,$i) =     if (($i >= $s))
232 232          then $a
233 233          else sum($a, $l[$i])
234 234  
235 235      func $f0_2 ($a,$i) =     if (($i >= $s))
236 236          then $a
237 237          else throw("List size exceeds 6")
238 238  
239 239      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
240 240      }
241 241  
242 242  
243 243  func getWarehouseCurrGoodsVolume (currentWh) = {
244 244      let goods = currentWh[whIdxProd]
245 245      if ((goods == ""))
246 246          then 0
247 247          else {
248 248              func sum (acc,item) =             (acc + parseIntValue(item))
249 249  
250 250              let $l = split_4C(goods, "_")
251 251              let $s = size($l)
252 252              let $acc0 = 0
253 253              func $f0_1 ($a,$i) =             if (($i >= $s))
254 254                  then $a
255 255                  else sum($a, $l[$i])
256 256  
257 257              func $f0_2 ($a,$i) =             if (($i >= $s))
258 258                  then $a
259 259                  else throw("List size exceeds 50")
260 260  
261 261              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 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)
262 262              }
263 263      }
264 264  
265 265  
266 266  func sellInternal (locId,resType,amount,minPrice) = {
267 267      let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
268 268      let w0 = valueOrElse(getInteger(whKey), 0)
269 269      let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
270 270          then 0
271 271          else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
272 272              then (FACTORYMAXWAREHOUSE - w0)
273 273              else amount
274 274      let usdtReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
275 275      let min99 = (minPrice - (minPrice / 100))
276 276      if (((min99 * amount) > (usdtReceived * MULT8)))
277 277          then throw((((((((((("Actual price = " + toString(usdtReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
278 278          else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdtReceived)
279 279      }
280 280  
281 281  
282 282  func buyInternal (locId,matType,amount,maxPrice) = {
283 283      let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
284 284      let w0 = valueOrElse(getInteger(whKey), 0)
285 285      let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
286 286          then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
287 287          else 0
288 288      let m0 = min([w0, (amount - m1)])
289 289      let m = (m0 + m1)
290 290      let usdtSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
291 291      let max101 = (maxPrice + (maxPrice / 100))
292 292      if (((usdtSpent * MULT8) > (max101 * m)))
293 293          then throw((((((((((("Actual price = " + toString(usdtSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
294 294          else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdtSpent, m)
295 295      }
296 296  
297 297  
298 298  func getBackpack (bpKey) = {
299 299      let p = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
300 300  [toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
301 301          then p[bpIdxRes]
302 302          else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
303 303          then p[bpIdxMat]
304 304          else "0_0_0_0_0_0", p[bpIdxProd]]
305 305      }
306 306  
307 307  
308 308  func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
309 309      then throw("Contracts are under maintenance")
310 310      else unit
311 311  
312 312  
313 313  func setCommon (acc,item) = {
314 314      let j = acc._1
315 315      let itemParts = split(item, "@")
316 316      if ((size(itemParts) != 2))
317 317          then throw("Incorrect order format, should be amount@price")
318 318          else {
319 319              let newOrdAm = parseIntValue(itemParts[0])
320 320              let newOrdPr = parseIntValue(itemParts[1])
321 321              let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
322 322              let whp = parseIntValue(acc._5[j])
323 323              let curOrdParts = split(acc._6[j], "@")
324 324              let curOrdAm = parseIntValue(curOrdParts[0])
325 325              let curOrdPr = parseIntValue(curOrdParts[1])
326 326              if ((0 > curOrdPr))
327 327                  then throw("Price can't be negative")
328 328                  else {
329 329                      let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
330 330                      if ((newOrdAm == 0))
331 331                          then if ((curOrdAm > 0))
332 332                              then $Tuple6((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd), acc._5, acc._6)
333 333                              else $Tuple6((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4, acc._5, acc._6)
334 334                          else if ((newOrdAm > 0))
335 335                              then if ((0 > curOrdAm))
336 336                                  then {
337 337                                      let amDiff = (newOrdAm + curOrdAm)
338 338                                      $Tuple6((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd), acc._5, acc._6)
339 339                                      }
340 340                                  else $Tuple6((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd), acc._5, acc._6)
341 341                              else if ((0 > curOrdAm))
342 342                                  then {
343 343                                      let amDiff = (curOrdAm - newOrdAm)
344 344                                      if ((0 > (whp - amDiff)))
345 345                                          then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available"))
346 346                                          else $Tuple6((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._4, acc._5, acc._6)
347 347                                      }
348 348                                  else if ((0 > (whp + newOrdAm)))
349 349                                      then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available"))
350 350                                      else $Tuple6((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd), acc._5, acc._6)
351 351                      }
352 352              }
353 353      }
354 354  
355 355  
356 356  func acceptCommon (acc,bpOrdProdItem) = {
357 357      let j = acc._7
358 358      let bpOrdProdParts = split(bpOrdProdItem, "@")
359 359      if ((size(bpOrdProdParts) != 2))
360 360          then throw("Incorrect order format, should be amount@price")
361 361          else {
362 362              let bpOrdAm = parseIntValue(bpOrdProdParts[0])
363 363              let bpOrdPr = parseIntValue(bpOrdProdParts[1])
364 364              if ((0 > bpOrdPr))
365 365                  then throw("Price can't be negative")
366 366                  else {
367 367                      let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8)
368 368                      let bpp = parseIntValue(acc._8[j])
369 369                      let whp = parseIntValue(acc._9[j])
370 370                      let whOrdParts = split(acc._10[j], "@")
371 371                      let whOrdAm = parseIntValue(whOrdParts[0])
372 372                      let whOrdPr = parseIntValue(whOrdParts[1])
373 373                      if (if ((bpOrdAm != 0))
374 374                          then (bpOrdPr != whOrdPr)
375 375                          else false)
376 376                          then throw(((((("Prices of " + acc._11[j]) + " don't match! WH price=") + toString(whOrdPr)) + ", your price=") + toString(bpOrdPr)))
377 377                          else {
378 378                              let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8)
379 379                              if ((bpOrdAm == 0))
380 380                                  then $Tuple11((acc._1 :+ toString(whp)), (acc._2 :+ acc._10[j]), (acc._3 :+ toString(bpp)), acc._4, acc._5, acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11)
381 381                                  else if ((bpOrdAm > 0))
382 382                                      then if ((0 > whOrdAm))
383 383                                          then if ((bpOrdAm > -(whOrdAm)))
384 384                                              then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + acc._11[j]) + ", but warehouse only sells ") + toString(-(whOrdAm))))
385 385                                              else $Tuple11((acc._1 :+ toString(whp)), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpp + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd), (acc._7 + 1), acc._8, acc._9, acc._10, acc._11)
386 386                                          else throw((("Attempt to buy " + acc._11[j]) + " while warehouse doesn't sell it"))
387 387                                      else if ((whOrdAm > 0))
388 388                                          then if ((-(bpOrdAm) > whOrdAm))
389 389                                              then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + acc._11[j]) + ", but warehouse only buys ") + toString(whOrdAm)))
390 390                                              else if ((-(bpOrdAm) > bpp))
391 391                                                  then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + toString(bpp)) + " of ") + acc._11[j]))
392 392                                                  else $Tuple11((acc._1 :+ toString((whp - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpp + bpOrdAm))), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11)
393 393                                          else throw((("Attempt to sell " + acc._11[j]) + " while warehouse doesn't buy it"))
394 394                              }
395 395                      }
396 396              }
397 397      }
398 398  
399 399  
400 400  @Callable(i)
401 401  func constructorV1 (restAddr) = if ((i.caller != this))
402 402      then throw("Permission denied")
403 403      else [StringEntry(keyRestAddress(), restAddr)]
404 404  
405 405  
406 406  
407 407  @Callable(i)
408 408  func sellResources (amounts,minPrices) = {
409 409      let blocked = checkBlocked()
410 410      if ((blocked == blocked))
411 411          then {
412 412              let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
413 413              if ((size(i.payments) != 0))
414 414                  then throw("sellResources doesn't require any payments")
415 415                  else {
416 416                      let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
417 417                      if ((curLocation[locIdxType] != "F"))
418 418                          then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
419 419                          else {
420 420                              let locId = curLocation[locIdxId]
421 421                              let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
422 422                              let resList = split(currentPack[bpIdxRes], "_")
423 423                              func adder (acc,j) =                             if ((amounts[j] > parseIntValue(resList[j])))
424 424                                  then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j])))
425 425                                  else if ((0 > amounts[j]))
426 426                                      then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j])))
427 427                                      else if ((amounts[j] > 0))
428 428                                          then {
429 429                                              let b = sellInternal(locId, j, amounts[j], minPrices[j])
430 430                                              $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2))
431 431                                              }
432 432                                          else $Tuple3(acc._1, (acc._2 :+ resList[j]), acc._3)
433 433  
434 434                              let merged = {
435 435                                  let $l = [0, 1, 2, 3, 4, 5]
436 436                                  let $s = size($l)
437 437                                  let $acc0 = $Tuple3(nil, nil, 0)
438 438                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
439 439                                      then $a
440 440                                      else adder($a, $l[$i])
441 441  
442 442                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
443 443                                      then $a
444 444                                      else throw("List size exceeds 6")
445 445  
446 446                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
447 447                                  }
448 448                              let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._2, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
449 449                              let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
450 450                              $Tuple2((merged._1 :+ ScriptTransfer(i.caller, merged._3, usdtAssetId)), result)
451 451                              }
452 452                      }
453 453              }
454 454          else throw("Strict value is not equal to itself.")
455 455      }
456 456  
457 457  
458 458  
459 459  @Callable(i)
460 460  func buyMaterials (amounts,maxPrices) = {
461 461      let blocked = checkBlocked()
462 462      if ((blocked == blocked))
463 463          then {
464 464              let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
465 465              if ((size(i.payments) != 1))
466 466                  then throw("exactly 1 payment must be attached")
467 467                  else {
468 468                      let pmt = i.payments[0]
469 469                      let amt = pmt.amount
470 470                      let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
471 471                      if ((pmtAssetId != usdtAssetId))
472 472                          then throw("USDT payments only!")
473 473                          else {
474 474                              let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
475 475                              if ((curLocation[locIdxType] != "F"))
476 476                                  then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
477 477                                  else {
478 478                                      let locId = curLocation[locIdxId]
479 479                                      let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
480 480                                      let matList = split(currentPack[bpIdxMat], "_")
481 481                                      func mUpdater (acc,j) =                                     if ((0 > amounts[j]))
482 482                                          then throw(((("You tried to buy negative amount of " + matTypes[j]) + ": ") + toString(amounts[j])))
483 483                                          else if ((amounts[j] > 0))
484 484                                              then {
485 485                                                  let b = buyInternal(locId, j, amounts[j], maxPrices[j])
486 486                                                  $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(matList[j]) + b._3))), (acc._3 + b._2))
487 487                                                  }
488 488                                              else $Tuple3(acc._1, (acc._2 :+ matList[j]), acc._3)
489 489  
490 490                                      let merged = {
491 491                                          let $l = [0, 1, 2, 3, 4, 5]
492 492                                          let $s = size($l)
493 493                                          let $acc0 = $Tuple3(nil, nil, 0)
494 494                                          func $f0_1 ($a,$i) =                                         if (($i >= $s))
495 495                                              then $a
496 496                                              else mUpdater($a, $l[$i])
497 497  
498 498                                          func $f0_2 ($a,$i) =                                         if (($i >= $s))
499 499                                              then $a
500 500                                              else throw("List size exceeds 6")
501 501  
502 502                                          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
503 503                                          }
504 504                                      if ((merged._3 > amt))
505 505                                          then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3)))
506 506                                          else {
507 507                                              let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._2, "_"), currentPack[bpIdxProd]], ":")
508 508                                              let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
509 509                                              let rest = if (((amt - merged._3) > 0))
510 510                                                  then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
511 511                                                  else nil
512 -                                             $Tuple2((merged._1 ++ rest), result)
512 +                                             let activitiesAmount = (merged._3 / 100)
513 +                                             $Tuple2(((merged._1 ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
513 514                                              }
514 515                                      }
515 516                              }
516 517                      }
517 518              }
518 519          else throw("Strict value is not equal to itself.")
519 520      }
520 521  
521 522  
522 523  
523 524  @Callable(i)
524 525  func exchangeResources (amounts) = {
525 526      let blocked = checkBlocked()
526 527      if ((blocked == blocked))
527 528          then {
528 529              let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
529 530              if ((size(i.payments) != 1))
530 531                  then throw("exactly 1 payment must be attached")
531 532                  else {
532 533                      let pmt = i.payments[0]
533 534                      let amt = pmt.amount
534 535                      let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
535 536                      if ((pmtAssetId != usdtAssetId))
536 537                          then throw("USDT payments only!")
537 538                          else {
538 539                              let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
539 540                              if ((curLocation[locIdxType] != "F"))
540 541                                  then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
541 542                                  else {
542 543                                      let locId = curLocation[locIdxId]
543 544                                      let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
544 545                                      let resList = split(currentPack[bpIdxRes], "_")
545 546                                      let matList = split(currentPack[bpIdxMat], "_")
546 547                                      func exchanger (acc,j) =                                     {
547 548                                          let whKey = keyFactoryWarehouseByIdAndType(locId, j)
548 549                                          let w0 = valueOrElse(getInteger(whKey), 0)
549 550                                          let amj = amounts[j]
550 551                                          if ((amj > parseIntValue(resList[j])))
551 552                                              then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to exchange ") + toString(amj)))
552 553                                              else if ((0 > amj))
553 554                                                  then throw(((("You tried to exchange negative amount of " + resTypes[j]) + ": ") + toString(amj)))
554 555                                                  else if ((amj > 0))
555 556                                                      then $Tuple4((acc._1 :+ toString((parseIntValue(resList[j]) - amj))), (acc._2 :+ toString((parseIntValue(matList[j]) + amj))), (acc._3 + fraction(amj, RESOURCEPRICEMIN, MULT8)), (acc._4 :+ IntegerEntry(whKey, w0)))
556 557                                                      else $Tuple4((acc._1 :+ resList[j]), (acc._2 :+ matList[j]), acc._3, acc._4)
557 558                                          }
558 559  
559 560                                      let merged = {
560 561                                          let $l = [0, 1, 2, 3, 4, 5]
561 562                                          let $s = size($l)
562 563                                          let $acc0 = $Tuple4(nil, nil, 0, nil)
563 564                                          func $f0_1 ($a,$i) =                                         if (($i >= $s))
564 565                                              then $a
565 566                                              else exchanger($a, $l[$i])
566 567  
567 568                                          func $f0_2 ($a,$i) =                                         if (($i >= $s))
568 569                                              then $a
569 570                                              else throw("List size exceeds 6")
570 571  
571 572                                          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
572 573                                          }
573 574                                      if ((merged._3 > amt))
574 575                                          then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3)))
575 576                                          else {
576 577                                              let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._1, "_"), makeString(merged._2, "_"), currentPack[bpIdxProd]], ":")
577 578                                              let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
578 579                                              let rest = if (((amt - merged._3) > 0))
579 580                                                  then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
580 581                                                  else nil
581 -                                             $Tuple2((rest ++ merged._4), result)
582 +                                             let activitiesAmount = (merged._3 / 100)
583 +                                             $Tuple2(((rest ++ merged._4) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
582 584                                              }
583 585                                      }
584 586                              }
585 587                      }
586 588              }
587 589          else throw("Strict value is not equal to itself.")
588 590      }
589 591  
590 592  
591 593  
592 594  @Callable(i)
593 595  func craftGoods (productIdx,quantity) = {
594 596      let blocked = checkBlocked()
595 597      if ((blocked == blocked))
596 598          then if ((size(i.payments) != 1))
597 599              then throw("exactly 1 payment must be attached")
598 600              else {
599 601                  let pmt = i.payments[0]
600 602                  let amt = pmt.amount
601 603                  let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
602 604                  if ((pmtAssetId != usdtAssetId))
603 605                      then throw("USDT payments only!")
604 606                      else if ((amt != MULT6))
605 607                          then throw("exactly 1 USDT must be attached as payment")
606 608                          else if ((0 >= quantity))
607 609                              then throw("Quantity should be positive")
608 610                              else {
609 611                                  let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
610 612                                  let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
611 613                                  if ((curLocation[locIdxType] != "M"))
612 614                                      then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
613 615                                      else {
614 616                                          let cont = curLocation[locIdxContinent]
615 617                                          let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
616 618                                          let matList = split(currentPack[bpIdxMat], "_")
617 619                                          if (if ((0 > productIdx))
618 620                                              then true
619 621                                              else (productIdx >= size(productionMatrix)))
620 622                                              then throw(("Unknown product idx=" + toString(productIdx)))
621 623                                              else {
622 624                                                  let recipe = split(productionMatrix[productIdx], "_")
623 625                                                  if ((size(recipe) != (NUMRES + 3)))
624 626                                                      then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
625 627                                                      else {
626 628                                                          let productContIdx = parseIntValue(recipe[recipeIdxContinent])
627 629                                                          if ((continents[productContIdx] != cont))
628 630                                                              then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont))
629 631                                                              else {
630 632                                                                  let prodList = if ((currentPack[bpIdxProd] == ""))
631 633                                                                      then nil
632 634                                                                      else split(currentPack[bpIdxProd], "_")
633 635                                                                  func filler (acc,ignoredItem) =                                                                 {
634 636                                                                      let n = acc._2
635 637                                                                      let xs = if ((size(prodList) > n))
636 638                                                                          then prodList[n]
637 639                                                                          else "0"
638 640                                                                      let x = parseIntValue(xs)
639 641                                                                      let amount = (quantity * parseIntValue(recipe[recipeIdxPacksize]))
640 642                                                                      let y = if ((n == productIdx))
641 643                                                                          then toString((x + amount))
642 644                                                                          else xs
643 645                                                                      $Tuple2((acc._1 :+ y), (n + 1))
644 646                                                                      }
645 647  
646 648                                                                  let bpProd = (                                                                let $l = productionMatrix
647 649                                                                  let $s = size($l)
648 650                                                                  let $acc0 = $Tuple2(nil, 0)
649 651                                                                  func $f0_1 ($a,$i) =                                                                 if (($i >= $s))
650 652                                                                      then $a
651 653                                                                      else filler($a, $l[$i])
652 654  
653 655                                                                  func $f0_2 ($a,$i) =                                                                 if (($i >= $s))
654 656                                                                      then $a
655 657                                                                      else throw("List size exceeds 50")
656 658  
657 659                                                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 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))._1
658 660                                                                  func producer (acc,j) =                                                                 {
659 661                                                                      let needMat = ((parseIntValue(recipe[j]) * MULT7) * quantity)
660 662                                                                      let haveMat = parseIntValue(matList[j])
661 663                                                                      if ((needMat > haveMat))
662 664                                                                          then throw(((((((("You have " + matList[j]) + " of ") + matTypes[j]) + ", but recipe requires ") + toString(needMat)) + " for quantity ") + toString(quantity)))
663 665                                                                          else if ((needMat > 0))
664 666                                                                              then (acc :+ toString((haveMat - needMat)))
665 667                                                                              else (acc :+ matList[j])
666 668                                                                      }
667 669  
668 670                                                                  let merged = {
669 671                                                                      let $l = [0, 1, 2, 3, 4, 5]
670 672                                                                      let $s = size($l)
671 673                                                                      let $acc0 = nil
672 674                                                                      func $f1_1 ($a,$i) =                                                                     if (($i >= $s))
673 675                                                                          then $a
674 676                                                                          else producer($a, $l[$i])
675 677  
676 678                                                                      func $f1_2 ($a,$i) =                                                                     if (($i >= $s))
677 679                                                                          then $a
678 680                                                                          else throw("List size exceeds 6")
679 681  
680 682                                                                      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
681 683                                                                      }
682 684                                                                  let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged, "_"), makeString(bpProd, "_")], ":")
683 685                                                                  let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
684 686                                                                  $Tuple2(nil, result)
685 687                                                                  }
686 688                                                          }
687 689                                                  }
688 690                                          }
689 691                                  }
690 692                  }
691 693          else throw("Strict value is not equal to itself.")
692 694      }
693 695  
694 696  
695 697  
696 698  @Callable(i)
697 699  func setWarehouseOrder (cargoListStr,landAssetId) = {
698 700      let user = i.originCaller
699 701      let addr = toString(user)
700 702      let result = if ((user != restContract))
701 703          then checkBlocked()
702 704          else false
703 705      let asset = value(assetInfo(fromBase58String(landAssetId)))
704 706      if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
705 707          then throw((("NFT " + asset.name) + " is not staked"))
706 708          else {
707 709              let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
708 710              if (if ((user != restContract))
709 711                  then (owner != addr)
710 712                  else false)
711 713                  then throw((LANDPREFIX + " is not yours"))
712 714                  else {
713 715                      let cargoParts = split_4C(cargoListStr, ":")
714 716                      if ((size(cargoParts) != 3))
715 717                          then throw("cargoListStr should contain exactly 2 ':' separators")
716 718                          else {
717 719                              let resParts = split(cargoParts[0], "_")
718 720                              let matParts = split(cargoParts[1], "_")
719 721                              let prodParts = if ((cargoParts[2] == ""))
720 722                                  then nil
721 723                                  else split(cargoParts[2], "_")
722 724                              if ((size(resParts) != NUMRES))
723 725                                  then throw("All 6 resources should be passed")
724 726                                  else if ((size(matParts) != NUMRES))
725 727                                      then throw("All 6 materials should be passed")
726 728                                      else {
727 729                                          let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
728 730                                          let currentWh = split_4C(wh, ":")
729 731                                          let currWhRes = split(currentWh[whIdxRes], "_")
730 732                                          let currWhMat = split(currentWh[whIdxMat], "_")
731 733                                          let currWhProd = if ((currentWh[whIdxProd] == ""))
732 734                                              then nil
733 735                                              else split(currentWh[whIdxProd], "_")
734 736                                          let whVol = getWarehouseVolume(currentWh[whIdxVol])
735 737                                          let ordKey = keyOrderByLand(landAssetId)
736 738                                          let currentOrd = getOrder(ordKey)
737 739                                          let currentOrdRes = split(currentOrd[ordIdxRes], "_")
738 740                                          let currentOrdMat = split(currentOrd[ordIdxMat], "_")
739 741                                          let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
740 742                                              then nil
741 743                                              else split(currentOrd[ordIdxProd], "_")
742 744                                          let usdtNeed2Lock = 0
743 745                                          let r = {
744 746                                              let $l = resParts
745 747                                              let $s = size($l)
746 748                                              let $acc0 = $Tuple6(0, nil, 0, 0, currWhRes, currentOrdRes)
747 749                                              func $f0_1 ($a,$i) =                                             if (($i >= $s))
748 750                                                  then $a
749 751                                                  else setCommon($a, $l[$i])
750 752  
751 753                                              func $f0_2 ($a,$i) =                                             if (($i >= $s))
752 754                                                  then $a
753 755                                                  else throw("List size exceeds 6")
754 756  
755 757                                              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
756 758                                              }
757 759                                          let m = {
758 760                                              let $l = matParts
759 761                                              let $s = size($l)
760 762                                              let $acc0 = $Tuple6(0, nil, r._3, r._4, currWhMat, currentOrdMat)
761 763                                              func $f1_1 ($a,$i) =                                             if (($i >= $s))
762 764                                                  then $a
763 765                                                  else setCommon($a, $l[$i])
764 766  
765 767                                              func $f1_2 ($a,$i) =                                             if (($i >= $s))
766 768                                                  then $a
767 769                                                  else throw("List size exceeds 6")
768 770  
769 771                                              $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
770 772                                              }
771 773                                          let p = {
772 774                                              let $l = prodParts
773 775                                              let $s = size($l)
774 776                                              let $acc0 = $Tuple6(0, nil, m._3, m._4, currWhProd, currentOrdProd)
775 777                                              func $f2_1 ($a,$i) =                                             if (($i >= $s))
776 778                                                  then $a
777 779                                                  else setCommon($a, $l[$i])
778 780  
779 781                                              func $f2_2 ($a,$i) =                                             if (($i >= $s))
780 782                                                  then $a
781 783                                                  else throw("List size exceeds 50")
782 784  
783 785                                              $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 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)
784 786                                              }
785 787                                          let volSaldo = p._3
786 788                                          if ((volSaldo > whVol))
787 789                                              then throw((((("Attempt to reserve " + toString(volSaldo)) + " space, but only ") + toString(whVol)) + " warehouse space left"))
788 790                                              else {
789 791                                                  let whStr = makeString_2C([currentWh[whIdxVol], makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_"), toString(volSaldo)], ":")
790 792                                                  let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
791 793                                                  if ((whSave == whSave))
792 794                                                      then {
793 795                                                          let usdSaldo = p._4
794 796                                                          let actions = if ((usdSaldo > 0))
795 797                                                              then if ((size(i.payments) != 1))
796 798                                                                  then throw("exactly 1 payment must be attached")
797 799                                                                  else {
798 800                                                                      let pmt = i.payments[0]
799 801                                                                      let amt = pmt.amount
800 802                                                                      let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
801 803                                                                      if ((pmtAssetId != usdtAssetId))
802 804                                                                          then throw("USDT payments only!")
803 805                                                                          else if ((amt != usdSaldo))
804 806                                                                              then throw(("Payment needed is " + toString(usdSaldo)))
805 807                                                                              else [StringEntry(ordKey, cargoListStr)]
806 808                                                                      }
807 809                                                              else if ((usdSaldo == 0))
808 810                                                                  then if ((size(i.payments) != 0))
809 811                                                                      then throw("No payments needed")
810 812                                                                      else [StringEntry(ordKey, cargoListStr)]
811 813                                                                  else if ((size(i.payments) != 0))
812 814                                                                      then throw("No payments needed")
813 815                                                                      else [ScriptTransfer(addressFromStringValue(owner), -(usdSaldo), usdtAssetId), StringEntry(ordKey, cargoListStr)]
814 816                                                          $Tuple2(actions, result)
815 817                                                          }
816 818                                                      else throw("Strict value is not equal to itself.")
817 819                                                  }
818 820                                          }
819 821                              }
820 822                      }
821 823              }
822 824      }
823 825  
824 826  
825 827  
826 828  @Callable(i)
827 829  func acceptWarehouseOrder (bpOrderStr,landAssetId,duckAssetId) = {
828 830      let blocked = checkBlocked()
829 831      if ((blocked == blocked))
830 832          then {
831 833              let caller = i.originCaller
832 834              let callerAddr = toString(caller)
833 835              let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
834 836              let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION)
835 837              let loc = split(value(curLocation), "_")
836 838              if ((loc[locIdxType] != "L"))
837 839                  then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
838 840                  else if ((stakedDuckAssetId != duckAssetId))
839 841                      then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId))
840 842                      else {
841 843                          let landAsset = value(assetInfo(fromBase58String(landAssetId)))
842 844                          if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
843 845                              then throw((("NFT " + landAsset.name) + " is not staked"))
844 846                              else {
845 847                                  let landOwner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + landAsset.name) + " is orphaned"))
846 848                                  if ((landOwner == callerAddr))
847 849                                      then throw("You cannot trade with yourself")
848 850                                      else {
849 851                                          let bpOrderParts = split_4C(bpOrderStr, ":")
850 852                                          if ((size(bpOrderParts) != 3))
851 853                                              then throw("bpOrderStr should contain exactly 2 ':' separators")
852 854                                              else {
853 855                                                  let bpOrdRes = split(bpOrderParts[0], "_")
854 856                                                  let bpOrdMat = split(bpOrderParts[1], "_")
855 857                                                  let bpOrdProd = if ((bpOrderParts[2] == ""))
856 858                                                      then nil
857 859                                                      else split(bpOrderParts[2], "_")
858 860                                                  if ((size(bpOrdRes) != NUMRES))
859 861                                                      then throw("All 6 resources should be passed")
860 862                                                      else if ((size(bpOrdMat) != NUMRES))
861 863                                                          then throw("All 6 materials should be passed")
862 864                                                          else {
863 865                                                              let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
864 866                                                              let currentWh = split_4C(wh, ":")
865 867                                                              let currWhRes = split(currentWh[whIdxRes], "_")
866 868                                                              let currWhMat = split(currentWh[whIdxMat], "_")
867 869                                                              let currWhProd = if ((currentWh[whIdxProd] == ""))
868 870                                                                  then nil
869 871                                                                  else split(currentWh[whIdxProd], "_")
870 872                                                              let currWhResVol = getWarehouseCurrResVolume(currentWh)
871 873                                                              let currWhMatVol = getWarehouseCurrMatVolume(currentWh)
872 874                                                              let currWhGoodsVol = getWarehouseCurrGoodsVolume(currentWh)
873 875                                                              let currWhLockedVol = parseIntValue(currentWh[whIdxLockedVol])
874 876                                                              let whSpaceLeft = ((((getWarehouseVolume(currentWh[whIdxVol]) - currWhResVol) - currWhMatVol) - currWhGoodsVol) - currWhLockedVol)
875 877                                                              let bpKey = keyBackpackByDuck(duckAssetId)
876 878                                                              let currentPack = getBackpack(bpKey)
877 879                                                              let bpResList = split(currentPack[bpIdxRes], "_")
878 880                                                              let bpMatList = split(currentPack[bpIdxMat], "_")
879 881                                                              let bpProdList = if ((currentPack[bpIdxProd] == ""))
880 882                                                                  then nil
881 883                                                                  else split(currentPack[bpIdxProd], "_")
882 884                                                              let ordKey = keyOrderByLand(landAssetId)
883 885                                                              let whOrd = getOrder(ordKey)
884 886                                                              let whOrdRes = split(whOrd[ordIdxRes], "_")
885 887                                                              let whOrdMat = split(whOrd[ordIdxMat], "_")
886 888                                                              let whOrdProd = if ((whOrd[ordIdxProd] == ""))
887 889                                                                  then nil
888 890                                                                  else split(whOrd[ordIdxProd], "_")
889 891                                                              let usdtNeed2Lock = 0
890 892                                                              let r = {
891 893                                                                  let $l = bpOrdRes
892 894                                                                  let $s = size($l)
893 895                                                                  let $acc0 = $Tuple11(nil, nil, nil, 0, 0, 0, 0, bpResList, currWhRes, whOrdRes, resTypes)
894 896                                                                  func $f0_1 ($a,$i) =                                                                 if (($i >= $s))
895 897                                                                      then $a
896 898                                                                      else acceptCommon($a, $l[$i])
897 899  
898 900                                                                  func $f0_2 ($a,$i) =                                                                 if (($i >= $s))
899 901                                                                      then $a
900 902                                                                      else throw("List size exceeds 6")
901 903  
902 904                                                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
903 905                                                                  }
904 906                                                              let m = {
905 907                                                                  let $l = bpOrdMat
906 908                                                                  let $s = size($l)
907 909                                                                  let $acc0 = $Tuple11(nil, nil, nil, r._4, r._5, r._6, 0, bpMatList, currWhMat, whOrdMat, matTypes)
908 910                                                                  func $f1_1 ($a,$i) =                                                                 if (($i >= $s))
909 911                                                                      then $a
910 912                                                                      else acceptCommon($a, $l[$i])
911 913  
912 914                                                                  func $f1_2 ($a,$i) =                                                                 if (($i >= $s))
913 915                                                                      then $a
914 916                                                                      else throw("List size exceeds 6")
915 917  
916 918                                                                  $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
917 919                                                                  }
918 920                                                              let p = if ((size(bpOrdProd) != 0))
919 921                                                                  then {
920 922                                                                      let $l = bpOrdProd
921 923                                                                      let $s = size($l)
922 924                                                                      let $acc0 = $Tuple11(nil, nil, nil, m._4, m._5, m._6, 0, bpProdList, currWhProd, whOrdProd, prodTypes)
923 925                                                                      func $f2_1 ($a,$i) =                                                                     if (($i >= $s))
924 926                                                                          then $a
925 927                                                                          else acceptCommon($a, $l[$i])
926 928  
927 929                                                                      func $f2_2 ($a,$i) =                                                                     if (($i >= $s))
928 930                                                                          then $a
929 931                                                                          else throw("List size exceeds 50")
930 932  
931 933                                                                      $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 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)
932 934                                                                      }
933 935                                                                  else $Tuple11(currWhProd, whOrdProd, bpProdList, m._4, m._5, m._6, 0, bpProdList, currWhProd, whOrdProd, prodTypes)
934 936                                                              let volSaldo = p._4
935 937                                                              let newLockedVol = if ((0 > (currWhLockedVol - volSaldo)))
936 938                                                                  then 0
937 939                                                                  else (currWhLockedVol - volSaldo)
938 940                                                              let whStr = makeString_2C([currentWh[whIdxVol], makeString(r._1, "_"), makeString(m._1, "_"), makeString(p._1, "_"), toString(newLockedVol)], ":")
939 941                                                              let newWhOrdStr = makeString_2C([makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_")], ":")
940 942                                                              let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(r._3, "_"), makeString(m._3, "_"), makeString(p._3, "_")], ":")
941 943                                                              let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
942 944                                                              if ((whSave == whSave))
943 945                                                                  then {
944 946                                                                      let bpSave = invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil)
945 947                                                                      if ((bpSave == bpSave))
946 948                                                                          then {
947 949                                                                              let actions = [StringEntry(ordKey, newWhOrdStr)]
948 950                                                                              let usdWh2BpSaldo = p._5
949 951                                                                              let actions1 = if ((usdWh2BpSaldo > 0))
950 952                                                                                  then {
951 953                                                                                      let usdWh2BpFee = fraction(p._5, AUCTIONFEE, MULT6)
952 954                                                                                      let refByKey = keyAddressRefBy(callerAddr)
953 955                                                                                      let refBy = getString(stakingContract, refByKey)
954 956                                                                                      if (isDefined(refBy))
955 957                                                                                          then (((actions :+ ScriptTransfer(caller, (p._5 - (3 * usdWh2BpFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdWh2BpFee, usdtAssetId)) :+ ScriptTransfer(addressFromStringValue(value(refBy)), usdWh2BpFee, usdtAssetId))
956 958                                                                                          else ((actions :+ ScriptTransfer(caller, (p._5 - (3 * usdWh2BpFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdWh2BpFee, usdtAssetId))
957 959                                                                                      }
958 960                                                                                  else actions
959 961                                                                              let usdBp2WhSaldo = p._6
960 962                                                                              if ((usdBp2WhSaldo > 0))
961 963                                                                                  then if ((size(i.payments) != 1))
962 964                                                                                      then throw("exactly 1 payment must be attached")
963 965                                                                                      else {
964 966                                                                                          let pmt = i.payments[0]
965 967                                                                                          let amt = pmt.amount
966 968                                                                                          let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
967 969                                                                                          if ((pmtAssetId != usdtAssetId))
968 970                                                                                              then throw("USDT payments only!")
969 971                                                                                              else if ((amt != usdBp2WhSaldo))
970 972                                                                                                  then throw(("Payment needed is " + toString(usdBp2WhSaldo)))
971 973                                                                                                  else if ((MINSHOPPAYMENT > amt))
972 974                                                                                                      then throw(("Payment should be at least " + toString(MINSHOPPAYMENT)))
973 975                                                                                                      else {
974 976                                                                                                          let usdBp2WhFee = fraction(p._6, AUCTIONFEE, MULT6)
975 977                                                                                                          let refByKey = keyAddressRefBy(landOwner)
976 978                                                                                                          let refBy = getString(stakingContract, refByKey)
977 979                                                                                                          if (isDefined(refBy))
978 980                                                                                                              then (((actions1 :+ ScriptTransfer(addressFromStringValue(landOwner), (p._6 - (3 * usdBp2WhFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdBp2WhFee, usdtAssetId)) :+ ScriptTransfer(addressFromStringValue(value(refBy)), usdBp2WhFee, usdtAssetId))
979 981                                                                                                              else ((actions1 :+ ScriptTransfer(addressFromStringValue(landOwner), (p._6 - (3 * usdBp2WhFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdBp2WhFee, usdtAssetId))
980 982                                                                                                          }
981 983                                                                                          }
982 984                                                                                  else if ((size(i.payments) != 0))
983 985                                                                                      then throw("No payments needed")
984 986                                                                                      else actions1
985 987                                                                              }
986 988                                                                          else throw("Strict value is not equal to itself.")
987 989                                                                      }
988 990                                                                  else throw("Strict value is not equal to itself.")
989 991                                                              }
990 992                                                  }
991 993                                          }
992 994                                  }
993 995                          }
994 996              }
995 997          else throw("Strict value is not equal to itself.")
996 998      }
997 999  
998 1000

Old	New		Differences
509	509		let rest = if (((amt - merged._3) > 0))
510	510		then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
511	511		else nil
512		-	$Tuple2((merged._1 ++ rest), result)
	512	+	let activitiesAmount = (merged._3 / 100)
	513	+	$Tuple2(((merged._1 ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
513	514		}
514	515		}
515	516		}

578	579		let rest = if (((amt - merged._3) > 0))
579	580		then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
580	581		else nil
581		-	$Tuple2((rest ++ merged._4), result)
	582	+	let activitiesAmount = (merged._3 / 100)
	583	+	$Tuple2(((rest ++ merged._4) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
582	584		}
583	585		}
584	586		}

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let SEP = "__"
5	5
6	6	let MULT6 = 1000000
7	7
8	8	let MULT7 = 10000000
9	9
10	10	let MULT8 = 100000000
11	11
12	12	let MULT10 = 10000000000
13	13
14	14	let chain = take(drop(this.bytes, 1), 1)
15	15
16	16	let usdtAssetId = match chain {
17	17	case _ =>
18	18	if ((base58'2W' == $match0))
19	19	then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
20	20	else if ((base58'2T' == $match0))
21	21	then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
22	22	else throw("Unknown chain")
23	23	}
24	24
25	25	let defaultRestAddressStr = match chain {
26	26	case _ =>
27	27	if ((base58'2W' == $match0))
28	28	then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
29	29	else if ((base58'2T' == $match0))
30	30	then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
31	31	else throw("Unknown chain")
32	32	}
33	33
34	34	func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
35	35
36	36
37	37	func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal)
38	38
39	39
40	40	let IdxCfgStakingDapp = 1
41	41
42	42	let IdxCfgEconomyDapp = 2
43	43
44	44	let IdxCfgGovernanceDapp = 3
45	45
46	46	func keyRestCfg () = "%s__restConfig"
47	47
48	48
49	49	func keyRestAddress () = "%s__restAddr"
50	50
51	51
52	52	func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
53	53
54	54
55	55	func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
56	56
57	57
58	58	let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
59	59
60	60	let restCfg = readRestCfgOrFail(restContract)
61	61
62	62	let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
63	63
64	64	let DEFAULTLOCATION = "Africa_F_Africa"
65	65
66	66	let NUMRES = 6
67	67
68	68	let FACTORYMAXWAREHOUSE = 10000000000
69	69
70	70	let RESOURCEPRICEMIN = 39637
71	71
72	72	let MINPAYMENT = 10000
73	73
74	74	let SELLMULTIPLIER = 200
75	75
76	76	let BUYMULTIPLIER = 300
77	77
78	78	let LANDPREFIX = "LAND"
79	79
80	80	let DUCKPREFIX = "DUCK"
81	81
82	82	let WHMULTIPLIER = 10000000000
83	83
84	84	let AUCTIONFEE = 10000
85	85
86	86	let MINSHOPPAYMENT = 100000
87	87
88	88	let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
89	89
90	90	let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
91	91
92	92	let prodTypes = ["First Aid Kit", "Backpack", "Food Ration", "Jet Pack", "Shield"]
93	93
94	94	let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
95	95
96	96	let productionMatrix = ["1_1_1_2_2_5_1_10_0", "2_2_2_4_4_10_1_10_0", "3_3_3_6_6_15_1_10_0", "2_5_5_2_7_5_2_100_1", "4_10_10_4_14_10_2_100_1", "6_15_15_6_21_15_2_100_1", "1_1_1_1_1_8_1_10_2", "2_2_2_2_2_16_1_10_2", "3_3_3_3_3_24_1_10_2", "9_9_1_5_5_1_5_100_3", "18_18_2_10_10_2_5_100_3", "27_27_3_15_15_3_5_100_3", "2_2_1_2_2_2_1_10_4", "4_4_2_4_4_4_1_10_4", "6_6_3_6_6_6_1_10_4"]
97	97
98	98	let contIdxAmericas = 0
99	99
100	100	let contIdxEurope = 1
101	101
102	102	let contIdxAsia = 2
103	103
104	104	let contIdxAfrica = 3
105	105
106	106	let contIdxOceania = 4
107	107
108	108	let recipeIdxFuel = 0
109	109
110	110	let recipeIdxMetal = 1
111	111
112	112	let recipeIdxPlank = 2
113	113
114	114	let recipeIdxGlass = 3
115	115
116	116	let recipeIdxPlastic = 4
117	117
118	118	let recipeIdxProtein = 5
119	119
120	120	let recipeIdxWeight = 6
121	121
122	122	let recipeIdxPacksize = 7
123	123
124	124	let recipeIdxContinent = 8
125	125
126	126	func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
127	127
128	128
129	129	func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
130	130
131	131
132	132	func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
133	133
134	134
135	135	func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
136	136
137	137
138	138	func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
139	139
140	140
141	141	func keyBlocked () = "contractsBlocked"
142	142
143	143
144	144	func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
145	145
146	146
147	147	func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
148	148
149	149
150	150	func keyAddressRefBy (addr) = ("accRefBy_" + addr)
151	151
152	152
153	153	let locIdxContinent = 0
154	154
155	155	let locIdxType = 1
156	156
157	157	let locIdxId = 2
158	158
159	159	let bpIdxLevel = 0
160	160
161	161	let bpIdxRes = 1
162	162
163	163	let bpIdxMat = 2
164	164
165	165	let bpIdxProd = 3
166	166
167	167	let whIdxVol = 0
168	168
169	169	let whIdxRes = 1
170	170
171	171	let whIdxMat = 2
172	172
173	173	let whIdxProd = 3
174	174
175	175	let whIdxLockedVol = 4
176	176
177	177	let ordIdxRes = 0
178	178
179	179	let ordIdxMat = 1
180	180
181	181	let ordIdxProd = 2
182	182
183	183	func asString (v) = match v {
184	184	case s: String =>
185	185	s
186	186	case _ =>
187	187	throw("fail to cast into String")
188	188	}
189	189
190	190
191	191	func getOrder (ordKey) = {
192	192	let p = split(valueOrElse(getString(ordKey), "0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:"), ":")
193	193	[if ((size(split(p[ordIdxRes], "_")) == NUMRES))
194	194	then p[ordIdxRes]
195	195	else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
196	196	then p[ordIdxMat]
197	197	else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
198	198	}
199	199
200	200
201	201	func getWarehouseVolume (volPrefix) = {
202	202	let parts = split(volPrefix, "_")
203	203	((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
204	204	}
205	205
206	206
207	207	func getWarehouseCurrResVolume (currentWh) = {
208	208	func sum (acc,item) = (acc + parseIntValue(item))
209	209
210	210	let $l = split(currentWh[whIdxRes], "_")
211	211	let $s = size($l)
212	212	let $acc0 = 0
213	213	func $f0_1 ($a,$i) = if (($i >= $s))
214	214	then $a
215	215	else sum($a, $l[$i])
216	216
217	217	func $f0_2 ($a,$i) = if (($i >= $s))
218	218	then $a
219	219	else throw("List size exceeds 6")
220	220
221	221	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
222	222	}
223	223
224	224
225	225	func getWarehouseCurrMatVolume (currentWh) = {
226	226	func sum (acc,item) = (acc + parseIntValue(item))
227	227
228	228	let $l = split(currentWh[whIdxMat], "_")
229	229	let $s = size($l)
230	230	let $acc0 = 0
231	231	func $f0_1 ($a,$i) = if (($i >= $s))
232	232	then $a
233	233	else sum($a, $l[$i])
234	234
235	235	func $f0_2 ($a,$i) = if (($i >= $s))
236	236	then $a
237	237	else throw("List size exceeds 6")
238	238
239	239	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
240	240	}
241	241
242	242
243	243	func getWarehouseCurrGoodsVolume (currentWh) = {
244	244	let goods = currentWh[whIdxProd]
245	245	if ((goods == ""))
246	246	then 0
247	247	else {
248	248	func sum (acc,item) = (acc + parseIntValue(item))
249	249
250	250	let $l = split_4C(goods, "_")
251	251	let $s = size($l)
252	252	let $acc0 = 0
253	253	func $f0_1 ($a,$i) = if (($i >= $s))
254	254	then $a
255	255	else sum($a, $l[$i])
256	256
257	257	func $f0_2 ($a,$i) = if (($i >= $s))
258	258	then $a
259	259	else throw("List size exceeds 50")
260	260
261	261	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 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)
262	262	}
263	263	}
264	264
265	265
266	266	func sellInternal (locId,resType,amount,minPrice) = {
267	267	let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
268	268	let w0 = valueOrElse(getInteger(whKey), 0)
269	269	let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
270	270	then 0
271	271	else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
272	272	then (FACTORYMAXWAREHOUSE - w0)
273	273	else amount
274	274	let usdtReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
275	275	let min99 = (minPrice - (minPrice / 100))
276	276	if (((min99 * amount) > (usdtReceived * MULT8)))
277	277	then throw((((((((((("Actual price = " + toString(usdtReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
278	278	else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdtReceived)
279	279	}
280	280
281	281
282	282	func buyInternal (locId,matType,amount,maxPrice) = {
283	283	let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
284	284	let w0 = valueOrElse(getInteger(whKey), 0)
285	285	let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
286	286	then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
287	287	else 0
288	288	let m0 = min([w0, (amount - m1)])
289	289	let m = (m0 + m1)
290	290	let usdtSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
291	291	let max101 = (maxPrice + (maxPrice / 100))
292	292	if (((usdtSpent * MULT8) > (max101 * m)))
293	293	then throw((((((((((("Actual price = " + toString(usdtSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
294	294	else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdtSpent, m)
295	295	}
296	296
297	297
298	298	func getBackpack (bpKey) = {
299	299	let p = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
300	300	[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
301	301	then p[bpIdxRes]
302	302	else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
303	303	then p[bpIdxMat]
304	304	else "0_0_0_0_0_0", p[bpIdxProd]]
305	305	}
306	306
307	307
308	308	func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
309	309	then throw("Contracts are under maintenance")
310	310	else unit
311	311
312	312
313	313	func setCommon (acc,item) = {
314	314	let j = acc._1
315	315	let itemParts = split(item, "@")
316	316	if ((size(itemParts) != 2))
317	317	then throw("Incorrect order format, should be amount@price")
318	318	else {
319	319	let newOrdAm = parseIntValue(itemParts[0])
320	320	let newOrdPr = parseIntValue(itemParts[1])
321	321	let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
322	322	let whp = parseIntValue(acc._5[j])
323	323	let curOrdParts = split(acc._6[j], "@")
324	324	let curOrdAm = parseIntValue(curOrdParts[0])
325	325	let curOrdPr = parseIntValue(curOrdParts[1])
326	326	if ((0 > curOrdPr))
327	327	then throw("Price can't be negative")
328	328	else {
329	329	let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
330	330	if ((newOrdAm == 0))
331	331	then if ((curOrdAm > 0))
332	332	then $Tuple6((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd), acc._5, acc._6)
333	333	else $Tuple6((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4, acc._5, acc._6)
334	334	else if ((newOrdAm > 0))
335	335	then if ((0 > curOrdAm))
336	336	then {
337	337	let amDiff = (newOrdAm + curOrdAm)
338	338	$Tuple6((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd), acc._5, acc._6)
339	339	}
340	340	else $Tuple6((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd), acc._5, acc._6)
341	341	else if ((0 > curOrdAm))
342	342	then {
343	343	let amDiff = (curOrdAm - newOrdAm)
344	344	if ((0 > (whp - amDiff)))
345	345	then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available"))
346	346	else $Tuple6((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._4, acc._5, acc._6)
347	347	}
348	348	else if ((0 > (whp + newOrdAm)))
349	349	then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available"))
350	350	else $Tuple6((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd), acc._5, acc._6)
351	351	}
352	352	}
353	353	}
354	354
355	355
356	356	func acceptCommon (acc,bpOrdProdItem) = {
357	357	let j = acc._7
358	358	let bpOrdProdParts = split(bpOrdProdItem, "@")
359	359	if ((size(bpOrdProdParts) != 2))
360	360	then throw("Incorrect order format, should be amount@price")
361	361	else {
362	362	let bpOrdAm = parseIntValue(bpOrdProdParts[0])
363	363	let bpOrdPr = parseIntValue(bpOrdProdParts[1])
364	364	if ((0 > bpOrdPr))
365	365	then throw("Price can't be negative")
366	366	else {
367	367	let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8)
368	368	let bpp = parseIntValue(acc._8[j])
369	369	let whp = parseIntValue(acc._9[j])
370	370	let whOrdParts = split(acc._10[j], "@")
371	371	let whOrdAm = parseIntValue(whOrdParts[0])
372	372	let whOrdPr = parseIntValue(whOrdParts[1])
373	373	if (if ((bpOrdAm != 0))
374	374	then (bpOrdPr != whOrdPr)
375	375	else false)
376	376	then throw(((((("Prices of " + acc._11[j]) + " don't match! WH price=") + toString(whOrdPr)) + ", your price=") + toString(bpOrdPr)))
377	377	else {
378	378	let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8)
379	379	if ((bpOrdAm == 0))
380	380	then $Tuple11((acc._1 :+ toString(whp)), (acc._2 :+ acc._10[j]), (acc._3 :+ toString(bpp)), acc._4, acc._5, acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11)
381	381	else if ((bpOrdAm > 0))
382	382	then if ((0 > whOrdAm))
383	383	then if ((bpOrdAm > -(whOrdAm)))
384	384	then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + acc._11[j]) + ", but warehouse only sells ") + toString(-(whOrdAm))))
385	385	else $Tuple11((acc._1 :+ toString(whp)), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpp + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd), (acc._7 + 1), acc._8, acc._9, acc._10, acc._11)
386	386	else throw((("Attempt to buy " + acc._11[j]) + " while warehouse doesn't sell it"))
387	387	else if ((whOrdAm > 0))
388	388	then if ((-(bpOrdAm) > whOrdAm))
389	389	then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + acc._11[j]) + ", but warehouse only buys ") + toString(whOrdAm)))
390	390	else if ((-(bpOrdAm) > bpp))
391	391	then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + toString(bpp)) + " of ") + acc._11[j]))
392	392	else $Tuple11((acc._1 :+ toString((whp - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpp + bpOrdAm))), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11)
393	393	else throw((("Attempt to sell " + acc._11[j]) + " while warehouse doesn't buy it"))
394	394	}
395	395	}
396	396	}
397	397	}
398	398
399	399
400	400	@Callable(i)
401	401	func constructorV1 (restAddr) = if ((i.caller != this))
402	402	then throw("Permission denied")
403	403	else [StringEntry(keyRestAddress(), restAddr)]
404	404
405	405
406	406
407	407	@Callable(i)
408	408	func sellResources (amounts,minPrices) = {
409	409	let blocked = checkBlocked()
410	410	if ((blocked == blocked))
411	411	then {
412	412	let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
413	413	if ((size(i.payments) != 0))
414	414	then throw("sellResources doesn't require any payments")
415	415	else {
416	416	let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
417	417	if ((curLocation[locIdxType] != "F"))
418	418	then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
419	419	else {
420	420	let locId = curLocation[locIdxId]
421	421	let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
422	422	let resList = split(currentPack[bpIdxRes], "_")
423	423	func adder (acc,j) = if ((amounts[j] > parseIntValue(resList[j])))
424	424	then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j])))
425	425	else if ((0 > amounts[j]))
426	426	then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j])))
427	427	else if ((amounts[j] > 0))
428	428	then {
429	429	let b = sellInternal(locId, j, amounts[j], minPrices[j])
430	430	$Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2))
431	431	}
432	432	else $Tuple3(acc._1, (acc._2 :+ resList[j]), acc._3)
433	433
434	434	let merged = {
435	435	let $l = [0, 1, 2, 3, 4, 5]
436	436	let $s = size($l)
437	437	let $acc0 = $Tuple3(nil, nil, 0)
438	438	func $f0_1 ($a,$i) = if (($i >= $s))
439	439	then $a
440	440	else adder($a, $l[$i])
441	441
442	442	func $f0_2 ($a,$i) = if (($i >= $s))
443	443	then $a
444	444	else throw("List size exceeds 6")
445	445
446	446	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
447	447	}
448	448	let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._2, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
449	449	let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
450	450	$Tuple2((merged._1 :+ ScriptTransfer(i.caller, merged._3, usdtAssetId)), result)
451	451	}
452	452	}
453	453	}
454	454	else throw("Strict value is not equal to itself.")
455	455	}
456	456
457	457
458	458
459	459	@Callable(i)
460	460	func buyMaterials (amounts,maxPrices) = {
461	461	let blocked = checkBlocked()
462	462	if ((blocked == blocked))
463	463	then {
464	464	let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
465	465	if ((size(i.payments) != 1))
466	466	then throw("exactly 1 payment must be attached")
467	467	else {
468	468	let pmt = i.payments[0]
469	469	let amt = pmt.amount
470	470	let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
471	471	if ((pmtAssetId != usdtAssetId))
472	472	then throw("USDT payments only!")
473	473	else {
474	474	let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
475	475	if ((curLocation[locIdxType] != "F"))
476	476	then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
477	477	else {
478	478	let locId = curLocation[locIdxId]
479	479	let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
480	480	let matList = split(currentPack[bpIdxMat], "_")
481	481	func mUpdater (acc,j) = if ((0 > amounts[j]))
482	482	then throw(((("You tried to buy negative amount of " + matTypes[j]) + ": ") + toString(amounts[j])))
483	483	else if ((amounts[j] > 0))
484	484	then {
485	485	let b = buyInternal(locId, j, amounts[j], maxPrices[j])
486	486	$Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(matList[j]) + b._3))), (acc._3 + b._2))
487	487	}
488	488	else $Tuple3(acc._1, (acc._2 :+ matList[j]), acc._3)
489	489
490	490	let merged = {
491	491	let $l = [0, 1, 2, 3, 4, 5]
492	492	let $s = size($l)
493	493	let $acc0 = $Tuple3(nil, nil, 0)
494	494	func $f0_1 ($a,$i) = if (($i >= $s))
495	495	then $a
496	496	else mUpdater($a, $l[$i])
497	497
498	498	func $f0_2 ($a,$i) = if (($i >= $s))
499	499	then $a
500	500	else throw("List size exceeds 6")

github/deemru/w8io/873ac7e 
402.85 ms ◑