tx · H4UieFtjxW84a33dSYCZzxCZRZe1j9Sw94ZiXSK9qPN9

3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz:  -0.01000000 Waves

2021.11.25 18:20 [1806741] smart account 3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "H4UieFtjxW84a33dSYCZzxCZRZe1j9Sw94ZiXSK9qPN9",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1637853731233,
    "version": 1,
    "sender": "3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz",
    "senderPublicKey": "D28XoueZWsMfm8Y5pa6C5ZFuYoWgre2Wm8tzJANJgMnq",
    "proofs": [
        "2Joahxg13o1NQSguBhMyK6fV8vdHx5vcRsJWzvcUuRMqzQrhyd69gzoKeSD28vQDPhWJ5eLFnCz4CCiHsneL1uoz"
    ],
    "script": "base64:AAIFAAAAAAAAABoIAhIDCgEIEgASBAoCCAESAwoBCBIECgIICAAAACcAAAAABlNDQUxFOAAAAAAAAAAACAAAAAAFTVVMVDgAAAAAAAX14QAAAAAAB1NDQUxFMTgAAAAAAAAAABIAAAAABk1VTFQxOAkAATYAAAABAA3gtrOnZAAAAAAAAANTRVACAAAAAl9fAQAAAA9nZXRTdHJpbmdPckZhaWwAAAABAAAAA2tleQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEIgAAAAEFAAAAA2tleQkAASwAAAACCQABLAAAAAICAAAAD21hbmRhdG9yeSB0aGlzLgUAAAADa2V5AgAAAA8gaXMgbm90IGRlZmluZWQBAAAAGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbAAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAKbWFuZGF0b3J5IAkABCUAAAABBQAAAAdhZGRyZXNzAgAAAAEuBQAAAANrZXkCAAAADyBpcyBub3QgZGVmaW5lZAEAAAAMZ2V0SW50T3JaZXJvAAAAAgAAAAdhZGRyZXNzAAAAA2tleQkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkAAAAAAAAAAAABAAAADGdldEludE9yRmFpbAAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACAgAAAA9tYW5kYXRvcnkgdGhpcy4FAAAAA2tleQIAAAAPIGlzIG5vdCBkZWZpbmVkAQAAABFrZXlGYWN0b3J5QWRkcmVzcwAAAAACAAAAHCVzJXNfX2NvbmZpZ19fZmFjdG9yeUFkZHJlc3MAAAAAGElkeEZhY3RvcnlDZmdTdGFraW5nRGFwcAAAAAAAAAAAAQAAAAAZSWR4RmFjdG9yeUNmZ0Jvb3N0aW5nRGFwcAAAAAAAAAAAAgAAAAAUSWR4RmFjdG9yeUNmZ0lkb0RhcHAAAAAAAAAAAAMAAAAAFUlkeEZhY3RvcnlDZmdUZWFtRGFwcAAAAAAAAAAABAAAAAAZSWR4RmFjdG9yeUNmZ0VtaXNzaW9uRGFwcAAAAAAAAAAABQAAAAAVSWR4RmFjdG9yeUNmZ1Jlc3REYXBwAAAAAAAAAAAGAAAAABlJZHhGYWN0b3J5Q2ZnU2xpcHBhZ2VEYXBwAAAAAAAAAAAHAQAAAA1rZXlGYWN0b3J5Q2ZnAAAAAAIAAAARJXNfX2ZhY3RvcnlDb25maWcBAAAAGmtleUZhY3RvcnlMcDJBc3NldHNNYXBwaW5nAAAAAQAAAApscEFzc2V0U3RyCQAEuQAAAAIJAARMAAAAAgIAAAAGJXMlcyVzCQAETAAAAAIFAAAACmxwQXNzZXRTdHIJAARMAAAAAgIAAAAebWFwcGluZ3NfX2xwQXNzZXQyUG9vbENvbnRyYWN0BQAAAANuaWwFAAAAA1NFUAEAAAAQa2V5RmFjdG9yeUxwTGlzdAAAAAACAAAAECVzX19scFRva2Vuc0xpc3QBAAAAJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAAAAAQAAAApscEFzc2V0U3RyCQAEuQAAAAIJAARMAAAAAgIAAAAGJXMlcyVzCQAETAAAAAIFAAAACmxwQXNzZXRTdHIJAARMAAAAAgIAAAAebWFwcGluZ3NfX2xwQXNzZXQyUG9vbENvbnRyYWN0BQAAAANuaWwFAAAAA1NFUAEAAAAUa2V5RmFjdG9yeVBvb2xXZWlnaHQAAAABAAAAD2NvbnRyYWN0QWRkcmVzcwkABLkAAAACCQAETAAAAAICAAAABCVzJXMJAARMAAAAAgIAAAAKcG9vbFdlaWdodAkABEwAAAACBQAAAA9jb250cmFjdEFkZHJlc3MFAAAAA25pbAUAAAADU0VQAQAAABhyZWFkRmFjdG9yeUFkZHJlc3NPckZhaWwAAAAACQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQkBAAAAEWtleUZhY3RvcnlBZGRyZXNzAAAAAAEAAAAKcmVhZExwTGlzdAAAAAAJAAS1AAAAAgkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABB0AAAACCQEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAkBAAAAEGtleUZhY3RvcnlMcExpc3QAAAAAAgAAAAAFAAAAA1NFUAEAAAAUcmVhZEZhY3RvcnlDZmdPckZhaWwAAAABAAAAB2ZhY3RvcnkJAAS1AAAAAgkBAAAAGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbAAAAAIFAAAAB2ZhY3RvcnkJAQAAAA1rZXlGYWN0b3J5Q2ZnAAAAAAUAAAADU0VQAQAAABhnZXRCb29zdGluZ0FkZHJlc3NPckZhaWwAAAABAAAACmZhY3RvcnlDZmcJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAAGRAAAAAgUAAAAKZmFjdG9yeUNmZwUAAAAZSWR4RmFjdG9yeUNmZ0Jvb3N0aW5nRGFwcAEAAAAYZ2V0RW1pc3Npb25BZGRyZXNzT3JGYWlsAAAAAQAAAApmYWN0b3J5Q2ZnCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQABkQAAAAIFAAAACmZhY3RvcnlDZmcFAAAAGUlkeEZhY3RvcnlDZmdFbWlzc2lvbkRhcHABAAAAF2dldFN0YWtpbmdBZGRyZXNzT3JGYWlsAAAAAQAAAApmYWN0b3J5Q2ZnCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQABkQAAAAIFAAAACmZhY3RvcnlDZmcFAAAAGElkeEZhY3RvcnlDZmdTdGFraW5nRGFwcAEAAAAea2V5RW1pc3Npb25SYXRlUGVyQmxvY2tDdXJyZW50AAAAAAIAAAAbJXMlc19fcmF0ZVBlckJsb2NrX19jdXJyZW50AQAAACFrZXlFbWlzc2lvblJhdGVQZXJCbG9ja01heEN1cnJlbnQAAAAAAgAAAB4lcyVzX19yYXRlUGVyQmxvY2tNYXhfX2N1cnJlbnQBAAAAFWtleUVtaXNzaW9uU3RhcnRCbG9jawAAAAACAAAAGiVzJXNfX2VtaXNzaW9uX19zdGFydEJsb2NrAQAAABtrZXlFbWlzc2lvbkR1cmF0aW9uSW5CbG9ja3MAAAAAAgAAABglcyVzX19lbWlzc2lvbl9fZHVyYXRpb24BAAAAE2tleUVtaXNzaW9uRW5kQmxvY2sAAAAAAgAAABglcyVzX19lbWlzc2lvbl9fZW5kQmxvY2sBAAAAD2tleVN0YWtlZEJ5VXNlcgAAAAIAAAAOdXNlckFkZHJlc3NTdHIAAAAMbHBBc3NldElkU3RyCQAEuQAAAAIJAARMAAAAAgIAAAAOJXMlcyVzX19zdGFrZWQJAARMAAAAAgUAAAAOdXNlckFkZHJlc3NTdHIJAARMAAAAAgUAAAAMbHBBc3NldElkU3RyBQAAAANuaWwFAAAAA1NFUAEAAAAOa2V5U3Rha2VkVG90YWwAAAABAAAADGxwQXNzZXRJZFN0cgkAASwAAAACAgAAABclcyVzJXNfX3N0YWtlZF9fdG90YWxfXwUAAAAMbHBBc3NldElkU3RyAQAAAApyZWFkU3Rha2VkAAAAAQAAAANrZXkJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AAAAAAAAAAAAAQAAABlrZXlPcGVyYXRpb25IaXN0b3J5UmVjb3JkAAAAAwAAAAR0eXBlAAAAC3VzZXJBZGRyZXNzAAAABnR4SWQ1OAkABLkAAAACCQAETAAAAAICAAAAESVzJXMlcyVzX19oaXN0b3J5CQAETAAAAAIFAAAABHR5cGUJAARMAAAAAgUAAAALdXNlckFkZHJlc3MJAARMAAAAAgUAAAAGdHhJZDU4BQAAAANuaWwFAAAAA1NFUAEAAAATZm9ybWF0SGlzdG9yeVJlY29yZAAAAAQAAAALdXNlckFkZHJlc3MAAAAJbHBBc3NldElkAAAABHR5cGUAAAAGYW1vdW50CQAEuQAAAAIJAARMAAAAAgIAAAAMJXMlcyVzJWQlZCVkCQAETAAAAAIFAAAAC3VzZXJBZGRyZXNzCQAETAAAAAIFAAAACWxwQXNzZXRJZAkABEwAAAACBQAAAAR0eXBlCQAETAAAAAIJAAGkAAAAAQUAAAAGaGVpZ2h0CQAETAAAAAIJAAGkAAAAAQgFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAJAARMAAAAAgkAAaQAAAABBQAAAAZhbW91bnQFAAAAA25pbAUAAAADU0VQAQAAABVPcGVyYXRpb25IaXN0b3J5RW50cnkAAAAFAAAABHR5cGUAAAALdXNlckFkZHJlc3MAAAAJbHBBc3NldElkAAAABmFtb3VudAAAAAR0eElkCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAZa2V5T3BlcmF0aW9uSGlzdG9yeVJlY29yZAAAAAMFAAAABHR5cGUFAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEFAAAABHR4SWQJAQAAABNmb3JtYXRIaXN0b3J5UmVjb3JkAAAABAUAAAALdXNlckFkZHJlc3MFAAAACWxwQXNzZXRJZAUAAAAEdHlwZQUAAAAGYW1vdW50AAAABQAAAAFpAQAAAAtjb25zdHJ1Y3RvcgAAAAEAAAARZmFjdG9yeUFkZHJlc3NTdHIDCQEAAAACIT0AAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMJAAACAAAAAQIAAAAObm90IGF1dGhvcml6ZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEWtleUZhY3RvcnlBZGRyZXNzAAAAAAUAAAARZmFjdG9yeUFkZHJlc3NTdHIFAAAAA25pbAAAAAFpAQAAAAVzdGFrZQAAAAAEAAAAB2ZhY3RvcnkJAQAAABhyZWFkRmFjdG9yeUFkZHJlc3NPckZhaWwAAAAAAwkBAAAAAiE9AAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAAIAAAABAgAAADRpbnZhbGlkIHBheW1lbnQgLSBleGFjdCBvbmUgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBAAAAANwbXQJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAACWxwQXNzZXRJZAkBAAAABXZhbHVlAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkBAAAAAxscEFzc2V0SWRTdHIJAAJYAAAAAQUAAAAJbHBBc3NldElkBAAAAAZhbW91bnQIBQAAAANwbXQAAAAGYW1vdW50BAAAAAlscERhcHBTdHIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAdmYWN0b3J5CQEAAAAaa2V5RmFjdG9yeUxwMkFzc2V0c01hcHBpbmcAAAABBQAAAAxscEFzc2V0SWRTdHIJAAEsAAAAAgIAAAAVdW5zdXBwb3J0ZWQgbHAgYXNzZXQgBQAAAAxscEFzc2V0SWRTdHIEAAAACWNhbGxlclN0cgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIEAAAADnVzZXJBZGRyZXNzU3RyAwkAAAAAAAACBQAAAAljYWxsZXJTdHIFAAAACWxwRGFwcFN0cgkABCUAAAABCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIFAAAACWNhbGxlclN0cgQAAAAPc3Rha2VkQnlVc2VyS0VZCQEAAAAPa2V5U3Rha2VkQnlVc2VyAAAAAgUAAAAOdXNlckFkZHJlc3NTdHIFAAAADGxwQXNzZXRJZFN0cgQAAAAOc3Rha2VkVG90YWxLRVkJAQAAAA5rZXlTdGFrZWRUb3RhbAAAAAEFAAAADGxwQXNzZXRJZFN0cgQAAAAMc3Rha2VkQnlVc2VyCQEAAAAKcmVhZFN0YWtlZAAAAAEFAAAAD3N0YWtlZEJ5VXNlcktFWQQAAAALc3Rha2VkVG90YWwJAQAAAApyZWFkU3Rha2VkAAAAAQUAAAAOc3Rha2VkVG90YWxLRVkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAD3N0YWtlZEJ5VXNlcktFWQkAAGQAAAACBQAAAAxzdGFrZWRCeVVzZXIFAAAABmFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAOc3Rha2VkVG90YWxLRVkJAABkAAAAAgUAAAALc3Rha2VkVG90YWwFAAAABmFtb3VudAkABEwAAAACCQEAAAAVT3BlcmF0aW9uSGlzdG9yeUVudHJ5AAAABQIAAAAFc3Rha2UFAAAADnVzZXJBZGRyZXNzU3RyBQAAAAxscEFzc2V0SWRTdHIFAAAABmFtb3VudAgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAUAAAADbmlsAAAAAWkBAAAAB3Vuc3Rha2UAAAACAAAADGxwQXNzZXRJZFN0cgAAAAZhbW91bnQEAAAAB2ZhY3RvcnkJAQAAABhyZWFkRmFjdG9yeUFkZHJlc3NPckZhaWwAAAAABAAAAA51c2VyQWRkcmVzc1N0cgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIEAAAACWxwQXNzZXRJZAkAAlkAAAABBQAAAAxscEFzc2V0SWRTdHIDCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAAB2ZhY3RvcnkJAQAAABprZXlGYWN0b3J5THAyQXNzZXRzTWFwcGluZwAAAAEFAAAADGxwQXNzZXRJZFN0cgkAAAIAAAABCQABLAAAAAICAAAAFXVuc3VwcG9ydGVkIGxwIGFzc2V0IAUAAAAMbHBBc3NldElkU3RyBAAAAA9zdGFrZWRCeVVzZXJLRVkJAQAAAA9rZXlTdGFrZWRCeVVzZXIAAAACBQAAAA51c2VyQWRkcmVzc1N0cgUAAAAMbHBBc3NldElkU3RyBAAAAA5zdGFrZWRUb3RhbEtFWQkBAAAADmtleVN0YWtlZFRvdGFsAAAAAQUAAAAMbHBBc3NldElkU3RyBAAAAAxzdGFrZWRCeVVzZXIJAQAAAApyZWFkU3Rha2VkAAAAAQUAAAAPc3Rha2VkQnlVc2VyS0VZBAAAAAtzdGFrZWRUb3RhbAkBAAAACnJlYWRTdGFrZWQAAAABBQAAAA5zdGFrZWRUb3RhbEtFWQMJAABmAAAAAgUAAAAGYW1vdW50BQAAAAxzdGFrZWRCeVVzZXIJAAACAAAAAQIAAAAkcGFzc2VkIGFtb3VudCBpcyBsZXNzIHRoZW4gYXZhaWxhYmxlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAA9zdGFrZWRCeVVzZXJLRVkJAABlAAAAAgUAAAAMc3Rha2VkQnlVc2VyBQAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAADnN0YWtlZFRvdGFsS0VZCQAAZQAAAAIFAAAAC3N0YWtlZFRvdGFsBQAAAAZhbW91bnQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAZhbW91bnQFAAAACWxwQXNzZXRJZAkABEwAAAACCQEAAAAVT3BlcmF0aW9uSGlzdG9yeUVudHJ5AAAABQIAAAAHdW5zdGFrZQUAAAAOdXNlckFkZHJlc3NTdHIFAAAADGxwQXNzZXRJZFN0cgUAAAAGYW1vdW50CAUAAAABaQAAAA10cmFuc2FjdGlvbklkBQAAAANuaWwAAAABaQEAAAAHY2xhaW1XeAAAAAEAAAAMbHBBc3NldElkU3RyCQAAAgAAAAECAAAAEXRlbW9yYXJ5IGRpc2FibGVkAAAAAWkBAAAAD2NsYWltV3hSRUFET05MWQAAAAIAAAAMbHBBc3NldElkU3RyAAAAC3VzZXJBZGRyZXNzBAAAAA9mYWN0b3J5Q29udHJhY3QJAQAAABhyZWFkRmFjdG9yeUFkZHJlc3NPckZhaWwAAAAABAAAAApmYWN0b3J5Q2ZnCQEAAAAUcmVhZEZhY3RvcnlDZmdPckZhaWwAAAABBQAAAA9mYWN0b3J5Q29udHJhY3QEAAAAEGVtaXNzaW9uQ29udHJhY3QJAQAAABhnZXRFbWlzc2lvbkFkZHJlc3NPckZhaWwAAAABBQAAAApmYWN0b3J5Q2ZnBAAAAA9zdGFrZWRCeVVzZXJLRVkJAQAAAA9rZXlTdGFrZWRCeVVzZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAMbHBBc3NldElkU3RyBAAAAA5zdGFrZWRUb3RhbEtFWQkBAAAADmtleVN0YWtlZFRvdGFsAAAAAQUAAAAMbHBBc3NldElkU3RyBAAAAAxzdGFrZWRCeVVzZXIJAQAAAApyZWFkU3Rha2VkAAAAAQUAAAAPc3Rha2VkQnlVc2VyS0VZBAAAAAtzdGFrZWRUb3RhbAkBAAAACnJlYWRTdGFrZWQAAAABBQAAAA5zdGFrZWRUb3RhbEtFWQQAAAAOcG9vbEFkZHJlc3NTdHIJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAACZrZXlGYWN0b3J5THBBc3NldFRvUG9vbENvbnRyYWN0QWRkcmVzcwAAAAEFAAAADGxwQXNzZXRJZFN0cgQAAAAOcG9vbFdlaWdodE11bHQFAAAABU1VTFQ4BAAAAApwb29sV2VpZ2h0CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAABRrZXlGYWN0b3J5UG9vbFdlaWdodAAAAAEFAAAADnBvb2xBZGRyZXNzU3RyBAAAABJ3eEVtaXNzaW9uUGVyQmxvY2sJAQAAAAxnZXRJbnRPckZhaWwAAAACBQAAABBlbWlzc2lvbkNvbnRyYWN0CQEAAAAea2V5RW1pc3Npb25SYXRlUGVyQmxvY2tDdXJyZW50AAAAAAQAAAASZW1pc3Npb25TdGFydEJsb2NrCQEAAAAMZ2V0SW50T3JGYWlsAAAAAgUAAAAQZW1pc3Npb25Db250cmFjdAkBAAAAFWtleUVtaXNzaW9uU3RhcnRCbG9jawAAAAAEAAAADHBhc3NlZEJsb2NrcwMJAABmAAAAAgUAAAASZW1pc3Npb25TdGFydEJsb2NrBQAAAAZoZWlnaHQAAAAAAAAAAAAJAABlAAAAAgUAAAAGaGVpZ2h0BQAAABJlbWlzc2lvblN0YXJ0QmxvY2sEAAAADnBvb2xXeEVtaXNzaW9uCQAAawAAAAMJAABoAAAAAgUAAAASd3hFbWlzc2lvblBlckJsb2NrBQAAAAxwYXNzZWRCbG9ja3MFAAAACnBvb2xXZWlnaHQFAAAADnBvb2xXZWlnaHRNdWx0BAAAAAx1c2VyV3hSZXdhcmQJAABrAAAAAwUAAAAOcG9vbFd4RW1pc3Npb24FAAAADHN0YWtlZEJ5VXNlcgUAAAALc3Rha2VkVG90YWwJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAGJXMlcyVkCQAETAAAAAIFAAAADGxwQXNzZXRJZFN0cgkABEwAAAACBQAAAAt1c2VyQWRkcmVzcwkABEwAAAACCQABpAAAAAEFAAAADHVzZXJXeFJld2FyZAUAAAADbmlsBQAAAANTRVAAAAAAWCZNQg==",
    "chainId": 84,
    "height": 1806741,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GYN5ZtiJqKHpg3ovB1k6Qm5iB7Jtd3y6PuGHnG1tS4Mz
