w8 · tx · 7AL···JKg

tx · 7ALzi2wC8GDNAAek1dKHzwo6FJH5MbWWw29m4W4GqJKg

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.06300000 Waves

2023.10.18 15:03 [2804014] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7ALzi2wC8GDNAAek1dKHzwo6FJH5MbWWw29m4W4GqJKg",
    "fee": 6300000,
    "feeAssetId": null,
    "timestamp": 1697630599159,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "3nxZMiwPaRF3JWxdD45VufmNVd1d3yJNxPc5iDs3KA6Kk5Eig78KLCLSWTZidmFfjnzs3F2U3TYSQQPYvYccCGV5"
    ],
    "script": "base64:BgKVAQgCEgQKAggYEgMKAQgSBAoCERESBAoCCAESAwoBARIFCgMREQgSBgoEEREICBIECgIRERIFCgMREQgSBgoEEREICBIDCgEREgMKARESBAoCEQgSBAoCAQESBQoDAQEIEgYKBAEBCAgSBAoCCAgSBQoDCAgIEgQKAggIEgUKAwgICBIDCgEREgMKAQgSAwoBARIDCgEIagAHeHBUcmFkZQCQTgAHeHBDcmFmdACQTgAKeHBTZWxsVG9FcwCQTgAGeHBTaG9wAJBOAApMQU5EUFJFRklYAgRMQU5EAAZOVU1SRVMABgAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EAEFJFU09VUkNFUFJJQ0VNSU4A1bUCAA1FU01BWFBBQ0tBR0VTAAoACUVTQlVZQ09FRgAEABVNSU5fVVNEVF9GRUVfREVMSVZFUlkA0IYDABdNSU5fVVNEVF9GRUVfREVMSVZFUlkxNQD4yQQAD0NSQUZUX1VTRFRfQ09TVADAhD0AFENSQUZUX0RFTElWRVJZX0NPRUZGAAoAFVVTRFQyQUNSRVNfTVVMVElQTElFUgAKAAhyZXNUeXBlcwkAzAgCAgNPaWwJAMwIAgIDT3JlCQDMCAICBFdvb2QJAMwIAgIEU2FuZAkAzAgCAgRDbGF5CQDMCAICB09yZ2FuaWMFA25pbAAIbWF0VHlwZXMJAMwIAgIERnVlbAkAzAgCAgVNZXRhbAkAzAgCAgVQbGFuawkAzAgCAgVHbGFzcwkAzAgCAgdQbGFzdGljCQDMCAICB1Byb3RlaW4FA25pbAAJcHJvZFR5cGVzCQDMCAICEEZpcnN0IEFpZCBLaXQgTDEJAMwIAgIQRmlyc3QgQWlkIEtpdCBMMgkAzAgCAhBGaXJzdCBBaWQgS2l0IEwzCQDMCAICC0JhY2twYWNrIEwxCQDMCAICC0JhY2twYWNrIEwyCQDMCAICC0JhY2twYWNrIEwzCQDMCAICDkZvb2QgUmF0aW9uIEwxCQDMCAICDkZvb2QgUmF0aW9uIEwyCQDMCAICDkZvb2QgUmF0aW9uIEwzCQDMCAICC0pldCBQYWNrIEwxCQDMCAICC0pldCBQYWNrIEwyCQDMCAICC0pldCBQYWNrIEwzCQDMCAICCVNoaWVsZCBMMQkAzAgCAglTaGllbGQgTDIJAMwIAgIJU2hpZWxkIEwzCQDMCAICB01pbmUgTDEJAMwIAgIHTWluZSBMMgkAzAgCAgdNaW5lIEwzCQDMCAICB1RyYXAgTDEJAMwIAgIHVHJhcCBMMgkAzAgCAgdUcmFwIEwzBQNuaWwACmNvbnRpbmVudHMJAMwIAgIIQW1lcmljYXMJAMwIAgIGRXVyb3BlCQDMCAICBEFzaWEJAMwIAgIGQWZyaWNhCQDMCAICB09jZWFuaWEFA25pbAAJQ09FRkYyTUFUAICt4gQAEHByb2R1Y3Rpb25NYXRyaXgJAMwIAgIlOF84XzhfMTdfMTdfNDJfMTJfMF8zMF8wLDAsMCwwLDAsMCwwXwkAzAgCAiU4XzhfOF8xN18xN180Ml8yNF8wXzYwXzAsMCw1LDIsMCwwLDBfCQDMCAICJzhfOF84XzE3XzE3XzQyXzM2XzBfMTIwXzAsMCwxMCw0LDAsMCwwXwkAzAgCAik4XzE5XzE5XzhfMjdfMTlfMjZfMV8yMF8wLDAsMCwwLDAsMCwwXzAwMQkAzAgCAik4XzE5XzE5XzhfMjdfMTlfNTJfMV80MF8wLDAsMCwwLDAsMCwwXzAwMQkAzAgCAik4XzE5XzE5XzhfMjdfMTlfNzhfMV84MF8wLDAsMCwwLDAsMCwwXzAwMQkAzAgCAiU4XzhfOF84XzhfNjBfMTNfMl8yXzAsMCwwLDAsMCwwLDBfMDExCQDMCAICJThfOF84XzhfOF82MF8yNl8yXzRfMCwwLDAsMCwwLDAsMF8wMTEJAMwIAgIlOF84XzhfOF84XzYwXzM5XzJfOF8wLDAsMCwwLDAsMCwwXzAxMQkAzAgCAikzMF8zMF8zXzE3XzE3XzNfMzBfM18zMF8wLDAsMCwwLDAsMCwwXzExMQkAzAgCAikzMF8zMF8zXzE3XzE3XzNfNjBfM181MF8wLDAsMCwwLDAsMCwwXzExMQkAzAgCAikzMF8zMF8zXzE3XzE3XzNfOTBfM183MF8wLDAsMCwwLDAsMCwwXzExMQkAzAgCAisxOF8xOF8xMF8xOF8xOF8xOF8xMV80XzEwXzAsMCwwLDAsMCwwLDBfMjAxCQDMCAICKzE4XzE4XzEwXzE4XzE4XzE4XzIyXzRfMjBfMCwwLDAsMCwwLDAsMF8yMDEJAMwIAgIrMThfMThfMTBfMThfMThfMThfMzNfNF8zMF8wLDAsMCwwLDAsMCwwXzIwMQkAzAgCAio0XzEzXzIyXzRfMzVfMjJfMjNfMF81MCwxLDBfMCwwLDAsMCwwLDAsMF8JAMwIAgIqNF8xM18yMl80XzM1XzIyXzQ2XzBfNTAsMSwxXzAsMiw1LDAsMCwwLDBfCQDMCAICKzRfMTNfMjJfNF8zNV8yMl82OV8wXzUwLDIsMV8wLDUsMTAsMCwwLDAsMF8JAMwIAgIqNV8yNV80MF81XzEwXzE1XzIwXzFfMzAsMSwxXzAsMCwwLDAsMCwwLDBfCQDMCAICKjVfMjVfNDBfNV8xMF8xNV80MF8xXzMwLDEsMl8yLDEsMywwLDAsMCwwXwkAzAgCAio1XzI1XzQwXzVfMTBfMTVfNjBfMV8zMCwxLDNfNSwyLDgsMCwwLDAsMF8FA25pbAAJcklkeENvZWZmAAYADXJJZHhDb250aW5lbnQABwAKUkVDSVBFU0laRQALAA5QUk9EVUNUUEtHU0laRQAKAAt3aElkeExldmVscwAAAAh3aElkeFJlcwABAAh3aElkeE1hdAACAAl3aElkeFByb2QAAwAJd2hJZHhMT0ZUAAQACXZvbExvY2tlZAAAAAh2b2xUb3RhbAADAApicElkeExldmVsAAAACGJwSWR4UmVzAAEACGJwSWR4TWF0AAIACWJwSWR4UHJvZAADAA9sb2NJZHhDb250aW5lbnQAAAAKbG9jSWR4VHlwZQABAAhsb2NJZHhJZAACARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBB2Fzc2V0SWQJAKwCAgIDbm9fBQdhc3NldElkARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQdhc3NldElkCQCsAgICA3N0XwUHYXNzZXRJZAEPa2V5QWRkcmVzc1JlZkJ5AQRhZGRyCQCsAgICCWFjY1JlZkJ5XwUEYWRkcgEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQBDmtleU9yZGVyQnlMYW5kAQtsYW5kQXNzZXRJZAkArAICAgpsYW5kT3JkZXJfBQtsYW5kQXNzZXRJZAEOa2V5RXNXYXJlaG91c2UAAhplbWVyZ2VuY3lXYXJlaG91c2VQcm9kdWN0cwAPZGVsaXZlcnlGdW5kS2V5AgxkZWxpdmVyeUZ1bmQAEWRlbGl2ZXJ5TG9ja2VkS2V5Ag5kZWxpdmVyeUxvY2tlZAESZ2V0UmVjaXBlTWF0ZXJpYWxzAQZyZWNpcGUJAGgCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBQlySWR4Q29lZmYFCUNPRUZGMk1BVAARS1NfQUxMT1dfREVMSVZFUlkGAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4AA1NFUAICX18ABU1VTFQ1AKCNBgAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAAZNVUxUMTAAgMivoCUADk1JTlNIT1BQQVlNRU5UAKCNBgAFSVRFUjYJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAFElkeENmZ0ludmVzdEZ1bmREYXBwAAYAD0lkeENmZ0FjcmVzRGFwcAAIAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwABJpbnZlc3RGdW5kQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRRJZHhDZmdJbnZlc3RGdW5kRGFwcAANYWNyZXNDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFD0lkeENmZ0FjcmVzRGFwcAEIYXNTdHJpbmcBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwBQFzCQACAQIYZmFpbCB0byBjYXN0IGludG8gU3RyaW5nAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBCmtleUJsb2NrZWQAAhBjb250cmFjdHNCbG9ja2VkAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04EB2xvd1BhcnQJAKQDAQkAagIFA3ZhbAUGdGVuUG93BAZ6ZXJvZXMJALACAgkApAMBBQZ0ZW5Qb3cJAGQCAAEJALECAQUHbG93UGFydAkArAICCQCsAgIJAKwCAgkApAMBCQBpAgUDdmFsBQZ0ZW5Qb3cCAS4FBnplcm9lcwUHbG93UGFydAATRkFDVE9SWU1BWFdBUkVIT1VTRQCAyK+gJQAOU0VMTE1VTFRJUExJRVIAyAEADUJVWU1VTFRJUExJRVIArAIACkFVQ1RJT05GRUUAkE4ADERFTElWRVJZX0ZFRQCQTgAOREVMSVZFUllfRkVFMTUAmHUBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIJZmFjdG9yeUlkB3Jlc1R5cGUJAKwCAgkArAICCQCsAgICG2ZhY3RvcnlXaEJ5Q29udGluZW50QW5kUmVzXwUJZmFjdG9yeUlkAgFfCQCkAwEFB3Jlc1R5cGUACW9yZElkeFJlcwAAAAlvcmRJZHhNYXQAAQAKb3JkSWR4UHJvZAACAQhnZXRPcmRlcgEGb3JkS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUGb3JkS2V5AjAwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDowQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDoCAToJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQlvcmRJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQlvcmRJZHhSZXMCFzBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUJb3JkSWR4TWF0AgFfBQZOVU1SRVMJAJEDAgUBcAUJb3JkSWR4TWF0AhcwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMAkAzAgCCQCRAwIFAXAFCm9yZElkeFByb2QFA25pbAEIdG9Wb2x1bWUDBmFtb3VudAdwa2dTaXplCWlzUHJvZHVjdAMFCWlzUHJvZHVjdAQEcGtncwMJAGcCBQZhbW91bnQAAAkAaQIJAGUCCQBkAgUGYW1vdW50BQdwa2dTaXplAAEFB3BrZ1NpemUJAQEtAQkAaQIJAGUCCQBkAgkBAS0BBQZhbW91bnQFB3BrZ1NpemUAAQUHcGtnU2l6ZQkAaAIFBHBrZ3MFBU1VTFQ4BQZhbW91bnQBDHNlbGxJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2R0UmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgUOU0VMTE1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBkAgkAaAIAZAUCdzAJAGgCADIFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkdFJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZHRSZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZHRSZWNlaXZlZAELYnV5SW50ZXJuYWwEBWxvY0lkB21hdFR5cGUGYW1vdW50CG1heFByaWNlBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQdtYXRUeXBlBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABAJtMQMJAGYCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAlwMBCQDMCAIFBmFtb3VudAkAzAgCCQBlAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFA25pbAAABAJtMAkAlwMBCQDMCAIFAncwCQDMCAIJAGUCBQZhbW91bnQFAm0xBQNuaWwEAW0JAGQCBQJtMAUCbTEEBXcwbWluCQCXAwEJAMwIAgUCdzAJAMwIAgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUDbmlsBAl1c2R0U3BlbnQJAGQCCQBrAwUCbTAJAGUCCQBoAgUNQlVZTVVMVElQTElFUgUQUkVTT1VSQ0VQUklDRU1JTgkAawMJAGUCCQBoAgBkBQV3MG1pbgkAaAIAMgUCbTAFEFJFU09VUkNFUFJJQ0VNSU4FE0ZBQ1RPUllNQVhXQVJFSE9VU0UFBk1VTFQxMAkAawMFAm0xCQBoAgACBRBSRVNPVVJDRVBSSUNFTUlOBQVNVUxUOAQGbWF4MTAxCQBkAgUIbWF4UHJpY2UJAGkCBQhtYXhQcmljZQBkAwkAZgIJAGgCBQl1c2R0U3BlbnQFBU1VTFQ4CQBoAgUGbWF4MTAxBQFtCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BY3R1YWwgcHJpY2UgPSAJAKQDAQUJdXNkdFNwZW50AgMgLyAJAKQDAQUBbQIOID4gbWF4UHJpY2UgPSAJAKQDAQUIbWF4UHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCG1hdFR5cGVzBQdtYXRUeXBlAgEpCQCVCgMJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZQIFAncwBQFtBQl1c2R0U3BlbnQFAW0BC2dldEJhY2twYWNrAQVicEtleQQBcAkAvAkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAUFYnBLZXkCGjA6MF8wXzBfMF8wXzA6MF8wXzBfMF8wXzA6AgE6CQDMCAIJAKQDAQkBC3ZhbHVlT3JFbHNlAgkAtgkBCQCRAwIFAXAFCmJwSWR4TGV2ZWwAAAkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCGJwSWR4UmVzAgFfBQZOVU1SRVMJAJEDAgUBcAUIYnBJZHhSZXMCCzBfMF8wXzBfMF8wCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhNYXQCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeE1hdAILMF8wXzBfMF8wXzAJAMwIAgkAkQMCBQFwBQlicElkeFByb2QFA25pbAEMY2hlY2tCbG9ja2VkAAMJAQt2YWx1ZU9yRWxzZQIJAJsIAgUPc3Rha2luZ0NvbnRyYWN0CQEKa2V5QmxvY2tlZAAHCQACAQIfQ29udHJhY3RzIGFyZSB1bmRlciBtYWludGVuYW5jZQUEdW5pdAEGcHJvbG9nAAkBBWFzSW50AQkA/QcEBQ9zdGFraW5nQ29udHJhY3QCCnNhdmVMYXN0VHgFA25pbAUDbmlsAQlzZXRDb21tb24CA2FjYw9pZ25vcmVkSXRlcmF0b3IEAWoIBQNhY2MCXzEEBGl0ZW0DCQBmAgkAkAMBCAUDYWNjA18xMAUBagkAkQMCCAUDYWNjA18xMAUBagIDMEAwBAZpc1Byb2QIBQNhY2MCXzgECWl0ZW1QYXJ0cwkAtQkCBQRpdGVtAgFAAwkBAiE9AgkAkAMBBQlpdGVtUGFydHMAAgkAAgECLkluY29ycmVjdCBvcmRlciBmb3JtYXQsIHNob3VsZCBiZSBhbW91bnRAcHJpY2UECG5ld09yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJaXRlbVBhcnRzAAAECG5ld09yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJaXRlbVBhcnRzAAEECW5ld09yZFVzZAMFBmlzUHJvZAkAaAIFCG5ld09yZEFtBQhuZXdPcmRQcgkAawMFCG5ld09yZEFtBQhuZXdPcmRQcgUFTVVMVDgECW5ld09yZFZvbAkBCHRvVm9sdW1lAwUIbmV3T3JkQW0FDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QEBndoSW5pdAMJAGYCCQCQAwEIBQNhY2MCXzYFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUDYWNjAl82BQFqAAAEC2N1ck9yZFBhcnRzCQC1CQIDCQBmAgkAkAMBCAUDYWNjAl83BQFqCQCRAwIIBQNhY2MCXzcFAWoCAzBAMAIBQAQIY3VyT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwAABAhjdXJPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFC2N1ck9yZFBhcnRzAAEDAwkAZgIAAAUIY3VyT3JkUHIGCQBmAgAABQhuZXdPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAljdXJPcmRVc2QDBQZpc1Byb2QJAGgCBQhjdXJPcmRBbQUIY3VyT3JkUHIJAGsDBQhjdXJPcmRBbQUIY3VyT3JkUHIFBU1VTFQ4AwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAnAoKCQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUGd2hJbml0CAUDYWNjAl8zCAUDYWNjAl80CQBlAggFA2FjYwJfNQUJY3VyT3JkVXNkCAUDYWNjAl82CAUDYWNjAl83BQZpc1Byb2QJAGQCCAUDYWNjAl85CQEIdG9Wb2x1bWUDBQZ3aEluaXQFDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwCQCcCgoJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgUGd2hJbml0BQhjdXJPcmRBbQgFA2FjYwJfMwgFA2FjYwJfNAgFA2FjYwJfNQgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQBkAggFA2FjYwJfOQkBCHRvVm9sdW1lAwkAZQIFBndoSW5pdAUIY3VyT3JkQW0FDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwAwkAZgIFCG5ld09yZEFtAAADCQBmAgAABQhjdXJPcmRBbQkAnAoKCQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFBndoSW5pdAUIY3VyT3JkQW0JAGQCCAUDYWNjAl8zBQluZXdPcmRWb2wIBQNhY2MCXzQJAGQCCAUDYWNjAl81BQluZXdPcmRVc2QIBQNhY2MCXzYIBQNhY2MCXzcFBmlzUHJvZAkBCHRvVm9sdW1lAwkAZQIFBndoSW5pdAUIY3VyT3JkQW0FDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwCQCcCgoJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQZ3aEluaXQJAGQCCAUDYWNjAl8zBQluZXdPcmRWb2wIBQNhY2MCXzQJAGUCCQBkAggFA2FjYwJfNQUJbmV3T3JkVXNkBQljdXJPcmRVc2QIBQNhY2MCXzYIBQNhY2MCXzcFBmlzUHJvZAkBCHRvVm9sdW1lAwUGd2hJbml0BQ5QUk9EVUNUUEtHU0laRQUGaXNQcm9kCAUDYWNjA18xMAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGUCBQhjdXJPcmRBbQUIbmV3T3JkQW0DCQBmAgAACQBlAgUGd2hJbml0BQZhbURpZmYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQUGYW1EaWZmAhogZnJvbSB3YXJlaG91c2UsIGJ1dCBvbmx5IAkApAMBBQZ3aEluaXQCCiBhdmFpbGFibGUJAJwKCgkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQZ3aEluaXQFBmFtRGlmZggFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAgFA2FjYwJfNQgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQEIdG9Wb2x1bWUDCQBlAgUGd2hJbml0BQZhbURpZmYFDlBST0RVQ1RQS0dTSVpFBQZpc1Byb2QIBQNhY2MDXzEwAwkAZgIAAAkAZAIFBndoSW5pdAUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUGd2hJbml0AgogYXZhaWxhYmxlCQCcCgoJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUGd2hJbml0BQhuZXdPcmRBbQgFA2FjYwJfMwkAZQIIBQNhY2MCXzQFCW5ld09yZFZvbAkAZQIIBQNhY2MCXzUFCWN1ck9yZFVzZAgFA2FjYwJfNggFA2FjYwJfNwUGaXNQcm9kCQEIdG9Wb2x1bWUDCQBkAgUGd2hJbml0BQhuZXdPcmRBbQUOUFJPRFVDVFBLR1NJWkUFBmlzUHJvZAgFA2FjYwNfMTABC3NldEludGVybmFsAwljdXJyZW50V2gKY3VycmVudE9yZAZuZXdPcmQECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALwJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQNY3VycmVudE9yZFJlcwkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeFJlcwIBXwQNY3VycmVudE9yZE1hdAkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeE1hdAIBXwQOY3VycmVudE9yZFByb2QDCQAAAgkAkQMCBQpjdXJyZW50T3JkBQpvcmRJZHhQcm9kAgAFA25pbAkAvAkCCQCRAwIFCmN1cnJlbnRPcmQFCm9yZElkeFByb2QCAV8DCQECIT0CCQCQAwEFBm5ld09yZAADCQACAQIzbmV3T3JkZXJTdHIgc2hvdWxkIGNvbnRhaW4gZXhhY3RseSAyICc6JyBzZXBhcmF0b3JzBAhyZXNQYXJ0cwkAtQkCCQCRAwIFBm5ld09yZAAAAgFfBAhtYXRQYXJ0cwkAtQkCCQCRAwIFBm5ld09yZAABAgFfBAlwcm9kUGFydHMDCQAAAgkAkQMCBQZuZXdPcmQAAgIABQNuaWwJALwJAgkAkQMCBQZuZXdPcmQAAgIBXwMJAQIhPQIJAJADAQUIcmVzUGFydHMFBk5VTVJFUwkAAgECIEFsbCA2IHJlc291cmNlcyBzaG91bGQgYmUgcGFzc2VkAwkBAiE9AgkAkAMBBQhtYXRQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgbWF0ZXJpYWxzIHNob3VsZCBiZSBwYXNzZWQEAXIKAAIkbAUIcmVzVHlwZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCcCgoAAAUDbmlsAAAAAAAABQljdXJyV2hSZXMFDWN1cnJlbnRPcmRSZXMHAAAFCHJlc1BhcnRzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlzZXRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEAW0KAAIkbAUIbWF0VHlwZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCcCgoAAAUDbmlsCAUBcgJfMwgFAXICXzQIBQFyAl81BQljdXJyV2hNYXQFDWN1cnJlbnRPcmRNYXQHCAUBcgJfOQUIbWF0UGFydHMKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBcAoAAiRsBQlwcm9kVHlwZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCcCgoAAAUDbmlsCAUBbQJfMwgFAW0CXzQIBQFtAl81BQpjdXJyV2hQcm9kBQ5jdXJyZW50T3JkUHJvZAYIBQFtAl85BQlwcm9kUGFydHMKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCXNldENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjJfMgIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyCQCZCgcIBQFyAl8yCAUBbQJfMggFAXACXzIIBQFwAl8zCAUBcAJfNAgFAXACXzUIBQFwAl85AQxhY2NlcHRDb21tb24CA2FjYwlicE9yZEl0ZW0EAWoIBQNhY2MCXzcEBmlzUHJvZAgFA2FjYwNfMTIECmJwT3JkUGFydHMJALUJAgUJYnBPcmRJdGVtAgFAAwkBAiE9AgkAkAMBBQpicE9yZFBhcnRzAAIJAAIBAi5JbmNvcnJlY3Qgb3JkZXIgZm9ybWF0LCBzaG91bGQgYmUgYW1vdW50QHByaWNlBAdicE9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKYnBPcmRQYXJ0cwAABAdicE9yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKYnBPcmRQYXJ0cwABAwkAZgIAAAUHYnBPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAhicE9yZFVzZAMFBmlzUHJvZAkAaAIFB2JwT3JkQW0FB2JwT3JkUHIJAGsDBQdicE9yZEFtBQdicE9yZFByBQVNVUxUOAQGYnBJbml0AwkAZgIJAJADAQgFA2FjYwJfOAUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIIBQNhY2MCXzgFAWoAAAQGd2hJbml0AwkAZgIJAJADAQgFA2FjYwJfOQUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIIBQNhY2MCXzkFAWoAAAQJd2hPcmRJbml0AwkAZgIJAJADAQgFA2FjYwNfMTAFAWoJAJEDAggFA2FjYwNfMTAFAWoCAzBAMAQKd2hPcmRQYXJ0cwkAtQkCBQl3aE9yZEluaXQCAUAEB3doT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAAEB3doT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAEDAwkBAiE9AgUHYnBPcmRBbQAACQECIT0CBQdicE9yZFByBQd3aE9yZFByBwkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAgpQcmljZXMgb2YgCQCRAwIIBQNhY2MDXzExBQFqAhcgZG9uJ3QgbWF0Y2ghIFdIIHByaWNlPQkApAMBBQd3aE9yZFByAg0sIHlvdXIgcHJpY2U9CQCkAwEFB2JwT3JkUHIECHdoT3JkVXNkAwUGaXNQcm9kCQBoAgUHd2hPcmRBbQUHd2hPcmRQcgkAawMFB3doT3JkQW0FB3doT3JkUHIFBU1VTFQ4BAhkZWx0YVZvbAkBCHRvVm9sdW1lAwUHYnBPcmRBbQUOUFJPRFVDVFBLR1NJWkUFBmlzUHJvZAMJAAACBQdicE9yZEFtAAAJAJ8KDQkAzQgCCAUDYWNjAl8xCQCkAwEFBndoSW5pdAkAzQgCCAUDYWNjAl8yBQl3aE9yZEluaXQJAM0IAggFA2FjYwJfMwkApAMBBQZicEluaXQIBQNhY2MCXzQIBQNhY2MCXzUIBQNhY2MCXzYJAGQCCAUDYWNjAl83AAEIBQNhY2MCXzgIBQNhY2MCXzkIBQNhY2MDXzEwCAUDYWNjA18xMQUGaXNQcm9kCAUDYWNjA18xMwMJAGYCBQdicE9yZEFtAAADCQBmAgAABQd3aE9yZEFtAwkAZgIFB2JwT3JkQW0JAQEtAQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BdHRlbXB0IHRvIGJ1eSAJAKQDAQUHYnBPcmRBbQIEIG9mIAkAkQMCCAUDYWNjA18xMQUBagIbLCBidXQgd2FyZWhvdXNlIG9ubHkgc2VsbHMgCQCkAwEJAQEtAQUHd2hPcmRBbQkAnwoNCQDNCAIIBQNhY2MCXzEJAKQDAQUGd2hJbml0CQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUGYnBJbml0BQdicE9yZEFtCQBkAggFA2FjYwJfNAUIZGVsdGFWb2wIBQNhY2MCXzUJAGQCCAUDYWNjAl82BQhicE9yZFVzZAkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExBQZpc1Byb2QJAGQCCAUDYWNjA18xMwMFBmlzUHJvZAkAaAIFB2JwT3JkQW0FBU1VTFQ4BQdicE9yZEFtCQACAQkArAICCQCsAgICD0F0dGVtcHQgdG8gYnV5IAkAkQMCCAUDYWNjA18xMQUBagIgIHdoaWxlIHdhcmVob3VzZSBkb2Vzbid0IHNlbGwgaXQDCQBmAgUHd2hPcmRBbQAAAwkAZgIJAQEtAQUHYnBPcmRBbQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCkAwEJAQEtAQUHYnBPcmRBbQIEIG9mIAkAkQMCCAUDYWNjA18xMQUBagIaLCBidXQgd2FyZWhvdXNlIG9ubHkgYnV5cyAJAKQDAQUHd2hPcmRBbQMJAGYCCQEBLQEFB2JwT3JkQW0FBmJwSW5pdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCkAwEJAQEtAQUHYnBPcmRBbQIULCBidXQgeW91IG9ubHkgaGF2ZSAJAKQDAQUGYnBJbml0AgQgb2YgCQCRAwIIBQNhY2MDXzExBQFqCQCfCg0JAM0IAggFA2FjYwJfMQkApAMBCQBlAgUGd2hJbml0BQdicE9yZEFtCQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUGYnBJbml0BQdicE9yZEFtCQBlAggFA2FjYwJfNAUIZGVsdGFWb2wJAGUCCAUDYWNjAl81BQhicE9yZFVzZAgFA2FjYwJfNgkAZAIIBQNhY2MCXzcAAQgFA2FjYwJfOAgFA2FjYwJfOQgFA2FjYwNfMTAIBQNhY2MDXzExBQZpc1Byb2QJAGUCCAUDYWNjA18xMwMFBmlzUHJvZAkAaAIFB2JwT3JkQW0FBU1VTFQ4BQdicE9yZEFtCQACAQkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAJEDAggFA2FjYwNfMTEFAWoCHyB3aGlsZSB3YXJlaG91c2UgZG9lc24ndCBidXkgaXQBE3NlbGxSZXNvdXJjZXNDb21tb24EB3Jlc0xpc3QMZmFjdG9yeUxvY0lkB2Ftb3VudHMJbWluUHJpY2VzCgEFYWRkZXICA2FjYwFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCFCwgYnV0IHRyaWVkIHRvIHNlbGwgCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJVlvdSB0cmllZCB0byBzZWxsIG5lZ2F0aXZlIGFtb3VudCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCAjogCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCCQCRAwIFB2Ftb3VudHMFAWoAAAQBYgkBDHNlbGxJbnRlcm5hbAQFDGZhY3RvcnlMb2NJZAUBagkAkQMCBQdhbW91bnRzBQFqCQCRAwIFCW1pblByaWNlcwUBagkAlgoECQDNCAIIBQNhY2MCXzEIBQFiAl8xCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQFqCQCRAwIFB2Ftb3VudHMFAWoJAGQCCAUDYWNjAl8zCAUBYgJfMgkAZAIIBQNhY2MCXzQJAJEDAgUHYW1vdW50cwUBagkAlgoECAUDYWNjAl8xCQDNCAIIBQNhY2MCXzIJAJEDAgUHcmVzTGlzdAUBaggFA2FjYwJfMwgFA2FjYwJfNAoAAiRsBQVJVEVSNgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQNuaWwAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgESYnV5TWF0ZXJpYWxzQ29tbW9uBAdtYXRMaXN0DGZhY3RvcnlMb2NJZAdhbW91bnRzCW1heFByaWNlcwoBCG1VcGRhdGVyAgNhY2MBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJFlvdSB0cmllZCB0byBidXkgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhtYXRUeXBlcwUBagICOiAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagAABAFiCQELYnV5SW50ZXJuYWwEBQxmYWN0b3J5TG9jSWQFAWoJAJEDAgUHYW1vdW50cwUBagkAkQMCBQltYXhQcmljZXMFAWoJAJYKBAkAzQgCCAUDYWNjAl8xCAUBYgJfMQkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHbWF0TGlzdAUBaggFAWICXzMJAGQCCAUDYWNjAl8zCAUBYgJfMgkAZAIIBQNhY2MCXzQJAJEDAgUHYW1vdW50cwUBagkAlgoECAUDYWNjAl8xCQDNCAIIBQNhY2MCXzIJAJEDAgUHbWF0TGlzdAUBaggFA2FjYwJfMwgFA2FjYwJfNAoAAiRsBQVJVEVSNgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQNuaWwAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhtVXBkYXRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgEXZXhjaGFuZ2VSZXNvdXJjZXNDb21tb24DB3Jlc0xpc3QHbWF0TGlzdAdhbW91bnRzCgEJZXhjaGFuZ2VyAgNhY2MBagQDYW1qCQCRAwIFB2Ftb3VudHMFAWoDCQBmAgUDYW1qCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAglZb3UgaGF2ZSAJAJEDAgUHcmVzTGlzdAUBagIEIG9mIAkAkQMCBQhyZXNUeXBlcwUBagIYLCBidXQgdHJpZWQgdG8gZXhjaGFuZ2UgCQCkAwEFA2FtagMJAGYCAAAFA2FtagkAAgEJAKwCAgkArAICCQCsAgICKVlvdSB0cmllZCB0byBleGNoYW5nZSBuZWdhdGl2ZSBhbW91bnQgb2YgCQCRAwIFCHJlc1R5cGVzBQFqAgI6IAkApAMBBQNhbWoDCQBmAgUDYW1qAAAJAJYKBAkAzQgCCAUDYWNjAl8xCQCkAwEJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBagUDYW1qCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqBQNhbWoJAGQCCAUDYWNjAl8zCQBrAwUDYW1qBRBSRVNPVVJDRVBSSUNFTUlOBQVNVUxUOAkAZAIIBQNhY2MCXzQFA2FtagkAlgoECQDNCAIIBQNhY2MCXzEJAJEDAgUHcmVzTGlzdAUBagkAzQgCCAUDYWNjAl8yCQCRAwIFB21hdExpc3QFAWoIBQNhY2MCXzMIBQNhY2MCXzQKAAIkbAUFSVRFUjYKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAUDbmlsAAAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJZXhjaGFuZ2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGARBzaG9wMnVzZXJBY3Rpb25zAw11c2RXaDJCcFNhbGRvCmNhbGxlckFkZHILcmVjZWl2ZWRGZWUDCQBmAgUNdXNkV2gyQnBTYWxkbwAABAt1c2RXaDJCcEZlZQkAawMFDXVzZFdoMkJwU2FsZG8FCkFVQ1RJT05GRUUFBU1VTFQ2AwkAZwIFC3JlY2VpdmVkRmVlCQBlAgUNdXNkV2gyQnBTYWxkbwkAaAIAAwULdXNkV2gyQnBGZWUJAAIBCQCsAgICK1RoaXMgdHJhZGUgZG9lcyBub3QgY292ZXIgZGVsaXZlcnkgY29zdCBvZiAJAQpmaXhlZFBvaW50AgULcmVjZWl2ZWRGZWUABgQIcmVmQnlLZXkJAQ9rZXlBZGRyZXNzUmVmQnkBBQpjYWxsZXJBZGRyBAVyZWZCeQkAnQgCBQ9zdGFraW5nQ29udHJhY3QFCHJlZkJ5S2V5BAZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCmNhbGxlckFkZHIJAM0IAgkAzQgCAwkBCWlzRGVmaW5lZAEFBXJlZkJ5CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEFBXJlZkJ5BQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIJAGUCCQBlAgUNdXNkV2gyQnBTYWxkbwkAaAIAAwULdXNkV2gyQnBGZWUFC3JlY2VpdmVkRmVlBQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BQt1c2RXaDJCcEZlZQULdXNkdEFzc2V0SWQFA25pbAEQdXNlcjJzaG9wQWN0aW9ucwQNdXNkQnAyV2hTYWxkbwRwbXRzDXNob3BMYW5kT3duZXIIc3BlbnRGZWUDCQBmAgUNdXNkQnAyV2hTYWxkbwAAAwkBAiE9AgkAkAMBBQRwbXRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAgUEcG10cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBBB1c2R0U3BlbnRXaXRoRmVlCQBkAgUNdXNkQnAyV2hTYWxkbwUIc3BlbnRGZWUDCQECIT0CBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQ11c2RCcDJXaFNhbGRvAAYCASsJAQpmaXhlZFBvaW50AgUIc3BlbnRGZWUABgIOKGRlbGl2ZXJ5IGZlZSkDCQBmAgUOTUlOU0hPUFBBWU1FTlQFDXVzZEJwMldoU2FsZG8JAAIBCQCsAgICEk1pbiBzaG9wIHRyYWRlIGlzIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGBAt1c2RCcDJXaEZlZQkAawMFDXVzZEJwMldoU2FsZG8FCkFVQ1RJT05GRUUFBU1VTFQ2BAhyZWZCeUtleQkBD2tleUFkZHJlc3NSZWZCeQEFDXNob3BMYW5kT3duZXIEBXJlZkJ5CQCdCAIFD3N0YWtpbmdDb250cmFjdAUIcmVmQnlLZXkJAM0IAgkAzQgCAwkBCWlzRGVmaW5lZAEFBXJlZkJ5CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEFBXJlZkJ5BQt1c2RCcDJXaEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQ1zaG9wTGFuZE93bmVyCQBlAgUNdXNkQnAyV2hTYWxkbwkAaAIAAwULdXNkQnAyV2hGZWUFC3VzZHRBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFC3VzZEJwMldoRmVlBQt1c2R0QXNzZXRJZAMJAQIhPQIJAJADAQUEcG10cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkBQNuaWwBFWFjY2VwdFNob3BPcmRlckNvbW1vbgYPc2hvcExhbmRBc3NldElkCmNhbGxlckFkZHIKYnBPcmRlclN0cglicFJlc0xpc3QJYnBNYXRMaXN0CmJwUHJvZExpc3QECWxhbmRBc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFD3Nob3BMYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFD3Nob3BMYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUJbGFuZEFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBA1zaG9wTGFuZE93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQUPc2hvcExhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFCWxhbmRBc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQAAAgUNc2hvcExhbmRPd25lcgUKY2FsbGVyQWRkcgkAAgECHllvdSBjYW5ub3QgdHJhZGUgd2l0aCB5b3Vyc2VsZgQMYnBPcmRlclBhcnRzCQC8CQIFCmJwT3JkZXJTdHICAToDCQECIT0CCQCQAwEFDGJwT3JkZXJQYXJ0cwADCQACAQIyYnBPcmRlclN0ciBzaG91bGQgY29udGFpbiBleGFjdGx5IDIgJzonIHNlcGFyYXRvcnMECGJwT3JkUmVzCQC1CQIJAJEDAgUMYnBPcmRlclBhcnRzAAACAV8ECGJwT3JkTWF0CQC1CQIJAJEDAgUMYnBPcmRlclBhcnRzAAECAV8ECWJwT3JkUHJvZAMJAAACCQCRAwIFDGJwT3JkZXJQYXJ0cwACAgAFA25pbAkAvAkCCQCRAwIFDGJwT3JkZXJQYXJ0cwACAgFfAwkBAiE9AgkAkAMBBQhicE9yZFJlcwUGTlVNUkVTCQACAQIgQWxsIDYgcmVzb3VyY2VzIHNob3VsZCBiZSBwYXNzZWQDCQECIT0CCQCQAwEFCGJwT3JkTWF0BQZOVU1SRVMJAAIBAiBBbGwgNiBtYXRlcmlhbHMgc2hvdWxkIGJlIHBhc3NlZAQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQ9zaG9wTGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALwJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQPY3VycldoTG9ja2VkVm9sCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBQl2b2xMb2NrZWQEBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQUPc2hvcExhbmRBc3NldElkBAV3aE9yZAkBCGdldE9yZGVyAQUGb3JkS2V5BAh3aE9yZFJlcwkAtQkCCQCRAwIFBXdoT3JkBQlvcmRJZHhSZXMCAV8ECHdoT3JkTWF0CQC1CQIJAJEDAgUFd2hPcmQFCW9yZElkeE1hdAIBXwQJd2hPcmRQcm9kAwkAAAIJAJEDAgUFd2hPcmQFCm9yZElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgUFd2hPcmQFCm9yZElkeFByb2QCAV8EAXIKAAIkbAUIYnBPcmRSZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCfCg0FA25pbAUDbmlsBQNuaWwAAAAAAAAAAAUJYnBSZXNMaXN0BQljdXJyV2hSZXMFCHdoT3JkUmVzBQhyZXNUeXBlcwcAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMYWNjZXB0Q29tbW9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAFtCgACJGwFCGJwT3JkTWF0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAnwoNBQNuaWwFA25pbAUDbmlsCAUBcgJfNAgFAXICXzUIBQFyAl82AAAFCWJwTWF0TGlzdAUJY3VycldoTWF0BQh3aE9yZE1hdAUIbWF0VHlwZXMHCAUBcgNfMTMKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGFjY2VwdENvbW1vbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQBcAMJAQIhPQIJAJADAQUJYnBPcmRQcm9kAAAKAAIkbAUJYnBPcmRQcm9kCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAnwoNBQNuaWwFA25pbAUDbmlsCAUBbQJfNAgFAW0CXzUIBQFtAl82AAAFCmJwUHJvZExpc3QFCmN1cnJXaFByb2QFCXdoT3JkUHJvZAUJcHJvZFR5cGVzBggFAW0DXzEzCgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhY2NlcHRDb21tb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgkAnwoNBQpjdXJyV2hQcm9kBQl3aE9yZFByb2QFCmJwUHJvZExpc3QIBQFtAl80CAUBbQJfNQgFAW0CXzYAAAUKYnBQcm9kTGlzdAUKY3VycldoUHJvZAUJd2hPcmRQcm9kBQlwcm9kVHlwZXMGCAUBbQNfMTMECHZvbFNhbGRvCAUBcAJfNAQMbmV3TG9ja2VkVm9sAwkAZgIAAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8AAAkAZQIFD2N1cnJXaExvY2tlZFZvbAUIdm9sU2FsZG8EBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXICXzECAV8JAMwIAgkAuQkCCAUBbQJfMQIBXwkAzAgCCQC6CQIIBQFwAl8xAgFfCQDMCAIJAKQDAQUMbmV3TG9ja2VkVm9sBQNuaWwCAToEC25ld1doT3JkU3RyCQC6CQIJAMwIAgkAuQkCCAUBcgJfMgIBXwkAzAgCCQC5CQIIBQFtAl8yAgFfCQDMCAIJALoJAggFAXACXzICAV8FA25pbAIBOgQGd2hTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQ9zaG9wTGFuZEFzc2V0SWQFA25pbAUDbmlsBA5hY2NTdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFDXNob3BMYW5kT3duZXIJAMwIAgkAawMFBnhwU2hvcAgFAXADXzEzBQVNVUxUOAUDbmlsBQNuaWwJAJwKCgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdXaE9yZFN0cggFAXICXzMIBQFtAl8zCAUBcAJfMwgFAXACXzUIBQFwAl82CAUBcANfMTMFDXNob3BMYW5kT3duZXIFBndoU2F2ZQUOYWNjU3RhdHNSZXN1bHQBGnNlbGxSZXNvdXJjZXNXb3JsZEludGVybmFsAQZhbW91bnQEBm9uZVJlcwkAaQIFBmFtb3VudAAeBBFvbmVGYWN0b3J5QW1vdW50cwkAzAgCBQZvbmVSZXMJAMwIAgUGb25lUmVzCQDMCAIFBm9uZVJlcwkAzAgCBQZvbmVSZXMJAMwIAgUGb25lUmVzCQDMCAIFBm9uZVJlcwUDbmlsBAFzCQCkAwEFBm9uZVJlcwQHcmVzTGlzdAkAzAgCBQFzCQDMCAIFAXMJAMwIAgUBcwkAzAgCBQFzCQDMCAIFAXMJAMwIAgUBcwUDbmlsBAltaW5QcmljZXMJAMwIAgAACQDMCAIAAAkAzAgCAAAJAMwIAgAACQDMCAIAAAkAzAgCAAAFA25pbAoBCm9uZUZhY3RvcnkCA2FjYwljb250aW5lbnQEAXgJARNzZWxsUmVzb3VyY2VzQ29tbW9uBAUHcmVzTGlzdAUJY29udGluZW50BRFvbmVGYWN0b3J5QW1vdW50cwUJbWluUHJpY2VzCQCVCgMJAM4IAggFA2FjYwJfMQgFAXgCXzEJAGQCCAUDYWNjAl8yCAUBeAJfMwkAZAIIBQNhY2MCXzMIBQF4Al80BA0kdDAyNTI3MDI1MzYwCgACJGwFCmNvbnRpbmVudHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAAAAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCm9uZUZhY3RvcnkCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFBA5mYWN0b3J5QWN0aW9ucwgFDSR0MDI1MjcwMjUzNjACXzEEDHVzZHRSZWNlaXZlZAgFDSR0MDI1MjcwMjUzNjACXzIECHRvdGFsUmVzCAUNJHQwMjUyNzAyNTM2MAJfMwQDZmVlCQBrAwUMdXNkdFJlY2VpdmVkBQxERUxJVkVSWV9GRUUFBU1VTFQ2BBBhY3Rpdml0aWVzQW1vdW50CQBpAgUMdXNkdFJlY2VpdmVkAGQECHVzZHRMZWZ0CQBlAgkAZQIFDHVzZHRSZWNlaXZlZAUQYWN0aXZpdGllc0Ftb3VudAUDZmVlCQCXCgUFDmZhY3RvcnlBY3Rpb25zBQh1c2R0TGVmdAUDZmVlBRBhY3Rpdml0aWVzQW1vdW50BQh0b3RhbFJlcwEQY3JhZnRHb29kc0NvbW1vbgUHbWF0TGlzdAhwcm9kTGlzdBRtYW51ZmFjdG9yeUNvbnRpbmVudApwcm9kdWN0SWR4CHF1YW50aXR5AwkAZwIAAAUIcXVhbnRpdHkJAAIBAhtRdWFudGl0eSBzaG91bGQgYmUgcG9zaXRpdmUDAwkAZgIAAAUKcHJvZHVjdElkeAYJAGcCBQpwcm9kdWN0SWR4CQCQAwEFEHByb2R1Y3Rpb25NYXRyaXgJAAIBCQCsAgICFFVua25vd24gcHJvZHVjdCBpZHg9CQCkAwEFCnByb2R1Y3RJZHgEBnJlY2lwZQkAtQkCCQCRAwIFEHByb2R1Y3Rpb25NYXRyaXgFCnByb2R1Y3RJZHgCAV8DCQECIT0CCQCQAwEFBnJlY2lwZQUKUkVDSVBFU0laRQkAAgEJAKwCAgIXRmF0YWw6IHVua25vd24gcmVjaXBlOiAJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUKcHJvZHVjdElkeAQOcHJvZHVjdENvbnRJZHgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFDXJJZHhDb250aW5lbnQDCQECIT0CCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4BRRtYW51ZmFjdG9yeUNvbnRpbmVudAkAAgEJAKwCAgkArAICCQCsAgICHVRoaXMgcHJvZHVjdCBpcyBhdmFpbGFibGUgaW4gCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4AgksIG5vdCBpbiAFFG1hbnVmYWN0b3J5Q29udGluZW50CgEGZmlsbGVyAgNhY2MLaWdub3JlZEl0ZW0EAW4IBQNhY2MCXzIEAnhzAwkAZgIJAJADAQUIcHJvZExpc3QFAW4JAJEDAgUIcHJvZExpc3QFAW4CATAEAXgJAQ1wYXJzZUludFZhbHVlAQUCeHMEBmFtb3VudAkAaAIFCHF1YW50aXR5BQ5QUk9EVUNUUEtHU0laRQQBeQMJAAACBQFuBQpwcm9kdWN0SWR4CQCkAwEJAGQCBQF4BQZhbW91bnQFAnhzCQCUCgIJAM0IAggFA2FjYwJfMQUBeQkAZAIFAW4AAQQHbmV3UHJvZAgKAAIkbAUQcHJvZHVjdGlvbk1hdHJpeAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBmZpbGxlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyAl8xCgEIcHJvZHVjZXICA2FjYwFqBAduZWVkTWF0CQBoAgkAaAIJAGgCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBQFqBQVNVUxUNQUIcXVhbnRpdHkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFCXJJZHhDb2VmZgQHaGF2ZU1hdAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB21hdExpc3QFAWoDCQBmAgUHbmVlZE1hdAUHaGF2ZU1hdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQEKZml4ZWRQb2ludAIFB2hhdmVNYXQACAIEIG9mIAkAkQMCBQhtYXRUeXBlcwUBagIWLCBidXQgcmVjaXBlIHJlcXVpcmVzIAkBCmZpeGVkUG9pbnQCBQduZWVkTWF0AAgCDiBmb3IgcXVhbnRpdHkgCQCkAwEFCHF1YW50aXR5AwkAZgIFB25lZWRNYXQAAAkAlAoCCQDNCAIIBQNhY2MCXzEJAKQDAQkAZQIFB2hhdmVNYXQFB25lZWRNYXQJAGQCCAUDYWNjAl8yBQduZWVkTWF0CQCUCgIJAM0IAggFA2FjYwJfMQkAkQMCBQdtYXRMaXN0BQFqCAUDYWNjAl8yBAZtZXJnZWQKAAIkbAUFSVRFUjYKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhwcm9kdWNlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgkAlQoDCAUGbWVyZ2VkAl8xBQduZXdQcm9kCAUGbWVyZ2VkAl8yGAFpARpyZWNhbGNMb2NrZWRWb2x1bWVSRUFET05MWQILbGFuZEFzc2V0SWQCd2gECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEJAQ5rZXlPcmRlckJ5TGFuZAEFC2xhbmRBc3NldElkBAF6CQELc2V0SW50ZXJuYWwDBQJ3aAUKY3VycmVudE9yZAUKY3VycmVudE9yZAkAlAoCBQNuaWwJAGQCCAUBegJfNAgFAXoCXzUBaQENY29uc3RydWN0b3JWMQEIcmVzdEFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBDXNlbGxSZXNvdXJjZXMCB2Ftb3VudHMJbWluUHJpY2VzBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAipzZWxsUmVzb3VyY2VzIGRvZXNuJ3QgcmVxdWlyZSBhbnkgcGF5bWVudHMEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBA0kdDAyODg5MzI5MDE5CQETc2VsbFJlc291cmNlc0NvbW1vbgQFB3Jlc0xpc3QJAJEDAgULY3VyTG9jYXRpb24FCGxvY0lkeElkBQdhbW91bnRzBQltaW5QcmljZXMEDmZhY3RvcnlBY3Rpb25zCAUNJHQwMjg4OTMyOTAxOQJfMQQGbmV3UmVzCAUNJHQwMjg4OTMyOTAxOQJfMgQMdXNkdFJlY2VpdmVkCAUNJHQwMjg4OTMyOTAxOQJfMwQIdG90YWxSZXMIBQ0kdDAyODg5MzI5MDE5Al80BBBhY3Rpdml0aWVzQW1vdW50CQBpAgUMdXNkdFJlY2VpdmVkAGQEB25ld1BhY2sJALoJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJALkJAgUGbmV3UmVzAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BA5iYWNrcGFja1Jlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUHeHBUcmFkZQUIdG90YWxSZXMFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDNCAIJAM0IAgUOZmFjdG9yeUFjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFDHVzZHRSZWNlaXZlZAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAJUKAwUOYmFja3BhY2tSZXN1bHQFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQESc2VsbFJlc291cmNlc1dvcmxkAgRhZGRyBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUNYWNyZXNDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkBA0kdDAyOTgxMTI5OTY4CQEac2VsbFJlc291cmNlc1dvcmxkSW50ZXJuYWwBBQZhbW91bnQEDmZhY3RvcnlBY3Rpb25zCAUNJHQwMjk4MTEyOTk2OAJfMQQIdXNkdExlZnQIBQ0kdDAyOTgxMTI5OTY4Al8yBANmZWUIBQ0kdDAyOTgxMTI5OTY4Al8zBBBhY3Rpdml0aWVzQW1vdW50CAUNJHQwMjk4MTEyOTk2OAJfNAQIdG90YWxSZXMIBQ0kdDAyOTgxMTI5OTY4Al81AwkAZwIAAAUIdXNkdExlZnQJAAIBCQCsAgICK1RoaXMgdHJhZGUgZG9lcyBub3QgY292ZXIgZGVsaXZlcnkgY29zdCBvZiAJAQpmaXhlZFBvaW50AgUDZmVlAAYEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUEYWRkcgkAzAgCCQBrAwUHeHBUcmFkZQUIdG90YWxSZXMFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDNCAIJAM0IAgkAzQgCBQ5mYWN0b3J5QWN0aW9ucwkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPZGVsaXZlcnlGdW5kS2V5AAAFA2ZlZQkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BRBhY3Rpdml0aWVzQW1vdW50BQt1c2R0QXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwUSaW52ZXN0RnVuZENvbnRyYWN0BQh1c2R0TGVmdAULdXNkdEFzc2V0SWQJAJQKAgUIdXNkdExlZnQFC3N0YXRzUmVzdWx0AWkBGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZAQZhbW91bnQECHVzZHRMZWZ0CAkBGnNlbGxSZXNvdXJjZXNXb3JsZEludGVybmFsAQUGYW1vdW50Al8yCQCUCgIFA25pbAUIdXNkdExlZnQBaQEZc2VsbFJlc291cmNlc0R1Y2tEZWxpdmVyeQMHYW1vdW50cwltaW5QcmljZXMQZmFjdG9yeUNvbnRpbmVudAMJAQEhAQURS1NfQUxMT1dfREVMSVZFUlkJAAIBAh9EZWxpdmVyeSBmZWF0dXJlIGlzIHR1cm5lZCBvZmYhBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAipzZWxsUmVzb3VyY2VzIGRvZXNuJ3QgcmVxdWlyZSBhbnkgcGF5bWVudHMEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQNJHQwMzEyMDQzMTMyNQkBE3NlbGxSZXNvdXJjZXNDb21tb24EBQdyZXNMaXN0BRBmYWN0b3J5Q29udGluZW50BQdhbW91bnRzBQltaW5QcmljZXMEDmZhY3RvcnlBY3Rpb25zCAUNJHQwMzEyMDQzMTMyNQJfMQQGbmV3UmVzCAUNJHQwMzEyMDQzMTMyNQJfMgQMdXNkdFJlY2VpdmVkCAUNJHQwMzEyMDQzMTMyNQJfMwQIdG90YWxSZXMIBQ0kdDAzMTIwNDMxMzI1Al80BAduZXdQYWNrCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIFBm5ld1JlcwIBXwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgQOYmFja3BhY2tSZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFB3hwVHJhZGUFCHRvdGFsUmVzBQVNVUxUOAUDbmlsBQNuaWwEB2ZlZVBhcnQJAGsDBQx1c2R0UmVjZWl2ZWQFDERFTElWRVJZX0ZFRQUFTVVMVDYEA2ZlZQkAlgMBCQDMCAIFB2ZlZVBhcnQJAMwIAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQNuaWwEEGFjdGl2aXRpZXNBbW91bnQJAGkCBQx1c2R0UmVjZWl2ZWQAZAMJAGcCBQNmZWUJAGUCBQx1c2R0UmVjZWl2ZWQFEGFjdGl2aXRpZXNBbW91bnQJAAIBCQCsAgICK1RoaXMgdHJhZGUgZG9lcyBub3QgY292ZXIgZGVsaXZlcnkgY29zdCBvZiAJAQpmaXhlZFBvaW50AgUDZmVlAAYECWZ1bmRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9kZWxpdmVyeUZ1bmRLZXkAAAkAlAoCCQDNCAIJAM0IAgkAzQgCBQ5mYWN0b3J5QWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgkAZQIFDHVzZHRSZWNlaXZlZAUQYWN0aXZpdGllc0Ftb3VudAUDZmVlBQt1c2R0QXNzZXRJZAkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAUDZmVlCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkCQCVCgMFDmJhY2twYWNrUmVzdWx0BQxwcm9sb2dSZXN1bHQFC3N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGXNlbGxSZXNvdXJjZXNMYW5kRGVsaXZlcnkEB2Ftb3VudHMJbWluUHJpY2VzC2xhbmRBc3NldElkEGZhY3RvcnlDb250aW5lbnQDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECKnNlbGxSZXNvdXJjZXMgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQEdXNlcggFAWkGY2FsbGVyBARhZGRyCQClCAEFBHVzZXIEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwkBAiE9AgUFb3duZXIFBGFkZHIJAAIBCQCsAgIFCkxBTkRQUkVGSVgCDSBpcyBub3QgeW91cnMEAndoCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIUZ2V0V2FyZWhvdXNlUkVBRE9OTFkJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToEB3Jlc0xpc3QJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBA0kdDAzMzMxNjMzNDM3CQETc2VsbFJlc291cmNlc0NvbW1vbgQFB3Jlc0xpc3QFEGZhY3RvcnlDb250aW5lbnQFB2Ftb3VudHMFCW1pblByaWNlcwQOZmFjdG9yeUFjdGlvbnMIBQ0kdDAzMzMxNjMzNDM3Al8xBAZuZXdSZXMIBQ0kdDAzMzMxNjMzNDM3Al8yBAx1c2R0UmVjZWl2ZWQIBQ0kdDAzMzMxNjMzNDM3Al8zBAh0b3RhbFJlcwgFDSR0MDMzMzE2MzM0MzcCXzQEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAgUGbmV3UmVzAgFfCQDMCAIJAJEDAgUJY3VycmVudFdoBQh3aElkeE1hdAkAzAgCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhQcm9kCQDMCAIJAJEDAgUJY3VycmVudFdoBQl3aElkeExPRlQFA25pbAIBOgQGd2hTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUEYWRkcgkAzAgCCQBrAwUHeHBUcmFkZQUIdG90YWxSZXMFBU1VTFQ4BQNuaWwFA25pbAQHZmVlUGFydAkAawMFDHVzZHRSZWNlaXZlZAUMREVMSVZFUllfRkVFBQVNVUxUNgQDZmVlCQCWAwEJAMwIAgUHZmVlUGFydAkAzAgCBRVNSU5fVVNEVF9GRUVfREVMSVZFUlkFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFDHVzZHRSZWNlaXZlZABkAwkAZwIFA2ZlZQkAZQIFDHVzZHRSZWNlaXZlZAUQYWN0aXZpdGllc0Ftb3VudAkAAgEJAKwCAgIrVGhpcyB0cmFkZSBkb2VzIG5vdCBjb3ZlciBkZWxpdmVyeSBjb3N0IG9mIAkBCmZpeGVkUG9pbnQCBQNmZWUABgQJZnVuZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIFDmZhY3RvcnlBY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCCQBlAgUMdXNkdFJlY2VpdmVkBRBhY3Rpdml0aWVzQW1vdW50BQNmZWUFC3VzZHRBc3NldElkCQEMSW50ZWdlckVudHJ5AgUPZGVsaXZlcnlGdW5kS2V5CQBkAgUJZnVuZFRvdGFsBQNmZWUJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAJUKAwUGd2hTYXZlBQxwcm9sb2dSZXN1bHQFC3N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDGJ1eU1hdGVyaWFscwIHYW1vdW50cwltYXhQcmljZXMEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQNJHQwMzUyNjEzNTM4MwkBEmJ1eU1hdGVyaWFsc0NvbW1vbgQFB21hdExpc3QJAJEDAgULY3VyTG9jYXRpb24FCGxvY0lkeElkBQdhbW91bnRzBQltYXhQcmljZXMEDmZhY3RvcnlBY3Rpb25zCAUNJHQwMzUyNjEzNTM4MwJfMQQGbmV3TWF0CAUNJHQwMzUyNjEzNTM4MwJfMgQJdXNkdFNwZW50CAUNJHQwMzUyNjEzNTM4MwJfMwQIdG90YWxNYXQIBQ0kdDAzNTI2MTM1MzgzAl80AwkAZgIFCXVzZHRTcGVudAUDYW10CQACAQkArAICCQCsAgIJAKwCAgIfSW5zdWZmaWNpZW50IHBheW1lbnQhIEF0dGFjaGVkPQkBCmZpeGVkUG9pbnQCBQNhbXQABgILLCByZXF1aXJlZD0JAQpmaXhlZFBvaW50AgUJdXNkdFNwZW50AAYEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQDMCAIJALkJAgUGbmV3TWF0AgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BA5iYWNrcGFja1Jlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBARyZXN0AwkAZgIJAGUCBQNhbXQFCXVzZHRTcGVudAAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFA2FtdAUJdXNkdFNwZW50BQt1c2R0QXNzZXRJZAUDbmlsBQNuaWwEEGFjdGl2aXRpZXNBbW91bnQJAGkCBQl1c2R0U3BlbnQAZAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFB3hwVHJhZGUFCHRvdGFsTWF0BQVNVUxUOAUDbmlsBQNuaWwJAJQKAgkAzQgCCQDOCAIFDmZhY3RvcnlBY3Rpb25zBQRyZXN0CQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFEGFjdGl2aXRpZXNBbW91bnQFC3VzZHRBc3NldElkCQCVCgMFDmJhY2twYWNrUmVzdWx0BQxwcm9sb2dSZXN1bHQFC3N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGGJ1eU1hdGVyaWFsc0R1Y2tEZWxpdmVyeQMHYW1vdW50cwltYXhQcmljZXMQZmFjdG9yeUNvbnRpbmVudAMJAQEhAQURS1NfQUxMT1dfREVMSVZFUlkJAAIBAh9EZWxpdmVyeSBmZWF0dXJlIGlzIHR1cm5lZCBvZmYhBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBA0kdDAzNjkwNDM3MDIxCQESYnV5TWF0ZXJpYWxzQ29tbW9uBAUHbWF0TGlzdAUQZmFjdG9yeUNvbnRpbmVudAUHYW1vdW50cwUJbWF4UHJpY2VzBA5mYWN0b3J5QWN0aW9ucwgFDSR0MDM2OTA0MzcwMjECXzEEBm5ld01hdAgFDSR0MDM2OTA0MzcwMjECXzIECXVzZHRTcGVudAgFDSR0MDM2OTA0MzcwMjECXzMECHRvdGFsTWF0CAUNJHQwMzY5MDQzNzAyMQJfNAQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgkAuQkCBQZuZXdNYXQCAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEDmJhY2twYWNrUmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIPdXBkYXRlRHVja1N0YXRzCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIJAGsDBQd4cFRyYWRlBQh0b3RhbE1hdAUFTVVMVDgFA25pbAUDbmlsBAdmZWVQYXJ0CQBrAwUJdXNkdFNwZW50BQxERUxJVkVSWV9GRUUFBU1VTFQ2BANmZWUJAJYDAQkAzAgCBQdmZWVQYXJ0CQDMCAIFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUDbmlsBBB1c2R0U3BlbnRXaXRoRmVlCQBkAgUJdXNkdFNwZW50BQNmZWUDCQBmAgUQdXNkdFNwZW50V2l0aEZlZQUDYW10CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIfSW5zdWZmaWNpZW50IHBheW1lbnQhIEF0dGFjaGVkPQkBCmZpeGVkUG9pbnQCBQNhbXQABgILLCByZXF1aXJlZD0JAQpmaXhlZFBvaW50AgUJdXNkdFNwZW50AAYCASsJAQpmaXhlZFBvaW50AgUDZmVlAAYCDihkZWxpdmVyeSBmZWUpBARyZXN0AwkAZgIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFCXVzZHRTcGVudABkBAlmdW5kVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPZGVsaXZlcnlGdW5kS2V5AAAJAJQKAgkAzQgCCQDNCAIJAM4IAgUOZmFjdG9yeUFjdGlvbnMFBHJlc3QJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGQCBQlmdW5kVG90YWwFA2ZlZQkAlQoDBQ5iYWNrcGFja1Jlc3VsdAUMcHJvbG9nUmVzdWx0BQtzdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARhidXlNYXRlcmlhbHNMYW5kRGVsaXZlcnkEB2Ftb3VudHMJbWF4UHJpY2VzC2xhbmRBc3NldElkEGZhY3RvcnlDb250aW5lbnQDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAR1c2VyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQECIT0CBQVvd25lcgUEYWRkcgkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQHbWF0TGlzdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8EDSR0MDM5MjYzMzkzODAJARJidXlNYXRlcmlhbHNDb21tb24EBQdtYXRMaXN0BRBmYWN0b3J5Q29udGluZW50BQdhbW91bnRzBQltYXhQcmljZXMEDmZhY3RvcnlBY3Rpb25zCAUNJHQwMzkyNjMzOTM4MAJfMQQGbmV3TWF0CAUNJHQwMzkyNjMzOTM4MAJfMgQJdXNkdFNwZW50CAUNJHQwMzkyNjMzOTM4MAJfMwQIdG90YWxNYXQIBQ0kdDAzOTI2MzM5MzgwAl80BAV3aFN0cgkAugkCCQDMCAIJAJEDAgUJY3VycmVudFdoBQt3aElkeExldmVscwkAzAgCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMJAMwIAgkAuQkCBQZuZXdNYXQCAV8JAMwIAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAkAzAgCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUBQNuaWwCAToEBndoU2F2ZQkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDXNhdmVXYXJlaG91c2UJAMwIAgUFd2hTdHIJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFBGFkZHIJAMwIAgkAawMFB3hwVHJhZGUFCHRvdGFsTWF0BQVNVUxUOAUDbmlsBQNuaWwEB2ZlZVBhcnQJAGsDBQl1c2R0U3BlbnQFDERFTElWRVJZX0ZFRQUFTVVMVDYEA2ZlZQkAlgMBCQDMCAIFB2ZlZVBhcnQJAMwIAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQNuaWwEEHVzZHRTcGVudFdpdGhGZWUJAGQCBQl1c2R0U3BlbnQFA2ZlZQMJAGYCBRB1c2R0U3BlbnRXaXRoRmVlBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQl1c2R0U3BlbnQABgIBKwkBCmZpeGVkUG9pbnQCBQNmZWUABgIOKGRlbGl2ZXJ5IGZlZSkEBHJlc3QDCQBmAgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsBBBhY3Rpdml0aWVzQW1vdW50CQBpAgUJdXNkdFNwZW50AGQECWZ1bmRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9kZWxpdmVyeUZ1bmRLZXkAAAkAlAoCCQDNCAIJAM0IAgkAzggCBQ5mYWN0b3J5QWN0aW9ucwUEcmVzdAkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BRBhY3Rpdml0aWVzQW1vdW50BQt1c2R0QXNzZXRJZAkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAUDZmVlCQCVCgMFBndoU2F2ZQUMcHJvbG9nUmVzdWx0BQtzdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFleGNoYW5nZVJlc291cmNlcwEHYW1vdW50cwQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBA0kdDA0MTQ1ODQxNTY0CQEXZXhjaGFuZ2VSZXNvdXJjZXNDb21tb24DBQdyZXNMaXN0BQdtYXRMaXN0BQdhbW91bnRzBAZuZXdSZXMIBQ0kdDA0MTQ1ODQxNTY0Al8xBAZuZXdNYXQIBQ0kdDA0MTQ1ODQxNTY0Al8yBAl1c2R0U3BlbnQIBQ0kdDA0MTQ1ODQxNTY0Al8zBBR0b3RhbEFtb3VudENvbnZlcnRlZAgFDSR0MDQxNDU4NDE1NjQCXzQDCQBmAgUJdXNkdFNwZW50BQNhbXQJAAIBCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQEKZml4ZWRQb2ludAIFA2FtdAAGAgssIHJlcXVpcmVkPQkBCmZpeGVkUG9pbnQCBQl1c2R0U3BlbnQABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCBQZuZXdSZXMCAV8JAMwIAgkAuQkCBQZuZXdNYXQCAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEDmJhY2twYWNrUmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEBHJlc3QDCQBmAgkAZQIFA2FtdAUJdXNkdFNwZW50AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10BQl1c2R0U3BlbnQFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFCXVzZHRTcGVudABkBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUHeHBUcmFkZQUUdG90YWxBbW91bnRDb252ZXJ0ZWQFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDNCAIFBHJlc3QJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAJUKAwUOYmFja3BhY2tSZXN1bHQFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEdZXhjaGFuZ2VSZXNvdXJjZXNEdWNrRGVsaXZlcnkBB2Ftb3VudHMDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQNJHQwNDMwNzk0MzE4NQkBF2V4Y2hhbmdlUmVzb3VyY2VzQ29tbW9uAwUHcmVzTGlzdAUHbWF0TGlzdAUHYW1vdW50cwQGbmV3UmVzCAUNJHQwNDMwNzk0MzE4NQJfMQQGbmV3TWF0CAUNJHQwNDMwNzk0MzE4NQJfMgQJdXNkdFNwZW50CAUNJHQwNDMwNzk0MzE4NQJfMwQUdG90YWxBbW91bnRDb252ZXJ0ZWQIBQ0kdDA0MzA3OTQzMTg1Al80BAdmZWVQYXJ0CQBrAwUJdXNkdFNwZW50BQ5ERUxJVkVSWV9GRUUxNQUFTVVMVDYEA2ZlZQkAlgMBCQDMCAIFB2ZlZVBhcnQJAMwIAgUXTUlOX1VTRFRfRkVFX0RFTElWRVJZMTUFA25pbAQQdXNkdFNwZW50V2l0aEZlZQkAZAIFCXVzZHRTcGVudAUDZmVlAwkAZgIFEHVzZHRTcGVudFdpdGhGZWUFA2FtdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAQpmaXhlZFBvaW50AgUDYW10AAYCCywgcmVxdWlyZWQ9CQEKZml4ZWRQb2ludAIFCXVzZHRTcGVudAAGAgErCQEKZml4ZWRQb2ludAIFA2ZlZQAGAg4oZGVsaXZlcnkgZmVlKQQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCBQZuZXdSZXMCAV8JAMwIAgkAuQkCBQZuZXdNYXQCAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEDmJhY2twYWNrUmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEBHJlc3QDCQBmAgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFA2FtdAUQdXNkdFNwZW50V2l0aEZlZQULdXNkdEFzc2V0SWQFA25pbAUDbmlsBBBhY3Rpdml0aWVzQW1vdW50CQBpAgUJdXNkdFNwZW50AGQEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIPdXBkYXRlRHVja1N0YXRzCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIJAGsDBQd4cFRyYWRlBRR0b3RhbEFtb3VudENvbnZlcnRlZAUFTVVMVDgFA25pbAUDbmlsBAlmdW5kVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPZGVsaXZlcnlGdW5kS2V5AAAJAJQKAgkAzQgCCQDNCAIFBHJlc3QJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGQCBQlmdW5kVG90YWwFA2ZlZQkAlQoDBQ5iYWNrcGFja1Jlc3VsdAUMcHJvbG9nUmVzdWx0BQtzdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAR1leGNoYW5nZVJlc291cmNlc0xhbmREZWxpdmVyeQIHYW1vdW50cwtsYW5kQXNzZXRJZAMJAQEhAQURS1NfQUxMT1dfREVMSVZFUlkJAAIBAh9EZWxpdmVyeSBmZWF0dXJlIGlzIHR1cm5lZCBvZmYhBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEBHVzZXIIBQFpBmNhbGxlcgQEYWRkcgkApQgBBQR1c2VyBAVhc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFC2xhbmRBc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQRhZGRyCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBAJ3aAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCFGdldFdhcmVob3VzZVJFQURPTkxZCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAQJY3VycmVudFdoCQC8CQIFAndoAgE6BAdyZXNMaXN0CQC1CQIJAJEDAgUJY3VycmVudFdoBQh3aElkeFJlcwIBXwQHbWF0TGlzdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8EDSR0MDQ1NDQ3NDU1NTMJARdleGNoYW5nZVJlc291cmNlc0NvbW1vbgMFB3Jlc0xpc3QFB21hdExpc3QFB2Ftb3VudHMEBm5ld1JlcwgFDSR0MDQ1NDQ3NDU1NTMCXzEEBm5ld01hdAgFDSR0MDQ1NDQ3NDU1NTMCXzIECXVzZHRTcGVudAgFDSR0MDQ1NDQ3NDU1NTMCXzMEFHRvdGFsQW1vdW50Q29udmVydGVkCAUNJHQwNDU0NDc0NTU1MwJfNAQFd2hTdHIJALoJAgkAzAgCCQCRAwIFCWN1cnJlbnRXaAULd2hJZHhMZXZlbHMJAMwIAgkAuQkCBQZuZXdSZXMCAV8JAMwIAgkAuQkCBQZuZXdNYXQCAV8JAMwIAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAkAzAgCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUBQNuaWwCAToEBndoU2F2ZQkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDXNhdmVXYXJlaG91c2UJAMwIAgUFd2hTdHIJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFBGFkZHIJAMwIAgkAawMFB3hwVHJhZGUFFHRvdGFsQW1vdW50Q29udmVydGVkBQVNVUxUOAUDbmlsBQNuaWwEB2ZlZVBhcnQJAGsDBQl1c2R0U3BlbnQFDkRFTElWRVJZX0ZFRTE1BQVNVUxUNgQDZmVlCQCWAwEJAMwIAgUHZmVlUGFydAkAzAgCBRdNSU5fVVNEVF9GRUVfREVMSVZFUlkxNQUDbmlsBBB1c2R0U3BlbnRXaXRoRmVlCQBkAgUJdXNkdFNwZW50BQNmZWUDCQBmAgUQdXNkdFNwZW50V2l0aEZlZQUDYW10CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIfSW5zdWZmaWNpZW50IHBheW1lbnQhIEF0dGFjaGVkPQkBCmZpeGVkUG9pbnQCBQNhbXQABgILLCByZXF1aXJlZD0JAQpmaXhlZFBvaW50AgUJdXNkdFNwZW50AAYCASsJAQpmaXhlZFBvaW50AgUDZmVlAAYCDihkZWxpdmVyeSBmZWUpBARyZXN0AwkAZgIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUFC3VzZHRBc3NldElkBQNuaWwFA25pbAQQYWN0aXZpdGllc0Ftb3VudAkAaQIFCXVzZHRTcGVudABkBAlmdW5kVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPZGVsaXZlcnlGdW5kS2V5AAAJAJQKAgkAzQgCCQDNCAIFBHJlc3QJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUQYWN0aXZpdGllc0Ftb3VudAULdXNkdEFzc2V0SWQJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGQCBQlmdW5kVG90YWwFA2ZlZQkAlQoDBQZ3aFNhdmUFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEKY3JhZnRHb29kcwIKcHJvZHVjdElkeAhxdWFudGl0eQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkBAiE9AgUDYW10BQVNVUxUNgkAAgEJAKwCAgkArAICAghleGFjdGx5IAkBCmZpeGVkUG9pbnQCBQ9DUkFGVF9VU0RUX0NPU1QABgIhIFVTRFQgbXVzdCBiZSBhdHRhY2hlZCBhcyBwYXltZW50BAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAU0JAAIBCQCsAgICMUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgTWFudWZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBGNvbnQJAJEDAgULY3VyTG9jYXRpb24FD2xvY0lkeENvbnRpbmVudAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBAhwcm9kTGlzdAMJAAACCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIBXwQNJHQwNDc4Nzg0Nzk3NQkBEGNyYWZ0R29vZHNDb21tb24FBQdtYXRMaXN0BQhwcm9kTGlzdAUEY29udAUKcHJvZHVjdElkeAUIcXVhbnRpdHkEBm5ld01hdAgFDSR0MDQ3ODc4NDc5NzUCXzEEB25ld1Byb2QIBQ0kdDA0Nzg3ODQ3OTc1Al8yBAhtYXRTcGVudAgFDSR0MDQ3ODc4NDc5NzUCXzMEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQDMCAIJALkJAgUGbmV3TWF0AgFfCQDMCAIJALoJAgUHbmV3UHJvZAIBXwUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQLc3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFB3hwQ3JhZnQFCG1hdFNwZW50BQVNVUxUOAUDbmlsBQNuaWwJAJQKAgUDbmlsCQCVCgMFBnJlc3VsdAUMcHJvbG9nUmVzdWx0BQtzdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARZjcmFmdEdvb2RzRHVja0RlbGl2ZXJ5Awpwcm9kdWN0SWR4CHF1YW50aXR5FG1hbnVmYWN0b3J5Q29udGluZW50AwkBASEBBRFLU19BTExPV19ERUxJVkVSWQkAAgECH0RlbGl2ZXJ5IGZlYXR1cmUgaXMgdHVybmVkIG9mZiEEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8ECHByb2RMaXN0AwkAAAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIABQNuaWwJALwJAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgFfBA0kdDA0OTIwMDQ5MzEzCQEQY3JhZnRHb29kc0NvbW1vbgUFB21hdExpc3QFCHByb2RMaXN0BRRtYW51ZmFjdG9yeUNvbnRpbmVudAUKcHJvZHVjdElkeAUIcXVhbnRpdHkEBm5ld01hdAgFDSR0MDQ5MjAwNDkzMTMCXzEEB25ld1Byb2QIBQ0kdDA0OTIwMDQ5MzEzAl8yBAhtYXRTcGVudAgFDSR0MDQ5MjAwNDkzMTMCXzMEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQDMCAIJALkJAgUGbmV3TWF0AgFfCQDMCAIJALoJAgUHbmV3UHJvZAIBXwUDbmlsAgE6BA5iYWNrcGFja1Jlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUHeHBDcmFmdAUIbWF0U3BlbnQFBU1VTFQ4BQNuaWwFA25pbAQHZmVlUGFydAkAawMFCHF1YW50aXR5BRVNSU5fVVNEVF9GRUVfREVMSVZFUlkFFENSQUZUX0RFTElWRVJZX0NPRUZGBANmZWUJAJYDAQkAzAgCBQdmZWVQYXJ0CQDMCAIFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUDbmlsBBB1c2R0U3BlbnRXaXRoRmVlCQBkAgUPQ1JBRlRfVVNEVF9DT1NUBQNmZWUDCQBmAgUQdXNkdFNwZW50V2l0aEZlZQUDYW10CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIfSW5zdWZmaWNpZW50IHBheW1lbnQhIEF0dGFjaGVkPQkBCmZpeGVkUG9pbnQCBQNhbXQABgILLCByZXF1aXJlZD0JAQpmaXhlZFBvaW50AgUPQ1JBRlRfVVNEVF9DT1NUAAYCASsJAQpmaXhlZFBvaW50AgUDZmVlAAYCDihkZWxpdmVyeSBmZWUpBARyZXN0AwkAZgIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGUCBQNhbXQFEHVzZHRTcGVudFdpdGhGZWUFC3VzZHRBc3NldElkBQNuaWwFA25pbAQJZnVuZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAACQCUCgIJAM0IAgUEcmVzdAkBDEludGVnZXJFbnRyeQIFD2RlbGl2ZXJ5RnVuZEtleQkAZAIFCWZ1bmRUb3RhbAUDZmVlCQCVCgMFDmJhY2twYWNrUmVzdWx0BQxwcm9sb2dSZXN1bHQFC3N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFmNyYWZ0R29vZHNMYW5kRGVsaXZlcnkECnByb2R1Y3RJZHgIcXVhbnRpdHkLbGFuZEFzc2V0SWQUbWFudWZhY3RvcnlDb250aW5lbnQDCQEBIQEFEUtTX0FMTE9XX0RFTElWRVJZCQACAQIfRGVsaXZlcnkgZmVhdHVyZSBpcyB0dXJuZWQgb2ZmIQQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAR1c2VyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQECIT0CBQVvd25lcgUEYWRkcgkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQHbWF0TGlzdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECHByb2RMaXN0AwkAAAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAV8EDSR0MDUxNTU2NTE2NjkJARBjcmFmdEdvb2RzQ29tbW9uBQUHbWF0TGlzdAUIcHJvZExpc3QFFG1hbnVmYWN0b3J5Q29udGluZW50BQpwcm9kdWN0SWR4BQhxdWFudGl0eQQGbmV3TWF0CAUNJHQwNTE1NTY1MTY2OQJfMQQHbmV3UHJvZAgFDSR0MDUxNTU2NTE2NjkCXzIECG1hdFNwZW50CAUNJHQwNTE1NTY1MTY2OQJfMwQFd2hTdHIJALoJAgkAzAgCCQCRAwIFCWN1cnJlbnRXaAULd2hJZHhMZXZlbHMJAMwIAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzCQDMCAIJALkJAgUGbmV3TWF0AgFfCQDMCAIJALoJAgUHbmV3UHJvZAIBXwkAzAgCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUBQNuaWwCAToEBndoU2F2ZQkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDXNhdmVXYXJlaG91c2UJAMwIAgUFd2hTdHIJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFBGFkZHIJAMwIAgkAawMFB3hwQ3JhZnQFCG1hdFNwZW50BQVNVUxUOAUDbmlsBQNuaWwEB2ZlZVBhcnQJAGsDBQhxdWFudGl0eQUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBRRDUkFGVF9ERUxJVkVSWV9DT0VGRgQDZmVlCQCWAwEJAMwIAgUHZmVlUGFydAkAzAgCBRVNSU5fVVNEVF9GRUVfREVMSVZFUlkFA25pbAQQdXNkdFNwZW50V2l0aEZlZQkAZAIFD0NSQUZUX1VTRFRfQ09TVAUDZmVlAwkAZgIFEHVzZHRTcGVudFdpdGhGZWUFA2FtdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAQpmaXhlZFBvaW50AgUDYW10AAYCCywgcmVxdWlyZWQ9CQEKZml4ZWRQb2ludAIFD0NSQUZUX1VTRFRfQ09TVAAGAgErCQEKZml4ZWRQb2ludAIFA2ZlZQAGAg4oZGVsaXZlcnkgZmVlKQQEcmVzdAMJAGYCCQBlAgUDYW10BRB1c2R0U3BlbnRXaXRoRmVlAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10BRB1c2R0U3BlbnRXaXRoRmVlBQt1c2R0QXNzZXRJZAUDbmlsBQNuaWwECWZ1bmRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9kZWxpdmVyeUZ1bmRLZXkAAAkAlAoCCQDNCAIFBHJlc3QJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGQCBQlmdW5kVG90YWwFA2ZlZQkAlQoDBQZ3aFNhdmUFDHByb2xvZ1Jlc3VsdAULc3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQERc2V0V2FyZWhvdXNlT3JkZXICC25ld09yZGVyU3RyC2xhbmRBc3NldElkBAR1c2VyCAUBaQxvcmlnaW5DYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQGcmVzdWx0AwkBAiE9AgUEdXNlcgUMcmVzdENvbnRyYWN0CQEMY2hlY2tCbG9ja2VkAAcEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwMJAQIhPQIFBHVzZXIFDHJlc3RDb250cmFjdAkBAiE9AgUFb3duZXIFBGFkZHIHCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBAhuZXdPcmRlcgkAvAkCBQtuZXdPcmRlclN0cgIBOgQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECWN1cnJlbnRXaAkAvAkCBQJ3aAIBOgQEbG9mdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBAd3aFRvdGFsCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAUIdm9sVG90YWwEBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEFBm9yZEtleQQBegkBC3NldEludGVybmFsAwUJY3VycmVudFdoBQpjdXJyZW50T3JkBQhuZXdPcmRlcgQLYnV5Vm9sU2FsZG8IBQF6Al80BAxzZWxsVm9sU2FsZG8IBQF6Al81BAp3aE9jY3VwaWVkCAUBegJfNwQId2hMb2NrZWQJAGQCBQtidXlWb2xTYWxkbwUMc2VsbFZvbFNhbGRvBAZ3aEZyZWUJAGUCCQBlAgUHd2hUb3RhbAUKd2hPY2N1cGllZAUId2hMb2NrZWQDCQBmAgAABQZ3aEZyZWUJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhNBdHRlbXB0IHRvIHJlc2VydmUgCQCkAwEFC2J1eVZvbFNhbGRvAhsgc3BhY2UgZm9yIGJ1eSBvcmRlcnMsIGFuZCAJAKQDAQUMc2VsbFZvbFNhbGRvAiUgc3BhY2UgZm9yIHNlbGwgb3JkZXJzIChhbmQgb2NjdXBpZWQ9CQCkAwEFCndoT2NjdXBpZWQCHyksIGxlYWRzIHRvIG5lZ2F0aXZlIGZyZWUgc3BhY2UEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAggFAXoCXzECAV8JAMwIAgkAuQkCCAUBegJfMgIBXwkAzAgCCQC6CQIIBQF6Al8zAgFfCQDMCAIJAKQDAQUId2hMb2NrZWQFA25pbAIBOgQGd2hTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwECHVzZFNhbGRvCAUBegJfNgQHYWN0aW9ucwMJAGYCBQh1c2RTYWxkbwAAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQNhbXQFCHVzZFNhbGRvCQACAQkArAICAhJQYXltZW50IG5lZWRlZCBpcyAJAKQDAQUIdXNkU2FsZG8JAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdPcmRlclN0cgUDbmlsAwkAAAIFCHVzZFNhbGRvAAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhJObyBwYXltZW50cyBuZWVkZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUGb3JkS2V5BQtuZXdPcmRlclN0cgUDbmlsAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBW93bmVyCQEBLQEFCHVzZFNhbGRvBQt1c2R0QXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBQZvcmRLZXkFC25ld09yZGVyU3RyBQNuaWwJAJQKAgUHYWN0aW9ucwkAlAoCBQZyZXN1bHQFBndoU2F2ZQFpARRhY2NlcHRXYXJlaG91c2VPcmRlcgMKYnBPcmRlclN0cg9zaG9wTGFuZEFzc2V0SWQLZHVja0Fzc2V0SWQEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyBApjYWxsZXJBZGRyCQClCAEFBmNhbGxlcgQRc3Rha2VkRHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFCmNhbGxlckFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFEXN0YWtlZER1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04EA2xvYwkAtQkCCQEFdmFsdWUBBQtjdXJMb2NhdGlvbgIBXwMJAQIhPQIJAJEDAgUDbG9jBQpsb2NJZHhUeXBlAgFMCQACAQkArAICCQCsAgICFkR1Y2sgbG9jYXRpb24gdHlwZSBpcyAJAJEDAgUDbG9jBQpsb2NJZHhUeXBlAhEsIGJ1dCBzaG91bGQgYmUgTAMJAQIhPQIFEXN0YWtlZER1Y2tBc3NldElkBQtkdWNrQXNzZXRJZAkAAgEJAKwCAgkArAICCQCsAgICFFlvdXIgc3Rha2VkIGR1Y2sgaXMgBRFzdGFrZWREdWNrQXNzZXRJZAINLCBidXQgcGFzc2VkIAULZHVja0Fzc2V0SWQEBWJwS2V5CQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEFBWJwS2V5BAlicFJlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8ECWJwTWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQKYnBQcm9kTGlzdAMJAAACCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIBXwQNJHQwNTc1ODI1NzgyMgkBFWFjY2VwdFNob3BPcmRlckNvbW1vbgYFD3Nob3BMYW5kQXNzZXRJZAUKY2FsbGVyQWRkcgUKYnBPcmRlclN0cgUJYnBSZXNMaXN0BQlicE1hdExpc3QFCmJwUHJvZExpc3QECnNob3BBY3Rpb24IBQ0kdDA1NzU4MjU3ODIyAl8xBApuZXdVc2VyUmVzCAUNJHQwNTc1ODI1NzgyMgJfMgQKbmV3VXNlck1hdAgFDSR0MDU3NTgyNTc4MjICXzMEC25ld1VzZXJQcm9kCAUNJHQwNTc1ODI1NzgyMgJfNAQNdXNkV2gyQnBTYWxkbwgFDSR0MDU3NTgyNTc4MjICXzUEDXVzZEJwMldoU2FsZG8IBQ0kdDA1NzU4MjU3ODIyAl82BAh4cEFtb3VudAgFDSR0MDU3NTgyNTc4MjICXzcEDXNob3BMYW5kT3duZXIIBQ0kdDA1NzU4MjU3ODIyAl84BApzaG9wV2hTYXZlCAUNJHQwNTc1ODI1NzgyMgJfOQQOYWNjU3RhdHNSZXN1bHQIBQ0kdDA1NzU4MjU3ODIyA18xMAQIYWN0aW9uczEJAMwIAgUKc2hvcEFjdGlvbgkBEHNob3AydXNlckFjdGlvbnMDBQ11c2RXaDJCcFNhbGRvBQpjYWxsZXJBZGRyAAAECGFjdGlvbnMyCQEQdXNlcjJzaG9wQWN0aW9ucwQFDXVzZEJwMldoU2FsZG8IBQFpCHBheW1lbnRzBQ1zaG9wTGFuZE93bmVyAAAECG5ld0JwU3RyCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIFCm5ld1VzZXJSZXMCAV8JAMwIAgkAuQkCBQpuZXdVc2VyTWF0AgFfCQDMCAIJALoJAgULbmV3VXNlclByb2QCAV8FA25pbAIBOgQGYnBTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUIbmV3QnBTdHIFA25pbAUDbmlsBA9kdWNrU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFBnhwU2hvcAUIeHBBbW91bnQFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDOCAIFCGFjdGlvbnMxBQhhY3Rpb25zMgkAlwoFBQxwcm9sb2dSZXN1bHQFCnNob3BXaFNhdmUFBmJwU2F2ZQUPZHVja1N0YXRzUmVzdWx0BQ5hY2NTdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARthY2NlcHRTaG9wT3JkZXJEdWNrRGVsaXZlcnkCCG9yZGVyU3RyD3Nob3BMYW5kQXNzZXRJZAMJAQEhAQURS1NfQUxMT1dfREVMSVZFUlkJAAIBAh9EZWxpdmVyeSBmZWF0dXJlIGlzIHR1cm5lZCBvZmYhBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcgQKY2FsbGVyQWRkcgkApQgBBQZjYWxsZXIEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQpjYWxsZXJBZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQJYnBSZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAlicE1hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8ECmJwUHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAvAkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8EDSR0MDU5MjY0NTk1MDIJARVhY2NlcHRTaG9wT3JkZXJDb21tb24GBQ9zaG9wTGFuZEFzc2V0SWQFCmNhbGxlckFkZHIFCG9yZGVyU3RyBQlicFJlc0xpc3QFCWJwTWF0TGlzdAUKYnBQcm9kTGlzdAQKc2hvcEFjdGlvbggFDSR0MDU5MjY0NTk1MDICXzEECm5ld1VzZXJSZXMIBQ0kdDA1OTI2NDU5NTAyAl8yBApuZXdVc2VyTWF0CAUNJHQwNTkyNjQ1OTUwMgJfMwQLbmV3VXNlclByb2QIBQ0kdDA1OTI2NDU5NTAyAl80BA11c2RXaDJCcFNhbGRvCAUNJHQwNTkyNjQ1OTUwMgJfNQQNdXNkQnAyV2hTYWxkbwgFDSR0MDU5MjY0NTk1MDICXzYECHhwQW1vdW50CAUNJHQwNTkyNjQ1OTUwMgJfNwQNc2hvcExhbmRPd25lcggFDSR0MDU5MjY0NTk1MDICXzgECnNob3BXaFNhdmUIBQ0kdDA1OTI2NDU5NTAyAl85BA5hY2NTdGF0c1Jlc3VsdAgFDSR0MDU5MjY0NTk1MDIDXzEwBA9kZWxpdmVyeUZlZVBhcnQJAGsDCQBkAgUNdXNkQnAyV2hTYWxkbwUNdXNkV2gyQnBTYWxkbwUMREVMSVZFUllfRkVFBQVNVUxUNgQLZGVsaXZlcnlGZWUJAJYDAQkAzAgCBQ9kZWxpdmVyeUZlZVBhcnQJAMwIAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQNuaWwECHNwZW50RmVlCQBrAwULZGVsaXZlcnlGZWUFDXVzZEJwMldoU2FsZG8JAGQCBQ11c2RCcDJXaFNhbGRvBQ11c2RXaDJCcFNhbGRvBAtyZWNlaXZlZEZlZQkAZQIFC2RlbGl2ZXJ5RmVlBQhzcGVudEZlZQQJZnVuZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAABAhhY3Rpb25zMQkAzAgCBQpzaG9wQWN0aW9uCQEQc2hvcDJ1c2VyQWN0aW9ucwMFDXVzZFdoMkJwU2FsZG8FCmNhbGxlckFkZHIFC3JlY2VpdmVkRmVlBAhhY3Rpb25zMgkBEHVzZXIyc2hvcEFjdGlvbnMEBQ11c2RCcDJXaFNhbGRvCAUBaQhwYXltZW50cwUNc2hvcExhbmRPd25lcgUIc3BlbnRGZWUECG5ld0JwU3RyCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIFCm5ld1VzZXJSZXMCAV8JAMwIAgkAuQkCBQpuZXdVc2VyTWF0AgFfCQDMCAIJALoJAgULbmV3VXNlclByb2QCAV8FA25pbAIBOgQGYnBTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUIbmV3QnBTdHIFA25pbAUDbmlsBA9kdWNrU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag91cGRhdGVEdWNrU3RhdHMJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgkAawMFBnhwU2hvcAUIeHBBbW91bnQFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDNCAIJAM4IAgUIYWN0aW9uczEFCGFjdGlvbnMyCQEMSW50ZWdlckVudHJ5AgUPZGVsaXZlcnlGdW5kS2V5CQBkAgUJZnVuZFRvdGFsBQtkZWxpdmVyeUZlZQkAlwoFBQxwcm9sb2dSZXN1bHQFCnNob3BXaFNhdmUFBmJwU2F2ZQUPZHVja1N0YXRzUmVzdWx0BQ5hY2NTdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARthY2NlcHRTaG9wT3JkZXJMYW5kRGVsaXZlcnkDCG9yZGVyU3RyD3Nob3BMYW5kQXNzZXRJZA1teUxhbmRBc3NldElkAwkBASEBBRFLU19BTExPV19ERUxJVkVSWQkAAgECH0RlbGl2ZXJ5IGZlYXR1cmUgaXMgdHVybmVkIG9mZiEEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyBApjYWxsZXJBZGRyCQClCAEFBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQ1teUxhbmRBc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQUNbXlMYW5kQXNzZXRJZAkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQUNbXlMYW5kQXNzZXRJZAkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQECIT0CBQVvd25lcgUKY2FsbGVyQWRkcgkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQCd2gJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhRnZXRXYXJlaG91c2VSRUFET05MWQkAzAgCBQ1teUxhbmRBc3NldElkBQNuaWwFA25pbAQJY3VycmVudFdoCQC8CQIFAndoAgE6BAdyZXNMaXN0CQC1CQIJAJEDAgUJY3VycmVudFdoBQh3aElkeFJlcwIBXwQHbWF0TGlzdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECHByb2RMaXN0AwkAAAIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAAUDbmlsCQC8CQIJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QCAV8EDSR0MDYxNzAwNjE5MzIJARVhY2NlcHRTaG9wT3JkZXJDb21tb24GBQ9zaG9wTGFuZEFzc2V0SWQFCmNhbGxlckFkZHIFCG9yZGVyU3RyBQdyZXNMaXN0BQdtYXRMaXN0BQhwcm9kTGlzdAQKc2hvcEFjdGlvbggFDSR0MDYxNzAwNjE5MzICXzEECm5ld1VzZXJSZXMIBQ0kdDA2MTcwMDYxOTMyAl8yBApuZXdVc2VyTWF0CAUNJHQwNjE3MDA2MTkzMgJfMwQLbmV3VXNlclByb2QIBQ0kdDA2MTcwMDYxOTMyAl80BA11c2RXaDJCcFNhbGRvCAUNJHQwNjE3MDA2MTkzMgJfNQQNdXNkQnAyV2hTYWxkbwgFDSR0MDYxNzAwNjE5MzICXzYECHhwQW1vdW50CAUNJHQwNjE3MDA2MTkzMgJfNwQNc2hvcExhbmRPd25lcggFDSR0MDYxNzAwNjE5MzICXzgECnNob3BXaFNhdmUIBQ0kdDA2MTcwMDYxOTMyAl85BA5hY2NTdGF0c1Jlc3VsdAgFDSR0MDYxNzAwNjE5MzIDXzEwBA9kZWxpdmVyeUZlZVBhcnQJAGsDCQBkAgUNdXNkQnAyV2hTYWxkbwUNdXNkV2gyQnBTYWxkbwUMREVMSVZFUllfRkVFBQVNVUxUNgQLZGVsaXZlcnlGZWUJAJYDAQkAzAgCBQ9kZWxpdmVyeUZlZVBhcnQJAMwIAgUVTUlOX1VTRFRfRkVFX0RFTElWRVJZBQNuaWwECHNwZW50RmVlCQBrAwULZGVsaXZlcnlGZWUFDXVzZEJwMldoU2FsZG8JAGQCBQ11c2RCcDJXaFNhbGRvBQ11c2RXaDJCcFNhbGRvBAtyZWNlaXZlZEZlZQkAZQIFC2RlbGl2ZXJ5RmVlBQhzcGVudEZlZQQJZnVuZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAABAhhY3Rpb25zMQkAzAgCBQpzaG9wQWN0aW9uCQEQc2hvcDJ1c2VyQWN0aW9ucwMFDXVzZFdoMkJwU2FsZG8FCmNhbGxlckFkZHIFC3JlY2VpdmVkRmVlBAhhY3Rpb25zMgkBEHVzZXIyc2hvcEFjdGlvbnMEBQ11c2RCcDJXaFNhbGRvCAUBaQhwYXltZW50cwUNc2hvcExhbmRPd25lcgUIc3BlbnRGZWUEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzCQDMCAIJALkJAgUKbmV3VXNlclJlcwIBXwkAzAgCCQC5CQIFCm5ld1VzZXJNYXQCAV8JAMwIAgkAuQkCBQtuZXdVc2VyUHJvZAIBXwkAzAgCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUBQNuaWwCAToEBndoU2F2ZQkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDXNhdmVXYXJlaG91c2UJAMwIAgUFd2hTdHIJAMwIAgUNbXlMYW5kQXNzZXRJZAUDbmlsBQNuaWwEC3N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUKY2FsbGVyQWRkcgkAzAgCCQBrAwUGeHBTaG9wBQh4cEFtb3VudAUFTVVMVDgFA25pbAUDbmlsCQCUCgIJAM0IAgkAzggCBQhhY3Rpb25zMQUIYWN0aW9uczIJAQxJbnRlZ2VyRW50cnkCBQ9kZWxpdmVyeUZ1bmRLZXkJAGQCBQlmdW5kVG90YWwFC2RlbGl2ZXJ5RmVlCQCXCgUFDHByb2xvZ1Jlc3VsdAUKc2hvcFdoU2F2ZQUGd2hTYXZlBQtzdGF0c1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQc2VsbFByb2R1Y3RzVG9FUwEHYW1vdW50cwQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECEk5vIHBheW1lbnRzIG5lZWRlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFBCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEFpcnBvcnQsIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQIcHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAvAkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8EBWVzS2V5CQEOa2V5RXNXYXJlaG91c2UABAhleGlzdFN0cgkAoggBBQVlc0tleQQMZXhpc3RBbW91bnRzAwkBCWlzRGVmaW5lZAEFCGV4aXN0U3RyCQC8CQIJAQV2YWx1ZQEFCGV4aXN0U3RyAgFfBQNuaWwKAQhtb3ZlUHJvZAIDYWNjCXJlY2lwZVN0cgQBaggFA2FjYwJfMQQIcXVhbnRpdHkDCQBmAgkAkAMBBQdhbW91bnRzBQFqCQCRAwIFB2Ftb3VudHMFAWoAAAMJAGYCAAAFCHF1YW50aXR5CQACAQIbUXVhbnRpdHkgY2Fubm90IGJlIG5lZ2F0aXZlBAZyZWNpcGUJALUJAgUJcmVjaXBlU3RyAgFfAwkBAiE9AgkAkAMBBQZyZWNpcGUFClJFQ0lQRVNJWkUJAAIBCQCsAgICF0ZhdGFsOiB1bmtub3duIHJlY2lwZTogBQlyZWNpcGVTdHIECW1heEFtb3VudAkAaAIFDUVTTUFYUEFDS0FHRVMFDlBST0RVQ1RQS0dTSVpFBAtleGlzdEFtb3VudAMJAGYCCQCQAwEFDGV4aXN0QW1vdW50cwUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDGV4aXN0QW1vdW50cwUBagAABAZjYW5CdXkJAGUCBQltYXhBbW91bnQFC2V4aXN0QW1vdW50AwkAZgIFCHF1YW50aXR5BQZjYW5CdXkJAAIBCQCsAgIJAKwCAgkArAICAhdXYXJlaG91c2UgY2FuIGJ1eSBvbmx5IAkApAMBBQZjYW5CdXkCBCBvZiAJAJEDAgUJcHJvZFR5cGVzBQFqBAh0b3RhbE1hdAkBEmdldFJlY2lwZU1hdGVyaWFscwEFBnJlY2lwZQQJdW5pdFByaWNlCQBrAwkAaAIFCHRvdGFsTWF0BQlFU0JVWUNPRUYFEFJFU09VUkNFUFJJQ0VNSU4JAGgCBQVNVUxUOAUOUFJPRFVDVFBLR1NJWkUEDGJwUHJvZEFtb3VudAMJAGYCCQCQAwEFCHByb2RMaXN0BQFqCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUIcHJvZExpc3QFAWoAAAMJAGYCBQhxdWFudGl0eQUMYnBQcm9kQW1vdW50CQACAQkArAICCQCsAgIJAKwCAgIOWW91IGhhdmUgb25seSAJAKQDAQUMYnBQcm9kQW1vdW50AgQgb2YgCQCRAwIFCXByb2RUeXBlcwUBagkAlwoFCQBkAgUBagABCQBkAggFA2FjYwJfMgkAaAIFCXVuaXRQcmljZQUIcXVhbnRpdHkJAM0IAggFA2FjYwJfMwkApAMBCQBlAgUMYnBQcm9kQW1vdW50BQhxdWFudGl0eQkAzQgCCAUDYWNjAl80CQCkAwEJAGQCBQtleGlzdEFtb3VudAUIcXVhbnRpdHkJAGQCCAUDYWNjAl81CQBoAgUIdG90YWxNYXQFCHF1YW50aXR5BAZtZXJnZWQKAAIkbAUQcHJvZHVjdGlvbk1hdHJpeAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJcKBQAAAAAFA25pbAUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCG1vdmVQcm9kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIECG5ld0JwU3RyCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAkAzAgCCQC6CQIIBQZtZXJnZWQCXzMCAV8FA25pbAIBOgQGYnBTYXZlCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUIbmV3QnBTdHIFA25pbAUDbmlsBAtzdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCD3VwZGF0ZUR1Y2tTdGF0cwkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCCQBrAwUKeHBTZWxsVG9FcwgFBm1lcmdlZAJfNQkAaAIFBU1VTFQ4AAoFA25pbAUDbmlsCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgUFZXNLZXkJALoJAggFBm1lcmdlZAJfNAIBXwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIIBQZtZXJnZWQCXzIFC3VzZHRBc3NldElkBQNuaWwJAJUKAwUGYnBTYXZlBQxwcm9sb2dSZXN1bHQFC3N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBD3VwZGF0ZUVzU3RvcmFnZQEKbmV3U3RvcmFnZQMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5RXNXYXJlaG91c2UABQpuZXdTdG9yYWdlBQNuaWwFCm5ld1N0b3JhZ2UBaQEUdXBkYXRlRGVsaXZlcnlMb2NrZWQBCW5ld0Ftb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgURZGVsaXZlcnlMb2NrZWRLZXkFCW5ld0Ftb3VudAUDbmlsBQluZXdBbW91bnQBaQESc2VuZERlbGl2ZXJ5UmV3YXJkAQRhZGRyAwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQJZnVuZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFD2RlbGl2ZXJ5RnVuZEtleQAABAtsb2NrZWRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRFkZWxpdmVyeUxvY2tlZEtleQAABAthY3Jlc0Ftb3VudAkAaAIFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSBAthY3Jlc1Jlc3VsdAkA/AcEBQ1hY3Jlc0NvbnRyYWN0AglzZW5kQWNyZXMJAMwIAgUEYWRkcgkAzAgCBQthY3Jlc0Ftb3VudAUDbmlsBQNuaWwJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUPZGVsaXZlcnlGdW5kS2V5CQBlAgUJZnVuZFRvdGFsBRVNSU5fVVNEVF9GRUVfREVMSVZFUlkJAMwIAgkBDEludGVnZXJFbnRyeQIFEWRlbGl2ZXJ5TG9ja2VkS2V5CQBlAgULbG9ja2VkVG90YWwFFU1JTl9VU0RUX0ZFRV9ERUxJVkVSWQUDbmlsBQthY3Jlc1Jlc3VsdADccras",
    "height": 2804014,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7ULUxtdwr4y9e2TFrzHWyK3ibTrU538Y1pBkwpGNRwpy
