w8 · tx · D7p···Ke7

tx · D7pHgkuipvTYqQLUZRxwBgY7SAFDKRocEjRmpGoFDKe7

3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1:  -0.02400000 Waves

2023.01.08 16:15 [3461520] smart account 3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "D7pHgkuipvTYqQLUZRxwBgY7SAFDKRocEjRmpGoFDKe7",
    "fee": 2400000,
    "feeAssetId": null,
    "timestamp": 1673183680531,
    "version": 2,
    "chainId": 87,
    "sender": "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1",
    "senderPublicKey": "BtDpFhgHQKHFVqYTMLReuZzqy94CRPSRkrYcSEVyjt4q",
    "proofs": [
        "2FWjY49gYXqejC8V1sDgjkNivFBqJw5ff2VtGhTWtZnXcDwYorL7W2Lc3f7y7jQg9c4CN1TUhHweHKtqZWDvBPnU"
    ],
    "script": "base64:BgJJCAISABIDCgEIEgASAwoBCBIECgIBCBIECgICAhIECgIBCBIECgIBARIECgIICBIECgICAhIECgICAhIDCgEIEgMKAQgSAwoBCEsABWNoYWluCQCwCQEJAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZG5Bc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwASC2JinDBPXOU5GkDkt1JC9kjFGx+t+vVCm9SNIdKrKq0QMJAAACAgFUBQckbWF0Y2gwASD3dur394PKZdtuE+4CO89YKZWpwdGN8kvabNgdYoDI3gkAAgECDVVua25vd24gY2hhaW4ADWluY3ViYXRvckFkZHIEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNQRWt0VnV4MlJoY2hTTjYzRHNEbzRiNG16NFFxektTZUR2AwkAAAICAVQFByRtYXRjaDAFBHRoaXMJAAIBAg1Vbmtub3duIGNoYWluAAticmVlZGVyQWRkcgQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM1BEVnVVNDVIN0VoNWRtdE5iblJOUlN0R3dVTEE3Tlk2SGIDCQAAAgIBVAUHJG1hdGNoMAUEdGhpcwkAAgECDVVua25vd24gY2hhaW4AC2Vjb25vbXlBZGRyBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUDJzazFLbmNTeFJhWnM4YjRDV0dQdzJqa3Z2YXY3NHU0RAMJAAACAgFUBQckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjh5NHd4WDNKQzRUZHJDSkJYWDE2U2pXZjZYMjU2aHJlcAkAAgECDVVua25vd24gY2hhaW4AA3B1YgEgT1PiGj9UqNadUk4THUYnVb2zU/Mse8lUVLD/Q8G0FCgACEhFQUxDT1NUAJBOAApMQU5EUFJFRklYAgRMQU5EAApEVUNLUFJFRklYAgREVUNLAA9ERUZBVUxUTE9DQVRJT04CD0FmcmljYV9GX0FmcmljYQAGTlVNUkVTAAYAD0RBSUxZUkVTQllQSUVDRQCA+NIBAAlEQVlNSUxMSVMAgLiZKQARRklWRU1JTlVURVNNSUxMSVMA4KcSABBSRVNPVVJDRVBSSUNFTUlOANXWCQARSW5mcmFVcGdyYWRlQ29zdFMEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDAA0cLCvkYDCQAAAgIBVAUHJG1hdGNoMADQ6ZxaCQACAQINVW5rbm93biBjaGFpbgAVSW5mcmFVcGdyYWRlQ29zdFNVc2RuBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwAICcnDkDCQAAAgIBVAUHJG1hdGNoMACAn0kJAAIBAg1Vbmtub3duIGNoYWluAAxFWFBNQVRFUklBTFMEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDAAy4DVs8sEAwkAAAICAVQFByRtYXRjaDAA8Zrw7wUJAAIBAg1Vbmtub3duIGNoYWluAAdFWFBVU0ROBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwAICU69wDAwkAAAICAVQFByRtYXRjaDAAgK3iBAkAAgECDVVua25vd24gY2hhaW4ABU1VTFQ2AMCEPQAFRklWRVgJALYCAQAFAAdUV0VOVFlYCQC2AgEAFAAIVFdFTlRZMlgJALYCAQkAaAIAFAAUAAhUV0VOVFkzWAkAtgIBCQBoAgkAaAIAFAAUABQACFRXRU5UWTRYCQC2AgEJAGgCCQBoAgkAaAIAFAAUABQAFAAIVFdFTlRZNVgJALYCAQkAaAIJAGgCCQBoAgkAaAIAFAAUABQAFAAUAAhtYXRUeXBlcwkAzAgCAgRGdWVsCQDMCAICBU1ldGFsCQDMCAICBVBsYW5rCQDMCAICBUdsYXNzCQDMCAICB1BsYXN0aWMJAMwIAgIHUHJvdGVpbgUDbmlsAApjb250aW5lbnRzCQDMCAICBEFzaWEJAMwIAgIGRXVyb3BlCQDMCAICCEFtZXJpY2FzCQDMCAICB09jZWFuaWEJAMwIAgIGQWZyaWNhBQNuaWwBEmtleU5leHRGcmVlTGFuZE51bQACC25leHRMYW5kTnVtARBrZXlMYW5kVG9Bc3NldElkAQdsYW5kTnVtCQCsAgICDGxhbmRUb0Fzc2V0XwUHbGFuZE51bQEKa2V5TmZ0TmFtZQIHbGFuZE51bQhsYW5kU2l6ZQkArAICCQCsAgIFCkxBTkRQUkVGSVgFB2xhbmROdW0FCGxhbmRTaXplARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBB2Fzc2V0SWQJAKwCAgIJbmZ0T3duZXJfBQdhc3NldElkARBrZXlEdWNrSWRUb093bmVyAQdhc3NldElkCQCsAgICCmR1Y2tPd25lcl8FB2Fzc2V0SWQBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgILc3Rha2VkVGltZV8FB2Fzc2V0SWQBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgILaW5mcmFMZXZlbF8FB2Fzc2V0SWQBHmtleUluZnJhTGV2ZWxCeUFzc2V0SWRBbmRPd25lcgIHYXNzZXRJZAlvd25lckFkZHIJAKwCAgkArAICCQCsAgICHGluZnJhTGV2ZWxCeUFzc2V0SWRBbmRPd25lcl8FB2Fzc2V0SWQCAV8FCW93bmVyQWRkcgEfa2V5UHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAhRwcmVzYWxlQXJ0QWN0aXZhdGVkXwUHYXNzZXRJZAEna2V5UHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZEFuZE93bmVyAgdhc3NldElkCW93bmVyQWRkcgkArAICCQCsAgIJAKwCAgIlcHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZEFuZE93bmVyXwUHYXNzZXRJZAIBXwUJb3duZXJBZGRyARRrZXlTdGFrZWREdWNrQnlPd25lcgEJb3duZXJBZGRyCQCsAgICEnN0YWtlZER1Y2tCeU93bmVyXwUJb3duZXJBZGRyASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwduZnRUeXBlB2Fzc2V0SWQJb3duZXJBZGRyCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIgc3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcl8FB25mdFR5cGUCAV8FB2Fzc2V0SWQCAV8FCW93bmVyQWRkcgERa2V5TGFuZE51bVRvT3duZXIBB2xhbmROdW0JAKwCAgIKbGFuZE93bmVyXwUHbGFuZE51bQERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQBDWtleUR1Y2tIZWFsdGgBC2R1Y2tBc3NldElkCQCsAgICC2R1Y2tIZWFsdGhfBQtkdWNrQXNzZXRJZAERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zAApyZWNMYW5kTnVtAAAAC3JlY0xhbmRTaXplAAEAC3JlY1RlcnJhaW5zAAIADHJlY0NvbnRpbmVudAADAA9sb2NJZHhDb250aW5lbnQAAAAKbG9jSWR4VHlwZQABAAhsb2NJZHhJZAACAApicElkeExldmVsAAAACGJwSWR4UmVzAAEACGJwSWR4TWF0AAIACWJwSWR4UHJvZAADAQhhc1N0cmluZwEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAhhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBEmdldE5lZWRlZE1hdGVyaWFscwEFdG90YWwEBXByb3BzCQC1CQIJAQV2YWx1ZQEJAKIIAQkBEWtleVJlc1Byb3BvcnRpb25zAAIBXwMJAQIhPQIJAJADAQUFcHJvcHMFBk5VTVJFUwkAAgECFldyb25nIHByb3BvcnRpb25zIGRhdGEEAXIJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAAJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAEJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAIJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAMJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAQJAMwIAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXByb3BzAAUFA25pbAQDc3VtCQBkAgkAZAIJAGQCCQBkAgkAZAIJAJEDAgUBcgAACQCRAwIFAXIAAQkAkQMCBQFyAAIJAJEDAgUBcgADCQCRAwIFAXIABAkAkQMCBQFyAAUDCQBnAgAABQNzdW0JAAIBAg9ObyBsYW5kcyBzdGFrZWQEBW5vcm02CQBrAwUFdG90YWwFBU1VTFQ2BQNzdW0KAQpub3JtYWxpemVyAgNhY2MEZWxlbQkAzQgCBQNhY2MJAGsDBQRlbGVtBQVub3JtNgUFTVVMVDYKAAIkbAUBcgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKbm9ybWFsaXplcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgERc3VidHJhY3RNYXRlcmlhbHMDDHNob3VsZFVzZU1hdANoYXMJdG90YWxOZWVkBARuZWVkCQESZ2V0TmVlZGVkTWF0ZXJpYWxzAQUJdG90YWxOZWVkCgEKc3VidHJhY3RvcgIDYWNjA2lkeAQGcmVzdWx0CQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2hhcwUDaWR4CQCRAwIFBG5lZWQFA2lkeAMJAGYCAAAFBnJlc3VsdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhhOb3QgZW5vdWdoIG1hdGVyaWFsIGlkeD0JAKQDAQUDaWR4AgssIHlvdSBoYXZlIAkAkQMCBQNoYXMFA2lkeAILLCBidXQgbmVlZCAJAKQDAQkAkQMCBQRuZWVkBQNpZHgJAM0IAgUDYWNjCQCkAwEFBnJlc3VsdAMFDHNob3VsZFVzZU1hdAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnN1YnRyYWN0b3ICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYFA2hhcwERdXBkYXRlUHJvcG9ydGlvbnMDDXRlcnJhaW5Db3VudHMNbGFuZFNpemVJbmRleARzaWduBAVwcm9wcwkAtQkCCQELdmFsdWVPckVsc2UCCQCiCAEJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfAwkBAiE9AgkAkAMBBQVwcm9wcwUGTlVNUkVTCQACAQIWV3JvbmcgcHJvcG9ydGlvbnMgZGF0YQoBB3VwZGF0ZXICA2FjYwFpBAZyZXN1bHQJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUFcHJvcHMFAWkJAGgCCQBoAgUEc2lnbgkAkQMCBQ10ZXJyYWluQ291bnRzBQFpBQ1sYW5kU2l6ZUluZGV4AwkAZgIAAAUGcmVzdWx0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhZQYW5pYyEgUGllY2VzIG9mIHR5cGU9CQCkAwEFAWkCBywgc2lnbj0JAKQDAQUEc2lnbgIULCAgdGVycmFpbkNvdW50c1tpXT0JAKQDAQkAkQMCBQ10ZXJyYWluQ291bnRzBQFpAhAsIGxhbmRTaXplSW5kZXg9CQCkAwEFDWxhbmRTaXplSW5kZXgJAM0IAgUDYWNjCQCkAwEFBnJlc3VsdAQBcgoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBB3VwZGF0ZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJALkJAgUBcgIBXwENY291bnRUZXJyYWlucwEIdGVycmFpbnMJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBQQABCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUIAAQkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFDAAEJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBRAABCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUUAAQkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFGAAEFA25pbAEPbnVtUGllY2VzQnlTaXplAQhsYW5kU2l6ZQQHJG1hdGNoMAUIbGFuZFNpemUDCQAAAgIBUwUHJG1hdGNoMAAZAwkAAAICAU0FByRtYXRjaDAAZAMJAAACAgFMBQckbWF0Y2gwAOEBAwkAAAICAlhMBQckbWF0Y2gwAJADAwkAAAICA1hYTAUHJG1hdGNoMADxBAkAAgECEVVua25vd24gbGFuZCBzaXplAQxzdWJPbmVJbkxpc3QDBWFMaXN0A2lkeAZhbW91bnQKAQZzdWJiZXICA2FjYwFpCQDNCAIFA2FjYwMJAAACBQFpBQNpZHgJAKQDAQkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVhTGlzdAUBaQUGYW1vdW50CQCRAwIFBWFMaXN0BQFpBAFyCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEGc3ViYmVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCQC5CQIFAXICAV8BBmFkZFJlcwUKY3VycmVudFJlcw10ZXJyYWluQ291bnRzCWRlbHRhVGltZQ1sYW5kU2l6ZUluZGV4F2RhaWx5QnlQaWVjZVdpdGhCb251c2VzCgEFYWRkZXICA2FjYwFpBAlyZXNPZlR5cGUJAGgCCQBoAgkAawMFCWRlbHRhVGltZQUXZGFpbHlCeVBpZWNlV2l0aEJvbnVzZXMFCURBWU1JTExJUwkAkQMCBQ10ZXJyYWluQ291bnRzBQFpBQ1sYW5kU2l6ZUluZGV4CQDNCAIFA2FjYwkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCmN1cnJlbnRSZXMFAWkFCXJlc09mVHlwZQQBcgoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCQC5CQIFAXICAV8BA2FicwEBeAMJAMACAgUBeAkAtgIBAAAFAXgJAL4CAQUBeAAEZnJlcQkAzAgCCQDMCAIAAQkAzAgCAAQJAMwIAgAJCQDMCAIACgkAzAgCAA8FA25pbAkAzAgCCQDMCAIABQkAzAgCAAgJAMwIAgANCQDMCAIADgkAzAgCAA8FA25pbAkAzAgCCQDMCAIABgkAzAgCAAkJAMwIAgAOCQDMCAIADwkAzAgCABAFA25pbAkAzAgCCQDMCAIABAkAzAgCAAcJAMwIAgAICQDMCAIADQkAzAgCABIFA25pbAkAzAgCCQDMCAIAAQkAzAgCAAYJAMwIAgAHCQDMCAIADwkAzAgCABMFA25pbAUDbmlsAQdnZW5DaGFyAgFuBWZyZXFzBANyZW0JAKADAQkAuwICBQFuBQdUV0VOVFlYBAZsZXR0ZXIDCQBmAgkAkQMCBQVmcmVxcwAABQNyZW0CAUEDCQBmAgkAkQMCBQVmcmVxcwABBQNyZW0CAUIDCQBmAgkAkQMCBQVmcmVxcwACBQNyZW0CAUMDCQBmAgkAkQMCBQVmcmVxcwADBQNyZW0CAUQDCQBmAgkAkQMCBQVmcmVxcwAEBQNyZW0CAUUCAUYFBmxldHRlcgELZ2V0QmFja3BhY2sBBWJwS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUFYnBLZXkCGjA6MF8wXzBfMF8wXzA6MF8wXzBfMF8wXzA6AgE6CQDMCAIJAKQDAQkBC3ZhbHVlT3JFbHNlAgkAtgkBCQCRAwIFAXAFCmJwSWR4TGV2ZWwAAAkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCGJwSWR4UmVzAgFfBQZOVU1SRVMJAJEDAgUBcAUIYnBJZHhSZXMCCzBfMF8wXzBfMF8wCQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhNYXQCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeE1hdAILMF8wXzBfMF8wXzAJAMwIAgkAkQMCBQFwBQlicElkeFByb2QFA25pbAEQZXhwZWRpdGlvbkNvbW1vbgUMc2hvdWxkVXNlTWF0BmNhbGxlcgR0eElkB21lc3NhZ2UDc2lnAwkBASEBCQDEEwMFB21lc3NhZ2UFA3NpZwUDcHViCQACAQIYc2lnbmF0dXJlIGRvZXMgbm90IG1hdGNoBAVwYXJ0cwkAtQkCCQCwCQEFB21lc3NhZ2UCATsEAmhwCQC1CQIJAJEDAgkAtQkCCQCRAwIFBXBhcnRzAAACAXwAAAIBXwQFY3VySFAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJocAAABAVuZXdIUAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmhwAAEECmxvY0FuZFRpbWUJALUJAgkAkQMCBQVwYXJ0cwABAgE6BA50YXJnZXRMb2NhdGlvbgkAtQkCCQCRAwIFCmxvY0FuZFRpbWUAAAIBXwMJAQIhPQIJAJEDAgUOdGFyZ2V0TG9jYXRpb24AAQIBRQkAAgECK2V4cGVkaXRpb24gdGFyZ2V0IGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEUEBHRpbWUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpsb2NBbmRUaW1lAAEDAwkAZgIFBHRpbWUJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAURRklWRU1JTlVURVNNSUxMSVMGCQBmAgkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBRFGSVZFTUlOVVRFU01JTExJUwUEdGltZQkAAgECEnNpZ25hdHVyZSBvdXRkYXRlZAQIdXNlckFkZHIJAKUIAQUGY2FsbGVyBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFCHVzZXJBZGRyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAlrZXlIZWFsdGgJAQ1rZXlEdWNrSGVhbHRoAQULZHVja0Fzc2V0SWQEDG9sZEZyb21TdGF0ZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAMJAQIhPQIFDG9sZEZyb21TdGF0ZQUFY3VySFAJAAIBCQCsAgIJAKwCAgkArAICAgpvbGRIZWFsdGg9CQCkAwEJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJa2V5SGVhbHRoAGQCLyBmcm9tIHN0YXRlIGRvZXMgbm90IG1hdGNoIG9uZSBmcm9tIGZsaWdodCBsb2c9CQCkAwEFBWN1ckhQAwkAZwIAAAUFY3VySFAJAAIBAh5Zb3UgY2FuJ3QgZmx5IHdpdGggemVybyBoZWFsdGgDCQBnAgAABQVuZXdIUAkAlAoCCQDNCAIDCQEBIQEFDHNob3VsZFVzZU1hdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFB0VYUFVTRE4FC3VzZG5Bc3NldElkBQNuaWwFA25pbAkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aAAAAgAEBWJwS2V5CQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEFBWJwS2V5BAVtTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQGbmV3TWF0CQC5CQIJARFzdWJ0cmFjdE1hdGVyaWFscwMFDHNob3VsZFVzZU1hdAUFbUxpc3QFDEVYUE1BVEVSSUFMUwIBXwQGYmlnTnVtCQEDYWJzAQkAngMBBQR0eElkBAdmcmVlTnVtCQELdmFsdWVPckVsc2UCCQCfCAEJARJrZXlOZXh0RnJlZUxhbmROdW0AAPUDBAdsYW5kTnVtCQCkAwEFB2ZyZWVOdW0EDGNvbnRpbmVudElkeAkAoAMBCQC7AgIFBmJpZ051bQUFRklWRVgEAWYJAJEDAgUEZnJlcQUMY29udGluZW50SWR4CgEQdGVycmFpbkdlbmVyYXRvcgIDYWNjBGVsZW0JAJQKAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIIBQNhY2MCXzEJAQdnZW5DaGFyAggFA2FjYwJfMgUBZgkBB2dlbkNoYXICCQC6AgIIBQNhY2MCXzIFB1RXRU5UWVgFAWYJAQdnZW5DaGFyAgkAugICCAUDYWNjAl8yBQhUV0VOVFkyWAUBZgkBB2dlbkNoYXICCQC6AgIIBQNhY2MCXzIFCFRXRU5UWTNYBQFmCQEHZ2VuQ2hhcgIJALoCAggFA2FjYwJfMgUIVFdFTlRZNFgFAWYJALoCAggFA2FjYwJfMgUIVFdFTlRZNVgEAXQKAAIkbAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgICAAkAugICBQZiaWdOdW0FBUZJVkVYCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARB0ZXJyYWluR2VuZXJhdG9yAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQQJY29udGluZW50CQCRAwIFCmNvbnRpbmVudHMFDGNvbnRpbmVudElkeAQFaXNzdWUJAMIIBQkBCmtleU5mdE5hbWUCBQdsYW5kTnVtAgFTCQC5CQIJAMwIAgUHbGFuZE51bQkAzAgCAgFTCQDMCAIIBQF0Al8xCQDMCAIFCWNvbnRpbmVudAUDbmlsAgFfAAEAAAcEB2Fzc2V0SWQJALgIAQUFaXNzdWUEAmlkCQDYBAEFB2Fzc2V0SWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmtleU5leHRGcmVlTGFuZE51bQAJAGQCBQdmcmVlTnVtAAEJAMwIAgUFaXNzdWUJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEGtleUxhbmRUb0Fzc2V0SWQBBQdsYW5kTnVtBQJpZAkAzAgCCQELU3RyaW5nRW50cnkCCQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQUCaWQFCHVzZXJBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlMYW5kTnVtVG9Pd25lcgEFB2xhbmROdW0FCHVzZXJBZGRyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEFAmlkAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJAR5rZXlJbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXICBQJpZAUIdXNlckFkZHIAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIAAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQJALkJAgkAzAgCBQljb250aW5lbnQJAMwIAgIBTAkAzAgCBQJpZAUDbmlsAgFfCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlIZWFsdGgFBW5ld0hQCQDMCAIJAQtTdHJpbmdFbnRyeQIFBWJwS2V5CQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCBQZuZXdNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToFA25pbAUCaWQBDGFwcGx5Qm9udXNlcwELbGFuZEFzc2V0SWQECmluZnJhTGV2ZWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAxwcmVzYWxlQm9udXMDCQELdmFsdWVPckVsc2UCCQCgCAEJAR9rZXlQcmVzYWxlQXJ0QWN0aXZhdGVkQnlBc3NldElkAQULbGFuZEFzc2V0SWQHAAMAAAkAZAIJAGQCBQ9EQUlMWVJFU0JZUElFQ0UJAGsDBQ9EQUlMWVJFU0JZUElFQ0UFCmluZnJhTGV2ZWwABAkAawMFD0RBSUxZUkVTQllQSUVDRQUMcHJlc2FsZUJvbnVzABQBFGNoZWNrQ2xhaW1Db25kaXRpb25zAQRhZGRyBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFBGFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCiCAEJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OBANsb2MJALUJAgkBBXZhbHVlAQULY3VyTG9jYXRpb24CAV8DCQECIT0CCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIBTAkAAgEJAKwCAgkArAICAhZEdWNrIGxvY2F0aW9uIHR5cGUgaXMgCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIRLCBidXQgc2hvdWxkIGJlIEwEC2xhbmRBc3NldElkCQCRAwIFA2xvYwUIbG9jSWR4SWQEBWFzc2V0CQEFdmFsdWUBCQDsBwEJANkEAQULbGFuZEFzc2V0SWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQECXNhdmVkVGltZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFB3RpbWVLZXkJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBFWtleUxhbmRBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQRhZGRyCQACAQkArAICBQpMQU5EUFJFRklYAg0gaXMgbm90IHlvdXJzBAFkCQC1CQIIBQVhc3NldAtkZXNjcmlwdGlvbgIBXwkAlgoEBQtkdWNrQXNzZXRJZAULbGFuZEFzc2V0SWQFAWQFCXNhdmVkVGltZQEQY2xhaW1SZXNJbnRlcm5hbAIEYWRkcgZhbW91bnQEAWMJARRjaGVja0NsYWltQ29uZGl0aW9ucwEFBGFkZHIECGxhbmRTaXplCQCRAwIIBQFjAl8zBQtyZWNMYW5kU2l6ZQQNdGVycmFpbkNvdW50cwkBDWNvdW50VGVycmFpbnMBCQCRAwIIBQFjAl8zBQtyZWNUZXJyYWlucwQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAIBQFjAl80AwkAZgIAAAUJZGVsdGFUaW1lCQACAQkArAICCQCsAgIJAKwCAgImU2F2ZWQgdGltZXN0YW1wIGlzIGluIGZ1dHVyZSwgc2F2ZWQgPSAJAKQDAQgFAWMCXzQCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQUIbGFuZFNpemUEFmRhaWx5UHJvZHVjdGlvbkJ5UGllY2UJAQxhcHBseUJvbnVzZXMBCAUBYwJfMgQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBRZkYWlseVByb2R1Y3Rpb25CeVBpZWNlBQZwaWVjZXMFCURBWU1JTExJUwMJAGYCBQZhbW91bnQFCGF2YWlsUmVzCQACAQkArAICCQCsAgIJAKwCAgIiTm90IGVub3VnaCByZXNvdXJjZXMsIGF2YWlsYWJsZSA9IAkApAMBBQhhdmFpbFJlcwIOLCByZXF1ZXN0ZWQgPSAJAKQDAQUGYW1vdW50BAxuZXdEZWx0YVRpbWUJAGsDCQBlAgUIYXZhaWxSZXMFBmFtb3VudAUJREFZTUlMTElTCQBoAgUWZGFpbHlQcm9kdWN0aW9uQnlQaWVjZQUGcGllY2VzBAxuZXdUaW1lc3RhbXAJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUMbmV3RGVsdGFUaW1lBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQgFAWMCXzEEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQKY3VycmVudFJlcwkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQFYnBSZXMJAQZhZGRSZXMFBQpjdXJyZW50UmVzBQ10ZXJyYWluQ291bnRzCQBlAgUJZGVsdGFUaW1lBQxuZXdEZWx0YVRpbWUJAGkCBQZwaWVjZXMAGQUWZGFpbHlQcm9kdWN0aW9uQnlQaWVjZQkAlQoDCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEIBQFjAl8yBQxuZXdUaW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKTEFORFBSRUZJWAgFAWMCXzIFBGFkZHIFDG5ld1RpbWVzdGFtcAUDbmlsBQVicEtleQkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIFBWJwUmVzCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAQhjbGFpbUFsbAMEYWRkcgtsYW5kQXNzZXRJZAZwaWVjZXMEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQECXNhdmVkVGltZQkBBXZhbHVlAQkAnwgBBQd0aW1lS2V5BAhhdmFpbFJlcwkAaAIJAGsDCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFCXNhdmVkVGltZQkBDGFwcGx5Qm9udXNlcwEFC2xhbmRBc3NldElkBQlEQVlNSUxMSVMFBnBpZWNlcwkBEGNsYWltUmVzSW50ZXJuYWwCBQRhZGRyBQhhdmFpbFJlcwENdXBJbmZyYUNvbW1vbgMMc2hvdWxkVXNlTWF0BmNhbGxlcg1wYXltZW50QW1vdW50BARhZGRyCQClCAEFBmNhbGxlcgQBYwkBFGNoZWNrQ2xhaW1Db25kaXRpb25zAQUEYWRkcgQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCCAUBYwJfMwULcmVjTGFuZFNpemUECGluZnJhS2V5CQEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEIBQFjAl8yBAhjdXJMZXZlbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQhpbmZyYUtleQAAAwkAZwIFCGN1ckxldmVsAAMJAAIBAiZDdXJyZW50bHkgbWF4IGluZnJhc3RydWN0dXJlIGxldmVsID0gMwQIbmV3TGV2ZWwJAGQCBQhjdXJMZXZlbAABBARjb3N0CQBrAwUVSW5mcmFVcGdyYWRlQ29zdFNVc2RuCQBoAgUGcGllY2VzBQhuZXdMZXZlbAAZAwMJAQEhAQUMc2hvdWxkVXNlTWF0CQECIT0CBQ1wYXltZW50QW1vdW50BQRjb3N0BwkAAgEJAKwCAgIbUGF5bWVudCBhdHRhY2hlZCBzaG91bGQgYmUgCQCkAwEFBGNvc3QEBWJwS2V5CQERa2V5QmFja3BhY2tCeUR1Y2sBCAUBYwJfMQQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEFBWJwS2V5BAVtTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQGbmV3TWF0CQC5CQIJARFzdWJ0cmFjdE1hdGVyaWFscwMFDHNob3VsZFVzZU1hdAUFbUxpc3QJAGsDBRFJbmZyYVVwZ3JhZGVDb3N0UwkAaAIFBnBpZWNlcwUIbmV3TGV2ZWwAGQIBXwQLY2xhaW1SZXN1bHQJAQhjbGFpbUFsbAMFBGFkZHIIBQFjAl8yBQZwaWVjZXMJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQhpbmZyYUtleQUIbmV3TGV2ZWwJAMwIAgkBDEludGVnZXJFbnRyeQIJAR5rZXlJbmZyYUxldmVsQnlBc3NldElkQW5kT3duZXICCAUBYwJfMgUEYWRkcgUIbmV3TGV2ZWwJAMwIAgkBC1N0cmluZ0VudHJ5AgUFYnBLZXkJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAggFC2NsYWltUmVzdWx0Al8zBQhicElkeFJlcwkAzAgCBQZuZXdNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToFA25pbAgFC2NsYWltUmVzdWx0Al8xBQhuZXdMZXZlbAESYWN0aXZhdGVQcmVzYWxlQXJ0AQRhZGRyBAFjCQEUY2hlY2tDbGFpbUNvbmRpdGlvbnMBBQRhZGRyBA1hY3RpdmF0aW9uS2V5CQEfa2V5UHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZAEIBQFjAl8yAwkBC3ZhbHVlT3JFbHNlAgkAoAgBBQ1hY3RpdmF0aW9uS2V5BwkAAgECJVByZXNhbGUgYXJ0aWZhY3QgaXMgYWxyZWFkeSBhY3RpdmF0ZWQDCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIIBQFjAl8zBQpyZWNMYW5kTnVtAPQDCQACAQkArAICCQCsAgIJAKwCAgUKTEFORFBSRUZJWAIBIAgFAWMCXzICJSBpcyBub3QgZWxpZ2libGUgZm9yIHByZXNhbGUgYXJ0aWZhY3QEBnBpZWNlcwkBD251bVBpZWNlc0J5U2l6ZQEJAJEDAggFAWMCXzMFC3JlY0xhbmRTaXplBAtjbGFpbVJlc3VsdAkBCGNsYWltQWxsAwUEYWRkcggFAWMCXzIFBnBpZWNlcwkAzQgCCQDNCAIJAM0IAggFC2NsYWltUmVzdWx0Al8xCQEMQm9vbGVhbkVudHJ5AgkBH2tleVByZXNhbGVBcnRBY3RpdmF0ZWRCeUFzc2V0SWQBCAUBYwJfMgYJAQxCb29sZWFuRW50cnkCCQEna2V5UHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZEFuZE93bmVyAggFAWMCXzIFBGFkZHIGCQELU3RyaW5nRW50cnkCCAULY2xhaW1SZXN1bHQCXzIJALkJAggFC2NsYWltUmVzdWx0Al8zAgE6DgFpAQlzdGFrZUxhbmQABANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQHYXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIIBQNwbXQGYW1vdW50AAEJAAIBCQCsAgIJAKwCAgIETkZUIAUKTEFORFBSRUZJWAIkIHRva2VuIHNob3VsZCBiZSBhdHRhY2hlZCBhcyBwYXltZW50BAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkAwkBAiE9AggFBWFzc2V0Bmlzc3VlcgUEdGhpcwkAAgECF1Vua25vd24gaXNzdWVyIG9mIHRva2VuAwkBASEBCQEIY29udGFpbnMCCAUFYXNzZXQEbmFtZQUKTEFORFBSRUZJWAkAAgEJAKwCAgkArAICAglPbmx5IE5GVCAFCkxBTkRQUkVGSVgCFCB0b2tlbnMgYXJlIGFjY2VwdGVkBAtsYW5kTnVtU2l6ZQkAsAICCAUFYXNzZXQEbmFtZQAEBAdsYW5kTnVtAwkBCGNvbnRhaW5zAgULbGFuZE51bVNpemUCA1hYTAkAswICBQtsYW5kTnVtU2l6ZQADAwkBCGNvbnRhaW5zAgULbGFuZE51bVNpemUCAlhMCQCzAgIFC2xhbmROdW1TaXplAAIJALMCAgULbGFuZE51bVNpemUAAQQKbGFuZE51bUludAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQC2CQEFB2xhbmROdW0JAKwCAgIeQ2Fubm90IHBhcnNlIGxhbmQgbnVtYmVyIGZyb20gCAUFYXNzZXQEbmFtZQQLbGFuZEFzc2V0SWQJANgEAQUHYXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAMJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCEiBpcyBhbHJlYWR5IHN0YWtlZAQBZAkAtQkCCAUFYXNzZXQLZGVzY3JpcHRpb24CAV8EDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCBQFkBQtyZWNUZXJyYWlucwQFcHJvcHMJARF1cGRhdGVQcm9wb3J0aW9ucwMFDXRlcnJhaW5Db3VudHMJAGkCCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCBQFkBQtyZWNMYW5kU2l6ZQAZAAEJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkxBTkRQUkVGSVgFC2xhbmRBc3NldElkBQdhZGRyZXNzCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQELU3RyaW5nRW50cnkCCQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEWtleUxhbmROdW1Ub093bmVyAQUHbGFuZE51bQUHYWRkcmVzcwkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5UmVzUHJvcG9ydGlvbnMABQVwcm9wcwUDbmlsAWkBC3Vuc3Rha2VMYW5kAQ5sYW5kQXNzZXRJZFN0cgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECJHVuc3Rha2UgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQEYWRkcgkApQgBCAUBaQZjYWxsZXIEAWMJARRjaGVja0NsYWltQ29uZGl0aW9ucwEFBGFkZHIEDXRlcnJhaW5Db3VudHMJAQ1jb3VudFRlcnJhaW5zAQkAkQMCCAUBYwJfMwULcmVjVGVycmFpbnMEBnBpZWNlcwkBD251bVBpZWNlc0J5U2l6ZQEJAJEDAggFAWMCXzMFC3JlY0xhbmRTaXplBAVwcm9wcwkBEXVwZGF0ZVByb3BvcnRpb25zAwUNdGVycmFpbkNvdW50cwkAaQIFBnBpZWNlcwAZAP///////////wEEC2NsYWltUmVzdWx0CQEIY2xhaW1BbGwDBQRhZGRyCAUBYwJfMgUGcGllY2VzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEIBQFjAl8yCQDMCAIJAQtEZWxldGVFbnRyeQEJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQgFAWMCXzIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpMQU5EUFJFRklYCAUBYwJfMgUEYWRkcgkAzAgCCQELU3RyaW5nRW50cnkCCQERa2V5UmVzUHJvcG9ydGlvbnMABQVwcm9wcwkAzAgCCQELU3RyaW5nRW50cnkCCAULY2xhaW1SZXN1bHQCXzIJALkJAggFC2NsYWltUmVzdWx0Al8zAgE6BQNuaWwBaQEJc3Rha2VEdWNrAAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAEB2Fzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCAUDcG10BmFtb3VudAABCQACAQkArAICCQCsAgICBE5GVCAFCkRVQ0tQUkVGSVgCJCB0b2tlbiBzaG91bGQgYmUgYXR0YWNoZWQgYXMgcGF5bWVudAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMDCQECIT0CCAUFYXNzZXQGaXNzdWVyBQ1pbmN1YmF0b3JBZGRyCQECIT0CCAUFYXNzZXQGaXNzdWVyBQticmVlZGVyQWRkcgcJAAIBCQCsAgIJAKwCAgISVW5rbm93biBpc3N1ZXIgb2YgBQpEVUNLUFJFRklYAgYgdG9rZW4DCQEBIQEJAQhjb250YWlucwIIBQVhc3NldARuYW1lBQpEVUNLUFJFRklYCQACAQkArAICCQCsAgICCU9ubHkgTkZUIAUKRFVDS1BSRUZJWAIUIHRva2VucyBhcmUgYWNjZXB0ZWQECmFzc2V0SWRTdHIJANgEAQUHYXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQphc3NldElkU3RyAwkBCWlzRGVmaW5lZAEJAJ8IAQUHdGltZUtleQkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQISIGlzIGFscmVhZHkgc3Rha2VkAwkBCWlzRGVmaW5lZAEJAKIIAQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwkAAgEJAKwCAgIdWW91IGFscmVhZHkgc3Rha2VkIG9uZSBkdWNrOiAIBQVhc3NldARuYW1lBAZsb2NLZXkJAQ9rZXlEdWNrTG9jYXRpb24BBQphc3NldElkU3RyBAhsb2NhdGlvbgkAoggBBQZsb2NLZXkECWtleUhlYWx0aAkBDWtleUR1Y2tIZWFsdGgBBQphc3NldElkU3RyBAZoZWFsdGgJAJ8IAQUJa2V5SGVhbHRoBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQUKYXNzZXRJZFN0cgQIYmFja3BhY2sJAKIIAQUFYnBLZXkJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKRFVDS1BSRUZJWAkA2AQBBQdhc3NldElkBQdhZGRyZXNzCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQELU3RyaW5nRW50cnkCCQEQa2V5RHVja0lkVG9Pd25lcgEFCmFzc2V0SWRTdHIFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwUKYXNzZXRJZFN0cgUDbmlsAwkBCWlzRGVmaW5lZAEFCGxvY2F0aW9uBQNuaWwJAM4IAgkAzAgCCQELU3RyaW5nRW50cnkCBQZsb2NLZXkFD0RFRkFVTFRMT0NBVElPTgUDbmlsAwkBCWlzRGVmaW5lZAEFBmhlYWx0aAUDbmlsCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aABkBQNuaWwDCQEJaXNEZWZpbmVkAQUIYmFja3BhY2sFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCBQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoFA25pbAFpAQt1bnN0YWtlRHVjawEKYXNzZXRJZFN0cgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECJHVuc3Rha2UgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQHYXNzZXRJZAkA2QQBBQphc3NldElkU3RyBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMDCQECIT0CCAUFYXNzZXQGaXNzdWVyBQ1pbmN1YmF0b3JBZGRyCQECIT0CCAUFYXNzZXQGaXNzdWVyBQticmVlZGVyQWRkcgcJAAIBCQCsAgIJAKwCAgISVW5rbm93biBpc3N1ZXIgb2YgBQpEVUNLUFJFRklYAgYgdG9rZW4DCQEBIQEJAQhjb250YWlucwIIBQVhc3NldARuYW1lBQpEVUNLUFJFRklYCQACAQkArAICCQCsAgICCU9ubHkgTkZUIAUKRFVDS1BSRUZJWAIXIHRva2VucyBjYW4gYmUgdW5zdGFrZWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQkA2AQBBQdhc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQUHdGltZUtleQkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQDCQEBIQEJAQlpc0RlZmluZWQBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQdhZGRyZXNzCQACAQkArAICCQCsAgICCVRoZSBkdWNrIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARBrZXlEdWNrSWRUb093bmVyAQkA2AQBBQdhc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQdhZGRyZXNzCQACAQIXU3Rha2VkIE5GVCBpcyBub3QgeW91cnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHdGltZUtleQkAzAgCCQELRGVsZXRlRW50cnkBCQEPa2V5RHVja0xvY2F0aW9uAQUKYXNzZXRJZFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEQa2V5RHVja0lkVG9Pd25lcgEFCmFzc2V0SWRTdHIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpEVUNLUFJFRklYBQphc3NldElkU3RyBQdhZGRyZXNzCQDMCAIJAQtEZWxldGVFbnRyeQEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFB2FkZHJlc3MFA25pbAFpAQhjbGFpbVJlcwIGYW1vdW50DmxhbmRBc3NldElkU3RyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIlY2xhaW1SZXMgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQEYWRkcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIEBnJlc3VsdAkBEGNsYWltUmVzSW50ZXJuYWwCBQRhZGRyBQZhbW91bnQJAJQKAgkAzQgCCAUGcmVzdWx0Al8xCQELU3RyaW5nRW50cnkCCAUGcmVzdWx0Al8yCQC5CQIIBQZyZXN1bHQCXzMCAToJAJEDAggFBnJlc3VsdAJfMwUIYnBJZHhSZXMBaQEGZmxpZ2h0AgdtZXNzYWdlA3NpZwMJAQEhAQkAxBMDBQdtZXNzYWdlBQNzaWcFA3B1YgkAAgECGHNpZ25hdHVyZSBkb2VzIG5vdCBtYXRjaAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECI2ZsaWdodCBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAVwYXJ0cwkAtQkCCQCwCQEFB21lc3NhZ2UCATsEAmhwCQC1CQIJAJEDAgkAtQkCCQCRAwIFBXBhcnRzAAACAXwAAAIBXwQFY3VySFAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJocAAABAVuZXdIUAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmhwAAEEDW5ld0xvY0FuZFRpbWUJALUJAgkAkQMCBQVwYXJ0cwABAgE6BAtuZXdMb2NhdGlvbgkAkQMCBQ1uZXdMb2NBbmRUaW1lAAAEBHRpbWUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ1uZXdMb2NBbmRUaW1lAAEDAwkAZgIFBHRpbWUJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAURRklWRU1JTlVURVNNSUxMSVMGCQBmAgkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBRFGSVZFTUlOVVRFU01JTExJUwUEdGltZQkAAgECEnNpZ25hdHVyZSBvdXRkYXRlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQJa2V5SGVhbHRoCQENa2V5RHVja0hlYWx0aAEFC2R1Y2tBc3NldElkBAxvbGRGcm9tU3RhdGUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJa2V5SGVhbHRoAGQDCQECIT0CBQxvbGRGcm9tU3RhdGUFBWN1ckhQCQACAQkArAICCQCsAgIJAKwCAgIKb2xkSGVhbHRoPQkApAMBCQELdmFsdWVPckVsc2UCCQCfCAEFCWtleUhlYWx0aABkAi8gZnJvbSBzdGF0ZSBkb2VzIG5vdCBtYXRjaCBvbmUgZnJvbSBmbGlnaHQgbG9nPQkApAMBBQVjdXJIUAMJAGcCAAAFBWN1ckhQCQACAQIeWW91IGNhbid0IGZseSB3aXRoIHplcm8gaGVhbHRoBAZsb2NLZXkJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAQLY3VyTG9jYXRpb24JAQt2YWx1ZU9yRWxzZQIJAKIIAQUGbG9jS2V5BQ9ERUZBVUxUTE9DQVRJT04DCQAAAgULbmV3TG9jYXRpb24FC2N1ckxvY2F0aW9uCQACAQIiWW91IGNhbid0IGZseSB0byB0aGUgc2FtZSBsb2NhdGlvbgkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmxvY0tleQMJAGYCBQVuZXdIUAAABQtuZXdMb2NhdGlvbgULY3VyTG9jYXRpb24JAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aAUFbmV3SFAFA25pbAUEdW5pdAFpAQlzZXRIZWFsdGgCBmhlYWx0aAtkdWNrQXNzZXRJZAMDCQBmAgAABQZoZWFsdGgGCQBmAgUGaGVhbHRoAGQJAAIBAhpIUCBzaG91bGQgYmUgd2l0aGluIDAuLjEwMAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAUGaGVhbHRoBQNuaWwBaQEEaGVhbAIHbWF0VHlwZQZhbW91bnQDAwkAZgIAAAUHbWF0VHlwZQYJAGcCBQdtYXRUeXBlBQZOVU1SRVMJAAIBCQCsAgICElVua25vd24gbWF0ZXJpYWw6IAkApAMBBQdtYXRUeXBlAwkAZwIAAAUGYW1vdW50CQACAQkArAICAhtBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlISAJAKQDAQUGYW1vdW50BAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAlrZXlIZWFsdGgJAQ1rZXlEdWNrSGVhbHRoAQULZHVja0Fzc2V0SWQECW9sZEhlYWx0aAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAMJAGcCBQlvbGRIZWFsdGgAZAkAAgECGkhQIHNob3VsZCBiZSA8IDEwMCB0byBoZWFsBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBBQVicEtleQQFbUxpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8EDWN1cnJlbnRBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVtTGlzdAUHbWF0VHlwZQQLZGVsdGFIZWFsdGgJAJcDAQkAzAgCCQBpAgUGYW1vdW50BQhIRUFMQ09TVAkAzAgCCQBlAgBkBQlvbGRIZWFsdGgFA25pbAQLc3BlbmRBbW91bnQJAGgCBQtkZWx0YUhlYWx0aAUISEVBTENPU1QDCQBmAgULc3BlbmRBbW91bnQFDWN1cnJlbnRBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IG5lZWQgCQCkAwEFC3NwZW5kQW1vdW50AgQgb2YgCQCRAwIFCG1hdFR5cGVzBQdtYXRUeXBlAiQgdG8gaGVhbCwgYnV0IHlvdSBiYWNrcGFjayBjb250YWlucyAJAKQDAQUNY3VycmVudEFtb3VudAQGbmV3TWF0CQEMc3ViT25lSW5MaXN0AwUFbUxpc3QFB21hdFR5cGUFC3NwZW5kQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlIZWFsdGgJAGQCBQlvbGRIZWFsdGgFC2RlbHRhSGVhbHRoCQDMCAIJAQtTdHJpbmdFbnRyeQIFBWJwS2V5CQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCBQZuZXdNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToFA25pbAFpAQ51cGRhdGVCYWNrcGFjawILZHVja0Fzc2V0SWQHbmV3UGFjawMJAQIhPQIIBQFpBmNhbGxlcgULZWNvbm9teUFkZHIJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBQduZXdQYWNrBQNuaWwFB25ld1BhY2sBaQENZXhwZWRpdGlvbkJ1eQIHbWVzc2FnZQNzaWcDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQHYXNzZXRJZAULdXNkbkFzc2V0SWQJAAIBAhpBbGxvd2VkIFVTRE4gcGF5bWVudCBvbmx5IQMJAQIhPQIIBQNwbXQGYW1vdW50BQdFWFBVU0ROCQACAQkArAICAhtQYXltZW50IGF0dGFjaGVkIHNob3VsZCBiZSAJAKQDAQUHRVhQVVNETgkBEGV4cGVkaXRpb25Db21tb24FBwgFAWkGY2FsbGVyCAUBaQ10cmFuc2FjdGlvbklkBQdtZXNzYWdlBQNzaWcBaQEKZXhwZWRpdGlvbgIHbWVzc2FnZQNzaWcDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAidleHBlZGl0aW9uIGRvZXNuJ3QgcmVxdWlyZSBhbnkgcGF5bWVudHMJARBleHBlZGl0aW9uQ29tbW9uBQYIBQFpBmNhbGxlcggFAWkNdHJhbnNhY3Rpb25JZAUHbWVzc2FnZQUDc2lnAWkBDHVwZ3JhZGVJbmZyYQESbGFuZEFzc2V0SWRJZ25vcmVkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIzSW5mcmFzdHJ1Y3R1cmUgdXBncmFkZSBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzCQENdXBJbmZyYUNvbW1vbgMGCAUBaQZjYWxsZXIAAAFpARB1cGdyYWRlSW5mcmFVc2RuARJsYW5kQXNzZXRJZElnbm9yZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhxFeGFjdGx5IG9uZSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQHYXNzZXRJZAULdXNkbkFzc2V0SWQJAAIBAhpBbGxvd2VkIFVTRE4gcGF5bWVudCBvbmx5IQkBDXVwSW5mcmFDb21tb24DBwgFAWkGY2FsbGVyCAUDcG10BmFtb3VudAFpARBhY3RpdmF0ZUFydGlmYWN0AQdhcnROYW1lAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIwQXJ0aWZhY3QgYWN0aXZhdGlvbiBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAZyZXN1bHQEByRtYXRjaDAFB2FydE5hbWUDCQAAAgIHUFJFU0FMRQUHJG1hdGNoMAkBEmFjdGl2YXRlUHJlc2FsZUFydAEJAKUIAQgFAWkGY2FsbGVyCQACAQIQVW5rbm93biBhcnRpZmFjdAUGcmVzdWx0ALZTV/A=",
    "height": 3461520,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

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

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

