tx · 4G6GZo7sucHyRPB4SLjmriLKDCARZMbA3eZLdqa1QdyS

3MsXpzisJAwnzUr7XrEoW1BZo4U6rw4tsYK:  -0.14000000 Waves

2022.10.18 17:24 [2277953] smart account 3MsXpzisJAwnzUr7XrEoW1BZo4U6rw4tsYK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4G6GZo7sucHyRPB4SLjmriLKDCARZMbA3eZLdqa1QdyS",
    "fee": 14000000,
    "feeAssetId": null,
    "timestamp": 1666103036465,
    "version": 2,
    "chainId": 84,
    "sender": "3MsXpzisJAwnzUr7XrEoW1BZo4U6rw4tsYK",
    "senderPublicKey": "FFdBua5rzzMkZebvsvmN7sAdU7XhFK8QNJ3hiwwxAYRA",
    "proofs": [
        "4xkTMK5N3KMAy1C9MzYQQd6GYzKkwUs71xB5hdmPPDkZf9JwsHWyrsCgkZExDhtqmfLoy42DQC3nSA85F4N6AJVz",
        "2A8vtUpG4pgpMSxk4Ktt5ttJfbo6F42mwYxA53LqwrrDk2UrsSprkTPw4CGyA6sY9e9Rvjb4htzUugVsvfJs41bS"
    ],
    "script": "base64:BgJICAISAwoBCBIDCgEIEgMKAQgSBAoCCAESBQoDCAEBEgQKAggIEgQKAggBEgMKAQgSAwoBCBIDCgEYEgMKARgSBAoCCAgSABIAWAAHa0FjdGl2ZQIGYWN0aXZlAAZrQ2F1c2UCDnNodXRkb3duX2NhdXNlABprUmV3YXJkUG9vbEZyYWN0aW9uQ3VycmVudAIdX2N1cnJlbnRfcG9vbF9mcmFjdGlvbl9yZXdhcmQAG2tSZXdhcmRQb29sRnJhY3Rpb25QcmV2aW91cwIeX3ByZXZpb3VzX3Bvb2xfZnJhY3Rpb25fcmV3YXJkABNrSGVpZ2h0UG9vbEZyYWN0aW9uAhpfcG9vbF9yZXdhcmRfdXBkYXRlX2hlaWdodAAba1RvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50Ah50b3RhbF9yZXdhcmRfcGVyX2Jsb2NrX2N1cnJlbnQAHGtUb3RhbFJld2FyZFBlckJsb2NrUHJldmlvdXMCH3RvdGFsX3Jld2FyZF9wZXJfYmxvY2tfcHJldmlvdXMAE2tSZXdhcmRVcGRhdGVIZWlnaHQCFHJld2FyZF91cGRhdGVfaGVpZ2h0ABZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAhRfc2hhcmVfdG9rZW5zX2xvY2tlZAAWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAIVX3NoYXJlX3Rva2Vuc19ibG9ja2VkABprVXNlclNoYXJlVG9rZW5zTG9ja2VkVHlwZQIaX3NoYXJlX3Rva2Vuc19ibG9ja2VkX3R5cGUAHGtVc2VyU2hhcmVUb2tlbnNMb2NrZWRIZWlnaHQCHF9zaGFyZV90b2tlbnNfYmxvY2tlZF9oZWlnaHQAF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsAhVfc2hhcmVfdG9rZW5zX3ZpcnR1YWwAFmtTaGFyZVRvdGFsU2hhcmVUb2tlbnMCGl90b3RhbF9zaGFyZV90b2tlbnNfbG9ja2VkABNrU2hhcmVUb2tlbnNWaXJ0dWFsAhtfdG90YWxfc2hhcmVfdG9rZW5zX3ZpcnR1YWwAC2tMb2NrUGFyYW1zAgxfbG9ja19wYXJhbXMADWtMb2NrV2F2ZXNGZWUCDmxvY2tfd2F2ZXNfZmVlAA5rUG9vbEJvb3N0Q29lZgILX2Jvb3N0X2NvZWYAEWtGYXJtTGFzdEludGVyZXN0Ag5fbGFzdF9pbnRlcmVzdAAVa0Zhcm1Vc2VyTGFzdEludGVyZXN0Ag5fbGFzdF9pbnRlcmVzdAASa0Jvb3N0TGFzdEludGVyZXN0AhBfbGFzdF9pbnRlcmVzdF9iABZrQm9vc3RVc2VyTGFzdEludGVyZXN0AhJfbGFzdF9pbnRlcmVzdF91X2IAFGtCb29zdExQTGFzdEludGVyZXN0AhJfbGFzdF9pbnRlcmVzdF9scGIAGGtCb29zdExQVXNlckxhc3RJbnRlcmVzdAIUX2xhc3RfaW50ZXJlc3RfdV9scGIAE2tMYXN0SW50ZXJlc3RIZWlnaHQCFV9sYXN0X2ludGVyZXN0X2hlaWdodAAHa1NXT1BpZAIHU1dPUF9pZAAOa0F2YWlsYWJsZVNXT1ACD19hdmFpbGFibGVfU1dPUAARa1N3b3BZZWFyRW1pc3Npb24CEnN3b3BfeWVhcl9lbWlzc2lvbgAQa0hhcnZlc3RQb29sVm90ZQIYX2hhcnZlc3RfcG9vbF92b3RlX2dTV09QAAlrUG9vbFZvdGUCEF9wb29sX3ZvdGVfZ1NXT1AADWtVc2VyUG9vbFZvdGUCEF91c2VyX3ZvdGVfZ1NXT1AAFGtIYXJ2ZXN0VXNlclBvb2xWb3RlAh1faGFydmVzdF91c2VyX3Bvb2xfdm90ZV9nU1dPUAALa0Jhc2VQZXJpb2QCC2Jhc2VfcGVyaW9kAA1rUGVyaW9kTGVuZ3RoAg1wZXJpb2RfbGVuZ3RoAAxrU3RhcnRIZWlnaHQCDHN0YXJ0X2hlaWdodAATa0ZpcnN0SGFydmVzdEhlaWdodAIUZmlyc3RfaGFydmVzdF9oZWlnaHQADWtTaGFyZUxpbWl0RkgCHHNoYXJlX2xpbWl0X29uX2ZpcnN0X2hhcnZlc3QADWtBZG1pblB1YktleTECC2FkbWluX3B1Yl8xAA1rQWRtaW5QdWJLZXkyAgthZG1pbl9wdWJfMgANa0FkbWluUHViS2V5MwILYWRtaW5fcHViXzMAEmtBZG1pbkludm9rZVB1YktleQIQYWRtaW5faW52b2tlX3B1YgAQa01vbmV5Qm94QWRkcmVzcwIRbW9uZXlfYm94X2FkZHJlc3MADmtWb3RpbmdBZGRyZXNzAg52b3RpbmdfYWRkcmVzcwALa0dvdkFkZHJlc3MCEmdvdmVybmFuY2VfYWRkcmVzcwARa0xQRmFybWluZ0FkZHJlc3MCCmxwX2Zhcm1pbmcAFGtBaXJkcm9wTW9uZXlCb3hBZGRyAhVhaXJkcm9wX2ZlZV9tb25leV9ib3gABm9yYWNsZQkBB0FkZHJlc3MBARoBVEgTlwzA0zPMJTKAtin3p2RogKvjzHtLmQAOdG90YWxWb3RlU2hhcmUAgMivoCUAEmxvY2tCb29zdENvZWZTY2FsZQDoBwAQZGVmUG9vbEJvb3N0Q29lZgD0AwETZ2V0QmFzZTU4RnJvbU9yYWNsZQEDa2V5BAckbWF0Y2gwCQCdCAIFBm9yYWNsZQUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQGc3RyaW5nBQckbWF0Y2gwCQDZBAEFBnN0cmluZwQHbm90aGluZwUHJG1hdGNoMAkAAgEJAKwCAgUDa2V5AghpcyBlbXB0eQAMYWRtaW5QdWJLZXkxCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTEADGFkbWluUHViS2V5MgkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkyAAxhZG1pblB1YktleTMJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MwAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUQa01vbmV5Qm94QWRkcmVzcwANdm90aW5nQWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDmtWb3RpbmdBZGRyZXNzAApnb3ZBZGRyZXNzCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQULa0dvdkFkZHJlc3MAEWFkbWluSW52b2tlUHViS2V5CQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFEmtBZG1pbkludm9rZVB1YktleQAQbHBGYXJtaW5nQWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFEWtMUEZhcm1pbmdBZGRyZXNzABNhaXJkcm9wTW9uZXlCb3hBZGRyCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUUa0FpcmRyb3BNb25leUJveEFkZHIACmJhc2VQZXJpb2QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQ12b3RpbmdBZGRyZXNzBQtrQmFzZVBlcmlvZAIRRW1wdHkga0Jhc2VQZXJpb2QAC3N0YXJ0SGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUNdm90aW5nQWRkcmVzcwUMa1N0YXJ0SGVpZ2h0AhJFbXB0eSBrU3RhcnRIZWlnaHQADHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFDXZvdGluZ0FkZHJlc3MFDWtQZXJpb2RMZW5ndGgCE0VtcHR5IGtQZXJpb2RMZW5ndGgACmN1cnJQZXJpb2QJAGQCBQpiYXNlUGVyaW9kCQBpAgkAZQIFBmhlaWdodAULc3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAAGYWN0aXZlCQERQGV4dHJOYXRpdmUoMTA1MSkCBQR0aGlzBQdrQWN0aXZlABBTd29wWWVhckVtaXNzaW9uCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzBRFrU3dvcFllYXJFbWlzc2lvbgAEU1dPUAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzBQdrU1dPUGlkARVnZXRIZWlnaHRGaXJzdEhhcnZlc3QBBHBvb2wJAQt2YWx1ZU9yRWxzZQIJAJoIAgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wFE2tGaXJzdEhhcnZlc3RIZWlnaHQAAAEUZ2V0RkhTaGFyZUxpbWl0VG9rZW4BBHBvb2wJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQRwb29sBQ1rU2hhcmVMaW1pdEZICQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBQ1rU2hhcmVMaW1pdEZIARhnZXRUb3RhbFNoYXJlVG9rZW5TdGFrZWQBBHBvb2wJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFFmtTaGFyZVRvdGFsU2hhcmVUb2tlbnMJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUEcG9vbAUWa1NoYXJlVG90YWxTaGFyZVRva2VucwEMZ2V0UG9vbFZvdGVkAQRwb29sCQELdmFsdWVPckVsc2UCCQCaCAIFDXZvdGluZ0FkZHJlc3MJAKwCAgUEcG9vbAUJa1Bvb2xWb3RlAAABEGdldFVzZXJQb29sVm90ZWQCBHBvb2wEdXNlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ12b3RpbmdBZGRyZXNzCQCsAgIJAKwCAgkArAICBQR1c2VyAgFfBQRwb29sBQlrUG9vbFZvdGUAAAEPZ2V0U2hhcmVBc3NldElkAQRwb29sCQDZBAEJARFAZXh0ck5hdGl2ZSgxMDUzKQIJAQV2YWx1ZQEJAKYIAQUEcG9vbAIOc2hhcmVfYXNzZXRfaWQBDmFjY291bnRCYWxhbmNlAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwCQDwBwIFBHRoaXMFAmlkAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkAAgECC01hdGNoIGVycm9yAQxnZXRBc3NldEluZm8BB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCaWQFByRtYXRjaDAECHN0cmluZ0lkCQDYBAEFAmlkBARpbmZvCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCaWQJAKwCAgkArAICAgZBc3NldCAFCHN0cmluZ0lkAg4gZG9lc24ndCBleGlzdAkAlQoDBQhzdHJpbmdJZAgFBGluZm8EbmFtZQgFBGluZm8IZGVjaW1hbHMDCQABAgUHJG1hdGNoMAIEVW5pdAQFd2F2ZXMFByRtYXRjaDAJAJUKAwIFV0FWRVMCBVdBVkVTAAgJAAIBAgtNYXRjaCBlcnJvcgEOY2FsY1NjYWxlVmFsdWUCCGFzc2V0SWQxCGFzc2V0SWQyBBBhc3NldElkMURlY2ltYWxzCAkBBXZhbHVlAQkA7AcBBQhhc3NldElkMQhkZWNpbWFscwQQYXNzZXRJZDJEZWNpbWFscwgJAQV2YWx1ZQEJAOwHAQUIYXNzZXRJZDIIZGVjaW1hbHMEC3NjYWxlRGlnaXRzCQBkAgkAZQIFEGFzc2V0SWQyRGVjaW1hbHMFEGFzc2V0SWQxRGVjaW1hbHMACAkAbAYACgAABQtzY2FsZURpZ2l0cwAAAAAFBERPV04BEXVzZXJBdmFpbGFibGVTV09QAgRwb29sBHVzZXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwkApQgBBQR1c2VyBQ5rQXZhaWxhYmxlU1dPUAAAAQpyZXdhcmRJbmZvAQRwb29sBBp0b3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCmdvdkFkZHJlc3MFG2tUb3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAkArAICCQCsAgIJAKwCAgIUTm8gZGF0YSBvbiB0aGUga2V5OiAFG2tUb3RhbFJld2FyZFBlckJsb2NrQ3VycmVudAIMIGF0IGFkZHJlc3MgCQClCAEFCmdvdkFkZHJlc3MEG3RvdGFsUmV3YXJkUGVyQmxvY2tQcmV2aW91cwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCmdvdkFkZHJlc3MFHGtUb3RhbFJld2FyZFBlckJsb2NrUHJldmlvdXMJAKwCAgkArAICCQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBRxrVG90YWxSZXdhcmRQZXJCbG9ja1ByZXZpb3VzAgwgYXQgYWRkcmVzcyAJAKUIAQUKZ292QWRkcmVzcwQZcmV3YXJkUG9vbEZyYWN0aW9uQ3VycmVudAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCmdvdkFkZHJlc3MJAKwCAgUEcG9vbAUaa1Jld2FyZFBvb2xGcmFjdGlvbkN1cnJlbnQJAKwCAgkArAICCQCsAgIJAKwCAgIUTm8gZGF0YSBvbiB0aGUga2V5OiAFBHBvb2wFGmtSZXdhcmRQb29sRnJhY3Rpb25DdXJyZW50AgwgYXQgYWRkcmVzcyAJAKUIAQUKZ292QWRkcmVzcwQScmV3YXJkVXBkYXRlSGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUKZ292QWRkcmVzcwUTa1Jld2FyZFVwZGF0ZUhlaWdodAkArAICCQCsAgIJAKwCAgIUTm8gZGF0YSBvbiB0aGUga2V5OiAFE2tSZXdhcmRVcGRhdGVIZWlnaHQCDCBhdCBhZGRyZXNzIAkApQgBBQpnb3ZBZGRyZXNzBBZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0CQELdmFsdWVPckVsc2UCCQCaCAIFCmdvdkFkZHJlc3MJAKwCAgUEcG9vbAUTa0hlaWdodFBvb2xGcmFjdGlvbgUScmV3YXJkVXBkYXRlSGVpZ2h0BBpyZXdhcmRQb29sRnJhY3Rpb25QcmV2aW91cwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCmdvdkFkZHJlc3MJAKwCAgUEcG9vbAUba1Jld2FyZFBvb2xGcmFjdGlvblByZXZpb3VzCQCsAgIJAKwCAgkArAICCQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBQRwb29sBRtrUmV3YXJkUG9vbEZyYWN0aW9uUHJldmlvdXMCDCBhdCBhZGRyZXNzIAkApQgBBQpnb3ZBZGRyZXNzBBFyZXdhcmRQb29sQ3VycmVudAkAawMFGnRvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50BRlyZXdhcmRQb29sRnJhY3Rpb25DdXJyZW50BQ50b3RhbFZvdGVTaGFyZQQScmV3YXJkUG9vbFByZXZpb3VzCQBrAwUadG90YWxSZXdhcmRQZXJCbG9ja0N1cnJlbnQFGnJld2FyZFBvb2xGcmFjdGlvblByZXZpb3VzBQ50b3RhbFZvdGVTaGFyZQMDCQBmAgURcmV3YXJkUG9vbEN1cnJlbnQFGnRvdGFsUmV3YXJkUGVyQmxvY2tDdXJyZW50BgkAZgIFEnJld2FyZFBvb2xQcmV2aW91cwUbdG90YWxSZXdhcmRQZXJCbG9ja1ByZXZpb3VzCQACAQJicmV3YXJkUG9vbEN1cnJlbnQgPiB0b3RhbFJld2FyZFBlckJsb2NrQ3VycmVudCBvciByZXdhcmRQb29sUHJldmlvdXMgPiB0b3RhbFJld2FyZFBlckJsb2NrUHJldmlvdXMJAJYKBAURcmV3YXJkUG9vbEN1cnJlbnQFEnJld2FyZFVwZGF0ZUhlaWdodAUScmV3YXJkUG9vbFByZXZpb3VzBRZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0ARNnZXRMYXN0SW50ZXJlc3RJbmZvAQRwb29sBAxmYXJtSW50ZXJlc3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFEWtGYXJtTGFzdEludGVyZXN0CQCsAgIJAKwCAgIUTm8gZGF0YSBvbiB0aGUga2V5OiAFBHBvb2wFEWtGYXJtTGFzdEludGVyZXN0BA1ib29zdEludGVyZXN0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAkArAICCQCsAgICFE5vIGRhdGEgb24gdGhlIGtleTogBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QED2Jvb3N0TFBJbnRlcmVzdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QJAKwCAgkArAICAhRObyBkYXRhIG9uIHRoZSBrZXk6IAUEcG9vbAUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QEEmxhc3RJbnRlcmVzdEhlaWdodAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAkAlgoEBRJsYXN0SW50ZXJlc3RIZWlnaHQFDGZhcm1JbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAUPYm9vc3RMUEludGVyZXN0AQtjYWxjRmFybVJ3ZAIEcG9vbA5jdXJUb3RhbFJld2FyZAQNcG9vbEJvb3N0Q29lZgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFDmtQb29sQm9vc3RDb2VmBRBkZWZQb29sQm9vc3RDb2VmCQBpAgkAaQIFDmN1clRvdGFsUmV3YXJkCQBkAgUNcG9vbEJvb3N0Q29lZgABBRJsb2NrQm9vc3RDb2VmU2NhbGUBDGNhbGNCb29zdFJ3ZAIEcG9vbA5jdXJUb3RhbFJld2FyZAQNcG9vbEJvb3N0Q29lZgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFDmtQb29sQm9vc3RDb2VmBRBkZWZQb29sQm9vc3RDb2VmCQBpAgkAawMFDmN1clRvdGFsUmV3YXJkBQ1wb29sQm9vc3RDb2VmCQBkAgUNcG9vbEJvb3N0Q29lZgABBRJsb2NrQm9vc3RDb2VmU2NhbGUBDGNhbGNJbnRlcmVzdAwEcG9vbBJsYXN0SW50ZXJlc3RIZWlnaHQScmV3YXJkVXBkYXRlSGVpZ2h0FnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQMZmFybUludGVyZXN0DWJvb3N0SW50ZXJlc3QJcG9vbFZvdGVkD2Jvb3N0THBJbnRlcmVzdBVjdXJyZW50UmV3YXJkUGVyQmxvY2sQc2hhcmVUb2tlbkxvY2tlZBZwcmV2aW91c1Jld2FyZFBlckJsb2NrCnNjYWxlVmFsdWUDCQAAAgUQc2hhcmVUb2tlbkxvY2tlZAAACQCVCgMAAAAAAAADAwkAZgIFEnJld2FyZFVwZGF0ZUhlaWdodAUGaGVpZ2h0CQAAAgUScmV3YXJkVXBkYXRlSGVpZ2h0BRZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0BwQGcmV3YXJkCQBoAgUWcHJldmlvdXNSZXdhcmRQZXJCbG9jawkAZQIFBmhlaWdodAUSbGFzdEludGVyZXN0SGVpZ2h0BA9uZXdGYXJtSW50ZXJlc3QJAGQCBQxmYXJtSW50ZXJlc3QJAGsDCQELY2FsY0Zhcm1Sd2QCBQRwb29sBQZyZXdhcmQFCnNjYWxlVmFsdWUFEHNoYXJlVG9rZW5Mb2NrZWQEEG5ld0Jvb3N0SW50ZXJlc3QJAGQCBQ1ib29zdEludGVyZXN0AwkAZgIFCXBvb2xWb3RlZAAACQBrAwkBDGNhbGNCb29zdFJ3ZAIFBHBvb2wFBnJld2FyZAUKc2NhbGVWYWx1ZQUJcG9vbFZvdGVkAAAEEm5ld0Jvb3N0TFBJbnRlcmVzdAkAZAIFD2Jvb3N0THBJbnRlcmVzdAMDCQBmAgUJcG9vbFZvdGVkAAAJAGYCBRBzaGFyZVRva2VuTG9ja2VkAAAHCQBpAgkAawMJAQxjYWxjQm9vc3RSd2QCBQRwb29sBQZyZXdhcmQFCnNjYWxlVmFsdWUFEHNoYXJlVG9rZW5Mb2NrZWQFCXBvb2xWb3RlZAAACQCVCgMFD25ld0Zhcm1JbnRlcmVzdAUQbmV3Qm9vc3RJbnRlcmVzdAUSbmV3Qm9vc3RMUEludGVyZXN0AwMJAGYCBQZoZWlnaHQFEnJld2FyZFVwZGF0ZUhlaWdodAkBAiE9AgUScmV3YXJkVXBkYXRlSGVpZ2h0BRZwb29sUmV3YXJkVXBkYXRlSGVpZ2h0BwQGcmV3YXJkCQBoAgUWcHJldmlvdXNSZXdhcmRQZXJCbG9jawkAZQIFBmhlaWdodAUSbGFzdEludGVyZXN0SGVpZ2h0BA9uZXdGYXJtSW50ZXJlc3QJAGQCBQxmYXJtSW50ZXJlc3QJAGsDCQELY2FsY0Zhcm1Sd2QCBQRwb29sBQZyZXdhcmQFCnNjYWxlVmFsdWUFEHNoYXJlVG9rZW5Mb2NrZWQEEG5ld0Jvb3N0SW50ZXJlc3QJAGQCBQ1ib29zdEludGVyZXN0AwkAZgIFCXBvb2xWb3RlZAAACQBrAwkBDGNhbGNCb29zdFJ3ZAIFBHBvb2wFBnJld2FyZAUKc2NhbGVWYWx1ZQUJcG9vbFZvdGVkAAAEEm5ld0Jvb3N0TFBJbnRlcmVzdAkAZAIFD2Jvb3N0THBJbnRlcmVzdAMDCQBmAgUJcG9vbFZvdGVkAAAJAGYCBRBzaGFyZVRva2VuTG9ja2VkAAAHCQBpAgkAawMJAQxjYWxjQm9vc3RSd2QCBQRwb29sBQZyZXdhcmQFCnNjYWxlVmFsdWUFEHNoYXJlVG9rZW5Mb2NrZWQFCXBvb2xWb3RlZAAACQCVCgMFD25ld0Zhcm1JbnRlcmVzdAUQbmV3Qm9vc3RJbnRlcmVzdAUSbmV3Qm9vc3RMUEludGVyZXN0AwMDCQBmAgUGaGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQJAAACBRJyZXdhcmRVcGRhdGVIZWlnaHQFFnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQHCQBmAgUSbGFzdEludGVyZXN0SGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQHBAZyZXdhcmQJAGgCBRVjdXJyZW50UmV3YXJkUGVyQmxvY2sJAGUCBQZoZWlnaHQFEmxhc3RJbnRlcmVzdEhlaWdodAQPbmV3RmFybUludGVyZXN0CQBkAgUMZmFybUludGVyZXN0CQBrAwkBC2NhbGNGYXJtUndkAgUEcG9vbAUGcmV3YXJkBQpzY2FsZVZhbHVlBRBzaGFyZVRva2VuTG9ja2VkBBBuZXdCb29zdEludGVyZXN0CQBkAgUNYm9vc3RJbnRlcmVzdAMJAGYCBQlwb29sVm90ZWQAAAkAawMJAQxjYWxjQm9vc3RSd2QCBQRwb29sBQZyZXdhcmQFCnNjYWxlVmFsdWUFCXBvb2xWb3RlZAAABBJuZXdCb29zdExQSW50ZXJlc3QJAGQCBQ9ib29zdExwSW50ZXJlc3QDAwkAZgIFCXBvb2xWb3RlZAAACQBmAgUQc2hhcmVUb2tlbkxvY2tlZAAABwkAaQIJAGsDCQEMY2FsY0Jvb3N0UndkAgUEcG9vbAUGcmV3YXJkBQpzY2FsZVZhbHVlBRBzaGFyZVRva2VuTG9ja2VkBQlwb29sVm90ZWQAAAkAlQoDBQ9uZXdGYXJtSW50ZXJlc3QFEG5ld0Jvb3N0SW50ZXJlc3QFEm5ld0Jvb3N0TFBJbnRlcmVzdAQJcndkQmZyVXBkCQBoAgUWcHJldmlvdXNSZXdhcmRQZXJCbG9jawkAZQIFEnJld2FyZFVwZGF0ZUhlaWdodAUSbGFzdEludGVyZXN0SGVpZ2h0BA5mcmFtSW50ckFmdHJVcAkAZAIFDGZhcm1JbnRlcmVzdAkAawMJAQtjYWxjRmFybVJ3ZAIFBHBvb2wFCXJ3ZEJmclVwZAUKc2NhbGVWYWx1ZQUQc2hhcmVUb2tlbkxvY2tlZAQPYm9vc3RJbnRyQWZ0clVwCQBkAgUNYm9vc3RJbnRlcmVzdAMJAGYCBQlwb29sVm90ZWQAAAkAawMJAQxjYWxjQm9vc3RSd2QCBQRwb29sBQlyd2RCZnJVcGQFCnNjYWxlVmFsdWUFCXBvb2xWb3RlZAAABBBib3N0TFBJbnRyQWZ0clVwCQBkAgUMZmFybUludGVyZXN0AwMJAGYCBQlwb29sVm90ZWQAAAkAZgIFEHNoYXJlVG9rZW5Mb2NrZWQAAAcJAGsDCQEMY2FsY0Jvb3N0UndkAgUEcG9vbAUJcndkQmZyVXBkBQpzY2FsZVZhbHVlBQlwb29sVm90ZWQAAAQGcmV3YXJkCQBoAgUVY3VycmVudFJld2FyZFBlckJsb2NrCQBlAgUGaGVpZ2h0BRJyZXdhcmRVcGRhdGVIZWlnaHQED25ld0Zhcm1JbnRlcmVzdAkAZAIFDmZyYW1JbnRyQWZ0clVwCQBrAwkBC2NhbGNGYXJtUndkAgUEcG9vbAUGcmV3YXJkBQpzY2FsZVZhbHVlBRBzaGFyZVRva2VuTG9ja2VkBBBuZXdCb29zdEludGVyZXN0CQBkAgUPYm9vc3RJbnRyQWZ0clVwAwkAZgIFCXBvb2xWb3RlZAAACQBrAwkBDGNhbGNCb29zdFJ3ZAIFBHBvb2wFBnJld2FyZAUKc2NhbGVWYWx1ZQUJcG9vbFZvdGVkAAAEEm5ld0Jvb3N0TFBJbnRlcmVzdAkAZAIFEGJvc3RMUEludHJBZnRyVXADAwkAZgIFCXBvb2xWb3RlZAAACQBmAgUQc2hhcmVUb2tlbkxvY2tlZAAABwkAaQIJAGsDCQEMY2FsY0Jvb3N0UndkAgUEcG9vbAUGcmV3YXJkBQpzY2FsZVZhbHVlBRBzaGFyZVRva2VuTG9ja2VkBQlwb29sVm90ZWQAAAkAlQoDBQ9uZXdGYXJtSW50ZXJlc3QFEG5ld0Jvb3N0SW50ZXJlc3QFEm5ld0Jvb3N0TFBJbnRlcmVzdAEJY2xhaW1DYWxjAgRwb29sBHVzZXIECnNjYWxlVmFsdWUJAQ5jYWxjU2NhbGVWYWx1ZQIFBFNXT1AJAQ9nZXRTaGFyZUFzc2V0SWQBBQRwb29sBAlwb29sVm90ZWQJAQxnZXRQb29sVm90ZWQBBQRwb29sBAp1UG9vbFZvdGVkCQEQZ2V0VXNlclBvb2xWb3RlZAIFBHBvb2wFBHVzZXIEEHNoYXJlVG9rZW5TdGFrZWQJARhnZXRUb3RhbFNoYXJlVG9rZW5TdGFrZWQBBQRwb29sBBF0b3RhbFNoYXJlVmlydHVhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFE2tTaGFyZVRva2Vuc1ZpcnR1YWwFEHNoYXJlVG9rZW5TdGFrZWQEDSR0MDE0MjAxMTQyOTkJARNnZXRMYXN0SW50ZXJlc3RJbmZvAQUEcG9vbAQSbGFzdEludGVyZXN0SGVpZ2h0CAUNJHQwMTQyMDExNDI5OQJfMQQMZmFybUludGVyZXN0CAUNJHQwMTQyMDExNDI5OQJfMgQNYm9vc3RJbnRlcmVzdAgFDSR0MDE0MjAxMTQyOTkCXzMED2Jvb3N0TFBJbnRlcmVzdAgFDSR0MDE0MjAxMTQyOTkCXzQEDSR0MDE0MzA0MTQ0MTgJAQpyZXdhcmRJbmZvAQUEcG9vbAQVY3VycmVudFJld2FyZFBlckJsb2NrCAUNJHQwMTQzMDQxNDQxOAJfMQQScmV3YXJkVXBkYXRlSGVpZ2h0CAUNJHQwMTQzMDQxNDQxOAJfMgQWcHJldmlvdXNSZXdhcmRQZXJCbG9jawgFDSR0MDE0MzA0MTQ0MTgCXzMEFnBvb2xSZXdhcmRVcGRhdGVIZWlnaHQIBQ0kdDAxNDMwNDE0NDE4Al80BA11RmFybUludGVyZXN0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0BA51Qm9vc3RJbnRlcmVzdAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0BBB1Qm9vc3RMUEludGVyZXN0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFGGtCb29zdExQVXNlckxhc3RJbnRlcmVzdAUPYm9vc3RMUEludGVyZXN0BBJ1U2hhcmVUb2tlbnNTdGFrZWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAAABBB1U2hhcmVUb2tlbnNWaXJ0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRJ1U2hhcmVUb2tlbnNTdGFrZWQEDSR0MDE0OTg2MTUzNzgJAQxjYWxjSW50ZXJlc3QMBQRwb29sBRJsYXN0SW50ZXJlc3RIZWlnaHQFEnJld2FyZFVwZGF0ZUhlaWdodAUWcG9vbFJld2FyZFVwZGF0ZUhlaWdodAUMZmFybUludGVyZXN0BQ1ib29zdEludGVyZXN0BQlwb29sVm90ZWQFD2Jvb3N0TFBJbnRlcmVzdAUVY3VycmVudFJld2FyZFBlckJsb2NrBRBzaGFyZVRva2VuU3Rha2VkBRZwcmV2aW91c1Jld2FyZFBlckJsb2NrBQpzY2FsZVZhbHVlBA9uZXdGYXJtSW50ZXJlc3QIBQ0kdDAxNDk4NjE1Mzc4Al8xBBBuZXdCb29zdEludGVyZXN0CAUNJHQwMTQ5ODYxNTM3OAJfMgQSbmV3Qm9vc3RMUEludGVyZXN0CAUNJHQwMTQ5ODYxNTM3OAJfMwQMY2xhaW1GYXJtaW5nCQBrAwUQdVNoYXJlVG9rZW5zVmlydAkAZQIFD25ld0Zhcm1JbnRlcmVzdAUNdUZhcm1JbnRlcmVzdAUKc2NhbGVWYWx1ZQQQY2xhaW1Cb29zdGluZ01heAkAawMFCnVQb29sVm90ZWQJAGUCBRBuZXdCb29zdEludGVyZXN0BQ51Qm9vc3RJbnRlcmVzdAUKc2NhbGVWYWx1ZQQNY2xhaW1Cb29zdGluZwkAawMJAGgCBRB1U2hhcmVUb2tlbnNWaXJ0BQp1UG9vbFZvdGVkCQBlAgUSbmV3Qm9vc3RMUEludGVyZXN0BRB1Qm9vc3RMUEludGVyZXN0BQpzY2FsZVZhbHVlBAp0b1RyZWFzdXJ5CQBlAgUQY2xhaW1Cb29zdGluZ01heAUNY2xhaW1Cb29zdGluZwkAlwoFBQ9uZXdGYXJtSW50ZXJlc3QFEG5ld0Jvb3N0SW50ZXJlc3QFEm5ld0Jvb3N0TFBJbnRlcmVzdAkAZAIFDGNsYWltRmFybWluZwUNY2xhaW1Cb29zdGluZwUKdG9UcmVhc3VyeQEVY2FuTG9ja0luRmlyc3RIYXJ2ZXN0BQRwb29sBHVzZXIVdXNlclNoYXJlVG9rZW5zU3Rha2VkCXBtdEFtb3VudAhsb2NrVHlwZQMJAGYCBQZoZWlnaHQJARVnZXRIZWlnaHRGaXJzdEhhcnZlc3QBBQRwb29sBA90b3RhbFZvdGVBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUNdm90aW5nQWRkcmVzcwkArAICBQRwb29sBRBrSGFydmVzdFBvb2xWb3RlAAAEDnVzZXJWb3RlQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFDXZvdGluZ0FkZHJlc3MJAKwCAgkArAICCQCsAgIFBHVzZXICAV8FBHBvb2wFEGtIYXJ2ZXN0UG9vbFZvdGUAAAQRRkhTaGFyZVRva2VuTGltaXQJARRnZXRGSFNoYXJlTGltaXRUb2tlbgEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBHBvb2wEFUZIU2hhcmVUb2tlblVzZXJMaW1pdAkAZQIJAGsDBRFGSFNoYXJlVG9rZW5MaW1pdAUOdXNlclZvdGVBbW91bnQFD3RvdGFsVm90ZUFtb3VudAUVdXNlclNoYXJlVG9rZW5zU3Rha2VkAwkAZgIFCGxvY2tUeXBlAAAJAAIBAjJZb3UgY2FuJ3QgbG9jayBzaGFyZVRva2VucyB0aWxsIGZpcnN0IGhhcnZlc3QgZW5kLgMJAAACBQ51c2VyVm90ZUFtb3VudAAACQACAQJDWW91IGNhbid0IGxvY2sgc2hhcmVUb2tlbnMgYmVjYXVzZSB5b3UgZGlkbid0IHZvdGUgaW4gZmlyc3QgaGFydmVzdAMJAGYCBQlwbXRBbW91bnQFFUZIU2hhcmVUb2tlblVzZXJMaW1pdAkAAgEJAKwCAgJCWW91IGNhbid0IGxvY2sgbW9yZSB0aGFuIHlvdSB2b3RlIGluIGZpcnN0IGhhcnZlc3QuIFlvdXIgY2FuIGxvY2sgCQCkAwEFFUZIU2hhcmVUb2tlblVzZXJMaW1pdAYGAQ1nZXRMb2NrUGFyYW1zAQR0eXBlBApsb2NrUGFyYW1zCQC1CQIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzCQCsAgIJAKQDAQUEdHlwZQULa0xvY2tQYXJhbXMJAKwCAgIeVGhlcmUgYXJlIG5vIGtleSBmb3IgbG9jayB0eXBlCQCkAwEFBHR5cGUCAV8JAJQKAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCmxvY2tQYXJhbXMAAAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCmxvY2tQYXJhbXMAAQEHc3VzcGVuZAEFY2F1c2UJAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2tBY3RpdmUHCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmtDYXVzZQUFY2F1c2UFA25pbAEIaXNBY3RpdmUAAwUGYWN0aXZlBQR1bml0CQACAQIfREFwcCBpcyBpbmFjdGl2ZSBhdCB0aGlzIG1vbWVudAELaXNBZG1pbkNhbGwBAWkDCQEPY29udGFpbnNFbGVtZW50AgkAzAgCBQxhZG1pblB1YktleTEJAMwIAgUMYWRtaW5QdWJLZXkyCQDMCAIFDGFkbWluUHViS2V5MwUDbmlsCAUBaQ9jYWxsZXJQdWJsaWNLZXkFBHVuaXQJAAIBAiFPbmx5IGFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24OAWkBBGluaXQBB2Vhcmx5TFADCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzBQdrU1dPUGlkCQACAQIYU1dPUCBhbHJlYWR5IGluaXRpYWxpemVkBAppbml0QW1vdW50AICA6YOx3hYECVNXT1Bpc3N1ZQkAwggFAgRTV09QAhNTV09QIHByb3RvY29sIHRva2VuBQppbml0QW1vdW50AAgGBAZTV09QaWQJALgIAQUJU1dPUGlzc3VlCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBgkAzAgCCQDCCAUCBFNXT1ACE1NXT1AgcHJvdG9jb2wgdG9rZW4FCmluaXRBbW91bnQACAYJAMwIAgkBC1N0cmluZ0VudHJ5AgUHa1NXT1BpZAkA2AQBBQZTV09QaWQFA25pbAFpARRpbml0UG9vbFNoYXJlRmFybWluZwEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBC2lzQWRtaW5DYWxsAQUBaQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRZrU2hhcmVUb3RhbFNoYXJlVG9rZW5zAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRRrQm9vc3RMUExhc3RJbnRlcmVzdAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAUDbmlsAWkBEnVwZGF0ZVBvb2xJbnRlcmVzdAEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAMJAQIhPQIIBQFpBmNhbGxlcgUKZ292QWRkcmVzcwkAAgECJk9ubHkgR292ZXJuYW5jZSBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAR1c2VyCQClCAEJAKcIAQURYWRtaW5JbnZva2VQdWJLZXkEDSR0MDE4NTM4MTg2MTIJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAxODUzODE4NjEyAl8xBA1ib29zdEludGVyZXN0CAUNJHQwMTg1MzgxODYxMgJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMTg1MzgxODYxMgJfMwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAUDbmlsAWkBD2xvY2tTaGFyZVRva2VucwIEcG9vbAhsb2NrVHlwZQkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAQMc2hhcmVBc3NldElkCQEPZ2V0U2hhcmVBc3NldElkAQUEcG9vbAQEdXNlcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIEEHRvdGFsU2hhcmVTdGFrZWQJARhnZXRUb3RhbFNoYXJlVG9rZW5TdGFrZWQBBQRwb29sBBF0b3RhbFNoYXJlVmlydHVhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFE2tTaGFyZVRva2Vuc1ZpcnR1YWwFEHRvdGFsU2hhcmVTdGFrZWQEEHVzZXJTdGFrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAAABA91c2VyTG9ja2VkSGVpZ3QJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAAABBB1c2VyTG9ja2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQAAAQRdXNlckFtb3VudFZpcnR1YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUXa1VzZXJTaGFyZVRva2Vuc1ZpcnR1YWwFEHVzZXJTdGFrZWRBbW91bnQEE3RvdGFsU2hhcmVTdGFrZWROZXcJAGQCBRB0b3RhbFNoYXJlU3Rha2VkCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQUdG90YWxVc2VyU2hhcmVUb2tlbnMJAGQCCQBkAgUQdXNlclN0YWtlZEFtb3VudAUQdXNlckxvY2tlZEFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEDSR0MDE5ODA5MTk4NjEJAQ1nZXRMb2NrUGFyYW1zAQUIbG9ja1R5cGUECmxvY2tQZXJpb2QIBQ0kdDAxOTgwOTE5ODYxAl8xBAhsb2NrQ29lZggFDSR0MDE5ODA5MTk4NjECXzIEDGxvY2tXYXZlc0ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUNa0xvY2tXYXZlc0ZlZQMJAGcCAAAICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQACAQIlUGF5bWVudCBhbW91bnQgbXVzdCBiZSBncmVhdGVyIHRoYW4gMAMJAGYCAAAFCGxvY2tUeXBlCQACAQIVbG9ja1R5cGUgbXVzdCBiZSA+PSAwAwkAZgIJAQ5hY2NvdW50QmFsYW5jZQEFDHNoYXJlQXNzZXRJZAUTdG90YWxTaGFyZVN0YWtlZE5ldwkAAgECMEJhbGFuY2Ugb2Ygc2hhcmUtdG9rZW4gaXMgbG93ZXIgdGhhbiB0b3RhbEFtb3VudAMJAQEhAQkBFWNhbkxvY2tJbkZpcnN0SGFydmVzdAUFBHBvb2wFBHVzZXIFEHVzZXJTdGFrZWRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQhsb2NrVHlwZQkBBXRocm93AAQNJHQwMjAzMTMyMTk0OQMJAAACBQhsb2NrVHlwZQAABBR1c2VyQW1vdW50VmlydHVhbE5ldwkAZAIFEXVzZXJBbW91bnRWaXJ0dWFsCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkCQBkAgUQdXNlclN0YWtlZEFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAkAZAIFEXRvdGFsU2hhcmVWaXJ0dWFsCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUDbmlsBRR1c2VyQW1vdW50VmlydHVhbE5ldwMDCQAAAgUPdXNlckxvY2tlZEhlaWd0AAADAwkAZgIAAgkAkAMBCAUBaQhwYXltZW50cwYJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAUEdW5pdAYJAGYCBQxsb2NrV2F2ZXNGZWUICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50BwkAAgEJAKwCAgkArAICAitZb3UgbmVlZCB0byBwYXkgYWRkaXRpb25hbCB3YXZlcyBjb21pc3Npb24gCQCkAwEFDGxvY2tXYXZlc0ZlZQIFV0FWRVMDCQBmAgUPdXNlckxvY2tlZEhlaWd0CQBkAgUGaGVpZ2h0BQpsb2NrUGVyaW9kCQACAQJPWW91IGNhbm5vdCBsb2NrIHNoYXJldG9rZW5zIGZvciBhIHBlcmlvZCBsZXNzIHRoYW4gd2hhdCB5b3UgaGF2ZSBhbHJlYWR5IGxvY2tlZAQTdXNlckxvY2tlZEFtb3VudE5ldwkAZAIFEHVzZXJMb2NrZWRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBJ1c2VyTG9ja2VkSGVpZ3ROZXcJAGQCBQZoZWlnaHQFCmxvY2tQZXJpb2QEFHVzZXJBbW91bnRWaXJ0dWFsTmV3CQBkAgkAawMFE3VzZXJMb2NrZWRBbW91bnROZXcFCGxvY2tDb2VmBRJsb2NrQm9vc3RDb2VmU2NhbGUFEHVzZXJTdGFrZWRBbW91bnQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAUTdXNlckxvY2tlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAUSdXNlckxvY2tlZEhlaWd0TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRprVXNlclNoYXJlVG9rZW5zTG9ja2VkVHlwZQUIbG9ja1R5cGUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRR1c2VyQW1vdW50VmlydHVhbE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsCQBkAgkAZQIFEXRvdGFsU2hhcmVWaXJ0dWFsBRF1c2VyQW1vdW50VmlydHVhbAUUdXNlckFtb3VudFZpcnR1YWxOZXcFA25pbAUUdXNlckFtb3VudFZpcnR1YWxOZXcEC2xvY2tFbnRyaWVzCAUNJHQwMjAzMTMyMTk0OQJfMQQUdXNlckFtb3VudFZpcnR1YWxOZXcIBQ0kdDAyMDMxMzIxOTQ5Al8yBA0kdDAyMTk1NTIyMDU0CQEJY2xhaW1DYWxjAgUEcG9vbAUEdXNlcgQMZmFybUludGVyZXN0CAUNJHQwMjE5NTUyMjA1NAJfMQQNYm9vc3RJbnRlcmVzdAgFDSR0MDIxOTU1MjIwNTQCXzIED2Jvb3N0TFBpbnRlcmVzdAgFDSR0MDIxOTU1MjIwNTQCXzMEC2NsYWltQW1vdW50CAUNJHQwMjE5NTUyMjA1NAJfNAQKdG9UcmVhc3VyZQgFDSR0MDIxOTU1MjIwNTQCXzUEEWF2YWlsYWJsZUZ1bmRzTmV3CQBkAgkBEXVzZXJBdmFpbGFibGVTV09QAgUEcG9vbAgFAWkMb3JpZ2luQ2FsbGVyBQtjbGFpbUFtb3VudAQEdXBscAMJAAACCQCdCAIJAQdBZGRyZXNzAQkA2QQBBQRwb29sAgd2ZXJzaW9uAgUzLjAuMAkA/AcEBRBscEZhcm1pbmdBZGRyZXNzAhJ1cGRhdGVVc2VySW50ZXJlc3QJAMwIAgUEcG9vbAkAzAgCBRR0b3RhbFVzZXJTaGFyZVRva2VucwUDbmlsBQNuaWwAAAMJAAACBQR1cGxwBQR1cGxwCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEWtGYXJtTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUSa0Jvb3N0TGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFFGtCb29zdExQTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa0xhc3RJbnRlcmVzdEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFFmtTaGFyZVRvdGFsU2hhcmVUb2tlbnMFE3RvdGFsU2hhcmVTdGFrZWROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFDmtBdmFpbGFibGVTV09QBRFhdmFpbGFibGVGdW5kc05ldwkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2FpcmRyb3BNb25leUJveEFkZHIFCnRvVHJlYXN1cmUFBFNXT1AFA25pbAULbG9ja0VudHJpZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVbG9ja1N0YWtlZFNoYXJlVG9rZW5zAwRwb29sCGxvY2tUeXBlCmxvY2tBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAEDHNoYXJlQXNzZXRJZAkBD2dldFNoYXJlQXNzZXRJZAEFBHBvb2wEBHVzZXIJAKUIAQgFAWkMb3JpZ2luQ2FsbGVyBBB0b3RhbFNoYXJlU3Rha2VkCQEYZ2V0VG90YWxTaGFyZVRva2VuU3Rha2VkAQUEcG9vbAQRdG90YWxTaGFyZVZpcnR1YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsBRB0b3RhbFNoYXJlU3Rha2VkBBB1c2VyU3Rha2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQAAAQPdXNlckxvY2tlZEhlaWd0CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFHGtVc2VyU2hhcmVUb2tlbnNMb2NrZWRIZWlnaHQAAAQQdXNlckxvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zTG9ja2VkAAAEEXVzZXJBbW91bnRWaXJ0dWFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRB1c2VyU3Rha2VkQW1vdW50BBR0b3RhbFVzZXJTaGFyZVRva2VucwkAZAIFEHVzZXJTdGFrZWRBbW91bnQFEHVzZXJMb2NrZWRBbW91bnQEDSR0MDIzOTg2MjQwMzgJAQ1nZXRMb2NrUGFyYW1zAQUIbG9ja1R5cGUECmxvY2tQZXJpb2QIBQ0kdDAyMzk4NjI0MDM4Al8xBAhsb2NrQ29lZggFDSR0MDIzOTg2MjQwMzgCXzIEDGxvY2tXYXZlc0ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUNa0xvY2tXYXZlc0ZlZQMJAGYCBQZoZWlnaHQJARVnZXRIZWlnaHRGaXJzdEhhcnZlc3QBBQRwb29sCQACAQIyWW91IGNhbid0IGxvY2sgc2hhcmVUb2tlbnMgdGlsbCBmaXJzdCBoYXJ2ZXN0IGVuZC4DCQBmAgUIbG9ja1R5cGUAAAkAAgECFGxvY2tUeXBlIG11c3QgYmUgPiAwAwkAZgIFCmxvY2tBbW91bnQFEHVzZXJTdGFrZWRBbW91bnQJAAIBCQCsAgICGVlvdSBjYW4ndCBsb2NrIG1vcmUgdGhhbiAJAKQDAQUQdXNlclN0YWtlZEFtb3VudAMJAGYCCQEOYWNjb3VudEJhbGFuY2UBBQxzaGFyZUFzc2V0SWQFEHRvdGFsU2hhcmVTdGFrZWQJAAIBAjBCYWxhbmNlIG9mIHNoYXJlLXRva2VuIGlzIGxvd2VyIHRoYW4gdG90YWxBbW91bnQDAwkAAAIFD3VzZXJMb2NrZWRIZWlndAAAAwMJAGYCAAEJAJADAQgFAWkIcGF5bWVudHMGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQGCQBmAgUMbG9ja1dhdmVzRmVlCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAcJAAIBCQCsAgIJAKwCAgIrWW91IG5lZWQgdG8gcGF5IGFkZGl0aW9uYWwgd2F2ZXMgY29taXNzaW9uIAkApAMBBQxsb2NrV2F2ZXNGZWUCBVdBVkVTAwkAZgIFD3VzZXJMb2NrZWRIZWlndAkAZAIFBmhlaWdodAUKbG9ja1BlcmlvZAkAAgECT1lvdSBjYW5ub3QgbG9jayBzaGFyZXRva2VucyBmb3IgYSBwZXJpb2QgbGVzcyB0aGFuIHdoYXQgeW91IGhhdmUgYWxyZWFkeSBsb2NrZWQEE3VzZXJMb2NrZWRBbW91bnROZXcJAGQCBRB1c2VyTG9ja2VkQW1vdW50BQpsb2NrQW1vdW50BBN1c2VyU3Rha2VkQW1vdW50TmV3CQBlAgUQdXNlclN0YWtlZEFtb3VudAUKbG9ja0Ftb3VudAQSdXNlckxvY2tlZEhlaWd0TmV3CQBkAgUGaGVpZ2h0BQpsb2NrUGVyaW9kBBR1c2VyQW1vdW50VmlydHVhbE5ldwkAZAIJAGsDBRN1c2VyTG9ja2VkQW1vdW50TmV3BQhsb2NrQ29lZgUSbG9ja0Jvb3N0Q29lZlNjYWxlBRB1c2VyU3Rha2VkQW1vdW50BAtsb2NrRW50cmllcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc1N0YWtlZAUTdXNlclN0YWtlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAUTdXNlckxvY2tlZEFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAUSdXNlckxvY2tlZEhlaWd0TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRprVXNlclNoYXJlVG9rZW5zTG9ja2VkVHlwZQUIbG9ja1R5cGUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRR1c2VyQW1vdW50VmlydHVhbE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrU2hhcmVUb2tlbnNWaXJ0dWFsCQBkAgkAZQIFEXRvdGFsU2hhcmVWaXJ0dWFsBRF1c2VyQW1vdW50VmlydHVhbAUUdXNlckFtb3VudFZpcnR1YWxOZXcFA25pbAQNJHQwMjU3MzgyNTgzNwkBCWNsYWltQ2FsYwIFBHBvb2wFBHVzZXIEDGZhcm1JbnRlcmVzdAgFDSR0MDI1NzM4MjU4MzcCXzEEDWJvb3N0SW50ZXJlc3QIBQ0kdDAyNTczODI1ODM3Al8yBA9ib29zdExQaW50ZXJlc3QIBQ0kdDAyNTczODI1ODM3Al8zBAtjbGFpbUFtb3VudAgFDSR0MDI1NzM4MjU4MzcCXzQECnRvVHJlYXN1cmUIBQ0kdDAyNTczODI1ODM3Al81BBFhdmFpbGFibGVGdW5kc05ldwkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wIBQFpDG9yaWdpbkNhbGxlcgULY2xhaW1BbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEWtGYXJtTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUSa0Jvb3N0TGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFFGtCb29zdExQTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa0xhc3RJbnRlcmVzdEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBQ5rQXZhaWxhYmxlU1dPUAURYXZhaWxhYmxlRnVuZHNOZXcJAMwIAgkBB1JlaXNzdWUDBQRTV09QBQp0b1RyZWFzdXJlBgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRNhaXJkcm9wTW9uZXlCb3hBZGRyBQp0b1RyZWFzdXJlBQRTV09QBQNuaWwBaQEOdW5sb2NrVXNlckxvY2sCBHBvb2wEdXNlcgkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAQMbG9ja1dhdmVzRmVlCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzBQ1rTG9ja1dhdmVzRmVlBA91c2VyTG9ja2VkSGVpZ3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRxrVXNlclNoYXJlVG9rZW5zTG9ja2VkSGVpZ2h0CQCsAgIJAKwCAgkArAICCQCsAgICEVRoZXJlIGlzIG5vIHBvb2wgBQRwb29sAgkgb3IgdXNlciAFBHVzZXICCXdpdGggbG9jawQRdG90YWxTaGFyZVZpcnR1YWwJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgUEcG9vbAUTa1NoYXJlVG9rZW5zVmlydHVhbAQQdXNlclN0YWtlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAAAEEHVzZXJMb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAAABBF1c2VyQW1vdW50VmlydHVhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRdrVXNlclNoYXJlVG9rZW5zVmlydHVhbAUQdXNlclN0YWtlZEFtb3VudAMJAGYCBQ91c2VyTG9ja2VkSGVpZ3QFBmhlaWdodAkAAgEJAKwCAgIiWW91IGNhbid0IHVubG9jayBzaGFyZXRva2VucyB0aWxsIAkApAMBBQ91c2VyTG9ja2VkSGVpZ3QEE3VzZXJTdGFrZWRBbW91bnROZXcJAGQCBRB1c2VyU3Rha2VkQW1vdW50BRB1c2VyTG9ja2VkQW1vdW50BA0kdDAyNzUyNTI3NjI0CQEJY2xhaW1DYWxjAgUEcG9vbAUEdXNlcgQMZmFybUludGVyZXN0CAUNJHQwMjc1MjUyNzYyNAJfMQQNYm9vc3RJbnRlcmVzdAgFDSR0MDI3NTI1Mjc2MjQCXzIED2Jvb3N0TFBpbnRlcmVzdAgFDSR0MDI3NTI1Mjc2MjQCXzMEC2NsYWltQW1vdW50CAUNJHQwMjc1MjUyNzYyNAJfNAQKdG9UcmVhc3VyZQgFDSR0MDI3NTI1Mjc2MjQCXzUEEWF2YWlsYWJsZUZ1bmRzTmV3CQBkAgkBEXVzZXJBdmFpbGFibGVTV09QAgUEcG9vbAgFAWkMb3JpZ2luQ2FsbGVyBQtjbGFpbUFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUVa0Zhcm1Vc2VyTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtCb29zdFVzZXJMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFGtCb29zdExQTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQFE3VzZXJTdGFrZWRBbW91bnROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFF2tVc2VyU2hhcmVUb2tlbnNWaXJ0dWFsBRN1c2VyU3Rha2VkQW1vdW50TmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tTaGFyZVRva2Vuc1ZpcnR1YWwJAGQCCQBlAgURdG90YWxTaGFyZVZpcnR1YWwFEXVzZXJBbW91bnRWaXJ0dWFsBRN1c2VyU3Rha2VkQW1vdW50TmV3CQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUca1VzZXJTaGFyZVRva2Vuc0xvY2tlZEhlaWdodAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRprVXNlclNoYXJlVG9rZW5zTG9ja2VkVHlwZQkAzAgCCQEHUmVpc3N1ZQMFBFNXT1AFCnRvVHJlYXN1cmUGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2FpcmRyb3BNb25leUJveEFkZHIFCnRvVHJlYXN1cmUFBFNXT1AJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQxsb2NrV2F2ZXNGZWUFBHVuaXQFA25pbAFpARN3aXRoZHJhd1NoYXJlVG9rZW5zAgRwb29sGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAEDXNoYXJlVG9rZW5zSWQJANkEAQkBEUBleHRyTmF0aXZlKDEwNTMpAgkBBXZhbHVlAQkApggBBQRwb29sAg5zaGFyZV9hc3NldF9pZAQEdXNlcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIEDSR0MDI5MTI4MjkyMjcJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAyOTEyODI5MjI3Al8xBA1ib29zdEludGVyZXN0CAUNJHQwMjkxMjgyOTIyNwJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMjkxMjgyOTIyNwJfMwQLY2xhaW1BbW91bnQIBQ0kdDAyOTEyODI5MjI3Al80BAp0b1RyZWFzdXJlCAUNJHQwMjkxMjgyOTIyNwJfNQQQdXNlclN0YWtlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrVXNlclNoYXJlVG9rZW5zU3Rha2VkAAAEEHVzZXJMb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAAABBN1c2VyU3Rha2VkQW1vdW50TmV3CQBlAgUQdXNlclN0YWtlZEFtb3VudAUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAQRYXZhaWxhYmxlRnVuZHNOZXcJAGQCCQERdXNlckF2YWlsYWJsZVNXT1ACBQRwb29sCAUBaQxvcmlnaW5DYWxsZXIFC2NsYWltQW1vdW50BBB0b3RhbFNoYXJlQW1vdW50CQEYZ2V0VG90YWxTaGFyZVRva2VuU3Rha2VkAQUEcG9vbAQTdG90YWxTaGFyZUFtb3VudE5ldwkAZQIFEHRvdGFsU2hhcmVBbW91bnQFGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQDCQBmAgUZc2hhcmVUb2tlbnNXaXRoZHJhd0Ftb3VudAUTdXNlclN0YWtlZEFtb3VudE5ldwkAAgECLFdpdGhkcmF3IGFtb3VudCBtb3JlIHRoZW4gdXNlciBsb2NrZWQgYW1vdW50AwkAZgIJAQ5hY2NvdW50QmFsYW5jZQEFDXNoYXJlVG9rZW5zSWQFEHRvdGFsU2hhcmVBbW91bnQJAAIBAjBCYWxhbmNlIG9mIHNoYXJlLXRva2VuIGlzIGxvd2VyIHRoYW4gdG90YWxBbW91bnQEBHVwbHADCQAAAgkAnQgCCQEHQWRkcmVzcwEJANkEAQUEcG9vbAIHdmVyc2lvbgIFMy4wLjAJAPwHBAUQbHBGYXJtaW5nQWRkcmVzcwISdXBkYXRlVXNlckludGVyZXN0CQDMCAIFBHBvb2wJAMwIAgkAZAIFEHVzZXJTdGFrZWRBbW91bnQFEHVzZXJMb2NrZWRBbW91bnQFA25pbAUDbmlsAAADCQAAAgUEdXBscAUEdXBscAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUVa0Zhcm1Vc2VyTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtCb29zdFVzZXJMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFGtCb29zdExQTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAURa0Zhcm1MYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRJrQm9vc3RMYXN0SW50ZXJlc3QFDWJvb3N0SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRNrTGFzdEludGVyZXN0SGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFmtVc2VyU2hhcmVUb2tlbnNTdGFrZWQFE3VzZXJTdGFrZWRBbW91bnROZXcJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUWa1NoYXJlVG90YWxTaGFyZVRva2VucwUTdG90YWxTaGFyZUFtb3VudE5ldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUOa0F2YWlsYWJsZVNXT1AFEWF2YWlsYWJsZUZ1bmRzTmV3CQDMCAIJAQdSZWlzc3VlAwUEU1dPUAUKdG9UcmVhc3VyZQYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUTYWlyZHJvcE1vbmV5Qm94QWRkcgUKdG9UcmVhc3VyZQUEU1dPUAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFGXNoYXJlVG9rZW5zV2l0aGRyYXdBbW91bnQFDXNoYXJlVG9rZW5zSWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQVjbGFpbQEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAQNc2hhcmVUb2tlbnNJZAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCCQEFdmFsdWUBCQCmCAEFBHBvb2wCDnNoYXJlX2Fzc2V0X2lkBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQQc2hhcmVUb2tlbkxvY2tlZAkBGGdldFRvdGFsU2hhcmVUb2tlblN0YWtlZAEFBHBvb2wEDSR0MDMxMzczMzE0NzIJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAzMTM3MzMxNDcyAl8xBA1ib29zdEludGVyZXN0CAUNJHQwMzEzNzMzMTQ3MgJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMzEzNzMzMTQ3MgJfMwQLY2xhaW1BbW91bnQIBQ0kdDAzMTM3MzMxNDcyAl80BAp0b1RyZWFzdXJlCAUNJHQwMzEzNzMzMTQ3MgJfNQQNYXZhaWxhYmxlRnVuZAkAZAIJARF1c2VyQXZhaWxhYmxlU1dPUAIFBHBvb2wIBQFpBmNhbGxlcgULY2xhaW1BbW91bnQDCQAAAgUNYXZhaWxhYmxlRnVuZAAACQACAQIZWW91IGhhdmUgMCBhdmFpbGFibGUgU1dPUAMJAGYCCQEOYWNjb3VudEJhbGFuY2UBBQ1zaGFyZVRva2Vuc0lkBRBzaGFyZVRva2VuTG9ja2VkCQACAQIwQmFsYW5jZSBvZiBzaGFyZS10b2tlbiBpcyBsb3dlciB0aGFuIHRvdGFsQW1vdW50CQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFFWtGYXJtVXNlckxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRZrQm9vc3RVc2VyTGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEWtGYXJtTGFzdEludGVyZXN0BQxmYXJtSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUSa0Jvb3N0TGFzdEludGVyZXN0BQ1ib29zdEludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFFGtCb29zdExQTGFzdEludGVyZXN0BQ9ib29zdExQaW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUTa0xhc3RJbnRlcmVzdEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBQ5rQXZhaWxhYmxlU1dPUAAACQDMCAIJAQdSZWlzc3VlAwUEU1dPUAkAZAIFCnRvVHJlYXN1cmUFDWF2YWlsYWJsZUZ1bmQGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2FpcmRyb3BNb25leUJveEFkZHIFCnRvVHJlYXN1cmUFBFNXT1AJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQ1hdmFpbGFibGVGdW5kBQRTV09QBQNuaWwFDWF2YWlsYWJsZUZ1bmQBaQENY2xhaW1BbmRTdGFrZQEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAQLY2xhaW1BbW91bnQKAAFACQD8BwQFBHRoaXMCBWNsYWltCQDMCAIFBHBvb2wFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQtjbGFpbUFtb3VudAULY2xhaW1BbW91bnQECnN0YWtlVG9Hb3YJAPwHBAUKZ292QWRkcmVzcwITbG9ja1NXT1BGcm9tRmFybWluZwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRTV09QBQtjbGFpbUFtb3VudAUDbmlsAwkAAAIFCnN0YWtlVG9Hb3YFCnN0YWtlVG9Hb3YFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhjbGFpbUFsbAEFcG9vbHMJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAKAQhjbGFpbUludgIKY2xhaW1Ub3RhbARwb29sBAtjbGFpbUFtb3VudAoAAUAJAPwHBAUEdGhpcwIFY2xhaW0JAMwIAgUEcG9vbAUDbmlsBQNuaWwDCQABAgUBQAIDSW50BQFACQACAQkArAICCQADAQUBQAIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50AwkAAAIFC2NsYWltQW1vdW50BQtjbGFpbUFtb3VudAkAZAIFCmNsYWltVG90YWwFC2NsYWltQW1vdW50CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBApjbGFpbVRvdGFsCgACJGwFBXBvb2xzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhjbGFpbUludgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwDCQAAAgUKY2xhaW1Ub3RhbAAACQACAQIZWW91IGhhdmUgMCBhdmFpbGFibGUgU1dPUAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCmNsYWltVG90YWwFBFNXT1AFA25pbAFpARBjbGFpbUFsbEFuZFN0YWtlAQVwb29scwkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAoBCGNsYWltSW52AgpjbGFpbVRvdGFsBHBvb2wEC2NsYWltQW1vdW50CgABQAkA/AcEBQR0aGlzAgVjbGFpbQkAzAgCBQRwb29sBQNuaWwFA25pbAMJAAECBQFAAgNJbnQFAUAJAAIBCQCsAgIJAAMBBQFAAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQDCQAAAgULY2xhaW1BbW91bnQFC2NsYWltQW1vdW50CQBkAgUKY2xhaW1Ub3RhbAULY2xhaW1BbW91bnQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4ECmNsYWltVG90YWwKAAIkbAUFcG9vbHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCGNsYWltSW52AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA2MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIAMwA0ADUANgA3ADgAOQA6ADsAPAMJAAACBQpjbGFpbVRvdGFsAAAJAAIBAhlZb3UgaGF2ZSAwIGF2YWlsYWJsZSBTV09QBApzdGFrZVRvR292CQD8BwQFCmdvdkFkZHJlc3MCE2xvY2tTV09QRnJvbUZhcm1pbmcFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEU1dPUAUKY2xhaW1Ub3RhbAUDbmlsAwkAAAIFCnN0YWtlVG9Hb3YFCnN0YWtlVG9Hb3YFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARd1cGRhdGVVc2VyQm9vc3RJbnRlcmVzdAIEcG9vbAR1c2VyCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUAAwkBAiE9AggFAWkGY2FsbGVyBQ12b3RpbmdBZGRyZXNzCQACAQIjT25seSB2b2l0aW5nIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24EDSR0MDMzODUyMzM5NTEJAQljbGFpbUNhbGMCBQRwb29sBQR1c2VyBAxmYXJtSW50ZXJlc3QIBQ0kdDAzMzg1MjMzOTUxAl8xBA1ib29zdEludGVyZXN0CAUNJHQwMzM4NTIzMzk1MQJfMgQPYm9vc3RMUGludGVyZXN0CAUNJHQwMzM4NTIzMzk1MQJfMwQLY2xhaW1BbW91bnQIBQ0kdDAzMzg1MjMzOTUxAl80BAp0b1RyZWFzdXJlCAUNJHQwMzM4NTIzMzk1MQJfNQQRYXZhaWxhYmxlRnVuZHNOZXcJAGQCCQERdXNlckF2YWlsYWJsZVNXT1ACBQRwb29sCAUBaQxvcmlnaW5DYWxsZXIFC2NsYWltQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRVrRmFybVVzZXJMYXN0SW50ZXJlc3QFDGZhcm1JbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUWa0Jvb3N0VXNlckxhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUUa0Jvb3N0TFBMYXN0SW50ZXJlc3QFD2Jvb3N0TFBpbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRFrRmFybUxhc3RJbnRlcmVzdAUMZmFybUludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFEmtCb29zdExhc3RJbnRlcmVzdAUNYm9vc3RJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQRwb29sBRRrQm9vc3RMUExhc3RJbnRlcmVzdAUPYm9vc3RMUGludGVyZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFE2tMYXN0SW50ZXJlc3RIZWlnaHQFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgUOa0F2YWlsYWJsZVNXT1AFEWF2YWlsYWJsZUZ1bmRzTmV3CQDMCAIJAQdSZWlzc3VlAwUEU1dPUAUKdG9UcmVhc3VyZQYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUTYWlyZHJvcE1vbmV5Qm94QWRkcgUKdG9UcmVhc3VyZQUEU1dPUAUDbmlsAWkBCHNodXRkb3duAAkBC3ZhbHVlT3JFbHNlAgkBC2lzQWRtaW5DYWxsAQUBaQMJAQEhAQUGYWN0aXZlCQACAQkArAICAiJEQXBwIGlzIGFscmVhZHkgc3VzcGVuZGVkLiBDYXVzZTogCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMFBmtDYXVzZQIadGhlIGNhdXNlIHdhc24ndCBzcGVjaWZpZWQJAQdzdXNwZW5kAQIPUGF1c2VkIGJ5IGFkbWluAWkBCGFjdGl2YXRlAAkBC3ZhbHVlT3JFbHNlAgkBC2lzQWRtaW5DYWxsAQUBaQMFBmFjdGl2ZQkAAgECFkRBcHAgaXMgYWxyZWFkeSBhY3RpdmUJAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2tBY3RpdmUGCQDMCAIJAQtEZWxldGVFbnRyeQEFBmtDYXVzZQUDbmlsAQJ0eAEGdmVyaWZ5AAQHJG1hdGNoMAUCdHgEEmFkbWluUHViS2V5MVNpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFDGFkbWluUHViS2V5MQABAAAEEmFkbWluUHViS2V5MlNpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAEFDGFkbWluUHViS2V5MgABAAAEEmFkbWluUHViS2V5M1NpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAIFDGFkbWluUHViS2V5MwABAAAJAGcCCQBkAgkAZAIFEmFkbWluUHViS2V5MVNpZ25lZAUSYWRtaW5QdWJLZXkyU2lnbmVkBRJhZG1pblB1YktleTNTaWduZWQAAtOm7ms=",
    "height": 2277953,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7NXR58diaiVszBSE7KAcn8TYT2ai7odPTAt3zd4BFT2m
