tx · EqARLALcneZXEm7D1JG4yAg7anMdxnAgg2uJK71KQUWE

3MzoZ6gnDM9qSxg2ftvW4rF33zmJpb9ixNV:  -0.01400000 Waves

2021.10.07 13:39 [1735703] smart account 3MzoZ6gnDM9qSxg2ftvW4rF33zmJpb9ixNV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "EqARLALcneZXEm7D1JG4yAg7anMdxnAgg2uJK71KQUWE",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1633603229414,
    "version": 1,
    "sender": "3MzoZ6gnDM9qSxg2ftvW4rF33zmJpb9ixNV",
    "senderPublicKey": "C9aea3348FuUd2jm6XyHmf4axpvkSQ57q2FNjZDmdisb",
    "proofs": [
        "nxnocC9d22zz1cxS49aopRQo6AgtozdbiMoJXacq1rD8EqKDfDn8dNyWXe5vRf75UHWmn21Htf8DPCBx37nRvQJ"
    ],
    "script": "base64:AAIFAAAAAAAAADUIAhIECgIICBIECgIBBBIAEgASBAoCAQESBAoCCAgSABIFCgMBAQgSBQoDAQEIEgUKAwgBCAAAADwAAAAACmxQZGVjaW1hbHMAAAAAAAAAAAgAAAAABnNjYWxlOAAAAAAABfXhAAAAAAAMc2NhbGU4QmlnSW50CQABNgAAAAEAAAAAAAX14QAAAAAAB3NjYWxlMTgJAAE2AAAAAQAN4Lazp2QAAAAAAAADU0VQAgAAAAJfXwAAAAAFRU1QVFkCAAAAAAAAAAAKUG9vbEFjdGl2ZQAAAAAAAAAAAQAAAAAPUG9vbFB1dERpc2FibGVkAAAAAAAAAAACAAAAABNQb29sTWF0Y2hlckRpc2FibGVkAAAAAAAAAAADAAAAAAxQb29sU2h1dGRvd24AAAAAAAAAAAQAAAAADmlkeFBvb2xBZGRyZXNzAAAAAAAAAAABAAAAAA1pZHhQb29sU3RhdHVzAAAAAAAAAAACAAAAABBpZHhQb29sTFBBc3NldElkAAAAAAAAAAADAAAAAA1pZHhBbXRBc3NldElkAAAAAAAAAAAEAAAAAA9pZHhQcmljZUFzc2V0SWQAAAAAAAAAAAUAAAAADmlkeEFtdEFzc2V0RGNtAAAAAAAAAAAGAAAAABBpZHhQcmljZUFzc2V0RGNtAAAAAAAAAAAHAAAAAA5pZHhJQW10QXNzZXRJZAAAAAAAAAAACAAAAAAQaWR4SVByaWNlQXNzZXRJZAAAAAAAAAAACQAAAAANaWR4TFBBc3NldERjbQAAAAAAAAAACgAAAAASaWR4UG9vbEFtdEFzc2V0QW10AAAAAAAAAAABAAAAABRpZHhQb29sUHJpY2VBc3NldEFtdAAAAAAAAAAAAgAAAAARaWR4UG9vbExQQXNzZXRBbXQAAAAAAAAAAAMAAAAAGWlkeEZhY3RvcnlTdGFraW5nQ29udHJhY3QAAAAAAAAAAAEAAAAAGmlkeEZhY3RvcnlTbGlwcGFnZUNvbnRyYWN0AAAAAAAAAAAHAQAAAAV0b1gxOAAAAAIAAAAHb3JpZ1ZhbAAAAA1vcmlnU2NhbGVNdWx0CQABPAAAAAMJAAE2AAAAAQUAAAAHb3JpZ1ZhbAUAAAAHc2NhbGUxOAkAATYAAAABBQAAAA1vcmlnU2NhbGVNdWx0AQAAAAdmcm9tWDE4AAAAAgAAAAN2YWwAAAAPcmVzdWx0U2NhbGVNdWx0CQABoAAAAAEJAAE8AAAAAwUAAAADdmFsCQABNgAAAAEFAAAAD3Jlc3VsdFNjYWxlTXVsdAUAAAAHc2NhbGUxOAEAAAAHdG9TY2FsZQAAAAMAAAADYW10AAAACHJlc1NjYWxlAAAACGN1clNjYWxlCQAAawAAAAMFAAAAA2FtdAUAAAAIcmVzU2NhbGUFAAAACGN1clNjYWxlAQAAABJrZXlGYWN0b3J5Q29udHJhY3QAAAAAAgAAABMlc19fZmFjdG9yeUNvbnRyYWN0AQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAIAAAAUJXNfX21hbmFnZXJQdWJsaWNLZXkBAAAADGtleVByaWNlTGFzdAAAAAACAAAAESVzJXNfX3ByaWNlX19sYXN0AQAAAA9rZXlQcmljZUhpc3RvcnkAAAACAAAAAWgAAAAJdGltZXN0YW1wCQAEuQAAAAIJAARMAAAAAgIAAAAYJXMlcyVkJWRfX3ByaWNlX19oaXN0b3J5CQAETAAAAAIJAAGkAAAAAQUAAAABaAkABEwAAAACCQABpAAAAAEFAAAACXRpbWVzdGFtcAUAAAADbmlsBQAAAANTRVABAAAAEmtleVB1dEFjdGlvbkJ5VXNlcgAAAAIAAAALdXNlckFkZHJlc3MAAAAEdHhJZAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAALJXMlcyVzX19QX18FAAAAC3VzZXJBZGRyZXNzAgAAAAJfXwUAAAAEdHhJZAEAAAASa2V5R2V0QWN0aW9uQnlVc2VyAAAAAgAAAAt1c2VyQWRkcmVzcwAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAslcyVzJXNfX0dfXwUAAAALdXNlckFkZHJlc3MCAAAAAl9fBQAAAAR0eElkAQAAAAtrZXlBbXRBc3NldAAAAAACAAAADyVzX19hbW91bnRBc3NldAEAAAANa2V5UHJpY2VBc3NldAAAAAACAAAADiVzX19wcmljZUFzc2V0AQAAAAxrZXlLSGlzdG9yaWMAAAACAAAAAWgAAAAJdGltZXN0YW1wCQAEuQAAAAIJAARMAAAAAgIAAAATJXMlcyVkJWRfX0tfaGlzdG9yeQkABEwAAAACCQABpAAAAAEFAAAAAWgJAARMAAAAAgkAAaQAAAABBQAAAAl0aW1lc3RhbXAFAAAAA25pbAUAAAADU0VQAQAAABBrZXlGYWN0b3J5Q29uZmlnAAAAAAIAAAARJXNfX2ZhY3RvcnlDb25maWcBAAAAKWtleU1hcHBpbmdQb29sQ29udHJhY3RBZGRyZXNzVG9Qb29sQXNzZXRzAAAAAQAAABNwb29sQ29udHJhY3RBZGRyZXNzCQABLAAAAAIJAAEsAAAAAgIAAAAIJXMlcyVzX18FAAAAE3Bvb2xDb250cmFjdEFkZHJlc3MCAAAAIF9fbWFwcGluZ3NfX3Bvb2xDb250cmFjdDJMcEFzc2V0AQAAAA1rZXlQb29sQ29uZmlnAAAAAgAAAAlpQW10QXNzZXQAAAALaVByaWNlQXNzZXQJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAIJWQlZCVzX18FAAAACWlBbXRBc3NldAIAAAACX18FAAAAC2lQcmljZUFzc2V0AgAAAAhfX2NvbmZpZwEAAAAfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAAAAAEAAAAMYmFzZUFzc2V0U3RyCQABLAAAAAICAAAAKCVzJXMlc19fbWFwcGluZ3NfX2Jhc2VBc3NldDJpbnRlcm5hbElkX18FAAAADGJhc2VBc3NldFN0cgEAAAATa2V5QWxsUG9vbHNTaHV0ZG93bgAAAAACAAAADCVzX19zaHV0ZG93bgEAAAANa2V5UG9vbFdlaWdodAAAAAEAAAAPY29udHJhY3RBZGRyZXNzCQABLAAAAAICAAAAEiVzJXNfX3Bvb2xXZWlnaHRfXwUAAAAPY29udHJhY3RBZGRyZXNzAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACAAAAB2FkZHJlc3MAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAHYWRkcmVzcwUAAAADa2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACm1hbmRhdG9yeSAJAAQlAAAAAQUAAAAHYWRkcmVzcwIAAAABLgUAAAADa2V5AgAAAA8gaXMgbm90IGRlZmluZWQBAAAADGdldEludE9yRmFpbAAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAKbWFuZGF0b3J5IAkABCUAAAABBQAAAAdhZGRyZXNzAgAAAAEuBQAAAANrZXkCAAAADyBpcyBub3QgZGVmaW5lZAAAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAEdGhpcwkBAAAAEmtleUZhY3RvcnlDb250cmFjdAAAAAABAAAAEGlzR2xvYmFsU2h1dGRvd24AAAAACQEAAAALdmFsdWVPckVsc2UAAAACCQAEGwAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAAE2tleUFsbFBvb2xzU2h1dGRvd24AAAAABwEAAAANZ2V0UG9vbENvbmZpZwAAAAAEAAAACGFtdEFzc2V0CQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAEdGhpcwkBAAAAC2tleUFtdEFzc2V0AAAAAAQAAAAKcHJpY2VBc3NldAkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIFAAAABHRoaXMJAQAAAA1rZXlQcmljZUFzc2V0AAAAAAQAAAALaVByaWNlQXNzZXQJAQAAAAxnZXRJbnRPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAB9rZXlNYXBwaW5nc0Jhc2VBc3NldDJpbnRlcm5hbElkAAAAAQUAAAAKcHJpY2VBc3NldAQAAAAJaUFtdEFzc2V0CQEAAAAMZ2V0SW50T3JGYWlsAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAAAAAEFAAAACGFtdEFzc2V0CQAEtQAAAAIJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAA1rZXlQb29sQ29uZmlnAAAAAgkAAaQAAAABBQAAAAlpQW10QXNzZXQJAAGkAAAAAQUAAAALaVByaWNlQXNzZXQFAAAAA1NFUAEAAAAQZ2V0RmFjdG9yeUNvbmZpZwAAAAAJAAS1AAAAAgkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAAEGtleUZhY3RvcnlDb25maWcAAAAABQAAAANTRVABAAAAEWRhdGFQdXRBY3Rpb25JbmZvAAAACgAAAA1pbkFtdEFzc2V0QW10AAAAD2luUHJpY2VBc3NldEFtdAAAAAhvdXRMcEFtdAAAAAVwcmljZQAAAB1zbGlwcGFnZVRvbGVyYW5jZVBhc3NlZEJ5VXNlcgAAABVzbGlwcGFnZVRvbGVyYW5jZVJlYWwAAAAIdHhIZWlnaHQAAAALdHhUaW1lc3RhbXAAAAASc2xpcGFnZUFtdEFzc2V0QW10AAAAFHNsaXBhZ2VQcmljZUFzc2V0QW10CQAEuQAAAAIJAARMAAAAAgIAAAASJWQlZCVkJWQlZCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAANaW5BbXRBc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAAD2luUHJpY2VBc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAACG91dExwQW10CQAETAAAAAIJAAGkAAAAAQUAAAAFcHJpY2UJAARMAAAAAgkAAaQAAAABBQAAAB1zbGlwcGFnZVRvbGVyYW5jZVBhc3NlZEJ5VXNlcgkABEwAAAACCQABpAAAAAEFAAAAFXNsaXBwYWdlVG9sZXJhbmNlUmVhbAkABEwAAAACCQABpAAAAAEFAAAACHR4SGVpZ2h0CQAETAAAAAIJAAGkAAAAAQUAAAALdHhUaW1lc3RhbXAJAARMAAAAAgkAAaQAAAABBQAAABJzbGlwYWdlQW10QXNzZXRBbXQJAARMAAAAAgkAAaQAAAABBQAAABRzbGlwYWdlUHJpY2VBc3NldEFtdAUAAAADbmlsBQAAAANTRVABAAAAEWRhdGFHZXRBY3Rpb25JbmZvAAAABgAAAA5vdXRBbXRBc3NldEFtdAAAABBvdXRQcmljZUFzc2V0QW10AAAAB2luTHBBbXQAAAAFcHJpY2UAAAAIdHhIZWlnaHQAAAALdHhUaW1lc3RhbXAJAAS5AAAAAgkABEwAAAACAgAAAAwlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAA5vdXRBbXRBc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAAEG91dFByaWNlQXNzZXRBbXQJAARMAAAAAgkAAaQAAAABBQAAAAdpbkxwQW10CQAETAAAAAIJAAGkAAAAAQUAAAAFcHJpY2UJAARMAAAAAgkAAaQAAAABBQAAAAh0eEhlaWdodAkABEwAAAACCQABpAAAAAEFAAAAC3R4VGltZXN0YW1wBQAAAANuaWwFAAAAA1NFUAEAAAANZ2V0QWNjQmFsYW5jZQAAAAEAAAAHYXNzZXRJZAMJAAAAAAAAAgUAAAAHYXNzZXRJZAIAAAAFV0FWRVMICQAD7wAAAAEFAAAABHRoaXMAAAAJYXZhaWxhYmxlCQAD8AAAAAIFAAAABHRoaXMJAAJZAAAAAQUAAAAHYXNzZXRJZAEAAAAPY2FsY1ByaWNlQmlnSW50AAAAAwAAABNwcmljZUFzc2V0TG9ja2VkQW10AAAAEmFtdEFzc2V0bExvY2tlZEFtdAAAAAtyZXN1bHRTY2FsZQkAATwAAAADBQAAABNwcmljZUFzc2V0TG9ja2VkQW10BQAAAAtyZXN1bHRTY2FsZQUAAAASYW10QXNzZXRsTG9ja2VkQW10AQAAABBwcml2YXRlQ2FsY1ByaWNlAAAABAAAAAthbXRBc3NldERjbQAAAA1wcmljZUFzc2V0RGNtAAAAC2FtdEFzc2V0QW10AAAADXByaWNlQXNzZXRBbXQEAAAADmFtdEFzc2V0QW10WDE4CQEAAAAFdG9YMTgAAAACBQAAAAthbXRBc3NldEFtdAUAAAALYW10QXNzZXREY20EAAAAEHByaWNlQXNzZXRBbXRYMTgJAQAAAAV0b1gxOAAAAAIFAAAADXByaWNlQXNzZXRBbXQFAAAADXByaWNlQXNzZXREY20JAAGgAAAAAQkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAMFAAAAEHByaWNlQXNzZXRBbXRYMTgFAAAADmFtdEFzc2V0QW10WDE4BQAAAAxzY2FsZThCaWdJbnQBAAAACmNhbGNQcmljZXMAAAADAAAAC2FtdEFzc2V0QW10AAAADXByaWNlQXNzZXRBbXQAAAAFbHBBbXQEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAAthbXRBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4QW10QXNzZXREY20EAAAADXByaWNlQXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20EAAAACXBvb2xQcmljZQkBAAAAEHByaXZhdGVDYWxjUHJpY2UAAAAEBQAAAAthbXRBc3NldERjbQUAAAANcHJpY2VBc3NldERjbQUAAAALYW10QXNzZXRBbXQFAAAADXByaWNlQXNzZXRBbXQEAAAADmFtdEFzc2V0QW10WDE4CQEAAAAFdG9YMTgAAAACBQAAAAthbXRBc3NldEFtdAUAAAALYW10QXNzZXREY20EAAAAEHByaWNlQXNzZXRBbXRYMTgJAQAAAAV0b1gxOAAAAAIFAAAADXByaWNlQXNzZXRBbXQFAAAADXByaWNlQXNzZXREY20EAAAACGxwQW10WDE4CQEAAAAFdG9YMTgAAAACBQAAAAVscEFtdAUAAAAGc2NhbGU4BAAAABFscFByaWNlSW5BbXRBc3NldAkAAaAAAAABCQEAAAAPY2FsY1ByaWNlQmlnSW50AAAAAwUAAAAOYW10QXNzZXRBbXRYMTgFAAAACGxwQW10WDE4BQAAAAxzY2FsZThCaWdJbnQEAAAAE2xwUHJpY2VJblByaWNlQXNzZXQJAAGgAAAAAQkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAMFAAAAEHByaWNlQXNzZXRBbXRYMTgFAAAACGxwQW10WDE4BQAAAAxzY2FsZThCaWdJbnQJAARMAAAAAgUAAAAJcG9vbFByaWNlCQAETAAAAAIFAAAAEWxwUHJpY2VJbkFtdEFzc2V0CQAETAAAAAIFAAAAE2xwUHJpY2VJblByaWNlQXNzZXQFAAAAA25pbAEAAAAUZXN0aW1hdGVHZXRPcGVyYXRpb24AAAADAAAAEHBheW1lbnRMcEFzc2V0SWQAAAAMcGF5bWVudExwQW10AAAAC3VzZXJBZGRyZXNzBAAAAA5wb29sQ29uZmlnTGlzdAkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAAlscEFzc2V0SWQJAAGRAAAAAgUAAAAOcG9vbENvbmZpZ0xpc3QFAAAAEGlkeFBvb2xMUEFzc2V0SWQEAAAACmFtdEFzc2V0SWQJAAGRAAAAAgUAAAAOcG9vbENvbmZpZ0xpc3QFAAAADWlkeEFtdEFzc2V0SWQEAAAADHByaWNlQXNzZXRJZAkAAZEAAAACBQAAAA5wb29sQ29uZmlnTGlzdAUAAAAPaWR4UHJpY2VBc3NldElkBAAAAAtpQW10QXNzZXRJZAkAAZEAAAACBQAAAA5wb29sQ29uZmlnTGlzdAUAAAAOaWR4SUFtdEFzc2V0SWQEAAAADWlQcmljZUFzc2V0SWQJAAGRAAAAAgUAAAAOcG9vbENvbmZpZ0xpc3QFAAAAEGlkeElQcmljZUFzc2V0SWQEAAAAC2FtdEFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAAOcG9vbENvbmZpZ0xpc3QFAAAADmlkeEFtdEFzc2V0RGNtBAAAAA1wcmljZUFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAAOcG9vbENvbmZpZ0xpc3QFAAAAEGlkeFByaWNlQXNzZXREY20EAAAACnBvb2xTdGF0dXMJAAGRAAAAAgUAAAAOcG9vbENvbmZpZ0xpc3QFAAAADWlkeFBvb2xTdGF0dXMEAAAADXBvb2xMUEJhbGFuY2UICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQkAAlkAAAABBQAAAAlscEFzc2V0SWQJAAEsAAAAAgkAASwAAAACAgAAAAZBc3NldCAFAAAACWxwQXNzZXRJZAIAAAAOIGRvZXNuJ3QgZXhpc3QAAAAIcXVhbnRpdHkDCQEAAAACIT0AAAACBQAAAAlscEFzc2V0SWQFAAAAEHBheW1lbnRMcEFzc2V0SWQJAAACAAAAAQIAAAAVSW52YWxpZCBhc3NldCBwYXNzZWQuBAAAAA9hbXRBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAKYW10QXNzZXRJZAQAAAASYW10QXNzZXRCYWxhbmNlWDE4CQEAAAAFdG9YMTgAAAACBQAAAA9hbXRBc3NldEJhbGFuY2UFAAAAC2FtdEFzc2V0RGNtBAAAABFwcmljZUFzc2V0QmFsYW5jZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAxwcmljZUFzc2V0SWQEAAAAFHByaWNlQXNzZXRCYWxhbmNlWDE4CQEAAAAFdG9YMTgAAAACBQAAABFwcmljZUFzc2V0QmFsYW5jZQUAAAANcHJpY2VBc3NldERjbQQAAAAIY3VyUHJpY2UJAAGgAAAAAQkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAMFAAAAFHByaWNlQXNzZXRCYWxhbmNlWDE4BQAAABJhbXRBc3NldEJhbGFuY2VYMTgFAAAADHNjYWxlOEJpZ0ludAQAAAAPcGF5bWVudExwQW10WDE4CQEAAAAFdG9YMTgAAAACBQAAAAxwYXltZW50THBBbXQFAAAABnNjYWxlOAQAAAAQcG9vbExQQmFsYW5jZVgxOAkBAAAABXRvWDE4AAAAAgUAAAANcG9vbExQQmFsYW5jZQUAAAAGc2NhbGU4BAAAAA5vdXRBbXRBc3NldEFtdAkAATwAAAADBQAAABJhbXRBc3NldEJhbGFuY2VYMTgFAAAAD3BheW1lbnRMcEFtdFgxOAUAAAAQcG9vbExQQmFsYW5jZVgxOAQAAAAQb3V0UHJpY2VBc3NldEFtdAkAATwAAAADBQAAABRwcmljZUFzc2V0QmFsYW5jZVgxOAUAAAAPcGF5bWVudExwQW10WDE4BQAAABBwb29sTFBCYWxhbmNlWDE4BAAAABNvdXRBbXRBc3NldEFtdEZpbmFsCQEAAAAHZnJvbVgxOAAAAAIFAAAADm91dEFtdEFzc2V0QW10BQAAAAthbXRBc3NldERjbQQAAAAVb3V0UHJpY2VBc3NldEFtdEZpbmFsCQEAAAAHZnJvbVgxOAAAAAIFAAAAEG91dFByaWNlQXNzZXRBbXQFAAAADXByaWNlQXNzZXREY20JAAUdAAAACwUAAAATb3V0QW10QXNzZXRBbXRGaW5hbAUAAAAVb3V0UHJpY2VBc3NldEFtdEZpbmFsBQAAAAtpQW10QXNzZXRJZAUAAAANaVByaWNlQXNzZXRJZAUAAAAKYW10QXNzZXRJZAUAAAAMcHJpY2VBc3NldElkBQAAAA9hbXRBc3NldEJhbGFuY2UFAAAAEXByaWNlQXNzZXRCYWxhbmNlBQAAAA1wb29sTFBCYWxhbmNlBQAAAAhjdXJQcmljZQUAAAAKcG9vbFN0YXR1cwEAAAAUZXN0aW1hdGVQdXRPcGVyYXRpb24AAAAHAAAAEXNsaXBwYWdlVG9sZXJhbmNlAAAADWluQW10QXNzZXRBbXQAAAAMaW5BbXRBc3NldElkAAAAD2luUHJpY2VBc3NldEFtdAAAAA5pblByaWNlQXNzZXRJZAAAAAt1c2VyQWRkcmVzcwAAAAppc0V2YWx1YXRlBAAAAANjZmcJAQAAAA1nZXRQb29sQ29uZmlnAAAAAAQAAAAJbHBBc3NldElkCQACWQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQb29sTFBBc3NldElkBAAAAAphbXRBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4QW10QXNzZXRJZAQAAAAMcHJpY2VBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAAPaWR4UHJpY2VBc3NldElkBAAAAAtpQW10QXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAADmlkeElBbXRBc3NldElkBAAAAA1pUHJpY2VBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4SVByaWNlQXNzZXRJZAQAAAALYW10QXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAADmlkeEFtdEFzc2V0RGNtBAAAAA1wcmljZUFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQcmljZUFzc2V0RGNtBAAAAApwb29sU3RhdHVzCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4UG9vbFN0YXR1cwQAAAANcG9vbExQQmFsYW5jZQgJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkAA+wAAAABBQAAAAlscEFzc2V0SWQJAAEsAAAAAgkAASwAAAACAgAAAAZBc3NldCAJAAJYAAAAAQUAAAAJbHBBc3NldElkAgAAAA4gZG9lc24ndCBleGlzdAAAAAhxdWFudGl0eQMDCQEAAAACIT0AAAACBQAAAAphbXRBc3NldElkBQAAAAxpbkFtdEFzc2V0SWQGCQEAAAACIT0AAAACBQAAAAxwcmljZUFzc2V0SWQFAAAADmluUHJpY2VBc3NldElkCQAAAgAAAAECAAAAIkludmFsaWQgYW10IG9yIHByaWNlIGFzc2V0IHBhc3NlZC4EAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQMFAAAACmlzRXZhbHVhdGUJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAKYW10QXNzZXRJZAkAAGUAAAACCQEAAAANZ2V0QWNjQmFsYW5jZQAAAAEFAAAACmFtdEFzc2V0SWQFAAAADWluQW10QXNzZXRBbXQEAAAAFGFjY1ByaWNlQXNzZXRCYWxhbmNlAwUAAAAKaXNFdmFsdWF0ZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAxwcmljZUFzc2V0SWQJAABlAAAAAgkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAxwcmljZUFzc2V0SWQFAAAAD2luUHJpY2VBc3NldEFtdAQAAAAQaW5BbXRBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAANaW5BbXRBc3NldEFtdAUAAAALYW10QXNzZXREY20EAAAAEmluUHJpY2VBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAAPaW5QcmljZUFzc2V0QW10BQAAAA1wcmljZUFzc2V0RGNtBAAAAAl1c2VyUHJpY2UJAAGgAAAAAQkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAMFAAAAEmluUHJpY2VBc3NldEFtdFgxOAUAAAAQaW5BbXRBc3NldEFtdFgxOAUAAAAMc2NhbGU4QmlnSW50BAAAABVhY2NBbXRBc3NldEJhbGFuY2VYMTgJAQAAAAV0b1gxOAAAAAIFAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQUAAAALYW10QXNzZXREY20EAAAAF2FjY1ByaWNlQXNzZXRCYWxhbmNlWDE4CQEAAAAFdG9YMTgAAAACBQAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQUAAAANcHJpY2VBc3NldERjbQQAAAAIY3VyUHJpY2UDCQAAAAAAAAIFAAAADXBvb2xMUEJhbGFuY2UAAAAAAAAAAAAAAAAAAAAAAAAJAAGgAAAAAQkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAMFAAAAF2FjY1ByaWNlQXNzZXRCYWxhbmNlWDE4BQAAABVhY2NBbXRBc3NldEJhbGFuY2VYMTgFAAAADHNjYWxlOEJpZ0ludAQAAAAIc2xpcHBhZ2UDCQAAAAAAAAIFAAAACGN1clByaWNlAAAAAAAAAAAAAAAAAAAAAAAAAwkAAGYAAAACBQAAAAhjdXJQcmljZQUAAAAJdXNlclByaWNlCQAAawAAAAMJAABlAAAAAgUAAAAIY3VyUHJpY2UFAAAACXVzZXJQcmljZQUAAAAGc2NhbGU4BQAAAAhjdXJQcmljZQkAAGsAAAADCQAAZQAAAAIFAAAACXVzZXJQcmljZQUAAAAIY3VyUHJpY2UFAAAABnNjYWxlOAUAAAAIY3VyUHJpY2UDAwkBAAAAAiE9AAAAAgUAAAAIY3VyUHJpY2UAAAAAAAAAAAAJAABmAAAAAgUAAAAIc2xpcHBhZ2UFAAAAEXNsaXBwYWdlVG9sZXJhbmNlBwkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAA9QcmljZSBzbGlwcGFnZSAJAAGkAAAAAQUAAAAIc2xpcHBhZ2UCAAAAHiBleGNlZWRlZCB0aGUgcGFzc2VkIGxpbWl0IG9mIAkAAaQAAAABBQAAABFzbGlwcGFnZVRvbGVyYW5jZQQAAAADcmVzAwkAAAAAAAACBQAAAA1wb29sTFBCYWxhbmNlAAAAAAAAAAAABAAAAAtscFJlc3VsdEJ1ZgkAAHYAAAAGCQABOQAAAAIFAAAAEGluQW10QXNzZXRBbXRYMTgFAAAAEmluUHJpY2VBc3NldEFtdFgxOAAAAAAAAAAAAAkAATYAAAABAAAAAAAAAAAFAAAAAAAAAAABAAAAAAAAAAAABQAAAARET1dOCQAFFgAAAAQJAQAAAAdmcm9tWDE4AAAAAgUAAAALbHBSZXN1bHRCdWYFAAAABnNjYWxlOAkBAAAAB2Zyb21YMTgAAAACBQAAABBpbkFtdEFzc2V0QW10WDE4BQAAAAthbXRBc3NldERjbQkBAAAAB2Zyb21YMTgAAAACBQAAABJpblByaWNlQXNzZXRBbXRYMTgFAAAADXByaWNlQXNzZXREY20JAAGgAAAAAQkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAMJAAE3AAAAAgUAAAAXYWNjUHJpY2VBc3NldEJhbGFuY2VYMTgFAAAAEmluUHJpY2VBc3NldEFtdFgxOAkAATcAAAACBQAAABVhY2NBbXRBc3NldEJhbGFuY2VYMTgFAAAAEGluQW10QXNzZXRBbXRYMTgFAAAADHNjYWxlOEJpZ0ludAQAAAAQcG9vbExQQmFsYW5jZVgxOAkBAAAABXRvWDE4AAAAAgUAAAANcG9vbExQQmFsYW5jZQUAAAAGc2NhbGU4BAAAAAtjdXJQcmljZVgxOAkBAAAABXRvWDE4AAAAAgUAAAAIY3VyUHJpY2UFAAAABnNjYWxlOAQAAAAGcEVxQnlBCQABPAAAAAMFAAAAC2N1clByaWNlWDE4BQAAABBpbkFtdEFzc2V0QW10WDE4BQAAAAdzY2FsZTE4BAAAAA5yZXNBc3NldHNUb1B1dAMJAAE/AAAAAgUAAAAGcEVxQnlBBQAAABJpblByaWNlQXNzZXRBbXRYMTgJAAUUAAAAAgkAATwAAAADBQAAABJpblByaWNlQXNzZXRBbXRYMTgFAAAAB3NjYWxlMTgFAAAAC2N1clByaWNlWDE4BQAAABJpblByaWNlQXNzZXRBbXRYMTgJAAUUAAAAAgUAAAAQaW5BbXRBc3NldEFtdFgxOAUAAAAGcEVxQnlBBAAAAAhscFJlc3VsdAkBAAAAB2Zyb21YMTgAAAACCQABPAAAAAMFAAAAEHBvb2xMUEJhbGFuY2VYMTgIBQAAAA5yZXNBc3NldHNUb1B1dAAAAAJfMgUAAAAXYWNjUHJpY2VBc3NldEJhbGFuY2VYMTgFAAAABnNjYWxlOAkABRYAAAAEBQAAAAhscFJlc3VsdAkBAAAAB2Zyb21YMTgAAAACCAUAAAAOcmVzQXNzZXRzVG9QdXQAAAACXzEFAAAAC2FtdEFzc2V0RGNtCQEAAAAHZnJvbVgxOAAAAAIIBQAAAA5yZXNBc3NldHNUb1B1dAAAAAJfMgUAAAANcHJpY2VBc3NldERjbQkAAaAAAAABCQEAAAAPY2FsY1ByaWNlQmlnSW50AAAAAwkAATcAAAACBQAAABdhY2NQcmljZUFzc2V0QmFsYW5jZVgxOAgFAAAADnJlc0Fzc2V0c1RvUHV0AAAAAl8yCQABNwAAAAIFAAAAFWFjY0FtdEFzc2V0QmFsYW5jZVgxOAgFAAAADnJlc0Fzc2V0c1RvUHV0AAAAAl8xBQAAAAxzY2FsZThCaWdJbnQDCQAAZwAAAAIAAAAAAAAAAAAIBQAAAANyZXMAAAACXzEJAAACAAAAAQIAAAA2SW52YWxpZCBjYWxjdWxhdGlvbnMuIExQIGNhbGN1bGF0ZWQgaXMgbGVzcyB0aGFuIHplcm8uCQAFHgAAAAwIBQAAAANyZXMAAAACXzEIBQAAAANyZXMAAAACXzQFAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UFAAAADXBvb2xMUEJhbGFuY2UFAAAAC2lBbXRBc3NldElkBQAAAA1pUHJpY2VBc3NldElkBQAAAAlscEFzc2V0SWQFAAAACHNsaXBwYWdlBQAAAApwb29sU3RhdHVzCAUAAAADcmVzAAAAAl8yCAUAAAADcmVzAAAAAl8zAQAAABt2YWxpZGF0ZU1hdGNoZXJPcmRlckFsbG93ZWQAAAABAAAABW9yZGVyBAAAAANjZmcJAQAAAA1nZXRQb29sQ29uZmlnAAAAAAQAAAAKYW10QXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAADWlkeEFtdEFzc2V0SWQEAAAADHByaWNlQXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAAD2lkeFByaWNlQXNzZXRJZAQAAAAKcG9vbFN0YXR1cwkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4UG9vbFN0YXR1cwQAAAALYW10QXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAADmlkeEFtdEFzc2V0RGNtBAAAAA1wcmljZUFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQcmljZUFzc2V0RGNtBAAAABJhY2NBbXRBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAKYW10QXNzZXRJZAQAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAMcHJpY2VBc3NldElkBAAAAAhjdXJQcmljZQMJAAAAAAAAAggFAAAABW9yZGVyAAAACW9yZGVyVHlwZQUAAAADQnV5CQEAAAAQcHJpdmF0ZUNhbGNQcmljZQAAAAQFAAAAC2FtdEFzc2V0RGNtBQAAAA1wcmljZUFzc2V0RGNtCQAAZAAAAAIFAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQgFAAAABW9yZGVyAAAABmFtb3VudAUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAQAAABBwcml2YXRlQ2FsY1ByaWNlAAAABAUAAAALYW10QXNzZXREY20FAAAADXByaWNlQXNzZXREY20JAABlAAAAAgUAAAASYWNjQW10QXNzZXRCYWxhbmNlCAUAAAAFb3JkZXIAAAAGYW1vdW50BQAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQMDAwkBAAAAEGlzR2xvYmFsU2h1dGRvd24AAAAABgkAAAAAAAACBQAAAApwb29sU3RhdHVzBQAAABNQb29sTWF0Y2hlckRpc2FibGVkBgkAAAAAAAACBQAAAApwb29sU3RhdHVzBQAAAAxQb29sU2h1dGRvd24JAAACAAAAAQIAAAAcRXhjaGFuZ2Ugb3BlcmF0aW9ucyBkaXNhYmxlZAQAAAANb3JkZXJBbXRBc3NldAgIBQAAAAVvcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQEAAAAEG9yZGVyQW10QXNzZXRTdHIDCQAAAAAAAAIFAAAADW9yZGVyQW10QXNzZXQFAAAABHVuaXQCAAAABVdBVkVTCQACWAAAAAEJAQAAAAV2YWx1ZQAAAAEFAAAADW9yZGVyQW10QXNzZXQEAAAAD29yZGVyUHJpY2VBc3NldAgIBQAAAAVvcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAQAAAASb3JkZXJQcmljZUFzc2V0U3RyAwkAAAAAAAACBQAAAA9vcmRlclByaWNlQXNzZXQFAAAABHVuaXQCAAAABVdBVkVTCQACWAAAAAEJAQAAAAV2YWx1ZQAAAAEFAAAAD29yZGVyUHJpY2VBc3NldAMDCQEAAAACIT0AAAACBQAAABBvcmRlckFtdEFzc2V0U3RyBQAAAAphbXRBc3NldElkBgkBAAAAAiE9AAAAAgUAAAASb3JkZXJQcmljZUFzc2V0U3RyBQAAAAxwcmljZUFzc2V0SWQJAAACAAAAAQIAAAATV3Jvbmcgb3JkZXIgYXNzZXRzLgQAAAAKb3JkZXJQcmljZQgFAAAABW9yZGVyAAAABXByaWNlBAAAAAhwcmljZURjbQkAAGsAAAADBQAAAAZzY2FsZTgFAAAADXByaWNlQXNzZXREY20FAAAAC2FtdEFzc2V0RGNtBAAAABBjYXN0ZWRPcmRlclByaWNlCQEAAAAHdG9TY2FsZQAAAAMFAAAACm9yZGVyUHJpY2UFAAAABnNjYWxlOAUAAAAIcHJpY2VEY20EAAAAEWlzT3JkZXJQcmljZVZhbGlkAwkAAAAAAAACCAUAAAAFb3JkZXIAAAAJb3JkZXJUeXBlBQAAAANCdXkJAABnAAAAAgUAAAAIY3VyUHJpY2UFAAAAEGNhc3RlZE9yZGVyUHJpY2UJAABnAAAAAgUAAAAQY2FzdGVkT3JkZXJQcmljZQUAAAAIY3VyUHJpY2UDCQEAAAABIQAAAAEFAAAAEWlzT3JkZXJQcmljZVZhbGlkCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAMk9yZGVyIHByaWNlIGxlYWRzIHRvIEsgZGVjcmVhc2UuIGNhc3RlZE9yZGVyUHJpY2U9CQABpAAAAAEFAAAAEGNhc3RlZE9yZGVyUHJpY2UCAAAACiBjdXJQcmljZT0JAAGkAAAAAQUAAAAIY3VyUHJpY2UGAQAAAAljb21tb25HZXQAAAABAAAAAWkEAAAAC3BtdEFtdEFzc2V0CQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAABAAAAApwbXRBc3NldElkCQEAAAAFdmFsdWUAAAABCAUAAAALcG10QW10QXNzZXQAAAAHYXNzZXRJZAQAAAALcG10QXNzZXRBbXQIBQAAAAtwbXRBbXRBc3NldAAAAAZhbW91bnQEAAAAA3JlcwkBAAAAFGVzdGltYXRlR2V0T3BlcmF0aW9uAAAAAwkAAlgAAAABBQAAAApwbXRBc3NldElkBQAAAAtwbXRBc3NldEFtdAkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIEAAAADm91dEFtdEFzc2V0QW10CAUAAAADcmVzAAAAAl8xBAAAABBvdXRQcmljZUFzc2V0QW10CAUAAAADcmVzAAAAAl8yBAAAAAtpQW10QXNzZXRJZAgFAAAAA3JlcwAAAAJfMwQAAAANaVByaWNlQXNzZXRJZAgFAAAAA3JlcwAAAAJfNAQAAAAKYW10QXNzZXRJZAgFAAAAA3JlcwAAAAJfNQQAAAAMcHJpY2VBc3NldElkCAUAAAADcmVzAAAAAl82BAAAABNwb29sQW10QXNzZXRCYWxhbmNlCAUAAAADcmVzAAAAAl83BAAAABVwb29sUHJpY2VBc3NldEJhbGFuY2UIBQAAAANyZXMAAAACXzgEAAAADXBvb2xMUEJhbGFuY2UIBQAAAANyZXMAAAACXzkEAAAACGN1clByaWNlCAUAAAADcmVzAAAAA18xMAQAAAAKcG9vbFN0YXR1cwkBAAAADXBhcnNlSW50VmFsdWUAAAABCAUAAAADcmVzAAAAA18xMQMDCQEAAAAQaXNHbG9iYWxTaHV0ZG93bgAAAAAGCQAAAAAAAAIFAAAACnBvb2xTdGF0dXMFAAAADFBvb2xTaHV0ZG93bgkAAAIAAAABCQABLAAAAAICAAAALEdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbi4gU3RhdHVzID0gCQABpAAAAAEFAAAACnBvb2xTdGF0dXMJAAUXAAAABQUAAAAOb3V0QW10QXNzZXRBbXQFAAAAEG91dFByaWNlQXNzZXRBbXQFAAAAC3BtdEFzc2V0QW10BQAAAApwbXRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAOb3V0QW10QXNzZXRBbXQDCQAAAAAAAAIFAAAACmFtdEFzc2V0SWQCAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAACmFtdEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABBvdXRQcmljZUFzc2V0QW10AwkAAAAAAAACBQAAAAxwcmljZUFzc2V0SWQCAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAADHByaWNlQXNzZXRJZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAASa2V5R2V0QWN0aW9uQnlVc2VyAAAAAgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAkBAAAAEWRhdGFHZXRBY3Rpb25JbmZvAAAABgUAAAAOb3V0QW10QXNzZXRBbXQFAAAAEG91dFByaWNlQXNzZXRBbXQFAAAAC3BtdEFzc2V0QW10BQAAAAhjdXJQcmljZQUAAAAGaGVpZ2h0CAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAMa2V5UHJpY2VMYXN0AAAAAAkAASwAAAACAgAAAAQlc19fCQABpAAAAAEFAAAACGN1clByaWNlCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA9rZXlQcmljZUhpc3RvcnkAAAACBQAAAAZoZWlnaHQIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wCQABLAAAAAICAAAABCVzX18JAAGkAAAAAQUAAAAIY3VyUHJpY2UFAAAAA25pbAEAAAAJY29tbW9uUHV0AAAAAwAAAAFpAAAAEXNsaXBwYWdlVG9sZXJhbmNlAAAABmVtaXRMcAQAAAALcG10QW10QXNzZXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAADWluQW10QXNzZXRBbXQIBQAAAAtwbXRBbXRBc3NldAAAAAZhbW91bnQEAAAADGluQW10QXNzZXRJZAMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAtwbXRBbXRBc3NldAAAAAdhc3NldElkCQACWQAAAAECAAAABVdBVkVTCQEAAAAFdmFsdWUAAAABCAUAAAALcG10QW10QXNzZXQAAAAHYXNzZXRJZAQAAAANcG10UHJpY2VBc3NldAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQQAAAAPaW5QcmljZUFzc2V0QW10CAUAAAANcG10UHJpY2VBc3NldAAAAAZhbW91bnQEAAAADmluUHJpY2VBc3NldElkAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAADXBtdFByaWNlQXNzZXQAAAAHYXNzZXRJZAkAAlkAAAABAgAAAAVXQVZFUwkBAAAABXZhbHVlAAAAAQgFAAAADXBtdFByaWNlQXNzZXQAAAAHYXNzZXRJZAQAAAAGZXN0UHV0CQEAAAAUZXN0aW1hdGVQdXRPcGVyYXRpb24AAAAHBQAAABFzbGlwcGFnZVRvbGVyYW5jZQUAAAANaW5BbXRBc3NldEFtdAkAAlgAAAABBQAAAAxpbkFtdEFzc2V0SWQFAAAAD2luUHJpY2VBc3NldEFtdAkAAlgAAAABBQAAAA5pblByaWNlQXNzZXRJZAkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIHBAAAAAhvdXRMcEFtdAgFAAAABmVzdFB1dAAAAAJfMQQAAAAIY3VyUHJpY2UIBQAAAAZlc3RQdXQAAAACXzIEAAAAE3Bvb2xBbXRBc3NldEJhbGFuY2UIBQAAAAZlc3RQdXQAAAACXzMEAAAAFXBvb2xQcmljZUFzc2V0QmFsYW5jZQgFAAAABmVzdFB1dAAAAAJfNAQAAAANcG9vbExQQmFsYW5jZQgFAAAABmVzdFB1dAAAAAJfNQQAAAALaUFtdEFzc2V0SWQIBQAAAAZlc3RQdXQAAAACXzYEAAAADWlQcmljZUFzc2V0SWQIBQAAAAZlc3RQdXQAAAACXzcEAAAACWxwQXNzZXRJZAgFAAAABmVzdFB1dAAAAAJfOAQAAAAMc2xpcHBhZ2VDYWxjCAUAAAAGZXN0UHV0AAAAAl85BAAAAApwb29sU3RhdHVzCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEIBQAAAAZlc3RQdXQAAAADXzEwBAAAAA5yZWFsQW10QXNzZXRJbggFAAAABmVzdFB1dAAAAANfMTEEAAAAEHJlYWxQcmljZUFzc2V0SW4IBQAAAAZlc3RQdXQAAAADXzEyAwMDCQEAAAAQaXNHbG9iYWxTaHV0ZG93bgAAAAAGCQAAAAAAAAIFAAAACnBvb2xTdGF0dXMFAAAAD1Bvb2xQdXREaXNhYmxlZAYJAAAAAAAAAgUAAAAKcG9vbFN0YXR1cwUAAAAMUG9vbFNodXRkb3duCQAAAgAAAAEJAAEsAAAAAgIAAAAsUHV0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluLiBTdGF0dXMgPSAJAAGkAAAAAQUAAAAKcG9vbFN0YXR1cwQAAAALbHBBbXRUb0VtaXQDCQEAAAABIQAAAAEFAAAABmVtaXRMcAAAAAAAAAAAAAUAAAAIb3V0THBBbXQEAAAADmRpZmZJbkFtdEFzc2V0CQAAZQAAAAIFAAAADWluQW10QXNzZXRBbXQFAAAADnJlYWxBbXRBc3NldEluBAAAABBkaWZmSW5QcmljZUFzc2V0CQAAZQAAAAIFAAAAD2luUHJpY2VBc3NldEFtdAUAAAAQcmVhbFByaWNlQXNzZXRJbgQAAAAOZGF0YVN0YXRlV3JpdGUJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADGtleVByaWNlTGFzdAAAAAAJAAEsAAAAAgIAAAAEJXNfXwkAAaQAAAABBQAAAAhjdXJQcmljZQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAPa2V5UHJpY2VIaXN0b3J5AAAAAgUAAAAGaGVpZ2h0CAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAkAASwAAAACAgAAAAQlc19fCQABpAAAAAEFAAAACGN1clByaWNlCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABJrZXlQdXRBY3Rpb25CeVVzZXIAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkCQEAAAARZGF0YVB1dEFjdGlvbkluZm8AAAAKBQAAAA5yZWFsQW10QXNzZXRJbgUAAAAQcmVhbFByaWNlQXNzZXRJbgUAAAALbHBBbXRUb0VtaXQFAAAACGN1clByaWNlBQAAABFzbGlwcGFnZVRvbGVyYW5jZQUAAAAMc2xpcHBhZ2VDYWxjBQAAAAZoZWlnaHQIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wBQAAAA5kaWZmSW5BbXRBc3NldAUAAAAQZGlmZkluUHJpY2VBc3NldAUAAAADbmlsCQAFGwAAAAkFAAAAC2xwQW10VG9FbWl0BQAAAAlscEFzc2V0SWQFAAAADmRhdGFTdGF0ZVdyaXRlBQAAAA1pbkFtdEFzc2V0QW10BQAAAA5yZWFsQW10QXNzZXRJbgUAAAAPaW5QcmljZUFzc2V0QW10BQAAABByZWFsUHJpY2VBc3NldEluCAUAAAALcG10QW10QXNzZXQAAAAHYXNzZXRJZAgFAAAADXBtdFByaWNlQXNzZXQAAAAHYXNzZXRJZAAAAAoAAAABaQEAAAALY29uc3RydWN0b3IAAAACAAAAD2ZhY3RvcnlDb250cmFjdAAAABBtYW5hZ2VyUHVibGljS2V5AwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAAAgAAAAECAAAAEnBlcm1pc3Npb25zIGRlbmllZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAASa2V5RmFjdG9yeUNvbnRyYWN0AAAAAAUAAAAPZmFjdG9yeUNvbnRyYWN0CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAUAAAAQbWFuYWdlclB1YmxpY0tleQUAAAADbmlsAAAAAWkBAAAAA3B1dAAAAAIAAAARc2xpcHBhZ2VUb2xlcmFuY2UAAAAPc2hvdWxkQXV0b1N0YWtlBAAAAApmYWN0b3J5Q2ZnCQEAAAAQZ2V0RmFjdG9yeUNvbmZpZwAAAAAEAAAAD3N0YWtpbmdDb250cmFjdAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEJAAGRAAAAAgUAAAAKZmFjdG9yeUNmZwUAAAAZaWR4RmFjdG9yeVN0YWtpbmdDb250cmFjdAIAAAAhRXJyb3IuIEluY29ycmVjdCBzdGFraW5nIGFkZHJlc3MuBAAAABBzbGlwcGFnZUNvbnRyYWN0CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQkAAZEAAAACBQAAAApmYWN0b3J5Q2ZnBQAAABppZHhGYWN0b3J5U2xpcHBhZ2VDb250cmFjdAIAAAArRXJyb3IuIEluY29ycmVjdCBzbGlwcGFnZSBjb250cmFjdCBhZGRyZXNzLgQAAAAHYWN0aW9ucwkBAAAACWNvbW1vblB1dAAAAAMFAAAAAWkFAAAAEXNsaXBwYWdlVG9sZXJhbmNlBgQAAAAJYW10VG9FbWl0CAUAAAAHYWN0aW9ucwAAAAJfMQQAAAAJbHBBc3NldElkCAUAAAAHYWN0aW9ucwAAAAJfMgQAAAAFc3RhdGUIBQAAAAdhY3Rpb25zAAAAAl8zBAAAAAVpbkFtdAgFAAAAB2FjdGlvbnMAAAACXzQEAAAACXJlYWxJbkFtdAgFAAAAB2FjdGlvbnMAAAACXzUEAAAAB2luUHJpY2UIBQAAAAdhY3Rpb25zAAAAAl82BAAAAAtyZWFsSW5QcmljZQgFAAAAB2FjdGlvbnMAAAACXzcEAAAABGFtSWQIBQAAAAdhY3Rpb25zAAAAAl84BAAAAARwcklkCAUAAAAHYWN0aW9ucwAAAAJfOQQAAAAOZGlmZkluQW10QXNzZXQJAABlAAAAAgUAAAAFaW5BbXQFAAAACXJlYWxJbkFtdAQAAAAQZGlmZkluUHJpY2VBc3NldAkAAGUAAAACBQAAAAdpblByaWNlBQAAAAtyZWFsSW5QcmljZQQAAAAHZW1pdEludgkAA/wAAAAEBQAAAA9mYWN0b3J5Q29udHJhY3QCAAAABGVtaXQJAARMAAAAAgUAAAAJYW10VG9FbWl0BQAAAANuaWwFAAAAA25pbAMJAAAAAAAAAgUAAAAHZW1pdEludgUAAAAHZW1pdEludgQAAAAMc2xpcHBhZ2VBSW52AwkAAGYAAAACBQAAAAVpbkFtdAUAAAAJcmVhbEluQW10CQAD/AAAAAQFAAAAEHNsaXBwYWdlQ29udHJhY3QCAAAAA3B1dAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAARhbUlkBQAAAA5kaWZmSW5BbXRBc3NldAUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAADHNsaXBwYWdlQUludgUAAAAMc2xpcHBhZ2VBSW52BAAAAAxzbGlwcGFnZVBJbnYDCQAAZgAAAAIFAAAAB2luUHJpY2UFAAAAC3JlYWxJblByaWNlCQAD/AAAAAQFAAAAEHNsaXBwYWdlQ29udHJhY3QCAAAAA3B1dAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAARwcklkBQAAABBkaWZmSW5QcmljZUFzc2V0BQAAAANuaWwFAAAAA25pbAMJAAAAAAAAAgUAAAAMc2xpcHBhZ2VQSW52BQAAAAxzbGlwcGFnZVBJbnYEAAAACmxwU3Rha2VJbnYDBQAAAA9zaG91bGRBdXRvU3Rha2UJAAP8AAAABAUAAAAPc3Rha2luZ0NvbnRyYWN0AgAAAAVzdGFrZQUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAlscEFzc2V0SWQFAAAACWFtdFRvRW1pdAUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAACmxwU3Rha2VJbnYFAAAACmxwU3Rha2VJbnYJAARNAAAAAgUAAAAFc3RhdGUJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAJYW10VG9FbWl0BQAAAAlscEFzc2V0SWQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAACnB1dEZvckZyZWUAAAAABAAAAAdhY3Rpb25zCQEAAAAJY29tbW9uUHV0AAAAAwUAAAABaQAAAAAAAAAAAAcIBQAAAAdhY3Rpb25zAAAAAl8zAAAAAWkBAAAAA2dldAAAAAAEAAAAA3JlcwkBAAAACWNvbW1vbkdldAAAAAEFAAAAAWkEAAAADm91dEFtdEFzc2V0QW10CAUAAAADcmVzAAAAAl8xBAAAABBvdXRQcmljZUFzc2V0QW10CAUAAAADcmVzAAAAAl8yBAAAAAtwbXRBc3NldEFtdAgFAAAAA3JlcwAAAAJfMwQAAAAKcG10QXNzZXRJZAgFAAAAA3JlcwAAAAJfNAQAAAAHYWN0aW9ucwgFAAAAA3JlcwAAAAJfNQQAAAAUYnVybkxQQXNzZXRPbkZhY3RvcnkJAAP8AAAABAUAAAAPZmFjdG9yeUNvbnRyYWN0AgAAAARidXJuCQAETAAAAAIFAAAAC3BtdEFzc2V0QW10BQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIFAAAACnBtdEFzc2V0SWQFAAAAC3BtdEFzc2V0QW10BQAAAANuaWwDCQAAAAAAAAIFAAAAFGJ1cm5MUEFzc2V0T25GYWN0b3J5BQAAABRidXJuTFBBc3NldE9uRmFjdG9yeQUAAAAHYWN0aW9ucwkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAJZ2V0Tm9MZXNzAAAAAgAAABJub0xlc3NUaGVuQW10QXNzZXQAAAAUbm9MZXNzVGhlblByaWNlQXNzZXQEAAAAA3JlcwkBAAAACWNvbW1vbkdldAAAAAEFAAAAAWkEAAAADm91dEFtdEFzc2V0QW10CAUAAAADcmVzAAAAAl8xBAAAABBvdXRQcmljZUFzc2V0QW10CAUAAAADcmVzAAAAAl8yBAAAAAtwbXRBc3NldEFtdAgFAAAAA3JlcwAAAAJfMwQAAAAKcG10QXNzZXRJZAgFAAAAA3JlcwAAAAJfNAQAAAAHYWN0aW9ucwgFAAAAA3JlcwAAAAJfNQMJAABmAAAAAgUAAAASbm9MZXNzVGhlbkFtdEFzc2V0BQAAAA5vdXRBbXRBc3NldEFtdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAABxub0xlc3NUaGVuQW10QXNzZXQgZmFpbGVkOiAgCQABpAAAAAEFAAAADm91dEFtdEFzc2V0QW10AgAAAAMgPCAJAAGkAAAAAQUAAAASbm9MZXNzVGhlbkFtdEFzc2V0AwkAAGYAAAACBQAAABRub0xlc3NUaGVuUHJpY2VBc3NldAUAAAAQb3V0UHJpY2VBc3NldEFtdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAB1ub0xlc3NUaGVuUHJpY2VBc3NldCBmYWlsZWQ6IAkAAaQAAAABBQAAABBvdXRQcmljZUFzc2V0QW10AgAAAAMgPCAJAAGkAAAAAQUAAAAUbm9MZXNzVGhlblByaWNlQXNzZXQEAAAAFGJ1cm5MUEFzc2V0T25GYWN0b3J5CQAD/AAAAAQFAAAAD2ZhY3RvcnlDb250cmFjdAIAAAAEYnVybgkABEwAAAACBQAAAAtwbXRBc3NldEFtdAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAApwbXRBc3NldElkBQAAAAtwbXRBc3NldEFtdAUAAAADbmlsAwkAAAAAAAACBQAAABRidXJuTFBBc3NldE9uRmFjdG9yeQUAAAAUYnVybkxQQXNzZXRPbkZhY3RvcnkFAAAAB2FjdGlvbnMJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAACGFjdGl2YXRlAAAAAgAAAAthbXRBc3NldFN0cgAAAA1wcmljZUFzc2V0U3RyAwkBAAAAAiE9AAAAAgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIJAAQlAAAAAQUAAAAPZmFjdG9yeUNvbnRyYWN0CQAAAgAAAAECAAAAEnBlcm1pc3Npb25zIGRlbmllZAkABRQAAAACCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAAtrZXlBbXRBc3NldAAAAAAFAAAAC2FtdEFzc2V0U3RyCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA1rZXlQcmljZUFzc2V0AAAAAAUAAAANcHJpY2VBc3NldFN0cgUAAAADbmlsAgAAAAdzdWNjZXNzAAAAAWkBAAAADXN0YXRzUkVBRE9OTFkAAAAABAAAAANjZmcJAQAAAA1nZXRQb29sQ29uZmlnAAAAAAQAAAAJbHBBc3NldElkCQACWQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQb29sTFBBc3NldElkBAAAAAphbXRBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4QW10QXNzZXRJZAQAAAAMcHJpY2VBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAAPaWR4UHJpY2VBc3NldElkBAAAAAtpQW10QXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAADmlkeElBbXRBc3NldElkBAAAAA1pUHJpY2VBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4SVByaWNlQXNzZXRJZAQAAAALYW10QXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAADmlkeEFtdEFzc2V0RGNtBAAAAA1wcmljZUFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQcmljZUFzc2V0RGNtBAAAAA1wb29sTFBCYWxhbmNlCAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAD7AAAAAEFAAAACWxwQXNzZXRJZAkAASwAAAACCQABLAAAAAICAAAABkFzc2V0IAkAAlgAAAABBQAAAAlscEFzc2V0SWQCAAAADiBkb2Vzbid0IGV4aXN0AAAACHF1YW50aXR5BAAAABJhY2NBbXRBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAKYW10QXNzZXRJZAQAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAMcHJpY2VBc3NldElkBAAAAApwcmljZXNMaXN0CQEAAAAKY2FsY1ByaWNlcwAAAAMFAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UFAAAADXBvb2xMUEJhbGFuY2UEAAAACGN1clByaWNlCQABkQAAAAIFAAAACnByaWNlc0xpc3QAAAAAAAAAAAAEAAAAD2xwQW10QXNzZXRTaGFyZQkAAZEAAAACBQAAAApwcmljZXNMaXN0AAAAAAAAAAABBAAAABFscFByaWNlQXNzZXRTaGFyZQkAAZEAAAACBQAAAApwcmljZXNMaXN0AAAAAAAAAAACBAAAAApwb29sV2VpZ2h0CQEAAAAFdmFsdWUAAAABCQAEGgAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAADWtleVBvb2xXZWlnaHQAAAABCQAEJQAAAAEFAAAABHRoaXMJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAOJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAABJhY2NBbXRBc3NldEJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAADXBvb2xMUEJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAAhjdXJQcmljZQkABEwAAAACCQABpAAAAAEFAAAAD2xwQW10QXNzZXRTaGFyZQkABEwAAAACCQABpAAAAAEFAAAAEWxwUHJpY2VBc3NldFNoYXJlCQAETAAAAAIJAAGkAAAAAQUAAAAKcG9vbFdlaWdodAUAAAADbmlsBQAAAANTRVAAAAABaQEAAAAdZXZhbHVhdGVQdXRCeUFtdEFzc2V0UkVBRE9OTFkAAAADAAAAEXNsaXBwYWdlVG9sZXJhbmNlAAAADWluQW10QXNzZXRBbXQAAAALdXNlckFkZHJlc3MEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAAlscEFzc2V0SWQJAAJZAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFBvb2xMUEFzc2V0SWQEAAAACmFtdEFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhBbXRBc3NldElkBAAAAAxwcmljZUFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA9pZHhQcmljZUFzc2V0SWQEAAAAC2lBbXRBc3NldElkCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4SUFtdEFzc2V0SWQEAAAADWlQcmljZUFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhJUHJpY2VBc3NldElkBAAAAAthbXRBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4QW10QXNzZXREY20EAAAADXByaWNlQXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20EAAAACnBvb2xTdGF0dXMJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhQb29sU3RhdHVzBAAAAA1wb29sTFBCYWxhbmNlCAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAD7AAAAAEFAAAACWxwQXNzZXRJZAkAASwAAAACCQABLAAAAAICAAAABkFzc2V0IAkAAlgAAAABBQAAAAlscEFzc2V0SWQCAAAADiBkb2Vzbid0IGV4aXN0AAAACHF1YW50aXR5BAAAABJhY2NBbXRBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAKYW10QXNzZXRJZAQAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAQAAAA1nZXRBY2NCYWxhbmNlAAAAAQUAAAAMcHJpY2VBc3NldElkBAAAAA5hbXRBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAASYWNjQW10QXNzZXRCYWxhbmNlBQAAAAthbXRBc3NldERjbQQAAAAQcHJpY2VBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UFAAAADXByaWNlQXNzZXREY20EAAAAC2N1clByaWNlWDE4AwkAAAAAAAACBQAAAA1wb29sTFBCYWxhbmNlAAAAAAAAAAAACQABNgAAAAEAAAAAAAAAAAAJAQAAAA9jYWxjUHJpY2VCaWdJbnQAAAADBQAAABBwcmljZUFzc2V0QW10WDE4BQAAAA5hbXRBc3NldEFtdFgxOAUAAAAHc2NhbGUxOAQAAAAQaW5BbXRBc3NldEFtdFgxOAkBAAAABXRvWDE4AAAAAgUAAAANaW5BbXRBc3NldEFtdAUAAAALYW10QXNzZXREY20EAAAAEmluUHJpY2VBc3NldEFtdFgxOAkAATwAAAADBQAAABBpbkFtdEFzc2V0QW10WDE4BQAAAAtjdXJQcmljZVgxOAUAAAAHc2NhbGUxOAQAAAAPaW5QcmljZUFzc2V0QW10CQEAAAAHZnJvbVgxOAAAAAIFAAAAEmluUHJpY2VBc3NldEFtdFgxOAUAAAANcHJpY2VBc3NldERjbQQAAAATZXN0aW1hdGVkUHV0UmVzdWx0cwkBAAAAFGVzdGltYXRlUHV0T3BlcmF0aW9uAAAABwUAAAARc2xpcHBhZ2VUb2xlcmFuY2UFAAAADWluQW10QXNzZXRBbXQFAAAACmFtdEFzc2V0SWQFAAAAD2luUHJpY2VBc3NldEFtdAUAAAAMcHJpY2VBc3NldElkBQAAAAt1c2VyQWRkcmVzcwYEAAAADG91dExwQW10Q2FsYwgFAAAAE2VzdGltYXRlZFB1dFJlc3VsdHMAAAACXzEEAAAADGN1clByaWNlQ2FsYwgFAAAAE2VzdGltYXRlZFB1dFJlc3VsdHMAAAACXzIEAAAAF3Bvb2xBbXRBc3NldEJhbGFuY2VDYWxjCAUAAAATZXN0aW1hdGVkUHV0UmVzdWx0cwAAAAJfMwQAAAAZcG9vbFByaWNlQXNzZXRCYWxhbmNlQ0FsYwgFAAAAE2VzdGltYXRlZFB1dFJlc3VsdHMAAAACXzQEAAAAEXBvb2xMUEJhbGFuY2VDYWxjCAUAAAATZXN0aW1hdGVkUHV0UmVzdWx0cwAAAAJfNQQAAAAOcG9vbFN0YXR1c0NhbGMJAQAAAA1wYXJzZUludFZhbHVlAAAAAQgFAAAAE2VzdGltYXRlZFB1dFJlc3VsdHMAAAADXzEwCQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAADCVkJWQlZCVkJWQlZAkABEwAAAACCQABpAAAAAEFAAAADG91dExwQW10Q2FsYwkABEwAAAACCQABpAAAAAEJAQAAAAdmcm9tWDE4AAAAAgUAAAALY3VyUHJpY2VYMTgFAAAABnNjYWxlOAkABEwAAAACCQABpAAAAAEFAAAAF3Bvb2xBbXRBc3NldEJhbGFuY2VDYWxjCQAETAAAAAIJAAGkAAAAAQUAAAAZcG9vbFByaWNlQXNzZXRCYWxhbmNlQ0FsYwkABEwAAAACCQABpAAAAAEFAAAAEXBvb2xMUEJhbGFuY2VDYWxjCQAETAAAAAIJAAGkAAAAAQUAAAAOcG9vbFN0YXR1c0NhbGMFAAAAA25pbAUAAAADU0VQAAAAAWkBAAAAH2V2YWx1YXRlUHV0QnlQcmljZUFzc2V0UkVBRE9OTFkAAAADAAAAEXNsaXBwYWdlVG9sZXJhbmNlAAAAD2luUHJpY2VBc3NldEFtdAAAAAt1c2VyQWRkcmVzcwQAAAADY2ZnCQEAAAANZ2V0UG9vbENvbmZpZwAAAAAEAAAACWxwQXNzZXRJZAkAAlkAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UG9vbExQQXNzZXRJZAQAAAAKYW10QXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAADWlkeEFtdEFzc2V0SWQEAAAADHByaWNlQXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAAD2lkeFByaWNlQXNzZXRJZAQAAAALaUFtdEFzc2V0SWQJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhJQW10QXNzZXRJZAQAAAANaVByaWNlQXNzZXRJZAkAAZEAAAACBQAAAANjZmcFAAAAEGlkeElQcmljZUFzc2V0SWQEAAAAC2FtdEFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhBbXRBc3NldERjbQQAAAANcHJpY2VBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UHJpY2VBc3NldERjbQQAAAAKcG9vbFN0YXR1cwkAAZEAAAACBQAAAANjZmcFAAAADWlkeFBvb2xTdGF0dXMEAAAADXBvb2xMUEJhbGFuY2UICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQUAAAAJbHBBc3NldElkCQABLAAAAAIJAAEsAAAAAgIAAAAGQXNzZXQgCQACWAAAAAEFAAAACWxwQXNzZXRJZAIAAAAOIGRvZXNuJ3QgZXhpc3QAAAAIcXVhbnRpdHkEAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAphbXRBc3NldElkBAAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQkBAAAADWdldEFjY0JhbGFuY2UAAAABBQAAAAxwcmljZUFzc2V0SWQEAAAADmFtdEFzc2V0QW10WDE4CQEAAAAFdG9YMTgAAAACBQAAABJhY2NBbXRBc3NldEJhbGFuY2UFAAAAC2FtdEFzc2V0RGNtBAAAABBwcmljZUFzc2V0QW10WDE4CQEAAAAFdG9YMTgAAAACBQAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQUAAAANcHJpY2VBc3NldERjbQQAAAALY3VyUHJpY2VYMTgDCQAAAAAAAAIFAAAADXBvb2xMUEJhbGFuY2UAAAAAAAAAAAAJAAE2AAAAAQAAAAAAAAAAAAkBAAAAD2NhbGNQcmljZUJpZ0ludAAAAAMFAAAAEHByaWNlQXNzZXRBbXRYMTgFAAAADmFtdEFzc2V0QW10WDE4BQAAAAdzY2FsZTE4BAAAABJpblByaWNlQXNzZXRBbXRYMTgJAQAAAAV0b1gxOAAAAAIFAAAAD2luUHJpY2VBc3NldEFtdAUAAAANcHJpY2VBc3NldERjbQQAAAAQaW5BbXRBc3NldEFtdFgxOAkAATwAAAADBQAAABJpblByaWNlQXNzZXRBbXRYMTgFAAAAB3NjYWxlMTgFAAAAC2N1clByaWNlWDE4BAAAAA1pbkFtdEFzc2V0QW10CQEAAAAHZnJvbVgxOAAAAAIFAAAAEGluQW10QXNzZXRBbXRYMTgFAAAAC2FtdEFzc2V0RGNtBAAAABNlc3RpbWF0ZWRQdXRSZXN1bHRzCQEAAAAUZXN0aW1hdGVQdXRPcGVyYXRpb24AAAAHBQAAABFzbGlwcGFnZVRvbGVyYW5jZQUAAAANaW5BbXRBc3NldEFtdAUAAAAKYW10QXNzZXRJZAUAAAAPaW5QcmljZUFzc2V0QW10BQAAAAxwcmljZUFzc2V0SWQFAAAAC3VzZXJBZGRyZXNzBgQAAAAMb3V0THBBbXRDYWxjCAUAAAATZXN0aW1hdGVkUHV0UmVzdWx0cwAAAAJfMQQAAAAMY3VyUHJpY2VDYWxjCAUAAAATZXN0aW1hdGVkUHV0UmVzdWx0cwAAAAJfMgQAAAAXcG9vbEFtdEFzc2V0QmFsYW5jZUNhbGMIBQAAABNlc3RpbWF0ZWRQdXRSZXN1bHRzAAAAAl8zBAAAABlwb29sUHJpY2VBc3NldEJhbGFuY2VDQWxjCAUAAAATZXN0aW1hdGVkUHV0UmVzdWx0cwAAAAJfNAQAAAARcG9vbExQQmFsYW5jZUNhbGMIBQAAABNlc3RpbWF0ZWRQdXRSZXN1bHRzAAAAAl81BAAAAA5wb29sU3RhdHVzQ2FsYwkBAAAADXBhcnNlSW50VmFsdWUAAAABCAUAAAATZXN0aW1hdGVkUHV0UmVzdWx0cwAAAANfMTAJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAMJWQlZCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAAMb3V0THBBbXRDYWxjCQAETAAAAAIJAAGkAAAAAQkBAAAAB2Zyb21YMTgAAAACBQAAAAtjdXJQcmljZVgxOAUAAAAGc2NhbGU4CQAETAAAAAIJAAGkAAAAAQUAAAAXcG9vbEFtdEFzc2V0QmFsYW5jZUNhbGMJAARMAAAAAgkAAaQAAAABBQAAABlwb29sUHJpY2VBc3NldEJhbGFuY2VDQWxjCQAETAAAAAIJAAGkAAAAAQUAAAARcG9vbExQQmFsYW5jZUNhbGMJAARMAAAAAgkAAaQAAAABBQAAAA5wb29sU3RhdHVzQ2FsYwUAAAADbmlsBQAAAANTRVAAAAABaQEAAAATZXZhbHVhdGVHZXRSRUFET05MWQAAAAMAAAAQcGF5bWVudExwQXNzZXRJZAAAAAxwYXltZW50THBBbXQAAAALdXNlckFkZHJlc3MEAAAAA3JlcwkBAAAAFGVzdGltYXRlR2V0T3BlcmF0aW9uAAAAAwUAAAAQcGF5bWVudExwQXNzZXRJZAUAAAAMcGF5bWVudExwQW10BQAAAAt1c2VyQWRkcmVzcwQAAAAOb3V0QW10QXNzZXRBbXQIBQAAAANyZXMAAAACXzEEAAAAEG91dFByaWNlQXNzZXRBbXQIBQAAAANyZXMAAAACXzIEAAAAE3Bvb2xBbXRBc3NldEJhbGFuY2UIBQAAAANyZXMAAAACXzcEAAAAFXBvb2xQcmljZUFzc2V0QmFsYW5jZQgFAAAAA3JlcwAAAAJfOAQAAAANcG9vbExQQmFsYW5jZQgFAAAAA3JlcwAAAAJfOQQAAAAIY3VyUHJpY2UIBQAAAANyZXMAAAADXzEwBAAAAApwb29sU3RhdHVzCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEIBQAAAANyZXMAAAADXzExCQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAADiVkJWQlZCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAAOb3V0QW10QXNzZXRBbXQJAARMAAAAAgkAAaQAAAABBQAAABBvdXRQcmljZUFzc2V0QW10CQAETAAAAAIJAAGkAAAAAQUAAAATcG9vbEFtdEFzc2V0QmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAAFXBvb2xQcmljZUFzc2V0QmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAADXBvb2xMUEJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAAhjdXJQcmljZQkABEwAAAACCQABpAAAAAEFAAAACnBvb2xTdGF0dXMFAAAAA25pbAUAAAADU0VQAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABU9yZGVyBAAAAAVvcmRlcgUAAAAHJG1hdGNoMAMJAQAAABt2YWxpZGF0ZU1hdGNoZXJPcmRlckFsbG93ZWQAAAABBQAAAAVvcmRlcgkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkHBAAAAA1tYW5hZ2VyUHVibGljCQEAAAALdmFsdWVPckVsc2UAAAACCQAEHQAAAAIFAAAABHRoaXMJAQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAUAAAAFRU1QVFkDCQAAAAAAAAIFAAAADW1hbmFnZXJQdWJsaWMFAAAABUVNUFRZCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleQkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAJAAJZAAAAAQUAAAANbWFuYWdlclB1YmxpY8sQnDc=",
    "chainId": 84,
    "height": 1735703,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Ap7HMv6v9NAL1nGxYCyFvuaaTHtNfF5HQWSCyRU7JWaR