Next: 3kdaZ5sHGDHH1LJEs8F2ULn5UyAp38iW61jJoZBE9ybX

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

Old	New		Differences
24	24		let MIN_USDT_FEE_DELIVERY = 50000
25	25
26	26		let MIN_USDT_FEE_DELIVERY15 = 75000
	27	+
	28	+	let CRAFT_USDT_COST = 1000000
	29	+
	30	+	let CRAFT_DELIVERY_COEFF = 10
27	31
28	32		let USDT2ACRES_MULTIPLIER = 10
29	33

740	744		}
741	745
742	746
	747	+	func craftGoodsCommon (matList,prodList,manufactoryContinent,productIdx,quantity) = if ((0 >= quantity))
	748	+	then throw("Quantity should be positive")
	749	+	else if (if ((0 > productIdx))
	750	+	then true
	751	+	else (productIdx >= size(productionMatrix)))
	752	+	then throw(("Unknown product idx=" + toString(productIdx)))
	753	+	else {
	754	+	let recipe = split(productionMatrix[productIdx], "_")
	755	+	if ((size(recipe) != RECIPESIZE))
	756	+	then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx]))
	757	+	else {
	758	+	let productContIdx = parseIntValue(recipe[rIdxContinent])
	759	+	if ((continents[productContIdx] != manufactoryContinent))
	760	+	then throw(((("This product is available in " + continents[productContIdx]) + ", not in ") + manufactoryContinent))
	761	+	else {
	762	+	func filler (acc,ignoredItem) = {
	763	+	let n = acc._2
	764	+	let xs = if ((size(prodList) > n))
	765	+	then prodList[n]
	766	+	else "0"
	767	+	let x = parseIntValue(xs)
	768	+	let amount = (quantity * PRODUCTPKGSIZE)
	769	+	let y = if ((n == productIdx))
	770	+	then toString((x + amount))
	771	+	else xs
	772	+	$Tuple2((acc._1 :+ y), (n + 1))
	773	+	}
	774	+
	775	+	let newProd = ( let $l = productionMatrix
	776	+	let $s = size($l)
	777	+	let $acc0 = $Tuple2(nil, 0)
	778	+	func $f0_1 ($a,$i) = if (($i >= $s))
	779	+	then $a
	780	+	else filler($a, $l[$i])
	781	+
	782	+	func $f0_2 ($a,$i) = if (($i >= $s))
	783	+	then $a
	784	+	else throw("List size exceeds 50")
	785	+
	786	+	$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
	787	+	func producer (acc,j) = {
	788	+	let needMat = (((parseIntValue(recipe[j]) * MULT5) * quantity) * parseIntValue(recipe[rIdxCoeff]))
	789	+	let haveMat = parseIntValue(matList[j])
	790	+	if ((needMat > haveMat))
	791	+	then throw(((((((("You have " + fixedPoint(haveMat, 8)) + " of ") + matTypes[j]) + ", but recipe requires ") + fixedPoint(needMat, 8)) + " for quantity ") + toString(quantity)))
	792	+	else if ((needMat > 0))
	793	+	then $Tuple2((acc._1 :+ toString((haveMat - needMat))), (acc._2 + needMat))
	794	+	else $Tuple2((acc._1 :+ matList[j]), acc._2)
	795	+	}
	796	+
	797	+	let merged = {
	798	+	let $l = ITER6
	799	+	let $s = size($l)
	800	+	let $acc0 = $Tuple2(nil, 0)
	801	+	func $f1_1 ($a,$i) = if (($i >= $s))
	802	+	then $a
	803	+	else producer($a, $l[$i])
	804	+
	805	+	func $f1_2 ($a,$i) = if (($i >= $s))
	806	+	then $a
	807	+	else throw("List size exceeds 6")
	808	+
	809	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	810	+	}
	811	+	$Tuple3(merged._1, newProd, merged._2)
	812	+	}
	813	+	}
	814	+	}
	815	+
	816	+
