w8 · tx · FKv···atm

tx · FKvjctNsieZY5C49wsYYND8CNNwEMcADiw3PVUjGTatm

3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz:  -0.02200000 Waves

2023.01.24 10:21 [2418735] smart account 3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FKvjctNsieZY5C49wsYYND8CNNwEMcADiw3PVUjGTatm",
    "fee": 2200000,
    "feeAssetId": null,
    "timestamp": 1674544908939,
    "version": 1,
    "sender": "3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz",
    "senderPublicKey": "D28XoueZWsMfm8Y5pa6C5ZFuYoWgre2Wm8tzJANJgMnq",
    "proofs": [
        "44dQsznjDrkcmRRfW7hzS8Nsgrts2LQLhiRrABLZ7keZs2NtZoNgSEkschs4rUaVRtfPUxmLhQLWUweby2KEdANF"
    ],
    "script": "base64:BgL1HggCEgMKAQgSAwoBCBIDCgEIEgASABIECgIIARIDCgEIEgQKAggIEgYKBAEYCBgSBAoCGAgSBAoCCAgSAwoBCBIECgIICCIGU0NBTEU4IgVNVUxUOCIHU0NBTEUxOCIGTVVMVDE4IgNTRVAiDlBPT0xXRUlHSFRNVUxUIgp6ZXJvQmlnSW50IglvbmVCaWdJbnQiCWFzQW55TGlzdCIDdmFsIgckbWF0Y2gwIgp2YWxBbnlMeXN0IgVhc0ludCIGdmFsSW50Ighhc1N0cmluZyIGdmFsU3RyIgxhc0J5dGVWZWN0b3IiBnZhbEJpbiIPZ2V0U3RyaW5nT3JGYWlsIgdhZGRyZXNzIgNrZXkiGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbCIMZ2V0SW50T3JaZXJvIg9nZXRJbnRPckRlZmF1bHQiCmRlZmF1bHRWYWwiDGdldEludE9yRmFpbCIZZ2V0QmlnSW50RnJvbVN0cmluZ09yWmVybyIcZ2V0QmlnSW50RnJvbVN0cmluZ09yRGVmYXVsdCIBcyIFdG9YMTgiB29yaWdWYWwiDW9yaWdTY2FsZU11bHQiB2Zyb21YMTgiD3Jlc3VsdFNjYWxlTXVsdCIRa2V5RmFjdG9yeUFkZHJlc3MiGWtleVZvdGluZ0VtaXNzaW9uQ29udHJhY3QiGElkeEZhY3RvcnlDZmdTdGFraW5nRGFwcCIZSWR4RmFjdG9yeUNmZ0Jvb3N0aW5nRGFwcCIUSWR4RmFjdG9yeUNmZ0lkb0RhcHAiFUlkeEZhY3RvcnlDZmdUZWFtRGFwcCIZSWR4RmFjdG9yeUNmZ0VtaXNzaW9uRGFwcCIVSWR4RmFjdG9yeUNmZ1Jlc3REYXBwIhlJZHhGYWN0b3J5Q2ZnU2xpcHBhZ2VEYXBwIg1rZXlGYWN0b3J5Q2ZnIhNrZXlNYW5hZ2VyUHVibGljS2V5IhprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleSIWa2V5U3RhYmxlUG9vbEFkZG9uQWRkciIMa2V5QWRkb25BZGRyIhprZXlGYWN0b3J5THAyQXNzZXRzTWFwcGluZyIKbHBBc3NldFN0ciIQa2V5RmFjdG9yeUxwTGlzdCIma2V5RmFjdG9yeUxwQXNzZXRUb1Bvb2xDb250cmFjdEFkZHJlc3MiFGtleUZhY3RvcnlQb29sV2VpZ2h0Ig9jb250cmFjdEFkZHJlc3MiCnJlYWRMcExpc3QiB2ZhY3RvcnkiFHJlYWRGYWN0b3J5Q2ZnT3JGYWlsIhhnZXRCb29zdGluZ0FkZHJlc3NPckZhaWwiCmZhY3RvcnlDZmciGGdldEVtaXNzaW9uQWRkcmVzc09yRmFpbCIXZ2V0U3Rha2luZ0FkZHJlc3NPckZhaWwiHmtleUVtaXNzaW9uUmF0ZVBlckJsb2NrQ3VycmVudCIha2V5RW1pc3Npb25SYXRlUGVyQmxvY2tNYXhDdXJyZW50IhVrZXlFbWlzc2lvblN0YXJ0QmxvY2siG2tleUVtaXNzaW9uRHVyYXRpb25JbkJsb2NrcyITa2V5RW1pc3Npb25FbmRCbG9jayIPa2V5U3Rha2VkQnlVc2VyIg51c2VyQWRkcmVzc1N0ciIMbHBBc3NldElkU3RyIg5rZXlTdGFrZWRUb3RhbCIQa2V5Q2xhaW1lZEJ5VXNlciIZa2V5Q2xhaW1lZEJ5VXNlck1pblJld2FyZCIba2V5Q2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkIg9rZXlDbGFpbWVkVG90YWwiCnJlYWRTdGFrZWQiFWtleUxhc3RUb3RhbExwQmFsYW5jZSIJbHBBc3NldElkIhRrZXlMYXN0VXNlckxwQmFsYW5jZSILdXNlckFkZHJlc3MiGWtleVRvdGFsTHBCYWxhbmNlSW50ZWdyYWwiGGtleVVzZXJMcEJhbGFuY2VJbnRlZ3JhbCIma2V5VG90YWxMcEJhbGFuY2VJbnRlZ3JhbExhc3RVcGRIZWlnaHQiJWtleVVzZXJMcEJhbGFuY2VJbnRlZ3JhbExhc3RVcGRIZWlnaHQiEmtleVd4UGVyTHBJbnRlZ3JhbCIfa2V5V3hQZXJMcEludGVncmFsTGFzdFVwZEhlaWdodCIQa2V5V3hUb0NsYWltVXNlciIja2V5V3hQZXJMcEludGVncmFsVXNlckxhc3RVcGRIZWlnaHQiCmtleVd4UGVyTHAiDWtleVd4UGVyTHBYMTgiGmtleVd4UGVyTHBJbnRlZ3JhbFVzZXJMYXN0IhlrZXlPcGVyYXRpb25IaXN0b3J5UmVjb3JkIgR0eXBlIgZ0eElkNTgiE2Zvcm1hdEhpc3RvcnlSZWNvcmQiBmFtb3VudCIVT3BlcmF0aW9uSGlzdG9yeUVudHJ5IgR0eElkIg5mYWN0b3J5QWRkcmVzcyIPZmFjdG9yeUNvbnRyYWN0IhBlbWlzc2lvbkNvbnRyYWN0IhBib29zdGluZ0NvbnRyYWN0IgtrZXlOZXh0VXNlciIQZ2V0VXNlcnNMaXN0TmFtZSILa2V5TGlzdEhlYWQiCGxpc3ROYW1lIgtrZXlMaXN0U2l6ZSILa2V5TGlzdFByZXYiAmlkIgtrZXlMaXN0TmV4dCIMY29udGFpbnNOb2RlIgpoZWFkT3JVbml0IgpwcmV2T3JVbml0IgpuZXh0T3JVbml0IhFpbnNlcnROb2RlQWN0aW9ucyIIbGlzdFNpemUiCWNoZWNrTm9kZSIRZGVsZXRlTm9kZUFjdGlvbnMiG2NhbGNXeFBlckxwSW50ZWdyYWxVc2VyTGFzdCIMc3Rha2VkQnlVc2VyIiZ3eFBlckxwSW50ZWdyYWxVc2VyTGFzdFVwZEhlaWdodE9yWmVybyISd3hQZXJMcEludGVncmFsTmV3Ihp3eFBlckxwSW50ZWdyYWxVc2VyTGFzdEtFWSIUcmVmcmVzaFBvb2xJTlRFR1JBTFMiDnBvb2xBZGRyZXNzU3RyIg1scERlbHRhQW1vdW50Ig5zdGFrZWRUb3RhbEtFWSILc3Rha2VkVG90YWwiEm5vblplcm9TdGFrZWRUb3RhbCIKcG9vbFdlaWdodCISZW1pc3Npb25TdGFydEJsb2NrIgVNVUxUMyIUd3hFbWlzc2lvblBlckJsb2NrWDMiGHBvb2xXeEVtaXNzaW9uUGVyQmxvY2tYMyISd3hQZXJMcEludGVncmFsS0VZIh93eFBlckxwSW50ZWdyYWxMYXN0VXBkSGVpZ2h0S0VZIgp3eFBlckxwS0VZIhx3eFBlckxwSW50ZWdyYWxMYXN0VXBkSGVpZ2h0Ig93eFBlckxwSW50ZWdyYWwiD3d4UGVyTHBPclplcm9YMyICZGgiCXd4UGVyTHBYMyIOc3Rha2VkVG90YWxOZXciFW5vblplcm9TdGFrZWRUb3RhbE5ldyIMd3hQZXJMcFgzTmV3Ih93eFBlckxwSW50ZWdyYWxMYXN0VXBkSGVpZ2h0TmV3IgVkZWJ1ZyIQcmVmcmVzaElOVEVHUkFMUyINJHQwMTQyNzQxNDM5NiIRcG9vbEludGVncmFsU1RBVEUiCXBvb2xERUJVRyIPc3Rha2VkQnlVc2VyS0VZIhB3eFRvQ2xhaW1Vc2VyS0VZIiN3eFBlckxwSW50ZWdyYWxVc2VyTGFzdFVwZEhlaWdodEtFWSINd3hUb0NsYWltVXNlciIXd3hQZXJMcEludGVncmFsVXNlckxhc3QiBk1VTFQxMSIQd3hUb0NsYWltVXNlck5ldyIad3hQZXJMcEludGVncmFsVXNlckxhc3ROZXciI3d4UGVyTHBJbnRlZ3JhbFVzZXJMYXN0VXBkSGVpZ2h0TmV3IhZtYW5hZ2VyUHVibGljS2V5T3JVbml0Ih1wZW5kaW5nTWFuYWdlclB1YmxpY0tleU9yVW5pdCIVcGVybWlzc2lvbkRlbmllZEVycm9yIghtdXN0VGhpcyIBaSILbXVzdE1hbmFnZXIiAnBrIhFmYWN0b3J5QWRkcmVzc1N0ciILY2hlY2tDYWxsZXIiFnZvdGluZ0VtaXNzaW9uQ29udHJhY3QiBWNoZWtzIhdwZW5kaW5nTWFuYWdlclB1YmxpY0tleSIVY2hlY2tNYW5hZ2VyUHVibGljS2V5IgJwbSIFaGFzUE0iB2NoZWNrUE0iA3BtdCIJY2FsbGVyU3RyIg0kdDAxODgzMjE4OTQ5Ig1pbnRlZ3JhbFNUQVRFIgtsaXN0QWN0aW9ucyIJcG9vbEFkZG9uIg1jbGFpbWVkQnlVc2VyIgtwb29sQWRkcmVzcyIQYXZhaWxhYmxlVG9DbGFpbSIBciIGcmVzdWx0IhBjbGFpbWVkQnlVc2VyS0VZIg9jbGFpbWVkVG90YWxLRVkiGWNsYWltZWRCeVVzZXJNaW5SZXdhcmRLRVkiG2NsYWltZWRCeVVzZXJCb29zdFJld2FyZEtFWSIWY2xhaW1lZEJ5VXNlck1pblJld2FyZCIYY2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkIgxjbGFpbWVkVG90YWwiDSR0MDIyNzg3MjI4OTkiEnd4QW1vdW50Qm9vc3RUb3RhbCINbWluUmV3YXJkUGFydCIPYm9vc3RSZXdhcmRQYXJ0Igl3eEFzc2V0SWQiCWVtaXRCb29zdCISY2xhaW1lZEJ5VXNlclZhbHVlIh5jbGFpbWVkQnlVc2VyTWluUmV3YXJkUGx1c1BhcnQiK2NsYWltZWRCeVVzZXJCb29zdFJld2FyZFBsdXNCb29zdFJld2FyZFBhcnQiIGNsYWltZWRUb3RhbFBsdXNBdmFpbGFibGVUb0NsYWltIgtjdXJyZW50SXRlciIKbHBBc3NldElkcyIGcmVzQWNjIgRpbmZvIgFAIgl1bmNsYWltZWQiB2NsYWltZWQiA3JlcyIDaW52IhJ3eEVtaXNzaW9uUGVyQmxvY2siDHBhc3NlZEJsb2NrcyIOcG9vbFd4RW1pc3Npb24iDHVzZXJXeFJld2FyZCINJHQwMjYzNjkyNjQ4MSIOYm9vc3RJbnZSZXN1bHQiCmJvb3N0RGVidWciC3RvdGFsUmV3YXJkIgp1c2VyT3JVbml0IgckbWF0Y2gxIgRoZWFkIg5uZXh0VXNlck9yVW5pdCIIbmV4dFVzZXIiDSR0MDI4NzgxMjg4OTEiAnR4IgZ2ZXJpZnkiD3RhcmdldFB1YmxpY0tleV4AAWEACAABYgCAwtcvAAFjABIAAWQJALYCAQCAgJC7utat8A0AAWUCAl9fAAFmBQFiAAFnCQC2AgEAAAABaAkAtgIBAAEBAWkBAWoEAWsFAWoDCQABAgUBawIJTGlzdFtBbnldBAFsBQFrBQFsCQACAQIbZmFpbCB0byBjYXN0IGludG8gTGlzdFtBbnldAQFtAQFqBAFrBQFqAwkAAQIFAWsCA0ludAQBbgUBawUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEBbwEBagQBawUBagMJAAECBQFrAgZTdHJpbmcEAXAFAWsFAXAJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBAXEBAWoEAWsFAWoDCQABAgUBawIKQnl0ZVZlY3RvcgQBcgUBawUBcgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEBcwIBdAF1CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUBdAUBdQkArAICCQCsAgICD21hbmRhdG9yeSB0aGlzLgUBdQIPIGlzIG5vdCBkZWZpbmVkAQF2AgF0AXUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQF0BQF1CQCsAgIJAKwCAgkArAICCQCsAgICCm1hbmRhdG9yeSAJAKUIAQUBdAIBLgUBdQIPIGlzIG5vdCBkZWZpbmVkAQF3AgF0AXUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUBdAUBdQAAAQF4AwF0AXUBeQkBC3ZhbHVlT3JFbHNlAgkAmggCBQF0BQF1BQF5AQF6AgF0AXUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQF0BQF1CQCsAgIJAKwCAgIPbWFuZGF0b3J5IHRoaXMuBQF1Ag8gaXMgbm90IGRlZmluZWQBAUECAXQBdQkBBXZhbHVlAQkAqAMBCQELdmFsdWVPckVsc2UCCQCdCAIFAXQFAXUCATABAUIDAXQBdQF5BAFrCQCdCAIFAXQFAXUDCQABAgUBawIGU3RyaW5nBAFDBQFrCQEFdmFsdWUBCQCoAwEFAUMDCQABAgUBawIEVW5pdAUBeQkAAgECC01hdGNoIGVycm9yAQFEAgFFAUYJALwCAwkAtgIBBQFFBQFkCQC2AgEFAUYBAUcCAWoBSAkAoAMBCQC8AgMFAWoJALYCAQUBSAUBZAEBSQACHCVzJXNfX2NvbmZpZ19fZmFjdG9yeUFkZHJlc3MBAUoAAholc19fdm90aW5nRW1pc3Npb25Db250cmFjdAABSwABAAFMAAIAAU0AAwABTgAEAAFPAAUAAVAABgABUQAHAQFSAAIRJXNfX2ZhY3RvcnlDb25maWcBAVMAAhQlc19fbWFuYWdlclB1YmxpY0tleQEBVAACGyVzX19wZW5kaW5nTWFuYWdlclB1YmxpY0tleQEBVQACFyVzX19zdGFibGVQb29sQWRkb25BZGRyAQFWAAINJXNfX2FkZG9uQWRkcgEBVwEBWAkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQFYCQDMCAICHm1hcHBpbmdzX19scEFzc2V0MlBvb2xDb250cmFjdAUDbmlsBQFlAQFZAAIQJXNfX2xwVG9rZW5zTGlzdAEBWgEBWAkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQFYCQDMCAICHm1hcHBpbmdzX19scEFzc2V0MlBvb2xDb250cmFjdAUDbmlsBQFlAQJhYQECYWIJALkJAgkAzAgCAgQlcyVzCQDMCAICCnBvb2xXZWlnaHQJAMwIAgUCYWIFA25pbAUBZQECYWMBAmFkCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUCYWQJAQFZAAIABQFlAQJhZQECYWQJALUJAgkBAXYCBQJhZAkBAVIABQFlAQJhZgECYWcJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUCYWcFAUwBAmFoAQJhZwkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQJhZwUBTwECYWkBAmFnCQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFAmFnBQFLAQJhagACGyVzJXNfX3JhdGVQZXJCbG9ja19fY3VycmVudAECYWsAAh4lcyVzX19yYXRlUGVyQmxvY2tNYXhfX2N1cnJlbnQBAmFsAAIaJXMlc19fZW1pc3Npb25fX3N0YXJ0QmxvY2sBAmFtAAIYJXMlc19fZW1pc3Npb25fX2R1cmF0aW9uAQJhbgACGCVzJXNfX2VtaXNzaW9uX19lbmRCbG9jawECYW8CAmFwAmFxCQC5CQIJAMwIAgIOJXMlcyVzX19zdGFrZWQJAMwIAgUCYXAJAMwIAgUCYXEFA25pbAUBZQECYXIBAmFxCQCsAgICFyVzJXMlc19fc3Rha2VkX190b3RhbF9fBQJhcQECYXMCAmFxAmFwCQC5CQIJAMwIAgIPJXMlcyVzX19jbGFpbWVkCQDMCAIFAmFwCQDMCAIFAmFxBQNuaWwFAWUBAmF0AgJhcQJhcAkAuQkCCQDMCAICGCVzJXMlc19fY2xhaW1lZE1pblJld2FyZAkAzAgCBQJhcAkAzAgCBQJhcQUDbmlsBQFlAQJhdQICYXECYXAJALkJAgkAzAgCAholcyVzJXNfX2NsYWltZWRCb29zdFJld2FyZAkAzAgCBQJhcAkAzAgCBQJhcQUDbmlsBQFlAQJhdgECYXEJALkJAgkAzAgCAhYlcyVzJXNfX2NsYWltZWRfX3RvdGFsCQDMCAIFAmFxBQNuaWwFAWUBAmF3AQF1CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFAXUAAAECYXgBAmF5CQC5CQIJAMwIAgIGJXMlcyVzCQDMCAIFAmF5CQDMCAICBXRvdGFsCQDMCAICA2JhbAUDbmlsBQFlAQJhegICYXkCYUEJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgUCYXkJAMwIAgUCYUEJAMwIAgIDYmFsBQNuaWwFAWUBAmFCAQJheQkAuQkCCQDMCAICBiVzJXMlcwkAzAgCBQJheQkAzAgCAgV0b3RhbAkAzAgCAgZiYWxJTlQFA25pbAUBZQECYUMCAmF5AmFBCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAIFAmF5CQDMCAIFAmFBCQDMCAICBmJhbElOVAUDbmlsBQFlAQJhRAECYXkJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgUCYXkJAMwIAgIFdG90YWwJAMwIAgIHbGFzdFVwZAUDbmlsBQFlAQJhRQICYXkCYUEJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgUCYXkJAMwIAgUCYUEJAMwIAgIHbGFzdFVwZAUDbmlsBQFlAQJhRgECYXkJALkJAgkAzAgCAgglcyVzJXMlcwkAzAgCBQJheQkAzAgCAgZjb21tb24JAMwIAgIFbHBJbnQFA25pbAUBZQECYUcBAmF5CQC5CQIJAMwIAgIIJXMlcyVzJXMJAMwIAgUCYXkJAMwIAgIGY29tbW9uCQDMCAICBmxwSW50SAUDbmlsBQFlAQJhSAICYXkCYUEJALkJAgkAzAgCAgglcyVzJXMlcwkAzAgCBQJheQkAzAgCBQJhQQkAzAgCAgVscEludAUDbmlsBQFlAQJhSQICYXkCYUEJALkJAgkAzAgCAgglcyVzJXMlcwkAzAgCBQJheQkAzAgCBQJhQQkAzAgCAgZscEludEgFA25pbAUBZQECYUoBAmF5CQC5CQIJAMwIAgICJXMJAMwIAgUCYXkJAMwIAgIHd3hQZXJMcAUDbmlsBQFlAQJhSwECYXkJALkJAgkAzAgCAgIlcwkAzAgCBQJheQkAzAgCAgp3eFBlckxwWDE4BQNuaWwFAWUBAmFMAgJheQJhQQkAuQkCCQDMCAICCCVzJXMlcyVzCQDMCAIFAmF5CQDMCAIFAmFBCQDMCAICBXVJbnRMBQNuaWwFAWUBAmFNAwJhTgJhQQJhTwkAuQkCCQDMCAICESVzJXMlcyVzX19oaXN0b3J5CQDMCAIFAmFOCQDMCAIFAmFBCQDMCAIFAmFPBQNuaWwFAWUBAmFQBAJhQQJheQJhTgJhUQkAuQkCCQDMCAICDCVzJXMlcyVkJWQlZAkAzAgCBQJhQQkAzAgCBQJheQkAzAgCBQJhTgkAzAgCCQCkAwEFBmhlaWdodAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQUCYVEFA25pbAUBZQECYVIFAmFOAmFBAmF5AmFRAmFTCQELU3RyaW5nRW50cnkCCQECYU0DBQJhTgUCYUEJANgEAQUCYVMJAQJhUAQFAmFBBQJheQUCYU4FAmFRAAJhVAkBAXMCBQR0aGlzCQEBSQAAAmFVCQERQGV4dHJOYXRpdmUoMTA2MikBBQJhVAACYWcJAQJhZQEFAmFVAAJhVgkBAmFoAQUCYWcAAmFXCQECYWYBBQJhZwECYVgBAmF5CQC5CQIJAMwIAgIEJXMlcwkAzAgCBQJheQkAzAgCAghuZXh0VXNlcgUDbmlsBQFlAQJhWQECYXkJALkJAgkAzAgCAgV1c2VycwkAzAgCBQJheQUDbmlsBQFlAQJhWgECYmEJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgUCYmEJAMwIAgIEaGVhZAUDbmlsBQFlAQJiYgECYmEJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgUCYmEJAMwIAgIEc2l6ZQUDbmlsBQFlAQJiYwICYmECYmQJALkJAgkAzAgCAgglcyVzJXMlcwkAzAgCBQJiYQkAzAgCBQJiZAkAzAgCAgRwcmV2BQNuaWwFAWUBAmJlAgJiYQJiZAkAuQkCCQDMCAICCCVzJXMlcyVzCQDMCAIFAmJhCQDMCAIFAmJkCQDMCAICBG5leHQFA25pbAUBZQECYmYCAmJhAmJkBAJiZwkAnQgCBQR0aGlzCQECYVoBBQJiYQQCYmgJAJ0IAgUEdGhpcwkBAmJjAgUCYmEFAmJkBAJiaQkAnQgCBQR0aGlzCQECYmUCBQJiYQUCYmQDAwkAAAIFAmJkCQELdmFsdWVPckVsc2UCBQJiZwIABgkBAiE9AgUCYmgFBHVuaXQGCQECIT0CBQJiaQUEdW5pdAECYmoCAmJhAmJkBAJiZwkAnQgCBQR0aGlzCQECYVoBBQJiYQQCYmsJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkBAmJiAQUCYmEAAAQCYmwDCQEBIQEJAQJiZgIFAmJhBQJiZAYJAAIBAgtOb2RlIGV4aXN0cwMJAAACBQJibAUCYmwJAM4IAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECYmIBBQJiYQkAZAIFAmJrAAEFA25pbAMJAQIhPQIFAmJnBQR1bml0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJiZQIFAmJhBQJiZAkBBXZhbHVlAQUCYmcJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmJjAgUCYmEJAQV2YWx1ZQEFAmJnBQJiZAUDbmlsBQNuaWwJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFaAQUCYmEFAmJkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmJtAgJiYQJiZAQCYmcJAJ0IAgUEdGhpcwkBAmFaAQUCYmEEAmJrCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAQJiYgEFAmJhAAAEAmJoCQCdCAIFBHRoaXMJAQJiYwIFAmJhBQJiZAQCYmkJAJ0IAgUEdGhpcwkBAmJlAgUCYmEFAmJkCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJiYgEFAmJhCQBlAgUCYmsAAQUDbmlsAwMJAQIhPQIFAmJoBQR1bml0CQECIT0CBQJiaQUEdW5pdAcJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmJlAgUCYmEJAQV2YWx1ZQEFAmJoCQEFdmFsdWUBBQJiaQkAzAgCCQELU3RyaW5nRW50cnkCCQECYmMCBQJiYQkBBXZhbHVlAQUCYmkJAQV2YWx1ZQEFAmJoCQDMCAIJAQtEZWxldGVFbnRyeQEJAQJiYwIFAmJhBQJiZAkAzAgCCQELRGVsZXRlRW50cnkBCQECYmUCBQJiYQUCYmQFA25pbAMJAQIhPQIFAmJpBQR1bml0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhWgEFAmJhCQEFdmFsdWUBBQJiaQkAzAgCCQELRGVsZXRlRW50cnkBCQECYmUCBQJiYQUCYmQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBAmJjAgUCYmEJAQV2YWx1ZQEFAmJpBQNuaWwDCQECIT0CBQJiaAUEdW5pdAkAzAgCCQELRGVsZXRlRW50cnkBCQECYmMCBQJiYQUCYmQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBAmJlAgUCYmEJAQV2YWx1ZQEFAmJoBQNuaWwDCQAAAgUCYmQJAQt2YWx1ZU9yRWxzZQIFAmJnAgAJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBAmFaAQUCYmEFA25pbAkAAgEJAKwCAgkArAICCQCsAgICDmludmFsaWQgbm9kZTogBQJiYQIBLgUCYmQBAmJuBAJibwJicAJicQJicgMDCQAAAgUCYnAFAWcJAL8CAgUCYm8FAWcHBQFnAwkAAAIFAmJvBQFnBQJicQMDCQC/AgIFAmJwBQFnCQC/AgIFAmJvBQFnBwkBBXZhbHVlAQkAqAMBCQEBcwIFBHRoaXMFAmJyCQACAQItY2FsY1d4UGVyTHBJbnRlZ3JhbFVzZXJMYXN0OiB1bmV4cGVjdGVkIHN0YXRlAQJicwMCYXECYnQCYnUEAmJ2CQECYXIBBQJhcQQCYncJALYCAQkBAmF3AQUCYnYEAmJ4AwkAAAIFAmJ3BQFnBQFoBQJidwQCYnkJARFAZXh0ck5hdGl2ZSgxMDUwKQIFAmFVCQECYWEBBQJidAQCYnoJAQF6AgUCYVYJAQJhbAAEAmJBAOgHBAJiQgkAaAIJAQF6AgUCYVYJAQJhagAFAmJBBAJiQwkAawMFAmJCBQJieQkAaAIFAWYAAwQCYkQJAQJhRgEFAmFxBAJiRQkBAmFHAQUCYXEEAmJGCQECYUoBBQJhcQQCYkcJAQF4AwUEdGhpcwUCYkUFAmJ6BAJiSAkBAUECBQR0aGlzBQJiRAQCYkkAAAQCYkoJAJYDAQkAzAgCCQBlAgUGaGVpZ2h0BQJiRwkAzAgCAAAFA25pbAQCYksDCQECIT0CBQJiSQAACQC2AgEFAmJJCQC8AgMJALYCAQUCYkMJALYCAQUBYgUCYngEAmJMCQC3AgIFAmJ3CQC2AgEFAmJ1BAJiTQMJAAACBQJiTAUBZwUBaAUCYkwEAmJxCQC3AgIFAmJICQC5AgIFAmJLCQC2AgEFAmJKBAJiTgkAugICCQC2AgEFAmJDBQJiTQQCYk8FBmhlaWdodAQCYlAJALkJAgkAzAgCCQCmAwEFAmJxCQDMCAIJAKQDAQUCYkoJAMwIAgkApgMBBQJiSwkAzAgCCQCmAwEFAmJ3CQDMCAIJAKQDAQUCYkMJAMwIAgkApAMBBQJiQgkAzAgCCQCkAwEFAmJ5BQNuaWwCAjo6CQCVCgMFAmJxCQDMCAIJAQtTdHJpbmdFbnRyeQIFAmJECQCmAwEFAmJxCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJiRQUCYk8JAMwIAgkBC1N0cmluZ0VudHJ5AgUCYkYJAKYDAQUCYk4FA25pbAUCYlABAmJRBAJhcQJhcAJidAJidQQCYlIJAQJicwMFAmFxBQJidAUCYnUEAmJxCAUCYlICXzEEAmJTCAUCYlICXzIEAmJUCAUCYlICXzMEAmJBAOgHBAJiVQkBAmFvAgUCYXAFAmFxBAJibwkBAmF3AQUCYlUEAmJWCQECYUgCBQJhcQUCYXAEAmJXCQECYUkCBQJhcQUCYXAEAmJyCQECYUwCBQJhcQUCYXAEAmJYCQEBQQIFBHRoaXMFAmJWBAJicAkBAXcCBQR0aGlzBQJiVwQCYlkJAQJibgQJALYCAQUCYm8JALYCAQUCYnAFAmJxBQJicgQCYloJAGgCBQFiBQJiQQQCY2EJAJgDAQkAzAgCCQC3AgIFAmJYCQC8AgMJALgCAgUCYnEFAmJZCQC2AgEFAmJvCQC2AgEFAmJaCQDMCAIFAWcFA25pbAQCY2IFAmJxBAJjYwUGaGVpZ2h0BAJiUAkAuQkCCQDMCAIJAKYDAQUCYlgJAMwIAgkApgMBBQJiWQkAzAgCCQCkAwEFAmJvCQDMCAIFAmJUCQDMCAIJAKQDAQUGaGVpZ2h0BQNuaWwCAjo6CQCVCgMFAmNhCQDOCAIFAmJTCQDMCAIJAQtTdHJpbmdFbnRyeQIFAmJWCQCmAwEFAmNhCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJiVwUCY2MJAMwIAgkBC1N0cmluZ0VudHJ5AgUCYnIJAKYDAQUCY2IFA25pbAUCYlABAmNkAAQBawkAoggBCQEBUwADCQABAgUBawIGU3RyaW5nBAFDBQFrCQDZBAEFAUMDCQABAgUBawIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAQJjZQAEAWsJAKIIAQkBAVQAAwkAAQIFAWsCBlN0cmluZwQBQwUBawkA2QQBBQFDAwkAAQIFAWsCBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgACY2YJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAECY2cBAmNoAwkAAAIIBQJjaAZjYWxsZXIFBHRoaXMGBQJjZgECY2kBAmNoBAFrCQECY2QAAwkAAQIFAWsCCkJ5dGVWZWN0b3IEAmNqBQFrAwkAAAIIBQJjaA9jYWxsZXJQdWJsaWNLZXkFAmNqBgUCY2YDCQABAgUBawIEVW5pdAMJAAACCAUCY2gGY2FsbGVyBQR0aGlzBgUCY2YJAAIBAgtNYXRjaCBlcnJvcg0CY2gBC2NvbnN0cnVjdG9yAQJjawQCY2wJAQJjaQEFAmNoAwkAAAIFAmNsBQJjbAkAzAgCCQELU3RyaW5nRW50cnkCCQEBSQAFAmNrBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY2gBDWNvbnN0cnVjdG9yVjIBAmNtBAJjbgkAzAgCCQECY2kBBQJjaAkAzAgCAwkBAiE9AgkApggBBQJjbQUEdW5pdAYCKGludmFsaWQgdm90aW5nIGVtaXNzaW9uIGNvbnRyYWN0IGFkZHJlc3MFA25pbAMJAAACBQJjbgUCY24JAMwIAgkBC1N0cmluZ0VudHJ5AgkBAUoABQJjbQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNoAQpzZXRNYW5hZ2VyAQJjbwQCY2wJAQJjaQEFAmNoAwkAAAIFAmNsBQJjbAQCY3AJANkEAQUCY28DCQAAAgUCY3AFAmNwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFUAAUCY28FA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjaAEOY29uZmlybU1hbmFnZXIABAJjcQkBAmNlAAQCY3IDCQEJaXNEZWZpbmVkAQUCY3EGCQACAQISTm8gcGVuZGluZyBtYW5hZ2VyAwkAAAIFAmNyBQJjcgQCY3MDCQAAAggFAmNoD2NhbGxlclB1YmxpY0tleQkBBXZhbHVlAQUCY3EGCQACAQIbWW91IGFyZSBub3QgcGVuZGluZyBtYW5hZ2VyAwkAAAIFAmNzBQJjcwkAzAgCCQELU3RyaW5nRW50cnkCCQEBUwAJANgEAQkBBXZhbHVlAQUCY3EJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBAVQABQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY2gBBXN0YWtlAAMJAQIhPQIJAJADAQgFAmNoCHBheW1lbnRzAAEJAAIBAjRpbnZhbGlkIHBheW1lbnQgLSBleGFjdCBvbmUgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBAJjdAkAkQMCCAUCY2gIcGF5bWVudHMAAAQCYXkJAQV2YWx1ZQEIBQJjdAdhc3NldElkBAJhcQkA2AQBBQJheQQCYVEIBQJjdAZhbW91bnQEAmJ0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUCYVUJAQFXAQUCYXEJAKwCAgIVdW5zdXBwb3J0ZWQgbHAgYXNzZXQgBQJhcQQCY3UJAKUIAQgFAmNoBmNhbGxlcgQCYXADCQAAAgUCY3UFAmJ0CQClCAEIBQJjaAxvcmlnaW5DYWxsZXIFAmN1BAJiVQkBAmFvAgUCYXAFAmFxBAJidgkBAmFyAQUCYXEEAmJvCQECYXcBBQJiVQQCYncJAQJhdwEFAmJ2BAJjdgkBAmJRBAUCYXEFAmFwBQJidAUCYVEEAmNhCAUCY3YCXzEEAmN3CAUCY3YCXzIEAmJQCAUCY3YCXzMEAmJhCQECYVkBBQJhcQQCY3gDCQECYmYCBQJiYQUCYXAFA25pbAkBAmJqAgUCYmEFAmFwCQDOCAIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUCYlUJAGQCBQJibwUCYVEJAMwIAgkBDEludGVnZXJFbnRyeQIFAmJ2CQBkAgUCYncFAmFRCQDMCAIJAQJhUgUCBXN0YWtlBQJhcAUCYXEFAmFRCAUCY2gNdHJhbnNhY3Rpb25JZAUDbmlsBQJjdwUCY3gCY2gBB3Vuc3Rha2UCAmFxAmFRBAJheQkA2QQBBQJhcQQCYnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQJhVQkBAVcBBQJhcQkArAICAhV1bnN1cHBvcnRlZCBscCBhc3NldCAFAmFxBAJjeQkBC3ZhbHVlT3JFbHNlAgkAnQgCCQERQGV4dHJOYXRpdmUoMTA2MikBBQJidAkBAVYABQJidAQCY3UJAKUIAQgFAmNoBmNhbGxlcgQCYXADAwkAAAIFAmN1BQJidAYJAAACBQJjdQUCY3kJAKUIAQgFAmNoDG9yaWdpbkNhbGxlcgUCY3UEAmJVCQECYW8CBQJhcAUCYXEEAmJ2CQECYXIBBQJhcQQCYm8JAQJhdwEFAmJVBAJidwkBAmF3AQUCYnYEAmN3CAkBAmJRBAUCYXEFAmFwBQJidAkBAS0BBQJhUQJfMgQCYmEJAQJhWQEFAmFxBAJjeAMDCQECYmYCBQJiYQUCYXAJAAACBQJhUQUCYm8HCQECYm0CBQJiYQUCYXAFA25pbAQCY3oJAQFBAgUEdGhpcwkBAmFzAgUCYXEFAmFwBAJjQQkBAXYCBQJhVQkBAVoBBQJhcQQCY2EICQECYlEEBQJhcQUCYXAFAmNBAAACXzEEAmNCCQC4AgIFAmNhBQJjegQCY0MDCQC/AgIFAmNCBQFnCQD8BwQFBHRoaXMCD2NsYWltV3hJTlRFUk5BTAkAzAgCBQJhcQkAzAgCBQJhcAUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCY0MFAmNDAwkAZgIFAmFRBQJibwkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIOcGFzc2VkIGFtb3VudD0JAKQDAQUCYVECGyBpcyBncmVhdGVyIHRoYW4gYXZhaWxhYmxlPQkApAMBBQJibwIMLiBscEFzc2V0SWQ9BQJhcQISLiBzdGFrZWRCeVVzZXJLRVk9BQJiVQkAzggCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFAmJVCQBlAgUCYm8FAmFRCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJidgkAZQIFAmJ3BQJhUQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCY2gGY2FsbGVyBQJhUQUCYXkJAMwIAgkBAmFSBQIHdW5zdGFrZQUCYXAFAmFxBQJhUQgFAmNoDXRyYW5zYWN0aW9uSWQFA25pbAUCY3cFAmN4CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNoAQdjbGFpbVd4AQJhcQQCYXAJAKUIAQgFAmNoBmNhbGxlcgQCY0QJAPwHBAUEdGhpcwIPY2xhaW1XeElOVEVSTkFMCQDMCAIFAmFxCQDMCAIFAmFwBQNuaWwFA25pbAkAlAoCBQNuaWwFAmNEAmNoAQ9jbGFpbVd4SU5URVJOQUwCAmFxAmFwBAJjbAkBAmNnAQUCY2gDCQAAAgUCY2wFAmNsBAJhQQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEFAmFwAiVjbGFpbVd4SU5URVJOQUw6IGludmFsaWQgdXNlciBhZGRyZXNzBAJidAkBAXYCBQJhVQkBAVoBBQJhcQQCY0UJAQJhcwIFAmFxBQJhcAQCY0YJAQJhdgEFAmFxBAJjRwkBAmF0AgUCYXEFAmFwBAJjSAkBAmF1AgUCYXEFAmFwBAJjegkBAUECBQR0aGlzBQJjRQQCY0kJAQFBAgUEdGhpcwUCY0cEAmNKCQEBQQIFBHRoaXMFAmNIBAJjSwkBAUECBQR0aGlzBQJjRgQCY0wJAQJiUQQFAmFxBQJhcAUCYnQAAAQCY2EIBQJjTAJfMQQCY3cIBQJjTAJfMgQCYlAIBQJjTAJfMwQCY0IJAJgDAQkAzAgCCQC4AgIFAmNhBQJjegkAzAgCBQFnBQNuaWwDCQDAAgIFAWcFAmNCCQACAQIQbm90aGluZyB0byBjbGFpbQQCY00JAJYDAQkAzAgCCQEBbQEJAJEDAgkBAWkBCQD8BwQFAmFXAgxjbGFpbVd4Qm9vc3QJAMwIAgUCYXEJAMwIAgUCYXAFA25pbAUDbmlsAAAJAMwIAgAABQNuaWwEAmNOBQJjQgQCY08JAJkDAQkAzAgCCQC5AgIFAmNOCQC2AgEAAgkAzAgCCQC2AgEFAmNNBQNuaWwEAmNQCQEBcQEJAJEDAgkBAWkBCQD8BwQFAmFWAgRlbWl0CQDMCAIJAKADAQUCY04FA25pbAUDbmlsAAAEAmNRCQEBaQEJAPwHBAUCYVYCBGVtaXQJAMwIAgkAoAMBBQJjTwUDbmlsBQNuaWwDCQAAAgUCY1EFAmNRBAJjUgkAtwICCQC3AgIFAmN6BQJjTgUCY08EAmNTCQC3AgIFAmNJBQJjTgQCY1QJALcCAgUCY0oFAmNPBAJjVQkAtwICBQJjSwUCY0IJAMwIAgkBC1N0cmluZ0VudHJ5AgUCY0UJAKYDAQUCY1IJAMwIAgkBC1N0cmluZ0VudHJ5AgUCY0cJAKYDAQUCY1MJAMwIAgkBC1N0cmluZ0VudHJ5AgUCY0gJAKYDAQUCY1QJAMwIAgkBC1N0cmluZ0VudHJ5AgUCY0YJAKYDAQUCY1UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYUEJAKADAQUCY04FAmNQCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFBCQCgAwEFAmNPBQJjUAkAzAgCCQECYVIFAgVjbGFpbQUCYXAFAmFxCQCgAwEFAmNCCAUCY2gNdHJhbnNhY3Rpb25JZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNoARtjbGFpbVd4QnVsa0ludGVybmFsUkVBRE9OTFkEAmNWAmNXAmFwAmNYAwkAAAIFAmNWCQCQAwEFAmNXCQCUCgIFA25pbAUCY1gEAmF5CQCRAwIFAmNXBQJjVgQCY1kJALUJAgoAAmNaCQD8BwQFBHRoaXMCD2NsYWltV3hSRUFET05MWQkAzAgCBQJheQkAzAgCBQJhcAUDbmlsBQNuaWwDCQABAgUCY1oCBlN0cmluZwUCY1oJAAIBCQCsAgIJAAMBBQJjWgIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQFlBAJkYQkAkQMCBQJjWQADBAJkYgkAkQMCBQJjWQAEBAJkYwkAzQgCBQJjWAkAuQkCCQDMCAICBCVkJWQJAMwIAgUCZGEJAMwIAgUCZGIFA25pbAUBZQQCZGQKAAJjWgkA/AcEBQR0aGlzAhtjbGFpbVd4QnVsa0ludGVybmFsUkVBRE9OTFkJAMwIAgkAZAIFAmNWAAEJAMwIAgUCY1cJAMwIAgUCYXAJAMwIAgUCZGMFA25pbAUDbmlsAwkAAQIFAmNaAglMaXN0W0FueV0FAmNaCQACAQkArAICCQADAQUCY1oCHiBjb3VsZG4ndCBiZSBjYXN0IHRvIExpc3RbQW55XQMJAAACBQJkZAUCZGQJAJQKAgUDbmlsBQJkZAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjaAETY2xhaW1XeEJ1bGtSRUFET05MWQICY1cCYXAEAmRjCQD8BwQFBHRoaXMCG2NsYWltV3hCdWxrSW50ZXJuYWxSRUFET05MWQkAzAgCAAAJAMwIAgUCY1cJAMwIAgUCYXAJAMwIAgUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFAmRjAmNoAQ9jbGFpbVd4UkVBRE9OTFkCAmFxAmFwBAJiVQkBAmFvAgUCYXAFAmFxBAJidgkBAmFyAQUCYXEEAmNFCQECYXMCBQJhcQUCYXAEAmJvCQECYXcBBQJiVQQCYncJAQJhdwEFAmJ2BAJjegkBAUECBQR0aGlzBQJjRQQCYnQJAQF2AgUCYVUJAQFaAQUCYXEEAmJ5CQERQGV4dHJOYXRpdmUoMTA1MCkCBQJhVQkBAmFhAQUCYnQEAmRlCQEBegIFAmFWCQECYWoABAJiegkBAXoCBQJhVgkBAmFsAAQCZGYDCQBmAgUCYnoFBmhlaWdodAAACQBlAgUGaGVpZ2h0BQJiegQCZGcJAGsDCQBoAgUCZGUFAmRmBQJieQUBZgQCZGgJAGsDBQJkZwUCYm8FAmJ3BAJkaQkBAmJRBAUCYXEFAmFwBQJidAAABAJjYQgFAmRpAl8xBAJjdwgFAmRpAl8yBAJiUAgFAmRpAl8zBAJjQgkAmAMBCQDMCAIJALgCAgUCY2EFAmN6CQDMCAIFAWcFA25pbAQCZGoJAQFpAQkA/AcEBQJhVwIUY2xhaW1XeEJvb3N0UkVBRE9OTFkJAMwIAgUCYXEJAMwIAgUCYXAFA25pbAUDbmlsBAJjTQkAlgMBCQDMCAIJAQFtAQkAkQMCBQJkagAACQDMCAIAAAUDbmlsBAJkawkBAW8BCQCRAwIFAmRqAAEEAmNOBQJjQgQCY08JAJkDAQkAzAgCCQC5AgIFAmNOCQC2AgEAAgkAzAgCCQC2AgEFAmNNBQNuaWwEAmRsCQC3AgIFAmNOBQJjTwkAlAoCBQNuaWwJALkJAgkAzAgCAg4lcyVzJWQlZCVkJWQlcwkAzAgCBQJhcQkAzAgCBQJhcAkAzAgCCQCmAwEFAmRsCQDMCAIJAKYDAQUCY3oJAMwIAgkApgMBBQJjTgkAzAgCCQCmAwEFAmNPCQDMCAICBHNvb24FA25pbAUBZQJjaAESdXNlcnNMaXN0VHJhdmVyc2FsAQJheQQCY2wDCQAAAgkA2AQBCAgFAmNoBmNhbGxlcgVieXRlcwkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEBSgACAAYJAQJjaQEFAmNoAwkAAAIFAmNsBQJjbAQCYmEJAQJhWQEFAmF5BAJkbQkAoggBCQECYVgBBQJheQQCYmcJAKIIAQkBAmFaAQUCYmEEAWsFAmRtAwkAAQIFAWsCBFVuaXQEAmRuBQJiZwMJAAECBQJkbgIEVW5pdAkAlAoCBQNuaWwHAwkAAQIFAmRuAgZTdHJpbmcEAmRvBQJkbgkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhWAEFAmF5BQJkbwUDbmlsBgkAAgECC01hdGNoIGVycm9yAwkAAQIFAWsCBlN0cmluZwQCYUEFAWsEAmN6CQEBQQIFBHRoaXMJAQJhcwIFAmF5BQJhQQQCY0EJAQF2AgUCYVUJAQFaAQUCYXkEAmNhCAkBAmJRBAUCYXkFAmFBBQJjQQAAAl8xBAJjQgkAuAICBQJjYQUCY3oEAmNDAwkAvwICBQJjQgUBZwkA/AcEBQR0aGlzAg9jbGFpbVd4SU5URVJOQUwJAMwIAgUCYXkJAMwIAgUCYUEFA25pbAUDbmlsBQR1bml0AwkAAAIFAmNDBQJjQwQCZHAJAKIIAQkBAmJlAgUCYmEFAmFBBAJkbgUCZHADCQABAgUCZG4CBFVuaXQJAJQKAgkAzAgCCQELRGVsZXRlRW50cnkBCQECYVgBBQJheQUDbmlsBwMJAAECBQJkbgIGU3RyaW5nBAJkcQUCZG4JAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQECYVgBBQJheQUCZHEFA25pbAYJAAIBAgtNYXRjaCBlcnJvcgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECC01hdGNoIGVycm9yCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNoAQ5vbk1vZGlmeVdlaWdodAICYXECYnQDCQECIT0CCAUCY2gGY2FsbGVyBQJhVQkAAgECEnBlcm1pc3Npb25zIGRlbmllZAQCZHIJAQJicwMFAmFxBQJidAAABAJicQgFAmRyAl8xBAJiUwgFAmRyAl8yBAJiVAgFAmRyAl8zBQJiUwECZHMBAmR0AAQCZHUEAWsJAQJjZAADCQABAgUBawIKQnl0ZVZlY3RvcgQCY2oFAWsFAmNqAwkAAQIFAWsCBFVuaXQIBQJkcw9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgkA9AMDCAUCZHMJYm9keUJ5dGVzCQCRAwIIBQJkcwZwcm9vZnMAAAUCZHXNntII",
    "chainId": 84,
    "height": 2418735,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 89Z7jNZptYDhd2NtCj8wiVnHYaFiC1vDoNPzBsiwwQrE
