tx · 9jUFdyBNDLwr3Gw1evnj8T7NsMLTWo5ALvFVF977EQyw

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.01100000 Waves

2023.02.14 00:06 [2448368] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9jUFdyBNDLwr3Gw1evnj8T7NsMLTWo5ALvFVF977EQyw",
    "fee": 1100000,
    "feeAssetId": null,
    "timestamp": 1676322457708,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "5nqs8QT65K8TNnizdwnQ8fUaqtaWJ23yzriq53grNWZaNwGfAgGYMKKte6vbLc7txKGwwpsFnRiNaofFR9Mg9nuy"
    ],
    "script": "base64:BgIVCAISBAoCERESBAoCERESBQoDAQEBJwAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAAZNVUxUMTAAgMivoCUABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2RuQXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEgtiYpwwT1zlORpA5LdSQvZIxRsfrfr1QpvUjSHSqyqtEDCQAAAgEBVAUHJG1hdGNoMAEg93bq9/eDymXbbhPuAjvPWCmVqcHRjfJL2mzYHWKAyN4JAAIBAg1Vbmtub3duIGNoYWluAA9zdGFraW5nQ29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQTG5jWHRTMVU4M0Q2Y1FiRkQzSDhyQkhQTGd6eFNGS1oxAwkAAAIBAVQFByRtYXRjaDACIzNOREN5Qkc1cTg1SnVhUmlpZ1VlRXRhaW55akNRVDNYcFptCQACAQINVW5rbm93biBjaGFpbgAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EABk5VTVJFUwAGABNGQUNUT1JZTUFYV0FSRUhPVVNFAIDIr6AlABBSRVNPVVJDRVBSSUNFTUlOANXWCQAKTUlOUEFZTUVOVACQTgAOU0VMTE1VTFRJUExJRVIAyAEADUJVWU1VTFRJUExJRVIArAIACHJlc1R5cGVzCQDMCAICA09pbAkAzAgCAgNPcmUJAMwIAgIEV29vZAkAzAgCAgRTYW5kCQDMCAICBENsYXkJAMwIAgIHT3JnYW5pYwUDbmlsAAhtYXRUeXBlcwkAzAgCAgRGdWVsCQDMCAICBU1ldGFsCQDMCAICBVBsYW5rCQDMCAICBUdsYXNzCQDMCAICB1BsYXN0aWMJAMwIAgIHUHJvdGVpbgUDbmlsAApjb250aW5lbnRzCQDMCAICCEFtZXJpY2FzCQDMCAICBkV1cm9wZQkAzAgCAgRBc2lhCQDMCAICBkFmcmljYQkAzAgCAgdPY2VhbmlhBQNuaWwAEHByb2R1Y3Rpb25NYXRyaXgJAMwIAgIQMV8xXzFfMl8yXzVfMV8xMAkAzAgCAhEyXzVfNV8yXzdfNV8yXzEwMAkAzAgCAhAxXzFfMV8yXzJfNV8xXzEwCQDMCAICETlfOV8xXzVfNV8xXzVfMTAwCQDMCAICETFfNV8xXzVfNV8xXzFfMTAwBQNuaWwAD2NvbnRJZHhBbWVyaWNhcwAAAA1jb250SWR4RXVyb3BlAAEAC2NvbnRJZHhBc2lhAAIADWNvbnRJZHhBZnJpY2EAAwAOY29udElkeE9jZWFuaWEABAEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAglmYWN0b3J5SWQHcmVzVHlwZQkArAICCQCsAgIJAKwCAgIbZmFjdG9yeVdoQnlDb250aW5lbnRBbmRSZXNfBQlmYWN0b3J5SWQCAV8JAKQDAQUHcmVzVHlwZQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQBCmtleUJsb2NrZWQAAhBjb250cmFjdHNCbG9ja2VkAA9sb2NJZHhDb250aW5lbnQAAAAKbG9jSWR4VHlwZQABAAhsb2NJZHhJZAACAApicElkeExldmVsAAAACGJwSWR4UmVzAAEACGJwSWR4TWF0AAIACWJwSWR4UHJvZAADAQhhc1N0cmluZwEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAhhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBDHNlbGxJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2RuUmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgUOU0VMTE1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBkAgkAaAIAZAUCdzAJAGgCADIFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkblJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZG5SZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZG5SZWNlaXZlZAELYnV5SW50ZXJuYWwEBWxvY0lkB21hdFR5cGUGYW1vdW50CG1heFByaWNlBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQdtYXRUeXBlBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABAJtMQMJAGYCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAlwMBCQDMCAIFBmFtb3VudAkAzAgCCQBlAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFA25pbAAABAJtMAkAlwMBCQDMCAIFAncwCQDMCAIJAGUCBQZhbW91bnQFAm0xBQNuaWwEAW0JAGQCBQJtMAUCbTEECXVzZG5TcGVudAkAZAIJAGsDBQJtMAkAZQIJAGgCBQ1CVVlNVUxUSVBMSUVSBRBSRVNPVVJDRVBSSUNFTUlOCQBrAwkAZQIJAGgCAGQFAncwCQBoAgAyBQJtMAUQUkVTT1VSQ0VQUklDRU1JTgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUGTVVMVDEwCQBrAwUCbTEJAGgCAAIFEFJFU09VUkNFUFJJQ0VNSU4FBU1VTFQ4BAZtYXgxMDEJAGQCBQhtYXhQcmljZQkAaQIFCG1heFByaWNlAGQDCQBmAgkAaAIFCXVzZG5TcGVudAUFTVVMVDgJAGgCBQZtYXgxMDEFAW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD0FjdHVhbCBwcmljZSA9IAkApAMBBQl1c2RuU3BlbnQCAyAvIAkApAMBBQFtAg4gPiBtYXhQcmljZSA9IAkApAMBBQhtYXhQcmljZQIDLCAoBQVsb2NJZAICLCAJAJEDAgUIbWF0VHlwZXMFB21hdFR5cGUCASkJAJUKAwkBDEludGVnZXJFbnRyeQIFBXdoS2V5CQBlAgUCdzAFAW0FCXVzZG5TcGVudAUBbQELZ2V0QmFja3BhY2sBBWJwS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoCAToJAMwIAgkApAMBCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgUBcAUKYnBJZHhMZXZlbAAACQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeFJlcwILMF8wXzBfMF8wXzAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4TWF0AgswXzBfMF8wXzBfMAkAzAgCCQCRAwIFAXAFCWJwSWR4UHJvZAUDbmlsAQxjaGVja0Jsb2NrZWQAAwkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ9zdGFraW5nQ29udHJhY3QJAQprZXlCbG9ja2VkAAcJAAIBAh9Db250cmFjdHMgYXJlIHVuZGVyIG1haW50ZW5hbmNlBQR1bml0AwFpAQ1zZWxsUmVzb3VyY2VzAgdhbW91bnRzCW1pblByaWNlcwQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIqc2VsbFJlc291cmNlcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBWxvY0lkCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfCgEFYWRkZXICA2FjYwFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCFCwgYnV0IHRyaWVkIHRvIHNlbGwgCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJVlvdSB0cmllZCB0byBzZWxsIG5lZ2F0aXZlIGFtb3VudCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCAjogCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCCQCRAwIFB2Ftb3VudHMFAWoAAAQBYgkBDHNlbGxJbnRlcm5hbAQFBWxvY0lkBQFqCQCRAwIFB2Ftb3VudHMFAWoJAJEDAgUJbWluUHJpY2VzBQFqCQCVCgMJAM0IAggFA2FjYwJfMQgFAWICXzEJAM0IAggFA2FjYwJfMgkApAMBCQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAJEDAgUHYW1vdW50cwUBagkAZAIIBQNhY2MCXzMIBQFiAl8yCQCVCgMIBQNhY2MCXzEJAM0IAggFA2FjYwJfMgkAkQMCBQdyZXNMaXN0BQFqCAUDYWNjAl8zBAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCCQDNCAIIBQZtZXJnZWQCXzEJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcggFBm1lcmdlZAJfMwULdXNkbkFzc2V0SWQFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQxidXlNYXRlcmlhbHMCB2Ftb3VudHMJbWF4UHJpY2VzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZG5Bc3NldElkCQACAQITVVNETiBwYXltZW50cyBvbmx5IQQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVsb2NJZAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwoBCG1VcGRhdGVyAgNhY2MBagMJAGYCAAAJAJEDAgUHYW1vdW50cwUBagkAAgEJAKwCAgkArAICCQCsAgICJFlvdSB0cmllZCB0byBidXkgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhtYXRUeXBlcwUBagICOiAJAKQDAQkAkQMCBQdhbW91bnRzBQFqAwkAZgIJAJEDAgUHYW1vdW50cwUBagAABAFiCQELYnV5SW50ZXJuYWwEBQVsb2NJZAUBagkAkQMCBQdhbW91bnRzBQFqCQCRAwIFCW1heFByaWNlcwUBagkAlQoDCQDNCAIIBQNhY2MCXzEIBQFiAl8xCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqCAUBYgJfMwkAZAIIBQNhY2MCXzMIBQFiAl8yCQCVCgMIBQNhY2MCXzEJAM0IAggFA2FjYwJfMgkAkQMCBQdtYXRMaXN0BQFqCAUDYWNjAl8zBAZtZXJnZWQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhtVXBkYXRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAGYCCAUGbWVyZ2VkAl8zBQNhbXQJAAIBCQCsAgIJAKwCAgkArAICAh9JbnN1ZmZpY2llbnQgcGF5bWVudCEgQXR0YWNoZWQ9CQCkAwEFA2FtdAILLCByZXF1aXJlZD0JAKQDAQgFBm1lcmdlZAJfMwQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQEcmVzdAMJAGYCCQBlAgUDYW10CAUGbWVyZ2VkAl8zAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10CAUGbWVyZ2VkAl8zBQt1c2RuQXNzZXRJZAUDbmlsBQNuaWwJAJQKAgkAzggCCAUGbWVyZ2VkAl8xBQRyZXN0BQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYnV5R29vZHMDCnByb2R1Y3RJZHgFbGV2ZWwIcXVhbnRpdHkEB2Jsb2NrZWQJAQxjaGVja0Jsb2NrZWQAAwkAAAIFB2Jsb2NrZWQFB2Jsb2NrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAiVidXlHb29kcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzAwkAZgIAAAUIcXVhbnRpdHkJAAIBAhtRdWFudGl0eSBzaG91bGQgYmUgcG9zaXRpdmUEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBTQkAAgEJAKwCAgIxRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBNYW51ZmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQEY29udAkAkQMCBQtjdXJMb2NhdGlvbgUPbG9jSWR4Q29udGluZW50BAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8DAwkAZgIAAAUKcHJvZHVjdElkeAYJAGcCBQpwcm9kdWN0SWR4CQCQAwEFEHByb2R1Y3Rpb25NYXRyaXgJAAIBCQCsAgICFFVua25vd24gcHJvZHVjdCBpZHg9CQCkAwEFCnByb2R1Y3RJZHgEDnByb2R1Y3RDb250SWR4CQBqAgUKcHJvZHVjdElkeAkAkAMBBQpjb250aW5lbnRzAwkBAiE9AgkAkQMCBQpjb250aW5lbnRzBQ5wcm9kdWN0Q29udElkeAUEY29udAkAAgEJAKwCAgkArAICCQCsAgICHVRoaXMgcHJvZHVjdCBpcyBhdmFpbGFibGUgaW4gCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4AhEsIGJ1dCB5b3UgYXJlIGluIAUEY29udAQGcmVjaXBlCQC1CQIJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUKcHJvZHVjdElkeAIBXwMJAQIhPQIJAJADAQUGcmVjaXBlCQBkAgUGTlVNUkVTAAIJAAIBCQCsAgICF0ZhdGFsOiB1bmtub3duIHJlY2lwZTogCQCRAwIFEHByb2R1Y3Rpb25NYXRyaXgFCnByb2R1Y3RJZHgECHByb2RMaXN0AwkAAAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgFfCgEGZmlsbGVyAgNhY2MLaWdub3JlZEl0ZW0EAW4IBQNhY2MCXzIEAXgDCQBmAgkAkAMBBQhwcm9kTGlzdAUBbgkAtQkCCQCRAwIFCHByb2RMaXN0BQFuAgEsCQDMCAICATAJAMwIAgIBMAkAzAgCAgEwBQNuaWwEA3gxcwkAkQMCBQF4AAAEAngxCQENcGFyc2VJbnRWYWx1ZQEFA3gxcwQDeDJzCQCRAwIFAXgAAQQCeDIJAQ1wYXJzZUludFZhbHVlAQUDeDJzBAN4M3MJAJEDAgUBeAACBAJ4MwkBDXBhcnNlSW50VmFsdWUBBQN4M3MEBmFtb3VudAkAaAIFCHF1YW50aXR5CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlAAcEAXkDCQAAAgUBbgUKcHJvZHVjdElkeAQHJG1hdGNoMAUFbGV2ZWwDCQAAAgABBQckbWF0Y2gwCQCsAgIJAKwCAgkArAICCQCsAgIJAKQDAQkAZAIFAngxBQZhbW91bnQCASwFA3gycwIBLAUDeDNzAwkAAAIAAgUHJG1hdGNoMAkArAICCQCsAgIJAKwCAgkArAICBQN4MXMCASwJAKQDAQkAZAIFAngyBQZhbW91bnQCASwFA3gzcwMJAAACAAMFByRtYXRjaDAJAKwCAgkArAICCQCsAgIJAKwCAgUDeDFzAgEsBQN4MnMCASwJAKQDAQkAZAIFAngzBQZhbW91bnQJAAIBCQCsAgICIlByb2R1Y3QgbGV2ZWwgc2hvdWxkIGJlIDEuLjMsIG5vdCAJAKQDAQUFbGV2ZWwJAKwCAgkArAICCQCsAgIJAKwCAgUDeDFzAgEsBQN4MnMCASwFA3gzcwkAlAoCCQDNCAIIBQNhY2MCXzEFAXkJAGQCBQFuAAEEBmJwUHJvZAgKAAIkbAUQcHJvZHVjdGlvbk1hdHJpeAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBmZpbGxlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyAl8xCgEIcHJvZHVjZXICA2FjYwFqBAduZWVkTWF0CQBoAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBnJlY2lwZQUBagUIcXVhbnRpdHkEB2hhdmVNYXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqAwkAZgIFB25lZWRNYXQFB2hhdmVNYXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCVlvdSBoYXZlIAkAkQMCBQdtYXRMaXN0BQFqAgQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAhYsIGJ1dCByZWNpcGUgcmVxdWlyZXMgCQCkAwEFB25lZWRNYXQCDiBmb3IgcXVhbnRpdHkgCQCkAwEFCHF1YW50aXR5AwkAZgIFB25lZWRNYXQAAAkAzQgCBQNhY2MJAKQDAQkAZQIFB2hhdmVNYXQFB25lZWRNYXQJAM0IAgUDYWNjCQCRAwIFB21hdExpc3QFAWoEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCHByb2R1Y2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQC5CQIFBm1lcmdlZAIBXwkAzAgCCQC5CQIFBmJwUHJvZAIBXwUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCBQNuaWwFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgApWDiB",
    "height": 2448368,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: D26GYuHZLea2V5wvzLQHHFACmjgdoBGaT7YhmQkWRR9a