Next: 7DXFhDCR1ms35XKCKEzcEdJbMTyuy3mMFKUL2z8HXS2k

Diff: 
Old
New
Differences
11
11
 
12
12
 
let SEP = "__"
13
13
 
14
-
let POOLWEIGHTMULT = MULT8
15
-
16
-
func asAnyList (val) = match val {
17
-
    case valAnyLyst: List[Any] => 
18
-
        valAnyLyst
19
-
    case _ => 
20
-
        throw("fail to cast into List[Any]")
21
-
}
22
-
23
-
24
-
func asInt (val) = match val {
25
-
    case valInt: Int => 
26
-
        valInt
27
-
    case _ => 
28
-
        throw("fail to cast into Int")
29
-
}
30
-
31
-
32
-
func asByteVector (val) = match val {
33
-
    case valBin: ByteVector => 
34
-
        valBin
35
-
    case _ => 
36
-
        throw("fail to cast into Int")
37
-
}
38
-
39
-
40
14
 
func getStringOrFail (key) = valueOrErrorMessage(getString(key), (("mandatory this." + key) + " is not defined"))
41
15
 
42
16
 
46
20
 
func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
47
21
 
48
22
 
49
-
func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
50
-
51
-
52
23
 
func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
53
-
54
-
55
-
func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
56
-
57
-
58
-
func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
59
24
 
