tx · A7zanoJC2fEYY6cy9AXVfpdxg4RBzQWEdmVKvNPDoAH8

3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm:  -0.06000000 Waves

2023.06.12 13:52 [2619354] smart account 3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "A7zanoJC2fEYY6cy9AXVfpdxg4RBzQWEdmVKvNPDoAH8",
    "fee": 6000000,
    "feeAssetId": null,
    "timestamp": 1686567152431,
    "version": 2,
    "chainId": 84,
    "sender": "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm",
    "senderPublicKey": "EVooykMNV691Venwp1dHUTBd7KWequzUcda57Wd3LQEX",
    "proofs": [
        "4nVo3tdGCsMgThhu3BX1LeZ7o8ywoQFMof7Y5gkjhqm8fE6DdXzDZiVQ5GrR3DSXea9Wp2XPcHayGL7EVv2DkvKf"
    ],
    "script": "base64:BgKXAQgCEgMKAQgSAwoBBBIAEgMKAQgSABIDCgEIEgQKAgEIEgQKAgEIEgQKAgICEgQKAgEIEgUKAwEBARIAEgQKAggIEgASBAoCAgISAwoBCBIDCgEIEgQKAggIEgMKARgSAwoBGBIECgIICBIECgIICBIDCgEIEgUKAwgICBIECgIICBIDCgEBEgUKAwEBCBIDCgEIEgMKAQiYAQAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BRQ3V2RmJ2aDRMa1BVbnJuVTF6M2puYkExcDltM1dOaHYDCQAAAgEBVAUHJG1hdGNoMAIjM011bWtHR3p0Q0tBWHBXRHF4a2Rkb2ZxWFNVYnFRa3ZTSnkJAAIBAg1Vbmtub3duIGNoYWluABFJbmZyYVVwZ3JhZGVDb3N0UwQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMACAyK+gJQMJAAACAQFUBQckbWF0Y2gwAIDC1y8JAAIBAg1Vbmtub3duIGNoYWluAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8ACkxBTkRQUkVGSVgCBExBTkQACkRVQ0tQUkVGSVgCBERVQ0sACkFSVFBSRVNBTEUCB1BSRVNBTEUABk5VTVJFUwAGAAVTU0laRQAZAAVNU0laRQBkAAVMU0laRQDhAQAGWExTSVpFAJADAAdYWExTSVpFAPEEAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAJREFZTUlMTElTAIC4mSkADFdITVVMVElQTElFUgCAyK+gJQAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EAEFJFU09VUkNFUFJJQ0VNSU4A1bUCAApFU1NFTExDT0VGAAoABU1BWEhQAGQACXByb2RUeXBlcwkAzAgCAhBGaXJzdCBBaWQgS2l0IEwxCQDMCAICEEZpcnN0IEFpZCBLaXQgTDIJAMwIAgIQRmlyc3QgQWlkIEtpdCBMMwkAzAgCAgtCYWNrcGFjayBMMQkAzAgCAgtCYWNrcGFjayBMMgkAzAgCAgtCYWNrcGFjayBMMwkAzAgCAg5Gb29kIFJhdGlvbiBMMQkAzAgCAg5Gb29kIFJhdGlvbiBMMgkAzAgCAg5Gb29kIFJhdGlvbiBMMwkAzAgCAgtKZXQgUGFjayBMMQkAzAgCAgtKZXQgUGFjayBMMgkAzAgCAgtKZXQgUGFjayBMMwkAzAgCAglTaGllbGQgTDEJAMwIAgIJU2hpZWxkIEwyCQDMCAICCVNoaWVsZCBMMwUDbmlsAApjb250aW5lbnRzCQDMCAICCEFtZXJpY2FzCQDMCAICBkV1cm9wZQkAzAgCAgRBc2lhCQDMCAICBkFmcmljYQkAzAgCAgdPY2VhbmlhBQNuaWwAEHByb2R1Y3Rpb25NYXRyaXgJAMwIAgISMV8xXzFfMl8yXzVfMV8xMF8wCQDMCAICEzJfMl8yXzRfNF8xMF8xXzEwXzAJAMwIAgITM18zXzNfNl82XzE1XzFfMTBfMAkAzAgCAhMyXzVfNV8yXzdfNV8yXzEwMF8xCQDMCAICFzRfMTBfMTBfNF8xNF8xMF8yXzEwMF8xCQDMCAICFzZfMTVfMTVfNl8yMV8xNV8yXzEwMF8xCQDMCAICEjFfMV8xXzFfMV84XzFfMTBfMgkAzAgCAhMyXzJfMl8yXzJfMTZfMV8xMF8yCQDMCAICEzNfM18zXzNfM18yNF8xXzEwXzIJAMwIAgITOV85XzFfNV81XzFfNV8xMDBfMwkAzAgCAhcxOF8xOF8yXzEwXzEwXzJfNV8xMDBfMwkAzAgCAhcyN18yN18zXzE1XzE1XzNfNV8xMDBfMwkAzAgCAhIyXzJfMV8yXzJfMl8xXzEwXzQJAMwIAgISNF80XzJfNF80XzRfMV8xMF80CQDMCAICEjZfNl8zXzZfNl82XzFfMTBfNAUDbmlsABFyZWNpcGVJZHhQYWNrc2l6ZQAHAApyZWNMYW5kTnVtAAAAC3JlY0xhbmRTaXplAAEAC3JlY1RlcnJhaW5zAAIADHJlY0NvbnRpbmVudAADAAt3aElkeExldmVscwAAAAh3aElkeFJlcwABAAh3aElkeE1hdAACAAl3aElkeFByb2QAAwAJd2hJZHhMT0ZUAAQACXZvbExvY2tlZAAAAAt2b2xPY2N1cGllZAABAAd2b2xGcmVlAAIACHZvbFRvdGFsAAMACmJwSWR4TGV2ZWwAAAAIYnBJZHhSZXMAAQAIYnBJZHhNYXQAAgAJYnBJZHhQcm9kAAMBCmdldFBrZ1NpemUBB3Byb2RJZHgJAQ1wYXJzZUludFZhbHVlAQkAkQMCCQC1CQIJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUHcHJvZElkeAIBXwURcmVjaXBlSWR4UGFja3NpemUBD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABFJZHhDZmdFY29ub215RGFwcAACABRJZHhDZmdHb3Zlcm5hbmNlRGFwcAADAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD2Vjb25vbXlDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ0Vjb25vbXlEYXBwAAtnb3ZDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFFElkeENmZ0dvdmVybmFuY2VEYXBwARFrZXlMYXN0VHhJZEJ5VXNlcgEEYWRkcgkArAICAg9sYXN0VHhJZEJ5VXNlcl8FBGFkZHIBFWtleUxhbmRBc3NldElkVG9Pd25lcgEHYXNzZXRJZAkArAICAgluZnRPd25lcl8FB2Fzc2V0SWQBGmtleUxhbmRBc3NldElkVG9DdXN0b21OYW1lAQdhc3NldElkCQCsAgICGGxhbmRDdXN0b21OYW1lQnlBc3NldElkXwUHYXNzZXRJZAEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtzdGFrZWRUaW1lXwUHYXNzZXRJZAEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtpbmZyYUxldmVsXwUHYXNzZXRJZAEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBHR5cGUHYXNzZXRJZAkAuQkCCQDMCAICDWxhbmRBcnRTdGF0dXMJAMwIAgUEdHlwZQkAzAgCBQdhc3NldElkBQNuaWwCAV8BImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDB25mdFR5cGUHYXNzZXRJZAlvd25lckFkZHIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAiBzdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyXwUHbmZ0VHlwZQIBXwUHYXNzZXRJZAIBXwUJb3duZXJBZGRyARJrZXlXYXJlaG91c2VCeUxhbmQBC2xhbmRBc3NldElkCQCsAgICCndhcmVIb3VzZV8FC2xhbmRBc3NldElkARVrZXlTdGFrZWRMYW5kc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhNzdGFrZWRMYW5kc0J5T3duZXJfBQlvd25lckFkZHIBGmtleUR1Y2tBc3NldElkVG9DdXN0b21OYW1lAQdhc3NldElkCQCsAgICGGR1Y2tDdXN0b21OYW1lQnlBc3NldElkXwUHYXNzZXRJZAEWa2V5QWRkcmVzc1RvQ3VzdG9tTmFtZQEEYWRkcgkArAICAhhhY2NvdW50Q3VzdG9tTmFtZUJ5QWRkcl8FBGFkZHIBD2tleUFkZHJlc3NSZWZCeQEEYWRkcgkArAICAglhY2NSZWZCeV8FBGFkZHIBE2tleUFkZHJlc3NSZWZlcnJhbHMBBGFkZHIJAKwCAgINYWNjUmVmZXJyYWxzXwUEYWRkcgEQa2V5RHVja0lkVG9Pd25lcgEHYXNzZXRJZAkArAICAgpkdWNrT3duZXJfBQdhc3NldElkARRrZXlTdGFrZWREdWNrQnlPd25lcgEJb3duZXJBZGRyCQCsAgICEnN0YWtlZER1Y2tCeU93bmVyXwUJb3duZXJBZGRyARFrZXlCYWNrcGFja0J5RHVjawELZHVja0Fzc2V0SWQJAKwCAgIJYmFja1BhY2tfBQtkdWNrQXNzZXRJZAEPa2V5RHVja0xvY2F0aW9uAQtkdWNrQXNzZXRJZAkArAICAg1kdWNrTG9jYXRpb25fBQtkdWNrQXNzZXRJZAENa2V5RHVja0hlYWx0aAELZHVja0Fzc2V0SWQJAKwCAgILZHVja0hlYWx0aF8FC2R1Y2tBc3NldElkARFrZXlSZXNQcm9wb3J0aW9ucwACE3Jlc1R5cGVzUHJvcG9ydGlvbnMBCmtleUJsb2NrZWQAAhBjb250cmFjdHNCbG9ja2VkARVrZXlVc2VyR3dsUmVsZWFzZVRpbWUBCHVzZXJBZGRyCQCsAgICGiVzJXNfX3VzZXJHd2xSZWxlYXNlVGltZV9fBQh1c2VyQWRkcgEOa2V5RXNXYXJlaG91c2UAAhplbWVyZ2VuY3lXYXJlaG91c2VQcm9kdWN0cwAKbG9jSWR4VHlwZQABAAhsb2NJZHhJZAACAQhhc1N0cmluZwEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAhhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBBWFzSW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACA0ludAQBbgUHJG1hdGNoMAUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEPbnVtUGllY2VzQnlTaXplAQhsYW5kU2l6ZQQHJG1hdGNoMAUIbGFuZFNpemUDCQAAAgIBUwUHJG1hdGNoMAUFU1NJWkUDCQAAAgIBTQUHJG1hdGNoMAUFTVNJWkUDCQAAAgIBTAUHJG1hdGNoMAUFTFNJWkUDCQAAAgICWEwFByRtYXRjaDAFBlhMU0laRQMJAAACAgNYWEwFByRtYXRjaDAFB1hYTFNJWkUJAAIBAhFVbmtub3duIGxhbmQgc2l6ZQESZ2V0UmVjaXBlTWF0ZXJpYWxzAQZyZWNpcGUKAQZhZGRNYXQCAmFjAWoJAGQCBQJhYwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBnJlY2lwZQUBagoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBmFkZE1hdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgANaW5jdWJhdG9yQWRkcgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM1BFa3RWdXgyUmhjaFNONjNEc0RvNGI0bXo0UXF6S1NlRHYDCQAAAgEBVAUHJG1hdGNoMAUEdGhpcwkAAgECDVVua25vd24gY2hhaW4AC2JyZWVkZXJBZGRyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUERWdVU0NUg3RWg1ZG10TmJuUk5SU3RHd1VMQTdOWTZIYgMJAAACAQFUBQckbWF0Y2gwBQR0aGlzCQACAQINVW5rbm93biBjaGFpbgADcHViASBPU+IaP1So1p1SThMdRidVvbNT8yx7yVRUsP9DwbQUKAAIbWVkS2l0SHAJAMwIAgAeCQDMCAIAPAkAzAgCAHgFA25pbAARRklWRU1JTlVURVNNSUxMSVMA4KcSAAxSRU5BTUlOR0NPU1QAwJaxAgAKTUFYTkFNRUxFTgAyABVJbmZyYVVwZ3JhZGVDb3N0U1VzZHQAgK3iBAAMRVhQTUFURVJJQUxTBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAKbdgu2rBwMJAAACAQFUBQckbWF0Y2gwAKqngbMJCQACAQINVW5rbm93biBjaGFpbgAHRVhQVVNEVAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMACA5Zp3AwkAAAIBAVQFByRtYXRjaDAAgOWadwkAAgECDVVua25vd24gY2hhaW4ABUZJVkVYCQC2AgEABQAHVFdFTlRZWAkAtgIBABQACFRXRU5UWTJYCQC2AgEJAGgCABQAFAAIVFdFTlRZM1gJALYCAQkAaAIJAGgCABQAFAAUAAhUV0VOVFk0WAkAtgIBCQBoAgkAaAIJAGgCABQAFAAUABQACFRXRU5UWTVYCQC2AgEJAGgCCQBoAgkAaAIJAGgCABQAFAAUABQAFAAPUFJFU0FMRU5VTUxBTkRTAPQDARJrZXlOZXh0RnJlZUxhbmROdW0AAgtuZXh0TGFuZE51bQEQa2V5TGFuZFRvQXNzZXRJZAEHbGFuZE51bQkArAICAgxsYW5kVG9Bc3NldF8FB2xhbmROdW0BGmtleUxhbmRDdXN0b21OYW1lVG9Bc3NldElkAQRuYW1lCQCsAgICEWxhbmRCeUN1c3RvbU5hbWVfBQRuYW1lAR5rZXlJbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXICB2Fzc2V0SWQJb3duZXJBZGRyCQCsAgIJAKwCAgkArAICAhxpbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXJfBQdhc3NldElkAgFfBQlvd25lckFkZHIBJWtleUxhbmRBcnRTdGF0dXNCeVR5cGVBc3NldElkQW5kT3duZXIDBHR5cGUHYXNzZXRJZAlvd25lckFkZHIJALkJAgkAzAgCAiJsYW5kQXJ0U3RhdHVzQnlUeXBlQXNzZXRJZEFuZE93bmVyCQDMCAIFBHR5cGUJAMwIAgUHYXNzZXRJZAkAzAgCBQlvd25lckFkZHIFA25pbAIBXwERa2V5TGFuZE51bVRvT3duZXIBB2xhbmROdW0JAKwCAgIKbGFuZE93bmVyXwUHbGFuZE51bQEaa2V5RHVja0N1c3RvbU5hbWVUb0Fzc2V0SWQBBG5hbWUJAKwCAgIRZHVja0J5Q3VzdG9tTmFtZV8FBG5hbWUBFmtleUN1c3RvbU5hbWVUb0FkZHJlc3MBBG5hbWUJAKwCAgIUYWNjb3VudEJ5Q3VzdG9tTmFtZV8FBG5hbWUBCWtleU9sZGllcwACCm9sZGllc0xpc3QAC2NsYWltTW9kZVdoAAAADWNsYWltTW9kZUR1Y2sAAQATY2xhaW1Nb2RlV2hUaGVuRHVjawACAAhmbEhlYWx0aAAAAAtmbFRpbWVzdGFtcAAFAAdmbEJvbnVzAAYBB25mdE5hbWUCB2xhbmROdW0IbGFuZFNpemUJAKwCAgkArAICBQpMQU5EUFJFRklYBQdsYW5kTnVtBQhsYW5kU2l6ZQETZGlzdHJpYnV0ZUJ5V2VpZ2h0cwIFdG90YWwHd2VpZ2h0cwQDc3VtCQBkAgkAZAIJAGQCCQBkAgkAZAIJAJEDAgUHd2VpZ2h0cwAACQCRAwIFB3dlaWdodHMAAQkAkQMCBQd3ZWlnaHRzAAIJAJEDAgUHd2VpZ2h0cwADCQCRAwIFB3dlaWdodHMABAkAkQMCBQd3ZWlnaHRzAAUDCQBnAgAABQNzdW0JAAIBAhBaZXJvIHdlaWdodHMgc3VtBAVub3JtNgkAawMFBXRvdGFsBQVNVUxUNgUDc3VtCgEKbm9ybWFsaXplcgIDYWNjBGVsZW0JAM0IAgUDYWNjCQBrAwUEZWxlbQUFbm9ybTYFBU1VTFQ2CgACJGwFB3dlaWdodHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCm5vcm1hbGl6ZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYBEmdldE5lZWRlZE1hdGVyaWFscwEFdG90YWwEBXByb3BzCQC1CQIJAQV2YWx1ZQEJAKIIAQkBEWtleVJlc1Byb3BvcnRpb25zAAIBXwMJAQIhPQIJAJADAQUFcHJvcHMFBk5VTVJFUwkAAgECFldyb25nIHByb3BvcnRpb25zIGRhdGEEAXIJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAAJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAEJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAIJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAMJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAQJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAUFA25pbAkBE2Rpc3RyaWJ1dGVCeVdlaWdodHMCBQV0b3RhbAUBcgERc3VidHJhY3RNYXRlcmlhbHMDDHNob3VsZFVzZU1hdANoYXMJdG90YWxOZWVkBARuZWVkCQESZ2V0TmVlZGVkTWF0ZXJpYWxzAQUJdG90YWxOZWVkCgEKc3VidHJhY3RvcgIDYWNjA2lkeAQGcmVzdWx0CQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2hhcwUDaWR4CQCRAwIFBG5lZWQFA2lkeAMJAGYCAAAFBnJlc3VsdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhhOb3QgZW5vdWdoIG1hdGVyaWFsIGlkeD0JAKQDAQUDaWR4AgssIHlvdSBoYXZlIAkAkQMCBQNoYXMFA2lkeAILLCBidXQgbmVlZCAJAKQDAQkAkQMCBQRuZWVkBQNpZHgJAM0IAgUDYWNjCQCkAwEFBnJlc3VsdAMFDHNob3VsZFVzZU1hdAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnN1YnRyYWN0b3ICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYFA2hhcwEZdXBkYXRlUHJvcG9ydGlvbnNJbnRlcm5hbAQIcHJvcExpc3QNdGVycmFpbkNvdW50cw1sYW5kU2l6ZUluZGV4BHNpZ24DCQECIT0CCQCQAwEFCHByb3BMaXN0BQZOVU1SRVMJAAIBAhZXcm9uZyBwcm9wb3J0aW9ucyBkYXRhCgEHdXBkYXRlcgIDYWNjAWkEBnJlc3VsdAkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhwcm9wTGlzdAUBaQkAaAIJAGgCBQRzaWduCQCRAwIFDXRlcnJhaW5Db3VudHMFAWkFDWxhbmRTaXplSW5kZXgDCQBmAgAABQZyZXN1bHQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICFlBhbmljISBQaWVjZXMgb2YgdHlwZT0JAKQDAQUBaQIHLCBzaWduPQkApAMBBQRzaWduAhQsICB0ZXJyYWluQ291bnRzW2ldPQkApAMBCQCRAwIFDXRlcnJhaW5Db3VudHMFAWkCECwgbGFuZFNpemVJbmRleD0JAKQDAQUNbGFuZFNpemVJbmRleAkAzQgCBQNhY2MJAKQDAQUGcmVzdWx0BAFyCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEHdXBkYXRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgkAuQkCBQFyAgFfARF1cGRhdGVQcm9wb3J0aW9ucwMNdGVycmFpbkNvdW50cw1sYW5kU2l6ZUluZGV4BHNpZ24ECHByb3BMaXN0CQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQkBEWtleVJlc1Byb3BvcnRpb25zAAILMF8wXzBfMF8wXzACAV8JARl1cGRhdGVQcm9wb3J0aW9uc0ludGVybmFsBAUIcHJvcExpc3QFDXRlcnJhaW5Db3VudHMFDWxhbmRTaXplSW5kZXgFBHNpZ24BDWNvdW50VGVycmFpbnMBCHRlcnJhaW5zCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUEAAQkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFCAAEJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBQwABCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUQAAQkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFFAAEJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBRgABBQNuaWwBBmFkZFJlcwUKY3VycmVudFJlcw10ZXJyYWluQ291bnRzCWRlbHRhVGltZQ1sYW5kU2l6ZUluZGV4F2RhaWx5QnlQaWVjZVdpdGhCb251c2VzCgEFYWRkZXICA2FjYwFpBAlyZXNPZlR5cGUJAGgCCQBoAgkAawMFCWRlbHRhVGltZQUXZGFpbHlCeVBpZWNlV2l0aEJvbnVzZXMFCURBWU1JTExJUwkAkQMCBQ10ZXJyYWluQ291bnRzBQFpBQ1sYW5kU2l6ZUluZGV4CQDNCAIFA2FjYwkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCmN1cnJlbnRSZXMFAWkFCXJlc09mVHlwZQQBcgoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCQC5CQIFAXICAV8BCXZpcnRDbGFpbQQNdGVycmFpbkNvdW50cwlkZWx0YVRpbWUNbGFuZFNpemVJbmRleBdkYWlseUJ5UGllY2VXaXRoQm9udXNlcwoBBWFkZGVyAgNhY2MBaQQJcmVzT2ZUeXBlCQBoAgkAaAIJAGsDBQlkZWx0YVRpbWUFF2RhaWx5QnlQaWVjZVdpdGhCb251c2VzBQlEQVlNSUxMSVMJAJEDAgUNdGVycmFpbkNvdW50cwUBaQUNbGFuZFNpemVJbmRleAkAlAoCCQDNCAIIBQNhY2MCXzEFCXJlc09mVHlwZQkAZAIIBQNhY2MCXzIFCXJlc09mVHlwZQoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgENZGlzdHJpYnV0ZVJlcwQMY3VycmVudFdoUmVzDmN1cnJlbnRQYWNrUmVzCnJlc1RvQ2xhaW0Ld2hTcGFjZUxlZnQEDnJlc0xpc3RUb0NsYWltCAUKcmVzVG9DbGFpbQJfMQQMcmVzQW1Ub0NsYWltCAUKcmVzVG9DbGFpbQJfMgMJAAACBQxyZXNBbVRvQ2xhaW0AAAkAlAoCCQC5CQIFDGN1cnJlbnRXaFJlcwIBXwkAuQkCBQ5jdXJyZW50UGFja1JlcwIBXwMJAGcCBQt3aFNwYWNlTGVmdAUMcmVzQW1Ub0NsYWltCgEIYWRkTGlzdHMCA2FjYwFpCQDNCAIFA2FjYwkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDGN1cnJlbnRXaFJlcwUBaQkAkQMCBQ5yZXNMaXN0VG9DbGFpbQUBaQQBcgoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCGFkZExpc3RzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCQCUCgIJALkJAgUBcgIBXwkAuQkCBQ5jdXJyZW50UGFja1JlcwIBXwoBDGFkZFBhcnRMaXN0cwIDYWNjAWkEBndoUGFydAkAawMJAJEDAgUOcmVzTGlzdFRvQ2xhaW0FAWkFC3doU3BhY2VMZWZ0BQxyZXNBbVRvQ2xhaW0JAJQKAgkAzQgCCAUDYWNjAl8xCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUMY3VycmVudFdoUmVzBQFpBQZ3aFBhcnQJAM0IAggFA2FjYwJfMgkApAMBCQBlAgkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5jdXJyZW50UGFja1JlcwUBaQkAkQMCBQ5yZXNMaXN0VG9DbGFpbQUBaQUGd2hQYXJ0BAFyCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGFkZFBhcnRMaXN0cwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgkAlAoCCQC5CQIIBQFyAl8xAgFfCQC5CQIIBQFyAl8yAgFfAQNhYnMBAXgDCQDAAgIFAXgJALYCAQAABQF4CQC+AgEFAXgABGZyZXEJAMwIAgkAzAgCAAYJAMwIAgAJCQDMCAIADgkAzAgCAA8JAMwIAgAQBQNuaWwJAMwIAgkAzAgCAAUJAMwIAgAICQDMCAIADQkAzAgCAA4JAMwIAgAPBQNuaWwJAMwIAgkAzAgCAAEJAMwIAgAECQDMCAIACQkAzAgCAAoJAMwIAgAPBQNuaWwJAMwIAgkAzAgCAAEJAMwIAgAGCQDMCAIABwkAzAgCAA8JAMwIAgATBQNuaWwJAMwIAgkAzAgCAAQJAMwIAgAHCQDMCAIACAkAzAgCAA0JAMwIAgASBQNuaWwFA25pbAEHZ2VuQ2hhcgIBbgVmcmVxcwQDcmVtCQCgAwEJALsCAgUBbgUHVFdFTlRZWAQGbGV0dGVyAwkAZgIJAJEDAgUFZnJlcXMAAAUDcmVtAgFBAwkAZgIJAJEDAgUFZnJlcXMAAQUDcmVtAgFCAwkAZgIJAJEDAgUFZnJlcXMAAgUDcmVtAgFDAwkAZgIJAJEDAgUFZnJlcXMAAwUDcmVtAgFEAwkAZgIJAJEDAgUFZnJlcXMABAUDcmVtAgFFAgFGBQZsZXR0ZXIBC2dlblRlcnJhaW5zAgRzZWVkDGNvbnRpbmVudElkeAQBZgkAkQMCBQRmcmVxBQxjb250aW5lbnRJZHgKARB0ZXJyYWluR2VuZXJhdG9yAgNhY2MEZWxlbQkAlAoCCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAggFA2FjYwJfMQkBB2dlbkNoYXICCAUDYWNjAl8yBQFmCQEHZ2VuQ2hhcgIJALoCAggFA2FjYwJfMgUHVFdFTlRZWAUBZgkBB2dlbkNoYXICCQC6AgIIBQNhY2MCXzIFCFRXRU5UWTJYBQFmCQEHZ2VuQ2hhcgIJALoCAggFA2FjYwJfMgUIVFdFTlRZM1gFAWYJAQdnZW5DaGFyAgkAugICCAUDYWNjAl8yBQhUV0VOVFk0WAUBZgkAugICCAUDYWNjAl8yBQhUV0VOVFk1WAQBdAoAAiRsCQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgIACQC6AgIFBHNlZWQFBUZJVkVYCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARB0ZXJyYWluR2VuZXJhdG9yAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQgFAXQCXzEBC2dldEJhY2twYWNrAQVicEtleQQBcAkAtQkCCQELdmFsdWVPckVsc2UCCQCiCAEFBWJwS2V5AhowOjBfMF8wXzBfMF8wOjBfMF8wXzBfMF8wOgIBOgkAzAgCCQCkAwEJAQt2YWx1ZU9yRWxzZQIJALYJAQkAkQMCBQFwBQpicElkeExldmVsAAAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeFJlcwIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4UmVzAgswXzBfMF8wXzBfMAkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCGJwSWR4TWF0AgFfBQZOVU1SRVMJAJEDAgUBcAUIYnBJZHhNYXQCCzBfMF8wXzBfMF8wCQDMCAIJAJEDAgUBcAUJYnBJZHhQcm9kBQNuaWwBF2dldFdhcmVob3VzZVRvdGFsVm9sdW1lAQl2b2xQcmVmaXgEBXBhcnRzCQC1CQIFCXZvbFByZWZpeAIBXwkAaAIJAGgCBQxXSE1VTFRJUExJRVIJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUFcGFydHMAAQABCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUFcGFydHMAAAEXZ2V0V2FyZWhvdXNlT2NjdXBpZWRWb2wBCWN1cnJlbnRXaAQFZ29vZHMJAJEDAgUJY3VycmVudFdoBQl3aElkeFByb2QKAQlzdW1SZXNNYXQCA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0KAQdzdW1Qcm9kAgNhY2MEaXRlbQQDaWR4CAUDYWNjAl8xBAdwa2dTaXplCQEKZ2V0UGtnU2l6ZQEFA2lkeAQEcGtncwkAaQIJAGUCCQBkAgkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBQdwa2dTaXplAAEFB3BrZ1NpemUJAJQKAgkAZAIFA2lkeAABCQBkAggFA2FjYwJfMgkAaAIFBHBrZ3MFBU1VTFQ4BAh3aFJlc1ZvbAoAAiRsCQC1CQIJAJEDAgUJY3VycmVudFdoBQh3aElkeFJlcwIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJc3VtUmVzTWF0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAh3aE1hdFZvbAoAAiRsCQC1CQIJAJEDAgUJY3VycmVudFdoBQh3aElkeE1hdAIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJc3VtUmVzTWF0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp3aEdvb2RzVm9sAwkAAAIFBWdvb2RzAgAAAAgKAAIkbAkAvAkCBQVnb29kcwIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgAAAAAKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBB3N1bVByb2QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgJfMgkAZAIJAGQCBQh3aFJlc1ZvbAUId2hNYXRWb2wFCndoR29vZHNWb2wBDGdldFdhcmVob3VzZQMFd2hLZXkJbGFuZEluZGV4CmluZnJhTGV2ZWwECXZvbFByZWZpeAkArAICCQCsAgIJAKQDAQUJbGFuZEluZGV4AgFfCQCkAwEFCmluZnJhTGV2ZWwEB3doVG90YWwJARdnZXRXYXJlaG91c2VUb3RhbFZvbHVtZQEFCXZvbFByZWZpeAQFd2hTdHIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUFd2hLZXkJAKwCAgUJdm9sUHJlZml4Ahs6MF8wXzBfMF8wXzA6MF8wXzBfMF8wXzA6OjAEAndoCQC8CQIFBXdoU3RyAgE6BAp3aE9jY3VwaWVkCQEXZ2V0V2FyZWhvdXNlT2NjdXBpZWRWb2wBBQJ3aAQGd2hMb2Z0AwkAZgIABQkAkAMBBQJ3aAkAuQkCCQDMCAICATAJAMwIAgkApAMBBQp3aE9jY3VwaWVkCQDMCAIJAKQDAQkAZQIFB3doVG90YWwFCndoT2NjdXBpZWQJAMwIAgkApAMBBQd3aFRvdGFsBQNuaWwCAV8EBGxvZnQJALUJAgkAkQMCBQJ3aAUJd2hJZHhMT0ZUAgFfBAh3aExvY2tlZAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGxvZnQFCXZvbExvY2tlZAQDb2NjAwkAZgIJAJADAQUEbG9mdAABCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAULdm9sT2NjdXBpZWQFCndoT2NjdXBpZWQJALkJAgkAzAgCCQCkAwEFCHdoTG9ja2VkCQDMCAIJAKQDAQUDb2NjCQDMCAIJAKQDAQkAZQIJAGUCBQd3aFRvdGFsBQh3aExvY2tlZAUDb2NjCQDMCAIJAKQDAQUHd2hUb3RhbAUDbmlsAgFfCQDMCAIJAJEDAgUCd2gFC3doSWR4TGV2ZWxzCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUCd2gFCHdoSWR4UmVzAgFfBQZOVU1SRVMJAJEDAgUCd2gFCHdoSWR4UmVzAgswXzBfMF8wXzBfMAkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAndoBQh3aElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAndoBQh3aElkeE1hdAILMF8wXzBfMF8wXzAJAMwIAgkAkQMCBQJ3aAUJd2hJZHhQcm9kCQDMCAIFBndoTG9mdAUDbmlsARVnZXRXYXJlaG91c2VTcGFjZUxlZnQBCWN1cnJlbnRXaAQLb2NjdXBpZWRWb2wJARdnZXRXYXJlaG91c2VPY2N1cGllZFZvbAEFCWN1cnJlbnRXaAQPY3VycldoTG9ja2VkVm9sCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBQl2b2xMb2NrZWQJAGUCCQBlAgkBF2dldFdhcmVob3VzZVRvdGFsVm9sdW1lAQkAkQMCBQljdXJyZW50V2gFC3doSWR4TGV2ZWxzBQtvY2N1cGllZFZvbAUPY3VycldoTG9ja2VkVm9sAQh0b1ZvbHVtZQIGYW1vdW50B3BrZ1NpemUEBHBrZ3MDCQBnAgUGYW1vdW50AAAJAGkCCQBlAgkAZAIFBmFtb3VudAUHcGtnU2l6ZQABBQdwa2dTaXplCQEBLQEJAGkCCQBlAgkAZAIJAQEtAQUGYW1vdW50BQdwa2dTaXplAAEFB3BrZ1NpemUJAGgCBQRwa2dzBQVNVUxUOAEJbW92ZVN0dWZmAwpjYXJnb1BhcnRzCWN1cnJlbnRXaAtjdXJyZW50UGFjawMJAQIhPQIJAJADAQUKY2FyZ29QYXJ0cwADCQACAQI0Y2FyZ29MaXN0U3RyIHNob3VsZCBjb250YWluIGV4YWN0bHkgMiAnOicgc2VwYXJhdG9ycwQIcmVzUGFydHMJALUJAgkAkQMCBQpjYXJnb1BhcnRzAAACAV8ECG1hdFBhcnRzCQC1CQIJAJEDAgUKY2FyZ29QYXJ0cwABAgFfBAlwcm9kUGFydHMDCQAAAgkAkQMCBQpjYXJnb1BhcnRzAAICAAUDbmlsCQC1CQIJAJEDAgUKY2FyZ29QYXJ0cwACAgFfAwkBAiE9AgkAkAMBBQhyZXNQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgcmVzb3VyY2VzIHNob3VsZCBiZSBwYXNzZWQDCQECIT0CCQCQAwEFCG1hdFBhcnRzBQZOVU1SRVMJAAIBAiBBbGwgNiBtYXRlcmlhbHMgc2hvdWxkIGJlIHBhc3NlZAQLd2hTcGFjZUxlZnQJARVnZXRXYXJlaG91c2VTcGFjZUxlZnQBBQljdXJyZW50V2gECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQOY3VycmVudFBhY2tSZXMJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8EDmN1cnJlbnRQYWNrTWF0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBA9jdXJyZW50UGFja1Byb2QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8KAQNtdlICA2FjYwRpdGVtBAFpCAUDYWNjAl8xBAJhbQkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAN3aHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQljdXJyV2hSZXMFAWkEA2JwcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmN1cnJlbnRQYWNrUmVzBQFpAwkAAAIFAmFtAAAJAJYKBAkAZAIFAWkAAQkAzQgCCAUDYWNjAl8yCQCRAwIFCWN1cnJXaFJlcwUBaQkAzQgCCAUDYWNjAl8zCQCRAwIFDmN1cnJlbnRQYWNrUmVzBQFpCAUDYWNjAl80AwkAZgIFAmFtAAADCQBmAgUCYW0FA2JwcgkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byB0YWtlIAUEaXRlbQIZIGZyb20gYmFja3BhY2ssIGJ1dCBvbmx5IAkApAMBBQNicHICCiBhdmFpbGFibGUJAJYKBAkAZAIFAWkAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCBQN3aHIFAmFtCQDNCAIIBQNhY2MCXzMJAKQDAQkAZQIFA2JwcgUCYW0JAGQCCAUDYWNjAl80BQJhbQMJAGYCCQEBLQEFAmFtBQN3aHIJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQJhbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUDd2hyAgogYXZhaWxhYmxlCQCWCgQJAGQCBQFpAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2hyBQJhbQkAzQgCCAUDYWNjAl8zCQCkAwEJAGUCBQNicHIFAmFtCQBkAggFA2FjYwJfNAUCYW0EAXIKAAIkbAUIcmVzUGFydHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQAAAUDbmlsBQNuaWwAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDbXZSAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCgEDbXZNAgNhY2MEaXRlbQQBaQgFA2FjYwJfMQQCYW0JAQ1wYXJzZUludFZhbHVlAQUEaXRlbQQDd2htCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJY3VycldoTWF0BQFpBANicG0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5jdXJyZW50UGFja01hdAUBaQMJAAACBQJhbQAACQCWCgQJAGQCBQFpAAEJAM0IAggFA2FjYwJfMgkAkQMCBQljdXJyV2hNYXQFAWkJAM0IAggFA2FjYwJfMwkAkQMCBQ5jdXJyZW50UGFja01hdAUBaQgFA2FjYwJfNAMJAGYCBQJhbQAAAwkAZgIFAmFtBQNicG0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAFBGl0ZW0CGSBmcm9tIGJhY2twYWNrLCBidXQgb25seSAJAKQDAQUDYnBtAgogYXZhaWxhYmxlCQCWCgQJAGQCBQFpAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2htBQJhbQkAzQgCCAUDYWNjAl8zCQCkAwEJAGUCBQNicG0FAmFtCQBkAggFA2FjYwJfNAUCYW0DCQBmAgkBAS0BBQJhbQUDd2htCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHRha2UgCQCkAwEJAQEtAQUCYW0CGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3dobQIKIGF2YWlsYWJsZQkAlgoECQBkAgUBaQABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZAIFA3dobQUCYW0JAM0IAggFA2FjYwJfMwkApAMBCQBlAgUDYnBtBQJhbQkAZAIIBQNhY2MCXzQFAmFtBAFtCgACJGwFCG1hdFBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEAAAFA25pbAUDbmlsCAUBcgJfNAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDbXZNAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCgEDbXZQAgNhY2MEaXRlbQQBaQgFA2FjYwJfMQQHcGtnU2l6ZQkBCmdldFBrZ1NpemUBBQFpBAJhbQkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAN3aHADCQBmAgkAkAMBBQpjdXJyV2hQcm9kBQFpCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKY3VycldoUHJvZAUBaQAABANicHADCQBmAgkAkAMBBQ9jdXJyZW50UGFja1Byb2QFAWkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ9jdXJyZW50UGFja1Byb2QFAWkAAAMJAAACBQJhbQAACQCWCgQJAGQCBQFpAAEJAM0IAggFA2FjYwJfMgkApAMBBQN3aHAJAM0IAggFA2FjYwJfMwkApAMBBQNicHAIBQNhY2MCXzQDCQBmAgUCYW0AAAMJAGYCBQJhbQUDYnBwCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHRha2UgBQRpdGVtAhkgZnJvbSBiYWNrcGFjaywgYnV0IG9ubHkgCQCkAwEFA2JwcAIKIGF2YWlsYWJsZQQIZGVsdGFWb2wJAGUCCQEIdG9Wb2x1bWUCCQBkAgUDd2hwBQJhbQUHcGtnU2l6ZQkBCHRvVm9sdW1lAgUDd2hwBQdwa2dTaXplCQCWCgQJAGQCBQFpAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2hwBQJhbQkAzQgCCAUDYWNjAl8zCQCkAwEJAGUCBQNicHAFAmFtCQBkAggFA2FjYwJfNAUIZGVsdGFWb2wDCQBmAgkBAS0BBQJhbQUDd2hwCQACAQkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHRha2UgCQCkAwEJAQEtAQUCYW0CGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3docAIKIGF2YWlsYWJsZQQIZGVsdGFWb2wJAGUCCQEIdG9Wb2x1bWUCCQBkAgUDd2hwBQJhbQUHcGtnU2l6ZQkBCHRvVm9sdW1lAgUDd2hwBQdwa2dTaXplCQCWCgQJAGQCBQFpAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2hwBQJhbQkAzQgCCAUDYWNjAl8zCQCkAwEJAGUCBQNicHAFAmFtCQBkAggFA2FjYwJfNAUIZGVsdGFWb2wEAXADCQECIT0CCQCQAwEFCXByb2RQYXJ0cwAACgACJGwFCXByb2RQYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAAABQNuaWwFA25pbAgFAW0CXzQKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA212UAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjJfMgIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyCQCWCgQAAAUKY3VycldoUHJvZAUPY3VycmVudFBhY2tQcm9kCAUBbQJfNAQIdm9sU2FsZG8IBQFwAl80AwkAZgIFCHZvbFNhbGRvBQt3aFNwYWNlTGVmdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgIVQXR0ZW1wdCB0byBwdXQgdG90YWwgCQCkAwEFCHZvbFNhbGRvAhEgc3R1ZmYsIGJ1dCBvbmx5IAkApAMBBQt3aFNwYWNlTGVmdAIVIHdhcmVob3VzZSBzcGFjZSBsZWZ0CQCZCgcJALkJAggFAXICXzICAV8JALkJAggFAW0CXzICAV8JALkJAggFAXACXzICAV8JALkJAggFAXICXzMCAV8JALkJAggFAW0CXzMCAV8JALkJAggFAXACXzMCAV8FCHZvbFNhbGRvARJleHBlZGl0aW9uSW50ZXJuYWwCBmNhbGxlcgR0eElkBAh1c2VyQWRkcgkApQgBBQZjYWxsZXIEBmJpZ051bQkBA2FicwEJAJ4DAQUEdHhJZAQHZnJlZU51bQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQESa2V5TmV4dEZyZWVMYW5kTnVtAAkAZAIFD1BSRVNBTEVOVU1MQU5EUwABBAdsYW5kTnVtCQCkAwEFB2ZyZWVOdW0EDGNvbnRpbmVudElkeAkAoAMBCQC7AgIFBmJpZ051bQUFRklWRVgECHRlcnJhaW5zCQELZ2VuVGVycmFpbnMCBQZiaWdOdW0FDGNvbnRpbmVudElkeAQJY29udGluZW50CQCRAwIFCmNvbnRpbmVudHMFDGNvbnRpbmVudElkeAQFaXNzdWUJAMIIBQkBB25mdE5hbWUCBQdsYW5kTnVtAgFTCQC5CQIJAMwIAgUHbGFuZE51bQkAzAgCAgFTCQDMCAIFCHRlcnJhaW5zCQDMCAIFCWNvbnRpbmVudAUDbmlsAgFfAAEAAAcEB2Fzc2V0SWQJALgIAQUFaXNzdWUEAmlkCQDYBAEFB2Fzc2V0SWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmtleU5leHRGcmVlTGFuZE51bQAJAGQCBQdmcmVlTnVtAAEJAMwIAgUFaXNzdWUJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEGtleUxhbmRUb0Fzc2V0SWQBBQdsYW5kTnVtBQJpZAkAzAgCCQELU3RyaW5nRW50cnkCCQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQUCaWQFCHVzZXJBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlMYW5kTnVtVG9Pd25lcgEFB2xhbmROdW0FCHVzZXJBZGRyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEFAmlkAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJAR5rZXlJbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXICBQJpZAUIdXNlckFkZHIAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIAAQUHYXNzZXRJZAUDbmlsCQCUCgIFAmlkBQljb250aW5lbnQBEGV4cGVkaXRpb25Db21tb24FDHNob3VsZFVzZU1hdAZjYWxsZXIEdHhJZAdtZXNzYWdlA3NpZwMJAQEhAQkAxBMDBQdtZXNzYWdlBQNzaWcFA3B1YgkAAgECGHNpZ25hdHVyZSBkb2VzIG5vdCBtYXRjaAQFcGFydHMJALUJAgkAsAkBBQdtZXNzYWdlAgE7BAlmbGlnaHRMb2cJALUJAgkAkQMCBQVwYXJ0cwAAAgF8BAJocAkAtQkCCQCRAwIFCWZsaWdodExvZwUIZmxIZWFsdGgCAV8EBWN1ckhQCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCaHAAAAQFbmV3SFAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJocAABBAtuZXdMb2NUeFZlcgkAtQkCCQCRAwIFBXBhcnRzAAECAToEC25ld0xvY2F0aW9uCQCRAwIFC25ld0xvY1R4VmVyAAAEBHRpbWUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlmbGlnaHRMb2cFC2ZsVGltZXN0YW1wAwMJAGYCBQR0aW1lCQBkAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFEUZJVkVNSU5VVEVTTUlMTElTBgkAZgIJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAURRklWRU1JTlVURVNNSUxMSVMFBHRpbWUJAAIBAhJzaWduYXR1cmUgb3V0ZGF0ZWQECXR4RnJvbU1zZwkAkQMCBQtuZXdMb2NUeFZlcgABBAh1c2VyQWRkcgkApQgBBQZjYWxsZXIEBmxhc3RUeAkBC3ZhbHVlT3JFbHNlAgkAoggBCQERa2V5TGFzdFR4SWRCeVVzZXIBBQh1c2VyQWRkcgIAAwkBAiE9AgUGbGFzdFR4BQl0eEZyb21Nc2cJAAIBCQCsAgIJAKwCAgkArAICAh5UeCBpZHMgZG9uJ3QgbWF0Y2ghIEluIHN0YXRlOiAFBmxhc3RUeAIKLCBpbiBtc2c6IAUJdHhGcm9tTXNnBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFCHVzZXJBZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAlrZXlIZWFsdGgJAQ1rZXlEdWNrSGVhbHRoAQULZHVja0Fzc2V0SWQEDG9sZEZyb21TdGF0ZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAMJAQIhPQIFDG9sZEZyb21TdGF0ZQUFY3VySFAJAAIBCQCsAgIJAKwCAgkArAICAgpvbGRIZWFsdGg9CQCkAwEJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJa2V5SGVhbHRoAGQCLyBmcm9tIHN0YXRlIGRvZXMgbm90IG1hdGNoIG9uZSBmcm9tIGZsaWdodCBsb2c9CQCkAwEFBWN1ckhQAwkAZwIAAAUFY3VySFAJAAIBAh5Zb3UgY2FuJ3QgZmx5IHdpdGggemVybyBoZWFsdGgDCQBnAgAABQVuZXdIUAkAlQoDCQDNCAIDCQEBIQEFDHNob3VsZFVzZU1hdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFB0VYUFVTRFQFC3VzZHRBc3NldElkBQNuaWwFA25pbAkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aAAAAgAAAAQFYm9udXMDCQBmAgkAkAMBBQlmbGlnaHRMb2cFB2ZsQm9udXMJAJEDAgUJZmxpZ2h0TG9nBQdmbEJvbnVzAgAECnNlbnRBbW91bnQDCQAAAgUFYm9udXMCASQJAQVhc0ludAEJAPwHBAUMcmVzdENvbnRyYWN0Ag1zZW5kVXNkdFByaXplCQDMCAIFCHVzZXJBZGRyBQNuaWwFA25pbAAABAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQFbUxpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8EBm5ld01hdAkAuQkCCQERc3VidHJhY3RNYXRlcmlhbHMDBQxzaG91bGRVc2VNYXQFBW1MaXN0BQxFWFBNQVRFUklBTFMCAV8EAWUJARJleHBlZGl0aW9uSW50ZXJuYWwCBQZjYWxsZXIFBHR4SWQEAmlkCAgFAWUCXzICXzEJAJUKAwkAzQgCCQDNCAIJAM0IAggFAWUCXzEJAQtTdHJpbmdFbnRyeQIJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAkAuQkCCQDMCAIICAUBZQJfMgJfMgkAzAgCAgFMCQDMCAIFAmlkBQNuaWwCAV8JAQxJbnRlZ2VyRW50cnkCBQlrZXlIZWFsdGgFBW5ld0hQCQELU3RyaW5nRW50cnkCBQVicEtleQkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMJAMwIAgUGbmV3TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BQJpZAUKc2VudEFtb3VudAEMYXBwbHlCb251c2VzAgtsYW5kQXNzZXRJZAZwaWVjZXMECmluZnJhTGV2ZWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAlhcnRQaWVjZXMJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBIGtleUxhbmRBcnRTdGF0dXNCeVR5cGVBbmRBc3NldElkAgUKQVJUUFJFU0FMRQULbGFuZEFzc2V0SWQAAAQEYWRkNgkAaQIFCmluZnJhTGV2ZWwABgQEYWRkNwkAaQIFCmluZnJhTGV2ZWwABwkAZAIJAGQCBQ9EQUlMWVJFU0JZUElFQ0UJAGsDBQ9EQUlMWVJFU0JZUElFQ0UJAGQCCQBkAgUKaW5mcmFMZXZlbAUEYWRkNgkAaAIAAgUEYWRkNwAFCQBrAwUPREFJTFlSRVNCWVBJRUNFBQlhcnRQaWVjZXMJAGgCBQZwaWVjZXMABQEUY2hlY2tDbGFpbUNvbmRpdGlvbnMDBGFkZHIJY2xhaW1Nb2RlDWxhbmRBc3NldElkSW4EDSR0MDMxOTU1MzI0OTQDCQAAAgUJY2xhaW1Nb2RlBQtjbGFpbU1vZGVXaAkAlAoCBQ1sYW5kQXNzZXRJZEluCQELdmFsdWVPckVsc2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFBGFkZHICAAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQRhZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAtjdXJMb2NhdGlvbgkBC3ZhbHVlT3JFbHNlAgkAoggBCQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgQDbG9jCQC1CQIJAQV2YWx1ZQEFC2N1ckxvY2F0aW9uAgFfAwkBAiE9AgkAkQMCBQNsb2MFCmxvY0lkeFR5cGUCAUwJAAIBCQCsAgIJAKwCAgIWRHVjayBsb2NhdGlvbiB0eXBlIGlzIAkAkQMCBQNsb2MFCmxvY0lkeFR5cGUCESwgYnV0IHNob3VsZCBiZSBMCQCUCgIJAJEDAgUDbG9jBQhsb2NJZHhJZAULZHVja0Fzc2V0SWQEC2xhbmRBc3NldElkCAUNJHQwMzE5NTUzMjQ5NAJfMQQGZHVja0lkCAUNJHQwMzE5NTUzMjQ5NAJfMgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAQJc2F2ZWRUaW1lCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ8IAQUHdGltZUtleQkArAICCQCsAgICBUxhbmQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQRhZGRyCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBAFkCQC1CQIIBQVhc3NldAtkZXNjcmlwdGlvbgIBXwkAlgoEBQZkdWNrSWQFC2xhbmRBc3NldElkBQFkBQlzYXZlZFRpbWUBEGNsYWltUmVzSW50ZXJuYWwEBGFkZHIGYW1vdW50CWNsYWltTW9kZQ1sYW5kQXNzZXRJZEluAwkAZgIAAAUGYW1vdW50CQACAQIPTmVnYXRpdmUgYW1vdW50BAFjCQEUY2hlY2tDbGFpbUNvbmRpdGlvbnMDBQRhZGRyBQljbGFpbU1vZGUFDWxhbmRBc3NldElkSW4ECGxhbmRTaXplCQCRAwIIBQFjAl8zBQtyZWNMYW5kU2l6ZQQNdGVycmFpbkNvdW50cwkBDWNvdW50VGVycmFpbnMBCQCRAwIIBQFjAl8zBQtyZWNUZXJyYWlucwQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAIBQFjAl80AwkAZgIAAAUJZGVsdGFUaW1lCQACAQkArAICCQCsAgIJAKwCAgImU2F2ZWQgdGltZXN0YW1wIGlzIGluIGZ1dHVyZSwgc2F2ZWQgPSAJAKQDAQgFAWMCXzQCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQUIbGFuZFNpemUEFmRhaWx5UHJvZHVjdGlvbkJ5UGllY2UJAQxhcHBseUJvbnVzZXMCCAUBYwJfMgUGcGllY2VzBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFFmRhaWx5UHJvZHVjdGlvbkJ5UGllY2UFBnBpZWNlcwUJREFZTUlMTElTAwkAZgIFBmFtb3VudAUIYXZhaWxSZXMJAAIBCQCsAgIJAKwCAgkArAICAiJOb3QgZW5vdWdoIHJlc291cmNlcywgYXZhaWxhYmxlID0gCQCkAwEFCGF2YWlsUmVzAg4sIHJlcXVlc3RlZCA9IAkApAMBBQZhbW91bnQEDG5ld0RlbHRhVGltZQkAawMJAGUCBQhhdmFpbFJlcwUGYW1vdW50BQlEQVlNSUxMSVMJAGgCBRZkYWlseVByb2R1Y3Rpb25CeVBpZWNlBQZwaWVjZXMEDG5ld1RpbWVzdGFtcAkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQxuZXdEZWx0YVRpbWUECWxhbmRJbmRleAkAaQIFBnBpZWNlcwUFU1NJWkUECnJlc1RvQ2xhaW0JAQl2aXJ0Q2xhaW0EBQ10ZXJyYWluQ291bnRzCQBlAgUJZGVsdGFUaW1lBQxuZXdEZWx0YVRpbWUFCWxhbmRJbmRleAUWZGFpbHlQcm9kdWN0aW9uQnlQaWVjZQQFd2hLZXkJARJrZXlXYXJlaG91c2VCeUxhbmQBCAUBYwJfMgQKaW5mcmFMZXZlbAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEIBQFjAl8yAAAECWN1cnJlbnRXaAkBDGdldFdhcmVob3VzZQMFBXdoS2V5BQlsYW5kSW5kZXgFCmluZnJhTGV2ZWwEBGxvZnQJALUJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4TE9GVAIBXwQLd2hTcGFjZUxlZnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRsb2Z0BQd2b2xGcmVlAwMJAAACBQljbGFpbU1vZGUFC2NsYWltTW9kZVdoCQBmAgUGYW1vdW50BQt3aFNwYWNlTGVmdAcJAAIBCQCsAgIJAKwCAgIFT25seSAJAKQDAQULd2hTcGFjZUxlZnQCGCBzcGFjZSBsZWZ0IGluIHdhcmVob3VzZQQFYnBLZXkJARFrZXlCYWNrcGFja0J5RHVjawEIBQFjAl8xBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQUFYnBLZXkEDmN1cnJlbnRQYWNrUmVzCQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBAxjdXJyZW50V2hSZXMJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzAgFfBA0kdDAzNDg2ODM1NzM5AwkAAAIFCWNsYWltTW9kZQULY2xhaW1Nb2RlV2gJAJYKBAkBBmFkZFJlcwUFDGN1cnJlbnRXaFJlcwUNdGVycmFpbkNvdW50cwkAZQIFCWRlbHRhVGltZQUMbmV3RGVsdGFUaW1lBQlsYW5kSW5kZXgFFmRhaWx5UHJvZHVjdGlvbkJ5UGllY2UJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGxvZnQFC3ZvbE9jY3VwaWVkCAUKcmVzVG9DbGFpbQJfMgkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRsb2Z0BQd2b2xGcmVlCAUKcmVzVG9DbGFpbQJfMgMJAAACBQljbGFpbU1vZGUFDWNsYWltTW9kZUR1Y2sJAJYKBAkAkQMCBQljdXJyZW50V2gFCHdoSWR4UmVzCQEGYWRkUmVzBQUOY3VycmVudFBhY2tSZXMFDXRlcnJhaW5Db3VudHMJAGUCBQlkZWx0YVRpbWUFDG5ld0RlbHRhVGltZQUJbGFuZEluZGV4BRZkYWlseVByb2R1Y3Rpb25CeVBpZWNlCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAULdm9sT2NjdXBpZWQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRsb2Z0BQd2b2xGcmVlBAVkaXN0cgkBDWRpc3RyaWJ1dGVSZXMEBQxjdXJyZW50V2hSZXMFDmN1cnJlbnRQYWNrUmVzBQpyZXNUb0NsYWltBQt3aFNwYWNlTGVmdAQEd2hBbQkAlwMBCQDMCAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRsb2Z0BQd2b2xGcmVlCQDMCAIIBQpyZXNUb0NsYWltAl8yBQNuaWwJAJYKBAgFBWRpc3RyAl8xCAUFZGlzdHICXzIJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAULdm9sT2NjdXBpZWQFBHdoQW0JAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAUHdm9sRnJlZQUEd2hBbQQFd2hSZXMIBQ0kdDAzNDg2ODM1NzM5Al8xBAVicFJlcwgFDSR0MDM0ODY4MzU3MzkCXzIEBWxvZnRPCAUNJHQwMzQ4NjgzNTczOQJfMwQFbG9mdEYIBQ0kdDAzNDg2ODM1NzM5Al80CQCXCgUJAMwIAgkBDEludGVnZXJFbnRyeQIJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQgFAWMCXzIFDG5ld1RpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpMQU5EUFJFRklYCAUBYwJfMgUEYWRkcgUMbmV3VGltZXN0YW1wBQNuaWwFBWJwS2V5CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgUFYnBSZXMJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwFBXdoS2V5CQDMCAIJAJEDAgUJY3VycmVudFdoBQt3aElkeExldmVscwkAzAgCBQV3aFJlcwkAzAgCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQJAMwIAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAkAzAgCCQC5CQIJAMwIAgkAkQMCBQRsb2Z0BQl2b2xMb2NrZWQJAMwIAgkApAMBBQVsb2Z0TwkAzAgCCQCkAwEFBWxvZnRGCQDMCAIJAJEDAgUEbG9mdAUIdm9sVG90YWwFA25pbAIBXwUDbmlsAQhjbGFpbUFsbAQEYWRkcgtsYW5kQXNzZXRJZAZwaWVjZXMJY2xhaW1Nb2RlBAd0aW1lS2V5CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkBAlzYXZlZFRpbWUJAQV2YWx1ZQEJAJ8IAQUHdGltZUtleQQIYXZhaWxSZXMJAGgCCQBrAwkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQlzYXZlZFRpbWUJAQxhcHBseUJvbnVzZXMCBQtsYW5kQXNzZXRJZAUGcGllY2VzBQlEQVlNSUxMSVMFBnBpZWNlcwkBEGNsYWltUmVzSW50ZXJuYWwEBQRhZGRyBQhhdmFpbFJlcwUJY2xhaW1Nb2RlBQtsYW5kQXNzZXRJZAENdXBJbmZyYUNvbW1vbgQMc2hvdWxkVXNlTWF0BmNhbGxlcg1wYXltZW50QW1vdW50C2xhbmRBc3NldElkBARhZGRyCQClCAEFBmNhbGxlcgQBYwkBFGNoZWNrQ2xhaW1Db25kaXRpb25zAwUEYWRkcgUTY2xhaW1Nb2RlV2hUaGVuRHVjawULbGFuZEFzc2V0SWQEBnBpZWNlcwkBD251bVBpZWNlc0J5U2l6ZQEJAJEDAggFAWMCXzMFC3JlY0xhbmRTaXplBAhpbmZyYUtleQkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBCAUBYwJfMgQIY3VyTGV2ZWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUIaW5mcmFLZXkAAAMJAGcCBQhjdXJMZXZlbAADCQACAQImQ3VycmVudGx5IG1heCBpbmZyYXN0cnVjdHVyZSBsZXZlbCA9IDMECG5ld0xldmVsCQBkAgUIY3VyTGV2ZWwAAQQEY29zdAkAawMFFUluZnJhVXBncmFkZUNvc3RTVXNkdAkAaAIFBnBpZWNlcwUIbmV3TGV2ZWwFBVNTSVpFAwMJAQEhAQUMc2hvdWxkVXNlTWF0CQECIT0CBQ1wYXltZW50QW1vdW50BQRjb3N0BwkAAgEJAKwCAgIbUGF5bWVudCBhdHRhY2hlZCBzaG91bGQgYmUgCQCkAwEFBGNvc3QEBWJwS2V5CQERa2V5QmFja3BhY2tCeUR1Y2sBCAUBYwJfMQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEFBWJwS2V5BAVtTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQGbmV3TWF0CQC5CQIJARFzdWJ0cmFjdE1hdGVyaWFscwMFDHNob3VsZFVzZU1hdAUFbUxpc3QJAGsDBRFJbmZyYVVwZ3JhZGVDb3N0UwkAaAIFBnBpZWNlcwUIbmV3TGV2ZWwFBVNTSVpFAgFfBAtjbGFpbVJlc3VsdAkBCGNsYWltQWxsBAUEYWRkcggFAWMCXzIFBnBpZWNlcwUTY2xhaW1Nb2RlV2hUaGVuRHVjawQGd2hEYXRhCAULY2xhaW1SZXN1bHQCXzUEBm9sZFZvbAkBF2dldFdhcmVob3VzZVRvdGFsVm9sdW1lAQkAkQMCBQZ3aERhdGEFC3doSWR4TGV2ZWxzBApuZXdWb2xEYXRhCQC5CQIJAMwIAgkAkQMCCQC1CQIJAJEDAgUGd2hEYXRhBQt3aElkeExldmVscwIBXwAACQDMCAIJAKQDAQUIbmV3TGV2ZWwFA25pbAIBXwQGbmV3Vm9sCQEXZ2V0V2FyZWhvdXNlVG90YWxWb2x1bWUBBQpuZXdWb2xEYXRhBARsb2Z0CQC1CQIJAJEDAgUGd2hEYXRhBQl3aElkeExPRlQCAV8ECm5ld0xvZnRTdHIJALkJAgkAzAgCCQCRAwIFBGxvZnQFCXZvbExvY2tlZAkAzAgCCQCRAwIFBGxvZnQFC3ZvbE9jY3VwaWVkCQDMCAIJAKQDAQkAZQIJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAUHdm9sRnJlZQUGbmV3Vm9sBQZvbGRWb2wJAMwIAgkApAMBBQZuZXdWb2wFA25pbAIBXwkAlAoCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFCGluZnJhS2V5BQhuZXdMZXZlbAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHmtleUluZnJhTGV2ZWxCeUFzc2V0SWRBbmRPd25lcgIIBQFjAl8yBQRhZGRyBQhuZXdMZXZlbAkAzAgCCQELU3RyaW5nRW50cnkCBQVicEtleQkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCCAULY2xhaW1SZXN1bHQCXzMFCGJwSWR4UmVzCQDMCAIFBm5ld01hdAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgkAzAgCCQELU3RyaW5nRW50cnkCCAULY2xhaW1SZXN1bHQCXzQJALkJAgkAzAgCBQpuZXdWb2xEYXRhCQDMCAIJAJEDAgUGd2hEYXRhBQh3aElkeFJlcwkAzAgCCQCRAwIFBndoRGF0YQUId2hJZHhNYXQJAMwIAgkAkQMCBQZ3aERhdGEFCXdoSWR4UHJvZAkAzAgCBQpuZXdMb2Z0U3RyBQNuaWwCAToFA25pbAgFC2NsYWltUmVzdWx0Al8xBQhuZXdMZXZlbAESYWN0aXZhdGVQcmVzYWxlQXJ0AgRhZGRyDWxhbmRBc3NldElkSW4EAWMJARRjaGVja0NsYWltQ29uZGl0aW9ucwMFBGFkZHIFE2NsYWltTW9kZVdoVGhlbkR1Y2sFDWxhbmRBc3NldElkSW4EC2xhbmRBc3NldElkCAUBYwJfMgQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCCAUBYwJfMwULcmVjTGFuZFNpemUEDWFjdGl2YXRpb25LZXkJASBrZXlMYW5kQXJ0U3RhdHVzQnlUeXBlQW5kQXNzZXRJZAIFCkFSVFBSRVNBTEUFC2xhbmRBc3NldElkAwkAZgIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUNYWN0aXZhdGlvbktleQAAAAAJAAIBAiVQcmVzYWxlIGFydGlmYWN0IGlzIGFscmVhZHkgYWN0aXZhdGVkAwkAZgIJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUBYwJfMwUKcmVjTGFuZE51bQUPUFJFU0FMRU5VTUxBTkRTCQACAQkArAICCQCsAgIJAKwCAgUKTEFORFBSRUZJWAIBIAULbGFuZEFzc2V0SWQCJSBpcyBub3QgZWxpZ2libGUgZm9yIHByZXNhbGUgYXJ0aWZhY3QEC2NsYWltUmVzdWx0CQEIY2xhaW1BbGwEBQRhZGRyBQtsYW5kQXNzZXRJZAUGcGllY2VzBRNjbGFpbU1vZGVXaFRoZW5EdWNrCQDNCAIJAM0IAgkAzQgCCQDNCAIIBQtjbGFpbVJlc3VsdAJfMQkBDEludGVnZXJFbnRyeQIFDWFjdGl2YXRpb25LZXkFBnBpZWNlcwkBDEludGVnZXJFbnRyeQIJASVrZXlMYW5kQXJ0U3RhdHVzQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKQVJUUFJFU0FMRQULbGFuZEFzc2V0SWQFBGFkZHIFBnBpZWNlcwkBC1N0cmluZ0VudHJ5AggFC2NsYWltUmVzdWx0Al8yCQC5CQIIBQtjbGFpbVJlc3VsdAJfMwIBOgkBC1N0cmluZ0VudHJ5AggFC2NsYWltUmVzdWx0Al80CQC5CQIIBQtjbGFpbVJlc3VsdAJfNQIBOgENbWVyZ2VJbnRlcm5hbAcLbmV3TGFuZFNpemUIbmV3TGV2ZWwHZm9ybXVsYQRhZGRyDGxhbmRBc3NldElkcwR0eElkB25lZWRNYXQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUEYWRkcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAoBCmNoZWNrTWVyZ2UCA2FjYwtsYW5kQXNzZXRJZAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAQJc2F2ZWRUaW1lCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ8IAQUHdGltZUtleQkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwkBAiE9AgUFb3duZXIFBGFkZHIJAAIBCQCsAgIFCkxBTkRQUkVGSVgCDSBpcyBub3QgeW91cnMEAWQJALUJAggFBWFzc2V0C2Rlc2NyaXB0aW9uAgFfBAljb250aW5lbnQJAJEDAgUBZAUMcmVjQ29udGluZW50AwMJAQIhPQIIBQNhY2MCXzMCAAkBAiE9AggFA2FjYwJfMwUJY29udGluZW50BwkAAgECLkxhbmRzIHNob3VsZCBiZSBvbiB0aGUgc2FtZSBjb250aW5lbnQgdG8gbWVyZ2UECGxhbmRTaXplCQCRAwIFAWQFC3JlY0xhbmRTaXplBAdzaXplc0luCAUDYWNjAl8xBAFpCQETdmFsdWVPckVycm9yTWVzc2FnZQIJALMJAgUHc2l6ZXNJbgUIbGFuZFNpemUCJ1lvdSBoYXZlbid0IHBhc3NlZCBhbGwgdGhlIGxhbmRzIG5lZWRlZAQIc2l6ZXNPdXQJAKwCAgkArwICBQdzaXplc0luBQFpCQCwAgIFB3NpemVzSW4JAGQCBQFpAAEEBnBpZWNlcwkBD251bVBpZWNlc0J5U2l6ZQEFCGxhbmRTaXplBARhcnRzCQBkAggFA2FjYwJfMgkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAAABAppbmZyYUxldmVsCQELdmFsdWVPckVsc2UCCQCfCAEJARZrZXlJbmZyYUxldmVsQnlBc3NldElkAQULbGFuZEFzc2V0SWQAAAQIcmVxTGV2ZWwEByRtYXRjaDAFCGxhbmRTaXplAwkAAAICAVMFByRtYXRjaDAAAwMJAAACAgFNBQckbWF0Y2gwAAQDCQAAAgIBTAUHJG1hdGNoMAAFAwkAAAICAlhMBQckbWF0Y2gwAAYJAAIBAhpPbmx5IFMsIE0sIEwsIFhMIGNhbiBtZXJnZQMJAQIhPQIFCmluZnJhTGV2ZWwFCHJlcUxldmVsCQACAQIiQWxsIGxhbmRzIHNob3VsZCBiZSBtYXhlZCB0byBtZXJnZQQHbGFuZE51bQkAkQMCBQFkBQpyZWNMYW5kTnVtBA10ZXJyYWluQ291bnRzCQENY291bnRUZXJyYWlucwEJAJEDAgUBZAULcmVjVGVycmFpbnMECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQlzYXZlZFRpbWUDCQBmAgAABQlkZWx0YVRpbWUJAAIBCQCsAgIJAKwCAgkArAICAiZTYXZlZCB0aW1lc3RhbXAgaXMgaW4gZnV0dXJlLCBzYXZlZCA9IAkApAMBBQlzYXZlZFRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQWZGFpbHlQcm9kdWN0aW9uQnlQaWVjZQkBDGFwcGx5Qm9udXNlcwIFC2xhbmRBc3NldElkBQZwaWVjZXMECWxhbmRJbmRleAkAaQIFBnBpZWNlcwUFU1NJWkUEBWJwUmVzCQEGYWRkUmVzBQkAtQkCCAUDYWNjAl80AgFfBQ10ZXJyYWluQ291bnRzBQlkZWx0YVRpbWUFCWxhbmRJbmRleAUWZGFpbHlQcm9kdWN0aW9uQnlQaWVjZQQFcHJvcHMJARl1cGRhdGVQcm9wb3J0aW9uc0ludGVybmFsBAkAtQkCCAUDYWNjAl82AgFfBQ10ZXJyYWluQ291bnRzBQlsYW5kSW5kZXgA////////////AQQFbGFuZHMIBQNhY2MCXzcEA2lkeAkAzwgCBQVsYW5kcwULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBBQNpZHgJAAIBCQCsAgICIFlvdXIgc3Rha2VkIGxhbmRzIGRvbid0IGNvbnRhaW4gBQtsYW5kQXNzZXRJZAQJY3VzdG9tS2V5CQEaa2V5TGFuZEFzc2V0SWRUb0N1c3RvbU5hbWUBBQtsYW5kQXNzZXRJZAQKY3VzdG9tTmFtZQkBC3ZhbHVlT3JFbHNlAgkAoggBBQljdXN0b21LZXkCAAkAmQoHBQhzaXplc091dAUEYXJ0cwUJY29udGluZW50BQVicFJlcwkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCAUDYWNjAl81CQELRGVsZXRlRW50cnkBCQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQELRGVsZXRlRW50cnkBCQEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkxBTkRQUkVGSVgFC2xhbmRBc3NldElkBQRhZGRyCQELRGVsZXRlRW50cnkBCQEQa2V5TGFuZFRvQXNzZXRJZAEFB2xhbmROdW0JAQtEZWxldGVFbnRyeQEJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAkBC0RlbGV0ZUVudHJ5AQkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAkBC0RlbGV0ZUVudHJ5AQkBHmtleUluZnJhTGV2ZWxCeUFzc2V0SWRBbmRPd25lcgIFC2xhbmRBc3NldElkBQRhZGRyCQELRGVsZXRlRW50cnkBCQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAkBC0RlbGV0ZUVudHJ5AQkBJWtleUxhbmRBcnRTdGF0dXNCeVR5cGVBc3NldElkQW5kT3duZXIDBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAUEYWRkcgkBC0RlbGV0ZUVudHJ5AQkBEWtleUxhbmROdW1Ub093bmVyAQUHbGFuZE51bQkBC0RlbGV0ZUVudHJ5AQkBEmtleVdhcmVob3VzZUJ5TGFuZAEFC2xhbmRBc3NldElkCQELRGVsZXRlRW50cnkBBQljdXN0b21LZXkJAQtEZWxldGVFbnRyeQEJARprZXlMYW5kQ3VzdG9tTmFtZVRvQXNzZXRJZAEFCmN1c3RvbU5hbWUJAQRCdXJuAgkA2QQBBQtsYW5kQXNzZXRJZAABBQVwcm9wcwkA0QgCBQVsYW5kcwkBBXZhbHVlAQUDaWR4BAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQHcHJvcFN0cgkBC3ZhbHVlT3JFbHNlAgkAoggBCQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAQIbGFuZHNLZXkJARVrZXlTdGFrZWRMYW5kc0J5T3duZXIBBQRhZGRyBAhsYW5kc1N0cgkAoggBBQhsYW5kc0tleQQHbGFuZHNJbgMJAQlpc0RlZmluZWQBBQhsYW5kc1N0cgkAvQkCCQEFdmFsdWUBBQhsYW5kc1N0cgIBXwUDbmlsBAFyCgACJGwFDGxhbmRBc3NldElkcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJkKBwUHZm9ybXVsYQAAAgAJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzBQNuaWwFB3Byb3BTdHIFB2xhbmRzSW4KAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCmNoZWNrTWVyZ2UCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFBAljb250aW5lbnQIBQFyAl8zBAxjb250aW5lbnRJZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAzwgCBQpjb250aW5lbnRzBQljb250aW5lbnQJAKwCAgITVW5rbm93biBjb250aW5lbnQ6IAUJY29udGluZW50BAh0ZXJyYWlucwkBC2dlblRlcnJhaW5zAgkBA2FicwEJAJ4DAQUEdHhJZAUMY29udGluZW50SWR4BAdmcmVlTnVtCQELdmFsdWVPckVsc2UCCQCfCAEJARJrZXlOZXh0RnJlZUxhbmROdW0ACQBkAgUPUFJFU0FMRU5VTUxBTkRTAAEECm5ld0xhbmROdW0JAKQDAQUHZnJlZU51bQQFaXNzdWUJAMIIBQkBB25mdE5hbWUCBQpuZXdMYW5kTnVtBQtuZXdMYW5kU2l6ZQkAuQkCCQDMCAIFCm5ld0xhbmROdW0JAMwIAgULbmV3TGFuZFNpemUJAMwIAgUIdGVycmFpbnMJAMwIAgUJY29udGluZW50BQNuaWwCAV8AAQAABwQHYXNzZXRJZAkAuAgBBQVpc3N1ZQQObmV3TGFuZEFzc2V0SWQJANgEAQUHYXNzZXRJZAQGbmV3TWF0CQC5CQIJARFzdWJ0cmFjdE1hdGVyaWFscwMJAGYCBQduZWVkTWF0AAAJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8FB25lZWRNYXQCAV8JAJQKAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIIBQFyAl81AwkAZgIJAJADAQgFAXICXzcAAAkBC1N0cmluZ0VudHJ5AgUIbGFuZHNLZXkJALsJAggFAXICXzcCAV8JAQtEZWxldGVFbnRyeQEFCGxhbmRzS2V5CQEMSW50ZWdlckVudHJ5AgkBEmtleU5leHRGcmVlTGFuZE51bQAJAGQCBQdmcmVlTnVtAAEFBWlzc3VlCQELU3RyaW5nRW50cnkCCQEQa2V5TGFuZFRvQXNzZXRJZAEFCm5ld0xhbmROdW0FDm5ld0xhbmRBc3NldElkCQELU3RyaW5nRW50cnkCCQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQUObmV3TGFuZEFzc2V0SWQFBGFkZHIJAQtTdHJpbmdFbnRyeQIJARFrZXlMYW5kTnVtVG9Pd25lcgEFCm5ld0xhbmROdW0FBGFkZHIJAQxJbnRlZ2VyRW50cnkCCQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQ5uZXdMYW5kQXNzZXRJZAgFAXICXzIJAQxJbnRlZ2VyRW50cnkCCQEla2V5TGFuZEFydFN0YXR1c0J5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkFSVFBSRVNBTEUFDm5ld0xhbmRBc3NldElkBQRhZGRyCAUBcgJfMgkBDEludGVnZXJFbnRyeQIJARZrZXlJbmZyYUxldmVsQnlBc3NldElkAQUObmV3TGFuZEFzc2V0SWQFCG5ld0xldmVsCQEMSW50ZWdlckVudHJ5AgkBHmtleUluZnJhTGV2ZWxCeUFzc2V0SWRBbmRPd25lcgIFDm5ld0xhbmRBc3NldElkBQRhZGRyBQhuZXdMZXZlbAkBC1N0cmluZ0VudHJ5AgUFYnBLZXkJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIIBQFyAl80CQDMCAIFBm5ld01hdAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgkBC1N0cmluZ0VudHJ5AgkBEWtleVJlc1Byb3BvcnRpb25zAAgFAXICXzYJAQtTdHJpbmdFbnRyeQIJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAkAuQkCCQDMCAIFCWNvbnRpbmVudAkAzAgCAgFMCQDMCAIFDm5ld0xhbmRBc3NldElkBQNuaWwCAV8JAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBGFkZHIAAQUHYXNzZXRJZAUObmV3TGFuZEFzc2V0SWQBA3MybQMEYWRkcgxsYW5kQXNzZXRJZHMEdHhJZAkBDW1lcmdlSW50ZXJuYWwHAgFNAAMCBFNTU1MFBGFkZHIFDGxhbmRBc3NldElkcwUEdHhJZAAAAQNtMmwFBGFkZHIMbGFuZEFzc2V0SWRzBHR4SWQMc2hvdWxkVXNlTWF0DXBheW1lbnRBbW91bnQEBGNvc3QJAGgCBRVJbmZyYVVwZ3JhZGVDb3N0U1VzZHQABAMDCQEBIQEFDHNob3VsZFVzZU1hdAkBAiE9AgUNcGF5bWVudEFtb3VudAUEY29zdAcJAAIBCQCsAgICG1BheW1lbnQgYXR0YWNoZWQgc2hvdWxkIGJlIAkApAMBBQRjb3N0CQENbWVyZ2VJbnRlcm5hbAcCAUwABAIDU01NBQRhZGRyBQxsYW5kQXNzZXRJZHMFBHR4SWQJAGgCBRFJbmZyYVVwZ3JhZGVDb3N0UwAEAQRsMnhsBQRhZGRyDGxhbmRBc3NldElkcwR0eElkDHNob3VsZFVzZU1hdA1wYXltZW50QW1vdW50BARjb3N0CQBoAgUVSW5mcmFVcGdyYWRlQ29zdFNVc2R0AC8DAwkBASEBBQxzaG91bGRVc2VNYXQJAQIhPQIFDXBheW1lbnRBbW91bnQFBGNvc3QHCQACAQkArAICAhtQYXltZW50IGF0dGFjaGVkIHNob3VsZCBiZSAJAKQDAQUEY29zdAkBDW1lcmdlSW50ZXJuYWwHAgJYTAAFAgVTU1NNTAUEYWRkcgUMbGFuZEFzc2V0SWRzBQR0eElkCQBoAgURSW5mcmFVcGdyYWRlQ29zdFMALwEGeGwyeHhsBQRhZGRyDGxhbmRBc3NldElkcwR0eElkDHNob3VsZFVzZU1hdA1wYXltZW50QW1vdW50BARjb3N0CQBoAgUVSW5mcmFVcGdyYWRlQ29zdFNVc2R0ADYDAwkBASEBBQxzaG91bGRVc2VNYXQJAQIhPQIFDXBheW1lbnRBbW91bnQFBGNvc3QHCQACAQkArAICAhtQYXltZW50IGF0dGFjaGVkIHNob3VsZCBiZSAJAKQDAQUEY29zdAkBDW1lcmdlSW50ZXJuYWwHAgNYWEwABgIDTFhMBQRhZGRyBQxsYW5kQXNzZXRJZHMFBHR4SWQJAGgCBRFJbmZyYVVwZ3JhZGVDb3N0UwA2AQttZXJnZUNvbW1vbgUMc2hvdWxkVXNlTWF0BGFkZHINcGF5bWVudEFtb3VudAxsYW5kQXNzZXRJZHMEdHhJZAQLbWVyZ2VSZXN1bHQEByRtYXRjaDAJAJADAQUMbGFuZEFzc2V0SWRzAwkAAAIABAUHJG1hdGNoMAkBA3MybQMFBGFkZHIFDGxhbmRBc3NldElkcwUEdHhJZAMJAAACAAMFByRtYXRjaDAJAQNtMmwFBQRhZGRyBQxsYW5kQXNzZXRJZHMFBHR4SWQFDHNob3VsZFVzZU1hdAUNcGF5bWVudEFtb3VudAMJAAACAAUFByRtYXRjaDAJAQRsMnhsBQUEYWRkcgUMbGFuZEFzc2V0SWRzBQR0eElkBQxzaG91bGRVc2VNYXQFDXBheW1lbnRBbW91bnQDCQAAAgACBQckbWF0Y2gwCQEGeGwyeHhsBQUEYWRkcgUMbGFuZEFzc2V0SWRzBQR0eElkBQxzaG91bGRVc2VNYXQFDXBheW1lbnRBbW91bnQJAAIBAg1Vbmtub3duIG1lcmdlBQttZXJnZVJlc3VsdAEGcHJvbG9nAQFpAwMJAQIhPQIIBQFpDG9yaWdpbkNhbGxlcgUMcmVzdENvbnRyYWN0CQELdmFsdWVPckVsc2UCCQCgCAEJAQprZXlCbG9ja2VkAAcHCQACAQIfQ29udHJhY3RzIGFyZSB1bmRlciBtYWludGVuYW5jZQkBC1N0cmluZ0VudHJ5AgkBEWtleUxhc3RUeElkQnlVc2VyAQkApQgBCAUBaQxvcmlnaW5DYWxsZXIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZB0BaQENY29uc3RydWN0b3JWMQEIcmVzdEFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBCnNldEJsb2NrZWQBCWlzQmxvY2tlZAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEXBlcm1pc3Npb24gZGVuaWVkCQDMCAIJAQxCb29sZWFuRW50cnkCCQEKa2V5QmxvY2tlZAAFCWlzQmxvY2tlZAUDbmlsAWkBCXN0YWtlTGFuZAAEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQHYXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIIBQNwbXQGYW1vdW50AAEJAAIBCQCsAgIJAKwCAgIETkZUIAUKTEFORFBSRUZJWAIkIHRva2VuIHNob3VsZCBiZSBhdHRhY2hlZCBhcyBwYXltZW50BAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkAwkBAiE9AggFBWFzc2V0Bmlzc3VlcgUEdGhpcwkAAgECF1Vua25vd24gaXNzdWVyIG9mIHRva2VuAwkBASEBCQEIY29udGFpbnMCCAUFYXNzZXQEbmFtZQUKTEFORFBSRUZJWAkAAgEJAKwCAgkArAICAglPbmx5IE5GVCAFCkxBTkRQUkVGSVgCFCB0b2tlbnMgYXJlIGFjY2VwdGVkBAtsYW5kTnVtU2l6ZQkAsAICCAUFYXNzZXQEbmFtZQAEBAdsYW5kTnVtAwkBCGNvbnRhaW5zAgULbGFuZE51bVNpemUCA1hYTAkAswICBQtsYW5kTnVtU2l6ZQADAwkBCGNvbnRhaW5zAgULbGFuZE51bVNpemUCAlhMCQCzAgIFC2xhbmROdW1TaXplAAIJALMCAgULbGFuZE51bVNpemUAAQMJAQEhAQkBCWlzRGVmaW5lZAEJALYJAQUHbGFuZE51bQkAAgEJAKwCAgIeQ2Fubm90IHBhcnNlIGxhbmQgbnVtYmVyIGZyb20gCAUFYXNzZXQEbmFtZQQLbGFuZEFzc2V0SWQJANgEAQUHYXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAMJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCEiBpcyBhbHJlYWR5IHN0YWtlZAQBZAkAtQkCCAUFYXNzZXQLZGVzY3JpcHRpb24CAV8EDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCBQFkBQtyZWNUZXJyYWlucwQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCBQFkBQtyZWNMYW5kU2l6ZQQFcHJvcHMJARF1cGRhdGVQcm9wb3J0aW9ucwMFDXRlcnJhaW5Db3VudHMJAGkCBQZwaWVjZXMFBVNTSVpFAAEECWFydFBpZWNlcwkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAAABAhsYW5kc1N0cgkAoggBCQEVa2V5U3Rha2VkTGFuZHNCeU93bmVyAQUHYWRkcmVzcwQFbGFuZHMDCQEJaXNEZWZpbmVkAQUIbGFuZHNTdHIJAL0JAgkBBXZhbHVlAQUIbGFuZHNTdHICAV8FA25pbAMJAQ9jb250YWluc0VsZW1lbnQCBQVsYW5kcwULbGFuZEFzc2V0SWQJAAIBCQCsAgICIllvdXIgc3Rha2VkIGxhbmRzIGFscmVhZHkgY29udGFpbiAFC2xhbmRBc3NldElkBAppbmZyYUxldmVsCQELdmFsdWVPckVsc2UCCQCfCAEJARZrZXlJbmZyYUxldmVsQnlBc3NldElkAQULbGFuZEFzc2V0SWQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKTEFORFBSRUZJWAULbGFuZEFzc2V0SWQFB2FkZHJlc3MIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQtTdHJpbmdFbnRyeQIJARVrZXlTdGFrZWRMYW5kc0J5T3duZXIBBQdhZGRyZXNzCQC7CQIJAM0IAgUFbGFuZHMFC2xhbmRBc3NldElkAgFfCQDMCAIJAQtTdHJpbmdFbnRyeQIJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAUHYWRkcmVzcwkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5TGFuZE51bVRvT3duZXIBBQdsYW5kTnVtBQdhZGRyZXNzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEla2V5TGFuZEFydFN0YXR1c0J5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkFSVFBSRVNBTEUFC2xhbmRBc3NldElkBQdhZGRyZXNzBQlhcnRQaWVjZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAR5rZXlJbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXICBQtsYW5kQXNzZXRJZAUHYWRkcmVzcwUKaW5mcmFMZXZlbAkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5UmVzUHJvcG9ydGlvbnMABQVwcm9wcwkAzAgCBQxwcm9sb2dBY3Rpb24FA25pbAFpAQt1bnN0YWtlTGFuZAENbGFuZEFzc2V0SWRJbgQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBARhZGRyCQClCAEIBQFpBmNhbGxlcgQBYwkBFGNoZWNrQ2xhaW1Db25kaXRpb25zAwUEYWRkcgUNY2xhaW1Nb2RlRHVjawUNbGFuZEFzc2V0SWRJbgQLbGFuZEFzc2V0SWQIBQFjAl8yBAhsYW5kc0tleQkBFWtleVN0YWtlZExhbmRzQnlPd25lcgEFBGFkZHIEDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCCAUBYwJfMwULcmVjVGVycmFpbnMEBnBpZWNlcwkBD251bVBpZWNlc0J5U2l6ZQEJAJEDAggFAWMCXzMFC3JlY0xhbmRTaXplBAVwcm9wcwkBEXVwZGF0ZVByb3BvcnRpb25zAwUNdGVycmFpbkNvdW50cwkAaQIFBnBpZWNlcwUFU1NJWkUA////////////AQQLY2xhaW1SZXN1bHQJAQhjbGFpbUFsbAQFBGFkZHIFC2xhbmRBc3NldElkBQZwaWVjZXMFDWNsYWltTW9kZUR1Y2sEBWxhbmRzCQC9CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUIbGFuZHNLZXkCAAIBXwQDaWR4CQDPCAIFBWxhbmRzBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEFA2lkeAkAAgEJAKwCAgIgWW91ciBzdGFrZWQgbGFuZHMgZG9uJ3QgY29udGFpbiAFC2xhbmRBc3NldElkBAF0CAkBBXZhbHVlAQkA7QcBBQZoZWlnaHQJdGltZXN0YW1wBAtyZWxlYXNlVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCBQtnb3ZDb250cmFjdAkBFWtleVVzZXJHd2xSZWxlYXNlVGltZQEFBGFkZHIAAAMJAGcCBQtyZWxlYXNlVGltZQUBdAkAAgEJAKwCAgI5WW91ciBnV0wgYXJlIHRha2luZyBwYXJ0IGluIHZvdGluZywgY2Fubm90IHVuc3Rha2UgdW50aWwgCQCkAwEFC3JlbGVhc2VUaW1lCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEFC2xhbmRBc3NldElkCQDMCAIJAQtEZWxldGVFbnRyeQEJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpMQU5EUFJFRklYBQtsYW5kQXNzZXRJZAUEYWRkcgkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5UmVzUHJvcG9ydGlvbnMABQVwcm9wcwkAzAgCCQELU3RyaW5nRW50cnkCCAULY2xhaW1SZXN1bHQCXzIJALkJAggFC2NsYWltUmVzdWx0Al8zAgE6CQDMCAIDCQBmAgkAkAMBBQVsYW5kcwABCQELU3RyaW5nRW50cnkCBQhsYW5kc0tleQkAuwkCCQDRCAIFBWxhbmRzCQEFdmFsdWUBBQNpZHgCAV8JAQtEZWxldGVFbnRyeQEFCGxhbmRzS2V5CQDMCAIFDHByb2xvZ0FjdGlvbgUDbmlsAWkBCXN0YWtlRHVjawAEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQHYXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIIBQNwbXQGYW1vdW50AAEJAAIBCQCsAgIJAKwCAgIETkZUIAUKRFVDS1BSRUZJWAIkIHRva2VuIHNob3VsZCBiZSBhdHRhY2hlZCBhcyBwYXltZW50BAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkAwMJAQIhPQIIBQVhc3NldAZpc3N1ZXIFDWluY3ViYXRvckFkZHIJAQIhPQIIBQVhc3NldAZpc3N1ZXIFC2JyZWVkZXJBZGRyBwkAAgEJAKwCAgkArAICAhJVbmtub3duIGlzc3VlciBvZiAFCkRVQ0tQUkVGSVgCBiB0b2tlbgMJAQEhAQkBCGNvbnRhaW5zAggFBWFzc2V0BG5hbWUFCkRVQ0tQUkVGSVgJAAIBCQCsAgIJAKwCAgIJT25seSBORlQgBQpEVUNLUFJFRklYAhQgdG9rZW5zIGFyZSBhY2NlcHRlZAQKYXNzZXRJZFN0cgkA2AQBBQdhc3NldElkBAd0aW1lS2V5CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFCmFzc2V0SWRTdHIDCQEJaXNEZWZpbmVkAQkAnwgBBQd0aW1lS2V5CQACAQkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAhIgaXMgYWxyZWFkeSBzdGFrZWQDCQEJaXNEZWZpbmVkAQkAoggBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQdhZGRyZXNzCQACAQkArAICAh1Zb3UgYWxyZWFkeSBzdGFrZWQgb25lIGR1Y2s6IAgFBWFzc2V0BG5hbWUEBmxvY0tleQkBD2tleUR1Y2tMb2NhdGlvbgEFCmFzc2V0SWRTdHIECGxvY2F0aW9uCQCiCAEFBmxvY0tleQQFYnBLZXkJARFrZXlCYWNrcGFja0J5RHVjawEFCmFzc2V0SWRTdHIECGJhY2twYWNrCQCiCAEFBWJwS2V5CQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkRVQ0tQUkVGSVgJANgEAQUHYXNzZXRJZAUHYWRkcmVzcwgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEGtleUR1Y2tJZFRvT3duZXIBBQphc3NldElkU3RyBQdhZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFB2FkZHJlc3MFCmFzc2V0SWRTdHIFA25pbAMJAQlpc0RlZmluZWQBBQhsb2NhdGlvbgUDbmlsCQDOCAIJAMwIAgkBC1N0cmluZ0VudHJ5AgUGbG9jS2V5BQ9ERUZBVUxUTE9DQVRJT04FA25pbAMJAQlpc0RlZmluZWQBBQhiYWNrcGFjawUDbmlsCQDNCAIJAM0IAgkAzAgCCQELU3RyaW5nRW50cnkCBQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoFA25pbAkBDEludGVnZXJFbnRyeQIJAQ1rZXlEdWNrSGVhbHRoAQUKYXNzZXRJZFN0cgBkBQxwcm9sb2dBY3Rpb24BaQELdW5zdGFrZUR1Y2sBCmFzc2V0SWRTdHIEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHYXNzZXRJZAkA2QQBBQphc3NldElkU3RyBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBCQDYBAEFB2Fzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkAwkBASEBCQEJaXNEZWZpbmVkAQkAoggBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQdhZGRyZXNzCQACAQkArAICCQCsAgICCVRoZSBkdWNrIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARBrZXlEdWNrSWRUb093bmVyAQkA2AQBBQdhc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQdhZGRyZXNzCQACAQIXU3Rha2VkIE5GVCBpcyBub3QgeW91cnMECWtleUhlYWx0aAkBDWtleUR1Y2tIZWFsdGgBBQphc3NldElkU3RyBAZoZWFsdGgJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJa2V5SGVhbHRoAGQDCQBmAgBkBQZoZWFsdGgJAAIBAiZQbGVhc2UgaGVhbCB5b3VyIGR1Y2sgYmVmb3JlIHVuc3Rha2luZwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUHYXNzZXRJZAkAzAgCCQELRGVsZXRlRW50cnkBBQd0aW1lS2V5CQDMCAIJAQtEZWxldGVFbnRyeQEFCWtleUhlYWx0aAkAzAgCCQELRGVsZXRlRW50cnkBCQEPa2V5RHVja0xvY2F0aW9uAQUKYXNzZXRJZFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEQa2V5RHVja0lkVG9Pd25lcgEFCmFzc2V0SWRTdHIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpEVUNLUFJFRklYBQphc3NldElkU3RyBQdhZGRyZXNzCQDMCAIJAQtEZWxldGVFbnRyeQEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFB2FkZHJlc3MJAMwIAgUMcHJvbG9nQWN0aW9uBQNuaWwBaQEIY2xhaW1SZXMCBmFtb3VudA5sYW5kQXNzZXRJZFN0cgQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBARhZGRyCQClCAEIBQFpDG9yaWdpbkNhbGxlcgQGcmVzdWx0CQEQY2xhaW1SZXNJbnRlcm5hbAQFBGFkZHIFBmFtb3VudAUNY2xhaW1Nb2RlRHVjawUObGFuZEFzc2V0SWRTdHIJAJQKAgkAzQgCCQDNCAIJAM0IAggFBnJlc3VsdAJfMQkBC1N0cmluZ0VudHJ5AggFBnJlc3VsdAJfMgkAuQkCCAUGcmVzdWx0Al8zAgE6CQELU3RyaW5nRW50cnkCCAUGcmVzdWx0Al80CQC5CQIIBQZyZXN1bHQCXzUCAToFDHByb2xvZ0FjdGlvbgkAkQMCCAUGcmVzdWx0Al8zBQhicElkeFJlcwFpAQxjbGFpbVJlc1RvV0gCBmFtb3VudA5sYW5kQXNzZXRJZFN0cgQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBARhZGRyCQClCAEIBQFpDG9yaWdpbkNhbGxlcgQGcmVzdWx0CQEQY2xhaW1SZXNJbnRlcm5hbAQFBGFkZHIFBmFtb3VudAULY2xhaW1Nb2RlV2gFDmxhbmRBc3NldElkU3RyCQCUCgIJAM0IAgkAzQgCCQDNCAIIBQZyZXN1bHQCXzEJAQtTdHJpbmdFbnRyeQIIBQZyZXN1bHQCXzIJALkJAggFBnJlc3VsdAJfMwIBOgkBC1N0cmluZ0VudHJ5AggFBnJlc3VsdAJfNAkAuQkCCAUGcmVzdWx0Al81AgE6BQxwcm9sb2dBY3Rpb24JAJEDAggFBnJlc3VsdAJfNQUId2hJZHhSZXMBaQEGZmxpZ2h0AgdtZXNzYWdlA3NpZwQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQEhAQkAxBMDBQdtZXNzYWdlBQNzaWcFA3B1YgkAAgECGHNpZ25hdHVyZSBkb2VzIG5vdCBtYXRjaAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAVwYXJ0cwkAtQkCCQCwCQEFB21lc3NhZ2UCATsECWZsaWdodExvZwkAtQkCCQCRAwIFBXBhcnRzAAACAXwEAmhwCQC1CQIJAJEDAgUJZmxpZ2h0TG9nBQhmbEhlYWx0aAIBXwQFY3VySFAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJocAAABAVuZXdIUAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmhwAAEEC25ld0xvY1R4VmVyCQC1CQIJAJEDAgUFcGFydHMAAQIBOgQLbmV3TG9jYXRpb24JAJEDAgULbmV3TG9jVHhWZXIAAAQEdGltZQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWZsaWdodExvZwULZmxUaW1lc3RhbXADAwkAZgIFBHRpbWUJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAURRklWRU1JTlVURVNNSUxMSVMGCQBmAgkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBRFGSVZFTUlOVVRFU01JTExJUwUEdGltZQkAAgECEnNpZ25hdHVyZSBvdXRkYXRlZAQJdHhGcm9tTXNnCQCRAwIFC25ld0xvY1R4VmVyAAEEBmxhc3RUeAkBC3ZhbHVlT3JFbHNlAgkAoggBCQERa2V5TGFzdFR4SWRCeVVzZXIBCQClCAEIBQFpDG9yaWdpbkNhbGxlcgIAAwkBAiE9AgUGbGFzdFR4BQl0eEZyb21Nc2cJAAIBCQCsAgIJAKwCAgkArAICAh5UeCBpZHMgZG9uJ3QgbWF0Y2ghIEluIHN0YXRlOiAFBmxhc3RUeAIKLCBpbiBtc2c6IAUJdHhGcm9tTXNnBAh1c2VyQWRkcgkApQgBCAUBaQZjYWxsZXIEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUIdXNlckFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQECWtleUhlYWx0aAkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAQMb2xkRnJvbVN0YXRlCQELdmFsdWVPckVsc2UCCQCfCAEFCWtleUhlYWx0aABkAwkBAiE9AgUMb2xkRnJvbVN0YXRlBQVjdXJIUAkAAgEJAKwCAgkArAICCQCsAgICCm9sZEhlYWx0aD0JAKQDAQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAIvIGZyb20gc3RhdGUgZG9lcyBub3QgbWF0Y2ggb25lIGZyb20gZmxpZ2h0IGxvZz0JAKQDAQUFY3VySFADCQBnAgAABQVjdXJIUAkAAgECHllvdSBjYW4ndCBmbHkgd2l0aCB6ZXJvIGhlYWx0aAQGbG9jS2V5CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCiCAEFBmxvY0tleQUPREVGQVVMVExPQ0FUSU9OAwkAAAIFC25ld0xvY2F0aW9uBQtjdXJMb2NhdGlvbgkAAgECIllvdSBjYW4ndCBmbHkgdG8gdGhlIHNhbWUgbG9jYXRpb24EBWJvbnVzAwkAZgIJAJADAQUJZmxpZ2h0TG9nBQdmbEJvbnVzCQCRAwIFCWZsaWdodExvZwUHZmxCb251cwIABApzZW50QW1vdW50AwMJAGYCBQVuZXdIUAAACQAAAgUFYm9udXMCASQHCQEFYXNJbnQBCQD8BwQFDHJlc3RDb250cmFjdAINc2VuZFVzZHRQcml6ZQkAzAgCBQh1c2VyQWRkcgUDbmlsBQNuaWwAAAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmxvY0tleQMJAGYCBQVuZXdIUAAABQtuZXdMb2NhdGlvbgULY3VyTG9jYXRpb24JAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aAUFbmV3SFAJAMwIAgUMcHJvbG9nQWN0aW9uBQNuaWwFCnNlbnRBbW91bnQBaQEJc2V0SGVhbHRoAgZoZWFsdGgLZHVja0Fzc2V0SWQEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDAwkAZgIAAAUGaGVhbHRoBgkAZgIFBmhlYWx0aABkCQACAQIaSFAgc2hvdWxkIGJlIHdpdGhpbiAwLi4xMDAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQ1rZXlEdWNrSGVhbHRoAQULZHVja0Fzc2V0SWQFBmhlYWx0aAkAzAgCBQxwcm9sb2dBY3Rpb24FA25pbAFpAQRoZWFsAwpxdWFudGl0eUwxCnF1YW50aXR5TDIKcXVhbnRpdHlMMwQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMDAwkAZgIAAAUKcXVhbnRpdHlMMQYJAGYCAAAFCnF1YW50aXR5TDIGCQBmAgAABQpxdWFudGl0eUwzCQACAQIbUXVhbnRpdHkgY2Fubm90IGJlIG5lZ2F0aXZlBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBANxdHMJAMwIAgUKcXVhbnRpdHlMMQkAzAgCBQpxdWFudGl0eUwyCQDMCAIFCnF1YW50aXR5TDMFA25pbAQJa2V5SGVhbHRoCQENa2V5RHVja0hlYWx0aAEFC2R1Y2tBc3NldElkBAlvbGRIZWFsdGgJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJa2V5SGVhbHRoAGQDCQBnAgUJb2xkSGVhbHRoBQVNQVhIUAkAAgEJAKwCAgkArAICAg9IUCBzaG91bGQgYmUgPCAJAKQDAQUFTUFYSFACCCB0byBoZWFsBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQIcHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8KAQtpdGVyYXRlUHJvZAIDYWNjC2lnbm9yZWRJdGVtBAFuCAUDYWNjAl8yBAF4AwkAZgIJAJADAQUIcHJvZExpc3QFAW4JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhwcm9kTGlzdAUBbgAAAwkAZgIAAwUBbgQBcQkAkQMCBQNxdHMFAW4DCQBmAgUBcQUBeAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQCkAwEFAXgCBCBvZiAJAJEDAgUJcHJvZFR5cGVzBQFuCQCVCgMJAM0IAggFA2FjYwJfMQkApAMBCQBlAgUBeAUBcQkAZAIFAW4AAQkAZAIIBQNhY2MCXzMJAGgCCQCRAwIFCG1lZEtpdEhwBQFuBQFxCQCVCgMJAM0IAggFA2FjYwJfMQkApAMBBQF4CQBkAgUBbgABCAUDYWNjAl8zBAZyZXN1bHQKAAIkbAUQcHJvZHVjdGlvbk1hdHJpeAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwUDbmlsAAAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQELaXRlcmF0ZVByb2QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgQJbmV3SGVhbHRoCQCXAwEJAMwIAgUFTUFYSFAJAMwIAgkAZAIFCW9sZEhlYWx0aAgFBnJlc3VsdAJfMwUDbmlsCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aAUJbmV3SGVhbHRoCQDMCAIJAQtTdHJpbmdFbnRyeQIFBWJwS2V5CQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAkAzAgCCQC5CQIIBQZyZXN1bHQCXzECAV8FA25pbAIBOgkAzAgCBQxwcm9sb2dBY3Rpb24FA25pbAUJbmV3SGVhbHRoAWkBBmhlYWxFUwAEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhpBbGxvd2VkIFVTRFQgcGF5bWVudCBvbmx5IQQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQJa2V5SGVhbHRoCQENa2V5RHVja0hlYWx0aAEFC2R1Y2tBc3NldElkBAlvbGRIZWFsdGgJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJa2V5SGVhbHRoAGQDCQBmAgUJb2xkSGVhbHRoAAAJAAIBAihIUCBzaG91bGQgYmUgMCB0byBjYWxsIEVtZXJnZW5jeSBTZXJ2aWNlBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQIcHJvZExpc3QDCQAAAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAV8EDW1lZEtpdEFtb3VudDEDCQBmAgkAkAMBBQhwcm9kTGlzdAAACQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUIcHJvZExpc3QAAAAABA1tZWRLaXRBbW91bnQyAwkAZgIJAJADAQUIcHJvZExpc3QAAQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCHByb2RMaXN0AAEAAAQNbWVkS2l0QW1vdW50MwMJAGYCCQCQAwEFCHByb2RMaXN0AAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhwcm9kTGlzdAACAAADAwMJAGYCBQ1tZWRLaXRBbW91bnQxAAAGCQBmAgUNbWVkS2l0QW1vdW50MgAABgkAZgIFDW1lZEtpdEFtb3VudDMAAAkAAgECH1lvdSBoYXZlIHRvIHVzZSBvd24gTWVkaWNhbCBLaXQECGV4aXN0U3RyCQCdCAIFD2Vjb25vbXlDb250cmFjdAkBDmtleUVzV2FyZWhvdXNlAAQMZXhpc3RBbW91bnRzAwkBCWlzRGVmaW5lZAEFCGV4aXN0U3RyCQC1CQIJAQV2YWx1ZQEFCGV4aXN0U3RyAgFfBQNuaWwEC2V4aXN0QW1vdW50AwkAZgIJAJADAQUMZXhpc3RBbW91bnRzAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQxleGlzdEFtb3VudHMAAAAAAwkAZwIAAAULZXhpc3RBbW91bnQJAAIBAjlUaGVyZSBhcmUgbm8gTWVkaWNhbCBLaXRzIEwxIGF0IEVtZXJnZW5jeSBTZXJ2aWNlIHN0b3JhZ2UECW5ld0hlYWx0aAkAZAIFCW9sZEhlYWx0aAkAkQMCBQhtZWRLaXRIcAAABAVuZXdFUwkAuQkCCQDMCAIJAKQDAQkAZQIFC2V4aXN0QW1vdW50AAEJANEIAgUMZXhpc3RBbW91bnRzAAACAV8EBnJlY2lwZQkAtQkCCQCRAwIFEHByb2R1Y3Rpb25NYXRyaXgAAAIBXwQIdG90YWxNYXQJARJnZXRSZWNpcGVNYXRlcmlhbHMBBQZyZWNpcGUECHBhY2tTaXplCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlBRFyZWNpcGVJZHhQYWNrc2l6ZQQJc2VsbFByaWNlCQBrAwkAaAIFCHRvdGFsTWF0BQpFU1NFTExDT0VGBRBSRVNPVVJDRVBSSUNFTUlOCQBoAgAKBQhwYWNrU2l6ZQMJAQIhPQIIBQNwbXQGYW1vdW50BQlzZWxsUHJpY2UJAAIBCQCsAgICG1BheW1lbnQgYXR0YWNoZWQgc2hvdWxkIGJlIAkApAMBBQlzZWxsUHJpY2UEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9lY29ub215Q29udHJhY3QCD3VwZGF0ZUVzU3RvcmFnZQkAzAgCBQVuZXdFUwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQt1c2R0QXNzZXRJZAUJc2VsbFByaWNlBQNuaWwJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa2V5SGVhbHRoBQluZXdIZWFsdGgJAMwIAgUMcHJvbG9nQWN0aW9uBQNuaWwFBnJlc3VsdAFpAQ51cGRhdGVCYWNrcGFjawILZHVja0Fzc2V0SWQHbmV3UGFjawQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIIBQFpBmNhbGxlcgUPZWNvbm9teUNvbnRyYWN0CQACAQIRcGVybWlzc2lvbiBkZW5pZWQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAUHbmV3UGFjawkAzAgCBQxwcm9sb2dBY3Rpb24FA25pbAUHbmV3UGFjawFpAQhidXlTTGFuZAAEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhpBbGxvd2VkIFVTRFQgcGF5bWVudCBvbmx5IQMJAQIhPQIIBQNwbXQGYW1vdW50BQdFWFBVU0RUCQACAQkArAICAhtQYXltZW50IGF0dGFjaGVkIHNob3VsZCBiZSAJAKQDAQUHRVhQVVNEVAQGcmVzdWx0CQESZXhwZWRpdGlvbkludGVybmFsAggFAWkGY2FsbGVyCAUBaQ10cmFuc2FjdGlvbklkCQCUCgIJAM0IAgkAzQgCCAUGcmVzdWx0Al8xCQEOU2NyaXB0VHJhbnNmZXIDBQ9lY29ub215Q29udHJhY3QIBQNwbXQGYW1vdW50BQt1c2R0QXNzZXRJZAUMcHJvbG9nQWN0aW9uCAgFBnJlc3VsdAJfMgJfMQFpAQpleHBlZGl0aW9uAgdtZXNzYWdlA3NpZwQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAZyZXN1bHQJARBleHBlZGl0aW9uQ29tbW9uBQYIBQFpBmNhbGxlcggFAWkNdHJhbnNhY3Rpb25JZAUHbWVzc2FnZQUDc2lnCQCUCgIJAM0IAggFBnJlc3VsdAJfMQUMcHJvbG9nQWN0aW9uCQCUCgIIBQZyZXN1bHQCXzIIBQZyZXN1bHQCXzMBaQEMdXBncmFkZUluZnJhAQtsYW5kQXNzZXRJZAQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAZyZXN1bHQJAQ11cEluZnJhQ29tbW9uBAYIBQFpBmNhbGxlcgAABQtsYW5kQXNzZXRJZAkAlAoCCQDNCAIIBQZyZXN1bHQCXzEFDHByb2xvZ0FjdGlvbggFBnJlc3VsdAJfMgFpARB1cGdyYWRlSW5mcmFVc2R0AQtsYW5kQXNzZXRJZAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBAxwcm9sb2dBY3Rpb24JAQZwcm9sb2cBBQFpAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIcRXhhY3RseSBvbmUgcGF5bWVudCByZXF1aXJlZAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAADCQECIT0CCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQIaQWxsb3dlZCBVU0RUIHBheW1lbnQgb25seSEEBnJlc3VsdAkBDXVwSW5mcmFDb21tb24EBwgFAWkGY2FsbGVyCAUDcG10BmFtb3VudAULbGFuZEFzc2V0SWQJAJQKAgkAzQgCCQDNCAIIBQZyZXN1bHQCXzEJAQ5TY3JpcHRUcmFuc2ZlcgMFD2Vjb25vbXlDb250cmFjdAgFA3BtdAZhbW91bnQFC3VzZHRBc3NldElkBQxwcm9sb2dBY3Rpb24IBQZyZXN1bHQCXzIBaQEQYWN0aXZhdGVBcnRpZmFjdAIHYXJ0TmFtZQtsYW5kQXNzZXRJZAQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAZyZXN1bHQEByRtYXRjaDAFB2FydE5hbWUDCQAAAgIHUFJFU0FMRQUHJG1hdGNoMAkBEmFjdGl2YXRlUHJlc2FsZUFydAIJAKUIAQgFAWkGY2FsbGVyBQtsYW5kQXNzZXRJZAkAAgECEFVua25vd24gYXJ0aWZhY3QJAM0IAgUGcmVzdWx0BQxwcm9sb2dBY3Rpb24BaQEKbWVyZ2VMYW5kcwEMbGFuZEFzc2V0SWRzBAxwcm9sb2dBY3Rpb24JAQZwcm9sb2cBBQFpAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEBnJlc3VsdAkBC21lcmdlQ29tbW9uBQYJAKUIAQgFAWkGY2FsbGVyAAAFDGxhbmRBc3NldElkcwgFAWkNdHJhbnNhY3Rpb25JZAkAlAoCCQDNCAIIBQZyZXN1bHQCXzEFDHByb2xvZ0FjdGlvbggFBnJlc3VsdAJfMgFpAQ5tZXJnZUxhbmRzVXNkdAEMbGFuZEFzc2V0SWRzBAxwcm9sb2dBY3Rpb24JAQZwcm9sb2cBBQFpAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIcRXhhY3RseSBvbmUgcGF5bWVudCByZXF1aXJlZAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAADCQECIT0CCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQIaQWxsb3dlZCBVU0RUIHBheW1lbnQgb25seSEEBnJlc3VsdAkBC21lcmdlQ29tbW9uBQcJAKUIAQgFAWkGY2FsbGVyCAUDcG10BmFtb3VudAUMbGFuZEFzc2V0SWRzCAUBaQ10cmFuc2FjdGlvbklkCQCUCgIJAM0IAgkAzQgCCAUGcmVzdWx0Al8xCQEOU2NyaXB0VHJhbnNmZXIDBQ9lY29ub215Q29udHJhY3QIBQNwbXQGYW1vdW50BQt1c2R0QXNzZXRJZAUMcHJvbG9nQWN0aW9uCAUGcmVzdWx0Al8yAWkBDWNhcmdvRXhjaGFuZ2UCDGNhcmdvTGlzdFN0cgtsYW5kQXNzZXRJZAQMcHJvbG9nQWN0aW9uCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBApjYXJnb1BhcnRzCQC8CQIFDGNhcmdvTGlzdFN0cgIBOgQEYWRkcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQDCQEBIQEJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkJAAIBCQCsAgIIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwkBAiE9AgUFb3duZXIFBGFkZHIJAAIBCQCsAgIFCkxBTkRQUkVGSVgCDSBpcyBub3QgeW91cnMECWxhbmRJbmRleAkAaQIJAQ9udW1QaWVjZXNCeVNpemUBCQCRAwIJALUJAggFBWFzc2V0C2Rlc2NyaXB0aW9uAgFfBQtyZWNMYW5kU2l6ZQUFU1NJWkUECmluZnJhTGV2ZWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFBGFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCiCAEJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OBANsb2MJALUJAgkBBXZhbHVlAQULY3VyTG9jYXRpb24CAV8DCQECIT0CCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIBTAkAAgEJAKwCAgkArAICAhZEdWNrIGxvY2F0aW9uIHR5cGUgaXMgCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIRLCBidXQgc2hvdWxkIGJlIEwDCQECIT0CCQCRAwIFA2xvYwUIbG9jSWR4SWQFC2xhbmRBc3NldElkCQACAQkArAICAhtEdWNrIHNob3VsZCBiZSBvbiB0aGUgbGFuZCAFC2xhbmRBc3NldElkBAV3aEtleQkBEmtleVdhcmVob3VzZUJ5TGFuZAEFC2xhbmRBc3NldElkBAljdXJyZW50V2gJAQxnZXRXYXJlaG91c2UDBQV3aEtleQUJbGFuZEluZGV4BQppbmZyYUxldmVsBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQGcmVzdWx0CQEJbW92ZVN0dWZmAwUKY2FyZ29QYXJ0cwUJY3VycmVudFdoBQtjdXJyZW50UGFjawQEbG9mdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUJd2hJZHhMT0ZUAgFfBAVsb2Z0TwkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRsb2Z0BQt2b2xPY2N1cGllZAgFBnJlc3VsdAJfNwQFbG9mdEYJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEbG9mdAUHdm9sRnJlZQgFBnJlc3VsdAJfNwkAzAgCCQELU3RyaW5nRW50cnkCBQVicEtleQkAugkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAggFBnJlc3VsdAJfNAkAzAgCCAUGcmVzdWx0Al81CQDMCAIIBQZyZXN1bHQCXzYFA25pbAIBOgkAzAgCCQELU3RyaW5nRW50cnkCBQV3aEtleQkAugkCCQDMCAIJAJEDAgUJY3VycmVudFdoBQt3aElkeExldmVscwkAzAgCCAUGcmVzdWx0Al8xCQDMCAIIBQZyZXN1bHQCXzIJAMwIAggFBnJlc3VsdAJfMwkAzAgCCQC5CQIJAMwIAgkAkQMCBQRsb2Z0BQl2b2xMb2NrZWQJAMwIAgkApAMBBQVsb2Z0TwkAzAgCCQCkAwEFBWxvZnRGCQDMCAIJAJEDAgUEbG9mdAUIdm9sVG90YWwFA25pbAIBXwUDbmlsAgE6CQDMCAIFDHByb2xvZ0FjdGlvbgUDbmlsAWkBDXNhdmVXYXJlaG91c2UCBXdoU3RyC2xhbmRBc3NldElkBAxwcm9sb2dBY3Rpb24JAQZwcm9sb2cBBQFpAwkBAiE9AggFAWkGY2FsbGVyBQ9lY29ub215Q29udHJhY3QJAAIBAg1BY2Nlc3MgZGVuaWVkBAV3aEtleQkBEmtleVdhcmVob3VzZUJ5TGFuZAEFC2xhbmRBc3NldElkBAJ3aAkAvAkCBQV3aFN0cgIBOgMJAQIhPQIJAJADAQUCd2gABQkAAgECMHdhcmVob3VzZSBzdHJpbmcgc2hvdWxkIGNvbnRhaW4gNCAnOicgc2VwYXJhdG9ycwQFbG9mdEwJAJEDAgkAtQkCCQCRAwIFAndoBQl3aElkeExPRlQCAV8FCXZvbExvY2tlZAQFbG9mdE8JARdnZXRXYXJlaG91c2VPY2N1cGllZFZvbAEFAndoBAVsb2Z0VAkBF2dldFdhcmVob3VzZVRvdGFsVm9sdW1lAQkAkQMCBQJ3aAULd2hJZHhMZXZlbHMEBWxvZnRGCQBlAgkAZQIFBWxvZnRUCQENcGFyc2VJbnRWYWx1ZQEFBWxvZnRMBQVsb2Z0TwQIbmV3V2hTdHIJALoJAgkAzAgCCQCRAwIFAndoBQt3aElkeExldmVscwkAzAgCCQCRAwIFAndoBQh3aElkeFJlcwkAzAgCCQCRAwIFAndoBQh3aElkeE1hdAkAzAgCCQCRAwIFAndoBQl3aElkeFByb2QJAMwIAgkAuQkCCQDMCAIFBWxvZnRMCQDMCAIJAKQDAQUFbG9mdE8JAMwIAgkApAMBBQVsb2Z0RgkAzAgCCQCkAwEFBWxvZnRUBQNuaWwCAV8FA25pbAIBOgkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIFBXdoS2V5BQhuZXdXaFN0cgkAzAgCBQxwcm9sb2dBY3Rpb24FA25pbAUIbmV3V2hTdHIBaQESZml4V2FyZWhvdXNlRm9ybWF0AQtsYW5kQXNzZXRJZAMJAQIhPQIIBQFpBmNhbGxlcgUMcmVzdENvbnRyYWN0CQACAQINQWNjZXNzIGRlbmllZAQFd2hLZXkJARJrZXlXYXJlaG91c2VCeUxhbmQBBQtsYW5kQXNzZXRJZAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAQJbGFuZEluZGV4CQBpAgkBD251bVBpZWNlc0J5U2l6ZQEJAJEDAgkAtQkCCAUFYXNzZXQLZGVzY3JpcHRpb24CAV8FC3JlY0xhbmRTaXplBQVTU0laRQQKaW5mcmFMZXZlbAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEFC2xhbmRBc3NldElkAAAEAndoCQEMZ2V0V2FyZWhvdXNlAwUFd2hLZXkFCWxhbmRJbmRleAUKaW5mcmFMZXZlbAQFbG9mdEwJAQVhc0ludAEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhpyZWNhbGNMb2NrZWRWb2x1bWVSRUFET05MWQkAzAgCBQtsYW5kQXNzZXRJZAkAzAgCBQJ3aAUDbmlsBQNuaWwEBWxvZnRPCQEXZ2V0V2FyZWhvdXNlT2NjdXBpZWRWb2wBBQJ3aAQFbG9mdFQJARdnZXRXYXJlaG91c2VUb3RhbFZvbHVtZQEJAJEDAgUCd2gFC3doSWR4TGV2ZWxzBAVsb2Z0RgkAZQIJAGUCBQVsb2Z0VAUFbG9mdEwFBWxvZnRPBAhuZXdXaFN0cgkAugkCCQDMCAIJAJEDAgUCd2gFC3doSWR4TGV2ZWxzCQDMCAIJAJEDAgUCd2gFCHdoSWR4UmVzCQDMCAIJAJEDAgUCd2gFCHdoSWR4TWF0CQDMCAIJAJEDAgUCd2gFCXdoSWR4UHJvZAkAzAgCCQC5CQIJAMwIAgkApAMBBQVsb2Z0TAkAzAgCCQCkAwEFBWxvZnRPCQDMCAIJAKQDAQUFbG9mdEYJAMwIAgkApAMBBQVsb2Z0VAUDbmlsAgFfBQNuaWwCAToJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQV3aEtleQUIbmV3V2hTdHIFA25pbAUIbmV3V2hTdHIBaQENc2V0Q3VzdG9tTmFtZQMHYXNzZXRJZApjdXN0b21OYW1lBHR5cGUEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhpBbGxvd2VkIFVTRFQgcGF5bWVudCBvbmx5IQMJAQIhPQIIBQNwbXQGYW1vdW50BQxSRU5BTUlOR0NPU1QJAAIBCQCsAgICElBheW1lbnQgc2hvdWxkIGJlIAkApAMBBQxSRU5BTUlOR0NPU1QDCQEIY29udGFpbnMCBQpjdXN0b21OYW1lAgJfXwkAAgEJAKwCAgIeTmFtZSBzaG91bGQgbm90IGNvbnRhaW4gJ19fJzogBQpjdXN0b21OYW1lAwkAZgIJALECAQUKY3VzdG9tTmFtZQUKTUFYTkFNRUxFTgkAAgEJAKwCAgIZTmFtZSB0b28gbG9uZywgbWF4TGVuZ3RoPQkApAMBBQpNQVhOQU1FTEVOBARhZGRyCQClCAEIBQFpDG9yaWdpbkNhbGxlcgQHYWN0aW9ucwQHJG1hdGNoMAUEdHlwZQMJAAACAgdBQ0NPVU5UBQckbWF0Y2gwBApyZXZlcnNlS2V5CQEWa2V5Q3VzdG9tTmFtZVRvQWRkcmVzcwEFCmN1c3RvbU5hbWUECW5hbWVPd25lcgkAoggBBQpyZXZlcnNlS2V5AwkBCWlzRGVmaW5lZAEFCW5hbWVPd25lcgkAAgEJAKwCAgIZTmFtZSBhbHJlYWR5IHJlZ2lzdGVyZWQ6IAUKY3VzdG9tTmFtZQQNYWRkclRvTmFtZUtleQkBFmtleUFkZHJlc3NUb0N1c3RvbU5hbWUBBQRhZGRyBAdvbGROYW1lCQCiCAEFDWFkZHJUb05hbWVLZXkEB2ZyZWVPbGQDCQEJaXNEZWZpbmVkAQUHb2xkTmFtZQkAzAgCCQELRGVsZXRlRW50cnkBCQEWa2V5Q3VzdG9tTmFtZVRvQWRkcmVzcwEJAQV2YWx1ZQEFB29sZE5hbWUFA25pbAUDbmlsCQDNCAIJAM0IAgUHZnJlZU9sZAkBC1N0cmluZ0VudHJ5AgUNYWRkclRvTmFtZUtleQUKY3VzdG9tTmFtZQkBC1N0cmluZ0VudHJ5AgUKcmV2ZXJzZUtleQUEYWRkcgMJAAACAgRMQU5EBQckbWF0Y2gwBAVhc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFB2Fzc2V0SWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQUHYXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJ8IAQUHdGltZUtleQkAAgEJAKwCAggFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQdhc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQRhZGRyCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBApyZXZlcnNlS2V5CQEaa2V5TGFuZEN1c3RvbU5hbWVUb0Fzc2V0SWQBBQpjdXN0b21OYW1lBAluYW1lT3duZXIJAKIIAQUKcmV2ZXJzZUtleQMJAQlpc0RlZmluZWQBBQluYW1lT3duZXIJAAIBCQCsAgICGU5hbWUgYWxyZWFkeSByZWdpc3RlcmVkOiAFCmN1c3RvbU5hbWUEDmFzc2V0VG9OYW1lS2V5CQEaa2V5TGFuZEFzc2V0SWRUb0N1c3RvbU5hbWUBBQdhc3NldElkBAdvbGROYW1lCQCiCAEFDmFzc2V0VG9OYW1lS2V5BAdmcmVlT2xkAwkBCWlzRGVmaW5lZAEFB29sZE5hbWUJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBGmtleUxhbmRDdXN0b21OYW1lVG9Bc3NldElkAQkBBXZhbHVlAQUHb2xkTmFtZQUDbmlsBQNuaWwJAM0IAgkAzQgCBQdmcmVlT2xkCQELU3RyaW5nRW50cnkCBQ5hc3NldFRvTmFtZUtleQUKY3VzdG9tTmFtZQkBC1N0cmluZ0VudHJ5AgUKcmV2ZXJzZUtleQUHYXNzZXRJZAMJAAACAgREVUNLBQckbWF0Y2gwBAVhc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFB2Fzc2V0SWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQUHYXNzZXRJZAMDCQEBIQEJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkGCQEBIQEJAQlpc0RlZmluZWQBCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFBGFkZHIJAAIBCQCsAgIIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEQa2V5RHVja0lkVG9Pd25lcgEFB2Fzc2V0SWQJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIMIGlzIG9ycGhhbmVkAwkBAiE9AgUFb3duZXIFBGFkZHIJAAIBCQCsAgIFCkRVQ0tQUkVGSVgCDSBpcyBub3QgeW91cnMECnJldmVyc2VLZXkJARprZXlEdWNrQ3VzdG9tTmFtZVRvQXNzZXRJZAEFCmN1c3RvbU5hbWUECW5hbWVPd25lcgkAoggBBQpyZXZlcnNlS2V5AwkBCWlzRGVmaW5lZAEFCW5hbWVPd25lcgkAAgEJAKwCAgIZTmFtZSBhbHJlYWR5IHJlZ2lzdGVyZWQ6IAUKY3VzdG9tTmFtZQQOYXNzZXRUb05hbWVLZXkJARprZXlEdWNrQXNzZXRJZFRvQ3VzdG9tTmFtZQEFB2Fzc2V0SWQEB29sZE5hbWUJAKIIAQUOYXNzZXRUb05hbWVLZXkEB2ZyZWVPbGQDCQEJaXNEZWZpbmVkAQUHb2xkTmFtZQkAzAgCCQELRGVsZXRlRW50cnkBCQEaa2V5RHVja0N1c3RvbU5hbWVUb0Fzc2V0SWQBCQEFdmFsdWUBBQdvbGROYW1lBQNuaWwFA25pbAkAzQgCCQDNCAIFB2ZyZWVPbGQJAQtTdHJpbmdFbnRyeQIFDmFzc2V0VG9OYW1lS2V5BQpjdXN0b21OYW1lCQELU3RyaW5nRW50cnkCBQpyZXZlcnNlS2V5BQdhc3NldElkCQACAQITVW5rbm93biBlbnRpdHkgdHlwZQkAlAoCCQDNCAIJAM0IAgUHYWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwUPZWNvbm9teUNvbnRyYWN0CAUDcG10BmFtb3VudAULdXNkdEFzc2V0SWQFDHByb2xvZ0FjdGlvbgAAAWkBDHNldFJlZmVycmFscwIJb2xkUGxheWVyCW5ld1BsYXllcgMJAQIhPQIIBQFpD2NhbGxlclB1YmxpY0tleQUDcHViCQACAQIRUGVybWlzc2lvbiBkZW5pZWQEDHByb2xvZ0FjdGlvbgkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAMJAQEhAQkBCWlzRGVmaW5lZAEJAKYIAQUJb2xkUGxheWVyCQACAQkArAICAhFJbnZhbGlkIGFkZHJlc3M6IAUJb2xkUGxheWVyAwkBASEBCQEJaXNEZWZpbmVkAQkApggBBQluZXdQbGF5ZXIJAAIBCQCsAgICEUludmFsaWQgYWRkcmVzczogBQluZXdQbGF5ZXIEB29sZHNLZXkJAQlrZXlPbGRpZXMABARvbGRzCQCiCAEFB29sZHNLZXkEBm9sZGllcwMJAQlpc0RlZmluZWQBBQRvbGRzCQC8CQIJAQV2YWx1ZQEFBG9sZHMCAV8FA25pbAMJAQ9jb250YWluc0VsZW1lbnQCBQZvbGRpZXMFCW5ld1BsYXllcgkAAgEJAKwCAgUJbmV3UGxheWVyAiYgaXMgbm90IG5ld2JpZSAoYWxyZWFkeSBoYXMgcmVmZXJyYWxzKQQIcmVmQnlLZXkJAQ9rZXlBZGRyZXNzUmVmQnkBBQluZXdQbGF5ZXIEBXJlZkJ5CQCiCAEFCHJlZkJ5S2V5AwMJAQlpc0RlZmluZWQBBQVyZWZCeQkBCWlzRGVmaW5lZAEJAKYIAQkBBXZhbHVlAQUFcmVmQnkHCQACAQkArAICCQCsAgIFCW5ld1BsYXllcgIUIGFscmVhZHkgaGFzIHJlZkJ5OiAJAQV2YWx1ZQEFBXJlZkJ5BAdyZWZzS2V5CQETa2V5QWRkcmVzc1JlZmVycmFscwEFCW9sZFBsYXllcgQEcmVmcwkAoggBBQdyZWZzS2V5BAlyZWZzQXJyYXkDCQEJaXNEZWZpbmVkAQUEcmVmcwkAvAkCCQEFdmFsdWUBBQRyZWZzAgFfBQNuaWwDCQEPY29udGFpbnNFbGVtZW50AgUJcmVmc0FycmF5BQluZXdQbGF5ZXIJAAIBCQCsAgIJAKwCAgkArAICBQlvbGRQbGF5ZXICEiBhbHJlYWR5IGNvbnRhaW5zIAUJbmV3UGxheWVyAhEgd2l0aGluIHJlZmVycmFscwQHbmV3UmVmcwkAugkCCQDNCAIFCXJlZnNBcnJheQUJbmV3UGxheWVyAgFfBAduZXdPbGRzCQC6CQIJAM0IAgUGb2xkaWVzBQlvbGRQbGF5ZXICAV8JAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQhyZWZCeUtleQUJb2xkUGxheWVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFB3JlZnNLZXkFB25ld1JlZnMJAMwIAgkBC1N0cmluZ0VudHJ5AgUHb2xkc0tleQUHbmV3T2xkcwkAzAgCBQxwcm9sb2dBY3Rpb24FA25pbAAAAWkBHHNwbGl0QnlHbG9iYWxXZWlnaHRzUkVBRE9OTFkBBmFtb3VudAkAlAoCBQNuaWwJARJnZXROZWVkZWRNYXRlcmlhbHMBBQZhbW91bnQBaQEkc3BsaXRCeUdsb2JhbEFuZExvY2FsV2VpZ2h0c1JFQURPTkxZAwltYXRBbW91bnQJcmVzQW1vdW50CHRlcnJhaW5zBA10ZXJyYWluQ291bnRzCQENY291bnRUZXJyYWlucwEFCHRlcnJhaW5zCQCUCgIFA25pbAkAlAoCCQESZ2V0TmVlZGVkTWF0ZXJpYWxzAQUJbWF0QW1vdW50CQETZGlzdHJpYnV0ZUJ5V2VpZ2h0cwIFCXJlc0Ftb3VudAUNdGVycmFpbkNvdW50cwFpARNnZXRCYWNrcGFja1JFQURPTkxZAQtkdWNrQXNzZXRJZAkAlAoCBQNuaWwJALkJAgkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQCAToBaQEUZ2V0V2FyZWhvdXNlUkVBRE9OTFkBC2xhbmRBc3NldElkBAVhc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFC2xhbmRBc3NldElkBAlsYW5kSW5kZXgJAGkCCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCCQC1CQIIBQVhc3NldAtkZXNjcmlwdGlvbgIBXwULcmVjTGFuZFNpemUFBVNTSVpFBAppbmZyYUxldmVsCQELdmFsdWVPckVsc2UCCQCfCAEJARZrZXlJbmZyYUxldmVsQnlBc3NldElkAQULbGFuZEFzc2V0SWQAAAkAlAoCBQNuaWwJALoJAgkBDGdldFdhcmVob3VzZQMJARJrZXlXYXJlaG91c2VCeUxhbmQBBQtsYW5kQXNzZXRJZAUJbGFuZEluZGV4BQppbmZyYUxldmVsAgE6AFo5wCA=",
    "height": 2619354,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2itSbVvun4jSqtkuWqxCohFFg7Kd5Eyq5eNToj1hFBKc
