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