60
25
 
61
26
 
func keyFactoryAddress () = "%s%s__config__factoryAddress"
129
94
 
func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
130
95
 
131
96
 
132
-
func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
133
-
134
-
135
-
func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
136
-
137
-
138
-
func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
139
-
140
-
141
-
func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed", "total", lpAssetIdStr], SEP)
142
-
143
-
144
97
 
func readStaked (key) = valueOrElse(getInteger(this, key), 0)
145
-
146
-
147
-
func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
148
-
149
-
150
-
func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
151
-
152
-
153
-
func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
154
-
155
-
156
-
func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
157
-
158
-
159
-
func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
160
-
161
-
162
-
func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
163
-
164
-
165
-
func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
166
-
167
-
168
-
func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
169
-
170
-
171
-
func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
172
-
173
-
174
-
func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
175
-
176
-
177
-
func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
178
-
179
-
180
-
func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
181
-
182
-
183
-
func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
184
98
 
185
99
 
186
100
 
func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
192
106
 
func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
193
107
 
194
108
 
195
-
let factoryContract = readFactoryAddressOrFail()
196
-
197
-
let factoryCfg = readFactoryCfgOrFail(factoryContract)
198
-
199
-
let emissionContract = getEmissionAddressOrFail(factoryCfg)
200
-
201
-
let boostingContract = getBoostingAddressOrFail(factoryCfg)
202
-
203
-
func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == 0))
204
-
    then (stakedByUser > 0)
