w8 · tx · E6X···39C

tx · E6XGta71V4kKMuxfWhZ4pvm6jXWzU8MKpz7NhRyj939C

3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1:  -0.03100000 Waves

2023.01.15 22:55 [3471996] smart account 3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "E6XGta71V4kKMuxfWhZ4pvm6jXWzU8MKpz7NhRyj939C",
    "fee": 3100000,
    "feeAssetId": null,
    "timestamp": 1673812536082,
    "version": 2,
    "chainId": 87,
    "sender": "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1",
    "senderPublicKey": "BtDpFhgHQKHFVqYTMLReuZzqy94CRPSRkrYcSEVyjt4q",
    "proofs": [
        "3mZdvcvif3zevpotmqGjUtAtWjp6LhMtELzvPX6PJyeCyghmySXYaDJzQ4bCDDVPxPrkwHRR9CHHwke2ZmpXWpp3"
    ],
    "script": "base64:BgJTCAISABIDCgEIEgASAwoBCBIECgIBCBIECgICAhIECgIBCBIECgIBARIECgIICBIECgICAhIECgICAhIDCgEIEgMKAQgSAwoBCBIDCgEYEgMKARhWAAVjaGFpbgkAsAkBCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2RuQXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMAEgtiYpwwT1zlORpA5LdSQvZIxRsfrfr1QpvUjSHSqyqtEDCQAAAgIBVAUHJG1hdGNoMAEg93bq9/eDymXbbhPuAjvPWCmVqcHRjfJL2mzYHWKAyN4JAAIBAg1Vbmtub3duIGNoYWluAA1pbmN1YmF0b3JBZGRyBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUEVrdFZ1eDJSaGNoU042M0RzRG80YjRtejRRcXpLU2VEdgMJAAACAgFUBQckbWF0Y2gwBQR0aGlzCQACAQINVW5rbm93biBjaGFpbgALYnJlZWRlckFkZHIEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNQRFZ1VTQ1SDdFaDVkbXROYm5STlJTdEd3VUxBN05ZNkhiAwkAAAICAVQFByRtYXRjaDAFBHRoaXMJAAIBAg1Vbmtub3duIGNoYWluAAtlY29ub215QWRkcgQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM1Ayc2sxS25jU3hSYVpzOGI0Q1dHUHcyamt2dmF2NzR1NEQDCQAAAgIBVAUHJG1hdGNoMAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM044eTR3eFgzSkM0VGRyQ0pCWFgxNlNqV2Y2WDI1NmhyZXAJAAIBAg1Vbmtub3duIGNoYWluAANwdWIBIE9T4ho/VKjWnVJOEx1GJ1W9s1PzLHvJVFSw/0PBtBQoAAhIRUFMQ09TVACQTgAKTEFORFBSRUZJWAIETEFORAAKRFVDS1BSRUZJWAIERFVDSwAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EABk5VTVJFUwAGAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAJREFZTUlMTElTAIC4mSkAEUZJVkVNSU5VVEVTTUlMTElTAOCnEgAQUkVTT1VSQ0VQUklDRU1JTgDV1gkAEUluZnJhVXBncmFkZUNvc3RTBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwAMbrwL8XAwkAAAICAVQFByRtYXRjaDAA8M2JHgkAAgECDVVua25vd24gY2hhaW4AFUluZnJhVXBncmFkZUNvc3RTVXNkbgQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMACAtIkTAwkAAAICAVQFByRtYXRjaDAAgLUYCQACAQINVW5rbm93biBjaGFpbgAMRVhQTUFURVJJQUxTBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwAMuA1bPLBAMJAAACAgFUBQckbWF0Y2gwAPGa8O8FCQACAQINVW5rbm93biBjaGFpbgAHRVhQVVNETgQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMACAlOvcAwMJAAACAgFUBQckbWF0Y2gwAICt4gQJAAIBAg1Vbmtub3duIGNoYWluAAVNVUxUNgDAhD0ABUZJVkVYCQC2AgEABQAHVFdFTlRZWAkAtgIBABQACFRXRU5UWTJYCQC2AgEJAGgCABQAFAAIVFdFTlRZM1gJALYCAQkAaAIJAGgCABQAFAAUAAhUV0VOVFk0WAkAtgIBCQBoAgkAaAIJAGgCABQAFAAUABQACFRXRU5UWTVYCQC2AgEJAGgCCQBoAgkAaAIJAGgCABQAFAAUABQAFAAIbWF0VHlwZXMJAMwIAgIERnVlbAkAzAgCAgVNZXRhbAkAzAgCAgVQbGFuawkAzAgCAgVHbGFzcwkAzAgCAgdQbGFzdGljCQDMCAICB1Byb3RlaW4FA25pbAAKY29udGluZW50cwkAzAgCAgRBc2lhCQDMCAICBkV1cm9wZQkAzAgCAghBbWVyaWNhcwkAzAgCAgdPY2VhbmlhCQDMCAICBkFmcmljYQUDbmlsAApBUlRQUkVTQUxFAgdQUkVTQUxFARJrZXlOZXh0RnJlZUxhbmROdW0AAgtuZXh0TGFuZE51bQEQa2V5TGFuZFRvQXNzZXRJZAEHbGFuZE51bQkArAICAgxsYW5kVG9Bc3NldF8FB2xhbmROdW0BCmtleU5mdE5hbWUCB2xhbmROdW0IbGFuZFNpemUJAKwCAgkArAICBQpMQU5EUFJFRklYBQdsYW5kTnVtBQhsYW5kU2l6ZQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEQa2V5RHVja0lkVG9Pd25lcgEHYXNzZXRJZAkArAICAgpkdWNrT3duZXJfBQdhc3NldElkARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQdhc3NldElkCQCsAgICC3N0YWtlZFRpbWVfBQdhc3NldElkARZrZXlJbmZyYUxldmVsQnlBc3NldElkAQdhc3NldElkCQCsAgICC2luZnJhTGV2ZWxfBQdhc3NldElkAR5rZXlJbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXICB2Fzc2V0SWQJb3duZXJBZGRyCQCsAgIJAKwCAgkArAICAhxpbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXJfBQdhc3NldElkAgFfBQlvd25lckFkZHIBH2tleVByZXNhbGVBcnRBY3RpdmF0ZWRCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgIUcHJlc2FsZUFydEFjdGl2YXRlZF8FB2Fzc2V0SWQBJ2tleVByZXNhbGVBcnRBY3RpdmF0ZWRCeUFzc2V0SWRBbmRPd25lcgIHYXNzZXRJZAlvd25lckFkZHIJAKwCAgkArAICCQCsAgICJXByZXNhbGVBcnRBY3RpdmF0ZWRCeUFzc2V0SWRBbmRPd25lcl8FB2Fzc2V0SWQCAV8FCW93bmVyQWRkcgEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBHR5cGUHYXNzZXRJZAkAuQkCCQDMCAICDWxhbmRBcnRTdGF0dXMJAMwIAgUEdHlwZQkAzAgCBQdhc3NldElkBQNuaWwCAV8BJWtleUxhbmRBcnRTdGF0dXNCeVR5cGVBc3NldElkQW5kT3duZXIDBHR5cGUHYXNzZXRJZAlvd25lckFkZHIJALkJAgkAzAgCAiJsYW5kQXJ0U3RhdHVzQnlUeXBlQXNzZXRJZEFuZE93bmVyCQDMCAIFBHR5cGUJAMwIAgUHYXNzZXRJZAkAzAgCBQlvd25lckFkZHIFA25pbAIBXwEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMHbmZ0VHlwZQdhc3NldElkCW93bmVyQWRkcgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICIHN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXJfBQduZnRUeXBlAgFfBQdhc3NldElkAgFfBQlvd25lckFkZHIBEWtleUxhbmROdW1Ub093bmVyAQdsYW5kTnVtCQCsAgICCmxhbmRPd25lcl8FB2xhbmROdW0BEWtleUJhY2twYWNrQnlEdWNrAQtkdWNrQXNzZXRJZAkArAICAgliYWNrUGFja18FC2R1Y2tBc3NldElkAQ9rZXlEdWNrTG9jYXRpb24BC2R1Y2tBc3NldElkCQCsAgICDWR1Y2tMb2NhdGlvbl8FC2R1Y2tBc3NldElkAQ1rZXlEdWNrSGVhbHRoAQtkdWNrQXNzZXRJZAkArAICAgtkdWNrSGVhbHRoXwULZHVja0Fzc2V0SWQBEWtleVJlc1Byb3BvcnRpb25zAAITcmVzVHlwZXNQcm9wb3J0aW9ucwAKcmVjTGFuZE51bQAAAAtyZWNMYW5kU2l6ZQABAAtyZWNUZXJyYWlucwACAAxyZWNDb250aW5lbnQAAwAPbG9jSWR4Q29udGluZW50AAAACmxvY0lkeFR5cGUAAQAIbG9jSWR4SWQAAgAKYnBJZHhMZXZlbAAAAAhicElkeFJlcwABAAhicElkeE1hdAACAAlicElkeFByb2QAAwEIYXNTdHJpbmcBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwBQFzCQACAQIYZmFpbCB0byBjYXN0IGludG8gU3RyaW5nARJnZXROZWVkZWRNYXRlcmlhbHMBBXRvdGFsBAVwcm9wcwkAtQkCCQEFdmFsdWUBCQCiCAEJARFrZXlSZXNQcm9wb3J0aW9ucwACAV8DCQECIT0CCQCQAwEFBXByb3BzBQZOVU1SRVMJAAIBAhZXcm9uZyBwcm9wb3J0aW9ucyBkYXRhBAFyCQDMCAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwcm9wcwAACQDMCAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwcm9wcwABCQDMCAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwcm9wcwACCQDMCAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwcm9wcwADCQDMCAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwcm9wcwAECQDMCAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwcm9wcwAFBQNuaWwEA3N1bQkAZAIJAGQCCQBkAgkAZAIJAGQCCQCRAwIFAXIAAAkAkQMCBQFyAAEJAJEDAgUBcgACCQCRAwIFAXIAAwkAkQMCBQFyAAQJAJEDAgUBcgAFAwkAZwIAAAUDc3VtCQACAQIPTm8gbGFuZHMgc3Rha2VkBAVub3JtNgkAawMFBXRvdGFsBQVNVUxUNgUDc3VtCgEKbm9ybWFsaXplcgIDYWNjBGVsZW0JAM0IAgUDYWNjCQBrAwUEZWxlbQUFbm9ybTYFBU1VTFQ2CgACJGwFAXIKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCm5vcm1hbGl6ZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYBEXN1YnRyYWN0TWF0ZXJpYWxzAwxzaG91bGRVc2VNYXQDaGFzCXRvdGFsTmVlZAQEbmVlZAkBEmdldE5lZWRlZE1hdGVyaWFscwEFCXRvdGFsTmVlZAoBCnN1YnRyYWN0b3ICA2FjYwNpZHgEBnJlc3VsdAkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNoYXMFA2lkeAkAkQMCBQRuZWVkBQNpZHgDCQBmAgAABQZyZXN1bHQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIYTm90IGVub3VnaCBtYXRlcmlhbCBpZHg9CQCkAwEFA2lkeAILLCB5b3UgaGF2ZSAJAJEDAgUDaGFzBQNpZHgCCywgYnV0IG5lZWQgCQCkAwEJAJEDAgUEbmVlZAUDaWR4CQDNCAIFA2FjYwkApAMBBQZyZXN1bHQDBQxzaG91bGRVc2VNYXQKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQpzdWJ0cmFjdG9yAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBQNoYXMBGXVwZGF0ZVByb3BvcnRpb25zSW50ZXJuYWwECHByb3BMaXN0DXRlcnJhaW5Db3VudHMNbGFuZFNpemVJbmRleARzaWduAwkBAiE9AgkAkAMBBQhwcm9wTGlzdAUGTlVNUkVTCQACAQIWV3JvbmcgcHJvcG9ydGlvbnMgZGF0YQoBB3VwZGF0ZXICA2FjYwFpBAZyZXN1bHQJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUIcHJvcExpc3QFAWkJAGgCCQBoAgUEc2lnbgkAkQMCBQ10ZXJyYWluQ291bnRzBQFpBQ1sYW5kU2l6ZUluZGV4AwkAZgIAAAUGcmVzdWx0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhZQYW5pYyEgUGllY2VzIG9mIHR5cGU9CQCkAwEFAWkCBywgc2lnbj0JAKQDAQUEc2lnbgIULCAgdGVycmFpbkNvdW50c1tpXT0JAKQDAQkAkQMCBQ10ZXJyYWluQ291bnRzBQFpAhAsIGxhbmRTaXplSW5kZXg9CQCkAwEFDWxhbmRTaXplSW5kZXgJAM0IAgUDYWNjCQCkAwEFBnJlc3VsdAQBcgoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBB3VwZGF0ZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJALkJAgUBcgIBXwERdXBkYXRlUHJvcG9ydGlvbnMDDXRlcnJhaW5Db3VudHMNbGFuZFNpemVJbmRleARzaWduBAhwcm9wTGlzdAkAtQkCCQELdmFsdWVPckVsc2UCCQCiCAEJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfCQEZdXBkYXRlUHJvcG9ydGlvbnNJbnRlcm5hbAQFCHByb3BMaXN0BQ10ZXJyYWluQ291bnRzBQ1sYW5kU2l6ZUluZGV4BQRzaWduAQ1jb3VudFRlcnJhaW5zAQh0ZXJyYWlucwkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFBAAEJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBQgABCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUMAAQkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFEAAEJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBRQABCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUYAAQUDbmlsAQ9udW1QaWVjZXNCeVNpemUBCGxhbmRTaXplBAckbWF0Y2gwBQhsYW5kU2l6ZQMJAAACAgFTBQckbWF0Y2gwABkDCQAAAgIBTQUHJG1hdGNoMABkAwkAAAICAUwFByRtYXRjaDAA4QEDCQAAAgICWEwFByRtYXRjaDAAkAMDCQAAAgIDWFhMBQckbWF0Y2gwAPEECQACAQIRVW5rbm93biBsYW5kIHNpemUBDHN1Yk9uZUluTGlzdAMFYUxpc3QDaWR4BmFtb3VudAoBBnN1YmJlcgIDYWNjAWkJAM0IAgUDYWNjAwkAAAIFAWkFA2lkeAkApAMBCQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBWFMaXN0BQFpBQZhbW91bnQJAJEDAgUFYUxpc3QFAWkEAXIKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQZzdWJiZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJALkJAgUBcgIBXwEGYWRkUmVzBQpjdXJyZW50UmVzDXRlcnJhaW5Db3VudHMJZGVsdGFUaW1lDWxhbmRTaXplSW5kZXgXZGFpbHlCeVBpZWNlV2l0aEJvbnVzZXMKAQVhZGRlcgIDYWNjAWkECXJlc09mVHlwZQkAaAIJAGgCCQBrAwUJZGVsdGFUaW1lBRdkYWlseUJ5UGllY2VXaXRoQm9udXNlcwUJREFZTUlMTElTCQCRAwIFDXRlcnJhaW5Db3VudHMFAWkFDWxhbmRTaXplSW5kZXgJAM0IAgUDYWNjCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKY3VycmVudFJlcwUBaQUJcmVzT2ZUeXBlBAFyCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFYWRkZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJALkJAgUBcgIBXwEDYWJzAQF4AwkAwAICBQF4CQC2AgEAAAUBeAkAvgIBBQF4AARmcmVxCQDMCAIJAMwIAgABCQDMCAIABAkAzAgCAAkJAMwIAgAKCQDMCAIADwUDbmlsCQDMCAIJAMwIAgAFCQDMCAIACAkAzAgCAA0JAMwIAgAOCQDMCAIADwUDbmlsCQDMCAIJAMwIAgAGCQDMCAIACQkAzAgCAA4JAMwIAgAPCQDMCAIAEAUDbmlsCQDMCAIJAMwIAgAECQDMCAIABwkAzAgCAAgJAMwIAgANCQDMCAIAEgUDbmlsCQDMCAIJAMwIAgABCQDMCAIABgkAzAgCAAcJAMwIAgAPCQDMCAIAEwUDbmlsBQNuaWwBB2dlbkNoYXICAW4FZnJlcXMEA3JlbQkAoAMBCQC7AgIFAW4FB1RXRU5UWVgEBmxldHRlcgMJAGYCCQCRAwIFBWZyZXFzAAAFA3JlbQIBQQMJAGYCCQCRAwIFBWZyZXFzAAEFA3JlbQIBQgMJAGYCCQCRAwIFBWZyZXFzAAIFA3JlbQIBQwMJAGYCCQCRAwIFBWZyZXFzAAMFA3JlbQIBRAMJAGYCCQCRAwIFBWZyZXFzAAQFA3JlbQIBRQIBRgUGbGV0dGVyAQtnZW5UZXJyYWlucwIEc2VlZAxjb250aW5lbnRJZHgEAWYJAJEDAgUEZnJlcQUMY29udGluZW50SWR4CgEQdGVycmFpbkdlbmVyYXRvcgIDYWNjBGVsZW0JAJQKAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIIBQNhY2MCXzEJAQdnZW5DaGFyAggFA2FjYwJfMgUBZgkBB2dlbkNoYXICCQC6AgIIBQNhY2MCXzIFB1RXRU5UWVgFAWYJAQdnZW5DaGFyAgkAugICCAUDYWNjAl8yBQhUV0VOVFkyWAUBZgkBB2dlbkNoYXICCQC6AgIIBQNhY2MCXzIFCFRXRU5UWTNYBQFmCQEHZ2VuQ2hhcgIJALoCAggFA2FjYwJfMgUIVFdFTlRZNFgFAWYJALoCAggFA2FjYwJfMgUIVFdFTlRZNVgEAXQKAAIkbAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgICAAkAugICBQRzZWVkBQVGSVZFWAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEQdGVycmFpbkdlbmVyYXRvcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUIBQF0Al8xAQtnZXRCYWNrcGFjawEFYnBLZXkEAXAJALUJAgkBC3ZhbHVlT3JFbHNlAgkAoggBBQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoCAToJAMwIAgkApAMBCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgUBcAUKYnBJZHhMZXZlbAAACQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeFJlcwILMF8wXzBfMF8wXzAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4TWF0AgswXzBfMF8wXzBfMAkAzAgCCQCRAwIFAXAFCWJwSWR4UHJvZAUDbmlsARBleHBlZGl0aW9uQ29tbW9uBQxzaG91bGRVc2VNYXQGY2FsbGVyBHR4SWQHbWVzc2FnZQNzaWcDCQEBIQEJAMQTAwUHbWVzc2FnZQUDc2lnBQNwdWIJAAIBAhhzaWduYXR1cmUgZG9lcyBub3QgbWF0Y2gEBXBhcnRzCQC1CQIJALAJAQUHbWVzc2FnZQIBOwQCaHAJALUJAgkAkQMCCQC1CQIJAJEDAgUFcGFydHMAAAIBfAAAAgFfBAVjdXJIUAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmhwAAAEBW5ld0hQCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCaHAAAQQKbG9jQW5kVGltZQkAtQkCCQCRAwIFBXBhcnRzAAECAToEDnRhcmdldExvY2F0aW9uCQC1CQIJAJEDAgUKbG9jQW5kVGltZQAAAgFfAwkBAiE9AgkAkQMCBQ50YXJnZXRMb2NhdGlvbgABAgFFCQACAQIrZXhwZWRpdGlvbiB0YXJnZXQgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRQQEdGltZQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCmxvY0FuZFRpbWUAAQMDCQBmAgUEdGltZQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBRFGSVZFTUlOVVRFU01JTExJUwYJAGYCCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFEUZJVkVNSU5VVEVTTUlMTElTBQR0aW1lCQACAQISc2lnbmF0dXJlIG91dGRhdGVkBAh1c2VyQWRkcgkApQgBBQZjYWxsZXIEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUIdXNlckFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQECWtleUhlYWx0aAkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAQMb2xkRnJvbVN0YXRlCQELdmFsdWVPckVsc2UCCQCfCAEFCWtleUhlYWx0aABkAwkBAiE9AgUMb2xkRnJvbVN0YXRlBQVjdXJIUAkAAgEJAKwCAgkArAICCQCsAgICCm9sZEhlYWx0aD0JAKQDAQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAIvIGZyb20gc3RhdGUgZG9lcyBub3QgbWF0Y2ggb25lIGZyb20gZmxpZ2h0IGxvZz0JAKQDAQUFY3VySFADCQBnAgAABQVjdXJIUAkAAgECHllvdSBjYW4ndCBmbHkgd2l0aCB6ZXJvIGhlYWx0aAMJAGcCAAAFBW5ld0hQCQCUCgIJAM0IAgMJAQEhAQUMc2hvdWxkVXNlTWF0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUHRVhQVVNETgULdXNkbkFzc2V0SWQFA25pbAUDbmlsCQEMSW50ZWdlckVudHJ5AgUJa2V5SGVhbHRoAAACAAQFYnBLZXkJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQUFYnBLZXkEBW1MaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBAZuZXdNYXQJALkJAgkBEXN1YnRyYWN0TWF0ZXJpYWxzAwUMc2hvdWxkVXNlTWF0BQVtTGlzdAUMRVhQTUFURVJJQUxTAgFfBAZiaWdOdW0JAQNhYnMBCQCeAwEFBHR4SWQEB2ZyZWVOdW0JAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBEmtleU5leHRGcmVlTGFuZE51bQAA9QMEB2xhbmROdW0JAKQDAQUHZnJlZU51bQQMY29udGluZW50SWR4CQCgAwEJALsCAgUGYmlnTnVtBQVGSVZFWAQIdGVycmFpbnMJAQtnZW5UZXJyYWlucwIFBmJpZ051bQUMY29udGluZW50SWR4BAljb250aW5lbnQJAJEDAgUKY29udGluZW50cwUMY29udGluZW50SWR4BAVpc3N1ZQkAwggFCQEKa2V5TmZ0TmFtZQIFB2xhbmROdW0CAVMJALkJAgkAzAgCBQdsYW5kTnVtCQDMCAICAVMJAMwIAgUIdGVycmFpbnMJAMwIAgUJY29udGluZW50BQNuaWwCAV8AAQAABwQHYXNzZXRJZAkAuAgBBQVpc3N1ZQQCaWQJANgEAQUHYXNzZXRJZAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQESa2V5TmV4dEZyZWVMYW5kTnVtAAkAZAIFB2ZyZWVOdW0AAQkAzAgCBQVpc3N1ZQkAzAgCCQELU3RyaW5nRW50cnkCCQEQa2V5TGFuZFRvQXNzZXRJZAEFB2xhbmROdW0FAmlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQJpZAUIdXNlckFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEWtleUxhbmROdW1Ub093bmVyAQUHbGFuZE51bQUIdXNlckFkZHIJAMwIAgkBDEludGVnZXJFbnRyeQIJARZrZXlJbmZyYUxldmVsQnlBc3NldElkAQUCaWQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHmtleUluZnJhTGV2ZWxCeUFzc2V0SWRBbmRPd25lcgIFAmlkBQh1c2VyQWRkcgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgABBQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAkAuQkCCQDMCAIFCWNvbnRpbmVudAkAzAgCAgFMCQDMCAIFAmlkBQNuaWwCAV8JAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aAUFbmV3SFAJAMwIAgkBC1N0cmluZ0VudHJ5AgUFYnBLZXkJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQDMCAIFBm5ld01hdAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgUDbmlsBQJpZAEMYXBwbHlCb251c2VzAgtsYW5kQXNzZXRJZAZwaWVjZXMECmluZnJhTGV2ZWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAlhcnRQaWVjZXMJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBIGtleUxhbmRBcnRTdGF0dXNCeVR5cGVBbmRBc3NldElkAgUKQVJUUFJFU0FMRQULbGFuZEFzc2V0SWQDCQELdmFsdWVPckVsc2UCCQCgCAEJAR9rZXlQcmVzYWxlQXJ0QWN0aXZhdGVkQnlBc3NldElkAQULbGFuZEFzc2V0SWQHBQZwaWVjZXMAAAkAZAIJAGQCBQ9EQUlMWVJFU0JZUElFQ0UJAGsDBQ9EQUlMWVJFU0JZUElFQ0UFCmluZnJhTGV2ZWwABAkAawMFD0RBSUxZUkVTQllQSUVDRQkAaAIFCWFydFBpZWNlcwADCQBoAgUGcGllY2VzABQBFGNoZWNrQ2xhaW1Db25kaXRpb25zAQRhZGRyBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFBGFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCiCAEJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OBANsb2MJALUJAgkBBXZhbHVlAQULY3VyTG9jYXRpb24CAV8DCQECIT0CCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIBTAkAAgEJAKwCAgkArAICAhZEdWNrIGxvY2F0aW9uIHR5cGUgaXMgCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIRLCBidXQgc2hvdWxkIGJlIEwEC2xhbmRBc3NldElkCQCRAwIFA2xvYwUIbG9jSWR4SWQEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQECXNhdmVkVGltZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFB3RpbWVLZXkJAKwCAgkArAICAhBZb3VyIGR1Y2sgaXMgb24gCAUFYXNzZXQEbmFtZQIVLCB3aGljaCBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQECIT0CBQVvd25lcgUEYWRkcgkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQBZAkAtQkCCAUFYXNzZXQLZGVzY3JpcHRpb24CAV8JAJYKBAULZHVja0Fzc2V0SWQFC2xhbmRBc3NldElkBQFkBQlzYXZlZFRpbWUBEGNsYWltUmVzSW50ZXJuYWwCBGFkZHIGYW1vdW50BAFjCQEUY2hlY2tDbGFpbUNvbmRpdGlvbnMBBQRhZGRyBAhsYW5kU2l6ZQkAkQMCCAUBYwJfMwULcmVjTGFuZFNpemUEDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCCAUBYwJfMwULcmVjVGVycmFpbnMECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCAUBYwJfNAMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEIBQFjAl80AgwsIGN1cnJlbnQgPSAJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAEBnBpZWNlcwkBD251bVBpZWNlc0J5U2l6ZQEFCGxhbmRTaXplBBZkYWlseVByb2R1Y3Rpb25CeVBpZWNlCQEMYXBwbHlCb251c2VzAggFAWMCXzIFBnBpZWNlcwQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBRZkYWlseVByb2R1Y3Rpb25CeVBpZWNlBQZwaWVjZXMFCURBWU1JTExJUwMJAGYCBQZhbW91bnQFCGF2YWlsUmVzCQACAQkArAICCQCsAgIJAKwCAgIiTm90IGVub3VnaCByZXNvdXJjZXMsIGF2YWlsYWJsZSA9IAkApAMBBQhhdmFpbFJlcwIOLCByZXF1ZXN0ZWQgPSAJAKQDAQUGYW1vdW50BAxuZXdEZWx0YVRpbWUJAGsDCQBlAgUIYXZhaWxSZXMFBmFtb3VudAUJREFZTUlMTElTCQBoAgUWZGFpbHlQcm9kdWN0aW9uQnlQaWVjZQUGcGllY2VzBAxuZXdUaW1lc3RhbXAJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUMbmV3RGVsdGFUaW1lBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQgFAWMCXzEEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQKY3VycmVudFJlcwkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQFYnBSZXMJAQZhZGRSZXMFBQpjdXJyZW50UmVzBQ10ZXJyYWluQ291bnRzCQBlAgUJZGVsdGFUaW1lBQxuZXdEZWx0YVRpbWUJAGkCBQZwaWVjZXMAGQUWZGFpbHlQcm9kdWN0aW9uQnlQaWVjZQkAlQoDCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEIBQFjAl8yBQxuZXdUaW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKTEFORFBSRUZJWAgFAWMCXzIFBGFkZHIFDG5ld1RpbWVzdGFtcAUDbmlsBQVicEtleQkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIFBWJwUmVzCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAQhjbGFpbUFsbAMEYWRkcgtsYW5kQXNzZXRJZAZwaWVjZXMEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQECXNhdmVkVGltZQkBBXZhbHVlAQkAnwgBBQd0aW1lS2V5BAhhdmFpbFJlcwkAaAIJAGsDCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFCXNhdmVkVGltZQkBDGFwcGx5Qm9udXNlcwIFC2xhbmRBc3NldElkBQZwaWVjZXMFCURBWU1JTExJUwUGcGllY2VzCQEQY2xhaW1SZXNJbnRlcm5hbAIFBGFkZHIFCGF2YWlsUmVzAQ11cEluZnJhQ29tbW9uAwxzaG91bGRVc2VNYXQGY2FsbGVyDXBheW1lbnRBbW91bnQEBGFkZHIJAKUIAQUGY2FsbGVyBAFjCQEUY2hlY2tDbGFpbUNvbmRpdGlvbnMBBQRhZGRyBAZwaWVjZXMJAQ9udW1QaWVjZXNCeVNpemUBCQCRAwIIBQFjAl8zBQtyZWNMYW5kU2l6ZQQIaW5mcmFLZXkJARZrZXlJbmZyYUxldmVsQnlBc3NldElkAQgFAWMCXzIECGN1ckxldmVsCQELdmFsdWVPckVsc2UCCQCfCAEFCGluZnJhS2V5AAADCQBnAgUIY3VyTGV2ZWwAAwkAAgECJkN1cnJlbnRseSBtYXggaW5mcmFzdHJ1Y3R1cmUgbGV2ZWwgPSAzBAhuZXdMZXZlbAkAZAIFCGN1ckxldmVsAAEEBGNvc3QJAGsDBRVJbmZyYVVwZ3JhZGVDb3N0U1VzZG4JAGgCBQZwaWVjZXMFCG5ld0xldmVsABkDAwkBASEBBQxzaG91bGRVc2VNYXQJAQIhPQIFDXBheW1lbnRBbW91bnQFBGNvc3QHCQACAQkArAICAhtQYXltZW50IGF0dGFjaGVkIHNob3VsZCBiZSAJAKQDAQUEY29zdAQFYnBLZXkJARFrZXlCYWNrcGFja0J5RHVjawEIBQFjAl8xBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQUFYnBLZXkEBW1MaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBAZuZXdNYXQJALkJAgkBEXN1YnRyYWN0TWF0ZXJpYWxzAwUMc2hvdWxkVXNlTWF0BQVtTGlzdAkAawMFEUluZnJhVXBncmFkZUNvc3RTCQBoAgUGcGllY2VzBQhuZXdMZXZlbAAZAgFfBAtjbGFpbVJlc3VsdAkBCGNsYWltQWxsAwUEYWRkcggFAWMCXzIFBnBpZWNlcwkAlAoCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFCGluZnJhS2V5BQhuZXdMZXZlbAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHmtleUluZnJhTGV2ZWxCeUFzc2V0SWRBbmRPd25lcgIIBQFjAl8yBQRhZGRyBQhuZXdMZXZlbAkAzAgCCQELU3RyaW5nRW50cnkCBQVicEtleQkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgkAkQMCCAULY2xhaW1SZXN1bHQCXzMFCGJwSWR4UmVzCQDMCAIFBm5ld01hdAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgUDbmlsCAULY2xhaW1SZXN1bHQCXzEFCG5ld0xldmVsARJhY3RpdmF0ZVByZXNhbGVBcnQBBGFkZHIEAWMJARRjaGVja0NsYWltQ29uZGl0aW9ucwEFBGFkZHIEC2xhbmRBc3NldElkCAUBYwJfMgQNYWN0aXZhdGlvbktleQkBH2tleVByZXNhbGVBcnRBY3RpdmF0ZWRCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAMJAQt2YWx1ZU9yRWxzZQIJAKAIAQUNYWN0aXZhdGlvbktleQcJAAIBAiVQcmVzYWxlIGFydGlmYWN0IGlzIGFscmVhZHkgYWN0aXZhdGVkAwkAZgIJAQ1wYXJzZUludFZhbHVlAQkAkQMCCAUBYwJfMwUKcmVjTGFuZE51bQD0AwkAAgEJAKwCAgkArAICCQCsAgIFCkxBTkRQUkVGSVgCASAFC2xhbmRBc3NldElkAiUgaXMgbm90IGVsaWdpYmxlIGZvciBwcmVzYWxlIGFydGlmYWN0BAZwaWVjZXMJAQ9udW1QaWVjZXNCeVNpemUBCQCRAwIIBQFjAl8zBQtyZWNMYW5kU2l6ZQQLY2xhaW1SZXN1bHQJAQhjbGFpbUFsbAMFBGFkZHIFC2xhbmRBc3NldElkBQZwaWVjZXMJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCAULY2xhaW1SZXN1bHQCXzEJAQxCb29sZWFuRW50cnkCBQ1hY3RpdmF0aW9uS2V5BgkBDEJvb2xlYW5FbnRyeQIJASdrZXlQcmVzYWxlQXJ0QWN0aXZhdGVkQnlBc3NldElkQW5kT3duZXICBQtsYW5kQXNzZXRJZAUEYWRkcgYJAQxJbnRlZ2VyRW50cnkCCQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAUGcGllY2VzCQEMSW50ZWdlckVudHJ5AgkBJWtleUxhbmRBcnRTdGF0dXNCeVR5cGVBc3NldElkQW5kT3duZXIDBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAUEYWRkcgUGcGllY2VzCQELU3RyaW5nRW50cnkCCAULY2xhaW1SZXN1bHQCXzIJALkJAggFC2NsYWltUmVzdWx0Al8zAgE6AQ1tZXJnZUludGVybmFsBwtuZXdMYW5kU2l6ZQhuZXdMZXZlbAdmb3JtdWxhBGFkZHIMbGFuZEFzc2V0SWRzBHR4SWQHbmVlZE1hdAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQRhZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkCgEKY2hlY2tNZXJnZQIDYWNjC2xhbmRBc3NldElkBAVhc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFC2xhbmRBc3NldElkBAd0aW1lS2V5CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkBAlzYXZlZFRpbWUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBBQd0aW1lS2V5CQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQECIT0CBQVvd25lcgUEYWRkcgkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQBZAkAtQkCCAUFYXNzZXQLZGVzY3JpcHRpb24CAV8ECWNvbnRpbmVudAkAkQMCBQFkBQxyZWNDb250aW5lbnQDAwkBAiE9AggFA2FjYwJfMwIACQECIT0CCAUDYWNjAl8zBQljb250aW5lbnQHCQACAQIuTGFuZHMgc2hvdWxkIGJlIG9uIHRoZSBzYW1lIGNvbnRpbmVudCB0byBtZXJnZQQIbGFuZFNpemUJAJEDAgUBZAULcmVjTGFuZFNpemUEB3NpemVzSW4IBQNhY2MCXzEEAWkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAswkCBQdzaXplc0luBQhsYW5kU2l6ZQInWW91IGhhdmVuJ3QgcGFzc2VkIGFsbCB0aGUgbGFuZHMgbmVlZGVkBAhzaXplc091dAkArAICCQCvAgIFB3NpemVzSW4FAWkJALACAgUHc2l6ZXNJbgkAZAIFAWkAAQQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQUIbGFuZFNpemUEBGFydHMJAGQCCAUDYWNjAl8yCQELdmFsdWVPckVsc2UCCQCfCAEJASBrZXlMYW5kQXJ0U3RhdHVzQnlUeXBlQW5kQXNzZXRJZAIFCkFSVFBSRVNBTEUFC2xhbmRBc3NldElkAwkBC3ZhbHVlT3JFbHNlAgkAoAgBCQEfa2V5UHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZAEFC2xhbmRBc3NldElkBwUGcGllY2VzAAAECmluZnJhTGV2ZWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAhyZXFMZXZlbAQHJG1hdGNoMAUIbGFuZFNpemUDCQAAAgIBUwUHJG1hdGNoMAADAwkAAAICAU0FByRtYXRjaDAABAMJAAACAgFMBQckbWF0Y2gwAAUDCQAAAgICWEwFByRtYXRjaDAABgkAAgECGk9ubHkgUywgTSwgTCwgWEwgY2FuIG1lcmdlAwkBAiE9AgUKaW5mcmFMZXZlbAUIcmVxTGV2ZWwJAAIBAiJBbGwgbGFuZHMgc2hvdWxkIGJlIG1heGVkIHRvIG1lcmdlBAdsYW5kTnVtCQCRAwIFAWQFCnJlY0xhbmROdW0EDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCBQFkBQtyZWNUZXJyYWlucwQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFCXNhdmVkVGltZQMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEFCXNhdmVkVGltZQIMLCBjdXJyZW50ID0gCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wBBZkYWlseVByb2R1Y3Rpb25CeVBpZWNlCQEMYXBwbHlCb251c2VzAgULbGFuZEFzc2V0SWQFBnBpZWNlcwQFYnBSZXMJAQZhZGRSZXMFCQC1CQIIBQNhY2MCXzQCAV8FDXRlcnJhaW5Db3VudHMFCWRlbHRhVGltZQkAaQIFBnBpZWNlcwAZBRZkYWlseVByb2R1Y3Rpb25CeVBpZWNlBAVwcm9wcwkBGXVwZGF0ZVByb3BvcnRpb25zSW50ZXJuYWwECQC1CQIIBQNhY2MCXzYCAV8FDXRlcnJhaW5Db3VudHMJAGkCBQZwaWVjZXMAGQD///////////8BCQCYCgYFCHNpemVzT3V0BQRhcnRzBQljb250aW5lbnQFBWJwUmVzCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIIBQNhY2MCXzUJAQtEZWxldGVFbnRyeQEJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQJAQtEZWxldGVFbnRyeQEJASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKTEFORFBSRUZJWAULbGFuZEFzc2V0SWQFBGFkZHIJAQtEZWxldGVFbnRyeQEJARBrZXlMYW5kVG9Bc3NldElkAQUHbGFuZE51bQkBC0RlbGV0ZUVudHJ5AQkBCmtleU5mdE5hbWUCBQdsYW5kTnVtBQhsYW5kU2l6ZQkBC0RlbGV0ZUVudHJ5AQkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQELRGVsZXRlRW50cnkBCQEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQELRGVsZXRlRW50cnkBCQEea2V5SW5mcmFMZXZlbEJ5QXNzZXRJZEFuZE93bmVyAgULbGFuZEFzc2V0SWQFBGFkZHIJAQtEZWxldGVFbnRyeQEJAR9rZXlQcmVzYWxlQXJ0QWN0aXZhdGVkQnlBc3NldElkAQULbGFuZEFzc2V0SWQJAQtEZWxldGVFbnRyeQEJASdrZXlQcmVzYWxlQXJ0QWN0aXZhdGVkQnlBc3NldElkQW5kT3duZXICBQtsYW5kQXNzZXRJZAUEYWRkcgkBC0RlbGV0ZUVudHJ5AQkBIGtleUxhbmRBcnRTdGF0dXNCeVR5cGVBbmRBc3NldElkAgUKQVJUUFJFU0FMRQULbGFuZEFzc2V0SWQJAQtEZWxldGVFbnRyeQEJASVrZXlMYW5kQXJ0U3RhdHVzQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKQVJUUFJFU0FMRQULbGFuZEFzc2V0SWQFBGFkZHIJAQtEZWxldGVFbnRyeQEJARFrZXlMYW5kTnVtVG9Pd25lcgEFB2xhbmROdW0JAQRCdXJuAgkA2QQBBQtsYW5kQXNzZXRJZAABBQVwcm9wcwQFYnBLZXkJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQUFYnBLZXkEB3Byb3BTdHIJAQt2YWx1ZU9yRWxzZQIJAKIIAQkBEWtleVJlc1Byb3BvcnRpb25zAAILMF8wXzBfMF8wXzAEAXIKAAIkbAUMbGFuZEFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAmAoGBQdmb3JtdWxhAAACAAkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMFA25pbAUHcHJvcFN0cgoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKY2hlY2tNZXJnZQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEBAljb250aW5lbnQIBQFyAl8zBAxjb250aW5lbnRJZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAzwgCBQpjb250aW5lbnRzBQljb250aW5lbnQJAKwCAgITVW5rbm93biBjb250aW5lbnQ6IAUJY29udGluZW50BAh0ZXJyYWlucwkBC2dlblRlcnJhaW5zAgkBA2FicwEJAJ4DAQUEdHhJZAUMY29udGluZW50SWR4BAdmcmVlTnVtCQELdmFsdWVPckVsc2UCCQCfCAEJARJrZXlOZXh0RnJlZUxhbmROdW0AAPUDBApuZXdMYW5kTnVtCQCkAwEFB2ZyZWVOdW0EBWlzc3VlCQDCCAUJAQprZXlOZnROYW1lAgUKbmV3TGFuZE51bQULbmV3TGFuZFNpemUJALkJAgkAzAgCBQpuZXdMYW5kTnVtCQDMCAIFC25ld0xhbmRTaXplCQDMCAIFCHRlcnJhaW5zCQDMCAIFCWNvbnRpbmVudAUDbmlsAgFfAAEAAAcEB2Fzc2V0SWQJALgIAQUFaXNzdWUEDm5ld0xhbmRBc3NldElkCQDYBAEFB2Fzc2V0SWQEBm5ld01hdAkAuQkCCQERc3VidHJhY3RNYXRlcmlhbHMDCQBmAgUHbmVlZE1hdAAACQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBQduZWVkTWF0AgFfCQCUCgIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIJAM0IAggFAXICXzUJAQxJbnRlZ2VyRW50cnkCCQESa2V5TmV4dEZyZWVMYW5kTnVtAAkAZAIFB2ZyZWVOdW0AAQUFaXNzdWUJAQtTdHJpbmdFbnRyeQIJARBrZXlMYW5kVG9Bc3NldElkAQUKbmV3TGFuZE51bQUObmV3TGFuZEFzc2V0SWQJAQtTdHJpbmdFbnRyeQIJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQ5uZXdMYW5kQXNzZXRJZAUEYWRkcgkBC1N0cmluZ0VudHJ5AgkBEWtleUxhbmROdW1Ub093bmVyAQUKbmV3TGFuZE51bQUEYWRkcgkBDEludGVnZXJFbnRyeQIJASBrZXlMYW5kQXJ0U3RhdHVzQnlUeXBlQW5kQXNzZXRJZAIFCkFSVFBSRVNBTEUFDm5ld0xhbmRBc3NldElkCAUBcgJfMgkBDEludGVnZXJFbnRyeQIJASVrZXlMYW5kQXJ0U3RhdHVzQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKQVJUUFJFU0FMRQUObmV3TGFuZEFzc2V0SWQFBGFkZHIIBQFyAl8yCQEMSW50ZWdlckVudHJ5AgkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQ5uZXdMYW5kQXNzZXRJZAUIbmV3TGV2ZWwJAQxJbnRlZ2VyRW50cnkCCQEea2V5SW5mcmFMZXZlbEJ5QXNzZXRJZEFuZE93bmVyAgUObmV3TGFuZEFzc2V0SWQFBGFkZHIFCG5ld0xldmVsCQELU3RyaW5nRW50cnkCBQVicEtleQkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAggFAXICXzQJAMwIAgUGbmV3TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6CQELU3RyaW5nRW50cnkCCQERa2V5UmVzUHJvcG9ydGlvbnMACAUBcgJfNgkBC1N0cmluZ0VudHJ5AgkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkCQC5CQIJAMwIAgUJY29udGluZW50CQDMCAICAUwJAMwIAgUObmV3TGFuZEFzc2V0SWQFA25pbAIBXwkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUEYWRkcgABBQdhc3NldElkBQ5uZXdMYW5kQXNzZXRJZAEDczJtAwRhZGRyDGxhbmRBc3NldElkcwR0eElkCQENbWVyZ2VJbnRlcm5hbAcCAU0AAwIEU1NTUwUEYWRkcgUMbGFuZEFzc2V0SWRzBQR0eElkAAABA20ybAUEYWRkcgxsYW5kQXNzZXRJZHMEdHhJZAxzaG91bGRVc2VNYXQNcGF5bWVudEFtb3VudAQEY29zdAkAaAIFFUluZnJhVXBncmFkZUNvc3RTVXNkbgAEAwMJAQEhAQUMc2hvdWxkVXNlTWF0CQECIT0CBQ1wYXltZW50QW1vdW50BQRjb3N0BwkAAgEJAKwCAgIbUGF5bWVudCBhdHRhY2hlZCBzaG91bGQgYmUgCQCkAwEFBGNvc3QJAQ1tZXJnZUludGVybmFsBwIBTAAEAgNTTU0FBGFkZHIFDGxhbmRBc3NldElkcwUEdHhJZAkAaAIFEUluZnJhVXBncmFkZUNvc3RTAAQBBGwyeGwFBGFkZHIMbGFuZEFzc2V0SWRzBHR4SWQMc2hvdWxkVXNlTWF0DXBheW1lbnRBbW91bnQEBGNvc3QJAGgCBRVJbmZyYVVwZ3JhZGVDb3N0U1VzZG4ALwMDCQEBIQEFDHNob3VsZFVzZU1hdAkBAiE9AgUNcGF5bWVudEFtb3VudAUEY29zdAcJAAIBCQCsAgICG1BheW1lbnQgYXR0YWNoZWQgc2hvdWxkIGJlIAkApAMBBQRjb3N0CQENbWVyZ2VJbnRlcm5hbAcCAlhMAAUCBVNTU01MBQRhZGRyBQxsYW5kQXNzZXRJZHMFBHR4SWQJAGgCBRFJbmZyYVVwZ3JhZGVDb3N0UwAvAQZ4bDJ4eGwFBGFkZHIMbGFuZEFzc2V0SWRzBHR4SWQMc2hvdWxkVXNlTWF0DXBheW1lbnRBbW91bnQEBGNvc3QJAGgCBRVJbmZyYVVwZ3JhZGVDb3N0U1VzZG4ANgMDCQEBIQEFDHNob3VsZFVzZU1hdAkBAiE9AgUNcGF5bWVudEFtb3VudAUEY29zdAcJAAIBCQCsAgICG1BheW1lbnQgYXR0YWNoZWQgc2hvdWxkIGJlIAkApAMBBQRjb3N0CQENbWVyZ2VJbnRlcm5hbAcCA1hYTAAGAgNMWEwFBGFkZHIFDGxhbmRBc3NldElkcwUEdHhJZAkAaAIFEUluZnJhVXBncmFkZUNvc3RTADYBC21lcmdlQ29tbW9uBQxzaG91bGRVc2VNYXQEYWRkcg1wYXltZW50QW1vdW50DGxhbmRBc3NldElkcwR0eElkBAttZXJnZVJlc3VsdAQHJG1hdGNoMAkAkAMBBQxsYW5kQXNzZXRJZHMDCQAAAgAEBQckbWF0Y2gwCQEDczJtAwUEYWRkcgUMbGFuZEFzc2V0SWRzBQR0eElkAwkAAAIAAwUHJG1hdGNoMAkBA20ybAUFBGFkZHIFDGxhbmRBc3NldElkcwUEdHhJZAUMc2hvdWxkVXNlTWF0BQ1wYXltZW50QW1vdW50AwkAAAIABQUHJG1hdGNoMAkBBGwyeGwFBQRhZGRyBQxsYW5kQXNzZXRJZHMFBHR4SWQFDHNob3VsZFVzZU1hdAUNcGF5bWVudEFtb3VudAMJAAACAAIFByRtYXRjaDAJAQZ4bDJ4eGwFBQRhZGRyBQxsYW5kQXNzZXRJZHMFBHR4SWQFDHNob3VsZFVzZU1hdAUNcGF5bWVudEFtb3VudAkAAgECDVVua25vd24gbWVyZ2UFC21lcmdlUmVzdWx0EAFpAQlzdGFrZUxhbmQABANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQHYXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIIBQNwbXQGYW1vdW50AAEJAAIBCQCsAgIJAKwCAgIETkZUIAUKTEFORFBSRUZJWAIkIHRva2VuIHNob3VsZCBiZSBhdHRhY2hlZCBhcyBwYXltZW50BAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkAwkBAiE9AggFBWFzc2V0Bmlzc3VlcgUEdGhpcwkAAgECF1Vua25vd24gaXNzdWVyIG9mIHRva2VuAwkBASEBCQEIY29udGFpbnMCCAUFYXNzZXQEbmFtZQUKTEFORFBSRUZJWAkAAgEJAKwCAgkArAICAglPbmx5IE5GVCAFCkxBTkRQUkVGSVgCFCB0b2tlbnMgYXJlIGFjY2VwdGVkBAtsYW5kTnVtU2l6ZQkAsAICCAUFYXNzZXQEbmFtZQAEBAdsYW5kTnVtAwkBCGNvbnRhaW5zAgULbGFuZE51bVNpemUCA1hYTAkAswICBQtsYW5kTnVtU2l6ZQADAwkBCGNvbnRhaW5zAgULbGFuZE51bVNpemUCAlhMCQCzAgIFC2xhbmROdW1TaXplAAIJALMCAgULbGFuZE51bVNpemUAAQQKbGFuZE51bUludAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQC2CQEFB2xhbmROdW0JAKwCAgIeQ2Fubm90IHBhcnNlIGxhbmQgbnVtYmVyIGZyb20gCAUFYXNzZXQEbmFtZQQLbGFuZEFzc2V0SWQJANgEAQUHYXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAMJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCEiBpcyBhbHJlYWR5IHN0YWtlZAQBZAkAtQkCCAUFYXNzZXQLZGVzY3JpcHRpb24CAV8EDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCBQFkBQtyZWNUZXJyYWlucwQFcHJvcHMJARF1cGRhdGVQcm9wb3J0aW9ucwMFDXRlcnJhaW5Db3VudHMJAGkCCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCBQFkBQtyZWNMYW5kU2l6ZQAZAAEJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkxBTkRQUkVGSVgFC2xhbmRBc3NldElkBQdhZGRyZXNzCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQELU3RyaW5nRW50cnkCCQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEWtleUxhbmROdW1Ub093bmVyAQUHbGFuZE51bQUHYWRkcmVzcwkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5UmVzUHJvcG9ydGlvbnMABQVwcm9wcwUDbmlsAWkBC3Vuc3Rha2VMYW5kAQ5sYW5kQXNzZXRJZFN0cgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECJHVuc3Rha2UgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQEYWRkcgkApQgBCAUBaQZjYWxsZXIEAWMJARRjaGVja0NsYWltQ29uZGl0aW9ucwEFBGFkZHIEDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCCAUBYwJfMwULcmVjVGVycmFpbnMEBnBpZWNlcwkBD251bVBpZWNlc0J5U2l6ZQEJAJEDAggFAWMCXzMFC3JlY0xhbmRTaXplBAVwcm9wcwkBEXVwZGF0ZVByb3BvcnRpb25zAwUNdGVycmFpbkNvdW50cwkAaQIFBnBpZWNlcwAZAP///////////wEEC2NsYWltUmVzdWx0CQEIY2xhaW1BbGwDBQRhZGRyCAUBYwJfMgUGcGllY2VzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEIBQFjAl8yCQDMCAIJAQtEZWxldGVFbnRyeQEJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQgFAWMCXzIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpMQU5EUFJFRklYCAUBYwJfMgUEYWRkcgkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5UmVzUHJvcG9ydGlvbnMABQVwcm9wcwkAzAgCCQELU3RyaW5nRW50cnkCCAULY2xhaW1SZXN1bHQCXzIJALkJAggFC2NsYWltUmVzdWx0Al8zAgE6BQNuaWwBaQEJc3Rha2VEdWNrAAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAEB2Fzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCAUDcG10BmFtb3VudAABCQACAQkArAICCQCsAgICBE5GVCAFCkRVQ0tQUkVGSVgCJCB0b2tlbiBzaG91bGQgYmUgYXR0YWNoZWQgYXMgcGF5bWVudAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMDCQECIT0CCAUFYXNzZXQGaXNzdWVyBQ1pbmN1YmF0b3JBZGRyCQECIT0CCAUFYXNzZXQGaXNzdWVyBQticmVlZGVyQWRkcgcJAAIBCQCsAgIJAKwCAgISVW5rbm93biBpc3N1ZXIgb2YgBQpEVUNLUFJFRklYAgYgdG9rZW4DCQEBIQEJAQhjb250YWlucwIIBQVhc3NldARuYW1lBQpEVUNLUFJFRklYCQACAQkArAICCQCsAgICCU9ubHkgTkZUIAUKRFVDS1BSRUZJWAIUIHRva2VucyBhcmUgYWNjZXB0ZWQECmFzc2V0SWRTdHIJANgEAQUHYXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQphc3NldElkU3RyAwkBCWlzRGVmaW5lZAEJAJ8IAQUHdGltZUtleQkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQISIGlzIGFscmVhZHkgc3Rha2VkAwkBCWlzRGVmaW5lZAEJAKIIAQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwkAAgEJAKwCAgIdWW91IGFscmVhZHkgc3Rha2VkIG9uZSBkdWNrOiAIBQVhc3NldARuYW1lBAZsb2NLZXkJAQ9rZXlEdWNrTG9jYXRpb24BBQphc3NldElkU3RyBAhsb2NhdGlvbgkAoggBBQZsb2NLZXkECWtleUhlYWx0aAkBDWtleUR1Y2tIZWFsdGgBBQphc3NldElkU3RyBAZoZWFsdGgJAJ8IAQUJa2V5SGVhbHRoBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQUKYXNzZXRJZFN0cgQIYmFja3BhY2sJAKIIAQUFYnBLZXkJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKRFVDS1BSRUZJWAkA2AQBBQdhc3NldElkBQdhZGRyZXNzCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQELU3RyaW5nRW50cnkCCQEQa2V5RHVja0lkVG9Pd25lcgEFCmFzc2V0SWRTdHIFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwUKYXNzZXRJZFN0cgUDbmlsAwkBCWlzRGVmaW5lZAEFCGxvY2F0aW9uBQNuaWwJAM4IAgkAzAgCCQELU3RyaW5nRW50cnkCBQZsb2NLZXkFD0RFRkFVTFRMT0NBVElPTgUDbmlsAwkBCWlzRGVmaW5lZAEFBmhlYWx0aAUDbmlsCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aABkBQNuaWwDCQEJaXNEZWZpbmVkAQUIYmFja3BhY2sFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCBQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoFA25pbAFpAQt1bnN0YWtlRHVjawEKYXNzZXRJZFN0cgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECJHVuc3Rha2UgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQHYXNzZXRJZAkA2QQBBQphc3NldElkU3RyBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMDCQECIT0CCAUFYXNzZXQGaXNzdWVyBQ1pbmN1YmF0b3JBZGRyCQECIT0CCAUFYXNzZXQGaXNzdWVyBQticmVlZGVyQWRkcgcJAAIBCQCsAgIJAKwCAgISVW5rbm93biBpc3N1ZXIgb2YgBQpEVUNLUFJFRklYAgYgdG9rZW4DCQEBIQEJAQhjb250YWlucwIIBQVhc3NldARuYW1lBQpEVUNLUFJFRklYCQACAQkArAICCQCsAgICCU9ubHkgTkZUIAUKRFVDS1BSRUZJWAIXIHRva2VucyBjYW4gYmUgdW5zdGFrZWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQkA2AQBBQdhc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQUHdGltZUtleQkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQDCQEBIQEJAQlpc0RlZmluZWQBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQdhZGRyZXNzCQACAQkArAICCQCsAgICCVRoZSBkdWNrIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARBrZXlEdWNrSWRUb093bmVyAQkA2AQBBQdhc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQdhZGRyZXNzCQACAQIXU3Rha2VkIE5GVCBpcyBub3QgeW91cnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHdGltZUtleQkAzAgCCQELRGVsZXRlRW50cnkBCQEPa2V5RHVja0xvY2F0aW9uAQUKYXNzZXRJZFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEQa2V5RHVja0lkVG9Pd25lcgEFCmFzc2V0SWRTdHIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpEVUNLUFJFRklYBQphc3NldElkU3RyBQdhZGRyZXNzCQDMCAIJAQtEZWxldGVFbnRyeQEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFB2FkZHJlc3MFA25pbAFpAQhjbGFpbVJlcwIGYW1vdW50DmxhbmRBc3NldElkU3RyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIlY2xhaW1SZXMgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQEYWRkcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIEBnJlc3VsdAkBEGNsYWltUmVzSW50ZXJuYWwCBQRhZGRyBQZhbW91bnQJAJQKAgkAzQgCCAUGcmVzdWx0Al8xCQELU3RyaW5nRW50cnkCCAUGcmVzdWx0Al8yCQC5CQIIBQZyZXN1bHQCXzMCAToJAJEDAggFBnJlc3VsdAJfMwUIYnBJZHhSZXMBaQEGZmxpZ2h0AgdtZXNzYWdlA3NpZwMJAQEhAQkAxBMDBQdtZXNzYWdlBQNzaWcFA3B1YgkAAgECGHNpZ25hdHVyZSBkb2VzIG5vdCBtYXRjaAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECI2ZsaWdodCBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAVwYXJ0cwkAtQkCCQCwCQEFB21lc3NhZ2UCATsEAmhwCQC1CQIJAJEDAgkAtQkCCQCRAwIFBXBhcnRzAAACAXwAAAIBXwQFY3VySFAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJocAAABAVuZXdIUAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmhwAAEEDW5ld0xvY0FuZFRpbWUJALUJAgkAkQMCBQVwYXJ0cwABAgE6BAtuZXdMb2NhdGlvbgkAkQMCBQ1uZXdMb2NBbmRUaW1lAAAEBHRpbWUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ1uZXdMb2NBbmRUaW1lAAEDAwkAZgIFBHRpbWUJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAURRklWRU1JTlVURVNNSUxMSVMGCQBmAgkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBRFGSVZFTUlOVVRFU01JTExJUwUEdGltZQkAAgECEnNpZ25hdHVyZSBvdXRkYXRlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQJa2V5SGVhbHRoCQENa2V5RHVja0hlYWx0aAEFC2R1Y2tBc3NldElkBAxvbGRGcm9tU3RhdGUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJa2V5SGVhbHRoAGQDCQECIT0CBQxvbGRGcm9tU3RhdGUFBWN1ckhQCQACAQkArAICCQCsAgIJAKwCAgIKb2xkSGVhbHRoPQkApAMBCQELdmFsdWVPckVsc2UCCQCfCAEFCWtleUhlYWx0aABkAi8gZnJvbSBzdGF0ZSBkb2VzIG5vdCBtYXRjaCBvbmUgZnJvbSBmbGlnaHQgbG9nPQkApAMBBQVjdXJIUAMJAGcCAAAFBWN1ckhQCQACAQIeWW91IGNhbid0IGZseSB3aXRoIHplcm8gaGVhbHRoBAZsb2NLZXkJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAQLY3VyTG9jYXRpb24JAQt2YWx1ZU9yRWxzZQIJAKIIAQUGbG9jS2V5BQ9ERUZBVUxUTE9DQVRJT04DCQAAAgULbmV3TG9jYXRpb24FC2N1ckxvY2F0aW9uCQACAQIiWW91IGNhbid0IGZseSB0byB0aGUgc2FtZSBsb2NhdGlvbgkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmxvY0tleQMJAGYCBQVuZXdIUAAABQtuZXdMb2NhdGlvbgULY3VyTG9jYXRpb24JAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aAUFbmV3SFAFA25pbAUEdW5pdAFpAQlzZXRIZWFsdGgCBmhlYWx0aAtkdWNrQXNzZXRJZAMDCQBmAgAABQZoZWFsdGgGCQBmAgUGaGVhbHRoAGQJAAIBAhpIUCBzaG91bGQgYmUgd2l0aGluIDAuLjEwMAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAUGaGVhbHRoBQNuaWwBaQEEaGVhbAIHbWF0VHlwZQZhbW91bnQDAwkAZgIAAAUHbWF0VHlwZQYJAGcCBQdtYXRUeXBlBQZOVU1SRVMJAAIBCQCsAgICElVua25vd24gbWF0ZXJpYWw6IAkApAMBBQdtYXRUeXBlAwkAZwIAAAUGYW1vdW50CQACAQkArAICAhtBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlISAJAKQDAQUGYW1vdW50BAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAlrZXlIZWFsdGgJAQ1rZXlEdWNrSGVhbHRoAQULZHVja0Fzc2V0SWQECW9sZEhlYWx0aAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAMJAGcCBQlvbGRIZWFsdGgAZAkAAgECGkhQIHNob3VsZCBiZSA8IDEwMCB0byBoZWFsBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQFbUxpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8EDWN1cnJlbnRBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVtTGlzdAUHbWF0VHlwZQQLZGVsdGFIZWFsdGgJAJcDAQkAzAgCCQBpAgUGYW1vdW50BQhIRUFMQ09TVAkAzAgCCQBlAgBkBQlvbGRIZWFsdGgFA25pbAQLc3BlbmRBbW91bnQJAGgCBQtkZWx0YUhlYWx0aAUISEVBTENPU1QDCQBmAgULc3BlbmRBbW91bnQFDWN1cnJlbnRBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IG5lZWQgCQCkAwEFC3NwZW5kQW1vdW50AgQgb2YgCQCRAwIFCG1hdFR5cGVzBQdtYXRUeXBlAiQgdG8gaGVhbCwgYnV0IHlvdSBiYWNrcGFjayBjb250YWlucyAJAKQDAQUNY3VycmVudEFtb3VudAQGbmV3TWF0CQEMc3ViT25lSW5MaXN0AwUFbUxpc3QFB21hdFR5cGUFC3NwZW5kQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlIZWFsdGgJAGQCBQlvbGRIZWFsdGgFC2RlbHRhSGVhbHRoCQDMCAIJAQtTdHJpbmdFbnRyeQIFBWJwS2V5CQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCBQZuZXdNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToFA25pbAFpAQ51cGRhdGVCYWNrcGFjawILZHVja0Fzc2V0SWQHbmV3UGFjawMJAQIhPQIIBQFpBmNhbGxlcgULZWNvbm9teUFkZHIJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBQduZXdQYWNrBQNuaWwFB25ld1BhY2sBaQENZXhwZWRpdGlvbkJ1eQIHbWVzc2FnZQNzaWcDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQHYXNzZXRJZAULdXNkbkFzc2V0SWQJAAIBAhpBbGxvd2VkIFVTRE4gcGF5bWVudCBvbmx5IQMJAQIhPQIIBQNwbXQGYW1vdW50BQdFWFBVU0ROCQACAQkArAICAhtQYXltZW50IGF0dGFjaGVkIHNob3VsZCBiZSAJAKQDAQUHRVhQVVNETgQGcmVzdWx0CQEQZXhwZWRpdGlvbkNvbW1vbgUHCAUBaQZjYWxsZXIIBQFpDXRyYW5zYWN0aW9uSWQFB21lc3NhZ2UFA3NpZwkAlAoCCQDNCAIIBQZyZXN1bHQCXzEJAQ5TY3JpcHRUcmFuc2ZlcgMFC2Vjb25vbXlBZGRyCAUDcG10BmFtb3VudAULdXNkbkFzc2V0SWQIBQZyZXN1bHQCXzIBaQEKZXhwZWRpdGlvbgIHbWVzc2FnZQNzaWcDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAidleHBlZGl0aW9uIGRvZXNuJ3QgcmVxdWlyZSBhbnkgcGF5bWVudHMJARBleHBlZGl0aW9uQ29tbW9uBQYIBQFpBmNhbGxlcggFAWkNdHJhbnNhY3Rpb25JZAUHbWVzc2FnZQUDc2lnAWkBDHVwZ3JhZGVJbmZyYQESbGFuZEFzc2V0SWRJZ25vcmVkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIzSW5mcmFzdHJ1Y3R1cmUgdXBncmFkZSBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzCQENdXBJbmZyYUNvbW1vbgMGCAUBaQZjYWxsZXIAAAFpARB1cGdyYWRlSW5mcmFVc2RuARJsYW5kQXNzZXRJZElnbm9yZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQHYXNzZXRJZAULdXNkbkFzc2V0SWQJAAIBAhpBbGxvd2VkIFVTRE4gcGF5bWVudCBvbmx5IQQGcmVzdWx0CQENdXBJbmZyYUNvbW1vbgMHCAUBaQZjYWxsZXIIBQNwbXQGYW1vdW50CQCUCgIJAM0IAggFBnJlc3VsdAJfMQkBDlNjcmlwdFRyYW5zZmVyAwULZWNvbm9teUFkZHIIBQNwbXQGYW1vdW50BQt1c2RuQXNzZXRJZAgFBnJlc3VsdAJfMgFpARBhY3RpdmF0ZUFydGlmYWN0AQdhcnROYW1lAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIwQXJ0aWZhY3QgYWN0aXZhdGlvbiBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAZyZXN1bHQEByRtYXRjaDAFB2FydE5hbWUDCQAAAgIHUFJFU0FMRQUHJG1hdGNoMAkBEmFjdGl2YXRlUHJlc2FsZUFydAEJAKUIAQgFAWkGY2FsbGVyCQACAQIQVW5rbm93biBhcnRpZmFjdAUGcmVzdWx0AWkBCm1lcmdlTGFuZHMBDGxhbmRBc3NldElkcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEXBlcm1pc3Npb24gZGVuaWVkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIqTGFuZHMgbWVyZ2luZyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzCQELbWVyZ2VDb21tb24FBgkApQgBCAUBaQZjYWxsZXIAAAUMbGFuZEFzc2V0SWRzCAUBaQ10cmFuc2FjdGlvbklkAWkBDm1lcmdlTGFuZHNVc2RuAQxsYW5kQXNzZXRJZHMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECHEV4YWN0bHkgb25lIHBheW1lbnQgcmVxdWlyZWQEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAAAwkBAiE9AggFA3BtdAdhc3NldElkBQt1c2RuQXNzZXRJZAkAAgECGkFsbG93ZWQgVVNETiBwYXltZW50IG9ubHkhBAZyZXN1bHQJAQttZXJnZUNvbW1vbgUHCQClCAEIBQFpBmNhbGxlcggFA3BtdAZhbW91bnQFDGxhbmRBc3NldElkcwgFAWkNdHJhbnNhY3Rpb25JZAkAlAoCCQDNCAIIBQZyZXN1bHQCXzEJAQ5TY3JpcHRUcmFuc2ZlcgMFC2Vjb25vbXlBZGRyCAUDcG10BmFtb3VudAULdXNkbkFzc2V0SWQIBQZyZXN1bHQCXzIAp6gufw==",
    "height": 3471996,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9oK4dAXom2dQLD8AQ3YJqf7Pj2NJdBTgBpXdUdC3Cwna
