2022.07.01 16:08 [3186224] smart account 3PPNhHYkkEy13gRWDCaruQyhNbX2GrjYSyV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GT6yTgG6QTzTUbFRpfvatmJMS4pMAYozr99GpBtqZnxW",
    "fee": 3000000,
    "feeAssetId": null,
    "timestamp": 1656680251896,
    "version": 1,
    "sender": "3PPNhHYkkEy13gRWDCaruQyhNbX2GrjYSyV",
    "senderPublicKey": "EAtbDa63mS5omrvW7Pfr7DKWEVLuReJtu72vfiBLRXsx",
    "proofs": [
        "2NcVLFx9BwQdR42whmLgxc3vDyxvqQJFWiij3yGz32i6SvCB3mMvVEfRzPjsxJccJVmyGjs7w2MXVbStBvWcDdxR"
    ],
    "script": "base64:BgI8CAISAwoBCBIDCgEIEgMKAQgSABIAEgQKAggBEgMKAQgSBAoCCAgSBAoCCAgSAwoBCBIECgIICBIDCgEIXgAGU0NBTEU4AAgABU1VTFQ4AIDC1y8AB1NDQUxFMTgAEgAGTVVMVDE4CQC2AgEAgICQu7rWrfANAANTRVACAl9fAA5QT09MV0VJR0hUTVVMVAUFTVVMVDgACnplcm9CaWdJbnQJALYCAQAAAAlvbmVCaWdJbnQJALYCAQABAAtrZXlNaWdyYXRvcgIIbWlncmF0b3IBCWFzQW55TGlzdAEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIJTGlzdFtBbnldBAp2YWxBbnlMeXN0BQckbWF0Y2gwBQp2YWxBbnlMeXN0CQACAQIbZmFpbCB0byBjYXN0IGludG8gTGlzdFtBbnldAQVhc0ludAEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIDSW50BAZ2YWxJbnQFByRtYXRjaDAFBnZhbEludAkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEIYXNTdHJpbmcBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACBlN0cmluZwQGdmFsU3RyBQckbWF0Y2gwBQZ2YWxTdHIJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBDGFzQnl0ZVZlY3RvcgEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQGdmFsQmluBQckbWF0Y2gwBQZ2YWxCaW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJAKwCAgkArAICAg9tYW5kYXRvcnkgdGhpcy4FA2tleQIPIGlzIG5vdCBkZWZpbmVkARhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQCsAgIJAKwCAgkArAICCQCsAgICCm1hbmRhdG9yeSAJAKUIAQUHYWRkcmVzcwIBLgUDa2V5Ag8gaXMgbm90IGRlZmluZWQBDGdldEludE9yWmVybwIHYWRkcmVzcwNrZXkJAQt2YWx1ZU9yRWxzZQIJAJoIAgUHYWRkcmVzcwUDa2V5AAABD2dldEludE9yRGVmYXVsdAMHYWRkcmVzcwNrZXkKZGVmYXVsdFZhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQdhZGRyZXNzBQNrZXkFCmRlZmF1bHRWYWwBDGdldEludE9yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQdhZGRyZXNzBQNrZXkJAKwCAgkArAICAg9tYW5kYXRvcnkgdGhpcy4FA2tleQIPIGlzIG5vdCBkZWZpbmVkARlnZXRCaWdJbnRGcm9tU3RyaW5nT3JaZXJvAgdhZGRyZXNzA2tleQkBBXZhbHVlAQkAqAMBCQELdmFsdWVPckVsc2UCCQCdCAIFB2FkZHJlc3MFA2tleQIBMAEcZ2V0QmlnSW50RnJvbVN0cmluZ09yRGVmYXVsdAMHYWRkcmVzcwNrZXkKZGVmYXVsdFZhbAQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQEFdmFsdWUBCQCoAwEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUKZGVmYXVsdFZhbAkAAgECC01hdGNoIGVycm9yAQV0b1gxOAIHb3JpZ1ZhbA1vcmlnU2NhbGVNdWx0CQC8AgMJALYCAQUHb3JpZ1ZhbAUGTVVMVDE4CQC2AgEFDW9yaWdTY2FsZU11bHQBB2Zyb21YMTgCA3ZhbA9yZXN1bHRTY2FsZU11bHQJAKADAQkAvAIDBQN2YWwJALYCAQUPcmVzdWx0U2NhbGVNdWx0BQZNVUxUMTgBEWtleUZhY3RvcnlBZGRyZXNzAAIcJXMlc19fY29uZmlnX19mYWN0b3J5QWRkcmVzcwEZa2V5Vm90aW5nRW1pc3Npb25Db250cmFjdAACGiVzX192b3RpbmdFbWlzc2lvbkNvbnRyYWN0ABhJZHhGYWN0b3J5Q2ZnU3Rha2luZ0RhcHAAAQAZSWR4RmFjdG9yeUNmZ0Jvb3N0aW5nRGFwcAACABRJZHhGYWN0b3J5Q2ZnSWRvRGFwcAADABVJZHhGYWN0b3J5Q2ZnVGVhbURhcHAABAAZSWR4RmFjdG9yeUNmZ0VtaXNzaW9uRGFwcAAFABVJZHhGYWN0b3J5Q2ZnUmVzdERhcHAABgAZSWR4RmFjdG9yeUNmZ1NsaXBwYWdlRGFwcAAHAQ1rZXlGYWN0b3J5Q2ZnAAIRJXNfX2ZhY3RvcnlDb25maWcBE2tleU1hbmFnZXJQdWJsaWNLZXkAAhQlc19fbWFuYWdlclB1YmxpY0tleQEaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBFmtleVN0YWJsZVBvb2xBZGRvbkFkZHIAAhclc19fc3RhYmxlUG9vbEFkZG9uQWRkcgEaa2V5RmFjdG9yeUxwMkFzc2V0c01hcHBpbmcBCmxwQXNzZXRTdHIJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgUKbHBBc3NldFN0cgkAzAgCAh5tYXBwaW5nc19fbHBBc3NldDJQb29sQ29udHJhY3QFA25pbAUDU0VQARBrZXlGYWN0b3J5THBMaXN0AAIQJXNfX2xwVG9rZW5zTGlzdAEma2V5RmFjdG9yeUxwQXNzZXRUb1Bvb2xDb250cmFjdEFkZHJlc3MBCmxwQXNzZXRTdHIJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgUKbHBBc3NldFN0cgkAzAgCAh5tYXBwaW5nc19fbHBBc3NldDJQb29sQ29udHJhY3QFA25pbAUDU0VQARRrZXlGYWN0b3J5UG9vbFdlaWdodAEPY29udHJhY3RBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgpwb29sV2VpZ2h0CQDMCAIFD2NvbnRyYWN0QWRkcmVzcwUDbmlsBQNTRVABCnJlYWRMcExpc3QBB2ZhY3RvcnkJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQdmYWN0b3J5CQEQa2V5RmFjdG9yeUxwTGlzdAACAAUDU0VQARRyZWFkRmFjdG9yeUNmZ09yRmFpbAEHZmFjdG9yeQkAtQkCCQEYZ2V0U3RyaW5nQnlBZGRyZXNzT3JGYWlsAgUHZmFjdG9yeQkBDWtleUZhY3RvcnlDZmcABQNTRVABGGdldEJvb3N0aW5nQWRkcmVzc09yRmFpbAEKZmFjdG9yeUNmZwkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpmYWN0b3J5Q2ZnBRlJZHhGYWN0b3J5Q2ZnQm9vc3RpbmdEYXBwARhnZXRFbWlzc2lvbkFkZHJlc3NPckZhaWwBCmZhY3RvcnlDZmcJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZmFjdG9yeUNmZwUZSWR4RmFjdG9yeUNmZ0VtaXNzaW9uRGFwcAEXZ2V0U3Rha2luZ0FkZHJlc3NPckZhaWwBCmZhY3RvcnlDZmcJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZmFjdG9yeUNmZwUYSWR4RmFjdG9yeUNmZ1N0YWtpbmdEYXBwAR5rZXlFbWlzc2lvblJhdGVQZXJCbG9ja0N1cnJlbnQAAhslcyVzX19yYXRlUGVyQmxvY2tfX2N1cnJlbnQBIWtleUVtaXNzaW9uUmF0ZVBlckJsb2NrTWF4Q3VycmVudAACHiVzJXNfX3JhdGVQZXJCbG9ja01heF9fY3VycmVudAEVa2V5RW1pc3Npb25TdGFydEJsb2NrAAIaJXMlc19fZW1pc3Npb25fX3N0YXJ0QmxvY2sBG2tleUVtaXNzaW9uRHVyYXRpb25JbkJsb2NrcwACGCVzJXNfX2VtaXNzaW9uX19kdXJhdGlvbgETa2V5RW1pc3Npb25FbmRCbG9jawACGCVzJXNfX2VtaXNzaW9uX19lbmRCbG9jawEPa2V5U3Rha2VkQnlVc2VyAg51c2VyQWRkcmVzc1N0cgxscEFzc2V0SWRTdHIJALkJAgkAzAgCAg4lcyVzJXNfX3N0YWtlZAkAzAgCBQ51c2VyQWRkcmVzc1N0cgkAzAgCBQxscEFzc2V0SWRTdHIFA25pbAUDU0VQAQ5rZXlTdGFrZWRUb3RhbAEMbHBBc3NldElkU3RyCQCsAgICFyVzJXMlc19fc3Rha2VkX190b3RhbF9fBQxscEFzc2V0SWRTdHIBEGtleUNsYWltZWRCeVVzZXICDGxwQXNzZXRJZFN0cg51c2VyQWRkcmVzc1N0cgkAuQkCCQDMCAICDyVzJXMlc19fY2xhaW1lZAkAzAgCBQ51c2VyQWRkcmVzc1N0cgkAzAgCBQxscEFzc2V0SWRTdHIFA25pbAUDU0VQARlrZXlDbGFpbWVkQnlVc2VyTWluUmV3YXJkAgxscEFzc2V0SWRTdHIOdXNlckFkZHJlc3NTdHIJALkJAgkAzAgCAhglcyVzJXNfX2NsYWltZWRNaW5SZXdhcmQJAMwIAgUOdXNlckFkZHJlc3NTdHIJAMwIAgUMbHBBc3NldElkU3RyBQNuaWwFA1NFUAEba2V5Q2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkAgxscEFzc2V0SWRTdHIOdXNlckFkZHJlc3NTdHIJALkJAgkAzAgCAholcyVzJXNfX2NsYWltZWRCb29zdFJld2FyZAkAzAgCBQ51c2VyQWRkcmVzc1N0cgkAzAgCBQxscEFzc2V0SWRTdHIFA25pbAUDU0VQAQ9rZXlDbGFpbWVkVG90YWwBDGxwQXNzZXRJZFN0cgkAuQkCCQDMCAICFiVzJXMlc19fY2xhaW1lZF9fdG90YWwJAMwIAgUMbHBBc3NldElkU3RyBQNuaWwFA1NFUAEKcmVhZFN0YWtlZAEDa2V5CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFA2tleQAAARVrZXlMYXN0VG90YWxMcEJhbGFuY2UBCWxwQXNzZXRJZAkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQlscEFzc2V0SWQJAMwIAgIFdG90YWwJAMwIAgIDYmFsBQNuaWwFA1NFUAEUa2V5TGFzdFVzZXJMcEJhbGFuY2UCCWxwQXNzZXRJZAt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQlscEFzc2V0SWQJAMwIAgULdXNlckFkZHJlc3MJAMwIAgIDYmFsBQNuaWwFA1NFUAEZa2V5VG90YWxMcEJhbGFuY2VJbnRlZ3JhbAEJbHBBc3NldElkCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAIFCWxwQXNzZXRJZAkAzAgCAgV0b3RhbAkAzAgCAgZiYWxJTlQFA25pbAUDU0VQARhrZXlVc2VyTHBCYWxhbmNlSW50ZWdyYWwCCWxwQXNzZXRJZAt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQlscEFzc2V0SWQJAMwIAgULdXNlckFkZHJlc3MJAMwIAgIGYmFsSU5UBQNuaWwFA1NFUAEma2V5VG90YWxMcEJhbGFuY2VJbnRlZ3JhbExhc3RVcGRIZWlnaHQBCWxwQXNzZXRJZAkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQlscEFzc2V0SWQJAMwIAgIFdG90YWwJAMwIAgIHbGFzdFVwZAUDbmlsBQNTRVABJWtleVVzZXJMcEJhbGFuY2VJbnRlZ3JhbExhc3RVcGRIZWlnaHQCCWxwQXNzZXRJZAt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQlscEFzc2V0SWQJAMwIAgULdXNlckFkZHJlc3MJAMwIAgIHbGFzdFVwZAUDbmlsBQNTRVABEmtleVd4UGVyTHBJbnRlZ3JhbAEJbHBBc3NldElkCQC5CQIJAMwIAgIIJXMlcyVzJXMJAMwIAgUJbHBBc3NldElkCQDMCAICBmNvbW1vbgkAzAgCAgVscEludAUDbmlsBQNTRVABH2tleVd4UGVyTHBJbnRlZ3JhbExhc3RVcGRIZWlnaHQBCWxwQXNzZXRJZAkAuQkCCQDMCAICCCVzJXMlcyVzCQDMCAIFCWxwQXNzZXRJZAkAzAgCAgZjb21tb24JAMwIAgIGbHBJbnRIBQNuaWwFA1NFUAEQa2V5V3hUb0NsYWltVXNlcgIJbHBBc3NldElkC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIIJXMlcyVzJXMJAMwIAgUJbHBBc3NldElkCQDMCAIFC3VzZXJBZGRyZXNzCQDMCAICBWxwSW50BQNuaWwFA1NFUAEja2V5V3hQZXJMcEludGVncmFsVXNlckxhc3RVcGRIZWlnaHQCCWxwQXNzZXRJZAt1c2VyQWRkcmVzcwkAuQkCCQDMCAICCCVzJXMlcyVzCQDMCAIFCWxwQXNzZXRJZAkAzAgCBQt1c2VyQWRkcmVzcwkAzAgCAgZscEludEgFA25pbAUDU0VQAQprZXlXeFBlckxwAQlscEFzc2V0SWQJALkJAgkAzAgCAgIlcwkAzAgCBQlscEFzc2V0SWQJAMwIAgIHd3hQZXJMcAUDbmlsBQNTRVABDWtleVd4UGVyTHBYMTgBCWxwQXNzZXRJZAkAuQkCCQDMCAICAiVzCQDMCAIFCWxwQXNzZXRJZAkAzAgCAgp3eFBlckxwWDE4BQNuaWwFA1NFUAEaa2V5V3hQZXJMcEludGVncmFsVXNlckxhc3QCCWxwQXNzZXRJZAt1c2VyQWRkcmVzcwkAuQkCCQDMCAICCCVzJXMlcyVzCQDMCAIFCWxwQXNzZXRJZAkAzAgCBQt1c2VyQWRkcmVzcwkAzAgCAgV1SW50TAUDbmlsBQNTRVABGWtleU9wZXJhdGlvbkhpc3RvcnlSZWNvcmQDBHR5cGULdXNlckFkZHJlc3MGdHhJZDU4CQC5CQIJAMwIAgIRJXMlcyVzJXNfX2hpc3RvcnkJAMwIAgUEdHlwZQkAzAgCBQt1c2VyQWRkcmVzcwkAzAgCBQZ0eElkNTgFA25pbAUDU0VQARNmb3JtYXRIaXN0b3J5UmVjb3JkBAt1c2VyQWRkcmVzcwlscEFzc2V0SWQEdHlwZQZhbW91bnQJALkJAgkAzAgCAgwlcyVzJXMlZCVkJWQJAMwIAgULdXNlckFkZHJlc3MJAMwIAgUJbHBBc3NldElkCQDMCAIFBHR5cGUJAMwIAgkApAMBBQZoZWlnaHQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEFBmFtb3VudAUDbmlsBQNTRVABFU9wZXJhdGlvbkhpc3RvcnlFbnRyeQUEdHlwZQt1c2VyQWRkcmVzcwlscEFzc2V0SWQGYW1vdW50BHR4SWQJAQtTdHJpbmdFbnRyeQIJARlrZXlPcGVyYXRpb25IaXN0b3J5UmVjb3JkAwUEdHlwZQULdXNlckFkZHJlc3MJANgEAQUEdHhJZAkBE2Zvcm1hdEhpc3RvcnlSZWNvcmQEBQt1c2VyQWRkcmVzcwUJbHBBc3NldElkBQR0eXBlBQZhbW91bnQADmZhY3RvcnlBZGRyZXNzCQEPZ2V0U3RyaW5nT3JGYWlsAgUEdGhpcwkBEWtleUZhY3RvcnlBZGRyZXNzAAAPZmFjdG9yeUNvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBBQ5mYWN0b3J5QWRkcmVzcwAKZmFjdG9yeUNmZwkBFHJlYWRGYWN0b3J5Q2ZnT3JGYWlsAQUPZmFjdG9yeUNvbnRyYWN0ABBlbWlzc2lvbkNvbnRyYWN0CQEYZ2V0RW1pc3Npb25BZGRyZXNzT3JGYWlsAQUKZmFjdG9yeUNmZwAQYm9vc3RpbmdDb250cmFjdAkBGGdldEJvb3N0aW5nQWRkcmVzc09yRmFpbAEFCmZhY3RvcnlDZmcBC2tleU5leHRVc2VyAQlscEFzc2V0SWQJALkJAgkAzAgCAgQlcyVzCQDMCAIFCWxwQXNzZXRJZAkAzAgCAghuZXh0VXNlcgUDbmlsBQNTRVABEGdldFVzZXJzTGlzdE5hbWUBCWxwQXNzZXRJZAkAuQkCCQDMCAICBXVzZXJzCQDMCAIFCWxwQXNzZXRJZAUDbmlsBQNTRVABC2tleUxpc3RIZWFkAQhsaXN0TmFtZQkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQhsaXN0TmFtZQkAzAgCAgRoZWFkBQNuaWwFA1NFUAELa2V5TGlzdFNpemUBCGxpc3ROYW1lCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAIFCGxpc3ROYW1lCQDMCAICBHNpemUFA25pbAUDU0VQAQtrZXlMaXN0UHJldgIIbGlzdE5hbWUCaWQJALkJAgkAzAgCAgglcyVzJXMlcwkAzAgCBQhsaXN0TmFtZQkAzAgCBQJpZAkAzAgCAgRwcmV2BQNuaWwFA1NFUAELa2V5TGlzdE5leHQCCGxpc3ROYW1lAmlkCQC5CQIJAMwIAgIIJXMlcyVzJXMJAMwIAgUIbGlzdE5hbWUJAMwIAgUCaWQJAMwIAgIEbmV4dAUDbmlsBQNTRVABDGNvbnRhaW5zTm9kZQIIbGlzdE5hbWUCaWQECmhlYWRPclVuaXQJAJ0IAgUEdGhpcwkBC2tleUxpc3RIZWFkAQUIbGlzdE5hbWUECnByZXZPclVuaXQJAJ0IAgUEdGhpcwkBC2tleUxpc3RQcmV2AgUIbGlzdE5hbWUFAmlkBApuZXh0T3JVbml0CQCdCAIFBHRoaXMJAQtrZXlMaXN0TmV4dAIFCGxpc3ROYW1lBQJpZAMDCQAAAgUCaWQJAQt2YWx1ZU9yRWxzZQIFCmhlYWRPclVuaXQCAAYJAQIhPQIFCnByZXZPclVuaXQFBHVuaXQGCQECIT0CBQpuZXh0T3JVbml0BQR1bml0ARFpbnNlcnROb2RlQWN0aW9ucwIIbGlzdE5hbWUCaWQECmhlYWRPclVuaXQJAJ0IAgUEdGhpcwkBC2tleUxpc3RIZWFkAQUIbGlzdE5hbWUECGxpc3RTaXplCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAQtrZXlMaXN0U2l6ZQEFCGxpc3ROYW1lAAAECWNoZWNrTm9kZQMJAQEhAQkBDGNvbnRhaW5zTm9kZQIFCGxpc3ROYW1lBQJpZAYJAAIBAgtOb2RlIGV4aXN0cwMJAAACBQljaGVja05vZGUFCWNoZWNrTm9kZQkAzggCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQtrZXlMaXN0U2l6ZQEFCGxpc3ROYW1lCQBkAgUIbGlzdFNpemUAAQUDbmlsAwkBAiE9AgUKaGVhZE9yVW5pdAUEdW5pdAkAzAgCCQELU3RyaW5nRW50cnkCCQELa2V5TGlzdE5leHQCBQhsaXN0TmFtZQUCaWQJAQV2YWx1ZQEFCmhlYWRPclVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBC2tleUxpc3RQcmV2AgUIbGlzdE5hbWUJAQV2YWx1ZQEFCmhlYWRPclVuaXQFAmlkBQNuaWwFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCCQELa2V5TGlzdEhlYWQBBQhsaXN0TmFtZQUCaWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgERZGVsZXRlTm9kZUFjdGlvbnMCCGxpc3ROYW1lAmlkBApoZWFkT3JVbml0CQCdCAIFBHRoaXMJAQtrZXlMaXN0SGVhZAEFCGxpc3ROYW1lBAhsaXN0U2l6ZQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQELa2V5TGlzdFNpemUBBQhsaXN0TmFtZQAABApwcmV2T3JVbml0CQCdCAIFBHRoaXMJAQtrZXlMaXN0UHJldgIFCGxpc3ROYW1lBQJpZAQKbmV4dE9yVW5pdAkAnQgCBQR0aGlzCQELa2V5TGlzdE5leHQCBQhsaXN0TmFtZQUCaWQJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC2tleUxpc3RTaXplAQUIbGlzdE5hbWUJAGUCBQhsaXN0U2l6ZQABBQNuaWwDAwkBAiE9AgUKcHJldk9yVW5pdAUEdW5pdAkBAiE9AgUKbmV4dE9yVW5pdAUEdW5pdAcJAMwIAgkBC1N0cmluZ0VudHJ5AgkBC2tleUxpc3ROZXh0AgUIbGlzdE5hbWUJAQV2YWx1ZQEFCnByZXZPclVuaXQJAQV2YWx1ZQEFCm5leHRPclVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBC2tleUxpc3RQcmV2AgUIbGlzdE5hbWUJAQV2YWx1ZQEFCm5leHRPclVuaXQJAQV2YWx1ZQEFCnByZXZPclVuaXQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBC2tleUxpc3RQcmV2AgUIbGlzdE5hbWUFAmlkCQDMCAIJAQtEZWxldGVFbnRyeQEJAQtrZXlMaXN0TmV4dAIFCGxpc3ROYW1lBQJpZAUDbmlsAwkBAiE9AgUKbmV4dE9yVW5pdAUEdW5pdAkAzAgCCQELU3RyaW5nRW50cnkCCQELa2V5TGlzdEhlYWQBBQhsaXN0TmFtZQkBBXZhbHVlAQUKbmV4dE9yVW5pdAkAzAgCCQELRGVsZXRlRW50cnkBCQELa2V5TGlzdE5leHQCBQhsaXN0TmFtZQUCaWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBC2tleUxpc3RQcmV2AgUIbGlzdE5hbWUJAQV2YWx1ZQEFCm5leHRPclVuaXQFA25pbAMJAQIhPQIFCnByZXZPclVuaXQFBHVuaXQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBC2tleUxpc3RQcmV2AgUIbGlzdE5hbWUFAmlkCQDMCAIJAQtEZWxldGVFbnRyeQEJAQtrZXlMaXN0TmV4dAIFCGxpc3ROYW1lCQEFdmFsdWUBBQpwcmV2T3JVbml0BQNuaWwDCQAAAgUCaWQJAQt2YWx1ZU9yRWxzZQIFCmhlYWRPclVuaXQCAAkAzAgCCQELRGVsZXRlRW50cnkBCQELa2V5TGlzdEhlYWQBBQhsaXN0TmFtZQUDbmlsCQACAQkArAICCQCsAgIJAKwCAgIOaW52YWxpZCBub2RlOiAFCGxpc3ROYW1lAgEuBQJpZAEbY2FsY1d4UGVyTHBJbnRlZ3JhbFVzZXJMYXN0BAxzdGFrZWRCeVVzZXImd3hQZXJMcEludGVncmFsVXNlckxhc3RVcGRIZWlnaHRPclplcm8Sd3hQZXJMcEludGVncmFsTmV3Gnd4UGVyTHBJbnRlZ3JhbFVzZXJMYXN0S0VZAwMJAAACBSZ3eFBlckxwSW50ZWdyYWxVc2VyTGFzdFVwZEhlaWdodE9yWmVybwUKemVyb0JpZ0ludAkAvwICBQxzdGFrZWRCeVVzZXIFCnplcm9CaWdJbnQHBQp6ZXJvQmlnSW50AwkAAAIFDHN0YWtlZEJ5VXNlcgUKemVyb0JpZ0ludAUSd3hQZXJMcEludGVncmFsTmV3AwMJAL8CAgUmd3hQZXJMcEludGVncmFsVXNlckxhc3RVcGRIZWlnaHRPclplcm8FCnplcm9CaWdJbnQJAL8CAgUMc3Rha2VkQnlVc2VyBQp6ZXJvQmlnSW50BwkBBXZhbHVlAQkAqAMBCQEPZ2V0U3RyaW5nT3JGYWlsAgUEdGhpcwUad3hQZXJMcEludGVncmFsVXNlckxhc3RLRVkJAAIBAi1jYWxjV3hQZXJMcEludGVncmFsVXNlckxhc3Q6IHVuZXhwZWN0ZWQgc3RhdGUBFHJlZnJlc2hQb29sSU5URUdSQUxTAwxscEFzc2V0SWRTdHIOcG9vbEFkZHJlc3NTdHINbHBEZWx0YUFtb3VudAQOc3Rha2VkVG90YWxLRVkJAQ5rZXlTdGFrZWRUb3RhbAEFDGxwQXNzZXRJZFN0cgQLc3Rha2VkVG90YWwJALYCAQkBCnJlYWRTdGFrZWQBBQ5zdGFrZWRUb3RhbEtFWQQSbm9uWmVyb1N0YWtlZFRvdGFsAwkAAAIFC3N0YWtlZFRvdGFsBQp6ZXJvQmlnSW50BQlvbmVCaWdJbnQFC3N0YWtlZFRvdGFsBApwb29sV2VpZ2h0CQERQGV4dHJOYXRpdmUoMTA1MCkCBQ9mYWN0b3J5Q29udHJhY3QJARRrZXlGYWN0b3J5UG9vbFdlaWdodAEFDnBvb2xBZGRyZXNzU3RyBBJlbWlzc2lvblN0YXJ0QmxvY2sJAQxnZXRJbnRPckZhaWwCBRBlbWlzc2lvbkNvbnRyYWN0CQEVa2V5RW1pc3Npb25TdGFydEJsb2NrAAQFTVVMVDMA6AcEFHd4RW1pc3Npb25QZXJCbG9ja1gzCQBoAgkBDGdldEludE9yRmFpbAIFEGVtaXNzaW9uQ29udHJhY3QJAR5rZXlFbWlzc2lvblJhdGVQZXJCbG9ja0N1cnJlbnQABQVNVUxUMwQYcG9vbFd4RW1pc3Npb25QZXJCbG9ja1gzCQBrAwUUd3hFbWlzc2lvblBlckJsb2NrWDMFCnBvb2xXZWlnaHQJAGgCBQ5QT09MV0VJR0hUTVVMVAADBBJ3eFBlckxwSW50ZWdyYWxLRVkJARJrZXlXeFBlckxwSW50ZWdyYWwBBQxscEFzc2V0SWRTdHIEH3d4UGVyTHBJbnRlZ3JhbExhc3RVcGRIZWlnaHRLRVkJAR9rZXlXeFBlckxwSW50ZWdyYWxMYXN0VXBkSGVpZ2h0AQUMbHBBc3NldElkU3RyBAp3eFBlckxwS0VZCQEKa2V5V3hQZXJMcAEFDGxwQXNzZXRJZFN0cgQcd3hQZXJMcEludGVncmFsTGFzdFVwZEhlaWdodAkBD2dldEludE9yRGVmYXVsdAMFBHRoaXMFH3d4UGVyTHBJbnRlZ3JhbExhc3RVcGRIZWlnaHRLRVkFEmVtaXNzaW9uU3RhcnRCbG9jawQPd3hQZXJMcEludGVncmFsCQEZZ2V0QmlnSW50RnJvbVN0cmluZ09yWmVybwIFBHRoaXMFEnd4UGVyTHBJbnRlZ3JhbEtFWQQPd3hQZXJMcE9yWmVyb1gzAAAEAmRoCQCWAwEJAMwIAgkAZQIFBmhlaWdodAUcd3hQZXJMcEludGVncmFsTGFzdFVwZEhlaWdodAkAzAgCAAAFA25pbAQJd3hQZXJMcFgzAwkBAiE9AgUPd3hQZXJMcE9yWmVyb1gzAAAJALYCAQUPd3hQZXJMcE9yWmVyb1gzCQC8AgMJALYCAQUYcG9vbFd4RW1pc3Npb25QZXJCbG9ja1gzCQC2AgEFBU1VTFQ4BRJub25aZXJvU3Rha2VkVG90YWwEDnN0YWtlZFRvdGFsTmV3CQC3AgIFC3N0YWtlZFRvdGFsCQC2AgEFDWxwRGVsdGFBbW91bnQEFW5vblplcm9TdGFrZWRUb3RhbE5ldwMJAAACBQ5zdGFrZWRUb3RhbE5ldwUKemVyb0JpZ0ludAUJb25lQmlnSW50BQ5zdGFrZWRUb3RhbE5ldwQSd3hQZXJMcEludGVncmFsTmV3CQC3AgIFD3d4UGVyTHBJbnRlZ3JhbAkAuQICBQl3eFBlckxwWDMJALYCAQUCZGgEDHd4UGVyTHBYM05ldwkAugICCQC2AgEFGHBvb2xXeEVtaXNzaW9uUGVyQmxvY2tYMwUVbm9uWmVyb1N0YWtlZFRvdGFsTmV3BB93eFBlckxwSW50ZWdyYWxMYXN0VXBkSGVpZ2h0TmV3BQZoZWlnaHQEBWRlYnVnCQC5CQIJAMwIAgkApgMBBRJ3eFBlckxwSW50ZWdyYWxOZXcJAMwIAgkApAMBBQJkaAkAzAgCCQCmAwEFCXd4UGVyTHBYMwkAzAgCCQCmAwEFC3N0YWtlZFRvdGFsCQDMCAIJAKQDAQUYcG9vbFd4RW1pc3Npb25QZXJCbG9ja1gzCQDMCAIJAKQDAQUUd3hFbWlzc2lvblBlckJsb2NrWDMJAMwIAgkApAMBBQpwb29sV2VpZ2h0BQNuaWwCAjo6CQCVCgMFEnd4UGVyTHBJbnRlZ3JhbE5ldwkAzAgCCQELU3RyaW5nRW50cnkCBRJ3eFBlckxwSW50ZWdyYWxLRVkJAKYDAQUSd3hQZXJMcEludGVncmFsTmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCBR93eFBlckxwSW50ZWdyYWxMYXN0VXBkSGVpZ2h0S0VZBR93eFBlckxwSW50ZWdyYWxMYXN0VXBkSGVpZ2h0TmV3CQDMCAIJAQtTdHJpbmdFbnRyeQIFCnd4UGVyTHBLRVkJAKYDAQUMd3hQZXJMcFgzTmV3BQNuaWwFBWRlYnVnARByZWZyZXNoSU5URUdSQUxTBAxscEFzc2V0SWRTdHIOdXNlckFkZHJlc3NTdHIOcG9vbEFkZHJlc3NTdHINbHBEZWx0YUFtb3VudAQNJHQwMTQyNDYxNDM2OAkBFHJlZnJlc2hQb29sSU5URUdSQUxTAwUMbHBBc3NldElkU3RyBQ5wb29sQWRkcmVzc1N0cgUNbHBEZWx0YUFtb3VudAQSd3hQZXJMcEludGVncmFsTmV3CAUNJHQwMTQyNDYxNDM2OAJfMQQRcG9vbEludGVncmFsU1RBVEUIBQ0kdDAxNDI0NjE0MzY4Al8yBAlwb29sREVCVUcIBQ0kdDAxNDI0NjE0MzY4Al8zBAVNVUxUMwDoBwQPc3Rha2VkQnlVc2VyS0VZCQEPa2V5U3Rha2VkQnlVc2VyAgUOdXNlckFkZHJlc3NTdHIFDGxwQXNzZXRJZFN0cgQMc3Rha2VkQnlVc2VyCQEKcmVhZFN0YWtlZAEFD3N0YWtlZEJ5VXNlcktFWQQQd3hUb0NsYWltVXNlcktFWQkBEGtleVd4VG9DbGFpbVVzZXICBQxscEFzc2V0SWRTdHIFDnVzZXJBZGRyZXNzU3RyBCN3eFBlckxwSW50ZWdyYWxVc2VyTGFzdFVwZEhlaWdodEtFWQkBI2tleVd4UGVyTHBJbnRlZ3JhbFVzZXJMYXN0VXBkSGVpZ2h0AgUMbHBBc3NldElkU3RyBQ51c2VyQWRkcmVzc1N0cgQad3hQZXJMcEludGVncmFsVXNlckxhc3RLRVkJARprZXlXeFBlckxwSW50ZWdyYWxVc2VyTGFzdAIFDGxwQXNzZXRJZFN0cgUOdXNlckFkZHJlc3NTdHIEDXd4VG9DbGFpbVVzZXIJARlnZXRCaWdJbnRGcm9tU3RyaW5nT3JaZXJvAgUEdGhpcwUQd3hUb0NsYWltVXNlcktFWQQmd3hQZXJMcEludGVncmFsVXNlckxhc3RVcGRIZWlnaHRPclplcm8JAQxnZXRJbnRPclplcm8CBQR0aGlzBSN3eFBlckxwSW50ZWdyYWxVc2VyTGFzdFVwZEhlaWdodEtFWQQXd3hQZXJMcEludGVncmFsVXNlckxhc3QJARtjYWxjV3hQZXJMcEludGVncmFsVXNlckxhc3QECQC2AgEFDHN0YWtlZEJ5VXNlcgkAtgIBBSZ3eFBlckxwSW50ZWdyYWxVc2VyTGFzdFVwZEhlaWdodE9yWmVybwUSd3hQZXJMcEludGVncmFsTmV3BRp3eFBlckxwSW50ZWdyYWxVc2VyTGFzdEtFWQQGTVVMVDExCQBoAgUFTVVMVDgFBU1VTFQzBBB3eFRvQ2xhaW1Vc2VyTmV3CQCYAwEJAMwIAgkAtwICBQ13eFRvQ2xhaW1Vc2VyCQC8AgMJALgCAgUSd3hQZXJMcEludGVncmFsTmV3BRd3eFBlckxwSW50ZWdyYWxVc2VyTGFzdAkAtgIBBQxzdGFrZWRCeVVzZXIJALYCAQUGTVVMVDExCQDMCAIFCnplcm9CaWdJbnQFA25pbAQad3hQZXJMcEludGVncmFsVXNlckxhc3ROZXcFEnd4UGVyTHBJbnRlZ3JhbE5ldwQjd3hQZXJMcEludGVncmFsVXNlckxhc3RVcGRIZWlnaHROZXcFBmhlaWdodAQFZGVidWcJALkJAgkAzAgCCQCmAwEFDXd4VG9DbGFpbVVzZXIJAMwIAgkApgMBBRd3eFBlckxwSW50ZWdyYWxVc2VyTGFzdAkAzAgCCQCkAwEFDHN0YWtlZEJ5VXNlcgkAzAgCBQlwb29sREVCVUcJAMwIAgkApAMBBQZoZWlnaHQFA25pbAICOjoJAJUKAwUQd3hUb0NsYWltVXNlck5ldwkAzggCBRFwb29sSW50ZWdyYWxTVEFURQkAzAgCCQELU3RyaW5nRW50cnkCBRB3eFRvQ2xhaW1Vc2VyS0VZCQCmAwEFEHd4VG9DbGFpbVVzZXJOZXcJAMwIAgkBDEludGVnZXJFbnRyeQIFI3d4UGVyTHBJbnRlZ3JhbFVzZXJMYXN0VXBkSGVpZ2h0S0VZBSN3eFBlckxwSW50ZWdyYWxVc2VyTGFzdFVwZEhlaWdodE5ldwkAzAgCCQELU3RyaW5nRW50cnkCBRp3eFBlckxwSW50ZWdyYWxVc2VyTGFzdEtFWQkApgMBBRp3eFBlckxwSW50ZWdyYWxVc2VyTGFzdE5ldwUDbmlsBQVkZWJ1ZwEWbWFuYWdlclB1YmxpY0tleU9yVW5pdAAEByRtYXRjaDAJAKIIAQkBE2tleU1hbmFnZXJQdWJsaWNLZXkAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkA2QQBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgEdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQABAckbWF0Y2gwCQCiCAEJARprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleQADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQDZBAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yABVwZXJtaXNzaW9uRGVuaWVkRXJyb3IJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAEIbXVzdFRoaXMBAWkDCQAAAggFAWkGY2FsbGVyBQR0aGlzBgUVcGVybWlzc2lvbkRlbmllZEVycm9yAQttdXN0TWFuYWdlcgEBaQQHJG1hdGNoMAkBFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQAAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAnBrBQckbWF0Y2gwAwkAAAIIBQFpD2NhbGxlclB1YmxpY0tleQUCcGsGBRVwZXJtaXNzaW9uRGVuaWVkRXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAMJAAACCAUBaQZjYWxsZXIFBHRoaXMGBRVwZXJtaXNzaW9uRGVuaWVkRXJyb3IJAAIBAgtNYXRjaCBlcnJvcgwBaQELY29uc3RydWN0b3IBEWZhY3RvcnlBZGRyZXNzU3RyBAtjaGVja0NhbGxlcgkBC211c3RNYW5hZ2VyAQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEWtleUZhY3RvcnlBZGRyZXNzAAURZmFjdG9yeUFkZHJlc3NTdHIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ1jb25zdHJ1Y3RvclYyARZ2b3RpbmdFbWlzc2lvbkNvbnRyYWN0BAVjaGVrcwkAzAgCCQELbXVzdE1hbmFnZXIBBQFpCQDMCAIDCQECIT0CCQCmCAEFFnZvdGluZ0VtaXNzaW9uQ29udHJhY3QFBHVuaXQGAihpbnZhbGlkIHZvdGluZyBlbWlzc2lvbiBjb250cmFjdCBhZGRyZXNzBQNuaWwDCQAAAgUFY2hla3MFBWNoZWtzCQDMCAIJAQtTdHJpbmdFbnRyeQIJARlrZXlWb3RpbmdFbWlzc2lvbkNvbnRyYWN0AAUWdm90aW5nRW1pc3Npb25Db250cmFjdAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnNldE1hbmFnZXIBF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BAtjaGVja0NhbGxlcgkBC211c3RNYW5hZ2VyAQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEFWNoZWNrTWFuYWdlclB1YmxpY0tleQkA2QQBBRdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQMJAAACBRVjaGVja01hbmFnZXJQdWJsaWNLZXkFFWNoZWNrTWFuYWdlclB1YmxpY0tleQkAzAgCCQELU3RyaW5nRW50cnkCCQEaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkABRdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDmNvbmZpcm1NYW5hZ2VyAAQCcG0JAR1wZW5kaW5nTWFuYWdlclB1YmxpY0tleU9yVW5pdAAEBWhhc1BNAwkBCWlzRGVmaW5lZAEFAnBtBgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQVoYXNQTQUFaGFzUE0EB2NoZWNrUE0DCQAAAggFAWkPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQJwbQYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUHY2hlY2tQTQUHY2hlY2tQTQkAzAgCCQELU3RyaW5nRW50cnkCCQETa2V5TWFuYWdlclB1YmxpY0tleQAJANgEAQkBBXZhbHVlAQUCcG0JAMwIAgkBC0RlbGV0ZUVudHJ5AQkBGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBXN0YWtlAAQJbWlncmF0aW9uAwkBAiE9AgkAnAgCBQR0aGlzBQtrZXlNaWdyYXRvcgUEdW5pdAkAAgECC21haW50ZW5hbmNlBQR1bml0AwkAAAIFCW1pZ3JhdGlvbgUJbWlncmF0aW9uAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQI0aW52YWxpZCBwYXltZW50IC0gZXhhY3Qgb25lIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAECWxwQXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAxscEFzc2V0SWRTdHIJANgEAQUJbHBBc3NldElkBAZhbW91bnQIBQNwbXQGYW1vdW50BA5wb29sQWRkcmVzc1N0cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD2ZhY3RvcnlDb250cmFjdAkBGmtleUZhY3RvcnlMcDJBc3NldHNNYXBwaW5nAQUMbHBBc3NldElkU3RyCQCsAgICFXVuc3VwcG9ydGVkIGxwIGFzc2V0IAUMbHBBc3NldElkU3RyBAljYWxsZXJTdHIJAKUIAQgFAWkGY2FsbGVyBA51c2VyQWRkcmVzc1N0cgMJAAACBQljYWxsZXJTdHIFDnBvb2xBZGRyZXNzU3RyCQClCAEIBQFpDG9yaWdpbkNhbGxlcgUJY2FsbGVyU3RyBA9zdGFrZWRCeVVzZXJLRVkJAQ9rZXlTdGFrZWRCeVVzZXICBQ51c2VyQWRkcmVzc1N0cgUMbHBBc3NldElkU3RyBA5zdGFrZWRUb3RhbEtFWQkBDmtleVN0YWtlZFRvdGFsAQUMbHBBc3NldElkU3RyBAxzdGFrZWRCeVVzZXIJAQpyZWFkU3Rha2VkAQUPc3Rha2VkQnlVc2VyS0VZBAtzdGFrZWRUb3RhbAkBCnJlYWRTdGFrZWQBBQ5zdGFrZWRUb3RhbEtFWQQNJHQwMTg5MzYxOTA1MwkBEHJlZnJlc2hJTlRFR1JBTFMEBQxscEFzc2V0SWRTdHIFDnVzZXJBZGRyZXNzU3RyBQ5wb29sQWRkcmVzc1N0cgUGYW1vdW50BBB3eFRvQ2xhaW1Vc2VyTmV3CAUNJHQwMTg5MzYxOTA1MwJfMQQNaW50ZWdyYWxTVEFURQgFDSR0MDE4OTM2MTkwNTMCXzIEBWRlYnVnCAUNJHQwMTg5MzYxOTA1MwJfMwQIbGlzdE5hbWUJARBnZXRVc2Vyc0xpc3ROYW1lAQUMbHBBc3NldElkU3RyBAtsaXN0QWN0aW9ucwMJAQxjb250YWluc05vZGUCBQhsaXN0TmFtZQUOdXNlckFkZHJlc3NTdHIFA25pbAkBEWluc2VydE5vZGVBY3Rpb25zAgUIbGlzdE5hbWUFDnVzZXJBZGRyZXNzU3RyCQDOCAIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUPc3Rha2VkQnlVc2VyS0VZCQBkAgUMc3Rha2VkQnlVc2VyBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFDnN0YWtlZFRvdGFsS0VZCQBkAgULc3Rha2VkVG90YWwFBmFtb3VudAkAzAgCCQEVT3BlcmF0aW9uSGlzdG9yeUVudHJ5BQIFc3Rha2UFDnVzZXJBZGRyZXNzU3RyBQxscEFzc2V0SWRTdHIFBmFtb3VudAgFAWkNdHJhbnNhY3Rpb25JZAUDbmlsBQ1pbnRlZ3JhbFNUQVRFBQtsaXN0QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQd1bnN0YWtlAgxscEFzc2V0SWRTdHIGYW1vdW50BAltaWdyYXRpb24DCQECIT0CCQCcCAIFBHRoaXMFC2tleU1pZ3JhdG9yBQR1bml0CQACAQILbWFpbnRlbmFuY2UFBHVuaXQDCQAAAgUJbWlncmF0aW9uBQltaWdyYXRpb24ECWxwQXNzZXRJZAkA2QQBBQxscEFzc2V0SWRTdHIEDnBvb2xBZGRyZXNzU3RyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPZmFjdG9yeUNvbnRyYWN0CQEaa2V5RmFjdG9yeUxwMkFzc2V0c01hcHBpbmcBBQxscEFzc2V0SWRTdHIJAKwCAgIVdW5zdXBwb3J0ZWQgbHAgYXNzZXQgBQxscEFzc2V0SWRTdHIECXBvb2xBZGRvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEWa2V5U3RhYmxlUG9vbEFkZG9uQWRkcgAFDnBvb2xBZGRyZXNzU3RyBAljYWxsZXJTdHIJAKUIAQgFAWkGY2FsbGVyBA51c2VyQWRkcmVzc1N0cgMDCQAAAgUJY2FsbGVyU3RyBQ5wb29sQWRkcmVzc1N0cgYJAAACBQljYWxsZXJTdHIFCXBvb2xBZGRvbgkApQgBCAUBaQxvcmlnaW5DYWxsZXIFCWNhbGxlclN0cgQPc3Rha2VkQnlVc2VyS0VZCQEPa2V5U3Rha2VkQnlVc2VyAgUOdXNlckFkZHJlc3NTdHIFDGxwQXNzZXRJZFN0cgQOc3Rha2VkVG90YWxLRVkJAQ5rZXlTdGFrZWRUb3RhbAEFDGxwQXNzZXRJZFN0cgQMc3Rha2VkQnlVc2VyCQEKcmVhZFN0YWtlZAEFD3N0YWtlZEJ5VXNlcktFWQQLc3Rha2VkVG90YWwJAQpyZWFkU3Rha2VkAQUOc3Rha2VkVG90YWxLRVkEDWludGVncmFsU1RBVEUICQEQcmVmcmVzaElOVEVHUkFMUwQFDGxwQXNzZXRJZFN0cgUOdXNlckFkZHJlc3NTdHIFDnBvb2xBZGRyZXNzU3RyCQEBLQEFBmFtb3VudAJfMgQIbGlzdE5hbWUJARBnZXRVc2Vyc0xpc3ROYW1lAQUMbHBBc3NldElkU3RyBAtsaXN0QWN0aW9ucwMDCQEMY29udGFpbnNOb2RlAgUIbGlzdE5hbWUFDnVzZXJBZGRyZXNzU3RyCQAAAgUGYW1vdW50BQxzdGFrZWRCeVVzZXIHCQERZGVsZXRlTm9kZUFjdGlvbnMCBQhsaXN0TmFtZQUOdXNlckFkZHJlc3NTdHIFA25pbAQNY2xhaW1lZEJ5VXNlcgkBGWdldEJpZ0ludEZyb21TdHJpbmdPclplcm8CBQR0aGlzCQEQa2V5Q2xhaW1lZEJ5VXNlcgIFDGxwQXNzZXRJZFN0cgUOdXNlckFkZHJlc3NTdHIEC3Bvb2xBZGRyZXNzCQEYZ2V0U3RyaW5nQnlBZGRyZXNzT3JGYWlsAgUPZmFjdG9yeUNvbnRyYWN0CQEma2V5RmFjdG9yeUxwQXNzZXRUb1Bvb2xDb250cmFjdEFkZHJlc3MBBQxscEFzc2V0SWRTdHIEEHd4VG9DbGFpbVVzZXJOZXcICQEQcmVmcmVzaElOVEVHUkFMUwQFDGxwQXNzZXRJZFN0cgUOdXNlckFkZHJlc3NTdHIFC3Bvb2xBZGRyZXNzAAACXzEEEGF2YWlsYWJsZVRvQ2xhaW0JALgCAgUQd3hUb0NsYWltVXNlck5ldwUNY2xhaW1lZEJ5VXNlcgQBcgMJAL8CAgUQYXZhaWxhYmxlVG9DbGFpbQUKemVyb0JpZ0ludAkA/AcEBQR0aGlzAg9jbGFpbVd4SU5URVJOQUwJAMwIAgUMbHBBc3NldElkU3RyCQDMCAIFDnVzZXJBZGRyZXNzU3RyBQNuaWwFA25pbAUEdW5pdAMJAAACBQFyBQFyAwkAZgIFBmFtb3VudAUMc3Rha2VkQnlVc2VyCQACAQIkcGFzc2VkIGFtb3VudCBpcyBsZXNzIHRoZW4gYXZhaWxhYmxlCQDOCAIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUPc3Rha2VkQnlVc2VyS0VZCQBlAgUMc3Rha2VkQnlVc2VyBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFDnN0YWtlZFRvdGFsS0VZCQBlAgULc3Rha2VkVG90YWwFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmFtb3VudAUJbHBBc3NldElkCQDMCAIJARVPcGVyYXRpb25IaXN0b3J5RW50cnkFAgd1bnN0YWtlBQ51c2VyQWRkcmVzc1N0cgUMbHBBc3NldElkU3RyBQZhbW91bnQIBQFpDXRyYW5zYWN0aW9uSWQFA25pbAUNaW50ZWdyYWxTVEFURQULbGlzdEFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHY2xhaW1XeAEMbHBBc3NldElkU3RyBA51c2VyQWRkcmVzc1N0cgkApQgBCAUBaQZjYWxsZXIEBnJlc3VsdAkA/AcEBQR0aGlzAg9jbGFpbVd4SU5URVJOQUwJAMwIAgUMbHBBc3NldElkU3RyCQDMCAIFDnVzZXJBZGRyZXNzU3RyBQNuaWwFA25pbAkAlAoCBQNuaWwFBnJlc3VsdAFpAQ9jbGFpbVd4SU5URVJOQUwCDGxwQXNzZXRJZFN0cg51c2VyQWRkcmVzc1N0cgQLY2hlY2tDYWxsZXIJAQhtdXN0VGhpcwEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEFDnVzZXJBZGRyZXNzU3RyAiVjbGFpbVd4SU5URVJOQUw6IGludmFsaWQgdXNlciBhZGRyZXNzBA5wb29sQWRkcmVzc1N0cgkBGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbAIFD2ZhY3RvcnlDb250cmFjdAkBJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAQUMbHBBc3NldElkU3RyBBBjbGFpbWVkQnlVc2VyS0VZCQEQa2V5Q2xhaW1lZEJ5VXNlcgIFDGxwQXNzZXRJZFN0cgUOdXNlckFkZHJlc3NTdHIED2NsYWltZWRUb3RhbEtFWQkBD2tleUNsYWltZWRUb3RhbAEFDGxwQXNzZXRJZFN0cgQZY2xhaW1lZEJ5VXNlck1pblJld2FyZEtFWQkBGWtleUNsYWltZWRCeVVzZXJNaW5SZXdhcmQCBQxscEFzc2V0SWRTdHIFDnVzZXJBZGRyZXNzU3RyBBtjbGFpbWVkQnlVc2VyQm9vc3RSZXdhcmRLRVkJARtrZXlDbGFpbWVkQnlVc2VyQm9vc3RSZXdhcmQCBQxscEFzc2V0SWRTdHIFDnVzZXJBZGRyZXNzU3RyBA1jbGFpbWVkQnlVc2VyCQEZZ2V0QmlnSW50RnJvbVN0cmluZ09yWmVybwIFBHRoaXMFEGNsYWltZWRCeVVzZXJLRVkEFmNsYWltZWRCeVVzZXJNaW5SZXdhcmQJARlnZXRCaWdJbnRGcm9tU3RyaW5nT3JaZXJvAgUEdGhpcwUZY2xhaW1lZEJ5VXNlck1pblJld2FyZEtFWQQYY2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkCQEZZ2V0QmlnSW50RnJvbVN0cmluZ09yWmVybwIFBHRoaXMFG2NsYWltZWRCeVVzZXJCb29zdFJld2FyZEtFWQQMY2xhaW1lZFRvdGFsCQEZZ2V0QmlnSW50RnJvbVN0cmluZ09yWmVybwIFBHRoaXMFD2NsYWltZWRUb3RhbEtFWQQNJHQwMjI4ODQyMjk5NgkBEHJlZnJlc2hJTlRFR1JBTFMEBQxscEFzc2V0SWRTdHIFDnVzZXJBZGRyZXNzU3RyBQ5wb29sQWRkcmVzc1N0cgAABBB3eFRvQ2xhaW1Vc2VyTmV3CAUNJHQwMjI4ODQyMjk5NgJfMQQNaW50ZWdyYWxTVEFURQgFDSR0MDIyODg0MjI5OTYCXzIEBWRlYnVnCAUNJHQwMjI4ODQyMjk5NgJfMwQQYXZhaWxhYmxlVG9DbGFpbQkAmAMBCQDMCAIJALgCAgUQd3hUb0NsYWltVXNlck5ldwUNY2xhaW1lZEJ5VXNlcgkAzAgCBQp6ZXJvQmlnSW50BQNuaWwDCQDAAgIFCnplcm9CaWdJbnQFEGF2YWlsYWJsZVRvQ2xhaW0JAAIBAhBub3RoaW5nIHRvIGNsYWltBBJ3eEFtb3VudEJvb3N0VG90YWwJAJYDAQkAzAgCCQEFYXNJbnQBCQCRAwIJAQlhc0FueUxpc3QBCQD8BwQFEGJvb3N0aW5nQ29udHJhY3QCDGNsYWltV3hCb29zdAkAzAgCBQxscEFzc2V0SWRTdHIJAMwIAgUOdXNlckFkZHJlc3NTdHIFA25pbAUDbmlsAAAJAMwIAgAABQNuaWwEDW1pblJld2FyZFBhcnQFEGF2YWlsYWJsZVRvQ2xhaW0ED2Jvb3N0UmV3YXJkUGFydAkAmQMBCQDMCAIJALkCAgUNbWluUmV3YXJkUGFydAkAtgIBAAIJAMwIAgkAtgIBBRJ3eEFtb3VudEJvb3N0VG90YWwFA25pbAQJd3hBc3NldElkCQEMYXNCeXRlVmVjdG9yAQkAkQMCCQEJYXNBbnlMaXN0AQkA/AcEBRBlbWlzc2lvbkNvbnRyYWN0AgRlbWl0CQDMCAIJAKADAQUNbWluUmV3YXJkUGFydAUDbmlsBQNuaWwAAAQJZW1pdEJvb3N0CQEJYXNBbnlMaXN0AQkA/AcEBRBlbWlzc2lvbkNvbnRyYWN0AgRlbWl0CQDMCAIJAKADAQUPYm9vc3RSZXdhcmRQYXJ0BQNuaWwFA25pbAMJAAACBQllbWl0Qm9vc3QFCWVtaXRCb29zdAQSY2xhaW1lZEJ5VXNlclZhbHVlCQC3AgIFDWNsYWltZWRCeVVzZXIFEGF2YWlsYWJsZVRvQ2xhaW0EHmNsYWltZWRCeVVzZXJNaW5SZXdhcmRQbHVzUGFydAkAtwICBRZjbGFpbWVkQnlVc2VyTWluUmV3YXJkBQ1taW5SZXdhcmRQYXJ0BCtjbGFpbWVkQnlVc2VyQm9vc3RSZXdhcmRQbHVzQm9vc3RSZXdhcmRQYXJ0CQC3AgIFFmNsYWltZWRCeVVzZXJNaW5SZXdhcmQFDW1pblJld2FyZFBhcnQEIGNsYWltZWRUb3RhbFBsdXNBdmFpbGFibGVUb0NsYWltCQC3AgIFFmNsYWltZWRCeVVzZXJNaW5SZXdhcmQFDW1pblJld2FyZFBhcnQJAMwIAgkBC1N0cmluZ0VudHJ5AgUQY2xhaW1lZEJ5VXNlcktFWQkApgMBBRJjbGFpbWVkQnlVc2VyVmFsdWUJAMwIAgkBC1N0cmluZ0VudHJ5AgUZY2xhaW1lZEJ5VXNlck1pblJld2FyZEtFWQkApgMBBR5jbGFpbWVkQnlVc2VyTWluUmV3YXJkUGx1c1BhcnQJAMwIAgkBC1N0cmluZ0VudHJ5AgUbY2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkS0VZCQCmAwEFK2NsYWltZWRCeVVzZXJCb29zdFJld2FyZFBsdXNCb29zdFJld2FyZFBhcnQJAMwIAgkBC1N0cmluZ0VudHJ5AgUPY2xhaW1lZFRvdGFsS0VZCQCmAwEFIGNsYWltZWRUb3RhbFBsdXNBdmFpbGFibGVUb0NsYWltCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzCQCgAwEFDW1pblJld2FyZFBhcnQFCXd4QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQt1c2VyQWRkcmVzcwkAoAMBBQ9ib29zdFJld2FyZFBhcnQFCXd4QXNzZXRJZAkAzAgCCQEVT3BlcmF0aW9uSGlzdG9yeUVudHJ5BQIFY2xhaW0FDnVzZXJBZGRyZXNzU3RyBQxscEFzc2V0SWRTdHIJAKADAQUQYXZhaWxhYmxlVG9DbGFpbQgFAWkNdHJhbnNhY3Rpb25JZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBD2NsYWltV3hSRUFET05MWQIMbHBBc3NldElkU3RyDnVzZXJBZGRyZXNzU3RyBA9zdGFrZWRCeVVzZXJLRVkJAQ9rZXlTdGFrZWRCeVVzZXICBQ51c2VyQWRkcmVzc1N0cgUMbHBBc3NldElkU3RyBA5zdGFrZWRUb3RhbEtFWQkBDmtleVN0YWtlZFRvdGFsAQUMbHBBc3NldElkU3RyBBBjbGFpbWVkQnlVc2VyS0VZCQEQa2V5Q2xhaW1lZEJ5VXNlcgIFDGxwQXNzZXRJZFN0cgUOdXNlckFkZHJlc3NTdHIEDHN0YWtlZEJ5VXNlcgkBCnJlYWRTdGFrZWQBBQ9zdGFrZWRCeVVzZXJLRVkEC3N0YWtlZFRvdGFsCQEKcmVhZFN0YWtlZAEFDnN0YWtlZFRvdGFsS0VZBA1jbGFpbWVkQnlVc2VyCQEZZ2V0QmlnSW50RnJvbVN0cmluZ09yWmVybwIFBHRoaXMFEGNsYWltZWRCeVVzZXJLRVkEDnBvb2xBZGRyZXNzU3RyCQEYZ2V0U3RyaW5nQnlBZGRyZXNzT3JGYWlsAgUPZmFjdG9yeUNvbnRyYWN0CQEma2V5RmFjdG9yeUxwQXNzZXRUb1Bvb2xDb250cmFjdEFkZHJlc3MBBQxscEFzc2V0SWRTdHIECnBvb2xXZWlnaHQJARFAZXh0ck5hdGl2ZSgxMDUwKQIFD2ZhY3RvcnlDb250cmFjdAkBFGtleUZhY3RvcnlQb29sV2VpZ2h0AQUOcG9vbEFkZHJlc3NTdHIEEnd4RW1pc3Npb25QZXJCbG9jawkBDGdldEludE9yRmFpbAIFEGVtaXNzaW9uQ29udHJhY3QJAR5rZXlFbWlzc2lvblJhdGVQZXJCbG9ja0N1cnJlbnQABBJlbWlzc2lvblN0YXJ0QmxvY2sJAQxnZXRJbnRPckZhaWwCBRBlbWlzc2lvbkNvbnRyYWN0CQEVa2V5RW1pc3Npb25TdGFydEJsb2NrAAQMcGFzc2VkQmxvY2tzAwkAZgIFEmVtaXNzaW9uU3RhcnRCbG9jawUGaGVpZ2h0AAAJAGUCBQZoZWlnaHQFEmVtaXNzaW9uU3RhcnRCbG9jawQOcG9vbFd4RW1pc3Npb24JAGsDCQBoAgUSd3hFbWlzc2lvblBlckJsb2NrBQxwYXNzZWRCbG9ja3MFCnBvb2xXZWlnaHQFDlBPT0xXRUlHSFRNVUxUBAx1c2VyV3hSZXdhcmQJAGsDBQ5wb29sV3hFbWlzc2lvbgUMc3Rha2VkQnlVc2VyBQtzdGFrZWRUb3RhbAQNJHQwMjU2MzgyNTc1MAkBEHJlZnJlc2hJTlRFR1JBTFMEBQxscEFzc2V0SWRTdHIFDnVzZXJBZGRyZXNzU3RyBQ5wb29sQWRkcmVzc1N0cgAABBB3eFRvQ2xhaW1Vc2VyTmV3CAUNJHQwMjU2MzgyNTc1MAJfMQQNaW50ZWdyYWxTVEFURQgFDSR0MDI1NjM4MjU3NTACXzIEBWRlYnVnCAUNJHQwMjU2MzgyNTc1MAJfMwQQYXZhaWxhYmxlVG9DbGFpbQkAmAMBCQDMCAIJALgCAgUQd3hUb0NsYWltVXNlck5ldwUNY2xhaW1lZEJ5VXNlcgkAzAgCBQp6ZXJvQmlnSW50BQNuaWwEDmJvb3N0SW52UmVzdWx0CQEJYXNBbnlMaXN0AQkA/AcEBRBib29zdGluZ0NvbnRyYWN0AhRjbGFpbVd4Qm9vc3RSRUFET05MWQkAzAgCBQxscEFzc2V0SWRTdHIJAMwIAgUOdXNlckFkZHJlc3NTdHIFA25pbAUDbmlsBBJ3eEFtb3VudEJvb3N0VG90YWwJAJYDAQkAzAgCCQEFYXNJbnQBCQCRAwIFDmJvb3N0SW52UmVzdWx0AAAJAMwIAgAABQNuaWwECmJvb3N0RGVidWcJAQhhc1N0cmluZwEJAJEDAgUOYm9vc3RJbnZSZXN1bHQAAQQNbWluUmV3YXJkUGFydAUQYXZhaWxhYmxlVG9DbGFpbQQPYm9vc3RSZXdhcmRQYXJ0CQCZAwEJAMwIAgkAuQICBQ1taW5SZXdhcmRQYXJ0CQC2AgEAAgkAzAgCCQC2AgEFEnd4QW1vdW50Qm9vc3RUb3RhbAUDbmlsBAt0b3RhbFJld2FyZAkAtwICBQ1taW5SZXdhcmRQYXJ0BQ9ib29zdFJld2FyZFBhcnQJAJQKAgUDbmlsCQC5CQIJAMwIAgIOJXMlcyVkJWQlZCVkJXMJAMwIAgUMbHBBc3NldElkU3RyCQDMCAIFDnVzZXJBZGRyZXNzU3RyCQDMCAIJAKYDAQULdG90YWxSZXdhcmQJAMwIAgkApgMBBQ1jbGFpbWVkQnlVc2VyCQDMCAIJAKYDAQUNbWluUmV3YXJkUGFydAkAzAgCCQCmAwEFD2Jvb3N0UmV3YXJkUGFydAkAzAgCCQCsAgIJAKwCAgkArAICCQCsAgIFBWRlYnVnAgI6OgkApAMBBQx1c2VyV3hSZXdhcmQCCTo6Qk9PU1Q6OgUKYm9vc3REZWJ1ZwUDbmlsBQNTRVABaQESdXNlcnNMaXN0VHJhdmVyc2FsAQlscEFzc2V0SWQEC2NoZWNrQ2FsbGVyAwkAAAIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEZa2V5Vm90aW5nRW1pc3Npb25Db250cmFjdAACAAYJAQttdXN0TWFuYWdlcgEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAhsaXN0TmFtZQkBEGdldFVzZXJzTGlzdE5hbWUBBQlscEFzc2V0SWQECnVzZXJPclVuaXQJAKIIAQkBC2tleU5leHRVc2VyAQUJbHBBc3NldElkBApoZWFkT3JVbml0CQCiCAEJAQtrZXlMaXN0SGVhZAEFCGxpc3ROYW1lBAckbWF0Y2gwBQp1c2VyT3JVbml0AwkAAQIFByRtYXRjaDACBFVuaXQEByRtYXRjaDEFCmhlYWRPclVuaXQDCQABAgUHJG1hdGNoMQIEVW5pdAkAlAoCBQNuaWwHAwkAAQIFByRtYXRjaDECBlN0cmluZwQEaGVhZAUHJG1hdGNoMQkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQtrZXlOZXh0VXNlcgEFCWxwQXNzZXRJZAUEaGVhZAUDbmlsBgkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBlN0cmluZwQLdXNlckFkZHJlc3MFByRtYXRjaDAEDWNsYWltZWRCeVVzZXIJARlnZXRCaWdJbnRGcm9tU3RyaW5nT3JaZXJvAgUEdGhpcwkBEGtleUNsYWltZWRCeVVzZXICBQlscEFzc2V0SWQFC3VzZXJBZGRyZXNzBAtwb29sQWRkcmVzcwkBGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbAIFD2ZhY3RvcnlDb250cmFjdAkBJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAQUJbHBBc3NldElkBBB3eFRvQ2xhaW1Vc2VyTmV3CAkBEHJlZnJlc2hJTlRFR1JBTFMEBQlscEFzc2V0SWQFC3VzZXJBZGRyZXNzBQtwb29sQWRkcmVzcwAAAl8xBBBhdmFpbGFibGVUb0NsYWltCQC4AgIFEHd4VG9DbGFpbVVzZXJOZXcFDWNsYWltZWRCeVVzZXIEAXIDCQC/AgIFEGF2YWlsYWJsZVRvQ2xhaW0FCnplcm9CaWdJbnQJAPwHBAUEdGhpcwIPY2xhaW1XeElOVEVSTkFMCQDMCAIFCWxwQXNzZXRJZAkAzAgCBQt1c2VyQWRkcmVzcwUDbmlsBQNuaWwFBHVuaXQDCQAAAgUBcgUBcgQObmV4dFVzZXJPclVuaXQJAKIIAQkBC2tleUxpc3ROZXh0AgUIbGlzdE5hbWUFC3VzZXJBZGRyZXNzBAckbWF0Y2gxBQ5uZXh0VXNlck9yVW5pdAMJAAECBQckbWF0Y2gxAgRVbml0CQCUCgIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBC2tleU5leHRVc2VyAQUJbHBBc3NldElkBQNuaWwHAwkAAQIFByRtYXRjaDECBlN0cmluZwQIbmV4dFVzZXIFByRtYXRjaDEJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQELa2V5TmV4dFVzZXIBBQlscEFzc2V0SWQFCG5leHRVc2VyBQNuaWwGCQACAQILTWF0Y2ggZXJyb3IJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAgtNYXRjaCBlcnJvcgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ5vbk1vZGlmeVdlaWdodAIMbHBBc3NldElkU3RyDnBvb2xBZGRyZXNzU3RyAwkBAiE9AggFAWkGY2FsbGVyBQ9mYWN0b3J5Q29udHJhY3QJAAIBAhJwZXJtaXNzaW9ucyBkZW5pZWQEDSR0MDI4MTAxMjgyMTEJARRyZWZyZXNoUG9vbElOVEVHUkFMUwMFDGxwQXNzZXRJZFN0cgUOcG9vbEFkZHJlc3NTdHIAAAQSd3hQZXJMcEludGVncmFsTmV3CAUNJHQwMjgxMDEyODIxMQJfMQQRcG9vbEludGVncmFsU1RBVEUIBQ0kdDAyODEwMTI4MjExAl8yBAlwb29sREVCVUcIBQ0kdDAyODEwMTI4MjExAl8zBRFwb29sSW50ZWdyYWxTVEFURQFpAQtzZXRNaWdyYXRvcgECcGsEC2NoZWNrQ2FsbGVyCQELbXVzdE1hbmFnZXIBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgMJAAACBQJwawIACQDMCAIJAQtEZWxldGVFbnRyeQEFC2tleU1pZ3JhdG9yBQNuaWwJAMwIAgkBC0JpbmFyeUVudHJ5AgULa2V5TWlncmF0b3IJANkEAQUCcGsFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECdHgBBnZlcmlmeQAED3RhcmdldFB1YmxpY0tleQQHJG1hdGNoMAkBFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQAAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAnBrBQckbWF0Y2gwBQJwawMJAAECBQckbWF0Y2gwAgRVbml0CAUCdHgPc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQ90YXJnZXRQdWJsaWNLZXkGCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACQERQGV4dHJOYXRpdmUoMTA1MikCBQR0aGlzBQtrZXlNaWdyYXRvcuuEpXI=",
    "chainId": 87,
    "height": 3186224,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2chdSb6tNz3g6M6QXnPZAP1KME7E1cFFNC9QGbBuLG8S
