w8 · tx · 3wQ···6sH

tx · 3wQ8pjGoxB995d3EYL98dkcif5V53i2GoLKQSw62f6sH

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.03200000 Waves

2023.05.30 03:25 [2599984] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3wQ8pjGoxB995d3EYL98dkcif5V53i2GoLKQSw62f6sH",
    "fee": 3200000,
    "feeAssetId": null,
    "timestamp": 1685406353907,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "454DboysMj2kqbR16tptSn5GBdWcofVQfAw4xMhnfTztGEAcpCSiqUeKYeueuP1GUBGLXncLNk9vhEQ5GBofFiZw"
    ],
    "script": "base64:BgIxCAISBAoCCBgSAwoBCBIECgIRERIECgIRERIDCgEREgQKAgEBEgQKAggIEgUKAwgICFkAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDcAgK3iBAAFTVVMVDgAgMLXLwAGTVVMVDEwAIDIr6AlAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAAQxnZXRJbnRPckVsc2UCA2tleQpkZWZhdWx0VmFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFA2tleQUKZGVmYXVsdFZhbAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgAUSWR4Q2ZnR292ZXJuYW5jZURhcHAAAwEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EABk5VTVJFUwAGABNGQUNUT1JZTUFYV0FSRUhPVVNFAIDIr6AlABBSRVNPVVJDRVBSSUNFTUlOANW1AgAKTUlOUEFZTUVOVACQTgAOU0VMTE1VTFRJUExJRVIAyAEADUJVWU1VTFRJUExJRVIArAIACkxBTkRQUkVGSVgCBExBTkQACkRVQ0tQUkVGSVgCBERVQ0sADFdITVVMVElQTElFUgCAyK+gJQAKQVVDVElPTkZFRQCQTgAOTUlOU0hPUFBBWU1FTlQAoI0GAAhyZXNUeXBlcwkAzAgCAgNPaWwJAMwIAgIDT3JlCQDMCAICBFdvb2QJAMwIAgIEU2FuZAkAzAgCAgRDbGF5CQDMCAICB09yZ2FuaWMFA25pbAAIbWF0VHlwZXMJAMwIAgIERnVlbAkAzAgCAgVNZXRhbAkAzAgCAgVQbGFuawkAzAgCAgVHbGFzcwkAzAgCAgdQbGFzdGljCQDMCAICB1Byb3RlaW4FA25pbAAJcHJvZFR5cGVzCQDMCAICDUZpcnN0IEFpZCBLaXQJAMwIAgIIQmFja3BhY2sJAMwIAgILRm9vZCBSYXRpb24JAMwIAgIISmV0IFBhY2sJAMwIAgIGU2hpZWxkBQNuaWwACmNvbnRpbmVudHMJAMwIAgIIQW1lcmljYXMJAMwIAgIGRXVyb3BlCQDMCAICBEFzaWEJAMwIAgIGQWZyaWNhCQDMCAICB09jZWFuaWEFA25pbAAQcHJvZHVjdGlvbk1hdHJpeAkAzAgCAhIxXzFfMV8yXzJfNV8xXzEwXzAJAMwIAgITMl8yXzJfNF80XzEwXzFfMTBfMAkAzAgCAhMzXzNfM182XzZfMTVfMV8xMF8wCQDMCAICEzJfNV81XzJfN181XzJfMTAwXzEJAMwIAgIXNF8xMF8xMF80XzE0XzEwXzJfMTAwXzEJAMwIAgIXNl8xNV8xNV82XzIxXzE1XzJfMTAwXzEJAMwIAgISMV8xXzFfMV8xXzhfMV8xMF8yCQDMCAICEzJfMl8yXzJfMl8xNl8xXzEwXzIJAMwIAgITM18zXzNfM18zXzI0XzFfMTBfMgkAzAgCAhM5XzlfMV81XzVfMV81XzEwMF8zCQDMCAICFzE4XzE4XzJfMTBfMTBfMl81XzEwMF8zCQDMCAICFzI3XzI3XzNfMTVfMTVfM181XzEwMF8zCQDMCAICEjJfMl8xXzJfMl8yXzFfMTBfNAkAzAgCAhI0XzRfMl80XzRfNF8xXzEwXzQJAMwIAgISNl82XzNfNl82XzZfMV8xMF80BQNuaWwAD2NvbnRJZHhBbWVyaWNhcwAAAA1jb250SWR4RXVyb3BlAAEAC2NvbnRJZHhBc2lhAAIADWNvbnRJZHhBZnJpY2EAAwAOY29udElkeE9jZWFuaWEABAANcmVjaXBlSWR4RnVlbAAAAA5yZWNpcGVJZHhNZXRhbAABAA5yZWNpcGVJZHhQbGFuawACAA5yZWNpcGVJZHhHbGFzcwADABByZWNpcGVJZHhQbGFzdGljAAQAEHJlY2lwZUlkeFByb3RlaW4ABQAPcmVjaXBlSWR4V2VpZ2h0AAYAEXJlY2lwZUlkeFBhY2tzaXplAAcAEnJlY2lwZUlkeENvbnRpbmVudAAIAR5rZXlGYWN0b3J5V2FyZWhvdXNlQnlJZEFuZFR5cGUCCWZhY3RvcnlJZAdyZXNUeXBlCQCsAgIJAKwCAgkArAICAhtmYWN0b3J5V2hCeUNvbnRpbmVudEFuZFJlc18FCWZhY3RvcnlJZAIBXwkApAMBBQdyZXNUeXBlAQ5rZXlPcmRlckJ5TGFuZAELbGFuZEFzc2V0SWQJAKwCAgIKbGFuZE9yZGVyXwULbGFuZEFzc2V0SWQBFGtleVN0YWtlZER1Y2tCeU93bmVyAQlvd25lckFkZHIJAKwCAgISc3Rha2VkRHVja0J5T3duZXJfBQlvd25lckFkZHIBEWtleUJhY2twYWNrQnlEdWNrAQtkdWNrQXNzZXRJZAkArAICAgliYWNrUGFja18FC2R1Y2tBc3NldElkAQ9rZXlEdWNrTG9jYXRpb24BC2R1Y2tBc3NldElkCQCsAgICDWR1Y2tMb2NhdGlvbl8FC2R1Y2tBc3NldElkAQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtzdGFrZWRUaW1lXwUHYXNzZXRJZAEPa2V5QWRkcmVzc1JlZkJ5AQRhZGRyCQCsAgICCWFjY1JlZkJ5XwUEYWRkcgAPbG9jSWR4Q29udGluZW50AAAACmxvY0lkeFR5cGUAAQAIbG9jSWR4SWQAAgAKYnBJZHhMZXZlbAAAAAhicElkeFJlcwABAAhicElkeE1hdAACAAlicElkeFByb2QAAwALd2hJZHhMZXZlbHMAAAAId2hJZHhSZXMAAQAId2hJZHhNYXQAAgAJd2hJZHhQcm9kAAMACXdoSWR4TE9GVAAEAAl2b2xMb2NrZWQAAAALdm9sT2NjdXBpZWQAAQAHdm9sRnJlZQACAAh2b2xUb3RhbAADAAlvcmRJZHhSZXMAAAAJb3JkSWR4TWF0AAEACm9yZElkeFByb2QAAgEIYXNTdHJpbmcBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwBQFzCQACAQIYZmFpbCB0byBjYXN0IGludG8gU3RyaW5nAQhnZXRPcmRlcgEGb3JkS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUGb3JkS2V5AjAwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDowQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDoCAToJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQlvcmRJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQlvcmRJZHhSZXMCFzBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUJb3JkSWR4TWF0AgFfBQZOVU1SRVMJAJEDAgUBcAUJb3JkSWR4TWF0AhcwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMAkAzAgCCQCRAwIFAXAFCm9yZElkeFByb2QFA25pbAEIdG9Wb2x1bWUDBmFtb3VudAdwa2dTaXplCWlzUHJvZHVjdAMFCWlzUHJvZHVjdAQEcGtncwMJAGcCBQZhbW91bnQAAAkAaQIJAGUCCQBkAgUGYW1vdW50BQdwa2dTaXplAAEFB3BrZ1NpemUJAQEtAQkAaQIJAGUCCQBkAgkBAS0BBQZhbW91bnQFB3BrZ1NpemUAAQUHcGtnU2l6ZQkAaAIFBHBrZ3MFBU1VTFQ4BQZhbW91bnQBDHNlbGxJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2R0UmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgUOU0VMTE1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBkAgkAaAIAZAUCdzAJAGgCADIFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkdFJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZHRSZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZHRSZWNlaXZlZAELYnV5SW50ZXJuYWwEBWxvY0lkB21hdFR5cGUGYW1vdW50CG1heFByaWNlBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQdtYXRUeXBlBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABAJtMQMJAGYCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAlwMBCQDMCAIFBmFtb3VudAkAzAgCCQBlAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFA25pbAAABAJtMAkAlwMBCQDMCAIFAncwCQDMCAIJAGUCBQZhbW91bnQFAm0xBQNuaWwEAW0JAGQCBQJtMAUCbTEECXVzZHRTcGVudAkAZAIJAGsDBQJtMAkAZQIJAGgCBQ1CVVlNVUxUSVBMSUVSBRBSRVNPVVJDRVBSSUNFTUlOCQBrAwkAZQIJAGgCAGQFAncwCQBoAgAyBQJtMAUQUkVTT1VSQ0VQUklDRU1JTgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUGTVVMVDEwCQBrAwUCbTEJAGgCAAIFEFJFU09VUkNFUFJJQ0VNSU4FBU1VTFQ4BAZtYXgxMDEJAGQCBQhtYXhQcmljZQkAaQIFCG1heFByaWNlAGQDCQBmAgkAaAIFCXVzZHRTcGVudAUFTVVMVDgJAGgCBQZtYXgxMDEFAW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD0FjdHVhbCBwcmljZSA9IAkApAMBBQl1c2R0U3BlbnQCAyAvIAkApAMBBQFtAg4gPiBtYXhQcmljZSA9IAkApAMBBQhtYXhQcmljZQIDLCAoBQVsb2NJZAICLCAJAJEDAgUIbWF0VHlwZXMFB21hdFR5cGUCASkJAJUKAwkBDEludGVnZXJFbnRyeQIFBXdoS2V5CQBlAgUCdzAFAW0FCXVzZHRTcGVudAUBbQELZ2V0QmFja3BhY2sBBWJwS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoCAToJAMwIAgkApAMBCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgUBcAUKYnBJZHhMZXZlbAAACQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeFJlcwILMF8wXzBfMF8wXzAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4TWF0AgswXzBfMF8wXzBfMAkAzAgCCQCRAwIFAXAFCWJwSWR4UHJvZAUDbmlsAQxjaGVja0Jsb2NrZWQAAwkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ9zdGFraW5nQ29udHJhY3QJAQprZXlCbG9ja2VkAAcJAAIBAh9Db250cmFjdHMgYXJlIHVuZGVyIG1haW50ZW5hbmNlBQR1bml0AQlzZXRDb21tb24CA2FjYwRpdGVtBAFqCAUDYWNjAl8xBAZpc1Byb2QIBQNhY2MCXzgEB3BrZ1NpemUDBQZpc1Byb2QJAQ1wYXJzZUludFZhbHVlAQkAkQMCCQC1CQIJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUBagIBXwURcmVjaXBlSWR4UGFja3NpemUAAAQJaXRlbVBhcnRzCQC1CQIFBGl0ZW0CAUADCQECIT0CCQCQAwEFCWl0ZW1QYXJ0cwACCQACAQIuSW5jb3JyZWN0IG9yZGVyIGZvcm1hdCwgc2hvdWxkIGJlIGFtb3VudEBwcmljZQQIbmV3T3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAAQIbmV3T3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAQQJbmV3T3JkVXNkCQBrAwUIbmV3T3JkQW0FCG5ld09yZFByBQVNVUxUOAQJbmV3T3JkVm9sCQEIdG9Wb2x1bWUDBQhuZXdPcmRBbQUHcGtnU2l6ZQUGaXNQcm9kBAZ3aEluaXQDCQBmAgkAkAMBCAUDYWNjAl82BQFqCQENcGFyc2VJbnRWYWx1ZQEJAJEDAggFA2FjYwJfNgUBagAABAtjdXJPcmRQYXJ0cwkAtQkCAwkAZgIJAJADAQgFA2FjYwJfNwUBagkAkQMCCAUDYWNjAl83BQFqAgMwQDACAUAECGN1ck9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgULY3VyT3JkUGFydHMAAAQIY3VyT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwABAwMJAGYCAAAFCGN1ck9yZFByBgkAZgIAAAUIbmV3T3JkUHIJAAIBAhdQcmljZSBjYW4ndCBiZSBuZWdhdGl2ZQQJY3VyT3JkVXNkCQBrAwUIY3VyT3JkQW0FCGN1ck9yZFByBQVNVUxUOAQJY3VyT3JkVm9sCQEIdG9Wb2x1bWUDBQhjdXJPcmRBbQUHcGtnU2l6ZQUGaXNQcm9kAwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAmgoICQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUGd2hJbml0CAUDYWNjAl8zCAUDYWNjAl80CQBlAggFA2FjYwJfNQUJY3VyT3JkVXNkCAUDYWNjAl82CAUDYWNjAl83BQZpc1Byb2QJAJoKCAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQZ3aEluaXQFCGN1ck9yZEFtCAUDYWNjAl8zCAUDYWNjAl80CAUDYWNjAl81CAUDYWNjAl82CAUDYWNjAl83BQZpc1Byb2QDCQBmAgUIbmV3T3JkQW0AAAMJAGYCAAAFCGN1ck9yZEFtCQCaCggJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUGd2hJbml0BQhjdXJPcmRBbQkAZAIIBQNhY2MCXzMFCW5ld09yZFZvbAgFA2FjYwJfNAkAZAIIBQNhY2MCXzUFCW5ld09yZFVzZAgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQCaCggJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQZ3aEluaXQJAGQCCAUDYWNjAl8zBQluZXdPcmRWb2wIBQNhY2MCXzQJAGUCCQBkAggFA2FjYwJfNQUJbmV3T3JkVXNkBQljdXJPcmRVc2QIBQNhY2MCXzYIBQNhY2MCXzcFBmlzUHJvZAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGUCBQhjdXJPcmRBbQUIbmV3T3JkQW0DCQBmAgAACQBlAgUGd2hJbml0BQZhbURpZmYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQUGYW1EaWZmAhogZnJvbSB3YXJlaG91c2UsIGJ1dCBvbmx5IAkApAMBBQZ3aEluaXQCCiBhdmFpbGFibGUJAJoKCAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQZ3aEluaXQFBmFtRGlmZggFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAgFA2FjYwJfNQgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kAwkAZgIAAAkAZAIFBndoSW5pdAUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUGd2hJbml0AgogYXZhaWxhYmxlCQCaCggJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUGd2hJbml0BQhuZXdPcmRBbQgFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAkAZQIIBQNhY2MCXzUFCWN1ck9yZFVzZAgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kAQtzZXRJbnRlcm5hbAMJY3VycmVudFdoCmN1cnJlbnRPcmQGbmV3T3JkBAljdXJyV2hSZXMJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBAljdXJyV2hNYXQJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBApjdXJyV2hQcm9kAwkAAAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAAUDbmlsCQC1CQIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAV8EDWN1cnJlbnRPcmRSZXMJALUJAgkAkQMCBQpjdXJyZW50T3JkBQlvcmRJZHhSZXMCAV8EDWN1cnJlbnRPcmRNYXQJALUJAgkAkQMCBQpjdXJyZW50T3JkBQlvcmRJZHhNYXQCAV8EDmN1cnJlbnRPcmRQcm9kAwkAAAIJAJEDAgUKY3VycmVudE9yZAUKb3JkSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQpjdXJyZW50T3JkBQpvcmRJZHhQcm9kAgFfAwkBAiE9AgkAkAMBBQZuZXdPcmQAAwkAAgECNGNhcmdvTGlzdFN0ciBzaG91bGQgY29udGFpbiBleGFjdGx5IDIgJzonIHNlcGFyYXRvcnMECHJlc1BhcnRzCQC1CQIJAJEDAgUGbmV3T3JkAAACAV8ECG1hdFBhcnRzCQC1CQIJAJEDAgUGbmV3T3JkAAECAV8ECXByb2RQYXJ0cwMJAAACCQCRAwIFBm5ld09yZAACAgAFA25pbAkAtQkCCQCRAwIFBm5ld09yZAACAgFfAwkBAiE9AgkAkAMBBQhyZXNQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgcmVzb3VyY2VzIHNob3VsZCBiZSBwYXNzZWQDCQECIT0CCQCQAwEFCG1hdFBhcnRzBQZOVU1SRVMJAAIBAiBBbGwgNiBtYXRlcmlhbHMgc2hvdWxkIGJlIHBhc3NlZAQBcgoAAiRsBQhyZXNQYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJoKCAAABQNuaWwAAAAAAAAFCWN1cnJXaFJlcwUNY3VycmVudE9yZFJlcwcKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBbQoAAiRsBQhtYXRQYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJoKCAAABQNuaWwIBQFyAl8zCAUBcgJfNAgFAXICXzUFCWN1cnJXaE1hdAUNY3VycmVudE9yZE1hdAcKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBcAMJAQIhPQIJAJADAQUJcHJvZFBhcnRzAAAKAAIkbAUJcHJvZFBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAmgoIAAAFA25pbAgFAW0CXzMIBQFtAl80CAUBbQJfNQUKY3VycldoUHJvZAUOY3VycmVudE9yZFByb2QGCgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlzZXRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgkAmgoIAAAFCmN1cnJXaFByb2QIBQFtAl8zCAUBbQJfNAgFAW0CXzUFCmN1cnJXaFByb2QFDmN1cnJlbnRPcmRQcm9kBgkAmAoGCAUBcgJfMggFAW0CXzIIBQFwAl8yCAUBcAJfMwgFAXACXzQIBQFwAl81AQxhY2NlcHRDb21tb24CA2FjYwlicE9yZEl0ZW0EAWoIBQNhY2MCXzcEBmlzUHJvZAgFA2FjYwNfMTIEB3BrZ1NpemUDBQZpc1Byb2QJAQ1wYXJzZUludFZhbHVlAQkAkQMCCQC1CQIJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUBagIBXwURcmVjaXBlSWR4UGFja3NpemUAAAQKYnBPcmRQYXJ0cwkAtQkCBQlicE9yZEl0ZW0CAUADCQECIT0CCQCQAwEFCmJwT3JkUGFydHMAAgkAAgECLkluY29ycmVjdCBvcmRlciBmb3JtYXQsIHNob3VsZCBiZSBhbW91bnRAcHJpY2UEB2JwT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpicE9yZFBhcnRzAAAEB2JwT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpicE9yZFBhcnRzAAEDCQBmAgAABQdicE9yZFByCQACAQIXUHJpY2UgY2FuJ3QgYmUgbmVnYXRpdmUECGJwT3JkVXNkCQBrAwUHYnBPcmRBbQUHYnBPcmRQcgUFTVVMVDgEBmJwSW5pdAMJAGYCCQCQAwEIBQNhY2MCXzgFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl84BQFqAAAEBndoSW5pdAMJAGYCCQCQAwEIBQNhY2MCXzkFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl85BQFqAAAECndoT3JkUGFydHMJALUJAgkAkQMCCAUDYWNjA18xMAUBagIBQAQHd2hPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCndoT3JkUGFydHMAAAQHd2hPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCndoT3JkUGFydHMAAQMDCQECIT0CBQdicE9yZEFtAAAJAQIhPQIFB2JwT3JkUHIFB3doT3JkUHIHCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICClByaWNlcyBvZiAJAJEDAggFA2FjYwNfMTEFAWoCFyBkb24ndCBtYXRjaCEgV0ggcHJpY2U9CQCkAwEFB3doT3JkUHICDSwgeW91ciBwcmljZT0JAKQDAQUHYnBPcmRQcgQId2hPcmRVc2QJAGsDBQd3aE9yZEFtBQd3aE9yZFByBQVNVUxUOAQIZGVsdGFWb2wJAQh0b1ZvbHVtZQMFB2JwT3JkQW0FB3BrZ1NpemUFBmlzUHJvZAMJAAACBQdicE9yZEFtAAAJAJ4KDAkAzQgCCAUDYWNjAl8xCQCkAwEFBndoSW5pdAkAzQgCCAUDYWNjAl8yCQCRAwIIBQNhY2MDXzEwBQFqCQDNCAIIBQNhY2MCXzMJAKQDAQUGYnBJbml0CAUDYWNjAl80CAUDYWNjAl81CAUDYWNjAl82CQBkAggFA2FjYwJfNwABCAUDYWNjAl84CAUDYWNjAl85CAUDYWNjA18xMAgFA2FjYwNfMTEFBmlzUHJvZAMJAGYCBQdicE9yZEFtAAADCQBmAgAABQd3aE9yZEFtAwkAZgIFB2JwT3JkQW0JAQEtAQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BdHRlbXB0IHRvIGJ1eSAJAKQDAQUHYnBPcmRBbQIEIG9mIAkAkQMCCAUDYWNjA18xMQUBagIbLCBidXQgd2FyZWhvdXNlIG9ubHkgc2VsbHMgCQCkAwEJAQEtAQUHd2hPcmRBbQkAngoMCQDNCAIIBQNhY2MCXzEJAKQDAQUGd2hJbml0CQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUGYnBJbml0BQdicE9yZEFtCQBkAggFA2FjYwJfNAUIZGVsdGFWb2wIBQNhY2MCXzUJAGQCCAUDYWNjAl82BQhicE9yZFVzZAkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExBQZpc1Byb2QJAAIBCQCsAgIJAKwCAgIPQXR0ZW1wdCB0byBidXkgCQCRAwIIBQNhY2MDXzExBQFqAiAgd2hpbGUgd2FyZWhvdXNlIGRvZXNuJ3Qgc2VsbCBpdAMJAGYCBQd3aE9yZEFtAAADCQBmAgkBAS0BBQdicE9yZEFtBQd3aE9yZEFtCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAKQDAQkBAS0BBQdicE9yZEFtAgQgb2YgCQCRAwIIBQNhY2MDXzExBQFqAhosIGJ1dCB3YXJlaG91c2Ugb25seSBidXlzIAkApAMBBQd3aE9yZEFtAwkAZgIJAQEtAQUHYnBPcmRBbQUGYnBJbml0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAKQDAQkBAS0BBQdicE9yZEFtAhQsIGJ1dCB5b3Ugb25seSBoYXZlIAkApAMBBQZicEluaXQCBCBvZiAJAJEDAggFA2FjYwNfMTEFAWoJAJ4KDAkAzQgCCAUDYWNjAl8xCQCkAwEJAGUCBQZ3aEluaXQFB2JwT3JkQW0JAM0IAggFA2FjYwJfMgkArAICCQCsAgIJAKQDAQkAZAIFB3doT3JkQW0FB2JwT3JkQW0CAUAJAKQDAQUHd2hPcmRQcgkAzQgCCAUDYWNjAl8zCQCkAwEJAGQCBQZicEluaXQFB2JwT3JkQW0JAGUCCAUDYWNjAl80BQhkZWx0YVZvbAkAZQIIBQNhY2MCXzUFCGJwT3JkVXNkCAUDYWNjAl82CQBkAggFA2FjYwJfNwABCAUDYWNjAl84CAUDYWNjAl85CAUDYWNjA18xMAgFA2FjYwNfMTEFBmlzUHJvZAkAAgEJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCRAwIIBQNhY2MDXzExBQFqAh8gd2hpbGUgd2FyZWhvdXNlIGRvZXNuJ3QgYnV5IGl0CAFpARpyZWNhbGNMb2NrZWRWb2x1bWVSRUFET05MWQILbGFuZEFzc2V0SWQCd2gECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEJAQ5rZXlPcmRlckJ5TGFuZAEFC2xhbmRBc3NldElkBAF6CQELc2V0SW50ZXJuYWwDBQJ3aAUKY3VycmVudE9yZAUKY3VycmVudE9yZAkAlAoCBQNuaWwJAGQCCAUBegJfNAgFAXoCXzUBaQENY29uc3RydWN0b3JWMQEIcmVzdEFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBDXNlbGxSZXNvdXJjZXMCB2Ftb3VudHMJbWluUHJpY2VzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAipzZWxsUmVzb3VyY2VzIGRvZXNuJ3QgcmVxdWlyZSBhbnkgcGF5bWVudHMEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQFbG9jSWQJAJEDAgULY3VyTG9jYXRpb24FCGxvY0lkeElkBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB3Jlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8KAQVhZGRlcgIDYWNjAWoDCQBmAgkAkQMCBQdhbW91bnRzBQFqCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAglZb3UgaGF2ZSAJAJEDAgUHcmVzTGlzdAUBagIEIG9mIAkAkQMCBQhyZXNUeXBlcwUBagIULCBidXQgdHJpZWQgdG8gc2VsbCAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIAAAkAkQMCBQdhbW91bnRzBQFqCQACAQkArAICCQCsAgIJAKwCAgIlWW91IHRyaWVkIHRvIHNlbGwgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhyZXNUeXBlcwUBagICOiAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagAABAFiCQEMc2VsbEludGVybmFsBAUFbG9jSWQFAWoJAJEDAgUHYW1vdW50cwUBagkAkQMCBQltaW5QcmljZXMFAWoJAJUKAwkAzQgCCAUDYWNjAl8xCAUBYgJfMQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagkAkQMCBQdhbW91bnRzBQFqCQBkAggFA2FjYwJfMwgFAWICXzIJAJUKAwgFA2FjYwJfMQkAzQgCCAUDYWNjAl8yCQCRAwIFB3Jlc0xpc3QFAWoIBQNhY2MCXzMEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQZtZXJnZWQCXzICAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsCQCUCgIJAM0IAggFBm1lcmdlZAJfMQkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCAUGbWVyZ2VkAl8zBQt1c2R0QXNzZXRJZAUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDGJ1eU1hdGVyaWFscwIHYW1vdW50cwltYXhQcmljZXMEB2Jsb2NrZWQJAQxjaGVja0Jsb2NrZWQAAwkAAAIFB2Jsb2NrZWQFB2Jsb2NrZWQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBWxvY0lkCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfCgEIbVVwZGF0ZXICA2FjYwFqAwkAZgIAAAkAkQMCBQdhbW91bnRzBQFqCQACAQkArAICCQCsAgIJAKwCAgIkWW91IHRyaWVkIHRvIGJ1eSBuZWdhdGl2ZSBhbW91bnQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAgI6IAkApAMBCQCRAwIFB2Ftb3VudHMFAWoDCQBmAgkAkQMCBQdhbW91bnRzBQFqAAAEAWIJAQtidXlJbnRlcm5hbAQFBWxvY0lkBQFqCQCRAwIFB2Ftb3VudHMFAWoJAJEDAgUJbWF4UHJpY2VzBQFqCQCVCgMJAM0IAggFA2FjYwJfMQgFAWICXzEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB21hdExpc3QFAWoIBQFiAl8zCQBkAggFA2FjYwJfMwgFAWICXzIJAJUKAwgFA2FjYwJfMQkAzQgCCAUDYWNjAl8yCQCRAwIFB21hdExpc3QFAWoIBQNhY2MCXzMEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCG1VcGRhdGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAwkAZgIIBQZtZXJnZWQCXzMFA2FtdAkAAgEJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAKQDAQUDYW10AgssIHJlcXVpcmVkPQkApAMBCAUGbWVyZ2VkAl8zBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQC5CQIIBQZtZXJnZWQCXzICAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBARyZXN0AwkAZgIJAGUCBQNhbXQIBQZtZXJnZWQCXzMAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQNhbXQIBQZtZXJnZWQCXzMFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIIBQZtZXJnZWQCXzMAZAkAlAoCCQDNCAIJAM4IAggFBm1lcmdlZAJfMQUEcmVzdAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BRBhY3Rpdml0aWVzQW1vdW50BQt1c2R0QXNzZXRJZAUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEWV4Y2hhbmdlUmVzb3VyY2VzAQdhbW91bnRzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVsb2NJZAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwoBCWV4Y2hhbmdlcgIDYWNjAWoEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFAWoEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEA2FtagkAkQMCBQdhbW91bnRzBQFqAwkAZgIFA2FtagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCGCwgYnV0IHRyaWVkIHRvIGV4Y2hhbmdlIAkApAMBBQNhbWoDCQBmAgAABQNhbWoJAAIBCQCsAgIJAKwCAgkArAICAilZb3UgdHJpZWQgdG8gZXhjaGFuZ2UgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhyZXNUeXBlcwUBagICOiAJAKQDAQUDYW1qAwkAZgIFA2FtagAACQCWCgQJAM0IAggFA2FjYwJfMQkApAMBCQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoFA2FtagkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHbWF0TGlzdAUBagUDYW1qCQBkAggFA2FjYwJfMwkAawMFA2FtagUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgJAM0IAggFA2FjYwJfNAkBDEludGVnZXJFbnRyeQIFBXdoS2V5BQJ3MAkAlgoECQDNCAIIBQNhY2MCXzEJAJEDAgUHcmVzTGlzdAUBagkAzQgCCAUDYWNjAl8yCQCRAwIFB21hdExpc3QFAWoIBQNhY2MCXzMIBQNhY2MCXzQEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAUDbmlsAAAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJZXhjaGFuZ2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAwkAZgIIBQZtZXJnZWQCXzMFA2FtdAkAAgEJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAKQDAQUDYW10AgssIHJlcXVpcmVkPQkApAMBCAUGbWVyZ2VkAl8zBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQZtZXJnZWQCXzECAV8JAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQEcmVzdAMJAGYCCQBlAgUDYW10CAUGbWVyZ2VkAl8zAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10CAUGbWVyZ2VkAl8zBQt1c2R0QXNzZXRJZAUDbmlsBQNuaWwEEGFjdGl2aXRpZXNBbW91bnQJAGkCCAUGbWVyZ2VkAl8zAGQJAJQKAgkAzQgCCQDOCAIFBHJlc3QIBQZtZXJnZWQCXzQJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpjcmFmdEdvb2RzAgpwcm9kdWN0SWR4CHF1YW50aXR5BAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFBU1VTFQ2CQACAQIqZXhhY3RseSAxIFVTRFQgbXVzdCBiZSBhdHRhY2hlZCBhcyBwYXltZW50AwkAZwIAAAUIcXVhbnRpdHkJAAIBAhtRdWFudGl0eSBzaG91bGQgYmUgcG9zaXRpdmUEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBTQkAAgEJAKwCAgIxRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBNYW51ZmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQEY29udAkAkQMCBQtjdXJMb2NhdGlvbgUPbG9jSWR4Q29udGluZW50BAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8DAwkAZgIAAAUKcHJvZHVjdElkeAYJAGcCBQpwcm9kdWN0SWR4CQCQAwEFEHByb2R1Y3Rpb25NYXRyaXgJAAIBCQCsAgICFFVua25vd24gcHJvZHVjdCBpZHg9CQCkAwEFCnByb2R1Y3RJZHgEBnJlY2lwZQkAtQkCCQCRAwIFEHByb2R1Y3Rpb25NYXRyaXgFCnByb2R1Y3RJZHgCAV8DCQECIT0CCQCQAwEFBnJlY2lwZQkAZAIFBk5VTVJFUwADCQACAQkArAICAhdGYXRhbDogdW5rbm93biByZWNpcGU6IAkAkQMCBRBwcm9kdWN0aW9uTWF0cml4BQpwcm9kdWN0SWR4BA5wcm9kdWN0Q29udElkeAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBnJlY2lwZQUScmVjaXBlSWR4Q29udGluZW50AwkBAiE9AgkAkQMCBQpjb250aW5lbnRzBQ5wcm9kdWN0Q29udElkeAUEY29udAkAAgEJAKwCAgkArAICCQCsAgICHVRoaXMgcHJvZHVjdCBpcyBhdmFpbGFibGUgaW4gCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4AhEsIGJ1dCB5b3UgYXJlIGluIAUEY29udAQIcHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8KAQZmaWxsZXICA2FjYwtpZ25vcmVkSXRlbQQBbggFA2FjYwJfMgQCeHMDCQBmAgkAkAMBBQhwcm9kTGlzdAUBbgkAkQMCBQhwcm9kTGlzdAUBbgIBMAQBeAkBDXBhcnNlSW50VmFsdWUBBQJ4cwQGYW1vdW50CQBoAgUIcXVhbnRpdHkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFEXJlY2lwZUlkeFBhY2tzaXplBAF5AwkAAAIFAW4FCnByb2R1Y3RJZHgJAKQDAQkAZAIFAXgFBmFtb3VudAUCeHMJAJQKAgkAzQgCCAUDYWNjAl8xBQF5CQBkAgUBbgABBAZicFByb2QICgACJGwFEHByb2R1Y3Rpb25NYXRyaXgKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQZmaWxsZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgJfMQoBCHByb2R1Y2VyAgNhY2MBagQHbmVlZE1hdAkAaAIJAGgCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBQFqBQVNVUxUNwUIcXVhbnRpdHkEB2hhdmVNYXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqAwkAZgIFB25lZWRNYXQFB2hhdmVNYXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCVlvdSBoYXZlIAkAkQMCBQdtYXRMaXN0BQFqAgQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAhYsIGJ1dCByZWNpcGUgcmVxdWlyZXMgCQCkAwEFB25lZWRNYXQCDiBmb3IgcXVhbnRpdHkgCQCkAwEFCHF1YW50aXR5AwkAZgIFB25lZWRNYXQAAAkAzQgCBQNhY2MJAKQDAQkAZQIFB2hhdmVNYXQFB25lZWRNYXQJAM0IAgUDYWNjCQCRAwIFB21hdExpc3QFAWoEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCHByb2R1Y2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQC5CQIFBm1lcmdlZAIBXwkAzAgCCQC5CQIFBmJwUHJvZAIBXwUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCBQNuaWwFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFzZXRXYXJlaG91c2VPcmRlcgIMY2FyZ29MaXN0U3RyC2xhbmRBc3NldElkBAR1c2VyCAUBaQxvcmlnaW5DYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQGcmVzdWx0AwkBAiE9AgUEdXNlcgUMcmVzdENvbnRyYWN0CQEMY2hlY2tCbG9ja2VkAAcEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwMJAQIhPQIFBHVzZXIFDHJlc3RDb250cmFjdAkBAiE9AgUFb3duZXIFBGFkZHIHCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBApjYXJnb1BhcnRzCQC8CQIFDGNhcmdvTGlzdFN0cgIBOgQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQEbG9mdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBAp3aE9jY3VwaWVkCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAULdm9sT2NjdXBpZWQEB3doVG90YWwJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRsb2Z0BQh2b2xUb3RhbAQGb3JkS2V5CQEOa2V5T3JkZXJCeUxhbmQBBQtsYW5kQXNzZXRJZAQKY3VycmVudE9yZAkBCGdldE9yZGVyAQUGb3JkS2V5BAF6CQELc2V0SW50ZXJuYWwDBQljdXJyZW50V2gFCmN1cnJlbnRPcmQFCmNhcmdvUGFydHMEC2J1eVZvbFNhbGRvCAUBegJfNAQMc2VsbFZvbFNhbGRvCAUBegJfNQQId2hMb2NrZWQJAGQCBQtidXlWb2xTYWxkbwUMc2VsbFZvbFNhbGRvBAZ3aEZyZWUJAGUCCQBlAgUHd2hUb3RhbAUKd2hPY2N1cGllZAUId2hMb2NrZWQDCQBmAgULYnV5Vm9sU2FsZG8FBndoRnJlZQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgITQXR0ZW1wdCB0byByZXNlcnZlIAkApAMBBQtidXlWb2xTYWxkbwIgIHNwYWNlIGZvciBidXkgb3JkZXJzLCBidXQgb25seSAJAKQDAQUGd2hGcmVlAhsgd2FyZWhvdXNlIGVtcHR5IHNwYWNlIGxlZnQDCQBmAgUMc2VsbFZvbFNhbGRvBQp3aE9jY3VwaWVkCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIGxvY2sgCQCkAwEFDHNlbGxWb2xTYWxkbwIhIHNwYWNlIGZvciBzZWxsIG9yZGVycywgYnV0IG9ubHkgCQCkAwEFCndoT2NjdXBpZWQCGSB3YXJlaG91c2Ugc3BhY2Ugb2NjdXBpZWQEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXoCXzECAV8JAMwIAgkAuQkCCAUBegJfMgIBXwkAzAgCCQC5CQIIBQF6Al8zAgFfCQDMCAIJAKQDAQUId2hMb2NrZWQFA25pbAIBOgQGd2hTYXZlCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwDCQAAAgUGd2hTYXZlBQZ3aFNhdmUECHVzZFNhbGRvCAUBegJfNgQHYWN0aW9ucwMJAGYCBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFCHVzZFNhbGRvCQACAQkArAICAhJQYXltZW50IG5lZWRlZCBpcyAJAKQDAQUIdXNkU2FsZG8JAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQxjYXJnb0xpc3RTdHIFA25pbAMJAAACBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhJObyBwYXltZW50cyBuZWVkZWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUFb3duZXIJAQEtAQUIdXNkU2FsZG8FC3VzZHRBc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwJAJQKAgUHYWN0aW9ucwUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFGFjY2VwdFdhcmVob3VzZU9yZGVyAwpicE9yZGVyU3RyC2xhbmRBc3NldElkC2R1Y2tBc3NldElkBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcgQKY2FsbGVyQWRkcgkApQgBBQZjYWxsZXIEEXN0YWtlZER1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQpjYWxsZXJBZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAtjdXJMb2NhdGlvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBRFzdGFrZWREdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OBANsb2MJALUJAgkBBXZhbHVlAQULY3VyTG9jYXRpb24CAV8DCQECIT0CCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIBTAkAAgEJAKwCAgkArAICAhZEdWNrIGxvY2F0aW9uIHR5cGUgaXMgCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIRLCBidXQgc2hvdWxkIGJlIEwDCQECIT0CBRFzdGFrZWREdWNrQXNzZXRJZAULZHVja0Fzc2V0SWQJAAIBCQCsAgIJAKwCAgkArAICAhRZb3VyIHN0YWtlZCBkdWNrIGlzIAURc3Rha2VkRHVja0Fzc2V0SWQCDSwgYnV0IHBhc3NlZCAFC2R1Y2tBc3NldElkBAlsYW5kQXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgICBE5GVCAIBQlsYW5kQXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQECWxhbmRPd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFCWxhbmRBc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQAAAgUJbGFuZE93bmVyBQpjYWxsZXJBZGRyCQACAQIeWW91IGNhbm5vdCB0cmFkZSB3aXRoIHlvdXJzZWxmBAxicE9yZGVyUGFydHMJALwJAgUKYnBPcmRlclN0cgIBOgMJAQIhPQIJAJADAQUMYnBPcmRlclBhcnRzAAMJAAIBAjJicE9yZGVyU3RyIHNob3VsZCBjb250YWluIGV4YWN0bHkgMiAnOicgc2VwYXJhdG9ycwQIYnBPcmRSZXMJALUJAgkAkQMCBQxicE9yZGVyUGFydHMAAAIBXwQIYnBPcmRNYXQJALUJAgkAkQMCBQxicE9yZGVyUGFydHMAAQIBXwQJYnBPcmRQcm9kAwkAAAIJAJEDAgUMYnBPcmRlclBhcnRzAAICAAUDbmlsCQC1CQIJAJEDAgUMYnBPcmRlclBhcnRzAAICAV8DCQECIT0CCQCQAwEFCGJwT3JkUmVzBQZOVU1SRVMJAAIBAiBBbGwgNiByZXNvdXJjZXMgc2hvdWxkIGJlIHBhc3NlZAMJAQIhPQIJAJADAQUIYnBPcmRNYXQFBk5VTVJFUwkAAgECIEFsbCA2IG1hdGVyaWFscyBzaG91bGQgYmUgcGFzc2VkBAJ3aAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCFGdldFdhcmVob3VzZVJFQURPTkxZCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAQJY3VycmVudFdoCQC8CQIFAndoAgE6BAljdXJyV2hSZXMJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBAljdXJyV2hNYXQJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBApjdXJyV2hQcm9kAwkAAAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAAUDbmlsCQC1CQIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAV8ED2N1cnJXaExvY2tlZFZvbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIJALUJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4TE9GVAIBXwUJdm9sTG9ja2VkBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQJYnBSZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAlicE1hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8ECmJwUHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8EBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQEBXdoT3JkCQEIZ2V0T3JkZXIBBQZvcmRLZXkECHdoT3JkUmVzCQC1CQIJAJEDAgUFd2hPcmQFCW9yZElkeFJlcwIBXwQId2hPcmRNYXQJALUJAgkAkQMCBQV3aE9yZAUJb3JkSWR4TWF0AgFfBAl3aE9yZFByb2QDCQAAAgkAkQMCBQV3aE9yZAUKb3JkSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQV3aE9yZAUKb3JkSWR4UHJvZAIBXwQBcgoAAiRsBQhicE9yZFJlcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJ4KDAUDbmlsBQNuaWwFA25pbAAAAAAAAAAABQlicFJlc0xpc3QFCWN1cnJXaFJlcwUId2hPcmRSZXMFCHJlc1R5cGVzBwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMYWNjZXB0Q29tbW9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAFtCgACJGwFCGJwT3JkTWF0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAngoMBQNuaWwFA25pbAUDbmlsCAUBcgJfNAgFAXICXzUIBQFyAl82AAAFCWJwTWF0TGlzdAUJY3VycldoTWF0BQh3aE9yZE1hdAUIbWF0VHlwZXMHCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhY2NlcHRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEAXADCQECIT0CCQCQAwEFCWJwT3JkUHJvZAAACgACJGwFCWJwT3JkUHJvZAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJ4KDAUDbmlsBQNuaWwFA25pbAgFAW0CXzQIBQFtAl81CAUBbQJfNgAABQpicFByb2RMaXN0BQpjdXJyV2hQcm9kBQl3aE9yZFByb2QFCXByb2RUeXBlcwYKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGFjY2VwdENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjJfMgIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyCQCeCgwFCmN1cnJXaFByb2QFCXdoT3JkUHJvZAUKYnBQcm9kTGlzdAgFAW0CXzQIBQFtAl81CAUBbQJfNgAABQpicFByb2RMaXN0BQpjdXJyV2hQcm9kBQl3aE9yZFByb2QFCXByb2RUeXBlcwYECHZvbFNhbGRvCAUBcAJfNAQMbmV3TG9ja2VkVm9sAwkAZgIAAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8AAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8EBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXICXzECAV8JAMwIAgkAuQkCCAUBbQJfMQIBXwkAzAgCCQC5CQIIBQFwAl8xAgFfCQDMCAIJAKQDAQUMbmV3TG9ja2VkVm9sBQNuaWwCAToEC25ld1doT3JkU3RyCQC6CQIJAMwIAgkAuQkCCAUBcgJfMgIBXwkAzAgCCQC5CQIIBQFtAl8yAgFfCQDMCAIJALkJAggFAXACXzICAV8FA25pbAIBOgQIbmV3QnBTdHIJALoJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJALkJAggFAXICXzMCAV8JAMwIAgkAuQkCCAUBbQJfMwIBXwkAzAgCCQC5CQIIBQFwAl8zAgFfBQNuaWwCAToEBndoU2F2ZQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDXNhdmVXYXJlaG91c2UJAMwIAgUFd2hTdHIJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsAwkAAAIFBndoU2F2ZQUGd2hTYXZlBAZicFNhdmUJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQhuZXdCcFN0cgUDbmlsBQNuaWwDCQAAAgUGYnBTYXZlBQZicFNhdmUEB2FjdGlvbnMJAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdXaE9yZFN0cgUDbmlsBA11c2RXaDJCcFNhbGRvCAUBcAJfNQQIYWN0aW9uczEDCQBmAgUNdXNkV2gyQnBTYWxkbwAABAt1c2RXaDJCcEZlZQkAawMIBQFwAl81BQpBVUNUSU9ORkVFBQVNVUxUNgQIcmVmQnlLZXkJAQ9rZXlBZGRyZXNzUmVmQnkBBQpjYWxsZXJBZGRyBAVyZWZCeQkAnQgCBQ9zdGFraW5nQ29udHJhY3QFCHJlZkJ5S2V5AwkBCWlzRGVmaW5lZAEFBXJlZkJ5CQDNCAIJAM0IAgkAzQgCBQdhY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIJAGUCCAUBcAJfNQkAaAIAAwULdXNkV2gyQnBGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZFdoMkJwRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQUFcmVmQnkFC3VzZFdoMkJwRmVlBQt1c2R0QXNzZXRJZAkAzQgCCQDNCAIFB2FjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgkAZQIIBQFwAl81CQBoAgADBQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAULdXNkV2gyQnBGZWUFC3VzZHRBc3NldElkBQdhY3Rpb25zBA11c2RCcDJXaFNhbGRvCAUBcAJfNgMJAGYCBQ11c2RCcDJXaFNhbGRvAAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQMJAQIhPQIFA2FtdAUNdXNkQnAyV2hTYWxkbwkAAgEJAKwCAgISUGF5bWVudCBuZWVkZWQgaXMgCQCkAwEFDXVzZEJwMldoU2FsZG8DCQBmAgUOTUlOU0hPUFBBWU1FTlQFA2FtdAkAAgEJAKwCAgIbUGF5bWVudCBzaG91bGQgYmUgYXQgbGVhc3QgCQCkAwEFDk1JTlNIT1BQQVlNRU5UBAt1c2RCcDJXaEZlZQkAawMIBQFwAl82BQpBVUNUSU9ORkVFBQVNVUxUNgQIcmVmQnlLZXkJAQ9rZXlBZGRyZXNzUmVmQnkBBQlsYW5kT3duZXIEBXJlZkJ5CQCdCAIFD3N0YWtpbmdDb250cmFjdAUIcmVmQnlLZXkDCQEJaXNEZWZpbmVkAQUFcmVmQnkJAM0IAgkAzQgCCQDNCAIFCGFjdGlvbnMxCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQlsYW5kT3duZXIJAGUCCAUBcAJfNgkAaAIAAwULdXNkQnAyV2hGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQUFcmVmQnkFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAkAzQgCCQDNCAIFCGFjdGlvbnMxCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQlsYW5kT3duZXIJAGUCCAUBcAJfNgkAaAIAAwULdXNkQnAyV2hGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECEk5vIHBheW1lbnRzIG5lZWRlZAUIYWN0aW9uczEJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4Azc6S8Q==",
    "height": 2599984,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: B8vJvYsJ28VXeNALv6AxiAaYbAdG7YL6RNst99G9qEAY