Next: Ed63WpXi1FNqHkWg9QNgNft5jied7EsXiSaSJ5inpyxs

Diff: 
Old
New
Differences
65
65
 
let RESOURCEPRICEMIN = 39637
66
66
 
67
67
 
let ESSELLCOEF = 10
68
+
69
+
let MAXHP = 100
68
70
 
69
71
 
let prodTypes = ["First Aid Kit L1", "First Aid Kit L2", "First Aid Kit L3", "Backpack L1", "Backpack L2", "Backpack L3", "Food Ration L1", "Food Ration L2", "Food Ration L3", "Jet Pack L1", "Jet Pack L2", "Jet Pack L3", "Shield L1", "Shield L2", "Shield L3"]
70
72
 
928
930
 
929
931
 
930
932
 
func checkClaimConditions (addr,claimMode,landAssetIdIn) = {
931
-
    let $t03189632435 = if ((claimMode == claimModeWh))
933
+
    let $t03195532494 = if ((claimMode == claimModeWh))
932
934
 
        then $Tuple2(landAssetIdIn, valueOrElse(getString(keyStakedDuckByOwner(addr)), ""))
933
935
 
        else {
934
936
 
            let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
938
940
 
                then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
939
941
 
                else $Tuple2(loc[locIdxId], duckAssetId)
940
942
 
            }
941
-
    let landAssetId = $t03189632435._1
942
-
    let duckId = $t03189632435._2
943
+
    let landAssetId = $t03195532494._1
944
+
    let duckId = $t03195532494._2
943
945
 
    let asset = value(assetInfo(fromBase58String(landAssetId)))
944
946
 
    let timeKey = keyStakedTimeByAssetId(landAssetId)
945
947
 
    let savedTime = valueOrErrorMessage(getInteger(timeKey), (("Land " + asset.name) + " is not staked"))
987
989
 
                                let currentPack = getBackpack(bpKey)
988
990
 
                                let currentPackRes = split(currentPack[bpIdxRes], "_")
989
991
 
                                let currentWhRes = split(currentWh[whIdxRes], "_")
990
-
                                let $t03480935680 = if ((claimMode == claimModeWh))
992
+
                                let $t03486835739 = if ((claimMode == claimModeWh))
991
993
 
                                    then $Tuple4(addRes(currentWhRes, terrainCounts, (deltaTime - newDeltaTime), landIndex, dailyProductionByPiece), currentPack[bpIdxRes], (parseIntValue(loft[volOccupied]) + resToClaim._2), (parseIntValue(loft[volFree]) - resToClaim._2))
992
994
 
                                    else if ((claimMode == claimModeDuck))
993
995
 
                                        then $Tuple4(currentWh[whIdxRes], addRes(currentPackRes, terrainCounts, (deltaTime - newDeltaTime), landIndex, dailyProductionByPiece), parseIntValue(loft[volOccupied]), parseIntValue(loft[volFree]))
996
998
 
                                            let whAm = min([parseIntValue(loft[volFree]), resToClaim._2])
997
999
 
                                            $Tuple4(distr._1, distr._2, (parseIntValue(loft[volOccupied]) + whAm), (parseIntValue(loft[volFree]) - whAm))
998
1000
 
                                            }
