w8 · tx · 6ZY···eBP

tx · 6ZYEWT36y8HhEf4MuifTYHDQt2SqYvpZgxyTNooAXeBP

3MsXpzisJAwnzUr7XrEoW1BZo4U6rw4tsYK:  -0.09000000 Waves

2023.02.06 13:23 [2437625] smart account 3MsXpzisJAwnzUr7XrEoW1BZo4U6rw4tsYK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6ZYEWT36y8HhEf4MuifTYHDQt2SqYvpZgxyTNooAXeBP",
    "fee": 9000000,
    "feeAssetId": null,
    "timestamp": 1675678954736,
    "version": 2,
    "chainId": 84,
    "sender": "3MsXpzisJAwnzUr7XrEoW1BZo4U6rw4tsYK",
    "senderPublicKey": "FFdBua5rzzMkZebvsvmN7sAdU7XhFK8QNJ3hiwwxAYRA",
    "proofs": [
        "4VeZH8fAEzyFykWKBxfm2eURUDubu5aL2j3oykLXNfaBZFghoacuzczXL71rah7GucKmzPucZUWN1VeiHuBMh7bz",
        "2E318y8GEwnfLBNFb8eRfZcUyRgA77ZgcaqDugpZWM5Skohjg1uT5jB1KBma23Kk63RjfsrHdsvKSu9sLPxVvJQA"
    ],
    "script": "base64:BgJiCAISAwoBCBIDCgEIEgMKAQgSBAoCCAESBQoDAggBEgUKAwgBARIECgIICBIECgIICBIECgIIARIFCgMCCAESAwoBCBIECgIIAhIDCgEIEgMKARgSAwoBGBIECgIICBIAEgBgAAdrQWN0aXZlAgZhY3RpdmUAC2tBY3RpdmVHbG9iAhRhY3RpdmVfYWxsX2NvbnRyYWN0cwAPa0RlcHJlY2F0ZWRQb29sAgtkZXByZWNhdGVkXwAGa0NhdXNlAg5zaHV0ZG93bl9jYXVzZQAaa1Jld2FyZFBvb2xGcmFjdGlvbkN1cnJlbnQCHV9jdXJyZW50X3Bvb2xfZnJhY3Rpb25fcmV3YXJkABtrUmV3YXJkUG9vbEZyYWN0aW9uUHJldmlvdXMCHl9wcmV2aW91c19wb29sX2ZyYWN0aW9uX3Jld2FyZAATa0hlaWdodFBvb2xGcmFjdGlvbgIaX3Bvb2xfcmV3YXJkX3VwZGF0ZV9oZWlnaHQAG2tUb3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAIedG90YWxfcmV3YXJkX3Blcl9ibG9ja19jdXJyZW50ABxrVG90YWxSZXdhcmRQZXJCbG9ja1ByZXZpb3VzAh90b3RhbF9yZXdhcmRfcGVyX2Jsb2NrX3ByZXZpb3VzABNrUmV3YXJkVXBkYXRlSGVpZ2h0AhRyZXdhcmRfdXBkYXRlX2hlaWdodAAWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAIUX3NoYXJlX3Rva2Vuc19sb2NrZWQAFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQCFV9zaGFyZV90b2tlbnNfYmxvY2tlZAAaa1VzZXJTaGFyZVRva2Vuc0xvY2tlZFR5cGUCGl9zaGFyZV90b2tlbnNfYmxvY2tlZF90eXBlABxrVXNlclNoYXJlVG9rZW5zTG9ja2VkSGVpZ2h0Ahxfc2hhcmVfdG9rZW5zX2Jsb2NrZWRfaGVpZ2h0ABdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAIVX3NoYXJlX3Rva2Vuc192aXJ0dWFsABZrU2hhcmVUb3RhbFNoYXJlVG9rZW5zAhpfdG90YWxfc2hhcmVfdG9rZW5zX2xvY2tlZAATa1NoYXJlVG9rZW5zVmlydHVhbAIbX3RvdGFsX3NoYXJlX3Rva2Vuc192aXJ0dWFsAAtrTG9ja1BhcmFtcwIMX2xvY2tfcGFyYW1zAA1rTG9ja1dhdmVzRmVlAg5sb2NrX3dhdmVzX2ZlZQAOa1Bvb2xCb29zdENvZWYCC19ib29zdF9jb2VmABFrRmFybUxhc3RJbnRlcmVzdAIOX2xhc3RfaW50ZXJlc3QAFWtGYXJtVXNlckxhc3RJbnRlcmVzdAIOX2xhc3RfaW50ZXJlc3QAEmtCb29zdExhc3RJbnRlcmVzdAIQX2xhc3RfaW50ZXJlc3RfYgAWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAISX2xhc3RfaW50ZXJlc3RfdV9iABNrTGFzdEludGVyZXN0SGVpZ2h0AhVfbGFzdF9pbnRlcmVzdF9oZWlnaHQAB2tTV09QaWQCB1NXT1BfaWQADmtBdmFpbGFibGVTV09QAg9fYXZhaWxhYmxlX1NXT1AAEWtTd29wWWVhckVtaXNzaW9uAhJzd29wX3llYXJfZW1pc3Npb24AEGtIYXJ2ZXN0UG9vbFZvdGUCGF9oYXJ2ZXN0X3Bvb2xfdm90ZV9nU1dPUAAJa1Bvb2xWb3RlAhBfcG9vbF92b3RlX2dTV09QAA1rVXNlclBvb2xWb3RlAhBfdXNlcl92b3RlX2dTV09QAAprUG9vbFN0cnVjAgtfcG9vbF9zdHJ1YwAOa1VzZXJQb29sU3RydWMCEF91c2VyX3Bvb2xfc3RydWMAFGtIYXJ2ZXN0VXNlclBvb2xWb3RlAh1faGFydmVzdF91c2VyX3Bvb2xfdm90ZV9nU1dPUAATa0ZpcnN0SGFydmVzdEhlaWdodAIUZmlyc3RfaGFydmVzdF9oZWlnaHQADWtTaGFyZUxpbWl0RkgCHHNoYXJlX2xpbWl0X29uX2ZpcnN0X2hhcnZlc3QAE2tTdHJhdEJGYXJtSW50ZXJlc3QCFl9zdHJhdF9iX2Zhcm1faW50ZXJlc3QADWtDcG1tQ29udHJhY3QCDWNwbW1fY29udHJhY3QADWtBZG1pblB1YktleTECC2FkbWluX3B1Yl8xAA1rQWRtaW5QdWJLZXkyAgthZG1pbl9wdWJfMgANa0FkbWluUHViS2V5MwILYWRtaW5fcHViXzMAEmtBZG1pbkludm9rZVB1YktleQIQYWRtaW5faW52b2tlX3B1YgAQa01vbmV5Qm94QWRkcmVzcwIRbW9uZXlfYm94X2FkZHJlc3MADmtWb3RpbmdBZGRyZXNzAg52b3RpbmdfYWRkcmVzcwALa0dvdkFkZHJlc3MCEmdvdmVybmFuY2VfYWRkcmVzcwARa0xQRmFybWluZ0FkZHJlc3MCCmxwX2Zhcm1pbmcAFGtGYXJtaW5nVHJlYXN1cmVBZGRyAhBmYXJtaW5nX3RyZWFzdXJlAAZvcmFjbGUJAQdBZGRyZXNzAQEaAVRIE5cMwNMzzCUygLYp96dkaICr48x7S5kADnRvdGFsVm90ZVNoYXJlAIDIr6AlAAtzY2FsZVZhbHVlOACAwtcvABJsb2NrQm9vc3RDb2VmU2NhbGUA6AcAEGRlZlBvb2xCb29zdENvZWYA9AMAB2JTdGFydEgA2rHPAQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEDa2V5BAckbWF0Y2gwCQCdCAIFBm9yYWNsZQUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQGc3RyaW5nBQckbWF0Y2gwCQDZBAEFBnN0cmluZwQHbm90aGluZwUHJG1hdGNoMAkAAgEJAKwCAgUDa2V5AghpcyBlbXB0eQAMYWRtaW5QdWJLZXkxCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTEADGFkbWluUHViS2V5MgkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkyAAxhZG1pblB1YktleTMJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MwAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUQa01vbmV5Qm94QWRkcmVzcwANdm90aW5nQWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDmtWb3RpbmdBZGRyZXNzAApnb3ZBZGRyZXNzCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQULa0dvdkFkZHJlc3MAEWFkbWluSW52b2tlUHViS2V5CQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFEmtBZG1pbkludm9rZVB1YktleQAQbHBGYXJtaW5nQWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFEWtMUEZhcm1pbmdBZGRyZXNzABNmYXJtaW5nVHJlYXN1cmVBZGRyCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUUa0Zhcm1pbmdUcmVhc3VyZUFkZHIADGNwbW1Db250cmFjdAkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtDcG1tQ29udHJhY3QABmFjdGl2ZQkBEUBleHRyTmF0aXZlKDEwNTEpAgUEdGhpcwUHa0FjdGl2ZQAKYWN0aXZlR2xvYgkBC3ZhbHVlT3JFbHNlAgkAmwgCBQZvcmFjbGUFC2tBY3RpdmVHbG9iBgAEU1dPUAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzBQdrU1dPUGlkARVnZXRIZWlnaHRGaXJzdEhhcnZlc3QBBHBvb2wJAQt2YWx1ZU9yRWxzZQIJAJoIAgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wFE2tGaXJzdEhhcnZlc3RIZWlnaHQAAAEUZ2V0RkhTaGFyZUxpbWl0VG9rZW4BBHBvb2wJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQRwb29sBQ1rU2hhcmVMaW1pdEZICQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBQ1rU2hhcmVMaW1pdEZIARJnZXRUb3RhbFNoYXJlVG9rZW4BBHBvb2wJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFFmtTaGFyZVRvdGFsU2hhcmVUb2tlbnMJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUEcG9vbAUWa1NoYXJlVG90YWxTaGFyZVRva2VucwEMZ2V0UG9vbFZvdGVkAQRwb29sCQELdmFsdWVPckVsc2UCCQCaCAIFDXZvdGluZ0FkZHJlc3MJAKwCAgUEcG9vbAUJa1Bvb2xWb3RlCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFDXZvdGluZ0FkZHJlc3MJAKwCAgUEcG9vbAUKa1Bvb2xTdHJ1YwIAAgFfAAAAAAEQZ2V0VXNlclBvb2xWb3RlZAIEcG9vbAR1c2VyCQELdmFsdWVPckVsc2UCCQCaCAIFDXZvdGluZ0FkZHJlc3MJAKwCAgkArAICCQCsAgIFBHVzZXICAV8FBHBvb2wFDWtVc2VyUG9vbFZvdGUJAQt2YWx1ZU9yRWxzZQIJALYJAQkAkQMCCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUNdm90aW5nQWRkcmVzcwkArAICCQCsAgIJAKwCAgUEdXNlcgIBXwUEcG9vbAUOa1VzZXJQb29sU3RydWMCAAIBXwAAAAABD2dldFNoYXJlQXNzZXRJZAEEcG9vbAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCCQEFdmFsdWUBCQCmCAEFBHBvb2wCDnNoYXJlX2Fzc2V0X2lkAQ5hY2NvdW50QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJpZAUHJG1hdGNoMAkA8AcCBQR0aGlzBQJpZAMJAAECBQckbWF0Y2gwAgRVbml0BAV3YXZlcwUHJG1hdGNoMAgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAAIBAgtNYXRjaCBlcnJvcgEOY2FsY1NjYWxlVmFsdWUCCGFzc2V0SWQxCGFzc2V0SWQyBBBhc3NldElkMURlY2ltYWxzCAkBBXZhbHVlAQkA7AcBBQhhc3NldElkMQhkZWNpbWFscwQQYXNzZXRJZDJEZWNpbWFscwgJAQV2YWx1ZQEJAOwHAQUIYXNzZXRJZDIIZGVjaW1hbHMEC3NjYWxlRGlnaXRzCQBkAgkAZQIFEGFzc2V0SWQyRGVjaW1hbHMFEGFzc2V0SWQxRGVjaW1hbHMACAkAbAYACgAABQtzY2FsZURpZ2l0cwAAAAAFBERPV04BEXVzZXJBdmFpbGFibGVTV09QAgRwb29sBHVzZXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUOa0F2YWlsYWJsZVNXT1AAAAEKcmV3YXJkSW5mbwEEcG9vbAQadG90YWxSZXdhcmRQZXJCbG9ja0N1cnJlbnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQpnb3ZBZGRyZXNzBRtrVG90YWxSZXdhcmRQZXJCbG9ja0N1cnJlbnQJAKwCAgkArAICCQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBRtrVG90YWxSZXdhcmRQZXJCbG9ja0N1cnJlbnQCDCBhdCBhZGRyZXNzIAkApQgBBQpnb3ZBZGRyZXNzBBt0b3RhbFJld2FyZFBlckJsb2NrUHJldmlvdXMJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQpnb3ZBZGRyZXNzBRxrVG90YWxSZXdhcmRQZXJCbG9ja1ByZXZpb3VzCQCsAgIJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUca1RvdGFsUmV3YXJkUGVyQmxvY2tQcmV2aW91cwIMIGF0IGFkZHJlc3MgCQClCAEFCmdvdkFkZHJlc3MEGXJld2FyZFBvb2xGcmFjdGlvbkN1cnJlbnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQpnb3ZBZGRyZXNzCQCsAgIFBHBvb2wFGmtSZXdhcmRQb29sRnJhY3Rpb25DdXJyZW50CQCsAgIJAKwCAgkArAICCQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBQRwb29sBRprUmV3YXJkUG9vbEZyYWN0aW9uQ3VycmVudAIMIGF0IGFkZHJlc3MgCQClCAEFCmdvdkFkZHJlc3MEEnJld2FyZFVwZGF0ZUhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCmdvdkFkZHJlc3MFE2tSZXdhcmRVcGRhdGVIZWlnaHQJAKwCAgkArAICCQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBRNrUmV3YXJkVXBkYXRlSGVpZ2h0AgwgYXQgYWRkcmVzcyAJAKUIAQUKZ292QWRkcmVzcwQWcG9vbFJld2FyZFVwZGF0ZUhlaWdodAkBC3ZhbHVlT3JFbHNlAgkAmggCBQpnb3ZBZGRyZXNzCQCsAgIFBHBvb2wFE2tIZWlnaHRQb29sRnJhY3Rpb24FEnJld2FyZFVwZGF0ZUhlaWdodAQacmV3YXJkUG9vbEZyYWN0aW9uUHJldmlvdXMJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQpnb3ZBZGRyZXNzCQCsAgIFBHBvb2wFG2tSZXdhcmRQb29sRnJhY3Rpb25QcmV2aW91cwkArAICCQCsAgIJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUEcG9vbAUba1Jld2FyZFBvb2xGcmFjdGlvblByZXZpb3VzAgwgYXQgYWRkcmVzcyAJAKUIAQUKZ292QWRkcmVzcwQRcmV3YXJkUG9vbEN1cnJlbnQJAGsDBRp0b3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAUZcmV3YXJkUG9vbEZyYWN0aW9uQ3VycmVudAUOdG90YWxWb3RlU2hhcmUEEnJld2FyZFBvb2xQcmV2aW91cwkAawMFGnRvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50BRpyZXdhcmRQb29sRnJhY3Rpb25QcmV2aW91cwUOdG90YWxWb3RlU2hhcmUDAwkAZgIFEXJld2FyZFBvb2xDdXJyZW50BRp0b3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAYJAGYCBRJyZXdhcmRQb29sUHJldmlvdXMFG3RvdGFsUmV3YXJkUGVyQmxvY2tQcmV2aW91cwkAAgECYnJld2FyZFBvb2xDdXJyZW50ID4gdG90YWxSZXdhcmRQZXJCbG9ja0N1cnJlbnQgb3IgcmV3YXJkUG9vbFByZXZpb3VzID4gdG90YWxSZXdhcmRQZXJCbG9ja1ByZXZpb3VzCQCWCgQFEXJld2FyZFBvb2xDdXJyZW50BRJyZXdhcmRVcGRhdGVIZWlnaHQFEnJld2FyZFBvb2xQcmV2aW91cwUWcG9vbFJld2FyZFVwZGF0ZUhlaWdodAETZ2V0TGFzdEludGVyZXN0SW5mbwEEcG9vbAQMZmFybUludGVyZXN0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAkArAICCQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAQNYm9vc3RJbnRlcmVzdAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAAABBJsYXN0SW50ZXJlc3RIZWlnaHQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAJUKAwUSbGFzdEludGVyZXN0SGVpZ2h0BQxmYXJtSW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QBC2NhbGNGYXJtUndkAgRwb29sDmN1clRvdGFsUmV3YXJkBA1wb29sQm9vc3RDb2VmCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUOa1Bvb2xCb29zdENvZWYFEGRlZlBvb2xCb29zdENvZWYJAGsDBQ5jdXJUb3RhbFJld2FyZAUSbG9ja0Jvb3N0Q29lZlNjYWxlCQBkAgUNcG9vbEJvb3N0Q29lZgUSbG9ja0Jvb3N0Q29lZlNjYWxlAQxjYWxjQm9vc3RSd2QCBHBvb2wOY3VyVG90YWxSZXdhcmQEDXBvb2xCb29zdENvZWYJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBQ5rUG9vbEJvb3N0Q29lZgUQZGVmUG9vbEJvb3N0Q29lZgkAawMFDmN1clRvdGFsUmV3YXJkBQ1wb29sQm9vc3RDb2VmCQBkAgUNcG9vbEJvb3N0Q29lZgUSbG9ja0Jvb3N0Q29lZlNjYWxlAQxjYWxjSW50ZXJlc3QLBHBvb2wSbGFzdEludGVyZXN0SGVpZ2h0EnJld2FyZFVwZGF0ZUhlaWdodBZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0DGZhcm1JbnRlcmVzdA1ib29zdEludGVyZXN0CXBvb2xWb3RlZBVjdXJyZW50UmV3YXJkUGVyQmxvY2sQc2hhcmVUb2tlbkxvY2tlZBZwcmV2aW91c1Jld2FyZFBlckJsb2NrCnNjYWxlVmFsdWUEDCR0MDk1MTYxMDY4OQMDAwkAZgIFEnJld2FyZFVwZGF0ZUhlaWdodAUGaGVpZ2h0CQAAAgUScmV3YXJkVXBkYXRlSGVpZ2h0BRZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0BwYDCQBmAgUGaGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQJAQIhPQIFEnJld2FyZFVwZGF0ZUhlaWdodAUWcG9vbFJld2FyZFVwZGF0ZUhlaWdodAcEAXIJAGgCBRZwcmV2aW91c1Jld2FyZFBlckJsb2NrCQBlAgUGaGVpZ2h0BRJsYXN0SW50ZXJlc3RIZWlnaHQJAJUKAwUBcgUMZmFybUludGVyZXN0BQ1ib29zdEludGVyZXN0AwMDCQBmAgUGaGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQJAAACBRJyZXdhcmRVcGRhdGVIZWlnaHQFFnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQHCQBmAgUSbGFzdEludGVyZXN0SGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQHBAFyCQBoAgUVY3VycmVudFJld2FyZFBlckJsb2NrCQBlAgUGaGVpZ2h0BRJsYXN0SW50ZXJlc3RIZWlnaHQJAJUKAwUBcgUMZmFybUludGVyZXN0BQ1ib29zdEludGVyZXN0BAlyd2RCZnJVcGQJAGgCBRZwcmV2aW91c1Jld2FyZFBlckJsb2NrCQBlAgUScmV3YXJkVXBkYXRlSGVpZ2h0BRJsYXN0SW50ZXJlc3RIZWlnaHQEBmZCZnJVcAkAZAIFDGZhcm1JbnRlcmVzdAkAawMJAQtjYWxjRmFybVJ3ZAIFBHBvb2wFCXJ3ZEJmclVwZAUKc2NhbGVWYWx1ZQUQc2hhcmVUb2tlbkxvY2tlZAQGYkJmclVwCQBkAgUNYm9vc3RJbnRlcmVzdAMJAGYCBQlwb29sVm90ZWQAAAkAawMJAQxjYWxjQm9vc3RSd2QCBQRwb29sBQlyd2RCZnJVcGQFC3NjYWxlVmFsdWU4BQlwb29sVm90ZWQAAAQDcndkCQBoAgUVY3VycmVudFJld2FyZFBlckJsb2NrCQBlAgUGaGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQJAJUKAwUDcndkBQZmQmZyVXAFBmJCZnJVcAQGcmV3YXJkCAUMJHQwOTUxNjEwNjg5Al8xBA5mYXJtSW50ckJlZm9yZQgFDCR0MDk1MTYxMDY4OQJfMgQPYm9vc3RJbnRyQmVmb3JlCAUMJHQwOTUxNjEwNjg5Al8zBA9uZXdGYXJtSW50ZXJlc3QJAGQCBQ5mYXJtSW50ckJlZm9yZQkAawMJAQtjYWxjRmFybVJ3ZAIFBHBvb2wFBnJld2FyZAUKc2NhbGVWYWx1ZQUQc2hhcmVUb2tlbkxvY2tlZAQQbmV3Qm9vc3RJbnRlcmVzdAkAZAIFD2Jvb3N0SW50ckJlZm9yZQMJAGYCBQlwb29sVm90ZWQAAAkAawMJAQxjYWxjQm9vc3RSd2QCBQRwb29sBQZyZXdhcmQFC3NjYWxlVmFsdWU4BQlwb29sVm90ZWQAAAkAlAoCBQ9uZXdGYXJtSW50ZXJlc3QFEG5ld0Jvb3N0SW50ZXJlc3QBCWNsYWltQ2FsYwIEcG9vbAR1c2VyBApzY2FsZVZhbHVlCQEOY2FsY1NjYWxlVmFsdWUCBQRTV09QCQEPZ2V0U2hhcmVBc3NldElkAQUEcG9vbAQJcG9vbFZvdGVkCQEMZ2V0UG9vbFZvdGVkAQUEcG9vbAQKdVBvb2xWb3RlZAkBEGdldFVzZXJQb29sVm90ZWQCBQRwb29sBQR1c2VyBApzaGFyZVRva2VuCQESZ2V0VG90YWxTaGFyZVRva2VuAQUEcG9vbAQRdG90YWxTaGFyZVZpcnR1YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsBQpzaGFyZVRva2VuBBJzdHJhdEJGYXJtSW50ZXJlc3QJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRNrU3RyYXRCRmFybUludGVyZXN0AAAEDSR0MDExNTI3MTE2MDgJARNnZXRMYXN0SW50ZXJlc3RJbmZvAQUEcG9vbAQSbGFzdEludGVyZXN0SGVpZ2h0CAUNJHQwMTE1MjcxMTYwOAJfMQQMZmFybUludGVyZXN0CAUNJHQwMTE1MjcxMTYwOAJfMgQNYm9vc3RJbnRlcmVzdAgFDSR0MDExNTI3MTE2MDgCXzMEDSR0MDExNjEzMTE3MjcJAQpyZXdhcmRJbmZvAQUEcG9vbAQVY3VycmVudFJld2FyZFBlckJsb2NrCAUNJHQwMTE2MTMxMTcyNwJfMQQScmV3YXJkVXBkYXRlSGVpZ2h0CAUNJHQwMTE2MTMxMTcyNwJfMgQWcHJldmlvdXNSZXdhcmRQZXJCbG9jawgFDSR0MDExNjEzMTE3MjcCXzMEFnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQIBQ0kdDAxMTYxMzExNzI3Al80BA11RmFybUludGVyZXN0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0BA51Qm9vc3RJbnRlcmVzdAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0AwMJAGYCBRJzdHJhdEJGYXJtSW50ZXJlc3QFDXVGYXJtSW50ZXJlc3QJAGYCBQp1UG9vbFZvdGVkAAAHAAAFDWJvb3N0SW50ZXJlc3QEEnVTaGFyZVRva2Vuc1N0YWtlZAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAAAEEHVTaGFyZVRva2Vuc1ZpcnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFEnVTaGFyZVRva2Vuc1N0YWtlZAMJAAACBRF0b3RhbFNoYXJlVmlydHVhbAAABAp0b1RyZWFzdXJ5CQBoAgUVY3VycmVudFJld2FyZFBlckJsb2NrCQBlAgUGaGVpZ2h0BRJsYXN0SW50ZXJlc3RIZWlnaHQJAJYKBAUMZmFybUludGVyZXN0BQ1ib29zdEludGVyZXN0AAAFCnRvVHJlYXN1cnkEDSR0MDEyNDQwMTI4MzIJAQxjYWxjSW50ZXJlc3QLBQRwb29sBRJsYXN0SW50ZXJlc3RIZWlnaHQFEnJld2FyZFVwZGF0ZUhlaWdodAUWcG9vbFJld2FyZFVwZGF0ZUhlaWdodAUMZmFybUludGVyZXN0BQ1ib29zdEludGVyZXN0BQlwb29sVm90ZWQFFWN1cnJlbnRSZXdhcmRQZXJCbG9jawURdG90YWxTaGFyZVZpcnR1YWwFFnByZXZpb3VzUmV3YXJkUGVyQmxvY2sFCnNjYWxlVmFsdWUED25ld0Zhcm1JbnRlcmVzdAgFDSR0MDEyNDQwMTI4MzICXzEEEG5ld0Jvb3N0SW50ZXJlc3QIBQ0kdDAxMjQ0MDEyODMyAl8yBAdmYXJtUndkCQBrAwUQdVNoYXJlVG9rZW5zVmlydAkAZQIFD25ld0Zhcm1JbnRlcmVzdAUNdUZhcm1JbnRlcmVzdAUKc2NhbGVWYWx1ZQQNcG9vbEJvb3N0Q29lZgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFDmtQb29sQm9vc3RDb2VmBRBkZWZQb29sQm9vc3RDb2VmBAtib29zdFJ3ZE1heAkAawMJAGsDBRB1U2hhcmVUb2tlbnNWaXJ0CQBlAgUPbmV3RmFybUludGVyZXN0CQCWAwEJAMwIAgUNdUZhcm1JbnRlcmVzdAkAzAgCBRJzdHJhdEJGYXJtSW50ZXJlc3QFA25pbAUKc2NhbGVWYWx1ZQUNcG9vbEJvb3N0Q29lZgUSbG9ja0Jvb3N0Q29lZlNjYWxlBAtjdXJCb29zdFJ3ZAkAawMJAGUCBRBuZXdCb29zdEludGVyZXN0BQ51Qm9vc3RJbnRlcmVzdAUKdVBvb2xWb3RlZAULc2NhbGVWYWx1ZTgECGJvb3N0UndkCQCXAwEJAMwIAgULYm9vc3RSd2RNYXgJAMwIAgULY3VyQm9vc3RSd2QFA25pbAQKdG9UcmVhc3VyeQkAZQIFC2Jvb3N0UndkTWF4BQhib29zdFJ3ZAMJAGYCAAAFCnRvVHJlYXN1cnkJAAIBAg50b1RyZWFzdXJ5IDwgMAkAlgoEBQ9uZXdGYXJtSW50ZXJlc3QFEG5ld0Jvb3N0SW50ZXJlc3QJAGQCBQdmYXJtUndkBQhib29zdFJ3ZAUKdG9UcmVhc3VyeQEbYXZhaWxhYmxlQ2xhaW1DYWxjQWxsQnlVc2VyAgVwb29scwR1c2VyCgENY2FsY0F2YWlsYWJsZQIDYWNjBHBvb2wEDSR0MDEzNzAxMTM3MzAFA2FjYwQIbmV3UG9vbHMIBQ0kdDAxMzcwMTEzNzMwAl8xBAdhbW91bnRzCAUNJHQwMTM3MDExMzczMAJfMgQNJHQwMTM3MzkxMzc5MgkBCWNsYWltQ2FsYwIFBHBvb2wFBHVzZXIEAmZpCAUNJHQwMTM3MzkxMzc5MgJfMQQCYmkIBQ0kdDAxMzczOTEzNzkyAl8yBAtjbGFpbUFtb3VudAgFDSR0MDEzNzM5MTM3OTICXzMEAnR0CAUNJHQwMTM3MzkxMzc5MgJfNAQNYXZhaWxhYmxlRnVuZAkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wFBHVzZXIFC2NsYWltQW1vdW50CQCUCgIJAM0IAgUIbmV3UG9vbHMFBHBvb2wJAM0IAgUHYW1vdW50cwUNYXZhaWxhYmxlRnVuZAoAAiRsBQVwb29scwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDWNhbGNBdmFpbGFibGUCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDYwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8ARVjYW5Mb2NrSW5GaXJzdEhhcnZlc3QFBHBvb2wEdXNlchV1c2VyU2hhcmVUb2tlbnNTdGFrZWQJcG10QW1vdW50CGxvY2tUeXBlAwkAZgIJARVnZXRIZWlnaHRGaXJzdEhhcnZlc3QBBQRwb29sBQZoZWlnaHQED3RvdGFsVm90ZUFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ12b3RpbmdBZGRyZXNzCQCsAgIFBHBvb2wFEGtIYXJ2ZXN0UG9vbFZvdGUAAAQOdXNlclZvdGVBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUNdm90aW5nQWRkcmVzcwkArAICCQCsAgIJAKwCAgUEdXNlcgIBXwUEcG9vbAUUa0hhcnZlc3RVc2VyUG9vbFZvdGUAAAQRRkhTaGFyZVRva2VuTGltaXQJARRnZXRGSFNoYXJlTGltaXRUb2tlbgEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBHBvb2wEFUZIU2hhcmVUb2tlblVzZXJMaW1pdAkAZQIJAGsDBRFGSFNoYXJlVG9rZW5MaW1pdAUOdXNlclZvdGVBbW91bnQFD3RvdGFsVm90ZUFtb3VudAUVdXNlclNoYXJlVG9rZW5zU3Rha2VkAwkAZgIFCGxvY2tUeXBlAAAJAAIBAjJZb3UgY2FuJ3QgbG9jayBzaGFyZVRva2VucyB0aWxsIGZpcnN0IGhhcnZlc3QgZW5kLgMJAAACBQ51c2VyVm90ZUFtb3VudAAAAAADCQBnAgUJcG10QW1vdW50BRVGSFNoYXJlVG9rZW5Vc2VyTGltaXQJAGUCBQlwbXRBbW91bnQFFUZIU2hhcmVUb2tlblVzZXJMaW1pdAAAAAABDWdldExvY2tQYXJhbXMBBHR5cGUECmxvY2tQYXJhbXMJALUJAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgkApAMBBQR0eXBlBQtrTG9ja1BhcmFtcwkArAICAh5UaGVyZSBhcmUgbm8ga2V5IGZvciBsb2NrIHR5cGUJAKQDAQUEdHlwZQIBXwkAlAoCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKbG9ja1BhcmFtcwAACQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKbG9ja1BhcmFtcwABAQdzdXNwZW5kAQVjYXVzZQkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHa0FjdGl2ZQcJAMwIAgkBC1N0cmluZ0VudHJ5AgUGa0NhdXNlBQVjYXVzZQUDbmlsAQhpc0FjdGl2ZQADAwUGYWN0aXZlBQphY3RpdmVHbG9iBwUEdW5pdAkAAgECH0RBcHAgaXMgaW5hY3RpdmUgYXQgdGhpcyBtb21lbnQBC2lzQWRtaW5DYWxsAQFpAwkBD2NvbnRhaW5zRWxlbWVudAIJAMwIAgUMYWRtaW5QdWJLZXkxCQDMCAIFDGFkbWluUHViS2V5MgkAzAgCBQxhZG1pblB1YktleTMFA25pbAgFAWkPY2FsbGVyUHVibGljS2V5BQR1bml0CQACAQIhT25seSBhZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAQppc1Bvb2xDYWxsAgFpBHBvb2wDAwkAAAIJAKUIAQgFAWkGY2FsbGVyBQRwb29sBgkAAAIIBQFpBmNhbGxlcgUMY3BtbUNvbnRyYWN0BQR1bml0CQACAQIgT25seSBwb29sIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24BEWdldERlcHJlY2F0ZWRQb29sAQRwb29sCQELdmFsdWVPckVsc2UCCQCbCAIFBm9yYWNsZQkArAICBQ9rRGVwcmVjYXRlZFBvb2wFBHBvb2wHARBpc0RlcHJlY2F0ZWRQb29sAQRwb29sAwkBASEBCQERZ2V0RGVwcmVjYXRlZFBvb2wBBQRwb29sBQR1bml0CQACAQIvUG9vbCBpcyBkZXByZWNhdGVkLiBPbmx5IHVubG9jayBhY3Rpb24gYWxsb3dlZC4BCmlzU2VsZkNhbGwBAWkDCQAAAggFAWkGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIrT25seSBjb250cmFjdCBpdHNlbGYgY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgETY2FsY0xvY2tTaGFyZVRva2VucwQBaQZjYWxsZXIEcG9vbAhsb2NrVHlwZQQMc2hhcmVBc3NldElkCQEPZ2V0U2hhcmVBc3NldElkAQUEcG9vbAQEdXNlcgkApQgBBQZjYWxsZXIECnRvdGFsU2hhcmUJARJnZXRUb3RhbFNoYXJlVG9rZW4BBQRwb29sBBF0b3RhbFNoYXJlVmlydHVhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFE2tTaGFyZVRva2Vuc1ZpcnR1YWwFCnRvdGFsU2hhcmUEEHVzZXJTdGFrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAAABA91c2VyTG9ja2VkSGVpZ3QJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAAABBB1c2VyTG9ja2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQAAAQRdXNlckFtb3VudFZpcnR1YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFEHVzZXJTdGFrZWRBbW91bnQEFHRvdGFsVXNlclNoYXJlVG9rZW5zCQBkAgkAZAIFEHVzZXJTdGFrZWRBbW91bnQFEHVzZXJMb2NrZWRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BA0kdDAxNjg0MTE2ODkzCQENZ2V0TG9ja1BhcmFtcwEFCGxvY2tUeXBlBApsb2NrUGVyaW9kCAUNJHQwMTY4NDExNjg5MwJfMQQIbG9ja0NvZWYIBQ0kdDAxNjg0MTE2ODkzAl8yBAxsb2NrV2F2ZXNGZWUJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFDWtMb2NrV2F2ZXNGZWUDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFDHNoYXJlQXNzZXRJZAkAAgECG1dyb25nIHNoYXJldG9rZW4gaW4gcGF5bWVudAMJAGcCAAAICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQACAQIlUGF5bWVudCBhbW91bnQgbXVzdCBiZSBncmVhdGVyIHRoYW4gMAMJAGYCAAAFCGxvY2tUeXBlCQACAQIVbG9ja1R5cGUgbXVzdCBiZSA+PSAwBBVzaGFyZVRva2Vuc0NoYW5nZU9uRkgJARVjYW5Mb2NrSW5GaXJzdEhhcnZlc3QFBQRwb29sBQR1c2VyBRB1c2VyU3Rha2VkQW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUIbG9ja1R5cGUDCQAAAgUVc2hhcmVUb2tlbnNDaGFuZ2VPbkZIBRVzaGFyZVRva2Vuc0NoYW5nZU9uRkgEDSR0MDE3MzIwMTkyNTQDCQAAAgUIbG9ja1R5cGUAAAQUdXNlckFtb3VudFZpcnR1YWxOZXcJAGUCCQBkAgURdXNlckFtb3VudFZpcnR1YWwICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BRVzaGFyZVRva2Vuc0NoYW5nZU9uRkgJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAkAZQIJAGQCBRB1c2VyU3Rha2VkQW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUVc2hhcmVUb2tlbnNDaGFuZ2VPbkZICQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUUdXNlckFtb3VudFZpcnR1YWxOZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAkAZQIJAGQCBRF0b3RhbFNoYXJlVmlydHVhbAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFFXNoYXJlVG9rZW5zQ2hhbmdlT25GSAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFFXNoYXJlVG9rZW5zQ2hhbmdlT25GSAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQNuaWwJAGUCCQBkAgUKdG90YWxTaGFyZQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFFXNoYXJlVG9rZW5zQ2hhbmdlT25GSAMDCQAAAgUPdXNlckxvY2tlZEhlaWd0AAADAwkAZgIAAgkAkAMBCAUBaQhwYXltZW50cwYJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAUEdW5pdAYJAGYCBQxsb2NrV2F2ZXNGZWUICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50BwkAAgEJAKwCAgkArAICAitZb3UgbmVlZCB0byBwYXkgYWRkaXRpb25hbCB3YXZlcyBjb21pc3Npb24gCQCkAwEFDGxvY2tXYXZlc0ZlZQIFV0FWRVMDCQBmAgUPdXNlckxvY2tlZEhlaWd0CQBkAgUGaGVpZ2h0BQpsb2NrUGVyaW9kCQACAQJPWW91IGNhbm5vdCBsb2NrIHNoYXJldG9rZW5zIGZvciBhIHBlcmlvZCBsZXNzIHRoYW4gd2hhdCB5b3UgaGF2ZSBhbHJlYWR5IGxvY2tlZAQTdXNlckxvY2tlZEFtb3VudE5ldwkAZAIFEHVzZXJMb2NrZWRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBJ1c2VyTG9ja2VkSGVpZ3ROZXcJAGQCBQZoZWlnaHQFCmxvY2tQZXJpb2QEFHVzZXJBbW91bnRWaXJ0dWFsTmV3CQBkAgkAawMFE3VzZXJMb2NrZWRBbW91bnROZXcFCGxvY2tDb2VmBRJsb2NrQm9vc3RDb2VmU2NhbGUFEHVzZXJTdGFrZWRBbW91bnQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAUTdXNlckxvY2tlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAUSdXNlckxvY2tlZEhlaWd0TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRprVXNlclNoYXJlVG9rZW5zTG9ja2VkVHlwZQUIbG9ja1R5cGUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRR1c2VyQW1vdW50VmlydHVhbE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsCQBkAgkAZQIFEXRvdGFsU2hhcmVWaXJ0dWFsBRF1c2VyQW1vdW50VmlydHVhbAUUdXNlckFtb3VudFZpcnR1YWxOZXcFA25pbAkAZAIFCnRvdGFsU2hhcmUICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAtsb2NrRW50cmllcwgFDSR0MDE3MzIwMTkyNTQCXzEEDXRvdGFsU2hhcmVOZXcIBQ0kdDAxNzMyMDE5MjU0Al8yAwkAZgIJAQ5hY2NvdW50QmFsYW5jZQEFDHNoYXJlQXNzZXRJZAUNdG90YWxTaGFyZU5ldwkAAgECMEJhbGFuY2Ugb2Ygc2hhcmUtdG9rZW4gaXMgbG93ZXIgdGhhbiB0b3RhbEFtb3VudAQNJHQwMTkzNzkxOTQ2MQkBCWNsYWltQ2FsYwIFBHBvb2wFBHVzZXIEDGZhcm1JbnRlcmVzdAgFDSR0MDE5Mzc5MTk0NjECXzEEDWJvb3N0SW50ZXJlc3QIBQ0kdDAxOTM3OTE5NDYxAl8yBAtjbGFpbUFtb3VudAgFDSR0MDE5Mzc5MTk0NjECXzMECnRvVHJlYXN1cmUIBQ0kdDAxOTM3OTE5NDYxAl80BBFhdmFpbGFibGVGdW5kc05ldwkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wFBHVzZXIFC2NsYWltQW1vdW50BAR1cGxwAwkAAAIJAJ0IAgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wCB3ZlcnNpb24CBTMuMC4wCQD8BwQFEGxwRmFybWluZ0FkZHJlc3MCEnVwZGF0ZVVzZXJJbnRlcmVzdAkAzAgCBQR1c2VyCQDMCAIFBHBvb2wJAMwIAgUUdG90YWxVc2VyU2hhcmVUb2tlbnMFA25pbAUDbmlsAAADCQAAAgUEdXBscAUEdXBscAkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRVrRmFybVVzZXJMYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUWa1NoYXJlVG90YWxTaGFyZVRva2VucwUNdG90YWxTaGFyZU5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUOa0F2YWlsYWJsZVNXT1AFEWF2YWlsYWJsZUZ1bmRzTmV3CQDMCAIJAQdSZWlzc3VlAwUEU1dPUAUKdG9UcmVhc3VyZQYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUTZmFybWluZ1RyZWFzdXJlQWRkcgUKdG9UcmVhc3VyZQUEU1dPUAUDbmlsBQtsb2NrRW50cmllcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgEXY2FsY1dpdGhkcmF3U2hhcmVUb2tlbnMEAWkGY2FsbGVyBHBvb2wZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAQDaW52AwkBEWdldERlcHJlY2F0ZWRQb29sAQUEcG9vbAkA/AcEBQR0aGlzAhh1bmxvY2tVc2VyTG9ja0RlcHJlY2F0ZWQJAMwIAgUEcG9vbAkAzAgCCQClCAEFBmNhbGxlcgUDbmlsBQNuaWwAAAMJAAACBQNpbnYFA2ludgQNc2hhcmVUb2tlbnNJZAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCCQEFdmFsdWUBCQCmCAEFBHBvb2wCDnNoYXJlX2Fzc2V0X2lkBAR1c2VyCQClCAEFBmNhbGxlcgQNJHQwMjA3NTgyMDg0MAkBCWNsYWltQ2FsYwIFBHBvb2wFBHVzZXIEDGZhcm1JbnRlcmVzdAgFDSR0MDIwNzU4MjA4NDACXzEEDWJvb3N0SW50ZXJlc3QIBQ0kdDAyMDc1ODIwODQwAl8yBAtjbGFpbUFtb3VudAgFDSR0MDIwNzU4MjA4NDACXzMECnRvVHJlYXN1cmUIBQ0kdDAyMDc1ODIwODQwAl80BBB1c2VyU3Rha2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQAAAQQdXNlckxvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zTG9ja2VkAAAEEXVzZXJBbW91bnRWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRB1c2VyU3Rha2VkQW1vdW50BBN1c2VyU3Rha2VkQW1vdW50TmV3CQBlAgUQdXNlclN0YWtlZEFtb3VudAUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAQRYXZhaWxhYmxlRnVuZHNOZXcJAGQCCQERdXNlckF2YWlsYWJsZVNXT1ACBQRwb29sBQR1c2VyBQtjbGFpbUFtb3VudAQQdG90YWxTaGFyZUFtb3VudAkBEmdldFRvdGFsU2hhcmVUb2tlbgEFBHBvb2wEEXRvdGFsU2hhcmVWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAUQdG90YWxTaGFyZUFtb3VudAQTdG90YWxTaGFyZUFtb3VudE5ldwkAZQIFEHRvdGFsU2hhcmVBbW91bnQFGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQEFHRvdGFsU2hhcmVWaXJ0dWFsTmV3CQBlAgURdG90YWxTaGFyZVZpcnR1YWwFGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQEFHVzZXJBbW91bnRWaXJ0dWFsTmV3CQBlAgURdXNlckFtb3VudFZpcnR1YWwFGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQDCQBmAgUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAUQdXNlclN0YWtlZEFtb3VudAkAAgECLFdpdGhkcmF3IGFtb3VudCBtb3JlIHRoZW4gdXNlciBsb2NrZWQgYW1vdW50AwkAZgIJAQ5hY2NvdW50QmFsYW5jZQEFDXNoYXJlVG9rZW5zSWQFEHRvdGFsU2hhcmVBbW91bnQJAAIBAjBCYWxhbmNlIG9mIHNoYXJlLXRva2VuIGlzIGxvd2VyIHRoYW4gdG90YWxBbW91bnQEBHVwbHADCQAAAgkAnQgCCQEHQWRkcmVzcwEJANkEAQUEcG9vbAIHdmVyc2lvbgIFMy4wLjAJAPwHBAUQbHBGYXJtaW5nQWRkcmVzcwISdXBkYXRlVXNlckludGVyZXN0CQDMCAIFBHVzZXIJAMwIAgUEcG9vbAkAzAgCCQBkAgUQdXNlclN0YWtlZEFtb3VudAUQdXNlckxvY2tlZEFtb3VudAUDbmlsBQNuaWwAAAMJAAACBQR1cGxwBQR1cGxwCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRVrRmFybVVzZXJMYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQFE3VzZXJTdGFrZWRBbW91bnROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRR1c2VyQW1vdW50VmlydHVhbE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRZrU2hhcmVUb3RhbFNoYXJlVG9rZW5zBRN0b3RhbFNoYXJlQW1vdW50TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tTaGFyZVRva2Vuc1ZpcnR1YWwFFHRvdGFsU2hhcmVWaXJ0dWFsTmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBQ5rQXZhaWxhYmxlU1dPUAURYXZhaWxhYmxlRnVuZHNOZXcJAMwIAgkBB1JlaXNzdWUDBQRTV09QBQp0b1RyZWFzdXJlBgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRNmYXJtaW5nVHJlYXN1cmVBZGRyBQp0b1RyZWFzdXJlBQRTV09QCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAUNc2hhcmVUb2tlbnNJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQljYWxjQ2xhaW0DAWkEcG9vbAZjYWxsZXIEDXNoYXJlVG9rZW5zSWQJANkEAQkBEUBleHRyTmF0aXZlKDEwNTMpAgkBBXZhbHVlAQkApggBBQRwb29sAg5zaGFyZV9hc3NldF9pZAQEdXNlcgkApQgBBQZjYWxsZXIEEHNoYXJlVG9rZW5Mb2NrZWQJARJnZXRUb3RhbFNoYXJlVG9rZW4BBQRwb29sBA0kdDAyMzM1MTIzNDMzCQEJY2xhaW1DYWxjAgUEcG9vbAUEdXNlcgQMZmFybUludGVyZXN0CAUNJHQwMjMzNTEyMzQzMwJfMQQNYm9vc3RJbnRlcmVzdAgFDSR0MDIzMzUxMjM0MzMCXzIEC2NsYWltQW1vdW50CAUNJHQwMjMzNTEyMzQzMwJfMwQKdG9UcmVhc3VyZQgFDSR0MDIzMzUxMjM0MzMCXzQEDWF2YWlsYWJsZUZ1bmQJAGQCCQERdXNlckF2YWlsYWJsZVNXT1ACBQRwb29sBQR1c2VyBQtjbGFpbUFtb3VudAMJAGYCCQEOYWNjb3VudEJhbGFuY2UBBQ1zaGFyZVRva2Vuc0lkBRBzaGFyZVRva2VuTG9ja2VkCQACAQIwQmFsYW5jZSBvZiBzaGFyZS10b2tlbiBpcyBsb3dlciB0aGFuIHRvdGFsQW1vdW50BAZ1VHJhbnMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQ1hdmFpbGFibGVGdW5kBQRTV09QBQNuaWwFA25pbAkAlAoCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEWtGYXJtTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUSa0Jvb3N0TGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUOa0F2YWlsYWJsZVNXT1AAAAkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AJAGQCBQp0b1RyZWFzdXJlBQ1hdmFpbGFibGVGdW5kBgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRNmYXJtaW5nVHJlYXN1cmVBZGRyBQp0b1RyZWFzdXJlBQRTV09QBQNuaWwFBnVUcmFucwUNYXZhaWxhYmxlRnVuZAESdW5sb2NrVXNlckxvY2tDYWxjAwFpBHBvb2wEdXNlcgQRdG90YWxTaGFyZVZpcnR1YWwJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAQQdXNlclN0YWtlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAAAEEHVzZXJMb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAAABBF1c2VyQW1vdW50VmlydHVhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUQdXNlclN0YWtlZEFtb3VudAQTdXNlclN0YWtlZEFtb3VudE5ldwkAZAIFEHVzZXJTdGFrZWRBbW91bnQFEHVzZXJMb2NrZWRBbW91bnQEDSR0MDI0ODM2MjQ5MTgJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAyNDgzNjI0OTE4Al8xBA1ib29zdEludGVyZXN0CAUNJHQwMjQ4MzYyNDkxOAJfMgQLY2xhaW1BbW91bnQIBQ0kdDAyNDgzNjI0OTE4Al8zBAp0b1RyZWFzdXJlCAUNJHQwMjQ4MzYyNDkxOAJfNAQRYXZhaWxhYmxlRnVuZHNOZXcJAGQCCQERdXNlckF2YWlsYWJsZVNXT1ACBQRwb29sBQR1c2VyBQtjbGFpbUFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUVa0Zhcm1Vc2VyTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtCb29zdFVzZXJMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa0xhc3RJbnRlcmVzdEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkBRN1c2VyU3Rha2VkQW1vdW50TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUTdXNlclN0YWtlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsCQBkAgkAZQIFEXRvdGFsU2hhcmVWaXJ0dWFsBRF1c2VyQW1vdW50VmlydHVhbAUTdXNlclN0YWtlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUOa0F2YWlsYWJsZVNXT1AFEWF2YWlsYWJsZUZ1bmRzTmV3CQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRprVXNlclNoYXJlVG9rZW5zTG9ja2VkVHlwZQkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2Zhcm1pbmdUcmVhc3VyZUFkZHIFCnRvVHJlYXN1cmUFBFNXT1AFA25pbBIBaQEEaW5pdAEHZWFybHlMUAMJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMFB2tTV09QaWQJAAIBAhhTV09QIGFscmVhZHkgaW5pdGlhbGl6ZWQECmluaXRBbW91bnQAgIDpg7HeFgQJU1dPUGlzc3VlCQDCCAUCBFNXT1ACE1NXT1AgcHJvdG9jb2wgdG9rZW4FCmluaXRBbW91bnQACAYEBlNXT1BpZAkAuAgBBQlTV09QaXNzdWUJAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2tBY3RpdmUGCQDMCAIJAMIIBQIEU1dPUAITU1dPUCBwcm90b2NvbCB0b2tlbgUKaW5pdEFtb3VudAAIBgkAzAgCCQELU3RyaW5nRW50cnkCBQdrU1dPUGlkCQDYBAEFBlNXT1BpZAUDbmlsAWkBFGluaXRQb29sU2hhcmVGYXJtaW5nAQRwb29sCQELdmFsdWVPckVsc2UCCQELaXNBZG1pbkNhbGwBBQFpCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFFmtTaGFyZVRvdGFsU2hhcmVUb2tlbnMAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAUDbmlsAWkBEnVwZGF0ZVBvb2xJbnRlcmVzdAEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAMJAQIhPQIIBQFpBmNhbGxlcgUKZ292QWRkcmVzcwkAAgECJk9ubHkgR292ZXJuYW5jZSBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAR1c2VyCQClCAEJAKcIAQURYWRtaW5JbnZva2VQdWJLZXkEDSR0MDI3MDg0MjcxNTgJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAyNzA4NDI3MTU4Al8xBA1ib29zdEludGVyZXN0CAUNJHQwMjcwODQyNzE1OAJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMjcwODQyNzE1OAJfMwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQFA25pbAFpAQ9sb2NrU2hhcmVUb2tlbnMCBHBvb2wIbG9ja1R5cGUJAQt2YWx1ZU9yRWxzZQIJARBpc0RlcHJlY2F0ZWRQb29sAQUEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAkBE2NhbGNMb2NrU2hhcmVUb2tlbnMEBQFpCAUBaQZjYWxsZXIFBHBvb2wFCGxvY2tUeXBlAWkBF2xvY2tTaGFyZVRva2Vuc0Zyb21Qb29sAwtjYWxsZXJCeXRlcwRwb29sCGxvY2tUeXBlCQELdmFsdWVPckVsc2UCCQEQaXNEZXByZWNhdGVkUG9vbAEFBHBvb2wJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAJAQt2YWx1ZU9yRWxzZQIJAQppc1Bvb2xDYWxsAgUBaQUEcG9vbAkBE2NhbGNMb2NrU2hhcmVUb2tlbnMEBQFpCQEHQWRkcmVzcwEFC2NhbGxlckJ5dGVzBQRwb29sBQhsb2NrVHlwZQFpARVsb2NrU3Rha2VkU2hhcmVUb2tlbnMDBHBvb2wIbG9ja1R5cGUKbG9ja0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkBEGlzRGVwcmVjYXRlZFBvb2wBBQRwb29sCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAxzaGFyZUFzc2V0SWQJAQ9nZXRTaGFyZUFzc2V0SWQBBQRwb29sBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQKdG90YWxTaGFyZQkBEmdldFRvdGFsU2hhcmVUb2tlbgEFBHBvb2wEEXRvdGFsU2hhcmVWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAUKdG90YWxTaGFyZQQQdXNlclN0YWtlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAAAED3VzZXJMb2NrZWRIZWlndAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRxrVXNlclNoYXJlVG9rZW5zTG9ja2VkSGVpZ2h0AAAEEHVzZXJMb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAAABBF1c2VyQW1vdW50VmlydHVhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUQdXNlclN0YWtlZEFtb3VudAQUdG90YWxVc2VyU2hhcmVUb2tlbnMJAGQCBRB1c2VyU3Rha2VkQW1vdW50BRB1c2VyTG9ja2VkQW1vdW50BA0kdDAyODc4NzI4ODM5CQENZ2V0TG9ja1BhcmFtcwEFCGxvY2tUeXBlBApsb2NrUGVyaW9kCAUNJHQwMjg3ODcyODgzOQJfMQQIbG9ja0NvZWYIBQ0kdDAyODc4NzI4ODM5Al8yBAxsb2NrV2F2ZXNGZWUJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFDWtMb2NrV2F2ZXNGZWUDCQBmAgkBFWdldEhlaWdodEZpcnN0SGFydmVzdAEFBHBvb2wFBmhlaWdodAkAAgECMllvdSBjYW4ndCBsb2NrIHNoYXJlVG9rZW5zIHRpbGwgZmlyc3QgaGFydmVzdCBlbmQuAwkAZwIAAAUIbG9ja1R5cGUJAAIBAhRsb2NrVHlwZSBtdXN0IGJlID4gMAMJAGYCBQpsb2NrQW1vdW50BRB1c2VyU3Rha2VkQW1vdW50CQACAQkArAICAhlZb3UgY2FuJ3QgbG9jayBtb3JlIHRoYW4gCQCkAwEFEHVzZXJTdGFrZWRBbW91bnQDCQBmAgkBDmFjY291bnRCYWxhbmNlAQUMc2hhcmVBc3NldElkBQp0b3RhbFNoYXJlCQACAQIwQmFsYW5jZSBvZiBzaGFyZS10b2tlbiBpcyBsb3dlciB0aGFuIHRvdGFsQW1vdW50AwMJAAACBQ91c2VyTG9ja2VkSGVpZ3QAAAMDCQBmAgABCQCQAwEIBQFpCHBheW1lbnRzBgkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQR1bml0BgkAZgIFDGxvY2tXYXZlc0ZlZQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQHCQACAQkArAICCQCsAgICK1lvdSBuZWVkIHRvIHBheSBhZGRpdGlvbmFsIHdhdmVzIGNvbWlzc2lvbiAJAKQDAQUMbG9ja1dhdmVzRmVlAgVXQVZFUwMDCQAAAgUPdXNlckxvY2tlZEhlaWd0AAAJAGcCAAAFCmxvY2tBbW91bnQHCQACAQIhbG9ja0Ftb3VudCBtdXN0IGJlIGdyZWF0ZXIgdGhhbiAwAwkAZgIAAAUKbG9ja0Ftb3VudAkAAgECG2xvY2tBbW91bnQgbXVzdCBiZSBwb3NpdGl2ZQMJAGYCBQ91c2VyTG9ja2VkSGVpZ3QJAGQCBQZoZWlnaHQFCmxvY2tQZXJpb2QJAAIBAk9Zb3UgY2Fubm90IGxvY2sgc2hhcmV0b2tlbnMgZm9yIGEgcGVyaW9kIGxlc3MgdGhhbiB3aGF0IHlvdSBoYXZlIGFscmVhZHkgbG9ja2VkBBN1c2VyTG9ja2VkQW1vdW50TmV3CQBkAgUQdXNlckxvY2tlZEFtb3VudAUKbG9ja0Ftb3VudAQTdXNlclN0YWtlZEFtb3VudE5ldwkAZQIFEHVzZXJTdGFrZWRBbW91bnQFCmxvY2tBbW91bnQEEnVzZXJMb2NrZWRIZWlndE5ldwkAZAIFBmhlaWdodAUKbG9ja1BlcmlvZAQUdXNlckFtb3VudFZpcnR1YWxOZXcJAGQCCQBrAwUTdXNlckxvY2tlZEFtb3VudE5ldwUIbG9ja0NvZWYFEmxvY2tCb29zdENvZWZTY2FsZQUTdXNlclN0YWtlZEFtb3VudE5ldwQNJHQwMzAxODUzMDI2NwkBCWNsYWltQ2FsYwIFBHBvb2wFBHVzZXIEDGZhcm1JbnRlcmVzdAgFDSR0MDMwMTg1MzAyNjcCXzEEDWJvb3N0SW50ZXJlc3QIBQ0kdDAzMDE4NTMwMjY3Al8yBAtjbGFpbUFtb3VudAgFDSR0MDMwMTg1MzAyNjcCXzMECnRvVHJlYXN1cmUIBQ0kdDAzMDE4NTMwMjY3Al80BBFhdmFpbGFibGVGdW5kc05ldwkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wFBHVzZXIFC2NsYWltQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkBRN1c2VyU3Rha2VkQW1vdW50TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zTG9ja2VkBRN1c2VyTG9ja2VkQW1vdW50TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRxrVXNlclNoYXJlVG9rZW5zTG9ja2VkSGVpZ2h0BRJ1c2VyTG9ja2VkSGVpZ3ROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFGmtVc2VyU2hhcmVUb2tlbnNMb2NrZWRUeXBlBQhsb2NrVHlwZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFFHVzZXJBbW91bnRWaXJ0dWFsTmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tTaGFyZVRva2Vuc1ZpcnR1YWwJAGQCCQBlAgURdG90YWxTaGFyZVZpcnR1YWwFEXVzZXJBbW91bnRWaXJ0dWFsBRR1c2VyQW1vdW50VmlydHVhbE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUVa0Zhcm1Vc2VyTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtCb29zdFVzZXJMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa0xhc3RJbnRlcmVzdEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBQ5rQXZhaWxhYmxlU1dPUAURYXZhaWxhYmxlRnVuZHNOZXcJAMwIAgkBB1JlaXNzdWUDBQRTV09QBQp0b1RyZWFzdXJlBgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRNmYXJtaW5nVHJlYXN1cmVBZGRyBQp0b1RyZWFzdXJlBQRTV09QBQNuaWwBaQEOdW5sb2NrVXNlckxvY2sCBHBvb2wEdXNlcgkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAQPdXNlckxvY2tlZEhlaWd0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAkArAICCQCsAgIJAKwCAgkArAICAhFUaGVyZSBpcyBubyBwb29sIAUEcG9vbAIJIG9yIHVzZXIgBQR1c2VyAgl3aXRoIGxvY2sDCQBmAgUPdXNlckxvY2tlZEhlaWd0BQZoZWlnaHQJAAIBCQCsAgICIllvdSBjYW4ndCB1bmxvY2sgc2hhcmV0b2tlbnMgdGlsbCAJAKQDAQUPdXNlckxvY2tlZEhlaWd0CQDOCAIJARJ1bmxvY2tVc2VyTG9ja0NhbGMDBQFpBQRwb29sBQR1c2VyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUNa0xvY2tXYXZlc0ZlZQUEdW5pdAUDbmlsAWkBGHVubG9ja1VzZXJMb2NrRGVwcmVjYXRlZAIEcG9vbAR1c2VyCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUACQELdmFsdWVPckVsc2UCCQEKaXNTZWxmQ2FsbAEFAWkDCQEBIQEJARFnZXREZXByZWNhdGVkUG9vbAEFBHBvb2wJAAIBAhdQb29sIG11c3QgYmUgZGVwcmVjYXRlZAMJAQlpc0RlZmluZWQBCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFHGtVc2VyU2hhcmVUb2tlbnNMb2NrZWRIZWlnaHQJAM4IAgkBEnVubG9ja1VzZXJMb2NrQ2FsYwMFAWkFBHBvb2wFBHVzZXIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPbW9uZXlCb3hBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzBQ1rTG9ja1dhdmVzRmVlBQR1bml0BQNuaWwFA25pbAFpARN3aXRoZHJhd1NoYXJlVG9rZW5zAgRwb29sGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAJARdjYWxjV2l0aGRyYXdTaGFyZVRva2VucwQFAWkIBQFpBmNhbGxlcgUEcG9vbAUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAFpARt3aXRoZHJhd1NoYXJlVG9rZW5zRnJvbVBvb2wDC2NhbGxlckJ5dGVzBHBvb2wZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAkBC3ZhbHVlT3JFbHNlAgkBCmlzUG9vbENhbGwCBQFpBQRwb29sCQEXY2FsY1dpdGhkcmF3U2hhcmVUb2tlbnMEBQFpCQEHQWRkcmVzcwEFC2NhbGxlckJ5dGVzBQRwb29sBRlzaGFyZVRva2Vuc1dpdGhkcmF3QW1vdW50AWkBBWNsYWltAQRwb29sCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAFyCQEJY2FsY0NsYWltAwUBaQUEcG9vbAgFAWkGY2FsbGVyAwkAAAIIBQFyAl8yAAAJAAIBAhlZb3UgaGF2ZSAwIGF2YWlsYWJsZSBTV09QBQFyAWkBDWNsYWltSW50ZXJuYWwCBHBvb2wGY2FsbGVyCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUACQELdmFsdWVPckVsc2UCCQEKaXNTZWxmQ2FsbAEFAWkJAQljYWxjQ2xhaW0DBQFpBQRwb29sCQEHQWRkcmVzcwEFBmNhbGxlcgFpAQ1jbGFpbUFuZFN0YWtlAQRwb29sCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAtjbGFpbUFtb3VudAoAAUAJAPwHBAUEdGhpcwINY2xhaW1JbnRlcm5hbAkAzAgCBQRwb29sCQDMCAIICAUBaQZjYWxsZXIFYnl0ZXMFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQtjbGFpbUFtb3VudAULY2xhaW1BbW91bnQDCQAAAgULY2xhaW1BbW91bnQAAAkAAgECGVlvdSBoYXZlIDAgYXZhaWxhYmxlIFNXT1AECnN0YWtlVG9Hb3YJAPwHBAUKZ292QWRkcmVzcwITbG9ja1NXT1BGcm9tRmFybWluZwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRTV09QBQtjbGFpbUFtb3VudAUDbmlsAwkAAAIFCnN0YWtlVG9Hb3YFCnN0YWtlVG9Hb3YFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhjbGFpbUFsbAEFcG9vbHMJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAKAQhjbGFpbUludgIKY2xhaW1Ub3RhbARwb29sBAtjbGFpbUFtb3VudAoAAUAJAPwHBAUEdGhpcwINY2xhaW1JbnRlcm5hbAkAzAgCBQRwb29sCQDMCAIICAUBaQZjYWxsZXIFYnl0ZXMFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQtjbGFpbUFtb3VudAULY2xhaW1BbW91bnQJAGQCBQpjbGFpbVRvdGFsBQtjbGFpbUFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQKY2xhaW1Ub3RhbAoAAiRsBQVwb29scwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIY2xhaW1JbnYCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDYwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AwkAAAIFCmNsYWltVG90YWwAAAkAAgECGVlvdSBoYXZlIDAgYXZhaWxhYmxlIFNXT1AJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQpjbGFpbVRvdGFsBQRTV09QBQNuaWwBaQEQY2xhaW1BbGxBbmRTdGFrZQEFcG9vbHMJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAKAQhjbGFpbUludgIKY2xhaW1Ub3RhbARwb29sBAtjbGFpbUFtb3VudAoAAUAJAPwHBAUEdGhpcwINY2xhaW1JbnRlcm5hbAkAzAgCBQRwb29sCQDMCAIICAUBaQZjYWxsZXIFYnl0ZXMFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQtjbGFpbUFtb3VudAULY2xhaW1BbW91bnQJAGQCBQpjbGFpbVRvdGFsBQtjbGFpbUFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQKY2xhaW1Ub3RhbAoAAiRsBQVwb29scwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIY2xhaW1JbnYCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDYwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AwkAAAIFCmNsYWltVG90YWwAAAkAAgECGVlvdSBoYXZlIDAgYXZhaWxhYmxlIFNXT1AECnN0YWtlVG9Hb3YJAPwHBAUKZ292QWRkcmVzcwITbG9ja1NXT1BGcm9tRmFybWluZwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRTV09QBQpjbGFpbVRvdGFsBQNuaWwDCQAAAgUKc3Rha2VUb0dvdgUKc3Rha2VUb0dvdgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBF3VwZGF0ZVVzZXJCb29zdEludGVyZXN0AgRwb29sBHVzZXIJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQADCQECIT0CCAUBaQZjYWxsZXIFDXZvdGluZ0FkZHJlc3MJAAIBAiNPbmx5IHZvaXRpbmcgY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgQNJHQwMzUwMTYzNTA5OAkBCWNsYWltQ2FsYwIFBHBvb2wFBHVzZXIEDGZhcm1JbnRlcmVzdAgFDSR0MDM1MDE2MzUwOTgCXzEEDWJvb3N0SW50ZXJlc3QIBQ0kdDAzNTAxNjM1MDk4Al8yBAtjbGFpbUFtb3VudAgFDSR0MDM1MDE2MzUwOTgCXzMECnRvVHJlYXN1cmUIBQ0kdDAzNTAxNjM1MDk4Al80BBFhdmFpbGFibGVGdW5kc05ldwkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wFBHVzZXIFC2NsYWltQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRVrRmFybVVzZXJMYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFDmtBdmFpbGFibGVTV09QBRFhdmFpbGFibGVGdW5kc05ldwkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2Zhcm1pbmdUcmVhc3VyZUFkZHIFCnRvVHJlYXN1cmUFBFNXT1AFA25pbAFpAQhzaHV0ZG93bgAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDCQEBIQEFBmFjdGl2ZQkAAgEJAKwCAgIiREFwcCBpcyBhbHJlYWR5IHN1c3BlbmRlZC4gQ2F1c2U6IAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQZrQ2F1c2UCGnRoZSBjYXVzZSB3YXNuJ3Qgc3BlY2lmaWVkCQEHc3VzcGVuZAECD1BhdXNlZCBieSBhZG1pbgFpAQhhY3RpdmF0ZQAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDBQZhY3RpdmUJAAIBAhZEQXBwIGlzIGFscmVhZHkgYWN0aXZlCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBgkAzAgCCQELRGVsZXRlRW50cnkBBQZrQ2F1c2UFA25pbAECdHgBBnZlcmlmeQAEByRtYXRjaDAFAnR4BBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQxhZG1pblB1YktleTEAAQAABBJhZG1pblB1YktleTJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQxhZG1pblB1YktleTIAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQxhZG1pblB1YktleTMAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAAIhr/TB",
    "height": 2437625,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8hNcYcVgiRSaBTrTeeeJBXye7CPDt6krFJuhbR9zQ9Ty
