tx · 9uMoDEY5LFeewp8JURtYXtNkSdcuXMUCV5dcdfmPVn81

3P73HDkPqG15nLXevjCbmXtazHYTZbpPoPw:  -0.03900000 Waves

2022.11.25 11:44 [3397850] smart account 3P73HDkPqG15nLXevjCbmXtazHYTZbpPoPw > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9uMoDEY5LFeewp8JURtYXtNkSdcuXMUCV5dcdfmPVn81",
    "fee": 3900000,
    "feeAssetId": null,
    "timestamp": 1669364250304,
    "version": 2,
    "chainId": 87,
    "sender": "3P73HDkPqG15nLXevjCbmXtazHYTZbpPoPw",
    "senderPublicKey": "B3jG1KiAb24bgwe28D9JKKkg9mtpiGTeEAYmQPrtHwQQ",
    "proofs": [
        "",
        "3qhvjJw3Tm39j7aqY44Z5hTakkjqparJMc4LnnmAVa7bKUTEuzCYc3Zhyz6kXC9tX1kmfQx7b1i7BgwxryGXBBuF",
        "3VJ9MhyR3eaSrqSG8x7CbWQjBt88AALkwnTSZAkkviWEkL6vYkpsFLT3wapzDW4ZAVW5zrG8uKTfQZMPz7XC45t2"
    ],
    "script": "base64:BgJcCAISAwoBCBIDCgEIEgMKAQgSBAoCCAESBQoDAggBEgUKAwgBARIECgIICBIECgIIARIFCgMCCAESAwoBCBIECgIIAhIDCgEIEgMKARgSAwoBGBIECgIICBIAEgBcAAdrQWN0aXZlAgZhY3RpdmUAC2tBY3RpdmVHbG9iAhRhY3RpdmVfYWxsX2NvbnRyYWN0cwAGa0NhdXNlAg5zaHV0ZG93bl9jYXVzZQAaa1Jld2FyZFBvb2xGcmFjdGlvbkN1cnJlbnQCHV9jdXJyZW50X3Bvb2xfZnJhY3Rpb25fcmV3YXJkABtrUmV3YXJkUG9vbEZyYWN0aW9uUHJldmlvdXMCHl9wcmV2aW91c19wb29sX2ZyYWN0aW9uX3Jld2FyZAATa0hlaWdodFBvb2xGcmFjdGlvbgIaX3Bvb2xfcmV3YXJkX3VwZGF0ZV9oZWlnaHQAG2tUb3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAIedG90YWxfcmV3YXJkX3Blcl9ibG9ja19jdXJyZW50ABxrVG90YWxSZXdhcmRQZXJCbG9ja1ByZXZpb3VzAh90b3RhbF9yZXdhcmRfcGVyX2Jsb2NrX3ByZXZpb3VzABNrUmV3YXJkVXBkYXRlSGVpZ2h0AhRyZXdhcmRfdXBkYXRlX2hlaWdodAAWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAIUX3NoYXJlX3Rva2Vuc19sb2NrZWQAFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQCFV9zaGFyZV90b2tlbnNfYmxvY2tlZAAaa1VzZXJTaGFyZVRva2Vuc0xvY2tlZFR5cGUCGl9zaGFyZV90b2tlbnNfYmxvY2tlZF90eXBlABxrVXNlclNoYXJlVG9rZW5zTG9ja2VkSGVpZ2h0Ahxfc2hhcmVfdG9rZW5zX2Jsb2NrZWRfaGVpZ2h0ABdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAIVX3NoYXJlX3Rva2Vuc192aXJ0dWFsABZrU2hhcmVUb3RhbFNoYXJlVG9rZW5zAhpfdG90YWxfc2hhcmVfdG9rZW5zX2xvY2tlZAATa1NoYXJlVG9rZW5zVmlydHVhbAIbX3RvdGFsX3NoYXJlX3Rva2Vuc192aXJ0dWFsAAtrTG9ja1BhcmFtcwIMX2xvY2tfcGFyYW1zAA1rTG9ja1dhdmVzRmVlAg5sb2NrX3dhdmVzX2ZlZQAOa1Bvb2xCb29zdENvZWYCC19ib29zdF9jb2VmABFrRmFybUxhc3RJbnRlcmVzdAIOX2xhc3RfaW50ZXJlc3QAFWtGYXJtVXNlckxhc3RJbnRlcmVzdAIOX2xhc3RfaW50ZXJlc3QAEmtCb29zdExhc3RJbnRlcmVzdAIQX2xhc3RfaW50ZXJlc3RfYgAWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAISX2xhc3RfaW50ZXJlc3RfdV9iABRrQm9vc3RMUExhc3RJbnRlcmVzdAISX2xhc3RfaW50ZXJlc3RfbHBiABhrQm9vc3RMUFVzZXJMYXN0SW50ZXJlc3QCFF9sYXN0X2ludGVyZXN0X3VfbHBiABNrTGFzdEludGVyZXN0SGVpZ2h0AhVfbGFzdF9pbnRlcmVzdF9oZWlnaHQAB2tTV09QaWQCB1NXT1BfaWQADmtBdmFpbGFibGVTV09QAg9fYXZhaWxhYmxlX1NXT1AAEWtTd29wWWVhckVtaXNzaW9uAhJzd29wX3llYXJfZW1pc3Npb24AEGtIYXJ2ZXN0UG9vbFZvdGUCGF9oYXJ2ZXN0X3Bvb2xfdm90ZV9nU1dPUAAJa1Bvb2xWb3RlAhBfcG9vbF92b3RlX2dTV09QAA1rVXNlclBvb2xWb3RlAhBfdXNlcl92b3RlX2dTV09QAAprUG9vbFN0cnVjAgtfcG9vbF9zdHJ1YwAOa1VzZXJQb29sU3RydWMCEF91c2VyX3Bvb2xfc3RydWMAFGtIYXJ2ZXN0VXNlclBvb2xWb3RlAh1faGFydmVzdF91c2VyX3Bvb2xfdm90ZV9nU1dPUAATa0ZpcnN0SGFydmVzdEhlaWdodAIUZmlyc3RfaGFydmVzdF9oZWlnaHQADWtTaGFyZUxpbWl0RkgCHHNoYXJlX2xpbWl0X29uX2ZpcnN0X2hhcnZlc3QADWtDcG1tQ29udHJhY3QCDWNwbW1fY29udHJhY3QADWtBZG1pblB1YktleTECC2FkbWluX3B1Yl8xAA1rQWRtaW5QdWJLZXkyAgthZG1pbl9wdWJfMgANa0FkbWluUHViS2V5MwILYWRtaW5fcHViXzMAEmtBZG1pbkludm9rZVB1YktleQIQYWRtaW5faW52b2tlX3B1YgAQa01vbmV5Qm94QWRkcmVzcwIRbW9uZXlfYm94X2FkZHJlc3MADmtWb3RpbmdBZGRyZXNzAg52b3RpbmdfYWRkcmVzcwALa0dvdkFkZHJlc3MCEmdvdmVybmFuY2VfYWRkcmVzcwARa0xQRmFybWluZ0FkZHJlc3MCCmxwX2Zhcm1pbmcAFGtGYXJtaW5nVHJlYXN1cmVBZGRyAhBmYXJtaW5nX3RyZWFzdXJlAAZvcmFjbGUJAQdBZGRyZXNzAQEaAVeK/whomjW6QM1hdPISN96mN/D6OM7oHjgADnRvdGFsVm90ZVNoYXJlAIDIr6AlAAtzY2FsZVZhbHVlOACAwtcvABJsb2NrQm9vc3RDb2VmU2NhbGUA6AcAEGRlZlBvb2xCb29zdENvZWYA9AMBE2dldEJhc2U1OEZyb21PcmFjbGUBA2tleQQHJG1hdGNoMAkAnQgCBQZvcmFjbGUFA2tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEBnN0cmluZwUHJG1hdGNoMAkA2QQBBQZzdHJpbmcEB25vdGhpbmcFByRtYXRjaDAJAAIBCQCsAgIFA2tleQIIaXMgZW1wdHkADGFkbWluUHViS2V5MQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkxAAxhZG1pblB1YktleTIJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MgAMYWRtaW5QdWJLZXkzCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTMAD21vbmV5Qm94QWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFEGtNb25leUJveEFkZHJlc3MADXZvdGluZ0FkZHJlc3MJAQdBZGRyZXNzAQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ5rVm90aW5nQWRkcmVzcwAKZ292QWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFC2tHb3ZBZGRyZXNzABFhZG1pbkludm9rZVB1YktleQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBRJrQWRtaW5JbnZva2VQdWJLZXkAEGxwRmFybWluZ0FkZHJlc3MJAQdBZGRyZXNzAQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBRFrTFBGYXJtaW5nQWRkcmVzcwATZmFybWluZ1RyZWFzdXJlQWRkcgkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFFGtGYXJtaW5nVHJlYXN1cmVBZGRyAAxjcG1tQ29udHJhY3QJAQdBZGRyZXNzAQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQ3BtbUNvbnRyYWN0AAZhY3RpdmUJARFAZXh0ck5hdGl2ZSgxMDUxKQIFBHRoaXMFB2tBY3RpdmUACmFjdGl2ZUdsb2IJAQt2YWx1ZU9yRWxzZQIJAJsIAgUGb3JhY2xlBQtrQWN0aXZlR2xvYgYABFNXT1AJANkEAQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwUHa1NXT1BpZAEVZ2V0SGVpZ2h0Rmlyc3RIYXJ2ZXN0AQRwb29sCQELdmFsdWVPckVsc2UCCQCaCAIJAQdBZGRyZXNzAQkA2QQBBQRwb29sBRNrRmlyc3RIYXJ2ZXN0SGVpZ2h0AAABFGdldEZIU2hhcmVMaW1pdFRva2VuAQRwb29sCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEcG9vbAUNa1NoYXJlTGltaXRGSAkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUNa1NoYXJlTGltaXRGSAESZ2V0VG90YWxTaGFyZVRva2VuAQRwb29sCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRZrU2hhcmVUb3RhbFNoYXJlVG9rZW5zCQCsAgIJAKwCAgIUTm8gZGF0YSBvbiB0aGUga2V5OiAFBHBvb2wFFmtTaGFyZVRvdGFsU2hhcmVUb2tlbnMBDGdldFBvb2xWb3RlZAEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ12b3RpbmdBZGRyZXNzCQCsAgIFBHBvb2wFCWtQb29sVm90ZQkBC3ZhbHVlT3JFbHNlAgkAtgkBCQCRAwIJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ12b3RpbmdBZGRyZXNzCQCsAgIFBHBvb2wFCmtQb29sU3RydWMCAAIBXwAAAAABEGdldFVzZXJQb29sVm90ZWQCBHBvb2wEdXNlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ12b3RpbmdBZGRyZXNzCQCsAgIJAKwCAgkArAICBQR1c2VyAgFfBQRwb29sBQ1rVXNlclBvb2xWb3RlCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFDXZvdGluZ0FkZHJlc3MJAKwCAgkArAICCQCsAgIFBHVzZXICAV8FBHBvb2wFDmtVc2VyUG9vbFN0cnVjAgACAV8AAAAAAQ9nZXRTaGFyZUFzc2V0SWQBBHBvb2wJANkEAQkBEUBleHRyTmF0aXZlKDEwNTMpAgkBBXZhbHVlAQkApggBBQRwb29sAg5zaGFyZV9hc3NldF9pZAEOYWNjb3VudEJhbGFuY2UBB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCaWQFByRtYXRjaDAJAPAHAgUEdGhpcwUCaWQDCQABAgUHJG1hdGNoMAIEVW5pdAQFd2F2ZXMFByRtYXRjaDAICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQACAQILTWF0Y2ggZXJyb3IBDmNhbGNTY2FsZVZhbHVlAghhc3NldElkMQhhc3NldElkMgQQYXNzZXRJZDFEZWNpbWFscwgJAQV2YWx1ZQEJAOwHAQUIYXNzZXRJZDEIZGVjaW1hbHMEEGFzc2V0SWQyRGVjaW1hbHMICQEFdmFsdWUBCQDsBwEFCGFzc2V0SWQyCGRlY2ltYWxzBAtzY2FsZURpZ2l0cwkAZAIJAGUCBRBhc3NldElkMkRlY2ltYWxzBRBhc3NldElkMURlY2ltYWxzAAgJAGwGAAoAAAULc2NhbGVEaWdpdHMAAAAABQRET1dOARF1c2VyQXZhaWxhYmxlU1dPUAIEcG9vbAR1c2VyCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFDmtBdmFpbGFibGVTV09QAAABCnJld2FyZEluZm8BBHBvb2wEGnRvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUKZ292QWRkcmVzcwUba1RvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50CQCsAgIJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUba1RvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50AgwgYXQgYWRkcmVzcyAJAKUIAQUKZ292QWRkcmVzcwQbdG90YWxSZXdhcmRQZXJCbG9ja1ByZXZpb3VzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUKZ292QWRkcmVzcwUca1RvdGFsUmV3YXJkUGVyQmxvY2tQcmV2aW91cwkArAICCQCsAgIJAKwCAgIUTm8gZGF0YSBvbiB0aGUga2V5OiAFHGtUb3RhbFJld2FyZFBlckJsb2NrUHJldmlvdXMCDCBhdCBhZGRyZXNzIAkApQgBBQpnb3ZBZGRyZXNzBBlyZXdhcmRQb29sRnJhY3Rpb25DdXJyZW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUKZ292QWRkcmVzcwkArAICBQRwb29sBRprUmV3YXJkUG9vbEZyYWN0aW9uQ3VycmVudAkArAICCQCsAgIJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUEcG9vbAUaa1Jld2FyZFBvb2xGcmFjdGlvbkN1cnJlbnQCDCBhdCBhZGRyZXNzIAkApQgBBQpnb3ZBZGRyZXNzBBJyZXdhcmRVcGRhdGVIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQpnb3ZBZGRyZXNzBRNrUmV3YXJkVXBkYXRlSGVpZ2h0CQCsAgIJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUTa1Jld2FyZFVwZGF0ZUhlaWdodAIMIGF0IGFkZHJlc3MgCQClCAEFCmdvdkFkZHJlc3MEFnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUKZ292QWRkcmVzcwkArAICBQRwb29sBRNrSGVpZ2h0UG9vbEZyYWN0aW9uBRJyZXdhcmRVcGRhdGVIZWlnaHQEGnJld2FyZFBvb2xGcmFjdGlvblByZXZpb3VzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUKZ292QWRkcmVzcwkArAICBQRwb29sBRtrUmV3YXJkUG9vbEZyYWN0aW9uUHJldmlvdXMJAKwCAgkArAICCQCsAgIJAKwCAgIUTm8gZGF0YSBvbiB0aGUga2V5OiAFBHBvb2wFG2tSZXdhcmRQb29sRnJhY3Rpb25QcmV2aW91cwIMIGF0IGFkZHJlc3MgCQClCAEFCmdvdkFkZHJlc3MEEXJld2FyZFBvb2xDdXJyZW50CQBrAwUadG90YWxSZXdhcmRQZXJCbG9ja0N1cnJlbnQFGXJld2FyZFBvb2xGcmFjdGlvbkN1cnJlbnQFDnRvdGFsVm90ZVNoYXJlBBJyZXdhcmRQb29sUHJldmlvdXMJAGsDBRp0b3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAUacmV3YXJkUG9vbEZyYWN0aW9uUHJldmlvdXMFDnRvdGFsVm90ZVNoYXJlAwMJAGYCBRFyZXdhcmRQb29sQ3VycmVudAUadG90YWxSZXdhcmRQZXJCbG9ja0N1cnJlbnQGCQBmAgUScmV3YXJkUG9vbFByZXZpb3VzBRt0b3RhbFJld2FyZFBlckJsb2NrUHJldmlvdXMJAAIBAmJyZXdhcmRQb29sQ3VycmVudCA+IHRvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50IG9yIHJld2FyZFBvb2xQcmV2aW91cyA+IHRvdGFsUmV3YXJkUGVyQmxvY2tQcmV2aW91cwkAlgoEBRFyZXdhcmRQb29sQ3VycmVudAUScmV3YXJkVXBkYXRlSGVpZ2h0BRJyZXdhcmRQb29sUHJldmlvdXMFFnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQBE2dldExhc3RJbnRlcmVzdEluZm8BBHBvb2wEDGZhcm1JbnRlcmVzdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QEDWJvb3N0SW50ZXJlc3QJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QAAAQPYm9vc3RMUEludGVyZXN0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QAAAQSbGFzdEludGVyZXN0SGVpZ2h0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUTa0xhc3RJbnRlcmVzdEhlaWdodAUGaGVpZ2h0CQCWCgQFEmxhc3RJbnRlcmVzdEhlaWdodAUMZmFybUludGVyZXN0BQ1ib29zdEludGVyZXN0BQ9ib29zdExQSW50ZXJlc3QBC2NhbGNGYXJtUndkAgRwb29sDmN1clRvdGFsUmV3YXJkBA1wb29sQm9vc3RDb2VmCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUOa1Bvb2xCb29zdENvZWYFEGRlZlBvb2xCb29zdENvZWYJAGsDBQ5jdXJUb3RhbFJld2FyZAUSbG9ja0Jvb3N0Q29lZlNjYWxlCQBkAgUNcG9vbEJvb3N0Q29lZgUSbG9ja0Jvb3N0Q29lZlNjYWxlAQxjYWxjQm9vc3RSd2QCBHBvb2wOY3VyVG90YWxSZXdhcmQEDXBvb2xCb29zdENvZWYJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBQ5rUG9vbEJvb3N0Q29lZgUQZGVmUG9vbEJvb3N0Q29lZgkAawMFDmN1clRvdGFsUmV3YXJkBQ1wb29sQm9vc3RDb2VmCQBkAgUNcG9vbEJvb3N0Q29lZgUSbG9ja0Jvb3N0Q29lZlNjYWxlAQxjYWxjSW50ZXJlc3QMBHBvb2wSbGFzdEludGVyZXN0SGVpZ2h0EnJld2FyZFVwZGF0ZUhlaWdodBZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0DGZhcm1JbnRlcmVzdA1ib29zdEludGVyZXN0CXBvb2xWb3RlZA9ib29zdExwSW50ZXJlc3QVY3VycmVudFJld2FyZFBlckJsb2NrEHNoYXJlVG9rZW5Mb2NrZWQWcHJldmlvdXNSZXdhcmRQZXJCbG9jawpzY2FsZVZhbHVlAwkAAAIFEHNoYXJlVG9rZW5Mb2NrZWQAAAkAlQoDBQxmYXJtSW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QFD2Jvb3N0THBJbnRlcmVzdAQMJHQwOTkxNDExMzI3AwMDCQBmAgUScmV3YXJkVXBkYXRlSGVpZ2h0BQZoZWlnaHQJAAACBRJyZXdhcmRVcGRhdGVIZWlnaHQFFnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQHBgMJAGYCBQZoZWlnaHQFEnJld2FyZFVwZGF0ZUhlaWdodAkBAiE9AgUScmV3YXJkVXBkYXRlSGVpZ2h0BRZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0BwQBcgkAaAIFFnByZXZpb3VzUmV3YXJkUGVyQmxvY2sJAGUCBQZoZWlnaHQFEmxhc3RJbnRlcmVzdEhlaWdodAkAlgoEBQFyBQxmYXJtSW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QFD2Jvb3N0THBJbnRlcmVzdAMDAwkAZgIFBmhlaWdodAUScmV3YXJkVXBkYXRlSGVpZ2h0CQAAAgUScmV3YXJkVXBkYXRlSGVpZ2h0BRZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0BwkAZgIFEmxhc3RJbnRlcmVzdEhlaWdodAUScmV3YXJkVXBkYXRlSGVpZ2h0BwQBcgkAaAIFFWN1cnJlbnRSZXdhcmRQZXJCbG9jawkAZQIFBmhlaWdodAUSbGFzdEludGVyZXN0SGVpZ2h0CQCWCgQFAXIFDGZhcm1JbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAUPYm9vc3RMcEludGVyZXN0BAlyd2RCZnJVcGQJAGgCBRZwcmV2aW91c1Jld2FyZFBlckJsb2NrCQBlAgUScmV3YXJkVXBkYXRlSGVpZ2h0BRJsYXN0SW50ZXJlc3RIZWlnaHQEBmZCZnJVcAkAZAIFDGZhcm1JbnRlcmVzdAkAawMJAQtjYWxjRmFybVJ3ZAIFBHBvb2wFCXJ3ZEJmclVwZAUKc2NhbGVWYWx1ZQUQc2hhcmVUb2tlbkxvY2tlZAQGYkJmclVwCQBkAgUNYm9vc3RJbnRlcmVzdAMJAGYCBQlwb29sVm90ZWQAAAkAawMJAQxjYWxjQm9vc3RSd2QCBQRwb29sBQlyd2RCZnJVcGQFC3NjYWxlVmFsdWU4BQlwb29sVm90ZWQAAAQIYkxQQmZyVXAJAGQCBQ9ib29zdExwSW50ZXJlc3QDCQBmAgUJcG9vbFZvdGVkAAAJAGsDCQBrAwkBDGNhbGNCb29zdFJ3ZAIFBHBvb2wFCXJ3ZEJmclVwZAULc2NhbGVWYWx1ZTgFEHNoYXJlVG9rZW5Mb2NrZWQFC3NjYWxlVmFsdWU4BQlwb29sVm90ZWQAAAQDcndkCQBoAgUVY3VycmVudFJld2FyZFBlckJsb2NrCQBlAgUGaGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQJAJYKBAUDcndkBQZmQmZyVXAFBmJCZnJVcAUIYkxQQmZyVXAEBnJld2FyZAgFDCR0MDk5MTQxMTMyNwJfMQQOZmFybUludHJCZWZvcmUIBQwkdDA5OTE0MTEzMjcCXzIED2Jvb3N0SW50ckJlZm9yZQgFDCR0MDk5MTQxMTMyNwJfMwQRYm9vc3RMUEludHJCZWZvcmUIBQwkdDA5OTE0MTEzMjcCXzQED25ld0Zhcm1JbnRlcmVzdAkAZAIFDmZhcm1JbnRyQmVmb3JlCQBrAwkBC2NhbGNGYXJtUndkAgUEcG9vbAUGcmV3YXJkBQpzY2FsZVZhbHVlBRBzaGFyZVRva2VuTG9ja2VkBBBuZXdCb29zdEludGVyZXN0CQBkAgUPYm9vc3RJbnRyQmVmb3JlAwkAZgIFCXBvb2xWb3RlZAAACQBrAwkBDGNhbGNCb29zdFJ3ZAIFBHBvb2wFBnJld2FyZAULc2NhbGVWYWx1ZTgFCXBvb2xWb3RlZAAABBJuZXdCb29zdExQSW50ZXJlc3QJAGQCBRFib29zdExQSW50ckJlZm9yZQMJAGYCBQlwb29sVm90ZWQAAAkAawMJAGsDCQEMY2FsY0Jvb3N0UndkAgUEcG9vbAUGcmV3YXJkBQtzY2FsZVZhbHVlOAUQc2hhcmVUb2tlbkxvY2tlZAULc2NhbGVWYWx1ZTgFCXBvb2xWb3RlZAAACQCVCgMFD25ld0Zhcm1JbnRlcmVzdAUQbmV3Qm9vc3RJbnRlcmVzdAUSbmV3Qm9vc3RMUEludGVyZXN0AQljbGFpbUNhbGMCBHBvb2wEdXNlcgQKc2NhbGVWYWx1ZQkBDmNhbGNTY2FsZVZhbHVlAgUEU1dPUAkBD2dldFNoYXJlQXNzZXRJZAEFBHBvb2wECXBvb2xWb3RlZAkBDGdldFBvb2xWb3RlZAEFBHBvb2wECnVQb29sVm90ZWQJARBnZXRVc2VyUG9vbFZvdGVkAgUEcG9vbAUEdXNlcgQKc2hhcmVUb2tlbgkBEmdldFRvdGFsU2hhcmVUb2tlbgEFBHBvb2wEEXRvdGFsU2hhcmVWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAUKc2hhcmVUb2tlbgQNJHQwMTIyNzYxMjM3NAkBE2dldExhc3RJbnRlcmVzdEluZm8BBQRwb29sBBJsYXN0SW50ZXJlc3RIZWlnaHQIBQ0kdDAxMjI3NjEyMzc0Al8xBAxmYXJtSW50ZXJlc3QIBQ0kdDAxMjI3NjEyMzc0Al8yBA1ib29zdEludGVyZXN0CAUNJHQwMTIyNzYxMjM3NAJfMwQPYm9vc3RMUEludGVyZXN0CAUNJHQwMTIyNzYxMjM3NAJfNAQNJHQwMTIzNzkxMjQ5MwkBCnJld2FyZEluZm8BBQRwb29sBBVjdXJyZW50UmV3YXJkUGVyQmxvY2sIBQ0kdDAxMjM3OTEyNDkzAl8xBBJyZXdhcmRVcGRhdGVIZWlnaHQIBQ0kdDAxMjM3OTEyNDkzAl8yBBZwcmV2aW91c1Jld2FyZFBlckJsb2NrCAUNJHQwMTIzNzkxMjQ5MwJfMwQWcG9vbFJld2FyZFVwZGF0ZUhlaWdodAgFDSR0MDEyMzc5MTI0OTMCXzQEDXVGYXJtSW50ZXJlc3QJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUVa0Zhcm1Vc2VyTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QEDnVCb29zdEludGVyZXN0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtCb29zdFVzZXJMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QEEHVCb29zdExQSW50ZXJlc3QJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUYa0Jvb3N0TFBVc2VyTGFzdEludGVyZXN0BQ9ib29zdExQSW50ZXJlc3QEEnVTaGFyZVRva2Vuc1N0YWtlZAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAAAEEHVTaGFyZVRva2Vuc1ZpcnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFEnVTaGFyZVRva2Vuc1N0YWtlZAQNJHQwMTMwNjExMzQ1NAkBDGNhbGNJbnRlcmVzdAwFBHBvb2wFEmxhc3RJbnRlcmVzdEhlaWdodAUScmV3YXJkVXBkYXRlSGVpZ2h0BRZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0BQxmYXJtSW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QFCXBvb2xWb3RlZAUPYm9vc3RMUEludGVyZXN0BRVjdXJyZW50UmV3YXJkUGVyQmxvY2sFEXRvdGFsU2hhcmVWaXJ0dWFsBRZwcmV2aW91c1Jld2FyZFBlckJsb2NrBQpzY2FsZVZhbHVlBA9uZXdGYXJtSW50ZXJlc3QIBQ0kdDAxMzA2MTEzNDU0Al8xBBBuZXdCb29zdEludGVyZXN0CAUNJHQwMTMwNjExMzQ1NAJfMgQSbmV3Qm9vc3RMUEludGVyZXN0CAUNJHQwMTMwNjExMzQ1NAJfMwQMY2xhaW1GYXJtaW5nCQBrAwUQdVNoYXJlVG9rZW5zVmlydAkAZQIFD25ld0Zhcm1JbnRlcmVzdAUNdUZhcm1JbnRlcmVzdAUKc2NhbGVWYWx1ZQQQY2xhaW1Cb29zdGluZ01heAkAawMFCnVQb29sVm90ZWQJAGUCBRBuZXdCb29zdEludGVyZXN0BQ51Qm9vc3RJbnRlcmVzdAULc2NhbGVWYWx1ZTgEA211bAkAvAIDCQC2AgEFEHVTaGFyZVRva2Vuc1ZpcnQJALYCAQUKdVBvb2xWb3RlZAkAtgIBAAEEDWNsYWltQm9vc3RpbmcJAKADAQkAvAIDCQC8AgMFA211bAkAtgIBCQBlAgUSbmV3Qm9vc3RMUEludGVyZXN0BRB1Qm9vc3RMUEludGVyZXN0CQC2AgEFC3NjYWxlVmFsdWU4CQC2AgEAAQkAtgIBBQtzY2FsZVZhbHVlOAQKdG9UcmVhc3VyeQkAZQIFEGNsYWltQm9vc3RpbmdNYXgFDWNsYWltQm9vc3RpbmcDCQBmAgAABQp0b1RyZWFzdXJ5CQACAQIOdG9UcmVhc3VyeSA8IDAJAJcKBQUPbmV3RmFybUludGVyZXN0BRBuZXdCb29zdEludGVyZXN0BRJuZXdCb29zdExQSW50ZXJlc3QJAGQCBQxjbGFpbUZhcm1pbmcFDWNsYWltQm9vc3RpbmcFCnRvVHJlYXN1cnkBG2F2YWlsYWJsZUNsYWltQ2FsY0FsbEJ5VXNlcgIFcG9vbHMEdXNlcgoBDWNhbGNBdmFpbGFibGUCA2FjYwRwb29sBA0kdDAxNDI4NzE0MzE2BQNhY2MECG5ld1Bvb2xzCAUNJHQwMTQyODcxNDMxNgJfMQQHYW1vdW50cwgFDSR0MDE0Mjg3MTQzMTYCXzIEDSR0MDE0MzI1MTQzODQJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAJmaQgFDSR0MDE0MzI1MTQzODQCXzEEAmJpCAUNJHQwMTQzMjUxNDM4NAJfMgQEYmxwaQgFDSR0MDE0MzI1MTQzODQCXzMEC2NsYWltQW1vdW50CAUNJHQwMTQzMjUxNDM4NAJfNAQCdHQIBQ0kdDAxNDMyNTE0Mzg0Al81BA1hdmFpbGFibGVGdW5kCQBkAgkBEXVzZXJBdmFpbGFibGVTV09QAgUEcG9vbAUEdXNlcgULY2xhaW1BbW91bnQJAJQKAgkAzQgCBQhuZXdQb29scwUEcG9vbAkAzQgCBQdhbW91bnRzBQ1hdmFpbGFibGVGdW5kCgACJGwFBXBvb2xzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQENY2FsY0F2YWlsYWJsZQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwBFWNhbkxvY2tJbkZpcnN0SGFydmVzdAUEcG9vbAR1c2VyFXVzZXJTaGFyZVRva2Vuc1N0YWtlZAlwbXRBbW91bnQIbG9ja1R5cGUDCQBmAgkBFWdldEhlaWdodEZpcnN0SGFydmVzdAEFBHBvb2wFBmhlaWdodAQPdG90YWxWb3RlQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFDXZvdGluZ0FkZHJlc3MJAKwCAgUEcG9vbAUQa0hhcnZlc3RQb29sVm90ZQAABA51c2VyVm90ZUFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ12b3RpbmdBZGRyZXNzCQCsAgIJAKwCAgkArAICBQR1c2VyAgFfBQRwb29sBRRrSGFydmVzdFVzZXJQb29sVm90ZQAABBFGSFNoYXJlVG9rZW5MaW1pdAkBFGdldEZIU2hhcmVMaW1pdFRva2VuAQkBEUBleHRyTmF0aXZlKDEwNjIpAQUEcG9vbAQVRkhTaGFyZVRva2VuVXNlckxpbWl0CQBlAgkAawMFEUZIU2hhcmVUb2tlbkxpbWl0BQ51c2VyVm90ZUFtb3VudAUPdG90YWxWb3RlQW1vdW50BRV1c2VyU2hhcmVUb2tlbnNTdGFrZWQDCQBmAgUIbG9ja1R5cGUAAAkAAgECMllvdSBjYW4ndCBsb2NrIHNoYXJlVG9rZW5zIHRpbGwgZmlyc3QgaGFydmVzdCBlbmQuAwkAAAIFDnVzZXJWb3RlQW1vdW50AAAAAAMJAGcCBQlwbXRBbW91bnQFFUZIU2hhcmVUb2tlblVzZXJMaW1pdAkAZQIFCXBtdEFtb3VudAUVRkhTaGFyZVRva2VuVXNlckxpbWl0AAAAAAENZ2V0TG9ja1BhcmFtcwEEdHlwZQQKbG9ja1BhcmFtcwkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEdGhpcwkArAICCQCkAwEFBHR5cGUFC2tMb2NrUGFyYW1zCQCsAgICHlRoZXJlIGFyZSBubyBrZXkgZm9yIGxvY2sgdHlwZQkApAMBBQR0eXBlAgFfCQCUCgIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpsb2NrUGFyYW1zAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpsb2NrUGFyYW1zAAEBB3N1c3BlbmQBBWNhdXNlCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBwkAzAgCCQELU3RyaW5nRW50cnkCBQZrQ2F1c2UFBWNhdXNlBQNuaWwBCGlzQWN0aXZlAAMDBQZhY3RpdmUFCmFjdGl2ZUdsb2IHBQR1bml0CQACAQIfREFwcCBpcyBpbmFjdGl2ZSBhdCB0aGlzIG1vbWVudAELaXNBZG1pbkNhbGwBAWkDCQEPY29udGFpbnNFbGVtZW50AgkAzAgCBQxhZG1pblB1YktleTEJAMwIAgUMYWRtaW5QdWJLZXkyCQDMCAIFDGFkbWluUHViS2V5MwUDbmlsCAUBaQ9jYWxsZXJQdWJsaWNLZXkFBHVuaXQJAAIBAiFPbmx5IGFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24BCmlzUG9vbENhbGwCAWkEcG9vbAMDCQAAAgkApQgBCAUBaQZjYWxsZXIFBHBvb2wGCQAAAggFAWkGY2FsbGVyBQxjcG1tQ29udHJhY3QFBHVuaXQJAAIBAiBPbmx5IHBvb2wgY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgEKaXNTZWxmQ2FsbAEBaQMJAAACCAUBaQZjYWxsZXIFBHRoaXMFBHVuaXQJAAIBAitPbmx5IGNvbnRyYWN0IGl0c2VsZiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uARNjYWxjTG9ja1NoYXJlVG9rZW5zBAFpBmNhbGxlcgRwb29sCGxvY2tUeXBlBAxzaGFyZUFzc2V0SWQJAQ9nZXRTaGFyZUFzc2V0SWQBBQRwb29sBAR1c2VyCQClCAEFBmNhbGxlcgQKdG90YWxTaGFyZQkBEmdldFRvdGFsU2hhcmVUb2tlbgEFBHBvb2wEEXRvdGFsU2hhcmVWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAUKdG90YWxTaGFyZQQQdXNlclN0YWtlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAAAED3VzZXJMb2NrZWRIZWlndAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRxrVXNlclNoYXJlVG9rZW5zTG9ja2VkSGVpZ2h0AAAEEHVzZXJMb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAAABBF1c2VyQW1vdW50VmlydHVhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUQdXNlclN0YWtlZEFtb3VudAQUdG90YWxVc2VyU2hhcmVUb2tlbnMJAGQCCQBkAgUQdXNlclN0YWtlZEFtb3VudAUQdXNlckxvY2tlZEFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEDSR0MDE3MTg1MTcyMzcJAQ1nZXRMb2NrUGFyYW1zAQUIbG9ja1R5cGUECmxvY2tQZXJpb2QIBQ0kdDAxNzE4NTE3MjM3Al8xBAhsb2NrQ29lZggFDSR0MDE3MTg1MTcyMzcCXzIEDGxvY2tXYXZlc0ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUNa0xvY2tXYXZlc0ZlZQMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUMc2hhcmVBc3NldElkCQACAQIbV3Jvbmcgc2hhcmV0b2tlbiBpbiBwYXltZW50AwkAZwIAAAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQJAAIBAiVQYXltZW50IGFtb3VudCBtdXN0IGJlIGdyZWF0ZXIgdGhhbiAwAwkAZgIAAAUIbG9ja1R5cGUJAAIBAhVsb2NrVHlwZSBtdXN0IGJlID49IDAEFXNoYXJlVG9rZW5zQ2hhbmdlT25GSAkBFWNhbkxvY2tJbkZpcnN0SGFydmVzdAUFBHBvb2wFBHVzZXIFEHVzZXJTdGFrZWRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQhsb2NrVHlwZQMJAAACBRVzaGFyZVRva2Vuc0NoYW5nZU9uRkgFFXNoYXJlVG9rZW5zQ2hhbmdlT25GSAQNJHQwMTc2NjQxOTU5OAMJAAACBQhsb2NrVHlwZQAABBR1c2VyQW1vdW50VmlydHVhbE5ldwkAZQIJAGQCBRF1c2VyQW1vdW50VmlydHVhbAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFFXNoYXJlVG9rZW5zQ2hhbmdlT25GSAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkCQBlAgkAZAIFEHVzZXJTdGFrZWRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BRVzaGFyZVRva2Vuc0NoYW5nZU9uRkgJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRR1c2VyQW1vdW50VmlydHVhbE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsCQBlAgkAZAIFEXRvdGFsU2hhcmVWaXJ0dWFsCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUVc2hhcmVUb2tlbnNDaGFuZ2VPbkZICQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUVc2hhcmVUb2tlbnNDaGFuZ2VPbkZICAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFA25pbAkAZQIJAGQCBQp0b3RhbFNoYXJlCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUVc2hhcmVUb2tlbnNDaGFuZ2VPbkZIAwMJAAACBQ91c2VyTG9ja2VkSGVpZ3QAAAMDCQBmAgACCQCQAwEIBQFpCHBheW1lbnRzBgkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAQdhc3NldElkBQR1bml0BgkAZgIFDGxvY2tXYXZlc0ZlZQgJAJEDAggFAWkIcGF5bWVudHMAAQZhbW91bnQHCQACAQkArAICCQCsAgICK1lvdSBuZWVkIHRvIHBheSBhZGRpdGlvbmFsIHdhdmVzIGNvbWlzc2lvbiAJAKQDAQUMbG9ja1dhdmVzRmVlAgVXQVZFUwMJAGYCBQ91c2VyTG9ja2VkSGVpZ3QJAGQCBQZoZWlnaHQFCmxvY2tQZXJpb2QJAAIBAk9Zb3UgY2Fubm90IGxvY2sgc2hhcmV0b2tlbnMgZm9yIGEgcGVyaW9kIGxlc3MgdGhhbiB3aGF0IHlvdSBoYXZlIGFscmVhZHkgbG9ja2VkBBN1c2VyTG9ja2VkQW1vdW50TmV3CQBkAgUQdXNlckxvY2tlZEFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEEnVzZXJMb2NrZWRIZWlndE5ldwkAZAIFBmhlaWdodAUKbG9ja1BlcmlvZAQUdXNlckFtb3VudFZpcnR1YWxOZXcJAGQCCQBrAwUTdXNlckxvY2tlZEFtb3VudE5ldwUIbG9ja0NvZWYFEmxvY2tCb29zdENvZWZTY2FsZQUQdXNlclN0YWtlZEFtb3VudAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zTG9ja2VkBRN1c2VyTG9ja2VkQW1vdW50TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRxrVXNlclNoYXJlVG9rZW5zTG9ja2VkSGVpZ2h0BRJ1c2VyTG9ja2VkSGVpZ3ROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFGmtVc2VyU2hhcmVUb2tlbnNMb2NrZWRUeXBlBQhsb2NrVHlwZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFFHVzZXJBbW91bnRWaXJ0dWFsTmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tTaGFyZVRva2Vuc1ZpcnR1YWwJAGQCCQBlAgURdG90YWxTaGFyZVZpcnR1YWwFEXVzZXJBbW91bnRWaXJ0dWFsBRR1c2VyQW1vdW50VmlydHVhbE5ldwUDbmlsCQBkAgUKdG90YWxTaGFyZQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEC2xvY2tFbnRyaWVzCAUNJHQwMTc2NjQxOTU5OAJfMQQNdG90YWxTaGFyZU5ldwgFDSR0MDE3NjY0MTk1OTgCXzIDCQBmAgkBDmFjY291bnRCYWxhbmNlAQUMc2hhcmVBc3NldElkBQ10b3RhbFNoYXJlTmV3CQACAQIwQmFsYW5jZSBvZiBzaGFyZS10b2tlbiBpcyBsb3dlciB0aGFuIHRvdGFsQW1vdW50BA0kdDAxOTcyMzE5ODIyCQEJY2xhaW1DYWxjAgUEcG9vbAUEdXNlcgQMZmFybUludGVyZXN0CAUNJHQwMTk3MjMxOTgyMgJfMQQNYm9vc3RJbnRlcmVzdAgFDSR0MDE5NzIzMTk4MjICXzIED2Jvb3N0TFBpbnRlcmVzdAgFDSR0MDE5NzIzMTk4MjICXzMEC2NsYWltQW1vdW50CAUNJHQwMTk3MjMxOTgyMgJfNAQKdG9UcmVhc3VyZQgFDSR0MDE5NzIzMTk4MjICXzUEEWF2YWlsYWJsZUZ1bmRzTmV3CQBkAgkBEXVzZXJBdmFpbGFibGVTV09QAgUEcG9vbAUEdXNlcgULY2xhaW1BbW91bnQEBHVwbHADCQAAAgkAnQgCCQEHQWRkcmVzcwEJANkEAQUEcG9vbAIHdmVyc2lvbgIFMy4wLjAJAPwHBAUQbHBGYXJtaW5nQWRkcmVzcwISdXBkYXRlVXNlckludGVyZXN0CQDMCAIFBHVzZXIJAMwIAgUEcG9vbAkAzAgCBRR0b3RhbFVzZXJTaGFyZVRva2VucwUDbmlsBQNuaWwAAAMJAAACBQR1cGxwBQR1cGxwCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRhrQm9vc3RMUFVzZXJMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRZrU2hhcmVUb3RhbFNoYXJlVG9rZW5zBQ10b3RhbFNoYXJlTmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBQ5rQXZhaWxhYmxlU1dPUAURYXZhaWxhYmxlRnVuZHNOZXcJAMwIAgkBB1JlaXNzdWUDBQRTV09QBQp0b1RyZWFzdXJlBgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRNmYXJtaW5nVHJlYXN1cmVBZGRyBQp0b1RyZWFzdXJlBQRTV09QBQNuaWwFC2xvY2tFbnRyaWVzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuARdjYWxjV2l0aGRyYXdTaGFyZVRva2VucwQBaQZjYWxsZXIEcG9vbBlzaGFyZVRva2Vuc1dpdGhkcmF3QW1vdW50CQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABA1zaGFyZVRva2Vuc0lkCQDZBAEJARFAZXh0ck5hdGl2ZSgxMDUzKQIJAQV2YWx1ZQEJAKYIAQUEcG9vbAIOc2hhcmVfYXNzZXRfaWQEBHVzZXIJAKUIAQUGY2FsbGVyBA0kdDAyMTE2NzIxMjY2CQEJY2xhaW1DYWxjAgUEcG9vbAUEdXNlcgQMZmFybUludGVyZXN0CAUNJHQwMjExNjcyMTI2NgJfMQQNYm9vc3RJbnRlcmVzdAgFDSR0MDIxMTY3MjEyNjYCXzIED2Jvb3N0TFBpbnRlcmVzdAgFDSR0MDIxMTY3MjEyNjYCXzMEC2NsYWltQW1vdW50CAUNJHQwMjExNjcyMTI2NgJfNAQKdG9UcmVhc3VyZQgFDSR0MDIxMTY3MjEyNjYCXzUEEHVzZXJTdGFrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAAABBB1c2VyTG9ja2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQAAAQRdXNlckFtb3VudFZpcnR1YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFEHVzZXJTdGFrZWRBbW91bnQEE3VzZXJTdGFrZWRBbW91bnROZXcJAGUCBRB1c2VyU3Rha2VkQW1vdW50BRlzaGFyZVRva2Vuc1dpdGhkcmF3QW1vdW50BBFhdmFpbGFibGVGdW5kc05ldwkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wFBHVzZXIFC2NsYWltQW1vdW50BBB0b3RhbFNoYXJlQW1vdW50CQESZ2V0VG90YWxTaGFyZVRva2VuAQUEcG9vbAQRdG90YWxTaGFyZVZpcnR1YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsBRB0b3RhbFNoYXJlQW1vdW50BBN0b3RhbFNoYXJlQW1vdW50TmV3CQBlAgUQdG90YWxTaGFyZUFtb3VudAUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAQUdG90YWxTaGFyZVZpcnR1YWxOZXcJAGUCBRF0b3RhbFNoYXJlVmlydHVhbAUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAQUdXNlckFtb3VudFZpcnR1YWxOZXcJAGUCBRF1c2VyQW1vdW50VmlydHVhbAUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAMJAGYCBRlzaGFyZVRva2Vuc1dpdGhkcmF3QW1vdW50BRB1c2VyU3Rha2VkQW1vdW50CQACAQIsV2l0aGRyYXcgYW1vdW50IG1vcmUgdGhlbiB1c2VyIGxvY2tlZCBhbW91bnQDCQBmAgkBDmFjY291bnRCYWxhbmNlAQUNc2hhcmVUb2tlbnNJZAUQdG90YWxTaGFyZUFtb3VudAkAAgECMEJhbGFuY2Ugb2Ygc2hhcmUtdG9rZW4gaXMgbG93ZXIgdGhhbiB0b3RhbEFtb3VudAQEdXBscAMJAAACCQCdCAIJAQdBZGRyZXNzAQkA2QQBBQRwb29sAgd2ZXJzaW9uAgUzLjAuMAkA/AcEBRBscEZhcm1pbmdBZGRyZXNzAhJ1cGRhdGVVc2VySW50ZXJlc3QJAMwIAgUEdXNlcgkAzAgCBQRwb29sCQDMCAIJAGQCBRB1c2VyU3Rha2VkQW1vdW50BRB1c2VyTG9ja2VkQW1vdW50BQNuaWwFA25pbAAAAwkAAAIFBHVwbHAFBHVwbHAJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRhrQm9vc3RMUFVzZXJMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAUTdXNlclN0YWtlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFFHVzZXJBbW91bnRWaXJ0dWFsTmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFFmtTaGFyZVRvdGFsU2hhcmVUb2tlbnMFE3RvdGFsU2hhcmVBbW91bnROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAUUdG90YWxTaGFyZVZpcnR1YWxOZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFDmtBdmFpbGFibGVTV09QBRFhdmFpbGFibGVGdW5kc05ldwkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2Zhcm1pbmdUcmVhc3VyZUFkZHIFCnRvVHJlYXN1cmUFBFNXT1AJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRlzaGFyZVRva2Vuc1dpdGhkcmF3QW1vdW50BQ1zaGFyZVRva2Vuc0lkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BCWNhbGNDbGFpbQMBaQRwb29sBmNhbGxlcgQNc2hhcmVUb2tlbnNJZAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCCQEFdmFsdWUBCQCmCAEFBHBvb2wCDnNoYXJlX2Fzc2V0X2lkBAR1c2VyCQClCAEFBmNhbGxlcgQQc2hhcmVUb2tlbkxvY2tlZAkBEmdldFRvdGFsU2hhcmVUb2tlbgEFBHBvb2wEDSR0MDIzOTMyMjQwMzEJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAyMzkzMjI0MDMxAl8xBA1ib29zdEludGVyZXN0CAUNJHQwMjM5MzIyNDAzMQJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMjM5MzIyNDAzMQJfMwQLY2xhaW1BbW91bnQIBQ0kdDAyMzkzMjI0MDMxAl80BAp0b1RyZWFzdXJlCAUNJHQwMjM5MzIyNDAzMQJfNQQNYXZhaWxhYmxlRnVuZAkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wFBHVzZXIFC2NsYWltQW1vdW50AwkAAAIFDWF2YWlsYWJsZUZ1bmQAAAkAAgECGVlvdSBoYXZlIDAgYXZhaWxhYmxlIFNXT1ADCQBmAgkBDmFjY291bnRCYWxhbmNlAQUNc2hhcmVUb2tlbnNJZAUQc2hhcmVUb2tlbkxvY2tlZAkAAgECMEJhbGFuY2Ugb2Ygc2hhcmUtdG9rZW4gaXMgbG93ZXIgdGhhbiB0b3RhbEFtb3VudAQGdVRyYW5zAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUNYXZhaWxhYmxlRnVuZAUEU1dPUAUDbmlsBQNuaWwJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRVrRmFybVVzZXJMYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUYa0Jvb3N0TFBVc2VyTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFDmtBdmFpbGFibGVTV09QAAAJAMwIAgkBB1JlaXNzdWUDBQRTV09QCQBkAgUKdG9UcmVhc3VyZQUNYXZhaWxhYmxlRnVuZAYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUTZmFybWluZ1RyZWFzdXJlQWRkcgUKdG9UcmVhc3VyZQUEU1dPUAUDbmlsBQZ1VHJhbnMFDWF2YWlsYWJsZUZ1bmQRAWkBBGluaXQBB2Vhcmx5TFADCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzBQdrU1dPUGlkCQACAQIYU1dPUCBhbHJlYWR5IGluaXRpYWxpemVkBAppbml0QW1vdW50AICA6YOx3hYECVNXT1Bpc3N1ZQkAwggFAgRTV09QAhNTV09QIHByb3RvY29sIHRva2VuBQppbml0QW1vdW50AAgGBAZTV09QaWQJALgIAQUJU1dPUGlzc3VlCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBgkAzAgCCQDCCAUCBFNXT1ACE1NXT1AgcHJvdG9jb2wgdG9rZW4FCmluaXRBbW91bnQACAYJAMwIAgkBC1N0cmluZ0VudHJ5AgUHa1NXT1BpZAkA2AQBBQZTV09QaWQFA25pbAFpARRpbml0UG9vbFNoYXJlRmFybWluZwEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBC2lzQWRtaW5DYWxsAQUBaQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRZrU2hhcmVUb3RhbFNoYXJlVG9rZW5zAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRRrQm9vc3RMUExhc3RJbnRlcmVzdAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAUDbmlsAWkBEnVwZGF0ZVBvb2xJbnRlcmVzdAEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAMJAQIhPQIIBQFpBmNhbGxlcgUKZ292QWRkcmVzcwkAAgECJk9ubHkgR292ZXJuYW5jZSBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAR1c2VyCQClCAEJAKcIAQURYWRtaW5JbnZva2VQdWJLZXkEDSR0MDI2MTg2MjYyNjAJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAyNjE4NjI2MjYwAl8xBA1ib29zdEludGVyZXN0CAUNJHQwMjYxODYyNjI2MAJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMjYxODYyNjI2MAJfMwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAUDbmlsAWkBD2xvY2tTaGFyZVRva2VucwIEcG9vbAhsb2NrVHlwZQkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAkBE2NhbGNMb2NrU2hhcmVUb2tlbnMEBQFpCAUBaQZjYWxsZXIFBHBvb2wFCGxvY2tUeXBlAWkBF2xvY2tTaGFyZVRva2Vuc0Zyb21Qb29sAwtjYWxsZXJCeXRlcwRwb29sCGxvY2tUeXBlCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUACQELdmFsdWVPckVsc2UCCQEKaXNQb29sQ2FsbAIFAWkFBHBvb2wJARNjYWxjTG9ja1NoYXJlVG9rZW5zBAUBaQkBB0FkZHJlc3MBBQtjYWxsZXJCeXRlcwUEcG9vbAUIbG9ja1R5cGUBaQEVbG9ja1N0YWtlZFNoYXJlVG9rZW5zAwRwb29sCGxvY2tUeXBlCmxvY2tBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAEDHNoYXJlQXNzZXRJZAkBD2dldFNoYXJlQXNzZXRJZAEFBHBvb2wEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBAp0b3RhbFNoYXJlCQESZ2V0VG90YWxTaGFyZVRva2VuAQUEcG9vbAQRdG90YWxTaGFyZVZpcnR1YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsBQp0b3RhbFNoYXJlBBB1c2VyU3Rha2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQAAAQPdXNlckxvY2tlZEhlaWd0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFHGtVc2VyU2hhcmVUb2tlbnNMb2NrZWRIZWlnaHQAAAQQdXNlckxvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zTG9ja2VkAAAEEXVzZXJBbW91bnRWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRB1c2VyU3Rha2VkQW1vdW50BBR0b3RhbFVzZXJTaGFyZVRva2VucwkAZAIFEHVzZXJTdGFrZWRBbW91bnQFEHVzZXJMb2NrZWRBbW91bnQEDSR0MDI3NzQ3Mjc3OTkJAQ1nZXRMb2NrUGFyYW1zAQUIbG9ja1R5cGUECmxvY2tQZXJpb2QIBQ0kdDAyNzc0NzI3Nzk5Al8xBAhsb2NrQ29lZggFDSR0MDI3NzQ3Mjc3OTkCXzIEDGxvY2tXYXZlc0ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUNa0xvY2tXYXZlc0ZlZQMJAGYCCQEVZ2V0SGVpZ2h0Rmlyc3RIYXJ2ZXN0AQUEcG9vbAUGaGVpZ2h0CQACAQIyWW91IGNhbid0IGxvY2sgc2hhcmVUb2tlbnMgdGlsbCBmaXJzdCBoYXJ2ZXN0IGVuZC4DCQBnAgAABQhsb2NrVHlwZQkAAgECFGxvY2tUeXBlIG11c3QgYmUgPiAwAwkAZgIFCmxvY2tBbW91bnQFEHVzZXJTdGFrZWRBbW91bnQJAAIBCQCsAgICGVlvdSBjYW4ndCBsb2NrIG1vcmUgdGhhbiAJAKQDAQUQdXNlclN0YWtlZEFtb3VudAMJAGYCCQEOYWNjb3VudEJhbGFuY2UBBQxzaGFyZUFzc2V0SWQFCnRvdGFsU2hhcmUJAAIBAjBCYWxhbmNlIG9mIHNoYXJlLXRva2VuIGlzIGxvd2VyIHRoYW4gdG90YWxBbW91bnQDAwkAAAIFD3VzZXJMb2NrZWRIZWlndAAAAwMJAGYCAAEJAJADAQgFAWkIcGF5bWVudHMGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQGCQBmAgUMbG9ja1dhdmVzRmVlCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAcJAAIBCQCsAgIJAKwCAgIrWW91IG5lZWQgdG8gcGF5IGFkZGl0aW9uYWwgd2F2ZXMgY29taXNzaW9uIAkApAMBBQxsb2NrV2F2ZXNGZWUCBVdBVkVTAwMJAAACBQ91c2VyTG9ja2VkSGVpZ3QAAAkAZwIAAAUKbG9ja0Ftb3VudAcJAAIBAiFsb2NrQW1vdW50IG11c3QgYmUgZ3JlYXRlciB0aGFuIDADCQBmAgAABQpsb2NrQW1vdW50CQACAQIbbG9ja0Ftb3VudCBtdXN0IGJlIHBvc2l0aXZlAwkAZgIFD3VzZXJMb2NrZWRIZWlndAkAZAIFBmhlaWdodAUKbG9ja1BlcmlvZAkAAgECT1lvdSBjYW5ub3QgbG9jayBzaGFyZXRva2VucyBmb3IgYSBwZXJpb2QgbGVzcyB0aGFuIHdoYXQgeW91IGhhdmUgYWxyZWFkeSBsb2NrZWQEE3VzZXJMb2NrZWRBbW91bnROZXcJAGQCBRB1c2VyTG9ja2VkQW1vdW50BQpsb2NrQW1vdW50BBN1c2VyU3Rha2VkQW1vdW50TmV3CQBlAgUQdXNlclN0YWtlZEFtb3VudAUKbG9ja0Ftb3VudAQSdXNlckxvY2tlZEhlaWd0TmV3CQBkAgUGaGVpZ2h0BQpsb2NrUGVyaW9kBBR1c2VyQW1vdW50VmlydHVhbE5ldwkAZAIJAGsDBRN1c2VyTG9ja2VkQW1vdW50TmV3BQhsb2NrQ29lZgUSbG9ja0Jvb3N0Q29lZlNjYWxlBRN1c2VyU3Rha2VkQW1vdW50TmV3BA0kdDAyOTA4OTI5MTg4CQEJY2xhaW1DYWxjAgUEcG9vbAUEdXNlcgQMZmFybUludGVyZXN0CAUNJHQwMjkwODkyOTE4OAJfMQQNYm9vc3RJbnRlcmVzdAgFDSR0MDI5MDg5MjkxODgCXzIED2Jvb3N0TFBpbnRlcmVzdAgFDSR0MDI5MDg5MjkxODgCXzMEC2NsYWltQW1vdW50CAUNJHQwMjkwODkyOTE4OAJfNAQKdG9UcmVhc3VyZQgFDSR0MDI5MDg5MjkxODgCXzUEEWF2YWlsYWJsZUZ1bmRzTmV3CQBkAgkBEXVzZXJBdmFpbGFibGVTV09QAgUEcG9vbAUEdXNlcgULY2xhaW1BbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQFE3VzZXJTdGFrZWRBbW91bnROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQFE3VzZXJMb2NrZWRBbW91bnROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFHGtVc2VyU2hhcmVUb2tlbnNMb2NrZWRIZWlnaHQFEnVzZXJMb2NrZWRIZWlndE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUaa1VzZXJTaGFyZVRva2Vuc0xvY2tlZFR5cGUFCGxvY2tUeXBlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUUdXNlckFtb3VudFZpcnR1YWxOZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAkAZAIJAGUCBRF0b3RhbFNoYXJlVmlydHVhbAURdXNlckFtb3VudFZpcnR1YWwFFHVzZXJBbW91bnRWaXJ0dWFsTmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRVrRmFybVVzZXJMYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUYa0Jvb3N0TFBVc2VyTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFDmtBdmFpbGFibGVTV09QBRFhdmFpbGFibGVGdW5kc05ldwkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2Zhcm1pbmdUcmVhc3VyZUFkZHIFCnRvVHJlYXN1cmUFBFNXT1AFA25pbAFpAQ51bmxvY2tVc2VyTG9jawIEcG9vbAR1c2VyCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAxsb2NrV2F2ZXNGZWUJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFDWtMb2NrV2F2ZXNGZWUED3VzZXJMb2NrZWRIZWlndAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFHGtVc2VyU2hhcmVUb2tlbnNMb2NrZWRIZWlnaHQJAKwCAgkArAICCQCsAgIJAKwCAgIRVGhlcmUgaXMgbm8gcG9vbCAFBHBvb2wCCSBvciB1c2VyIAUEdXNlcgIJd2l0aCBsb2NrBBF0b3RhbFNoYXJlVmlydHVhbAkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsBBB1c2VyU3Rha2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQAAAQQdXNlckxvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zTG9ja2VkAAAEEXVzZXJBbW91bnRWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRB1c2VyU3Rha2VkQW1vdW50AwkAZgIFD3VzZXJMb2NrZWRIZWlndAUGaGVpZ2h0CQACAQkArAICAiJZb3UgY2FuJ3QgdW5sb2NrIHNoYXJldG9rZW5zIHRpbGwgCQCkAwEFD3VzZXJMb2NrZWRIZWlndAQTdXNlclN0YWtlZEFtb3VudE5ldwkAZAIFEHVzZXJTdGFrZWRBbW91bnQFEHVzZXJMb2NrZWRBbW91bnQEDSR0MDMxNDE4MzE1MTcJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAzMTQxODMxNTE3Al8xBA1ib29zdEludGVyZXN0CAUNJHQwMzE0MTgzMTUxNwJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMzE0MTgzMTUxNwJfMwQLY2xhaW1BbW91bnQIBQ0kdDAzMTQxODMxNTE3Al80BAp0b1RyZWFzdXJlCAUNJHQwMzE0MTgzMTUxNwJfNQQRYXZhaWxhYmxlRnVuZHNOZXcJAGQCCQERdXNlckF2YWlsYWJsZVNXT1ACBQRwb29sBQR1c2VyBQtjbGFpbUFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUVa0Zhcm1Vc2VyTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtCb29zdFVzZXJMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFGGtCb29zdExQVXNlckxhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEWtGYXJtTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUSa0Jvb3N0TGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFFGtCb29zdExQTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa0xhc3RJbnRlcmVzdEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkBRN1c2VyU3Rha2VkQW1vdW50TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUTdXNlclN0YWtlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsCQBkAgkAZQIFEXRvdGFsU2hhcmVWaXJ0dWFsBRF1c2VyQW1vdW50VmlydHVhbAUTdXNlclN0YWtlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUOa0F2YWlsYWJsZVNXT1AFEWF2YWlsYWJsZUZ1bmRzTmV3CQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRprVXNlclNoYXJlVG9rZW5zTG9ja2VkVHlwZQkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2Zhcm1pbmdUcmVhc3VyZUFkZHIFCnRvVHJlYXN1cmUFBFNXT1AJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQxsb2NrV2F2ZXNGZWUFBHVuaXQFA25pbAFpARN3aXRoZHJhd1NoYXJlVG9rZW5zAgRwb29sGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAJARdjYWxjV2l0aGRyYXdTaGFyZVRva2VucwQFAWkIBQFpBmNhbGxlcgUEcG9vbAUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAFpARt3aXRoZHJhd1NoYXJlVG9rZW5zRnJvbVBvb2wDC2NhbGxlckJ5dGVzBHBvb2wZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAkBC3ZhbHVlT3JFbHNlAgkBCmlzUG9vbENhbGwCBQFpBQRwb29sCQEXY2FsY1dpdGhkcmF3U2hhcmVUb2tlbnMEBQFpCQEHQWRkcmVzcwEFC2NhbGxlckJ5dGVzBQRwb29sBRlzaGFyZVRva2Vuc1dpdGhkcmF3QW1vdW50AWkBBWNsYWltAQRwb29sCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUACQEJY2FsY0NsYWltAwUBaQUEcG9vbAgFAWkGY2FsbGVyAWkBDWNsYWltSW50ZXJuYWwCBHBvb2wGY2FsbGVyCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUACQELdmFsdWVPckVsc2UCCQEKaXNTZWxmQ2FsbAEFAWkJAQljYWxjQ2xhaW0DBQFpBQRwb29sCQEHQWRkcmVzcwEFBmNhbGxlcgFpAQ1jbGFpbUFuZFN0YWtlAQRwb29sCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAtjbGFpbUFtb3VudAoAAUAJAPwHBAUEdGhpcwINY2xhaW1JbnRlcm5hbAkAzAgCBQRwb29sCQDMCAIICAUBaQZjYWxsZXIFYnl0ZXMFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQtjbGFpbUFtb3VudAULY2xhaW1BbW91bnQECnN0YWtlVG9Hb3YJAPwHBAUKZ292QWRkcmVzcwITbG9ja1NXT1BGcm9tRmFybWluZwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRTV09QBQtjbGFpbUFtb3VudAUDbmlsAwkAAAIFCnN0YWtlVG9Hb3YFCnN0YWtlVG9Hb3YFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhjbGFpbUFsbAEFcG9vbHMJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAKAQhjbGFpbUludgIKY2xhaW1Ub3RhbARwb29sBAtjbGFpbUFtb3VudAoAAUAJAPwHBAUEdGhpcwINY2xhaW1JbnRlcm5hbAkAzAgCBQRwb29sCQDMCAIICAUBaQZjYWxsZXIFYnl0ZXMFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQtjbGFpbUFtb3VudAULY2xhaW1BbW91bnQJAGQCBQpjbGFpbVRvdGFsBQtjbGFpbUFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQKY2xhaW1Ub3RhbAoAAiRsBQVwb29scwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIY2xhaW1JbnYCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDYwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AwkAAAIFCmNsYWltVG90YWwAAAkAAgECGVlvdSBoYXZlIDAgYXZhaWxhYmxlIFNXT1AJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQpjbGFpbVRvdGFsBQRTV09QBQNuaWwBaQEQY2xhaW1BbGxBbmRTdGFrZQEFcG9vbHMJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAKAQhjbGFpbUludgIKY2xhaW1Ub3RhbARwb29sBAtjbGFpbUFtb3VudAoAAUAJAPwHBAUEdGhpcwINY2xhaW1JbnRlcm5hbAkAzAgCBQRwb29sCQDMCAIICAUBaQZjYWxsZXIFYnl0ZXMFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQtjbGFpbUFtb3VudAULY2xhaW1BbW91bnQJAGQCBQpjbGFpbVRvdGFsBQtjbGFpbUFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQKY2xhaW1Ub3RhbAoAAiRsBQVwb29scwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIY2xhaW1JbnYCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDYwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AwkAAAIFCmNsYWltVG90YWwAAAkAAgECGVlvdSBoYXZlIDAgYXZhaWxhYmxlIFNXT1AECnN0YWtlVG9Hb3YJAPwHBAUKZ292QWRkcmVzcwITbG9ja1NXT1BGcm9tRmFybWluZwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRTV09QBQpjbGFpbVRvdGFsBQNuaWwDCQAAAgUKc3Rha2VUb0dvdgUKc3Rha2VUb0dvdgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBF3VwZGF0ZVVzZXJCb29zdEludGVyZXN0AgRwb29sBHVzZXIJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQADCQECIT0CCAUBaQZjYWxsZXIFDXZvdGluZ0FkZHJlc3MJAAIBAiNPbmx5IHZvaXRpbmcgY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgQNJHQwMzQ5OTkzNTA5OAkBCWNsYWltQ2FsYwIFBHBvb2wFBHVzZXIEDGZhcm1JbnRlcmVzdAgFDSR0MDM0OTk5MzUwOTgCXzEEDWJvb3N0SW50ZXJlc3QIBQ0kdDAzNDk5OTM1MDk4Al8yBA9ib29zdExQaW50ZXJlc3QIBQ0kdDAzNDk5OTM1MDk4Al8zBAtjbGFpbUFtb3VudAgFDSR0MDM0OTk5MzUwOTgCXzQECnRvVHJlYXN1cmUIBQ0kdDAzNDk5OTM1MDk4Al81BBFhdmFpbGFibGVGdW5kc05ldwkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wFBHVzZXIFC2NsYWltQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRVrRmFybVVzZXJMYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUYa0Jvb3N0TFBVc2VyTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFDmtBdmFpbGFibGVTV09QBRFhdmFpbGFibGVGdW5kc05ldwkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2Zhcm1pbmdUcmVhc3VyZUFkZHIFCnRvVHJlYXN1cmUFBFNXT1AFA25pbAFpAQhzaHV0ZG93bgAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDCQEBIQEFBmFjdGl2ZQkAAgEJAKwCAgIiREFwcCBpcyBhbHJlYWR5IHN1c3BlbmRlZC4gQ2F1c2U6IAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQZrQ2F1c2UCGnRoZSBjYXVzZSB3YXNuJ3Qgc3BlY2lmaWVkCQEHc3VzcGVuZAECD1BhdXNlZCBieSBhZG1pbgFpAQhhY3RpdmF0ZQAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDBQZhY3RpdmUJAAIBAhZEQXBwIGlzIGFscmVhZHkgYWN0aXZlCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBgkAzAgCCQELRGVsZXRlRW50cnkBBQZrQ2F1c2UFA25pbAECdHgBBnZlcmlmeQAEByRtYXRjaDAFAnR4BBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQxhZG1pblB1YktleTEAAQAABBJhZG1pblB1YktleTJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQxhZG1pblB1YktleTIAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQxhZG1pblB1YktleTMAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAAIw963t",
    "height": 3397850,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: ETC5cW9DYnrmRNxy9mD1dNaiUKtjSd4KWzY366ALuDFH