Next: BcboRSGxB8ViFxjRS1fPojXiCAYo9yuvTyfqi4LjhxVx

Diff: 
Old New Differences
576 576                      let emitBoost = asAnyList(invoke(emissionContract, "emit", [toInt(boostRewardPart)], nil))
577 577                      if ((emitBoost == emitBoost))
578 578                          then {
579 -                             let claimedByUserValue = (claimedByUser + availableToClaim)
579 +                             let claimedByUserValue = ((claimedByUser + minRewardPart) + boostRewardPart)
580 580                              let claimedByUserMinRewardPlusPart = (claimedByUserMinReward + minRewardPart)
581 -                             let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserMinReward + minRewardPart)
582 -                             let claimedTotalPlusAvailableToClaim = (claimedByUserMinReward + minRewardPart)
581 +                             let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserBoostReward + boostRewardPart)
582 +                             let claimedTotalPlusAvailableToClaim = (claimedTotal + availableToClaim)
583 583  [StringEntry(claimedByUserKEY, toString(claimedByUserValue)), StringEntry(claimedByUserMinRewardKEY, toString(claimedByUserMinRewardPlusPart)), StringEntry(claimedByUserBoostRewardKEY, toString(claimedByUserBoostRewardPlusBoostRewardPart)), StringEntry(claimedTotalKEY, toString(claimedTotalPlusAvailableToClaim)), ScriptTransfer(userAddress, toInt(minRewardPart), wxAssetId), ScriptTransfer(userAddress, toInt(boostRewardPart), wxAssetId), OperationHistoryEntry("claim", userAddressStr, lpAssetIdStr, toInt(availableToClaim), i.transactionId)]
584 584                              }
585 585                          else throw("Strict value is not equal to itself.")
642 642          else (height - emissionStartBlock)
643 643      let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, POOLWEIGHTMULT)
644 644      let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
645 -     let $t02635726469 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
646 -     let wxToClaimUserNew = $t02635726469._1
647 -     let integralSTATE = $t02635726469._2
648 -     let debug = $t02635726469._3
645 +     let $t02636926481 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
646 +     let wxToClaimUserNew = $t02636926481._1
647 +     let integralSTATE = $t02636926481._2
648 +     let debug = $t02636926481._3
649 649      let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
650 650      let boostInvResult = asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [lpAssetIdStr, userAddressStr], nil))
651 651      let wxAmountBoostTotal = max([asInt(boostInvResult[0]), 0])
712 712  func onModifyWeight (lpAssetIdStr,poolAddressStr) = if ((i.caller != factoryContract))
713 713      then throw("permissions denied")
714 714      else {
715 -         let $t02876928879 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
716 -         let wxPerLpIntegralNew = $t02876928879._1
717 -         let poolIntegralSTATE = $t02876928879._2
718 -         let poolDEBUG = $t02876928879._3
715 +         let $t02878128891 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
716 +         let wxPerLpIntegralNew = $t02878128891._1
717 +         let poolIntegralSTATE = $t02878128891._2
718 +         let poolDEBUG = $t02878128891._3
719 719          poolIntegralSTATE
720 720          }
721 721  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SCALE8 = 8
5 5  
6 6  let MULT8 = 100000000
7 7  
8 8  let SCALE18 = 18
9 9  
10 10  let MULT18 = toBigInt(1000000000000000000)
11 11  
12 12  let SEP = "__"
13 13  
14 14  let POOLWEIGHTMULT = MULT8
15 15  
16 16  let zeroBigInt = toBigInt(0)
17 17  
18 18  let oneBigInt = toBigInt(1)
19 19  
20 20  func asAnyList (val) = match val {
21 21      case valAnyLyst: List[Any] => 
22 22          valAnyLyst
23 23      case _ => 
24 24          throw("fail to cast into List[Any]")
25 25  }
26 26  
27 27  
28 28  func asInt (val) = match val {
29 29      case valInt: Int => 
30 30          valInt
31 31      case _ => 
32 32          throw("fail to cast into Int")
33 33  }
34 34  
35 35  
36 36  func asString (val) = match val {
37 37      case valStr: String => 
38 38          valStr
39 39      case _ => 
40 40          throw("fail to cast into Int")
41 41  }
42 42  
43 43  
44 44  func asByteVector (val) = match val {
45 45      case valBin: ByteVector => 
46 46          valBin
47 47      case _ => 
48 48          throw("fail to cast into Int")
49 49  }
50 50  
51 51  
52 52  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (("mandatory this." + key) + " is not defined"))
53 53  
54 54  
55 55  func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
56 56  
57 57  
58 58  func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
59 59  
60 60  
61 61  func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
62 62  
63 63  
64 64  func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
65 65  
66 66  
67 67  func getBigIntFromStringOrZero (address,key) = value(parseBigInt(valueOrElse(getString(address, key), "0")))
68 68  
69 69  
70 70  func getBigIntFromStringOrDefault (address,key,defaultVal) = match getString(address, key) {
71 71      case s: String => 
72 72          value(parseBigInt(s))
73 73      case _: Unit => 
74 74          defaultVal
75 75      case _ => 
76 76          throw("Match error")
77 77  }
78 78  
79 79  
80 80  func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
81 81  
82 82  
83 83  func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
84 84  
85 85  
86 86  func keyFactoryAddress () = "%s%s__config__factoryAddress"
87 87  
88 88  
89 89  func keyVotingEmissionContract () = "%s__votingEmissionContract"
90 90  
91 91  
92 92  let IdxFactoryCfgStakingDapp = 1
93 93  
94 94  let IdxFactoryCfgBoostingDapp = 2
95 95  
96 96  let IdxFactoryCfgIdoDapp = 3
97 97  
98 98  let IdxFactoryCfgTeamDapp = 4
99 99  
100 100  let IdxFactoryCfgEmissionDapp = 5
101 101  
102 102  let IdxFactoryCfgRestDapp = 6
103 103  
104 104  let IdxFactoryCfgSlippageDapp = 7
105 105  
106 106  func keyFactoryCfg () = "%s__factoryConfig"
107 107  
108 108  
109 109  func keyManagerPublicKey () = "%s__managerPublicKey"
110 110  
111 111  
112 112  func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
113 113  
114 114  
115 115  func keyStablePoolAddonAddr () = "%s__stablePoolAddonAddr"
116 116  
117 117  
118 118  func keyAddonAddr () = "%s__addonAddr"
119 119  
120 120  
121 121  func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
122 122  
123 123  
124 124  func keyFactoryLpList () = "%s__lpTokensList"
125 125  
126 126  
127 127  func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
128 128  
129 129  
130 130  func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
131 131  
132 132  
133 133  func readLpList (factory) = split(valueOrElse(getString(factory, keyFactoryLpList()), ""), SEP)
134 134  
135 135  
136 136  func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
137 137  
138 138  
139 139  func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
140 140  
141 141  
142 142  func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
143 143  
144 144  
145 145  func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
146 146  
147 147  
148 148  func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
149 149  
150 150  
151 151  func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
152 152  
153 153  
154 154  func keyEmissionStartBlock () = "%s%s__emission__startBlock"
155 155  
156 156  
157 157  func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
158 158  
159 159  
160 160  func keyEmissionEndBlock () = "%s%s__emission__endBlock"
161 161  
162 162  
163 163  func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
164 164  
165 165  
166 166  func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
167 167  
168 168  
169 169  func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
170 170  
171 171  
172 172  func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
173 173  
174 174  
175 175  func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
176 176  
177 177  
178 178  func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed__total", lpAssetIdStr], SEP)
179 179  
180 180  
181 181  func readStaked (key) = valueOrElse(getInteger(this, key), 0)
182 182  
183 183  
184 184  func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
185 185  
186 186  
187 187  func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
188 188  
189 189  
190 190  func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
191 191  
192 192  
193 193  func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
194 194  
195 195  
196 196  func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
197 197  
198 198  
199 199  func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
200 200  
201 201  
202 202  func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
203 203  
204 204  
205 205  func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
206 206  
207 207  
208 208  func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
209 209  
210 210  
211 211  func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
212 212  
213 213  
214 214  func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
215 215  
216 216  
217 217  func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
218 218  
219 219  
220 220  func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
221 221  
222 222  
223 223  func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
224 224  
225 225  
226 226  func formatHistoryRecord (userAddress,lpAssetId,type,amount) = makeString(["%s%s%s%d%d%d", userAddress, lpAssetId, type, toString(height), toString(lastBlock.timestamp), toString(amount)], SEP)
227 227  
228 228  
229 229  func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
230 230  
231 231  
232 232  let factoryAddress = getStringOrFail(this, keyFactoryAddress())
233 233  
234 234  let factoryContract = addressFromStringValue(factoryAddress)
235 235  
236 236  let factoryCfg = readFactoryCfgOrFail(factoryContract)
237 237  
238 238  let emissionContract = getEmissionAddressOrFail(factoryCfg)
239 239  
240 240  let boostingContract = getBoostingAddressOrFail(factoryCfg)
241 241  
242 242  func keyNextUser (lpAssetId) = makeString(["%s%s", lpAssetId, "nextUser"], SEP)
243 243  
244 244  
245 245  func getUsersListName (lpAssetId) = makeString(["users", lpAssetId], SEP)
246 246  
247 247  
248 248  func keyListHead (listName) = makeString(["%s%s%s", listName, "head"], SEP)
249 249  
250 250  
251 251  func keyListSize (listName) = makeString(["%s%s%s", listName, "size"], SEP)
252 252  
253 253  
254 254  func keyListPrev (listName,id) = makeString(["%s%s%s%s", listName, id, "prev"], SEP)
255 255  
256 256  
257 257  func keyListNext (listName,id) = makeString(["%s%s%s%s", listName, id, "next"], SEP)
258 258  
259 259  
260 260  func containsNode (listName,id) = {
261 261      let headOrUnit = getString(this, keyListHead(listName))
262 262      let prevOrUnit = getString(this, keyListPrev(listName, id))
263 263      let nextOrUnit = getString(this, keyListNext(listName, id))
264 264      if (if ((id == valueOrElse(headOrUnit, "")))
265 265          then true
266 266          else (prevOrUnit != unit))
267 267          then true
268 268          else (nextOrUnit != unit)
269 269      }
270 270  
271 271  
272 272  func insertNodeActions (listName,id) = {
273 273      let headOrUnit = getString(this, keyListHead(listName))
274 274      let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
275 275      let checkNode = if (!(containsNode(listName, id)))
276 276          then true
277 277          else throw("Node exists")
278 278      if ((checkNode == checkNode))
279 279          then (([IntegerEntry(keyListSize(listName), (listSize + 1))] ++ (if ((headOrUnit != unit))
280 280              then [StringEntry(keyListNext(listName, id), value(headOrUnit)), StringEntry(keyListPrev(listName, value(headOrUnit)), id)]
281 281              else nil)) ++ [StringEntry(keyListHead(listName), id)])
282 282          else throw("Strict value is not equal to itself.")
283 283      }
284 284  
285 285  
286 286  func deleteNodeActions (listName,id) = {
287 287      let headOrUnit = getString(this, keyListHead(listName))
288 288      let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
289 289      let prevOrUnit = getString(this, keyListPrev(listName, id))
290 290      let nextOrUnit = getString(this, keyListNext(listName, id))
291 291      ([IntegerEntry(keyListSize(listName), (listSize - 1))] ++ (if (if ((prevOrUnit != unit))
292 292          then (nextOrUnit != unit)
293 293          else false)
294 294          then [StringEntry(keyListNext(listName, value(prevOrUnit)), value(nextOrUnit)), StringEntry(keyListPrev(listName, value(nextOrUnit)), value(prevOrUnit)), DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, id))]
295 295          else if ((nextOrUnit != unit))
296 296              then [StringEntry(keyListHead(listName), value(nextOrUnit)), DeleteEntry(keyListNext(listName, id)), DeleteEntry(keyListPrev(listName, value(nextOrUnit)))]
297 297              else if ((prevOrUnit != unit))
298 298                  then [DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, value(prevOrUnit)))]
299 299                  else if ((id == valueOrElse(headOrUnit, "")))
300 300                      then [DeleteEntry(keyListHead(listName))]
301 301                      else throw(((("invalid node: " + listName) + ".") + id))))
302 302      }
303 303  
304 304  
305 305  func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == zeroBigInt))
306 306      then (stakedByUser > zeroBigInt)
307 307      else false)
308 308      then zeroBigInt
309 309      else if ((stakedByUser == zeroBigInt))
310 310          then wxPerLpIntegralNew
311 311          else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > zeroBigInt))
312 312              then (stakedByUser > zeroBigInt)
313 313              else false)
314 314              then value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))
315 315              else throw("calcWxPerLpIntegralUserLast: unexpected state")
316 316  
317 317  
318 318  func refreshPoolINTEGRALS (lpAssetIdStr,poolAddressStr,lpDeltaAmount) = {
319 319      let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
320 320      let stakedTotal = toBigInt(readStaked(stakedTotalKEY))
321 321      let nonZeroStakedTotal = if ((stakedTotal == zeroBigInt))
322 322          then oneBigInt
323 323          else stakedTotal
324 324      let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
325 325      let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
326 326      let MULT3 = 1000
327 327      let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
328 328      let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
329 329      let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
330 330      let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
331 331      let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
332 332      let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
333 333      let wxPerLpIntegral = getBigIntFromStringOrZero(this, wxPerLpIntegralKEY)
334 334      let wxPerLpOrZeroX3 = 0
335 335      let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
336 336      let wxPerLpX3 = if ((wxPerLpOrZeroX3 != 0))
337 337          then toBigInt(wxPerLpOrZeroX3)
338 338          else fraction(toBigInt(poolWxEmissionPerBlockX3), toBigInt(MULT8), nonZeroStakedTotal)
339 339      let stakedTotalNew = (stakedTotal + toBigInt(lpDeltaAmount))
340 340      let nonZeroStakedTotalNew = if ((stakedTotalNew == zeroBigInt))
341 341          then oneBigInt
342 342          else stakedTotalNew
343 343      let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX3 * toBigInt(dh)))
344 344      let wxPerLpX3New = (toBigInt(poolWxEmissionPerBlockX3) / nonZeroStakedTotalNew)
345 345      let wxPerLpIntegralLastUpdHeightNew = height
346 346      let debug = makeString([toString(wxPerLpIntegralNew), toString(dh), toString(wxPerLpX3), toString(stakedTotal), toString(poolWxEmissionPerBlockX3), toString(wxEmissionPerBlockX3), toString(poolWeight)], "::")
347 347      $Tuple3(wxPerLpIntegralNew, [StringEntry(wxPerLpIntegralKEY, toString(wxPerLpIntegralNew)), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), StringEntry(wxPerLpKEY, toString(wxPerLpX3New))], debug)
348 348      }
349 349  
350 350  
351 351  func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
352 352      let $t01427414396 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, lpDeltaAmount)
353 353      let wxPerLpIntegralNew = $t01427414396._1
354 354      let poolIntegralSTATE = $t01427414396._2
355 355      let poolDEBUG = $t01427414396._3
356 356      let MULT3 = 1000
357 357      let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
358 358      let stakedByUser = readStaked(stakedByUserKEY)
359 359      let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
360 360      let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
361 361      let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
362 362      let wxToClaimUser = getBigIntFromStringOrZero(this, wxToClaimUserKEY)
363 363      let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
364 364      let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(toBigInt(stakedByUser), toBigInt(wxPerLpIntegralUserLastUpdHeightOrZero), wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
365 365      let MULT11 = (MULT8 * MULT3)
366 366      let wxToClaimUserNew = max([(wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), toBigInt(stakedByUser), toBigInt(MULT11))), zeroBigInt])
367 367      let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
368 368      let wxPerLpIntegralUserLastUpdHeightNew = height
369 369      let debug = makeString([toString(wxToClaimUser), toString(wxPerLpIntegralUserLast), toString(stakedByUser), poolDEBUG, toString(height)], "::")
370 370      $Tuple3(wxToClaimUserNew, (poolIntegralSTATE ++ [StringEntry(wxToClaimUserKEY, toString(wxToClaimUserNew)), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), StringEntry(wxPerLpIntegralUserLastKEY, toString(wxPerLpIntegralUserLastNew))]), debug)
371 371      }
372 372  
373 373  
374 374  func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
375 375      case s: String => 
376 376          fromBase58String(s)
377 377      case _: Unit => 
378 378          unit
379 379      case _ => 
380 380          throw("Match error")
381 381  }
382 382  
383 383  
384 384  func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
385 385      case s: String => 
386 386          fromBase58String(s)
387 387      case _: Unit => 
388 388          unit
389 389      case _ => 
390 390          throw("Match error")
391 391  }
392 392  
393 393  
394 394  let permissionDeniedError = throw("Permission denied")
395 395  
396 396  func mustThis (i) = if ((i.caller == this))
397 397      then true
398 398      else permissionDeniedError
399 399  
400 400  
401 401  func mustManager (i) = match managerPublicKeyOrUnit() {
402 402      case pk: ByteVector => 
403 403          if ((i.callerPublicKey == pk))
404 404              then true
405 405              else permissionDeniedError
406 406      case _: Unit => 
407 407          if ((i.caller == this))
408 408              then true
409 409              else permissionDeniedError
410 410      case _ => 
411 411          throw("Match error")
412 412  }
413 413  
414 414  
415 415  @Callable(i)
416 416  func constructor (factoryAddressStr) = {
417 417      let checkCaller = mustManager(i)
418 418      if ((checkCaller == checkCaller))
419 419          then [StringEntry(keyFactoryAddress(), factoryAddressStr)]
420 420          else throw("Strict value is not equal to itself.")
421 421      }
422 422  
423 423  
424 424  
425 425  @Callable(i)
426 426  func constructorV2 (votingEmissionContract) = {
427 427      let cheks = [mustManager(i), if ((addressFromString(votingEmissionContract) != unit))
428 428          then true
429 429          else "invalid voting emission contract address"]
430 430      if ((cheks == cheks))
431 431          then [StringEntry(keyVotingEmissionContract(), votingEmissionContract)]
432 432          else throw("Strict value is not equal to itself.")
433 433      }
434 434  
435 435  
436 436  
437 437  @Callable(i)
438 438  func setManager (pendingManagerPublicKey) = {
439 439      let checkCaller = mustManager(i)
440 440      if ((checkCaller == checkCaller))
441 441          then {
442 442              let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
443 443              if ((checkManagerPublicKey == checkManagerPublicKey))
444 444                  then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
445 445                  else throw("Strict value is not equal to itself.")
446 446              }
447 447          else throw("Strict value is not equal to itself.")
448 448      }
449 449  
450 450  
451 451  
452 452  @Callable(i)
453 453  func confirmManager () = {
454 454      let pm = pendingManagerPublicKeyOrUnit()
455 455      let hasPM = if (isDefined(pm))
456 456          then true
457 457          else throw("No pending manager")
458 458      if ((hasPM == hasPM))
459 459          then {
460 460              let checkPM = if ((i.callerPublicKey == value(pm)))
461 461                  then true
462 462                  else throw("You are not pending manager")
463 463              if ((checkPM == checkPM))
464 464                  then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
465 465                  else throw("Strict value is not equal to itself.")
466 466              }
467 467          else throw("Strict value is not equal to itself.")
468 468      }
469 469  
470 470  
471 471  
472 472  @Callable(i)
473 473  func stake () = if ((size(i.payments) != 1))
474 474      then throw("invalid payment - exact one payment must be attached")
475 475      else {
476 476          let pmt = i.payments[0]
477 477          let lpAssetId = value(pmt.assetId)
478 478          let lpAssetIdStr = toBase58String(lpAssetId)
479 479          let amount = pmt.amount
480 480          let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
481 481          let callerStr = toString(i.caller)
482 482          let userAddressStr = if ((callerStr == poolAddressStr))
483 483              then toString(i.originCaller)
484 484              else callerStr
485 485          let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
486 486          let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
487 487          let stakedByUser = readStaked(stakedByUserKEY)
488 488          let stakedTotal = readStaked(stakedTotalKEY)
489 489          let $t01883218949 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
490 490          let wxToClaimUserNew = $t01883218949._1
491 491          let integralSTATE = $t01883218949._2
492 492          let debug = $t01883218949._3
493 493          let listName = getUsersListName(lpAssetIdStr)
494 494          let listActions = if (containsNode(listName, userAddressStr))
495 495              then nil
496 496              else insertNodeActions(listName, userAddressStr)
497 497          (([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE) ++ listActions)
498 498          }
499 499  
500 500  
501 501  
502 502  @Callable(i)
503 503  func unstake (lpAssetIdStr,amount) = {
504 504      let lpAssetId = fromBase58String(lpAssetIdStr)
505 505      let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
506 506      let poolAddon = valueOrElse(getString(addressFromStringValue(poolAddressStr), keyAddonAddr()), poolAddressStr)
507 507      let callerStr = toString(i.caller)
508 508      let userAddressStr = if (if ((callerStr == poolAddressStr))
509 509          then true
510 510          else (callerStr == poolAddon))
511 511          then toString(i.originCaller)
512 512          else callerStr
513 513      let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
514 514      let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
515 515      let stakedByUser = readStaked(stakedByUserKEY)
516 516      let stakedTotal = readStaked(stakedTotalKEY)
517 517      let integralSTATE = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, -(amount))._2
518 518      let listName = getUsersListName(lpAssetIdStr)
519 519      let listActions = if (if (containsNode(listName, userAddressStr))
520 520          then (amount == stakedByUser)
521 521          else false)
522 522          then deleteNodeActions(listName, userAddressStr)
523 523          else nil
524 524      let claimedByUser = getBigIntFromStringOrZero(this, keyClaimedByUser(lpAssetIdStr, userAddressStr))
525 525      let poolAddress = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
526 526      let wxToClaimUserNew = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddress, 0)._1
527 527      let availableToClaim = (wxToClaimUserNew - claimedByUser)
528 528      let r = if ((availableToClaim > zeroBigInt))
529 529          then invoke(this, "claimWxINTERNAL", [lpAssetIdStr, userAddressStr], nil)
530 530          else unit
531 531      if ((r == r))
532 532          then if ((amount > stakedByUser))
533 533              then throw(((((((("passed amount=" + toString(amount)) + " is greater than available=") + toString(stakedByUser)) + ". lpAssetId=") + lpAssetIdStr) + ". stakedByUserKEY=") + stakedByUserKEY))
534 534              else (([IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE) ++ listActions)
535 535          else throw("Strict value is not equal to itself.")
536 536      }
537 537  
538 538  
539 539  
540 540  @Callable(i)
541 541  func claimWx (lpAssetIdStr) = {
542 542      let userAddressStr = toString(i.caller)
543 543      let result = invoke(this, "claimWxINTERNAL", [lpAssetIdStr, userAddressStr], nil)
544 544      $Tuple2(nil, result)
545 545      }
546 546  
547 547  
548 548  
549 549  @Callable(i)
550 550  func claimWxINTERNAL (lpAssetIdStr,userAddressStr) = {
551 551      let checkCaller = mustThis(i)
552 552      if ((checkCaller == checkCaller))
553 553          then {
554 554              let userAddress = valueOrErrorMessage(addressFromString(userAddressStr), "claimWxINTERNAL: invalid user address")
555 555              let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
556 556              let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
557 557              let claimedTotalKEY = keyClaimedTotal(lpAssetIdStr)
558 558              let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(lpAssetIdStr, userAddressStr)
559 559              let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(lpAssetIdStr, userAddressStr)
560 560              let claimedByUser = getBigIntFromStringOrZero(this, claimedByUserKEY)
561 561              let claimedByUserMinReward = getBigIntFromStringOrZero(this, claimedByUserMinRewardKEY)
562 562              let claimedByUserBoostReward = getBigIntFromStringOrZero(this, claimedByUserBoostRewardKEY)
563 563              let claimedTotal = getBigIntFromStringOrZero(this, claimedTotalKEY)
564 564              let $t02278722899 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
565 565              let wxToClaimUserNew = $t02278722899._1
566 566              let integralSTATE = $t02278722899._2
567 567              let debug = $t02278722899._3
568 568              let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
569 569              if ((zeroBigInt >= availableToClaim))
570 570                  then throw("nothing to claim")
571 571                  else {
572 572                      let wxAmountBoostTotal = max([asInt(asAnyList(invoke(boostingContract, "claimWxBoost", [lpAssetIdStr, userAddressStr], nil))[0]), 0])
573 573                      let minRewardPart = availableToClaim
574 574                      let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
575 575                      let wxAssetId = asByteVector(asAnyList(invoke(emissionContract, "emit", [toInt(minRewardPart)], nil))[0])
576 576                      let emitBoost = asAnyList(invoke(emissionContract, "emit", [toInt(boostRewardPart)], nil))
577 577                      if ((emitBoost == emitBoost))
578 578                          then {
579 -                             let claimedByUserValue = (claimedByUser + availableToClaim)
579 +                             let claimedByUserValue = ((claimedByUser + minRewardPart) + boostRewardPart)
580 580                              let claimedByUserMinRewardPlusPart = (claimedByUserMinReward + minRewardPart)
581 -                             let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserMinReward + minRewardPart)
582 -                             let claimedTotalPlusAvailableToClaim = (claimedByUserMinReward + minRewardPart)
581 +                             let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserBoostReward + boostRewardPart)
582 +                             let claimedTotalPlusAvailableToClaim = (claimedTotal + availableToClaim)
583 583  [StringEntry(claimedByUserKEY, toString(claimedByUserValue)), StringEntry(claimedByUserMinRewardKEY, toString(claimedByUserMinRewardPlusPart)), StringEntry(claimedByUserBoostRewardKEY, toString(claimedByUserBoostRewardPlusBoostRewardPart)), StringEntry(claimedTotalKEY, toString(claimedTotalPlusAvailableToClaim)), ScriptTransfer(userAddress, toInt(minRewardPart), wxAssetId), ScriptTransfer(userAddress, toInt(boostRewardPart), wxAssetId), OperationHistoryEntry("claim", userAddressStr, lpAssetIdStr, toInt(availableToClaim), i.transactionId)]
584 584                              }
585 585                          else throw("Strict value is not equal to itself.")
586 586                      }
587 587              }
588 588          else throw("Strict value is not equal to itself.")
589 589      }
590 590  
591 591  
592 592  
593 593  @Callable(i)
594 594  func claimWxBulkInternalREADONLY (currentIter,lpAssetIds,userAddressStr,resAcc) = if ((currentIter == size(lpAssetIds)))
595 595      then $Tuple2(nil, resAcc)
596 596      else {
597 597          let lpAssetId = lpAssetIds[currentIter]
598 598          let info = split({
599 599              let @ = invoke(this, "claimWxREADONLY", [lpAssetId, userAddressStr], nil)
600 600              if ($isInstanceOf(@, "String"))
601 601                  then @
602 602                  else throw(($getType(@) + " couldn't be cast to String"))
603 603              }, SEP)
604 604          let unclaimed = info[3]
605 605          let claimed = info[4]
606 606          let res = (resAcc :+ makeString(["%d%d", unclaimed, claimed], SEP))
607 607          let inv = {
608 608              let @ = invoke(this, "claimWxBulkInternalREADONLY", [(currentIter + 1), lpAssetIds, userAddressStr, res], nil)
609 609              if ($isInstanceOf(@, "List[Any]"))
610 610                  then @
611 611                  else throw(($getType(@) + " couldn't be cast to List[Any]"))
612 612              }
613 613          if ((inv == inv))
614 614              then $Tuple2(nil, inv)
615 615              else throw("Strict value is not equal to itself.")
616 616          }
617 617  
618 618  
619 619  
620 620  @Callable(i)
621 621  func claimWxBulkREADONLY (lpAssetIds,userAddressStr) = {
622 622      let res = invoke(this, "claimWxBulkInternalREADONLY", [0, lpAssetIds, userAddressStr, nil], nil)
623 623      $Tuple2(nil, res)
624 624      }
625 625  
626 626  
627 627  
628 628  @Callable(i)
629 629  func claimWxREADONLY (lpAssetIdStr,userAddressStr) = {
630 630      let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
631 631      let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
632 632      let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
633 633      let stakedByUser = readStaked(stakedByUserKEY)
634 634      let stakedTotal = readStaked(stakedTotalKEY)
635 635      let claimedByUser = getBigIntFromStringOrZero(this, claimedByUserKEY)
636 636      let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
637 637      let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
638 638      let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
639 639      let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
640 640      let passedBlocks = if ((emissionStartBlock > height))
641 641          then 0
642 642          else (height - emissionStartBlock)
643 643      let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, POOLWEIGHTMULT)
644 644      let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
645 -     let $t02635726469 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
646 -     let wxToClaimUserNew = $t02635726469._1
647 -     let integralSTATE = $t02635726469._2
648 -     let debug = $t02635726469._3
645 +     let $t02636926481 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
646 +     let wxToClaimUserNew = $t02636926481._1
647 +     let integralSTATE = $t02636926481._2
648 +     let debug = $t02636926481._3
649 649      let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
650 650      let boostInvResult = asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [lpAssetIdStr, userAddressStr], nil))
651 651      let wxAmountBoostTotal = max([asInt(boostInvResult[0]), 0])
652 652      let boostDebug = asString(boostInvResult[1])
653 653      let minRewardPart = availableToClaim
654 654      let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
655 655      let totalReward = (minRewardPart + boostRewardPart)
656 656      $Tuple2(nil, makeString(["%s%s%d%d%d%d%s", lpAssetIdStr, userAddressStr, toString(totalReward), toString(claimedByUser), toString(minRewardPart), toString(boostRewardPart), "soon"], SEP))
657 657      }
658 658  
659 659  
660 660  
661 661  @Callable(i)
662 662  func usersListTraversal (lpAssetId) = {
663 663      let checkCaller = if ((toBase58String(i.caller.bytes) == valueOrElse(getString(this, keyVotingEmissionContract()), "")))
664 664          then true
665 665          else mustManager(i)
666 666      if ((checkCaller == checkCaller))
667 667          then {
668 668              let listName = getUsersListName(lpAssetId)
669 669              let userOrUnit = getString(keyNextUser(lpAssetId))
670 670              let headOrUnit = getString(keyListHead(listName))
671 671              match userOrUnit {
672 672                  case _: Unit => 
673 673                      match headOrUnit {
674 674                          case _: Unit => 
675 675                              $Tuple2(nil, false)
676 676                          case head: String => 
677 677                              $Tuple2([StringEntry(keyNextUser(lpAssetId), head)], true)
678 678                          case _ => 
679 679                              throw("Match error")
680 680                      }
681 681                  case userAddress: String => 
682 682                      let claimedByUser = getBigIntFromStringOrZero(this, keyClaimedByUser(lpAssetId, userAddress))
683 683                      let poolAddress = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
684 684                      let wxToClaimUserNew = refreshINTEGRALS(lpAssetId, userAddress, poolAddress, 0)._1
685 685                      let availableToClaim = (wxToClaimUserNew - claimedByUser)
686 686                      let r = if ((availableToClaim > zeroBigInt))
687 687                          then invoke(this, "claimWxINTERNAL", [lpAssetId, userAddress], nil)
688 688                          else unit
689 689                      if ((r == r))
690 690                          then {
691 691                              let nextUserOrUnit = getString(keyListNext(listName, userAddress))
692 692                              match nextUserOrUnit {
693 693                                  case _: Unit => 
694 694                                      $Tuple2([DeleteEntry(keyNextUser(lpAssetId))], false)
695 695                                  case nextUser: String => 
696 696                                      $Tuple2([StringEntry(keyNextUser(lpAssetId), nextUser)], true)
697 697                                  case _ => 
698 698                                      throw("Match error")
699 699                              }
700 700                              }
701 701                          else throw("Strict value is not equal to itself.")
702 702                  case _ => 
703 703                      throw("Match error")
704 704              }
705 705              }
706 706          else throw("Strict value is not equal to itself.")
707 707      }
708 708  
709 709  
710 710  
711 711  @Callable(i)
712 712  func onModifyWeight (lpAssetIdStr,poolAddressStr) = if ((i.caller != factoryContract))
713 713      then throw("permissions denied")
714 714      else {
715 -         let $t02876928879 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
716 -         let wxPerLpIntegralNew = $t02876928879._1
717 -         let poolIntegralSTATE = $t02876928879._2
718 -         let poolDEBUG = $t02876928879._3
715 +         let $t02878128891 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
716 +         let wxPerLpIntegralNew = $t02878128891._1
717 +         let poolIntegralSTATE = $t02878128891._2
718 +         let poolDEBUG = $t02878128891._3
719 719          poolIntegralSTATE
720 720          }
721 721  
722 722  
723 723  @Verifier(tx)
724 724  func verify () = {
725 725      let targetPublicKey =     match managerPublicKeyOrUnit() {
726 726          case pk: ByteVector => 
727 727              pk
728 728          case _: Unit => 
729 729              tx.senderPublicKey
730 730          case _ => 
731 731              throw("Match error")
732 732      }
733 733      sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
734 734      }
735 735