Old	New		Differences
59	59
60	60		let RESOURCEPRICEMIN = 158549
61	61
	62	+	let InfraUpgradeCostS = match chain {
	63	+	case _ =>
	64	+	if (("W" == $match0))
	65	+	then 18921595217
	66	+	else if (("T" == $match0))
	67	+	then 189215952
	68	+	else throw("Unknown chain")
	69	+	}
	70	+
	71	+	let InfraUpgradeCostSUsdn = match chain {
	72	+	case _ =>
	73	+	if (("W" == $match0))
	74	+	then 120000000
	75	+	else if (("T" == $match0))
	76	+	then 1200000
	77	+	else throw("Unknown chain")
	78	+	}
	79	+
62	80		let EXPMATERIALS = match chain {
63	81		case _ =>
64	82		if (("W" == $match0))

116	134		func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
117	135
118	136
	137	+	func keyInfraLevelByAssetIdAndOwner (assetId,ownerAddr) = ((("infraLevelByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
	138	+
	139	+
	140	+	func keyPresaleArtActivatedByAssetId (assetId) = ("presaleArtActivated_" + assetId)
	141	+
	142	+
	143	+	func keyPresaleArtActivatedByAssetIdAndOwner (assetId,ownerAddr) = ((("presaleArtActivatedByAssetIdAndOwner_" + assetId) + "_") + ownerAddr)
	144	+
	145	+
119	146		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
120	147
121	148

158	185		let bpIdxMat = 2
159	186
160	187		let bpIdxProd = 3
	188	+
	189	+	func asString (v) = match v {
	190	+	case s: String =>
	191	+	s
	192	+	case _ =>
	193	+	throw("fail to cast into String")
	194	+	}
	195	+
161	196
162	197		func getNeededMaterials (total) = {
163	198		let props = split(value(getString(keyResProportions())), "_")

290	325		}
291	326
292	327
293		-	func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex) = {
	328	+	func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex,dailyByPieceWithBonuses) = {
294	329		func adder (acc,i) = {
295		-	let resOfType = ((fraction(deltaTime, ~~DAILYRESBYPIECE~~, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
	330	+	let resOfType = ((fraction(deltaTime, dailyByPieceWithBonuses, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
296	331		(acc :+ toString((parseIntValue(currentRes[i]) + resOfType)))
297	332		}
298	333

375	410		else if ((0 >= curHP))
376	411		then throw("You can't fly with zero health")
377	412		else if ((0 >= newHP))
378		-	then throw("Your duck health is zero, expedition failed")
	413	+	then $Tuple2(((if (!(shouldUseMat))
	414	+	then [ScriptTransfer(caller, EXPUSDN, usdnAssetId)]
	415	+	else nil) :+ IntegerEntry(keyHealth, 0)), "")
379	416		else {
380	417		let bpKey = keyBackpackByDuck(duckAssetId)
381	418		let currentPack = getBackpack(bpKey)

406	443		let issue = Issue(keyNftName(landNum, "S"), makeString([landNum, "S", t._1, continent], "_"), 1, 0, false)
407	444		let assetId = calculateAssetId(issue)
408	445		let id = toBase58String(assetId)
409		-	$Tuple2([IntegerEntry(keyNextFreeLandNum(), (freeNum + 1)), issue, StringEntry(keyLandToAssetId(landNum), id), StringEntry(keyLandAssetIdToOwner(id), userAddr), StringEntry(keyLandNumToOwner(landNum), userAddr), IntegerEntry(keyInfraLevelByAssetId(id), 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]], ":"))], ~~unit~~)
	446	+	$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)
410	447		}
411	448		}
412	449		}
413	450		}
	451	+
	452	+
	453	+	func applyBonuses (landAssetId) = {
	454	+	let infraLevel = valueOrElse(getInteger(keyInfraLevelByAssetId(landAssetId)), 0)
	455	+	let presaleBonus = if (valueOrElse(getBoolean(keyPresaleArtActivatedByAssetId(landAssetId)), false))
	456	+	then 3
	457	+	else 0
	458	+	((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, presaleBonus, 20))
	459	+	}
	460	+
	461	+
	462	+	func checkClaimConditions (addr) = {
	463	+	let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(addr)), "You don't have a duck staked")
	464	+	let curLocation = valueOrElse(getString(keyDuckLocation(duckAssetId)), DEFAULTLOCATION)
	465	+	let loc = split(value(curLocation), "_")
	466	+	if ((loc[locIdxType] != "L"))
	467	+	then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
	468	+	else {
	469	+	let landAssetId = loc[locIdxId]
	470	+	let asset = value(assetInfo(fromBase58String(landAssetId)))
	471	+	let timeKey = keyStakedTimeByAssetId(landAssetId)
	472	+	let savedTime = valueOrErrorMessage(getInteger(timeKey), (("NFT " + asset.name) + " is not staked"))
	473	+	let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
	474	+	if ((owner != addr))
	475	+	then throw((LANDPREFIX + " is not yours"))
	476	+	else {
	477	+	let d = split(asset.description, "_")
	478	+	$Tuple4(duckAssetId, landAssetId, d, savedTime)
	479	+	}
	480	+	}
	481	+	}
	482	+
	483	+
	484	+	func claimResInternal (addr,amount) = {
	485	+	let c = checkClaimConditions(addr)
	486	+	let landSize = c._3[recLandSize]
	487	+	let terrainCounts = countTerrains(c._3[recTerrains])
	488	+	let deltaTime = (lastBlock.timestamp - c._4)
	489	+	if ((0 > deltaTime))
	490	+	then throw(((("Saved timestamp is in future, saved = " + toString(c._4)) + ", current = ") + toString(lastBlock.timestamp)))
	491	+	else {
	492	+	let pieces = numPiecesBySize(landSize)
	493	+	let dailyProductionByPiece = applyBonuses(c._2)
	494	+	let availRes = fraction(deltaTime, (dailyProductionByPiece * pieces), DAYMILLIS)
	495	+	if ((amount > availRes))
	496	+	then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))
	497	+	else {
	498	+	let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (dailyProductionByPiece * pieces))
	499	+	let newTimestamp = (lastBlock.timestamp - newDeltaTime)
	500	+	let bpKey = keyBackpackByDuck(c._1)
	501	+	let currentPack = getBackpack(bpKey)
	502	+	let currentRes = split(currentPack[bpIdxRes], "_")
	503	+	let bpRes = addRes(currentRes, terrainCounts, (deltaTime - newDeltaTime), (pieces / 25), dailyProductionByPiece)
	504	+	$Tuple3([IntegerEntry(keyStakedTimeByAssetId(c._2), newTimestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, c._2, addr), newTimestamp)], bpKey, [currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]])
	505	+	}
	506	+	}
	507	+	}
	508	+
	509	+
	510	+	func claimAll (addr,landAssetId,pieces) = {
	511	+	let timeKey = keyStakedTimeByAssetId(landAssetId)
	512	+	let savedTime = value(getInteger(timeKey))
	513	+	let availRes = (fraction((lastBlock.timestamp - savedTime), applyBonuses(landAssetId), DAYMILLIS) * pieces)
	514	+	claimResInternal(addr, availRes)
	515	+	}
	516	+
	517	+
	518	+	func upInfraCommon (shouldUseMat,caller,paymentAmount) = {
	519	+	let addr = toString(caller)
	520	+	let c = checkClaimConditions(addr)
	521	+	let pieces = numPiecesBySize(c._3[recLandSize])
	522	+	let infraKey = keyInfraLevelByAssetId(c._2)
	523	+	let curLevel = valueOrElse(getInteger(infraKey), 0)
	524	+	if ((curLevel >= 3))
	525	+	then throw("Currently max infrastructure level = 3")
	526	+	else {
	527	+	let newLevel = (curLevel + 1)
	528	+	let cost = fraction(InfraUpgradeCostSUsdn, (pieces * newLevel), 25)
	529	+	if (if (!(shouldUseMat))
	530	+	then (paymentAmount != cost)
	531	+	else false)
	532	+	then throw(("Payment attached should be " + toString(cost)))
	533	+	else {
	534	+	let bpKey = keyBackpackByDuck(c._1)
	535	+	let currentPack = getBackpack(bpKey)
	536	+	let mList = split(currentPack[bpIdxMat], "_")
	537	+	let newMat = makeString(subtractMaterials(shouldUseMat, mList, fraction(InfraUpgradeCostS, (pieces * newLevel), 25)), "_")
	538	+	let claimResult = claimAll(addr, c._2, pieces)
	539	+	$Tuple2(([IntegerEntry(infraKey, newLevel), IntegerEntry(keyInfraLevelByAssetIdAndOwner(c._2, addr), newLevel), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], claimResult._3[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))] ++ claimResult._1), newLevel)
	540	+	}
	541	+	}
	542	+	}
	543	+
	544	+
	545	+	func activatePresaleArt (addr) = {
	546	+	let c = checkClaimConditions(addr)
	547	+	let activationKey = keyPresaleArtActivatedByAssetId(c._2)
	548	+	if (valueOrElse(getBoolean(activationKey), false))
	549	+	then throw("Presale artifact is already activated")
	550	+	else if ((parseIntValue(c._3[recLandNum]) > 500))
	551	+	then throw((((LANDPREFIX + " ") + c._2) + " is not eligible for presale artifact"))
	552	+	else {
	553	+	let pieces = numPiecesBySize(c._3[recLandSize])
	554	+	let claimResult = claimAll(addr, c._2, pieces)
	555	+	(((claimResult._1 :+ BooleanEntry(keyPresaleArtActivatedByAssetId(c._2), true)) :+ BooleanEntry(keyPresaleArtActivatedByAssetIdAndOwner(c._2, addr), true)) :+ StringEntry(claimResult._2, makeString(claimResult._3, ":")))
	556	+	}
	557	+	}