Next: EQbGy1MSs5Q4K2Z5c6VD9v5ywUBemomGN7gc1BcASdT1

Diff: 
Old New Differences
4 4  let kActive = "active"
5 5  
6 6  let kActiveGlob = "active_all_contracts"
7 + 
8 + let kDeprecatedPool = "deprecated_"
7 9  
8 10  let kCause = "shutdown_cause"
9 11  
12 14  let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
13 15  
14 16  let kHeightPoolFraction = "_pool_reward_update_height"
17 + 
18 + let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
19 + 
20 + let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
15 21  
16 22  let kRewardUpdateHeight = "reward_update_height"
17 23  
48 54  let kSWOPid = "SWOP_id"
49 55  
50 56  let kAvailableSWOP = "_available_SWOP"
57 + 
58 + let kSwopYearEmission = "swop_year_emission"
51 59  
52 60  let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
53 61  
97 105  
98 106  let defPoolBoostCoef = 500
99 107  
100 - let startEmissionH = 1911271
101 - 
102 - let swopYearEmission = 100000000000000
103 - 
104 - let blocksPerYear = 526330
108 + let bStartH = 3397850
105 109  
106 110  func getBase58FromOracle (key) = match getString(oracle, key) {
107 111      case string: String => 
136 140  let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
137 141  
138 142  let SWOP = fromBase58String(getStringValue(this, kSWOPid))
139 - 
140 - func getRewardsPerBlockInfo () = {
141 -     let emissionPeriods = ((height - startEmissionH) / blocksPerYear)
142 -     func calcEmission (acc,i) =     {
143 -         let $t047104747 = acc
144 -         let curEmission = $t047104747._1
145 -         let prevEmission = $t047104747._2
146 -         if ((emissionPeriods > i))
147 -             then $Tuple2(fraction(curEmission, 75, 100), curEmission)
148 -             else $Tuple2(curEmission, prevEmission)
149 -         }
150 - 
151 -     let $t049055071 = {
152 -         let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
153 -         let $s = size($l)
154 -         let $acc0 = $Tuple2(swopYearEmission, swopYearEmission)
155 -         func $f0_1 ($a,$i) =         if (($i >= $s))
156 -             then $a
157 -             else calcEmission($a, $l[$i])
158 - 
159 -         func $f0_2 ($a,$i) =         if (($i >= $s))
160 -             then $a
161 -             else throw("List size exceeds 20")
162 - 
163 -         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
164 -         }
165 -     let curEmission = $t049055071._1
166 -     let prevEmission = $t049055071._2
167 -     $Tuple3((curEmission / blocksPerYear), (prevEmission / blocksPerYear), (startEmissionH + (blocksPerYear * emissionPeriods)))
168 -     }
169 - 
170 143  
171 144  func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
172 145  
208 181  
209 182  
210 183  func rewardInfo (pool) = {
211 -     let $t068867001 = getRewardsPerBlockInfo()
212 -     let totalRewardPerBlockCurrent = $t068867001._1
213 -     let totalRewardPerBlockPrevious = $t068867001._2
214 -     let lastEmissionUpdateHeight = $t068867001._3
184 +     let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
185 +     let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
215 186      let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
216 187      let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
217 188      let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
218 189      let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
219 190      let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
220 191      let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
221 -     let rewardPoolPrevCurrent = fraction(totalRewardPerBlockPrevious, rewardPoolFractionCurrent, totalVoteShare)
222 -     let rewardPoolPrevPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
223 192      if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
224 193          then true
225 194          else (rewardPoolPrevious > totalRewardPerBlockPrevious))
226 195          then throw("rewardPoolCurrent > totalRewardPerBlockCurrent or rewardPoolPrevious > totalRewardPerBlockPrevious")
227 -         else $Tuple7(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight, lastEmissionUpdateHeight, rewardPoolPrevCurrent, rewardPoolPrevPrevious)
196 +         else $Tuple4(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight)
228 197      }
229 198  
230 199  
248 217      }
249 218  
250 219  
251 - func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue,toHeight) = {
252 -     let $t01001511200 = if (if (if ((rewardUpdateHeight > toHeight))
220 + func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = {
221 +     let $t0951610689 = if (if (if ((rewardUpdateHeight > height))
253 222          then (rewardUpdateHeight == poolRewardUpdateHeight)
254 223          else false)
255 224          then true
256 -         else if ((toHeight > rewardUpdateHeight))
225 +         else if ((height > rewardUpdateHeight))
257 226              then (rewardUpdateHeight != poolRewardUpdateHeight)
258 227              else false)
259 228          then {
260 -             let r = (previousRewardPerBlock * (toHeight - lastInterestHeight))
229 +             let r = (previousRewardPerBlock * (height - lastInterestHeight))
261 230              $Tuple3(r, farmInterest, boostInterest)
262 231              }
263 -         else if (if (if ((toHeight > rewardUpdateHeight))
232 +         else if (if (if ((height > rewardUpdateHeight))
264 233              then (rewardUpdateHeight == poolRewardUpdateHeight)
265 234              else false)
266 235              then (lastInterestHeight > rewardUpdateHeight)
267 236              else false)
268 237              then {
269 -                 let r = (currentRewardPerBlock * (toHeight - lastInterestHeight))
238 +                 let r = (currentRewardPerBlock * (height - lastInterestHeight))
270 239                  $Tuple3(r, farmInterest, boostInterest)
271 240                  }
272 241              else {
275 244                  let bBfrUp = (boostInterest + (if ((poolVoted > 0))
276 245                      then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, poolVoted)
277 246                      else 0))
278 -                 let rwd = (currentRewardPerBlock * (toHeight - rewardUpdateHeight))
247 +                 let rwd = (currentRewardPerBlock * (height - rewardUpdateHeight))
279 248                  $Tuple3(rwd, fBfrUp, bBfrUp)
280 249                  }
281 -     let reward = $t01001511200._1
282 -     let farmIntrBefore = $t01001511200._2
283 -     let boostIntrBefore = $t01001511200._3
250 +     let reward = $t0951610689._1
251 +     let farmIntrBefore = $t0951610689._2
252 +     let boostIntrBefore = $t0951610689._3
284 253      let newFarmInterest = (farmIntrBefore + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
285 254      let newBoostInterest = (boostIntrBefore + (if ((poolVoted > 0))
286 255          then fraction(calcBoostRwd(pool, reward), scaleValue8, poolVoted)
296 265      let shareToken = getTotalShareToken(pool)
297 266      let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareToken)
298 267      let stratBFarmInterest = valueOrElse(getInteger(this, (pool + kStratBFarmInterest)), 0)
299 -     let $t01203812119 = getLastInterestInfo(pool)
300 -     let lastInterestHeight = $t01203812119._1
301 -     let farmInterest = $t01203812119._2
302 -     let boostInterest = $t01203812119._3
303 -     let $t01212412381 = rewardInfo(pool)
304 -     let currentRewardPerBlock = $t01212412381._1
305 -     let rewardUpdateHeight = $t01212412381._2
306 -     let previousRewardPerBlock = $t01212412381._3
307 -     let poolRewardUpdateHeight = $t01212412381._4
308 -     let emissionUpdateHeight = $t01212412381._5
309 -     let prevCurrentRewardPerBlock = $t01212412381._6
310 -     let prevPreviousRewardPerBlock = $t01212412381._7
268 +     let $t01152711608 = getLastInterestInfo(pool)
269 +     let lastInterestHeight = $t01152711608._1
270 +     let farmInterest = $t01152711608._2
271 +     let boostInterest = $t01152711608._3
272 +     let $t01161311727 = rewardInfo(pool)
273 +     let currentRewardPerBlock = $t01161311727._1
274 +     let rewardUpdateHeight = $t01161311727._2
275 +     let previousRewardPerBlock = $t01161311727._3
276 +     let poolRewardUpdateHeight = $t01161311727._4
311 277      let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
312 278      let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), if (if ((stratBFarmInterest > uFarmInterest))
313 279          then (uPoolVoted > 0)
318 284      let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
319 285      if ((totalShareVirtual == 0))
320 286          then {
321 -             let toTreasury = if ((emissionUpdateHeight > lastInterestHeight))
322 -                 then ((prevCurrentRewardPerBlock * (emissionUpdateHeight - lastInterestHeight)) + (currentRewardPerBlock * (height - emissionUpdateHeight)))
323 -                 else (currentRewardPerBlock * (height - lastInterestHeight))
287 +             let toTreasury = (currentRewardPerBlock * (height - lastInterestHeight))
324 288              $Tuple4(farmInterest, boostInterest, 0, toTreasury)
325 289              }
326 290          else {
327 -             let $t01333914476 = if ((emissionUpdateHeight > lastInterestHeight))
328 -                 then {
329 -                     let $t01375214311 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, prevCurrentRewardPerBlock, totalShareVirtual, prevPreviousRewardPerBlock, scaleValue, emissionUpdateHeight)
330 -                     let prevNewFarmInterest = $t01375214311._1
331 -                     let prevNewBoostInterest = $t01375214311._2
332 -                     $Tuple3(prevNewFarmInterest, prevNewBoostInterest, emissionUpdateHeight)
333 -                     }
334 -                 else $Tuple3(farmInterest, boostInterest, lastInterestHeight)
335 -             let prevFarmInterest = $t01333914476._1
336 -             let prevBoostInterest = $t01333914476._2
337 -             let LIHeight = $t01333914476._3
338 -             let $t01448514908 = calcInterest(pool, LIHeight, rewardUpdateHeight, poolRewardUpdateHeight, prevFarmInterest, prevBoostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue, height)
339 -             let newFarmInterest = $t01448514908._1
340 -             let newBoostInterest = $t01448514908._2
291 +             let $t01244012832 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue)
292 +             let newFarmInterest = $t01244012832._1
293 +             let newBoostInterest = $t01244012832._2
341 294              let farmRwd = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
342 295              let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
343 296              let boostRwdMax = fraction(fraction(uShareTokensVirt, (newFarmInterest - max([uFarmInterest, stratBFarmInterest])), scaleValue), poolBoostCoef, lockBoostCoefScale)
353 306  
354 307  func availableClaimCalcAllByUser (pools,user) = {
355 308      func calcAvailable (acc,pool) =     {
356 -         let $t01577715806 = acc
357 -         let newPools = $t01577715806._1
358 -         let amounts = $t01577715806._2
359 -         let $t01581515868 = claimCalc(pool, user)
360 -         let fi = $t01581515868._1
361 -         let bi = $t01581515868._2
362 -         let claimAmount = $t01581515868._3
363 -         let tt = $t01581515868._4
309 +         let $t01370113730 = acc
310 +         let newPools = $t01370113730._1
311 +         let amounts = $t01370113730._2
312 +         let $t01373913792 = claimCalc(pool, user)
313 +         let fi = $t01373913792._1
314 +         let bi = $t01373913792._2
315 +         let claimAmount = $t01373913792._3
316 +         let tt = $t01373913792._4
364 317          let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
365 318          $Tuple2((newPools :+ pool), (amounts :+ availableFund))
366 319          }
425 378      else throw("Only pool can call this function")
426 379  
427 380  
381 + func getDeprecatedPool (pool) = valueOrElse(getBoolean(oracle, (kDeprecatedPool + pool)), false)
382 + 
383 + 
384 + func isDeprecatedPool (pool) = if (!(getDeprecatedPool(pool)))
385 +     then unit
386 +     else throw("Pool is deprecated. Only unlock action allowed.")
387 + 
388 + 
428 389  func isSelfCall (i) = if ((i.caller == this))
429 390      then unit
430 391      else throw("Only contract itself can call this function")
440 401      let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
441 402      let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
442 403      let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
443 -     let $t01866918721 = getLockParams(lockType)
444 -     let lockPeriod = $t01866918721._1
445 -     let lockCoef = $t01866918721._2
404 +     let $t01684116893 = getLockParams(lockType)
405 +     let lockPeriod = $t01684116893._1
406 +     let lockCoef = $t01684116893._2
446 407      let lockWavesFee = getIntegerValue(this, kLockWavesFee)
447 408      if ((i.payments[0].assetId != shareAssetId))
448 409          then throw("Wrong sharetoken in payment")
454 415                      let shareTokensChangeOnFH = canLockInFirstHarvest(pool, user, userStakedAmount, i.payments[0].amount, lockType)
455 416                      if ((shareTokensChangeOnFH == shareTokensChangeOnFH))
456 417                          then {
457 -                             let $t01914821082 = if ((lockType == 0))
418 +                             let $t01732019254 = if ((lockType == 0))
458 419                                  then {
459 420                                      let userAmountVirtualNew = ((userAmountVirtual + i.payments[0].amount) - shareTokensChangeOnFH)
460 421                                      $Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), ((userStakedAmount + i.payments[0].amount) - shareTokensChangeOnFH)), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual + i.payments[0].amount) - shareTokensChangeOnFH)), ScriptTransfer(caller, shareTokensChangeOnFH, i.payments[0].assetId)], ((totalShare + i.payments[0].amount) - shareTokensChangeOnFH))
475 436                                              let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
476 437                                              $Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensLocked), userLockedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedHeight), userLockedHeigtNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedType), lockType), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userAmountVirtualNew))], (totalShare + i.payments[0].amount))
477 438                                              }
478 -                             let lockEntries = $t01914821082._1
479 -                             let totalShareNew = $t01914821082._2
439 +                             let lockEntries = $t01732019254._1
440 +                             let totalShareNew = $t01732019254._2
480 441                              if ((accountBalance(shareAssetId) > totalShareNew))
481 442                                  then throw("Balance of share-token is lower than totalAmount")
482 443                                  else {
483 -                                     let $t02120721289 = claimCalc(pool, user)
484 -                                     let farmInterest = $t02120721289._1
485 -                                     let boostInterest = $t02120721289._2
486 -                                     let claimAmount = $t02120721289._3
487 -                                     let toTreasure = $t02120721289._4
444 +                                     let $t01937919461 = claimCalc(pool, user)
445 +                                     let farmInterest = $t01937919461._1
446 +                                     let boostInterest = $t01937919461._2
447 +                                     let claimAmount = $t01937919461._3
448 +                                     let toTreasure = $t01937919461._4
488 449                                      let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
489 450                                      let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
490 451                                          then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, totalUserShareTokens], nil)
499 460      }
500 461  
501 462  
502 - func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), {
503 -     let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
504 -     let user = toString(caller)
505 -     let $t02248122563 = claimCalc(pool, user)
506 -     let farmInterest = $t02248122563._1
507 -     let boostInterest = $t02248122563._2
508 -     let claimAmount = $t02248122563._3
509 -     let toTreasure = $t02248122563._4
510 -     let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
511 -     let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
512 -     let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
513 -     let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
514 -     let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
515 -     let totalShareAmount = getTotalShareToken(pool)
516 -     let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
517 -     let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
518 -     let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
519 -     let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
520 -     if ((shareTokensWithdrawAmount > userStakedAmount))
521 -         then throw("Withdraw amount more then user locked amount")
522 -         else if ((accountBalance(shareTokensId) > totalShareAmount))
523 -             then throw("Balance of share-token is lower than totalAmount")
524 -             else {
525 -                 let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
526 -                     then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
527 -                     else 0
528 -                 if ((uplp == uplp))
529 -                     then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((pool + kShareTokensVirtual), totalShareVirtualNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
530 -                     else throw("Strict value is not equal to itself.")
531 -                 }
532 -     })
463 + func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = {
464 +     let inv = if (getDeprecatedPool(pool))
465 +         then invoke(this, "unlockUserLockDeprecated", [pool, toString(caller)], nil)
466 +         else 0
467 +     if ((inv == inv))
468 +         then {
469 +             let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
470 +             let user = toString(caller)
471 +             let $t02075820840 = claimCalc(pool, user)
472 +             let farmInterest = $t02075820840._1
473 +             let boostInterest = $t02075820840._2
474 +             let claimAmount = $t02075820840._3
475 +             let toTreasure = $t02075820840._4
476 +             let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
477 +             let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
478 +             let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
479 +             let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
480 +             let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
481 +             let totalShareAmount = getTotalShareToken(pool)
482 +             let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
483 +             let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
484 +             let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
485 +             let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
486 +             if ((shareTokensWithdrawAmount > userStakedAmount))
487 +                 then throw("Withdraw amount more then user locked amount")
488 +                 else if ((accountBalance(shareTokensId) > totalShareAmount))
489 +                     then throw("Balance of share-token is lower than totalAmount")
490 +                     else {
491 +                         let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
492 +                             then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
493 +                             else 0
494 +                         if ((uplp == uplp))
495 +                             then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((pool + kShareTokensVirtual), totalShareVirtualNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
496 +                             else throw("Strict value is not equal to itself.")
497 +                         }
498 +             }
499 +         else throw("Strict value is not equal to itself.")
500 +     }
533 501  
534 502  
535 503  func calcClaim (i,pool,caller) = {
536 504      let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
537 505      let user = toString(caller)
538 506      let shareTokenLocked = getTotalShareToken(pool)
539 -     let $t02507625158 = claimCalc(pool, user)
540 -     let farmInterest = $t02507625158._1
541 -     let boostInterest = $t02507625158._2
542 -     let claimAmount = $t02507625158._3
543 -     let toTreasure = $t02507625158._4
507 +     let $t02335123433 = claimCalc(pool, user)
508 +     let farmInterest = $t02335123433._1
509 +     let boostInterest = $t02335123433._2
510 +     let claimAmount = $t02335123433._3
511 +     let toTreasure = $t02335123433._4
544 512      let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
545 513      if ((accountBalance(shareTokensId) > shareTokenLocked))
546 514          then throw("Balance of share-token is lower than totalAmount")
550 518                  else nil
551 519              $Tuple2(([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), 0), Reissue(SWOP, (toTreasure + availableFund), true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ uTrans), availableFund)
552 520              }
521 +     }
522 + 
523 + 
524 + func unlockUserLockCalc (i,pool,user) = {
525 +     let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
526 +     let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
527 +     let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
528 +     let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
529 +     let userStakedAmountNew = (userStakedAmount + userLockedAmount)
530 +     let $t02483624918 = claimCalc(pool, user)
531 +     let farmInterest = $t02483624918._1
532 +     let boostInterest = $t02483624918._2
533 +     let claimAmount = $t02483624918._3
534 +     let toTreasure = $t02483624918._4
535 +     let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
536 + [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userStakedAmountNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userStakedAmountNew)), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), DeleteEntry((((pool + "_") + user) + kUserShareTokensLocked)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedHeight)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedType)), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
553 537      }
554 538  
555 539  
575 559      then throw("Only Governance can call this function")
576 560      else {
577 561          let user = toString(addressFromPublicKey(adminInvokePubKey))
578 -         let $t02703527109 = claimCalc(pool, user)
579 -         let farmInterest = $t02703527109._1
580 -         let boostInterest = $t02703527109._2
581 -         let boostLPinterest = $t02703527109._3
562 +         let $t02708427158 = claimCalc(pool, user)
563 +         let farmInterest = $t02708427158._1
564 +         let boostInterest = $t02708427158._2
565 +         let boostLPinterest = $t02708427158._3
582 566  [IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height)]
583 567          })
584 568  
585 569  
586 570  
587 571  @Callable(i)
588 - func lockShareTokens (pool,lockType) = valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType))
572 + func lockShareTokens (pool,lockType) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType)))
589 573  
590 574  
591 575  
592 576  @Callable(i)
593 - func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType)))
577 + func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType))))
594 578  
595 579  
596 580  
597 581  @Callable(i)
598 - func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isActive(), {
582 + func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), {
599 583      let shareAssetId = getShareAssetId(pool)
600 584      let user = toString(i.caller)
601 585      let totalShare = getTotalShareToken(pool)
605 589      let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
606 590      let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
607 591      let totalUserShareTokens = (userStakedAmount + userLockedAmount)
608 -     let $t02852828580 = getLockParams(lockType)
609 -     let lockPeriod = $t02852828580._1
610 -     let lockCoef = $t02852828580._2
592 +     let $t02878728839 = getLockParams(lockType)
593 +     let lockPeriod = $t02878728839._1
594 +     let lockCoef = $t02878728839._2
611 595      let lockWavesFee = getIntegerValue(this, kLockWavesFee)
612 596      if ((getHeightFirstHarvest(pool) > height))
613 597          then throw("You can't lock shareTokens till first harvest end.")
638 622                                          let userStakedAmountNew = (userStakedAmount - lockAmount)
639 623                                          let userLockedHeigtNew = (height + lockPeriod)
640 624                                          let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmountNew)
641 -                                         let $t02987029952 = claimCalc(pool, user)
642 -                                         let farmInterest = $t02987029952._1
643 -                                         let boostInterest = $t02987029952._2
644 -                                         let claimAmount = $t02987029952._3
645 -                                         let toTreasure = $t02987029952._4
625 +                                         let $t03018530267 = claimCalc(pool, user)
626 +                                         let farmInterest = $t03018530267._1
627 +                                         let boostInterest = $t03018530267._2
628 +                                         let claimAmount = $t03018530267._3
629 +                                         let toTreasure = $t03018530267._4
646 630                                          let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
647 631  [IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLocked), userLockedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedHeight), userLockedHeigtNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedType), lockType), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userAmountVirtualNew)), IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
648 632                                          }
633 +     }))
634 + 
635 + 
636 + 
637 + @Callable(i)
638 + func unlockUserLock (pool,user) = valueOrElse(isActive(), {
639 +     let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
640 +     if ((userLockedHeigt > height))
641 +         then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
642 +         else (unlockUserLockCalc(i, pool, user) ++ [ScriptTransfer(i.caller, getIntegerValue(this, kLockWavesFee), unit)])
649 643      })
650 644  
651 645  
652 646  
653 647  @Callable(i)
654 - func unlockUserLock (pool,user) = valueOrElse(isActive(), {
655 -     let lockWavesFee = getIntegerValue(this, kLockWavesFee)
656 -     let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
657 -     let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
658 -     let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
659 -     let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
660 -     let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
661 -     if ((userLockedHeigt > height))
662 -         then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
663 -         else {
664 -             let userStakedAmountNew = (userStakedAmount + userLockedAmount)
665 -             let $t03202932111 = claimCalc(pool, user)
666 -             let farmInterest = $t03202932111._1
667 -             let boostInterest = $t03202932111._2
668 -             let claimAmount = $t03202932111._3
669 -             let toTreasure = $t03202932111._4
670 -             let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
671 - [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userStakedAmountNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userStakedAmountNew)), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), DeleteEntry((((pool + "_") + user) + kUserShareTokensLocked)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedHeight)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedType)), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, lockWavesFee, unit)]
672 -             }
673 -     })
648 + func unlockUserLockDeprecated (pool,user) = valueOrElse(isActive(), valueOrElse(isSelfCall(i), if (!(getDeprecatedPool(pool)))
649 +     then throw("Pool must be deprecated")
650 +     else if (isDefined(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight))))
651 +         then (unlockUserLockCalc(i, pool, user) ++ [ScriptTransfer(moneyBoxAddress, getIntegerValue(this, kLockWavesFee), unit)])
652 +         else nil))
674 653  
675 654  
676 655  
800 779  func updateUserBoostInterest (pool,user) = valueOrElse(isActive(), if ((i.caller != votingAddress))
801 780      then throw("Only voiting can call this function")
802 781      else {
803 -         let $t03558535667 = claimCalc(pool, user)
804 -         let farmInterest = $t03558535667._1
805 -         let boostInterest = $t03558535667._2
806 -         let claimAmount = $t03558535667._3
807 -         let toTreasure = $t03558535667._4
782 +         let $t03501635098 = claimCalc(pool, user)
783 +         let farmInterest = $t03501635098._1
784 +         let boostInterest = $t03501635098._2
785 +         let claimAmount = $t03501635098._3
786 +         let toTreasure = $t03501635098._4
808 787          let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
809 788  [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
810 789          })
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let kActive = "active"
5 5  
6 6  let kActiveGlob = "active_all_contracts"
7 + 
8 + let kDeprecatedPool = "deprecated_"
7 9  
8 10  let kCause = "shutdown_cause"
9 11  
10 12  let kRewardPoolFractionCurrent = "_current_pool_fraction_reward"
11 13  
12 14  let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
13 15  
14 16  let kHeightPoolFraction = "_pool_reward_update_height"
17 + 
18 + let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
19 + 
20 + let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
15 21  
16 22  let kRewardUpdateHeight = "reward_update_height"
17 23  
18 24  let kUserShareTokensStaked = "_share_tokens_locked"
19 25  
20 26  let kUserShareTokensLocked = "_share_tokens_blocked"
21 27  
22 28  let kUserShareTokensLockedType = "_share_tokens_blocked_type"
23 29  
24 30  let kUserShareTokensLockedHeight = "_share_tokens_blocked_height"
25 31  
26 32  let kUserShareTokensVirtual = "_share_tokens_virtual"
27 33  
28 34  let kShareTotalShareTokens = "_total_share_tokens_locked"
29 35  
30 36  let kShareTokensVirtual = "_total_share_tokens_virtual"
31 37  
32 38  let kLockParams = "_lock_params"
33 39  
34 40  let kLockWavesFee = "lock_waves_fee"
35 41  
36 42  let kPoolBoostCoef = "_boost_coef"
37 43  
38 44  let kFarmLastInterest = "_last_interest"
39 45  
40 46  let kFarmUserLastInterest = "_last_interest"
41 47  
42 48  let kBoostLastInterest = "_last_interest_b"
43 49  
44 50  let kBoostUserLastInterest = "_last_interest_u_b"
45 51  
46 52  let kLastInterestHeight = "_last_interest_height"
47 53  
48 54  let kSWOPid = "SWOP_id"
49 55  
50 56  let kAvailableSWOP = "_available_SWOP"
57 + 
58 + let kSwopYearEmission = "swop_year_emission"
51 59  
52 60  let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
53 61  
54 62  let kPoolVote = "_pool_vote_gSWOP"
55 63  
56 64  let kUserPoolVote = "_user_vote_gSWOP"
57 65  
58 66  let kPoolStruc = "_pool_struc"
59 67  
60 68  let kUserPoolStruc = "_user_pool_struc"
61 69  
62 70  let kHarvestUserPoolVote = "_harvest_user_pool_vote_gSWOP"
63 71  
64 72  let kFirstHarvestHeight = "first_harvest_height"
65 73  
66 74  let kShareLimitFH = "share_limit_on_first_harvest"
67 75  
68 76  let kStratBFarmInterest = "_strat_b_farm_interest"
69 77  
70 78  let kCpmmContract = "cpmm_contract"
71 79  
72 80  let kAdminPubKey1 = "admin_pub_1"
73 81  
74 82  let kAdminPubKey2 = "admin_pub_2"
75 83  
76 84  let kAdminPubKey3 = "admin_pub_3"
77 85  
78 86  let kAdminInvokePubKey = "admin_invoke_pub"
79 87  
80 88  let kMoneyBoxAddress = "money_box_address"
81 89  
82 90  let kVotingAddress = "voting_address"
83 91  
84 92  let kGovAddress = "governance_address"
85 93  
86 94  let kLPFarmingAddress = "lp_farming"
87 95  
88 96  let kFarmingTreasureAddr = "farming_treasure"
89 97  
90 98  let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
91 99  
92 100  let totalVoteShare = 10000000000
93 101  
94 102  let scaleValue8 = 100000000
95 103  
96 104  let lockBoostCoefScale = 1000
97 105  
98 106  let defPoolBoostCoef = 500
99 107  
100 - let startEmissionH = 1911271
101 - 
102 - let swopYearEmission = 100000000000000
103 - 
104 - let blocksPerYear = 526330
108 + let bStartH = 3397850
105 109  
106 110  func getBase58FromOracle (key) = match getString(oracle, key) {
107 111      case string: String => 
108 112          fromBase58String(string)
109 113      case nothing => 
110 114          throw((key + "is empty"))
111 115  }
112 116  
113 117  
114 118  let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
115 119  
116 120  let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
117 121  
118 122  let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
119 123  
120 124  let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
121 125  
122 126  let votingAddress = Address(getBase58FromOracle(kVotingAddress))
123 127  
124 128  let govAddress = Address(getBase58FromOracle(kGovAddress))
125 129  
126 130  let adminInvokePubKey = getBase58FromOracle(kAdminInvokePubKey)
127 131  
128 132  let lpFarmingAddress = Address(getBase58FromOracle(kLPFarmingAddress))
129 133  
130 134  let farmingTreasureAddr = Address(getBase58FromOracle(kFarmingTreasureAddr))
131 135  
132 136  let cpmmContract = Address(getBase58FromOracle(kCpmmContract))
133 137  
134 138  let active = getBooleanValue(this, kActive)
135 139  
136 140  let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
137 141  
138 142  let SWOP = fromBase58String(getStringValue(this, kSWOPid))
139 - 
140 - func getRewardsPerBlockInfo () = {
141 -     let emissionPeriods = ((height - startEmissionH) / blocksPerYear)
142 -     func calcEmission (acc,i) =     {
143 -         let $t047104747 = acc
144 -         let curEmission = $t047104747._1
145 -         let prevEmission = $t047104747._2
146 -         if ((emissionPeriods > i))
147 -             then $Tuple2(fraction(curEmission, 75, 100), curEmission)
148 -             else $Tuple2(curEmission, prevEmission)
149 -         }
150 - 
151 -     let $t049055071 = {
152 -         let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
153 -         let $s = size($l)
154 -         let $acc0 = $Tuple2(swopYearEmission, swopYearEmission)
155 -         func $f0_1 ($a,$i) =         if (($i >= $s))
156 -             then $a
157 -             else calcEmission($a, $l[$i])
158 - 
159 -         func $f0_2 ($a,$i) =         if (($i >= $s))
160 -             then $a
161 -             else throw("List size exceeds 20")
162 - 
163 -         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
164 -         }
165 -     let curEmission = $t049055071._1
166 -     let prevEmission = $t049055071._2
167 -     $Tuple3((curEmission / blocksPerYear), (prevEmission / blocksPerYear), (startEmissionH + (blocksPerYear * emissionPeriods)))
168 -     }
169 - 
170 143  
171 144  func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
172 145  
173 146  
174 147  func getFHShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimitFH), ("No data on the key: " + kShareLimitFH))
175 148  
176 149  
177 150  func getTotalShareToken (pool) = valueOrErrorMessage(getInteger(this, (pool + kShareTotalShareTokens)), (("No data on the key: " + pool) + kShareTotalShareTokens))
178 151  
179 152  
180 153  func getPoolVoted (pool) = valueOrElse(getInteger(votingAddress, (pool + kPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (pool + kPoolStruc)), ""), "_")[0]), 0))
181 154  
182 155  
183 156  func getUserPoolVoted (pool,user) = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kUserPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (((user + "_") + pool) + kUserPoolStruc)), ""), "_")[0]), 0))
184 157  
185 158  
186 159  func getShareAssetId (pool) = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
187 160  
188 161  
189 162  func accountBalance (assetId) = match assetId {
190 163      case id: ByteVector => 
191 164          assetBalance(this, id)
192 165      case waves: Unit => 
193 166          wavesBalance(this).available
194 167      case _ => 
195 168          throw("Match error")
196 169  }
197 170  
198 171  
199 172  func calcScaleValue (assetId1,assetId2) = {
200 173      let assetId1Decimals = value(assetInfo(assetId1)).decimals
201 174      let assetId2Decimals = value(assetInfo(assetId2)).decimals
202 175      let scaleDigits = ((assetId2Decimals - assetId1Decimals) + 8)
203 176      pow(10, 0, scaleDigits, 0, 0, DOWN)
204 177      }
205 178  
206 179  
207 180  func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + user) + kAvailableSWOP)), 0)
208 181  
209 182  
210 183  func rewardInfo (pool) = {
211 -     let $t068867001 = getRewardsPerBlockInfo()
212 -     let totalRewardPerBlockCurrent = $t068867001._1
213 -     let totalRewardPerBlockPrevious = $t068867001._2
214 -     let lastEmissionUpdateHeight = $t068867001._3
184 +     let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
185 +     let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
215 186      let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
216 187      let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
217 188      let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
218 189      let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
219 190      let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
220 191      let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
221 -     let rewardPoolPrevCurrent = fraction(totalRewardPerBlockPrevious, rewardPoolFractionCurrent, totalVoteShare)
222 -     let rewardPoolPrevPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
223 192      if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
224 193          then true
225 194          else (rewardPoolPrevious > totalRewardPerBlockPrevious))
226 195          then throw("rewardPoolCurrent > totalRewardPerBlockCurrent or rewardPoolPrevious > totalRewardPerBlockPrevious")
227 -         else $Tuple7(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight, lastEmissionUpdateHeight, rewardPoolPrevCurrent, rewardPoolPrevPrevious)
196 +         else $Tuple4(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight)
228 197      }
229 198  
230 199  
231 200  func getLastInterestInfo (pool) = {
232 201      let farmInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kFarmLastInterest))
233 202      let boostInterest = valueOrElse(getInteger(this, (pool + kBoostLastInterest)), 0)
234 203      let lastInterestHeight = valueOrElse(getInteger(this, (pool + kLastInterestHeight)), height)
235 204      $Tuple3(lastInterestHeight, farmInterest, boostInterest)
236 205      }
237 206  
238 207  
239 208  func calcFarmRwd (pool,curTotalReward) = {
240 209      let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
241 210      fraction(curTotalReward, lockBoostCoefScale, (poolBoostCoef + lockBoostCoefScale))
242 211      }
243 212  
244 213  
245 214  func calcBoostRwd (pool,curTotalReward) = {
246 215      let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
247 216      fraction(curTotalReward, poolBoostCoef, (poolBoostCoef + lockBoostCoefScale))
248 217      }
249 218  
250 219  
251 - func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue,toHeight) = {
252 -     let $t01001511200 = if (if (if ((rewardUpdateHeight > toHeight))
220 + func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = {
221 +     let $t0951610689 = if (if (if ((rewardUpdateHeight > height))
253 222          then (rewardUpdateHeight == poolRewardUpdateHeight)
254 223          else false)
255 224          then true
256 -         else if ((toHeight > rewardUpdateHeight))
225 +         else if ((height > rewardUpdateHeight))
257 226              then (rewardUpdateHeight != poolRewardUpdateHeight)
258 227              else false)
259 228          then {
260 -             let r = (previousRewardPerBlock * (toHeight - lastInterestHeight))
229 +             let r = (previousRewardPerBlock * (height - lastInterestHeight))
261 230              $Tuple3(r, farmInterest, boostInterest)
262 231              }
263 -         else if (if (if ((toHeight > rewardUpdateHeight))
232 +         else if (if (if ((height > rewardUpdateHeight))
264 233              then (rewardUpdateHeight == poolRewardUpdateHeight)
265 234              else false)
266 235              then (lastInterestHeight > rewardUpdateHeight)
267 236              else false)
268 237              then {
269 -                 let r = (currentRewardPerBlock * (toHeight - lastInterestHeight))
238 +                 let r = (currentRewardPerBlock * (height - lastInterestHeight))
270 239                  $Tuple3(r, farmInterest, boostInterest)
271 240                  }
272 241              else {
273 242                  let rwdBfrUpd = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
274 243                  let fBfrUp = (farmInterest + fraction(calcFarmRwd(pool, rwdBfrUpd), scaleValue, shareTokenLocked))
275 244                  let bBfrUp = (boostInterest + (if ((poolVoted > 0))
276 245                      then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, poolVoted)
277 246                      else 0))
278 -                 let rwd = (currentRewardPerBlock * (toHeight - rewardUpdateHeight))
247 +                 let rwd = (currentRewardPerBlock * (height - rewardUpdateHeight))
279 248                  $Tuple3(rwd, fBfrUp, bBfrUp)
280 249                  }
281 -     let reward = $t01001511200._1
282 -     let farmIntrBefore = $t01001511200._2
283 -     let boostIntrBefore = $t01001511200._3
250 +     let reward = $t0951610689._1
251 +     let farmIntrBefore = $t0951610689._2
252 +     let boostIntrBefore = $t0951610689._3
284 253      let newFarmInterest = (farmIntrBefore + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
285 254      let newBoostInterest = (boostIntrBefore + (if ((poolVoted > 0))
286 255          then fraction(calcBoostRwd(pool, reward), scaleValue8, poolVoted)
287 256          else 0))
288 257      $Tuple2(newFarmInterest, newBoostInterest)
289 258      }
290 259  
291 260  
292 261  func claimCalc (pool,user) = {
293 262      let scaleValue = calcScaleValue(SWOP, getShareAssetId(pool))
294 263      let poolVoted = getPoolVoted(pool)
295 264      let uPoolVoted = getUserPoolVoted(pool, user)
296 265      let shareToken = getTotalShareToken(pool)
297 266      let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareToken)
298 267      let stratBFarmInterest = valueOrElse(getInteger(this, (pool + kStratBFarmInterest)), 0)
299 -     let $t01203812119 = getLastInterestInfo(pool)
300 -     let lastInterestHeight = $t01203812119._1
301 -     let farmInterest = $t01203812119._2
302 -     let boostInterest = $t01203812119._3
303 -     let $t01212412381 = rewardInfo(pool)
304 -     let currentRewardPerBlock = $t01212412381._1
305 -     let rewardUpdateHeight = $t01212412381._2
306 -     let previousRewardPerBlock = $t01212412381._3
307 -     let poolRewardUpdateHeight = $t01212412381._4
308 -     let emissionUpdateHeight = $t01212412381._5
309 -     let prevCurrentRewardPerBlock = $t01212412381._6
310 -     let prevPreviousRewardPerBlock = $t01212412381._7
268 +     let $t01152711608 = getLastInterestInfo(pool)
269 +     let lastInterestHeight = $t01152711608._1
270 +     let farmInterest = $t01152711608._2
271 +     let boostInterest = $t01152711608._3
272 +     let $t01161311727 = rewardInfo(pool)
273 +     let currentRewardPerBlock = $t01161311727._1
274 +     let rewardUpdateHeight = $t01161311727._2
275 +     let previousRewardPerBlock = $t01161311727._3
276 +     let poolRewardUpdateHeight = $t01161311727._4
311 277      let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
312 278      let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), if (if ((stratBFarmInterest > uFarmInterest))
313 279          then (uPoolVoted > 0)
314 280          else false)
315 281          then 0
316 282          else boostInterest)
317 283      let uShareTokensStaked = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
318 284      let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
319 285      if ((totalShareVirtual == 0))
320 286          then {
321 -             let toTreasury = if ((emissionUpdateHeight > lastInterestHeight))
322 -                 then ((prevCurrentRewardPerBlock * (emissionUpdateHeight - lastInterestHeight)) + (currentRewardPerBlock * (height - emissionUpdateHeight)))
323 -                 else (currentRewardPerBlock * (height - lastInterestHeight))
287 +             let toTreasury = (currentRewardPerBlock * (height - lastInterestHeight))
324 288              $Tuple4(farmInterest, boostInterest, 0, toTreasury)
325 289              }
326 290          else {
327 -             let $t01333914476 = if ((emissionUpdateHeight > lastInterestHeight))
328 -                 then {
329 -                     let $t01375214311 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, prevCurrentRewardPerBlock, totalShareVirtual, prevPreviousRewardPerBlock, scaleValue, emissionUpdateHeight)
330 -                     let prevNewFarmInterest = $t01375214311._1
331 -                     let prevNewBoostInterest = $t01375214311._2
332 -                     $Tuple3(prevNewFarmInterest, prevNewBoostInterest, emissionUpdateHeight)
333 -                     }
334 -                 else $Tuple3(farmInterest, boostInterest, lastInterestHeight)
335 -             let prevFarmInterest = $t01333914476._1
336 -             let prevBoostInterest = $t01333914476._2
337 -             let LIHeight = $t01333914476._3
338 -             let $t01448514908 = calcInterest(pool, LIHeight, rewardUpdateHeight, poolRewardUpdateHeight, prevFarmInterest, prevBoostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue, height)
339 -             let newFarmInterest = $t01448514908._1
340 -             let newBoostInterest = $t01448514908._2
291 +             let $t01244012832 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue)
292 +             let newFarmInterest = $t01244012832._1
293 +             let newBoostInterest = $t01244012832._2
341 294              let farmRwd = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
342 295              let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
343 296              let boostRwdMax = fraction(fraction(uShareTokensVirt, (newFarmInterest - max([uFarmInterest, stratBFarmInterest])), scaleValue), poolBoostCoef, lockBoostCoefScale)
344 297              let curBoostRwd = fraction((newBoostInterest - uBoostInterest), uPoolVoted, scaleValue8)
345 298              let boostRwd = min([boostRwdMax, curBoostRwd])
346 299              let toTreasury = (boostRwdMax - boostRwd)
347 300              if ((0 > toTreasury))
348 301                  then throw("toTreasury < 0")
349 302                  else $Tuple4(newFarmInterest, newBoostInterest, (farmRwd + boostRwd), toTreasury)
350 303              }
351 304      }
352 305  
353 306  
354 307  func availableClaimCalcAllByUser (pools,user) = {
355 308      func calcAvailable (acc,pool) =     {
356 -         let $t01577715806 = acc
357 -         let newPools = $t01577715806._1
358 -         let amounts = $t01577715806._2
359 -         let $t01581515868 = claimCalc(pool, user)
360 -         let fi = $t01581515868._1
361 -         let bi = $t01581515868._2
362 -         let claimAmount = $t01581515868._3
363 -         let tt = $t01581515868._4
309 +         let $t01370113730 = acc
310 +         let newPools = $t01370113730._1
311 +         let amounts = $t01370113730._2
312 +         let $t01373913792 = claimCalc(pool, user)
313 +         let fi = $t01373913792._1
314 +         let bi = $t01373913792._2
315 +         let claimAmount = $t01373913792._3
316 +         let tt = $t01373913792._4
364 317          let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
365 318          $Tuple2((newPools :+ pool), (amounts :+ availableFund))
366 319          }
367 320  
368 321      let $l = pools
369 322      let $s = size($l)
370 323      let $acc0 = $Tuple2(nil, nil)
371 324      func $f0_1 ($a,$i) =     if (($i >= $s))
372 325          then $a
373 326          else calcAvailable($a, $l[$i])
374 327  
375 328      func $f0_2 ($a,$i) =     if (($i >= $s))
376 329          then $a
377 330          else throw("List size exceeds 60")
378 331  
379 332      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60)
380 333      }
381 334  
382 335  
383 336  func canLockInFirstHarvest (pool,user,userShareTokensStaked,pmtAmount,lockType) = if ((getHeightFirstHarvest(pool) > height))
384 337      then {
385 338          let totalVoteAmount = valueOrElse(getInteger(votingAddress, (pool + kHarvestPoolVote)), 0)
386 339          let userVoteAmount = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kHarvestUserPoolVote)), 0)
387 340          let FHShareTokenLimit = getFHShareLimitToken(addressFromStringValue(pool))
388 341          let FHShareTokenUserLimit = (fraction(FHShareTokenLimit, userVoteAmount, totalVoteAmount) - userShareTokensStaked)
389 342          if ((lockType > 0))
390 343              then throw("You can't lock shareTokens till first harvest end.")
391 344              else if ((userVoteAmount == 0))
392 345                  then 0
393 346                  else if ((pmtAmount >= FHShareTokenUserLimit))
394 347                      then (pmtAmount - FHShareTokenUserLimit)
395 348                      else 0
396 349          }
397 350      else 0
398 351  
399 352  
400 353  func getLockParams (type) = {
401 354      let lockParams = split(valueOrErrorMessage(getString(this, (toString(type) + kLockParams)), ("There are no key for lock type" + toString(type))), "_")
402 355      $Tuple2(parseIntValue(lockParams[0]), parseIntValue(lockParams[1]))
403 356      }
404 357  
405 358  
406 359  func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
407 360  
408 361  
409 362  func isActive () = if (if (active)
410 363      then activeGlob
411 364      else false)
412 365      then unit
413 366      else throw("DApp is inactive at this moment")
414 367  
415 368  
416 369  func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
417 370      then unit
418 371      else throw("Only admin can call this function")
419 372  
420 373  
421 374  func isPoolCall (i,pool) = if (if ((toString(i.caller) == pool))
422 375      then true
423 376      else (i.caller == cpmmContract))
424 377      then unit
425 378      else throw("Only pool can call this function")
426 379  
427 380  
381 + func getDeprecatedPool (pool) = valueOrElse(getBoolean(oracle, (kDeprecatedPool + pool)), false)
382 + 
383 + 
384 + func isDeprecatedPool (pool) = if (!(getDeprecatedPool(pool)))
385 +     then unit
386 +     else throw("Pool is deprecated. Only unlock action allowed.")
387 + 
388 + 
428 389  func isSelfCall (i) = if ((i.caller == this))
429 390      then unit
430 391      else throw("Only contract itself can call this function")
431 392  
432 393  
433 394  func calcLockShareTokens (i,caller,pool,lockType) = {
434 395      let shareAssetId = getShareAssetId(pool)
435 396      let user = toString(caller)
436 397      let totalShare = getTotalShareToken(pool)
437 398      let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShare)
438 399      let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
439 400      let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
440 401      let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
441 402      let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
442 403      let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
443 -     let $t01866918721 = getLockParams(lockType)
444 -     let lockPeriod = $t01866918721._1
445 -     let lockCoef = $t01866918721._2
404 +     let $t01684116893 = getLockParams(lockType)
405 +     let lockPeriod = $t01684116893._1
406 +     let lockCoef = $t01684116893._2
446 407      let lockWavesFee = getIntegerValue(this, kLockWavesFee)
447 408      if ((i.payments[0].assetId != shareAssetId))
448 409          then throw("Wrong sharetoken in payment")
449 410          else if ((0 >= i.payments[0].amount))
450 411              then throw("Payment amount must be greater than 0")
451 412              else if ((0 > lockType))
452 413                  then throw("lockType must be >= 0")
453 414                  else {
454 415                      let shareTokensChangeOnFH = canLockInFirstHarvest(pool, user, userStakedAmount, i.payments[0].amount, lockType)
455 416                      if ((shareTokensChangeOnFH == shareTokensChangeOnFH))
456 417                          then {
457 -                             let $t01914821082 = if ((lockType == 0))
418 +                             let $t01732019254 = if ((lockType == 0))
458 419                                  then {
459 420                                      let userAmountVirtualNew = ((userAmountVirtual + i.payments[0].amount) - shareTokensChangeOnFH)
460 421                                      $Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), ((userStakedAmount + i.payments[0].amount) - shareTokensChangeOnFH)), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual + i.payments[0].amount) - shareTokensChangeOnFH)), ScriptTransfer(caller, shareTokensChangeOnFH, i.payments[0].assetId)], ((totalShare + i.payments[0].amount) - shareTokensChangeOnFH))
461 422                                      }
462 423                                  else if (if ((userLockedHeigt == 0))
463 424                                      then if (if ((2 > size(i.payments)))
464 425                                          then true
465 426                                          else (i.payments[1].assetId != unit))
466 427                                          then true
467 428                                          else (lockWavesFee > i.payments[1].amount)
468 429                                      else false)
469 430                                      then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
470 431                                      else if ((userLockedHeigt > (height + lockPeriod)))
471 432                                          then throw("You cannot lock sharetokens for a period less than what you have already locked")
472 433                                          else {
473 434                                              let userLockedAmountNew = (userLockedAmount + i.payments[0].amount)
474 435                                              let userLockedHeigtNew = (height + lockPeriod)
475 436                                              let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
476 437                                              $Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensLocked), userLockedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedHeight), userLockedHeigtNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedType), lockType), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userAmountVirtualNew))], (totalShare + i.payments[0].amount))
477 438                                              }
478 -                             let lockEntries = $t01914821082._1
479 -                             let totalShareNew = $t01914821082._2
439 +                             let lockEntries = $t01732019254._1
440 +                             let totalShareNew = $t01732019254._2
480 441                              if ((accountBalance(shareAssetId) > totalShareNew))
481 442                                  then throw("Balance of share-token is lower than totalAmount")
482 443                                  else {
483 -                                     let $t02120721289 = claimCalc(pool, user)
484 -                                     let farmInterest = $t02120721289._1
485 -                                     let boostInterest = $t02120721289._2
486 -                                     let claimAmount = $t02120721289._3
487 -                                     let toTreasure = $t02120721289._4
444 +                                     let $t01937919461 = claimCalc(pool, user)
445 +                                     let farmInterest = $t01937919461._1
446 +                                     let boostInterest = $t01937919461._2
447 +                                     let claimAmount = $t01937919461._3
448 +                                     let toTreasure = $t01937919461._4
488 449                                      let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
489 450                                      let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
490 451                                          then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, totalUserShareTokens], nil)
491 452                                          else 0
492 453                                      if ((uplp == uplp))
493 454                                          then ([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((pool + kShareTotalShareTokens), totalShareNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ lockEntries)
494 455                                          else throw("Strict value is not equal to itself.")
495 456                                      }
496 457                              }
497 458                          else throw("Strict value is not equal to itself.")
498 459                      }
499 460      }
500 461  
501 462  
502 - func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), {
503 -     let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
504 -     let user = toString(caller)
505 -     let $t02248122563 = claimCalc(pool, user)
506 -     let farmInterest = $t02248122563._1
507 -     let boostInterest = $t02248122563._2
508 -     let claimAmount = $t02248122563._3
509 -     let toTreasure = $t02248122563._4
510 -     let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
511 -     let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
512 -     let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
513 -     let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
514 -     let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
515 -     let totalShareAmount = getTotalShareToken(pool)
516 -     let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
517 -     let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
518 -     let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
519 -     let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
520 -     if ((shareTokensWithdrawAmount > userStakedAmount))
521 -         then throw("Withdraw amount more then user locked amount")
522 -         else if ((accountBalance(shareTokensId) > totalShareAmount))
523 -             then throw("Balance of share-token is lower than totalAmount")
524 -             else {
525 -                 let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
526 -                     then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
527 -                     else 0
528 -                 if ((uplp == uplp))
529 -                     then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((pool + kShareTokensVirtual), totalShareVirtualNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
530 -                     else throw("Strict value is not equal to itself.")
531 -                 }
532 -     })
463 + func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = {
464 +     let inv = if (getDeprecatedPool(pool))
465 +         then invoke(this, "unlockUserLockDeprecated", [pool, toString(caller)], nil)
466 +         else 0
467 +     if ((inv == inv))
468 +         then {
469 +             let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
470 +             let user = toString(caller)
471 +             let $t02075820840 = claimCalc(pool, user)
472 +             let farmInterest = $t02075820840._1
473 +             let boostInterest = $t02075820840._2
474 +             let claimAmount = $t02075820840._3
475 +             let toTreasure = $t02075820840._4
476 +             let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
477 +             let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
478 +             let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
479 +             let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
480 +             let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
481 +             let totalShareAmount = getTotalShareToken(pool)
482 +             let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
483 +             let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
484 +             let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
485 +             let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
486 +             if ((shareTokensWithdrawAmount > userStakedAmount))
487 +                 then throw("Withdraw amount more then user locked amount")
488 +                 else if ((accountBalance(shareTokensId) > totalShareAmount))
489 +                     then throw("Balance of share-token is lower than totalAmount")
490 +                     else {
491 +                         let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
492 +                             then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
493 +                             else 0
494 +                         if ((uplp == uplp))
495 +                             then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((pool + kShareTokensVirtual), totalShareVirtualNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
496 +                             else throw("Strict value is not equal to itself.")
497 +                         }
498 +             }
499 +         else throw("Strict value is not equal to itself.")
500 +     }
533 501  
534 502  
535 503  func calcClaim (i,pool,caller) = {
536 504      let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
537 505      let user = toString(caller)
538 506      let shareTokenLocked = getTotalShareToken(pool)
539 -     let $t02507625158 = claimCalc(pool, user)
540 -     let farmInterest = $t02507625158._1
541 -     let boostInterest = $t02507625158._2
542 -     let claimAmount = $t02507625158._3
543 -     let toTreasure = $t02507625158._4
507 +     let $t02335123433 = claimCalc(pool, user)
508 +     let farmInterest = $t02335123433._1
509 +     let boostInterest = $t02335123433._2
510 +     let claimAmount = $t02335123433._3
511 +     let toTreasure = $t02335123433._4
544 512      let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
545 513      if ((accountBalance(shareTokensId) > shareTokenLocked))
546 514          then throw("Balance of share-token is lower than totalAmount")
547 515          else {
548 516              let uTrans = if ((i.caller != this))
549 517                  then [ScriptTransfer(i.caller, availableFund, SWOP)]
550 518                  else nil
551 519              $Tuple2(([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), 0), Reissue(SWOP, (toTreasure + availableFund), true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ uTrans), availableFund)
552 520              }
521 +     }
522 + 
523 + 
524 + func unlockUserLockCalc (i,pool,user) = {
525 +     let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
526 +     let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
527 +     let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
528 +     let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
529 +     let userStakedAmountNew = (userStakedAmount + userLockedAmount)
530 +     let $t02483624918 = claimCalc(pool, user)
531 +     let farmInterest = $t02483624918._1
532 +     let boostInterest = $t02483624918._2
533 +     let claimAmount = $t02483624918._3
534 +     let toTreasure = $t02483624918._4
535 +     let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
536 + [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userStakedAmountNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userStakedAmountNew)), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), DeleteEntry((((pool + "_") + user) + kUserShareTokensLocked)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedHeight)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedType)), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
553 537      }
554 538  
555 539  
556 540  @Callable(i)
557 541  func init (earlyLP) = if (isDefined(getString(this, kSWOPid)))
558 542      then throw("SWOP already initialized")
559 543      else {
560 544          let initAmount = 100000000000000
561 545          let SWOPissue = Issue("SWOP", "SWOP protocol token", initAmount, 8, true)
562 546          let SWOPid = calculateAssetId(SWOPissue)
563 547  [BooleanEntry(kActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(kSWOPid, toBase58String(SWOPid))]
564 548          }
565 549  
566 550  
567 551  
568 552  @Callable(i)
569 553  func initPoolShareFarming (pool) = valueOrElse(isAdminCall(i), [IntegerEntry((pool + kShareTotalShareTokens), 0), IntegerEntry((pool + kFarmLastInterest), 0), IntegerEntry((pool + kBoostLastInterest), 0), IntegerEntry((pool + kLastInterestHeight), height)])
570 554  
571 555  
572 556  
573 557  @Callable(i)
574 558  func updatePoolInterest (pool) = valueOrElse(isActive(), if ((i.caller != govAddress))
575 559      then throw("Only Governance can call this function")
576 560      else {
577 561          let user = toString(addressFromPublicKey(adminInvokePubKey))
578 -         let $t02703527109 = claimCalc(pool, user)
579 -         let farmInterest = $t02703527109._1
580 -         let boostInterest = $t02703527109._2
581 -         let boostLPinterest = $t02703527109._3
562 +         let $t02708427158 = claimCalc(pool, user)
563 +         let farmInterest = $t02708427158._1
564 +         let boostInterest = $t02708427158._2
565 +         let boostLPinterest = $t02708427158._3
582 566  [IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height)]
583 567          })
584 568  
585 569  
586 570  
587 571  @Callable(i)
588 - func lockShareTokens (pool,lockType) = valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType))
572 + func lockShareTokens (pool,lockType) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType)))
589 573  
590 574  
591 575  
592 576  @Callable(i)
593 - func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType)))
577 + func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType))))
594 578  
595 579  
596 580  
597 581  @Callable(i)
598 - func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isActive(), {
582 + func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), {
599 583      let shareAssetId = getShareAssetId(pool)
600 584      let user = toString(i.caller)
601 585      let totalShare = getTotalShareToken(pool)
602 586      let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShare)
603 587      let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
604 588      let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
605 589      let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
606 590      let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
607 591      let totalUserShareTokens = (userStakedAmount + userLockedAmount)
608 -     let $t02852828580 = getLockParams(lockType)
609 -     let lockPeriod = $t02852828580._1
610 -     let lockCoef = $t02852828580._2
592 +     let $t02878728839 = getLockParams(lockType)
593 +     let lockPeriod = $t02878728839._1
594 +     let lockCoef = $t02878728839._2
611 595      let lockWavesFee = getIntegerValue(this, kLockWavesFee)
612 596      if ((getHeightFirstHarvest(pool) > height))
613 597          then throw("You can't lock shareTokens till first harvest end.")
614 598          else if ((0 >= lockType))
615 599              then throw("lockType must be > 0")
616 600              else if ((lockAmount > userStakedAmount))
617 601                  then throw(("You can't lock more than " + toString(userStakedAmount)))
618 602                  else if ((accountBalance(shareAssetId) > totalShare))
619 603                      then throw("Balance of share-token is lower than totalAmount")
620 604                      else if (if ((userLockedHeigt == 0))
621 605                          then if (if ((1 > size(i.payments)))
622 606                              then true
623 607                              else (i.payments[0].assetId != unit))
624 608                              then true
625 609                              else (lockWavesFee > i.payments[0].amount)
626 610                          else false)
627 611                          then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
628 612                          else if (if ((userLockedHeigt == 0))
629 613                              then (0 >= lockAmount)
630 614                              else false)
631 615                              then throw("lockAmount must be greater than 0")
632 616                              else if ((0 > lockAmount))
633 617                                  then throw("lockAmount must be positive")
634 618                                  else if ((userLockedHeigt > (height + lockPeriod)))
635 619                                      then throw("You cannot lock sharetokens for a period less than what you have already locked")
636 620                                      else {
637 621                                          let userLockedAmountNew = (userLockedAmount + lockAmount)
638 622                                          let userStakedAmountNew = (userStakedAmount - lockAmount)
639 623                                          let userLockedHeigtNew = (height + lockPeriod)
640 624                                          let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmountNew)
641 -                                         let $t02987029952 = claimCalc(pool, user)
642 -                                         let farmInterest = $t02987029952._1
643 -                                         let boostInterest = $t02987029952._2
644 -                                         let claimAmount = $t02987029952._3
645 -                                         let toTreasure = $t02987029952._4
625 +                                         let $t03018530267 = claimCalc(pool, user)
626 +                                         let farmInterest = $t03018530267._1
627 +                                         let boostInterest = $t03018530267._2
628 +                                         let claimAmount = $t03018530267._3
629 +                                         let toTreasure = $t03018530267._4
646 630                                          let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
647 631  [IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLocked), userLockedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedHeight), userLockedHeigtNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedType), lockType), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userAmountVirtualNew)), IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
648 632                                          }
633 +     }))
634 + 
635 + 
636 + 
637 + @Callable(i)
638 + func unlockUserLock (pool,user) = valueOrElse(isActive(), {
639 +     let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
640 +     if ((userLockedHeigt > height))
641 +         then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
642 +         else (unlockUserLockCalc(i, pool, user) ++ [ScriptTransfer(i.caller, getIntegerValue(this, kLockWavesFee), unit)])
649 643      })
650 644  
651 645  
652 646  
653 647  @Callable(i)
654 - func unlockUserLock (pool,user) = valueOrElse(isActive(), {
655 -     let lockWavesFee = getIntegerValue(this, kLockWavesFee)
656 -     let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
657 -     let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
658 -     let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
659 -     let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
660 -     let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
661 -     if ((userLockedHeigt > height))
662 -         then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
663 -         else {
664 -             let userStakedAmountNew = (userStakedAmount + userLockedAmount)
665 -             let $t03202932111 = claimCalc(pool, user)
666 -             let farmInterest = $t03202932111._1
667 -             let boostInterest = $t03202932111._2
668 -             let claimAmount = $t03202932111._3
669 -             let toTreasure = $t03202932111._4
670 -             let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
671 - [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userStakedAmountNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userStakedAmountNew)), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), DeleteEntry((((pool + "_") + user) + kUserShareTokensLocked)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedHeight)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedType)), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, lockWavesFee, unit)]
672 -             }
673 -     })
648 + func unlockUserLockDeprecated (pool,user) = valueOrElse(isActive(), valueOrElse(isSelfCall(i), if (!(getDeprecatedPool(pool)))
649 +     then throw("Pool must be deprecated")
650 +     else if (isDefined(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight))))
651 +         then (unlockUserLockCalc(i, pool, user) ++ [ScriptTransfer(moneyBoxAddress, getIntegerValue(this, kLockWavesFee), unit)])
652 +         else nil))
674 653  
675 654  
676 655  
677 656  @Callable(i)
678 657  func withdrawShareTokens (pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), calcWithdrawShareTokens(i, i.caller, pool, shareTokensWithdrawAmount))
679 658  
680 659  
681 660  
682 661  @Callable(i)
683 662  func withdrawShareTokensFromPool (callerBytes,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcWithdrawShareTokens(i, Address(callerBytes), pool, shareTokensWithdrawAmount)))
684 663  
685 664  
686 665  
687 666  @Callable(i)
688 667  func claim (pool) = valueOrElse(isActive(), {
689 668      let r = calcClaim(i, pool, i.caller)
690 669      if ((r._2 == 0))
691 670          then throw("You have 0 available SWOP")
692 671          else r
693 672      })
694 673  
695 674  
696 675  
697 676  @Callable(i)
698 677  func claimInternal (pool,caller) = valueOrElse(isActive(), valueOrElse(isSelfCall(i), calcClaim(i, pool, Address(caller))))
699 678  
700 679  
701 680  
702 681  @Callable(i)
703 682  func claimAndStake (pool) = valueOrElse(isActive(), {
704 683      let claimAmount = {
705 684          let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
706 685          if ($isInstanceOf(@, "Int"))
707 686              then @
708 687              else throw(($getType(@) + " couldn't be cast to Int"))
709 688          }
710 689      if ((claimAmount == claimAmount))
711 690          then if ((claimAmount == 0))
712 691              then throw("You have 0 available SWOP")
713 692              else {
714 693                  let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimAmount)])
715 694                  if ((stakeToGov == stakeToGov))
716 695                      then nil
717 696                      else throw("Strict value is not equal to itself.")
718 697                  }
719 698          else throw("Strict value is not equal to itself.")
720 699      })
721 700  
722 701  
723 702  
724 703  @Callable(i)
725 704  func claimAll (pools) = valueOrElse(isActive(), {
726 705      func claimInv (claimTotal,pool) =     {
727 706          let claimAmount = {
728 707              let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
729 708              if ($isInstanceOf(@, "Int"))
730 709                  then @
731 710                  else throw(($getType(@) + " couldn't be cast to Int"))
732 711              }
733 712          if ((claimAmount == claimAmount))
734 713              then (claimTotal + claimAmount)
735 714              else throw("Strict value is not equal to itself.")
736 715          }
737 716  
738 717      let claimTotal = {
739 718          let $l = pools
740 719          let $s = size($l)
741 720          let $acc0 = 0
742 721          func $f0_1 ($a,$i) =         if (($i >= $s))
743 722              then $a
744 723              else claimInv($a, $l[$i])
745 724  
746 725          func $f0_2 ($a,$i) =         if (($i >= $s))
747 726              then $a
748 727              else throw("List size exceeds 60")
749 728  
750 729          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60)
751 730          }
752 731      if ((claimTotal == 0))
753 732          then throw("You have 0 available SWOP")
754 733          else [ScriptTransfer(i.caller, claimTotal, SWOP)]
755 734      })
756 735  
757 736  
758 737  
759 738  @Callable(i)
760 739  func claimAllAndStake (pools) = valueOrElse(isActive(), {
761 740      func claimInv (claimTotal,pool) =     {
762 741          let claimAmount = {
763 742              let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
764 743              if ($isInstanceOf(@, "Int"))
765 744                  then @
766 745                  else throw(($getType(@) + " couldn't be cast to Int"))
767 746              }
768 747          if ((claimAmount == claimAmount))
769 748              then (claimTotal + claimAmount)
770 749              else throw("Strict value is not equal to itself.")
771 750          }
772 751  
773 752      let claimTotal = {
774 753          let $l = pools
775 754          let $s = size($l)
776 755          let $acc0 = 0
777 756          func $f0_1 ($a,$i) =         if (($i >= $s))
778 757              then $a
779 758              else claimInv($a, $l[$i])
780 759  
781 760          func $f0_2 ($a,$i) =         if (($i >= $s))
782 761              then $a
783 762              else throw("List size exceeds 60")
784 763  
785 764          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60)
786 765          }
787 766      if ((claimTotal == 0))
788 767          then throw("You have 0 available SWOP")
789 768          else {
790 769              let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimTotal)])
791 770              if ((stakeToGov == stakeToGov))
792 771                  then nil
793 772                  else throw("Strict value is not equal to itself.")
794 773              }
795 774      })
796 775  
797 776  
798 777  
799 778  @Callable(i)
800 779  func updateUserBoostInterest (pool,user) = valueOrElse(isActive(), if ((i.caller != votingAddress))
801 780      then throw("Only voiting can call this function")
802 781      else {
803 -         let $t03558535667 = claimCalc(pool, user)
804 -         let farmInterest = $t03558535667._1
805 -         let boostInterest = $t03558535667._2
806 -         let claimAmount = $t03558535667._3
807 -         let toTreasure = $t03558535667._4
782 +         let $t03501635098 = claimCalc(pool, user)
783 +         let farmInterest = $t03501635098._1
784 +         let boostInterest = $t03501635098._2
785 +         let claimAmount = $t03501635098._3
786 +         let toTreasure = $t03501635098._4
808 787          let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
809 788  [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
810 789          })
811 790  
812 791  
813 792  
814 793  @Callable(i)
815 794  func shutdown () = valueOrElse(isAdminCall(i), if (!(active))
816 795      then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
817 796      else suspend("Paused by admin"))
818 797  
819 798  
820 799  
821 800  @Callable(i)
822 801  func activate () = valueOrElse(isAdminCall(i), if (active)
823 802      then throw("DApp is already active")
824 803      else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
825 804  
826 805  
827 806  @Verifier(tx)
828 807  func verify () = match tx {
829 808      case _ => 
830 809          let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
831 810              then 1
832 811              else 0
833 812          let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
834 813              then 1
835 814              else 0
836 815          let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
837 816              then 1
838 817              else 0
839 818          (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
840 819  }
841 820

Old	New		Differences
4	4		let kActive = "active"
5	5
6	6		let kActiveGlob = "active_all_contracts"
	7	+
	8	+	let kDeprecatedPool = "deprecated_"
7	9
8	10		let kCause = "shutdown_cause"
9	11

12	14		let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
13	15
14	16		let kHeightPoolFraction = "_pool_reward_update_height"
	17	+
	18	+	let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
	19	+
	20	+	let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
15	21
16	22		let kRewardUpdateHeight = "reward_update_height"
17	23

48	54		let kSWOPid = "SWOP_id"
49	55
50	56		let kAvailableSWOP = "_available_SWOP"
	57	+
	58	+	let kSwopYearEmission = "swop_year_emission"
51	59
52	60		let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
53	61

97	105
98	106		let defPoolBoostCoef = 500
99	107
100		-	let startEmissionH = 1911271
101		-
102		-	let swopYearEmission = 100000000000000
103		-
104		-	let blocksPerYear = 526330
	108	+	let bStartH = 3397850
105	109
106	110		func getBase58FromOracle (key) = match getString(oracle, key) {
107	111		case string: String =>

136	140		let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
137	141
138	142		let SWOP = fromBase58String(getStringValue(this, kSWOPid))
139		-
140		-	func getRewardsPerBlockInfo () = {
141		-	let emissionPeriods = ((height - startEmissionH) / blocksPerYear)
142		-	func calcEmission (acc,i) = {
143		-	let $t047104747 = acc
144		-	let curEmission = $t047104747._1
145		-	let prevEmission = $t047104747._2
146		-	if ((emissionPeriods > i))
147		-	then $Tuple2(fraction(curEmission, 75, 100), curEmission)
148		-	else $Tuple2(curEmission, prevEmission)
149		-	}
150		-
151		-	let $t049055071 = {
152		-	let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
153		-	let $s = size($l)
154		-	let $acc0 = $Tuple2(swopYearEmission, swopYearEmission)
155		-	func $f0_1 ($a,$i) = if (($i >= $s))
156		-	then $a
157		-	else calcEmission($a, $l[$i])
158		-
159		-	func $f0_2 ($a,$i) = if (($i >= $s))
160		-	then $a
161		-	else throw("List size exceeds 20")
162		-
163		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
164		-	}
165		-	let curEmission = $t049055071._1
166		-	let prevEmission = $t049055071._2
167		-	$Tuple3((curEmission / blocksPerYear), (prevEmission / blocksPerYear), (startEmissionH + (blocksPerYear * emissionPeriods)))
168		-	}
169		-
170	143
171	144		func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
172	145

208	181
209	182
210	183		func rewardInfo (pool) = {
211		-	let $t068867001 = getRewardsPerBlockInfo()
212		-	let totalRewardPerBlockCurrent = $t068867001._1
213		-	let totalRewardPerBlockPrevious = $t068867001._2
214		-	let lastEmissionUpdateHeight = $t068867001._3
	184	+	let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
	185	+	let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
215	186		let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
216	187		let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
217	188		let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
218	189		let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
219	190		let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
220	191		let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
221		-	let rewardPoolPrevCurrent = fraction(totalRewardPerBlockPrevious, rewardPoolFractionCurrent, totalVoteShare)
222		-	let rewardPoolPrevPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
223	192		if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
224	193		then true
225	194		else (rewardPoolPrevious > totalRewardPerBlockPrevious))
226	195		then throw("rewardPoolCurrent > totalRewardPerBlockCurrent or rewardPoolPrevious > totalRewardPerBlockPrevious")
227		-	else $~~Tuple7~~(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight~~, lastEmissionUpdateHeight, rewardPoolPrevCurrent, rewardPoolPrevPrevious~~)
	196	+	else $Tuple4(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight)
228	197		}
229	198
230	199

248	217		}
249	218
250	219
251		-	func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue~~,toHeight~~) = {
252		-	let $~~t01001511200~~ = if (if (if ((rewardUpdateHeight > ~~toHeight~~))
	220	+	func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = {
	221	+	let $t0951610689 = if (if (if ((rewardUpdateHeight > height))
253	222		then (rewardUpdateHeight == poolRewardUpdateHeight)
254	223		else false)
255	224		then true
256		-	else if ((~~toHeight~~ > rewardUpdateHeight))
	225	+	else if ((height > rewardUpdateHeight))
257	226		then (rewardUpdateHeight != poolRewardUpdateHeight)
258	227		else false)
259	228		then {
260		-	let r = (previousRewardPerBlock * (~~toHeight~~ - lastInterestHeight))
	229	+	let r = (previousRewardPerBlock * (height - lastInterestHeight))
261	230		$Tuple3(r, farmInterest, boostInterest)
262	231		}
263		-	else if (if (if ((~~toHeight~~ > rewardUpdateHeight))
	232	+	else if (if (if ((height > rewardUpdateHeight))
264	233		then (rewardUpdateHeight == poolRewardUpdateHeight)
265	234		else false)
266	235		then (lastInterestHeight > rewardUpdateHeight)
267	236		else false)
268	237		then {
269		-	let r = (currentRewardPerBlock * (~~toHeight~~ - lastInterestHeight))
	238	+	let r = (currentRewardPerBlock * (height - lastInterestHeight))
270	239		$Tuple3(r, farmInterest, boostInterest)
271	240		}
272	241		else {

275	244		let bBfrUp = (boostInterest + (if ((poolVoted > 0))
276	245		then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, poolVoted)
277	246		else 0))
278		-	let rwd = (currentRewardPerBlock * (~~toHeight~~ - rewardUpdateHeight))
	247	+	let rwd = (currentRewardPerBlock * (height - rewardUpdateHeight))
279	248		$Tuple3(rwd, fBfrUp, bBfrUp)
280	249		}
281		-	let reward = $~~t01001511200~~._1
282		-	let farmIntrBefore = $~~t01001511200~~._2
283		-	let boostIntrBefore = $~~t01001511200~~._3
	250	+	let reward = $t0951610689._1
	251	+	let farmIntrBefore = $t0951610689._2
	252	+	let boostIntrBefore = $t0951610689._3
284	253		let newFarmInterest = (farmIntrBefore + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
285	254		let newBoostInterest = (boostIntrBefore + (if ((poolVoted > 0))
286	255		then fraction(calcBoostRwd(pool, reward), scaleValue8, poolVoted)

296	265		let shareToken = getTotalShareToken(pool)
297	266		let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareToken)
298	267		let stratBFarmInterest = valueOrElse(getInteger(this, (pool + kStratBFarmInterest)), 0)
299		-	let $t01203812119 = getLastInterestInfo(pool)
300		-	let lastInterestHeight = $t01203812119._1
301		-	let farmInterest = $t01203812119._2
302		-	let boostInterest = $t01203812119._3
303		-	let $t01212412381 = rewardInfo(pool)
304		-	let currentRewardPerBlock = $t01212412381._1
305		-	let rewardUpdateHeight = $t01212412381._2
306		-	let previousRewardPerBlock = $t01212412381._3
307		-	let poolRewardUpdateHeight = $t01212412381._4
308		-	let emissionUpdateHeight = $t01212412381._5
309		-	let prevCurrentRewardPerBlock = $t01212412381._6
310		-	let prevPreviousRewardPerBlock = $t01212412381._7
	268	+	let $t01152711608 = getLastInterestInfo(pool)
	269	+	let lastInterestHeight = $t01152711608._1
	270	+	let farmInterest = $t01152711608._2
	271	+	let boostInterest = $t01152711608._3
	272	+	let $t01161311727 = rewardInfo(pool)
	273	+	let currentRewardPerBlock = $t01161311727._1
	274	+	let rewardUpdateHeight = $t01161311727._2
	275	+	let previousRewardPerBlock = $t01161311727._3
	276	+	let poolRewardUpdateHeight = $t01161311727._4
311	277		let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
312	278		let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), if (if ((stratBFarmInterest > uFarmInterest))
313	279		then (uPoolVoted > 0)

318	284		let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
319	285		if ((totalShareVirtual == 0))
320	286		then {
321		-	let toTreasury = if ((emissionUpdateHeight > lastInterestHeight))
322		-	then ((prevCurrentRewardPerBlock * (emissionUpdateHeight - lastInterestHeight)) + (currentRewardPerBlock * (height - emissionUpdateHeight)))
323		-	else (currentRewardPerBlock * (height - lastInterestHeight))
	287	+	let toTreasury = (currentRewardPerBlock * (height - lastInterestHeight))
324	288		$Tuple4(farmInterest, boostInterest, 0, toTreasury)
325	289		}
326	290		else {
327		-	let $t01333914476 = if ((emissionUpdateHeight > lastInterestHeight))
328		-	then {
329		-	let $t01375214311 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, prevCurrentRewardPerBlock, totalShareVirtual, prevPreviousRewardPerBlock, scaleValue, emissionUpdateHeight)
330		-	let prevNewFarmInterest = $t01375214311._1
331		-	let prevNewBoostInterest = $t01375214311._2
332		-	$Tuple3(prevNewFarmInterest, prevNewBoostInterest, emissionUpdateHeight)
333		-	}
334		-	else $Tuple3(farmInterest, boostInterest, lastInterestHeight)
335		-	let prevFarmInterest = $t01333914476._1
336		-	let prevBoostInterest = $t01333914476._2
337		-	let LIHeight = $t01333914476._3
338		-	let $t01448514908 = calcInterest(pool, LIHeight, rewardUpdateHeight, poolRewardUpdateHeight, prevFarmInterest, prevBoostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue, height)
339		-	let newFarmInterest = $t01448514908._1
340		-	let newBoostInterest = $t01448514908._2
	291	+	let $t01244012832 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue)
	292	+	let newFarmInterest = $t01244012832._1
	293	+	let newBoostInterest = $t01244012832._2
341	294		let farmRwd = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
342	295		let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
343	296		let boostRwdMax = fraction(fraction(uShareTokensVirt, (newFarmInterest - max([uFarmInterest, stratBFarmInterest])), scaleValue), poolBoostCoef, lockBoostCoefScale)

353	306
354	307		func availableClaimCalcAllByUser (pools,user) = {
355	308		func calcAvailable (acc,pool) = {
356		-	let $~~t01577715806~~ = acc
357		-	let newPools = $~~t01577715806~~._1
358		-	let amounts = $~~t01577715806~~._2
359		-	let $~~t01581515868~~ = claimCalc(pool, user)
360		-	let fi = $~~t01581515868~~._1
361		-	let bi = $~~t01581515868~~._2
362		-	let claimAmount = $~~t01581515868~~._3
363		-	let tt = $~~t01581515868~~._4
	309	+	let $t01370113730 = acc
	310	+	let newPools = $t01370113730._1
	311	+	let amounts = $t01370113730._2
	312	+	let $t01373913792 = claimCalc(pool, user)
	313	+	let fi = $t01373913792._1
	314	+	let bi = $t01373913792._2
	315	+	let claimAmount = $t01373913792._3
	316	+	let tt = $t01373913792._4
364	317		let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
365	318		$Tuple2((newPools :+ pool), (amounts :+ availableFund))
366	319		}

425	378		else throw("Only pool can call this function")
426	379
427	380
	381	+	func getDeprecatedPool (pool) = valueOrElse(getBoolean(oracle, (kDeprecatedPool + pool)), false)
	382	+
	383	+
	384	+	func isDeprecatedPool (pool) = if (!(getDeprecatedPool(pool)))
	385	+	then unit
	386	+	else throw("Pool is deprecated. Only unlock action allowed.")
	387	+
	388	+
428	389		func isSelfCall (i) = if ((i.caller == this))
429	390		then unit
430	391		else throw("Only contract itself can call this function")

440	401		let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
441	402		let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
442	403		let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
443		-	let $~~t01866918721~~ = getLockParams(lockType)
444		-	let lockPeriod = $~~t01866918721~~._1
445		-	let lockCoef = $~~t01866918721~~._2
	404	+	let $t01684116893 = getLockParams(lockType)
	405	+	let lockPeriod = $t01684116893._1
	406	+	let lockCoef = $t01684116893._2
446	407		let lockWavesFee = getIntegerValue(this, kLockWavesFee)
447	408		if ((i.payments[0].assetId != shareAssetId))
448	409		then throw("Wrong sharetoken in payment")

454	415		let shareTokensChangeOnFH = canLockInFirstHarvest(pool, user, userStakedAmount, i.payments[0].amount, lockType)
455	416		if ((shareTokensChangeOnFH == shareTokensChangeOnFH))
456	417		then {
457		-	let $~~t01914821082~~ = if ((lockType == 0))
	418	+	let $t01732019254 = if ((lockType == 0))
458	419		then {
459	420		let userAmountVirtualNew = ((userAmountVirtual + i.payments[0].amount) - shareTokensChangeOnFH)
460	421		$Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), ((userStakedAmount + i.payments[0].amount) - shareTokensChangeOnFH)), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual + i.payments[0].amount) - shareTokensChangeOnFH)), ScriptTransfer(caller, shareTokensChangeOnFH, i.payments[0].assetId)], ((totalShare + i.payments[0].amount) - shareTokensChangeOnFH))

475	436		let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
476	437		$Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensLocked), userLockedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedHeight), userLockedHeigtNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedType), lockType), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userAmountVirtualNew))], (totalShare + i.payments[0].amount))
477	438		}
478		-	let lockEntries = $~~t01914821082~~._1
479		-	let totalShareNew = $~~t01914821082~~._2
	439	+	let lockEntries = $t01732019254._1
	440	+	let totalShareNew = $t01732019254._2