Next: CP6igkuaWA8XiCzovPjpDDv9zthn8nuDcfFDC3FRZ9c1

Diff: 
Old New Differences
62 62  let InfraUpgradeCostS = match chain {
63 63      case _ => 
64 64          if (("W" == $match0))
65 -             then 18921595217
65 +             then 6307198406
66 66              else if (("T" == $match0))
67 -                 then 189215952
67 +                 then 63071984
68 68                  else throw("Unknown chain")
69 69  }
70 70  
71 71  let InfraUpgradeCostSUsdn = match chain {
72 72      case _ => 
73 73          if (("W" == $match0))
74 -             then 120000000
74 +             then 40000000
75 75              else if (("T" == $match0))
76 -                 then 1200000
76 +                 then 400000
77 77                  else throw("Unknown chain")
78 78  }
79 79  
113 113  
114 114  let continents = ["Asia", "Europe", "Americas", "Oceania", "Africa"]
115 115  
116 + let ARTPRESALE = "PRESALE"
117 + 
116 118  func keyNextFreeLandNum () = "nextLandNum"
117 119  
118 120  
141 143  
142 144  
143 145  func keyPresaleArtActivatedByAssetIdAndOwner (assetId,ownerAddr) = ((("presaleArtActivatedByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
146 + 
147 + 
148 + func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
149 + 
150 + 
151 + func keyLandArtStatusByTypeAssetIdAndOwner (type,assetId,ownerAddr) = makeString(["landArtStatusByTypeAssetIdAndOwner", type, assetId, ownerAddr], "_")
144 152  
145 153  
146 154  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
252 260      }
253 261  
254 262  
263 + func updateProportionsInternal (propList,terrainCounts,landSizeIndex,sign) = if ((size(propList) != NUMRES))
264 +     then throw("Wrong proportions data")
265 +     else {
266 +         func updater (acc,i) =         {
267 +             let result = (parseIntValue(propList[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
268 +             if ((0 > result))
269 +                 then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ",  terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
270 +                 else (acc :+ toString(result))
271 +             }
272 + 
273 +         let r = {
274 +             let $l = [0, 1, 2, 3, 4, 5]
275 +             let $s = size($l)
276 +             let $acc0 = nil
277 +             func $f0_1 ($a,$i) =             if (($i >= $s))
278 +                 then $a
279 +                 else updater($a, $l[$i])
280 + 
281 +             func $f0_2 ($a,$i) =             if (($i >= $s))
282 +                 then $a
283 +                 else throw("List size exceeds 6")
284 + 
285 +             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
286 +             }
287 +         makeString(r, "_")
288 +         }
289 + 
290 + 
255 291  func updateProportions (terrainCounts,landSizeIndex,sign) = {
256 -     let props = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
257 -     if ((size(props) != NUMRES))
258 -         then throw("Wrong proportions data")
259 -         else {
260 -             func updater (acc,i) =             {
261 -                 let result = (parseIntValue(props[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
262 -                 if ((0 > result))
263 -                     then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ",  terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
264 -                     else (acc :+ toString(result))
265 -                 }
266 - 
267 -             let r = {
268 -                 let $l = [0, 1, 2, 3, 4, 5]
269 -                 let $s = size($l)
270 -                 let $acc0 = nil
271 -                 func $f0_1 ($a,$i) =                 if (($i >= $s))
272 -                     then $a
273 -                     else updater($a, $l[$i])
274 - 
275 -                 func $f0_2 ($a,$i) =                 if (($i >= $s))
276 -                     then $a
277 -                     else throw("List size exceeds 6")
278 - 
279 -                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
280 -                 }
281 -             makeString(r, "_")
282 -             }
292 +     let propList = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
293 +     updateProportionsInternal(propList, terrainCounts, landSizeIndex, sign)
283 294      }
284 295  
285 296  
373 384      }
374 385  
375 386  
387 + func genTerrains (seed,continentIdx) = {
388 +     let f = freq[continentIdx]
389 +     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))
390 + 
391 +     let t = {
392 +         let $l = [1, 2, 3, 4, 5]
393 +         let $s = size($l)
394 +         let $acc0 = $Tuple2("", (seed / FIVEX))
395 +         func $f0_1 ($a,$i) =         if (($i >= $s))
396 +             then $a
397 +             else terrainGenerator($a, $l[$i])
398 + 
399 +         func $f0_2 ($a,$i) =         if (($i >= $s))
400 +             then $a
401 +             else throw("List size exceeds 5")
402 + 
403 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
404 +         }
405 +     t._1
406 +     }
407 + 
408 + 
376 409  func getBackpack (bpKey) = {
377 410      let p = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
378 411  [toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
422 455                                          let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), 501)
423 456                                          let landNum = toString(freeNum)
424 457                                          let continentIdx = toInt((bigNum % FIVEX))
425 -                                         let f = freq[continentIdx]
426 -                                         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))
427 - 
428 -                                         let t = {
429 -                                             let $l = [1, 2, 3, 4, 5]
430 -                                             let $s = size($l)
431 -                                             let $acc0 = $Tuple2("", (bigNum / FIVEX))
432 -                                             func $f0_1 ($a,$i) =                                             if (($i >= $s))
433 -                                                 then $a
434 -                                                 else terrainGenerator($a, $l[$i])
435 - 
436 -                                             func $f0_2 ($a,$i) =                                             if (($i >= $s))
437 -                                                 then $a
438 -                                                 else throw("List size exceeds 5")
439 - 
440 -                                             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
441 -                                             }
458 +                                         let terrains = genTerrains(bigNum, continentIdx)
442 459                                          let continent = continents[continentIdx]
443 -                                         let issue = Issue(keyNftName(landNum, "S"), makeString([landNum, "S", t._1, continent], "_"), 1, 0, false)
460 +                                         let issue = Issue(keyNftName(landNum, "S"), makeString([landNum, "S", terrains, continent], "_"), 1, 0, false)
444 461                                          let assetId = calculateAssetId(issue)
445 462                                          let id = toBase58String(assetId)
446 463                                          $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), StringEntry(keyDuckLocation(duckAssetId), makeString([continent, "L", id], "_")), IntegerEntry(keyHealth, newHP), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))], id)
450 467          }
451 468  
452 469  
453 - func applyBonuses (landAssetId) = {
470 + func applyBonuses (landAssetId,pieces) = {
454 471      let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
455 -     let presaleBonus = if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
456 -         then 3
457 -         else 0
458 -     ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, presaleBonus, 20))
472 +     let artPieces = valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
473 +         then pieces
474 +         else 0)
475 +     ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, (artPieces * 3), (pieces * 20)))
459 476      }
460 477  
461 478  
469 486              let landAssetId = loc[locIdxId]
470 487              let asset = value(assetInfo(fromBase58String(landAssetId)))
471 488              let timeKey = keyStakedTimeByAssetId(landAssetId)
472 -             let savedTime = valueOrErrorMessage(getInteger(timeKey), (("NFT " + asset.name) + " is not staked"))
489 +             let savedTime = valueOrErrorMessage(getInteger(timeKey), (("Your duck is on " + asset.name) + ", which is not staked"))
473 490              let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
474 491              if ((owner != addr))
475 492                  then throw((LANDPREFIX + " is not yours"))
490 507          then throw(((("Saved timestamp is in future, saved = " + toString(c._4)) + ", current = ") + toString(lastBlock.timestamp)))
491 508          else {
492 509              let pieces = numPiecesBySize(landSize)
493 -             let dailyProductionByPiece = applyBonuses(c._2)
510 +             let dailyProductionByPiece = applyBonuses(c._2, pieces)
494 511              let availRes = fraction(deltaTime, (dailyProductionByPiece * pieces), DAYMILLIS)
495 512              if ((amount > availRes))
496 513                  then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))
510 527  func claimAll (addr,landAssetId,pieces) = {
511 528      let timeKey = keyStakedTimeByAssetId(landAssetId)
512 529      let savedTime = value(getInteger(timeKey))
513 -     let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId), DAYMILLIS) * pieces)
530 +     let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId, pieces), DAYMILLIS) * pieces)
514 531      claimResInternal(addr, availRes)
515 532      }
516 533  
544 561  
545 562  func activatePresaleArt (addr) = {
546 563      let c = checkClaimConditions(addr)
547 -     let activationKey = keyPresaleArtActivatedByAssetId(c._2)
564 +     let landAssetId = c._2
565 +     let activationKey = keyPresaleArtActivatedByAssetId(landAssetId)
548 566      if (valueOrElse(getBoolean(activationKey), false))
549 567          then throw("Presale artifact is already activated")
550 568          else if ((parseIntValue(c._3[recLandNum]) > 500))
551 -             then throw((((LANDPREFIX + " ") + c._2) + " is not eligible for presale artifact"))
569 +             then throw((((LANDPREFIX + " ") + landAssetId) + " is not eligible for presale artifact"))
552 570              else {
553 571                  let pieces = numPiecesBySize(c._3[recLandSize])
554 -                 let claimResult = claimAll(addr, c._2, pieces)
555 -                 (((claimResult._1 :+ BooleanEntry(keyPresaleArtActivatedByAssetId(c._2), true)) :+ BooleanEntry(keyPresaleArtActivatedByAssetIdAndOwner(c._2, addr), true)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":")))
572 +                 let claimResult = claimAll(addr, landAssetId, pieces)
573 +                 (((((claimResult._1 :+ BooleanEntry(activationKey, true)) :+ BooleanEntry(keyPresaleArtActivatedByAssetIdAndOwner(landAssetId, addr), true)) :+ IntegerEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId), pieces)) :+ IntegerEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr), pieces)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":")))
556 574                  }
575 +     }
576 + 
577 + 
578 + func mergeInternal (newLandSize,newLevel,formula,addr,landAssetIds,txId,needMat) = {
579 +     let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
580 +     func checkMerge (acc,landAssetId) =     {
581 +         let asset = value(assetInfo(fromBase58String(landAssetId)))
582 +         let timeKey = keyStakedTimeByAssetId(landAssetId)
583 +         let savedTime = valueOrErrorMessage(getInteger(timeKey), (("NFT " + asset.name) + " is not staked"))
584 +         let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
585 +         if ((owner != addr))
586 +             then throw((LANDPREFIX + " is not yours"))
587 +             else {
588 +                 let d = split(asset.description, "_")
589 +                 let continent = d[recContinent]
590 +                 if (if ((acc._3 != ""))
591 +                     then (acc._3 != continent)
592 +                     else false)
593 +                     then throw("Lands should be on the same continent to merge")
594 +                     else {
595 +                         let landSize = d[recLandSize]
596 +                         let sizesIn = acc._1
597 +                         let i = valueOrErrorMessage(indexOf(sizesIn, landSize), "You haven't passed all the lands needed")
598 +                         let sizesOut = (take(sizesIn, i) + drop(sizesIn, (i + 1)))
599 +                         let pieces = numPiecesBySize(landSize)
600 +                         let arts = (acc._2 + valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
601 +                             then pieces
602 +                             else 0))
603 +                         let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
604 +                         let reqLevel =                         match landSize {
605 +                             case _ => 
606 +                                 if (("S" == $match0))
607 +                                     then 3
608 +                                     else if (("M" == $match0))
609 +                                         then 4
610 +                                         else if (("L" == $match0))
611 +                                             then 5
612 +                                             else if (("XL" == $match0))
613 +                                                 then 6
614 +                                                 else throw("Only S, M, L, XL can merge")
615 +                         }
616 +                         if ((infraLevel != reqLevel))
617 +                             then throw("All lands should be maxed to merge")
618 +                             else {
619 +                                 let landNum = d[recLandNum]
620 +                                 let terrainCounts = countTerrains(d[recTerrains])
621 +                                 let deltaTime = (lastBlock.timestamp - savedTime)
622 +                                 if ((0 > deltaTime))
623 +                                     then throw(((("Saved timestamp is in future, saved = " + toString(savedTime)) + ", current = ") + toString(lastBlock.timestamp)))
624 +                                     else {
625 +                                         let dailyProductionByPiece = applyBonuses(landAssetId, pieces)
626 +                                         let bpRes = addRes(split(acc._4, "_"), terrainCounts, deltaTime, (pieces / 25), dailyProductionByPiece)
627 +                                         let props = updateProportionsInternal(split(acc._6, "_"), terrainCounts, (pieces / 25), -1)
628 +                                         $Tuple6(sizesOut, arts, continent, bpRes, (((((((((((((acc._5 :+ DeleteEntry(keyStakedTimeByAssetId(landAssetId))) :+ DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, addr))) :+ DeleteEntry(keyLandToAssetId(landNum))) :+ DeleteEntry(keyNftName(landNum, landSize))) :+ DeleteEntry(keyLandAssetIdToOwner(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetId(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetIdAndOwner(landAssetId, addr))) :+ DeleteEntry(keyPresaleArtActivatedByAssetId(landAssetId))) :+ DeleteEntry(keyPresaleArtActivatedByAssetIdAndOwner(landAssetId, addr))) :+ DeleteEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId))) :+ DeleteEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr))) :+ DeleteEntry(keyLandNumToOwner(landNum))) :+ Burn(fromBase58String(landAssetId), 1)), props)
629 +                                         }
630 +                                 }
631 +                         }
632 +                 }
633 +         }
634 + 
635 +     let bpKey = keyBackpackByDuck(duckAssetId)
636 +     let currentPack = getBackpack(bpKey)
637 +     let propStr = valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0")
638 +     let r = {
639 +         let $l = landAssetIds
640 +         let $s = size($l)
641 +         let $acc0 = $Tuple6(formula, 0, "", currentPack[bpIdxRes], nil, propStr)
642 +         func $f0_1 ($a,$i) =         if (($i >= $s))
643 +             then $a
644 +             else checkMerge($a, $l[$i])
645 + 
646 +         func $f0_2 ($a,$i) =         if (($i >= $s))
647 +             then $a
648 +             else throw("List size exceeds 4")
649 + 
650 +         $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
651 +         }
652 +     let continent = r._3
653 +     let continentIdx = valueOrErrorMessage(indexOf(continents, continent), ("Unknown continent: " + continent))
654 +     let terrains = genTerrains(abs(toBigInt(txId)), continentIdx)
655 +     let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), 501)
656 +     let newLandNum = toString(freeNum)
657 +     let issue = Issue(keyNftName(newLandNum, newLandSize), makeString([newLandNum, newLandSize, terrains, continent], "_"), 1, 0, false)
658 +     let assetId = calculateAssetId(issue)
659 +     let newLandAssetId = toBase58String(assetId)
660 +     let newMat = makeString(subtractMaterials((needMat > 0), split(currentPack[bpIdxMat], "_"), needMat), "_")
661 +     $Tuple2((((((((((((((r._5 :+ 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)
662 +     }
663 + 
664 + 
665 + func s2m (addr,landAssetIds,txId) = mergeInternal("M", 3, "SSSS", addr, landAssetIds, txId, 0)
666 + 
667 + 
668 + func m2l (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
669 +     let cost = (InfraUpgradeCostSUsdn * 4)
670 +     if (if (!(shouldUseMat))
671 +         then (paymentAmount != cost)
672 +         else false)
673 +         then throw(("Payment attached should be " + toString(cost)))
674 +         else mergeInternal("L", 4, "SMM", addr, landAssetIds, txId, (InfraUpgradeCostS * 4))
675 +     }
676 + 
677 + 
678 + func l2xl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
679 +     let cost = (InfraUpgradeCostSUsdn * 47)
680 +     if (if (!(shouldUseMat))
681 +         then (paymentAmount != cost)
682 +         else false)
683 +         then throw(("Payment attached should be " + toString(cost)))
684 +         else mergeInternal("XL", 5, "SSSML", addr, landAssetIds, txId, (InfraUpgradeCostS * 47))
685 +     }
686 + 
687 + 
688 + func xl2xxl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
689 +     let cost = (InfraUpgradeCostSUsdn * 54)
690 +     if (if (!(shouldUseMat))
691 +         then (paymentAmount != cost)
692 +         else false)
693 +         then throw(("Payment attached should be " + toString(cost)))
694 +         else mergeInternal("XXL", 6, "LXL", addr, landAssetIds, txId, (InfraUpgradeCostS * 54))
695 +     }
696 + 
697 + 
698 + func mergeCommon (shouldUseMat,addr,paymentAmount,landAssetIds,txId) = {
699 +     let mergeResult =     match size(landAssetIds) {
700 +         case _ => 
701 +             if ((4 == $match0))
702 +                 then s2m(addr, landAssetIds, txId)
703 +                 else if ((3 == $match0))
704 +                     then m2l(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
705 +                     else if ((5 == $match0))
706 +                         then l2xl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
707 +                         else if ((2 == $match0))
708 +                             then xl2xxl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
709 +                             else throw("Unknown merge")
710 +     }
711 +     mergeResult
557 712      }
558 713  
559 714  
839 994          }
840 995  
841 996  
997 + 
998 + @Callable(i)
999 + func mergeLands (landAssetIds) = if ((i.caller != this))
1000 +     then throw("permission denied")
1001 +     else if ((size(i.payments) != 0))
1002 +         then throw("Lands merging doesn't require any payments")
1003 +         else mergeCommon(true, toString(i.caller), 0, landAssetIds, i.transactionId)
1004 + 
1005 + 
1006 + 
1007 + @Callable(i)
1008 + func mergeLandsUsdn (landAssetIds) = if ((i.caller != this))
1009 +     then throw("permission denied")
1010 +     else if ((size(i.payments) != 1))
1011 +         then throw("Exactly one payment required")
1012 +         else {
1013 +             let pmt = value(i.payments[0])
1014 +             if ((pmt.assetId != usdnAssetId))
1015 +                 then throw("Allowed USDN payment only!")
1016 +                 else {
1017 +                     let result = mergeCommon(false, toString(i.caller), pmt.amount, landAssetIds, i.transactionId)
1018 +                     $Tuple2((result._1 :+ ScriptTransfer(economyAddr, pmt.amount, usdnAssetId)), result._2)
1019 +                     }
1020 +             }
1021 + 
1022 + 
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let chain = toUtf8String(take(drop(this.bytes, 1), 1))
5 5  
6 6  let usdnAssetId = match chain {
7 7      case _ => 
8 8          if (("W" == $match0))
9 9              then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10 10              else if (("T" == $match0))
11 11                  then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12 12                  else throw("Unknown chain")
13 13  }
14 14  
15 15  let incubatorAddr = match chain {
16 16      case _ => 
17 17          if (("W" == $match0))
18 18              then addressFromStringValue("3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv")
19 19              else if (("T" == $match0))
20 20                  then this
21 21                  else throw("Unknown chain")
22 22  }
23 23  
24 24  let breederAddr = match chain {
25 25      case _ => 
26 26          if (("W" == $match0))
27 27              then addressFromStringValue("3PDVuU45H7Eh5dmtNbnRNRStGwULA7NY6Hb")
28 28              else if (("T" == $match0))
29 29                  then this
30 30                  else throw("Unknown chain")
31 31  }
32 32  
33 33  let economyAddr = match chain {
34 34      case _ => 
35 35          if (("W" == $match0))
36 36              then addressFromStringValue("3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D")
37 37              else if (("T" == $match0))
38 38                  then addressFromStringValue("3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep")
39 39                  else throw("Unknown chain")
40 40  }
41 41  
42 42  let pub = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43 43  
44 44  let HEALCOST = 10000
45 45  
46 46  let LANDPREFIX = "LAND"
47 47  
48 48  let DUCKPREFIX = "DUCK"
49 49  
50 50  let DEFAULTLOCATION = "Africa_F_Africa"
51 51  
52 52  let NUMRES = 6
53 53  
54 54  let DAILYRESBYPIECE = 3456000
55 55  
56 56  let DAYMILLIS = 86400000
57 57  
58 58  let FIVEMINUTESMILLIS = 300000
59 59  
60 60  let RESOURCEPRICEMIN = 158549
61 61  
62 62  let InfraUpgradeCostS = match chain {
63 63      case _ => 
64 64          if (("W" == $match0))
65 -             then 18921595217
65 +             then 6307198406
66 66              else if (("T" == $match0))
67 -                 then 189215952
67 +                 then 63071984
68 68                  else throw("Unknown chain")
69 69  }
70 70  
71 71  let InfraUpgradeCostSUsdn = match chain {
72 72      case _ => 
73 73          if (("W" == $match0))
74 -             then 120000000
74 +             then 40000000
75 75              else if (("T" == $match0))
76 -                 then 1200000
76 +                 then 400000
77 77                  else throw("Unknown chain")
78 78  }
79 79  
80 80  let EXPMATERIALS = match chain {
81 81      case _ => 
82 82          if (("W" == $match0))
83 83              then 157679960139
84 84              else if (("T" == $match0))
85 85                  then 1576799601
86 86                  else throw("Unknown chain")
87 87  }
88 88  
89 89  let EXPUSDN = match chain {
90 90      case _ => 
91 91          if (("W" == $match0))
92 92              then 1000000000
93 93              else if (("T" == $match0))
94 94                  then 10000000
95 95                  else throw("Unknown chain")
96 96  }
97 97  
98 98  let MULT6 = 1000000
99 99  
100 100  let FIVEX = toBigInt(5)
101 101  
102 102  let TWENTYX = toBigInt(20)
103 103  
104 104  let TWENTY2X = toBigInt((20 * 20))
105 105  
106 106  let TWENTY3X = toBigInt(((20 * 20) * 20))
107 107  
108 108  let TWENTY4X = toBigInt((((20 * 20) * 20) * 20))
109 109  
110 110  let TWENTY5X = toBigInt(((((20 * 20) * 20) * 20) * 20))
111 111  
112 112  let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
113 113  
114 114  let continents = ["Asia", "Europe", "Americas", "Oceania", "Africa"]
115 115  
116 + let ARTPRESALE = "PRESALE"
117 + 
116 118  func keyNextFreeLandNum () = "nextLandNum"
117 119  
118 120  
119 121  func keyLandToAssetId (landNum) = ("landToAsset_" + landNum)
120 122  
121 123  
122 124  func keyNftName (landNum,landSize) = ((LANDPREFIX + landNum) + landSize)
123 125  
124 126  
125 127  func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
126 128  
127 129  
128 130  func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
129 131  
130 132  
131 133  func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
132 134  
133 135  
134 136  func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
135 137  
136 138  
137 139  func keyInfraLevelByAssetIdAndOwner (assetId,ownerAddr) = ((("infraLevelByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
138 140  
139 141  
140 142  func keyPresaleArtActivatedByAssetId (assetId) = ("presaleArtActivated_" + assetId)
141 143  
142 144  
143 145  func keyPresaleArtActivatedByAssetIdAndOwner (assetId,ownerAddr) = ((("presaleArtActivatedByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
146 + 
147 + 
148 + func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
149 + 
150 + 
151 + func keyLandArtStatusByTypeAssetIdAndOwner (type,assetId,ownerAddr) = makeString(["landArtStatusByTypeAssetIdAndOwner", type, assetId, ownerAddr], "_")
144 152  
145 153  
146 154  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
147 155  
148 156  
149 157  func keyStakedTimeByTypeAssetIdAndOwner (nftType,assetId,ownerAddr) = ((((("stakedTimeByTypeAssetIdAndOwner_" + nftType) + "_") + assetId) + "_") + ownerAddr)
150 158  
151 159  
152 160  func keyLandNumToOwner (landNum) = ("landOwner_" + landNum)
153 161  
154 162  
155 163  func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
156 164  
157 165  
158 166  func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
159 167  
160 168  
161 169  func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
162 170  
163 171  
164 172  func keyResProportions () = "resTypesProportions"
165 173  
166 174  
167 175  let recLandNum = 0
168 176  
169 177  let recLandSize = 1
170 178  
171 179  let recTerrains = 2
172 180  
173 181  let recContinent = 3
174 182  
175 183  let locIdxContinent = 0
176 184  
177 185  let locIdxType = 1
178 186  
179 187  let locIdxId = 2
180 188  
181 189  let bpIdxLevel = 0
182 190  
183 191  let bpIdxRes = 1
184 192  
185 193  let bpIdxMat = 2
186 194  
187 195  let bpIdxProd = 3
188 196  
189 197  func asString (v) = match v {
190 198      case s: String => 
191 199          s
192 200      case _ => 
193 201          throw("fail to cast into String")
194 202  }
195 203  
196 204  
197 205  func getNeededMaterials (total) = {
198 206      let props = split(value(getString(keyResProportions())), "_")
199 207      if ((size(props) != NUMRES))
200 208          then throw("Wrong proportions data")
201 209          else {
202 210              let r = [parseIntValue(props[0]), parseIntValue(props[1]), parseIntValue(props[2]), parseIntValue(props[3]), parseIntValue(props[4]), parseIntValue(props[5])]
203 211              let sum = (((((r[0] + r[1]) + r[2]) + r[3]) + r[4]) + r[5])
204 212              if ((0 >= sum))
205 213                  then throw("No lands staked")
206 214                  else {
207 215                      let norm6 = fraction(total, MULT6, sum)
208 216                      func normalizer (acc,elem) =                     (acc :+ fraction(elem, norm6, MULT6))
209 217  
210 218                      let $l = r
211 219                      let $s = size($l)
212 220                      let $acc0 = nil
213 221                      func $f0_1 ($a,$i) =                     if (($i >= $s))
214 222                          then $a
215 223                          else normalizer($a, $l[$i])
216 224  
217 225                      func $f0_2 ($a,$i) =                     if (($i >= $s))
218 226                          then $a
219 227                          else throw("List size exceeds 6")
220 228  
221 229                      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
222 230                      }
223 231              }
224 232      }
225 233  
226 234  
227 235  func subtractMaterials (shouldUseMat,has,totalNeed) = {
228 236      let need = getNeededMaterials(totalNeed)
229 237      func subtractor (acc,idx) =     {
230 238          let result = (parseIntValue(has[idx]) - need[idx])
231 239          if ((0 > result))
232 240              then throw(((((("Not enough material idx=" + toString(idx)) + ", you have ") + has[idx]) + ", but need ") + toString(need[idx])))
233 241              else (acc :+ toString(result))
234 242          }
235 243  
236 244      if (shouldUseMat)
237 245          then {
238 246              let $l = [0, 1, 2, 3, 4, 5]
239 247              let $s = size($l)
240 248              let $acc0 = nil
241 249              func $f0_1 ($a,$i) =             if (($i >= $s))
242 250                  then $a
243 251                  else subtractor($a, $l[$i])
244 252  
245 253              func $f0_2 ($a,$i) =             if (($i >= $s))
246 254                  then $a
247 255                  else throw("List size exceeds 6")
248 256  
249 257              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
250 258              }
251 259          else has
252 260      }
253 261  
254 262  
263 + func updateProportionsInternal (propList,terrainCounts,landSizeIndex,sign) = if ((size(propList) != NUMRES))
264 +     then throw("Wrong proportions data")
265 +     else {
266 +         func updater (acc,i) =         {
267 +             let result = (parseIntValue(propList[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
268 +             if ((0 > result))
269 +                 then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ",  terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
270 +                 else (acc :+ toString(result))
271 +             }
272 + 
273 +         let r = {
274 +             let $l = [0, 1, 2, 3, 4, 5]
275 +             let $s = size($l)
276 +             let $acc0 = nil
277 +             func $f0_1 ($a,$i) =             if (($i >= $s))
278 +                 then $a
279 +                 else updater($a, $l[$i])
280 + 
281 +             func $f0_2 ($a,$i) =             if (($i >= $s))
282 +                 then $a
283 +                 else throw("List size exceeds 6")
284 + 
285 +             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
286 +             }
287 +         makeString(r, "_")
288 +         }
289 + 
290 + 
255 291  func updateProportions (terrainCounts,landSizeIndex,sign) = {
256 -     let props = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
257 -     if ((size(props) != NUMRES))
258 -         then throw("Wrong proportions data")
259 -         else {
260 -             func updater (acc,i) =             {
261 -                 let result = (parseIntValue(props[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
262 -                 if ((0 > result))
263 -                     then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ",  terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
264 -                     else (acc :+ toString(result))
265 -                 }
266 - 
267 -             let r = {
268 -                 let $l = [0, 1, 2, 3, 4, 5]
269 -                 let $s = size($l)
270 -                 let $acc0 = nil
271 -                 func $f0_1 ($a,$i) =                 if (($i >= $s))
272 -                     then $a
273 -                     else updater($a, $l[$i])
274 - 
275 -                 func $f0_2 ($a,$i) =                 if (($i >= $s))
276 -                     then $a
277 -                     else throw("List size exceeds 6")
278 - 
279 -                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
280 -                 }
281 -             makeString(r, "_")
282 -             }
292 +     let propList = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
293 +     updateProportionsInternal(propList, terrainCounts, landSizeIndex, sign)
283 294      }
284 295  
285 296  
286 297  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)]
287 298  
288 299  
289 300  func numPiecesBySize (landSize) = match landSize {
290 301      case _ => 
291 302          if (("S" == $match0))
292 303              then 25
293 304              else if (("M" == $match0))
294 305                  then 100
295 306                  else if (("L" == $match0))
296 307                      then 225
297 308                      else if (("XL" == $match0))
298 309                          then 400
299 310                          else if (("XXL" == $match0))
300 311                              then 625
301 312                              else throw("Unknown land size")
302 313  }
303 314  
304 315  
305 316  func subOneInList (aList,idx,amount) = {
306 317      func subber (acc,i) =     (acc :+ (if ((i == idx))
307 318          then toString((parseIntValue(aList[i]) - amount))
308 319          else aList[i]))
309 320  
310 321      let r = {
311 322          let $l = [0, 1, 2, 3, 4, 5]
312 323          let $s = size($l)
313 324          let $acc0 = nil
314 325          func $f0_1 ($a,$i) =         if (($i >= $s))
315 326              then $a
316 327              else subber($a, $l[$i])
317 328  
318 329          func $f0_2 ($a,$i) =         if (($i >= $s))
319 330              then $a
320 331              else throw("List size exceeds 6")
321 332  
322 333          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
323 334          }
324 335      makeString(r, "_")
325 336      }
326 337  
327 338  
328 339  func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex,dailyByPieceWithBonuses) = {
329 340      func adder (acc,i) =     {
330 341          let resOfType = ((fraction(deltaTime, dailyByPieceWithBonuses, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
331 342          (acc :+ toString((parseIntValue(currentRes[i]) + resOfType)))
332 343          }
333 344  
334 345      let r = {
335 346          let $l = [0, 1, 2, 3, 4, 5]
336 347          let $s = size($l)
337 348          let $acc0 = nil
338 349          func $f0_1 ($a,$i) =         if (($i >= $s))
339 350              then $a
340 351              else adder($a, $l[$i])
341 352  
342 353          func $f0_2 ($a,$i) =         if (($i >= $s))
343 354              then $a
344 355              else throw("List size exceeds 6")
345 356  
346 357          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
347 358          }
348 359      makeString(r, "_")
349 360      }
350 361  
351 362  
352 363  func abs (x) = if ((x >= toBigInt(0)))
353 364      then x
354 365      else -(x)
355 366  
356 367  
357 368  let freq = [[1, 4, 9, 10, 15], [5, 8, 13, 14, 15], [6, 9, 14, 15, 16], [4, 7, 8, 13, 18], [1, 6, 7, 15, 19]]
358 369  
359 370  func genChar (n,freqs) = {
360 371      let rem = toInt((n % TWENTYX))
361 372      let letter = if ((freqs[0] > rem))
362 373          then "A"
363 374          else if ((freqs[1] > rem))
364 375              then "B"
365 376              else if ((freqs[2] > rem))
366 377                  then "C"
367 378                  else if ((freqs[3] > rem))
368 379                      then "D"
369 380                      else if ((freqs[4] > rem))
370 381                          then "E"
371 382                          else "F"
372 383      letter
373 384      }
374 385  
375 386  
387 + func genTerrains (seed,continentIdx) = {
388 +     let f = freq[continentIdx]
389 +     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))
390 + 
391 +     let t = {
392 +         let $l = [1, 2, 3, 4, 5]
393 +         let $s = size($l)
394 +         let $acc0 = $Tuple2("", (seed / FIVEX))
395 +         func $f0_1 ($a,$i) =         if (($i >= $s))
396 +             then $a
397 +             else terrainGenerator($a, $l[$i])
398 + 
399 +         func $f0_2 ($a,$i) =         if (($i >= $s))
400 +             then $a
401 +             else throw("List size exceeds 5")
402 + 
403 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
404 +         }
405 +     t._1
406 +     }
407 + 
408 + 
376 409  func getBackpack (bpKey) = {
377 410      let p = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
378 411  [toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
379 412          then p[bpIdxRes]
380 413          else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
381 414          then p[bpIdxMat]
382 415          else "0_0_0_0_0_0", p[bpIdxProd]]
383 416      }
384 417  
385 418  
386 419  func expeditionCommon (shouldUseMat,caller,txId,message,sig) = if (!(sigVerify_8Kb(message, sig, pub)))
387 420      then throw("signature does not match")
388 421      else {
389 422          let parts = split(toUtf8String(message), ";")
390 423          let hp = split(split(parts[0], "|")[0], "_")
391 424          let curHP = parseIntValue(hp[0])
392 425          let newHP = parseIntValue(hp[1])
393 426          let locAndTime = split(parts[1], ":")
394 427          let targetLocation = split(locAndTime[0], "_")
395 428          if ((targetLocation[1] != "E"))
396 429              then throw("expedition target location type should be E")
397 430              else {
398 431                  let time = parseIntValue(locAndTime[1])
399 432                  if (if ((time > (lastBlock.timestamp + FIVEMINUTESMILLIS)))
400 433                      then true
401 434                      else ((lastBlock.timestamp - FIVEMINUTESMILLIS) > time))
402 435                      then throw("signature outdated")
403 436                      else {
404 437                          let userAddr = toString(caller)
405 438                          let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(userAddr)), "You don't have a duck staked")
406 439                          let keyHealth = keyDuckHealth(duckAssetId)
407 440                          let oldFromState = valueOrElse(getInteger(keyHealth), 100)
408 441                          if ((oldFromState != curHP))
409 442                              then throw(((("oldHealth=" + toString(valueOrElse(getInteger(keyHealth), 100))) + " from state does not match one from flight log=") + toString(curHP)))
410 443                              else if ((0 >= curHP))
411 444                                  then throw("You can't fly with zero health")
412 445                                  else if ((0 >= newHP))
413 446                                      then $Tuple2(((if (!(shouldUseMat))
414 447                                          then [ScriptTransfer(caller, EXPUSDN, usdnAssetId)]
415 448                                          else nil) :+ IntegerEntry(keyHealth, 0)), "")
416 449                                      else {
417 450                                          let bpKey = keyBackpackByDuck(duckAssetId)
418 451                                          let currentPack = getBackpack(bpKey)
419 452                                          let mList = split(currentPack[bpIdxMat], "_")
420 453                                          let newMat = makeString(subtractMaterials(shouldUseMat, mList, EXPMATERIALS), "_")
421 454                                          let bigNum = abs(toBigInt(txId))
422 455                                          let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), 501)
423 456                                          let landNum = toString(freeNum)
424 457                                          let continentIdx = toInt((bigNum % FIVEX))
425 -                                         let f = freq[continentIdx]
426 -                                         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))
427 - 
428 -                                         let t = {
429 -                                             let $l = [1, 2, 3, 4, 5]
430 -                                             let $s = size($l)
431 -                                             let $acc0 = $Tuple2("", (bigNum / FIVEX))
432 -                                             func $f0_1 ($a,$i) =                                             if (($i >= $s))
433 -                                                 then $a
434 -                                                 else terrainGenerator($a, $l[$i])
435 - 
436 -                                             func $f0_2 ($a,$i) =                                             if (($i >= $s))
437 -                                                 then $a
438 -                                                 else throw("List size exceeds 5")
439 - 
440 -                                             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
441 -                                             }
458 +                                         let terrains = genTerrains(bigNum, continentIdx)
442 459                                          let continent = continents[continentIdx]
443 -                                         let issue = Issue(keyNftName(landNum, "S"), makeString([landNum, "S", t._1, continent], "_"), 1, 0, false)
460 +                                         let issue = Issue(keyNftName(landNum, "S"), makeString([landNum, "S", terrains, continent], "_"), 1, 0, false)
444 461                                          let assetId = calculateAssetId(issue)
445 462                                          let id = toBase58String(assetId)
446 463                                          $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), StringEntry(keyDuckLocation(duckAssetId), makeString([continent, "L", id], "_")), IntegerEntry(keyHealth, newHP), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))], id)
447 464                                          }
448 465                          }
449 466                  }
450 467          }
451 468  
452 469  
453 - func applyBonuses (landAssetId) = {
470 + func applyBonuses (landAssetId,pieces) = {
454 471      let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
455 -     let presaleBonus = if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
456 -         then 3
457 -         else 0
458 -     ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, presaleBonus, 20))
472 +     let artPieces = valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
473 +         then pieces
474 +         else 0)
475 +     ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, (artPieces * 3), (pieces * 20)))
459 476      }
460 477  
461 478  
462 479  func checkClaimConditions (addr) = {
463 480      let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
464 481      let curLocation = valueOrElse(getString(keyDuckLocation(duckAssetId)), DEFAULTLOCATION)
465 482      let loc = split(value(curLocation), "_")
466 483      if ((loc[locIdxType] != "L"))
467 484          then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
468 485          else {
469 486              let landAssetId = loc[locIdxId]
470 487              let asset = value(assetInfo(fromBase58String(landAssetId)))
471 488              let timeKey = keyStakedTimeByAssetId(landAssetId)
472 -             let savedTime = valueOrErrorMessage(getInteger(timeKey), (("NFT " + asset.name) + " is not staked"))
489 +             let savedTime = valueOrErrorMessage(getInteger(timeKey), (("Your duck is on " + asset.name) + ", which is not staked"))
473 490              let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
474 491              if ((owner != addr))
475 492                  then throw((LANDPREFIX + " is not yours"))
476 493                  else {
477 494                      let d = split(asset.description, "_")
478 495                      $Tuple4(duckAssetId, landAssetId, d, savedTime)
479 496                      }
480 497              }
481 498      }
482 499  
483 500  
484 501  func claimResInternal (addr,amount) = {
485 502      let c = checkClaimConditions(addr)
486 503      let landSize = c._3[recLandSize]
487 504      let terrainCounts = countTerrains(c._3[recTerrains])
488 505      let deltaTime = (lastBlock.timestamp - c._4)
489 506      if ((0 > deltaTime))
490 507          then throw(((("Saved timestamp is in future, saved = " + toString(c._4)) + ", current = ") + toString(lastBlock.timestamp)))
491 508          else {
492 509              let pieces = numPiecesBySize(landSize)
493 -             let dailyProductionByPiece = applyBonuses(c._2)
510 +             let dailyProductionByPiece = applyBonuses(c._2, pieces)
494 511              let availRes = fraction(deltaTime, (dailyProductionByPiece * pieces), DAYMILLIS)
495 512              if ((amount > availRes))
496 513                  then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))
497 514                  else {
498 515                      let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (dailyProductionByPiece * pieces))
499 516                      let newTimestamp = (lastBlock.timestamp - newDeltaTime)
500 517                      let bpKey = keyBackpackByDuck(c._1)
501 518                      let currentPack = getBackpack(bpKey)
502 519                      let currentRes = split(currentPack[bpIdxRes], "_")
503 520                      let bpRes = addRes(currentRes, terrainCounts, (deltaTime - newDeltaTime), (pieces / 25), dailyProductionByPiece)
504 521                      $Tuple3([IntegerEntry(keyStakedTimeByAssetId(c._2), newTimestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, c._2, addr), newTimestamp)], bpKey, [currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]])
505 522                      }
506 523              }
507 524      }
508 525  
509 526  
510 527  func claimAll (addr,landAssetId,pieces) = {
511 528      let timeKey = keyStakedTimeByAssetId(landAssetId)
512 529      let savedTime = value(getInteger(timeKey))
513 -     let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId), DAYMILLIS) * pieces)
530 +     let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId, pieces), DAYMILLIS) * pieces)
514 531      claimResInternal(addr, availRes)
515 532      }
516 533  
517 534  
518 535  func upInfraCommon (shouldUseMat,caller,paymentAmount) = {
519 536      let addr = toString(caller)
520 537      let c = checkClaimConditions(addr)
521 538      let pieces = numPiecesBySize(c._3[recLandSize])
522 539      let infraKey = keyInfraLevelByAssetId(c._2)
523 540      let curLevel = valueOrElse(getInteger(infraKey), 0)
524 541      if ((curLevel >= 3))
525 542          then throw("Currently max infrastructure level = 3")
526 543          else {
527 544              let newLevel = (curLevel + 1)
528 545              let cost = fraction(InfraUpgradeCostSUsdn, (pieces * newLevel), 25)
529 546              if (if (!(shouldUseMat))
530 547                  then (paymentAmount != cost)
531 548                  else false)
532 549                  then throw(("Payment attached should be " + toString(cost)))
533 550                  else {
534 551                      let bpKey = keyBackpackByDuck(c._1)
535 552                      let currentPack = getBackpack(bpKey)
536 553                      let mList = split(currentPack[bpIdxMat], "_")
537 554                      let newMat = makeString(subtractMaterials(shouldUseMat, mList, fraction(InfraUpgradeCostS, (pieces * newLevel), 25)), "_")
538 555                      let claimResult = claimAll(addr, c._2, pieces)
539 556                      $Tuple2(([IntegerEntry(infraKey, newLevel), IntegerEntry(keyInfraLevelByAssetIdAndOwner(c._2, addr), newLevel), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], claimResult._3[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))] ++ claimResult._1), newLevel)
540 557                      }
541 558              }
542 559      }
543 560  
544 561  
545 562  func activatePresaleArt (addr) = {
546 563      let c = checkClaimConditions(addr)
547 -     let activationKey = keyPresaleArtActivatedByAssetId(c._2)
564 +     let landAssetId = c._2
565 +     let activationKey = keyPresaleArtActivatedByAssetId(landAssetId)
548 566      if (valueOrElse(getBoolean(activationKey), false))
549 567          then throw("Presale artifact is already activated")
550 568          else if ((parseIntValue(c._3[recLandNum]) > 500))
551 -             then throw((((LANDPREFIX + " ") + c._2) + " is not eligible for presale artifact"))
569 +             then throw((((LANDPREFIX + " ") + landAssetId) + " is not eligible for presale artifact"))
552 570              else {
553 571                  let pieces = numPiecesBySize(c._3[recLandSize])
554 -                 let claimResult = claimAll(addr, c._2, pieces)
555 -                 (((claimResult._1 :+ BooleanEntry(keyPresaleArtActivatedByAssetId(c._2), true)) :+ BooleanEntry(keyPresaleArtActivatedByAssetIdAndOwner(c._2, addr), true)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":")))
572 +                 let claimResult = claimAll(addr, landAssetId, pieces)
573 +                 (((((claimResult._1 :+ BooleanEntry(activationKey, true)) :+ BooleanEntry(keyPresaleArtActivatedByAssetIdAndOwner(landAssetId, addr), true)) :+ IntegerEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId), pieces)) :+ IntegerEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr), pieces)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":")))
556 574                  }
575 +     }
576 + 
577 + 
578 + func mergeInternal (newLandSize,newLevel,formula,addr,landAssetIds,txId,needMat) = {
579 +     let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
580 +     func checkMerge (acc,landAssetId) =     {
581 +         let asset = value(assetInfo(fromBase58String(landAssetId)))
582 +         let timeKey = keyStakedTimeByAssetId(landAssetId)
583 +         let savedTime = valueOrErrorMessage(getInteger(timeKey), (("NFT " + asset.name) + " is not staked"))
584 +         let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
585 +         if ((owner != addr))
586 +             then throw((LANDPREFIX + " is not yours"))
587 +             else {
588 +                 let d = split(asset.description, "_")
589 +                 let continent = d[recContinent]
590 +                 if (if ((acc._3 != ""))
591 +                     then (acc._3 != continent)
592 +                     else false)
593 +                     then throw("Lands should be on the same continent to merge")
594 +                     else {
595 +                         let landSize = d[recLandSize]
596 +                         let sizesIn = acc._1
597 +                         let i = valueOrErrorMessage(indexOf(sizesIn, landSize), "You haven't passed all the lands needed")
598 +                         let sizesOut = (take(sizesIn, i) + drop(sizesIn, (i + 1)))
599 +                         let pieces = numPiecesBySize(landSize)
600 +                         let arts = (acc._2 + valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
601 +                             then pieces
602 +                             else 0))
603 +                         let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
604 +                         let reqLevel =                         match landSize {
605 +                             case _ => 
606 +                                 if (("S" == $match0))
607 +                                     then 3
608 +                                     else if (("M" == $match0))
609 +                                         then 4
610 +                                         else if (("L" == $match0))
611 +                                             then 5
612 +                                             else if (("XL" == $match0))
613 +                                                 then 6
614 +                                                 else throw("Only S, M, L, XL can merge")
615 +                         }
616 +                         if ((infraLevel != reqLevel))
617 +                             then throw("All lands should be maxed to merge")
618 +                             else {
619 +                                 let landNum = d[recLandNum]
620 +                                 let terrainCounts = countTerrains(d[recTerrains])
621 +                                 let deltaTime = (lastBlock.timestamp - savedTime)
622 +                                 if ((0 > deltaTime))
623 +                                     then throw(((("Saved timestamp is in future, saved = " + toString(savedTime)) + ", current = ") + toString(lastBlock.timestamp)))
624 +                                     else {
625 +                                         let dailyProductionByPiece = applyBonuses(landAssetId, pieces)
626 +                                         let bpRes = addRes(split(acc._4, "_"), terrainCounts, deltaTime, (pieces / 25), dailyProductionByPiece)
627 +                                         let props = updateProportionsInternal(split(acc._6, "_"), terrainCounts, (pieces / 25), -1)
628 +                                         $Tuple6(sizesOut, arts, continent, bpRes, (((((((((((((acc._5 :+ DeleteEntry(keyStakedTimeByAssetId(landAssetId))) :+ DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, addr))) :+ DeleteEntry(keyLandToAssetId(landNum))) :+ DeleteEntry(keyNftName(landNum, landSize))) :+ DeleteEntry(keyLandAssetIdToOwner(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetId(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetIdAndOwner(landAssetId, addr))) :+ DeleteEntry(keyPresaleArtActivatedByAssetId(landAssetId))) :+ DeleteEntry(keyPresaleArtActivatedByAssetIdAndOwner(landAssetId, addr))) :+ DeleteEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId))) :+ DeleteEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr))) :+ DeleteEntry(keyLandNumToOwner(landNum))) :+ Burn(fromBase58String(landAssetId), 1)), props)
629 +                                         }
630 +                                 }
631 +                         }
632 +                 }
633 +         }
634 + 
635 +     let bpKey = keyBackpackByDuck(duckAssetId)
636 +     let currentPack = getBackpack(bpKey)
637 +     let propStr = valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0")
638 +     let r = {
639 +         let $l = landAssetIds
640 +         let $s = size($l)
641 +         let $acc0 = $Tuple6(formula, 0, "", currentPack[bpIdxRes], nil, propStr)
642 +         func $f0_1 ($a,$i) =         if (($i >= $s))
643 +             then $a
644 +             else checkMerge($a, $l[$i])
645 + 
646 +         func $f0_2 ($a,$i) =         if (($i >= $s))
647 +             then $a
648 +             else throw("List size exceeds 4")
649 + 
650 +         $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
651 +         }
652 +     let continent = r._3
653 +     let continentIdx = valueOrErrorMessage(indexOf(continents, continent), ("Unknown continent: " + continent))
654 +     let terrains = genTerrains(abs(toBigInt(txId)), continentIdx)
655 +     let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), 501)
656 +     let newLandNum = toString(freeNum)
657 +     let issue = Issue(keyNftName(newLandNum, newLandSize), makeString([newLandNum, newLandSize, terrains, continent], "_"), 1, 0, false)
658 +     let assetId = calculateAssetId(issue)
659 +     let newLandAssetId = toBase58String(assetId)
660 +     let newMat = makeString(subtractMaterials((needMat > 0), split(currentPack[bpIdxMat], "_"), needMat), "_")
661 +     $Tuple2((((((((((((((r._5 :+ 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)
662 +     }
663 + 
664 + 
665 + func s2m (addr,landAssetIds,txId) = mergeInternal("M", 3, "SSSS", addr, landAssetIds, txId, 0)
666 + 
667 + 
668 + func m2l (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
669 +     let cost = (InfraUpgradeCostSUsdn * 4)
670 +     if (if (!(shouldUseMat))
671 +         then (paymentAmount != cost)
672 +         else false)
673 +         then throw(("Payment attached should be " + toString(cost)))
674 +         else mergeInternal("L", 4, "SMM", addr, landAssetIds, txId, (InfraUpgradeCostS * 4))
675 +     }
676 + 
677 + 
678 + func l2xl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
679 +     let cost = (InfraUpgradeCostSUsdn * 47)
680 +     if (if (!(shouldUseMat))
681 +         then (paymentAmount != cost)
682 +         else false)
683 +         then throw(("Payment attached should be " + toString(cost)))
684 +         else mergeInternal("XL", 5, "SSSML", addr, landAssetIds, txId, (InfraUpgradeCostS * 47))
685 +     }
686 + 
687 + 
688 + func xl2xxl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
689 +     let cost = (InfraUpgradeCostSUsdn * 54)
690 +     if (if (!(shouldUseMat))
691 +         then (paymentAmount != cost)
692 +         else false)
693 +         then throw(("Payment attached should be " + toString(cost)))
694 +         else mergeInternal("XXL", 6, "LXL", addr, landAssetIds, txId, (InfraUpgradeCostS * 54))
695 +     }
696 + 
697 + 
698 + func mergeCommon (shouldUseMat,addr,paymentAmount,landAssetIds,txId) = {
699 +     let mergeResult =     match size(landAssetIds) {
700 +         case _ => 
701 +             if ((4 == $match0))
702 +                 then s2m(addr, landAssetIds, txId)
703 +                 else if ((3 == $match0))
704 +                     then m2l(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
705 +                     else if ((5 == $match0))
706 +                         then l2xl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
707 +                         else if ((2 == $match0))
708 +                             then xl2xxl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
709 +                             else throw("Unknown merge")
710 +     }
711 +     mergeResult
557 712      }
558 713  
559 714  
560 715  @Callable(i)
561 716  func stakeLand () = {
562 717      let pmt = value(i.payments[0])
563 718      let assetId = value(pmt.assetId)
564 719      let address = toString(i.caller)
565 720      if ((pmt.amount != 1))
566 721          then throw((("NFT " + LANDPREFIX) + " token should be attached as payment"))
567 722          else {
568 723              let asset = value(assetInfo(assetId))
569 724              if ((asset.issuer != this))
570 725                  then throw("Unknown issuer of token")
571 726                  else if (!(contains(asset.name, LANDPREFIX)))
572 727                      then throw((("Only NFT " + LANDPREFIX) + " tokens are accepted"))
573 728                      else {
574 729                          let landNumSize = drop(asset.name, 4)
575 730                          let landNum = if (contains(landNumSize, "XXL"))
576 731                              then dropRight(landNumSize, 3)
577 732                              else if (contains(landNumSize, "XL"))
578 733                                  then dropRight(landNumSize, 2)
579 734                                  else dropRight(landNumSize, 1)
580 735                          let landNumInt = valueOrErrorMessage(parseInt(landNum), ("Cannot parse land number from " + asset.name))
581 736                          let landAssetId = toBase58String(assetId)
582 737                          let timeKey = keyStakedTimeByAssetId(landAssetId)
583 738                          if (isDefined(getInteger(timeKey)))
584 739                              then throw((("NFT " + asset.name) + " is already staked"))
585 740                              else {
586 741                                  let d = split(asset.description, "_")
587 742                                  let terrainCounts = countTerrains(d[recTerrains])
588 743                                  let props = updateProportions(terrainCounts, (numPiecesBySize(d[recLandSize]) / 25), 1)
589 744  [IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, address), lastBlock.timestamp), StringEntry(keyLandAssetIdToOwner(landAssetId), address), StringEntry(keyLandNumToOwner(landNum), address), StringEntry(keyResProportions(), props)]
590 745                                  }
591 746                          }
592 747              }
593 748      }
594 749  
595 750  
596 751  
597 752  @Callable(i)
598 753  func unstakeLand (landAssetIdStr) = if ((size(i.payments) != 0))
599 754      then throw("unstake doesn't require any payments")
600 755      else {
601 756          let addr = toString(i.caller)
602 757          let c = checkClaimConditions(addr)
603 758          let terrainCounts = countTerrains(c._3[recTerrains])
604 759          let pieces = numPiecesBySize(c._3[recLandSize])
605 760          let props = updateProportions(terrainCounts, (pieces / 25), -1)
606 761          let claimResult = claimAll(addr, c._2, pieces)
607 762  [ScriptTransfer(i.caller, 1, fromBase58String(c._2)), DeleteEntry(keyStakedTimeByAssetId(c._2)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, c._2, addr)), StringEntry(keyResProportions(), props), StringEntry(claimResult._2, makeString(claimResult._3, ":"))]
608 763          }
609 764  
610 765  
611 766  
612 767  @Callable(i)
613 768  func stakeDuck () = {
614 769      let pmt = value(i.payments[0])
615 770      let assetId = value(pmt.assetId)
616 771      let address = toString(i.caller)
617 772      if ((pmt.amount != 1))
618 773          then throw((("NFT " + DUCKPREFIX) + " token should be attached as payment"))
619 774          else {
620 775              let asset = value(assetInfo(assetId))
621 776              if (if ((asset.issuer != incubatorAddr))
622 777                  then (asset.issuer != breederAddr)
623 778                  else false)
624 779                  then throw((("Unknown issuer of " + DUCKPREFIX) + " token"))
625 780                  else if (!(contains(asset.name, DUCKPREFIX)))
626 781                      then throw((("Only NFT " + DUCKPREFIX) + " tokens are accepted"))
627 782                      else {
628 783                          let assetIdStr = toBase58String(assetId)
629 784                          let timeKey = keyStakedTimeByAssetId(assetIdStr)
630 785                          if (isDefined(getInteger(timeKey)))
631 786                              then throw((("NFT " + asset.name) + " is already staked"))
632 787                              else if (isDefined(getString(keyStakedDuckByOwner(address))))
633 788                                  then throw(("You already staked one duck: " + asset.name))
634 789                                  else {
635 790                                      let locKey = keyDuckLocation(assetIdStr)
636 791                                      let location = getString(locKey)
637 792                                      let keyHealth = keyDuckHealth(assetIdStr)
638 793                                      let health = getInteger(keyHealth)
639 794                                      let bpKey = keyBackpackByDuck(assetIdStr)
640 795                                      let backpack = getString(bpKey)
641 796                                      ([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, toBase58String(assetId), address), lastBlock.timestamp), StringEntry(keyDuckIdToOwner(assetIdStr), address), StringEntry(keyStakedDuckByOwner(address), assetIdStr)] ++ (if (isDefined(location))
642 797                                          then nil
643 798                                          else ([StringEntry(locKey, DEFAULTLOCATION)] ++ (if (isDefined(health))
644 799                                              then nil
645 800                                              else ([IntegerEntry(keyHealth, 100)] ++ (if (isDefined(backpack))
646 801                                                  then nil
647 802                                                  else [StringEntry(bpKey, "0:0_0_0_0_0_0:0_0_0_0_0_0:")]))))))
648 803                                      }
649 804                          }
650 805              }
651 806      }
652 807  
653 808  
654 809  
655 810  @Callable(i)
656 811  func unstakeDuck (assetIdStr) = if ((size(i.payments) != 0))
657 812      then throw("unstake doesn't require any payments")
658 813      else {
659 814          let assetId = fromBase58String(assetIdStr)
660 815          let address = toString(i.caller)
661 816          let asset = value(assetInfo(assetId))
662 817          if (if ((asset.issuer != incubatorAddr))
663 818              then (asset.issuer != breederAddr)
664 819              else false)
665 820              then throw((("Unknown issuer of " + DUCKPREFIX) + " token"))
666 821              else if (!(contains(asset.name, DUCKPREFIX)))
667 822                  then throw((("Only NFT " + DUCKPREFIX) + " tokens can be unstaked"))
668 823                  else {
669 824                      let timeKey = keyStakedTimeByAssetId(toBase58String(assetId))
670 825                      if (!(isDefined(timeKey)))
671 826                          then throw((("NFT " + asset.name) + " is not staked"))
672 827                          else if (!(isDefined(keyStakedDuckByOwner(address))))
673 828                              then throw((("The duck " + asset.name) + " is not staked"))
674 829                              else {
675 830                                  let owner = valueOrErrorMessage(getString(keyDuckIdToOwner(toBase58String(assetId))), (("NFT " + asset.name) + " is orphaned"))
676 831                                  if ((owner != address))
677 832                                      then throw("Staked NFT is not yours")
678 833                                      else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyDuckLocation(assetIdStr)), DeleteEntry(keyDuckIdToOwner(assetIdStr)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, assetIdStr, address)), DeleteEntry(keyStakedDuckByOwner(address))]
679 834                                  }
680 835                      }
681 836          }
682 837  
683 838  
684 839  
685 840  @Callable(i)
686 841  func claimRes (amount,landAssetIdStr) = if ((size(i.payments) != 0))
687 842      then throw("claimRes doesn't require any payments")
688 843      else {
689 844          let addr = toString(i.originCaller)
690 845          let result = claimResInternal(addr, amount)
691 846          $Tuple2((result._1 :+ StringEntry(result._2, makeString(result._3, ":"))), result._3[bpIdxRes])
692 847          }
693 848  
694 849  
695 850  
696 851  @Callable(i)
697 852  func flight (message,sig) = if (!(sigVerify_8Kb(message, sig, pub)))
698 853      then throw("signature does not match")
699 854      else if ((size(i.payments) != 0))
700 855          then throw("flight doesn't require any payments")
701 856          else {
702 857              let parts = split(toUtf8String(message), ";")
703 858              let hp = split(split(parts[0], "|")[0], "_")
704 859              let curHP = parseIntValue(hp[0])
705 860              let newHP = parseIntValue(hp[1])
706 861              let newLocAndTime = split(parts[1], ":")
707 862              let newLocation = newLocAndTime[0]
708 863              let time = parseIntValue(newLocAndTime[1])
709 864              if (if ((time > (lastBlock.timestamp + FIVEMINUTESMILLIS)))
710 865                  then true
711 866                  else ((lastBlock.timestamp - FIVEMINUTESMILLIS) > time))
712 867                  then throw("signature outdated")
713 868                  else {
714 869                      let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
715 870                      let keyHealth = keyDuckHealth(duckAssetId)
716 871                      let oldFromState = valueOrElse(getInteger(keyHealth), 100)
717 872                      if ((oldFromState != curHP))
718 873                          then throw(((("oldHealth=" + toString(valueOrElse(getInteger(keyHealth), 100))) + " from state does not match one from flight log=") + toString(curHP)))
719 874                          else if ((0 >= curHP))
720 875                              then throw("You can't fly with zero health")
721 876                              else {
722 877                                  let locKey = keyDuckLocation(duckAssetId)
723 878                                  let curLocation = valueOrElse(getString(locKey), DEFAULTLOCATION)
724 879                                  if ((newLocation == curLocation))
725 880                                      then throw("You can't fly to the same location")
726 881                                      else $Tuple2([StringEntry(locKey, if ((newHP > 0))
727 882                                          then newLocation
728 883                                          else curLocation), IntegerEntry(keyHealth, newHP)], unit)
729 884                                  }
730 885                      }
731 886              }
732 887  
733 888  
734 889  
735 890  @Callable(i)
736 891  func setHealth (health,duckAssetId) = if (if ((0 > health))
737 892      then true
738 893      else (health > 100))
739 894      then throw("HP should be within 0..100")
740 895      else [IntegerEntry(keyDuckHealth(duckAssetId), health)]
741 896  
742 897  
743 898  
744 899  @Callable(i)
745 900  func heal (matType,amount) = if (if ((0 > matType))
746 901      then true
747 902      else (matType >= NUMRES))
748 903      then throw(("Unknown material: " + toString(matType)))
749 904      else if ((0 >= amount))
750 905          then throw(("Amount should be positive! " + toString(amount)))
751 906          else {
752 907              let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
753 908              let keyHealth = keyDuckHealth(duckAssetId)
754 909              let oldHealth = valueOrElse(getInteger(keyHealth), 100)
755 910              if ((oldHealth >= 100))
756 911                  then throw("HP should be < 100 to heal")
757 912                  else {
758 913                      let bpKey = keyBackpackByDuck(duckAssetId)
759 914                      let currentPack = getBackpack(bpKey)
760 915                      let mList = split(currentPack[bpIdxMat], "_")
761 916                      let currentAmount = parseIntValue(mList[matType])
762 917                      let deltaHealth = min([(amount / HEALCOST), (100 - oldHealth)])
763 918                      let spendAmount = (deltaHealth * HEALCOST)
764 919                      if ((spendAmount > currentAmount))
765 920                          then throw(((((("You need " + toString(spendAmount)) + " of ") + matTypes[matType]) + " to heal, but you backpack contains ") + toString(currentAmount)))
766 921                          else {
767 922                              let newMat = subOneInList(mList, matType, spendAmount)
768 923  [IntegerEntry(keyHealth, (oldHealth + deltaHealth)), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))]
769 924                              }
770 925                      }
771 926              }
772 927  
773 928  
774 929  
775 930  @Callable(i)
776 931  func updateBackpack (duckAssetId,newPack) = if ((i.caller != economyAddr))
777 932      then throw("permission denied")
778 933      else $Tuple2([StringEntry(keyBackpackByDuck(duckAssetId), newPack)], newPack)
779 934  
780 935  
781 936  
782 937  @Callable(i)
783 938  func expeditionBuy (message,sig) = if ((size(i.payments) != 1))
784 939      then throw("Exactly one payment required")
785 940      else {
786 941          let pmt = value(i.payments[0])
787 942          if ((pmt.assetId != usdnAssetId))
788 943              then throw("Allowed USDN payment only!")
789 944              else if ((pmt.amount != EXPUSDN))
790 945                  then throw(("Payment attached should be " + toString(EXPUSDN)))
791 946                  else {
792 947                      let result = expeditionCommon(false, i.caller, i.transactionId, message, sig)
793 948                      $Tuple2((result._1 :+ ScriptTransfer(economyAddr, pmt.amount, usdnAssetId)), result._2)
794 949                      }
795 950          }
796 951  
797 952  
798 953  
799 954  @Callable(i)
800 955  func expedition (message,sig) = if ((size(i.payments) != 0))
801 956      then throw("expedition doesn't require any payments")
802 957      else expeditionCommon(true, i.caller, i.transactionId, message, sig)
803 958  
804 959  
805 960  
806 961  @Callable(i)
807 962  func upgradeInfra (landAssetIdIgnored) = if ((size(i.payments) != 0))
808 963      then throw("Infrastructure upgrade doesn't require any payments")
809 964      else upInfraCommon(true, i.caller, 0)
810 965  
811 966  
812 967  
813 968  @Callable(i)
814 969  func upgradeInfraUsdn (landAssetIdIgnored) = if ((size(i.payments) != 1))
815 970      then throw("Exactly one payment required")
816 971      else {
817 972          let pmt = value(i.payments[0])
818 973          if ((pmt.assetId != usdnAssetId))
819 974              then throw("Allowed USDN payment only!")
820 975              else {
821 976                  let result = upInfraCommon(false, i.caller, pmt.amount)
822 977                  $Tuple2((result._1 :+ ScriptTransfer(economyAddr, pmt.amount, usdnAssetId)), result._2)
823 978                  }
824 979          }
825 980  
826 981  
827 982  
828 983  @Callable(i)
829 984  func activateArtifact (artName) = if ((size(i.payments) != 0))
830 985      then throw("Artifact activation doesn't require any payments")
831 986      else {
832 987          let result =         match artName {
833 988              case _ => 
834 989                  if (("PRESALE" == $match0))
835 990                      then activatePresaleArt(toString(i.caller))
836 991                      else throw("Unknown artifact")
837 992          }
838 993          result
839 994          }
840 995  
841 996  
997 + 
998 + @Callable(i)
999 + func mergeLands (landAssetIds) = if ((i.caller != this))
1000 +     then throw("permission denied")
1001 +     else if ((size(i.payments) != 0))
1002 +         then throw("Lands merging doesn't require any payments")
1003 +         else mergeCommon(true, toString(i.caller), 0, landAssetIds, i.transactionId)
1004 + 
1005 + 
1006 + 
1007 + @Callable(i)
1008 + func mergeLandsUsdn (landAssetIds) = if ((i.caller != this))
1009 +     then throw("permission denied")
1010 +     else if ((size(i.payments) != 1))
1011 +         then throw("Exactly one payment required")
1012 +         else {
1013 +             let pmt = value(i.payments[0])
1014 +             if ((pmt.assetId != usdnAssetId))
1015 +                 then throw("Allowed USDN payment only!")
1016 +                 else {
1017 +                     let result = mergeCommon(false, toString(i.caller), pmt.amount, landAssetIds, i.transactionId)
1018 +                     $Tuple2((result._1 :+ ScriptTransfer(economyAddr, pmt.amount, usdnAssetId)), result._2)
1019 +                     }
1020 +             }
1021 + 
1022 +

Old	New		Differences
62	62		let InfraUpgradeCostS = match chain {
63	63		case _ =>
64	64		if (("W" == $match0))
65		-	then ~~18921595217~~
	65	+	then 6307198406
66	66		else if (("T" == $match0))
67		-	then ~~189215952~~
	67	+	then 63071984
68	68		else throw("Unknown chain")
69	69		}
70	70
71	71		let InfraUpgradeCostSUsdn = match chain {
72	72		case _ =>
73	73		if (("W" == $match0))
74		-	then ~~120000000~~
	74	+	then 40000000
75	75		else if (("T" == $match0))
76		-	then ~~1200000~~
	76	+	then 400000
77	77		else throw("Unknown chain")
78	78		}
79	79

113	113
114	114		let continents = ["Asia", "Europe", "Americas", "Oceania", "Africa"]
115	115
	116	+	let ARTPRESALE = "PRESALE"
	117	+
116	118		func keyNextFreeLandNum () = "nextLandNum"
117	119
118	120

141	143
142	144
143	145		func keyPresaleArtActivatedByAssetIdAndOwner (assetId,ownerAddr) = ((("presaleArtActivatedByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
	146	+
	147	+
	148	+	func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
	149	+
	150	+
	151	+	func keyLandArtStatusByTypeAssetIdAndOwner (type,assetId,ownerAddr) = makeString(["landArtStatusByTypeAssetIdAndOwner", type, assetId, ownerAddr], "_")
144	152
145	153
146	154		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)

252	260		}
253	261
254	262
	263	+	func updateProportionsInternal (propList,terrainCounts,landSizeIndex,sign) = if ((size(propList) != NUMRES))
	264	+	then throw("Wrong proportions data")
	265	+	else {
	266	+	func updater (acc,i) = {
	267	+	let result = (parseIntValue(propList[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
	268	+	if ((0 > result))
	269	+	then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ", terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
	270	+	else (acc :+ toString(result))
	271	+	}
	272	+
	273	+	let r = {
	274	+	let $l = [0, 1, 2, 3, 4, 5]
	275	+	let $s = size($l)
	276	+	let $acc0 = nil
	277	+	func $f0_1 ($a,$i) = if (($i >= $s))
	278	+	then $a
	279	+	else updater($a, $l[$i])
	280	+
	281	+	func $f0_2 ($a,$i) = if (($i >= $s))
	282	+	then $a
	283	+	else throw("List size exceeds 6")
	284	+
	285	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	286	+	}
	287	+	makeString(r, "_")
	288	+	}
	289	+
	290	+
255	291		func updateProportions (terrainCounts,landSizeIndex,sign) = {
256		-	let props = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
257		-	if ((size(props) != NUMRES))
258		-	then throw("Wrong proportions data")
259		-	else {
260		-	func updater (acc,i) = {
261		-	let result = (parseIntValue(props[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
262		-	if ((0 > result))
263		-	then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ", terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
264		-	else (acc :+ toString(result))
265		-	}
266		-
267		-	let r = {
268		-	let $l = [0, 1, 2, 3, 4, 5]
269		-	let $s = size($l)
270		-	let $acc0 = nil
271		-	func $f0_1 ($a,$i) = if (($i >= $s))
272		-	then $a
273		-	else updater($a, $l[$i])
274		-
275		-	func $f0_2 ($a,$i) = if (($i >= $s))
276		-	then $a
277		-	else throw("List size exceeds 6")
278		-
279		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
280		-	}
281		-	makeString(r, "_")
282		-	}
	292	+	let propList = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
	293	+	updateProportionsInternal(propList, terrainCounts, landSizeIndex, sign)
283	294		}
284	295
285	296

373	384		}
374	385
375	386
	387	+	func genTerrains (seed,continentIdx) = {
	388	+	let f = freq[continentIdx]
	389	+	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))
	390	+
	391	+	let t = {
	392	+	let $l = [1, 2, 3, 4, 5]
	393	+	let $s = size($l)
	394	+	let $acc0 = $Tuple2("", (seed / FIVEX))
	395	+	func $f0_1 ($a,$i) = if (($i >= $s))
	396	+	then $a
	397	+	else terrainGenerator($a, $l[$i])
	398	+
	399	+	func $f0_2 ($a,$i) = if (($i >= $s))
	400	+	then $a
	401	+	else throw("List size exceeds 5")
	402	+
	403	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
	404	+	}
	405	+	t._1
	406	+	}
	407	+
	408	+
376	409		func getBackpack (bpKey) = {
377	410		let p = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
378	411		[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))

422	455		let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), 501)
423	456		let landNum = toString(freeNum)
424	457		let continentIdx = toInt((bigNum % FIVEX))
425		-	let f = freq[continentIdx]
426		-	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))
427		-
428		-	let t = {
429		-	let $l = [1, 2, 3, 4, 5]
430		-	let $s = size($l)
431		-	let $acc0 = $Tuple2("", (bigNum / FIVEX))
432		-	func $f0_1 ($a,$i) = if (($i >= $s))
433		-	then $a
434		-	else terrainGenerator($a, $l[$i])
435		-
436		-	func $f0_2 ($a,$i) = if (($i >= $s))
437		-	then $a
438		-	else throw("List size exceeds 5")
439		-
440		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
441		-	}
	458	+	let terrains = genTerrains(bigNum, continentIdx)
442	459		let continent = continents[continentIdx]
443		-	let issue = Issue(keyNftName(landNum, "S"), makeString([landNum, "S", ~~t._1~~, continent], "_"), 1, 0, false)
	460	+	let issue = Issue(keyNftName(landNum, "S"), makeString([landNum, "S", terrains, continent], "_"), 1, 0, false)
444	461		let assetId = calculateAssetId(issue)
445	462		let id = toBase58String(assetId)
446	463		$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), StringEntry(keyDuckLocation(duckAssetId), makeString([continent, "L", id], "_")), IntegerEntry(keyHealth, newHP), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))], id)