743	817		@Callable(i)
744	818		func recalcLockedVolumeREADONLY (landAssetId,wh) = {
745	819		let currentOrd = getOrder(keyOrderByLand(landAssetId))

771	845		else {
772	846		let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
773	847		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
	848	+	let $t02889329019 = sellResourcesCommon(resList, curLocation[locIdxId], amounts, minPrices)
	849	+	let factoryActions = $t02889329019._1
	850	+	let newRes = $t02889329019._2
	851	+	let usdtReceived = $t02889329019._3
	852	+	let totalRes = $t02889329019._4
779	853		let activitiesAmount = (usdtReceived / 100)
780	854		let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
781	855		let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))

793	867		func sellResourcesWorld (addr,amount) = if ((i.caller != acresContract))
794	868		then throw("Permission denied")
795	869		else {
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
	870	+	let $t02981129968 = sellResourcesWorldInternal(amount)
	871	+	let factoryActions = $t02981129968._1
	872	+	let usdtLeft = $t02981129968._2
	873	+	let fee = $t02981129968._3
	874	+	let activitiesAmount = $t02981129968._4
	875	+	let totalRes = $t02981129968._5
802	876		if ((0 >= usdtLeft))
803	877		then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))
804	878		else {

830	904		else {
831	905		let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
832	906		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
	907	+	let $t03120431325 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
	908	+	let factoryActions = $t03120431325._1
	909	+	let newRes = $t03120431325._2
	910	+	let usdtReceived = $t03120431325._3
	911	+	let totalRes = $t03120431325._4
838	912		let newPack = makeString_2C([currentPack[bpIdxLevel], makeString(newRes, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
839	913		let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
840	914		let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalRes, MULT8)], nil))
841	915		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
	916	+	let fee = max([feePart, MIN_USDT_FEE_DELIVERY])
845	917		let activitiesAmount = (usdtReceived / 100)
846	918		if ((fee >= (usdtReceived - activitiesAmount)))
847	919		then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))

