w8 · tx · 6S3···prF

tx · 6S3RgLgoCvibn8UKxg6X6SJkDLiwMZtVxMR7Syk46prF

3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy:  -0.01800000 Waves

2023.06.07 23:23 [2612723] smart account 3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6S3RgLgoCvibn8UKxg6X6SJkDLiwMZtVxMR7Syk46prF",
    "fee": 1800000,
    "feeAssetId": null,
    "timestamp": 1686169387043,
    "version": 2,
    "chainId": 84,
    "sender": "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy",
    "senderPublicKey": "C3PaRKeL8AUKbwUqdniMQtThgcTh5DYHV1777Hkxy7rp",
    "proofs": [
        "3BkJWN33NtbGMb3V7BT2TbqKyGBmbNxEd8nQMJ323NPNT3MvoWst18MgmmjVti7AbJ8VakQKJ49YmnVLX3FRqBg3"
    ],
    "script": "base64:BgJACAISAwoBGBIDCgEIEgMKAQgSAwoBCBIDCgEIEgMKAQgSAwoBGBIDCgEIEgMKARgSAwoBGBIDCgEYEgMKAQgSAEYABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2R0QXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEghNp6sggDP07Ru8qO7ouTvMmC3Qtd+geWqNQj+agP/7kDCQAAAgEBVAUHJG1hdGNoMAEgVbHYn3KHgu/l41uNrAWrZd6aQ6EvFrsF8xq3h6XxxRgJAAIBAg1Vbmtub3duIGNoYWluABVkZWZhdWx0UmVzdEFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQUUN1dkZidmg0TGtQVW5yblUxejNqbmJBMXA5bTNXTmh2AwkAAAIBAVQFByRtYXRjaDACIzNNdW1rR0d6dENLQVhwV0RxeGtkZG9mcVhTVWJxUWt2U0p5CQACAQINVW5rbm93biBjaGFpbgARSW5mcmFVcGdyYWRlQ29zdFMEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDAAgMivoCUDCQAAAgEBVAUHJG1hdGNoMACAwtcvCQACAQINVW5rbm93biBjaGFpbgADU0VQAgJfXwAFTVVMVDYAwIQ9AApBUlRQUkVTQUxFAgdQUkVTQUxFAAZOVU1SRVMABgAFU1NJWkUAGQAFTVNJWkUAZAAFTFNJWkUA4QEABlhMU0laRQCQAwAHWFhMU0laRQDxBAAPREFJTFlSRVNCWVBJRUNFAID40gEACURBWU1JTExJUwCAuJkpAAxXSE1VTFRJUExJRVIAgMivoCUAEFJFU09VUkNFUFJJQ0VNSU4A1bUCAA9EVVRZTUFYUEFDS0FHRVMAAwALRFVUWUJVWUNPRUYABAARRU1FUkdFTkNZU0VMTENPRUYACgAQcHJvZHVjdGlvbk1hdHJpeAkAzAgCAhIxXzFfMV8yXzJfNV8xXzEwXzAJAMwIAgITMl8yXzJfNF80XzEwXzFfMTBfMAkAzAgCAhMzXzNfM182XzZfMTVfMV8xMF8wCQDMCAICEzJfNV81XzJfN181XzJfMTAwXzEJAMwIAgIXNF8xMF8xMF80XzE0XzEwXzJfMTAwXzEJAMwIAgIXNl8xNV8xNV82XzIxXzE1XzJfMTAwXzEJAMwIAgISMV8xXzFfMV8xXzhfMV8xMF8yCQDMCAICEzJfMl8yXzJfMl8xNl8xXzEwXzIJAMwIAgITM18zXzNfM18zXzI0XzFfMTBfMgkAzAgCAhM5XzlfMV81XzVfMV81XzEwMF8zCQDMCAICFzE4XzE4XzJfMTBfMTBfMl81XzEwMF8zCQDMCAICFzI3XzI3XzNfMTVfMTVfM181XzEwMF8zCQDMCAICEjJfMl8xXzJfMl8yXzFfMTBfNAkAzAgCAhI0XzRfMl80XzRfNF8xXzEwXzQJAMwIAgISNl82XzNfNl82XzZfMV8xMF80BQNuaWwAEXJlY2lwZUlkeFBhY2tzaXplAAcACnJlY0xhbmROdW0AAAALcmVjTGFuZFNpemUAAQALcmVjVGVycmFpbnMAAgAMcmVjQ29udGluZW50AAMBD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABFJZHhDZmdTdGFraW5nRGFwcAABABFJZHhDZmdFY29ub215RGFwcAACAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9lY29ub215Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdFY29ub215RGFwcAERa2V5TGFzdFR4SWRCeVVzZXIBBGFkZHIJAKwCAgIPbGFzdFR4SWRCeVVzZXJfBQRhZGRyARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBB2Fzc2V0SWQJAKwCAgIJbmZ0T3duZXJfBQdhc3NldElkARprZXlMYW5kQXNzZXRJZFRvQ3VzdG9tTmFtZQEHYXNzZXRJZAkArAICAhhsYW5kQ3VzdG9tTmFtZUJ5QXNzZXRJZF8FB2Fzc2V0SWQBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgILc3Rha2VkVGltZV8FB2Fzc2V0SWQBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgILaW5mcmFMZXZlbF8FB2Fzc2V0SWQBIGtleUxhbmRBcnRTdGF0dXNCeVR5cGVBbmRBc3NldElkAgR0eXBlB2Fzc2V0SWQJALkJAgkAzAgCAg1sYW5kQXJ0U3RhdHVzCQDMCAIFBHR5cGUJAMwIAgUHYXNzZXRJZAUDbmlsAgFfARJrZXlXYXJlaG91c2VCeUxhbmQBC2xhbmRBc3NldElkCQCsAgICCndhcmVIb3VzZV8FC2xhbmRBc3NldElkARVrZXlTdGFrZWRMYW5kc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhNzdGFrZWRMYW5kc0J5T3duZXJfBQlvd25lckFkZHIBGmtleUR1Y2tBc3NldElkVG9DdXN0b21OYW1lAQdhc3NldElkCQCsAgICGGR1Y2tDdXN0b21OYW1lQnlBc3NldElkXwUHYXNzZXRJZAEWa2V5QWRkcmVzc1RvQ3VzdG9tTmFtZQEEYWRkcgkArAICAhhhY2NvdW50Q3VzdG9tTmFtZUJ5QWRkcl8FBGFkZHIBD2tleUFkZHJlc3NSZWZCeQEEYWRkcgkArAICAglhY2NSZWZCeV8FBGFkZHIBE2tleUFkZHJlc3NSZWZlcnJhbHMBBGFkZHIJAKwCAgINYWNjUmVmZXJyYWxzXwUEYWRkcgEQa2V5RHVja0lkVG9Pd25lcgEHYXNzZXRJZAkArAICAgpkdWNrT3duZXJfBQdhc3NldElkARRrZXlTdGFrZWREdWNrQnlPd25lcgEJb3duZXJBZGRyCQCsAgICEnN0YWtlZER1Y2tCeU93bmVyXwUJb3duZXJBZGRyAQ9rZXlEdWNrTG9jYXRpb24BC2R1Y2tBc3NldElkCQCsAgICDWR1Y2tMb2NhdGlvbl8FC2R1Y2tBc3NldElkAQ1rZXlEdWNrSGVhbHRoAQtkdWNrQXNzZXRJZAkArAICAgtkdWNrSGVhbHRoXwULZHVja0Fzc2V0SWQBCmtleUJsb2NrZWQAAhBjb250cmFjdHNCbG9ja2VkAQ5rZXlPcmRlckJ5TGFuZAELbGFuZEFzc2V0SWQJAKwCAgIKbGFuZE9yZGVyXwULbGFuZEFzc2V0SWQBFmtleUR1dHlXYXJlaG91c2VCeVR5cGUBCHByb2RUeXBlCQCsAgICDWR1dHlXaEJ5UHJvZF8JAKQDAQUIcHJvZFR5cGUBCGFzU3RyaW5nAQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAUBcwkAAgECGGZhaWwgdG8gY2FzdCBpbnRvIFN0cmluZwEJYXNCb29sZWFuAQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACB0Jvb2xlYW4EAXMFByRtYXRjaDAFAXMJAAIBAhlmYWlsIHRvIGNhc3QgaW50byBCb29sZWFuAQ9udW1QaWVjZXNCeVNpemUBCGxhbmRTaXplBAckbWF0Y2gwBQhsYW5kU2l6ZQMJAAACAgFTBQckbWF0Y2gwBQVTU0laRQMJAAACAgFNBQckbWF0Y2gwBQVNU0laRQMJAAACAgFMBQckbWF0Y2gwBQVMU0laRQMJAAACAgJYTAUHJG1hdGNoMAUGWExTSVpFAwkAAAICA1hYTAUHJG1hdGNoMAUHWFhMU0laRQkAAgECEVVua25vd24gbGFuZCBzaXplAA1VU0RUUFJJWkVQQVJUAKDCHgESYXNMaXN0SW50Q29tcGFjdGVkAQN2YWwEByRtYXRjaDAFA3ZhbAMJAAECBQckbWF0Y2gwAglMaXN0W0FueV0ECnZhbEFueUxpc3QFByRtYXRjaDADCQECIT0CCQCQAwEFCnZhbEFueUxpc3QFBk5VTVJFUwkAAgEJAKwCAgIOQXJyYXkgc2l6ZSBpcyAJAKQDAQkAkAMBBQp2YWxBbnlMaXN0CgEEY29udgIDYWNjBGl0ZW0EByRtYXRjaDEFBGl0ZW0DCQABAgUHJG1hdGNoMQIDSW50BAJpdAUHJG1hdGNoMQkAzQgCBQNhY2MJAKQDAQUCaXQJAAIBAhRMaXN0IHR5cGUgaXMgbm90IEludAQBcgoAAiRsBQp2YWxBbnlMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQRjb252AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCQC5CQIFAXICAV8JAAIBAhZmYWlsIHRvIGNhc3QgaW50byBMaXN0AQ1hc1NwbGl0UmVzdWx0AQN2YWwEByRtYXRjaDAFA3ZhbAMJAAECBQckbWF0Y2gwAhYoTGlzdFtBbnldLCBMaXN0W0FueV0pBAJ0MgUHJG1hdGNoMAkAlAoCCQESYXNMaXN0SW50Q29tcGFjdGVkAQgFAnQyAl8xCQESYXNMaXN0SW50Q29tcGFjdGVkAQgFAnQyAl8yCQACAQIeZmFpbCB0byBjYXN0IGludG8gKExpc3QsIExpc3QpAQ53YWxsZXRJbnRlcm5hbAEOdXNlckFkZHJlc3NPcHQEBGFkZHIJAKYIAQUOdXNlckFkZHJlc3NPcHQEB2JhbGFuY2UDCQEJaXNEZWZpbmVkAQUEYWRkcgkA7wcBCQEFdmFsdWUBBQRhZGRyCQEOQmFsYW5jZURldGFpbHMEAAAAAAAAAAAEC3VzZHRCYWxhbmNlAwkBCWlzRGVmaW5lZAEFBGFkZHIJAPAHAgkBBXZhbHVlAQUEYWRkcgULdXNkdEFzc2V0SWQAAAQKY3VzdG9tTmFtZQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlBZGRyZXNzVG9DdXN0b21OYW1lAQUOdXNlckFkZHJlc3NPcHQFDnVzZXJBZGRyZXNzT3B0BAVyZWZCeQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlBZGRyZXNzUmVmQnkBBQ51c2VyQWRkcmVzc09wdAIABARyZWZzCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBE2tleUFkZHJlc3NSZWZlcnJhbHMBBQ51c2VyQWRkcmVzc09wdAIABAhsYXN0VHhJZAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlMYXN0VHhJZEJ5VXNlcgEFDnVzZXJBZGRyZXNzT3B0AgAJAMwIAgkArAICAhIlcyVzX19jdXN0b21OYW1lX18FCmN1c3RvbU5hbWUJAMwIAgkArAICAhIlcyVzX19yZWZlcnJlZEJ5X18FBXJlZkJ5CQDMCAIJAKwCAgIRJXMlc19fcmVmZXJyYWxzX18FBHJlZnMJAMwIAgkArAICAhAlcyVzX19sYXN0VHhJZF9fBQhsYXN0VHhJZAkAzAgCCQCsAgICFiVzJXMlZF9fd2F2ZXNCYWxhbmNlX18JAKQDAQgFB2JhbGFuY2UJYXZhaWxhYmxlCQDMCAIJAKwCAgIVJXMlcyVkX191c2R0QmFsYW5jZV9fCQCkAwEFC3VzZHRCYWxhbmNlBQNuaWwBDGFwcGx5Qm9udXNlcwILbGFuZEFzc2V0SWQGcGllY2VzBAppbmZyYUxldmVsCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAlhcnRQaWVjZXMJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAAABARhZGQ2CQBpAgUKaW5mcmFMZXZlbAAGBARhZGQ3CQBpAgUKaW5mcmFMZXZlbAAHCQCVCgMFCmluZnJhTGV2ZWwFCWFydFBpZWNlcwkAZAIJAGQCBQ9EQUlMWVJFU0JZUElFQ0UJAGsDBQ9EQUlMWVJFU0JZUElFQ0UJAGQCCQBkAgUKaW5mcmFMZXZlbAUEYWRkNgkAaAIAAgUEYWRkNwAFCQBrAwUPREFJTFlSRVNCWVBJRUNFBQlhcnRQaWVjZXMJAGgCBQZwaWVjZXMABQEXZ2V0V2FyZWhvdXNlVG90YWxWb2x1bWUBCXZvbFByZWZpeAQFcGFydHMJALUJAgUJdm9sUHJlZml4AgFfCQBoAgkAaAIFDFdITVVMVElQTElFUgkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwYXJ0cwABAAEJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwYXJ0cwAAAQxnZXRXYXJlaG91c2UDBXdoS2V5CWxhbmRJbmRleAppbmZyYUxldmVsBAl2b2xQcmVmaXgJAKwCAgkArAICCQCkAwEFCWxhbmRJbmRleAIBXwkApAMBBQppbmZyYUxldmVsBAR0b3RTCQCkAwEJARdnZXRXYXJlaG91c2VUb3RhbFZvbHVtZQEFCXZvbFByZWZpeAQFd2hTdHIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQV3aEtleQkArAICCQCsAgIJAKwCAgkArAICBQl2b2xQcmVmaXgCHjowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDo6MF8wXwUEdG90UwIBXwUEdG90UwkAtQkCBQV3aFN0cgIBOgENZHVja0luZm9UdXBsZQELZHVja0Fzc2V0SWQJAJcKBQkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULZHVja0Fzc2V0SWQA////////////AQgJAQV2YWx1ZQEJAOwHAQkA2QQBBQtkdWNrQXNzZXRJZARuYW1lCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkAgAJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQENa2V5RHVja0hlYWx0aAEFC2R1Y2tBc3NldElkAP///////////wEJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhNnZXRCYWNrcGFja1JFQURPTkxZCQDMCAIFC2R1Y2tBc3NldElkBQNuaWwFA25pbAENZHVja0luZm9BcnJheQMLZHVja0Fzc2V0SWQFb3duZXIHZHVja0luZgQKY3VzdG9tTmFtZQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARprZXlEdWNrQXNzZXRJZFRvQ3VzdG9tTmFtZQEFC2R1Y2tBc3NldElkCAUHZHVja0luZgJfMgkAzAgCCQCsAgICDyVzJXNfX2Fzc2V0SWRfXwULZHVja0Fzc2V0SWQJAMwIAgkArAICAg0lcyVzX19vd25lcl9fBQVvd25lcgkAzAgCCQCsAgICEiVzJXNfX2N1c3RvbU5hbWVfXwUKY3VzdG9tTmFtZQkAzAgCCQCsAgICEiVzJWRfX3N0YWtlZFRpbWVfXwkApAMBCAUHZHVja0luZgJfMQkAzAgCCQCsAgICDCVzJXNfX25hbWVfXwgFB2R1Y2tJbmYCXzIJAMwIAgkArAICAhAlcyVzX19sb2NhdGlvbl9fCAUHZHVja0luZgJfMwkAzAgCCQCsAgICDiVzJWRfX2hlYWx0aF9fCQCkAwEIBQdkdWNrSW5mAl80CQDMCAIJAKwCAgIQJXMlc19fYmFja1BhY2tfXwgFB2R1Y2tJbmYCXzUFA25pbAENbGFuZEluZm9BcnJheQMLbGFuZEFzc2V0SWQFb3duZXIKc3Rha2VkVGltZQMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQEAWEJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAQBZAkAtQkCCAUBYQtkZXNjcmlwdGlvbgIBXwQHbGFuZE51bQMJAGYCCAUBYQhxdWFudGl0eQAACQCRAwIFAWQFCnJlY0xhbmROdW0JAKwCAgIBLQkAkQMCBQFkBQpyZWNMYW5kTnVtBAZwaWVjZXMJAQ9udW1QaWVjZXNCeVNpemUBCQCRAwIFAWQFC3JlY0xhbmRTaXplBAxwcm9kdWN0aXZpdHkJAQxhcHBseUJvbnVzZXMCBQtsYW5kQXNzZXRJZAUGcGllY2VzBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUKc3Rha2VkVGltZQQIYXZhaWxSZXMDCQBmAgUKc3Rha2VkVGltZQAACQBrAwUJZGVsdGFUaW1lCQBoAggFDHByb2R1Y3Rpdml0eQJfMwUGcGllY2VzBQlEQVlNSUxMSVMAAAQHbmVlZE1hdAkAawMFEUluZnJhVXBncmFkZUNvc3RTCQBoAgUGcGllY2VzCQBkAggFDHByb2R1Y3Rpdml0eQJfMQABBQVTU0laRQQOZ2xvYmFsQW5kTG9jYWwDCQBmAgUKc3Rha2VkVGltZQAACQENYXNTcGxpdFJlc3VsdAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AiRzcGxpdEJ5R2xvYmFsQW5kTG9jYWxXZWlnaHRzUkVBRE9OTFkJAMwIAgUHbmVlZE1hdAkAzAgCBQhhdmFpbFJlcwkAzAgCCQCRAwIFAWQFC3JlY1RlcnJhaW5zBQNuaWwFA25pbAkAlAoCCQESYXNMaXN0SW50Q29tcGFjdGVkAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCHHNwbGl0QnlHbG9iYWxXZWlnaHRzUkVBRE9OTFkJAMwIAgUHbmVlZE1hdAUDbmlsBQNuaWwCAAQKY3VzdG9tTmFtZQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARprZXlMYW5kQXNzZXRJZFRvQ3VzdG9tTmFtZQEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgkAkQMCBQFkBQxyZWNDb250aW5lbnQCAS0JAJEDAgUBZAUKcmVjTGFuZE51bQkAzAgCCQCsAgICDyVzJXNfX2Fzc2V0SWRfXwULbGFuZEFzc2V0SWQJAMwIAgkArAICAg0lcyVzX19vd25lcl9fBQVvd25lcgkAzAgCCQCsAgICEiVzJXNfX2N1c3RvbU5hbWVfXwUKY3VzdG9tTmFtZQkAzAgCCQCsAgICEiVzJWRfX3N0YWtlZFRpbWVfXwkApAMBBQpzdGFrZWRUaW1lCQDMCAIJAKwCAgITJXMlc19fZGVzY3JpcHRpb25fXwkAuQkCCQDMCAIFB2xhbmROdW0JAMwIAgkAkQMCBQFkBQtyZWNMYW5kU2l6ZQkAzAgCCQCRAwIFAWQFC3JlY1RlcnJhaW5zCQDMCAIJAJEDAgUBZAUMcmVjQ29udGluZW50BQNuaWwCAV8JAMwIAgkArAICAhIlcyVkX19pbmZyYUxldmVsX18JAKQDAQgFDHByb2R1Y3Rpdml0eQJfMQkAzAgCCQCsAgICFiVzJXNfX2F2YWlsUmVzQnlUeXBlX18IBQ5nbG9iYWxBbmRMb2NhbAJfMgkAzAgCCQCsAgICFSVzJWRfX2F2YWlsUmVzVG90YWxfXwkApAMBBQhhdmFpbFJlcwkAzAgCCQCsAgICFCVzJXNfX25lZWRNYXRlcmlhbF9fCAUOZ2xvYmFsQW5kTG9jYWwCXzEJAMwIAgkAuQkCCQDMCAICBCVzJXMJAMwIAgINbGFuZEFydGVmYWN0cwkAzAgCCQCsAgICCFBSRVNBTEU6CQCkAwEIBQxwcm9kdWN0aXZpdHkCXzIFA25pbAUDU0VQCQDMCAIJAKwCAgIRJXMlc19fd2FyZWhvdXNlX18JALkJAgkBDGdldFdhcmVob3VzZQMJARJrZXlXYXJlaG91c2VCeUxhbmQBBQtsYW5kQXNzZXRJZAkAaQIFBnBpZWNlcwUFU1NJWkUIBQxwcm9kdWN0aXZpdHkCXzECAToJAMwIAgkArAICAhElcyVzX19sYW5kT3JkZXJfXwkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9lY29ub215Q29udHJhY3QJAQ5rZXlPcmRlckJ5TGFuZAEFC2xhbmRBc3NldElkAjAwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDowQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDoFA25pbAESbGFuZE9yZGVySW5mb0FycmF5AgtsYW5kQXNzZXRJZAVvd25lcgMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQEAWEJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAQBZAkAtQkCCAUBYQtkZXNjcmlwdGlvbgIBXwQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCBQFkBQtyZWNMYW5kU2l6ZQQMcHJvZHVjdGl2aXR5CQEMYXBwbHlCb251c2VzAgULbGFuZEFzc2V0SWQFBnBpZWNlcwkAzAgCCQCsAgICDyVzJXNfX2Fzc2V0SWRfXwULbGFuZEFzc2V0SWQJAMwIAgkArAICAg0lcyVzX19vd25lcl9fBQVvd25lcgkAzAgCCQCsAgICESVzJXNfX3dhcmVob3VzZV9fCQC5CQIJAQxnZXRXYXJlaG91c2UDCQESa2V5V2FyZWhvdXNlQnlMYW5kAQULbGFuZEFzc2V0SWQJAGkCBQZwaWVjZXMFBVNTSVpFCAUMcHJvZHVjdGl2aXR5Al8xAgE6CQDMCAIJAKwCAgIRJXMlc19fbGFuZE9yZGVyX18JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPZWNvbm9teUNvbnRyYWN0CQEOa2V5T3JkZXJCeUxhbmQBBQtsYW5kQXNzZXRJZAIwMEAwXzBAMF8wQDBfMEAwXzBAMF8wQDA6MEAwXzBAMF8wQDBfMEAwXzBAMF8wQDA6BQNuaWwNAWkBDWNvbnN0cnVjdG9yVjEBCWNvbnRyYWN0cwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEnBlcm1pc3Npb25zIGRlbmllZAoBCmRlc2NyaXB0b3ICA2FjYwtpZ25vcmVkSXRlbQkArAICBQNhY2MCAiVzBAVkZXNjcgoAAiRsBQljb250cmFjdHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCmRlc2NyaXB0b3ICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAMwIAgkBC1N0cmluZ0VudHJ5AgkBCmtleVJlc3RDZmcACQC5CQIJAMwIAgUFZGVzY3IFCWNvbnRyYWN0cwUDU0VQCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAJAKUIAQUEdGhpcwUDbmlsAWkBEndhbGxldEluZm9SRUFET05MWQEOdXNlckFkZHJlc3NPcHQJAJQKAgUDbmlsCQEOd2FsbGV0SW50ZXJuYWwBBQ51c2VyQWRkcmVzc09wdAFpARdkdWNrQnlPd25lckluZm9SRUFET05MWQELdXNlckFkZHJlc3MECnN0YWtlZER1Y2sJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQt1c2VyQWRkcmVzcwkAlAoCBQNuaWwDAwkBCWlzRGVmaW5lZAEJAKYIAQULdXNlckFkZHJlc3MJAQlpc0RlZmluZWQBBQpzdGFrZWREdWNrBwQLZHVja0Fzc2V0SWQJAQV2YWx1ZQEFCnN0YWtlZER1Y2sJAQ1kdWNrSW5mb0FycmF5AwULZHVja0Fzc2V0SWQFC3VzZXJBZGRyZXNzCQENZHVja0luZm9UdXBsZQEFC2R1Y2tBc3NldElkCQENZHVja0luZm9BcnJheQMCAAULdXNlckFkZHJlc3MJAJcKBQD///////////8BAgACAAD///////////8BAgABaQEZZHVja0J5QXNzZXRJZEluZm9SRUFET05MWQELZHVja0Fzc2V0SWQEBW93bmVyCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBEGtleUR1Y2tJZFRvT3duZXIBBQtkdWNrQXNzZXRJZAQHZHVja0luZgkBDWR1Y2tJbmZvVHVwbGUBBQtkdWNrQXNzZXRJZAkAlAoCBQNuaWwJAQ1kdWNrSW5mb0FycmF5AwULZHVja0Fzc2V0SWQDCQEJaXNEZWZpbmVkAQUFb3duZXIJAQV2YWx1ZQEFBW93bmVyAgAJAQ1kdWNrSW5mb1R1cGxlAQULZHVja0Fzc2V0SWQBaQEZbGFuZEJ5QXNzZXRJZEluZm9SRUFET05MWQELbGFuZEFzc2V0SWQDCQAAAgULbGFuZEFzc2V0SWQCAAkAAgECF2xhbmRBc3NldElkIGlzIHJlcXVpcmVkBApzdGFrZWRUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAD///////////8BBAVvd25lcgMJAGYCBQpzdGFrZWRUaW1lAAAJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQCAAkAlAoCBQNuaWwJAQ1sYW5kSW5mb0FycmF5AwULbGFuZEFzc2V0SWQFBW93bmVyBQpzdGFrZWRUaW1lAWkBHnN0YWtlZExhbmRzQnlPd25lckluZm9SRUFET05MWQEQbGFuZE93bmVyQWRkcmVzcwMJAAACBRBsYW5kT3duZXJBZGRyZXNzAgAJAAIBAhxsYW5kT3duZXJBZGRyZXNzIGlzIHJlcXVpcmVkBAhsYW5kc1N0cgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARVrZXlTdGFrZWRMYW5kc0J5T3duZXIBBRBsYW5kT3duZXJBZGRyZXNzBAVsYW5kcwMJAQlpc0RlZmluZWQBBQhsYW5kc1N0cgkAvQkCCQEFdmFsdWUBBQhsYW5kc1N0cgIBXwUDbmlsCgEHb25lTGFuZAIDYWNjC2xhbmRBc3NldElkAwkAAAIFC2xhbmRBc3NldElkAgAJAAIBAhdsYW5kQXNzZXRJZCBpcyByZXF1aXJlZAQKc3Rha2VkVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQA////////////AQkAzQgCBQNhY2MJAQ1sYW5kSW5mb0FycmF5AwULbGFuZEFzc2V0SWQFEGxhbmRPd25lckFkZHJlc3MFCnN0YWtlZFRpbWUEAXIKAAIkbAUFbGFuZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBB29uZUxhbmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDQwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgJAJQKAgUDbmlsBQFyAWkBFmxhbmRzQnlJZHNJbmZvUkVBRE9OTFkBDGxhbmRBc3NldElkcwoBB29uZUxhbmQCA2FjYwtsYW5kQXNzZXRJZAMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQECnN0YWtlZFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkAP///////////wEEBW93bmVyAwkAZgIFCnN0YWtlZFRpbWUAAAkBBXZhbHVlAQkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAIACQDNCAIFA2FjYwkBDWxhbmRJbmZvQXJyYXkDBQtsYW5kQXNzZXRJZAUFb3duZXIFCnN0YWtlZFRpbWUEAXIKAAIkbAUMbGFuZEFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA0MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoCQCUCgIFA25pbAUBcgFpASN3YXJlaG91c2VPcmRlckJ5QXNzZXRJZEluZm9SRUFET05MWQELbGFuZEFzc2V0SWQDCQAAAgULbGFuZEFzc2V0SWQCAAkAAgECF2xhbmRBc3NldElkIGlzIHJlcXVpcmVkBApzdGFrZWRUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAD///////////8BBAVvd25lcgMJAGYCBQpzdGFrZWRUaW1lAAAJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQCAAkAlAoCBQNuaWwJARJsYW5kT3JkZXJJbmZvQXJyYXkCBQtsYW5kQXNzZXRJZAUFb3duZXIBaQEbb3JkZXJzQnlMYW5kSWRzSW5mb1JFQURPTkxZAQxsYW5kQXNzZXRJZHMKAQdvbmVMYW5kAgNhY2MLbGFuZEFzc2V0SWQDCQAAAgULbGFuZEFzc2V0SWQCAAkAAgECF2xhbmRBc3NldElkIGlzIHJlcXVpcmVkBApzdGFrZWRUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAD///////////8BBAVvd25lcgMJAGYCBQpzdGFrZWRUaW1lAAAJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQCAAkAzQgCBQNhY2MJARJsYW5kT3JkZXJJbmZvQXJyYXkCBQtsYW5kQXNzZXRJZAUFb3duZXIEAXIKAAIkbAUMbGFuZEFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA0MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoCQCUCgIFA25pbAUBcgFpARVjYW5jZWxXYXJlaG91c2VPcmRlcnMBDGxhbmRBc3NldElkcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEXBlcm1pc3Npb24gZGVuaWVkBAdibG9ja2VkCQCbCAIFD3N0YWtpbmdDb250cmFjdAkBCmtleUJsb2NrZWQAAwMJAQEhAQkBCWlzRGVmaW5lZAEFB2Jsb2NrZWQGCQAAAgkBBXZhbHVlAQUHYmxvY2tlZAcJAAIBAjNDb250cmFjdHMgc2hvdWxkIGJlIGJsb2NrZWQgYmVmb3JlIGNhbmNlbGluZyBvcmRlcnMKAQdvbmVMYW5kAgFhC2xhbmRBc3NldElkAwkAAAIFC2xhbmRBc3NldElkAgAJAAIBAhdsYW5kQXNzZXRJZCBpcyByZXF1aXJlZAQBYwkBCWFzQm9vbGVhbgEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhFzZXRXYXJlaG91c2VPcmRlcgkAzAgCAjAwQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDowQDBfMEAwXzBAMF8wQDBfMEAwXzBAMDoJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsAwMFAWEGBQFjCQEBIQEDBQFhBQFjBwcEAXIKAAIkbAUMbGFuZEFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAcKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBB29uZUxhbmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDMwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeCQCUCgIFA25pbAUBcgFpARNmaXhXYXJlaG91c2VGb3JtYXRzAQxsYW5kQXNzZXRJZHMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAoBB29uZUxhbmQCA2FjYwtsYW5kQXNzZXRJZAMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQJAGQCBQNhY2MJALECAQkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCEmZpeFdhcmVob3VzZUZvcm1hdAkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwEAXIKAAIkbAUMbGFuZEFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZCQCUCgIFA25pbAUBcgFpAQ1zZW5kVXNkdFByaXplAQt1c2VyQWRkcmVzcwMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRcGVybWlzc2lvbiBkZW5pZWQEA2FtdAkAawMJAPAHAgUEdGhpcwULdXNkdEFzc2V0SWQFDVVTRFRQUklaRVBBUlQFBU1VTFQ2CQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQULdXNlckFkZHJlc3MFA2FtdAULdXNkdEFzc2V0SWQFA25pbAUDYW10AWkBH2dldEVtZXJnZW5jeVNlcnZpY2VEYXRhUkVBRE9OTFkACgEKc2luZ2xlUHJvZAIDYWNjCXJlY2lwZVN0cgQBbggFA2FjYwJfMgQGcmVjaXBlCQC1CQIFCXJlY2lwZVN0cgIBXwQIcGFja1NpemUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFEXJlY2lwZUlkeFBhY2tzaXplBAltYXhBbW91bnQDCQAAAgUBbgAACQBoAgUPRFVUWU1BWFBBQ0tBR0VTBQhwYWNrU2l6ZQAABAtleGlzdEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9lY29ub215Q29udHJhY3QJARZrZXlEdXR5V2FyZWhvdXNlQnlUeXBlAQUBbgAACgEGYWRkTWF0AgJhYwFqCQBkAgUCYWMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQZyZWNpcGUFAWoECHRvdGFsTWF0CgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEGYWRkTWF0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAhidXlQcmljZQkAawMJAGgCBQh0b3RhbE1hdAULRFVUWUJVWUNPRUYFEFJFU09VUkNFUFJJQ0VNSU4JAGgCBQhwYWNrU2l6ZQAKBAlzZWxsUHJpY2UJAGsDCQBoAgUIdG90YWxNYXQFEUVNRVJHRU5DWVNFTExDT0VGBRBSRVNPVVJDRVBSSUNFTUlOCQBoAgUIcGFja1NpemUACgQBeQkAuQkCCQDMCAIJAKQDAQUJbWF4QW1vdW50CQDMCAIJAKQDAQULZXhpc3RBbW91bnQJAMwIAgkApAMBBQhidXlQcmljZQkAzAgCCQCkAwEFCXNlbGxQcmljZQUDbmlsAgFfCQCUCgIJAM0IAggFA2FjYwJfMQUBeQkAZAIFAW4AAQQBcwkAugkCCAoAAiRsBRBwcm9kdWN0aW9uTWF0cml4CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKc2luZ2xlUHJvZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyAl8xAgE6BAZyZXN1bHQJAKwCAgIcJXMlc19fZW1lcmdlbmN5U2VydmljZURhdGFfXwUBcwkAlAoCBQNuaWwFBnJlc3VsdADpx0Tx",
    "height": 2612723,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Ahxab9SswMdm24fP1JLXCADFUEhd2onMK7XvzAHYEoaZ
