2021.10.11 20:47 [2806912] smart account 3P9WPMLS4iwrvU125TLoY1PafHYnN2Tu5Hh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GjmEhckhJSRVfnGoGqE7qgMnQWmBWTvCWkKz3JkKqrK2",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1633974483379,
    "version": 2,
    "chainId": 87,
    "sender": "3P9WPMLS4iwrvU125TLoY1PafHYnN2Tu5Hh",
    "senderPublicKey": "Aa82oS5bRBtJGPTmX21yn1mM6K7o5411v281eJPBdZDF",
    "proofs": [
        "4gfbnTkBxVJTTnfLbiuyd6viYNzKZH1erU92HaaQVXqSU6gezjukYgaf7KB6wTCfFd1XB8cbs5e9M48ARSiBKCKJ"
    ],
    "script": "base64:AAIFAAAAAAAAADUIAhIECgIICBIECgIBBBIAEgASBAoCAQESBAoCCAgSABIFCgMBAQgSBQoDAQEIEgUKAwgBCAAAAD4AAAAACmxQZGVjaW1hbHMAAAAAAAAAAAgAAAAABnNjYWxlOAAAAAAABfXhAAAAAAAMc2NhbGU4QmlnSW50CQABNgAAAAEAAAAAAAX14QAAAAAAB3NjYWxlMTgJAAE2AAAAAQAN4Lazp2QAAAAAAAAKemVyb0JpZ0ludAkAATYAAAABAAAAAAAAAAAAAAAAAANTRVACAAAAAl9fAAAAAAVFTVBUWQIAAAAAAAAAAApQb29sQWN0aXZlAAAAAAAAAAABAAAAAA9Qb29sUHV0RGlzYWJsZWQAAAAAAAAAAAIAAAAAE1Bvb2xNYXRjaGVyRGlzYWJsZWQAAAAAAAAAAAMAAAAADFBvb2xTaHV0ZG93bgAAAAAAAAAABAAAAAAOaWR4UG9vbEFkZHJlc3MAAAAAAAAAAAEAAAAADWlkeFBvb2xTdGF0dXMAAAAAAAAAAAIAAAAAEGlkeFBvb2xMUEFzc2V0SWQAAAAAAAAAAAMAAAAADWlkeEFtdEFzc2V0SWQAAAAAAAAAAAQAAAAAD2lkeFByaWNlQXNzZXRJZAAAAAAAAAAABQAAAAAOaWR4QW10QXNzZXREY20AAAAAAAAAAAYAAAAAEGlkeFByaWNlQXNzZXREY20AAAAAAAAAAAcAAAAADmlkeElBbXRBc3NldElkAAAAAAAAAAAIAAAAABBpZHhJUHJpY2VBc3NldElkAAAAAAAAAAAJAAAAAA1pZHhMUEFzc2V0RGNtAAAAAAAAAAAKAAAAABJpZHhQb29sQW10QXNzZXRBbXQAAAAAAAAAAAEAAAAAFGlkeFBvb2xQcmljZUFzc2V0QW10AAAAAAAAAAACAAAAABFpZHhQb29sTFBBc3NldEFtdAAAAAAAAAAAAwAAAAAZaWR4RmFjdG9yeVN0YWtpbmdDb250cmFjdAAAAAAAAAAAAQAAAAAaaWR4RmFjdG9yeVNsaXBwYWdlQ29udHJhY3QAAAAAAAAAAAcBAAAABXRvWDE4AAAAAgAAAAdvcmlnVmFsAAAADW9yaWdTY2FsZU11bHQJAAE8AAAAAwkAATYAAAABBQAAAAdvcmlnVmFsBQAAAAdzY2FsZTE4CQABNgAAAAEFAAAADW9yaWdTY2FsZU11bHQBAAAAB2Zyb21YMTgAAAACAAAAA3ZhbAAAAA9yZXN1bHRTY2FsZU11bHQJAAGgAAAAAQkAATwAAAADBQAAAAN2YWwJAAE2AAAAAQUAAAAPcmVzdWx0U2NhbGVNdWx0BQAAAAdzY2FsZTE4AQAAAAd0b1NjYWxlAAAAAwAAAANhbXQAAAAIcmVzU2NhbGUAAAAIY3VyU2NhbGUJAABrAAAAAwUAAAADYW10BQAAAAhyZXNTY2FsZQUAAAAIY3VyU2NhbGUBAAAAA2FicwAAAAEAAAADdmFsAwkAAT8AAAACBQAAAAp6ZXJvQmlnSW50BQAAAAN2YWwJAAE+AAAAAQUAAAADdmFsBQAAAAN2YWwBAAAAEmtleUZhY3RvcnlDb250cmFjdAAAAAACAAAAEyVzX19mYWN0b3J5Q29udHJhY3QBAAAAE2tleU1hbmFnZXJQdWJsaWNLZXkAAAAAAgAAABQlc19fbWFuYWdlclB1YmxpY0tleQEAAAAMa2V5UHJpY2VMYXN0AAAAAAIAAAARJXMlc19fcHJpY2VfX2xhc3QBAAAAD2tleVByaWNlSGlzdG9yeQAAAAIAAAABaAAAAAl0aW1lc3RhbXAJAAS5AAAAAgkABEwAAAACAgAAABglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAARMAAAAAgkAAaQAAAABBQAAAAFoCQAETAAAAAIJAAGkAAAAAQUAAAAJdGltZXN0YW1wBQAAAANuaWwFAAAAA1NFUAEAAAASa2V5UHV0QWN0aW9uQnlVc2VyAAAAAgAAAAt1c2VyQWRkcmVzcwAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAslcyVzJXNfX1BfXwUAAAALdXNlckFkZHJlc3MCAAAAAl9fBQAAAAR0eElkAQAAABJrZXlHZXRBY3Rpb25CeVVzZXIAAAACAAAAC3VzZXJBZGRyZXNzAAAABHR4SWQJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACyVzJXMlc19fR19fBQAAAAt1c2VyQWRkcmVzcwIAAAACX18FAAAABHR4SWQBAAAAC2tleUFtdEFzc2V0AAAAAAIAAAAPJXNfX2Ftb3VudEFzc2V0AQAAAA1rZXlQcmljZUFzc2V0AAAAAAIAAAAOJXNfX3ByaWNlQXNzZXQBAAAADGtleUtIaXN0b3JpYwAAAAIAAAABaAAAAAl0aW1lc3RhbXAJAAS5AAAAAgkABEwAAAACAgAAABMlcyVzJWQlZF9fS19oaXN0b3J5CQAETAAAAAIJAAGkAAAAAQUAAAABaAkABEwAAAACCQABpAAAAAEFAAAACXRpbWVzdGFtcAUAAAADbmlsBQAAAANTRVABAAAAEGtleUZhY3RvcnlDb25maWcAAAAAAgAAABElc19fZmFjdG9yeUNvbmZpZwEAAAApa2V5TWFwcGluZ1Bvb2xDb250cmFjdEFkZHJlc3NUb1Bvb2xBc3NldHMAAAABAAAAE3Bvb2xDb250cmFjdEFkZHJlc3MJAAEsAAAAAgkAASwAAAACAgAAAAglcyVzJXNfXwUAAAATcG9vbENvbnRyYWN0QWRkcmVzcwIAAAAgX19tYXBwaW5nc19fcG9vbENvbnRyYWN0MkxwQXNzZXQBAAAADWtleVBvb2xDb25maWcAAAACAAAACWlBbXRBc3NldAAAAAtpUHJpY2VBc3NldAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAglZCVkJXNfXwUAAAAJaUFtdEFzc2V0AgAAAAJfXwUAAAALaVByaWNlQXNzZXQCAAAACF9fY29uZmlnAQAAAB9rZXlNYXBwaW5nc0Jhc2VBc3NldDJpbnRlcm5hbElkAAAAAQAAAAxiYXNlQXNzZXRTdHIJAAEsAAAAAgIAAAAoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUAAAAMYmFzZUFzc2V0U3RyAQAAABNrZXlBbGxQb29sc1NodXRkb3duAAAAAAIAAAAMJXNfX3NodXRkb3duAQAAAA1rZXlQb29sV2VpZ2h0AAAAAQAAAA9jb250cmFjdEFkZHJlc3MJAAEsAAAAAgIAAAASJXMlc19fcG9vbFdlaWdodF9fBQAAAA9jb250cmFjdEFkZHJlc3MBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAS5AAAAAgkABEwAAAACAgAAAAptYW5kYXRvcnkgCQAETAAAAAIJAAQlAAAAAQUAAAAHYWRkcmVzcwkABEwAAAACAgAAAAEuCQAETAAAAAIFAAAAA2tleQkABEwAAAACAgAAAA8gaXMgbm90IGRlZmluZWQFAAAAA25pbAIAAAAAAQAAAAxnZXRJbnRPckZhaWwAAAACAAAAB2FkZHJlc3MAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAHYWRkcmVzcwUAAAADa2V5CQAEuQAAAAIJAARMAAAAAgIAAAAKbWFuZGF0b3J5IAkABEwAAAACCQAEJQAAAAEFAAAAB2FkZHJlc3MJAARMAAAAAgIAAAABLgkABEwAAAACBQAAAANrZXkJAARMAAAAAgIAAAAPIGlzIG5vdCBkZWZpbmVkBQAAAANuaWwCAAAAAAAAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAEdGhpcwkBAAAAEmtleUZhY3RvcnlDb250cmFjdAAAAAABAAAAEGlzR2xvYmFsU2h1dGRvd24AAAAACQEAAAALdmFsdWVPckVsc2UAAAACCQAEGwAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAAE2tleUFsbFBvb2xzU2h1dGRvd24AAAAABwEAAAANZ2V0UG9vbENvbmZpZwAAAAAEAAAACGFtdEFzc2V0CQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAEdGhpcwkBAAAAC2tleUFtdEFzc2V0AAAAAAQAAAAKcHJpY2VBc3NldAkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIFAAAABHRoaXMJAQAAAA1rZXlQcmljZUFzc2V0AAAAAAQAAAALaVByaWNlQXNzZXQJAQAAAAxnZXRJbnRPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAB9rZXlNYXBwaW5nc0Jhc2VBc3NldDJpbnRlcm5hbElkAAAAAQUAAAAKcHJpY2VBc3NldAQAAAAJaUFtdEFzc2V0CQEAAAAMZ2V0SW50T3JGYWlsAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAAAAAEFAAAACGFtdEFzc2V0CQAEtQAAAAIJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAA1rZXlQb29sQ29uZmlnAAAAAgkAAaQAAAABBQAAAAlpQW10QXNzZXQJAAGkAAAAAQUAAAALaVByaWNlQXNzZXQFAAAAA1NFUAEAAAAQZ2V0RmFjdG9yeUNvbmZpZwAAAAAJAAS1AAAAAgkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAAEGtleUZhY3RvcnlDb25maWcAAAAABQAAAANTRVABAAAAEWRhdGFQdXRBY3Rpb25JbmZvAAAACgAAAA1pbkFtdEFzc2V0QW10AAAAD2luUHJpY2VBc3NldEFtdAAAAAhvdXRMcEFtdAAAAAVwcmljZQAAAB1zbGlwcGFnZVRvbGVyYW5jZVBhc3NlZEJ5VXNlcgAAABVzbGlwcGFnZVRvbGVyYW5jZVJlYWwAAAAIdHhIZWlnaHQAAAALdHhUaW1lc3RhbXAAAAASc2xpcGFnZUFtdEFzc2V0QW10AAAAFHNsaXBhZ2VQcmljZUFzc2V0QW10CQAEuQAAAAIJAARMAAAAAgIAAAAUJWQlZCVkJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAA1pbkFtdEFzc2V0QW10CQAETAAAAAIJAAGkAAAAAQUAAAAPaW5QcmljZUFzc2V0QW10CQAETAAAAAIJAAGkAAAAAQUAAAAIb3V0THBBbXQJAARMAAAAAgkAAaQAAAABBQAAAAVwcmljZQkABEwAAAACCQABpAAAAAEFAAAAHXNsaXBwYWdlVG9sZXJhbmNlUGFzc2VkQnlVc2VyCQAETAAAAAIJAAGkAAAAAQUAAAAVc2xpcHBhZ2VUb2xlcmFuY2VSZWFsCQAETAAAAAIJAAGkAAAAAQUAAAAIdHhIZWlnaHQJAARMAAAAAgkAAaQAAAABBQAAAAt0eFRpbWVzdGFtcAkABEwAAAACCQABpAAAAAEFAAAAEnNsaXBhZ2VBbXRBc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAAFHNsaXBhZ2VQcmljZUFzc2V0QW10BQAAAANuaWwFAAAAA1NFUAEAAAARZGF0YUdldEFjdGlvbkluZm8AAAAGAAAADm91dEFtdEFzc2V0QW10AAAAEG91dFByaWNlQXNzZXRBbXQAAAAHaW5McEFtdAAAAAVwcmljZQAAAAh0eEhlaWdodAAAAAt0eFRpbWVzdGFtcAkABLkAAAACCQAETAAAAAICAAAADCVkJWQlZCVkJWQlZAkABEwAAAACCQABpAAAAAEFAAAADm91dEFtdEFzc2V0QW10CQAETAAAAAIJAAGkAAAAAQUAAAAQb3V0UHJpY2VBc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAAB2luTHBBbXQJAARMAAAAAgkAAaQAAAABBQAAAAVwcmljZQkABEwAAAACCQABpAAAAAEFAAAACHR4SGVpZ2h0CQAETAAAAAIJAAGkAAAAAQUAAAALdHhUaW1lc3RhbXAFAAAAA25pbAUAAAADU0VQAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQAAAAdhc3NldElkAwkAAAAAAAACBQAAAAdhc3NldElkAgAAAAVXQVZFUwgJAAPvAAAAAQUAAAAEdGhpcwAAAAlhdmFpbGFibGUJAAPwAAAAAgUAAAAEdGhpcwkAAlkAAAABBQAAAAdhc3NldElkAQAAAA9jYWxjUHJpY2VCaWdJbnQAAAACAAAACHByQW10WDE4AAAACGFtQW10WDE4CQABPAAAAAMFAAAACHByQW10WDE4BQAAAAdzY2FsZTE4BQAAAAhhbUFtdFgxOAEAAAAQcHJpdmF0ZUNhbGNQcmljZQAAAAQAAAAKYW1Bc3NldERjbQAAAApwckFzc2V0RGNtAAAABWFtQW10AAAABXByQW10BAAAAA5hbXRBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAAFYW1BbXQFAAAACmFtQXNzZXREY20EAAAAEHByaWNlQXNzZXRBbXRYMTgJAQAAAAV0b1gxOAAAAAIFAAAABXByQW10BQAAAApwckFzc2V0RGNtCQEAAAAPY2FsY1ByaWNlQmlnSW50AAAAAgUAAAAQcHJpY2VBc3NldEFtdFgxOAUAAAAOYW10QXNzZXRBbXRYMTgBAAAACmNhbGNQcmljZXMAAAADAAAAC2FtdEFzc2V0QW10AAAADXByaWNlQXNzZXRBbXQAAAAFbHBBbXQEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAAthbXRBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4QW10QXNzZXREY20EAAAADXByaWNlQXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20EAAAACXBvb2xQcmljZQkBAAAAEHByaXZhdGVDYWxjUHJpY2UAAAAEBQAAAAthbXRBc3NldERjbQUAAAANcHJpY2VBc3NldERjbQUAAAALYW10QXNzZXRBbXQFAAAADXByaWNlQXNzZXRBbXQEAAAADmFtdEFzc2V0QW10WDE4CQEAAAAFdG9YMTgAAAACBQAAAAthbXRBc3NldEFtdAUAAAALYW10QXNzZXREY20EAAAAEHByaWNlQXNzZXRBbXRYMTgJAQAAAAV0b1gxOAAAAAIFAAAADXByaWNlQXNzZXRBbXQFAAAADXByaWNlQXNzZXREY20EAAAACGxwQW10WDE4CQEAAAAFdG9YMTgAAAACBQAAAAVscEFtdAUAAAAGc2NhbGU4BAAAABFscFByaWNlSW5BbXRBc3NldAkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAIFAAAADmFtdEFzc2V0QW10WDE4BQAAAAhscEFtdFgxOAQAAAATbHBQcmljZUluUHJpY2VBc3NldAkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAIFAAAAEHByaWNlQXNzZXRBbXRYMTgFAAAACGxwQW10WDE4CQAETAAAAAIFAAAACXBvb2xQcmljZQkABEwAAAACBQAAABFscFByaWNlSW5BbXRBc3NldAkABEwAAAACBQAAABNscFByaWNlSW5QcmljZUFzc2V0BQAAAANuaWwBAAAAFGVzdGltYXRlR2V0T3BlcmF0aW9uAAAABAAAAAZ0eElkNTgAAAAKcG10QXNzZXRJZAAAAAhwbXRMcEFtdAAAAAt1c2VyQWRkcmVzcwQAAAADY2ZnCQEAAAANZ2V0UG9vbENvbmZpZwAAAAAEAAAACWxwQXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFBvb2xMUEFzc2V0SWQEAAAACWFtQXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAADWlkeEFtdEFzc2V0SWQEAAAACXByQXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAAD2lkeFByaWNlQXNzZXRJZAQAAAAKYW1Bc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4QW10QXNzZXREY20EAAAACnByQXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20EAAAACnBvb2xTdGF0dXMJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhQb29sU3RhdHVzBAAAAApscEVtaXNzaW9uCAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAD7AAAAAEJAAJZAAAAAQUAAAAJbHBBc3NldElkCQABLAAAAAIJAAEsAAAAAgIAAAAGQXNzZXQgBQAAAAlscEFzc2V0SWQCAAAADiBkb2Vzbid0IGV4aXN0AAAACHF1YW50aXR5AwkBAAAAAiE9AAAAAgUAAAAJbHBBc3NldElkBQAAAApwbXRBc3NldElkCQAAAgAAAAECAAAAFUludmFsaWQgYXNzZXQgcGFzc2VkLgQAAAAJYW1CYWxhbmNlCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAACWFtQXNzZXRJZAQAAAAMYW1CYWxhbmNlWDE4CQEAAAAFdG9YMTgAAAACBQAAAAlhbUJhbGFuY2UFAAAACmFtQXNzZXREY20EAAAACXByQmFsYW5jZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAlwckFzc2V0SWQEAAAADHByQmFsYW5jZVgxOAkBAAAABXRvWDE4AAAAAgUAAAAJcHJCYWxhbmNlBQAAAApwckFzc2V0RGNtBAAAAAtjdXJQcmljZVgxOAkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAIFAAAADHByQmFsYW5jZVgxOAUAAAAMYW1CYWxhbmNlWDE4BAAAAAhjdXJQcmljZQkBAAAAB2Zyb21YMTgAAAACBQAAAAtjdXJQcmljZVgxOAUAAAAGc2NhbGU4BAAAAAtwbXRMcEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAAIcG10THBBbXQFAAAABnNjYWxlOAQAAAANbHBFbWlzc2lvblgxOAkBAAAABXRvWDE4AAAAAgUAAAAKbHBFbWlzc2lvbgUAAAAGc2NhbGU4BAAAAAtvdXRBbUFtdFgxOAkAATwAAAADBQAAAAxhbUJhbGFuY2VYMTgFAAAAC3BtdExwQW10WDE4BQAAAA1scEVtaXNzaW9uWDE4BAAAAAtvdXRQckFtdFgxOAkAATwAAAADBQAAAAxwckJhbGFuY2VYMTgFAAAAC3BtdExwQW10WDE4BQAAAA1scEVtaXNzaW9uWDE4BAAAAAhvdXRBbUFtdAkBAAAAB2Zyb21YMTgAAAACBQAAAAtvdXRBbUFtdFgxOAUAAAAKYW1Bc3NldERjbQQAAAAIb3V0UHJBbXQJAQAAAAdmcm9tWDE4AAAAAgUAAAALb3V0UHJBbXRYMTgFAAAACnByQXNzZXREY20EAAAABXN0YXRlAwkAAAAAAAACBQAAAAZ0eElkNTgCAAAAAAUAAAADbmlsCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAC3VzZXJBZGRyZXNzBQAAAAhvdXRBbUFtdAMJAAAAAAAAAgUAAAAJYW1Bc3NldElkAgAAAAVXQVZFUwUAAAAEdW5pdAkAAlkAAAABBQAAAAlhbUFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAALdXNlckFkZHJlc3MFAAAACG91dFByQW10AwkAAAAAAAACBQAAAAlwckFzc2V0SWQCAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAACXByQXNzZXRJZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAASa2V5R2V0QWN0aW9uQnlVc2VyAAAAAgkABCUAAAABBQAAAAt1c2VyQWRkcmVzcwUAAAAGdHhJZDU4CQEAAAARZGF0YUdldEFjdGlvbkluZm8AAAAGBQAAAAhvdXRBbUFtdAUAAAAIb3V0UHJBbXQFAAAACHBtdExwQW10BQAAAAhjdXJQcmljZQUAAAAGaGVpZ2h0CAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAADGtleVByaWNlTGFzdAAAAAAFAAAACGN1clByaWNlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAAPa2V5UHJpY2VIaXN0b3J5AAAAAgUAAAAGaGVpZ2h0CAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAUAAAAIY3VyUHJpY2UFAAAAA25pbAkABRwAAAAKBQAAAAhvdXRBbUFtdAUAAAAIb3V0UHJBbXQFAAAACWFtQXNzZXRJZAUAAAAJcHJBc3NldElkBQAAAAlhbUJhbGFuY2UFAAAACXByQmFsYW5jZQUAAAAKbHBFbWlzc2lvbgUAAAALY3VyUHJpY2VYMTgFAAAACnBvb2xTdGF0dXMFAAAABXN0YXRlAQAAABRlc3RpbWF0ZVB1dE9wZXJhdGlvbgAAAAkAAAAGdHhJZDU4AAAAEXNsaXBwYWdlVG9sZXJhbmNlAAAADGluQW1Bc3NldEFtdAAAAAtpbkFtQXNzZXRJZAAAAAxpblByQXNzZXRBbXQAAAALaW5QckFzc2V0SWQAAAALdXNlckFkZHJlc3MAAAAKaXNFdmFsdWF0ZQAAAAZlbWl0THAEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAAlscEFzc2V0SWQJAAJZAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFBvb2xMUEFzc2V0SWQEAAAADGFtQXNzZXRJZFN0cgkAAZEAAAACBQAAAANjZmcFAAAADWlkeEFtdEFzc2V0SWQEAAAADHByQXNzZXRJZFN0cgkAAZEAAAACBQAAAANjZmcFAAAAD2lkeFByaWNlQXNzZXRJZAQAAAALaUFtdEFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhJQW10QXNzZXRJZAQAAAANaVByaWNlQXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAAEGlkeElQcmljZUFzc2V0SWQEAAAAC2FtdEFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhBbXRBc3NldERjbQQAAAANcHJpY2VBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UHJpY2VBc3NldERjbQQAAAAKcG9vbFN0YXR1cwkAAZEAAAACBQAAAANjZmcFAAAADWlkeFBvb2xTdGF0dXMEAAAACmxwRW1pc3Npb24ICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQUAAAAJbHBBc3NldElkCQABLAAAAAIJAAEsAAAAAgIAAAAGQXNzZXQgCQACWAAAAAEFAAAACWxwQXNzZXRJZAIAAAAOIGRvZXNuJ3QgZXhpc3QAAAAIcXVhbnRpdHkEAAAADmluQW1Bc3NldElkU3RyCQACWAAAAAEJAQAAAAt2YWx1ZU9yRWxzZQAAAAIFAAAAC2luQW1Bc3NldElkCQACWQAAAAECAAAABVdBVkVTBAAAAA5pblByQXNzZXRJZFN0cgkAAlgAAAABCQEAAAALdmFsdWVPckVsc2UAAAACBQAAAAtpblByQXNzZXRJZAkAAlkAAAABAgAAAAVXQVZFUwMDCQEAAAACIT0AAAACBQAAAAxhbUFzc2V0SWRTdHIFAAAADmluQW1Bc3NldElkU3RyBgkBAAAAAiE9AAAAAgUAAAAMcHJBc3NldElkU3RyBQAAAA5pblByQXNzZXRJZFN0cgkAAAIAAAABAgAAACJJbnZhbGlkIGFtdCBvciBwcmljZSBhc3NldCBwYXNzZWQuBAAAAAlhbUJhbGFuY2UDBQAAAAppc0V2YWx1YXRlCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAADGFtQXNzZXRJZFN0cgkAAGUAAAACCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAADGFtQXNzZXRJZFN0cgUAAAAMaW5BbUFzc2V0QW10BAAAAAlwckJhbGFuY2UDBQAAAAppc0V2YWx1YXRlCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAADHByQXNzZXRJZFN0cgkAAGUAAAACCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAADHByQXNzZXRJZFN0cgUAAAAMaW5QckFzc2V0QW10BAAAAA9pbkFtQXNzZXRBbXRYMTgJAQAAAAV0b1gxOAAAAAIFAAAADGluQW1Bc3NldEFtdAUAAAALYW10QXNzZXREY20EAAAAD2luUHJBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAAMaW5QckFzc2V0QW10BQAAAA1wcmljZUFzc2V0RGNtBAAAAAx1c2VyUHJpY2VYMTgJAQAAAA9jYWxjUHJpY2VCaWdJbnQAAAACBQAAAA9pblByQXNzZXRBbXRYMTgFAAAAD2luQW1Bc3NldEFtdFgxOAQAAAAMYW1CYWxhbmNlWDE4CQEAAAAFdG9YMTgAAAACBQAAAAlhbUJhbGFuY2UFAAAAC2FtdEFzc2V0RGNtBAAAAAxwckJhbGFuY2VYMTgJAQAAAAV0b1gxOAAAAAIFAAAACXByQmFsYW5jZQUAAAANcHJpY2VBc3NldERjbQQAAAADcmVzAwkAAAAAAAACBQAAAApscEVtaXNzaW9uAAAAAAAAAAAABAAAAAtjdXJQcmljZVgxOAUAAAAKemVyb0JpZ0ludAQAAAALc2xpcHBhZ2VYMTgFAAAACnplcm9CaWdJbnQEAAAACGxwQW10WDE4CQAAdgAAAAYJAAE5AAAAAgUAAAAPaW5BbUFzc2V0QW10WDE4BQAAAA9pblByQXNzZXRBbXRYMTgAAAAAAAAAAAAJAAE2AAAAAQAAAAAAAAAABQAAAAAAAAAAAQAAAAAAAAAAAAUAAAAERE9XTgkABRcAAAAFCQEAAAAHZnJvbVgxOAAAAAIFAAAACGxwQW10WDE4BQAAAAZzY2FsZTgJAQAAAAdmcm9tWDE4AAAAAgUAAAAPaW5BbUFzc2V0QW10WDE4BQAAAAthbXRBc3NldERjbQkBAAAAB2Zyb21YMTgAAAACBQAAAA9pblByQXNzZXRBbXRYMTgFAAAADXByaWNlQXNzZXREY20JAQAAAA9jYWxjUHJpY2VCaWdJbnQAAAACCQABNwAAAAIFAAAADHByQmFsYW5jZVgxOAUAAAAPaW5QckFzc2V0QW10WDE4CQABNwAAAAIFAAAADGFtQmFsYW5jZVgxOAUAAAAPaW5BbUFzc2V0QW10WDE4BQAAAAtzbGlwcGFnZVgxOAQAAAALY3VyUHJpY2VYMTgJAQAAAA9jYWxjUHJpY2VCaWdJbnQAAAACBQAAAAxwckJhbGFuY2VYMTgFAAAADGFtQmFsYW5jZVgxOAQAAAALc2xpcHBhZ2VYMTgJAAE8AAAAAwkBAAAAA2FicwAAAAEJAAE4AAAAAgUAAAALY3VyUHJpY2VYMTgFAAAADHVzZXJQcmljZVgxOAUAAAAHc2NhbGUxOAUAAAALY3VyUHJpY2VYMTgEAAAAFHNsaXBwYWdlVG9sZXJhbmNlWDE4CQEAAAAFdG9YMTgAAAACBQAAABFzbGlwcGFnZVRvbGVyYW5jZQUAAAAGc2NhbGU4AwMJAQAAAAIhPQAAAAIFAAAAC2N1clByaWNlWDE4BQAAAAp6ZXJvQmlnSW50CQABPwAAAAIFAAAAC3NsaXBwYWdlWDE4BQAAABRzbGlwcGFnZVRvbGVyYW5jZVgxOAcJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAPUHJpY2Ugc2xpcHBhZ2UgCQABpgAAAAEFAAAAC3NsaXBwYWdlWDE4AgAAAB4gZXhjZWVkZWQgdGhlIHBhc3NlZCBsaW1pdCBvZiAJAAGmAAAAAQUAAAAUc2xpcHBhZ2VUb2xlcmFuY2VYMTgEAAAADWxwRW1pc3Npb25YMTgJAQAAAAV0b1gxOAAAAAIFAAAACmxwRW1pc3Npb24FAAAABnNjYWxlOAQAAAAKcHJWaWFBbVgxOAkAATwAAAADBQAAAA9pbkFtQXNzZXRBbXRYMTgFAAAAC2N1clByaWNlWDE4BQAAAAdzY2FsZTE4BAAAAAphbVZpYVByWDE4CQABPAAAAAMFAAAAD2luUHJBc3NldEFtdFgxOAUAAAAHc2NhbGUxOAUAAAALY3VyUHJpY2VYMTgEAAAADGV4cGVjdGVkQW10cwMJAAE/AAAAAgUAAAAKcHJWaWFBbVgxOAUAAAAPaW5QckFzc2V0QW10WDE4CQAFFAAAAAIFAAAACmFtVmlhUHJYMTgFAAAAD2luUHJBc3NldEFtdFgxOAkABRQAAAACBQAAAA9pbkFtQXNzZXRBbXRYMTgFAAAACnByVmlhQW1YMTgEAAAAEWV4cEFtdEFzc2V0QW10WDE4CAUAAAAMZXhwZWN0ZWRBbXRzAAAAAl8xBAAAABNleHBQcmljZUFzc2V0QW10WDE4CAUAAAAMZXhwZWN0ZWRBbXRzAAAAAl8yBAAAAAhscEFtdFgxOAkAATwAAAADBQAAAA1scEVtaXNzaW9uWDE4BQAAABNleHBQcmljZUFzc2V0QW10WDE4BQAAAAxwckJhbGFuY2VYMTgJAAUXAAAABQkBAAAAB2Zyb21YMTgAAAACBQAAAAhscEFtdFgxOAUAAAAGc2NhbGU4CQEAAAAHZnJvbVgxOAAAAAIFAAAAEWV4cEFtdEFzc2V0QW10WDE4BQAAAAthbXRBc3NldERjbQkBAAAAB2Zyb21YMTgAAAACBQAAABNleHBQcmljZUFzc2V0QW10WDE4BQAAAA1wcmljZUFzc2V0RGNtBQAAAAtjdXJQcmljZVgxOAUAAAALc2xpcHBhZ2VYMTgEAAAACWNhbGNMcEFtdAgFAAAAA3JlcwAAAAJfMQQAAAAOY2FsY0FtQXNzZXRQbXQIBQAAAANyZXMAAAACXzIEAAAADmNhbGNQckFzc2V0UG10CAUAAAADcmVzAAAAAl8zBAAAAAhjdXJQcmljZQkBAAAAB2Zyb21YMTgAAAACCAUAAAADcmVzAAAAAl80BQAAAAZzY2FsZTgEAAAADHNsaXBwYWdlQ2FsYwkBAAAAB2Zyb21YMTgAAAACCAUAAAADcmVzAAAAAl81BQAAAAZzY2FsZTgDCQAAZwAAAAIAAAAAAAAAAAAFAAAACWNhbGNMcEFtdAkAAAIAAAABAgAAADZJbnZhbGlkIGNhbGN1bGF0aW9ucy4gTFAgY2FsY3VsYXRlZCBpcyBsZXNzIHRoYW4gemVyby4EAAAACWVtaXRMcEFtdAMJAQAAAAEhAAAAAQUAAAAGZW1pdExwAAAAAAAAAAAABQAAAAljYWxjTHBBbXQEAAAABmFtRGlmZgkAAGUAAAACBQAAAAxpbkFtQXNzZXRBbXQFAAAADmNhbGNBbUFzc2V0UG10BAAAAAZwckRpZmYJAABlAAAAAgUAAAAMaW5QckFzc2V0QW10BQAAAA5jYWxjUHJBc3NldFBtdAQAAAALY29tbW9uU3RhdGUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAAxrZXlQcmljZUxhc3QAAAAABQAAAAhjdXJQcmljZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAD2tleVByaWNlSGlzdG9yeQAAAAIFAAAABmhlaWdodAgFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAFAAAACGN1clByaWNlCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABJrZXlQdXRBY3Rpb25CeVVzZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAGdHhJZDU4CQEAAAARZGF0YVB1dEFjdGlvbkluZm8AAAAKBQAAAA5jYWxjQW1Bc3NldFBtdAUAAAAOY2FsY1ByQXNzZXRQbXQFAAAACWVtaXRMcEFtdAUAAAAIY3VyUHJpY2UFAAAAEXNsaXBwYWdlVG9sZXJhbmNlBQAAAAxzbGlwcGFnZUNhbGMFAAAABmhlaWdodAgFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAFAAAABmFtRGlmZgUAAAAGcHJEaWZmBQAAAANuaWwJAAUfAAAADQUAAAAJY2FsY0xwQW10BQAAAAllbWl0THBBbXQFAAAACGN1clByaWNlBQAAAAlhbUJhbGFuY2UFAAAACXByQmFsYW5jZQUAAAAKbHBFbWlzc2lvbgUAAAAJbHBBc3NldElkBQAAAApwb29sU3RhdHVzBQAAAAtjb21tb25TdGF0ZQUAAAAGYW1EaWZmBQAAAAZwckRpZmYFAAAAC2luQW1Bc3NldElkBQAAAAtpblByQXNzZXRJZAEAAAAbdmFsaWRhdGVNYXRjaGVyT3JkZXJBbGxvd2VkAAAAAQAAAAVvcmRlcgQAAAADY2ZnCQEAAAANZ2V0UG9vbENvbmZpZwAAAAAEAAAACmFtdEFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhBbXRBc3NldElkBAAAAAxwcmljZUFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA9pZHhQcmljZUFzc2V0SWQEAAAACnBvb2xTdGF0dXMJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAADWlkeFBvb2xTdGF0dXMEAAAAC2FtdEFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhBbXRBc3NldERjbQQAAAANcHJpY2VBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UHJpY2VBc3NldERjbQQAAAASYWNjQW10QXNzZXRCYWxhbmNlCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAACmFtdEFzc2V0SWQEAAAAFGFjY1ByaWNlQXNzZXRCYWxhbmNlCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAADHByaWNlQXNzZXRJZAQAAAALY3VyUHJpY2VYMTgDCQAAAAAAAAIIBQAAAAVvcmRlcgAAAAlvcmRlclR5cGUFAAAAA0J1eQkBAAAAEHByaXZhdGVDYWxjUHJpY2UAAAAEBQAAAAthbXRBc3NldERjbQUAAAANcHJpY2VBc3NldERjbQkAAGQAAAACBQAAABJhY2NBbXRBc3NldEJhbGFuY2UIBQAAAAVvcmRlcgAAAAZhbW91bnQFAAAAFGFjY1ByaWNlQXNzZXRCYWxhbmNlCQEAAAAQcHJpdmF0ZUNhbGNQcmljZQAAAAQFAAAAC2FtdEFzc2V0RGNtBQAAAA1wcmljZUFzc2V0RGNtCQAAZQAAAAIFAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQgFAAAABW9yZGVyAAAABmFtb3VudAUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UEAAAACGN1clByaWNlCQEAAAAHZnJvbVgxOAAAAAIFAAAAC2N1clByaWNlWDE4BQAAAAZzY2FsZTgDAwMJAQAAABBpc0dsb2JhbFNodXRkb3duAAAAAAYJAAAAAAAAAgUAAAAKcG9vbFN0YXR1cwUAAAATUG9vbE1hdGNoZXJEaXNhYmxlZAYJAAAAAAAAAgUAAAAKcG9vbFN0YXR1cwUAAAAMUG9vbFNodXRkb3duCQAAAgAAAAECAAAAHEV4Y2hhbmdlIG9wZXJhdGlvbnMgZGlzYWJsZWQEAAAADW9yZGVyQW10QXNzZXQICAUAAAAFb3JkZXIAAAAJYXNzZXRQYWlyAAAAC2Ftb3VudEFzc2V0BAAAABBvcmRlckFtdEFzc2V0U3RyAwkAAAAAAAACBQAAAA1vcmRlckFtdEFzc2V0BQAAAAR1bml0AgAAAAVXQVZFUwkAAlgAAAABCQEAAAAFdmFsdWUAAAABBQAAAA1vcmRlckFtdEFzc2V0BAAAAA9vcmRlclByaWNlQXNzZXQICAUAAAAFb3JkZXIAAAAJYXNzZXRQYWlyAAAACnByaWNlQXNzZXQEAAAAEm9yZGVyUHJpY2VBc3NldFN0cgMJAAAAAAAAAgUAAAAPb3JkZXJQcmljZUFzc2V0BQAAAAR1bml0AgAAAAVXQVZFUwkAAlgAAAABCQEAAAAFdmFsdWUAAAABBQAAAA9vcmRlclByaWNlQXNzZXQDAwkBAAAAAiE9AAAAAgUAAAAQb3JkZXJBbXRBc3NldFN0cgUAAAAKYW10QXNzZXRJZAYJAQAAAAIhPQAAAAIFAAAAEm9yZGVyUHJpY2VBc3NldFN0cgUAAAAMcHJpY2VBc3NldElkCQAAAgAAAAECAAAAE1dyb25nIG9yZGVyIGFzc2V0cy4EAAAACm9yZGVyUHJpY2UIBQAAAAVvcmRlcgAAAAVwcmljZQQAAAAIcHJpY2VEY20JAABrAAAAAwUAAAAGc2NhbGU4BQAAAA1wcmljZUFzc2V0RGNtBQAAAAthbXRBc3NldERjbQQAAAAQY2FzdGVkT3JkZXJQcmljZQkBAAAAB3RvU2NhbGUAAAADBQAAAApvcmRlclByaWNlBQAAAAZzY2FsZTgFAAAACHByaWNlRGNtBAAAABFpc09yZGVyUHJpY2VWYWxpZAMJAAAAAAAAAggFAAAABW9yZGVyAAAACW9yZGVyVHlwZQUAAAADQnV5CQAAZwAAAAIFAAAACGN1clByaWNlBQAAABBjYXN0ZWRPcmRlclByaWNlCQAAZwAAAAIFAAAAEGNhc3RlZE9yZGVyUHJpY2UFAAAACGN1clByaWNlBgEAAAAJY29tbW9uR2V0AAAAAQAAAAFpAwkBAAAAAiE9AAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAAIAAAABAgAAAB1leGFjdGx5IDEgcGF5bWVudCBpcyBleHBlY3RlZAQAAAADcG10CQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAABAAAAApwbXRBc3NldElkCQEAAAAFdmFsdWUAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQEAAAABnBtdEFtdAgFAAAAA3BtdAAAAAZhbW91bnQEAAAAA3JlcwkBAAAAFGVzdGltYXRlR2V0T3BlcmF0aW9uAAAABAkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkCQACWAAAAAEFAAAACnBtdEFzc2V0SWQFAAAABnBtdEFtdAgFAAAAAWkAAAAGY2FsbGVyBAAAAAhvdXRBbUFtdAgFAAAAA3JlcwAAAAJfMQQAAAAIb3V0UHJBbXQIBQAAAANyZXMAAAACXzIEAAAACnBvb2xTdGF0dXMJAQAAAA1wYXJzZUludFZhbHVlAAAAAQgFAAAAA3JlcwAAAAJfOQQAAAAFc3RhdGUIBQAAAANyZXMAAAADXzEwAwMJAQAAABBpc0dsb2JhbFNodXRkb3duAAAAAAYJAAAAAAAAAgUAAAAKcG9vbFN0YXR1cwUAAAAMUG9vbFNodXRkb3duCQAAAgAAAAEJAAEsAAAAAgIAAAAsR2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluLiBTdGF0dXMgPSAJAAGkAAAAAQUAAAAKcG9vbFN0YXR1cwkABRcAAAAFBQAAAAhvdXRBbUFtdAUAAAAIb3V0UHJBbXQFAAAABnBtdEFtdAUAAAAKcG10QXNzZXRJZAUAAAAFc3RhdGUBAAAACWNvbW1vblB1dAAAAAMAAAABaQAAABFzbGlwcGFnZVRvbGVyYW5jZQAAAAZlbWl0THADCQEAAAACIT0AAAACCQABkAAAAAEIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAACCQAAAgAAAAECAAAAH2V4YWN0bHkgMiBwYXltZW50cyBhcmUgZXhwZWN0ZWQEAAAACmFtQXNzZXRQbXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAACnByQXNzZXRQbXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAEEAAAABmVzdFB1dAkBAAAAFGVzdGltYXRlUHV0T3BlcmF0aW9uAAAACQkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkBQAAABFzbGlwcGFnZVRvbGVyYW5jZQgFAAAACmFtQXNzZXRQbXQAAAAGYW1vdW50CAUAAAAKYW1Bc3NldFBtdAAAAAdhc3NldElkCAUAAAAKcHJBc3NldFBtdAAAAAZhbW91bnQIBQAAAApwckFzc2V0UG10AAAAB2Fzc2V0SWQJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBwUAAAAGZW1pdExwBAAAAApwb29sU3RhdHVzCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEIBQAAAAZlc3RQdXQAAAACXzgDAwMJAQAAABBpc0dsb2JhbFNodXRkb3duAAAAAAYJAAAAAAAAAgUAAAAKcG9vbFN0YXR1cwUAAAAPUG9vbFB1dERpc2FibGVkBgkAAAAAAAACBQAAAApwb29sU3RhdHVzBQAAAAxQb29sU2h1dGRvd24JAAACAAAAAQkAASwAAAACAgAAACxQdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4uIFN0YXR1cyA9IAkAAaQAAAABBQAAAApwb29sU3RhdHVzBQAAAAZlc3RQdXQAAAAKAAAAAWkBAAAAC2NvbnN0cnVjdG9yAAAAAgAAAA9mYWN0b3J5Q29udHJhY3QAAAAQbWFuYWdlclB1YmxpY0tleQMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAABJwZXJtaXNzaW9ucyBkZW5pZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEmtleUZhY3RvcnlDb250cmFjdAAAAAAFAAAAD2ZhY3RvcnlDb250cmFjdAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAATa2V5TWFuYWdlclB1YmxpY0tleQAAAAAFAAAAEG1hbmFnZXJQdWJsaWNLZXkFAAAAA25pbAAAAAFpAQAAAANwdXQAAAACAAAAEXNsaXBwYWdlVG9sZXJhbmNlAAAAD3Nob3VsZEF1dG9TdGFrZQQAAAAKZmFjdG9yeUNmZwkBAAAAEGdldEZhY3RvcnlDb25maWcAAAAABAAAAA9zdGFraW5nQ29udHJhY3QJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABCYAAAABCQABkQAAAAIFAAAACmZhY3RvcnlDZmcFAAAAGWlkeEZhY3RvcnlTdGFraW5nQ29udHJhY3QCAAAAIUVycm9yLiBJbmNvcnJlY3Qgc3Rha2luZyBhZGRyZXNzLgQAAAAQc2xpcHBhZ2VDb250cmFjdAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEJAAGRAAAAAgUAAAAKZmFjdG9yeUNmZwUAAAAaaWR4RmFjdG9yeVNsaXBwYWdlQ29udHJhY3QCAAAAK0Vycm9yLiBJbmNvcnJlY3Qgc2xpcHBhZ2UgY29udHJhY3QgYWRkcmVzcy4EAAAABmVzdFB1dAkBAAAACWNvbW1vblB1dAAAAAMFAAAAAWkFAAAAEXNsaXBwYWdlVG9sZXJhbmNlBgQAAAAJZW1pdExwQW10CAUAAAAGZXN0UHV0AAAAAl8yBAAAAAlscEFzc2V0SWQIBQAAAAZlc3RQdXQAAAACXzcEAAAABXN0YXRlCAUAAAAGZXN0UHV0AAAAAl85BAAAAAZhbURpZmYIBQAAAAZlc3RQdXQAAAADXzEwBAAAAAZwckRpZmYIBQAAAAZlc3RQdXQAAAADXzExBAAAAARhbUlkCAUAAAAGZXN0UHV0AAAAA18xMgQAAAAEcHJJZAgFAAAABmVzdFB1dAAAAANfMTMEAAAAB2VtaXRJbnYJAAP8AAAABAUAAAAPZmFjdG9yeUNvbnRyYWN0AgAAAARlbWl0CQAETAAAAAIFAAAACWVtaXRMcEFtdAUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAAB2VtaXRJbnYFAAAAB2VtaXRJbnYEAAAADHNsaXBwYWdlQUludgMJAABmAAAAAgUAAAAGYW1EaWZmAAAAAAAAAAAACQAD/AAAAAQFAAAAEHNsaXBwYWdlQ29udHJhY3QCAAAAA3B1dAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAARhbUlkBQAAAAZhbURpZmYFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAAxzbGlwcGFnZUFJbnYFAAAADHNsaXBwYWdlQUludgQAAAAMc2xpcHBhZ2VQSW52AwkAAGYAAAACBQAAAAZwckRpZmYAAAAAAAAAAAAJAAP8AAAABAUAAAAQc2xpcHBhZ2VDb250cmFjdAIAAAADcHV0BQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIFAAAABHBySWQFAAAABnByRGlmZgUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAADHNsaXBwYWdlUEludgUAAAAMc2xpcHBhZ2VQSW52BAAAAApscFN0YWtlSW52AwUAAAAPc2hvdWxkQXV0b1N0YWtlCQAD/AAAAAQFAAAAD3N0YWtpbmdDb250cmFjdAIAAAAFc3Rha2UFAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgUAAAAJbHBBc3NldElkBQAAAAllbWl0THBBbXQFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAApscFN0YWtlSW52BQAAAApscFN0YWtlSW52CQAETQAAAAIFAAAABXN0YXRlCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAACWVtaXRMcEFtdAUAAAAJbHBBc3NldElkCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAApwdXRGb3JGcmVlAAAAAAQAAAAGZXN0UHV0CQEAAAAJY29tbW9uUHV0AAAAAwUAAAABaQAAAAAAAAAAAQcIBQAAAAZlc3RQdXQAAAACXzkAAAABaQEAAAADZ2V0AAAAAAQAAAADcmVzCQEAAAAJY29tbW9uR2V0AAAAAQUAAAABaQQAAAAJb3V0QW10QW10CAUAAAADcmVzAAAAAl8xBAAAAAhvdXRQckFtdAgFAAAAA3JlcwAAAAJfMgQAAAAGcG10QW10CAUAAAADcmVzAAAAAl8zBAAAAApwbXRBc3NldElkCAUAAAADcmVzAAAAAl80BAAAAAVzdGF0ZQgFAAAAA3JlcwAAAAJfNQQAAAAUYnVybkxQQXNzZXRPbkZhY3RvcnkJAAP8AAAABAUAAAAPZmFjdG9yeUNvbnRyYWN0AgAAAARidXJuCQAETAAAAAIFAAAABnBtdEFtdAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAApwbXRBc3NldElkBQAAAAZwbXRBbXQFAAAAA25pbAMJAAAAAAAAAgUAAAAUYnVybkxQQXNzZXRPbkZhY3RvcnkFAAAAFGJ1cm5MUEFzc2V0T25GYWN0b3J5BQAAAAVzdGF0ZQkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAJZ2V0Tm9MZXNzAAAAAgAAABJub0xlc3NUaGVuQW10QXNzZXQAAAAUbm9MZXNzVGhlblByaWNlQXNzZXQEAAAAA3JlcwkBAAAACWNvbW1vbkdldAAAAAEFAAAAAWkEAAAACG91dEFtQW10CAUAAAADcmVzAAAAAl8xBAAAAAhvdXRQckFtdAgFAAAAA3JlcwAAAAJfMgQAAAAGcG10QW10CAUAAAADcmVzAAAAAl8zBAAAAApwbXRBc3NldElkCAUAAAADcmVzAAAAAl80BAAAAAVzdGF0ZQgFAAAAA3JlcwAAAAJfNQMJAABmAAAAAgUAAAASbm9MZXNzVGhlbkFtdEFzc2V0BQAAAAhvdXRBbUFtdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAABxub0xlc3NUaGVuQW10QXNzZXQgZmFpbGVkOiAgCQABpAAAAAEFAAAACG91dEFtQW10AgAAAAMgPCAJAAGkAAAAAQUAAAASbm9MZXNzVGhlbkFtdEFzc2V0AwkAAGYAAAACBQAAABRub0xlc3NUaGVuUHJpY2VBc3NldAUAAAAIb3V0UHJBbXQJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAdbm9MZXNzVGhlblByaWNlQXNzZXQgZmFpbGVkOiAJAAGkAAAAAQUAAAAIb3V0UHJBbXQCAAAAAyA8IAkAAaQAAAABBQAAABRub0xlc3NUaGVuUHJpY2VBc3NldAQAAAAUYnVybkxQQXNzZXRPbkZhY3RvcnkJAAP8AAAABAUAAAAPZmFjdG9yeUNvbnRyYWN0AgAAAARidXJuCQAETAAAAAIFAAAABnBtdEFtdAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAApwbXRBc3NldElkBQAAAAZwbXRBbXQFAAAAA25pbAMJAAAAAAAAAgUAAAAUYnVybkxQQXNzZXRPbkZhY3RvcnkFAAAAFGJ1cm5MUEFzc2V0T25GYWN0b3J5BQAAAAVzdGF0ZQkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAIYWN0aXZhdGUAAAACAAAAC2FtdEFzc2V0U3RyAAAADXByaWNlQXNzZXRTdHIDCQEAAAACIT0AAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgkABCUAAAABBQAAAA9mYWN0b3J5Q29udHJhY3QJAAACAAAAAQIAAAAScGVybWlzc2lvbnMgZGVuaWVkCQAFFAAAAAIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAC2tleUFtdEFzc2V0AAAAAAUAAAALYW10QXNzZXRTdHIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADWtleVByaWNlQXNzZXQAAAAABQAAAA1wcmljZUFzc2V0U3RyBQAAAANuaWwCAAAAB3N1Y2Nlc3MAAAABaQEAAAANc3RhdHNSRUFET05MWQAAAAAEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAAlscEFzc2V0SWQJAAJZAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFBvb2xMUEFzc2V0SWQEAAAACmFtdEFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhBbXRBc3NldElkBAAAAAxwcmljZUFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA9pZHhQcmljZUFzc2V0SWQEAAAAC2lBbXRBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4SUFtdEFzc2V0SWQEAAAADWlQcmljZUFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhJUHJpY2VBc3NldElkBAAAAAthbXRBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4QW10QXNzZXREY20EAAAADXByaWNlQXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20EAAAADXBvb2xMUEJhbGFuY2UICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQUAAAAJbHBBc3NldElkCQABLAAAAAIJAAEsAAAAAgIAAAAGQXNzZXQgCQACWAAAAAEFAAAACWxwQXNzZXRJZAIAAAAOIGRvZXNuJ3QgZXhpc3QAAAAIcXVhbnRpdHkEAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAphbXRBc3NldElkBAAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAxwcmljZUFzc2V0SWQEAAAACnByaWNlc0xpc3QJAQAAAApjYWxjUHJpY2VzAAAAAwUAAAASYWNjQW10QXNzZXRCYWxhbmNlBQAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQUAAAANcG9vbExQQmFsYW5jZQQAAAAIY3VyUHJpY2UJAAGRAAAAAgUAAAAKcHJpY2VzTGlzdAAAAAAAAAAAAAQAAAAPbHBBbXRBc3NldFNoYXJlCQABkQAAAAIFAAAACnByaWNlc0xpc3QAAAAAAAAAAAEEAAAAEWxwUHJpY2VBc3NldFNoYXJlCQABkQAAAAIFAAAACnByaWNlc0xpc3QAAAAAAAAAAAIEAAAACnBvb2xXZWlnaHQJAQAAAAV2YWx1ZQAAAAEJAAQaAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAANa2V5UG9vbFdlaWdodAAAAAEJAAQlAAAAAQUAAAAEdGhpcwkABRQAAAACBQAAAANuaWwJAAS5AAAAAgkABEwAAAACAgAAAA4lZCVkJWQlZCVkJWQlZAkABEwAAAACCQABpAAAAAEFAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAAFGFjY1ByaWNlQXNzZXRCYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAANcG9vbExQQmFsYW5jZQkABEwAAAACCQABpgAAAAEFAAAACGN1clByaWNlCQAETAAAAAIJAAGmAAAAAQUAAAAPbHBBbXRBc3NldFNoYXJlCQAETAAAAAIJAAGmAAAAAQUAAAARbHBQcmljZUFzc2V0U2hhcmUJAARMAAAAAgkAAaQAAAABBQAAAApwb29sV2VpZ2h0BQAAAANuaWwFAAAAA1NFUAAAAAFpAQAAACBldmFsdWF0ZVB1dEJ5QW1vdW50QXNzZXRSRUFET05MWQAAAAMAAAARc2xpcHBhZ2VUb2xlcmFuY2UAAAANaW5BbXRBc3NldEFtdAAAAAt1c2VyQWRkcmVzcwQAAAADY2ZnCQEAAAANZ2V0UG9vbENvbmZpZwAAAAAEAAAACWxwQXNzZXRJZAkAAlkAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UG9vbExQQXNzZXRJZAQAAAAMYW1Bc3NldElkU3RyCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4QW10QXNzZXRJZAQAAAAJYW1Bc3NldElkCQACWQAAAAEFAAAADGFtQXNzZXRJZFN0cgQAAAAMcHJBc3NldElkU3RyCQABkQAAAAIFAAAAA2NmZwUAAAAPaWR4UHJpY2VBc3NldElkBAAAAAlwckFzc2V0SWQJAAJZAAAAAQUAAAAMcHJBc3NldElkU3RyBAAAAAthbXRBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4QW10QXNzZXREY20EAAAADXByaWNlQXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20EAAAACnBvb2xTdGF0dXMJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhQb29sU3RhdHVzBAAAAA1wb29sTFBCYWxhbmNlCAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAD7AAAAAEFAAAACWxwQXNzZXRJZAkAASwAAAACCQABLAAAAAICAAAABkFzc2V0IAkAAlgAAAABBQAAAAlscEFzc2V0SWQCAAAADiBkb2Vzbid0IGV4aXN0AAAACHF1YW50aXR5BAAAABJhY2NBbXRBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAMYW1Bc3NldElkU3RyBAAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAxwckFzc2V0SWRTdHIEAAAADmFtdEFzc2V0QW10WDE4CQEAAAAFdG9YMTgAAAACBQAAABJhY2NBbXRBc3NldEJhbGFuY2UFAAAAC2FtdEFzc2V0RGNtBAAAABBwcmljZUFzc2V0QW10WDE4CQEAAAAFdG9YMTgAAAACBQAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQUAAAANcHJpY2VBc3NldERjbQQAAAALY3VyUHJpY2VYMTgDCQAAAAAAAAIFAAAADXBvb2xMUEJhbGFuY2UAAAAAAAAAAAAFAAAACnplcm9CaWdJbnQJAQAAAA9jYWxjUHJpY2VCaWdJbnQAAAACBQAAABBwcmljZUFzc2V0QW10WDE4BQAAAA5hbXRBc3NldEFtdFgxOAQAAAAQaW5BbXRBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAANaW5BbXRBc3NldEFtdAUAAAALYW10QXNzZXREY20EAAAAEmluUHJpY2VBc3NldEFtdFgxOAkAATwAAAADBQAAABBpbkFtdEFzc2V0QW10WDE4BQAAAAtjdXJQcmljZVgxOAUAAAAHc2NhbGUxOAQAAAAPaW5QcmljZUFzc2V0QW10CQEAAAAHZnJvbVgxOAAAAAIFAAAAEmluUHJpY2VBc3NldEFtdFgxOAUAAAANcHJpY2VBc3NldERjbQQAAAAGZXN0UHV0CQEAAAAUZXN0aW1hdGVQdXRPcGVyYXRpb24AAAAJAgAAAAAFAAAAEXNsaXBwYWdlVG9sZXJhbmNlBQAAAA1pbkFtdEFzc2V0QW10BQAAAAlhbUFzc2V0SWQFAAAAD2luUHJpY2VBc3NldEFtdAUAAAAJcHJBc3NldElkBQAAAAt1c2VyQWRkcmVzcwYHBAAAAAljYWxjTHBBbXQIBQAAAAZlc3RQdXQAAAACXzEEAAAADGN1clByaWNlQ2FsYwgFAAAABmVzdFB1dAAAAAJfMwQAAAAJYW1CYWxhbmNlCAUAAAAGZXN0UHV0AAAAAl80BAAAAAlwckJhbGFuY2UIBQAAAAZlc3RQdXQAAAACXzUEAAAACmxwRW1pc3Npb24IBQAAAAZlc3RQdXQAAAACXzYJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAMJWQlZCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAAJY2FsY0xwQW10CQAETAAAAAIJAAGkAAAAAQkBAAAAB2Zyb21YMTgAAAACBQAAAAtjdXJQcmljZVgxOAUAAAAGc2NhbGU4CQAETAAAAAIJAAGkAAAAAQUAAAAJYW1CYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAJcHJCYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAKbHBFbWlzc2lvbgkABEwAAAACBQAAAApwb29sU3RhdHVzBQAAAANuaWwFAAAAA1NFUAAAAAFpAQAAAB9ldmFsdWF0ZVB1dEJ5UHJpY2VBc3NldFJFQURPTkxZAAAAAwAAABFzbGlwcGFnZVRvbGVyYW5jZQAAAA9pblByaWNlQXNzZXRBbXQAAAALdXNlckFkZHJlc3MEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAAlscEFzc2V0SWQJAAJZAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFBvb2xMUEFzc2V0SWQEAAAADGFtQXNzZXRJZFN0cgkAAZEAAAACBQAAAANjZmcFAAAADWlkeEFtdEFzc2V0SWQEAAAACWFtQXNzZXRJZAkAAlkAAAABBQAAAAxhbUFzc2V0SWRTdHIEAAAADHByQXNzZXRJZFN0cgkAAZEAAAACBQAAAANjZmcFAAAAD2lkeFByaWNlQXNzZXRJZAQAAAAJcHJBc3NldElkCQACWQAAAAEFAAAADHByQXNzZXRJZFN0cgQAAAALYW10QXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAADmlkeEFtdEFzc2V0RGNtBAAAAA1wcmljZUFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQcmljZUFzc2V0RGNtBAAAAApwb29sU3RhdHVzCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4UG9vbFN0YXR1cwQAAAANcG9vbExQQmFsYW5jZQgJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkAA+wAAAABBQAAAAlscEFzc2V0SWQJAAEsAAAAAgkAASwAAAACAgAAAAZBc3NldCAJAAJYAAAAAQUAAAAJbHBBc3NldElkAgAAAA4gZG9lc24ndCBleGlzdAAAAAhxdWFudGl0eQQAAAASYWNjQW10QXNzZXRCYWxhbmNlCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAADGFtQXNzZXRJZFN0cgQAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAMcHJBc3NldElkU3RyBAAAAA5hbXRBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAASYWNjQW10QXNzZXRCYWxhbmNlBQAAAAthbXRBc3NldERjbQQAAAAQcHJpY2VBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UFAAAADXByaWNlQXNzZXREY20EAAAAC2N1clByaWNlWDE4AwkAAAAAAAACBQAAAA1wb29sTFBCYWxhbmNlAAAAAAAAAAAABQAAAAp6ZXJvQmlnSW50CQEAAAAPY2FsY1ByaWNlQmlnSW50AAAAAgUAAAAQcHJpY2VBc3NldEFtdFgxOAUAAAAOYW10QXNzZXRBbXRYMTgEAAAAEmluUHJpY2VBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAAPaW5QcmljZUFzc2V0QW10BQAAAA1wcmljZUFzc2V0RGNtBAAAABBpbkFtdEFzc2V0QW10WDE4CQABPAAAAAMFAAAAEmluUHJpY2VBc3NldEFtdFgxOAUAAAAHc2NhbGUxOAUAAAALY3VyUHJpY2VYMTgEAAAADWluQW10QXNzZXRBbXQJAQAAAAdmcm9tWDE4AAAAAgUAAAAQaW5BbXRBc3NldEFtdFgxOAUAAAALYW10QXNzZXREY20EAAAABmVzdFB1dAkBAAAAFGVzdGltYXRlUHV0T3BlcmF0aW9uAAAACQIAAAAABQAAABFzbGlwcGFnZVRvbGVyYW5jZQUAAAANaW5BbXRBc3NldEFtdAUAAAAJYW1Bc3NldElkBQAAAA9pblByaWNlQXNzZXRBbXQFAAAACXByQXNzZXRJZAUAAAALdXNlckFkZHJlc3MGBwQAAAAJY2FsY0xwQW10CAUAAAAGZXN0UHV0AAAAAl8xBAAAAAxjdXJQcmljZUNhbGMIBQAAAAZlc3RQdXQAAAACXzMEAAAACWFtQmFsYW5jZQgFAAAABmVzdFB1dAAAAAJfNAQAAAAJcHJCYWxhbmNlCAUAAAAGZXN0UHV0AAAAAl81BAAAAApscEVtaXNzaW9uCAUAAAAGZXN0UHV0AAAAAl82CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAADCVkJWQlZCVkJWQlZAkABEwAAAACCQABpAAAAAEFAAAACWNhbGNMcEFtdAkABEwAAAACCQABpAAAAAEJAQAAAAdmcm9tWDE4AAAAAgUAAAALY3VyUHJpY2VYMTgFAAAABnNjYWxlOAkABEwAAAACCQABpAAAAAEFAAAACWFtQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACXByQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACmxwRW1pc3Npb24JAARMAAAAAgUAAAAKcG9vbFN0YXR1cwUAAAADbmlsBQAAAANTRVAAAAABaQEAAAATZXZhbHVhdGVHZXRSRUFET05MWQAAAAMAAAAQcGF5bWVudExwQXNzZXRJZAAAAAxwYXltZW50THBBbXQAAAAOdXNlckFkZHJlc3NTdHIEAAAAA3JlcwkBAAAAFGVzdGltYXRlR2V0T3BlcmF0aW9uAAAABAIAAAAABQAAABBwYXltZW50THBBc3NldElkBQAAAAxwYXltZW50THBBbXQFAAAABHRoaXMEAAAACG91dEFtQW10CAUAAAADcmVzAAAAAl8xBAAAAAhvdXRQckFtdAgFAAAAA3JlcwAAAAJfMgQAAAAJYW1CYWxhbmNlCAUAAAADcmVzAAAAAl81BAAAAAlwckJhbGFuY2UIBQAAAANyZXMAAAACXzYEAAAACmxwRW1pc3Npb24IBQAAAANyZXMAAAACXzcEAAAACGN1clByaWNlCAUAAAADcmVzAAAAAl84BAAAAApwb29sU3RhdHVzCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEIBQAAAANyZXMAAAACXzkJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAOJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAAhvdXRBbUFtdAkABEwAAAACCQABpAAAAAEFAAAACG91dFByQW10CQAETAAAAAIJAAGkAAAAAQUAAAAJYW1CYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAJcHJCYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAKbHBFbWlzc2lvbgkABEwAAAACCQABpgAAAAEFAAAACGN1clByaWNlCQAETAAAAAIJAAGkAAAAAQUAAAAKcG9vbFN0YXR1cwUAAAADbmlsBQAAAANTRVAAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAFT3JkZXIEAAAABW9yZGVyBQAAAAckbWF0Y2gwAwkBAAAAG3ZhbGlkYXRlTWF0Y2hlck9yZGVyQWxsb3dlZAAAAAEFAAAABW9yZGVyCQAB9AAAAAMIBQAAAAVvcmRlcgAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAABW9yZGVyAAAABnByb29mcwAAAAAAAAAAAAgFAAAABW9yZGVyAAAAD3NlbmRlclB1YmxpY0tleQcEAAAADW1hbmFnZXJQdWJsaWMJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQdAAAAAgUAAAAEdGhpcwkBAAAAE2tleU1hbmFnZXJQdWJsaWNLZXkAAAAABQAAAAVFTVBUWQMJAAAAAAAAAgUAAAANbWFuYWdlclB1YmxpYwUAAAAFRU1QVFkJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5CQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAkAAlkAAAABBQAAAA1tYW5hZ2VyUHVibGljTKbJZw==",
    "height": 2806912,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Cc9Zs6VFd6MmQpmUgr8UnX9oRQ6aP7ZY2Pbbd2ge3yz4