205
-
    else false)
206
-
    then 0
207
-
    else if ((stakedByUser == 0))
208
-
        then wxPerLpIntegralNew
209
-
        else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > 0))
210
-
            then (stakedByUser > 0)
211
-
            else false)
212
-
            then getIntOrFail(this, wxPerLpIntegralUserLastKEY)
213
-
            else throw("calcWxPerLpIntegralUserLast: unexpected state")
214
-
215
-
216
-
func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
217
-
    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
218
-
    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
219
-
    let stakedByUser = readStaked(stakedByUserKEY)
220
-
    let stakedTotal = readStaked(stakedTotalKEY)
221
-
    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
222
-
    let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
223
-
    let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
224
-
    let poolWxEmissionPerBlock = fraction(wxEmissionPerBlock, poolWeight, (POOLWEIGHTMULT * 3))
225
-
    let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
226
-
    let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
227
-
    let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
228
-
    let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
229
-
    let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
230
-
    let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
231
-
    let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
232
-
    let wxPerLpIntegral = getIntOrZero(this, wxPerLpIntegralKEY)
233
-
    let wxToClaimUser = getIntOrZero(this, wxToClaimUserKEY)
234
-
    let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
235
-
    let wxPerLpOrZeroX8 = getIntOrZero(this, wxPerLpKEY)
236
-
    let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
237
-
    let wxPerLpX8 = if ((wxPerLpOrZeroX8 != 0))
238
-
        then wxPerLpOrZeroX8
239
-
        else fraction(poolWxEmissionPerBlock, MULT8, stakedTotal)
240
-
    let stakedTotalNew = (stakedTotal + lpDeltaAmount)
241
-
    let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX8 * dh))
242
-
    let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(stakedByUser, wxPerLpIntegralUserLastUpdHeightOrZero, wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
243
-
    let wxToClaimUserNew = (wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), stakedByUser, MULT8))
244
-
    let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
245
-
    let wxPerLpNewX8 = (poolWxEmissionPerBlock / stakedTotalNew)
246
-
    let wxPerLpIntegralLastUpdHeightNew = height
247
-
    let wxPerLpIntegralUserLastUpdHeightNew = height
248
-
    let debug = makeString([toString(wxToClaimUserNew), toString(wxPerLpIntegralNew), toString(wxPerLpIntegralUserLast), toString(stakedByUser), toString(dh), toString(wxPerLpX8), toString(stakedTotal), toString(poolWxEmissionPerBlock), toString(wxEmissionPerBlock), toString(poolWeight), toString(height)], "::")