878	950		let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
879	951		let currentWh = split_4C(wh, ":")
880	952		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
	953	+	let $t03331633437 = sellResourcesCommon(resList, factoryContinent, amounts, minPrices)
	954	+	let factoryActions = $t03331633437._1
	955	+	let newRes = $t03331633437._2
	956	+	let usdtReceived = $t03331633437._3
	957	+	let totalRes = $t03331633437._4
886	958		let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), currentWh[whIdxMat], currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
887	959		let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
888	960		let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalRes, MULT8)], nil))
889	961		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
	962	+	let fee = max([feePart, MIN_USDT_FEE_DELIVERY])
893	963		let activitiesAmount = (usdtReceived / 100)
894	964		if ((fee >= (usdtReceived - activitiesAmount)))
895	965		then throw(("This trade does not cover delivery cost of " + fixedPoint(fee, 6)))

927	997		else {
928	998		let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
929	999		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
	1000	+	let $t03526135383 = buyMaterialsCommon(matList, curLocation[locIdxId], amounts, maxPrices)
	1001	+	let factoryActions = $t03526135383._1
	1002	+	let newMat = $t03526135383._2
	1003	+	let usdtSpent = $t03526135383._3
	1004	+	let totalMat = $t03526135383._4
935	1005		if ((usdtSpent > amt))
936	1006		then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
937	1007		else {

973	1043		else {
974	1044		let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
975	1045		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
	1046	+	let $t03690437021 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
	1047	+	let factoryActions = $t03690437021._1
	1048	+	let newMat = $t03690437021._2
	1049	+	let usdtSpent = $t03690437021._3
	1050	+	let totalMat = $t03690437021._4
981	1051		let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), currentPack[bpIdxProd]], ":")
982	1052		let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
983	1053		let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpTrade, totalMat, MULT8)], nil))
984	1054		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
	1055	+	let fee = max([feePart, MIN_USDT_FEE_DELIVERY])