Next: none

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let factoryContract = Address(base58'3P8s92Udr7jNWMv6WctM9Hnc9EytXitmym5')
5-
64 let lPdecimals = 8
75 
86 let scale8 = 100000000
97 
8+let scale8BigInt = toBigInt(100000000)
9+
1010 let scale18 = toBigInt(1000000000000000000)
1111 
12+let zeroBigInt = toBigInt(0)
13+
1214 let SEP = "__"
15+
16+let EMPTY = ""
1317 
1418 let PoolActive = 1
1519 
2529 
2630 let idxPoolLPAssetId = 3
2731 
28-let idxAmountAssetId = 4
32+let idxAmtAssetId = 4
2933 
3034 let idxPriceAssetId = 5
3135 
32-let idxAmountAssetDecimals = 6
36+let idxAmtAssetDcm = 6
3337 
34-let idxPriceAssetDecimals = 7
38+let idxPriceAssetDcm = 7
3539 
36-let idxAmountAssetInternalId = 8
40+let idxIAmtAssetId = 8
3741 
38-let idxPriceAssetInternalId = 9
42+let idxIPriceAssetId = 9
3943 
40-let idxLPAssetDecimals = 10
44+let idxLPAssetDcm = 10
4145 
42-let idxMatcherPublicKey = 11
43-
44-let idxPoolAmountAssetAmt = 1
46+let idxPoolAmtAssetAmt = 1
4547 
4648 let idxPoolPriceAssetAmt = 2
4749 
4951 
5052 let idxFactoryStakingContract = 1
5153 
52-let idxFactoryBoostingConfig = 2
54+let idxFactorySlippageContract = 7
55+
56+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
57+
58+
59+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
60+
61+
62+func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
63+
64+
65+func abs (val) = if ((zeroBigInt > val))
66+    then -(val)
67+    else val
68+
69+
70+func keyFactoryContract () = "%s__factoryContract"
71+
72+
73+func keyManagerPublicKey () = "%s__managerPublicKey"
74+
5375 
5476 func keyPriceLast () = "%s%s__price__last"
5577 
5678 
5779 func keyPriceHistory (h,timestamp) = makeString(["%s%s%d%d__price__history", toString(h), toString(timestamp)], SEP)
58-
59-
60-func keyPoolLiquidity (internalAmountAsset,internalPriceAsset) = (((("%d%d%s__" + internalAmountAsset) + "__") + internalPriceAsset) + "__locked")
61-
62-
63-func keyPoolLiquidityByUser (internalAmountAsset,internalPriceAsset,userAddress) = (((((("%d%d%s%s__" + internalAmountAsset) + "__") + internalPriceAsset) + "__") + userAddress) + "__locked")
6480 
6581 
6682 func keyPutActionByUser (userAddress,txId) = ((("%s%s%s__P__" + userAddress) + "__") + txId)
6985 func keyGetActionByUser (userAddress,txId) = ((("%s%s%s__G__" + userAddress) + "__") + txId)
7086 
7187 
72-func keyAmountAsset () = "%s__amountAsset"
88+func keyAmtAsset () = "%s__amountAsset"
7389 
7490 
7591 func keyPriceAsset () = "%s__priceAsset"
92+
93+
94+func keyKHistoric (h,timestamp) = makeString(["%s%s%d%d__K_history", toString(h), toString(timestamp)], SEP)
7695 
7796 
7897 func keyFactoryConfig () = "%s__factoryConfig"
81100 func keyMappingPoolContractAddressToPoolAssets (poolContractAddress) = (("%s%s%s__" + poolContractAddress) + "__mappings__poolContract2LpAsset")
82101 
83102 
84-func keyPoolConfig (amountAssetInternal,priceAssetInternal) = (((("%d%d%s__" + amountAssetInternal) + "__") + priceAssetInternal) + "__config")
103+func keyPoolConfig (iAmtAsset,iPriceAsset) = (((("%d%d%s__" + iAmtAsset) + "__") + iPriceAsset) + "__config")
85104 
86105 
87106 func keyMappingsBaseAsset2internalId (baseAssetStr) = ("%s%s%s__mappings__baseAsset2internalId__" + baseAssetStr)
93112 func keyPoolWeight (contractAddress) = ("%s%s__poolWeight__" + contractAddress)
94113 
95114 
115+func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
116+
117+
118+func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
119+
120+
121+let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContract()))
122+
96123 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
97124 
98125 
99126 func getPoolConfig () = {
100-    let poolAmountAsset = valueOrErrorMessage(getString(this, keyAmountAsset()), "No config for amount asset found")
101-    let poolPriceAsset = valueOrErrorMessage(getString(this, keyPriceAsset()), "No config for price asset found")
102-    let poolPriceAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolPriceAsset)), "No config for internal price asset found")
103-    let poolAmountAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolAmountAsset)), "No config for internal amount asset found")
104-    split(valueOrErrorMessage(getString(factoryContract, keyPoolConfig(toString(poolAmountAssetInternal), toString(poolPriceAssetInternal))), "No factory config found for pool assets."), SEP)
127+    let amtAsset = getStringOrFail(this, keyAmtAsset())
128+    let priceAsset = getStringOrFail(this, keyPriceAsset())
129+    let iPriceAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAsset))
130+    let iAmtAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAsset))
131+    split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAsset), toString(iPriceAsset))), SEP)
105132     }
106133 
107134 
108-func getFactoryConfig () = split(valueOrErrorMessage(getString(factoryContract, keyFactoryConfig()), "No factory config found."), SEP)
135+func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
109136 
110137 
111-func getPoolLiquidity (amountAssetInternalId,priceAssetInternalId) = {
112-    let currentPoolLiquidityValue = getString(this, keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId))
113-    if (isDefined(currentPoolLiquidityValue))
114-        then split(value(currentPoolLiquidityValue), SEP)
115-        else ["", "0", "0", "0"]
116-    }
138+func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slippageTolerancePassedByUser,slippageToleranceReal,txHeight,txTimestamp,slipageAmtAssetAmt,slipagePriceAssetAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slippageTolerancePassedByUser), toString(slippageToleranceReal), toString(txHeight), toString(txTimestamp), toString(slipageAmtAssetAmt), toString(slipagePriceAssetAmt)], SEP)
117139 
118140 
119-func getPoolLiquidityByUser (amountAssetInternalId,priceAssetInternalId,userAddress) = {
120-    let currentPoolLiquidityValue = getString(this, keyPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, userAddress))
121-    if (isDefined(currentPoolLiquidityValue))
122-        then split(value(currentPoolLiquidityValue), SEP)
123-        else ["", "0", "0", "0", "0"]
124-    }
141+func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
125142 
126143 
127-func dataPoolLiquidity (amountAssetLocked,priceAssetLocked,lpTokenLocked) = makeString(["%d%d%d", toString(amountAssetLocked), toString(priceAssetLocked), toString(lpTokenLocked)], SEP)
128-
129-
130-func dataPoolLiquidityByUser (amountAssetLocked,priceAssetLocked,lpTokenLocked,userAddress) = makeString(["%d%d%d", toString(amountAssetLocked), toString(priceAssetLocked), toString(lpTokenLocked)], SEP)
131-
132-
133-func dataPutActionInfo (inAmountAssetAmt,inPriceAssetAmt,outLpAmt,price,slippageTolerancePassedByUser,slippageToleranceReal,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d%d", toString(inAmountAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slippageTolerancePassedByUser), toString(slippageToleranceReal), toString(txHeight), toString(txTimestamp)], SEP)
134-
135-
136-func dataGetActionInfo (outAmountAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmountAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
137-
138-
139-func privateCastToScaleOf (amount,resultScale,currentScale) = fraction(amount, resultScale, currentScale)
140-
141-
142-func calculatePrice (priceAssetLockedAmt,amountAssetlLockedAmt) = fraction(priceAssetLockedAmt, scale8, amountAssetlLockedAmt)
143-
144-
145-func privateCalculatePrice (amoutAssetDecimals,priceAssetDecimals,amountAssetAmt,priceAssetAmt) = {
146-    let amountAssetAmtCasted = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
147-    let priceAssetAmtCasted = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
148-    calculatePrice(priceAssetAmtCasted, amountAssetAmtCasted)
149-    }
150-
151-
152-func privateGetAccountBalance (assetId) = if ((assetId == "WAVES"))
144+func getAccBalance (assetId) = if ((assetId == "WAVES"))
153145     then wavesBalance(this).available
154146     else assetBalance(this, fromBase58String(assetId))
155147 
156148 
157-func calculatePrices (amountAssetAmt,priceAssetAmt,lpAmount) = {
158-    let poolConfigDataList = getPoolConfig()
159-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
160-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
161-    let poolPrice = privateCalculatePrice(amoutAssetDecimals, priceAssetDecimals, amountAssetAmt, priceAssetAmt)
162-    let amountAssetPoolLockedAmt = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
163-    let priceAssetPoolLockedAmt = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
164-    let lpPriceInAmountAsset = calculatePrice(amountAssetPoolLockedAmt, lpAmount)
165-    let lpPriceInPriceAsset = calculatePrice(priceAssetPoolLockedAmt, lpAmount)
166-[poolPrice, lpPriceInAmountAsset, lpPriceInPriceAsset]
149+func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
150+
151+
152+func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
153+    let amtAssetAmtX18 = toX18(amAmt, amAssetDcm)
154+    let priceAssetAmtX18 = toX18(prAmt, prAssetDcm)
155+    calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
167156     }
168157 
169158 
170-func privateEstimateGetOperation (paymentLpAssetId,paymentLpAmount,userAddress) = {
171-    let poolConfigList = getPoolConfig()
172-    let lpAssetId = poolConfigList[idxPoolLPAssetId]
173-    let amountAssetId = poolConfigList[idxAmountAssetId]
174-    let priceAssetId = poolConfigList[idxPriceAssetId]
175-    let amountAssetInternalId = poolConfigList[idxAmountAssetInternalId]
176-    let priceAssetInternalId = poolConfigList[idxPriceAssetInternalId]
177-    let amoutAssetDecimals = parseIntValue(poolConfigList[idxAmountAssetDecimals])
178-    let priceAssetDecimals = parseIntValue(poolConfigList[idxPriceAssetDecimals])
179-    let poolStatus = poolConfigList[idxPoolStatus]
180-    let userLiquidityList = getPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, userAddress)
181-    let userLPBalance = parseIntValue(userLiquidityList[idxPoolLPAssetAmt])
182-    let userAmountAssetBalance = parseIntValue(userLiquidityList[idxPoolAmountAssetAmt])
183-    let userPriceAssetBalance = parseIntValue(userLiquidityList[idxPoolPriceAssetAmt])
184-    let poolLiquidityList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
185-    let poolLPBalance = parseIntValue(poolLiquidityList[idxPoolLPAssetAmt])
186-    let poolAmountAssetBalance = parseIntValue(poolLiquidityList[idxPoolAmountAssetAmt])
187-    let poolPriceAssetBalance = parseIntValue(poolLiquidityList[idxPoolPriceAssetAmt])
188-    if ((lpAssetId != paymentLpAssetId))
159+func calcPrices (amtAssetAmt,priceAssetAmt,lpAmt) = {
160+    let cfg = getPoolConfig()
161+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
162+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
163+    let poolPrice = privateCalcPrice(amtAssetDcm, priceAssetDcm, amtAssetAmt, priceAssetAmt)
164+    let amtAssetAmtX18 = toX18(amtAssetAmt, amtAssetDcm)
165+    let priceAssetAmtX18 = toX18(priceAssetAmt, priceAssetDcm)
166+    let lpAmtX18 = toX18(lpAmt, scale8)
167+    let lpPriceInAmtAsset = calcPriceBigInt(amtAssetAmtX18, lpAmtX18)
168+    let lpPriceInPriceAsset = calcPriceBigInt(priceAssetAmtX18, lpAmtX18)
169+[poolPrice, lpPriceInAmtAsset, lpPriceInPriceAsset]
170+    }
171+
172+
173+func estimateGetOperation (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
174+    let cfg = getPoolConfig()
175+    let lpAssetId = cfg[idxPoolLPAssetId]
176+    let amAssetId = cfg[idxAmtAssetId]
177+    let prAssetId = cfg[idxPriceAssetId]
178+    let amAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
179+    let prAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
180+    let poolStatus = cfg[idxPoolStatus]
181+    let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), (("Asset " + lpAssetId) + " doesn't exist")).quantity
182+    if ((lpAssetId != pmtAssetId))
189183         then throw("Invalid asset passed.")
190184         else {
191-            let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
192-            let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
193-            let amountAssetPoolLockedAmt = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
194-            let priceAssetPoolLockedAmt = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
195-            let outAmountAssetAmt = fraction(amountAssetPoolLockedAmt, paymentLpAmount, poolLPBalance)
196-            let outPriceAssetAmt = fraction(priceAssetPoolLockedAmt, paymentLpAmount, poolLPBalance)
197-            let outAmountAssetAmtFinal = privateCastToScaleOf(outAmountAssetAmt, amoutAssetDecimals, scale8)
198-            let outPriceAssetAmtFinal = privateCastToScaleOf(outPriceAssetAmt, priceAssetDecimals, scale8)
199-            let currentPrice = calculatePrice(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
200-            $Tuple14(outAmountAssetAmtFinal, outPriceAssetAmtFinal, amountAssetInternalId, priceAssetInternalId, userAmountAssetBalance, amountAssetId, userPriceAssetBalance, priceAssetId, userLPBalance, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, currentPrice, poolStatus)
185+            let amBalance = getAccBalance(amAssetId)
186+            let amBalanceX18 = toX18(amBalance, amAssetDcm)
187+            let prBalance = getAccBalance(prAssetId)
188+            let prBalanceX18 = toX18(prBalance, prAssetDcm)
189+            let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
190+            let curPrice = fromX18(curPriceX18, scale8)
191+            let pmtLpAmtX18 = toX18(pmtLpAmt, scale8)
192+            let lpEmissionX18 = toX18(lpEmission, scale8)
193+            let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissionX18)
194+            let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissionX18)
195+            let outAmAmt = fromX18(outAmAmtX18, amAssetDcm)
196+            let outPrAmt = fromX18(outPrAmtX18, prAssetDcm)
197+            let state = if ((txId58 == ""))
198+                then nil
199+                else [ScriptTransfer(userAddress, outAmAmt, if ((amAssetId == "WAVES"))
200+                    then unit
201+                    else fromBase58String(amAssetId)), ScriptTransfer(userAddress, outPrAmt, if ((prAssetId == "WAVES"))
202+                    then unit
203+                    else fromBase58String(prAssetId)), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice)]
204+            $Tuple10(outAmAmt, outPrAmt, amAssetId, prAssetId, amBalance, prBalance, lpEmission, curPriceX18, poolStatus, state)
201205             }
202206     }
203207 
204208 
205-func privateEstimatePutOperation (slippageTolerance,inAmountAssetAmt,inAmountAssetId,inPriceAssetAmt,inPriceAssetId,userAddress,isEvaluate) = {
206-    let poolConfigDataList = getPoolConfig()
207-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
208-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
209-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
210-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
211-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
212-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
213-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
214-    let poolStatus = poolConfigDataList[idxPoolStatus]
215-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
216-    let poolAmountAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolAmountAssetAmt])
217-    let poolPriceAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolPriceAssetAmt])
218-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
219-    let userLiquidityDataList = getPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, userAddress)
220-    let userAmountAssetBalance = parseIntValue(userLiquidityDataList[idxPoolAmountAssetAmt])
221-    let userPriceAssetBalance = parseIntValue(userLiquidityDataList[idxPoolPriceAssetAmt])
222-    let userLPBalance = parseIntValue(userLiquidityDataList[idxPoolLPAssetAmt])
223-    if (if ((amountAssetId != inAmountAssetId))
209+func estimatePutOperation (txId58,slippageTolerance,inAmAssetAmt,inAmAssetId,inPrAssetAmt,inPrAssetId,userAddress,isEvaluate,emitLp) = {
210+    let cfg = getPoolConfig()
211+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
212+    let amAssetIdStr = cfg[idxAmtAssetId]
213+    let prAssetIdStr = cfg[idxPriceAssetId]
214+    let iAmtAssetId = cfg[idxIAmtAssetId]
215+    let iPriceAssetId = cfg[idxIPriceAssetId]
216+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
217+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
218+    let poolStatus = cfg[idxPoolStatus]
219+    let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
220+    let inAmAssetIdStr = toBase58String(valueOrElse(inAmAssetId, fromBase58String("WAVES")))
221+    let inPrAssetIdStr = toBase58String(valueOrElse(inPrAssetId, fromBase58String("WAVES")))
222+    if (if ((amAssetIdStr != inAmAssetIdStr))
224223         then true
225-        else (priceAssetId != inPriceAssetId))
226-        then throw("Invalid amount or price asset passed.")
224+        else (prAssetIdStr != inPrAssetIdStr))
225+        then throw("Invalid amt or price asset passed.")
227226         else {
228-            let accountAmountAssetBalance = if (isEvaluate)
229-                then privateGetAccountBalance(amountAssetId)
230-                else (privateGetAccountBalance(amountAssetId) - inAmountAssetAmt)
231-            let accountPriceAssetBalance = if (isEvaluate)
232-                then privateGetAccountBalance(priceAssetId)
233-                else (privateGetAccountBalance(priceAssetId) - inPriceAssetAmt)
234-            let inAmountAssetAmtCalculated = privateCastToScaleOf(inAmountAssetAmt, scale8, amoutAssetDecimals)
235-            let inPriceAssetAmtCalculated = privateCastToScaleOf(inPriceAssetAmt, scale8, priceAssetDecimals)
236-            let userPrice = calculatePrice(inPriceAssetAmtCalculated, inAmountAssetAmtCalculated)
237-            let amountAssetPoolLockedAmt = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
238-            let priceAssetPoolLockedAmt = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
239-            let curentPrice = if ((poolLPBalance == 0))
240-                then 0
241-                else calculatePrice(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
242-            let slippage = if ((curentPrice == 0))
243-                then 0
244-                else if ((curentPrice > userPrice))
245-                    then fraction((curentPrice - userPrice), 100, curentPrice)
246-                    else fraction((userPrice - curentPrice), 100, curentPrice)
247-            if (if ((curentPrice != 0))
248-                then ((slippage * scale8) > slippageTolerance)
249-                else false)
250-                then throw(((("Price slippage " + toString((slippage * scale8))) + " exceeded the passed limit of ") + toString(slippageTolerance)))
227+            let amBalance = if (isEvaluate)
228+                then getAccBalance(amAssetIdStr)
229+                else (getAccBalance(amAssetIdStr) - inAmAssetAmt)
230+            let prBalance = if (isEvaluate)
231+                then getAccBalance(prAssetIdStr)
232+                else (getAccBalance(prAssetIdStr) - inPrAssetAmt)
233+            let inAmAssetAmtX18 = toX18(inAmAssetAmt, amtAssetDcm)
234+            let inPrAssetAmtX18 = toX18(inPrAssetAmt, priceAssetDcm)
235+            let userPriceX18 = calcPriceBigInt(inPrAssetAmtX18, inAmAssetAmtX18)
236+            let amBalanceX18 = toX18(amBalance, amtAssetDcm)
237+            let prBalanceX18 = toX18(prBalance, priceAssetDcm)
238+            let res = if ((lpEmission == 0))
239+                then {
240+                    let curPriceX18 = zeroBigInt
241+                    let slippageX18 = zeroBigInt
242+                    let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
243+                    $Tuple5(fromX18(lpAmtX18, scale8), fromX18(inAmAssetAmtX18, amtAssetDcm), fromX18(inPrAssetAmtX18, priceAssetDcm), calcPriceBigInt((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
244+                    }
251245                 else {
252-                    let finalPrice = calculatePrice((priceAssetPoolLockedAmt + inPriceAssetAmtCalculated), (amountAssetPoolLockedAmt + inAmountAssetAmtCalculated))
253-                    let outLpAmount = if ((poolLPBalance == 0))
254-                        then {
255-                            let partA = pow(inAmountAssetAmtCalculated, 0, 5, 1, 0, DOWN)
256-                            let partB = pow(inPriceAssetAmtCalculated, 0, 5, 1, 0, DOWN)
257-                            (partA * partB)
246+                    let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
247+                    let slippageX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
248+                    let slippageToleranceX18 = toX18(slippageTolerance, scale8)
249+                    if (if ((curPriceX18 != zeroBigInt))
250+                        then (slippageX18 > slippageToleranceX18)
251+                        else false)
252+                        then throw(((("Price slippage " + toString(slippageX18)) + " exceeded the passed limit of ") + toString(slippageToleranceX18)))
253+                        else {
254+                            let lpEmissionX18 = toX18(lpEmission, scale8)
255+                            let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
256+                            let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
257+                            let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
258+                                then $Tuple2(amViaPrX18, inPrAssetAmtX18)
259+                                else $Tuple2(inAmAssetAmtX18, prViaAmX18)
260+                            let expAmtAssetAmtX18 = expectedAmts._1
261+                            let expPriceAssetAmtX18 = expectedAmts._2
262+                            let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
263+                            $Tuple5(fromX18(lpAmtX18, scale8), fromX18(expAmtAssetAmtX18, amtAssetDcm), fromX18(expPriceAssetAmtX18, priceAssetDcm), curPriceX18, slippageX18)
258264                             }
259-                        else {
260-                            let lpAmtByAmountAsset = fraction(poolLPBalance, inAmountAssetAmtCalculated, amountAssetPoolLockedAmt)
261-                            let lpAmtByPriceAsset = fraction(poolLPBalance, inPriceAssetAmtCalculated, priceAssetPoolLockedAmt)
262-                            if ((lpAmtByPriceAsset > lpAmtByAmountAsset))
263-                                then lpAmtByAmountAsset
264-                                else lpAmtByPriceAsset
265-                            }
266-                    $Tuple13(outLpAmount, finalPrice, userAmountAssetBalance, userPriceAssetBalance, userLPBalance, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, amountAssetInternalId, priceAssetInternalId, lpAssetId, slippage, poolStatus)
265+                    }
266+            let calcLpAmt = res._1
267+            let calcAmAssetPmt = res._2
268+            let calcPrAssetPmt = res._3
269+            let curPrice = fromX18(res._4, scale8)
270+            let slippageCalc = fromX18(res._5, scale8)
271+            if ((0 >= calcLpAmt))
272+                then throw("Invalid calculations. LP calculated is less than zero.")
273+                else {
274+                    let emitLpAmt = if (!(emitLp))
275+                        then 0
276+                        else calcLpAmt
277+                    let amDiff = (inAmAssetAmt - calcAmAssetPmt)
278+                    let prDiff = (inPrAssetAmt - calcPrAssetPmt)
279+                    let commonState = [IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice), StringEntry(keyPutActionByUser(userAddress, txId58), dataPutActionInfo(calcAmAssetPmt, calcPrAssetPmt, emitLpAmt, curPrice, slippageTolerance, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
280+                    $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEmission, lpAssetId, poolStatus, commonState, amDiff, prDiff, inAmAssetId, inPrAssetId)
267281                     }
268282             }
269283     }
270284 
271285 
272286 func validateMatcherOrderAllowed (order) = {
273-    let poolConfigDataList = getPoolConfig()
274-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
275-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
276-    let poolStatus = parseIntValue(poolConfigDataList[idxPoolStatus])
277-    let matcherPublicKeyStr = poolConfigDataList[idxMatcherPublicKey]
278-    let amountAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
279-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
280-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
281-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
282-    let currentPrice = if ((order.orderType == Buy))
283-        then privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
284-        else privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
285-    let isPoolStatusValid = if (if (if (isGlobalShutdown())
287+    let cfg = getPoolConfig()
288+    let amtAssetId = cfg[idxAmtAssetId]
289+    let priceAssetId = cfg[idxPriceAssetId]
290+    let poolStatus = parseIntValue(cfg[idxPoolStatus])
291+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
292+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
293+    let accAmtAssetBalance = getAccBalance(amtAssetId)
294+    let accPriceAssetBalance = getAccBalance(priceAssetId)
295+    let curPriceX18 = if ((order.orderType == Buy))
296+        then privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance + order.amount), accPriceAssetBalance)
297+        else privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance - order.amount), accPriceAssetBalance)
298+    let curPrice = fromX18(curPriceX18, scale8)
299+    if (if (if (isGlobalShutdown())
286300         then true
287301         else (poolStatus == PoolMatcherDisabled))
288302         then true
289303         else (poolStatus == PoolShutdown))
290-        then false
291-        else true
292-    let isValidMatcherSign = true
293-    let orderAmountAsset = order.assetPair.amountAsset
294-    let orderAmountAssetStr = if ((orderAmountAsset == unit))
295-        then "WAVES"
296-        else toBase58String(value(orderAmountAsset))
297-    let orderPriceAsset = order.assetPair.priceAsset
298-    let orderPriceAssetStr = if ((orderPriceAsset == unit))
299-        then "WAVES"
300-        else toBase58String(value(orderPriceAsset))
301-    let isValidAssetPair = if (if ((orderAmountAssetStr != amountAssetId))
302-        then true
303-        else (orderPriceAssetStr != priceAssetId))
304-        then false
305-        else true
306-    let orderPrice = order.price
307-    let priceDecimals = fraction(scale8, priceAssetDecimals, amountAssetDecimals)
308-    let castedOrderPrice = privateCastToScaleOf(orderPrice, scale8, priceDecimals)
309-    let isOrderPriceValid = if ((order.orderType == Buy))
310-        then (currentPrice >= castedOrderPrice)
311-        else (castedOrderPrice >= currentPrice)
312-    if (if (if (isValidAssetPair)
313-        then isValidMatcherSign
314-        else false)
315-        then isPoolStatusValid
316-        else false)
317-        then isOrderPriceValid
318-        else false
304+        then throw("Exchange operations disabled")
305+        else {
306+            let orderAmtAsset = order.assetPair.amountAsset
307+            let orderAmtAssetStr = if ((orderAmtAsset == unit))
308+                then "WAVES"
309+                else toBase58String(value(orderAmtAsset))
310+            let orderPriceAsset = order.assetPair.priceAsset
311+            let orderPriceAssetStr = if ((orderPriceAsset == unit))
312+                then "WAVES"
313+                else toBase58String(value(orderPriceAsset))
314+            if (if ((orderAmtAssetStr != amtAssetId))
315+                then true
316+                else (orderPriceAssetStr != priceAssetId))
317+                then throw("Wrong order assets.")
318+                else {
319+                    let orderPrice = order.price
320+                    let priceDcm = fraction(scale8, priceAssetDcm, amtAssetDcm)
321+                    let castedOrderPrice = toScale(orderPrice, scale8, priceDcm)
322+                    let isOrderPriceValid = if ((order.orderType == Buy))
323+                        then (curPrice >= castedOrderPrice)
324+                        else (castedOrderPrice >= curPrice)
325+                    true
326+                    }
327+            }
319328     }
329+
330+
331+func commonGet (i) = if ((size(i.payments) != 1))
332+    then throw("exactly 1 payment is expected")
333+    else {
334+        let pmt = value(i.payments[0])
335+        let pmtAssetId = value(pmt.assetId)
336+        let pmtAmt = pmt.amount
337+        let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
338+        let outAmAmt = res._1
339+        let outPrAmt = res._2
340+        let poolStatus = parseIntValue(res._9)
341+        let state = res._10
342+        if (if (isGlobalShutdown())
343+            then true
344+            else (poolStatus == PoolShutdown))
345+            then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
346+            else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
347+        }
348+
349+
350+func commonPut (i,slippageTolerance,emitLp) = if ((size(i.payments) != 2))
351+    then throw("exactly 2 payments are expected")
352+    else {
353+        let amAssetPmt = value(i.payments[0])
354+        let prAssetPmt = value(i.payments[1])
355+        let estPut = estimatePutOperation(toBase58String(i.transactionId), slippageTolerance, amAssetPmt.amount, amAssetPmt.assetId, prAssetPmt.amount, prAssetPmt.assetId, toString(i.caller), false, emitLp)
356+        let poolStatus = parseIntValue(estPut._8)
357+        if (if (if (isGlobalShutdown())
358+            then true
359+            else (poolStatus == PoolPutDisabled))
360+            then true
361+            else (poolStatus == PoolShutdown))
362+            then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
363+            else estPut
364+        }
365+
366+
367+@Callable(i)
368+func constructor (factoryContract,managerPublicKey) = if ((i.caller != this))
369+    then throw("permissions denied")
370+    else [StringEntry(keyFactoryContract(), factoryContract), StringEntry(keyManagerPublicKey(), managerPublicKey)]
371+
320372 
321373 
322374 @Callable(i)
323375 func put (slippageTolerance,shouldAutoStake) = {
324-    let factoryConfigList = getFactoryConfig()
325-    let stakingContract = valueOrErrorMessage(addressFromString(factoryConfigList[idxFactoryStakingContract]), "Error. Incorrect staking address.")
326-    let pmtAmountAsset = value(i.payments[0])
327-    let inAmountAssetAmt = pmtAmountAsset.amount
328-    let inAmountAssetId = if (!(isDefined(pmtAmountAsset.assetId)))
329-        then fromBase58String("WAVES")
330-        else value(pmtAmountAsset.assetId)
331-    let pmtPriceAsset = value(i.payments[1])
332-    let inPriceAssetAmt = pmtPriceAsset.amount
333-    let inPriceAssetId = if (!(isDefined(pmtPriceAsset.assetId)))
334-        then fromBase58String("WAVES")
335-        else value(pmtPriceAsset.assetId)
336-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, toBase58String(inAmountAssetId), inPriceAssetAmt, toBase58String(inPriceAssetId), toString(i.caller), false)
337-    let outLpAmount = estimatedPutResults._1
338-    let curentPrice = estimatedPutResults._2
339-    let userAmountAssetBalance = estimatedPutResults._3
340-    let userPriceAssetBalance = estimatedPutResults._4
341-    let userLPBalance = estimatedPutResults._5
342-    let poolAmountAssetBalance = estimatedPutResults._6
343-    let poolPriceAssetBalance = estimatedPutResults._7
344-    let poolLPBalance = estimatedPutResults._8
345-    let amountAssetInternalId = estimatedPutResults._9
346-    let priceAssetInternalId = estimatedPutResults._10
347-    let lpAssetId = estimatedPutResults._11
348-    let slippageCalculated = estimatedPutResults._12
349-    let poolStatus = parseIntValue(estimatedPutResults._13)
350-    if (if (if (isGlobalShutdown())
351-        then true
352-        else (poolStatus == PoolPutDisabled))
353-        then true
354-        else (poolStatus == PoolShutdown))
355-        then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
356-        else {
357-            let emitLPAssetOnFactory = invoke(factoryContract, "emit", [outLpAmount], nil)
358-            if ((emitLPAssetOnFactory == emitLPAssetOnFactory))
359-                then if ((emitLPAssetOnFactory != "success"))
360-                    then throw("LP asset reissue failed during emit call on factory.")
361-                    else {
362-                        let results = [StringEntry(keyPriceLast(), ("%s__" + toString(curentPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(curentPrice))), StringEntry(keyPutActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataPutActionInfo(inAmountAssetAmt, inPriceAssetAmt, outLpAmount, curentPrice, slippageTolerance, slippageCalculated, height, lastBlock.timestamp)), StringEntry(keyPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, toString(i.caller)), dataPoolLiquidity((userAmountAssetBalance + inAmountAssetAmt), (userPriceAssetBalance + inPriceAssetAmt), (userLPBalance + outLpAmount))), StringEntry(keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId), dataPoolLiquidity((poolAmountAssetBalance + inAmountAssetAmt), (poolPriceAssetBalance + inPriceAssetAmt), (poolLPBalance + outLpAmount)))]
363-                        if (shouldAutoStake)
364-                            then {
365-                                let stake = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, outLpAmount)])
366-                                if ((stake == stake))
367-                                    then results
368-                                    else throw("Strict value is not equal to itself.")
369-                                }
370-                            else (results :+ ScriptTransfer(i.caller, outLpAmount, lpAssetId))
371-                        }
376+    let factoryCfg = getFactoryConfig()
377+    let stakingContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactoryStakingContract]), "Error. Incorrect staking address.")
378+    let slippageContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactorySlippageContract]), "Error. Incorrect slippage contract address.")
379+    let estPut = commonPut(i, slippageTolerance, true)
380+    let emitLpAmt = estPut._2
381+    let lpAssetId = estPut._7
382+    let state = estPut._9
383+    let amDiff = estPut._10
384+    let prDiff = estPut._11
385+    let amId = estPut._12
386+    let prId = estPut._13
387+    let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
388+    if ((emitInv == emitInv))
389+        then {
390+            let slippageAInv = if ((amDiff > 0))
391+                then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
392+                else nil
393+            if ((slippageAInv == slippageAInv))
394+                then {
395+                    let slippagePInv = if ((prDiff > 0))
396+                        then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
397+                        else nil
398+                    if ((slippagePInv == slippagePInv))
399+                        then {
400+                            let lpStakeInv = if (shouldAutoStake)
401+                                then invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
402+                                else nil
403+                            if ((lpStakeInv == lpStakeInv))
404+                                then (state :+ ScriptTransfer(i.caller, emitLpAmt, lpAssetId))
405+                                else throw("Strict value is not equal to itself.")
406+                            }
407+                        else throw("Strict value is not equal to itself.")
408+                    }
372409                 else throw("Strict value is not equal to itself.")
373410             }
411+        else throw("Strict value is not equal to itself.")
412+    }
413+
414+
415+
416+@Callable(i)
417+func putForFree () = {
418+    let estPut = commonPut(i, 1, false)
419+    estPut._9
374420     }
375421 
376422 
377423 
378424 @Callable(i)
379425 func get () = {
380-    let pmtAmountAsset = value(i.payments[0])
381-    let pmtAssetId = value(pmtAmountAsset.assetId)
382-    let pmtAssetAmount = pmtAmountAsset.amount
383-    let results = privateEstimateGetOperation(toBase58String(pmtAssetId), pmtAssetAmount, toString(i.caller))
384-    let outAmountAssetAmt = results._1
385-    let outPriceAssetAmt = results._2
386-    let amountAssetInternalId = results._3
387-    let priceAssetInternalId = results._4
388-    let userAmountAssetBalance = results._5
389-    let amountAssetId = results._6
390-    let userPriceAssetBalance = results._7
391-    let priceAssetId = results._8
392-    let userLPBalance = results._9
393-    let poolAmountAssetBalance = results._10
394-    let poolPriceAssetBalance = results._11
395-    let poolLPBalance = results._12
396-    let currentPrice = results._13
397-    let poolStatus = parseIntValue(results._14)
398-    if (if (isGlobalShutdown())
399-        then true
400-        else (poolStatus == PoolShutdown))
401-        then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
402-        else {
403-            let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAssetAmount], [AttachedPayment(pmtAssetId, pmtAssetAmount)])
404-            if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
405-                then if ((burnLPAssetOnFactory != "success"))
406-                    then throw("LP asset burn failed during emit call on factory.")
407-                    else [ScriptTransfer(i.caller, outAmountAssetAmt, if ((amountAssetId == "WAVES"))
408-                        then unit
409-                        else fromBase58String(amountAssetId)), ScriptTransfer(i.caller, outPriceAssetAmt, fromBase58String(priceAssetId)), StringEntry(keyPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, toString(i.caller)), dataPoolLiquidity((userAmountAssetBalance - outAmountAssetAmt), (userPriceAssetBalance - outPriceAssetAmt), (userLPBalance - pmtAssetAmount))), StringEntry(keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId), dataPoolLiquidity((poolAmountAssetBalance - outAmountAssetAmt), (poolPriceAssetBalance - outPriceAssetAmt), (poolLPBalance - pmtAssetAmount))), StringEntry(keyGetActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataGetActionInfo(outAmountAssetAmt, outPriceAssetAmt, pmtAssetAmount, currentPrice, height, lastBlock.timestamp)), StringEntry(keyPriceLast(), ("%s__" + toString(currentPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(currentPrice)))]
410-                else throw("Strict value is not equal to itself.")
411-            }
426+    let res = commonGet(i)
427+    let outAmtAmt = res._1
428+    let outPrAmt = res._2
429+    let pmtAmt = res._3
430+    let pmtAssetId = res._4
431+    let state = res._5
432+    let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
433+    if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
434+        then state
435+        else throw("Strict value is not equal to itself.")
412436     }
413437 
414438 
415439 
416440 @Callable(i)
417-func activate (amountAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
441+func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
442+    let res = commonGet(i)
443+    let outAmAmt = res._1
444+    let outPrAmt = res._2
445+    let pmtAmt = res._3
446+    let pmtAssetId = res._4
447+    let state = res._5
448+    if ((noLessThenAmtAsset > outAmAmt))
449+        then throw(((("noLessThenAmtAsset failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
450+        else if ((noLessThenPriceAsset > outPrAmt))
451+            then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
452+            else {
453+                let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
454+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
455+                    then state
456+                    else throw("Strict value is not equal to itself.")
457+                }
458+    }
459+
460+
461+
462+@Callable(i)
463+func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
418464     then throw("permissions denied")
419-    else $Tuple2([StringEntry(keyAmountAsset(), amountAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
465+    else $Tuple2([StringEntry(keyAmtAsset(), amtAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
420466 
421467 
422468 
423469 @Callable(i)
424470 func statsREADONLY () = {
425-    let poolConfigDataList = getPoolConfig()
426-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
427-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
428-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
429-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
430-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
431-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
432-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
433-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
434-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
435-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
436-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
437-    let pricesList = calculatePrices(accountAmountAssetBalance, accountPriceAssetBalance, poolLPBalance)
438-    let currentPrice = pricesList[0]
439-    let lpPriceInAmountAsset = pricesList[1]
440-    let lpPriceInPriceAsset = pricesList[2]
441-    let poolWeight = valueOrErrorMessage(getInteger(factoryContract, keyPoolWeight(toString(this))), "Pool doesn't have weight.")
442-    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accountAmountAssetBalance), toString(accountPriceAssetBalance), toString(poolLPBalance), toString(currentPrice), toString(lpPriceInAmountAsset), toString(lpPriceInPriceAsset), toString(poolWeight)], SEP))
471+    let cfg = getPoolConfig()
472+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
473+    let amtAssetId = cfg[idxAmtAssetId]
474+    let priceAssetId = cfg[idxPriceAssetId]
475+    let iAmtAssetId = cfg[idxIAmtAssetId]
476+    let iPriceAssetId = cfg[idxIPriceAssetId]
477+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
478+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
479+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
480+    let accAmtAssetBalance = getAccBalance(amtAssetId)
481+    let accPriceAssetBalance = getAccBalance(priceAssetId)
482+    let pricesList = calcPrices(accAmtAssetBalance, accPriceAssetBalance, poolLPBalance)
483+    let curPrice = pricesList[0]
484+    let lpAmtAssetShare = pricesList[1]
485+    let lpPriceAssetShare = pricesList[2]
486+    let poolWeight = value(getInteger(factoryContract, keyPoolWeight(toString(this))))
487+    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accAmtAssetBalance), toString(accPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(lpAmtAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
443488     }
444489 
445490 
446491 
447492 @Callable(i)
448-func evaluatePutByAmountAssetREADONLY (slippageTolerance,inAmountAssetAmt,userAddress) = {
449-    let poolConfigDataList = getPoolConfig()
450-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
451-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
452-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
453-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
454-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
455-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
456-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
457-    let poolStatus = poolConfigDataList[idxPoolStatus]
458-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
459-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
460-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
461-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
462-    let accountAmountAssetBalanceCasted = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
463-    let accountPriceAssetBalanceCasted = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
464-    let curentPrice = if ((poolLPBalance == 0))
465-        then 0
466-        else calculatePrice(accountPriceAssetBalanceCasted, accountAmountAssetBalanceCasted)
467-    let inPriceAssetAmtCalculated = fraction(inAmountAssetAmt, curentPrice, scale8)
468-    let inPriceAssetAmt = privateCastToScaleOf(inPriceAssetAmtCalculated, priceAssetDecimals, scale8)
469-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, amountAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
470-    let outLpAmountCalc = estimatedPutResults._1
471-    let curentPriceCalc = estimatedPutResults._2
472-    let poolAmountAssetBalanceCalc = estimatedPutResults._6
473-    let poolPriceAssetBalanceCAlc = estimatedPutResults._7
474-    let poolLPBalanceCalc = estimatedPutResults._8
475-    let poolStatusCalc = parseIntValue(estimatedPutResults._13)
476-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
493+func evaluatePutByAmountAssetREADONLY (slippageTolerance,inAmtAssetAmt,userAddress) = {
494+    let cfg = getPoolConfig()
495+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
496+    let amAssetIdStr = cfg[idxAmtAssetId]
497+    let amAssetId = fromBase58String(amAssetIdStr)
498+    let prAssetIdStr = cfg[idxPriceAssetId]
499+    let prAssetId = fromBase58String(prAssetIdStr)
500+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
501+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
502+    let poolStatus = cfg[idxPoolStatus]
503+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
504+    let accAmtAssetBalance = getAccBalance(amAssetIdStr)
505+    let accPriceAssetBalance = getAccBalance(prAssetIdStr)
506+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
507+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
508+    let curPriceX18 = if ((poolLPBalance == 0))
509+        then zeroBigInt
510+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
511+    let inAmtAssetAmtX18 = toX18(inAmtAssetAmt, amtAssetDcm)
512+    let inPriceAssetAmtX18 = fraction(inAmtAssetAmtX18, curPriceX18, scale18)
513+    let inPriceAssetAmt = fromX18(inPriceAssetAmtX18, priceAssetDcm)
514+    let estPut = estimatePutOperation("", slippageTolerance, inAmtAssetAmt, amAssetId, inPriceAssetAmt, prAssetId, userAddress, true, false)
515+    let calcLpAmt = estPut._1
516+    let curPriceCalc = estPut._3
517+    let amBalance = estPut._4
518+    let prBalance = estPut._5
519+    let lpEmission = estPut._6
520+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(calcLpAmt), toString(fromX18(curPriceX18, scale8)), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus], SEP))
477521     }
478522 
479523 
480524 
481525 @Callable(i)
482526 func evaluatePutByPriceAssetREADONLY (slippageTolerance,inPriceAssetAmt,userAddress) = {
483-    let poolConfigDataList = getPoolConfig()
484-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
485-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
486-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
487-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
488-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
489-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
490-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
491-    let poolStatus = poolConfigDataList[idxPoolStatus]
492-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
493-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
494-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
495-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
496-    let accountAmountAssetBalanceCasted = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
497-    let accountPriceAssetBalanceCasted = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
498-    let inPriceAssetAmtCalculatedTuple = privateCastToScaleOf(inPriceAssetAmt, scale8, priceAssetDecimals)
499-    let curentPrice = if ((poolLPBalance == 0))
500-        then 0
501-        else calculatePrice(accountPriceAssetBalanceCasted, accountAmountAssetBalanceCasted)
502-    let inAmountAssetAmtCalculated = fraction(inPriceAssetAmtCalculatedTuple, scale8, curentPrice)
503-    let inAmountAssetAmt = privateCastToScaleOf(inAmountAssetAmtCalculated, amoutAssetDecimals, scale8)
504-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, amountAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
505-    let outLpAmountCalc = estimatedPutResults._1
506-    let curentPriceCalc = estimatedPutResults._2
507-    let poolAmountAssetBalanceCalc = estimatedPutResults._6
508-    let poolPriceAssetBalanceCAlc = estimatedPutResults._7
509-    let poolLPBalanceCalc = estimatedPutResults._8
510-    let poolStatusCalc = parseIntValue(estimatedPutResults._13)
511-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
527+    let cfg = getPoolConfig()
528+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
529+    let amAssetIdStr = cfg[idxAmtAssetId]
530+    let amAssetId = fromBase58String(amAssetIdStr)
531+    let prAssetIdStr = cfg[idxPriceAssetId]
532+    let prAssetId = fromBase58String(prAssetIdStr)
533+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
534+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
535+    let poolStatus = cfg[idxPoolStatus]
536+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
537+    let accAmtAssetBalance = getAccBalance(amAssetIdStr)
538+    let accPriceAssetBalance = getAccBalance(prAssetIdStr)
539+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
540+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
541+    let curPriceX18 = if ((poolLPBalance == 0))
542+        then zeroBigInt
543+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
544+    let inPriceAssetAmtX18 = toX18(inPriceAssetAmt, priceAssetDcm)
545+    let inAmtAssetAmtX18 = fraction(inPriceAssetAmtX18, scale18, curPriceX18)
546+    let inAmtAssetAmt = fromX18(inAmtAssetAmtX18, amtAssetDcm)
547+    let estPut = estimatePutOperation("", slippageTolerance, inAmtAssetAmt, amAssetId, inPriceAssetAmt, prAssetId, userAddress, true, false)
548+    let calcLpAmt = estPut._1
549+    let curPriceCalc = estPut._3
550+    let amBalance = estPut._4
551+    let prBalance = estPut._5
552+    let lpEmission = estPut._6
553+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(calcLpAmt), toString(fromX18(curPriceX18, scale8)), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus], SEP))
512554     }
513555 
514556 
515557 
516558 @Callable(i)
517-func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmount,userAddress) = {
518-    let results = privateEstimateGetOperation(paymentLpAssetId, paymentLpAmount, userAddress)
519-    let outAmountAssetAmt = results._1
520-    let outPriceAssetAmt = results._2
521-    let poolAmountAssetBalance = results._10
522-    let poolPriceAssetBalance = results._11
523-    let poolLPBalance = results._12
524-    let currentPrice = results._13
525-    let poolStatus = parseIntValue(results._14)
526-    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmountAssetAmt), toString(outPriceAssetAmt), toString(poolAmountAssetBalance), toString(poolPriceAssetBalance), toString(poolLPBalance), toString(currentPrice), toString(poolStatus)], SEP))
559+func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmt,userAddressStr) = {
560+    let res = estimateGetOperation("", paymentLpAssetId, paymentLpAmt, this)
561+    let outAmAmt = res._1
562+    let outPrAmt = res._2
563+    let amBalance = res._5
564+    let prBalance = res._6
565+    let lpEmission = res._7
566+    let curPrice = res._8
567+    let poolStatus = parseIntValue(res._9)
568+    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmAmt), toString(outPrAmt), toString(amBalance), toString(prBalance), toString(lpEmission), toString(curPrice), toString(poolStatus)], SEP))
527569     }
528-
529-
530-
531-@Callable(i)
532-func hashREADONLY () = $Tuple2(nil, toBase64String(value(scriptHash(this))))
533570 
534571 
535572 @Verifier(tx)
536573 func verify () = match tx {
537574     case order: Order => 
538-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
575+        if (validateMatcherOrderAllowed(order))
576+            then sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
577+            else false
539578     case _ => 
540-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
579+        let managerPublic = valueOrElse(getString(this, keyManagerPublicKey()), EMPTY)
580+        if ((managerPublic == EMPTY))
581+            then sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
582+            else sigVerify(tx.bodyBytes, tx.proofs[0], fromBase58String(managerPublic))
541583 }
542584 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let factoryContract = Address(base58'3P8s92Udr7jNWMv6WctM9Hnc9EytXitmym5')
5-
64 let lPdecimals = 8
75 
86 let scale8 = 100000000
97 
8+let scale8BigInt = toBigInt(100000000)
9+
1010 let scale18 = toBigInt(1000000000000000000)
1111 
12+let zeroBigInt = toBigInt(0)
13+
1214 let SEP = "__"
15+
16+let EMPTY = ""
1317 
1418 let PoolActive = 1
1519 
1620 let PoolPutDisabled = 2
1721 
1822 let PoolMatcherDisabled = 3
1923 
2024 let PoolShutdown = 4
2125 
2226 let idxPoolAddress = 1
2327 
2428 let idxPoolStatus = 2
2529 
2630 let idxPoolLPAssetId = 3
2731 
28-let idxAmountAssetId = 4
32+let idxAmtAssetId = 4
2933 
3034 let idxPriceAssetId = 5
3135 
32-let idxAmountAssetDecimals = 6
36+let idxAmtAssetDcm = 6
3337 
34-let idxPriceAssetDecimals = 7
38+let idxPriceAssetDcm = 7
3539 
36-let idxAmountAssetInternalId = 8
40+let idxIAmtAssetId = 8
3741 
38-let idxPriceAssetInternalId = 9
42+let idxIPriceAssetId = 9
3943 
40-let idxLPAssetDecimals = 10
44+let idxLPAssetDcm = 10
4145 
42-let idxMatcherPublicKey = 11
43-
44-let idxPoolAmountAssetAmt = 1
46+let idxPoolAmtAssetAmt = 1
4547 
4648 let idxPoolPriceAssetAmt = 2
4749 
4850 let idxPoolLPAssetAmt = 3
4951 
5052 let idxFactoryStakingContract = 1
5153 
52-let idxFactoryBoostingConfig = 2
54+let idxFactorySlippageContract = 7
55+
56+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
57+
58+
59+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
60+
61+
62+func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
63+
64+
65+func abs (val) = if ((zeroBigInt > val))
66+    then -(val)
67+    else val
68+
69+
70+func keyFactoryContract () = "%s__factoryContract"
71+
72+
73+func keyManagerPublicKey () = "%s__managerPublicKey"
74+
5375 
5476 func keyPriceLast () = "%s%s__price__last"
5577 
5678 
5779 func keyPriceHistory (h,timestamp) = makeString(["%s%s%d%d__price__history", toString(h), toString(timestamp)], SEP)
58-
59-
60-func keyPoolLiquidity (internalAmountAsset,internalPriceAsset) = (((("%d%d%s__" + internalAmountAsset) + "__") + internalPriceAsset) + "__locked")
61-
62-
63-func keyPoolLiquidityByUser (internalAmountAsset,internalPriceAsset,userAddress) = (((((("%d%d%s%s__" + internalAmountAsset) + "__") + internalPriceAsset) + "__") + userAddress) + "__locked")
6480 
6581 
6682 func keyPutActionByUser (userAddress,txId) = ((("%s%s%s__P__" + userAddress) + "__") + txId)
6783 
6884 
6985 func keyGetActionByUser (userAddress,txId) = ((("%s%s%s__G__" + userAddress) + "__") + txId)
7086 
7187 
72-func keyAmountAsset () = "%s__amountAsset"
88+func keyAmtAsset () = "%s__amountAsset"
7389 
7490 
7591 func keyPriceAsset () = "%s__priceAsset"
92+
93+
94+func keyKHistoric (h,timestamp) = makeString(["%s%s%d%d__K_history", toString(h), toString(timestamp)], SEP)
7695 
7796 
7897 func keyFactoryConfig () = "%s__factoryConfig"
7998 
8099 
81100 func keyMappingPoolContractAddressToPoolAssets (poolContractAddress) = (("%s%s%s__" + poolContractAddress) + "__mappings__poolContract2LpAsset")
82101 
83102 
84-func keyPoolConfig (amountAssetInternal,priceAssetInternal) = (((("%d%d%s__" + amountAssetInternal) + "__") + priceAssetInternal) + "__config")
103+func keyPoolConfig (iAmtAsset,iPriceAsset) = (((("%d%d%s__" + iAmtAsset) + "__") + iPriceAsset) + "__config")
85104 
86105 
87106 func keyMappingsBaseAsset2internalId (baseAssetStr) = ("%s%s%s__mappings__baseAsset2internalId__" + baseAssetStr)
88107 
89108 
90109 func keyAllPoolsShutdown () = "%s__shutdown"
91110 
92111 
93112 func keyPoolWeight (contractAddress) = ("%s%s__poolWeight__" + contractAddress)
94113 
95114 
115+func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
116+
117+
118+func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
119+
120+
121+let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContract()))
122+
96123 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
97124 
98125 
99126 func getPoolConfig () = {
100-    let poolAmountAsset = valueOrErrorMessage(getString(this, keyAmountAsset()), "No config for amount asset found")
101-    let poolPriceAsset = valueOrErrorMessage(getString(this, keyPriceAsset()), "No config for price asset found")
102-    let poolPriceAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolPriceAsset)), "No config for internal price asset found")
103-    let poolAmountAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolAmountAsset)), "No config for internal amount asset found")
104-    split(valueOrErrorMessage(getString(factoryContract, keyPoolConfig(toString(poolAmountAssetInternal), toString(poolPriceAssetInternal))), "No factory config found for pool assets."), SEP)
127+    let amtAsset = getStringOrFail(this, keyAmtAsset())
128+    let priceAsset = getStringOrFail(this, keyPriceAsset())
129+    let iPriceAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAsset))
130+    let iAmtAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAsset))
131+    split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAsset), toString(iPriceAsset))), SEP)
105132     }
106133 
107134 
108-func getFactoryConfig () = split(valueOrErrorMessage(getString(factoryContract, keyFactoryConfig()), "No factory config found."), SEP)
135+func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
109136 
110137 
111-func getPoolLiquidity (amountAssetInternalId,priceAssetInternalId) = {
112-    let currentPoolLiquidityValue = getString(this, keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId))
113-    if (isDefined(currentPoolLiquidityValue))
114-        then split(value(currentPoolLiquidityValue), SEP)
115-        else ["", "0", "0", "0"]
116-    }
138+func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slippageTolerancePassedByUser,slippageToleranceReal,txHeight,txTimestamp,slipageAmtAssetAmt,slipagePriceAssetAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slippageTolerancePassedByUser), toString(slippageToleranceReal), toString(txHeight), toString(txTimestamp), toString(slipageAmtAssetAmt), toString(slipagePriceAssetAmt)], SEP)
117139 
118140 
119-func getPoolLiquidityByUser (amountAssetInternalId,priceAssetInternalId,userAddress) = {
120-    let currentPoolLiquidityValue = getString(this, keyPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, userAddress))
121-    if (isDefined(currentPoolLiquidityValue))
122-        then split(value(currentPoolLiquidityValue), SEP)
123-        else ["", "0", "0", "0", "0"]
124-    }
141+func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
125142 
126143 
127-func dataPoolLiquidity (amountAssetLocked,priceAssetLocked,lpTokenLocked) = makeString(["%d%d%d", toString(amountAssetLocked), toString(priceAssetLocked), toString(lpTokenLocked)], SEP)
128-
129-
130-func dataPoolLiquidityByUser (amountAssetLocked,priceAssetLocked,lpTokenLocked,userAddress) = makeString(["%d%d%d", toString(amountAssetLocked), toString(priceAssetLocked), toString(lpTokenLocked)], SEP)
131-
132-
133-func dataPutActionInfo (inAmountAssetAmt,inPriceAssetAmt,outLpAmt,price,slippageTolerancePassedByUser,slippageToleranceReal,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d%d", toString(inAmountAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slippageTolerancePassedByUser), toString(slippageToleranceReal), toString(txHeight), toString(txTimestamp)], SEP)
134-
135-
136-func dataGetActionInfo (outAmountAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmountAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
137-
138-
139-func privateCastToScaleOf (amount,resultScale,currentScale) = fraction(amount, resultScale, currentScale)
140-
141-
142-func calculatePrice (priceAssetLockedAmt,amountAssetlLockedAmt) = fraction(priceAssetLockedAmt, scale8, amountAssetlLockedAmt)
143-
144-
145-func privateCalculatePrice (amoutAssetDecimals,priceAssetDecimals,amountAssetAmt,priceAssetAmt) = {
146-    let amountAssetAmtCasted = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
147-    let priceAssetAmtCasted = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
148-    calculatePrice(priceAssetAmtCasted, amountAssetAmtCasted)
149-    }
150-
151-
152-func privateGetAccountBalance (assetId) = if ((assetId == "WAVES"))
144+func getAccBalance (assetId) = if ((assetId == "WAVES"))
153145     then wavesBalance(this).available
154146     else assetBalance(this, fromBase58String(assetId))
155147 
156148 
157-func calculatePrices (amountAssetAmt,priceAssetAmt,lpAmount) = {
158-    let poolConfigDataList = getPoolConfig()
159-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
160-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
161-    let poolPrice = privateCalculatePrice(amoutAssetDecimals, priceAssetDecimals, amountAssetAmt, priceAssetAmt)
162-    let amountAssetPoolLockedAmt = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
163-    let priceAssetPoolLockedAmt = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
164-    let lpPriceInAmountAsset = calculatePrice(amountAssetPoolLockedAmt, lpAmount)
165-    let lpPriceInPriceAsset = calculatePrice(priceAssetPoolLockedAmt, lpAmount)
166-[poolPrice, lpPriceInAmountAsset, lpPriceInPriceAsset]
149+func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
150+
151+
152+func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
153+    let amtAssetAmtX18 = toX18(amAmt, amAssetDcm)
154+    let priceAssetAmtX18 = toX18(prAmt, prAssetDcm)
155+    calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
167156     }
168157 
169158 
170-func privateEstimateGetOperation (paymentLpAssetId,paymentLpAmount,userAddress) = {
171-    let poolConfigList = getPoolConfig()
172-    let lpAssetId = poolConfigList[idxPoolLPAssetId]
173-    let amountAssetId = poolConfigList[idxAmountAssetId]
174-    let priceAssetId = poolConfigList[idxPriceAssetId]
175-    let amountAssetInternalId = poolConfigList[idxAmountAssetInternalId]
176-    let priceAssetInternalId = poolConfigList[idxPriceAssetInternalId]
177-    let amoutAssetDecimals = parseIntValue(poolConfigList[idxAmountAssetDecimals])
178-    let priceAssetDecimals = parseIntValue(poolConfigList[idxPriceAssetDecimals])
179-    let poolStatus = poolConfigList[idxPoolStatus]
180-    let userLiquidityList = getPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, userAddress)
181-    let userLPBalance = parseIntValue(userLiquidityList[idxPoolLPAssetAmt])
182-    let userAmountAssetBalance = parseIntValue(userLiquidityList[idxPoolAmountAssetAmt])
183-    let userPriceAssetBalance = parseIntValue(userLiquidityList[idxPoolPriceAssetAmt])
184-    let poolLiquidityList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
185-    let poolLPBalance = parseIntValue(poolLiquidityList[idxPoolLPAssetAmt])
186-    let poolAmountAssetBalance = parseIntValue(poolLiquidityList[idxPoolAmountAssetAmt])
187-    let poolPriceAssetBalance = parseIntValue(poolLiquidityList[idxPoolPriceAssetAmt])
188-    if ((lpAssetId != paymentLpAssetId))
159+func calcPrices (amtAssetAmt,priceAssetAmt,lpAmt) = {
160+    let cfg = getPoolConfig()
161+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
162+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
163+    let poolPrice = privateCalcPrice(amtAssetDcm, priceAssetDcm, amtAssetAmt, priceAssetAmt)
164+    let amtAssetAmtX18 = toX18(amtAssetAmt, amtAssetDcm)
165+    let priceAssetAmtX18 = toX18(priceAssetAmt, priceAssetDcm)
166+    let lpAmtX18 = toX18(lpAmt, scale8)
167+    let lpPriceInAmtAsset = calcPriceBigInt(amtAssetAmtX18, lpAmtX18)
168+    let lpPriceInPriceAsset = calcPriceBigInt(priceAssetAmtX18, lpAmtX18)
169+[poolPrice, lpPriceInAmtAsset, lpPriceInPriceAsset]
170+    }
171+
172+
173+func estimateGetOperation (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
174+    let cfg = getPoolConfig()
175+    let lpAssetId = cfg[idxPoolLPAssetId]
176+    let amAssetId = cfg[idxAmtAssetId]
177+    let prAssetId = cfg[idxPriceAssetId]
178+    let amAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
179+    let prAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
180+    let poolStatus = cfg[idxPoolStatus]
181+    let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), (("Asset " + lpAssetId) + " doesn't exist")).quantity
182+    if ((lpAssetId != pmtAssetId))
189183         then throw("Invalid asset passed.")
190184         else {
191-            let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
192-            let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
193-            let amountAssetPoolLockedAmt = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
194-            let priceAssetPoolLockedAmt = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
195-            let outAmountAssetAmt = fraction(amountAssetPoolLockedAmt, paymentLpAmount, poolLPBalance)
196-            let outPriceAssetAmt = fraction(priceAssetPoolLockedAmt, paymentLpAmount, poolLPBalance)
197-            let outAmountAssetAmtFinal = privateCastToScaleOf(outAmountAssetAmt, amoutAssetDecimals, scale8)
198-            let outPriceAssetAmtFinal = privateCastToScaleOf(outPriceAssetAmt, priceAssetDecimals, scale8)
199-            let currentPrice = calculatePrice(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
200-            $Tuple14(outAmountAssetAmtFinal, outPriceAssetAmtFinal, amountAssetInternalId, priceAssetInternalId, userAmountAssetBalance, amountAssetId, userPriceAssetBalance, priceAssetId, userLPBalance, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, currentPrice, poolStatus)
185+            let amBalance = getAccBalance(amAssetId)
186+            let amBalanceX18 = toX18(amBalance, amAssetDcm)
187+            let prBalance = getAccBalance(prAssetId)
188+            let prBalanceX18 = toX18(prBalance, prAssetDcm)
189+            let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
190+            let curPrice = fromX18(curPriceX18, scale8)
191+            let pmtLpAmtX18 = toX18(pmtLpAmt, scale8)
192+            let lpEmissionX18 = toX18(lpEmission, scale8)
193+            let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissionX18)
194+            let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissionX18)
195+            let outAmAmt = fromX18(outAmAmtX18, amAssetDcm)
196+            let outPrAmt = fromX18(outPrAmtX18, prAssetDcm)
197+            let state = if ((txId58 == ""))
198+                then nil
199+                else [ScriptTransfer(userAddress, outAmAmt, if ((amAssetId == "WAVES"))
200+                    then unit
201+                    else fromBase58String(amAssetId)), ScriptTransfer(userAddress, outPrAmt, if ((prAssetId == "WAVES"))
202+                    then unit
203+                    else fromBase58String(prAssetId)), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice)]
204+            $Tuple10(outAmAmt, outPrAmt, amAssetId, prAssetId, amBalance, prBalance, lpEmission, curPriceX18, poolStatus, state)
201205             }
202206     }
203207 
204208 
205-func privateEstimatePutOperation (slippageTolerance,inAmountAssetAmt,inAmountAssetId,inPriceAssetAmt,inPriceAssetId,userAddress,isEvaluate) = {
206-    let poolConfigDataList = getPoolConfig()
207-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
208-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
209-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
210-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
211-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
212-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
213-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
214-    let poolStatus = poolConfigDataList[idxPoolStatus]
215-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
216-    let poolAmountAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolAmountAssetAmt])
217-    let poolPriceAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolPriceAssetAmt])
218-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
219-    let userLiquidityDataList = getPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, userAddress)
220-    let userAmountAssetBalance = parseIntValue(userLiquidityDataList[idxPoolAmountAssetAmt])
221-    let userPriceAssetBalance = parseIntValue(userLiquidityDataList[idxPoolPriceAssetAmt])
222-    let userLPBalance = parseIntValue(userLiquidityDataList[idxPoolLPAssetAmt])
223-    if (if ((amountAssetId != inAmountAssetId))
209+func estimatePutOperation (txId58,slippageTolerance,inAmAssetAmt,inAmAssetId,inPrAssetAmt,inPrAssetId,userAddress,isEvaluate,emitLp) = {
210+    let cfg = getPoolConfig()
211+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
212+    let amAssetIdStr = cfg[idxAmtAssetId]
213+    let prAssetIdStr = cfg[idxPriceAssetId]
214+    let iAmtAssetId = cfg[idxIAmtAssetId]
215+    let iPriceAssetId = cfg[idxIPriceAssetId]
216+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
217+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
218+    let poolStatus = cfg[idxPoolStatus]
219+    let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
220+    let inAmAssetIdStr = toBase58String(valueOrElse(inAmAssetId, fromBase58String("WAVES")))
221+    let inPrAssetIdStr = toBase58String(valueOrElse(inPrAssetId, fromBase58String("WAVES")))
222+    if (if ((amAssetIdStr != inAmAssetIdStr))
224223         then true
225-        else (priceAssetId != inPriceAssetId))
226-        then throw("Invalid amount or price asset passed.")
224+        else (prAssetIdStr != inPrAssetIdStr))
225+        then throw("Invalid amt or price asset passed.")
227226         else {
228-            let accountAmountAssetBalance = if (isEvaluate)
229-                then privateGetAccountBalance(amountAssetId)
230-                else (privateGetAccountBalance(amountAssetId) - inAmountAssetAmt)
231-            let accountPriceAssetBalance = if (isEvaluate)
232-                then privateGetAccountBalance(priceAssetId)
233-                else (privateGetAccountBalance(priceAssetId) - inPriceAssetAmt)
234-            let inAmountAssetAmtCalculated = privateCastToScaleOf(inAmountAssetAmt, scale8, amoutAssetDecimals)
235-            let inPriceAssetAmtCalculated = privateCastToScaleOf(inPriceAssetAmt, scale8, priceAssetDecimals)
236-            let userPrice = calculatePrice(inPriceAssetAmtCalculated, inAmountAssetAmtCalculated)
237-            let amountAssetPoolLockedAmt = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
238-            let priceAssetPoolLockedAmt = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
239-            let curentPrice = if ((poolLPBalance == 0))
240-                then 0
241-                else calculatePrice(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
242-            let slippage = if ((curentPrice == 0))
243-                then 0
244-                else if ((curentPrice > userPrice))
245-                    then fraction((curentPrice - userPrice), 100, curentPrice)
246-                    else fraction((userPrice - curentPrice), 100, curentPrice)
247-            if (if ((curentPrice != 0))
248-                then ((slippage * scale8) > slippageTolerance)
249-                else false)
250-                then throw(((("Price slippage " + toString((slippage * scale8))) + " exceeded the passed limit of ") + toString(slippageTolerance)))
227+            let amBalance = if (isEvaluate)
228+                then getAccBalance(amAssetIdStr)
229+                else (getAccBalance(amAssetIdStr) - inAmAssetAmt)
230+            let prBalance = if (isEvaluate)
231+                then getAccBalance(prAssetIdStr)
232+                else (getAccBalance(prAssetIdStr) - inPrAssetAmt)
233+            let inAmAssetAmtX18 = toX18(inAmAssetAmt, amtAssetDcm)
234+            let inPrAssetAmtX18 = toX18(inPrAssetAmt, priceAssetDcm)
235+            let userPriceX18 = calcPriceBigInt(inPrAssetAmtX18, inAmAssetAmtX18)
236+            let amBalanceX18 = toX18(amBalance, amtAssetDcm)
237+            let prBalanceX18 = toX18(prBalance, priceAssetDcm)
238+            let res = if ((lpEmission == 0))
239+                then {
240+                    let curPriceX18 = zeroBigInt
241+                    let slippageX18 = zeroBigInt
242+                    let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
243+                    $Tuple5(fromX18(lpAmtX18, scale8), fromX18(inAmAssetAmtX18, amtAssetDcm), fromX18(inPrAssetAmtX18, priceAssetDcm), calcPriceBigInt((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
244+                    }
251245                 else {
252-                    let finalPrice = calculatePrice((priceAssetPoolLockedAmt + inPriceAssetAmtCalculated), (amountAssetPoolLockedAmt + inAmountAssetAmtCalculated))
253-                    let outLpAmount = if ((poolLPBalance == 0))
254-                        then {
255-                            let partA = pow(inAmountAssetAmtCalculated, 0, 5, 1, 0, DOWN)
256-                            let partB = pow(inPriceAssetAmtCalculated, 0, 5, 1, 0, DOWN)
257-                            (partA * partB)
246+                    let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
247+                    let slippageX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
248+                    let slippageToleranceX18 = toX18(slippageTolerance, scale8)
249+                    if (if ((curPriceX18 != zeroBigInt))
250+                        then (slippageX18 > slippageToleranceX18)
251+                        else false)
252+                        then throw(((("Price slippage " + toString(slippageX18)) + " exceeded the passed limit of ") + toString(slippageToleranceX18)))
253+                        else {
254+                            let lpEmissionX18 = toX18(lpEmission, scale8)
255+                            let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
256+                            let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
257+                            let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
258+                                then $Tuple2(amViaPrX18, inPrAssetAmtX18)
259+                                else $Tuple2(inAmAssetAmtX18, prViaAmX18)
260+                            let expAmtAssetAmtX18 = expectedAmts._1
261+                            let expPriceAssetAmtX18 = expectedAmts._2
262+                            let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
263+                            $Tuple5(fromX18(lpAmtX18, scale8), fromX18(expAmtAssetAmtX18, amtAssetDcm), fromX18(expPriceAssetAmtX18, priceAssetDcm), curPriceX18, slippageX18)
258264                             }
259-                        else {
260-                            let lpAmtByAmountAsset = fraction(poolLPBalance, inAmountAssetAmtCalculated, amountAssetPoolLockedAmt)
261-                            let lpAmtByPriceAsset = fraction(poolLPBalance, inPriceAssetAmtCalculated, priceAssetPoolLockedAmt)
262-                            if ((lpAmtByPriceAsset > lpAmtByAmountAsset))
263-                                then lpAmtByAmountAsset
264-                                else lpAmtByPriceAsset
265-                            }
266-                    $Tuple13(outLpAmount, finalPrice, userAmountAssetBalance, userPriceAssetBalance, userLPBalance, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, amountAssetInternalId, priceAssetInternalId, lpAssetId, slippage, poolStatus)
265+                    }
266+            let calcLpAmt = res._1
267+            let calcAmAssetPmt = res._2
268+            let calcPrAssetPmt = res._3
269+            let curPrice = fromX18(res._4, scale8)
270+            let slippageCalc = fromX18(res._5, scale8)
271+            if ((0 >= calcLpAmt))
272+                then throw("Invalid calculations. LP calculated is less than zero.")
273+                else {
274+                    let emitLpAmt = if (!(emitLp))
275+                        then 0
276+                        else calcLpAmt
277+                    let amDiff = (inAmAssetAmt - calcAmAssetPmt)
278+                    let prDiff = (inPrAssetAmt - calcPrAssetPmt)
279+                    let commonState = [IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice), StringEntry(keyPutActionByUser(userAddress, txId58), dataPutActionInfo(calcAmAssetPmt, calcPrAssetPmt, emitLpAmt, curPrice, slippageTolerance, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
280+                    $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEmission, lpAssetId, poolStatus, commonState, amDiff, prDiff, inAmAssetId, inPrAssetId)
267281                     }
268282             }
269283     }
270284 
271285 
272286 func validateMatcherOrderAllowed (order) = {
273-    let poolConfigDataList = getPoolConfig()
274-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
275-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
276-    let poolStatus = parseIntValue(poolConfigDataList[idxPoolStatus])
277-    let matcherPublicKeyStr = poolConfigDataList[idxMatcherPublicKey]
278-    let amountAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
279-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
280-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
281-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
282-    let currentPrice = if ((order.orderType == Buy))
283-        then privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
284-        else privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
285-    let isPoolStatusValid = if (if (if (isGlobalShutdown())
287+    let cfg = getPoolConfig()
288+    let amtAssetId = cfg[idxAmtAssetId]
289+    let priceAssetId = cfg[idxPriceAssetId]
290+    let poolStatus = parseIntValue(cfg[idxPoolStatus])
291+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
292+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
293+    let accAmtAssetBalance = getAccBalance(amtAssetId)
294+    let accPriceAssetBalance = getAccBalance(priceAssetId)
295+    let curPriceX18 = if ((order.orderType == Buy))
296+        then privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance + order.amount), accPriceAssetBalance)
297+        else privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance - order.amount), accPriceAssetBalance)
298+    let curPrice = fromX18(curPriceX18, scale8)
299+    if (if (if (isGlobalShutdown())
286300         then true
287301         else (poolStatus == PoolMatcherDisabled))
288302         then true
289303         else (poolStatus == PoolShutdown))
290-        then false
291-        else true
292-    let isValidMatcherSign = true
293-    let orderAmountAsset = order.assetPair.amountAsset
294-    let orderAmountAssetStr = if ((orderAmountAsset == unit))
295-        then "WAVES"
296-        else toBase58String(value(orderAmountAsset))
297-    let orderPriceAsset = order.assetPair.priceAsset
298-    let orderPriceAssetStr = if ((orderPriceAsset == unit))
299-        then "WAVES"
300-        else toBase58String(value(orderPriceAsset))
301-    let isValidAssetPair = if (if ((orderAmountAssetStr != amountAssetId))
302-        then true
303-        else (orderPriceAssetStr != priceAssetId))
304-        then false
305-        else true
306-    let orderPrice = order.price
307-    let priceDecimals = fraction(scale8, priceAssetDecimals, amountAssetDecimals)
308-    let castedOrderPrice = privateCastToScaleOf(orderPrice, scale8, priceDecimals)
309-    let isOrderPriceValid = if ((order.orderType == Buy))
310-        then (currentPrice >= castedOrderPrice)
311-        else (castedOrderPrice >= currentPrice)
312-    if (if (if (isValidAssetPair)
313-        then isValidMatcherSign
314-        else false)
315-        then isPoolStatusValid
316-        else false)
317-        then isOrderPriceValid
318-        else false
304+        then throw("Exchange operations disabled")
305+        else {
306+            let orderAmtAsset = order.assetPair.amountAsset
307+            let orderAmtAssetStr = if ((orderAmtAsset == unit))
308+                then "WAVES"
309+                else toBase58String(value(orderAmtAsset))
310+            let orderPriceAsset = order.assetPair.priceAsset
311+            let orderPriceAssetStr = if ((orderPriceAsset == unit))
312+                then "WAVES"
313+                else toBase58String(value(orderPriceAsset))
314+            if (if ((orderAmtAssetStr != amtAssetId))
315+                then true
316+                else (orderPriceAssetStr != priceAssetId))
317+                then throw("Wrong order assets.")
318+                else {
319+                    let orderPrice = order.price
320+                    let priceDcm = fraction(scale8, priceAssetDcm, amtAssetDcm)
321+                    let castedOrderPrice = toScale(orderPrice, scale8, priceDcm)
322+                    let isOrderPriceValid = if ((order.orderType == Buy))
323+                        then (curPrice >= castedOrderPrice)
324+                        else (castedOrderPrice >= curPrice)
325+                    true
326+                    }
327+            }
319328     }
329+
330+
331+func commonGet (i) = if ((size(i.payments) != 1))
332+    then throw("exactly 1 payment is expected")
333+    else {
334+        let pmt = value(i.payments[0])
335+        let pmtAssetId = value(pmt.assetId)
336+        let pmtAmt = pmt.amount
337+        let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
338+        let outAmAmt = res._1
339+        let outPrAmt = res._2
340+        let poolStatus = parseIntValue(res._9)
341+        let state = res._10
342+        if (if (isGlobalShutdown())
343+            then true
344+            else (poolStatus == PoolShutdown))
345+            then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
346+            else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
347+        }
348+
349+
350+func commonPut (i,slippageTolerance,emitLp) = if ((size(i.payments) != 2))
351+    then throw("exactly 2 payments are expected")
352+    else {
353+        let amAssetPmt = value(i.payments[0])
354+        let prAssetPmt = value(i.payments[1])
355+        let estPut = estimatePutOperation(toBase58String(i.transactionId), slippageTolerance, amAssetPmt.amount, amAssetPmt.assetId, prAssetPmt.amount, prAssetPmt.assetId, toString(i.caller), false, emitLp)
356+        let poolStatus = parseIntValue(estPut._8)
357+        if (if (if (isGlobalShutdown())
358+            then true
359+            else (poolStatus == PoolPutDisabled))
360+            then true
361+            else (poolStatus == PoolShutdown))
362+            then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
363+            else estPut
364+        }
365+
366+
367+@Callable(i)
368+func constructor (factoryContract,managerPublicKey) = if ((i.caller != this))
369+    then throw("permissions denied")
370+    else [StringEntry(keyFactoryContract(), factoryContract), StringEntry(keyManagerPublicKey(), managerPublicKey)]
371+
320372 
321373 
322374 @Callable(i)
323375 func put (slippageTolerance,shouldAutoStake) = {
324-    let factoryConfigList = getFactoryConfig()
325-    let stakingContract = valueOrErrorMessage(addressFromString(factoryConfigList[idxFactoryStakingContract]), "Error. Incorrect staking address.")
326-    let pmtAmountAsset = value(i.payments[0])
327-    let inAmountAssetAmt = pmtAmountAsset.amount
328-    let inAmountAssetId = if (!(isDefined(pmtAmountAsset.assetId)))
329-        then fromBase58String("WAVES")
330-        else value(pmtAmountAsset.assetId)
331-    let pmtPriceAsset = value(i.payments[1])
332-    let inPriceAssetAmt = pmtPriceAsset.amount
333-    let inPriceAssetId = if (!(isDefined(pmtPriceAsset.assetId)))
334-        then fromBase58String("WAVES")
335-        else value(pmtPriceAsset.assetId)
336-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, toBase58String(inAmountAssetId), inPriceAssetAmt, toBase58String(inPriceAssetId), toString(i.caller), false)
337-    let outLpAmount = estimatedPutResults._1
338-    let curentPrice = estimatedPutResults._2
339-    let userAmountAssetBalance = estimatedPutResults._3
340-    let userPriceAssetBalance = estimatedPutResults._4
341-    let userLPBalance = estimatedPutResults._5
342-    let poolAmountAssetBalance = estimatedPutResults._6
343-    let poolPriceAssetBalance = estimatedPutResults._7
344-    let poolLPBalance = estimatedPutResults._8
345-    let amountAssetInternalId = estimatedPutResults._9
346-    let priceAssetInternalId = estimatedPutResults._10
347-    let lpAssetId = estimatedPutResults._11
348-    let slippageCalculated = estimatedPutResults._12
349-    let poolStatus = parseIntValue(estimatedPutResults._13)
350-    if (if (if (isGlobalShutdown())
351-        then true
352-        else (poolStatus == PoolPutDisabled))
353-        then true
354-        else (poolStatus == PoolShutdown))
355-        then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
356-        else {
357-            let emitLPAssetOnFactory = invoke(factoryContract, "emit", [outLpAmount], nil)
358-            if ((emitLPAssetOnFactory == emitLPAssetOnFactory))
359-                then if ((emitLPAssetOnFactory != "success"))
360-                    then throw("LP asset reissue failed during emit call on factory.")
361-                    else {
362-                        let results = [StringEntry(keyPriceLast(), ("%s__" + toString(curentPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(curentPrice))), StringEntry(keyPutActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataPutActionInfo(inAmountAssetAmt, inPriceAssetAmt, outLpAmount, curentPrice, slippageTolerance, slippageCalculated, height, lastBlock.timestamp)), StringEntry(keyPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, toString(i.caller)), dataPoolLiquidity((userAmountAssetBalance + inAmountAssetAmt), (userPriceAssetBalance + inPriceAssetAmt), (userLPBalance + outLpAmount))), StringEntry(keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId), dataPoolLiquidity((poolAmountAssetBalance + inAmountAssetAmt), (poolPriceAssetBalance + inPriceAssetAmt), (poolLPBalance + outLpAmount)))]
363-                        if (shouldAutoStake)
364-                            then {
365-                                let stake = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, outLpAmount)])
366-                                if ((stake == stake))
367-                                    then results
368-                                    else throw("Strict value is not equal to itself.")
369-                                }
370-                            else (results :+ ScriptTransfer(i.caller, outLpAmount, lpAssetId))
371-                        }
376+    let factoryCfg = getFactoryConfig()
377+    let stakingContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactoryStakingContract]), "Error. Incorrect staking address.")
378+    let slippageContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactorySlippageContract]), "Error. Incorrect slippage contract address.")
379+    let estPut = commonPut(i, slippageTolerance, true)
380+    let emitLpAmt = estPut._2
381+    let lpAssetId = estPut._7
382+    let state = estPut._9
383+    let amDiff = estPut._10
384+    let prDiff = estPut._11
385+    let amId = estPut._12
386+    let prId = estPut._13
387+    let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
388+    if ((emitInv == emitInv))
389+        then {
390+            let slippageAInv = if ((amDiff > 0))
391+                then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
392+                else nil
393+            if ((slippageAInv == slippageAInv))
394+                then {
395+                    let slippagePInv = if ((prDiff > 0))
396+                        then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
397+                        else nil
398+                    if ((slippagePInv == slippagePInv))
399+                        then {
400+                            let lpStakeInv = if (shouldAutoStake)
401+                                then invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
402+                                else nil
403+                            if ((lpStakeInv == lpStakeInv))
404+                                then (state :+ ScriptTransfer(i.caller, emitLpAmt, lpAssetId))
405+                                else throw("Strict value is not equal to itself.")
406+                            }
407+                        else throw("Strict value is not equal to itself.")
408+                    }
372409                 else throw("Strict value is not equal to itself.")
373410             }
411+        else throw("Strict value is not equal to itself.")
412+    }
413+
414+
415+
416+@Callable(i)
417+func putForFree () = {
418+    let estPut = commonPut(i, 1, false)
419+    estPut._9
374420     }
375421 
376422 
377423 
378424 @Callable(i)
379425 func get () = {
380-    let pmtAmountAsset = value(i.payments[0])
381-    let pmtAssetId = value(pmtAmountAsset.assetId)
382-    let pmtAssetAmount = pmtAmountAsset.amount
383-    let results = privateEstimateGetOperation(toBase58String(pmtAssetId), pmtAssetAmount, toString(i.caller))
384-    let outAmountAssetAmt = results._1
385-    let outPriceAssetAmt = results._2
386-    let amountAssetInternalId = results._3
387-    let priceAssetInternalId = results._4
388-    let userAmountAssetBalance = results._5
389-    let amountAssetId = results._6
390-    let userPriceAssetBalance = results._7
391-    let priceAssetId = results._8
392-    let userLPBalance = results._9
393-    let poolAmountAssetBalance = results._10
394-    let poolPriceAssetBalance = results._11
395-    let poolLPBalance = results._12
396-    let currentPrice = results._13
397-    let poolStatus = parseIntValue(results._14)
398-    if (if (isGlobalShutdown())
399-        then true
400-        else (poolStatus == PoolShutdown))
401-        then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
402-        else {
403-            let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAssetAmount], [AttachedPayment(pmtAssetId, pmtAssetAmount)])
404-            if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
405-                then if ((burnLPAssetOnFactory != "success"))
406-                    then throw("LP asset burn failed during emit call on factory.")
407-                    else [ScriptTransfer(i.caller, outAmountAssetAmt, if ((amountAssetId == "WAVES"))
408-                        then unit
409-                        else fromBase58String(amountAssetId)), ScriptTransfer(i.caller, outPriceAssetAmt, fromBase58String(priceAssetId)), StringEntry(keyPoolLiquidityByUser(amountAssetInternalId, priceAssetInternalId, toString(i.caller)), dataPoolLiquidity((userAmountAssetBalance - outAmountAssetAmt), (userPriceAssetBalance - outPriceAssetAmt), (userLPBalance - pmtAssetAmount))), StringEntry(keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId), dataPoolLiquidity((poolAmountAssetBalance - outAmountAssetAmt), (poolPriceAssetBalance - outPriceAssetAmt), (poolLPBalance - pmtAssetAmount))), StringEntry(keyGetActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataGetActionInfo(outAmountAssetAmt, outPriceAssetAmt, pmtAssetAmount, currentPrice, height, lastBlock.timestamp)), StringEntry(keyPriceLast(), ("%s__" + toString(currentPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(currentPrice)))]
410-                else throw("Strict value is not equal to itself.")
411-            }
426+    let res = commonGet(i)
427+    let outAmtAmt = res._1
428+    let outPrAmt = res._2
429+    let pmtAmt = res._3
430+    let pmtAssetId = res._4
431+    let state = res._5
432+    let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
433+    if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
434+        then state
435+        else throw("Strict value is not equal to itself.")
412436     }
413437 
414438 
415439 
416440 @Callable(i)
417-func activate (amountAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
441+func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
442+    let res = commonGet(i)
443+    let outAmAmt = res._1
444+    let outPrAmt = res._2
445+    let pmtAmt = res._3
446+    let pmtAssetId = res._4
447+    let state = res._5
448+    if ((noLessThenAmtAsset > outAmAmt))
449+        then throw(((("noLessThenAmtAsset failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
450+        else if ((noLessThenPriceAsset > outPrAmt))
451+            then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
452+            else {
453+                let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
454+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
455+                    then state
456+                    else throw("Strict value is not equal to itself.")
457+                }
458+    }
459+
460+
461+
462+@Callable(i)
463+func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
418464     then throw("permissions denied")
419-    else $Tuple2([StringEntry(keyAmountAsset(), amountAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
465+    else $Tuple2([StringEntry(keyAmtAsset(), amtAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
420466 
421467 
422468 
423469 @Callable(i)
424470 func statsREADONLY () = {
425-    let poolConfigDataList = getPoolConfig()
426-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
427-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
428-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
429-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
430-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
431-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
432-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
433-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
434-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
435-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
436-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
437-    let pricesList = calculatePrices(accountAmountAssetBalance, accountPriceAssetBalance, poolLPBalance)
438-    let currentPrice = pricesList[0]
439-    let lpPriceInAmountAsset = pricesList[1]
440-    let lpPriceInPriceAsset = pricesList[2]
441-    let poolWeight = valueOrErrorMessage(getInteger(factoryContract, keyPoolWeight(toString(this))), "Pool doesn't have weight.")
442-    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accountAmountAssetBalance), toString(accountPriceAssetBalance), toString(poolLPBalance), toString(currentPrice), toString(lpPriceInAmountAsset), toString(lpPriceInPriceAsset), toString(poolWeight)], SEP))
471+    let cfg = getPoolConfig()
472+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
473+    let amtAssetId = cfg[idxAmtAssetId]
474+    let priceAssetId = cfg[idxPriceAssetId]
475+    let iAmtAssetId = cfg[idxIAmtAssetId]
476+    let iPriceAssetId = cfg[idxIPriceAssetId]
477+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
478+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
479+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
480+    let accAmtAssetBalance = getAccBalance(amtAssetId)
481+    let accPriceAssetBalance = getAccBalance(priceAssetId)
482+    let pricesList = calcPrices(accAmtAssetBalance, accPriceAssetBalance, poolLPBalance)
483+    let curPrice = pricesList[0]
484+    let lpAmtAssetShare = pricesList[1]
485+    let lpPriceAssetShare = pricesList[2]
486+    let poolWeight = value(getInteger(factoryContract, keyPoolWeight(toString(this))))
487+    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accAmtAssetBalance), toString(accPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(lpAmtAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
443488     }
444489 
445490 
446491 
447492 @Callable(i)
448-func evaluatePutByAmountAssetREADONLY (slippageTolerance,inAmountAssetAmt,userAddress) = {
449-    let poolConfigDataList = getPoolConfig()
450-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
451-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
452-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
453-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
454-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
455-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
456-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
457-    let poolStatus = poolConfigDataList[idxPoolStatus]
458-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
459-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
460-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
461-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
462-    let accountAmountAssetBalanceCasted = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
463-    let accountPriceAssetBalanceCasted = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
464-    let curentPrice = if ((poolLPBalance == 0))
465-        then 0
466-        else calculatePrice(accountPriceAssetBalanceCasted, accountAmountAssetBalanceCasted)
467-    let inPriceAssetAmtCalculated = fraction(inAmountAssetAmt, curentPrice, scale8)
468-    let inPriceAssetAmt = privateCastToScaleOf(inPriceAssetAmtCalculated, priceAssetDecimals, scale8)
469-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, amountAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
470-    let outLpAmountCalc = estimatedPutResults._1
471-    let curentPriceCalc = estimatedPutResults._2
472-    let poolAmountAssetBalanceCalc = estimatedPutResults._6
473-    let poolPriceAssetBalanceCAlc = estimatedPutResults._7
474-    let poolLPBalanceCalc = estimatedPutResults._8
475-    let poolStatusCalc = parseIntValue(estimatedPutResults._13)
476-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
493+func evaluatePutByAmountAssetREADONLY (slippageTolerance,inAmtAssetAmt,userAddress) = {
494+    let cfg = getPoolConfig()
495+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
496+    let amAssetIdStr = cfg[idxAmtAssetId]
497+    let amAssetId = fromBase58String(amAssetIdStr)
498+    let prAssetIdStr = cfg[idxPriceAssetId]
499+    let prAssetId = fromBase58String(prAssetIdStr)
500+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
501+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
502+    let poolStatus = cfg[idxPoolStatus]
503+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
504+    let accAmtAssetBalance = getAccBalance(amAssetIdStr)
505+    let accPriceAssetBalance = getAccBalance(prAssetIdStr)
506+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
507+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
508+    let curPriceX18 = if ((poolLPBalance == 0))
509+        then zeroBigInt
510+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
511+    let inAmtAssetAmtX18 = toX18(inAmtAssetAmt, amtAssetDcm)
512+    let inPriceAssetAmtX18 = fraction(inAmtAssetAmtX18, curPriceX18, scale18)
513+    let inPriceAssetAmt = fromX18(inPriceAssetAmtX18, priceAssetDcm)
514+    let estPut = estimatePutOperation("", slippageTolerance, inAmtAssetAmt, amAssetId, inPriceAssetAmt, prAssetId, userAddress, true, false)
515+    let calcLpAmt = estPut._1
516+    let curPriceCalc = estPut._3
517+    let amBalance = estPut._4
518+    let prBalance = estPut._5
519+    let lpEmission = estPut._6
520+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(calcLpAmt), toString(fromX18(curPriceX18, scale8)), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus], SEP))
477521     }
478522 
479523 
480524 
481525 @Callable(i)
482526 func evaluatePutByPriceAssetREADONLY (slippageTolerance,inPriceAssetAmt,userAddress) = {
483-    let poolConfigDataList = getPoolConfig()
484-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
485-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
486-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
487-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
488-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
489-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
490-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
491-    let poolStatus = poolConfigDataList[idxPoolStatus]
492-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
493-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
494-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
495-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
496-    let accountAmountAssetBalanceCasted = privateCastToScaleOf(accountAmountAssetBalance, scale8, amoutAssetDecimals)
497-    let accountPriceAssetBalanceCasted = privateCastToScaleOf(accountPriceAssetBalance, scale8, priceAssetDecimals)
498-    let inPriceAssetAmtCalculatedTuple = privateCastToScaleOf(inPriceAssetAmt, scale8, priceAssetDecimals)
499-    let curentPrice = if ((poolLPBalance == 0))
500-        then 0
501-        else calculatePrice(accountPriceAssetBalanceCasted, accountAmountAssetBalanceCasted)
502-    let inAmountAssetAmtCalculated = fraction(inPriceAssetAmtCalculatedTuple, scale8, curentPrice)
503-    let inAmountAssetAmt = privateCastToScaleOf(inAmountAssetAmtCalculated, amoutAssetDecimals, scale8)
504-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, amountAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
505-    let outLpAmountCalc = estimatedPutResults._1
506-    let curentPriceCalc = estimatedPutResults._2
507-    let poolAmountAssetBalanceCalc = estimatedPutResults._6
508-    let poolPriceAssetBalanceCAlc = estimatedPutResults._7
509-    let poolLPBalanceCalc = estimatedPutResults._8
510-    let poolStatusCalc = parseIntValue(estimatedPutResults._13)
511-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
527+    let cfg = getPoolConfig()
528+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
529+    let amAssetIdStr = cfg[idxAmtAssetId]
530+    let amAssetId = fromBase58String(amAssetIdStr)
531+    let prAssetIdStr = cfg[idxPriceAssetId]
532+    let prAssetId = fromBase58String(prAssetIdStr)
533+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
534+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
535+    let poolStatus = cfg[idxPoolStatus]
536+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
537+    let accAmtAssetBalance = getAccBalance(amAssetIdStr)
538+    let accPriceAssetBalance = getAccBalance(prAssetIdStr)
539+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
540+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
541+    let curPriceX18 = if ((poolLPBalance == 0))
542+        then zeroBigInt
543+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
544+    let inPriceAssetAmtX18 = toX18(inPriceAssetAmt, priceAssetDcm)
545+    let inAmtAssetAmtX18 = fraction(inPriceAssetAmtX18, scale18, curPriceX18)
546+    let inAmtAssetAmt = fromX18(inAmtAssetAmtX18, amtAssetDcm)
547+    let estPut = estimatePutOperation("", slippageTolerance, inAmtAssetAmt, amAssetId, inPriceAssetAmt, prAssetId, userAddress, true, false)
548+    let calcLpAmt = estPut._1
549+    let curPriceCalc = estPut._3
550+    let amBalance = estPut._4
551+    let prBalance = estPut._5
552+    let lpEmission = estPut._6
553+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(calcLpAmt), toString(fromX18(curPriceX18, scale8)), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus], SEP))
512554     }
513555 
514556 
515557 
516558 @Callable(i)
517-func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmount,userAddress) = {
518-    let results = privateEstimateGetOperation(paymentLpAssetId, paymentLpAmount, userAddress)
519-    let outAmountAssetAmt = results._1
520-    let outPriceAssetAmt = results._2
521-    let poolAmountAssetBalance = results._10
522-    let poolPriceAssetBalance = results._11
523-    let poolLPBalance = results._12
524-    let currentPrice = results._13
525-    let poolStatus = parseIntValue(results._14)
526-    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmountAssetAmt), toString(outPriceAssetAmt), toString(poolAmountAssetBalance), toString(poolPriceAssetBalance), toString(poolLPBalance), toString(currentPrice), toString(poolStatus)], SEP))
559+func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmt,userAddressStr) = {
560+    let res = estimateGetOperation("", paymentLpAssetId, paymentLpAmt, this)
561+    let outAmAmt = res._1
562+    let outPrAmt = res._2
563+    let amBalance = res._5
564+    let prBalance = res._6
565+    let lpEmission = res._7
566+    let curPrice = res._8
567+    let poolStatus = parseIntValue(res._9)
568+    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmAmt), toString(outPrAmt), toString(amBalance), toString(prBalance), toString(lpEmission), toString(curPrice), toString(poolStatus)], SEP))
527569     }
528-
529-
530-
531-@Callable(i)
532-func hashREADONLY () = $Tuple2(nil, toBase64String(value(scriptHash(this))))
533570 
534571 
535572 @Verifier(tx)
536573 func verify () = match tx {
537574     case order: Order => 
538-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
575+        if (validateMatcherOrderAllowed(order))
576+            then sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
577+            else false
539578     case _ => 
540-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
579+        let managerPublic = valueOrElse(getString(this, keyManagerPublicKey()), EMPTY)
580+        if ((managerPublic == EMPTY))
581+            then sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
582+            else sigVerify(tx.bodyBytes, tx.proofs[0], fromBase58String(managerPublic))
541583 }
542584 
github/deemru/w8io/786bc32 
105.50 ms ◑