tx · 7ULUxtdwr4y9e2TFrzHWyK3ibTrU538Y1pBkwpGNRwpy

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.05800000 Waves

2023.10.14 19:34 [2798535] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7ULUxtdwr4y9e2TFrzHWyK3ibTrU538Y1pBkwpGNRwpy",
    "fee": 5800000,
    "feeAssetId": null,
    "timestamp": 1697301309353,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "2qXxbVxbdshJAihYrgFU6yWT161yYvzaL7DvEmRhFGcn1RB4vMkkE6G2J5sSmZFZXLWBpfQh2er9pZKDSgSXGoXo"
    ],
    "script": "base64:BgKGAQgCEgQKAggYEgMKAQgSBAoCERESBAoCCAESAwoBARIFCgMREQgSBgoEEREICBIECgIRERIFCgMREQgSBgoEEREICBIDCgEREgMKARESBAoCEQgSBAoCAQESBAoCCAgSBQoDCAgIEgQKAggIEgUKAwgICBIDCgEREgMKAQgSAwoBARIDCgEIZwAHeHBUcmFkZQCQTgAHeHBDcmFmdACQTgAKeHBTZWxsVG9FcwCQTgAGeHBTaG9wAJBOAApMQU5EUFJFRklYAgRMQU5EAAZOVU1SRVMABgAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EAEFJFU09VUkNFUFJJQ0VNSU4A1bUCAA1FU01BWFBBQ0tBR0VTAAoACUVTQlVZQ09FRgAEABVNSU5fVVNEVF9GRUVfREVMSVZFUlkA0IYDABdNSU5fVVNEVF9GRUVfREVMSVZFUlkxNQD4yQQAFVVTRFQyQUNSRVNfTVVMVElQTElFUgAKAAhyZXNUeXBlcwkAzAgCAgNPaWwJAMwIAgIDT3JlCQDMCAICBFdvb2QJAMwIAgIEU2FuZAkAzAgCAgRDbGF5CQDMCAICB09yZ2FuaWMFA25pbAAIbWF0VHlwZXMJAMwIAgIERnVlbAkAzAgCAgVNZXRhbAkAzAgCAgVQbGFuawkAzAgCAgVHbGFzcwkAzAgCAgdQbGFzdGljCQDMCAICB1Byb3RlaW4FA25pbAAJcHJvZFR5cGVzCQDMCAICEEZpcnN0IEFpZCBLaXQgTDEJAMwIAgIQRmlyc3QgQWlkIEtpdCBMMgkAzAgCAhBGaXJzdCBBaWQgS2l0IEwzCQDMCAICC0JhY2twYWNrIEwxCQDMCAICC0JhY2twYWNrIEwyCQDMCAICC0JhY2twYWNrIEwzCQDMCAICDkZvb2QgUmF0aW9uIEwxCQDMCAICDkZvb2QgUmF0aW9uIEwyCQDMCAICDkZvb2QgUmF0aW9uIEwzCQDMCAICC0pldCBQYWNrIEwxCQDMCAICC0pldCBQYWNrIEwyCQDMCAICC0pldCBQYWNrIEwzCQDMCAICCVNoaWVsZCBMMQkAzAgCAglTaGllbGQgTDIJAMwIAgIJU2hpZWxkIEwzCQDMCAICB01pbmUgTDEJAMwIAgIHTWluZSBMMgkAzAgCAgdNaW5lIEwzCQDMCAICB1RyYXAgTDEJAMwIAgIHVHJhcCBMMgkAzAgCAgdUcmFwIEwzBQNuaWwACmNvbnRpbmVudHMJAMwIAgIIQW1lcmljYXMJAMwIAgIGRXVyb3BlCQDMCAICBEFzaWEJAMwIAgIGQWZyaWNhCQDMCAICB09jZWFuaWEFA25pbAAJQ09FRkYyTUFUAICt4gQAEHByb2R1Y3Rpb25NYXRyaXgJAMwIAgIlOF84XzhfMTdfMTdfNDJfMTJfMF8zMF8wLDAsMCwwLDAsMCwwXwkAzAgCAiU4XzhfOF8xN18xN180Ml8yNF8wXzYwXzAsMCw1LDIsMCwwLDBfCQDMCAICJzhfOF84XzE3XzE3XzQyXzM2XzBfMTIwXzAsMCwxMCw0LDAsMCwwXwkAzAgCAik4XzE5XzE5XzhfMjdfMTlfMjZfMV8yMF8wLDAsMCwwLDAsMCwwXzAwMQkAzAgCAik4XzE5XzE5XzhfMjdfMTlfNTJfMV80MF8wLDAsMCwwLDAsMCwwXzAwMQkAzAgCAik4XzE5XzE5XzhfMjdfMTlfNzhfMV84MF8wLDAsMCwwLDAsMCwwXzAwMQkAzAgCAiU4XzhfOF84XzhfNjBfMTNfMl8yXzAsMCwwLDAsMCwwLDBfMDExCQDMCAICJThfOF84XzhfOF82MF8yNl8yXzRfMCwwLDAsMCwwLDAsMF8wMTEJAMwIAgIlOF84XzhfOF84XzYwXzM5XzJfOF8wLDAsMCwwLDAsMCwwXzAxMQkAzAgCAikzMF8zMF8zXzE3XzE3XzNfMzBfM18zMF8wLDAsMCwwLDAsMCwwXzExMQkAzAgCAikzMF8zMF8zXzE3XzE3XzNfNjBfM181MF8wLDAsMCwwLDAsMCwwXzExMQkAzAgCAikzMF8zMF8zXzE3XzE3XzNfOTBfM183MF8wLDAsMCwwLDAsMCwwXzExMQkAzAgCAisxOF8xOF8xMF8xOF8xOF8xOF8xMV80XzEwXzAsMCwwLDAsMCwwLDBfMjAxCQDMCAICKzE4XzE4XzEwXzE4XzE4XzE4XzIyXzRfMjBfMCwwLDAsMCwwLDAsMF8yMDEJAMwIAgIrMThfMThfMTBfMThfMThfMThfMzNfNF8zMF8wLDAsMCwwLDAsMCwwXzIwMQkAzAgCAio0XzEzXzIyXzRfMzVfMjJfMjNfMF81MCwxLDBfMCwwLDAsMCwwLDAsMF8JAMwIAgIqNF8xM18yMl80XzM1XzIyXzQ2XzBfNTAsMSwxXzAsMiw1LDAsMCwwLDBfCQDMCAICKzRfMTNfMjJfNF8zNV8yMl82OV8wXzUwLDIsMV8wLDUsMTAsMCwwLDAsMF8JAMwIAgIqNV8yNV80MF81XzEwXzE1XzIwXzFfMzAsMSwxXzAsMCwwLDAsMCwwLDBfCQDMCAICKjVfMjVfNDBfNV8xMF8xNV80MF8xXzMwLDEsMl8yLDEsMywwLDAsMCwwXwkAzAgCAio1XzI1XzQwXzVfMTBfMTVfNjBfMV8zMCwxLDNfNSwyLDgsMCwwLDAsMF8FA25pbAAJcklkeENvZWZmAAYADXJJZHhDb250aW5lbnQABwAKUkVDSVBFU0laRQALAA5QUk9EVUNUUEtHU0laRQAKAAt3aElkeExldmVscwAAAAh3aElkeFJlcwABAAh3aElkeE1hdAACAAl3aElkeFByb2QAAwAJd2hJZHhMT0ZUAAQACXZvbExvY2tlZAAAAAh2b2xUb3RhbAADAApicElkeExldmVsAAAACGJwSWR4UmVzAAEACGJwSWR4TWF0AAIACWJwSWR4UHJvZAADAA9sb2NJZHhDb250aW5lbnQAAAAKbG9jSWR4VHlwZQABAAhsb2NJZHhJZAACARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBB2Fzc2V0SWQJAKwCAgIDbm9fBQdhc3NldElkARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQdhc3NldElkCQCsAgICA3N0XwUHYXNzZXRJZAEPa2V5QWRkcmVzc1JlZkJ5AQRhZGRyCQCsAgICCWFjY1JlZkJ5XwUEYWRkcgEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQBDmtleU9yZGVyQnlMYW5kAQtsYW5kQXNzZXRJZAkArAICAgpsYW5kT3JkZXJfBQtsYW5kQXNzZXRJZAEOa2V5RXNXYXJlaG91c2UAAhplbWVyZ2VuY3lXYXJlaG91c2VQcm9kdWN0cwAPZGVsaXZlcnlGdW5kS2V5AgxkZWxpdmVyeUZ1bmQAEWRlbGl2ZXJ5TG9ja2VkS2V5Ag5kZWxpdmVyeUxvY2tlZAESZ2V0UmVjaXBlTWF0ZXJpYWxzAQZyZWNpcGUJAGgCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBQlySWR4Q29lZmYFCUNPRUZGMk1BVAARS1NfQUxMT1dfREVMSVZFUlkGAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4AA1NFUAICX18ABU1VTFQ1AKCNBgAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAAZNVUxUMTAAgMivoCUADk1JTlNIT1BQQVlNRU5UAKCNBgAFSVRFUjYJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAFElkeENmZ0ludmVzdEZ1bmREYXBwAAYAD0lkeENmZ0FjcmVzRGFwcAAIAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwABJpbnZlc3RGdW5kQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRRJZHhDZmdJbnZlc3RGdW5kRGFwcAANYWNyZXNDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFD0lkeENmZ0FjcmVzRGFwcAEIYXNTdHJpbmcBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwBQFzCQACAQIYZmFpbCB0byBjYXN0IGludG8gU3RyaW5nAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBCmtleUJsb2NrZWQAAhBjb250cmFjdHNCbG9ja2VkAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04EB2xvd1BhcnQJAKQDAQkAagIFA3ZhbAUGdGVuUG93BAZ6ZXJvZXMJALACAgkApAMBBQZ0ZW5Qb3cJAGQCAAEJALECAQUHbG93UGFydAkArAICCQCsAgIJAKwCAgkApAMBCQBpAgUDdmFsBQZ0ZW5Qb3cCAS4FBnplcm9lcwUHbG93UGFydAATRkFDVE9SWU1BWFdBUkVIT1VTRQCAyK+gJQAOU0VMTE1VTFRJUExJRVIAyAEADUJVWU1VTFRJUExJRVIArAIACkFVQ1RJT05GRUUAkE4ADERFTElWRVJZX0ZFRQCQTgAOREVMSVZFUllfRkVFMTUAmHUBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIJZmFjdG9yeUlkB3Jlc1R5cGUJAKwCAgkArAICCQCsAgICG2ZhY3RvcnlXaEJ5Q29udGluZW50QW5kUmVzXwUJZmFjdG9yeUlkAgFfCQCkAwEFB3Jlc1R5cGUACW9yZElkeFJlcwAAAAlvcmRJZHhNYXQAAQAKb3JkSWR4UHJvZAACAQhnZXRPcmRlcgEGb3JkS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUGb3JkS2V5AjAwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDowQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDoCAToJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQlvcmRJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQlvcmRJZHhSZXMCFzBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUJb3JkSWR4TWF0AgFfBQZOVU1SRVMJAJEDAgUBcAUJb3JkSWR4TWF0AhcwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMAkAzAgCCQCRAwIFAXAFCm9yZElkeFByb2QFA25pbAEIdG9Wb2x1bWUDBmFtb3VudAdwa2dTaXplCWlzUHJvZHVjdAMFCWlzUHJvZHVjdAQEcGtncwMJAGcCBQZhbW91bnQAAAkAaQIJAGUCCQBkAgUGYW1vdW50BQdwa2dTaXplAAEFB3BrZ1NpemUJAQEtAQkAaQIJAGUCCQBkAgkBAS0BBQZhbW91bnQFB3BrZ1NpemUAAQUHcGtnU2l6ZQkAaAIFBHBrZ3MFBU1VTFQ4BQZhbW91bnQBDHNlbGxJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2R0UmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgUOU0VMTE1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBkAgkAaAIAZAUCdzAJAGgCADIFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkdFJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZHRSZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZHRSZWNlaXZlZAELYnV5SW50ZXJuYWwEBWxvY0lkB21hdFR5cGUGYW1vdW50CG1heFByaWNlBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQdtYXRUeXBlBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABAJtMQMJAGYCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAlwMBCQDMCAIFBmFtb3VudAkAzAgCCQBlAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFA25pbAAABAJtMAkAlwMBCQDMCAIFAncwCQDMCAIJAGUCBQZhbW91bnQFAm0xBQNuaWwEAW0JAGQCBQJtMAUCbTEEBXcwbWluCQCXAwEJAMwIAgUCdzAJAMwIAgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUDbmlsBAl1c2R0U3BlbnQJAGQCCQBrAwUCbTAJAGUCCQBoAgUNQlVZTVVMVElQTElFUgUQUkVTT1VSQ0VQUklDRU1JTgkAawMJAGUCCQBoAgBkBQV3MG1pbgkAaAIAMgUCbTAFEFJFU09VUkNFUFJJQ0VNSU4FE0ZBQ1RPUllNQVhXQVJFSE9VU0UFBk1VTFQxMAkAawMFAm0xCQBoAgACBRBSRVNPVVJDRVBSSUNFTUlOBQVNVUxUOAQGbWF4MTAxCQBkAgUIbWF4UHJpY2UJAGkCBQhtYXhQcmljZQBkAwkAZgIJAGgCBQl1c2R0U3BlbnQFBU1VTFQ4CQBoAgUGbWF4MTAxBQFtCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BY3R1YWwgcHJpY2UgPSAJAKQDAQUJdXNkdFNwZW50AgMgLyAJAKQDAQUBbQIOID4gbWF4UHJpY2UgPSAJAKQDAQUIbWF4UHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCG1hdFR5cGVzBQdtYXRUeXBlAgEpCQCVCgMJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZQIFAncwBQFtBQl1c2R0U3BlbnQFAW0BC2dldEJhY2twYWNrAQVicEtleQQBcAkAvAkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAUFYnBLZXkCGjA6MF8wXzBfMF8wXzA6MF8wXzBfMF8wXzA6AgE6CQDMCAIJAKQDAQkBC3ZhbHVlT3JFbHNlAgkAtgkBCQCRAwIFAXAFCmJwSWR4TGV2ZWwAAAkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCGJwSWR4UmVzAgFfBQZOVU1SRVMJAJEDAgUBcAUIYnBJZHhSZXMCCzBfMF8wXzBfMF8wCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhNYXQCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeE1hdAILMF8wXzBfMF8wXzAJAMwIAgkAkQMCBQFwBQlicElkeFByb2QFA25pbAEMY2hlY2tCbG9ja2VkAAMJAQt2YWx1ZU9yRWxzZQIJAJsIAgUPc3Rha2luZ0NvbnRyYWN0CQEKa2V5QmxvY2tlZAAHCQACAQIfQ29udHJhY3RzIGFyZSB1bmRlciBtYWludGVuYW5jZQUEdW5pdAEGcHJvbG9nAAkBBWFzSW50AQkA/QcEBQ9zdGFraW5nQ29udHJhY3QCCnNhdmVMYXN0VHgFA25pbAUDbmlsAQlzZXRDb21tb24CA2FjYw9pZ25vcmVkSXRlcmF0b3IEAWoIBQNhY2MCXzEEBGl0ZW0DCQBmAgkAkAMBCAUDYWNjA18xMAUBagkAkQMCCAUDYWNjA18xMAUBagIDMEAwBAZpc1Byb2QIBQNhY2MCXzgECWl0ZW1QYXJ0cwkAtQkCBQRpdGVtAgFAAwkBAiE9AgkAkAMBBQlpdGVtUGFydHMAAgkAAgECLkluY29ycmVjdCBvcmRlciBmb3JtYXQsIHNob3VsZCBiZSBhbW91bnRAcHJpY2UECG5ld09yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJaXRlbVBhcnRzAAAECG5ld09yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJaXRlbVBhcnRzAAEECW5ld09yZFVzZAMFBmlzUHJvZAkAaAIFCG5ld09yZEFtBQhuZXdPcmRQcgkAawMFCG5ld09yZEFtBQhuZXdPcmRQcgUFTVVMVDgECW5ld09yZFZvbAkBCHRvVm9sdW1lAwUIbmV3T3JkQW0FDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QEBndoSW5pdAMJAGYCCQCQAwEIBQNhY2MCXzYFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl82BQFqAAAEC2N1ck9yZFBhcnRzCQC1CQIDCQBmAgkAkAMBCAUDYWNjAl83BQFqCQCRAwIIBQNhY2MCXzcFAWoCAzBAMAIBQAQIY3VyT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwAABAhjdXJPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFC2N1ck9yZFBhcnRzAAEDAwkAZgIAAAUIY3VyT3JkUHIGCQBmAgAABQhuZXdPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAljdXJPcmRVc2QDBQZpc1Byb2QJAGgCBQhjdXJPcmRBbQUIY3VyT3JkUHIJAGsDBQhjdXJPcmRBbQUIY3VyT3JkUHIFBU1VTFQ4AwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAnAoKCQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUGd2hJbml0CAUDYWNjAl8zCAUDYWNjAl80CQBlAggFA2FjYwJfNQUJY3VyT3JkVXNkCAUDYWNjAl82CAUDYWNjAl83BQZpc1Byb2QJAGQCCAUDYWNjAl85CQEIdG9Wb2x1bWUDBQZ3aEluaXQFDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwCQCcCgoJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUGd2hJbml0BQhjdXJPcmRBbQgFA2FjYwJfMwgFA2FjYwJfNAgFA2FjYwJfNQgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQBkAggFA2FjYwJfOQkBCHRvVm9sdW1lAwkAZQIFBndoSW5pdAUIY3VyT3JkQW0FDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwAwkAZgIFCG5ld09yZEFtAAADCQBmAgAABQhjdXJPcmRBbQkAnAoKCQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFBndoSW5pdAUIY3VyT3JkQW0JAGQCCAUDYWNjAl8zBQluZXdPcmRWb2wIBQNhY2MCXzQJAGQCCAUDYWNjAl81BQluZXdPcmRVc2QIBQNhY2MCXzYIBQNhY2MCXzcFBmlzUHJvZAkBCHRvVm9sdW1lAwkAZQIFBndoSW5pdAUIY3VyT3JkQW0FDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwCQCcCgoJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQZ3aEluaXQJAGQCCAUDYWNjAl8zBQluZXdPcmRWb2wIBQNhY2MCXzQJAGUCCQBkAggFA2FjYwJfNQUJbmV3T3JkVXNkBQljdXJPcmRVc2QIBQNhY2MCXzYIBQNhY2MCXzcFBmlzUHJvZAkBCHRvVm9sdW1lAwUGd2hJbml0BQ5QUk9EVUNUUEtHU0laRQUGaXNQcm9kCAUDYWNjA18xMAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGUCBQhjdXJPcmRBbQUIbmV3T3JkQW0DCQBmAgAACQBlAgUGd2hJbml0BQZhbURpZmYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQUGYW1EaWZmAhogZnJvbSB3YXJlaG91c2UsIGJ1dCBvbmx5IAkApAMBBQZ3aEluaXQCCiBhdmFpbGFibGUJAJwKCgkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQZ3aEluaXQFBmFtRGlmZggFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAgFA2FjYwJfNQgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQEIdG9Wb2x1bWUDCQBlAgUGd2hJbml0BQZhbURpZmYFDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwAwkAZgIAAAkAZAIFBndoSW5pdAUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUGd2hJbml0AgogYXZhaWxhYmxlCQCcCgoJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUGd2hJbml0BQhuZXdPcmRBbQgFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAkAZQIIBQNhY2MCXzUFCWN1ck9yZFVzZAgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQEIdG9Wb2x1bWUDCQBkAgUGd2hJbml0BQhuZXdPcmRBbQUOUFJPRFVDVFBLR1NJWkUFBmlzUHJvZAgFA2FjYwNfMTABC3NldEludGVybmFsAwljdXJyZW50V2gKY3VycmVudE9yZAZuZXdPcmQECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALwJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQNY3VycmVudE9yZFJlcwkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeFJlcwIBXwQNY3VycmVudE9yZE1hdAkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeE1hdAIBXwQOY3VycmVudE9yZFByb2QDCQAAAgkAkQMCBQpjdXJyZW50T3JkBQpvcmRJZHhQcm9kAgAFA25pbAkAvAkCCQCRAwIFCmN1cnJlbnRPcmQFCm9yZElkeFByb2QCAV8DCQECIT0CCQCQAwEFBm5ld09yZAADCQACAQIzbmV3T3JkZXJTdHIgc2hvdWxkIGNvbnRhaW4gZXhhY3RseSAyICc6JyBzZXBhcmF0b3JzBAhyZXNQYXJ0cwkAtQkCCQCRAwIFBm5ld09yZAAAAgFfBAhtYXRQYXJ0cwkAtQkCCQCRAwIFBm5ld09yZAABAgFfBAlwcm9kUGFydHMDCQAAAgkAkQMCBQZuZXdPcmQAAgIABQNuaWwJALwJAgkAkQMCBQZuZXdPcmQAAgIBXwMJAQIhPQIJAJADAQUIcmVzUGFydHMFBk5VTVJFUwkAAgECIEFsbCA2IHJlc291cmNlcyBzaG91bGQgYmUgcGFzc2VkAwkBAiE9AgkAkAMBBQhtYXRQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgbWF0ZXJpYWxzIHNob3VsZCBiZSBwYXNzZWQEAXIKAAIkbAUIcmVzVHlwZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCcCgoAAAUDbmlsAAAAAAAABQljdXJyV2hSZXMFDWN1cnJlbnRPcmRSZXMHAAAFCHJlc1BhcnRzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlzZXRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEAW0KAAIkbAUIbWF0VHlwZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCcCgoAAAUDbmlsCAUBcgJfMwgFAXICXzQIBQFyAl81BQljdXJyV2hNYXQFDWN1cnJlbnRPcmRNYXQHCAUBcgJfOQUIbWF0UGFydHMKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBcAoAAiRsBQlwcm9kVHlwZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCcCgoAAAUDbmlsCAUBbQJfMwgFAW0CXzQIBQFtAl81BQpjdXJyV2hQcm9kBQ5jdXJyZW50T3JkUHJvZAYIBQFtAl85BQlwcm9kUGFydHMKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjJfMgIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyCQCZCgcIBQFyAl8yCAUBbQJfMggFAXACXzIIBQFwAl8zCAUBcAJfNAgFAXACXzUIBQFwAl85AQxhY2NlcHRDb21tb24CA2FjYwlicE9yZEl0ZW0EAWoIBQNhY2MCXzcEBmlzUHJvZAgFA2FjYwNfMTIECmJwT3JkUGFydHMJALUJAgUJYnBPcmRJdGVtAgFAAwkBAiE9AgkAkAMBBQpicE9yZFBhcnRzAAIJAAIBAi5JbmNvcnJlY3Qgb3JkZXIgZm9ybWF0LCBzaG91bGQgYmUgYW1vdW50QHByaWNlBAdicE9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKYnBPcmRQYXJ0cwAABAdicE9yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKYnBPcmRQYXJ0cwABAwkAZgIAAAUHYnBPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAhicE9yZFVzZAMFBmlzUHJvZAkAaAIFB2JwT3JkQW0FB2JwT3JkUHIJAGsDBQdicE9yZEFtBQdicE9yZFByBQVNVUxUOAQGYnBJbml0AwkAZgIJAJADAQgFA2FjYwJfOAUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIIBQNhY2MCXzgFAWoAAAQGd2hJbml0AwkAZgIJAJADAQgFA2FjYwJfOQUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIIBQNhY2MCXzkFAWoAAAQJd2hPcmRJbml0AwkAZgIJAJADAQgFA2FjYwNfMTAFAWoJAJEDAggFA2FjYwNfMTAFAWoCAzBAMAQKd2hPcmRQYXJ0cwkAtQkCBQl3aE9yZEluaXQCAUAEB3doT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAAEB3doT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAEDAwkBAiE9AgUHYnBPcmRBbQAACQECIT0CBQdicE9yZFByBQd3aE9yZFByBwkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAgpQcmljZXMgb2YgCQCRAwIIBQNhY2MDXzExBQFqAhcgZG9uJ3QgbWF0Y2ghIFdIIHByaWNlPQkApAMBBQd3aE9yZFByAg0sIHlvdXIgcHJpY2U9CQCkAwEFB2JwT3JkUHIECHdoT3JkVXNkAwUGaXNQcm9kCQBoAgUHd2hPcmRBbQUHd2hPcmRQcgkAawMFB3doT3JkQW0FB3doT3JkUHIFBU1VTFQ4BAhkZWx0YVZvbAkBCHRvVm9sdW1lAwUHYnBPcmRBbQUOUFJPRFVDVFBLR1NJWkUFBmlzUHJvZAMJAAACBQdicE9yZEFtAAAJAJ8KDQkAzQgCCAUDYWNjAl8xCQCkAwEFBndoSW5pdAkAzQgCCAUDYWNjAl8yBQl3aE9yZEluaXQJAM0IAggFA2FjYwJfMwkApAMBBQZicEluaXQIBQNhY2MCXzQIBQNhY2MCXzUIBQNhY2MCXzYJAGQCCAUDYWNjAl83AAEIBQNhY2MCXzgIBQNhY2MCXzkIBQNhY2MDXzEwCAUDYWNjA18xMQUGaXNQcm9kCAUDYWNjA18xMwMJAGYCBQdicE9yZEFtAAADCQBmAgAABQd3aE9yZEFtAwkAZgIFB2JwT3JkQW0JAQEtAQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BdHRlbXB0IHRvIGJ1eSAJAKQDAQUHYnBPcmRBbQIEIG9mIAkAkQMCCAUDYWNjA18xMQUBagIbLCBidXQgd2FyZWhvdXNlIG9ubHkgc2VsbHMgCQCkAwEJAQEtAQUHd2hPcmRBbQkAnwoNCQDNCAIIBQNhY2MCXzEJAKQDAQUGd2hJbml0CQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUGYnBJbml0BQdicE9yZEFtCQBkAggFA2FjYwJfNAUIZGVsdGFWb2wIBQNhY2MCXzUJAGQCCAUDYWNjAl82BQhicE9yZFVzZAkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExBQZpc1Byb2QJAGQCCAUDYWNjA18xMwMFBmlzUHJvZAkAaAIFB2JwT3JkQW0FBU1VTFQ4BQdicE9yZEFtCQACAQkArAICCQCsAgICD0F0dGVtcHQgdG8gYnV5IAkAkQMCCAUDYWNjA18xMQUBagIgIHdoaWxlIHdhcmVob3VzZSBkb2Vzbid0IHNlbGwgaXQDCQBmAgUHd2hPcmRBbQAAAwkAZgIJAQEtAQUHYnBPcmRBbQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCkAwEJAQEtAQUHYnBPcmRBbQIEIG9mIAkAkQMCCAUDYWNjA18xMQUBagIaLCBidXQgd2FyZWhvdXNlIG9ubHkgYnV5cyAJAKQDAQUHd2hPcmRBbQMJAGYCCQEBLQEFB2JwT3JkQW0FBmJwSW5pdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCkAwEJAQEtAQUHYnBPcmRBbQIULCBidXQgeW91IG9ubHkgaGF2ZSAJAKQDAQUGYnBJbml0AgQgb2YgCQCRAwIIBQNhY2MDXzExBQFqCQCfCg0JAM0IAggFA2FjYwJfMQkApAMBCQBlAgUGd2hJbml0BQdicE9yZEFtCQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUGYnBJbml0BQdicE9yZEFtCQBlAggFA2FjYwJfNAUIZGVsdGFWb2wJAGUCCAUDYWNjAl81BQhicE9yZFVzZAgFA2FjYwJfNgkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExBQZpc1Byb2QJAGUCCAUDYWNjA18xMwMFBmlzUHJvZAkAaAIFB2JwT3JkQW0FBU1VTFQ4BQdicE9yZEFtCQACAQkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAJEDAggFA2FjYwNfMTEFAWoCHyB3aGlsZSB3YXJlaG91c2UgZG9lc24ndCBidXkgaXQBE3NlbGxSZXNvdXJjZXNDb21tb24EB3Jlc0xpc3QMZmFjdG9yeUxvY0lkB2Ftb3VudHMJbWluUHJpY2VzCgEFYWRkZXICA2FjYwFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCFCwgYnV0IHRyaWVkIHRvIHNlbGwgCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJVlvdSB0cmllZCB0byBzZWxsIG5lZ2F0aXZlIGFtb3VudCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCAjogCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCCQCRAwIFB2Ftb3VudHMFAWoAAAQBYgkBDHNlbGxJbnRlcm5hbAQFDGZhY3RvcnlMb2NJZAUBagkAkQMCBQdhbW91bnRzBQFqCQCRAwIFCW1pblByaWNlcwUBagkAlgoECQDNCAIIBQNhY2MCXzEIBQFiAl8xCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQFqCQCRAwIFB2Ftb3VudHMFAWoJAGQCCAUDYWNjAl8zCAUBYgJfMgkAZAIIBQNhY2MCXzQJAJEDAgUHYW1vdW50cwUBagkAlgoECAUDYWNjAl8xCQDNCAIIBQNhY2MCXzIJAJEDAgUHcmVzTGlzdAUBaggFA2FjYwJfMwgFA2FjYwJfNAoAAiRsBQVJVEVSNgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQNuaWwAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgESYnV5TWF0ZXJpYWxzQ29tbW9uBAdtYXRMaXN0DGZhY3RvcnlMb2NJZAdhbW91bnRzCW1heFByaWNlcwoBCG1VcGRhdGVyAgNhY2MBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJFlvdSB0cmllZCB0byBidXkgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhtYXRUeXBlcwUBagICOiAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagAABAFiCQELYnV5SW50ZXJuYWwEBQxmYWN0b3J5TG9jSWQFAWoJAJEDAgUHYW1vdW50cwUBagkAkQMCBQltYXhQcmljZXMFAWoJAJYKBAkAzQgCCAUDYWNjAl8xCAUBYgJfMQkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHbWF0TGlzdAUBaggFAWICXzMJAGQCCAUDYWNjAl8zCAUBYgJfMgkAZAIIBQNhY2MCXzQJAJEDAgUHYW1vdW50cwUBagkAlgoECAUDYWNjAl8xCQDNCAIIBQNhY2MCXzIJAJEDAgUHbWF0TGlzdAUBaggFA2FjYwJfMwgFA2FjYwJfNAoAAiRsBQVJVEVSNgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQNuaWwAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhtVXBkYXRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgEXZXhjaGFuZ2VSZXNvdXJjZXNDb21tb24DB3Jlc0xpc3QHbWF0TGlzdAdhbW91bnRzCgEJZXhjaGFuZ2VyAgNhY2MBagQDYW1qCQCRAwIFB2Ftb3VudHMFAWoDCQBmAgUDYW1qCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAglZb3UgaGF2ZSAJAJEDAgUHcmVzTGlzdAUBagIEIG9mIAkAkQMCBQhyZXNUeXBlcwUBagIYLCBidXQgdHJpZWQgdG8gZXhjaGFuZ2UgCQCkAwEFA2FtagMJAGYCAAAFA2FtagkAAgEJAKwCAgkArAICCQCsAgICKVlvdSB0cmllZCB0byBleGNoYW5nZSBuZWdhdGl2ZSBhbW91bnQgb2YgCQCRAwIFCHJlc1R5cGVzBQFqAgI6IAkApAMBBQNhbWoDCQBmAgUDYW1qAAAJAJYKBAkAzQgCCAUDYWNjAl8xCQCkAwEJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagUDYW1qCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqBQNhbWoJAGQCCAUDYWNjAl8zCQBrAwUDYW1qBRBSRVNPVVJDRVBSSUNFTUlOBQVNVUxUOAkAZAIIBQNhY2MCXzQFA2FtagkAlgoECQDNCAIIBQNhY2MCXzEJAJEDAgUHcmVzTGlzdAUBagkAzQgCCAUDYWNjAl8yCQCRAwIFB21hdExpc3QFAWoIBQNhY2MCXzMIBQNhY2MCXzQKAAIkbAUFSVRFUjYKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAUDbmlsAAAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJZXhjaGFuZ2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGARBzaG9wMnVzZXJBY3Rpb25zAw11c2RXaDJCcFNhbGRvCmNhbGxlckFkZHILcmVjZWl2ZWRGZWUDCQBmAgUNdXNkV2gyQnBTYWxkbwAABAt1c2RXaDJCcEZlZQkAawMFDXVzZFdoMkJwU2FsZG8FCkFVQ1RJT05GRUUFBU1VTFQ2AwkAZwIFC3JlY2VpdmVkRmVlCQBlAgUNdXNkV2gyQnBTYWxkbwkAaAIAAwULdXNkV2gyQnBGZWUJAAIBCQCsAgICK1RoaXMgdHJhZGUgZG9lcyBub3QgY292ZXIgZGVsaXZlcnkgY29zdCBvZiAJAQpmaXhlZFBvaW50AgULcmVjZWl2ZWRGZWUABgQIcmVmQnlLZXkJAQ9rZXlBZGRyZXNzUmVmQnkBBQpjYWxsZXJBZGRyBAVyZWZCeQkAnQgCBQ9zdGFraW5nQ29udHJhY3QFCHJlZkJ5S2V5BAZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCmNhbGxlckFkZHIJAM0IAgkAzQgCAwkBCWlzRGVmaW5lZAEFBXJlZkJ5CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEFBXJlZkJ5BQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIJAGUCCQBlAgUNdXNkV2gyQnBTYWxkbwkAaAIAAwULdXNkV2gyQnBGZWUFC3JlY2VpdmVkRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQFA25pbAEQdXNlcjJzaG9wQWN0aW9ucwQNdXNkQnAyV2hTYWxkbwRwbXRzDXNob3BMYW5kT3duZXIIc3BlbnRGZWUDCQBmAgUNdXNkQnAyV2hTYWxkbwAAAwkBAiE9AgkAkAMBBQRwbXRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAgUEcG10cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBBB1c2R0U3BlbnRXaXRoRmVlCQBkAgUNdXNkQnAyV2hTYWxkbwUIc3BlbnRGZWUDCQECIT0CBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQ11c2RCcDJXaFNhbGRvAAYCASsJAQpmaXhlZFBvaW50AgUIc3BlbnRGZWUABgIOKGRlbGl2ZXJ5IGZlZSkDCQBmAgUOTUlOU0hPUFBBWU1FTlQFDXVzZEJwMldoU2FsZG8JAAIBCQCsAgICEk1pbiBzaG9wIHRyYWRlIGlzIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGBAt1c2RCcDJXaEZlZQkAawMFDXVzZEJwMldoU2FsZG8FCkFVQ1RJT05GRUUFBU1VTFQ2BAhyZWZCeUtleQkBD2tleUFkZHJlc3NSZWZCeQEFDXNob3BMYW5kT3duZXIEBXJlZkJ5CQCdCAIFD3N0YWtpbmdDb250cmFjdAUIcmVmQnlLZXkJAM0IAgkAzQgCAwkBCWlzRGVmaW5lZAEFBXJlZkJ5CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEFBXJlZkJ5BQt1c2RCcDJXaEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQ1zaG9wTGFuZE93bmVyCQBlAgUNdXNkQnAyV2hTYWxkbwkAaAIAAwULdXNkQnAyV2hGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAMJAQIhPQIJAJADAQUEcG10cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkBQNuaWwBFWFjY2VwdFNob3BPcmRlckNvbW1vbgYPc2hvcExhbmRBc3NldElkCmNhbGxlckFkZHIKYnBPcmRlclN0cglicFJlc0xpc3QJYnBNYXRMaXN0CmJwUHJvZExpc3QECWxhbmRBc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFD3Nob3BMYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFD3Nob3BMYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUJbGFuZEFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBA1zaG9wTGFuZE93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQUPc2hvcExhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFCWxhbmRBc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQAAAgUNc2hvcExhbmRPd25lcgUKY2FsbGVyQWRkcgkAAgECHllvdSBjYW5ub3QgdHJhZGUgd2l0aCB5b3Vyc2VsZgQMYnBPcmRlclBhcnRzCQC8CQIFCmJwT3JkZXJTdHICAToDCQECIT0CCQCQAwEFDGJwT3JkZXJQYXJ0cwADCQACAQIyYnBPcmRlclN0ciBzaG91bGQgY29udGFpbiBleGFjdGx5IDIgJzonIHNlcGFyYXRvcnMECGJwT3JkUmVzCQC1CQIJAJEDAgUMYnBPcmRlclBhcnRzAAACAV8ECGJwT3JkTWF0CQC1CQIJAJEDAgUMYnBPcmRlclBhcnRzAAECAV8ECWJwT3JkUHJvZAMJAAACCQCRAwIFDGJwT3JkZXJQYXJ0cwACAgAFA25pbAkAvAkCCQCRAwIFDGJwT3JkZXJQYXJ0cwACAgFfAwkBAiE9AgkAkAMBBQhicE9yZFJlcwUGTlVNUkVTCQACAQIgQWxsIDYgcmVzb3VyY2VzIHNob3VsZCBiZSBwYXNzZWQDCQECIT0CCQCQAwEFCGJwT3JkTWF0BQZOVU1SRVMJAAIBAiBBbGwgNiBtYXRlcmlhbHMgc2hvdWxkIGJlIHBhc3NlZAQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQ9zaG9wTGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALwJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQPY3VycldoTG9ja2VkVm9sCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBQl2b2xMb2NrZWQEBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQUPc2hvcExhbmRBc3NldElkBAV3aE9yZAkBCGdldE9yZGVyAQUGb3JkS2V5BAh3aE9yZFJlcwkAtQkCCQCRAwIFBXdoT3JkBQlvcmRJZHhSZXMCAV8ECHdoT3JkTWF0CQC1CQIJAJEDAgUFd2hPcmQFCW9yZElkeE1hdAIBXwQJd2hPcmRQcm9kAwkAAAIJAJEDAgUFd2hPcmQFCm9yZElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgUFd2hPcmQFCm9yZElkeFByb2QCAV8EAXIKAAIkbAUIYnBPcmRSZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCfCg0FA25pbAUDbmlsBQNuaWwAAAAAAAAAAAUJYnBSZXNMaXN0BQljdXJyV2hSZXMFCHdoT3JkUmVzBQhyZXNUeXBlcwcAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMYWNjZXB0Q29tbW9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAFtCgACJGwFCGJwT3JkTWF0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAnwoNBQNuaWwFA25pbAUDbmlsCAUBcgJfNAgFAXICXzUIBQFyAl82AAAFCWJwTWF0TGlzdAUJY3VycldoTWF0BQh3aE9yZE1hdAUIbWF0VHlwZXMHCAUBcgNfMTMKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGFjY2VwdENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBcAMJAQIhPQIJAJADAQUJYnBPcmRQcm9kAAAKAAIkbAUJYnBPcmRQcm9kCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAnwoNBQNuaWwFA25pbAUDbmlsCAUBbQJfNAgFAW0CXzUIBQFtAl82AAAFCmJwUHJvZExpc3QFCmN1cnJXaFByb2QFCXdoT3JkUHJvZAUJcHJvZFR5cGVzBggFAW0DXzEzCgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhY2NlcHRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgkAnwoNBQpjdXJyV2hQcm9kBQl3aE9yZFByb2QFCmJwUHJvZExpc3QIBQFtAl80CAUBbQJfNQgFAW0CXzYAAAUKYnBQcm9kTGlzdAUKY3VycldoUHJvZAUJd2hPcmRQcm9kBQlwcm9kVHlwZXMGCAUBbQNfMTMECHZvbFNhbGRvCAUBcAJfNAQMbmV3TG9ja2VkVm9sAwkAZgIAAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8AAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8EBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXICXzECAV8JAMwIAgkAuQkCCAUBbQJfMQIBXwkAzAgCCQC6CQIIBQFwAl8xAgFfCQDMCAIJAKQDAQUMbmV3TG9ja2VkVm9sBQNuaWwCAToEC25ld1doT3JkU3RyCQC6CQIJAMwIAgkAuQkCCAUBcgJfMgIBXwkAzAgCCQC5CQIIBQFtAl8yAgFfCQDMCAIJALoJAggFAXACXzICAV8FA25pbAIBOgQGd2hTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQ9zaG9wTGFuZEFzc2V0SWQFA25pbAUDbmlsBA5hY2NTdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFDXNob3BMYW5kT3duZXIJAMwIAgkAawMFBnhwU2hvcAgFAXADXzEzBQVNVUxUOAUDbmlsBQNuaWwJAJwKCgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdXaE9yZFN0cggFAXICXzMIBQFtAl8zCAUBcAJfMwgFAXACXzUIBQFwAl82CAUBcANfMTMFDXNob3BMYW5kT3duZXIFBndoU2F2ZQUOYWNjU3RhdHNSZXN1bHQBGnNlbGxSZXNvdXJjZXNXb3JsZEludGVybmFsAQZhbW91bnQEBm9uZVJlcwkAaQIFBmFtb3VudAAeBBFvbmVGYWN0b3J5QW1vdW50cwkAzAgCBQZvbmVSZXMJAMwIAgUGb25lUmVzCQDMCAIFBm9uZVJlcwkAzAgCBQZvbmVSZXMJAMwIAgUGb25lUmVzCQDMCAIFBm9uZVJlcwUDbmlsBAFzCQCkAwEFBm9uZVJlcwQHcmVzTGlzdAkAzAgCBQFzCQDMCAIFAXMJAMwIAgUBcwkAzAgCBQFzCQDMCAIFAXMJAMwIAgUBcwUDbmlsBAltaW5QcmljZXMJAMwIAgAACQDMCAIAAAkAzAgCAAAJAMwIAgAACQDMCAIAAAkAzAgCAAAFA25pbAoBCm9uZUZhY3RvcnkCA2FjYwljb250aW5lbnQEAXgJARNzZWxsUmVzb3VyY2VzQ29tbW9uBAUHcmVzTGlzdAUJY29udGluZW50BRFvbmVGYWN0b3J5QW1vdW50cwUJbWluUHJpY2VzCQCVCgMJAM4IAggFA2FjYwJfMQgFAXgCXzEJAGQCCAUDYWNjAl8yCAUBeAJfMwkAZAIIBQNhY2MCXzMIBQF4Al80BA0kdDAyNTI3MDI1MzYwCgACJGwFCmNvbnRpbmVudHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAAAAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCm9uZUZhY3RvcnkCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFBA5mYWN0b3J5QWN0aW9ucwgFDSR0MDI1MjcwMjUzNjACXzEEDHVzZHRSZWNlaXZlZAgFDSR0MDI1MjcwMjUzNjACXzIECHRvdGFsUmVzCAUNJHQwMjUyNzAyNTM2MAJfMwQDZmVlCQBrAwUMdXNkdFJlY2VpdmVkBQxERUxJVkVSWV9GRUUFBU1VTFQ2BBBhY3Rpdml0aWVzQW1vdW50CQBpAgUMdXNkdFJlY2VpdmVkAGQECHVzZHRMZWZ0CQBlAgkAZQIFDHVzZHRSZWNlaXZlZAUQYWN0aXZpdGllc0Ftb3VudAUDZmVlCQCXCgUFDmZhY3RvcnlBY3Rpb25zBQh1c2R0TGVmdAUDZmVlBRBhY3Rpdml0aWVzQW1vdW50BQh0b3RhbFJlcxYBaQEacmVjYWxjTG9ja2VkVm9sdW1lUkVBRE9OTFkCC2xhbmRBc3NldElkAndoBApjdXJyZW50T3JkCQEIZ2V0T3JkZXIBCQEOa2V5T3JkZXJCeUxhbmQBBQtsYW5kQXNzZXRJZAQBegkBC3NldEludGVybmFsAwUCd2gFCmN1cnJlbnRPcmQFCmN1cnJlbnRPcmQJAJQKAgUDbmlsCQBkAggFAXoCXzQIBQF6Al81AWkBDWNvbnN0cnVjdG9yVjEBCHJlc3RBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDmtleVJlc3RBZGRyZXNzAAUIcmVzdEFkZHIFA25pbAFpAQ1zZWxsUmVzb3VyY2VzAgdhbW91bnRzCW1pblByaWNlcwQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIqc2VsbFJlc291cmNlcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQNJHQwMjY4MTUyNjk0MQkBE3NlbGxSZXNvdXJjZXNDb21tb24EBQdyZXNMaXN0CQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAUHYW1vdW50cwUJbWluUHJpY2VzBA5mYWN0b3J5QWN0aW9ucwgFDSR0MDI2ODE1MjY5NDECXzEEBm5ld1JlcwgFDSR0MDI2ODE1MjY5NDECXzIEDHVzZHRSZWNlaXZlZAgFDSR0MDI2ODE1MjY5NDECXzMECHRvdGFsUmVzCAUNJHQwMjY4MTUyNjk0MQJfNAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFDHVzZHRSZWNlaXZlZABkBAduZXdQYWNrCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIFBm5ld1JlcwIBXwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgQOYmFja3BhY2tSZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFB3hwVHJhZGUFCHRvdGFsUmVzBQVNVUxUOAUDbmlsBQNuaWwJAJQKAgkAzQgCCQDNCAIFDmZhY3RvcnlBY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQx1c2R0UmVjZWl2ZWQFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkCQCVCgMFDmJhY2twYWNrUmVzdWx0BQxwcm9sb2dSZXN1bHQFC3N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEnNlbGxSZXNvdXJjZXNXb3JsZAIEYWRkcgZhbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFDWFjcmVzQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQNJHQwMjc3MzMyNzg5MAkBGnNlbGxSZXNvdXJjZXNXb3JsZEludGVybmFsAQUGYW1vdW50BA5mYWN0b3J5QWN0aW9ucwgFDSR0MDI3NzMzMjc4OTACXzEECHVzZHRMZWZ0CAUNJHQwMjc3MzMyNzg5MAJfMgQDZmVlCAUNJHQwMjc3MzMyNzg5MAJfMwQQYWN0aXZpdGllc0Ftb3VudAgFDSR0MDI3NzMzMjc4OTACXzQECHRvdGFsUmVzCAUNJHQwMjc3MzMyNzg5MAJfNQMJAGcCAAAFCHVzZHRMZWZ0CQACAQkArAICAitUaGlzIHRyYWRlIGRvZXMgbm90IGNvdmVyIGRlbGl2ZXJ5IGNvc3Qgb2YgCQEKZml4ZWRQb2ludAIFA2ZlZQAGBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFBGFkZHIJAMwIAgkAawMFB3hwVHJhZGUFCHRvdGFsUmVzBQVNVUxUOAUDbmlsBQNuaWwJAJQKAgkAzQgCCQDNCAIJAM0IAgUOZmFjdG9yeUFjdGlvbnMJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAABQNmZWUJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAQ5TY3JpcHRUcmFuc2ZlcgMFEmludmVzdEZ1bmRDb250cmFjdAUIdXNkdExlZnQFC3VzZHRBc3NldElkCQCUCgIFCHVzZHRMZWZ0BQtzdGF0c1Jlc3VsdAFpARpzZWxsUmVzb3VyY2VzV29ybGRSRUFET05MWQEGYW1vdW50BAh1c2R0TGVmdAgJARpzZWxsUmVzb3VyY2VzV29ybGRJbnRlcm5hbAEFBmFtb3VudAJfMgkAlAoCBQNuaWwFCHVzZHRMZWZ0AWkBGXNlbGxSZXNvdXJjZXNEdWNrRGVsaXZlcnkDB2Ftb3VudHMJbWluUHJpY2VzEGZhY3RvcnlDb250aW5lbnQDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIqc2VsbFJlc291cmNlcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB3Jlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8EDSR0MDI5MTI2MjkyNDcJARNzZWxsUmVzb3VyY2VzQ29tbW9uBAUHcmVzTGlzdAUQZmFjdG9yeUNvbnRpbmVudAUHYW1vdW50cwUJbWluUHJpY2VzBA5mYWN0b3J5QWN0aW9ucwgFDSR0MDI5MTI2MjkyNDcCXzEEBm5ld1JlcwgFDSR0MDI5MTI2MjkyNDcCXzIEDHVzZHRSZWNlaXZlZAgFDSR0MDI5MTI2MjkyNDcCXzMECHRvdGFsUmVzCAUNJHQwMjkxMjYyOTI0NwJfNAQHbmV3UGFjawkAugkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCBQZuZXdSZXMCAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEDmJhY2twYWNrUmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIPdXBkYXRlRHVja1N0YXRzCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIJAGsDBQd4cFRyYWRlBQh0b3RhbFJlcwUFTVVMVDgFA25pbAUDbmlsBAdmZWVQYXJ0CQBrAwUMdXNkdFJlY2VpdmVkBQxERUxJVkVSWV9GRUUFBU1VTFQ2BANmZWUDCQBmAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQdmZWVQYXJ0BRVNSU5fVVNEVF9GRUVfREVMSVZFUlkFB2ZlZVBhcnQEEGFjdGl2aXRpZXNBbW91bnQJAGkCBQx1c2R0UmVjZWl2ZWQAZAMJAGcCBQNmZWUJAGUCBQx1c2R0UmVjZWl2ZWQFEGFjdGl2aXRpZXNBbW91bnQJAAIBCQCsAgICK1RoaXMgdHJhZGUgZG9lcyBub3QgY292ZXIgZGVsaXZlcnkgY29zdCBvZiAJAQpmaXhlZFBvaW50AgUDZmVlAAYECWZ1bmRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9kZWxpdmVyeUZ1bmRLZXkAAAkAlAoCCQDNCAIJAM0IAgkAzQgCBQ5mYWN0b3J5QWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgkAZQIFDHVzZHRSZWNlaXZlZAUQYWN0aXZpdGllc0Ftb3VudAUDZmVlBQt1c2R0QXNzZXRJZAkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAUDZmVlCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkCQCVCgMFDmJhY2twYWNrUmVzdWx0BQxwcm9sb2dSZXN1bHQFC3N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGXNlbGxSZXNvdXJjZXNMYW5kRGVsaXZlcnkEB2Ftb3VudHMJbWluUHJpY2VzC2xhbmRBc3NldElkEGZhY3RvcnlDb250aW5lbnQDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECKnNlbGxSZXNvdXJjZXMgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQEdXNlcggFAWkGY2FsbGVyBARhZGRyCQClCAEFBHVzZXIEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwkBAiE9AgUFb3duZXIFBGFkZHIJAAIBCQCsAgIFCkxBTkRQUkVGSVgCDSBpcyBub3QgeW91cnMEAndoCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIUZ2V0V2FyZWhvdXNlUkVBRE9OTFkJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToEB3Jlc0xpc3QJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBA0kdDAzMTI3NzMxMzk4CQETc2VsbFJlc291cmNlc0NvbW1vbgQFB3Jlc0xpc3QFEGZhY3RvcnlDb250aW5lbnQFB2Ftb3VudHMFCW1pblByaWNlcwQOZmFjdG9yeUFjdGlvbnMIBQ0kdDAzMTI3NzMxMzk4Al8xBAZuZXdSZXMIBQ0kdDAzMTI3NzMxMzk4Al8yBAx1c2R0UmVjZWl2ZWQIBQ0kdDAzMTI3NzMxMzk4Al8zBAh0b3RhbFJlcwgFDSR0MDMxMjc3MzEzOTgCXzQEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAgUGbmV3UmVzAgFfCQDMCAIJAJEDAgUJY3VycmVudFdoBQh3aElkeE1hdAkAzAgCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhQcm9kCQDMCAIJAJEDAgUJY3VycmVudFdoBQl3aElkeExPRlQFA25pbAIBOgQGd2hTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUEYWRkcgkAzAgCCQBrAwUHeHBUcmFkZQUIdG90YWxSZXMFBU1VTFQ4BQNuaWwFA25pbAQHZmVlUGFydAkAawMFDHVzZHRSZWNlaXZlZAUMREVMSVZFUllfRkVFBQVNVUxUNgQDZmVlAwkAZgIFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUHZmVlUGFydAUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQdmZWVQYXJ0BBBhY3Rpdml0aWVzQW1vdW50CQBpAgUMdXNkdFJlY2VpdmVkAGQDCQBnAgUDZmVlCQBlAgUMdXNkdFJlY2VpdmVkBRBhY3Rpdml0aWVzQW1vdW50CQACAQkArAICAitUaGlzIHRyYWRlIGRvZXMgbm90IGNvdmVyIGRlbGl2ZXJ5IGNvc3Qgb2YgCQEKZml4ZWRQb2ludAIFA2ZlZQAGBAlmdW5kVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPZGVsaXZlcnlGdW5kS2V5AAAJAJQKAgkAzQgCCQDNCAIJAM0IAgUOZmFjdG9yeUFjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIJAGUCBQx1c2R0UmVjZWl2ZWQFEGFjdGl2aXRpZXNBbW91bnQFA2ZlZQULdXNkdEFzc2V0SWQJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGQCBQlmdW5kVG90YWwFA2ZlZQkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BRBhY3Rpdml0aWVzQW1vdW50BQt1c2R0QXNzZXRJZAkAlQoDBQZ3aFNhdmUFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMYnV5TWF0ZXJpYWxzAgdhbW91bnRzCW1heFByaWNlcwQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBA0kdDAzMzI2MTMzMzgzCQESYnV5TWF0ZXJpYWxzQ29tbW9uBAUHbWF0TGlzdAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQFB2Ftb3VudHMFCW1heFByaWNlcwQOZmFjdG9yeUFjdGlvbnMIBQ0kdDAzMzI2MTMzMzgzAl8xBAZuZXdNYXQIBQ0kdDAzMzI2MTMzMzgzAl8yBAl1c2R0U3BlbnQIBQ0kdDAzMzI2MTMzMzgzAl8zBAh0b3RhbE1hdAgFDSR0MDMzMjYxMzMzODMCXzQDCQBmAgUJdXNkdFNwZW50BQNhbXQJAAIBCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQl1c2R0U3BlbnQABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgkAuQkCBQZuZXdNYXQCAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEDmJhY2twYWNrUmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEBHJlc3QDCQBmAgkAZQIFA2FtdAUJdXNkdFNwZW50AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10BQl1c2R0U3BlbnQFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFCXVzZHRTcGVudABkBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUHeHBUcmFkZQUIdG90YWxNYXQFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDNCAIJAM4IAgUOZmFjdG9yeUFjdGlvbnMFBHJlc3QJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAJUKAwUOYmFja3BhY2tSZXN1bHQFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEYYnV5TWF0ZXJpYWxzRHVja0RlbGl2ZXJ5AwdhbW91bnRzCW1heFByaWNlcxBmYWN0b3J5Q29udGluZW50AwkBASEBBRFLU19BTExPV19ERUxJVkVSWQkAAgECH0RlbGl2ZXJ5IGZlYXR1cmUgaXMgdHVybmVkIG9mZiEEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8EDSR0MDM0OTA0MzUwMjEJARJidXlNYXRlcmlhbHNDb21tb24EBQdtYXRMaXN0BRBmYWN0b3J5Q29udGluZW50BQdhbW91bnRzBQltYXhQcmljZXMEDmZhY3RvcnlBY3Rpb25zCAUNJHQwMzQ5MDQzNTAyMQJfMQQGbmV3TWF0CAUNJHQwMzQ5MDQzNTAyMQJfMgQJdXNkdFNwZW50CAUNJHQwMzQ5MDQzNTAyMQJfMwQIdG90YWxNYXQIBQ0kdDAzNDkwNDM1MDIxAl80BAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQC5CQIFBm5ld01hdAIBXwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgQOYmFja3BhY2tSZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFB3hwVHJhZGUFCHRvdGFsTWF0BQVNVUxUOAUDbmlsBQNuaWwEB2ZlZVBhcnQJAGsDBQl1c2R0U3BlbnQFDERFTElWRVJZX0ZFRQUFTVVMVDYEA2ZlZQMJAGYCBRVNSU5fVVNEVF9GRUVfREVMSVZFUlkFB2ZlZVBhcnQFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUHZmVlUGFydAQQdXNkdFNwZW50V2l0aEZlZQkAZAIFCXVzZHRTcGVudAUDZmVlAwkAZgIFEHVzZHRTcGVudFdpdGhGZWUFA2FtdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAQpmaXhlZFBvaW50AgUDYW10AAYCCywgcmVxdWlyZWQ9CQEKZml4ZWRQb2ludAIFCXVzZHRTcGVudAAGAgErCQEKZml4ZWRQb2ludAIFA2ZlZQAGAg4oZGVsaXZlcnkgZmVlKQQEcmVzdAMJAGYCCQBlAgUDYW10BRB1c2R0U3BlbnRXaXRoRmVlAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10BRB1c2R0U3BlbnRXaXRoRmVlBQt1c2R0QXNzZXRJZAUDbmlsBQNuaWwEEGFjdGl2aXRpZXNBbW91bnQJAGkCBQl1c2R0U3BlbnQAZAQJZnVuZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAACQCUCgIJAM0IAgkAzQgCCQDOCAIFDmZhY3RvcnlBY3Rpb25zBQRyZXN0CQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkCQEMSW50ZWdlckVudHJ5AgUPZGVsaXZlcnlGdW5kS2V5CQBkAgUJZnVuZFRvdGFsBQNmZWUJAJUKAwUOYmFja3BhY2tSZXN1bHQFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEYYnV5TWF0ZXJpYWxzTGFuZERlbGl2ZXJ5BAdhbW91bnRzCW1heFByaWNlcwtsYW5kQXNzZXRJZBBmYWN0b3J5Q29udGluZW50AwkBASEBBRFLU19BTExPV19ERUxJVkVSWQkAAgECH0RlbGl2ZXJ5IGZlYXR1cmUgaXMgdHVybmVkIG9mZiEEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQEdXNlcggFAWkGY2FsbGVyBARhZGRyCQClCAEFBHVzZXIEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwkBAiE9AgUFb3duZXIFBGFkZHIJAAIBCQCsAgIFCkxBTkRQUkVGSVgCDSBpcyBub3QgeW91cnMEAndoCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIUZ2V0V2FyZWhvdXNlUkVBRE9OTFkJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToEB21hdExpc3QJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBA0kdDAzNzMwMjM3NDE5CQESYnV5TWF0ZXJpYWxzQ29tbW9uBAUHbWF0TGlzdAUQZmFjdG9yeUNvbnRpbmVudAUHYW1vdW50cwUJbWF4UHJpY2VzBA5mYWN0b3J5QWN0aW9ucwgFDSR0MDM3MzAyMzc0MTkCXzEEBm5ld01hdAgFDSR0MDM3MzAyMzc0MTkCXzIECXVzZHRTcGVudAgFDSR0MDM3MzAyMzc0MTkCXzMECHRvdGFsTWF0CAUNJHQwMzczMDIzNzQxOQJfNAQFd2hTdHIJALoJAgkAzAgCCQCRAwIFCWN1cnJlbnRXaAULd2hJZHhMZXZlbHMJAMwIAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzCQDMCAIJALkJAgUGbmV3TWF0AgFfCQDMCAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QJAMwIAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4TE9GVAUDbmlsAgE6BAZ3aFNhdmUJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag1zYXZlV2FyZWhvdXNlCQDMCAIFBXdoU3RyCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQRhZGRyCQDMCAIJAGsDBQd4cFRyYWRlBQh0b3RhbE1hdAUFTVVMVDgFA25pbAUDbmlsBAdmZWVQYXJ0CQBrAwUJdXNkdFNwZW50BQxERUxJVkVSWV9GRUUFBU1VTFQ2BANmZWUDCQBmAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQdmZWVQYXJ0BRVNSU5fVVNEVF9GRUVfREVMSVZFUlkFB2ZlZVBhcnQEEHVzZHRTcGVudFdpdGhGZWUJAGQCBQl1c2R0U3BlbnQFA2ZlZQMJAGYCBRB1c2R0U3BlbnRXaXRoRmVlBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQl1c2R0U3BlbnQABgIBKwkBCmZpeGVkUG9pbnQCBQNmZWUABgIOKGRlbGl2ZXJ5IGZlZSkEBHJlc3QDCQBmAgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsBBBhY3Rpdml0aWVzQW1vdW50CQBpAgUJdXNkdFNwZW50AGQECWZ1bmRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9kZWxpdmVyeUZ1bmRLZXkAAAkAlAoCCQDNCAIJAM0IAgkAzggCBQ5mYWN0b3J5QWN0aW9ucwUEcmVzdAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BRBhY3Rpdml0aWVzQW1vdW50BQt1c2R0QXNzZXRJZAkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAUDZmVlCQCVCgMFBndoU2F2ZQUMcHJvbG9nUmVzdWx0BQtzdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFleGNoYW5nZVJlc291cmNlcwEHYW1vdW50cwQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBA0kdDAzOTUzNjM5NjQyCQEXZXhjaGFuZ2VSZXNvdXJjZXNDb21tb24DBQdyZXNMaXN0BQdtYXRMaXN0BQdhbW91bnRzBAZuZXdSZXMIBQ0kdDAzOTUzNjM5NjQyAl8xBAZuZXdNYXQIBQ0kdDAzOTUzNjM5NjQyAl8yBAl1c2R0U3BlbnQIBQ0kdDAzOTUzNjM5NjQyAl8zBBR0b3RhbEFtb3VudENvbnZlcnRlZAgFDSR0MDM5NTM2Mzk2NDICXzQDCQBmAgUJdXNkdFNwZW50BQNhbXQJAAIBCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQl1c2R0U3BlbnQABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCBQZuZXdSZXMCAV8JAMwIAgkAuQkCBQZuZXdNYXQCAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEDmJhY2twYWNrUmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEBHJlc3QDCQBmAgkAZQIFA2FtdAUJdXNkdFNwZW50AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10BQl1c2R0U3BlbnQFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFCXVzZHRTcGVudABkBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUHeHBUcmFkZQUUdG90YWxBbW91bnRDb252ZXJ0ZWQFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDNCAIFBHJlc3QJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAJUKAwUOYmFja3BhY2tSZXN1bHQFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEdZXhjaGFuZ2VSZXNvdXJjZXNEdWNrRGVsaXZlcnkBB2Ftb3VudHMDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQNJHQwNDExNTc0MTI2MwkBF2V4Y2hhbmdlUmVzb3VyY2VzQ29tbW9uAwUHcmVzTGlzdAUHbWF0TGlzdAUHYW1vdW50cwQGbmV3UmVzCAUNJHQwNDExNTc0MTI2MwJfMQQGbmV3TWF0CAUNJHQwNDExNTc0MTI2MwJfMgQJdXNkdFNwZW50CAUNJHQwNDExNTc0MTI2MwJfMwQUdG90YWxBbW91bnRDb252ZXJ0ZWQIBQ0kdDA0MTE1NzQxMjYzAl80BAdmZWVQYXJ0CQBrAwUJdXNkdFNwZW50BQ5ERUxJVkVSWV9GRUUxNQUFTVVMVDYEA2ZlZQMJAGYCBRdNSU5fVVNEVF9GRUVfREVMSVZFUlkxNQUHZmVlUGFydAUXTUlOX1VTRFRfRkVFX0RFTElWRVJZMTUFB2ZlZVBhcnQEEHVzZHRTcGVudFdpdGhGZWUJAGQCBQl1c2R0U3BlbnQFA2ZlZQMJAGYCBRB1c2R0U3BlbnRXaXRoRmVlBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQl1c2R0U3BlbnQABgIBKwkBCmZpeGVkUG9pbnQCBQNmZWUABgIOKGRlbGl2ZXJ5IGZlZSkEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJALkJAgUGbmV3UmVzAgFfCQDMCAIJALkJAgUGbmV3TWF0AgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BA5iYWNrcGFja1Jlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBARyZXN0AwkAZgIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFCXVzZHRTcGVudABkBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUHeHBUcmFkZQUUdG90YWxBbW91bnRDb252ZXJ0ZWQFBU1VTFQ4BQNuaWwFA25pbAQJZnVuZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAACQCUCgIJAM0IAgkAzQgCBQRyZXN0CQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkCQEMSW50ZWdlckVudHJ5AgUPZGVsaXZlcnlGdW5kS2V5CQBkAgUJZnVuZFRvdGFsBQNmZWUJAJUKAwUOYmFja3BhY2tSZXN1bHQFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEdZXhjaGFuZ2VSZXNvdXJjZXNMYW5kRGVsaXZlcnkCB2Ftb3VudHMLbGFuZEFzc2V0SWQDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAR1c2VyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQECIT0CBQVvd25lcgUEYWRkcgkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQHcmVzTGlzdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8EB21hdExpc3QJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBA0kdDA0MzU2NjQzNjcyCQEXZXhjaGFuZ2VSZXNvdXJjZXNDb21tb24DBQdyZXNMaXN0BQdtYXRMaXN0BQdhbW91bnRzBAZuZXdSZXMIBQ0kdDA0MzU2NjQzNjcyAl8xBAZuZXdNYXQIBQ0kdDA0MzU2NjQzNjcyAl8yBAl1c2R0U3BlbnQIBQ0kdDA0MzU2NjQzNjcyAl8zBBR0b3RhbEFtb3VudENvbnZlcnRlZAgFDSR0MDQzNTY2NDM2NzICXzQEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAgUGbmV3UmVzAgFfCQDMCAIJALkJAgUGbmV3TWF0AgFfCQDMCAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QJAMwIAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4TE9GVAUDbmlsAgE6BAZ3aFNhdmUJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag1zYXZlV2FyZWhvdXNlCQDMCAIFBXdoU3RyCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQRhZGRyCQDMCAIJAGsDBQd4cFRyYWRlBRR0b3RhbEFtb3VudENvbnZlcnRlZAUFTVVMVDgFA25pbAUDbmlsBAdmZWVQYXJ0CQBrAwUJdXNkdFNwZW50BQ5ERUxJVkVSWV9GRUUxNQUFTVVMVDYEA2ZlZQMJAGYCBRdNSU5fVVNEVF9GRUVfREVMSVZFUlkxNQUHZmVlUGFydAUXTUlOX1VTRFRfRkVFX0RFTElWRVJZMTUFB2ZlZVBhcnQEEHVzZHRTcGVudFdpdGhGZWUJAGQCBQl1c2R0U3BlbnQFA2ZlZQMJAGYCBRB1c2R0U3BlbnRXaXRoRmVlBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQl1c2R0U3BlbnQABgIBKwkBCmZpeGVkUG9pbnQCBQNmZWUABgIOKGRlbGl2ZXJ5IGZlZSkEBHJlc3QDCQBmAgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsBBBhY3Rpdml0aWVzQW1vdW50CQBpAgUJdXNkdFNwZW50AGQECWZ1bmRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9kZWxpdmVyeUZ1bmRLZXkAAAkAlAoCCQDNCAIJAM0IAgUEcmVzdAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BRBhY3Rpdml0aWVzQW1vdW50BQt1c2R0QXNzZXRJZAkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAUDZmVlCQCVCgMFBndoU2F2ZQUMcHJvbG9nUmVzdWx0BQtzdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpjcmFmdEdvb2RzAgpwcm9kdWN0SWR4CHF1YW50aXR5BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFBU1VTFQ2CQACAQIqZXhhY3RseSAxIFVTRFQgbXVzdCBiZSBhdHRhY2hlZCBhcyBwYXltZW50AwkAZwIAAAUIcXVhbnRpdHkJAAIBAhtRdWFudGl0eSBzaG91bGQgYmUgcG9zaXRpdmUEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBTQkAAgEJAKwCAgIxRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBNYW51ZmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQEY29udAkAkQMCBQtjdXJMb2NhdGlvbgUPbG9jSWR4Q29udGluZW50BAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8DAwkAZgIAAAUKcHJvZHVjdElkeAYJAGcCBQpwcm9kdWN0SWR4CQCQAwEFEHByb2R1Y3Rpb25NYXRyaXgJAAIBCQCsAgICFFVua25vd24gcHJvZHVjdCBpZHg9CQCkAwEFCnByb2R1Y3RJZHgEBnJlY2lwZQkAtQkCCQCRAwIFEHByb2R1Y3Rpb25NYXRyaXgFCnByb2R1Y3RJZHgCAV8DCQECIT0CCQCQAwEFBnJlY2lwZQUKUkVDSVBFU0laRQkAAgEJAKwCAgIXRmF0YWw6IHVua25vd24gcmVjaXBlOiAJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUKcHJvZHVjdElkeAQOcHJvZHVjdENvbnRJZHgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFDXJJZHhDb250aW5lbnQDCQECIT0CCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4BQRjb250CQACAQkArAICCQCsAgIJAKwCAgIdVGhpcyBwcm9kdWN0IGlzIGF2YWlsYWJsZSBpbiAJAJEDAgUKY29udGluZW50cwUOcHJvZHVjdENvbnRJZHgCESwgYnV0IHlvdSBhcmUgaW4gBQRjb250BAhwcm9kTGlzdAMJAAACCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIBXwoBBmZpbGxlcgIDYWNjC2lnbm9yZWRJdGVtBAFuCAUDYWNjAl8yBAJ4cwMJAGYCCQCQAwEFCHByb2RMaXN0BQFuCQCRAwIFCHByb2RMaXN0BQFuAgEwBAF4CQENcGFyc2VJbnRWYWx1ZQEFAnhzBAZhbW91bnQJAGgCBQhxdWFudGl0eQUOUFJPRFVDVFBLR1NJWkUEAXkDCQAAAgUBbgUKcHJvZHVjdElkeAkApAMBCQBkAgUBeAUGYW1vdW50BQJ4cwkAlAoCCQDNCAIIBQNhY2MCXzEFAXkJAGQCBQFuAAEEBmJwUHJvZAgKAAIkbAUQcHJvZHVjdGlvbk1hdHJpeAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBmZpbGxlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyAl8xCgEIcHJvZHVjZXICA2FjYwFqBAduZWVkTWF0CQBoAgkAaAIJAGgCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBQFqBQVNVUxUNQUIcXVhbnRpdHkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFCXJJZHhDb2VmZgQHaGF2ZU1hdAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB21hdExpc3QFAWoDCQBmAgUHbmVlZE1hdAUHaGF2ZU1hdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQEKZml4ZWRQb2ludAIFB2hhdmVNYXQACAIEIG9mIAkAkQMCBQhtYXRUeXBlcwUBagIWLCBidXQgcmVjaXBlIHJlcXVpcmVzIAkBCmZpeGVkUG9pbnQCBQduZWVkTWF0AAgCDiBmb3IgcXVhbnRpdHkgCQCkAwEFCHF1YW50aXR5AwkAZgIFB25lZWRNYXQAAAkAlAoCCQDNCAIIBQNhY2MCXzEJAKQDAQkAZQIFB2hhdmVNYXQFB25lZWRNYXQJAGQCCAUDYWNjAl8yBQduZWVkTWF0CQCUCgIJAM0IAggFA2FjYwJfMQkAkQMCBQdtYXRMaXN0BQFqCAUDYWNjAl8yBAZtZXJnZWQKAAIkbAUFSVRFUjYKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhwcm9kdWNlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgkAuQkCCAUGbWVyZ2VkAl8xAgFfCQDMCAIJALoJAgUGYnBQcm9kAgFfBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUHeHBDcmFmdAgFBm1lcmdlZAJfMgUFTVVMVDgFA25pbAUDbmlsCQCUCgIFA25pbAkAlQoDBQZyZXN1bHQFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQERc2V0V2FyZWhvdXNlT3JkZXICC25ld09yZGVyU3RyC2xhbmRBc3NldElkBAR1c2VyCAUBaQxvcmlnaW5DYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQGcmVzdWx0AwkBAiE9AgUEdXNlcgUMcmVzdENvbnRyYWN0CQEMY2hlY2tCbG9ja2VkAAcEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwMJAQIhPQIFBHVzZXIFDHJlc3RDb250cmFjdAkBAiE9AgUFb3duZXIFBGFkZHIHCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBAhuZXdPcmRlcgkAvAkCBQtuZXdPcmRlclN0cgIBOgQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQEbG9mdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBAd3aFRvdGFsCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAUIdm9sVG90YWwEBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEFBm9yZEtleQQBegkBC3NldEludGVybmFsAwUJY3VycmVudFdoBQpjdXJyZW50T3JkBQhuZXdPcmRlcgQLYnV5Vm9sU2FsZG8IBQF6Al80BAxzZWxsVm9sU2FsZG8IBQF6Al81BAp3aE9jY3VwaWVkCAUBegJfNwQId2hMb2NrZWQJAGQCBQtidXlWb2xTYWxkbwUMc2VsbFZvbFNhbGRvBAZ3aEZyZWUJAGUCCQBlAgUHd2hUb3RhbAUKd2hPY2N1cGllZAUId2hMb2NrZWQDCQBmAgAABQZ3aEZyZWUJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhNBdHRlbXB0IHRvIHJlc2VydmUgCQCkAwEFC2J1eVZvbFNhbGRvAhsgc3BhY2UgZm9yIGJ1eSBvcmRlcnMsIGFuZCAJAKQDAQUMc2VsbFZvbFNhbGRvAiUgc3BhY2UgZm9yIHNlbGwgb3JkZXJzIChhbmQgb2NjdXBpZWQ9CQCkAwEFCndoT2NjdXBpZWQCHyksIGxlYWRzIHRvIG5lZ2F0aXZlIGZyZWUgc3BhY2UEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXoCXzECAV8JAMwIAgkAuQkCCAUBegJfMgIBXwkAzAgCCQC6CQIIBQF6Al8zAgFfCQDMCAIJAKQDAQUId2hMb2NrZWQFA25pbAIBOgQGd2hTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECHVzZFNhbGRvCAUBegJfNgQHYWN0aW9ucwMJAGYCBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFCHVzZFNhbGRvCQACAQkArAICAhJQYXltZW50IG5lZWRlZCBpcyAJAKQDAQUIdXNkU2FsZG8JAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdPcmRlclN0cgUDbmlsAwkAAAIFCHVzZFNhbGRvAAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhJObyBwYXltZW50cyBuZWVkZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdPcmRlclN0cgUDbmlsAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBW93bmVyCQEBLQEFCHVzZFNhbGRvBQt1c2R0QXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBQZvcmRLZXkFC25ld09yZGVyU3RyBQNuaWwJAJQKAgUHYWN0aW9ucwkAlAoCBQZyZXN1bHQFBndoU2F2ZQFpARRhY2NlcHRXYXJlaG91c2VPcmRlcgMKYnBPcmRlclN0cg9zaG9wTGFuZEFzc2V0SWQLZHVja0Fzc2V0SWQEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyBApjYWxsZXJBZGRyCQClCAEFBmNhbGxlcgQRc3Rha2VkRHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFCmNhbGxlckFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFEXN0YWtlZER1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04EA2xvYwkAtQkCCQEFdmFsdWUBBQtjdXJMb2NhdGlvbgIBXwMJAQIhPQIJAJEDAgUDbG9jBQpsb2NJZHhUeXBlAgFMCQACAQkArAICCQCsAgICFkR1Y2sgbG9jYXRpb24gdHlwZSBpcyAJAJEDAgUDbG9jBQpsb2NJZHhUeXBlAhEsIGJ1dCBzaG91bGQgYmUgTAMJAQIhPQIFEXN0YWtlZER1Y2tBc3NldElkBQtkdWNrQXNzZXRJZAkAAgEJAKwCAgkArAICCQCsAgICFFlvdXIgc3Rha2VkIGR1Y2sgaXMgBRFzdGFrZWREdWNrQXNzZXRJZAINLCBidXQgcGFzc2VkIAULZHVja0Fzc2V0SWQEBWJwS2V5CQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEFBWJwS2V5BAlicFJlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8ECWJwTWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQKYnBQcm9kTGlzdAMJAAACCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIBXwQNJHQwNTMxOTA1MzQzMAkBFWFjY2VwdFNob3BPcmRlckNvbW1vbgYFD3Nob3BMYW5kQXNzZXRJZAUKY2FsbGVyQWRkcgUKYnBPcmRlclN0cgUJYnBSZXNMaXN0BQlicE1hdExpc3QFCmJwUHJvZExpc3QECnNob3BBY3Rpb24IBQ0kdDA1MzE5MDUzNDMwAl8xBApuZXdVc2VyUmVzCAUNJHQwNTMxOTA1MzQzMAJfMgQKbmV3VXNlck1hdAgFDSR0MDUzMTkwNTM0MzACXzMEC25ld1VzZXJQcm9kCAUNJHQwNTMxOTA1MzQzMAJfNAQNdXNkV2gyQnBTYWxkbwgFDSR0MDUzMTkwNTM0MzACXzUEDXVzZEJwMldoU2FsZG8IBQ0kdDA1MzE5MDUzNDMwAl82BAh4cEFtb3VudAgFDSR0MDUzMTkwNTM0MzACXzcEDXNob3BMYW5kT3duZXIIBQ0kdDA1MzE5MDUzNDMwAl84BApzaG9wV2hTYXZlCAUNJHQwNTMxOTA1MzQzMAJfOQQOYWNjU3RhdHNSZXN1bHQIBQ0kdDA1MzE5MDUzNDMwA18xMAQIYWN0aW9uczEJAMwIAgUKc2hvcEFjdGlvbgkBEHNob3AydXNlckFjdGlvbnMDBQ11c2RXaDJCcFNhbGRvBQpjYWxsZXJBZGRyAAAECGFjdGlvbnMyCQEQdXNlcjJzaG9wQWN0aW9ucwQFDXVzZEJwMldoU2FsZG8IBQFpCHBheW1lbnRzBQ1zaG9wTGFuZE93bmVyAAAECG5ld0JwU3RyCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIFCm5ld1VzZXJSZXMCAV8JAMwIAgkAuQkCBQpuZXdVc2VyTWF0AgFfCQDMCAIJALoJAgULbmV3VXNlclByb2QCAV8FA25pbAIBOgQGYnBTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUIbmV3QnBTdHIFA25pbAUDbmlsBA9kdWNrU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFBnhwU2hvcAUIeHBBbW91bnQFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDOCAIFCGFjdGlvbnMxBQhhY3Rpb25zMgkAlwoFBQxwcm9sb2dSZXN1bHQFCnNob3BXaFNhdmUFBmJwU2F2ZQUPZHVja1N0YXRzUmVzdWx0BQ5hY2NTdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARthY2NlcHRTaG9wT3JkZXJEdWNrRGVsaXZlcnkCCG9yZGVyU3RyD3Nob3BMYW5kQXNzZXRJZAMJAQEhAQURS1NfQUxMT1dfREVMSVZFUlkJAAIBAh9EZWxpdmVyeSBmZWF0dXJlIGlzIHR1cm5lZCBvZmYhBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcgQKY2FsbGVyQWRkcgkApQgBBQZjYWxsZXIEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQpjYWxsZXJBZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQJYnBSZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAlicE1hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8ECmJwUHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAvAkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8EDSR0MDU0ODcyNTUxMTAJARVhY2NlcHRTaG9wT3JkZXJDb21tb24GBQ9zaG9wTGFuZEFzc2V0SWQFCmNhbGxlckFkZHIFCG9yZGVyU3RyBQlicFJlc0xpc3QFCWJwTWF0TGlzdAUKYnBQcm9kTGlzdAQKc2hvcEFjdGlvbggFDSR0MDU0ODcyNTUxMTACXzEECm5ld1VzZXJSZXMIBQ0kdDA1NDg3MjU1MTEwAl8yBApuZXdVc2VyTWF0CAUNJHQwNTQ4NzI1NTExMAJfMwQLbmV3VXNlclByb2QIBQ0kdDA1NDg3MjU1MTEwAl80BA11c2RXaDJCcFNhbGRvCAUNJHQwNTQ4NzI1NTExMAJfNQQNdXNkQnAyV2hTYWxkbwgFDSR0MDU0ODcyNTUxMTACXzYECHhwQW1vdW50CAUNJHQwNTQ4NzI1NTExMAJfNwQNc2hvcExhbmRPd25lcggFDSR0MDU0ODcyNTUxMTACXzgECnNob3BXaFNhdmUIBQ0kdDA1NDg3MjU1MTEwAl85BA5hY2NTdGF0c1Jlc3VsdAgFDSR0MDU0ODcyNTUxMTADXzEwBA9kZWxpdmVyeUZlZVBhcnQJAGsDCQBkAgUNdXNkQnAyV2hTYWxkbwUNdXNkV2gyQnBTYWxkbwUMREVMSVZFUllfRkVFBQVNVUxUNgQLZGVsaXZlcnlGZWUDCQBmAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQ9kZWxpdmVyeUZlZVBhcnQFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUPZGVsaXZlcnlGZWVQYXJ0BAhzcGVudEZlZQkAawMFC2RlbGl2ZXJ5RmVlBQ11c2RCcDJXaFNhbGRvCQBkAgUNdXNkQnAyV2hTYWxkbwUNdXNkV2gyQnBTYWxkbwQLcmVjZWl2ZWRGZWUJAGUCBQtkZWxpdmVyeUZlZQUIc3BlbnRGZWUECWZ1bmRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9kZWxpdmVyeUZ1bmRLZXkAAAQIYWN0aW9uczEJAMwIAgUKc2hvcEFjdGlvbgkBEHNob3AydXNlckFjdGlvbnMDBQ11c2RXaDJCcFNhbGRvBQpjYWxsZXJBZGRyBQtyZWNlaXZlZEZlZQQIYWN0aW9uczIJARB1c2VyMnNob3BBY3Rpb25zBAUNdXNkQnAyV2hTYWxkbwgFAWkIcGF5bWVudHMFDXNob3BMYW5kT3duZXIFCHNwZW50RmVlBAhuZXdCcFN0cgkAugkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCBQpuZXdVc2VyUmVzAgFfCQDMCAIJALkJAgUKbmV3VXNlck1hdAIBXwkAzAgCCQC6CQIFC25ld1VzZXJQcm9kAgFfBQNuaWwCAToEBmJwU2F2ZQkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFCG5ld0JwU3RyBQNuaWwFA25pbAQPZHVja1N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIPdXBkYXRlRHVja1N0YXRzCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIJAGsDBQZ4cFNob3AFCHhwQW1vdW50BQVNVUxUOAUDbmlsBQNuaWwJAJQKAgkAzQgCCQDOCAIFCGFjdGlvbnMxBQhhY3Rpb25zMgkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAULZGVsaXZlcnlGZWUJAJcKBQUMcHJvbG9nUmVzdWx0BQpzaG9wV2hTYXZlBQZicFNhdmUFD2R1Y2tTdGF0c1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEbYWNjZXB0U2hvcE9yZGVyTGFuZERlbGl2ZXJ5AwhvcmRlclN0cg9zaG9wTGFuZEFzc2V0SWQNbXlMYW5kQXNzZXRJZAMJAQEhAQURS1NfQUxMT1dfREVMSVZFUlkJAAIBAh9EZWxpdmVyeSBmZWF0dXJlIGlzIHR1cm5lZCBvZmYhBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcgQKY2FsbGVyQWRkcgkApQgBBQZjYWxsZXIEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQUNbXlMYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFDW15TGFuZEFzc2V0SWQJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFDW15TGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwkBAiE9AgUFb3duZXIFCmNhbGxlckFkZHIJAAIBCQCsAgIFCkxBTkRQUkVGSVgCDSBpcyBub3QgeW91cnMEAndoCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIUZ2V0V2FyZWhvdXNlUkVBRE9OTFkJAMwIAgUNbXlMYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQHcmVzTGlzdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8EB21hdExpc3QJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfBAhwcm9kTGlzdAMJAAACCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhQcm9kAgFfBA0kdDA1NzM1MjU3NTg0CQEVYWNjZXB0U2hvcE9yZGVyQ29tbW9uBgUPc2hvcExhbmRBc3NldElkBQpjYWxsZXJBZGRyBQhvcmRlclN0cgUHcmVzTGlzdAUHbWF0TGlzdAUIcHJvZExpc3QECnNob3BBY3Rpb24IBQ0kdDA1NzM1MjU3NTg0Al8xBApuZXdVc2VyUmVzCAUNJHQwNTczNTI1NzU4NAJfMgQKbmV3VXNlck1hdAgFDSR0MDU3MzUyNTc1ODQCXzMEC25ld1VzZXJQcm9kCAUNJHQwNTczNTI1NzU4NAJfNAQNdXNkV2gyQnBTYWxkbwgFDSR0MDU3MzUyNTc1ODQCXzUEDXVzZEJwMldoU2FsZG8IBQ0kdDA1NzM1MjU3NTg0Al82BAh4cEFtb3VudAgFDSR0MDU3MzUyNTc1ODQCXzcEDXNob3BMYW5kT3duZXIIBQ0kdDA1NzM1MjU3NTg0Al84BApzaG9wV2hTYXZlCAUNJHQwNTczNTI1NzU4NAJfOQQOYWNjU3RhdHNSZXN1bHQIBQ0kdDA1NzM1MjU3NTg0A18xMAQPZGVsaXZlcnlGZWVQYXJ0CQBrAwkAZAIFDXVzZEJwMldoU2FsZG8FDXVzZFdoMkJwU2FsZG8FDERFTElWRVJZX0ZFRQUFTVVMVDYEC2RlbGl2ZXJ5RmVlAwkAZgIFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUPZGVsaXZlcnlGZWVQYXJ0BRVNSU5fVVNEVF9GRUVfREVMSVZFUlkFD2RlbGl2ZXJ5RmVlUGFydAQIc3BlbnRGZWUJAGsDBQtkZWxpdmVyeUZlZQUNdXNkQnAyV2hTYWxkbwkAZAIFDXVzZEJwMldoU2FsZG8FDXVzZFdoMkJwU2FsZG8EC3JlY2VpdmVkRmVlCQBlAgULZGVsaXZlcnlGZWUFCHNwZW50RmVlBAlmdW5kVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPZGVsaXZlcnlGdW5kS2V5AAAECGFjdGlvbnMxCQDMCAIFCnNob3BBY3Rpb24JARBzaG9wMnVzZXJBY3Rpb25zAwUNdXNkV2gyQnBTYWxkbwUKY2FsbGVyQWRkcgULcmVjZWl2ZWRGZWUECGFjdGlvbnMyCQEQdXNlcjJzaG9wQWN0aW9ucwQFDXVzZEJwMldoU2FsZG8IBQFpCHBheW1lbnRzBQ1zaG9wTGFuZE93bmVyBQhzcGVudEZlZQQFd2hTdHIJALoJAgkAzAgCCQCRAwIFCWN1cnJlbnRXaAULd2hJZHhMZXZlbHMJAMwIAgkAuQkCBQpuZXdVc2VyUmVzAgFfCQDMCAIJALkJAgUKbmV3VXNlck1hdAIBXwkAzAgCCQC5CQIFC25ld1VzZXJQcm9kAgFfCQDMCAIJAJEDAgUJY3VycmVudFdoBQl3aElkeExPRlQFA25pbAIBOgQGd2hTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQ1teUxhbmRBc3NldElkBQNuaWwFA25pbAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQpjYWxsZXJBZGRyCQDMCAIJAGsDBQZ4cFNob3AFCHhwQW1vdW50BQVNVUxUOAUDbmlsBQNuaWwJAJQKAgkAzQgCCQDOCAIFCGFjdGlvbnMxBQhhY3Rpb25zMgkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAULZGVsaXZlcnlGZWUJAJcKBQUMcHJvbG9nUmVzdWx0BQpzaG9wV2hTYXZlBQZ3aFNhdmUFC3N0YXRzUmVzdWx0BQ5hY2NTdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARBzZWxsUHJvZHVjdHNUb0VTAQdhbW91bnRzBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUEJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgQWlycG9ydCwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAhwcm9kTGlzdAMJAAACCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIBXwQFZXNLZXkJAQ5rZXlFc1dhcmVob3VzZQAECGV4aXN0U3RyCQCiCAEFBWVzS2V5BAxleGlzdEFtb3VudHMDCQEJaXNEZWZpbmVkAQUIZXhpc3RTdHIJALwJAgkBBXZhbHVlAQUIZXhpc3RTdHICAV8FA25pbAoBCG1vdmVQcm9kAgNhY2MJcmVjaXBlU3RyBAFqCAUDYWNjAl8xBAhxdWFudGl0eQMJAGYCCQCQAwEFB2Ftb3VudHMFAWoJAJEDAgUHYW1vdW50cwUBagAAAwkAZgIAAAUIcXVhbnRpdHkJAAIBAhtRdWFudGl0eSBjYW5ub3QgYmUgbmVnYXRpdmUEBnJlY2lwZQkAtQkCBQlyZWNpcGVTdHICAV8DCQECIT0CCQCQAwEFBnJlY2lwZQUKUkVDSVBFU0laRQkAAgEJAKwCAgIXRmF0YWw6IHVua25vd24gcmVjaXBlOiAFCXJlY2lwZVN0cgQJbWF4QW1vdW50CQBoAgUNRVNNQVhQQUNLQUdFUwUOUFJPRFVDVFBLR1NJWkUEC2V4aXN0QW1vdW50AwkAZgIJAJADAQUMZXhpc3RBbW91bnRzBQFqCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUMZXhpc3RBbW91bnRzBQFqAAAEBmNhbkJ1eQkAZQIFCW1heEFtb3VudAULZXhpc3RBbW91bnQDCQBmAgUIcXVhbnRpdHkFBmNhbkJ1eQkAAgEJAKwCAgkArAICCQCsAgICF1dhcmVob3VzZSBjYW4gYnV5IG9ubHkgCQCkAwEFBmNhbkJ1eQIEIG9mIAkAkQMCBQlwcm9kVHlwZXMFAWoECHRvdGFsTWF0CQESZ2V0UmVjaXBlTWF0ZXJpYWxzAQUGcmVjaXBlBAl1bml0UHJpY2UJAGsDCQBoAgUIdG90YWxNYXQFCUVTQlVZQ09FRgUQUkVTT1VSQ0VQUklDRU1JTgkAaAIFBU1VTFQ4BQ5QUk9EVUNUUEtHU0laRQQMYnBQcm9kQW1vdW50AwkAZgIJAJADAQUIcHJvZExpc3QFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhwcm9kTGlzdAUBagAAAwkAZgIFCHF1YW50aXR5BQxicFByb2RBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICAg5Zb3UgaGF2ZSBvbmx5IAkApAMBBQxicFByb2RBbW91bnQCBCBvZiAJAJEDAgUJcHJvZFR5cGVzBQFqCQCXCgUJAGQCBQFqAAEJAGQCCAUDYWNjAl8yCQBoAgUJdW5pdFByaWNlBQhxdWFudGl0eQkAzQgCCAUDYWNjAl8zCQCkAwEJAGUCBQxicFByb2RBbW91bnQFCHF1YW50aXR5CQDNCAIIBQNhY2MCXzQJAKQDAQkAZAIFC2V4aXN0QW1vdW50BQhxdWFudGl0eQkAZAIIBQNhY2MCXzUJAGgCBQh0b3RhbE1hdAUIcXVhbnRpdHkEBm1lcmdlZAoAAiRsBRBwcm9kdWN0aW9uTWF0cml4CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlwoFAAAAAAUDbmlsBQNuaWwAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIbW92ZVByb2QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgQIbmV3QnBTdHIJALoJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJALoJAggFBm1lcmdlZAJfMwIBXwUDbmlsAgE6BAZicFNhdmUJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQhuZXdCcFN0cgUDbmlsBQNuaWwEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIPdXBkYXRlRHVja1N0YXRzCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIJAGsDBQp4cFNlbGxUb0VzCAUGbWVyZ2VkAl81CQBoAgUFTVVMVDgACgUDbmlsBQNuaWwJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQVlc0tleQkAugkCCAUGbWVyZ2VkAl80AgFfCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcggFBm1lcmdlZAJfMgULdXNkdEFzc2V0SWQFA25pbAkAlQoDBQZicFNhdmUFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPdXBkYXRlRXNTdG9yYWdlAQpuZXdTdG9yYWdlAwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlFc1dhcmVob3VzZQAFCm5ld1N0b3JhZ2UFA25pbAUKbmV3U3RvcmFnZQFpARR1cGRhdGVEZWxpdmVyeUxvY2tlZAEJbmV3QW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRFkZWxpdmVyeUxvY2tlZEtleQUJbmV3QW1vdW50BQNuaWwFCW5ld0Ftb3VudAFpARJzZW5kRGVsaXZlcnlSZXdhcmQBBGFkZHIDCQECIT0CCAUBaQZjYWxsZXIFD3N0YWtpbmdDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkBAlmdW5kVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPZGVsaXZlcnlGdW5kS2V5AAAEC2xvY2tlZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFEWRlbGl2ZXJ5TG9ja2VkS2V5AAAEC2FjcmVzQW1vdW50CQBoAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBRVVU0RUMkFDUkVTX01VTFRJUExJRVIEC2FjcmVzUmVzdWx0CQD8BwQFDWFjcmVzQ29udHJhY3QCCXNlbmRBY3JlcwkAzAgCBQRhZGRyCQDMCAIFC2FjcmVzQW1vdW50BQNuaWwFA25pbAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGUCBQlmdW5kVG90YWwFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQkAzAgCCQEMSW50ZWdlckVudHJ5AgURZGVsaXZlcnlMb2NrZWRLZXkJAGUCBQtsb2NrZWRUb3RhbAUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQNuaWwFC2FjcmVzUmVzdWx0AAuPkRQ=",
    "height": 2798535,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8eSJCWgEJfRnCYctmbGMCRkmqG78RysEbLFcwPJsKuQE