480	441		if ((accountBalance(shareAssetId) > totalShareNew))
481	442		then throw("Balance of share-token is lower than totalAmount")
482	443		else {
483		-	let $~~t02120721289~~ = claimCalc(pool, user)
484		-	let farmInterest = $~~t02120721289~~._1
485		-	let boostInterest = $~~t02120721289~~._2
486		-	let claimAmount = $~~t02120721289~~._3
487		-	let toTreasure = $~~t02120721289~~._4
	444	+	let $t01937919461 = claimCalc(pool, user)
	445	+	let farmInterest = $t01937919461._1
	446	+	let boostInterest = $t01937919461._2
	447	+	let claimAmount = $t01937919461._3
	448	+	let toTreasure = $t01937919461._4
488	449		let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
489	450		let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
490	451		then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, totalUserShareTokens], nil)

499	460		}
500	461
501	462
502		-	func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), {
503		-	let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
504		-	let user = toString(caller)
505		-	let $t02248122563 = claimCalc(pool, user)
506		-	let farmInterest = $t02248122563._1
507		-	let boostInterest = $t02248122563._2
508		-	let claimAmount = $t02248122563._3
509		-	let toTreasure = $t02248122563._4
510		-	let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
511		-	let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
512		-	let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
513		-	let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
514		-	let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
515		-	let totalShareAmount = getTotalShareToken(pool)
516		-	let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
517		-	let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
518		-	let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
519		-	let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
520		-	if ((shareTokensWithdrawAmount > userStakedAmount))
521		-	then throw("Withdraw amount more then user locked amount")
522		-	else if ((accountBalance(shareTokensId) > totalShareAmount))
523		-	then throw("Balance of share-token is lower than totalAmount")
524		-	else {
525		-	let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
526		-	then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
527		-	else 0
528		-	if ((uplp == uplp))
529		-	then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((pool + kShareTokensVirtual), totalShareVirtualNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
530		-	else throw("Strict value is not equal to itself.")
531		-	}
532		-	})
	463	+	func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = {
	464	+	let inv = if (getDeprecatedPool(pool))
	465	+	then invoke(this, "unlockUserLockDeprecated", [pool, toString(caller)], nil)
	466	+	else 0
	467	+	if ((inv == inv))
	468	+	then {
	469	+	let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
	470	+	let user = toString(caller)
	471	+	let $t02075820840 = claimCalc(pool, user)
	472	+	let farmInterest = $t02075820840._1
	473	+	let boostInterest = $t02075820840._2
	474	+	let claimAmount = $t02075820840._3
	475	+	let toTreasure = $t02075820840._4
	476	+	let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
	477	+	let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
	478	+	let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
	479	+	let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
	480	+	let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
	481	+	let totalShareAmount = getTotalShareToken(pool)
	482	+	let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
	483	+	let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
	484	+	let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
	485	+	let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
	486	+	if ((shareTokensWithdrawAmount > userStakedAmount))
	487	+	then throw("Withdraw amount more then user locked amount")
	488	+	else if ((accountBalance(shareTokensId) > totalShareAmount))
	489	+	then throw("Balance of share-token is lower than totalAmount")
	490	+	else {
	491	+	let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
	492	+	then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
	493	+	else 0
	494	+	if ((uplp == uplp))
	495	+	then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((pool + kShareTokensVirtual), totalShareVirtualNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
	496	+	else throw("Strict value is not equal to itself.")
	497	+	}
	498	+	}
	499	+	else throw("Strict value is not equal to itself.")
	500	+	}
533	501
534	502
535	503		func calcClaim (i,pool,caller) = {
536	504		let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
537	505		let user = toString(caller)
538	506		let shareTokenLocked = getTotalShareToken(pool)
539		-	let $~~t02507625158~~ = claimCalc(pool, user)
540		-	let farmInterest = $~~t02507625158~~._1
541		-	let boostInterest = $~~t02507625158~~._2
542		-	let claimAmount = $~~t02507625158~~._3
543		-	let toTreasure = $~~t02507625158~~._4
	507	+	let $t02335123433 = claimCalc(pool, user)
	508	+	let farmInterest = $t02335123433._1
	509	+	let boostInterest = $t02335123433._2
	510	+	let claimAmount = $t02335123433._3
	511	+	let toTreasure = $t02335123433._4
544	512		let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
545	513		if ((accountBalance(shareTokensId) > shareTokenLocked))
546	514		then throw("Balance of share-token is lower than totalAmount")

550	518		else nil
551	519		$Tuple2(([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), 0), Reissue(SWOP, (toTreasure + availableFund), true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ uTrans), availableFund)
552	520		}
	521	+	}
	522	+
	523	+
	524	+	func unlockUserLockCalc (i,pool,user) = {
	525	+	let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
	526	+	let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
	527	+	let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
	528	+	let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
	529	+	let userStakedAmountNew = (userStakedAmount + userLockedAmount)
	530	+	let $t02483624918 = claimCalc(pool, user)
	531	+	let farmInterest = $t02483624918._1
	532	+	let boostInterest = $t02483624918._2
	533	+	let claimAmount = $t02483624918._3
	534	+	let toTreasure = $t02483624918._4
	535	+	let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
	536	+	[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userStakedAmountNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userStakedAmountNew)), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), DeleteEntry((((pool + "_") + user) + kUserShareTokensLocked)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedHeight)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedType)), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
