w8 · tx · H7C···HnM

tx · H7C1zzQiAyMEc3aZA1DD3RxeB1V71eJBysAnZm3NAHnM

3MyeMZm2BLBkcgK2VBeTU8h1n562iB3zA2Z:  -0.02900000 Waves

2022.09.13 00:15 [2226425] smart account 3MyeMZm2BLBkcgK2VBeTU8h1n562iB3zA2Z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "H7C1zzQiAyMEc3aZA1DD3RxeB1V71eJBysAnZm3NAHnM",
    "fee": 2900000,
    "feeAssetId": null,
    "timestamp": 1663017336016,
    "version": 2,
    "chainId": 84,
    "sender": "3MyeMZm2BLBkcgK2VBeTU8h1n562iB3zA2Z",
    "senderPublicKey": "5bHbDgAVwbyzkor8HrHKU8zcg5RfwKy3rNihVqk8YUvP",
    "proofs": [
        "3Y4qcbxfKhMBLp9eq4LETyZN4UKoF3zWx6vhegF54Qjg8rtjtBuXWQXYEehSqxEHdRPzYMW61nbc7YTzRMx3GE2V"
    ],
    "script": "base64:BgJ/CAISAwoBCBIDCgEIEgASBAoCAQQSBwoFAQEBAQQSAwoBARIAEgcKBQEBAQgBEgQKAgEBEgMKAQESBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCE8AD2RlZmF1bHREZWNpbWFscwCAwtcvAAZzY2FsZTgAgMLXLwAMc2NhbGU4QmlnSW50CQC2AgEAgMLXLwAHc2NhbGUxOAkAtgIBAICAkLu61q3wDQAKemVyb0JpZ0ludAkAtgIBAAAACW9uZUJpZ0ludAkAtgIBAAEACnNsaXBwYWdlNEQJALYCAQkAZQIFBnNjYWxlOAkAaQIJAGgCBQZzY2FsZTgAAQUGc2NhbGU4AAVBbXVsdAIDMTAwAAVEY29udgIBMQADU0VQAgJfXwAFRU1QVFkCAAAKUG9vbEFjdGl2ZQABAApQb29sUHV0RGlzAAIADlBvb2xNYXRjaGVyRGlzAAMADFBvb2xTaHV0ZG93bgAEAA5pZHhQb29sQWRkcmVzcwABAAlpZHhQb29sU3QAAgAJaWR4TFBBc0lkAAMACWlkeEFtQXNJZAAEAAlpZHhQckFzSWQABQALaWR4QW10QXNEY20ABgANaWR4UHJpY2VBc0RjbQAHAAtpZHhJQW10QXNJZAAIAA1pZHhJUHJpY2VBc0lkAAkAD2lkeEZhY3RTdGFrQ250cgABABBpZHhGYWN0U2xpcHBDbnRyAAcAEWlkeEZhY3RHd3hSZXdDbnRyAAoABWRlbGF5Agklc19fZGVsYXkBAnQxAgdvcmlnVmFsDW9yaWdTY2FsZU11bHQJALwCAwkAtgIBBQdvcmlnVmFsBQdzY2FsZTE4CQC2AgEFDW9yaWdTY2FsZU11bHQBAmYxAgN2YWwPcmVzdWx0U2NhbGVNdWx0CQCgAwEJALwCAwUDdmFsCQC2AgEFD3Jlc3VsdFNjYWxlTXVsdAUHc2NhbGUxOAECdHMDA2FtdAhyZXNTY2FsZQhjdXJTY2FsZQkAawMFA2FtdAUIcmVzU2NhbGUFCGN1clNjYWxlAQNhYnMBA3ZhbAMJAL8CAgUKemVyb0JpZ0ludAUDdmFsCQC+AgEFA3ZhbAUDdmFsAQJmYwACEyVzX19mYWN0b3J5Q29udHJhY3QBA21wawACFCVzX19tYW5hZ2VyUHVibGljS2V5AQRwbXBrAAIbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQJwbAACESVzJXNfX3ByaWNlX19sYXN0AQJwaAIBaAF0CQC5CQIJAMwIAgIYJXMlcyVkJWRfX3ByaWNlX19oaXN0b3J5CQDMCAIJAKQDAQUBaAkAzAgCCQCkAwEFAXQFA25pbAUDU0VQAQNwYXUCAnVhBHR4SWQJAKwCAgkArAICCQCsAgICCyVzJXMlc19fUF9fBQJ1YQICX18FBHR4SWQBA2dhdQICdWEEdHhJZAkArAICCQCsAgIJAKwCAgILJXMlcyVzX19HX18FAnVhAgJfXwUEdHhJZAECYWEAAg8lc19fYW1vdW50QXNzZXQBAnBhAAIOJXNfX3ByaWNlQXNzZXQBA2FtcAACByVzX19hbXABA2FkYQACDSVzX19hZGRvbkFkZHIBBWxnb3RjAQZjYWxsZXIJALkJAgkAzAgCAhclcyVzX19sYXN0R2V0T25lVGtuQ2FsbAkAzAgCBQZjYWxsZXIFA25pbAUDU0VQAQVsc290YwEGY2FsbGVyCQC5CQIJAMwIAgIXJXMlc19fbGFzdFB1dE9uZVRrbkNhbGwJAMwIAgUGY2FsbGVyBQNuaWwFA1NFUAEEZmNmZwACESVzX19mYWN0b3J5Q29uZmlnAQRtdHBrAAIYJXMlc19fbWF0Y2hlcl9fcHVibGljS2V5AQJwYwIGaUFtdEFzBWlQckFzCQCsAgIJAKwCAgkArAICCQCsAgICCCVkJWQlc19fBQZpQW10QXMCAl9fBQVpUHJBcwIIX19jb25maWcBA21iYQEFYkFTdHIJAKwCAgIoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUFYkFTdHIBA2FwcwACDCVzX19zaHV0ZG93bgEca2V5QWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaAACHSVzX19hbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAQN0b2UDA29yVgZzZW5kclYGbWF0Y2hWCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEUZhaWxlZDogb3JkVmFsaWQ9CQClAwEFA29yVgILIHNuZHJWYWxpZD0JAKUDAQUGc2VuZHJWAgwgbXRjaHJWYWxpZD0JAKUDAQUGbWF0Y2hWAQNzdHIBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACBlN0cmluZwQGdmFsU3RyBQckbWF0Y2gwBQZ2YWxTdHIJAAIBAhNmYWlsIGNhc3QgdG8gU3RyaW5nAQRzdHJmAgRhZGRyA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBGFkZHIFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQRhZGRyCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABBGludGYCBGFkZHIDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEYWRkcgUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFBGFkZHIJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAADZmNhCQERQGV4dHJOYXRpdmUoMTA2MikBCQEEc3RyZgIFBHRoaXMJAQJmYwAAAUEJAQRzdHJmAgUEdGhpcwkBA2FtcAABA2lncwAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUDZmNhCQEDYXBzAAcBAm1wAAkA2QQBCQEEc3RyZgIFA2ZjYQkBBG10cGsAAQNncGMABAVhbXRBcwkBBHN0cmYCBQR0aGlzCQECYWEABAdwcmljZUFzCQEEc3RyZgIFBHRoaXMJAQJwYQAECGlQcmljZUFzCQEEaW50ZgIFA2ZjYQkBA21iYQEFB3ByaWNlQXMEBmlBbXRBcwkBBGludGYCBQNmY2EJAQNtYmEBBQVhbXRBcwkAtQkCCQEEc3RyZgIFA2ZjYQkBAnBjAgkApAMBBQZpQW10QXMJAKQDAQUIaVByaWNlQXMFA1NFUAEDZ2ZjAAkAtQkCCQEEc3RyZgIFA2ZjYQkBBGZjZmcABQNTRVABEWRhdGFQdXRBY3Rpb25JbmZvCg1pbkFtdEFzc2V0QW10D2luUHJpY2VBc3NldEFtdAhvdXRMcEFtdAVwcmljZQpzbGlwQnlVc2VyDHNsaXBwYWdlUmVhbAh0eEhlaWdodAt0eFRpbWVzdGFtcAxzbGlwYWdlQW1BbXQMc2xpcGFnZVByQW10CQC5CQIJAMwIAgIUJWQlZCVkJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQ1pbkFtdEFzc2V0QW10CQDMCAIJAKQDAQUPaW5QcmljZUFzc2V0QW10CQDMCAIJAKQDAQUIb3V0THBBbXQJAMwIAgkApAMBBQVwcmljZQkAzAgCCQCkAwEFCnNsaXBCeVVzZXIJAMwIAgkApAMBBQxzbGlwcGFnZVJlYWwJAMwIAgkApAMBBQh0eEhlaWdodAkAzAgCCQCkAwEFC3R4VGltZXN0YW1wCQDMCAIJAKQDAQUMc2xpcGFnZUFtQW10CQDMCAIJAKQDAQUMc2xpcGFnZVByQW10BQNuaWwFA1NFUAERZGF0YUdldEFjdGlvbkluZm8GDm91dEFtdEFzc2V0QW10EG91dFByaWNlQXNzZXRBbXQHaW5McEFtdAVwcmljZQh0eEhlaWdodAt0eFRpbWVzdGFtcAkAuQkCCQDMCAICDCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFDm91dEFtdEFzc2V0QW10CQDMCAIJAKQDAQUQb3V0UHJpY2VBc3NldEFtdAkAzAgCCQCkAwEFB2luTHBBbXQJAMwIAgkApAMBBQVwcmljZQkAzAgCCQCkAwEFCHR4SGVpZ2h0CQDMCAIJAKQDAQULdHhUaW1lc3RhbXAFA25pbAUDU0VQAQ1nZXRBY2NCYWxhbmNlAQdhc3NldElkAwkAAAIFB2Fzc2V0SWQCBVdBVkVTCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQDZBAEFB2Fzc2V0SWQBBGNwYmkCCHByQW10WDE4CGFtQW10WDE4CQC8AgMFCHByQW10WDE4BQdzY2FsZTE4BQhhbUFtdFgxOAEDdmFkAwJBMQJBMghzbGlwcGFnZQQEZGlmZgkAvAIDCQC4AgIFAkExBQJBMgUMc2NhbGU4QmlnSW50BQJBMgQEcGFzcwkAvwICCQC4AgIFCHNsaXBwYWdlCQEDYWJzAQUEZGlmZgUKemVyb0JpZ0ludAMJAQEhAQUEcGFzcwkAAgEJAKwCAgIKQmlnIHNscGc6IAkApgMBBQRkaWZmCQCUCgIFBHBhc3MJAJkDAQkAzAgCBQJBMQkAzAgCBQJBMgUDbmlsAQJ2ZAMCRDECRDAEc2xwZwQEZGlmZgkAvAIDBQJEMAUMc2NhbGU4QmlnSW50BQJEMQQEZmFpbAkAvwICBQRzbHBnBQRkaWZmAwMFBGZhaWwGCQC/AgIFAkQwBQJEMQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKYDAQUCRDACASAJAKYDAQUCRDECASAJAKYDAQUEZGlmZgIBIAkApgMBBQRzbHBnBQRmYWlsAQNwY3AECmFtQXNzZXREY20KcHJBc3NldERjbQVhbUFtdAVwckFtdAQLYW10QXNBbXRYMTgJAQJ0MQIFBWFtQW10BQphbUFzc2V0RGNtBApwckFzQW10WDE4CQECdDECBQVwckFtdAUKcHJBc3NldERjbQkBBGNwYmkCBQpwckFzQW10WDE4BQthbXRBc0FtdFgxOAEKY2FsY1ByaWNlcwMFYW1BbXQFcHJBbXQFbHBBbXQEA2NmZwkBA2dwYwAECGFtdEFzRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQHcHJBc0RjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUNaWR4UHJpY2VBc0RjbQQIcHJpY2VYMTgJAQNwY3AEBQhhbXRBc0RjbQUHcHJBc0RjbQUFYW1BbXQFBXByQW10BAhhbUFtdFgxOAkBAnQxAgUFYW1BbXQFCGFtdEFzRGNtBAhwckFtdFgxOAkBAnQxAgUFcHJBbXQFB3ByQXNEY20ECGxwQW10WDE4CQECdDECBQVscEFtdAUGc2NhbGU4BA1scFBySW5BbUFzWDE4CQEEY3BiaQIFCGFtQW10WDE4BQhscEFtdFgxOAQNbHBQckluUHJBc1gxOAkBBGNwYmkCBQhwckFtdFgxOAUIbHBBbXRYMTgJAMwIAgUIcHJpY2VYMTgJAMwIAgUNbHBQckluQW1Bc1gxOAkAzAgCBQ1scFBySW5QckFzWDE4BQNuaWwBD2NhbGN1bGF0ZVByaWNlcwMFYW1BbXQFcHJBbXQFbHBBbXQEAXAJAQpjYWxjUHJpY2VzAwUFYW1BbXQFBXByQW10BQVscEFtdAkAzAgCCQECZjECCQCRAwIFAXAAAAUGc2NhbGU4CQDMCAIJAQJmMQIJAJEDAgUBcAABBQZzY2FsZTgJAMwIAgkBAmYxAgkAkQMCBQFwAAIFBnNjYWxlOAUDbmlsAQNlZ28EBnR4SWQ1OApwbXRBc3NldElkCHBtdExwQW10C3VzZXJBZGRyZXNzBANjZmcJAQNncGMABARscElkCQCRAwIFA2NmZwUJaWR4TFBBc0lkBARhbUlkCQCRAwIFA2NmZwUJaWR4QW1Bc0lkBARwcklkCQCRAwIFA2NmZwUJaWR4UHJBc0lkBAVhbURjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20EBXByRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBANzdHMJAJEDAgUDY2ZnBQlpZHhQb29sU3QEB2xwRW1pc3MICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQRscElkAgtXcm9uZyBMUCBpZAhxdWFudGl0eQMJAQIhPQIFBGxwSWQFCnBtdEFzc2V0SWQJAAIBAg9Xcm9uZyBwbXQgYXNzZXQECWFtQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRhbUlkBAlwckJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEcHJJZAQcYW1vdW50QmFsYW5jZURlZmF1bHREZWNpbWFscwkAawMFCWFtQmFsYW5jZQUPZGVmYXVsdERlY2ltYWxzBQVhbURjbQQbcHJpY2VCYWxhbmNlRGVmYXVsdERlY2ltYWxzCQBrAwUJcHJCYWxhbmNlBQ9kZWZhdWx0RGVjaW1hbHMFBXByRGNtBAxhbUJhbGFuY2VYMTgJAQJ0MQIFHGFtb3VudEJhbGFuY2VEZWZhdWx0RGVjaW1hbHMFD2RlZmF1bHREZWNpbWFscwQMcHJCYWxhbmNlWDE4CQECdDECBRtwcmljZUJhbGFuY2VEZWZhdWx0RGVjaW1hbHMFD2RlZmF1bHREZWNpbWFscwQLY3VyUHJpY2VYMTgJAQRjcGJpAgUMcHJCYWxhbmNlWDE4BQxhbUJhbGFuY2VYMTgECGN1clByaWNlCQECZjECBQtjdXJQcmljZVgxOAUGc2NhbGU4BAtwbXRMcEFtdFgxOAkBAnQxAgUIcG10THBBbXQFBnNjYWxlOAQKbHBFbWlzc1gxOAkBAnQxAgUHbHBFbWlzcwUGc2NhbGU4BAtvdXRBbUFtdFgxOAkAvAIDBQxhbUJhbGFuY2VYMTgFC3BtdExwQW10WDE4BQpscEVtaXNzWDE4BAtvdXRQckFtdFgxOAkAvAIDBQxwckJhbGFuY2VYMTgFC3BtdExwQW10WDE4BQpscEVtaXNzWDE4BB5vdXRBbW91bnRBbW91bnREZWZhdWx0RGVjaW1hbHMJAQJmMQIFC291dEFtQW10WDE4BQ9kZWZhdWx0RGVjaW1hbHMEHW91dFByaWNlQW1vdW50RGVmYXVsdERlY2ltYWxzCQECZjECBQtvdXRQckFtdFgxOAUPZGVmYXVsdERlY2ltYWxzBAhvdXRBbUFtdAkAawMFHm91dEFtb3VudEFtb3VudERlZmF1bHREZWNpbWFscwUFYW1EY20FD2RlZmF1bHREZWNpbWFscwQIb3V0UHJBbXQJAGsDBR1vdXRQcmljZUFtb3VudERlZmF1bHREZWNpbWFscwUFcHJEY20FD2RlZmF1bHREZWNpbWFscwQFc3RhdGUDCQAAAgUGdHhJZDU4AgAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQt1c2VyQWRkcmVzcwUIb3V0QW1BbXQDCQAAAgUEYW1JZAIFV0FWRVMFBHVuaXQJANkEAQUEYW1JZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQt1c2VyQWRkcmVzcwUIb3V0UHJBbXQDCQAAAgUEcHJJZAIFV0FWRVMFBHVuaXQJANkEAQUEcHJJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEDZ2F1AgkApQgBBQt1c2VyQWRkcmVzcwUGdHhJZDU4CQERZGF0YUdldEFjdGlvbkluZm8GBQhvdXRBbUFtdAUIb3V0UHJBbXQFCHBtdExwQW10BQhjdXJQcmljZQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBsAAUIY3VyUHJpY2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJwaAIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFCGN1clByaWNlBQNuaWwJAJwKCgUIb3V0QW1BbXQFCG91dFByQW10BQRhbUlkBQRwcklkBQlhbUJhbGFuY2UFCXByQmFsYW5jZQUHbHBFbWlzcwULY3VyUHJpY2VYMTgFA3N0cwUFc3RhdGUBA2VwbwwGdHhJZDU4CHNsaXBwYWdlB2luQW1BbXQGaW5BbUlkB2luUHJBbXQGaW5QcklkC3VzZXJBZGRyZXNzBmlzRXZhbAZlbWl0THAKaXNPbmVBc3NldAZwbXRBbXQFcG10SWQEA2NmZwkBA2dwYwAEBGxwSWQJANkEAQkAkQMCBQNjZmcFCWlkeExQQXNJZAQHYW1JZFN0cgkAkQMCBQNjZmcFCWlkeEFtQXNJZAQHcHJJZFN0cgkAkQMCBQNjZmcFCWlkeFByQXNJZAQJaW5BbUlkU3RyCQCRAwIFA2NmZwULaWR4SUFtdEFzSWQECWluUHJJZFN0cgkAkQMCBQNjZmcFDWlkeElQcmljZUFzSWQEBmFtdERjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20ECHByaWNlRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBANzdHMJAJEDAgUDY2ZnBQlpZHhQb29sU3QEBGxwRW0ICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUEbHBJZAIIV3IgbHAgYXMIcXVhbnRpdHkECWFtQmFsYW5jZQMFBmlzRXZhbAkBDWdldEFjY0JhbGFuY2UBBQdhbUlkU3RyAwMFCmlzT25lQXNzZXQJAAACBQVwbXRJZAUHYW1JZFN0cgcJAGUCCQENZ2V0QWNjQmFsYW5jZQEFB2FtSWRTdHIFBnBtdEFtdAMFCmlzT25lQXNzZXQJAQ1nZXRBY2NCYWxhbmNlAQUHYW1JZFN0cgkAZQIJAQ1nZXRBY2NCYWxhbmNlAQUHYW1JZFN0cgUHaW5BbUFtdAQJcHJCYWxhbmNlAwUGaXNFdmFsCQENZ2V0QWNjQmFsYW5jZQEFB3BySWRTdHIDAwUKaXNPbmVBc3NldAkAAAIFBXBtdElkBQdwcklkU3RyBwkAZQIJAQ1nZXRBY2NCYWxhbmNlAQUHcHJJZFN0cgUGcG10QW10AwUKaXNPbmVBc3NldAkBDWdldEFjY0JhbGFuY2UBBQdwcklkU3RyCQBlAgkBDWdldEFjY0JhbGFuY2UBBQdwcklkU3RyBQdpblByQW10BBxhbW91bnRCYWxhbmNlRGVmYXVsdERlY2ltYWxzCQBrAwUJYW1CYWxhbmNlBQ9kZWZhdWx0RGVjaW1hbHMFBmFtdERjbQQbcHJpY2VCYWxhbmNlRGVmYXVsdERlY2ltYWxzCQBrAwUJcHJCYWxhbmNlBQ9kZWZhdWx0RGVjaW1hbHMFCHByaWNlRGNtBCJpbkFtb3VudEFzc2V0QW1vdW50RGVmYXVsdERlY2ltYWxzCQBrAwUHaW5BbUFtdAUPZGVmYXVsdERlY2ltYWxzBQZhbXREY20EIWluUHJpY2VBc3NldEFtb3VudERlZmF1bHREZWNpbWFscwkAawMFB2luUHJBbXQFD2RlZmF1bHREZWNpbWFscwUIcHJpY2VEY20ED2luQW1Bc3NldEFtdFgxOAkBAnQxAgUiaW5BbW91bnRBc3NldEFtb3VudERlZmF1bHREZWNpbWFscwUPZGVmYXVsdERlY2ltYWxzBA9pblByQXNzZXRBbXRYMTgJAQJ0MQIFIWluUHJpY2VBc3NldEFtb3VudERlZmF1bHREZWNpbWFscwUPZGVmYXVsdERlY2ltYWxzBAx1c2VyUHJpY2VYMTgJAQRjcGJpAgUPaW5QckFzc2V0QW10WDE4BQ9pbkFtQXNzZXRBbXRYMTgEDGFtQmFsYW5jZVgxOAkBAnQxAgUcYW1vdW50QmFsYW5jZURlZmF1bHREZWNpbWFscwUPZGVmYXVsdERlY2ltYWxzBAxwckJhbGFuY2VYMTgJAQJ0MQIFG3ByaWNlQmFsYW5jZURlZmF1bHREZWNpbWFscwUPZGVmYXVsdERlY2ltYWxzBAFyAwkAAAIFBGxwRW0AAAQLY3VyUHJpY2VYMTgFCnplcm9CaWdJbnQEC3NsaXBwYWdlWDE4BQp6ZXJvQmlnSW50BAhscEFtdFgxOAkAdgYJALkCAgUPaW5BbUFzc2V0QW10WDE4BQ9pblByQXNzZXRBbXRYMTgAAAkAtgIBAAUAAQAABQRET1dOCQCXCgUJAQJmMQIFCGxwQW10WDE4BQZzY2FsZTgJAQJmMQIFD2luQW1Bc3NldEFtdFgxOAUPZGVmYXVsdERlY2ltYWxzCQECZjECBQ9pblByQXNzZXRBbXRYMTgFD2RlZmF1bHREZWNpbWFscwkBBGNwYmkCCQC3AgIFDHByQmFsYW5jZVgxOAUPaW5QckFzc2V0QW10WDE4CQC3AgIFDGFtQmFsYW5jZVgxOAUPaW5BbUFzc2V0QW10WDE4BQtzbGlwcGFnZVgxOAQLY3VyUHJpY2VYMTgJAQRjcGJpAgUMcHJCYWxhbmNlWDE4BQxhbUJhbGFuY2VYMTgED3NsaXBwYWdlUmVhbFgxOAkAvAIDCQEDYWJzAQkAuAICBQtjdXJQcmljZVgxOAUMdXNlclByaWNlWDE4BQdzY2FsZTE4BQtjdXJQcmljZVgxOAQLc2xpcHBhZ2VYMTgJAQJ0MQIFCHNsaXBwYWdlBQZzY2FsZTgDAwkBAiE9AgULY3VyUHJpY2VYMTgFCnplcm9CaWdJbnQJAL8CAgUPc2xpcHBhZ2VSZWFsWDE4BQtzbGlwcGFnZVgxOAcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUPc2xpcHBhZ2VSZWFsWDE4AgMgPiAJAKYDAQULc2xpcHBhZ2VYMTgEDWxwRW1pc3Npb25YMTgJAQJ0MQIFBGxwRW0FBnNjYWxlOAQKcHJWaWFBbVgxOAkAvAIDBQ9pbkFtQXNzZXRBbXRYMTgFC2N1clByaWNlWDE4BQdzY2FsZTE4BAphbVZpYVByWDE4CQC8AgMFD2luUHJBc3NldEFtdFgxOAUHc2NhbGUxOAULY3VyUHJpY2VYMTgEDGV4cGVjdGVkQW10cwMJAL8CAgUKcHJWaWFBbVgxOAUPaW5QckFzc2V0QW10WDE4CQCUCgIFCmFtVmlhUHJYMTgFD2luUHJBc3NldEFtdFgxOAkAlAoCBQ9pbkFtQXNzZXRBbXRYMTgFCnByVmlhQW1YMTgEEWV4cEFtdEFzc2V0QW10WDE4CAUMZXhwZWN0ZWRBbXRzAl8xBBNleHBQcmljZUFzc2V0QW10WDE4CAUMZXhwZWN0ZWRBbXRzAl8yBAhscEFtdFgxOAkAvAIDBQ1scEVtaXNzaW9uWDE4BRNleHBQcmljZUFzc2V0QW10WDE4BQxwckJhbGFuY2VYMTgJAJcKBQkBAmYxAgUIbHBBbXRYMTgFBnNjYWxlOAkBAmYxAgURZXhwQW10QXNzZXRBbXRYMTgFD2RlZmF1bHREZWNpbWFscwkBAmYxAgUTZXhwUHJpY2VBc3NldEFtdFgxOAUPZGVmYXVsdERlY2ltYWxzBQtjdXJQcmljZVgxOAULc2xpcHBhZ2VYMTgECWNhbGNMcEFtdAgFAXICXzEEDmNhbGNBbUFzc2V0UG10CQBrAwgFAXICXzIFBmFtdERjbQUPZGVmYXVsdERlY2ltYWxzBA5jYWxjUHJBc3NldFBtdAkAawMIBQFyAl8zBQhwcmljZURjbQUPZGVmYXVsdERlY2ltYWxzBAhjdXJQcmljZQkBAmYxAggFAXICXzQFBnNjYWxlOAQMc2xpcHBhZ2VDYWxjCQECZjECCAUBcgJfNQUGc2NhbGU4AwkAZwIAAAUJY2FsY0xwQW10CQACAQIHTFAgPD0gMAQJZW1pdExwQW10AwkBASEBBQZlbWl0THAAAAUJY2FsY0xwQW10BAZhbURpZmYJAGUCBQdpbkFtQW10BQ5jYWxjQW1Bc3NldFBtdAQGcHJEaWZmCQBlAgUHaW5QckFtdAUOY2FsY1ByQXNzZXRQbXQEDSR0MDE2NjQ5MTY5OTQDAwUKaXNPbmVBc3NldAkAAAIFBXBtdElkBQdhbUlkU3RyBwkAlAoCBQZwbXRBbXQAAAMDBQppc09uZUFzc2V0CQAAAgUFcG10SWQFB3BySWRTdHIHCQCUCgIAAAUGcG10QW10CQCUCgIFDmNhbGNBbUFzc2V0UG10BQ5jYWxjUHJBc3NldFBtdAQKd3JpdGVBbUFtdAgFDSR0MDE2NjQ5MTY5OTQCXzEECndyaXRlUHJBbXQIBQ0kdDAxNjY0OTE2OTk0Al8yBAtjb21tb25TdGF0ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBsAAUIY3VyUHJpY2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJwaAIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFCGN1clByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQNwYXUCBQt1c2VyQWRkcmVzcwUGdHhJZDU4CQERZGF0YVB1dEFjdGlvbkluZm8KBQp3cml0ZUFtQW10BQp3cml0ZVByQW10BQllbWl0THBBbXQFCGN1clByaWNlBQhzbGlwcGFnZQUMc2xpcHBhZ2VDYWxjBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQZhbURpZmYFBnByRGlmZgUDbmlsCQCfCg0FCWNhbGNMcEFtdAUJZW1pdExwQW10BQhjdXJQcmljZQUJYW1CYWxhbmNlBQlwckJhbGFuY2UFBGxwRW0FBGxwSWQFA3N0cwULY29tbW9uU3RhdGUFBmFtRGlmZgUGcHJEaWZmBQZpbkFtSWQFBmluUHJJZAEDbW9hAQVvcmRlcgQDY2ZnCQEDZ3BjAAQHYW10QXNJZAkAkQMCBQNjZmcFCWlkeEFtQXNJZAQGcHJBc0lkCQCRAwIFA2NmZwUJaWR4UHJBc0lkBANzdHMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFCWlkeFBvb2xTdAQIYW10QXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBAdwckFzRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBA9hY2NBbXRBc0JhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUHYW10QXNJZAQOYWNjUHJBc0JhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUGcHJBc0lkBAtjdXJQcmljZVgxOAMJAAACCAUFb3JkZXIJb3JkZXJUeXBlBQNCdXkJAQNwY3AEBQhhbXRBc0RjbQUHcHJBc0RjbQkAZAIFD2FjY0FtdEFzQmFsYW5jZQgFBW9yZGVyBmFtb3VudAUOYWNjUHJBc0JhbGFuY2UJAQNwY3AEBQhhbXRBc0RjbQUHcHJBc0RjbQkAZQIFD2FjY0FtdEFzQmFsYW5jZQgFBW9yZGVyBmFtb3VudAUOYWNjUHJBc0JhbGFuY2UECGN1clByaWNlCQECZjECBQtjdXJQcmljZVgxOAUGc2NhbGU4AwMDCQEDaWdzAAYJAAACBQNzdHMFDlBvb2xNYXRjaGVyRGlzBgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQACAQINQWRtaW4gYmxvY2tlZAQKb3JBbXRBc3NldAgIBQVvcmRlcglhc3NldFBhaXILYW1vdW50QXNzZXQECm9yQW10QXNTdHIDCQAAAgUKb3JBbXRBc3NldAUEdW5pdAIFV0FWRVMJANgEAQkBBXZhbHVlAQUKb3JBbXRBc3NldAQJb3JQckFzc2V0CAgFBW9yZGVyCWFzc2V0UGFpcgpwcmljZUFzc2V0BAlvclByQXNTdHIDCQAAAgUJb3JQckFzc2V0BQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQlvclByQXNzZXQDAwkBAiE9AgUKb3JBbXRBc1N0cgUHYW10QXNJZAYJAQIhPQIFCW9yUHJBc1N0cgUGcHJBc0lkCQACAQIJV3IgYXNzZXRzBApvcmRlclByaWNlCAUFb3JkZXIFcHJpY2UECHByaWNlRGNtCQBrAwUGc2NhbGU4BQdwckFzRGNtBQhhbXRBc0RjbQQOY2FzdE9yZGVyUHJpY2UJAQJ0cwMFCm9yZGVyUHJpY2UFBnNjYWxlOAUIcHJpY2VEY20EEWlzT3JkZXJQcmljZVZhbGlkAwkAAAIIBQVvcmRlcglvcmRlclR5cGUFA0J1eQkAZwIFCGN1clByaWNlBQ5jYXN0T3JkZXJQcmljZQkAZwIFDmNhc3RPcmRlclByaWNlBQhjdXJQcmljZQYBAmNnAQFpAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIKMSBwbW50IGV4cAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAECnBtdEFzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQGcG10QW10CAUDcG10BmFtb3VudAQBcgkBA2VnbwQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkA2AQBBQpwbXRBc3NldElkBQZwbXRBbXQIBQFpBmNhbGxlcgQIb3V0QW1BbXQIBQFyAl8xBAhvdXRQckFtdAgFAXICXzIEA3N0cwkBDXBhcnNlSW50VmFsdWUBCAUBcgJfOQQFc3RhdGUIBQFyA18xMAMDCQEDaWdzAAYJAAACBQNzdHMFDFBvb2xTaHV0ZG93bgkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFA3N0cwkAlwoFBQhvdXRBbUFtdAUIb3V0UHJBbXQFBnBtdEFtdAUKcG10QXNzZXRJZAUFc3RhdGUBAmNwCQZjYWxsZXIEdHhJZAdhbUFzUG10B3ByQXNQbXQIc2xpcHBhZ2UGZW1pdExwCmlzT25lQXNzZXQGcG10QW10BXBtdElkBAFyCQEDZXBvDAUEdHhJZAUIc2xpcHBhZ2UICQEFdmFsdWUBBQdhbUFzUG10BmFtb3VudAgJAQV2YWx1ZQEFB2FtQXNQbXQHYXNzZXRJZAgJAQV2YWx1ZQEFB3ByQXNQbXQGYW1vdW50CAkBBXZhbHVlAQUHcHJBc1BtdAdhc3NldElkBQZjYWxsZXIHBQZlbWl0THAFCmlzT25lQXNzZXQFBnBtdEFtdAUFcG10SWQEA3N0cwkBDXBhcnNlSW50VmFsdWUBCAUBcgJfOAMDAwkBA2lncwAGCQAAAgUDc3RzBQpQb29sUHV0RGlzBgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQACAQkArAICAghCbG9ja2VkOgkApAMBBQNzdHMFAXIBAW0ABAckbWF0Y2gwCQCiCAEJAQNtcGsAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkA2QQBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECcG0ABAckbWF0Y2gwCQCiCAEJAQRwbXBrAAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJANkEAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAAnBkCQACAQIRUGVybWlzc2lvbiBkZW5pZWQBAm1tAQFpBAckbWF0Y2gwCQEBbQADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCcGsFByRtYXRjaDADCQAAAggFAWkPY2FsbGVyUHVibGljS2V5BQJwawYFAnBkAwkAAQIFByRtYXRjaDACBFVuaXQDCQAAAggFAWkGY2FsbGVyBQR0aGlzBgUCcGQJAAIBAgtNYXRjaCBlcnJvchUBaQELY29uc3RydWN0b3IBAmZjBAFjCQECbW0BBQFpAwkAAAIFAWMFAWMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmZjAAUCZmMFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpzZXRNYW5hZ2VyARdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQQBYwkBAm1tAQUBaQMJAAACBQFjBQFjBAJjbQkA2QQBBRdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQMJAAACBQJjbQUCY20JAMwIAgkBC1N0cmluZ0VudHJ5AgkBBHBtcGsABRdwZW5kaW5nTWFuYWdlclB1YmxpY0tleQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDmNvbmZpcm1NYW5hZ2VyAAQBcAkBAnBtAAQDaHBtAwkBCWlzRGVmaW5lZAEFAXAGCQACAQISTm8gcGVuZGluZyBtYW5hZ2VyAwkAAAIFA2hwbQUDaHBtBANjcG0DCQAAAggFAWkPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQFwBgkAAgECG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQNjcG0FA2NwbQkAzAgCCQELU3RyaW5nRW50cnkCCQEDbXBrAAkA2AQBCQEFdmFsdWUBBQFwCQDMCAIJAQtEZWxldGVFbnRyeQEJAQRwbXBrAAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBA3B1dAIEc2xpcAlhdXRvU3Rha2UEB2ZhY3RDZmcJAQNnZmMABAtzdGFraW5nQ250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHZmFjdENmZwUPaWR4RmFjdFN0YWtDbnRyAgpXciBzdCBhZGRyBAhzbGlwQ250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHZmFjdENmZwUQaWR4RmFjdFNsaXBwQ250cgIKV3Igc2wgYWRkcgMJAGYCAAAFBHNsaXAJAAIBAg5Xcm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQBZQkBAmNwCQkApQgBCAUBaQZjYWxsZXIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAgJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAWkIcGF5bWVudHMAAQUEc2xpcAYHAAACAAQJZW1pdExwQW10CAUBZQJfMgQJbHBBc3NldElkCAUBZQJfNwQFc3RhdGUIBQFlAl85BAZhbURpZmYIBQFlA18xMAQGcHJEaWZmCAUBZQNfMTEEBGFtSWQIBQFlA18xMgQEcHJJZAgFAWUDXzEzBAFyCQD8BwQFA2ZjYQIEZW1pdAkAzAgCBQllbWl0THBBbXQFA25pbAUDbmlsAwkAAAIFAXIFAXIEAmVsBAckbWF0Y2gwBQFyAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEBmxlZ2FjeQUHJG1hdGNoMAkA/AcEBQZsZWdhY3kCBGVtaXQJAMwIAgUJZW1pdExwQW10BQNuaWwFA25pbAUEdW5pdAMJAAACBQJlbAUCZWwEAnNhAwkAZgIFBmFtRGlmZgAACQD8BwQFCHNsaXBDbnRyAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEYW1JZAUGYW1EaWZmBQNuaWwFA25pbAMJAAACBQJzYQUCc2EEAnNwAwkAZgIFBnByRGlmZgAACQD8BwQFCHNsaXBDbnRyAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEcHJJZAUGcHJEaWZmBQNuaWwFA25pbAMJAAACBQJzcAUCc3AECGxwVHJuc2ZyAwUJYXV0b1N0YWtlBAJzcwkA/AcEBQtzdGFraW5nQ250cgIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUJbHBBc3NldElkBQllbWl0THBBbXQFA25pbAMJAAACBQJzcwUCc3MFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCWVtaXRMcEFtdAUJbHBBc3NldElkBQNuaWwJAM4IAgUFc3RhdGUFCGxwVHJuc2ZyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCXB1dE9uZVRrbgULYW1Bc3NldFBhcnQLcHJBc3NldFBhcnQFb3V0THAIc2xpcHBhZ2UJYXV0b1N0YWtlBANjZmcJAQNnZmMABAtzdGFraW5nQ250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUDY2ZnBQ9pZHhGYWN0U3Rha0NudHICCldyIHN0IGFkZHIECHNsaXBDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQNjZmcFEGlkeEZhY3RTbGlwcENudHICCldyIHNsIGFkZHIEB2d3eENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFA2NmZwURaWR4RmFjdEd3eFJld0NudHICC1dyIGd3eCBhZGRyBAdwb29sQ2ZnCQEDZ3BjAAQEYW1JZAkAkQMCBQdwb29sQ2ZnBQlpZHhBbUFzSWQEBHBySWQJAJEDAgUHcG9vbENmZwUJaWR4UHJBc0lkBAVhbURjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Bvb2xDZmcFC2lkeEFtdEFzRGNtBAVwckRjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Bvb2xDZmcFDWlkeFByaWNlQXNEY20EBWFkZG9uCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQNhZGEAAgAEC3VzZXJBZGRyZXNzAwkAAAIFBWFkZG9uCQClCAEIBQFpBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyCAUBaQZjYWxsZXIDAwMDCQBnAgAABQhzbGlwcGFnZQYJAGcCAAAFC2FtQXNzZXRQYXJ0BgkAZwIAAAULcHJBc3NldFBhcnQGCQBnAgAABQVvdXRMcAkAAgECDFdyb25nIHBhcmFtcwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECCzEgcG1udCBleHBkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQKcG10QXNzZXRJZAkA2AQBCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQEC3BtdERlY2ltYWxzCAkBBXZhbHVlAQkA7AcBCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQIZGVjaW1hbHMEBnBtdEFtdAgFA3BtdAZhbW91bnQEFXBtdEFtdERlZmF1bHREZWNpbWFscwkAaQIJAGgCBQZwbXRBbXQFD2RlZmF1bHREZWNpbWFscwkAbAYACgAABQtwbXREZWNpbWFscwAAAAAFBERPV04DCQBmAgCAreIEBRVwbXRBbXREZWZhdWx0RGVjaW1hbHMJAAIBAg1Xcm9uZyBwbXQgYW10BAlhbUJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEYW1JZAQJcHJCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBHBySWQEGGFtQmFsYW5jZURlZmF1bHREZWNpbWFscwkAaQIJAGgCBQlhbUJhbGFuY2UFD2RlZmF1bHREZWNpbWFscwkAbAYACgAABQVhbURjbQAAAAAFBERPV04EGHByQmFsYW5jZURlZmF1bHREZWNpbWFscwkAaQIJAGgCBQlwckJhbGFuY2UFD2RlZmF1bHREZWNpbWFscwkAbAYACgAABQVwckRjbQAAAAAFBERPV04EDSR0MDI2MDI5MjY4MTUDCQAAAgUKcG10QXNzZXRJZAUEYW1JZAMDCQBmAgUVcG10QW10RGVmYXVsdERlY2ltYWxzBRhhbUJhbGFuY2VEZWZhdWx0RGVjaW1hbHMGCQBmAgULYW1Bc3NldFBhcnQFFXBtdEFtdERlZmF1bHREZWNpbWFscwkAAgECFmludmFsaWQgcGF5bWVudCBhbW91bnQJAJgKBgkAZQIFGGFtQmFsYW5jZURlZmF1bHREZWNpbWFscwUVcG10QW10RGVmYXVsdERlY2ltYWxzBRhwckJhbGFuY2VEZWZhdWx0RGVjaW1hbHMJAGUCBRVwbXRBbXREZWZhdWx0RGVjaW1hbHMFC2FtQXNzZXRQYXJ0BQtwckFzc2V0UGFydAAAAAADCQAAAgUKcG10QXNzZXRJZAUEcHJJZAMDCQBmAgUVcG10QW10RGVmYXVsdERlY2ltYWxzBRhwckJhbGFuY2VEZWZhdWx0RGVjaW1hbHMGCQBmAgULcHJBc3NldFBhcnQFFXBtdEFtdERlZmF1bHREZWNpbWFscwkAAgECFmludmFsaWQgcGF5bWVudCBhbW91bnQJAJgKBgUYYW1CYWxhbmNlRGVmYXVsdERlY2ltYWxzCQBlAgUYcHJCYWxhbmNlRGVmYXVsdERlY2ltYWxzBRVwbXRBbXREZWZhdWx0RGVjaW1hbHMAAAAACQBlAgUVcG10QW10RGVmYXVsdERlY2ltYWxzBQtwckFzc2V0UGFydAULYW1Bc3NldFBhcnQJAAIBAhB3cm9uZyBwbXRBc3NldElkBAxhbUJhbGFuY2VOb3cIBQ0kdDAyNjAyOTI2ODE1Al8xBAxwckJhbGFuY2VOb3cIBQ0kdDAyNjAyOTI2ODE1Al8yBAx2aXJ0U3dhcEluQW0IBQ0kdDAyNjAyOTI2ODE1Al8zBA12aXJ0U3dhcE91dFByCAUNJHQwMjYwMjkyNjgxNQJfNAQMdmlydFN3YXBJblByCAUNJHQwMjYwMjkyNjgxNQJfNQQNdmlydFN3YXBPdXRBbQgFDSR0MDI2MDI5MjY4MTUCXzYEAkQwCQD8BwQFB2d3eENudHICBWNhbGNECQDMCAIJAKQDAQUMYW1CYWxhbmNlTm93CQDMCAIJAKQDAQUMcHJCYWxhbmNlTm93CQDMCAIFAUEJAMwIAgUFQW11bHQJAMwIAgUFRGNvbnYFA25pbAUDbmlsBAJEMQkA/AcEBQdnd3hDbnRyAgVjYWxjRAkAzAgCCQCmAwEJALYCAQkAZQIJAGQCBQxhbUJhbGFuY2VOb3cFDHZpcnRTd2FwSW5BbQUNdmlydFN3YXBPdXRBbQkAzAgCCQCmAwEJALYCAQkAZQIJAGQCBQxwckJhbGFuY2VOb3cFDHZpcnRTd2FwSW5QcgUNdmlydFN3YXBPdXRQcgkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQGRDB2c0QxCQECdmQDCQCnAwEJAQNzdHIBBQJEMQkApwMBCQEDc3RyAQUCRDAFCnNsaXBwYWdlNEQDCQAAAgUGRDB2c0QxBQZEMHZzRDEEBmVzdFB1dAkBAmNwCQkApQgBCAUBaQZjYWxsZXIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEYW1JZAULYW1Bc3NldFBhcnQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFBHBySWQFC3ByQXNzZXRQYXJ0BQhzbGlwcGFnZQYGBQZwbXRBbXQFCnBtdEFzc2V0SWQEB2VzdGltTFAIBQZlc3RQdXQCXzIECWxwQXNzZXRJZAgFBmVzdFB1dAJfNwQFc3RhdGUIBQZlc3RQdXQCXzkEBmFtRGlmZggFBmVzdFB1dANfMTAEBnByRGlmZggFBmVzdFB1dANfMTEECWxwQ2FsY1JlcwkBA3ZhZAMJALYCAQUHZXN0aW1MUAkAtgIBBQVvdXRMcAkAtgIBBQhzbGlwcGFnZQQJZW1pdExwQW10CQCgAwEIBQlscENhbGNSZXMCXzIEAWUJAPwHBAUDZmNhAgRlbWl0CQDMCAIFCWVtaXRMcEFtdAUDbmlsBQNuaWwDCQAAAgUBZQUBZQQCZWwEByRtYXRjaDAFAWUDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQGbGVnYWN5BQckbWF0Y2gwCQD8BwQFBmxlZ2FjeQIEZW1pdAkAzAgCBQllbWl0THBBbXQFA25pbAUDbmlsBQR1bml0AwkAAAIFAmVsBQJlbAQCc2EDCQBmAgUGYW1EaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFBGFtSWQFBmFtRGlmZgUDbmlsBQNuaWwDCQAAAgUCc2EFAnNhBAJzcAMJAGYCBQZwckRpZmYAAAkA/AcEBQhzbGlwQ250cgIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEcHJJZAUGcHJEaWZmBQNuaWwFA25pbAMJAAACBQJzcAUCc3AECGxwVHJuc2ZyAwUJYXV0b1N0YWtlBAJzcwkA/AcEBQtzdGFraW5nQ250cgIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUJbHBBc3NldElkBQllbWl0THBBbXQFA25pbAMJAAACBQJzcwUCc3MFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCWVtaXRMcEFtdAUJbHBBc3NldElkBQNuaWwJAM4IAgUFc3RhdGUFCGxwVHJuc2ZyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnB1dEZvckZyZWUBB21heFNscGcDCQBmAgAABQdtYXhTbHBnCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQGZXN0UHV0CQECY3AJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AggJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUBaQhwYXltZW50cwABBQdtYXhTbHBnBwcAAAIACAUGZXN0UHV0Al85AWkBA2dldAAEAXIJAQJjZwEFAWkECW91dEFtdEFtdAgFAXICXzEECG91dFByQW10CAUBcgJfMgQGcG10QW10CAUBcgJfMwQKcG10QXNzZXRJZAgFAXICXzQEBXN0YXRlCAUBcgJfNQQBYgkA/AcEBQNmY2ECBGJ1cm4JAMwIAgUGcG10QW10BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCnBtdEFzc2V0SWQFBnBtdEFtdAUDbmlsAwkAAAIFAWIFAWIFBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCWdldE9uZVRrbgUKZXhjaFJlc3VsdAdub3RVc2VkCW91dEFtb3VudApvdXRBc3NldElkCHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEA2NmZwkBA2dwYwAEBGxwSWQJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEBGFtSWQJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEBHBySWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEBWFtRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQFcHJEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQHZmFjdENmZwkBA2dmYwAEB2d3eENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB2ZhY3RDZmcFEWlkeEZhY3RHd3hSZXdDbnRyAgpXciBzbCBhZGRyBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQFYWRkb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBA2FkYQACAAQLdXNlckFkZHJlc3MDCQAAAgUFYWRkb24JAKUIAQgFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIIBQFpBmNhbGxlcgQGdHhJZDU4CQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQECnBtdEFzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQGcG10QW10CAUDcG10BmFtb3VudAMJAGYCAICU69wDBQZwbXRBbXQJAAIBAg1NaW4gcG10IDEwIExQAwMDCQBmAgAABQhzbGlwcGFnZQYJAGYCAAAFCmV4Y2hSZXN1bHQGCQBmAgAABQlvdXRBbW91bnQJAAIBAgxXcm9uZyBwYXJhbXMDCQECIT0CBQRscElkCQDYBAEFCnBtdEFzc2V0SWQJAAIBAghXcm9uZyBMUAQBcgkBA2VnbwQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkA2AQBBQpwbXRBc3NldElkBQZwbXRBbXQIBQFpBmNhbGxlcgQKZXN0aW1BbUFtdAgFAXICXzEECmVzdGltUHJBbXQIBQFyAl8yBAlhbUJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEYW1JZAQJcHJCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBHBySWQEDSR0MDMxNTk0MzIwNTEDCQAAAgUKb3V0QXNzZXRJZAUEYW1JZAkAmQoHCQBlAgUJYW1CYWxhbmNlBQplc3RpbUFtQW10CQBlAgUJcHJCYWxhbmNlBQplc3RpbVByQW10BQpleGNoUmVzdWx0BQplc3RpbVByQW10AAAAAAkAZAIFCmVzdGltQW1BbXQFCmV4Y2hSZXN1bHQDCQAAAgUKb3V0QXNzZXRJZAUEcHJJZAkAmQoHCQBlAgUJYW1CYWxhbmNlBQplc3RpbUFtQW10CQBlAgUJcHJCYWxhbmNlBQplc3RpbVByQW10AAAAAAUKZXhjaFJlc3VsdAUKZXN0aW1BbUFtdAkAZAIFCmVzdGltUHJBbXQFCmV4Y2hSZXN1bHQJAAIBAhB3cm9uZyBvdXRBc3NldElkBAxhbUJhbGFuY2VOb3cIBQ0kdDAzMTU5NDMyMDUxAl8xBAxwckJhbGFuY2VOb3cIBQ0kdDAzMTU5NDMyMDUxAl8yBAx2aXJ0U3dhcEluQW0IBQ0kdDAzMTU5NDMyMDUxAl8zBA12aXJ0U3dhcE91dFByCAUNJHQwMzE1OTQzMjA1MQJfNAQMdmlydFN3YXBJblByCAUNJHQwMzE1OTQzMjA1MQJfNQQNdmlydFN3YXBPdXRBbQgFDSR0MDMxNTk0MzIwNTECXzYECHRvdGFsR2V0CAUNJHQwMzE1OTQzMjA1MQJfNwMDCQBmAgAABQx2aXJ0U3dhcEluQW0GCQBmAgAABQx2aXJ0U3dhcEluUHIJAAIBAgpXcm9uZyBjYWxjBAJEMAkA/AcEBQdnd3hDbnRyAgVjYWxjRAkAzAgCCQCkAwEFDGFtQmFsYW5jZU5vdwkAzAgCCQCkAwEFDHByQmFsYW5jZU5vdwkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQCRDEJAPwHBAUHZ3d4Q250cgIFY2FsY0QJAMwIAgkApAMBCQBkAgkAZQIFDGFtQmFsYW5jZU5vdwUMdmlydFN3YXBJbkFtBQ12aXJ0U3dhcE91dEFtCQDMCAIJAKQDAQkAZQIJAGQCBQxwckJhbGFuY2VOb3cFDXZpcnRTd2FwT3V0UHIFDHZpcnRTd2FwSW5QcgkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQGRDB2c0QxCQECdmQDCQCnAwEJAQNzdHIBBQJEMQkApwMBCQEDc3RyAQUCRDAFCnNsaXBwYWdlNEQDCQAAAgUGRDB2c0QxBQZEMHZzRDEECGZpbmFsUmVzCQEDdmFkAwkAtgIBBQh0b3RhbEdldAkAtgIBBQlvdXRBbW91bnQJALYCAQUIc2xpcHBhZ2UDCQAAAgUIZmluYWxSZXMFCGZpbmFsUmVzBA0kdDAzMjc1NjMyODYwAwkAAAIFCm91dEFzc2V0SWQFBGFtSWQJAJQKAgkAoAMBCAUIZmluYWxSZXMCXzIAAAkAlAoCAAAJAKADAQgFCGZpbmFsUmVzAl8yBAVvdXRBbQgFDSR0MDMyNzU2MzI4NjACXzEEBW91dFByCAUNJHQwMzI3NTYzMjg2MAJfMgQIY3VyUHJYMTgJAQRjcGJpAgkBAnQxAgUJcHJCYWxhbmNlBQVwckRjbQkBAnQxAgUJYW1CYWxhbmNlBQVhbURjbQQFY3VyUHIJAQJmMQIFCGN1clByWDE4BQZzY2FsZTgEBXN0YXRlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzCQBkAgUFb3V0QW0FBW91dFByAwkAAAIFCm91dEFzc2V0SWQCBVdBVkVTBQR1bml0CQDZBAEFCm91dEFzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBA2dhdQIJAKUIAQULdXNlckFkZHJlc3MFBnR4SWQ1OAkBEWRhdGFHZXRBY3Rpb25JbmZvBgUFb3V0QW0FBW91dFByBQZwbXRBbXQFBWN1clByBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGwABQVjdXJQcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBoAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUFY3VyUHIFA25pbAMJAAACBQVzdGF0ZQUFc3RhdGUEBGJ1cm4JAPwHBAUDZmNhAgRidXJuCQDMCAIFBnBtdEFtdAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQpwbXRBc3NldElkBQZwbXRBbXQFA25pbAMJAAACBQRidXJuBQRidXJuBQVzdGF0ZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQlnZXROb0xlc3MCEm5vTGVzc1RoZW5BbXRBc3NldBRub0xlc3NUaGVuUHJpY2VBc3NldAQBcgkBAmNnAQUBaQQIb3V0QW1BbXQIBQFyAl8xBAhvdXRQckFtdAgFAXICXzIEBnBtdEFtdAgFAXICXzMECnBtdEFzc2V0SWQIBQFyAl80BAVzdGF0ZQgFAXICXzUDCQBmAgUSbm9MZXNzVGhlbkFtdEFzc2V0BQhvdXRBbUFtdAkAAgEJAKwCAgkArAICCQCsAgICCUZhaWxlZDogIAkApAMBBQhvdXRBbUFtdAIDIDwgCQCkAwEFEm5vTGVzc1RoZW5BbXRBc3NldAMJAGYCBRRub0xlc3NUaGVuUHJpY2VBc3NldAUIb3V0UHJBbXQJAAIBCQCsAgIJAKwCAgkArAICAghGYWlsZWQ6IAkApAMBBQhvdXRQckFtdAIDIDwgCQCkAwEFFG5vTGVzc1RoZW5QcmljZUFzc2V0BBRidXJuTFBBc3NldE9uRmFjdG9yeQkA/AcEBQNmY2ECBGJ1cm4JAMwIAgUGcG10QW10BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCnBtdEFzc2V0SWQFBnBtdEFtdAUDbmlsAwkAAAIFFGJ1cm5MUEFzc2V0T25GYWN0b3J5BRRidXJuTFBBc3NldE9uRmFjdG9yeQUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQENdW5zdGFrZUFuZEdldAEGYW1vdW50BA1jaGVja1BheW1lbnRzAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQINTm8gcG1udHMgZXhwZAYDCQAAAgUNY2hlY2tQYXltZW50cwUNY2hlY2tQYXltZW50cwQDY2ZnCQEDZ3BjAAQKZmFjdG9yeUNmZwkBA2dmYwAECWxwQXNzZXRJZAkA2QQBCQCRAwIFA2NmZwUJaWR4TFBBc0lkBAdzdGFraW5nCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQpmYWN0b3J5Q2ZnBQ9pZHhGYWN0U3Rha0NudHICCldyIHN0IGFkZHIECnVuc3Rha2VJbnYJAPwHBAUHc3Rha2luZwIHdW5zdGFrZQkAzAgCCQDYBAEFCWxwQXNzZXRJZAkAzAgCBQZhbW91bnQFA25pbAUDbmlsAwkAAAIFCnVuc3Rha2VJbnYFCnVuc3Rha2VJbnYEAXIJAQNlZ28ECQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJANgEAQUJbHBBc3NldElkBQZhbW91bnQIBQFpBmNhbGxlcgQDc3RzCQENcGFyc2VJbnRWYWx1ZQEIBQFyAl85BAVzdGF0ZQgFAXIDXzEwBAF2AwMJAQNpZ3MABgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQACAQkArAICAglCbG9ja2VkOiAJAKQDAQUDc3RzBgMJAAACBQF2BQF2BAVidXJuQQkA/AcEBQNmY2ECBGJ1cm4JAMwIAgUGYW1vdW50BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCWxwQXNzZXRJZAUGYW1vdW50BQNuaWwDCQAAAgUFYnVybkEFBWJ1cm5BBQVzdGF0ZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhhY3RpdmF0ZQIIYW10QXNTdHIHcHJBc1N0cgMJAQIhPQIJAKUIAQgFAWkGY2FsbGVyCQClCAEFA2ZjYQkAAgECBmRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYQAFCGFtdEFzU3RyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJwYQAFB3ByQXNTdHIFA25pbAIHc3VjY2VzcwFpAQRzZXRTAgFrAXYDCQECIT0CCQClCAEIBQFpBmNhbGxlcgkBBHN0cmYCBQR0aGlzCQEDYWRhAAUCcGQJAMwIAgkBC1N0cmluZ0VudHJ5AgUBawUBdgUDbmlsAWkBBHNldEkCAWsBdgMJAQIhPQIJAKUIAQgFAWkGY2FsbGVyCQEEc3RyZgIFBHRoaXMJAQNhZGEABQJwZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUBawUBdgUDbmlsAWkBHGdldFBvb2xDb25maWdXcmFwcGVyUkVBRE9OTFkACQCUCgIFA25pbAkBA2dwYwABaQEcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQEHYXNzZXRJZAkAlAoCBQNuaWwJAQ1nZXRBY2NCYWxhbmNlAQUHYXNzZXRJZAFpARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwVhbUFtdAVwckFtdAVscEFtdAQCcHIJAQpjYWxjUHJpY2VzAwUFYW1BbXQFBXByQW10BQVscEFtdAkAlAoCBQNuaWwJAMwIAgkApgMBCQCRAwIFAnByAAAJAMwIAgkApgMBCQCRAwIFAnByAAEJAMwIAgkApgMBCQCRAwIFAnByAAIFA25pbAFpARZmcm9tWDE4V3JhcHBlclJFQURPTkxZAgN2YWwMcmVzU2NhbGVNdWx0CQCUCgIFA25pbAkBAmYxAgkApwMBBQN2YWwFDHJlc1NjYWxlTXVsdAFpARR0b1gxOFdyYXBwZXJSRUFET05MWQIHb3JpZ1ZhbA1vcmlnU2NhbGVNdWx0CQCUCgIFA25pbAkApgMBCQECdDECBQdvcmlnVmFsBQ1vcmlnU2NhbGVNdWx0AWkBHmNhbGNQcmljZUJpZ0ludFdyYXBwZXJSRUFET05MWQIIcHJBbXRYMTgIYW1BbXRYMTgJAJQKAgUDbmlsCQCmAwEJAQRjcGJpAgkApwMBBQhwckFtdFgxOAkApwMBBQhhbUFtdFgxOAFpASNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkGdHhJZDU4CHNsaXBwYWdlB2luQW1BbXQGaW5BbUlkB2luUHJBbXQGaW5QcklkB3VzckFkZHIGaXNFdmFsBmVtaXRMcAkAlAoCBQNuaWwJAQNlcG8MBQZ0eElkNTgFCHNsaXBwYWdlBQdpbkFtQW10BQZpbkFtSWQFB2luUHJBbXQFBmluUHJJZAUHdXNyQWRkcgUGaXNFdmFsBQZlbWl0THAHAAACAAFpASNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQQGdHhJZDU4B3BtdEFzSWQIcG10THBBbXQHdXNyQWRkcgQBcgkBA2VnbwQFBnR4SWQ1OAUHcG10QXNJZAUIcG10THBBbXQJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB3VzckFkZHIJAJQKAgUDbmlsCQCcCgoIBQFyAl8xCAUBcgJfMggFAXICXzMIBQFyAl80CAUBcgJfNQgFAXICXzYIBQFyAl83CQCmAwEIBQFyAl84CAUBcgJfOQgFAXIDXzEwAQJ0eAEGdmVyaWZ5AAQPdGFyZ2V0UHVibGljS2V5BAckbWF0Y2gwCQEBbQADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCcGsFByRtYXRjaDAFAnBrAwkAAQIFByRtYXRjaDACBFVuaXQIBQJ0eA9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQHJG1hdGNoMAUCdHgDCQABAgUHJG1hdGNoMAIFT3JkZXIEBW9yZGVyBQckbWF0Y2gwBAptYXRjaGVyUHViCQECbXAABApvcmRlclZhbGlkCQEDbW9hAQUFb3JkZXIEC3NlbmRlclZhbGlkCQD0AwMIBQVvcmRlcglib2R5Qnl0ZXMJAJEDAggFBW9yZGVyBnByb29mcwAACAUFb3JkZXIPc2VuZGVyUHVibGljS2V5BAxtYXRjaGVyVmFsaWQJAPQDAwgFBW9yZGVyCWJvZHlCeXRlcwkAkQMCCAUFb3JkZXIGcHJvb2ZzAAEFCm1hdGNoZXJQdWIDAwMFCm9yZGVyVmFsaWQFC3NlbmRlclZhbGlkBwUMbWF0Y2hlclZhbGlkBwYJAQN0b2UDBQpvcmRlclZhbGlkBQtzZW5kZXJWYWxpZAUMbWF0Y2hlclZhbGlkAwkAAQIFByRtYXRjaDACFFNldFNjcmlwdFRyYW5zYWN0aW9uBAFzBQckbWF0Y2gwBAduZXdIYXNoCQD2AwEJAQV2YWx1ZQEIBQFzBnNjcmlwdAQLYWxsb3dlZEhhc2gJANsEAQkBBXZhbHVlAQkAnQgCBQNmY2EJARxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAAQLY3VycmVudEhhc2gJAPEHAQUEdGhpcwMDCQAAAgULYWxsb3dlZEhhc2gFB25ld0hhc2gJAQIhPQIFC2N1cnJlbnRIYXNoBQduZXdIYXNoBwYJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFD3RhcmdldFB1YmxpY0tleQkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUPdGFyZ2V0UHVibGljS2V5+SmWhw==",
    "height": 2226425,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GUpMxyZQmTczx19YvnwihhixsXw3smudYtE2uzkPhioe