Old	New		Differences
576	576		let emitBoost = asAnyList(invoke(emissionContract, "emit", [toInt(boostRewardPart)], nil))
577	577		if ((emitBoost == emitBoost))
578	578		then {
579		-	let claimedByUserValue = (claimedByUser + ~~availableToClaim~~)
	579	+	let claimedByUserValue = ((claimedByUser + minRewardPart) + boostRewardPart)
580	580		let claimedByUserMinRewardPlusPart = (claimedByUserMinReward + minRewardPart)
581		-	let claimedByUserBoostRewardPlusBoostRewardPart = (~~claimedByUserMinReward~~ + ~~minRewardPart~~)
582		-	let claimedTotalPlusAvailableToClaim = (~~claimedByUserMinReward~~ + ~~minRewardPart~~)
	581	+	let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserBoostReward + boostRewardPart)
	582	+	let claimedTotalPlusAvailableToClaim = (claimedTotal + availableToClaim)
583	583		[StringEntry(claimedByUserKEY, toString(claimedByUserValue)), StringEntry(claimedByUserMinRewardKEY, toString(claimedByUserMinRewardPlusPart)), StringEntry(claimedByUserBoostRewardKEY, toString(claimedByUserBoostRewardPlusBoostRewardPart)), StringEntry(claimedTotalKEY, toString(claimedTotalPlusAvailableToClaim)), ScriptTransfer(userAddress, toInt(minRewardPart), wxAssetId), ScriptTransfer(userAddress, toInt(boostRewardPart), wxAssetId), OperationHistoryEntry("claim", userAddressStr, lpAssetIdStr, toInt(availableToClaim), i.transactionId)]
584	584		}
585	585		else throw("Strict value is not equal to itself.")