249
-
    $Tuple3(wxToClaimUserNew, [IntegerEntry(wxPerLpIntegralKEY, wxPerLpIntegralNew), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), IntegerEntry(wxToClaimUserKEY, wxToClaimUserNew), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), IntegerEntry(wxPerLpKEY, wxPerLpNewX8), IntegerEntry(wxPerLpIntegralUserLastKEY, wxPerLpIntegralUserLastNew)], debug)
250
-
    }
251
-
252
-
253
109
 
@Callable(i)
254
110
 
func constructor (factoryAddressStr) = if ((i.caller != this))
255
111
 
    then throw("not authorized")
258
114
 
259
115
 
260
116
 
@Callable(i)
261
-
func stake () = if ((size(i.payments) != 1))
262
-
    then throw("invalid payment - exact one payment must be attached")
263
-
    else {
264
-
        let pmt = i.payments[0]
265
-
        let lpAssetId = value(pmt.assetId)
266
-
        let lpAssetIdStr = toBase58String(lpAssetId)
267
-
        let amount = pmt.amount
268
-
        let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
269
-
        let callerStr = toString(i.caller)
270
-
        let userAddressStr = if ((callerStr == poolAddressStr))
271
-
            then toString(i.originCaller)
272
-
            else callerStr
273
-
        let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
274
-
        let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
275
-
        let stakedByUser = readStaked(stakedByUserKEY)
276
-
        let stakedTotal = readStaked(stakedTotalKEY)
277
-
        let $t01242712544 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
278
-
        let wxToClaimUserNew = $t01242712544._1
279
-
        let integralSTATE = $t01242712544._2
280
-
        let debug = $t01242712544._3
281
-
        ([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
282
-
        }
283
-
284
-
285
-
286
-
@Callable(i)
287
-
func unstake (lpAssetIdStr,amount) = {
288
-
    let userAddressStr = toString(i.caller)
289
-
    let lpAssetId = fromBase58String(lpAssetIdStr)
290
-
    let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
291
-
    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
292
-
    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
293
-
    let stakedByUser = readStaked(stakedByUserKEY)
294
-
    let stakedTotal = readStaked(stakedTotalKEY)
295
-
    let $t01336113479 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, -(amount))
296
-
    let wxToClaimUserNew = $t01336113479._1
297
-
    let integralSTATE = $t01336113479._2
298
-
    let debug = $t01336113479._3
299
-
    if ((amount > stakedByUser))
300
-
        then throw("passed amount is less then available")
301
-
        else ([IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
302
-
    }
303
-
304
-
305
-
306
-
@Callable(i)
307
-
func claimWx (lpAssetIdStr) = {
308
-
    let userAddress = i.caller
309
-
    let userAddressStr = toString(i.caller)
310
-
    let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
311
-
    let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
312
-
    let claimedTotalKEY = keyClaimedTotal(lpAssetIdStr)
313
-
    let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(lpAssetIdStr, userAddressStr)
314
-
    let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(lpAssetIdStr, userAddressStr)
315
-
    let claimedByUser = getIntOrZero(this, claimedByUserKEY)
316
-
    let claimedByUserMinReward = getIntOrZero(this, claimedByUserMinRewardKEY)
317
-
    let claimedByUserBoostReward = getIntOrZero(this, claimedByUserBoostRewardKEY)
318
-
    let claimedTotal = getIntOrZero(this, claimedTotalKEY)
319
-
    let $t01467114783 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
320
-
    let wxToClaimUserNew = $t01467114783._1
321
-
    let integralSTATE = $t01467114783._2
322
-
    let debug = $t01467114783._3
323
-
    let availableToClaim = (wxToClaimUserNew - claimedByUser)
324
-
    if ((0 >= availableToClaim))
325
-
        then throw("nothing to claim")
117
+
func stake () = {
118
+
    let factory = readFactoryAddressOrFail()
119
+
    if ((size(i.payments) != 1))
120
+
        then throw("invalid payment - exact one payment must be attached")
326
121
 
        else {
327
-
            let wxAmountBoostTotal = asInt(asAnyList(invoke(boostingContract, "claimWxBoost", [userAddressStr], nil))[0])
328
-
            let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
329
-
            let boostRewardPartTMP = fraction(wxAmountBoostTotal, poolWeight, POOLWEIGHTMULT)
330
-
            let minRewardPart = availableToClaim
331
-
            let boostRewardPart = min([(minRewardPart * 2), boostRewardPartTMP])
332
-
            let wxAssetId = asByteVector(asAnyList(invoke(emissionContract, "emit", [minRewardPart], nil))[0])
333
-
            let emitBoost = asAnyList(invoke(emissionContract, "emit", [boostRewardPart], nil))
334
-
            if ((emitBoost == emitBoost))
335
-
                then [IntegerEntry(claimedByUserKEY, (claimedByUser + availableToClaim)), IntegerEntry(claimedByUserMinRewardKEY, (claimedByUserMinReward + minRewardPart)), IntegerEntry(claimedByUserBoostRewardKEY, (claimedByUserBoostReward + boostRewardPart)), IntegerEntry(claimedTotalKEY, (claimedTotal + availableToClaim)), ScriptTransfer(userAddress, minRewardPart, wxAssetId), ScriptTransfer(userAddress, boostRewardPart, wxAssetId), OperationHistoryEntry("claim", userAddressStr, lpAssetIdStr, availableToClaim, i.transactionId)]
336
-
                else throw("Strict value is not equal to itself.")
122
+
            let pmt = i.payments[0]
123
+
            let lpAssetId = value(pmt.assetId)
124
+
            let lpAssetIdStr = toBase58String(lpAssetId)
125
+
            let amount = pmt.amount
126
+
            let lpDappStr = valueOrErrorMessage(getString(factory, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
127
+
            let callerStr = toString(i.caller)
128
+
            let userAddressStr = if ((callerStr == lpDappStr))
129
+
                then toString(i.originCaller)
130
+
                else callerStr
131
+
            let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
132
+
            let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
133
+
            let stakedByUser = readStaked(stakedByUserKEY)
134
+
            let stakedTotal = readStaked(stakedTotalKEY)
135
+
[IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)]
337
136
 
            }
338
137
 
    }
339
138
 
340
139
 
341
140
 
342
141
 
@Callable(i)
343
-
func claimWxREADONLY (lpAssetIdStr,userAddressStr) = {
344
-
    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
142
+
func unstake (lpAssetIdStr,amount) = {
143
+
    let factory = readFactoryAddressOrFail()
144
+
    let userAddressStr = toString(i.caller)
145
+
    let lpAssetId = fromBase58String(lpAssetIdStr)
146
+
    if (!(isDefined(getString(factory, keyFactoryLp2AssetsMapping(lpAssetIdStr)))))
147
+
        then throw(("unsupported lp asset " + lpAssetIdStr))
148
+
        else {
149
+
            let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
150
+
            let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
151
+
            let stakedByUser = readStaked(stakedByUserKEY)
152
+
            let stakedTotal = readStaked(stakedTotalKEY)
153
+
            if ((amount > stakedByUser))
154
+
                then throw("passed amount is less then available")
155
+
                else [IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)]
156
+
            }
157
+
    }
158
+
159
+
160
+
161
+
@Callable(i)
162
+
func claimWx (lpAssetIdStr) = throw("temorary disabled")
163
+
164
+
165
+
166
+
@Callable(i)
167
+
func claimWxREADONLY (lpAssetIdStr,userAddress) = {
168
+
    let factoryContract = readFactoryAddressOrFail()
169
+
    let factoryCfg = readFactoryCfgOrFail(factoryContract)
170
+
    let emissionContract = getEmissionAddressOrFail(factoryCfg)
171
+
    let stakedByUserKEY = keyStakedByUser(userAddress, lpAssetIdStr)
345
172
 
    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
346
-
    let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
347
173
 
    let stakedByUser = readStaked(stakedByUserKEY)
348
174
 
    let stakedTotal = readStaked(stakedTotalKEY)
349
-
    let claimedByUser = getIntOrZero(this, claimedByUserKEY)
350
175
 
    let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
351
176
 
    let poolWeightMult = MULT8
352
177
 
    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
357
182
 
        else (height - emissionStartBlock)
358
183
 
    let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, poolWeightMult)
359
184
 
    let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
360
-
    let $t01720517317 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
361
-
    let wxToClaimUserNew = $t01720517317._1
362
-
    let integralSTATE = $t01720517317._2
363
-
    let debug = $t01720517317._3
364
-
    let availableToClaim = (wxToClaimUserNew - claimedByUser)
365
-
    let wxAmountBoostTotal = asInt(asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [userAddressStr], nil))[0])
366
-
    let boostRewardPartTMP = fraction(wxAmountBoostTotal, poolWeight, POOLWEIGHTMULT)
367
-
    let minRewardPart = availableToClaim
368
-
    let boostRewardPart = min([(minRewardPart * 2), boostRewardPartTMP])
369
-
    let totalReward = (minRewardPart + boostRewardPart)
370
-
    $Tuple2(nil, makeString(["%s%s%d%d%d%d%s", lpAssetIdStr, userAddressStr, toString(totalReward), toString(claimedByUser), toString(minRewardPart), toString(boostRewardPart), ((debug + "::") + toString(userWxReward))], SEP))
185
+
    $Tuple2(nil, makeString(["%s%s%d", lpAssetIdStr, userAddress, toString(userWxReward)], SEP))
371
186
 
    }
372
187
 
373
188
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
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
-
let POOLWEIGHTMULT = MULT8
15
-
16
-
func asAnyList (val) = match val {
17
-
    case valAnyLyst: List[Any] => 
18
-
        valAnyLyst
19
-
    case _ => 
20
-
        throw("fail to cast into List[Any]")
21
-
}
22
-
23
-
24
-
func asInt (val) = match val {
25
-
    case valInt: Int => 
26
-
        valInt
27
-
    case _ => 
28
-
        throw("fail to cast into Int")
29
-
}
30
-
31
-
32
-
func asByteVector (val) = match val {
33
-
    case valBin: ByteVector => 
34
-
        valBin
35
-
    case _ => 
36
-
        throw("fail to cast into Int")
37
-
}
38
-
39
-
40
14
 
func getStringOrFail (key) = valueOrErrorMessage(getString(key), (("mandatory this." + key) + " is not defined"))
41
15
 
42
16
 
43
17
 
func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
44
18
 
45
19
 
46
20
 
func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
47
21
 
48
22
 
49
-
func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
50
-
51
-
52
23
 
func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
53
-
54
-
55
-
func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
56
-
57
-
58
-
func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
59
24
 
60
25
 
61
26
 
func keyFactoryAddress () = "%s%s__config__factoryAddress"
62
27
 
63
28
 
64
29
 
let IdxFactoryCfgStakingDapp = 1
65
30
 
66
31
 
let IdxFactoryCfgBoostingDapp = 2
67
32
 
68
33
 
let IdxFactoryCfgIdoDapp = 3
69
34
 
70
35
 
let IdxFactoryCfgTeamDapp = 4
71
36
 
72
37
 
let IdxFactoryCfgEmissionDapp = 5
73
38
 
74
39
 
let IdxFactoryCfgRestDapp = 6
75
40
 
76
41
 
let IdxFactoryCfgSlippageDapp = 7
77
42
 
78
43
 
func keyFactoryCfg () = "%s__factoryConfig"
79
44
 
80
45
 
81
46
 
func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
82
47
 
83
48
 
84
49
 
func keyFactoryLpList () = "%s__lpTokensList"
85
50
 
86
51
 
87
52
 
func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
88
53
 
89
54
 
90
55
 
func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
91
56
 
92
57
 
93
58
 
func readFactoryAddressOrFail () = addressFromStringValue(getStringOrFail(keyFactoryAddress()))
94
59
 
95
60
 
96
61
 
func readLpList () = split(valueOrElse(getString(readFactoryAddressOrFail(), keyFactoryLpList()), ""), SEP)
97
62
 
98
63
 
99
64
 
func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
100
65
 
101
66
 
102
67
 
func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
103
68
 
104
69
 
105
70
 
func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
106
71
 
107
72
 
108
73
 
func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
109
74
 
110
75
 
111
76
 
func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
112
77
 
113
78
 
114
79
 
func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
115
80
 
116
81
 
117
82
 
func keyEmissionStartBlock () = "%s%s__emission__startBlock"
118
83
 
119
84
 
120
85
 
func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
121
86
 
122
87
 
123
88
 
func keyEmissionEndBlock () = "%s%s__emission__endBlock"
124
89
 
125
90
 
126
91
 
func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
127
92
 
128
93
 
129
94
 
func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
130
95
 
131
96
 
132
-
func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
133
-
134
-
135
-
func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
136
-
137
-
138
-
func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
139
-
140
-
141
-
func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed", "total", lpAssetIdStr], SEP)
142
-
143
-
144
97
 
func readStaked (key) = valueOrElse(getInteger(this, key), 0)
145
-
146
-
147
-
func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
148
-
149
-
150
-
func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
151
-
152
-
153
-
func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
154
-
155
-
156
-
func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
157
-
158
-
159
-
func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
160
-
161
-
162
-
func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
163
-
164
-
165
-
func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
166
-
167
-
168
-
func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
169
-
170
-
171
-
func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
172
-
173
-
174
-
func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
175
-
176
-
177
-
func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
178
-
179
-
180
-
func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
181
-
182
-
183
-
func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
184
98
 
185
99
 
186
100
 
func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
187
101
 
188
102
 
189
103
 
func formatHistoryRecord (userAddress,lpAssetId,type,amount) = makeString(["%s%s%s%d%d%d", userAddress, lpAssetId, type, toString(height), toString(lastBlock.timestamp), toString(amount)], SEP)
190
104
 
191
105
 
192
106
 
func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
193
107
 
194
108
 
195
-
let factoryContract = readFactoryAddressOrFail()
196
-
197
-
let factoryCfg = readFactoryCfgOrFail(factoryContract)
198
-
199
-
let emissionContract = getEmissionAddressOrFail(factoryCfg)
200
-
201
-
let boostingContract = getBoostingAddressOrFail(factoryCfg)
202
-
203
-
func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == 0))
204
-
    then (stakedByUser > 0)