988	1056		let usdtSpentWithFee = (usdtSpent + fee)
989	1057		if ((usdtSpentWithFee > amt))
990	1058		then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))

1033	1101		let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil))
1034	1102		let currentWh = split_4C(wh, ":")
1035	1103		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
	1104	+	let $t03926339380 = buyMaterialsCommon(matList, factoryContinent, amounts, maxPrices)
	1105	+	let factoryActions = $t03926339380._1
	1106	+	let newMat = $t03926339380._2
	1107	+	let usdtSpent = $t03926339380._3
	1108	+	let totalMat = $t03926339380._4
1041	1109		let whStr = makeString_2C([currentWh[whIdxLevels], currentWh[whIdxRes], makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1042	1110		let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1043	1111		let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalMat, MULT8)], nil))
1044	1112		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
	1113	+	let fee = max([feePart, MIN_USDT_FEE_DELIVERY])
1048	1114		let usdtSpentWithFee = (usdtSpent + fee)
1049	1115		if ((usdtSpentWithFee > amt))
1050	1116		then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))

1088	1154		let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1089	1155		let resList = split(currentPack[bpIdxRes], "_")
1090	1156		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
	1157	+	let $t04145841564 = exchangeResourcesCommon(resList, matList, amounts)
	1158	+	let newRes = $t04145841564._1
	1159	+	let newMat = $t04145841564._2
	1160	+	let usdtSpent = $t04145841564._3
	1161	+	let totalAmountConverted = $t04145841564._4