Next: 9qF9FM7cYnkVdpX13CkSKq6cGXFT99WBdQeS9ftiMkYx

Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let chain = take(drop(this.bytes, 1), 1)
5 5  
6 6  let usdtAssetId = match chain {
7 7      case _ => 
8 8          if ((base58'2W' == $match0))
9 9              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
10 10              else if ((base58'2T' == $match0))
11 11                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
12 12                  else throw("Unknown chain")
13 13  }
14 14  
15 15  let defaultRestAddressStr = match chain {
16 16      case _ => 
17 17          if ((base58'2W' == $match0))
18 18              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
19 19              else if ((base58'2T' == $match0))
20 20                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
21 21                  else throw("Unknown chain")
22 22  }
23 23  
24 24  let InfraUpgradeCostS = match chain {
25 25      case _ => 
26 26          if ((base58'2W' == $match0))
27 27              then 10000000000
28 28              else if ((base58'2T' == $match0))
29 29                  then 100000000
30 30                  else throw("Unknown chain")
31 31  }
32 32  
33 33  let SEP = "__"
34 34  
35 35  let MULT6 = 1000000
36 36  
37 37  let ARTPRESALE = "PRESALE"
38 38  
39 39  let NUMRES = 6
40 40  
41 41  let SSIZE = 25
42 42  
43 43  let MSIZE = 100
44 44  
45 45  let LSIZE = 225
46 46  
47 47  let XLSIZE = 400
48 48  
49 49  let XXLSIZE = 625
50 50  
51 51  let DAILYRESBYPIECE = 3456000
52 52  
53 53  let DAYMILLIS = 86400000
54 54  
55 55  let WHMULTIPLIER = 10000000000
56 56  
57 57  let RESOURCEPRICEMIN = 39637
58 58  
59 59  let DUTYMAXPACKAGES = 3
60 60  
61 61  let DUTYBUYCOEF = 4
62 62  
63 63  let EMERGENCYSELLCOEF = 10
64 64  
65 65  let productionMatrix = ["1_1_1_2_2_5_1_10_0", "2_2_2_4_4_10_1_10_0", "3_3_3_6_6_15_1_10_0", "2_5_5_2_7_5_2_100_1", "4_10_10_4_14_10_2_100_1", "6_15_15_6_21_15_2_100_1", "1_1_1_1_1_8_1_10_2", "2_2_2_2_2_16_1_10_2", "3_3_3_3_3_24_1_10_2", "9_9_1_5_5_1_5_100_3", "18_18_2_10_10_2_5_100_3", "27_27_3_15_15_3_5_100_3", "2_2_1_2_2_2_1_10_4", "4_4_2_4_4_4_1_10_4", "6_6_3_6_6_6_1_10_4"]
66 66  
67 67  let recipeIdxPacksize = 7
68 68  
69 69  let recLandNum = 0
70 70  
71 71  let recLandSize = 1
72 72  
73 73  let recTerrains = 2
74 74  
75 75  let recContinent = 3
76 76  
77 77  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
78 78  
79 79  
80 80  let IdxCfgStakingDapp = 1
81 81  
82 82  let IdxCfgEconomyDapp = 2
83 83  
84 84  func keyRestCfg () = "%s__restConfig"
85 85  
86 86  
87 87  func keyRestAddress () = "%s__restAddr"
88 88  
89 89  
90 90  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
91 91  
92 92  
93 93  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
94 94  
95 95  
96 96  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
97 97  
98 98  let restCfg = readRestCfgOrFail(restContract)
99 99  
100 100  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
101 101  
102 102  let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
103 103  
104 104  func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
105 105  
106 106  
107 107  func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
108 108  
109 109  
110 110  func keyLandAssetIdToCustomName (assetId) = ("landCustomNameByAssetId_" + assetId)
111 111  
112 112  
113 113  func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
114 114  
115 115  
116 116  func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
117 117  
118 118  
119 119  func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
120 120  
121 121  
122 122  func keyWarehouseByLand (landAssetId) = ("wareHouse_" + landAssetId)
123 123  
124 124  
125 125  func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
126 126  
127 127  
128 128  func keyDuckAssetIdToCustomName (assetId) = ("duckCustomNameByAssetId_" + assetId)
129 129  
130 130  
131 131  func keyAddressToCustomName (addr) = ("accountCustomNameByAddr_" + addr)
132 132  
133 133  
134 134  func keyAddressRefBy (addr) = ("accRefBy_" + addr)
135 135  
136 136  
137 137  func keyAddressReferrals (addr) = ("accReferrals_" + addr)
138 138  
139 139  
140 140  func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
141 141  
142 142  
143 143  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
144 144  
145 145  
146 146  func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
147 147  
148 148  
149 149  func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
150 150  
151 151  
152 152  func keyBlocked () = "contractsBlocked"
153 153  
154 154  
155 155  func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
156 156  
157 157  
158 158  func keyDutyWarehouseByType (prodType) = ("dutyWhByProd_" + toString(prodType))
159 159  
160 160  
161 161  func asString (v) = match v {
162 162      case s: String => 
163 163          s
164 164      case _ => 
165 165          throw("fail to cast into String")
166 166  }
167 167  
168 168  
169 169  func asBoolean (v) = match v {
170 170      case s: Boolean => 
171 171          s
172 172      case _ => 
173 173          throw("fail to cast into Boolean")
174 174  }
175 175  
176 176  
177 177  func numPiecesBySize (landSize) = match landSize {
178 178      case _ => 
179 179          if (("S" == $match0))
180 180              then SSIZE
181 181              else if (("M" == $match0))
182 182                  then MSIZE
183 183                  else if (("L" == $match0))
184 184                      then LSIZE
185 185                      else if (("XL" == $match0))
186 186                          then XLSIZE
187 187                          else if (("XXL" == $match0))
188 188                              then XXLSIZE
189 189                              else throw("Unknown land size")
190 190  }
191 191  
192 192  
193 193  let USDTPRIZEPART = 500000
194 194  
195 195  func asListIntCompacted (val) = match val {
196 196      case valAnyList: List[Any] => 
197 197          if ((size(valAnyList) != NUMRES))
198 198              then throw(("Array size is " + toString(size(valAnyList))))
199 199              else {
200 200                  func conv (acc,item) =                                 match item {
201 201                      case it: Int => 
202 202                          (acc :+ toString(it))
203 203                      case _ => 
204 204                          throw("List type is not Int")
205 205                  }
206 206  
207 207                  let r = {
208 208                      let $l = valAnyList
209 209                      let $s = size($l)
210 210                      let $acc0 = nil
211 211                      func $f0_1 ($a,$i) =                     if (($i >= $s))
212 212                          then $a
213 213                          else conv($a, $l[$i])
214 214  
215 215                      func $f0_2 ($a,$i) =                     if (($i >= $s))
216 216                          then $a
217 217                          else throw("List size exceeds 6")
218 218  
219 219                      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
220 220                      }
221 221                  makeString(r, "_")
222 222                  }
223 223      case _ => 
224 224          throw("fail to cast into List")
225 225  }
226 226  
227 227  
228 228  func asSplitResult (val) = match val {
229 229      case t2: (List[Any], List[Any]) => 
230 230          $Tuple2(asListIntCompacted(t2._1), asListIntCompacted(t2._2))
231 231      case _ => 
232 232          throw("fail to cast into (List, List)")
233 233  }
234 234  
235 235  
236 236  func walletInternal (userAddressOpt) = {
237 237      let addr = addressFromString(userAddressOpt)
238 238      let balance = if (isDefined(addr))
239 239          then wavesBalance(value(addr))
240 240          else BalanceDetails(0, 0, 0, 0)
241 241      let usdtBalance = if (isDefined(addr))
242 242          then assetBalance(value(addr), usdtAssetId)
243 243          else 0
244 244      let customName = valueOrElse(getString(stakingContract, keyAddressToCustomName(userAddressOpt)), userAddressOpt)
245 245      let refBy = valueOrElse(getString(stakingContract, keyAddressRefBy(userAddressOpt)), "")
246 246      let refs = valueOrElse(getString(stakingContract, keyAddressReferrals(userAddressOpt)), "")
247 247      let lastTxId = valueOrElse(getString(stakingContract, keyLastTxIdByUser(userAddressOpt)), "")
248 248  [("%s%s__customName__" + customName), ("%s%s__referredBy__" + refBy), ("%s%s__referrals__" + refs), ("%s%s__lastTxId__" + lastTxId), ("%s%s%d__wavesBalance__" + toString(balance.available)), ("%s%s%d__usdtBalance__" + toString(usdtBalance))]
249 249      }
250 250  
251 251  
252 252  func applyBonuses (landAssetId,pieces) = {
253 253      let infraLevel = valueOrElse(getInteger(stakingContract, keyInfraLevelByAssetId(landAssetId)), 0)
254 254      let artPieces = valueOrElse(getInteger(stakingContract, keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), 0)
255 255      let add6 = (infraLevel / 6)
256 256      let add7 = (infraLevel / 7)
257 257      $Tuple3(infraLevel, artPieces, ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, ((infraLevel + add6) + (2 * add7)), 5)) + fraction(DAILYRESBYPIECE, artPieces, (pieces * 5))))
258 258      }
259 259  
260 260  
261 261  func getWarehouseTotalVolume (volPrefix) = {
262 262      let parts = split(volPrefix, "_")
263 263      ((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
264 264      }
265 265  
266 266  
267 267  func getWarehouse (whKey,landIndex,infraLevel) = {
268 268      let volPrefix = ((toString(landIndex) + "_") + toString(infraLevel))
269 269      let totS = toString(getWarehouseTotalVolume(volPrefix))
270 270      let whStr = valueOrElse(getString(stakingContract, whKey), ((((volPrefix + ":0_0_0_0_0_0:0_0_0_0_0_0::0_0_") + totS) + "_") + totS))
271 271      split(whStr, ":")
272 272      }
273 273  
274 274  
275 275  func duckInfoTuple (duckAssetId) = $Tuple5(valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(duckAssetId)), -1), value(assetInfo(fromBase58String(duckAssetId))).name, valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), ""), valueOrElse(getInteger(stakingContract, keyDuckHealth(duckAssetId)), -1), asString(invoke(stakingContract, "getBackpackREADONLY", [duckAssetId], nil)))
276 276  
277 277  
278 278  func duckInfoArray (duckAssetId,owner,duckInf) = {
279 279      let customName = valueOrElse(getString(stakingContract, keyDuckAssetIdToCustomName(duckAssetId)), duckInf._2)
280 280  [("%s%s__assetId__" + duckAssetId), ("%s%s__owner__" + owner), ("%s%s__customName__" + customName), ("%s%d__stakedTime__" + toString(duckInf._1)), ("%s%s__name__" + duckInf._2), ("%s%s__location__" + duckInf._3), ("%s%d__health__" + toString(duckInf._4)), ("%s%s__backPack__" + duckInf._5)]
281 281      }
282 282  
283 283  
284 284  func landInfoArray (landAssetId,owner,stakedTime) = if ((landAssetId == ""))
285 285      then throw("landAssetId is required")
286 286      else {
287 287          let a = value(assetInfo(fromBase58String(landAssetId)))
288 288          let d = split(a.description, "_")
289 289          let landNum = if ((a.quantity > 0))
290 290              then d[recLandNum]
291 291              else ("-" + d[recLandNum])
292 292          let pieces = numPiecesBySize(d[recLandSize])
293 293          let productivity = applyBonuses(landAssetId, pieces)
294 294          let deltaTime = (lastBlock.timestamp - stakedTime)
295 295          let availRes = if ((stakedTime > 0))
296 296              then fraction(deltaTime, (productivity._3 * pieces), DAYMILLIS)
297 297              else 0
298 298          let needMat = fraction(InfraUpgradeCostS, (pieces * (productivity._1 + 1)), SSIZE)
299 299          let globalAndLocal = if ((stakedTime > 0))
300 300              then asSplitResult(invoke(stakingContract, "splitByGlobalAndLocalWeightsREADONLY", [needMat, availRes, d[recTerrains]], nil))
301 301              else $Tuple2(asListIntCompacted(invoke(stakingContract, "splitByGlobalWeightsREADONLY", [needMat], nil)), "")
302 302          let customName = valueOrElse(getString(stakingContract, keyLandAssetIdToCustomName(landAssetId)), ((d[recContinent] + "-") + d[recLandNum]))
303 303  [("%s%s__assetId__" + landAssetId), ("%s%s__owner__" + owner), ("%s%s__customName__" + customName), ("%s%d__stakedTime__" + toString(stakedTime)), ("%s%s__description__" + makeString([landNum, d[recLandSize], d[recTerrains], d[recContinent]], "_")), ("%s%d__infraLevel__" + toString(productivity._1)), ("%s%s__availResByType__" + globalAndLocal._2), ("%s%d__availResTotal__" + toString(availRes)), ("%s%s__needMaterial__" + globalAndLocal._1), makeString(["%s%s", "landArtefacts", ("PRESALE:" + toString(productivity._2))], SEP), ("%s%s__warehouse__" + makeString(getWarehouse(keyWarehouseByLand(landAssetId), (pieces / SSIZE), productivity._1), ":")), ("%s%s__landOrder__" + valueOrElse(getString(economyContract, keyOrderByLand(landAssetId)), "0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:"))]
304 304          }
305 305  
306 306  
307 307  func landOrderInfoArray (landAssetId,owner) = if ((landAssetId == ""))
308 308      then throw("landAssetId is required")
309 309      else {
310 310          let a = value(assetInfo(fromBase58String(landAssetId)))
311 311          let d = split(a.description, "_")
312 312          let pieces = numPiecesBySize(d[recLandSize])
313 313          let productivity = applyBonuses(landAssetId, pieces)
314 314  [("%s%s__assetId__" + landAssetId), ("%s%s__owner__" + owner), ("%s%s__warehouse__" + makeString(getWarehouse(keyWarehouseByLand(landAssetId), (pieces / SSIZE), productivity._1), ":")), ("%s%s__landOrder__" + valueOrElse(getString(economyContract, keyOrderByLand(landAssetId)), "0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:"))]
315 315          }
316 316  
317 317  
318 318  @Callable(i)
319 319  func constructorV1 (contracts) = if ((i.caller != this))
320 320      then throw("permissions denied")
321 321      else {
322 322          func descriptor (acc,ignoredItem) =         (acc + "%s")
323 323  
324 324          let descr = {
325 325              let $l = contracts
326 326              let $s = size($l)
327 327              let $acc0 = ""
328 328              func $f0_1 ($a,$i) =             if (($i >= $s))
329 329                  then $a
330 330                  else descriptor($a, $l[$i])
331 331  
332 332              func $f0_2 ($a,$i) =             if (($i >= $s))
333 333                  then $a
334 334                  else throw("List size exceeds 10")
335 335  
336 336              $f0_2($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)
337 337              }
338 338  [StringEntry(keyRestCfg(), makeString(descr :: contracts, SEP)), StringEntry(keyRestAddress(), toString(this))]
339 339          }
340 340  
341 341  
342 342  
343 343  @Callable(i)
344 344  func walletInfoREADONLY (userAddressOpt) = $Tuple2(nil, walletInternal(userAddressOpt))
345 345  
346 346  
347 347  
348 348  @Callable(i)
349 349  func duckByOwnerInfoREADONLY (userAddress) = {
350 350      let stakedDuck = getString(stakingContract, keyStakedDuckByOwner(userAddress))
351 351      $Tuple2(nil, if (if (isDefined(addressFromString(userAddress)))
352 352          then isDefined(stakedDuck)
353 353          else false)
354 354          then {
355 355              let duckAssetId = value(stakedDuck)
356 356              duckInfoArray(duckAssetId, userAddress, duckInfoTuple(duckAssetId))
357 357              }
358 358          else duckInfoArray("", userAddress, $Tuple5(-1, "", "", -1, "")))
359 359      }
360 360  
361 361  
362 362  
363 363  @Callable(i)
364 364  func duckByAssetIdInfoREADONLY (duckAssetId) = {
365 365      let owner = getString(stakingContract, keyDuckIdToOwner(duckAssetId))
366 366      let duckInf = duckInfoTuple(duckAssetId)
367 367      $Tuple2(nil, duckInfoArray(duckAssetId, if (isDefined(owner))
368 368          then value(owner)
369 369          else "", duckInfoTuple(duckAssetId)))
370 370      }
371 371  
372 372  
373 373  
374 374  @Callable(i)
375 375  func landByAssetIdInfoREADONLY (landAssetId) = if ((landAssetId == ""))
376 376      then throw("landAssetId is required")
377 377      else {
378 378          let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
379 379          let owner = if ((stakedTime > 0))
380 380              then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
381 381              else ""
382 382          $Tuple2(nil, landInfoArray(landAssetId, owner, stakedTime))
383 383          }
384 384  
385 385  
386 386  
387 387  @Callable(i)
388 388  func stakedLandsByOwnerInfoREADONLY (landOwnerAddress) = if ((landOwnerAddress == ""))
389 389      then throw("landOwnerAddress is required")
390 390      else {
391 391          let landsStr = getString(stakingContract, keyStakedLandsByOwner(landOwnerAddress))
392 392          let lands = if (isDefined(landsStr))
393 393              then split_51C(value(landsStr), "_")
394 394              else nil
395 395          func oneLand (acc,landAssetId) =         if ((landAssetId == ""))
396 396              then throw("landAssetId is required")
397 397              else {
398 398                  let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
399 399                  (acc :+ landInfoArray(landAssetId, landOwnerAddress, stakedTime))
400 400                  }
401 401  
402 402          let r = {
403 403              let $l = lands
404 404              let $s = size($l)
405 405              let $acc0 = nil
406 406              func $f0_1 ($a,$i) =             if (($i >= $s))
407 407                  then $a
408 408                  else oneLand($a, $l[$i])
409 409  
410 410              func $f0_2 ($a,$i) =             if (($i >= $s))
411 411                  then $a
412 412                  else throw("List size exceeds 40")
413 413  
414 414              $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($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)
415 415              }
416 416          $Tuple2(nil, r)
417 417          }
418 418  
419 419  
420 420  
421 421  @Callable(i)
422 422  func landsByIdsInfoREADONLY (landAssetIds) = {
423 423      func oneLand (acc,landAssetId) =     if ((landAssetId == ""))
424 424          then throw("landAssetId is required")
425 425          else {
426 426              let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
427 427              let owner = if ((stakedTime > 0))
428 428                  then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
429 429                  else ""
430 430              (acc :+ landInfoArray(landAssetId, owner, stakedTime))
431 431              }
432 432  
433 433      let r = {
434 434          let $l = landAssetIds
435 435          let $s = size($l)
436 436          let $acc0 = nil
437 437          func $f0_1 ($a,$i) =         if (($i >= $s))
438 438              then $a
439 439              else oneLand($a, $l[$i])
440 440  
441 441          func $f0_2 ($a,$i) =         if (($i >= $s))
442 442              then $a
443 443              else throw("List size exceeds 40")
444 444  
445 445          $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($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)
446 446          }
447 447      $Tuple2(nil, r)
448 448      }
449 449  
450 450  
451 451  
452 452  @Callable(i)
453 453  func warehouseOrderByAssetIdInfoREADONLY (landAssetId) = if ((landAssetId == ""))
454 454      then throw("landAssetId is required")
455 455      else {
456 456          let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
457 457          let owner = if ((stakedTime > 0))
458 458              then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
459 459              else ""
460 460          $Tuple2(nil, landOrderInfoArray(landAssetId, owner))
461 461          }
462 462  
463 463  
464 464  
465 465  @Callable(i)
466 466  func ordersByLandIdsInfoREADONLY (landAssetIds) = {
467 467      func oneLand (acc,landAssetId) =     if ((landAssetId == ""))
468 468          then throw("landAssetId is required")
469 469          else {
470 470              let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
471 471              let owner = if ((stakedTime > 0))
472 472                  then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
473 473                  else ""
474 474              (acc :+ landOrderInfoArray(landAssetId, owner))
475 475              }
476 476  
477 477      let r = {
478 478          let $l = landAssetIds
479 479          let $s = size($l)
480 480          let $acc0 = nil
481 481          func $f0_1 ($a,$i) =         if (($i >= $s))
482 482              then $a
483 483              else oneLand($a, $l[$i])
484 484  
485 485          func $f0_2 ($a,$i) =         if (($i >= $s))
486 486              then $a
487 487              else throw("List size exceeds 40")
488 488  
489 489          $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($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)
490 490          }
491 491      $Tuple2(nil, r)
492 492      }
493 493  
494 494  
495 495  
496 496  @Callable(i)
497 497  func cancelWarehouseOrders (landAssetIds) = if ((i.caller != this))
498 498      then throw("permission denied")
499 499      else {
500 500          let blocked = getBoolean(stakingContract, keyBlocked())
501 501          if (if (!(isDefined(blocked)))
502 502              then true
503 503              else (value(blocked) == false))
504 504              then throw("Contracts should be blocked before canceling orders")
505 505              else {
506 506                  func oneLand (a,landAssetId) =                 if ((landAssetId == ""))
507 507                      then throw("landAssetId is required")
508 508                      else {
509 509                          let c = asBoolean(invoke(economyContract, "setWarehouseOrder", ["0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:", landAssetId], nil))
510 510                          if (if (a)
511 511                              then true
512 512                              else c)
513 513                              then !(if (a)
514 514                                  then c
515 515                                  else false)
516 516                              else false
517 517                          }
518 518  
519 519                  let r = {
520 520                      let $l = landAssetIds
521 521                      let $s = size($l)
522 522                      let $acc0 = false
523 523                      func $f0_1 ($a,$i) =                     if (($i >= $s))
524 524                          then $a
525 525                          else oneLand($a, $l[$i])
526 526  
527 527                      func $f0_2 ($a,$i) =                     if (($i >= $s))
528 528                          then $a
529 529                          else throw("List size exceeds 30")
530 530  
531 531                      $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($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)
532 532                      }
533 533                  $Tuple2(nil, r)
534 534                  }
535 535          }
536 536  
537 537  
538 538  
539 539  @Callable(i)
540 540  func fixWarehouseFormats (landAssetIds) = if ((i.caller != this))
541 541      then throw("permission denied")
542 542      else {
543 543          func oneLand (acc,landAssetId) =         if ((landAssetId == ""))
544 544              then throw("landAssetId is required")
545 545              else (acc + size(asString(invoke(stakingContract, "fixWarehouseFormat", [landAssetId], nil))))
546 546  
547 547          let r = {
548 548              let $l = landAssetIds
549 549              let $s = size($l)
550 550              let $acc0 = 0
551 551              func $f0_1 ($a,$i) =             if (($i >= $s))
552 552                  then $a
553 553                  else oneLand($a, $l[$i])
554 554  
555 555              func $f0_2 ($a,$i) =             if (($i >= $s))
556 556                  then $a
557 557                  else throw("List size exceeds 25")
558 558  
559 559              $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($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)
560 560              }
561 561          $Tuple2(nil, r)
562 562          }
563 563  
564 564  
565 565  
566 566  @Callable(i)
567 567  func sendUsdtPrize (userAddress) = if ((i.caller != stakingContract))
568 568      then throw("permission denied")
569 569      else {
570 570          let amt = fraction(assetBalance(this, usdtAssetId), USDTPRIZEPART, MULT6)
571 571          $Tuple2([ScriptTransfer(addressFromStringValue(userAddress), amt, usdtAssetId)], amt)
572 572          }
573 573  
574 574  
575 575  
576 576  @Callable(i)
577 577  func getEmergencyServiceDataREADONLY () = {
578 578      func singleProd (acc,recipeStr) =     {
579 579          let n = acc._2
580 580          let recipe = split(recipeStr, "_")
581 581          let packSize = parseIntValue(recipe[recipeIdxPacksize])
582 582          let maxAmount = if ((n == 0))
583 583              then (DUTYMAXPACKAGES * packSize)
584 584              else 0
585 585          let existAmount = valueOrElse(getInteger(economyContract, keyDutyWarehouseByType(n)), 0)
586 586          func addMat (ac,j) =         (ac + parseIntValue(recipe[j]))
587 587  
588 588          let totalMat = {
589 589              let $l = [0, 1, 2, 3, 4, 5]
590 590              let $s = size($l)
591 591              let $acc0 = 0
592 592              func $f0_1 ($a,$i) =             if (($i >= $s))
593 593                  then $a
594 594                  else addMat($a, $l[$i])
595 595  
596 596              func $f0_2 ($a,$i) =             if (($i >= $s))
597 597                  then $a
598 598                  else throw("List size exceeds 6")
599 599  
600 600              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
601 601              }
602 602          let buyPrice = fraction((totalMat * DUTYBUYCOEF), RESOURCEPRICEMIN, (packSize * 10))
603 603          let sellPrice = fraction((totalMat * EMERGENCYSELLCOEF), RESOURCEPRICEMIN, (packSize * 10))
604 604          let y = makeString([toString(maxAmount), toString(existAmount), toString(buyPrice), toString(sellPrice)], "_")
605 605          $Tuple2((acc._1 :+ y), (n + 1))
606 606          }
607 607  
608 608      let s = makeString_2C((    let $l = productionMatrix
609 609      let $s = size($l)
610 610      let $acc0 = $Tuple2(nil, 0)
611 611      func $f0_1 ($a,$i) =     if (($i >= $s))
612 612          then $a
613 613          else singleProd($a, $l[$i])
614 614  
615 615      func $f0_2 ($a,$i) =     if (($i >= $s))
616 616          then $a
617 617          else throw("List size exceeds 50")
618 618  
619 619      $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, ":")
620 620      let result = ("%s%s__emergencyServiceData__" + s)
621 621      $Tuple2(nil, result)
622 622      }
623 623  
624 624

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let chain = take(drop(this.bytes, 1), 1)
5	5
6	6	let usdtAssetId = match chain {
7	7	case _ =>
8	8	if ((base58'2W' == $match0))
9	9	then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
10	10	else if ((base58'2T' == $match0))
11	11	then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
12	12	else throw("Unknown chain")
13	13	}
14	14
15	15	let defaultRestAddressStr = match chain {
16	16	case _ =>
17	17	if ((base58'2W' == $match0))
18	18	then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
19	19	else if ((base58'2T' == $match0))
20	20	then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
21	21	else throw("Unknown chain")
22	22	}
23	23
24	24	let InfraUpgradeCostS = match chain {
25	25	case _ =>
26	26	if ((base58'2W' == $match0))
27	27	then 10000000000
28	28	else if ((base58'2T' == $match0))
29	29	then 100000000
30	30	else throw("Unknown chain")
31	31	}
32	32
33	33	let SEP = "__"
34	34
35	35	let MULT6 = 1000000
36	36
37	37	let ARTPRESALE = "PRESALE"
38	38
39	39	let NUMRES = 6
40	40
41	41	let SSIZE = 25
42	42
43	43	let MSIZE = 100
44	44
45	45	let LSIZE = 225
46	46
47	47	let XLSIZE = 400
48	48
49	49	let XXLSIZE = 625
50	50
51	51	let DAILYRESBYPIECE = 3456000
52	52
53	53	let DAYMILLIS = 86400000
54	54
55	55	let WHMULTIPLIER = 10000000000
56	56
57	57	let RESOURCEPRICEMIN = 39637
58	58
59	59	let DUTYMAXPACKAGES = 3
60	60
61	61	let DUTYBUYCOEF = 4
62	62
63	63	let EMERGENCYSELLCOEF = 10
64	64
65	65	let productionMatrix = ["1_1_1_2_2_5_1_10_0", "2_2_2_4_4_10_1_10_0", "3_3_3_6_6_15_1_10_0", "2_5_5_2_7_5_2_100_1", "4_10_10_4_14_10_2_100_1", "6_15_15_6_21_15_2_100_1", "1_1_1_1_1_8_1_10_2", "2_2_2_2_2_16_1_10_2", "3_3_3_3_3_24_1_10_2", "9_9_1_5_5_1_5_100_3", "18_18_2_10_10_2_5_100_3", "27_27_3_15_15_3_5_100_3", "2_2_1_2_2_2_1_10_4", "4_4_2_4_4_4_1_10_4", "6_6_3_6_6_6_1_10_4"]
66	66
67	67	let recipeIdxPacksize = 7
68	68
69	69	let recLandNum = 0
70	70
71	71	let recLandSize = 1
72	72
73	73	let recTerrains = 2
74	74
75	75	let recContinent = 3
76	76
77	77	func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
78	78
79	79
80	80	let IdxCfgStakingDapp = 1
81	81
82	82	let IdxCfgEconomyDapp = 2
83	83
84	84	func keyRestCfg () = "%s__restConfig"
85	85
86	86
87	87	func keyRestAddress () = "%s__restAddr"
88	88
89	89
90	90	func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
91	91
92	92
93	93	func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
94	94
95	95
96	96	let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
97	97
98	98	let restCfg = readRestCfgOrFail(restContract)
99	99
100	100	let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
101	101
102	102	let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
103	103
104	104	func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
105	105
106	106
107	107	func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
108	108
109	109
110	110	func keyLandAssetIdToCustomName (assetId) = ("landCustomNameByAssetId_" + assetId)
111	111
112	112
113	113	func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
114	114
115	115
116	116	func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
117	117
118	118
119	119	func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
120	120
121	121
122	122	func keyWarehouseByLand (landAssetId) = ("wareHouse_" + landAssetId)
123	123
124	124
125	125	func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
126	126
127	127
128	128	func keyDuckAssetIdToCustomName (assetId) = ("duckCustomNameByAssetId_" + assetId)
129	129
130	130
131	131	func keyAddressToCustomName (addr) = ("accountCustomNameByAddr_" + addr)
132	132
133	133
134	134	func keyAddressRefBy (addr) = ("accRefBy_" + addr)
135	135
136	136
137	137	func keyAddressReferrals (addr) = ("accReferrals_" + addr)
138	138
139	139
140	140	func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
141	141
142	142
143	143	func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
144	144
145	145
146	146	func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
147	147
148	148
149	149	func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
150	150
151	151
152	152	func keyBlocked () = "contractsBlocked"
153	153
154	154
155	155	func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId)
156	156
157	157
158	158	func keyDutyWarehouseByType (prodType) = ("dutyWhByProd_" + toString(prodType))
159	159
160	160
161	161	func asString (v) = match v {
162	162	case s: String =>
163	163	s
164	164	case _ =>
165	165	throw("fail to cast into String")
166	166	}
167	167
168	168
169	169	func asBoolean (v) = match v {
170	170	case s: Boolean =>
171	171	s
172	172	case _ =>
173	173	throw("fail to cast into Boolean")
174	174	}
175	175
176	176
177	177	func numPiecesBySize (landSize) = match landSize {
178	178	case _ =>
179	179	if (("S" == $match0))
180	180	then SSIZE
181	181	else if (("M" == $match0))
182	182	then MSIZE
183	183	else if (("L" == $match0))
184	184	then LSIZE
185	185	else if (("XL" == $match0))
186	186	then XLSIZE
187	187	else if (("XXL" == $match0))
188	188	then XXLSIZE
189	189	else throw("Unknown land size")
190	190	}
191	191
192	192
193	193	let USDTPRIZEPART = 500000
194	194
195	195	func asListIntCompacted (val) = match val {
196	196	case valAnyList: List[Any] =>
197	197	if ((size(valAnyList) != NUMRES))
198	198	then throw(("Array size is " + toString(size(valAnyList))))
199	199	else {
200	200	func conv (acc,item) = match item {
201	201	case it: Int =>
202	202	(acc :+ toString(it))
203	203	case _ =>
204	204	throw("List type is not Int")
205	205	}
206	206
207	207	let r = {
208	208	let $l = valAnyList
209	209	let $s = size($l)
210	210	let $acc0 = nil
211	211	func $f0_1 ($a,$i) = if (($i >= $s))
212	212	then $a
213	213	else conv($a, $l[$i])
214	214
215	215	func $f0_2 ($a,$i) = if (($i >= $s))
216	216	then $a
217	217	else throw("List size exceeds 6")
218	218
219	219	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
220	220	}
221	221	makeString(r, "_")
222	222	}
223	223	case _ =>
224	224	throw("fail to cast into List")
225	225	}
226	226
227	227
228	228	func asSplitResult (val) = match val {
229	229	case t2: (List[Any], List[Any]) =>
230	230	$Tuple2(asListIntCompacted(t2._1), asListIntCompacted(t2._2))
231	231	case _ =>
232	232	throw("fail to cast into (List, List)")
233	233	}
234	234
235	235
236	236	func walletInternal (userAddressOpt) = {
237	237	let addr = addressFromString(userAddressOpt)
238	238	let balance = if (isDefined(addr))
239	239	then wavesBalance(value(addr))
240	240	else BalanceDetails(0, 0, 0, 0)
241	241	let usdtBalance = if (isDefined(addr))
242	242	then assetBalance(value(addr), usdtAssetId)
243	243	else 0
244	244	let customName = valueOrElse(getString(stakingContract, keyAddressToCustomName(userAddressOpt)), userAddressOpt)
245	245	let refBy = valueOrElse(getString(stakingContract, keyAddressRefBy(userAddressOpt)), "")
246	246	let refs = valueOrElse(getString(stakingContract, keyAddressReferrals(userAddressOpt)), "")
247	247	let lastTxId = valueOrElse(getString(stakingContract, keyLastTxIdByUser(userAddressOpt)), "")
248	248	[("%s%s__customName__" + customName), ("%s%s__referredBy__" + refBy), ("%s%s__referrals__" + refs), ("%s%s__lastTxId__" + lastTxId), ("%s%s%d__wavesBalance__" + toString(balance.available)), ("%s%s%d__usdtBalance__" + toString(usdtBalance))]
249	249	}
250	250
251	251
252	252	func applyBonuses (landAssetId,pieces) = {
253	253	let infraLevel = valueOrElse(getInteger(stakingContract, keyInfraLevelByAssetId(landAssetId)), 0)
254	254	let artPieces = valueOrElse(getInteger(stakingContract, keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), 0)
255	255	let add6 = (infraLevel / 6)
256	256	let add7 = (infraLevel / 7)
257	257	$Tuple3(infraLevel, artPieces, ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, ((infraLevel + add6) + (2 * add7)), 5)) + fraction(DAILYRESBYPIECE, artPieces, (pieces * 5))))
258	258	}
259	259
260	260
261	261	func getWarehouseTotalVolume (volPrefix) = {
262	262	let parts = split(volPrefix, "_")
263	263	((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
264	264	}
265	265
266	266
267	267	func getWarehouse (whKey,landIndex,infraLevel) = {
268	268	let volPrefix = ((toString(landIndex) + "_") + toString(infraLevel))
269	269	let totS = toString(getWarehouseTotalVolume(volPrefix))
270	270	let whStr = valueOrElse(getString(stakingContract, whKey), ((((volPrefix + ":0_0_0_0_0_0:0_0_0_0_0_0::0_0_") + totS) + "_") + totS))
271	271	split(whStr, ":")
272	272	}
273	273
274	274
275	275	func duckInfoTuple (duckAssetId) = $Tuple5(valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(duckAssetId)), -1), value(assetInfo(fromBase58String(duckAssetId))).name, valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), ""), valueOrElse(getInteger(stakingContract, keyDuckHealth(duckAssetId)), -1), asString(invoke(stakingContract, "getBackpackREADONLY", [duckAssetId], nil)))
276	276
277	277
278	278	func duckInfoArray (duckAssetId,owner,duckInf) = {
279	279	let customName = valueOrElse(getString(stakingContract, keyDuckAssetIdToCustomName(duckAssetId)), duckInf._2)
280	280	[("%s%s__assetId__" + duckAssetId), ("%s%s__owner__" + owner), ("%s%s__customName__" + customName), ("%s%d__stakedTime__" + toString(duckInf._1)), ("%s%s__name__" + duckInf._2), ("%s%s__location__" + duckInf._3), ("%s%d__health__" + toString(duckInf._4)), ("%s%s__backPack__" + duckInf._5)]
281	281	}
282	282
283	283
284	284	func landInfoArray (landAssetId,owner,stakedTime) = if ((landAssetId == ""))
285	285	then throw("landAssetId is required")
286	286	else {
287	287	let a = value(assetInfo(fromBase58String(landAssetId)))
288	288	let d = split(a.description, "_")
289	289	let landNum = if ((a.quantity > 0))
290	290	then d[recLandNum]
291	291	else ("-" + d[recLandNum])
292	292	let pieces = numPiecesBySize(d[recLandSize])
293	293	let productivity = applyBonuses(landAssetId, pieces)
294	294	let deltaTime = (lastBlock.timestamp - stakedTime)
295	295	let availRes = if ((stakedTime > 0))
296	296	then fraction(deltaTime, (productivity._3 * pieces), DAYMILLIS)
297	297	else 0
298	298	let needMat = fraction(InfraUpgradeCostS, (pieces * (productivity._1 + 1)), SSIZE)
299	299	let globalAndLocal = if ((stakedTime > 0))
300	300	then asSplitResult(invoke(stakingContract, "splitByGlobalAndLocalWeightsREADONLY", [needMat, availRes, d[recTerrains]], nil))
301	301	else $Tuple2(asListIntCompacted(invoke(stakingContract, "splitByGlobalWeightsREADONLY", [needMat], nil)), "")
302	302	let customName = valueOrElse(getString(stakingContract, keyLandAssetIdToCustomName(landAssetId)), ((d[recContinent] + "-") + d[recLandNum]))
303	303	[("%s%s__assetId__" + landAssetId), ("%s%s__owner__" + owner), ("%s%s__customName__" + customName), ("%s%d__stakedTime__" + toString(stakedTime)), ("%s%s__description__" + makeString([landNum, d[recLandSize], d[recTerrains], d[recContinent]], "_")), ("%s%d__infraLevel__" + toString(productivity._1)), ("%s%s__availResByType__" + globalAndLocal._2), ("%s%d__availResTotal__" + toString(availRes)), ("%s%s__needMaterial__" + globalAndLocal._1), makeString(["%s%s", "landArtefacts", ("PRESALE:" + toString(productivity._2))], SEP), ("%s%s__warehouse__" + makeString(getWarehouse(keyWarehouseByLand(landAssetId), (pieces / SSIZE), productivity._1), ":")), ("%s%s__landOrder__" + valueOrElse(getString(economyContract, keyOrderByLand(landAssetId)), "0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:"))]
304	304	}
305	305
306	306
307	307	func landOrderInfoArray (landAssetId,owner) = if ((landAssetId == ""))
308	308	then throw("landAssetId is required")
309	309	else {
310	310	let a = value(assetInfo(fromBase58String(landAssetId)))
311	311	let d = split(a.description, "_")
312	312	let pieces = numPiecesBySize(d[recLandSize])
313	313	let productivity = applyBonuses(landAssetId, pieces)
314	314	[("%s%s__assetId__" + landAssetId), ("%s%s__owner__" + owner), ("%s%s__warehouse__" + makeString(getWarehouse(keyWarehouseByLand(landAssetId), (pieces / SSIZE), productivity._1), ":")), ("%s%s__landOrder__" + valueOrElse(getString(economyContract, keyOrderByLand(landAssetId)), "0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:"))]
315	315	}
316	316
317	317
318	318	@Callable(i)
319	319	func constructorV1 (contracts) = if ((i.caller != this))
320	320	then throw("permissions denied")
321	321	else {
322	322	func descriptor (acc,ignoredItem) = (acc + "%s")
323	323
324	324	let descr = {
325	325	let $l = contracts
326	326	let $s = size($l)
327	327	let $acc0 = ""
328	328	func $f0_1 ($a,$i) = if (($i >= $s))
329	329	then $a
330	330	else descriptor($a, $l[$i])
331	331
332	332	func $f0_2 ($a,$i) = if (($i >= $s))
333	333	then $a
334	334	else throw("List size exceeds 10")
335	335
336	336	$f0_2($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)
337	337	}
338	338	[StringEntry(keyRestCfg(), makeString(descr :: contracts, SEP)), StringEntry(keyRestAddress(), toString(this))]
339	339	}
340	340
341	341
342	342
343	343	@Callable(i)
344	344	func walletInfoREADONLY (userAddressOpt) = $Tuple2(nil, walletInternal(userAddressOpt))
345	345
346	346
347	347
348	348	@Callable(i)
349	349	func duckByOwnerInfoREADONLY (userAddress) = {
350	350	let stakedDuck = getString(stakingContract, keyStakedDuckByOwner(userAddress))
351	351	$Tuple2(nil, if (if (isDefined(addressFromString(userAddress)))
352	352	then isDefined(stakedDuck)
353	353	else false)
354	354	then {
355	355	let duckAssetId = value(stakedDuck)
356	356	duckInfoArray(duckAssetId, userAddress, duckInfoTuple(duckAssetId))
357	357	}
358	358	else duckInfoArray("", userAddress, $Tuple5(-1, "", "", -1, "")))
359	359	}
360	360
361	361
362	362
363	363	@Callable(i)
364	364	func duckByAssetIdInfoREADONLY (duckAssetId) = {
365	365	let owner = getString(stakingContract, keyDuckIdToOwner(duckAssetId))
366	366	let duckInf = duckInfoTuple(duckAssetId)
367	367	$Tuple2(nil, duckInfoArray(duckAssetId, if (isDefined(owner))
368	368	then value(owner)
369	369	else "", duckInfoTuple(duckAssetId)))
370	370	}
371	371
372	372
373	373
374	374	@Callable(i)
375	375	func landByAssetIdInfoREADONLY (landAssetId) = if ((landAssetId == ""))
376	376	then throw("landAssetId is required")
377	377	else {
378	378	let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
379	379	let owner = if ((stakedTime > 0))
380	380	then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
381	381	else ""
382	382	$Tuple2(nil, landInfoArray(landAssetId, owner, stakedTime))
383	383	}
384	384
385	385
386	386
387	387	@Callable(i)
388	388	func stakedLandsByOwnerInfoREADONLY (landOwnerAddress) = if ((landOwnerAddress == ""))
389	389	then throw("landOwnerAddress is required")
390	390	else {
391	391	let landsStr = getString(stakingContract, keyStakedLandsByOwner(landOwnerAddress))
392	392	let lands = if (isDefined(landsStr))
393	393	then split_51C(value(landsStr), "_")
394	394	else nil
395	395	func oneLand (acc,landAssetId) = if ((landAssetId == ""))
396	396	then throw("landAssetId is required")
397	397	else {
398	398	let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
399	399	(acc :+ landInfoArray(landAssetId, landOwnerAddress, stakedTime))
400	400	}
401	401
402	402	let r = {
403	403	let $l = lands
404	404	let $s = size($l)
405	405	let $acc0 = nil
406	406	func $f0_1 ($a,$i) = if (($i >= $s))
407	407	then $a
408	408	else oneLand($a, $l[$i])
409	409
410	410	func $f0_2 ($a,$i) = if (($i >= $s))
411	411	then $a
412	412	else throw("List size exceeds 40")
413	413
414	414	$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($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)
415	415	}
416	416	$Tuple2(nil, r)
417	417	}
418	418
419	419
420	420
421	421	@Callable(i)
422	422	func landsByIdsInfoREADONLY (landAssetIds) = {
423	423	func oneLand (acc,landAssetId) = if ((landAssetId == ""))
424	424	then throw("landAssetId is required")
425	425	else {
426	426	let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
427	427	let owner = if ((stakedTime > 0))
428	428	then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
429	429	else ""
430	430	(acc :+ landInfoArray(landAssetId, owner, stakedTime))
431	431	}
432	432
433	433	let r = {
434	434	let $l = landAssetIds
435	435	let $s = size($l)
436	436	let $acc0 = nil
437	437	func $f0_1 ($a,$i) = if (($i >= $s))
438	438	then $a
439	439	else oneLand($a, $l[$i])
440	440
441	441	func $f0_2 ($a,$i) = if (($i >= $s))
442	442	then $a
443	443	else throw("List size exceeds 40")
444	444
445	445	$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($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)
446	446	}
447	447	$Tuple2(nil, r)
448	448	}
449	449
450	450
451	451
452	452	@Callable(i)
453	453	func warehouseOrderByAssetIdInfoREADONLY (landAssetId) = if ((landAssetId == ""))
454	454	then throw("landAssetId is required")
455	455	else {
456	456	let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
457	457	let owner = if ((stakedTime > 0))
458	458	then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
459	459	else ""
460	460	$Tuple2(nil, landOrderInfoArray(landAssetId, owner))
461	461	}
462	462
463	463
464	464
465	465	@Callable(i)
466	466	func ordersByLandIdsInfoREADONLY (landAssetIds) = {
467	467	func oneLand (acc,landAssetId) = if ((landAssetId == ""))
468	468	then throw("landAssetId is required")
469	469	else {
470	470	let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), -1)
471	471	let owner = if ((stakedTime > 0))
472	472	then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
473	473	else ""
474	474	(acc :+ landOrderInfoArray(landAssetId, owner))
475	475	}
476	476
477	477	let r = {
478	478	let $l = landAssetIds
479	479	let $s = size($l)
480	480	let $acc0 = nil
481	481	func $f0_1 ($a,$i) = if (($i >= $s))
482	482	then $a
483	483	else oneLand($a, $l[$i])
484	484
485	485	func $f0_2 ($a,$i) = if (($i >= $s))
486	486	then $a
487	487	else throw("List size exceeds 40")
488	488
489	489	$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($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)
490	490	}
491	491	$Tuple2(nil, r)
492	492	}
493	493
494	494
495	495
496	496	@Callable(i)
497	497	func cancelWarehouseOrders (landAssetIds) = if ((i.caller != this))
498	498	then throw("permission denied")
499	499	else {
500	500	let blocked = getBoolean(stakingContract, keyBlocked())

github/deemru/w8io/169f3d6 
62.44 ms ◑