Next: 7ALzi2wC8GDNAAek1dKHzwo6FJH5MbWWw29m4W4GqJKg

Diff: 
Old
New
Differences
289
289
 
    else unit
290
290
 
291
291
 
292
-
func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
292
+
func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
293
293
 
294
294
 
295
295
 
func setCommon (acc,ignoredIterator) = {
716
716
 
        $Tuple3((acc._1 ++ x._1), (acc._2 + x._3), (acc._3 + x._4))
717
717
 
        }
718
718
 
719
-
    let $t02526125351 = {
719
+
    let $t02527025360 = {
720
720
 
        let $l = continents
721
721
 
        let $s = size($l)
722
722
 
        let $acc0 = $Tuple3(nil, 0, 0)
730
730
 
731
731
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
732
732
 
        }
733
-
    let factoryActions = $t02526125351._1
734
-
    let usdtReceived = $t02526125351._2
735
-
    let totalRes = $t02526125351._3
733
+
    let factoryActions = $t02527025360._1
734
+
    let usdtReceived = $t02527025360._2
735
+
    let totalRes = $t02527025360._3
736
736
 
    let fee = fraction(usdtReceived, DELIVERY_FEE, MULT6)
737
737
 
    let activitiesAmount = (usdtReceived / 100)
738
738
 
    let usdtLeft = ((usdtReceived - activitiesAmount) - fee)
759
759
 
@Callable(i)
760
760
 
func sellResources (amounts,minPrices) = {
761
761
 
    let prologResult = prolog()
762
-
    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
763
-
    if ((size(i.payments) != 0))
764
-
        then throw("sellResources doesn't require any payments")
765
-
        else {
766
-
            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
767
-
            if ((curLocation[locIdxType] != "F"))
768
-
                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
762
+
    if ((prologResult == prologResult))
763
+
        then {
764
+
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
765
+
            if ((size(i.payments) != 0))
766
+
                then throw("sellResources doesn't require any payments")
769
767
 
                else {
770
-
                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
771
-
                    let resList = split(currentPack[bpIdxRes], "_")
772
-
                    let $t02680326929 = sellResourcesCommon(resList, curLocation[locIdxId], amounts, minPrices)
773
-
                    let factoryActions = $t02680326929._1
774
-
                    let newRes = $t02680326929._2
775
-
                    let usdtReceived = $t02680326929._3
776
-
                    let totalRes = $t02680326929._4
777
-
                    let activitiesAmount = (usdtReceived / 100)
778
-
                    let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
779
-
                    let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
780
-
                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
781
-
                    $Tuple2(((factoryActions :+ ScriptTransfer(i.caller, (usdtReceived - activitiesAmount), usdtAssetId)) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
768
+
                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
769
+
                    if ((curLocation[locIdxType] != "F"))
770
+
                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
771
+
                        else {
772
+
                            let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
773
+
                            let resList = split(currentPack[bpIdxRes], "_")
774
+
                            let $t02681526941 = sellResourcesCommon(resList, curLocation[locIdxId], amounts, minPrices)
775
+
                            let factoryActions = $t02681526941._1
776
+
                            let newRes = $t02681526941._2
777
+
                            let usdtReceived = $t02681526941._3
778
+
                            let totalRes = $t02681526941._4
779
+
                            let activitiesAmount = (usdtReceived / 100)
780
+
                            let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
781
+
                            let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
782
+
                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
783
+
                            $Tuple2(((factoryActions :+ ScriptTransfer(i.caller, (usdtReceived - activitiesAmount), usdtAssetId)) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
784
+
                            }
782
785
 
                    }
783
786
 
            }
787
+
        else throw("Strict value is not equal to itself.")
784
788
 
    }
785
789
 
786
790
 
789
793
 
func sellResourcesWorld (addr,amount) = if ((i.caller != acresContract))
790
794
 
    then throw("Permission denied")
791
795
 
    else {
792
-
        let $t02772127878 = sellResourcesWorldInternal(amount)
793
-
        let factoryActions = $t02772127878._1
794
-
        let usdtLeft = $t02772127878._2
795
-
        let fee = $t02772127878._3
796
-
        let activitiesAmount = $t02772127878._4
797
-
        let totalRes = $t02772127878._5
796
+
        let $t02773327890 = sellResourcesWorldInternal(amount)
797
+
        let factoryActions = $t02773327890._1
798
+
        let usdtLeft = $t02773327890._2
799
+
        let fee = $t02773327890._3
800
+
        let activitiesAmount = $t02773327890._4
801
+
        let totalRes = $t02773327890._5
798
802
 
        if ((0 >= usdtLeft))
799
803
 
            then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
800
804
 
            else {
818
822
 
    then throw("Delivery feature is turned off!")
819
823
 
    else {
820
824
 
        let prologResult = prolog()
821
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
822
-
        if ((size(i.payments) != 0))
823
-
            then throw("sellResources doesn't require any payments")
824
-
            else {
825
-
                let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
826
-
                let resList = split(currentPack[bpIdxRes], "_")
827
-
                let $t02911129232 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
828
-
                let factoryActions = $t02911129232._1
829
-
                let newRes = $t02911129232._2
830
-
                let usdtReceived = $t02911129232._3
831
-
                let totalRes = $t02911129232._4
832
-
                let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
833
-
                let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
834
-
                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
835
-
                let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
836
-
                let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
837
-
                    then MIN_USDT_FEE_DELIVERY
838
-
                    else feePart
839
-
                let activitiesAmount = (usdtReceived / 100)
840
-
                if ((fee >= (usdtReceived - activitiesAmount)))
841
-
                    then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
825
+
        if ((prologResult == prologResult))
826
+
            then {
827
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
828
+
                if ((size(i.payments) != 0))
829
+
                    then throw("sellResources doesn't require any payments")
842
830
 
                    else {
843
-
                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
844
-
                        $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
831
+
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
832
+
                        let resList = split(currentPack[bpIdxRes], "_")
833
+
                        let $t02912629247 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
834
+
                        let factoryActions = $t02912629247._1
835
+
                        let newRes = $t02912629247._2
836
+
                        let usdtReceived = $t02912629247._3
837
+
                        let totalRes = $t02912629247._4
838
+
                        let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
839
+
                        let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
840
+
                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
841
+
                        let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
842
+
                        let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
843
+
                            then MIN_USDT_FEE_DELIVERY
844
+
                            else feePart
845
+
                        let activitiesAmount = (usdtReceived / 100)
846
+
                        if ((fee >= (usdtReceived - activitiesAmount)))
847
+
                            then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
848
+
                            else {
849
+
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
850
+
                                $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
851
+
                                }
845
852
 
                        }
846
853
 
                }
854
+
            else throw("Strict value is not equal to itself.")
847
855
 
        }
848
856
 
849
857
 
853
861
 
    then throw("Delivery feature is turned off!")
854
862
 
    else {
855
863
 
        let prologResult = prolog()
856
-
        if ((size(i.payments) != 0))
857
-
            then throw("sellResources doesn't require any payments")
858
-
            else {
859
-
                let user = i.caller
860
-
                let addr = toString(user)
861
-
                let asset = value(assetInfo(fromBase58String(landAssetId)))
862
-
                if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
863
-
                    then throw((("NFT " + asset.name) + " is not staked"))
864
-
                    else {
865
-
                        let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
866
-
                        if ((owner != addr))
867
-
                            then throw((LANDPREFIX + " is not yours"))
868
-
                            else {
869
-
                                let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
870
-
                                let currentWh = split_4C(wh, ":")
871
-
                                let resList = split(currentWh[whIdxRes], "_")
872
-
                                let $t03125931380 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
873
-
                                let factoryActions = $t03125931380._1
874
-
                                let newRes = $t03125931380._2
875
-
                                let usdtReceived = $t03125931380._3
876
-
                                let totalRes = $t03125931380._4
877
-
                                let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), currentWh[whIdxMat], currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
878
-
                                let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
879
-
                                let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalRes, MULT8)], nil))
880
-
                                let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
881
-
                                let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
882
-
                                    then MIN_USDT_FEE_DELIVERY
883
-
                                    else feePart
884
-
                                let activitiesAmount = (usdtReceived / 100)
885
-
                                if ((fee >= (usdtReceived - activitiesAmount)))
886
-
                                    then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
887
-
                                    else {
888
-
                                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
889
-
                                        $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(whSave, prologResult, statsResult))
890
-
                                        }
891
-
                                }
892
-
                        }
893
-
                }
864
+
        if ((prologResult == prologResult))
865
+
            then if ((size(i.payments) != 0))
866
+
                then throw("sellResources doesn't require any payments")
867
+
                else {
868
+
                    let user = i.caller
869
+
                    let addr = toString(user)
870
+
                    let asset = value(assetInfo(fromBase58String(landAssetId)))
871
+
                    if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
872
+
                        then throw((("NFT " + asset.name) + " is not staked"))
873
+
                        else {
874
+
                            let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
875
+
                            if ((owner != addr))
876
+
                                then throw((LANDPREFIX + " is not yours"))
877
+
                                else {
878
+
                                    let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
879
+
                                    let currentWh = split_4C(wh, ":")
880
+
                                    let resList = split(currentWh[whIdxRes], "_")
881
+
                                    let $t03127731398 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
882
+
                                    let factoryActions = $t03127731398._1
883
+
                                    let newRes = $t03127731398._2
884
+
                                    let usdtReceived = $t03127731398._3
885
+
                                    let totalRes = $t03127731398._4
886
+
                                    let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), currentWh[whIdxMat], currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
887
+
                                    let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
888
+
                                    let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalRes, MULT8)], nil))
889
+
                                    let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
890
+
                                    let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
891
+
                                        then MIN_USDT_FEE_DELIVERY
892
+
                                        else feePart
893
+
                                    let activitiesAmount = (usdtReceived / 100)
894
+
                                    if ((fee >= (usdtReceived - activitiesAmount)))
895
+
                                        then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
896
+
                                        else {
897
+
                                            let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
898
+
                                            $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(whSave, prologResult, statsResult))
899
+
                                            }
900
+
                                    }