999
-
                                let whRes = $t03480935680._1
1000
-
                                let bpRes = $t03480935680._2
1001
-
                                let loftO = $t03480935680._3
1002
-
                                let loftF = $t03480935680._4
1001
+
                                let whRes = $t03486835739._1
1002
+
                                let bpRes = $t03486835739._2
1003
+
                                let loftO = $t03486835739._3
1004
+
                                let loftF = $t03486835739._4
1003
1005
 
                                $Tuple5([IntegerEntry(keyStakedTimeByAssetId(c._2), newTimestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, c._2, addr), newTimestamp)], bpKey, [currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], whKey, [currentWh[whIdxLevels], whRes, currentWh[whIdxMat], currentWh[whIdxProd], makeString([loft[volLocked], toString(loftO), toString(loftF), loft[volTotal]], "_")])
1004
1006
 
                                }
1005
1007
 
                        }
1500
1502
 
1501
1503
 
1502
1504
 
@Callable(i)
1503
-
func heal (medKitLevel,quantity) = {
1505
+
func heal (quantityL1,quantityL2,quantityL3) = {
1504
1506
 
    let prologAction = prolog(i)
1505
-
    if (if ((1 > medKitLevel))
1507
+
    if (if (if ((0 > quantityL1))
1506
1508
 
        then true
1507
-
        else (medKitLevel > 3))
1508
-
        then throw("MedKit levels 1..3 only")
1509
-
        else if ((0 >= quantity))
1510
-
            then throw(("Quantity should be positive! " + toString(quantity)))
1511
-
            else {
1512
-
                let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1513
-
                let keyHealth = keyDuckHealth(duckAssetId)
1514
-
                let oldHealth = valueOrElse(getInteger(keyHealth), 100)
1515
-
                if ((oldHealth >= 100))
1516
-
                    then throw("HP should be < 100 to heal")
1517
-
                    else {
1518
-
                        let bpKey = keyBackpackByDuck(duckAssetId)
1519
-
                        let currentPack = getBackpack(bpKey)
1520
-
                        let productIdx = (medKitLevel - 1)
1521
-
                        let prodList = if ((currentPack[bpIdxProd] == ""))
1522
-
                            then nil
1523
-
                            else split(currentPack[bpIdxProd], "_")
1524
-
                        let bpProdAmount = if ((size(prodList) > productIdx))
1525
-
                            then parseIntValue(prodList[productIdx])
1509
+
        else (0 > quantityL2))
1510
+
        then true
1511
+
        else (0 > quantityL3))
1512
+
        then throw("Quantity cannot be negative")
1513
+
        else {
1514
+
            let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1515
+
            let qts = [quantityL1, quantityL2, quantityL3]
1516
+
            let keyHealth = keyDuckHealth(duckAssetId)
1517
+
            let oldHealth = valueOrElse(getInteger(keyHealth), 100)
1518
+
            if ((oldHealth >= MAXHP))
1519
+
                then throw((("HP should be < " + toString(MAXHP)) + " to heal"))
1520
+
                else {
1521
+
                    let bpKey = keyBackpackByDuck(duckAssetId)
1522
+
                    let currentPack = getBackpack(bpKey)
1523
+
                    let prodList = if ((currentPack[bpIdxProd] == ""))
1524
+
                        then nil
1525
+
                        else split(currentPack[bpIdxProd], "_")
1526
+
                    func iterateProd (acc,ignoredItem) =                     {
1527
+
                        let n = acc._2
1528
+
                        let x = if ((size(prodList) > n))
1529
+
                            then parseIntValue(prodList[n])
1526
1530
 
                            else 0
1527
-
                        if ((quantity > bpProdAmount))
1528
-
                            then throw(((("You have only " + toString(bpProdAmount)) + " of ") + prodTypes[productIdx]))
1529
-
                            else {
1530
-
                                func subtractProd (acc,ignoredItem) =                                 {
1531
-
                                    let n = acc._2
1532
-
                                    let x = if ((size(prodList) > n))
1533
-
                                        then parseIntValue(prodList[n])
1534
-
                                        else 0
1535
-
                                    let y = toString(if ((n == productIdx))
1536
-
                                        then (x - quantity)
1537
-
                                        else x)
1538
-
                                    $Tuple2((acc._1 :+ y), (n + 1))
1539
-
                                    }
1540
-
1541
-
                                let newProdList = (                                let $l = productionMatrix
1542
-
                                let $s = size($l)
1543
-
                                let $acc0 = $Tuple2(nil, 0)
1544
-
                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
1545
-
                                    then $a
1546
-
                                    else subtractProd($a, $l[$i])
1547
-
1548
-
                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
1549
-
                                    then $a
1550
-
                                    else throw("List size exceeds 50")
1551
-
1552
-
                                $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
1553
-
                                let newHealth = (oldHealth + medKitHp[(medKitLevel - 1)])
1554
-
                                $Tuple2([IntegerEntry(keyHealth, newHealth), StringEntry(bpKey, makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString(newProdList, "_")], ":")), prologAction], newHealth)
1531
+
                        if ((3 > n))
1532
+
                            then {
1533
+
                                let q = qts[n]
1534
+
                                if ((q > x))
1535
+
                                    then throw(((("You have only " + toString(x)) + " of ") + prodTypes[n]))
1536
+
                                    else $Tuple3((acc._1 :+ toString((x - q))), (n + 1), (acc._3 + (medKitHp[n] * q)))
1555
1537
 
                                }
1538
+
                            else $Tuple3((acc._1 :+ toString(x)), (n + 1), acc._3)
1556
1539
 
                        }
1557
-
                }
1540
+
1541
+
                    let result = {
1542
+
                        let $l = productionMatrix
1543
+
                        let $s = size($l)
1544
+
                        let $acc0 = $Tuple3(nil, 0, 0)
1545
+
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
1546
+
                            then $a
1547
+
                            else iterateProd($a, $l[$i])
1548
+
1549
+
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
1550
+
                            then $a
1551
+
                            else throw("List size exceeds 50")
1552
+
1553
+
                        $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)
1554
+
                        }
1555
+
                    let newHealth = min([MAXHP, (oldHealth + result._3)])
1556
+
                    $Tuple2([IntegerEntry(keyHealth, newHealth), StringEntry(bpKey, makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString(result._1, "_")], ":")), prologAction], newHealth)
1557
+
                    }
1558
+
            }