450	467		}
451	468
452	469
453		-	func applyBonuses (landAssetId) = {
	470	+	func applyBonuses (landAssetId,pieces) = {
454	471		let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
455		-	let ~~presaleBonus~~ = if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
456		-	then 3
457		-	else 0
458		-	((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, ~~presaleBonus~~, 20))
	472	+	let artPieces = valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
	473	+	then pieces
	474	+	else 0)
	475	+	((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, (artPieces * 3), (pieces * 20)))
459	476		}
460	477
461	478

469	486		let landAssetId = loc[locIdxId]
470	487		let asset = value(assetInfo(fromBase58String(landAssetId)))
471	488		let timeKey = keyStakedTimeByAssetId(landAssetId)
472		-	let savedTime = valueOrErrorMessage(getInteger(timeKey), (("~~NFT~~ " + asset.name) + " is not staked"))
	489	+	let savedTime = valueOrErrorMessage(getInteger(timeKey), (("Your duck is on " + asset.name) + ", which is not staked"))
473	490		let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
474	491		if ((owner != addr))
475	492		then throw((LANDPREFIX + " is not yours"))

490	507		then throw(((("Saved timestamp is in future, saved = " + toString(c._4)) + ", current = ") + toString(lastBlock.timestamp)))
491	508		else {
492	509		let pieces = numPiecesBySize(landSize)
493		-	let dailyProductionByPiece = applyBonuses(c._2)
	510	+	let dailyProductionByPiece = applyBonuses(c._2, pieces)
494	511		let availRes = fraction(deltaTime, (dailyProductionByPiece * pieces), DAYMILLIS)
495	512		if ((amount > availRes))
496	513		then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))