1096	1162		if ((usdtSpent > amt))
1097	1163		then throw(((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)))
1098	1164		else {

1135	1201		let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
1136	1202		let resList = split(currentPack[bpIdxRes], "_")
1137	1203		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
	1204	+	let $t04307943185 = exchangeResourcesCommon(resList, matList, amounts)
	1205	+	let newRes = $t04307943185._1
	1206	+	let newMat = $t04307943185._2
	1207	+	let usdtSpent = $t04307943185._3
	1208	+	let totalAmountConverted = $t04307943185._4
1143	1209		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
	1210	+	let fee = max([feePart, MIN_USDT_FEE_DELIVERY15])
1147	1211		let usdtSpentWithFee = (usdtSpent + fee)
1148	1212		if ((usdtSpentWithFee > amt))
1149	1213		then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))

1196	1260		let currentWh = split_4C(wh, ":")
1197	1261		let resList = split(currentWh[whIdxRes], "_")
1198	1262		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
	1263	+	let $t04544745553 = exchangeResourcesCommon(resList, matList, amounts)
	1264	+	let newRes = $t04544745553._1
	1265	+	let newMat = $t04544745553._2
	1266	+	let usdtSpent = $t04544745553._3
	1267	+	let totalAmountConverted = $t04544745553._4
1204	1268		let whStr = makeString_2C([currentWh[whIdxLevels], makeString(newRes, "_"), makeString(newMat, "_"), currentWh[whIdxProd], currentWh[whIdxLOFT]], ":")
1205	1269		let whSave = asString(invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil))
1206	1270		let statsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, fraction(xpTrade, totalAmountConverted, MULT8)], nil))
1207	1271		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
	1272	+	let fee = max([feePart, MIN_USDT_FEE_DELIVERY15])