Next: DE3bJA9TFCcmbVxpXUzsxK8TS2UgBG3wV1gc8ANGjBU1

Diff: 
Old
New
Differences
47
47
 
48
48
 
let q = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
49
49
 
50
-
func r (s,t) = ((("factoryWhByContinentAndRes_" + s) + "_") + toString(t))
50
+
let r = ["1_1_1_2_2_5_1_10", "2_5_5_2_7_5_2_100", "1_1_1_2_2_5_1_10", "9_9_1_5_5_1_5_100", "1_5_1_5_5_1_1_100"]
51
+
52
+
let s = 0
53
+
54
+
let t = 1
55
+
56
+
let u = 2
57
+
58
+
let v = 3
59
+
60
+
let w = 4
61
+
62
+
func x (y,z) = ((("factoryWhByContinentAndRes_" + y) + "_") + toString(z))
51
63
 
52
64
 
53
-
func u (v) = ("stakedDuckByOwner_" + v)
65
+
func A (B) = ("stakedDuckByOwner_" + B)
54
66
 
55
67
 
56
-
func w (x) = ("backPack_" + x)
68
+
func C (D) = ("backPack_" + D)
57
69
 
58
70
 
59
-
func y (x) = ("duckLocation_" + x)
71
+
func E (D) = ("duckLocation_" + D)
60
72
 
