w8 · tx · B8v···EAY

tx · B8vJvYsJ28VXeNALv6AxiAaYbAdG7YL6RNst99G9qEAY

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.03200000 Waves

2023.05.30 02:16 [2599919] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "B8vJvYsJ28VXeNALv6AxiAaYbAdG7YL6RNst99G9qEAY",
    "fee": 3200000,
    "feeAssetId": null,
    "timestamp": 1685402188271,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "58sYAjY5o2vb6sLXV8VYt66CKkaZeR6gNBBjxvGtvRd3xm79fJ4Vy9diPgRVyLkMqdRPd7WKH6LoF4cH4qmwaSLh"
    ],
    "script": "base64:BgIxCAISBAoCCBgSAwoBCBIECgIRERIECgIRERIDCgEREgQKAgEBEgQKAggIEgUKAwgICFkAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDcAgK3iBAAFTVVMVDgAgMLXLwAGTVVMVDEwAIDIr6AlAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAAQxnZXRJbnRPckVsc2UCA2tleQpkZWZhdWx0VmFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFA2tleQUKZGVmYXVsdFZhbAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgAUSWR4Q2ZnR292ZXJuYW5jZURhcHAAAwEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EABk5VTVJFUwAGABNGQUNUT1JZTUFYV0FSRUhPVVNFAIDIr6AlABBSRVNPVVJDRVBSSUNFTUlOANW1AgAKTUlOUEFZTUVOVACQTgAOU0VMTE1VTFRJUExJRVIAyAEADUJVWU1VTFRJUExJRVIArAIACkxBTkRQUkVGSVgCBExBTkQACkRVQ0tQUkVGSVgCBERVQ0sADFdITVVMVElQTElFUgCAyK+gJQAKQVVDVElPTkZFRQCQTgAOTUlOU0hPUFBBWU1FTlQAoI0GAAhyZXNUeXBlcwkAzAgCAgNPaWwJAMwIAgIDT3JlCQDMCAICBFdvb2QJAMwIAgIEU2FuZAkAzAgCAgRDbGF5CQDMCAICB09yZ2FuaWMFA25pbAAIbWF0VHlwZXMJAMwIAgIERnVlbAkAzAgCAgVNZXRhbAkAzAgCAgVQbGFuawkAzAgCAgVHbGFzcwkAzAgCAgdQbGFzdGljCQDMCAICB1Byb3RlaW4FA25pbAAJcHJvZFR5cGVzCQDMCAICDUZpcnN0IEFpZCBLaXQJAMwIAgIIQmFja3BhY2sJAMwIAgILRm9vZCBSYXRpb24JAMwIAgIISmV0IFBhY2sJAMwIAgIGU2hpZWxkBQNuaWwACmNvbnRpbmVudHMJAMwIAgIIQW1lcmljYXMJAMwIAgIGRXVyb3BlCQDMCAICBEFzaWEJAMwIAgIGQWZyaWNhCQDMCAICB09jZWFuaWEFA25pbAAQcHJvZHVjdGlvbk1hdHJpeAkAzAgCAhIxXzFfMV8yXzJfNV8xXzEwXzAJAMwIAgITMl8yXzJfNF80XzEwXzFfMTBfMAkAzAgCAhMzXzNfM182XzZfMTVfMV8xMF8wCQDMCAICEzJfNV81XzJfN181XzJfMTAwXzEJAMwIAgIXNF8xMF8xMF80XzE0XzEwXzJfMTAwXzEJAMwIAgIXNl8xNV8xNV82XzIxXzE1XzJfMTAwXzEJAMwIAgISMV8xXzFfMV8xXzhfMV8xMF8yCQDMCAICEzJfMl8yXzJfMl8xNl8xXzEwXzIJAMwIAgITM18zXzNfM18zXzI0XzFfMTBfMgkAzAgCAhM5XzlfMV81XzVfMV81XzEwMF8zCQDMCAICFzE4XzE4XzJfMTBfMTBfMl81XzEwMF8zCQDMCAICFzI3XzI3XzNfMTVfMTVfM181XzEwMF8zCQDMCAICEjJfMl8xXzJfMl8yXzFfMTBfNAkAzAgCAhI0XzRfMl80XzRfNF8xXzEwXzQJAMwIAgISNl82XzNfNl82XzZfMV8xMF80BQNuaWwAD2NvbnRJZHhBbWVyaWNhcwAAAA1jb250SWR4RXVyb3BlAAEAC2NvbnRJZHhBc2lhAAIADWNvbnRJZHhBZnJpY2EAAwAOY29udElkeE9jZWFuaWEABAANcmVjaXBlSWR4RnVlbAAAAA5yZWNpcGVJZHhNZXRhbAABAA5yZWNpcGVJZHhQbGFuawACAA5yZWNpcGVJZHhHbGFzcwADABByZWNpcGVJZHhQbGFzdGljAAQAEHJlY2lwZUlkeFByb3RlaW4ABQAPcmVjaXBlSWR4V2VpZ2h0AAYAEXJlY2lwZUlkeFBhY2tzaXplAAcAEnJlY2lwZUlkeENvbnRpbmVudAAIAR5rZXlGYWN0b3J5V2FyZWhvdXNlQnlJZEFuZFR5cGUCCWZhY3RvcnlJZAdyZXNUeXBlCQCsAgIJAKwCAgkArAICAhtmYWN0b3J5V2hCeUNvbnRpbmVudEFuZFJlc18FCWZhY3RvcnlJZAIBXwkApAMBBQdyZXNUeXBlAQ5rZXlPcmRlckJ5TGFuZAELbGFuZEFzc2V0SWQJAKwCAgIKbGFuZE9yZGVyXwULbGFuZEFzc2V0SWQBFGtleVN0YWtlZER1Y2tCeU93bmVyAQlvd25lckFkZHIJAKwCAgISc3Rha2VkRHVja0J5T3duZXJfBQlvd25lckFkZHIBEWtleUJhY2twYWNrQnlEdWNrAQtkdWNrQXNzZXRJZAkArAICAgliYWNrUGFja18FC2R1Y2tBc3NldElkAQ9rZXlEdWNrTG9jYXRpb24BC2R1Y2tBc3NldElkCQCsAgICDWR1Y2tMb2NhdGlvbl8FC2R1Y2tBc3NldElkAQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtzdGFrZWRUaW1lXwUHYXNzZXRJZAEPa2V5QWRkcmVzc1JlZkJ5AQRhZGRyCQCsAgICCWFjY1JlZkJ5XwUEYWRkcgAPbG9jSWR4Q29udGluZW50AAAACmxvY0lkeFR5cGUAAQAIbG9jSWR4SWQAAgAKYnBJZHhMZXZlbAAAAAhicElkeFJlcwABAAhicElkeE1hdAACAAlicElkeFByb2QAAwALd2hJZHhMZXZlbHMAAAAId2hJZHhSZXMAAQAId2hJZHhNYXQAAgAJd2hJZHhQcm9kAAMACXdoSWR4TE9GVAAEAAl2b2xMb2NrZWQAAAALdm9sT2NjdXBpZWQAAQAHdm9sRnJlZQACAAh2b2xUb3RhbAADAAlvcmRJZHhSZXMAAAAJb3JkSWR4TWF0AAEACm9yZElkeFByb2QAAgEIYXNTdHJpbmcBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwBQFzCQACAQIYZmFpbCB0byBjYXN0IGludG8gU3RyaW5nAQhnZXRPcmRlcgEGb3JkS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUGb3JkS2V5AjAwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDowQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDoCAToJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQlvcmRJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQlvcmRJZHhSZXMCFzBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUJb3JkSWR4TWF0AgFfBQZOVU1SRVMJAJEDAgUBcAUJb3JkSWR4TWF0AhcwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMAkAzAgCCQCRAwIFAXAFCm9yZElkeFByb2QFA25pbAEIdG9Wb2x1bWUDBmFtb3VudAdwa2dTaXplCWlzUHJvZHVjdAMFCWlzUHJvZHVjdAQEcGtncwMJAGcCBQZhbW91bnQAAAkAaQIJAGUCCQBkAgUGYW1vdW50BQdwa2dTaXplAAEFB3BrZ1NpemUJAQEtAQkAaQIJAGUCCQBkAgkBAS0BBQZhbW91bnQFB3BrZ1NpemUAAQUHcGtnU2l6ZQkAaAIFBHBrZ3MFBU1VTFQ4BQZhbW91bnQBDHNlbGxJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2R0UmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgUOU0VMTE1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBkAgkAaAIAZAUCdzAJAGgCADIFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkdFJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZHRSZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZHRSZWNlaXZlZAELYnV5SW50ZXJuYWwEBWxvY0lkB21hdFR5cGUGYW1vdW50CG1heFByaWNlBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQdtYXRUeXBlBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABAJtMQMJAGYCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAlwMBCQDMCAIFBmFtb3VudAkAzAgCCQBlAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFA25pbAAABAJtMAkAlwMBCQDMCAIFAncwCQDMCAIJAGUCBQZhbW91bnQFAm0xBQNuaWwEAW0JAGQCBQJtMAUCbTEECXVzZHRTcGVudAkAZAIJAGsDBQJtMAkAZQIJAGgCBQ1CVVlNVUxUSVBMSUVSBRBSRVNPVVJDRVBSSUNFTUlOCQBrAwkAZQIJAGgCAGQFAncwCQBoAgAyBQJtMAUQUkVTT1VSQ0VQUklDRU1JTgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUGTVVMVDEwCQBrAwUCbTEJAGgCAAIFEFJFU09VUkNFUFJJQ0VNSU4FBU1VTFQ4BAZtYXgxMDEJAGQCBQhtYXhQcmljZQkAaQIFCG1heFByaWNlAGQDCQBmAgkAaAIFCXVzZHRTcGVudAUFTVVMVDgJAGgCBQZtYXgxMDEFAW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD0FjdHVhbCBwcmljZSA9IAkApAMBBQl1c2R0U3BlbnQCAyAvIAkApAMBBQFtAg4gPiBtYXhQcmljZSA9IAkApAMBBQhtYXhQcmljZQIDLCAoBQVsb2NJZAICLCAJAJEDAgUIbWF0VHlwZXMFB21hdFR5cGUCASkJAJUKAwkBDEludGVnZXJFbnRyeQIFBXdoS2V5CQBlAgUCdzAFAW0FCXVzZHRTcGVudAUBbQELZ2V0QmFja3BhY2sBBWJwS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoCAToJAMwIAgkApAMBCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgUBcAUKYnBJZHhMZXZlbAAACQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeFJlcwILMF8wXzBfMF8wXzAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4TWF0AgswXzBfMF8wXzBfMAkAzAgCCQCRAwIFAXAFCWJwSWR4UHJvZAUDbmlsAQxjaGVja0Jsb2NrZWQAAwkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ9zdGFraW5nQ29udHJhY3QJAQprZXlCbG9ja2VkAAcJAAIBAh9Db250cmFjdHMgYXJlIHVuZGVyIG1haW50ZW5hbmNlBQR1bml0AQlzZXRDb21tb24CA2FjYwRpdGVtBAFqCAUDYWNjAl8xBAZpc1Byb2QIBQNhY2MCXzgEB3BrZ1NpemUDBQZpc1Byb2QJAQ1wYXJzZUludFZhbHVlAQkAkQMCCQC1CQIJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUBagIBXwURcmVjaXBlSWR4UGFja3NpemUAAAQJaXRlbVBhcnRzCQC1CQIFBGl0ZW0CAUADCQECIT0CCQCQAwEFCWl0ZW1QYXJ0cwACCQACAQIuSW5jb3JyZWN0IG9yZGVyIGZvcm1hdCwgc2hvdWxkIGJlIGFtb3VudEBwcmljZQQIbmV3T3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAAQIbmV3T3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAQQJbmV3T3JkVXNkCQBrAwUIbmV3T3JkQW0FCG5ld09yZFByBQVNVUxUOAQJbmV3T3JkVm9sCQEIdG9Wb2x1bWUDBQhuZXdPcmRBbQUHcGtnU2l6ZQUGaXNQcm9kBAZ3aEluaXQDCQBmAgkAkAMBCAUDYWNjAl82BQFqCQENcGFyc2VJbnRWYWx1ZQEJAJEDAggFA2FjYwJfNgUBagAABAtjdXJPcmRQYXJ0cwkAtQkCAwkAZgIJAJADAQgFA2FjYwJfNwUBagkAkQMCCAUDYWNjAl83BQFqAgMwQDACAUAECGN1ck9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgULY3VyT3JkUGFydHMAAAQIY3VyT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwABAwMJAGYCAAAFCGN1ck9yZFByBgkAZgIAAAUIbmV3T3JkUHIJAAIBAhdQcmljZSBjYW4ndCBiZSBuZWdhdGl2ZQQJY3VyT3JkVXNkCQBrAwUIY3VyT3JkQW0FCGN1ck9yZFByBQVNVUxUOAQJY3VyT3JkVm9sCQEIdG9Wb2x1bWUDBQhjdXJPcmRBbQUHcGtnU2l6ZQUGaXNQcm9kAwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAmgoICQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUGd2hJbml0CAUDYWNjAl8zCAUDYWNjAl80CQBlAggFA2FjYwJfNQUJY3VyT3JkVXNkCAUDYWNjAl82CAUDYWNjAl83BQZpc1Byb2QJAJoKCAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQZ3aEluaXQFCGN1ck9yZEFtCAUDYWNjAl8zCAUDYWNjAl80CAUDYWNjAl81CAUDYWNjAl82CAUDYWNjAl83BQZpc1Byb2QDCQBmAgUIbmV3T3JkQW0AAAMJAGYCAAAFCGN1ck9yZEFtCQCaCggJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUGd2hJbml0BQhjdXJPcmRBbQkAZAIIBQNhY2MCXzMFCW5ld09yZFZvbAgFA2FjYwJfNAkAZAIIBQNhY2MCXzUFCW5ld09yZFVzZAgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQCaCggJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQZ3aEluaXQJAGQCCAUDYWNjAl8zBQluZXdPcmRWb2wIBQNhY2MCXzQJAGUCCQBkAggFA2FjYwJfNQUJbmV3T3JkVXNkBQljdXJPcmRVc2QIBQNhY2MCXzYIBQNhY2MCXzcFBmlzUHJvZAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGUCBQhjdXJPcmRBbQUIbmV3T3JkQW0DCQBmAgAACQBlAgUGd2hJbml0BQZhbURpZmYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQUGYW1EaWZmAhogZnJvbSB3YXJlaG91c2UsIGJ1dCBvbmx5IAkApAMBBQZ3aEluaXQCCiBhdmFpbGFibGUJAJoKCAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQZ3aEluaXQFBmFtRGlmZggFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAgFA2FjYwJfNQgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kAwkAZgIAAAkAZAIFBndoSW5pdAUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUGd2hJbml0AgogYXZhaWxhYmxlCQCaCggJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUGd2hJbml0BQhuZXdPcmRBbQgFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAkAZQIIBQNhY2MCXzUFCWN1ck9yZFVzZAgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kAQtzZXRJbnRlcm5hbAMJY3VycmVudFdoCmN1cnJlbnRPcmQGbmV3T3JkBAljdXJyV2hSZXMJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBAljdXJyV2hNYXQJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBApjdXJyV2hQcm9kAwkAAAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAAUDbmlsCQC1CQIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAV8EDWN1cnJlbnRPcmRSZXMJALUJAgkAkQMCBQpjdXJyZW50T3JkBQlvcmRJZHhSZXMCAV8EDWN1cnJlbnRPcmRNYXQJALUJAgkAkQMCBQpjdXJyZW50T3JkBQlvcmRJZHhNYXQCAV8EDmN1cnJlbnRPcmRQcm9kAwkAAAIJAJEDAgUKY3VycmVudE9yZAUKb3JkSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQpjdXJyZW50T3JkBQpvcmRJZHhQcm9kAgFfAwkBAiE9AgkAkAMBBQZuZXdPcmQAAwkAAgECNGNhcmdvTGlzdFN0ciBzaG91bGQgY29udGFpbiBleGFjdGx5IDIgJzonIHNlcGFyYXRvcnMECHJlc1BhcnRzCQC1CQIJAJEDAgUGbmV3T3JkAAACAV8ECG1hdFBhcnRzCQC1CQIJAJEDAgUGbmV3T3JkAAECAV8ECXByb2RQYXJ0cwMJAAACCQCRAwIFBm5ld09yZAACAgAFA25pbAkAtQkCCQCRAwIFBm5ld09yZAACAgFfAwkBAiE9AgkAkAMBBQhyZXNQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgcmVzb3VyY2VzIHNob3VsZCBiZSBwYXNzZWQDCQECIT0CCQCQAwEFCG1hdFBhcnRzBQZOVU1SRVMJAAIBAiBBbGwgNiBtYXRlcmlhbHMgc2hvdWxkIGJlIHBhc3NlZAQBcgoAAiRsBQhyZXNQYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJoKCAAABQNuaWwAAAAAAAAFCWN1cnJXaFJlcwUNY3VycmVudE9yZFJlcwcKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBbQoAAiRsBQhtYXRQYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJoKCAAABQNuaWwIBQFyAl8zCAUBcgJfNAgFAXICXzUFCWN1cnJXaE1hdAUNY3VycmVudE9yZE1hdAcKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBcAMJAQIhPQIJAJADAQUJcHJvZFBhcnRzAAAKAAIkbAUJcHJvZFBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAmgoIAAAFA25pbAgFAW0CXzMIBQFtAl80CAUBbQJfNQUKY3VycldoUHJvZAUOY3VycmVudE9yZFByb2QGCgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlzZXRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgkAmgoIAAAFCmN1cnJXaFByb2QIBQFtAl8zCAUBbQJfNAgFAW0CXzUFCmN1cnJXaFByb2QFDmN1cnJlbnRPcmRQcm9kBgkAmAoGCAUBcgJfMggFAW0CXzIIBQFwAl8yCAUBcAJfMwgFAXACXzQIBQFwAl81AQxhY2NlcHRDb21tb24CA2FjYwlicE9yZEl0ZW0EAWoIBQNhY2MCXzcEBmlzUHJvZAgFA2FjYwNfMTIEB3BrZ1NpemUDBQZpc1Byb2QJAQ1wYXJzZUludFZhbHVlAQkAkQMCCQC1CQIJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUBagIBXwURcmVjaXBlSWR4UGFja3NpemUAAAQKYnBPcmRQYXJ0cwkAtQkCBQlicE9yZEl0ZW0CAUADCQECIT0CCQCQAwEFCmJwT3JkUGFydHMAAgkAAgECLkluY29ycmVjdCBvcmRlciBmb3JtYXQsIHNob3VsZCBiZSBhbW91bnRAcHJpY2UEB2JwT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpicE9yZFBhcnRzAAAEB2JwT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpicE9yZFBhcnRzAAEDCQBmAgAABQdicE9yZFByCQACAQIXUHJpY2UgY2FuJ3QgYmUgbmVnYXRpdmUECGJwT3JkVXNkCQBrAwUHYnBPcmRBbQUHYnBPcmRQcgUFTVVMVDgEBmJwSW5pdAMJAGYCCQCQAwEIBQNhY2MCXzgFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl84BQFqAAAEBndoSW5pdAMJAGYCCQCQAwEIBQNhY2MCXzkFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl85BQFqAAAECndoT3JkUGFydHMJALUJAgkAkQMCCAUDYWNjA18xMAUBagIBQAQHd2hPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCndoT3JkUGFydHMAAAQHd2hPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCndoT3JkUGFydHMAAQMDCQECIT0CBQdicE9yZEFtAAAJAQIhPQIFB2JwT3JkUHIFB3doT3JkUHIHCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICClByaWNlcyBvZiAJAJEDAggFA2FjYwNfMTEFAWoCFyBkb24ndCBtYXRjaCEgV0ggcHJpY2U9CQCkAwEFB3doT3JkUHICDSwgeW91ciBwcmljZT0JAKQDAQUHYnBPcmRQcgQId2hPcmRVc2QJAGsDBQd3aE9yZEFtBQd3aE9yZFByBQVNVUxUOAQIZGVsdGFWb2wJAQh0b1ZvbHVtZQMFB2JwT3JkQW0FB3BrZ1NpemUFBmlzUHJvZAMJAAACBQdicE9yZEFtAAAJAJ4KDAkAzQgCCAUDYWNjAl8xCQCkAwEFBndoSW5pdAkAzQgCCAUDYWNjAl8yCQCRAwIIBQNhY2MDXzEwBQFqCQDNCAIIBQNhY2MCXzMJAKQDAQUGYnBJbml0CAUDYWNjAl80CAUDYWNjAl81CAUDYWNjAl82CQBkAggFA2FjYwJfNwABCAUDYWNjAl84CAUDYWNjAl85CAUDYWNjA18xMAgFA2FjYwNfMTEFBmlzUHJvZAMJAGYCBQdicE9yZEFtAAADCQBmAgAABQd3aE9yZEFtAwkAZgIFB2JwT3JkQW0JAQEtAQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BdHRlbXB0IHRvIGJ1eSAJAKQDAQUHYnBPcmRBbQIEIG9mIAkAkQMCCAUDYWNjA18xMQUBagIbLCBidXQgd2FyZWhvdXNlIG9ubHkgc2VsbHMgCQCkAwEJAQEtAQUHd2hPcmRBbQkAngoMCQDNCAIIBQNhY2MCXzEJAKQDAQUGd2hJbml0CQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUGYnBJbml0BQdicE9yZEFtCQBkAggFA2FjYwJfNAUIZGVsdGFWb2wIBQNhY2MCXzUJAGQCCAUDYWNjAl82BQhicE9yZFVzZAkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExBQZpc1Byb2QJAAIBCQCsAgIJAKwCAgIPQXR0ZW1wdCB0byBidXkgCQCRAwIIBQNhY2MDXzExBQFqAiAgd2hpbGUgd2FyZWhvdXNlIGRvZXNuJ3Qgc2VsbCBpdAMJAGYCBQd3aE9yZEFtAAADCQBmAgkBAS0BBQdicE9yZEFtBQd3aE9yZEFtCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAKQDAQkBAS0BBQdicE9yZEFtAgQgb2YgCQCRAwIIBQNhY2MDXzExBQFqAhosIGJ1dCB3YXJlaG91c2Ugb25seSBidXlzIAkApAMBBQd3aE9yZEFtAwkAZgIJAQEtAQUHYnBPcmRBbQUGYnBJbml0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAKQDAQkBAS0BBQdicE9yZEFtAhQsIGJ1dCB5b3Ugb25seSBoYXZlIAkApAMBBQZicEluaXQCBCBvZiAJAJEDAggFA2FjYwNfMTEFAWoJAJ4KDAkAzQgCCAUDYWNjAl8xCQCkAwEJAGUCBQZ3aEluaXQFB2JwT3JkQW0JAM0IAggFA2FjYwJfMgkArAICCQCsAgIJAKQDAQkAZAIFB3doT3JkQW0FB2JwT3JkQW0CAUAJAKQDAQUHd2hPcmRQcgkAzQgCCAUDYWNjAl8zCQCkAwEJAGQCBQZicEluaXQFB2JwT3JkQW0JAGUCCAUDYWNjAl80BQhkZWx0YVZvbAkAZQIIBQNhY2MCXzUFCGJwT3JkVXNkCAUDYWNjAl82CQBkAggFA2FjYwJfNwABCAUDYWNjAl84CAUDYWNjAl85CAUDYWNjA18xMAgFA2FjYwNfMTEFBmlzUHJvZAkAAgEJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCRAwIIBQNhY2MDXzExBQFqAh8gd2hpbGUgd2FyZWhvdXNlIGRvZXNuJ3QgYnV5IGl0CAFpARpyZWNhbGNMb2NrZWRWb2x1bWVSRUFET05MWQILbGFuZEFzc2V0SWQCd2gECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEJAQ5rZXlPcmRlckJ5TGFuZAEFC2xhbmRBc3NldElkBAF6CQELc2V0SW50ZXJuYWwDBQJ3aAUKY3VycmVudE9yZAUKY3VycmVudE9yZAkAlAoCBQNuaWwJAGQCCAUBegJfNAgFAXoCXzUBaQENY29uc3RydWN0b3JWMQEIcmVzdEFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBDXNlbGxSZXNvdXJjZXMCB2Ftb3VudHMJbWluUHJpY2VzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAipzZWxsUmVzb3VyY2VzIGRvZXNuJ3QgcmVxdWlyZSBhbnkgcGF5bWVudHMEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQFbG9jSWQJAJEDAgULY3VyTG9jYXRpb24FCGxvY0lkeElkBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB3Jlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8KAQVhZGRlcgIDYWNjAWoDCQBmAgkAkQMCBQdhbW91bnRzBQFqCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAglZb3UgaGF2ZSAJAJEDAgUHcmVzTGlzdAUBagIEIG9mIAkAkQMCBQhyZXNUeXBlcwUBagIULCBidXQgdHJpZWQgdG8gc2VsbCAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIAAAkAkQMCBQdhbW91bnRzBQFqCQACAQkArAICCQCsAgIJAKwCAgIlWW91IHRyaWVkIHRvIHNlbGwgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhyZXNUeXBlcwUBagICOiAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagAABAFiCQEMc2VsbEludGVybmFsBAUFbG9jSWQFAWoJAJEDAgUHYW1vdW50cwUBagkAkQMCBQltaW5QcmljZXMFAWoJAJUKAwkAzQgCCAUDYWNjAl8xCAUBYgJfMQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagkAkQMCBQdhbW91bnRzBQFqCQBkAggFA2FjYwJfMwgFAWICXzIJAJUKAwgFA2FjYwJfMQkAzQgCCAUDYWNjAl8yCQCRAwIFB3Jlc0xpc3QFAWoIBQNhY2MCXzMEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQZtZXJnZWQCXzICAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsCQCUCgIJAM0IAggFBm1lcmdlZAJfMQkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCAUGbWVyZ2VkAl8zBQt1c2R0QXNzZXRJZAUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDGJ1eU1hdGVyaWFscwIHYW1vdW50cwltYXhQcmljZXMEB2Jsb2NrZWQJAQxjaGVja0Jsb2NrZWQAAwkAAAIFB2Jsb2NrZWQFB2Jsb2NrZWQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBWxvY0lkCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfCgEIbVVwZGF0ZXICA2FjYwFqAwkAZgIAAAkAkQMCBQdhbW91bnRzBQFqCQACAQkArAICCQCsAgIJAKwCAgIkWW91IHRyaWVkIHRvIGJ1eSBuZWdhdGl2ZSBhbW91bnQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAgI6IAkApAMBCQCRAwIFB2Ftb3VudHMFAWoDCQBmAgkAkQMCBQdhbW91bnRzBQFqAAAEAWIJAQtidXlJbnRlcm5hbAQFBWxvY0lkBQFqCQCRAwIFB2Ftb3VudHMFAWoJAJEDAgUJbWF4UHJpY2VzBQFqCQCVCgMJAM0IAggFA2FjYwJfMQgFAWICXzEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB21hdExpc3QFAWoIBQFiAl8zCQBkAggFA2FjYwJfMwgFAWICXzIJAJUKAwgFA2FjYwJfMQkAzQgCCAUDYWNjAl8yCQCRAwIFB21hdExpc3QFAWoIBQNhY2MCXzMEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCG1VcGRhdGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAwkAZgIIBQZtZXJnZWQCXzMFA2FtdAkAAgEJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAKQDAQUDYW10AgssIHJlcXVpcmVkPQkApAMBCAUGbWVyZ2VkAl8zBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQC5CQIIBQZtZXJnZWQCXzICAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBARyZXN0AwkAZgIJAGUCBQNhbXQIBQZtZXJnZWQCXzMAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQNhbXQIBQZtZXJnZWQCXzMFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIIBQZtZXJnZWQCXzMAZAkAlAoCCQDNCAIJAM4IAggFBm1lcmdlZAJfMQUEcmVzdAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BRBhY3Rpdml0aWVzQW1vdW50BQt1c2R0QXNzZXRJZAUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEWV4Y2hhbmdlUmVzb3VyY2VzAQdhbW91bnRzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVsb2NJZAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwoBCWV4Y2hhbmdlcgIDYWNjAWoEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFAWoEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEA2FtagkAkQMCBQdhbW91bnRzBQFqAwkAZgIFA2FtagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCGCwgYnV0IHRyaWVkIHRvIGV4Y2hhbmdlIAkApAMBBQNhbWoDCQBmAgAABQNhbWoJAAIBCQCsAgIJAKwCAgkArAICAilZb3UgdHJpZWQgdG8gZXhjaGFuZ2UgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhyZXNUeXBlcwUBagICOiAJAKQDAQUDYW1qAwkAZgIFA2FtagAACQCWCgQJAM0IAggFA2FjYwJfMQkApAMBCQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoFA2FtagkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHbWF0TGlzdAUBagUDYW1qCQBkAggFA2FjYwJfMwkAawMFA2FtagUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgJAM0IAggFA2FjYwJfNAkBDEludGVnZXJFbnRyeQIFBXdoS2V5BQJ3MAkAlgoECQDNCAIIBQNhY2MCXzEJAJEDAgUHcmVzTGlzdAUBagkAzQgCCAUDYWNjAl8yCQCRAwIFB21hdExpc3QFAWoIBQNhY2MCXzMIBQNhY2MCXzQEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAUDbmlsAAAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJZXhjaGFuZ2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAwkAZgIIBQZtZXJnZWQCXzMFA2FtdAkAAgEJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAKQDAQUDYW10AgssIHJlcXVpcmVkPQkApAMBCAUGbWVyZ2VkAl8zBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQZtZXJnZWQCXzECAV8JAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQEcmVzdAMJAGYCCQBlAgUDYW10CAUGbWVyZ2VkAl8zAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10CAUGbWVyZ2VkAl8zBQt1c2R0QXNzZXRJZAUDbmlsBQNuaWwEEGFjdGl2aXRpZXNBbW91bnQJAGkCCAUGbWVyZ2VkAl8zAGQJAJQKAgkAzQgCCQDOCAIFBHJlc3QIBQZtZXJnZWQCXzQJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpjcmFmdEdvb2RzAgpwcm9kdWN0SWR4CHF1YW50aXR5BAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFBU1VTFQ2CQACAQIqZXhhY3RseSAxIFVTRFQgbXVzdCBiZSBhdHRhY2hlZCBhcyBwYXltZW50AwkAZwIAAAUIcXVhbnRpdHkJAAIBAhtRdWFudGl0eSBzaG91bGQgYmUgcG9zaXRpdmUEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBTQkAAgEJAKwCAgIxRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBNYW51ZmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQEY29udAkAkQMCBQtjdXJMb2NhdGlvbgUPbG9jSWR4Q29udGluZW50BAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8DAwkAZgIAAAUKcHJvZHVjdElkeAYJAGcCBQpwcm9kdWN0SWR4CQCQAwEFEHByb2R1Y3Rpb25NYXRyaXgJAAIBCQCsAgICFFVua25vd24gcHJvZHVjdCBpZHg9CQCkAwEFCnByb2R1Y3RJZHgEBnJlY2lwZQkAtQkCCQCRAwIFEHByb2R1Y3Rpb25NYXRyaXgFCnByb2R1Y3RJZHgCAV8DCQECIT0CCQCQAwEFBnJlY2lwZQkAZAIFBk5VTVJFUwADCQACAQkArAICAhdGYXRhbDogdW5rbm93biByZWNpcGU6IAkAkQMCBRBwcm9kdWN0aW9uTWF0cml4BQpwcm9kdWN0SWR4BA5wcm9kdWN0Q29udElkeAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBnJlY2lwZQUScmVjaXBlSWR4Q29udGluZW50AwkBAiE9AgkAkQMCBQpjb250aW5lbnRzBQ5wcm9kdWN0Q29udElkeAUEY29udAkAAgEJAKwCAgkArAICCQCsAgICHVRoaXMgcHJvZHVjdCBpcyBhdmFpbGFibGUgaW4gCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4AhEsIGJ1dCB5b3UgYXJlIGluIAUEY29udAQIcHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8KAQZmaWxsZXICA2FjYwtpZ25vcmVkSXRlbQQBbggFA2FjYwJfMgQCeHMDCQBmAgkAkAMBBQhwcm9kTGlzdAUBbgkAkQMCBQhwcm9kTGlzdAUBbgIBMAQBeAkBDXBhcnNlSW50VmFsdWUBBQJ4cwQGYW1vdW50CQBoAgUIcXVhbnRpdHkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFEXJlY2lwZUlkeFBhY2tzaXplBAF5AwkAAAIFAW4FCnByb2R1Y3RJZHgJAKQDAQkAZAIFAXgFBmFtb3VudAUCeHMJAJQKAgkAzQgCCAUDYWNjAl8xBQF5CQBkAgUBbgABBAZicFByb2QICgACJGwFEHByb2R1Y3Rpb25NYXRyaXgKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQZmaWxsZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgJfMQoBCHByb2R1Y2VyAgNhY2MBagQHbmVlZE1hdAkAaAIJAGgCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBQFqBQVNVUxUNwUIcXVhbnRpdHkEB2hhdmVNYXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqAwkAZgIFB25lZWRNYXQFB2hhdmVNYXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCVlvdSBoYXZlIAkAkQMCBQdtYXRMaXN0BQFqAgQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAhYsIGJ1dCByZWNpcGUgcmVxdWlyZXMgCQCkAwEFB25lZWRNYXQCDiBmb3IgcXVhbnRpdHkgCQCkAwEFCHF1YW50aXR5AwkAZgIFB25lZWRNYXQAAAkAzQgCBQNhY2MJAKQDAQkAZQIFB2hhdmVNYXQFB25lZWRNYXQJAM0IAgUDYWNjCQCRAwIFB21hdExpc3QFAWoEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCHByb2R1Y2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQC5CQIFBm1lcmdlZAIBXwkAzAgCCQC5CQIFBmJwUHJvZAIBXwUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCBQNuaWwFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFzZXRXYXJlaG91c2VPcmRlcgIMY2FyZ29MaXN0U3RyC2xhbmRBc3NldElkBAR1c2VyCAUBaQxvcmlnaW5DYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQGcmVzdWx0AwkBAiE9AgUEdXNlcgUMcmVzdENvbnRyYWN0CQEMY2hlY2tCbG9ja2VkAAcEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwMJAQIhPQIFBHVzZXIFDHJlc3RDb250cmFjdAkBAiE9AgUFb3duZXIFBGFkZHIHCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBApjYXJnb1BhcnRzCQC8CQIFDGNhcmdvTGlzdFN0cgIBOgQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQEbG9mdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBAp3aE9jY3VwaWVkCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAULdm9sT2NjdXBpZWQEBndoRnJlZQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGxvZnQFB3ZvbEZyZWUEBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEFBm9yZEtleQQBegkBC3NldEludGVybmFsAwUJY3VycmVudFdoBQpjdXJyZW50T3JkBQpjYXJnb1BhcnRzBAtidXlWb2xTYWxkbwgFAXoCXzQEDHNlbGxWb2xTYWxkbwgFAXoCXzUDCQBmAgULYnV5Vm9sU2FsZG8FBndoRnJlZQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgITQXR0ZW1wdCB0byByZXNlcnZlIAkApAMBBQtidXlWb2xTYWxkbwIgIHNwYWNlIGZvciBidXkgb3JkZXJzLCBidXQgb25seSAJAKQDAQUGd2hGcmVlAhsgd2FyZWhvdXNlIGVtcHR5IHNwYWNlIGxlZnQDCQBmAgUMc2VsbFZvbFNhbGRvBQp3aE9jY3VwaWVkCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIGxvY2sgCQCkAwEFDHNlbGxWb2xTYWxkbwIhIHNwYWNlIGZvciBzZWxsIG9yZGVycywgYnV0IG9ubHkgCQCkAwEFCndoT2NjdXBpZWQCGSB3YXJlaG91c2Ugc3BhY2Ugb2NjdXBpZWQEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXoCXzECAV8JAMwIAgkAuQkCCAUBegJfMgIBXwkAzAgCCQC5CQIIBQF6Al8zAgFfCQDMCAIJAKQDAQkAZAIFC2J1eVZvbFNhbGRvBQxzZWxsVm9sU2FsZG8FA25pbAIBOgQGd2hTYXZlCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwDCQAAAgUGd2hTYXZlBQZ3aFNhdmUECHVzZFNhbGRvCAUBegJfNgQHYWN0aW9ucwMJAGYCBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFCHVzZFNhbGRvCQACAQkArAICAhJQYXltZW50IG5lZWRlZCBpcyAJAKQDAQUIdXNkU2FsZG8JAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQxjYXJnb0xpc3RTdHIFA25pbAMJAAACBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhJObyBwYXltZW50cyBuZWVkZWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUFb3duZXIJAQEtAQUIdXNkU2FsZG8FC3VzZHRBc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwJAJQKAgUHYWN0aW9ucwUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFGFjY2VwdFdhcmVob3VzZU9yZGVyAwpicE9yZGVyU3RyC2xhbmRBc3NldElkC2R1Y2tBc3NldElkBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcgQKY2FsbGVyQWRkcgkApQgBBQZjYWxsZXIEEXN0YWtlZER1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQpjYWxsZXJBZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAtjdXJMb2NhdGlvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBRFzdGFrZWREdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OBANsb2MJALUJAgkBBXZhbHVlAQULY3VyTG9jYXRpb24CAV8DCQECIT0CCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIBTAkAAgEJAKwCAgkArAICAhZEdWNrIGxvY2F0aW9uIHR5cGUgaXMgCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIRLCBidXQgc2hvdWxkIGJlIEwDCQECIT0CBRFzdGFrZWREdWNrQXNzZXRJZAULZHVja0Fzc2V0SWQJAAIBCQCsAgIJAKwCAgkArAICAhRZb3VyIHN0YWtlZCBkdWNrIGlzIAURc3Rha2VkRHVja0Fzc2V0SWQCDSwgYnV0IHBhc3NlZCAFC2R1Y2tBc3NldElkBAlsYW5kQXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgICBE5GVCAIBQlsYW5kQXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQECWxhbmRPd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFCWxhbmRBc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQAAAgUJbGFuZE93bmVyBQpjYWxsZXJBZGRyCQACAQIeWW91IGNhbm5vdCB0cmFkZSB3aXRoIHlvdXJzZWxmBAxicE9yZGVyUGFydHMJALwJAgUKYnBPcmRlclN0cgIBOgMJAQIhPQIJAJADAQUMYnBPcmRlclBhcnRzAAMJAAIBAjJicE9yZGVyU3RyIHNob3VsZCBjb250YWluIGV4YWN0bHkgMiAnOicgc2VwYXJhdG9ycwQIYnBPcmRSZXMJALUJAgkAkQMCBQxicE9yZGVyUGFydHMAAAIBXwQIYnBPcmRNYXQJALUJAgkAkQMCBQxicE9yZGVyUGFydHMAAQIBXwQJYnBPcmRQcm9kAwkAAAIJAJEDAgUMYnBPcmRlclBhcnRzAAICAAUDbmlsCQC1CQIJAJEDAgUMYnBPcmRlclBhcnRzAAICAV8DCQECIT0CCQCQAwEFCGJwT3JkUmVzBQZOVU1SRVMJAAIBAiBBbGwgNiByZXNvdXJjZXMgc2hvdWxkIGJlIHBhc3NlZAMJAQIhPQIJAJADAQUIYnBPcmRNYXQFBk5VTVJFUwkAAgECIEFsbCA2IG1hdGVyaWFscyBzaG91bGQgYmUgcGFzc2VkBAJ3aAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCFGdldFdhcmVob3VzZVJFQURPTkxZCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAQJY3VycmVudFdoCQC8CQIFAndoAgE6BAljdXJyV2hSZXMJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBAljdXJyV2hNYXQJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBApjdXJyV2hQcm9kAwkAAAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAAUDbmlsCQC1CQIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAV8ED2N1cnJXaExvY2tlZFZvbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIJALUJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4TE9GVAIBXwUJdm9sTG9ja2VkBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQJYnBSZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAlicE1hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8ECmJwUHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8EBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQEBXdoT3JkCQEIZ2V0T3JkZXIBBQZvcmRLZXkECHdoT3JkUmVzCQC1CQIJAJEDAgUFd2hPcmQFCW9yZElkeFJlcwIBXwQId2hPcmRNYXQJALUJAgkAkQMCBQV3aE9yZAUJb3JkSWR4TWF0AgFfBAl3aE9yZFByb2QDCQAAAgkAkQMCBQV3aE9yZAUKb3JkSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQV3aE9yZAUKb3JkSWR4UHJvZAIBXwQBcgoAAiRsBQhicE9yZFJlcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJ4KDAUDbmlsBQNuaWwFA25pbAAAAAAAAAAABQlicFJlc0xpc3QFCWN1cnJXaFJlcwUId2hPcmRSZXMFCHJlc1R5cGVzBwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMYWNjZXB0Q29tbW9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAFtCgACJGwFCGJwT3JkTWF0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAngoMBQNuaWwFA25pbAUDbmlsCAUBcgJfNAgFAXICXzUIBQFyAl82AAAFCWJwTWF0TGlzdAUJY3VycldoTWF0BQh3aE9yZE1hdAUIbWF0VHlwZXMHCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhY2NlcHRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEAXADCQECIT0CCQCQAwEFCWJwT3JkUHJvZAAACgACJGwFCWJwT3JkUHJvZAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJ4KDAUDbmlsBQNuaWwFA25pbAgFAW0CXzQIBQFtAl81CAUBbQJfNgAABQpicFByb2RMaXN0BQpjdXJyV2hQcm9kBQl3aE9yZFByb2QFCXByb2RUeXBlcwYKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGFjY2VwdENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjJfMgIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyCQCeCgwFCmN1cnJXaFByb2QFCXdoT3JkUHJvZAUKYnBQcm9kTGlzdAgFAW0CXzQIBQFtAl81CAUBbQJfNgAABQpicFByb2RMaXN0BQpjdXJyV2hQcm9kBQl3aE9yZFByb2QFCXByb2RUeXBlcwYECHZvbFNhbGRvCAUBcAJfNAQMbmV3TG9ja2VkVm9sAwkAZgIAAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8AAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8EBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXICXzECAV8JAMwIAgkAuQkCCAUBbQJfMQIBXwkAzAgCCQC5CQIIBQFwAl8xAgFfCQDMCAIJAKQDAQUMbmV3TG9ja2VkVm9sBQNuaWwCAToEC25ld1doT3JkU3RyCQC6CQIJAMwIAgkAuQkCCAUBcgJfMgIBXwkAzAgCCQC5CQIIBQFtAl8yAgFfCQDMCAIJALkJAggFAXACXzICAV8FA25pbAIBOgQIbmV3QnBTdHIJALoJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJALkJAggFAXICXzMCAV8JAMwIAgkAuQkCCAUBbQJfMwIBXwkAzAgCCQC5CQIIBQFwAl8zAgFfBQNuaWwCAToEBndoU2F2ZQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDXNhdmVXYXJlaG91c2UJAMwIAgUFd2hTdHIJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsAwkAAAIFBndoU2F2ZQUGd2hTYXZlBAZicFNhdmUJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQhuZXdCcFN0cgUDbmlsBQNuaWwDCQAAAgUGYnBTYXZlBQZicFNhdmUEB2FjdGlvbnMJAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdXaE9yZFN0cgUDbmlsBA11c2RXaDJCcFNhbGRvCAUBcAJfNQQIYWN0aW9uczEDCQBmAgUNdXNkV2gyQnBTYWxkbwAABAt1c2RXaDJCcEZlZQkAawMIBQFwAl81BQpBVUNUSU9ORkVFBQVNVUxUNgQIcmVmQnlLZXkJAQ9rZXlBZGRyZXNzUmVmQnkBBQpjYWxsZXJBZGRyBAVyZWZCeQkAnQgCBQ9zdGFraW5nQ29udHJhY3QFCHJlZkJ5S2V5AwkBCWlzRGVmaW5lZAEFBXJlZkJ5CQDNCAIJAM0IAgkAzQgCBQdhY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIJAGUCCAUBcAJfNQkAaAIAAwULdXNkV2gyQnBGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZFdoMkJwRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQUFcmVmQnkFC3VzZFdoMkJwRmVlBQt1c2R0QXNzZXRJZAkAzQgCCQDNCAIFB2FjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgkAZQIIBQFwAl81CQBoAgADBQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAULdXNkV2gyQnBGZWUFC3VzZHRBc3NldElkBQdhY3Rpb25zBA11c2RCcDJXaFNhbGRvCAUBcAJfNgMJAGYCBQ11c2RCcDJXaFNhbGRvAAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQMJAQIhPQIFA2FtdAUNdXNkQnAyV2hTYWxkbwkAAgEJAKwCAgISUGF5bWVudCBuZWVkZWQgaXMgCQCkAwEFDXVzZEJwMldoU2FsZG8DCQBmAgUOTUlOU0hPUFBBWU1FTlQFA2FtdAkAAgEJAKwCAgIbUGF5bWVudCBzaG91bGQgYmUgYXQgbGVhc3QgCQCkAwEFDk1JTlNIT1BQQVlNRU5UBAt1c2RCcDJXaEZlZQkAawMIBQFwAl82BQpBVUNUSU9ORkVFBQVNVUxUNgQIcmVmQnlLZXkJAQ9rZXlBZGRyZXNzUmVmQnkBBQlsYW5kT3duZXIEBXJlZkJ5CQCdCAIFD3N0YWtpbmdDb250cmFjdAUIcmVmQnlLZXkDCQEJaXNEZWZpbmVkAQUFcmVmQnkJAM0IAgkAzQgCCQDNCAIFCGFjdGlvbnMxCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQlsYW5kT3duZXIJAGUCCAUBcAJfNgkAaAIAAwULdXNkQnAyV2hGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQUFcmVmQnkFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAkAzQgCCQDNCAIFCGFjdGlvbnMxCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQlsYW5kT3duZXIJAGUCCAUBcAJfNgkAaAIAAwULdXNkQnAyV2hGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECEk5vIHBheW1lbnRzIG5lZWRlZAUIYWN0aW9uczEJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4A9Z4Hvg==",
    "height": 2599919,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Fpuy5PgkmwqLJ9QXA5m2BBySV8TBEGSQEJhH2EFnvYXp