414	558
415	559
416	560		@Callable(i)

433	577		else if (contains(landNumSize, "XL"))
434	578		then dropRight(landNumSize, 2)
435	579		else dropRight(landNumSize, 1)
436		-	if (!(isDefined(parseInt(landNum))))
437		-	then throw(("Cannot parse land number from " + asset.name))
	580	+	let landNumInt = valueOrErrorMessage(parseInt(landNum), ("Cannot parse land number from " + asset.name))
	581	+	let landAssetId = toBase58String(assetId)
	582	+	let timeKey = keyStakedTimeByAssetId(landAssetId)
	583	+	if (isDefined(getInteger(timeKey)))
	584	+	then throw((("NFT " + asset.name) + " is already staked"))
438	585		else {
439		-	let timeKey = keyStakedTimeByAssetId(toBase58String(assetId))
440		-	if (isDefined(getInteger(timeKey)))
441		-	then throw((("NFT " + asset.name) + " is already staked"))
442		-	else {
443		-	let d = split(asset.description, "_")
444		-	let terrainCounts = countTerrains(d[recTerrains])
445		-	let props = updateProportions(terrainCounts, (numPiecesBySize(d[recLandSize]) / 25), 1)
446		-	[IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, toBase58String(assetId), address), lastBlock.timestamp), StringEntry(keyLandAssetIdToOwner(toBase58String(assetId)), address), StringEntry(keyLandNumToOwner(landNum), address), StringEntry(keyResProportions(), props)]
447		-	}
	586	+	let d = split(asset.description, "_")
	587	+	let terrainCounts = countTerrains(d[recTerrains])
	588	+	let props = updateProportions(terrainCounts, (numPiecesBySize(d[recLandSize]) / 25), 1)
	589	+	[IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, address), lastBlock.timestamp), StringEntry(keyLandAssetIdToOwner(landAssetId), address), StringEntry(keyLandNumToOwner(landNum), address), StringEntry(keyResProportions(), props)]