Next: 9idqNa8EzcRooxoadRjadZNMYUuB1PMRVf8nvPdT6BgE

Diff: 
Old New Differences
771 771                      let currentWh = split_4C(wh, ":")
772 772                      let loft = split(currentWh[whIdxLOFT], "_")
773 773                      let whOccupied = parseIntValue(loft[volOccupied])
774 -                     let whFree = parseIntValue(loft[volFree])
774 +                     let whTotal = parseIntValue(loft[volTotal])
775 775                      let ordKey = keyOrderByLand(landAssetId)
776 776                      let currentOrd = getOrder(ordKey)
777 777                      let z = setInternal(currentWh, currentOrd, cargoParts)
778 778                      let buyVolSaldo = z._4
779 779                      let sellVolSaldo = z._5
780 +                     let whLocked = (buyVolSaldo + sellVolSaldo)
781 +                     let whFree = ((whTotal - whOccupied) - whLocked)
780 782                      if ((buyVolSaldo > whFree))
781 783                          then throw((((("Attempt to reserve " + toString(buyVolSaldo)) + " space for buy orders, but only ") + toString(whFree)) + " warehouse empty space left"))
782 784                          else if ((sellVolSaldo > whOccupied))
783 785                              then throw((((("Attempt to lock " + toString(sellVolSaldo)) + " space for sell orders, but only ") + toString(whOccupied)) + " warehouse space occupied"))
784 786                              else {
785 -                                 let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString(z._3, "_"), toString((buyVolSaldo + sellVolSaldo))], ":")
787 +                                 let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString(z._3, "_"), toString(whLocked)], ":")
786 788                                  let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
787 789                                  if ((whSave == whSave))
788 790                                      then {
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 whIdxLevels = 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 whIdxLOFT = 4
176 176  
177 177  let volLocked = 0
178 178  
179 179  let volOccupied = 1
180 180  
181 181  let volFree = 2
182 182  
183 183  let volTotal = 3
184 184  
185 185  let ordIdxRes = 0
186 186  
187 187  let ordIdxMat = 1
188 188  
189 189  let ordIdxProd = 2
190 190  
191 191  func asString (v) = match v {
192 192      case s: String => 
193 193          s
194 194      case _ => 
195 195          throw("fail to cast into String")
196 196  }
197 197  
198 198  
199 199  func getOrder (ordKey) = {
200 200      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:"), ":")
201 201  [if ((size(split(p[ordIdxRes], "_")) == NUMRES))
202 202          then p[ordIdxRes]
203 203          else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
204 204          then p[ordIdxMat]
205 205          else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
206 206      }
207 207  
208 208  
209 209  func toVolume (amount,pkgSize,isProduct) = if (isProduct)
210 210      then {
211 211          let pkgs = if ((amount >= 0))
212 212              then (((amount + pkgSize) - 1) / pkgSize)
213 213              else -((((-(amount) + pkgSize) - 1) / pkgSize))
214 214          (pkgs * MULT8)
215 215          }
216 216      else amount
217 217  
218 218  
219 219  func sellInternal (locId,resType,amount,minPrice) = {
220 220      let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
221 221      let w0 = valueOrElse(getInteger(whKey), 0)
222 222      let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
223 223          then 0
224 224          else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
225 225              then (FACTORYMAXWAREHOUSE - w0)
226 226              else amount
227 227      let usdtReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
228 228      let min99 = (minPrice - (minPrice / 100))
229 229      if (((min99 * amount) > (usdtReceived * MULT8)))
230 230          then throw((((((((((("Actual price = " + toString(usdtReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
231 231          else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdtReceived)
232 232      }
233 233  
234 234  
235 235  func buyInternal (locId,matType,amount,maxPrice) = {
236 236      let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
237 237      let w0 = valueOrElse(getInteger(whKey), 0)
238 238      let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
239 239          then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
240 240          else 0
241 241      let m0 = min([w0, (amount - m1)])
242 242      let m = (m0 + m1)
243 243      let usdtSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
244 244      let max101 = (maxPrice + (maxPrice / 100))
245 245      if (((usdtSpent * MULT8) > (max101 * m)))
246 246          then throw((((((((((("Actual price = " + toString(usdtSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
247 247          else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdtSpent, m)
248 248      }
249 249  
250 250  
251 251  func getBackpack (bpKey) = {
252 252      let p = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
253 253  [toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
254 254          then p[bpIdxRes]
255 255          else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
256 256          then p[bpIdxMat]
257 257          else "0_0_0_0_0_0", p[bpIdxProd]]
258 258      }
259 259  
260 260  
261 261  func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
262 262      then throw("Contracts are under maintenance")
263 263      else unit
264 264  
265 265  
266 266  func setCommon (acc,item) = {
267 267      let j = acc._1
268 268      let isProd = acc._8
269 269      let pkgSize = if (isProd)
270 270          then parseIntValue(split(productionMatrix[j], "_")[recipeIdxPacksize])
271 271          else 0
272 272      let itemParts = split(item, "@")
273 273      if ((size(itemParts) != 2))
274 274          then throw("Incorrect order format, should be amount@price")
275 275          else {
276 276              let newOrdAm = parseIntValue(itemParts[0])
277 277              let newOrdPr = parseIntValue(itemParts[1])
278 278              let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
279 279              let newOrdVol = toVolume(newOrdAm, pkgSize, isProd)
280 280              let whInit = if ((size(acc._6) > j))
281 281                  then parseIntValue(acc._6[j])
282 282                  else 0
283 283              let curOrdParts = split(if ((size(acc._7) > j))
284 284                  then acc._7[j]
285 285                  else "0@0", "@")
286 286              let curOrdAm = parseIntValue(curOrdParts[0])
287 287              let curOrdPr = parseIntValue(curOrdParts[1])
288 288              if (if ((0 > curOrdPr))
289 289                  then true
290 290                  else (0 > newOrdPr))
291 291                  then throw("Price can't be negative")
292 292                  else {
293 293                      let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
294 294                      let curOrdVol = toVolume(curOrdAm, pkgSize, isProd)
295 295                      if ((newOrdAm == 0))
296 296                          then if ((curOrdAm > 0))
297 297                              then $Tuple8((j + 1), (acc._2 :+ toString(whInit)), acc._3, acc._4, (acc._5 - curOrdUsd), acc._6, acc._7, isProd)
298 298                              else $Tuple8((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), acc._3, acc._4, acc._5, acc._6, acc._7, isProd)
299 299                          else if ((newOrdAm > 0))
300 300                              then if ((0 > curOrdAm))
301 301                                  then $Tuple8((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), (acc._3 + newOrdVol), acc._4, (acc._5 + newOrdUsd), acc._6, acc._7, isProd)
302 302                                  else $Tuple8((j + 1), (acc._2 :+ toString(whInit)), (acc._3 + newOrdVol), acc._4, ((acc._5 + newOrdUsd) - curOrdUsd), acc._6, acc._7, isProd)
303 303                              else if ((0 > curOrdAm))
304 304                                  then {
305 305                                      let amDiff = (curOrdAm - newOrdAm)
306 306                                      if ((0 > (whInit - amDiff)))
307 307                                          then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whInit)) + " available"))
308 308                                          else $Tuple8((j + 1), (acc._2 :+ toString((whInit - amDiff))), acc._3, (acc._4 - newOrdVol), acc._5, acc._6, acc._7, isProd)
309 309                                      }
310 310                                  else if ((0 > (whInit + newOrdAm)))
311 311                                      then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whInit)) + " available"))
312 312                                      else $Tuple8((j + 1), (acc._2 :+ toString((whInit + newOrdAm))), acc._3, (acc._4 - newOrdVol), (acc._5 - curOrdUsd), acc._6, acc._7, isProd)
313 313                      }
314 314              }
315 315      }
316 316  
317 317  
318 318  func setInternal (currentWh,currentOrd,newOrd) = {
319 319      let currWhRes = split(currentWh[whIdxRes], "_")
320 320      let currWhMat = split(currentWh[whIdxMat], "_")
321 321      let currWhProd = if ((currentWh[whIdxProd] == ""))
322 322          then nil
323 323          else split(currentWh[whIdxProd], "_")
324 324      let currentOrdRes = split(currentOrd[ordIdxRes], "_")
325 325      let currentOrdMat = split(currentOrd[ordIdxMat], "_")
326 326      let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
327 327          then nil
328 328          else split(currentOrd[ordIdxProd], "_")
329 329      if ((size(newOrd) != 3))
330 330          then throw("cargoListStr should contain exactly 2 ':' separators")
331 331          else {
332 332              let resParts = split(newOrd[0], "_")
333 333              let matParts = split(newOrd[1], "_")
334 334              let prodParts = if ((newOrd[2] == ""))
335 335                  then nil
336 336                  else split(newOrd[2], "_")
337 337              if ((size(resParts) != NUMRES))
338 338                  then throw("All 6 resources should be passed")
339 339                  else if ((size(matParts) != NUMRES))
340 340                      then throw("All 6 materials should be passed")
341 341                      else {
342 342                          let r = {
343 343                              let $l = resParts
344 344                              let $s = size($l)
345 345                              let $acc0 = $Tuple8(0, nil, 0, 0, 0, currWhRes, currentOrdRes, false)
346 346                              func $f0_1 ($a,$i) =                             if (($i >= $s))
347 347                                  then $a
348 348                                  else setCommon($a, $l[$i])
349 349  
350 350                              func $f0_2 ($a,$i) =                             if (($i >= $s))
351 351                                  then $a
352 352                                  else throw("List size exceeds 6")
353 353  
354 354                              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
355 355                              }
356 356                          let m = {
357 357                              let $l = matParts
358 358                              let $s = size($l)
359 359                              let $acc0 = $Tuple8(0, nil, r._3, r._4, r._5, currWhMat, currentOrdMat, false)
360 360                              func $f1_1 ($a,$i) =                             if (($i >= $s))
361 361                                  then $a
362 362                                  else setCommon($a, $l[$i])
363 363  
364 364                              func $f1_2 ($a,$i) =                             if (($i >= $s))
365 365                                  then $a
366 366                                  else throw("List size exceeds 6")
367 367  
368 368                              $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
369 369                              }
370 370                          let p = if ((size(prodParts) != 0))
371 371                              then {
372 372                                  let $l = prodParts
373 373                                  let $s = size($l)
374 374                                  let $acc0 = $Tuple8(0, nil, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
375 375                                  func $f2_1 ($a,$i) =                                 if (($i >= $s))
376 376                                      then $a
377 377                                      else setCommon($a, $l[$i])
378 378  
379 379                                  func $f2_2 ($a,$i) =                                 if (($i >= $s))
380 380                                      then $a
381 381                                      else throw("List size exceeds 50")
382 382  
383 383                                  $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)
384 384                                  }
385 385                              else $Tuple8(0, currWhProd, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
386 386                          $Tuple6(r._2, m._2, p._2, p._3, p._4, p._5)
387 387                          }
388 388              }
389 389      }
390 390  
391 391  
392 392  func acceptCommon (acc,bpOrdItem) = {
393 393      let j = acc._7
394 394      let isProd = acc._12
395 395      let pkgSize = if (isProd)
396 396          then parseIntValue(split(productionMatrix[j], "_")[recipeIdxPacksize])
397 397          else 0
398 398      let bpOrdParts = split(bpOrdItem, "@")
399 399      if ((size(bpOrdParts) != 2))
400 400          then throw("Incorrect order format, should be amount@price")
401 401          else {
402 402              let bpOrdAm = parseIntValue(bpOrdParts[0])
403 403              let bpOrdPr = parseIntValue(bpOrdParts[1])
404 404              if ((0 > bpOrdPr))
405 405                  then throw("Price can't be negative")
406 406                  else {
407 407                      let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8)
408 408                      let bpInit = if ((size(acc._8) > j))
409 409                          then parseIntValue(acc._8[j])
410 410                          else 0
411 411                      let whInit = if ((size(acc._9) > j))
412 412                          then parseIntValue(acc._9[j])
413 413                          else 0
414 414                      let whOrdParts = split(acc._10[j], "@")
415 415                      let whOrdAm = parseIntValue(whOrdParts[0])
416 416                      let whOrdPr = parseIntValue(whOrdParts[1])
417 417                      if (if ((bpOrdAm != 0))
418 418                          then (bpOrdPr != whOrdPr)
419 419                          else false)
420 420                          then throw(((((("Prices of " + acc._11[j]) + " don't match! WH price=") + toString(whOrdPr)) + ", your price=") + toString(bpOrdPr)))
421 421                          else {
422 422                              let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8)
423 423                              let deltaVol = toVolume(bpOrdAm, pkgSize, isProd)
424 424                              if ((bpOrdAm == 0))
425 425                                  then $Tuple12((acc._1 :+ toString(whInit)), (acc._2 :+ acc._10[j]), (acc._3 :+ toString(bpInit)), acc._4, acc._5, acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd)
426 426                                  else if ((bpOrdAm > 0))
427 427                                      then if ((0 > whOrdAm))
428 428                                          then if ((bpOrdAm > -(whOrdAm)))
429 429                                              then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + acc._11[j]) + ", but warehouse only sells ") + toString(-(whOrdAm))))
430 430                                              else $Tuple12((acc._1 :+ toString(whInit)), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpInit + bpOrdAm))), (acc._4 + deltaVol), acc._5, (acc._6 + bpOrdUsd), (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd)
431 431                                          else throw((("Attempt to buy " + acc._11[j]) + " while warehouse doesn't sell it"))
432 432                                      else if ((whOrdAm > 0))
433 433                                          then if ((-(bpOrdAm) > whOrdAm))
434 434                                              then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + acc._11[j]) + ", but warehouse only buys ") + toString(whOrdAm)))
435 435                                              else if ((-(bpOrdAm) > bpInit))
436 436                                                  then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + toString(bpInit)) + " of ") + acc._11[j]))
437 437                                                  else $Tuple12((acc._1 :+ toString((whInit - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpInit + bpOrdAm))), (acc._4 - deltaVol), (acc._5 - bpOrdUsd), acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd)
438 438                                          else throw((("Attempt to sell " + acc._11[j]) + " while warehouse doesn't buy it"))
439 439                              }
440 440                      }
441 441              }
442 442      }
443 443  
444 444  
445 445  @Callable(i)
446 446  func recalcLockedVolumeREADONLY (landAssetId,wh) = {
447 447      let currentOrd = getOrder(keyOrderByLand(landAssetId))
448 448      let z = setInternal(wh, currentOrd, currentOrd)
449 449      $Tuple2(nil, (z._4 + z._5))
450 450      }
451 451  
452 452  
453 453  
454 454  @Callable(i)
455 455  func constructorV1 (restAddr) = if ((i.caller != this))
456 456      then throw("Permission denied")
457 457      else [StringEntry(keyRestAddress(), restAddr)]
458 458  
459 459  
460 460  
461 461  @Callable(i)
462 462  func sellResources (amounts,minPrices) = {
463 463      let blocked = checkBlocked()
464 464      if ((blocked == blocked))
465 465          then {
466 466              let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
467 467              if ((size(i.payments) != 0))
468 468                  then throw("sellResources doesn't require any payments")
469 469                  else {
470 470                      let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
471 471                      if ((curLocation[locIdxType] != "F"))
472 472                          then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
473 473                          else {
474 474                              let locId = curLocation[locIdxId]
475 475                              let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
476 476                              let resList = split(currentPack[bpIdxRes], "_")
477 477                              func adder (acc,j) =                             if ((amounts[j] > parseIntValue(resList[j])))
478 478                                  then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j])))
479 479                                  else if ((0 > amounts[j]))
480 480                                      then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j])))
481 481                                      else if ((amounts[j] > 0))
482 482                                          then {
483 483                                              let b = sellInternal(locId, j, amounts[j], minPrices[j])
484 484                                              $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2))
485 485                                              }
486 486                                          else $Tuple3(acc._1, (acc._2 :+ resList[j]), acc._3)
487 487  
488 488                              let merged = {
489 489                                  let $l = [0, 1, 2, 3, 4, 5]
490 490                                  let $s = size($l)
491 491                                  let $acc0 = $Tuple3(nil, nil, 0)
492 492                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
493 493                                      then $a
494 494                                      else adder($a, $l[$i])
495 495  
496 496                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
497 497                                      then $a
498 498                                      else throw("List size exceeds 6")
499 499  
500 500                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
501 501                                  }
502 502                              let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._2, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
503 503                              let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
504 504                              $Tuple2((merged._1 :+ ScriptTransfer(i.caller, merged._3, usdtAssetId)), result)
505 505                              }
506 506                      }
507 507              }
508 508          else throw("Strict value is not equal to itself.")
509 509      }
510 510  
511 511  
512 512  
513 513  @Callable(i)
514 514  func buyMaterials (amounts,maxPrices) = {
515 515      let blocked = checkBlocked()
516 516      if ((blocked == blocked))
517 517          then {
518 518              let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
519 519              if ((size(i.payments) != 1))
520 520                  then throw("exactly 1 payment must be attached")
521 521                  else {
522 522                      let pmt = i.payments[0]
523 523                      let amt = pmt.amount
524 524                      let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
525 525                      if ((pmtAssetId != usdtAssetId))
526 526                          then throw("USDT payments only!")
527 527                          else {
528 528                              let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
529 529                              if ((curLocation[locIdxType] != "F"))
530 530                                  then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
531 531                                  else {
532 532                                      let locId = curLocation[locIdxId]
533 533                                      let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
534 534                                      let matList = split(currentPack[bpIdxMat], "_")
535 535                                      func mUpdater (acc,j) =                                     if ((0 > amounts[j]))
536 536                                          then throw(((("You tried to buy negative amount of " + matTypes[j]) + ": ") + toString(amounts[j])))
537 537                                          else if ((amounts[j] > 0))
538 538                                              then {
539 539                                                  let b = buyInternal(locId, j, amounts[j], maxPrices[j])
540 540                                                  $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(matList[j]) + b._3))), (acc._3 + b._2))
541 541                                                  }
542 542                                              else $Tuple3(acc._1, (acc._2 :+ matList[j]), acc._3)
543 543  
544 544                                      let merged = {
545 545                                          let $l = [0, 1, 2, 3, 4, 5]
546 546                                          let $s = size($l)
547 547                                          let $acc0 = $Tuple3(nil, nil, 0)
548 548                                          func $f0_1 ($a,$i) =                                         if (($i >= $s))
549 549                                              then $a
550 550                                              else mUpdater($a, $l[$i])
551 551  
552 552                                          func $f0_2 ($a,$i) =                                         if (($i >= $s))
553 553                                              then $a
554 554                                              else throw("List size exceeds 6")
555 555  
556 556                                          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
557 557                                          }
558 558                                      if ((merged._3 > amt))
559 559                                          then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3)))
560 560                                          else {
561 561                                              let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._2, "_"), currentPack[bpIdxProd]], ":")
562 562                                              let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
563 563                                              let rest = if (((amt - merged._3) > 0))
564 564                                                  then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
565 565                                                  else nil
566 566                                              let activitiesAmount = (merged._3 / 100)
567 567                                              $Tuple2(((merged._1 ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
568 568                                              }
569 569                                      }
570 570                              }
571 571                      }
572 572              }
573 573          else throw("Strict value is not equal to itself.")
574 574      }
575 575  
576 576  
577 577  
578 578  @Callable(i)
579 579  func exchangeResources (amounts) = {
580 580      let blocked = checkBlocked()
581 581      if ((blocked == blocked))
582 582          then {
583 583              let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
584 584              if ((size(i.payments) != 1))
585 585                  then throw("exactly 1 payment must be attached")
586 586                  else {
587 587                      let pmt = i.payments[0]
588 588                      let amt = pmt.amount
589 589                      let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
590 590                      if ((pmtAssetId != usdtAssetId))
591 591                          then throw("USDT payments only!")
592 592                          else {
593 593                              let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
594 594                              if ((curLocation[locIdxType] != "F"))
595 595                                  then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
596 596                                  else {
597 597                                      let locId = curLocation[locIdxId]
598 598                                      let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
599 599                                      let resList = split(currentPack[bpIdxRes], "_")
600 600                                      let matList = split(currentPack[bpIdxMat], "_")
601 601                                      func exchanger (acc,j) =                                     {
602 602                                          let whKey = keyFactoryWarehouseByIdAndType(locId, j)
603 603                                          let w0 = valueOrElse(getInteger(whKey), 0)
604 604                                          let amj = amounts[j]
605 605                                          if ((amj > parseIntValue(resList[j])))
606 606                                              then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to exchange ") + toString(amj)))
607 607                                              else if ((0 > amj))
608 608                                                  then throw(((("You tried to exchange negative amount of " + resTypes[j]) + ": ") + toString(amj)))
609 609                                                  else if ((amj > 0))
610 610                                                      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)))
611 611                                                      else $Tuple4((acc._1 :+ resList[j]), (acc._2 :+ matList[j]), acc._3, acc._4)
612 612                                          }
613 613  
614 614                                      let merged = {
615 615                                          let $l = [0, 1, 2, 3, 4, 5]
616 616                                          let $s = size($l)
617 617                                          let $acc0 = $Tuple4(nil, nil, 0, nil)
618 618                                          func $f0_1 ($a,$i) =                                         if (($i >= $s))
619 619                                              then $a
620 620                                              else exchanger($a, $l[$i])
621 621  
622 622                                          func $f0_2 ($a,$i) =                                         if (($i >= $s))
623 623                                              then $a
624 624                                              else throw("List size exceeds 6")
625 625  
626 626                                          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
627 627                                          }
628 628                                      if ((merged._3 > amt))
629 629                                          then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3)))
630 630                                          else {
631 631                                              let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._1, "_"), makeString(merged._2, "_"), currentPack[bpIdxProd]], ":")
632 632                                              let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
633 633                                              let rest = if (((amt - merged._3) > 0))
634 634                                                  then [ScriptTransfer(i.caller, (amt - merged._3), usdtAssetId)]
635 635                                                  else nil
636 636                                              let activitiesAmount = (merged._3 / 100)
637 637                                              $Tuple2(((rest ++ merged._4) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), result)
638 638                                              }
639 639                                      }
640 640                              }
641 641                      }
642 642              }
643 643          else throw("Strict value is not equal to itself.")
644 644      }
645 645  
646 646  
647 647  
648 648  @Callable(i)
649 649  func craftGoods (productIdx,quantity) = {
650 650      let blocked = checkBlocked()
651 651      if ((blocked == blocked))
652 652          then if ((size(i.payments) != 1))
653 653              then throw("exactly 1 payment must be attached")
654 654              else {
655 655                  let pmt = i.payments[0]
656 656                  let amt = pmt.amount
657 657                  let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
658 658                  if ((pmtAssetId != usdtAssetId))
659 659                      then throw("USDT payments only!")
660 660                      else if ((amt != MULT6))
661 661                          then throw("exactly 1 USDT must be attached as payment")
662 662                          else if ((0 >= quantity))
663 663                              then throw("Quantity should be positive")
664 664                              else {
665 665                                  let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
666 666                                  let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
667 667                                  if ((curLocation[locIdxType] != "M"))
668 668                                      then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
669 669                                      else {
670 670                                          let cont = curLocation[locIdxContinent]
671 671                                          let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
672 672                                          let matList = split(currentPack[bpIdxMat], "_")
673 673                                          if (if ((0 > productIdx))
674 674                                              then true
675 675                                              else (productIdx >= size(productionMatrix)))
676 676                                              then throw(("Unknown product idx=" + toString(productIdx)))
677 677                                              else {
678 678                                                  let recipe = split(productionMatrix[productIdx], "_")
679 679                                                  if ((size(recipe) != (NUMRES + 3)))
680 680                                                      then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
681 681                                                      else {
682 682                                                          let productContIdx = parseIntValue(recipe[recipeIdxContinent])
683 683                                                          if ((continents[productContIdx] != cont))
684 684                                                              then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont))
685 685                                                              else {
686 686                                                                  let prodList = if ((currentPack[bpIdxProd] == ""))
687 687                                                                      then nil
688 688                                                                      else split(currentPack[bpIdxProd], "_")
689 689                                                                  func filler (acc,ignoredItem) =                                                                 {
690 690                                                                      let n = acc._2
691 691                                                                      let xs = if ((size(prodList) > n))
692 692                                                                          then prodList[n]
693 693                                                                          else "0"
694 694                                                                      let x = parseIntValue(xs)
695 695                                                                      let amount = (quantity * parseIntValue(recipe[recipeIdxPacksize]))
696 696                                                                      let y = if ((n == productIdx))
697 697                                                                          then toString((x + amount))
698 698                                                                          else xs
699 699                                                                      $Tuple2((acc._1 :+ y), (n + 1))
700 700                                                                      }
701 701  
702 702                                                                  let bpProd = (                                                                let $l = productionMatrix
703 703                                                                  let $s = size($l)
704 704                                                                  let $acc0 = $Tuple2(nil, 0)
705 705                                                                  func $f0_1 ($a,$i) =                                                                 if (($i >= $s))
706 706                                                                      then $a
707 707                                                                      else filler($a, $l[$i])
708 708  
709 709                                                                  func $f0_2 ($a,$i) =                                                                 if (($i >= $s))
710 710                                                                      then $a
711 711                                                                      else throw("List size exceeds 50")
712 712  
713 713                                                                  $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
714 714                                                                  func producer (acc,j) =                                                                 {
715 715                                                                      let needMat = ((parseIntValue(recipe[j]) * MULT7) * quantity)
716 716                                                                      let haveMat = parseIntValue(matList[j])
717 717                                                                      if ((needMat > haveMat))
718 718                                                                          then throw(((((((("You have " + matList[j]) + " of ") + matTypes[j]) + ", but recipe requires ") + toString(needMat)) + " for quantity ") + toString(quantity)))
719 719                                                                          else if ((needMat > 0))
720 720                                                                              then (acc :+ toString((haveMat - needMat)))
721 721                                                                              else (acc :+ matList[j])
722 722                                                                      }
723 723  
724 724                                                                  let merged = {
725 725                                                                      let $l = [0, 1, 2, 3, 4, 5]
726 726                                                                      let $s = size($l)
727 727                                                                      let $acc0 = nil
728 728                                                                      func $f1_1 ($a,$i) =                                                                     if (($i >= $s))
729 729                                                                          then $a
730 730                                                                          else producer($a, $l[$i])
731 731  
732 732                                                                      func $f1_2 ($a,$i) =                                                                     if (($i >= $s))
733 733                                                                          then $a
734 734                                                                          else throw("List size exceeds 6")
735 735  
736 736                                                                      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
737 737                                                                      }
738 738                                                                  let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged, "_"), makeString(bpProd, "_")], ":")
739 739                                                                  let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
740 740                                                                  $Tuple2(nil, result)
741 741                                                                  }
742 742                                                          }
743 743                                                  }
744 744                                          }
745 745                                  }
746 746                  }
747 747          else throw("Strict value is not equal to itself.")
748 748      }
749 749  
750 750  
751 751  
752 752  @Callable(i)
753 753  func setWarehouseOrder (cargoListStr,landAssetId) = {
754 754      let user = i.originCaller
755 755      let addr = toString(user)
756 756      let result = if ((user != restContract))
757 757          then checkBlocked()
758 758          else false
759 759      let asset = value(assetInfo(fromBase58String(landAssetId)))
760 760      if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
761 761          then throw((("NFT " + asset.name) + " is not staked"))
762 762          else {
763 763              let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
764 764              if (if ((user != restContract))
765 765                  then (owner != addr)
766 766                  else false)
767 767                  then throw((LANDPREFIX + " is not yours"))
768 768                  else {
769 769                      let cargoParts = split_4C(cargoListStr, ":")
770 770                      let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
771 771                      let currentWh = split_4C(wh, ":")
772 772                      let loft = split(currentWh[whIdxLOFT], "_")
773 773                      let whOccupied = parseIntValue(loft[volOccupied])
774 -                     let whFree = parseIntValue(loft[volFree])
774 +                     let whTotal = parseIntValue(loft[volTotal])
775 775                      let ordKey = keyOrderByLand(landAssetId)
776 776                      let currentOrd = getOrder(ordKey)
777 777                      let z = setInternal(currentWh, currentOrd, cargoParts)
778 778                      let buyVolSaldo = z._4
779 779                      let sellVolSaldo = z._5
780 +                     let whLocked = (buyVolSaldo + sellVolSaldo)
781 +                     let whFree = ((whTotal - whOccupied) - whLocked)
780 782                      if ((buyVolSaldo > whFree))
781 783                          then throw((((("Attempt to reserve " + toString(buyVolSaldo)) + " space for buy orders, but only ") + toString(whFree)) + " warehouse empty space left"))
782 784                          else if ((sellVolSaldo > whOccupied))
783 785                              then throw((((("Attempt to lock " + toString(sellVolSaldo)) + " space for sell orders, but only ") + toString(whOccupied)) + " warehouse space occupied"))
784 786                              else {
785 -                                 let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString(z._3, "_"), toString((buyVolSaldo + sellVolSaldo))], ":")
787 +                                 let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString(z._3, "_"), toString(whLocked)], ":")
786 788                                  let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
787 789                                  if ((whSave == whSave))
788 790                                      then {
789 791                                          let usdSaldo = z._6
790 792                                          let actions = if ((usdSaldo > 0))
791 793                                              then if ((size(i.payments) != 1))
792 794                                                  then throw("exactly 1 payment must be attached")
793 795                                                  else {
794 796                                                      let pmt = i.payments[0]
795 797                                                      let amt = pmt.amount
796 798                                                      let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
797 799                                                      if ((pmtAssetId != usdtAssetId))
798 800                                                          then throw("USDT payments only!")
799 801                                                          else if ((amt != usdSaldo))
800 802                                                              then throw(("Payment needed is " + toString(usdSaldo)))
801 803                                                              else [StringEntry(ordKey, cargoListStr)]
802 804                                                      }
803 805                                              else if ((usdSaldo == 0))
804 806                                                  then if ((size(i.payments) != 0))
805 807                                                      then throw("No payments needed")
806 808                                                      else [StringEntry(ordKey, cargoListStr)]
807 809                                                  else if ((size(i.payments) != 0))
808 810                                                      then throw("No payments needed")
809 811                                                      else [ScriptTransfer(addressFromStringValue(owner), -(usdSaldo), usdtAssetId), StringEntry(ordKey, cargoListStr)]
810 812                                          $Tuple2(actions, result)
811 813                                          }
812 814                                      else throw("Strict value is not equal to itself.")
813 815                                  }
814 816                      }
815 817              }
816 818      }
817 819  
818 820  
819 821  
820 822  @Callable(i)
821 823  func acceptWarehouseOrder (bpOrderStr,landAssetId,duckAssetId) = {
822 824      let blocked = checkBlocked()
823 825      if ((blocked == blocked))
824 826          then {
825 827              let caller = i.originCaller
826 828              let callerAddr = toString(caller)
827 829              let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
828 830              let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION)
829 831              let loc = split(value(curLocation), "_")
830 832              if ((loc[locIdxType] != "L"))
831 833                  then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
832 834                  else if ((stakedDuckAssetId != duckAssetId))
833 835                      then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId))
834 836                      else {
835 837                          let landAsset = value(assetInfo(fromBase58String(landAssetId)))
836 838                          if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
837 839                              then throw((("NFT " + landAsset.name) + " is not staked"))
838 840                              else {
839 841                                  let landOwner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + landAsset.name) + " is orphaned"))
840 842                                  if ((landOwner == callerAddr))
841 843                                      then throw("You cannot trade with yourself")
842 844                                      else {
843 845                                          let bpOrderParts = split_4C(bpOrderStr, ":")
844 846                                          if ((size(bpOrderParts) != 3))
845 847                                              then throw("bpOrderStr should contain exactly 2 ':' separators")
846 848                                              else {
847 849                                                  let bpOrdRes = split(bpOrderParts[0], "_")
848 850                                                  let bpOrdMat = split(bpOrderParts[1], "_")
849 851                                                  let bpOrdProd = if ((bpOrderParts[2] == ""))
850 852                                                      then nil
851 853                                                      else split(bpOrderParts[2], "_")
852 854                                                  if ((size(bpOrdRes) != NUMRES))
853 855                                                      then throw("All 6 resources should be passed")
854 856                                                      else if ((size(bpOrdMat) != NUMRES))
855 857                                                          then throw("All 6 materials should be passed")
856 858                                                          else {
857 859                                                              let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
858 860                                                              let currentWh = split_4C(wh, ":")
859 861                                                              let currWhRes = split(currentWh[whIdxRes], "_")
860 862                                                              let currWhMat = split(currentWh[whIdxMat], "_")
861 863                                                              let currWhProd = if ((currentWh[whIdxProd] == ""))
862 864                                                                  then nil
863 865                                                                  else split(currentWh[whIdxProd], "_")
864 866                                                              let currWhLockedVol = parseIntValue(split(currentWh[whIdxLOFT], "_")[volLocked])
865 867                                                              let bpKey = keyBackpackByDuck(duckAssetId)
866 868                                                              let currentPack = getBackpack(bpKey)
867 869                                                              let bpResList = split(currentPack[bpIdxRes], "_")
868 870                                                              let bpMatList = split(currentPack[bpIdxMat], "_")
869 871                                                              let bpProdList = if ((currentPack[bpIdxProd] == ""))
870 872                                                                  then nil
871 873                                                                  else split(currentPack[bpIdxProd], "_")
872 874                                                              let ordKey = keyOrderByLand(landAssetId)
873 875                                                              let whOrd = getOrder(ordKey)
874 876                                                              let whOrdRes = split(whOrd[ordIdxRes], "_")
875 877                                                              let whOrdMat = split(whOrd[ordIdxMat], "_")
876 878                                                              let whOrdProd = if ((whOrd[ordIdxProd] == ""))
877 879                                                                  then nil
878 880                                                                  else split(whOrd[ordIdxProd], "_")
879 881                                                              let r = {
880 882                                                                  let $l = bpOrdRes
881 883                                                                  let $s = size($l)
882 884                                                                  let $acc0 = $Tuple12(nil, nil, nil, 0, 0, 0, 0, bpResList, currWhRes, whOrdRes, resTypes, false)
883 885                                                                  func $f0_1 ($a,$i) =                                                                 if (($i >= $s))
884 886                                                                      then $a
885 887                                                                      else acceptCommon($a, $l[$i])
886 888  
887 889                                                                  func $f0_2 ($a,$i) =                                                                 if (($i >= $s))
888 890                                                                      then $a
889 891                                                                      else throw("List size exceeds 6")
890 892  
891 893                                                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
892 894                                                                  }
893 895                                                              let m = {
894 896                                                                  let $l = bpOrdMat
895 897                                                                  let $s = size($l)
896 898                                                                  let $acc0 = $Tuple12(nil, nil, nil, r._4, r._5, r._6, 0, bpMatList, currWhMat, whOrdMat, matTypes, false)
897 899                                                                  func $f1_1 ($a,$i) =                                                                 if (($i >= $s))
898 900                                                                      then $a
899 901                                                                      else acceptCommon($a, $l[$i])
900 902  
901 903                                                                  func $f1_2 ($a,$i) =                                                                 if (($i >= $s))
902 904                                                                      then $a
903 905                                                                      else throw("List size exceeds 6")
904 906  
905 907                                                                  $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
906 908                                                                  }
907 909                                                              let p = if ((size(bpOrdProd) != 0))
908 910                                                                  then {
909 911                                                                      let $l = bpOrdProd
910 912                                                                      let $s = size($l)
911 913                                                                      let $acc0 = $Tuple12(nil, nil, nil, m._4, m._5, m._6, 0, bpProdList, currWhProd, whOrdProd, prodTypes, true)
912 914                                                                      func $f2_1 ($a,$i) =                                                                     if (($i >= $s))
913 915                                                                          then $a
914 916                                                                          else acceptCommon($a, $l[$i])
915 917  
916 918                                                                      func $f2_2 ($a,$i) =                                                                     if (($i >= $s))
917 919                                                                          then $a
918 920                                                                          else throw("List size exceeds 50")
919 921  
920 922                                                                      $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)
921 923                                                                      }
922 924                                                                  else $Tuple12(currWhProd, whOrdProd, bpProdList, m._4, m._5, m._6, 0, bpProdList, currWhProd, whOrdProd, prodTypes, true)
923 925                                                              let volSaldo = p._4
924 926                                                              let newLockedVol = if ((0 > (currWhLockedVol - volSaldo)))
925 927                                                                  then 0
926 928                                                                  else (currWhLockedVol - volSaldo)
927 929                                                              let whStr = makeString_2C([currentWh[whIdxLevels], makeString(r._1, "_"), makeString(m._1, "_"), makeString(p._1, "_"), toString(newLockedVol)], ":")
928 930                                                              let newWhOrdStr = makeString_2C([makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_")], ":")
929 931                                                              let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(r._3, "_"), makeString(m._3, "_"), makeString(p._3, "_")], ":")
930 932                                                              let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
931 933                                                              if ((whSave == whSave))
932 934                                                                  then {
933 935                                                                      let bpSave = invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil)
934 936                                                                      if ((bpSave == bpSave))
935 937                                                                          then {
936 938                                                                              let actions = [StringEntry(ordKey, newWhOrdStr)]
937 939                                                                              let usdWh2BpSaldo = p._5
938 940                                                                              let actions1 = if ((usdWh2BpSaldo > 0))
939 941                                                                                  then {
940 942                                                                                      let usdWh2BpFee = fraction(p._5, AUCTIONFEE, MULT6)
941 943                                                                                      let refByKey = keyAddressRefBy(callerAddr)
942 944                                                                                      let refBy = getString(stakingContract, refByKey)
943 945                                                                                      if (isDefined(refBy))
944 946                                                                                          then (((actions :+ ScriptTransfer(caller, (p._5 - (3 * usdWh2BpFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdWh2BpFee, usdtAssetId)) :+ ScriptTransfer(addressFromStringValue(value(refBy)), usdWh2BpFee, usdtAssetId))
945 947                                                                                          else ((actions :+ ScriptTransfer(caller, (p._5 - (3 * usdWh2BpFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdWh2BpFee, usdtAssetId))
946 948                                                                                      }
947 949                                                                                  else actions
948 950                                                                              let usdBp2WhSaldo = p._6
949 951                                                                              if ((usdBp2WhSaldo > 0))
950 952                                                                                  then if ((size(i.payments) != 1))
951 953                                                                                      then throw("exactly 1 payment must be attached")
952 954                                                                                      else {
953 955                                                                                          let pmt = i.payments[0]
954 956                                                                                          let amt = pmt.amount
955 957                                                                                          let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
956 958                                                                                          if ((pmtAssetId != usdtAssetId))
957 959                                                                                              then throw("USDT payments only!")
958 960                                                                                              else if ((amt != usdBp2WhSaldo))
959 961                                                                                                  then throw(("Payment needed is " + toString(usdBp2WhSaldo)))
960 962                                                                                                  else if ((MINSHOPPAYMENT > amt))
961 963                                                                                                      then throw(("Payment should be at least " + toString(MINSHOPPAYMENT)))
962 964                                                                                                      else {
963 965                                                                                                          let usdBp2WhFee = fraction(p._6, AUCTIONFEE, MULT6)
964 966                                                                                                          let refByKey = keyAddressRefBy(landOwner)
965 967                                                                                                          let refBy = getString(stakingContract, refByKey)
966 968                                                                                                          if (isDefined(refBy))
967 969                                                                                                              then (((actions1 :+ ScriptTransfer(addressFromStringValue(landOwner), (p._6 - (3 * usdBp2WhFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdBp2WhFee, usdtAssetId)) :+ ScriptTransfer(addressFromStringValue(value(refBy)), usdBp2WhFee, usdtAssetId))
968 970                                                                                                              else ((actions1 :+ ScriptTransfer(addressFromStringValue(landOwner), (p._6 - (3 * usdBp2WhFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdBp2WhFee, usdtAssetId))
969 971                                                                                                          }
970 972                                                                                          }
971 973                                                                                  else if ((size(i.payments) != 0))
972 974                                                                                      then throw("No payments needed")
973 975                                                                                      else actions1
974 976                                                                              }
975 977                                                                          else throw("Strict value is not equal to itself.")
976 978                                                                      }
977 979                                                                  else throw("Strict value is not equal to itself.")
978 980                                                              }
979 981                                                  }
980 982                                          }
981 983                                  }
982 984                          }
983 985              }
984 986          else throw("Strict value is not equal to itself.")
985 987      }
986 988  
987 989

Old	New		Differences
771	771		let currentWh = split_4C(wh, ":")
772	772		let loft = split(currentWh[whIdxLOFT], "_")
773	773		let whOccupied = parseIntValue(loft[volOccupied])
774		-	let ~~whFree~~ = parseIntValue(loft[~~volFree~~])
	774	+	let whTotal = parseIntValue(loft[volTotal])
775	775		let ordKey = keyOrderByLand(landAssetId)
776	776		let currentOrd = getOrder(ordKey)
777	777		let z = setInternal(currentWh, currentOrd, cargoParts)
778	778		let buyVolSaldo = z._4
779	779		let sellVolSaldo = z._5
	780	+	let whLocked = (buyVolSaldo + sellVolSaldo)
	781	+	let whFree = ((whTotal - whOccupied) - whLocked)
780	782		if ((buyVolSaldo > whFree))
781	783		then throw((((("Attempt to reserve " + toString(buyVolSaldo)) + " space for buy orders, but only ") + toString(whFree)) + " warehouse empty space left"))
782	784		else if ((sellVolSaldo > whOccupied))
783	785		then throw((((("Attempt to lock " + toString(sellVolSaldo)) + " space for sell orders, but only ") + toString(whOccupied)) + " warehouse space occupied"))
784	786		else {
785		-	let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString(z._3, "_"), toString(~~(buyVolSaldo + sellVolSaldo)~~)], ":")
	787	+	let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString(z._3, "_"), toString(whLocked)], ":")
786	788		let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
787	789		if ((whSave == whSave))
788	790		then {

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 whIdxLevels = 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 whIdxLOFT = 4
176	176
177	177	let volLocked = 0
178	178
179	179	let volOccupied = 1
180	180
181	181	let volFree = 2
182	182
183	183	let volTotal = 3
184	184
185	185	let ordIdxRes = 0
186	186
187	187	let ordIdxMat = 1
188	188
189	189	let ordIdxProd = 2
190	190
191	191	func asString (v) = match v {
192	192	case s: String =>
193	193	s
194	194	case _ =>
195	195	throw("fail to cast into String")
196	196	}
197	197
198	198
199	199	func getOrder (ordKey) = {
200	200	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:"), ":")
201	201	[if ((size(split(p[ordIdxRes], "_")) == NUMRES))
202	202	then p[ordIdxRes]
203	203	else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
204	204	then p[ordIdxMat]
205	205	else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
206	206	}
207	207
208	208
209	209	func toVolume (amount,pkgSize,isProduct) = if (isProduct)
210	210	then {
211	211	let pkgs = if ((amount >= 0))
212	212	then (((amount + pkgSize) - 1) / pkgSize)
213	213	else -((((-(amount) + pkgSize) - 1) / pkgSize))
214	214	(pkgs * MULT8)
215	215	}
216	216	else amount
217	217
218	218
219	219	func sellInternal (locId,resType,amount,minPrice) = {
220	220	let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
221	221	let w0 = valueOrElse(getInteger(whKey), 0)
222	222	let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
223	223	then 0
224	224	else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
225	225	then (FACTORYMAXWAREHOUSE - w0)
226	226	else amount
227	227	let usdtReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
228	228	let min99 = (minPrice - (minPrice / 100))
229	229	if (((min99 * amount) > (usdtReceived * MULT8)))
230	230	then throw((((((((((("Actual price = " + toString(usdtReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
231	231	else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdtReceived)
232	232	}
233	233
234	234
235	235	func buyInternal (locId,matType,amount,maxPrice) = {
236	236	let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
237	237	let w0 = valueOrElse(getInteger(whKey), 0)
238	238	let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
239	239	then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
240	240	else 0
241	241	let m0 = min([w0, (amount - m1)])
242	242	let m = (m0 + m1)
243	243	let usdtSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
244	244	let max101 = (maxPrice + (maxPrice / 100))
245	245	if (((usdtSpent * MULT8) > (max101 * m)))
246	246	then throw((((((((((("Actual price = " + toString(usdtSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
247	247	else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdtSpent, m)
248	248	}
249	249
250	250
251	251	func getBackpack (bpKey) = {
252	252	let p = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
253	253	[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
254	254	then p[bpIdxRes]
255	255	else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
256	256	then p[bpIdxMat]
257	257	else "0_0_0_0_0_0", p[bpIdxProd]]
258	258	}
259	259
260	260
261	261	func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
262	262	then throw("Contracts are under maintenance")
263	263	else unit
264	264
265	265
266	266	func setCommon (acc,item) = {
267	267	let j = acc._1
268	268	let isProd = acc._8
269	269	let pkgSize = if (isProd)
270	270	then parseIntValue(split(productionMatrix[j], "_")[recipeIdxPacksize])
271	271	else 0
272	272	let itemParts = split(item, "@")
273	273	if ((size(itemParts) != 2))
274	274	then throw("Incorrect order format, should be amount@price")
275	275	else {
276	276	let newOrdAm = parseIntValue(itemParts[0])
277	277	let newOrdPr = parseIntValue(itemParts[1])
278	278	let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
279	279	let newOrdVol = toVolume(newOrdAm, pkgSize, isProd)
280	280	let whInit = if ((size(acc._6) > j))
281	281	then parseIntValue(acc._6[j])
282	282	else 0
283	283	let curOrdParts = split(if ((size(acc._7) > j))
284	284	then acc._7[j]
285	285	else "0@0", "@")
286	286	let curOrdAm = parseIntValue(curOrdParts[0])
287	287	let curOrdPr = parseIntValue(curOrdParts[1])
288	288	if (if ((0 > curOrdPr))
289	289	then true
290	290	else (0 > newOrdPr))
291	291	then throw("Price can't be negative")
292	292	else {
293	293	let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
294	294	let curOrdVol = toVolume(curOrdAm, pkgSize, isProd)
295	295	if ((newOrdAm == 0))
296	296	then if ((curOrdAm > 0))
297	297	then $Tuple8((j + 1), (acc._2 :+ toString(whInit)), acc._3, acc._4, (acc._5 - curOrdUsd), acc._6, acc._7, isProd)
298	298	else $Tuple8((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), acc._3, acc._4, acc._5, acc._6, acc._7, isProd)
299	299	else if ((newOrdAm > 0))
300	300	then if ((0 > curOrdAm))
301	301	then $Tuple8((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), (acc._3 + newOrdVol), acc._4, (acc._5 + newOrdUsd), acc._6, acc._7, isProd)
302	302	else $Tuple8((j + 1), (acc._2 :+ toString(whInit)), (acc._3 + newOrdVol), acc._4, ((acc._5 + newOrdUsd) - curOrdUsd), acc._6, acc._7, isProd)
303	303	else if ((0 > curOrdAm))
304	304	then {
305	305	let amDiff = (curOrdAm - newOrdAm)
306	306	if ((0 > (whInit - amDiff)))
307	307	then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whInit)) + " available"))
308	308	else $Tuple8((j + 1), (acc._2 :+ toString((whInit - amDiff))), acc._3, (acc._4 - newOrdVol), acc._5, acc._6, acc._7, isProd)
309	309	}
310	310	else if ((0 > (whInit + newOrdAm)))
311	311	then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whInit)) + " available"))
312	312	else $Tuple8((j + 1), (acc._2 :+ toString((whInit + newOrdAm))), acc._3, (acc._4 - newOrdVol), (acc._5 - curOrdUsd), acc._6, acc._7, isProd)
313	313	}
314	314	}
315	315	}
316	316
317	317
318	318	func setInternal (currentWh,currentOrd,newOrd) = {
319	319	let currWhRes = split(currentWh[whIdxRes], "_")
320	320	let currWhMat = split(currentWh[whIdxMat], "_")
321	321	let currWhProd = if ((currentWh[whIdxProd] == ""))
322	322	then nil
323	323	else split(currentWh[whIdxProd], "_")
324	324	let currentOrdRes = split(currentOrd[ordIdxRes], "_")
325	325	let currentOrdMat = split(currentOrd[ordIdxMat], "_")
326	326	let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
327	327	then nil
328	328	else split(currentOrd[ordIdxProd], "_")
329	329	if ((size(newOrd) != 3))
330	330	then throw("cargoListStr should contain exactly 2 ':' separators")
331	331	else {
332	332	let resParts = split(newOrd[0], "_")
333	333	let matParts = split(newOrd[1], "_")
334	334	let prodParts = if ((newOrd[2] == ""))
335	335	then nil
336	336	else split(newOrd[2], "_")
337	337	if ((size(resParts) != NUMRES))
338	338	then throw("All 6 resources should be passed")
339	339	else if ((size(matParts) != NUMRES))
340	340	then throw("All 6 materials should be passed")
341	341	else {
342	342	let r = {
343	343	let $l = resParts
344	344	let $s = size($l)
345	345	let $acc0 = $Tuple8(0, nil, 0, 0, 0, currWhRes, currentOrdRes, false)
346	346	func $f0_1 ($a,$i) = if (($i >= $s))
347	347	then $a
348	348	else setCommon($a, $l[$i])
349	349
350	350	func $f0_2 ($a,$i) = if (($i >= $s))
351	351	then $a
352	352	else throw("List size exceeds 6")
353	353
354	354	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
355	355	}
356	356	let m = {
357	357	let $l = matParts
358	358	let $s = size($l)
359	359	let $acc0 = $Tuple8(0, nil, r._3, r._4, r._5, currWhMat, currentOrdMat, false)
360	360	func $f1_1 ($a,$i) = if (($i >= $s))
361	361	then $a
362	362	else setCommon($a, $l[$i])
363	363
364	364	func $f1_2 ($a,$i) = if (($i >= $s))
365	365	then $a
366	366	else throw("List size exceeds 6")
367	367
368	368	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
369	369	}
370	370	let p = if ((size(prodParts) != 0))
371	371	then {
372	372	let $l = prodParts
373	373	let $s = size($l)
374	374	let $acc0 = $Tuple8(0, nil, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
375	375	func $f2_1 ($a,$i) = if (($i >= $s))
376	376	then $a
377	377	else setCommon($a, $l[$i])
378	378
379	379	func $f2_2 ($a,$i) = if (($i >= $s))
380	380	then $a
381	381	else throw("List size exceeds 50")
382	382
383	383	$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)
384	384	}
385	385	else $Tuple8(0, currWhProd, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
386	386	$Tuple6(r._2, m._2, p._2, p._3, p._4, p._5)
387	387	}
388	388	}
389	389	}
390	390
391	391
392	392	func acceptCommon (acc,bpOrdItem) = {
393	393	let j = acc._7
394	394	let isProd = acc._12
395	395	let pkgSize = if (isProd)
396	396	then parseIntValue(split(productionMatrix[j], "_")[recipeIdxPacksize])
397	397	else 0
398	398	let bpOrdParts = split(bpOrdItem, "@")
399	399	if ((size(bpOrdParts) != 2))
400	400	then throw("Incorrect order format, should be amount@price")
401	401	else {
402	402	let bpOrdAm = parseIntValue(bpOrdParts[0])
403	403	let bpOrdPr = parseIntValue(bpOrdParts[1])
404	404	if ((0 > bpOrdPr))
405	405	then throw("Price can't be negative")
406	406	else {
407	407	let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8)
408	408	let bpInit = if ((size(acc._8) > j))
409	409	then parseIntValue(acc._8[j])
410	410	else 0
411	411	let whInit = if ((size(acc._9) > j))
412	412	then parseIntValue(acc._9[j])
413	413	else 0
414	414	let whOrdParts = split(acc._10[j], "@")
415	415	let whOrdAm = parseIntValue(whOrdParts[0])
416	416	let whOrdPr = parseIntValue(whOrdParts[1])
417	417	if (if ((bpOrdAm != 0))
418	418	then (bpOrdPr != whOrdPr)
419	419	else false)
420	420	then throw(((((("Prices of " + acc._11[j]) + " don't match! WH price=") + toString(whOrdPr)) + ", your price=") + toString(bpOrdPr)))
421	421	else {
422	422	let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8)
423	423	let deltaVol = toVolume(bpOrdAm, pkgSize, isProd)
424	424	if ((bpOrdAm == 0))
425	425	then $Tuple12((acc._1 :+ toString(whInit)), (acc._2 :+ acc._10[j]), (acc._3 :+ toString(bpInit)), acc._4, acc._5, acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd)
426	426	else if ((bpOrdAm > 0))
427	427	then if ((0 > whOrdAm))
428	428	then if ((bpOrdAm > -(whOrdAm)))
429	429	then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + acc._11[j]) + ", but warehouse only sells ") + toString(-(whOrdAm))))
430	430	else $Tuple12((acc._1 :+ toString(whInit)), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpInit + bpOrdAm))), (acc._4 + deltaVol), acc._5, (acc._6 + bpOrdUsd), (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd)
431	431	else throw((("Attempt to buy " + acc._11[j]) + " while warehouse doesn't sell it"))
432	432	else if ((whOrdAm > 0))
433	433	then if ((-(bpOrdAm) > whOrdAm))
434	434	then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + acc._11[j]) + ", but warehouse only buys ") + toString(whOrdAm)))
435	435	else if ((-(bpOrdAm) > bpInit))
436	436	then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + toString(bpInit)) + " of ") + acc._11[j]))
437	437	else $Tuple12((acc._1 :+ toString((whInit - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpInit + bpOrdAm))), (acc._4 - deltaVol), (acc._5 - bpOrdUsd), acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd)
438	438	else throw((("Attempt to sell " + acc._11[j]) + " while warehouse doesn't buy it"))
439	439	}
440	440	}
441	441	}
442	442	}
443	443
444	444
445	445	@Callable(i)
446	446	func recalcLockedVolumeREADONLY (landAssetId,wh) = {
447	447	let currentOrd = getOrder(keyOrderByLand(landAssetId))
448	448	let z = setInternal(wh, currentOrd, currentOrd)
449	449	$Tuple2(nil, (z._4 + z._5))
450	450	}
451	451
452	452
453	453
454	454	@Callable(i)
455	455	func constructorV1 (restAddr) = if ((i.caller != this))
456	456	then throw("Permission denied")
457	457	else [StringEntry(keyRestAddress(), restAddr)]
458	458
459	459
460	460
461	461	@Callable(i)
462	462	func sellResources (amounts,minPrices) = {
463	463	let blocked = checkBlocked()
464	464	if ((blocked == blocked))
465	465	then {
466	466	let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
467	467	if ((size(i.payments) != 0))
468	468	then throw("sellResources doesn't require any payments")
469	469	else {
470	470	let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
471	471	if ((curLocation[locIdxType] != "F"))
472	472	then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
473	473	else {
474	474	let locId = curLocation[locIdxId]
475	475	let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
476	476	let resList = split(currentPack[bpIdxRes], "_")
477	477	func adder (acc,j) = if ((amounts[j] > parseIntValue(resList[j])))
478	478	then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j])))
479	479	else if ((0 > amounts[j]))
480	480	then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j])))
481	481	else if ((amounts[j] > 0))
482	482	then {
483	483	let b = sellInternal(locId, j, amounts[j], minPrices[j])
484	484	$Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2))
485	485	}
486	486	else $Tuple3(acc._1, (acc._2 :+ resList[j]), acc._3)
487	487
488	488	let merged = {
489	489	let $l = [0, 1, 2, 3, 4, 5]
490	490	let $s = size($l)
491	491	let $acc0 = $Tuple3(nil, nil, 0)
492	492	func $f0_1 ($a,$i) = if (($i >= $s))
493	493	then $a
494	494	else adder($a, $l[$i])
495	495
496	496	func $f0_2 ($a,$i) = if (($i >= $s))
497	497	then $a
498	498	else throw("List size exceeds 6")
499	499
500	500	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)

github/deemru/w8io/026f985 
123.82 ms ◑