tx · 57Z31gm4gtwy4AgrXUdV2p6tRJFX5X51bjNZutryTXft

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.02600000 Waves

2023.03.26 01:10 [2506103] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "57Z31gm4gtwy4AgrXUdV2p6tRJFX5X51bjNZutryTXft",
    "fee": 2600000,
    "feeAssetId": null,
    "timestamp": 1679782243338,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "336KsaewC5AwPL5UqGTW2qgwdCpHm5EEtdcNh5zXfMpPjreEy7MfurAEQ635NF77WbX2YbDeLjriW3RFE84wMFc7"
    ],
    "script": "base64:BgIqCAISAwoBCBIECgIRERIECgIRERIDCgEREgUKAwEBARIDCgEIEgQKAggIRwADU0VQAgJfXwAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAAZNVUxUMTAAgMivoCUABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2RuQXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEgtiYpwwT1zlORpA5LdSQvZIxRsfrfr1QpvUjSHSqyqtEDCQAAAgEBVAUHJG1hdGNoMAEg93bq9/eDymXbbhPuAjvPWCmVqcHRjfJL2mzYHWKAyN4JAAIBAg1Vbmtub3duIGNoYWluABVkZWZhdWx0UmVzdEFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQUUN1dkZidmg0TGtQVW5yblUxejNqbmJBMXA5bTNXTmh2AwkAAAIBAVQFByRtYXRjaDACIzNNdW1rR0d6dENLQVhwV0RxeGtkZG9mcVhTVWJxUWt2U0p5CQACAQINVW5rbm93biBjaGFpbgEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgABDGdldEludE9yRWxzZQIDa2V5CmRlZmF1bHRWYWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUDa2V5BQpkZWZhdWx0VmFsABFJZHhDZmdTdGFraW5nRGFwcAABABFJZHhDZmdFY29ub215RGFwcAACABRJZHhDZmdHb3Zlcm5hbmNlRGFwcAADAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9ERUZBVUxUTE9DQVRJT04CD0FmcmljYV9GX0FmcmljYQAGTlVNUkVTAAYAE0ZBQ1RPUllNQVhXQVJFSE9VU0UAgMivoCUAEFJFU09VUkNFUFJJQ0VNSU4A1dYJAApNSU5QQVlNRU5UAJBOAA5TRUxMTVVMVElQTElFUgDIAQANQlVZTVVMVElQTElFUgCsAgAKTEFORFBSRUZJWAIETEFORAAKRFVDS1BSRUZJWAIERFVDSwAMV0hNVUxUSVBMSUVSAIDIr6AlAAhyZXNUeXBlcwkAzAgCAgNPaWwJAMwIAgIDT3JlCQDMCAICBFdvb2QJAMwIAgIEU2FuZAkAzAgCAgRDbGF5CQDMCAICB09yZ2FuaWMFA25pbAAIbWF0VHlwZXMJAMwIAgIERnVlbAkAzAgCAgVNZXRhbAkAzAgCAgVQbGFuawkAzAgCAgVHbGFzcwkAzAgCAgdQbGFzdGljCQDMCAICB1Byb3RlaW4FA25pbAAKY29udGluZW50cwkAzAgCAghBbWVyaWNhcwkAzAgCAgZFdXJvcGUJAMwIAgIEQXNpYQkAzAgCAgZBZnJpY2EJAMwIAgIHT2NlYW5pYQUDbmlsABBwcm9kdWN0aW9uTWF0cml4CQDMCAICEDFfMV8xXzJfMl81XzFfMTAJAMwIAgIRMl81XzVfMl83XzVfMl8xMDAJAMwIAgIQMV8xXzFfMl8yXzVfMV8xMAkAzAgCAhE5XzlfMV81XzVfMV81XzEwMAkAzAgCAhExXzVfMV81XzVfMV8xXzEwMAUDbmlsAA9jb250SWR4QW1lcmljYXMAAAANY29udElkeEV1cm9wZQABAAtjb250SWR4QXNpYQACAA1jb250SWR4QWZyaWNhAAMADmNvbnRJZHhPY2VhbmlhAAQBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIJZmFjdG9yeUlkB3Jlc1R5cGUJAKwCAgkArAICCQCsAgICG2ZhY3RvcnlXaEJ5Q29udGluZW50QW5kUmVzXwUJZmFjdG9yeUlkAgFfCQCkAwEFB3Jlc1R5cGUBDmtleU9yZGVyQnlMYW5kAQtsYW5kQXNzZXRJZAkArAICAgpsYW5kT3JkZXJfBQtsYW5kQXNzZXRJZAEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQBCmtleUJsb2NrZWQAAhBjb250cmFjdHNCbG9ja2VkARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBB2Fzc2V0SWQJAKwCAgIJbmZ0T3duZXJfBQdhc3NldElkARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQdhc3NldElkCQCsAgICC3N0YWtlZFRpbWVfBQdhc3NldElkAA9sb2NJZHhDb250aW5lbnQAAAAKbG9jSWR4VHlwZQABAAhsb2NJZHhJZAACAApicElkeExldmVsAAAACGJwSWR4UmVzAAEACGJwSWR4TWF0AAIACWJwSWR4UHJvZAADAAh3aElkeFZvbAAAAAh3aElkeFJlcwABAAh3aElkeE1hdAACAAl3aElkeFByb2QAAwAOd2hJZHhMb2NrZWRWb2wABAAJb3JkSWR4UmVzAAAACW9yZElkeE1hdAABAApvcmRJZHhQcm9kAAIBCGFzU3RyaW5nAQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAUBcwkAAgECGGZhaWwgdG8gY2FzdCBpbnRvIFN0cmluZwEIZ2V0T3JkZXIBBm9yZEtleQQBcAkAtQkCCQELdmFsdWVPckVsc2UCCQCiCAEFBm9yZEtleQIwMEAwXzBAMF8wQDBfMEAwXzBAMF8wQDA6MEAwXzBAMF8wQDBfMEAwXzBAMF8wQDA6AgE6CQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUJb3JkSWR4UmVzAgFfBQZOVU1SRVMJAJEDAgUBcAUJb3JkSWR4UmVzAhcwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMAkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCW9yZElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAXAFCW9yZElkeE1hdAIXMEAwXzBAMF8wQDBfMEAwXzBAMF8wQDAJAMwIAgkAkQMCBQFwBQpvcmRJZHhQcm9kBQNuaWwBEmdldFdhcmVob3VzZVZvbHVtZQEJdm9sUHJlZml4BAVwYXJ0cwkAtQkCBQl2b2xQcmVmaXgCAV8JAGgCCQBoAgUMV0hNVUxUSVBMSUVSCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXBhcnRzAAEAAQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXBhcnRzAAABGWdldFdhcmVob3VzZUN1cnJSZXNWb2x1bWUBCWN1cnJlbnRXaAoBA3N1bQIDYWNjBGl0ZW0JAGQCBQNhY2MJAQ1wYXJzZUludFZhbHVlAQUEaXRlbQoAAiRsCQC1CQIJAJEDAgUJY3VycmVudFdoBQh3aElkeFJlcwIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDc3VtAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGARlnZXRXYXJlaG91c2VDdXJyTWF0Vm9sdW1lAQljdXJyZW50V2gKAQNzdW0CA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0KAAIkbAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8KAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA3N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgEbZ2V0V2FyZWhvdXNlQ3Vyckdvb2RzVm9sdW1lAQljdXJyZW50V2gEBWdvb2RzCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhQcm9kAwkAAAIFBWdvb2RzAgAAAAoBA3N1bQIDYWNjBGl0ZW0JAGQCBQNhY2MJAQ1wYXJzZUludFZhbHVlAQUEaXRlbQoAAiRsCQC8CQIFBWdvb2RzAgFfCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQNzdW0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgEMc2VsbEludGVybmFsBAVsb2NJZAdyZXNUeXBlBmFtb3VudAhtaW5QcmljZQQFd2hLZXkJAR5rZXlGYWN0b3J5V2FyZWhvdXNlQnlJZEFuZFR5cGUCBQVsb2NJZAUHcmVzVHlwZQQCdzAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUFd2hLZXkAAAQCcjADCQBmAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UAAAMJAGYCCQBkAgUCdzAFBmFtb3VudAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAZQIFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFAncwBQZhbW91bnQEDHVzZG5SZWNlaXZlZAkAZAIJAGsDBQJyMAkAZQIJAGgCBQ5TRUxMTVVMVElQTElFUgUQUkVTT1VSQ0VQUklDRU1JTgkAawMJAGQCCQBoAgBkBQJ3MAkAaAIAMgUCcjAFEFJFU09VUkNFUFJJQ0VNSU4FE0ZBQ1RPUllNQVhXQVJFSE9VU0UFBk1VTFQxMAkAawMJAGUCBQZhbW91bnQFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBQVNVUxUOAQFbWluOTkJAGUCBQhtaW5QcmljZQkAaQIFCG1pblByaWNlAGQDCQBmAgkAaAIFBW1pbjk5BQZhbW91bnQJAGgCBQx1c2RuUmVjZWl2ZWQFBU1VTFQ4CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BY3R1YWwgcHJpY2UgPSAJAKQDAQUMdXNkblJlY2VpdmVkAgMgLyAJAKQDAQUGYW1vdW50Ag4gPCBtaW5QcmljZSA9IAkApAMBBQhtaW5QcmljZQIDLCAoBQVsb2NJZAICLCAJAJEDAgUIcmVzVHlwZXMFB3Jlc1R5cGUCASkJAJQKAgkBDEludGVnZXJFbnRyeQIFBXdoS2V5CQBkAgUCdzAFBmFtb3VudAUMdXNkblJlY2VpdmVkAQtidXlJbnRlcm5hbAQFbG9jSWQHbWF0VHlwZQZhbW91bnQIbWF4UHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB21hdFR5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAm0xAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFCQCXAwEJAMwIAgUGYW1vdW50CQDMCAIJAGUCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQUDbmlsAAAEAm0wCQCXAwEJAMwIAgUCdzAJAMwIAgkAZQIFBmFtb3VudAUCbTEFA25pbAQBbQkAZAIFAm0wBQJtMQQJdXNkblNwZW50CQBkAgkAawMFAm0wCQBlAgkAaAIFDUJVWU1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBlAgkAaAIAZAUCdzAJAGgCADIFAm0wBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDBQJtMQkAaAIAAgUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBm1heDEwMQkAZAIFCG1heFByaWNlCQBpAgUIbWF4UHJpY2UAZAMJAGYCCQBoAgUJdXNkblNwZW50BQVNVUxUOAkAaAIFBm1heDEwMQUBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFCXVzZG5TcGVudAIDIC8gCQCkAwEFAW0CDiA+IG1heFByaWNlID0gCQCkAwEFCG1heFByaWNlAgMsICgFBWxvY0lkAgIsIAkAkQMCBQhtYXRUeXBlcwUHbWF0VHlwZQIBKQkAlQoDCQEMSW50ZWdlckVudHJ5AgUFd2hLZXkJAGUCBQJ3MAUBbQUJdXNkblNwZW50BQFtAQtnZXRCYWNrcGFjawEFYnBLZXkEAXAJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QFBWJwS2V5AhowOjBfMF8wXzBfMF8wOjBfMF8wXzBfMF8wOgIBOgkAzAgCCQCkAwEJAQt2YWx1ZU9yRWxzZQIJALYJAQkAkQMCBQFwBQpicElkeExldmVsAAAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeFJlcwIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4UmVzAgswXzBfMF8wXzBfMAkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCGJwSWR4TWF0AgFfBQZOVU1SRVMJAJEDAgUBcAUIYnBJZHhNYXQCCzBfMF8wXzBfMF8wCQDMCAIJAJEDAgUBcAUJYnBJZHhQcm9kBQNuaWwBDGNoZWNrQmxvY2tlZAADCQELdmFsdWVPckVsc2UCCQCbCAIFD3N0YWtpbmdDb250cmFjdAkBCmtleUJsb2NrZWQABwkAAgECH0NvbnRyYWN0cyBhcmUgdW5kZXIgbWFpbnRlbmFuY2UFBHVuaXQHAWkBDWNvbnN0cnVjdG9yVjEBCHJlc3RBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDmtleVJlc3RBZGRyZXNzAAUIcmVzdEFkZHIFA25pbAFpAQ1zZWxsUmVzb3VyY2VzAgdhbW91bnRzCW1pblByaWNlcwQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIqc2VsbFJlc291cmNlcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBWxvY0lkCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfCgEFYWRkZXICA2FjYwFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCFCwgYnV0IHRyaWVkIHRvIHNlbGwgCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJVlvdSB0cmllZCB0byBzZWxsIG5lZ2F0aXZlIGFtb3VudCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCAjogCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCCQCRAwIFB2Ftb3VudHMFAWoAAAQBYgkBDHNlbGxJbnRlcm5hbAQFBWxvY0lkBQFqCQCRAwIFB2Ftb3VudHMFAWoJAJEDAgUJbWluUHJpY2VzBQFqCQCVCgMJAM0IAggFA2FjYwJfMQgFAWICXzEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAJEDAgUHYW1vdW50cwUBagkAZAIIBQNhY2MCXzMIBQFiAl8yCQCVCgMIBQNhY2MCXzEJAM0IAggFA2FjYwJfMgkAkQMCBQdyZXNMaXN0BQFqCAUDYWNjAl8zBAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCCQDNCAIIBQZtZXJnZWQCXzEJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcggFBm1lcmdlZAJfMwULdXNkbkFzc2V0SWQFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQxidXlNYXRlcmlhbHMCB2Ftb3VudHMJbWF4UHJpY2VzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZG5Bc3NldElkCQACAQITVVNETiBwYXltZW50cyBvbmx5IQQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVsb2NJZAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwoBCG1VcGRhdGVyAgNhY2MBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJFlvdSB0cmllZCB0byBidXkgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhtYXRUeXBlcwUBagICOiAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagAABAFiCQELYnV5SW50ZXJuYWwEBQVsb2NJZAUBagkAkQMCBQdhbW91bnRzBQFqCQCRAwIFCW1heFByaWNlcwUBagkAlQoDCQDNCAIIBQNhY2MCXzEIBQFiAl8xCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqCAUBYgJfMwkAZAIIBQNhY2MCXzMIBQFiAl8yCQCVCgMIBQNhY2MCXzEJAM0IAggFA2FjYwJfMgkAkQMCBQdtYXRMaXN0BQFqCAUDYWNjAl8zBAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhtVXBkYXRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAGYCCAUGbWVyZ2VkAl8zBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQCkAwEFA2FtdAILLCByZXF1aXJlZD0JAKQDAQgFBm1lcmdlZAJfMwQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQEcmVzdAMJAGYCCQBlAgUDYW10CAUGbWVyZ2VkAl8zAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10CAUGbWVyZ2VkAl8zBQt1c2RuQXNzZXRJZAUDbmlsBQNuaWwJAJQKAgkAzggCCAUGbWVyZ2VkAl8xBQRyZXN0BQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQERZXhjaGFuZ2VSZXNvdXJjZXMBB2Ftb3VudHMEB2Jsb2NrZWQJAQxjaGVja0Jsb2NrZWQAAwkAAAIFB2Jsb2NrZWQFB2Jsb2NrZWQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAULdXNkbkFzc2V0SWQJAAIBAhNVU0ROIHBheW1lbnRzIG9ubHkhBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBWxvY0lkCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfCgEJZXhjaGFuZ2VyAgNhY2MBagQFd2hLZXkJAR5rZXlGYWN0b3J5V2FyZWhvdXNlQnlJZEFuZFR5cGUCBQVsb2NJZAUBagQCdzAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUFd2hLZXkAAAQDYW1qCQCRAwIFB2Ftb3VudHMFAWoDCQBmAgUDYW1qCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAglZb3UgaGF2ZSAJAJEDAgUHcmVzTGlzdAUBagIEIG9mIAkAkQMCBQhyZXNUeXBlcwUBagIYLCBidXQgdHJpZWQgdG8gZXhjaGFuZ2UgCQCkAwEFA2FtagMJAGYCAAAFA2FtagkAAgEJAKwCAgkArAICCQCsAgICKVlvdSB0cmllZCB0byBleGNoYW5nZSBuZWdhdGl2ZSBhbW91bnQgb2YgCQCRAwIFCHJlc1R5cGVzBQFqAgI6IAkApAMBBQNhbWoDCQBmAgUDYW1qAAAJAJYKBAkAzQgCCAUDYWNjAl8xCQCkAwEJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagUDYW1qCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqBQNhbWoJAGQCCAUDYWNjAl8zCQBrAwUDYW1qBRBSRVNPVVJDRVBSSUNFTUlOBQVNVUxUOAkAzQgCCAUDYWNjAl80CQEMSW50ZWdlckVudHJ5AgUFd2hLZXkFAncwCQCWCgQJAM0IAggFA2FjYwJfMQkAkQMCBQdyZXNMaXN0BQFqCQDNCAIIBQNhY2MCXzIJAJEDAgUHbWF0TGlzdAUBaggFA2FjYwJfMwgFA2FjYwJfNAQGbWVyZ2VkCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQNuaWwAAAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlleGNoYW5nZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYDCQBmAggFBm1lcmdlZAJfMwUDYW10CQACAQkArAICCQCsAgIJAKwCAgIfSW5zdWZmaWNpZW50IHBheW1lbnQhIEF0dGFjaGVkPQkApAMBBQNhbXQCCywgcmVxdWlyZWQ9CQCkAwEIBQZtZXJnZWQCXzMEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJALkJAggFBm1lcmdlZAJfMQIBXwkAzAgCCQC5CQIIBQZtZXJnZWQCXzICAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBARyZXN0AwkAZgIJAGUCBQNhbXQIBQZtZXJnZWQCXzMAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQNhbXQIBQZtZXJnZWQCXzMFC3VzZG5Bc3NldElkBQNuaWwFA25pbAkAlAoCCQDOCAIFBHJlc3QIBQZtZXJnZWQCXzQFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhidXlHb29kcwMKcHJvZHVjdElkeAVsZXZlbAhxdWFudGl0eQQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECJWJ1eUdvb2RzIGRvZXNuJ3QgcmVxdWlyZSBhbnkgcGF5bWVudHMDCQBmAgAABQhxdWFudGl0eQkAAgECG1F1YW50aXR5IHNob3VsZCBiZSBwb3NpdGl2ZQQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFNCQACAQkArAICAjFEdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIE1hbnVmYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBARjb250CQCRAwIFC2N1ckxvY2F0aW9uBQ9sb2NJZHhDb250aW5lbnQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwMDCQBmAgAABQpwcm9kdWN0SWR4BgkAZwIFCnByb2R1Y3RJZHgJAJADAQUQcHJvZHVjdGlvbk1hdHJpeAkAAgEJAKwCAgIUVW5rbm93biBwcm9kdWN0IGlkeD0JAKQDAQUKcHJvZHVjdElkeAQOcHJvZHVjdENvbnRJZHgJAGoCBQpwcm9kdWN0SWR4CQCQAwEFCmNvbnRpbmVudHMDCQECIT0CCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4BQRjb250CQACAQkArAICCQCsAgIJAKwCAgIdVGhpcyBwcm9kdWN0IGlzIGF2YWlsYWJsZSBpbiAJAJEDAgUKY29udGluZW50cwUOcHJvZHVjdENvbnRJZHgCESwgYnV0IHlvdSBhcmUgaW4gBQRjb250BAZyZWNpcGUJALUJAgkAkQMCBRBwcm9kdWN0aW9uTWF0cml4BQpwcm9kdWN0SWR4AgFfAwkBAiE9AgkAkAMBBQZyZWNpcGUJAGQCBQZOVU1SRVMAAgkAAgEJAKwCAgIXRmF0YWw6IHVua25vd24gcmVjaXBlOiAJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUKcHJvZHVjdElkeAQIcHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8KAQZmaWxsZXICA2FjYwtpZ25vcmVkSXRlbQQBbggFA2FjYwJfMgQBeAMJAGYCCQCQAwEFCHByb2RMaXN0BQFuCQC1CQIJAJEDAgUIcHJvZExpc3QFAW4CASwJAMwIAgIBMAkAzAgCAgEwCQDMCAICATAFA25pbAQDeDFzCQCRAwIFAXgAAAQCeDEJAQ1wYXJzZUludFZhbHVlAQUDeDFzBAN4MnMJAJEDAgUBeAABBAJ4MgkBDXBhcnNlSW50VmFsdWUBBQN4MnMEA3gzcwkAkQMCBQF4AAIEAngzCQENcGFyc2VJbnRWYWx1ZQEFA3gzcwQGYW1vdW50CQBoAgUIcXVhbnRpdHkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUABwQBeQMJAAACBQFuBQpwcm9kdWN0SWR4BAckbWF0Y2gwBQVsZXZlbAMJAAACAAEFByRtYXRjaDAJAKwCAgkArAICCQCsAgIJAKwCAgkApAMBCQBkAgUCeDEFBmFtb3VudAIBLAUDeDJzAgEsBQN4M3MDCQAAAgACBQckbWF0Y2gwCQCsAgIJAKwCAgkArAICCQCsAgIFA3gxcwIBLAkApAMBCQBkAgUCeDIFBmFtb3VudAIBLAUDeDNzAwkAAAIAAwUHJG1hdGNoMAkArAICCQCsAgIJAKwCAgkArAICBQN4MXMCASwFA3gycwIBLAkApAMBCQBkAgUCeDMFBmFtb3VudAkAAgEJAKwCAgIiUHJvZHVjdCBsZXZlbCBzaG91bGQgYmUgMS4uMywgbm90IAkApAMBBQVsZXZlbAkArAICCQCsAgIJAKwCAgkArAICBQN4MXMCASwFA3gycwIBLAUDeDNzCQCUCgIJAM0IAggFA2FjYwJfMQUBeQkAZAIFAW4AAQQGYnBQcm9kCAoAAiRsBRBwcm9kdWN0aW9uTWF0cml4CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEGZmlsbGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADICXzEKAQhwcm9kdWNlcgIDYWNjAWoEB25lZWRNYXQJAGgCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBQFqBQhxdWFudGl0eQQHaGF2ZU1hdAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB21hdExpc3QFAWoDCQBmAgUHbmVlZE1hdAUHaGF2ZU1hdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB21hdExpc3QFAWoCBCBvZiAJAJEDAgUIbWF0VHlwZXMFAWoCFiwgYnV0IHJlY2lwZSByZXF1aXJlcyAJAKQDAQUHbmVlZE1hdAIOIGZvciBxdWFudGl0eSAJAKQDAQUIcXVhbnRpdHkDCQBmAgUHbmVlZE1hdAAACQDNCAIFA2FjYwkApAMBCQBlAgUHaGF2ZU1hdAUHbmVlZE1hdAkAzQgCBQNhY2MJAJEDAgUHbWF0TGlzdAUBagQGbWVyZ2VkCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIcHJvZHVjZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQDMCAIJALkJAgUGbWVyZ2VkAgFfCQDMCAIJALkJAgUGYnBQcm9kAgFfBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsCQCUCgIFA25pbAUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFGFjY2VwdFNlcnZpY2VQYXltZW50AQdzZXJ2aWNlBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2RuQXNzZXRJZAkAAgECE1VTRE4gcGF5bWVudHMgb25seSEEBG5lZWQEByRtYXRjaDAFB3NlcnZpY2UDCQAAAgILTEFORF9SRU5BTUUFByRtYXRjaDAAgK3iBAkAAgECEFVua25vd24gc2VydmljZSEDCQECIT0CBQNhbXQFBG5lZWQJAAIBCQCsAgIJAKwCAgkArAICBQdzZXJ2aWNlAgcgY29zdHMgCQCkAwEFBG5lZWQCBSBVU0ROCQCUCgIFA25pbAUDYW10CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEXNldFdhcmVob3VzZU9yZGVyAgxjYXJnb0xpc3RTdHILbGFuZEFzc2V0SWQEBHVzZXIIBQFpDG9yaWdpbkNhbGxlcgQEYWRkcgkApQgBBQR1c2VyBAVhc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFC2xhbmRBc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQRhZGRyCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBApjYXJnb1BhcnRzCQC8CQIFDGNhcmdvTGlzdFN0cgIBOgMJAQIhPQIJAJADAQUKY2FyZ29QYXJ0cwADCQACAQI0Y2FyZ29MaXN0U3RyIHNob3VsZCBjb250YWluIGV4YWN0bHkgMiAnOicgc2VwYXJhdG9ycwQIcmVzUGFydHMJALUJAgkAkQMCBQpjYXJnb1BhcnRzAAACAV8ECG1hdFBhcnRzCQC1CQIJAJEDAgUKY2FyZ29QYXJ0cwABAgFfBAlwcm9kUGFydHMDCQAAAgkAkQMCBQpjYXJnb1BhcnRzAAICAAUDbmlsCQC1CQIJAJEDAgUKY2FyZ29QYXJ0cwACAgFfAwkBAiE9AgkAkAMBBQhyZXNQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgcmVzb3VyY2VzIHNob3VsZCBiZSBwYXNzZWQDCQECIT0CCQCQAwEFCG1hdFBhcnRzBQZOVU1SRVMJAAIBAiBBbGwgNiBtYXRlcmlhbHMgc2hvdWxkIGJlIHBhc3NlZAQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQJY3VycldoUmVzCQC1CQIJAJEDAgUJY3VycmVudFdoBQh3aElkeFJlcwIBXwQJY3VycldoTWF0CQC1CQIJAJEDAgUJY3VycmVudFdoBQh3aElkeE1hdAIBXwQKY3VycldoUHJvZAMJAAACCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhQcm9kAgFfBAxjdXJyV2hSZXNWb2wJARlnZXRXYXJlaG91c2VDdXJyUmVzVm9sdW1lAQUJY3VycmVudFdoBAxjdXJyV2hNYXRWb2wJARlnZXRXYXJlaG91c2VDdXJyTWF0Vm9sdW1lAQUJY3VycmVudFdoBA5jdXJyV2hHb29kc1ZvbAkBG2dldFdhcmVob3VzZUN1cnJHb29kc1ZvbHVtZQEFCWN1cnJlbnRXaAQPY3VycldoTG9ja2VkVm9sCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJY3VycmVudFdoBQ53aElkeExvY2tlZFZvbAQLd2hTcGFjZUxlZnQJAGUCCQBlAgkAZQIJAGUCCQESZ2V0V2FyZWhvdXNlVm9sdW1lAQkAkQMCBQljdXJyZW50V2gFCHdoSWR4Vm9sBQxjdXJyV2hSZXNWb2wFDGN1cnJXaE1hdFZvbAUOY3VycldoR29vZHNWb2wFD2N1cnJXaExvY2tlZFZvbAQGb3JkS2V5CQEOa2V5T3JkZXJCeUxhbmQBBQtsYW5kQXNzZXRJZAQKY3VycmVudE9yZAkBCGdldE9yZGVyAQUGb3JkS2V5BA1jdXJyZW50T3JkUmVzCQC1CQIJAJEDAgUKY3VycmVudE9yZAUJb3JkSWR4UmVzAgFfBA1jdXJyZW50T3JkTWF0CQC1CQIJAJEDAgUKY3VycmVudE9yZAUJb3JkSWR4TWF0AgFfBA5jdXJyZW50T3JkUHJvZAMJAAACCQCRAwIFCmN1cnJlbnRPcmQFCm9yZElkeFByb2QCAAUDbmlsCQC1CQIJAJEDAgUKY3VycmVudE9yZAUKb3JkSWR4UHJvZAIBXwQNdXNkbk5lZWQyTG9jawAACgEEb3JkUgIDYWNjBGl0ZW0EAWoIBQNhY2MCXzEECWl0ZW1QYXJ0cwkAtQkCBQRpdGVtAgFAAwkBAiE9AgkAkAMBBQlpdGVtUGFydHMAAgkAAgECLkluY29ycmVjdCBvcmRlciBmb3JtYXQsIHNob3VsZCBiZSBhbW91bnRAcHJpY2UECG5ld09yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJaXRlbVBhcnRzAAAECG5ld09yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJaXRlbVBhcnRzAAEECW5ld09yZFVzZAkAawMFCG5ld09yZEFtBQhuZXdPcmRQcgUFTVVMVDgEA3docgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWN1cnJXaFJlcwUBagQLY3VyT3JkUGFydHMJALUJAgkAkQMCBQ1jdXJyZW50T3JkUmVzBQFqAgFABAhjdXJPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFC2N1ck9yZFBhcnRzAAAECGN1ck9yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgULY3VyT3JkUGFydHMAAQQJY3VyT3JkVXNkCQBrAwUIY3VyT3JkQW0FCGN1ck9yZFByBQVNVUxUOAMJAAACBQhuZXdPcmRBbQAAAwkAZgIFCGN1ck9yZEFtAAAJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEFA3docgkAZQIIBQNhY2MCXzMFCGN1ck9yZEFtCQBlAggFA2FjYwJfNAUJY3VyT3JkVXNkCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUDd2hyBQhjdXJPcmRBbQkAZAIIBQNhY2MCXzMFCGN1ck9yZEFtCAUDYWNjAl80AwkAZgIFCG5ld09yZEFtAAADCQBmAgAABQhjdXJPcmRBbQQGYW1EaWZmCQBkAgUIbmV3T3JkQW0FCGN1ck9yZEFtCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUDd2hyBQhjdXJPcmRBbQkAZAIIBQNhY2MCXzMFBmFtRGlmZgkAZAIIBQNhY2MCXzQFCW5ld09yZFVzZAkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUDd2hyCQBlAgkAZAIIBQNhY2MCXzMFCG5ld09yZEFtBQhjdXJPcmRBbQkAZQIJAGQCCAUDYWNjAl80BQluZXdPcmRVc2QFCWN1ck9yZFVzZAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGUCBQhjdXJPcmRBbQUIbmV3T3JkQW0DCQBmAgAACQBlAgUDd2hyBQZhbURpZmYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQUGYW1EaWZmAhogZnJvbSB3YXJlaG91c2UsIGJ1dCBvbmx5IAkApAMBBQN3aHICCiBhdmFpbGFibGUJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aHIFBmFtRGlmZgkAZAIIBQNhY2MCXzMFBmFtRGlmZggFA2FjYwJfNAMJAGYCAAAJAGQCBQN3aHIFCG5ld09yZEFtCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHRha2UgCQCkAwEJAQEtAQUIbmV3T3JkQW0CGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3docgIKIGF2YWlsYWJsZQkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIFA3docgUIbmV3T3JkQW0JAGUCCQBlAggFA2FjYwJfMwUIbmV3T3JkQW0FCGN1ck9yZEFtCQBlAggFA2FjYwJfNAUJY3VyT3JkVXNkBAFyCgACJGwFCHJlc1BhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEAAAFA25pbAAAAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBG9yZFICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYKAQRvcmRNAgNhY2MEaXRlbQQBaggFA2FjYwJfMQQJaXRlbVBhcnRzCQC1CQIFBGl0ZW0CAUADCQECIT0CCQCQAwEFCWl0ZW1QYXJ0cwACCQACAQIuSW5jb3JyZWN0IG9yZGVyIGZvcm1hdCwgc2hvdWxkIGJlIGFtb3VudEBwcmljZQQIbmV3T3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAAQIbmV3T3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAQQJbmV3T3JkVXNkCQBrAwUIbmV3T3JkQW0FCG5ld09yZFByBQVNVUxUOAQDd2htCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJY3VycldoTWF0BQFqBAtjdXJPcmRQYXJ0cwkAtQkCCQCRAwIFDWN1cnJlbnRPcmRNYXQFAWoCAUAECGN1ck9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgULY3VyT3JkUGFydHMAAAQIY3VyT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwABBAljdXJPcmRVc2QJAGsDBQhjdXJPcmRBbQUIY3VyT3JkUHIFBU1VTFQ4AwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUDd2htCQBlAggFA2FjYwJfMwUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aG0FCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUIY3VyT3JkQW0IBQNhY2MCXzQDCQBmAgUIbmV3T3JkQW0AAAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGQCBQhuZXdPcmRBbQUIY3VyT3JkQW0JAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aG0FCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUGYW1EaWZmCQBkAggFA2FjYwJfNAUJbmV3T3JkVXNkCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQN3aG0JAGUCCQBkAggFA2FjYwJfMwUIbmV3T3JkQW0FCGN1ck9yZEFtCQBlAgkAZAIIBQNhY2MCXzQFCW5ld09yZFVzZAUJY3VyT3JkVXNkAwkAZgIAAAUIY3VyT3JkQW0EBmFtRGlmZgkAZQIFCGN1ck9yZEFtBQhuZXdPcmRBbQMJAGYCAAAJAGUCBQN3aG0FBmFtRGlmZgkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byB0YWtlIAkApAMBBQZhbURpZmYCGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3dobQIKIGF2YWlsYWJsZQkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFA3dobQUGYW1EaWZmCQBkAggFA2FjYwJfMwUGYW1EaWZmCAUDYWNjAl80AwkAZgIAAAkAZAIFA3dobQUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUDd2htAgogYXZhaWxhYmxlCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2htBQhuZXdPcmRBbQkAZQIJAGUCCAUDYWNjAl8zBQhuZXdPcmRBbQUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QEAW0KAAIkbAUIbWF0UGFydHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQAAAUDbmlsCAUBcgJfMwgFAXICXzQKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBG9yZE0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYKAQRvcmRQAgNhY2MEaXRlbQQBaggFA2FjYwJfMQQJaXRlbVBhcnRzCQC1CQIFBGl0ZW0CAUADCQECIT0CCQCQAwEFCWl0ZW1QYXJ0cwACCQACAQIuSW5jb3JyZWN0IG9yZGVyIGZvcm1hdCwgc2hvdWxkIGJlIGFtb3VudEBwcmljZQQIbmV3T3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAAQIbmV3T3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAQQJbmV3T3JkVXNkCQBrAwUIbmV3T3JkQW0FCG5ld09yZFByBQVNVUxUOAQDd2hwCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKY3VycldoUHJvZAUBagQLY3VyT3JkUGFydHMJALUJAgkAkQMCBQ5jdXJyZW50T3JkUHJvZAUBagIBQAQIY3VyT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwAABAhjdXJPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFC2N1ck9yZFBhcnRzAAEECWN1ck9yZFVzZAkAawMFCGN1ck9yZEFtBQhjdXJPcmRQcgUFTVVMVDgDCQAAAgUIbmV3T3JkQW0AAAMJAGYCBQhjdXJPcmRBbQAACQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQN3aHAJAGUCCAUDYWNjAl8zBQhjdXJPcmRBbQkAZQIIBQNhY2MCXzQFCWN1ck9yZFVzZAkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFA3docAUIY3VyT3JkQW0JAGQCCAUDYWNjAl8zBQhjdXJPcmRBbQgFA2FjYwJfNAMJAGYCBQhuZXdPcmRBbQAAAwkAZgIAAAUIY3VyT3JkQW0EBmFtRGlmZgkAZAIFCG5ld09yZEFtBQhjdXJPcmRBbQkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFA3docAUIY3VyT3JkQW0JAGQCCAUDYWNjAl8zBQZhbURpZmYJAGQCCAUDYWNjAl80BQluZXdPcmRVc2QJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEFA3docAkAZQIJAGQCCAUDYWNjAl8zBQhuZXdPcmRBbQUIY3VyT3JkQW0JAGUCCQBkAggFA2FjYwJfNAUJbmV3T3JkVXNkBQljdXJPcmRVc2QDCQBmAgAABQhjdXJPcmRBbQQGYW1EaWZmCQBlAgUIY3VyT3JkQW0FCG5ld09yZEFtAwkAZgIAAAkAZQIFA3docAUGYW1EaWZmCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHRha2UgCQCkAwEFBmFtRGlmZgIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUDd2hwAgogYXZhaWxhYmxlCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUDd2hwBQZhbURpZmYJAGQCCAUDYWNjAl8zBQZhbURpZmYIBQNhY2MCXzMDCQBmAgAACQBkAgUDd2hwBQhuZXdPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byB0YWtlIAkApAMBCQEBLQEFCG5ld09yZEFtAhogZnJvbSB3YXJlaG91c2UsIGJ1dCBvbmx5IAkApAMBBQN3aHACCiBhdmFpbGFibGUJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCBQN3aHAFCG5ld09yZEFtCQBlAgkAZQIIBQNhY2MCXzMFCG5ld09yZEFtBQhjdXJPcmRBbQkAZQIIBQNhY2MCXzQFCWN1ck9yZFVzZAQBcAoAAiRsBQlwcm9kUGFydHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQAAAUDbmlsCAUBbQJfMwgFAW0CXzQKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBG9yZFACBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgQIdm9sU2FsZG8IBQFwAl8zAwkAZgIFCHZvbFNhbGRvBQt3aFNwYWNlTGVmdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgITQXR0ZW1wdCB0byByZXNlcnZlIAkApAMBBQh2b2xTYWxkbwIRIHNwYWNlLCBidXQgb25seSAJAKQDAQULd2hTcGFjZUxlZnQCFSB3YXJlaG91c2Ugc3BhY2UgbGVmdAQFd2hTdHIJALoJAgkAzAgCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhWb2wJAMwIAgkAuQkCCAUBcgJfMgIBXwkAzAgCCQC5CQIIBQFtAl8yAgFfCQDMCAIJALkJAggFAXACXzICAV8JAMwIAgkApAMBBQh2b2xTYWxkbwUDbmlsAgE6BAZ3aFNhdmUJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag1zYXZlV2FyZWhvdXNlCQDMCAIFBXdoU3RyBQNuaWwFA25pbAMJAAACBQZ3aFNhdmUFBndoU2F2ZQQIdXNkU2FsZG8IBQFwAl80AwkAZgIFCHVzZFNhbGRvAAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZG5Bc3NldElkCQACAQITVVNETiBwYXltZW50cyBvbmx5IQMJAQIhPQIFA2FtdAUIdXNkU2FsZG8JAAIBCQCsAgICElBheW1lbnQgbmVlZGVkIGlzIAkApAMBBQh1c2RTYWxkbwkAzAgCCQELU3RyaW5nRW50cnkCBQZvcmRLZXkFDGNhcmdvTGlzdFN0cgUDbmlsAwkAAAIFCHVzZFNhbGRvAAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhJObyBwYXltZW50cyBuZWVkZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQxjYXJnb0xpc3RTdHIFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQR1c2VyCQEBLQEFCHVzZFNhbGRvBQt1c2RuQXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBQZvcmRLZXkFDGNhcmdvTGlzdFN0cgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuABH5pS8=",
    "height": 2506103,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: D5VBxeDRRCYu5KdNw4sgMTiG4uHqLkQESFyD52vyZrCP