448	590		}
449	591		}
450	592		}

453	595
454	596
455	597		@Callable(i)
456		-	func unstakeLand (~~landAssetId~~) = if ((size(i.payments) != 0))
	598	+	func unstakeLand (landAssetIdStr) = if ((size(i.payments) != 0))
457	599		then throw("unstake doesn't require any payments")
458	600		else {
459		-	let assetId = fromBase58String(landAssetId)
460		-	let address = toString(i.caller)
461		-	let asset = value(assetInfo(assetId))
462		-	if ((asset.issuer != this))
463		-	then throw("Unknown issuer of token")
464		-	else if (!(contains(asset.name, LANDPREFIX)))
465		-	then throw((("Only NFT " + LANDPREFIX) + " tokens can be unstaked"))
466		-	else {
467		-	let timeKey = keyStakedTimeByAssetId(landAssetId)
468		-	if (!(isDefined(timeKey)))
469		-	then throw((("NFT " + asset.name) + " is not staked"))
470		-	else {
471		-	let owner = valueOrErrorMessage(getString(keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
472		-	if ((owner != address))
473		-	then throw("Staked NFT is not yours")
474		-	else {
475		-	let d = split(asset.description, "_")
476		-	let terrainCounts = countTerrains(d[recTerrains])
477		-	let props = updateProportions(terrainCounts, (numPiecesBySize(d[recLandSize]) / 25), -1)
478		-	[ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, address)), StringEntry(keyResProportions(), props)]
479		-	}
480		-	}
481		-	}
	601	+	let addr = toString(i.caller)
	602	+	let c = checkClaimConditions(addr)
	603	+	let terrainCounts = countTerrains(c._3[recTerrains])
	604	+	let pieces = numPiecesBySize(c._3[recLandSize])
	605	+	let props = updateProportions(terrainCounts, (pieces / 25), -1)
	606	+	let claimResult = claimAll(addr, c._2, pieces)
	607	+	[ScriptTransfer(i.caller, 1, fromBase58String(c._2)), DeleteEntry(keyStakedTimeByAssetId(c._2)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, c._2, addr)), StringEntry(keyResProportions(), props), StringEntry(claimResult._2, makeString(claimResult._3, ":"))]