901
+
                            }
902
+
                    }
903
+
            else throw("Strict value is not equal to itself.")
894
904
 
        }
895
905
 
896
906
 
898
908
 
@Callable(i)
899
909
 
func buyMaterials (amounts,maxPrices) = {
900
910
 
    let prologResult = prolog()
901
-
    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
902
-
    if ((size(i.payments) != 1))
903
-
        then throw("exactly 1 payment must be attached")
904
-
        else {
905
-
            let pmt = i.payments[0]
906
-
            let amt = pmt.amount
907
-
            if (if (!(isDefined(pmt.assetId)))
908
-
                then true
909
-
                else (value(pmt.assetId) != usdtAssetId))
910
-
                then throw("USDT payments only!")
911
+
    if ((prologResult == prologResult))
912
+
        then {
913
+
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
914
+
            if ((size(i.payments) != 1))
915
+
                then throw("exactly 1 payment must be attached")
911
916
 
                else {
912
-
                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
913
-
                    if ((curLocation[locIdxType] != "F"))
914
-
                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
917
+
                    let pmt = i.payments[0]
918
+
                    let amt = pmt.amount
919
+
                    if (if (!(isDefined(pmt.assetId)))
920
+
                        then true
921
+
                        else (value(pmt.assetId) != usdtAssetId))
922
+
                        then throw("USDT payments only!")
915
923
 
                        else {
916
-
                            let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
917
-
                            let matList = split(currentPack[bpIdxMat], "_")
918
-
                            let $t03324033362 = buyMaterialsCommon(matList, curLocation[locIdxId], amounts, maxPrices)
919
-
                            let factoryActions = $t03324033362._1
920
-
                            let newMat = $t03324033362._2
921
-
                            let usdtSpent = $t03324033362._3
922
-
                            let totalMat = $t03324033362._4
923
-
                            if ((usdtSpent > amt))
924
-
                                then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
924
+
                            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
925
+
                            if ((curLocation[locIdxType] != "F"))
926
+
                                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
925
927
 
                                else {
926
-
                                    let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
927
-
                                    let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
928
-
                                    let rest = if (((amt - usdtSpent) > 0))
929
-
                                        then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
930
-
                                        else nil
931
-
                                    let activitiesAmount = (usdtSpent / 100)
932
-
                                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
933
-
                                    $Tuple2(((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
928
+
                                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
929
+
                                    let matList = split(currentPack[bpIdxMat], "_")
930
+
                                    let $t03326133383 = buyMaterialsCommon(matList, curLocation[locIdxId], amounts, maxPrices)
931
+
                                    let factoryActions = $t03326133383._1
932
+
                                    let newMat = $t03326133383._2
933
+
                                    let usdtSpent = $t03326133383._3
934
+
                                    let totalMat = $t03326133383._4
935
+
                                    if ((usdtSpent > amt))
936
+
                                        then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
937
+
                                        else {
938
+
                                            let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
939
+
                                            let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
940
+
                                            let rest = if (((amt - usdtSpent) > 0))
941
+
                                                then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
942
+
                                                else nil
943
+
                                            let activitiesAmount = (usdtSpent / 100)
944
+
                                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
945
+
                                            $Tuple2(((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
946
+
                                            }
934
947
 
                                    }
935
948
 
                            }
936
949
 
                    }
937
950
 
            }
951
+
        else throw("Strict value is not equal to itself.")
938
952
 
    }
939
953
 
940
954
 
944
958
 
    then throw("Delivery feature is turned off!")
945
959
 
    else {
946
960
 
        let prologResult = prolog()
947
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
948
-
        if ((size(i.payments) != 1))
949
-
            then throw("exactly 1 payment must be attached")
950
-
            else {
951
-
                let pmt = i.payments[0]
952
-
                let amt = pmt.amount
953
-
                if (if (!(isDefined(pmt.assetId)))
954
-
                    then true
955
-
                    else (value(pmt.assetId) != usdtAssetId))
956
-
                    then throw("USDT payments only!")
961
+
        if ((prologResult == prologResult))
962
+
            then {
963
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
964
+
                if ((size(i.payments) != 1))
965
+
                    then throw("exactly 1 payment must be attached")
957
966
 
                    else {
958
-
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
959
-
                        let matList = split(currentPack[bpIdxMat], "_")
960
-
                        let $t03488034997 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
961
-
                        let factoryActions = $t03488034997._1
962
-
                        let newMat = $t03488034997._2
963
-
                        let usdtSpent = $t03488034997._3
964
-
                        let totalMat = $t03488034997._4
965
-
                        let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
966
-
                        let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
967
-
                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
968
-
                        let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
969
-
                        let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
970
-
                            then MIN_USDT_FEE_DELIVERY
971
-
                            else feePart
972
-
                        let usdtSpentWithFee = (usdtSpent + fee)
973
-
                        if ((usdtSpentWithFee > amt))
974
-
                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
967
+
                        let pmt = i.payments[0]
968
+
                        let amt = pmt.amount
969
+
                        if (if (!(isDefined(pmt.assetId)))
970
+
                            then true
971
+
                            else (value(pmt.assetId) != usdtAssetId))
972
+
                            then throw("USDT payments only!")
975
973
 
                            else {
976
-
                                let rest = if (((amt - usdtSpentWithFee) > 0))
977
-
                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
978
-
                                    else nil
979
-
                                let activitiesAmount = (usdtSpent / 100)
980
-
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
981
-
                                $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
974
+
                                let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
975
+
                                let matList = split(currentPack[bpIdxMat], "_")
976
+
                                let $t03490435021 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
977
+
                                let factoryActions = $t03490435021._1
978
+
                                let newMat = $t03490435021._2
979
+
                                let usdtSpent = $t03490435021._3
980
+
                                let totalMat = $t03490435021._4
981
+
                                let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
982
+
                                let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
983
+
                                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
984
+
                                let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
985
+
                                let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
986
+
                                    then MIN_USDT_FEE_DELIVERY
987
+
                                    else feePart
988
+
                                let usdtSpentWithFee = (usdtSpent + fee)
989
+
                                if ((usdtSpentWithFee > amt))
990
+
                                    then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
991
+
                                    else {
992
+
                                        let rest = if (((amt - usdtSpentWithFee) > 0))
993
+
                                            then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
994
+
                                            else nil
995
+
                                        let activitiesAmount = (usdtSpent / 100)
996
+
                                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
997
+
                                        $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
998
+
                                        }
982
999
 
                                }
983
1000
 
                        }
984
1001
 
                }
1002
+
            else throw("Strict value is not equal to itself.")
985
1003
 
        }
986
1004
 
987
1005
 
991
1009
 
    then throw("Delivery feature is turned off!")
992
1010
 
    else {
993
1011
 
        let prologResult = prolog()
994
-
        if ((size(i.payments) != 1))
995
-
            then throw("exactly 1 payment must be attached")
996
-
            else {
997
-
                let pmt = i.payments[0]
998
-
                let amt = pmt.amount
999
-
                if (if (!(isDefined(pmt.assetId)))
1000
-
                    then true
1001
-
                    else (value(pmt.assetId) != usdtAssetId))
1002
-
                    then throw("USDT payments only!")
1003
-
                    else {
1004
-
                        let user = i.caller
1005
-
                        let addr = toString(user)
1006
-
                        let asset = value(assetInfo(fromBase58String(landAssetId)))
1007
-
                        if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1008
-
                            then throw((("NFT " + asset.name) + " is not staked"))
1009
-
                            else {
1010
-
                                let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1011
-
                                if ((owner != addr))
1012
-
                                    then throw((LANDPREFIX + " is not yours"))
1013
-
                                    else {
1014
-
                                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1015
-
                                        let currentWh = split_4C(wh, ":")
1016
-
                                        let matList = split(currentWh[whIdxMat], "_")
1017
-
                                        let $t03727537392 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
1018
-
                                        let factoryActions = $t03727537392._1
1019
-
                                        let newMat = $t03727537392._2
1020
-
                                        let usdtSpent = $t03727537392._3
1021
-
                                        let totalMat = $t03727537392._4
1022
-
                                        let whStr = makeString_2C([currentWh[whIdxLevels], currentWh[whIdxRes], makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1023
-
                                        let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1024
-
                                        let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalMat, MULT8)], nil))
1025
-
                                        let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
1026
-
                                        let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
1027
-
                                            then MIN_USDT_FEE_DELIVERY
1028
-
                                            else feePart
1029
-
                                        let usdtSpentWithFee = (usdtSpent + fee)
1030
-
                                        if ((usdtSpentWithFee > amt))
1031
-
                                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1032
-
                                            else {
1033
-
                                                let rest = if (((amt - usdtSpentWithFee) > 0))
1034
-
                                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1035
-
                                                    else nil
1036
-
                                                let activitiesAmount = (usdtSpent / 100)
1037
-
                                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1038
-
                                                $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1039
-
                                                }
1040
-
                                        }
1041
-
                                }
1042
-
                        }
1043
-
                }
1012
+
        if ((prologResult == prologResult))
1013
+
            then if ((size(i.payments) != 1))
1014
+
                then throw("exactly 1 payment must be attached")
1015
+
                else {
1016
+
                    let pmt = i.payments[0]
1017
+
                    let amt = pmt.amount
1018
+
                    if (if (!(isDefined(pmt.assetId)))
1019
+
                        then true
1020
+
                        else (value(pmt.assetId) != usdtAssetId))
1021
+
                        then throw("USDT payments only!")
1022
+
                        else {
1023
+
                            let user = i.caller
1024
+
                            let addr = toString(user)
1025
+
                            let asset = value(assetInfo(fromBase58String(landAssetId)))
1026
+
                            if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1027
+
                                then throw((("NFT " + asset.name) + " is not staked"))
1028
+
                                else {
1029
+
                                    let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1030
+
                                    if ((owner != addr))
1031
+
                                        then throw((LANDPREFIX + " is not yours"))
1032
+
                                        else {
1033
+
                                            let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1034
+
                                            let currentWh = split_4C(wh, ":")
1035
+
                                            let matList = split(currentWh[whIdxMat], "_")
1036
+
                                            let $t03730237419 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
1037
+
                                            let factoryActions = $t03730237419._1
1038
+
                                            let newMat = $t03730237419._2
1039
+
                                            let usdtSpent = $t03730237419._3
1040
+
                                            let totalMat = $t03730237419._4
1041
+
                                            let whStr = makeString_2C([currentWh[whIdxLevels], currentWh[whIdxRes], makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1042
+
                                            let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1043
+
                                            let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalMat, MULT8)], nil))
1044
+
                                            let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
1045
+
                                            let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
1046
+
                                                then MIN_USDT_FEE_DELIVERY
1047
+
                                                else feePart
1048
+
                                            let usdtSpentWithFee = (usdtSpent + fee)
1049
+
                                            if ((usdtSpentWithFee > amt))
1050
+
                                                then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1051
+
                                                else {
1052
+
                                                    let rest = if (((amt - usdtSpentWithFee) > 0))
1053
+
                                                        then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1054
+
                                                        else nil
1055
+
                                                    let activitiesAmount = (usdtSpent / 100)
1056
+
                                                    let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1057
+
                                                    $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1058
+
                                                    }
1059
+
                                            }
1060
+
                                    }
1061
+
                            }
1062
+
                    }
1063
+
            else throw("Strict value is not equal to itself.")
1044
1064
 
        }
1045
1065
 
1046
1066
 
1048
1068
 
@Callable(i)
1049
1069
 
func exchangeResources (amounts) = {
1050
1070
 
    let prologResult = prolog()
1051
-
    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1052
-
    if ((size(i.payments) != 1))
1053
-
        then throw("exactly 1 payment must be attached")
1054
-
        else {
1055
-
            let pmt = i.payments[0]
1056
-
            let amt = pmt.amount
1057
-
            if (if (!(isDefined(pmt.assetId)))
1058
-
                then true
1059
-
                else (value(pmt.assetId) != usdtAssetId))
1060
-
                then throw("USDT payments only!")
1071
+
    if ((prologResult == prologResult))
1072
+
        then {
1073
+
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1074
+
            if ((size(i.payments) != 1))
1075
+
                then throw("exactly 1 payment must be attached")
1061
1076
 
                else {
1062
-
                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1063
-
                    if ((curLocation[locIdxType] != "F"))
1064
-
                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
1077
+
                    let pmt = i.payments[0]
1078
+
                    let amt = pmt.amount
1079
+
                    if (if (!(isDefined(pmt.assetId)))
1080
+
                        then true
1081
+
                        else (value(pmt.assetId) != usdtAssetId))
1082
+
                        then throw("USDT payments only!")
1065
1083
 
                        else {
1066
-
                            let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1067
-
                            let resList = split(currentPack[bpIdxRes], "_")
1068
-
                            let matList = split(currentPack[bpIdxMat], "_")
1069
-
                            let $t03950639612 = exchangeResourcesCommon(resList, matList, amounts)
1070
-
                            let newRes = $t03950639612._1
1071
-
                            let newMat = $t03950639612._2
1072
-
                            let usdtSpent = $t03950639612._3
1073
-
                            let totalAmountConverted = $t03950639612._4
1074
-
                            if ((usdtSpent > amt))
1075
-
                                then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
1084
+
                            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1085
+
                            if ((curLocation[locIdxType] != "F"))
1086
+
                                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
1076
1087
 
                                else {
1077
-
                                    let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1078
-
                                    let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1079
-
                                    let rest = if (((amt - usdtSpent) > 0))
1080
-
                                        then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
1081
-
                                        else nil
1082
-
                                    let activitiesAmount = (usdtSpent / 100)
1083
-
                                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1084
-
                                    $Tuple2((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
1088
+
                                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1089
+
                                    let resList = split(currentPack[bpIdxRes], "_")
1090
+
                                    let matList = split(currentPack[bpIdxMat], "_")
1091
+
                                    let $t03953639642 = exchangeResourcesCommon(resList, matList, amounts)
1092
+
                                    let newRes = $t03953639642._1
1093
+
                                    let newMat = $t03953639642._2
1094
+
                                    let usdtSpent = $t03953639642._3
1095
+
                                    let totalAmountConverted = $t03953639642._4
1096
+
                                    if ((usdtSpent > amt))
1097
+
                                        then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
1098
+
                                        else {
1099
+
                                            let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1100
+
                                            let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1101
+
                                            let rest = if (((amt - usdtSpent) > 0))
1102
+
                                                then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
1103
+
                                                else nil
1104
+
                                            let activitiesAmount = (usdtSpent / 100)
1105
+
                                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1106
+
                                            $Tuple2((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
1107
+
                                            }
1085
1108
 
                                    }
1086
1109
 
                            }
1087
1110
 
                    }
1088
1111
 
            }
1112
+
        else throw("Strict value is not equal to itself.")
1089
1113
 
    }
1090
1114
 
1091
1115
 
1095
1119
 
    then throw("Delivery feature is turned off!")
1096
1120
 
    else {
1097
1121
 
        let prologResult = prolog()
1098
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1099
-
        if ((size(i.payments) != 1))
1100
-
            then throw("exactly 1 payment must be attached")
1101
-
            else {
1102
-
                let pmt = i.payments[0]
1103
-
                let amt = pmt.amount
1104
-
                if (if (!(isDefined(pmt.assetId)))
1105
-
                    then true
1106
-
                    else (value(pmt.assetId) != usdtAssetId))
1107
-
                    then throw("USDT payments only!")
1122
+
        if ((prologResult == prologResult))
1123
+
            then {
1124
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1125
+
                if ((size(i.payments) != 1))
1126
+
                    then throw("exactly 1 payment must be attached")
1108
1127
 
                    else {
1109
-
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1110
-
                        let resList = split(currentPack[bpIdxRes], "_")
1111
-
                        let matList = split(currentPack[bpIdxMat], "_")
1112
-
                        let $t04112441230 = exchangeResourcesCommon(resList, matList, amounts)
1113
-
                        let newRes = $t04112441230._1
1114
-
                        let newMat = $t04112441230._2
1115
-
                        let usdtSpent = $t04112441230._3
1116
-
                        let totalAmountConverted = $t04112441230._4
1117
-
                        let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1118
-
                        let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1119
-
                            then MIN_USDT_FEE_DELIVERY15
1120
-
                            else feePart
1121
-
                        let usdtSpentWithFee = (usdtSpent + fee)
1122
-
                        if ((usdtSpentWithFee > amt))
1123
-
                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1128
+
                        let pmt = i.payments[0]
1129
+
                        let amt = pmt.amount
1130
+
                        if (if (!(isDefined(pmt.assetId)))
1131
+
                            then true
1132
+
                            else (value(pmt.assetId) != usdtAssetId))
1133
+
                            then throw("USDT payments only!")
1124
1134
 
                            else {
1125
-
                                let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1126
-
                                let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1127
-
                                let rest = if (((amt - usdtSpentWithFee) > 0))
1128
-
                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1129
-
                                    else nil
1130
-
                                let activitiesAmount = (usdtSpent / 100)
1131
-
                                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1132
-
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1133
-
                                $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
1135
+
                                let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1136
+
                                let resList = split(currentPack[bpIdxRes], "_")
1137
+
                                let matList = split(currentPack[bpIdxMat], "_")
1138
+
                                let $t04115741263 = exchangeResourcesCommon(resList, matList, amounts)
1139
+
                                let newRes = $t04115741263._1
1140
+
                                let newMat = $t04115741263._2
1141
+
                                let usdtSpent = $t04115741263._3
1142
+
                                let totalAmountConverted = $t04115741263._4
1143
+
                                let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1144
+
                                let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1145
+
                                    then MIN_USDT_FEE_DELIVERY15
1146
+
                                    else feePart
1147
+
                                let usdtSpentWithFee = (usdtSpent + fee)
1148
+
                                if ((usdtSpentWithFee > amt))
1149
+
                                    then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1150
+
                                    else {
1151
+
                                        let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1152
+
                                        let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1153
+
                                        let rest = if (((amt - usdtSpentWithFee) > 0))
1154
+
                                            then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1155
+
                                            else nil
1156
+
                                        let activitiesAmount = (usdtSpent / 100)
1157
+
                                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1158
+
                                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1159
+
                                        $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
1160
+
                                        }
1134
1161
 
                                }
1135
1162
 
                        }
1136
1163
 
                }
1164
+
            else throw("Strict value is not equal to itself.")
1137
1165
 
        }
1138
1166
 
1139
1167
 
1143
1171
 
    then throw("Delivery feature is turned off!")
1144
1172
 
    else {
1145
1173
 
        let prologResult = prolog()
1146
-
        if ((size(i.payments) != 1))
1147
-
            then throw("exactly 1 payment must be attached")
1148
-
            else {
1149
-
                let pmt = i.payments[0]
1150
-
                let amt = pmt.amount
1151
-
                if (if (!(isDefined(pmt.assetId)))
1152
-
                    then true
1153
-
                    else (value(pmt.assetId) != usdtAssetId))
1154
-
                    then throw("USDT payments only!")
1155
-
                    else {
1156
-
                        let user = i.caller
1157
-
                        let addr = toString(user)
1158
-
                        let asset = value(assetInfo(fromBase58String(landAssetId)))
1159
-
                        if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1160
-
                            then throw((("NFT " + asset.name) + " is not staked"))
1161
-
                            else {
1162
-
                                let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1163
-
                                if ((owner != addr))
1164
-
                                    then throw((LANDPREFIX + " is not yours"))
1165
-
                                    else {
1166
-
                                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1167
-
                                        let currentWh = split_4C(wh, ":")
1168
-
                                        let resList = split(currentWh[whIdxRes], "_")
1169
-
                                        let matList = split(currentWh[whIdxMat], "_")
1170
-
                                        let $t04353043636 = exchangeResourcesCommon(resList, matList, amounts)
1171
-
                                        let newRes = $t04353043636._1
1172
-
                                        let newMat = $t04353043636._2
1173
-
                                        let usdtSpent = $t04353043636._3
1174
-
                                        let totalAmountConverted = $t04353043636._4
1175
-
                                        let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1176
-
                                        let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1177
-
                                        let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1178
-
                                        let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1179
-
                                        let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1180
-
                                            then MIN_USDT_FEE_DELIVERY15
1181
-
                                            else feePart
1182
-
                                        let usdtSpentWithFee = (usdtSpent + fee)
1183
-
                                        if ((usdtSpentWithFee > amt))
1184
-
                                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1185
-
                                            else {
1186
-
                                                let rest = if (((amt - usdtSpentWithFee) > 0))
1187
-
                                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1188
-
                                                    else nil
1189
-
                                                let activitiesAmount = (usdtSpent / 100)
1190
-
                                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1191
-
                                                $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1192
-
                                                }
1193
-
                                        }
1194
-
                                }
1195
-
                        }
1196
-
                }
1174
+
        if ((prologResult == prologResult))
1175
+
            then if ((size(i.payments) != 1))
1176
+
                then throw("exactly 1 payment must be attached")
1177
+
                else {
1178
+
                    let pmt = i.payments[0]
1179
+
                    let amt = pmt.amount
1180
+
                    if (if (!(isDefined(pmt.assetId)))
1181
+
                        then true
1182
+
                        else (value(pmt.assetId) != usdtAssetId))
1183
+
                        then throw("USDT payments only!")
1184
+
                        else {
1185
+
                            let user = i.caller
1186
+
                            let addr = toString(user)
1187
+
                            let asset = value(assetInfo(fromBase58String(landAssetId)))
1188
+
                            if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1189
+
                                then throw((("NFT " + asset.name) + " is not staked"))
1190
+
                                else {
1191
+
                                    let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1192
+
                                    if ((owner != addr))
1193
+
                                        then throw((LANDPREFIX + " is not yours"))
1194
+
                                        else {
1195
+
                                            let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1196
+
                                            let currentWh = split_4C(wh, ":")
1197
+
                                            let resList = split(currentWh[whIdxRes], "_")
1198
+
                                            let matList = split(currentWh[whIdxMat], "_")
1199
+
                                            let $t04356643672 = exchangeResourcesCommon(resList, matList, amounts)
1200
+
                                            let newRes = $t04356643672._1
1201
+
                                            let newMat = $t04356643672._2
1202
+
                                            let usdtSpent = $t04356643672._3
1203
+
                                            let totalAmountConverted = $t04356643672._4
1204
+
                                            let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1205
+
                                            let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1206
+
                                            let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1207
+
                                            let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1208
+
                                            let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1209
+
                                                then MIN_USDT_FEE_DELIVERY15
1210
+
                                                else feePart
1211
+
                                            let usdtSpentWithFee = (usdtSpent + fee)
1212
+
                                            if ((usdtSpentWithFee > amt))
1213
+
                                                then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1214
+
                                                else {
1215
+
                                                    let rest = if (((amt - usdtSpentWithFee) > 0))
1216
+
                                                        then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1217
+
                                                        else nil
1218
+
                                                    let activitiesAmount = (usdtSpent / 100)
1219
+
                                                    let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1220
+
                                                    $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1221
+
                                                    }
1222
+
                                            }
1223
+
                                    }
1224
+
                            }
1225
+
                    }
1226
+
            else throw("Strict value is not equal to itself.")
1197
1227
 
        }
1198
1228
 
1199
1229
 
1201
1231
 
@Callable(i)
1202
1232
 
func craftGoods (productIdx,quantity) = {
1203
1233
 
    let prologResult = prolog()
1204
-
    if ((size(i.payments) != 1))
1205
-
        then throw("exactly 1 payment must be attached")
1206
-
        else {
1207
-
            let pmt = i.payments[0]
1208
-
            let amt = pmt.amount
1209
-
            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
1210
-
            if ((pmtAssetId != usdtAssetId))
1211
-
                then throw("USDT payments only!")
1212
-
                else if ((amt != MULT6))
1213
-
                    then throw("exactly 1 USDT must be attached as payment")
1214
-
                    else if ((0 >= quantity))
1215
-
                        then throw("Quantity should be positive")
1216
-
                        else {
1217
-
                            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1218
-
                            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1219
-
                            if ((curLocation[locIdxType] != "M"))
1220
-
                                then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
1221
-
                                else {
1222
-
                                    let cont = curLocation[locIdxContinent]
1223
-
                                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1224
-
                                    let matList = split(currentPack[bpIdxMat], "_")
1225
-
                                    if (if ((0 > productIdx))
1226
-
                                        then true
1227
-
                                        else (productIdx >= size(productionMatrix)))
1228
-
                                        then throw(("Unknown product idx=" + toString(productIdx)))
1229
-
                                        else {
1230
-
                                            let recipe = split(productionMatrix[productIdx], "_")
1231
-
                                            if ((size(recipe) != RECIPESIZE))
1232
-
                                                then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
1233
-
                                                else {
1234
-
                                                    let productContIdx = parseIntValue(recipe[rIdxContinent])
1235
-
                                                    if ((continents[productContIdx] != cont))
1236
-
                                                        then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont))
1237
-
                                                        else {
1238
-
                                                            let prodList = if ((currentPack[bpIdxProd] == ""))
1239
-
                                                                then nil
1240
-
                                                                else split_4C(currentPack[bpIdxProd], "_")
1241
-
                                                            func filler (acc,ignoredItem) =                                                             {
1242
-
                                                                let n = acc._2
1243
-
                                                                let xs = if ((size(prodList) > n))
1244
-
                                                                    then prodList[n]
1245
-
                                                                    else "0"
1246
-
                                                                let x = parseIntValue(xs)
1247
-
                                                                let amount = (quantity * PRODUCTPKGSIZE)
1248
-
                                                                let y = if ((n == productIdx))
1249
-
                                                                    then toString((x + amount))
1250
-
                                                                    else xs
1251
-
                                                                $Tuple2((acc._1 :+ y), (n + 1))
1252
-
                                                                }
1234
+
    if ((prologResult == prologResult))
1235
+
        then if ((size(i.payments) != 1))
1236
+
            then throw("exactly 1 payment must be attached")
1237
+
            else {
1238
+
                let pmt = i.payments[0]
1239
+
                let amt = pmt.amount
1240
+
                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
1241
+
                if ((pmtAssetId != usdtAssetId))
1242
+
                    then throw("USDT payments only!")
1243
+
                    else if ((amt != MULT6))
1244
+
                        then throw("exactly 1 USDT must be attached as payment")
1245
+
                        else if ((0 >= quantity))
1246
+
                            then throw("Quantity should be positive")
1247
+
                            else {
1248
+
                                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1249
+
                                let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1250
+
                                if ((curLocation[locIdxType] != "M"))
1251
+
                                    then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
1252
+
                                    else {
1253
+
                                        let cont = curLocation[locIdxContinent]
1254
+
                                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1255
+
                                        let matList = split(currentPack[bpIdxMat], "_")
1256
+
                                        if (if ((0 > productIdx))
1257
+
                                            then true
1258
+
                                            else (productIdx >= size(productionMatrix)))
1259
+
                                            then throw(("Unknown product idx=" + toString(productIdx)))
1260
+
                                            else {
1261
+
                                                let recipe = split(productionMatrix[productIdx], "_")
1262
+
                                                if ((size(recipe) != RECIPESIZE))
1263
+
                                                    then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
1264
+
                                                    else {
1265
+
                                                        let productContIdx = parseIntValue(recipe[rIdxContinent])
1266
+
                                                        if ((continents[productContIdx] != cont))
1267
+
                                                            then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont))
1268
+
                                                            else {
1269
+
                                                                let prodList = if ((currentPack[bpIdxProd] == ""))
1270
+
                                                                    then nil
1271
+
                                                                    else split_4C(currentPack[bpIdxProd], "_")
1272
+
                                                                func filler (acc,ignoredItem) =                                                                 {
1273
+
                                                                    let n = acc._2
1274
+
                                                                    let xs = if ((size(prodList) > n))
1275
+
                                                                        then prodList[n]
1276
+
                                                                        else "0"
1277
+
                                                                    let x = parseIntValue(xs)
1278
+
                                                                    let amount = (quantity * PRODUCTPKGSIZE)
1279
+
                                                                    let y = if ((n == productIdx))
1280
+
                                                                        then toString((x + amount))
1281
+
                                                                        else xs
1282
+
                                                                    $Tuple2((acc._1 :+ y), (n + 1))
1283
+
                                                                    }
1253
1284
 
1254
-
                                                            let bpProd = (                                                            let $l = productionMatrix
1255
-
                                                            let $s = size($l)
1256
-
                                                            let $acc0 = $Tuple2(nil, 0)
1257
-
                                                            func $f0_1 ($a,$i) =                                                             if (($i >= $s))
1258
-
                                                                then $a
1259
-
                                                                else filler($a, $l[$i])
1260
-
1261
-
                                                            func $f0_2 ($a,$i) =                                                             if (($i >= $s))
1262
-
                                                                then $a
1263
-
                                                                else throw("List size exceeds 50")
1264
-
1265
-
                                                            $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
1266
-
                                                            func producer (acc,j) =                                                             {
1267
-
                                                                let needMat = (((parseIntValue(recipe[j]) * MULT5) * quantity) * parseIntValue(recipe[rIdxCoeff]))
1268
-
                                                                let haveMat = parseIntValue(matList[j])
1269
-
                                                                if ((needMat > haveMat))
1270
-
                                                                    then throw(((((((("You have " + fixedPoint(haveMat, 8)) + " of ") + matTypes[j]) + ", but recipe requires ") + fixedPoint(needMat, 8)) + " for quantity ") + toString(quantity)))
1271
-
                                                                    else if ((needMat > 0))
1272
-
                                                                        then $Tuple2((acc._1 :+ toString((haveMat - needMat))), (acc._2 + needMat))
1273
-
                                                                        else $Tuple2((acc._1 :+ matList[j]), acc._2)
1274
-
                                                                }
1275
-
1276
-
                                                            let merged = {
1277
-
                                                                let $l = ITER6
1285
+
                                                                let bpProd = (                                                                let $l = productionMatrix
1278
1286
 
                                                                let $s = size($l)
1279
1287
 
                                                                let $acc0 = $Tuple2(nil, 0)
1280
-
                                                                func $f1_1 ($a,$i) =                                                                 if (($i >= $s))
1288
+
                                                                func $f0_1 ($a,$i) =                                                                 if (($i >= $s))
1281
1289
 
                                                                    then $a
1282
-
                                                                    else producer($a, $l[$i])
1290
+
                                                                    else filler($a, $l[$i])
1283
1291
 
1284
-
                                                                func $f1_2 ($a,$i) =                                                                 if (($i >= $s))
1292
+
                                                                func $f0_2 ($a,$i) =                                                                 if (($i >= $s))
1285
1293
 
                                                                    then $a
1286
-
                                                                    else throw("List size exceeds 6")
1294
+
                                                                    else throw("List size exceeds 50")
1287
1295
 
1288
-
                                                                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
1296
+
                                                                $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
1297
+
                                                                func producer (acc,j) =                                                                 {
1298
+
                                                                    let needMat = (((parseIntValue(recipe[j]) * MULT5) * quantity) * parseIntValue(recipe[rIdxCoeff]))
1299
+
                                                                    let haveMat = parseIntValue(matList[j])
1300
+
                                                                    if ((needMat > haveMat))
1301
+
                                                                        then throw(((((((("You have " + fixedPoint(haveMat, 8)) + " of ") + matTypes[j]) + ", but recipe requires ") + fixedPoint(needMat, 8)) + " for quantity ") + toString(quantity)))
1302
+
                                                                        else if ((needMat > 0))
1303
+
                                                                            then $Tuple2((acc._1 :+ toString((haveMat - needMat))), (acc._2 + needMat))
1304
+
                                                                            else $Tuple2((acc._1 :+ matList[j]), acc._2)
1305
+
                                                                    }
1306
+
1307
+
                                                                let merged = {
1308
+
                                                                    let $l = ITER6
1309
+
                                                                    let $s = size($l)
1310
+
                                                                    let $acc0 = $Tuple2(nil, 0)
1311
+
                                                                    func $f1_1 ($a,$i) =                                                                     if (($i >= $s))
1312
+
                                                                        then $a
1313
+
                                                                        else producer($a, $l[$i])
1314
+
1315
+
                                                                    func $f1_2 ($a,$i) =                                                                     if (($i >= $s))
1316
+
                                                                        then $a
1317
+
                                                                        else throw("List size exceeds 6")
1318
+
1319
+
                                                                    $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
1320
+
                                                                    }
1321
+
                                                                let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._1, "_"), makeString_2C(bpProd, "_")], ":")
1322
+
                                                                let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1323
+
                                                                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpCraft, merged._2, MULT8)], nil))
1324
+
                                                                $Tuple2(nil, $Tuple3(result, prologResult, statsResult))
1289
1325
 
                                                                }
1290
-
                                                            let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._1, "_"), makeString_2C(bpProd, "_")], ":")
1291
-
                                                            let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1292
-
                                                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpCraft, merged._2, MULT8)], nil))
1293
-
                                                            $Tuple2(nil, $Tuple3(result, prologResult, statsResult))
1294
-
                                                            }
1295
-
                                                    }
1296
-
                                            }
1297
-
                                    }
1298
-
                            }
1299
-
            }
1326
+
                                                        }