Next: DuTvqn8retCMWKnhW1NZtvcwqtYzGj5DhP5984wfEtrU

Diff: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let defaultDecimals = 1000000
4 + let defaultDecimals = 100000000
5 5  
6 6  let scale8 = 100000000
7 7  
347 347                  else calcLpAmt
348 348              let amDiff = (inAmAmt - calcAmAssetPmt)
349 349              let prDiff = (inPrAmt - calcPrAssetPmt)
350 -             let $t01664716992 = if (if (isOneAsset)
350 +             let $t01664916994 = if (if (isOneAsset)
351 351                  then (pmtId == amIdStr)
352 352                  else false)
353 353                  then $Tuple2(pmtAmt, 0)
356 356                      else false)
357 357                      then $Tuple2(0, pmtAmt)
358 358                      else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
359 -             let writeAmAmt = $t01664716992._1
360 -             let writePrAmt = $t01664716992._2
359 +             let writeAmAmt = $t01664916994._1
360 +             let writePrAmt = $t01664916994._2
361 361              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))]
362 362              $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
363 363              }
619 619                      else {
620 620                          let amBalance = getAccBalance(amId)
621 621                          let prBalance = getAccBalance(prId)
622 -                         let $t02583626532 = if ((pmtAssetId == amId))
623 -                             then if (if ((pmtAmtDefaultDecimals > amBalance))
622 +                         let amBalanceDefaultDecimals = ((amBalance * defaultDecimals) / pow(10, 0, amDcm, 0, 0, DOWN))
623 +                         let prBalanceDefaultDecimals = ((prBalance * defaultDecimals) / pow(10, 0, prDcm, 0, 0, DOWN))
624 +                         let $t02602926815 = if ((pmtAssetId == amId))
625 +                             then if (if ((pmtAmtDefaultDecimals > amBalanceDefaultDecimals))
624 626                                  then true
625 627                                  else (amAssetPart > pmtAmtDefaultDecimals))
626 628                                  then throw("invalid payment amount")
627 -                                 else $Tuple6((amBalance - pmtAmtDefaultDecimals), prBalance, (pmtAmtDefaultDecimals - amAssetPart), prAssetPart, 0, 0)
629 +                                 else $Tuple6((amBalanceDefaultDecimals - pmtAmtDefaultDecimals), prBalanceDefaultDecimals, (pmtAmtDefaultDecimals - amAssetPart), prAssetPart, 0, 0)
628 630                              else if ((pmtAssetId == prId))
629 -                                 then if (if ((pmtAmtDefaultDecimals > prBalance))
631 +                                 then if (if ((pmtAmtDefaultDecimals > prBalanceDefaultDecimals))
630 632                                      then true
631 633                                      else (prAssetPart > pmtAmtDefaultDecimals))
632 634                                      then throw("invalid payment amount")
633 -                                     else $Tuple6(amBalance, (prBalance - pmtAmtDefaultDecimals), 0, 0, (pmtAmtDefaultDecimals - prAssetPart), amAssetPart)
635 +                                     else $Tuple6(amBalanceDefaultDecimals, (prBalanceDefaultDecimals - pmtAmtDefaultDecimals), 0, 0, (pmtAmtDefaultDecimals - prAssetPart), amAssetPart)
634 636                                  else throw("wrong pmtAssetId")
635 -                         let amBalanceNow = $t02583626532._1
636 -                         let prBalanceNow = $t02583626532._2
637 -                         let virtSwapInAm = $t02583626532._3
638 -                         let virtSwapOutPr = $t02583626532._4
639 -                         let virtSwapInPr = $t02583626532._5
640 -                         let virtSwapOutAm = $t02583626532._6
637 +                         let amBalanceNow = $t02602926815._1
638 +                         let prBalanceNow = $t02602926815._2
639 +                         let virtSwapInAm = $t02602926815._3
640 +                         let virtSwapOutPr = $t02602926815._4
641 +                         let virtSwapInPr = $t02602926815._5
642 +                         let virtSwapOutAm = $t02602926815._6
641 643                          let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
642 644                          let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
643 645                          let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
762 764                          let estimPrAmt = r._2
763 765                          let amBalance = getAccBalance(amId)
764 766                          let prBalance = getAccBalance(prId)
765 -                         let $t03131131768 = if ((outAssetId == amId))
767 +                         let $t03159432051 = if ((outAssetId == amId))
766 768                              then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
767 769                              else if ((outAssetId == prId))
768 770                                  then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
769 771                                  else throw("wrong outAssetId")
770 -                         let amBalanceNow = $t03131131768._1
771 -                         let prBalanceNow = $t03131131768._2
772 -                         let virtSwapInAm = $t03131131768._3
773 -                         let virtSwapOutPr = $t03131131768._4
774 -                         let virtSwapInPr = $t03131131768._5
775 -                         let virtSwapOutAm = $t03131131768._6
776 -                         let totalGet = $t03131131768._7
772 +                         let amBalanceNow = $t03159432051._1
773 +                         let prBalanceNow = $t03159432051._2
774 +                         let virtSwapInAm = $t03159432051._3
775 +                         let virtSwapOutPr = $t03159432051._4
776 +                         let virtSwapInPr = $t03159432051._5
777 +                         let virtSwapOutAm = $t03159432051._6
778 +                         let totalGet = $t03159432051._7
777 779                          if (if ((0 > virtSwapInAm))
778 780                              then true
779 781                              else (0 > virtSwapInPr))
787 789                                          let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
788 790                                          if ((finalRes == finalRes))
789 791                                              then {
790 -                                                 let $t03247332577 = if ((outAssetId == amId))
792 +                                                 let $t03275632860 = if ((outAssetId == amId))
791 793                                                      then $Tuple2(toInt(finalRes._2), 0)
792 794                                                      else $Tuple2(0, toInt(finalRes._2))
793 -                                                 let outAm = $t03247332577._1
794 -                                                 let outPr = $t03247332577._2
795 +                                                 let outAm = $t03275632860._1
796 +                                                 let outPr = $t03275632860._2
795 797                                                  let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
796 798                                                  let curPr = f1(curPrX18, scale8)
797 799                                                  let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let defaultDecimals = 1000000
4 + let defaultDecimals = 100000000
5 5  
6 6  let scale8 = 100000000
7 7  
8 8  let scale8BigInt = toBigInt(100000000)
9 9  
10 10  let scale18 = toBigInt(1000000000000000000)
11 11  
12 12  let zeroBigInt = toBigInt(0)
13 13  
14 14  let oneBigInt = toBigInt(1)
15 15  
16 16  let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
17 17  
18 18  let Amult = "100"
19 19  
20 20  let Dconv = "1"
21 21  
22 22  let SEP = "__"
23 23  
24 24  let EMPTY = ""
25 25  
26 26  let PoolActive = 1
27 27  
28 28  let PoolPutDis = 2
29 29  
30 30  let PoolMatcherDis = 3
31 31  
32 32  let PoolShutdown = 4
33 33  
34 34  let idxPoolAddress = 1
35 35  
36 36  let idxPoolSt = 2
37 37  
38 38  let idxLPAsId = 3
39 39  
40 40  let idxAmAsId = 4
41 41  
42 42  let idxPrAsId = 5
43 43  
44 44  let idxAmtAsDcm = 6
45 45  
46 46  let idxPriceAsDcm = 7
47 47  
48 48  let idxIAmtAsId = 8
49 49  
50 50  let idxIPriceAsId = 9
51 51  
52 52  let idxFactStakCntr = 1
53 53  
54 54  let idxFactSlippCntr = 7
55 55  
56 56  let idxFactGwxRewCntr = 10
57 57  
58 58  let delay = "%s__delay"
59 59  
60 60  func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
61 61  
62 62  
63 63  func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
64 64  
65 65  
66 66  func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
67 67  
68 68  
69 69  func abs (val) = if ((zeroBigInt > val))
70 70      then -(val)
71 71      else val
72 72  
73 73  
74 74  func fc () = "%s__factoryContract"
75 75  
76 76  
77 77  func mpk () = "%s__managerPublicKey"
78 78  
79 79  
80 80  func pmpk () = "%s__pendingManagerPublicKey"
81 81  
82 82  
83 83  func pl () = "%s%s__price__last"
84 84  
85 85  
86 86  func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
87 87  
88 88  
89 89  func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
90 90  
91 91  
92 92  func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
93 93  
94 94  
95 95  func aa () = "%s__amountAsset"
96 96  
97 97  
98 98  func pa () = "%s__priceAsset"
99 99  
100 100  
101 101  func amp () = "%s__amp"
102 102  
103 103  
104 104  func ada () = "%s__addonAddr"
105 105  
106 106  
107 107  func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
108 108  
109 109  
110 110  func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
111 111  
112 112  
113 113  func fcfg () = "%s__factoryConfig"
114 114  
115 115  
116 116  func mtpk () = "%s%s__matcher__publicKey"
117 117  
118 118  
119 119  func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
120 120  
121 121  
122 122  func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
123 123  
124 124  
125 125  func aps () = "%s__shutdown"
126 126  
127 127  
128 128  func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
129 129  
130 130  
131 131  func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
132 132  
133 133  
134 134  func str (val) = match val {
135 135      case valStr: String => 
136 136          valStr
137 137      case _ => 
138 138          throw("fail cast to String")
139 139  }
140 140  
141 141  
142 142  func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
143 143  
144 144  
145 145  func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
146 146  
147 147  
148 148  let fca = addressFromStringValue(strf(this, fc()))
149 149  
150 150  let A = strf(this, amp())
151 151  
152 152  func igs () = valueOrElse(getBoolean(fca, aps()), false)
153 153  
154 154  
155 155  func mp () = fromBase58String(strf(fca, mtpk()))
156 156  
157 157  
158 158  func gpc () = {
159 159      let amtAs = strf(this, aa())
160 160      let priceAs = strf(this, pa())
161 161      let iPriceAs = intf(fca, mba(priceAs))
162 162      let iAmtAs = intf(fca, mba(amtAs))
163 163      split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
164 164      }
165 165  
166 166  
167 167  func gfc () = split(strf(fca, fcfg()), SEP)
168 168  
169 169  
170 170  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)
171 171  
172 172  
173 173  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)
174 174  
175 175  
176 176  func getAccBalance (assetId) = if ((assetId == "WAVES"))
177 177      then wavesBalance(this).available
178 178      else assetBalance(this, fromBase58String(assetId))
179 179  
180 180  
181 181  func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
182 182  
183 183  
184 184  func vad (A1,A2,slippage) = {
185 185      let diff = fraction((A1 - A2), scale8BigInt, A2)
186 186      let pass = ((slippage - abs(diff)) > zeroBigInt)
187 187      if (!(pass))
188 188          then throw(("Big slpg: " + toString(diff)))
189 189          else $Tuple2(pass, min([A1, A2]))
190 190      }
191 191  
192 192  
193 193  func vd (D1,D0,slpg) = {
194 194      let diff = fraction(D0, scale8BigInt, D1)
195 195      let fail = (slpg > diff)
196 196      if (if (fail)
197 197          then true
198 198          else (D0 > D1))
199 199          then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
200 200          else fail
201 201      }
202 202  
203 203  
204 204  func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
205 205      let amtAsAmtX18 = t1(amAmt, amAssetDcm)
206 206      let prAsAmtX18 = t1(prAmt, prAssetDcm)
207 207      cpbi(prAsAmtX18, amtAsAmtX18)
208 208      }
209 209  
210 210  
211 211  func calcPrices (amAmt,prAmt,lpAmt) = {
212 212      let cfg = gpc()
213 213      let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
214 214      let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
215 215      let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
216 216      let amAmtX18 = t1(amAmt, amtAsDcm)
217 217      let prAmtX18 = t1(prAmt, prAsDcm)
218 218      let lpAmtX18 = t1(lpAmt, scale8)
219 219      let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
220 220      let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
221 221  [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
222 222      }
223 223  
224 224  
225 225  func calculatePrices (amAmt,prAmt,lpAmt) = {
226 226      let p = calcPrices(amAmt, prAmt, lpAmt)
227 227  [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
228 228      }
229 229  
230 230  
231 231  func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
232 232      let cfg = gpc()
233 233      let lpId = cfg[idxLPAsId]
234 234      let amId = cfg[idxAmAsId]
235 235      let prId = cfg[idxPrAsId]
236 236      let amDcm = parseIntValue(cfg[idxAmtAsDcm])
237 237      let prDcm = parseIntValue(cfg[idxPriceAsDcm])
238 238      let sts = cfg[idxPoolSt]
239 239      let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
240 240      if ((lpId != pmtAssetId))
241 241          then throw("Wrong pmt asset")
242 242          else {
243 243              let amBalance = getAccBalance(amId)
244 244              let prBalance = getAccBalance(prId)
245 245              let amountBalanceDefaultDecimals = fraction(amBalance, defaultDecimals, amDcm)
246 246              let priceBalanceDefaultDecimals = fraction(prBalance, defaultDecimals, prDcm)
247 247              let amBalanceX18 = t1(amountBalanceDefaultDecimals, defaultDecimals)
248 248              let prBalanceX18 = t1(priceBalanceDefaultDecimals, defaultDecimals)
249 249              let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
250 250              let curPrice = f1(curPriceX18, scale8)
251 251              let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
252 252              let lpEmissX18 = t1(lpEmiss, scale8)
253 253              let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
254 254              let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
255 255              let outAmountAmountDefaultDecimals = f1(outAmAmtX18, defaultDecimals)
256 256              let outPriceAmountDefaultDecimals = f1(outPrAmtX18, defaultDecimals)
257 257              let outAmAmt = fraction(outAmountAmountDefaultDecimals, amDcm, defaultDecimals)
258 258              let outPrAmt = fraction(outPriceAmountDefaultDecimals, prDcm, defaultDecimals)
259 259              let state = if ((txId58 == ""))
260 260                  then nil
261 261                  else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
262 262                      then unit
263 263                      else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
264 264                      then unit
265 265                      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)]
266 266              $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
267 267              }
268 268      }
269 269  
270 270  
271 271  func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
272 272      let cfg = gpc()
273 273      let lpId = fromBase58String(cfg[idxLPAsId])
274 274      let amIdStr = cfg[idxAmAsId]
275 275      let prIdStr = cfg[idxPrAsId]
276 276      let inAmIdStr = cfg[idxIAmtAsId]
277 277      let inPrIdStr = cfg[idxIPriceAsId]
278 278      let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
279 279      let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
280 280      let sts = cfg[idxPoolSt]
281 281      let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
282 282      let amBalance = if (isEval)
283 283          then getAccBalance(amIdStr)
284 284          else if (if (isOneAsset)
285 285              then (pmtId == amIdStr)
286 286              else false)
287 287              then (getAccBalance(amIdStr) - pmtAmt)
288 288              else if (isOneAsset)
289 289                  then getAccBalance(amIdStr)
290 290                  else (getAccBalance(amIdStr) - inAmAmt)
291 291      let prBalance = if (isEval)
292 292          then getAccBalance(prIdStr)
293 293          else if (if (isOneAsset)
294 294              then (pmtId == prIdStr)
295 295              else false)
296 296              then (getAccBalance(prIdStr) - pmtAmt)
297 297              else if (isOneAsset)
298 298                  then getAccBalance(prIdStr)
299 299                  else (getAccBalance(prIdStr) - inPrAmt)
300 300      let amountBalanceDefaultDecimals = fraction(amBalance, defaultDecimals, amtDcm)
301 301      let priceBalanceDefaultDecimals = fraction(prBalance, defaultDecimals, priceDcm)
302 302      let inAmountAssetAmountDefaultDecimals = fraction(inAmAmt, defaultDecimals, amtDcm)
303 303      let inPriceAssetAmountDefaultDecimals = fraction(inPrAmt, defaultDecimals, priceDcm)
304 304      let inAmAssetAmtX18 = t1(inAmountAssetAmountDefaultDecimals, defaultDecimals)
305 305      let inPrAssetAmtX18 = t1(inPriceAssetAmountDefaultDecimals, defaultDecimals)
306 306      let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
307 307      let amBalanceX18 = t1(amountBalanceDefaultDecimals, defaultDecimals)
308 308      let prBalanceX18 = t1(priceBalanceDefaultDecimals, defaultDecimals)
309 309      let r = if ((lpEm == 0))
310 310          then {
311 311              let curPriceX18 = zeroBigInt
312 312              let slippageX18 = zeroBigInt
313 313              let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
314 314              $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, defaultDecimals), f1(inPrAssetAmtX18, defaultDecimals), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
315 315              }
316 316          else {
317 317              let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
318 318              let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
319 319              let slippageX18 = t1(slippage, scale8)
320 320              if (if ((curPriceX18 != zeroBigInt))
321 321                  then (slippageRealX18 > slippageX18)
322 322                  else false)
323 323                  then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
324 324                  else {
325 325                      let lpEmissionX18 = t1(lpEm, scale8)
326 326                      let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
327 327                      let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
328 328                      let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
329 329                          then $Tuple2(amViaPrX18, inPrAssetAmtX18)
330 330                          else $Tuple2(inAmAssetAmtX18, prViaAmX18)
331 331                      let expAmtAssetAmtX18 = expectedAmts._1
332 332                      let expPriceAssetAmtX18 = expectedAmts._2
333 333                      let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
334 334                      $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, defaultDecimals), f1(expPriceAssetAmtX18, defaultDecimals), curPriceX18, slippageX18)
335 335                      }
336 336              }
337 337      let calcLpAmt = r._1
338 338      let calcAmAssetPmt = fraction(r._2, amtDcm, defaultDecimals)
339 339      let calcPrAssetPmt = fraction(r._3, priceDcm, defaultDecimals)
340 340      let curPrice = f1(r._4, scale8)
341 341      let slippageCalc = f1(r._5, scale8)
342 342      if ((0 >= calcLpAmt))
343 343          then throw("LP <= 0")
344 344          else {
345 345              let emitLpAmt = if (!(emitLp))
346 346                  then 0
347 347                  else calcLpAmt
348 348              let amDiff = (inAmAmt - calcAmAssetPmt)
349 349              let prDiff = (inPrAmt - calcPrAssetPmt)
350 -             let $t01664716992 = if (if (isOneAsset)
350 +             let $t01664916994 = if (if (isOneAsset)
351 351                  then (pmtId == amIdStr)
352 352                  else false)
353 353                  then $Tuple2(pmtAmt, 0)
354 354                  else if (if (isOneAsset)
355 355                      then (pmtId == prIdStr)
356 356                      else false)
357 357                      then $Tuple2(0, pmtAmt)
358 358                      else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
359 -             let writeAmAmt = $t01664716992._1
360 -             let writePrAmt = $t01664716992._2
359 +             let writeAmAmt = $t01664916994._1
360 +             let writePrAmt = $t01664916994._2
361 361              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))]
362 362              $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
363 363              }
364 364      }
365 365  
366 366  
367 367  func moa (order) = {
368 368      let cfg = gpc()
369 369      let amtAsId = cfg[idxAmAsId]
370 370      let prAsId = cfg[idxPrAsId]
371 371      let sts = parseIntValue(cfg[idxPoolSt])
372 372      let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
373 373      let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
374 374      let accAmtAsBalance = getAccBalance(amtAsId)
375 375      let accPrAsBalance = getAccBalance(prAsId)
376 376      let curPriceX18 = if ((order.orderType == Buy))
377 377          then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
378 378          else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
379 379      let curPrice = f1(curPriceX18, scale8)
380 380      if (if (if (igs())
381 381          then true
382 382          else (sts == PoolMatcherDis))
383 383          then true
384 384          else (sts == PoolShutdown))
385 385          then throw("Admin blocked")
386 386          else {
387 387              let orAmtAsset = order.assetPair.amountAsset
388 388              let orAmtAsStr = if ((orAmtAsset == unit))
389 389                  then "WAVES"
390 390                  else toBase58String(value(orAmtAsset))
391 391              let orPrAsset = order.assetPair.priceAsset
392 392              let orPrAsStr = if ((orPrAsset == unit))
393 393                  then "WAVES"
394 394                  else toBase58String(value(orPrAsset))
395 395              if (if ((orAmtAsStr != amtAsId))
396 396                  then true
397 397                  else (orPrAsStr != prAsId))
398 398                  then throw("Wr assets")
399 399                  else {
400 400                      let orderPrice = order.price
401 401                      let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
402 402                      let castOrderPrice = ts(orderPrice, scale8, priceDcm)
403 403                      let isOrderPriceValid = if ((order.orderType == Buy))
404 404                          then (curPrice >= castOrderPrice)
405 405                          else (castOrderPrice >= curPrice)
406 406                      true
407 407                      }
408 408              }
409 409      }
410 410  
411 411  
412 412  func cg (i) = if ((size(i.payments) != 1))
413 413      then throw("1 pmnt exp")
414 414      else {
415 415          let pmt = value(i.payments[0])
416 416          let pmtAssetId = value(pmt.assetId)
417 417          let pmtAmt = pmt.amount
418 418          let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
419 419          let outAmAmt = r._1
420 420          let outPrAmt = r._2
421 421          let sts = parseIntValue(r._9)
422 422          let state = r._10
423 423          if (if (igs())
424 424              then true
425 425              else (sts == PoolShutdown))
426 426              then throw(("Admin blocked: " + toString(sts)))
427 427              else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
428 428          }
429 429  
430 430  
431 431  func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
432 432      let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
433 433      let sts = parseIntValue(r._8)
434 434      if (if (if (igs())
435 435          then true
436 436          else (sts == PoolPutDis))
437 437          then true
438 438          else (sts == PoolShutdown))
439 439          then throw(("Blocked:" + toString(sts)))
440 440          else r
441 441      }
442 442  
443 443  
444 444  func m () = match getString(mpk()) {
445 445      case s: String => 
446 446          fromBase58String(s)
447 447      case _: Unit => 
448 448          unit
449 449      case _ => 
450 450          throw("Match error")
451 451  }
452 452  
453 453  
454 454  func pm () = match getString(pmpk()) {
455 455      case s: String => 
456 456          fromBase58String(s)
457 457      case _: Unit => 
458 458          unit
459 459      case _ => 
460 460          throw("Match error")
461 461  }
462 462  
463 463  
464 464  let pd = throw("Permission denied")
465 465  
466 466  func mm (i) = match m() {
467 467      case pk: ByteVector => 
468 468          if ((i.callerPublicKey == pk))
469 469              then true
470 470              else pd
471 471      case _: Unit => 
472 472          if ((i.caller == this))
473 473              then true
474 474              else pd
475 475      case _ => 
476 476          throw("Match error")
477 477  }
478 478  
479 479  
480 480  @Callable(i)
481 481  func constructor (fc) = {
482 482      let c = mm(i)
483 483      if ((c == c))
484 484          then [StringEntry(fc(), fc)]
485 485          else throw("Strict value is not equal to itself.")
486 486      }
487 487  
488 488  
489 489  
490 490  @Callable(i)
491 491  func setManager (pendingManagerPublicKey) = {
492 492      let c = mm(i)
493 493      if ((c == c))
494 494          then {
495 495              let cm = fromBase58String(pendingManagerPublicKey)
496 496              if ((cm == cm))
497 497                  then [StringEntry(pmpk(), pendingManagerPublicKey)]
498 498                  else throw("Strict value is not equal to itself.")
499 499              }
500 500          else throw("Strict value is not equal to itself.")
501 501      }
502 502  
503 503  
504 504  
505 505  @Callable(i)
506 506  func confirmManager () = {
507 507      let p = pm()
508 508      let hpm = if (isDefined(p))
509 509          then true
510 510          else throw("No pending manager")
511 511      if ((hpm == hpm))
512 512          then {
513 513              let cpm = if ((i.callerPublicKey == value(p)))
514 514                  then true
515 515                  else throw("You are not pending manager")
516 516              if ((cpm == cpm))
517 517                  then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
518 518                  else throw("Strict value is not equal to itself.")
519 519              }
520 520          else throw("Strict value is not equal to itself.")
521 521      }
522 522  
523 523  
524 524  
525 525  @Callable(i)
526 526  func put (slip,autoStake) = {
527 527      let factCfg = gfc()
528 528      let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
529 529      let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
530 530      if ((0 > slip))
531 531          then throw("Wrong slippage")
532 532          else if ((size(i.payments) != 2))
533 533              then throw("2 pmnts expd")
534 534              else {
535 535                  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, "")
536 536                  let emitLpAmt = e._2
537 537                  let lpAssetId = e._7
538 538                  let state = e._9
539 539                  let amDiff = e._10
540 540                  let prDiff = e._11
541 541                  let amId = e._12
542 542                  let prId = e._13
543 543                  let r = invoke(fca, "emit", [emitLpAmt], nil)
544 544                  if ((r == r))
545 545                      then {
546 546                          let el =                         match r {
547 547                              case legacy: Address => 
548 548                                  invoke(legacy, "emit", [emitLpAmt], nil)
549 549                              case _ => 
550 550                                  unit
551 551                          }
552 552                          if ((el == el))
553 553                              then {
554 554                                  let sa = if ((amDiff > 0))
555 555                                      then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
556 556                                      else nil
557 557                                  if ((sa == sa))
558 558                                      then {
559 559                                          let sp = if ((prDiff > 0))
560 560                                              then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
561 561                                              else nil
562 562                                          if ((sp == sp))
563 563                                              then {
564 564                                                  let lpTrnsfr = if (autoStake)
565 565                                                      then {
566 566                                                          let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
567 567                                                          if ((ss == ss))
568 568                                                              then nil
569 569                                                              else throw("Strict value is not equal to itself.")
570 570                                                          }
571 571                                                      else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
572 572                                                  (state ++ lpTrnsfr)
573 573                                                  }
574 574                                              else throw("Strict value is not equal to itself.")
575 575                                          }
576 576                                      else throw("Strict value is not equal to itself.")
577 577                                  }
578 578                              else throw("Strict value is not equal to itself.")
579 579                          }
580 580                      else throw("Strict value is not equal to itself.")
581 581                  }
582 582      }
583 583  
584 584  
585 585  
586 586  @Callable(i)
587 587  func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
588 588      let cfg = gfc()
589 589      let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
590 590      let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
591 591      let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
592 592      let poolCfg = gpc()
593 593      let amId = poolCfg[idxAmAsId]
594 594      let prId = poolCfg[idxPrAsId]
595 595      let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
596 596      let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
597 597      let addon = valueOrElse(getString(this, ada()), "")
598 598      let userAddress = if ((addon == toString(i.caller)))
599 599          then i.originCaller
600 600          else i.caller
601 601      if (if (if (if ((0 >= slippage))
602 602          then true
603 603          else (0 >= amAssetPart))
604 604          then true
605 605          else (0 >= prAssetPart))
606 606          then true
607 607          else (0 >= outLp))
608 608          then throw("Wrong params")
609 609          else if ((size(i.payments) != 1))
610 610              then throw("1 pmnt expd")
611 611              else {
612 612                  let pmt = value(i.payments[0])
613 613                  let pmtAssetId = toBase58String(value(pmt.assetId))
614 614                  let pmtDecimals = value(assetInfo(value(i.payments[0].assetId))).decimals
615 615                  let pmtAmt = pmt.amount
616 616                  let pmtAmtDefaultDecimals = ((pmtAmt * defaultDecimals) / pow(10, 0, pmtDecimals, 0, 0, DOWN))
617 617                  if ((10000000 > pmtAmtDefaultDecimals))
618 618                      then throw("Wrong pmt amt")
619 619                      else {
620 620                          let amBalance = getAccBalance(amId)
621 621                          let prBalance = getAccBalance(prId)
622 -                         let $t02583626532 = if ((pmtAssetId == amId))
623 -                             then if (if ((pmtAmtDefaultDecimals > amBalance))
622 +                         let amBalanceDefaultDecimals = ((amBalance * defaultDecimals) / pow(10, 0, amDcm, 0, 0, DOWN))
623 +                         let prBalanceDefaultDecimals = ((prBalance * defaultDecimals) / pow(10, 0, prDcm, 0, 0, DOWN))
624 +                         let $t02602926815 = if ((pmtAssetId == amId))
625 +                             then if (if ((pmtAmtDefaultDecimals > amBalanceDefaultDecimals))
624 626                                  then true
625 627                                  else (amAssetPart > pmtAmtDefaultDecimals))
626 628                                  then throw("invalid payment amount")
627 -                                 else $Tuple6((amBalance - pmtAmtDefaultDecimals), prBalance, (pmtAmtDefaultDecimals - amAssetPart), prAssetPart, 0, 0)
629 +                                 else $Tuple6((amBalanceDefaultDecimals - pmtAmtDefaultDecimals), prBalanceDefaultDecimals, (pmtAmtDefaultDecimals - amAssetPart), prAssetPart, 0, 0)
628 630                              else if ((pmtAssetId == prId))
629 -                                 then if (if ((pmtAmtDefaultDecimals > prBalance))
631 +                                 then if (if ((pmtAmtDefaultDecimals > prBalanceDefaultDecimals))
630 632                                      then true
631 633                                      else (prAssetPart > pmtAmtDefaultDecimals))
632 634                                      then throw("invalid payment amount")
633 -                                     else $Tuple6(amBalance, (prBalance - pmtAmtDefaultDecimals), 0, 0, (pmtAmtDefaultDecimals - prAssetPart), amAssetPart)
635 +                                     else $Tuple6(amBalanceDefaultDecimals, (prBalanceDefaultDecimals - pmtAmtDefaultDecimals), 0, 0, (pmtAmtDefaultDecimals - prAssetPart), amAssetPart)
634 636                                  else throw("wrong pmtAssetId")
635 -                         let amBalanceNow = $t02583626532._1
636 -                         let prBalanceNow = $t02583626532._2
637 -                         let virtSwapInAm = $t02583626532._3
638 -                         let virtSwapOutPr = $t02583626532._4
639 -                         let virtSwapInPr = $t02583626532._5
640 -                         let virtSwapOutAm = $t02583626532._6
637 +                         let amBalanceNow = $t02602926815._1
638 +                         let prBalanceNow = $t02602926815._2
639 +                         let virtSwapInAm = $t02602926815._3
640 +                         let virtSwapOutPr = $t02602926815._4
641 +                         let virtSwapInPr = $t02602926815._5
642 +                         let virtSwapOutAm = $t02602926815._6
641 643                          let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
642 644                          let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
643 645                          let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
644 646                          if ((D0vsD1 == D0vsD1))
645 647                              then {
646 648                                  let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
647 649                                  let estimLP = estPut._2
648 650                                  let lpAssetId = estPut._7
649 651                                  let state = estPut._9
650 652                                  let amDiff = estPut._10
651 653                                  let prDiff = estPut._11
652 654                                  let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
653 655                                  let emitLpAmt = toInt(lpCalcRes._2)
654 656                                  let e = invoke(fca, "emit", [emitLpAmt], nil)
655 657                                  if ((e == e))
656 658                                      then {
657 659                                          let el =                                         match e {
658 660                                              case legacy: Address => 
659 661                                                  invoke(legacy, "emit", [emitLpAmt], nil)
660 662                                              case _ => 
661 663                                                  unit
662 664                                          }
663 665                                          if ((el == el))
664 666                                              then {
665 667                                                  let sa = if ((amDiff > 0))
666 668                                                      then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
667 669                                                      else nil
668 670                                                  if ((sa == sa))
669 671                                                      then {
670 672                                                          let sp = if ((prDiff > 0))
671 673                                                              then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
672 674                                                              else nil
673 675                                                          if ((sp == sp))
674 676                                                              then {
675 677                                                                  let lpTrnsfr = if (autoStake)
676 678                                                                      then {
677 679                                                                          let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
678 680                                                                          if ((ss == ss))
679 681                                                                              then nil
680 682                                                                              else throw("Strict value is not equal to itself.")
681 683                                                                          }
682 684                                                                      else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
683 685                                                                  (state ++ lpTrnsfr)
684 686                                                                  }
685 687                                                              else throw("Strict value is not equal to itself.")
686 688                                                          }
687 689                                                      else throw("Strict value is not equal to itself.")
688 690                                                  }
689 691                                              else throw("Strict value is not equal to itself.")
690 692                                          }
691 693                                      else throw("Strict value is not equal to itself.")
692 694                                  }
693 695                              else throw("Strict value is not equal to itself.")
694 696                          }
695 697                  }
696 698      }
697 699  
698 700  
699 701  
700 702  @Callable(i)
701 703  func putForFree (maxSlpg) = if ((0 > maxSlpg))
702 704      then throw("Wrong slpg")
703 705      else if ((size(i.payments) != 2))
704 706          then throw("2 pmnts expd")
705 707          else {
706 708              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, "")
707 709              estPut._9
708 710              }
709 711  
710 712  
711 713  
712 714  @Callable(i)
713 715  func get () = {
714 716      let r = cg(i)
715 717      let outAmtAmt = r._1
716 718      let outPrAmt = r._2
717 719      let pmtAmt = r._3
718 720      let pmtAssetId = r._4
719 721      let state = r._5
720 722      let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
721 723      if ((b == b))
722 724          then state
723 725          else throw("Strict value is not equal to itself.")
724 726      }
725 727  
726 728  
727 729  
728 730  @Callable(i)
729 731  func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
730 732      then throw("1 pmnt expd")
731 733      else {
732 734          let cfg = gpc()
733 735          let lpId = cfg[idxLPAsId]
734 736          let amId = cfg[idxAmAsId]
735 737          let prId = cfg[idxPrAsId]
736 738          let amDcm = parseIntValue(cfg[idxAmtAsDcm])
737 739          let prDcm = parseIntValue(cfg[idxPriceAsDcm])
738 740          let sts = cfg[idxPoolSt]
739 741          let factCfg = gfc()
740 742          let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
741 743          let pmt = value(i.payments[0])
742 744          let addon = valueOrElse(getString(this, ada()), "")
743 745          let userAddress = if ((addon == toString(i.caller)))
744 746              then i.originCaller
745 747              else i.caller
746 748          let txId58 = toBase58String(i.transactionId)
747 749          let pmtAssetId = value(pmt.assetId)
748 750          let pmtAmt = pmt.amount
749 751          if ((1000000000 > pmtAmt))
750 752              then throw("Min pmt 10 LP")
751 753              else if (if (if ((0 > slippage))
752 754                  then true
753 755                  else (0 > exchResult))
754 756                  then true
755 757                  else (0 > outAmount))
756 758                  then throw("Wrong params")
757 759                  else if ((lpId != toBase58String(pmtAssetId)))
758 760                      then throw("Wrong LP")
759 761                      else {
760 762                          let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
761 763                          let estimAmAmt = r._1
762 764                          let estimPrAmt = r._2
763 765                          let amBalance = getAccBalance(amId)
764 766                          let prBalance = getAccBalance(prId)
765 -                         let $t03131131768 = if ((outAssetId == amId))
767 +                         let $t03159432051 = if ((outAssetId == amId))
766 768                              then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
767 769                              else if ((outAssetId == prId))
768 770                                  then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
769 771                                  else throw("wrong outAssetId")
770 -                         let amBalanceNow = $t03131131768._1
771 -                         let prBalanceNow = $t03131131768._2
772 -                         let virtSwapInAm = $t03131131768._3
773 -                         let virtSwapOutPr = $t03131131768._4
774 -                         let virtSwapInPr = $t03131131768._5
775 -                         let virtSwapOutAm = $t03131131768._6
776 -                         let totalGet = $t03131131768._7
772 +                         let amBalanceNow = $t03159432051._1
773 +                         let prBalanceNow = $t03159432051._2
774 +                         let virtSwapInAm = $t03159432051._3
775 +                         let virtSwapOutPr = $t03159432051._4
776 +                         let virtSwapInPr = $t03159432051._5
777 +                         let virtSwapOutAm = $t03159432051._6
778 +                         let totalGet = $t03159432051._7
777 779                          if (if ((0 > virtSwapInAm))
778 780                              then true
779 781                              else (0 > virtSwapInPr))
780 782                              then throw("Wrong calc")
781 783                              else {
782 784                                  let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
783 785                                  let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
784 786                                  let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
785 787                                  if ((D0vsD1 == D0vsD1))
786 788                                      then {
787 789                                          let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
788 790                                          if ((finalRes == finalRes))
789 791                                              then {
790 -                                                 let $t03247332577 = if ((outAssetId == amId))
792 +                                                 let $t03275632860 = if ((outAssetId == amId))
791 793                                                      then $Tuple2(toInt(finalRes._2), 0)
792 794                                                      else $Tuple2(0, toInt(finalRes._2))
793 -                                                 let outAm = $t03247332577._1
794 -                                                 let outPr = $t03247332577._2
795 +                                                 let outAm = $t03275632860._1
796 +                                                 let outPr = $t03275632860._2
795 797                                                  let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
796 798                                                  let curPr = f1(curPrX18, scale8)
797 799                                                  let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
798 800                                                      then unit
799 801                                                      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)]
800 802                                                  if ((state == state))
801 803                                                      then {
802 804                                                          let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
803 805                                                          if ((burn == burn))
804 806                                                              then state
805 807                                                              else throw("Strict value is not equal to itself.")
806 808                                                          }
807 809                                                      else throw("Strict value is not equal to itself.")
808 810                                                  }
809 811                                              else throw("Strict value is not equal to itself.")
810 812                                          }
811 813                                      else throw("Strict value is not equal to itself.")
812 814                                  }
813 815                          }
814 816          }
815 817  
816 818  
817 819  
818 820  @Callable(i)
819 821  func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
820 822      let r = cg(i)
821 823      let outAmAmt = r._1
822 824      let outPrAmt = r._2
823 825      let pmtAmt = r._3
824 826      let pmtAssetId = r._4
825 827      let state = r._5
826 828      if ((noLessThenAmtAsset > outAmAmt))
827 829          then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
828 830          else if ((noLessThenPriceAsset > outPrAmt))
829 831              then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
830 832              else {
831 833                  let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
832 834                  if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
833 835                      then state
834 836                      else throw("Strict value is not equal to itself.")
835 837                  }
836 838      }
837 839  
838 840  
839 841  
840 842  @Callable(i)
841 843  func unstakeAndGet (amount) = {
842 844      let checkPayments = if ((size(i.payments) != 0))
843 845          then throw("No pmnts expd")
844 846          else true
845 847      if ((checkPayments == checkPayments))
846 848          then {
847 849              let cfg = gpc()
848 850              let factoryCfg = gfc()
849 851              let lpAssetId = fromBase58String(cfg[idxLPAsId])
850 852              let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
851 853              let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
852 854              if ((unstakeInv == unstakeInv))
853 855                  then {
854 856                      let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
855 857                      let sts = parseIntValue(r._9)
856 858                      let state = r._10
857 859                      let v = if (if (igs())
858 860                          then true
859 861                          else (sts == PoolShutdown))
860 862                          then throw(("Blocked: " + toString(sts)))
861 863                          else true
862 864                      if ((v == v))
863 865                          then {
864 866                              let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
865 867                              if ((burnA == burnA))
866 868                                  then state
867 869                                  else throw("Strict value is not equal to itself.")
868 870                              }
869 871                          else throw("Strict value is not equal to itself.")
870 872                      }
871 873                  else throw("Strict value is not equal to itself.")
872 874              }
873 875          else throw("Strict value is not equal to itself.")
874 876      }
875 877  
876 878  
877 879  
878 880  @Callable(i)
879 881  func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
880 882      then throw("denied")
881 883      else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
882 884  
883 885  
884 886  
885 887  @Callable(i)
886 888  func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
887 889      then pd
888 890      else [StringEntry(k, v)]
889 891  
890 892  
891 893  
892 894  @Callable(i)
893 895  func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
894 896      then pd
895 897      else [IntegerEntry(k, v)]
896 898  
897 899  
898 900  
899 901  @Callable(i)
900 902  func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
901 903  
902 904  
903 905  
904 906  @Callable(i)
905 907  func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
906 908  
907 909  
908 910  
909 911  @Callable(i)
910 912  func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
911 913      let pr = calcPrices(amAmt, prAmt, lpAmt)
912 914      $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
913 915      }
914 916  
915 917  
916 918  
917 919  @Callable(i)
918 920  func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
919 921  
920 922  
921 923  
922 924  @Callable(i)
923 925  func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
924 926  
925 927  
926 928  
927 929  @Callable(i)
928 930  func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
929 931  
930 932  
931 933  
932 934  @Callable(i)
933 935  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, ""))
934 936  
935 937  
936 938  
937 939  @Callable(i)
938 940  func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
939 941      let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
940 942      $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
941 943      }
942 944  
943 945  
944 946  @Verifier(tx)
945 947  func verify () = {
946 948      let targetPublicKey =     match m() {
947 949          case pk: ByteVector => 
948 950              pk
949 951          case _: Unit => 
950 952              tx.senderPublicKey
951 953          case _ => 
952 954              throw("Match error")
953 955      }
954 956      match tx {
955 957          case order: Order => 
956 958              let matcherPub = mp()
957 959              let orderValid = moa(order)
958 960              let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
959 961              let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
960 962              if (if (if (orderValid)
961 963                  then senderValid
962 964                  else false)
963 965                  then matcherValid
964 966                  else false)
965 967                  then true
966 968                  else toe(orderValid, senderValid, matcherValid)
967 969          case s: SetScriptTransaction => 
968 970              let newHash = blake2b256(value(s.script))
969 971              let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
970 972              let currentHash = scriptHash(this)
971 973              if (if ((allowedHash == newHash))
972 974                  then (currentHash != newHash)
973 975                  else false)
974 976                  then true
975 977                  else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
976 978          case _ => 
977 979              sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
978 980      }
979 981      }
980 982

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let defaultDecimals = ~~1000000~~
	4	+	let defaultDecimals = 100000000