Next: 3wQ8pjGoxB995d3EYL98dkcif5V53i2GoLKQSw62f6sH

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

Old	New		Differences
216	216		else amount
217	217
218	218
219		-	func getWarehouseTotalVolume (volPrefix) = {
220		-	let parts = split(volPrefix, "_")
221		-	((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
222		-	}
223		-
224		-
225		-	func getWarehouseCurrGoodsVolume (currentWh) = {
226		-	let goods = currentWh[whIdxProd]
227		-	if ((goods == ""))
228		-	then 0
229		-	else {
230		-	func sum (acc,item) = {
231		-	let idx = acc._1
232		-	let pkgSize = parseIntValue(split(productionMatrix[idx], "_")[recipeIdxPacksize])
233		-	$Tuple2((idx + 1), (acc._2 + toVolume(parseIntValue(item), pkgSize, true)))
234		-	}
235		-
236		-	( let $l = split_4C(goods, "_")
237		-	let $s = size($l)
238		-	let $acc0 = $Tuple2(0, 0)
239		-	func $f0_1 ($a,$i) = if (($i >= $s))
240		-	then $a
241		-	else sum($a, $l[$i])
242		-
243		-	func $f0_2 ($a,$i) = if (($i >= $s))
244		-	then $a
245		-	else throw("List size exceeds 50")
246		-
247		-	$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))._2
248		-	}
249		-	}
250		-
251		-
252	219		func sellInternal (locId,resType,amount,minPrice) = {
253	220		let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
254	221		let w0 = valueOrElse(getInteger(whKey), 0)

348	315		}
349	316
350	317
	318	+	func setInternal (currentWh,currentOrd,newOrd) = {
	319	+	let currWhRes = split(currentWh[whIdxRes], "_")
	320	+	let currWhMat = split(currentWh[whIdxMat], "_")
	321	+	let currWhProd = if ((currentWh[whIdxProd] == ""))
	322	+	then nil
	323	+	else split(currentWh[whIdxProd], "_")
	324	+	let currentOrdRes = split(currentOrd[ordIdxRes], "_")
	325	+	let currentOrdMat = split(currentOrd[ordIdxMat], "_")
	326	+	let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
	327	+	then nil
	328	+	else split(currentOrd[ordIdxProd], "_")
	329	+	if ((size(newOrd) != 3))
	330	+	then throw("cargoListStr should contain exactly 2 ':' separators")
	331	+	else {
	332	+	let resParts = split(newOrd[0], "_")
	333	+	let matParts = split(newOrd[1], "_")
	334	+	let prodParts = if ((newOrd[2] == ""))
	335	+	then nil
	336	+	else split(newOrd[2], "_")
	337	+	if ((size(resParts) != NUMRES))
	338	+	then throw("All 6 resources should be passed")
	339	+	else if ((size(matParts) != NUMRES))
	340	+	then throw("All 6 materials should be passed")
	341	+	else {
	342	+	let r = {
	343	+	let $l = resParts
	344	+	let $s = size($l)
	345	+	let $acc0 = $Tuple8(0, nil, 0, 0, 0, currWhRes, currentOrdRes, false)
	346	+	func $f0_1 ($a,$i) = if (($i >= $s))
	347	+	then $a
	348	+	else setCommon($a, $l[$i])
	349	+
	350	+	func $f0_2 ($a,$i) = if (($i >= $s))
	351	+	then $a
	352	+	else throw("List size exceeds 6")
	353	+
	354	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	355	+	}
	356	+	let m = {
	357	+	let $l = matParts
	358	+	let $s = size($l)
	359	+	let $acc0 = $Tuple8(0, nil, r._3, r._4, r._5, currWhMat, currentOrdMat, false)
	360	+	func $f1_1 ($a,$i) = if (($i >= $s))
	361	+	then $a
	362	+	else setCommon($a, $l[$i])
	363	+
	364	+	func $f1_2 ($a,$i) = if (($i >= $s))
	365	+	then $a
	366	+	else throw("List size exceeds 6")
	367	+
	368	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	369	+	}
	370	+	let p = if ((size(prodParts) != 0))
	371	+	then {
	372	+	let $l = prodParts
	373	+	let $s = size($l)
	374	+	let $acc0 = $Tuple8(0, nil, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
	375	+	func $f2_1 ($a,$i) = if (($i >= $s))
	376	+	then $a
	377	+	else setCommon($a, $l[$i])
	378	+
	379	+	func $f2_2 ($a,$i) = if (($i >= $s))
	380	+	then $a
	381	+	else throw("List size exceeds 50")
	382	+
	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	+	}
	385	+	else $Tuple8(0, currWhProd, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
	386	+	$Tuple6(r._2, m._2, p._2, p._3, p._4, p._5)
	387	+	}
	388	+	}
	389	+	}
	390	+
	391	+
351	392		func acceptCommon (acc,bpOrdItem) = {
352	393		let j = acc._7
353	394		let isProd = acc._12

399	440		}
400	441		}
401	442		}
	443	+
	444	+
	445	+	@Callable(i)
	446	+	func recalcLockedVolumeREADONLY (landAssetId,wh) = {
	447	+	let currentOrd = getOrder(keyOrderByLand(landAssetId))
	448	+	let z = setInternal(wh, currentOrd, currentOrd)
	449	+	$Tuple2(nil, (z._4 + z._5))
	450	+	}
	451	+
402	452
403	453
404	454		@Callable(i)

717	767		then throw((LANDPREFIX + " is not yours"))
718	768		else {
719	769		let cargoParts = split_4C(cargoListStr, ":")
720		-	if ((size(cargoParts) != 3))
721		-	then throw("cargoListStr should contain exactly 2 ':' separators")
722		-	else {
723		-	let resParts = split(cargoParts[0], "_")
724		-	let matParts = split(cargoParts[1], "_")
725		-	let prodParts = if ((cargoParts[2] == ""))
726		-	then nil
727		-	else split(cargoParts[2], "_")
728		-	if ((size(resParts) != NUMRES))
729		-	then throw("All 6 resources should be passed")
730		-	else if ((size(matParts) != NUMRES))
731		-	then throw("All 6 materials should be passed")
732		-	else {
733		-	let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
734		-	let currentWh = split_4C(wh, ":")
735		-	let currWhRes = split(currentWh[whIdxRes], "_")
736		-	let currWhMat = split(currentWh[whIdxMat], "_")
737		-	let currWhProd = if ((currentWh[whIdxProd] == ""))
738		-	then nil
739		-	else split(currentWh[whIdxProd], "_")
740		-	let loft = split(currentWh[whIdxLOFT], "_")
741		-	let whOccupied = parseIntValue(loft[volOccupied])
742		-	let whFree = parseIntValue(loft[volFree])
743		-	let ordKey = keyOrderByLand(landAssetId)
744		-	let currentOrd = getOrder(ordKey)
745		-	let currentOrdRes = split(currentOrd[ordIdxRes], "_")
746		-	let currentOrdMat = split(currentOrd[ordIdxMat], "_")
747		-	let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
748		-	then nil
749		-	else split(currentOrd[ordIdxProd], "_")
750		-	let usdtNeed2Lock = 0
751		-	let r = {
752		-	let $l = resParts
753		-	let $s = size($l)
754		-	let $acc0 = $Tuple8(0, nil, 0, 0, 0, currWhRes, currentOrdRes, false)
755		-	func $f0_1 ($a,$i) = if (($i >= $s))
756		-	then $a
757		-	else setCommon($a, $l[$i])
758		-
759		-	func $f0_2 ($a,$i) = if (($i >= $s))
760		-	then $a
761		-	else throw("List size exceeds 6")
762		-
763		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
764		-	}
765		-	let m = {
766		-	let $l = matParts
767		-	let $s = size($l)
768		-	let $acc0 = $Tuple8(0, nil, r._3, r._4, r._5, currWhMat, currentOrdMat, false)
769		-	func $f1_1 ($a,$i) = if (($i >= $s))
770		-	then $a
771		-	else setCommon($a, $l[$i])
772		-
773		-	func $f1_2 ($a,$i) = if (($i >= $s))
774		-	then $a
775		-	else throw("List size exceeds 6")
776		-
777		-	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
778		-	}
779		-	let p = if ((size(prodParts) != 0))
780		-	then {
781		-	let $l = prodParts
782		-	let $s = size($l)
783		-	let $acc0 = $Tuple8(0, nil, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
784		-	func $f2_1 ($a,$i) = if (($i >= $s))
785		-	then $a
786		-	else setCommon($a, $l[$i])
787		-
788		-	func $f2_2 ($a,$i) = if (($i >= $s))
789		-	then $a
790		-	else throw("List size exceeds 50")
791		-
792		-	$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)
793		-	}
794		-	else $Tuple8(0, currWhProd, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
795		-	let buyVolSaldo = p._3
796		-	let sellVolSaldo = p._4
797		-	if ((buyVolSaldo > whFree))
798		-	then throw((((("Attempt to reserve " + toString(buyVolSaldo)) + " space for buy orders, but only ") + toString(whFree)) + " warehouse empty space left"))
799		-	else if ((sellVolSaldo > whOccupied))
800		-	then throw((((("Attempt to lock " + toString(sellVolSaldo)) + " space for sell orders, but only ") + toString(whOccupied)) + " warehouse space occupied"))
	770	+	let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
	771	+	let currentWh = split_4C(wh, ":")
	772	+	let loft = split(currentWh[whIdxLOFT], "_")
	773	+	let whOccupied = parseIntValue(loft[volOccupied])
	774	+	let whFree = parseIntValue(loft[volFree])
	775	+	let ordKey = keyOrderByLand(landAssetId)
	776	+	let currentOrd = getOrder(ordKey)
	777	+	let z = setInternal(currentWh, currentOrd, cargoParts)
	778	+	let buyVolSaldo = z._4
	779	+	let sellVolSaldo = z._5
	780	+	if ((buyVolSaldo > whFree))
	781	+	then throw((((("Attempt to reserve " + toString(buyVolSaldo)) + " space for buy orders, but only ") + toString(whFree)) + " warehouse empty space left"))
	782	+	else if ((sellVolSaldo > whOccupied))
	783	+	then throw((((("Attempt to lock " + toString(sellVolSaldo)) + " space for sell orders, but only ") + toString(whOccupied)) + " warehouse space occupied"))
	784	+	else {
	785	+	let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString(z._3, "_"), toString((buyVolSaldo + sellVolSaldo))], ":")
	786	+	let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
	787	+	if ((whSave == whSave))
	788	+	then {
	789	+	let usdSaldo = z._6
	790	+	let actions = if ((usdSaldo > 0))
	791	+	then if ((size(i.payments) != 1))
	792	+	then throw("exactly 1 payment must be attached")
801	793		else {
802		-	let whStr = makeString_2C([currentWh[whIdxLevels], makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_"), toString((buyVolSaldo + sellVolSaldo))], ":")
803		-	let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil)
804		-	if ((whSave == whSave))
805		-	then {
806		-	let usdSaldo = p._5
807		-	let actions = if ((usdSaldo > 0))
808		-	then if ((size(i.payments) != 1))
809		-	then throw("exactly 1 payment must be attached")
810		-	else {
811		-	let pmt = i.payments[0]
812		-	let amt = pmt.amount
813		-	let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
814		-	if ((pmtAssetId != usdtAssetId))
815		-	then throw("USDT payments only!")
816		-	else if ((amt != usdSaldo))
817		-	then throw(("Payment needed is " + toString(usdSaldo)))
818		-	else [StringEntry(ordKey, cargoListStr)]
819		-	}
820		-	else if ((usdSaldo == 0))
821		-	then if ((size(i.payments) != 0))
822		-	then throw("No payments needed")
823		-	else [StringEntry(ordKey, cargoListStr)]
824		-	else if ((size(i.payments) != 0))
825		-	then throw("No payments needed")
826		-	else [ScriptTransfer(addressFromStringValue(owner), -(usdSaldo), usdtAssetId), StringEntry(ordKey, cargoListStr)]
827		-	$Tuple2(actions, result)
828		-	}
829		-	else throw("Strict value is not equal to itself.")
	794	+	let pmt = i.payments[0]
	795	+	let amt = pmt.amount
	796	+	let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
	797	+	if ((pmtAssetId != usdtAssetId))
	798	+	then throw("USDT payments only!")
	799	+	else if ((amt != usdSaldo))
	800	+	then throw(("Payment needed is " + toString(usdSaldo)))
	801	+	else [StringEntry(ordKey, cargoListStr)]
830	802		}
	803	+	else if ((usdSaldo == 0))
	804	+	then if ((size(i.payments) != 0))
	805	+	then throw("No payments needed")
	806	+	else [StringEntry(ordKey, cargoListStr)]
	807	+	else if ((size(i.payments) != 0))
	808	+	then throw("No payments needed")
	809	+	else [ScriptTransfer(addressFromStringValue(owner), -(usdSaldo), usdtAssetId), StringEntry(ordKey, cargoListStr)]
	810	+	$Tuple2(actions, result)
831	811		}
832		-	}
	812	+	else throw("Strict value is not equal to itself.")
	813	+	}
833	814		}
834	815		}
835	816		}