205
-
    else false)
206
-
    then 0
207
-
    else if ((stakedByUser == 0))
208
-
        then wxPerLpIntegralNew
209
-
        else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > 0))
210
-
            then (stakedByUser > 0)
211
-
            else false)
212
-
            then getIntOrFail(this, wxPerLpIntegralUserLastKEY)
213
-
            else throw("calcWxPerLpIntegralUserLast: unexpected state")
214
-
215
-
216
-
func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
217
-
    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
218
-
    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
219
-
    let stakedByUser = readStaked(stakedByUserKEY)
220
-
    let stakedTotal = readStaked(stakedTotalKEY)
221
-
    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
222
-
    let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
223
-
    let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
224
-
    let poolWxEmissionPerBlock = fraction(wxEmissionPerBlock, poolWeight, (POOLWEIGHTMULT * 3))
225
-
    let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
226
-
    let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
227
-
    let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
228
-
    let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
229
-
    let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
230
-
    let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
231
-
    let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
232
-
    let wxPerLpIntegral = getIntOrZero(this, wxPerLpIntegralKEY)
233
-
    let wxToClaimUser = getIntOrZero(this, wxToClaimUserKEY)
234
-
    let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
235
-
    let wxPerLpOrZeroX8 = getIntOrZero(this, wxPerLpKEY)