Next: J2Qg7cKhMQtLRsAxCTtKw298HXjtmyU78zeTeVThWmzF

Diff: 

OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let SCALE8 = 8
5+
6+let MULT8 = 100000000
7+
8+let SCALE18 = 18
9+
10+let MULT18 = toBigInt(1000000000000000000)
11+
412 let SEP = "__"
513 
6-let EMPTY = ""
14+let POOLWEIGHTMULT = MULT8
715 
8-let statusVerified = 2
16+let zeroBigInt = toBigInt(0)
917 
10-let statusUnverified = 0
18+let oneBigInt = toBigInt(1)
1119 
12-let labelCommunityVerified = "COMMUNITY_VERIFIED"
20+let keyMigrator = "migrator"
1321 
14-let labelPoolsLp = "POOLS_LP"
15-
16-let defaultLabels = [labelCommunityVerified, labelPoolsLp]
17-
18-func throwPD () = throw("Permission denied")
22+func asAnyList (val) = match val {
23+    case valAnyLyst: List[Any] => 
24+        valAnyLyst
25+    case _ => 
26+        throw("fail to cast into List[Any]")
27+}
1928 
2029 
21-func throwNoAsset () = throw("Asset doesn't exists")
30+func asInt (val) = match val {
31+    case valInt: Int => 
32+        valInt
33+    case _ => 
34+        throw("fail to cast into Int")
35+}
36+
37+
38+func asString (val) = match val {
39+    case valStr: String => 
40+        valStr
41+    case _ => 
42+        throw("fail to cast into Int")
43+}
44+
45+
46+func asByteVector (val) = match val {
47+    case valBin: ByteVector => 
48+        valBin
49+    case _ => 
50+        throw("fail to cast into Int")
51+}
52+
53+
54+func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (("mandatory this." + key) + " is not defined"))
55+
56+
57+func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
58+
59+
60+func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
61+
62+
63+func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
64+
65+
66+func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
67+
68+
69+func getBigIntFromStringOrZero (address,key) = value(parseBigInt(valueOrElse(getString(address, key), "0")))
70+
71+
72+func getBigIntFromStringOrDefault (address,key,defaultVal) = match getString(address, key) {
73+    case s: String => 
74+        value(parseBigInt(s))
75+    case _: Unit => 
76+        defaultVal
77+    case _ => 
78+        throw("Match error")
79+}
80+
81+
82+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
83+
84+
85+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
86+
87+
88+func keyFactoryAddress () = "%s%s__config__factoryAddress"
89+
90+
91+func keyVotingEmissionContract () = "%s__votingEmissionContract"
92+
93+
94+let IdxFactoryCfgStakingDapp = 1
95+
96+let IdxFactoryCfgBoostingDapp = 2
97+
98+let IdxFactoryCfgIdoDapp = 3
99+
100+let IdxFactoryCfgTeamDapp = 4
101+
102+let IdxFactoryCfgEmissionDapp = 5
103+
104+let IdxFactoryCfgRestDapp = 6
105+
106+let IdxFactoryCfgSlippageDapp = 7
107+
108+func keyFactoryCfg () = "%s__factoryConfig"
22109 
23110 
24111 func keyManagerPublicKey () = "%s__managerPublicKey"
27114 func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
28115 
29116 
30-func keyAdminPubKeys () = "%s__adminPubKeys"
117+func keyStablePoolAddonAddr () = "%s__stablePoolAddonAddr"
31118 
32119 
33-func keyUserPoolsContract () = "%s__userPoolsContract"
120+func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
34121 
35122 
36-func keyVotingEmissionContract () = "%s__votingEmissionContract"
123+func keyFactoryLpList () = "%s__lpTokensList"
37124 
38125 
39-func keyCreated (assetId) = (("created_<" + assetId) + ">")
126+func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
40127 
41128 
42-func keyLogo (assetId) = (("logo_<" + assetId) + ">")
129+func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
43130 
44131 
45-func keyTicker (assetId) = (("ticker_<" + assetId) + ">")
132+func readLpList (factory) = split(valueOrElse(getString(factory, keyFactoryLpList()), ""), SEP)
46133 
47134 
48-func keyStatus (assetId) = (("status_<" + assetId) + ">")
135+func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
49136 
50137 
51-func keyAssetPoolsNumber (assetId) = makeString(["%s%s", "pools", assetId], SEP)
138+func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
52139 
53140 
54-func keyTickerToAssetId (ticker) = makeString(["%s%s", "ticker2assetId", ticker], SEP)
141+func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
55142 
56143 
57-func keyAssetIdToTicker (assetId) = makeString(["%s%s", "assetId2ticker", assetId], SEP)
144+func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
58145 
59146 
60-func keyAmountAndPriceAssetsToLpAsset (amountAsset,priceAsset) = makeString(["%s%s%s", "amountAndPriceAssetsToLpAsset", amountAsset, priceAsset], SEP)
147+func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
61148 
62149 
63-func keyLpAssetToAmountAndPriceAssets (lpAsset) = makeString(["%s%s", "lpAssetToAmountAndPriceAssets", lpAsset], SEP)
150+func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
64151 
65152 
66-func keyAssetLabels (assetId) = makeString(["%s%s", "labels", assetId], SEP)
153+func keyEmissionStartBlock () = "%s%s__emission__startBlock"
67154 
68155 
69-func keyLabels () = makeString(["%s", "labels"], SEP)
156+func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
70157 
71158 
72-func getValueOrFail (address,key,type) = {
73-    let error = makeString(["mandatory ", toString(address), ".", key, " is not defined"], "")
74-    valueOrErrorMessage(    match type {
75-        case str: String => 
76-            getString(address, key)
77-        case int: Int => 
78-            getInteger(address, key)
79-        case _ => 
80-            throw("invalid entry type")
81-    }, error)
159+func keyEmissionEndBlock () = "%s%s__emission__endBlock"
160+
161+
162+func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
163+
164+
165+func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
166+
167+
168+func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
169+
170+
171+func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
172+
173+
174+func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
175+
176+
177+func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed__total", lpAssetIdStr], SEP)
178+
179+
180+func readStaked (key) = valueOrElse(getInteger(this, key), 0)
181+
182+
183+func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
184+
185+
186+func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
187+
188+
189+func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
190+
191+
192+func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
193+
194+
195+func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
196+
197+
198+func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
199+
200+
201+func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
202+
203+
204+func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
205+
206+
207+func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
208+
209+
210+func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
211+
212+
213+func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
214+
215+
216+func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
217+
218+
219+func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
220+
221+
222+func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
223+
224+
225+func formatHistoryRecord (userAddress,lpAssetId,type,amount) = makeString(["%s%s%s%d%d%d", userAddress, lpAssetId, type, toString(height), toString(lastBlock.timestamp), toString(amount)], SEP)
226+
227+
228+func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
229+
230+
231+let factoryAddress = getStringOrFail(this, keyFactoryAddress())
232+
233+let factoryContract = addressFromStringValue(factoryAddress)
234+
235+let factoryCfg = readFactoryCfgOrFail(factoryContract)
236+
237+let emissionContract = getEmissionAddressOrFail(factoryCfg)
238+
239+let boostingContract = getBoostingAddressOrFail(factoryCfg)
240+
241+func keyNextUser (lpAssetId) = makeString(["%s%s", lpAssetId, "nextUser"], SEP)
242+
243+
244+func getUsersListName (lpAssetId) = makeString(["users", lpAssetId], SEP)
245+
246+
247+func keyListHead (listName) = makeString(["%s%s%s", listName, "head"], SEP)
248+
249+
250+func keyListSize (listName) = makeString(["%s%s%s", listName, "size"], SEP)
251+
252+
253+func keyListPrev (listName,id) = makeString(["%s%s%s%s", listName, id, "prev"], SEP)
254+
255+
256+func keyListNext (listName,id) = makeString(["%s%s%s%s", listName, id, "next"], SEP)
257+
258+
259+func containsNode (listName,id) = {
260+    let headOrUnit = getString(this, keyListHead(listName))
261+    let prevOrUnit = getString(this, keyListPrev(listName, id))
262+    let nextOrUnit = getString(this, keyListNext(listName, id))
263+    if (if ((id == valueOrElse(headOrUnit, "")))
264+        then true
265+        else (prevOrUnit != unit))
266+        then true
267+        else (nextOrUnit != unit)
82268     }
83269 
84270 
85-func getStrOrFail (address,key) = {
86-    let @ = getValueOrFail(address, key, 0)
87-    if ($isInstanceOf(@, "String"))
88-        then @
89-        else throw("Couldn't cast Int|String to String")
271+func insertNodeActions (listName,id) = {
272+    let headOrUnit = getString(this, keyListHead(listName))
273+    let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
274+    let checkNode = if (!(containsNode(listName, id)))
275+        then true
276+        else throw("Node exists")
277+    if ((checkNode == checkNode))
278+        then (([IntegerEntry(keyListSize(listName), (listSize + 1))] ++ (if ((headOrUnit != unit))
279+            then [StringEntry(keyListNext(listName, id), value(headOrUnit)), StringEntry(keyListPrev(listName, value(headOrUnit)), id)]
280+            else nil)) ++ [StringEntry(keyListHead(listName), id)])
281+        else throw("Strict value is not equal to itself.")
90282     }
91283 
92284 
93-func getStrOrUnit (address,key) = {
94-    let @ = getValueOrFail(address, key, 0)
95-    if ($isInstanceOf(@, "String"))
96-        then @
97-        else unit
285+func deleteNodeActions (listName,id) = {
286+    let headOrUnit = getString(this, keyListHead(listName))
287+    let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
288+    let prevOrUnit = getString(this, keyListPrev(listName, id))
289+    let nextOrUnit = getString(this, keyListNext(listName, id))
290+    ([IntegerEntry(keyListSize(listName), (listSize - 1))] ++ (if (if ((prevOrUnit != unit))
291+        then (nextOrUnit != unit)
292+        else false)
293+        then [StringEntry(keyListNext(listName, value(prevOrUnit)), value(nextOrUnit)), StringEntry(keyListPrev(listName, value(nextOrUnit)), value(prevOrUnit)), DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, id))]
294+        else if ((nextOrUnit != unit))
295+            then [StringEntry(keyListHead(listName), value(nextOrUnit)), DeleteEntry(keyListNext(listName, id)), DeleteEntry(keyListPrev(listName, value(nextOrUnit)))]
296+            else if ((prevOrUnit != unit))
297+                then [DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, value(prevOrUnit)))]
298+                else if ((id == valueOrElse(headOrUnit, "")))
299+                    then [DeleteEntry(keyListHead(listName))]
300+                    else throw(((("invalid node: " + listName) + ".") + id))))
98301     }
99302 
100303 
101-func getIntOrFail (address,key) = {
102-    let @ = getValueOrFail(address, key, 0)
103-    if ($isInstanceOf(@, "Int"))
104-        then @
105-        else throw("Couldn't cast Int|String to Int")
304+func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == zeroBigInt))
305+    then (stakedByUser > zeroBigInt)
306+    else false)
307+    then zeroBigInt
308+    else if ((stakedByUser == zeroBigInt))
309+        then wxPerLpIntegralNew
310+        else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > zeroBigInt))
311+            then (stakedByUser > zeroBigInt)
312+            else false)
313+            then value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))
314+            else throw("calcWxPerLpIntegralUserLast: unexpected state")
315+
316+
317+func refreshPoolINTEGRALS (lpAssetIdStr,poolAddressStr,lpDeltaAmount) = {
318+    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
319+    let stakedTotal = toBigInt(readStaked(stakedTotalKEY))
320+    let nonZeroStakedTotal = if ((stakedTotal == zeroBigInt))
321+        then oneBigInt
322+        else stakedTotal
323+    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
324+    let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
325+    let MULT3 = 1000
326+    let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
327+    let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
328+    let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
329+    let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
330+    let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
331+    let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
332+    let wxPerLpIntegral = getBigIntFromStringOrZero(this, wxPerLpIntegralKEY)
333+    let wxPerLpOrZeroX3 = 0
334+    let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
335+    let wxPerLpX3 = if ((wxPerLpOrZeroX3 != 0))
336+        then toBigInt(wxPerLpOrZeroX3)
337+        else fraction(toBigInt(poolWxEmissionPerBlockX3), toBigInt(MULT8), nonZeroStakedTotal)
338+    let stakedTotalNew = (stakedTotal + toBigInt(lpDeltaAmount))
339+    let nonZeroStakedTotalNew = if ((stakedTotalNew == zeroBigInt))
340+        then oneBigInt
341+        else stakedTotalNew
342+    let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX3 * toBigInt(dh)))
343+    let wxPerLpX3New = (toBigInt(poolWxEmissionPerBlockX3) / nonZeroStakedTotalNew)
344+    let wxPerLpIntegralLastUpdHeightNew = height
345+    let debug = makeString([toString(wxPerLpIntegralNew), toString(dh), toString(wxPerLpX3), toString(stakedTotal), toString(poolWxEmissionPerBlockX3), toString(wxEmissionPerBlockX3), toString(poolWeight)], "::")
346+    $Tuple3(wxPerLpIntegralNew, [StringEntry(wxPerLpIntegralKEY, toString(wxPerLpIntegralNew)), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), StringEntry(wxPerLpKEY, toString(wxPerLpX3New))], debug)
106347     }
107348 
108349 
109-func getIntOrUnit (address,key) = {
110-    let @ = getValueOrFail(address, key, 0)
111-    if ($isInstanceOf(@, "Int"))
112-        then @
113-        else unit
350+func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
351+    let $t01424614368 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, lpDeltaAmount)
352+    let wxPerLpIntegralNew = $t01424614368._1
353+    let poolIntegralSTATE = $t01424614368._2
354+    let poolDEBUG = $t01424614368._3
355+    let MULT3 = 1000
356+    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
357+    let stakedByUser = readStaked(stakedByUserKEY)
358+    let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
359+    let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
360+    let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
361+    let wxToClaimUser = getBigIntFromStringOrZero(this, wxToClaimUserKEY)
362+    let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
363+    let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(toBigInt(stakedByUser), toBigInt(wxPerLpIntegralUserLastUpdHeightOrZero), wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
364+    let MULT11 = (MULT8 * MULT3)
365+    let wxToClaimUserNew = max([(wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), toBigInt(stakedByUser), toBigInt(MULT11))), zeroBigInt])
366+    let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
367+    let wxPerLpIntegralUserLastUpdHeightNew = height
368+    let debug = makeString([toString(wxToClaimUser), toString(wxPerLpIntegralUserLast), toString(stakedByUser), poolDEBUG, toString(height)], "::")
369+    $Tuple3(wxToClaimUserNew, (poolIntegralSTATE ++ [StringEntry(wxToClaimUserKEY, toString(wxToClaimUserNew)), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), StringEntry(wxPerLpIntegralUserLastKEY, toString(wxPerLpIntegralUserLastNew))]), debug)
114370     }
115-
116-
117-func isVerified (assetId) = (valueOrElse(getInteger(keyStatus(assetId)), statusUnverified) == statusVerified)
118-
119-
120-func getLabels () = match getString(keyLabels()) {
121-    case s: String => 
122-        if ((size(s) == 0))
123-            then nil
124-            else split(s, SEP)
125-    case _ => 
126-        nil
127-}
128-
129-
130-func getAssetLabels (assetId) = match getString(keyAssetLabels(assetId)) {
131-    case s: String => 
132-        if ((size(s) == 0))
133-            then nil
134-            else split(s, SEP)
135-    case _ => 
136-        nil
137-}
138371 
139372 
140373 func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
157390 }
158391 
159392 
393+let permissionDeniedError = throw("Permission denied")
394+
395+func mustThis (i) = if ((i.caller == this))
396+    then true
397+    else permissionDeniedError
398+
399+
160400 func mustManager (i) = match managerPublicKeyOrUnit() {
161401     case pk: ByteVector => 
162402         if ((i.callerPublicKey == pk))
163403             then true
164-            else throwPD()
404+            else permissionDeniedError
165405     case _: Unit => 
166406         if ((i.caller == this))
167407             then true
168-            else throwPD()
408+            else permissionDeniedError
169409     case _ => 
170410         throw("Match error")
171411 }
172412 
173413 
174-func mustAdmin (i) = {
175-    let adminPKs = split(valueOrElse(getString(keyAdminPubKeys()), EMPTY), SEP)
176-    if (containsElement(adminPKs, toBase58String(i.callerPublicKey)))
177-        then true
178-        else {
179-            let isManager = mustManager(i)
180-            if ((isManager == isManager))
181-                then true
182-                else throw("Strict value is not equal to itself.")
183-            }
184-    }
185-
186-
187-func isCreated (assetId) = valueOrElse(getBoolean(keyCreated(assetId)), false)
188-
189-
190-func verifiedToStatus (verified) = if (verified)
191-    then statusVerified
192-    else statusUnverified
193-
194-
195-func addLabelActions (assetId,label,throwOnError) = {
196-    let labels = getLabels()
197-    let assetLabels = getAssetLabels(assetId)
198-    let checkLabel = if (containsElement(labels, label))
199-        then true
200-        else throw("Label doesn't exist")
201-    if ((checkLabel == checkLabel))
202-        then {
203-            let newAssetLabels = if (containsElement(assetLabels, label))
204-                then if (throwOnError)
205-                    then throw("Label has already been added")
206-                    else assetLabels
207-                else (assetLabels :+ label)
208-[StringEntry(keyAssetLabels(assetId), makeString(newAssetLabels, SEP))]
209-            }
210-        else throw("Strict value is not equal to itself.")
211-    }
212-
213-
214-func deleteLabelActions (assetId,label,throwOnError) = {
215-    let assetLabels = getAssetLabels(assetId)
216-    let newAssetLabels = if (containsElement(assetLabels, label))
217-        then removeByIndex(assetLabels, value(indexOf(assetLabels, label)))
218-        else if (throwOnError)
219-            then throw("Label wasn't added")
220-            else assetLabels
221-[StringEntry(keyAssetLabels(assetId), makeString(newAssetLabels, SEP))]
222-    }
223-
224-
225-func setVerifiedActions (assetId,verified) = {
226-    let labelCommunityVerifiedActions = if (verified)
227-        then addLabelActions(assetId, labelCommunityVerified, false)
228-        else deleteLabelActions(assetId, labelCommunityVerified, false)
229-    ([IntegerEntry(keyStatus(assetId), verifiedToStatus(verified))] ++ labelCommunityVerifiedActions)
230-    }
231-
232-
233-func updateTickerActions (assetId,ticker) = {
234-    let checkTicker = {
235-        let linkedAssetIdOrUnit = getString(keyTickerToAssetId(ticker))
236-        let tickerIsValid = if ((ticker != ""))
237-            then if ((linkedAssetIdOrUnit == unit))
238-                then true
239-                else (value(linkedAssetIdOrUnit) == assetId)
240-            else false
241-        if (tickerIsValid)
242-            then true
243-            else throw("Invalid ticker")
244-        }
245-    if ((checkTicker == checkTicker))
246-        then [StringEntry(keyAssetIdToTicker(assetId), ticker), StringEntry(keyTickerToAssetId(ticker), assetId)]
247-        else throw("Strict value is not equal to itself.")
248-    }
249-
250-
251414 @Callable(i)
252-func constructor (userPoolsContract,labels) = {
415+func constructor (factoryAddressStr) = {
253416     let checkCaller = mustManager(i)
254417     if ((checkCaller == checkCaller))
255-        then {
256-            let checksAddress = valueOrErrorMessage(addressFromString(userPoolsContract), "Invalid address")
257-            if ((checksAddress == checksAddress))
258-                then [StringEntry(keyUserPoolsContract(), userPoolsContract), StringEntry(keyLabels(), makeString((defaultLabels ++ labels), SEP))]
259-                else throw("Strict value is not equal to itself.")
260-            }
418+        then [StringEntry(keyFactoryAddress(), factoryAddressStr)]
261419         else throw("Strict value is not equal to itself.")
262420     }
263421 
265423 
266424 @Callable(i)
267425 func constructorV2 (votingEmissionContract) = {
268-    let checkCaller = mustManager(i)
269-    if ((checkCaller == checkCaller))
270-        then {
271-            let checkAddress = valueOrErrorMessage(addressFromString(votingEmissionContract), "invalid voting emission contract address")
272-            if ((checkAddress == checkAddress))
273-                then [StringEntry(keyVotingEmissionContract(), votingEmissionContract)]
274-                else throw("Strict value is not equal to itself.")
275-            }
276-        else throw("Strict value is not equal to itself.")
277-    }
278-
279-
280-
281-@Callable(i)
282-func addAssetsLink (amountAsset,priceAsset,lpAsset) = {
283-    let checkCaller = mustAdmin(i)
284-    if ((checkCaller == checkCaller))
285-        then [StringEntry(keyAmountAndPriceAssetsToLpAsset(amountAsset, priceAsset), lpAsset), StringEntry(keyLpAssetToAmountAndPriceAssets(lpAsset), makeString([amountAsset, priceAsset], SEP))]
286-        else throw("Strict value is not equal to itself.")
287-    }
288-
289-
290-
291-@Callable(i)
292-func increaseAssetPoolsNumber (assetId) = {
293-    let checkCaller = mustAdmin(i)
294-    if ((checkCaller == checkCaller))
295-        then {
296-            let assetPoolsNumberKey = keyAssetPoolsNumber(assetId)
297-            let assetPoolsNumber = valueOrElse(getInteger(assetPoolsNumberKey), 0)
298-[IntegerEntry(assetPoolsNumberKey, (assetPoolsNumber + 1))]
299-            }
300-        else throw("Strict value is not equal to itself.")
301-    }
302-
303-
304-
305-@Callable(i)
306-func createLabel (label) = {
307-    let labels = getLabels()
308-    let checkCaller = mustAdmin(i)
309-    if ((checkCaller == checkCaller))
310-        then {
311-            let checkLabel = [if (!(contains(label, SEP)))
312-                then true
313-                else throw("Invalid label name"), if (!(containsElement(labels, label)))
314-                then true
315-                else throw("Label exists")]
316-            if ((checkLabel == checkLabel))
317-                then [StringEntry(keyLabels(), makeString((labels :+ label), SEP))]
318-                else throw("Strict value is not equal to itself.")
319-            }
320-        else throw("Strict value is not equal to itself.")
321-    }
322-
323-
324-
325-@Callable(i)
326-func dropLabel (label) = {
327-    let labels = getLabels()
328-    let checkCaller = mustManager(i)
329-    if ((checkCaller == checkCaller))
330-        then {
331-            let checkLabel = if (containsElement(labels, label))
332-                then true
333-                else throw("Label doesn't exist")
334-            if ((checkLabel == checkLabel))
335-                then [StringEntry(keyLabels(), makeString(removeByIndex(labels, value(indexOf(labels, label))), SEP))]
336-                else throw("Strict value is not equal to itself.")
337-            }
338-        else throw("Strict value is not equal to itself.")
339-    }
340-
341-
342-
343-@Callable(i)
344-func addLabel (assetId,label) = {
345-    let checkCaller = mustAdmin(i)
346-    if ((checkCaller == checkCaller))
347-        then addLabelActions(assetId, label, true)
348-        else throw("Strict value is not equal to itself.")
349-    }
350-
351-
352-
353-@Callable(i)
354-func deleteLabel (assetId,label) = {
355-    let checkCaller = mustAdmin(i)
356-    if ((checkCaller == checkCaller))
357-        then deleteLabelActions(assetId, label, true)
358-        else throw("Strict value is not equal to itself.")
359-    }
360-
361-
362-
363-@Callable(i)
364-func updateTicker (assetId,ticker) = {
365-    let checkCaller = mustAdmin(i)
366-    if ((checkCaller == checkCaller))
367-        then {
368-            let checkAsset = if (isCreated(assetId))
369-                then true
370-                else throwNoAsset()
371-            if ((checkAsset == checkAsset))
372-                then updateTickerActions(assetId, ticker)
373-                else throw("Strict value is not equal to itself.")
374-            }
375-        else throw("Strict value is not equal to itself.")
376-    }
377-
378-
379-
380-@Callable(i)
381-func deleteTicker (assetId) = {
382-    let checkCaller = mustAdmin(i)
383-    if ((checkCaller == checkCaller))
384-        then {
385-            let ticker = valueOrErrorMessage(getString(keyAssetIdToTicker(assetId)), "Invalid asset")
386-[DeleteEntry(keyAssetIdToTicker(assetId)), DeleteEntry(keyTickerToAssetId(ticker))]
387-            }
388-        else throw("Strict value is not equal to itself.")
389-    }
390-
391-
392-
393-@Callable(i)
394-func createOrUpdate (assetId,logo,verified) = {
395-    let checkCaller = mustAdmin(i)
396-    if ((checkCaller == checkCaller))
397-        then {
398-            let isCreatedNow = !(isCreated(assetId))
399-            if ((isCreatedNow == isCreatedNow))
400-                then {
401-                    let setLogoActions = if ((logo == ""))
402-                        then nil
403-                        else [StringEntry(keyLogo(assetId), logo)]
404-                    $Tuple2((([BooleanEntry(keyCreated(assetId), true)] ++ setLogoActions) ++ setVerifiedActions(assetId, verified)), isCreatedNow)
405-                    }
406-                else throw("Strict value is not equal to itself.")
407-            }
408-        else throw("Strict value is not equal to itself.")
409-    }
410-
411-
412-
413-@Callable(i)
414-func setLogo (assetId,logo) = {
415-    let checks = [mustAdmin(i), if (isCreated(assetId))
426+    let cheks = [mustManager(i), if ((addressFromString(votingEmissionContract) != unit))
416427         then true
417-        else throwNoAsset()]
418-    if ((checks == checks))
419-        then {
420-            let action = if ((logo == ""))
421-                then DeleteEntry(keyLogo(assetId))
422-                else StringEntry(keyLogo(assetId), logo)
423-[action]
424-            }
425-        else throw("Strict value is not equal to itself.")
426-    }
427-
428-
429-
430-@Callable(i)
431-func setVerified (assetId,verified) = {
432-    let checks = [mustAdmin(i), if (isCreated(assetId))
433-        then true
434-        else throwNoAsset()]
435-    if ((checks == checks))
436-        then {
437-            let onVerificationLossInv = if (!(verified))
438-                then {
439-                    let votingEmissionContract = valueOrErrorMessage(addressFromString(getStrOrFail(this, keyVotingEmissionContract())), "invalid voting emission contract address")
440-                    invoke(votingEmissionContract, "onVerificationLoss", [assetId], nil)
441-                    }
442-                else unit
443-            if ((onVerificationLossInv == onVerificationLossInv))
444-                then $Tuple2(setVerifiedActions(assetId, verified), unit)
445-                else throw("Strict value is not equal to itself.")
446-            }
447-        else throw("Strict value is not equal to itself.")
448-    }
449-
450-
451-
452-@Callable(i)
453-func onEliminate (assetId) = {
454-    let poolsNumber = valueOrElse(getInteger(keyAssetPoolsNumber(assetId)), 0)
455-    let actions = if ((poolsNumber > 0))
456-        then nil
457-        else [DeleteEntry(keyLogo(assetId))]
458-    $Tuple2(actions, unit)
459-    }
460-
461-
462-
463-@Callable(i)
464-func setAdmins (adminPubKeys) = {
465-    let checkCaller = mustManager(i)
466-    if ((checkCaller == checkCaller))
467-        then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))]
428+        else "invalid voting emission contract address"]
429+    if ((cheks == cheks))
430+        then [StringEntry(keyVotingEmissionContract(), votingEmissionContract)]
468431         else throw("Strict value is not equal to itself.")
469432     }
470433 
506469 
507470 
508471 @Callable(i)
509-func isVerifiedREADONLY (assetId) = $Tuple2(nil, isVerified(assetId))
472+func stake () = {
473+    let migration = if ((getBinary(this, keyMigrator) != unit))
474+        then throw("maintenance")
475+        else unit
476+    if ((migration == migration))
477+        then if ((size(i.payments) != 1))
478+            then throw("invalid payment - exact one payment must be attached")
479+            else {
480+                let pmt = i.payments[0]
481+                let lpAssetId = value(pmt.assetId)
482+                let lpAssetIdStr = toBase58String(lpAssetId)
483+                let amount = pmt.amount
484+                let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
485+                let callerStr = toString(i.caller)
486+                let userAddressStr = if ((callerStr == poolAddressStr))
487+                    then toString(i.originCaller)
488+                    else callerStr
489+                let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
490+                let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
491+                let stakedByUser = readStaked(stakedByUserKEY)
492+                let stakedTotal = readStaked(stakedTotalKEY)
493+                let $t01893619053 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
494+                let wxToClaimUserNew = $t01893619053._1
495+                let integralSTATE = $t01893619053._2
496+                let debug = $t01893619053._3
497+                let listName = getUsersListName(lpAssetIdStr)
498+                let listActions = if (containsNode(listName, userAddressStr))
499+                    then nil
500+                    else insertNodeActions(listName, userAddressStr)
501+                (([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE) ++ listActions)
502+                }
503+        else throw("Strict value is not equal to itself.")
504+    }
505+
506+
507+
508+@Callable(i)
509+func unstake (lpAssetIdStr,amount) = {
510+    let migration = if ((getBinary(this, keyMigrator) != unit))
511+        then throw("maintenance")
512+        else unit
513+    if ((migration == migration))
514+        then {
515+            let lpAssetId = fromBase58String(lpAssetIdStr)
516+            let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
517+            let poolAddon = valueOrElse(getString(this, keyStablePoolAddonAddr()), poolAddressStr)
518+            let callerStr = toString(i.caller)
519+            let userAddressStr = if (if ((callerStr == poolAddressStr))
520+                then true
521+                else (callerStr == poolAddon))
522+                then toString(i.originCaller)
523+                else callerStr
524+            let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
525+            let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
526+            let stakedByUser = readStaked(stakedByUserKEY)
527+            let stakedTotal = readStaked(stakedTotalKEY)
528+            let integralSTATE = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, -(amount))._2
529+            let listName = getUsersListName(lpAssetIdStr)
530+            let listActions = if (if (containsNode(listName, userAddressStr))
531+                then (amount == stakedByUser)
532+                else false)
533+                then deleteNodeActions(listName, userAddressStr)
534+                else nil
535+            let claimedByUser = getBigIntFromStringOrZero(this, keyClaimedByUser(lpAssetIdStr, userAddressStr))
536+            let poolAddress = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
537+            let wxToClaimUserNew = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddress, 0)._1
538+            let availableToClaim = (wxToClaimUserNew - claimedByUser)
539+            let r = if ((availableToClaim > zeroBigInt))
540+                then invoke(this, "claimWxINTERNAL", [lpAssetIdStr, userAddressStr], nil)
541+                else unit
542+            if ((r == r))
543+                then if ((amount > stakedByUser))
544+                    then throw("passed amount is less then available")
545+                    else (([IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE) ++ listActions)
546+                else throw("Strict value is not equal to itself.")
547+            }
548+        else throw("Strict value is not equal to itself.")
549+    }
550+
551+
552+
553+@Callable(i)
554+func claimWx (lpAssetIdStr) = {
555+    let userAddressStr = toString(i.caller)
556+    let result = invoke(this, "claimWxINTERNAL", [lpAssetIdStr, userAddressStr], nil)
557+    $Tuple2(nil, result)
558+    }
559+
560+
561+
562+@Callable(i)
563+func claimWxINTERNAL (lpAssetIdStr,userAddressStr) = {
564+    let checkCaller = mustThis(i)
565+    if ((checkCaller == checkCaller))
566+        then {
567+            let userAddress = valueOrErrorMessage(addressFromString(userAddressStr), "claimWxINTERNAL: invalid user address")
568+            let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
569+            let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
570+            let claimedTotalKEY = keyClaimedTotal(lpAssetIdStr)
571+            let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(lpAssetIdStr, userAddressStr)
572+            let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(lpAssetIdStr, userAddressStr)
573+            let claimedByUser = getBigIntFromStringOrZero(this, claimedByUserKEY)
574+            let claimedByUserMinReward = getBigIntFromStringOrZero(this, claimedByUserMinRewardKEY)
575+            let claimedByUserBoostReward = getBigIntFromStringOrZero(this, claimedByUserBoostRewardKEY)
576+            let claimedTotal = getBigIntFromStringOrZero(this, claimedTotalKEY)
577+            let $t02288422996 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
578+            let wxToClaimUserNew = $t02288422996._1
579+            let integralSTATE = $t02288422996._2
580+            let debug = $t02288422996._3
581+            let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
582+            if ((zeroBigInt >= availableToClaim))
583+                then throw("nothing to claim")
584+                else {
585+                    let wxAmountBoostTotal = max([asInt(asAnyList(invoke(boostingContract, "claimWxBoost", [lpAssetIdStr, userAddressStr], nil))[0]), 0])
586+                    let minRewardPart = availableToClaim
587+                    let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
588+                    let wxAssetId = asByteVector(asAnyList(invoke(emissionContract, "emit", [toInt(minRewardPart)], nil))[0])
589+                    let emitBoost = asAnyList(invoke(emissionContract, "emit", [toInt(boostRewardPart)], nil))
590+                    if ((emitBoost == emitBoost))
591+                        then {
592+                            let claimedByUserValue = (claimedByUser + availableToClaim)
593+                            let claimedByUserMinRewardPlusPart = (claimedByUserMinReward + minRewardPart)
594+                            let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserMinReward + minRewardPart)
595+                            let claimedTotalPlusAvailableToClaim = (claimedByUserMinReward + minRewardPart)
596+[StringEntry(claimedByUserKEY, toString(claimedByUserValue)), StringEntry(claimedByUserMinRewardKEY, toString(claimedByUserMinRewardPlusPart)), StringEntry(claimedByUserBoostRewardKEY, toString(claimedByUserBoostRewardPlusBoostRewardPart)), StringEntry(claimedTotalKEY, toString(claimedTotalPlusAvailableToClaim)), ScriptTransfer(userAddress, toInt(minRewardPart), wxAssetId), ScriptTransfer(userAddress, toInt(boostRewardPart), wxAssetId), OperationHistoryEntry("claim", userAddressStr, lpAssetIdStr, toInt(availableToClaim), i.transactionId)]
597+                            }
598+                        else throw("Strict value is not equal to itself.")
599+                    }
600+            }
601+        else throw("Strict value is not equal to itself.")
602+    }
603+
604+
605+
606+@Callable(i)
607+func claimWxREADONLY (lpAssetIdStr,userAddressStr) = {
608+    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
609+    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
610+    let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
611+    let stakedByUser = readStaked(stakedByUserKEY)
612+    let stakedTotal = readStaked(stakedTotalKEY)
613+    let claimedByUser = getBigIntFromStringOrZero(this, claimedByUserKEY)
614+    let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
615+    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
616+    let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
617+    let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
618+    let passedBlocks = if ((emissionStartBlock > height))
619+        then 0
620+        else (height - emissionStartBlock)
621+    let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, POOLWEIGHTMULT)
622+    let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
623+    let $t02563825750 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
624+    let wxToClaimUserNew = $t02563825750._1
625+    let integralSTATE = $t02563825750._2
626+    let debug = $t02563825750._3
627+    let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
628+    let boostInvResult = asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [lpAssetIdStr, userAddressStr], nil))
629+    let wxAmountBoostTotal = max([asInt(boostInvResult[0]), 0])
630+    let boostDebug = asString(boostInvResult[1])
631+    let minRewardPart = availableToClaim
632+    let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
633+    let totalReward = (minRewardPart + boostRewardPart)
634+    $Tuple2(nil, makeString(["%s%s%d%d%d%d%s", lpAssetIdStr, userAddressStr, toString(totalReward), toString(claimedByUser), toString(minRewardPart), toString(boostRewardPart), ((((debug + "::") + toString(userWxReward)) + "::BOOST::") + boostDebug)], SEP))
635+    }
636+
637+
638+
639+@Callable(i)
640+func usersListTraversal (lpAssetId) = {
641+    let checkCaller = if ((toBase58String(i.caller.bytes) == valueOrElse(getString(this, keyVotingEmissionContract()), "")))
642+        then true
643+        else mustManager(i)
644+    if ((checkCaller == checkCaller))
645+        then {
646+            let listName = getUsersListName(lpAssetId)
647+            let userOrUnit = getString(keyNextUser(lpAssetId))
648+            let headOrUnit = getString(keyListHead(listName))
649+            match userOrUnit {
650+                case _: Unit => 
651+                    match headOrUnit {
652+                        case _: Unit => 
653+                            $Tuple2(nil, false)
654+                        case head: String => 
655+                            $Tuple2([StringEntry(keyNextUser(lpAssetId), head)], true)
656+                        case _ => 
657+                            throw("Match error")
658+                    }
659+                case userAddress: String => 
660+                    let claimedByUser = getBigIntFromStringOrZero(this, keyClaimedByUser(lpAssetId, userAddress))
661+                    let poolAddress = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
662+                    let wxToClaimUserNew = refreshINTEGRALS(lpAssetId, userAddress, poolAddress, 0)._1
663+                    let availableToClaim = (wxToClaimUserNew - claimedByUser)
664+                    let r = if ((availableToClaim > zeroBigInt))
665+                        then invoke(this, "claimWxINTERNAL", [lpAssetId, userAddress], nil)
666+                        else unit
667+                    if ((r == r))
668+                        then {
669+                            let nextUserOrUnit = getString(keyListNext(listName, userAddress))
670+                            match nextUserOrUnit {
671+                                case _: Unit => 
672+                                    $Tuple2([DeleteEntry(keyNextUser(lpAssetId))], false)
673+                                case nextUser: String => 
674+                                    $Tuple2([StringEntry(keyNextUser(lpAssetId), nextUser)], true)
675+                                case _ => 
676+                                    throw("Match error")
677+                            }
678+                            }
679+                        else throw("Strict value is not equal to itself.")
680+                case _ => 
681+                    throw("Match error")
682+            }
683+            }
684+        else throw("Strict value is not equal to itself.")
685+    }
686+
687+
688+
689+@Callable(i)
690+func onModifyWeight (lpAssetIdStr,poolAddressStr) = if ((i.caller != factoryContract))
691+    then throw("permissions denied")
692+    else {
693+        let $t02810128211 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
694+        let wxPerLpIntegralNew = $t02810128211._1
695+        let poolIntegralSTATE = $t02810128211._2
696+        let poolDEBUG = $t02810128211._3
697+        poolIntegralSTATE
698+        }
699+
700+
701+
702+@Callable(i)
703+func setMigrator (pk) = {
704+    let checkCaller = mustManager(i)
705+    if ((checkCaller == checkCaller))
706+        then if ((pk == ""))
707+            then [DeleteEntry(keyMigrator)]
708+            else [BinaryEntry(keyMigrator, fromBase58String(pk))]
709+        else throw("Strict value is not equal to itself.")
710+    }
510711 
511712 
512713 @Verifier(tx)
519720         case _ => 
520721             throw("Match error")
521722     }
522-    sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
723+    if (sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey))
724+        then true
725+        else sigVerify(tx.bodyBytes, tx.proofs[0], getBinaryValue(this, keyMigrator))
523726     }
524727 