510	527		func claimAll (addr,landAssetId,pieces) = {
511	528		let timeKey = keyStakedTimeByAssetId(landAssetId)
512	529		let savedTime = value(getInteger(timeKey))
513		-	let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId), DAYMILLIS) * pieces)
	530	+	let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId, pieces), DAYMILLIS) * pieces)
514	531		claimResInternal(addr, availRes)
515	532		}
516	533

544	561
545	562		func activatePresaleArt (addr) = {
546	563		let c = checkClaimConditions(addr)
547		-	let activationKey = keyPresaleArtActivatedByAssetId(c._2)
	564	+	let landAssetId = c._2
	565	+	let activationKey = keyPresaleArtActivatedByAssetId(landAssetId)
548	566		if (valueOrElse(getBoolean(activationKey), false))
549	567		then throw("Presale artifact is already activated")
550	568		else if ((parseIntValue(c._3[recLandNum]) > 500))
551		-	then throw((((LANDPREFIX + " ") + ~~c._2~~) + " is not eligible for presale artifact"))
	569	+	then throw((((LANDPREFIX + " ") + landAssetId) + " is not eligible for presale artifact"))
552	570		else {
553	571		let pieces = numPiecesBySize(c._3[recLandSize])
554		-	let claimResult = claimAll(addr, ~~c._2~~, pieces)
555		-	(((claimResult._1 :+ BooleanEntry(~~keyPresaleArtActivatedByAssetId(c._2)~~, true)) :+ BooleanEntry(keyPresaleArtActivatedByAssetIdAndOwner(~~c._2~~, addr), true)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":")))
	572	+	let claimResult = claimAll(addr, landAssetId, pieces)
	573	+	(((((claimResult._1 :+ BooleanEntry(activationKey, true)) :+ BooleanEntry(keyPresaleArtActivatedByAssetIdAndOwner(landAssetId, addr), true)) :+ IntegerEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId), pieces)) :+ IntegerEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr), pieces)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":")))