236
-
    let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
237
-
    let wxPerLpX8 = if ((wxPerLpOrZeroX8 != 0))
238
-
        then wxPerLpOrZeroX8
239
-
        else fraction(poolWxEmissionPerBlock, MULT8, stakedTotal)
240
-
    let stakedTotalNew = (stakedTotal + lpDeltaAmount)
241
-
    let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX8 * dh))
242
-
    let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(stakedByUser, wxPerLpIntegralUserLastUpdHeightOrZero, wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
243
-
    let wxToClaimUserNew = (wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), stakedByUser, MULT8))
244
-
    let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
245
-
    let wxPerLpNewX8 = (poolWxEmissionPerBlock / stakedTotalNew)
246
-
    let wxPerLpIntegralLastUpdHeightNew = height
247
-
    let wxPerLpIntegralUserLastUpdHeightNew = height
248
-
    let debug = makeString([toString(wxToClaimUserNew), toString(wxPerLpIntegralNew), toString(wxPerLpIntegralUserLast), toString(stakedByUser), toString(dh), toString(wxPerLpX8), toString(stakedTotal), toString(poolWxEmissionPerBlock), toString(wxEmissionPerBlock), toString(poolWeight), toString(height)], "::")
249
-
    $Tuple3(wxToClaimUserNew, [IntegerEntry(wxPerLpIntegralKEY, wxPerLpIntegralNew), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), IntegerEntry(wxToClaimUserKEY, wxToClaimUserNew), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), IntegerEntry(wxPerLpKEY, wxPerLpNewX8), IntegerEntry(wxPerLpIntegralUserLastKEY, wxPerLpIntegralUserLastNew)], debug)
250
-
    }
251
-
252
-
253
109
 
@Callable(i)
254
110
 
func constructor (factoryAddressStr) = if ((i.caller != this))
255
111
 
    then throw("not authorized")
256
112
 
    else [StringEntry(keyFactoryAddress(), factoryAddressStr)]
257
113
 
258
114
 
259
115
 
260
116
 
@Callable(i)
261
-
func stake () = if ((size(i.payments) != 1))
262
-
    then throw("invalid payment - exact one payment must be attached")