Next: Bm2FdP5GGNUpS4kh28FQvstAUMvCTzJX4SqmbXHNa277

Diff: 

OldNewDifferences
1010 let scale18 = toBigInt(1000000000000000000)
1111 
1212 let SEP = "__"
13+
14+let EMPTY = ""
1315 
1416 let PoolActive = 1
1517 
2527 
2628 let idxPoolLPAssetId = 3
2729 
28-let idxAmountAssetId = 4
30+let idxAmtAssetId = 4
2931 
3032 let idxPriceAssetId = 5
3133 
32-let idxAmountAssetDecimals = 6
34+let idxAmtAssetDcm = 6
3335 
34-let idxPriceAssetDecimals = 7
36+let idxPriceAssetDcm = 7
3537 
36-let idxAmountAssetInternalId = 8
38+let idxIAmtAssetId = 8
3739 
38-let idxPriceAssetInternalId = 9
40+let idxIPriceAssetId = 9
3941 
40-let idxLPAssetDecimals = 10
42+let idxLPAssetDcm = 10
4143 
42-let idxMatcherPublicKey = 11
43-
44-let idxPoolAmountAssetAmt = 1
44+let idxPoolAmtAssetAmt = 1
4545 
4646 let idxPoolPriceAssetAmt = 2
4747 
4949 
5050 let idxFactoryStakingContract = 1
5151 
52-let idxFactoryBoostingConfig = 2
52+let idxFactorySlippageContract = 7
53+
54+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
55+
56+
57+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
58+
59+
60+func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
61+
5362 
5463 func keyFactoryContract () = "%s__factoryContract"
64+
65+
66+func keyManagerPublicKey () = "%s__managerPublicKey"
5567 
5668 
5769 func keyPriceLast () = "%s%s__price__last"
6072 func keyPriceHistory (h,timestamp) = makeString(["%s%s%d%d__price__history", toString(h), toString(timestamp)], SEP)
6173 
6274 
63-func keyPoolLiquidity (internalAmountAsset,internalPriceAsset) = (((("%d%d%s__" + internalAmountAsset) + "__") + internalPriceAsset) + "__locked")
64-
65-
6675 func keyPutActionByUser (userAddress,txId) = ((("%s%s%s__P__" + userAddress) + "__") + txId)
6776 
6877 
6978 func keyGetActionByUser (userAddress,txId) = ((("%s%s%s__G__" + userAddress) + "__") + txId)
7079 
7180 
72-func keyAmountAsset () = "%s__amountAsset"
81+func keyAmtAsset () = "%s__amountAsset"
7382 
7483 
7584 func keyPriceAsset () = "%s__priceAsset"
76-
77-
78-func keyKCurrent () = "%s%s__K_current"
7985 
8086 
8187 func keyKHistoric (h,timestamp) = makeString(["%s%s%d%d__K_history", toString(h), toString(timestamp)], SEP)
8793 func keyMappingPoolContractAddressToPoolAssets (poolContractAddress) = (("%s%s%s__" + poolContractAddress) + "__mappings__poolContract2LpAsset")
8894 
8995 
90-func keyPoolConfig (amountAssetInternal,priceAssetInternal) = (((("%d%d%s__" + amountAssetInternal) + "__") + priceAssetInternal) + "__config")
96+func keyPoolConfig (iAmtAsset,iPriceAsset) = (((("%d%d%s__" + iAmtAsset) + "__") + iPriceAsset) + "__config")
9197 
9298 
9399 func keyMappingsBaseAsset2internalId (baseAssetStr) = ("%s%s%s__mappings__baseAsset2internalId__" + baseAssetStr)
99105 func keyPoolWeight (contractAddress) = ("%s%s__poolWeight__" + contractAddress)
100106 
101107 
102-let factoryContract = addressFromStringValue(valueOrErrorMessage(getString(this, keyFactoryContract()), "No Factory Account found."))
108+func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
109+
110+
111+func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
112+
113+
114+let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContract()))
103115 
104116 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
105117 
106118 
107119 func getPoolConfig () = {
108-    let poolAmountAsset = valueOrErrorMessage(getString(this, keyAmountAsset()), "No config for amount asset found")
109-    let poolPriceAsset = valueOrErrorMessage(getString(this, keyPriceAsset()), "No config for price asset found")
110-    let poolPriceAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolPriceAsset)), "No config for internal price asset found")
111-    let poolAmountAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolAmountAsset)), "No config for internal amount asset found")
112-    split(valueOrErrorMessage(getString(factoryContract, keyPoolConfig(toString(poolAmountAssetInternal), toString(poolPriceAssetInternal))), "No factory config found for pool assets."), SEP)
120+    let amtAsset = getStringOrFail(this, keyAmtAsset())
121+    let priceAsset = getStringOrFail(this, keyPriceAsset())
122+    let iPriceAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAsset))
123+    let iAmtAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAsset))
124+    split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAsset), toString(iPriceAsset))), SEP)
113125     }
114126 
115127 
116-func getFactoryConfig () = split(valueOrErrorMessage(getString(factoryContract, keyFactoryConfig()), "No factory config found."), SEP)
128+func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
117129 
118130 
119-func getPoolLiquidity (amountAssetInternalId,priceAssetInternalId) = {
120-    let currentPoolLiquidityValue = getString(this, keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId))
121-    if (isDefined(currentPoolLiquidityValue))
122-        then split(value(currentPoolLiquidityValue), SEP)
123-        else ["", "0", "0", "0"]
124-    }
131+func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slippageTolerancePassedByUser,slippageToleranceReal,txHeight,txTimestamp,slipageAmtAssetAmt,slipagePriceAssetAmt) = makeString(["%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)
125132 
126133 
127-func dataPoolLiquidity (amountAssetLocked,priceAssetLocked,lpTokenLocked) = makeString(["%d%d%d", toString(amountAssetLocked), toString(priceAssetLocked), toString(lpTokenLocked)], SEP)
134+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)
128135 
129136 
130-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)
131-
132-
133-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)
134-
135-
136-func privateCastToScaleOf (amount,resultScale,currentScale) = fraction(amount, resultScale, currentScale)
137-
138-
139-func privateBigIntCastToScaleOf (amount,resultScale,currentScale) = fraction(amount, resultScale, currentScale)
140-
141-
142-func calculatePrice (priceAssetLockedAmt,amountAssetlLockedAmt) = fraction(priceAssetLockedAmt, scale8, amountAssetlLockedAmt)
143-
144-
145-func calculatePriceBigInt (priceAssetLockedAmt,amountAssetlLockedAmt) = toInt(fraction(priceAssetLockedAmt, scale8BigInt, amountAssetlLockedAmt))
146-
147-
148-func privateCalculatePrice (amoutAssetDecimals,priceAssetDecimals,amountAssetAmt,priceAssetAmt) = {
149-    let amountAssetAmtCasted = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
150-    let priceAssetAmtCasted = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
151-    calculatePrice(priceAssetAmtCasted, amountAssetAmtCasted)
152-    }
153-
154-
155-func privateGetAccountBalance (assetId) = if ((assetId == "WAVES"))
137+func getAccBalance (assetId) = if ((assetId == "WAVES"))
156138     then wavesBalance(this).available
157139     else assetBalance(this, fromBase58String(assetId))
158140 
159141 
160-func calculatePrices (amountAssetAmt,priceAssetAmt,lpAmount) = {
161-    let poolConfigDataList = getPoolConfig()
162-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
163-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
164-    let poolPrice = privateCalculatePrice(amoutAssetDecimals, priceAssetDecimals, amountAssetAmt, priceAssetAmt)
165-    let amountAssetPoolLockedAmt = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
166-    let priceAssetPoolLockedAmt = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
167-    let lpPriceInAmountAsset = calculatePrice(amountAssetPoolLockedAmt, lpAmount)
168-    let lpPriceInPriceAsset = calculatePrice(priceAssetPoolLockedAmt, lpAmount)
169-[poolPrice, lpPriceInAmountAsset, lpPriceInPriceAsset]
142+func calcPriceBigInt (priceAssetLockedAmt,amtAssetlLockedAmt,resultScale) = fraction(priceAssetLockedAmt, resultScale, amtAssetlLockedAmt)
143+
144+
145+func privateCalcPrice (amtAssetDcm,priceAssetDcm,amtAssetAmt,priceAssetAmt) = {
146+    let amtAssetAmtX18 = toX18(amtAssetAmt, amtAssetDcm)
147+    let priceAssetAmtX18 = toX18(priceAssetAmt, priceAssetDcm)
148+    toInt(calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18, scale8BigInt))
170149     }
171150 
172151 
173-func privateEstimateGetOperation (paymentLpAssetId,paymentLpAmount,userAddress) = {
152+func calcPrices (amtAssetAmt,priceAssetAmt,lpAmt) = {
153+    let cfg = getPoolConfig()
154+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
155+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
156+    let poolPrice = privateCalcPrice(amtAssetDcm, priceAssetDcm, amtAssetAmt, priceAssetAmt)
157+    let amtAssetAmtX18 = toX18(amtAssetAmt, amtAssetDcm)
158+    let priceAssetAmtX18 = toX18(priceAssetAmt, priceAssetDcm)
159+    let lpAmtX18 = toX18(lpAmt, scale8)
160+    let lpPriceInAmtAsset = toInt(calcPriceBigInt(amtAssetAmtX18, lpAmtX18, scale8BigInt))
161+    let lpPriceInPriceAsset = toInt(calcPriceBigInt(priceAssetAmtX18, lpAmtX18, scale8BigInt))
162+[poolPrice, lpPriceInAmtAsset, lpPriceInPriceAsset]
163+    }
164+
165+
166+func estimateGetOperation (paymentLpAssetId,paymentLpAmt,userAddress) = {
174167     let poolConfigList = getPoolConfig()
175168     let lpAssetId = poolConfigList[idxPoolLPAssetId]
176-    let amountAssetId = poolConfigList[idxAmountAssetId]
169+    let amtAssetId = poolConfigList[idxAmtAssetId]
177170     let priceAssetId = poolConfigList[idxPriceAssetId]
178-    let amountAssetInternalId = poolConfigList[idxAmountAssetInternalId]
179-    let priceAssetInternalId = poolConfigList[idxPriceAssetInternalId]
180-    let amoutAssetDecimals = parseIntValue(poolConfigList[idxAmountAssetDecimals])
181-    let priceAssetDecimals = parseIntValue(poolConfigList[idxPriceAssetDecimals])
171+    let iAmtAssetId = poolConfigList[idxIAmtAssetId]
172+    let iPriceAssetId = poolConfigList[idxIPriceAssetId]
173+    let amtAssetDcm = parseIntValue(poolConfigList[idxAmtAssetDcm])
174+    let priceAssetDcm = parseIntValue(poolConfigList[idxPriceAssetDcm])
182175     let poolStatus = poolConfigList[idxPoolStatus]
183-    let poolLiquidityList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
184-    let poolLPBalance = parseIntValue(poolLiquidityList[idxPoolLPAssetAmt])
185-    let poolAmountAssetBalance = parseIntValue(poolLiquidityList[idxPoolAmountAssetAmt])
186-    let poolPriceAssetBalance = parseIntValue(poolLiquidityList[idxPoolPriceAssetAmt])
176+    let poolLPBalance = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), (("Asset " + lpAssetId) + " doesn't exist")).quantity
187177     if ((lpAssetId != paymentLpAssetId))
188178         then throw("Invalid asset passed.")
189179         else {
190-            let amountAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(privateGetAccountBalance(amountAssetId)), scale18, toBigInt(amoutAssetDecimals))
191-            let priceAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(privateGetAccountBalance(priceAssetId)), scale18, toBigInt(priceAssetDecimals))
192-            let currentPrice = calculatePriceBigInt(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
193-            let paymentLpAmountBuf = privateBigIntCastToScaleOf(toBigInt(paymentLpAmount), scale18, scale8BigInt)
194-            let poolLPBalanceBuf = privateBigIntCastToScaleOf(toBigInt(poolLPBalance), scale18, scale8BigInt)
195-            let outAmountAssetAmt = fraction(amountAssetPoolLockedAmt, paymentLpAmountBuf, poolLPBalanceBuf)
196-            let outPriceAssetAmt = fraction(priceAssetPoolLockedAmt, paymentLpAmountBuf, poolLPBalanceBuf)
197-            let outAmountAssetAmtFinal = toInt(privateBigIntCastToScaleOf(outAmountAssetAmt, toBigInt(amoutAssetDecimals), scale18))
198-            let outPriceAssetAmtFinal = toInt(privateBigIntCastToScaleOf(outPriceAssetAmt, toBigInt(priceAssetDecimals), scale18))
199-            $Tuple11(outAmountAssetAmtFinal, outPriceAssetAmtFinal, amountAssetInternalId, priceAssetInternalId, amountAssetId, priceAssetId, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, currentPrice, poolStatus)
180+            let amtAssetBalance = getAccBalance(amtAssetId)
181+            let amtAssetBalanceX18 = toX18(amtAssetBalance, amtAssetDcm)
182+            let priceAssetBalance = getAccBalance(priceAssetId)
183+            let priceAssetBalanceX18 = toX18(priceAssetBalance, priceAssetDcm)
184+            let curPrice = toInt(calcPriceBigInt(priceAssetBalanceX18, amtAssetBalanceX18, scale8BigInt))
185+            let paymentLpAmtX18 = toX18(paymentLpAmt, scale8)
186+            let poolLPBalanceX18 = toX18(poolLPBalance, scale8)
187+            let outAmtAssetAmt = fraction(amtAssetBalanceX18, paymentLpAmtX18, poolLPBalanceX18)
188+            let outPriceAssetAmt = fraction(priceAssetBalanceX18, paymentLpAmtX18, poolLPBalanceX18)
189+            let outAmtAssetAmtFinal = fromX18(outAmtAssetAmt, amtAssetDcm)
190+            let outPriceAssetAmtFinal = fromX18(outPriceAssetAmt, priceAssetDcm)
191+            $Tuple11(outAmtAssetAmtFinal, outPriceAssetAmtFinal, iAmtAssetId, iPriceAssetId, amtAssetId, priceAssetId, amtAssetBalance, priceAssetBalance, poolLPBalance, curPrice, poolStatus)
200192             }
201193     }
202194 
203195 
204-func privateEstimatePutOperation (slippageTolerance,inAmountAssetAmt,inAmountAssetId,inPriceAssetAmt,inPriceAssetId,userAddress,isEvaluate) = {
205-    let poolConfigDataList = getPoolConfig()
206-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
207-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
208-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
209-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
210-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
211-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
212-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
213-    let poolStatus = poolConfigDataList[idxPoolStatus]
214-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
215-    let poolAmountAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolAmountAssetAmt])
216-    let poolPriceAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolPriceAssetAmt])
217-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
218-    if (if ((amountAssetId != inAmountAssetId))
196+func estimatePutOperation (slippageTolerance,inAmtAssetAmt,inAmtAssetId,inPriceAssetAmt,inPriceAssetId,userAddress,isEvaluate) = {
197+    let cfg = getPoolConfig()
198+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
199+    let amtAssetId = cfg[idxAmtAssetId]
200+    let priceAssetId = cfg[idxPriceAssetId]
201+    let iAmtAssetId = cfg[idxIAmtAssetId]
202+    let iPriceAssetId = cfg[idxIPriceAssetId]
203+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
204+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
205+    let poolStatus = cfg[idxPoolStatus]
206+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
207+    if (if ((amtAssetId != inAmtAssetId))
219208         then true
220209         else (priceAssetId != inPriceAssetId))
221-        then throw("Invalid amount or price asset passed.")
210+        then throw("Invalid amt or price asset passed.")
222211         else {
223-            let accountAmountAssetBalance = if (isEvaluate)
224-                then privateGetAccountBalance(amountAssetId)
225-                else (privateGetAccountBalance(amountAssetId) - inAmountAssetAmt)
226-            let accountPriceAssetBalance = if (isEvaluate)
227-                then privateGetAccountBalance(priceAssetId)
228-                else (privateGetAccountBalance(priceAssetId) - inPriceAssetAmt)
229-            let amoutAssetDecimalsBigInt = toBigInt(amoutAssetDecimals)
230-            let priceAssetDecimalsBigInt = toBigInt(priceAssetDecimals)
231-            let inAmountAssetAmtCalculated = privateBigIntCastToScaleOf(toBigInt(inAmountAssetAmt), scale18, amoutAssetDecimalsBigInt)
232-            let inPriceAssetAmtCalculated = privateBigIntCastToScaleOf(toBigInt(inPriceAssetAmt), scale18, priceAssetDecimalsBigInt)
233-            let userPrice = calculatePriceBigInt(inPriceAssetAmtCalculated, inAmountAssetAmtCalculated)
234-            let amountAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(accountAmountAssetBalance), scale18, amoutAssetDecimalsBigInt)
235-            let priceAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(accountPriceAssetBalance), scale18, priceAssetDecimalsBigInt)
236-            let curentPrice = if ((poolLPBalance == 0))
212+            let accAmtAssetBalance = if (isEvaluate)
213+                then getAccBalance(amtAssetId)
214+                else (getAccBalance(amtAssetId) - inAmtAssetAmt)
215+            let accPriceAssetBalance = if (isEvaluate)
216+                then getAccBalance(priceAssetId)
217+                else (getAccBalance(priceAssetId) - inPriceAssetAmt)
218+            let inAmtAssetAmtX18 = toX18(inAmtAssetAmt, amtAssetDcm)
219+            let inPriceAssetAmtX18 = toX18(inPriceAssetAmt, priceAssetDcm)
220+            let userPrice = toInt(calcPriceBigInt(inPriceAssetAmtX18, inAmtAssetAmtX18, scale8BigInt))
221+            let accAmtAssetBalanceX18 = toX18(accAmtAssetBalance, amtAssetDcm)
222+            let accPriceAssetBalanceX18 = toX18(accPriceAssetBalance, priceAssetDcm)
223+            let curPrice = if ((poolLPBalance == 0))
237224                 then 0
238-                else calculatePriceBigInt(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
239-            let slippage = if ((curentPrice == 0))
225+                else toInt(calcPriceBigInt(accPriceAssetBalanceX18, accAmtAssetBalanceX18, scale8BigInt))
226+            let slippage = if ((curPrice == 0))
240227                 then 0
241-                else if ((curentPrice > userPrice))
242-                    then fraction((curentPrice - userPrice), 100, curentPrice)
243-                    else fraction((userPrice - curentPrice), 100, curentPrice)
244-            if (if ((curentPrice != 0))
245-                then ((slippage * scale8) > slippageTolerance)
228+                else if ((curPrice > userPrice))
229+                    then fraction((curPrice - userPrice), scale8, curPrice)
230+                    else fraction((userPrice - curPrice), scale8, curPrice)
231+            if (if ((curPrice != 0))
232+                then (slippage > slippageTolerance)
246233                 else false)
247-                then throw(((("Price slippage " + toString((slippage * scale8))) + " exceeded the passed limit of ") + toString(slippageTolerance)))
234+                then throw(((("Price slippage " + toString(slippage)) + " exceeded the passed limit of ") + toString(slippageTolerance)))
248235                 else {
249-                    let finalPrice = calculatePriceBigInt((priceAssetPoolLockedAmt + inPriceAssetAmtCalculated), (amountAssetPoolLockedAmt + inAmountAssetAmtCalculated))
250-                    let outLpAmount = if ((poolLPBalance == 0))
236+                    let res = if ((poolLPBalance == 0))
251237                         then {
252-                            let lpResultBuf = pow((inAmountAssetAmtCalculated * inPriceAssetAmtCalculated), 0, toBigInt(5), 1, 0, DOWN)
253-                            toInt(privateBigIntCastToScaleOf(lpResultBuf, scale8BigInt, scale18))
238+                            let lpResultBuf = pow((inAmtAssetAmtX18 * inPriceAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
239+                            $Tuple4(fromX18(lpResultBuf, scale8), fromX18(inAmtAssetAmtX18, amtAssetDcm), fromX18(inPriceAssetAmtX18, priceAssetDcm), toInt(calcPriceBigInt((accPriceAssetBalanceX18 + inPriceAssetAmtX18), (accAmtAssetBalanceX18 + inAmtAssetAmtX18), scale8BigInt)))
254240                             }
255241                         else {
256-                            let poolLPBalanceBuf = privateBigIntCastToScaleOf(toBigInt(poolLPBalance), scale18, scale8BigInt)
257-                            let lpAmtByAmountAsset = toInt(privateBigIntCastToScaleOf(fraction(poolLPBalanceBuf, inAmountAssetAmtCalculated, amountAssetPoolLockedAmt), scale8BigInt, scale18))
258-                            let lpAmtByPriceAsset = toInt(privateBigIntCastToScaleOf(fraction(poolLPBalanceBuf, inPriceAssetAmtCalculated, priceAssetPoolLockedAmt), scale8BigInt, scale18))
259-                            if ((lpAmtByPriceAsset > lpAmtByAmountAsset))
260-                                then lpAmtByAmountAsset
261-                                else lpAmtByPriceAsset
242+                            let poolLPBalanceX18 = toX18(poolLPBalance, scale8)
243+                            let curPriceX18 = toX18(curPrice, scale8)
244+                            let pEqByA = fraction(curPriceX18, inAmtAssetAmtX18, scale18)
245+                            let resAssetsToPut = if ((pEqByA > inPriceAssetAmtX18))
246+                                then $Tuple2(fraction(inPriceAssetAmtX18, scale18, curPriceX18), inPriceAssetAmtX18)
247+                                else $Tuple2(inAmtAssetAmtX18, pEqByA)
248+                            let lpResult = fromX18(fraction(poolLPBalanceX18, resAssetsToPut._2, accPriceAssetBalanceX18), scale8)
249+                            $Tuple4(lpResult, fromX18(resAssetsToPut._1, amtAssetDcm), fromX18(resAssetsToPut._2, priceAssetDcm), toInt(calcPriceBigInt((accPriceAssetBalanceX18 + resAssetsToPut._2), (accAmtAssetBalanceX18 + resAssetsToPut._1), scale8BigInt)))
262250                             }
263-                    if ((0 >= outLpAmount))
251+                    if ((0 >= res._1))
264252                         then throw("Invalid calculations. LP calculated is less than zero.")
265-                        else $Tuple10(outLpAmount, finalPrice, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, amountAssetInternalId, priceAssetInternalId, lpAssetId, slippage, poolStatus)
253+                        else $Tuple12(res._1, res._4, accAmtAssetBalance, accPriceAssetBalance, poolLPBalance, iAmtAssetId, iPriceAssetId, lpAssetId, slippage, poolStatus, res._2, res._3)
266254                     }
267255             }
268256     }
269257 
270258 
271259 func validateMatcherOrderAllowed (order) = {
272-    let poolConfigDataList = getPoolConfig()
273-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
274-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
275-    let poolStatus = parseIntValue(poolConfigDataList[idxPoolStatus])
276-    let matcherPublicKeyStr = poolConfigDataList[idxMatcherPublicKey]
277-    let amountAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
278-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
279-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
280-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
281-    let currentPrice = if ((order.orderType == Buy))
282-        then privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
283-        else privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
284-    let isPoolStatusValid = if (if (if (isGlobalShutdown())
260+    let cfg = getPoolConfig()
261+    let amtAssetId = cfg[idxAmtAssetId]
262+    let priceAssetId = cfg[idxPriceAssetId]
263+    let poolStatus = parseIntValue(cfg[idxPoolStatus])
264+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
265+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
266+    let accAmtAssetBalance = getAccBalance(amtAssetId)
267+    let accPriceAssetBalance = getAccBalance(priceAssetId)
268+    let curPrice = if ((order.orderType == Buy))
269+        then privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance + order.amount), accPriceAssetBalance)
270+        else privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance - order.amount), accPriceAssetBalance)
271+    if (if (if (isGlobalShutdown())
285272         then true
286273         else (poolStatus == PoolMatcherDisabled))
287274         then true
288275         else (poolStatus == PoolShutdown))
289-        then false
290-        else true
291-    let isValidMatcherSign = true
292-    let orderAmountAsset = order.assetPair.amountAsset
293-    let orderAmountAssetStr = if ((orderAmountAsset == unit))
294-        then "WAVES"
295-        else toBase58String(value(orderAmountAsset))
296-    let orderPriceAsset = order.assetPair.priceAsset
297-    let orderPriceAssetStr = if ((orderPriceAsset == unit))
298-        then "WAVES"
299-        else toBase58String(value(orderPriceAsset))
300-    let isValidAssetPair = if (if ((orderAmountAssetStr != amountAssetId))
301-        then true
302-        else (orderPriceAssetStr != priceAssetId))
303-        then false
304-        else true
305-    let orderPrice = order.price
306-    let priceDecimals = fraction(scale8, priceAssetDecimals, amountAssetDecimals)
307-    let castedOrderPrice = privateCastToScaleOf(orderPrice, scale8, priceDecimals)
308-    let isOrderPriceValid = if ((order.orderType == Buy))
309-        then (currentPrice >= castedOrderPrice)
310-        else (castedOrderPrice >= currentPrice)
311-    if (if (if (isValidAssetPair)
312-        then isValidMatcherSign
313-        else false)
314-        then isPoolStatusValid
315-        else false)
316-        then isOrderPriceValid
317-        else false
276+        then throw("Exchange operations disabled")
277+        else {
278+            let orderAmtAsset = order.assetPair.amountAsset
279+            let orderAmtAssetStr = if ((orderAmtAsset == unit))
280+                then "WAVES"
281+                else toBase58String(value(orderAmtAsset))
282+            let orderPriceAsset = order.assetPair.priceAsset
283+            let orderPriceAssetStr = if ((orderPriceAsset == unit))
284+                then "WAVES"
285+                else toBase58String(value(orderPriceAsset))
286+            if (if ((orderAmtAssetStr != amtAssetId))
287+                then true
288+                else (orderPriceAssetStr != priceAssetId))
289+                then throw("Wrong order assets.")
290+                else {
291+                    let orderPrice = order.price
292+                    let priceDcm = fraction(scale8, priceAssetDcm, amtAssetDcm)
293+                    let castedOrderPrice = toScale(orderPrice, scale8, priceDcm)
294+                    let isOrderPriceValid = if ((order.orderType == Buy))
295+                        then (curPrice >= castedOrderPrice)
296+                        else (castedOrderPrice >= curPrice)
297+                    if (!(isOrderPriceValid))
298+                        then throw(((("Order price leads to K decrease. castedOrderPrice=" + toString(castedOrderPrice)) + " curPrice=") + toString(curPrice)))
299+                        else true
300+                    }
301+            }
318302     }
319303 
320304 
321-@Callable(i)
322-func constructor (factoryContract) = if ((i.caller != this))
323-    then throw("permissions denied")
324-    else [StringEntry(keyFactoryContract(), factoryContract)]
305+func commonGet (i) = {
306+    let pmtAmtAsset = value(i.payments[0])
307+    let pmtAssetId = value(pmtAmtAsset.assetId)
308+    let pmtAssetAmt = pmtAmtAsset.amount
309+    let res = estimateGetOperation(toBase58String(pmtAssetId), pmtAssetAmt, toString(i.caller))
310+    let outAmtAssetAmt = res._1
311+    let outPriceAssetAmt = res._2
312+    let iAmtAssetId = res._3
313+    let iPriceAssetId = res._4
314+    let amtAssetId = res._5
315+    let priceAssetId = res._6
316+    let poolAmtAssetBalance = res._7
317+    let poolPriceAssetBalance = res._8
318+    let poolLPBalance = res._9
319+    let curPrice = res._10
320+    let poolStatus = parseIntValue(res._11)
321+    if (if (isGlobalShutdown())
322+        then true
323+        else (poolStatus == PoolShutdown))
324+        then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
325+        else $Tuple5(outAmtAssetAmt, outPriceAssetAmt, pmtAssetAmt, pmtAssetId, [ScriptTransfer(i.caller, outAmtAssetAmt, if ((amtAssetId == "WAVES"))
326+            then unit
327+            else fromBase58String(amtAssetId)), ScriptTransfer(i.caller, outPriceAssetAmt, if ((priceAssetId == "WAVES"))
328+            then unit
329+            else fromBase58String(priceAssetId)), StringEntry(keyGetActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataGetActionInfo(outAmtAssetAmt, outPriceAssetAmt, pmtAssetAmt, curPrice, height, lastBlock.timestamp)), StringEntry(keyPriceLast(), ("%s__" + toString(curPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(curPrice)))])
330+    }
325331 
326332 
327-
328-@Callable(i)
329-func put (slippageTolerance,shouldAutoStake) = {
330-    let factoryConfigList = getFactoryConfig()
331-    let stakingContract = valueOrErrorMessage(addressFromString(factoryConfigList[idxFactoryStakingContract]), "Error. Incorrect staking address.")
332-    let pmtAmountAsset = value(i.payments[0])
333-    let inAmountAssetAmt = pmtAmountAsset.amount
334-    let inAmountAssetId = if (!(isDefined(pmtAmountAsset.assetId)))
333+func commonPut (i,slippageTolerance,emitLp) = {
334+    let pmtAmtAsset = value(i.payments[0])
335+    let inAmtAssetAmt = pmtAmtAsset.amount
336+    let inAmtAssetId = if (!(isDefined(pmtAmtAsset.assetId)))
335337         then fromBase58String("WAVES")
336-        else value(pmtAmountAsset.assetId)
338+        else value(pmtAmtAsset.assetId)
337339     let pmtPriceAsset = value(i.payments[1])
338340     let inPriceAssetAmt = pmtPriceAsset.amount
339341     let inPriceAssetId = if (!(isDefined(pmtPriceAsset.assetId)))
340342         then fromBase58String("WAVES")
341343         else value(pmtPriceAsset.assetId)
342-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, toBase58String(inAmountAssetId), inPriceAssetAmt, toBase58String(inPriceAssetId), toString(i.caller), false)
343-    let outLpAmount = estimatedPutResults._1
344-    let curentPrice = estimatedPutResults._2
345-    let poolAmountAssetBalance = estimatedPutResults._3
346-    let poolPriceAssetBalance = estimatedPutResults._4
347-    let poolLPBalance = estimatedPutResults._5
348-    let amountAssetInternalId = estimatedPutResults._6
349-    let priceAssetInternalId = estimatedPutResults._7
350-    let lpAssetId = estimatedPutResults._8
351-    let slippageCalculated = estimatedPutResults._9
352-    let poolStatus = parseIntValue(estimatedPutResults._10)
344+    let estPut = estimatePutOperation(slippageTolerance, inAmtAssetAmt, toBase58String(inAmtAssetId), inPriceAssetAmt, toBase58String(inPriceAssetId), toString(i.caller), false)
345+    let outLpAmt = estPut._1
346+    let curPrice = estPut._2
347+    let poolAmtAssetBalance = estPut._3
348+    let poolPriceAssetBalance = estPut._4
349+    let poolLPBalance = estPut._5
350+    let iAmtAssetId = estPut._6
351+    let iPriceAssetId = estPut._7
352+    let lpAssetId = estPut._8
353+    let slippageCalc = estPut._9
354+    let poolStatus = parseIntValue(estPut._10)
355+    let realAmtAssetIn = estPut._11
356+    let realPriceAssetIn = estPut._12
353357     if (if (if (isGlobalShutdown())
354358         then true
355359         else (poolStatus == PoolPutDisabled))
357361         else (poolStatus == PoolShutdown))
358362         then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
359363         else {
360-            let emitLPAssetOnFactory = invoke(factoryContract, "emit", [outLpAmount], nil)
361-            if ((emitLPAssetOnFactory == emitLPAssetOnFactory))
362-                then if ((emitLPAssetOnFactory != "success"))
363-                    then throw("LP asset reissue failed during emit call on factory.")
364-                    else {
365-                        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(keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId), dataPoolLiquidity((poolAmountAssetBalance + inAmountAssetAmt), (poolPriceAssetBalance + inPriceAssetAmt), (poolLPBalance + outLpAmount)))]
366-                        if (shouldAutoStake)
367-                            then {
368-                                let stake = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, outLpAmount)])
369-                                if ((stake == stake))
370-                                    then results
371-                                    else throw("Strict value is not equal to itself.")
372-                                }
373-                            else (results :+ ScriptTransfer(i.caller, outLpAmount, lpAssetId))
374-                        }
364+            let lpAmtToEmit = if (!(emitLp))
365+                then 0
366+                else outLpAmt
367+            let diffInAmtAsset = (inAmtAssetAmt - realAmtAssetIn)
368+            let diffInPriceAsset = (inPriceAssetAmt - realPriceAssetIn)
369+            let dataStateWrite = [StringEntry(keyPriceLast(), ("%s__" + toString(curPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(curPrice))), StringEntry(keyPutActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataPutActionInfo(realAmtAssetIn, realPriceAssetIn, lpAmtToEmit, curPrice, slippageTolerance, slippageCalc, height, lastBlock.timestamp, diffInAmtAsset, diffInPriceAsset))]
370+            $Tuple9(lpAmtToEmit, lpAssetId, dataStateWrite, inAmtAssetAmt, realAmtAssetIn, inPriceAssetAmt, realPriceAssetIn, pmtAmtAsset.assetId, pmtPriceAsset.assetId)
371+            }
372+    }
373+
374+
375+@Callable(i)
376+func constructor (factoryContract,managerPublicKey) = if ((i.caller != this))
377+    then throw("permissions denied")
378+    else [StringEntry(keyFactoryContract(), factoryContract), StringEntry(keyManagerPublicKey(), managerPublicKey)]
379+
380+
381+
382+@Callable(i)
383+func put (slippageTolerance,shouldAutoStake) = {
384+    let factoryCfg = getFactoryConfig()
385+    let stakingContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactoryStakingContract]), "Error. Incorrect staking address.")
386+    let slippageContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactorySlippageContract]), "Error. Incorrect slippage contract address.")
387+    let actions = commonPut(i, slippageTolerance, true)
388+    let amtToEmit = actions._1
389+    let lpAssetId = actions._2
390+    let state = actions._3
391+    let inAmt = actions._4
392+    let realInAmt = actions._5
393+    let inPrice = actions._6
394+    let realInPrice = actions._7
395+    let amId = actions._8
396+    let prId = actions._9
397+    let diffInAmtAsset = (inAmt - realInAmt)
398+    let diffInPriceAsset = (inPrice - realInPrice)
399+    let emitInv = invoke(factoryContract, "emit", [amtToEmit], nil)
400+    if ((emitInv == emitInv))
401+        then {
402+            let slippageAInv = if ((inAmt > realInAmt))
403+                then invoke(slippageContract, "put", nil, [AttachedPayment(amId, diffInAmtAsset)])
404+                else nil
405+            if ((slippageAInv == slippageAInv))
406+                then {
407+                    let slippagePInv = if ((inPrice > realInPrice))
408+                        then invoke(slippageContract, "put", nil, [AttachedPayment(prId, diffInPriceAsset)])
409+                        else nil
410+                    if ((slippagePInv == slippagePInv))
411+                        then {
412+                            let lpStakeInv = if (shouldAutoStake)
413+                                then invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, amtToEmit)])
414+                                else nil
415+                            if ((lpStakeInv == lpStakeInv))
416+                                then (state :+ ScriptTransfer(i.caller, amtToEmit, lpAssetId))
417+                                else throw("Strict value is not equal to itself.")
418+                            }
419+                        else throw("Strict value is not equal to itself.")
420+                    }
375421                 else throw("Strict value is not equal to itself.")
376422             }
423+        else throw("Strict value is not equal to itself.")
424+    }
425+
426+
427+
428+@Callable(i)
429+func putForFree () = {
430+    let actions = commonPut(i, 0, false)
431+    actions._3
377432     }
378433 
379434 
380435 
381436 @Callable(i)
382437 func get () = {
383-    let pmtAmountAsset = value(i.payments[0])
384-    let pmtAssetId = value(pmtAmountAsset.assetId)
385-    let pmtAssetAmount = pmtAmountAsset.amount
386-    let results = privateEstimateGetOperation(toBase58String(pmtAssetId), pmtAssetAmount, toString(i.caller))
387-    let outAmountAssetAmt = results._1
388-    let outPriceAssetAmt = results._2
389-    let amountAssetInternalId = results._3
390-    let priceAssetInternalId = results._4
391-    let amountAssetId = results._5
392-    let priceAssetId = results._6
393-    let poolAmountAssetBalance = results._7
394-    let poolPriceAssetBalance = results._8
395-    let poolLPBalance = results._9
396-    let currentPrice = results._10
397-    let poolStatus = parseIntValue(results._11)
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(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-            }
438+    let res = commonGet(i)
439+    let outAmtAssetAmt = res._1
440+    let outPriceAssetAmt = res._2
441+    let pmtAssetAmt = res._3
442+    let pmtAssetId = res._4
443+    let actions = res._5
444+    let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAssetAmt], [AttachedPayment(pmtAssetId, pmtAssetAmt)])
445+    if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
446+        then actions
447+        else throw("Strict value is not equal to itself.")
412448     }
413449 
414450 
415451 
416452 @Callable(i)
417-func activate (amountAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
453+func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
454+    let res = commonGet(i)
455+    let outAmtAssetAmt = res._1
456+    let outPriceAssetAmt = res._2
457+    let pmtAssetAmt = res._3
458+    let pmtAssetId = res._4
459+    let actions = res._5
460+    if ((noLessThenAmtAsset > outAmtAssetAmt))
461+        then throw(((("noLessThenAmtAsset failed:  " + toString(outAmtAssetAmt)) + " < ") + toString(noLessThenAmtAsset)))
462+        else if ((noLessThenPriceAsset > outPriceAssetAmt))
463+            then throw(((("noLessThenPriceAsset failed: " + toString(outPriceAssetAmt)) + " < ") + toString(noLessThenPriceAsset)))
464+            else {
465+                let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAssetAmt], [AttachedPayment(pmtAssetId, pmtAssetAmt)])
466+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
467+                    then actions
468+                    else throw("Strict value is not equal to itself.")
469+                }
470+    }
471+
472+
473+
474+@Callable(i)
475+func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
418476     then throw("permissions denied")
419-    else $Tuple2([StringEntry(keyAmountAsset(), amountAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
477+    else $Tuple2([StringEntry(keyAmtAsset(), amtAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
420478 
421479 
422480 
423481 @Callable(i)
424482 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 lpAmountAssetShare = pricesList[1]
483+    let cfg = getPoolConfig()
484+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
485+    let amtAssetId = cfg[idxAmtAssetId]
486+    let priceAssetId = cfg[idxPriceAssetId]
487+    let iAmtAssetId = cfg[idxIAmtAssetId]
488+    let iPriceAssetId = cfg[idxIPriceAssetId]
489+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
490+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
491+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
492+    let accAmtAssetBalance = getAccBalance(amtAssetId)
493+    let accPriceAssetBalance = getAccBalance(priceAssetId)
494+    let pricesList = calcPrices(accAmtAssetBalance, accPriceAssetBalance, poolLPBalance)
495+    let curPrice = pricesList[0]
496+    let lpAmtAssetShare = pricesList[1]
440497     let lpPriceAssetShare = 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(lpAmountAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
498+    let poolWeight = value(getInteger(factoryContract, keyPoolWeight(toString(this))))
499+    $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))
443500     }
444501 
445502 
446503 
447504 @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._3
505+func evaluatePutByAmtAssetREADONLY (slippageTolerance,inAmtAssetAmt,userAddress) = {
506+    let cfg = getPoolConfig()
507+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
508+    let amtAssetId = cfg[idxAmtAssetId]
509+    let priceAssetId = cfg[idxPriceAssetId]
510+    let iAmtAssetId = cfg[idxIAmtAssetId]
511+    let iPriceAssetId = cfg[idxIPriceAssetId]
512+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
513+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
514+    let poolStatus = cfg[idxPoolStatus]
515+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
516+    let accAmtAssetBalance = getAccBalance(amtAssetId)
517+    let accPriceAssetBalance = getAccBalance(priceAssetId)
518+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
519+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
520+    let curPriceX18 = if ((poolLPBalance == 0))
521+        then toBigInt(0)
522+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18, scale18)
523+    let inAmtAssetAmtX18 = toX18(inAmtAssetAmt, amtAssetDcm)
524+    let inPriceAssetAmtX18 = fraction(inAmtAssetAmtX18, curPriceX18, scale18)
525+    let inPriceAssetAmt = fromX18(inPriceAssetAmtX18, priceAssetDcm)
526+    let estimatedPutResults = estimatePutOperation(slippageTolerance, inAmtAssetAmt, amtAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
527+    let outLpAmtCalc = estimatedPutResults._1
528+    let curPriceCalc = estimatedPutResults._2
529+    let poolAmtAssetBalanceCalc = estimatedPutResults._3
473530     let poolPriceAssetBalanceCAlc = estimatedPutResults._4
474531     let poolLPBalanceCalc = estimatedPutResults._5
475532     let poolStatusCalc = parseIntValue(estimatedPutResults._10)
476-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
533+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmtCalc), toString(fromX18(curPriceX18, scale8)), toString(poolAmtAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
477534     }
478535 
479536 
480537 
481538 @Callable(i)
482539 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._3
540+    let cfg = getPoolConfig()
541+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
542+    let amtAssetId = cfg[idxAmtAssetId]
543+    let priceAssetId = cfg[idxPriceAssetId]
544+    let iAmtAssetId = cfg[idxIAmtAssetId]
545+    let iPriceAssetId = cfg[idxIPriceAssetId]
546+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
547+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
548+    let poolStatus = cfg[idxPoolStatus]
549+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
550+    let accAmtAssetBalance = getAccBalance(amtAssetId)
551+    let accPriceAssetBalance = getAccBalance(priceAssetId)
552+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
553+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
554+    let curPriceX18 = if ((poolLPBalance == 0))
555+        then toBigInt(0)
556+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18, scale18)
557+    let inPriceAssetAmtX18 = toX18(inPriceAssetAmt, priceAssetDcm)
558+    let inAmtAssetAmtX18 = fraction(inPriceAssetAmtX18, scale18, curPriceX18)
559+    let inAmtAssetAmt = fromX18(inAmtAssetAmtX18, amtAssetDcm)
560+    let estimatedPutResults = estimatePutOperation(slippageTolerance, inAmtAssetAmt, amtAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
561+    let outLpAmtCalc = estimatedPutResults._1
562+    let curPriceCalc = estimatedPutResults._2
563+    let poolAmtAssetBalanceCalc = estimatedPutResults._3
508564     let poolPriceAssetBalanceCAlc = estimatedPutResults._4
509565     let poolLPBalanceCalc = estimatedPutResults._5
510566     let poolStatusCalc = parseIntValue(estimatedPutResults._10)
511-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
567+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmtCalc), toString(fromX18(curPriceX18, scale8)), toString(poolAmtAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
512568     }
513569 
514570 
515571 
516572 @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._7
522-    let poolPriceAssetBalance = results._8
523-    let poolLPBalance = results._9
524-    let currentPrice = results._10
525-    let poolStatus = parseIntValue(results._11)
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))
573+func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmt,userAddress) = {
574+    let res = estimateGetOperation(paymentLpAssetId, paymentLpAmt, userAddress)
575+    let outAmtAssetAmt = res._1
576+    let outPriceAssetAmt = res._2
577+    let poolAmtAssetBalance = res._7
578+    let poolPriceAssetBalance = res._8
579+    let poolLPBalance = res._9
580+    let curPrice = res._10
581+    let poolStatus = parseIntValue(res._11)
582+    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(poolAmtAssetBalance), toString(poolPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(poolStatus)], SEP))
527583     }
528-
529-
530-
531-@Callable(i)
532-func hashREADONLY () = $Tuple2(nil, toBase64String(value(scriptHash(this))))
533584 
534585 
535586 @Verifier(tx)
536587 func verify () = match tx {
537588     case order: Order => 
538-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
589+        if (validateMatcherOrderAllowed(order))
590+            then sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
591+            else false
539592     case _ => 
540-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
593+        let managerPublic = valueOrElse(getString(this, keyManagerPublicKey()), EMPTY)
594+        if ((managerPublic == EMPTY))
595+            then sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
596+            else sigVerify(tx.bodyBytes, tx.proofs[0], fromBase58String(managerPublic))
541597 }
542598 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let lPdecimals = 8
55 
66 let scale8 = 100000000
77 
88 let scale8BigInt = toBigInt(100000000)
99 
1010 let scale18 = toBigInt(1000000000000000000)
1111 
1212 let SEP = "__"
13+
14+let EMPTY = ""
1315 
1416 let PoolActive = 1
1517 
1618 let PoolPutDisabled = 2
1719 
1820 let PoolMatcherDisabled = 3
1921 
2022 let PoolShutdown = 4
2123 
2224 let idxPoolAddress = 1
2325 
2426 let idxPoolStatus = 2
2527 
2628 let idxPoolLPAssetId = 3
2729 
28-let idxAmountAssetId = 4
30+let idxAmtAssetId = 4
2931 
3032 let idxPriceAssetId = 5
3133 
32-let idxAmountAssetDecimals = 6
34+let idxAmtAssetDcm = 6
3335 
34-let idxPriceAssetDecimals = 7
36+let idxPriceAssetDcm = 7
3537 
36-let idxAmountAssetInternalId = 8
38+let idxIAmtAssetId = 8
3739 
38-let idxPriceAssetInternalId = 9
40+let idxIPriceAssetId = 9
3941 
40-let idxLPAssetDecimals = 10
42+let idxLPAssetDcm = 10
4143 
42-let idxMatcherPublicKey = 11
43-
44-let idxPoolAmountAssetAmt = 1
44+let idxPoolAmtAssetAmt = 1
4545 
4646 let idxPoolPriceAssetAmt = 2
4747 
4848 let idxPoolLPAssetAmt = 3
4949 
5050 let idxFactoryStakingContract = 1
5151 
52-let idxFactoryBoostingConfig = 2
52+let idxFactorySlippageContract = 7
53+
54+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
55+
56+
57+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
58+
59+
60+func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
61+
5362 
5463 func keyFactoryContract () = "%s__factoryContract"
64+
65+
66+func keyManagerPublicKey () = "%s__managerPublicKey"
5567 
5668 
5769 func keyPriceLast () = "%s%s__price__last"
5870 
5971 
6072 func keyPriceHistory (h,timestamp) = makeString(["%s%s%d%d__price__history", toString(h), toString(timestamp)], SEP)
6173 
6274 
63-func keyPoolLiquidity (internalAmountAsset,internalPriceAsset) = (((("%d%d%s__" + internalAmountAsset) + "__") + internalPriceAsset) + "__locked")
64-
65-
6675 func keyPutActionByUser (userAddress,txId) = ((("%s%s%s__P__" + userAddress) + "__") + txId)
6776 
6877 
6978 func keyGetActionByUser (userAddress,txId) = ((("%s%s%s__G__" + userAddress) + "__") + txId)
7079 
7180 
72-func keyAmountAsset () = "%s__amountAsset"
81+func keyAmtAsset () = "%s__amountAsset"
7382 
7483 
7584 func keyPriceAsset () = "%s__priceAsset"
76-
77-
78-func keyKCurrent () = "%s%s__K_current"
7985 
8086 
8187 func keyKHistoric (h,timestamp) = makeString(["%s%s%d%d__K_history", toString(h), toString(timestamp)], SEP)
8288 
8389 
8490 func keyFactoryConfig () = "%s__factoryConfig"
8591 
8692 
8793 func keyMappingPoolContractAddressToPoolAssets (poolContractAddress) = (("%s%s%s__" + poolContractAddress) + "__mappings__poolContract2LpAsset")
8894 
8995 
90-func keyPoolConfig (amountAssetInternal,priceAssetInternal) = (((("%d%d%s__" + amountAssetInternal) + "__") + priceAssetInternal) + "__config")
96+func keyPoolConfig (iAmtAsset,iPriceAsset) = (((("%d%d%s__" + iAmtAsset) + "__") + iPriceAsset) + "__config")
9197 
9298 
9399 func keyMappingsBaseAsset2internalId (baseAssetStr) = ("%s%s%s__mappings__baseAsset2internalId__" + baseAssetStr)
94100 
95101 
96102 func keyAllPoolsShutdown () = "%s__shutdown"
97103 
98104 
99105 func keyPoolWeight (contractAddress) = ("%s%s__poolWeight__" + contractAddress)
100106 
101107 
102-let factoryContract = addressFromStringValue(valueOrErrorMessage(getString(this, keyFactoryContract()), "No Factory Account found."))
108+func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
109+
110+
111+func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
112+
113+
114+let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContract()))
103115 
104116 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
105117 
106118 
107119 func getPoolConfig () = {
108-    let poolAmountAsset = valueOrErrorMessage(getString(this, keyAmountAsset()), "No config for amount asset found")
109-    let poolPriceAsset = valueOrErrorMessage(getString(this, keyPriceAsset()), "No config for price asset found")
110-    let poolPriceAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolPriceAsset)), "No config for internal price asset found")
111-    let poolAmountAssetInternal = valueOrErrorMessage(getInteger(factoryContract, keyMappingsBaseAsset2internalId(poolAmountAsset)), "No config for internal amount asset found")
112-    split(valueOrErrorMessage(getString(factoryContract, keyPoolConfig(toString(poolAmountAssetInternal), toString(poolPriceAssetInternal))), "No factory config found for pool assets."), SEP)
120+    let amtAsset = getStringOrFail(this, keyAmtAsset())
121+    let priceAsset = getStringOrFail(this, keyPriceAsset())
122+    let iPriceAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAsset))
123+    let iAmtAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAsset))
124+    split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAsset), toString(iPriceAsset))), SEP)
113125     }
114126 
115127 
116-func getFactoryConfig () = split(valueOrErrorMessage(getString(factoryContract, keyFactoryConfig()), "No factory config found."), SEP)
128+func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
117129 
118130 
119-func getPoolLiquidity (amountAssetInternalId,priceAssetInternalId) = {
120-    let currentPoolLiquidityValue = getString(this, keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId))
121-    if (isDefined(currentPoolLiquidityValue))
122-        then split(value(currentPoolLiquidityValue), SEP)
123-        else ["", "0", "0", "0"]
124-    }
131+func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slippageTolerancePassedByUser,slippageToleranceReal,txHeight,txTimestamp,slipageAmtAssetAmt,slipagePriceAssetAmt) = makeString(["%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)
125132 
126133 
127-func dataPoolLiquidity (amountAssetLocked,priceAssetLocked,lpTokenLocked) = makeString(["%d%d%d", toString(amountAssetLocked), toString(priceAssetLocked), toString(lpTokenLocked)], SEP)
134+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)
128135 
129136 
130-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)
131-
132-
133-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)
134-
135-
136-func privateCastToScaleOf (amount,resultScale,currentScale) = fraction(amount, resultScale, currentScale)
137-
138-
139-func privateBigIntCastToScaleOf (amount,resultScale,currentScale) = fraction(amount, resultScale, currentScale)
140-
141-
142-func calculatePrice (priceAssetLockedAmt,amountAssetlLockedAmt) = fraction(priceAssetLockedAmt, scale8, amountAssetlLockedAmt)
143-
144-
145-func calculatePriceBigInt (priceAssetLockedAmt,amountAssetlLockedAmt) = toInt(fraction(priceAssetLockedAmt, scale8BigInt, amountAssetlLockedAmt))
146-
147-
148-func privateCalculatePrice (amoutAssetDecimals,priceAssetDecimals,amountAssetAmt,priceAssetAmt) = {
149-    let amountAssetAmtCasted = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
150-    let priceAssetAmtCasted = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
151-    calculatePrice(priceAssetAmtCasted, amountAssetAmtCasted)
152-    }
153-
154-
155-func privateGetAccountBalance (assetId) = if ((assetId == "WAVES"))
137+func getAccBalance (assetId) = if ((assetId == "WAVES"))
156138     then wavesBalance(this).available
157139     else assetBalance(this, fromBase58String(assetId))
158140 
159141 
160-func calculatePrices (amountAssetAmt,priceAssetAmt,lpAmount) = {
161-    let poolConfigDataList = getPoolConfig()
162-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
163-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
164-    let poolPrice = privateCalculatePrice(amoutAssetDecimals, priceAssetDecimals, amountAssetAmt, priceAssetAmt)
165-    let amountAssetPoolLockedAmt = privateCastToScaleOf(amountAssetAmt, scale8, amoutAssetDecimals)
166-    let priceAssetPoolLockedAmt = privateCastToScaleOf(priceAssetAmt, scale8, priceAssetDecimals)
167-    let lpPriceInAmountAsset = calculatePrice(amountAssetPoolLockedAmt, lpAmount)
168-    let lpPriceInPriceAsset = calculatePrice(priceAssetPoolLockedAmt, lpAmount)
169-[poolPrice, lpPriceInAmountAsset, lpPriceInPriceAsset]
142+func calcPriceBigInt (priceAssetLockedAmt,amtAssetlLockedAmt,resultScale) = fraction(priceAssetLockedAmt, resultScale, amtAssetlLockedAmt)
143+
144+
145+func privateCalcPrice (amtAssetDcm,priceAssetDcm,amtAssetAmt,priceAssetAmt) = {
146+    let amtAssetAmtX18 = toX18(amtAssetAmt, amtAssetDcm)
147+    let priceAssetAmtX18 = toX18(priceAssetAmt, priceAssetDcm)
148+    toInt(calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18, scale8BigInt))
170149     }
171150 
172151 
173-func privateEstimateGetOperation (paymentLpAssetId,paymentLpAmount,userAddress) = {
152+func calcPrices (amtAssetAmt,priceAssetAmt,lpAmt) = {
153+    let cfg = getPoolConfig()
154+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
155+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
156+    let poolPrice = privateCalcPrice(amtAssetDcm, priceAssetDcm, amtAssetAmt, priceAssetAmt)
157+    let amtAssetAmtX18 = toX18(amtAssetAmt, amtAssetDcm)
158+    let priceAssetAmtX18 = toX18(priceAssetAmt, priceAssetDcm)
159+    let lpAmtX18 = toX18(lpAmt, scale8)
160+    let lpPriceInAmtAsset = toInt(calcPriceBigInt(amtAssetAmtX18, lpAmtX18, scale8BigInt))
161+    let lpPriceInPriceAsset = toInt(calcPriceBigInt(priceAssetAmtX18, lpAmtX18, scale8BigInt))
162+[poolPrice, lpPriceInAmtAsset, lpPriceInPriceAsset]
163+    }
164+
165+
166+func estimateGetOperation (paymentLpAssetId,paymentLpAmt,userAddress) = {
174167     let poolConfigList = getPoolConfig()
175168     let lpAssetId = poolConfigList[idxPoolLPAssetId]
176-    let amountAssetId = poolConfigList[idxAmountAssetId]
169+    let amtAssetId = poolConfigList[idxAmtAssetId]
177170     let priceAssetId = poolConfigList[idxPriceAssetId]
178-    let amountAssetInternalId = poolConfigList[idxAmountAssetInternalId]
179-    let priceAssetInternalId = poolConfigList[idxPriceAssetInternalId]
180-    let amoutAssetDecimals = parseIntValue(poolConfigList[idxAmountAssetDecimals])
181-    let priceAssetDecimals = parseIntValue(poolConfigList[idxPriceAssetDecimals])
171+    let iAmtAssetId = poolConfigList[idxIAmtAssetId]
172+    let iPriceAssetId = poolConfigList[idxIPriceAssetId]
173+    let amtAssetDcm = parseIntValue(poolConfigList[idxAmtAssetDcm])
174+    let priceAssetDcm = parseIntValue(poolConfigList[idxPriceAssetDcm])
182175     let poolStatus = poolConfigList[idxPoolStatus]
183-    let poolLiquidityList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
184-    let poolLPBalance = parseIntValue(poolLiquidityList[idxPoolLPAssetAmt])
185-    let poolAmountAssetBalance = parseIntValue(poolLiquidityList[idxPoolAmountAssetAmt])
186-    let poolPriceAssetBalance = parseIntValue(poolLiquidityList[idxPoolPriceAssetAmt])
176+    let poolLPBalance = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), (("Asset " + lpAssetId) + " doesn't exist")).quantity
187177     if ((lpAssetId != paymentLpAssetId))
188178         then throw("Invalid asset passed.")
189179         else {
190-            let amountAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(privateGetAccountBalance(amountAssetId)), scale18, toBigInt(amoutAssetDecimals))
191-            let priceAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(privateGetAccountBalance(priceAssetId)), scale18, toBigInt(priceAssetDecimals))
192-            let currentPrice = calculatePriceBigInt(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
193-            let paymentLpAmountBuf = privateBigIntCastToScaleOf(toBigInt(paymentLpAmount), scale18, scale8BigInt)
194-            let poolLPBalanceBuf = privateBigIntCastToScaleOf(toBigInt(poolLPBalance), scale18, scale8BigInt)
195-            let outAmountAssetAmt = fraction(amountAssetPoolLockedAmt, paymentLpAmountBuf, poolLPBalanceBuf)
196-            let outPriceAssetAmt = fraction(priceAssetPoolLockedAmt, paymentLpAmountBuf, poolLPBalanceBuf)
197-            let outAmountAssetAmtFinal = toInt(privateBigIntCastToScaleOf(outAmountAssetAmt, toBigInt(amoutAssetDecimals), scale18))
198-            let outPriceAssetAmtFinal = toInt(privateBigIntCastToScaleOf(outPriceAssetAmt, toBigInt(priceAssetDecimals), scale18))
199-            $Tuple11(outAmountAssetAmtFinal, outPriceAssetAmtFinal, amountAssetInternalId, priceAssetInternalId, amountAssetId, priceAssetId, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, currentPrice, poolStatus)
180+            let amtAssetBalance = getAccBalance(amtAssetId)
181+            let amtAssetBalanceX18 = toX18(amtAssetBalance, amtAssetDcm)
182+            let priceAssetBalance = getAccBalance(priceAssetId)
183+            let priceAssetBalanceX18 = toX18(priceAssetBalance, priceAssetDcm)
184+            let curPrice = toInt(calcPriceBigInt(priceAssetBalanceX18, amtAssetBalanceX18, scale8BigInt))
185+            let paymentLpAmtX18 = toX18(paymentLpAmt, scale8)
186+            let poolLPBalanceX18 = toX18(poolLPBalance, scale8)
187+            let outAmtAssetAmt = fraction(amtAssetBalanceX18, paymentLpAmtX18, poolLPBalanceX18)
188+            let outPriceAssetAmt = fraction(priceAssetBalanceX18, paymentLpAmtX18, poolLPBalanceX18)
189+            let outAmtAssetAmtFinal = fromX18(outAmtAssetAmt, amtAssetDcm)
190+            let outPriceAssetAmtFinal = fromX18(outPriceAssetAmt, priceAssetDcm)
191+            $Tuple11(outAmtAssetAmtFinal, outPriceAssetAmtFinal, iAmtAssetId, iPriceAssetId, amtAssetId, priceAssetId, amtAssetBalance, priceAssetBalance, poolLPBalance, curPrice, poolStatus)
200192             }
201193     }
202194 
203195 
204-func privateEstimatePutOperation (slippageTolerance,inAmountAssetAmt,inAmountAssetId,inPriceAssetAmt,inPriceAssetId,userAddress,isEvaluate) = {
205-    let poolConfigDataList = getPoolConfig()
206-    let lpAssetId = fromBase58String(poolConfigDataList[idxPoolLPAssetId])
207-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
208-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
209-    let amountAssetInternalId = poolConfigDataList[idxAmountAssetInternalId]
210-    let priceAssetInternalId = poolConfigDataList[idxPriceAssetInternalId]
211-    let amoutAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
212-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
213-    let poolStatus = poolConfigDataList[idxPoolStatus]
214-    let poolLiquidityDataList = getPoolLiquidity(amountAssetInternalId, priceAssetInternalId)
215-    let poolAmountAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolAmountAssetAmt])
216-    let poolPriceAssetBalance = parseIntValue(poolLiquidityDataList[idxPoolPriceAssetAmt])
217-    let poolLPBalance = parseIntValue(poolLiquidityDataList[idxPoolLPAssetAmt])
218-    if (if ((amountAssetId != inAmountAssetId))
196+func estimatePutOperation (slippageTolerance,inAmtAssetAmt,inAmtAssetId,inPriceAssetAmt,inPriceAssetId,userAddress,isEvaluate) = {
197+    let cfg = getPoolConfig()
198+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
199+    let amtAssetId = cfg[idxAmtAssetId]
200+    let priceAssetId = cfg[idxPriceAssetId]
201+    let iAmtAssetId = cfg[idxIAmtAssetId]
202+    let iPriceAssetId = cfg[idxIPriceAssetId]
203+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
204+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
205+    let poolStatus = cfg[idxPoolStatus]
206+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
207+    if (if ((amtAssetId != inAmtAssetId))
219208         then true
220209         else (priceAssetId != inPriceAssetId))
221-        then throw("Invalid amount or price asset passed.")
210+        then throw("Invalid amt or price asset passed.")
222211         else {
223-            let accountAmountAssetBalance = if (isEvaluate)
224-                then privateGetAccountBalance(amountAssetId)
225-                else (privateGetAccountBalance(amountAssetId) - inAmountAssetAmt)
226-            let accountPriceAssetBalance = if (isEvaluate)
227-                then privateGetAccountBalance(priceAssetId)
228-                else (privateGetAccountBalance(priceAssetId) - inPriceAssetAmt)
229-            let amoutAssetDecimalsBigInt = toBigInt(amoutAssetDecimals)
230-            let priceAssetDecimalsBigInt = toBigInt(priceAssetDecimals)
231-            let inAmountAssetAmtCalculated = privateBigIntCastToScaleOf(toBigInt(inAmountAssetAmt), scale18, amoutAssetDecimalsBigInt)
232-            let inPriceAssetAmtCalculated = privateBigIntCastToScaleOf(toBigInt(inPriceAssetAmt), scale18, priceAssetDecimalsBigInt)
233-            let userPrice = calculatePriceBigInt(inPriceAssetAmtCalculated, inAmountAssetAmtCalculated)
234-            let amountAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(accountAmountAssetBalance), scale18, amoutAssetDecimalsBigInt)
235-            let priceAssetPoolLockedAmt = privateBigIntCastToScaleOf(toBigInt(accountPriceAssetBalance), scale18, priceAssetDecimalsBigInt)
236-            let curentPrice = if ((poolLPBalance == 0))
212+            let accAmtAssetBalance = if (isEvaluate)
213+                then getAccBalance(amtAssetId)
214+                else (getAccBalance(amtAssetId) - inAmtAssetAmt)
215+            let accPriceAssetBalance = if (isEvaluate)
216+                then getAccBalance(priceAssetId)
217+                else (getAccBalance(priceAssetId) - inPriceAssetAmt)
218+            let inAmtAssetAmtX18 = toX18(inAmtAssetAmt, amtAssetDcm)
219+            let inPriceAssetAmtX18 = toX18(inPriceAssetAmt, priceAssetDcm)
220+            let userPrice = toInt(calcPriceBigInt(inPriceAssetAmtX18, inAmtAssetAmtX18, scale8BigInt))
221+            let accAmtAssetBalanceX18 = toX18(accAmtAssetBalance, amtAssetDcm)
222+            let accPriceAssetBalanceX18 = toX18(accPriceAssetBalance, priceAssetDcm)
223+            let curPrice = if ((poolLPBalance == 0))
237224                 then 0
238-                else calculatePriceBigInt(priceAssetPoolLockedAmt, amountAssetPoolLockedAmt)
239-            let slippage = if ((curentPrice == 0))
225+                else toInt(calcPriceBigInt(accPriceAssetBalanceX18, accAmtAssetBalanceX18, scale8BigInt))
226+            let slippage = if ((curPrice == 0))
240227                 then 0
241-                else if ((curentPrice > userPrice))
242-                    then fraction((curentPrice - userPrice), 100, curentPrice)
243-                    else fraction((userPrice - curentPrice), 100, curentPrice)
244-            if (if ((curentPrice != 0))
245-                then ((slippage * scale8) > slippageTolerance)
228+                else if ((curPrice > userPrice))
229+                    then fraction((curPrice - userPrice), scale8, curPrice)
230+                    else fraction((userPrice - curPrice), scale8, curPrice)
231+            if (if ((curPrice != 0))
232+                then (slippage > slippageTolerance)
246233                 else false)
247-                then throw(((("Price slippage " + toString((slippage * scale8))) + " exceeded the passed limit of ") + toString(slippageTolerance)))
234+                then throw(((("Price slippage " + toString(slippage)) + " exceeded the passed limit of ") + toString(slippageTolerance)))
248235                 else {
249-                    let finalPrice = calculatePriceBigInt((priceAssetPoolLockedAmt + inPriceAssetAmtCalculated), (amountAssetPoolLockedAmt + inAmountAssetAmtCalculated))
250-                    let outLpAmount = if ((poolLPBalance == 0))
236+                    let res = if ((poolLPBalance == 0))
251237                         then {
252-                            let lpResultBuf = pow((inAmountAssetAmtCalculated * inPriceAssetAmtCalculated), 0, toBigInt(5), 1, 0, DOWN)
253-                            toInt(privateBigIntCastToScaleOf(lpResultBuf, scale8BigInt, scale18))
238+                            let lpResultBuf = pow((inAmtAssetAmtX18 * inPriceAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
239+                            $Tuple4(fromX18(lpResultBuf, scale8), fromX18(inAmtAssetAmtX18, amtAssetDcm), fromX18(inPriceAssetAmtX18, priceAssetDcm), toInt(calcPriceBigInt((accPriceAssetBalanceX18 + inPriceAssetAmtX18), (accAmtAssetBalanceX18 + inAmtAssetAmtX18), scale8BigInt)))
254240                             }
255241                         else {
256-                            let poolLPBalanceBuf = privateBigIntCastToScaleOf(toBigInt(poolLPBalance), scale18, scale8BigInt)
257-                            let lpAmtByAmountAsset = toInt(privateBigIntCastToScaleOf(fraction(poolLPBalanceBuf, inAmountAssetAmtCalculated, amountAssetPoolLockedAmt), scale8BigInt, scale18))
258-                            let lpAmtByPriceAsset = toInt(privateBigIntCastToScaleOf(fraction(poolLPBalanceBuf, inPriceAssetAmtCalculated, priceAssetPoolLockedAmt), scale8BigInt, scale18))
259-                            if ((lpAmtByPriceAsset > lpAmtByAmountAsset))
260-                                then lpAmtByAmountAsset
261-                                else lpAmtByPriceAsset
242+                            let poolLPBalanceX18 = toX18(poolLPBalance, scale8)
243+                            let curPriceX18 = toX18(curPrice, scale8)
244+                            let pEqByA = fraction(curPriceX18, inAmtAssetAmtX18, scale18)
245+                            let resAssetsToPut = if ((pEqByA > inPriceAssetAmtX18))
246+                                then $Tuple2(fraction(inPriceAssetAmtX18, scale18, curPriceX18), inPriceAssetAmtX18)
247+                                else $Tuple2(inAmtAssetAmtX18, pEqByA)
248+                            let lpResult = fromX18(fraction(poolLPBalanceX18, resAssetsToPut._2, accPriceAssetBalanceX18), scale8)
249+                            $Tuple4(lpResult, fromX18(resAssetsToPut._1, amtAssetDcm), fromX18(resAssetsToPut._2, priceAssetDcm), toInt(calcPriceBigInt((accPriceAssetBalanceX18 + resAssetsToPut._2), (accAmtAssetBalanceX18 + resAssetsToPut._1), scale8BigInt)))
262250                             }
263-                    if ((0 >= outLpAmount))
251+                    if ((0 >= res._1))
264252                         then throw("Invalid calculations. LP calculated is less than zero.")
265-                        else $Tuple10(outLpAmount, finalPrice, poolAmountAssetBalance, poolPriceAssetBalance, poolLPBalance, amountAssetInternalId, priceAssetInternalId, lpAssetId, slippage, poolStatus)
253+                        else $Tuple12(res._1, res._4, accAmtAssetBalance, accPriceAssetBalance, poolLPBalance, iAmtAssetId, iPriceAssetId, lpAssetId, slippage, poolStatus, res._2, res._3)
266254                     }
267255             }
268256     }
269257 
270258 
271259 func validateMatcherOrderAllowed (order) = {
272-    let poolConfigDataList = getPoolConfig()
273-    let amountAssetId = poolConfigDataList[idxAmountAssetId]
274-    let priceAssetId = poolConfigDataList[idxPriceAssetId]
275-    let poolStatus = parseIntValue(poolConfigDataList[idxPoolStatus])
276-    let matcherPublicKeyStr = poolConfigDataList[idxMatcherPublicKey]
277-    let amountAssetDecimals = parseIntValue(poolConfigDataList[idxAmountAssetDecimals])
278-    let priceAssetDecimals = parseIntValue(poolConfigDataList[idxPriceAssetDecimals])
279-    let accountAmountAssetBalance = privateGetAccountBalance(amountAssetId)
280-    let accountPriceAssetBalance = privateGetAccountBalance(priceAssetId)
281-    let currentPrice = if ((order.orderType == Buy))
282-        then privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
283-        else privateCalculatePrice(amountAssetDecimals, priceAssetDecimals, (accountAmountAssetBalance + order.amount), accountPriceAssetBalance)
284-    let isPoolStatusValid = if (if (if (isGlobalShutdown())
260+    let cfg = getPoolConfig()
261+    let amtAssetId = cfg[idxAmtAssetId]
262+    let priceAssetId = cfg[idxPriceAssetId]
263+    let poolStatus = parseIntValue(cfg[idxPoolStatus])
264+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
265+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
266+    let accAmtAssetBalance = getAccBalance(amtAssetId)
267+    let accPriceAssetBalance = getAccBalance(priceAssetId)
268+    let curPrice = if ((order.orderType == Buy))
269+        then privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance + order.amount), accPriceAssetBalance)
270+        else privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance - order.amount), accPriceAssetBalance)
271+    if (if (if (isGlobalShutdown())
285272         then true
286273         else (poolStatus == PoolMatcherDisabled))
287274         then true
288275         else (poolStatus == PoolShutdown))
289-        then false
290-        else true
291-    let isValidMatcherSign = true
292-    let orderAmountAsset = order.assetPair.amountAsset
293-    let orderAmountAssetStr = if ((orderAmountAsset == unit))
294-        then "WAVES"
295-        else toBase58String(value(orderAmountAsset))
296-    let orderPriceAsset = order.assetPair.priceAsset
297-    let orderPriceAssetStr = if ((orderPriceAsset == unit))
298-        then "WAVES"
299-        else toBase58String(value(orderPriceAsset))
300-    let isValidAssetPair = if (if ((orderAmountAssetStr != amountAssetId))
301-        then true
302-        else (orderPriceAssetStr != priceAssetId))
303-        then false
304-        else true
305-    let orderPrice = order.price
306-    let priceDecimals = fraction(scale8, priceAssetDecimals, amountAssetDecimals)
307-    let castedOrderPrice = privateCastToScaleOf(orderPrice, scale8, priceDecimals)
308-    let isOrderPriceValid = if ((order.orderType == Buy))
309-        then (currentPrice >= castedOrderPrice)
310-        else (castedOrderPrice >= currentPrice)
311-    if (if (if (isValidAssetPair)
312-        then isValidMatcherSign
313-        else false)
314-        then isPoolStatusValid
315-        else false)
316-        then isOrderPriceValid
317-        else false
276+        then throw("Exchange operations disabled")
277+        else {
278+            let orderAmtAsset = order.assetPair.amountAsset
279+            let orderAmtAssetStr = if ((orderAmtAsset == unit))
280+                then "WAVES"
281+                else toBase58String(value(orderAmtAsset))
282+            let orderPriceAsset = order.assetPair.priceAsset
283+            let orderPriceAssetStr = if ((orderPriceAsset == unit))
284+                then "WAVES"
285+                else toBase58String(value(orderPriceAsset))
286+            if (if ((orderAmtAssetStr != amtAssetId))
287+                then true
288+                else (orderPriceAssetStr != priceAssetId))
289+                then throw("Wrong order assets.")
290+                else {
291+                    let orderPrice = order.price
292+                    let priceDcm = fraction(scale8, priceAssetDcm, amtAssetDcm)
293+                    let castedOrderPrice = toScale(orderPrice, scale8, priceDcm)
294+                    let isOrderPriceValid = if ((order.orderType == Buy))
295+                        then (curPrice >= castedOrderPrice)
296+                        else (castedOrderPrice >= curPrice)
297+                    if (!(isOrderPriceValid))
298+                        then throw(((("Order price leads to K decrease. castedOrderPrice=" + toString(castedOrderPrice)) + " curPrice=") + toString(curPrice)))
299+                        else true
300+                    }
301+            }
318302     }
319303 
320304 
321-@Callable(i)
322-func constructor (factoryContract) = if ((i.caller != this))
323-    then throw("permissions denied")
324-    else [StringEntry(keyFactoryContract(), factoryContract)]
305+func commonGet (i) = {
306+    let pmtAmtAsset = value(i.payments[0])
307+    let pmtAssetId = value(pmtAmtAsset.assetId)
308+    let pmtAssetAmt = pmtAmtAsset.amount
309+    let res = estimateGetOperation(toBase58String(pmtAssetId), pmtAssetAmt, toString(i.caller))
310+    let outAmtAssetAmt = res._1
311+    let outPriceAssetAmt = res._2
312+    let iAmtAssetId = res._3
313+    let iPriceAssetId = res._4
314+    let amtAssetId = res._5
315+    let priceAssetId = res._6
316+    let poolAmtAssetBalance = res._7
317+    let poolPriceAssetBalance = res._8
318+    let poolLPBalance = res._9
319+    let curPrice = res._10
320+    let poolStatus = parseIntValue(res._11)
321+    if (if (isGlobalShutdown())
322+        then true
323+        else (poolStatus == PoolShutdown))
324+        then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
325+        else $Tuple5(outAmtAssetAmt, outPriceAssetAmt, pmtAssetAmt, pmtAssetId, [ScriptTransfer(i.caller, outAmtAssetAmt, if ((amtAssetId == "WAVES"))
326+            then unit
327+            else fromBase58String(amtAssetId)), ScriptTransfer(i.caller, outPriceAssetAmt, if ((priceAssetId == "WAVES"))
328+            then unit
329+            else fromBase58String(priceAssetId)), StringEntry(keyGetActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataGetActionInfo(outAmtAssetAmt, outPriceAssetAmt, pmtAssetAmt, curPrice, height, lastBlock.timestamp)), StringEntry(keyPriceLast(), ("%s__" + toString(curPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(curPrice)))])
330+    }
325331 
326332 
327-
328-@Callable(i)
329-func put (slippageTolerance,shouldAutoStake) = {
330-    let factoryConfigList = getFactoryConfig()
331-    let stakingContract = valueOrErrorMessage(addressFromString(factoryConfigList[idxFactoryStakingContract]), "Error. Incorrect staking address.")
332-    let pmtAmountAsset = value(i.payments[0])
333-    let inAmountAssetAmt = pmtAmountAsset.amount
334-    let inAmountAssetId = if (!(isDefined(pmtAmountAsset.assetId)))
333+func commonPut (i,slippageTolerance,emitLp) = {
334+    let pmtAmtAsset = value(i.payments[0])
335+    let inAmtAssetAmt = pmtAmtAsset.amount
336+    let inAmtAssetId = if (!(isDefined(pmtAmtAsset.assetId)))
335337         then fromBase58String("WAVES")
336-        else value(pmtAmountAsset.assetId)
338+        else value(pmtAmtAsset.assetId)
337339     let pmtPriceAsset = value(i.payments[1])
338340     let inPriceAssetAmt = pmtPriceAsset.amount
339341     let inPriceAssetId = if (!(isDefined(pmtPriceAsset.assetId)))
340342         then fromBase58String("WAVES")
341343         else value(pmtPriceAsset.assetId)
342-    let estimatedPutResults = privateEstimatePutOperation(slippageTolerance, inAmountAssetAmt, toBase58String(inAmountAssetId), inPriceAssetAmt, toBase58String(inPriceAssetId), toString(i.caller), false)
343-    let outLpAmount = estimatedPutResults._1
344-    let curentPrice = estimatedPutResults._2
345-    let poolAmountAssetBalance = estimatedPutResults._3
346-    let poolPriceAssetBalance = estimatedPutResults._4
347-    let poolLPBalance = estimatedPutResults._5
348-    let amountAssetInternalId = estimatedPutResults._6
349-    let priceAssetInternalId = estimatedPutResults._7
350-    let lpAssetId = estimatedPutResults._8
351-    let slippageCalculated = estimatedPutResults._9
352-    let poolStatus = parseIntValue(estimatedPutResults._10)
344+    let estPut = estimatePutOperation(slippageTolerance, inAmtAssetAmt, toBase58String(inAmtAssetId), inPriceAssetAmt, toBase58String(inPriceAssetId), toString(i.caller), false)
345+    let outLpAmt = estPut._1
346+    let curPrice = estPut._2
347+    let poolAmtAssetBalance = estPut._3
348+    let poolPriceAssetBalance = estPut._4
349+    let poolLPBalance = estPut._5
350+    let iAmtAssetId = estPut._6
351+    let iPriceAssetId = estPut._7
352+    let lpAssetId = estPut._8
353+    let slippageCalc = estPut._9
354+    let poolStatus = parseIntValue(estPut._10)
355+    let realAmtAssetIn = estPut._11
356+    let realPriceAssetIn = estPut._12
353357     if (if (if (isGlobalShutdown())
354358         then true
355359         else (poolStatus == PoolPutDisabled))
356360         then true
357361         else (poolStatus == PoolShutdown))
358362         then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
359363         else {
360-            let emitLPAssetOnFactory = invoke(factoryContract, "emit", [outLpAmount], nil)
361-            if ((emitLPAssetOnFactory == emitLPAssetOnFactory))
362-                then if ((emitLPAssetOnFactory != "success"))
363-                    then throw("LP asset reissue failed during emit call on factory.")
364-                    else {
365-                        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(keyPoolLiquidity(amountAssetInternalId, priceAssetInternalId), dataPoolLiquidity((poolAmountAssetBalance + inAmountAssetAmt), (poolPriceAssetBalance + inPriceAssetAmt), (poolLPBalance + outLpAmount)))]
366-                        if (shouldAutoStake)
367-                            then {
368-                                let stake = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, outLpAmount)])
369-                                if ((stake == stake))
370-                                    then results
371-                                    else throw("Strict value is not equal to itself.")
372-                                }
373-                            else (results :+ ScriptTransfer(i.caller, outLpAmount, lpAssetId))
374-                        }
364+            let lpAmtToEmit = if (!(emitLp))
365+                then 0
366+                else outLpAmt
367+            let diffInAmtAsset = (inAmtAssetAmt - realAmtAssetIn)
368+            let diffInPriceAsset = (inPriceAssetAmt - realPriceAssetIn)
369+            let dataStateWrite = [StringEntry(keyPriceLast(), ("%s__" + toString(curPrice))), StringEntry(keyPriceHistory(height, lastBlock.timestamp), ("%s__" + toString(curPrice))), StringEntry(keyPutActionByUser(toString(i.caller), toBase58String(i.transactionId)), dataPutActionInfo(realAmtAssetIn, realPriceAssetIn, lpAmtToEmit, curPrice, slippageTolerance, slippageCalc, height, lastBlock.timestamp, diffInAmtAsset, diffInPriceAsset))]
370+            $Tuple9(lpAmtToEmit, lpAssetId, dataStateWrite, inAmtAssetAmt, realAmtAssetIn, inPriceAssetAmt, realPriceAssetIn, pmtAmtAsset.assetId, pmtPriceAsset.assetId)
371+            }
372+    }
373+
374+
375+@Callable(i)
376+func constructor (factoryContract,managerPublicKey) = if ((i.caller != this))
377+    then throw("permissions denied")
378+    else [StringEntry(keyFactoryContract(), factoryContract), StringEntry(keyManagerPublicKey(), managerPublicKey)]
379+
380+
381+
382+@Callable(i)
383+func put (slippageTolerance,shouldAutoStake) = {
384+    let factoryCfg = getFactoryConfig()
385+    let stakingContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactoryStakingContract]), "Error. Incorrect staking address.")
386+    let slippageContract = valueOrErrorMessage(addressFromString(factoryCfg[idxFactorySlippageContract]), "Error. Incorrect slippage contract address.")
387+    let actions = commonPut(i, slippageTolerance, true)
388+    let amtToEmit = actions._1
389+    let lpAssetId = actions._2
390+    let state = actions._3
391+    let inAmt = actions._4
392+    let realInAmt = actions._5
393+    let inPrice = actions._6
394+    let realInPrice = actions._7
395+    let amId = actions._8
396+    let prId = actions._9
397+    let diffInAmtAsset = (inAmt - realInAmt)
398+    let diffInPriceAsset = (inPrice - realInPrice)
399+    let emitInv = invoke(factoryContract, "emit", [amtToEmit], nil)
400+    if ((emitInv == emitInv))
401+        then {
402+            let slippageAInv = if ((inAmt > realInAmt))
403+                then invoke(slippageContract, "put", nil, [AttachedPayment(amId, diffInAmtAsset)])
404+                else nil
405+            if ((slippageAInv == slippageAInv))
406+                then {
407+                    let slippagePInv = if ((inPrice > realInPrice))
408+                        then invoke(slippageContract, "put", nil, [AttachedPayment(prId, diffInPriceAsset)])
409+                        else nil
410+                    if ((slippagePInv == slippagePInv))
411+                        then {
412+                            let lpStakeInv = if (shouldAutoStake)
413+                                then invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, amtToEmit)])
414+                                else nil
415+                            if ((lpStakeInv == lpStakeInv))
416+                                then (state :+ ScriptTransfer(i.caller, amtToEmit, lpAssetId))
417+                                else throw("Strict value is not equal to itself.")
418+                            }
419+                        else throw("Strict value is not equal to itself.")
420+                    }
375421                 else throw("Strict value is not equal to itself.")
376422             }
423+        else throw("Strict value is not equal to itself.")
424+    }
425+
426+
427+
428+@Callable(i)
429+func putForFree () = {
430+    let actions = commonPut(i, 0, false)
431+    actions._3
377432     }
378433 
379434 
380435 
381436 @Callable(i)
382437 func get () = {
383-    let pmtAmountAsset = value(i.payments[0])
384-    let pmtAssetId = value(pmtAmountAsset.assetId)
385-    let pmtAssetAmount = pmtAmountAsset.amount
386-    let results = privateEstimateGetOperation(toBase58String(pmtAssetId), pmtAssetAmount, toString(i.caller))
387-    let outAmountAssetAmt = results._1
388-    let outPriceAssetAmt = results._2
389-    let amountAssetInternalId = results._3
390-    let priceAssetInternalId = results._4
391-    let amountAssetId = results._5
392-    let priceAssetId = results._6
393-    let poolAmountAssetBalance = results._7
394-    let poolPriceAssetBalance = results._8
395-    let poolLPBalance = results._9
396-    let currentPrice = results._10
397-    let poolStatus = parseIntValue(results._11)
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(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-            }
438+    let res = commonGet(i)
439+    let outAmtAssetAmt = res._1
440+    let outPriceAssetAmt = res._2
441+    let pmtAssetAmt = res._3
442+    let pmtAssetId = res._4
443+    let actions = res._5
444+    let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAssetAmt], [AttachedPayment(pmtAssetId, pmtAssetAmt)])
445+    if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
446+        then actions
447+        else throw("Strict value is not equal to itself.")
412448     }
413449 
414450 
415451 
416452 @Callable(i)
417-func activate (amountAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
453+func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
454+    let res = commonGet(i)
455+    let outAmtAssetAmt = res._1
456+    let outPriceAssetAmt = res._2
457+    let pmtAssetAmt = res._3
458+    let pmtAssetId = res._4
459+    let actions = res._5
460+    if ((noLessThenAmtAsset > outAmtAssetAmt))
461+        then throw(((("noLessThenAmtAsset failed:  " + toString(outAmtAssetAmt)) + " < ") + toString(noLessThenAmtAsset)))
462+        else if ((noLessThenPriceAsset > outPriceAssetAmt))
463+            then throw(((("noLessThenPriceAsset failed: " + toString(outPriceAssetAmt)) + " < ") + toString(noLessThenPriceAsset)))
464+            else {
465+                let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAssetAmt], [AttachedPayment(pmtAssetId, pmtAssetAmt)])
466+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
467+                    then actions
468+                    else throw("Strict value is not equal to itself.")
469+                }
470+    }
471+
472+
473+
474+@Callable(i)
475+func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
418476     then throw("permissions denied")
419-    else $Tuple2([StringEntry(keyAmountAsset(), amountAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
477+    else $Tuple2([StringEntry(keyAmtAsset(), amtAssetStr), StringEntry(keyPriceAsset(), priceAssetStr)], "success")
420478 
421479 
422480 
423481 @Callable(i)
424482 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 lpAmountAssetShare = pricesList[1]
483+    let cfg = getPoolConfig()
484+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
485+    let amtAssetId = cfg[idxAmtAssetId]
486+    let priceAssetId = cfg[idxPriceAssetId]
487+    let iAmtAssetId = cfg[idxIAmtAssetId]
488+    let iPriceAssetId = cfg[idxIPriceAssetId]
489+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
490+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
491+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
492+    let accAmtAssetBalance = getAccBalance(amtAssetId)
493+    let accPriceAssetBalance = getAccBalance(priceAssetId)
494+    let pricesList = calcPrices(accAmtAssetBalance, accPriceAssetBalance, poolLPBalance)
495+    let curPrice = pricesList[0]
496+    let lpAmtAssetShare = pricesList[1]
440497     let lpPriceAssetShare = 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(lpAmountAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
498+    let poolWeight = value(getInteger(factoryContract, keyPoolWeight(toString(this))))
499+    $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))
443500     }
444501 
445502 
446503 
447504 @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._3
505+func evaluatePutByAmtAssetREADONLY (slippageTolerance,inAmtAssetAmt,userAddress) = {
506+    let cfg = getPoolConfig()
507+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
508+    let amtAssetId = cfg[idxAmtAssetId]
509+    let priceAssetId = cfg[idxPriceAssetId]
510+    let iAmtAssetId = cfg[idxIAmtAssetId]
511+    let iPriceAssetId = cfg[idxIPriceAssetId]
512+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
513+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
514+    let poolStatus = cfg[idxPoolStatus]
515+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
516+    let accAmtAssetBalance = getAccBalance(amtAssetId)
517+    let accPriceAssetBalance = getAccBalance(priceAssetId)
518+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
519+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
520+    let curPriceX18 = if ((poolLPBalance == 0))
521+        then toBigInt(0)
522+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18, scale18)
523+    let inAmtAssetAmtX18 = toX18(inAmtAssetAmt, amtAssetDcm)
524+    let inPriceAssetAmtX18 = fraction(inAmtAssetAmtX18, curPriceX18, scale18)
525+    let inPriceAssetAmt = fromX18(inPriceAssetAmtX18, priceAssetDcm)
526+    let estimatedPutResults = estimatePutOperation(slippageTolerance, inAmtAssetAmt, amtAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
527+    let outLpAmtCalc = estimatedPutResults._1
528+    let curPriceCalc = estimatedPutResults._2
529+    let poolAmtAssetBalanceCalc = estimatedPutResults._3
473530     let poolPriceAssetBalanceCAlc = estimatedPutResults._4
474531     let poolLPBalanceCalc = estimatedPutResults._5
475532     let poolStatusCalc = parseIntValue(estimatedPutResults._10)
476-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
533+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmtCalc), toString(fromX18(curPriceX18, scale8)), toString(poolAmtAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
477534     }
478535 
479536 
480537 
481538 @Callable(i)
482539 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._3
540+    let cfg = getPoolConfig()
541+    let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
542+    let amtAssetId = cfg[idxAmtAssetId]
543+    let priceAssetId = cfg[idxPriceAssetId]
544+    let iAmtAssetId = cfg[idxIAmtAssetId]
545+    let iPriceAssetId = cfg[idxIPriceAssetId]
546+    let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
547+    let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
548+    let poolStatus = cfg[idxPoolStatus]
549+    let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
550+    let accAmtAssetBalance = getAccBalance(amtAssetId)
551+    let accPriceAssetBalance = getAccBalance(priceAssetId)
552+    let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
553+    let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
554+    let curPriceX18 = if ((poolLPBalance == 0))
555+        then toBigInt(0)
556+        else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18, scale18)
557+    let inPriceAssetAmtX18 = toX18(inPriceAssetAmt, priceAssetDcm)
558+    let inAmtAssetAmtX18 = fraction(inPriceAssetAmtX18, scale18, curPriceX18)
559+    let inAmtAssetAmt = fromX18(inAmtAssetAmtX18, amtAssetDcm)
560+    let estimatedPutResults = estimatePutOperation(slippageTolerance, inAmtAssetAmt, amtAssetId, inPriceAssetAmt, priceAssetId, userAddress, true)
561+    let outLpAmtCalc = estimatedPutResults._1
562+    let curPriceCalc = estimatedPutResults._2
563+    let poolAmtAssetBalanceCalc = estimatedPutResults._3
508564     let poolPriceAssetBalanceCAlc = estimatedPutResults._4
509565     let poolLPBalanceCalc = estimatedPutResults._5
510566     let poolStatusCalc = parseIntValue(estimatedPutResults._10)
511-    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmountCalc), toString(curentPrice), toString(poolAmountAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
567+    $Tuple2(nil, makeString(["%d%d%d%d%d%d", toString(outLpAmtCalc), toString(fromX18(curPriceX18, scale8)), toString(poolAmtAssetBalanceCalc), toString(poolPriceAssetBalanceCAlc), toString(poolLPBalanceCalc), toString(poolStatusCalc)], SEP))
512568     }
513569 
514570 
515571 
516572 @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._7
522-    let poolPriceAssetBalance = results._8
523-    let poolLPBalance = results._9
524-    let currentPrice = results._10
525-    let poolStatus = parseIntValue(results._11)
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))
573+func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmt,userAddress) = {
574+    let res = estimateGetOperation(paymentLpAssetId, paymentLpAmt, userAddress)
575+    let outAmtAssetAmt = res._1
576+    let outPriceAssetAmt = res._2
577+    let poolAmtAssetBalance = res._7
578+    let poolPriceAssetBalance = res._8
579+    let poolLPBalance = res._9
580+    let curPrice = res._10
581+    let poolStatus = parseIntValue(res._11)
582+    $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(poolAmtAssetBalance), toString(poolPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(poolStatus)], SEP))
527583     }
528-
529-
530-
531-@Callable(i)
532-func hashREADONLY () = $Tuple2(nil, toBase64String(value(scriptHash(this))))
533584 
534585 
535586 @Verifier(tx)
536587 func verify () = match tx {
537588     case order: Order => 
538-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
589+        if (validateMatcherOrderAllowed(order))
590+            then sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
591+            else false
539592     case _ => 
540-        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
593+        let managerPublic = valueOrElse(getString(this, keyManagerPublicKey()), EMPTY)
594+        if ((managerPublic == EMPTY))
595+            then sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
596+            else sigVerify(tx.bodyBytes, tx.proofs[0], fromBase58String(managerPublic))
541597 }
542598 
github/deemru/w8io/3ef1775 
143.99 ms ◑