556	574		}
	575	+	}
	576	+
	577	+
	578	+	func mergeInternal (newLandSize,newLevel,formula,addr,landAssetIds,txId,needMat) = {
	579	+	let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
	580	+	func checkMerge (acc,landAssetId) = {
	581	+	let asset = value(assetInfo(fromBase58String(landAssetId)))
	582	+	let timeKey = keyStakedTimeByAssetId(landAssetId)
	583	+	let savedTime = valueOrErrorMessage(getInteger(timeKey), (("NFT " + asset.name) + " is not staked"))
	584	+	let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
	585	+	if ((owner != addr))
	586	+	then throw((LANDPREFIX + " is not yours"))
	587	+	else {
	588	+	let d = split(asset.description, "_")
	589	+	let continent = d[recContinent]
	590	+	if (if ((acc._3 != ""))
	591	+	then (acc._3 != continent)
	592	+	else false)
	593	+	then throw("Lands should be on the same continent to merge")
	594	+	else {
	595	+	let landSize = d[recLandSize]
	596	+	let sizesIn = acc._1
	597	+	let i = valueOrErrorMessage(indexOf(sizesIn, landSize), "You haven't passed all the lands needed")
	598	+	let sizesOut = (take(sizesIn, i) + drop(sizesIn, (i + 1)))
	599	+	let pieces = numPiecesBySize(landSize)
	600	+	let arts = (acc._2 + valueOrElse(getInteger(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
	601	+	then pieces
	602	+	else 0))
	603	+	let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
	604	+	let reqLevel = match landSize {
	605	+	case _ =>
	606	+	if (("S" == $match0))
	607	+	then 3
	608	+	else if (("M" == $match0))
	609	+	then 4
	610	+	else if (("L" == $match0))
	611	+	then 5
	612	+	else if (("XL" == $match0))
	613	+	then 6
	614	+	else throw("Only S, M, L, XL can merge")
	615	+	}
	616	+	if ((infraLevel != reqLevel))
	617	+	then throw("All lands should be maxed to merge")
	618	+	else {
	619	+	let landNum = d[recLandNum]
	620	+	let terrainCounts = countTerrains(d[recTerrains])
	621	+	let deltaTime = (lastBlock.timestamp - savedTime)
	622	+	if ((0 > deltaTime))
	623	+	then throw(((("Saved timestamp is in future, saved = " + toString(savedTime)) + ", current = ") + toString(lastBlock.timestamp)))
	624	+	else {
	625	+	let dailyProductionByPiece = applyBonuses(landAssetId, pieces)
	626	+	let bpRes = addRes(split(acc._4, "_"), terrainCounts, deltaTime, (pieces / 25), dailyProductionByPiece)
	627	+	let props = updateProportionsInternal(split(acc._6, "_"), terrainCounts, (pieces / 25), -1)
	628	+	$Tuple6(sizesOut, arts, continent, bpRes, (((((((((((((acc._5 :+ DeleteEntry(keyStakedTimeByAssetId(landAssetId))) :+ DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, addr))) :+ DeleteEntry(keyLandToAssetId(landNum))) :+ DeleteEntry(keyNftName(landNum, landSize))) :+ DeleteEntry(keyLandAssetIdToOwner(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetId(landAssetId))) :+ DeleteEntry(keyInfraLevelByAssetIdAndOwner(landAssetId, addr))) :+ DeleteEntry(keyPresaleArtActivatedByAssetId(landAssetId))) :+ DeleteEntry(keyPresaleArtActivatedByAssetIdAndOwner(landAssetId, addr))) :+ DeleteEntry(keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId))) :+ DeleteEntry(keyLandArtStatusByTypeAssetIdAndOwner(ARTPRESALE, landAssetId, addr))) :+ DeleteEntry(keyLandNumToOwner(landNum))) :+ Burn(fromBase58String(landAssetId), 1)), props)
	629	+	}
	630	+	}
	631	+	}
	632	+	}
	633	+	}
	634	+
	635	+	let bpKey = keyBackpackByDuck(duckAssetId)
	636	+	let currentPack = getBackpack(bpKey)
	637	+	let propStr = valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0")
	638	+	let r = {
	639	+	let $l = landAssetIds
	640	+	let $s = size($l)
	641	+	let $acc0 = $Tuple6(formula, 0, "", currentPack[bpIdxRes], nil, propStr)
	642	+	func $f0_1 ($a,$i) = if (($i >= $s))
	643	+	then $a
	644	+	else checkMerge($a, $l[$i])
	645	+
	646	+	func $f0_2 ($a,$i) = if (($i >= $s))
	647	+	then $a
	648	+	else throw("List size exceeds 4")
	649	+
	650	+	$f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
	651	+	}
	652	+	let continent = r._3
	653	+	let continentIdx = valueOrErrorMessage(indexOf(continents, continent), ("Unknown continent: " + continent))
	654	+	let terrains = genTerrains(abs(toBigInt(txId)), continentIdx)
	655	+	let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), 501)
	656	+	let newLandNum = toString(freeNum)
	657	+	let issue = Issue(keyNftName(newLandNum, newLandSize), makeString([newLandNum, newLandSize, terrains, continent], "_"), 1, 0, false)
	658	+	let assetId = calculateAssetId(issue)
	659	+	let newLandAssetId = toBase58String(assetId)
	660	+	let newMat = makeString(subtractMaterials((needMat > 0), split(currentPack[bpIdxMat], "_"), needMat), "_")
	661	+	$Tuple2((((((((((((((r._5 :+ 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)
	662	+	}
	663	+
	664	+
	665	+	func s2m (addr,landAssetIds,txId) = mergeInternal("M", 3, "SSSS", addr, landAssetIds, txId, 0)
	666	+
	667	+
	668	+	func m2l (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
	669	+	let cost = (InfraUpgradeCostSUsdn * 4)
	670	+	if (if (!(shouldUseMat))
	671	+	then (paymentAmount != cost)
	672	+	else false)
	673	+	then throw(("Payment attached should be " + toString(cost)))
	674	+	else mergeInternal("L", 4, "SMM", addr, landAssetIds, txId, (InfraUpgradeCostS * 4))
	675	+	}
	676	+
	677	+
	678	+	func l2xl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
	679	+	let cost = (InfraUpgradeCostSUsdn * 47)
	680	+	if (if (!(shouldUseMat))
	681	+	then (paymentAmount != cost)
	682	+	else false)
	683	+	then throw(("Payment attached should be " + toString(cost)))
	684	+	else mergeInternal("XL", 5, "SSSML", addr, landAssetIds, txId, (InfraUpgradeCostS * 47))
	685	+	}
	686	+
	687	+
	688	+	func xl2xxl (addr,landAssetIds,txId,shouldUseMat,paymentAmount) = {
	689	+	let cost = (InfraUpgradeCostSUsdn * 54)
	690	+	if (if (!(shouldUseMat))
	691	+	then (paymentAmount != cost)
	692	+	else false)
	693	+	then throw(("Payment attached should be " + toString(cost)))
	694	+	else mergeInternal("XXL", 6, "LXL", addr, landAssetIds, txId, (InfraUpgradeCostS * 54))
	695	+	}
	696	+
	697	+
	698	+	func mergeCommon (shouldUseMat,addr,paymentAmount,landAssetIds,txId) = {
	699	+	let mergeResult = match size(landAssetIds) {
	700	+	case _ =>
	701	+	if ((4 == $match0))
	702	+	then s2m(addr, landAssetIds, txId)
	703	+	else if ((3 == $match0))
	704	+	then m2l(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
	705	+	else if ((5 == $match0))
	706	+	then l2xl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
	707	+	else if ((2 == $match0))
	708	+	then xl2xxl(addr, landAssetIds, txId, shouldUseMat, paymentAmount)
	709	+	else throw("Unknown merge")
	710	+	}
	711	+	mergeResult
557	712		}
558	713
559	714

839	994		}
840	995
841	996
	997	+
	998	+	@Callable(i)
	999	+	func mergeLands (landAssetIds) = if ((i.caller != this))
	1000	+	then throw("permission denied")
	1001	+	else if ((size(i.payments) != 0))
	1002	+	then throw("Lands merging doesn't require any payments")
	1003	+	else mergeCommon(true, toString(i.caller), 0, landAssetIds, i.transactionId)
	1004	+
	1005	+
	1006	+
	1007	+	@Callable(i)
	1008	+	func mergeLandsUsdn (landAssetIds) = if ((i.caller != this))
	1009	+	then throw("permission denied")
	1010	+	else if ((size(i.payments) != 1))
	1011	+	then throw("Exactly one payment required")
	1012	+	else {
	1013	+	let pmt = value(i.payments[0])
	1014	+	if ((pmt.assetId != usdnAssetId))
	1015	+	then throw("Allowed USDN payment only!")
	1016	+	else {
	1017	+	let result = mergeCommon(false, toString(i.caller), pmt.amount, landAssetIds, i.transactionId)
	1018	+	$Tuple2((result._1 :+ ScriptTransfer(economyAddr, pmt.amount, usdnAssetId)), result._2)
	1019	+	}
	1020	+	}
	1021	+
	1022	+

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let chain = toUtf8String(take(drop(this.bytes, 1), 1))
5	5
6	6		let usdnAssetId = match chain {
7	7		case _ =>
8	8		if (("W" == $match0))
9	9		then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10	10		else if (("T" == $match0))
11	11		then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12	12		else throw("Unknown chain")
13	13		}
14	14
15	15		let incubatorAddr = match chain {
16	16		case _ =>
17	17		if (("W" == $match0))
18	18		then addressFromStringValue("3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv")
19	19		else if (("T" == $match0))
20	20		then this
21	21		else throw("Unknown chain")
22	22		}
23	23
24	24		let breederAddr = match chain {
25	25		case _ =>
26	26		if (("W" == $match0))
27	27		then addressFromStringValue("3PDVuU45H7Eh5dmtNbnRNRStGwULA7NY6Hb")
28	28		else if (("T" == $match0))
29	29		then this
30	30		else throw("Unknown chain")
31	31		}
32	32
33	33		let economyAddr = match chain {
34	34		case _ =>
35	35		if (("W" == $match0))
36	36		then addressFromStringValue("3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D")
37	37		else if (("T" == $match0))
38	38		then addressFromStringValue("3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep")
39	39		else throw("Unknown chain")
40	40		}
41	41
42	42		let pub = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43	43
44	44		let HEALCOST = 10000
45	45
46	46		let LANDPREFIX = "LAND"
47	47
48	48		let DUCKPREFIX = "DUCK"
49	49
50	50		let DEFAULTLOCATION = "Africa_F_Africa"
51	51
52	52		let NUMRES = 6
53	53
54	54		let DAILYRESBYPIECE = 3456000
55	55
56	56		let DAYMILLIS = 86400000
57	57
58	58		let FIVEMINUTESMILLIS = 300000
59	59
60	60		let RESOURCEPRICEMIN = 158549
61	61
62	62		let InfraUpgradeCostS = match chain {
63	63		case _ =>
64	64		if (("W" == $match0))
65		-	then ~~18921595217~~
	65	+	then 6307198406
66	66		else if (("T" == $match0))
67		-	then ~~189215952~~
	67	+	then 63071984
68	68		else throw("Unknown chain")
69	69		}
70	70
71	71		let InfraUpgradeCostSUsdn = match chain {
72	72		case _ =>
73	73		if (("W" == $match0))
74		-	then ~~120000000~~
	74	+	then 40000000
75	75		else if (("T" == $match0))
76		-	then ~~1200000~~
	76	+	then 400000
77	77		else throw("Unknown chain")
78	78		}
79	79
80	80		let EXPMATERIALS = match chain {
81	81		case _ =>
82	82		if (("W" == $match0))
83	83		then 157679960139
84	84		else if (("T" == $match0))
85	85		then 1576799601
86	86		else throw("Unknown chain")
87	87		}
88	88
89	89		let EXPUSDN = match chain {
90	90		case _ =>
91	91		if (("W" == $match0))
92	92		then 1000000000
93	93		else if (("T" == $match0))
94	94		then 10000000
95	95		else throw("Unknown chain")
96	96		}
97	97
98	98		let MULT6 = 1000000
99	99
100	100		let FIVEX = toBigInt(5)
101	101
102	102		let TWENTYX = toBigInt(20)
103	103
104	104		let TWENTY2X = toBigInt((20 * 20))
105	105
106	106		let TWENTY3X = toBigInt(((20 * 20) * 20))
107	107
108	108		let TWENTY4X = toBigInt((((20 * 20) * 20) * 20))
109	109
110	110		let TWENTY5X = toBigInt(((((20 * 20) * 20) * 20) * 20))
111	111
112	112		let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
113	113
114	114		let continents = ["Asia", "Europe", "Americas", "Oceania", "Africa"]
115	115
	116	+	let ARTPRESALE = "PRESALE"
	117	+
116	118		func keyNextFreeLandNum () = "nextLandNum"
117	119
118	120
119	121		func keyLandToAssetId (landNum) = ("landToAsset_" + landNum)
120	122
121	123
122	124		func keyNftName (landNum,landSize) = ((LANDPREFIX + landNum) + landSize)
123	125
124	126
125	127		func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
126	128
127	129
128	130		func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
129	131
130	132
131	133		func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
132	134
133	135
134	136		func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
135	137
136	138
137	139		func keyInfraLevelByAssetIdAndOwner (assetId,ownerAddr) = ((("infraLevelByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
138	140
139	141
140	142		func keyPresaleArtActivatedByAssetId (assetId) = ("presaleArtActivated_" + assetId)
141	143
142	144
143	145		func keyPresaleArtActivatedByAssetIdAndOwner (assetId,ownerAddr) = ((("presaleArtActivatedByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
	146	+
	147	+
	148	+	func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
	149	+
	150	+
	151	+	func keyLandArtStatusByTypeAssetIdAndOwner (type,assetId,ownerAddr) = makeString(["landArtStatusByTypeAssetIdAndOwner", type, assetId, ownerAddr], "_")
144	152
145	153
146	154		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
147	155
148	156
149	157		func keyStakedTimeByTypeAssetIdAndOwner (nftType,assetId,ownerAddr) = ((((("stakedTimeByTypeAssetIdAndOwner_" + nftType) + "_") + assetId) + "_") + ownerAddr)
150	158
151	159
152	160		func keyLandNumToOwner (landNum) = ("landOwner_" + landNum)
153	161
154	162
155	163		func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
156	164
157	165
158	166		func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
159	167
160	168
161	169		func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
162	170
163	171
164	172		func keyResProportions () = "resTypesProportions"
165	173
166	174
167	175		let recLandNum = 0
168	176
169	177		let recLandSize = 1
170	178
171	179		let recTerrains = 2
172	180
173	181		let recContinent = 3
174	182
175	183		let locIdxContinent = 0
176	184
177	185		let locIdxType = 1
178	186
179	187		let locIdxId = 2
180	188
181	189		let bpIdxLevel = 0
182	190
183	191		let bpIdxRes = 1
184	192
185	193		let bpIdxMat = 2
186	194
187	195		let bpIdxProd = 3
188	196
189	197		func asString (v) = match v {
190	198		case s: String =>
191	199		s
192	200		case _ =>
193	201		throw("fail to cast into String")
194	202		}
195	203
196	204
197	205		func getNeededMaterials (total) = {
198	206		let props = split(value(getString(keyResProportions())), "_")
199	207		if ((size(props) != NUMRES))
200	208		then throw("Wrong proportions data")
201	209		else {
202	210		let r = [parseIntValue(props[0]), parseIntValue(props[1]), parseIntValue(props[2]), parseIntValue(props[3]), parseIntValue(props[4]), parseIntValue(props[5])]
203	211		let sum = (((((r[0] + r[1]) + r[2]) + r[3]) + r[4]) + r[5])
204	212		if ((0 >= sum))
205	213		then throw("No lands staked")
206	214		else {
207	215		let norm6 = fraction(total, MULT6, sum)
208	216		func normalizer (acc,elem) = (acc :+ fraction(elem, norm6, MULT6))
209	217
210	218		let $l = r
211	219		let $s = size($l)
212	220		let $acc0 = nil
213	221		func $f0_1 ($a,$i) = if (($i >= $s))
214	222		then $a
215	223		else normalizer($a, $l[$i])
216	224
217	225		func $f0_2 ($a,$i) = if (($i >= $s))
218	226		then $a
219	227		else throw("List size exceeds 6")
220	228
221	229		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
222	230		}
223	231		}
224	232		}
225	233
226	234
227	235		func subtractMaterials (shouldUseMat,has,totalNeed) = {
228	236		let need = getNeededMaterials(totalNeed)
229	237		func subtractor (acc,idx) = {
230	238		let result = (parseIntValue(has[idx]) - need[idx])
231	239		if ((0 > result))
232	240		then throw(((((("Not enough material idx=" + toString(idx)) + ", you have ") + has[idx]) + ", but need ") + toString(need[idx])))
233	241		else (acc :+ toString(result))
234	242		}
235	243
236	244		if (shouldUseMat)
237	245		then {
238	246		let $l = [0, 1, 2, 3, 4, 5]
239	247		let $s = size($l)
240	248		let $acc0 = nil
241	249		func $f0_1 ($a,$i) = if (($i >= $s))
242	250		then $a
243	251		else subtractor($a, $l[$i])
244	252
245	253		func $f0_2 ($a,$i) = if (($i >= $s))
246	254		then $a
247	255		else throw("List size exceeds 6")
248	256
249	257		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
250	258		}
251	259		else has
252	260		}
253	261
254	262
	263	+	func updateProportionsInternal (propList,terrainCounts,landSizeIndex,sign) = if ((size(propList) != NUMRES))
	264	+	then throw("Wrong proportions data")
	265	+	else {
	266	+	func updater (acc,i) = {
	267	+	let result = (parseIntValue(propList[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
	268	+	if ((0 > result))
	269	+	then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ", terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
	270	+	else (acc :+ toString(result))
	271	+	}
	272	+
	273	+	let r = {
	274	+	let $l = [0, 1, 2, 3, 4, 5]
	275	+	let $s = size($l)
	276	+	let $acc0 = nil
	277	+	func $f0_1 ($a,$i) = if (($i >= $s))
	278	+	then $a
	279	+	else updater($a, $l[$i])
	280	+
	281	+	func $f0_2 ($a,$i) = if (($i >= $s))
	282	+	then $a
	283	+	else throw("List size exceeds 6")
	284	+
	285	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	286	+	}
	287	+	makeString(r, "_")
	288	+	}
	289	+
	290	+
255	291		func updateProportions (terrainCounts,landSizeIndex,sign) = {
256		-	let props = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
257		-	if ((size(props) != NUMRES))
258		-	then throw("Wrong proportions data")
259		-	else {
260		-	func updater (acc,i) = {
261		-	let result = (parseIntValue(props[i]) + ((sign * terrainCounts[i]) * landSizeIndex))
262		-	if ((0 > result))
263		-	then throw(((((((("Panic! Pieces of type=" + toString(i)) + ", sign=") + toString(sign)) + ", terrainCounts[i]=") + toString(terrainCounts[i])) + ", landSizeIndex=") + toString(landSizeIndex)))
264		-	else (acc :+ toString(result))
265		-	}
266		-
267		-	let r = {
268		-	let $l = [0, 1, 2, 3, 4, 5]
269		-	let $s = size($l)
270		-	let $acc0 = nil
271		-	func $f0_1 ($a,$i) = if (($i >= $s))
272		-	then $a
273		-	else updater($a, $l[$i])
274		-
275		-	func $f0_2 ($a,$i) = if (($i >= $s))
276		-	then $a
277		-	else throw("List size exceeds 6")
278		-
279		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
280		-	}
281		-	makeString(r, "_")
282		-	}
	292	+	let propList = split(valueOrElse(getString(keyResProportions()), "0_0_0_0_0_0"), "_")
	293	+	updateProportionsInternal(propList, terrainCounts, landSizeIndex, sign)
283	294		}
284	295
285	296
286	297		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)]
287	298
288	299
289	300		func numPiecesBySize (landSize) = match landSize {
290	301		case _ =>
291	302		if (("S" == $match0))
292	303		then 25
293	304		else if (("M" == $match0))
294	305		then 100
295	306		else if (("L" == $match0))
296	307		then 225
297	308		else if (("XL" == $match0))
298	309		then 400
299	310		else if (("XXL" == $match0))
300	311		then 625
301	312		else throw("Unknown land size")
302	313		}
303	314
304	315
305	316		func subOneInList (aList,idx,amount) = {
306	317		func subber (acc,i) = (acc :+ (if ((i == idx))
307	318		then toString((parseIntValue(aList[i]) - amount))
308	319		else aList[i]))
309	320
310	321		let r = {
311	322		let $l = [0, 1, 2, 3, 4, 5]
312	323		let $s = size($l)
313	324		let $acc0 = nil
314	325		func $f0_1 ($a,$i) = if (($i >= $s))
315	326		then $a
316	327		else subber($a, $l[$i])
317	328
318	329		func $f0_2 ($a,$i) = if (($i >= $s))
319	330		then $a
320	331		else throw("List size exceeds 6")
321	332
322	333		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
323	334		}
324	335		makeString(r, "_")
325	336		}
326	337
327	338
328	339		func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex,dailyByPieceWithBonuses) = {
329	340		func adder (acc,i) = {
330	341		let resOfType = ((fraction(deltaTime, dailyByPieceWithBonuses, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
331	342		(acc :+ toString((parseIntValue(currentRes[i]) + resOfType)))
332	343		}
333	344
334	345		let r = {
335	346		let $l = [0, 1, 2, 3, 4, 5]
336	347		let $s = size($l)
337	348		let $acc0 = nil
338	349		func $f0_1 ($a,$i) = if (($i >= $s))
339	350		then $a
340	351		else adder($a, $l[$i])
341	352
342	353		func $f0_2 ($a,$i) = if (($i >= $s))
343	354		then $a
344	355		else throw("List size exceeds 6")
345	356
346	357		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
347	358		}
348	359		makeString(r, "_")
349	360		}
350	361
351	362
352	363		func abs (x) = if ((x >= toBigInt(0)))
353	364		then x
354	365		else -(x)
355	366
356	367
357	368		let freq = [[1, 4, 9, 10, 15], [5, 8, 13, 14, 15], [6, 9, 14, 15, 16], [4, 7, 8, 13, 18], [1, 6, 7, 15, 19]]
358	369
359	370		func genChar (n,freqs) = {
360	371		let rem = toInt((n % TWENTYX))
361	372		let letter = if ((freqs[0] > rem))
362	373		then "A"
363	374		else if ((freqs[1] > rem))
364	375		then "B"
365	376		else if ((freqs[2] > rem))
366	377		then "C"
367	378		else if ((freqs[3] > rem))
368	379		then "D"
369	380		else if ((freqs[4] > rem))
370	381		then "E"
371	382		else "F"
372	383		letter
373	384		}
374	385
375	386
	387	+	func genTerrains (seed,continentIdx) = {
	388	+	let f = freq[continentIdx]
	389	+	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))
	390	+
	391	+	let t = {
	392	+	let $l = [1, 2, 3, 4, 5]
	393	+	let $s = size($l)
	394	+	let $acc0 = $Tuple2("", (seed / FIVEX))
	395	+	func $f0_1 ($a,$i) = if (($i >= $s))
	396	+	then $a
	397	+	else terrainGenerator($a, $l[$i])
	398	+
	399	+	func $f0_2 ($a,$i) = if (($i >= $s))
	400	+	then $a
	401	+	else throw("List size exceeds 5")
	402	+
	403	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
	404	+	}
	405	+	t._1
	406	+	}
	407	+
	408	+
376	409		func getBackpack (bpKey) = {
377	410		let p = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
378	411		[toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES))
379	412		then p[bpIdxRes]
380	413		else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES))
381	414		then p[bpIdxMat]
382	415		else "0_0_0_0_0_0", p[bpIdxProd]]
383	416		}
384	417
385	418
386	419		func expeditionCommon (shouldUseMat,caller,txId,message,sig) = if (!(sigVerify_8Kb(message, sig, pub)))
387	420		then throw("signature does not match")
388	421		else {
389	422		let parts = split(toUtf8String(message), ";")
390	423		let hp = split(split(parts[0], "\|")[0], "_")
391	424		let curHP = parseIntValue(hp[0])
392	425		let newHP = parseIntValue(hp[1])
393	426		let locAndTime = split(parts[1], ":")
394	427		let targetLocation = split(locAndTime[0], "_")
395	428		if ((targetLocation[1] != "E"))
396	429		then throw("expedition target location type should be E")
397	430		else {
398	431		let time = parseIntValue(locAndTime[1])
399	432		if (if ((time > (lastBlock.timestamp + FIVEMINUTESMILLIS)))
400	433		then true
401	434		else ((lastBlock.timestamp - FIVEMINUTESMILLIS) > time))
402	435		then throw("signature outdated")
403	436		else {
404	437		let userAddr = toString(caller)
405	438		let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(userAddr)), "You don't have a duck staked")
406	439		let keyHealth = keyDuckHealth(duckAssetId)
407	440		let oldFromState = valueOrElse(getInteger(keyHealth), 100)
408	441		if ((oldFromState != curHP))
409	442		then throw(((("oldHealth=" + toString(valueOrElse(getInteger(keyHealth), 100))) + " from state does not match one from flight log=") + toString(curHP)))
410	443		else if ((0 >= curHP))
411	444		then throw("You can't fly with zero health")
412	445		else if ((0 >= newHP))
413	446		then $Tuple2(((if (!(shouldUseMat))
414	447		then [ScriptTransfer(caller, EXPUSDN, usdnAssetId)]
415	448		else nil) :+ IntegerEntry(keyHealth, 0)), "")
416	449		else {
417	450		let bpKey = keyBackpackByDuck(duckAssetId)
418	451		let currentPack = getBackpack(bpKey)
419	452		let mList = split(currentPack[bpIdxMat], "_")
420	453		let newMat = makeString(subtractMaterials(shouldUseMat, mList, EXPMATERIALS), "_")
421	454		let bigNum = abs(toBigInt(txId))
422	455		let freeNum = valueOrElse(getInteger(keyNextFreeLandNum()), 501)
423	456		let landNum = toString(freeNum)
424	457		let continentIdx = toInt((bigNum % FIVEX))
425		-	let f = freq[continentIdx]
426		-	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))
427		-
428		-	let t = {
429		-	let $l = [1, 2, 3, 4, 5]
430		-	let $s = size($l)
431		-	let $acc0 = $Tuple2("", (bigNum / FIVEX))
432		-	func $f0_1 ($a,$i) = if (($i >= $s))
433		-	then $a
434		-	else terrainGenerator($a, $l[$i])
435		-
436		-	func $f0_2 ($a,$i) = if (($i >= $s))

github/deemru/w8io/3ef1775 
116.29 ms ◑