263
-
    else {
264
-
        let pmt = i.payments[0]
265
-
        let lpAssetId = value(pmt.assetId)
266
-
        let lpAssetIdStr = toBase58String(lpAssetId)
267
-
        let amount = pmt.amount
268
-
        let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
269
-
        let callerStr = toString(i.caller)
270
-
        let userAddressStr = if ((callerStr == poolAddressStr))
271
-
            then toString(i.originCaller)
272
-
            else callerStr
273
-
        let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
274
-
        let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
275
-
        let stakedByUser = readStaked(stakedByUserKEY)
276
-
        let stakedTotal = readStaked(stakedTotalKEY)
277
-
        let $t01242712544 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
278
-
        let wxToClaimUserNew = $t01242712544._1
279
-
        let integralSTATE = $t01242712544._2
280
-
        let debug = $t01242712544._3
281
-
        ([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
282
-
        }
283
-
284
-
285
-
286
-
@Callable(i)
287
-
func unstake (lpAssetIdStr,amount) = {
288
-
    let userAddressStr = toString(i.caller)
289
-
    let lpAssetId = fromBase58String(lpAssetIdStr)
290
-
    let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
291
-
    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
292
-
    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
293
-
    let stakedByUser = readStaked(stakedByUserKEY)
294
-
    let stakedTotal = readStaked(stakedTotalKEY)
295
-
    let $t01336113479 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, -(amount))
296
-
    let wxToClaimUserNew = $t01336113479._1
297
-
    let integralSTATE = $t01336113479._2
298
-
    let debug = $t01336113479._3
299
-
    if ((amount > stakedByUser))
300
-
        then throw("passed amount is less then available")
301
-
        else ([IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
302
-
    }
303
-
304
-
305
-
306
-
@Callable(i)
307
-
func claimWx (lpAssetIdStr) = {
308
-
    let userAddress = i.caller
309
-
    let userAddressStr = toString(i.caller)
310
-
    let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
311
-
    let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
312
-
    let claimedTotalKEY = keyClaimedTotal(lpAssetIdStr)
313
-
    let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(lpAssetIdStr, userAddressStr)
314
-
    let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(lpAssetIdStr, userAddressStr)
315
-
    let claimedByUser = getIntOrZero(this, claimedByUserKEY)
316
-
    let claimedByUserMinReward = getIntOrZero(this, claimedByUserMinRewardKEY)
317
-
    let claimedByUserBoostReward = getIntOrZero(this, claimedByUserBoostRewardKEY)
318
-
    let claimedTotal = getIntOrZero(this, claimedTotalKEY)
319
-
    let $t01467114783 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
320
-
    let wxToClaimUserNew = $t01467114783._1
321
-
    let integralSTATE = $t01467114783._2
322
-
    let debug = $t01467114783._3
323
-
    let availableToClaim = (wxToClaimUserNew - claimedByUser)
324
-
    if ((0 >= availableToClaim))
325
-
        then throw("nothing to claim")
117
+
func stake () = {
118
+
    let factory = readFactoryAddressOrFail()
119
+
    if ((size(i.payments) != 1))
120
+
        then throw("invalid payment - exact one payment must be attached")
326
121
 
        else {
327
-
            let wxAmountBoostTotal = asInt(asAnyList(invoke(boostingContract, "claimWxBoost", [userAddressStr], nil))[0])
328
-
            let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
329
-
            let boostRewardPartTMP = fraction(wxAmountBoostTotal, poolWeight, POOLWEIGHTMULT)
330
-
            let minRewardPart = availableToClaim
331
-
            let boostRewardPart = min([(minRewardPart * 2), boostRewardPartTMP])
332
-
            let wxAssetId = asByteVector(asAnyList(invoke(emissionContract, "emit", [minRewardPart], nil))[0])
333
-
            let emitBoost = asAnyList(invoke(emissionContract, "emit", [boostRewardPart], nil))
334
-
            if ((emitBoost == emitBoost))
335
-
                then [IntegerEntry(claimedByUserKEY, (claimedByUser + availableToClaim)), IntegerEntry(claimedByUserMinRewardKEY, (claimedByUserMinReward + minRewardPart)), IntegerEntry(claimedByUserBoostRewardKEY, (claimedByUserBoostReward + boostRewardPart)), IntegerEntry(claimedTotalKEY, (claimedTotal + availableToClaim)), ScriptTransfer(userAddress, minRewardPart, wxAssetId), ScriptTransfer(userAddress, boostRewardPart, wxAssetId), OperationHistoryEntry("claim", userAddressStr, lpAssetIdStr, availableToClaim, i.transactionId)]
336
-
                else throw("Strict value is not equal to itself.")
122
+
            let pmt = i.payments[0]
123
+
            let lpAssetId = value(pmt.assetId)
124
+
            let lpAssetIdStr = toBase58String(lpAssetId)
125
+
            let amount = pmt.amount
126
+
            let lpDappStr = valueOrErrorMessage(getString(factory, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
127
+
            let callerStr = toString(i.caller)
128
+
            let userAddressStr = if ((callerStr == lpDappStr))
129
+
                then toString(i.originCaller)
130
+
                else callerStr
131
+
            let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
132
+
            let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
133
+
            let stakedByUser = readStaked(stakedByUserKEY)
134
+
            let stakedTotal = readStaked(stakedTotalKEY)
135
+
[IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)]
337
136
 
            }
338
137
 
    }
339
138
 
340
139
 
341
140
 
342
141
 
@Callable(i)
343
-
func claimWxREADONLY (lpAssetIdStr,userAddressStr) = {
344
-
    let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
142
+
func unstake (lpAssetIdStr,amount) = {
143
+
    let factory = readFactoryAddressOrFail()
144
+
    let userAddressStr = toString(i.caller)
145
+
    let lpAssetId = fromBase58String(lpAssetIdStr)
146
+
    if (!(isDefined(getString(factory, keyFactoryLp2AssetsMapping(lpAssetIdStr)))))
147
+
        then throw(("unsupported lp asset " + lpAssetIdStr))
148
+
        else {
149
+
            let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
150
+
            let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
151
+
            let stakedByUser = readStaked(stakedByUserKEY)
152
+
            let stakedTotal = readStaked(stakedTotalKEY)
153
+
            if ((amount > stakedByUser))
154
+
                then throw("passed amount is less then available")
155
+
                else [IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)]
156
+
            }
157
+
    }
158
+
159
+
160
+
161
+
@Callable(i)
162
+
func claimWx (lpAssetIdStr) = throw("temorary disabled")
163
+
164
+
165
+
166
+
@Callable(i)
167
+
func claimWxREADONLY (lpAssetIdStr,userAddress) = {
168
+
    let factoryContract = readFactoryAddressOrFail()
169
+
    let factoryCfg = readFactoryCfgOrFail(factoryContract)
170
+
    let emissionContract = getEmissionAddressOrFail(factoryCfg)
171
+
    let stakedByUserKEY = keyStakedByUser(userAddress, lpAssetIdStr)
345
172
 
    let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
346
-
    let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
347
173
 
    let stakedByUser = readStaked(stakedByUserKEY)
348
174
 
    let stakedTotal = readStaked(stakedTotalKEY)
349
-
    let claimedByUser = getIntOrZero(this, claimedByUserKEY)
350
175
 
    let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
351
176
 
    let poolWeightMult = MULT8
352
177
 
    let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
353
178
 
    let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
354
179
 
    let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
355
180
 
    let passedBlocks = if ((emissionStartBlock > height))
356
181
 
        then 0
357
182
 
        else (height - emissionStartBlock)
358
183
 
    let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, poolWeightMult)
359
184
 
    let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
360
-
    let $t01720517317 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
361
-
    let wxToClaimUserNew = $t01720517317._1
362
-
    let integralSTATE = $t01720517317._2
363
-
    let debug = $t01720517317._3
364
-
    let availableToClaim = (wxToClaimUserNew - claimedByUser)
365
-
    let wxAmountBoostTotal = asInt(asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [userAddressStr], nil))[0])
366
-
    let boostRewardPartTMP = fraction(wxAmountBoostTotal, poolWeight, POOLWEIGHTMULT)
367
-
    let minRewardPart = availableToClaim
368
-
    let boostRewardPart = min([(minRewardPart * 2), boostRewardPartTMP])
369
-
    let totalReward = (minRewardPart + boostRewardPart)
370
-
    $Tuple2(nil, makeString(["%s%s%d%d%d%d%s", lpAssetIdStr, userAddressStr, toString(totalReward), toString(claimedByUser), toString(minRewardPart), toString(boostRewardPart), ((debug + "::") + toString(userWxReward))], SEP))
185
+
    $Tuple2(nil, makeString(["%s%s%d", lpAssetIdStr, userAddress, toString(userWxReward)], SEP))
371
186
 
    }
372
187
 
373
188
 

github/deemru/w8io/169f3d6 
40.82 ms ◑