Next: Yat37uPdCqfD1maLiPe6WR4HQcVLmeyMY48afutrdGq

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let keyShareTokensLocked = "_total_share_tokens_locked"
4+let kActive = "active"
55 
6-let kShareLimit = "share_limit_on_first_harvest"
6+let kCause = "shutdown_cause"
77 
8-let keyActive = "active"
8+let kRewardPoolFractionCurrent = "_current_pool_fraction_reward"
99 
10-let keyCause = "shutdown_cause"
10+let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
1111 
12-let keyRewardPoolFractionCurrent = "_current_pool_fraction_reward"
12+let kHeightPoolFraction = "_pool_reward_update_height"
1313 
14-let keyRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
14+let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
1515 
16-let keyHeightPoolFraction = "_pool_reward_update_height"
16+let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
1717 
18-let keyTotalRewardPerBlockCurrent = "total_reward_per_block_current"
18+let kRewardUpdateHeight = "reward_update_height"
1919 
20-let keyTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
20+let kUserShareTokensStaked = "_share_tokens_locked"
2121 
22-let keyRewardUpdateHeight = "reward_update_height"
22+let kUserShareTokensLocked = "_share_tokens_blocked"
2323 
24-let keyLastInterest = "_last_interest"
24+let kUserShareTokensLockedType = "_share_tokens_blocked_type"
2525 
26-let keyLastInterestHeight = "_last_interest_height"
26+let kUserShareTokensLockedHeight = "_share_tokens_blocked_height"
2727 
28-let keyUserShareTokensLocked = "_share_tokens_locked"
28+let kUserShareTokensVirtual = "_share_tokens_virtual"
2929 
30-let keyUserLastInterest = "_last_interest"
30+let kShareTotalShareTokens = "_total_share_tokens_locked"
3131 
32-let keySWOPid = "SWOP_id"
32+let kShareTokensVirtual = "_total_share_tokens_virtual"
3333 
34-let keyUserSWOPClaimedAmount = "_SWOP_claimed_amount"
34+let kLockParams = "_lock_params"
3535 
36-let keyUserSWOPLastClaimedAmount = "_SWOP_last_claimed_amount"
36+let kLockWavesFee = "lock_waves_fee"
3737 
38-let keyAvailableSWOP = "_available_SWOP"
38+let kPoolBoostCoef = "_boost_coef"
3939 
40-let keyFarmingStartHeight = "farming_start_height"
40+let kFarmLastInterest = "_last_interest"
4141 
42-let keyAPY = "apy"
42+let kFarmUserLastInterest = "_last_interest"
4343 
44-let kPreviousTotalVoteSWOP = "previous_total_vote_SWOP"
44+let kBoostLastInterest = "_last_interest_b"
4545 
46-let keySwopYearEmission = "swop_year_emission"
46+let kBoostUserLastInterest = "_last_interest_u_b"
4747 
48-let keyBalancecpmmA = "A_asset_balance"
48+let kBoostLPLastInterest = "_last_interest_lpb"
4949 
50-let keyBalancecpmmB = "B_asset_balance"
50+let kBoostLPUserLastInterest = "_last_interest_u_lpb"
5151 
52-let kHarvestPoolActiveVoteStrucVoting = "_harvest_pool_activeVote_struc"
52+let kLastInterestHeight = "_last_interest_height"
5353 
54-let kHarvestUserPoolActiveVoteStrucVoting = "_harvest_user_pool_activeVote_struc"
54+let kSWOPid = "SWOP_id"
5555 
56-let keyLimitShareFirstHarvest = "share_limit_on_first_harvest"
56+let kAvailableSWOP = "_available_SWOP"
5757 
58-let keyAssetIdA = "A_asset_id"
58+let kSwopYearEmission = "swop_year_emission"
5959 
60-let keyAssetIdB = "B_asset_id"
60+let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
6161 
62-let keyFirstHarvestHeight = "first_harvest_height"
62+let kPoolVote = "_pool_vote_gSWOP"
6363 
64-let keyfirstHarvestCpmm = "first_harvest"
64+let kUserPoolVote = "_user_vote_gSWOP"
6565 
66-let keyTempPrevSum = "sum_reward_previous"
66+let kHarvestUserPoolVote = "_harvest_user_pool_vote_gSWOP"
6767 
68-let keyTempCurSum = "sum_reward_current"
68+let kBasePeriod = "base_period"
6969 
70-let oneWeekInBlock = 10106
70+let kPeriodLength = "period_length"
7171 
72-let totalVoteShare = 10000000000
72+let kStartHeight = "start_height"
7373 
74-let scaleValue1 = 10
74+let kFirstHarvestHeight = "first_harvest_height"
7575 
76-let scaleValue3 = 1000
77-
78-let scaleValue5 = 100000
79-
80-let scaleValue6 = 1000000
81-
82-let scaleValue8 = 100000000
83-
84-let scaleValue11 = 100000000000
76+let kShareLimitFH = "share_limit_on_first_harvest"
8577 
8678 let kAdminPubKey1 = "admin_pub_1"
8779 
9991 
10092 let kLPFarmingAddress = "lp_farming"
10193 
94+let kAirdropMoneyBoxAddr = "airdrop_fee_money_box"
95+
10296 let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
97+
98+let totalVoteShare = 10000000000
99+
100+let lockBoostCoefScale = 1000
101+
102+let defPoolBoostCoef = 500
103103 
104104 func getBase58FromOracle (key) = match getString(oracle, key) {
105105     case string: String => 
125125 
126126 let lpFarmingAddress = Address(getBase58FromOracle(kLPFarmingAddress))
127127 
128-func strAssetIdA (pool) = getStringValue(pool, keyAssetIdA)
129-
130-
131-func strAssetIdB (pool) = getStringValue(pool, keyAssetIdB)
132-
133-
134-func assetIdA (pool) = if ((strAssetIdA(pool) == "WAVES"))
135-    then unit
136-    else fromBase58String(strAssetIdA(pool))
137-
138-
139-func assetIdB (pool) = if ((strAssetIdB(pool) == "WAVES"))
140-    then unit
141-    else fromBase58String(strAssetIdB(pool))
142-
143-
144-let kBasePeriod = "base_period"
145-
146-let kPeriodLength = "period_length"
147-
148-let kStartHeight = "start_height"
149-
150-let kFirstHarvestHeight = "first_harvest_height"
151-
152-let kDurationFullVotePower = "duration_full_vote_power"
153-
154-let kMinVotePower = "min_vote_power"
128+let airdropMoneyBoxAddr = Address(getBase58FromOracle(kAirdropMoneyBoxAddr))
155129 
156130 let basePeriod = valueOrErrorMessage(getInteger(votingAddress, kBasePeriod), "Empty kBasePeriod")
157131 
159133 
160134 let periodLength = valueOrErrorMessage(getInteger(votingAddress, kPeriodLength), "Empty kPeriodLength")
161135 
162-let durationFullVotePower = valueOrErrorMessage(getInteger(votingAddress, kDurationFullVotePower), "Empty kDurationFullVotePower")
163-
164-let minVotePower = valueOrErrorMessage(getInteger(votingAddress, kMinVotePower), "Empty kMinVotePower")
165-
166-let isActive = getBooleanValue(this, keyActive)
167-
168136 let currPeriod = (basePeriod + ((height - startHeight) / periodLength))
169137 
170-func getLimitToken (pool) = valueOrElse(getIntegerValue(pool, keyLimitShareFirstHarvest), 0)
138+let active = getBooleanValue(this, kActive)
139+
140+let SwopYearEmission = getIntegerValue(this, kSwopYearEmission)
141+
142+let SWOP = fromBase58String(getStringValue(this, kSWOPid))
143+
144+func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
171145 
172146 
173-let APY = getIntegerValue(this, keyAPY)
174-
175-let SwopYearEmission = getIntegerValue(this, keySwopYearEmission)
176-
177-func assetNameA (pool) = match assetIdA(pool) {
178-    case id: ByteVector => 
179-        value(assetInfo(id)).name
180-    case waves: Unit => 
181-        "WAVES"
182-    case _ => 
183-        throw("Match error")
184-}
147+func getFHShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimitFH), ("No data on the key: " + kShareLimitFH))
185148 
186149 
187-func assetNameB (pool) = match assetIdB(pool) {
188-    case id: ByteVector => 
189-        value(assetInfo(id)).name
190-    case waves: Unit => 
191-        "WAVES"
192-    case _ => 
193-        throw("Match error")
194-}
150+func getTotalShareTokenStaked (pool) = valueOrErrorMessage(getInteger(this, (pool + kShareTotalShareTokens)), (("No data on the key: " + pool) + kShareTotalShareTokens))
195151 
196152 
197-let SWOP = fromBase58String(getStringValue(this, keySWOPid))
198-
199-func isFirstHarvest (pool) = valueOrElse(getBoolean(pool, keyfirstHarvestCpmm), false)
153+func getPoolVoted (pool) = valueOrElse(getInteger(votingAddress, (pool + kPoolVote)), 0)
200154 
201155 
202-func getHeightFirstHarvest (pool) = valueOrElse(getInteger(pool, keyFirstHarvestHeight), 0)
203-
204-
205-func getBalanceA (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmA), ("No data on the key: " + keyBalancecpmmA))
206-
207-
208-func getBalanceB (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmB), ("No data on the key: " + keyBalancecpmmB))
209-
210-
211-func getShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimit), ("No data on the key: " + kShareLimit))
212-
213-
214-func getTotalShareTokenLocked (pool) = valueOrErrorMessage(getInteger(this, (pool + keyShareTokensLocked)), (("No data on the key: " + pool) + keyShareTokensLocked))
156+func getUserPoolVoted (pool,user) = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kPoolVote)), 0)
215157 
216158 
217159 func getShareAssetId (pool) = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
247189     }
248190 
249191 
250-func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyAvailableSWOP)), 0)
192+func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + kAvailableSWOP)), 0)
251193 
252194 
253195 func rewardInfo (pool) = {
254-    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, keyTotalRewardPerBlockCurrent), ((("No data on the key: " + keyTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
255-    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, keyTotalRewardPerBlockPrevious), ((("No data on the key: " + keyTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
256-    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + keyRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + keyRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
257-    let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, keyRewardUpdateHeight), ((("No data on the key: " + keyRewardUpdateHeight) + " at address ") + toString(govAddress)))
258-    let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + keyHeightPoolFraction)), 0)
259-    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + keyRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + keyRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
196+    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
197+    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
198+    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
199+    let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
200+    let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
201+    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
260202     let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
261-    let rewardPoolPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
203+    let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
262204     if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
263205         then true
264206         else (rewardPoolPrevious > totalRewardPerBlockPrevious))
268210 
269211 
270212 func getLastInterestInfo (pool) = {
271-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
272-    let lastInterestHeight = valueOrElse(getInteger(this, (pool + keyLastInterestHeight)), height)
273-    $Tuple2(lastInterestHeight, lastInterest)
213+    let farmInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kFarmLastInterest))
214+    let boostInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kBoostLastInterest))
215+    let boostLPInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kBoostLPLastInterest))
216+    let lastInterestHeight = valueOrElse(getInteger(this, (pool + kLastInterestHeight)), height)
217+    $Tuple4(lastInterestHeight, farmInterest, boostInterest, boostLPInterest)
274218     }
275219 
276220 
277-func getUserInterestInfo (pool,userAddress) = {
278-    let userLastInterest = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserLastInterest))
279-    let userShare = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserShareTokensLocked))
280-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
281-    let userLastInterestValue =     match userLastInterest {
282-        case userLastInterest: Int => 
283-            userLastInterest
284-        case _ => 
285-            lastInterest
286-    }
287-    let userShareTokensAmount =     match userShare {
288-        case userShare: Int => 
289-            userShare
290-        case _ => 
291-            0
292-    }
293-    $Tuple2(userLastInterestValue, userShareTokensAmount)
221+func calcFarmRwd (pool,curTotalReward) = {
222+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
223+    ((curTotalReward / (poolBoostCoef + 1)) / lockBoostCoefScale)
294224     }
295225 
296226 
297-func calcInterest (lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,lastInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,shareAssetId,scaleValue,pmtAmount) = if ((shareTokenLocked == 0))
298-    then 0
299-    else if ((poolRewardUpdateHeight != 0))
300-        then if (if ((rewardUpdateHeight > height))
301-            then (rewardUpdateHeight == poolRewardUpdateHeight)
227+func calcBoostRwd (pool,curTotalReward) = {
228+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
229+    (fraction(curTotalReward, poolBoostCoef, (poolBoostCoef + 1)) / lockBoostCoefScale)
230+    }
231+
232+
233+func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,boostLpInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = if ((shareTokenLocked == 0))
234+    then $Tuple3(0, 0, 0)
235+    else if (if ((rewardUpdateHeight > height))
236+        then (rewardUpdateHeight == poolRewardUpdateHeight)
237+        else false)
238+        then {
239+            let reward = (previousRewardPerBlock * (height - lastInterestHeight))
240+            let newFarmInterest = (farmInterest + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
241+            let newBoostInterest = (boostInterest + (if ((poolVoted > 0))
242+                then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
243+                else 0))
244+            let newBoostLPInterest = (boostLpInterest + (if (if ((poolVoted > 0))
245+                then (shareTokenLocked > 0)
246+                else false)
247+                then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
248+                else 0))
249+            $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
250+            }
251+        else if (if ((height > rewardUpdateHeight))
252+            then (rewardUpdateHeight != poolRewardUpdateHeight)
302253             else false)
303254             then {
304255                 let reward = (previousRewardPerBlock * (height - lastInterestHeight))
305-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
256+                let newFarmInterest = (farmInterest + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
257+                let newBoostInterest = (boostInterest + (if ((poolVoted > 0))
258+                    then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
259+                    else 0))
260+                let newBoostLPInterest = (boostLpInterest + (if (if ((poolVoted > 0))
261+                    then (shareTokenLocked > 0)
262+                    else false)
263+                    then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
264+                    else 0))
265+                $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
306266                 }
307-            else if (if ((height > rewardUpdateHeight))
308-                then (rewardUpdateHeight != poolRewardUpdateHeight)
267+            else if (if (if ((height > rewardUpdateHeight))
268+                then (rewardUpdateHeight == poolRewardUpdateHeight)
269+                else false)
270+                then (lastInterestHeight > rewardUpdateHeight)
309271                 else false)
310272                 then {
311-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
312-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
313-                    }
314-                else if (if (if ((height > rewardUpdateHeight))
315-                    then (rewardUpdateHeight == poolRewardUpdateHeight)
316-                    else false)
317-                    then (lastInterestHeight > rewardUpdateHeight)
318-                    else false)
319-                    then {
320-                        let reward = (currentRewardPerBlock * (height - lastInterestHeight))
321-                        (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
322-                        }
323-                    else {
324-                        let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
325-                        let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
326-                        let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
327-                        (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
328-                        }
329-        else if ((rewardUpdateHeight > height))
330-            then {
331-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
332-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
333-                }
334-            else if ((lastInterestHeight > rewardUpdateHeight))
335-                then {
336273                     let reward = (currentRewardPerBlock * (height - lastInterestHeight))
337-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
274+                    let newFarmInterest = (farmInterest + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
275+                    let newBoostInterest = (boostInterest + (if ((poolVoted > 0))
276+                        then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
277+                        else 0))
278+                    let newBoostLPInterest = (boostLpInterest + (if (if ((poolVoted > 0))
279+                        then (shareTokenLocked > 0)
280+                        else false)
281+                        then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
282+                        else 0))
283+                    $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
338284                     }
339285                 else {
340-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
341-                    let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
286+                    let rwdBfrUpd = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
287+                    let framIntrAftrUp = (farmInterest + fraction(calcFarmRwd(pool, rwdBfrUpd), scaleValue, shareTokenLocked))
288+                    let boostIntrAftrUp = (boostInterest + (if ((poolVoted > 0))
289+                        then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue, poolVoted)
290+                        else 0))
291+                    let bostLPIntrAftrUp = (farmInterest + (if (if ((poolVoted > 0))
292+                        then (shareTokenLocked > 0)
293+                        else false)
294+                        then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue, poolVoted)
295+                        else 0))
342296                     let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
343-                    (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
297+                    let newFarmInterest = (framIntrAftrUp + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
298+                    let newBoostInterest = (boostIntrAftrUp + (if ((poolVoted > 0))
299+                        then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
300+                        else 0))
301+                    let newBoostLPInterest = (bostLPIntrAftrUp + (if (if ((poolVoted > 0))
302+                        then (shareTokenLocked > 0)
303+                        else false)
304+                        then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
305+                        else 0))
306+                    $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
344307                     }
345308 
346309 
347-func claimCalc (pool,caller,pmtAmount) = {
348-    let shareAssetId = getShareAssetId(pool)
349-    let scaleValue = calcScaleValue(SWOP, shareAssetId)
350-    let shareTokenLocked = getTotalShareTokenLocked(pool)
351-    let $t01352213587 = getLastInterestInfo(pool)
352-    let lastInterestHeight = $t01352213587._1
353-    let lastInterest = $t01352213587._2
354-    let $t01359213704 = rewardInfo(pool)
355-    let currentRewardPerBlock = $t01359213704._1
356-    let rewardUpdateHeight = $t01359213704._2
357-    let previousRewardPerBlock = $t01359213704._3
358-    let poolRewardUpdateHeight = $t01359213704._4
359-    let $t01370913788 = getUserInterestInfo(pool, caller)
360-    let userLastInterest = $t01370913788._1
361-    let userShareTokensAmount = $t01370913788._2
362-    let currentInterest = calcInterest(lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, lastInterest, currentRewardPerBlock, shareTokenLocked, previousRewardPerBlock, shareAssetId, scaleValue, pmtAmount)
363-    let claimAmount = fraction(userShareTokensAmount, (currentInterest - userLastInterest), scaleValue)
364-    let userNewInterest = currentInterest
365-    $Tuple4(userNewInterest, currentInterest, claimAmount, userShareTokensAmount)
310+func claimCalc (pool,user) = {
311+    let scaleValue = calcScaleValue(SWOP, getShareAssetId(pool))
312+    let poolVoted = getPoolVoted(pool)
313+    let uPoolVoted = getUserPoolVoted(pool, user)
314+    let shareTokenStaked = getTotalShareTokenStaked(pool)
315+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareTokenStaked)
316+    let $t01420114299 = getLastInterestInfo(pool)
317+    let lastInterestHeight = $t01420114299._1
318+    let farmInterest = $t01420114299._2
319+    let boostInterest = $t01420114299._3
320+    let boostLPInterest = $t01420114299._4
321+    let $t01430414418 = rewardInfo(pool)
322+    let currentRewardPerBlock = $t01430414418._1
323+    let rewardUpdateHeight = $t01430414418._2
324+    let previousRewardPerBlock = $t01430414418._3
325+    let poolRewardUpdateHeight = $t01430414418._4
326+    let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
327+    let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), boostInterest)
328+    let uBoostLPInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostLPUserLastInterest)), boostLPInterest)
329+    let uShareTokensStaked = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
330+    let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
331+    let $t01498615378 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, boostLPInterest, currentRewardPerBlock, shareTokenStaked, previousRewardPerBlock, scaleValue)
332+    let newFarmInterest = $t01498615378._1
333+    let newBoostInterest = $t01498615378._2
334+    let newBoostLPInterest = $t01498615378._3
335+    let claimFarming = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
336+    let claimBoostingMax = fraction(uPoolVoted, (newBoostInterest - uBoostInterest), scaleValue)
337+    let claimBoosting = fraction((uShareTokensVirt * uPoolVoted), (newBoostLPInterest - uBoostLPInterest), scaleValue)
338+    let toTreasury = (claimBoostingMax - claimBoosting)
339+    $Tuple5(newFarmInterest, newBoostInterest, newBoostLPInterest, (claimFarming + claimBoosting), toTreasury)
366340     }
367341 
368342 
369-func calculateProtocolReward (pool) = {
370-    let $t01430614371 = getLastInterestInfo(pool)
371-    let lastInterestHeight = $t01430614371._1
372-    let lastInterest = $t01430614371._2
373-    let $t01437614487 = rewardInfo(pool)
374-    let currentRewardPerBlock = $t01437614487._1
375-    let rewardUpdateHeight = $t01437614487._2
376-    let previousRewardPerBlock = $t01437614487._3
377-    let poolRewardUpdateHeight = $t01437614487._4
378-    let shareTokenLocked = getTotalShareTokenLocked(pool)
379-    if (if ((shareTokenLocked == 0))
380-        then (poolRewardUpdateHeight == 0)
381-        else false)
382-        then if ((rewardUpdateHeight > height))
383-            then {
384-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
385-                reward
386-                }
387-            else if ((lastInterestHeight > rewardUpdateHeight))
388-                then {
389-                    let reward = (currentRewardPerBlock * (height - lastInterestHeight))
390-                    reward
391-                    }
392-                else {
393-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
394-                    let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
395-                    (reward + rewardAfterLastInterestBeforeReawardUpdate)
396-                    }
397-        else if (if ((shareTokenLocked == 0))
398-            then (poolRewardUpdateHeight != 0)
399-            else false)
400-            then if (if ((rewardUpdateHeight > height))
401-                then (rewardUpdateHeight == poolRewardUpdateHeight)
402-                else false)
403-                then {
404-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
405-                    reward
406-                    }
407-                else if (if ((height > rewardUpdateHeight))
408-                    then (rewardUpdateHeight != poolRewardUpdateHeight)
409-                    else false)
410-                    then {
411-                        let reward = (previousRewardPerBlock * (height - lastInterestHeight))
412-                        reward
413-                        }
414-                    else if (if (if ((height > rewardUpdateHeight))
415-                        then (rewardUpdateHeight == poolRewardUpdateHeight)
416-                        else false)
417-                        then (lastInterestHeight > rewardUpdateHeight)
418-                        else false)
419-                        then {
420-                            let reward = (currentRewardPerBlock * (height - lastInterestHeight))
421-                            reward
422-                            }
423-                        else {
424-                            let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
425-                            let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
426-                            (reward + rewardAfterLastInterestBeforeReawardUpdate)
427-                            }
428-            else 0
343+func canLockInFirstHarvest (pool,user,userShareTokensStaked,pmtAmount,lockType) = if ((height > getHeightFirstHarvest(pool)))
344+    then {
345+        let totalVoteAmount = valueOrElse(getInteger(votingAddress, (pool + kHarvestPoolVote)), 0)
346+        let userVoteAmount = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kHarvestPoolVote)), 0)
347+        let FHShareTokenLimit = getFHShareLimitToken(addressFromStringValue(pool))
348+        let FHShareTokenUserLimit = (fraction(FHShareTokenLimit, userVoteAmount, totalVoteAmount) - userShareTokensStaked)
349+        if ((lockType > 0))
350+            then throw("You can't lock shareTokens till first harvest end.")
351+            else if ((userVoteAmount == 0))
352+                then throw("You can't lock shareTokens because you didn't vote in first harvest")
353+                else if ((pmtAmount > FHShareTokenUserLimit))
354+                    then throw(("You can't lock more than you vote in first harvest. Your can lock " + toString(FHShareTokenUserLimit)))
355+                    else true
356+        }
357+    else true
358+
359+
360+func getLockParams (type) = {
361+    let lockParams = split(valueOrErrorMessage(getString(this, (toString(type) + kLockParams)), ("There are no key for lock type" + toString(type))), "_")
362+    $Tuple2(parseIntValue(lockParams[0]), parseIntValue(lockParams[1]))
429363     }
430364 
431365 
432-func checkPmtAssetIdCorrect (pool,pmtAssetId) = {
433-    let poolShareAssetId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
434-    if ((pmtAssetId == poolShareAssetId))
435-        then true
436-        else false
437-    }
366+func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
438367 
439368 
440-func getUserSWOPClaimedAmount (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyUserSWOPClaimedAmount)), 0)
369+func isActive () = if (active)
370+    then unit
371+    else throw("DApp is inactive at this moment")
441372 
442373 
443-func suspend (cause) = [BooleanEntry(keyActive, false), StringEntry(keyCause, cause)]
374+func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
375+    then unit
376+    else throw("Only admin can call this function")
444377 
445378 
446379 @Callable(i)
447-func init (earlyLP) = if (isDefined(getString(this, keySWOPid)))
380+func init (earlyLP) = if (isDefined(getString(this, kSWOPid)))
448381     then throw("SWOP already initialized")
449382     else {
450383         let initAmount = 100000000000000
451384         let SWOPissue = Issue("SWOP", "SWOP protocol token", initAmount, 8, true)
452385         let SWOPid = calculateAssetId(SWOPissue)
453-[BooleanEntry(keyActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(keySWOPid, toBase58String(SWOPid))]
386+[BooleanEntry(kActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(kSWOPid, toBase58String(SWOPid))]
454387         }
455388 
456389 
457390 
458391 @Callable(i)
459-func initPoolShareFarming (pool) = if ((i.caller != this))
460-    then throw("Only the DApp itself can call this function")
461-    else {
462-        let $t01746917572 = rewardInfo(pool)
463-        let currentReward = $t01746917572._1
464-        let rewardUpdateHeight = $t01746917572._2
465-        let previousRewardPerBlock = $t01746917572._3
466-        let poolRewardUpdateHeight = $t01746917572._4
467-[IntegerEntry((pool + keyShareTokensLocked), 0), IntegerEntry((pool + keyLastInterest), 0), IntegerEntry((pool + keyLastInterestHeight), height)]
468-        }
392+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)])
469393 
470394 
471395 
472396 @Callable(i)
473-func updatePoolInterest (pool) = if ((i.caller != moneyBoxAddress))
474-    then throw("Only the Admin itself can call this function")
475-    else if (!(isActive))
476-        then throw("DApp is inactive at this moment")
477-        else {
478-            let $t01799018123 = claimCalc(pool, addressFromPublicKey(adminInvokePubKey), 0)
479-            let userNewInterest = $t01799018123._1
480-            let currentInterest = $t01799018123._2
481-            let claimAmount = $t01799018123._3
482-            let userShareTokensAmount = $t01799018123._4
483-            let $t01812818231 = rewardInfo(pool)
484-            let currentReward = $t01812818231._1
485-            let rewardUpdateHeight = $t01812818231._2
486-            let previousRewardPerBlock = $t01812818231._3
487-            let poolRewardUpdateHeight = $t01812818231._4
488-[IntegerEntry((pool + keyLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterestHeight), height)]
489-            }
397+func updatePoolInterest (pool) = valueOrElse(isActive(), if ((i.caller != govAddress))
398+    then throw("Only Governance can call this function")
399+    else {
400+        let user = toString(addressFromPublicKey(adminInvokePubKey))
401+        let $t01853818612 = claimCalc(pool, user)
402+        let farmInterest = $t01853818612._1
403+        let boostInterest = $t01853818612._2
404+        let boostLPinterest = $t01853818612._3
405+[IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height)]
406+        })
490407 
491408 
492409 
493410 @Callable(i)
494-func lockShareTokens (pool) = {
495-    let $t01842318498 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
496-    let pmtAmount = $t01842318498._1
497-    let pmtAssetId = $t01842318498._2
498-    let $t01850318576 = getAssetInfo(pmtAssetId)
499-    let pmtStrAssetId = $t01850318576._1
500-    let pmtAssetName = $t01850318576._2
501-    let pmtDecimals = $t01850318576._3
502-    let $t01858118698 = claimCalc(pool, i.originCaller, pmtAmount)
503-    let userNewInterest = $t01858118698._1
504-    let currentInterest = $t01858118698._2
505-    let claimAmount = $t01858118698._3
506-    let userShareTokensAmount = $t01858118698._4
507-    let userShareAmountNew = (userShareTokensAmount + pmtAmount)
508-    let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
509-    let totalShareAmount = getTotalShareTokenLocked(pool)
510-    let totalShareAmountNew = (totalShareAmount + pmtAmount)
511-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.originCaller)
512-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
513-    let baseEntry = [IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPLastClaimedAmount), claimAmount), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyAvailableSWOP), availableFundsNew)]
514-    let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
515-        then invoke(lpFarmingAddress, "updateUserInterest", [pool, userShareAmountNew], nil)
516-        else 0
517-    if ((uplp == uplp))
518-        then 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.originCaller) + "_") + pool) + "_user_pool_struc")), "_")
530-                            let amountPoolStract = split(getStringValue(votingAddress, (pool + "_pool_struc")), "_")
531-                            let amountActiveVoteUserPoolStract = split(valueOrElse(getString(votingAddress, (((toString(i.originCaller) + "_") + 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(moneyBoxAddress, 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-        else throw("Strict value is not equal to itself.")
565-    }
411+func lockShareTokens (pool,lockType) = valueOrElse(isActive(), {
412+    let shareAssetId = getShareAssetId(pool)
413+    let user = toString(i.originCaller)
414+    let totalShareStaked = getTotalShareTokenStaked(pool)
415+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareStaked)
416+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
417+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
418+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
419+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
420+    let totalShareStakedNew = (totalShareStaked + i.payments[0].amount)
421+    let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
422+    let $t01980919861 = getLockParams(lockType)
423+    let lockPeriod = $t01980919861._1
424+    let lockCoef = $t01980919861._2
425+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
426+    if ((0 >= i.payments[0].amount))
427+        then throw("Payment amount must be greater than 0")
428+        else if ((0 > lockType))
429+            then throw("lockType must be >= 0")
430+            else if ((accountBalance(shareAssetId) > totalShareStakedNew))
431+                then throw("Balance of share-token is lower than totalAmount")
432+                else if (!(canLockInFirstHarvest(pool, user, userStakedAmount, i.payments[0].amount, lockType)))
433+                    then throw()
434+                    else {
435+                        let $t02031321949 = if ((lockType == 0))
436+                            then {
437+                                let userAmountVirtualNew = (userAmountVirtual + i.payments[0].amount)
438+                                $Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), (userStakedAmount + i.payments[0].amount)), IntegerEntry((pool + kShareTokensVirtual), (totalShareVirtual + i.payments[0].amount))], userAmountVirtualNew)
439+                                }
440+                            else if (if ((userLockedHeigt == 0))
441+                                then if (if ((2 > size(i.payments)))
442+                                    then true
443+                                    else (i.payments[1].assetId != unit))
444+                                    then true
445+                                    else (lockWavesFee > i.payments[1].amount)
446+                                else false)
447+                                then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
448+                                else if ((userLockedHeigt > (height + lockPeriod)))
449+                                    then throw("You cannot lock sharetokens for a period less than what you have already locked")
450+                                    else {
451+                                        let userLockedAmountNew = (userLockedAmount + i.payments[0].amount)
452+                                        let userLockedHeigtNew = (height + lockPeriod)
453+                                        let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
454+                                        $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))], userAmountVirtualNew)
455+                                        }
456+                        let lockEntries = $t02031321949._1
457+                        let userAmountVirtualNew = $t02031321949._2
458+                        let $t02195522054 = claimCalc(pool, user)
459+                        let farmInterest = $t02195522054._1
460+                        let boostInterest = $t02195522054._2
461+                        let boostLPinterest = $t02195522054._3
462+                        let claimAmount = $t02195522054._4
463+                        let toTreasure = $t02195522054._5
464+                        let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
465+                        let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
466+                            then invoke(lpFarmingAddress, "updateUserInterest", [pool, totalUserShareTokens], nil)
467+                            else 0
468+                        if ((uplp == uplp))
469+                            then ([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((pool + kShareTotalShareTokens), totalShareStakedNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(airdropMoneyBoxAddr, toTreasure, SWOP)] ++ lockEntries)
470+                            else throw("Strict value is not equal to itself.")
471+                        }
472+    })
566473 
567474 
568475 
569476 @Callable(i)
570-func withdrawShareTokens (pool,shareTokensWithdrawAmount) = {
571-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
572-    let $t02331023421 = claimCalc(pool, i.originCaller, 1)
573-    let userNewInterest = $t02331023421._1
574-    let currentInterest = $t02331023421._2
575-    let claimAmount = $t02331023421._3
576-    let userShareTokensAmount = $t02331023421._4
577-    let userShareAmountNew = (userShareTokensAmount - shareTokensWithdrawAmount)
578-    let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
579-    let totalShareAmount = getTotalShareTokenLocked(pool)
580-    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
581-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.originCaller)
582-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
583-    if ((shareTokensWithdrawAmount > userShareTokensAmount))
584-        then throw("Withdraw amount more then user locked amount")
585-        else if (!(isActive))
586-            then throw("DApp is inactive at this moment")
587-            else if ((shareTokensWithdrawAmount > userShareTokensAmount))
588-                then throw("Withdraw amount more then user locked amount")
589-                else if ((fraction(99, (accountBalance(shareTokensId) - shareTokensWithdrawAmount), 100) > totalShareAmountNew))
590-                    then throw("Balance of share-token is greater than totalAmount")
591-                    else {
592-                        let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
593-                            then invoke(lpFarmingAddress, "updateUserInterest", [pool, userShareAmountNew], nil)
594-                            else 0
595-                        if ((uplp == uplp))
596-                            then [IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyAvailableSWOP), availableFundsNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPLastClaimedAmount), claimAmount), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
597-                            else throw("Strict value is not equal to itself.")
598-                        }
599-    }
477+func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isActive(), {
478+    let shareAssetId = getShareAssetId(pool)
479+    let user = toString(i.originCaller)
480+    let totalShareStaked = getTotalShareTokenStaked(pool)
481+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareStaked)
482+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
483+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
484+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
485+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
486+    let totalUserShareTokens = (userStakedAmount + userLockedAmount)
487+    let $t02398624038 = getLockParams(lockType)
488+    let lockPeriod = $t02398624038._1
489+    let lockCoef = $t02398624038._2
490+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
491+    if ((height > getHeightFirstHarvest(pool)))
492+        then throw("You can't lock shareTokens till first harvest end.")
493+        else if ((lockType > 0))
494+            then throw("lockType must be > 0")
495+            else if ((lockAmount > userStakedAmount))
496+                then throw(("You can't lock more than " + toString(userStakedAmount)))
497+                else if ((accountBalance(shareAssetId) > totalShareStaked))
498+                    then throw("Balance of share-token is lower than totalAmount")
499+                    else if (if ((userLockedHeigt == 0))
500+                        then if (if ((1 > size(i.payments)))
501+                            then true
502+                            else (i.payments[0].assetId != unit))
503+                            then true
504+                            else (lockWavesFee > i.payments[0].amount)
505+                        else false)
506+                        then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
507+                        else if ((userLockedHeigt > (height + lockPeriod)))
508+                            then throw("You cannot lock sharetokens for a period less than what you have already locked")
509+                            else {
510+                                let userLockedAmountNew = (userLockedAmount + lockAmount)
511+                                let userStakedAmountNew = (userStakedAmount - lockAmount)
512+                                let userLockedHeigtNew = (height + lockPeriod)
513+                                let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
514+                                let lockEntries = [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))]
515+                                let $t02573825837 = claimCalc(pool, user)
516+                                let farmInterest = $t02573825837._1
517+                                let boostInterest = $t02573825837._2
518+                                let boostLPinterest = $t02573825837._3
519+                                let claimAmount = $t02573825837._4
520+                                let toTreasure = $t02573825837._5
521+                                let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
522+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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(airdropMoneyBoxAddr, toTreasure, SWOP)]
523+                                }
524+    })
600525 
601526 
602527 
603528 @Callable(i)
604-func claim (pool) = {
605-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
606-    let shareTokenLocked = getTotalShareTokenLocked(pool)
607-    let $t02568925755 = getLastInterestInfo(pool)
608-    let lastInterestHeight = $t02568925755._1
609-    let lastInterest = $t02568925755._2
610-    let $t02576025874 = rewardInfo(pool)
611-    let currentRewardPerBlock = $t02576025874._1
612-    let rewardUpdateHeight = $t02576025874._2
613-    let previousRewardPerBlock = $t02576025874._3
614-    let poolRewardUpdateHeight = $t02576025874._4
615-    let $t02587925984 = claimCalc(pool, i.caller, 1)
616-    let userNewInterest = $t02587925984._1
617-    let currentInterest = $t02587925984._2
618-    let claimAmount = $t02587925984._3
619-    let userShareTokensAmount = $t02587925984._4
620-    let availableFund = (userAvailableSWOP(pool, i.caller) + claimAmount)
621-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
622-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
623-    if ((availableFund == 0))
624-        then throw("You have 0 available SWOP")
625-        else if (!(isActive))
626-            then throw("DApp is inactive at this moment")
627-            else if ((availableFund == 0))
628-                then throw("You have 0 available SWOP")
629-                else if ((fraction(99, accountBalance(shareTokensId), 100) > shareTokenLocked))
630-                    then throw("Balance of share-token is greater than totalAmount")
631-                    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)]
632-    }
529+func unlockUserLock (pool,user) = valueOrElse(isActive(), {
530+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
531+    let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
532+    let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
533+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
534+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
535+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
536+    if ((userLockedHeigt > height))
537+        then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
538+        else {
539+            let userStakedAmountNew = (userStakedAmount + userLockedAmount)
540+            let $t02752527624 = claimCalc(pool, user)
541+            let farmInterest = $t02752527624._1
542+            let boostInterest = $t02752527624._2
543+            let boostLPinterest = $t02752527624._3
544+            let claimAmount = $t02752527624._4
545+            let toTreasure = $t02752527624._5
546+            let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
547+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLocked)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedHeight)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedType)), Reissue(SWOP, toTreasure, true), ScriptTransfer(airdropMoneyBoxAddr, toTreasure, SWOP), ScriptTransfer(i.caller, lockWavesFee, unit)]
548+            }
549+    })
633550 
634551 
635552 
636553 @Callable(i)
637-func shutdown () = if (!(isActive))
638-    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, keyCause), "the cause wasn't specified")))
639-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
640-        then throw("Only admin can call this function")
641-        else suspend("Paused by admin")
554+func withdrawShareTokens (pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), {
555+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
556+    let user = toString(i.originCaller)
557+    let $t02912829227 = claimCalc(pool, user)
558+    let farmInterest = $t02912829227._1
559+    let boostInterest = $t02912829227._2
560+    let boostLPinterest = $t02912829227._3
561+    let claimAmount = $t02912829227._4
562+    let toTreasure = $t02912829227._5
563+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
564+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
565+    let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
566+    let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
567+    let totalShareAmount = getTotalShareTokenStaked(pool)
568+    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
569+    if ((shareTokensWithdrawAmount > userStakedAmountNew))
570+        then throw("Withdraw amount more then user locked amount")
571+        else if ((accountBalance(shareTokensId) > totalShareAmount))
572+            then throw("Balance of share-token is lower than totalAmount")
573+            else {
574+                let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
575+                    then invoke(lpFarmingAddress, "updateUserInterest", [pool, (userStakedAmount + userLockedAmount)], nil)
576+                    else 0
577+                if ((uplp == uplp))
578+                    then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(airdropMoneyBoxAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
579+                    else throw("Strict value is not equal to itself.")
580+                }
581+    })
642582 
643583 
644584 
645585 @Callable(i)
646-func activate () = if (isActive)
586+func claim (pool) = valueOrElse(isActive(), {
587+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
588+    let user = toString(i.caller)
589+    let shareTokenLocked = getTotalShareTokenStaked(pool)
590+    let $t03137331472 = claimCalc(pool, user)
591+    let farmInterest = $t03137331472._1
592+    let boostInterest = $t03137331472._2
593+    let boostLPinterest = $t03137331472._3
594+    let claimAmount = $t03137331472._4
595+    let toTreasure = $t03137331472._5
596+    let availableFund = (userAvailableSWOP(pool, i.caller) + claimAmount)
597+    if ((availableFund == 0))
598+        then throw("You have 0 available SWOP")
599+        else if ((accountBalance(shareTokensId) > shareTokenLocked))
600+            then throw("Balance of share-token is lower than totalAmount")
601+            else $Tuple2([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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(airdropMoneyBoxAddr, toTreasure, SWOP), ScriptTransfer(i.caller, availableFund, SWOP)], availableFund)
602+    })
603+
604+
605+
606+@Callable(i)
607+func claimAndStake (pool) = valueOrElse(isActive(), {
608+    let claimAmount = {
609+        let @ = invoke(this, "claim", [pool], nil)
610+        if ($isInstanceOf(@, "Int"))
611+            then @
612+            else throw(($getType(@) + " couldn't be cast to Int"))
613+        }
614+    if ((claimAmount == claimAmount))
615+        then {
616+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimAmount)])
617+            if ((stakeToGov == stakeToGov))
618+                then nil
619+                else throw("Strict value is not equal to itself.")
620+            }
621+        else throw("Strict value is not equal to itself.")
622+    })
623+
624+
625+
626+@Callable(i)
627+func claimAll (pools) = valueOrElse(isActive(), {
628+    func claimInv (claimTotal,pool) =     {
629+        let claimAmount = {
630+            let @ = invoke(this, "claim", [pool], nil)
631+            if ($isInstanceOf(@, "Int"))
632+                then @
633+                else throw(($getType(@) + " couldn't be cast to Int"))
634+            }
635+        if ((claimAmount == claimAmount))
636+            then (claimTotal + claimAmount)
637+            else throw("Strict value is not equal to itself.")
638+        }
639+
640+    let claimTotal = {
641+        let $l = pools
642+        let $s = size($l)
643+        let $acc0 = 0
644+        func $f0_1 ($a,$i) =         if (($i >= $s))
645+            then $a
646+            else claimInv($a, $l[$i])
647+
648+        func $f0_2 ($a,$i) =         if (($i >= $s))
649+            then $a
650+            else throw("List size exceeds 60")
651+
652+        $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)
653+        }
654+    if ((claimTotal == 0))
655+        then throw("You have 0 available SWOP")
656+        else [ScriptTransfer(i.caller, claimTotal, SWOP)]
657+    })
658+
659+
660+
661+@Callable(i)
662+func claimAllAndStake (pools) = valueOrElse(isActive(), {
663+    func claimInv (claimTotal,pool) =     {
664+        let claimAmount = {
665+            let @ = invoke(this, "claim", [pool], nil)
666+            if ($isInstanceOf(@, "Int"))
667+                then @
668+                else throw(($getType(@) + " couldn't be cast to Int"))
669+            }
670+        if ((claimAmount == claimAmount))
671+            then (claimTotal + claimAmount)
672+            else throw("Strict value is not equal to itself.")
673+        }
674+
675+    let claimTotal = {
676+        let $l = pools
677+        let $s = size($l)
678+        let $acc0 = 0
679+        func $f0_1 ($a,$i) =         if (($i >= $s))
680+            then $a
681+            else claimInv($a, $l[$i])
682+
683+        func $f0_2 ($a,$i) =         if (($i >= $s))
684+            then $a
685+            else throw("List size exceeds 60")
686+
687+        $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)
688+        }
689+    if ((claimTotal == 0))
690+        then throw("You have 0 available SWOP")
691+        else {
692+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimTotal)])
693+            if ((stakeToGov == stakeToGov))
694+                then nil
695+                else throw("Strict value is not equal to itself.")
696+            }
697+    })
698+
699+
700+
701+@Callable(i)
702+func updateUserBoostInterest (pool,user) = valueOrElse(isActive(), if ((i.caller != votingAddress))
703+    then throw("Only voiting can call this function")
704+    else {
705+        let $t03385233951 = claimCalc(pool, user)
706+        let farmInterest = $t03385233951._1
707+        let boostInterest = $t03385233951._2
708+        let boostLPinterest = $t03385233951._3
709+        let claimAmount = $t03385233951._4
710+        let toTreasure = $t03385233951._5
711+        let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
712+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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(airdropMoneyBoxAddr, toTreasure, SWOP)]
713+        })
714+
715+
716+
717+@Callable(i)
718+func shutdown () = valueOrElse(isAdminCall(i), if (!(active))
719+    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
720+    else suspend("Paused by admin"))
721+
722+
723+
724+@Callable(i)
725+func activate () = valueOrElse(isAdminCall(i), if (active)
647726     then throw("DApp is already active")
648-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
649-        then throw("Only admin can call this function")
650-        else [BooleanEntry(keyActive, true), DeleteEntry(keyCause)]
727+    else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
651728 
652729 
653730 @Verifier(tx)

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let keyShareTokensLocked = "_total_share_tokens_locked"
4+let kActive = "active"
55 
6-let kShareLimit = "share_limit_on_first_harvest"
6+let kCause = "shutdown_cause"
77 
8-let keyActive = "active"
8+let kRewardPoolFractionCurrent = "_current_pool_fraction_reward"
99 
10-let keyCause = "shutdown_cause"
10+let kRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
1111 
12-let keyRewardPoolFractionCurrent = "_current_pool_fraction_reward"
12+let kHeightPoolFraction = "_pool_reward_update_height"
1313 
14-let keyRewardPoolFractionPrevious = "_previous_pool_fraction_reward"
14+let kTotalRewardPerBlockCurrent = "total_reward_per_block_current"
1515 
16-let keyHeightPoolFraction = "_pool_reward_update_height"
16+let kTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
1717 
18-let keyTotalRewardPerBlockCurrent = "total_reward_per_block_current"
18+let kRewardUpdateHeight = "reward_update_height"
1919 
20-let keyTotalRewardPerBlockPrevious = "total_reward_per_block_previous"
20+let kUserShareTokensStaked = "_share_tokens_locked"
2121 
22-let keyRewardUpdateHeight = "reward_update_height"
22+let kUserShareTokensLocked = "_share_tokens_blocked"
2323 
24-let keyLastInterest = "_last_interest"
24+let kUserShareTokensLockedType = "_share_tokens_blocked_type"
2525 
26-let keyLastInterestHeight = "_last_interest_height"
26+let kUserShareTokensLockedHeight = "_share_tokens_blocked_height"
2727 
28-let keyUserShareTokensLocked = "_share_tokens_locked"
28+let kUserShareTokensVirtual = "_share_tokens_virtual"
2929 
30-let keyUserLastInterest = "_last_interest"
30+let kShareTotalShareTokens = "_total_share_tokens_locked"
3131 
32-let keySWOPid = "SWOP_id"
32+let kShareTokensVirtual = "_total_share_tokens_virtual"
3333 
34-let keyUserSWOPClaimedAmount = "_SWOP_claimed_amount"
34+let kLockParams = "_lock_params"
3535 
36-let keyUserSWOPLastClaimedAmount = "_SWOP_last_claimed_amount"
36+let kLockWavesFee = "lock_waves_fee"
3737 
38-let keyAvailableSWOP = "_available_SWOP"
38+let kPoolBoostCoef = "_boost_coef"
3939 
40-let keyFarmingStartHeight = "farming_start_height"
40+let kFarmLastInterest = "_last_interest"
4141 
42-let keyAPY = "apy"
42+let kFarmUserLastInterest = "_last_interest"
4343 
44-let kPreviousTotalVoteSWOP = "previous_total_vote_SWOP"
44+let kBoostLastInterest = "_last_interest_b"
4545 
46-let keySwopYearEmission = "swop_year_emission"
46+let kBoostUserLastInterest = "_last_interest_u_b"
4747 
48-let keyBalancecpmmA = "A_asset_balance"
48+let kBoostLPLastInterest = "_last_interest_lpb"
4949 
50-let keyBalancecpmmB = "B_asset_balance"
50+let kBoostLPUserLastInterest = "_last_interest_u_lpb"
5151 
52-let kHarvestPoolActiveVoteStrucVoting = "_harvest_pool_activeVote_struc"
52+let kLastInterestHeight = "_last_interest_height"
5353 
54-let kHarvestUserPoolActiveVoteStrucVoting = "_harvest_user_pool_activeVote_struc"
54+let kSWOPid = "SWOP_id"
5555 
56-let keyLimitShareFirstHarvest = "share_limit_on_first_harvest"
56+let kAvailableSWOP = "_available_SWOP"
5757 
58-let keyAssetIdA = "A_asset_id"
58+let kSwopYearEmission = "swop_year_emission"
5959 
60-let keyAssetIdB = "B_asset_id"
60+let kHarvestPoolVote = "_harvest_pool_vote_gSWOP"
6161 
62-let keyFirstHarvestHeight = "first_harvest_height"
62+let kPoolVote = "_pool_vote_gSWOP"
6363 
64-let keyfirstHarvestCpmm = "first_harvest"
64+let kUserPoolVote = "_user_vote_gSWOP"
6565 
66-let keyTempPrevSum = "sum_reward_previous"
66+let kHarvestUserPoolVote = "_harvest_user_pool_vote_gSWOP"
6767 
68-let keyTempCurSum = "sum_reward_current"
68+let kBasePeriod = "base_period"
6969 
70-let oneWeekInBlock = 10106
70+let kPeriodLength = "period_length"
7171 
72-let totalVoteShare = 10000000000
72+let kStartHeight = "start_height"
7373 
74-let scaleValue1 = 10
74+let kFirstHarvestHeight = "first_harvest_height"
7575 
76-let scaleValue3 = 1000
77-
78-let scaleValue5 = 100000
79-
80-let scaleValue6 = 1000000
81-
82-let scaleValue8 = 100000000
83-
84-let scaleValue11 = 100000000000
76+let kShareLimitFH = "share_limit_on_first_harvest"
8577 
8678 let kAdminPubKey1 = "admin_pub_1"
8779 
8880 let kAdminPubKey2 = "admin_pub_2"
8981 
9082 let kAdminPubKey3 = "admin_pub_3"
9183 
9284 let kAdminInvokePubKey = "admin_invoke_pub"
9385 
9486 let kMoneyBoxAddress = "money_box_address"
9587 
9688 let kVotingAddress = "voting_address"
9789 
9890 let kGovAddress = "governance_address"
9991 
10092 let kLPFarmingAddress = "lp_farming"
10193 
94+let kAirdropMoneyBoxAddr = "airdrop_fee_money_box"
95+
10296 let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
97+
98+let totalVoteShare = 10000000000
99+
100+let lockBoostCoefScale = 1000
101+
102+let defPoolBoostCoef = 500
103103 
104104 func getBase58FromOracle (key) = match getString(oracle, key) {
105105     case string: String => 
106106         fromBase58String(string)
107107     case nothing => 
108108         throw((key + "is empty"))
109109 }
110110 
111111 
112112 let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
113113 
114114 let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
115115 
116116 let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
117117 
118118 let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
119119 
120120 let votingAddress = Address(getBase58FromOracle(kVotingAddress))
121121 
122122 let govAddress = Address(getBase58FromOracle(kGovAddress))
123123 
124124 let adminInvokePubKey = getBase58FromOracle(kAdminInvokePubKey)
125125 
126126 let lpFarmingAddress = Address(getBase58FromOracle(kLPFarmingAddress))
127127 
128-func strAssetIdA (pool) = getStringValue(pool, keyAssetIdA)
129-
130-
131-func strAssetIdB (pool) = getStringValue(pool, keyAssetIdB)
132-
133-
134-func assetIdA (pool) = if ((strAssetIdA(pool) == "WAVES"))
135-    then unit
136-    else fromBase58String(strAssetIdA(pool))
137-
138-
139-func assetIdB (pool) = if ((strAssetIdB(pool) == "WAVES"))
140-    then unit
141-    else fromBase58String(strAssetIdB(pool))
142-
143-
144-let kBasePeriod = "base_period"
145-
146-let kPeriodLength = "period_length"
147-
148-let kStartHeight = "start_height"
149-
150-let kFirstHarvestHeight = "first_harvest_height"
151-
152-let kDurationFullVotePower = "duration_full_vote_power"
153-
154-let kMinVotePower = "min_vote_power"
128+let airdropMoneyBoxAddr = Address(getBase58FromOracle(kAirdropMoneyBoxAddr))
155129 
156130 let basePeriod = valueOrErrorMessage(getInteger(votingAddress, kBasePeriod), "Empty kBasePeriod")
157131 
158132 let startHeight = valueOrErrorMessage(getInteger(votingAddress, kStartHeight), "Empty kStartHeight")
159133 
160134 let periodLength = valueOrErrorMessage(getInteger(votingAddress, kPeriodLength), "Empty kPeriodLength")
161135 
162-let durationFullVotePower = valueOrErrorMessage(getInteger(votingAddress, kDurationFullVotePower), "Empty kDurationFullVotePower")
163-
164-let minVotePower = valueOrErrorMessage(getInteger(votingAddress, kMinVotePower), "Empty kMinVotePower")
165-
166-let isActive = getBooleanValue(this, keyActive)
167-
168136 let currPeriod = (basePeriod + ((height - startHeight) / periodLength))
169137 
170-func getLimitToken (pool) = valueOrElse(getIntegerValue(pool, keyLimitShareFirstHarvest), 0)
138+let active = getBooleanValue(this, kActive)
139+
140+let SwopYearEmission = getIntegerValue(this, kSwopYearEmission)
141+
142+let SWOP = fromBase58String(getStringValue(this, kSWOPid))
143+
144+func getHeightFirstHarvest (pool) = valueOrElse(getInteger(Address(fromBase58String(pool)), kFirstHarvestHeight), 0)
171145 
172146 
173-let APY = getIntegerValue(this, keyAPY)
174-
175-let SwopYearEmission = getIntegerValue(this, keySwopYearEmission)
176-
177-func assetNameA (pool) = match assetIdA(pool) {
178-    case id: ByteVector => 
179-        value(assetInfo(id)).name
180-    case waves: Unit => 
181-        "WAVES"
182-    case _ => 
183-        throw("Match error")
184-}
147+func getFHShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimitFH), ("No data on the key: " + kShareLimitFH))
185148 
186149 
187-func assetNameB (pool) = match assetIdB(pool) {
188-    case id: ByteVector => 
189-        value(assetInfo(id)).name
190-    case waves: Unit => 
191-        "WAVES"
192-    case _ => 
193-        throw("Match error")
194-}
150+func getTotalShareTokenStaked (pool) = valueOrErrorMessage(getInteger(this, (pool + kShareTotalShareTokens)), (("No data on the key: " + pool) + kShareTotalShareTokens))
195151 
196152 
197-let SWOP = fromBase58String(getStringValue(this, keySWOPid))
198-
199-func isFirstHarvest (pool) = valueOrElse(getBoolean(pool, keyfirstHarvestCpmm), false)
153+func getPoolVoted (pool) = valueOrElse(getInteger(votingAddress, (pool + kPoolVote)), 0)
200154 
201155 
202-func getHeightFirstHarvest (pool) = valueOrElse(getInteger(pool, keyFirstHarvestHeight), 0)
203-
204-
205-func getBalanceA (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmA), ("No data on the key: " + keyBalancecpmmA))
206-
207-
208-func getBalanceB (pool) = valueOrErrorMessage(getInteger(pool, keyBalancecpmmB), ("No data on the key: " + keyBalancecpmmB))
209-
210-
211-func getShareLimitToken (pool) = valueOrErrorMessage(getInteger(pool, kShareLimit), ("No data on the key: " + kShareLimit))
212-
213-
214-func getTotalShareTokenLocked (pool) = valueOrErrorMessage(getInteger(this, (pool + keyShareTokensLocked)), (("No data on the key: " + pool) + keyShareTokensLocked))
156+func getUserPoolVoted (pool,user) = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kPoolVote)), 0)
215157 
216158 
217159 func getShareAssetId (pool) = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
218160 
219161 
220162 func accountBalance (assetId) = match assetId {
221163     case id: ByteVector => 
222164         assetBalance(this, id)
223165     case waves: Unit => 
224166         wavesBalance(this).available
225167     case _ => 
226168         throw("Match error")
227169 }
228170 
229171 
230172 func getAssetInfo (assetId) = match assetId {
231173     case id: ByteVector => 
232174         let stringId = toBase58String(id)
233175         let info = valueOrErrorMessage(assetInfo(id), (("Asset " + stringId) + " doesn't exist"))
234176         $Tuple3(stringId, info.name, info.decimals)
235177     case waves: Unit => 
236178         $Tuple3("WAVES", "WAVES", 8)
237179     case _ => 
238180         throw("Match error")
239181 }
240182 
241183 
242184 func calcScaleValue (assetId1,assetId2) = {
243185     let assetId1Decimals = value(assetInfo(assetId1)).decimals
244186     let assetId2Decimals = value(assetInfo(assetId2)).decimals
245187     let scaleDigits = ((assetId2Decimals - assetId1Decimals) + 8)
246188     pow(10, 0, scaleDigits, 0, 0, DOWN)
247189     }
248190 
249191 
250-func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyAvailableSWOP)), 0)
192+func userAvailableSWOP (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + kAvailableSWOP)), 0)
251193 
252194 
253195 func rewardInfo (pool) = {
254-    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, keyTotalRewardPerBlockCurrent), ((("No data on the key: " + keyTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
255-    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, keyTotalRewardPerBlockPrevious), ((("No data on the key: " + keyTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
256-    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + keyRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + keyRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
257-    let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, keyRewardUpdateHeight), ((("No data on the key: " + keyRewardUpdateHeight) + " at address ") + toString(govAddress)))
258-    let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + keyHeightPoolFraction)), 0)
259-    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + keyRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + keyRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
196+    let totalRewardPerBlockCurrent = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockCurrent), ((("No data on the key: " + kTotalRewardPerBlockCurrent) + " at address ") + toString(govAddress)))
197+    let totalRewardPerBlockPrevious = valueOrErrorMessage(getInteger(govAddress, kTotalRewardPerBlockPrevious), ((("No data on the key: " + kTotalRewardPerBlockPrevious) + " at address ") + toString(govAddress)))
198+    let rewardPoolFractionCurrent = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionCurrent)), (((("No data on the key: " + pool) + kRewardPoolFractionCurrent) + " at address ") + toString(govAddress)))
199+    let rewardUpdateHeight = valueOrErrorMessage(getInteger(govAddress, kRewardUpdateHeight), ((("No data on the key: " + kRewardUpdateHeight) + " at address ") + toString(govAddress)))
200+    let poolRewardUpdateHeight = valueOrElse(getInteger(govAddress, (pool + kHeightPoolFraction)), rewardUpdateHeight)
201+    let rewardPoolFractionPrevious = valueOrErrorMessage(getInteger(govAddress, (pool + kRewardPoolFractionPrevious)), (((("No data on the key: " + pool) + kRewardPoolFractionPrevious) + " at address ") + toString(govAddress)))
260202     let rewardPoolCurrent = fraction(totalRewardPerBlockCurrent, rewardPoolFractionCurrent, totalVoteShare)
261-    let rewardPoolPrevious = fraction(totalRewardPerBlockPrevious, rewardPoolFractionPrevious, totalVoteShare)
203+    let rewardPoolPrevious = fraction(totalRewardPerBlockCurrent, rewardPoolFractionPrevious, totalVoteShare)
262204     if (if ((rewardPoolCurrent > totalRewardPerBlockCurrent))
263205         then true
264206         else (rewardPoolPrevious > totalRewardPerBlockPrevious))
265207         then throw("rewardPoolCurrent > totalRewardPerBlockCurrent or rewardPoolPrevious > totalRewardPerBlockPrevious")
266208         else $Tuple4(rewardPoolCurrent, rewardUpdateHeight, rewardPoolPrevious, poolRewardUpdateHeight)
267209     }
268210 
269211 
270212 func getLastInterestInfo (pool) = {
271-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
272-    let lastInterestHeight = valueOrElse(getInteger(this, (pool + keyLastInterestHeight)), height)
273-    $Tuple2(lastInterestHeight, lastInterest)
213+    let farmInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kFarmLastInterest))
214+    let boostInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kBoostLastInterest))
215+    let boostLPInterest = valueOrErrorMessage(getInteger(this, (pool + kFarmLastInterest)), (("No data on the key: " + pool) + kBoostLPLastInterest))
216+    let lastInterestHeight = valueOrElse(getInteger(this, (pool + kLastInterestHeight)), height)
217+    $Tuple4(lastInterestHeight, farmInterest, boostInterest, boostLPInterest)
274218     }
275219 
276220 
277-func getUserInterestInfo (pool,userAddress) = {
278-    let userLastInterest = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserLastInterest))
279-    let userShare = getInteger(this, (((pool + "_") + toString(userAddress)) + keyUserShareTokensLocked))
280-    let lastInterest = valueOrErrorMessage(getInteger(this, (pool + keyLastInterest)), (("No data on the key: " + pool) + keyLastInterest))
281-    let userLastInterestValue =     match userLastInterest {
282-        case userLastInterest: Int => 
283-            userLastInterest
284-        case _ => 
285-            lastInterest
286-    }
287-    let userShareTokensAmount =     match userShare {
288-        case userShare: Int => 
289-            userShare
290-        case _ => 
291-            0
292-    }
293-    $Tuple2(userLastInterestValue, userShareTokensAmount)
221+func calcFarmRwd (pool,curTotalReward) = {
222+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
223+    ((curTotalReward / (poolBoostCoef + 1)) / lockBoostCoefScale)
294224     }
295225 
296226 
297-func calcInterest (lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,lastInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,shareAssetId,scaleValue,pmtAmount) = if ((shareTokenLocked == 0))
298-    then 0
299-    else if ((poolRewardUpdateHeight != 0))
300-        then if (if ((rewardUpdateHeight > height))
301-            then (rewardUpdateHeight == poolRewardUpdateHeight)
227+func calcBoostRwd (pool,curTotalReward) = {
228+    let poolBoostCoef = valueOrElse(getInteger(this, (pool + kPoolBoostCoef)), defPoolBoostCoef)
229+    (fraction(curTotalReward, poolBoostCoef, (poolBoostCoef + 1)) / lockBoostCoefScale)
230+    }
231+
232+
233+func calcInterest (pool,lastInterestHeight,rewardUpdateHeight,poolRewardUpdateHeight,farmInterest,boostInterest,poolVoted,boostLpInterest,currentRewardPerBlock,shareTokenLocked,previousRewardPerBlock,scaleValue) = if ((shareTokenLocked == 0))
234+    then $Tuple3(0, 0, 0)
235+    else if (if ((rewardUpdateHeight > height))
236+        then (rewardUpdateHeight == poolRewardUpdateHeight)
237+        else false)
238+        then {
239+            let reward = (previousRewardPerBlock * (height - lastInterestHeight))
240+            let newFarmInterest = (farmInterest + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
241+            let newBoostInterest = (boostInterest + (if ((poolVoted > 0))
242+                then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
243+                else 0))
244+            let newBoostLPInterest = (boostLpInterest + (if (if ((poolVoted > 0))
245+                then (shareTokenLocked > 0)
246+                else false)
247+                then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
248+                else 0))
249+            $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
250+            }
251+        else if (if ((height > rewardUpdateHeight))
252+            then (rewardUpdateHeight != poolRewardUpdateHeight)
302253             else false)
303254             then {
304255                 let reward = (previousRewardPerBlock * (height - lastInterestHeight))
305-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
256+                let newFarmInterest = (farmInterest + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
257+                let newBoostInterest = (boostInterest + (if ((poolVoted > 0))
258+                    then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
259+                    else 0))
260+                let newBoostLPInterest = (boostLpInterest + (if (if ((poolVoted > 0))
261+                    then (shareTokenLocked > 0)
262+                    else false)
263+                    then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
264+                    else 0))
265+                $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
306266                 }
307-            else if (if ((height > rewardUpdateHeight))
308-                then (rewardUpdateHeight != poolRewardUpdateHeight)
267+            else if (if (if ((height > rewardUpdateHeight))
268+                then (rewardUpdateHeight == poolRewardUpdateHeight)
269+                else false)
270+                then (lastInterestHeight > rewardUpdateHeight)
309271                 else false)
310272                 then {
311-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
312-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
313-                    }
314-                else if (if (if ((height > rewardUpdateHeight))
315-                    then (rewardUpdateHeight == poolRewardUpdateHeight)
316-                    else false)
317-                    then (lastInterestHeight > rewardUpdateHeight)
318-                    else false)
319-                    then {
320-                        let reward = (currentRewardPerBlock * (height - lastInterestHeight))
321-                        (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
322-                        }
323-                    else {
324-                        let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
325-                        let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
326-                        let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
327-                        (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
328-                        }
329-        else if ((rewardUpdateHeight > height))
330-            then {
331-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
332-                (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
333-                }
334-            else if ((lastInterestHeight > rewardUpdateHeight))
335-                then {
336273                     let reward = (currentRewardPerBlock * (height - lastInterestHeight))
337-                    (lastInterest + fraction(reward, scaleValue, shareTokenLocked))
274+                    let newFarmInterest = (farmInterest + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
275+                    let newBoostInterest = (boostInterest + (if ((poolVoted > 0))
276+                        then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
277+                        else 0))
278+                    let newBoostLPInterest = (boostLpInterest + (if (if ((poolVoted > 0))
279+                        then (shareTokenLocked > 0)
280+                        else false)
281+                        then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
282+                        else 0))
283+                    $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
338284                     }
339285                 else {
340-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
341-                    let interestAfterUpdate = (lastInterest + fraction(rewardAfterLastInterestBeforeReawardUpdate, scaleValue, shareTokenLocked))
286+                    let rwdBfrUpd = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
287+                    let framIntrAftrUp = (farmInterest + fraction(calcFarmRwd(pool, rwdBfrUpd), scaleValue, shareTokenLocked))
288+                    let boostIntrAftrUp = (boostInterest + (if ((poolVoted > 0))
289+                        then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue, poolVoted)
290+                        else 0))
291+                    let bostLPIntrAftrUp = (farmInterest + (if (if ((poolVoted > 0))
292+                        then (shareTokenLocked > 0)
293+                        else false)
294+                        then fraction(calcBoostRwd(pool, rwdBfrUpd), scaleValue, poolVoted)
295+                        else 0))
342296                     let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
343-                    (interestAfterUpdate + fraction(reward, scaleValue, shareTokenLocked))
297+                    let newFarmInterest = (framIntrAftrUp + fraction(calcFarmRwd(pool, reward), scaleValue, shareTokenLocked))
298+                    let newBoostInterest = (boostIntrAftrUp + (if ((poolVoted > 0))
299+                        then fraction(calcBoostRwd(pool, reward), scaleValue, poolVoted)
300+                        else 0))
301+                    let newBoostLPInterest = (bostLPIntrAftrUp + (if (if ((poolVoted > 0))
302+                        then (shareTokenLocked > 0)
303+                        else false)
304+                        then (fraction(calcBoostRwd(pool, reward), scaleValue, shareTokenLocked) / poolVoted)
305+                        else 0))
306+                    $Tuple3(newFarmInterest, newBoostInterest, newBoostLPInterest)
344307                     }
345308 
346309 
347-func claimCalc (pool,caller,pmtAmount) = {
348-    let shareAssetId = getShareAssetId(pool)
349-    let scaleValue = calcScaleValue(SWOP, shareAssetId)
350-    let shareTokenLocked = getTotalShareTokenLocked(pool)
351-    let $t01352213587 = getLastInterestInfo(pool)
352-    let lastInterestHeight = $t01352213587._1
353-    let lastInterest = $t01352213587._2
354-    let $t01359213704 = rewardInfo(pool)
355-    let currentRewardPerBlock = $t01359213704._1
356-    let rewardUpdateHeight = $t01359213704._2
357-    let previousRewardPerBlock = $t01359213704._3
358-    let poolRewardUpdateHeight = $t01359213704._4
359-    let $t01370913788 = getUserInterestInfo(pool, caller)
360-    let userLastInterest = $t01370913788._1
361-    let userShareTokensAmount = $t01370913788._2
362-    let currentInterest = calcInterest(lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, lastInterest, currentRewardPerBlock, shareTokenLocked, previousRewardPerBlock, shareAssetId, scaleValue, pmtAmount)
363-    let claimAmount = fraction(userShareTokensAmount, (currentInterest - userLastInterest), scaleValue)
364-    let userNewInterest = currentInterest
365-    $Tuple4(userNewInterest, currentInterest, claimAmount, userShareTokensAmount)
310+func claimCalc (pool,user) = {
311+    let scaleValue = calcScaleValue(SWOP, getShareAssetId(pool))
312+    let poolVoted = getPoolVoted(pool)
313+    let uPoolVoted = getUserPoolVoted(pool, user)
314+    let shareTokenStaked = getTotalShareTokenStaked(pool)
315+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), shareTokenStaked)
316+    let $t01420114299 = getLastInterestInfo(pool)
317+    let lastInterestHeight = $t01420114299._1
318+    let farmInterest = $t01420114299._2
319+    let boostInterest = $t01420114299._3
320+    let boostLPInterest = $t01420114299._4
321+    let $t01430414418 = rewardInfo(pool)
322+    let currentRewardPerBlock = $t01430414418._1
323+    let rewardUpdateHeight = $t01430414418._2
324+    let previousRewardPerBlock = $t01430414418._3
325+    let poolRewardUpdateHeight = $t01430414418._4
326+    let uFarmInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kFarmUserLastInterest)), farmInterest)
327+    let uBoostInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostUserLastInterest)), boostInterest)
328+    let uBoostLPInterest = valueOrElse(getInteger(this, (((pool + "_") + user) + kBoostLPUserLastInterest)), boostLPInterest)
329+    let uShareTokensStaked = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
330+    let uShareTokensVirt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), uShareTokensStaked)
331+    let $t01498615378 = calcInterest(pool, lastInterestHeight, rewardUpdateHeight, poolRewardUpdateHeight, farmInterest, boostInterest, poolVoted, boostLPInterest, currentRewardPerBlock, shareTokenStaked, previousRewardPerBlock, scaleValue)
332+    let newFarmInterest = $t01498615378._1
333+    let newBoostInterest = $t01498615378._2
334+    let newBoostLPInterest = $t01498615378._3
335+    let claimFarming = fraction(uShareTokensVirt, (newFarmInterest - uFarmInterest), scaleValue)
336+    let claimBoostingMax = fraction(uPoolVoted, (newBoostInterest - uBoostInterest), scaleValue)
337+    let claimBoosting = fraction((uShareTokensVirt * uPoolVoted), (newBoostLPInterest - uBoostLPInterest), scaleValue)
338+    let toTreasury = (claimBoostingMax - claimBoosting)
339+    $Tuple5(newFarmInterest, newBoostInterest, newBoostLPInterest, (claimFarming + claimBoosting), toTreasury)
366340     }
367341 
368342 
369-func calculateProtocolReward (pool) = {
370-    let $t01430614371 = getLastInterestInfo(pool)
371-    let lastInterestHeight = $t01430614371._1
372-    let lastInterest = $t01430614371._2
373-    let $t01437614487 = rewardInfo(pool)
374-    let currentRewardPerBlock = $t01437614487._1
375-    let rewardUpdateHeight = $t01437614487._2
376-    let previousRewardPerBlock = $t01437614487._3
377-    let poolRewardUpdateHeight = $t01437614487._4
378-    let shareTokenLocked = getTotalShareTokenLocked(pool)
379-    if (if ((shareTokenLocked == 0))
380-        then (poolRewardUpdateHeight == 0)
381-        else false)
382-        then if ((rewardUpdateHeight > height))
383-            then {
384-                let reward = (previousRewardPerBlock * (height - lastInterestHeight))
385-                reward
386-                }
387-            else if ((lastInterestHeight > rewardUpdateHeight))
388-                then {
389-                    let reward = (currentRewardPerBlock * (height - lastInterestHeight))
390-                    reward
391-                    }
392-                else {
393-                    let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
394-                    let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
395-                    (reward + rewardAfterLastInterestBeforeReawardUpdate)
396-                    }
397-        else if (if ((shareTokenLocked == 0))
398-            then (poolRewardUpdateHeight != 0)
399-            else false)
400-            then if (if ((rewardUpdateHeight > height))
401-                then (rewardUpdateHeight == poolRewardUpdateHeight)
402-                else false)
403-                then {
404-                    let reward = (previousRewardPerBlock * (height - lastInterestHeight))
405-                    reward
406-                    }
407-                else if (if ((height > rewardUpdateHeight))
408-                    then (rewardUpdateHeight != poolRewardUpdateHeight)
409-                    else false)
410-                    then {
411-                        let reward = (previousRewardPerBlock * (height - lastInterestHeight))
412-                        reward
413-                        }
414-                    else if (if (if ((height > rewardUpdateHeight))
415-                        then (rewardUpdateHeight == poolRewardUpdateHeight)
416-                        else false)
417-                        then (lastInterestHeight > rewardUpdateHeight)
418-                        else false)
419-                        then {
420-                            let reward = (currentRewardPerBlock * (height - lastInterestHeight))
421-                            reward
422-                            }
423-                        else {
424-                            let rewardAfterLastInterestBeforeReawardUpdate = (previousRewardPerBlock * (rewardUpdateHeight - lastInterestHeight))
425-                            let reward = (currentRewardPerBlock * (height - rewardUpdateHeight))
426-                            (reward + rewardAfterLastInterestBeforeReawardUpdate)
427-                            }
428-            else 0
343+func canLockInFirstHarvest (pool,user,userShareTokensStaked,pmtAmount,lockType) = if ((height > getHeightFirstHarvest(pool)))
344+    then {
345+        let totalVoteAmount = valueOrElse(getInteger(votingAddress, (pool + kHarvestPoolVote)), 0)
346+        let userVoteAmount = valueOrElse(getInteger(votingAddress, (((user + "_") + pool) + kHarvestPoolVote)), 0)
347+        let FHShareTokenLimit = getFHShareLimitToken(addressFromStringValue(pool))
348+        let FHShareTokenUserLimit = (fraction(FHShareTokenLimit, userVoteAmount, totalVoteAmount) - userShareTokensStaked)
349+        if ((lockType > 0))
350+            then throw("You can't lock shareTokens till first harvest end.")
351+            else if ((userVoteAmount == 0))
352+                then throw("You can't lock shareTokens because you didn't vote in first harvest")
353+                else if ((pmtAmount > FHShareTokenUserLimit))
354+                    then throw(("You can't lock more than you vote in first harvest. Your can lock " + toString(FHShareTokenUserLimit)))
355+                    else true
356+        }
357+    else true
358+
359+
360+func getLockParams (type) = {
361+    let lockParams = split(valueOrErrorMessage(getString(this, (toString(type) + kLockParams)), ("There are no key for lock type" + toString(type))), "_")
362+    $Tuple2(parseIntValue(lockParams[0]), parseIntValue(lockParams[1]))
429363     }
430364 
431365 
432-func checkPmtAssetIdCorrect (pool,pmtAssetId) = {
433-    let poolShareAssetId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
434-    if ((pmtAssetId == poolShareAssetId))
435-        then true
436-        else false
437-    }
366+func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
438367 
439368 
440-func getUserSWOPClaimedAmount (pool,user) = valueOrElse(getInteger(this, (((pool + "_") + toString(user)) + keyUserSWOPClaimedAmount)), 0)
369+func isActive () = if (active)
370+    then unit
371+    else throw("DApp is inactive at this moment")
441372 
442373 
443-func suspend (cause) = [BooleanEntry(keyActive, false), StringEntry(keyCause, cause)]
374+func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
375+    then unit
376+    else throw("Only admin can call this function")
444377 
445378 
446379 @Callable(i)
447-func init (earlyLP) = if (isDefined(getString(this, keySWOPid)))
380+func init (earlyLP) = if (isDefined(getString(this, kSWOPid)))
448381     then throw("SWOP already initialized")
449382     else {
450383         let initAmount = 100000000000000
451384         let SWOPissue = Issue("SWOP", "SWOP protocol token", initAmount, 8, true)
452385         let SWOPid = calculateAssetId(SWOPissue)
453-[BooleanEntry(keyActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(keySWOPid, toBase58String(SWOPid))]
386+[BooleanEntry(kActive, true), Issue("SWOP", "SWOP protocol token", initAmount, 8, true), StringEntry(kSWOPid, toBase58String(SWOPid))]
454387         }
455388 
456389 
457390 
458391 @Callable(i)
459-func initPoolShareFarming (pool) = if ((i.caller != this))
460-    then throw("Only the DApp itself can call this function")
461-    else {
462-        let $t01746917572 = rewardInfo(pool)
463-        let currentReward = $t01746917572._1
464-        let rewardUpdateHeight = $t01746917572._2
465-        let previousRewardPerBlock = $t01746917572._3
466-        let poolRewardUpdateHeight = $t01746917572._4
467-[IntegerEntry((pool + keyShareTokensLocked), 0), IntegerEntry((pool + keyLastInterest), 0), IntegerEntry((pool + keyLastInterestHeight), height)]
468-        }
392+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)])
469393 
470394 
471395 
472396 @Callable(i)
473-func updatePoolInterest (pool) = if ((i.caller != moneyBoxAddress))
474-    then throw("Only the Admin itself can call this function")
475-    else if (!(isActive))
476-        then throw("DApp is inactive at this moment")
477-        else {
478-            let $t01799018123 = claimCalc(pool, addressFromPublicKey(adminInvokePubKey), 0)
479-            let userNewInterest = $t01799018123._1
480-            let currentInterest = $t01799018123._2
481-            let claimAmount = $t01799018123._3
482-            let userShareTokensAmount = $t01799018123._4
483-            let $t01812818231 = rewardInfo(pool)
484-            let currentReward = $t01812818231._1
485-            let rewardUpdateHeight = $t01812818231._2
486-            let previousRewardPerBlock = $t01812818231._3
487-            let poolRewardUpdateHeight = $t01812818231._4
488-[IntegerEntry((pool + keyLastInterest), userNewInterest), IntegerEntry((pool + keyLastInterestHeight), height)]
489-            }
397+func updatePoolInterest (pool) = valueOrElse(isActive(), if ((i.caller != govAddress))
398+    then throw("Only Governance can call this function")
399+    else {
400+        let user = toString(addressFromPublicKey(adminInvokePubKey))
401+        let $t01853818612 = claimCalc(pool, user)
402+        let farmInterest = $t01853818612._1
403+        let boostInterest = $t01853818612._2
404+        let boostLPinterest = $t01853818612._3
405+[IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height)]
406+        })
490407 
491408 
492409 
493410 @Callable(i)
494-func lockShareTokens (pool) = {
495-    let $t01842318498 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
496-    let pmtAmount = $t01842318498._1
497-    let pmtAssetId = $t01842318498._2
498-    let $t01850318576 = getAssetInfo(pmtAssetId)
499-    let pmtStrAssetId = $t01850318576._1
500-    let pmtAssetName = $t01850318576._2
501-    let pmtDecimals = $t01850318576._3
502-    let $t01858118698 = claimCalc(pool, i.originCaller, pmtAmount)
503-    let userNewInterest = $t01858118698._1
504-    let currentInterest = $t01858118698._2
505-    let claimAmount = $t01858118698._3
506-    let userShareTokensAmount = $t01858118698._4
507-    let userShareAmountNew = (userShareTokensAmount + pmtAmount)
508-    let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
509-    let totalShareAmount = getTotalShareTokenLocked(pool)
510-    let totalShareAmountNew = (totalShareAmount + pmtAmount)
511-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.originCaller)
512-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
513-    let baseEntry = [IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPLastClaimedAmount), claimAmount), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyAvailableSWOP), availableFundsNew)]
514-    let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
515-        then invoke(lpFarmingAddress, "updateUserInterest", [pool, userShareAmountNew], nil)
516-        else 0
517-    if ((uplp == uplp))
518-        then 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.originCaller) + "_") + pool) + "_user_pool_struc")), "_")
530-                            let amountPoolStract = split(getStringValue(votingAddress, (pool + "_pool_struc")), "_")
531-                            let amountActiveVoteUserPoolStract = split(valueOrElse(getString(votingAddress, (((toString(i.originCaller) + "_") + 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(moneyBoxAddress, 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-        else throw("Strict value is not equal to itself.")
565-    }
411+func lockShareTokens (pool,lockType) = valueOrElse(isActive(), {
412+    let shareAssetId = getShareAssetId(pool)
413+    let user = toString(i.originCaller)
414+    let totalShareStaked = getTotalShareTokenStaked(pool)
415+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareStaked)
416+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
417+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
418+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
419+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
420+    let totalShareStakedNew = (totalShareStaked + i.payments[0].amount)
421+    let totalUserShareTokens = ((userStakedAmount + userLockedAmount) + i.payments[0].amount)
422+    let $t01980919861 = getLockParams(lockType)
423+    let lockPeriod = $t01980919861._1
424+    let lockCoef = $t01980919861._2
425+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
426+    if ((0 >= i.payments[0].amount))
427+        then throw("Payment amount must be greater than 0")
428+        else if ((0 > lockType))
429+            then throw("lockType must be >= 0")
430+            else if ((accountBalance(shareAssetId) > totalShareStakedNew))
431+                then throw("Balance of share-token is lower than totalAmount")
432+                else if (!(canLockInFirstHarvest(pool, user, userStakedAmount, i.payments[0].amount, lockType)))
433+                    then throw()
434+                    else {
435+                        let $t02031321949 = if ((lockType == 0))
436+                            then {
437+                                let userAmountVirtualNew = (userAmountVirtual + i.payments[0].amount)
438+                                $Tuple2([IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), (userStakedAmount + i.payments[0].amount)), IntegerEntry((pool + kShareTokensVirtual), (totalShareVirtual + i.payments[0].amount))], userAmountVirtualNew)
439+                                }
440+                            else if (if ((userLockedHeigt == 0))
441+                                then if (if ((2 > size(i.payments)))
442+                                    then true
443+                                    else (i.payments[1].assetId != unit))
444+                                    then true
445+                                    else (lockWavesFee > i.payments[1].amount)
446+                                else false)
447+                                then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
448+                                else if ((userLockedHeigt > (height + lockPeriod)))
449+                                    then throw("You cannot lock sharetokens for a period less than what you have already locked")
450+                                    else {
451+                                        let userLockedAmountNew = (userLockedAmount + i.payments[0].amount)
452+                                        let userLockedHeigtNew = (height + lockPeriod)
453+                                        let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
454+                                        $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))], userAmountVirtualNew)
455+                                        }
456+                        let lockEntries = $t02031321949._1
457+                        let userAmountVirtualNew = $t02031321949._2
458+                        let $t02195522054 = claimCalc(pool, user)
459+                        let farmInterest = $t02195522054._1
460+                        let boostInterest = $t02195522054._2
461+                        let boostLPinterest = $t02195522054._3
462+                        let claimAmount = $t02195522054._4
463+                        let toTreasure = $t02195522054._5
464+                        let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
465+                        let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
466+                            then invoke(lpFarmingAddress, "updateUserInterest", [pool, totalUserShareTokens], nil)
467+                            else 0
468+                        if ((uplp == uplp))
469+                            then ([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((pool + kShareTotalShareTokens), totalShareStakedNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(airdropMoneyBoxAddr, toTreasure, SWOP)] ++ lockEntries)
470+                            else throw("Strict value is not equal to itself.")
471+                        }
472+    })
566473 
567474 
568475 
569476 @Callable(i)
570-func withdrawShareTokens (pool,shareTokensWithdrawAmount) = {
571-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
572-    let $t02331023421 = claimCalc(pool, i.originCaller, 1)
573-    let userNewInterest = $t02331023421._1
574-    let currentInterest = $t02331023421._2
575-    let claimAmount = $t02331023421._3
576-    let userShareTokensAmount = $t02331023421._4
577-    let userShareAmountNew = (userShareTokensAmount - shareTokensWithdrawAmount)
578-    let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
579-    let totalShareAmount = getTotalShareTokenLocked(pool)
580-    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
581-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.originCaller)
582-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
583-    if ((shareTokensWithdrawAmount > userShareTokensAmount))
584-        then throw("Withdraw amount more then user locked amount")
585-        else if (!(isActive))
586-            then throw("DApp is inactive at this moment")
587-            else if ((shareTokensWithdrawAmount > userShareTokensAmount))
588-                then throw("Withdraw amount more then user locked amount")
589-                else if ((fraction(99, (accountBalance(shareTokensId) - shareTokensWithdrawAmount), 100) > totalShareAmountNew))
590-                    then throw("Balance of share-token is greater than totalAmount")
591-                    else {
592-                        let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
593-                            then invoke(lpFarmingAddress, "updateUserInterest", [pool, userShareAmountNew], nil)
594-                            else 0
595-                        if ((uplp == uplp))
596-                            then [IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserLastInterest), userNewInterest), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserShareTokensLocked), userShareAmountNew), IntegerEntry((pool + keyLastInterest), currentInterest), IntegerEntry((pool + keyLastInterestHeight), height), IntegerEntry((pool + keyShareTokensLocked), totalShareAmountNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyAvailableSWOP), availableFundsNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPClaimedAmount), userClaimedAmountNew), IntegerEntry((((pool + "_") + toString(i.originCaller)) + keyUserSWOPLastClaimedAmount), claimAmount), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
597-                            else throw("Strict value is not equal to itself.")
598-                        }
599-    }
477+func lockStakedShareTokens (pool,lockType,lockAmount) = valueOrElse(isActive(), {
478+    let shareAssetId = getShareAssetId(pool)
479+    let user = toString(i.originCaller)
480+    let totalShareStaked = getTotalShareTokenStaked(pool)
481+    let totalShareVirtual = valueOrElse(getInteger(this, (pool + kShareTokensVirtual)), totalShareStaked)
482+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
483+    let userLockedHeigt = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), 0)
484+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
485+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
486+    let totalUserShareTokens = (userStakedAmount + userLockedAmount)
487+    let $t02398624038 = getLockParams(lockType)
488+    let lockPeriod = $t02398624038._1
489+    let lockCoef = $t02398624038._2
490+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
491+    if ((height > getHeightFirstHarvest(pool)))
492+        then throw("You can't lock shareTokens till first harvest end.")
493+        else if ((lockType > 0))
494+            then throw("lockType must be > 0")
495+            else if ((lockAmount > userStakedAmount))
496+                then throw(("You can't lock more than " + toString(userStakedAmount)))
497+                else if ((accountBalance(shareAssetId) > totalShareStaked))
498+                    then throw("Balance of share-token is lower than totalAmount")
499+                    else if (if ((userLockedHeigt == 0))
500+                        then if (if ((1 > size(i.payments)))
501+                            then true
502+                            else (i.payments[0].assetId != unit))
503+                            then true
504+                            else (lockWavesFee > i.payments[0].amount)
505+                        else false)
506+                        then throw((("You need to pay additional waves comission " + toString(lockWavesFee)) + "WAVES"))
507+                        else if ((userLockedHeigt > (height + lockPeriod)))
508+                            then throw("You cannot lock sharetokens for a period less than what you have already locked")
509+                            else {
510+                                let userLockedAmountNew = (userLockedAmount + lockAmount)
511+                                let userStakedAmountNew = (userStakedAmount - lockAmount)
512+                                let userLockedHeigtNew = (height + lockPeriod)
513+                                let userAmountVirtualNew = (fraction(userLockedAmountNew, lockCoef, lockBoostCoefScale) + userStakedAmount)
514+                                let lockEntries = [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))]
515+                                let $t02573825837 = claimCalc(pool, user)
516+                                let farmInterest = $t02573825837._1
517+                                let boostInterest = $t02573825837._2
518+                                let boostLPinterest = $t02573825837._3
519+                                let claimAmount = $t02573825837._4
520+                                let toTreasure = $t02573825837._5
521+                                let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
522+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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(airdropMoneyBoxAddr, toTreasure, SWOP)]
523+                                }
524+    })
600525 
601526 
602527 
603528 @Callable(i)
604-func claim (pool) = {
605-    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
606-    let shareTokenLocked = getTotalShareTokenLocked(pool)
607-    let $t02568925755 = getLastInterestInfo(pool)
608-    let lastInterestHeight = $t02568925755._1
609-    let lastInterest = $t02568925755._2
610-    let $t02576025874 = rewardInfo(pool)
611-    let currentRewardPerBlock = $t02576025874._1
612-    let rewardUpdateHeight = $t02576025874._2
613-    let previousRewardPerBlock = $t02576025874._3
614-    let poolRewardUpdateHeight = $t02576025874._4
615-    let $t02587925984 = claimCalc(pool, i.caller, 1)
616-    let userNewInterest = $t02587925984._1
617-    let currentInterest = $t02587925984._2
618-    let claimAmount = $t02587925984._3
619-    let userShareTokensAmount = $t02587925984._4
620-    let availableFund = (userAvailableSWOP(pool, i.caller) + claimAmount)
621-    let userClaimedAmount = getUserSWOPClaimedAmount(pool, i.caller)
622-    let userClaimedAmountNew = (userClaimedAmount + claimAmount)
623-    if ((availableFund == 0))
624-        then throw("You have 0 available SWOP")
625-        else if (!(isActive))
626-            then throw("DApp is inactive at this moment")
627-            else if ((availableFund == 0))
628-                then throw("You have 0 available SWOP")
629-                else if ((fraction(99, accountBalance(shareTokensId), 100) > shareTokenLocked))
630-                    then throw("Balance of share-token is greater than totalAmount")
631-                    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)]
632-    }
529+func unlockUserLock (pool,user) = valueOrElse(isActive(), {
530+    let lockWavesFee = getIntegerValue(this, kLockWavesFee)
531+    let userLockedHeigt = valueOrErrorMessage(getInteger(this, (((pool + "_") + user) + kUserShareTokensLockedHeight)), (((("There is no pool " + pool) + " or user ") + user) + "with lock"))
532+    let totalShareVirtual = getIntegerValue(this, (pool + kShareTokensVirtual))
533+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
534+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
535+    let userAmountVirtual = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensVirtual)), userStakedAmount)
536+    if ((userLockedHeigt > height))
537+        then throw(("You can't unlock sharetokens till " + toString(userLockedHeigt)))
538+        else {
539+            let userStakedAmountNew = (userStakedAmount + userLockedAmount)
540+            let $t02752527624 = claimCalc(pool, user)
541+            let farmInterest = $t02752527624._1
542+            let boostInterest = $t02752527624._2
543+            let boostLPinterest = $t02752527624._3
544+            let claimAmount = $t02752527624._4
545+            let toTreasure = $t02752527624._5
546+            let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
547+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLocked)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedHeight)), DeleteEntry((((pool + "_") + user) + kUserShareTokensLockedType)), Reissue(SWOP, toTreasure, true), ScriptTransfer(airdropMoneyBoxAddr, toTreasure, SWOP), ScriptTransfer(i.caller, lockWavesFee, unit)]
548+            }
549+    })
633550 
634551 
635552 
636553 @Callable(i)
637-func shutdown () = if (!(isActive))
638-    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, keyCause), "the cause wasn't specified")))
639-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
640-        then throw("Only admin can call this function")
641-        else suspend("Paused by admin")
554+func withdrawShareTokens (pool,shareTokensWithdrawAmount) = valueOrElse(isActive(), {
555+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
556+    let user = toString(i.originCaller)
557+    let $t02912829227 = claimCalc(pool, user)
558+    let farmInterest = $t02912829227._1
559+    let boostInterest = $t02912829227._2
560+    let boostLPinterest = $t02912829227._3
561+    let claimAmount = $t02912829227._4
562+    let toTreasure = $t02912829227._5
563+    let userStakedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensStaked)), 0)
564+    let userLockedAmount = valueOrElse(getInteger(this, (((pool + "_") + user) + kUserShareTokensLocked)), 0)
565+    let userStakedAmountNew = (userStakedAmount - shareTokensWithdrawAmount)
566+    let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
567+    let totalShareAmount = getTotalShareTokenStaked(pool)
568+    let totalShareAmountNew = (totalShareAmount - shareTokensWithdrawAmount)
569+    if ((shareTokensWithdrawAmount > userStakedAmountNew))
570+        then throw("Withdraw amount more then user locked amount")
571+        else if ((accountBalance(shareTokensId) > totalShareAmount))
572+            then throw("Balance of share-token is lower than totalAmount")
573+            else {
574+                let uplp = if ((getString(Address(fromBase58String(pool)), "version") == "3.0.0"))
575+                    then invoke(lpFarmingAddress, "updateUserInterest", [pool, (userStakedAmount + userLockedAmount)], nil)
576+                    else 0
577+                if ((uplp == uplp))
578+                    then [IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kFarmLastInterest), farmInterest), IntegerEntry((pool + kBoostLastInterest), boostInterest), IntegerEntry((pool + kBoostLPLastInterest), boostLPinterest), IntegerEntry((pool + kLastInterestHeight), height), IntegerEntry((((pool + "_") + user) + kUserShareTokensStaked), userStakedAmountNew), IntegerEntry((pool + kShareTotalShareTokens), totalShareAmountNew), IntegerEntry((((pool + "_") + user) + kAvailableSWOP), availableFundsNew), Reissue(SWOP, toTreasure, true), ScriptTransfer(airdropMoneyBoxAddr, toTreasure, SWOP), ScriptTransfer(i.caller, shareTokensWithdrawAmount, shareTokensId)]
579+                    else throw("Strict value is not equal to itself.")
580+                }
581+    })
642582 
643583 
644584 
645585 @Callable(i)
646-func activate () = if (isActive)
586+func claim (pool) = valueOrElse(isActive(), {
587+    let shareTokensId = fromBase58String(getStringValue(value(addressFromString(pool)), "share_asset_id"))
588+    let user = toString(i.caller)
589+    let shareTokenLocked = getTotalShareTokenStaked(pool)
590+    let $t03137331472 = claimCalc(pool, user)
591+    let farmInterest = $t03137331472._1
592+    let boostInterest = $t03137331472._2
593+    let boostLPinterest = $t03137331472._3
594+    let claimAmount = $t03137331472._4
595+    let toTreasure = $t03137331472._5
596+    let availableFund = (userAvailableSWOP(pool, i.caller) + claimAmount)
597+    if ((availableFund == 0))
598+        then throw("You have 0 available SWOP")
599+        else if ((accountBalance(shareTokensId) > shareTokenLocked))
600+            then throw("Balance of share-token is lower than totalAmount")
601+            else $Tuple2([IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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(airdropMoneyBoxAddr, toTreasure, SWOP), ScriptTransfer(i.caller, availableFund, SWOP)], availableFund)
602+    })
603+
604+
605+
606+@Callable(i)
607+func claimAndStake (pool) = valueOrElse(isActive(), {
608+    let claimAmount = {
609+        let @ = invoke(this, "claim", [pool], nil)
610+        if ($isInstanceOf(@, "Int"))
611+            then @
612+            else throw(($getType(@) + " couldn't be cast to Int"))
613+        }
614+    if ((claimAmount == claimAmount))
615+        then {
616+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimAmount)])
617+            if ((stakeToGov == stakeToGov))
618+                then nil
619+                else throw("Strict value is not equal to itself.")
620+            }
621+        else throw("Strict value is not equal to itself.")
622+    })
623+
624+
625+
626+@Callable(i)
627+func claimAll (pools) = valueOrElse(isActive(), {
628+    func claimInv (claimTotal,pool) =     {
629+        let claimAmount = {
630+            let @ = invoke(this, "claim", [pool], nil)
631+            if ($isInstanceOf(@, "Int"))
632+                then @
633+                else throw(($getType(@) + " couldn't be cast to Int"))
634+            }
635+        if ((claimAmount == claimAmount))
636+            then (claimTotal + claimAmount)
637+            else throw("Strict value is not equal to itself.")
638+        }
639+
640+    let claimTotal = {
641+        let $l = pools
642+        let $s = size($l)
643+        let $acc0 = 0
644+        func $f0_1 ($a,$i) =         if (($i >= $s))
645+            then $a
646+            else claimInv($a, $l[$i])
647+
648+        func $f0_2 ($a,$i) =         if (($i >= $s))
649+            then $a
650+            else throw("List size exceeds 60")
651+
652+        $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)
653+        }
654+    if ((claimTotal == 0))
655+        then throw("You have 0 available SWOP")
656+        else [ScriptTransfer(i.caller, claimTotal, SWOP)]
657+    })
658+
659+
660+
661+@Callable(i)
662+func claimAllAndStake (pools) = valueOrElse(isActive(), {
663+    func claimInv (claimTotal,pool) =     {
664+        let claimAmount = {
665+            let @ = invoke(this, "claim", [pool], nil)
666+            if ($isInstanceOf(@, "Int"))
667+                then @
668+                else throw(($getType(@) + " couldn't be cast to Int"))
669+            }
670+        if ((claimAmount == claimAmount))
671+            then (claimTotal + claimAmount)
672+            else throw("Strict value is not equal to itself.")
673+        }
674+
675+    let claimTotal = {
676+        let $l = pools
677+        let $s = size($l)
678+        let $acc0 = 0
679+        func $f0_1 ($a,$i) =         if (($i >= $s))
680+            then $a
681+            else claimInv($a, $l[$i])
682+
683+        func $f0_2 ($a,$i) =         if (($i >= $s))
684+            then $a
685+            else throw("List size exceeds 60")
686+
687+        $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)
688+        }
689+    if ((claimTotal == 0))
690+        then throw("You have 0 available SWOP")
691+        else {
692+            let stakeToGov = invoke(govAddress, "lockSWOPFromFarming", nil, [AttachedPayment(SWOP, claimTotal)])
693+            if ((stakeToGov == stakeToGov))
694+                then nil
695+                else throw("Strict value is not equal to itself.")
696+            }
697+    })
698+
699+
700+
701+@Callable(i)
702+func updateUserBoostInterest (pool,user) = valueOrElse(isActive(), if ((i.caller != votingAddress))
703+    then throw("Only voiting can call this function")
704+    else {
705+        let $t03385233951 = claimCalc(pool, user)
706+        let farmInterest = $t03385233951._1
707+        let boostInterest = $t03385233951._2
708+        let boostLPinterest = $t03385233951._3
709+        let claimAmount = $t03385233951._4
710+        let toTreasure = $t03385233951._5
711+        let availableFundsNew = (userAvailableSWOP(pool, i.originCaller) + claimAmount)
712+[IntegerEntry((((pool + "_") + user) + kFarmUserLastInterest), farmInterest), IntegerEntry((((pool + "_") + user) + kBoostUserLastInterest), boostInterest), IntegerEntry((((pool + "_") + user) + kBoostLPLastInterest), 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(airdropMoneyBoxAddr, toTreasure, SWOP)]
713+        })
714+
715+
716+
717+@Callable(i)
718+func shutdown () = valueOrElse(isAdminCall(i), if (!(active))
719+    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
720+    else suspend("Paused by admin"))
721+
722+
723+
724+@Callable(i)
725+func activate () = valueOrElse(isAdminCall(i), if (active)
647726     then throw("DApp is already active")
648-    else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
649-        then throw("Only admin can call this function")
650-        else [BooleanEntry(keyActive, true), DeleteEntry(keyCause)]
727+    else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
651728 
652729 
653730 @Verifier(tx)
654731 func verify () = match tx {
655732     case _ => 
656733         let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
657734             then 1
658735             else 0
659736         let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
660737             then 1
661738             else 0
662739         let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
663740             then 1
664741             else 0
665742         (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
666743 }
667744 
github/deemru/w8io/169f3d6 
138.55 ms ◑