1211	1273		let usdtSpentWithFee = (usdtSpent + fee)
1212	1274		if ((usdtSpentWithFee > amt))
1213	1275		then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(usdtSpent, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))

1237	1299		else {
1238	1300		let pmt = i.payments[0]
1239	1301		let amt = pmt.amount
1240		-	let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
1241		-	if ((pmtAssetId != usdtAssetId))
	1302	+	if (if (!(isDefined(pmt.assetId)))
	1303	+	then true
	1304	+	else (value(pmt.assetId) != usdtAssetId))
1242	1305		then throw("USDT payments only!")
1243	1306		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		-	}
1284		-
1285		-	let bpProd = ( let $l = productionMatrix
1286		-	let $s = size($l)
1287		-	let $acc0 = $Tuple2(nil, 0)
1288		-	func $f0_1 ($a,$i) = if (($i >= $s))
1289		-	then $a
1290		-	else filler($a, $l[$i])
1291		-
1292		-	func $f0_2 ($a,$i) = if (($i >= $s))
1293		-	then $a
1294		-	else throw("List size exceeds 50")
1295		-
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))
1325		-	}
1326		-	}
1327		-	}
1328		-	}
1329		-	}
	1307	+	then throw((("exactly " + fixedPoint(CRAFT_USDT_COST, 6)) + " USDT must be attached as payment"))
	1308	+	else {
	1309	+	let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
	1310	+	let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
	1311	+	if ((curLocation[locIdxType] != "M"))
	1312	+	then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType]))
	1313	+	else {
	1314	+	let cont = curLocation[locIdxContinent]
	1315	+	let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
	1316	+	let matList = split(currentPack[bpIdxMat], "_")
	1317	+	let prodList = if ((currentPack[bpIdxProd] == ""))
	1318	+	then nil
	1319	+	else split_4C(currentPack[bpIdxProd], "_")
	1320	+	let $t04787847975 = craftGoodsCommon(matList, prodList, cont, productIdx, quantity)
	1321	+	let newMat = $t04787847975._1
	1322	+	let newProd = $t04787847975._2
	1323	+	let matSpent = $t04787847975._3
	1324	+	let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), makeString_2C(newProd, "_")], ":")
	1325	+	let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
	1326	+	let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpCraft, matSpent, MULT8)], nil))
	1327	+	$Tuple2(nil, $Tuple3(result, prologResult, statsResult))
	1328	+	}
	1329	+	}
1330	1330		}
1331	1331		else throw("Strict value is not equal to itself.")
1332	1332		}
	1333	+
	1334	+
	1335	+
	1336	+	@Callable(i)
	1337	+	func craftGoodsDuckDelivery (productIdx,quantity,manufactoryContinent) = if (!(KS_ALLOW_DELIVERY))
	1338	+	then throw("Delivery feature is turned off!")
	1339	+	else {
	1340	+	let prologResult = prolog()
	1341	+	if ((prologResult == prologResult))
	1342	+	then {
	1343	+	let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
	1344	+	if ((size(i.payments) != 1))
	1345	+	then throw("exactly 1 payment must be attached")
	1346	+	else {
	1347	+	let pmt = i.payments[0]
	1348	+	let amt = pmt.amount
	1349	+	if (if (!(isDefined(pmt.assetId)))
	1350	+	then true
	1351	+	else (value(pmt.assetId) != usdtAssetId))
	1352	+	then throw("USDT payments only!")
	1353	+	else {
	1354	+	let currentPack = getBackpack(keyBackpackByDuck(duckAssetId))
	1355	+	let matList = split(currentPack[bpIdxMat], "_")
	1356	+	let prodList = if ((currentPack[bpIdxProd] == ""))
	1357	+	then nil
	1358	+	else split_4C(currentPack[bpIdxProd], "_")
	1359	+	let $t04920049313 = craftGoodsCommon(matList, prodList, manufactoryContinent, productIdx, quantity)
	1360	+	let newMat = $t04920049313._1
	1361	+	let newProd = $t04920049313._2
	1362	+	let matSpent = $t04920049313._3
	1363	+	let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(newMat, "_"), makeString_2C(newProd, "_")], ":")
	1364	+	let backpackResult = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
	1365	+	let statsResult = asInt(invoke(stakingContract, "updateDuckStats", [duckAssetId, fraction(xpCraft, matSpent, MULT8)], nil))
	1366	+	let feePart = fraction(quantity, MIN_USDT_FEE_DELIVERY, CRAFT_DELIVERY_COEFF)
	1367	+	let fee = max([feePart, MIN_USDT_FEE_DELIVERY])
	1368	+	let usdtSpentWithFee = (CRAFT_USDT_COST + fee)
	1369	+	if ((usdtSpentWithFee > amt))
	1370	+	then throw((((((("Insufficient payment! Attached=" + fixedPoint(amt, 6)) + ", required=") + fixedPoint(CRAFT_USDT_COST, 6)) + "+") + fixedPoint(fee, 6)) + "(delivery fee)"))
	1371	+	else {
	1372	+	let rest = if (((amt - usdtSpentWithFee) > 0))
	1373	+	then [ScriptTransfer(i.caller, (amt - usdtSpentWithFee), usdtAssetId)]
	1374	+	else nil
	1375	+	let fundTotal = valueOrElse(getInteger(deliveryFundKey), 0)
	1376	+	$Tuple2((rest :+ IntegerEntry(deliveryFundKey, (fundTotal + fee))), $Tuple3(backpackResult, prologResult, statsResult))
	1377	+	}
	1378	+	}
	1379	+	}
	1380	+	}
	1381	+	else throw("Strict value is not equal to itself.")
	1382	+	}
	1383	+
	1384	+
	1385	+
	1386	+	@Callable(i)
	1387	+	func craftGoodsLandDelivery (productIdx,quantity,landAssetId,manufactoryContinent) = if (!(KS_ALLOW_DELIVERY))
	1388	+	then throw("Delivery feature is turned off!")
	1389	+	else {
	1390	+	let prologResult = prolog()
	1391	+	if ((prologResult == prologResult))
	1392	+	then if ((size(i.payments) != 1))
	1393	+	then throw("exactly 1 payment must be attached")
	1394	+	else {
	1395	+	let pmt = i.payments[0]
	1396	+	let amt = pmt.amount
	1397	+	if (if (!(isDefined(pmt.assetId)))
	1398	+	then true
	1399	+	else (value(pmt.assetId) != usdtAssetId))
	1400	+	then throw("USDT payments only!")
	1401	+	else {
	1402	+	let user = i.caller
	1403	+	let addr = toString(user)
	1404	+	let asset = value(assetInfo(fromBase58String(landAssetId)))
	1405	+	if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)))))

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	+
	28	+	let CRAFT_USDT_COST = 1000000
	29	+
	30	+	let CRAFT_DELIVERY_COEFF = 10