1558
1559
 
    }
1559
1560
 
1560
1561
 
1615
1616
 
                                            if ((pmt.amount != sellPrice))
1616
1617
 
                                                then throw(("Payment attached should be " + toString(sellPrice)))
1617
1618
 
                                                else {
1618
-
                                                    let result = asString(invoke(economyContract, "updateEsStorage", [newES], nil))
1619
+
                                                    let result = asString(invoke(economyContract, "updateEsStorage", [newES], [AttachedPayment(usdtAssetId, sellPrice)]))
1619
1620
 
                                                    $Tuple2([IntegerEntry(keyHealth, newHealth), prologAction], result)
1620
1621
 
                                                    }
1621
1622
 
                                            }
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 MULT8 = 100000000
38
38
 
39
39
 
let LANDPREFIX = "LAND"
40
40
 
41
41
 
let DUCKPREFIX = "DUCK"
42
42
 
43
43
 
let ARTPRESALE = "PRESALE"
44
44
 
45
45
 
let NUMRES = 6
46
46
 
47
47
 
let SSIZE = 25
48
48
 
49
49
 
let MSIZE = 100
50
50
 
51
51
 
let LSIZE = 225
52
52
 
53
53
 
let XLSIZE = 400
54
54
 
55
55
 
let XXLSIZE = 625
56
56
 