482	608		}
483	609
484	610

549	675		let owner = valueOrErrorMessage(getString(keyDuckIdToOwner(toBase58String(assetId))), (("NFT " + asset.name) + " is orphaned"))
550	676		if ((owner != address))
551	677		then throw("Staked NFT is not yours")
552		-	else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyDuckLocation(assetIdStr)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, assetIdStr, address)), DeleteEntry(keyStakedDuckByOwner(address))]
	678	+	else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyDuckLocation(assetIdStr)), DeleteEntry(keyDuckIdToOwner(assetIdStr)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, assetIdStr, address)), DeleteEntry(keyStakedDuckByOwner(address))]
553	679		}
554	680		}
555	681		}

557	683
558	684
559	685		@Callable(i)
560		-	func claimRes (amount,~~landAssetId~~) = if ((size(i.payments) != 0))
	686	+	func claimRes (amount,landAssetIdStr) = if ((size(i.payments) != 0))
561	687		then throw("claimRes doesn't require any payments")
562	688		else {
563		-	let addr = toString(i.caller)
564		-	let asset = value(assetInfo(fromBase58String(landAssetId)))
565		-	if (!(contains(asset.name, LANDPREFIX)))
566		-	then throw((("NFT " + LANDPREFIX) + " token should be passed as param"))
567		-	else {
568		-	let timeKey = keyStakedTimeByAssetId(landAssetId)
569		-	let savedTime = getInteger(timeKey)
570		-	if (!(isDefined(savedTime)))
571		-	then throw((("NFT " + asset.name) + " is not staked"))
572		-	else {
573		-	let owner = getStringValue(keyLandAssetIdToOwner(landAssetId))
574		-	if ((owner != addr))
575		-	then throw((LANDPREFIX + " is not yours"))
576		-	else {
577		-	let d = split(asset.description, "_")
578		-	let landSize = d[recLandSize]
579		-	let terrainCounts = countTerrains(d[recTerrains])
580		-	let duck = getString(keyStakedDuckByOwner(addr))
581		-	if (!(isDefined(duck)))
582		-	then throw("You don't have a duck staked")
583		-	else {
584		-	let duckAssetIdStr = value(duck)
585		-	let curLocation = valueOrElse(getString(keyDuckLocation(duckAssetIdStr)), DEFAULTLOCATION)
586		-	let loc = split(value(curLocation), "_")
587		-	if ((loc[locIdxType] != "L"))
588		-	then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
589		-	else if ((loc[locIdxId] != landAssetId))
590		-	then throw(((("Duck location id is " + loc[locIdxId]) + ", but should be ") + landAssetId))
591		-	else {
592		-	let deltaTime = (lastBlock.timestamp - value(savedTime))
593		-	if ((0 > deltaTime))
594		-	then throw(((("Saved timestamp is in future, saved = " + toString(value(savedTime))) + ", current = ") + toString(lastBlock.timestamp)))
595		-	else {
596		-	let pieces = numPiecesBySize(landSize)
597		-	let availRes = (fraction(deltaTime, DAILYRESBYPIECE, DAYMILLIS) * pieces)
598		-	if ((amount > availRes))
599		-	then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))
600		-	else {
601		-	let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (pieces * DAILYRESBYPIECE))
602		-	let newTimestamp = (lastBlock.timestamp - newDeltaTime)
603		-	let bpKey = keyBackpackByDuck(duckAssetIdStr)
604		-	let currentPack = getBackpack(bpKey)
605		-	let currentRes = split(currentPack[bpIdxRes], "_")
606		-	let bpRes = addRes(currentRes, terrainCounts, (deltaTime - newDeltaTime), (pieces / 25))
607		-	let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
608		-	$Tuple2([StringEntry(bpKey, newPack), IntegerEntry(timeKey, newTimestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, owner), newTimestamp)], unit)
609		-	}
610		-	}
611		-	}
612		-	}
613		-	}
614		-	}
615		-	}
	689	+	let addr = toString(i.originCaller)
	690	+	let result = claimResInternal(addr, amount)
	691	+	$Tuple2((result._1 :+ StringEntry(result._2, makeString(result._3, ":"))), result._3[bpIdxRes])