Next: 3GSgiY9BoWwQjh5MGTjJygd8bKgHBWpm6Yj1yEd3JtqX

Diff: 

OldNewDifferences
7373 
7474 let BUYMULTIPLIER = 300
7575 
76+let LANDPREFIX = "LAND"
77+
78+let DUCKPREFIX = "DUCK"
79+
80+let WHMULTIPLIER = 10000000000
81+
7682 let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
7783 
7884 let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
94100 func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
95101 
96102 
103+func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
104+
105+
97106 func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
98107 
99108 
104113 
105114 
106115 func keyBlocked () = "contractsBlocked"
116+
117+
118+func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
119+
120+
121+func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
107122 
108123 
109124 let locIdxContinent = 0
120135 
121136 let bpIdxProd = 3
122137 
138+let whIdxVol = 0
139+
140+let whIdxRes = 1
141+
142+let whIdxMat = 2
143+
144+let whIdxProd = 3
145+
146+let whIdxLockedVol = 4
147+
148+let ordIdxRes = 0
149+
150+let ordIdxMat = 1
151+
152+let ordIdxProd = 2
153+
123154 func asString (v) = match v {
124155     case s: String => 
125156         s
126157     case _ => 
127158         throw("fail to cast into String")
128159 }
160+
161+
162+func getOrder (ordKey) = {
163+    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:"), ":")
164+[if ((size(split(p[ordIdxRes], "_")) == NUMRES))
165+        then p[ordIdxRes]
166+        else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
167+        then p[ordIdxMat]
168+        else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
169+    }
170+
171+
172+func getWarehouseVolume (volPrefix) = {
173+    let parts = split(volPrefix, "_")
174+    ((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
175+    }
176+
177+
178+func getWarehouseCurrResVolume (currentWh) = {
179+    func sum (acc,item) =     (acc + parseIntValue(item))
180+
181+    let $l = split(currentWh[whIdxRes], "_")
182+    let $s = size($l)
183+    let $acc0 = 0
184+    func $f0_1 ($a,$i) =     if (($i >= $s))
185+        then $a
186+        else sum($a, $l[$i])
187+
188+    func $f0_2 ($a,$i) =     if (($i >= $s))
189+        then $a
190+        else throw("List size exceeds 6")
191+
192+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
193+    }
194+
195+
196+func getWarehouseCurrMatVolume (currentWh) = {
197+    func sum (acc,item) =     (acc + parseIntValue(item))
198+
199+    let $l = split(currentWh[whIdxMat], "_")
200+    let $s = size($l)
201+    let $acc0 = 0
202+    func $f0_1 ($a,$i) =     if (($i >= $s))
203+        then $a
204+        else sum($a, $l[$i])
205+
206+    func $f0_2 ($a,$i) =     if (($i >= $s))
207+        then $a
208+        else throw("List size exceeds 6")
209+
210+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
211+    }
212+
213+
214+func getWarehouseCurrGoodsVolume (currentWh) = {
215+    let goods = currentWh[whIdxProd]
216+    if ((goods == ""))
217+        then 0
218+        else {
219+            func sum (acc,item) =             (acc + parseIntValue(item))
220+
221+            let $l = split_4C(goods, "_")
222+            let $s = size($l)
223+            let $acc0 = 0
224+            func $f0_1 ($a,$i) =             if (($i >= $s))
225+                then $a
226+                else sum($a, $l[$i])
227+
228+            func $f0_2 ($a,$i) =             if (($i >= $s))
229+                then $a
230+                else throw("List size exceeds 50")
231+
232+            $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)
233+            }
234+    }
129235 
130236 
131237 func sellInternal (locId,resType,amount,minPrice) = {
504610     }
505611 
506612 
613+
614+@Callable(i)
615+func setWarehouseOrder (cargoListStr,landAssetId) = {
616+    let user = i.originCaller
617+    let addr = toString(user)
618+    let asset = value(assetInfo(fromBase58String(landAssetId)))
619+    if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
620+        then throw((("NFT " + asset.name) + " is not staked"))
621+        else {
622+            let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
623+            if ((owner != addr))
624+                then throw((LANDPREFIX + " is not yours"))
625+                else {
626+                    let cargoParts = split_4C(cargoListStr, ":")
627+                    if ((size(cargoParts) != 3))
628+                        then throw("cargoListStr should contain exactly 2 ':' separators")
629+                        else {
630+                            let resParts = split(cargoParts[0], "_")
631+                            let matParts = split(cargoParts[1], "_")
632+                            let prodParts = if ((cargoParts[2] == ""))
633+                                then nil
634+                                else split(cargoParts[2], "_")
635+                            if ((size(resParts) != NUMRES))
636+                                then throw("All 6 resources should be passed")
637+                                else if ((size(matParts) != NUMRES))
638+                                    then throw("All 6 materials should be passed")
639+                                    else {
640+                                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
641+                                        let currentWh = split_4C(wh, ":")
642+                                        let currWhRes = split(currentWh[whIdxRes], "_")
643+                                        let currWhMat = split(currentWh[whIdxMat], "_")
644+                                        let currWhProd = if ((currentWh[whIdxProd] == ""))
645+                                            then nil
646+                                            else split(currentWh[whIdxProd], "_")
647+                                        let currWhResVol = getWarehouseCurrResVolume(currentWh)
648+                                        let currWhMatVol = getWarehouseCurrMatVolume(currentWh)
649+                                        let currWhGoodsVol = getWarehouseCurrGoodsVolume(currentWh)
650+                                        let currWhLockedVol = parseIntValue(currentWh[whIdxLockedVol])
651+                                        let whSpaceLeft = ((((getWarehouseVolume(currentWh[whIdxVol]) - currWhResVol) - currWhMatVol) - currWhGoodsVol) - currWhLockedVol)
652+                                        let ordKey = keyOrderByLand(landAssetId)
653+                                        let currentOrd = getOrder(ordKey)
654+                                        let currentOrdRes = split(currentOrd[ordIdxRes], "_")
655+                                        let currentOrdMat = split(currentOrd[ordIdxMat], "_")
656+                                        let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
657+                                            then nil
658+                                            else split(currentOrd[ordIdxProd], "_")
659+                                        let usdnNeed2Lock = 0
660+                                        func ordR (acc,item) =                                         {
661+                                            let j = acc._1
662+                                            let itemParts = split(item, "@")
663+                                            if ((size(itemParts) != 2))
664+                                                then throw("Incorrect order format, should be amount@price")
665+                                                else {
666+                                                    let newOrdAm = parseIntValue(itemParts[0])
667+                                                    let newOrdPr = parseIntValue(itemParts[1])
668+                                                    let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
669+                                                    let whr = parseIntValue(currWhRes[j])
670+                                                    let curOrdParts = split(currentOrdRes[j], "@")
671+                                                    let curOrdAm = parseIntValue(curOrdParts[0])
672+                                                    let curOrdPr = parseIntValue(curOrdParts[1])
673+                                                    let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
674+                                                    if ((newOrdAm == 0))
675+                                                        then if ((curOrdAm > 0))
676+                                                            then $Tuple4((j + 1), (acc._2 :+ toString(whr)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd))
677+                                                            else $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + curOrdAm), acc._4)
678+                                                        else if ((newOrdAm > 0))
679+                                                            then if ((0 > curOrdAm))
680+                                                                then {
681+                                                                    let amDiff = (newOrdAm + curOrdAm)
682+                                                                    $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd))
683+                                                                    }
684+                                                                else $Tuple4((j + 1), (acc._2 :+ toString(whr)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd))
685+                                                            else if ((0 > curOrdAm))
686+                                                                then {
687+                                                                    let amDiff = (curOrdAm - newOrdAm)
688+                                                                    if ((0 > (whr - amDiff)))
689+                                                                        then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whr)) + " available"))
690+                                                                        else $Tuple4((j + 1), (acc._2 :+ toString((whr - amDiff))), (acc._3 + amDiff), acc._4)
691+                                                                    }
692+                                                                else if ((0 > (whr + newOrdAm)))
693+                                                                    then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whr)) + " available"))
694+                                                                    else $Tuple4((j + 1), (acc._2 :+ toString((whr + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd))
695+                                                    }
696+                                            }
697+
698+                                        let r = {
699+                                            let $l = resParts
700+                                            let $s = size($l)
701+                                            let $acc0 = $Tuple4(0, nil, 0, 0)
702+                                            func $f0_1 ($a,$i) =                                             if (($i >= $s))
703+                                                then $a
704+                                                else ordR($a, $l[$i])
705+
706+                                            func $f0_2 ($a,$i) =                                             if (($i >= $s))
707+                                                then $a
708+                                                else throw("List size exceeds 6")
709+
710+                                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
711+                                            }
712+                                        func ordM (acc,item) =                                         {
713+                                            let j = acc._1
714+                                            let itemParts = split(item, "@")
715+                                            if ((size(itemParts) != 2))
716+                                                then throw("Incorrect order format, should be amount@price")
717+                                                else {
718+                                                    let newOrdAm = parseIntValue(itemParts[0])
719+                                                    let newOrdPr = parseIntValue(itemParts[1])
720+                                                    let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
721+                                                    let whm = parseIntValue(currWhMat[j])
722+                                                    let curOrdParts = split(currentOrdMat[j], "@")
723+                                                    let curOrdAm = parseIntValue(curOrdParts[0])
724+                                                    let curOrdPr = parseIntValue(curOrdParts[1])
725+                                                    let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
726+                                                    if ((newOrdAm == 0))
727+                                                        then if ((curOrdAm > 0))
728+                                                            then $Tuple4((j + 1), (acc._2 :+ toString(whm)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd))
729+                                                            else $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + curOrdAm), acc._4)
730+                                                        else if ((newOrdAm > 0))
731+                                                            then if ((0 > curOrdAm))
732+                                                                then {
733+                                                                    let amDiff = (newOrdAm + curOrdAm)
734+                                                                    $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd))
735+                                                                    }
736+                                                                else $Tuple4((j + 1), (acc._2 :+ toString(whm)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd))
737+                                                            else if ((0 > curOrdAm))
738+                                                                then {
739+                                                                    let amDiff = (curOrdAm - newOrdAm)
740+                                                                    if ((0 > (whm - amDiff)))
741+                                                                        then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whm)) + " available"))
742+                                                                        else $Tuple4((j + 1), (acc._2 :+ toString((whm - amDiff))), (acc._3 + amDiff), acc._4)
743+                                                                    }
744+                                                                else if ((0 > (whm + newOrdAm)))
745+                                                                    then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whm)) + " available"))
746+                                                                    else $Tuple4((j + 1), (acc._2 :+ toString((whm + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd))
747+                                                    }
748+                                            }
749+
750+                                        let m = {
751+                                            let $l = matParts
752+                                            let $s = size($l)
753+                                            let $acc0 = $Tuple4(0, nil, r._3, r._4)
754+                                            func $f1_1 ($a,$i) =                                             if (($i >= $s))
755+                                                then $a
756+                                                else ordM($a, $l[$i])
757+
758+                                            func $f1_2 ($a,$i) =                                             if (($i >= $s))
759+                                                then $a
760+                                                else throw("List size exceeds 6")
761+
762+                                            $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
763+                                            }
764+                                        func ordP (acc,item) =                                         {
765+                                            let j = acc._1
766+                                            let itemParts = split(item, "@")
767+                                            if ((size(itemParts) != 2))
768+                                                then throw("Incorrect order format, should be amount@price")
769+                                                else {
770+                                                    let newOrdAm = parseIntValue(itemParts[0])
771+                                                    let newOrdPr = parseIntValue(itemParts[1])
772+                                                    let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
773+                                                    let whp = parseIntValue(currWhProd[j])
774+                                                    let curOrdParts = split(currentOrdProd[j], "@")
775+                                                    let curOrdAm = parseIntValue(curOrdParts[0])
776+                                                    let curOrdPr = parseIntValue(curOrdParts[1])
777+                                                    let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
778+                                                    if ((newOrdAm == 0))
779+                                                        then if ((curOrdAm > 0))
780+                                                            then $Tuple4((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd))
781+                                                            else $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4)
782+                                                        else if ((newOrdAm > 0))
783+                                                            then if ((0 > curOrdAm))
784+                                                                then {
785+                                                                    let amDiff = (newOrdAm + curOrdAm)
786+                                                                    $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd))
787+                                                                    }
788+                                                                else $Tuple4((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd))
789+                                                            else if ((0 > curOrdAm))
790+                                                                then {
791+                                                                    let amDiff = (curOrdAm - newOrdAm)
792+                                                                    if ((0 > (whp - amDiff)))
793+                                                                        then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available"))
794+                                                                        else $Tuple4((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._3)
795+                                                                    }
796+                                                                else if ((0 > (whp + newOrdAm)))
797+                                                                    then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available"))
798+                                                                    else $Tuple4((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd))
799+                                                    }
800+                                            }
801+
802+                                        let p = {
803+                                            let $l = prodParts
804+                                            let $s = size($l)
805+                                            let $acc0 = $Tuple4(0, nil, m._3, m._4)
806+                                            func $f2_1 ($a,$i) =                                             if (($i >= $s))
807+                                                then $a
808+                                                else ordP($a, $l[$i])
809+
810+                                            func $f2_2 ($a,$i) =                                             if (($i >= $s))
811+                                                then $a
812+                                                else throw("List size exceeds 50")
813+
814+                                            $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)
815+                                            }
816+                                        let volSaldo = p._3
817+                                        if ((volSaldo > whSpaceLeft))
818+                                            then throw((((("Attempt to reserve " + toString(volSaldo)) + " space, but only ") + toString(whSpaceLeft)) + " warehouse space left"))
819+                                            else {
820+                                                let whStr = makeString_2C([currentWh[whIdxVol], makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_"), toString(volSaldo)], ":")
821+                                                let whSave = invoke(stakingContract, "saveWarehouse", [whStr], nil)
822+                                                if ((whSave == whSave))
823+                                                    then {
824+                                                        let usdSaldo = p._4
825+                                                        if ((usdSaldo > 0))
826+                                                            then if ((size(i.payments) != 1))
827+                                                                then throw("exactly 1 payment must be attached")
828+                                                                else {
829+                                                                    let pmt = i.payments[0]
830+                                                                    let amt = pmt.amount
831+                                                                    let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
832+                                                                    if ((pmtAssetId != usdnAssetId))
833+                                                                        then throw("USDN payments only!")
834+                                                                        else if ((amt != usdSaldo))
835+                                                                            then throw(("Payment needed is " + toString(usdSaldo)))
836+                                                                            else [StringEntry(ordKey, cargoListStr)]
837+                                                                    }
838+                                                            else if ((usdSaldo == 0))
839+                                                                then if ((size(i.payments) != 0))
840+                                                                    then throw("No payments needed")
841+                                                                    else [StringEntry(ordKey, cargoListStr)]
842+                                                                else [ScriptTransfer(user, -(usdSaldo), usdnAssetId), StringEntry(ordKey, cargoListStr)]
843+                                                        }
844+                                                    else throw("Strict value is not equal to itself.")
845+                                                }
846+                                        }
847+                            }
848+                    }
849+            }
850+    }
851+
852+

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let SEP = "__"
55 
66 let MULT6 = 1000000
77 
88 let MULT8 = 100000000
99 
1010 let MULT10 = 10000000000
1111 
1212 let chain = take(drop(this.bytes, 1), 1)
1313 
1414 let usdnAssetId = match chain {
1515     case _ => 
1616         if ((base58'2W' == $match0))
1717             then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
1818             else if ((base58'2T' == $match0))
1919                 then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
2020                 else throw("Unknown chain")
2121 }
2222 
2323 let defaultRestAddressStr = match chain {
2424     case _ => 
2525         if ((base58'2W' == $match0))
2626             then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
2727             else if ((base58'2T' == $match0))
2828                 then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
2929                 else throw("Unknown chain")
3030 }
3131 
3232 func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
3333 
3434 
3535 func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal)
3636 
3737 
3838 let IdxCfgStakingDapp = 1
3939 
4040 let IdxCfgEconomyDapp = 2
4141 
4242 let IdxCfgGovernanceDapp = 3
4343 
4444 func keyRestCfg () = "%s__restConfig"
4545 
4646 
4747 func keyRestAddress () = "%s__restAddr"
4848 
4949 
5050 func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
5151 
5252 
5353 func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
5454 
5555 
5656 let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
5757 
5858 let restCfg = readRestCfgOrFail(restContract)
5959 
6060 let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
6161 
6262 let DEFAULTLOCATION = "Africa_F_Africa"
6363 
6464 let NUMRES = 6
6565 
6666 let FACTORYMAXWAREHOUSE = 10000000000
6767 
6868 let RESOURCEPRICEMIN = 158549
6969 
7070 let MINPAYMENT = 10000
7171 
7272 let SELLMULTIPLIER = 200
7373 
7474 let BUYMULTIPLIER = 300
7575 
76+let LANDPREFIX = "LAND"
77+
78+let DUCKPREFIX = "DUCK"
79+
80+let WHMULTIPLIER = 10000000000
81+
7682 let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
7783 
7884 let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
7985 
8086 let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
8187 
8288 let productionMatrix = ["1_1_1_2_2_5_1_10", "2_5_5_2_7_5_2_100", "1_1_1_2_2_5_1_10", "9_9_1_5_5_1_5_100", "1_5_1_5_5_1_1_100"]
8389 
8490 let contIdxAmericas = 0
8591 
8692 let contIdxEurope = 1
8793 
8894 let contIdxAsia = 2
8995 
9096 let contIdxAfrica = 3
9197 
9298 let contIdxOceania = 4
9399 
94100 func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
95101 
96102 
103+func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
104+
105+
97106 func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
98107 
99108 
100109 func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
101110 
102111 
103112 func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
104113 
105114 
106115 func keyBlocked () = "contractsBlocked"
116+
117+
118+func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
119+
120+
121+func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
107122 
108123 
109124 let locIdxContinent = 0
110125 
111126 let locIdxType = 1
112127 
113128 let locIdxId = 2
114129 
115130 let bpIdxLevel = 0
116131 
117132 let bpIdxRes = 1
118133 
119134 let bpIdxMat = 2
120135 
121136 let bpIdxProd = 3
122137 
138+let whIdxVol = 0
139+
140+let whIdxRes = 1
141+
142+let whIdxMat = 2
143+
144+let whIdxProd = 3
145+
146+let whIdxLockedVol = 4
147+
148+let ordIdxRes = 0
149+
150+let ordIdxMat = 1
151+
152+let ordIdxProd = 2
153+
123154 func asString (v) = match v {
124155     case s: String => 
125156         s
126157     case _ => 
127158         throw("fail to cast into String")
128159 }
160+
161+
162+func getOrder (ordKey) = {
163+    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:"), ":")
164+[if ((size(split(p[ordIdxRes], "_")) == NUMRES))
165+        then p[ordIdxRes]
166+        else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
167+        then p[ordIdxMat]
168+        else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
169+    }
170+
171+
172+func getWarehouseVolume (volPrefix) = {
173+    let parts = split(volPrefix, "_")
174+    ((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
175+    }
176+
177+
178+func getWarehouseCurrResVolume (currentWh) = {
179+    func sum (acc,item) =     (acc + parseIntValue(item))
180+
181+    let $l = split(currentWh[whIdxRes], "_")
182+    let $s = size($l)
183+    let $acc0 = 0
184+    func $f0_1 ($a,$i) =     if (($i >= $s))
185+        then $a
186+        else sum($a, $l[$i])
187+
188+    func $f0_2 ($a,$i) =     if (($i >= $s))
189+        then $a
190+        else throw("List size exceeds 6")
191+
192+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
193+    }
194+
195+
196+func getWarehouseCurrMatVolume (currentWh) = {
197+    func sum (acc,item) =     (acc + parseIntValue(item))
198+
199+    let $l = split(currentWh[whIdxMat], "_")
200+    let $s = size($l)
201+    let $acc0 = 0
202+    func $f0_1 ($a,$i) =     if (($i >= $s))
203+        then $a
204+        else sum($a, $l[$i])
205+
206+    func $f0_2 ($a,$i) =     if (($i >= $s))
207+        then $a
208+        else throw("List size exceeds 6")
209+
210+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
211+    }
212+
213+
214+func getWarehouseCurrGoodsVolume (currentWh) = {
215+    let goods = currentWh[whIdxProd]
216+    if ((goods == ""))
217+        then 0
218+        else {
219+            func sum (acc,item) =             (acc + parseIntValue(item))
220+
221+            let $l = split_4C(goods, "_")
222+            let $s = size($l)
223+            let $acc0 = 0
224+            func $f0_1 ($a,$i) =             if (($i >= $s))
225+                then $a
226+                else sum($a, $l[$i])
227+
228+            func $f0_2 ($a,$i) =             if (($i >= $s))
229+                then $a
230+                else throw("List size exceeds 50")
231+
232+            $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)
233+            }
234+    }
129235 
130236 
131237 func sellInternal (locId,resType,amount,minPrice) = {
132238     let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
133239     let w0 = valueOrElse(getInteger(whKey), 0)
134240     let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
135241         then 0
136242         else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
137243             then (FACTORYMAXWAREHOUSE - w0)
138244             else amount
139245     let usdnReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
140246     let min99 = (minPrice - (minPrice / 100))
141247     if (((min99 * amount) > (usdnReceived * MULT8)))
142248         then throw((((((((((("Actual price = " + toString(usdnReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
143249         else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdnReceived)
144250     }
145251 
146252 
147253 func buyInternal (locId,matType,amount,maxPrice) = {
148254     let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
149255     let w0 = valueOrElse(getInteger(whKey), 0)
150256     let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
151257         then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
152258         else 0
153259     let m0 = min([w0, (amount - m1)])
154260     let m = (m0 + m1)
155261     let usdnSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
156262     let max101 = (maxPrice + (maxPrice / 100))
157263     if (((usdnSpent * MULT8) > (max101 * m)))
158264         then throw((((((((((("Actual price = " + toString(usdnSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
159265         else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdnSpent, m)
160266     }
161267 
162268 
163269 func getBackpack (bpKey) = {
164270     let p = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
165271 [toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
166272         then p[bpIdxRes]
167273         else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
168274         then p[bpIdxMat]
169275         else "0_0_0_0_0_0", p[bpIdxProd]]
170276     }
171277 
172278 
173279 func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
174280     then throw("Contracts are under maintenance")
175281     else unit
176282 
177283 
178284 @Callable(i)
179285 func constructorV1 (restAddr) = if ((i.caller != this))
180286     then throw("Permission denied")
181287     else [StringEntry(keyRestAddress(), restAddr)]
182288 
183289 
184290 
185291 @Callable(i)
186292 func sellResources (amounts,minPrices) = {
187293     let blocked = checkBlocked()
188294     if ((blocked == blocked))
189295         then {
190296             let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
191297             if ((size(i.payments) != 0))
192298                 then throw("sellResources doesn't require any payments")
193299                 else {
194300                     let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
195301                     if ((curLocation[locIdxType] != "F"))
196302                         then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
197303                         else {
198304                             let locId = curLocation[locIdxId]
199305                             let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
200306                             let resList = split(currentPack[bpIdxRes], "_")
201307                             func adder (acc,j) =                             if ((amounts[j] > parseIntValue(resList[j])))
202308                                 then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j])))
203309                                 else if ((0 > amounts[j]))
204310                                     then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j])))
205311                                     else if ((amounts[j] > 0))
206312                                         then {
207313                                             let b = sellInternal(locId, j, amounts[j], minPrices[j])
208314                                             $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2))
209315                                             }
210316                                         else $Tuple3(acc._1, (acc._2 :+ resList[j]), acc._3)
211317 
212318                             let merged = {
213319                                 let $l = [0, 1, 2, 3, 4, 5]
214320                                 let $s = size($l)
215321                                 let $acc0 = $Tuple3(nil, nil, 0)
216322                                 func $f0_1 ($a,$i) =                                 if (($i >= $s))
217323                                     then $a
218324                                     else adder($a, $l[$i])
219325 
220326                                 func $f0_2 ($a,$i) =                                 if (($i >= $s))
221327                                     then $a
222328                                     else throw("List size exceeds 6")
223329 
224330                                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
225331                                 }
226332                             let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._2, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
227333                             let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
228334                             $Tuple2((merged._1 :+ ScriptTransfer(i.caller, merged._3, usdnAssetId)), result)
229335                             }
230336                     }
231337             }
232338         else throw("Strict value is not equal to itself.")
233339     }
234340 
235341 
236342 
237343 @Callable(i)
238344 func buyMaterials (amounts,maxPrices) = {
239345     let blocked = checkBlocked()
240346     if ((blocked == blocked))
241347         then {
242348             let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
243349             if ((size(i.payments) != 1))
244350                 then throw("exactly 1 payment must be attached")
245351                 else {
246352                     let pmt = i.payments[0]
247353                     let amt = pmt.amount
248354                     let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
249355                     if ((pmtAssetId != usdnAssetId))
250356                         then throw("USDN payments only!")
251357                         else {
252358                             let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
253359                             if ((curLocation[locIdxType] != "F"))
254360                                 then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
255361                                 else {
256362                                     let locId = curLocation[locIdxId]
257363                                     let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
258364                                     let matList = split(currentPack[bpIdxMat], "_")
259365                                     func mUpdater (acc,j) =                                     if ((0 > amounts[j]))
260366                                         then throw(((("You tried to buy negative amount of " + matTypes[j]) + ": ") + toString(amounts[j])))
261367                                         else if ((amounts[j] > 0))
262368                                             then {
263369                                                 let b = buyInternal(locId, j, amounts[j], maxPrices[j])
264370                                                 $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(matList[j]) + b._3))), (acc._3 + b._2))
265371                                                 }
266372                                             else $Tuple3(acc._1, (acc._2 :+ matList[j]), acc._3)
267373 
268374                                     let merged = {
269375                                         let $l = [0, 1, 2, 3, 4, 5]
270376                                         let $s = size($l)
271377                                         let $acc0 = $Tuple3(nil, nil, 0)
272378                                         func $f0_1 ($a,$i) =                                         if (($i >= $s))
273379                                             then $a
274380                                             else mUpdater($a, $l[$i])
275381 
276382                                         func $f0_2 ($a,$i) =                                         if (($i >= $s))
277383                                             then $a
278384                                             else throw("List size exceeds 6")
279385 
280386                                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
281387                                         }
282388                                     if ((merged._3 > amt))
283389                                         then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3)))
284390                                         else {
285391                                             let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._2, "_"), currentPack[bpIdxProd]], ":")
286392                                             let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
287393                                             let rest = if (((amt - merged._3) > 0))
288394                                                 then [ScriptTransfer(i.caller, (amt - merged._3), usdnAssetId)]
289395                                                 else nil
290396                                             $Tuple2((merged._1 ++ rest), result)
291397                                             }
292398                                     }
293399                             }
294400                     }
295401             }
296402         else throw("Strict value is not equal to itself.")
297403     }
298404 
299405 
300406 
301407 @Callable(i)
302408 func exchangeResources (amounts) = {
303409     let blocked = checkBlocked()
304410     if ((blocked == blocked))
305411         then {
306412             let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
307413             if ((size(i.payments) != 1))
308414                 then throw("exactly 1 payment must be attached")
309415                 else {
310416                     let pmt = i.payments[0]
311417                     let amt = pmt.amount
312418                     let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
313419                     if ((pmtAssetId != usdnAssetId))
314420                         then throw("USDN payments only!")
315421                         else {
316422                             let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
317423                             if ((curLocation[locIdxType] != "F"))
318424                                 then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
319425                                 else {
320426                                     let locId = curLocation[locIdxId]
321427                                     let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
322428                                     let resList = split(currentPack[bpIdxRes], "_")
323429                                     let matList = split(currentPack[bpIdxMat], "_")
324430                                     func exchanger (acc,j) =                                     {
325431                                         let whKey = keyFactoryWarehouseByIdAndType(locId, j)
326432                                         let w0 = valueOrElse(getInteger(whKey), 0)
327433                                         let amj = amounts[j]
328434                                         if ((amj > parseIntValue(resList[j])))
329435                                             then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to exchange ") + toString(amj)))
330436                                             else if ((0 > amj))
331437                                                 then throw(((("You tried to exchange negative amount of " + resTypes[j]) + ": ") + toString(amj)))
332438                                                 else if ((amj > 0))
333439                                                     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)))
334440                                                     else $Tuple4((acc._1 :+ resList[j]), (acc._2 :+ matList[j]), acc._3, acc._4)
335441                                         }
336442 
337443                                     let merged = {
338444                                         let $l = [0, 1, 2, 3, 4, 5]
339445                                         let $s = size($l)
340446                                         let $acc0 = $Tuple4(nil, nil, 0, nil)
341447                                         func $f0_1 ($a,$i) =                                         if (($i >= $s))
342448                                             then $a
343449                                             else exchanger($a, $l[$i])
344450 
345451                                         func $f0_2 ($a,$i) =                                         if (($i >= $s))
346452                                             then $a
347453                                             else throw("List size exceeds 6")
348454 
349455                                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
350456                                         }
351457                                     if ((merged._3 > amt))
352458                                         then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3)))
353459                                         else {
354460                                             let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._1, "_"), makeString(merged._2, "_"), currentPack[bpIdxProd]], ":")
355461                                             let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
356462                                             let rest = if (((amt - merged._3) > 0))
357463                                                 then [ScriptTransfer(i.caller, (amt - merged._3), usdnAssetId)]
358464                                                 else nil
359465                                             $Tuple2((rest ++ merged._4), result)
360466                                             }
361467                                     }
362468                             }
363469                     }
364470             }
365471         else throw("Strict value is not equal to itself.")
366472     }
367473 
368474 
369475 
370476 @Callable(i)
371477 func buyGoods (productIdx,level,quantity) = {
372478     let blocked = checkBlocked()
373479     if ((blocked == blocked))
374480         then if ((size(i.payments) != 0))
375481             then throw("buyGoods doesn't require any payments")
376482             else if ((0 > quantity))
377483                 then throw("Quantity should be positive")
378484                 else {
379485                     let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
380486                     let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
381487                     if ((curLocation[locIdxType] != "M"))
382488                         then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
383489                         else {
384490                             let cont = curLocation[locIdxContinent]
385491                             let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
386492                             let matList = split(currentPack[bpIdxMat], "_")
387493                             if (if ((0 > productIdx))
388494                                 then true
389495                                 else (productIdx >= size(productionMatrix)))
390496                                 then throw(("Unknown product idx=" + toString(productIdx)))
391497                                 else {
392498                                     let productContIdx = (productIdx % size(continents))
393499                                     if ((continents[productContIdx] != cont))
394500                                         then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont))
395501                                         else {
396502                                             let recipe = split(productionMatrix[productIdx], "_")
397503                                             if ((size(recipe) != (NUMRES + 2)))
398504                                                 then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
399505                                                 else {
400506                                                     let prodList = if ((currentPack[bpIdxProd] == ""))
401507                                                         then nil
402508                                                         else split(currentPack[bpIdxProd], "_")
403509                                                     func filler (acc,ignoredItem) =                                                     {
404510                                                         let n = acc._2
405511                                                         let x = if ((size(prodList) > n))
406512                                                             then split(prodList[n], ",")
407513                                                             else ["0", "0", "0"]
408514                                                         let x1s = x[0]
409515                                                         let x1 = parseIntValue(x1s)
410516                                                         let x2s = x[1]
411517                                                         let x2 = parseIntValue(x2s)
412518                                                         let x3s = x[2]
413519                                                         let x3 = parseIntValue(x3s)
414520                                                         let amount = (quantity * parseIntValue(recipe[7]))
415521                                                         let y = if ((n == productIdx))
416522                                                             then                                                             match level {
417523                                                                 case _ => 
418524                                                                     if ((1 == $match0))
419525                                                                         then ((((toString((x1 + amount)) + ",") + x2s) + ",") + x3s)
420526                                                                         else if ((2 == $match0))
421527                                                                             then ((((x1s + ",") + toString((x2 + amount))) + ",") + x3s)
422528                                                                             else if ((3 == $match0))
423529                                                                                 then ((((x1s + ",") + x2s) + ",") + toString((x3 + amount)))
424530                                                                                 else throw(("Product level should be 1..3, not " + toString(level)))
425531                                                             }
426532                                                             else ((((x1s + ",") + x2s) + ",") + x3s)
427533                                                         $Tuple2((acc._1 :+ y), (n + 1))
428534                                                         }
429535 
430536                                                     let bpProd = (                                                    let $l = productionMatrix
431537                                                     let $s = size($l)
432538                                                     let $acc0 = $Tuple2(nil, 0)
433539                                                     func $f0_1 ($a,$i) =                                                     if (($i >= $s))
434540                                                         then $a
435541                                                         else filler($a, $l[$i])
436542 
437543                                                     func $f0_2 ($a,$i) =                                                     if (($i >= $s))
438544                                                         then $a
439545                                                         else throw("List size exceeds 50")
440546 
441547                                                     $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
442548                                                     func producer (acc,j) =                                                     {
443549                                                         let needMat = (parseIntValue(recipe[j]) * quantity)
444550                                                         let haveMat = parseIntValue(matList[j])
445551                                                         if ((needMat > haveMat))
446552                                                             then throw(((((((("You have " + matList[j]) + " of ") + matTypes[j]) + ", but recipe requires ") + toString(needMat)) + " for quantity ") + toString(quantity)))
447553                                                             else if ((needMat > 0))
448554                                                                 then (acc :+ toString((haveMat - needMat)))
449555                                                                 else (acc :+ matList[j])
450556                                                         }
451557 
452558                                                     let merged = {
453559                                                         let $l = [0, 1, 2, 3, 4, 5]
454560                                                         let $s = size($l)
455561                                                         let $acc0 = nil
456562                                                         func $f1_1 ($a,$i) =                                                         if (($i >= $s))
457563                                                             then $a
458564                                                             else producer($a, $l[$i])
459565 
460566                                                         func $f1_2 ($a,$i) =                                                         if (($i >= $s))
461567                                                             then $a
462568                                                             else throw("List size exceeds 6")
463569 
464570                                                         $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
465571                                                         }
466572                                                     let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged, "_"), makeString(bpProd, "_")], ":")
467573                                                     let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
468574                                                     $Tuple2(nil, result)
469575                                                     }
470576                                             }
471577                                     }
472578                             }
473579                     }
474580         else throw("Strict value is not equal to itself.")
475581     }
476582 
477583 
478584 
479585 @Callable(i)
480586 func acceptServicePayment (service) = {
481587     let blocked = checkBlocked()
482588     if ((blocked == blocked))
483589         then if ((size(i.payments) != 1))
484590             then throw("exactly 1 payment must be attached")
485591             else {
486592                 let pmt = i.payments[0]
487593                 let amt = pmt.amount
488594                 let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
489595                 if ((pmtAssetId != usdnAssetId))
490596                     then throw("USDN payments only!")
491597                     else {
492598                         let need =                         match service {
493599                             case _ => 
494600                                 if (("LAND_RENAME" == $match0))
495601                                     then 10000000
496602                                     else throw("Unknown service!")
497603                         }
498604                         if ((amt != need))
499605                             then throw((((service + " costs ") + toString(need)) + " USDN"))
500606                             else $Tuple2(nil, amt)
501607                         }
502608                 }
503609         else throw("Strict value is not equal to itself.")
504610     }
505611 
506612 
613+
614+@Callable(i)
615+func setWarehouseOrder (cargoListStr,landAssetId) = {
616+    let user = i.originCaller
617+    let addr = toString(user)
618+    let asset = value(assetInfo(fromBase58String(landAssetId)))
619+    if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
620+        then throw((("NFT " + asset.name) + " is not staked"))
621+        else {
622+            let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
623+            if ((owner != addr))
624+                then throw((LANDPREFIX + " is not yours"))
625+                else {
626+                    let cargoParts = split_4C(cargoListStr, ":")
627+                    if ((size(cargoParts) != 3))
628+                        then throw("cargoListStr should contain exactly 2 ':' separators")
629+                        else {
630+                            let resParts = split(cargoParts[0], "_")
631+                            let matParts = split(cargoParts[1], "_")
632+                            let prodParts = if ((cargoParts[2] == ""))
633+                                then nil
634+                                else split(cargoParts[2], "_")
635+                            if ((size(resParts) != NUMRES))
636+                                then throw("All 6 resources should be passed")
637+                                else if ((size(matParts) != NUMRES))
638+                                    then throw("All 6 materials should be passed")
639+                                    else {
640+                                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
641+                                        let currentWh = split_4C(wh, ":")
642+                                        let currWhRes = split(currentWh[whIdxRes], "_")
643+                                        let currWhMat = split(currentWh[whIdxMat], "_")
644+                                        let currWhProd = if ((currentWh[whIdxProd] == ""))
645+                                            then nil
646+                                            else split(currentWh[whIdxProd], "_")
647+                                        let currWhResVol = getWarehouseCurrResVolume(currentWh)
648+                                        let currWhMatVol = getWarehouseCurrMatVolume(currentWh)
649+                                        let currWhGoodsVol = getWarehouseCurrGoodsVolume(currentWh)
650+                                        let currWhLockedVol = parseIntValue(currentWh[whIdxLockedVol])
651+                                        let whSpaceLeft = ((((getWarehouseVolume(currentWh[whIdxVol]) - currWhResVol) - currWhMatVol) - currWhGoodsVol) - currWhLockedVol)
652+                                        let ordKey = keyOrderByLand(landAssetId)
653+                                        let currentOrd = getOrder(ordKey)
654+                                        let currentOrdRes = split(currentOrd[ordIdxRes], "_")
655+                                        let currentOrdMat = split(currentOrd[ordIdxMat], "_")
656+                                        let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
657+                                            then nil
658+                                            else split(currentOrd[ordIdxProd], "_")
659+                                        let usdnNeed2Lock = 0
660+                                        func ordR (acc,item) =                                         {
661+                                            let j = acc._1
662+                                            let itemParts = split(item, "@")
663+                                            if ((size(itemParts) != 2))
664+                                                then throw("Incorrect order format, should be amount@price")
665+                                                else {
666+                                                    let newOrdAm = parseIntValue(itemParts[0])
667+                                                    let newOrdPr = parseIntValue(itemParts[1])
668+                                                    let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
669+                                                    let whr = parseIntValue(currWhRes[j])
670+                                                    let curOrdParts = split(currentOrdRes[j], "@")
671+                                                    let curOrdAm = parseIntValue(curOrdParts[0])
672+                                                    let curOrdPr = parseIntValue(curOrdParts[1])
673+                                                    let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
674+                                                    if ((newOrdAm == 0))
675+                                                        then if ((curOrdAm > 0))
676+                                                            then $Tuple4((j + 1), (acc._2 :+ toString(whr)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd))
677+                                                            else $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + curOrdAm), acc._4)
678+                                                        else if ((newOrdAm > 0))
679+                                                            then if ((0 > curOrdAm))
680+                                                                then {
681+                                                                    let amDiff = (newOrdAm + curOrdAm)
682+                                                                    $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd))
683+                                                                    }
684+                                                                else $Tuple4((j + 1), (acc._2 :+ toString(whr)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd))
685+                                                            else if ((0 > curOrdAm))
686+                                                                then {
687+                                                                    let amDiff = (curOrdAm - newOrdAm)
688+                                                                    if ((0 > (whr - amDiff)))
689+                                                                        then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whr)) + " available"))
690+                                                                        else $Tuple4((j + 1), (acc._2 :+ toString((whr - amDiff))), (acc._3 + amDiff), acc._4)
691+                                                                    }
692+                                                                else if ((0 > (whr + newOrdAm)))
693+                                                                    then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whr)) + " available"))
694+                                                                    else $Tuple4((j + 1), (acc._2 :+ toString((whr + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd))
695+                                                    }
696+                                            }
697+
698+                                        let r = {
699+                                            let $l = resParts
700+                                            let $s = size($l)
701+                                            let $acc0 = $Tuple4(0, nil, 0, 0)
702+                                            func $f0_1 ($a,$i) =                                             if (($i >= $s))
703+                                                then $a
704+                                                else ordR($a, $l[$i])
705+
706+                                            func $f0_2 ($a,$i) =                                             if (($i >= $s))
707+                                                then $a
708+                                                else throw("List size exceeds 6")
709+
710+                                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
711+                                            }
712+                                        func ordM (acc,item) =                                         {
713+                                            let j = acc._1
714+                                            let itemParts = split(item, "@")
715+                                            if ((size(itemParts) != 2))
716+                                                then throw("Incorrect order format, should be amount@price")
717+                                                else {
718+                                                    let newOrdAm = parseIntValue(itemParts[0])
719+                                                    let newOrdPr = parseIntValue(itemParts[1])
720+                                                    let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
721+                                                    let whm = parseIntValue(currWhMat[j])
722+                                                    let curOrdParts = split(currentOrdMat[j], "@")
723+                                                    let curOrdAm = parseIntValue(curOrdParts[0])
724+                                                    let curOrdPr = parseIntValue(curOrdParts[1])
725+                                                    let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
726+                                                    if ((newOrdAm == 0))
727+                                                        then if ((curOrdAm > 0))
728+                                                            then $Tuple4((j + 1), (acc._2 :+ toString(whm)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd))
729+                                                            else $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + curOrdAm), acc._4)
730+                                                        else if ((newOrdAm > 0))
731+                                                            then if ((0 > curOrdAm))
732+                                                                then {
733+                                                                    let amDiff = (newOrdAm + curOrdAm)
734+                                                                    $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd))
735+                                                                    }
736+                                                                else $Tuple4((j + 1), (acc._2 :+ toString(whm)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd))
737+                                                            else if ((0 > curOrdAm))
738+                                                                then {
739+                                                                    let amDiff = (curOrdAm - newOrdAm)
740+                                                                    if ((0 > (whm - amDiff)))
741+                                                                        then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whm)) + " available"))
742+                                                                        else $Tuple4((j + 1), (acc._2 :+ toString((whm - amDiff))), (acc._3 + amDiff), acc._4)
743+                                                                    }
744+                                                                else if ((0 > (whm + newOrdAm)))
745+                                                                    then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whm)) + " available"))
746+                                                                    else $Tuple4((j + 1), (acc._2 :+ toString((whm + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd))
747+                                                    }
748+                                            }
749+
750+                                        let m = {
751+                                            let $l = matParts
752+                                            let $s = size($l)
753+                                            let $acc0 = $Tuple4(0, nil, r._3, r._4)
754+                                            func $f1_1 ($a,$i) =                                             if (($i >= $s))
755+                                                then $a
756+                                                else ordM($a, $l[$i])
757+
758+                                            func $f1_2 ($a,$i) =                                             if (($i >= $s))
759+                                                then $a
760+                                                else throw("List size exceeds 6")
761+
762+                                            $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
763+                                            }
764+                                        func ordP (acc,item) =                                         {
765+                                            let j = acc._1
766+                                            let itemParts = split(item, "@")
767+                                            if ((size(itemParts) != 2))
768+                                                then throw("Incorrect order format, should be amount@price")
769+                                                else {
770+                                                    let newOrdAm = parseIntValue(itemParts[0])
771+                                                    let newOrdPr = parseIntValue(itemParts[1])
772+                                                    let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8)
773+                                                    let whp = parseIntValue(currWhProd[j])
774+                                                    let curOrdParts = split(currentOrdProd[j], "@")
775+                                                    let curOrdAm = parseIntValue(curOrdParts[0])
776+                                                    let curOrdPr = parseIntValue(curOrdParts[1])
777+                                                    let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8)
778+                                                    if ((newOrdAm == 0))
779+                                                        then if ((curOrdAm > 0))
780+                                                            then $Tuple4((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd))
781+                                                            else $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4)
782+                                                        else if ((newOrdAm > 0))
783+                                                            then if ((0 > curOrdAm))
784+                                                                then {
785+                                                                    let amDiff = (newOrdAm + curOrdAm)
786+                                                                    $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd))
787+                                                                    }
788+                                                                else $Tuple4((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd))
789+                                                            else if ((0 > curOrdAm))
790+                                                                then {
791+                                                                    let amDiff = (curOrdAm - newOrdAm)
792+                                                                    if ((0 > (whp - amDiff)))
793+                                                                        then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available"))
794+                                                                        else $Tuple4((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._3)
795+                                                                    }
796+                                                                else if ((0 > (whp + newOrdAm)))
797+                                                                    then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available"))
798+                                                                    else $Tuple4((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd))
799+                                                    }
800+                                            }
801+
802+                                        let p = {
803+                                            let $l = prodParts
804+                                            let $s = size($l)
805+                                            let $acc0 = $Tuple4(0, nil, m._3, m._4)
806+                                            func $f2_1 ($a,$i) =                                             if (($i >= $s))
807+                                                then $a
808+                                                else ordP($a, $l[$i])
809+
810+                                            func $f2_2 ($a,$i) =                                             if (($i >= $s))
811+                                                then $a
812+                                                else throw("List size exceeds 50")
813+
814+                                            $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)
815+                                            }
816+                                        let volSaldo = p._3
817+                                        if ((volSaldo > whSpaceLeft))
818+                                            then throw((((("Attempt to reserve " + toString(volSaldo)) + " space, but only ") + toString(whSpaceLeft)) + " warehouse space left"))
819+                                            else {
820+                                                let whStr = makeString_2C([currentWh[whIdxVol], makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_"), toString(volSaldo)], ":")
821+                                                let whSave = invoke(stakingContract, "saveWarehouse", [whStr], nil)
822+                                                if ((whSave == whSave))
823+                                                    then {
824+                                                        let usdSaldo = p._4
825+                                                        if ((usdSaldo > 0))
826+                                                            then if ((size(i.payments) != 1))
827+                                                                then throw("exactly 1 payment must be attached")
828+                                                                else {
829+                                                                    let pmt = i.payments[0]
830+                                                                    let amt = pmt.amount
831+                                                                    let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
832+                                                                    if ((pmtAssetId != usdnAssetId))
833+                                                                        then throw("USDN payments only!")
834+                                                                        else if ((amt != usdSaldo))
835+                                                                            then throw(("Payment needed is " + toString(usdSaldo)))
836+                                                                            else [StringEntry(ordKey, cargoListStr)]
837+                                                                    }
838+                                                            else if ((usdSaldo == 0))
839+                                                                then if ((size(i.payments) != 0))
840+                                                                    then throw("No payments needed")
841+                                                                    else [StringEntry(ordKey, cargoListStr)]
842+                                                                else [ScriptTransfer(user, -(usdSaldo), usdnAssetId), StringEntry(ordKey, cargoListStr)]
843+                                                        }
844+                                                    else throw("Strict value is not equal to itself.")
845+                                                }
846+                                        }
847+                            }
848+                    }
849+            }
850+    }
851+
852+
github/deemru/w8io/c3f4982 
82.82 ms ◑