57
57
 
let DAILYRESBYPIECE = 3456000
58
58
 
59
59
 
let DAYMILLIS = 86400000
60
60
 
61
61
 
let WHMULTIPLIER = 10000000000
62
62
 
63
63
 
let DEFAULTLOCATION = "Africa_F_Africa"
64
64
 
65
65
 
let RESOURCEPRICEMIN = 39637
66
66
 
67
67
 
let ESSELLCOEF = 10
68
+
69
+
let MAXHP = 100
68
70
 
69
71
 
let prodTypes = ["First Aid Kit L1", "First Aid Kit L2", "First Aid Kit L3", "Backpack L1", "Backpack L2", "Backpack L3", "Food Ration L1", "Food Ration L2", "Food Ration L3", "Jet Pack L1", "Jet Pack L2", "Jet Pack L3", "Shield L1", "Shield L2", "Shield L3"]
70
72
 
71
73
 
let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
72
74
 
73
75
 
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"]
74
76
 
75
77
 
let recipeIdxPacksize = 7
76
78
 
77
79
 
let recLandNum = 0
78
80
 
79
81
 
let recLandSize = 1
80
82
 
81
83
 
let recTerrains = 2
82
84
 
83
85
 
let recContinent = 3
84
86
 
85
87
 
let whIdxLevels = 0
86
88
 
87
89
 
let whIdxRes = 1
88
90
 
89
91
 
let whIdxMat = 2
90
92
 
91
93
 
let whIdxProd = 3
92
94
 
93
95
 
let whIdxLOFT = 4
94
96
 
95
97
 
let volLocked = 0
96
98
 
97
99
 
let volOccupied = 1
98
100
 
99
101
 
let volFree = 2
100
102
 
101
103
 
let volTotal = 3
102
104
 
103
105
 
let bpIdxLevel = 0
104
106
 
105
107
 
let bpIdxRes = 1
106
108
 
107
109
 
let bpIdxMat = 2
108
110
 
109
111
 
let bpIdxProd = 3
110
112
 
111
113
 
func getPkgSize (prodIdx) = parseIntValue(split(productionMatrix[prodIdx], "_")[recipeIdxPacksize])
112
114
 
113
115
 
114
116
 
func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
115
117
 
116
118
 
117
119
 
let IdxCfgEconomyDapp = 2
118
120
 
119
121
 
let IdxCfgGovernanceDapp = 3
120
122
 
121
123
 
func keyRestCfg () = "%s__restConfig"
122
124
 
123
125
 
124
126
 
func keyRestAddress () = "%s__restAddr"
125
127
 
126
128
 
127
129
 
func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
128
130
 
129
131
 
130
132
 
func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
131
133
 
132
134
 
133
135
 
let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
134
136
 
135
137
 
let restCfg = readRestCfgOrFail(restContract)
136
138
 
137
139
 
let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
138
140
 
139
141
 
let govContract = getContractAddressOrFail(restCfg, IdxCfgGovernanceDapp)
140
142
 
141
143
 
func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
142
144
 
143
145
 
144
146
 
func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
145
147
 
146
148
 
147
149
 
func keyLandAssetIdToCustomName (assetId) = ("landCustomNameByAssetId_" + assetId)
148
150
 
149
151
 
150
152
 
func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
151
153
 
152
154
 
153
155
 
func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
154
156
 
155
157
 
156
158
 
func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
157
159
 
158
160
 
159
161
 
func keyStakedTimeByTypeAssetIdAndOwner (nftType,assetId,ownerAddr) = ((((("stakedTimeByTypeAssetIdAndOwner_" + nftType) + "_") + assetId) + "_") + ownerAddr)
160
162
 
161
163
 
162
164
 
func keyWarehouseByLand (landAssetId) = ("wareHouse_" + landAssetId)
163
165
 
164
166
 
165
167
 
func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
166
168
 
167
169
 
168
170
 
func keyDuckAssetIdToCustomName (assetId) = ("duckCustomNameByAssetId_" + assetId)
169
171
 
170
172
 
171
173
 
func keyAddressToCustomName (addr) = ("accountCustomNameByAddr_" + addr)
172
174
 
173
175
 
174
176
 
func keyAddressRefBy (addr) = ("accRefBy_" + addr)
175
177
 
176
178
 
177
179
 
func keyAddressReferrals (addr) = ("accReferrals_" + addr)
178
180
 
179
181
 
180
182
 
func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
181
183
 
182
184
 
183
185
 
func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
184
186
 
185
187
 
186
188
 
func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
187
189
 
188
190
 
189
191
 
func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
190
192
 
191
193
 
192
194
 
func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
193
195
 
194
196
 
195
197
 
func keyResProportions () = "resTypesProportions"
196
198
 
197
199
 
198
200
 
func keyBlocked () = "contractsBlocked"
199
201
 
200
202
 
201
203
 
func keyUserGwlReleaseTime (userAddr) = ("%s%s__userGwlReleaseTime__" + userAddr)
202
204
 
203
205
 
204
206
 
func keyEsWarehouse () = "emergencyWarehouseProducts"
205
207
 
206
208
 
207
209
 
let locIdxType = 1
208
210
 
209
211
 
let locIdxId = 2
210
212
 
211
213
 
func asString (v) = match v {
212
214
 
    case s: String => 
213
215
 
        s
214
216
 
    case _ => 
215
217
 
        throw("fail to cast into String")
216
218
 
}
217
219
 
218
220
 
219
221
 
func asInt (v) = match v {
220
222
 
    case n: Int => 
221
223
 
        n
222
224
 
    case _ => 
223
225
 
        throw("fail to cast into Int")
224
226
 
}
225
227
 
226
228
 
227
229
 
func numPiecesBySize (landSize) = match landSize {
228
230
 
    case _ => 
229
231
 
        if (("S" == $match0))
230
232
 
            then SSIZE
231
233
 
            else if (("M" == $match0))
232
234
 
                then MSIZE
233
235
 
                else if (("L" == $match0))
234
236
 
                    then LSIZE
235
237
 
                    else if (("XL" == $match0))
236
238
 
                        then XLSIZE
237
239
 
                        else if (("XXL" == $match0))
238
240
 
                            then XXLSIZE
239
241
 
                            else throw("Unknown land size")
240
242
 
}
241
243
 
242
244
 
243
245
 
func getRecipeMaterials (recipe) = {
244
246
 
    func addMat (ac,j) =     (ac + parseIntValue(recipe[j]))
245
247
 
246
248
 
    let $l = [0, 1, 2, 3, 4, 5]
247
249
 
    let $s = size($l)
248
250
 
    let $acc0 = 0
249
251
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
250
252
 
        then $a
251
253
 
        else addMat($a, $l[$i])
252
254
 
253
255
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
254
256
 
        then $a
255
257
 
        else throw("List size exceeds 6")
256
258
 
257
259
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
258
260
 
    }
259
261
 
260
262
 
261
263
 
let incubatorAddr = match chain {
262
264
 
    case _ => 
263
265
 
        if ((base58'2W' == $match0))
264
266
 
            then addressFromStringValue("3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv")
265
267
 
            else if ((base58'2T' == $match0))
266
268
 
                then this
267
269
 
                else throw("Unknown chain")
268
270
 
}
269
271
 
270
272
 
let breederAddr = match chain {
271
273
 
    case _ => 
272
274
 
        if ((base58'2W' == $match0))
273
275
 
            then addressFromStringValue("3PDVuU45H7Eh5dmtNbnRNRStGwULA7NY6Hb")
274
276
 
            else if ((base58'2T' == $match0))
275
277
 
                then this
276
278
 
                else throw("Unknown chain")
277
279
 
}
278
280
 
279
281
 
let pub = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
280
282
 
281
283
 
let medKitHp = [30, 60, 120]
282
284
 
283
285
 
let FIVEMINUTESMILLIS = 300000
284
286
 
285
287
 
let RENAMINGCOST = 5000000
286
288
 
287
289
 
let MAXNAMELEN = 50
288
290
 
289
291
 
let InfraUpgradeCostSUsdt = 10000000
290
292
 
291
293
 
let EXPMATERIALS = match chain {
292
294
 
    case _ => 
293
295
 
        if ((base58'2W' == $match0))
294
296
 
            then 252289527462
295
297
 
            else if ((base58'2T' == $match0))
296
298
 
                then 2522895274
297
299
 
                else throw("Unknown chain")
298
300
 
}
299
301
 
300
302
 
let EXPUSDT = match chain {
301
303
 
    case _ => 
302
304
 
        if ((base58'2W' == $match0))
303
305
 
            then 250000000
304
306
 
            else if ((base58'2T' == $match0))
305
307
 
                then 250000000
306
308
 
                else throw("Unknown chain")
307
309
 
}
308
310
 
309
311
 
let FIVEX = toBigInt(5)
310
312
 
311
313
 
let TWENTYX = toBigInt(20)
312
314
 
313
315
 
let TWENTY2X = toBigInt((20 * 20))
314
316
 
315
317
 
let TWENTY3X = toBigInt(((20 * 20) * 20))
316
318
 
317
319
 
let TWENTY4X = toBigInt((((20 * 20) * 20) * 20))
318
320
 
319
321
 
let TWENTY5X = toBigInt(((((20 * 20) * 20) * 20) * 20))
320
322
 
321
323
 
let PRESALENUMLANDS = 500
322
324
 
323
325
 
func keyNextFreeLandNum () = "nextLandNum"
324
326
 
325
327
 
326
328
 
func keyLandToAssetId (landNum) = ("landToAsset_" + landNum)
327
329
 
328
330
 
329
331
 
func keyLandCustomNameToAssetId (name) = ("landByCustomName_" + name)
330
332
 
331
333
 
332
334
 