27	31
28	32		let USDT2ACRES_MULTIPLIER = 10
29	33
30	34		let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
31	35
32	36		let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
33	37
34	38		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	39
36	40		let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
37	41
38	42		let COEFF2MAT = 10000000
39	43
40	44		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	45
42	46		let rIdxCoeff = 6
43	47
44	48		let rIdxContinent = 7
45	49
46	50		let RECIPESIZE = 11
47	51
48	52		let PRODUCTPKGSIZE = 10
49	53
50	54		let whIdxLevels = 0
51	55
52	56		let whIdxRes = 1
53	57
54	58		let whIdxMat = 2
55	59
56	60		let whIdxProd = 3
57	61
58	62		let whIdxLOFT = 4
59	63
60	64		let volLocked = 0
61	65
62	66		let volTotal = 3
63	67
64	68		let bpIdxLevel = 0
65	69
66	70		let bpIdxRes = 1
67	71
68	72		let bpIdxMat = 2
69	73
70	74		let bpIdxProd = 3
71	75
72	76		let locIdxContinent = 0
73	77
74	78		let locIdxType = 1
75	79
76	80		let locIdxId = 2
77	81
78	82		func keyLandAssetIdToOwner (assetId) = ("no_" + assetId)
79	83
80	84
81	85		func keyStakedTimeByAssetId (assetId) = ("st_" + assetId)
82	86
83	87
84	88		func keyAddressRefBy (addr) = ("accRefBy_" + addr)
85	89
86	90
87	91		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
88	92
89	93
90	94		func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
91	95
92	96
93	97		func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
94	98
95	99
96	100		func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
97	101
98	102
99	103		func keyEsWarehouse () = "emergencyWarehouseProducts"
100	104
101	105
102	106		let deliveryFundKey = "deliveryFund"
103	107
104	108		let deliveryLockedKey = "deliveryLocked"
105	109
106	110		func getRecipeMaterials (recipe) = (parseIntValue(recipe[rIdxCoeff]) * COEFF2MAT)
107	111
108	112
109	113		let KS_ALLOW_DELIVERY = true
110	114
111	115		let chain = take(drop(this.bytes, 1), 1)
112	116
113	117		let usdtAssetId = match chain {
114	118		case _ =>
115	119		if ((base58'2W' == $match0))
116	120		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
117	121		else if ((base58'2T' == $match0))
118	122		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
119	123		else throw("Unknown chain")
120	124		}
121	125
122	126		let defaultRestAddressStr = match chain {
123	127		case _ =>
124	128		if ((base58'2W' == $match0))
125	129		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
126	130		else if ((base58'2T' == $match0))
127	131		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
128	132		else throw("Unknown chain")
129	133		}
130	134
131	135		let SEP = "__"
132	136
133	137		let MULT5 = 100000
134	138
135	139		let MULT6 = 1000000
136	140
137	141		let MULT8 = 100000000
138	142
139	143		let MULT10 = 10000000000
140	144
141	145		let MINSHOPPAYMENT = 100000
142	146
143	147		let ITER6 = [0, 1, 2, 3, 4, 5]
144	148
145	149		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
146	150
147	151
148	152		let IdxCfgStakingDapp = 1
149	153
150	154		let IdxCfgInvestFundDapp = 6
151	155
152	156		let IdxCfgAcresDapp = 8
153	157
154	158		func keyRestCfg () = "%s__restConfig"
155	159
156	160
157	161		func keyRestAddress () = "%s__restAddr"
158	162
159	163
160	164		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
161	165
162	166
163	167		func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
164	168
165	169
166	170		let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
167	171
168	172		let restCfg = readRestCfgOrFail(restContract)
169	173
170	174		let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
171	175
172	176		let investFundContract = getContractAddressOrFail(restCfg, IdxCfgInvestFundDapp)
173	177
174	178		let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
175	179
176	180		func asString (v) = match v {
177	181		case s: String =>
178	182		s
179	183		case _ =>
180	184		throw("fail to cast into String")
181	185		}
182	186
183	187
184	188		func asInt (v) = match v {
185	189		case n: Int =>
186	190		n
187	191		case _ =>
188	192		throw("fail to cast into Int")
189	193		}
190	194
191	195
192	196		func keyBlocked () = "contractsBlocked"
193	197
194	198
195	199		func fixedPoint (val,decimals) = {
196	200		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
197	201		let lowPart = toString((val % tenPow))
198	202		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
199	203		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
200	204		}
201	205
202	206
203	207		let FACTORYMAXWAREHOUSE = 10000000000
204	208
205	209		let SELLMULTIPLIER = 200
206	210
207	211		let BUYMULTIPLIER = 300
208	212
209	213		let AUCTIONFEE = 10000
210	214
211	215		let DELIVERY_FEE = 10000
212	216
213	217		let DELIVERY_FEE15 = 15000
214	218
215	219		func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
216	220
217	221
218	222		let ordIdxRes = 0
219	223
220	224		let ordIdxMat = 1
221	225
222	226		let ordIdxProd = 2
223	227
224	228		func getOrder (ordKey) = {
225	229		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	230		[if ((size(split(p[ordIdxRes], "_")) == NUMRES))
227	231		then p[ordIdxRes]
228	232		else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES))
229	233		then p[ordIdxMat]
230	234		else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]]
231	235		}
232	236
233	237
234	238		func toVolume (amount,pkgSize,isProduct) = if (isProduct)
235	239		then {
236	240		let pkgs = if ((amount >= 0))
237	241		then (((amount + pkgSize) - 1) / pkgSize)
238	242		else -((((-(amount) + pkgSize) - 1) / pkgSize))
239	243		(pkgs * MULT8)
240	244		}
241	245		else amount
242	246
243	247
244	248		func sellInternal (locId,resType,amount,minPrice) = {
245	249		let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
246	250		let w0 = valueOrElse(getInteger(whKey), 0)
247	251		let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
248	252		then 0
249	253		else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
250	254		then (FACTORYMAXWAREHOUSE - w0)
251	255		else amount
252	256		let usdtReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
253	257		let min99 = (minPrice - (minPrice / 100))
254	258		if (((min99 * amount) > (usdtReceived * MULT8)))
255	259		then throw((((((((((("Actual price = " + toString(usdtReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
256	260		else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdtReceived)
257	261		}
258	262
259	263
260	264		func buyInternal (locId,matType,amount,maxPrice) = {
261	265		let whKey = keyFactoryWarehouseByIdAndType(locId, matType)
262	266		let w0 = valueOrElse(getInteger(whKey), 0)
263	267		let m1 = if ((w0 > FACTORYMAXWAREHOUSE))
264	268		then min([amount, (w0 - FACTORYMAXWAREHOUSE)])
265	269		else 0
266	270		let m0 = min([w0, (amount - m1)])
267	271		let m = (m0 + m1)
268	272		let w0min = min([w0, FACTORYMAXWAREHOUSE])
269	273		let usdtSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0min) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8))
270	274		let max101 = (maxPrice + (maxPrice / 100))
271	275		if (((usdtSpent * MULT8) > (max101 * m)))
272	276		then throw((((((((((("Actual price = " + toString(usdtSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")"))
273	277		else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdtSpent, m)
274	278		}
275	279
276	280
277	281		func getBackpack (bpKey) = {
278	282		let p = split_4C(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
279	283		[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
280	284		then p[bpIdxRes]
281	285		else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
282	286		then p[bpIdxMat]
283	287		else "0_0_0_0_0_0", p[bpIdxProd]]
284	288		}
285	289
286	290
287	291		func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
288	292		then throw("Contracts are under maintenance")
289	293		else unit
290	294
291	295
292	296		func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
293	297
294	298
295	299		func setCommon (acc,ignoredIterator) = {
296	300		let j = acc._1
297	301		let item = if ((size(acc._10) > j))
298	302		then acc._10[j]
299	303		else "0@0"
300	304		let isProd = acc._8
301	305		let itemParts = split(item, "@")
302	306		if ((size(itemParts) != 2))
303	307		then throw("Incorrect order format, should be amount@price")
304	308		else {
305	309		let newOrdAm = parseIntValue(itemParts[0])
306	310		let newOrdPr = parseIntValue(itemParts[1])
307	311		let newOrdUsd = if (isProd)
308	312		then (newOrdAm * newOrdPr)
309	313		else fraction(newOrdAm, newOrdPr, MULT8)
310	314		let newOrdVol = toVolume(newOrdAm, PRODUCTPKGSIZE, isProd)
311	315		let whInit = if ((size(acc._6) > j))
312	316		then parseIntValue(acc._6[j])
313	317		else 0
314	318		let curOrdParts = split(if ((size(acc._7) > j))
315	319		then acc._7[j]
316	320		else "0@0", "@")
317	321		let curOrdAm = parseIntValue(curOrdParts[0])
318	322		let curOrdPr = parseIntValue(curOrdParts[1])
319	323		if (if ((0 > curOrdPr))
320	324		then true
321	325		else (0 > newOrdPr))
322	326		then throw("Price can't be negative")
323	327		else {
324	328		let curOrdUsd = if (isProd)
325	329		then (curOrdAm * curOrdPr)
326	330		else fraction(curOrdAm, curOrdPr, MULT8)
327	331		if ((newOrdAm == 0))
328	332		then if ((curOrdAm > 0))
329	333		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	334		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	335		else if ((newOrdAm > 0))
332	336		then if ((0 > curOrdAm))
333	337		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	338		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	339		else if ((0 > curOrdAm))
336	340		then {
337	341		let amDiff = (curOrdAm - newOrdAm)
338	342		if ((0 > (whInit - amDiff)))
339	343		then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whInit)) + " available"))
340	344		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	345		}
342	346		else if ((0 > (whInit + newOrdAm)))
343	347		then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whInit)) + " available"))
344	348		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	349		}
346	350		}
347	351		}
348	352
349	353
350	354		func setInternal (currentWh,currentOrd,newOrd) = {
351	355		let currWhRes = split(currentWh[whIdxRes], "_")
352	356		let currWhMat = split(currentWh[whIdxMat], "_")
353	357		let currWhProd = if ((currentWh[whIdxProd] == ""))
354	358		then nil
355	359		else split_4C(currentWh[whIdxProd], "_")
356	360		let currentOrdRes = split(currentOrd[ordIdxRes], "_")
357	361		let currentOrdMat = split(currentOrd[ordIdxMat], "_")
358	362		let currentOrdProd = if ((currentOrd[ordIdxProd] == ""))
359	363		then nil
360	364		else split_4C(currentOrd[ordIdxProd], "_")
361	365		if ((size(newOrd) != 3))
362	366		then throw("newOrderStr should contain exactly 2 ':' separators")
363	367		else {
364	368		let resParts = split(newOrd[0], "_")
365	369		let matParts = split(newOrd[1], "_")
366	370		let prodParts = if ((newOrd[2] == ""))
367	371		then nil
368	372		else split_4C(newOrd[2], "_")
369	373		if ((size(resParts) != NUMRES))
370	374		then throw("All 6 resources should be passed")
371	375		else if ((size(matParts) != NUMRES))
372	376		then throw("All 6 materials should be passed")
373	377		else {
374	378		let r = {
375	379		let $l = resTypes
376	380		let $s = size($l)
377	381		let $acc0 = $Tuple10(0, nil, 0, 0, 0, currWhRes, currentOrdRes, false, 0, resParts)
378	382		func $f0_1 ($a,$i) = if (($i >= $s))
379	383		then $a
380	384		else setCommon($a, $l[$i])
381	385
382	386		func $f0_2 ($a,$i) = if (($i >= $s))
383	387		then $a
384	388		else throw("List size exceeds 6")
385	389
386	390		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
387	391		}
388	392		let m = {
389	393		let $l = matTypes
390	394		let $s = size($l)
391	395		let $acc0 = $Tuple10(0, nil, r._3, r._4, r._5, currWhMat, currentOrdMat, false, r._9, matParts)
392	396		func $f1_1 ($a,$i) = if (($i >= $s))
393	397		then $a
394	398		else setCommon($a, $l[$i])
395	399
396	400		func $f1_2 ($a,$i) = if (($i >= $s))
397	401		then $a
398	402		else throw("List size exceeds 6")
399	403
400	404		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
401	405		}
402	406		let p = {
403	407		let $l = prodTypes
404	408		let $s = size($l)
405	409		let $acc0 = $Tuple10(0, nil, m._3, m._4, m._5, currWhProd, currentOrdProd, true, m._9, prodParts)
406	410		func $f2_1 ($a,$i) = if (($i >= $s))
407	411		then $a
408	412		else setCommon($a, $l[$i])
409	413
410	414		func $f2_2 ($a,$i) = if (($i >= $s))
411	415		then $a
412	416		else throw("List size exceeds 50")
413	417
414	418		$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	419		}
416	420		$Tuple7(r._2, m._2, p._2, p._3, p._4, p._5, p._9)
417	421		}
418	422		}
419	423		}
420	424
421	425
422	426		func acceptCommon (acc,bpOrdItem) = {
423	427		let j = acc._7
424	428		let isProd = acc._12
425	429		let bpOrdParts = split(bpOrdItem, "@")
426	430		if ((size(bpOrdParts) != 2))
427	431		then throw("Incorrect order format, should be amount@price")
428	432		else {
429	433		let bpOrdAm = parseIntValue(bpOrdParts[0])
430	434		let bpOrdPr = parseIntValue(bpOrdParts[1])
431	435		if ((0 > bpOrdPr))
432	436		then throw("Price can't be negative")
433	437		else {
434	438		let bpOrdUsd = if (isProd)
435	439		then (bpOrdAm * bpOrdPr)
436	440		else fraction(bpOrdAm, bpOrdPr, MULT8)
437	441		let bpInit = if ((size(acc._8) > j))
438	442		then parseIntValue(acc._8[j])
439	443		else 0
440	444		let whInit = if ((size(acc._9) > j))
441	445		then parseIntValue(acc._9[j])
442	446		else 0
443	447		let whOrdInit = if ((size(acc._10) > j))
444	448		then acc._10[j]
445	449		else "0@0"
446	450		let whOrdParts = split(whOrdInit, "@")
447	451		let whOrdAm = parseIntValue(whOrdParts[0])
448	452		let whOrdPr = parseIntValue(whOrdParts[1])
449	453		if (if ((bpOrdAm != 0))
450	454		then (bpOrdPr != whOrdPr)
451	455		else false)
452	456		then throw(((((("Prices of " + acc._11[j]) + " don't match! WH price=") + toString(whOrdPr)) + ", your price=") + toString(bpOrdPr)))
453	457		else {
454	458		let whOrdUsd = if (isProd)
455	459		then (whOrdAm * whOrdPr)
456	460		else fraction(whOrdAm, whOrdPr, MULT8)
457	461		let deltaVol = toVolume(bpOrdAm, PRODUCTPKGSIZE, isProd)
458	462		if ((bpOrdAm == 0))
459	463		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	464		else if ((bpOrdAm > 0))
461	465		then if ((0 > whOrdAm))
462	466		then if ((bpOrdAm > -(whOrdAm)))
463	467		then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + acc._11[j]) + ", but warehouse only sells ") + toString(-(whOrdAm))))
464	468		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	469		then (bpOrdAm * MULT8)
466	470		else bpOrdAm)))
467	471		else throw((("Attempt to buy " + acc._11[j]) + " while warehouse doesn't sell it"))
468	472		else if ((whOrdAm > 0))
469	473		then if ((-(bpOrdAm) > whOrdAm))
470	474		then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + acc._11[j]) + ", but warehouse only buys ") + toString(whOrdAm)))
471	475		else if ((-(bpOrdAm) > bpInit))
472	476		then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + toString(bpInit)) + " of ") + acc._11[j]))
473	477		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	478		then (bpOrdAm * MULT8)
475	479		else bpOrdAm)))
476	480		else throw((("Attempt to sell " + acc._11[j]) + " while warehouse doesn't buy it"))
477	481		}
478	482		}
479	483		}
480	484		}
481	485
482	486
483	487		func sellResourcesCommon (resList,factoryLocId,amounts,minPrices) = {
484	488		func adder (acc,j) = if ((amounts[j] > parseIntValue(resList[j])))
485	489		then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j])))
486	490		else if ((0 > amounts[j]))
487	491		then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j])))
488	492		else if ((amounts[j] > 0))
489	493		then {
490	494		let b = sellInternal(factoryLocId, j, amounts[j], minPrices[j])
491	495		$Tuple4((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2), (acc._4 + amounts[j]))
492	496		}
493	497		else $Tuple4(acc._1, (acc._2 :+ resList[j]), acc._3, acc._4)
494	498
495	499		let $l = ITER6
496	500		let $s = size($l)

github/deemru/w8io/873ac7e 
251.51 ms ◑