895	876		let whOrdProd = if ((whOrd[ordIdxProd] == ""))
896	877		then nil
897	878		else split(whOrd[ordIdxProd], "_")
898		-	let usdtNeed2Lock = 0
899	879		let r = {
900	880		let $l = bpOrdRes
901	881		let $s = size($l)

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		-	func getWarehouseTotalVolume (volPrefix) = {
220		-	let parts = split(volPrefix, "_")
221		-	((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
222		-	}
223		-
224		-
225		-	func getWarehouseCurrGoodsVolume (currentWh) = {
226		-	let goods = currentWh[whIdxProd]
227		-	if ((goods == ""))
228		-	then 0
229		-	else {
230		-	func sum (acc,item) = {
231		-	let idx = acc._1
232		-	let pkgSize = parseIntValue(split(productionMatrix[idx], "_")[recipeIdxPacksize])
233		-	$Tuple2((idx + 1), (acc._2 + toVolume(parseIntValue(item), pkgSize, true)))
234		-	}
235		-
236		-	( let $l = split_4C(goods, "_")
237		-	let $s = size($l)
238		-	let $acc0 = $Tuple2(0, 0)
239		-	func $f0_1 ($a,$i) = if (($i >= $s))
240		-	then $a
241		-	else sum($a, $l[$i])
242		-
243		-	func $f0_2 ($a,$i) = if (($i >= $s))
244		-	then $a
245		-	else throw("List size exceeds 50")
246		-
247		-	$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))._2
248		-	}
249		-	}
250		-
251		-
252	219		func sellInternal (locId,resType,amount,minPrice) = {
253	220		let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
254	221		let w0 = valueOrElse(getInteger(whKey), 0)
255	222		let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
256	223		then 0
257	224		else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
258	225		then (FACTORYMAXWAREHOUSE - w0)
259	226		else amount
260	227		let usdtReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
261	228		let min99 = (minPrice - (minPrice / 100))
262	229		if (((min99 * amount) > (usdtReceived * MULT8)))
263	230		then throw((((((((((("Actual price = " + toString(usdtReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
264	231		else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdtReceived)
265	232		}
266	233
267	234
268	235		func buyInternal (locId,matType,amount,maxPrice) = {
269	236		let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
270	237		let w0 = valueOrElse(getInteger(whKey), 0)
271	238		let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
272	239		then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
273	240		else 0
274	241		let m0 = min([w0, (amount - m1)])
275	242		let m = (m0 + m1)
276	243		let usdtSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
277	244		let max101 = (maxPrice + (maxPrice / 100))
278	245		if (((usdtSpent * MULT8) > (max101 * m)))
279	246		then throw((((((((((("Actual price = " + toString(usdtSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
280	247		else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdtSpent, m)
281	248		}
282	249
283	250
284	251		func getBackpack (bpKey) = {
285	252		let p = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
286	253		[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
287	254		then p[bpIdxRes]
288	255		else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
289	256		then p[bpIdxMat]
290	257		else "0_0_0_0_0_0", p[bpIdxProd]]
291	258		}
292	259
293	260
294	261		func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
295	262		then throw("Contracts are under maintenance")
296	263		else unit
297	264
298	265
299	266		func setCommon (acc,item) = {
300	267		let j = acc._1
301	268		let isProd = acc._8
302	269		let pkgSize = if (isProd)
303	270		then parseIntValue(split(productionMatrix[j], "_")[recipeIdxPacksize])
304	271		else 0
305	272		let itemParts = split(item, "@")
306	273		if ((size(itemParts) != 2))
307	274		then throw("Incorrect order format, should be amount@price")
308	275		else {
309	276		let newOrdAm = parseIntValue(itemParts[0])
310	277		let newOrdPr = parseIntValue(itemParts[1])
311	278		let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
312	279		let newOrdVol = toVolume(newOrdAm, pkgSize, isProd)
313	280		let whInit = if ((size(acc._6) > j))
314	281		then parseIntValue(acc._6[j])
315	282		else 0
316	283		let curOrdParts = split(if ((size(acc._7) > j))
317	284		then acc._7[j]
318	285		else "0@0", "@")
319	286		let curOrdAm = parseIntValue(curOrdParts[0])
320	287		let curOrdPr = parseIntValue(curOrdParts[1])
321	288		if (if ((0 > curOrdPr))
322	289		then true
323	290		else (0 > newOrdPr))
324	291		then throw("Price can't be negative")
325	292		else {
326	293		let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
327	294		let curOrdVol = toVolume(curOrdAm, pkgSize, isProd)
328	295		if ((newOrdAm == 0))
329	296		then if ((curOrdAm > 0))
330	297		then $Tuple8((j + 1), (acc._2 :+ toString(whInit)), acc._3, acc._4, (acc._5 - curOrdUsd), acc._6, acc._7, isProd)
331	298		else $Tuple8((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), acc._3, acc._4, acc._5, acc._6, acc._7, isProd)
332	299		else if ((newOrdAm > 0))
333	300		then if ((0 > curOrdAm))
334	301		then $Tuple8((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), (acc._3 + newOrdVol), acc._4, (acc._5 + newOrdUsd), acc._6, acc._7, isProd)
335	302		else $Tuple8((j + 1), (acc._2 :+ toString(whInit)), (acc._3 + newOrdVol), acc._4, ((acc._5 + newOrdUsd) - curOrdUsd), acc._6, acc._7, isProd)
336	303		else if ((0 > curOrdAm))
337	304		then {
338	305		let amDiff = (curOrdAm - newOrdAm)
339	306		if ((0 > (whInit - amDiff)))
340	307		then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whInit)) + " available"))
341	308		else $Tuple8((j + 1), (acc._2 :+ toString((whInit - amDiff))), acc._3, (acc._4 - newOrdVol), acc._5, acc._6, acc._7, isProd)
342	309		}
343	310		else if ((0 > (whInit + newOrdAm)))
344	311		then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whInit)) + " available"))
345	312		else $Tuple8((j + 1), (acc._2 :+ toString((whInit + newOrdAm))), acc._3, (acc._4 - newOrdVol), (acc._5 - curOrdUsd), acc._6, acc._7, isProd)
346	313		}
347	314		}
348	315		}
349	316
350	317
	318	+	func setInternal (currentWh,currentOrd,newOrd) = {
	319	+	let currWhRes = split(currentWh[whIdxRes], "_")
	320	+	let currWhMat = split(currentWh[whIdxMat], "_")
	321	+	let currWhProd = if ((currentWh[whIdxProd] == ""))
	322	+	then nil
	323	+	else split(currentWh[whIdxProd], "_")
	324	+	let currentOrdRes = split(currentOrd[ordIdxRes], "_")
	325	+	let currentOrdMat = split(currentOrd[ordIdxMat], "_")
	326	+	let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
	327	+	then nil
	328	+	else split(currentOrd[ordIdxProd], "_")
	329	+	if ((size(newOrd) != 3))
	330	+	then throw("cargoListStr should contain exactly 2 ':' separators")
	331	+	else {
	332	+	let resParts = split(newOrd[0], "_")
	333	+	let matParts = split(newOrd[1], "_")
	334	+	let prodParts = if ((newOrd[2] == ""))
	335	+	then nil
	336	+	else split(newOrd[2], "_")
	337	+	if ((size(resParts) != NUMRES))
	338	+	then throw("All 6 resources should be passed")
	339	+	else if ((size(matParts) != NUMRES))
	340	+	then throw("All 6 materials should be passed")
	341	+	else {
	342	+	let r = {
	343	+	let $l = resParts
	344	+	let $s = size($l)
	345	+	let $acc0 = $Tuple8(0, nil, 0, 0, 0, currWhRes, currentOrdRes, false)
	346	+	func $f0_1 ($a,$i) = if (($i >= $s))
	347	+	then $a
	348	+	else setCommon($a, $l[$i])
	349	+
	350	+	func $f0_2 ($a,$i) = if (($i >= $s))
	351	+	then $a
	352	+	else throw("List size exceeds 6")
	353	+
	354	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	355	+	}
	356	+	let m = {
	357	+	let $l = matParts
	358	+	let $s = size($l)
	359	+	let $acc0 = $Tuple8(0, nil, r._3, r._4, r._5, currWhMat, currentOrdMat, false)
	360	+	func $f1_1 ($a,$i) = if (($i >= $s))
	361	+	then $a
	362	+	else setCommon($a, $l[$i])
	363	+
	364	+	func $f1_2 ($a,$i) = if (($i >= $s))
	365	+	then $a
	366	+	else throw("List size exceeds 6")
	367	+
	368	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	369	+	}
	370	+	let p = if ((size(prodParts) != 0))
	371	+	then {
	372	+	let $l = prodParts
	373	+	let $s = size($l)
	374	+	let $acc0 = $Tuple8(0, nil, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
	375	+	func $f2_1 ($a,$i) = if (($i >= $s))
	376	+	then $a
	377	+	else setCommon($a, $l[$i])
	378	+
	379	+	func $f2_2 ($a,$i) = if (($i >= $s))
	380	+	then $a
	381	+	else throw("List size exceeds 50")
	382	+
	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	+	}
	385	+	else $Tuple8(0, currWhProd, m._3, m._4, m._5, currWhProd, currentOrdProd, true)
	386	+	$Tuple6(r._2, m._2, p._2, p._3, p._4, p._5)
	387	+	}
	388	+	}
	389	+	}
	390	+
	391	+
351	392		func acceptCommon (acc,bpOrdItem) = {
352	393		let j = acc._7
353	394		let isProd = acc._12
354	395		let pkgSize = if (isProd)
355	396		then parseIntValue(split(productionMatrix[j], "_")[recipeIdxPacksize])
356	397		else 0
357	398		let bpOrdParts = split(bpOrdItem, "@")
358	399		if ((size(bpOrdParts) != 2))
359	400		then throw("Incorrect order format, should be amount@price")
360	401		else {
361	402		let bpOrdAm = parseIntValue(bpOrdParts[0])
362	403		let bpOrdPr = parseIntValue(bpOrdParts[1])
363	404		if ((0 > bpOrdPr))
364	405		then throw("Price can't be negative")
365	406		else {
366	407		let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8)
367	408		let bpInit = if ((size(acc._8) > j))
368	409		then parseIntValue(acc._8[j])
369	410		else 0
370	411		let whInit = if ((size(acc._9) > j))
371	412		then parseIntValue(acc._9[j])
372	413		else 0
373	414		let whOrdParts = split(acc._10[j], "@")
374	415		let whOrdAm = parseIntValue(whOrdParts[0])
375	416		let whOrdPr = parseIntValue(whOrdParts[1])
376	417		if (if ((bpOrdAm != 0))
377	418		then (bpOrdPr != whOrdPr)
378	419		else false)
379	420		then throw(((((("Prices of " + acc._11[j]) + " don't match! WH price=") + toString(whOrdPr)) + ", your price=") + toString(bpOrdPr)))
380	421		else {
381	422		let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8)
382	423		let deltaVol = toVolume(bpOrdAm, pkgSize, isProd)
383	424		if ((bpOrdAm == 0))
384	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)
385	426		else if ((bpOrdAm > 0))
386	427		then if ((0 > whOrdAm))
387	428		then if ((bpOrdAm > -(whOrdAm)))
388	429		then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + acc._11[j]) + ", but warehouse only sells ") + toString(-(whOrdAm))))
389	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)
390	431		else throw((("Attempt to buy " + acc._11[j]) + " while warehouse doesn't sell it"))
391	432		else if ((whOrdAm > 0))
392	433		then if ((-(bpOrdAm) > whOrdAm))
393	434		then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + acc._11[j]) + ", but warehouse only buys ") + toString(whOrdAm)))
394	435		else if ((-(bpOrdAm) > bpInit))
395	436		then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + toString(bpInit)) + " of ") + acc._11[j]))
396	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)
397	438		else throw((("Attempt to sell " + acc._11[j]) + " while warehouse doesn't buy it"))
398	439		}
399	440		}
400	441		}
401	442		}
	443	+
	444	+
	445	+	@Callable(i)
	446	+	func recalcLockedVolumeREADONLY (landAssetId,wh) = {
	447	+	let currentOrd = getOrder(keyOrderByLand(landAssetId))
	448	+	let z = setInternal(wh, currentOrd, currentOrd)
	449	+	$Tuple2(nil, (z._4 + z._5))
	450	+	}
	451	+
402	452
403	453
404	454		@Callable(i)
405	455		func constructorV1 (restAddr) = if ((i.caller != this))
406	456		then throw("Permission denied")
407	457		else [StringEntry(keyRestAddress(), restAddr)]
408	458
409	459
410	460
411	461		@Callable(i)
412	462		func sellResources (amounts,minPrices) = {
413	463		let blocked = checkBlocked()
414	464		if ((blocked == blocked))
415	465		then {
416	466		let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
417	467		if ((size(i.payments) != 0))

github/deemru/w8io/026f985 
112.63 ms ◑