func keyInfraLevelByAssetIdAndOwner (assetId,ownerAddr) = ((("infraLevelByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
333
335
 
334
336
 
335
337
 
func keyLandArtStatusByTypeAssetIdAndOwner (type,assetId,ownerAddr) = makeString(["landArtStatusByTypeAssetIdAndOwner", type, assetId, ownerAddr], "_")
336
338
 
337
339
 
338
340
 
func keyLandNumToOwner (landNum) = ("landOwner_" + landNum)
339
341
 
340
342
 
341
343
 
func keyDuckCustomNameToAssetId (name) = ("duckByCustomName_" + name)
342
344
 
343
345
 
344
346
 
func keyCustomNameToAddress (name) = ("accountByCustomName_" + name)
345
347
 
346
348
 
347
349
 
func keyOldies () = "oldiesList"
348
350
 
349
351
 
350
352
 
let claimModeWh = 0
351
353
 
352
354
 
let claimModeDuck = 1
353
355
 
354
356
 
let claimModeWhThenDuck = 2
355
357
 
356
358
 
let flHealth = 0
357
359
 
358
360
 
let flTimestamp = 5
359
361
 
360
362
 
let flBonus = 6
361
363
 
362
364
 
func nftName (landNum,landSize) = ((LANDPREFIX + landNum) + landSize)
363
365
 
364
366
 
365
367
 
func distributeByWeights (total,weights) = {
366
368
 
    let sum = (((((weights[0] + weights[1]) + weights[2]) + weights[3]) + weights[4]) + weights[5])
367
369
 
    if ((0 >= sum))
368
370
 
        then throw("Zero weights sum")
369
371
 
        else {
370
372
 
            let norm6 = fraction(total, MULT6, sum)
371
373
 
            func normalizer (acc,elem) =             (acc :+ fraction(elem, norm6, MULT6))
372
374
 
373
375
 
            let $l = weights
374
376
 
            let $s = size($l)
375
377
 
            let $acc0 = nil
376
378
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
377
379
 
                then $a
378
380
 
                else normalizer($a, $l[$i])
379
381
 
380
382
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
381
383
 
                then $a
382
384
 
                else throw("List size exceeds 6")
383
385
 
384
386
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
385
387
 
            }
386
388
 
    }
387
389
 
388
390
 
389
391
 
func getNeededMaterials (total) = {
390
392
 
    let props = split(value(getString(keyResProportions())), "_")
391
393
 
    if ((size(props) != NUMRES))
392
394
 
        then throw("Wrong proportions data")
393
395
 
        else {
394
396
 
            let r = [parseIntValue(props[0]), parseIntValue(props[1]), parseIntValue(props[2]), parseIntValue(props[3]), parseIntValue(props[4]), parseIntValue(props[5])]
395
397
 
            distributeByWeights(total, r)
396
398
 
            }
397
399
 
    }
398
400
 
399
401
 
400
402
 
func subtractMaterials (shouldUseMat,has,totalNeed) = {
401
403
 
    let need = getNeededMaterials(totalNeed)
402
404
 
    func subtractor (acc,idx) =     {
403
405
 
        let result = (parseIntValue(has[idx]) - need[idx])
404
406
 
        if ((0 > result))
405
407
 
            then throw(((((("Not enough material idx=" + toString(idx)) + ", you have ") + has[idx]) + ", but need ") + toString(need[idx])))
406
408
 
            else (acc :+ toString(result))
407
409
 
        }
408
410
 
409
411
 
    if (shouldUseMat)
410
412
 
        then {
411
413
 
            let $l = [0, 1, 2, 3, 4, 5]
412
414
 
            let $s = size($l)
413
415
 
            let $acc0 = nil
414
416
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
415
417
 
                then $a
416
418
 
                else subtractor($a, $l[$i])
417
419
 
418
420
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
419
421
 
                then $a
420
422
 
                else throw("List size exceeds 6")
421
423
 
422
424
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
423
425
 
            }
424
426
 
        else has
425
427
 
    }
426
428
 
427
429
 
428
430
 
func updateProportionsInternal (propList,terrainCounts,landSizeIndex,sign) = if ((size(propList) != NUMRES))
429
431
 
    then throw("Wrong proportions data")
430
432
 
    else {
431
433
 
        func updater (acc,i) =         {
432
434
 
            let result = (parseIntValue(propList[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
433
435
 
            if ((0 > result))
434
436
 
                then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ",  terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
435
437
 
                else (acc :+ toString(result))
436
438
 
            }
437
439
 
438
440
 
        let r = {
439
441
 
            let $l = [0, 1, 2, 3, 4, 5]
440
442
 
            let $s = size($l)
441
443
 
            let $acc0 = nil
442
444
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
443
445
 
                then $a
444
446
 
                else updater($a, $l[$i])
445
447
 
446
448
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
447
449
 
                then $a
448
450
 
                else throw("List size exceeds 6")
449
451
 
450
452
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
451
453
 
            }
452
454
 
        makeString(r, "_")
453
455
 
        }
454
456
 
455
457
 
456
458
 
func updateProportions (terrainCounts,landSizeIndex,sign) = {
457
459
 
    let propList = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
458
460
 
    updateProportionsInternal(propList, terrainCounts, landSizeIndex, sign)
459
461
 
    }
460
462
 
461
463
 
462
464
 
func countTerrains (terrains) = [(size(split(terrains, "A")) - 1), (size(split(terrains, "B")) - 1), (size(split(terrains, "C")) - 1), (size(split(terrains, "D")) - 1), (size(split(terrains, "E")) - 1), (size(split(terrains, "F")) - 1)]
463
465
 
464
466
 
465
467
 
func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex,dailyByPieceWithBonuses) = {
466
468
 
    func adder (acc,i) =     {
467
469
 
        let resOfType = ((fraction(deltaTime, dailyByPieceWithBonuses, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
468
470
 
        (acc :+ toString((parseIntValue(currentRes[i]) + resOfType)))
469
471
 
        }
470
472
 
471
473
 
    let r = {
472
474
 
        let $l = [0, 1, 2, 3, 4, 5]
473
475
 
        let $s = size($l)
474
476
 
        let $acc0 = nil
475
477
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
476
478
 
            then $a
477
479
 
            else adder($a, $l[$i])
478
480
 
479
481
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
480
482
 
            then $a
481
483
 
            else throw("List size exceeds 6")
482
484
 
483
485
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
484
486
 
        }
485
487
 
    makeString(r, "_")
486
488
 
    }
487
489
 
488
490
 
489
491
 
func virtClaim (terrainCounts,deltaTime,landSizeIndex,dailyByPieceWithBonuses) = {
490
492
 
    func adder (acc,i) =     {
491
493
 
        let resOfType = ((fraction(deltaTime, dailyByPieceWithBonuses, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
492
494
 
        $Tuple2((acc._1 :+ resOfType), (acc._2 + resOfType))
493
495
 
        }
494
496
 
495
497
 
    let $l = [0, 1, 2, 3, 4, 5]
496
498
 
    let $s = size($l)
497
499
 
    let $acc0 = $Tuple2(nil, 0)
498
500
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
499
501
 
        then $a
500
502
 
        else adder($a, $l[$i])
501
503
 
502
504
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
503
505
 
        then $a
504
506
 
        else throw("List size exceeds 6")
505
507
 
506
508
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
507
509
 
    }
508
510
 
509
511
 
510
512
 
func distributeRes (currentWhRes,currentPackRes,resToClaim,whSpaceLeft) = {
511
513
 
    let resListToClaim = resToClaim._1
512
514
 
    let resAmToClaim = resToClaim._2
513
515
 
    if ((resAmToClaim == 0))
514
516
 
        then $Tuple2(makeString(currentWhRes, "_"), makeString(currentPackRes, "_"))
515
517
 
        else if ((whSpaceLeft >= resAmToClaim))
516
518
 
            then {
517
519
 
                func addLists (acc,i) =                 (acc :+ toString((parseIntValue(currentWhRes[i]) + resListToClaim[i])))
518
520
 
519
521
 
                let r = {
520
522
 
                    let $l = [0, 1, 2, 3, 4, 5]
521
523
 
                    let $s = size($l)
522
524
 
                    let $acc0 = nil
523
525
 
                    func $f0_1 ($a,$i) =                     if (($i >= $s))
524
526
 
                        then $a
525
527
 
                        else addLists($a, $l[$i])
526
528
 
527
529
 
                    func $f0_2 ($a,$i) =                     if (($i >= $s))
528
530
 
                        then $a
529
531
 
                        else throw("List size exceeds 6")
530
532
 
531
533
 
                    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
532
534
 
                    }
533
535
 
                $Tuple2(makeString(r, "_"), makeString(currentPackRes, "_"))
534
536
 
                }
535
537
 
            else {
536
538
 
                func addPartLists (acc,i) =                 {
537
539
 
                    let whPart = fraction(resListToClaim[i], whSpaceLeft, resAmToClaim)
538
540
 
                    $Tuple2((acc._1 :+ toString((parseIntValue(currentWhRes[i]) + whPart))), (acc._2 :+ toString(((parseIntValue(currentPackRes[i]) + resListToClaim[i]) - whPart))))
539
541
 
                    }
540
542
 
541
543
 
                let r = {
542
544
 
                    let $l = [0, 1, 2, 3, 4, 5]
543
545
 
                    let $s = size($l)
544
546
 
                    let $acc0 = $Tuple2(nil, nil)
545
547
 
                    func $f0_1 ($a,$i) =                     if (($i >= $s))
546
548
 
                        then $a
547
549
 
                        else addPartLists($a, $l[$i])
548
550
 
549
551
 
                    func $f0_2 ($a,$i) =                     if (($i >= $s))
550
552
 
                        then $a
551
553
 
                        else throw("List size exceeds 6")
552
554
 
553
555
 
                    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
554
556
 
                    }
555
557
 
                $Tuple2(makeString(r._1, "_"), makeString(r._2, "_"))
556
558
 
                }
557
559
 
    }
558
560
 
559
561
 
560
562
 
func abs (x) = if ((x >= toBigInt(0)))
561
563
 
    then x
562
564
 
    else -(x)
563
565
 
564
566
 
565
567
 
let freq = [[6, 9, 14, 15, 16], [5, 8, 13, 14, 15], [1, 4, 9, 10, 15], [1, 6, 7, 15, 19], [4, 7, 8, 13, 18]]
566
568
 
567
569
 
func genChar (n,freqs) = {
568
570
 
    let rem = toInt((n % TWENTYX))
569
571
 
    let letter = if ((freqs[0] > rem))
570
572
 
        then "A"
571
573
 
        else if ((freqs[1] > rem))
572
574
 
            then "B"
573
575
 
            else if ((freqs[2] > rem))
574
576
 
                then "C"
575
577
 
                else if ((freqs[3] > rem))
576
578
 
                    then "D"
577
579
 
                    else if ((freqs[4] > rem))
578
580
 
                        then "E"
579
581
 
                        else "F"
580
582
 
    letter
581
583
 
    }
582
584
 
583
585
 
584
586
 
func genTerrains (seed,continentIdx) = {
585
587
 
    let f = freq[continentIdx]
586
588
 
    func terrainGenerator (acc,elem) =     $Tuple2((((((acc._1 + genChar(acc._2, f)) + genChar((acc._2 / TWENTYX), f)) + genChar((acc._2 / TWENTY2X), f)) + genChar((acc._2 / TWENTY3X), f)) + genChar((acc._2 / TWENTY4X), f)), (acc._2 / TWENTY5X))
587
589
 
588
590
 
    let t = {
589
591
 
        let $l = [1, 2, 3, 4, 5]
590
592
 
        let $s = size($l)
591
593
 
        let $acc0 = $Tuple2("", (seed / FIVEX))
592
594
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
593
595
 
            then $a
594
596
 
            else terrainGenerator($a, $l[$i])
595
597
 
596
598
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
597
599
 
            then $a
598
600
 
            else throw("List size exceeds 5")
599
601
 
600
602
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
601
603
 
        }
602
604
 
    t._1
603
605
 
    }
604
606
 
605
607
 
606
608
 
func getBackpack (bpKey) = {
607
609
 
    let p = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
608
610
 
[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
609
611
 
        then p[bpIdxRes]
610
612
 
        else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
611
613
 
        then p[bpIdxMat]
612
614
 
        else "0_0_0_0_0_0", p[bpIdxProd]]
613
615
 
    }
614
616
 
615
617
 
616
618
 
func getWarehouseTotalVolume (volPrefix) = {
617
619
 
    let parts = split(volPrefix, "_")
618
620
 
    ((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0]))
619
621
 
    }
620
622
 
621
623
 
622
624
 
func getWarehouseOccupiedVol (currentWh) = {
623
625
 
    let goods = currentWh[whIdxProd]
624
626
 
    func sumResMat (acc,item) =     (acc + parseIntValue(item))
625
627
 
626
628
 
    func sumProd (acc,item) =     {
627
629
 
        let idx = acc._1
628
630
 
        let pkgSize = getPkgSize(idx)
629
631
 
        let pkgs = (((parseIntValue(item) + pkgSize) - 1) / pkgSize)
630
632
 
        $Tuple2((idx + 1), (acc._2 + (pkgs * MULT8)))
631
633
 
        }
632
634
 
633
635
 
    let whResVol = {
634
636
 
        let $l = split(currentWh[whIdxRes], "_")
635
637
 
        let $s = size($l)
636
638
 
        let $acc0 = 0
637
639
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
638
640
 
            then $a
639
641
 
            else sumResMat($a, $l[$i])
640
642
 
641
643
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
642
644
 
            then $a
643
645
 
            else throw("List size exceeds 6")
644
646
 
645
647
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
646
648
 
        }
647
649
 
    let whMatVol = {
648
650
 
        let $l = split(currentWh[whIdxMat], "_")
649
651
 
        let $s = size($l)
650
652
 
        let $acc0 = 0
651
653
 
        func $f1_1 ($a,$i) =         if (($i >= $s))
652
654
 
            then $a
653
655
 
            else sumResMat($a, $l[$i])
654
656
 
655
657
 
        func $f1_2 ($a,$i) =         if (($i >= $s))
656
658
 
            then $a
657
659
 
            else throw("List size exceeds 6")
658
660
 
659
661
 
        $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
660
662
 
        }
661
663
 
    let whGoodsVol = if ((goods == ""))
662
664
 
        then 0
663
665
 
        else (        let $l = split_4C(goods, "_")
664
666
 
        let $s = size($l)
665
667
 
        let $acc0 = $Tuple2(0, 0)
666
668
 
        func $f2_1 ($a,$i) =         if (($i >= $s))
667
669
 
            then $a
668
670
 
            else sumProd($a, $l[$i])
669
671
 
670
672
 
        func $f2_2 ($a,$i) =         if (($i >= $s))
671
673
 
            then $a
672
674
 
            else throw("List size exceeds 50")
673
675
 
674
676
 
        $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50))._2
675
677
 
    ((whResVol + whMatVol) + whGoodsVol)
676
678
 
    }
677
679
 
678
680
 
679
681
 
func getWarehouse (whKey,landIndex,infraLevel) = {
680
682
 
    let volPrefix = ((toString(landIndex) + "_") + toString(infraLevel))
681
683
 
    let whTotal = getWarehouseTotalVolume(volPrefix)
682
684
 
    let whStr = valueOrElse(getString(whKey), (volPrefix + ":0_0_0_0_0_0:0_0_0_0_0_0::0"))
683
685
 
    let wh = split_4C(whStr, ":")
684
686
 
    let whOccupied = getWarehouseOccupiedVol(wh)
685
687
 
    let whLoft = if ((5 > size(wh)))
686
688
 
        then makeString(["0", toString(whOccupied), toString((whTotal - whOccupied)), toString(whTotal)], "_")
687
689
 
        else {
688
690
 
            let loft = split(wh[whIdxLOFT], "_")
689
691
 
            let whLocked = parseIntValue(loft[volLocked])
690
692
 
            let occ = if ((size(loft) > 1))
691
693
 
                then parseIntValue(loft[volOccupied])
692
694
 
                else whOccupied
693
695
 
            makeString([toString(whLocked), toString(occ), toString(((whTotal - whLocked) - occ)), toString(whTotal)], "_")
694
696
 
            }
695
697
 
[wh[whIdxLevels], if ((size(split(wh[whIdxRes], "_")) == NUMRES))
696
698
 
        then wh[whIdxRes]
697
699
 
        else "0_0_0_0_0_0", if ((size(split(wh[whIdxMat], "_")) == NUMRES))
698
700
 
        then wh[whIdxMat]
699
701
 
        else "0_0_0_0_0_0", wh[whIdxProd], whLoft]
700
702
 
    }
701
703
 
702
704
 
703
705
 
func getWarehouseSpaceLeft (currentWh) = {
704
706
 
    let occupiedVol = getWarehouseOccupiedVol(currentWh)
705
707
 
    let currWhLockedVol = parseIntValue(split(currentWh[whIdxLOFT], "_")[volLocked])
706
708
 
    ((getWarehouseTotalVolume(currentWh[whIdxLevels]) - occupiedVol) - currWhLockedVol)
707
709
 
    }
708
710
 
709
711
 
710
712
 
func toVolume (amount,pkgSize) = {
711
713
 
    let pkgs = if ((amount >= 0))
712
714
 
        then (((amount + pkgSize) - 1) / pkgSize)
713
715
 
        else -((((-(amount) + pkgSize) - 1) / pkgSize))
714
716
 
    (pkgs * MULT8)
715
717
 
    }
716
718
 
717
719
 
718
720
 
func moveStuff (cargoParts,currentWh,currentPack) = if ((size(cargoParts) != 3))
719
721
 
    then throw("cargoListStr should contain exactly 2 ':' separators")
720
722
 
    else {
721
723
 
        let resParts = split(cargoParts[0], "_")
722
724
 
        let matParts = split(cargoParts[1], "_")
723
725
 
        let prodParts = if ((cargoParts[2] == ""))
724
726
 
            then nil
725
727
 
            else split(cargoParts[2], "_")
726
728
 
        if ((size(resParts) != NUMRES))
727
729
 
            then throw("All 6 resources should be passed")
728
730
 
            else if ((size(matParts) != NUMRES))
729
731
 
                then throw("All 6 materials should be passed")
730
732
 
                else {
731
733
 
                    let whSpaceLeft = getWarehouseSpaceLeft(currentWh)
732
734
 
                    let currWhRes = split(currentWh[whIdxRes], "_")
733
735
 
                    let currWhMat = split(currentWh[whIdxMat], "_")
734
736
 
                    let currWhProd = if ((currentWh[whIdxProd] == ""))
735
737
 
                        then nil
736
738
 
                        else split(currentWh[whIdxProd], "_")
737
739
 
                    let currentPackRes = split(currentPack[bpIdxRes], "_")
738
740
 
                    let currentPackMat = split(currentPack[bpIdxMat], "_")
739
741
 
                    let currentPackProd = if ((currentPack[bpIdxProd] == ""))
740
742
 
                        then nil
741
743
 
                        else split(currentPack[bpIdxProd], "_")
742
744
 
                    func mvR (acc,item) =                     {
743
745
 
                        let i = acc._1
744
746
 
                        let am = parseIntValue(item)
745
747
 
                        let whr = parseIntValue(currWhRes[i])
746
748
 
                        let bpr = parseIntValue(currentPackRes[i])
747
749
 
                        if ((am == 0))
748
750
 
                            then $Tuple4((i + 1), (acc._2 :+ currWhRes[i]), (acc._3 :+ currentPackRes[i]), acc._4)
749
751
 
                            else if ((am > 0))
750
752
 
                                then if ((am > bpr))
751
753
 
                                    then throw((((("Attempt to take " + item) + " from backpack, but only ") + toString(bpr)) + " available"))
752
754
 
                                    else $Tuple4((i + 1), (acc._2 :+ toString((whr + am))), (acc._3 :+ toString((bpr - am))), (acc._4 + am))
753
755
 
                                else if ((-(am) > whr))
754
756
 
                                    then throw((((("Attempt to take " + toString(-(am))) + " from warehouse, but only ") + toString(whr)) + " available"))
755
757
 
                                    else $Tuple4((i + 1), (acc._2 :+ toString((whr + am))), (acc._3 :+ toString((bpr - am))), (acc._4 + am))
756
758
 
                        }
757
759
 
758
760
 
                    let r = {
759
761
 
                        let $l = resParts
760
762
 
                        let $s = size($l)
761
763
 
                        let $acc0 = $Tuple4(0, nil, nil, 0)
762
764
 
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
763
765
 
                            then $a
764
766
 
                            else mvR($a, $l[$i])
765
767
 
766
768
 
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
767
769
 
                            then $a
768
770
 
                            else throw("List size exceeds 6")
769
771
 
770
772
 
                        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
771
773
 
                        }
772
774
 
                    func mvM (acc,item) =                     {
773
775
 
                        let i = acc._1
774
776
 
                        let am = parseIntValue(item)
775
777
 
                        let whm = parseIntValue(currWhMat[i])
776
778
 
                        let bpm = parseIntValue(currentPackMat[i])
777
779
 
                        if ((am == 0))
778
780
 
                            then $Tuple4((i + 1), (acc._2 :+ currWhMat[i]), (acc._3 :+ currentPackMat[i]), acc._4)
779
781
 
                            else if ((am > 0))
780
782
 
                                then if ((am > bpm))
781
783
 
                                    then throw((((("Attempt to take " + item) + " from backpack, but only ") + toString(bpm)) + " available"))
782
784
 
                                    else $Tuple4((i + 1), (acc._2 :+ toString((whm + am))), (acc._3 :+ toString((bpm - am))), (acc._4 + am))
783
785
 
                                else if ((-(am) > whm))
784
786
 
                                    then throw((((("Attempt to take " + toString(-(am))) + " from warehouse, but only ") + toString(whm)) + " available"))
785
787
 
                                    else $Tuple4((i + 1), (acc._2 :+ toString((whm + am))), (acc._3 :+ toString((bpm - am))), (acc._4 + am))
786
788
 
                        }
787
789
 
788
790
 
                    let m = {
789
791
 
                        let $l = matParts
790
792
 
                        let $s = size($l)
791
793
 
                        let $acc0 = $Tuple4(0, nil, nil, r._4)
792
794
 
                        func $f1_1 ($a,$i) =                         if (($i >= $s))
793
795
 
                            then $a
794
796
 
                            else mvM($a, $l[$i])
795
797
 
796
798
 
                        func $f1_2 ($a,$i) =                         if (($i >= $s))
797
799
 
                            then $a
798
800
 
                            else throw("List size exceeds 6")
799
801
 
800
802
 
                        $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6)
801
803
 
                        }
802
804
 
                    func mvP (acc,item) =                     {
803
805
 
                        let i = acc._1
804
806
 
                        let pkgSize = getPkgSize(i)
805
807
 
                        let am = parseIntValue(item)
806
808
 
                        let whp = if ((size(currWhProd) > i))
807
809
 
                            then parseIntValue(currWhProd[i])
808
810
 
                            else 0
809
811
 
                        let bpp = if ((size(currentPackProd) > i))
810
812
 
                            then parseIntValue(currentPackProd[i])
811
813
 
                            else 0
812
814
 
                        if ((am == 0))
813
815
 
                            then $Tuple4((i + 1), (acc._2 :+ toString(whp)), (acc._3 :+ toString(bpp)), acc._4)
814
816
 
                            else if ((am > 0))
815
817
 
                                then if ((am > bpp))
816
818
 
                                    then throw((((("Attempt to take " + item) + " from backpack, but only ") + toString(bpp)) + " available"))
817
819
 
                                    else {
818
820
 
                                        let deltaVol = (toVolume((whp + am), pkgSize) - toVolume(whp, pkgSize))
819
821
 
                                        $Tuple4((i + 1), (acc._2 :+ toString((whp + am))), (acc._3 :+ toString((bpp - am))), (acc._4 + deltaVol))
820
822
 
                                        }
821
823
 
                                else if ((-(am) > whp))
822
824
 
                                    then throw((((("Attempt to take " + toString(-(am))) + " from warehouse, but only ") + toString(whp)) + " available"))
823
825
 
                                    else {
824
826
 
                                        let deltaVol = (toVolume((whp + am), pkgSize) - toVolume(whp, pkgSize))
825
827
 
                                        $Tuple4((i + 1), (acc._2 :+ toString((whp + am))), (acc._3 :+ toString((bpp - am))), (acc._4 + deltaVol))
826
828
 
                                        }
827
829
 
                        }
828
830
 
829
831
 
                    let p = if ((size(prodParts) != 0))
830
832
 
                        then {
831
833
 
                            let $l = prodParts
832
834
 
                            let $s = size($l)
833
835
 
                            let $acc0 = $Tuple4(0, nil, nil, m._4)
834
836
 
                            func $f2_1 ($a,$i) =                             if (($i >= $s))
835
837
 
                                then $a
836
838
 
                                else mvP($a, $l[$i])
837
839
 
838
840
 
                            func $f2_2 ($a,$i) =                             if (($i >= $s))
839
841
 
                                then $a
840
842
 
                                else throw("List size exceeds 50")
841
843
 
842
844
 
                            $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
843
845
 
                            }
844
846
 
                        else $Tuple4(0, currWhProd, currentPackProd, m._4)
845
847
 
                    let volSaldo = p._4
846
848
 
                    if ((volSaldo > whSpaceLeft))
847
849
 
                        then throw((((("Attempt to put total " + toString(volSaldo)) + " stuff, but only ") + toString(whSpaceLeft)) + " warehouse space left"))
848
850
 
                        else $Tuple7(makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_"), makeString(r._3, "_"), makeString(m._3, "_"), makeString(p._3, "_"), volSaldo)
849
851
 
                    }
850
852
 
        }
851
853
 
852
854
 
853
855
 
func expeditionInternal (caller,txId) = {
854
856
 
    let userAddr = toString(caller)
855
857
 
    let bigNum = abs(toBigInt(txId))
856
858
 
    let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), (PRESALENUMLANDS + 1))
857
859
 
    let landNum = toString(freeNum)
858
860
 
    let continentIdx = toInt((bigNum % FIVEX))
859
861
 
    let terrains = genTerrains(bigNum, continentIdx)
860
862
 
    let continent = continents[continentIdx]
861
863
 
    let issue = Issue(nftName(landNum, "S"), makeString([landNum, "S", terrains, continent], "_"), 1, 0, false)
862
864
 
    let assetId = calculateAssetId(issue)
863
865
 
    let id = toBase58String(assetId)
864
866
 
    $Tuple2([IntegerEntry(keyNextFreeLandNum(), (freeNum + 1)), issue, StringEntry(keyLandToAssetId(landNum), id), StringEntry(keyLandAssetIdToOwner(id), userAddr), StringEntry(keyLandNumToOwner(landNum), userAddr), IntegerEntry(keyInfraLevelByAssetId(id), 0), IntegerEntry(keyInfraLevelByAssetIdAndOwner(id, userAddr), 0), ScriptTransfer(caller, 1, assetId)], $Tuple2(id, continent))
865
867
 
    }
866
868
 
867
869
 
868
870
 
func expeditionCommon (shouldUseMat,caller,txId,message,sig) = if (!(sigVerify_8Kb(message, sig, pub)))
869
871
 
    then throw("signature does not match")
870
872
 
    else {
871
873
 
        let parts = split(toUtf8String(message), ";")
872
874
 
        let flightLog = split(parts[0], "|")
873
875
 
        let hp = split(flightLog[flHealth], "_")
874
876
 
        let curHP = parseIntValue(hp[0])
875
877
 
        let newHP = parseIntValue(hp[1])
876
878
 
        let newLocTxVer = split(parts[1], ":")
877
879
 
        let newLocation = newLocTxVer[0]
878
880
 
        let time = parseIntValue(flightLog[flTimestamp])
879
881
 
        if (if ((time > (lastBlock.timestamp + FIVEMINUTESMILLIS)))
880
882
 
            then true
881
883
 
            else ((lastBlock.timestamp - FIVEMINUTESMILLIS) > time))
882
884
 
            then throw("signature outdated")
883
885
 
            else {
884
886
 
                let txFromMsg = newLocTxVer[1]
885
887
 
                let userAddr = toString(caller)
886
888
 
                let lastTx = valueOrElse(getString(keyLastTxIdByUser(userAddr)), "")
887
889
 
                if ((lastTx != txFromMsg))
888
890
 
                    then throw(((("Tx ids don't match! In state: " + lastTx) + ", in msg: ") + txFromMsg))
889
891
 
                    else {
890
892
 
                        let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(userAddr)), "You don't have a duck staked")
891
893
 
                        let keyHealth = keyDuckHealth(duckAssetId)
892
894
 
                        let oldFromState = valueOrElse(getInteger(keyHealth), 100)
893
895
 
                        if ((oldFromState != curHP))
894
896
 
                            then throw(((("oldHealth=" + toString(valueOrElse(getInteger(keyHealth), 100))) + " from state does not match one from flight log=") + toString(curHP)))
895
897
 
                            else if ((0 >= curHP))
896
898
 
                                then throw("You can't fly with zero health")
897
899
 
                                else if ((0 >= newHP))
898
900
 
                                    then $Tuple3(((if (!(shouldUseMat))
899
901
 
                                        then [ScriptTransfer(caller, EXPUSDT, usdtAssetId)]
900
902
 
                                        else nil) :+ IntegerEntry(keyHealth, 0)), "", 0)
901
903
 
                                    else {
902
904
 
                                        let bonus = if ((size(flightLog) > flBonus))
903
905
 
                                            then flightLog[flBonus]
904
906
 
                                            else ""
905
907
 
                                        let sentAmount = if ((bonus == "$"))
906
908
 
                                            then asInt(invoke(restContract, "sendUsdtPrize", [userAddr], nil))
907
909
 
                                            else 0
908
910
 
                                        let bpKey = keyBackpackByDuck(duckAssetId)
909
911
 
                                        let currentPack = getBackpack(bpKey)
910
912
 
                                        let mList = split(currentPack[bpIdxMat], "_")
911
913
 
                                        let newMat = makeString(subtractMaterials(shouldUseMat, mList, EXPMATERIALS), "_")
912
914
 
                                        let e = expeditionInternal(caller, txId)
913
915
 
                                        let id = e._2._1
914
916
 
                                        $Tuple3((((e._1 :+ StringEntry(keyDuckLocation(duckAssetId), makeString([e._2._2, "L", id], "_"))) :+ IntegerEntry(keyHealth, newHP)) :+ StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))), id, sentAmount)
915
917
 
                                        }
916
918
 
                        }
917
919
 
                }
918
920
 
        }
919
921
 
920
922
 
921
923
 
func applyBonuses (landAssetId,pieces) = {
922
924
 
    let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
923
925
 
    let artPieces = valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), 0)
924
926
 
    let add6 = (infraLevel / 6)
925
927
 
    let add7 = (infraLevel / 7)
926
928
 
    ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, ((infraLevel + add6) + (2 * add7)), 5)) + fraction(DAILYRESBYPIECE, artPieces, (pieces * 5)))
927
929
 
    }
928
930
 
929
931
 
930
932
 
func checkClaimConditions (addr,claimMode,landAssetIdIn) = {
931
-
    let $t03189632435 = if ((claimMode == claimModeWh))
933
+
    let $t03195532494 = if ((claimMode == claimModeWh))
932
934
 
        then $Tuple2(landAssetIdIn, valueOrElse(getString(keyStakedDuckByOwner(addr)), ""))
933
935
 
        else {
934
936
 
            let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
935
937
 
            let curLocation = valueOrElse(getString(keyDuckLocation(duckAssetId)), DEFAULTLOCATION)
936
938
 
            let loc = split(value(curLocation), "_")
937
939
 
            if ((loc[locIdxType] != "L"))
938
940
 
                then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
939
941
 
                else $Tuple2(loc[locIdxId], duckAssetId)
940
942
 
            }
941
-
    let landAssetId = $t03189632435._1
942
-
    let duckId = $t03189632435._2
943
+
    let landAssetId = $t03195532494._1
944
+
    let duckId = $t03195532494._2
943
945
 
    let asset = value(assetInfo(fromBase58String(landAssetId)))
944
946
 
    let timeKey = keyStakedTimeByAssetId(landAssetId)
945
947
 
    let savedTime = valueOrErrorMessage(getInteger(timeKey), (("Land " + asset.name) + " is not staked"))
946
948
 
    let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
947
949
 
    if ((owner != addr))
948
950
 
        then throw((LANDPREFIX + " is not yours"))
949
951
 
        else {
950
952
 
            let d = split(asset.description, "_")
951
953
 
            $Tuple4(duckId, landAssetId, d, savedTime)
952
954
 
            }
953
955
 
    }
954
956
 
955
957
 
956
958
 
func claimResInternal (addr,amount,claimMode,landAssetIdIn) = if ((0 > amount))
957
959
 
    then throw("Negative amount")
958
960
 
    else {
959
961
 
        let c = checkClaimConditions(addr, claimMode, landAssetIdIn)
960
962
 
        let landSize = c._3[recLandSize]
961
963
 
        let terrainCounts = countTerrains(c._3[recTerrains])
962
964
 
        let deltaTime = (lastBlock.timestamp - c._4)
963
965
 
        if ((0 > deltaTime))
964
966
 
            then throw(((("Saved timestamp is in future, saved = " + toString(c._4)) + ", current = ") + toString(lastBlock.timestamp)))
965
967
 
            else {
966
968
 
                let pieces = numPiecesBySize(landSize)
967
969
 
                let dailyProductionByPiece = applyBonuses(c._2, pieces)
968
970
 
                let availRes = fraction(deltaTime, (dailyProductionByPiece * pieces), DAYMILLIS)
969
971
 
                if ((amount > availRes))
970
972
 
                    then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))
971
973
 
                    else {
972
974
 
                        let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (dailyProductionByPiece * pieces))
973
975
 
                        let newTimestamp = (lastBlock.timestamp - newDeltaTime)
974
976
 
                        let landIndex = (pieces / SSIZE)
975
977
 
                        let resToClaim = virtClaim(terrainCounts, (deltaTime - newDeltaTime), landIndex, dailyProductionByPiece)
976
978
 
                        let whKey = keyWarehouseByLand(c._2)
977
979
 
                        let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(c._2)), 0)
978
980
 
                        let currentWh = getWarehouse(whKey, landIndex, infraLevel)
979
981
 
                        let loft = split(currentWh[whIdxLOFT], "_")
980
982
 
                        let whSpaceLeft = parseIntValue(loft[volFree])
981
983
 
                        if (if ((claimMode == claimModeWh))
982
984
 
                            then (amount > whSpaceLeft)
983
985
 
                            else false)
984
986
 
                            then throw((("Only " + toString(whSpaceLeft)) + " space left in warehouse"))
985
987
 
                            else {
986
988
 
                                let bpKey = keyBackpackByDuck(c._1)
987
989
 
                                let currentPack = getBackpack(bpKey)
988
990
 
                                let currentPackRes = split(currentPack[bpIdxRes], "_")
989
991
 
                                let currentWhRes = split(currentWh[whIdxRes], "_")
990
-
                                let $t03480935680 = if ((claimMode == claimModeWh))
992
+
                                let $t03486835739 = if ((claimMode == claimModeWh))
991
993
 
                                    then $Tuple4(addRes(currentWhRes, terrainCounts, (deltaTime - newDeltaTime), landIndex, dailyProductionByPiece), currentPack[bpIdxRes], (parseIntValue(loft[volOccupied]) + resToClaim._2), (parseIntValue(loft[volFree]) - resToClaim._2))
992
994
 
                                    else if ((claimMode == claimModeDuck))
993
995
 
                                        then $Tuple4(currentWh[whIdxRes], addRes(currentPackRes, terrainCounts, (deltaTime - newDeltaTime), landIndex, dailyProductionByPiece), parseIntValue(loft[volOccupied]), parseIntValue(loft[volFree]))
994
996
 
                                        else {
995
997
 
                                            let distr = distributeRes(currentWhRes, currentPackRes, resToClaim, whSpaceLeft)
996
998
 
                                            let whAm = min([parseIntValue(loft[volFree]), resToClaim._2])
997
999
 
                                            $Tuple4(distr._1, distr._2, (parseIntValue(loft[volOccupied]) + whAm), (parseIntValue(loft[volFree]) - whAm))
998
1000
 
                                            }
999
-
                                let whRes = $t03480935680._1
1000
-
                                let bpRes = $t03480935680._2
1001
-
                                let loftO = $t03480935680._3
1002
-
                                let loftF = $t03480935680._4
1001
+
                                let whRes = $t03486835739._1
1002
+
                                let bpRes = $t03486835739._2
1003
+
                                let loftO = $t03486835739._3
1004
+
                                let loftF = $t03486835739._4
1003
1005
 
                                $Tuple5([IntegerEntry(keyStakedTimeByAssetId(c._2), newTimestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, c._2, addr), newTimestamp)], bpKey, [currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], whKey, [currentWh[whIdxLevels], whRes, currentWh[whIdxMat], currentWh[whIdxProd], makeString([loft[volLocked], toString(loftO), toString(loftF), loft[volTotal]], "_")])
1004
1006
 
                                }
1005
1007
 
                        }
1006
1008
 
                }
1007
1009
 
        }
1008
1010
 
1009
1011
 
1010
1012
 
func claimAll (addr,landAssetId,pieces,claimMode) = {
1011
1013
 
    let timeKey = keyStakedTimeByAssetId(landAssetId)
1012
1014
 
    let savedTime = value(getInteger(timeKey))
1013
1015
 
    let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId, pieces), DAYMILLIS) * pieces)
1014
1016
 
    claimResInternal(addr, availRes, claimMode, landAssetId)
1015
1017
 
    }
1016
1018
 
1017
1019
 
1018
1020
 