1327
+
                                                }
1328
+
                                        }
1329
+
                                }
1330
+
                }
1331
+
        else throw("Strict value is not equal to itself.")
1300
1332
 
    }
1301
1333
 
1302
1334
 
1368
1400
 
@Callable(i)
1369
1401
 
func acceptWarehouseOrder (bpOrderStr,shopLandAssetId,duckAssetId) = {
1370
1402
 
    let prologResult = prolog()
1371
-
    let caller = i.originCaller
1372
-
    let callerAddr = toString(caller)
1373
-
    let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1374
-
    let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION)
1375
-
    let loc = split(value(curLocation), "_")
1376
-
    if ((loc[locIdxType] != "L"))
1377
-
        then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
1378
-
        else if ((stakedDuckAssetId != duckAssetId))
1379
-
            then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId))
1380
-
            else {
1381
-
                let bpKey = keyBackpackByDuck(duckAssetId)
1382
-
                let currentPack = getBackpack(bpKey)
1383
-
                let bpResList = split(currentPack[bpIdxRes], "_")
1384
-
                let bpMatList = split(currentPack[bpIdxMat], "_")
1385
-
                let bpProdList = if ((currentPack[bpIdxProd] == ""))
1386
-
                    then nil
1387
-
                    else split_4C(currentPack[bpIdxProd], "_")
1388
-
                let $t05314853388 = acceptShopOrderCommon(shopLandAssetId, callerAddr, bpOrderStr, bpResList, bpMatList, bpProdList)
1389
-
                let shopAction = $t05314853388._1
1390
-
                let newUserRes = $t05314853388._2
1391
-
                let newUserMat = $t05314853388._3
1392
-
                let newUserProd = $t05314853388._4
1393
-
                let usdWh2BpSaldo = $t05314853388._5
1394
-
                let usdBp2WhSaldo = $t05314853388._6
1395
-
                let xpAmount = $t05314853388._7
1396
-
                let shopLandOwner = $t05314853388._8
1397
-
                let shopWhSave = $t05314853388._9
1398
-
                let accStatsResult = $t05314853388._10
1399
-
                let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, 0)]