642	642		else (height - emissionStartBlock)
643	643		let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, POOLWEIGHTMULT)
644	644		let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
645		-	let $~~t02635726469~~ = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
646		-	let wxToClaimUserNew = $~~t02635726469~~._1
647		-	let integralSTATE = $~~t02635726469~~._2
648		-	let debug = $~~t02635726469~~._3
	645	+	let $t02636926481 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
	646	+	let wxToClaimUserNew = $t02636926481._1
	647	+	let integralSTATE = $t02636926481._2
	648	+	let debug = $t02636926481._3
649	649		let availableToClaim = max([(wxToClaimUserNew - claimedByUser), zeroBigInt])
650	650		let boostInvResult = asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [lpAssetIdStr, userAddressStr], nil))
651	651		let wxAmountBoostTotal = max([asInt(boostInvResult[0]), 0])

712	712		func onModifyWeight (lpAssetIdStr,poolAddressStr) = if ((i.caller != factoryContract))
713	713		then throw("permissions denied")
714	714		else {
715		-	let $~~t02876928879~~ = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
716		-	let wxPerLpIntegralNew = $~~t02876928879~~._1
717		-	let poolIntegralSTATE = $~~t02876928879~~._2
718		-	let poolDEBUG = $~~t02876928879~~._3
	715	+	let $t02878128891 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
	716	+	let wxPerLpIntegralNew = $t02878128891._1
	717	+	let poolIntegralSTATE = $t02878128891._2
	718	+	let poolDEBUG = $t02878128891._3
719	719		poolIntegralSTATE
720	720		}
721	721

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let SCALE8 = 8
5	5
6	6	let MULT8 = 100000000
7	7
8	8	let SCALE18 = 18
9	9
10	10	let MULT18 = toBigInt(1000000000000000000)
11	11
12	12	let SEP = "__"
13	13
14	14	let POOLWEIGHTMULT = MULT8
15	15
16	16	let zeroBigInt = toBigInt(0)
17	17
18	18	let oneBigInt = toBigInt(1)
19	19
20	20	func asAnyList (val) = match val {
21	21	case valAnyLyst: List[Any] =>
22	22	valAnyLyst
23	23	case _ =>
24	24	throw("fail to cast into List[Any]")
25	25	}
26	26
27	27
28	28	func asInt (val) = match val {
29	29	case valInt: Int =>
30	30	valInt
31	31	case _ =>
32	32	throw("fail to cast into Int")
33	33	}
34	34
35	35
36	36	func asString (val) = match val {
37	37	case valStr: String =>
38	38	valStr
39	39	case _ =>
40	40	throw("fail to cast into Int")
41	41	}
42	42
43	43
44	44	func asByteVector (val) = match val {
45	45	case valBin: ByteVector =>
46	46	valBin
47	47	case _ =>
48	48	throw("fail to cast into Int")
49	49	}
50	50
51	51
52	52	func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (("mandatory this." + key) + " is not defined"))
53	53
54	54
55	55	func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
56	56
57	57
58	58	func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
59	59
60	60
61	61	func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
62	62
63	63
64	64	func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
65	65
66	66
67	67	func getBigIntFromStringOrZero (address,key) = value(parseBigInt(valueOrElse(getString(address, key), "0")))
68	68
69	69
70	70	func getBigIntFromStringOrDefault (address,key,defaultVal) = match getString(address, key) {
71	71	case s: String =>
72	72	value(parseBigInt(s))
73	73	case _: Unit =>
74	74	defaultVal
75	75	case _ =>
76	76	throw("Match error")
77	77	}
78	78
79	79
80	80	func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
81	81
82	82
83	83	func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
84	84
85	85
86	86	func keyFactoryAddress () = "%s%s__config__factoryAddress"
87	87
88	88
89	89	func keyVotingEmissionContract () = "%s__votingEmissionContract"
90	90
91	91
92	92	let IdxFactoryCfgStakingDapp = 1
93	93
94	94	let IdxFactoryCfgBoostingDapp = 2
95	95
96	96	let IdxFactoryCfgIdoDapp = 3
97	97
98	98	let IdxFactoryCfgTeamDapp = 4
99	99
100	100	let IdxFactoryCfgEmissionDapp = 5
101	101
102	102	let IdxFactoryCfgRestDapp = 6
103	103
104	104	let IdxFactoryCfgSlippageDapp = 7
105	105
106	106	func keyFactoryCfg () = "%s__factoryConfig"
107	107
108	108
109	109	func keyManagerPublicKey () = "%s__managerPublicKey"
110	110
111	111
112	112	func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
113	113
114	114
115	115	func keyStablePoolAddonAddr () = "%s__stablePoolAddonAddr"
116	116
117	117
118	118	func keyAddonAddr () = "%s__addonAddr"
119	119
120	120
121	121	func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
122	122
123	123
124	124	func keyFactoryLpList () = "%s__lpTokensList"
125	125
126	126
127	127	func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
128	128
129	129
130	130	func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
131	131
132	132
133	133	func readLpList (factory) = split(valueOrElse(getString(factory, keyFactoryLpList()), ""), SEP)
134	134
135	135
136	136	func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
137	137
138	138
139	139	func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
140	140
141	141
142	142	func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
143	143
144	144
145	145	func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
146	146
147	147
148	148	func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
149	149
150	150
151	151	func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
152	152
153	153
154	154	func keyEmissionStartBlock () = "%s%s__emission__startBlock"
155	155
156	156
157	157	func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
158	158
159	159
160	160	func keyEmissionEndBlock () = "%s%s__emission__endBlock"
161	161
162	162
163	163	func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
164	164
165	165
166	166	func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
167	167
168	168
169	169	func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
170	170
171	171
172	172	func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
173	173
174	174
175	175	func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
176	176
177	177
178	178	func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed__total", lpAssetIdStr], SEP)
179	179
180	180
181	181	func readStaked (key) = valueOrElse(getInteger(this, key), 0)
182	182
183	183
184	184	func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
185	185
186	186
187	187	func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
188	188
189	189
190	190	func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
191	191
192	192
193	193	func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
194	194
195	195
196	196	func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
197	197
198	198
199	199	func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
200	200
201	201
202	202	func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
203	203
204	204
205	205	func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
206	206
207	207
208	208	func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
209	209
210	210
211	211	func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
212	212
213	213
214	214	func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
215	215
216	216
217	217	func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
218	218
219	219
220	220	func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
221	221
222	222
223	223	func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
224	224
225	225
226	226	func formatHistoryRecord (userAddress,lpAssetId,type,amount) = makeString(["%s%s%s%d%d%d", userAddress, lpAssetId, type, toString(height), toString(lastBlock.timestamp), toString(amount)], SEP)
227	227
228	228
229	229	func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
230	230
231	231
232	232	let factoryAddress = getStringOrFail(this, keyFactoryAddress())
233	233
234	234	let factoryContract = addressFromStringValue(factoryAddress)
235	235
236	236	let factoryCfg = readFactoryCfgOrFail(factoryContract)
237	237
238	238	let emissionContract = getEmissionAddressOrFail(factoryCfg)
239	239
240	240	let boostingContract = getBoostingAddressOrFail(factoryCfg)
241	241
242	242	func keyNextUser (lpAssetId) = makeString(["%s%s", lpAssetId, "nextUser"], SEP)
243	243
244	244
245	245	func getUsersListName (lpAssetId) = makeString(["users", lpAssetId], SEP)
246	246
247	247
248	248	func keyListHead (listName) = makeString(["%s%s%s", listName, "head"], SEP)
249	249
250	250
251	251	func keyListSize (listName) = makeString(["%s%s%s", listName, "size"], SEP)
252	252
253	253
254	254	func keyListPrev (listName,id) = makeString(["%s%s%s%s", listName, id, "prev"], SEP)
255	255
256	256
257	257	func keyListNext (listName,id) = makeString(["%s%s%s%s", listName, id, "next"], SEP)
258	258
259	259
260	260	func containsNode (listName,id) = {
261	261	let headOrUnit = getString(this, keyListHead(listName))
262	262	let prevOrUnit = getString(this, keyListPrev(listName, id))
263	263	let nextOrUnit = getString(this, keyListNext(listName, id))
264	264	if (if ((id == valueOrElse(headOrUnit, "")))
265	265	then true
266	266	else (prevOrUnit != unit))
267	267	then true
268	268	else (nextOrUnit != unit)
269	269	}
270	270
271	271
272	272	func insertNodeActions (listName,id) = {
273	273	let headOrUnit = getString(this, keyListHead(listName))
274	274	let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
275	275	let checkNode = if (!(containsNode(listName, id)))
276	276	then true
277	277	else throw("Node exists")
278	278	if ((checkNode == checkNode))
279	279	then (([IntegerEntry(keyListSize(listName), (listSize + 1))] ++ (if ((headOrUnit != unit))
280	280	then [StringEntry(keyListNext(listName, id), value(headOrUnit)), StringEntry(keyListPrev(listName, value(headOrUnit)), id)]
281	281	else nil)) ++ [StringEntry(keyListHead(listName), id)])
282	282	else throw("Strict value is not equal to itself.")
283	283	}
284	284
285	285
286	286	func deleteNodeActions (listName,id) = {
287	287	let headOrUnit = getString(this, keyListHead(listName))
288	288	let listSize = valueOrElse(getInteger(this, keyListSize(listName)), 0)
289	289	let prevOrUnit = getString(this, keyListPrev(listName, id))
290	290	let nextOrUnit = getString(this, keyListNext(listName, id))
291	291	([IntegerEntry(keyListSize(listName), (listSize - 1))] ++ (if (if ((prevOrUnit != unit))
292	292	then (nextOrUnit != unit)
293	293	else false)
294	294	then [StringEntry(keyListNext(listName, value(prevOrUnit)), value(nextOrUnit)), StringEntry(keyListPrev(listName, value(nextOrUnit)), value(prevOrUnit)), DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, id))]
295	295	else if ((nextOrUnit != unit))
296	296	then [StringEntry(keyListHead(listName), value(nextOrUnit)), DeleteEntry(keyListNext(listName, id)), DeleteEntry(keyListPrev(listName, value(nextOrUnit)))]
297	297	else if ((prevOrUnit != unit))
298	298	then [DeleteEntry(keyListPrev(listName, id)), DeleteEntry(keyListNext(listName, value(prevOrUnit)))]
299	299	else if ((id == valueOrElse(headOrUnit, "")))
300	300	then [DeleteEntry(keyListHead(listName))]
301	301	else throw(((("invalid node: " + listName) + ".") + id))))
302	302	}
303	303
304	304
305	305	func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == zeroBigInt))
306	306	then (stakedByUser > zeroBigInt)
307	307	else false)
308	308	then zeroBigInt
309	309	else if ((stakedByUser == zeroBigInt))
310	310	then wxPerLpIntegralNew
311	311	else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > zeroBigInt))
312	312	then (stakedByUser > zeroBigInt)
313	313	else false)
314	314	then value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))
315	315	else throw("calcWxPerLpIntegralUserLast: unexpected state")
316	316
317	317
318	318	func refreshPoolINTEGRALS (lpAssetIdStr,poolAddressStr,lpDeltaAmount) = {
319	319	let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
320	320	let stakedTotal = toBigInt(readStaked(stakedTotalKEY))
321	321	let nonZeroStakedTotal = if ((stakedTotal == zeroBigInt))
322	322	then oneBigInt
323	323	else stakedTotal
324	324	let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
325	325	let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
326	326	let MULT3 = 1000
327	327	let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
328	328	let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
329	329	let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
330	330	let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
331	331	let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
332	332	let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
333	333	let wxPerLpIntegral = getBigIntFromStringOrZero(this, wxPerLpIntegralKEY)
334	334	let wxPerLpOrZeroX3 = 0
335	335	let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
336	336	let wxPerLpX3 = if ((wxPerLpOrZeroX3 != 0))
337	337	then toBigInt(wxPerLpOrZeroX3)
338	338	else fraction(toBigInt(poolWxEmissionPerBlockX3), toBigInt(MULT8), nonZeroStakedTotal)
339	339	let stakedTotalNew = (stakedTotal + toBigInt(lpDeltaAmount))
340	340	let nonZeroStakedTotalNew = if ((stakedTotalNew == zeroBigInt))
341	341	then oneBigInt
342	342	else stakedTotalNew
343	343	let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX3 * toBigInt(dh)))
344	344	let wxPerLpX3New = (toBigInt(poolWxEmissionPerBlockX3) / nonZeroStakedTotalNew)
345	345	let wxPerLpIntegralLastUpdHeightNew = height
346	346	let debug = makeString([toString(wxPerLpIntegralNew), toString(dh), toString(wxPerLpX3), toString(stakedTotal), toString(poolWxEmissionPerBlockX3), toString(wxEmissionPerBlockX3), toString(poolWeight)], "::")
347	347	$Tuple3(wxPerLpIntegralNew, [StringEntry(wxPerLpIntegralKEY, toString(wxPerLpIntegralNew)), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), StringEntry(wxPerLpKEY, toString(wxPerLpX3New))], debug)
348	348	}
349	349
350	350
351	351	func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
352	352	let $t01427414396 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, lpDeltaAmount)
353	353	let wxPerLpIntegralNew = $t01427414396._1
354	354	let poolIntegralSTATE = $t01427414396._2
355	355	let poolDEBUG = $t01427414396._3
356	356	let MULT3 = 1000
357	357	let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
358	358	let stakedByUser = readStaked(stakedByUserKEY)
359	359	let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
360	360	let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
361	361	let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
362	362	let wxToClaimUser = getBigIntFromStringOrZero(this, wxToClaimUserKEY)
363	363	let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
364	364	let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(toBigInt(stakedByUser), toBigInt(wxPerLpIntegralUserLastUpdHeightOrZero), wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
365	365	let MULT11 = (MULT8 * MULT3)
366	366	let wxToClaimUserNew = max([(wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), toBigInt(stakedByUser), toBigInt(MULT11))), zeroBigInt])
367	367	let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
368	368	let wxPerLpIntegralUserLastUpdHeightNew = height
369	369	let debug = makeString([toString(wxToClaimUser), toString(wxPerLpIntegralUserLast), toString(stakedByUser), poolDEBUG, toString(height)], "::")
370	370	$Tuple3(wxToClaimUserNew, (poolIntegralSTATE ++ [StringEntry(wxToClaimUserKEY, toString(wxToClaimUserNew)), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), StringEntry(wxPerLpIntegralUserLastKEY, toString(wxPerLpIntegralUserLastNew))]), debug)
371	371	}
372	372
373	373
374	374	func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
375	375	case s: String =>
376	376	fromBase58String(s)
377	377	case _: Unit =>
378	378	unit
379	379	case _ =>
380	380	throw("Match error")
381	381	}
382	382
383	383
384	384	func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
385	385	case s: String =>
386	386	fromBase58String(s)
387	387	case _: Unit =>
388	388	unit
389	389	case _ =>
390	390	throw("Match error")
391	391	}
392	392
393	393
394	394	let permissionDeniedError = throw("Permission denied")
395	395
396	396	func mustThis (i) = if ((i.caller == this))
397	397	then true
398	398	else permissionDeniedError
399	399
400	400
401	401	func mustManager (i) = match managerPublicKeyOrUnit() {
402	402	case pk: ByteVector =>
403	403	if ((i.callerPublicKey == pk))
404	404	then true
405	405	else permissionDeniedError
406	406	case _: Unit =>
407	407	if ((i.caller == this))
408	408	then true
409	409	else permissionDeniedError
410	410	case _ =>
411	411	throw("Match error")
412	412	}
413	413
414	414
415	415	@Callable(i)
416	416	func constructor (factoryAddressStr) = {
417	417	let checkCaller = mustManager(i)
418	418	if ((checkCaller == checkCaller))
419	419	then [StringEntry(keyFactoryAddress(), factoryAddressStr)]
420	420	else throw("Strict value is not equal to itself.")
421	421	}
422	422
423	423
424	424
425	425	@Callable(i)
426	426	func constructorV2 (votingEmissionContract) = {
427	427	let cheks = [mustManager(i), if ((addressFromString(votingEmissionContract) != unit))
428	428	then true
429	429	else "invalid voting emission contract address"]
430	430	if ((cheks == cheks))
431	431	then [StringEntry(keyVotingEmissionContract(), votingEmissionContract)]
432	432	else throw("Strict value is not equal to itself.")
433	433	}
434	434
435	435
436	436
437	437	@Callable(i)
438	438	func setManager (pendingManagerPublicKey) = {
439	439	let checkCaller = mustManager(i)
440	440	if ((checkCaller == checkCaller))
441	441	then {
442	442	let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
443	443	if ((checkManagerPublicKey == checkManagerPublicKey))
444	444	then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
445	445	else throw("Strict value is not equal to itself.")
446	446	}
447	447	else throw("Strict value is not equal to itself.")
448	448	}
449	449
450	450
451	451
452	452	@Callable(i)
453	453	func confirmManager () = {
454	454	let pm = pendingManagerPublicKeyOrUnit()
455	455	let hasPM = if (isDefined(pm))
456	456	then true
457	457	else throw("No pending manager")
458	458	if ((hasPM == hasPM))
459	459	then {
460	460	let checkPM = if ((i.callerPublicKey == value(pm)))
461	461	then true
462	462	else throw("You are not pending manager")
463	463	if ((checkPM == checkPM))
464	464	then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
465	465	else throw("Strict value is not equal to itself.")
466	466	}
467	467	else throw("Strict value is not equal to itself.")
468	468	}
469	469
470	470
471	471
472	472	@Callable(i)
473	473	func stake () = if ((size(i.payments) != 1))
474	474	then throw("invalid payment - exact one payment must be attached")
475	475	else {
476	476	let pmt = i.payments[0]
477	477	let lpAssetId = value(pmt.assetId)
478	478	let lpAssetIdStr = toBase58String(lpAssetId)
479	479	let amount = pmt.amount
480	480	let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
481	481	let callerStr = toString(i.caller)
482	482	let userAddressStr = if ((callerStr == poolAddressStr))
483	483	then toString(i.originCaller)
484	484	else callerStr
485	485	let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
486	486	let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
487	487	let stakedByUser = readStaked(stakedByUserKEY)
488	488	let stakedTotal = readStaked(stakedTotalKEY)
489	489	let $t01883218949 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
490	490	let wxToClaimUserNew = $t01883218949._1
491	491	let integralSTATE = $t01883218949._2
492	492	let debug = $t01883218949._3
493	493	let listName = getUsersListName(lpAssetIdStr)
494	494	let listActions = if (containsNode(listName, userAddressStr))
495	495	then nil
496	496	else insertNodeActions(listName, userAddressStr)
497	497	(([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE) ++ listActions)
498	498	}
499	499
500	500

github/deemru/w8io/026f985 
90.56 ms ◑