func upInfraCommon (shouldUseMat,caller,paymentAmount,landAssetId) = {
1019
1021
 
    let addr = toString(caller)
1020
1022
 
    let c = checkClaimConditions(addr, claimModeWhThenDuck, landAssetId)
1021
1023
 
    let pieces = numPiecesBySize(c._3[recLandSize])
1022
1024
 
    let infraKey = keyInfraLevelByAssetId(c._2)
1023
1025
 
    let curLevel = valueOrElse(getInteger(infraKey), 0)
1024
1026
 
    if ((curLevel >= 3))
1025
1027
 
        then throw("Currently max infrastructure level = 3")
1026
1028
 
        else {
1027
1029
 
            let newLevel = (curLevel + 1)
1028
1030
 
            let cost = fraction(InfraUpgradeCostSUsdt, (pieces * newLevel), SSIZE)
1029
1031
 
            if (if (!(shouldUseMat))
1030
1032
 
                then (paymentAmount != cost)
1031
1033
 
                else false)
1032
1034
 
                then throw(("Payment attached should be " + toString(cost)))
1033
1035
 
                else {
1034
1036
 
                    let bpKey = keyBackpackByDuck(c._1)
1035
1037
 
                    let currentPack = getBackpack(bpKey)
1036
1038
 
                    let mList = split(currentPack[bpIdxMat], "_")
1037
1039
 
                    let newMat = makeString(subtractMaterials(shouldUseMat, mList, fraction(InfraUpgradeCostS, (pieces * newLevel), SSIZE)), "_")
1038
1040
 
                    let claimResult = claimAll(addr, c._2, pieces, claimModeWhThenDuck)
1039
1041
 
                    let whData = claimResult._5
1040
1042
 
                    let oldVol = getWarehouseTotalVolume(whData[whIdxLevels])
1041
1043
 
                    let newVolData = makeString([split(whData[whIdxLevels], "_")[0], toString(newLevel)], "_")
1042
1044
 
                    let newVol = getWarehouseTotalVolume(newVolData)
1043
1045
 
                    let loft = split(whData[whIdxLOFT], "_")
1044
1046
 
                    let newLoftStr = makeString([loft[volLocked], loft[volOccupied], toString(((parseIntValue(loft[volFree]) + newVol) - oldVol)), toString(newVol)], "_")
1045
1047
 
                    $Tuple2(([IntegerEntry(infraKey, newLevel), IntegerEntry(keyInfraLevelByAssetIdAndOwner(c._2, addr), newLevel), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], claimResult._3[bpIdxRes], newMat, currentPack[bpIdxProd]], ":")), StringEntry(claimResult._4, makeString([newVolData, whData[whIdxRes], whData[whIdxMat], whData[whIdxProd], newLoftStr], ":"))] ++ claimResult._1), newLevel)
1046
1048
 
                    }
1047
1049
 
            }
1048
1050
 
    }
1049
1051
 
1050
1052
 
1051
1053
 
func activatePresaleArt (addr,landAssetIdIn) = {
1052
1054
 
    let c = checkClaimConditions(addr, claimModeWhThenDuck, landAssetIdIn)
1053
1055
 
    let landAssetId = c._2
1054
1056
 
    let pieces = numPiecesBySize(c._3[recLandSize])
1055
1057
 
    let activationKey = keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)
1056
1058
 
    if ((valueOrElse(getInteger(activationKey), 0) > 0))
1057
1059
 
        then throw("Presale artifact is already activated")
1058
1060
 
        else if ((parseIntValue(c._3[recLandNum]) > PRESALENUMLANDS))
1059
1061
 
            then throw((((LANDPREFIX + " ") + landAssetId) + " is not eligible for presale artifact"))
1060
1062
 
            else {
1061
1063
 
                let claimResult = claimAll(addr, landAssetId, pieces, claimModeWhThenDuck)
1062
1064
 
                ((((claimResult._1 :+ IntegerEntry(activationKey, pieces)) :+ IntegerEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr), pieces)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":"))) :+ StringEntry(claimResult._4, makeString(claimResult._5, ":")))
1063
1065
 
                }
1064
1066
 
    }
1065
1067
 
1066
1068
 
1067
1069
 
func mergeInternal (newLandSize,newLevel,formula,addr,landAssetIds,txId,needMat) = {
1068
1070
 
    let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
1069
1071
 
    func checkMerge (acc,landAssetId) =     {
1070
1072
 
        let asset = value(assetInfo(fromBase58String(landAssetId)))
1071
1073
 
        let timeKey = keyStakedTimeByAssetId(landAssetId)
1072
1074
 
        let savedTime = valueOrErrorMessage(getInteger(timeKey), (("NFT " + asset.name) + " is not staked"))
1073
1075
 
        let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1074
1076
 
        if ((owner != addr))
1075
1077
 
            then throw((LANDPREFIX + " is not yours"))
1076
1078
 
            else {
1077
1079
 
                let d = split(asset.description, "_")
1078
1080
 
                let continent = d[recContinent]
1079
1081
 
                if (if ((acc._3 != ""))
1080
1082
 
                    then (acc._3 != continent)
1081
1083
 
                    else false)
1082
1084
 
                    then throw("Lands should be on the same continent to merge")
1083
1085
 
                    else {
1084
1086
 
                        let landSize = d[recLandSize]
1085
1087
 
                        let sizesIn = acc._1
1086
1088
 
                        let i = valueOrErrorMessage(indexOf(sizesIn, landSize), "You haven't passed all the lands needed")
1087
1089
 
                        let sizesOut = (take(sizesIn, i) + drop(sizesIn, (i + 1)))
1088
1090
 
                        let pieces = numPiecesBySize(landSize)
1089
1091
 
                        let arts = (acc._2 + valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), 0))
1090
1092
 
                        let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
1091
1093
 
                        let reqLevel =                         match landSize {
1092
1094
 
                            case _ => 
1093
1095
 
                                if (("S" == $match0))
1094
1096
 
                                    then 3
1095
1097
 
                                    else if (("M" == $match0))
1096
1098
 
                                        then 4
1097
1099
 
                                        else if (("L" == $match0))
1098
1100
 
                                            then 5
1099
1101
 
                                            else if (("XL" == $match0))
1100
1102
 
                                                then 6
1101
1103
 
                                                else throw("Only S, M, L, XL can merge")
1102
1104
 
                        }
1103
1105
 
                        if ((infraLevel != reqLevel))
1104
1106
 
                            then throw("All lands should be maxed to merge")
1105
1107
 
                            else {
1106
1108
 
                                let landNum = d[recLandNum]
1107
1109
 
                                let terrainCounts = countTerrains(d[recTerrains])
1108
1110
 
                                let deltaTime = (lastBlock.timestamp - savedTime)
1109
1111
 
                                if ((0 > deltaTime))
1110
1112
 
                                    then throw(((("Saved timestamp is in future, saved = " + toString(savedTime)) + ", current = ") + toString(lastBlock.timestamp)))
1111
1113
 
                                    else {
1112
1114
 
                                        let dailyProductionByPiece = applyBonuses(landAssetId, pieces)
1113
1115
 
                                        let landIndex = (pieces / SSIZE)
1114
1116
 
                                        let bpRes = addRes(split(acc._4, "_"), terrainCounts, deltaTime, landIndex, dailyProductionByPiece)
1115
1117
 
                                        let props = updateProportionsInternal(split(acc._6, "_"), terrainCounts, landIndex, -1)
1116
1118
 
                                        let lands = acc._7
1117
1119
 
                                        let idx = indexOf(lands, landAssetId)
1118
1120
 
                                        if (!(isDefined(idx)))
1119
1121
 
                                            then throw(("Your staked lands don't contain " + landAssetId))
1120
1122
 
                                            else {
1121
1123
 
                                                let customKey = keyLandAssetIdToCustomName(landAssetId)
1122
1124
 
                                                let customName = valueOrElse(getString(customKey), "")
1123
1125
 
                                                $Tuple7(sizesOut, arts, continent, bpRes, (((((((((((((acc._5 :+ DeleteEntry(keyStakedTimeByAssetId(landAssetId))) :+ DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, addr))) :+ DeleteEntry(keyLandToAssetId(landNum))) :+ DeleteEntry(keyLandAssetIdToOwner(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetId(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetIdAndOwner(landAssetId, addr))) :+ DeleteEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId))) :+ DeleteEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr))) :+ DeleteEntry(keyLandNumToOwner(landNum))) :+ DeleteEntry(keyWarehouseByLand(landAssetId))) :+ DeleteEntry(customKey)) :+ DeleteEntry(keyLandCustomNameToAssetId(customName))) :+ Burn(fromBase58String(landAssetId), 1)), props, removeByIndex(lands, value(idx)))
1124
1126
 
                                                }
1125
1127
 
                                        }
1126
1128
 
                                }
1127
1129
 
                        }
1128
1130
 
                }
1129
1131
 
        }
1130
1132
 
1131
1133
 
    let bpKey = keyBackpackByDuck(duckAssetId)
1132
1134
 
    let currentPack = getBackpack(bpKey)
1133
1135
 
    let propStr = valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0")
1134
1136
 
    let landsKey = keyStakedLandsByOwner(addr)
1135
1137
 
    let landsStr = getString(landsKey)
1136
1138
 
    let landsIn = if (isDefined(landsStr))
1137
1139
 
        then split_51C(value(landsStr), "_")
1138
1140
 
        else nil
1139
1141
 
    let r = {
1140
1142
 
        let $l = landAssetIds
1141
1143
 
        let $s = size($l)
1142
1144
 
        let $acc0 = $Tuple7(formula, 0, "", currentPack[bpIdxRes], nil, propStr, landsIn)
1143
1145
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
1144
1146
 
            then $a
1145
1147
 
            else checkMerge($a, $l[$i])
1146
1148
 
1147
1149
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
1148
1150
 
            then $a
1149
1151
 
            else throw("List size exceeds 5")
1150
1152
 
1151
1153
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
1152
1154
 
        }
1153
1155
 
    let continent = r._3
1154
1156
 
    let continentIdx = valueOrErrorMessage(indexOf(continents, continent), ("Unknown continent: " + continent))
1155
1157
 
    let terrains = genTerrains(abs(toBigInt(txId)), continentIdx)
1156
1158
 
    let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), (PRESALENUMLANDS + 1))
1157
1159
 
    let newLandNum = toString(freeNum)
1158
1160
 
    let issue = Issue(nftName(newLandNum, newLandSize), makeString([newLandNum, newLandSize, terrains, continent], "_"), 1, 0, false)
1159
1161
 
    let assetId = calculateAssetId(issue)
1160
1162
 
    let newLandAssetId = toBase58String(assetId)
1161
1163
 
    let newMat = makeString(subtractMaterials((needMat > 0), split(currentPack[bpIdxMat], "_"), needMat), "_")
1162
1164
 
    $Tuple2(((((((((((((((r._5 :+ (if ((size(r._7) > 0))
1163
1165
 
        then StringEntry(landsKey, makeString_11C(r._7, "_"))
1164
1166
 
        else DeleteEntry(landsKey))) :+ IntegerEntry(keyNextFreeLandNum(), (freeNum + 1))) :+ issue) :+ StringEntry(keyLandToAssetId(newLandNum), newLandAssetId)) :+ StringEntry(keyLandAssetIdToOwner(newLandAssetId), addr)) :+ StringEntry(keyLandNumToOwner(newLandNum), addr)) :+ IntegerEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, newLandAssetId), r._2)) :+ IntegerEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, newLandAssetId, addr), r._2)) :+ IntegerEntry(keyInfraLevelByAssetId(newLandAssetId), newLevel)) :+ IntegerEntry(keyInfraLevelByAssetIdAndOwner(newLandAssetId, addr), newLevel)) :+ StringEntry(bpKey, makeString([currentPack[bpIdxLevel], r._4, newMat, currentPack[bpIdxProd]], ":"))) :+ StringEntry(keyResProportions(), r._6)) :+ StringEntry(keyDuckLocation(duckAssetId), makeString([continent, "L", newLandAssetId], "_"))) :+ ScriptTransfer(addressFromStringValue(addr), 1, assetId)), newLandAssetId)
1165
1167
 
    }
1166
1168
 
1167
1169
 
1168
1170
 
func s2m (addr,landAssetIds,txId) = mergeInternal("M", 3, "SSSS", addr, landAssetIds, txId, 0)
1169
1171
 
1170
1172
 
1171
1173
 
func m2l (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
1172
1174
 
    let cost = (InfraUpgradeCostSUsdt * 4)
1173
1175
 
    if (if (!(shouldUseMat))
1174
1176
 
        then (paymentAmount != cost)
1175
1177
 
        else false)
1176
1178
 
        then throw(("Payment attached should be " + toString(cost)))
1177
1179
 
        else mergeInternal("L", 4, "SMM", addr, landAssetIds, txId, (InfraUpgradeCostS * 4))
1178
1180
 
    }
1179
1181
 
1180
1182
 
1181
1183
 
func l2xl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
1182
1184
 
    let cost = (InfraUpgradeCostSUsdt * 47)
1183
1185
 
    if (if (!(shouldUseMat))
1184
1186
 
        then (paymentAmount != cost)
1185
1187
 
        else false)
1186
1188
 
        then throw(("Payment attached should be " + toString(cost)))
1187
1189
 
        else mergeInternal("XL", 5, "SSSML", addr, landAssetIds, txId, (InfraUpgradeCostS * 47))
1188
1190
 
    }
1189
1191
 
1190
1192
 
1191
1193
 
func xl2xxl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
1192
1194
 
    let cost = (InfraUpgradeCostSUsdt * 54)
1193
1195
 
    if (if (!(shouldUseMat))
1194
1196
 
        then (paymentAmount != cost)
1195
1197
 
        else false)
1196
1198
 
        then throw(("Payment attached should be " + toString(cost)))
1197
1199
 
        else mergeInternal("XXL", 6, "LXL", addr, landAssetIds, txId, (InfraUpgradeCostS * 54))
1198
1200
 
    }
1199
1201
 
1200
1202
 
1201
1203
 
func mergeCommon (shouldUseMat,addr,paymentAmount,landAssetIds,txId) = {
1202
1204
 
    let mergeResult =     match size(landAssetIds) {
1203
1205
 
        case _ => 
1204
1206
 
            if ((4 == $match0))
1205
1207
 
                then s2m(addr, landAssetIds, txId)
1206
1208
 
                else if ((3 == $match0))
1207
1209
 
                    then m2l(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
1208
1210
 
                    else if ((5 == $match0))
1209
1211
 
                        then l2xl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
1210
1212
 
                        else if ((2 == $match0))
1211
1213
 
                            then xl2xxl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
1212
1214
 
                            else throw("Unknown merge")
1213
1215
 
    }
1214
1216
 
    mergeResult
1215
1217
 
    }
1216
1218
 
1217
1219
 
1218
1220
 
func prolog (i) = if (if ((i.originCaller != restContract))
1219
1221
 
    then valueOrElse(getBoolean(keyBlocked()), false)
1220
1222
 
    else false)
1221
1223
 
    then throw("Contracts are under maintenance")
1222
1224
 
    else StringEntry(keyLastTxIdByUser(toString(i.originCaller)), toBase58String(i.transactionId))
1223
1225
 
1224
1226
 
1225
1227
 
@Callable(i)
1226
1228
 
func constructorV1 (restAddr) = if ((i.caller != this))
1227
1229
 
    then throw("Permission denied")
1228
1230
 
    else [StringEntry(keyRestAddress(), restAddr)]
1229
1231
 
1230
1232
 
1231
1233
 
1232
1234
 
@Callable(i)
1233
1235
 
func setBlocked (isBlocked) = if ((i.caller != this))
1234
1236
 
    then throw("permission denied")
1235
1237
 
    else [BooleanEntry(keyBlocked(), isBlocked)]
1236
1238
 
1237
1239
 
1238
1240
 
1239
1241
 
@Callable(i)
1240
1242
 
func stakeLand () = {
1241
1243
 
    let prologAction = prolog(i)
1242
1244
 
    if ((size(i.payments) != 1))
1243
1245
 
        then throw("Exactly one payment required")
1244
1246
 
        else {
1245
1247
 
            let pmt = value(i.payments[0])
1246
1248
 
            let assetId = value(pmt.assetId)
1247
1249
 
            let address = toString(i.caller)
1248
1250
 
            if ((pmt.amount != 1))
1249
1251
 
                then throw((("NFT " + LANDPREFIX) + " token should be attached as payment"))
1250
1252
 
                else {
1251
1253
 
                    let asset = value(assetInfo(assetId))
1252
1254
 
                    if ((asset.issuer != this))
1253
1255
 
                        then throw("Unknown issuer of token")
1254
1256
 
                        else if (!(contains(asset.name, LANDPREFIX)))
1255
1257
 
                            then throw((("Only NFT " + LANDPREFIX) + " tokens are accepted"))
1256
1258
 
                            else {
1257
1259
 
                                let landNumSize = drop(asset.name, 4)
1258
1260
 
                                let landNum = if (contains(landNumSize, "XXL"))
1259
1261
 
                                    then dropRight(landNumSize, 3)
1260
1262
 
                                    else if (contains(landNumSize, "XL"))
1261
1263
 
                                        then dropRight(landNumSize, 2)
1262
1264
 
                                        else dropRight(landNumSize, 1)
1263
1265
 
                                if (!(isDefined(parseInt(landNum))))
1264
1266
 
                                    then throw(("Cannot parse land number from " + asset.name))
1265
1267
 
                                    else {
1266
1268
 
                                        let landAssetId = toBase58String(assetId)
1267
1269
 
                                        let timeKey = keyStakedTimeByAssetId(landAssetId)
1268
1270
 
                                        if (isDefined(getInteger(timeKey)))
1269
1271
 
                                            then throw((("NFT " + asset.name) + " is already staked"))
1270
1272
 
                                            else {
1271
1273
 
                                                let d = split(asset.description, "_")
1272
1274
 
                                                let terrainCounts = countTerrains(d[recTerrains])
1273
1275
 
                                                let pieces = numPiecesBySize(d[recLandSize])
1274
1276
 
                                                let props = updateProportions(terrainCounts, (pieces / SSIZE), 1)
1275
1277
 
                                                let artPieces = valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), 0)
1276
1278
 
                                                let landsStr = getString(keyStakedLandsByOwner(address))
1277
1279
 
                                                let lands = if (isDefined(landsStr))
1278
1280
 
                                                    then split_51C(value(landsStr), "_")
1279
1281
 
                                                    else nil
1280
1282
 
                                                if (containsElement(lands, landAssetId))
1281
1283
 
                                                    then throw(("Your staked lands already contain " + landAssetId))
1282
1284
 
                                                    else {
1283
1285
 
                                                        let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
1284
1286
 
[IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, address), lastBlock.timestamp), StringEntry(keyStakedLandsByOwner(address), makeString_11C((lands :+ landAssetId), "_")), StringEntry(keyLandAssetIdToOwner(landAssetId), address), StringEntry(keyLandNumToOwner(landNum), address), IntegerEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, address), artPieces), IntegerEntry(keyInfraLevelByAssetIdAndOwner(landAssetId, address), infraLevel), StringEntry(keyResProportions(), props), prologAction]
1285
1287
 
                                                        }
1286
1288
 
                                                }
1287
1289
 
                                        }
1288
1290
 
                                }
1289
1291
 
                    }
1290
1292
 
            }
1291
1293
 
    }
1292
1294
 
1293
1295
 
1294
1296
 
1295
1297
 
@Callable(i)
1296
1298
 
func unstakeLand (landAssetIdIn) = {
1297
1299
 
    let prologAction = prolog(i)
1298
1300
 
    if ((size(i.payments) != 0))
1299
1301
 
        then throw("No payments required")
1300
1302
 
        else {
1301
1303
 
            let addr = toString(i.caller)
1302
1304
 
            let c = checkClaimConditions(addr, claimModeDuck, landAssetIdIn)
1303
1305
 
            let landAssetId = c._2
1304
1306
 
            let landsKey = keyStakedLandsByOwner(addr)
1305
1307
 
            let terrainCounts = countTerrains(c._3[recTerrains])
1306
1308
 
            let pieces = numPiecesBySize(c._3[recLandSize])
1307
1309
 
            let props = updateProportions(terrainCounts, (pieces / SSIZE), -1)
1308
1310
 
            let claimResult = claimAll(addr, landAssetId, pieces, claimModeDuck)
1309
1311
 
            let lands = split_51C(valueOrElse(getString(landsKey), ""), "_")
1310
1312
 
            let idx = indexOf(lands, landAssetId)
1311
1313
 
            if (!(isDefined(idx)))
1312
1314
 
                then throw(("Your staked lands don't contain " + landAssetId))
1313
1315
 
                else {
1314
1316
 
                    let t = value(blockInfoByHeight(height)).timestamp
1315
1317
 
                    let releaseTime = valueOrElse(getInteger(govContract, keyUserGwlReleaseTime(addr)), 0)
1316
1318
 
                    if ((releaseTime >= t))
1317
1319
 
                        then throw(("Your gWL are taking part in voting, cannot unstake until " + toString(releaseTime)))
1318
1320
 
                        else [ScriptTransfer(i.caller, 1, fromBase58String(landAssetId)), DeleteEntry(keyStakedTimeByAssetId(landAssetId)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, addr)), StringEntry(keyResProportions(), props), StringEntry(claimResult._2, makeString(claimResult._3, ":")), if ((size(lands) > 1))
1319
1321
 
                            then StringEntry(landsKey, makeString_11C(removeByIndex(lands, value(idx)), "_"))
1320
1322
 
                            else DeleteEntry(landsKey), prologAction]
1321
1323
 
                    }
1322
1324
 
            }
1323
1325
 
    }
1324
1326
 
1325
1327
 
1326
1328
 
1327
1329
 
@Callable(i)
1328
1330
 
func stakeDuck () = {
1329
1331
 
    let prologAction = prolog(i)
1330
1332
 
    if ((size(i.payments) != 1))
1331
1333
 
        then throw("Exactly one payment required")
1332
1334
 
        else {
1333
1335
 
            let pmt = value(i.payments[0])
1334
1336
 
            let assetId = value(pmt.assetId)
1335
1337
 
            let address = toString(i.caller)
1336
1338
 
            if ((pmt.amount != 1))
1337
1339
 
                then throw((("NFT " + DUCKPREFIX) + " token should be attached as payment"))
1338
1340
 
                else {
1339
1341
 
                    let asset = value(assetInfo(assetId))
1340
1342
 
                    if (if ((asset.issuer != incubatorAddr))
1341
1343
 
                        then (asset.issuer != breederAddr)
1342
1344
 
                        else false)
1343
1345
 
                        then throw((("Unknown issuer of " + DUCKPREFIX) + " token"))
1344
1346
 
                        else if (!(contains(asset.name, DUCKPREFIX)))
1345
1347
 
                            then throw((("Only NFT " + DUCKPREFIX) + " tokens are accepted"))
1346
1348
 
                            else {
1347
1349
 
                                let assetIdStr = toBase58String(assetId)
1348
1350
 
                                let timeKey = keyStakedTimeByAssetId(assetIdStr)
1349
1351
 
                                if (isDefined(getInteger(timeKey)))
1350
1352
 
                                    then throw((("NFT " + asset.name) + " is already staked"))
1351
1353
 
                                    else if (isDefined(getString(keyStakedDuckByOwner(address))))
1352
1354
 
                                        then throw(("You already staked one duck: " + asset.name))
1353
1355
 
                                        else {
1354
1356
 
                                            let locKey = keyDuckLocation(assetIdStr)
1355
1357
 
                                            let location = getString(locKey)
1356
1358
 
                                            let bpKey = keyBackpackByDuck(assetIdStr)
1357
1359
 
                                            let backpack = getString(bpKey)
1358
1360
 
                                            ([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, toBase58String(assetId), address), lastBlock.timestamp), StringEntry(keyDuckIdToOwner(assetIdStr), address), StringEntry(keyStakedDuckByOwner(address), assetIdStr)] ++ (if (isDefined(location))
1359
1361
 
                                                then nil
1360
1362
 
                                                else ([StringEntry(locKey, DEFAULTLOCATION)] ++ (if (isDefined(backpack))
1361
1363
 
                                                    then nil
1362
1364
 
                                                    else (([StringEntry(bpKey, "0:0_0_0_0_0_0:0_0_0_0_0_0:")] :+ IntegerEntry(keyDuckHealth(assetIdStr), 100)) :+ prologAction)))))
1363
1365
 
                                            }
1364
1366
 
                                }
1365
1367
 
                    }
1366
1368
 
            }
1367
1369
 
    }
1368
1370
 
1369
1371
 
1370
1372
 
1371
1373
 
@Callable(i)
1372
1374
 
func unstakeDuck (assetIdStr) = {
1373
1375
 
    let prologAction = prolog(i)
1374
1376
 
    if ((size(i.payments) != 0))
1375
1377
 
        then throw("No payments required")
1376
1378
 
        else {
1377
1379
 
            let assetId = fromBase58String(assetIdStr)
1378
1380
 
            let address = toString(i.caller)
1379
1381
 
            let asset = value(assetInfo(assetId))
1380
1382
 
            let timeKey = keyStakedTimeByAssetId(toBase58String(assetId))
1381
1383
 
            if (!(isDefined(getInteger(timeKey))))
1382
1384
 
                then throw((("NFT " + asset.name) + " is not staked"))
1383
1385
 
                else if (!(isDefined(getString(keyStakedDuckByOwner(address)))))
1384
1386
 
                    then throw((("The duck " + asset.name) + " is not staked"))
1385
1387
 
                    else {
1386
1388
 
                        let owner = valueOrErrorMessage(getString(keyDuckIdToOwner(toBase58String(assetId))), (("NFT " + asset.name) + " is orphaned"))
1387
1389
 
                        if ((owner != address))
1388
1390
 
                            then throw("Staked NFT is not yours")
1389
1391
 
                            else {
1390
1392
 
                                let keyHealth = keyDuckHealth(assetIdStr)
1391
1393
 
                                let health = valueOrElse(getInteger(keyHealth), 100)
1392
1394
 
                                if ((100 > health))
1393
1395
 
                                    then throw("Please heal your duck before unstaking")
1394
1396
 
                                    else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyHealth), DeleteEntry(keyDuckLocation(assetIdStr)), DeleteEntry(keyDuckIdToOwner(assetIdStr)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, assetIdStr, address)), DeleteEntry(keyStakedDuckByOwner(address)), prologAction]
1395
1397
 
                                }
1396
1398
 
                        }
1397
1399
 
            }
1398
1400
 
    }
1399
1401
 
1400
1402
 
1401
1403
 
1402
1404
 
@Callable(i)
1403
1405
 
func claimRes (amount,landAssetIdStr) = {
1404
1406
 
    let prologAction = prolog(i)
1405
1407
 
    if ((size(i.payments) != 0))
1406
1408
 
        then throw("No payments required")
1407
1409
 
        else {
1408
1410
 
            let addr = toString(i.originCaller)
1409
1411
 
            let result = claimResInternal(addr, amount, claimModeDuck, landAssetIdStr)
1410
1412
 
            $Tuple2((((result._1 :+ StringEntry(result._2, makeString(result._3, ":"))) :+ StringEntry(result._4, makeString(result._5, ":"))) :+ prologAction), result._3[bpIdxRes])
1411
1413
 
            }
1412
1414
 
    }
1413
1415
 
1414
1416
 
1415
1417
 
1416
1418
 
@Callable(i)
1417
1419
 
func claimResToWH (amount,landAssetIdStr) = {
1418
1420
 
    let prologAction = prolog(i)
1419
1421
 
    if ((size(i.payments) != 0))
1420
1422
 
        then throw("No payments required")
1421
1423
 
        else {
1422
1424
 
            let addr = toString(i.originCaller)
1423
1425
 
            let result = claimResInternal(addr, amount, claimModeWh, landAssetIdStr)
1424
1426
 
            $Tuple2((((result._1 :+ StringEntry(result._2, makeString(result._3, ":"))) :+ StringEntry(result._4, makeString(result._5, ":"))) :+ prologAction), result._5[whIdxRes])
1425
1427
 
            }
1426
1428
 
    }
1427
1429
 
1428
1430
 
1429
1431
 
1430
1432
 
@Callable(i)
1431
1433
 
func flight (message,sig) = {
1432
1434
 
    let prologAction = prolog(i)
1433
1435
 
    if (!(sigVerify_8Kb(message, sig, pub)))
1434
1436
 
        then throw("signature does not match")
1435
1437
 
        else if ((size(i.payments) != 0))
1436
1438
 
            then throw("No payments required")
1437
1439
 
            else {
1438
1440
 
                let parts = split(toUtf8String(message), ";")
1439
1441
 
                let flightLog = split(parts[0], "|")
1440
1442
 
                let hp = split(flightLog[flHealth], "_")
1441
1443
 
                let curHP = parseIntValue(hp[0])
1442
1444
 
                let newHP = parseIntValue(hp[1])
1443
1445
 
                let newLocTxVer = split(parts[1], ":")
1444
1446
 
                let newLocation = newLocTxVer[0]
1445
1447
 
                let time = parseIntValue(flightLog[flTimestamp])
1446
1448
 
                if (if ((time > (lastBlock.timestamp + FIVEMINUTESMILLIS)))
1447
1449
 
                    then true
1448
1450
 
                    else ((lastBlock.timestamp - FIVEMINUTESMILLIS) > time))
1449
1451
 
                    then throw("signature outdated")
1450
1452
 
                    else {
1451
1453
 
                        let txFromMsg = newLocTxVer[1]
1452
1454
 
                        let lastTx = valueOrElse(getString(keyLastTxIdByUser(toString(i.originCaller))), "")
1453
1455
 
                        if ((lastTx != txFromMsg))
1454
1456
 
                            then throw(((("Tx ids don't match! In state: " + lastTx) + ", in msg: ") + txFromMsg))
1455
1457
 
                            else {
1456
1458
 
                                let userAddr = toString(i.caller)
1457
1459
 
                                let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(userAddr)), "You don't have a duck staked")
1458
1460
 
                                let keyHealth = keyDuckHealth(duckAssetId)
1459
1461
 
                                let oldFromState = valueOrElse(getInteger(keyHealth), 100)
1460
1462
 
                                if ((oldFromState != curHP))
1461
1463
 
                                    then throw(((("oldHealth=" + toString(valueOrElse(getInteger(keyHealth), 100))) + " from state does not match one from flight log=") + toString(curHP)))
1462
1464
 
                                    else if ((0 >= curHP))
1463
1465
 
                                        then throw("You can't fly with zero health")
1464
1466
 
                                        else {
1465
1467
 
                                            let locKey = keyDuckLocation(duckAssetId)
1466
1468
 
                                            let curLocation = valueOrElse(getString(locKey), DEFAULTLOCATION)
1467
1469
 
                                            if ((newLocation == curLocation))
1468
1470
 
                                                then throw("You can't fly to the same location")
1469
1471
 
                                                else {
1470
1472
 
                                                    let bonus = if ((size(flightLog) > flBonus))
1471
1473
 
                                                        then flightLog[flBonus]
1472
1474
 
                                                        else ""
1473
1475
 
                                                    let sentAmount = if (if ((newHP > 0))
1474
1476
 
                                                        then (bonus == "$")
1475
1477
 
                                                        else false)
1476
1478
 
                                                        then asInt(invoke(restContract, "sendUsdtPrize", [userAddr], nil))
1477
1479
 
                                                        else 0
1478
1480
 
                                                    $Tuple2([StringEntry(locKey, if ((newHP > 0))
1479
1481
 
                                                        then newLocation
1480
1482
 
                                                        else curLocation), IntegerEntry(keyHealth, newHP), prologAction], sentAmount)
1481
1483
 
                                                    }
1482
1484
 
                                            }
1483
1485
 
                                }
1484
1486
 
                        }
1485
1487
 
                }
1486
1488
 
    }
1487
1489
 
1488
1490
 
1489
1491
 
1490
1492
 
@Callable(i)
1491
1493
 
func setHealth (health,duckAssetId) = {
1492
1494
 
    let prologAction = prolog(i)
1493
1495
 
    if (if ((0 > health))
1494
1496
 
        then true
1495
1497
 
        else (health > 100))
1496
1498
 
        then throw("HP should be within 0..100")
1497
1499
 
        else [IntegerEntry(keyDuckHealth(duckAssetId), health), prologAction]
1498
1500
 
    }
1499
1501
 
1500
1502
 
1501
1503
 
1502
1504
 