5	5
6	6		let scale8 = 100000000
7	7

347	347		else calcLpAmt
348	348		let amDiff = (inAmAmt - calcAmAssetPmt)
349	349		let prDiff = (inPrAmt - calcPrAssetPmt)
350		-	let $~~t01664716992~~ = if (if (isOneAsset)
	350	+	let $t01664916994 = if (if (isOneAsset)
351	351		then (pmtId == amIdStr)
352	352		else false)
353	353		then $Tuple2(pmtAmt, 0)

356	356		else false)
357	357		then $Tuple2(0, pmtAmt)
358	358		else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
359		-	let writeAmAmt = $~~t01664716992~~._1
360		-	let writePrAmt = $~~t01664716992~~._2
	359	+	let writeAmAmt = $t01664916994._1
	360	+	let writePrAmt = $t01664916994._2
361	361		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))]
362	362		$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
363	363		}

619	619		else {
620	620		let amBalance = getAccBalance(amId)
621	621		let prBalance = getAccBalance(prId)
622		-	let $t02583626532 = if ((pmtAssetId == amId))
623		-	then if (if ((pmtAmtDefaultDecimals > amBalance))
	622	+	let amBalanceDefaultDecimals = ((amBalance * defaultDecimals) / pow(10, 0, amDcm, 0, 0, DOWN))
	623	+	let prBalanceDefaultDecimals = ((prBalance * defaultDecimals) / pow(10, 0, prDcm, 0, 0, DOWN))
	624	+	let $t02602926815 = if ((pmtAssetId == amId))
	625	+	then if (if ((pmtAmtDefaultDecimals > amBalanceDefaultDecimals))
624	626		then true
625	627		else (amAssetPart > pmtAmtDefaultDecimals))
626	628		then throw("invalid payment amount")
627		-	else $Tuple6((~~amBalance~~ - pmtAmtDefaultDecimals), ~~prBalance~~, (pmtAmtDefaultDecimals - amAssetPart), prAssetPart, 0, 0)
	629	+	else $Tuple6((amBalanceDefaultDecimals - pmtAmtDefaultDecimals), prBalanceDefaultDecimals, (pmtAmtDefaultDecimals - amAssetPart), prAssetPart, 0, 0)
628	630		else if ((pmtAssetId == prId))
629		-	then if (if ((pmtAmtDefaultDecimals > ~~prBalance~~))
	631	+	then if (if ((pmtAmtDefaultDecimals > prBalanceDefaultDecimals))
630	632		then true
631	633		else (prAssetPart > pmtAmtDefaultDecimals))
632	634		then throw("invalid payment amount")
633		-	else $Tuple6(~~amBalance~~, (~~prBalance~~ - pmtAmtDefaultDecimals), 0, 0, (pmtAmtDefaultDecimals - prAssetPart), amAssetPart)
	635	+	else $Tuple6(amBalanceDefaultDecimals, (prBalanceDefaultDecimals - pmtAmtDefaultDecimals), 0, 0, (pmtAmtDefaultDecimals - prAssetPart), amAssetPart)
634	636		else throw("wrong pmtAssetId")
635		-	let amBalanceNow = $~~t02583626532~~._1
636		-	let prBalanceNow = $~~t02583626532~~._2
637		-	let virtSwapInAm = $~~t02583626532~~._3
638		-	let virtSwapOutPr = $~~t02583626532~~._4
639		-	let virtSwapInPr = $~~t02583626532~~._5
640		-	let virtSwapOutAm = $~~t02583626532~~._6
	637	+	let amBalanceNow = $t02602926815._1
	638	+	let prBalanceNow = $t02602926815._2
	639	+	let virtSwapInAm = $t02602926815._3
	640	+	let virtSwapOutPr = $t02602926815._4
	641	+	let virtSwapInPr = $t02602926815._5
	642	+	let virtSwapOutAm = $t02602926815._6
641	643		let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
642	644		let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
643	645		let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)

762	764		let estimPrAmt = r._2
763	765		let amBalance = getAccBalance(amId)
764	766		let prBalance = getAccBalance(prId)
765		-	let $~~t03131131768~~ = if ((outAssetId == amId))
	767	+	let $t03159432051 = if ((outAssetId == amId))
766	768		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
767	769		else if ((outAssetId == prId))
768	770		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
769	771		else throw("wrong outAssetId")
770		-	let amBalanceNow = $~~t03131131768~~._1
771		-	let prBalanceNow = $~~t03131131768~~._2
772		-	let virtSwapInAm = $~~t03131131768~~._3
773		-	let virtSwapOutPr = $~~t03131131768~~._4
774		-	let virtSwapInPr = $~~t03131131768~~._5
775		-	let virtSwapOutAm = $~~t03131131768~~._6
776		-	let totalGet = $~~t03131131768~~._7
	772	+	let amBalanceNow = $t03159432051._1
	773	+	let prBalanceNow = $t03159432051._2
	774	+	let virtSwapInAm = $t03159432051._3
	775	+	let virtSwapOutPr = $t03159432051._4
	776	+	let virtSwapInPr = $t03159432051._5
	777	+	let virtSwapOutAm = $t03159432051._6
	778	+	let totalGet = $t03159432051._7
777	779		if (if ((0 > virtSwapInAm))
778	780		then true
779	781		else (0 > virtSwapInPr))

787	789		let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
788	790		if ((finalRes == finalRes))
789	791		then {
790		-	let $~~t03247332577~~ = if ((outAssetId == amId))
	792	+	let $t03275632860 = if ((outAssetId == amId))
791	793		then $Tuple2(toInt(finalRes._2), 0)
792	794		else $Tuple2(0, toInt(finalRes._2))
793		-	let outAm = $~~t03247332577~~._1
794		-	let outPr = $~~t03247332577~~._2
	795	+	let outAm = $t03275632860._1
	796	+	let outPr = $t03275632860._2
795	797		let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
796	798		let curPr = f1(curPrX18, scale8)
797	799		let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let defaultDecimals = ~~1000000~~
	4	+	let defaultDecimals = 100000000
5	5
6	6		let scale8 = 100000000
7	7
8	8		let scale8BigInt = toBigInt(100000000)
9	9
10	10		let scale18 = toBigInt(1000000000000000000)
11	11
12	12		let zeroBigInt = toBigInt(0)
13	13
14	14		let oneBigInt = toBigInt(1)
15	15
16	16		let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
17	17
18	18		let Amult = "100"
19	19
20	20		let Dconv = "1"
21	21
22	22		let SEP = "__"
23	23
24	24		let EMPTY = ""
25	25
26	26		let PoolActive = 1
27	27
28	28		let PoolPutDis = 2
29	29
30	30		let PoolMatcherDis = 3
31	31
32	32		let PoolShutdown = 4
33	33
34	34		let idxPoolAddress = 1
35	35
36	36		let idxPoolSt = 2
37	37
38	38		let idxLPAsId = 3
39	39
40	40		let idxAmAsId = 4
41	41
42	42		let idxPrAsId = 5
43	43
44	44		let idxAmtAsDcm = 6
45	45
46	46		let idxPriceAsDcm = 7
47	47
48	48		let idxIAmtAsId = 8
49	49
50	50		let idxIPriceAsId = 9
51	51
52	52		let idxFactStakCntr = 1
53	53
54	54		let idxFactSlippCntr = 7
55	55
56	56		let idxFactGwxRewCntr = 10
57	57
58	58		let delay = "%s__delay"
59	59
60	60		func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
61	61
62	62
63	63		func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
64	64
65	65
66	66		func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
67	67
68	68
69	69		func abs (val) = if ((zeroBigInt > val))
70	70		then -(val)
71	71		else val
72	72
73	73
74	74		func fc () = "%s__factoryContract"
75	75
76	76
77	77		func mpk () = "%s__managerPublicKey"
78	78
79	79
80	80		func pmpk () = "%s__pendingManagerPublicKey"
81	81
82	82
83	83		func pl () = "%s%s__price__last"
84	84
85	85
86	86		func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
87	87
88	88
89	89		func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
90	90
91	91
92	92		func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
93	93
94	94
95	95		func aa () = "%s__amountAsset"
96	96
97	97
98	98		func pa () = "%s__priceAsset"
99	99
100	100
101	101		func amp () = "%s__amp"
102	102
103	103
104	104		func ada () = "%s__addonAddr"
105	105
106	106
107	107		func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
108	108
109	109
110	110		func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
111	111
112	112
113	113		func fcfg () = "%s__factoryConfig"
114	114
115	115
116	116		func mtpk () = "%s%s__matcher__publicKey"
117	117
118	118
119	119		func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
120	120
121	121
122	122		func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
123	123
124	124
125	125		func aps () = "%s__shutdown"
126	126
127	127
128	128		func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
129	129
130	130
131	131		func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
132	132
133	133
134	134		func str (val) = match val {
135	135		case valStr: String =>
136	136		valStr
137	137		case _ =>
138	138		throw("fail cast to String")
139	139		}
140	140
141	141
142	142		func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
143	143
144	144
145	145		func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
146	146
147	147
148	148		let fca = addressFromStringValue(strf(this, fc()))
149	149
150	150		let A = strf(this, amp())
151	151
152	152		func igs () = valueOrElse(getBoolean(fca, aps()), false)
153	153
154	154
155	155		func mp () = fromBase58String(strf(fca, mtpk()))
156	156
157	157
158	158		func gpc () = {
159	159		let amtAs = strf(this, aa())
160	160		let priceAs = strf(this, pa())
161	161		let iPriceAs = intf(fca, mba(priceAs))
162	162		let iAmtAs = intf(fca, mba(amtAs))
163	163		split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
164	164		}
165	165
166	166
167	167		func gfc () = split(strf(fca, fcfg()), SEP)
168	168
169	169
170	170		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)
171	171
172	172
173	173		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)
174	174
175	175
176	176		func getAccBalance (assetId) = if ((assetId == "WAVES"))
177	177		then wavesBalance(this).available
178	178		else assetBalance(this, fromBase58String(assetId))
179	179
180	180
181	181		func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
182	182
183	183
184	184		func vad (A1,A2,slippage) = {
185	185		let diff = fraction((A1 - A2), scale8BigInt, A2)
186	186		let pass = ((slippage - abs(diff)) > zeroBigInt)
187	187		if (!(pass))
188	188		then throw(("Big slpg: " + toString(diff)))
189	189		else $Tuple2(pass, min([A1, A2]))
190	190		}
191	191
192	192
193	193		func vd (D1,D0,slpg) = {
194	194		let diff = fraction(D0, scale8BigInt, D1)
195	195		let fail = (slpg > diff)
196	196		if (if (fail)
197	197		then true
198	198		else (D0 > D1))
199	199		then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
200	200		else fail
201	201		}
202	202
203	203
204	204		func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
205	205		let amtAsAmtX18 = t1(amAmt, amAssetDcm)
206	206		let prAsAmtX18 = t1(prAmt, prAssetDcm)
207	207		cpbi(prAsAmtX18, amtAsAmtX18)
208	208		}
209	209
210	210
211	211		func calcPrices (amAmt,prAmt,lpAmt) = {
212	212		let cfg = gpc()
213	213		let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
214	214		let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
215	215		let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
216	216		let amAmtX18 = t1(amAmt, amtAsDcm)
217	217		let prAmtX18 = t1(prAmt, prAsDcm)
218	218		let lpAmtX18 = t1(lpAmt, scale8)
219	219		let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
220	220		let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
221	221		[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
222	222		}
223	223
224	224
225	225		func calculatePrices (amAmt,prAmt,lpAmt) = {
226	226		let p = calcPrices(amAmt, prAmt, lpAmt)
227	227		[f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
228	228		}
229	229
230	230
231	231		func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
232	232		let cfg = gpc()
233	233		let lpId = cfg[idxLPAsId]
234	234		let amId = cfg[idxAmAsId]
235	235		let prId = cfg[idxPrAsId]
236	236		let amDcm = parseIntValue(cfg[idxAmtAsDcm])
237	237		let prDcm = parseIntValue(cfg[idxPriceAsDcm])
238	238		let sts = cfg[idxPoolSt]
239	239		let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
240	240		if ((lpId != pmtAssetId))
241	241		then throw("Wrong pmt asset")
242	242		else {
243	243		let amBalance = getAccBalance(amId)
244	244		let prBalance = getAccBalance(prId)
245	245		let amountBalanceDefaultDecimals = fraction(amBalance, defaultDecimals, amDcm)
246	246		let priceBalanceDefaultDecimals = fraction(prBalance, defaultDecimals, prDcm)
247	247		let amBalanceX18 = t1(amountBalanceDefaultDecimals, defaultDecimals)
248	248		let prBalanceX18 = t1(priceBalanceDefaultDecimals, defaultDecimals)
249	249		let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
250	250		let curPrice = f1(curPriceX18, scale8)
251	251		let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
252	252		let lpEmissX18 = t1(lpEmiss, scale8)
253	253		let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
254	254		let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
255	255		let outAmountAmountDefaultDecimals = f1(outAmAmtX18, defaultDecimals)
256	256		let outPriceAmountDefaultDecimals = f1(outPrAmtX18, defaultDecimals)
257	257		let outAmAmt = fraction(outAmountAmountDefaultDecimals, amDcm, defaultDecimals)
258	258		let outPrAmt = fraction(outPriceAmountDefaultDecimals, prDcm, defaultDecimals)
259	259		let state = if ((txId58 == ""))
260	260		then nil
261	261		else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
262	262		then unit
263	263		else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
264	264		then unit
265	265		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)]
266	266		$Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
267	267		}
268	268		}
269	269
270	270
271	271		func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
272	272		let cfg = gpc()
273	273		let lpId = fromBase58String(cfg[idxLPAsId])
274	274		let amIdStr = cfg[idxAmAsId]
275	275		let prIdStr = cfg[idxPrAsId]
276	276		let inAmIdStr = cfg[idxIAmtAsId]
277	277		let inPrIdStr = cfg[idxIPriceAsId]
278	278		let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
279	279		let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
280	280		let sts = cfg[idxPoolSt]
281	281		let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
282	282		let amBalance = if (isEval)
283	283		then getAccBalance(amIdStr)
284	284		else if (if (isOneAsset)
285	285		then (pmtId == amIdStr)
286	286		else false)
287	287		then (getAccBalance(amIdStr) - pmtAmt)
288	288		else if (isOneAsset)
289	289		then getAccBalance(amIdStr)
290	290		else (getAccBalance(amIdStr) - inAmAmt)
291	291		let prBalance = if (isEval)
292	292		then getAccBalance(prIdStr)
293	293		else if (if (isOneAsset)
294	294		then (pmtId == prIdStr)
295	295		else false)
296	296		then (getAccBalance(prIdStr) - pmtAmt)
297	297		else if (isOneAsset)
298	298		then getAccBalance(prIdStr)
299	299		else (getAccBalance(prIdStr) - inPrAmt)
300	300		let amountBalanceDefaultDecimals = fraction(amBalance, defaultDecimals, amtDcm)
301	301		let priceBalanceDefaultDecimals = fraction(prBalance, defaultDecimals, priceDcm)
302	302		let inAmountAssetAmountDefaultDecimals = fraction(inAmAmt, defaultDecimals, amtDcm)
303	303		let inPriceAssetAmountDefaultDecimals = fraction(inPrAmt, defaultDecimals, priceDcm)
304	304		let inAmAssetAmtX18 = t1(inAmountAssetAmountDefaultDecimals, defaultDecimals)
305	305		let inPrAssetAmtX18 = t1(inPriceAssetAmountDefaultDecimals, defaultDecimals)
306	306		let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
307	307		let amBalanceX18 = t1(amountBalanceDefaultDecimals, defaultDecimals)
308	308		let prBalanceX18 = t1(priceBalanceDefaultDecimals, defaultDecimals)
309	309		let r = if ((lpEm == 0))
310	310		then {
311	311		let curPriceX18 = zeroBigInt
312	312		let slippageX18 = zeroBigInt
313	313		let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
314	314		$Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, defaultDecimals), f1(inPrAssetAmtX18, defaultDecimals), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
315	315		}
316	316		else {
317	317		let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
318	318		let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
319	319		let slippageX18 = t1(slippage, scale8)
320	320		if (if ((curPriceX18 != zeroBigInt))
321	321		then (slippageRealX18 > slippageX18)
322	322		else false)
323	323		then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
324	324		else {
325	325		let lpEmissionX18 = t1(lpEm, scale8)
326	326		let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
327	327		let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
328	328		let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
329	329		then $Tuple2(amViaPrX18, inPrAssetAmtX18)
330	330		else $Tuple2(inAmAssetAmtX18, prViaAmX18)
331	331		let expAmtAssetAmtX18 = expectedAmts._1
332	332		let expPriceAssetAmtX18 = expectedAmts._2
333	333		let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
334	334		$Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, defaultDecimals), f1(expPriceAssetAmtX18, defaultDecimals), curPriceX18, slippageX18)
335	335		}
336	336		}
337	337		let calcLpAmt = r._1
338	338		let calcAmAssetPmt = fraction(r._2, amtDcm, defaultDecimals)
339	339		let calcPrAssetPmt = fraction(r._3, priceDcm, defaultDecimals)
340	340		let curPrice = f1(r._4, scale8)
341	341		let slippageCalc = f1(r._5, scale8)
342	342		if ((0 >= calcLpAmt))
343	343		then throw("LP <= 0")
344	344		else {
345	345		let emitLpAmt = if (!(emitLp))
346	346		then 0
347	347		else calcLpAmt
348	348		let amDiff = (inAmAmt - calcAmAssetPmt)
349	349		let prDiff = (inPrAmt - calcPrAssetPmt)
350		-	let $~~t01664716992~~ = if (if (isOneAsset)
	350	+	let $t01664916994 = if (if (isOneAsset)
351	351		then (pmtId == amIdStr)
352	352		else false)
353	353		then $Tuple2(pmtAmt, 0)
354	354		else if (if (isOneAsset)
355	355		then (pmtId == prIdStr)
356	356		else false)
357	357		then $Tuple2(0, pmtAmt)
358	358		else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
359		-	let writeAmAmt = $~~t01664716992~~._1
360		-	let writePrAmt = $~~t01664716992~~._2
	359	+	let writeAmAmt = $t01664916994._1
	360	+	let writePrAmt = $t01664916994._2
361	361		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))]
362	362		$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
363	363		}
364	364		}
365	365
366	366
367	367		func moa (order) = {
368	368		let cfg = gpc()
369	369		let amtAsId = cfg[idxAmAsId]
370	370		let prAsId = cfg[idxPrAsId]
371	371		let sts = parseIntValue(cfg[idxPoolSt])
372	372		let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
373	373		let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
374	374		let accAmtAsBalance = getAccBalance(amtAsId)
375	375		let accPrAsBalance = getAccBalance(prAsId)
376	376		let curPriceX18 = if ((order.orderType == Buy))
377	377		then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
378	378		else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
379	379		let curPrice = f1(curPriceX18, scale8)
380	380		if (if (if (igs())
381	381		then true
382	382		else (sts == PoolMatcherDis))
383	383		then true
384	384		else (sts == PoolShutdown))
385	385		then throw("Admin blocked")
386	386		else {
387	387		let orAmtAsset = order.assetPair.amountAsset
388	388		let orAmtAsStr = if ((orAmtAsset == unit))
389	389		then "WAVES"
390	390		else toBase58String(value(orAmtAsset))
391	391		let orPrAsset = order.assetPair.priceAsset
392	392		let orPrAsStr = if ((orPrAsset == unit))
393	393		then "WAVES"
394	394		else toBase58String(value(orPrAsset))
395	395		if (if ((orAmtAsStr != amtAsId))
396	396		then true
397	397		else (orPrAsStr != prAsId))
398	398		then throw("Wr assets")
399	399		else {
400	400		let orderPrice = order.price
401	401		let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
402	402		let castOrderPrice = ts(orderPrice, scale8, priceDcm)
403	403		let isOrderPriceValid = if ((order.orderType == Buy))
404	404		then (curPrice >= castOrderPrice)
405	405		else (castOrderPrice >= curPrice)
406	406		true
407	407		}
408	408		}
409	409		}
410	410
411	411
412	412		func cg (i) = if ((size(i.payments) != 1))
413	413		then throw("1 pmnt exp")
414	414		else {
415	415		let pmt = value(i.payments[0])
416	416		let pmtAssetId = value(pmt.assetId)
417	417		let pmtAmt = pmt.amount
418	418		let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
419	419		let outAmAmt = r._1
420	420		let outPrAmt = r._2
421	421		let sts = parseIntValue(r._9)
422	422		let state = r._10
423	423		if (if (igs())
424	424		then true
425	425		else (sts == PoolShutdown))
426	426		then throw(("Admin blocked: " + toString(sts)))
427	427		else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
428	428		}
429	429
430	430
431	431		func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
432	432		let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
433	433		let sts = parseIntValue(r._8)
434	434		if (if (if (igs())
435	435		then true
436	436		else (sts == PoolPutDis))
437	437		then true
438	438		else (sts == PoolShutdown))
439	439		then throw(("Blocked:" + toString(sts)))
440	440		else r
441	441		}
442	442
443	443
444	444		func m () = match getString(mpk()) {
445	445		case s: String =>
446	446		fromBase58String(s)
447	447		case _: Unit =>
448	448		unit
449	449		case _ =>
450	450		throw("Match error")
451	451		}
452	452
453	453
454	454		func pm () = match getString(pmpk()) {
455	455		case s: String =>
456	456		fromBase58String(s)
457	457		case _: Unit =>
458	458		unit
459	459		case _ =>
460	460		throw("Match error")
461	461		}
462	462
463	463
464	464		let pd = throw("Permission denied")
465	465
466	466		func mm (i) = match m() {
467	467		case pk: ByteVector =>
468	468		if ((i.callerPublicKey == pk))
469	469		then true
470	470		else pd
471	471		case _: Unit =>
472	472		if ((i.caller == this))
473	473		then true
474	474		else pd
475	475		case _ =>
476	476		throw("Match error")
477	477		}
478	478
479	479
480	480		@Callable(i)
481	481		func constructor (fc) = {
482	482		let c = mm(i)
483	483		if ((c == c))
484	484		then [StringEntry(fc(), fc)]
485	485		else throw("Strict value is not equal to itself.")
486	486		}
487	487
488	488
489	489
490	490		@Callable(i)
491	491		func setManager (pendingManagerPublicKey) = {
492	492		let c = mm(i)
493	493		if ((c == c))
494	494		then {
495	495		let cm = fromBase58String(pendingManagerPublicKey)
496	496		if ((cm == cm))

github/deemru/w8io/c3f4982 
121.24 ms ◑