553	537		}
554	538
555	539

575	559		then throw("Only Governance can call this function")
576	560		else {
577	561		let user = toString(addressFromPublicKey(adminInvokePubKey))
578		-	let $~~t02703527109~~ = claimCalc(pool, user)
579		-	let farmInterest = $~~t02703527109~~._1
580		-	let boostInterest = $~~t02703527109~~._2
581		-	let boostLPinterest = $~~t02703527109~~._3
	562	+	let $t02708427158 = claimCalc(pool, user)
	563	+	let farmInterest = $t02708427158._1
	564	+	let boostInterest = $t02708427158._2
	565	+	let boostLPinterest = $t02708427158._3
582	566		[IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height)]
583	567		})
584	568
585	569
586	570
587	571		@Callable(i)
588		-	func lockShareTokens (pool,lockType) = valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType))
	572	+	func lockShareTokens (pool,lockType) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType)))
589	573
590	574
591	575
592	576		@Callable(i)
593		-	func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType)))
	577	+	func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType))))
594	578
595	579
596	580
597	581		@Callable(i)
598		-	func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isActive(), {
	582	+	func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isDeprecatedPool(pool), valueOrElse(isActive(), {
599	583		let shareAssetId = getShareAssetId(pool)
600	584		let user = toString(i.caller)
601	585		let totalShare = getTotalShareToken(pool)

605	589		let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
606	590		let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
607	591		let totalUserShareTokens = (userStakedAmount + userLockedAmount)
608		-	let $~~t02852828580~~ = getLockParams(lockType)
609		-	let lockPeriod = $~~t02852828580~~._1
610		-	let lockCoef = $~~t02852828580~~._2
	592	+	let $t02878728839 = getLockParams(lockType)
	593	+	let lockPeriod = $t02878728839._1
	594	+	let lockCoef = $t02878728839._2
611	595		let lockWavesFee = getIntegerValue(this, kLockWavesFee)
612	596		if ((getHeightFirstHarvest(pool) > height))
613	597		then throw("You can't lock shareTokens till first harvest end.")

638	622		let userStakedAmountNew = (userStakedAmount - lockAmount)
639	623		let userLockedHeigtNew = (height + lockPeriod)
640	624		let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmountNew)
641		-	let $~~t02987029952~~ = claimCalc(pool, user)
642		-	let farmInterest = $~~t02987029952~~._1
643		-	let boostInterest = $~~t02987029952~~._2
644		-	let claimAmount = $~~t02987029952~~._3
645		-	let toTreasure = $~~t02987029952~~._4
	625	+	let $t03018530267 = claimCalc(pool, user)
	626	+	let farmInterest = $t03018530267._1
	627	+	let boostInterest = $t03018530267._2
	628	+	let claimAmount = $t03018530267._3
	629	+	let toTreasure = $t03018530267._4
646	630		let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
647	631		[IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLocked), userLockedAmountNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedHeight), userLockedHeigtNew), IntegerEntry((((pool + "_") + user) + kUserShareTokensLockedType), lockType), IntegerEntry((((pool + "_") + user) + kUserShareTokensVirtual), userAmountVirtualNew), IntegerEntry((pool + kShareTokensVirtual), ((totalShareVirtual - userAmountVirtual) + userAmountVirtualNew)), IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
648	632		}
	633	+	}))
	634	+
	635	+
	636	+
	637	+	@Callable(i)
	638	+	func unlockUserLock (pool,user) = valueOrElse(isActive(), {
	639	+	let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
	640	+	if ((userLockedHeigt > height))
	641	+	then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
	642	+	else (unlockUserLockCalc(i, pool, user) ++ [ScriptTransfer(i.caller, getIntegerValue(this, kLockWavesFee), unit)])
649	643		})
650	644
651	645
652	646
653	647		@Callable(i)
654		-	func unlockUserLock (pool,user) = valueOrElse(isActive(), {
655		-	let lockWavesFee = getIntegerValue(this, kLockWavesFee)
656		-	let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
657		-	let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
658		-	let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
659		-	let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
660		-	let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let kActive = "active"
5	5
6	6		let kActiveGlob = "active_all_contracts"
	7	+
	8	+	let kDeprecatedPool = "deprecated_"
7	9
8	10		let kCause = "shutdown_cause"
9	11
10	12		let kRewardPoolFractionCurrent = "_current_pool_fraction_reward"
11	13
12	14		let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
13	15
14	16		let kHeightPoolFraction = "_pool_reward_update_height"
	17	+
	18	+	let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
	19	+
	20	+	let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
15	21
16	22		let kRewardUpdateHeight = "reward_update_height"
17	23
18	24		let kUserShareTokensStaked = "_share_tokens_locked"
19	25
20	26		let kUserShareTokensLocked = "_share_tokens_blocked"
21	27
22	28		let kUserShareTokensLockedType = "_share_tokens_blocked_type"
23	29
24	30		let kUserShareTokensLockedHeight = "_share_tokens_blocked_height"
25	31
26	32		let kUserShareTokensVirtual = "_share_tokens_virtual"
27	33
28	34		let kShareTotalShareTokens = "_total_share_tokens_locked"
29	35
30	36		let kShareTokensVirtual = "_total_share_tokens_virtual"
31	37
32	38		let kLockParams = "_lock_params"
33	39
34	40		let kLockWavesFee = "lock_waves_fee"
35	41
36	42		let kPoolBoostCoef = "_boost_coef"
37	43
38	44		let kFarmLastInterest = "_last_interest"
39	45
40	46		let kFarmUserLastInterest = "_last_interest"
41	47
42	48		let kBoostLastInterest = "_last_interest_b"
43	49
44	50		let kBoostUserLastInterest = "_last_interest_u_b"
45	51
46	52		let kLastInterestHeight = "_last_interest_height"
47	53
48	54		let kSWOPid = "SWOP_id"
49	55
50	56		let kAvailableSWOP = "_available_SWOP"
	57	+
	58	+	let kSwopYearEmission = "swop_year_emission"
51	59
52	60		let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
53	61
54	62		let kPoolVote = "_pool_vote_gSWOP"
55	63
56	64		let kUserPoolVote = "_user_vote_gSWOP"
57	65
58	66		let kPoolStruc = "_pool_struc"
59	67
60	68		let kUserPoolStruc = "_user_pool_struc"
61	69
62	70		let kHarvestUserPoolVote = "_harvest_user_pool_vote_gSWOP"
63	71
64	72		let kFirstHarvestHeight = "first_harvest_height"
65	73
66	74		let kShareLimitFH = "share_limit_on_first_harvest"
67	75
68	76		let kStratBFarmInterest = "_strat_b_farm_interest"
69	77
70	78		let kCpmmContract = "cpmm_contract"
71	79
72	80		let kAdminPubKey1 = "admin_pub_1"
73	81
74	82		let kAdminPubKey2 = "admin_pub_2"
75	83
76	84		let kAdminPubKey3 = "admin_pub_3"
77	85
78	86		let kAdminInvokePubKey = "admin_invoke_pub"
79	87
80	88		let kMoneyBoxAddress = "money_box_address"
81	89
82	90		let kVotingAddress = "voting_address"
83	91
84	92		let kGovAddress = "governance_address"
85	93
86	94		let kLPFarmingAddress = "lp_farming"
87	95
88	96		let kFarmingTreasureAddr = "farming_treasure"
89	97
90	98		let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
91	99
92	100		let totalVoteShare = 10000000000
93	101
94	102		let scaleValue8 = 100000000
95	103
96	104		let lockBoostCoefScale = 1000
97	105
98	106		let defPoolBoostCoef = 500
99	107
100		-	let startEmissionH = 1911271
101		-
102		-	let swopYearEmission = 100000000000000
103		-
104		-	let blocksPerYear = 526330
	108	+	let bStartH = 3397850
105	109
106	110		func getBase58FromOracle (key) = match getString(oracle, key) {
107	111		case string: String =>
108	112		fromBase58String(string)
109	113		case nothing =>
110	114		throw((key + "is empty"))
111	115		}
112	116
113	117
114	118		let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
115	119
116	120		let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
117	121
118	122		let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
119	123
120	124		let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
121	125
122	126		let votingAddress = Address(getBase58FromOracle(kVotingAddress))
123	127
124	128		let govAddress = Address(getBase58FromOracle(kGovAddress))
125	129
126	130		let adminInvokePubKey = getBase58FromOracle(kAdminInvokePubKey)
127	131
128	132		let lpFarmingAddress = Address(getBase58FromOracle(kLPFarmingAddress))
129	133
130	134		let farmingTreasureAddr = Address(getBase58FromOracle(kFarmingTreasureAddr))
131	135
132	136		let cpmmContract = Address(getBase58FromOracle(kCpmmContract))
133	137
134	138		let active = getBooleanValue(this, kActive)
135	139
136	140		let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
137	141
138	142		let SWOP = fromBase58String(getStringValue(this, kSWOPid))
139		-
140		-	func getRewardsPerBlockInfo () = {
141		-	let emissionPeriods = ((height - startEmissionH) / blocksPerYear)
142		-	func calcEmission (acc,i) = {
143		-	let $t047104747 = acc
144		-	let curEmission = $t047104747._1
145		-	let prevEmission = $t047104747._2
146		-	if ((emissionPeriods > i))
147		-	then $Tuple2(fraction(curEmission, 75, 100), curEmission)
148		-	else $Tuple2(curEmission, prevEmission)
149		-	}
150		-
151		-	let $t049055071 = {
152		-	let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
153		-	let $s = size($l)
154		-	let $acc0 = $Tuple2(swopYearEmission, swopYearEmission)
155		-	func $f0_1 ($a,$i) = if (($i >= $s))
156		-	then $a
157		-	else calcEmission($a, $l[$i])
158		-
159		-	func $f0_2 ($a,$i) = if (($i >= $s))
160		-	then $a
161		-	else throw("List size exceeds 20")
162		-
163		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
164		-	}
165		-	let curEmission = $t049055071._1
166		-	let prevEmission = $t049055071._2
167		-	$Tuple3((curEmission / blocksPerYear), (prevEmission / blocksPerYear), (startEmissionH + (blocksPerYear * emissionPeriods)))
168		-	}
169		-
170	143
171	144		func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
172	145
173	146
174	147		func getFHShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimitFH), ("No data on the key: " + kShareLimitFH))
175	148
176	149
177	150		func getTotalShareToken (pool) = valueOrErrorMessage(getInteger(this, (pool + kShareTotalShareTokens)), (("No data on the key: " + pool) + kShareTotalShareTokens))
178	151
179	152
180	153		func getPoolVoted (pool) = valueOrElse(getInteger(votingAddress, (pool + kPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (pool + kPoolStruc)), ""), "_")[0]), 0))
181	154
182	155
183	156		func getUserPoolVoted (pool,user) = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kUserPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (((user + "_") + pool) + kUserPoolStruc)), ""), "_")[0]), 0))
184	157
185	158
186	159		func getShareAssetId (pool) = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
187	160
188	161
189	162		func accountBalance (assetId) = match assetId {
190	163		case id: ByteVector =>
191	164		assetBalance(this, id)
192	165		case waves: Unit =>
193	166		wavesBalance(this).available
194	167		case _ =>
195	168		throw("Match error")
196	169		}
197	170
198	171
199	172		func calcScaleValue (assetId1,assetId2) = {
200	173		let assetId1Decimals = value(assetInfo(assetId1)).decimals
201	174		let assetId2Decimals = value(assetInfo(assetId2)).decimals
202	175		let scaleDigits = ((assetId2Decimals - assetId1Decimals) + 8)
203	176		pow(10, 0, scaleDigits, 0, 0, DOWN)
204	177		}
205	178
206	179
207	180		func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + user) + kAvailableSWOP)), 0)
208	181
209	182
210	183		func rewardInfo (pool) = {
211		-	let $t068867001 = getRewardsPerBlockInfo()
212		-	let totalRewardPerBlockCurrent = $t068867001._1
213		-	let totalRewardPerBlockPrevious = $t068867001._2
214		-	let lastEmissionUpdateHeight = $t068867001._3
	184	+	let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
	185	+	let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
215	186		let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
216	187		let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
217	188		let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
218	189		let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
219	190		let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
220	191		let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
221		-	let rewardPoolPrevCurrent = fraction(totalRewardPerBlockPrevious, rewardPoolFractionCurrent, totalVoteShare)
222		-	let rewardPoolPrevPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
223	192		if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
224	193		then true
225	194		else (rewardPoolPrevious > totalRewardPerBlockPrevious))
226	195		then throw("rewardPoolCurrent > totalRewardPerBlockCurrent or rewardPoolPrevious > totalRewardPerBlockPrevious")
227		-	else $~~Tuple7~~(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight~~, lastEmissionUpdateHeight, rewardPoolPrevCurrent, rewardPoolPrevPrevious~~)
	196	+	else $Tuple4(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight)