@Callable(i)
1503
-
func heal (medKitLevel,quantity) = {
1505
+
func heal (quantityL1,quantityL2,quantityL3) = {
1504
1506
 
    let prologAction = prolog(i)
1505
-
    if (if ((1 > medKitLevel))
1507
+
    if (if (if ((0 > quantityL1))
1506
1508
 
        then true
1507
-
        else (medKitLevel > 3))
1508
-
        then throw("MedKit levels 1..3 only")
1509
-
        else if ((0 >= quantity))
1510
-
            then throw(("Quantity should be positive! " + toString(quantity)))
1511
-
            else {
1512
-
                let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1513
-
                let keyHealth = keyDuckHealth(duckAssetId)
1514
-
                let oldHealth = valueOrElse(getInteger(keyHealth), 100)
1515
-
                if ((oldHealth >= 100))
1516
-
                    then throw("HP should be < 100 to heal")
1517
-
                    else {
1518
-
                        let bpKey = keyBackpackByDuck(duckAssetId)
1519
-
                        let currentPack = getBackpack(bpKey)
1520
-
                        let productIdx = (medKitLevel - 1)
1521
-
                        let prodList = if ((currentPack[bpIdxProd] == ""))
1522
-
                            then nil
1523
-
                            else split(currentPack[bpIdxProd], "_")
1524
-
                        let bpProdAmount = if ((size(prodList) > productIdx))
1525
-
                            then parseIntValue(prodList[productIdx])
1509
+
        else (0 > quantityL2))
1510
+
        then true
1511
+
        else (0 > quantityL3))
1512
+
        then throw("Quantity cannot be negative")
1513
+
        else {
1514
+
            let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1515
+
            let qts = [quantityL1, quantityL2, quantityL3]
1516
+
            let keyHealth = keyDuckHealth(duckAssetId)
1517
+
            let oldHealth = valueOrElse(getInteger(keyHealth), 100)
1518
+
            if ((oldHealth >= MAXHP))
1519
+
                then throw((("HP should be < " + toString(MAXHP)) + " to heal"))
1520
+
                else {
1521
+
                    let bpKey = keyBackpackByDuck(duckAssetId)
1522
+
                    let currentPack = getBackpack(bpKey)
1523
+
                    let prodList = if ((currentPack[bpIdxProd] == ""))
1524
+
                        then nil
1525
+
                        else split(currentPack[bpIdxProd], "_")
1526
+
                    func iterateProd (acc,ignoredItem) =                     {
1527
+
                        let n = acc._2
1528
+
                        let x = if ((size(prodList) > n))
1529
+
                            then parseIntValue(prodList[n])
1526
1530
 
                            else 0
1527
-
                        if ((quantity > bpProdAmount))
1528
-
                            then throw(((("You have only " + toString(bpProdAmount)) + " of ") + prodTypes[productIdx]))
1529
-
                            else {
1530
-
                                func subtractProd (acc,ignoredItem) =                                 {
1531
-
                                    let n = acc._2
1532
-
                                    let x = if ((size(prodList) > n))
1533
-
                                        then parseIntValue(prodList[n])
1534
-
                                        else 0
1535
-
                                    let y = toString(if ((n == productIdx))
1536
-
                                        then (x - quantity)
1537
-
                                        else x)
1538
-
                                    $Tuple2((acc._1 :+ y), (n + 1))
1539
-
                                    }
1540
-
1541
-
                                let newProdList = (                                let $l = productionMatrix
1542
-
                                let $s = size($l)
1543
-
                                let $acc0 = $Tuple2(nil, 0)
1544
-
                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
1545
-
                                    then $a
1546
-
                                    else subtractProd($a, $l[$i])
1547
-
1548
-
                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
1549
-
                                    then $a
1550
-
                                    else throw("List size exceeds 50")
1551
-
1552
-
                                $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
1553
-
                                let newHealth = (oldHealth + medKitHp[(medKitLevel - 1)])
1554
-
                                $Tuple2([IntegerEntry(keyHealth, newHealth), StringEntry(bpKey, makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString(newProdList, "_")], ":")), prologAction], newHealth)
1531
+
                        if ((3 > n))
1532
+
                            then {
1533
+
                                let q = qts[n]
1534
+
                                if ((q > x))
1535
+
                                    then throw(((("You have only " + toString(x)) + " of ") + prodTypes[n]))
1536
+
                                    else $Tuple3((acc._1 :+ toString((x - q))), (n + 1), (acc._3 + (medKitHp[n] * q)))
1555
1537
 
                                }
1538
+
                            else $Tuple3((acc._1 :+ toString(x)), (n + 1), acc._3)
1556
1539
 
                        }
1557
-
                }
1540
+
1541
+
                    let result = {
1542
+
                        let $l = productionMatrix
1543
+
                        let $s = size($l)
1544
+
                        let $acc0 = $Tuple3(nil, 0, 0)
1545
+
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
1546
+
                            then $a
1547
+
                            else iterateProd($a, $l[$i])
1548
+
1549
+
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
1550
+
                            then $a
1551
+
                            else throw("List size exceeds 50")
1552
+
1553
+
                        $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)
1554
+
                        }
1555
+
                    let newHealth = min([MAXHP, (oldHealth + result._3)])
1556
+
                    $Tuple2([IntegerEntry(keyHealth, newHealth), StringEntry(bpKey, makeString_2C([currentPack[bpIdxLevel], currentPack[bpIdxRes], currentPack[bpIdxMat], makeString(result._1, "_")], ":")), prologAction], newHealth)
1557
+
                    }
1558
+
            }
1558
1559
 
    }
1559
1560
 
1560
1561
 
1561
1562
 
1562
1563
 
@Callable(i)
1563
1564
 
func healES () = {
1564
1565
 
    let prologAction = prolog(i)
1565
1566
 
    if ((size(i.payments) != 1))
1566
1567
 
        then throw("Exactly one payment required")
1567
1568
 
        else {
1568
1569
 
            let pmt = value(i.payments[0])
1569
1570
 
            if ((pmt.assetId != usdtAssetId))
1570
1571
 
                then throw("Allowed USDT payment only!")
1571
1572
 
                else {
1572
1573
 
                    let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
1573
1574
 
                    let keyHealth = keyDuckHealth(duckAssetId)
1574
1575
 
                    let oldHealth = valueOrElse(getInteger(keyHealth), 100)
1575
1576
 
                    if ((oldHealth > 0))
1576
1577
 
                        then throw("HP should be 0 to call Emergency Service")
1577
1578
 
                        else {
1578
1579
 
                            let bpKey = keyBackpackByDuck(duckAssetId)
1579
1580
 
                            let currentPack = getBackpack(bpKey)
1580
1581
 
                            let prodList = if ((currentPack[bpIdxProd] == ""))
1581
1582
 
                                then nil
1582
1583
 
                                else split(currentPack[bpIdxProd], "_")
1583
1584
 
                            let medKitAmount1 = if ((size(prodList) > 0))
1584
1585
 
                                then parseIntValue(prodList[0])
1585
1586
 
                                else 0
1586
1587
 
                            let medKitAmount2 = if ((size(prodList) > 1))
1587
1588
 
                                then parseIntValue(prodList[1])
1588
1589
 
                                else 0
1589
1590
 
                            let medKitAmount3 = if ((size(prodList) > 2))
1590
1591
 
                                then parseIntValue(prodList[2])
1591
1592
 
                                else 0
1592
1593
 
                            if (if (if ((medKitAmount1 > 0))
1593
1594
 
                                then true
1594
1595
 
                                else (medKitAmount2 > 0))
1595
1596
 
                                then true
1596
1597
 
                                else (medKitAmount3 > 0))
1597
1598
 
                                then throw("You have to use own Medical Kit")
1598
1599
 
                                else {
1599
1600
 
                                    let existStr = getString(economyContract, keyEsWarehouse())
1600
1601
 
                                    let existAmounts = if (isDefined(existStr))
1601
1602
 
                                        then split(value(existStr), "_")
1602
1603
 
                                        else nil
1603
1604
 
                                    let existAmount = if ((size(existAmounts) > 0))
1604
1605
 
                                        then parseIntValue(existAmounts[0])
1605
1606
 
                                        else 0
1606
1607
 
                                    if ((0 >= existAmount))
1607
1608
 
                                        then throw("There are no Medical Kits L1 at Emergency Service storage")
1608
1609
 
                                        else {
1609
1610
 
                                            let newHealth = (oldHealth + medKitHp[0])
1610
1611
 
                                            let newES = makeString([toString((existAmount - 1)), removeByIndex(existAmounts, 0)], "_")
1611
1612
 
                                            let recipe = split(productionMatrix[0], "_")
1612
1613
 
                                            let totalMat = getRecipeMaterials(recipe)
1613
1614
 
                                            let packSize = parseIntValue(recipe[recipeIdxPacksize])
1614
1615
 
                                            let sellPrice = fraction((totalMat * ESSELLCOEF), RESOURCEPRICEMIN, (10 * packSize))
1615
1616
 
                                            if ((pmt.amount != sellPrice))
1616
1617
 
                                                then throw(("Payment attached should be " + toString(sellPrice)))
1617
1618
 
                                                else {
1618
-
                                                    let result = asString(invoke(economyContract, "updateEsStorage", [newES], nil))
1619
+
                                                    let result = asString(invoke(economyContract, "updateEsStorage", [newES], [AttachedPayment(usdtAssetId, sellPrice)]))
1619
1620
 
                                                    $Tuple2([IntegerEntry(keyHealth, newHealth), prologAction], result)
1620
1621
 
                                                    }
1621
1622
 
                                            }
1622
1623
 
                                    }
1623
1624
 
                            }
1624
1625
 
                    }
1625
1626
 
            }
1626
1627
 
    }
1627
1628
 
1628
1629
 
1629
1630
 
1630
1631
 
@Callable(i)
1631
1632
 
func updateBackpack (duckAssetId,newPack) = {
1632
1633
 
    let prologAction = prolog(i)
1633
1634
 
    if ((i.caller != economyContract))
1634
1635
 
        then throw("permission denied")
1635
1636
 
        else $Tuple2([StringEntry(keyBackpackByDuck(duckAssetId), newPack), prologAction], newPack)
1636
1637
 
    }
1637
1638
 
1638
1639
 
1639
1640
 
1640
1641
 
@Callable(i)
1641
1642
 
func buySLand () = {
1642
1643
 
    let prologAction = prolog(i)
1643
1644
 
    if ((size(i.payments) != 1))
1644
1645
 
        then throw("Exactly one payment required")
1645
1646
 
        else {
1646
1647
 
            let pmt = value(i.payments[0])
1647
1648
 
            if ((pmt.assetId != usdtAssetId))
1648
1649
 
                then throw("Allowed USDT payment only!")
1649
1650
 
                else if ((pmt.amount != EXPUSDT))
1650
1651
 
                    then throw(("Payment attached should be " + toString(EXPUSDT)))
1651
1652
 
                    else {
1652
1653
 
                        let result = expeditionInternal(i.caller, i.transactionId)
1653
1654
 
                        $Tuple2(((result._1 :+ ScriptTransfer(economyContract, pmt.amount, usdtAssetId)) :+ prologAction), result._2._1)
1654
1655
 
                        }
1655
1656
 
            }
1656
1657
 
    }
1657
1658
 
1658
1659
 
1659
1660
 
1660
1661
 
@Callable(i)
1661
1662
 
func expedition (message,sig) = {
1662
1663
 
    let prologAction = prolog(i)
1663
1664
 
    if ((size(i.payments) != 0))
1664
1665
 
        then throw("No payments required")
1665
1666
 
        else {
1666
1667
 
            let result = expeditionCommon(true, i.caller, i.transactionId, message, sig)
1667
1668
 
            $Tuple2((result._1 :+ prologAction), $Tuple2(result._2, result._3))
1668
1669
 
            }
1669
1670
 
    }
1670
1671
 
1671
1672
 
1672
1673
 
1673
1674
 
@Callable(i)
1674
1675
 
func upgradeInfra (landAssetId) = {
1675
1676
 
    let prologAction = prolog(i)
1676
1677
 
    if ((size(i.payments) != 0))
1677
1678
 
        then throw("No payments required")
1678
1679
 
        else {
1679
1680
 
            let result = upInfraCommon(true, i.caller, 0, landAssetId)
1680
1681
 
            $Tuple2((result._1 :+ prologAction), result._2)
1681
1682
 
            }
1682
1683
 
    }
1683
1684
 
1684
1685
 
1685
1686
 
1686
1687
 
@Callable(i)
1687
1688
 
func upgradeInfraUsdt (landAssetId) = if ((i.caller != this))
1688
1689
 
    then throw("Permission denied")
1689
1690
 
    else {
1690
1691
 
        let prologAction = prolog(i)
1691
1692
 
        if ((size(i.payments) != 1))
1692
1693
 
            then throw("Exactly one payment required")
1693
1694
 
            else {
1694
1695
 
                let pmt = value(i.payments[0])
1695
1696
 
                if ((pmt.assetId != usdtAssetId))
1696
1697
 
                    then throw("Allowed USDT payment only!")
1697
1698
 
                    else {
1698
1699
 
                        let result = upInfraCommon(false, i.caller, pmt.amount, landAssetId)
1699
1700
 
                        $Tuple2(((result._1 :+ ScriptTransfer(economyContract, pmt.amount, usdtAssetId)) :+ prologAction), result._2)
1700
1701
 
                        }
1701
1702
 
                }
1702
1703
 
        }
1703
1704
 
1704
1705
 
1705
1706
 
1706
1707
 
@Callable(i)
1707
1708
 
func activateArtifact (artName,landAssetId) = {
1708
1709
 
    let prologAction = prolog(i)
1709
1710
 
    if ((size(i.payments) != 0))
1710
1711
 
        then throw("No payments required")
1711
1712
 
        else {
1712
1713
 
            let result =             match artName {
1713
1714
 
                case _ => 
1714
1715
 
                    if (("PRESALE" == $match0))
1715
1716
 
                        then activatePresaleArt(toString(i.caller), landAssetId)
1716
1717
 
                        else throw("Unknown artifact")
1717
1718
 
            }
1718
1719
 
            (result :+ prologAction)
1719
1720
 
            }
1720
1721
 
    }
1721
1722
 
1722
1723
 
1723
1724
 
1724
1725
 
@Callable(i)
1725
1726
 
func mergeLands (landAssetIds) = {
1726
1727
 
    let prologAction = prolog(i)
1727
1728
 
    if ((size(i.payments) != 0))
1728
1729
 
        then throw("No payments required")
1729
1730
 
        else {
1730
1731
 
            let result = mergeCommon(true, toString(i.caller), 0, landAssetIds, i.transactionId)
1731
1732
 
            $Tuple2((result._1 :+ prologAction), result._2)
1732
1733
 
            }
1733
1734
 
    }
1734
1735
 
1735
1736
 
1736
1737
 
1737
1738
 
@Callable(i)
1738
1739
 
func mergeLandsUsdt (landAssetIds) = {
1739
1740
 
    let prologAction = prolog(i)
1740
1741
 
    if ((size(i.payments) != 1))
1741
1742
 
        then throw("Exactly one payment required")
1742
1743
 
        else {
1743
1744
 
            let pmt = value(i.payments[0])
1744
1745
 
            if ((pmt.assetId != usdtAssetId))
1745
1746
 
                then throw("Allowed USDT payment only!")
1746
1747
 
                else {
1747
1748
 
                    let result = mergeCommon(false, toString(i.caller), pmt.amount, landAssetIds, i.transactionId)
1748
1749
 
                    $Tuple2(((result._1 :+ ScriptTransfer(economyContract, pmt.amount, usdtAssetId)) :+ prologAction), result._2)
1749
1750
 
                    }
1750
1751
 
            }
1751
1752
 
    }
1752
1753
 
1753
1754
 
1754
1755
 
1755
1756
 
@Callable(i)
1756
1757
 
func cargoExchange (cargoListStr,landAssetId) = {
1757
1758
 
    let prologAction = prolog(i)
1758
1759
 
    if ((size(i.payments) != 0))
1759
1760
 
        then throw("No payments required")
1760
1761
 
        else {
1761
1762
 
            let cargoParts = split_4C(cargoListStr, ":")
1762
1763
 
            let addr = toString(i.originCaller)
1763
1764
 
            let asset = value(assetInfo(fromBase58String(landAssetId)))
1764
1765
 
            let timeKey = keyStakedTimeByAssetId(landAssetId)
1765
1766
 
            if (!(isDefined(getInteger(timeKey))))
1766
1767
 
                then throw((asset.name + " is not staked"))
1767
1768
 
                else {
1768
1769
 
                    let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
1769
1770
 
                    if ((owner != addr))
1770
1771
 
                        then throw((LANDPREFIX + " is not yours"))
1771
1772
 
                        else {
1772
1773
 
                            let landIndex = (numPiecesBySize(split(asset.description, "_")[recLandSize]) / SSIZE)
1773
1774
 
                            let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
1774
1775
 
                            let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
1775
1776
 
                            let curLocation = valueOrElse(getString(keyDuckLocation(duckAssetId)), DEFAULTLOCATION)
1776
1777
 
                            let loc = split(value(curLocation), "_")
1777
1778
 
                            if ((loc[locIdxType] != "L"))
1778
1779
 
                                then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
1779
1780
 
                                else if ((loc[locIdxId] != landAssetId))
1780
1781
 
                                    then throw(("Duck should be on the land " + landAssetId))
1781
1782
 
                                    else {
1782
1783
 
                                        let whKey = keyWarehouseByLand(landAssetId)
1783
1784
 
                                        let currentWh = getWarehouse(whKey, landIndex, infraLevel)
1784
1785
 
                                        let bpKey = keyBackpackByDuck(duckAssetId)
1785
1786
 
                                        let currentPack = getBackpack(bpKey)
1786
1787
 
                                        let result = moveStuff(cargoParts, currentWh, currentPack)
1787
1788
 
                                        let loft = split(currentWh[whIdxLOFT], "_")
1788
1789
 
                                        let loftO = (parseIntValue(loft[volOccupied]) + result._7)
1789
1790
 
                                        let loftF = (parseIntValue(loft[volFree]) - result._7)
1790
1791
 
[StringEntry(bpKey, makeString_2C([currentPack[bpIdxLevel], result._4, result._5, result._6], ":")), StringEntry(whKey, makeString_2C([currentWh[whIdxLevels], result._1, result._2, result._3, makeString([loft[volLocked], toString(loftO), toString(loftF), loft[volTotal]], "_")], ":")), prologAction]
1791
1792
 
                                        }
1792
1793
 
                            }
1793
1794
 
                    }
1794
1795
 
            }
1795
1796
 
    }
1796
1797
 
1797
1798
 
1798
1799
 
1799
1800
 
@Callable(i)
1800
1801
 
func saveWarehouse (whStr,landAssetId) = {
1801
1802
 
    let prologAction = prolog(i)
1802
1803
 
    if ((i.caller != economyContract))
1803
1804
 
        then throw("Access denied")
1804
1805
 
        else {
1805
1806
 
            let whKey = keyWarehouseByLand(landAssetId)
1806
1807
 
            let wh = split_4C(whStr, ":")
1807
1808
 
            if ((size(wh) != 5))
1808
1809
 
                then throw("warehouse string should contain 4 ':' separators")
1809
1810
 
                else {
1810
1811
 
                    let loftL = split(wh[whIdxLOFT], "_")[volLocked]
1811
1812
 
                    let loftO = getWarehouseOccupiedVol(wh)
1812
1813
 
                    let loftT = getWarehouseTotalVolume(wh[whIdxLevels])
1813
1814
 
                    let loftF = ((loftT - parseIntValue(loftL)) - loftO)
1814
1815
 
                    let newWhStr = makeString_2C([wh[whIdxLevels], wh[whIdxRes], wh[whIdxMat], wh[whIdxProd], makeString([loftL, toString(loftO), toString(loftF), toString(loftT)], "_")], ":")
1815
1816
 
                    $Tuple2([StringEntry(whKey, newWhStr), prologAction], newWhStr)
1816
1817
 
                    }
1817
1818
 
            }
1818
1819
 
    }
1819
1820
 
1820
1821
 
1821
1822
 
1822
1823
 
@Callable(i)
1823
1824
 
func fixWarehouseFormat (landAssetId) = if ((i.caller != restContract))
1824
1825
 
    then throw("Access denied")
1825
1826
 
    else {
1826
1827
 
        let whKey = keyWarehouseByLand(landAssetId)
1827
1828
 
        let asset = value(assetInfo(fromBase58String(landAssetId)))
1828
1829
 
        let landIndex = (numPiecesBySize(split(asset.description, "_")[recLandSize]) / SSIZE)
1829
1830
 
        let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
1830
1831
 
        let wh = getWarehouse(whKey, landIndex, infraLevel)
1831
1832
 
        let loftL = asInt(invoke(economyContract, "recalcLockedVolumeREADONLY", [landAssetId, wh], nil))
1832
1833
 
        let loftO = getWarehouseOccupiedVol(wh)
1833
1834
 
        let loftT = getWarehouseTotalVolume(wh[whIdxLevels])
1834
1835
 
        let loftF = ((loftT - loftL) - loftO)
1835
1836
 
        let newWhStr = makeString_2C([wh[whIdxLevels], wh[whIdxRes], wh[whIdxMat], wh[whIdxProd], makeString([toString(loftL), toString(loftO), toString(loftF), toString(loftT)], "_")], ":")
1836
1837
 
        $Tuple2([StringEntry(whKey, newWhStr)], newWhStr)
1837
1838
 
        }
1838
1839
 
1839
1840
 
1840
1841
 
1841
1842
 
@Callable(i)
1842
1843
 
func setCustomName (assetId,customName,type) = {
1843
1844
 
    let prologAction = prolog(i)
1844
1845
 
    if ((size(i.payments) != 1))
1845
1846
 
        then throw("Exactly one payment required")
1846
1847
 
        else {
1847
1848
 
            let pmt = value(i.payments[0])
1848
1849
 
            if ((pmt.assetId != usdtAssetId))
1849
1850
 
                then throw("Allowed USDT payment only!")
1850
1851
 
                else if ((pmt.amount != RENAMINGCOST))
1851
1852
 
                    then throw(("Payment should be " + toString(RENAMINGCOST)))
1852
1853
 
                    else if (contains(customName, "__"))
1853
1854
 
                        then throw(("Name should not contain '__': " + customName))
1854
1855
 
                        else if ((size(customName) > MAXNAMELEN))
1855
1856
 
                            then throw(("Name too long, maxLength=" + toString(MAXNAMELEN)))
1856
1857
 
                            else {
1857
1858
 
                                let addr = toString(i.originCaller)
1858
1859
 
                                let actions =                                 match type {
1859
1860
 
                                    case _ => 
1860
1861
 
                                        if (("ACCOUNT" == $match0))
1861
1862
 
                                            then {
1862
1863
 
                                                let reverseKey = keyCustomNameToAddress(customName)
1863
1864
 
                                                let nameOwner = getString(reverseKey)
1864
1865
 
                                                if (isDefined(nameOwner))
1865
1866
 
                                                    then throw(("Name already registered: " + customName))
1866
1867
 
                                                    else {
1867
1868
 
                                                        let addrToNameKey = keyAddressToCustomName(addr)
1868
1869
 
                                                        let oldName = getString(addrToNameKey)
1869
1870
 
                                                        let freeOld = if (isDefined(oldName))
1870
1871
 
                                                            then [DeleteEntry(keyCustomNameToAddress(value(oldName)))]
1871
1872
 
                                                            else nil
1872
1873
 
                                                        ((freeOld :+ StringEntry(addrToNameKey, customName)) :+ StringEntry(reverseKey, addr))
1873
1874
 
                                                        }
1874
1875
 
                                                }
1875
1876
 
                                            else if (("LAND" == $match0))
1876
1877
 
                                                then {
1877
1878
 
                                                    let asset = value(assetInfo(fromBase58String(assetId)))
1878
1879
 
                                                    let timeKey = keyStakedTimeByAssetId(assetId)
1879
1880
 
                                                    if (!(isDefined(getInteger(timeKey))))
1880
1881
 
                                                        then throw((asset.name + " is not staked"))
1881
1882
 
                                                        else {
1882
1883
 
                                                            let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(assetId)), (("NFT " + asset.name) + " is orphaned"))
1883
1884
 
                                                            if ((owner != addr))
1884
1885
 
                                                                then throw((LANDPREFIX + " is not yours"))
1885
1886
 
                                                                else {
1886
1887
 
                                                                    let reverseKey = keyLandCustomNameToAssetId(customName)
1887
1888
 
                                                                    let nameOwner = getString(reverseKey)
1888
1889
 
                                                                    if (isDefined(nameOwner))
1889
1890
 
                                                                        then throw(("Name already registered: " + customName))
1890
1891
 
                                                                        else {
1891
1892
 
                                                                            let assetToNameKey = keyLandAssetIdToCustomName(assetId)
1892
1893
 
                                                                            let oldName = getString(assetToNameKey)
1893
1894
 
                                                                            let freeOld = if (isDefined(oldName))
1894
1895
 
                                                                                then [DeleteEntry(keyLandCustomNameToAssetId(value(oldName)))]
1895
1896
 
                                                                                else nil
1896
1897
 
                                                                            ((freeOld :+ StringEntry(assetToNameKey, customName)) :+ StringEntry(reverseKey, assetId))
1897
1898
 
                                                                            }
1898
1899
 
                                                                    }
1899
1900
 
                                                            }
1900
1901
 
                                                    }
1901
1902
 
                                                else if (("DUCK" == $match0))
1902
1903
 
                                                    then {
1903
1904
 
                                                        let asset = value(assetInfo(fromBase58String(assetId)))
1904
1905
 
                                                        let timeKey = keyStakedTimeByAssetId(assetId)
1905
1906
 
                                                        if (if (!(isDefined(getInteger(timeKey))))
1906
1907
 
                                                            then true
1907
1908
 
                                                            else !(isDefined(getString(keyStakedDuckByOwner(addr)))))
1908
1909
 
                                                            then throw((asset.name + " is not staked"))
1909
1910
 
                                                            else {
1910
1911
 
                                                                let owner = valueOrErrorMessage(getString(keyDuckIdToOwner(assetId)), (("NFT " + asset.name) + " is orphaned"))
1911
1912
 
                                                                if ((owner != addr))
1912
1913
 
                                                                    then throw((DUCKPREFIX + " is not yours"))
1913
1914
 
                                                                    else {
1914
1915
 
                                                                        let reverseKey = keyDuckCustomNameToAssetId(customName)
1915
1916
 
                                                                        let nameOwner = getString(reverseKey)
1916
1917
 
                                                                        if (isDefined(nameOwner))
1917
1918
 
                                                                            then throw(("Name already registered: " + customName))
1918
1919
 
                                                                            else {
1919
1920
 
                                                                                let assetToNameKey = keyDuckAssetIdToCustomName(assetId)
1920
1921
 
                                                                                let oldName = getString(assetToNameKey)
1921
1922
 
                                                                                let freeOld = if (isDefined(oldName))
1922
1923
 
                                                                                    then [DeleteEntry(keyDuckCustomNameToAssetId(value(oldName)))]
1923
1924
 
                                                                                    else nil
1924
1925
 
                                                                                ((freeOld :+ StringEntry(assetToNameKey, customName)) :+ StringEntry(reverseKey, assetId))
1925
1926
 
                                                                                }
1926
1927
 
                                                                        }
1927
1928
 
                                                                }
1928
1929
 
                                                        }
1929
1930
 
                                                    else throw("Unknown entity type")
1930
1931
 
                                }
1931
1932
 
                                $Tuple2(((actions :+ ScriptTransfer(economyContract, pmt.amount, usdtAssetId)) :+ prologAction), 0)
1932
1933
 
                                }
1933
1934
 
            }
1934
1935
 
    }
1935
1936
 
1936
1937
 
1937
1938
 
1938
1939
 
@Callable(i)
1939
1940
 
func setReferrals (oldPlayer,newPlayer) = if ((i.callerPublicKey != pub))
1940
1941
 
    then throw("Permission denied")
1941
1942
 
    else {
1942
1943
 
        let prologAction = prolog(i)
1943
1944
 
        if ((size(i.payments) != 0))
1944
1945
 
            then throw("No payments required")
1945
1946
 
            else if (!(isDefined(addressFromString(oldPlayer))))
1946
1947
 
                then throw(("Invalid address: " + oldPlayer))
1947
1948
 
                else if (!(isDefined(addressFromString(newPlayer))))
1948
1949
 
                    then throw(("Invalid address: " + newPlayer))
1949
1950
 
                    else {
1950
1951
 
                        let oldsKey = keyOldies()
1951
1952
 
                        let olds = getString(oldsKey)
1952
1953
 
                        let oldies = if (isDefined(olds))
1953
1954
 
                            then split_4C(value(olds), "_")
1954
1955
 
                            else nil
1955
1956
 
                        if (containsElement(oldies, newPlayer))
1956
1957
 
                            then throw((newPlayer + " is not newbie (already has referrals)"))
1957
1958
 
                            else {
1958
1959
 
                                let refByKey = keyAddressRefBy(newPlayer)
1959
1960
 
                                let refBy = getString(refByKey)
1960
1961
 
                                if (if (isDefined(refBy))
1961
1962
 
                                    then isDefined(addressFromString(value(refBy)))
1962
1963
 
                                    else false)
1963
1964
 
                                    then throw(((newPlayer + " already has refBy: ") + value(refBy)))
1964
1965
 
                                    else {
1965
1966
 
                                        let refsKey = keyAddressReferrals(oldPlayer)
1966
1967
 
                                        let refs = getString(refsKey)
1967
1968
 
                                        let refsArray = if (isDefined(refs))
1968
1969
 
                                            then split_4C(value(refs), "_")
1969
1970
 
                                            else nil
1970
1971
 
                                        if (containsElement(refsArray, newPlayer))
1971
1972
 
                                            then throw((((oldPlayer + " already contains ") + newPlayer) + " within referrals"))
1972
1973
 
                                            else {
1973
1974
 
                                                let newRefs = makeString_2C((refsArray :+ newPlayer), "_")
1974
1975
 
                                                let newOlds = makeString_2C((oldies :+ oldPlayer), "_")
1975
1976
 
                                                $Tuple2([StringEntry(refByKey, oldPlayer), StringEntry(refsKey, newRefs), StringEntry(oldsKey, newOlds), prologAction], 0)
1976
1977
 
                                                }
1977
1978
 
                                        }
1978
1979
 
                                }
1979
1980
 
                        }
1980
1981
 
        }
1981
1982
 
1982
1983
 
1983
1984
 
1984
1985
 
@Callable(i)
1985
1986
 
func splitByGlobalWeightsREADONLY (amount) = $Tuple2(nil, getNeededMaterials(amount))
1986
1987
 
1987
1988
 
1988
1989
 
1989
1990
 
@Callable(i)
1990
1991
 
func splitByGlobalAndLocalWeightsREADONLY (matAmount,resAmount,terrains) = {
1991
1992
 
    let terrainCounts = countTerrains(terrains)
1992
1993
 
    $Tuple2(nil, $Tuple2(getNeededMaterials(matAmount), distributeByWeights(resAmount, terrainCounts)))
1993
1994
 
    }
1994
1995
 
1995
1996
 
1996
1997
 
1997
1998
 
@Callable(i)
1998
1999
 
func getBackpackREADONLY (duckAssetId) = $Tuple2(nil, makeString(getBackpack(keyBackpackByDuck(duckAssetId)), ":"))
1999
2000
 
2000
2001
 
2001
2002
 
2002
2003
 
@Callable(i)
2003
2004
 
func getWarehouseREADONLY (landAssetId) = {
2004
2005
 
    let asset = value(assetInfo(fromBase58String(landAssetId)))
2005
2006
 
    let landIndex = (numPiecesBySize(split(asset.description, "_")[recLandSize]) / SSIZE)
2006
2007
 
    let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
2007
2008
 
    $Tuple2(nil, makeString_2C(getWarehouse(keyWarehouseByLand(landAssetId), landIndex, infraLevel), ":"))
2008
2009
 
    }
2009
2010
 
2010
2011