1400
-
                let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, 0)
1401
-
                let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1402
-
                let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1403
-
                let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1404
-
                $Tuple2((actions1 ++ actions2), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1405
-
                }
1403
+
    if ((prologResult == prologResult))
1404
+
        then {
1405
+
            let caller = i.originCaller
1406
+
            let callerAddr = toString(caller)
1407
+
            let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1408
+
            let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION)
1409
+
            let loc = split(value(curLocation), "_")
1410
+
            if ((loc[locIdxType] != "L"))
1411
+
                then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
1412
+
                else if ((stakedDuckAssetId != duckAssetId))
1413
+
                    then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId))
1414
+
                    else {
1415
+
                        let bpKey = keyBackpackByDuck(duckAssetId)
1416
+
                        let currentPack = getBackpack(bpKey)
1417
+
                        let bpResList = split(currentPack[bpIdxRes], "_")
1418
+
                        let bpMatList = split(currentPack[bpIdxMat], "_")
1419
+
                        let bpProdList = if ((currentPack[bpIdxProd] == ""))
1420
+
                            then nil
1421
+
                            else split_4C(currentPack[bpIdxProd], "_")
1422
+
                        let $t05319053430 = acceptShopOrderCommon(shopLandAssetId, callerAddr, bpOrderStr, bpResList, bpMatList, bpProdList)
1423
+
                        let shopAction = $t05319053430._1
1424
+
                        let newUserRes = $t05319053430._2
1425
+
                        let newUserMat = $t05319053430._3
1426
+
                        let newUserProd = $t05319053430._4
1427
+
                        let usdWh2BpSaldo = $t05319053430._5
1428
+
                        let usdBp2WhSaldo = $t05319053430._6
1429
+
                        let xpAmount = $t05319053430._7
1430
+
                        let shopLandOwner = $t05319053430._8
1431
+
                        let shopWhSave = $t05319053430._9
1432
+
                        let accStatsResult = $t05319053430._10
1433
+
                        let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, 0)]
1434
+
                        let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, 0)
1435
+
                        let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1436
+
                        let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1437
+
                        let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1438
+
                        $Tuple2((actions1 ++ actions2), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1439
+
                        }
1440
+
            }
1441
+
        else throw("Strict value is not equal to itself.")
1406
1442
 
    }
1407
1443
 
1408
1444
 
1412
1448
 
    then throw("Delivery feature is turned off!")
1413
1449
 
    else {
1414
1450
 
        let prologResult = prolog()
1415
-
        let caller = i.originCaller
1416
-
        let callerAddr = toString(caller)
1417
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1418
-
        let bpKey = keyBackpackByDuck(duckAssetId)
1419
-
        let currentPack = getBackpack(bpKey)
1420
-
        let bpResList = split(currentPack[bpIdxRes], "_")
1421
-
        let bpMatList = split(currentPack[bpIdxMat], "_")
1422
-
        let bpProdList = if ((currentPack[bpIdxProd] == ""))
1423
-
            then nil
1424
-
            else split_4C(currentPack[bpIdxProd], "_")
1425
-
        let $t05482755065 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, bpResList, bpMatList, bpProdList)
1426
-
        let shopAction = $t05482755065._1
1427
-
        let newUserRes = $t05482755065._2
1428
-
        let newUserMat = $t05482755065._3
1429
-
        let newUserProd = $t05482755065._4
1430
-
        let usdWh2BpSaldo = $t05482755065._5
1431
-
        let usdBp2WhSaldo = $t05482755065._6
1432
-
        let xpAmount = $t05482755065._7
1433
-
        let shopLandOwner = $t05482755065._8
1434
-
        let shopWhSave = $t05482755065._9
1435
-
        let accStatsResult = $t05482755065._10
1436
-
        let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1437
-
        let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1438
-
            then MIN_USDT_FEE_DELIVERY
1439
-
            else deliveryFeePart
1440
-
        let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1441
-
        let receivedFee = (deliveryFee - spentFee)
1442
-
        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1443
-
        let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1444
-
        let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1445
-
        let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1446
-
        let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1447
-
        let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1448
-
        $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1451
+
        if ((prologResult == prologResult))
1452
+
            then {
1453
+
                let caller = i.originCaller
1454
+
                let callerAddr = toString(caller)
1455
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1456
+
                let bpKey = keyBackpackByDuck(duckAssetId)
1457
+
                let currentPack = getBackpack(bpKey)
1458
+
                let bpResList = split(currentPack[bpIdxRes], "_")
1459
+
                let bpMatList = split(currentPack[bpIdxMat], "_")
1460
+
                let bpProdList = if ((currentPack[bpIdxProd] == ""))
1461
+
                    then nil
1462
+
                    else split_4C(currentPack[bpIdxProd], "_")
1463
+
                let $t05487255110 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, bpResList, bpMatList, bpProdList)
1464
+
                let shopAction = $t05487255110._1
1465
+
                let newUserRes = $t05487255110._2
1466
+
                let newUserMat = $t05487255110._3
1467
+
                let newUserProd = $t05487255110._4
1468
+
                let usdWh2BpSaldo = $t05487255110._5
1469
+
                let usdBp2WhSaldo = $t05487255110._6
1470
+
                let xpAmount = $t05487255110._7
1471
+
                let shopLandOwner = $t05487255110._8
1472
+
                let shopWhSave = $t05487255110._9
1473
+
                let accStatsResult = $t05487255110._10
1474
+
                let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1475
+
                let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1476
+
                    then MIN_USDT_FEE_DELIVERY
1477
+
                    else deliveryFeePart
1478
+
                let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1479
+
                let receivedFee = (deliveryFee - spentFee)
1480
+
                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1481
+
                let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1482
+
                let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1483
+
                let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1484
+
                let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1485
+
                let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1486
+
                $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1487
+
                }
1488
+
            else throw("Strict value is not equal to itself.")
1449
1489
 
        }
1450
1490
 
1451
1491
 
1455
1495
 
    then throw("Delivery feature is turned off!")
1456
1496
 
    else {
1457
1497
 
        let prologResult = prolog()
1458
-
        let caller = i.originCaller
1459
-
        let callerAddr = toString(caller)
1460
-
        let asset = value(assetInfo(fromBase58String(myLandAssetId)))
1461
-
        if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(myLandAssetId)))))
1462
-
            then throw((("NFT " + asset.name) + " is not staked"))
1463
-
            else {
1464
-
                let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(myLandAssetId)), (("NFT " + asset.name) + " is orphaned"))
1465
-
                if ((owner != callerAddr))
1466
-
                    then throw((LANDPREFIX + " is not yours"))
1498
+
        if ((prologResult == prologResult))
1499
+
            then {
1500
+
                let caller = i.originCaller
1501
+
                let callerAddr = toString(caller)
1502
+
                let asset = value(assetInfo(fromBase58String(myLandAssetId)))
1503
+
                if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(myLandAssetId)))))
1504
+
                    then throw((("NFT " + asset.name) + " is not staked"))
1467
1505
 
                    else {
1468
-
                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [myLandAssetId], nil))
1469
-
                        let currentWh = split_4C(wh, ":")
1470
-
                        let resList = split(currentWh[whIdxRes], "_")
1471
-
                        let matList = split(currentWh[whIdxMat], "_")
1472
-
                        let prodList = if ((currentWh[whIdxProd] == ""))
1473
-
                            then nil
1474
-
                            else split(currentWh[whIdxProd], "_")
1475
-
                        let $t05730457536 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, resList, matList, prodList)
1476
-
                        let shopAction = $t05730457536._1
1477
-
                        let newUserRes = $t05730457536._2
1478
-
                        let newUserMat = $t05730457536._3
1479
-
                        let newUserProd = $t05730457536._4
1480
-
                        let usdWh2BpSaldo = $t05730457536._5
1481
-
                        let usdBp2WhSaldo = $t05730457536._6
1482
-
                        let xpAmount = $t05730457536._7
1483
-
                        let shopLandOwner = $t05730457536._8
1484
-
                        let shopWhSave = $t05730457536._9
1485
-
                        let accStatsResult = $t05730457536._10
1486
-
                        let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1487
-
                        let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1488
-
                            then MIN_USDT_FEE_DELIVERY
1489
-
                            else deliveryFeePart
1490
-
                        let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1491
-
                        let receivedFee = (deliveryFee - spentFee)
1492
-
                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1493
-
                        let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1494
-
                        let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1495
-
                        let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString(newUserProd, "_"), currentWh[whIdxLOFT]], ":")
1496
-
                        let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, myLandAssetId], nil))
1497
-
                        let statsResult = asInt(invoke(stakingContract, "updateAccStats", [callerAddr, fraction(xpShop, xpAmount, MULT8)], nil))
1498
-
                        $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, whSave, statsResult, accStatsResult))
1506
+
                        let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(myLandAssetId)), (("NFT " + asset.name) + " is orphaned"))
1507
+
                        if ((owner != callerAddr))
1508
+
                            then throw((LANDPREFIX + " is not yours"))
1509
+
                            else {
1510
+
                                let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [myLandAssetId], nil))
1511
+
                                let currentWh = split_4C(wh, ":")
1512
+
                                let resList = split(currentWh[whIdxRes], "_")
1513
+
                                let matList = split(currentWh[whIdxMat], "_")
1514
+
                                let prodList = if ((currentWh[whIdxProd] == ""))
1515
+
                                    then nil
1516
+
                                    else split(currentWh[whIdxProd], "_")
1517
+
                                let $t05735257584 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, resList, matList, prodList)
1518
+
                                let shopAction = $t05735257584._1
1519
+
                                let newUserRes = $t05735257584._2
1520
+
                                let newUserMat = $t05735257584._3
1521
+
                                let newUserProd = $t05735257584._4
1522
+
                                let usdWh2BpSaldo = $t05735257584._5
1523
+
                                let usdBp2WhSaldo = $t05735257584._6
1524
+
                                let xpAmount = $t05735257584._7
1525
+
                                let shopLandOwner = $t05735257584._8
1526
+
                                let shopWhSave = $t05735257584._9
1527
+
                                let accStatsResult = $t05735257584._10
1528
+
                                let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1529
+
                                let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1530
+
                                    then MIN_USDT_FEE_DELIVERY
1531
+
                                    else deliveryFeePart
1532
+
                                let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1533
+
                                let receivedFee = (deliveryFee - spentFee)
1534
+
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1535
+
                                let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1536
+
                                let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1537
+
                                let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString(newUserProd, "_"), currentWh[whIdxLOFT]], ":")
1538
+
                                let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, myLandAssetId], nil))
1539
+
                                let statsResult = asInt(invoke(stakingContract, "updateAccStats", [callerAddr, fraction(xpShop, xpAmount, MULT8)], nil))
1540
+
                                $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, whSave, statsResult, accStatsResult))
1541
+
                                }
1499
1542
 
                        }
1500
1543
 
                }
1544
+
            else throw("Strict value is not equal to itself.")
1501
1545
 
        }
1502
1546
 
1503
1547
 
1505
1549
 
@Callable(i)
1506
1550
 
func sellProductsToES (amounts) = {
1507
1551
 
    let prologResult = prolog()
1508
-
    if ((size(i.payments) != 0))
1509
-
        then throw("No payments needed")
1510
-
        else {
1511
-
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1512
-
            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1513
-
            if ((curLocation[locIdxType] != "A"))
1514
-
                then throw(("Duck location type should be Airport, but is " + curLocation[locIdxType]))
1515
-
                else {
1516
-
                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1517
-
                    let prodList = if ((currentPack[bpIdxProd] == ""))
1518
-
                        then nil
1519
-
                        else split_4C(currentPack[bpIdxProd], "_")
1520
-
                    let esKey = keyEsWarehouse()
1521
-
                    let existStr = getString(esKey)
1522
-
                    let existAmounts = if (isDefined(existStr))
1523
-
                        then split_4C(value(existStr), "_")
1524
-
                        else nil
1525
-
                    func moveProd (acc,recipeStr) =                     {
1526
-
                        let j = acc._1
1527
-
                        let quantity = if ((size(amounts) > j))
1528
-
                            then amounts[j]
1529
-
                            else 0
1530
-
                        if ((0 > quantity))
1531
-
                            then throw("Quantity cannot be negative")
1532
-
                            else {
1533
-
                                let recipe = split(recipeStr, "_")
1534
-
                                if ((size(recipe) != RECIPESIZE))
1535
-
                                    then throw(("Fatal: unknown recipe: " + recipeStr))
1536
-
                                    else {
1537
-
                                        let maxAmount = (ESMAXPACKAGES * PRODUCTPKGSIZE)
1538
-
                                        let existAmount = if ((size(existAmounts) > j))
1539
-
                                            then parseIntValue(existAmounts[j])
1540
-
                                            else 0
1541
-
                                        let canBuy = (maxAmount - existAmount)
1542
-
                                        if ((quantity > canBuy))
1543
-
                                            then throw(((("Warehouse can buy only " + toString(canBuy)) + " of ") + prodTypes[j]))
1544
-
                                            else {
1545
-
                                                let totalMat = getRecipeMaterials(recipe)
1546
-
                                                let unitPrice = fraction((totalMat * ESBUYCOEF), RESOURCEPRICEMIN, (MULT8 * PRODUCTPKGSIZE))
1547
-
                                                let bpProdAmount = if ((size(prodList) > j))
1548
-
                                                    then parseIntValue(prodList[j])
1549
-
                                                    else 0
1550
-
                                                if ((quantity > bpProdAmount))
1551
-
                                                    then throw(((("You have only " + toString(bpProdAmount)) + " of ") + prodTypes[j]))
1552
-
                                                    else $Tuple5((j + 1), (acc._2 + (unitPrice * quantity)), (acc._3 :+ toString((bpProdAmount - quantity))), (acc._4 :+ toString((existAmount + quantity))), (acc._5 + (totalMat * quantity)))
1553
-
                                                }
1554
-
                                        }
1555
-
                                }
1552
+
    if ((prologResult == prologResult))
1553
+
        then if ((size(i.payments) != 0))
1554
+
            then throw("No payments needed")
1555
+
            else {
1556
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1557
+
                let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1558
+
                if ((curLocation[locIdxType] != "A"))
1559
+
                    then throw(("Duck location type should be Airport, but is " + curLocation[locIdxType]))
1560
+
                    else {
1561
+
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1562
+
                        let prodList = if ((currentPack[bpIdxProd] == ""))
1563
+
                            then nil
1564
+
                            else split_4C(currentPack[bpIdxProd], "_")
1565
+
                        let esKey = keyEsWarehouse()
1566
+
                        let existStr = getString(esKey)
1567
+
                        let existAmounts = if (isDefined(existStr))
1568
+
                            then split_4C(value(existStr), "_")
1569
+
                            else nil
1570
+
                        func moveProd (acc,recipeStr) =                         {
1571
+
                            let j = acc._1
1572
+
                            let quantity = if ((size(amounts) > j))
1573
+
                                then amounts[j]
1574
+
                                else 0
1575
+
                            if ((0 > quantity))
1576
+
                                then throw("Quantity cannot be negative")
1577
+
                                else {
1578
+
                                    let recipe = split(recipeStr, "_")
1579
+
                                    if ((size(recipe) != RECIPESIZE))
1580
+
                                        then throw(("Fatal: unknown recipe: " + recipeStr))
1581
+
                                        else {
1582
+
                                            let maxAmount = (ESMAXPACKAGES * PRODUCTPKGSIZE)
1583
+
                                            let existAmount = if ((size(existAmounts) > j))
1584
+
                                                then parseIntValue(existAmounts[j])
1585
+
                                                else 0
1586
+
                                            let canBuy = (maxAmount - existAmount)
1587
+
                                            if ((quantity > canBuy))
1588
+
                                                then throw(((("Warehouse can buy only " + toString(canBuy)) + " of ") + prodTypes[j]))
1589
+
                                                else {
1590
+
                                                    let totalMat = getRecipeMaterials(recipe)
1591
+
                                                    let unitPrice = fraction((totalMat * ESBUYCOEF), RESOURCEPRICEMIN, (MULT8 * PRODUCTPKGSIZE))
1592
+
                                                    let bpProdAmount = if ((size(prodList) > j))
1593
+
                                                        then parseIntValue(prodList[j])
1594
+
                                                        else 0
1595
+
                                                    if ((quantity > bpProdAmount))
1596
+
                                                        then throw(((("You have only " + toString(bpProdAmount)) + " of ") + prodTypes[j]))
1597
+
                                                        else $Tuple5((j + 1), (acc._2 + (unitPrice * quantity)), (acc._3 :+ toString((bpProdAmount - quantity))), (acc._4 :+ toString((existAmount + quantity))), (acc._5 + (totalMat * quantity)))
1598
+
                                                    }
1599
+
                                            }
1600
+
                                    }
1601
+
                            }
1602
+
1603
+
                        let merged = {
1604
+
                            let $l = productionMatrix
1605
+
                            let $s = size($l)
1606
+
                            let $acc0 = $Tuple5(0, 0, nil, nil, 0)
1607
+
                            func $f0_1 ($a,$i) =                             if (($i >= $s))
1608
+
                                then $a
1609
+
                                else moveProd($a, $l[$i])
1610
+
1611
+
                            func $f0_2 ($a,$i) =                             if (($i >= $s))
1612
+
                                then $a
1613
+
                                else throw("List size exceeds 50")
1614
+
1615
+
                            $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)
1616
+
                            }
1617
+
                        let newBpStr = makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString_2C(merged._3, "_")], ":")
1618
+
                        let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1619
+
                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpSellToEs, merged._5, (MULT8 * 10))], nil))
1620
+
                        $Tuple2([StringEntry(esKey, makeString_2C(merged._4, "_")), ScriptTransfer(i.caller, merged._2, usdtAssetId)], $Tuple3(bpSave, prologResult, statsResult))
1556
1621
 
                        }
1557
-
1558
-
                    let merged = {
1559
-
                        let $l = productionMatrix
1560
-
                        let $s = size($l)
1561
-
                        let $acc0 = $Tuple5(0, 0, nil, nil, 0)
1562
-
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
1563
-
                            then $a
1564
-
                            else moveProd($a, $l[$i])
1565
-
1566
-
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
1567
-
                            then $a
1568
-
                            else throw("List size exceeds 50")
1569
-
1570
-
                        $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)
1571
-
                        }
1572
-
                    let newBpStr = makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString_2C(merged._3, "_")], ":")
1573
-
                    let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1574
-
                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpSellToEs, merged._5, (MULT8 * 10))], nil))
1575
-
                    $Tuple2([StringEntry(esKey, makeString_2C(merged._4, "_")), ScriptTransfer(i.caller, merged._2, usdtAssetId)], $Tuple3(bpSave, prologResult, statsResult))
1576
-
                    }
1577
-
            }
1622
+
                }
1623
+
        else throw("Strict value is not equal to itself.")
1578
1624
 
    }
1579
1625
 
1580
1626
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let xpTrade = 10000
5
5
 
6
6
 
let xpCraft = 10000
7
7
 
8
8
 
let xpSellToEs = 10000
9
9
 
10
10
 
let xpShop = 10000
11
11
 
12
12
 
let LANDPREFIX = "LAND"
13
13
 
14
14
 
let NUMRES = 6
15
15
 
16
16
 
let DEFAULTLOCATION = "Africa_F_Africa"
17
17
 
18
18
 
let RESOURCEPRICEMIN = 39637
19
19
 
20
20
 
let ESMAXPACKAGES = 10
21
21
 
22
22
 
let ESBUYCOEF = 4
23
23
 
24
24
 
let MIN_USDT_FEE_DELIVERY = 50000
25
25
 
26
26
 
let MIN_USDT_FEE_DELIVERY15 = 75000
27
27
 
28
28
 
let USDT2ACRES_MULTIPLIER = 10
29
29
 
30
30
 
let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
31
31
 
32
32
 
let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
33
33
 
34
34
 
let prodTypes = ["First Aid Kit L1", "First Aid Kit L2", "First Aid Kit L3", "Backpack L1", "Backpack L2", "Backpack L3", "Food Ration L1", "Food Ration L2", "Food Ration L3", "Jet Pack L1", "Jet Pack L2", "Jet Pack L3", "Shield L1", "Shield L2", "Shield L3", "Mine L1", "Mine L2", "Mine L3", "Trap L1", "Trap L2", "Trap L3"]
35
35
 
36
36
 
let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
37
37
 
38
38
 
let COEFF2MAT = 10000000
39
39
 
40
40
 
let productionMatrix = ["8_8_8_17_17_42_12_0_30_0,0,0,0,0,0,0_", "8_8_8_17_17_42_24_0_60_0,0,5,2,0,0,0_", "8_8_8_17_17_42_36_0_120_0,0,10,4,0,0,0_", "8_19_19_8_27_19_26_1_20_0,0,0,0,0,0,0_001", "8_19_19_8_27_19_52_1_40_0,0,0,0,0,0,0_001", "8_19_19_8_27_19_78_1_80_0,0,0,0,0,0,0_001", "8_8_8_8_8_60_13_2_2_0,0,0,0,0,0,0_011", "8_8_8_8_8_60_26_2_4_0,0,0,0,0,0,0_011", "8_8_8_8_8_60_39_2_8_0,0,0,0,0,0,0_011", "30_30_3_17_17_3_30_3_30_0,0,0,0,0,0,0_111", "30_30_3_17_17_3_60_3_50_0,0,0,0,0,0,0_111", "30_30_3_17_17_3_90_3_70_0,0,0,0,0,0,0_111", "18_18_10_18_18_18_11_4_10_0,0,0,0,0,0,0_201", "18_18_10_18_18_18_22_4_20_0,0,0,0,0,0,0_201", "18_18_10_18_18_18_33_4_30_0,0,0,0,0,0,0_201", "4_13_22_4_35_22_23_0_50,1,0_0,0,0,0,0,0,0_", "4_13_22_4_35_22_46_0_50,1,1_0,2,5,0,0,0,0_", "4_13_22_4_35_22_69_0_50,2,1_0,5,10,0,0,0,0_", "5_25_40_5_10_15_20_1_30,1,1_0,0,0,0,0,0,0_", "5_25_40_5_10_15_40_1_30,1,2_2,1,3,0,0,0,0_", "5_25_40_5_10_15_60_1_30,1,3_5,2,8,0,0,0,0_"]
41
41
 
42
42
 
let rIdxCoeff = 6
43
43
 
44
44
 
let rIdxContinent = 7
45
45
 
46
46
 
let RECIPESIZE = 11
47
47
 
48
48
 
let PRODUCTPKGSIZE = 10
49
49
 
50
50
 
let whIdxLevels = 0
51
51
 
52
52
 
let whIdxRes = 1
53
53
 
54
54
 
let whIdxMat = 2
55
55
 
56
56
 
let whIdxProd = 3
57
57
 
58
58
 
let whIdxLOFT = 4
59
59
 
60
60
 
let volLocked = 0
61
61
 
62
62
 
let volTotal = 3
63
63
 
64
64
 
let bpIdxLevel = 0
65
65
 
66
66
 
let bpIdxRes = 1
67
67
 
68
68
 
let bpIdxMat = 2
69
69
 
70
70
 
let bpIdxProd = 3
71
71
 
72
72
 
let locIdxContinent = 0
73
73
 
74
74
 
let locIdxType = 1
75
75
 
76
76
 
let locIdxId = 2
77
77
 
78
78
 
func keyLandAssetIdToOwner (assetId) = ("no_" + assetId)
79
79
 
80
80
 
81
81
 
func keyStakedTimeByAssetId (assetId) = ("st_" + assetId)
82
82
 
83
83
 
84
84
 
func keyAddressRefBy (addr) = ("accRefBy_" + addr)
85
85
 
86
86
 
87
87
 
func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
88
88
 
89
89
 
90
90
 
func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
91
91
 
92
92
 
93
93
 
func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
94
94
 
95
95
 
96
96
 
func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
97
97
 
98
98
 
99
99
 
func keyEsWarehouse () = "emergencyWarehouseProducts"
100
100
 
101
101
 
102
102
 
let deliveryFundKey = "deliveryFund"
103
103
 
104
104
 
let deliveryLockedKey = "deliveryLocked"
105
105
 
106
106
 
func getRecipeMaterials (recipe) = (parseIntValue(recipe[rIdxCoeff]) * COEFF2MAT)
107
107
 
108
108
 
109
109
 
let KS_ALLOW_DELIVERY = true
110
110
 
111
111
 
let chain = take(drop(this.bytes, 1), 1)
112
112
 
113
113
 
let usdtAssetId = match chain {
114
114
 
    case _ => 
115
115
 
        if ((base58'2W' == $match0))
116
116
 
            then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
117
117
 
            else if ((base58'2T' == $match0))
118
118
 
                then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
119
119
 
                else throw("Unknown chain")
120
120
 
}
121
121
 
122
122
 
let defaultRestAddressStr = match chain {
123
123
 
    case _ => 
124
124
 
        if ((base58'2W' == $match0))
125
125
 
            then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
126
126
 
            else if ((base58'2T' == $match0))
127
127
 
                then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
128
128
 
                else throw("Unknown chain")
129
129
 
}
130
130
 
131
131
 
let SEP = "__"
132
132
 
133
133
 
let MULT5 = 100000
134
134
 
135
135
 
let MULT6 = 1000000
136
136
 
137
137
 
let MULT8 = 100000000
138
138
 
139
139
 
let MULT10 = 10000000000
140
140
 
141
141
 
let MINSHOPPAYMENT = 100000
142
142
 
143
143
 
let ITER6 = [0, 1, 2, 3, 4, 5]
144
144
 
145
145
 
func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
146
146
 
147
147
 
148
148
 
let IdxCfgStakingDapp = 1
149
149
 
150
150
 
let IdxCfgInvestFundDapp = 6
151
151
 
152
152
 
let IdxCfgAcresDapp = 8
153
153
 
154
154
 
func keyRestCfg () = "%s__restConfig"
155
155
 
156
156
 
157
157
 
func keyRestAddress () = "%s__restAddr"
158
158
 
159
159
 
160
160
 
func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
161
161
 
162
162
 
163
163
 
func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
164
164
 
165
165
 
166
166
 
let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
167
167
 
168
168
 
let restCfg = readRestCfgOrFail(restContract)
169
169
 
170
170
 
let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
171
171
 
172
172
 
let investFundContract = getContractAddressOrFail(restCfg, IdxCfgInvestFundDapp)
173
173
 
174
174
 
let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
175
175
 
176
176
 
func asString (v) = match v {
177
177
 
    case s: String => 
178
178
 
        s
179
179
 
    case _ => 
180
180
 
        throw("fail to cast into String")
181
181
 
}
182
182
 
183
183
 
184
184
 
func asInt (v) = match v {
185
185
 
    case n: Int => 
186
186
 
        n
187
187
 
    case _ => 
188
188
 
        throw("fail to cast into Int")
189
189
 
}
190
190
 
191
191
 
192
192
 
func keyBlocked () = "contractsBlocked"
193
193
 
194
194
 
195
195
 