228	197		}
229	198
230	199
231	200		func getLastInterestInfo (pool) = {
232	201		let farmInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kFarmLastInterest))
233	202		let boostInterest = valueOrElse(getInteger(this, (pool + kBoostLastInterest)), 0)
234	203		let lastInterestHeight = valueOrElse(getInteger(this, (pool + kLastInterestHeight)), height)
235	204		$Tuple3(lastInterestHeight, farmInterest, boostInterest)
236	205		}
237	206
238	207
239	208		func calcFarmRwd (pool,curTotalReward) = {
240	209		let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
241	210		fraction(curTotalReward, lockBoostCoefScale, (poolBoostCoef + lockBoostCoefScale))
242	211		}
243	212
244	213
245	214		func calcBoostRwd (pool,curTotalReward) = {
246	215		let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
247	216		fraction(curTotalReward, poolBoostCoef, (poolBoostCoef + lockBoostCoefScale))
248	217		}
249	218
250	219
251		-	func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue~~,toHeight~~) = {
252		-	let $~~t01001511200~~ = if (if (if ((rewardUpdateHeight > ~~toHeight~~))
	220	+	func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = {
	221	+	let $t0951610689 = if (if (if ((rewardUpdateHeight > height))
253	222		then (rewardUpdateHeight == poolRewardUpdateHeight)
254	223		else false)
255	224		then true
256		-	else if ((~~toHeight~~ > rewardUpdateHeight))
	225	+	else if ((height > rewardUpdateHeight))
257	226		then (rewardUpdateHeight != poolRewardUpdateHeight)
258	227		else false)
259	228		then {
260		-	let r = (previousRewardPerBlock * (~~toHeight~~ - lastInterestHeight))
	229	+	let r = (previousRewardPerBlock * (height - lastInterestHeight))
261	230		$Tuple3(r, farmInterest, boostInterest)
262	231		}
263		-	else if (if (if ((~~toHeight~~ > rewardUpdateHeight))
	232	+	else if (if (if ((height > rewardUpdateHeight))
264	233		then (rewardUpdateHeight == poolRewardUpdateHeight)
265	234		else false)
266	235		then (lastInterestHeight > rewardUpdateHeight)
267	236		else false)
268	237		then {
269		-	let r = (currentRewardPerBlock * (~~toHeight~~ - lastInterestHeight))
	238	+	let r = (currentRewardPerBlock * (height - lastInterestHeight))
270	239		$Tuple3(r, farmInterest, boostInterest)
271	240		}
272	241		else {
273	242		let rwdBfrUpd = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
274	243		let fBfrUp = (farmInterest + fraction(calcFarmRwd(pool, rwdBfrUpd), scaleValue, shareTokenLocked))
275	244		let bBfrUp = (boostInterest + (if ((poolVoted > 0))
276	245		then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, poolVoted)
277	246		else 0))
278		-	let rwd = (currentRewardPerBlock * (~~toHeight~~ - rewardUpdateHeight))
	247	+	let rwd = (currentRewardPerBlock * (height - rewardUpdateHeight))
279	248		$Tuple3(rwd, fBfrUp, bBfrUp)
280	249		}
281		-	let reward = $~~t01001511200~~._1
282		-	let farmIntrBefore = $~~t01001511200~~._2
283		-	let boostIntrBefore = $~~t01001511200~~._3
	250	+	let reward = $t0951610689._1
	251	+	let farmIntrBefore = $t0951610689._2
	252	+	let boostIntrBefore = $t0951610689._3
284	253		let newFarmInterest = (farmIntrBefore + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
285	254		let newBoostInterest = (boostIntrBefore + (if ((poolVoted > 0))
286	255		then fraction(calcBoostRwd(pool, reward), scaleValue8, poolVoted)
287	256		else 0))
288	257		$Tuple2(newFarmInterest, newBoostInterest)
289	258		}
290	259
291	260
292	261		func claimCalc (pool,user) = {
293	262		let scaleValue = calcScaleValue(SWOP, getShareAssetId(pool))
294	263		let poolVoted = getPoolVoted(pool)
295	264		let uPoolVoted = getUserPoolVoted(pool, user)
296	265		let shareToken = getTotalShareToken(pool)
297	266		let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareToken)
298	267		let stratBFarmInterest = valueOrElse(getInteger(this, (pool + kStratBFarmInterest)), 0)
299		-	let $t01203812119 = getLastInterestInfo(pool)
300		-	let lastInterestHeight = $t01203812119._1
301		-	let farmInterest = $t01203812119._2
302		-	let boostInterest = $t01203812119._3
303		-	let $t01212412381 = rewardInfo(pool)
304		-	let currentRewardPerBlock = $t01212412381._1
305		-	let rewardUpdateHeight = $t01212412381._2
306		-	let previousRewardPerBlock = $t01212412381._3
307		-	let poolRewardUpdateHeight = $t01212412381._4
308		-	let emissionUpdateHeight = $t01212412381._5
309		-	let prevCurrentRewardPerBlock = $t01212412381._6
310		-	let prevPreviousRewardPerBlock = $t01212412381._7
	268	+	let $t01152711608 = getLastInterestInfo(pool)
	269	+	let lastInterestHeight = $t01152711608._1
	270	+	let farmInterest = $t01152711608._2
	271	+	let boostInterest = $t01152711608._3
	272	+	let $t01161311727 = rewardInfo(pool)
	273	+	let currentRewardPerBlock = $t01161311727._1
	274	+	let rewardUpdateHeight = $t01161311727._2
	275	+	let previousRewardPerBlock = $t01161311727._3
	276	+	let poolRewardUpdateHeight = $t01161311727._4
311	277		let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
312	278		let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), if (if ((stratBFarmInterest > uFarmInterest))
313	279		then (uPoolVoted > 0)
314	280		else false)
315	281		then 0
316	282		else boostInterest)
317	283		let uShareTokensStaked = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
318	284		let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
319	285		if ((totalShareVirtual == 0))
320	286		then {
321		-	let toTreasury = if ((emissionUpdateHeight > lastInterestHeight))
322		-	then ((prevCurrentRewardPerBlock * (emissionUpdateHeight - lastInterestHeight)) + (currentRewardPerBlock * (height - emissionUpdateHeight)))
323		-	else (currentRewardPerBlock * (height - lastInterestHeight))
	287	+	let toTreasury = (currentRewardPerBlock * (height - lastInterestHeight))
324	288		$Tuple4(farmInterest, boostInterest, 0, toTreasury)
325	289		}
326	290		else {
327		-	let $t01333914476 = if ((emissionUpdateHeight > lastInterestHeight))
328		-	then {
329		-	let $t01375214311 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, prevCurrentRewardPerBlock, totalShareVirtual, prevPreviousRewardPerBlock, scaleValue, emissionUpdateHeight)
330		-	let prevNewFarmInterest = $t01375214311._1
331		-	let prevNewBoostInterest = $t01375214311._2
332		-	$Tuple3(prevNewFarmInterest, prevNewBoostInterest, emissionUpdateHeight)
333		-	}
334		-	else $Tuple3(farmInterest, boostInterest, lastInterestHeight)
335		-	let prevFarmInterest = $t01333914476._1
336		-	let prevBoostInterest = $t01333914476._2
337		-	let LIHeight = $t01333914476._3
338		-	let $t01448514908 = calcInterest(pool, LIHeight, rewardUpdateHeight, poolRewardUpdateHeight, prevFarmInterest, prevBoostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue, height)
339		-	let newFarmInterest = $t01448514908._1
340		-	let newBoostInterest = $t01448514908._2
	291	+	let $t01244012832 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue)
	292	+	let newFarmInterest = $t01244012832._1
	293	+	let newBoostInterest = $t01244012832._2
341	294		let farmRwd = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
342	295		let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
343	296		let boostRwdMax = fraction(fraction(uShareTokensVirt, (newFarmInterest - max([uFarmInterest, stratBFarmInterest])), scaleValue), poolBoostCoef, lockBoostCoefScale)
344	297		let curBoostRwd = fraction((newBoostInterest - uBoostInterest), uPoolVoted, scaleValue8)
345	298		let boostRwd = min([boostRwdMax, curBoostRwd])
346	299		let toTreasury = (boostRwdMax - boostRwd)
347	300		if ((0 > toTreasury))
348	301		then throw("toTreasury < 0")
349	302		else $Tuple4(newFarmInterest, newBoostInterest, (farmRwd + boostRwd), toTreasury)
350	303		}
351	304		}
352	305
353	306
354	307		func availableClaimCalcAllByUser (pools,user) = {
355	308		func calcAvailable (acc,pool) = {
356		-	let $~~t01577715806~~ = acc
357		-	let newPools = $~~t01577715806~~._1
358		-	let amounts = $~~t01577715806~~._2
359		-	let $~~t01581515868~~ = claimCalc(pool, user)
360		-	let fi = $~~t01581515868~~._1
361		-	let bi = $~~t01581515868~~._2
362		-	let claimAmount = $~~t01581515868~~._3
363		-	let tt = $~~t01581515868~~._4
	309	+	let $t01370113730 = acc
	310	+	let newPools = $t01370113730._1
	311	+	let amounts = $t01370113730._2
	312	+	let $t01373913792 = claimCalc(pool, user)
	313	+	let fi = $t01373913792._1
	314	+	let bi = $t01373913792._2
	315	+	let claimAmount = $t01373913792._3
	316	+	let tt = $t01373913792._4
364	317		let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
365	318		$Tuple2((newPools :+ pool), (amounts :+ availableFund))
366	319		}
367	320
368	321		let $l = pools
369	322		let $s = size($l)
370	323		let $acc0 = $Tuple2(nil, nil)
371	324		func $f0_1 ($a,$i) = if (($i >= $s))
372	325		then $a
373	326		else calcAvailable($a, $l[$i])
374	327
375	328		func $f0_2 ($a,$i) = if (($i >= $s))
376	329		then $a
377	330		else throw("List size exceeds 60")
378	331
379	332		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60)
380	333		}
381	334
382	335
383	336		func canLockInFirstHarvest (pool,user,userShareTokensStaked,pmtAmount,lockType) = if ((getHeightFirstHarvest(pool) > height))
384	337		then {
385	338		let totalVoteAmount = valueOrElse(getInteger(votingAddress, (pool + kHarvestPoolVote)), 0)
386	339		let userVoteAmount = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kHarvestUserPoolVote)), 0)
387	340		let FHShareTokenLimit = getFHShareLimitToken(addressFromStringValue(pool))
388	341		let FHShareTokenUserLimit = (fraction(FHShareTokenLimit, userVoteAmount, totalVoteAmount) - userShareTokensStaked)
389	342		if ((lockType > 0))
390	343		then throw("You can't lock shareTokens till first harvest end.")
391	344		else if ((userVoteAmount == 0))
392	345		then 0
393	346		else if ((pmtAmount >= FHShareTokenUserLimit))
394	347		then (pmtAmount - FHShareTokenUserLimit)
395	348		else 0
396	349		}
397	350		else 0
398	351
399	352
400	353		func getLockParams (type) = {
401	354		let lockParams = split(valueOrErrorMessage(getString(this, (toString(type) + kLockParams)), ("There are no key for lock type" + toString(type))), "_")
402	355		$Tuple2(parseIntValue(lockParams[0]), parseIntValue(lockParams[1]))
403	356		}
404	357
405	358
406	359		func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
407	360
408	361
409	362		func isActive () = if (if (active)
410	363		then activeGlob
411	364		else false)
412	365		then unit
413	366		else throw("DApp is inactive at this moment")
414	367
415	368
416	369		func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
417	370		then unit
418	371		else throw("Only admin can call this function")
419	372
420	373
421	374		func isPoolCall (i,pool) = if (if ((toString(i.caller) == pool))
422	375		then true
423	376		else (i.caller == cpmmContract))
424	377		then unit
425	378		else throw("Only pool can call this function")
426	379
427	380
	381	+	func getDeprecatedPool (pool) = valueOrElse(getBoolean(oracle, (kDeprecatedPool + pool)), false)
	382	+
	383	+
	384	+	func isDeprecatedPool (pool) = if (!(getDeprecatedPool(pool)))
	385	+	then unit
	386	+	else throw("Pool is deprecated. Only unlock action allowed.")
	387	+
	388	+
428	389		func isSelfCall (i) = if ((i.caller == this))
429	390		then unit
430	391		else throw("Only contract itself can call this function")
431	392
432	393
433	394		func calcLockShareTokens (i,caller,pool,lockType) = {
434	395		let shareAssetId = getShareAssetId(pool)
435	396		let user = toString(caller)
436	397		let totalShare = getTotalShareToken(pool)
437	398		let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShare)
438	399		let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
439	400		let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
440	401		let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
441	402		let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
442	403		let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
443		-	let $~~t01866918721~~ = getLockParams(lockType)
444		-	let lockPeriod = $~~t01866918721~~._1
445		-	let lockCoef = $~~t01866918721~~._2
	404	+	let $t01684116893 = getLockParams(lockType)
	405	+	let lockPeriod = $t01684116893._1
	406	+	let lockCoef = $t01684116893._2
446	407		let lockWavesFee = getIntegerValue(this, kLockWavesFee)

github/deemru/w8io/169f3d6 
139.16 ms ◑