61
73
 
62
-
func z () = "contractsBlocked"
74
+
func F () = "contractsBlocked"
63
75
 
64
76
 
65
-
let A = 0
77
+
let G = 0
66
78
 
67
-
let B = 1
79
+
let H = 1
68
80
 
69
-
let C = 2
81
+
let I = 2
70
82
 
71
-
let D = 0
83
+
let J = 0
72
84
 
73
-
let E = 1
85
+
let K = 1
74
86
 
75
-
let F = 2
87
+
let L = 2
76
88
 
77
-
let G = 3
89
+
let M = 3
78
90
 
79
-
func H (I) = {
80
-
    let f = I
91
+
func N (O) = {
92
+
    let f = O
81
93
 
    if ($isInstanceOf(f, "String"))
82
94
 
        then {
83
-
            let J = f
84
-
            J
95
+
            let P = f
96
+
            P
85
97
 
            }
86
98
 
        else throw("fail to cast into String")
87
99
 
    }
88
100
 
89
101
 
90
-
func K (L,t,M,N) = {
91
-
    let O = r(L, t)
92
-
    let P = valueOrElse(getInteger(O), 0)
93
-
    let Q = if ((P > j))
102
+
func Q (R,z,S,T) = {
103
+
    let U = x(R, z)
104
+
    let V = valueOrElse(getInteger(U), 0)
105
+
    let W = if ((V > j))
94
106
 
        then 0
95
-
        else if (((P + M) > j))
96
-
            then (j - P)
97
-
            else M
98
-
    let R = (fraction(Q, ((m * k) - fraction(((100 * P) + (50 * Q)), k, j)), c) + fraction((M - Q), k, b))
99
-
    let S = (N - (N / 100))
100
-
    if (((S * M) > (R * b)))
101
-
        then throw((((((((((("Actual price = " + toString(R)) + " / ") + toString(M)) + " < minPrice = ") + toString(N)) + ", (") + L) + ", ") + o[t]) + ")"))
102
-
        else $Tuple2(IntegerEntry(O, (P + M)), R)
107
+
        else if (((V + S) > j))
108
+
            then (j - V)
109
+
            else S
110
+
    let X = (fraction(W, ((m * k) - fraction(((100 * V) + (50 * W)), k, j)), c) + fraction((S - W), k, b))
111
+
    let Y = (T - (T / 100))
112
+
    if (((Y * S) > (X * b)))
113
+
        then throw((((((((((("Actual price = " + toString(X)) + " / ") + toString(S)) + " < minPrice = ") + toString(T)) + ", (") + R) + ", ") + o[z]) + ")"))
114
+
        else $Tuple2(IntegerEntry(U, (V + S)), X)
103
115
 
    }
104
116
 
105
117
 
106
-
func T (L,U,M,V) = {
107
-
    let O = r(L, U)
108
-
    let P = valueOrElse(getInteger(O), 0)
109
-
    let W = if ((P > j))
110
-
        then min([M, (P - j)])
118
+
func Z (R,aa,S,ab) = {
119
+
    let U = x(R, aa)
120
+
    let V = valueOrElse(getInteger(U), 0)
121
+
    let ac = if ((V > j))
122
+
        then min([S, (V - j)])
111
123
 
        else 0
112
-
    let X = min([P, (M - W)])
113
-
    let Y = (X + W)
114
-
    let Z = (fraction(X, ((n * k) - fraction(((100 * P) - (50 * X)), k, j)), c) + fraction(W, (2 * k), b))
115
-
    let aa = (V + (V / 100))
116
-
    if (((Z * b) > (aa * Y)))
117
-
        then throw((((((((((("Actual price = " + toString(Z)) + " / ") + toString(Y)) + " > maxPrice = ") + toString(V)) + ", (") + L) + ", ") + p[U]) + ")"))
118
-
        else $Tuple3(IntegerEntry(O, (P - Y)), Z, Y)
124
+
    let ad = min([V, (S - ac)])
125
+
    let ae = (ad + ac)
126
+
    let af = (fraction(ad, ((n * k) - fraction(((100 * V) - (50 * ad)), k, j)), c) + fraction(ac, (2 * k), b))
127
+
    let ag = (ab + (ab / 100))
128
+
    if (((af * b) > (ag * ae)))
129
+
        then throw((((((((((("Actual price = " + toString(af)) + " / ") + toString(ae)) + " > maxPrice = ") + toString(ab)) + ", (") + R) + ", ") + p[aa]) + ")"))
130
+
        else $Tuple3(IntegerEntry(U, (V - ae)), af, ae)
119
131
 
    }
120
132
 
121
133
 
122
-
func ab (ac) = {
123
-
    let ad = split(valueOrElse(getString(g, ac), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
124
-
[toString(valueOrElse(parseInt(ad[D]), 0)), if ((size(split(ad[E], "_")) == i))
125
-
        then ad[E]
126
-
        else "0_0_0_0_0_0", if ((size(split(ad[F], "_")) == i))
127
-
        then ad[F]
128
-
        else "0_0_0_0_0_0", ad[G]]
134
+
func ah (ai) = {
135
+
    let aj = split(valueOrElse(getString(g, ai), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
136
+
[toString(valueOrElse(parseInt(aj[J]), 0)), if ((size(split(aj[K], "_")) == i))
137
+
        then aj[K]
138
+
        else "0_0_0_0_0_0", if ((size(split(aj[L], "_")) == i))
139
+
        then aj[L]
140
+
        else "0_0_0_0_0_0", aj[M]]
129
141
 
    }
130
142
 
131
143
 
132
-
func ae () = if (valueOrElse(getBoolean(g, z()), false))
144
+
func ak () = if (valueOrElse(getBoolean(g, F()), false))
133
145
 
    then throw("Contracts are under maintenance")
134
146
 
    else unit
135
147
 
136
148
 
137
-
@Callable(af)
138
-
func sellResources (ag,ah) = {
139
-
    let ai = ae()
140
-
    if ((ai == ai))
149
+
@Callable(al)
150
+
func sellResources (am,an) = {
151
+
    let ao = ak()
152
+
    if ((ao == ao))
141
153
 
        then {
142
-
            let x = valueOrErrorMessage(getString(g, u(toString(af.caller))), "You don't have a duck staked")
143
-
            if ((size(af.payments) != 0))
154
+
            let D = valueOrErrorMessage(getString(g, A(toString(al.caller))), "You don't have a duck staked")
155
+
            if ((size(al.payments) != 0))
144
156
 
                then throw("sellResources doesn't require any payments")
145
157
 
                else {
146
-
                    let aj = split(valueOrElse(getString(g, y(x)), h), "_")
147
-
                    if ((aj[B] != "F"))
148
-
                        then throw(("Duck location type should be Factory, but is " + aj[B]))
158
+
                    let ap = split(valueOrElse(getString(g, E(D)), h), "_")
159
+
                    if ((ap[H] != "F"))
160
+
                        then throw(("Duck location type should be Factory, but is " + ap[H]))
149
161
 
                        else {
150
-
                            let L = aj[C]
151
-
                            let ak = ab(w(x))
152
-
                            let al = split(ak[E], "_")
153
-
                            func am (an,ao) =                             if ((ag[ao] > parseIntValue(al[ao])))
154
-
                                then throw(((((("You have " + al[ao]) + " of ") + o[ao]) + ", but tried to sell ") + toString(ag[ao])))
155
-
                                else if ((0 > ag[ao]))
156
-
                                    then throw(((("You tried to sell negative amount of " + o[ao]) + ": ") + toString(ag[ao])))
157
-
                                    else if ((ag[ao] > 0))
162
+
                            let R = ap[I]
163
+
                            let aq = ah(C(D))
164
+
                            let ar = split(aq[K], "_")
165
+
                            func as (at,au) =                             if ((am[au] > parseIntValue(ar[au])))
166
+
                                then throw(((((("You have " + ar[au]) + " of ") + o[au]) + ", but tried to sell ") + toString(am[au])))
167
+
                                else if ((0 > am[au]))
168
+
                                    then throw(((("You tried to sell negative amount of " + o[au]) + ": ") + toString(am[au])))
169
+
                                    else if ((am[au] > 0))
158
170
 
                                        then {
159
-
                                            let ap = K(L, ao, ag[ao], ah[ao])
160
-
                                            $Tuple3((an._1 :+ ap._1), (an._2 :+ toString((parseIntValue(al[ao]) - ag[ao]))), (an._3 + ap._2))
171
+
                                            let av = Q(R, au, am[au], an[au])
172
+
                                            $Tuple3((at._1 :+ av._1), (at._2 :+ toString((parseIntValue(ar[au]) - am[au]))), (at._3 + av._2))
161
173
 
                                            }
162
-
                                        else $Tuple3(an._1, (an._2 :+ al[ao]), an._3)
174
+
                                        else $Tuple3(at._1, (at._2 :+ ar[au]), at._3)
163
175
 
164
-
                            let aq = {
165
-
                                let ar = [0, 1, 2, 3, 4, 5]
166
-
                                let as = size(ar)
167
-
                                let at = $Tuple3(nil, nil, 0)
168
-
                                func au (av,aw) =                                 if ((aw >= as))
169
-
                                    then av
170
-
                                    else am(av, ar[aw])
176
+
                            let aw = {
177
+
                                let ax = [0, 1, 2, 3, 4, 5]
178
+
                                let ay = size(ax)
179
+
                                let az = $Tuple3(nil, nil, 0)
180
+
                                func aA (aB,aC) =                                 if ((aC >= ay))
181
+
                                    then aB
182
+
                                    else as(aB, ax[aC])
171
183
 
172
-
                                func ax (av,aw) =                                 if ((aw >= as))
173
-
                                    then av
184
+
                                func aD (aB,aC) =                                 if ((aC >= ay))
185
+
                                    then aB
174
186
 
                                    else throw("List size exceeds 6")
175
187
 
176
-
                                ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
188
+
                                aD(aA(aA(aA(aA(aA(aA(az, 0), 1), 2), 3), 4), 5), 6)
177
189
 
                                }
178
-
                            let ay = makeString([ak[D], makeString(aq._2, "_"), ak[F], ak[G]], ":")
179
-
                            let az = H(invoke(g, "updateBackpack", [x, ay], nil))
180
-
                            $Tuple2((aq._1 :+ ScriptTransfer(af.caller, aq._3, e)), az)
190
+
                            let aE = makeString([aq[J], makeString(aw._2, "_"), aq[L], aq[M]], ":")
191
+
                            let aF = N(invoke(g, "updateBackpack", [D, aE], nil))
192
+
                            $Tuple2((aw._1 :+ ScriptTransfer(al.caller, aw._3, e)), aF)
181
193
 
                            }
182
194
 
                    }
183
195
 
            }
186
198
 
187
199
 
188
200
 
189
-
@Callable(af)
190
-
func buyMaterials (ag,aA) = {
191
-
    let ai = ae()
192
-
    if ((ai == ai))
201
+
@Callable(al)
202
+
func buyMaterials (am,aG) = {
203
+
    let ao = ak()
204
+
    if ((ao == ao))
193
205
 
        then {
194
-
            let x = valueOrErrorMessage(getString(g, u(toString(af.caller))), "You don't have a duck staked")
195
-
            if ((size(af.payments) != 1))
206
+
            let D = valueOrErrorMessage(getString(g, A(toString(al.caller))), "You don't have a duck staked")
207
+
            if ((size(al.payments) != 1))
196
208
 
                then throw("exactly 1 payment must be attached")
197
209
 
                else {
198
-
                    let aB = af.payments[0]
199
-
                    let aC = aB.amount
200
-
                    let aD = valueOrErrorMessage(aB.assetId, "WAVES can't be used as payment")
201
-
                    if ((aD != e))
210
+
                    let aH = al.payments[0]
211
+
                    let aI = aH.amount
212
+
                    let aJ = valueOrErrorMessage(aH.assetId, "WAVES can't be used as payment")
213
+
                    if ((aJ != e))
202
214
 
                        then throw("USDN payments only!")
203
215
 
                        else {
204
-
                            let aj = split(valueOrElse(getString(g, y(x)), h), "_")
205
-
                            if ((aj[B] != "F"))
206
-
                                then throw(("Duck location type should be Factory, but is " + aj[B]))
216
+
                            let ap = split(valueOrElse(getString(g, E(D)), h), "_")
217
+
                            if ((ap[H] != "F"))
218
+
                                then throw(("Duck location type should be Factory, but is " + ap[H]))
207
219
 
                                else {
208
-
                                    let L = aj[C]
209
-
                                    let ak = ab(w(x))
210
-
                                    let aE = split(ak[F], "_")
211
-
                                    func aF (an,ao) =                                     if ((0 > ag[ao]))
212
-
                                        then throw(((("You tried to buy negative amount of " + p[ao]) + ": ") + toString(ag[ao])))
213
-
                                        else if ((ag[ao] > 0))
220
+
                                    let R = ap[I]
221
+
                                    let aq = ah(C(D))
222
+
                                    let aK = split(aq[L], "_")
223
+
                                    func aL (at,au) =                                     if ((0 > am[au]))
224
+
                                        then throw(((("You tried to buy negative amount of " + p[au]) + ": ") + toString(am[au])))
225
+
                                        else if ((am[au] > 0))
214
226
 
                                            then {
215
-
                                                let ap = T(L, ao, ag[ao], aA[ao])
216
-
                                                $Tuple3((an._1 :+ ap._1), (an._2 :+ toString((parseIntValue(aE[ao]) + ap._3))), (an._3 + ap._2))
227
+
                                                let av = Z(R, au, am[au], aG[au])
228
+
                                                $Tuple3((at._1 :+ av._1), (at._2 :+ toString((parseIntValue(aK[au]) + av._3))), (at._3 + av._2))
217
229
 
                                                }
218
-
                                            else $Tuple3(an._1, (an._2 :+ aE[ao]), an._3)
230
+
                                            else $Tuple3(at._1, (at._2 :+ aK[au]), at._3)
219
231
 
220
-
                                    let aq = {
221
-
                                        let ar = [0, 1, 2, 3, 4, 5]
222
-
                                        let as = size(ar)
223
-
                                        let at = $Tuple3(nil, nil, 0)
224
-
                                        func au (av,aw) =                                         if ((aw >= as))
225
-
                                            then av
226
-
                                            else aF(av, ar[aw])
232
+
                                    let aw = {
233
+
                                        let ax = [0, 1, 2, 3, 4, 5]
234
+
                                        let ay = size(ax)
235
+
                                        let az = $Tuple3(nil, nil, 0)
236
+
                                        func aA (aB,aC) =                                         if ((aC >= ay))
237
+
                                            then aB
238
+
                                            else aL(aB, ax[aC])
227
239
 
228
-
                                        func ax (av,aw) =                                         if ((aw >= as))
229
-
                                            then av
240
+
                                        func aD (aB,aC) =                                         if ((aC >= ay))
241
+
                                            then aB
230
242
 
                                            else throw("List size exceeds 6")
231
243
 
232
-
                                        ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
244
+
                                        aD(aA(aA(aA(aA(aA(aA(az, 0), 1), 2), 3), 4), 5), 6)
233
245
 
                                        }
234
-
                                    if ((aq._3 > aC))
235
-
                                        then throw(((("Insufficient payment! Attached=" + toString(aC)) + ", required=") + toString(aq._3)))
246
+
                                    if ((aw._3 > aI))
247
+
                                        then throw(((("Insufficient payment! Attached=" + toString(aI)) + ", required=") + toString(aw._3)))
236
248
 
                                        else {
237
-
                                            let ay = makeString([ak[D], ak[E], makeString(aq._2, "_"), ak[G]], ":")
238
-
                                            let az = H(invoke(g, "updateBackpack", [x, ay], nil))
239
-
                                            let aG = if (((aC - aq._3) > 0))
240
-
                                                then [ScriptTransfer(af.caller, (aC - aq._3), e)]
249
+
                                            let aE = makeString([aq[J], aq[K], makeString(aw._2, "_"), aq[M]], ":")
250
+
                                            let aF = N(invoke(g, "updateBackpack", [D, aE], nil))
251
+
                                            let aM = if (((aI - aw._3) > 0))
252
+
                                                then [ScriptTransfer(al.caller, (aI - aw._3), e)]
241
253
 
                                                else nil
242
-
                                            $Tuple2((aq._1 ++ aG), az)
254
+
                                            $Tuple2((aw._1 ++ aM), aF)
243
255
 
                                            }
244
256
 
                                    }
245
257
 
                            }
249
261
 
    }
250
262
 
251
263
 
264
+
265
+
@Callable(al)
266
+
func buyGoods (aN,aO,aP) = {
267
+
    let ao = ak()
268
+
    if ((ao == ao))
269
+
        then if ((size(al.payments) != 0))
270
+
            then throw("buyGoods doesn't require any payments")
271
+
            else if ((0 > aP))
272
+
                then throw("Quantity should be positive")
273
+
                else {
274
+
                    let D = valueOrErrorMessage(getString(g, A(toString(al.caller))), "You don't have a duck staked")
275
+
                    let ap = split(valueOrElse(getString(g, E(D)), h), "_")
276
+
                    if ((ap[H] != "M"))
277
+
                        then throw(("Duck location type should be Manufactory, but is " + ap[H]))
278
+
                        else {
279
+
                            let aQ = ap[G]
280
+
                            let aq = ah(C(D))
281
+
                            let aK = split(aq[L], "_")
282
+
                            if (if ((0 > aN))
283
+
                                then true
284
+
                                else (aN >= size(r)))
285
+
                                then throw(("Unknown product idx=" + toString(aN)))
286
+
                                else {
287
+
                                    let aR = (aN % size(q))
288
+
                                    if ((q[aR] != aQ))
289
+
                                        then throw(((("This product is available in " + q[aR]) + ", but you are in ") + aQ))
290
+
                                        else {
291
+
                                            let aS = split(r[aN], "_")
292
+
                                            if ((size(aS) != (i + 2)))
293
+
                                                then throw(("Fatal: unknown recipe: " + r[aN]))
294
+
                                                else {
295
+
                                                    let aT = if ((aq[M] == ""))
296
+
                                                        then nil
297
+
                                                        else split(aq[M], "_")
298
+
                                                    func aU (at,aV) =                                                     {
299
+
                                                        let aW = at._2
300
+
                                                        let aX = if ((size(aT) > aW))
301
+
                                                            then split(aT[aW], ",")
302
+
                                                            else ["0", "0", "0"]
303
+
                                                        let aY = aX[0]
304
+
                                                        let aZ = parseIntValue(aY)
305
+
                                                        let ba = aX[1]
306
+
                                                        let bb = parseIntValue(ba)
307
+
                                                        let bc = aX[2]
308
+
                                                        let bd = parseIntValue(bc)
309
+
                                                        let S = (aP * parseIntValue(aS[7]))
310
+
                                                        let be = if ((aW == aN))
311
+
                                                            then {
312
+
                                                                let f = aO
313
+
                                                                if ((1 == f))
314
+
                                                                    then ((((toString((aZ + S)) + ",") + ba) + ",") + bc)
315
+
                                                                    else if ((2 == f))
316
+
                                                                        then ((((aY + ",") + toString((bb + S))) + ",") + bc)
317
+
                                                                        else if ((3 == f))
318
+
                                                                            then ((((aY + ",") + ba) + ",") + toString((bd + S)))
319
+
                                                                            else throw(("Product level should be 1..3, not " + toString(aO)))
320
+
                                                                }
321
+
                                                            else ((((aY + ",") + ba) + ",") + bc)
322
+
                                                        $Tuple2((at._1 :+ be), (aW + 1))
323
+
                                                        }
324
+
325
+
                                                    let bf = (                                                    let ax = r
326
+
                                                    let ay = size(ax)
327
+
                                                    let az = $Tuple2(nil, 0)
328
+
                                                    func aA (aB,aC) =                                                     if ((aC >= ay))
329
+
                                                        then aB
330
+
                                                        else aU(aB, ax[aC])
331
+
332
+
                                                    func aD (aB,aC) =                                                     if ((aC >= ay))
333
+
                                                        then aB
334
+
                                                        else throw("List size exceeds 50")
335
+
336
+
                                                    aD(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(az, 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
337
+
                                                    func bg (at,au) =                                                     {
338
+
                                                        let bh = (parseIntValue(aS[au]) * aP)
339
+
                                                        let bi = parseIntValue(aK[au])
340
+
                                                        if ((bh > bi))
341
+
                                                            then throw(((((((("You have " + aK[au]) + " of ") + p[au]) + ", but recipe requires ") + toString(bh)) + " for quantity ") + toString(aP)))
342
+
                                                            else if ((bh > 0))
343
+
                                                                then (at :+ toString((bi - bh)))
344
+
                                                                else (at :+ aK[au])
345
+
                                                        }
346
+
347
+
                                                    let aw = {
348
+
                                                        let ax = [0, 1, 2, 3, 4, 5]
349
+
                                                        let ay = size(ax)
350
+
                                                        let az = nil
351
+
                                                        func bj (aB,aC) =                                                         if ((aC >= ay))
352
+
                                                            then aB
353
+
                                                            else bg(aB, ax[aC])
354
+
355
+
                                                        func bk (aB,aC) =                                                         if ((aC >= ay))
356
+
                                                            then aB
357
+
                                                            else throw("List size exceeds 6")
358
+
359
+
                                                        bk(bj(bj(bj(bj(bj(bj(az, 0), 1), 2), 3), 4), 5), 6)
360
+
                                                        }
361
+
                                                    let aE = makeString([aq[J], aq[K], makeString(aw, "_"), makeString(bf, "_")], ":")
362
+
                                                    let aF = N(invoke(g, "updateBackpack", [D, aE], nil))
363
+
                                                    $Tuple2(nil, aF)
364
+
                                                    }
365
+
                                            }
366
+
                                    }
367
+
                            }
368
+
                    }
369
+
        else throw("Strict value is not equal to itself.")
370
+
    }
371
+
372
+

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let a = 1000000
5
5
 
6
6
 
let b = 100000000
7
7
 
8
8
 
let c = 10000000000
9
9
 
10
10
 
let d = take(drop(this.bytes, 1), 1)
11
11
 
12
12
 
let e = {
13
13
 
    let f = d
14
14
 
    if ((base58'2W' == f))
15
15
 
        then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
16
16
 
        else if ((base58'2T' == f))
17
17
 
            then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
18
18
 
            else throw("Unknown chain")
19
19
 
    }
20
20
 
21
21
 
let g = addressFromStringValue({
22
22
 
    let f = d
23
23
 
    if ((base58'2W' == f))
24
24
 
        then "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1"
25
25
 
        else if ((base58'2T' == f))
26
26
 
            then "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm"
27
27
 
            else throw("Unknown chain")
28
28
 
    })
29
29
 
30
30
 
let h = "Africa_F_Africa"
31
31
 
32
32
 
let i = 6
33
33
 
34
34
 
let j = 10000000000
35
35
 
36
36
 
let k = 158549
37
37
 
38
38
 
let l = 10000
39
39
 
40
40
 
let m = 200
41
41
 
42
42
 
let n = 300
43
43
 
44
44
 
let o = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
45
45
 
46
46
 
let p = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
47
47
 
48
48
 
let q = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
49
49
 
50
-
func r (s,t) = ((("factoryWhByContinentAndRes_" + s) + "_") + toString(t))
50
+
let r = ["1_1_1_2_2_5_1_10", "2_5_5_2_7_5_2_100", "1_1_1_2_2_5_1_10", "9_9_1_5_5_1_5_100", "1_5_1_5_5_1_1_100"]
51
+
52
+
let s = 0
53
+
54
+
let t = 1
55
+
56
+
let u = 2
57
+
58
+
let v = 3
59
+
60
+
let w = 4
61
+
62
+
func x (y,z) = ((("factoryWhByContinentAndRes_" + y) + "_") + toString(z))
51
63
 
52
64
 
53
-
func u (v) = ("stakedDuckByOwner_" + v)
65
+
func A (B) = ("stakedDuckByOwner_" + B)
54
66
 
55
67
 
56
-
func w (x) = ("backPack_" + x)
68
+
func C (D) = ("backPack_" + D)
57
69
 
58
70
 
59
-
func y (x) = ("duckLocation_" + x)
71
+
func E (D) = ("duckLocation_" + D)
60
72
 
61
73
 
62
-
func z () = "contractsBlocked"
74
+
func F () = "contractsBlocked"
63
75
 
64
76
 
65
-
let A = 0
77
+
let G = 0
66
78
 
67
-
let B = 1
79
+
let H = 1
68
80
 
69
-
let C = 2
81
+
let I = 2
70
82
 
71
-
let D = 0
83
+
let J = 0
72
84
 
73
-
let E = 1
85
+
let K = 1
74
86
 
75
-
let F = 2
87
+
let L = 2
76
88
 
77
-
let G = 3
89
+
let M = 3
78
90
 
79
-
func H (I) = {
80
-
    let f = I
91
+
func N (O) = {
92
+
    let f = O
81
93
 
    if ($isInstanceOf(f, "String"))
82
94
 
        then {
83
-
            let J = f
84
-
            J
95
+
            let P = f
96
+
            P
85
97
 
            }
86
98
 
        else throw("fail to cast into String")
87
99
 
    }
88
100
 
89
101
 
90
-
func K (L,t,M,N) = {
91
-
    let O = r(L, t)
92
-
    let P = valueOrElse(getInteger(O), 0)
93
-
    let Q = if ((P > j))
102
+
func Q (R,z,S,T) = {
103
+
    let U = x(R, z)
104
+
    let V = valueOrElse(getInteger(U), 0)
105
+
    let W = if ((V > j))
94
106
 
        then 0
95
-
        else if (((P + M) > j))
96
-
            then (j - P)
97
-
            else M
98
-
    let R = (fraction(Q, ((m * k) - fraction(((100 * P) + (50 * Q)), k, j)), c) + fraction((M - Q), k, b))
99
-
    let S = (N - (N / 100))
100
-
    if (((S * M) > (R * b)))
101
-
        then throw((((((((((("Actual price = " + toString(R)) + " / ") + toString(M)) + " < minPrice = ") + toString(N)) + ", (") + L) + ", ") + o[t]) + ")"))
102
-
        else $Tuple2(IntegerEntry(O, (P + M)), R)
107
+
        else if (((V + S) > j))
108
+
            then (j - V)
109
+
            else S
110
+
    let X = (fraction(W, ((m * k) - fraction(((100 * V) + (50 * W)), k, j)), c) + fraction((S - W), k, b))
111
+
    let Y = (T - (T / 100))
112
+
    if (((Y * S) > (X * b)))
113
+
        then throw((((((((((("Actual price = " + toString(X)) + " / ") + toString(S)) + " < minPrice = ") + toString(T)) + ", (") + R) + ", ") + o[z]) + ")"))
114
+
        else $Tuple2(IntegerEntry(U, (V + S)), X)
103
115
 
    }
104
116
 
105
117
 
106
-
func T (L,U,M,V) = {
107
-
    let O = r(L, U)
108
-
    let P = valueOrElse(getInteger(O), 0)
109
-
    let W = if ((P > j))
110
-
        then min([M, (P - j)])
118
+
func Z (R,aa,S,ab) = {
119
+
    let U = x(R, aa)
120
+
    let V = valueOrElse(getInteger(U), 0)
121
+
    let ac = if ((V > j))
122
+
        then min([S, (V - j)])
111
123
 
        else 0
112
-
    let X = min([P, (M - W)])
113
-
    let Y = (X + W)
114
-
    let Z = (fraction(X, ((n * k) - fraction(((100 * P) - (50 * X)), k, j)), c) + fraction(W, (2 * k), b))
115
-
    let aa = (V + (V / 100))
116
-
    if (((Z * b) > (aa * Y)))
117
-
        then throw((((((((((("Actual price = " + toString(Z)) + " / ") + toString(Y)) + " > maxPrice = ") + toString(V)) + ", (") + L) + ", ") + p[U]) + ")"))
118
-
        else $Tuple3(IntegerEntry(O, (P - Y)), Z, Y)
124
+
    let ad = min([V, (S - ac)])
125
+
    let ae = (ad + ac)
126
+
    let af = (fraction(ad, ((n * k) - fraction(((100 * V) - (50 * ad)), k, j)), c) + fraction(ac, (2 * k), b))
127
+
    let ag = (ab + (ab / 100))
128
+
    if (((af * b) > (ag * ae)))
129
+
        then throw((((((((((("Actual price = " + toString(af)) + " / ") + toString(ae)) + " > maxPrice = ") + toString(ab)) + ", (") + R) + ", ") + p[aa]) + ")"))
130
+
        else $Tuple3(IntegerEntry(U, (V - ae)), af, ae)
119
131
 
    }
120
132
 
121
133
 
122
-
func ab (ac) = {
123
-
    let ad = split(valueOrElse(getString(g, ac), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
124
-
[toString(valueOrElse(parseInt(ad[D]), 0)), if ((size(split(ad[E], "_")) == i))
125
-
        then ad[E]
126
-
        else "0_0_0_0_0_0", if ((size(split(ad[F], "_")) == i))
127
-
        then ad[F]
128
-
        else "0_0_0_0_0_0", ad[G]]
134
+
func ah (ai) = {
135
+
    let aj = split(valueOrElse(getString(g, ai), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
136
+
[toString(valueOrElse(parseInt(aj[J]), 0)), if ((size(split(aj[K], "_")) == i))
137
+
        then aj[K]
138
+
        else "0_0_0_0_0_0", if ((size(split(aj[L], "_")) == i))
139
+
        then aj[L]
140
+
        else "0_0_0_0_0_0", aj[M]]
129
141
 
    }
130
142
 
131
143
 
132
-
func ae () = if (valueOrElse(getBoolean(g, z()), false))
144
+
func ak () = if (valueOrElse(getBoolean(g, F()), false))
133
145
 
    then throw("Contracts are under maintenance")
134
146
 
    else unit
135
147
 
136
148
 
137
-
@Callable(af)
138
-
func sellResources (ag,ah) = {
139
-
    let ai = ae()
140
-
    if ((ai == ai))
149
+
@Callable(al)
150
+
func sellResources (am,an) = {
151
+
    let ao = ak()
152
+
    if ((ao == ao))
141
153
 
        then {
142
-
            let x = valueOrErrorMessage(getString(g, u(toString(af.caller))), "You don't have a duck staked")
143
-
            if ((size(af.payments) != 0))
154
+
            let D = valueOrErrorMessage(getString(g, A(toString(al.caller))), "You don't have a duck staked")
155
+
            if ((size(al.payments) != 0))
144
156
 
                then throw("sellResources doesn't require any payments")
145
157
 
                else {
146
-
                    let aj = split(valueOrElse(getString(g, y(x)), h), "_")
147
-
                    if ((aj[B] != "F"))
148
-
                        then throw(("Duck location type should be Factory, but is " + aj[B]))
158
+
                    let ap = split(valueOrElse(getString(g, E(D)), h), "_")
159
+
                    if ((ap[H] != "F"))
160
+
                        then throw(("Duck location type should be Factory, but is " + ap[H]))
149
161
 
                        else {
150
-
                            let L = aj[C]
151
-
                            let ak = ab(w(x))
152
-
                            let al = split(ak[E], "_")
153
-
                            func am (an,ao) =                             if ((ag[ao] > parseIntValue(al[ao])))
154
-
                                then throw(((((("You have " + al[ao]) + " of ") + o[ao]) + ", but tried to sell ") + toString(ag[ao])))
155
-
                                else if ((0 > ag[ao]))
156
-
                                    then throw(((("You tried to sell negative amount of " + o[ao]) + ": ") + toString(ag[ao])))
157
-
                                    else if ((ag[ao] > 0))
162
+
                            let R = ap[I]
163
+
                            let aq = ah(C(D))
164
+
                            let ar = split(aq[K], "_")
165
+
                            func as (at,au) =                             if ((am[au] > parseIntValue(ar[au])))
166
+
                                then throw(((((("You have " + ar[au]) + " of ") + o[au]) + ", but tried to sell ") + toString(am[au])))
167
+
                                else if ((0 > am[au]))
168
+
                                    then throw(((("You tried to sell negative amount of " + o[au]) + ": ") + toString(am[au])))
169
+
                                    else if ((am[au] > 0))
158
170
 
                                        then {
159
-
                                            let ap = K(L, ao, ag[ao], ah[ao])
160
-
                                            $Tuple3((an._1 :+ ap._1), (an._2 :+ toString((parseIntValue(al[ao]) - ag[ao]))), (an._3 + ap._2))
171
+
                                            let av = Q(R, au, am[au], an[au])
172
+
                                            $Tuple3((at._1 :+ av._1), (at._2 :+ toString((parseIntValue(ar[au]) - am[au]))), (at._3 + av._2))
161
173
 
                                            }
162
-
                                        else $Tuple3(an._1, (an._2 :+ al[ao]), an._3)
174
+
                                        else $Tuple3(at._1, (at._2 :+ ar[au]), at._3)
163
175
 
164
-
                            let aq = {
165
-
                                let ar = [0, 1, 2, 3, 4, 5]
166
-
                                let as = size(ar)
167
-
                                let at = $Tuple3(nil, nil, 0)
168
-
                                func au (av,aw) =                                 if ((aw >= as))
169
-
                                    then av
170
-
                                    else am(av, ar[aw])
176
+
                            let aw = {
177
+
                                let ax = [0, 1, 2, 3, 4, 5]
178
+
                                let ay = size(ax)
179
+
                                let az = $Tuple3(nil, nil, 0)
180
+
                                func aA (aB,aC) =                                 if ((aC >= ay))
181
+
                                    then aB
182
+
                                    else as(aB, ax[aC])
171
183
 
172
-
                                func ax (av,aw) =                                 if ((aw >= as))
173
-
                                    then av
184
+
                                func aD (aB,aC) =                                 if ((aC >= ay))
185
+
                                    then aB
174
186
 
                                    else throw("List size exceeds 6")
175
187
 
176
-
                                ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
188
+
                                aD(aA(aA(aA(aA(aA(aA(az, 0), 1), 2), 3), 4), 5), 6)
177
189
 
                                }
178
-
                            let ay = makeString([ak[D], makeString(aq._2, "_"), ak[F], ak[G]], ":")
179
-
                            let az = H(invoke(g, "updateBackpack", [x, ay], nil))
180
-
                            $Tuple2((aq._1 :+ ScriptTransfer(af.caller, aq._3, e)), az)
190
+
                            let aE = makeString([aq[J], makeString(aw._2, "_"), aq[L], aq[M]], ":")
191
+
                            let aF = N(invoke(g, "updateBackpack", [D, aE], nil))
192
+
                            $Tuple2((aw._1 :+ ScriptTransfer(al.caller, aw._3, e)), aF)
181
193
 
                            }
182
194
 
                    }
183
195
 
            }
184
196
 
        else throw("Strict value is not equal to itself.")
185
197
 
    }
186
198
 
187
199
 
188
200
 
189
-
@Callable(af)
190
-
func buyMaterials (ag,aA) = {
191
-
    let ai = ae()
192
-
    if ((ai == ai))
201
+
@Callable(al)
202
+
func buyMaterials (am,aG) = {
203
+
    let ao = ak()
204
+
    if ((ao == ao))
193
205
 
        then {
194
-
            let x = valueOrErrorMessage(getString(g, u(toString(af.caller))), "You don't have a duck staked")
195
-
            if ((size(af.payments) != 1))
206
+
            let D = valueOrErrorMessage(getString(g, A(toString(al.caller))), "You don't have a duck staked")
207
+
            if ((size(al.payments) != 1))
196
208
 
                then throw("exactly 1 payment must be attached")
197
209
 
                else {
198
-
                    let aB = af.payments[0]
199
-
                    let aC = aB.amount
200
-
                    let aD = valueOrErrorMessage(aB.assetId, "WAVES can't be used as payment")
201
-
                    if ((aD != e))
210
+
                    let aH = al.payments[0]
211
+
                    let aI = aH.amount
212
+
                    let aJ = valueOrErrorMessage(aH.assetId, "WAVES can't be used as payment")
213
+
                    if ((aJ != e))
202
214
 
                        then throw("USDN payments only!")
203
215
 
                        else {
204
-
                            let aj = split(valueOrElse(getString(g, y(x)), h), "_")
205
-
                            if ((aj[B] != "F"))
206
-
                                then throw(("Duck location type should be Factory, but is " + aj[B]))
216
+
                            let ap = split(valueOrElse(getString(g, E(D)), h), "_")
217
+
                            if ((ap[H] != "F"))
218
+
                                then throw(("Duck location type should be Factory, but is " + ap[H]))
207
219
 
                                else {
208
-
                                    let L = aj[C]
209
-
                                    let ak = ab(w(x))
210
-
                                    let aE = split(ak[F], "_")
211
-
                                    func aF (an,ao) =                                     if ((0 > ag[ao]))
212
-
                                        then throw(((("You tried to buy negative amount of " + p[ao]) + ": ") + toString(ag[ao])))
213
-
                                        else if ((ag[ao] > 0))
220
+
                                    let R = ap[I]
221
+
                                    let aq = ah(C(D))
222
+
                                    let aK = split(aq[L], "_")
223
+
                                    func aL (at,au) =                                     if ((0 > am[au]))
224
+
                                        then throw(((("You tried to buy negative amount of " + p[au]) + ": ") + toString(am[au])))
225
+
                                        else if ((am[au] > 0))
214
226
 
                                            then {
215
-
                                                let ap = T(L, ao, ag[ao], aA[ao])
216
-
                                                $Tuple3((an._1 :+ ap._1), (an._2 :+ toString((parseIntValue(aE[ao]) + ap._3))), (an._3 + ap._2))
227
+
                                                let av = Z(R, au, am[au], aG[au])
228
+
                                                $Tuple3((at._1 :+ av._1), (at._2 :+ toString((parseIntValue(aK[au]) + av._3))), (at._3 + av._2))
217
229
 
                                                }
218
-
                                            else $Tuple3(an._1, (an._2 :+ aE[ao]), an._3)
230
+
                                            else $Tuple3(at._1, (at._2 :+ aK[au]), at._3)
219
231
 
220
-
                                    let aq = {
221
-
                                        let ar = [0, 1, 2, 3, 4, 5]
222
-
                                        let as = size(ar)
223
-
                                        let at = $Tuple3(nil, nil, 0)
224
-
                                        func au (av,aw) =                                         if ((aw >= as))
225
-
                                            then av
226
-
                                            else aF(av, ar[aw])
232
+
                                    let aw = {
233
+
                                        let ax = [0, 1, 2, 3, 4, 5]
234
+
                                        let ay = size(ax)
235
+
                                        let az = $Tuple3(nil, nil, 0)
236
+
                                        func aA (aB,aC) =                                         if ((aC >= ay))
237
+
                                            then aB
238
+
                                            else aL(aB, ax[aC])
227
239
 
228
-
                                        func ax (av,aw) =                                         if ((aw >= as))
229
-
                                            then av
240
+
                                        func aD (aB,aC) =                                         if ((aC >= ay))
241
+
                                            then aB
230
242
 
                                            else throw("List size exceeds 6")
231
243
 
232
-
                                        ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
244
+
                                        aD(aA(aA(aA(aA(aA(aA(az, 0), 1), 2), 3), 4), 5), 6)
233
245
 
                                        }
234
-
                                    if ((aq._3 > aC))
235
-
                                        then throw(((("Insufficient payment! Attached=" + toString(aC)) + ", required=") + toString(aq._3)))
246
+
                                    if ((aw._3 > aI))
247
+
                                        then throw(((("Insufficient payment! Attached=" + toString(aI)) + ", required=") + toString(aw._3)))
236
248
 
                                        else {
237
-
                                            let ay = makeString([ak[D], ak[E], makeString(aq._2, "_"), ak[G]], ":")
238
-
                                            let az = H(invoke(g, "updateBackpack", [x, ay], nil))
239
-
                                            let aG = if (((aC - aq._3) > 0))
240
-
                                                then [ScriptTransfer(af.caller, (aC - aq._3), e)]
249
+
                                            let aE = makeString([aq[J], aq[K], makeString(aw._2, "_"), aq[M]], ":")
250
+
                                            let aF = N(invoke(g, "updateBackpack", [D, aE], nil))
251
+
                                            let aM = if (((aI - aw._3) > 0))
252
+
                                                then [ScriptTransfer(al.caller, (aI - aw._3), e)]
241
253
 
                                                else nil
242
-
                                            $Tuple2((aq._1 ++ aG), az)
254
+
                                            $Tuple2((aw._1 ++ aM), aF)
243
255
 
                                            }
244
256
 
                                    }
245
257
 
                            }
246
258
 
                    }
247
259
 
            }
248
260
 
        else throw("Strict value is not equal to itself.")
249
261
 
    }
250
262
 
251
263
 
264
+
265
+
@Callable(al)
266
+
func buyGoods (aN,aO,aP) = {
267
+
    let ao = ak()
268
+
    if ((ao == ao))
269
+
        then if ((size(al.payments) != 0))
270
+
            then throw("buyGoods doesn't require any payments")
271
+
            else if ((0 > aP))
272
+
                then throw("Quantity should be positive")
273
+
                else {
274
+
                    let D = valueOrErrorMessage(getString(g, A(toString(al.caller))), "You don't have a duck staked")
275
+
                    let ap = split(valueOrElse(getString(g, E(D)), h), "_")
276
+
                    if ((ap[H] != "M"))
277
+
                        then throw(("Duck location type should be Manufactory, but is " + ap[H]))
278
+
                        else {
279
+
                            let aQ = ap[G]
280
+
                            let aq = ah(C(D))
281
+
                            let aK = split(aq[L], "_")
282
+
                            if (if ((0 > aN))
283
+
                                then true
284
+
                                else (aN >= size(r)))
285
+
                                then throw(("Unknown product idx=" + toString(aN)))
286
+
                                else {
287
+
                                    let aR = (aN % size(q))
288
+
                                    if ((q[aR] != aQ))
289
+
                                        then throw(((("This product is available in " + q[aR]) + ", but you are in ") + aQ))
290
+
                                        else {
291
+
                                            let aS = split(r[aN], "_")
292
+
                                            if ((size(aS) != (i + 2)))
293
+
                                                then throw(("Fatal: unknown recipe: " + r[aN]))
294
+
                                                else {
295
+
                                                    let aT = if ((aq[M] == ""))
296
+
                                                        then nil
297
+
                                                        else split(aq[M], "_")
298
+
                                                    func aU (at,aV) =                                                     {
299
+
                                                        let aW = at._2
300
+
                                                        let aX = if ((size(aT) > aW))
301
+
                                                            then split(aT[aW], ",")
302
+
                                                            else ["0", "0", "0"]
303
+
                                                        let aY = aX[0]
304
+
                                                        let aZ = parseIntValue(aY)
305
+
                                                        let ba = aX[1]
306
+
                                                        let bb = parseIntValue(ba)
307
+
                                                        let bc = aX[2]
308
+
                                                        let bd = parseIntValue(bc)
309
+
                                                        let S = (aP * parseIntValue(aS[7]))
310
+
                                                        let be = if ((aW == aN))
311
+
                                                            then {
312
+
                                                                let f = aO
313
+
                                                                if ((1 == f))
314
+
                                                                    then ((((toString((aZ + S)) + ",") + ba) + ",") + bc)
315
+
                                                                    else if ((2 == f))
316
+
                                                                        then ((((aY + ",") + toString((bb + S))) + ",") + bc)
317
+
                                                                        else if ((3 == f))
318
+
                                                                            then ((((aY + ",") + ba) + ",") + toString((bd + S)))
319
+
                                                                            else throw(("Product level should be 1..3, not " + toString(aO)))
320
+
                                                                }
321
+
                                                            else ((((aY + ",") + ba) + ",") + bc)
322
+
                                                        $Tuple2((at._1 :+ be), (aW + 1))
323
+
                                                        }
324
+
325
+
                                                    let bf = (                                                    let ax = r
326
+
                                                    let ay = size(ax)
327
+
                                                    let az = $Tuple2(nil, 0)
328
+
                                                    func aA (aB,aC) =                                                     if ((aC >= ay))
329
+
                                                        then aB
330
+
                                                        else aU(aB, ax[aC])
331
+
332
+
                                                    func aD (aB,aC) =                                                     if ((aC >= ay))
333
+
                                                        then aB
334
+
                                                        else throw("List size exceeds 50")
335
+
336
+
                                                    aD(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(aA(az, 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
337
+
                                                    func bg (at,au) =                                                     {
338
+
                                                        let bh = (parseIntValue(aS[au]) * aP)
339
+
                                                        let bi = parseIntValue(aK[au])
340
+
                                                        if ((bh > bi))
341
+
                                                            then throw(((((((("You have " + aK[au]) + " of ") + p[au]) + ", but recipe requires ") + toString(bh)) + " for quantity ") + toString(aP)))
342
+
                                                            else if ((bh > 0))
343
+
                                                                then (at :+ toString((bi - bh)))
344
+
                                                                else (at :+ aK[au])
345
+
                                                        }
346
+
347
+
                                                    let aw = {
348
+
                                                        let ax = [0, 1, 2, 3, 4, 5]
349
+
                                                        let ay = size(ax)
350
+
                                                        let az = nil
351
+
                                                        func bj (aB,aC) =                                                         if ((aC >= ay))
352
+
                                                            then aB
353
+
                                                            else bg(aB, ax[aC])
354
+
355
+
                                                        func bk (aB,aC) =                                                         if ((aC >= ay))
356
+
                                                            then aB
357
+
                                                            else throw("List size exceeds 6")
358
+
359
+
                                                        bk(bj(bj(bj(bj(bj(bj(az, 0), 1), 2), 3), 4), 5), 6)
360
+
                                                        }
361
+
                                                    let aE = makeString([aq[J], aq[K], makeString(aw, "_"), makeString(bf, "_")], ":")
362
+
                                                    let aF = N(invoke(g, "updateBackpack", [D, aE], nil))
363
+
                                                    $Tuple2(nil, aF)
364
+
                                                    }
365
+
                                            }
366
+
                                    }
367
+
                            }
368
+
                    }
369
+
        else throw("Strict value is not equal to itself.")
370
+
    }
371
+
372
+

github/deemru/w8io/169f3d6 
128.44 ms ◑