Next: Czt1psrdsHBY1iYFzwJCHkhz7m5vZjab3tY2b1pk7mUH

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let adminPubKey1 = base58'DXDY2itiEcYBtGkVLnkpHtDFyWQUkoLJz79uJ7ECbMrA'
4+let kActive = "active"
55 
6-let adminPubKey2 = base58'E6Wa1SGoktYcjHjsKrvjMiqJY3SWmGKcD8Q5L8kxSPS7'
6+let kActiveGlob = "active_all_contracts"
77 
8-let adminPubKey3 = base58'AZmWJtuy4GeVrMmJH4hfFBRApe1StvhJSk4jcbT6bArQ'
8+let kCause = "shutdown_cause"
99 
10-let keyShareTokensLocked = "_total_share_tokens_locked"
10+let kRewardPoolFractionCurrent = "_current_pool_fraction_reward"
1111 
12-let kShareLimit = "share_limit_on_first_harvest"
12+let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
1313 
14-let keyActive = "active"
14+let kHeightPoolFraction = "_pool_reward_update_height"
1515 
16-let keyCause = "shutdown_cause"
16+let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
1717 
18-let keyRewardPoolFractionCurrent = "_current_pool_fraction_reward"
18+let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
1919 
20-let keyRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
20+let kRewardUpdateHeight = "reward_update_height"
2121 
22-let keyHeightPoolFraction = "_pool_reward_update_height"
22+let kUserShareTokensStaked = "_share_tokens_locked"
2323 
24-let keyTotalRewardPerBlockCurrent = "total_reward_per_block_current"
24+let kUserShareTokensLocked = "_share_tokens_blocked"
2525 
26-let keyTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
26+let kUserShareTokensLockedType = "_share_tokens_blocked_type"
2727 
28-let keyRewardUpdateHeight = "reward_update_height"
28+let kUserShareTokensLockedHeight = "_share_tokens_blocked_height"
2929 
30-let keyLastInterest = "_last_interest"
30+let kUserShareTokensVirtual = "_share_tokens_virtual"
3131 
32-let keyLastInterestHeight = "_last_interest_height"
32+let kShareTotalShareTokens = "_total_share_tokens_locked"
3333 
34-let keyUserShareTokensLocked = "_share_tokens_locked"
34+let kShareTokensVirtual = "_total_share_tokens_virtual"
3535 
36-let keyUserLastInterest = "_last_interest"
36+let kLockParams = "_lock_params"
3737 
38-let keySWOPid = "SWOP_id"
38+let kLockWavesFee = "lock_waves_fee"
3939 
40-let keyUserSWOPClaimedAmount = "_SWOP_claimed_amount"
40+let kPoolBoostCoef = "_boost_coef"
4141 
42-let keyUserSWOPLastClaimedAmount = "_SWOP_last_claimed_amount"
42+let kFarmLastInterest = "_last_interest"
4343 
44-let keyAvailableSWOP = "_available_SWOP"
44+let kFarmUserLastInterest = "_last_interest"
4545 
46-let keyFarmingStartHeight = "farming_start_height"
46+let kBoostLastInterest = "_last_interest_b"
4747 
48-let keyAPY = "apy"
48+let kBoostUserLastInterest = "_last_interest_u_b"
4949 
50-let kPreviousTotalVoteSWOP = "previous_total_vote_SWOP"
50+let kBoostLPLastInterest = "_last_interest_lpb"
5151 
52-let keySwopYearEmission = "swop_year_emission"
52+let kBoostLPUserLastInterest = "_last_interest_u_lpb"
5353 
54-let keyBalancecpmmA = "A_asset_balance"
54+let kLastInterestHeight = "_last_interest_height"
5555 
56-let keyBalancecpmmB = "B_asset_balance"
56+let kSWOPid = "SWOP_id"
5757 
58-let kHarvestPoolActiveVoteStrucVoting = "_harvest_pool_activeVote_struc"
58+let kAvailableSWOP = "_available_SWOP"
5959 
60-let kHarvestUserPoolActiveVoteStrucVoting = "_harvest_user_pool_activeVote_struc"
60+let kSwopYearEmission = "swop_year_emission"
6161 
62-let keyLimitShareFirstHarvest = "share_limit_on_first_harvest"
62+let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
6363 
64-let keyAssetIdA = "A_asset_id"
64+let kPoolVote = "_pool_vote_gSWOP"
6565 
66-let keyAssetIdB = "B_asset_id"
66+let kUserPoolVote = "_user_vote_gSWOP"
6767 
68-let keyFirstHarvestHeight = "first_harvest_height"
68+let kPoolStruc = "_pool_struc"
6969 
70-let keyfirstHarvestCpmm = "first_harvest"
70+let kUserPoolStruc = "_user_pool_struc"
7171 
72-let keyTempPrevSum = "sum_reward_previous"
72+let kHarvestUserPoolVote = "_harvest_user_pool_vote_gSWOP"
7373 
74-let keyTempCurSum = "sum_reward_current"
74+let kFirstHarvestHeight = "first_harvest_height"
7575 
76-let governanceAddress = Address(base58'3PLHVWCqA9DJPDbadUofTohnCULLauiDWhS')
76+let kShareLimitFH = "share_limit_on_first_harvest"
7777 
78-let wallet = Address(base58'3P6J84oH51DzY6xk2mT5TheXRbrCwBMxonp')
78+let kCpmmContract = "cpmm_contract"
7979 
80-let votingAddress = Address(base58'3PQZWxShKGRgBN1qoJw6B4s9YWS9FneZTPg')
80+let kAdminPubKey1 = "admin_pub_1"
8181 
82-let adminIncreaseInterestAddress = Address(base58'3PPupsBVHgDXaRhyMbkTxminzAotp8AMsr6')
82+let kAdminPubKey2 = "admin_pub_2"
8383 
84-let oneWeekInBlock = 10106
84+let kAdminPubKey3 = "admin_pub_3"
85+
86+let kAdminInvokePubKey = "admin_invoke_pub"
87+
88+let kMoneyBoxAddress = "money_box_address"
89+
90+let kVotingAddress = "voting_address"
91+
92+let kGovAddress = "governance_address"
93+
94+let kLPFarmingAddress = "lp_farming"
95+
96+let kFarmingTreasureAddr = "farming_treasure"
97+
98+let oracle = Address(base58'3PEbqViERCoKnmcSULh6n2aiMvUdSQdCsom')
8599 
86100 let totalVoteShare = 10000000000
87101 
88-let scaleValue1 = 10
89-
90-let scaleValue3 = 1000
91-
92-let scaleValue5 = 100000
93-
94-let scaleValue6 = 1000000
95-
96102 let scaleValue8 = 100000000
97103 
98-let scaleValue11 = 100000000000
104+let lockBoostCoefScale = 1000
99105 
100-func strAssetIdA (pool) = getStringValue(pool, keyAssetIdA)
106+let defPoolBoostCoef = 500
101107 
102-
103-func strAssetIdB (pool) = getStringValue(pool, keyAssetIdB)
104-
105-
106-func assetIdA (pool) = if ((strAssetIdA(pool) == "WAVES"))
107-    then unit
108-    else fromBase58String(strAssetIdA(pool))
109-
110-
111-func assetIdB (pool) = if ((strAssetIdB(pool) == "WAVES"))
112-    then unit
113-    else fromBase58String(strAssetIdB(pool))
114-
115-
116-let kBasePeriod = "base_period"
117-
118-let kPeriodLength = "period_length"
119-
120-let kStartHeight = "start_height"
121-
122-let kFirstHarvestHeight = "first_harvest_height"
123-
124-let kDurationFullVotePower = "duration_full_vote_power"
125-
126-let kMinVotePower = "min_vote_power"
127-
128-let basePeriod = valueOrErrorMessage(getInteger(votingAddress, kBasePeriod), "Empty kBasePeriod")
129-
130-let startHeight = valueOrErrorMessage(getInteger(votingAddress, kStartHeight), "Empty kStartHeight")
131-
132-let periodLength = valueOrErrorMessage(getInteger(votingAddress, kPeriodLength), "Empty kPeriodLength")
133-
134-let durationFullVotePower = valueOrErrorMessage(getInteger(votingAddress, kDurationFullVotePower), "Empty kDurationFullVotePower")
135-
136-let minVotePower = valueOrErrorMessage(getInteger(votingAddress, kMinVotePower), "Empty kMinVotePower")
137-
138-let isActive = getBooleanValue(this, keyActive)
139-
140-let currPeriod = (basePeriod + ((height - startHeight) / periodLength))
141-
142-func getLimitToken (pool) = valueOrElse(getIntegerValue(pool, keyLimitShareFirstHarvest), 0)
143-
144-
145-let APY = getIntegerValue(this, keyAPY)
146-
147-let SwopYearEmission = getIntegerValue(this, keySwopYearEmission)
148-
149-func assetNameA (pool) = match assetIdA(pool) {
150-    case id: ByteVector => 
151-        value(assetInfo(id)).name
152-    case waves: Unit => 
153-        "WAVES"
154-    case _ => 
155-        throw("Match error")
108+func getBase58FromOracle (key) = match getString(oracle, key) {
109+    case string: String => 
110+        fromBase58String(string)
111+    case nothing => 
112+        throw((key + "is empty"))
156113 }
157114 
158115 
159-func assetNameB (pool) = match assetIdB(pool) {
160-    case id: ByteVector => 
161-        value(assetInfo(id)).name
162-    case waves: Unit => 
163-        "WAVES"
164-    case _ => 
165-        throw("Match error")
166-}
116+let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
117+
118+let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
119+
120+let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
121+
122+let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
123+
124+let votingAddress = Address(getBase58FromOracle(kVotingAddress))
125+
126+let govAddress = Address(getBase58FromOracle(kGovAddress))
127+
128+let adminInvokePubKey = getBase58FromOracle(kAdminInvokePubKey)
129+
130+let lpFarmingAddress = Address(getBase58FromOracle(kLPFarmingAddress))
131+
132+let farmingTreasureAddr = Address(getBase58FromOracle(kFarmingTreasureAddr))
133+
134+let cpmmContract = Address(getBase58FromOracle(kCpmmContract))
135+
136+let active = getBooleanValue(this, kActive)
137+
138+let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
139+
140+let SWOP = fromBase58String(getStringValue(this, kSWOPid))
141+
142+func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
167143 
168144 
169-let SWOP = fromBase58String(getStringValue(this, keySWOPid))
170-
171-func isFirstHarvest (pool) = valueOrElse(getBoolean(pool, keyfirstHarvestCpmm), false)
145+func getFHShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimitFH), ("No data on the key: " + kShareLimitFH))
172146 
173147 
174-func getHeightFirstHarvest (pool) = valueOrElse(getInteger(pool, keyFirstHarvestHeight), 0)
148+func getTotalShareToken (pool) = valueOrErrorMessage(getInteger(this, (pool + kShareTotalShareTokens)), (("No data on the key: " + pool) + kShareTotalShareTokens))
175149 
176150 
177-func getBalanceA (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmA), ("No data on the key: " + keyBalancecpmmA))
151+func getPoolVoted (pool) = valueOrElse(getInteger(votingAddress, (pool + kPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (pool + kPoolStruc)), ""), "_")[0]), 0))
178152 
179153 
180-func getBalanceB (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmB), ("No data on the key: " + keyBalancecpmmB))
181-
182-
183-func getShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimit), ("No data on the key: " + kShareLimit))
184-
185-
186-func getTotalShareTokenLocked (pool) = valueOrErrorMessage(getInteger(this, (pool + keyShareTokensLocked)), (("No data on the key: " + pool) + keyShareTokensLocked))
154+func getUserPoolVoted (pool,user) = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kUserPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (((user + "_") + pool) + kUserPoolStruc)), ""), "_")[0]), 0))
187155 
188156 
189157 func getShareAssetId (pool) = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
199167 }
200168 
201169 
202-func getAssetInfo (assetId) = match assetId {
203-    case id: ByteVector => 
204-        let stringId = toBase58String(id)
205-        let info = valueOrErrorMessage(assetInfo(id), (("Asset " + stringId) + " doesn't exist"))
206-        $Tuple3(stringId, info.name, info.decimals)
207-    case waves: Unit => 
208-        $Tuple3("WAVES", "WAVES", 8)
209-    case _ => 
210-        throw("Match error")
211-}
212-
213-
214170 func calcScaleValue (assetId1,assetId2) = {
215171     let assetId1Decimals = value(assetInfo(assetId1)).decimals
216172     let assetId2Decimals = value(assetInfo(assetId2)).decimals
219175     }
220176 
221177 
222-func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyAvailableSWOP)), 0)
178+func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + user) + kAvailableSWOP)), 0)
223179 
224180 
225181 func rewardInfo (pool) = {
226-    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(governanceAddress, keyTotalRewardPerBlockCurrent), ((("No data on the key: " + keyTotalRewardPerBlockCurrent) + " at address ") + toString(governanceAddress)))
227-    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(governanceAddress, keyTotalRewardPerBlockPrevious), ((("No data on the key: " + keyTotalRewardPerBlockPrevious) + " at address ") + toString(governanceAddress)))
228-    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(governanceAddress, (pool + keyRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + keyRewardPoolFractionCurrent) + " at address ") + toString(governanceAddress)))
229-    let rewardUpdateHeight = valueOrErrorMessage(getInteger(governanceAddress, keyRewardUpdateHeight), ((("No data on the key: " + keyRewardUpdateHeight) + " at address ") + toString(governanceAddress)))
230-    let poolRewardUpdateHeight = valueOrElse(getInteger(governanceAddress, (pool + keyHeightPoolFraction)), 0)
231-    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(governanceAddress, (pool + keyRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + keyRewardPoolFractionPrevious) + " at address ") + toString(governanceAddress)))
182+    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
183+    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
184+    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
185+    let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
186+    let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
187+    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
232188     let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
233-    let rewardPoolPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
189+    let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
234190     if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
235191         then true
236192         else (rewardPoolPrevious > totalRewardPerBlockPrevious))
240196 
241197 
242198 func getLastInterestInfo (pool) = {
243-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
244-    let lastInterestHeight = valueOrElse(getInteger(this, (pool + keyLastInterestHeight)), height)
245-    $Tuple2(lastInterestHeight, lastInterest)
199+    let farmInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kFarmLastInterest))
200+    let boostInterest = valueOrElse(getInteger(this, (pool + kBoostLastInterest)), 0)
201+    let boostLPInterest = valueOrElse(getInteger(this, (pool + kBoostLPLastInterest)), 0)
202+    let lastInterestHeight = valueOrElse(getInteger(this, (pool + kLastInterestHeight)), height)
203+    $Tuple4(lastInterestHeight, farmInterest, boostInterest, boostLPInterest)
246204     }
247205 
248206 
249-func getUserInterestInfo (pool,userAddress) = {
250-    let userLastInterest = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserLastInterest))
251-    let userShare = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserShareTokensLocked))
252-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
253-    let userLastInterestValue =     match userLastInterest {
254-        case userLastInterest: Int => 
255-            userLastInterest
256-        case _ => 
257-            lastInterest
258-    }
259-    let userShareTokensAmount =     match userShare {
260-        case userShare: Int => 
261-            userShare
262-        case _ => 
263-            0
264-    }
265-    $Tuple2(userLastInterestValue, userShareTokensAmount)
207+func calcFarmRwd (pool,curTotalReward) = {
208+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
209+    fraction(curTotalReward, lockBoostCoefScale, (poolBoostCoef + lockBoostCoefScale))
266210     }
267211 
268212 
269-func calcInterest (lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,lastInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,shareAssetId,scaleValue,pmtAmount) = if ((shareTokenLocked == 0))
270-    then 0
271-    else if ((poolRewardUpdateHeight != 0))
272-        then if (if ((rewardUpdateHeight > height))
273-            then (rewardUpdateHeight == poolRewardUpdateHeight)
274-            else false)
275-            then {
276-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
277-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
278-                }
279-            else if (if ((height > rewardUpdateHeight))
280-                then (rewardUpdateHeight != poolRewardUpdateHeight)
281-                else false)
282-                then {
283-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
284-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
285-                    }
286-                else if (if (if ((height > rewardUpdateHeight))
287-                    then (rewardUpdateHeight == poolRewardUpdateHeight)
288-                    else false)
289-                    then (lastInterestHeight > rewardUpdateHeight)
290-                    else false)
291-                    then {
292-                        let reward = (currentRewardPerBlock * (height - lastInterestHeight))
293-                        (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
294-                        }
295-                    else {
296-                        let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
297-                        let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
298-                        let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
299-                        (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
300-                        }
301-        else if ((rewardUpdateHeight > height))
302-            then {
303-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
304-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
305-                }
306-            else if ((lastInterestHeight > rewardUpdateHeight))
307-                then {
308-                    let reward = (currentRewardPerBlock * (height - lastInterestHeight))
309-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
310-                    }
311-                else {
312-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
313-                    let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
314-                    let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
315-                    (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
316-                    }
317-
318-
319-func claimCalc (pool,caller,pmtAmount) = {
320-    let shareAssetId = getShareAssetId(pool)
321-    let scaleValue = calcScaleValue(SWOP, shareAssetId)
322-    let shareTokenLocked = getTotalShareTokenLocked(pool)
323-    let $t01309013155 = getLastInterestInfo(pool)
324-    let lastInterestHeight = $t01309013155._1
325-    let lastInterest = $t01309013155._2
326-    let $t01316013272 = rewardInfo(pool)
327-    let currentRewardPerBlock = $t01316013272._1
328-    let rewardUpdateHeight = $t01316013272._2
329-    let previousRewardPerBlock = $t01316013272._3
330-    let poolRewardUpdateHeight = $t01316013272._4
331-    let $t01327713356 = getUserInterestInfo(pool, caller)
332-    let userLastInterest = $t01327713356._1
333-    let userShareTokensAmount = $t01327713356._2
334-    let currentInterest = calcInterest(lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, lastInterest, currentRewardPerBlock, shareTokenLocked, previousRewardPerBlock, shareAssetId, scaleValue, pmtAmount)
335-    let claimAmount = fraction(userShareTokensAmount, (currentInterest - userLastInterest), scaleValue)
336-    let userNewInterest = currentInterest
337-    $Tuple4(userNewInterest, currentInterest, claimAmount, userShareTokensAmount)
213+func calcBoostRwd (pool,curTotalReward) = {
214+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
215+    fraction(curTotalReward, poolBoostCoef, (poolBoostCoef + lockBoostCoefScale))
338216     }
339217 
340218 
341-func calculateProtocolReward (pool) = {
342-    let $t01387413939 = getLastInterestInfo(pool)
343-    let lastInterestHeight = $t01387413939._1
344-    let lastInterest = $t01387413939._2
345-    let $t01394414055 = rewardInfo(pool)
346-    let currentRewardPerBlock = $t01394414055._1
347-    let rewardUpdateHeight = $t01394414055._2
348-    let previousRewardPerBlock = $t01394414055._3
349-    let poolRewardUpdateHeight = $t01394414055._4
350-    let shareTokenLocked = getTotalShareTokenLocked(pool)
351-    if (if ((shareTokenLocked == 0))
352-        then (poolRewardUpdateHeight == 0)
353-        else false)
354-        then if ((rewardUpdateHeight > height))
219+func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,boostLpInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = if ((shareTokenLocked == 0))
220+    then $Tuple3(farmInterest, boostInterest, boostLpInterest)
221+    else {
222+        let $t0991411327 = if (if (if ((rewardUpdateHeight > height))
223+            then (rewardUpdateHeight == poolRewardUpdateHeight)
224+            else false)
225+            then true
226+            else if ((height > rewardUpdateHeight))
227+                then (rewardUpdateHeight != poolRewardUpdateHeight)
228+                else false)
355229             then {
356-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
357-                reward
230+                let r = (previousRewardPerBlock * (height - lastInterestHeight))
231+                $Tuple4(r, farmInterest, boostInterest, boostLpInterest)
358232                 }
359-            else if ((lastInterestHeight > rewardUpdateHeight))
233+            else if (if (if ((height > rewardUpdateHeight))
234+                then (rewardUpdateHeight == poolRewardUpdateHeight)
235+                else false)
236+                then (lastInterestHeight > rewardUpdateHeight)
237+                else false)
360238                 then {
361-                    let reward = (currentRewardPerBlock * (height - lastInterestHeight))
362-                    reward
239+                    let r = (currentRewardPerBlock * (height - lastInterestHeight))
240+                    $Tuple4(r, farmInterest, boostInterest, boostLpInterest)
363241                     }
364242                 else {
365-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
366-                    let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
367-                    (reward + rewardAfterLastInterestBeforeReawardUpdate)
243+                    let rwdBfrUpd = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
244+                    let fBfrUp = (farmInterest + fraction(calcFarmRwd(pool, rwdBfrUpd), scaleValue, shareTokenLocked))
245+                    let bBfrUp = (boostInterest + (if ((poolVoted > 0))
246+                        then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, poolVoted)
247+                        else 0))
248+                    let bLPBfrUp = (boostLpInterest + (if ((poolVoted > 0))
249+                        then fraction(fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, shareTokenLocked), scaleValue8, poolVoted)
250+                        else 0))
251+                    let rwd = (currentRewardPerBlock * (height - rewardUpdateHeight))
252+                    $Tuple4(rwd, fBfrUp, bBfrUp, bLPBfrUp)
368253                     }
369-        else if (if ((shareTokenLocked == 0))
370-            then (poolRewardUpdateHeight != 0)
371-            else false)
372-            then if (if ((rewardUpdateHeight > height))
373-                then (rewardUpdateHeight == poolRewardUpdateHeight)
374-                else false)
375-                then {
376-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
377-                    reward
378-                    }
379-                else if (if ((height > rewardUpdateHeight))
380-                    then (rewardUpdateHeight != poolRewardUpdateHeight)
381-                    else false)
382-                    then {
383-                        let reward = (previousRewardPerBlock * (height - lastInterestHeight))
384-                        reward
385-                        }
386-                    else if (if (if ((height > rewardUpdateHeight))
387-                        then (rewardUpdateHeight == poolRewardUpdateHeight)
388-                        else false)
389-                        then (lastInterestHeight > rewardUpdateHeight)
390-                        else false)
391-                        then {
392-                            let reward = (currentRewardPerBlock * (height - lastInterestHeight))
393-                            reward
394-                            }
395-                        else {
396-                            let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
397-                            let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
398-                            (reward + rewardAfterLastInterestBeforeReawardUpdate)
399-                            }
400-            else 0
254+        let reward = $t0991411327._1
255+        let farmIntrBefore = $t0991411327._2
256+        let boostIntrBefore = $t0991411327._3
257+        let boostLPIntrBefore = $t0991411327._4
258+        let newFarmInterest = (farmIntrBefore + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
259+        let newBoostInterest = (boostIntrBefore + (if ((poolVoted > 0))
260+            then fraction(calcBoostRwd(pool, reward), scaleValue8, poolVoted)
261+            else 0))
262+        let newBoostLPInterest = (boostLPIntrBefore + (if ((poolVoted > 0))
263+            then fraction(fraction(calcBoostRwd(pool, reward), scaleValue8, shareTokenLocked), scaleValue8, poolVoted)
264+            else 0))
265+        $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
266+        }
267+
268+
269+func claimCalc (pool,user) = {
270+    let scaleValue = calcScaleValue(SWOP, getShareAssetId(pool))
271+    let poolVoted = getPoolVoted(pool)
272+    let uPoolVoted = getUserPoolVoted(pool, user)
273+    let shareToken = getTotalShareToken(pool)
274+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareToken)
275+    let $t01227612374 = getLastInterestInfo(pool)
276+    let lastInterestHeight = $t01227612374._1
277+    let farmInterest = $t01227612374._2
278+    let boostInterest = $t01227612374._3
279+    let boostLPInterest = $t01227612374._4
280+    let $t01237912493 = rewardInfo(pool)
281+    let currentRewardPerBlock = $t01237912493._1
282+    let rewardUpdateHeight = $t01237912493._2
283+    let previousRewardPerBlock = $t01237912493._3
284+    let poolRewardUpdateHeight = $t01237912493._4
285+    let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
286+    let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), boostInterest)
287+    let uBoostLPInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostLPUserLastInterest)), boostLPInterest)
288+    let uShareTokensStaked = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
289+    let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
290+    let $t01306113454 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, boostLPInterest, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue)
291+    let newFarmInterest = $t01306113454._1
292+    let newBoostInterest = $t01306113454._2
293+    let newBoostLPInterest = $t01306113454._3
294+    let claimFarming = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
295+    let claimBoostingMax = fraction(uPoolVoted, (newBoostInterest - uBoostInterest), scaleValue8)
296+    let mul = fraction(toBigInt(uShareTokensVirt), toBigInt(uPoolVoted), toBigInt(1))
297+    let claimBoosting = toInt(fraction(fraction(mul, toBigInt((newBoostLPInterest - uBoostLPInterest)), toBigInt(scaleValue8)), toBigInt(1), toBigInt(scaleValue8)))
298+    let toTreasury = (claimBoostingMax - claimBoosting)
299+    if ((0 > toTreasury))
300+        then throw("toTreasury < 0")
301+        else $Tuple5(newFarmInterest, newBoostInterest, newBoostLPInterest, (claimFarming + claimBoosting), toTreasury)
401302     }
402303 
403304 
404-func checkPmtAssetIdCorrect (pool,pmtAssetId) = {
405-    let poolShareAssetId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
406-    if ((pmtAssetId == poolShareAssetId))
407-        then true
408-        else false
305+func availableClaimCalcAllByUser (pools,user) = {
306+    func calcAvailable (acc,pool) =     {
307+        let $t01428714316 = acc
308+        let newPools = $t01428714316._1
309+        let amounts = $t01428714316._2
310+        let $t01432514384 = claimCalc(pool, user)
311+        let fi = $t01432514384._1
312+        let bi = $t01432514384._2
313+        let blpi = $t01432514384._3
314+        let claimAmount = $t01432514384._4
315+        let tt = $t01432514384._5
316+        let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
317+        $Tuple2((newPools :+ pool), (amounts :+ availableFund))
318+        }
319+
320+    let $l = pools
321+    let $s = size($l)
322+    let $acc0 = $Tuple2(nil, nil)
323+    func $f0_1 ($a,$i) =     if (($i >= $s))
324+        then $a
325+        else calcAvailable($a, $l[$i])
326+
327+    func $f0_2 ($a,$i) =     if (($i >= $s))
328+        then $a
329+        else throw("List size exceeds 60")
330+
331+    $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)
409332     }
410333 
411334 
412-func getUserSWOPClaimedAmount (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyUserSWOPClaimedAmount)), 0)
335+func canLockInFirstHarvest (pool,user,userShareTokensStaked,pmtAmount,lockType) = if ((getHeightFirstHarvest(pool) > height))
336+    then {
337+        let totalVoteAmount = valueOrElse(getInteger(votingAddress, (pool + kHarvestPoolVote)), 0)
338+        let userVoteAmount = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kHarvestUserPoolVote)), 0)
339+        let FHShareTokenLimit = getFHShareLimitToken(addressFromStringValue(pool))
340+        let FHShareTokenUserLimit = (fraction(FHShareTokenLimit, userVoteAmount, totalVoteAmount) - userShareTokensStaked)
341+        if ((lockType > 0))
342+            then throw("You can't lock shareTokens till first harvest end.")
343+            else if ((userVoteAmount == 0))
344+                then 0
345+                else if ((pmtAmount >= FHShareTokenUserLimit))
346+                    then (pmtAmount - FHShareTokenUserLimit)
347+                    else 0
348+        }
349+    else 0
413350 
414351 
415-func suspend (cause) = [BooleanEntry(keyActive, false), StringEntry(keyCause, cause)]
352+func getLockParams (type) = {
353+    let lockParams = split(valueOrErrorMessage(getString(this, (toString(type) + kLockParams)), ("There are no key for lock type" + toString(type))), "_")
354+    $Tuple2(parseIntValue(lockParams[0]), parseIntValue(lockParams[1]))
355+    }
356+
357+
358+func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
359+
360+
361+func isActive () = if (if (active)
362+    then activeGlob
363+    else false)
364+    then unit
365+    else throw("DApp is inactive at this moment")
366+
367+
368+func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
369+    then unit
370+    else throw("Only admin can call this function")
371+
372+
373+func isPoolCall (i,pool) = if (if ((toString(i.caller) == pool))
374+    then true
375+    else (i.caller == cpmmContract))
376+    then unit
377+    else throw("Only pool can call this function")
378+
379+
380+func isSelfCall (i) = if ((i.caller == this))
381+    then unit
382+    else throw("Only contract itself can call this function")
383+
384+
385+func calcLockShareTokens (i,caller,pool,lockType) = {
386+    let shareAssetId = getShareAssetId(pool)
387+    let user = toString(caller)
388+    let totalShare = getTotalShareToken(pool)
389+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShare)
390+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
391+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
392+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
393+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
394+    let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
395+    let $t01718517237 = getLockParams(lockType)
396+    let lockPeriod = $t01718517237._1
397+    let lockCoef = $t01718517237._2
398+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
399+    if ((i.payments[0].assetId != shareAssetId))
400+        then throw("Wrong sharetoken in payment")
401+        else if ((0 >= i.payments[0].amount))
402+            then throw("Payment amount must be greater than 0")
403+            else if ((0 > lockType))
404+                then throw("lockType must be >= 0")
405+                else {
406+                    let shareTokensChangeOnFH = canLockInFirstHarvest(pool, user, userStakedAmount, i.payments[0].amount, lockType)
407+                    if ((shareTokensChangeOnFH == shareTokensChangeOnFH))
408+                        then {
409+                            let $t01766419598 = if ((lockType == 0))
410+                                then {
411+                                    let userAmountVirtualNew = ((userAmountVirtual + i.payments[0].amount) - shareTokensChangeOnFH)
412+                                    $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))
413+                                    }
414+                                else if (if ((userLockedHeigt == 0))
415+                                    then if (if ((2 > size(i.payments)))
416+                                        then true
417+                                        else (i.payments[1].assetId != unit))
418+                                        then true
419+                                        else (lockWavesFee > i.payments[1].amount)
420+                                    else false)
421+                                    then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
422+                                    else if ((userLockedHeigt > (height + lockPeriod)))
423+                                        then throw("You cannot lock sharetokens for a period less than what you have already locked")
424+                                        else {
425+                                            let userLockedAmountNew = (userLockedAmount + i.payments[0].amount)
426+                                            let userLockedHeigtNew = (height + lockPeriod)
427+                                            let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
428+                                            $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))
429+                                            }
430+                            let lockEntries = $t01766419598._1
431+                            let totalShareNew = $t01766419598._2
432+                            if ((accountBalance(shareAssetId) > totalShareNew))
433+                                then throw("Balance of share-token is lower than totalAmount")
434+                                else {
435+                                    let $t01972319822 = claimCalc(pool, user)
436+                                    let farmInterest = $t01972319822._1
437+                                    let boostInterest = $t01972319822._2
438+                                    let boostLPinterest = $t01972319822._3
439+                                    let claimAmount = $t01972319822._4
440+                                    let toTreasure = $t01972319822._5
441+                                    let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
442+                                    let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
443+                                        then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, totalUserShareTokens], nil)
444+                                        else 0
445+                                    if ((uplp == uplp))
446+                                        then ([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((pool + kShareTotalShareTokens), totalShareNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ lockEntries)
447+                                        else throw("Strict value is not equal to itself.")
448+                                    }
449+                            }
450+                        else throw("Strict value is not equal to itself.")
451+                    }
452+    }
453+
454+
455+func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), {
456+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
457+    let user = toString(caller)
458+    let $t02116721266 = claimCalc(pool, user)
459+    let farmInterest = $t02116721266._1
460+    let boostInterest = $t02116721266._2
461+    let boostLPinterest = $t02116721266._3
462+    let claimAmount = $t02116721266._4
463+    let toTreasure = $t02116721266._5
464+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
465+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
466+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
467+    let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
468+    let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
469+    let totalShareAmount = getTotalShareToken(pool)
470+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
471+    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
472+    let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
473+    let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
474+    if ((shareTokensWithdrawAmount > userStakedAmount))
475+        then throw("Withdraw amount more then user locked amount")
476+        else if ((accountBalance(shareTokensId) > totalShareAmount))
477+            then throw("Balance of share-token is lower than totalAmount")
478+            else {
479+                let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
480+                    then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
481+                    else 0
482+                if ((uplp == uplp))
483+                    then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), 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)]
484+                    else throw("Strict value is not equal to itself.")
485+                }
486+    })
487+
488+
489+func calcClaim (i,pool,caller) = {
490+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
491+    let user = toString(caller)
492+    let shareTokenLocked = getTotalShareToken(pool)
493+    let $t02393224031 = claimCalc(pool, user)
494+    let farmInterest = $t02393224031._1
495+    let boostInterest = $t02393224031._2
496+    let boostLPinterest = $t02393224031._3
497+    let claimAmount = $t02393224031._4
498+    let toTreasure = $t02393224031._5
499+    let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
500+    if ((availableFund == 0))
501+        then throw("You have 0 available SWOP")
502+        else if ((accountBalance(shareTokensId) > shareTokenLocked))
503+            then throw("Balance of share-token is lower than totalAmount")
504+            else {
505+                let uTrans = if ((i.caller != this))
506+                    then [ScriptTransfer(i.caller, availableFund, SWOP)]
507+                    else nil
508+                $Tuple2(([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), 0), Reissue(SWOP, (toTreasure + availableFund), true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ uTrans), availableFund)
509+                }
510+    }
416511 
417512 
418513 @Callable(i)
419-func init (earlyLP) = if (isDefined(getString(this, keySWOPid)))
514+func init (earlyLP) = if (isDefined(getString(this, kSWOPid)))
420515     then throw("SWOP already initialized")
421516     else {
422517         let initAmount = 100000000000000
423518         let SWOPissue = Issue("SWOP", "SWOP protocol token", initAmount, 8, true)
424519         let SWOPid = calculateAssetId(SWOPissue)
425-[BooleanEntry(keyActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(keySWOPid, toBase58String(SWOPid))]
520+[BooleanEntry(kActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(kSWOPid, toBase58String(SWOPid))]
426521         }
427522 
428523 
429524 
430525 @Callable(i)
431-func initPoolShareFarming (pool) = if ((i.caller != this))
432-    then throw("Only the DApp itself can call this function")
433-    else {
434-        let $t01703717140 = rewardInfo(pool)
435-        let currentReward = $t01703717140._1
436-        let rewardUpdateHeight = $t01703717140._2
437-        let previousRewardPerBlock = $t01703717140._3
438-        let poolRewardUpdateHeight = $t01703717140._4
439-[IntegerEntry((pool + keyShareTokensLocked), 0), IntegerEntry((pool + keyLastInterest), 0), IntegerEntry((pool + keyLastInterestHeight), height)]
440-        }
526+func initPoolShareFarming (pool) = valueOrElse(isAdminCall(i), [IntegerEntry((pool + kShareTotalShareTokens), 0), IntegerEntry((pool + kFarmLastInterest), 0), IntegerEntry((pool + kBoostLastInterest), 0), IntegerEntry((pool + kBoostLPLastInterest), 0), IntegerEntry((pool + kLastInterestHeight), height)])
441527 
442528 
443529 
444530 @Callable(i)
445-func updatePoolInterest (pool) = if ((i.caller != wallet))
446-    then throw("Only the Admin itself can call this function")
447-    else if (!(isActive))
448-        then throw("DApp is inactive at this moment")
449-        else {
450-            let $t01754917669 = claimCalc(pool, adminIncreaseInterestAddress, 0)
451-            let userNewInterest = $t01754917669._1
452-            let currentInterest = $t01754917669._2
453-            let claimAmount = $t01754917669._3
454-            let userShareTokensAmount = $t01754917669._4
455-            let $t01767417777 = rewardInfo(pool)
456-            let currentReward = $t01767417777._1
457-            let rewardUpdateHeight = $t01767417777._2
458-            let previousRewardPerBlock = $t01767417777._3
459-            let poolRewardUpdateHeight = $t01767417777._4
460-[IntegerEntry((pool + keyLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterestHeight), height)]
461-            }
531+func updatePoolInterest (pool) = valueOrElse(isActive(), if ((i.caller != govAddress))
532+    then throw("Only Governance can call this function")
533+    else {
534+        let user = toString(addressFromPublicKey(adminInvokePubKey))
535+        let $t02618626260 = claimCalc(pool, user)
536+        let farmInterest = $t02618626260._1
537+        let boostInterest = $t02618626260._2
538+        let boostLPinterest = $t02618626260._3
539+[IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height)]
540+        })
462541 
463542 
464543 
465544 @Callable(i)
466-func fixPoolInterest (poolsStr) = {
467-    let pools = split(poolsStr, ",")
468-    func upInt (acc,pool) =     {
469-        let $t01806918189 = claimCalc(pool, adminIncreaseInterestAddress, 0)
470-        let userNewInterest = $t01806918189._1
471-        let currentInterest = $t01806918189._2
472-        let claimAmount = $t01806918189._3
473-        let userShareTokensAmount = $t01806918189._4
474-        (acc ++ [IntegerEntry((pool + keyLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterestHeight), height)])
475-        }
476-
477-    if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
478-        then throw("Only the Admin can call this function")
479-        else {
480-            let $l = pools
481-            let $s = size($l)
482-            let $acc0 = nil
483-            func $f0_1 ($a,$i) =             if (($i >= $s))
484-                then $a
485-                else upInt($a, $l[$i])
486-
487-            func $f0_2 ($a,$i) =             if (($i >= $s))
488-                then $a
489-                else throw("List size exceeds 50")
490-
491-            $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($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)
492-            }
493-    }
545+func lockShareTokens (pool,lockType) = valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType))
494546 
495547 
496548 
497549 @Callable(i)
498-func lockShareTokens (pool) = {
499-    let $t01857818653 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
500-    let pmtAmount = $t01857818653._1
501-    let pmtAssetId = $t01857818653._2
502-    let $t01865818731 = getAssetInfo(pmtAssetId)
503-    let pmtStrAssetId = $t01865818731._1
504-    let pmtAssetName = $t01865818731._2
505-    let pmtDecimals = $t01865818731._3
506-    let $t01873618844 = claimCalc(pool, i.caller, pmtAmount)
507-    let userNewInterest = $t01873618844._1
508-    let currentInterest = $t01873618844._2
509-    let claimAmount = $t01873618844._3
510-    let userShareTokensAmount = $t01873618844._4
511-    let userShareAmountNew = (userShareTokensAmount + pmtAmount)
512-    let availableFundsNew = (userAvailableSWOP(pool, i.caller) + claimAmount)
513-    let totalShareAmount = getTotalShareTokenLocked(pool)
514-    let totalShareAmountNew = (totalShareAmount + pmtAmount)
515-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
516-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
517-    let baseEntry = [IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPLastClaimedAmount), claimAmount), IntegerEntry((((pool + "_") + toString(i.caller)) + keyAvailableSWOP), availableFundsNew)]
518-    if ((0 >= pmtAmount))
519-        then throw("You can't lock token")
520-        else if (!(isActive))
521-            then throw("DApp is inactive at this moment")
522-            else if (!(checkPmtAssetIdCorrect(pool, pmtAssetId)))
523-                then throw("Incorrect pmtAssetId")
524-                else if (if (isFirstHarvest(Address(fromBase58String(pool))))
525-                    then (getHeightFirstHarvest(Address(fromBase58String(pool))) > height)
526-                    else false)
527-                    then {
528-                        let harvestPeriod = ((((getHeightFirstHarvest(Address(fromBase58String(pool))) - startHeight) + 1) / periodLength) - 1)
529-                        let amountOfVoting = split(getStringValue(votingAddress, (((toString(i.caller) + "_") + pool) + "_user_pool_struc")), "_")
530-                        let amountPoolStract = split(getStringValue(votingAddress, (pool + "_pool_struc")), "_")
531-                        let amountActiveVoteUserPoolStract = split(valueOrElse(getString(votingAddress, (((toString(i.caller) + "_") + pool) + kHarvestUserPoolActiveVoteStrucVoting)), ""), "_")
532-                        let amountPoolActiveVoteStract = split(valueOrElse(getString(votingAddress, (pool + kHarvestPoolActiveVoteStrucVoting)), ""), "_")
533-                        let userShareTokenLocked = userShareTokensAmount
534-                        let userPoolActiveVote = if ((toString(currPeriod) == amountOfVoting[2]))
535-                            then valueOrElse(parseInt(amountActiveVoteUserPoolStract[0]), 0)
536-                            else valueOrElse(parseInt(amountOfVoting[1]), 0)
537-                        let poolActiveVote = if ((toString(currPeriod) == amountPoolStract[2]))
538-                            then valueOrElse(parseInt(amountPoolActiveVoteStract[0]), 0)
539-                            else valueOrElse(parseInt(amountPoolStract[1]), 0)
540-                        let protocolReward = calculateProtocolReward(pool)
541-                        if ((userPoolActiveVote != 0))
542-                            then {
543-                                let limitShareToken = getShareLimitToken(addressFromStringValue(pool))
544-                                let shareToken = (fraction(limitShareToken, userPoolActiveVote, poolActiveVote) - userShareTokenLocked)
545-                                if (if ((size(amountActiveVoteUserPoolStract) > 1))
546-                                    then (valueOrElse(parseInt(amountActiveVoteUserPoolStract[1]), 0) >= harvestPeriod)
547-                                    else false)
548-                                    then throw("You can't share token")
549-                                    else if ((pmtAmount > limitShareToken))
550-                                        then throw(("You can't share token more than " + toString(limitShareToken)))
551-                                        else if ((shareToken > 0))
552-                                            then if ((fraction(99, accountBalance(pmtAssetId), 100) > totalShareAmountNew))
553-                                                then throw("Balance of share-token is greater than totalAmount")
554-                                                else if ((totalShareAmount == 0))
555-                                                    then (baseEntry ++ [Reissue(SWOP, protocolReward, true), ScriptTransfer(wallet, protocolReward, SWOP)])
556-                                                    else if ((shareToken >= pmtAmount))
557-                                                        then baseEntry
558-                                                        else throw(("Your maximum share token is " + toString(shareToken)))
559-                                            else throw("You can't share token")
560-                                }
561-                            else throw("Your amount of token less than 0")
562-                        }
563-                    else baseEntry
564-    }
550+func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType)))
565551 
566552 
567553 
568554 @Callable(i)
569-func withdrawShareTokens (pool,shareTokensWithdrawAmount) = {
570-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
571-    let $t02327523375 = claimCalc(pool, i.caller, 1)
572-    let userNewInterest = $t02327523375._1
573-    let currentInterest = $t02327523375._2
574-    let claimAmount = $t02327523375._3
575-    let userShareTokensAmount = $t02327523375._4
576-    let userShareAmountNew = (userShareTokensAmount - shareTokensWithdrawAmount)
577-    let availableFundsNew = (userAvailableSWOP(pool, i.caller) + claimAmount)
578-    let totalShareAmount = getTotalShareTokenLocked(pool)
579-    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
580-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
581-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
582-    if ((shareTokensWithdrawAmount > userShareTokensAmount))
583-        then throw("Withdraw amount more then user locked amount")
584-        else if (!(isActive))
585-            then throw("DApp is inactive at this moment")
586-            else if ((shareTokensWithdrawAmount > userShareTokensAmount))
587-                then throw("Withdraw amount more then user locked amount")
588-                else if ((fraction(99, (accountBalance(shareTokensId) - shareTokensWithdrawAmount), 100) > totalShareAmountNew))
589-                    then throw("Balance of share-token is greater than totalAmount")
590-                    else [IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyAvailableSWOP), availableFundsNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPLastClaimedAmount), claimAmount), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
591-    }
555+func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isActive(), {
556+    let shareAssetId = getShareAssetId(pool)
557+    let user = toString(i.caller)
558+    let totalShare = getTotalShareToken(pool)
559+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShare)
560+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
561+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
562+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
563+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
564+    let totalUserShareTokens = (userStakedAmount + userLockedAmount)
565+    let $t02774727799 = getLockParams(lockType)
566+    let lockPeriod = $t02774727799._1
567+    let lockCoef = $t02774727799._2
568+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
569+    if ((getHeightFirstHarvest(pool) > height))
570+        then throw("You can't lock shareTokens till first harvest end.")
571+        else if ((0 >= lockType))
572+            then throw("lockType must be > 0")
573+            else if ((lockAmount > userStakedAmount))
574+                then throw(("You can't lock more than " + toString(userStakedAmount)))
575+                else if ((accountBalance(shareAssetId) > totalShare))
576+                    then throw("Balance of share-token is lower than totalAmount")
577+                    else if (if ((userLockedHeigt == 0))
578+                        then if (if ((1 > size(i.payments)))
579+                            then true
580+                            else (i.payments[0].assetId != unit))
581+                            then true
582+                            else (lockWavesFee > i.payments[0].amount)
583+                        else false)
584+                        then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
585+                        else if (if ((userLockedHeigt == 0))
586+                            then (0 >= lockAmount)
587+                            else false)
588+                            then throw("lockAmount must be greater than 0")
589+                            else if ((0 > lockAmount))
590+                                then throw("lockAmount must be positive")
591+                                else if ((userLockedHeigt > (height + lockPeriod)))
592+                                    then throw("You cannot lock sharetokens for a period less than what you have already locked")
593+                                    else {
594+                                        let userLockedAmountNew = (userLockedAmount + lockAmount)
595+                                        let userStakedAmountNew = (userStakedAmount - lockAmount)
596+                                        let userLockedHeigtNew = (height + lockPeriod)
597+                                        let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmountNew)
598+                                        let $t02908929188 = claimCalc(pool, user)
599+                                        let farmInterest = $t02908929188._1
600+                                        let boostInterest = $t02908929188._2
601+                                        let boostLPinterest = $t02908929188._3
602+                                        let claimAmount = $t02908929188._4
603+                                        let toTreasure = $t02908929188._5
604+                                        let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
605+[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 + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
606+                                        }
607+    })
592608 
593609 
594610 
595611 @Callable(i)
596-func claim (pool) = {
597-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
598-    let shareTokenLocked = getTotalShareTokenLocked(pool)
599-    let $t02538225447 = getLastInterestInfo(pool)
600-    let lastInterestHeight = $t02538225447._1
601-    let lastInterest = $t02538225447._2
602-    let $t02545225564 = rewardInfo(pool)
603-    let currentRewardPerBlock = $t02545225564._1
604-    let rewardUpdateHeight = $t02545225564._2
605-    let previousRewardPerBlock = $t02545225564._3
606-    let poolRewardUpdateHeight = $t02545225564._4
607-    let $t02556925669 = claimCalc(pool, i.caller, 1)
608-    let userNewInterest = $t02556925669._1
609-    let currentInterest = $t02556925669._2
610-    let claimAmount = $t02556925669._3
611-    let userShareTokensAmount = $t02556925669._4
612-    let availableFund = (userAvailableSWOP(pool, i.caller) + claimAmount)
613-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
614-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
615-    if ((availableFund == 0))
616-        then throw("You have 0 available SWOP")
617-        else if (!(isActive))
618-            then throw("DApp is inactive at this moment")
619-            else if ((availableFund == 0))
620-                then throw("You have 0 available SWOP")
621-                else if ((fraction(99, accountBalance(shareTokensId), 100) > shareTokenLocked))
622-                    then throw("Balance of share-token is greater than totalAmount")
623-                    else [IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((((pool + "_") + toString(i.caller)) + keyAvailableSWOP), 0), Reissue(SWOP, availableFund, true), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPLastClaimedAmount), claimAmount), ScriptTransfer(i.caller, availableFund, SWOP)]
624-    }
612+func unlockUserLock (pool,user) = valueOrElse(isActive(), {
613+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
614+    let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
615+    let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
616+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
617+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
618+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
619+    if ((userLockedHeigt > height))
620+        then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
621+        else {
622+            let userStakedAmountNew = (userStakedAmount + userLockedAmount)
623+            let $t03141831517 = claimCalc(pool, user)
624+            let farmInterest = $t03141831517._1
625+            let boostInterest = $t03141831517._2
626+            let boostLPinterest = $t03141831517._3
627+            let claimAmount = $t03141831517._4
628+            let toTreasure = $t03141831517._5
629+            let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
630+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), 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)]
631+            }
632+    })
625633 
626634 
627635 
628636 @Callable(i)
629-func shutdown () = if (!(isActive))
630-    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, keyCause), "the cause wasn't specified")))
631-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
632-        then throw("Only admin can call this function")
633-        else suspend("Paused by admin")
637+func withdrawShareTokens (pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), calcWithdrawShareTokens(i, i.caller, pool, shareTokensWithdrawAmount))
634638 
635639 
636640 
637641 @Callable(i)
638-func activate () = if (isActive)
642+func withdrawShareTokensFromPool (callerBytes,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcWithdrawShareTokens(i, Address(callerBytes), pool, shareTokensWithdrawAmount)))
643+
644+
645+
646+@Callable(i)
647+func claim (pool) = valueOrElse(isActive(), calcClaim(i, pool, i.caller))
648+
649+
650+
651+@Callable(i)
652+func claimInternal (pool,caller) = valueOrElse(isActive(), valueOrElse(isSelfCall(i), calcClaim(i, pool, Address(caller))))
653+
654+
655+
656+@Callable(i)
657+func claimAndStake (pool) = valueOrElse(isActive(), {
658+    let claimAmount = {
659+        let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
660+        if ($isInstanceOf(@, "Int"))
661+            then @
662+            else throw(($getType(@) + " couldn't be cast to Int"))
663+        }
664+    if ((claimAmount == claimAmount))
665+        then {
666+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimAmount)])
667+            if ((stakeToGov == stakeToGov))
668+                then nil
669+                else throw("Strict value is not equal to itself.")
670+            }
671+        else throw("Strict value is not equal to itself.")
672+    })
673+
674+
675+
676+@Callable(i)
677+func claimAll (pools) = valueOrElse(isActive(), {
678+    func claimInv (claimTotal,pool) =     {
679+        let claimAmount = {
680+            let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
681+            if ($isInstanceOf(@, "Int"))
682+                then @
683+                else throw(($getType(@) + " couldn't be cast to Int"))
684+            }
685+        if ((claimAmount == claimAmount))
686+            then (claimTotal + claimAmount)
687+            else throw("Strict value is not equal to itself.")
688+        }
689+
690+    let claimTotal = {
691+        let $l = pools
692+        let $s = size($l)
693+        let $acc0 = 0
694+        func $f0_1 ($a,$i) =         if (($i >= $s))
695+            then $a
696+            else claimInv($a, $l[$i])
697+
698+        func $f0_2 ($a,$i) =         if (($i >= $s))
699+            then $a
700+            else throw("List size exceeds 60")
701+
702+        $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)
703+        }
704+    if ((claimTotal == 0))
705+        then throw("You have 0 available SWOP")
706+        else [ScriptTransfer(i.caller, claimTotal, SWOP)]
707+    })
708+
709+
710+
711+@Callable(i)
712+func claimAllAndStake (pools) = valueOrElse(isActive(), {
713+    func claimInv (claimTotal,pool) =     {
714+        let claimAmount = {
715+            let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
716+            if ($isInstanceOf(@, "Int"))
717+                then @
718+                else throw(($getType(@) + " couldn't be cast to Int"))
719+            }
720+        if ((claimAmount == claimAmount))
721+            then (claimTotal + claimAmount)
722+            else throw("Strict value is not equal to itself.")
723+        }
724+
725+    let claimTotal = {
726+        let $l = pools
727+        let $s = size($l)
728+        let $acc0 = 0
729+        func $f0_1 ($a,$i) =         if (($i >= $s))
730+            then $a
731+            else claimInv($a, $l[$i])
732+
733+        func $f0_2 ($a,$i) =         if (($i >= $s))
734+            then $a
735+            else throw("List size exceeds 60")
736+
737+        $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)
738+        }
739+    if ((claimTotal == 0))
740+        then throw("You have 0 available SWOP")
741+        else {
742+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimTotal)])
743+            if ((stakeToGov == stakeToGov))
744+                then nil
745+                else throw("Strict value is not equal to itself.")
746+            }
747+    })
748+
749+
750+
751+@Callable(i)
752+func updateUserBoostInterest (pool,user) = valueOrElse(isActive(), if ((i.caller != votingAddress))
753+    then throw("Only voiting can call this function")
754+    else {
755+        let $t03499935098 = claimCalc(pool, user)
756+        let farmInterest = $t03499935098._1
757+        let boostInterest = $t03499935098._2
758+        let boostLPinterest = $t03499935098._3
759+        let claimAmount = $t03499935098._4
760+        let toTreasure = $t03499935098._5
761+        let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
762+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
763+        })
764+
765+
766+
767+@Callable(i)
768+func shutdown () = valueOrElse(isAdminCall(i), if (!(active))
769+    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
770+    else suspend("Paused by admin"))
771+
772+
773+
774+@Callable(i)
775+func activate () = valueOrElse(isAdminCall(i), if (active)
639776     then throw("DApp is already active")
640-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
641-        then throw("Only admin can call this function")
642-        else [BooleanEntry(keyActive, true), DeleteEntry(keyCause)]
777+    else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
643778 
644779 
645780 @Verifier(tx)

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let adminPubKey1 = base58'DXDY2itiEcYBtGkVLnkpHtDFyWQUkoLJz79uJ7ECbMrA'
4+let kActive = "active"
55 
6-let adminPubKey2 = base58'E6Wa1SGoktYcjHjsKrvjMiqJY3SWmGKcD8Q5L8kxSPS7'
6+let kActiveGlob = "active_all_contracts"
77 
8-let adminPubKey3 = base58'AZmWJtuy4GeVrMmJH4hfFBRApe1StvhJSk4jcbT6bArQ'
8+let kCause = "shutdown_cause"
99 
10-let keyShareTokensLocked = "_total_share_tokens_locked"
10+let kRewardPoolFractionCurrent = "_current_pool_fraction_reward"
1111 
12-let kShareLimit = "share_limit_on_first_harvest"
12+let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
1313 
14-let keyActive = "active"
14+let kHeightPoolFraction = "_pool_reward_update_height"
1515 
16-let keyCause = "shutdown_cause"
16+let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
1717 
18-let keyRewardPoolFractionCurrent = "_current_pool_fraction_reward"
18+let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
1919 
20-let keyRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
20+let kRewardUpdateHeight = "reward_update_height"
2121 
22-let keyHeightPoolFraction = "_pool_reward_update_height"
22+let kUserShareTokensStaked = "_share_tokens_locked"
2323 
24-let keyTotalRewardPerBlockCurrent = "total_reward_per_block_current"
24+let kUserShareTokensLocked = "_share_tokens_blocked"
2525 
26-let keyTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
26+let kUserShareTokensLockedType = "_share_tokens_blocked_type"
2727 
28-let keyRewardUpdateHeight = "reward_update_height"
28+let kUserShareTokensLockedHeight = "_share_tokens_blocked_height"
2929 
30-let keyLastInterest = "_last_interest"
30+let kUserShareTokensVirtual = "_share_tokens_virtual"
3131 
32-let keyLastInterestHeight = "_last_interest_height"
32+let kShareTotalShareTokens = "_total_share_tokens_locked"
3333 
34-let keyUserShareTokensLocked = "_share_tokens_locked"
34+let kShareTokensVirtual = "_total_share_tokens_virtual"
3535 
36-let keyUserLastInterest = "_last_interest"
36+let kLockParams = "_lock_params"
3737 
38-let keySWOPid = "SWOP_id"
38+let kLockWavesFee = "lock_waves_fee"
3939 
40-let keyUserSWOPClaimedAmount = "_SWOP_claimed_amount"
40+let kPoolBoostCoef = "_boost_coef"
4141 
42-let keyUserSWOPLastClaimedAmount = "_SWOP_last_claimed_amount"
42+let kFarmLastInterest = "_last_interest"
4343 
44-let keyAvailableSWOP = "_available_SWOP"
44+let kFarmUserLastInterest = "_last_interest"
4545 
46-let keyFarmingStartHeight = "farming_start_height"
46+let kBoostLastInterest = "_last_interest_b"
4747 
48-let keyAPY = "apy"
48+let kBoostUserLastInterest = "_last_interest_u_b"
4949 
50-let kPreviousTotalVoteSWOP = "previous_total_vote_SWOP"
50+let kBoostLPLastInterest = "_last_interest_lpb"
5151 
52-let keySwopYearEmission = "swop_year_emission"
52+let kBoostLPUserLastInterest = "_last_interest_u_lpb"
5353 
54-let keyBalancecpmmA = "A_asset_balance"
54+let kLastInterestHeight = "_last_interest_height"
5555 
56-let keyBalancecpmmB = "B_asset_balance"
56+let kSWOPid = "SWOP_id"
5757 
58-let kHarvestPoolActiveVoteStrucVoting = "_harvest_pool_activeVote_struc"
58+let kAvailableSWOP = "_available_SWOP"
5959 
60-let kHarvestUserPoolActiveVoteStrucVoting = "_harvest_user_pool_activeVote_struc"
60+let kSwopYearEmission = "swop_year_emission"
6161 
62-let keyLimitShareFirstHarvest = "share_limit_on_first_harvest"
62+let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
6363 
64-let keyAssetIdA = "A_asset_id"
64+let kPoolVote = "_pool_vote_gSWOP"
6565 
66-let keyAssetIdB = "B_asset_id"
66+let kUserPoolVote = "_user_vote_gSWOP"
6767 
68-let keyFirstHarvestHeight = "first_harvest_height"
68+let kPoolStruc = "_pool_struc"
6969 
70-let keyfirstHarvestCpmm = "first_harvest"
70+let kUserPoolStruc = "_user_pool_struc"
7171 
72-let keyTempPrevSum = "sum_reward_previous"
72+let kHarvestUserPoolVote = "_harvest_user_pool_vote_gSWOP"
7373 
74-let keyTempCurSum = "sum_reward_current"
74+let kFirstHarvestHeight = "first_harvest_height"
7575 
76-let governanceAddress = Address(base58'3PLHVWCqA9DJPDbadUofTohnCULLauiDWhS')
76+let kShareLimitFH = "share_limit_on_first_harvest"
7777 
78-let wallet = Address(base58'3P6J84oH51DzY6xk2mT5TheXRbrCwBMxonp')
78+let kCpmmContract = "cpmm_contract"
7979 
80-let votingAddress = Address(base58'3PQZWxShKGRgBN1qoJw6B4s9YWS9FneZTPg')
80+let kAdminPubKey1 = "admin_pub_1"
8181 
82-let adminIncreaseInterestAddress = Address(base58'3PPupsBVHgDXaRhyMbkTxminzAotp8AMsr6')
82+let kAdminPubKey2 = "admin_pub_2"
8383 
84-let oneWeekInBlock = 10106
84+let kAdminPubKey3 = "admin_pub_3"
85+
86+let kAdminInvokePubKey = "admin_invoke_pub"
87+
88+let kMoneyBoxAddress = "money_box_address"
89+
90+let kVotingAddress = "voting_address"
91+
92+let kGovAddress = "governance_address"
93+
94+let kLPFarmingAddress = "lp_farming"
95+
96+let kFarmingTreasureAddr = "farming_treasure"
97+
98+let oracle = Address(base58'3PEbqViERCoKnmcSULh6n2aiMvUdSQdCsom')
8599 
86100 let totalVoteShare = 10000000000
87101 
88-let scaleValue1 = 10
89-
90-let scaleValue3 = 1000
91-
92-let scaleValue5 = 100000
93-
94-let scaleValue6 = 1000000
95-
96102 let scaleValue8 = 100000000
97103 
98-let scaleValue11 = 100000000000
104+let lockBoostCoefScale = 1000
99105 
100-func strAssetIdA (pool) = getStringValue(pool, keyAssetIdA)
106+let defPoolBoostCoef = 500
101107 
102-
103-func strAssetIdB (pool) = getStringValue(pool, keyAssetIdB)
104-
105-
106-func assetIdA (pool) = if ((strAssetIdA(pool) == "WAVES"))
107-    then unit
108-    else fromBase58String(strAssetIdA(pool))
109-
110-
111-func assetIdB (pool) = if ((strAssetIdB(pool) == "WAVES"))
112-    then unit
113-    else fromBase58String(strAssetIdB(pool))
114-
115-
116-let kBasePeriod = "base_period"
117-
118-let kPeriodLength = "period_length"
119-
120-let kStartHeight = "start_height"
121-
122-let kFirstHarvestHeight = "first_harvest_height"
123-
124-let kDurationFullVotePower = "duration_full_vote_power"
125-
126-let kMinVotePower = "min_vote_power"
127-
128-let basePeriod = valueOrErrorMessage(getInteger(votingAddress, kBasePeriod), "Empty kBasePeriod")
129-
130-let startHeight = valueOrErrorMessage(getInteger(votingAddress, kStartHeight), "Empty kStartHeight")
131-
132-let periodLength = valueOrErrorMessage(getInteger(votingAddress, kPeriodLength), "Empty kPeriodLength")
133-
134-let durationFullVotePower = valueOrErrorMessage(getInteger(votingAddress, kDurationFullVotePower), "Empty kDurationFullVotePower")
135-
136-let minVotePower = valueOrErrorMessage(getInteger(votingAddress, kMinVotePower), "Empty kMinVotePower")
137-
138-let isActive = getBooleanValue(this, keyActive)
139-
140-let currPeriod = (basePeriod + ((height - startHeight) / periodLength))
141-
142-func getLimitToken (pool) = valueOrElse(getIntegerValue(pool, keyLimitShareFirstHarvest), 0)
143-
144-
145-let APY = getIntegerValue(this, keyAPY)
146-
147-let SwopYearEmission = getIntegerValue(this, keySwopYearEmission)
148-
149-func assetNameA (pool) = match assetIdA(pool) {
150-    case id: ByteVector => 
151-        value(assetInfo(id)).name
152-    case waves: Unit => 
153-        "WAVES"
154-    case _ => 
155-        throw("Match error")
108+func getBase58FromOracle (key) = match getString(oracle, key) {
109+    case string: String => 
110+        fromBase58String(string)
111+    case nothing => 
112+        throw((key + "is empty"))
156113 }
157114 
158115 
159-func assetNameB (pool) = match assetIdB(pool) {
160-    case id: ByteVector => 
161-        value(assetInfo(id)).name
162-    case waves: Unit => 
163-        "WAVES"
164-    case _ => 
165-        throw("Match error")
166-}
116+let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
117+
118+let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
119+
120+let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
121+
122+let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
123+
124+let votingAddress = Address(getBase58FromOracle(kVotingAddress))
125+
126+let govAddress = Address(getBase58FromOracle(kGovAddress))
127+
128+let adminInvokePubKey = getBase58FromOracle(kAdminInvokePubKey)
129+
130+let lpFarmingAddress = Address(getBase58FromOracle(kLPFarmingAddress))
131+
132+let farmingTreasureAddr = Address(getBase58FromOracle(kFarmingTreasureAddr))
133+
134+let cpmmContract = Address(getBase58FromOracle(kCpmmContract))
135+
136+let active = getBooleanValue(this, kActive)
137+
138+let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
139+
140+let SWOP = fromBase58String(getStringValue(this, kSWOPid))
141+
142+func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
167143 
168144 
169-let SWOP = fromBase58String(getStringValue(this, keySWOPid))
170-
171-func isFirstHarvest (pool) = valueOrElse(getBoolean(pool, keyfirstHarvestCpmm), false)
145+func getFHShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimitFH), ("No data on the key: " + kShareLimitFH))
172146 
173147 
174-func getHeightFirstHarvest (pool) = valueOrElse(getInteger(pool, keyFirstHarvestHeight), 0)
148+func getTotalShareToken (pool) = valueOrErrorMessage(getInteger(this, (pool + kShareTotalShareTokens)), (("No data on the key: " + pool) + kShareTotalShareTokens))
175149 
176150 
177-func getBalanceA (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmA), ("No data on the key: " + keyBalancecpmmA))
151+func getPoolVoted (pool) = valueOrElse(getInteger(votingAddress, (pool + kPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (pool + kPoolStruc)), ""), "_")[0]), 0))
178152 
179153 
180-func getBalanceB (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmB), ("No data on the key: " + keyBalancecpmmB))
181-
182-
183-func getShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimit), ("No data on the key: " + kShareLimit))
184-
185-
186-func getTotalShareTokenLocked (pool) = valueOrErrorMessage(getInteger(this, (pool + keyShareTokensLocked)), (("No data on the key: " + pool) + keyShareTokensLocked))
154+func getUserPoolVoted (pool,user) = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kUserPoolVote)), valueOrElse(parseInt(split(valueOrElse(getString(votingAddress, (((user + "_") + pool) + kUserPoolStruc)), ""), "_")[0]), 0))
187155 
188156 
189157 func getShareAssetId (pool) = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
190158 
191159 
192160 func accountBalance (assetId) = match assetId {
193161     case id: ByteVector => 
194162         assetBalance(this, id)
195163     case waves: Unit => 
196164         wavesBalance(this).available
197165     case _ => 
198166         throw("Match error")
199167 }
200168 
201169 
202-func getAssetInfo (assetId) = match assetId {
203-    case id: ByteVector => 
204-        let stringId = toBase58String(id)
205-        let info = valueOrErrorMessage(assetInfo(id), (("Asset " + stringId) + " doesn't exist"))
206-        $Tuple3(stringId, info.name, info.decimals)
207-    case waves: Unit => 
208-        $Tuple3("WAVES", "WAVES", 8)
209-    case _ => 
210-        throw("Match error")
211-}
212-
213-
214170 func calcScaleValue (assetId1,assetId2) = {
215171     let assetId1Decimals = value(assetInfo(assetId1)).decimals
216172     let assetId2Decimals = value(assetInfo(assetId2)).decimals
217173     let scaleDigits = ((assetId2Decimals - assetId1Decimals) + 8)
218174     pow(10, 0, scaleDigits, 0, 0, DOWN)
219175     }
220176 
221177 
222-func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyAvailableSWOP)), 0)
178+func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + user) + kAvailableSWOP)), 0)
223179 
224180 
225181 func rewardInfo (pool) = {
226-    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(governanceAddress, keyTotalRewardPerBlockCurrent), ((("No data on the key: " + keyTotalRewardPerBlockCurrent) + " at address ") + toString(governanceAddress)))
227-    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(governanceAddress, keyTotalRewardPerBlockPrevious), ((("No data on the key: " + keyTotalRewardPerBlockPrevious) + " at address ") + toString(governanceAddress)))
228-    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(governanceAddress, (pool + keyRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + keyRewardPoolFractionCurrent) + " at address ") + toString(governanceAddress)))
229-    let rewardUpdateHeight = valueOrErrorMessage(getInteger(governanceAddress, keyRewardUpdateHeight), ((("No data on the key: " + keyRewardUpdateHeight) + " at address ") + toString(governanceAddress)))
230-    let poolRewardUpdateHeight = valueOrElse(getInteger(governanceAddress, (pool + keyHeightPoolFraction)), 0)
231-    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(governanceAddress, (pool + keyRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + keyRewardPoolFractionPrevious) + " at address ") + toString(governanceAddress)))
182+    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
183+    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
184+    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
185+    let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
186+    let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
187+    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
232188     let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
233-    let rewardPoolPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
189+    let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
234190     if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
235191         then true
236192         else (rewardPoolPrevious > totalRewardPerBlockPrevious))
237193         then throw("rewardPoolCurrent > totalRewardPerBlockCurrent or rewardPoolPrevious > totalRewardPerBlockPrevious")
238194         else $Tuple4(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight)
239195     }
240196 
241197 
242198 func getLastInterestInfo (pool) = {
243-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
244-    let lastInterestHeight = valueOrElse(getInteger(this, (pool + keyLastInterestHeight)), height)
245-    $Tuple2(lastInterestHeight, lastInterest)
199+    let farmInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kFarmLastInterest))
200+    let boostInterest = valueOrElse(getInteger(this, (pool + kBoostLastInterest)), 0)
201+    let boostLPInterest = valueOrElse(getInteger(this, (pool + kBoostLPLastInterest)), 0)
202+    let lastInterestHeight = valueOrElse(getInteger(this, (pool + kLastInterestHeight)), height)
203+    $Tuple4(lastInterestHeight, farmInterest, boostInterest, boostLPInterest)
246204     }
247205 
248206 
249-func getUserInterestInfo (pool,userAddress) = {
250-    let userLastInterest = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserLastInterest))
251-    let userShare = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserShareTokensLocked))
252-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
253-    let userLastInterestValue =     match userLastInterest {
254-        case userLastInterest: Int => 
255-            userLastInterest
256-        case _ => 
257-            lastInterest
258-    }
259-    let userShareTokensAmount =     match userShare {
260-        case userShare: Int => 
261-            userShare
262-        case _ => 
263-            0
264-    }
265-    $Tuple2(userLastInterestValue, userShareTokensAmount)
207+func calcFarmRwd (pool,curTotalReward) = {
208+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
209+    fraction(curTotalReward, lockBoostCoefScale, (poolBoostCoef + lockBoostCoefScale))
266210     }
267211 
268212 
269-func calcInterest (lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,lastInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,shareAssetId,scaleValue,pmtAmount) = if ((shareTokenLocked == 0))
270-    then 0
271-    else if ((poolRewardUpdateHeight != 0))
272-        then if (if ((rewardUpdateHeight > height))
273-            then (rewardUpdateHeight == poolRewardUpdateHeight)
274-            else false)
275-            then {
276-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
277-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
278-                }
279-            else if (if ((height > rewardUpdateHeight))
280-                then (rewardUpdateHeight != poolRewardUpdateHeight)
281-                else false)
282-                then {
283-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
284-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
285-                    }
286-                else if (if (if ((height > rewardUpdateHeight))
287-                    then (rewardUpdateHeight == poolRewardUpdateHeight)
288-                    else false)
289-                    then (lastInterestHeight > rewardUpdateHeight)
290-                    else false)
291-                    then {
292-                        let reward = (currentRewardPerBlock * (height - lastInterestHeight))
293-                        (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
294-                        }
295-                    else {
296-                        let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
297-                        let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
298-                        let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
299-                        (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
300-                        }
301-        else if ((rewardUpdateHeight > height))
302-            then {
303-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
304-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
305-                }
306-            else if ((lastInterestHeight > rewardUpdateHeight))
307-                then {
308-                    let reward = (currentRewardPerBlock * (height - lastInterestHeight))
309-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
310-                    }
311-                else {
312-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
313-                    let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
314-                    let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
315-                    (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
316-                    }
317-
318-
319-func claimCalc (pool,caller,pmtAmount) = {
320-    let shareAssetId = getShareAssetId(pool)
321-    let scaleValue = calcScaleValue(SWOP, shareAssetId)
322-    let shareTokenLocked = getTotalShareTokenLocked(pool)
323-    let $t01309013155 = getLastInterestInfo(pool)
324-    let lastInterestHeight = $t01309013155._1
325-    let lastInterest = $t01309013155._2
326-    let $t01316013272 = rewardInfo(pool)
327-    let currentRewardPerBlock = $t01316013272._1
328-    let rewardUpdateHeight = $t01316013272._2
329-    let previousRewardPerBlock = $t01316013272._3
330-    let poolRewardUpdateHeight = $t01316013272._4
331-    let $t01327713356 = getUserInterestInfo(pool, caller)
332-    let userLastInterest = $t01327713356._1
333-    let userShareTokensAmount = $t01327713356._2
334-    let currentInterest = calcInterest(lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, lastInterest, currentRewardPerBlock, shareTokenLocked, previousRewardPerBlock, shareAssetId, scaleValue, pmtAmount)
335-    let claimAmount = fraction(userShareTokensAmount, (currentInterest - userLastInterest), scaleValue)
336-    let userNewInterest = currentInterest
337-    $Tuple4(userNewInterest, currentInterest, claimAmount, userShareTokensAmount)
213+func calcBoostRwd (pool,curTotalReward) = {
214+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
215+    fraction(curTotalReward, poolBoostCoef, (poolBoostCoef + lockBoostCoefScale))
338216     }
339217 
340218 
341-func calculateProtocolReward (pool) = {
342-    let $t01387413939 = getLastInterestInfo(pool)
343-    let lastInterestHeight = $t01387413939._1
344-    let lastInterest = $t01387413939._2
345-    let $t01394414055 = rewardInfo(pool)
346-    let currentRewardPerBlock = $t01394414055._1
347-    let rewardUpdateHeight = $t01394414055._2
348-    let previousRewardPerBlock = $t01394414055._3
349-    let poolRewardUpdateHeight = $t01394414055._4
350-    let shareTokenLocked = getTotalShareTokenLocked(pool)
351-    if (if ((shareTokenLocked == 0))
352-        then (poolRewardUpdateHeight == 0)
353-        else false)
354-        then if ((rewardUpdateHeight > height))
219+func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,boostLpInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = if ((shareTokenLocked == 0))
220+    then $Tuple3(farmInterest, boostInterest, boostLpInterest)
221+    else {
222+        let $t0991411327 = if (if (if ((rewardUpdateHeight > height))
223+            then (rewardUpdateHeight == poolRewardUpdateHeight)
224+            else false)
225+            then true
226+            else if ((height > rewardUpdateHeight))
227+                then (rewardUpdateHeight != poolRewardUpdateHeight)
228+                else false)
355229             then {
356-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
357-                reward
230+                let r = (previousRewardPerBlock * (height - lastInterestHeight))
231+                $Tuple4(r, farmInterest, boostInterest, boostLpInterest)
358232                 }
359-            else if ((lastInterestHeight > rewardUpdateHeight))
233+            else if (if (if ((height > rewardUpdateHeight))
234+                then (rewardUpdateHeight == poolRewardUpdateHeight)
235+                else false)
236+                then (lastInterestHeight > rewardUpdateHeight)
237+                else false)
360238                 then {
361-                    let reward = (currentRewardPerBlock * (height - lastInterestHeight))
362-                    reward
239+                    let r = (currentRewardPerBlock * (height - lastInterestHeight))
240+                    $Tuple4(r, farmInterest, boostInterest, boostLpInterest)
363241                     }
364242                 else {
365-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
366-                    let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
367-                    (reward + rewardAfterLastInterestBeforeReawardUpdate)
243+                    let rwdBfrUpd = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
244+                    let fBfrUp = (farmInterest + fraction(calcFarmRwd(pool, rwdBfrUpd), scaleValue, shareTokenLocked))
245+                    let bBfrUp = (boostInterest + (if ((poolVoted > 0))
246+                        then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, poolVoted)
247+                        else 0))
248+                    let bLPBfrUp = (boostLpInterest + (if ((poolVoted > 0))
249+                        then fraction(fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue8, shareTokenLocked), scaleValue8, poolVoted)
250+                        else 0))
251+                    let rwd = (currentRewardPerBlock * (height - rewardUpdateHeight))
252+                    $Tuple4(rwd, fBfrUp, bBfrUp, bLPBfrUp)
368253                     }
369-        else if (if ((shareTokenLocked == 0))
370-            then (poolRewardUpdateHeight != 0)
371-            else false)
372-            then if (if ((rewardUpdateHeight > height))
373-                then (rewardUpdateHeight == poolRewardUpdateHeight)
374-                else false)
375-                then {
376-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
377-                    reward
378-                    }
379-                else if (if ((height > rewardUpdateHeight))
380-                    then (rewardUpdateHeight != poolRewardUpdateHeight)
381-                    else false)
382-                    then {
383-                        let reward = (previousRewardPerBlock * (height - lastInterestHeight))
384-                        reward
385-                        }
386-                    else if (if (if ((height > rewardUpdateHeight))
387-                        then (rewardUpdateHeight == poolRewardUpdateHeight)
388-                        else false)
389-                        then (lastInterestHeight > rewardUpdateHeight)
390-                        else false)
391-                        then {
392-                            let reward = (currentRewardPerBlock * (height - lastInterestHeight))
393-                            reward
394-                            }
395-                        else {
396-                            let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
397-                            let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
398-                            (reward + rewardAfterLastInterestBeforeReawardUpdate)
399-                            }
400-            else 0
254+        let reward = $t0991411327._1
255+        let farmIntrBefore = $t0991411327._2
256+        let boostIntrBefore = $t0991411327._3
257+        let boostLPIntrBefore = $t0991411327._4
258+        let newFarmInterest = (farmIntrBefore + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
259+        let newBoostInterest = (boostIntrBefore + (if ((poolVoted > 0))
260+            then fraction(calcBoostRwd(pool, reward), scaleValue8, poolVoted)
261+            else 0))
262+        let newBoostLPInterest = (boostLPIntrBefore + (if ((poolVoted > 0))
263+            then fraction(fraction(calcBoostRwd(pool, reward), scaleValue8, shareTokenLocked), scaleValue8, poolVoted)
264+            else 0))
265+        $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
266+        }
267+
268+
269+func claimCalc (pool,user) = {
270+    let scaleValue = calcScaleValue(SWOP, getShareAssetId(pool))
271+    let poolVoted = getPoolVoted(pool)
272+    let uPoolVoted = getUserPoolVoted(pool, user)
273+    let shareToken = getTotalShareToken(pool)
274+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareToken)
275+    let $t01227612374 = getLastInterestInfo(pool)
276+    let lastInterestHeight = $t01227612374._1
277+    let farmInterest = $t01227612374._2
278+    let boostInterest = $t01227612374._3
279+    let boostLPInterest = $t01227612374._4
280+    let $t01237912493 = rewardInfo(pool)
281+    let currentRewardPerBlock = $t01237912493._1
282+    let rewardUpdateHeight = $t01237912493._2
283+    let previousRewardPerBlock = $t01237912493._3
284+    let poolRewardUpdateHeight = $t01237912493._4
285+    let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
286+    let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), boostInterest)
287+    let uBoostLPInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostLPUserLastInterest)), boostLPInterest)
288+    let uShareTokensStaked = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
289+    let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
290+    let $t01306113454 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, boostLPInterest, currentRewardPerBlock, totalShareVirtual, previousRewardPerBlock, scaleValue)
291+    let newFarmInterest = $t01306113454._1
292+    let newBoostInterest = $t01306113454._2
293+    let newBoostLPInterest = $t01306113454._3
294+    let claimFarming = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
295+    let claimBoostingMax = fraction(uPoolVoted, (newBoostInterest - uBoostInterest), scaleValue8)
296+    let mul = fraction(toBigInt(uShareTokensVirt), toBigInt(uPoolVoted), toBigInt(1))
297+    let claimBoosting = toInt(fraction(fraction(mul, toBigInt((newBoostLPInterest - uBoostLPInterest)), toBigInt(scaleValue8)), toBigInt(1), toBigInt(scaleValue8)))
298+    let toTreasury = (claimBoostingMax - claimBoosting)
299+    if ((0 > toTreasury))
300+        then throw("toTreasury < 0")
301+        else $Tuple5(newFarmInterest, newBoostInterest, newBoostLPInterest, (claimFarming + claimBoosting), toTreasury)
401302     }
402303 
403304 
404-func checkPmtAssetIdCorrect (pool,pmtAssetId) = {
405-    let poolShareAssetId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
406-    if ((pmtAssetId == poolShareAssetId))
407-        then true
408-        else false
305+func availableClaimCalcAllByUser (pools,user) = {
306+    func calcAvailable (acc,pool) =     {
307+        let $t01428714316 = acc
308+        let newPools = $t01428714316._1
309+        let amounts = $t01428714316._2
310+        let $t01432514384 = claimCalc(pool, user)
311+        let fi = $t01432514384._1
312+        let bi = $t01432514384._2
313+        let blpi = $t01432514384._3
314+        let claimAmount = $t01432514384._4
315+        let tt = $t01432514384._5
316+        let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
317+        $Tuple2((newPools :+ pool), (amounts :+ availableFund))
318+        }
319+
320+    let $l = pools
321+    let $s = size($l)
322+    let $acc0 = $Tuple2(nil, nil)
323+    func $f0_1 ($a,$i) =     if (($i >= $s))
324+        then $a
325+        else calcAvailable($a, $l[$i])
326+
327+    func $f0_2 ($a,$i) =     if (($i >= $s))
328+        then $a
329+        else throw("List size exceeds 60")
330+
331+    $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)
409332     }
410333 
411334 
412-func getUserSWOPClaimedAmount (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyUserSWOPClaimedAmount)), 0)
335+func canLockInFirstHarvest (pool,user,userShareTokensStaked,pmtAmount,lockType) = if ((getHeightFirstHarvest(pool) > height))
336+    then {
337+        let totalVoteAmount = valueOrElse(getInteger(votingAddress, (pool + kHarvestPoolVote)), 0)
338+        let userVoteAmount = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kHarvestUserPoolVote)), 0)
339+        let FHShareTokenLimit = getFHShareLimitToken(addressFromStringValue(pool))
340+        let FHShareTokenUserLimit = (fraction(FHShareTokenLimit, userVoteAmount, totalVoteAmount) - userShareTokensStaked)
341+        if ((lockType > 0))
342+            then throw("You can't lock shareTokens till first harvest end.")
343+            else if ((userVoteAmount == 0))
344+                then 0
345+                else if ((pmtAmount >= FHShareTokenUserLimit))
346+                    then (pmtAmount - FHShareTokenUserLimit)
347+                    else 0
348+        }
349+    else 0
413350 
414351 
415-func suspend (cause) = [BooleanEntry(keyActive, false), StringEntry(keyCause, cause)]
352+func getLockParams (type) = {
353+    let lockParams = split(valueOrErrorMessage(getString(this, (toString(type) + kLockParams)), ("There are no key for lock type" + toString(type))), "_")
354+    $Tuple2(parseIntValue(lockParams[0]), parseIntValue(lockParams[1]))
355+    }
356+
357+
358+func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
359+
360+
361+func isActive () = if (if (active)
362+    then activeGlob
363+    else false)
364+    then unit
365+    else throw("DApp is inactive at this moment")
366+
367+
368+func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
369+    then unit
370+    else throw("Only admin can call this function")
371+
372+
373+func isPoolCall (i,pool) = if (if ((toString(i.caller) == pool))
374+    then true
375+    else (i.caller == cpmmContract))
376+    then unit
377+    else throw("Only pool can call this function")
378+
379+
380+func isSelfCall (i) = if ((i.caller == this))
381+    then unit
382+    else throw("Only contract itself can call this function")
383+
384+
385+func calcLockShareTokens (i,caller,pool,lockType) = {
386+    let shareAssetId = getShareAssetId(pool)
387+    let user = toString(caller)
388+    let totalShare = getTotalShareToken(pool)
389+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShare)
390+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
391+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
392+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
393+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
394+    let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
395+    let $t01718517237 = getLockParams(lockType)
396+    let lockPeriod = $t01718517237._1
397+    let lockCoef = $t01718517237._2
398+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
399+    if ((i.payments[0].assetId != shareAssetId))
400+        then throw("Wrong sharetoken in payment")
401+        else if ((0 >= i.payments[0].amount))
402+            then throw("Payment amount must be greater than 0")
403+            else if ((0 > lockType))
404+                then throw("lockType must be >= 0")
405+                else {
406+                    let shareTokensChangeOnFH = canLockInFirstHarvest(pool, user, userStakedAmount, i.payments[0].amount, lockType)
407+                    if ((shareTokensChangeOnFH == shareTokensChangeOnFH))
408+                        then {
409+                            let $t01766419598 = if ((lockType == 0))
410+                                then {
411+                                    let userAmountVirtualNew = ((userAmountVirtual + i.payments[0].amount) - shareTokensChangeOnFH)
412+                                    $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))
413+                                    }
414+                                else if (if ((userLockedHeigt == 0))
415+                                    then if (if ((2 > size(i.payments)))
416+                                        then true
417+                                        else (i.payments[1].assetId != unit))
418+                                        then true
419+                                        else (lockWavesFee > i.payments[1].amount)
420+                                    else false)
421+                                    then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
422+                                    else if ((userLockedHeigt > (height + lockPeriod)))
423+                                        then throw("You cannot lock sharetokens for a period less than what you have already locked")
424+                                        else {
425+                                            let userLockedAmountNew = (userLockedAmount + i.payments[0].amount)
426+                                            let userLockedHeigtNew = (height + lockPeriod)
427+                                            let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
428+                                            $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))
429+                                            }
430+                            let lockEntries = $t01766419598._1
431+                            let totalShareNew = $t01766419598._2
432+                            if ((accountBalance(shareAssetId) > totalShareNew))
433+                                then throw("Balance of share-token is lower than totalAmount")
434+                                else {
435+                                    let $t01972319822 = claimCalc(pool, user)
436+                                    let farmInterest = $t01972319822._1
437+                                    let boostInterest = $t01972319822._2
438+                                    let boostLPinterest = $t01972319822._3
439+                                    let claimAmount = $t01972319822._4
440+                                    let toTreasure = $t01972319822._5
441+                                    let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
442+                                    let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
443+                                        then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, totalUserShareTokens], nil)
444+                                        else 0
445+                                    if ((uplp == uplp))
446+                                        then ([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((pool + kShareTotalShareTokens), totalShareNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ lockEntries)
447+                                        else throw("Strict value is not equal to itself.")
448+                                    }
449+                            }
450+                        else throw("Strict value is not equal to itself.")
451+                    }
452+    }
453+
454+
455+func calcWithdrawShareTokens (i,caller,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), {
456+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
457+    let user = toString(caller)
458+    let $t02116721266 = claimCalc(pool, user)
459+    let farmInterest = $t02116721266._1
460+    let boostInterest = $t02116721266._2
461+    let boostLPinterest = $t02116721266._3
462+    let claimAmount = $t02116721266._4
463+    let toTreasure = $t02116721266._5
464+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
465+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
466+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
467+    let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
468+    let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
469+    let totalShareAmount = getTotalShareToken(pool)
470+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareAmount)
471+    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
472+    let totalShareVirtualNew = (totalShareVirtual - shareTokensWithdrawAmount)
473+    let userAmountVirtualNew = (userAmountVirtual - shareTokensWithdrawAmount)
474+    if ((shareTokensWithdrawAmount > userStakedAmount))
475+        then throw("Withdraw amount more then user locked amount")
476+        else if ((accountBalance(shareTokensId) > totalShareAmount))
477+            then throw("Balance of share-token is lower than totalAmount")
478+            else {
479+                let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
480+                    then invoke(lpFarmingAddress, "updateUserInterest", [user, pool, (userStakedAmount + userLockedAmount)], nil)
481+                    else 0
482+                if ((uplp == uplp))
483+                    then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), 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)]
484+                    else throw("Strict value is not equal to itself.")
485+                }
486+    })
487+
488+
489+func calcClaim (i,pool,caller) = {
490+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
491+    let user = toString(caller)
492+    let shareTokenLocked = getTotalShareToken(pool)
493+    let $t02393224031 = claimCalc(pool, user)
494+    let farmInterest = $t02393224031._1
495+    let boostInterest = $t02393224031._2
496+    let boostLPinterest = $t02393224031._3
497+    let claimAmount = $t02393224031._4
498+    let toTreasure = $t02393224031._5
499+    let availableFund = (userAvailableSWOP(pool, user) + claimAmount)
500+    if ((availableFund == 0))
501+        then throw("You have 0 available SWOP")
502+        else if ((accountBalance(shareTokensId) > shareTokenLocked))
503+            then throw("Balance of share-token is lower than totalAmount")
504+            else {
505+                let uTrans = if ((i.caller != this))
506+                    then [ScriptTransfer(i.caller, availableFund, SWOP)]
507+                    else nil
508+                $Tuple2(([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), 0), Reissue(SWOP, (toTreasure + availableFund), true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)] ++ uTrans), availableFund)
509+                }
510+    }
416511 
417512 
418513 @Callable(i)
419-func init (earlyLP) = if (isDefined(getString(this, keySWOPid)))
514+func init (earlyLP) = if (isDefined(getString(this, kSWOPid)))
420515     then throw("SWOP already initialized")
421516     else {
422517         let initAmount = 100000000000000
423518         let SWOPissue = Issue("SWOP", "SWOP protocol token", initAmount, 8, true)
424519         let SWOPid = calculateAssetId(SWOPissue)
425-[BooleanEntry(keyActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(keySWOPid, toBase58String(SWOPid))]
520+[BooleanEntry(kActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(kSWOPid, toBase58String(SWOPid))]
426521         }
427522 
428523 
429524 
430525 @Callable(i)
431-func initPoolShareFarming (pool) = if ((i.caller != this))
432-    then throw("Only the DApp itself can call this function")
433-    else {
434-        let $t01703717140 = rewardInfo(pool)
435-        let currentReward = $t01703717140._1
436-        let rewardUpdateHeight = $t01703717140._2
437-        let previousRewardPerBlock = $t01703717140._3
438-        let poolRewardUpdateHeight = $t01703717140._4
439-[IntegerEntry((pool + keyShareTokensLocked), 0), IntegerEntry((pool + keyLastInterest), 0), IntegerEntry((pool + keyLastInterestHeight), height)]
440-        }
526+func initPoolShareFarming (pool) = valueOrElse(isAdminCall(i), [IntegerEntry((pool + kShareTotalShareTokens), 0), IntegerEntry((pool + kFarmLastInterest), 0), IntegerEntry((pool + kBoostLastInterest), 0), IntegerEntry((pool + kBoostLPLastInterest), 0), IntegerEntry((pool + kLastInterestHeight), height)])
441527 
442528 
443529 
444530 @Callable(i)
445-func updatePoolInterest (pool) = if ((i.caller != wallet))
446-    then throw("Only the Admin itself can call this function")
447-    else if (!(isActive))
448-        then throw("DApp is inactive at this moment")
449-        else {
450-            let $t01754917669 = claimCalc(pool, adminIncreaseInterestAddress, 0)
451-            let userNewInterest = $t01754917669._1
452-            let currentInterest = $t01754917669._2
453-            let claimAmount = $t01754917669._3
454-            let userShareTokensAmount = $t01754917669._4
455-            let $t01767417777 = rewardInfo(pool)
456-            let currentReward = $t01767417777._1
457-            let rewardUpdateHeight = $t01767417777._2
458-            let previousRewardPerBlock = $t01767417777._3
459-            let poolRewardUpdateHeight = $t01767417777._4
460-[IntegerEntry((pool + keyLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterestHeight), height)]
461-            }
531+func updatePoolInterest (pool) = valueOrElse(isActive(), if ((i.caller != govAddress))
532+    then throw("Only Governance can call this function")
533+    else {
534+        let user = toString(addressFromPublicKey(adminInvokePubKey))
535+        let $t02618626260 = claimCalc(pool, user)
536+        let farmInterest = $t02618626260._1
537+        let boostInterest = $t02618626260._2
538+        let boostLPinterest = $t02618626260._3
539+[IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height)]
540+        })
462541 
463542 
464543 
465544 @Callable(i)
466-func fixPoolInterest (poolsStr) = {
467-    let pools = split(poolsStr, ",")
468-    func upInt (acc,pool) =     {
469-        let $t01806918189 = claimCalc(pool, adminIncreaseInterestAddress, 0)
470-        let userNewInterest = $t01806918189._1
471-        let currentInterest = $t01806918189._2
472-        let claimAmount = $t01806918189._3
473-        let userShareTokensAmount = $t01806918189._4
474-        (acc ++ [IntegerEntry((pool + keyLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterestHeight), height)])
475-        }
476-
477-    if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
478-        then throw("Only the Admin can call this function")
479-        else {
480-            let $l = pools
481-            let $s = size($l)
482-            let $acc0 = nil
483-            func $f0_1 ($a,$i) =             if (($i >= $s))
484-                then $a
485-                else upInt($a, $l[$i])
486-
487-            func $f0_2 ($a,$i) =             if (($i >= $s))
488-                then $a
489-                else throw("List size exceeds 50")
490-
491-            $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($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)
492-            }
493-    }
545+func lockShareTokens (pool,lockType) = valueOrElse(isActive(), calcLockShareTokens(i, i.caller, pool, lockType))
494546 
495547 
496548 
497549 @Callable(i)
498-func lockShareTokens (pool) = {
499-    let $t01857818653 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
500-    let pmtAmount = $t01857818653._1
501-    let pmtAssetId = $t01857818653._2
502-    let $t01865818731 = getAssetInfo(pmtAssetId)
503-    let pmtStrAssetId = $t01865818731._1
504-    let pmtAssetName = $t01865818731._2
505-    let pmtDecimals = $t01865818731._3
506-    let $t01873618844 = claimCalc(pool, i.caller, pmtAmount)
507-    let userNewInterest = $t01873618844._1
508-    let currentInterest = $t01873618844._2
509-    let claimAmount = $t01873618844._3
510-    let userShareTokensAmount = $t01873618844._4
511-    let userShareAmountNew = (userShareTokensAmount + pmtAmount)
512-    let availableFundsNew = (userAvailableSWOP(pool, i.caller) + claimAmount)
513-    let totalShareAmount = getTotalShareTokenLocked(pool)
514-    let totalShareAmountNew = (totalShareAmount + pmtAmount)
515-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
516-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
517-    let baseEntry = [IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPLastClaimedAmount), claimAmount), IntegerEntry((((pool + "_") + toString(i.caller)) + keyAvailableSWOP), availableFundsNew)]
518-    if ((0 >= pmtAmount))
519-        then throw("You can't lock token")
520-        else if (!(isActive))
521-            then throw("DApp is inactive at this moment")
522-            else if (!(checkPmtAssetIdCorrect(pool, pmtAssetId)))
523-                then throw("Incorrect pmtAssetId")
524-                else if (if (isFirstHarvest(Address(fromBase58String(pool))))
525-                    then (getHeightFirstHarvest(Address(fromBase58String(pool))) > height)
526-                    else false)
527-                    then {
528-                        let harvestPeriod = ((((getHeightFirstHarvest(Address(fromBase58String(pool))) - startHeight) + 1) / periodLength) - 1)
529-                        let amountOfVoting = split(getStringValue(votingAddress, (((toString(i.caller) + "_") + pool) + "_user_pool_struc")), "_")
530-                        let amountPoolStract = split(getStringValue(votingAddress, (pool + "_pool_struc")), "_")
531-                        let amountActiveVoteUserPoolStract = split(valueOrElse(getString(votingAddress, (((toString(i.caller) + "_") + pool) + kHarvestUserPoolActiveVoteStrucVoting)), ""), "_")
532-                        let amountPoolActiveVoteStract = split(valueOrElse(getString(votingAddress, (pool + kHarvestPoolActiveVoteStrucVoting)), ""), "_")
533-                        let userShareTokenLocked = userShareTokensAmount
534-                        let userPoolActiveVote = if ((toString(currPeriod) == amountOfVoting[2]))
535-                            then valueOrElse(parseInt(amountActiveVoteUserPoolStract[0]), 0)
536-                            else valueOrElse(parseInt(amountOfVoting[1]), 0)
537-                        let poolActiveVote = if ((toString(currPeriod) == amountPoolStract[2]))
538-                            then valueOrElse(parseInt(amountPoolActiveVoteStract[0]), 0)
539-                            else valueOrElse(parseInt(amountPoolStract[1]), 0)
540-                        let protocolReward = calculateProtocolReward(pool)
541-                        if ((userPoolActiveVote != 0))
542-                            then {
543-                                let limitShareToken = getShareLimitToken(addressFromStringValue(pool))
544-                                let shareToken = (fraction(limitShareToken, userPoolActiveVote, poolActiveVote) - userShareTokenLocked)
545-                                if (if ((size(amountActiveVoteUserPoolStract) > 1))
546-                                    then (valueOrElse(parseInt(amountActiveVoteUserPoolStract[1]), 0) >= harvestPeriod)
547-                                    else false)
548-                                    then throw("You can't share token")
549-                                    else if ((pmtAmount > limitShareToken))
550-                                        then throw(("You can't share token more than " + toString(limitShareToken)))
551-                                        else if ((shareToken > 0))
552-                                            then if ((fraction(99, accountBalance(pmtAssetId), 100) > totalShareAmountNew))
553-                                                then throw("Balance of share-token is greater than totalAmount")
554-                                                else if ((totalShareAmount == 0))
555-                                                    then (baseEntry ++ [Reissue(SWOP, protocolReward, true), ScriptTransfer(wallet, protocolReward, SWOP)])
556-                                                    else if ((shareToken >= pmtAmount))
557-                                                        then baseEntry
558-                                                        else throw(("Your maximum share token is " + toString(shareToken)))
559-                                            else throw("You can't share token")
560-                                }
561-                            else throw("Your amount of token less than 0")
562-                        }
563-                    else baseEntry
564-    }
550+func lockShareTokensFromPool (callerBytes,pool,lockType) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcLockShareTokens(i, Address(callerBytes), pool, lockType)))
565551 
566552 
567553 
568554 @Callable(i)
569-func withdrawShareTokens (pool,shareTokensWithdrawAmount) = {
570-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
571-    let $t02327523375 = claimCalc(pool, i.caller, 1)
572-    let userNewInterest = $t02327523375._1
573-    let currentInterest = $t02327523375._2
574-    let claimAmount = $t02327523375._3
575-    let userShareTokensAmount = $t02327523375._4
576-    let userShareAmountNew = (userShareTokensAmount - shareTokensWithdrawAmount)
577-    let availableFundsNew = (userAvailableSWOP(pool, i.caller) + claimAmount)
578-    let totalShareAmount = getTotalShareTokenLocked(pool)
579-    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
580-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
581-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
582-    if ((shareTokensWithdrawAmount > userShareTokensAmount))
583-        then throw("Withdraw amount more then user locked amount")
584-        else if (!(isActive))
585-            then throw("DApp is inactive at this moment")
586-            else if ((shareTokensWithdrawAmount > userShareTokensAmount))
587-                then throw("Withdraw amount more then user locked amount")
588-                else if ((fraction(99, (accountBalance(shareTokensId) - shareTokensWithdrawAmount), 100) > totalShareAmountNew))
589-                    then throw("Balance of share-token is greater than totalAmount")
590-                    else [IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyAvailableSWOP), availableFundsNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPLastClaimedAmount), claimAmount), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
591-    }
555+func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isActive(), {
556+    let shareAssetId = getShareAssetId(pool)
557+    let user = toString(i.caller)
558+    let totalShare = getTotalShareToken(pool)
559+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShare)
560+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
561+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
562+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
563+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
564+    let totalUserShareTokens = (userStakedAmount + userLockedAmount)
565+    let $t02774727799 = getLockParams(lockType)
566+    let lockPeriod = $t02774727799._1
567+    let lockCoef = $t02774727799._2
568+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
569+    if ((getHeightFirstHarvest(pool) > height))
570+        then throw("You can't lock shareTokens till first harvest end.")
571+        else if ((0 >= lockType))
572+            then throw("lockType must be > 0")
573+            else if ((lockAmount > userStakedAmount))
574+                then throw(("You can't lock more than " + toString(userStakedAmount)))
575+                else if ((accountBalance(shareAssetId) > totalShare))
576+                    then throw("Balance of share-token is lower than totalAmount")
577+                    else if (if ((userLockedHeigt == 0))
578+                        then if (if ((1 > size(i.payments)))
579+                            then true
580+                            else (i.payments[0].assetId != unit))
581+                            then true
582+                            else (lockWavesFee > i.payments[0].amount)
583+                        else false)
584+                        then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
585+                        else if (if ((userLockedHeigt == 0))
586+                            then (0 >= lockAmount)
587+                            else false)
588+                            then throw("lockAmount must be greater than 0")
589+                            else if ((0 > lockAmount))
590+                                then throw("lockAmount must be positive")
591+                                else if ((userLockedHeigt > (height + lockPeriod)))
592+                                    then throw("You cannot lock sharetokens for a period less than what you have already locked")
593+                                    else {
594+                                        let userLockedAmountNew = (userLockedAmount + lockAmount)
595+                                        let userStakedAmountNew = (userStakedAmount - lockAmount)
596+                                        let userLockedHeigtNew = (height + lockPeriod)
597+                                        let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmountNew)
598+                                        let $t02908929188 = claimCalc(pool, user)
599+                                        let farmInterest = $t02908929188._1
600+                                        let boostInterest = $t02908929188._2
601+                                        let boostLPinterest = $t02908929188._3
602+                                        let claimAmount = $t02908929188._4
603+                                        let toTreasure = $t02908929188._5
604+                                        let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
605+[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 + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
606+                                        }
607+    })
592608 
593609 
594610 
595611 @Callable(i)
596-func claim (pool) = {
597-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
598-    let shareTokenLocked = getTotalShareTokenLocked(pool)
599-    let $t02538225447 = getLastInterestInfo(pool)
600-    let lastInterestHeight = $t02538225447._1
601-    let lastInterest = $t02538225447._2
602-    let $t02545225564 = rewardInfo(pool)
603-    let currentRewardPerBlock = $t02545225564._1
604-    let rewardUpdateHeight = $t02545225564._2
605-    let previousRewardPerBlock = $t02545225564._3
606-    let poolRewardUpdateHeight = $t02545225564._4
607-    let $t02556925669 = claimCalc(pool, i.caller, 1)
608-    let userNewInterest = $t02556925669._1
609-    let currentInterest = $t02556925669._2
610-    let claimAmount = $t02556925669._3
611-    let userShareTokensAmount = $t02556925669._4
612-    let availableFund = (userAvailableSWOP(pool, i.caller) + claimAmount)
613-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
614-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
615-    if ((availableFund == 0))
616-        then throw("You have 0 available SWOP")
617-        else if (!(isActive))
618-            then throw("DApp is inactive at this moment")
619-            else if ((availableFund == 0))
620-                then throw("You have 0 available SWOP")
621-                else if ((fraction(99, accountBalance(shareTokensId), 100) > shareTokenLocked))
622-                    then throw("Balance of share-token is greater than totalAmount")
623-                    else [IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((((pool + "_") + toString(i.caller)) + keyAvailableSWOP), 0), Reissue(SWOP, availableFund, true), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.caller)) + keyUserSWOPLastClaimedAmount), claimAmount), ScriptTransfer(i.caller, availableFund, SWOP)]
624-    }
612+func unlockUserLock (pool,user) = valueOrElse(isActive(), {
613+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
614+    let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
615+    let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
616+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
617+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
618+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
619+    if ((userLockedHeigt > height))
620+        then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
621+        else {
622+            let userStakedAmountNew = (userStakedAmount + userLockedAmount)
623+            let $t03141831517 = claimCalc(pool, user)
624+            let farmInterest = $t03141831517._1
625+            let boostInterest = $t03141831517._2
626+            let boostLPinterest = $t03141831517._3
627+            let claimAmount = $t03141831517._4
628+            let toTreasure = $t03141831517._5
629+            let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
630+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), 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)]
631+            }
632+    })
625633 
626634 
627635 
628636 @Callable(i)
629-func shutdown () = if (!(isActive))
630-    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, keyCause), "the cause wasn't specified")))
631-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
632-        then throw("Only admin can call this function")
633-        else suspend("Paused by admin")
637+func withdrawShareTokens (pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), calcWithdrawShareTokens(i, i.caller, pool, shareTokensWithdrawAmount))
634638 
635639 
636640 
637641 @Callable(i)
638-func activate () = if (isActive)
642+func withdrawShareTokensFromPool (callerBytes,pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), valueOrElse(isPoolCall(i, pool), calcWithdrawShareTokens(i, Address(callerBytes), pool, shareTokensWithdrawAmount)))
643+
644+
645+
646+@Callable(i)
647+func claim (pool) = valueOrElse(isActive(), calcClaim(i, pool, i.caller))
648+
649+
650+
651+@Callable(i)
652+func claimInternal (pool,caller) = valueOrElse(isActive(), valueOrElse(isSelfCall(i), calcClaim(i, pool, Address(caller))))
653+
654+
655+
656+@Callable(i)
657+func claimAndStake (pool) = valueOrElse(isActive(), {
658+    let claimAmount = {
659+        let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
660+        if ($isInstanceOf(@, "Int"))
661+            then @
662+            else throw(($getType(@) + " couldn't be cast to Int"))
663+        }
664+    if ((claimAmount == claimAmount))
665+        then {
666+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimAmount)])
667+            if ((stakeToGov == stakeToGov))
668+                then nil
669+                else throw("Strict value is not equal to itself.")
670+            }
671+        else throw("Strict value is not equal to itself.")
672+    })
673+
674+
675+
676+@Callable(i)
677+func claimAll (pools) = valueOrElse(isActive(), {
678+    func claimInv (claimTotal,pool) =     {
679+        let claimAmount = {
680+            let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
681+            if ($isInstanceOf(@, "Int"))
682+                then @
683+                else throw(($getType(@) + " couldn't be cast to Int"))
684+            }
685+        if ((claimAmount == claimAmount))
686+            then (claimTotal + claimAmount)
687+            else throw("Strict value is not equal to itself.")
688+        }
689+
690+    let claimTotal = {
691+        let $l = pools
692+        let $s = size($l)
693+        let $acc0 = 0
694+        func $f0_1 ($a,$i) =         if (($i >= $s))
695+            then $a
696+            else claimInv($a, $l[$i])
697+
698+        func $f0_2 ($a,$i) =         if (($i >= $s))
699+            then $a
700+            else throw("List size exceeds 60")
701+
702+        $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)
703+        }
704+    if ((claimTotal == 0))
705+        then throw("You have 0 available SWOP")
706+        else [ScriptTransfer(i.caller, claimTotal, SWOP)]
707+    })
708+
709+
710+
711+@Callable(i)
712+func claimAllAndStake (pools) = valueOrElse(isActive(), {
713+    func claimInv (claimTotal,pool) =     {
714+        let claimAmount = {
715+            let @ = invoke(this, "claimInternal", [pool, i.caller.bytes], nil)
716+            if ($isInstanceOf(@, "Int"))
717+                then @
718+                else throw(($getType(@) + " couldn't be cast to Int"))
719+            }
720+        if ((claimAmount == claimAmount))
721+            then (claimTotal + claimAmount)
722+            else throw("Strict value is not equal to itself.")
723+        }
724+
725+    let claimTotal = {
726+        let $l = pools
727+        let $s = size($l)
728+        let $acc0 = 0
729+        func $f0_1 ($a,$i) =         if (($i >= $s))
730+            then $a
731+            else claimInv($a, $l[$i])
732+
733+        func $f0_2 ($a,$i) =         if (($i >= $s))
734+            then $a
735+            else throw("List size exceeds 60")
736+
737+        $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)
738+        }
739+    if ((claimTotal == 0))
740+        then throw("You have 0 available SWOP")
741+        else {
742+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimTotal)])
743+            if ((stakeToGov == stakeToGov))
744+                then nil
745+                else throw("Strict value is not equal to itself.")
746+            }
747+    })
748+
749+
750+
751+@Callable(i)
752+func updateUserBoostInterest (pool,user) = valueOrElse(isActive(), if ((i.caller != votingAddress))
753+    then throw("Only voiting can call this function")
754+    else {
755+        let $t03499935098 = claimCalc(pool, user)
756+        let farmInterest = $t03499935098._1
757+        let boostInterest = $t03499935098._2
758+        let boostLPinterest = $t03499935098._3
759+        let claimAmount = $t03499935098._4
760+        let toTreasure = $t03499935098._5
761+        let availableFundsNew = (userAvailableSWOP(pool, user) + claimAmount)
762+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPUserLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(farmingTreasureAddr, toTreasure, SWOP)]
763+        })
764+
765+
766+
767+@Callable(i)
768+func shutdown () = valueOrElse(isAdminCall(i), if (!(active))
769+    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
770+    else suspend("Paused by admin"))
771+
772+
773+
774+@Callable(i)
775+func activate () = valueOrElse(isAdminCall(i), if (active)
639776     then throw("DApp is already active")
640-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
641-        then throw("Only admin can call this function")
642-        else [BooleanEntry(keyActive, true), DeleteEntry(keyCause)]
777+    else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
643778 
644779 
645780 @Verifier(tx)
646781 func verify () = match tx {
647782     case _ => 
648783         let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
649784             then 1
650785             else 0
651786         let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
652787             then 1
653788             else 0
654789         let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
655790             then 1
656791             else 0
657792         (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
658793 }
659794 
github/deemru/w8io/3ef1775 
156.10 ms ◑