func fixedPoint (val,decimals) = {
196
196
 
    let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
197
197
 
    let lowPart = toString((val % tenPow))
198
198
 
    let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
199
199
 
    (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
200
200
 
    }
201
201
 
202
202
 
203
203
 
let FACTORYMAXWAREHOUSE = 10000000000
204
204
 
205
205
 
let SELLMULTIPLIER = 200
206
206
 
207
207
 
let BUYMULTIPLIER = 300
208
208
 
209
209
 
let AUCTIONFEE = 10000
210
210
 
211
211
 
let DELIVERY_FEE = 10000
212
212
 
213
213
 
let DELIVERY_FEE15 = 15000
214
214
 
215
215
 
func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
216
216
 
217
217
 
218
218
 
let ordIdxRes = 0
219
219
 
220
220
 
let ordIdxMat = 1
221
221
 
222
222
 
let ordIdxProd = 2
223
223
 
224
224
 
func getOrder (ordKey) = {
225
225
 
    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:"), ":")
226
226
 
[if ((size(split(p[ordIdxRes], "_")) == NUMRES))
227
227
 
        then p[ordIdxRes]
228
228
 
        else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
229
229
 
        then p[ordIdxMat]
230
230
 
        else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
231
231
 
    }
232
232
 
233
233
 
234
234
 
func toVolume (amount,pkgSize,isProduct) = if (isProduct)
235
235
 
    then {
236
236
 
        let pkgs = if ((amount >= 0))
237
237
 
            then (((amount + pkgSize) - 1) / pkgSize)
238
238
 
            else -((((-(amount) + pkgSize) - 1) / pkgSize))
239
239
 
        (pkgs * MULT8)
240
240
 
        }
241
241
 
    else amount
242
242
 
243
243
 
244
244
 
func sellInternal (locId,resType,amount,minPrice) = {
245
245
 
    let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
246
246
 
    let w0 = valueOrElse(getInteger(whKey), 0)
247
247
 
    let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
248
248
 
        then 0
249
249
 
        else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
250
250
 
            then (FACTORYMAXWAREHOUSE - w0)
251
251
 
            else amount
252
252
 
    let usdtReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
253
253
 
    let min99 = (minPrice - (minPrice / 100))
254
254
 
    if (((min99 * amount) > (usdtReceived * MULT8)))
255
255
 
        then throw((((((((((("Actual price = " + toString(usdtReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
256
256
 
        else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdtReceived)
257
257
 
    }
258
258
 
259
259
 
260
260
 
func buyInternal (locId,matType,amount,maxPrice) = {
261
261
 
    let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
262
262
 
    let w0 = valueOrElse(getInteger(whKey), 0)
263
263
 
    let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
264
264
 
        then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
265
265
 
        else 0
266
266
 
    let m0 = min([w0, (amount - m1)])
267
267
 
    let m = (m0 + m1)
268
268
 
    let w0min = min([w0, FACTORYMAXWAREHOUSE])
269
269
 
    let usdtSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0min) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
270
270
 
    let max101 = (maxPrice + (maxPrice / 100))
271
271
 
    if (((usdtSpent * MULT8) > (max101 * m)))
272
272
 
        then throw((((((((((("Actual price = " + toString(usdtSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
273
273
 
        else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdtSpent, m)
274
274
 
    }
275
275
 
276
276
 
277
277
 
func getBackpack (bpKey) = {
278
278
 
    let p = split_4C(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
279
279
 
[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
280
280
 
        then p[bpIdxRes]
281
281
 
        else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
282
282
 
        then p[bpIdxMat]
283
283
 
        else "0_0_0_0_0_0", p[bpIdxProd]]
284
284
 
    }
285
285
 
286
286
 
287
287
 
func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
288
288
 
    then throw("Contracts are under maintenance")
289
289
 
    else unit
290
290
 
291
291
 
292
-
func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
292
+
func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
293
293
 
294
294
 
295
295
 
func setCommon (acc,ignoredIterator) = {
296
296
 
    let j = acc._1
297
297
 
    let item = if ((size(acc._10) > j))
298
298
 
        then acc._10[j]
299
299
 
        else "0@0"
300
300
 
    let isProd = acc._8
301
301
 
    let itemParts = split(item, "@")
302
302
 
    if ((size(itemParts) != 2))
303
303
 
        then throw("Incorrect order format, should be amount@price")
304
304
 
        else {
305
305
 
            let newOrdAm = parseIntValue(itemParts[0])
306
306
 
            let newOrdPr = parseIntValue(itemParts[1])
307
307
 
            let newOrdUsd = if (isProd)
308
308
 
                then (newOrdAm * newOrdPr)
309
309
 
                else fraction(newOrdAm, newOrdPr, MULT8)
310
310
 
            let newOrdVol = toVolume(newOrdAm, PRODUCTPKGSIZE, isProd)
311
311
 
            let whInit = if ((size(acc._6) > j))
312
312
 
                then parseIntValue(acc._6[j])
313
313
 
                else 0
314
314
 
            let curOrdParts = split(if ((size(acc._7) > j))
315
315
 
                then acc._7[j]
316
316
 
                else "0@0", "@")
317
317
 
            let curOrdAm = parseIntValue(curOrdParts[0])
318
318
 
            let curOrdPr = parseIntValue(curOrdParts[1])
319
319
 
            if (if ((0 > curOrdPr))
320
320
 
                then true
321
321
 
                else (0 > newOrdPr))
322
322
 
                then throw("Price can't be negative")
323
323
 
                else {
324
324
 
                    let curOrdUsd = if (isProd)
325
325
 
                        then (curOrdAm * curOrdPr)
326
326
 
                        else fraction(curOrdAm, curOrdPr, MULT8)
327
327
 
                    if ((newOrdAm == 0))
328
328
 
                        then if ((curOrdAm > 0))
329
329
 
                            then $Tuple10((j + 1), (acc._2 :+ toString(whInit)), acc._3, acc._4, (acc._5 - curOrdUsd), acc._6, acc._7, isProd, (acc._9 + toVolume(whInit, PRODUCTPKGSIZE, isProd)), acc._10)
330
330
 
                            else $Tuple10((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), acc._3, acc._4, acc._5, acc._6, acc._7, isProd, (acc._9 + toVolume((whInit - curOrdAm), PRODUCTPKGSIZE, isProd)), acc._10)
331
331
 
                        else if ((newOrdAm > 0))
332
332
 
                            then if ((0 > curOrdAm))
333
333
 
                                then $Tuple10((j + 1), (acc._2 :+ toString((whInit - curOrdAm))), (acc._3 + newOrdVol), acc._4, (acc._5 + newOrdUsd), acc._6, acc._7, isProd, toVolume((whInit - curOrdAm), PRODUCTPKGSIZE, isProd), acc._10)
334
334
 
                                else $Tuple10((j + 1), (acc._2 :+ toString(whInit)), (acc._3 + newOrdVol), acc._4, ((acc._5 + newOrdUsd) - curOrdUsd), acc._6, acc._7, isProd, toVolume(whInit, PRODUCTPKGSIZE, isProd), acc._10)
335
335
 
                            else if ((0 > curOrdAm))
336
336
 
                                then {
337
337
 
                                    let amDiff = (curOrdAm - newOrdAm)
338
338
 
                                    if ((0 > (whInit - amDiff)))
339
339
 
                                        then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whInit)) + " available"))
340
340
 
                                        else $Tuple10((j + 1), (acc._2 :+ toString((whInit - amDiff))), acc._3, (acc._4 - newOrdVol), acc._5, acc._6, acc._7, isProd, toVolume((whInit - amDiff), PRODUCTPKGSIZE, isProd), acc._10)
341
341
 
                                    }
342
342
 
                                else if ((0 > (whInit + newOrdAm)))
343
343
 
                                    then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whInit)) + " available"))
344
344
 
                                    else $Tuple10((j + 1), (acc._2 :+ toString((whInit + newOrdAm))), acc._3, (acc._4 - newOrdVol), (acc._5 - curOrdUsd), acc._6, acc._7, isProd, toVolume((whInit + newOrdAm), PRODUCTPKGSIZE, isProd), acc._10)
345
345
 
                    }
346
346
 
            }
347
347
 
    }
348
348
 
349
349
 
350
350
 
func setInternal (currentWh,currentOrd,newOrd) = {
351
351
 
    let currWhRes = split(currentWh[whIdxRes], "_")
352
352
 
    let currWhMat = split(currentWh[whIdxMat], "_")
353
353
 
    let currWhProd = if ((currentWh[whIdxProd] == ""))
354
354
 
        then nil
355
355
 
        else split_4C(currentWh[whIdxProd], "_")
356
356
 
    let currentOrdRes = split(currentOrd[ordIdxRes], "_")
357
357
 
    let currentOrdMat = split(currentOrd[ordIdxMat], "_")
358
358
 
    let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
359
359
 
        then nil
360
360
 
        else split_4C(currentOrd[ordIdxProd], "_")
361
361
 
    if ((size(newOrd) != 3))
362
362
 
        then throw("newOrderStr should contain exactly 2 ':' separators")
363
363
 
        else {
364
364
 
            let resParts = split(newOrd[0], "_")
365
365
 
            let matParts = split(newOrd[1], "_")
366
366
 
            let prodParts = if ((newOrd[2] == ""))
367
367
 
                then nil
368
368
 
                else split_4C(newOrd[2], "_")
369
369
 
            if ((size(resParts) != NUMRES))
370
370
 
                then throw("All 6 resources should be passed")
371
371
 
                else if ((size(matParts) != NUMRES))
372
372
 
                    then throw("All 6 materials should be passed")
373
373
 
                    else {
374
374
 
                        let r = {
375
375
 
                            let $l = resTypes
376
376
 
                            let $s = size($l)
377
377
 
                            let $acc0 = $Tuple10(0, nil, 0, 0, 0, currWhRes, currentOrdRes, false, 0, resParts)
378
378
 
                            func $f0_1 ($a,$i) =                             if (($i >= $s))
379
379
 
                                then $a
380
380
 
                                else setCommon($a, $l[$i])
381
381
 
382
382
 
                            func $f0_2 ($a,$i) =                             if (($i >= $s))
383
383
 
                                then $a
384
384
 
                                else throw("List size exceeds 6")
385
385
 
386
386
 
                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
387
387
 
                            }
388
388
 
                        let m = {
389
389
 
                            let $l = matTypes
390
390
 
                            let $s = size($l)
391
391
 
                            let $acc0 = $Tuple10(0, nil, r._3, r._4, r._5, currWhMat, currentOrdMat, false, r._9, matParts)
392
392
 
                            func $f1_1 ($a,$i) =                             if (($i >= $s))
393
393
 
                                then $a
394
394
 
                                else setCommon($a, $l[$i])
395
395
 
396
396
 
                            func $f1_2 ($a,$i) =                             if (($i >= $s))
397
397
 
                                then $a
398
398
 
                                else throw("List size exceeds 6")
399
399
 
400
400
 
                            $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
401
401
 
                            }
402
402
 
                        let p = {
403
403
 
                            let $l = prodTypes
404
404
 
                            let $s = size($l)
405
405
 
                            let $acc0 = $Tuple10(0, nil, m._3, m._4, m._5, currWhProd, currentOrdProd, true, m._9, prodParts)
406
406
 
                            func $f2_1 ($a,$i) =                             if (($i >= $s))
407
407
 
                                then $a
408
408
 
                                else setCommon($a, $l[$i])
409
409
 
410
410
 
                            func $f2_2 ($a,$i) =                             if (($i >= $s))
411
411
 
                                then $a
412
412
 
                                else throw("List size exceeds 50")
413
413
 
414
414
 
                            $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)
415
415
 
                            }
416
416
 
                        $Tuple7(r._2, m._2, p._2, p._3, p._4, p._5, p._9)
417
417
 
                        }
418
418
 
            }
419
419
 
    }
420
420
 
421
421
 
422
422
 
func acceptCommon (acc,bpOrdItem) = {
423
423
 
    let j = acc._7
424
424
 
    let isProd = acc._12
425
425
 
    let bpOrdParts = split(bpOrdItem, "@")
426
426
 
    if ((size(bpOrdParts) != 2))
427
427
 
        then throw("Incorrect order format, should be amount@price")
428
428
 
        else {
429
429
 
            let bpOrdAm = parseIntValue(bpOrdParts[0])
430
430
 
            let bpOrdPr = parseIntValue(bpOrdParts[1])
431
431
 
            if ((0 > bpOrdPr))
432
432
 
                then throw("Price can't be negative")
433
433
 
                else {
434
434
 
                    let bpOrdUsd = if (isProd)
435
435
 
                        then (bpOrdAm * bpOrdPr)
436
436
 
                        else fraction(bpOrdAm, bpOrdPr, MULT8)
437
437
 
                    let bpInit = if ((size(acc._8) > j))
438
438
 
                        then parseIntValue(acc._8[j])
439
439
 
                        else 0
440
440
 
                    let whInit = if ((size(acc._9) > j))
441
441
 
                        then parseIntValue(acc._9[j])
442
442
 
                        else 0
443
443
 
                    let whOrdInit = if ((size(acc._10) > j))
444
444
 
                        then acc._10[j]
445
445
 
                        else "0@0"
446
446
 
                    let whOrdParts = split(whOrdInit, "@")
447
447
 
                    let whOrdAm = parseIntValue(whOrdParts[0])
448
448
 
                    let whOrdPr = parseIntValue(whOrdParts[1])
449
449
 
                    if (if ((bpOrdAm != 0))
450
450
 
                        then (bpOrdPr != whOrdPr)
451
451
 
                        else false)
452
452
 
                        then throw(((((("Prices of " + acc._11[j]) + " don't match! WH price=") + toString(whOrdPr)) + ", your price=") + toString(bpOrdPr)))
453
453
 
                        else {
454
454
 
                            let whOrdUsd = if (isProd)
455
455
 
                                then (whOrdAm * whOrdPr)
456
456
 
                                else fraction(whOrdAm, whOrdPr, MULT8)
457
457
 
                            let deltaVol = toVolume(bpOrdAm, PRODUCTPKGSIZE, isProd)
458
458
 
                            if ((bpOrdAm == 0))
459
459
 
                                then $Tuple13((acc._1 :+ toString(whInit)), (acc._2 :+ whOrdInit), (acc._3 :+ toString(bpInit)), acc._4, acc._5, acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd, acc._13)
460
460
 
                                else if ((bpOrdAm > 0))
461
461
 
                                    then if ((0 > whOrdAm))
462
462
 
                                        then if ((bpOrdAm > -(whOrdAm)))
463
463
 
                                            then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + acc._11[j]) + ", but warehouse only sells ") + toString(-(whOrdAm))))
464
464
 
                                            else $Tuple13((acc._1 :+ toString(whInit)), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpInit + bpOrdAm))), (acc._4 + deltaVol), acc._5, (acc._6 + bpOrdUsd), (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd, (acc._13 + (if (isProd)
465
465
 
                                                then (bpOrdAm * MULT8)
466
466
 
                                                else bpOrdAm)))
467
467
 
                                        else throw((("Attempt to buy " + acc._11[j]) + " while warehouse doesn't sell it"))
468
468
 
                                    else if ((whOrdAm > 0))
469
469
 
                                        then if ((-(bpOrdAm) > whOrdAm))
470
470
 
                                            then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + acc._11[j]) + ", but warehouse only buys ") + toString(whOrdAm)))
471
471
 
                                            else if ((-(bpOrdAm) > bpInit))
472
472
 
                                                then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + toString(bpInit)) + " of ") + acc._11[j]))
473
473
 
                                                else $Tuple13((acc._1 :+ toString((whInit - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpInit + bpOrdAm))), (acc._4 - deltaVol), (acc._5 - bpOrdUsd), acc._6, (acc._7 + 1), acc._8, acc._9, acc._10, acc._11, isProd, (acc._13 - (if (isProd)
474
474
 
                                                    then (bpOrdAm * MULT8)
475
475
 
                                                    else bpOrdAm)))
476
476
 
                                        else throw((("Attempt to sell " + acc._11[j]) + " while warehouse doesn't buy it"))
477
477
 
                            }
478
478
 
                    }
479
479
 
            }
480
480
 
    }
481
481
 
482
482
 
483
483
 
func sellResourcesCommon (resList,factoryLocId,amounts,minPrices) = {
484
484
 
    func adder (acc,j) =     if ((amounts[j] > parseIntValue(resList[j])))
485
485
 
        then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j])))
486
486
 
        else if ((0 > amounts[j]))
487
487
 
            then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j])))
488
488
 
            else if ((amounts[j] > 0))
489
489
 
                then {
490
490
 
                    let b = sellInternal(factoryLocId, j, amounts[j], minPrices[j])
491
491
 
                    $Tuple4((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2), (acc._4 + amounts[j]))
492
492
 
                    }
493
493
 
                else $Tuple4(acc._1, (acc._2 :+ resList[j]), acc._3, acc._4)
494
494
 
495
495
 
    let $l = ITER6
496
496
 
    let $s = size($l)
497
497
 
    let $acc0 = $Tuple4(nil, nil, 0, 0)
498
498
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
499
499
 
        then $a
500
500
 
        else adder($a, $l[$i])
501
501
 
502
502
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
503
503
 
        then $a
504
504
 
        else throw("List size exceeds 6")
505
505
 
506
506
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
507
507
 
    }
508
508
 
509
509
 
510
510
 
func buyMaterialsCommon (matList,factoryLocId,amounts,maxPrices) = {
511
511
 
    func mUpdater (acc,j) =     if ((0 > amounts[j]))
512
512
 
        then throw(((("You tried to buy negative amount of " + matTypes[j]) + ": ") + toString(amounts[j])))
513
513
 
        else if ((amounts[j] > 0))
514
514
 
            then {
515
515
 
                let b = buyInternal(factoryLocId, j, amounts[j], maxPrices[j])
516
516
 
                $Tuple4((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(matList[j]) + b._3))), (acc._3 + b._2), (acc._4 + amounts[j]))
517
517
 
                }
518
518
 
            else $Tuple4(acc._1, (acc._2 :+ matList[j]), acc._3, acc._4)
519
519
 
520
520
 
    let $l = ITER6
521
521
 
    let $s = size($l)
522
522
 
    let $acc0 = $Tuple4(nil, nil, 0, 0)
523
523
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
524
524
 
        then $a
525
525
 
        else mUpdater($a, $l[$i])
526
526
 
527
527
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
528
528
 
        then $a
529
529
 
        else throw("List size exceeds 6")
530
530
 
531
531
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
532
532
 
    }
533
533
 
534
534
 
535
535
 
func exchangeResourcesCommon (resList,matList,amounts) = {
536
536
 
    func exchanger (acc,j) =     {
537
537
 
        let amj = amounts[j]
538
538
 
        if ((amj > parseIntValue(resList[j])))
539
539
 
            then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to exchange ") + toString(amj)))
540
540
 
            else if ((0 > amj))
541
541
 
                then throw(((("You tried to exchange negative amount of " + resTypes[j]) + ": ") + toString(amj)))
542
542
 
                else if ((amj > 0))
543
543
 
                    then $Tuple4((acc._1 :+ toString((parseIntValue(resList[j]) - amj))), (acc._2 :+ toString((parseIntValue(matList[j]) + amj))), (acc._3 + fraction(amj, RESOURCEPRICEMIN, MULT8)), (acc._4 + amj))
544
544
 
                    else $Tuple4((acc._1 :+ resList[j]), (acc._2 :+ matList[j]), acc._3, acc._4)
545
545
 
        }
546
546
 
547
547
 
    let $l = ITER6
548
548
 
    let $s = size($l)
549
549
 
    let $acc0 = $Tuple4(nil, nil, 0, 0)
550
550
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
551
551
 
        then $a
552
552
 
        else exchanger($a, $l[$i])
553
553
 
554
554
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
555
555
 
        then $a
556
556
 
        else throw("List size exceeds 6")
557
557
 
558
558
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
559
559
 
    }
560
560
 
561
561
 
562
562
 
func shop2userActions (usdWh2BpSaldo,callerAddr,receivedFee) = if ((usdWh2BpSaldo > 0))
563
563
 
    then {
564
564
 
        let usdWh2BpFee = fraction(usdWh2BpSaldo, AUCTIONFEE, MULT6)
565
565
 
        if ((receivedFee >= (usdWh2BpSaldo - (3 * usdWh2BpFee))))
566
566
 
            then throw(("This trade does not cover delivery cost of " + fixedPoint(receivedFee, 6)))
567
567
 
            else {
568
568
 
                let refByKey = keyAddressRefBy(callerAddr)
569
569
 
                let refBy = getString(stakingContract, refByKey)
570
570
 
                let caller = addressFromStringValue(callerAddr)
571
571
 
                (((if (isDefined(refBy))
572
572
 
                    then [ScriptTransfer(addressFromStringValue(value(refBy)), usdWh2BpFee, usdtAssetId)]
573
573
 
                    else nil) :+ ScriptTransfer(caller, ((usdWh2BpSaldo - (3 * usdWh2BpFee)) - receivedFee), usdtAssetId)) :+ ScriptTransfer(restContract, usdWh2BpFee, usdtAssetId))
574
574
 
                }
575
575
 
        }
576
576
 
    else nil
577
577
 
578
578
 
579
579
 
func user2shopActions (usdBp2WhSaldo,pmts,shopLandOwner,spentFee) = if ((usdBp2WhSaldo > 0))
580
580
 
    then if ((size(pmts) != 1))
581
581
 
        then throw("exactly 1 payment must be attached")
582
582
 
        else {
583
583
 
            let pmt = pmts[0]
584
584
 
            let amt = pmt.amount
585
585
 
            if (if (!(isDefined(pmt.assetId)))
586
586
 
                then true
587
587
 
                else (value(pmt.assetId) != usdtAssetId))
588
588
 
                then throw("USDT payments only!")
589
589
 
                else {
590
590
 
                    let usdtSpentWithFee = (usdBp2WhSaldo + spentFee)
591
591
 
                    if ((amt != usdtSpentWithFee))
592
592
 
                        then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdBp2WhSaldo, 6)) + "+") + fixedPoint(spentFee, 6)) + "(delivery fee)"))
593
593
 
                        else if ((MINSHOPPAYMENT > usdBp2WhSaldo))
594
594
 
                            then throw(("Min shop trade is " + fixedPoint(MINSHOPPAYMENT, 6)))
595
595
 
                            else {
596
596
 
                                let usdBp2WhFee = fraction(usdBp2WhSaldo, AUCTIONFEE, MULT6)
597
597
 
                                let refByKey = keyAddressRefBy(shopLandOwner)
598
598
 
                                let refBy = getString(stakingContract, refByKey)
599
599
 
                                (((if (isDefined(refBy))
600
600
 
                                    then [ScriptTransfer(addressFromStringValue(value(refBy)), usdBp2WhFee, usdtAssetId)]
601
601
 
                                    else nil) :+ ScriptTransfer(addressFromStringValue(shopLandOwner), (usdBp2WhSaldo - (3 * usdBp2WhFee)), usdtAssetId)) :+ ScriptTransfer(restContract, usdBp2WhFee, usdtAssetId))
602
602
 
                                }
603
603
 
                    }
604
604
 
            }
605
605
 
    else if ((size(pmts) != 0))
606
606
 
        then throw("No payments needed")
607
607
 
        else nil
608
608
 
609
609
 
610
610
 
func acceptShopOrderCommon (shopLandAssetId,callerAddr,bpOrderStr,bpResList,bpMatList,bpProdList) = {
611
611
 
    let landAsset = value(assetInfo(fromBase58String(shopLandAssetId)))
612
612
 
    if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(shopLandAssetId)))))
613
613
 
        then throw((("NFT " + landAsset.name) + " is not staked"))
614
614
 
        else {
615
615
 
            let shopLandOwner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(shopLandAssetId)), (("NFT " + landAsset.name) + " is orphaned"))
616
616
 
            if ((shopLandOwner == callerAddr))
617
617
 
                then throw("You cannot trade with yourself")
618
618
 
                else {
619
619
 
                    let bpOrderParts = split_4C(bpOrderStr, ":")
620
620
 
                    if ((size(bpOrderParts) != 3))
621
621
 
                        then throw("bpOrderStr should contain exactly 2 ':' separators")
622
622
 
                        else {
623
623
 
                            let bpOrdRes = split(bpOrderParts[0], "_")
624
624
 
                            let bpOrdMat = split(bpOrderParts[1], "_")
625
625
 
                            let bpOrdProd = if ((bpOrderParts[2] == ""))
626
626
 
                                then nil
627
627
 
                                else split_4C(bpOrderParts[2], "_")
628
628
 
                            if ((size(bpOrdRes) != NUMRES))
629
629
 
                                then throw("All 6 resources should be passed")
630
630
 
                                else if ((size(bpOrdMat) != NUMRES))
631
631
 
                                    then throw("All 6 materials should be passed")
632
632
 
                                    else {
633
633
 
                                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [shopLandAssetId], nil))
634
634
 
                                        let currentWh = split_4C(wh, ":")
635
635
 
                                        let currWhRes = split(currentWh[whIdxRes], "_")
636
636
 
                                        let currWhMat = split(currentWh[whIdxMat], "_")
637
637
 
                                        let currWhProd = if ((currentWh[whIdxProd] == ""))
638
638
 
                                            then nil
639
639
 
                                            else split_4C(currentWh[whIdxProd], "_")
640
640
 
                                        let currWhLockedVol = parseIntValue(split(currentWh[whIdxLOFT], "_")[volLocked])
641
641
 
                                        let ordKey = keyOrderByLand(shopLandAssetId)
642
642
 
                                        let whOrd = getOrder(ordKey)
643
643
 
                                        let whOrdRes = split(whOrd[ordIdxRes], "_")
644
644
 
                                        let whOrdMat = split(whOrd[ordIdxMat], "_")
645
645
 
                                        let whOrdProd = if ((whOrd[ordIdxProd] == ""))
646
646
 
                                            then nil
647
647
 
                                            else split_4C(whOrd[ordIdxProd], "_")
648
648
 
                                        let r = {
649
649
 
                                            let $l = bpOrdRes
650
650
 
                                            let $s = size($l)
651
651
 
                                            let $acc0 = $Tuple13(nil, nil, nil, 0, 0, 0, 0, bpResList, currWhRes, whOrdRes, resTypes, false, 0)
652
652
 
                                            func $f0_1 ($a,$i) =                                             if (($i >= $s))
653
653
 
                                                then $a
654
654
 
                                                else acceptCommon($a, $l[$i])
655
655
 
656
656
 
                                            func $f0_2 ($a,$i) =                                             if (($i >= $s))
657
657
 
                                                then $a
658
658
 
                                                else throw("List size exceeds 6")
659
659
 
660
660
 
                                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
661
661
 
                                            }
662
662
 
                                        let m = {
663
663
 
                                            let $l = bpOrdMat
664
664
 
                                            let $s = size($l)
665
665
 
                                            let $acc0 = $Tuple13(nil, nil, nil, r._4, r._5, r._6, 0, bpMatList, currWhMat, whOrdMat, matTypes, false, r._13)
666
666
 
                                            func $f1_1 ($a,$i) =                                             if (($i >= $s))
667
667
 
                                                then $a
668
668
 
                                                else acceptCommon($a, $l[$i])
669
669
 
670
670
 
                                            func $f1_2 ($a,$i) =                                             if (($i >= $s))
671
671
 
                                                then $a
672
672
 
                                                else throw("List size exceeds 6")
673
673
 
674
674
 
                                            $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
675
675
 
                                            }
676
676
 
                                        let p = if ((size(bpOrdProd) != 0))
677
677
 
                                            then {
678
678
 
                                                let $l = bpOrdProd
679
679
 
                                                let $s = size($l)
680
680
 
                                                let $acc0 = $Tuple13(nil, nil, nil, m._4, m._5, m._6, 0, bpProdList, currWhProd, whOrdProd, prodTypes, true, m._13)
681
681
 
                                                func $f2_1 ($a,$i) =                                                 if (($i >= $s))
682
682
 
                                                    then $a
683
683
 
                                                    else acceptCommon($a, $l[$i])
684
684
 
685
685
 
                                                func $f2_2 ($a,$i) =                                                 if (($i >= $s))
686
686
 
                                                    then $a
687
687
 
                                                    else throw("List size exceeds 50")
688
688
 
689
689
 
                                                $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)
690
690
 
                                                }
691
691
 
                                            else $Tuple13(currWhProd, whOrdProd, bpProdList, m._4, m._5, m._6, 0, bpProdList, currWhProd, whOrdProd, prodTypes, true, m._13)
692
692
 
                                        let volSaldo = p._4
693
693
 
                                        let newLockedVol = if ((0 > (currWhLockedVol - volSaldo)))
694
694
 
                                            then 0
695
695
 
                                            else (currWhLockedVol - volSaldo)
696
696
 
                                        let whStr = makeString_2C([currentWh[whIdxLevels], makeString(r._1, "_"), makeString(m._1, "_"), makeString_2C(p._1, "_"), toString(newLockedVol)], ":")
697
697
 
                                        let newWhOrdStr = makeString_2C([makeString(r._2, "_"), makeString(m._2, "_"), makeString_2C(p._2, "_")], ":")
698
698
 
                                        let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, shopLandAssetId], nil))
699
699
 
                                        let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [shopLandOwner, fraction(xpShop, p._13, MULT8)], nil))
700
700
 
                                        $Tuple10(StringEntry(ordKey, newWhOrdStr), r._3, m._3, p._3, p._5, p._6, p._13, shopLandOwner, whSave, accStatsResult)
701
701
 
                                        }
702
702
 
                            }
703
703
 
                    }
704
704
 
            }
705
705
 
    }
706
706
 
707
707
 
708
708
 
func sellResourcesWorldInternal (amount) = {
709
709
 
    let oneRes = (amount / 30)
710
710
 
    let oneFactoryAmounts = [oneRes, oneRes, oneRes, oneRes, oneRes, oneRes]
711
711
 
    let s = toString(oneRes)
712
712
 
    let resList = [s, s, s, s, s, s]
713
713
 
    let minPrices = [0, 0, 0, 0, 0, 0]
714
714
 
    func oneFactory (acc,continent) =     {
715
715
 
        let x = sellResourcesCommon(resList, continent, oneFactoryAmounts, minPrices)
716
716
 
        $Tuple3((acc._1 ++ x._1), (acc._2 + x._3), (acc._3 + x._4))
717
717
 
        }
718
718
 
719
-
    let $t02526125351 = {
719
+
    let $t02527025360 = {
720
720
 
        let $l = continents
721
721
 
        let $s = size($l)
722
722
 
        let $acc0 = $Tuple3(nil, 0, 0)
723
723
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
724
724
 
            then $a
725
725
 
            else oneFactory($a, $l[$i])
726
726
 
727
727
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
728
728
 
            then $a
729
729
 
            else throw("List size exceeds 5")
730
730
 
731
731
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
732
732
 
        }
733
-
    let factoryActions = $t02526125351._1
734
-
    let usdtReceived = $t02526125351._2
735
-
    let totalRes = $t02526125351._3
733
+
    let factoryActions = $t02527025360._1
734
+
    let usdtReceived = $t02527025360._2
735
+
    let totalRes = $t02527025360._3
736
736
 
    let fee = fraction(usdtReceived, DELIVERY_FEE, MULT6)
737
737
 
    let activitiesAmount = (usdtReceived / 100)
738
738
 
    let usdtLeft = ((usdtReceived - activitiesAmount) - fee)
739
739
 
    $Tuple5(factoryActions, usdtLeft, fee, activitiesAmount, totalRes)
740
740
 
    }
741
741
 
742
742
 
743
743
 
@Callable(i)
744
744
 
func recalcLockedVolumeREADONLY (landAssetId,wh) = {
745
745
 
    let currentOrd = getOrder(keyOrderByLand(landAssetId))
746
746
 
    let z = setInternal(wh, currentOrd, currentOrd)
747
747
 
    $Tuple2(nil, (z._4 + z._5))
748
748
 
    }
749
749
 
750
750
 
751
751
 
752
752
 
@Callable(i)
753
753
 
func constructorV1 (restAddr) = if ((i.caller != this))
754
754
 
    then throw("Permission denied")
755
755
 
    else [StringEntry(keyRestAddress(), restAddr)]
756
756
 
757
757
 
758
758
 
759
759
 
@Callable(i)
760
760
 
func sellResources (amounts,minPrices) = {
761
761
 
    let prologResult = prolog()
762
-
    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
763
-
    if ((size(i.payments) != 0))
764
-
        then throw("sellResources doesn't require any payments")
765
-
        else {
766
-
            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
767
-
            if ((curLocation[locIdxType] != "F"))
768
-
                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
762
+
    if ((prologResult == prologResult))
763
+
        then {
764
+
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
765
+
            if ((size(i.payments) != 0))
766
+
                then throw("sellResources doesn't require any payments")
769
767
 
                else {
770
-
                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
771
-
                    let resList = split(currentPack[bpIdxRes], "_")
772
-
                    let $t02680326929 = sellResourcesCommon(resList, curLocation[locIdxId], amounts, minPrices)
773
-
                    let factoryActions = $t02680326929._1
774
-
                    let newRes = $t02680326929._2
775
-
                    let usdtReceived = $t02680326929._3
776
-
                    let totalRes = $t02680326929._4
777
-
                    let activitiesAmount = (usdtReceived / 100)
778
-
                    let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
779
-
                    let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
780
-
                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
781
-
                    $Tuple2(((factoryActions :+ ScriptTransfer(i.caller, (usdtReceived - activitiesAmount), usdtAssetId)) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
768
+
                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
769
+
                    if ((curLocation[locIdxType] != "F"))
770
+
                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
771
+
                        else {
772
+
                            let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
773
+
                            let resList = split(currentPack[bpIdxRes], "_")
774
+
                            let $t02681526941 = sellResourcesCommon(resList, curLocation[locIdxId], amounts, minPrices)
775
+
                            let factoryActions = $t02681526941._1
776
+
                            let newRes = $t02681526941._2
777
+
                            let usdtReceived = $t02681526941._3
778
+
                            let totalRes = $t02681526941._4
779
+
                            let activitiesAmount = (usdtReceived / 100)
780
+
                            let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
781
+
                            let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
782
+
                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
783
+
                            $Tuple2(((factoryActions :+ ScriptTransfer(i.caller, (usdtReceived - activitiesAmount), usdtAssetId)) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
784
+
                            }
782
785
 
                    }
783
786
 
            }
787
+
        else throw("Strict value is not equal to itself.")
784
788
 
    }
785
789
 
786
790
 
787
791
 
788
792
 
@Callable(i)
789
793
 
func sellResourcesWorld (addr,amount) = if ((i.caller != acresContract))
790
794
 
    then throw("Permission denied")
791
795
 
    else {
792
-
        let $t02772127878 = sellResourcesWorldInternal(amount)
793
-
        let factoryActions = $t02772127878._1
794
-
        let usdtLeft = $t02772127878._2
795
-
        let fee = $t02772127878._3
796
-
        let activitiesAmount = $t02772127878._4
797
-
        let totalRes = $t02772127878._5
796
+
        let $t02773327890 = sellResourcesWorldInternal(amount)
797
+
        let factoryActions = $t02773327890._1
798
+
        let usdtLeft = $t02773327890._2
799
+
        let fee = $t02773327890._3
800
+
        let activitiesAmount = $t02773327890._4
801
+
        let totalRes = $t02773327890._5
798
802
 
        if ((0 >= usdtLeft))
799
803
 
            then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
800
804
 
            else {
801
805
 
                let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalRes, MULT8)], nil))
802
806
 
                $Tuple2((((factoryActions :+ IntegerEntry(deliveryFundKey, (valueOrElse(getInteger(deliveryFundKey), 0) + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ ScriptTransfer(investFundContract, usdtLeft, usdtAssetId)), $Tuple2(usdtLeft, statsResult))
803
807
 
                }
804
808
 
        }
805
809
 
806
810
 
807
811
 
808
812
 
@Callable(i)
809
813
 
func sellResourcesWorldREADONLY (amount) = {
810
814
 
    let usdtLeft = sellResourcesWorldInternal(amount)._2
811
815
 
    $Tuple2(nil, usdtLeft)
812
816
 
    }
813
817
 
814
818
 
815
819
 
816
820
 
@Callable(i)
817
821
 
func sellResourcesDuckDelivery (amounts,minPrices,factoryContinent) = if (!(KS_ALLOW_DELIVERY))
818
822
 
    then throw("Delivery feature is turned off!")
819
823
 
    else {
820
824
 
        let prologResult = prolog()
821
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
822
-
        if ((size(i.payments) != 0))
823
-
            then throw("sellResources doesn't require any payments")
824
-
            else {
825
-
                let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
826
-
                let resList = split(currentPack[bpIdxRes], "_")
827
-
                let $t02911129232 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
828
-
                let factoryActions = $t02911129232._1
829
-
                let newRes = $t02911129232._2
830
-
                let usdtReceived = $t02911129232._3
831
-
                let totalRes = $t02911129232._4
832
-
                let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
833
-
                let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
834
-
                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
835
-
                let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
836
-
                let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
837
-
                    then MIN_USDT_FEE_DELIVERY
838
-
                    else feePart
839
-
                let activitiesAmount = (usdtReceived / 100)
840
-
                if ((fee >= (usdtReceived - activitiesAmount)))
841
-
                    then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
825
+
        if ((prologResult == prologResult))
826
+
            then {
827
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
828
+
                if ((size(i.payments) != 0))
829
+
                    then throw("sellResources doesn't require any payments")
842
830
 
                    else {
843
-
                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
844
-
                        $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
831
+
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
832
+
                        let resList = split(currentPack[bpIdxRes], "_")
833
+
                        let $t02912629247 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
834
+
                        let factoryActions = $t02912629247._1
835
+
                        let newRes = $t02912629247._2
836
+
                        let usdtReceived = $t02912629247._3
837
+
                        let totalRes = $t02912629247._4
838
+
                        let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
839
+
                        let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
840
+
                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
841
+
                        let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
842
+
                        let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
843
+
                            then MIN_USDT_FEE_DELIVERY
844
+
                            else feePart
845
+
                        let activitiesAmount = (usdtReceived / 100)
846
+
                        if ((fee >= (usdtReceived - activitiesAmount)))
847
+
                            then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
848
+
                            else {
849
+
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
850
+
                                $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
851
+
                                }
845
852
 
                        }
846
853
 
                }
854
+
            else throw("Strict value is not equal to itself.")
847
855
 
        }
848
856
 
849
857
 
850
858
 
851
859
 
@Callable(i)
852
860
 
func sellResourcesLandDelivery (amounts,minPrices,landAssetId,factoryContinent) = if (!(KS_ALLOW_DELIVERY))
853
861
 
    then throw("Delivery feature is turned off!")
854
862
 
    else {
855
863
 
        let prologResult = prolog()
856
-
        if ((size(i.payments) != 0))
857
-
            then throw("sellResources doesn't require any payments")
858
-
            else {
859
-
                let user = i.caller
860
-
                let addr = toString(user)
861
-
                let asset = value(assetInfo(fromBase58String(landAssetId)))
862
-
                if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
863
-
                    then throw((("NFT " + asset.name) + " is not staked"))
864
-
                    else {
865
-
                        let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
866
-
                        if ((owner != addr))
867
-
                            then throw((LANDPREFIX + " is not yours"))
868
-
                            else {
869
-
                                let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
870
-
                                let currentWh = split_4C(wh, ":")
871
-
                                let resList = split(currentWh[whIdxRes], "_")
872
-
                                let $t03125931380 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
873
-
                                let factoryActions = $t03125931380._1
874
-
                                let newRes = $t03125931380._2
875
-
                                let usdtReceived = $t03125931380._3
876
-
                                let totalRes = $t03125931380._4
877
-
                                let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), currentWh[whIdxMat], currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
878
-
                                let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
879
-
                                let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalRes, MULT8)], nil))
880
-
                                let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
881
-
                                let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
882
-
                                    then MIN_USDT_FEE_DELIVERY
883
-
                                    else feePart
884
-
                                let activitiesAmount = (usdtReceived / 100)
885
-
                                if ((fee >= (usdtReceived - activitiesAmount)))
886
-
                                    then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
887
-
                                    else {
888
-
                                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
889
-
                                        $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(whSave, prologResult, statsResult))
890
-
                                        }
891
-
                                }
892
-
                        }
893
-
                }
864
+
        if ((prologResult == prologResult))
865
+
            then if ((size(i.payments) != 0))
866
+
                then throw("sellResources doesn't require any payments")
867
+
                else {
868
+
                    let user = i.caller
869
+
                    let addr = toString(user)
870
+
                    let asset = value(assetInfo(fromBase58String(landAssetId)))
871
+
                    if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
872
+
                        then throw((("NFT " + asset.name) + " is not staked"))
873
+
                        else {
874
+
                            let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
875
+
                            if ((owner != addr))
876
+
                                then throw((LANDPREFIX + " is not yours"))
877
+
                                else {
878
+
                                    let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
879
+
                                    let currentWh = split_4C(wh, ":")
880
+
                                    let resList = split(currentWh[whIdxRes], "_")
881
+
                                    let $t03127731398 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
882
+
                                    let factoryActions = $t03127731398._1
883
+
                                    let newRes = $t03127731398._2
884
+
                                    let usdtReceived = $t03127731398._3
885
+
                                    let totalRes = $t03127731398._4
886
+
                                    let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), currentWh[whIdxMat], currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
887
+
                                    let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
888
+
                                    let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalRes, MULT8)], nil))
