tx · F8jNsWLLbbCUGXtMw42LYeMRXdNRHQQ3TzSpqLrEcFzT

3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz:  -0.03500000 Waves

2022.06.14 18:42 [2096241] smart account 3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz > SELF 0.00000000 Waves

{ "type": 13, "id": "F8jNsWLLbbCUGXtMw42LYeMRXdNRHQQ3TzSpqLrEcFzT", "fee": 3500000, "feeAssetId": null, "timestamp": 1655221377456, "version": 1, "sender": "3Mx3zmXrMcLFCafMuPtXAzR4ZPVeZYb6qLz", "senderPublicKey": "D28XoueZWsMfm8Y5pa6C5ZFuYoWgre2Wm8tzJANJgMnq", "proofs": [ "4aLKEHLZAiQxheCkDNTLDdVbZdGhj1TL7wXW7BXdbZZpsVk9s41JzCGVeTWuAcDkknoHFBDPMki8VJoVMSFEZ6xK" ], "script": "base64:AAIFAAAAAAAAADYIAhINCgsICAgICAgBCAEIARIECgIICBIFCgMICAQSBAoCCAgSAwoBARIECgIICBIDCgEIEgAAAAAgAAAAAAlzZXBhcmF0b3ICAAAAAl9fAAAAAAxrZXlGZWVBbW91bnQJAAS5AAAAAgkABEwAAAACAgAAAAIlcwkABEwAAAACAgAAAANmZWUFAAAAA25pbAUAAAAJc2VwYXJhdG9yAAAAAA5rZXlVc2RuQXNzZXRJZAkABLkAAAACCQAETAAAAAICAAAAAiVzCQAETAAAAAICAAAAC3VzZG5Bc3NldElkBQAAAANuaWwFAAAACXNlcGFyYXRvcgAAAAAOa2V5RXBvY2hMZW5ndGgJAAS5AAAAAgkABEwAAAACAgAAAAIlcwkABEwAAAACAgAAAAtlcG9jaExlbmd0aAUAAAADbmlsBQAAAAlzZXBhcmF0b3IAAAAAEWtleUZpbmFsaXplUmV3YXJkCQAEuQAAAAIJAARMAAAAAgIAAAACJXMJAARMAAAAAgIAAAAOZmluYWxpemVSZXdhcmQFAAAAA25pbAUAAAAJc2VwYXJhdG9yAAAAAAxrZXlXeEFzc2V0SWQJAAS5AAAAAgkABEwAAAACAgAAAAIlcwkABEwAAAACAgAAAAl3eEFzc2V0SWQFAAAAA25pbAUAAAAJc2VwYXJhdG9yAAAAABZrZXlBc3NldHNTdG9yZUNvbnRyYWN0CQAEuQAAAAIJAARMAAAAAgIAAAACJXMJAARMAAAAAgIAAAATYXNzZXRzU3RvcmVDb250cmFjdAUAAAADbmlsBQAAAAlzZXBhcmF0b3IAAAAAE2tleVVzZXJQb29sQ29udHJhY3QJAAS5AAAAAgkABEwAAAACAgAAAAIlcwkABEwAAAACAgAAABB1c2VyUG9vbENvbnRyYWN0BQAAAANuaWwFAAAACXNlcGFyYXRvcgAAAAATa2V5RW1pc3Npb25Db250cmFjdAkABLkAAAACCQAETAAAAAICAAAAAiVzCQAETAAAAAICAAAAEGVtaXNzaW9uQ29udHJhY3QFAAAAA25pbAUAAAAJc2VwYXJhdG9yAAAAABNrZXlCb29zdGluZ0NvbnRyYWN0CQAEuQAAAAIJAARMAAAAAgIAAAACJXMJAARMAAAAAgIAAAAQYm9vc3RpbmdDb250cmFjdAUAAAADbmlsBQAAAAlzZXBhcmF0b3IAAAAAEmtleUZhY3RvcnlDb250cmFjdAkABLkAAAACCQAETAAAAAICAAAAAiVzCQAETAAAAAICAAAAD2ZhY3RvcnlDb250cmFjdAUAAAADbmlsBQAAAAlzZXBhcmF0b3IAAAAAGWtleVZvdGluZ0VtaXNzaW9uQ29udHJhY3QJAAS5AAAAAgkABEwAAAACAgAAAAIlcwkABEwAAAACAgAAABZ2b3RpbmdFbWlzc2lvbkNvbnRyYWN0BQAAAANuaWwFAAAACXNlcGFyYXRvcgEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkJAAEsAAAAAgUAAAADa2V5AgAAAA8gaXMgbm90IGRlZmluZWQBAAAAEGtleUluTGlzdEFzc2V0SWQAAAACAAAADWFtb3VudEFzc2V0SWQAAAAMcHJpY2VBc3NldElkCQAEuQAAAAIJAARMAAAAAgIAAAAGJXMlcyVzCQAETAAAAAICAAAABmluTGlzdAkABEwAAAACBQAAAA1hbW91bnRBc3NldElkCQAETAAAAAIFAAAADHByaWNlQXNzZXRJZAUAAAADbmlsBQAAAAlzZXBhcmF0b3IBAAAAD2tleVN1Z2dlc3RJbmRleAAAAAIAAAANYW1vdW50QXNzZXRJZAAAAAxwcmljZUFzc2V0SWQJAAS5AAAAAgkABEwAAAACAgAAAAYlcyVzJXMJAARMAAAAAgIAAAAMc3VnZ2VzdEluZGV4CQAETAAAAAIFAAAADWFtb3VudEFzc2V0SWQJAARMAAAAAgUAAAAMcHJpY2VBc3NldElkBQAAAANuaWwFAAAACXNlcGFyYXRvcgEAAAAOa2V5U3RhcnRIZWlnaHQAAAADAAAADWFtb3VudEFzc2V0SWQAAAAMcHJpY2VBc3NldElkAAAADHN1Z2dlc3RJbmRleAkABLkAAAACCQAETAAAAAICAAAACCVzJXMlcyVkCQAETAAAAAICAAAAC3N0YXJ0SGVpZ2h0CQAETAAAAAIFAAAADWFtb3VudEFzc2V0SWQJAARMAAAAAgUAAAAMcHJpY2VBc3NldElkCQAETAAAAAIJAAGkAAAAAQUAAAAMc3VnZ2VzdEluZGV4BQAAAANuaWwFAAAACXNlcGFyYXRvcgEAAAAPa2V5Vm90aW5nUmVzdWx0AAAAAwAAAA1hbW91bnRBc3NldElkAAAADHByaWNlQXNzZXRJZAAAAAxzdWdnZXN0SW5kZXgJAAS5AAAAAgkABEwAAAACAgAAAAglcyVzJXMlZAkABEwAAAACAgAAAAx2b3RpbmdSZXN1bHQJAARMAAAAAgUAAAANYW1vdW50QXNzZXRJZAkABEwAAAACBQAAAAxwcmljZUFzc2V0SWQJAARMAAAAAgkAAaQAAAABBQAAAAxzdWdnZXN0SW5kZXgFAAAAA25pbAUAAAAJc2VwYXJhdG9yAQAAAAp0b3RhbFZvdGVzAAAAAgAAAAh0b3RhbFllcwAAAAd0b3RhbE5vCQAEuQAAAAIJAARMAAAAAgIAAAAEJWQlZAkABEwAAAACBQAAAAh0b3RhbFllcwkABEwAAAACBQAAAAd0b3RhbE5vBQAAAANuaWwFAAAACXNlcGFyYXRvcgEAAAAHa2V5Vm90ZQAAAAQAAAANYW1vdW50QXNzZXRJZAAAAAxwcmljZUFzc2V0SWQAAAAMc3VnZ2VzdEluZGV4AAAADHZvdGVyQWRkcmVzcwkABLkAAAACCQAETAAAAAICAAAACiVzJXMlcyVkJXMJAARMAAAAAgIAAAAEdm90ZQkABEwAAAACBQAAAA1hbW91bnRBc3NldElkCQAETAAAAAIFAAAADHByaWNlQXNzZXRJZAkABEwAAAACCQABpAAAAAEFAAAADHN1Z2dlc3RJbmRleAkABEwAAAACBQAAAAx2b3RlckFkZHJlc3MFAAAAA25pbAUAAAAJc2VwYXJhdG9yAQAAAAxrZXlWb3RlVmFsdWUAAAACAAAACWd3eEFtb3VudAAAAAR2b3RlBAAAAANrZXkDBQAAAAR2b3RlCQAEuQAAAAIJAARMAAAAAgIAAAAEJWQlcwkABEwAAAACBQAAAAlnd3hBbW91bnQJAARMAAAAAgIAAAADeWVzBQAAAANuaWwFAAAACXNlcGFyYXRvcgkABLkAAAACCQAETAAAAAICAAAABCVkJXMJAARMAAAAAgUAAAAJZ3d4QW1vdW50CQAETAAAAAICAAAAAm5vBQAAAANuaWwFAAAACXNlcGFyYXRvcgUAAAADa2V5AQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAIAAAAUJXNfX21hbmFnZXJQdWJsaWNLZXkBAAAAGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAAAAAIAAAAbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAAAABNhc3NldHNTdG9yZUNvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQUAAAAWa2V5QXNzZXRzU3RvcmVDb250cmFjdAAAAAAQYm9vc3RpbmdDb250cmFjdAkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAEFAAAAE2tleUJvb3N0aW5nQ29udHJhY3QAAAAAEGVtaXNzaW9uQ29udHJhY3QJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAABBQAAABNrZXlFbWlzc2lvbkNvbnRyYWN0AAAAAA9mYWN0b3J5Q29udHJhY3QJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAABBQAAABJrZXlGYWN0b3J5Q29udHJhY3QAAAAAEHVzZXJQb29sQ29udHJhY3QJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAABBQAAABNrZXlVc2VyUG9vbENvbnRyYWN0AAAAABZ2b3RpbmdFbWlzc2lvbkNvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQUAAAAZa2V5Vm90aW5nRW1pc3Npb25Db250cmFjdAEAAAAWbWFuYWdlclB1YmxpY0tleU9yVW5pdAAAAAAEAAAAByRtYXRjaDAJAAQiAAAAAQkBAAAAE2tleU1hbmFnZXJQdWJsaWNLZXkAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAJAAJZAAAAAQUAAAABcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAUAAAAEdW5pdAkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgEAAAAdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAABAAAAAckbWF0Y2gwCQAEIgAAAAEJAQAAABprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleQAAAAADCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABcwUAAAAHJG1hdGNoMAkAAlkAAAABBQAAAAFzAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAARVbml0BQAAAAR1bml0CQAAAgAAAAECAAAAC01hdGNoIGVycm9yAQAAAAttdXN0TWFuYWdlcgAAAAEAAAABaQQAAAACcGQJAAACAAAAAQIAAAARcGVybWlzc2lvbiBkZW5pZWQEAAAAByRtYXRjaDAJAQAAABZtYW5hZ2VyUHVibGljS2V5T3JVbml0AAAAAAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAKQnl0ZVZlY3RvcgQAAAACcGsFAAAAByRtYXRjaDADCQAAAAAAAAIIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQUAAAACcGsGBQAAAAJwZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAMJAAAAAAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzBgUAAAACcGQJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IBAAAABWFzSW50AAAAAQAAAAN2YWwEAAAAByRtYXRjaDAFAAAAA3ZhbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAZ2YWxJbnQFAAAAByRtYXRjaDAFAAAABnZhbEludAkAAAIAAAABAgAAABtmYWlsZWQgdG8gY2FzdCBpbnRvIEludGVnZXIAAAAIAAAAAWkBAAAAC2NvbnN0cnVjdG9yAAAACwAAABZhc3NldHNTdG9yZUNvbnRyYWN0UHJtAAAAE2Jvb3N0aW5nQ29udHJhY3RQcm0AAAATZW1pc3Npb25Db250cmFjdFBybQAAABJmYWN0b3J5Q29udHJhY3RQcm0AAAATdXNlclBvb2xDb250cmFjdFBybQAAABl2b3RpbmdFbWlzc2lvbkNvbnRyYWN0UHJtAAAADGZlZUFtb3VudFBybQAAAAx3eEFzc2V0SWRQcm0AAAARdm90aW5nRHVyYXRpb25Qcm0AAAAOdXNkbkFzc2V0SWRQcm0AAAARZmluYWxpemVSZXdhcmRQcm0EAAAABmNoZWNrcwkABEwAAAACCQEAAAALbXVzdE1hbmFnZXIAAAABBQAAAAFpCQAETAAAAAIDCQEAAAAJaXNEZWZpbmVkAAAAAQkABCYAAAABBQAAABZhc3NldHNTdG9yZUNvbnRyYWN0UHJtBgkAAAIAAAABAgAAACRJbnZhbGlkIGFzc2V0X3N0b3JlIGNvbnRyYWN0IGFkZHJlc3MJAARMAAAAAgMJAQAAAAlpc0RlZmluZWQAAAABCQAEJgAAAAEFAAAAE2Jvb3N0aW5nQ29udHJhY3RQcm0GCQAAAgAAAAECAAAAIUludmFsaWQgYm9vc3RpbmcgY29udHJhY3QgYWRkcmVzcwkABEwAAAACAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQmAAAAAQUAAAATdXNlclBvb2xDb250cmFjdFBybQYJAAACAAAAAQIAAAAjSW52YWxpZCB1c2VyX3Bvb2xzIGNvbnRyYWN0IGFkZHJlc3MJAARMAAAAAgMJAQAAAAlpc0RlZmluZWQAAAABCQAEJgAAAAEFAAAAE2VtaXNzaW9uQ29udHJhY3RQcm0GCQAAAgAAAAECAAAAIUludmFsaWQgZW1pc3Npb24gY29udHJhY3QgYWRkcmVzcwkABEwAAAACAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQmAAAAAQUAAAASZmFjdG9yeUNvbnRyYWN0UHJtBgkAAAIAAAABAgAAACBJbnZhbGlkIGZhY3RvcnkgY29udHJhY3QgYWRkcmVzcwkABEwAAAACAwkAAGcAAAACBQAAAAxmZWVBbW91bnRQcm0AAAAAAAAAAAAGCQAAAgAAAAECAAAAEkludmFsaWQgZmVlIGFtb3VudAkABEwAAAACAwkAAGYAAAACBQAAABF2b3RpbmdEdXJhdGlvblBybQAAAAAAAAAAAAYJAAACAAAAAQIAAAAXSW52YWxpZCB2b3RpbmcgZHVyYXRpb24JAARMAAAAAgMJAABmAAAAAgUAAAARZmluYWxpemVSZXdhcmRQcm0AAAAAAAAAAAAGCQAAAgAAAAECAAAAF0ludmFsaWQgZmluYWxpemUgcmV3YXJkCQAETAAAAAIDCQEAAAAJaXNEZWZpbmVkAAAAAQkAA+wAAAABCQACWQAAAAEFAAAADHd4QXNzZXRJZFBybQYJAAACAAAAAQIAAAATSW52YWxpZCBXWCBhc3NldCBJRAkABEwAAAACAwkBAAAACWlzRGVmaW5lZAAAAAEJAAPsAAAAAQkAAlkAAAABBQAAAA51c2RuQXNzZXRJZFBybQYJAAACAAAAAQIAAAAVSW52YWxpZCBVU0ROIGFzc2V0IElEBQAAAANuaWwDCQAAAAAAAAIFAAAABmNoZWNrcwUAAAAGY2hlY2tzCQAFFAAAAAIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAWa2V5QXNzZXRzU3RvcmVDb250cmFjdAUAAAAWYXNzZXRzU3RvcmVDb250cmFjdFBybQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAABNrZXlCb29zdGluZ0NvbnRyYWN0BQAAABNib29zdGluZ0NvbnRyYWN0UHJtCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAAE2tleUVtaXNzaW9uQ29udHJhY3QFAAAAE2VtaXNzaW9uQ29udHJhY3RQcm0JAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAASa2V5RmFjdG9yeUNvbnRyYWN0BQAAABJmYWN0b3J5Q29udHJhY3RQcm0JAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAATa2V5VXNlclBvb2xDb250cmFjdAUAAAATdXNlclBvb2xDb250cmFjdFBybQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAABlrZXlWb3RpbmdFbWlzc2lvbkNvbnRyYWN0BQAAABl2b3RpbmdFbWlzc2lvbkNvbnRyYWN0UHJtCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAxrZXlGZWVBbW91bnQFAAAADGZlZUFtb3VudFBybQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAOa2V5RXBvY2hMZW5ndGgFAAAAEXZvdGluZ0R1cmF0aW9uUHJtCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAABFrZXlGaW5hbGl6ZVJld2FyZAUAAAARZmluYWxpemVSZXdhcmRQcm0JAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAMa2V5V3hBc3NldElkBQAAAAx3eEFzc2V0SWRQcm0JAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAOa2V5VXNkbkFzc2V0SWQFAAAADnVzZG5Bc3NldElkUHJtBQAAAANuaWwFAAAABHVuaXQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAAB3N1Z2dlc3QAAAACAAAADWFtb3VudEFzc2V0SWQAAAAMcHJpY2VBc3NldElkBAAAAAdwYXltZW50CQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAABAAAAARpbmZvCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQkAAlkAAAABBQAAAA1hbW91bnRBc3NldElkAgAAABhpbnZhbGlkIGFtb3VudEFzc2V0SWQgSUQEAAAABmNoZWNrcwkABEwAAAACAwkAAAAAAAACCAUAAAAEaW5mbwAAAAZpc3N1ZXIIBQAAAAFpAAAABmNhbGxlcgYJAAACAAAAAQIAAAApYXNzZXQgY2FuIG9ubHkgYmUgc3VnZ2VzdGVkIGJ5IGl0cyBpc3N1ZXIJAARMAAAAAgMJAAAAAAAAAggFAAAABGluZm8AAAAIc2NyaXB0ZWQHBgkAAAIAAAABAgAAAA5hc3NldCBpcyBzbWFydAkABEwAAAACAwkAAAAAAAACCQACWAAAAAEJAQAAAAV2YWx1ZQAAAAEIBQAAAAdwYXltZW50AAAAB2Fzc2V0SWQJAQAAAAV2YWx1ZQAAAAEJAAQiAAAAAQUAAAAMa2V5V3hBc3NldElkBgkAAAIAAAABAgAAABFpbnZhbGlkIGZlZSBhc3NldAkABEwAAAACAwkAAAAAAAACCAUAAAAHcGF5bWVudAAAAAZhbW91bnQJAQAAAAV2YWx1ZQAAAAEJAAQfAAAAAQUAAAAMa2V5RmVlQW1vdW50BgkAAAIAAAABAgAAABJpbnZhbGlkIGZlZSBhbW91bnQJAARMAAAAAgMJAAAAAAAAAgUAAAAMcHJpY2VBc3NldElkCQEAAAAFdmFsdWUAAAABCQAEIgAAAAEFAAAADmtleVVzZG5Bc3NldElkBgkAAAIAAAABAgAAABhwcmljZUFzc2V0SWQgaXMgbm90IFVTRE4JAARMAAAAAgMJAAAAAAAAAgkABB8AAAABCQEAAAAQa2V5SW5MaXN0QXNzZXRJZAAAAAIFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAEdW5pdAYJAAACAAAAAQIAAAAWYWxyZWFkeSBpbiB2b3RpbmcgbGlzdAUAAAADbmlsAwkAAAAAAAACBQAAAAZjaGVja3MFAAAABmNoZWNrcwQAAAAMZW5zdXJlQWN0aXZlBAAAAAckbWF0Y2gwCQAD/AAAAAQFAAAAEHVzZXJQb29sQ29udHJhY3QCAAAADnN0YXR1c1JFQURPTkxZCQAETAAAAAIFAAAADWFtb3VudEFzc2V0SWQJAARMAAAAAgUAAAAMcHJpY2VBc3NldElkBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFzBQAAAAckbWF0Y2gwAwkAAAAAAAACBQAAAAFzAgAAAAZhY3RpdmUGCQAAAgAAAAECAAAAF3VzZXIgcG9vbCBpcyBub3QgYWN0aXZlCQAAAgAAAAECAAAAF3VzZXIgcG9vbCBpcyBub3QgYWN0aXZlAwkAAAAAAAACBQAAAAxlbnN1cmVBY3RpdmUFAAAADGVuc3VyZUFjdGl2ZQQAAAAZZW5zdXJlQW1vdW50QXNzZXRWZXJpZmllZAQAAAAHJG1hdGNoMAkAA/wAAAAEBQAAABNhc3NldHNTdG9yZUNvbnRyYWN0AgAAABJpc1ZlcmlmaWVkUkVBRE9OTFkJAARMAAAAAgUAAAANYW1vdW50QXNzZXRJZAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAB0Jvb2xlYW4EAAAAAWIFAAAAByRtYXRjaDADBQAAAAFiBgkAAAIAAAABAgAAABVhc3NldCBpcyBub3QgdmVyaWZpZWQJAAACAAAAAQIAAAAVYXNzZXQgaXMgbm90IHZlcmlmaWVkAwkAAAAAAAACBQAAABllbnN1cmVBbW91bnRBc3NldFZlcmlmaWVkBQAAABllbnN1cmVBbW91bnRBc3NldFZlcmlmaWVkBAAAAApidXJuRmVlSW52CQAD/AAAAAQFAAAAEGVtaXNzaW9uQ29udHJhY3QCAAAABGJ1cm4FAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAggFAAAAB3BheW1lbnQAAAAHYXNzZXRJZAgFAAAAB3BheW1lbnQAAAAGYW1vdW50BQAAAANuaWwDCQAAAAAAAAIFAAAACmJ1cm5GZWVJbnYFAAAACmJ1cm5GZWVJbnYEAAAAD25ld1N1Z2dlc3RJbmRleAQAAAAHJG1hdGNoMAkABB8AAAABCQEAAAAPa2V5U3VnZ2VzdEluZGV4AAAAAgUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAA2ludAUAAAAHJG1hdGNoMAkAAGQAAAACBQAAAANpbnQAAAAAAAAAAAEAAAAAAAAAAAAJAAUUAAAAAgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAEGtleUluTGlzdEFzc2V0SWQAAAACBQAAAA1hbW91bnRBc3NldElkBQAAAAxwcmljZUFzc2V0SWQFAAAAD25ld1N1Z2dlc3RJbmRleAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAADmtleVN0YXJ0SGVpZ2h0AAAAAwUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAA9uZXdTdWdnZXN0SW5kZXgFAAAABmhlaWdodAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAPa2V5Vm90aW5nUmVzdWx0AAAAAwUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAA9uZXdTdWdnZXN0SW5kZXgJAQAAAAp0b3RhbFZvdGVzAAAAAgIAAAABMAIAAAABMAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAD2tleVN1Z2dlc3RJbmRleAAAAAIFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAPbmV3U3VnZ2VzdEluZGV4BQAAAANuaWwFAAAABHVuaXQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAABHZvdGUAAAADAAAADWFtb3VudEFzc2V0SWQAAAAMcHJpY2VBc3NldElkAAAAB2luRmF2b3IEAAAADHN1Z2dlc3RJbmRleAkBAAAABXZhbHVlAAAAAQkABB8AAAABCQEAAAAQa2V5SW5MaXN0QXNzZXRJZAAAAAIFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAQAAAASdm90aW5nRmluaXNoSGVpZ2h0CQAAZAAAAAIJAQAAAAV2YWx1ZQAAAAEJAAQfAAAAAQkBAAAADmtleVN0YXJ0SGVpZ2h0AAAAAwUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAAxzdWdnZXN0SW5kZXgJAQAAAAV2YWx1ZQAAAAEJAAQfAAAAAQUAAAAOa2V5RXBvY2hMZW5ndGgEAAAABmNoZWNrcwkABEwAAAACAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQfAAAAAQkBAAAAEGtleUluTGlzdEFzc2V0SWQAAAACBQAAAA1hbW91bnRBc3NldElkBQAAAAxwcmljZUFzc2V0SWQGCQAAAgAAAAECAAAAInRoZSB0b2tlbiBpc24ndCBvbiB0aGUgdm90aW5nIGxpc3QJAARMAAAAAgMJAABmAAAAAgUAAAASdm90aW5nRmluaXNoSGVpZ2h0BQAAAAZoZWlnaHQGCQAAAgAAAAECAAAAEHRvbyBsYXRlIHRvIHZvdGUFAAAAA25pbAMJAAAAAAAAAgUAAAAGY2hlY2tzBQAAAAZjaGVja3MEAAAACWd3eEFtb3VudAkAA/wAAAAEBQAAABBib29zdGluZ0NvbnRyYWN0AgAAACBnZXRVc2VyR3d4QW1vdW50QXRIZWlnaHRSRUFET05MWQkABEwAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgkABEwAAAACBQAAABJ2b3RpbmdGaW5pc2hIZWlnaHQFAAAAA25pbAUAAAADbmlsBAAAAAdub3RaZXJvAwkAAGYAAAACCQEAAAAFYXNJbnQAAAABBQAAAAlnd3hBbW91bnQAAAAAAAAAAAAGCQAAAgAAAAECAAAAEnlvdSBkb24ndCBoYXZlIGd3eAMJAAAAAAAAAgUAAAAHbm90WmVybwUAAAAHbm90WmVybwQAAAAEdm90ZQQAAAAHJG1hdGNoMAkABCIAAAABCQEAAAAHa2V5Vm90ZQAAAAQFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4CQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFzBQAAAAckbWF0Y2gwBAAAAAR2b3RlCQAEtQAAAAIFAAAAAXMFAAAACXNlcGFyYXRvcgQAAAAJdm90ZVZhbHVlCQABkQAAAAIFAAAABHZvdGUAAAAAAAAAAAEEAAAACHZvdGVUeXBlCQABkQAAAAIFAAAABHZvdGUAAAAAAAAAAAIEAAAAEWlzVm90ZVR5cGVTaW1pbGFyAwMJAAAAAAAAAgUAAAAIdm90ZVR5cGUCAAAAA3llcwkAAAAAAAACBQAAAAdpbkZhdm9yBgcGAwkAAAAAAAACBQAAAAh2b3RlVHlwZQIAAAACbm8JAAAAAAAAAgUAAAAHaW5GYXZvcgcHBAAAABJpc1ZvdGVWYWx1ZVNpbWlsYXIDBQAAABFpc1ZvdGVUeXBlU2ltaWxhcgkAAAAAAAACCQEAAAAFYXNJbnQAAAABBQAAAAlnd3hBbW91bnQJAQAAAA1wYXJzZUludFZhbHVlAAAAAQUAAAAJdm90ZVZhbHVlBwQAAAAQaXNOZXdWb3RlU2ltaWxhcgMDBQAAABFpc1ZvdGVUeXBlU2ltaWxhcgUAAAASaXNWb3RlVmFsdWVTaW1pbGFyBwkAAAIAAAABAgAAABF5b3UgYWxyZWFkeSB2b3RlZAkAA/wAAAAEBQAAAAR0aGlzAgAAAApjYW5jZWxWb3RlCQAETAAAAAIFAAAADWFtb3VudEFzc2V0SWQJAARMAAAAAgUAAAAMcHJpY2VBc3NldElkBQAAAANuaWwFAAAAA25pbAUAAAAQaXNOZXdWb3RlU2ltaWxhcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAQAAAABdQUAAAAHJG1hdGNoMAUAAAABdQkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgMJAAAAAAAAAgUAAAAEdm90ZQUAAAAEdm90ZQQAAAAMdm90aW5nUmVzdWx0CQAEtQAAAAIJAQAAAAV2YWx1ZQAAAAEJAAQiAAAAAQkBAAAAD2tleVZvdGluZ1Jlc3VsdAAAAAMFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4BQAAAAlzZXBhcmF0b3IEAAAADXBvc2l0aXZlVm90ZXMJAAGRAAAAAgUAAAAMdm90aW5nUmVzdWx0AAAAAAAAAAABBAAAAA1uZWdhdGl2ZVZvdGVzCQABkQAAAAIFAAAADHZvdGluZ1Jlc3VsdAAAAAAAAAAAAgQAAAAbbmV3UG9zaXRpdmVBbmROZWdhdGl2ZVZvdGVzAwUAAAAHaW5GYXZvcgQAAAAQbmV3UG9zaXRpdmVWb3RlcwkAAGQAAAACCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEFAAAADXBvc2l0aXZlVm90ZXMJAQAAAAVhc0ludAAAAAEFAAAACWd3eEFtb3VudAkABEwAAAACCQABpAAAAAEFAAAAEG5ld1Bvc2l0aXZlVm90ZXMJAARMAAAAAgUAAAANbmVnYXRpdmVWb3RlcwUAAAADbmlsBAAAABBuZXdOZWdhdGl2ZVZvdGVzCQAAZAAAAAIJAQAAAA1wYXJzZUludFZhbHVlAAAAAQUAAAANbmVnYXRpdmVWb3RlcwkBAAAABWFzSW50AAAAAQUAAAAJZ3d4QW1vdW50CQAETAAAAAIFAAAADXBvc2l0aXZlVm90ZXMJAARMAAAAAgkAAaQAAAABBQAAABBuZXdOZWdhdGl2ZVZvdGVzBQAAAANuaWwEAAAAB3ZvdGVLZXkJAQAAAAdrZXlWb3RlAAAABAUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAAxzdWdnZXN0SW5kZXgJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBAAAAAl2b3RlVmFsdWUJAQAAAAxrZXlWb3RlVmFsdWUAAAACCQABpAAAAAEJAQAAAAVhc0ludAAAAAEFAAAACWd3eEFtb3VudAUAAAAHaW5GYXZvcgkABRQAAAACCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA9rZXlWb3RpbmdSZXN1bHQAAAADBQAAAA1hbW91bnRBc3NldElkBQAAAAxwcmljZUFzc2V0SWQFAAAADHN1Z2dlc3RJbmRleAkBAAAACnRvdGFsVm90ZXMAAAACCQABkQAAAAIFAAAAG25ld1Bvc2l0aXZlQW5kTmVnYXRpdmVWb3RlcwAAAAAAAAAAAAkAAZEAAAACBQAAABtuZXdQb3NpdGl2ZUFuZE5lZ2F0aXZlVm90ZXMAAAAAAAAAAAEJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAHdm90ZUtleQUAAAAJdm90ZVZhbHVlBQAAAANuaWwFAAAABHVuaXQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAKY2FuY2VsVm90ZQAAAAIAAAANYW1vdW50QXNzZXRJZAAAAAxwcmljZUFzc2V0SWQEAAAAC3VzZXJBZGRyZXNzAwkAAAAAAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMJAAQlAAAAAQgFAAAAAWkAAAAMb3JpZ2luQ2FsbGVyCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgQAAAAMc3VnZ2VzdEluZGV4CQEAAAAFdmFsdWUAAAABCQAEHwAAAAEJAQAAABBrZXlJbkxpc3RBc3NldElkAAAAAgUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBAAAAAZjaGVja3MJAARMAAAAAgMJAQAAAAlpc0RlZmluZWQAAAABCQAEIgAAAAEJAQAAAA9rZXlWb3RpbmdSZXN1bHQAAAADBQAAAA1hbW91bnRBc3NldElkBQAAAAxwcmljZUFzc2V0SWQFAAAADHN1Z2dlc3RJbmRleAYJAAACAAAAAQIAAAAXbm8gdm90ZSBmb3IgYXNzZXRzIHBhaXIFAAAAA25pbAMJAAAAAAAAAgUAAAAGY2hlY2tzBQAAAAZjaGVja3MEAAAABHZvdGUJAAS1AAAAAgkBAAAABXZhbHVlAAAAAQkABCIAAAABCQEAAAAHa2V5Vm90ZQAAAAQFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4BQAAAAt1c2VyQWRkcmVzcwUAAAAJc2VwYXJhdG9yBAAAAAl2b3RlVmFsdWUJAAGRAAAAAgUAAAAEdm90ZQAAAAAAAAAAAQQAAAAIdm90ZVR5cGUJAAGRAAAAAgUAAAAEdm90ZQAAAAAAAAAAAgQAAAAMdm90aW5nUmVzdWx0CQAEtQAAAAIJAQAAAAV2YWx1ZQAAAAEJAAQiAAAAAQkBAAAAD2tleVZvdGluZ1Jlc3VsdAAAAAMFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4BQAAAAlzZXBhcmF0b3IEAAAADXBvc2l0aXZlVm90ZXMJAAGRAAAAAgUAAAAMdm90aW5nUmVzdWx0AAAAAAAAAAABBAAAAA1uZWdhdGl2ZVZvdGVzCQABkQAAAAIFAAAADHZvdGluZ1Jlc3VsdAAAAAAAAAAAAgQAAAAHYWN0aW9ucwMJAAAAAAAAAgUAAAAIdm90ZVR5cGUCAAAAA3llcwQAAAAQbmV3UG9zaXRpdmVWb3RlcwkAAGUAAAACCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEFAAAADXBvc2l0aXZlVm90ZXMJAQAAAA1wYXJzZUludFZhbHVlAAAAAQUAAAAJdm90ZVZhbHVlCQAFFAAAAAIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAD2tleVZvdGluZ1Jlc3VsdAAAAAMFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4CQEAAAAKdG90YWxWb3RlcwAAAAIJAAGkAAAAAQUAAAAQbmV3UG9zaXRpdmVWb3RlcwUAAAANbmVnYXRpdmVWb3RlcwkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABCQEAAAAHa2V5Vm90ZQAAAAQFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4BQAAAAt1c2VyQWRkcmVzcwUAAAADbmlsBQAAAAR1bml0BAAAABBuZXdOZWdhdGl2ZVZvdGVzCQAAZQAAAAIJAQAAAA1wYXJzZUludFZhbHVlAAAAAQUAAAANbmVnYXRpdmVWb3RlcwkBAAAADXBhcnNlSW50VmFsdWUAAAABBQAAAAl2b3RlVmFsdWUJAAUUAAAAAgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAPa2V5Vm90aW5nUmVzdWx0AAAAAwUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAAxzdWdnZXN0SW5kZXgJAQAAAAp0b3RhbFZvdGVzAAAAAgUAAAANcG9zaXRpdmVWb3RlcwkAAaQAAAABBQAAABBuZXdOZWdhdGl2ZVZvdGVzCQAETAAAAAIJAQAAAAtEZWxldGVFbnRyeQAAAAEJAQAAAAdrZXlWb3RlAAAABAUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAAxzdWdnZXN0SW5kZXgFAAAAC3VzZXJBZGRyZXNzBQAAAANuaWwFAAAABHVuaXQFAAAAB2FjdGlvbnMJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAABnNldEZlZQAAAAEAAAAGbmV3RmVlBAAAAAZjaGVja3MJAARMAAAAAgkBAAAAC211c3RNYW5hZ2VyAAAAAQUAAAABaQUAAAADbmlsAwkAAAAAAAACBQAAAAZjaGVja3MFAAAABmNoZWNrcwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAMa2V5RmVlQW1vdW50BQAAAAZuZXdGZWUFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAIZmluYWxpemUAAAACAAAADWFtb3VudEFzc2V0SWQAAAAMcHJpY2VBc3NldElkBAAAAAxzdWdnZXN0SW5kZXgJAQAAAAV2YWx1ZQAAAAEJAAQfAAAAAQkBAAAAEGtleUluTGlzdEFzc2V0SWQAAAACBQAAAA1hbW91bnRBc3NldElkBQAAAAxwcmljZUFzc2V0SWQEAAAAEnZvdGluZ0ZpbmlzaEhlaWdodAkAAGQAAAACCQEAAAAFdmFsdWUAAAABCQAEHwAAAAEJAQAAAA5rZXlTdGFydEhlaWdodAAAAAMFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4CQEAAAAFdmFsdWUAAAABCQAEHwAAAAEFAAAADmtleUVwb2NoTGVuZ3RoBAAAAAZjaGVja3MJAARMAAAAAgMJAQAAAAlpc0RlZmluZWQAAAABCQAEHwAAAAEJAQAAABBrZXlJbkxpc3RBc3NldElkAAAAAgUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBgkAAAIAAAABAgAAAA5ubyBhc3NldHMgcGFpcgkABEwAAAACAwkAAGcAAAACBQAAAAZoZWlnaHQFAAAAEnZvdGluZ0ZpbmlzaEhlaWdodAYJAAACAAAAAQIAAAAiaW5zdWZmaWNpZW50IGhlaWdodCBmb3IgY29tcGxldGlvbgUAAAADbmlsAwkAAAAAAAACBQAAAAZjaGVja3MFAAAABmNoZWNrcwQAAAAMdm90aW5nUmVzdWx0CQAEtQAAAAIJAQAAAAV2YWx1ZQAAAAEJAAQiAAAAAQkBAAAAD2tleVZvdGluZ1Jlc3VsdAAAAAMFAAAADWFtb3VudEFzc2V0SWQFAAAADHByaWNlQXNzZXRJZAUAAAAMc3VnZ2VzdEluZGV4BQAAAAlzZXBhcmF0b3IEAAAADXBvc2l0aXZlVm90ZXMJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAx2b3RpbmdSZXN1bHQAAAAAAAAAAAEEAAAADW5lZ2F0aXZlVm90ZXMJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAx2b3RpbmdSZXN1bHQAAAAAAAAAAAIEAAAAB2FjdGlvbnMDCQAAZgAAAAIFAAAADXBvc2l0aXZlVm90ZXMFAAAADW5lZ2F0aXZlVm90ZXMEAAAAA3JlcwkAA/wAAAAEBQAAAA9mYWN0b3J5Q29udHJhY3QCAAAAFnNldFd4RW1pc3Npb25Qb29sTGFiZWwJAARMAAAAAgUAAAANYW1vdW50QXNzZXRJZAkABEwAAAACBQAAAAxwcmljZUFzc2V0SWQFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAANyZXMFAAAAA3JlcwkABRQAAAACCQAETAAAAAIJAQAAAAtEZWxldGVFbnRyeQAAAAEJAQAAABBrZXlJbkxpc3RBc3NldElkAAAAAgUAAAANYW1vdW50QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAANuaWwFAAAABHVuaXQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAFFAAAAAIJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQkBAAAAEGtleUluTGlzdEFzc2V0SWQAAAACBQAAAA1hbW91bnRBc3NldElkBQAAAAxwcmljZUFzc2V0SWQFAAAAA25pbAUAAAAEdW5pdAUAAAAHYWN0aW9ucwkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAKc2V0TWFuYWdlcgAAAAEAAAAXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkEAAAAC2NoZWNrQ2FsbGVyCQEAAAALbXVzdE1hbmFnZXIAAAABBQAAAAFpAwkAAAAAAAACBQAAAAtjaGVja0NhbGxlcgUAAAALY2hlY2tDYWxsZXIEAAAAFWNoZWNrTWFuYWdlclB1YmxpY0tleQkAAlkAAAABBQAAABdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQMJAAAAAAAAAgUAAAAVY2hlY2tNYW5hZ2VyUHVibGljS2V5BQAAABVjaGVja01hbmFnZXJQdWJsaWNLZXkJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAAAAAUAAAAXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAADmNvbmZpcm1NYW5hZ2VyAAAAAAQAAAACcG0JAQAAAB1wZW5kaW5nTWFuYWdlclB1YmxpY0tleU9yVW5pdAAAAAAEAAAABWhhc1BNAwkBAAAACWlzRGVmaW5lZAAAAAEFAAAAAnBtBgkAAAIAAAABAgAAABJubyBwZW5kaW5nIG1hbmFnZXIDCQAAAAAAAAIFAAAABWhhc1BNBQAAAAVoYXNQTQQAAAAHY2hlY2tQTQMJAAAAAAAAAggFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5CQEAAAAFdmFsdWUAAAABBQAAAAJwbQYJAAACAAAAAQIAAAAbeW91IGFyZSBub3QgcGVuZGluZyBtYW5hZ2VyAwkAAAAAAAACBQAAAAdjaGVja1BNBQAAAAdjaGVja1BNCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAkAAlgAAAABCQEAAAAFdmFsdWUAAAABBQAAAAJwbQkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABCQEAAAAaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkAAAAABQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAD3RhcmdldFB1YmxpY0tleQQAAAAHJG1hdGNoMAkBAAAAFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAJwawUAAAAHJG1hdGNoMAUAAAACcGsDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAA90YXJnZXRQdWJsaWNLZXlleeBJ", "chainId": 84, "height": 2096241, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 9bsvgXwp9sR1bgcdGUsrfHrkPDN2bXBhCTz2sLUNemkM Next: FBDbamP4ZyrJRxzxEfCFhTeqBpPrkHkHD317bw7y6WD8 Diff:
OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let SCALE8 = 8
4+let separator = "__"
55
6-let MULT8 = 100000000
6+let keyFeeAmount = makeString(["%s", "fee"], separator)
77
8-let SCALE18 = 18
8+let keyUsdnAssetId = makeString(["%s", "usdnAssetId"], separator)
99
10-let MULT18 = toBigInt(1000000000000000000)
10+let keyEpochLength = makeString(["%s", "epochLength"], separator)
1111
12-let SEP = "__"
12+let keyFinalizeReward = makeString(["%s", "finalizeReward"], separator)
1313
14-let POOLWEIGHTMULT = MULT8
14+let keyWxAssetId = makeString(["%s", "wxAssetId"], separator)
1515
16-let zeroBigInt = toBigInt(0)
16+let keyAssetsStoreContract = makeString(["%s", "assetsStoreContract"], separator)
1717
18-let oneBigInt = toBigInt(1)
18+let keyUserPoolContract = makeString(["%s", "userPoolContract"], separator)
1919
20-func asAnyList (val) = match val {
21- case valAnyLyst: List[Any] =>
22- valAnyLyst
23- case _ =>
24- throw("fail to cast into List[Any]")
25-}
20+let keyEmissionContract = makeString(["%s", "emissionContract"], separator)
21+
22+let keyBoostingContract = makeString(["%s", "boostingContract"], separator)
23+
24+let keyFactoryContract = makeString(["%s", "factoryContract"], separator)
25+
26+let keyVotingEmissionContract = makeString(["%s", "votingEmissionContract"], separator)
27+
28+func getStringOrFail (key) = valueOrErrorMessage(getString(this, key), (key + " is not defined"))
2629
2730
28-func asInt (val) = match val {
29- case valInt: Int =>
30- valInt
31- case _ =>
32- throw("fail to cast into Int")
33-}
31+func keyInListAssetId (amountAssetId,priceAssetId) = makeString(["%s%s%s", "inList", amountAssetId, priceAssetId], separator)
3432
3533
36-func asString (val) = match val {
37- case valStr: String =>
38- valStr
39- case _ =>
40- throw("fail to cast into Int")
41-}
34+func keySuggestIndex (amountAssetId,priceAssetId) = makeString(["%s%s%s", "suggestIndex", amountAssetId, priceAssetId], separator)
4235
4336
44-func asByteVector (val) = match val {
45- case valBin: ByteVector =>
46- valBin
47- case _ =>
48- throw("fail to cast into Int")
49-}
37+func keyStartHeight (amountAssetId,priceAssetId,suggestIndex) = makeString(["%s%s%s%d", "startHeight", amountAssetId, priceAssetId, toString(suggestIndex)], separator)
5038
5139
52-func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (("mandatory this." + key) + " is not defined"))
40+func keyVotingResult (amountAssetId,priceAssetId,suggestIndex) = makeString(["%s%s%s%d", "votingResult", amountAssetId, priceAssetId, toString(suggestIndex)], separator)
5341
5442
55-func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
43+func totalVotes (totalYes,totalNo) = makeString(["%d%d", totalYes, totalNo], separator)
5644
5745
58-func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
46+func keyVote (amountAssetId,priceAssetId,suggestIndex,voterAddress) = makeString(["%s%s%s%d%s", "vote", amountAssetId, priceAssetId, toString(suggestIndex), voterAddress], separator)
5947
6048
61-func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
62-
63-
64-func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
65-
66-
67-func getBigIntFromStringOrZero (address,key) = value(parseBigInt(valueOrElse(getString(address, key), "0")))
68-
69-
70-func getBigIntFromStringOrDefault (address,key,defaultVal) = match getString(address, key) {
71- case s: String =>
72- value(parseBigInt(s))
73- case _: Unit =>
74- defaultVal
75- case _ =>
76- throw("Match error")
77-}
78-
79-
80-func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
81-
82-
83-func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
84-
85-
86-func keyFactoryAddress () = "%s%s__config__factoryAddress"
87-
88-
89-let IdxFactoryCfgStakingDapp = 1
90-
91-let IdxFactoryCfgBoostingDapp = 2
92-
93-let IdxFactoryCfgIdoDapp = 3
94-
95-let IdxFactoryCfgTeamDapp = 4
96-
97-let IdxFactoryCfgEmissionDapp = 5
98-
99-let IdxFactoryCfgRestDapp = 6
100-
101-let IdxFactoryCfgSlippageDapp = 7
102-
103-func keyFactoryCfg () = "%s__factoryConfig"
49+func keyVoteValue (gwxAmount,vote) = {
50+ let key = if (vote)
51+ then makeString(["%d%s", gwxAmount, "yes"], separator)
52+ else makeString(["%d%s", gwxAmount, "no"], separator)
53+ key
54+ }
10455
10556
10657 func keyManagerPublicKey () = "%s__managerPublicKey"
10960 func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
11061
11162
112-func keyStablePoolAddonAddr () = "%s__stablePoolAddonAddr"
63+let assetsStoreContract = addressFromStringValue(getStringOrFail(keyAssetsStoreContract))
11364
65+let boostingContract = addressFromStringValue(getStringOrFail(keyBoostingContract))
11466
115-func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
67+let emissionContract = addressFromStringValue(getStringOrFail(keyEmissionContract))
11668
69+let factoryContract = addressFromStringValue(getStringOrFail(keyFactoryContract))
11770
118-func keyFactoryLpList () = "%s__lpTokensList"
71+let userPoolContract = addressFromStringValue(getStringOrFail(keyUserPoolContract))
11972
120-
121-func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
122-
123-
124-func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
125-
126-
127-func readLpList (factory) = split(valueOrElse(getString(factory, keyFactoryLpList()), ""), SEP)
128-
129-
130-func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
131-
132-
133-func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
134-
135-
136-func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
137-
138-
139-func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
140-
141-
142-func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
143-
144-
145-func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
146-
147-
148-func keyEmissionStartBlock () = "%s%s__emission__startBlock"
149-
150-
151-func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
152-
153-
154-func keyEmissionEndBlock () = "%s%s__emission__endBlock"
155-
156-
157-func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
158-
159-
160-func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
161-
162-
163-func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
164-
165-
166-func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
167-
168-
169-func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
170-
171-
172-func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed", "total", lpAssetIdStr], SEP)
173-
174-
175-func readStaked (key) = valueOrElse(getInteger(this, key), 0)
176-
177-
178-func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
179-
180-
181-func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
182-
183-
184-func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
185-
186-
187-func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
188-
189-
190-func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
191-
192-
193-func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
194-
195-
196-func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
197-
198-
199-func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
200-
201-
202-func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
203-
204-
205-func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
206-
207-
208-func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
209-
210-
211-func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
212-
213-
214-func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
215-
216-
217-func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
218-
219-
220-func formatHistoryRecord (userAddress,lpAssetId,type,amount) = makeString(["%s%s%s%d%d%d", userAddress, lpAssetId, type, toString(height), toString(lastBlock.timestamp), toString(amount)], SEP)
221-
222-
223-func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
224-
225-
226-let factoryAddress = getStringOrFail(this, keyFactoryAddress())
227-
228-let factoryContract = addressFromStringValue(factoryAddress)
229-
230-let factoryCfg = readFactoryCfgOrFail(factoryContract)
231-
232-let emissionContract = getEmissionAddressOrFail(factoryCfg)
233-
234-let boostingContract = getBoostingAddressOrFail(factoryCfg)
235-
236-func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == zeroBigInt))
237- then (stakedByUser > zeroBigInt)
238- else false)
239- then zeroBigInt
240- else if ((stakedByUser == zeroBigInt))
241- then wxPerLpIntegralNew
242- else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > zeroBigInt))
243- then (stakedByUser > zeroBigInt)
244- else false)
245- then value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))
246- else throw("calcWxPerLpIntegralUserLast: unexpected state")
247-
248-
249-func refreshPoolINTEGRALS (lpAssetIdStr,poolAddressStr,lpDeltaAmount) = {
250- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
251- let stakedTotal = toBigInt(readStaked(stakedTotalKEY))
252- let nonZeroStakedTotal = if ((stakedTotal == zeroBigInt))
253- then oneBigInt
254- else stakedTotal
255- let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
256- let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
257- let MULT3 = 1000
258- let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
259- let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
260- let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
261- let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
262- let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
263- let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
264- let wxPerLpIntegral = getBigIntFromStringOrZero(this, wxPerLpIntegralKEY)
265- let wxPerLpOrZeroX3 = 0
266- let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
267- let wxPerLpX3 = if ((wxPerLpOrZeroX3 != 0))
268- then toBigInt(wxPerLpOrZeroX3)
269- else fraction(toBigInt(poolWxEmissionPerBlockX3), toBigInt(MULT8), nonZeroStakedTotal)
270- let stakedTotalNew = (stakedTotal + toBigInt(lpDeltaAmount))
271- let nonZeroStakedTotalNew = if ((stakedTotalNew == zeroBigInt))
272- then oneBigInt
273- else stakedTotalNew
274- let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX3 * toBigInt(dh)))
275- let wxPerLpX3New = (toBigInt(poolWxEmissionPerBlockX3) / nonZeroStakedTotalNew)
276- let wxPerLpIntegralLastUpdHeightNew = height
277- let debug = makeString(["wxPerLpIntegralNew=", toString(wxPerLpIntegralNew), "dh=", toString(dh), "wxPerLpX3=", toString(wxPerLpX3), "stakedTotal=", toString(stakedTotal), "poolWxEmissionPerBlockX3=", toString(poolWxEmissionPerBlockX3), "wxEmissionPerBlockX3=", toString(wxEmissionPerBlockX3), "poolWeight=", toString(poolWeight)], "::")
278- $Tuple3(wxPerLpIntegralNew, [StringEntry(wxPerLpIntegralKEY, toString(wxPerLpIntegralNew)), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), StringEntry(wxPerLpKEY, toString(wxPerLpX3New))], debug)
279- }
280-
281-
282-func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
283- let $t01151811640 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, lpDeltaAmount)
284- let wxPerLpIntegralNew = $t01151811640._1
285- let poolIntegralSTATE = $t01151811640._2
286- let poolDEBUG = $t01151811640._3
287- let MULT3 = 1000
288- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
289- let stakedByUser = readStaked(stakedByUserKEY)
290- let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
291- let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
292- let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
293- let wxToClaimUser = getBigIntFromStringOrZero(this, wxToClaimUserKEY)
294- let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
295- let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(toBigInt(stakedByUser), toBigInt(wxPerLpIntegralUserLastUpdHeightOrZero), wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
296- let MULT11 = (MULT8 * MULT3)
297- let wxToClaimUserNew = (wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), toBigInt(stakedByUser), toBigInt(MULT11)))
298- let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
299- let wxPerLpIntegralUserLastUpdHeightNew = height
300- let debug = makeString(["wxPerLpIntegralUserLastUpdHeightOrZero=", toString(wxPerLpIntegralUserLastUpdHeightOrZero), "this.getStringOrFail(wxPerLpIntegralUserLastKEY).parseBigInt().value()=", toString(value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))), "wxPerLpIntegralNew=", toString(wxPerLpIntegralNew), "wxToClaimUserNew=", toString(wxToClaimUserNew), "wxPerLpIntegralUserLast=", toString(wxPerLpIntegralUserLast), "stakedByUser=", toString(stakedByUser), "poolDEBUG=", poolDEBUG, "height=", toString(height)], "::")
301- $Tuple3(wxToClaimUserNew, (poolIntegralSTATE ++ [StringEntry(wxToClaimUserKEY, toString(wxToClaimUserNew)), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), StringEntry(wxPerLpIntegralUserLastKEY, toString(wxPerLpIntegralUserLastNew))]), debug)
302- }
303-
73+let votingEmissionContract = addressFromStringValue(getStringOrFail(keyVotingEmissionContract))
30474
30575 func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
30676 case s: String =>
32393
32494
32595 func mustManager (i) = {
326- let pd = throw("Permission denied")
96+ let pd = throw("permission denied")
32797 match managerPublicKeyOrUnit() {
32898 case pk: ByteVector =>
32999 if ((i.callerPublicKey == pk))
339109 }
340110
341111
112+func asInt (val) = match val {
113+ case valInt: Int =>
114+ valInt
115+ case _ =>
116+ throw("failed to cast into Integer")
117+}
118+
119+
342120 @Callable(i)
343-func constructor (factoryAddressStr) = {
344- let checkCaller = mustManager(i)
345- if ((checkCaller == checkCaller))
346- then [StringEntry(keyFactoryAddress(), factoryAddressStr)]
121+func constructor (assetsStoreContractPrm,boostingContractPrm,emissionContractPrm,factoryContractPrm,userPoolContractPrm,votingEmissionContractPrm,feeAmountPrm,wxAssetIdPrm,votingDurationPrm,usdnAssetIdPrm,finalizeRewardPrm) = {
122+ let checks = [mustManager(i), if (isDefined(addressFromString(assetsStoreContractPrm)))
123+ then true
124+ else throw("Invalid asset_store contract address"), if (isDefined(addressFromString(boostingContractPrm)))
125+ then true
126+ else throw("Invalid boosting contract address"), if (isDefined(addressFromString(userPoolContractPrm)))
127+ then true
128+ else throw("Invalid user_pools contract address"), if (isDefined(addressFromString(emissionContractPrm)))
129+ then true
130+ else throw("Invalid emission contract address"), if (isDefined(addressFromString(factoryContractPrm)))
131+ then true
132+ else throw("Invalid factory contract address"), if ((feeAmountPrm >= 0))
133+ then true
134+ else throw("Invalid fee amount"), if ((votingDurationPrm > 0))
135+ then true
136+ else throw("Invalid voting duration"), if ((finalizeRewardPrm > 0))
137+ then true
138+ else throw("Invalid finalize reward"), if (isDefined(assetInfo(fromBase58String(wxAssetIdPrm))))
139+ then true
140+ else throw("Invalid WX asset ID"), if (isDefined(assetInfo(fromBase58String(usdnAssetIdPrm))))
141+ then true
142+ else throw("Invalid USDN asset ID")]
143+ if ((checks == checks))
144+ then $Tuple2([StringEntry(keyAssetsStoreContract, assetsStoreContractPrm), StringEntry(keyBoostingContract, boostingContractPrm), StringEntry(keyEmissionContract, emissionContractPrm), StringEntry(keyFactoryContract, factoryContractPrm), StringEntry(keyUserPoolContract, userPoolContractPrm), StringEntry(keyVotingEmissionContract, votingEmissionContractPrm), IntegerEntry(keyFeeAmount, feeAmountPrm), IntegerEntry(keyEpochLength, votingDurationPrm), IntegerEntry(keyFinalizeReward, finalizeRewardPrm), StringEntry(keyWxAssetId, wxAssetIdPrm), StringEntry(keyUsdnAssetId, usdnAssetIdPrm)], unit)
145+ else throw("Strict value is not equal to itself.")
146+ }
147+
148+
149+
150+@Callable(i)
151+func suggest (amountAssetId,priceAssetId) = {
152+ let payment = value(i.payments[0])
153+ let info = valueOrErrorMessage(assetInfo(fromBase58String(amountAssetId)), "invalid amountAssetId ID")
154+ let checks = [if ((info.issuer == i.caller))
155+ then true
156+ else throw("asset can only be suggested by its issuer"), if ((info.scripted == false))
157+ then true
158+ else throw("asset is smart"), if ((toBase58String(value(payment.assetId)) == value(getString(keyWxAssetId))))
159+ then true
160+ else throw("invalid fee asset"), if ((payment.amount == value(getInteger(keyFeeAmount))))
161+ then true
162+ else throw("invalid fee amount"), if ((priceAssetId == value(getString(keyUsdnAssetId))))
163+ then true
164+ else throw("priceAssetId is not USDN"), if ((getInteger(keyInListAssetId(amountAssetId, priceAssetId)) == unit))
165+ then true
166+ else throw("already in voting list")]
167+ if ((checks == checks))
168+ then {
169+ let ensureActive = match invoke(userPoolContract, "statusREADONLY", [amountAssetId, priceAssetId], nil) {
170+ case s: String =>
171+ if ((s == "active"))
172+ then true
173+ else throw("user pool is not active")
174+ case _ =>
175+ throw("user pool is not active")
176+ }
177+ if ((ensureActive == ensureActive))
178+ then {
179+ let ensureAmountAssetVerified = match invoke(assetsStoreContract, "isVerifiedREADONLY", [amountAssetId], nil) {
180+ case b: Boolean =>
181+ if (b)
182+ then true
183+ else throw("asset is not verified")
184+ case _ =>
185+ throw("asset is not verified")
186+ }
187+ if ((ensureAmountAssetVerified == ensureAmountAssetVerified))
188+ then {
189+ let burnFeeInv = invoke(emissionContract, "burn", nil, [AttachedPayment(payment.assetId, payment.amount)])
190+ if ((burnFeeInv == burnFeeInv))
191+ then {
192+ let newSuggestIndex = match getInteger(keySuggestIndex(amountAssetId, priceAssetId)) {
193+ case int: Int =>
194+ (int + 1)
195+ case _ =>
196+ 0
197+ }
198+ $Tuple2([IntegerEntry(keyInListAssetId(amountAssetId, priceAssetId), newSuggestIndex), IntegerEntry(keyStartHeight(amountAssetId, priceAssetId, newSuggestIndex), height), StringEntry(keyVotingResult(amountAssetId, priceAssetId, newSuggestIndex), totalVotes("0", "0")), IntegerEntry(keySuggestIndex(amountAssetId, priceAssetId), newSuggestIndex)], unit)
199+ }
200+ else throw("Strict value is not equal to itself.")
201+ }
202+ else throw("Strict value is not equal to itself.")
203+ }
204+ else throw("Strict value is not equal to itself.")
205+ }
206+ else throw("Strict value is not equal to itself.")
207+ }
208+
209+
210+
211+@Callable(i)
212+func vote (amountAssetId,priceAssetId,inFavor) = {
213+ let suggestIndex = value(getInteger(keyInListAssetId(amountAssetId, priceAssetId)))
214+ let votingFinishHeight = (value(getInteger(keyStartHeight(amountAssetId, priceAssetId, suggestIndex))) + value(getInteger(keyEpochLength)))
215+ let checks = [if (isDefined(getInteger(keyInListAssetId(amountAssetId, priceAssetId))))
216+ then true
217+ else throw("the token isn't on the voting list"), if ((votingFinishHeight > height))
218+ then true
219+ else throw("too late to vote")]
220+ if ((checks == checks))
221+ then {
222+ let gwxAmount = invoke(boostingContract, "getUserGwxAmountAtHeightREADONLY", [toString(i.caller), votingFinishHeight], nil)
223+ let notZero = if ((asInt(gwxAmount) > 0))
224+ then true
225+ else throw("you don't have gwx")
226+ if ((notZero == notZero))
227+ then {
228+ let vote = match getString(keyVote(amountAssetId, priceAssetId, suggestIndex, toString(i.caller))) {
229+ case s: String =>
230+ let vote = split(s, separator)
231+ let voteValue = vote[1]
232+ let voteType = vote[2]
233+ let isVoteTypeSimilar = if (if ((voteType == "yes"))
234+ then (inFavor == true)
235+ else false)
236+ then true
237+ else if ((voteType == "no"))
238+ then (inFavor == false)
239+ else false
240+ let isVoteValueSimilar = if (isVoteTypeSimilar)
241+ then (asInt(gwxAmount) == parseIntValue(voteValue))
242+ else false
243+ let isNewVoteSimilar = if (if (isVoteTypeSimilar)
244+ then isVoteValueSimilar
245+ else false)
246+ then throw("you already voted")
247+ else invoke(this, "cancelVote", [amountAssetId, priceAssetId], nil)
248+ isNewVoteSimilar
249+ case u: Unit =>
250+ u
251+ case _ =>
252+ throw("Match error")
253+ }
254+ if ((vote == vote))
255+ then {
256+ let votingResult = split(value(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))), separator)
257+ let positiveVotes = votingResult[1]
258+ let negativeVotes = votingResult[2]
259+ let newPositiveAndNegativeVotes = if (inFavor)
260+ then {
261+ let newPositiveVotes = (parseIntValue(positiveVotes) + asInt(gwxAmount))
262+[toString(newPositiveVotes), negativeVotes]
263+ }
264+ else {
265+ let newNegativeVotes = (parseIntValue(negativeVotes) + asInt(gwxAmount))
266+[positiveVotes, toString(newNegativeVotes)]
267+ }
268+ let voteKey = keyVote(amountAssetId, priceAssetId, suggestIndex, toString(i.caller))
269+ let voteValue = keyVoteValue(toString(asInt(gwxAmount)), inFavor)
270+ $Tuple2([StringEntry(keyVotingResult(amountAssetId, priceAssetId, suggestIndex), totalVotes(newPositiveAndNegativeVotes[0], newPositiveAndNegativeVotes[1])), StringEntry(voteKey, voteValue)], unit)
271+ }
272+ else throw("Strict value is not equal to itself.")
273+ }
274+ else throw("Strict value is not equal to itself.")
275+ }
276+ else throw("Strict value is not equal to itself.")
277+ }
278+
279+
280+
281+@Callable(i)
282+func cancelVote (amountAssetId,priceAssetId) = {
283+ let userAddress = if ((i.caller == this))
284+ then toString(i.originCaller)
285+ else toString(i.caller)
286+ let suggestIndex = value(getInteger(keyInListAssetId(amountAssetId, priceAssetId)))
287+ let checks = [if (isDefined(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))))
288+ then true
289+ else throw("no vote for assets pair")]
290+ if ((checks == checks))
291+ then {
292+ let vote = split(value(getString(keyVote(amountAssetId, priceAssetId, suggestIndex, userAddress))), separator)
293+ let voteValue = vote[1]
294+ let voteType = vote[2]
295+ let votingResult = split(value(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))), separator)
296+ let positiveVotes = votingResult[1]
297+ let negativeVotes = votingResult[2]
298+ let actions = if ((voteType == "yes"))
299+ then {
300+ let newPositiveVotes = (parseIntValue(positiveVotes) - parseIntValue(voteValue))
301+ $Tuple2([StringEntry(keyVotingResult(amountAssetId, priceAssetId, suggestIndex), totalVotes(toString(newPositiveVotes), negativeVotes)), DeleteEntry(keyVote(amountAssetId, priceAssetId, suggestIndex, userAddress))], unit)
302+ }
303+ else {
304+ let newNegativeVotes = (parseIntValue(negativeVotes) - parseIntValue(voteValue))
305+ $Tuple2([StringEntry(keyVotingResult(amountAssetId, priceAssetId, suggestIndex), totalVotes(positiveVotes, toString(newNegativeVotes))), DeleteEntry(keyVote(amountAssetId, priceAssetId, suggestIndex, userAddress))], unit)
306+ }
307+ actions
308+ }
309+ else throw("Strict value is not equal to itself.")
310+ }
311+
312+
313+
314+@Callable(i)
315+func setFee (newFee) = {
316+ let checks = [mustManager(i)]
317+ if ((checks == checks))
318+ then [IntegerEntry(keyFeeAmount, newFee)]
319+ else throw("Strict value is not equal to itself.")
320+ }
321+
322+
323+
324+@Callable(i)
325+func finalize (amountAssetId,priceAssetId) = {
326+ let suggestIndex = value(getInteger(keyInListAssetId(amountAssetId, priceAssetId)))
327+ let votingFinishHeight = (value(getInteger(keyStartHeight(amountAssetId, priceAssetId, suggestIndex))) + value(getInteger(keyEpochLength)))
328+ let checks = [if (isDefined(getInteger(keyInListAssetId(amountAssetId, priceAssetId))))
329+ then true
330+ else throw("no assets pair"), if ((height >= votingFinishHeight))
331+ then true
332+ else throw("insufficient height for completion")]
333+ if ((checks == checks))
334+ then {
335+ let votingResult = split(value(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))), separator)
336+ let positiveVotes = parseIntValue(votingResult[1])
337+ let negativeVotes = parseIntValue(votingResult[2])
338+ let actions = if ((positiveVotes > negativeVotes))
339+ then {
340+ let res = invoke(factoryContract, "setWxEmissionPoolLabel", [amountAssetId, priceAssetId], nil)
341+ if ((res == res))
342+ then $Tuple2([DeleteEntry(keyInListAssetId(amountAssetId, priceAssetId))], unit)
343+ else throw("Strict value is not equal to itself.")
344+ }
345+ else $Tuple2([DeleteEntry(keyInListAssetId(amountAssetId, priceAssetId))], unit)
346+ actions
347+ }
347348 else throw("Strict value is not equal to itself.")
348349 }
349350
369370 let pm = pendingManagerPublicKeyOrUnit()
370371 let hasPM = if (isDefined(pm))
371372 then true
372- else throw("No pending manager")
373+ else throw("no pending manager")
373374 if ((hasPM == hasPM))
374375 then {
375376 let checkPM = if ((i.callerPublicKey == value(pm)))
376377 then true
377- else throw("You are not pending manager")
378+ else throw("you are not pending manager")
378379 if ((checkPM == checkPM))
379380 then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
380381 else throw("Strict value is not equal to itself.")
381382 }
382383 else throw("Strict value is not equal to itself.")
383384 }
384-
385-
386-
387-@Callable(i)
388-func stake () = if ((size(i.payments) != 1))
389- then throw("invalid payment - exact one payment must be attached")
390- else {
391- let pmt = i.payments[0]
392- let lpAssetId = value(pmt.assetId)
393- let lpAssetIdStr = toBase58String(lpAssetId)
394- let amount = pmt.amount
395- let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
396- let callerStr = toString(i.caller)
397- let userAddressStr = if ((callerStr == poolAddressStr))
398- then toString(i.originCaller)
399- else callerStr
400- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
401- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
402- let stakedByUser = readStaked(stakedByUserKEY)
403- let stakedTotal = readStaked(stakedTotalKEY)
404- let $t01607116188 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
405- let wxToClaimUserNew = $t01607116188._1
406- let integralSTATE = $t01607116188._2
407- let debug = $t01607116188._3
408- ([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
409- }
410-
411-
412-
413-@Callable(i)
414-func unstake (lpAssetIdStr,amount) = {
415- let lpAssetId = fromBase58String(lpAssetIdStr)
416- let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
417- let poolAddon = valueOrElse(getString(this, keyStablePoolAddonAddr()), poolAddressStr)
418- let callerStr = toString(i.caller)
419- let userAddressStr = if (if ((callerStr == poolAddressStr))
420- then true
421- else (callerStr == poolAddon))
422- then toString(i.originCaller)
423- else callerStr
424- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
425- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
426- let stakedByUser = readStaked(stakedByUserKEY)
427- let stakedTotal = readStaked(stakedTotalKEY)
428- let $t01732517443 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, -(amount))
429- let wxToClaimUserNew = $t01732517443._1
430- let integralSTATE = $t01732517443._2
431- let debug = $t01732517443._3
432- if ((amount > stakedByUser))
433- then throw("passed amount is less then available")
434- else ([IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
435- }
436-
437-
438-
439-@Callable(i)
440-func claimWx (lpAssetIdStr) = {
441- let userAddress = i.caller
442- let userAddressStr = toString(i.caller)
443- let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
444- let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
445- let claimedTotalKEY = keyClaimedTotal(lpAssetIdStr)
446- let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(lpAssetIdStr, userAddressStr)
447- let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(lpAssetIdStr, userAddressStr)
448- let claimedByUser = toBigInt(getIntOrZero(this, claimedByUserKEY))
449- let claimedByUserMinReward = toBigInt(getIntOrZero(this, claimedByUserMinRewardKEY))
450- let claimedByUserBoostReward = toBigInt(getIntOrZero(this, claimedByUserBoostRewardKEY))
451- let claimedTotal = toBigInt(getIntOrZero(this, claimedTotalKEY))
452- let $t01867918791 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
453- let wxToClaimUserNew = $t01867918791._1
454- let integralSTATE = $t01867918791._2
455- let debug = $t01867918791._3
456- let availableToClaim = (wxToClaimUserNew - claimedByUser)
457- if ((zeroBigInt >= availableToClaim))
458- then throw("nothing to claim")
459- else {
460- let wxAmountBoostTotal = asInt(asAnyList(invoke(boostingContract, "claimWxBoost", [lpAssetIdStr, userAddressStr], nil))[0])
461- let minRewardPart = availableToClaim
462- let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
463- let wxAssetId = asByteVector(asAnyList(invoke(emissionContract, "emit", [toInt(minRewardPart)], nil))[0])
464- let emitBoost = asAnyList(invoke(emissionContract, "emit", [toInt(boostRewardPart)], nil))
465- if ((emitBoost == emitBoost))
466- then {
467- let claimedByUserValue = (claimedByUser + availableToClaim)
468- let claimedByUserMinRewardPlusPart = (claimedByUserMinReward + minRewardPart)
469- let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserMinReward + minRewardPart)
470- let claimedTotalPlusAvailableToClaim = (claimedByUserMinReward + minRewardPart)
471-[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)]
472- }
473- else throw("Strict value is not equal to itself.")
474- }
475- }
476-
477-
478-
479-@Callable(i)
480-func claimWxREADONLY (lpAssetIdStr,userAddressStr) = {
481- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
482- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
483- let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
484- let stakedByUser = readStaked(stakedByUserKEY)
485- let stakedTotal = readStaked(stakedTotalKEY)
486- let claimedByUser = getIntOrZero(this, claimedByUserKEY)
487- let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
488- let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
489- let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
490- let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
491- let passedBlocks = if ((emissionStartBlock > height))
492- then 0
493- else (height - emissionStartBlock)
494- let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, POOLWEIGHTMULT)
495- let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
496- let $t02139221504 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
497- let wxToClaimUserNew = $t02139221504._1
498- let integralSTATE = $t02139221504._2
499- let debug = $t02139221504._3
500- let availableToClaim = (wxToClaimUserNew - toBigInt(claimedByUser))
501- let boostInvResult = asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [lpAssetIdStr, userAddressStr], nil))
502- let wxAmountBoostTotal = asInt(boostInvResult[0])
503- let boostDebug = asString(boostInvResult[1])
504- let minRewardPart = availableToClaim
505- let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
506- let totalReward = (minRewardPart + boostRewardPart)
507- $Tuple2(nil, makeString(["%s%s%d%d%d%d%s", lpAssetIdStr, userAddressStr, toString(totalReward), toString(claimedByUser), toString(minRewardPart), toString(boostRewardPart), ((((debug + "::") + toString(userWxReward)) + "::BOOSTDEBUG::") + boostDebug)], SEP))
508- }
509-
510-
511-
512-@Callable(i)
513-func onModifyWeight (lpAssetIdStr,poolAddressStr) = if ((i.caller != factoryContract))
514- then throw("permissions denied")
515- else {
516- let $t02241722527 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
517- let wxPerLpIntegralNew = $t02241722527._1
518- let poolIntegralSTATE = $t02241722527._2
519- let poolDEBUG = $t02241722527._3
520- poolIntegralSTATE
521- }
522385
523386
524387 @Verifier(tx)
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let SCALE8 = 8
4+let separator = "__"
55
6-let MULT8 = 100000000
6+let keyFeeAmount = makeString(["%s", "fee"], separator)
77
8-let SCALE18 = 18
8+let keyUsdnAssetId = makeString(["%s", "usdnAssetId"], separator)
99
10-let MULT18 = toBigInt(1000000000000000000)
10+let keyEpochLength = makeString(["%s", "epochLength"], separator)
1111
12-let SEP = "__"
12+let keyFinalizeReward = makeString(["%s", "finalizeReward"], separator)
1313
14-let POOLWEIGHTMULT = MULT8
14+let keyWxAssetId = makeString(["%s", "wxAssetId"], separator)
1515
16-let zeroBigInt = toBigInt(0)
16+let keyAssetsStoreContract = makeString(["%s", "assetsStoreContract"], separator)
1717
18-let oneBigInt = toBigInt(1)
18+let keyUserPoolContract = makeString(["%s", "userPoolContract"], separator)
1919
20-func asAnyList (val) = match val {
21- case valAnyLyst: List[Any] =>
22- valAnyLyst
23- case _ =>
24- throw("fail to cast into List[Any]")
25-}
20+let keyEmissionContract = makeString(["%s", "emissionContract"], separator)
21+
22+let keyBoostingContract = makeString(["%s", "boostingContract"], separator)
23+
24+let keyFactoryContract = makeString(["%s", "factoryContract"], separator)
25+
26+let keyVotingEmissionContract = makeString(["%s", "votingEmissionContract"], separator)
27+
28+func getStringOrFail (key) = valueOrErrorMessage(getString(this, key), (key + " is not defined"))
2629
2730
28-func asInt (val) = match val {
29- case valInt: Int =>
30- valInt
31- case _ =>
32- throw("fail to cast into Int")
33-}
31+func keyInListAssetId (amountAssetId,priceAssetId) = makeString(["%s%s%s", "inList", amountAssetId, priceAssetId], separator)
3432
3533
36-func asString (val) = match val {
37- case valStr: String =>
38- valStr
39- case _ =>
40- throw("fail to cast into Int")
41-}
34+func keySuggestIndex (amountAssetId,priceAssetId) = makeString(["%s%s%s", "suggestIndex", amountAssetId, priceAssetId], separator)
4235
4336
44-func asByteVector (val) = match val {
45- case valBin: ByteVector =>
46- valBin
47- case _ =>
48- throw("fail to cast into Int")
49-}
37+func keyStartHeight (amountAssetId,priceAssetId,suggestIndex) = makeString(["%s%s%s%d", "startHeight", amountAssetId, priceAssetId, toString(suggestIndex)], separator)
5038
5139
52-func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (("mandatory this." + key) + " is not defined"))
40+func keyVotingResult (amountAssetId,priceAssetId,suggestIndex) = makeString(["%s%s%s%d", "votingResult", amountAssetId, priceAssetId, toString(suggestIndex)], separator)
5341
5442
55-func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
43+func totalVotes (totalYes,totalNo) = makeString(["%d%d", totalYes, totalNo], separator)
5644
5745
58-func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
46+func keyVote (amountAssetId,priceAssetId,suggestIndex,voterAddress) = makeString(["%s%s%s%d%s", "vote", amountAssetId, priceAssetId, toString(suggestIndex), voterAddress], separator)
5947
6048
61-func getIntOrDefault (address,key,defaultVal) = valueOrElse(getInteger(address, key), defaultVal)
62-
63-
64-func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
65-
66-
67-func getBigIntFromStringOrZero (address,key) = value(parseBigInt(valueOrElse(getString(address, key), "0")))
68-
69-
70-func getBigIntFromStringOrDefault (address,key,defaultVal) = match getString(address, key) {
71- case s: String =>
72- value(parseBigInt(s))
73- case _: Unit =>
74- defaultVal
75- case _ =>
76- throw("Match error")
77-}
78-
79-
80-func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), MULT18, toBigInt(origScaleMult))
81-
82-
83-func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), MULT18))
84-
85-
86-func keyFactoryAddress () = "%s%s__config__factoryAddress"
87-
88-
89-let IdxFactoryCfgStakingDapp = 1
90-
91-let IdxFactoryCfgBoostingDapp = 2
92-
93-let IdxFactoryCfgIdoDapp = 3
94-
95-let IdxFactoryCfgTeamDapp = 4
96-
97-let IdxFactoryCfgEmissionDapp = 5
98-
99-let IdxFactoryCfgRestDapp = 6
100-
101-let IdxFactoryCfgSlippageDapp = 7
102-
103-func keyFactoryCfg () = "%s__factoryConfig"
49+func keyVoteValue (gwxAmount,vote) = {
50+ let key = if (vote)
51+ then makeString(["%d%s", gwxAmount, "yes"], separator)
52+ else makeString(["%d%s", gwxAmount, "no"], separator)
53+ key
54+ }
10455
10556
10657 func keyManagerPublicKey () = "%s__managerPublicKey"
10758
10859
10960 func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
11061
11162
112-func keyStablePoolAddonAddr () = "%s__stablePoolAddonAddr"
63+let assetsStoreContract = addressFromStringValue(getStringOrFail(keyAssetsStoreContract))
11364
65+let boostingContract = addressFromStringValue(getStringOrFail(keyBoostingContract))
11466
115-func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
67+let emissionContract = addressFromStringValue(getStringOrFail(keyEmissionContract))
11668
69+let factoryContract = addressFromStringValue(getStringOrFail(keyFactoryContract))
11770
118-func keyFactoryLpList () = "%s__lpTokensList"
71+let userPoolContract = addressFromStringValue(getStringOrFail(keyUserPoolContract))
11972
120-
121-func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
122-
123-
124-func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
125-
126-
127-func readLpList (factory) = split(valueOrElse(getString(factory, keyFactoryLpList()), ""), SEP)
128-
129-
130-func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
131-
132-
133-func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
134-
135-
136-func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
137-
138-
139-func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
140-
141-
142-func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
143-
144-
145-func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
146-
147-
148-func keyEmissionStartBlock () = "%s%s__emission__startBlock"
149-
150-
151-func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
152-
153-
154-func keyEmissionEndBlock () = "%s%s__emission__endBlock"
155-
156-
157-func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
158-
159-
160-func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
161-
162-
163-func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
164-
165-
166-func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
167-
168-
169-func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
170-
171-
172-func keyClaimedTotal (lpAssetIdStr) = makeString(["%s%s%s__claimed", "total", lpAssetIdStr], SEP)
173-
174-
175-func readStaked (key) = valueOrElse(getInteger(this, key), 0)
176-
177-
178-func keyLastTotalLpBalance (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "bal"], SEP)
179-
180-
181-func keyLastUserLpBalance (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "bal"], SEP)
182-
183-
184-func keyTotalLpBalanceIntegral (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "balINT"], SEP)
185-
186-
187-func keyUserLpBalanceIntegral (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "balINT"], SEP)
188-
189-
190-func keyTotalLpBalanceIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s", lpAssetId, "total", "lastUpd"], SEP)
191-
192-
193-func keyUserLpBalanceIntegralLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s", lpAssetId, userAddress, "lastUpd"], SEP)
194-
195-
196-func keyWxPerLpIntegral (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpInt"], SEP)
197-
198-
199-func keyWxPerLpIntegralLastUpdHeight (lpAssetId) = makeString(["%s%s%s%s", lpAssetId, "common", "lpIntH"], SEP)
200-
201-
202-func keyWxToClaimUser (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpInt"], SEP)
203-
204-
205-func keyWxPerLpIntegralUserLastUpdHeight (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "lpIntH"], SEP)
206-
207-
208-func keyWxPerLp (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLp"], SEP)
209-
210-
211-func keyWxPerLpX18 (lpAssetId) = makeString(["%s", lpAssetId, "wxPerLpX18"], SEP)
212-
213-
214-func keyWxPerLpIntegralUserLast (lpAssetId,userAddress) = makeString(["%s%s%s%s", lpAssetId, userAddress, "uIntL"], SEP)
215-
216-
217-func keyOperationHistoryRecord (type,userAddress,txId58) = makeString(["%s%s%s%s__history", type, userAddress, txId58], SEP)
218-
219-
220-func formatHistoryRecord (userAddress,lpAssetId,type,amount) = makeString(["%s%s%s%d%d%d", userAddress, lpAssetId, type, toString(height), toString(lastBlock.timestamp), toString(amount)], SEP)
221-
222-
223-func OperationHistoryEntry (type,userAddress,lpAssetId,amount,txId) = StringEntry(keyOperationHistoryRecord(type, userAddress, toBase58String(txId)), formatHistoryRecord(userAddress, lpAssetId, type, amount))
224-
225-
226-let factoryAddress = getStringOrFail(this, keyFactoryAddress())
227-
228-let factoryContract = addressFromStringValue(factoryAddress)
229-
230-let factoryCfg = readFactoryCfgOrFail(factoryContract)
231-
232-let emissionContract = getEmissionAddressOrFail(factoryCfg)
233-
234-let boostingContract = getBoostingAddressOrFail(factoryCfg)
235-
236-func calcWxPerLpIntegralUserLast (stakedByUser,wxPerLpIntegralUserLastUpdHeightOrZero,wxPerLpIntegralNew,wxPerLpIntegralUserLastKEY) = if (if ((wxPerLpIntegralUserLastUpdHeightOrZero == zeroBigInt))
237- then (stakedByUser > zeroBigInt)
238- else false)
239- then zeroBigInt
240- else if ((stakedByUser == zeroBigInt))
241- then wxPerLpIntegralNew
242- else if (if ((wxPerLpIntegralUserLastUpdHeightOrZero > zeroBigInt))
243- then (stakedByUser > zeroBigInt)
244- else false)
245- then value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))
246- else throw("calcWxPerLpIntegralUserLast: unexpected state")
247-
248-
249-func refreshPoolINTEGRALS (lpAssetIdStr,poolAddressStr,lpDeltaAmount) = {
250- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
251- let stakedTotal = toBigInt(readStaked(stakedTotalKEY))
252- let nonZeroStakedTotal = if ((stakedTotal == zeroBigInt))
253- then oneBigInt
254- else stakedTotal
255- let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
256- let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
257- let MULT3 = 1000
258- let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
259- let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
260- let wxPerLpIntegralKEY = keyWxPerLpIntegral(lpAssetIdStr)
261- let wxPerLpIntegralLastUpdHeightKEY = keyWxPerLpIntegralLastUpdHeight(lpAssetIdStr)
262- let wxPerLpKEY = keyWxPerLp(lpAssetIdStr)
263- let wxPerLpIntegralLastUpdHeight = getIntOrDefault(this, wxPerLpIntegralLastUpdHeightKEY, emissionStartBlock)
264- let wxPerLpIntegral = getBigIntFromStringOrZero(this, wxPerLpIntegralKEY)
265- let wxPerLpOrZeroX3 = 0
266- let dh = max([(height - wxPerLpIntegralLastUpdHeight), 0])
267- let wxPerLpX3 = if ((wxPerLpOrZeroX3 != 0))
268- then toBigInt(wxPerLpOrZeroX3)
269- else fraction(toBigInt(poolWxEmissionPerBlockX3), toBigInt(MULT8), nonZeroStakedTotal)
270- let stakedTotalNew = (stakedTotal + toBigInt(lpDeltaAmount))
271- let nonZeroStakedTotalNew = if ((stakedTotalNew == zeroBigInt))
272- then oneBigInt
273- else stakedTotalNew
274- let wxPerLpIntegralNew = (wxPerLpIntegral + (wxPerLpX3 * toBigInt(dh)))
275- let wxPerLpX3New = (toBigInt(poolWxEmissionPerBlockX3) / nonZeroStakedTotalNew)
276- let wxPerLpIntegralLastUpdHeightNew = height
277- let debug = makeString(["wxPerLpIntegralNew=", toString(wxPerLpIntegralNew), "dh=", toString(dh), "wxPerLpX3=", toString(wxPerLpX3), "stakedTotal=", toString(stakedTotal), "poolWxEmissionPerBlockX3=", toString(poolWxEmissionPerBlockX3), "wxEmissionPerBlockX3=", toString(wxEmissionPerBlockX3), "poolWeight=", toString(poolWeight)], "::")
278- $Tuple3(wxPerLpIntegralNew, [StringEntry(wxPerLpIntegralKEY, toString(wxPerLpIntegralNew)), IntegerEntry(wxPerLpIntegralLastUpdHeightKEY, wxPerLpIntegralLastUpdHeightNew), StringEntry(wxPerLpKEY, toString(wxPerLpX3New))], debug)
279- }
280-
281-
282-func refreshINTEGRALS (lpAssetIdStr,userAddressStr,poolAddressStr,lpDeltaAmount) = {
283- let $t01151811640 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, lpDeltaAmount)
284- let wxPerLpIntegralNew = $t01151811640._1
285- let poolIntegralSTATE = $t01151811640._2
286- let poolDEBUG = $t01151811640._3
287- let MULT3 = 1000
288- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
289- let stakedByUser = readStaked(stakedByUserKEY)
290- let wxToClaimUserKEY = keyWxToClaimUser(lpAssetIdStr, userAddressStr)
291- let wxPerLpIntegralUserLastUpdHeightKEY = keyWxPerLpIntegralUserLastUpdHeight(lpAssetIdStr, userAddressStr)
292- let wxPerLpIntegralUserLastKEY = keyWxPerLpIntegralUserLast(lpAssetIdStr, userAddressStr)
293- let wxToClaimUser = getBigIntFromStringOrZero(this, wxToClaimUserKEY)
294- let wxPerLpIntegralUserLastUpdHeightOrZero = getIntOrZero(this, wxPerLpIntegralUserLastUpdHeightKEY)
295- let wxPerLpIntegralUserLast = calcWxPerLpIntegralUserLast(toBigInt(stakedByUser), toBigInt(wxPerLpIntegralUserLastUpdHeightOrZero), wxPerLpIntegralNew, wxPerLpIntegralUserLastKEY)
296- let MULT11 = (MULT8 * MULT3)
297- let wxToClaimUserNew = (wxToClaimUser + fraction((wxPerLpIntegralNew - wxPerLpIntegralUserLast), toBigInt(stakedByUser), toBigInt(MULT11)))
298- let wxPerLpIntegralUserLastNew = wxPerLpIntegralNew
299- let wxPerLpIntegralUserLastUpdHeightNew = height
300- let debug = makeString(["wxPerLpIntegralUserLastUpdHeightOrZero=", toString(wxPerLpIntegralUserLastUpdHeightOrZero), "this.getStringOrFail(wxPerLpIntegralUserLastKEY).parseBigInt().value()=", toString(value(parseBigInt(getStringOrFail(this, wxPerLpIntegralUserLastKEY)))), "wxPerLpIntegralNew=", toString(wxPerLpIntegralNew), "wxToClaimUserNew=", toString(wxToClaimUserNew), "wxPerLpIntegralUserLast=", toString(wxPerLpIntegralUserLast), "stakedByUser=", toString(stakedByUser), "poolDEBUG=", poolDEBUG, "height=", toString(height)], "::")
301- $Tuple3(wxToClaimUserNew, (poolIntegralSTATE ++ [StringEntry(wxToClaimUserKEY, toString(wxToClaimUserNew)), IntegerEntry(wxPerLpIntegralUserLastUpdHeightKEY, wxPerLpIntegralUserLastUpdHeightNew), StringEntry(wxPerLpIntegralUserLastKEY, toString(wxPerLpIntegralUserLastNew))]), debug)
302- }
303-
73+let votingEmissionContract = addressFromStringValue(getStringOrFail(keyVotingEmissionContract))
30474
30575 func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
30676 case s: String =>
30777 fromBase58String(s)
30878 case _: Unit =>
30979 unit
31080 case _ =>
31181 throw("Match error")
31282 }
31383
31484
31585 func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
31686 case s: String =>
31787 fromBase58String(s)
31888 case _: Unit =>
31989 unit
32090 case _ =>
32191 throw("Match error")
32292 }
32393
32494
32595 func mustManager (i) = {
326- let pd = throw("Permission denied")
96+ let pd = throw("permission denied")
32797 match managerPublicKeyOrUnit() {
32898 case pk: ByteVector =>
32999 if ((i.callerPublicKey == pk))
330100 then true
331101 else pd
332102 case _: Unit =>
333103 if ((i.caller == this))
334104 then true
335105 else pd
336106 case _ =>
337107 throw("Match error")
338108 }
339109 }
340110
341111
112+func asInt (val) = match val {
113+ case valInt: Int =>
114+ valInt
115+ case _ =>
116+ throw("failed to cast into Integer")
117+}
118+
119+
342120 @Callable(i)
343-func constructor (factoryAddressStr) = {
344- let checkCaller = mustManager(i)
345- if ((checkCaller == checkCaller))
346- then [StringEntry(keyFactoryAddress(), factoryAddressStr)]
121+func constructor (assetsStoreContractPrm,boostingContractPrm,emissionContractPrm,factoryContractPrm,userPoolContractPrm,votingEmissionContractPrm,feeAmountPrm,wxAssetIdPrm,votingDurationPrm,usdnAssetIdPrm,finalizeRewardPrm) = {
122+ let checks = [mustManager(i), if (isDefined(addressFromString(assetsStoreContractPrm)))
123+ then true
124+ else throw("Invalid asset_store contract address"), if (isDefined(addressFromString(boostingContractPrm)))
125+ then true
126+ else throw("Invalid boosting contract address"), if (isDefined(addressFromString(userPoolContractPrm)))
127+ then true
128+ else throw("Invalid user_pools contract address"), if (isDefined(addressFromString(emissionContractPrm)))
129+ then true
130+ else throw("Invalid emission contract address"), if (isDefined(addressFromString(factoryContractPrm)))
131+ then true
132+ else throw("Invalid factory contract address"), if ((feeAmountPrm >= 0))
133+ then true
134+ else throw("Invalid fee amount"), if ((votingDurationPrm > 0))
135+ then true
136+ else throw("Invalid voting duration"), if ((finalizeRewardPrm > 0))
137+ then true
138+ else throw("Invalid finalize reward"), if (isDefined(assetInfo(fromBase58String(wxAssetIdPrm))))
139+ then true
140+ else throw("Invalid WX asset ID"), if (isDefined(assetInfo(fromBase58String(usdnAssetIdPrm))))
141+ then true
142+ else throw("Invalid USDN asset ID")]
143+ if ((checks == checks))
144+ then $Tuple2([StringEntry(keyAssetsStoreContract, assetsStoreContractPrm), StringEntry(keyBoostingContract, boostingContractPrm), StringEntry(keyEmissionContract, emissionContractPrm), StringEntry(keyFactoryContract, factoryContractPrm), StringEntry(keyUserPoolContract, userPoolContractPrm), StringEntry(keyVotingEmissionContract, votingEmissionContractPrm), IntegerEntry(keyFeeAmount, feeAmountPrm), IntegerEntry(keyEpochLength, votingDurationPrm), IntegerEntry(keyFinalizeReward, finalizeRewardPrm), StringEntry(keyWxAssetId, wxAssetIdPrm), StringEntry(keyUsdnAssetId, usdnAssetIdPrm)], unit)
145+ else throw("Strict value is not equal to itself.")
146+ }
147+
148+
149+
150+@Callable(i)
151+func suggest (amountAssetId,priceAssetId) = {
152+ let payment = value(i.payments[0])
153+ let info = valueOrErrorMessage(assetInfo(fromBase58String(amountAssetId)), "invalid amountAssetId ID")
154+ let checks = [if ((info.issuer == i.caller))
155+ then true
156+ else throw("asset can only be suggested by its issuer"), if ((info.scripted == false))
157+ then true
158+ else throw("asset is smart"), if ((toBase58String(value(payment.assetId)) == value(getString(keyWxAssetId))))
159+ then true
160+ else throw("invalid fee asset"), if ((payment.amount == value(getInteger(keyFeeAmount))))
161+ then true
162+ else throw("invalid fee amount"), if ((priceAssetId == value(getString(keyUsdnAssetId))))
163+ then true
164+ else throw("priceAssetId is not USDN"), if ((getInteger(keyInListAssetId(amountAssetId, priceAssetId)) == unit))
165+ then true
166+ else throw("already in voting list")]
167+ if ((checks == checks))
168+ then {
169+ let ensureActive = match invoke(userPoolContract, "statusREADONLY", [amountAssetId, priceAssetId], nil) {
170+ case s: String =>
171+ if ((s == "active"))
172+ then true
173+ else throw("user pool is not active")
174+ case _ =>
175+ throw("user pool is not active")
176+ }
177+ if ((ensureActive == ensureActive))
178+ then {
179+ let ensureAmountAssetVerified = match invoke(assetsStoreContract, "isVerifiedREADONLY", [amountAssetId], nil) {
180+ case b: Boolean =>
181+ if (b)
182+ then true
183+ else throw("asset is not verified")
184+ case _ =>
185+ throw("asset is not verified")
186+ }
187+ if ((ensureAmountAssetVerified == ensureAmountAssetVerified))
188+ then {
189+ let burnFeeInv = invoke(emissionContract, "burn", nil, [AttachedPayment(payment.assetId, payment.amount)])
190+ if ((burnFeeInv == burnFeeInv))
191+ then {
192+ let newSuggestIndex = match getInteger(keySuggestIndex(amountAssetId, priceAssetId)) {
193+ case int: Int =>
194+ (int + 1)
195+ case _ =>
196+ 0
197+ }
198+ $Tuple2([IntegerEntry(keyInListAssetId(amountAssetId, priceAssetId), newSuggestIndex), IntegerEntry(keyStartHeight(amountAssetId, priceAssetId, newSuggestIndex), height), StringEntry(keyVotingResult(amountAssetId, priceAssetId, newSuggestIndex), totalVotes("0", "0")), IntegerEntry(keySuggestIndex(amountAssetId, priceAssetId), newSuggestIndex)], unit)
199+ }
200+ else throw("Strict value is not equal to itself.")
201+ }
202+ else throw("Strict value is not equal to itself.")
203+ }
204+ else throw("Strict value is not equal to itself.")
205+ }
206+ else throw("Strict value is not equal to itself.")
207+ }
208+
209+
210+
211+@Callable(i)
212+func vote (amountAssetId,priceAssetId,inFavor) = {
213+ let suggestIndex = value(getInteger(keyInListAssetId(amountAssetId, priceAssetId)))
214+ let votingFinishHeight = (value(getInteger(keyStartHeight(amountAssetId, priceAssetId, suggestIndex))) + value(getInteger(keyEpochLength)))
215+ let checks = [if (isDefined(getInteger(keyInListAssetId(amountAssetId, priceAssetId))))
216+ then true
217+ else throw("the token isn't on the voting list"), if ((votingFinishHeight > height))
218+ then true
219+ else throw("too late to vote")]
220+ if ((checks == checks))
221+ then {
222+ let gwxAmount = invoke(boostingContract, "getUserGwxAmountAtHeightREADONLY", [toString(i.caller), votingFinishHeight], nil)
223+ let notZero = if ((asInt(gwxAmount) > 0))
224+ then true
225+ else throw("you don't have gwx")
226+ if ((notZero == notZero))
227+ then {
228+ let vote = match getString(keyVote(amountAssetId, priceAssetId, suggestIndex, toString(i.caller))) {
229+ case s: String =>
230+ let vote = split(s, separator)
231+ let voteValue = vote[1]
232+ let voteType = vote[2]
233+ let isVoteTypeSimilar = if (if ((voteType == "yes"))
234+ then (inFavor == true)
235+ else false)
236+ then true
237+ else if ((voteType == "no"))
238+ then (inFavor == false)
239+ else false
240+ let isVoteValueSimilar = if (isVoteTypeSimilar)
241+ then (asInt(gwxAmount) == parseIntValue(voteValue))
242+ else false
243+ let isNewVoteSimilar = if (if (isVoteTypeSimilar)
244+ then isVoteValueSimilar
245+ else false)
246+ then throw("you already voted")
247+ else invoke(this, "cancelVote", [amountAssetId, priceAssetId], nil)
248+ isNewVoteSimilar
249+ case u: Unit =>
250+ u
251+ case _ =>
252+ throw("Match error")
253+ }
254+ if ((vote == vote))
255+ then {
256+ let votingResult = split(value(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))), separator)
257+ let positiveVotes = votingResult[1]
258+ let negativeVotes = votingResult[2]
259+ let newPositiveAndNegativeVotes = if (inFavor)
260+ then {
261+ let newPositiveVotes = (parseIntValue(positiveVotes) + asInt(gwxAmount))
262+[toString(newPositiveVotes), negativeVotes]
263+ }
264+ else {
265+ let newNegativeVotes = (parseIntValue(negativeVotes) + asInt(gwxAmount))
266+[positiveVotes, toString(newNegativeVotes)]
267+ }
268+ let voteKey = keyVote(amountAssetId, priceAssetId, suggestIndex, toString(i.caller))
269+ let voteValue = keyVoteValue(toString(asInt(gwxAmount)), inFavor)
270+ $Tuple2([StringEntry(keyVotingResult(amountAssetId, priceAssetId, suggestIndex), totalVotes(newPositiveAndNegativeVotes[0], newPositiveAndNegativeVotes[1])), StringEntry(voteKey, voteValue)], unit)
271+ }
272+ else throw("Strict value is not equal to itself.")
273+ }
274+ else throw("Strict value is not equal to itself.")
275+ }
276+ else throw("Strict value is not equal to itself.")
277+ }
278+
279+
280+
281+@Callable(i)
282+func cancelVote (amountAssetId,priceAssetId) = {
283+ let userAddress = if ((i.caller == this))
284+ then toString(i.originCaller)
285+ else toString(i.caller)
286+ let suggestIndex = value(getInteger(keyInListAssetId(amountAssetId, priceAssetId)))
287+ let checks = [if (isDefined(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))))
288+ then true
289+ else throw("no vote for assets pair")]
290+ if ((checks == checks))
291+ then {
292+ let vote = split(value(getString(keyVote(amountAssetId, priceAssetId, suggestIndex, userAddress))), separator)
293+ let voteValue = vote[1]
294+ let voteType = vote[2]
295+ let votingResult = split(value(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))), separator)
296+ let positiveVotes = votingResult[1]
297+ let negativeVotes = votingResult[2]
298+ let actions = if ((voteType == "yes"))
299+ then {
300+ let newPositiveVotes = (parseIntValue(positiveVotes) - parseIntValue(voteValue))
301+ $Tuple2([StringEntry(keyVotingResult(amountAssetId, priceAssetId, suggestIndex), totalVotes(toString(newPositiveVotes), negativeVotes)), DeleteEntry(keyVote(amountAssetId, priceAssetId, suggestIndex, userAddress))], unit)
302+ }
303+ else {
304+ let newNegativeVotes = (parseIntValue(negativeVotes) - parseIntValue(voteValue))
305+ $Tuple2([StringEntry(keyVotingResult(amountAssetId, priceAssetId, suggestIndex), totalVotes(positiveVotes, toString(newNegativeVotes))), DeleteEntry(keyVote(amountAssetId, priceAssetId, suggestIndex, userAddress))], unit)
306+ }
307+ actions
308+ }
309+ else throw("Strict value is not equal to itself.")
310+ }
311+
312+
313+
314+@Callable(i)
315+func setFee (newFee) = {
316+ let checks = [mustManager(i)]
317+ if ((checks == checks))
318+ then [IntegerEntry(keyFeeAmount, newFee)]
319+ else throw("Strict value is not equal to itself.")
320+ }
321+
322+
323+
324+@Callable(i)
325+func finalize (amountAssetId,priceAssetId) = {
326+ let suggestIndex = value(getInteger(keyInListAssetId(amountAssetId, priceAssetId)))
327+ let votingFinishHeight = (value(getInteger(keyStartHeight(amountAssetId, priceAssetId, suggestIndex))) + value(getInteger(keyEpochLength)))
328+ let checks = [if (isDefined(getInteger(keyInListAssetId(amountAssetId, priceAssetId))))
329+ then true
330+ else throw("no assets pair"), if ((height >= votingFinishHeight))
331+ then true
332+ else throw("insufficient height for completion")]
333+ if ((checks == checks))
334+ then {
335+ let votingResult = split(value(getString(keyVotingResult(amountAssetId, priceAssetId, suggestIndex))), separator)
336+ let positiveVotes = parseIntValue(votingResult[1])
337+ let negativeVotes = parseIntValue(votingResult[2])
338+ let actions = if ((positiveVotes > negativeVotes))
339+ then {
340+ let res = invoke(factoryContract, "setWxEmissionPoolLabel", [amountAssetId, priceAssetId], nil)
341+ if ((res == res))
342+ then $Tuple2([DeleteEntry(keyInListAssetId(amountAssetId, priceAssetId))], unit)
343+ else throw("Strict value is not equal to itself.")
344+ }
345+ else $Tuple2([DeleteEntry(keyInListAssetId(amountAssetId, priceAssetId))], unit)
346+ actions
347+ }
347348 else throw("Strict value is not equal to itself.")
348349 }
349350
350351
351352
352353 @Callable(i)
353354 func setManager (pendingManagerPublicKey) = {
354355 let checkCaller = mustManager(i)
355356 if ((checkCaller == checkCaller))
356357 then {
357358 let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
358359 if ((checkManagerPublicKey == checkManagerPublicKey))
359360 then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
360361 else throw("Strict value is not equal to itself.")
361362 }
362363 else throw("Strict value is not equal to itself.")
363364 }
364365
365366
366367
367368 @Callable(i)
368369 func confirmManager () = {
369370 let pm = pendingManagerPublicKeyOrUnit()
370371 let hasPM = if (isDefined(pm))
371372 then true
372- else throw("No pending manager")
373+ else throw("no pending manager")
373374 if ((hasPM == hasPM))
374375 then {
375376 let checkPM = if ((i.callerPublicKey == value(pm)))
376377 then true
377- else throw("You are not pending manager")
378+ else throw("you are not pending manager")
378379 if ((checkPM == checkPM))
379380 then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
380381 else throw("Strict value is not equal to itself.")
381382 }
382383 else throw("Strict value is not equal to itself.")
383384 }
384-
385-
386-
387-@Callable(i)
388-func stake () = if ((size(i.payments) != 1))
389- then throw("invalid payment - exact one payment must be attached")
390- else {
391- let pmt = i.payments[0]
392- let lpAssetId = value(pmt.assetId)
393- let lpAssetIdStr = toBase58String(lpAssetId)
394- let amount = pmt.amount
395- let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
396- let callerStr = toString(i.caller)
397- let userAddressStr = if ((callerStr == poolAddressStr))
398- then toString(i.originCaller)
399- else callerStr
400- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
401- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
402- let stakedByUser = readStaked(stakedByUserKEY)
403- let stakedTotal = readStaked(stakedTotalKEY)
404- let $t01607116188 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, amount)
405- let wxToClaimUserNew = $t01607116188._1
406- let integralSTATE = $t01607116188._2
407- let debug = $t01607116188._3
408- ([IntegerEntry(stakedByUserKEY, (stakedByUser + amount)), IntegerEntry(stakedTotalKEY, (stakedTotal + amount)), OperationHistoryEntry("stake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
409- }
410-
411-
412-
413-@Callable(i)
414-func unstake (lpAssetIdStr,amount) = {
415- let lpAssetId = fromBase58String(lpAssetIdStr)
416- let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
417- let poolAddon = valueOrElse(getString(this, keyStablePoolAddonAddr()), poolAddressStr)
418- let callerStr = toString(i.caller)
419- let userAddressStr = if (if ((callerStr == poolAddressStr))
420- then true
421- else (callerStr == poolAddon))
422- then toString(i.originCaller)
423- else callerStr
424- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
425- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
426- let stakedByUser = readStaked(stakedByUserKEY)
427- let stakedTotal = readStaked(stakedTotalKEY)
428- let $t01732517443 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, -(amount))
429- let wxToClaimUserNew = $t01732517443._1
430- let integralSTATE = $t01732517443._2
431- let debug = $t01732517443._3
432- if ((amount > stakedByUser))
433- then throw("passed amount is less then available")
434- else ([IntegerEntry(stakedByUserKEY, (stakedByUser - amount)), IntegerEntry(stakedTotalKEY, (stakedTotal - amount)), ScriptTransfer(i.caller, amount, lpAssetId), OperationHistoryEntry("unstake", userAddressStr, lpAssetIdStr, amount, i.transactionId)] ++ integralSTATE)
435- }
436-
437-
438-
439-@Callable(i)
440-func claimWx (lpAssetIdStr) = {
441- let userAddress = i.caller
442- let userAddressStr = toString(i.caller)
443- let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
444- let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
445- let claimedTotalKEY = keyClaimedTotal(lpAssetIdStr)
446- let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(lpAssetIdStr, userAddressStr)
447- let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(lpAssetIdStr, userAddressStr)
448- let claimedByUser = toBigInt(getIntOrZero(this, claimedByUserKEY))
449- let claimedByUserMinReward = toBigInt(getIntOrZero(this, claimedByUserMinRewardKEY))
450- let claimedByUserBoostReward = toBigInt(getIntOrZero(this, claimedByUserBoostRewardKEY))
451- let claimedTotal = toBigInt(getIntOrZero(this, claimedTotalKEY))
452- let $t01867918791 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
453- let wxToClaimUserNew = $t01867918791._1
454- let integralSTATE = $t01867918791._2
455- let debug = $t01867918791._3
456- let availableToClaim = (wxToClaimUserNew - claimedByUser)
457- if ((zeroBigInt >= availableToClaim))
458- then throw("nothing to claim")
459- else {
460- let wxAmountBoostTotal = asInt(asAnyList(invoke(boostingContract, "claimWxBoost", [lpAssetIdStr, userAddressStr], nil))[0])
461- let minRewardPart = availableToClaim
462- let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
463- let wxAssetId = asByteVector(asAnyList(invoke(emissionContract, "emit", [toInt(minRewardPart)], nil))[0])
464- let emitBoost = asAnyList(invoke(emissionContract, "emit", [toInt(boostRewardPart)], nil))
465- if ((emitBoost == emitBoost))
466- then {
467- let claimedByUserValue = (claimedByUser + availableToClaim)
468- let claimedByUserMinRewardPlusPart = (claimedByUserMinReward + minRewardPart)
469- let claimedByUserBoostRewardPlusBoostRewardPart = (claimedByUserMinReward + minRewardPart)
470- let claimedTotalPlusAvailableToClaim = (claimedByUserMinReward + minRewardPart)
471-[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)]
472- }
473- else throw("Strict value is not equal to itself.")
474- }
475- }
476-
477-
478-
479-@Callable(i)
480-func claimWxREADONLY (lpAssetIdStr,userAddressStr) = {
481- let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
482- let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
483- let claimedByUserKEY = keyClaimedByUser(lpAssetIdStr, userAddressStr)
484- let stakedByUser = readStaked(stakedByUserKEY)
485- let stakedTotal = readStaked(stakedTotalKEY)
486- let claimedByUser = getIntOrZero(this, claimedByUserKEY)
487- let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetIdStr))
488- let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
489- let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
490- let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
491- let passedBlocks = if ((emissionStartBlock > height))
492- then 0
493- else (height - emissionStartBlock)
494- let poolWxEmission = fraction((wxEmissionPerBlock * passedBlocks), poolWeight, POOLWEIGHTMULT)
495- let userWxReward = fraction(poolWxEmission, stakedByUser, stakedTotal)
496- let $t02139221504 = refreshINTEGRALS(lpAssetIdStr, userAddressStr, poolAddressStr, 0)
497- let wxToClaimUserNew = $t02139221504._1
498- let integralSTATE = $t02139221504._2
499- let debug = $t02139221504._3
500- let availableToClaim = (wxToClaimUserNew - toBigInt(claimedByUser))
501- let boostInvResult = asAnyList(invoke(boostingContract, "claimWxBoostREADONLY", [lpAssetIdStr, userAddressStr], nil))
502- let wxAmountBoostTotal = asInt(boostInvResult[0])
503- let boostDebug = asString(boostInvResult[1])
504- let minRewardPart = availableToClaim
505- let boostRewardPart = min([(minRewardPart * toBigInt(2)), toBigInt(wxAmountBoostTotal)])
506- let totalReward = (minRewardPart + boostRewardPart)
507- $Tuple2(nil, makeString(["%s%s%d%d%d%d%s", lpAssetIdStr, userAddressStr, toString(totalReward), toString(claimedByUser), toString(minRewardPart), toString(boostRewardPart), ((((debug + "::") + toString(userWxReward)) + "::BOOSTDEBUG::") + boostDebug)], SEP))
508- }
509-
510-
511-
512-@Callable(i)
513-func onModifyWeight (lpAssetIdStr,poolAddressStr) = if ((i.caller != factoryContract))
514- then throw("permissions denied")
515- else {
516- let $t02241722527 = refreshPoolINTEGRALS(lpAssetIdStr, poolAddressStr, 0)
517- let wxPerLpIntegralNew = $t02241722527._1
518- let poolIntegralSTATE = $t02241722527._2
519- let poolDEBUG = $t02241722527._3
520- poolIntegralSTATE
521- }
522385
523386
524387 @Verifier(tx)
525388 func verify () = {
526389 let targetPublicKey = match managerPublicKeyOrUnit() {
527390 case pk: ByteVector =>
528391 pk
529392 case _: Unit =>
530393 tx.senderPublicKey
531394 case _ =>
532395 throw("Match error")
533396 }
534397 sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
535398 }
536399

github/deemru/w8io/873ac7e 
97.10 ms