Full: 

OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let SCALE8 = 8
5+
6+let MULT8 = 100000000
7+
8+let SCALE18 = 18
9+
10+let MULT18 = toBigInt(1000000000000000000)
11+
412 let SEP = "__"
513 
6-let EMPTY = ""
14+let POOLWEIGHTMULT = MULT8
715 
8-let statusVerified = 2
16+let zeroBigInt = toBigInt(0)
917 
10-let statusUnverified = 0
18+let oneBigInt = toBigInt(1)
1119 
12-let labelCommunityVerified = "COMMUNITY_VERIFIED"
20+let keyMigrator = "migrator"
1321 
14-let labelPoolsLp = "POOLS_LP"
15-
16-let defaultLabels = [labelCommunityVerified, labelPoolsLp]
17-
18-func throwPD () = throw("Permission denied")
22+func asAnyList (val) = match val {
23+    case valAnyLyst: List[Any] => 
24+        valAnyLyst
25+    case _ => 
26+        throw("fail to cast into List[Any]")
27+}
1928 
2029 
21-func throwNoAsset () = throw("Asset doesn't exists")
30+func asInt (val) = match val {
31+    case valInt: Int => 
32+        valInt
33+    case _ => 
34+        throw("fail to cast into Int")
35+}
36+
37+
38+func asString (val) = match val {
39+    case valStr: String => 
40+        valStr
41+    case _ => 
42+        throw("fail to cast into Int")
43+}
44+
45+
46+func asByteVector (val) = match val {
47+    case valBin: ByteVector => 
48+        valBin
49+    case _ => 
50+        throw("fail to cast into Int")
51+}
52+
53+
54+func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (("mandatory this." + key) + " is not defined"))
55+
56+
57+func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
58+
59+
60+func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
61+
62+
63+func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
64+
65+
66+func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
67+
68+
69+func getBigIntFromStringOrZero (address,key) = value(parseBigInt(valueOrElse(getString(address, key), "0")))
70+
71+
72+func getBigIntFromStringOrDefault (address,key,defaultVal) = match getString(address, key) {
73+    case s: String => 
74+        value(parseBigInt(s))
75+    case _: Unit => 
76+        defaultVal
77+    case _ => 
78+        throw("Match error")
79+}
80+
81+
82+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
83+
84+
85+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
86+
87+
88+func keyFactoryAddress () = "%s%s__config__factoryAddress"
89+
90+
91+func keyVotingEmissionContract () = "%s__votingEmissionContract"
92+
93+
94+let IdxFactoryCfgStakingDapp = 1
95+
96+let IdxFactoryCfgBoostingDapp = 2
97+
98+let IdxFactoryCfgIdoDapp = 3
99+
100+let IdxFactoryCfgTeamDapp = 4
101+
102+let IdxFactoryCfgEmissionDapp = 5
103+
104+let IdxFactoryCfgRestDapp = 6
105+
106+let IdxFactoryCfgSlippageDapp = 7
107+
108+func keyFactoryCfg () = "%s__factoryConfig"
22109 
23110 
24111 func keyManagerPublicKey () = "%s__managerPublicKey"
25112 
26113 
27114 func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
28115 
29116 
30-func keyAdminPubKeys () = "%s__adminPubKeys"
117+func keyStablePoolAddonAddr () = "%s__stablePoolAddonAddr"
31118 
32119 
33-func keyUserPoolsContract () = "%s__userPoolsContract"
120+func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
34121 
35122 
36-func keyVotingEmissionContract () = "%s__votingEmissionContract"
123+func keyFactoryLpList () = "%s__lpTokensList"
37124 
38125 
39-func keyCreated (assetId) = (("created_<" + assetId) + ">")
126+func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
40127 
41128 
42-func keyLogo (assetId) = (("logo_<" + assetId) + ">")
129+func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
43130 
44131 
45-func keyTicker (assetId) = (("ticker_<" + assetId) + ">")
132+func readLpList (factory) = split(valueOrElse(getString(factory, keyFactoryLpList()), ""), SEP)
46133 
47134 
48-func keyStatus (assetId) = (("status_<" + assetId) + ">")
135+func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
49136 
50137 
51-func keyAssetPoolsNumber (assetId) = makeString(["%s%s", "pools", assetId], SEP)
138+func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
52139 
53140 
54-func keyTickerToAssetId (ticker) = makeString(["%s%s", "ticker2assetId", ticker], SEP)
141+func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
55142 
56143 
57-func keyAssetIdToTicker (assetId) = makeString(["%s%s", "assetId2ticker", assetId], SEP)
144+func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
58145 
59146 
60-func keyAmountAndPriceAssetsToLpAsset (amountAsset,priceAsset) = makeString(["%s%s%s", "amountAndPriceAssetsToLpAsset", amountAsset, priceAsset], SEP)
147+func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
61148 
62149 
63-func keyLpAssetToAmountAndPriceAssets (lpAsset) = makeString(["%s%s", "lpAssetToAmountAndPriceAssets", lpAsset], SEP)
150+func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
64151 
65152 
66-func keyAssetLabels (assetId) = makeString(["%s%s", "labels", assetId], SEP)
153+func keyEmissionStartBlock () = "%s%s__emission__startBlock"
67154 
68155 
69-func keyLabels () = makeString(["%s", "labels"], SEP)
156+func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
70157 
71158 
72-func getValueOrFail (address,key,type) = {
73-    let error = makeString(["mandatory ", toString(address), ".", key, " is not defined"], "")
74-    valueOrErrorMessage(    match type {
75-        case str: String => 
76-            getString(address, key)
77-        case int: Int => 
78-            getInteger(address, key)
79-        case _ => 
80-            throw("invalid entry type")
81-    }, error)
159+func keyEmissionEndBlock () = "%s%s__emission__endBlock"
160+
161+
162+func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
163+
164+
165+func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
166+
167+
168+func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
169+
170+
171+func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
172+
173+
174+func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
175+
176+
177+func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed__total", lpAssetIdStr], SEP)
178+
179+
180+func readStaked (key) = valueOrElse(getInteger(this, key), 0)
181+
182+
183+func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
184+
185+
186+func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
187+
188+
189+func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
190+
191+
192+func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
193+
194+
195+func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
196+
197+
198+func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
199+
200+
201+func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
202+
203+
204+func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
205+
206+
207+func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
208+
209+
210+func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
211+
212+
213+func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
214+
215+
216+func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
217+
218+
219+func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
220+
221+
222+func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
223+
224+
225+func formatHistoryRecord (userAddress,lpAssetId,type,amount) = makeString(["%s%s%s%d%d%d", userAddress, lpAssetId, type, toString(height), toString(lastBlock.timestamp), toString(amount)], SEP)
226+
227+
228+func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
229+
230+
231+let factoryAddress = getStringOrFail(this, keyFactoryAddress())
232+
233+let factoryContract = addressFromStringValue(factoryAddress)
234+
235+let factoryCfg = readFactoryCfgOrFail(factoryContract)
236+
237+let emissionContract = getEmissionAddressOrFail(factoryCfg)
238+
239+let boostingContract = getBoostingAddressOrFail(factoryCfg)
240+
241+func keyNextUser (lpAssetId) = makeString(["%s%s", lpAssetId, "nextUser"], SEP)
242+
243+
244+func getUsersListName (lpAssetId) = makeString(["users", lpAssetId], SEP)
245+
246+
247+func keyListHead (listName) = makeString(["%s%s%s", listName, "head"], SEP)
248+
249+
250+func keyListSize (listName) = makeString(["%s%s%s", listName, "size"], SEP)
251+
252+
253+func keyListPrev (listName,id) = makeString(["%s%s%s%s", listName, id, "prev"], SEP)
254+
255+
256+func keyListNext (listName,id) = makeString(["%s%s%s%s", listName, id, "next"], SEP)
257+
258+
259+func containsNode (listName,id) = {
260+    let headOrUnit = getString(this, keyListHead(listName))
261+    let prevOrUnit = getString(this, keyListPrev(listName, id))
262+    let nextOrUnit = getString(this, keyListNext(listName, id))
263+    if (if ((id == valueOrElse(headOrUnit, "")))
264+        then true
265+        else (prevOrUnit != unit))
266+        then true
267+        else (nextOrUnit != unit)
82268     }
83269 
84270 
85-func getStrOrFail (address,key) = {
86-    let @ = getValueOrFail(address, key, 0)
87-    if ($isInstanceOf(@, "String"))
88-        then @
89-        else throw("Couldn't cast Int|String to String")
271+func insertNodeActions (listName,id) = {
272+    let headOrUnit = getString(this, keyListHead(listName))
273+    let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
274+    let checkNode = if (!(containsNode(listName, id)))
275+        then true
276+        else throw("Node exists")
277+    if ((checkNode == checkNode))
278+        then (([IntegerEntry(keyListSize(listName), (listSize + 1))] ++ (if ((headOrUnit != unit))
279+            then [StringEntry(keyListNext(listName, id), value(headOrUnit)), StringEntry(keyListPrev(listName, value(headOrUnit)), id)]
280+            else nil)) ++ [StringEntry(keyListHead(listName), id)])
281+        else throw("Strict value is not equal to itself.")
90282     }
91283 
92284 
93-func getStrOrUnit (address,key) = {
94-    let @ = getValueOrFail(address, key, 0)
95-    if ($isInstanceOf(@, "String"))
96-        then @
97-        else unit
285+func deleteNodeActions (listName,id) = {
286+    let headOrUnit = getString(this, keyListHead(listName))
287+    let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
288+    let prevOrUnit = getString(this, keyListPrev(listName, id))
289+    let nextOrUnit = getString(this, keyListNext(listName, id))
290+    ([IntegerEntry(keyListSize(listName), (listSize - 1))] ++ (if (if ((prevOrUnit != unit))
291+        then (nextOrUnit != unit)
292+        else false)
293+        then [StringEntry(keyListNext(listName, value(prevOrUnit)), value(nextOrUnit)), StringEntry(keyListPrev(listName, value(nextOrUnit)), value(prevOrUnit)), DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, id))]
294+        else if ((nextOrUnit != unit))
295+            then [StringEntry(keyListHead(listName), value(nextOrUnit)), DeleteEntry(keyListNext(listName, id)), DeleteEntry(keyListPrev(listName, value(nextOrUnit)))]
296+            else if ((prevOrUnit != unit))
297+                then [DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, value(prevOrUnit)))]
298+                else if ((id == valueOrElse(headOrUnit, "")))
299+                    then [DeleteEntry(keyListHead(listName))]
300+                    else throw(((("invalid node: " + listName) + ".") + id))))
98301     }
99302 
100303 
101-func getIntOrFail (address,key) = {
102-    let @ = getValueOrFail(address, key, 0)
103-    if ($isInstanceOf(@, "Int"))
104-        then @
105-        else throw("Couldn't cast Int|String to Int")
304+func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == zeroBigInt))
305+    then (stakedByUser > zeroBigInt)
306+    else false)
307+    then zeroBigInt
308+    else if ((stakedByUser == zeroBigInt))
309+        then wxPerLpIntegralNew
310+        else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > zeroBigInt))
311+            then (stakedByUser > zeroBigInt)
312+            else false)
313+            then value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))
314+            else throw("calcWxPerLpIntegralUserLast: unexpected state")
315+
316+
317+func refreshPoolINTEGRALS (lpAssetIdStr,poolAddressStr,lpDeltaAmount) = {
318+    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
319+    let stakedTotal = toBigInt(readStaked(stakedTotalKEY))
320+    let nonZeroStakedTotal = if ((stakedTotal == zeroBigInt))
321+        then oneBigInt
322+        else stakedTotal
323+    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
324+    let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
325+    let MULT3 = 1000
326+    let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
327+    let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
328+    let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
329+    let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
330+    let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
331+    let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
332+    let wxPerLpIntegral = getBigIntFromStringOrZero(this, wxPerLpIntegralKEY)
333+    let wxPerLpOrZeroX3 = 0
334+    let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
335+    let wxPerLpX3 = if ((wxPerLpOrZeroX3 != 0))
336+        then toBigInt(wxPerLpOrZeroX3)
337+        else fraction(toBigInt(poolWxEmissionPerBlockX3), toBigInt(MULT8), nonZeroStakedTotal)
338+    let stakedTotalNew = (stakedTotal + toBigInt(lpDeltaAmount))
339+    let nonZeroStakedTotalNew = if ((stakedTotalNew == zeroBigInt))
340+        then oneBigInt
341+        else stakedTotalNew
342+    let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX3 * toBigInt(dh)))
343+    let wxPerLpX3New = (toBigInt(poolWxEmissionPerBlockX3) / nonZeroStakedTotalNew)
344+    let wxPerLpIntegralLastUpdHeightNew = height
345+    let debug = makeString([toString(wxPerLpIntegralNew), toString(dh), toString(wxPerLpX3), toString(stakedTotal), toString(poolWxEmissionPerBlockX3), toString(wxEmissionPerBlockX3), toString(poolWeight)], "::")
346+    $Tuple3(wxPerLpIntegralNew, [StringEntry(wxPerLpIntegralKEY, toString(wxPerLpIntegralNew)), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), StringEntry(wxPerLpKEY, toString(wxPerLpX3New))], debug)
106347     }
107348 
108349 
109-func getIntOrUnit (address,key) = {
110-    let @ = getValueOrFail(address, key, 0)
111-    if ($isInstanceOf(@, "Int"))
112-        then @
113-        else unit
350+func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
351+    let $t01424614368 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, lpDeltaAmount)
352+    let wxPerLpIntegralNew = $t01424614368._1
353+    let poolIntegralSTATE = $t01424614368._2
354+    let poolDEBUG = $t01424614368._3
355+    let MULT3 = 1000
356+    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
357+    let stakedByUser = readStaked(stakedByUserKEY)
358+    let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
359+    let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
360+    let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
361+    let wxToClaimUser = getBigIntFromStringOrZero(this, wxToClaimUserKEY)
362+    let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
363+    let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(toBigInt(stakedByUser), toBigInt(wxPerLpIntegralUserLastUpdHeightOrZero), wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
364+    let MULT11 = (MULT8 * MULT3)
365+    let wxToClaimUserNew = max([(wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), toBigInt(stakedByUser), toBigInt(MULT11))), zeroBigInt])
366+    let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
367+    let wxPerLpIntegralUserLastUpdHeightNew = height
368+    let debug = makeString([toString(wxToClaimUser), toString(wxPerLpIntegralUserLast), toString(stakedByUser), poolDEBUG, toString(height)], "::")
369+    $Tuple3(wxToClaimUserNew, (poolIntegralSTATE ++ [StringEntry(wxToClaimUserKEY, toString(wxToClaimUserNew)), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), StringEntry(wxPerLpIntegralUserLastKEY, toString(wxPerLpIntegralUserLastNew))]), debug)
114370     }
115-
116-
117-func isVerified (assetId) = (valueOrElse(getInteger(keyStatus(assetId)), statusUnverified) == statusVerified)
118-
119-
120-func getLabels () = match getString(keyLabels()) {
121-    case s: String => 
122-        if ((size(s) == 0))
123-            then nil
124-            else split(s, SEP)
125-    case _ => 
126-        nil
127-}
128-
129-
130-func getAssetLabels (assetId) = match getString(keyAssetLabels(assetId)) {
131-    case s: String => 
132-        if ((size(s) == 0))
133-            then nil
134-            else split(s, SEP)
135-    case _ => 
136-        nil
137-}
138371 
139372 
140373 func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
141374     case s: String => 
142375         fromBase58String(s)
143376     case _: Unit => 
144377         unit
145378     case _ => 
146379         throw("Match error")
147380 }
148381 
149382 
150383 func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
151384     case s: String => 
152385         fromBase58String(s)
153386     case _: Unit => 
154387         unit
155388     case _ => 
156389         throw("Match error")
157390 }
158391 
159392 
393+let permissionDeniedError = throw("Permission denied")
394+
395+func mustThis (i) = if ((i.caller == this))
396+    then true
397+    else permissionDeniedError
398+
399+
160400 func mustManager (i) = match managerPublicKeyOrUnit() {
161401     case pk: ByteVector => 
162402         if ((i.callerPublicKey == pk))
163403             then true
164-            else throwPD()
404+            else permissionDeniedError
165405     case _: Unit => 
166406         if ((i.caller == this))
167407             then true
168-            else throwPD()
408+            else permissionDeniedError
169409     case _ => 
170410         throw("Match error")
171411 }
172412 
173413 
174-func mustAdmin (i) = {
175-    let adminPKs = split(valueOrElse(getString(keyAdminPubKeys()), EMPTY), SEP)
176-    if (containsElement(adminPKs, toBase58String(i.callerPublicKey)))
177-        then true
178-        else {
179-            let isManager = mustManager(i)
180-            if ((isManager == isManager))
181-                then true
182-                else throw("Strict value is not equal to itself.")
183-            }
184-    }
185-
186-
187-func isCreated (assetId) = valueOrElse(getBoolean(keyCreated(assetId)), false)
188-
189-
190-func verifiedToStatus (verified) = if (verified)
191-    then statusVerified
192-    else statusUnverified
193-
194-
195-func addLabelActions (assetId,label,throwOnError) = {
196-    let labels = getLabels()
197-    let assetLabels = getAssetLabels(assetId)
198-    let checkLabel = if (containsElement(labels, label))
199-        then true
200-        else throw("Label doesn't exist")
201-    if ((checkLabel == checkLabel))
202-        then {
203-            let newAssetLabels = if (containsElement(assetLabels, label))
204-                then if (throwOnError)
205-                    then throw("Label has already been added")
206-                    else assetLabels
207-                else (assetLabels :+ label)
208-[StringEntry(keyAssetLabels(assetId), makeString(newAssetLabels, SEP))]
209-            }
210-        else throw("Strict value is not equal to itself.")
211-    }
212-
213-
214-func deleteLabelActions (assetId,label,throwOnError) = {
215-    let assetLabels = getAssetLabels(assetId)
216-    let newAssetLabels = if (containsElement(assetLabels, label))
217-        then removeByIndex(assetLabels, value(indexOf(assetLabels, label)))
218-        else if (throwOnError)
219-            then throw("Label wasn't added")
220-            else assetLabels
221-[StringEntry(keyAssetLabels(assetId), makeString(newAssetLabels, SEP))]
222-    }
223-
224-
225-func setVerifiedActions (assetId,verified) = {
226-    let labelCommunityVerifiedActions = if (verified)
227-        then addLabelActions(assetId, labelCommunityVerified, false)
228-        else deleteLabelActions(assetId, labelCommunityVerified, false)
229-    ([IntegerEntry(keyStatus(assetId), verifiedToStatus(verified))] ++ labelCommunityVerifiedActions)
230-    }
231-
232-
233-func updateTickerActions (assetId,ticker) = {
234-    let checkTicker = {
235-        let linkedAssetIdOrUnit = getString(keyTickerToAssetId(ticker))
236-        let tickerIsValid = if ((ticker != ""))
237-            then if ((linkedAssetIdOrUnit == unit))
238-                then true
239-                else (value(linkedAssetIdOrUnit) == assetId)
240-            else false
241-        if (tickerIsValid)
242-            then true
243-            else throw("Invalid ticker")
244-        }
245-    if ((checkTicker == checkTicker))
246-        then [StringEntry(keyAssetIdToTicker(assetId), ticker), StringEntry(keyTickerToAssetId(ticker), assetId)]
247-        else throw("Strict value is not equal to itself.")
248-    }
249-
250-
251414 @Callable(i)
252-func constructor (userPoolsContract,labels) = {
415+func constructor (factoryAddressStr) = {
253416     let checkCaller = mustManager(i)
254417     if ((checkCaller == checkCaller))
255-        then {
256-            let checksAddress = valueOrErrorMessage(addressFromString(userPoolsContract), "Invalid address")
257-            if ((checksAddress == checksAddress))
258-                then [StringEntry(keyUserPoolsContract(), userPoolsContract), StringEntry(keyLabels(), makeString((defaultLabels ++ labels), SEP))]
259-                else throw("Strict value is not equal to itself.")
260-            }
418+        then [StringEntry(keyFactoryAddress(), factoryAddressStr)]
261419         else throw("Strict value is not equal to itself.")
262420     }
263421 
264422 
265423 
266424 @Callable(i)
267425 func constructorV2 (votingEmissionContract) = {
268-    let checkCaller = mustManager(i)
269-    if ((checkCaller == checkCaller))
270-        then {
271-            let checkAddress = valueOrErrorMessage(addressFromString(votingEmissionContract), "invalid voting emission contract address")
272-            if ((checkAddress == checkAddress))
273-                then [StringEntry(keyVotingEmissionContract(), votingEmissionContract)]
274-                else throw("Strict value is not equal to itself.")
275-            }
276-        else throw("Strict value is not equal to itself.")
277-    }
278-
279-
280-
281-@Callable(i)
282-func addAssetsLink (amountAsset,priceAsset,lpAsset) = {
283-    let checkCaller = mustAdmin(i)
284-    if ((checkCaller == checkCaller))
285-        then [StringEntry(keyAmountAndPriceAssetsToLpAsset(amountAsset, priceAsset), lpAsset), StringEntry(keyLpAssetToAmountAndPriceAssets(lpAsset), makeString([amountAsset, priceAsset], SEP))]
286-        else throw("Strict value is not equal to itself.")
287-    }
288-
289-
290-
291-@Callable(i)
292-func increaseAssetPoolsNumber (assetId) = {
293-    let checkCaller = mustAdmin(i)
294-    if ((checkCaller == checkCaller))
295-        then {
296-            let assetPoolsNumberKey = keyAssetPoolsNumber(assetId)
297-            let assetPoolsNumber = valueOrElse(getInteger(assetPoolsNumberKey), 0)
298-[IntegerEntry(assetPoolsNumberKey, (assetPoolsNumber + 1))]
299-            }
300-        else throw("Strict value is not equal to itself.")
301-    }
302-
303-
304-
305-@Callable(i)
306-func createLabel (label) = {
307-    let labels = getLabels()
308-    let checkCaller = mustAdmin(i)
309-    if ((checkCaller == checkCaller))
310-        then {
311-            let checkLabel = [if (!(contains(label, SEP)))
312-                then true
313-                else throw("Invalid label name"), if (!(containsElement(labels, label)))
314-                then true
315-                else throw("Label exists")]
316-            if ((checkLabel == checkLabel))
317-                then [StringEntry(keyLabels(), makeString((labels :+ label), SEP))]
318-                else throw("Strict value is not equal to itself.")
319-            }
320-        else throw("Strict value is not equal to itself.")
321-    }
322-
323-
324-
325-@Callable(i)
326-func dropLabel (label) = {
327-    let labels = getLabels()
328-    let checkCaller = mustManager(i)
329-    if ((checkCaller == checkCaller))
330-        then {
331-            let checkLabel = if (containsElement(labels, label))
332-                then true
333-                else throw("Label doesn't exist")
334-            if ((checkLabel == checkLabel))
335-                then [StringEntry(keyLabels(), makeString(removeByIndex(labels, value(indexOf(labels, label))), SEP))]
336-                else throw("Strict value is not equal to itself.")
337-            }
338-        else throw("Strict value is not equal to itself.")
339-    }
340-
341-
342-
343-@Callable(i)
344-func addLabel (assetId,label) = {
345-    let checkCaller = mustAdmin(i)
346-    if ((checkCaller == checkCaller))
347-        then addLabelActions(assetId, label, true)
348-        else throw("Strict value is not equal to itself.")
349-    }
350-
351-
352-
353-@Callable(i)
354-func deleteLabel (assetId,label) = {
355-    let checkCaller = mustAdmin(i)
356-    if ((checkCaller == checkCaller))
357-        then deleteLabelActions(assetId, label, true)
358-        else throw("Strict value is not equal to itself.")
359-    }
360-
361-
362-
363-@Callable(i)
364-func updateTicker (assetId,ticker) = {
365-    let checkCaller = mustAdmin(i)
366-    if ((checkCaller == checkCaller))
367-        then {
368-            let checkAsset = if (isCreated(assetId))
369-                then true
370-                else throwNoAsset()
371-            if ((checkAsset == checkAsset))
372-                then updateTickerActions(assetId, ticker)
373-                else throw("Strict value is not equal to itself.")
374-            }
375-        else throw("Strict value is not equal to itself.")
376-    }
377-
378-
379-
380-@Callable(i)
381-func deleteTicker (assetId) = {
382-    let checkCaller = mustAdmin(i)
383-    if ((checkCaller == checkCaller))
384-        then {
385-            let ticker = valueOrErrorMessage(getString(keyAssetIdToTicker(assetId)), "Invalid asset")
386-[DeleteEntry(keyAssetIdToTicker(assetId)), DeleteEntry(keyTickerToAssetId(ticker))]
387-            }
388-        else throw("Strict value is not equal to itself.")
389-    }
390-
391-
392-
393-@Callable(i)
394-func createOrUpdate (assetId,logo,verified) = {
395-    let checkCaller = mustAdmin(i)
396-    if ((checkCaller == checkCaller))
397-        then {
398-            let isCreatedNow = !(isCreated(assetId))
399-            if ((isCreatedNow == isCreatedNow))
400-                then {
401-                    let setLogoActions = if ((logo == ""))
402-                        then nil
403-                        else [StringEntry(keyLogo(assetId), logo)]
404-                    $Tuple2((([BooleanEntry(keyCreated(assetId), true)] ++ setLogoActions) ++ setVerifiedActions(assetId, verified)), isCreatedNow)
405-                    }
406-                else throw("Strict value is not equal to itself.")
407-            }
408-        else throw("Strict value is not equal to itself.")
409-    }
410-
411-
412-
413-@Callable(i)
414-func setLogo (assetId,logo) = {
415-    let checks = [mustAdmin(i), if (isCreated(assetId))
426+    let cheks = [mustManager(i), if ((addressFromString(votingEmissionContract) != unit))
416427         then true
417-        else throwNoAsset()]
418-    if ((checks == checks))
419-        then {
420-            let action = if ((logo == ""))
421-                then DeleteEntry(keyLogo(assetId))
422-                else StringEntry(keyLogo(assetId), logo)
423-[action]
424-            }
425-        else throw("Strict value is not equal to itself.")
426-    }
427-
428-
429-
430-@Callable(i)
431-func setVerified (assetId,verified) = {
432-    let checks = [mustAdmin(i), if (isCreated(assetId))
433-        then true
434-        else throwNoAsset()]
435-    if ((checks == checks))
436-        then {
437-            let onVerificationLossInv = if (!(verified))
438-                then {
439-                    let votingEmissionContract = valueOrErrorMessage(addressFromString(getStrOrFail(this, keyVotingEmissionContract())), "invalid voting emission contract address")
440-                    invoke(votingEmissionContract, "onVerificationLoss", [assetId], nil)
441-                    }
442-                else unit
443-            if ((onVerificationLossInv == onVerificationLossInv))
444-                then $Tuple2(setVerifiedActions(assetId, verified), unit)
445-                else throw("Strict value is not equal to itself.")
446-            }
447-        else throw("Strict value is not equal to itself.")
448-    }
449-
450-
451-
452-@Callable(i)
453-func onEliminate (assetId) = {
454-    let poolsNumber = valueOrElse(getInteger(keyAssetPoolsNumber(assetId)), 0)
455-    let actions = if ((poolsNumber > 0))
456-        then nil
457-        else [DeleteEntry(keyLogo(assetId))]
458-    $Tuple2(actions, unit)
459-    }
460-
461-
462-
463-@Callable(i)
464-func setAdmins (adminPubKeys) = {
465-    let checkCaller = mustManager(i)
466-    if ((checkCaller == checkCaller))
467-        then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))]
428+        else "invalid voting emission contract address"]
429+    if ((cheks == cheks))
430+        then [StringEntry(keyVotingEmissionContract(), votingEmissionContract)]
468431         else throw("Strict value is not equal to itself.")
469432     }
470433 
471434 
472435 
473436 @Callable(i)
474437 func setManager (pendingManagerPublicKey) = {
475438     let checkCaller = mustManager(i)
476439     if ((checkCaller == checkCaller))
477440         then {
478441             let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
479442             if ((checkManagerPublicKey == checkManagerPublicKey))
480443                 then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
481444                 else throw("Strict value is not equal to itself.")
482445             }
483446         else throw("Strict value is not equal to itself.")
484447     }
485448 
486449 
487450 
488451 @Callable(i)
489452 func confirmManager () = {
490453     let pm = pendingManagerPublicKeyOrUnit()
491454     let hasPM = if (isDefined(pm))
492455         then true
493456         else throw("No pending manager")
494457     if ((hasPM == hasPM))
495458         then {
496459             let checkPM = if ((i.callerPublicKey == value(pm)))
497460                 then true
498461                 else throw("You are not pending manager")
499462             if ((checkPM == checkPM))
500463                 then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
501464                 else throw("Strict value is not equal to itself.")
502465             }
503466         else throw("Strict value is not equal to itself.")
504467     }
505468 
506469 
507470 
508471 @Callable(i)
509-func isVerifiedREADONLY (assetId) = $Tuple2(nil, isVerified(assetId))
472+func stake () = {
473+    let migration = if ((getBinary(this, keyMigrator) != unit))
474+        then throw("maintenance")
475+        else unit
476+    if ((migration == migration))
477+        then if ((size(i.payments) != 1))
478+            then throw("invalid payment - exact one payment must be attached")
479+            else {
480+                let pmt = i.payments[0]
481+                let lpAssetId = value(pmt.assetId)
482+                let lpAssetIdStr = toBase58String(lpAssetId)
483+                let amount = pmt.amount
484+                let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
485+                let callerStr = toString(i.caller)
486+                let userAddressStr = if ((callerStr == poolAddressStr))
487+                    then toString(i.originCaller)
488+                    else callerStr
489+                let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
490+                let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
491+                let stakedByUser = readStaked(stakedByUserKEY)
492+                let stakedTotal = readStaked(stakedTotalKEY)
493+                let $t01893619053 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
494+                let wxToClaimUserNew = $t01893619053._1
495+                let integralSTATE = $t01893619053._2
496+                let debug = $t01893619053._3
497+                let listName = getUsersListName(lpAssetIdStr)
498+                let listActions = if (containsNode(listName, userAddressStr))
499+                    then nil
500+                    else insertNodeActions(listName, userAddressStr)
501+                (([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE) ++ listActions)
502+                }
503+        else throw("Strict value is not equal to itself.")
504+    }
505+
506+
507+
508+@Callable(i)
509+func unstake (lpAssetIdStr,amount) = {
510+    let migration = if ((getBinary(this, keyMigrator) != unit))
511+        then throw("maintenance")
512+        else unit
513+    if ((migration == migration))
514+        then {
515+            let lpAssetId = fromBase58String(lpAssetIdStr)
516+            let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
517+            let poolAddon = valueOrElse(getString(this, keyStablePoolAddonAddr()), poolAddressStr)
518+            let callerStr = toString(i.caller)
519+            let userAddressStr = if (if ((callerStr == poolAddressStr))
520+                then true
521+                else (callerStr == poolAddon))
522+                then toString(i.originCaller)
523+                else callerStr
524+            let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
525+            let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
526+            let stakedByUser = readStaked(stakedByUserKEY)
527+            let stakedTotal = readStaked(stakedTotalKEY)
528+            let integralSTATE = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, -(amount))._2
529+            let listName = getUsersListName(lpAssetIdStr)
530+            let listActions = if (if (containsNode(listName, userAddressStr))
531+                then (amount == stakedByUser)
532+                else false)
533+                then deleteNodeActions(listName, userAddressStr)
534+                else nil
535+            let claimedByUser = getBigIntFromStringOrZero(this, keyClaimedByUser(lpAssetIdStr, userAddressStr))
536+            let poolAddress = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
537+            let wxToClaimUserNew = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddress, 0)._1
538+            let availableToClaim = (wxToClaimUserNew - claimedByUser)
539+            let r = if ((availableToClaim > zeroBigInt))
540+                then invoke(this, "claimWxINTERNAL", [lpAssetIdStr, userAddressStr], nil)
541+                else unit
542+            if ((r == r))
543+                then if ((amount > stakedByUser))
544+                    then throw("passed amount is less then available")
545+                    else (([IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE) ++ listActions)
546+                else throw("Strict value is not equal to itself.")
547+            }
548+        else throw("Strict value is not equal to itself.")
549+    }
550+
551+
552+
553+@Callable(i)
554+func claimWx (lpAssetIdStr) = {
555+    let userAddressStr = toString(i.caller)
556+    let result = invoke(this, "claimWxINTERNAL", [lpAssetIdStr, userAddressStr], nil)
557+    $Tuple2(nil, result)
558+    }
559+
560+
561+
562+@Callable(i)
563+func claimWxINTERNAL (lpAssetIdStr,userAddressStr) = {
564+    let checkCaller = mustThis(i)
565+    if ((checkCaller == checkCaller))
566+        then {
567+            let userAddress = valueOrErrorMessage(addressFromString(userAddressStr), "claimWxINTERNAL: invalid user address")
568+            let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
569+            let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
570+            let claimedTotalKEY = keyClaimedTotal(lpAssetIdStr)
571+            let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(lpAssetIdStr, userAddressStr)
572+            let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(lpAssetIdStr, userAddressStr)
573+            let claimedByUser = getBigIntFromStringOrZero(this, claimedByUserKEY)
574+            let claimedByUserMinReward = getBigIntFromStringOrZero(this, claimedByUserMinRewardKEY)
575+            let claimedByUserBoostReward = getBigIntFromStringOrZero(this, claimedByUserBoostRewardKEY)
576+            let claimedTotal = getBigIntFromStringOrZero(this, claimedTotalKEY)
577+            let $t02288422996 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
578+            let wxToClaimUserNew = $t02288422996._1
579+            let integralSTATE = $t02288422996._2
580+            let debug = $t02288422996._3
581+            let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
582+            if ((zeroBigInt >= availableToClaim))
583+                then throw("nothing to claim")
584+                else {
585+                    let wxAmountBoostTotal = max([asInt(asAnyList(invoke(boostingContract, "claimWxBoost", [lpAssetIdStr, userAddressStr], nil))[0]), 0])
586+                    let minRewardPart = availableToClaim
587+                    let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
588+                    let wxAssetId = asByteVector(asAnyList(invoke(emissionContract, "emit", [toInt(minRewardPart)], nil))[0])
589+                    let emitBoost = asAnyList(invoke(emissionContract, "emit", [toInt(boostRewardPart)], nil))
590+                    if ((emitBoost == emitBoost))
591+                        then {
592+                            let claimedByUserValue = (claimedByUser + availableToClaim)
593+                            let claimedByUserMinRewardPlusPart = (claimedByUserMinReward + minRewardPart)
594+                            let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserMinReward + minRewardPart)
595+                            let claimedTotalPlusAvailableToClaim = (claimedByUserMinReward + minRewardPart)
596+[StringEntry(claimedByUserKEY, toString(claimedByUserValue)), StringEntry(claimedByUserMinRewardKEY, toString(claimedByUserMinRewardPlusPart)), StringEntry(claimedByUserBoostRewardKEY, toString(claimedByUserBoostRewardPlusBoostRewardPart)), StringEntry(claimedTotalKEY, toString(claimedTotalPlusAvailableToClaim)), ScriptTransfer(userAddress, toInt(minRewardPart), wxAssetId), ScriptTransfer(userAddress, toInt(boostRewardPart), wxAssetId), OperationHistoryEntry("claim", userAddressStr, lpAssetIdStr, toInt(availableToClaim), i.transactionId)]
597+                            }
598+                        else throw("Strict value is not equal to itself.")
599+                    }
600+            }
601+        else throw("Strict value is not equal to itself.")
602+    }
603+
604+
605+
606+@Callable(i)
607+func claimWxREADONLY (lpAssetIdStr,userAddressStr) = {
608+    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
609+    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
610+    let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
611+    let stakedByUser = readStaked(stakedByUserKEY)
612+    let stakedTotal = readStaked(stakedTotalKEY)
613+    let claimedByUser = getBigIntFromStringOrZero(this, claimedByUserKEY)
614+    let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
615+    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
616+    let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
617+    let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
618+    let passedBlocks = if ((emissionStartBlock > height))
619+        then 0
620+        else (height - emissionStartBlock)
621+    let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, POOLWEIGHTMULT)
622+    let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
623+    let $t02563825750 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
624+    let wxToClaimUserNew = $t02563825750._1
625+    let integralSTATE = $t02563825750._2
626+    let debug = $t02563825750._3
627+    let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
628+    let boostInvResult = asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [lpAssetIdStr, userAddressStr], nil))
629+    let wxAmountBoostTotal = max([asInt(boostInvResult[0]), 0])
630+    let boostDebug = asString(boostInvResult[1])
631+    let minRewardPart = availableToClaim
632+    let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
633+    let totalReward = (minRewardPart + boostRewardPart)
634+    $Tuple2(nil, makeString(["%s%s%d%d%d%d%s", lpAssetIdStr, userAddressStr, toString(totalReward), toString(claimedByUser), toString(minRewardPart), toString(boostRewardPart), ((((debug + "::") + toString(userWxReward)) + "::BOOST::") + boostDebug)], SEP))
635+    }
636+
637+
638+
639+@Callable(i)
640+func usersListTraversal (lpAssetId) = {
641+    let checkCaller = if ((toBase58String(i.caller.bytes) == valueOrElse(getString(this, keyVotingEmissionContract()), "")))
642+        then true
643+        else mustManager(i)
644+    if ((checkCaller == checkCaller))
645+        then {
646+            let listName = getUsersListName(lpAssetId)
647+            let userOrUnit = getString(keyNextUser(lpAssetId))
648+            let headOrUnit = getString(keyListHead(listName))
649+            match userOrUnit {
650+                case _: Unit => 
651+                    match headOrUnit {
652+                        case _: Unit => 
653+                            $Tuple2(nil, false)
654+                        case head: String => 
655+                            $Tuple2([StringEntry(keyNextUser(lpAssetId), head)], true)
656+                        case _ => 
657+                            throw("Match error")
658+                    }
659+                case userAddress: String => 
660+                    let claimedByUser = getBigIntFromStringOrZero(this, keyClaimedByUser(lpAssetId, userAddress))
661+                    let poolAddress = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
662+                    let wxToClaimUserNew = refreshINTEGRALS(lpAssetId, userAddress, poolAddress, 0)._1
663+                    let availableToClaim = (wxToClaimUserNew - claimedByUser)
664+                    let r = if ((availableToClaim > zeroBigInt))
665+                        then invoke(this, "claimWxINTERNAL", [lpAssetId, userAddress], nil)
666+                        else unit
667+                    if ((r == r))
668+                        then {
669+                            let nextUserOrUnit = getString(keyListNext(listName, userAddress))
670+                            match nextUserOrUnit {
671+                                case _: Unit => 
672+                                    $Tuple2([DeleteEntry(keyNextUser(lpAssetId))], false)
673+                                case nextUser: String => 
674+                                    $Tuple2([StringEntry(keyNextUser(lpAssetId), nextUser)], true)
675+                                case _ => 
676+                                    throw("Match error")
677+                            }
678+                            }
679+                        else throw("Strict value is not equal to itself.")
680+                case _ => 
681+                    throw("Match error")
682+            }
683+            }
684+        else throw("Strict value is not equal to itself.")
685+    }
686+
687+
688+
689+@Callable(i)
690+func onModifyWeight (lpAssetIdStr,poolAddressStr) = if ((i.caller != factoryContract))
691+    then throw("permissions denied")
692+    else {
693+        let $t02810128211 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
694+        let wxPerLpIntegralNew = $t02810128211._1
695+        let poolIntegralSTATE = $t02810128211._2
696+        let poolDEBUG = $t02810128211._3
697+        poolIntegralSTATE
698+        }
699+
700+
701+
702+@Callable(i)
703+func setMigrator (pk) = {
704+    let checkCaller = mustManager(i)
705+    if ((checkCaller == checkCaller))
706+        then if ((pk == ""))
707+            then [DeleteEntry(keyMigrator)]
708+            else [BinaryEntry(keyMigrator, fromBase58String(pk))]
709+        else throw("Strict value is not equal to itself.")
710+    }
510711 
511712 
512713 @Verifier(tx)
513714 func verify () = {
514715     let targetPublicKey =     match managerPublicKeyOrUnit() {
515716         case pk: ByteVector => 
516717             pk
517718         case _: Unit => 
518719             tx.senderPublicKey
519720         case _ => 
520721             throw("Match error")
521722     }
522-    sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
723+    if (sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey))
724+        then true
725+        else sigVerify(tx.bodyBytes, tx.proofs[0], getBinaryValue(this, keyMigrator))
523726     }
524727 
github/deemru/w8io/786bc32 
118.65 ms ◑