889
+
                                    let feePart = fraction(usdtReceived, DELIVERY_FEE, MULT6)
890
+
                                    let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
891
+
                                        then MIN_USDT_FEE_DELIVERY
892
+
                                        else feePart
893
+
                                    let activitiesAmount = (usdtReceived / 100)
894
+
                                    if ((fee >= (usdtReceived - activitiesAmount)))
895
+
                                        then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
896
+
                                        else {
897
+
                                            let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
898
+
                                            $Tuple2((((factoryActions :+ ScriptTransfer(i.caller, ((usdtReceived - activitiesAmount) - fee), usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(whSave, prologResult, statsResult))
899
+
                                            }
900
+
                                    }
901
+
                            }
902
+
                    }
903
+
            else throw("Strict value is not equal to itself.")
894
904
 
        }
895
905
 
896
906
 
897
907
 
898
908
 
@Callable(i)
899
909
 
func buyMaterials (amounts,maxPrices) = {
900
910
 
    let prologResult = prolog()
901
-
    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
902
-
    if ((size(i.payments) != 1))
903
-
        then throw("exactly 1 payment must be attached")
904
-
        else {
905
-
            let pmt = i.payments[0]
906
-
            let amt = pmt.amount
907
-
            if (if (!(isDefined(pmt.assetId)))
908
-
                then true
909
-
                else (value(pmt.assetId) != usdtAssetId))
910
-
                then throw("USDT payments only!")
911
+
    if ((prologResult == prologResult))
912
+
        then {
913
+
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
914
+
            if ((size(i.payments) != 1))
915
+
                then throw("exactly 1 payment must be attached")
911
916
 
                else {
912
-
                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
913
-
                    if ((curLocation[locIdxType] != "F"))
914
-
                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
917
+
                    let pmt = i.payments[0]
918
+
                    let amt = pmt.amount
919
+
                    if (if (!(isDefined(pmt.assetId)))
920
+
                        then true
921
+
                        else (value(pmt.assetId) != usdtAssetId))
922
+
                        then throw("USDT payments only!")
915
923
 
                        else {
916
-
                            let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
917
-
                            let matList = split(currentPack[bpIdxMat], "_")
918
-
                            let $t03324033362 = buyMaterialsCommon(matList, curLocation[locIdxId], amounts, maxPrices)
919
-
                            let factoryActions = $t03324033362._1
920
-
                            let newMat = $t03324033362._2
921
-
                            let usdtSpent = $t03324033362._3
922
-
                            let totalMat = $t03324033362._4
923
-
                            if ((usdtSpent > amt))
924
-
                                then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
924
+
                            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
925
+
                            if ((curLocation[locIdxType] != "F"))
926
+
                                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
925
927
 
                                else {
926
-
                                    let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
927
-
                                    let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
928
-
                                    let rest = if (((amt - usdtSpent) > 0))
929
-
                                        then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
930
-
                                        else nil
931
-
                                    let activitiesAmount = (usdtSpent / 100)
932
-
                                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
933
-
                                    $Tuple2(((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
928
+
                                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
929
+
                                    let matList = split(currentPack[bpIdxMat], "_")
930
+
                                    let $t03326133383 = buyMaterialsCommon(matList, curLocation[locIdxId], amounts, maxPrices)
931
+
                                    let factoryActions = $t03326133383._1
932
+
                                    let newMat = $t03326133383._2
933
+
                                    let usdtSpent = $t03326133383._3
934
+
                                    let totalMat = $t03326133383._4
935
+
                                    if ((usdtSpent > amt))
936
+
                                        then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
937
+
                                        else {
938
+
                                            let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
939
+
                                            let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
940
+
                                            let rest = if (((amt - usdtSpent) > 0))
941
+
                                                then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
942
+
                                                else nil
943
+
                                            let activitiesAmount = (usdtSpent / 100)
944
+
                                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
945
+
                                            $Tuple2(((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
946
+
                                            }
934
947
 
                                    }
935
948
 
                            }
936
949
 
                    }
937
950
 
            }
951
+
        else throw("Strict value is not equal to itself.")
938
952
 
    }
939
953
 
940
954
 
941
955
 
942
956
 
@Callable(i)
943
957
 
func buyMaterialsDuckDelivery (amounts,maxPrices,factoryContinent) = if (!(KS_ALLOW_DELIVERY))
944
958
 
    then throw("Delivery feature is turned off!")
945
959
 
    else {
946
960
 
        let prologResult = prolog()
947
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
948
-
        if ((size(i.payments) != 1))
949
-
            then throw("exactly 1 payment must be attached")
950
-
            else {
951
-
                let pmt = i.payments[0]
952
-
                let amt = pmt.amount
953
-
                if (if (!(isDefined(pmt.assetId)))
954
-
                    then true
955
-
                    else (value(pmt.assetId) != usdtAssetId))
956
-
                    then throw("USDT payments only!")
961
+
        if ((prologResult == prologResult))
962
+
            then {
963
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
964
+
                if ((size(i.payments) != 1))
965
+
                    then throw("exactly 1 payment must be attached")
957
966
 
                    else {
958
-
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
959
-
                        let matList = split(currentPack[bpIdxMat], "_")
960
-
                        let $t03488034997 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
961
-
                        let factoryActions = $t03488034997._1
962
-
                        let newMat = $t03488034997._2
963
-
                        let usdtSpent = $t03488034997._3
964
-
                        let totalMat = $t03488034997._4
965
-
                        let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
966
-
                        let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
967
-
                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
968
-
                        let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
969
-
                        let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
970
-
                            then MIN_USDT_FEE_DELIVERY
971
-
                            else feePart
972
-
                        let usdtSpentWithFee = (usdtSpent + fee)
973
-
                        if ((usdtSpentWithFee > amt))
974
-
                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
967
+
                        let pmt = i.payments[0]
968
+
                        let amt = pmt.amount
969
+
                        if (if (!(isDefined(pmt.assetId)))
970
+
                            then true
971
+
                            else (value(pmt.assetId) != usdtAssetId))
972
+
                            then throw("USDT payments only!")
975
973
 
                            else {
976
-
                                let rest = if (((amt - usdtSpentWithFee) > 0))
977
-
                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
978
-
                                    else nil
979
-
                                let activitiesAmount = (usdtSpent / 100)
980
-
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
981
-
                                $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
974
+
                                let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
975
+
                                let matList = split(currentPack[bpIdxMat], "_")
976
+
                                let $t03490435021 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
977
+
                                let factoryActions = $t03490435021._1
978
+
                                let newMat = $t03490435021._2
979
+
                                let usdtSpent = $t03490435021._3
980
+
                                let totalMat = $t03490435021._4
981
+
                                let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
982
+
                                let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
983
+
                                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
984
+
                                let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
985
+
                                let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
986
+
                                    then MIN_USDT_FEE_DELIVERY
987
+
                                    else feePart
988
+
                                let usdtSpentWithFee = (usdtSpent + fee)
989
+
                                if ((usdtSpentWithFee > amt))
990
+
                                    then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
991
+
                                    else {
992
+
                                        let rest = if (((amt - usdtSpentWithFee) > 0))
993
+
                                            then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
994
+
                                            else nil
995
+
                                        let activitiesAmount = (usdtSpent / 100)
996
+
                                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
997
+
                                        $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
998
+
                                        }
982
999
 
                                }
983
1000
 
                        }
984
1001
 
                }
1002
+
            else throw("Strict value is not equal to itself.")
985
1003
 
        }
986
1004
 
987
1005
 
988
1006
 
989
1007
 
@Callable(i)
990
1008
 
func buyMaterialsLandDelivery (amounts,maxPrices,landAssetId,factoryContinent) = if (!(KS_ALLOW_DELIVERY))
991
1009
 
    then throw("Delivery feature is turned off!")
992
1010
 
    else {
993
1011
 
        let prologResult = prolog()
994
-
        if ((size(i.payments) != 1))
995
-
            then throw("exactly 1 payment must be attached")
996
-
            else {
997
-
                let pmt = i.payments[0]
998
-
                let amt = pmt.amount
999
-
                if (if (!(isDefined(pmt.assetId)))
1000
-
                    then true
1001
-
                    else (value(pmt.assetId) != usdtAssetId))
1002
-
                    then throw("USDT payments only!")
1003
-
                    else {
1004
-
                        let user = i.caller
1005
-
                        let addr = toString(user)
1006
-
                        let asset = value(assetInfo(fromBase58String(landAssetId)))
1007
-
                        if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1008
-
                            then throw((("NFT " + asset.name) + " is not staked"))
1009
-
                            else {
1010
-
                                let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1011
-
                                if ((owner != addr))
1012
-
                                    then throw((LANDPREFIX + " is not yours"))
1013
-
                                    else {
1014
-
                                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1015
-
                                        let currentWh = split_4C(wh, ":")
1016
-
                                        let matList = split(currentWh[whIdxMat], "_")
1017
-
                                        let $t03727537392 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
1018
-
                                        let factoryActions = $t03727537392._1
1019
-
                                        let newMat = $t03727537392._2
1020
-
                                        let usdtSpent = $t03727537392._3
1021
-
                                        let totalMat = $t03727537392._4
1022
-
                                        let whStr = makeString_2C([currentWh[whIdxLevels], currentWh[whIdxRes], makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1023
-
                                        let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1024
-
                                        let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalMat, MULT8)], nil))
1025
-
                                        let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
1026
-
                                        let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
1027
-
                                            then MIN_USDT_FEE_DELIVERY
1028
-
                                            else feePart
1029
-
                                        let usdtSpentWithFee = (usdtSpent + fee)
1030
-
                                        if ((usdtSpentWithFee > amt))
1031
-
                                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1032
-
                                            else {
1033
-
                                                let rest = if (((amt - usdtSpentWithFee) > 0))
1034
-
                                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1035
-
                                                    else nil
1036
-
                                                let activitiesAmount = (usdtSpent / 100)
1037
-
                                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1038
-
                                                $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1039
-
                                                }
1040
-
                                        }
1041
-
                                }
1042
-
                        }
1043
-
                }
1012
+
        if ((prologResult == prologResult))
1013
+
            then if ((size(i.payments) != 1))
1014
+
                then throw("exactly 1 payment must be attached")
1015
+
                else {
1016
+
                    let pmt = i.payments[0]
1017
+
                    let amt = pmt.amount
1018
+
                    if (if (!(isDefined(pmt.assetId)))
1019
+
                        then true
1020
+
                        else (value(pmt.assetId) != usdtAssetId))
1021
+
                        then throw("USDT payments only!")
1022
+
                        else {
1023
+
                            let user = i.caller
1024
+
                            let addr = toString(user)
1025
+
                            let asset = value(assetInfo(fromBase58String(landAssetId)))
1026
+
                            if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1027
+
                                then throw((("NFT " + asset.name) + " is not staked"))
1028
+
                                else {
1029
+
                                    let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1030
+
                                    if ((owner != addr))
1031
+
                                        then throw((LANDPREFIX + " is not yours"))
1032
+
                                        else {
1033
+
                                            let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1034
+
                                            let currentWh = split_4C(wh, ":")
1035
+
                                            let matList = split(currentWh[whIdxMat], "_")
1036
+
                                            let $t03730237419 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
1037
+
                                            let factoryActions = $t03730237419._1
1038
+
                                            let newMat = $t03730237419._2
1039
+
                                            let usdtSpent = $t03730237419._3
1040
+
                                            let totalMat = $t03730237419._4
1041
+
                                            let whStr = makeString_2C([currentWh[whIdxLevels], currentWh[whIdxRes], makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1042
+
                                            let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1043
+
                                            let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalMat, MULT8)], nil))
1044
+
                                            let feePart = fraction(usdtSpent, DELIVERY_FEE, MULT6)
1045
+
                                            let fee = if ((MIN_USDT_FEE_DELIVERY > feePart))
1046
+
                                                then MIN_USDT_FEE_DELIVERY
1047
+
                                                else feePart
1048
+
                                            let usdtSpentWithFee = (usdtSpent + fee)
1049
+
                                            if ((usdtSpentWithFee > amt))
1050
+
                                                then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1051
+
                                                else {
1052
+
                                                    let rest = if (((amt - usdtSpentWithFee) > 0))
1053
+
                                                        then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1054
+
                                                        else nil
1055
+
                                                    let activitiesAmount = (usdtSpent / 100)
1056
+
                                                    let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1057
+
                                                    $Tuple2((((factoryActions ++ rest) :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1058
+
                                                    }
1059
+
                                            }
1060
+
                                    }
1061
+
                            }
1062
+
                    }
1063
+
            else throw("Strict value is not equal to itself.")
1044
1064
 
        }
1045
1065
 
1046
1066
 
1047
1067
 
1048
1068
 
@Callable(i)
1049
1069
 
func exchangeResources (amounts) = {
1050
1070
 
    let prologResult = prolog()
1051
-
    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1052
-
    if ((size(i.payments) != 1))
1053
-
        then throw("exactly 1 payment must be attached")
1054
-
        else {
1055
-
            let pmt = i.payments[0]
1056
-
            let amt = pmt.amount
1057
-
            if (if (!(isDefined(pmt.assetId)))
1058
-
                then true
1059
-
                else (value(pmt.assetId) != usdtAssetId))
1060
-
                then throw("USDT payments only!")
1071
+
    if ((prologResult == prologResult))
1072
+
        then {
1073
+
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1074
+
            if ((size(i.payments) != 1))
1075
+
                then throw("exactly 1 payment must be attached")
1061
1076
 
                else {
1062
-
                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1063
-
                    if ((curLocation[locIdxType] != "F"))
1064
-
                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
1077
+
                    let pmt = i.payments[0]
1078
+
                    let amt = pmt.amount
1079
+
                    if (if (!(isDefined(pmt.assetId)))
1080
+
                        then true
1081
+
                        else (value(pmt.assetId) != usdtAssetId))
1082
+
                        then throw("USDT payments only!")
1065
1083
 
                        else {
1066
-
                            let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1067
-
                            let resList = split(currentPack[bpIdxRes], "_")
1068
-
                            let matList = split(currentPack[bpIdxMat], "_")
1069
-
                            let $t03950639612 = exchangeResourcesCommon(resList, matList, amounts)
1070
-
                            let newRes = $t03950639612._1
1071
-
                            let newMat = $t03950639612._2
1072
-
                            let usdtSpent = $t03950639612._3
1073
-
                            let totalAmountConverted = $t03950639612._4
1074
-
                            if ((usdtSpent > amt))
1075
-
                                then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
1084
+
                            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1085
+
                            if ((curLocation[locIdxType] != "F"))
1086
+
                                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
1076
1087
 
                                else {
1077
-
                                    let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1078
-
                                    let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1079
-
                                    let rest = if (((amt - usdtSpent) > 0))
1080
-
                                        then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
1081
-
                                        else nil
1082
-
                                    let activitiesAmount = (usdtSpent / 100)
1083
-
                                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1084
-
                                    $Tuple2((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
1088
+
                                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1089
+
                                    let resList = split(currentPack[bpIdxRes], "_")
1090
+
                                    let matList = split(currentPack[bpIdxMat], "_")
1091
+
                                    let $t03953639642 = exchangeResourcesCommon(resList, matList, amounts)
1092
+
                                    let newRes = $t03953639642._1
1093
+
                                    let newMat = $t03953639642._2
1094
+
                                    let usdtSpent = $t03953639642._3
1095
+
                                    let totalAmountConverted = $t03953639642._4
1096
+
                                    if ((usdtSpent > amt))
1097
+
                                        then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
1098
+
                                        else {
1099
+
                                            let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1100
+
                                            let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1101
+
                                            let rest = if (((amt - usdtSpent) > 0))
1102
+
                                                then [ScriptTransfer(i.caller, (amt - usdtSpent), usdtAssetId)]
1103
+
                                                else nil
1104
+
                                            let activitiesAmount = (usdtSpent / 100)
1105
+
                                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1106
+
                                            $Tuple2((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)), $Tuple3(backpackResult, prologResult, statsResult))
1107
+
                                            }
1085
1108
 
                                    }
1086
1109
 
                            }
1087
1110
 
                    }
1088
1111
 
            }
1112
+
        else throw("Strict value is not equal to itself.")
1089
1113
 
    }
1090
1114
 
1091
1115
 
1092
1116
 
1093
1117
 
@Callable(i)
1094
1118
 
func exchangeResourcesDuckDelivery (amounts) = if (!(KS_ALLOW_DELIVERY))
1095
1119
 
    then throw("Delivery feature is turned off!")
1096
1120
 
    else {
1097
1121
 
        let prologResult = prolog()
1098
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1099
-
        if ((size(i.payments) != 1))
1100
-
            then throw("exactly 1 payment must be attached")
1101
-
            else {
1102
-
                let pmt = i.payments[0]
1103
-
                let amt = pmt.amount
1104
-
                if (if (!(isDefined(pmt.assetId)))
1105
-
                    then true
1106
-
                    else (value(pmt.assetId) != usdtAssetId))
1107
-
                    then throw("USDT payments only!")
1122
+
        if ((prologResult == prologResult))
1123
+
            then {
1124
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1125
+
                if ((size(i.payments) != 1))
1126
+
                    then throw("exactly 1 payment must be attached")
1108
1127
 
                    else {
1109
-
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1110
-
                        let resList = split(currentPack[bpIdxRes], "_")
1111
-
                        let matList = split(currentPack[bpIdxMat], "_")
1112
-
                        let $t04112441230 = exchangeResourcesCommon(resList, matList, amounts)
1113
-
                        let newRes = $t04112441230._1
1114
-
                        let newMat = $t04112441230._2
1115
-
                        let usdtSpent = $t04112441230._3
1116
-
                        let totalAmountConverted = $t04112441230._4
1117
-
                        let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1118
-
                        let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1119
-
                            then MIN_USDT_FEE_DELIVERY15
1120
-
                            else feePart
1121
-
                        let usdtSpentWithFee = (usdtSpent + fee)
1122
-
                        if ((usdtSpentWithFee > amt))
1123
-
                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1128
+
                        let pmt = i.payments[0]
1129
+
                        let amt = pmt.amount
1130
+
                        if (if (!(isDefined(pmt.assetId)))
1131
+
                            then true
1132
+
                            else (value(pmt.assetId) != usdtAssetId))
1133
+
                            then throw("USDT payments only!")
1124
1134
 
                            else {
1125
-
                                let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1126
-
                                let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1127
-
                                let rest = if (((amt - usdtSpentWithFee) > 0))
1128
-
                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1129
-
                                    else nil
1130
-
                                let activitiesAmount = (usdtSpent / 100)
1131
-
                                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1132
-
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1133
-
                                $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
1135
+
                                let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1136
+
                                let resList = split(currentPack[bpIdxRes], "_")
1137
+
                                let matList = split(currentPack[bpIdxMat], "_")
1138
+
                                let $t04115741263 = exchangeResourcesCommon(resList, matList, amounts)
1139
+
                                let newRes = $t04115741263._1
1140
+
                                let newMat = $t04115741263._2
1141
+
                                let usdtSpent = $t04115741263._3
1142
+
                                let totalAmountConverted = $t04115741263._4
1143
+
                                let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1144
+
                                let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1145
+
                                    then MIN_USDT_FEE_DELIVERY15
1146
+
                                    else feePart
1147
+
                                let usdtSpentWithFee = (usdtSpent + fee)
1148
+
                                if ((usdtSpentWithFee > amt))
1149
+
                                    then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1150
+
                                    else {
1151
+
                                        let newPack = makeString([currentPack[bpIdxLevel], makeString(newRes, "_"), makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
1152
+
                                        let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1153
+
                                        let rest = if (((amt - usdtSpentWithFee) > 0))
1154
+
                                            then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1155
+
                                            else nil
1156
+
                                        let activitiesAmount = (usdtSpent / 100)
1157
+
                                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1158
+
                                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1159
+
                                        $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
1160
+
                                        }
1134
1161
 
                                }
1135
1162
 
                        }
1136
1163
 
                }
1164
+
            else throw("Strict value is not equal to itself.")
1137
1165
 
        }
1138
1166
 
1139
1167
 
1140
1168
 
1141
1169
 
@Callable(i)
1142
1170
 
func exchangeResourcesLandDelivery (amounts,landAssetId) = if (!(KS_ALLOW_DELIVERY))
1143
1171
 
    then throw("Delivery feature is turned off!")
1144
1172
 
    else {
1145
1173
 
        let prologResult = prolog()
1146
-
        if ((size(i.payments) != 1))
1147
-
            then throw("exactly 1 payment must be attached")
1148
-
            else {
1149
-
                let pmt = i.payments[0]
1150
-
                let amt = pmt.amount
1151
-
                if (if (!(isDefined(pmt.assetId)))
1152
-
                    then true
1153
-
                    else (value(pmt.assetId) != usdtAssetId))
1154
-
                    then throw("USDT payments only!")
1155
-
                    else {
1156
-
                        let user = i.caller
1157
-
                        let addr = toString(user)
1158
-
                        let asset = value(assetInfo(fromBase58String(landAssetId)))
1159
-
                        if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1160
-
                            then throw((("NFT " + asset.name) + " is not staked"))
1161
-
                            else {
1162
-
                                let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1163
-
                                if ((owner != addr))
1164
-
                                    then throw((LANDPREFIX + " is not yours"))
1165
-
                                    else {
1166
-
                                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1167
-
                                        let currentWh = split_4C(wh, ":")
1168
-
                                        let resList = split(currentWh[whIdxRes], "_")
1169
-
                                        let matList = split(currentWh[whIdxMat], "_")
1170
-
                                        let $t04353043636 = exchangeResourcesCommon(resList, matList, amounts)
1171
-
                                        let newRes = $t04353043636._1
1172
-
                                        let newMat = $t04353043636._2
1173
-
                                        let usdtSpent = $t04353043636._3
1174
-
                                        let totalAmountConverted = $t04353043636._4
1175
-
                                        let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1176
-
                                        let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1177
-
                                        let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1178
-
                                        let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1179
-
                                        let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1180
-
                                            then MIN_USDT_FEE_DELIVERY15
1181
-
                                            else feePart
1182
-
                                        let usdtSpentWithFee = (usdtSpent + fee)
1183
-
                                        if ((usdtSpentWithFee > amt))
1184
-
                                            then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1185
-
                                            else {
1186
-
                                                let rest = if (((amt - usdtSpentWithFee) > 0))
1187
-
                                                    then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1188
-
                                                    else nil
1189
-
                                                let activitiesAmount = (usdtSpent / 100)
1190
-
                                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1191
-
                                                $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1192
-
                                                }
1193
-
                                        }
1194
-
                                }
1195
-
                        }
1196
-
                }
1174
+
        if ((prologResult == prologResult))
1175
+
            then if ((size(i.payments) != 1))
1176
+
                then throw("exactly 1 payment must be attached")
1177
+
                else {
1178
+
                    let pmt = i.payments[0]
1179
+
                    let amt = pmt.amount
1180
+
                    if (if (!(isDefined(pmt.assetId)))
1181
+
                        then true
1182
+
                        else (value(pmt.assetId) != usdtAssetId))
1183
+
                        then throw("USDT payments only!")
1184
+
                        else {
1185
+
                            let user = i.caller
1186
+
                            let addr = toString(user)
1187
+
                            let asset = value(assetInfo(fromBase58String(landAssetId)))
1188
+
                            if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1189
+
                                then throw((("NFT " + asset.name) + " is not staked"))
1190
+
                                else {
1191
+
                                    let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1192
+
                                    if ((owner != addr))
1193
+
                                        then throw((LANDPREFIX + " is not yours"))
1194
+
                                        else {
1195
+
                                            let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1196
+
                                            let currentWh = split_4C(wh, ":")
1197
+
                                            let resList = split(currentWh[whIdxRes], "_")
1198
+
                                            let matList = split(currentWh[whIdxMat], "_")
1199
+
                                            let $t04356643672 = exchangeResourcesCommon(resList, matList, amounts)
1200
+
                                            let newRes = $t04356643672._1
1201
+
                                            let newMat = $t04356643672._2
1202
+
                                            let usdtSpent = $t04356643672._3
1203
+
                                            let totalAmountConverted = $t04356643672._4
1204
+
                                            let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1205
+
                                            let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1206
+
                                            let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1207
+
                                            let feePart = fraction(usdtSpent, DELIVERY_FEE15, MULT6)
1208
+
                                            let fee = if ((MIN_USDT_FEE_DELIVERY15 > feePart))
1209
+
                                                then MIN_USDT_FEE_DELIVERY15
1210
+
                                                else feePart
1211
+
                                            let usdtSpentWithFee = (usdtSpent + fee)
1212
+
                                            if ((usdtSpentWithFee > amt))
1213
+
                                                then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
1214
+
                                                else {
1215
+
                                                    let rest = if (((amt - usdtSpentWithFee) > 0))
1216
+
                                                        then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
1217
+
                                                        else nil
1218
+
                                                    let activitiesAmount = (usdtSpent / 100)
1219
+
                                                    let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1220
+
                                                    $Tuple2(((rest :+ ScriptTransfer(restContract, activitiesAmount, usdtAssetId)) :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(whSave, prologResult, statsResult))
1221
+
                                                    }
1222
+
                                            }
1223
+
                                    }
1224
+
                            }
1225
+
                    }
1226
+
            else throw("Strict value is not equal to itself.")
1197
1227
 
        }
1198
1228
 
1199
1229
 
1200
1230
 
1201
1231
 
@Callable(i)
1202
1232
 
func craftGoods (productIdx,quantity) = {
1203
1233
 
    let prologResult = prolog()
1204
-
    if ((size(i.payments) != 1))
1205
-
        then throw("exactly 1 payment must be attached")
1206
-
        else {
1207
-
            let pmt = i.payments[0]
1208
-
            let amt = pmt.amount
1209
-
            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
1210
-
            if ((pmtAssetId != usdtAssetId))
1211
-
                then throw("USDT payments only!")
1212
-
                else if ((amt != MULT6))
1213
-
                    then throw("exactly 1 USDT must be attached as payment")
1214
-
                    else if ((0 >= quantity))
1215
-
                        then throw("Quantity should be positive")
1216
-
                        else {
1217
-
                            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1218
-
                            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1219
-
                            if ((curLocation[locIdxType] != "M"))
1220
-
                                then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
1221
-
                                else {
1222
-
                                    let cont = curLocation[locIdxContinent]
1223
-
                                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1224
-
                                    let matList = split(currentPack[bpIdxMat], "_")
1225
-
                                    if (if ((0 > productIdx))
1226
-
                                        then true
1227
-
                                        else (productIdx >= size(productionMatrix)))
1228
-
                                        then throw(("Unknown product idx=" + toString(productIdx)))
1229
-
                                        else {
1230
-
                                            let recipe = split(productionMatrix[productIdx], "_")
1231
-
                                            if ((size(recipe) != RECIPESIZE))
1232
-
                                                then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
1233
-
                                                else {
1234
-
                                                    let productContIdx = parseIntValue(recipe[rIdxContinent])
1235
-
                                                    if ((continents[productContIdx] != cont))
1236
-
                                                        then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont))
1237
-
                                                        else {
1238
-
                                                            let prodList = if ((currentPack[bpIdxProd] == ""))
1239
-
                                                                then nil
1240
-
                                                                else split_4C(currentPack[bpIdxProd], "_")
1241
-
                                                            func filler (acc,ignoredItem) =                                                             {
1242
-
                                                                let n = acc._2
1243
-
                                                                let xs = if ((size(prodList) > n))
1244
-
                                                                    then prodList[n]
1245
-
                                                                    else "0"
1246
-
                                                                let x = parseIntValue(xs)
1247
-
                                                                let amount = (quantity * PRODUCTPKGSIZE)
1248
-
                                                                let y = if ((n == productIdx))
1249
-
                                                                    then toString((x + amount))
1250
-
                                                                    else xs
1251
-
                                                                $Tuple2((acc._1 :+ y), (n + 1))
1252
-
                                                                }
1234
+
    if ((prologResult == prologResult))
1235
+
        then if ((size(i.payments) != 1))
1236
+
            then throw("exactly 1 payment must be attached")
1237
+
            else {
1238
+
                let pmt = i.payments[0]
1239
+
                let amt = pmt.amount
1240
+
                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
1241
+
                if ((pmtAssetId != usdtAssetId))
1242
+
                    then throw("USDT payments only!")
1243
+
                    else if ((amt != MULT6))
1244
+
                        then throw("exactly 1 USDT must be attached as payment")
1245
+
                        else if ((0 >= quantity))
1246
+
                            then throw("Quantity should be positive")
1247
+
                            else {
1248
+
                                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1249
+
                                let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1250
+
                                if ((curLocation[locIdxType] != "M"))
1251
+
                                    then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
1252
+
                                    else {
1253
+
                                        let cont = curLocation[locIdxContinent]
1254
+
                                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1255
+
                                        let matList = split(currentPack[bpIdxMat], "_")
1256
+
                                        if (if ((0 > productIdx))
1257
+
                                            then true
1258
+
                                            else (productIdx >= size(productionMatrix)))
1259
+
                                            then throw(("Unknown product idx=" + toString(productIdx)))
1260
+
                                            else {
1261
+
                                                let recipe = split(productionMatrix[productIdx], "_")
1262
+
                                                if ((size(recipe) != RECIPESIZE))
1263
+
                                                    then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
1264
+
                                                    else {
1265
+
                                                        let productContIdx = parseIntValue(recipe[rIdxContinent])
1266
+
                                                        if ((continents[productContIdx] != cont))
1267
+
                                                            then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont))
1268
+
                                                            else {
1269
+
                                                                let prodList = if ((currentPack[bpIdxProd] == ""))
1270
+
                                                                    then nil
1271
+
                                                                    else split_4C(currentPack[bpIdxProd], "_")
1272
+
                                                                func filler (acc,ignoredItem) =                                                                 {
1273
+
                                                                    let n = acc._2
1274
+
                                                                    let xs = if ((size(prodList) > n))
1275
+
                                                                        then prodList[n]
1276
+
                                                                        else "0"
1277
+
                                                                    let x = parseIntValue(xs)
1278
+
                                                                    let amount = (quantity * PRODUCTPKGSIZE)
1279
+
                                                                    let y = if ((n == productIdx))
1280
+
                                                                        then toString((x + amount))
1281
+
                                                                        else xs
1282
+
                                                                    $Tuple2((acc._1 :+ y), (n + 1))
1283
+
                                                                    }
1253
1284
 
1254
-
                                                            let bpProd = (                                                            let $l = productionMatrix
1255
-
                                                            let $s = size($l)
1256
-
                                                            let $acc0 = $Tuple2(nil, 0)
1257
-
                                                            func $f0_1 ($a,$i) =                                                             if (($i >= $s))
1258
-
                                                                then $a
1259
-
                                                                else filler($a, $l[$i])
1260
-
1261
-
                                                            func $f0_2 ($a,$i) =                                                             if (($i >= $s))
1262
-
                                                                then $a
1263
-
                                                                else throw("List size exceeds 50")
1264
-
1265
-
                                                            $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
1266
-
                                                            func producer (acc,j) =                                                             {
1267
-
                                                                let needMat = (((parseIntValue(recipe[j]) * MULT5) * quantity) * parseIntValue(recipe[rIdxCoeff]))
1268
-
                                                                let haveMat = parseIntValue(matList[j])
1269
-
                                                                if ((needMat > haveMat))
1270
-
                                                                    then throw(((((((("You have " + fixedPoint(haveMat, 8)) + " of ") + matTypes[j]) + ", but recipe requires ") + fixedPoint(needMat, 8)) + " for quantity ") + toString(quantity)))
1271
-
                                                                    else if ((needMat > 0))
1272
-
                                                                        then $Tuple2((acc._1 :+ toString((haveMat - needMat))), (acc._2 + needMat))
1273
-
                                                                        else $Tuple2((acc._1 :+ matList[j]), acc._2)
1274
-
                                                                }
1275
-
1276
-
                                                            let merged = {
1277
-
                                                                let $l = ITER6
1285
+
                                                                let bpProd = (                                                                let $l = productionMatrix
1278
1286
 
                                                                let $s = size($l)
1279
1287
 
                                                                let $acc0 = $Tuple2(nil, 0)
1280
-
                                                                func $f1_1 ($a,$i) =                                                                 if (($i >= $s))
1288
+
                                                                func $f0_1 ($a,$i) =                                                                 if (($i >= $s))
1281
1289
 
                                                                    then $a
1282
-
                                                                    else producer($a, $l[$i])
1290
+
                                                                    else filler($a, $l[$i])
1283
1291
 
1284
-
                                                                func $f1_2 ($a,$i) =                                                                 if (($i >= $s))
1292
+
                                                                func $f0_2 ($a,$i) =                                                                 if (($i >= $s))
1285
1293
 
                                                                    then $a
1286
-
                                                                    else throw("List size exceeds 6")
1294
+
                                                                    else throw("List size exceeds 50")
1287
1295
 
1288
-
                                                                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
1296
+
                                                                $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
1297
+
                                                                func producer (acc,j) =                                                                 {
1298
+
                                                                    let needMat = (((parseIntValue(recipe[j]) * MULT5) * quantity) * parseIntValue(recipe[rIdxCoeff]))
1299
+
                                                                    let haveMat = parseIntValue(matList[j])
1300
+
                                                                    if ((needMat > haveMat))
1301
+
                                                                        then throw(((((((("You have " + fixedPoint(haveMat, 8)) + " of ") + matTypes[j]) + ", but recipe requires ") + fixedPoint(needMat, 8)) + " for quantity ") + toString(quantity)))
1302
+
                                                                        else if ((needMat > 0))
1303
+
                                                                            then $Tuple2((acc._1 :+ toString((haveMat - needMat))), (acc._2 + needMat))
1304
+
                                                                            else $Tuple2((acc._1 :+ matList[j]), acc._2)
1305
+
                                                                    }
1306
+
1307
+
                                                                let merged = {
1308
+
                                                                    let $l = ITER6
1309
+
                                                                    let $s = size($l)
1310
+
                                                                    let $acc0 = $Tuple2(nil, 0)
1311
+
                                                                    func $f1_1 ($a,$i) =                                                                     if (($i >= $s))
1312
+
                                                                        then $a
1313
+
                                                                        else producer($a, $l[$i])
1314
+
1315
+
                                                                    func $f1_2 ($a,$i) =                                                                     if (($i >= $s))
1316
+
                                                                        then $a
1317
+
                                                                        else throw("List size exceeds 6")
1318
+
1319
+
                                                                    $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
1320
+
                                                                    }
1321
+
                                                                let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._1, "_"), makeString_2C(bpProd, "_")], ":")
1322
+
                                                                let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1323
+
                                                                let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpCraft, merged._2, MULT8)], nil))
1324
+
                                                                $Tuple2(nil, $Tuple3(result, prologResult, statsResult))
1289
1325
 
                                                                }
1290
-
                                                            let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._1, "_"), makeString_2C(bpProd, "_")], ":")
1291
-
                                                            let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
1292
-
                                                            let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpCraft, merged._2, MULT8)], nil))
1293
-
                                                            $Tuple2(nil, $Tuple3(result, prologResult, statsResult))
1294
-
                                                            }
1295
-
                                                    }
1296
-
                                            }
1297
-
                                    }
1298
-
                            }
1299
-
            }
1326
+
                                                        }
1327
+
                                                }
1328
+
                                        }
1329
+
                                }
