tx · FAAJ8GikZjrY2KjsscCbfQmyu6N71AKDqTZ1Cr3mHrkL

3N8f95pbYUxzxmecdHsqeCQXPUoDRSWdGG9:  -0.03400000 Waves

2022.08.30 18:43 [2207383] smart account 3N8f95pbYUxzxmecdHsqeCQXPUoDRSWdGG9 > SELF 0.00000000 Waves

{ "type": 13, "id": "FAAJ8GikZjrY2KjsscCbfQmyu6N71AKDqTZ1Cr3mHrkL", "fee": 3400000, "feeAssetId": null, "timestamp": 1661874201643, "version": 2, "chainId": 84, "sender": "3N8f95pbYUxzxmecdHsqeCQXPUoDRSWdGG9", "senderPublicKey": "AGk8X2naFtJSxDiemU3uYY2vUUxjpjdCCL4fWTGt5Dhn", "proofs": [ "4DoGnWR9HBHKU8WJC7zuw8fHWMSTn5vGaz6NWq5PtVoNFKUriEJ72P4wzxqSPEhkMqMEu7PkdHZJfMEBD21LqW11" ], "script": "base64:BgJ/CAISAwoBCBIDCgEIEgASBAoCAQQSBwoFAQEBAQQSAwoBARIAEgcKBQEBAQgBEgQKAgEBEgMKAQESBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCFIAD2RlZmF1bHREZWNpbWFscwDAhD0ABnNjYWxlOACAwtcvAAxzY2FsZThCaWdJbnQJALYCAQCAwtcvAAdzY2FsZTE4CQC2AgEAgICQu7rWrfANAAh0aG91c2FuZADoBwAKemVyb0JpZ0ludAkAtgIBAAAACW9uZUJpZ0ludAkAtgIBAAEACnNsaXBwYWdlNEQJALYCAQkAZQIFBnNjYWxlOAkAaQIJAGgCBQZzY2FsZTgAAQUGc2NhbGU4AAVBbXVsdAIDMTAwAAVEY29udgIBMQADU0VQAgJfXwAFRU1QVFkCAAAKUG9vbEFjdGl2ZQABAApQb29sUHV0RGlzAAIADlBvb2xNYXRjaGVyRGlzAAMADFBvb2xTaHV0ZG93bgAEAA5pZHhQb29sQWRkcmVzcwABAAlpZHhQb29sU3QAAgAJaWR4TFBBc0lkAAMACWlkeEFtQXNJZAAEAAlpZHhQckFzSWQABQALaWR4QW10QXNEY20ABgANaWR4UHJpY2VBc0RjbQAHAAtpZHhJQW10QXNJZAAIAA1pZHhJUHJpY2VBc0lkAAkAD2lkeEZhY3RTdGFrQ250cgABABBpZHhGYWN0U2xpcHBDbnRyAAcAEWlkeEZhY3RHd3hSZXdDbnRyAAoAEmZlZVBlcm1pbGxlRGVmYXVsdAAAAQV0b1gxOAIHb3JpZ1ZhbA1vcmlnU2NhbGVNdWx0CQC8AgMJALYCAQUHb3JpZ1ZhbAUHc2NhbGUxOAkAtgIBBQ1vcmlnU2NhbGVNdWx0AQdmcm9tWDE4AgN2YWwPcmVzdWx0U2NhbGVNdWx0CQCgAwEJALwCAwUDdmFsCQC2AgEFD3Jlc3VsdFNjYWxlTXVsdAUHc2NhbGUxOAECdHMDA2FtdAhyZXNTY2FsZQhjdXJTY2FsZQkAawMFA2FtdAUIcmVzU2NhbGUFCGN1clNjYWxlAQNhYnMBA3ZhbAMJAL8CAgUKemVyb0JpZ0ludAUDdmFsCQC+AgEFA3ZhbAUDdmFsARFrZXlGYWN0b3J5Q29udGFjdAACEyVzX19mYWN0b3J5Q29udHJhY3QBE2tleU1hbmFnZXJQdWJsaWNLZXkAAhQlc19fbWFuYWdlclB1YmxpY0tleQEaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBDGtleVByaWNlTGFzdAACESVzJXNfX3ByaWNlX19sYXN0AQ9rZXlQcmljZUhpc3RvcnkCAWgBdAkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAWgJAMwIAgkApAMBBQF0BQNuaWwFA1NFUAESa2V5UHV0QWN0aW9uQnlVc2VyAgJ1YQR0eElkCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUCdWECAl9fBQR0eElkARJrZXlHZXRBY3Rpb25CeVVzZXICAnVhBHR4SWQJAKwCAgkArAICCQCsAgICCyVzJXMlc19fR19fBQJ1YQICX18FBHR4SWQBDmtleUFtb3VudEFzc2V0AAIPJXNfX2Ftb3VudEFzc2V0AQ1rZXlQcmljZUFzc2V0AAIOJXNfX3ByaWNlQXNzZXQBD2tleUFtcGxpZmljYXRvcgACByVzX19hbXABD2tleUFkZG9uQWRkcmVzcwACDSVzX19hZGRvbkFkZHIADmtleUZlZVBlcm1pbGxlAg8lc19fZmVlUGVybWlsbGUAC2ZlZVBlcm1pbGxlCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFDmtleUZlZVBlcm1pbGxlBRJmZWVQZXJtaWxsZURlZmF1bHQBEGtleUZhY3RvcnlDb25maWcAAhElc19fZmFjdG9yeUNvbmZpZwENa2V5TWF0Y2hlclB1YgACGCVzJXNfX21hdGNoZXJfX3B1YmxpY0tleQENa2V5UG9vbENvbmZpZwIGaUFtdEFzBWlQckFzCQCsAgIJAKwCAgkArAICCQCsAgICCCVkJWQlc19fBQZpQW10QXMCAl9fBQVpUHJBcwIIX19jb25maWcBH2tleU1hcHBpbmdzQmFzZUFzc2V0MmludGVybmFsSWQBBWJBU3RyCQCsAgICKCVzJXMlc19fbWFwcGluZ3NfX2Jhc2VBc3NldDJpbnRlcm5hbElkX18FBWJBU3RyARNrZXlBbGxQb29sc1NodXRkb3duAAIMJXNfX3NodXRkb3duAQh0aHJvd0VycgEDbXNnCQACAQkAuQkCCQDMCAICD2xwX3N0YWJsZS5yaWRlOgkAzAgCBQNtc2cFA25pbAIBIAEPdGhyb3dPcmRlckVycm9yAwNvclYGc2VuZHJWBm1hdGNoVgkBCHRocm93RXJyAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEUZhaWxlZDogb3JkVmFsaWQ9CQClAwEFA29yVgILIHNuZHJWYWxpZD0JAKUDAQUGc2VuZHJWAgwgbXRjaHJWYWxpZD0JAKUDAQUGbWF0Y2hWAQNzdHIBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACBlN0cmluZwQGdmFsU3RyBQckbWF0Y2gwBQZ2YWxTdHIJAQh0aHJvd0VycgECE2ZhaWwgY2FzdCB0byBTdHJpbmcBD2dldFN0cmluZ09yRmFpbAIEYWRkcgNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQRhZGRyBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUEYWRkcgkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAQxnZXRJbnRPckZhaWwCBGFkZHIDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEYWRkcgUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFBGFkZHIJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAAPZmFjdG9yeUNvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQEPZ2V0U3RyaW5nT3JGYWlsAgUEdGhpcwkBEWtleUZhY3RvcnlDb250YWN0AAAMYW1wbGlmaWNhdG9yCQEPZ2V0U3RyaW5nT3JGYWlsAgUEdGhpcwkBD2tleUFtcGxpZmljYXRvcgABEGlzR2xvYmFsU2h1dGRvd24ACQELdmFsdWVPckVsc2UCCQCbCAIFD2ZhY3RvcnlDb250cmFjdAkBE2tleUFsbFBvb2xzU2h1dGRvd24ABwETZ2V0TWF0Y2hlclB1Yk9yRmFpbAAJANkEAQkBD2dldFN0cmluZ09yRmFpbAIFD2ZhY3RvcnlDb250cmFjdAkBDWtleU1hdGNoZXJQdWIAAA5tYXRjaGVyQWRkcmVzcwkApwgBCQETZ2V0TWF0Y2hlclB1Yk9yRmFpbAABDWdldFBvb2xDb25maWcABAVhbXRBcwkBD2dldFN0cmluZ09yRmFpbAIFBHRoaXMJAQ5rZXlBbW91bnRBc3NldAAEB3ByaWNlQXMJAQ9nZXRTdHJpbmdPckZhaWwCBQR0aGlzCQENa2V5UHJpY2VBc3NldAAECGlQcmljZUFzCQEMZ2V0SW50T3JGYWlsAgUPZmFjdG9yeUNvbnRyYWN0CQEfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAEFB3ByaWNlQXMEBmlBbXRBcwkBDGdldEludE9yRmFpbAIFD2ZhY3RvcnlDb250cmFjdAkBH2tleU1hcHBpbmdzQmFzZUFzc2V0MmludGVybmFsSWQBBQVhbXRBcwkAtQkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUPZmFjdG9yeUNvbnRyYWN0CQENa2V5UG9vbENvbmZpZwIJAKQDAQUGaUFtdEFzCQCkAwEFCGlQcmljZUFzBQNTRVABEGdldEZhY3RvcnlDb25maWcACQC1CQIJAQ9nZXRTdHJpbmdPckZhaWwCBQ9mYWN0b3J5Q29udHJhY3QJARBrZXlGYWN0b3J5Q29uZmlnAAUDU0VQARFkYXRhUHV0QWN0aW9uSW5mbwoNaW5BbXRBc3NldEFtdA9pblByaWNlQXNzZXRBbXQIb3V0THBBbXQFcHJpY2UKc2xpcEJ5VXNlcgxzbGlwcGFnZVJlYWwIdHhIZWlnaHQLdHhUaW1lc3RhbXAMc2xpcGFnZUFtQW10DHNsaXBhZ2VQckFtdAkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUNaW5BbXRBc3NldEFtdAkAzAgCCQCkAwEFD2luUHJpY2VBc3NldEFtdAkAzAgCCQCkAwEFCG91dExwQW10CQDMCAIJAKQDAQUFcHJpY2UJAMwIAgkApAMBBQpzbGlwQnlVc2VyCQDMCAIJAKQDAQUMc2xpcHBhZ2VSZWFsCQDMCAIJAKQDAQUIdHhIZWlnaHQJAMwIAgkApAMBBQt0eFRpbWVzdGFtcAkAzAgCCQCkAwEFDHNsaXBhZ2VBbUFtdAkAzAgCCQCkAwEFDHNsaXBhZ2VQckFtdAUDbmlsBQNTRVABEWRhdGFHZXRBY3Rpb25JbmZvBg5vdXRBbXRBc3NldEFtdBBvdXRQcmljZUFzc2V0QW10B2luTHBBbXQFcHJpY2UIdHhIZWlnaHQLdHhUaW1lc3RhbXAJALkJAgkAzAgCAgwlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQ5vdXRBbXRBc3NldEFtdAkAzAgCCQCkAwEFEG91dFByaWNlQXNzZXRBbXQJAMwIAgkApAMBBQdpbkxwQW10CQDMCAIJAKQDAQUFcHJpY2UJAMwIAgkApAMBBQh0eEhlaWdodAkAzAgCCQCkAwEFC3R4VGltZXN0YW1wBQNuaWwFA1NFUAENZ2V0QWNjQmFsYW5jZQEHYXNzZXRJZAMJAAACBQdhc3NldElkAgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQdhc3NldElkAQ9jYWxjUHJpY2VCaWdJbnQCCHByQW10WDE4CGFtQW10WDE4CQC8AgMFCHByQW10WDE4BQdzY2FsZTE4BQhhbUFtdFgxOAEPdmFsaWRhdGVBYnNEaWZmAwplc3RpbWF0ZUxQBW91dExwCHNsaXBwYWdlBARkaWZmCQC8AgMJALgCAgUKZXN0aW1hdGVMUAUFb3V0THAFDHNjYWxlOEJpZ0ludAUFb3V0THAEBHBhc3MJAL8CAgkAuAICBQhzbGlwcGFnZQkBA2FicwEFBGRpZmYFCnplcm9CaWdJbnQDCQEBIQEFBHBhc3MJAQh0aHJvd0VycgEJAKwCAgIOQmlnIHNsaXBwYWdlOiAJAKYDAQUEZGlmZgkAlAoCBQRwYXNzCQCZAwEJAMwIAgUKZXN0aW1hdGVMUAkAzAgCBQVvdXRMcAUDbmlsAQl2YWxpZGF0ZUQDAkQxAkQwCHNsaXBwYWdlBARkaWZmCQC8AgMFAkQwBQxzY2FsZThCaWdJbnQFAkQxBARmYWlsCQC/AgIFCHNsaXBwYWdlBQRkaWZmAwMFBGZhaWwGCQC/AgIFAkQwBQJEMQkBCHRocm93RXJyAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJEMAIBIAkApgMBBQJEMQIBIAkApgMBBQRkaWZmAgEgCQCmAwEFCHNsaXBwYWdlBQRmYWlsARBwcml2YXRlQ2FsY1ByaWNlBAphbUFzc2V0RGNtCnByQXNzZXREY20FYW1BbXQFcHJBbXQEC2FtdEFzQW10WDE4CQEFdG9YMTgCBQVhbUFtdAUKYW1Bc3NldERjbQQKcHJBc0FtdFgxOAkBBXRvWDE4AgUFcHJBbXQFCnByQXNzZXREY20JAQ9jYWxjUHJpY2VCaWdJbnQCBQpwckFzQW10WDE4BQthbXRBc0FtdFgxOAEKY2FsY1ByaWNlcwMFYW1BbXQFcHJBbXQFbHBBbXQEA2NmZwkBDWdldFBvb2xDb25maWcABAhhbXRBc0RjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20EB3ByQXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20ECHByaWNlWDE4CQEQcHJpdmF0ZUNhbGNQcmljZQQFCGFtdEFzRGNtBQdwckFzRGNtBQVhbUFtdAUFcHJBbXQECGFtQW10WDE4CQEFdG9YMTgCBQVhbUFtdAUIYW10QXNEY20ECHByQW10WDE4CQEFdG9YMTgCBQVwckFtdAUHcHJBc0RjbQQIbHBBbXRYMTgJAQV0b1gxOAIFBWxwQW10BQZzY2FsZTgEDWxwUHJJbkFtQXNYMTgJAQ9jYWxjUHJpY2VCaWdJbnQCBQhhbUFtdFgxOAUIbHBBbXRYMTgEDWxwUHJJblByQXNYMTgJAQ9jYWxjUHJpY2VCaWdJbnQCBQhwckFtdFgxOAUIbHBBbXRYMTgJAMwIAgUIcHJpY2VYMTgJAMwIAgUNbHBQckluQW1Bc1gxOAkAzAgCBQ1scFBySW5QckFzWDE4BQNuaWwBD2NhbGN1bGF0ZVByaWNlcwMFYW1BbXQFcHJBbXQFbHBBbXQEAXAJAQpjYWxjUHJpY2VzAwUFYW1BbXQFBXByQW10BQVscEFtdAkAzAgCCQEHZnJvbVgxOAIJAJEDAgUBcAAABQZzY2FsZTgJAMwIAgkBB2Zyb21YMTgCCQCRAwIFAXAAAQUGc2NhbGU4CQDMCAIJAQdmcm9tWDE4AgkAkQMCBQFwAAIFBnNjYWxlOAUDbmlsARRlc3RpbWF0ZUdldE9wZXJhdGlvbgQGdHhJZDU4DnBheW1lbnRBc3NldElkD3BheW1lbnRMcEFtb3VudAt1c2VyQWRkcmVzcwQDY2ZnCQENZ2V0UG9vbENvbmZpZwAECWxwQXNzZXRJZAkAkQMCBQNjZmcFCWlkeExQQXNJZAQIYW1vdW50SWQJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEB3ByaWNlSWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEDmFtb3VudERlY2ltYWxzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQNcHJpY2VEZWNpbWFscwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUNaWR4UHJpY2VBc0RjbQQDc3RzCQCRAwIFA2NmZwUJaWR4UG9vbFN0BApscEVtaXNzaW9uCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUJbHBBc3NldElkAgtXcm9uZyBMUCBpZAhxdWFudGl0eQQPdmFsaWRhdGlvbkJsb2NrAwkAAAIFCWxwQXNzZXRJZAUOcGF5bWVudEFzc2V0SWQGCQEIdGhyb3dFcnIBAhNXcm9uZyBwYXltZW50IGFzc2V0AwkAAAIFD3ZhbGlkYXRpb25CbG9jawUPdmFsaWRhdGlvbkJsb2NrBA1hbW91bnRCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFCGFtb3VudElkBAxwcmljZUJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUHcHJpY2VJZAQcYW1vdW50QmFsYW5jZURlZmF1bHREZWNpbWFscwkAawMFDWFtb3VudEJhbGFuY2UFD2RlZmF1bHREZWNpbWFscwUOYW1vdW50RGVjaW1hbHMEG3ByaWNlQmFsYW5jZURlZmF1bHREZWNpbWFscwkAawMFDHByaWNlQmFsYW5jZQUPZGVmYXVsdERlY2ltYWxzBQ1wcmljZURlY2ltYWxzBBBhbW91bnRCYWxhbmNlWDE4CQEFdG9YMTgCBRxhbW91bnRCYWxhbmNlRGVmYXVsdERlY2ltYWxzBQ9kZWZhdWx0RGVjaW1hbHMED3ByaWNlQmFsYW5jZVgxOAkBBXRvWDE4AgUbcHJpY2VCYWxhbmNlRGVmYXVsdERlY2ltYWxzBQ9kZWZhdWx0RGVjaW1hbHMED2N1cnJlbnRQcmljZVgxOAkBD2NhbGNQcmljZUJpZ0ludAIFD3ByaWNlQmFsYW5jZVgxOAUQYW1vdW50QmFsYW5jZVgxOAQIY3VyUHJpY2UJAQdmcm9tWDE4AgUPY3VycmVudFByaWNlWDE4BQZzY2FsZTgEEnBheW1lbnRMcEFtb3VudFgxOAkBBXRvWDE4AgUPcGF5bWVudExwQW1vdW50BQZzY2FsZTgEDWxwRW1pc3Npb25YMTgJAQV0b1gxOAIFCmxwRW1pc3Npb24FBnNjYWxlOAQSb3V0QW1vdW50QW1vdW50WDE4CQC8AgMFEGFtb3VudEJhbGFuY2VYMTgFEnBheW1lbnRMcEFtb3VudFgxOAUNbHBFbWlzc2lvblgxOAQRb3V0UHJpY2VBbW91bnRYMTgJALwCAwUPcHJpY2VCYWxhbmNlWDE4BRJwYXltZW50THBBbW91bnRYMTgFDWxwRW1pc3Npb25YMTgEHm91dEFtb3VudEFtb3VudERlZmF1bHREZWNpbWFscwkBB2Zyb21YMTgCBRJvdXRBbW91bnRBbW91bnRYMTgFD2RlZmF1bHREZWNpbWFscwQdb3V0UHJpY2VBbW91bnREZWZhdWx0RGVjaW1hbHMJAQdmcm9tWDE4AgURb3V0UHJpY2VBbW91bnRYMTgFD2RlZmF1bHREZWNpbWFscwQPb3V0QW1vdW50QW1vdW50CQBrAwUeb3V0QW1vdW50QW1vdW50RGVmYXVsdERlY2ltYWxzBQ5hbW91bnREZWNpbWFscwUPZGVmYXVsdERlY2ltYWxzBA5vdXRQcmljZUFtb3VudAkAawMFHW91dFByaWNlQW1vdW50RGVmYXVsdERlY2ltYWxzBQ1wcmljZURlY2ltYWxzBQ9kZWZhdWx0RGVjaW1hbHMEBXN0YXRlAwkAAAIFBnR4SWQ1OAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULdXNlckFkZHJlc3MFD291dEFtb3VudEFtb3VudAMJAAACBQhhbW91bnRJZAIFV0FWRVMFBHVuaXQJANkEAQUIYW1vdW50SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULdXNlckFkZHJlc3MFDm91dFByaWNlQW1vdW50AwkAAAIFB3ByaWNlSWQCBVdBVkVTBQR1bml0CQDZBAEFB3ByaWNlSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEmtleUdldEFjdGlvbkJ5VXNlcgIJAKUIAQULdXNlckFkZHJlc3MFBnR4SWQ1OAkBEWRhdGFHZXRBY3Rpb25JbmZvBgUPb3V0QW1vdW50QW1vdW50BQ5vdXRQcmljZUFtb3VudAUPcGF5bWVudExwQW1vdW50BQhjdXJQcmljZQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDGtleVByaWNlTGFzdAAFCGN1clByaWNlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEPa2V5UHJpY2VIaXN0b3J5AgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUIY3VyUHJpY2UFA25pbAkAnAoKBQ9vdXRBbW91bnRBbW91bnQFDm91dFByaWNlQW1vdW50BQhhbW91bnRJZAUHcHJpY2VJZAUNYW1vdW50QmFsYW5jZQUMcHJpY2VCYWxhbmNlBQpscEVtaXNzaW9uBQ9jdXJyZW50UHJpY2VYMTgFA3N0cwUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BFGVzdGltYXRlUHV0T3BlcmF0aW9uDAZ0eElkNTgRc2xpcHBhZ2VUb2xlcmFuY2UTaW5BbW91bnRBc3NldEFtb3VudA9pbkFtb3VudEFzc2V0SWQSaW5QcmljZUFzc2V0QW1vdW50DmluUHJpY2VBc3NldElkC3VzZXJBZGRyZXNzCmlzRXZhbHVhdGUGZW1pdExwCmlzT25lQXNzZXQNcGF5bWVudEFtb3VudAlwYXltZW50SWQEA2NmZwkBDWdldFBvb2xDb25maWcABAlscEFzc2V0SWQJANkEAQkAkQMCBQNjZmcFCWlkeExQQXNJZAQLYW1vdW50SWRTdHIJAJEDAgUDY2ZnBQlpZHhBbUFzSWQECnByaWNlSWRTdHIJAJEDAgUDY2ZnBQlpZHhQckFzSWQEDWluQW1vdW50SWRTdHIJAJEDAgUDY2ZnBQtpZHhJQW10QXNJZAQMaW5QcmljZUlkU3RyCQCRAwIFA2NmZwUNaWR4SVByaWNlQXNJZAQOYW1vdW50RGVjaW1hbHMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBA1wcmljZURlY2ltYWxzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBANzdHMJAJEDAgUDY2ZnBQlpZHhQb29sU3QECmxwRW1pc3Npb24ICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUJbHBBc3NldElkAg5Xcm9uZyBscCBhc3NldAhxdWFudGl0eQQNYW1vdW50QmFsYW5jZQMFCmlzRXZhbHVhdGUJAQ1nZXRBY2NCYWxhbmNlAQULYW1vdW50SWRTdHIDAwUKaXNPbmVBc3NldAkAAAIFCXBheW1lbnRJZAULYW1vdW50SWRTdHIHCQBlAgkBDWdldEFjY0JhbGFuY2UBBQthbW91bnRJZFN0cgUNcGF5bWVudEFtb3VudAMFCmlzT25lQXNzZXQJAQ1nZXRBY2NCYWxhbmNlAQULYW1vdW50SWRTdHIJAGUCCQENZ2V0QWNjQmFsYW5jZQEFC2Ftb3VudElkU3RyBRNpbkFtb3VudEFzc2V0QW1vdW50BAxwcmljZUJhbGFuY2UDBQppc0V2YWx1YXRlCQENZ2V0QWNjQmFsYW5jZQEFCnByaWNlSWRTdHIDAwUKaXNPbmVBc3NldAkAAAIFCXBheW1lbnRJZAUKcHJpY2VJZFN0cgcJAGUCCQENZ2V0QWNjQmFsYW5jZQEFCnByaWNlSWRTdHIFDXBheW1lbnRBbW91bnQDBQppc09uZUFzc2V0CQENZ2V0QWNjQmFsYW5jZQEFCnByaWNlSWRTdHIJAGUCCQENZ2V0QWNjQmFsYW5jZQEFCnByaWNlSWRTdHIFEmluUHJpY2VBc3NldEFtb3VudAQcYW1vdW50QmFsYW5jZURlZmF1bHREZWNpbWFscwkAawMFDWFtb3VudEJhbGFuY2UFD2RlZmF1bHREZWNpbWFscwUOYW1vdW50RGVjaW1hbHMEG3ByaWNlQmFsYW5jZURlZmF1bHREZWNpbWFscwkAawMFDHByaWNlQmFsYW5jZQUPZGVmYXVsdERlY2ltYWxzBQ1wcmljZURlY2ltYWxzBCJpbkFtb3VudEFzc2V0QW1vdW50RGVmYXVsdERlY2ltYWxzCQBrAwUTaW5BbW91bnRBc3NldEFtb3VudAUPZGVmYXVsdERlY2ltYWxzBQ5hbW91bnREZWNpbWFscwQhaW5QcmljZUFzc2V0QW1vdW50RGVmYXVsdERlY2ltYWxzCQBrAwUSaW5QcmljZUFzc2V0QW1vdW50BQ9kZWZhdWx0RGVjaW1hbHMFDXByaWNlRGVjaW1hbHMEFmluQW1vdW50QXNzZXRBbW91bnRYMTgJAQV0b1gxOAIFImluQW1vdW50QXNzZXRBbW91bnREZWZhdWx0RGVjaW1hbHMFD2RlZmF1bHREZWNpbWFscwQVaW5QcmljZUFzc2V0QW1vdW50WDE4CQEFdG9YMTgCBSFpblByaWNlQXNzZXRBbW91bnREZWZhdWx0RGVjaW1hbHMFD2RlZmF1bHREZWNpbWFscwQMdXNlclByaWNlWDE4CQEPY2FsY1ByaWNlQmlnSW50AgUVaW5QcmljZUFzc2V0QW1vdW50WDE4BRZpbkFtb3VudEFzc2V0QW1vdW50WDE4BBBhbW91bnRCYWxhbmNlWDE4CQEFdG9YMTgCBRxhbW91bnRCYWxhbmNlRGVmYXVsdERlY2ltYWxzBQ9kZWZhdWx0RGVjaW1hbHMED3ByaWNlQmFsYW5jZVgxOAkBBXRvWDE4AgUbcHJpY2VCYWxhbmNlRGVmYXVsdERlY2ltYWxzBQ9kZWZhdWx0RGVjaW1hbHMEAXIDCQAAAgUKbHBFbWlzc2lvbgAABA9jdXJyZW50UHJpY2VYMTgFCnplcm9CaWdJbnQEC3NsaXBwYWdlWDE4BQp6ZXJvQmlnSW50BAtscEFtb3VudFgxOAkAdgYJALkCAgUWaW5BbW91bnRBc3NldEFtb3VudFgxOAUVaW5QcmljZUFzc2V0QW1vdW50WDE4AAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQEHZnJvbVgxOAIFC2xwQW1vdW50WDE4BQZzY2FsZTgJAQdmcm9tWDE4AgUWaW5BbW91bnRBc3NldEFtb3VudFgxOAUPZGVmYXVsdERlY2ltYWxzCQEHZnJvbVgxOAIFFWluUHJpY2VBc3NldEFtb3VudFgxOAUPZGVmYXVsdERlY2ltYWxzCQEPY2FsY1ByaWNlQmlnSW50AgkAtwICBQ9wcmljZUJhbGFuY2VYMTgFFWluUHJpY2VBc3NldEFtb3VudFgxOAkAtwICBRBhbW91bnRCYWxhbmNlWDE4BRZpbkFtb3VudEFzc2V0QW1vdW50WDE4BQtzbGlwcGFnZVgxOAQPY3VycmVudFByaWNlWDE4CQEPY2FsY1ByaWNlQmlnSW50AgUPcHJpY2VCYWxhbmNlWDE4BRBhbW91bnRCYWxhbmNlWDE4BA9zbGlwcGFnZVJlYWxYMTgJALwCAwkBA2FicwEJALgCAgUPY3VycmVudFByaWNlWDE4BQx1c2VyUHJpY2VYMTgFB3NjYWxlMTgFD2N1cnJlbnRQcmljZVgxOAQLc2xpcHBhZ2VYMTgJAQV0b1gxOAIFEXNsaXBwYWdlVG9sZXJhbmNlBQZzY2FsZTgEEHZhbGlkYXRlU2xpcHBhZ2UDCQAAAgMJAQIhPQIFD2N1cnJlbnRQcmljZVgxOAUKemVyb0JpZ0ludAkAvwICBQ9zbGlwcGFnZVJlYWxYMTgFC3NsaXBwYWdlWDE4BwcGCQEIdGhyb3dFcnIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUPc2xpcHBhZ2VSZWFsWDE4AgMgPiAJAKYDAQULc2xpcHBhZ2VYMTgDCQAAAgUQdmFsaWRhdGVTbGlwcGFnZQUQdmFsaWRhdGVTbGlwcGFnZQQNbHBFbWlzc2lvblgxOAkBBXRvWDE4AgUKbHBFbWlzc2lvbgUGc2NhbGU4BApwclZpYUFtWDE4CQC8AgMFFmluQW1vdW50QXNzZXRBbW91bnRYMTgFD2N1cnJlbnRQcmljZVgxOAUHc2NhbGUxOAQKYW1WaWFQclgxOAkAvAIDBRVpblByaWNlQXNzZXRBbW91bnRYMTgFB3NjYWxlMTgFD2N1cnJlbnRQcmljZVgxOAQPZXhwZWN0ZWRBbW91bnRzAwkAvwICBQpwclZpYUFtWDE4BRVpblByaWNlQXNzZXRBbW91bnRYMTgJAJQKAgUKYW1WaWFQclgxOAUWaW5BbW91bnRBc3NldEFtb3VudFgxOAkAlAoCBRZpbkFtb3VudEFzc2V0QW1vdW50WDE4BQpwclZpYUFtWDE4BBxleHBlY3RlZEFtb3VudEFzc2V0QW1vdW50WDE4CAUPZXhwZWN0ZWRBbW91bnRzAl8xBBtleHBlY3RlZFByaWNlQXNzZXRBbW91bnRYMTgIBQ9leHBlY3RlZEFtb3VudHMCXzIEC2xwQW1vdW50WDE4CQC8AgMFDWxwRW1pc3Npb25YMTgFG2V4cGVjdGVkUHJpY2VBc3NldEFtb3VudFgxOAUPcHJpY2VCYWxhbmNlWDE4CQCXCgUJAQdmcm9tWDE4AgULbHBBbW91bnRYMTgFBnNjYWxlOAkBB2Zyb21YMTgCBRxleHBlY3RlZEFtb3VudEFzc2V0QW1vdW50WDE4BQ9kZWZhdWx0RGVjaW1hbHMJAQdmcm9tWDE4AgUbZXhwZWN0ZWRQcmljZUFzc2V0QW1vdW50WDE4BQ9kZWZhdWx0RGVjaW1hbHMFD2N1cnJlbnRQcmljZVgxOAULc2xpcHBhZ2VYMTgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EEWNhbGN1bGF0ZUxwQW1vdW50CAUBcgJfMQQbY2FsY3VsYXRlQW1vdW50QXNzZXRQYXltZW50CQBrAwgFAXICXzIFDmFtb3VudERlY2ltYWxzBQ9kZWZhdWx0RGVjaW1hbHMEGmNhbGN1bGF0ZVByaWNlQXNzZXRQYXltZW50CQBrAwgFAXICXzMFDXByaWNlRGVjaW1hbHMFD2RlZmF1bHREZWNpbWFscwQMY3VycmVudFByaWNlCQEHZnJvbVgxOAIIBQFyAl80BQZzY2FsZTgEEXNsaXBwYWdlQ2FsY3VsYXRlCQEHZnJvbVgxOAIIBQFyAl81BQZzY2FsZTgEEWNoZWNrQ2FsY0xwQW1vdW50AwkAZgIFEWNhbGN1bGF0ZUxwQW1vdW50AAAGCQEIdGhyb3dFcnIBAgdMUCA8PSAwAwkAAAIFEWNoZWNrQ2FsY0xwQW1vdW50BRFjaGVja0NhbGNMcEFtb3VudAQMZW1pdExwQW1vdW50AwkBASEBBQZlbWl0THAAAAURY2FsY3VsYXRlTHBBbW91bnQECmFtb3VudERpZmYJAGUCBRNpbkFtb3VudEFzc2V0QW1vdW50BRtjYWxjdWxhdGVBbW91bnRBc3NldFBheW1lbnQECXByaWNlRGlmZgkAZQIFEmluUHJpY2VBc3NldEFtb3VudAUaY2FsY3VsYXRlUHJpY2VBc3NldFBheW1lbnQEDSR0MDE3MTUwMTc0MDkDAwUKaXNPbmVBc3NldAkAAAIFCXBheW1lbnRJZAULYW1vdW50SWRTdHIHCQCUCgIFDXBheW1lbnRBbW91bnQAAAMDBQppc09uZUFzc2V0CQAAAgUJcGF5bWVudElkBQpwcmljZUlkU3RyBwkAlAoCAAAFDXBheW1lbnRBbW91bnQJAJQKAgUbY2FsY3VsYXRlQW1vdW50QXNzZXRQYXltZW50BRpjYWxjdWxhdGVQcmljZUFzc2V0UGF5bWVudAQKd3JpdGVBbUFtdAgFDSR0MDE3MTUwMTc0MDkCXzEECndyaXRlUHJBbXQIBQ0kdDAxNzE1MDE3NDA5Al8yBAtjb21tb25TdGF0ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDGtleVByaWNlTGFzdAAFDGN1cnJlbnRQcmljZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBD2tleVByaWNlSGlzdG9yeQIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFDGN1cnJlbnRQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQESa2V5UHV0QWN0aW9uQnlVc2VyAgULdXNlckFkZHJlc3MFBnR4SWQ1OAkBEWRhdGFQdXRBY3Rpb25JbmZvCgUKd3JpdGVBbUFtdAUKd3JpdGVQckFtdAUMZW1pdExwQW1vdW50BQxjdXJyZW50UHJpY2UFEXNsaXBwYWdlVG9sZXJhbmNlBRFzbGlwcGFnZUNhbGN1bGF0ZQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUKYW1vdW50RGlmZgUJcHJpY2VEaWZmBQNuaWwJAJ8KDQURY2FsY3VsYXRlTHBBbW91bnQFDGVtaXRMcEFtb3VudAUMY3VycmVudFByaWNlBQ1hbW91bnRCYWxhbmNlBQxwcmljZUJhbGFuY2UFCmxwRW1pc3Npb24FCWxwQXNzZXRJZAUDc3RzBQtjb21tb25TdGF0ZQUKYW1vdW50RGlmZgUJcHJpY2VEaWZmBQ9pbkFtb3VudEFzc2V0SWQFDmluUHJpY2VBc3NldElkCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuARt2YWxpZGF0ZU1hdGNoZXJPcmRlckFsbG93ZWQBBW9yZGVyBANjZmcJAQ1nZXRQb29sQ29uZmlnAAQHYW10QXNJZAkAkQMCBQNjZmcFCWlkeEFtQXNJZAQGcHJBc0lkCQCRAwIFA2NmZwUJaWR4UHJBc0lkBANzdHMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFCWlkeFBvb2xTdAQIYW10QXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBAdwckFzRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBA9hY2NBbXRBc0JhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUHYW10QXNJZAQOYWNjUHJBc0JhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUGcHJBc0lkBA9jdXJyZW50UHJpY2VYMTgDCQAAAggFBW9yZGVyCW9yZGVyVHlwZQUDQnV5CQEQcHJpdmF0ZUNhbGNQcmljZQQFCGFtdEFzRGNtBQdwckFzRGNtCQBkAgUPYWNjQW10QXNCYWxhbmNlCAUFb3JkZXIGYW1vdW50BQ5hY2NQckFzQmFsYW5jZQkBEHByaXZhdGVDYWxjUHJpY2UEBQhhbXRBc0RjbQUHcHJBc0RjbQkAZQIFD2FjY0FtdEFzQmFsYW5jZQgFBW9yZGVyBmFtb3VudAUOYWNjUHJBc0JhbGFuY2UECGN1clByaWNlCQEHZnJvbVgxOAIFD2N1cnJlbnRQcmljZVgxOAUGc2NhbGU4AwMDCQEQaXNHbG9iYWxTaHV0ZG93bgAGCQAAAgUDc3RzBQ5Qb29sTWF0Y2hlckRpcwYJAAACBQNzdHMFDFBvb2xTaHV0ZG93bgkBCHRocm93RXJyAQINQWRtaW4gYmxvY2tlZAQKb3JBbXRBc3NldAgIBQVvcmRlcglhc3NldFBhaXILYW1vdW50QXNzZXQECm9yQW10QXNTdHIDCQAAAgUKb3JBbXRBc3NldAUEdW5pdAIFV0FWRVMJANgEAQkBBXZhbHVlAQUKb3JBbXRBc3NldAQJb3JQckFzc2V0CAgFBW9yZGVyCWFzc2V0UGFpcgpwcmljZUFzc2V0BAlvclByQXNTdHIDCQAAAgUJb3JQckFzc2V0BQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQlvclByQXNzZXQDAwkBAiE9AgUKb3JBbXRBc1N0cgUHYW10QXNJZAYJAQIhPQIFCW9yUHJBc1N0cgUGcHJBc0lkCQEIdGhyb3dFcnIBAglXciBhc3NldHMECm9yZGVyUHJpY2UIBQVvcmRlcgVwcmljZQQNcHJpY2VEZWNpbWFscwkAawMFBnNjYWxlOAUHcHJBc0RjbQUIYW10QXNEY20EDmNhc3RPcmRlclByaWNlCQECdHMDBQpvcmRlclByaWNlBQZzY2FsZTgFDXByaWNlRGVjaW1hbHMEEWlzT3JkZXJQcmljZVZhbGlkAwkAAAIIBQVvcmRlcglvcmRlclR5cGUFA0J1eQkAZwIFCGN1clByaWNlBQ5jYXN0T3JkZXJQcmljZQkAZwIFDmNhc3RPcmRlclByaWNlBQhjdXJQcmljZQYBCWNvbW1vbkdldAEBaQQNY2hlY2tQYXltZW50cwMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEGCQEIdGhyb3dFcnIBAhIxIHBheW1lbnQgZXhwZWN0ZWQDCQAAAgUNY2hlY2tQYXltZW50cwUNY2hlY2tQYXltZW50cwQHcGF5bWVudAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABA5wYXltZW50QXNzZXRJZAkBBXZhbHVlAQgFB3BheW1lbnQHYXNzZXRJZAQNcGF5bWVudEFtb3VudAgFB3BheW1lbnQGYW1vdW50BAFyCQEUZXN0aW1hdGVHZXRPcGVyYXRpb24ECQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJANgEAQUOcGF5bWVudEFzc2V0SWQFDXBheW1lbnRBbW91bnQIBQFpBmNhbGxlcgQPb3V0QW1vdW50QW1vdW50CAUBcgJfMQQOb3V0UHJpY2VBbW91bnQIBQFyAl8yBANzdHMJAQ1wYXJzZUludFZhbHVlAQgFAXICXzkEBXN0YXRlCAUBcgNfMTADAwkBEGlzR2xvYmFsU2h1dGRvd24ABgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQEIdGhyb3dFcnIBCQCsAgICD0FkbWluIGJsb2NrZWQ6IAkApAMBBQNzdHMJAJcKBQUPb3V0QW1vdW50QW1vdW50BQ5vdXRQcmljZUFtb3VudAUNcGF5bWVudEFtb3VudAUOcGF5bWVudEFzc2V0SWQFBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQljb21tb25QdXQJBmNhbGxlcgR0eElkEmFtb3VudEFzc2V0UGF5bWVudBFwcmljZUFzc2V0UGF5bWVudAhzbGlwcGFnZQZlbWl0THAKaXNPbmVBc3NldA1wYXltZW50QW1vdW50CXBheW1lbnRJZAQBcgkBFGVzdGltYXRlUHV0T3BlcmF0aW9uDAUEdHhJZAUIc2xpcHBhZ2UICQEFdmFsdWUBBRJhbW91bnRBc3NldFBheW1lbnQGYW1vdW50CAkBBXZhbHVlAQUSYW1vdW50QXNzZXRQYXltZW50B2Fzc2V0SWQICQEFdmFsdWUBBRFwcmljZUFzc2V0UGF5bWVudAZhbW91bnQICQEFdmFsdWUBBRFwcmljZUFzc2V0UGF5bWVudAdhc3NldElkBQZjYWxsZXIHBQZlbWl0THAFCmlzT25lQXNzZXQFDXBheW1lbnRBbW91bnQFCXBheW1lbnRJZAQDc3RzCQENcGFyc2VJbnRWYWx1ZQEIBQFyAl84AwMDCQEQaXNHbG9iYWxTaHV0ZG93bgAGCQAAAgUDc3RzBQpQb29sUHV0RGlzBgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQEIdGhyb3dFcnIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFA3N0cwUBcgEHdGFrZUZlZQEGYW1vdW50BANmZWUJAGsDBQZhbW91bnQFC2ZlZVBlcm1pbGxlBQh0aG91c2FuZAkAlAoCCQBlAgUGYW1vdW50BQNmZWUFA2ZlZQEWbWFuYWdlclB1YmxpY0tleU9yVW5pdAAEByRtYXRjaDAJAKIIAQkBE2tleU1hbmFnZXJQdWJsaWNLZXkAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkA2QQBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgEdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQABAckbWF0Y2gwCQCiCAEJARprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleQADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQDZBAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAAJwZAkBCHRocm93RXJyAQIRUGVybWlzc2lvbiBkZW5pZWQBC211c3RNYW5hZ2VyAQFpBAckbWF0Y2gwCQEWbWFuYWdlclB1YmxpY0tleU9yVW5pdAADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCcGsFByRtYXRjaDADCQAAAggFAWkPY2FsbGVyUHVibGljS2V5BQJwawYFAnBkAwkAAQIFByRtYXRjaDACBFVuaXQDCQAAAggFAWkGY2FsbGVyBQR0aGlzBgUCcGQJAAIBAgtNYXRjaCBlcnJvchUBaQELY29uc3RydWN0b3IBD2ZhY3RvcnlDb250cmFjdAQLY2hlY2tDYWxsZXIJAQttdXN0TWFuYWdlcgEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlGYWN0b3J5Q29udGFjdAAFD2ZhY3RvcnlDb250cmFjdAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnNldE1hbmFnZXIBF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BAtjaGVja0NhbGxlcgkBC211c3RNYW5hZ2VyAQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEFWNoZWNrTWFuYWdlclB1YmxpY0tleQkA2QQBBRdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQMJAAACBRVjaGVja01hbmFnZXJQdWJsaWNLZXkFFWNoZWNrTWFuYWdlclB1YmxpY0tleQkAzAgCCQELU3RyaW5nRW50cnkCCQEaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkABRdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDmNvbmZpcm1NYW5hZ2VyAAQCcG0JAR1wZW5kaW5nTWFuYWdlclB1YmxpY0tleU9yVW5pdAAEBWhhc1BNAwkBCWlzRGVmaW5lZAEFAnBtBgkBCHRocm93RXJyAQISTm8gcGVuZGluZyBtYW5hZ2VyAwkAAAIFBWhhc1BNBQVoYXNQTQQHY2hlY2tQTQMJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAnBtBgkBCHRocm93RXJyAQIbWW91IGFyZSBub3QgcGVuZGluZyBtYW5hZ2VyAwkAAAIFB2NoZWNrUE0FB2NoZWNrUE0JAMwIAgkBC1N0cmluZ0VudHJ5AgkBE2tleU1hbmFnZXJQdWJsaWNLZXkACQDYBAEJAQV2YWx1ZQEFAnBtCQDMCAIJAQtEZWxldGVFbnRyeQEJARprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleQAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQNwdXQCCHNsaXBwYWdlCWF1dG9TdGFrZQQHZmFjdENmZwkBEGdldEZhY3RvcnlDb25maWcABA9zdGFraW5nQ29udHJhY3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB2ZhY3RDZmcFD2lkeEZhY3RTdGFrQ250cgIWV3Jvbmcgc3Rha2luZyBjb250cmFjdAQQc2xpcHBhZ2VDb250cmFjdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHZmFjdENmZwUQaWR4RmFjdFNsaXBwQ250cgIXV3JvZ24gc2xpcHBhZ2UgY29udHJhY3QEDXNsaXBwYWdlQ2hlY2sDCQBnAgUIc2xpcHBhZ2UAAAYJAQh0aHJvd0VycgECDndyb25nIHNsaXBwYWdlAwkAAAIFDXNsaXBwYWdlQ2hlY2sFDXNsaXBwYWdlQ2hlY2sEDXBheW1lbnRzQ2hlY2sDCQAAAgkAkAMBCAUBaQhwYXltZW50cwACBgkBCHRocm93RXJyAQITMiBwYXltZW50cyBleHBlY3RlZAMJAAACBQ1wYXltZW50c0NoZWNrBQ1wYXltZW50c0NoZWNrBAtlc3RpbWF0ZVB1dAkBCWNvbW1vblB1dAkJAKUIAQgFAWkGY2FsbGVyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQCRAwIIBQFpCHBheW1lbnRzAAEFCHNsaXBwYWdlBgcAAAIABAxlbWl0THBBbW91bnQIBQtlc3RpbWF0ZVB1dAJfMgQJbHBBc3NldElkCAULZXN0aW1hdGVQdXQCXzcEBXN0YXRlCAULZXN0aW1hdGVQdXQCXzkECmFtb3VudERpZmYIBQtlc3RpbWF0ZVB1dANfMTAECXByaWNlRGlmZggFC2VzdGltYXRlUHV0A18xMQQIYW1vdW50SWQIBQtlc3RpbWF0ZVB1dANfMTIEB3ByaWNlSWQIBQtlc3RpbWF0ZVB1dANfMTMEAXIJAPwHBAUPZmFjdG9yeUNvbnRyYWN0AgRlbWl0CQDMCAIFDGVtaXRMcEFtb3VudAUDbmlsBQNuaWwDCQAAAgUBcgUBcgQCZWwEByRtYXRjaDAFAXIDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQGbGVnYWN5BQckbWF0Y2gwCQD8BwQFBmxlZ2FjeQIEZW1pdAkAzAgCBQxlbWl0THBBbW91bnQFA25pbAUDbmlsBQR1bml0AwkAAAIFAmVsBQJlbAQCc2EDCQBmAgUKYW1vdW50RGlmZgAACQD8BwQFEHNsaXBwYWdlQ29udHJhY3QCA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQhhbW91bnRJZAUKYW1vdW50RGlmZgUDbmlsBQNuaWwDCQAAAgUCc2EFAnNhBAJzcAMJAGYCBQlwcmljZURpZmYAAAkA/AcEBRBzbGlwcGFnZUNvbnRyYWN0AgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUHcHJpY2VJZAUJcHJpY2VEaWZmBQNuaWwFA25pbAMJAAACBQJzcAUCc3AECWxwVHJhc2ZlcgMFCWF1dG9TdGFrZQQCc3MJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQlscEFzc2V0SWQFDGVtaXRMcEFtb3VudAUDbmlsAwkAAAIFAnNzBQJzcwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMZW1pdExwQW1vdW50BQlscEFzc2V0SWQFA25pbAkAzggCBQVzdGF0ZQUJbHBUcmFzZmVyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCXB1dE9uZVRrbgUPYW1vdW50QXNzZXRQYXJ0DnByaWNlQXNzZXRQYXJ0BW91dExwCHNsaXBwYWdlCWF1dG9TdGFrZQQDY2ZnCQEQZ2V0RmFjdG9yeUNvbmZpZwAED3N0YWtpbmdDb250cmFjdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUDY2ZnBQ9pZHhGYWN0U3Rha0NudHICFldyb25nIHN0YWtpbmcgY29udHJhY3QEEHNsaXBwYWdlQ29udHJhY3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFA2NmZwUQaWR4RmFjdFNsaXBwQ250cgIXV3Jvbmcgc2xpcHBhZ2UgY29udHJhY3QEEWd3eFJld2FyZENvbnRyYWN0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQNjZmcFEWlkeEZhY3RHd3hSZXdDbnRyAhlXcm9uZyBnd3ggcmV3YXJkIGNvbnRyYWN0BAdwb29sQ2ZnCQENZ2V0UG9vbENvbmZpZwAECGFtb3VudElkCQCRAwIFB3Bvb2xDZmcFCWlkeEFtQXNJZAQHcHJpY2VJZAkAkQMCBQdwb29sQ2ZnBQlpZHhQckFzSWQEDmFtb3VudERlY2ltYWxzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcG9vbENmZwULaWR4QW10QXNEY20EDXByaWNlRGVjaW1hbHMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdwb29sQ2ZnBQ1pZHhQcmljZUFzRGNtBAVhZGRvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEPa2V5QWRkb25BZGRyZXNzAAIABAt1c2VyQWRkcmVzcwMJAAACBQVhZGRvbgkApQgBCAUBaQZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcggFAWkGY2FsbGVyAwMDAwkAZwIAAAUIc2xpcHBhZ2UGCQBnAgAABQ9hbW91bnRBc3NldFBhcnQGCQBnAgAABQ5wcmljZUFzc2V0UGFydAYJAGcCAAAFBW91dExwCQEIdGhyb3dFcnIBAgxXcm9uZyBwYXJhbXMDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAQh0aHJvd0VycgECEjEgcGF5bWVudCBleHBlY3RlZAQHcGF5bWVudAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABA5wYXltZW50QXNzZXRJZAkA2AQBCQEFdmFsdWUBCAUHcGF5bWVudAdhc3NldElkBBBwYXltZW50QW1vdW50UmF3CAUHcGF5bWVudAZhbW91bnQEDSR0MDI2NTY5MjY2MjgJAQd0YWtlRmVlAQUQcGF5bWVudEFtb3VudFJhdwQNcGF5bWVudEFtb3VudAgFDSR0MDI2NTY5MjY2MjgCXzEECWZlZUFtb3VudAgFDSR0MDI2NTY5MjY2MjgCXzIDAwMJAGYCBQ9hbW91bnRBc3NldFBhcnQFDXBheW1lbnRBbW91bnQGCQBmAgUOcHJpY2VBc3NldFBhcnQFDXBheW1lbnRBbW91bnQGCQBmAgCAreIEBQ1wYXltZW50QW1vdW50CQEIdGhyb3dFcnIBAhR3cm9uZyBwYXltZW50IGFtb3VudAQNYW1vdW50QmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQhhbW91bnRJZAQMcHJpY2VCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFB3ByaWNlSWQEDSR0MDI2ODkzMjczNDgDCQAAAgUOcGF5bWVudEFzc2V0SWQFCGFtb3VudElkCQCYCgYJAGUCBQ1hbW91bnRCYWxhbmNlBQ1wYXltZW50QW1vdW50BQxwcmljZUJhbGFuY2UJAGUCBQ1wYXltZW50QW1vdW50BQ9hbW91bnRBc3NldFBhcnQFDnByaWNlQXNzZXRQYXJ0AAAAAAMJAAACBQ5wYXltZW50QXNzZXRJZAUHcHJpY2VJZAkAmAoGBQ1hbW91bnRCYWxhbmNlCQBlAgUMcHJpY2VCYWxhbmNlBQ1wYXltZW50QW1vdW50AAAAAAkAZQIFDXBheW1lbnRBbW91bnQFDnByaWNlQXNzZXRQYXJ0BQ9hbW91bnRBc3NldFBhcnQJAQh0aHJvd0VycgECFHdyb25nIHBheW1lbnRBc3NldElkBBBhbW91bnRCYWxhbmNlTm93CAUNJHQwMjY4OTMyNzM0OAJfMQQPcHJpY2VCYWxhbmNlTm93CAUNJHQwMjY4OTMyNzM0OAJfMgQMdmlydFN3YXBJbkFtCAUNJHQwMjY4OTMyNzM0OAJfMwQNdmlydFN3YXBPdXRQcggFDSR0MDI2ODkzMjczNDgCXzQEDHZpcnRTd2FwSW5QcggFDSR0MDI2ODkzMjczNDgCXzUEDXZpcnRTd2FwT3V0QW0IBQ0kdDAyNjg5MzI3MzQ4Al82BAJEMAkA/AcEBRFnd3hSZXdhcmRDb250cmFjdAIFY2FsY0QJAMwIAgkApAMBBRBhbW91bnRCYWxhbmNlTm93CQDMCAIJAKQDAQUPcHJpY2VCYWxhbmNlTm93CQDMCAIFDGFtcGxpZmljYXRvcgkAzAgCBQVBbXVsdAkAzAgCBQVEY29udgUDbmlsBQNuaWwEAkQxCQD8BwQFEWd3eFJld2FyZENvbnRyYWN0AgVjYWxjRAkAzAgCCQCmAwEJALYCAQkAZQIJAGQCBRBhbW91bnRCYWxhbmNlTm93BQx2aXJ0U3dhcEluQW0FDXZpcnRTd2FwT3V0QW0JAMwIAgkApgMBCQC2AgEJAGUCCQBkAgUPcHJpY2VCYWxhbmNlTm93BQx2aXJ0U3dhcEluUHIFDXZpcnRTd2FwT3V0UHIJAMwIAgUMYW1wbGlmaWNhdG9yCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQGRDB2c0QxCQEJdmFsaWRhdGVEAwkApwMBCQEDc3RyAQUCRDEJAKcDAQkBA3N0cgEFAkQwBQpzbGlwcGFnZTREAwkAAAIFBkQwdnNEMQUGRDB2c0QxBAtlc3RpbWF0ZVB1dAkBCWNvbW1vblB1dAkJAKUIAQgFAWkGY2FsbGVyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFCGFtb3VudElkBQ9hbW91bnRBc3NldFBhcnQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFB3ByaWNlSWQFDnByaWNlQXNzZXRQYXJ0BQhzbGlwcGFnZQYGBQ1wYXltZW50QW1vdW50BQ5wYXltZW50QXNzZXRJZAQKZXN0aW1hdGVMUAgFC2VzdGltYXRlUHV0Al8yBAlscEFzc2V0SWQIBQtlc3RpbWF0ZVB1dAJfNwQFc3RhdGUIBQtlc3RpbWF0ZVB1dAJfOQQKYW1vdW50RGlmZggFC2VzdGltYXRlUHV0A18xMAQJcHJpY2VEaWZmCAULZXN0aW1hdGVQdXQDXzExBAlscENhbGNSZXMJAQ92YWxpZGF0ZUFic0RpZmYDCQC2AgEFCmVzdGltYXRlTFAJALYCAQUFb3V0THAJALYCAQUIc2xpcHBhZ2UEDGVtaXRMcEFtb3VudAkAoAMBCAUJbHBDYWxjUmVzAl8yBAFlCQD8BwQFD2ZhY3RvcnlDb250cmFjdAIEZW1pdAkAzAgCBQxlbWl0THBBbW91bnQFA25pbAUDbmlsAwkAAAIFAWUFAWUEAmVsBAckbWF0Y2gwBQFlAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEBmxlZ2FjeQUHJG1hdGNoMAkA/AcEBQZsZWdhY3kCBGVtaXQJAMwIAgUMZW1pdExwQW1vdW50BQNuaWwFA25pbAUEdW5pdAMJAAACBQJlbAUCZWwEAnNhAwkAZgIFCmFtb3VudERpZmYAAAkA/AcEBRBzbGlwcGFnZUNvbnRyYWN0AgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQhhbW91bnRJZAUKYW1vdW50RGlmZgUDbmlsBQNuaWwDCQAAAgUCc2EFAnNhBAJzcAMJAGYCBQlwcmljZURpZmYAAAkA/AcEBRBzbGlwcGFnZUNvbnRyYWN0AgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQdwcmljZUlkBQlwcmljZURpZmYFA25pbAUDbmlsAwkAAAIFAnNwBQJzcAQJbHBUcmFzZmVyAwUJYXV0b1N0YWtlBAJzcwkA/AcEBQ9zdGFraW5nQ29udHJhY3QCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCWxwQXNzZXRJZAUMZW1pdExwQW1vdW50BQNuaWwDCQAAAgUCc3MFAnNzBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQxlbWl0THBBbW91bnQFCWxwQXNzZXRJZAUDbmlsBBBzZW5kRmVlVG9NYXRjaGVyAwkAZgIFCWZlZUFtb3VudAAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFDm1hdGNoZXJBZGRyZXNzBQlmZWVBbW91bnQJANkEAQUOcGF5bWVudEFzc2V0SWQFA25pbAUDbmlsCQDOCAIJAM4IAgUFc3RhdGUFCWxwVHJhc2ZlcgUQc2VuZEZlZVRvTWF0Y2hlcgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpwdXRGb3JGcmVlAQttYXhzbGlwcGFnZQMJAGYCAAAFC21heHNsaXBwYWdlCQEIdGhyb3dFcnIBAg53cm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAgkBCHRocm93RXJyAQITMiBwYXltZW50cyBleHBlY3RlZAQLZXN0aW1hdGVQdXQJAQljb21tb25QdXQJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AggJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUBaQhwYXltZW50cwABBQttYXhzbGlwcGFnZQcHAAACAAgFC2VzdGltYXRlUHV0Al85AWkBA2dldAAEAXIJAQljb21tb25HZXQBBQFpBAlvdXRBbXRBbXQIBQFyAl8xBA5vdXRQcmljZUFtb3VudAgFAXICXzIEDXBheW1lbnRBbW91bnQIBQFyAl8zBA5wYXltZW50QXNzZXRJZAgFAXICXzQEBXN0YXRlCAUBcgJfNQQBYgkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCBGJ1cm4JAMwIAgUNcGF5bWVudEFtb3VudAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQ5wYXltZW50QXNzZXRJZAUNcGF5bWVudEFtb3VudAUDbmlsAwkAAAIFAWIFAWIFBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCWdldE9uZVRrbgUKZXhjaFJlc3VsdAdub3RVc2VkCW91dEFtb3VudApvdXRBc3NldElkCHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQEIdGhyb3dFcnIBAhIxIHBheW1lbnQgZXhwZWN0ZWQEA2NmZwkBDWdldFBvb2xDb25maWcABAlscEFzc2V0SWQJAJEDAgUDY2ZnBQlpZHhMUEFzSWQECGFtb3VudElkCQCRAwIFA2NmZwUJaWR4QW1Bc0lkBAdwcmljZUlkCQCRAwIFA2NmZwUJaWR4UHJBc0lkBA5hbW91bnREZWNpbWFscwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20EDXByaWNlRGVjaW1hbHMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQHZmFjdENmZwkBEGdldEZhY3RvcnlDb25maWcABBFnd3hSZXdhcmRDb250cmFjdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHZmFjdENmZwURaWR4RmFjdEd3eFJld0NudHICH1dyb25nIGd3eFJld2FyZENvbnRyYWN0IGFkZHJlc3MEB3BheW1lbnQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQFYWRkb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBD2tleUFkZG9uQWRkcmVzcwACAAQLdXNlckFkZHJlc3MDCQAAAgUFYWRkb24JAKUIAQgFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIIBQFpBmNhbGxlcgQGdHhJZDU4CQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQEDnBheW1lbnRBc3NldElkCQEFdmFsdWUBCAUHcGF5bWVudAdhc3NldElkBA1wYXltZW50QW1vdW50CAUHcGF5bWVudAZhbW91bnQDCQBmAgCAlOvcAwUNcGF5bWVudEFtb3VudAkBCHRocm93RXJyAQIRTWluIHBheW1lbnQgMTAgTFADAwMJAGYCAAAFCHNsaXBwYWdlBgkAZgIAAAUKZXhjaFJlc3VsdAYJAGYCAAAFCW91dEFtb3VudAkBCHRocm93RXJyAQIMV3JvbmcgcGFyYW1zAwkBAiE9AgUJbHBBc3NldElkCQDYBAEFDnBheW1lbnRBc3NldElkCQEIdGhyb3dFcnIBAghXcm9uZyBMUAQBcgkBFGVzdGltYXRlR2V0T3BlcmF0aW9uBAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQDYBAEFDnBheW1lbnRBc3NldElkBQ1wYXltZW50QW1vdW50CAUBaQZjYWxsZXIECmVzdGltQW1BbXQIBQFyAl8xBAplc3RpbVByQW10CAUBcgJfMgQNYW1vdW50QmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQhhbW91bnRJZAQMcHJpY2VCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFB3ByaWNlSWQEDSR0MDMyNDk2MzI5NjQDCQAAAgUKb3V0QXNzZXRJZAUIYW1vdW50SWQJAJkKBwkAZQIFDWFtb3VudEJhbGFuY2UFCmVzdGltQW1BbXQJAGUCBQxwcmljZUJhbGFuY2UFCmVzdGltUHJBbXQFCmV4Y2hSZXN1bHQFCmVzdGltUHJBbXQAAAAACQBkAgUKZXN0aW1BbUFtdAUKZXhjaFJlc3VsdAMJAAACBQpvdXRBc3NldElkBQdwcmljZUlkCQCZCgcJAGUCBQ1hbW91bnRCYWxhbmNlBQplc3RpbUFtQW10CQBlAgUMcHJpY2VCYWxhbmNlBQplc3RpbVByQW10AAAAAAUKZXhjaFJlc3VsdAUKZXN0aW1BbUFtdAkAZAIFCmVzdGltUHJBbXQFCmV4Y2hSZXN1bHQJAQh0aHJvd0VycgECEHdyb25nIG91dEFzc2V0SWQEEGFtb3VudEJhbGFuY2VOb3cIBQ0kdDAzMjQ5NjMyOTY0Al8xBA9wcmljZUJhbGFuY2VOb3cIBQ0kdDAzMjQ5NjMyOTY0Al8yBAx2aXJ0U3dhcEluQW0IBQ0kdDAzMjQ5NjMyOTY0Al8zBA12aXJ0U3dhcE91dFByCAUNJHQwMzI0OTYzMjk2NAJfNAQMdmlydFN3YXBJblByCAUNJHQwMzI0OTYzMjk2NAJfNQQNdmlydFN3YXBPdXRBbQgFDSR0MDMyNDk2MzI5NjQCXzYECHRvdGFsR2V0CAUNJHQwMzI0OTYzMjk2NAJfNwMDCQBmAgAABQx2aXJ0U3dhcEluQW0GCQBmAgAABQx2aXJ0U3dhcEluUHIJAQh0aHJvd0VycgECCldyb25nIGNhbGMEAkQwCQD8BwQFEWd3eFJld2FyZENvbnRyYWN0AgVjYWxjRAkAzAgCCQCkAwEFEGFtb3VudEJhbGFuY2VOb3cJAMwIAgkApAMBBQ9wcmljZUJhbGFuY2VOb3cJAMwIAgUMYW1wbGlmaWNhdG9yCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQCRDEJAPwHBAURZ3d4UmV3YXJkQ29udHJhY3QCBWNhbGNECQDMCAIJAKQDAQkAZAIJAGUCBRBhbW91bnRCYWxhbmNlTm93BQx2aXJ0U3dhcEluQW0FDXZpcnRTd2FwT3V0QW0JAMwIAgkApAMBCQBlAgkAZAIFD3ByaWNlQmFsYW5jZU5vdwUNdmlydFN3YXBPdXRQcgUMdmlydFN3YXBJblByCQDMCAIFDGFtcGxpZmljYXRvcgkAzAgCBQVBbXVsdAkAzAgCBQVEY29udgUDbmlsBQNuaWwEBkQwdnNEMQkBCXZhbGlkYXRlRAMJAKcDAQkBA3N0cgEFAkQxCQCnAwEJAQNzdHIBBQJEMAUKc2xpcHBhZ2U0RAMJAAACBQZEMHZzRDEFBkQwdnNEMQQIZmluYWxSZXMJAQ92YWxpZGF0ZUFic0RpZmYDCQC2AgEFCHRvdGFsR2V0CQC2AgEFCW91dEFtb3VudAkAtgIBBQhzbGlwcGFnZQMJAAACBQhmaW5hbFJlcwUIZmluYWxSZXMEDSR0MDMzNjMzMzM3NDEDCQAAAgUKb3V0QXNzZXRJZAUIYW1vdW50SWQJAJQKAgkAoAMBCAUIZmluYWxSZXMCXzIAAAkAlAoCAAAJAKADAQgFCGZpbmFsUmVzAl8yBAVvdXRBbQgFDSR0MDMzNjMzMzM3NDECXzEEBW91dFByCAUNJHQwMzM2MzMzMzc0MQJfMgQOdG90YWxBbW91bnRSYXcJAGQCBQVvdXRBbQUFb3V0UHIEDSR0MDMzNzgxMzM4MzYJAQd0YWtlRmVlAQUOdG90YWxBbW91bnRSYXcEC3RvdGFsQW1vdW50CAUNJHQwMzM3ODEzMzgzNgJfMQQJZmVlQW1vdW50CAUNJHQwMzM3ODEzMzgzNgJfMgQRb3V0QXNzZXRJZE9yV2F2ZXMDCQAAAgUKb3V0QXNzZXRJZAIFV0FWRVMFBHVuaXQJANkEAQUKb3V0QXNzZXRJZAQQc2VuZEZlZVRvTWF0Y2hlcgMJAGYCBQlmZWVBbW91bnQAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQ5tYXRjaGVyQWRkcmVzcwUJZmVlQW1vdW50BRFvdXRBc3NldElkT3JXYXZlcwUDbmlsBQNuaWwECGRlY2ltYWxzAwkAZwIFDmFtb3VudERlY2ltYWxzBQ1wcmljZURlY2ltYWxzBQ5hbW91bnREZWNpbWFscwUNcHJpY2VEZWNpbWFscwMJAAACBQhkZWNpbWFscwUIZGVjaW1hbHMECGN1clByWDE4CQEPY2FsY1ByaWNlQmlnSW50AgkBBXRvWDE4AgUMcHJpY2VCYWxhbmNlBQhkZWNpbWFscwkBBXRvWDE4AgUNYW1vdW50QmFsYW5jZQUIZGVjaW1hbHMEBWN1clByCQEHZnJvbVgxOAIFCGN1clByWDE4BQZzY2FsZTgEBXN0YXRlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzBQt0b3RhbEFtb3VudAURb3V0QXNzZXRJZE9yV2F2ZXMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEmtleUdldEFjdGlvbkJ5VXNlcgIJAKUIAQULdXNlckFkZHJlc3MFBnR4SWQ1OAkBEWRhdGFHZXRBY3Rpb25JbmZvBgUFb3V0QW0FBW91dFByBQ1wYXltZW50QW1vdW50BQVjdXJQcgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDGtleVByaWNlTGFzdAAFBWN1clByCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEPa2V5UHJpY2VIaXN0b3J5AgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUFY3VyUHIFA25pbAMJAAACBQVzdGF0ZQUFc3RhdGUEBGJ1cm4JAPwHBAUPZmFjdG9yeUNvbnRyYWN0AgRidXJuCQDMCAIFDXBheW1lbnRBbW91bnQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcGF5bWVudEFzc2V0SWQFDXBheW1lbnRBbW91bnQFA25pbAMJAAACBQRidXJuBQRidXJuCQDOCAIFBXN0YXRlBRBzZW5kRmVlVG9NYXRjaGVyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCWdldE5vTGVzcwISbm9MZXNzVGhlbkFtdEFzc2V0FG5vTGVzc1RoZW5QcmljZUFzc2V0BAFyCQEJY29tbW9uR2V0AQUBaQQPb3V0QW1vdW50QW1vdW50CAUBcgJfMQQOb3V0UHJpY2VBbW91bnQIBQFyAl8yBA1wYXltZW50QW1vdW50CAUBcgJfMwQOcGF5bWVudEFzc2V0SWQIBQFyAl80BAVzdGF0ZQgFAXICXzUEFGNoZWNrT3V0QW1vdW50QW1vdW50AwkAZwIFD291dEFtb3VudEFtb3VudAUSbm9MZXNzVGhlbkFtdEFzc2V0BgkBCHRocm93RXJyAQkArAICCQCsAgIJAKwCAgIJRmFpbGVkOiAgCQCkAwEFD291dEFtb3VudEFtb3VudAIDIDwgCQCkAwEFEm5vTGVzc1RoZW5BbXRBc3NldAMJAAACBRRjaGVja091dEFtb3VudEFtb3VudAUUY2hlY2tPdXRBbW91bnRBbW91bnQEE2NoZWNrT3V0UHJpY2VBbW91bnQDCQBnAgUOb3V0UHJpY2VBbW91bnQFFG5vTGVzc1RoZW5QcmljZUFzc2V0BgkBCHRocm93RXJyAQkArAICCQCsAgIJAKwCAgIIRmFpbGVkOiAJAKQDAQUOb3V0UHJpY2VBbW91bnQCAyA8IAkApAMBBRRub0xlc3NUaGVuUHJpY2VBc3NldAMJAAACBRNjaGVja091dFByaWNlQW1vdW50BRNjaGVja091dFByaWNlQW1vdW50BBRidXJuTFBBc3NldE9uRmFjdG9yeQkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCBGJ1cm4JAMwIAgUNcGF5bWVudEFtb3VudAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQ5wYXltZW50QXNzZXRJZAUNcGF5bWVudEFtb3VudAUDbmlsAwkAAAIFFGJ1cm5MUEFzc2V0T25GYWN0b3J5BRRidXJuTFBBc3NldE9uRmFjdG9yeQUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQENdW5zdGFrZUFuZEdldAEGYW1vdW50BA1jaGVja1BheW1lbnRzAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQEIdGhyb3dFcnIBAhRubyBwYXltZW50cyBleHBlY3RlZAYDCQAAAgUNY2hlY2tQYXltZW50cwUNY2hlY2tQYXltZW50cwQDY2ZnCQENZ2V0UG9vbENvbmZpZwAECmZhY3RvcnlDZmcJARBnZXRGYWN0b3J5Q29uZmlnAAQJbHBBc3NldElkCQDZBAEJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEB3N0YWtpbmcJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFCmZhY3RvcnlDZmcFD2lkeEZhY3RTdGFrQ250cgIFd3JvbmcECnVuc3Rha2VJbnYJAPwHBAUHc3Rha2luZwIHdW5zdGFrZQkAzAgCCQDYBAEFCWxwQXNzZXRJZAkAzAgCBQZhbW91bnQFA25pbAUDbmlsAwkAAAIFCnVuc3Rha2VJbnYFCnVuc3Rha2VJbnYEAXIJARRlc3RpbWF0ZUdldE9wZXJhdGlvbgQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkA2AQBBQlscEFzc2V0SWQFBmFtb3VudAgFAWkGY2FsbGVyBANzdHMJAQ1wYXJzZUludFZhbHVlAQgFAXICXzkEBXN0YXRlCAUBcgNfMTAEAXYDAwkBEGlzR2xvYmFsU2h1dGRvd24ABgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQEIdGhyb3dFcnIBCQCsAgICCUJsb2NrZWQ6IAkApAMBBQNzdHMGAwkAAAIFAXYFAXYEBWJ1cm5BCQD8BwQFD2ZhY3RvcnlDb250cmFjdAIEYnVybgkAzAgCBQZhbW91bnQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUJbHBBc3NldElkBQZhbW91bnQFA25pbAMJAAACBQVidXJuQQUFYnVybkEFBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGFjdGl2YXRlAghhbXRBc1N0cgdwckFzU3RyAwkBAiE9AgkApQgBCAUBaQZjYWxsZXIJAKUIAQUPZmFjdG9yeUNvbnRyYWN0CQEIdGhyb3dFcnIBAgZkZW5pZWQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5QW1vdW50QXNzZXQABQhhbXRBc1N0cgkAzAgCCQELU3RyaW5nRW50cnkCCQENa2V5UHJpY2VBc3NldAAFB3ByQXNTdHIFA25pbAIHc3VjY2VzcwFpAQRzZXRTAgFrAXYDCQECIT0CCQClCAEIBQFpBmNhbGxlcgkBD2dldFN0cmluZ09yRmFpbAIFBHRoaXMJAQ9rZXlBZGRvbkFkZHJlc3MABQJwZAkAzAgCCQELU3RyaW5nRW50cnkCBQFrBQF2BQNuaWwBaQEEc2V0SQIBawF2AwkBAiE9AgkApQgBCAUBaQZjYWxsZXIJAQ9nZXRTdHJpbmdPckZhaWwCBQR0aGlzCQEPa2V5QWRkb25BZGRyZXNzAAUCcGQJAMwIAgkBDEludGVnZXJFbnRyeQIFAWsFAXYFA25pbAFpARxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZAAkAlAoCBQNuaWwJAQ1nZXRQb29sQ29uZmlnAAFpARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQdhc3NldElkCQCUCgIFA25pbAkBDWdldEFjY0JhbGFuY2UBBQdhc3NldElkAWkBGWNhbGNQcmljZXNXcmFwcGVyUkVBRE9OTFkDBWFtQW10BXByQW10BWxwQW10BAJwcgkBCmNhbGNQcmljZXMDBQVhbUFtdAUFcHJBbXQFBWxwQW10CQCUCgIFA25pbAkAzAgCCQCmAwEJAJEDAgUCcHIAAAkAzAgCCQCmAwEJAJEDAgUCcHIAAQkAzAgCCQCmAwEJAJEDAgUCcHIAAgUDbmlsAWkBFmZyb21YMThXcmFwcGVyUkVBRE9OTFkCA3ZhbAxyZXNTY2FsZU11bHQJAJQKAgUDbmlsCQEHZnJvbVgxOAIJAKcDAQUDdmFsBQxyZXNTY2FsZU11bHQBaQEUdG9YMThXcmFwcGVyUkVBRE9OTFkCB29yaWdWYWwNb3JpZ1NjYWxlTXVsdAkAlAoCBQNuaWwJAKYDAQkBBXRvWDE4AgUHb3JpZ1ZhbAUNb3JpZ1NjYWxlTXVsdAFpAR5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkCCHByQW10WDE4CGFtQW10WDE4CQCUCgIFA25pbAkApgMBCQEPY2FsY1ByaWNlQmlnSW50AgkApwMBBQhwckFtdFgxOAkApwMBBQhhbUFtdFgxOAFpASNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkGdHhJZDU4CHNsaXBwYWdlE2luQW1vdW50QXNzZXRBbW91bnQGaW5BbUlkEmluUHJpY2VBc3NldEFtb3VudAZpblBySWQHdXNyQWRkcgppc0V2YWx1YXRlBmVtaXRMcAkAlAoCBQNuaWwJARRlc3RpbWF0ZVB1dE9wZXJhdGlvbgwFBnR4SWQ1OAUIc2xpcHBhZ2UFE2luQW1vdW50QXNzZXRBbW91bnQFBmluQW1JZAUSaW5QcmljZUFzc2V0QW1vdW50BQZpblBySWQFB3VzckFkZHIFCmlzRXZhbHVhdGUFBmVtaXRMcAcAAAIAAWkBI2VzdGltYXRlR2V0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZBAZ0eElkNTgLcGF5bWVudEFzSWQPcGF5bWVudExwQW1vdW50B3VzckFkZHIEAXIJARRlc3RpbWF0ZUdldE9wZXJhdGlvbgQFBnR4SWQ1OAULcGF5bWVudEFzSWQFD3BheW1lbnRMcEFtb3VudAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHdXNyQWRkcgkAlAoCBQNuaWwJAJwKCggFAXICXzEIBQFyAl8yCAUBcgJfMwgFAXICXzQIBQFyAl81CAUBcgJfNggFAXICXzcJAKYDAQgFAXICXzgIBQFyAl85CAUBcgNfMTABAnR4AQZ2ZXJpZnkABAckbWF0Y2gwBQJ0eAMJAAECBQckbWF0Y2gwAgVPcmRlcgQFb3JkZXIFByRtYXRjaDAEB210Y2hQdWIJARNnZXRNYXRjaGVyUHViT3JGYWlsAAQDb3JWCQEbdmFsaWRhdGVNYXRjaGVyT3JkZXJBbGxvd2VkAQUFb3JkZXIEBXNuZHJWCQD0AwMIBQVvcmRlcglib2R5Qnl0ZXMJAJEDAggFBW9yZGVyBnByb29mcwAACAUFb3JkZXIPc2VuZGVyUHVibGljS2V5BAVtdGNoVgkA9AMDCAUFb3JkZXIJYm9keUJ5dGVzCQCRAwIIBQVvcmRlcgZwcm9vZnMAAQUHbXRjaFB1YgMDAwUDb3JWBQVzbmRyVgcFBW10Y2hWBwYJAQ90aHJvd09yZGVyRXJyb3IDBQNvclYFBXNuZHJWBQVtdGNoVgQPdGFyZ2V0UHVibGljS2V5BAckbWF0Y2gxCQEWbWFuYWdlclB1YmxpY0tleU9yVW5pdAADCQABAgUHJG1hdGNoMQIKQnl0ZVZlY3RvcgQCcGsFByRtYXRjaDEFAnBrAwkAAQIFByRtYXRjaDECBFVuaXQIBQJ0eA9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUPdGFyZ2V0UHVibGljS2V5/Xi9zQ==", "height": 2207383, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 7LSs3p3NpGeU32XNFyV6yBwsFX8hCqA7VR5Vtpj1NJB2 Next: A4bvDmgWaTrbYfLwrDx68GGK5oSirQRKaeyXv57Pjf71 Diff:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let defaultDecimals = 1000000
5+
46 let scale8 = 100000000
57
68 let scale8BigInt = toBigInt(100000000)
79
810 let scale18 = toBigInt(1000000000000000000)
11+
12+let thousand = 1000
913
1014 let zeroBigInt = toBigInt(0)
1115
5357
5458 let idxFactGwxRewCntr = 10
5559
56-let delay = "%s__delay"
60+let feePermilleDefault = 0
5761
58-func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
62+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
5963
6064
61-func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
65+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
6266
6367
6468 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
6973 else val
7074
7175
72-func fc () = "%s__factoryContract"
76+func keyFactoryContact () = "%s__factoryContract"
7377
7478
75-func mpk () = "%s__managerPublicKey"
79+func keyManagerPublicKey () = "%s__managerPublicKey"
7680
7781
78-func pmpk () = "%s__pendingManagerPublicKey"
82+func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
7983
8084
81-func pl () = "%s%s__price__last"
85+func keyPriceLast () = "%s%s__price__last"
8286
8387
84-func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
88+func keyPriceHistory (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
8589
8690
87-func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
91+func keyPutActionByUser (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
8892
8993
90-func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
94+func keyGetActionByUser (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
9195
9296
93-func aa () = "%s__amountAsset"
97+func keyAmountAsset () = "%s__amountAsset"
9498
9599
96-func pa () = "%s__priceAsset"
100+func keyPriceAsset () = "%s__priceAsset"
97101
98102
99-func amp () = "%s__amp"
103+func keyAmplificator () = "%s__amp"
100104
101105
102-func ada () = "%s__addonAddr"
106+func keyAddonAddress () = "%s__addonAddr"
103107
104108
105-func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
109+let keyFeePermille = "%s__feePermille"
110+
111+let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
112+
113+func keyFactoryConfig () = "%s__factoryConfig"
106114
107115
108-func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
116+func keyMatcherPub () = "%s%s__matcher__publicKey"
109117
110118
111-func fcfg () = "%s__factoryConfig"
119+func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
112120
113121
114-func mtpk () = "%s%s__matcher__publicKey"
122+func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
115123
116124
117-func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125+func keyAllPoolsShutdown () = "%s__shutdown"
118126
119127
120-func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128+func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
121129
122130
123-func aps () = "%s__shutdown"
124-
125-
126-func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127-
128-
129-func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
131+func throwOrderError (orV,sendrV,matchV) = throwErr(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
130132
131133
132134 func str (val) = match val {
133135 case valStr: String =>
134136 valStr
135137 case _ =>
136- throw("fail cast to String")
138+ throwErr("fail cast to String")
137139 }
138140
139141
140-func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
142+func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
141143
142144
143-func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
145+func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
144146
145147
146-let fca = addressFromStringValue(strf(this, fc()))
148+let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContact()))
147149
148-let A = strf(this, amp())
150+let amplificator = getStringOrFail(this, keyAmplificator())
149151
150-func igs () = valueOrElse(getBoolean(fca, aps()), false)
152+func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
151153
152154
153-func mp () = fromBase58String(strf(fca, mtpk()))
155+func getMatcherPubOrFail () = fromBase58String(getStringOrFail(factoryContract, keyMatcherPub()))
154156
155157
156-func gpc () = {
157- let amtAs = strf(this, aa())
158- let priceAs = strf(this, pa())
159- let iPriceAs = intf(fca, mba(priceAs))
160- let iAmtAs = intf(fca, mba(amtAs))
161- split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
158+let matcherAddress = addressFromPublicKey(getMatcherPubOrFail())
159+
160+func getPoolConfig () = {
161+ let amtAs = getStringOrFail(this, keyAmountAsset())
162+ let priceAs = getStringOrFail(this, keyPriceAsset())
163+ let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs))
164+ let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs))
165+ split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP)
162166 }
163167
164168
165-func gfc () = split(strf(fca, fcfg()), SEP)
169+func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
166170
167171
168172 func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
176180 else assetBalance(this, fromBase58String(assetId))
177181
178182
179-func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
183+func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
180184
181185
182-func vad (A1,A2,slippage) = {
183- let diff = fraction((A1 - A2), scale8BigInt, A2)
186+func validateAbsDiff (estimateLP,outLp,slippage) = {
187+ let diff = fraction((estimateLP - outLp), scale8BigInt, outLp)
184188 let pass = ((slippage - abs(diff)) > zeroBigInt)
185189 if (!(pass))
186- then throw(("Big slpg: " + toString(diff)))
187- else $Tuple2(pass, min([A1, A2]))
190+ then throwErr(("Big slippage: " + toString(diff)))
191+ else $Tuple2(pass, min([estimateLP, outLp]))
188192 }
189193
190194
191-func vd (D1,D0,slpg) = {
195+func validateD (D1,D0,slippage) = {
192196 let diff = fraction(D0, scale8BigInt, D1)
193- let fail = (slpg > diff)
197+ let fail = (slippage > diff)
194198 if (if (fail)
195199 then true
196200 else (D0 > D1))
197- then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
201+ then throwErr(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slippage)))
198202 else fail
199203 }
200204
201205
202-func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
203- let amtAsAmtX18 = t1(amAmt, amAssetDcm)
204- let prAsAmtX18 = t1(prAmt, prAssetDcm)
205- cpbi(prAsAmtX18, amtAsAmtX18)
206+func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
207+ let amtAsAmtX18 = toX18(amAmt, amAssetDcm)
208+ let prAsAmtX18 = toX18(prAmt, prAssetDcm)
209+ calcPriceBigInt(prAsAmtX18, amtAsAmtX18)
206210 }
207211
208212
209213 func calcPrices (amAmt,prAmt,lpAmt) = {
210- let cfg = gpc()
214+ let cfg = getPoolConfig()
211215 let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
212216 let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
213- let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
214- let amAmtX18 = t1(amAmt, amtAsDcm)
215- let prAmtX18 = t1(prAmt, prAsDcm)
216- let lpAmtX18 = t1(lpAmt, scale8)
217- let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
218- let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
217+ let priceX18 = privateCalcPrice(amtAsDcm, prAsDcm, amAmt, prAmt)
218+ let amAmtX18 = toX18(amAmt, amtAsDcm)
219+ let prAmtX18 = toX18(prAmt, prAsDcm)
220+ let lpAmtX18 = toX18(lpAmt, scale8)
221+ let lpPrInAmAsX18 = calcPriceBigInt(amAmtX18, lpAmtX18)
222+ let lpPrInPrAsX18 = calcPriceBigInt(prAmtX18, lpAmtX18)
219223 [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
220224 }
221225
222226
223227 func calculatePrices (amAmt,prAmt,lpAmt) = {
224228 let p = calcPrices(amAmt, prAmt, lpAmt)
225-[f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
229+[fromX18(p[0], scale8), fromX18(p[1], scale8), fromX18(p[2], scale8)]
226230 }
227231
228232
229-func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
230- let cfg = gpc()
231- let lpId = cfg[idxLPAsId]
232- let amId = cfg[idxAmAsId]
233- let prId = cfg[idxPrAsId]
234- let amDcm = parseIntValue(cfg[idxAmtAsDcm])
235- let prDcm = parseIntValue(cfg[idxPriceAsDcm])
233+func estimateGetOperation (txId58,paymentAssetId,paymentLpAmount,userAddress) = {
234+ let cfg = getPoolConfig()
235+ let lpAssetId = cfg[idxLPAsId]
236+ let amountId = cfg[idxAmAsId]
237+ let priceId = cfg[idxPrAsId]
238+ let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
239+ let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
236240 let sts = cfg[idxPoolSt]
237- let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
238- if ((lpId != pmtAssetId))
239- then throw("Wrong pmt asset")
240- else {
241- let amBalance = getAccBalance(amId)
242- let amBalanceX18 = t1(amBalance, amDcm)
243- let prBalance = getAccBalance(prId)
244- let prBalanceX18 = t1(prBalance, prDcm)
245- let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
246- let curPrice = f1(curPriceX18, scale8)
247- let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
248- let lpEmissX18 = t1(lpEmiss, scale8)
249- let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
250- let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
251- let outAmAmt = f1(outAmAmtX18, amDcm)
252- let outPrAmt = f1(outPrAmtX18, prDcm)
241+ let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), "Wrong LP id").quantity
242+ let validationBlock = if ((lpAssetId == paymentAssetId))
243+ then true
244+ else throwErr("Wrong payment asset")
245+ if ((validationBlock == validationBlock))
246+ then {
247+ let amountBalance = getAccBalance(amountId)
248+ let priceBalance = getAccBalance(priceId)
249+ let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
250+ let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
251+ let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
252+ let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
253+ let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
254+ let curPrice = fromX18(currentPriceX18, scale8)
255+ let paymentLpAmountX18 = toX18(paymentLpAmount, scale8)
256+ let lpEmissionX18 = toX18(lpEmission, scale8)
257+ let outAmountAmountX18 = fraction(amountBalanceX18, paymentLpAmountX18, lpEmissionX18)
258+ let outPriceAmountX18 = fraction(priceBalanceX18, paymentLpAmountX18, lpEmissionX18)
259+ let outAmountAmountDefaultDecimals = fromX18(outAmountAmountX18, defaultDecimals)
260+ let outPriceAmountDefaultDecimals = fromX18(outPriceAmountX18, defaultDecimals)
261+ let outAmountAmount = fraction(outAmountAmountDefaultDecimals, amountDecimals, defaultDecimals)
262+ let outPriceAmount = fraction(outPriceAmountDefaultDecimals, priceDecimals, defaultDecimals)
253263 let state = if ((txId58 == ""))
254264 then nil
255- else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
265+ else [ScriptTransfer(userAddress, outAmountAmount, if ((amountId == "WAVES"))
256266 then unit
257- else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
267+ else fromBase58String(amountId)), ScriptTransfer(userAddress, outPriceAmount, if ((priceId == "WAVES"))
258268 then unit
259- else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
260- $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
269+ else fromBase58String(priceId)), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAmountAmount, outPriceAmount, paymentLpAmount, curPrice, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice)]
270+ $Tuple10(outAmountAmount, outPriceAmount, amountId, priceId, amountBalance, priceBalance, lpEmission, currentPriceX18, sts, state)
261271 }
272+ else throw("Strict value is not equal to itself.")
262273 }
263274
264275
265-func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
266- let cfg = gpc()
267- let lpId = fromBase58String(cfg[idxLPAsId])
268- let amIdStr = cfg[idxAmAsId]
269- let prIdStr = cfg[idxPrAsId]
270- let inAmIdStr = cfg[idxIAmtAsId]
271- let inPrIdStr = cfg[idxIPriceAsId]
272- let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
273- let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
276+func estimatePutOperation (txId58,slippageTolerance,inAmountAssetAmount,inAmountAssetId,inPriceAssetAmount,inPriceAssetId,userAddress,isEvaluate,emitLp,isOneAsset,paymentAmount,paymentId) = {
277+ let cfg = getPoolConfig()
278+ let lpAssetId = fromBase58String(cfg[idxLPAsId])
279+ let amountIdStr = cfg[idxAmAsId]
280+ let priceIdStr = cfg[idxPrAsId]
281+ let inAmountIdStr = cfg[idxIAmtAsId]
282+ let inPriceIdStr = cfg[idxIPriceAsId]
283+ let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
284+ let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
274285 let sts = cfg[idxPoolSt]
275- let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
276- let amBalance = if (isEval)
277- then getAccBalance(amIdStr)
286+ let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), "Wrong lp asset").quantity
287+ let amountBalance = if (isEvaluate)
288+ then getAccBalance(amountIdStr)
278289 else if (if (isOneAsset)
279- then (pmtId == amIdStr)
290+ then (paymentId == amountIdStr)
280291 else false)
281- then (getAccBalance(amIdStr) - pmtAmt)
292+ then (getAccBalance(amountIdStr) - paymentAmount)
282293 else if (isOneAsset)
283- then getAccBalance(amIdStr)
284- else (getAccBalance(amIdStr) - inAmAmt)
285- let prBalance = if (isEval)
286- then getAccBalance(prIdStr)
294+ then getAccBalance(amountIdStr)
295+ else (getAccBalance(amountIdStr) - inAmountAssetAmount)
296+ let priceBalance = if (isEvaluate)
297+ then getAccBalance(priceIdStr)
287298 else if (if (isOneAsset)
288- then (pmtId == prIdStr)
299+ then (paymentId == priceIdStr)
289300 else false)
290- then (getAccBalance(prIdStr) - pmtAmt)
301+ then (getAccBalance(priceIdStr) - paymentAmount)
291302 else if (isOneAsset)
292- then getAccBalance(prIdStr)
293- else (getAccBalance(prIdStr) - inPrAmt)
294- let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
295- let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
296- let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
297- let amBalanceX18 = t1(amBalance, amtDcm)
298- let prBalanceX18 = t1(prBalance, priceDcm)
299- let r = if ((lpEm == 0))
303+ then getAccBalance(priceIdStr)
304+ else (getAccBalance(priceIdStr) - inPriceAssetAmount)
305+ let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
306+ let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
307+ let inAmountAssetAmountDefaultDecimals = fraction(inAmountAssetAmount, defaultDecimals, amountDecimals)
308+ let inPriceAssetAmountDefaultDecimals = fraction(inPriceAssetAmount, defaultDecimals, priceDecimals)
309+ let inAmountAssetAmountX18 = toX18(inAmountAssetAmountDefaultDecimals, defaultDecimals)
310+ let inPriceAssetAmountX18 = toX18(inPriceAssetAmountDefaultDecimals, defaultDecimals)
311+ let userPriceX18 = calcPriceBigInt(inPriceAssetAmountX18, inAmountAssetAmountX18)
312+ let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
313+ let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
314+ let r = if ((lpEmission == 0))
300315 then {
301- let curPriceX18 = zeroBigInt
316+ let currentPriceX18 = zeroBigInt
302317 let slippageX18 = zeroBigInt
303- let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
304- $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
318+ let lpAmountX18 = pow((inAmountAssetAmountX18 * inPriceAssetAmountX18), 0, toBigInt(5), 1, 0, DOWN)
319+ $Tuple5(fromX18(lpAmountX18, scale8), fromX18(inAmountAssetAmountX18, defaultDecimals), fromX18(inPriceAssetAmountX18, defaultDecimals), calcPriceBigInt((priceBalanceX18 + inPriceAssetAmountX18), (amountBalanceX18 + inAmountAssetAmountX18)), slippageX18)
305320 }
306321 else {
307- let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
308- let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
309- let slippageX18 = t1(slippage, scale8)
310- if (if ((curPriceX18 != zeroBigInt))
322+ let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
323+ let slippageRealX18 = fraction(abs((currentPriceX18 - userPriceX18)), scale18, currentPriceX18)
324+ let slippageX18 = toX18(slippageTolerance, scale8)
325+ let validateSlippage = if (((if ((currentPriceX18 != zeroBigInt))
311326 then (slippageRealX18 > slippageX18)
327+ else false) == false))
328+ then true
329+ else throwErr(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
330+ if ((validateSlippage == validateSlippage))
331+ then {
332+ let lpEmissionX18 = toX18(lpEmission, scale8)
333+ let prViaAmX18 = fraction(inAmountAssetAmountX18, currentPriceX18, scale18)
334+ let amViaPrX18 = fraction(inPriceAssetAmountX18, scale18, currentPriceX18)
335+ let expectedAmounts = if ((prViaAmX18 > inPriceAssetAmountX18))
336+ then $Tuple2(amViaPrX18, inAmountAssetAmountX18)
337+ else $Tuple2(inAmountAssetAmountX18, prViaAmX18)
338+ let expectedAmountAssetAmountX18 = expectedAmounts._1
339+ let expectedPriceAssetAmountX18 = expectedAmounts._2
340+ let lpAmountX18 = fraction(lpEmissionX18, expectedPriceAssetAmountX18, priceBalanceX18)
341+ $Tuple5(fromX18(lpAmountX18, scale8), fromX18(expectedAmountAssetAmountX18, defaultDecimals), fromX18(expectedPriceAssetAmountX18, defaultDecimals), currentPriceX18, slippageX18)
342+ }
343+ else throw("Strict value is not equal to itself.")
344+ }
345+ let calculateLpAmount = r._1
346+ let calculateAmountAssetPayment = fraction(r._2, amountDecimals, defaultDecimals)
347+ let calculatePriceAssetPayment = fraction(r._3, priceDecimals, defaultDecimals)
348+ let currentPrice = fromX18(r._4, scale8)
349+ let slippageCalculate = fromX18(r._5, scale8)
350+ let checkCalcLpAmount = if ((calculateLpAmount > 0))
351+ then true
352+ else throwErr("LP <= 0")
353+ if ((checkCalcLpAmount == checkCalcLpAmount))
354+ then {
355+ let emitLpAmount = if (!(emitLp))
356+ then 0
357+ else calculateLpAmount
358+ let amountDiff = (inAmountAssetAmount - calculateAmountAssetPayment)
359+ let priceDiff = (inPriceAssetAmount - calculatePriceAssetPayment)
360+ let $t01715017409 = if (if (isOneAsset)
361+ then (paymentId == amountIdStr)
312362 else false)
313- then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
314- else {
315- let lpEmissionX18 = t1(lpEm, scale8)
316- let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
317- let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
318- let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
319- then $Tuple2(amViaPrX18, inPrAssetAmtX18)
320- else $Tuple2(inAmAssetAmtX18, prViaAmX18)
321- let expAmtAssetAmtX18 = expectedAmts._1
322- let expPriceAssetAmtX18 = expectedAmts._2
323- let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
324- $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
325- }
363+ then $Tuple2(paymentAmount, 0)
364+ else if (if (isOneAsset)
365+ then (paymentId == priceIdStr)
366+ else false)
367+ then $Tuple2(0, paymentAmount)
368+ else $Tuple2(calculateAmountAssetPayment, calculatePriceAssetPayment)
369+ let writeAmAmt = $t01715017409._1
370+ let writePrAmt = $t01715017409._2
371+ let commonState = [IntegerEntry(keyPriceLast(), currentPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), currentPrice), StringEntry(keyPutActionByUser(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmount, currentPrice, slippageTolerance, slippageCalculate, height, lastBlock.timestamp, amountDiff, priceDiff))]
372+ $Tuple13(calculateLpAmount, emitLpAmount, currentPrice, amountBalance, priceBalance, lpEmission, lpAssetId, sts, commonState, amountDiff, priceDiff, inAmountAssetId, inPriceAssetId)
326373 }
327- let calcLpAmt = r._1
328- let calcAmAssetPmt = r._2
329- let calcPrAssetPmt = r._3
330- let curPrice = f1(r._4, scale8)
331- let slippageCalc = f1(r._5, scale8)
332- if ((0 >= calcLpAmt))
333- then throw("LP <= 0")
334- else {
335- let emitLpAmt = if (!(emitLp))
336- then 0
337- else calcLpAmt
338- let amDiff = (inAmAmt - calcAmAssetPmt)
339- let prDiff = (inPrAmt - calcPrAssetPmt)
340- let $t01560115946 = if (if (isOneAsset)
341- then (pmtId == amIdStr)
342- else false)
343- then $Tuple2(pmtAmt, 0)
344- else if (if (isOneAsset)
345- then (pmtId == prIdStr)
346- else false)
347- then $Tuple2(0, pmtAmt)
348- else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
349- let writeAmAmt = $t01560115946._1
350- let writePrAmt = $t01560115946._2
351- let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
352- $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
353- }
374+ else throw("Strict value is not equal to itself.")
354375 }
355376
356377
357-func moa (order) = {
358- let cfg = gpc()
378+func validateMatcherOrderAllowed (order) = {
379+ let cfg = getPoolConfig()
359380 let amtAsId = cfg[idxAmAsId]
360381 let prAsId = cfg[idxPrAsId]
361382 let sts = parseIntValue(cfg[idxPoolSt])
363384 let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
364385 let accAmtAsBalance = getAccBalance(amtAsId)
365386 let accPrAsBalance = getAccBalance(prAsId)
366- let curPriceX18 = if ((order.orderType == Buy))
367- then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
368- else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
369- let curPrice = f1(curPriceX18, scale8)
370- if (if (if (igs())
387+ let currentPriceX18 = if ((order.orderType == Buy))
388+ then privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
389+ else privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
390+ let curPrice = fromX18(currentPriceX18, scale8)
391+ if (if (if (isGlobalShutdown())
371392 then true
372393 else (sts == PoolMatcherDis))
373394 then true
374395 else (sts == PoolShutdown))
375- then throw("Admin blocked")
396+ then throwErr("Admin blocked")
376397 else {
377398 let orAmtAsset = order.assetPair.amountAsset
378399 let orAmtAsStr = if ((orAmtAsset == unit))
385406 if (if ((orAmtAsStr != amtAsId))
386407 then true
387408 else (orPrAsStr != prAsId))
388- then throw("Wr assets")
409+ then throwErr("Wr assets")
389410 else {
390411 let orderPrice = order.price
391- let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
392- let castOrderPrice = ts(orderPrice, scale8, priceDcm)
412+ let priceDecimals = fraction(scale8, prAsDcm, amtAsDcm)
413+ let castOrderPrice = ts(orderPrice, scale8, priceDecimals)
393414 let isOrderPriceValid = if ((order.orderType == Buy))
394415 then (curPrice >= castOrderPrice)
395416 else (castOrderPrice >= curPrice)
399420 }
400421
401422
402-func cg (i) = if ((size(i.payments) != 1))
403- then throw("1 pmnt exp")
404- else {
405- let pmt = value(i.payments[0])
406- let pmtAssetId = value(pmt.assetId)
407- let pmtAmt = pmt.amount
408- let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
409- let outAmAmt = r._1
410- let outPrAmt = r._2
411- let sts = parseIntValue(r._9)
412- let state = r._10
413- if (if (igs())
414- then true
415- else (sts == PoolShutdown))
416- then throw(("Admin blocked: " + toString(sts)))
417- else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
418- }
423+func commonGet (i) = {
424+ let checkPayments = if ((size(i.payments) == 1))
425+ then true
426+ else throwErr("1 payment expected")
427+ if ((checkPayments == checkPayments))
428+ then {
429+ let payment = value(i.payments[0])
430+ let paymentAssetId = value(payment.assetId)
431+ let paymentAmount = payment.amount
432+ let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
433+ let outAmountAmount = r._1
434+ let outPriceAmount = r._2
435+ let sts = parseIntValue(r._9)
436+ let state = r._10
437+ if (if (isGlobalShutdown())
438+ then true
439+ else (sts == PoolShutdown))
440+ then throwErr(("Admin blocked: " + toString(sts)))
441+ else $Tuple5(outAmountAmount, outPriceAmount, paymentAmount, paymentAssetId, state)
442+ }
443+ else throw("Strict value is not equal to itself.")
444+ }
419445
420446
421-func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
422- let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
447+func commonPut (caller,txId,amountAssetPayment,priceAssetPayment,slippage,emitLp,isOneAsset,paymentAmount,paymentId) = {
448+ let r = estimatePutOperation(txId, slippage, value(amountAssetPayment).amount, value(amountAssetPayment).assetId, value(priceAssetPayment).amount, value(priceAssetPayment).assetId, caller, false, emitLp, isOneAsset, paymentAmount, paymentId)
423449 let sts = parseIntValue(r._8)
424- if (if (if (igs())
450+ if (if (if (isGlobalShutdown())
425451 then true
426452 else (sts == PoolPutDis))
427453 then true
428454 else (sts == PoolShutdown))
429- then throw(("Blocked:" + toString(sts)))
455+ then throwErr(("Blocked:" + toString(sts)))
430456 else r
431457 }
432458
433459
434-func m () = match getString(mpk()) {
460+func takeFee (amount) = {
461+ let fee = fraction(amount, feePermille, thousand)
462+ $Tuple2((amount - fee), fee)
463+ }
464+
465+
466+func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
435467 case s: String =>
436468 fromBase58String(s)
437469 case _: Unit =>
441473 }
442474
443475
444-func pm () = match getString(pmpk()) {
476+func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
445477 case s: String =>
446478 fromBase58String(s)
447479 case _: Unit =>
451483 }
452484
453485
454-let pd = throw("Permission denied")
486+let pd = throwErr("Permission denied")
455487
456-func mm (i) = match m() {
488+func mustManager (i) = match managerPublicKeyOrUnit() {
457489 case pk: ByteVector =>
458490 if ((i.callerPublicKey == pk))
459491 then true
468500
469501
470502 @Callable(i)
471-func constructor (fc) = {
472- let c = mm(i)
473- if ((c == c))
474- then [StringEntry(fc(), fc)]
503+func constructor (factoryContract) = {
504+ let checkCaller = mustManager(i)
505+ if ((checkCaller == checkCaller))
506+ then [StringEntry(keyFactoryContact(), factoryContract)]
475507 else throw("Strict value is not equal to itself.")
476508 }
477509
479511
480512 @Callable(i)
481513 func setManager (pendingManagerPublicKey) = {
482- let c = mm(i)
483- if ((c == c))
514+ let checkCaller = mustManager(i)
515+ if ((checkCaller == checkCaller))
484516 then {
485- let cm = fromBase58String(pendingManagerPublicKey)
486- if ((cm == cm))
487- then [StringEntry(pmpk(), pendingManagerPublicKey)]
517+ let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
518+ if ((checkManagerPublicKey == checkManagerPublicKey))
519+ then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
488520 else throw("Strict value is not equal to itself.")
489521 }
490522 else throw("Strict value is not equal to itself.")
494526
495527 @Callable(i)
496528 func confirmManager () = {
497- let p = pm()
498- let hpm = if (isDefined(p))
529+ let pm = pendingManagerPublicKeyOrUnit()
530+ let hasPM = if (isDefined(pm))
499531 then true
500- else throw("No pending manager")
501- if ((hpm == hpm))
532+ else throwErr("No pending manager")
533+ if ((hasPM == hasPM))
502534 then {
503- let cpm = if ((i.callerPublicKey == value(p)))
535+ let checkPM = if ((i.callerPublicKey == value(pm)))
504536 then true
505- else throw("You are not pending manager")
506- if ((cpm == cpm))
507- then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
537+ else throwErr("You are not pending manager")
538+ if ((checkPM == checkPM))
539+ then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
508540 else throw("Strict value is not equal to itself.")
509541 }
510542 else throw("Strict value is not equal to itself.")
513545
514546
515547 @Callable(i)
516-func put (slip,autoStake) = {
517- let factCfg = gfc()
518- let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
519- let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
520- if ((0 > slip))
521- then throw("Wrong slippage")
522- else if ((size(i.payments) != 2))
523- then throw("2 pmnts expd")
548+func put (slippage,autoStake) = {
549+ let factCfg = getFactoryConfig()
550+ let stakingContract = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wrong staking contract")
551+ let slippageContract = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wrogn slippage contract")
552+ let slippageCheck = if ((slippage >= 0))
553+ then true
554+ else throwErr("wrong slippage")
555+ if ((slippageCheck == slippageCheck))
556+ then {
557+ let paymentsCheck = if ((size(i.payments) == 2))
558+ then true
559+ else throwErr("2 payments expected")
560+ if ((paymentsCheck == paymentsCheck))
561+ then {
562+ let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slippage, true, false, 0, "")
563+ let emitLpAmount = estimatePut._2
564+ let lpAssetId = estimatePut._7
565+ let state = estimatePut._9
566+ let amountDiff = estimatePut._10
567+ let priceDiff = estimatePut._11
568+ let amountId = estimatePut._12
569+ let priceId = estimatePut._13
570+ let r = invoke(factoryContract, "emit", [emitLpAmount], nil)
571+ if ((r == r))
572+ then {
573+ let el = match r {
574+ case legacy: Address =>
575+ invoke(legacy, "emit", [emitLpAmount], nil)
576+ case _ =>
577+ unit
578+ }
579+ if ((el == el))
580+ then {
581+ let sa = if ((amountDiff > 0))
582+ then invoke(slippageContract, "put", nil, [AttachedPayment(amountId, amountDiff)])
583+ else nil
584+ if ((sa == sa))
585+ then {
586+ let sp = if ((priceDiff > 0))
587+ then invoke(slippageContract, "put", nil, [AttachedPayment(priceId, priceDiff)])
588+ else nil
589+ if ((sp == sp))
590+ then {
591+ let lpTrasfer = if (autoStake)
592+ then {
593+ let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
594+ if ((ss == ss))
595+ then nil
596+ else throw("Strict value is not equal to itself.")
597+ }
598+ else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
599+ (state ++ lpTrasfer)
600+ }
601+ else throw("Strict value is not equal to itself.")
602+ }
603+ else throw("Strict value is not equal to itself.")
604+ }
605+ else throw("Strict value is not equal to itself.")
606+ }
607+ else throw("Strict value is not equal to itself.")
608+ }
609+ else throw("Strict value is not equal to itself.")
610+ }
611+ else throw("Strict value is not equal to itself.")
612+ }
613+
614+
615+
616+@Callable(i)
617+func putOneTkn (amountAssetPart,priceAssetPart,outLp,slippage,autoStake) = {
618+ let cfg = getFactoryConfig()
619+ let stakingContract = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wrong staking contract")
620+ let slippageContract = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wrong slippage contract")
621+ let gwxRewardContract = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wrong gwx reward contract")
622+ let poolCfg = getPoolConfig()
623+ let amountId = poolCfg[idxAmAsId]
624+ let priceId = poolCfg[idxPrAsId]
625+ let amountDecimals = parseIntValue(poolCfg[idxAmtAsDcm])
626+ let priceDecimals = parseIntValue(poolCfg[idxPriceAsDcm])
627+ let addon = valueOrElse(getString(this, keyAddonAddress()), "")
628+ let userAddress = if ((addon == toString(i.caller)))
629+ then i.originCaller
630+ else i.caller
631+ if (if (if (if ((0 >= slippage))
632+ then true
633+ else (0 >= amountAssetPart))
634+ then true
635+ else (0 >= priceAssetPart))
636+ then true
637+ else (0 >= outLp))
638+ then throwErr("Wrong params")
639+ else if ((size(i.payments) != 1))
640+ then throwErr("1 payment expected")
524641 else {
525- let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, 0, "")
526- let emitLpAmt = e._2
527- let lpAssetId = e._7
528- let state = e._9
529- let amDiff = e._10
530- let prDiff = e._11
531- let amId = e._12
532- let prId = e._13
533- let r = invoke(fca, "emit", [emitLpAmt], nil)
534- if ((r == r))
535- then {
536- let el = match r {
537- case legacy: Address =>
538- invoke(legacy, "emit", [emitLpAmt], nil)
539- case _ =>
540- unit
541- }
542- if ((el == el))
642+ let payment = value(i.payments[0])
643+ let paymentAssetId = toBase58String(value(payment.assetId))
644+ let paymentAmountRaw = payment.amount
645+ let $t02656926628 = takeFee(paymentAmountRaw)
646+ let paymentAmount = $t02656926628._1
647+ let feeAmount = $t02656926628._2
648+ if (if (if ((amountAssetPart > paymentAmount))
649+ then true
650+ else (priceAssetPart > paymentAmount))
651+ then true
652+ else (10000000 > paymentAmount))
653+ then throwErr("wrong payment amount")
654+ else {
655+ let amountBalance = getAccBalance(amountId)
656+ let priceBalance = getAccBalance(priceId)
657+ let $t02689327348 = if ((paymentAssetId == amountId))
658+ then $Tuple6((amountBalance - paymentAmount), priceBalance, (paymentAmount - amountAssetPart), priceAssetPart, 0, 0)
659+ else if ((paymentAssetId == priceId))
660+ then $Tuple6(amountBalance, (priceBalance - paymentAmount), 0, 0, (paymentAmount - priceAssetPart), amountAssetPart)
661+ else throwErr("wrong paymentAssetId")
662+ let amountBalanceNow = $t02689327348._1
663+ let priceBalanceNow = $t02689327348._2
664+ let virtSwapInAm = $t02689327348._3
665+ let virtSwapOutPr = $t02689327348._4
666+ let virtSwapInPr = $t02689327348._5
667+ let virtSwapOutAm = $t02689327348._6
668+ let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
669+ let D1 = invoke(gwxRewardContract, "calcD", [toString(toBigInt(((amountBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((priceBalanceNow + virtSwapInPr) - virtSwapOutPr))), amplificator, Amult, Dconv], nil)
670+ let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
671+ if ((D0vsD1 == D0vsD1))
543672 then {
544- let sa = if ((amDiff > 0))
545- then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
546- else nil
547- if ((sa == sa))
673+ let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amountId), amountAssetPart), AttachedPayment(fromBase58String(priceId), priceAssetPart), slippage, true, true, paymentAmount, paymentAssetId)
674+ let estimateLP = estimatePut._2
675+ let lpAssetId = estimatePut._7
676+ let state = estimatePut._9
677+ let amountDiff = estimatePut._10
678+ let priceDiff = estimatePut._11
679+ let lpCalcRes = validateAbsDiff(toBigInt(estimateLP), toBigInt(outLp), toBigInt(slippage))
680+ let emitLpAmount = toInt(lpCalcRes._2)
681+ let e = invoke(factoryContract, "emit", [emitLpAmount], nil)
682+ if ((e == e))
548683 then {
549- let sp = if ((prDiff > 0))
550- then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
551- else nil
552- if ((sp == sp))
684+ let el = match e {
685+ case legacy: Address =>
686+ invoke(legacy, "emit", [emitLpAmount], nil)
687+ case _ =>
688+ unit
689+ }
690+ if ((el == el))
553691 then {
554- let lpTrnsfr = if (autoStake)
692+ let sa = if ((amountDiff > 0))
693+ then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(amountId), amountDiff)])
694+ else nil
695+ if ((sa == sa))
555696 then {
556- let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
557- if ((ss == ss))
558- then nil
697+ let sp = if ((priceDiff > 0))
698+ then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(priceId), priceDiff)])
699+ else nil
700+ if ((sp == sp))
701+ then {
702+ let lpTrasfer = if (autoStake)
703+ then {
704+ let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
705+ if ((ss == ss))
706+ then nil
707+ else throw("Strict value is not equal to itself.")
708+ }
709+ else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
710+ let sendFeeToMatcher = if ((feeAmount > 0))
711+ then [ScriptTransfer(matcherAddress, feeAmount, fromBase58String(paymentAssetId))]
712+ else nil
713+ ((state ++ lpTrasfer) ++ sendFeeToMatcher)
714+ }
559715 else throw("Strict value is not equal to itself.")
560716 }
561- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
562- (state ++ lpTrnsfr)
717+ else throw("Strict value is not equal to itself.")
563718 }
564719 else throw("Strict value is not equal to itself.")
565720 }
567722 }
568723 else throw("Strict value is not equal to itself.")
569724 }
570- else throw("Strict value is not equal to itself.")
571725 }
572726 }
573727
574728
575729
576730 @Callable(i)
577-func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
578- let cfg = gfc()
579- let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
580- let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
581- let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
582- let poolCfg = gpc()
583- let amId = poolCfg[idxAmAsId]
584- let prId = poolCfg[idxPrAsId]
585- let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
586- let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
587- let addon = valueOrElse(getString(this, ada()), "")
588- let userAddress = if ((addon == toString(i.caller)))
589- then i.originCaller
590- else i.caller
591- let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592- let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593- if ((check == check))
594- then if (if (if (if ((0 >= slippage))
595- then true
596- else (0 >= amAssetPart))
597- then true
598- else (0 >= prAssetPart))
599- then true
600- else (0 >= outLp))
601- then throw("Wrong params")
602- else if ((size(i.payments) != 1))
603- then throw("1 pmnt expd")
604- else {
605- let pmt = value(i.payments[0])
606- let pmtAssetId = toBase58String(value(pmt.assetId))
607- let pmtAmt = pmt.amount
608- if ((10000000 > pmtAmt))
609- then throw("Wrong pmt amt")
610- else {
611- let amBalance = getAccBalance(amId)
612- let prBalance = getAccBalance(prId)
613- let $t02485525431 = if ((pmtAssetId == amId))
614- then if (if ((pmtAmt > amBalance))
615- then true
616- else (amAssetPart > pmtAmt))
617- then throw("invalid payment amount")
618- else $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
619- else if ((pmtAssetId == prId))
620- then if (if ((pmtAmt > prBalance))
621- then true
622- else (prAssetPart > pmtAmt))
623- then throw("invalid payment amount")
624- else $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
625- else throw("wrong pmtAssetId")
626- let amBalanceNow = $t02485525431._1
627- let prBalanceNow = $t02485525431._2
628- let virtSwapInAm = $t02485525431._3
629- let virtSwapOutPr = $t02485525431._4
630- let virtSwapInPr = $t02485525431._5
631- let virtSwapOutAm = $t02485525431._6
632- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
633- let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
634- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
635- if ((D0vsD1 == D0vsD1))
636- then {
637- let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
638- let estimLP = estPut._2
639- let lpAssetId = estPut._7
640- let state = estPut._9
641- let amDiff = estPut._10
642- let prDiff = estPut._11
643- let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
644- let emitLpAmt = toInt(lpCalcRes._2)
645- let e = invoke(fca, "emit", [emitLpAmt], nil)
646- if ((e == e))
647- then {
648- let el = match e {
649- case legacy: Address =>
650- invoke(legacy, "emit", [emitLpAmt], nil)
651- case _ =>
652- unit
653- }
654- if ((el == el))
655- then {
656- let sa = if ((amDiff > 0))
657- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
658- else nil
659- if ((sa == sa))
660- then {
661- let sp = if ((prDiff > 0))
662- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
663- else nil
664- if ((sp == sp))
665- then {
666- let lpTrnsfr = if (autoStake)
667- then {
668- let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
669- if ((ss == ss))
670- then nil
671- else throw("Strict value is not equal to itself.")
672- }
673- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
674- (state ++ lpTrnsfr)
675- }
676- else throw("Strict value is not equal to itself.")
677- }
678- else throw("Strict value is not equal to itself.")
679- }
680- else throw("Strict value is not equal to itself.")
681- }
682- else throw("Strict value is not equal to itself.")
683- }
684- else throw("Strict value is not equal to itself.")
685- }
686- }
687- else throw("Strict value is not equal to itself.")
688- }
689-
690-
691-
692-@Callable(i)
693-func putForFree (maxSlpg) = if ((0 > maxSlpg))
694- then throw("Wrong slpg")
731+func putForFree (maxslippage) = if ((0 > maxslippage))
732+ then throwErr("wrong slippage")
695733 else if ((size(i.payments) != 2))
696- then throw("2 pmnts expd")
734+ then throwErr("2 payments expected")
697735 else {
698- let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, 0, "")
699- estPut._9
736+ let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxslippage, false, false, 0, "")
737+ estimatePut._9
700738 }
701739
702740
703741
704742 @Callable(i)
705743 func get () = {
706- let r = cg(i)
744+ let r = commonGet(i)
707745 let outAmtAmt = r._1
708- let outPrAmt = r._2
709- let pmtAmt = r._3
710- let pmtAssetId = r._4
746+ let outPriceAmount = r._2
747+ let paymentAmount = r._3
748+ let paymentAssetId = r._4
711749 let state = r._5
712- let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
750+ let b = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
713751 if ((b == b))
714752 then state
715753 else throw("Strict value is not equal to itself.")
719757
720758 @Callable(i)
721759 func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
722- then throw("1 pmnt expd")
760+ then throwErr("1 payment expected")
723761 else {
724- let cfg = gpc()
725- let lpId = cfg[idxLPAsId]
726- let amId = cfg[idxAmAsId]
727- let prId = cfg[idxPrAsId]
728- let amDcm = parseIntValue(cfg[idxAmtAsDcm])
729- let prDcm = parseIntValue(cfg[idxPriceAsDcm])
762+ let cfg = getPoolConfig()
763+ let lpAssetId = cfg[idxLPAsId]
764+ let amountId = cfg[idxAmAsId]
765+ let priceId = cfg[idxPrAsId]
766+ let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
767+ let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
730768 let sts = cfg[idxPoolSt]
731- let factCfg = gfc()
732- let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
733- let pmt = value(i.payments[0])
734- let addon = valueOrElse(getString(this, ada()), "")
769+ let factCfg = getFactoryConfig()
770+ let gwxRewardContract = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wrong gwxRewardContract address")
771+ let payment = value(i.payments[0])
772+ let addon = valueOrElse(getString(this, keyAddonAddress()), "")
735773 let userAddress = if ((addon == toString(i.caller)))
736774 then i.originCaller
737775 else i.caller
738776 let txId58 = toBase58String(i.transactionId)
739- let pmtAssetId = value(pmt.assetId)
740- let pmtAmt = pmt.amount
741- let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
742- let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
743- if ((check == check))
744- then if ((1000000000 > pmtAmt))
745- then throw("Min pmt 10 LP")
746- else if (if (if ((0 > slippage))
747- then true
748- else (0 > exchResult))
749- then true
750- else (0 > outAmount))
751- then throw("Wrong params")
752- else if ((lpId != toBase58String(pmtAssetId)))
753- then throw("Wrong LP")
754- else {
755- let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
756- let estimAmAmt = r._1
757- let estimPrAmt = r._2
758- let amBalance = getAccBalance(amId)
759- let prBalance = getAccBalance(prId)
760- let $t03046230919 = if ((outAssetId == amId))
761- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
762- else if ((outAssetId == prId))
763- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
764- else throw("wrong outAssetId")
765- let amBalanceNow = $t03046230919._1
766- let prBalanceNow = $t03046230919._2
767- let virtSwapInAm = $t03046230919._3
768- let virtSwapOutPr = $t03046230919._4
769- let virtSwapInPr = $t03046230919._5
770- let virtSwapOutAm = $t03046230919._6
771- let totalGet = $t03046230919._7
772- if (if ((0 > virtSwapInAm))
773- then true
774- else (0 > virtSwapInPr))
775- then throw("Wrong calc")
776- else {
777- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
778- let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
779- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
780- if ((D0vsD1 == D0vsD1))
781- then {
782- let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
783- if ((finalRes == finalRes))
784- then {
785- let $t03162431728 = if ((outAssetId == amId))
786- then $Tuple2(toInt(finalRes._2), 0)
787- else $Tuple2(0, toInt(finalRes._2))
788- let outAm = $t03162431728._1
789- let outPr = $t03162431728._2
790- let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
791- let curPr = f1(curPrX18, scale8)
792- let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
793- then unit
794- else fromBase58String(outAssetId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
795- if ((state == state))
796- then {
797- let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
798- if ((burn == burn))
799- then state
800- else throw("Strict value is not equal to itself.")
801- }
802- else throw("Strict value is not equal to itself.")
803- }
804- else throw("Strict value is not equal to itself.")
805- }
806- else throw("Strict value is not equal to itself.")
807- }
808- }
809- else throw("Strict value is not equal to itself.")
777+ let paymentAssetId = value(payment.assetId)
778+ let paymentAmount = payment.amount
779+ if ((1000000000 > paymentAmount))
780+ then throwErr("Min payment 10 LP")
781+ else if (if (if ((0 > slippage))
782+ then true
783+ else (0 > exchResult))
784+ then true
785+ else (0 > outAmount))
786+ then throwErr("Wrong params")
787+ else if ((lpAssetId != toBase58String(paymentAssetId)))
788+ then throwErr("Wrong LP")
789+ else {
790+ let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
791+ let estimAmAmt = r._1
792+ let estimPrAmt = r._2
793+ let amountBalance = getAccBalance(amountId)
794+ let priceBalance = getAccBalance(priceId)
795+ let $t03249632964 = if ((outAssetId == amountId))
796+ then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
797+ else if ((outAssetId == priceId))
798+ then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
799+ else throwErr("wrong outAssetId")
800+ let amountBalanceNow = $t03249632964._1
801+ let priceBalanceNow = $t03249632964._2
802+ let virtSwapInAm = $t03249632964._3
803+ let virtSwapOutPr = $t03249632964._4
804+ let virtSwapInPr = $t03249632964._5
805+ let virtSwapOutAm = $t03249632964._6
806+ let totalGet = $t03249632964._7
807+ if (if ((0 > virtSwapInAm))
808+ then true
809+ else (0 > virtSwapInPr))
810+ then throwErr("Wrong calc")
811+ else {
812+ let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
813+ let D1 = invoke(gwxRewardContract, "calcD", [toString(((amountBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((priceBalanceNow + virtSwapOutPr) - virtSwapInPr)), amplificator, Amult, Dconv], nil)
814+ let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
815+ if ((D0vsD1 == D0vsD1))
816+ then {
817+ let finalRes = validateAbsDiff(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
818+ if ((finalRes == finalRes))
819+ then {
820+ let $t03363333741 = if ((outAssetId == amountId))
821+ then $Tuple2(toInt(finalRes._2), 0)
822+ else $Tuple2(0, toInt(finalRes._2))
823+ let outAm = $t03363333741._1
824+ let outPr = $t03363333741._2
825+ let totalAmountRaw = (outAm + outPr)
826+ let $t03378133836 = takeFee(totalAmountRaw)
827+ let totalAmount = $t03378133836._1
828+ let feeAmount = $t03378133836._2
829+ let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
830+ then unit
831+ else fromBase58String(outAssetId)
832+ let sendFeeToMatcher = if ((feeAmount > 0))
833+ then [ScriptTransfer(matcherAddress, feeAmount, outAssetIdOrWaves)]
834+ else nil
835+ let decimals = if ((amountDecimals >= priceDecimals))
836+ then amountDecimals
837+ else priceDecimals
838+ if ((decimals == decimals))
839+ then {
840+ let curPrX18 = calcPriceBigInt(toX18(priceBalance, decimals), toX18(amountBalance, decimals))
841+ let curPr = fromX18(curPrX18, scale8)
842+ let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, paymentAmount, curPr, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPr), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPr)]
843+ if ((state == state))
844+ then {
845+ let burn = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
846+ if ((burn == burn))
847+ then (state ++ sendFeeToMatcher)
848+ else throw("Strict value is not equal to itself.")
849+ }
850+ else throw("Strict value is not equal to itself.")
851+ }
852+ else throw("Strict value is not equal to itself.")
853+ }
854+ else throw("Strict value is not equal to itself.")
855+ }
856+ else throw("Strict value is not equal to itself.")
857+ }
858+ }
810859 }
811860
812861
813862
814863 @Callable(i)
815864 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
816- let r = cg(i)
817- let outAmAmt = r._1
818- let outPrAmt = r._2
819- let pmtAmt = r._3
820- let pmtAssetId = r._4
865+ let r = commonGet(i)
866+ let outAmountAmount = r._1
867+ let outPriceAmount = r._2
868+ let paymentAmount = r._3
869+ let paymentAssetId = r._4
821870 let state = r._5
822- if ((noLessThenAmtAsset > outAmAmt))
823- then throw(((("Failed: " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
824- else if ((noLessThenPriceAsset > outPrAmt))
825- then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
826- else {
827- let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
828- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
829- then state
830- else throw("Strict value is not equal to itself.")
831- }
871+ let checkOutAmountAmount = if ((outAmountAmount >= noLessThenAmtAsset))
872+ then true
873+ else throwErr(((("Failed: " + toString(outAmountAmount)) + " < ") + toString(noLessThenAmtAsset)))
874+ if ((checkOutAmountAmount == checkOutAmountAmount))
875+ then {
876+ let checkOutPriceAmount = if ((outPriceAmount >= noLessThenPriceAsset))
877+ then true
878+ else throwErr(((("Failed: " + toString(outPriceAmount)) + " < ") + toString(noLessThenPriceAsset)))
879+ if ((checkOutPriceAmount == checkOutPriceAmount))
880+ then {
881+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
882+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
883+ then state
884+ else throw("Strict value is not equal to itself.")
885+ }
886+ else throw("Strict value is not equal to itself.")
887+ }
888+ else throw("Strict value is not equal to itself.")
832889 }
833890
834891
836893 @Callable(i)
837894 func unstakeAndGet (amount) = {
838895 let checkPayments = if ((size(i.payments) != 0))
839- then throw("No pmnts expd")
896+ then throwErr("no payments expected")
840897 else true
841898 if ((checkPayments == checkPayments))
842899 then {
843- let cfg = gpc()
844- let factoryCfg = gfc()
900+ let cfg = getPoolConfig()
901+ let factoryCfg = getFactoryConfig()
845902 let lpAssetId = fromBase58String(cfg[idxLPAsId])
846- let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
903+ let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "wrong")
847904 let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
848905 if ((unstakeInv == unstakeInv))
849906 then {
850- let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
907+ let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
851908 let sts = parseIntValue(r._9)
852909 let state = r._10
853- let v = if (if (igs())
910+ let v = if (if (isGlobalShutdown())
854911 then true
855912 else (sts == PoolShutdown))
856- then throw(("Blocked: " + toString(sts)))
913+ then throwErr(("Blocked: " + toString(sts)))
857914 else true
858915 if ((v == v))
859916 then {
860- let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
917+ let burnA = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
861918 if ((burnA == burnA))
862919 then state
863920 else throw("Strict value is not equal to itself.")
872929
873930
874931 @Callable(i)
875-func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
876- then throw("denied")
877- else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
932+func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(factoryContract)))
933+ then throwErr("denied")
934+ else $Tuple2([StringEntry(keyAmountAsset(), amtAsStr), StringEntry(keyPriceAsset(), prAsStr)], "success")
878935
879936
880937
881938 @Callable(i)
882-func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
939+func setS (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
883940 then pd
884941 else [StringEntry(k, v)]
885942
886943
887944
888945 @Callable(i)
889-func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
946+func setI (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
890947 then pd
891948 else [IntegerEntry(k, v)]
892949
893950
894951
895952 @Callable(i)
896-func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
953+func getPoolConfigWrapperREADONLY () = $Tuple2(nil, getPoolConfig())
897954
898955
899956
911968
912969
913970 @Callable(i)
914-func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
971+func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, fromX18(parseBigIntValue(val), resScaleMult))
915972
916973
917974
918975 @Callable(i)
919-func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
976+func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(toX18(origVal, origScaleMult)))
920977
921978
922979
923980 @Callable(i)
924-func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
981+func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(calcPriceBigInt(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
925982
926983
927984
928985 @Callable(i)
929-func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, false, 0, ""))
986+func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmountAssetAmount,inAmId,inPriceAssetAmount,inPrId,usrAddr,isEvaluate,emitLp) = $Tuple2(nil, estimatePutOperation(txId58, slippage, inAmountAssetAmount, inAmId, inPriceAssetAmount, inPrId, usrAddr, isEvaluate, emitLp, false, 0, ""))
930987
931988
932989
933990 @Callable(i)
934-func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
935- let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
991+func estimateGetOperationWrapperREADONLY (txId58,paymentAsId,paymentLpAmount,usrAddr) = {
992+ let r = estimateGetOperation(txId58, paymentAsId, paymentLpAmount, addressFromStringValue(usrAddr))
936993 $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
937994 }
938995
939996
940997 @Verifier(tx)
941-func verify () = {
942- let targetPublicKey = match m() {
943- case pk: ByteVector =>
944- pk
945- case _: Unit =>
946- tx.senderPublicKey
947- case _ =>
948- throw("Match error")
949- }
950- match tx {
951- case order: Order =>
952- let matcherPub = mp()
953- let orderValid = moa(order)
954- let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
955- let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
956- if (if (if (orderValid)
957- then senderValid
958- else false)
959- then matcherValid
960- else false)
961- then true
962- else toe(orderValid, senderValid, matcherValid)
963- case s: SetScriptTransaction =>
964- let newHash = blake2b256(value(s.script))
965- let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
966- let currentHash = scriptHash(this)
967- if (if ((allowedHash == newHash))
968- then (currentHash != newHash)
969- else false)
970- then true
971- else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
972- case _ =>
973- sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
974- }
975- }
998+func verify () = match tx {
999+ case order: Order =>
1000+ let mtchPub = getMatcherPubOrFail()
1001+ let orV = validateMatcherOrderAllowed(order)
1002+ let sndrV = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
1003+ let mtchV = sigVerify(order.bodyBytes, order.proofs[1], mtchPub)
1004+ if (if (if (orV)
1005+ then sndrV
1006+ else false)
1007+ then mtchV
1008+ else false)
1009+ then true
1010+ else throwOrderError(orV, sndrV, mtchV)
1011+ case _ =>
1012+ let targetPublicKey = match managerPublicKeyOrUnit() {
1013+ case pk: ByteVector =>
1014+ pk
1015+ case _: Unit =>
1016+ tx.senderPublicKey
1017+ case _ =>
1018+ throw("Match error")
1019+ }
1020+ sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1021+}
9761022
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let defaultDecimals = 1000000
5+
46 let scale8 = 100000000
57
68 let scale8BigInt = toBigInt(100000000)
79
810 let scale18 = toBigInt(1000000000000000000)
11+
12+let thousand = 1000
913
1014 let zeroBigInt = toBigInt(0)
1115
1216 let oneBigInt = toBigInt(1)
1317
1418 let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
1519
1620 let Amult = "100"
1721
1822 let Dconv = "1"
1923
2024 let SEP = "__"
2125
2226 let EMPTY = ""
2327
2428 let PoolActive = 1
2529
2630 let PoolPutDis = 2
2731
2832 let PoolMatcherDis = 3
2933
3034 let PoolShutdown = 4
3135
3236 let idxPoolAddress = 1
3337
3438 let idxPoolSt = 2
3539
3640 let idxLPAsId = 3
3741
3842 let idxAmAsId = 4
3943
4044 let idxPrAsId = 5
4145
4246 let idxAmtAsDcm = 6
4347
4448 let idxPriceAsDcm = 7
4549
4650 let idxIAmtAsId = 8
4751
4852 let idxIPriceAsId = 9
4953
5054 let idxFactStakCntr = 1
5155
5256 let idxFactSlippCntr = 7
5357
5458 let idxFactGwxRewCntr = 10
5559
56-let delay = "%s__delay"
60+let feePermilleDefault = 0
5761
58-func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
62+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
5963
6064
61-func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
65+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
6266
6367
6468 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
6569
6670
6771 func abs (val) = if ((zeroBigInt > val))
6872 then -(val)
6973 else val
7074
7175
72-func fc () = "%s__factoryContract"
76+func keyFactoryContact () = "%s__factoryContract"
7377
7478
75-func mpk () = "%s__managerPublicKey"
79+func keyManagerPublicKey () = "%s__managerPublicKey"
7680
7781
78-func pmpk () = "%s__pendingManagerPublicKey"
82+func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
7983
8084
81-func pl () = "%s%s__price__last"
85+func keyPriceLast () = "%s%s__price__last"
8286
8387
84-func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
88+func keyPriceHistory (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
8589
8690
87-func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
91+func keyPutActionByUser (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
8892
8993
90-func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
94+func keyGetActionByUser (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
9195
9296
93-func aa () = "%s__amountAsset"
97+func keyAmountAsset () = "%s__amountAsset"
9498
9599
96-func pa () = "%s__priceAsset"
100+func keyPriceAsset () = "%s__priceAsset"
97101
98102
99-func amp () = "%s__amp"
103+func keyAmplificator () = "%s__amp"
100104
101105
102-func ada () = "%s__addonAddr"
106+func keyAddonAddress () = "%s__addonAddr"
103107
104108
105-func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
109+let keyFeePermille = "%s__feePermille"
110+
111+let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
112+
113+func keyFactoryConfig () = "%s__factoryConfig"
106114
107115
108-func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
116+func keyMatcherPub () = "%s%s__matcher__publicKey"
109117
110118
111-func fcfg () = "%s__factoryConfig"
119+func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
112120
113121
114-func mtpk () = "%s%s__matcher__publicKey"
122+func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
115123
116124
117-func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125+func keyAllPoolsShutdown () = "%s__shutdown"
118126
119127
120-func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128+func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
121129
122130
123-func aps () = "%s__shutdown"
124-
125-
126-func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127-
128-
129-func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
131+func throwOrderError (orV,sendrV,matchV) = throwErr(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
130132
131133
132134 func str (val) = match val {
133135 case valStr: String =>
134136 valStr
135137 case _ =>
136- throw("fail cast to String")
138+ throwErr("fail cast to String")
137139 }
138140
139141
140-func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
142+func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
141143
142144
143-func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
145+func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
144146
145147
146-let fca = addressFromStringValue(strf(this, fc()))
148+let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContact()))
147149
148-let A = strf(this, amp())
150+let amplificator = getStringOrFail(this, keyAmplificator())
149151
150-func igs () = valueOrElse(getBoolean(fca, aps()), false)
152+func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
151153
152154
153-func mp () = fromBase58String(strf(fca, mtpk()))
155+func getMatcherPubOrFail () = fromBase58String(getStringOrFail(factoryContract, keyMatcherPub()))
154156
155157
156-func gpc () = {
157- let amtAs = strf(this, aa())
158- let priceAs = strf(this, pa())
159- let iPriceAs = intf(fca, mba(priceAs))
160- let iAmtAs = intf(fca, mba(amtAs))
161- split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
158+let matcherAddress = addressFromPublicKey(getMatcherPubOrFail())
159+
160+func getPoolConfig () = {
161+ let amtAs = getStringOrFail(this, keyAmountAsset())
162+ let priceAs = getStringOrFail(this, keyPriceAsset())
163+ let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs))
164+ let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs))
165+ split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP)
162166 }
163167
164168
165-func gfc () = split(strf(fca, fcfg()), SEP)
169+func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
166170
167171
168172 func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
169173
170174
171175 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)
172176
173177
174178 func getAccBalance (assetId) = if ((assetId == "WAVES"))
175179 then wavesBalance(this).available
176180 else assetBalance(this, fromBase58String(assetId))
177181
178182
179-func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
183+func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
180184
181185
182-func vad (A1,A2,slippage) = {
183- let diff = fraction((A1 - A2), scale8BigInt, A2)
186+func validateAbsDiff (estimateLP,outLp,slippage) = {
187+ let diff = fraction((estimateLP - outLp), scale8BigInt, outLp)
184188 let pass = ((slippage - abs(diff)) > zeroBigInt)
185189 if (!(pass))
186- then throw(("Big slpg: " + toString(diff)))
187- else $Tuple2(pass, min([A1, A2]))
190+ then throwErr(("Big slippage: " + toString(diff)))
191+ else $Tuple2(pass, min([estimateLP, outLp]))
188192 }
189193
190194
191-func vd (D1,D0,slpg) = {
195+func validateD (D1,D0,slippage) = {
192196 let diff = fraction(D0, scale8BigInt, D1)
193- let fail = (slpg > diff)
197+ let fail = (slippage > diff)
194198 if (if (fail)
195199 then true
196200 else (D0 > D1))
197- then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
201+ then throwErr(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slippage)))
198202 else fail
199203 }
200204
201205
202-func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
203- let amtAsAmtX18 = t1(amAmt, amAssetDcm)
204- let prAsAmtX18 = t1(prAmt, prAssetDcm)
205- cpbi(prAsAmtX18, amtAsAmtX18)
206+func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
207+ let amtAsAmtX18 = toX18(amAmt, amAssetDcm)
208+ let prAsAmtX18 = toX18(prAmt, prAssetDcm)
209+ calcPriceBigInt(prAsAmtX18, amtAsAmtX18)
206210 }
207211
208212
209213 func calcPrices (amAmt,prAmt,lpAmt) = {
210- let cfg = gpc()
214+ let cfg = getPoolConfig()
211215 let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
212216 let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
213- let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
214- let amAmtX18 = t1(amAmt, amtAsDcm)
215- let prAmtX18 = t1(prAmt, prAsDcm)
216- let lpAmtX18 = t1(lpAmt, scale8)
217- let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
218- let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
217+ let priceX18 = privateCalcPrice(amtAsDcm, prAsDcm, amAmt, prAmt)
218+ let amAmtX18 = toX18(amAmt, amtAsDcm)
219+ let prAmtX18 = toX18(prAmt, prAsDcm)
220+ let lpAmtX18 = toX18(lpAmt, scale8)
221+ let lpPrInAmAsX18 = calcPriceBigInt(amAmtX18, lpAmtX18)
222+ let lpPrInPrAsX18 = calcPriceBigInt(prAmtX18, lpAmtX18)
219223 [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
220224 }
221225
222226
223227 func calculatePrices (amAmt,prAmt,lpAmt) = {
224228 let p = calcPrices(amAmt, prAmt, lpAmt)
225-[f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
229+[fromX18(p[0], scale8), fromX18(p[1], scale8), fromX18(p[2], scale8)]
226230 }
227231
228232
229-func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
230- let cfg = gpc()
231- let lpId = cfg[idxLPAsId]
232- let amId = cfg[idxAmAsId]
233- let prId = cfg[idxPrAsId]
234- let amDcm = parseIntValue(cfg[idxAmtAsDcm])
235- let prDcm = parseIntValue(cfg[idxPriceAsDcm])
233+func estimateGetOperation (txId58,paymentAssetId,paymentLpAmount,userAddress) = {
234+ let cfg = getPoolConfig()
235+ let lpAssetId = cfg[idxLPAsId]
236+ let amountId = cfg[idxAmAsId]
237+ let priceId = cfg[idxPrAsId]
238+ let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
239+ let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
236240 let sts = cfg[idxPoolSt]
237- let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
238- if ((lpId != pmtAssetId))
239- then throw("Wrong pmt asset")
240- else {
241- let amBalance = getAccBalance(amId)
242- let amBalanceX18 = t1(amBalance, amDcm)
243- let prBalance = getAccBalance(prId)
244- let prBalanceX18 = t1(prBalance, prDcm)
245- let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
246- let curPrice = f1(curPriceX18, scale8)
247- let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
248- let lpEmissX18 = t1(lpEmiss, scale8)
249- let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
250- let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
251- let outAmAmt = f1(outAmAmtX18, amDcm)
252- let outPrAmt = f1(outPrAmtX18, prDcm)
241+ let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), "Wrong LP id").quantity
242+ let validationBlock = if ((lpAssetId == paymentAssetId))
243+ then true
244+ else throwErr("Wrong payment asset")
245+ if ((validationBlock == validationBlock))
246+ then {
247+ let amountBalance = getAccBalance(amountId)
248+ let priceBalance = getAccBalance(priceId)
249+ let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
250+ let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
251+ let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
252+ let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
253+ let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
254+ let curPrice = fromX18(currentPriceX18, scale8)
255+ let paymentLpAmountX18 = toX18(paymentLpAmount, scale8)
256+ let lpEmissionX18 = toX18(lpEmission, scale8)
257+ let outAmountAmountX18 = fraction(amountBalanceX18, paymentLpAmountX18, lpEmissionX18)
258+ let outPriceAmountX18 = fraction(priceBalanceX18, paymentLpAmountX18, lpEmissionX18)
259+ let outAmountAmountDefaultDecimals = fromX18(outAmountAmountX18, defaultDecimals)
260+ let outPriceAmountDefaultDecimals = fromX18(outPriceAmountX18, defaultDecimals)
261+ let outAmountAmount = fraction(outAmountAmountDefaultDecimals, amountDecimals, defaultDecimals)
262+ let outPriceAmount = fraction(outPriceAmountDefaultDecimals, priceDecimals, defaultDecimals)
253263 let state = if ((txId58 == ""))
254264 then nil
255- else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
265+ else [ScriptTransfer(userAddress, outAmountAmount, if ((amountId == "WAVES"))
256266 then unit
257- else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
267+ else fromBase58String(amountId)), ScriptTransfer(userAddress, outPriceAmount, if ((priceId == "WAVES"))
258268 then unit
259- else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
260- $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
269+ else fromBase58String(priceId)), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAmountAmount, outPriceAmount, paymentLpAmount, curPrice, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice)]
270+ $Tuple10(outAmountAmount, outPriceAmount, amountId, priceId, amountBalance, priceBalance, lpEmission, currentPriceX18, sts, state)
261271 }
272+ else throw("Strict value is not equal to itself.")
262273 }
263274
264275
265-func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
266- let cfg = gpc()
267- let lpId = fromBase58String(cfg[idxLPAsId])
268- let amIdStr = cfg[idxAmAsId]
269- let prIdStr = cfg[idxPrAsId]
270- let inAmIdStr = cfg[idxIAmtAsId]
271- let inPrIdStr = cfg[idxIPriceAsId]
272- let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
273- let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
276+func estimatePutOperation (txId58,slippageTolerance,inAmountAssetAmount,inAmountAssetId,inPriceAssetAmount,inPriceAssetId,userAddress,isEvaluate,emitLp,isOneAsset,paymentAmount,paymentId) = {
277+ let cfg = getPoolConfig()
278+ let lpAssetId = fromBase58String(cfg[idxLPAsId])
279+ let amountIdStr = cfg[idxAmAsId]
280+ let priceIdStr = cfg[idxPrAsId]
281+ let inAmountIdStr = cfg[idxIAmtAsId]
282+ let inPriceIdStr = cfg[idxIPriceAsId]
283+ let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
284+ let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
274285 let sts = cfg[idxPoolSt]
275- let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
276- let amBalance = if (isEval)
277- then getAccBalance(amIdStr)
286+ let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), "Wrong lp asset").quantity
287+ let amountBalance = if (isEvaluate)
288+ then getAccBalance(amountIdStr)
278289 else if (if (isOneAsset)
279- then (pmtId == amIdStr)
290+ then (paymentId == amountIdStr)
280291 else false)
281- then (getAccBalance(amIdStr) - pmtAmt)
292+ then (getAccBalance(amountIdStr) - paymentAmount)
282293 else if (isOneAsset)
283- then getAccBalance(amIdStr)
284- else (getAccBalance(amIdStr) - inAmAmt)
285- let prBalance = if (isEval)
286- then getAccBalance(prIdStr)
294+ then getAccBalance(amountIdStr)
295+ else (getAccBalance(amountIdStr) - inAmountAssetAmount)
296+ let priceBalance = if (isEvaluate)
297+ then getAccBalance(priceIdStr)
287298 else if (if (isOneAsset)
288- then (pmtId == prIdStr)
299+ then (paymentId == priceIdStr)
289300 else false)
290- then (getAccBalance(prIdStr) - pmtAmt)
301+ then (getAccBalance(priceIdStr) - paymentAmount)
291302 else if (isOneAsset)
292- then getAccBalance(prIdStr)
293- else (getAccBalance(prIdStr) - inPrAmt)
294- let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
295- let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
296- let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
297- let amBalanceX18 = t1(amBalance, amtDcm)
298- let prBalanceX18 = t1(prBalance, priceDcm)
299- let r = if ((lpEm == 0))
303+ then getAccBalance(priceIdStr)
304+ else (getAccBalance(priceIdStr) - inPriceAssetAmount)
305+ let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
306+ let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
307+ let inAmountAssetAmountDefaultDecimals = fraction(inAmountAssetAmount, defaultDecimals, amountDecimals)
308+ let inPriceAssetAmountDefaultDecimals = fraction(inPriceAssetAmount, defaultDecimals, priceDecimals)
309+ let inAmountAssetAmountX18 = toX18(inAmountAssetAmountDefaultDecimals, defaultDecimals)
310+ let inPriceAssetAmountX18 = toX18(inPriceAssetAmountDefaultDecimals, defaultDecimals)
311+ let userPriceX18 = calcPriceBigInt(inPriceAssetAmountX18, inAmountAssetAmountX18)
312+ let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
313+ let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
314+ let r = if ((lpEmission == 0))
300315 then {
301- let curPriceX18 = zeroBigInt
316+ let currentPriceX18 = zeroBigInt
302317 let slippageX18 = zeroBigInt
303- let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
304- $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
318+ let lpAmountX18 = pow((inAmountAssetAmountX18 * inPriceAssetAmountX18), 0, toBigInt(5), 1, 0, DOWN)
319+ $Tuple5(fromX18(lpAmountX18, scale8), fromX18(inAmountAssetAmountX18, defaultDecimals), fromX18(inPriceAssetAmountX18, defaultDecimals), calcPriceBigInt((priceBalanceX18 + inPriceAssetAmountX18), (amountBalanceX18 + inAmountAssetAmountX18)), slippageX18)
305320 }
306321 else {
307- let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
308- let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
309- let slippageX18 = t1(slippage, scale8)
310- if (if ((curPriceX18 != zeroBigInt))
322+ let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
323+ let slippageRealX18 = fraction(abs((currentPriceX18 - userPriceX18)), scale18, currentPriceX18)
324+ let slippageX18 = toX18(slippageTolerance, scale8)
325+ let validateSlippage = if (((if ((currentPriceX18 != zeroBigInt))
311326 then (slippageRealX18 > slippageX18)
327+ else false) == false))
328+ then true
329+ else throwErr(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
330+ if ((validateSlippage == validateSlippage))
331+ then {
332+ let lpEmissionX18 = toX18(lpEmission, scale8)
333+ let prViaAmX18 = fraction(inAmountAssetAmountX18, currentPriceX18, scale18)
334+ let amViaPrX18 = fraction(inPriceAssetAmountX18, scale18, currentPriceX18)
335+ let expectedAmounts = if ((prViaAmX18 > inPriceAssetAmountX18))
336+ then $Tuple2(amViaPrX18, inAmountAssetAmountX18)
337+ else $Tuple2(inAmountAssetAmountX18, prViaAmX18)
338+ let expectedAmountAssetAmountX18 = expectedAmounts._1
339+ let expectedPriceAssetAmountX18 = expectedAmounts._2
340+ let lpAmountX18 = fraction(lpEmissionX18, expectedPriceAssetAmountX18, priceBalanceX18)
341+ $Tuple5(fromX18(lpAmountX18, scale8), fromX18(expectedAmountAssetAmountX18, defaultDecimals), fromX18(expectedPriceAssetAmountX18, defaultDecimals), currentPriceX18, slippageX18)
342+ }
343+ else throw("Strict value is not equal to itself.")
344+ }
345+ let calculateLpAmount = r._1
346+ let calculateAmountAssetPayment = fraction(r._2, amountDecimals, defaultDecimals)
347+ let calculatePriceAssetPayment = fraction(r._3, priceDecimals, defaultDecimals)
348+ let currentPrice = fromX18(r._4, scale8)
349+ let slippageCalculate = fromX18(r._5, scale8)
350+ let checkCalcLpAmount = if ((calculateLpAmount > 0))
351+ then true
352+ else throwErr("LP <= 0")
353+ if ((checkCalcLpAmount == checkCalcLpAmount))
354+ then {
355+ let emitLpAmount = if (!(emitLp))
356+ then 0
357+ else calculateLpAmount
358+ let amountDiff = (inAmountAssetAmount - calculateAmountAssetPayment)
359+ let priceDiff = (inPriceAssetAmount - calculatePriceAssetPayment)
360+ let $t01715017409 = if (if (isOneAsset)
361+ then (paymentId == amountIdStr)
312362 else false)
313- then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
314- else {
315- let lpEmissionX18 = t1(lpEm, scale8)
316- let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
317- let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
318- let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
319- then $Tuple2(amViaPrX18, inPrAssetAmtX18)
320- else $Tuple2(inAmAssetAmtX18, prViaAmX18)
321- let expAmtAssetAmtX18 = expectedAmts._1
322- let expPriceAssetAmtX18 = expectedAmts._2
323- let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
324- $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
325- }
363+ then $Tuple2(paymentAmount, 0)
364+ else if (if (isOneAsset)
365+ then (paymentId == priceIdStr)
366+ else false)
367+ then $Tuple2(0, paymentAmount)
368+ else $Tuple2(calculateAmountAssetPayment, calculatePriceAssetPayment)
369+ let writeAmAmt = $t01715017409._1
370+ let writePrAmt = $t01715017409._2
371+ let commonState = [IntegerEntry(keyPriceLast(), currentPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), currentPrice), StringEntry(keyPutActionByUser(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmount, currentPrice, slippageTolerance, slippageCalculate, height, lastBlock.timestamp, amountDiff, priceDiff))]
372+ $Tuple13(calculateLpAmount, emitLpAmount, currentPrice, amountBalance, priceBalance, lpEmission, lpAssetId, sts, commonState, amountDiff, priceDiff, inAmountAssetId, inPriceAssetId)
326373 }
327- let calcLpAmt = r._1
328- let calcAmAssetPmt = r._2
329- let calcPrAssetPmt = r._3
330- let curPrice = f1(r._4, scale8)
331- let slippageCalc = f1(r._5, scale8)
332- if ((0 >= calcLpAmt))
333- then throw("LP <= 0")
334- else {
335- let emitLpAmt = if (!(emitLp))
336- then 0
337- else calcLpAmt
338- let amDiff = (inAmAmt - calcAmAssetPmt)
339- let prDiff = (inPrAmt - calcPrAssetPmt)
340- let $t01560115946 = if (if (isOneAsset)
341- then (pmtId == amIdStr)
342- else false)
343- then $Tuple2(pmtAmt, 0)
344- else if (if (isOneAsset)
345- then (pmtId == prIdStr)
346- else false)
347- then $Tuple2(0, pmtAmt)
348- else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
349- let writeAmAmt = $t01560115946._1
350- let writePrAmt = $t01560115946._2
351- let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
352- $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
353- }
374+ else throw("Strict value is not equal to itself.")
354375 }
355376
356377
357-func moa (order) = {
358- let cfg = gpc()
378+func validateMatcherOrderAllowed (order) = {
379+ let cfg = getPoolConfig()
359380 let amtAsId = cfg[idxAmAsId]
360381 let prAsId = cfg[idxPrAsId]
361382 let sts = parseIntValue(cfg[idxPoolSt])
362383 let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
363384 let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
364385 let accAmtAsBalance = getAccBalance(amtAsId)
365386 let accPrAsBalance = getAccBalance(prAsId)
366- let curPriceX18 = if ((order.orderType == Buy))
367- then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
368- else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
369- let curPrice = f1(curPriceX18, scale8)
370- if (if (if (igs())
387+ let currentPriceX18 = if ((order.orderType == Buy))
388+ then privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
389+ else privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
390+ let curPrice = fromX18(currentPriceX18, scale8)
391+ if (if (if (isGlobalShutdown())
371392 then true
372393 else (sts == PoolMatcherDis))
373394 then true
374395 else (sts == PoolShutdown))
375- then throw("Admin blocked")
396+ then throwErr("Admin blocked")
376397 else {
377398 let orAmtAsset = order.assetPair.amountAsset
378399 let orAmtAsStr = if ((orAmtAsset == unit))
379400 then "WAVES"
380401 else toBase58String(value(orAmtAsset))
381402 let orPrAsset = order.assetPair.priceAsset
382403 let orPrAsStr = if ((orPrAsset == unit))
383404 then "WAVES"
384405 else toBase58String(value(orPrAsset))
385406 if (if ((orAmtAsStr != amtAsId))
386407 then true
387408 else (orPrAsStr != prAsId))
388- then throw("Wr assets")
409+ then throwErr("Wr assets")
389410 else {
390411 let orderPrice = order.price
391- let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
392- let castOrderPrice = ts(orderPrice, scale8, priceDcm)
412+ let priceDecimals = fraction(scale8, prAsDcm, amtAsDcm)
413+ let castOrderPrice = ts(orderPrice, scale8, priceDecimals)
393414 let isOrderPriceValid = if ((order.orderType == Buy))
394415 then (curPrice >= castOrderPrice)
395416 else (castOrderPrice >= curPrice)
396417 true
397418 }
398419 }
399420 }
400421
401422
402-func cg (i) = if ((size(i.payments) != 1))
403- then throw("1 pmnt exp")
404- else {
405- let pmt = value(i.payments[0])
406- let pmtAssetId = value(pmt.assetId)
407- let pmtAmt = pmt.amount
408- let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
409- let outAmAmt = r._1
410- let outPrAmt = r._2
411- let sts = parseIntValue(r._9)
412- let state = r._10
413- if (if (igs())
414- then true
415- else (sts == PoolShutdown))
416- then throw(("Admin blocked: " + toString(sts)))
417- else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
418- }
423+func commonGet (i) = {
424+ let checkPayments = if ((size(i.payments) == 1))
425+ then true
426+ else throwErr("1 payment expected")
427+ if ((checkPayments == checkPayments))
428+ then {
429+ let payment = value(i.payments[0])
430+ let paymentAssetId = value(payment.assetId)
431+ let paymentAmount = payment.amount
432+ let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
433+ let outAmountAmount = r._1
434+ let outPriceAmount = r._2
435+ let sts = parseIntValue(r._9)
436+ let state = r._10
437+ if (if (isGlobalShutdown())
438+ then true
439+ else (sts == PoolShutdown))
440+ then throwErr(("Admin blocked: " + toString(sts)))
441+ else $Tuple5(outAmountAmount, outPriceAmount, paymentAmount, paymentAssetId, state)
442+ }
443+ else throw("Strict value is not equal to itself.")
444+ }
419445
420446
421-func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
422- let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
447+func commonPut (caller,txId,amountAssetPayment,priceAssetPayment,slippage,emitLp,isOneAsset,paymentAmount,paymentId) = {
448+ let r = estimatePutOperation(txId, slippage, value(amountAssetPayment).amount, value(amountAssetPayment).assetId, value(priceAssetPayment).amount, value(priceAssetPayment).assetId, caller, false, emitLp, isOneAsset, paymentAmount, paymentId)
423449 let sts = parseIntValue(r._8)
424- if (if (if (igs())
450+ if (if (if (isGlobalShutdown())
425451 then true
426452 else (sts == PoolPutDis))
427453 then true
428454 else (sts == PoolShutdown))
429- then throw(("Blocked:" + toString(sts)))
455+ then throwErr(("Blocked:" + toString(sts)))
430456 else r
431457 }
432458
433459
434-func m () = match getString(mpk()) {
460+func takeFee (amount) = {
461+ let fee = fraction(amount, feePermille, thousand)
462+ $Tuple2((amount - fee), fee)
463+ }
464+
465+
466+func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
435467 case s: String =>
436468 fromBase58String(s)
437469 case _: Unit =>
438470 unit
439471 case _ =>
440472 throw("Match error")
441473 }
442474
443475
444-func pm () = match getString(pmpk()) {
476+func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
445477 case s: String =>
446478 fromBase58String(s)
447479 case _: Unit =>
448480 unit
449481 case _ =>
450482 throw("Match error")
451483 }
452484
453485
454-let pd = throw("Permission denied")
486+let pd = throwErr("Permission denied")
455487
456-func mm (i) = match m() {
488+func mustManager (i) = match managerPublicKeyOrUnit() {
457489 case pk: ByteVector =>
458490 if ((i.callerPublicKey == pk))
459491 then true
460492 else pd
461493 case _: Unit =>
462494 if ((i.caller == this))
463495 then true
464496 else pd
465497 case _ =>
466498 throw("Match error")
467499 }
468500
469501
470502 @Callable(i)
471-func constructor (fc) = {
472- let c = mm(i)
473- if ((c == c))
474- then [StringEntry(fc(), fc)]
503+func constructor (factoryContract) = {
504+ let checkCaller = mustManager(i)
505+ if ((checkCaller == checkCaller))
506+ then [StringEntry(keyFactoryContact(), factoryContract)]
475507 else throw("Strict value is not equal to itself.")
476508 }
477509
478510
479511
480512 @Callable(i)
481513 func setManager (pendingManagerPublicKey) = {
482- let c = mm(i)
483- if ((c == c))
514+ let checkCaller = mustManager(i)
515+ if ((checkCaller == checkCaller))
484516 then {
485- let cm = fromBase58String(pendingManagerPublicKey)
486- if ((cm == cm))
487- then [StringEntry(pmpk(), pendingManagerPublicKey)]
517+ let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
518+ if ((checkManagerPublicKey == checkManagerPublicKey))
519+ then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
488520 else throw("Strict value is not equal to itself.")
489521 }
490522 else throw("Strict value is not equal to itself.")
491523 }
492524
493525
494526
495527 @Callable(i)
496528 func confirmManager () = {
497- let p = pm()
498- let hpm = if (isDefined(p))
529+ let pm = pendingManagerPublicKeyOrUnit()
530+ let hasPM = if (isDefined(pm))
499531 then true
500- else throw("No pending manager")
501- if ((hpm == hpm))
532+ else throwErr("No pending manager")
533+ if ((hasPM == hasPM))
502534 then {
503- let cpm = if ((i.callerPublicKey == value(p)))
535+ let checkPM = if ((i.callerPublicKey == value(pm)))
504536 then true
505- else throw("You are not pending manager")
506- if ((cpm == cpm))
507- then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
537+ else throwErr("You are not pending manager")
538+ if ((checkPM == checkPM))
539+ then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
508540 else throw("Strict value is not equal to itself.")
509541 }
510542 else throw("Strict value is not equal to itself.")
511543 }
512544
513545
514546
515547 @Callable(i)
516-func put (slip,autoStake) = {
517- let factCfg = gfc()
518- let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
519- let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
520- if ((0 > slip))
521- then throw("Wrong slippage")
522- else if ((size(i.payments) != 2))
523- then throw("2 pmnts expd")
548+func put (slippage,autoStake) = {
549+ let factCfg = getFactoryConfig()
550+ let stakingContract = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wrong staking contract")
551+ let slippageContract = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wrogn slippage contract")
552+ let slippageCheck = if ((slippage >= 0))
553+ then true
554+ else throwErr("wrong slippage")
555+ if ((slippageCheck == slippageCheck))
556+ then {
557+ let paymentsCheck = if ((size(i.payments) == 2))
558+ then true
559+ else throwErr("2 payments expected")
560+ if ((paymentsCheck == paymentsCheck))
561+ then {
562+ let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slippage, true, false, 0, "")
563+ let emitLpAmount = estimatePut._2
564+ let lpAssetId = estimatePut._7
565+ let state = estimatePut._9
566+ let amountDiff = estimatePut._10
567+ let priceDiff = estimatePut._11
568+ let amountId = estimatePut._12
569+ let priceId = estimatePut._13
570+ let r = invoke(factoryContract, "emit", [emitLpAmount], nil)
571+ if ((r == r))
572+ then {
573+ let el = match r {
574+ case legacy: Address =>
575+ invoke(legacy, "emit", [emitLpAmount], nil)
576+ case _ =>
577+ unit
578+ }
579+ if ((el == el))
580+ then {
581+ let sa = if ((amountDiff > 0))
582+ then invoke(slippageContract, "put", nil, [AttachedPayment(amountId, amountDiff)])
583+ else nil
584+ if ((sa == sa))
585+ then {
586+ let sp = if ((priceDiff > 0))
587+ then invoke(slippageContract, "put", nil, [AttachedPayment(priceId, priceDiff)])
588+ else nil
589+ if ((sp == sp))
590+ then {
591+ let lpTrasfer = if (autoStake)
592+ then {
593+ let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
594+ if ((ss == ss))
595+ then nil
596+ else throw("Strict value is not equal to itself.")
597+ }
598+ else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
599+ (state ++ lpTrasfer)
600+ }
601+ else throw("Strict value is not equal to itself.")
602+ }
603+ else throw("Strict value is not equal to itself.")
604+ }
605+ else throw("Strict value is not equal to itself.")
606+ }
607+ else throw("Strict value is not equal to itself.")
608+ }
609+ else throw("Strict value is not equal to itself.")
610+ }
611+ else throw("Strict value is not equal to itself.")
612+ }
613+
614+
615+
616+@Callable(i)
617+func putOneTkn (amountAssetPart,priceAssetPart,outLp,slippage,autoStake) = {
618+ let cfg = getFactoryConfig()
619+ let stakingContract = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wrong staking contract")
620+ let slippageContract = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wrong slippage contract")
621+ let gwxRewardContract = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wrong gwx reward contract")
622+ let poolCfg = getPoolConfig()
623+ let amountId = poolCfg[idxAmAsId]
624+ let priceId = poolCfg[idxPrAsId]
625+ let amountDecimals = parseIntValue(poolCfg[idxAmtAsDcm])
626+ let priceDecimals = parseIntValue(poolCfg[idxPriceAsDcm])
627+ let addon = valueOrElse(getString(this, keyAddonAddress()), "")
628+ let userAddress = if ((addon == toString(i.caller)))
629+ then i.originCaller
630+ else i.caller
631+ if (if (if (if ((0 >= slippage))
632+ then true
633+ else (0 >= amountAssetPart))
634+ then true
635+ else (0 >= priceAssetPart))
636+ then true
637+ else (0 >= outLp))
638+ then throwErr("Wrong params")
639+ else if ((size(i.payments) != 1))
640+ then throwErr("1 payment expected")
524641 else {
525- let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, 0, "")
526- let emitLpAmt = e._2
527- let lpAssetId = e._7
528- let state = e._9
529- let amDiff = e._10
530- let prDiff = e._11
531- let amId = e._12
532- let prId = e._13
533- let r = invoke(fca, "emit", [emitLpAmt], nil)
534- if ((r == r))
535- then {
536- let el = match r {
537- case legacy: Address =>
538- invoke(legacy, "emit", [emitLpAmt], nil)
539- case _ =>
540- unit
541- }
542- if ((el == el))
642+ let payment = value(i.payments[0])
643+ let paymentAssetId = toBase58String(value(payment.assetId))
644+ let paymentAmountRaw = payment.amount
645+ let $t02656926628 = takeFee(paymentAmountRaw)
646+ let paymentAmount = $t02656926628._1
647+ let feeAmount = $t02656926628._2
648+ if (if (if ((amountAssetPart > paymentAmount))
649+ then true
650+ else (priceAssetPart > paymentAmount))
651+ then true
652+ else (10000000 > paymentAmount))
653+ then throwErr("wrong payment amount")
654+ else {
655+ let amountBalance = getAccBalance(amountId)
656+ let priceBalance = getAccBalance(priceId)
657+ let $t02689327348 = if ((paymentAssetId == amountId))
658+ then $Tuple6((amountBalance - paymentAmount), priceBalance, (paymentAmount - amountAssetPart), priceAssetPart, 0, 0)
659+ else if ((paymentAssetId == priceId))
660+ then $Tuple6(amountBalance, (priceBalance - paymentAmount), 0, 0, (paymentAmount - priceAssetPart), amountAssetPart)
661+ else throwErr("wrong paymentAssetId")
662+ let amountBalanceNow = $t02689327348._1
663+ let priceBalanceNow = $t02689327348._2
664+ let virtSwapInAm = $t02689327348._3
665+ let virtSwapOutPr = $t02689327348._4
666+ let virtSwapInPr = $t02689327348._5
667+ let virtSwapOutAm = $t02689327348._6
668+ let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
669+ let D1 = invoke(gwxRewardContract, "calcD", [toString(toBigInt(((amountBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((priceBalanceNow + virtSwapInPr) - virtSwapOutPr))), amplificator, Amult, Dconv], nil)
670+ let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
671+ if ((D0vsD1 == D0vsD1))
543672 then {
544- let sa = if ((amDiff > 0))
545- then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
546- else nil
547- if ((sa == sa))
673+ let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amountId), amountAssetPart), AttachedPayment(fromBase58String(priceId), priceAssetPart), slippage, true, true, paymentAmount, paymentAssetId)
674+ let estimateLP = estimatePut._2
675+ let lpAssetId = estimatePut._7
676+ let state = estimatePut._9
677+ let amountDiff = estimatePut._10
678+ let priceDiff = estimatePut._11
679+ let lpCalcRes = validateAbsDiff(toBigInt(estimateLP), toBigInt(outLp), toBigInt(slippage))
680+ let emitLpAmount = toInt(lpCalcRes._2)
681+ let e = invoke(factoryContract, "emit", [emitLpAmount], nil)
682+ if ((e == e))
548683 then {
549- let sp = if ((prDiff > 0))
550- then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
551- else nil
552- if ((sp == sp))
684+ let el = match e {
685+ case legacy: Address =>
686+ invoke(legacy, "emit", [emitLpAmount], nil)
687+ case _ =>
688+ unit
689+ }
690+ if ((el == el))
553691 then {
554- let lpTrnsfr = if (autoStake)
692+ let sa = if ((amountDiff > 0))
693+ then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(amountId), amountDiff)])
694+ else nil
695+ if ((sa == sa))
555696 then {
556- let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
557- if ((ss == ss))
558- then nil
697+ let sp = if ((priceDiff > 0))
698+ then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(priceId), priceDiff)])
699+ else nil
700+ if ((sp == sp))
701+ then {
702+ let lpTrasfer = if (autoStake)
703+ then {
704+ let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
705+ if ((ss == ss))
706+ then nil
707+ else throw("Strict value is not equal to itself.")
708+ }
709+ else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
710+ let sendFeeToMatcher = if ((feeAmount > 0))
711+ then [ScriptTransfer(matcherAddress, feeAmount, fromBase58String(paymentAssetId))]
712+ else nil
713+ ((state ++ lpTrasfer) ++ sendFeeToMatcher)
714+ }
559715 else throw("Strict value is not equal to itself.")
560716 }
561- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
562- (state ++ lpTrnsfr)
717+ else throw("Strict value is not equal to itself.")
563718 }
564719 else throw("Strict value is not equal to itself.")
565720 }
566721 else throw("Strict value is not equal to itself.")
567722 }
568723 else throw("Strict value is not equal to itself.")
569724 }
570- else throw("Strict value is not equal to itself.")
571725 }
572726 }
573727
574728
575729
576730 @Callable(i)
577-func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
578- let cfg = gfc()
579- let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
580- let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
581- let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
582- let poolCfg = gpc()
583- let amId = poolCfg[idxAmAsId]
584- let prId = poolCfg[idxPrAsId]
585- let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
586- let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
587- let addon = valueOrElse(getString(this, ada()), "")
588- let userAddress = if ((addon == toString(i.caller)))
589- then i.originCaller
590- else i.caller
591- let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592- let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593- if ((check == check))
594- then if (if (if (if ((0 >= slippage))
595- then true
596- else (0 >= amAssetPart))
597- then true
598- else (0 >= prAssetPart))
599- then true
600- else (0 >= outLp))
601- then throw("Wrong params")
602- else if ((size(i.payments) != 1))
603- then throw("1 pmnt expd")
604- else {
605- let pmt = value(i.payments[0])
606- let pmtAssetId = toBase58String(value(pmt.assetId))
607- let pmtAmt = pmt.amount
608- if ((10000000 > pmtAmt))
609- then throw("Wrong pmt amt")
610- else {
611- let amBalance = getAccBalance(amId)
612- let prBalance = getAccBalance(prId)
613- let $t02485525431 = if ((pmtAssetId == amId))
614- then if (if ((pmtAmt > amBalance))
615- then true
616- else (amAssetPart > pmtAmt))
617- then throw("invalid payment amount")
618- else $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
619- else if ((pmtAssetId == prId))
620- then if (if ((pmtAmt > prBalance))
621- then true
622- else (prAssetPart > pmtAmt))
623- then throw("invalid payment amount")
624- else $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
625- else throw("wrong pmtAssetId")
626- let amBalanceNow = $t02485525431._1
627- let prBalanceNow = $t02485525431._2
628- let virtSwapInAm = $t02485525431._3
629- let virtSwapOutPr = $t02485525431._4
630- let virtSwapInPr = $t02485525431._5
631- let virtSwapOutAm = $t02485525431._6
632- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
633- let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
634- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
635- if ((D0vsD1 == D0vsD1))
636- then {
637- let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
638- let estimLP = estPut._2
639- let lpAssetId = estPut._7
640- let state = estPut._9
641- let amDiff = estPut._10
642- let prDiff = estPut._11
643- let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
644- let emitLpAmt = toInt(lpCalcRes._2)
645- let e = invoke(fca, "emit", [emitLpAmt], nil)
646- if ((e == e))
647- then {
648- let el = match e {
649- case legacy: Address =>
650- invoke(legacy, "emit", [emitLpAmt], nil)
651- case _ =>
652- unit
653- }
654- if ((el == el))
655- then {
656- let sa = if ((amDiff > 0))
657- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
658- else nil
659- if ((sa == sa))
660- then {
661- let sp = if ((prDiff > 0))
662- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
663- else nil
664- if ((sp == sp))
665- then {
666- let lpTrnsfr = if (autoStake)
667- then {
668- let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
669- if ((ss == ss))
670- then nil
671- else throw("Strict value is not equal to itself.")
672- }
673- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
674- (state ++ lpTrnsfr)
675- }
676- else throw("Strict value is not equal to itself.")
677- }
678- else throw("Strict value is not equal to itself.")
679- }
680- else throw("Strict value is not equal to itself.")
681- }
682- else throw("Strict value is not equal to itself.")
683- }
684- else throw("Strict value is not equal to itself.")
685- }
686- }
687- else throw("Strict value is not equal to itself.")
688- }
689-
690-
691-
692-@Callable(i)
693-func putForFree (maxSlpg) = if ((0 > maxSlpg))
694- then throw("Wrong slpg")
731+func putForFree (maxslippage) = if ((0 > maxslippage))
732+ then throwErr("wrong slippage")
695733 else if ((size(i.payments) != 2))
696- then throw("2 pmnts expd")
734+ then throwErr("2 payments expected")
697735 else {
698- let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, 0, "")
699- estPut._9
736+ let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxslippage, false, false, 0, "")
737+ estimatePut._9
700738 }
701739
702740
703741
704742 @Callable(i)
705743 func get () = {
706- let r = cg(i)
744+ let r = commonGet(i)
707745 let outAmtAmt = r._1
708- let outPrAmt = r._2
709- let pmtAmt = r._3
710- let pmtAssetId = r._4
746+ let outPriceAmount = r._2
747+ let paymentAmount = r._3
748+ let paymentAssetId = r._4
711749 let state = r._5
712- let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
750+ let b = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
713751 if ((b == b))
714752 then state
715753 else throw("Strict value is not equal to itself.")
716754 }
717755
718756
719757
720758 @Callable(i)
721759 func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
722- then throw("1 pmnt expd")
760+ then throwErr("1 payment expected")
723761 else {
724- let cfg = gpc()
725- let lpId = cfg[idxLPAsId]
726- let amId = cfg[idxAmAsId]
727- let prId = cfg[idxPrAsId]
728- let amDcm = parseIntValue(cfg[idxAmtAsDcm])
729- let prDcm = parseIntValue(cfg[idxPriceAsDcm])
762+ let cfg = getPoolConfig()
763+ let lpAssetId = cfg[idxLPAsId]
764+ let amountId = cfg[idxAmAsId]
765+ let priceId = cfg[idxPrAsId]
766+ let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
767+ let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
730768 let sts = cfg[idxPoolSt]
731- let factCfg = gfc()
732- let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
733- let pmt = value(i.payments[0])
734- let addon = valueOrElse(getString(this, ada()), "")
769+ let factCfg = getFactoryConfig()
770+ let gwxRewardContract = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wrong gwxRewardContract address")
771+ let payment = value(i.payments[0])
772+ let addon = valueOrElse(getString(this, keyAddonAddress()), "")
735773 let userAddress = if ((addon == toString(i.caller)))
736774 then i.originCaller
737775 else i.caller
738776 let txId58 = toBase58String(i.transactionId)
739- let pmtAssetId = value(pmt.assetId)
740- let pmtAmt = pmt.amount
741- let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
742- let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
743- if ((check == check))
744- then if ((1000000000 > pmtAmt))
745- then throw("Min pmt 10 LP")
746- else if (if (if ((0 > slippage))
747- then true
748- else (0 > exchResult))
749- then true
750- else (0 > outAmount))
751- then throw("Wrong params")
752- else if ((lpId != toBase58String(pmtAssetId)))
753- then throw("Wrong LP")
754- else {
755- let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
756- let estimAmAmt = r._1
757- let estimPrAmt = r._2
758- let amBalance = getAccBalance(amId)
759- let prBalance = getAccBalance(prId)
760- let $t03046230919 = if ((outAssetId == amId))
761- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
762- else if ((outAssetId == prId))
763- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
764- else throw("wrong outAssetId")
765- let amBalanceNow = $t03046230919._1
766- let prBalanceNow = $t03046230919._2
767- let virtSwapInAm = $t03046230919._3
768- let virtSwapOutPr = $t03046230919._4
769- let virtSwapInPr = $t03046230919._5
770- let virtSwapOutAm = $t03046230919._6
771- let totalGet = $t03046230919._7
772- if (if ((0 > virtSwapInAm))
773- then true
774- else (0 > virtSwapInPr))
775- then throw("Wrong calc")
776- else {
777- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
778- let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
779- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
780- if ((D0vsD1 == D0vsD1))
781- then {
782- let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
783- if ((finalRes == finalRes))
784- then {
785- let $t03162431728 = if ((outAssetId == amId))
786- then $Tuple2(toInt(finalRes._2), 0)
787- else $Tuple2(0, toInt(finalRes._2))
788- let outAm = $t03162431728._1
789- let outPr = $t03162431728._2
790- let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
791- let curPr = f1(curPrX18, scale8)
792- let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
793- then unit
794- else fromBase58String(outAssetId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
795- if ((state == state))
796- then {
797- let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
798- if ((burn == burn))
799- then state
800- else throw("Strict value is not equal to itself.")
801- }
802- else throw("Strict value is not equal to itself.")
803- }
804- else throw("Strict value is not equal to itself.")
805- }
806- else throw("Strict value is not equal to itself.")
807- }
808- }
809- else throw("Strict value is not equal to itself.")
777+ let paymentAssetId = value(payment.assetId)
778+ let paymentAmount = payment.amount
779+ if ((1000000000 > paymentAmount))
780+ then throwErr("Min payment 10 LP")
781+ else if (if (if ((0 > slippage))
782+ then true
783+ else (0 > exchResult))
784+ then true
785+ else (0 > outAmount))
786+ then throwErr("Wrong params")
787+ else if ((lpAssetId != toBase58String(paymentAssetId)))
788+ then throwErr("Wrong LP")
789+ else {
790+ let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
791+ let estimAmAmt = r._1
792+ let estimPrAmt = r._2
793+ let amountBalance = getAccBalance(amountId)
794+ let priceBalance = getAccBalance(priceId)
795+ let $t03249632964 = if ((outAssetId == amountId))
796+ then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
797+ else if ((outAssetId == priceId))
798+ then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
799+ else throwErr("wrong outAssetId")
800+ let amountBalanceNow = $t03249632964._1
801+ let priceBalanceNow = $t03249632964._2
802+ let virtSwapInAm = $t03249632964._3
803+ let virtSwapOutPr = $t03249632964._4
804+ let virtSwapInPr = $t03249632964._5
805+ let virtSwapOutAm = $t03249632964._6
806+ let totalGet = $t03249632964._7
807+ if (if ((0 > virtSwapInAm))
808+ then true
809+ else (0 > virtSwapInPr))
810+ then throwErr("Wrong calc")
811+ else {
812+ let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
813+ let D1 = invoke(gwxRewardContract, "calcD", [toString(((amountBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((priceBalanceNow + virtSwapOutPr) - virtSwapInPr)), amplificator, Amult, Dconv], nil)
814+ let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
815+ if ((D0vsD1 == D0vsD1))
816+ then {
817+ let finalRes = validateAbsDiff(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
818+ if ((finalRes == finalRes))
819+ then {
820+ let $t03363333741 = if ((outAssetId == amountId))
821+ then $Tuple2(toInt(finalRes._2), 0)
822+ else $Tuple2(0, toInt(finalRes._2))
823+ let outAm = $t03363333741._1
824+ let outPr = $t03363333741._2
825+ let totalAmountRaw = (outAm + outPr)
826+ let $t03378133836 = takeFee(totalAmountRaw)
827+ let totalAmount = $t03378133836._1
828+ let feeAmount = $t03378133836._2
829+ let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
830+ then unit
831+ else fromBase58String(outAssetId)
832+ let sendFeeToMatcher = if ((feeAmount > 0))
833+ then [ScriptTransfer(matcherAddress, feeAmount, outAssetIdOrWaves)]
834+ else nil
835+ let decimals = if ((amountDecimals >= priceDecimals))
836+ then amountDecimals
837+ else priceDecimals
838+ if ((decimals == decimals))
839+ then {
840+ let curPrX18 = calcPriceBigInt(toX18(priceBalance, decimals), toX18(amountBalance, decimals))
841+ let curPr = fromX18(curPrX18, scale8)
842+ let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, paymentAmount, curPr, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPr), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPr)]
843+ if ((state == state))
844+ then {
845+ let burn = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
846+ if ((burn == burn))
847+ then (state ++ sendFeeToMatcher)
848+ else throw("Strict value is not equal to itself.")
849+ }
850+ else throw("Strict value is not equal to itself.")
851+ }
852+ else throw("Strict value is not equal to itself.")
853+ }
854+ else throw("Strict value is not equal to itself.")
855+ }
856+ else throw("Strict value is not equal to itself.")
857+ }
858+ }
810859 }
811860
812861
813862
814863 @Callable(i)
815864 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
816- let r = cg(i)
817- let outAmAmt = r._1
818- let outPrAmt = r._2
819- let pmtAmt = r._3
820- let pmtAssetId = r._4
865+ let r = commonGet(i)
866+ let outAmountAmount = r._1
867+ let outPriceAmount = r._2
868+ let paymentAmount = r._3
869+ let paymentAssetId = r._4
821870 let state = r._5
822- if ((noLessThenAmtAsset > outAmAmt))
823- then throw(((("Failed: " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
824- else if ((noLessThenPriceAsset > outPrAmt))
825- then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
826- else {
827- let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
828- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
829- then state
830- else throw("Strict value is not equal to itself.")
831- }
871+ let checkOutAmountAmount = if ((outAmountAmount >= noLessThenAmtAsset))
872+ then true
873+ else throwErr(((("Failed: " + toString(outAmountAmount)) + " < ") + toString(noLessThenAmtAsset)))
874+ if ((checkOutAmountAmount == checkOutAmountAmount))
875+ then {
876+ let checkOutPriceAmount = if ((outPriceAmount >= noLessThenPriceAsset))
877+ then true
878+ else throwErr(((("Failed: " + toString(outPriceAmount)) + " < ") + toString(noLessThenPriceAsset)))
879+ if ((checkOutPriceAmount == checkOutPriceAmount))
880+ then {
881+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
882+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
883+ then state
884+ else throw("Strict value is not equal to itself.")
885+ }
886+ else throw("Strict value is not equal to itself.")
887+ }
888+ else throw("Strict value is not equal to itself.")
832889 }
833890
834891
835892
836893 @Callable(i)
837894 func unstakeAndGet (amount) = {
838895 let checkPayments = if ((size(i.payments) != 0))
839- then throw("No pmnts expd")
896+ then throwErr("no payments expected")
840897 else true
841898 if ((checkPayments == checkPayments))
842899 then {
843- let cfg = gpc()
844- let factoryCfg = gfc()
900+ let cfg = getPoolConfig()
901+ let factoryCfg = getFactoryConfig()
845902 let lpAssetId = fromBase58String(cfg[idxLPAsId])
846- let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
903+ let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "wrong")
847904 let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
848905 if ((unstakeInv == unstakeInv))
849906 then {
850- let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
907+ let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
851908 let sts = parseIntValue(r._9)
852909 let state = r._10
853- let v = if (if (igs())
910+ let v = if (if (isGlobalShutdown())
854911 then true
855912 else (sts == PoolShutdown))
856- then throw(("Blocked: " + toString(sts)))
913+ then throwErr(("Blocked: " + toString(sts)))
857914 else true
858915 if ((v == v))
859916 then {
860- let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
917+ let burnA = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
861918 if ((burnA == burnA))
862919 then state
863920 else throw("Strict value is not equal to itself.")
864921 }
865922 else throw("Strict value is not equal to itself.")
866923 }
867924 else throw("Strict value is not equal to itself.")
868925 }
869926 else throw("Strict value is not equal to itself.")
870927 }
871928
872929
873930
874931 @Callable(i)
875-func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
876- then throw("denied")
877- else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
932+func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(factoryContract)))
933+ then throwErr("denied")
934+ else $Tuple2([StringEntry(keyAmountAsset(), amtAsStr), StringEntry(keyPriceAsset(), prAsStr)], "success")
878935
879936
880937
881938 @Callable(i)
882-func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
939+func setS (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
883940 then pd
884941 else [StringEntry(k, v)]
885942
886943
887944
888945 @Callable(i)
889-func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
946+func setI (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
890947 then pd
891948 else [IntegerEntry(k, v)]
892949
893950
894951
895952 @Callable(i)
896-func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
953+func getPoolConfigWrapperREADONLY () = $Tuple2(nil, getPoolConfig())
897954
898955
899956
900957 @Callable(i)
901958 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
902959
903960
904961
905962 @Callable(i)
906963 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
907964 let pr = calcPrices(amAmt, prAmt, lpAmt)
908965 $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
909966 }
910967
911968
912969
913970 @Callable(i)
914-func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
971+func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, fromX18(parseBigIntValue(val), resScaleMult))
915972
916973
917974
918975 @Callable(i)
919-func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
976+func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(toX18(origVal, origScaleMult)))
920977
921978
922979
923980 @Callable(i)
924-func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
981+func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(calcPriceBigInt(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
925982
926983
927984
928985 @Callable(i)
929-func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, false, 0, ""))
986+func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmountAssetAmount,inAmId,inPriceAssetAmount,inPrId,usrAddr,isEvaluate,emitLp) = $Tuple2(nil, estimatePutOperation(txId58, slippage, inAmountAssetAmount, inAmId, inPriceAssetAmount, inPrId, usrAddr, isEvaluate, emitLp, false, 0, ""))
930987
931988
932989
933990 @Callable(i)
934-func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
935- let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
991+func estimateGetOperationWrapperREADONLY (txId58,paymentAsId,paymentLpAmount,usrAddr) = {
992+ let r = estimateGetOperation(txId58, paymentAsId, paymentLpAmount, addressFromStringValue(usrAddr))
936993 $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
937994 }
938995
939996
940997 @Verifier(tx)
941-func verify () = {
942- let targetPublicKey = match m() {
943- case pk: ByteVector =>
944- pk
945- case _: Unit =>
946- tx.senderPublicKey
947- case _ =>
948- throw("Match error")
949- }
950- match tx {
951- case order: Order =>
952- let matcherPub = mp()
953- let orderValid = moa(order)
954- let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
955- let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
956- if (if (if (orderValid)
957- then senderValid
958- else false)
959- then matcherValid
960- else false)
961- then true
962- else toe(orderValid, senderValid, matcherValid)
963- case s: SetScriptTransaction =>
964- let newHash = blake2b256(value(s.script))
965- let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
966- let currentHash = scriptHash(this)
967- if (if ((allowedHash == newHash))
968- then (currentHash != newHash)
969- else false)
970- then true
971- else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
972- case _ =>
973- sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
974- }
975- }
998+func verify () = match tx {
999+ case order: Order =>
1000+ let mtchPub = getMatcherPubOrFail()
1001+ let orV = validateMatcherOrderAllowed(order)
1002+ let sndrV = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
1003+ let mtchV = sigVerify(order.bodyBytes, order.proofs[1], mtchPub)
1004+ if (if (if (orV)
1005+ then sndrV
1006+ else false)
1007+ then mtchV
1008+ else false)
1009+ then true
1010+ else throwOrderError(orV, sndrV, mtchV)
1011+ case _ =>
1012+ let targetPublicKey = match managerPublicKeyOrUnit() {
1013+ case pk: ByteVector =>
1014+ pk
1015+ case _: Unit =>
1016+ tx.senderPublicKey
1017+ case _ =>
1018+ throw("Match error")
1019+ }
1020+ sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1021+}
9761022

github/deemru/w8io/169f3d6 
272.69 ms