616	692		}
617	693
618	694

725	801
726	802
727	803		@Callable(i)
728		-	func upgradeInfra (landAssetId) = if ((i.caller != this))
729		-	then throw("temporary disabled")
730		-	else if ((size(i.payments) != 0))
731		-	then throw("Infrastructure upgrading doesn't require any payments")
732		-	else {
733		-	let infraKey = keyInfraLevelByAssetId(landAssetId)
734		-	let curLevel = valueOrElse(getInteger(infraKey), 0)
735		-	if ((curLevel >= 3))
736		-	then throw("Currently max infrastructure level is 3")
737		-	else {
738		-	let newLevel = (curLevel + 1)
739		-	$Tuple2([IntegerEntry(infraKey, newLevel)], newLevel)
740		-	}
741		-	}
	804	+	func upgradeInfra (landAssetIdIgnored) = if ((size(i.payments) != 0))
	805	+	then throw("Infrastructure upgrade doesn't require any payments")
	806	+	else upInfraCommon(true, i.caller, 0)
	807	+
	808	+
	809	+
	810	+	@Callable(i)
	811	+	func upgradeInfraUsdn (landAssetIdIgnored) = if ((size(i.payments) != 1))
	812	+	then throw("Exactly one payment required")
	813	+	else {
	814	+	let pmt = value(i.payments[0])
	815	+	if ((pmt.assetId != usdnAssetId))
	816	+	then throw("Allowed USDN payment only!")
	817	+	else upInfraCommon(false, i.caller, pmt.amount)
	818	+	}
	819	+
	820	+
	821	+
	822	+	@Callable(i)
	823	+	func activateArtifact (artName) = if ((size(i.payments) != 0))
	824	+	then throw("Artifact activation doesn't require any payments")
	825	+	else {
	826	+	let result = match artName {
	827	+	case _ =>
	828	+	if (("PRESALE" == $match0))
	829	+	then activatePresaleArt(toString(i.caller))
	830	+	else throw("Unknown artifact")
	831	+	}
	832	+	result
	833	+	}
742	834
743	835

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

github/deemru/w8io/3ef1775 
85.05 ms ◑