1330
+
                }
1331
+
        else throw("Strict value is not equal to itself.")
1300
1332
 
    }
1301
1333
 
1302
1334
 
1303
1335
 
1304
1336
 
@Callable(i)
1305
1337
 
func setWarehouseOrder (newOrderStr,landAssetId) = {
1306
1338
 
    let user = i.originCaller
1307
1339
 
    let addr = toString(user)
1308
1340
 
    let result = if ((user != restContract))
1309
1341
 
        then checkBlocked()
1310
1342
 
        else false
1311
1343
 
    let asset = value(assetInfo(fromBase58String(landAssetId)))
1312
1344
 
    if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))
1313
1345
 
        then throw((("NFT " + asset.name) + " is not staked"))
1314
1346
 
        else {
1315
1347
 
            let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1316
1348
 
            if (if ((user != restContract))
1317
1349
 
                then (owner != addr)
1318
1350
 
                else false)
1319
1351
 
                then throw((LANDPREFIX + " is not yours"))
1320
1352
 
                else {
1321
1353
 
                    let newOrder = split_4C(newOrderStr, ":")
1322
1354
 
                    let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1323
1355
 
                    let currentWh = split_4C(wh, ":")
1324
1356
 
                    let loft = split(currentWh[whIdxLOFT], "_")
1325
1357
 
                    let whTotal = parseIntValue(loft[volTotal])
1326
1358
 
                    let ordKey = keyOrderByLand(landAssetId)
1327
1359
 
                    let currentOrd = getOrder(ordKey)
1328
1360
 
                    let z = setInternal(currentWh, currentOrd, newOrder)
1329
1361
 
                    let buyVolSaldo = z._4
1330
1362
 
                    let sellVolSaldo = z._5
1331
1363
 
                    let whOccupied = z._7
1332
1364
 
                    let whLocked = (buyVolSaldo + sellVolSaldo)
1333
1365
 
                    let whFree = ((whTotal - whOccupied) - whLocked)
1334
1366
 
                    if ((0 > whFree))
1335
1367
 
                        then throw((((((("Attempt to reserve " + toString(buyVolSaldo)) + " space for buy orders, and ") + toString(sellVolSaldo)) + " space for sell orders (and occupied=") + toString(whOccupied)) + "), leads to negative free space"))
1336
1368
 
                        else {
1337
1369
 
                            let whStr = makeString_2C([currentWh[whIdxLevels], makeString(z._1, "_"), makeString(z._2, "_"), makeString_2C(z._3, "_"), toString(whLocked)], ":")
1338
1370
 
                            let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1339
1371
 
                            let usdSaldo = z._6
1340
1372
 
                            let actions = if ((usdSaldo > 0))
1341
1373
 
                                then if ((size(i.payments) != 1))
1342
1374
 
                                    then throw("exactly 1 payment must be attached")
1343
1375
 
                                    else {
1344
1376
 
                                        let pmt = i.payments[0]
1345
1377
 
                                        let amt = pmt.amount
1346
1378
 
                                        let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
1347
1379
 
                                        if ((pmtAssetId != usdtAssetId))
1348
1380
 
                                            then throw("USDT payments only!")
1349
1381
 
                                            else if ((amt != usdSaldo))
1350
1382
 
                                                then throw(("Payment needed is " + toString(usdSaldo)))
1351
1383
 
                                                else [StringEntry(ordKey, newOrderStr)]
1352
1384
 
                                        }
1353
1385
 
                                else if ((usdSaldo == 0))
1354
1386
 
                                    then if ((size(i.payments) != 0))
1355
1387
 
                                        then throw("No payments needed")
1356
1388
 
                                        else [StringEntry(ordKey, newOrderStr)]
1357
1389
 
                                    else if ((size(i.payments) != 0))
1358
1390
 
                                        then throw("No payments needed")
1359
1391
 
                                        else [ScriptTransfer(addressFromStringValue(owner), -(usdSaldo), usdtAssetId), StringEntry(ordKey, newOrderStr)]
1360
1392
 
                            $Tuple2(actions, $Tuple2(result, whSave))
1361
1393
 
                            }
1362
1394
 
                    }
1363
1395
 
            }
1364
1396
 
    }
1365
1397
 
1366
1398
 
1367
1399
 
1368
1400
 
@Callable(i)
1369
1401
 
func acceptWarehouseOrder (bpOrderStr,shopLandAssetId,duckAssetId) = {
1370
1402
 
    let prologResult = prolog()
1371
-
    let caller = i.originCaller
1372
-
    let callerAddr = toString(caller)
1373
-
    let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1374
-
    let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION)
1375
-
    let loc = split(value(curLocation), "_")
1376
-
    if ((loc[locIdxType] != "L"))
1377
-
        then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
1378
-
        else if ((stakedDuckAssetId != duckAssetId))
1379
-
            then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId))
1380
-
            else {
1381
-
                let bpKey = keyBackpackByDuck(duckAssetId)
1382
-
                let currentPack = getBackpack(bpKey)
1383
-
                let bpResList = split(currentPack[bpIdxRes], "_")
1384
-
                let bpMatList = split(currentPack[bpIdxMat], "_")
1385
-
                let bpProdList = if ((currentPack[bpIdxProd] == ""))
1386
-
                    then nil
1387
-
                    else split_4C(currentPack[bpIdxProd], "_")
1388
-
                let $t05314853388 = acceptShopOrderCommon(shopLandAssetId, callerAddr, bpOrderStr, bpResList, bpMatList, bpProdList)
1389
-
                let shopAction = $t05314853388._1
1390
-
                let newUserRes = $t05314853388._2
1391
-
                let newUserMat = $t05314853388._3
1392
-
                let newUserProd = $t05314853388._4
1393
-
                let usdWh2BpSaldo = $t05314853388._5
1394
-
                let usdBp2WhSaldo = $t05314853388._6
1395
-
                let xpAmount = $t05314853388._7
1396
-
                let shopLandOwner = $t05314853388._8
1397
-
                let shopWhSave = $t05314853388._9
1398
-
                let accStatsResult = $t05314853388._10
1399
-
                let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, 0)]
1400
-
                let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, 0)
1401
-
                let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1402
-
                let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1403
-
                let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1404
-
                $Tuple2((actions1 ++ actions2), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1405
-
                }
1403
+
    if ((prologResult == prologResult))
1404
+
        then {
1405
+
            let caller = i.originCaller
1406
+
            let callerAddr = toString(caller)
1407
+
            let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1408
+
            let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION)
1409
+
            let loc = split(value(curLocation), "_")
1410
+
            if ((loc[locIdxType] != "L"))
1411
+
                then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
1412
+
                else if ((stakedDuckAssetId != duckAssetId))
1413
+
                    then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId))
1414
+
                    else {
1415
+
                        let bpKey = keyBackpackByDuck(duckAssetId)
1416
+
                        let currentPack = getBackpack(bpKey)
1417
+
                        let bpResList = split(currentPack[bpIdxRes], "_")
1418
+
                        let bpMatList = split(currentPack[bpIdxMat], "_")
1419
+
                        let bpProdList = if ((currentPack[bpIdxProd] == ""))
1420
+
                            then nil
1421
+
                            else split_4C(currentPack[bpIdxProd], "_")
1422
+
                        let $t05319053430 = acceptShopOrderCommon(shopLandAssetId, callerAddr, bpOrderStr, bpResList, bpMatList, bpProdList)
1423
+
                        let shopAction = $t05319053430._1
1424
+
                        let newUserRes = $t05319053430._2
1425
+
                        let newUserMat = $t05319053430._3
1426
+
                        let newUserProd = $t05319053430._4
1427
+
                        let usdWh2BpSaldo = $t05319053430._5
1428
+
                        let usdBp2WhSaldo = $t05319053430._6
1429
+
                        let xpAmount = $t05319053430._7
1430
+
                        let shopLandOwner = $t05319053430._8
1431
+
                        let shopWhSave = $t05319053430._9
1432
+
                        let accStatsResult = $t05319053430._10
1433
+
                        let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, 0)]
1434
+
                        let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, 0)
1435
+
                        let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1436
+
                        let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1437
+
                        let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1438
+
                        $Tuple2((actions1 ++ actions2), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1439
+
                        }
1440
+
            }
1441
+
        else throw("Strict value is not equal to itself.")
1406
1442
 
    }
1407
1443
 
1408
1444
 
1409
1445
 
1410
1446
 
@Callable(i)
1411
1447
 
func acceptShopOrderDuckDelivery (orderStr,shopLandAssetId) = if (!(KS_ALLOW_DELIVERY))
1412
1448
 
    then throw("Delivery feature is turned off!")
1413
1449
 
    else {
1414
1450
 
        let prologResult = prolog()
1415
-
        let caller = i.originCaller
1416
-
        let callerAddr = toString(caller)
1417
-
        let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1418
-
        let bpKey = keyBackpackByDuck(duckAssetId)
1419
-
        let currentPack = getBackpack(bpKey)
1420
-
        let bpResList = split(currentPack[bpIdxRes], "_")
1421
-
        let bpMatList = split(currentPack[bpIdxMat], "_")
1422
-
        let bpProdList = if ((currentPack[bpIdxProd] == ""))
1423
-
            then nil
1424
-
            else split_4C(currentPack[bpIdxProd], "_")
1425
-
        let $t05482755065 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, bpResList, bpMatList, bpProdList)
1426
-
        let shopAction = $t05482755065._1
1427
-
        let newUserRes = $t05482755065._2
1428
-
        let newUserMat = $t05482755065._3
1429
-
        let newUserProd = $t05482755065._4
1430
-
        let usdWh2BpSaldo = $t05482755065._5
1431
-
        let usdBp2WhSaldo = $t05482755065._6
1432
-
        let xpAmount = $t05482755065._7
1433
-
        let shopLandOwner = $t05482755065._8
1434
-
        let shopWhSave = $t05482755065._9
1435
-
        let accStatsResult = $t05482755065._10
1436
-
        let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1437
-
        let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1438
-
            then MIN_USDT_FEE_DELIVERY
1439
-
            else deliveryFeePart
1440
-
        let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1441
-
        let receivedFee = (deliveryFee - spentFee)
1442
-
        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1443
-
        let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1444
-
        let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1445
-
        let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1446
-
        let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1447
-
        let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1448
-
        $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1451
+
        if ((prologResult == prologResult))
1452
+
            then {
1453
+
                let caller = i.originCaller
1454
+
                let callerAddr = toString(caller)
1455
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked")
1456
+
                let bpKey = keyBackpackByDuck(duckAssetId)
1457
+
                let currentPack = getBackpack(bpKey)
1458
+
                let bpResList = split(currentPack[bpIdxRes], "_")
1459
+
                let bpMatList = split(currentPack[bpIdxMat], "_")
1460
+
                let bpProdList = if ((currentPack[bpIdxProd] == ""))
1461
+
                    then nil
1462
+
                    else split_4C(currentPack[bpIdxProd], "_")
1463
+
                let $t05487255110 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, bpResList, bpMatList, bpProdList)
1464
+
                let shopAction = $t05487255110._1
1465
+
                let newUserRes = $t05487255110._2
1466
+
                let newUserMat = $t05487255110._3
1467
+
                let newUserProd = $t05487255110._4
1468
+
                let usdWh2BpSaldo = $t05487255110._5
1469
+
                let usdBp2WhSaldo = $t05487255110._6
1470
+
                let xpAmount = $t05487255110._7
1471
+
                let shopLandOwner = $t05487255110._8
1472
+
                let shopWhSave = $t05487255110._9
1473
+
                let accStatsResult = $t05487255110._10
1474
+
                let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1475
+
                let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1476
+
                    then MIN_USDT_FEE_DELIVERY
1477
+
                    else deliveryFeePart
1478
+
                let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1479
+
                let receivedFee = (deliveryFee - spentFee)
1480
+
                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1481
+
                let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1482
+
                let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1483
+
                let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString_2C(newUserProd, "_")], ":")
1484
+
                let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1485
+
                let duckStatsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpShop, xpAmount, MULT8)], nil))
1486
+
                $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, bpSave, duckStatsResult, accStatsResult))
1487
+
                }
1488
+
            else throw("Strict value is not equal to itself.")
1449
1489
 
        }
1450
1490
 
1451
1491
 
1452
1492
 
1453
1493
 
@Callable(i)
1454
1494
 
func acceptShopOrderLandDelivery (orderStr,shopLandAssetId,myLandAssetId) = if (!(KS_ALLOW_DELIVERY))
1455
1495
 
    then throw("Delivery feature is turned off!")
1456
1496
 
    else {
1457
1497
 
        let prologResult = prolog()
1458
-
        let caller = i.originCaller
1459
-
        let callerAddr = toString(caller)
1460
-
        let asset = value(assetInfo(fromBase58String(myLandAssetId)))
1461
-
        if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(myLandAssetId)))))
1462
-
            then throw((("NFT " + asset.name) + " is not staked"))
1463
-
            else {
1464
-
                let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(myLandAssetId)), (("NFT " + asset.name) + " is orphaned"))
1465
-
                if ((owner != callerAddr))
1466
-
                    then throw((LANDPREFIX + " is not yours"))
1498
+
        if ((prologResult == prologResult))
1499
+
            then {
1500
+
                let caller = i.originCaller
1501
+
                let callerAddr = toString(caller)
1502
+
                let asset = value(assetInfo(fromBase58String(myLandAssetId)))
1503
+
                if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(myLandAssetId)))))
1504
+
                    then throw((("NFT " + asset.name) + " is not staked"))
1467
1505
 
                    else {
1468
-
                        let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [myLandAssetId], nil))
1469
-
                        let currentWh = split_4C(wh, ":")
1470
-
                        let resList = split(currentWh[whIdxRes], "_")
1471
-
                        let matList = split(currentWh[whIdxMat], "_")
1472
-
                        let prodList = if ((currentWh[whIdxProd] == ""))
1473
-
                            then nil
1474
-
                            else split(currentWh[whIdxProd], "_")
1475
-
                        let $t05730457536 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, resList, matList, prodList)
1476
-
                        let shopAction = $t05730457536._1
1477
-
                        let newUserRes = $t05730457536._2
1478
-
                        let newUserMat = $t05730457536._3
1479
-
                        let newUserProd = $t05730457536._4
1480
-
                        let usdWh2BpSaldo = $t05730457536._5
1481
-
                        let usdBp2WhSaldo = $t05730457536._6
1482
-
                        let xpAmount = $t05730457536._7
1483
-
                        let shopLandOwner = $t05730457536._8
1484
-
                        let shopWhSave = $t05730457536._9
1485
-
                        let accStatsResult = $t05730457536._10
1486
-
                        let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1487
-
                        let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1488
-
                            then MIN_USDT_FEE_DELIVERY
1489
-
                            else deliveryFeePart
1490
-
                        let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1491
-
                        let receivedFee = (deliveryFee - spentFee)
1492
-
                        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1493
-
                        let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1494
-
                        let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1495
-
                        let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString(newUserProd, "_"), currentWh[whIdxLOFT]], ":")
1496
-
                        let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, myLandAssetId], nil))
1497
-
                        let statsResult = asInt(invoke(stakingContract, "updateAccStats", [callerAddr, fraction(xpShop, xpAmount, MULT8)], nil))
1498
-
                        $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, whSave, statsResult, accStatsResult))
1506
+
                        let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(myLandAssetId)), (("NFT " + asset.name) + " is orphaned"))
1507
+
                        if ((owner != callerAddr))
1508
+
                            then throw((LANDPREFIX + " is not yours"))
1509
+
                            else {
1510
+
                                let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [myLandAssetId], nil))
1511
+
                                let currentWh = split_4C(wh, ":")
1512
+
                                let resList = split(currentWh[whIdxRes], "_")
1513
+
                                let matList = split(currentWh[whIdxMat], "_")
1514
+
                                let prodList = if ((currentWh[whIdxProd] == ""))
1515
+
                                    then nil
1516
+
                                    else split(currentWh[whIdxProd], "_")
1517
+
                                let $t05735257584 = acceptShopOrderCommon(shopLandAssetId, callerAddr, orderStr, resList, matList, prodList)
1518
+
                                let shopAction = $t05735257584._1
1519
+
                                let newUserRes = $t05735257584._2
1520
+
                                let newUserMat = $t05735257584._3
1521
+
                                let newUserProd = $t05735257584._4
1522
+
                                let usdWh2BpSaldo = $t05735257584._5
1523
+
                                let usdBp2WhSaldo = $t05735257584._6
1524
+
                                let xpAmount = $t05735257584._7
1525
+
                                let shopLandOwner = $t05735257584._8
1526
+
                                let shopWhSave = $t05735257584._9
1527
+
                                let accStatsResult = $t05735257584._10
1528
+
                                let deliveryFeePart = fraction((usdBp2WhSaldo + usdWh2BpSaldo), DELIVERY_FEE, MULT6)
1529
+
                                let deliveryFee = if ((MIN_USDT_FEE_DELIVERY > deliveryFeePart))
1530
+
                                    then MIN_USDT_FEE_DELIVERY
1531
+
                                    else deliveryFeePart
1532
+
                                let spentFee = fraction(deliveryFee, usdBp2WhSaldo, (usdBp2WhSaldo + usdWh2BpSaldo))
1533
+
                                let receivedFee = (deliveryFee - spentFee)
1534
+
                                let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1535
+
                                let actions1 = [shopAction, shop2userActions(usdWh2BpSaldo, callerAddr, receivedFee)]
1536
+
                                let actions2 = user2shopActions(usdBp2WhSaldo, i.payments, shopLandOwner, spentFee)
1537
+
                                let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newUserRes, "_"), makeString(newUserMat, "_"), makeString(newUserProd, "_"), currentWh[whIdxLOFT]], ":")
1538
+
                                let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, myLandAssetId], nil))
1539
+
                                let statsResult = asInt(invoke(stakingContract, "updateAccStats", [callerAddr, fraction(xpShop, xpAmount, MULT8)], nil))
1540
+
                                $Tuple2(((actions1 ++ actions2) :+ IntegerEntry(deliveryFundKey, (fundTotal + deliveryFee))), $Tuple5(prologResult, shopWhSave, whSave, statsResult, accStatsResult))
1541
+
                                }
1499
1542
 
                        }
1500
1543
 
                }
1544
+
            else throw("Strict value is not equal to itself.")
1501
1545
 
        }
1502
1546
 
1503
1547
 
1504
1548
 
1505
1549
 
@Callable(i)
1506
1550
 
func sellProductsToES (amounts) = {
1507
1551
 
    let prologResult = prolog()
1508
-
    if ((size(i.payments) != 0))
1509
-
        then throw("No payments needed")
1510
-
        else {
1511
-
            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1512
-
            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1513
-
            if ((curLocation[locIdxType] != "A"))
1514
-
                then throw(("Duck location type should be Airport, but is " + curLocation[locIdxType]))
1515
-
                else {
1516
-
                    let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1517
-
                    let prodList = if ((currentPack[bpIdxProd] == ""))
1518
-
                        then nil
1519
-
                        else split_4C(currentPack[bpIdxProd], "_")
1520
-
                    let esKey = keyEsWarehouse()
1521
-
                    let existStr = getString(esKey)
1522
-
                    let existAmounts = if (isDefined(existStr))
1523
-
                        then split_4C(value(existStr), "_")
1524
-
                        else nil
1525
-
                    func moveProd (acc,recipeStr) =                     {
1526
-
                        let j = acc._1
1527
-
                        let quantity = if ((size(amounts) > j))
1528
-
                            then amounts[j]
1529
-
                            else 0
1530
-
                        if ((0 > quantity))
1531
-
                            then throw("Quantity cannot be negative")
1532
-
                            else {
1533
-
                                let recipe = split(recipeStr, "_")
1534
-
                                if ((size(recipe) != RECIPESIZE))
1535
-
                                    then throw(("Fatal: unknown recipe: " + recipeStr))
1536
-
                                    else {
1537
-
                                        let maxAmount = (ESMAXPACKAGES * PRODUCTPKGSIZE)
1538
-
                                        let existAmount = if ((size(existAmounts) > j))
1539
-
                                            then parseIntValue(existAmounts[j])
1540
-
                                            else 0
1541
-
                                        let canBuy = (maxAmount - existAmount)
1542
-
                                        if ((quantity > canBuy))
1543
-
                                            then throw(((("Warehouse can buy only " + toString(canBuy)) + " of ") + prodTypes[j]))
1544
-
                                            else {
1545
-
                                                let totalMat = getRecipeMaterials(recipe)
1546
-
                                                let unitPrice = fraction((totalMat * ESBUYCOEF), RESOURCEPRICEMIN, (MULT8 * PRODUCTPKGSIZE))
1547
-
                                                let bpProdAmount = if ((size(prodList) > j))
1548
-
                                                    then parseIntValue(prodList[j])
1549
-
                                                    else 0
1550
-
                                                if ((quantity > bpProdAmount))
1551
-
                                                    then throw(((("You have only " + toString(bpProdAmount)) + " of ") + prodTypes[j]))
1552
-
                                                    else $Tuple5((j + 1), (acc._2 + (unitPrice * quantity)), (acc._3 :+ toString((bpProdAmount - quantity))), (acc._4 :+ toString((existAmount + quantity))), (acc._5 + (totalMat * quantity)))
1553
-
                                                }
1554
-
                                        }
1555
-
                                }
1552
+
    if ((prologResult == prologResult))
1553
+
        then if ((size(i.payments) != 0))
1554
+
            then throw("No payments needed")
1555
+
            else {
1556
+
                let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1557
+
                let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
1558
+
                if ((curLocation[locIdxType] != "A"))
1559
+
                    then throw(("Duck location type should be Airport, but is " + curLocation[locIdxType]))
1560
+
                    else {
1561
+
                        let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1562
+
                        let prodList = if ((currentPack[bpIdxProd] == ""))
1563
+
                            then nil
1564
+
                            else split_4C(currentPack[bpIdxProd], "_")
1565
+
                        let esKey = keyEsWarehouse()
1566
+
                        let existStr = getString(esKey)
1567
+
                        let existAmounts = if (isDefined(existStr))
1568
+
                            then split_4C(value(existStr), "_")
1569
+
                            else nil
1570
+
                        func moveProd (acc,recipeStr) =                         {
1571
+
                            let j = acc._1
1572
+
                            let quantity = if ((size(amounts) > j))
1573
+
                                then amounts[j]
1574
+
                                else 0
1575
+
                            if ((0 > quantity))
1576
+
                                then throw("Quantity cannot be negative")
1577
+
                                else {
1578
+
                                    let recipe = split(recipeStr, "_")
1579
+
                                    if ((size(recipe) != RECIPESIZE))
1580
+
                                        then throw(("Fatal: unknown recipe: " + recipeStr))
1581
+
                                        else {
1582
+
                                            let maxAmount = (ESMAXPACKAGES * PRODUCTPKGSIZE)
1583
+
                                            let existAmount = if ((size(existAmounts) > j))
1584
+
                                                then parseIntValue(existAmounts[j])
1585
+
                                                else 0
1586
+
                                            let canBuy = (maxAmount - existAmount)
1587
+
                                            if ((quantity > canBuy))
1588
+
                                                then throw(((("Warehouse can buy only " + toString(canBuy)) + " of ") + prodTypes[j]))
1589
+
                                                else {
1590
+
                                                    let totalMat = getRecipeMaterials(recipe)
1591
+
                                                    let unitPrice = fraction((totalMat * ESBUYCOEF), RESOURCEPRICEMIN, (MULT8 * PRODUCTPKGSIZE))
1592
+
                                                    let bpProdAmount = if ((size(prodList) > j))
1593
+
                                                        then parseIntValue(prodList[j])
1594
+
                                                        else 0
1595
+
                                                    if ((quantity > bpProdAmount))
1596
+
                                                        then throw(((("You have only " + toString(bpProdAmount)) + " of ") + prodTypes[j]))
1597
+
                                                        else $Tuple5((j + 1), (acc._2 + (unitPrice * quantity)), (acc._3 :+ toString((bpProdAmount - quantity))), (acc._4 :+ toString((existAmount + quantity))), (acc._5 + (totalMat * quantity)))
1598
+
                                                    }
1599
+
                                            }
1600
+
                                    }
1601
+
                            }
1602
+
1603
+
                        let merged = {
1604
+
                            let $l = productionMatrix
1605
+
                            let $s = size($l)
1606
+
                            let $acc0 = $Tuple5(0, 0, nil, nil, 0)
1607
+
                            func $f0_1 ($a,$i) =                             if (($i >= $s))
1608
+
                                then $a
1609
+
                                else moveProd($a, $l[$i])
1610
+
1611
+
                            func $f0_2 ($a,$i) =                             if (($i >= $s))
1612
+
                                then $a
1613
+
                                else throw("List size exceeds 50")
1614
+
1615
+
                            $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)
1616
+
                            }
1617
+
                        let newBpStr = makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString_2C(merged._3, "_")], ":")
1618
+
                        let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1619
+
                        let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpSellToEs, merged._5, (MULT8 * 10))], nil))
1620
+
                        $Tuple2([StringEntry(esKey, makeString_2C(merged._4, "_")), ScriptTransfer(i.caller, merged._2, usdtAssetId)], $Tuple3(bpSave, prologResult, statsResult))
1556
1621
 
                        }
1557
-
1558
-
                    let merged = {
1559
-
                        let $l = productionMatrix
1560
-
                        let $s = size($l)
1561
-
                        let $acc0 = $Tuple5(0, 0, nil, nil, 0)
1562
-
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
1563
-
                            then $a
1564
-
                            else moveProd($a, $l[$i])
1565
-
1566
-
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
1567
-
                            then $a
1568
-
                            else throw("List size exceeds 50")
1569
-
1570
-
                        $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)
1571
-
                        }
1572
-
                    let newBpStr = makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString_2C(merged._3, "_")], ":")
1573
-
                    let bpSave = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil))
1574
-
                    let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpSellToEs, merged._5, (MULT8 * 10))], nil))
1575
-
                    $Tuple2([StringEntry(esKey, makeString_2C(merged._4, "_")), ScriptTransfer(i.caller, merged._2, usdtAssetId)], $Tuple3(bpSave, prologResult, statsResult))
1576
-
                    }
1577
-
            }
1622
+
                }
1623
+
        else throw("Strict value is not equal to itself.")
1578
1624
 
    }
1579
1625
 
1580
1626
 
1581
1627
 
1582
1628
 
@Callable(i)
1583
1629
 
func updateEsStorage (newStorage) = if ((i.caller != stakingContract))
1584
1630
 
    then throw("Permission denied")
1585
1631
 
    else $Tuple2([StringEntry(keyEsWarehouse(), newStorage)], newStorage)
1586
1632
 
1587
1633
 
1588
1634
 
1589
1635
 
@Callable(i)
1590
1636
 
func updateDeliveryLocked (newAmount) = if ((i.caller != stakingContract))
1591
1637
 
    then throw("Permission denied")
1592
1638
 
    else $Tuple2([IntegerEntry(deliveryLockedKey, newAmount)], newAmount)
1593
1639
 
1594
1640
 
1595
1641
 
1596
1642
 
@Callable(i)
1597
1643
 
func sendDeliveryReward (addr) = if ((i.caller != stakingContract))
1598
1644
 
    then throw("Permission denied")
1599
1645
 
    else {
1600
1646
 
        let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
1601
1647
 
        let lockedTotal = valueOrElse(getInteger(deliveryLockedKey), 0)
1602
1648
 
        let acresAmount = (MIN_USDT_FEE_DELIVERY * USDT2ACRES_MULTIPLIER)
1603
1649
 
        let acresResult = invoke(acresContract, "sendAcres", [addr, acresAmount], nil)
1604
1650
 
        $Tuple2([IntegerEntry(deliveryFundKey, (fundTotal - MIN_USDT_FEE_DELIVERY)), IntegerEntry(deliveryLockedKey, (lockedTotal - MIN_USDT_FEE_DELIVERY))], acresResult)
1605
1651
 
        }
1606
1652
 
1607
1653