tx · 5kH5x73nCt9s9dRMZ7VFN2GWQ6AyeAiCMReMkWsNFbdw

3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA:  -0.03400000 Waves

2022.09.12 19:28 [2226128] smart account 3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA > SELF 0.00000000 Waves

{ "type": 13, "id": "5kH5x73nCt9s9dRMZ7VFN2GWQ6AyeAiCMReMkWsNFbdw", "fee": 3400000, "feeAssetId": null, "timestamp": 1663000050047, "version": 2, "chainId": 84, "sender": "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA", "senderPublicKey": "35yd3qw1gxKDxKwGAykHN9fANbXNWwseaUwbWDj24o3x", "proofs": [ "3gRv1ACmJici9wxWo5VCB4aqc4yPruGaRZQXD5ZYqoP7vtU8ryd8zCLgG1UJPUVCiUQLYztNyX7WHHAJBJqQU1zy" ], "script": "base64:BgKNAQgCEgMKAQgSAwoBCBIAEgQKAgEEEgcKBQEBAQEEEgUKAwEBBBIDCgEBEgASBwoFAQEBCAESBQoDAQgBEgQKAgEBEgMKAQESBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCE4ABnNjYWxlOACAwtcvAAxzY2FsZThCaWdJbnQJALYCAQCAwtcvAAdzY2FsZTE4CQC2AgEAgICQu7rWrfANAAp6ZXJvQmlnSW50CQC2AgEAAAAJb25lQmlnSW50CQC2AgEAAQAKc2xpcHBhZ2U0RAkAtgIBCQBlAgUGc2NhbGU4CQBpAgkAaAIFBnNjYWxlOAABBQZzY2FsZTgABUFtdWx0AgMxMDAABURjb252AgExAANTRVACAl9fAAVFTVBUWQIAAApQb29sQWN0aXZlAAEAClBvb2xQdXREaXMAAgAOUG9vbE1hdGNoZXJEaXMAAwAMUG9vbFNodXRkb3duAAQADmlkeFBvb2xBZGRyZXNzAAEACWlkeFBvb2xTdAACAAlpZHhMUEFzSWQAAwAJaWR4QW1Bc0lkAAQACWlkeFByQXNJZAAFAAtpZHhBbXRBc0RjbQAGAA1pZHhQcmljZUFzRGNtAAcAC2lkeElBbXRBc0lkAAgADWlkeElQcmljZUFzSWQACQAPaWR4RmFjdFN0YWtDbnRyAAEAEGlkeEZhY3RTbGlwcENudHIABwARaWR4RmFjdEd3eFJld0NudHIACgAFZGVsYXkCCSVzX19kZWxheQECdDECB29yaWdWYWwNb3JpZ1NjYWxlTXVsdAkAvAIDCQC2AgEFB29yaWdWYWwFB3NjYWxlMTgJALYCAQUNb3JpZ1NjYWxlTXVsdAECZjECA3ZhbA9yZXN1bHRTY2FsZU11bHQJAKADAQkAvAIDBQN2YWwJALYCAQUPcmVzdWx0U2NhbGVNdWx0BQdzY2FsZTE4AQJ0cwMDYW10CHJlc1NjYWxlCGN1clNjYWxlCQBrAwUDYW10BQhyZXNTY2FsZQUIY3VyU2NhbGUBA2FicwEDdmFsAwkAvwICBQp6ZXJvQmlnSW50BQN2YWwJAL4CAQUDdmFsBQN2YWwBAmZjAAITJXNfX2ZhY3RvcnlDb250cmFjdAEDbXBrAAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBBHBtcGsAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBAnBsAAIRJXMlc19fcHJpY2VfX2xhc3QBAnBoAgFoAXQJALkJAgkAzAgCAhglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAMwIAgkApAMBBQFoCQDMCAIJAKQDAQUBdAUDbmlsBQNTRVABA3BhdQICdWEEdHhJZAkArAICCQCsAgIJAKwCAgILJXMlcyVzX19QX18FAnVhAgJfXwUEdHhJZAEDZ2F1AgJ1YQR0eElkCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX0dfXwUCdWECAl9fBQR0eElkAQJhYQACDyVzX19hbW91bnRBc3NldAECcGEAAg4lc19fcHJpY2VBc3NldAEDYW1wAAIHJXNfX2FtcAEDYWRhAAINJXNfX2FkZG9uQWRkcgEFbGdvdGMBBmNhbGxlcgkAuQkCCQDMCAICFyVzJXNfX2xhc3RHZXRPbmVUa25DYWxsCQDMCAIFBmNhbGxlcgUDbmlsBQNTRVABBWxzb3RjAQZjYWxsZXIJALkJAgkAzAgCAhclcyVzX19sYXN0UHV0T25lVGtuQ2FsbAkAzAgCBQZjYWxsZXIFA25pbAUDU0VQAQRmY2ZnAAIRJXNfX2ZhY3RvcnlDb25maWcBBG10cGsAAhglcyVzX19tYXRjaGVyX19wdWJsaWNLZXkBAnBjAgZpQW10QXMFaVByQXMJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FBmlBbXRBcwICX18FBWlQckFzAghfX2NvbmZpZwEDbWJhAQViQVN0cgkArAICAiglcyVzJXNfX21hcHBpbmdzX19iYXNlQXNzZXQyaW50ZXJuYWxJZF9fBQViQVN0cgEDYXBzAAIMJXNfX3NodXRkb3duARxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAAIdJXNfX2FsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2gBA3RvZQMDb3JWBnNlbmRyVgZtYXRjaFYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIRRmFpbGVkOiBvcmRWYWxpZD0JAKUDAQUDb3JWAgsgc25kclZhbGlkPQkApQMBBQZzZW5kclYCDCBtdGNoclZhbGlkPQkApQMBBQZtYXRjaFYBA3N0cgEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAZ2YWxTdHIFByRtYXRjaDAFBnZhbFN0cgkAAgECE2ZhaWwgY2FzdCB0byBTdHJpbmcBBHN0cmYCBGFkZHIDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEYWRkcgUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFBGFkZHIJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAEEaW50ZgIEYWRkcgNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQRhZGRyBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUEYWRkcgkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAANmY2EJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQRzdHJmAgUEdGhpcwkBAmZjAAABQQkBBHN0cmYCBQR0aGlzCQEDYW1wAAEDaWdzAAkBC3ZhbHVlT3JFbHNlAgkAmwgCBQNmY2EJAQNhcHMABwECbXAACQDZBAEJAQRzdHJmAgUDZmNhCQEEbXRwawABA2dwYwAEBWFtdEFzCQEEc3RyZgIFBHRoaXMJAQJhYQAEB3ByaWNlQXMJAQRzdHJmAgUEdGhpcwkBAnBhAAQIaVByaWNlQXMJAQRpbnRmAgUDZmNhCQEDbWJhAQUHcHJpY2VBcwQGaUFtdEFzCQEEaW50ZgIFA2ZjYQkBA21iYQEFBWFtdEFzCQC1CQIJAQRzdHJmAgUDZmNhCQECcGMCCQCkAwEFBmlBbXRBcwkApAMBBQhpUHJpY2VBcwUDU0VQAQNnZmMACQC1CQIJAQRzdHJmAgUDZmNhCQEEZmNmZwAFA1NFUAERZGF0YVB1dEFjdGlvbkluZm8KDWluQW10QXNzZXRBbXQPaW5QcmljZUFzc2V0QW10CG91dExwQW10BXByaWNlCnNsaXBCeVVzZXIMc2xpcHBhZ2VSZWFsCHR4SGVpZ2h0C3R4VGltZXN0YW1wDHNsaXBhZ2VBbUFtdAxzbGlwYWdlUHJBbXQJALkJAgkAzAgCAhQlZCVkJWQlZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFDWluQW10QXNzZXRBbXQJAMwIAgkApAMBBQ9pblByaWNlQXNzZXRBbXQJAMwIAgkApAMBBQhvdXRMcEFtdAkAzAgCCQCkAwEFBXByaWNlCQDMCAIJAKQDAQUKc2xpcEJ5VXNlcgkAzAgCCQCkAwEFDHNsaXBwYWdlUmVhbAkAzAgCCQCkAwEFCHR4SGVpZ2h0CQDMCAIJAKQDAQULdHhUaW1lc3RhbXAJAMwIAgkApAMBBQxzbGlwYWdlQW1BbXQJAMwIAgkApAMBBQxzbGlwYWdlUHJBbXQFA25pbAUDU0VQARFkYXRhR2V0QWN0aW9uSW5mbwYOb3V0QW10QXNzZXRBbXQQb3V0UHJpY2VBc3NldEFtdAdpbkxwQW10BXByaWNlCHR4SGVpZ2h0C3R4VGltZXN0YW1wCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUOb3V0QW10QXNzZXRBbXQJAMwIAgkApAMBBRBvdXRQcmljZUFzc2V0QW10CQDMCAIJAKQDAQUHaW5McEFtdAkAzAgCCQCkAwEFBXByaWNlCQDMCAIJAKQDAQUIdHhIZWlnaHQJAMwIAgkApAMBBQt0eFRpbWVzdGFtcAUDbmlsBQNTRVABDWdldEFjY0JhbGFuY2UBB2Fzc2V0SWQDCQAAAgUHYXNzZXRJZAIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUHYXNzZXRJZAEEY3BiaQIIcHJBbXRYMTgIYW1BbXRYMTgJALwCAwUIcHJBbXRYMTgFB3NjYWxlMTgFCGFtQW10WDE4AQN2YWQDAkExAkEyCHNsaXBwYWdlBARkaWZmCQC8AgMJALgCAgUCQTEFAkEyBQxzY2FsZThCaWdJbnQFAkEyBARwYXNzCQC/AgIJALgCAgUIc2xpcHBhZ2UJAQNhYnMBBQRkaWZmBQp6ZXJvQmlnSW50AwkBASEBBQRwYXNzCQACAQkArAICAgpCaWcgc2xwZzogCQCmAwEFBGRpZmYJAJQKAgUEcGFzcwkAmQMBCQDMCAIFAkExCQDMCAIFAkEyBQNuaWwBAnZkAwJEMQJEMARzbHBnBARkaWZmCQC8AgMFAkQwBQxzY2FsZThCaWdJbnQFAkQxBARmYWlsCQC/AgIFBHNscGcFBGRpZmYDAwUEZmFpbAYJAL8CAgUCRDAFAkQxCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJEMAIBIAkApgMBBQJEMQIBIAkApgMBBQRkaWZmAgEgCQCmAwEFBHNscGcFBGZhaWwBA3BjcAQKYW1Bc3NldERjbQpwckFzc2V0RGNtBWFtQW10BXByQW10BAthbXRBc0FtdFgxOAkBAnQxAgUFYW1BbXQFCmFtQXNzZXREY20ECnByQXNBbXRYMTgJAQJ0MQIFBXByQW10BQpwckFzc2V0RGNtCQEEY3BiaQIFCnByQXNBbXRYMTgFC2FtdEFzQW10WDE4AQpjYWxjUHJpY2VzAwVhbUFtdAVwckFtdAVscEFtdAQDY2ZnCQEDZ3BjAAQIYW10QXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBAdwckFzRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBAhwcmljZVgxOAkBA3BjcAQFCGFtdEFzRGNtBQdwckFzRGNtBQVhbUFtdAUFcHJBbXQECGFtQW10WDE4CQECdDECBQVhbUFtdAUIYW10QXNEY20ECHByQW10WDE4CQECdDECBQVwckFtdAUHcHJBc0RjbQQIbHBBbXRYMTgJAQJ0MQIFBWxwQW10BQZzY2FsZTgEDWxwUHJJbkFtQXNYMTgJAQRjcGJpAgUIYW1BbXRYMTgFCGxwQW10WDE4BA1scFBySW5QckFzWDE4CQEEY3BiaQIFCHByQW10WDE4BQhscEFtdFgxOAkAzAgCBQhwcmljZVgxOAkAzAgCBQ1scFBySW5BbUFzWDE4CQDMCAIFDWxwUHJJblByQXNYMTgFA25pbAEPY2FsY3VsYXRlUHJpY2VzAwVhbUFtdAVwckFtdAVscEFtdAQBcAkBCmNhbGNQcmljZXMDBQVhbUFtdAUFcHJBbXQFBWxwQW10CQDMCAIJAQJmMQIJAJEDAgUBcAAABQZzY2FsZTgJAMwIAgkBAmYxAgkAkQMCBQFwAAEFBnNjYWxlOAkAzAgCCQECZjECCQCRAwIFAXAAAgUGc2NhbGU4BQNuaWwBA2VnbwQGdHhJZDU4CnBtdEFzc2V0SWQIcG10THBBbXQLdXNlckFkZHJlc3MEA2NmZwkBA2dwYwAEBGxwSWQJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEBGFtSWQJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEBHBySWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEBWFtRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQFcHJEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQHbHBFbWlzcwgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFBGxwSWQCC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgUEbHBJZAUKcG10QXNzZXRJZAkAAgECD1dyb25nIHBtdCBhc3NldAQJYW1CYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBGFtSWQEDGFtQmFsYW5jZVgxOAkBAnQxAgUJYW1CYWxhbmNlBQVhbURjbQQJcHJCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBHBySWQEDHByQmFsYW5jZVgxOAkBAnQxAgUJcHJCYWxhbmNlBQVwckRjbQQLY3VyUHJpY2VYMTgJAQRjcGJpAgUMcHJCYWxhbmNlWDE4BQxhbUJhbGFuY2VYMTgECGN1clByaWNlCQECZjECBQtjdXJQcmljZVgxOAUGc2NhbGU4BAtwbXRMcEFtdFgxOAkBAnQxAgUIcG10THBBbXQFBnNjYWxlOAQKbHBFbWlzc1gxOAkBAnQxAgUHbHBFbWlzcwUGc2NhbGU4BAtvdXRBbUFtdFgxOAkAvAIDBQxhbUJhbGFuY2VYMTgFC3BtdExwQW10WDE4BQpscEVtaXNzWDE4BAtvdXRQckFtdFgxOAkAvAIDBQxwckJhbGFuY2VYMTgFC3BtdExwQW10WDE4BQpscEVtaXNzWDE4BAhvdXRBbUFtdAkBAmYxAgULb3V0QW1BbXRYMTgFBWFtRGNtBAhvdXRQckFtdAkBAmYxAgULb3V0UHJBbXRYMTgFBXByRGNtBAVzdGF0ZQMJAAACBQZ0eElkNTgCAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzBQhvdXRBbUFtdAMJAAACBQRhbUlkAgVXQVZFUwUEdW5pdAkA2QQBBQRhbUlkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzBQhvdXRQckFtdAMJAAACBQRwcklkAgVXQVZFUwUEdW5pdAkA2QQBBQRwcklkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQNnYXUCCQClCAEFC3VzZXJBZGRyZXNzBQZ0eElkNTgJARFkYXRhR2V0QWN0aW9uSW5mbwYFCG91dEFtQW10BQhvdXRQckFtdAUIcG10THBBbXQFCGN1clByaWNlBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGwABQhjdXJQcmljZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBoAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUIY3VyUHJpY2UFA25pbAkAnAoKBQhvdXRBbUFtdAUIb3V0UHJBbXQFBGFtSWQFBHBySWQFCWFtQmFsYW5jZQUJcHJCYWxhbmNlBQdscEVtaXNzBQtjdXJQcmljZVgxOAUDc3RzBQVzdGF0ZQEDZXBvDAZ0eElkNTgIc2xpcHBhZ2UHaW5BbUFtdAZpbkFtSWQHaW5QckFtdAZpblBySWQLdXNlckFkZHJlc3MGaXNFdmFsBmVtaXRMcAppc09uZUFzc2V0BnBtdEFtdAVwbXRJZAQDY2ZnCQEDZ3BjAAQEbHBJZAkA2QQBCQCRAwIFA2NmZwUJaWR4TFBBc0lkBAdhbUlkU3RyCQCRAwIFA2NmZwUJaWR4QW1Bc0lkBAdwcklkU3RyCQCRAwIFA2NmZwUJaWR4UHJBc0lkBAlpbkFtSWRTdHIJAJEDAgUDY2ZnBQtpZHhJQW10QXNJZAQJaW5QcklkU3RyCQCRAwIFA2NmZwUNaWR4SVByaWNlQXNJZAQGYW10RGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQIcHJpY2VEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQEbHBFbQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQRscElkAghXciBscCBhcwhxdWFudGl0eQQJYW1CYWxhbmNlAwUGaXNFdmFsCQENZ2V0QWNjQmFsYW5jZQEFB2FtSWRTdHIDAwUKaXNPbmVBc3NldAkAAAIFBXBtdElkBQdhbUlkU3RyBwkAZQIJAQ1nZXRBY2NCYWxhbmNlAQUHYW1JZFN0cgUGcG10QW10AwUKaXNPbmVBc3NldAkBDWdldEFjY0JhbGFuY2UBBQdhbUlkU3RyCQBlAgkBDWdldEFjY0JhbGFuY2UBBQdhbUlkU3RyBQdpbkFtQW10BAlwckJhbGFuY2UDBQZpc0V2YWwJAQ1nZXRBY2NCYWxhbmNlAQUHcHJJZFN0cgMDBQppc09uZUFzc2V0CQAAAgUFcG10SWQFB3BySWRTdHIHCQBlAgkBDWdldEFjY0JhbGFuY2UBBQdwcklkU3RyBQZwbXRBbXQDBQppc09uZUFzc2V0CQENZ2V0QWNjQmFsYW5jZQEFB3BySWRTdHIJAGUCCQENZ2V0QWNjQmFsYW5jZQEFB3BySWRTdHIFB2luUHJBbXQED2luQW1Bc3NldEFtdFgxOAkBAnQxAgUHaW5BbUFtdAUGYW10RGNtBA9pblByQXNzZXRBbXRYMTgJAQJ0MQIFB2luUHJBbXQFCHByaWNlRGNtBAx1c2VyUHJpY2VYMTgJAQRjcGJpAgUPaW5QckFzc2V0QW10WDE4BQ9pbkFtQXNzZXRBbXRYMTgEDGFtQmFsYW5jZVgxOAkBAnQxAgUJYW1CYWxhbmNlBQZhbXREY20EDHByQmFsYW5jZVgxOAkBAnQxAgUJcHJCYWxhbmNlBQhwcmljZURjbQQBcgMJAAACBQRscEVtAAAEC2N1clByaWNlWDE4BQp6ZXJvQmlnSW50BAtzbGlwcGFnZVgxOAUKemVyb0JpZ0ludAQIbHBBbXRYMTgJAHYGCQC5AgIFD2luQW1Bc3NldEFtdFgxOAUPaW5QckFzc2V0QW10WDE4AAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQECZjECBQhscEFtdFgxOAUGc2NhbGU4CQECZjECBQ9pbkFtQXNzZXRBbXRYMTgFBmFtdERjbQkBAmYxAgUPaW5QckFzc2V0QW10WDE4BQhwcmljZURjbQkBBGNwYmkCCQC3AgIFDHByQmFsYW5jZVgxOAUPaW5QckFzc2V0QW10WDE4CQC3AgIFDGFtQmFsYW5jZVgxOAUPaW5BbUFzc2V0QW10WDE4BQtzbGlwcGFnZVgxOAQLY3VyUHJpY2VYMTgJAQRjcGJpAgUMcHJCYWxhbmNlWDE4BQxhbUJhbGFuY2VYMTgED3NsaXBwYWdlUmVhbFgxOAkAvAIDCQEDYWJzAQkAuAICBQtjdXJQcmljZVgxOAUMdXNlclByaWNlWDE4BQdzY2FsZTE4BQtjdXJQcmljZVgxOAQLc2xpcHBhZ2VYMTgJAQJ0MQIFCHNsaXBwYWdlBQZzY2FsZTgDAwkBAiE9AgULY3VyUHJpY2VYMTgFCnplcm9CaWdJbnQJAL8CAgUPc2xpcHBhZ2VSZWFsWDE4BQtzbGlwcGFnZVgxOAcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUPc2xpcHBhZ2VSZWFsWDE4AgMgPiAJAKYDAQULc2xpcHBhZ2VYMTgEDWxwRW1pc3Npb25YMTgJAQJ0MQIFBGxwRW0FBnNjYWxlOAQKcHJWaWFBbVgxOAkAvAIDBQ9pbkFtQXNzZXRBbXRYMTgFC2N1clByaWNlWDE4BQdzY2FsZTE4BAphbVZpYVByWDE4CQC8AgMFD2luUHJBc3NldEFtdFgxOAUHc2NhbGUxOAULY3VyUHJpY2VYMTgEDGV4cGVjdGVkQW10cwMJAL8CAgUKcHJWaWFBbVgxOAUPaW5QckFzc2V0QW10WDE4CQCUCgIFCmFtVmlhUHJYMTgFD2luUHJBc3NldEFtdFgxOAkAlAoCBQ9pbkFtQXNzZXRBbXRYMTgFCnByVmlhQW1YMTgEEWV4cEFtdEFzc2V0QW10WDE4CAUMZXhwZWN0ZWRBbXRzAl8xBBNleHBQcmljZUFzc2V0QW10WDE4CAUMZXhwZWN0ZWRBbXRzAl8yBAhscEFtdFgxOAkAvAIDBQ1scEVtaXNzaW9uWDE4BRNleHBQcmljZUFzc2V0QW10WDE4BQxwckJhbGFuY2VYMTgJAJcKBQkBAmYxAgUIbHBBbXRYMTgFBnNjYWxlOAkBAmYxAgURZXhwQW10QXNzZXRBbXRYMTgFBmFtdERjbQkBAmYxAgUTZXhwUHJpY2VBc3NldEFtdFgxOAUIcHJpY2VEY20FC2N1clByaWNlWDE4BQtzbGlwcGFnZVgxOAQJY2FsY0xwQW10CAUBcgJfMQQOY2FsY0FtQXNzZXRQbXQIBQFyAl8yBA5jYWxjUHJBc3NldFBtdAgFAXICXzMECGN1clByaWNlCQECZjECCAUBcgJfNAUGc2NhbGU4BAxzbGlwcGFnZUNhbGMJAQJmMQIIBQFyAl81BQZzY2FsZTgDCQBnAgAABQljYWxjTHBBbXQJAAIBAgdMUCA8PSAwBAllbWl0THBBbXQDCQEBIQEFBmVtaXRMcAAABQljYWxjTHBBbXQEBmFtRGlmZgkAZQIFB2luQW1BbXQFDmNhbGNBbUFzc2V0UG10BAZwckRpZmYJAGUCBQdpblByQW10BQ5jYWxjUHJBc3NldFBtdAQNJHQwMTU2MDExNTk0NgMDBQppc09uZUFzc2V0CQAAAgUFcG10SWQFB2FtSWRTdHIHCQCUCgIFBnBtdEFtdAAAAwMFCmlzT25lQXNzZXQJAAACBQVwbXRJZAUHcHJJZFN0cgcJAJQKAgAABQZwbXRBbXQJAJQKAgUOY2FsY0FtQXNzZXRQbXQFDmNhbGNQckFzc2V0UG10BAp3cml0ZUFtQW10CAUNJHQwMTU2MDExNTk0NgJfMQQKd3JpdGVQckFtdAgFDSR0MDE1NjAxMTU5NDYCXzIEC2NvbW1vblN0YXRlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGwABQhjdXJQcmljZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBoAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUIY3VyUHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkBA3BhdQIFC3VzZXJBZGRyZXNzBQZ0eElkNTgJARFkYXRhUHV0QWN0aW9uSW5mbwoFCndyaXRlQW1BbXQFCndyaXRlUHJBbXQFCWVtaXRMcEFtdAUIY3VyUHJpY2UFCHNsaXBwYWdlBQxzbGlwcGFnZUNhbGMFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFBmFtRGlmZgUGcHJEaWZmBQNuaWwJAJ8KDQUJY2FsY0xwQW10BQllbWl0THBBbXQFCGN1clByaWNlBQlhbUJhbGFuY2UFCXByQmFsYW5jZQUEbHBFbQUEbHBJZAUDc3RzBQtjb21tb25TdGF0ZQUGYW1EaWZmBQZwckRpZmYFBmluQW1JZAUGaW5QcklkAQNtb2EBBW9yZGVyBANjZmcJAQNncGMABAdhbXRBc0lkCQCRAwIFA2NmZwUJaWR4QW1Bc0lkBAZwckFzSWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEA3N0cwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUJaWR4UG9vbFN0BAhhbXRBc0RjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20EB3ByQXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20ED2FjY0FtdEFzQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQdhbXRBc0lkBA5hY2NQckFzQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQZwckFzSWQEC2N1clByaWNlWDE4AwkAAAIIBQVvcmRlcglvcmRlclR5cGUFA0J1eQkBA3BjcAQFCGFtdEFzRGNtBQdwckFzRGNtCQBkAgUPYWNjQW10QXNCYWxhbmNlCAUFb3JkZXIGYW1vdW50BQ5hY2NQckFzQmFsYW5jZQkBA3BjcAQFCGFtdEFzRGNtBQdwckFzRGNtCQBlAgUPYWNjQW10QXNCYWxhbmNlCAUFb3JkZXIGYW1vdW50BQ5hY2NQckFzQmFsYW5jZQQIY3VyUHJpY2UJAQJmMQIFC2N1clByaWNlWDE4BQZzY2FsZTgDAwMJAQNpZ3MABgkAAAIFA3N0cwUOUG9vbE1hdGNoZXJEaXMGCQAAAgUDc3RzBQxQb29sU2h1dGRvd24JAAIBAg1BZG1pbiBibG9ja2VkBApvckFtdEFzc2V0CAgFBW9yZGVyCWFzc2V0UGFpcgthbW91bnRBc3NldAQKb3JBbXRBc1N0cgMJAAACBQpvckFtdEFzc2V0BQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQpvckFtdEFzc2V0BAlvclByQXNzZXQICAUFb3JkZXIJYXNzZXRQYWlyCnByaWNlQXNzZXQECW9yUHJBc1N0cgMJAAACBQlvclByQXNzZXQFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFCW9yUHJBc3NldAMDCQECIT0CBQpvckFtdEFzU3RyBQdhbXRBc0lkBgkBAiE9AgUJb3JQckFzU3RyBQZwckFzSWQJAAIBAglXciBhc3NldHMECm9yZGVyUHJpY2UIBQVvcmRlcgVwcmljZQQIcHJpY2VEY20JAGsDBQZzY2FsZTgFB3ByQXNEY20FCGFtdEFzRGNtBA5jYXN0T3JkZXJQcmljZQkBAnRzAwUKb3JkZXJQcmljZQUGc2NhbGU4BQhwcmljZURjbQQRaXNPcmRlclByaWNlVmFsaWQDCQAAAggFBW9yZGVyCW9yZGVyVHlwZQUDQnV5CQBnAgUIY3VyUHJpY2UFDmNhc3RPcmRlclByaWNlCQBnAgUOY2FzdE9yZGVyUHJpY2UFCGN1clByaWNlBgECY2cBAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAgoxIHBtbnQgZXhwBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQKcG10QXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAZwbXRBbXQIBQNwbXQGYW1vdW50BAFyCQEDZWdvBAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQDYBAEFCnBtdEFzc2V0SWQFBnBtdEFtdAgFAWkGY2FsbGVyBAhvdXRBbUFtdAgFAXICXzEECG91dFByQW10CAUBcgJfMgQDc3RzCQENcGFyc2VJbnRWYWx1ZQEIBQFyAl85BAVzdGF0ZQgFAXIDXzEwAwMJAQNpZ3MABgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQACAQkArAICAg9BZG1pbiBibG9ja2VkOiAJAKQDAQUDc3RzCQCXCgUFCG91dEFtQW10BQhvdXRQckFtdAUGcG10QW10BQpwbXRBc3NldElkBQVzdGF0ZQECY3AJBmNhbGxlcgR0eElkB2FtQXNQbXQHcHJBc1BtdAhzbGlwcGFnZQZlbWl0THAKaXNPbmVBc3NldAZwbXRBbXQFcG10SWQEAXIJAQNlcG8MBQR0eElkBQhzbGlwcGFnZQgJAQV2YWx1ZQEFB2FtQXNQbXQGYW1vdW50CAkBBXZhbHVlAQUHYW1Bc1BtdAdhc3NldElkCAkBBXZhbHVlAQUHcHJBc1BtdAZhbW91bnQICQEFdmFsdWUBBQdwckFzUG10B2Fzc2V0SWQFBmNhbGxlcgcFBmVtaXRMcAUKaXNPbmVBc3NldAUGcG10QW10BQVwbXRJZAQDc3RzCQENcGFyc2VJbnRWYWx1ZQEIBQFyAl84AwMDCQEDaWdzAAYJAAACBQNzdHMFClBvb2xQdXREaXMGCQAAAgUDc3RzBQxQb29sU2h1dGRvd24JAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFA3N0cwUBcgEBbQAEByRtYXRjaDAJAKIIAQkBA21wawADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQDZBAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAQJwbQAEByRtYXRjaDAJAKIIAQkBBHBtcGsAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkA2QQBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgACcGQJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAECbW0BAWkEByRtYXRjaDAJAQFtAAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJwawUHJG1hdGNoMAMJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkFAnBrBgUCcGQDCQABAgUHJG1hdGNoMAIEVW5pdAMJAAACCAUBaQZjYWxsZXIFBHRoaXMGBQJwZAkAAgECC01hdGNoIGVycm9yFwFpAQtjb25zdHJ1Y3RvcgECZmMEAWMJAQJtbQEFAWkDCQAAAgUBYwUBYwkAzAgCCQELU3RyaW5nRW50cnkCCQECZmMABQJmYwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnNldE1hbmFnZXIBF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BAFjCQECbW0BBQFpAwkAAAIFAWMFAWMEAmNtCQDZBAEFF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AwkAAAIFAmNtBQJjbQkAzAgCCQELU3RyaW5nRW50cnkCCQEEcG1wawAFF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEOY29uZmlybU1hbmFnZXIABAFwCQECcG0ABANocG0DCQEJaXNEZWZpbmVkAQUBcAYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUDaHBtBQNocG0EA2NwbQMJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAXAGCQACAQIbWW91IGFyZSBub3QgcGVuZGluZyBtYW5hZ2VyAwkAAAIFA2NwbQUDY3BtCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQNtcGsACQDYBAEJAQV2YWx1ZQEFAXAJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBBHBtcGsABQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEDcHV0AgRzbGlwCWF1dG9TdGFrZQQHZmFjdENmZwkBA2dmYwAEC3N0YWtpbmdDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdmYWN0Q2ZnBQ9pZHhGYWN0U3Rha0NudHICCldyIHN0IGFkZHIECHNsaXBDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdmYWN0Q2ZnBRBpZHhGYWN0U2xpcHBDbnRyAgpXciBzbCBhZGRyAwkAZgIAAAUEc2xpcAkAAgECDldyb25nIHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwACCQACAQIMMiBwbW50cyBleHBkBAFlCQECY3AJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AggJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUBaQhwYXltZW50cwABBQRzbGlwBgcAAAIABAllbWl0THBBbXQIBQFlAl8yBAlscEFzc2V0SWQIBQFlAl83BAVzdGF0ZQgFAWUCXzkEBmFtRGlmZggFAWUDXzEwBAZwckRpZmYIBQFlA18xMQQEYW1JZAgFAWUDXzEyBARwcklkCAUBZQNfMTMEAXIJAPwHBAUDZmNhAgRlbWl0CQDMCAIFCWVtaXRMcEFtdAUDbmlsBQNuaWwDCQAAAgUBcgUBcgQCZWwEByRtYXRjaDAFAXIDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQGbGVnYWN5BQckbWF0Y2gwCQD8BwQFBmxlZ2FjeQIEZW1pdAkAzAgCBQllbWl0THBBbXQFA25pbAUDbmlsBQR1bml0AwkAAAIFAmVsBQJlbAQCc2EDCQBmAgUGYW1EaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRhbUlkBQZhbURpZmYFA25pbAUDbmlsAwkAAAIFAnNhBQJzYQQCc3ADCQBmAgUGcHJEaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRwcklkBQZwckRpZmYFA25pbAUDbmlsAwkAAAIFAnNwBQJzcAQIbHBUcm5zZnIDBQlhdXRvU3Rha2UEAnNzCQD8BwQFC3N0YWtpbmdDbnRyAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQlscEFzc2V0SWQFCWVtaXRMcEFtdAUDbmlsAwkAAAIFAnNzBQJzcwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUJZW1pdExwQW10BQlscEFzc2V0SWQFA25pbAkAzggCBQVzdGF0ZQUIbHBUcm5zZnIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJcHV0T25lVGtuBQthbUFzc2V0UGFydAtwckFzc2V0UGFydAVvdXRMcAhzbGlwcGFnZQlhdXRvU3Rha2UEA2NmZwkBA2dmYwAEC3N0YWtpbmdDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQNjZmcFD2lkeEZhY3RTdGFrQ250cgIKV3Igc3QgYWRkcgQIc2xpcENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFA2NmZwUQaWR4RmFjdFNsaXBwQ250cgIKV3Igc2wgYWRkcgQHZ3d4Q250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUDY2ZnBRFpZHhGYWN0R3d4UmV3Q250cgILV3IgZ3d4IGFkZHIEB3Bvb2xDZmcJAQNncGMABARhbUlkCQCRAwIFB3Bvb2xDZmcFCWlkeEFtQXNJZAQEcHJJZAkAkQMCBQdwb29sQ2ZnBQlpZHhQckFzSWQEBWFtRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcG9vbENmZwULaWR4QW10QXNEY20EBXByRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcG9vbENmZwUNaWR4UHJpY2VBc0RjbQQFYWRkb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBA2FkYQACAAQLdXNlckFkZHJlc3MDCQAAAgUFYWRkb24JAKUIAQgFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIIBQFpBmNhbGxlcgQNYWRkb25Db250cmFjdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEDYWRhAAIJbm8gYWRkb25zAhphZGRvbiBhZGRyZXNzIGluIG5vdCB2YWxpZAQFY2hlY2sJAP0HBAUNYWRkb25Db250cmFjdAISZW5zdXJlQ2FuUHV0T25lVGtuCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDbmlsAwkAAAIFBWNoZWNrBQVjaGVjawMDAwMJAGcCAAAFCHNsaXBwYWdlBgkAZwIAAAULYW1Bc3NldFBhcnQGCQBnAgAABQtwckFzc2V0UGFydAYJAGcCAAAFBW91dExwCQACAQIMV3JvbmcgcGFyYW1zAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABApwbXRBc3NldElkCQDYBAEJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQGcG10QW10CAUDcG10BmFtb3VudAMJAGYCAICt4gQFBnBtdEFtdAkAAgECDVdyb25nIHBtdCBhbXQECWFtQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRhbUlkBAlwckJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEcHJJZAQNJHQwMjQ4NTkyNTQzNQMJAAACBQpwbXRBc3NldElkBQRhbUlkAwMJAGYCBQZwbXRBbXQFCWFtQmFsYW5jZQYJAGYCBQthbUFzc2V0UGFydAUGcG10QW10CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAmAoGCQBlAgUJYW1CYWxhbmNlBQZwbXRBbXQFCXByQmFsYW5jZQkAZQIFBnBtdEFtdAULYW1Bc3NldFBhcnQFC3ByQXNzZXRQYXJ0AAAAAAMJAAACBQpwbXRBc3NldElkBQRwcklkAwMJAGYCBQZwbXRBbXQFCXByQmFsYW5jZQYJAGYCBQtwckFzc2V0UGFydAUGcG10QW10CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAmAoGBQlhbUJhbGFuY2UJAGUCBQlwckJhbGFuY2UFBnBtdEFtdAAAAAAJAGUCBQZwbXRBbXQFC3ByQXNzZXRQYXJ0BQthbUFzc2V0UGFydAkAAgECEHdyb25nIHBtdEFzc2V0SWQEDGFtQmFsYW5jZU5vdwgFDSR0MDI0ODU5MjU0MzUCXzEEDHByQmFsYW5jZU5vdwgFDSR0MDI0ODU5MjU0MzUCXzIEDHZpcnRTd2FwSW5BbQgFDSR0MDI0ODU5MjU0MzUCXzMEDXZpcnRTd2FwT3V0UHIIBQ0kdDAyNDg1OTI1NDM1Al80BAx2aXJ0U3dhcEluUHIIBQ0kdDAyNDg1OTI1NDM1Al81BA12aXJ0U3dhcE91dEFtCAUNJHQwMjQ4NTkyNTQzNQJfNgQCRDAJAPwHBAUHZ3d4Q250cgIFY2FsY0QJAMwIAgkApAMBBQxhbUJhbGFuY2VOb3cJAMwIAgkApAMBBQxwckJhbGFuY2VOb3cJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCBQVEY29udgUDbmlsBQNuaWwEAkQxCQD8BwQFB2d3eENudHICBWNhbGNECQDMCAIJAKYDAQkAtgIBCQBlAgkAZAIFDGFtQmFsYW5jZU5vdwUMdmlydFN3YXBJbkFtBQ12aXJ0U3dhcE91dEFtCQDMCAIJAKYDAQkAtgIBCQBlAgkAZAIFDHByQmFsYW5jZU5vdwUMdmlydFN3YXBJblByBQ12aXJ0U3dhcE91dFByCQDMCAIFAUEJAMwIAgUFQW11bHQJAMwIAgUFRGNvbnYFA25pbAUDbmlsBAZEMHZzRDEJAQJ2ZAMJAKcDAQkBA3N0cgEFAkQxCQCnAwEJAQNzdHIBBQJEMAUKc2xpcHBhZ2U0RAMJAAACBQZEMHZzRDEFBkQwdnNEMQQGZXN0UHV0CQECY3AJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRhbUlkBQthbUFzc2V0UGFydAkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEcHJJZAULcHJBc3NldFBhcnQFCHNsaXBwYWdlBgYFBnBtdEFtdAUKcG10QXNzZXRJZAQHZXN0aW1MUAgFBmVzdFB1dAJfMgQJbHBBc3NldElkCAUGZXN0UHV0Al83BAVzdGF0ZQgFBmVzdFB1dAJfOQQGYW1EaWZmCAUGZXN0UHV0A18xMAQGcHJEaWZmCAUGZXN0UHV0A18xMQQJbHBDYWxjUmVzCQEDdmFkAwkAtgIBBQdlc3RpbUxQCQC2AgEFBW91dExwCQC2AgEFCHNsaXBwYWdlBAllbWl0THBBbXQJAKADAQgFCWxwQ2FsY1JlcwJfMgQBZQkA/AcEBQNmY2ECBGVtaXQJAMwIAgUJZW1pdExwQW10BQNuaWwFA25pbAMJAAACBQFlBQFlBAJlbAQHJG1hdGNoMAUBZQMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAZsZWdhY3kFByRtYXRjaDAJAPwHBAUGbGVnYWN5AgRlbWl0CQDMCAIFCWVtaXRMcEFtdAUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZWwFAmVsBAJzYQMJAGYCBQZhbURpZmYAAAkA/AcEBQhzbGlwQ250cgIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEYW1JZAUGYW1EaWZmBQNuaWwFA25pbAMJAAACBQJzYQUCc2EEAnNwAwkAZgIFBnByRGlmZgAACQD8BwQFCHNsaXBDbnRyAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRwcklkBQZwckRpZmYFA25pbAUDbmlsAwkAAAIFAnNwBQJzcAQIbHBUcm5zZnIDBQlhdXRvU3Rha2UEAnNzCQD8BwQFC3N0YWtpbmdDbnRyAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQlscEFzc2V0SWQFCWVtaXRMcEFtdAUDbmlsAwkAAAIFAnNzBQJzcwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUJZW1pdExwQW10BQlscEFzc2V0SWQFA25pbAkAzggCBQVzdGF0ZQUIbHBUcm5zZnIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQELcHV0T25lVGtuVjIDBW91dExwCHNsaXBwYWdlCWF1dG9TdGFrZQQDY2ZnCQEDZ2ZjAAQLc3Rha2luZ0NudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFA2NmZwUPaWR4RmFjdFN0YWtDbnRyAgpXciBzdCBhZGRyBAhzbGlwQ250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUDY2ZnBRBpZHhGYWN0U2xpcHBDbnRyAgpXciBzbCBhZGRyBAdnd3hDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQNjZmcFEWlkeEZhY3RHd3hSZXdDbnRyAgtXciBnd3ggYWRkcgQHcG9vbENmZwkBA2dwYwAEBGFtSWQJAJEDAgUHcG9vbENmZwUJaWR4QW1Bc0lkBARwcklkCQCRAwIFB3Bvb2xDZmcFCWlkeFByQXNJZAQFYW1EY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdwb29sQ2ZnBQtpZHhBbXRBc0RjbQQFcHJEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdwb29sQ2ZnBQ1pZHhQcmljZUFzRGNtBAVhZGRvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEDYWRhAAIABAt1c2VyQWRkcmVzcwMJAAACBQVhZGRvbgkApQgBCAUBaQZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcggFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABApwbXRBc3NldElkCQDYBAEJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQGcG10QW10CAUDcG10BmFtb3VudAMJAGYCAICt4gQFBnBtdEFtdAkAAgECDVdyb25nIHBtdCBhbXQECWFtQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRhbUlkBAlwckJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEcHJJZAQNJHQwMjg2MjgyOTAxNgMJAAACBQpwbXRBc3NldElkBQRhbUlkAwkAZgIFBnBtdEFtdAUJYW1CYWxhbmNlCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCCQBlAgUJYW1CYWxhbmNlBQZwbXRBbXQFCXByQmFsYW5jZQMJAAACBQpwbXRBc3NldElkBQRwcklkAwkAZgIFBnBtdEFtdAUJcHJCYWxhbmNlCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCBQlhbUJhbGFuY2UJAGUCBQlwckJhbGFuY2UFBnBtdEFtdAkAAgECEHdyb25nIHBtdEFzc2V0SWQEDGFtQmFsYW5jZU5vdwgFDSR0MDI4NjI4MjkwMTYCXzEEDHByQmFsYW5jZU5vdwgFDSR0MDI4NjI4MjkwMTYCXzIEDSR0MDI5MDIyMjkxNTYDCQAAAgUKcG10QXNzZXRJZAUEYW1JZAkAlAoCBQxhbUJhbGFuY2VOb3cFDHByQmFsYW5jZU5vdwkAlAoCBQxwckJhbGFuY2VOb3cFDGFtQmFsYW5jZU5vdwQQYW1CYWxhbmNlRm9yQ2FsYwgFDSR0MDI5MDIyMjkxNTYCXzEEEHByQmFsYW5jZUZvckNhbGMIBQ0kdDAyOTAyMjI5MTU2Al8yBAp4UHJlY2lzaW9uAAEEBnJlc3VsdAoAAUAJAPwHBAUHZ3d4Q250cgIMY2FsY1B1dFhPbmx5CQDMCAIJAKQDAQUGcG10QW10CQDMCAIJAKQDAQUQYW1CYWxhbmNlRm9yQ2FsYwkAzAgCCQCkAwEFEHByQmFsYW5jZUZvckNhbGMJAMwIAgIACQDMCAIFAUEJAMwIAgUFQW11bHQJAMwIAgkApAMBBQp4UHJlY2lzaW9uCQDMCAIFBURjb252BQNuaWwFA25pbAMJAAECBQFAAgooSW50LCBJbnQpBQFACQACAQkArAICCQADAQkA/AcEBQdnd3hDbnRyAgxjYWxjUHV0WE9ubHkJAMwIAgkApAMBBQZwbXRBbXQJAMwIAgkApAMBBRBhbUJhbGFuY2VGb3JDYWxjCQDMCAIJAKQDAQUQcHJCYWxhbmNlRm9yQ2FsYwkAzAgCAgAJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCCQCkAwEFCnhQcmVjaXNpb24JAMwIAgUFRGNvbnYFA25pbAUDbmlsAh8gY291bGRuJ3QgYmUgY2FzdCB0byAoSW50LCBJbnQpBA0kdDAyOTY0NTI5NzQxAwkAAAIFCnBtdEFzc2V0SWQFBGFtSWQFBnJlc3VsdAkAlAoCCAUGcmVzdWx0Al8yCAUGcmVzdWx0Al8xBAthbUFzc2V0UGFydAgFDSR0MDI5NjQ1Mjk3NDECXzEEC3ByQXNzZXRQYXJ0CAUNJHQwMjk2NDUyOTc0MQJfMgQGZXN0UHV0CQECY3AJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRhbUlkBQthbUFzc2V0UGFydAkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEcHJJZAULcHJBc3NldFBhcnQFCHNsaXBwYWdlBgYFBnBtdEFtdAUKcG10QXNzZXRJZAQHZXN0aW1MUAgFBmVzdFB1dAJfMgQJbHBBc3NldElkCAUGZXN0UHV0Al83BAVzdGF0ZQgFBmVzdFB1dAJfOQQGYW1EaWZmCAUGZXN0UHV0A18xMAQGcHJEaWZmCAUGZXN0UHV0A18xMQQJZW1pdExwQW10AwkAZgIFBW91dExwAAAECWxwQ2FsY1JlcwkBA3ZhZAMJALYCAQUHZXN0aW1MUAkAtgIBBQVvdXRMcAkAtgIBBQhzbGlwcGFnZQkAoAMBCAUJbHBDYWxjUmVzAl8yBQdlc3RpbUxQBAFlCQD8BwQFA2ZjYQIEZW1pdAkAzAgCBQllbWl0THBBbXQFA25pbAUDbmlsAwkAAAIFAWUFAWUEAmVsBAckbWF0Y2gwBQFlAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEBmxlZ2FjeQUHJG1hdGNoMAkA/AcEBQZsZWdhY3kCBGVtaXQJAMwIAgUJZW1pdExwQW10BQNuaWwFA25pbAUEdW5pdAMJAAACBQJlbAUCZWwEAnNhAwkAZgIFBmFtRGlmZgAACQD8BwQFCHNsaXBDbnRyAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRhbUlkBQZhbURpZmYFA25pbAUDbmlsAwkAAAIFAnNhBQJzYQQCc3ADCQBmAgUGcHJEaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFBHBySWQFBnByRGlmZgUDbmlsBQNuaWwDCQAAAgUCc3AFAnNwBAhscFRybnNmcgMFCWF1dG9TdGFrZQQCc3MJAPwHBAULc3Rha2luZ0NudHICBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCWxwQXNzZXRJZAUJZW1pdExwQW10BQNuaWwDCQAAAgUCc3MFAnNzBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQllbWl0THBBbXQFCWxwQXNzZXRJZAUDbmlsCQDOCAIFBXN0YXRlBQhscFRybnNmcgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpwdXRGb3JGcmVlAQdtYXhTbHBnAwkAZgIAAAUHbWF4U2xwZwkAAgECCldyb25nIHNscGcDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEBmVzdFB1dAkBAmNwCQkApQgBCAUBaQZjYWxsZXIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAgJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAWkIcGF5bWVudHMAAQUHbWF4U2xwZwcHAAACAAgFBmVzdFB1dAJfOQFpAQNnZXQABAFyCQECY2cBBQFpBAlvdXRBbXRBbXQIBQFyAl8xBAhvdXRQckFtdAgFAXICXzIEBnBtdEFtdAgFAXICXzMECnBtdEFzc2V0SWQIBQFyAl80BAVzdGF0ZQgFAXICXzUEAWIJAPwHBAUDZmNhAgRidXJuCQDMCAIFBnBtdEFtdAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQpwbXRBc3NldElkBQZwbXRBbXQFA25pbAMJAAACBQFiBQFiBQVzdGF0ZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQlnZXRPbmVUa24FCmV4Y2hSZXN1bHQHbm90VXNlZAlvdXRBbW91bnQKb3V0QXNzZXRJZAhzbGlwcGFnZQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECCzEgcG1udCBleHBkBANjZmcJAQNncGMABARscElkCQCRAwIFA2NmZwUJaWR4TFBBc0lkBARhbUlkCQCRAwIFA2NmZwUJaWR4QW1Bc0lkBARwcklkCQCRAwIFA2NmZwUJaWR4UHJBc0lkBAVhbURjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20EBXByRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBANzdHMJAJEDAgUDY2ZnBQlpZHhQb29sU3QEB2ZhY3RDZmcJAQNnZmMABAdnd3hDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdmYWN0Q2ZnBRFpZHhGYWN0R3d4UmV3Q250cgIKV3Igc2wgYWRkcgQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAEBWFkZG9uCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQNhZGEAAgAEC3VzZXJBZGRyZXNzAwkAAAIFBWFkZG9uCQClCAEIBQFpBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyCAUBaQZjYWxsZXIEBnR4SWQ1OAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkBApwbXRBc3NldElkCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQEBnBtdEFtdAgFA3BtdAZhbW91bnQEDWFkZG9uQ29udHJhY3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBA2FkYQACCW5vIGFkZG9ucwIaYWRkb24gYWRkcmVzcyBpbiBub3QgdmFsaWQEBWNoZWNrCQD9BwQFDWFkZG9uQ29udHJhY3QCEmVuc3VyZUNhbkdldE9uZVRrbgkAzAgCCQClCAEFC3VzZXJBZGRyZXNzBQNuaWwFA25pbAMJAAACBQVjaGVjawUFY2hlY2sDCQBmAgCAlOvcAwUGcG10QW10CQACAQINTWluIHBtdCAxMCBMUAMDAwkAZgIAAAUIc2xpcHBhZ2UGCQBmAgAABQpleGNoUmVzdWx0BgkAZgIAAAUJb3V0QW1vdW50CQACAQIMV3JvbmcgcGFyYW1zAwkBAiE9AgUEbHBJZAkA2AQBBQpwbXRBc3NldElkCQACAQIIV3JvbmcgTFAEAXIJAQNlZ28ECQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJANgEAQUKcG10QXNzZXRJZAUGcG10QW10CAUBaQZjYWxsZXIECmVzdGltQW1BbXQIBQFyAl8xBAplc3RpbVByQW10CAUBcgJfMgQJYW1CYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBGFtSWQECXByQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRwcklkBA0kdDAzNDE1NTM0NjEyAwkAAAIFCm91dEFzc2V0SWQFBGFtSWQJAJkKBwkAZQIFCWFtQmFsYW5jZQUKZXN0aW1BbUFtdAkAZQIFCXByQmFsYW5jZQUKZXN0aW1QckFtdAUKZXhjaFJlc3VsdAUKZXN0aW1QckFtdAAAAAAJAGQCBQplc3RpbUFtQW10BQpleGNoUmVzdWx0AwkAAAIFCm91dEFzc2V0SWQFBHBySWQJAJkKBwkAZQIFCWFtQmFsYW5jZQUKZXN0aW1BbUFtdAkAZQIFCXByQmFsYW5jZQUKZXN0aW1QckFtdAAAAAAFCmV4Y2hSZXN1bHQFCmVzdGltQW1BbXQJAGQCBQplc3RpbVByQW10BQpleGNoUmVzdWx0CQACAQIQd3Jvbmcgb3V0QXNzZXRJZAQMYW1CYWxhbmNlTm93CAUNJHQwMzQxNTUzNDYxMgJfMQQMcHJCYWxhbmNlTm93CAUNJHQwMzQxNTUzNDYxMgJfMgQMdmlydFN3YXBJbkFtCAUNJHQwMzQxNTUzNDYxMgJfMwQNdmlydFN3YXBPdXRQcggFDSR0MDM0MTU1MzQ2MTICXzQEDHZpcnRTd2FwSW5QcggFDSR0MDM0MTU1MzQ2MTICXzUEDXZpcnRTd2FwT3V0QW0IBQ0kdDAzNDE1NTM0NjEyAl82BAh0b3RhbEdldAgFDSR0MDM0MTU1MzQ2MTICXzcDAwkAZgIAAAUMdmlydFN3YXBJbkFtBgkAZgIAAAUMdmlydFN3YXBJblByCQACAQIKV3JvbmcgY2FsYwQCRDAJAPwHBAUHZ3d4Q250cgIFY2FsY0QJAMwIAgkApAMBBQxhbUJhbGFuY2VOb3cJAMwIAgkApAMBBQxwckJhbGFuY2VOb3cJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCBQVEY29udgUDbmlsBQNuaWwEAkQxCQD8BwQFB2d3eENudHICBWNhbGNECQDMCAIJAKQDAQkAZAIJAGUCBQxhbUJhbGFuY2VOb3cFDHZpcnRTd2FwSW5BbQUNdmlydFN3YXBPdXRBbQkAzAgCCQCkAwEJAGUCCQBkAgUMcHJCYWxhbmNlTm93BQ12aXJ0U3dhcE91dFByBQx2aXJ0U3dhcEluUHIJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCBQVEY29udgUDbmlsBQNuaWwEBkQwdnNEMQkBAnZkAwkApwMBCQEDc3RyAQUCRDEJAKcDAQkBA3N0cgEFAkQwBQpzbGlwcGFnZTREAwkAAAIFBkQwdnNEMQUGRDB2c0QxBAhmaW5hbFJlcwkBA3ZhZAMJALYCAQUIdG90YWxHZXQJALYCAQUJb3V0QW1vdW50CQC2AgEFCHNsaXBwYWdlAwkAAAIFCGZpbmFsUmVzBQhmaW5hbFJlcwQNJHQwMzUzMTczNTQyMQMJAAACBQpvdXRBc3NldElkBQRhbUlkCQCUCgIJAKADAQgFCGZpbmFsUmVzAl8yAAAJAJQKAgAACQCgAwEIBQhmaW5hbFJlcwJfMgQFb3V0QW0IBQ0kdDAzNTMxNzM1NDIxAl8xBAVvdXRQcggFDSR0MDM1MzE3MzU0MjECXzIECGN1clByWDE4CQEEY3BiaQIJAQJ0MQIFCXByQmFsYW5jZQUFcHJEY20JAQJ0MQIFCWFtQmFsYW5jZQUFYW1EY20EBWN1clByCQECZjECBQhjdXJQclgxOAUGc2NhbGU4BAVzdGF0ZQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQt1c2VyQWRkcmVzcwkAZAIFBW91dEFtBQVvdXRQcgMJAAACBQpvdXRBc3NldElkAgVXQVZFUwUEdW5pdAkA2QQBBQpvdXRBc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQNnYXUCCQClCAEFC3VzZXJBZGRyZXNzBQZ0eElkNTgJARFkYXRhR2V0QWN0aW9uSW5mbwYFBW91dEFtBQVvdXRQcgUGcG10QW10BQVjdXJQcgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBsAAUFY3VyUHIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJwaAIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFBWN1clByBQNuaWwDCQAAAgUFc3RhdGUFBXN0YXRlBARidXJuCQD8BwQFA2ZjYQIEYnVybgkAzAgCBQZwbXRBbXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUKcG10QXNzZXRJZAUGcG10QW10BQNuaWwDCQAAAgUEYnVybgUEYnVybgUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQELZ2V0T25lVGtuVjIDCW91dEFtb3VudApvdXRBc3NldElkCHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEA2NmZwkBA2dwYwAEBGxwSWQJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEBGFtSWQJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEBHBySWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEBWFtRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQFcHJEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQHZmFjdENmZwkBA2dmYwAEB2d3eENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB2ZhY3RDZmcFEWlkeEZhY3RHd3hSZXdDbnRyAgpXciBzbCBhZGRyBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQFYWRkb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBA2FkYQACAAQLdXNlckFkZHJlc3MDCQAAAgUFYWRkb24JAKUIAQgFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIIBQFpBmNhbGxlcgQGdHhJZDU4CQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQECnBtdEFzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQGcG10QW10CAUDcG10BmFtb3VudAMJAGYCAICU69wDBQZwbXRBbXQJAAIBAg1NaW4gcG10IDEwIExQAwMJAGYCAAAFCHNsaXBwYWdlBgkAZgIAAAUJb3V0QW1vdW50CQACAQIMV3JvbmcgcGFyYW1zAwkBAiE9AgUEbHBJZAkA2AQBBQpwbXRBc3NldElkCQACAQIIV3JvbmcgTFAEAXIJAQNlZ28ECQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJANgEAQUKcG10QXNzZXRJZAUGcG10QW10CAUBaQZjYWxsZXIECmVzdGltQW1BbXQIBQFyAl8xBAplc3RpbVByQW10CAUBcgJfMgQJYW1CYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBGFtSWQECXByQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRwcklkBAxhbUJhbGFuY2VOb3cJAGUCBQlhbUJhbGFuY2UFCmVzdGltQW1BbXQEDHByQmFsYW5jZU5vdwkAZQIFCXByQmFsYW5jZQUKZXN0aW1QckFtdAQNJHQwMzc2NzAzNzk0MQMJAAACBQpvdXRBc3NldElkBQRhbUlkCQCVCgMFDHByQmFsYW5jZU5vdwUMYW1CYWxhbmNlTm93BQplc3RpbVByQW10AwkAAAIFCm91dEFzc2V0SWQFBHBySWQJAJUKAwUMYW1CYWxhbmNlTm93BQxwckJhbGFuY2VOb3cFCmVzdGltQW1BbXQJAAIBAhB3cm9uZyBvdXRBc3NldElkBBRhbW91bnRCYWxhbmNlRm9yU3dhcAgFDSR0MDM3NjcwMzc5NDECXzEEE3ByaWNlQmFsYW5jZUZvclN3YXAIBQ0kdDAzNzY3MDM3OTQxAl8yBAxhbW91bnRUb1N3YXAIBQ0kdDAzNzY3MDM3OTQxAl8zBAp5UHJlY2lzaW9uAAEECmV4Y2hSZXN1bHQKAAFACQD8BwQFB2d3eENudHICDGNhbGNTd2FwWFRvWQkAzAgCCQCkAwEFDGFtb3VudFRvU3dhcAkAzAgCCQCkAwEFFGFtb3VudEJhbGFuY2VGb3JTd2FwCQDMCAIJAKQDAQUTcHJpY2VCYWxhbmNlRm9yU3dhcAkAzAgCAgAJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCCQCkAwEFCnlQcmVjaXNpb24JAMwIAgUFRGNvbnYFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEJAPwHBAUHZ3d4Q250cgIMY2FsY1N3YXBYVG9ZCQDMCAIJAKQDAQUMYW1vdW50VG9Td2FwCQDMCAIJAKQDAQUUYW1vdW50QmFsYW5jZUZvclN3YXAJAMwIAgkApAMBBRNwcmljZUJhbGFuY2VGb3JTd2FwCQDMCAICAAkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIJAKQDAQUKeVByZWNpc2lvbgkAzAgCBQVEY29udgUDbmlsBQNuaWwCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAQIdG90YWxHZXQDCQAAAgUKb3V0QXNzZXRJZAUEYW1JZAkAZAIFCmVzdGltQW1BbXQFCmV4Y2hSZXN1bHQJAGQCBQplc3RpbVByQW10BQpleGNoUmVzdWx0BAhmaW5hbFJlcwkBA3ZhZAMJALYCAQUIdG90YWxHZXQJALYCAQUJb3V0QW1vdW50CQC2AgEFCHNsaXBwYWdlAwkAAAIFCGZpbmFsUmVzBQhmaW5hbFJlcwQNJHQwMzg2MDkzODcxMwMJAAACBQpvdXRBc3NldElkBQRhbUlkCQCUCgIJAKADAQgFCGZpbmFsUmVzAl8yAAAJAJQKAgAACQCgAwEIBQhmaW5hbFJlcwJfMgQFb3V0QW0IBQ0kdDAzODYwOTM4NzEzAl8xBAVvdXRQcggFDSR0MDM4NjA5Mzg3MTMCXzIECGN1clByWDE4CQEEY3BiaQIJAQJ0MQIFCXByQmFsYW5jZQUFcHJEY20JAQJ0MQIFCWFtQmFsYW5jZQUFYW1EY20EBWN1clByCQECZjECBQhjdXJQclgxOAUGc2NhbGU4BAVzdGF0ZQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQt1c2VyQWRkcmVzcwkAZAIFBW91dEFtBQVvdXRQcgMJAAACBQpvdXRBc3NldElkAgVXQVZFUwUEdW5pdAkA2QQBBQpvdXRBc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQNnYXUCCQClCAEFC3VzZXJBZGRyZXNzBQZ0eElkNTgJARFkYXRhR2V0QWN0aW9uSW5mbwYFBW91dEFtBQVvdXRQcgUGcG10QW10BQVjdXJQcgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBsAAUFY3VyUHIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJwaAIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFBWN1clByBQNuaWwDCQAAAgUFc3RhdGUFBXN0YXRlBARidXJuCQD8BwQFA2ZjYQIEYnVybgkAzAgCBQZwbXRBbXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUKcG10QXNzZXRJZAUGcG10QW10BQNuaWwDCQAAAgUEYnVybgUEYnVybgUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJZ2V0Tm9MZXNzAhJub0xlc3NUaGVuQW10QXNzZXQUbm9MZXNzVGhlblByaWNlQXNzZXQEAXIJAQJjZwEFAWkECG91dEFtQW10CAUBcgJfMQQIb3V0UHJBbXQIBQFyAl8yBAZwbXRBbXQIBQFyAl8zBApwbXRBc3NldElkCAUBcgJfNAQFc3RhdGUIBQFyAl81AwkAZgIFEm5vTGVzc1RoZW5BbXRBc3NldAUIb3V0QW1BbXQJAAIBCQCsAgIJAKwCAgkArAICAglGYWlsZWQ6ICAJAKQDAQUIb3V0QW1BbXQCAyA8IAkApAMBBRJub0xlc3NUaGVuQW10QXNzZXQDCQBmAgUUbm9MZXNzVGhlblByaWNlQXNzZXQFCG91dFByQW10CQACAQkArAICCQCsAgIJAKwCAgIIRmFpbGVkOiAJAKQDAQUIb3V0UHJBbXQCAyA8IAkApAMBBRRub0xlc3NUaGVuUHJpY2VBc3NldAQUYnVybkxQQXNzZXRPbkZhY3RvcnkJAPwHBAUDZmNhAgRidXJuCQDMCAIFBnBtdEFtdAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQpwbXRBc3NldElkBQZwbXRBbXQFA25pbAMJAAACBRRidXJuTFBBc3NldE9uRmFjdG9yeQUUYnVybkxQQXNzZXRPbkZhY3RvcnkFBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDXVuc3Rha2VBbmRHZXQBBmFtb3VudAQNY2hlY2tQYXltZW50cwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECDU5vIHBtbnRzIGV4cGQGAwkAAAIFDWNoZWNrUGF5bWVudHMFDWNoZWNrUGF5bWVudHMEA2NmZwkBA2dwYwAECmZhY3RvcnlDZmcJAQNnZmMABAlscEFzc2V0SWQJANkEAQkAkQMCBQNjZmcFCWlkeExQQXNJZAQHc3Rha2luZwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUKZmFjdG9yeUNmZwUPaWR4RmFjdFN0YWtDbnRyAgpXciBzdCBhZGRyBAp1bnN0YWtlSW52CQD8BwQFB3N0YWtpbmcCB3Vuc3Rha2UJAMwIAgkA2AQBBQlscEFzc2V0SWQJAMwIAgUGYW1vdW50BQNuaWwFA25pbAMJAAACBQp1bnN0YWtlSW52BQp1bnN0YWtlSW52BAFyCQEDZWdvBAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQDYBAEFCWxwQXNzZXRJZAUGYW1vdW50CAUBaQZjYWxsZXIEA3N0cwkBDXBhcnNlSW50VmFsdWUBCAUBcgJfOQQFc3RhdGUIBQFyA18xMAQBdgMDCQEDaWdzAAYJAAACBQNzdHMFDFBvb2xTaHV0ZG93bgkAAgEJAKwCAgIJQmxvY2tlZDogCQCkAwEFA3N0cwYDCQAAAgUBdgUBdgQFYnVybkEJAPwHBAUDZmNhAgRidXJuCQDMCAIFBmFtb3VudAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQlscEFzc2V0SWQFBmFtb3VudAUDbmlsAwkAAAIFBWJ1cm5BBQVidXJuQQUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYWN0aXZhdGUCCGFtdEFzU3RyB3ByQXNTdHIDCQECIT0CCQClCAEIBQFpBmNhbGxlcgkApQgBBQNmY2EJAAIBAgZkZW5pZWQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQECYWEABQhhbXRBc1N0cgkAzAgCCQELU3RyaW5nRW50cnkCCQECcGEABQdwckFzU3RyBQNuaWwCB3N1Y2Nlc3MBaQEEc2V0UwIBawF2AwkBAiE9AgkApQgBCAUBaQZjYWxsZXIJAQRzdHJmAgUEdGhpcwkBA2FkYQAFAnBkCQDMCAIJAQtTdHJpbmdFbnRyeQIFAWsFAXYFA25pbAFpAQRzZXRJAgFrAXYDCQECIT0CCQClCAEIBQFpBmNhbGxlcgkBBHN0cmYCBQR0aGlzCQEDYWRhAAUCcGQJAMwIAgkBDEludGVnZXJFbnRyeQIFAWsFAXYFA25pbAFpARxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZAAkAlAoCBQNuaWwJAQNncGMAAWkBHGdldEFjY0JhbGFuY2VXcmFwcGVyUkVBRE9OTFkBB2Fzc2V0SWQJAJQKAgUDbmlsCQENZ2V0QWNjQmFsYW5jZQEFB2Fzc2V0SWQBaQEZY2FsY1ByaWNlc1dyYXBwZXJSRUFET05MWQMFYW1BbXQFcHJBbXQFbHBBbXQEAnByCQEKY2FsY1ByaWNlcwMFBWFtQW10BQVwckFtdAUFbHBBbXQJAJQKAgUDbmlsCQDMCAIJAKYDAQkAkQMCBQJwcgAACQDMCAIJAKYDAQkAkQMCBQJwcgABCQDMCAIJAKYDAQkAkQMCBQJwcgACBQNuaWwBaQEWZnJvbVgxOFdyYXBwZXJSRUFET05MWQIDdmFsDHJlc1NjYWxlTXVsdAkAlAoCBQNuaWwJAQJmMQIJAKcDAQUDdmFsBQxyZXNTY2FsZU11bHQBaQEUdG9YMThXcmFwcGVyUkVBRE9OTFkCB29yaWdWYWwNb3JpZ1NjYWxlTXVsdAkAlAoCBQNuaWwJAKYDAQkBAnQxAgUHb3JpZ1ZhbAUNb3JpZ1NjYWxlTXVsdAFpAR5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkCCHByQW10WDE4CGFtQW10WDE4CQCUCgIFA25pbAkApgMBCQEEY3BiaQIJAKcDAQUIcHJBbXRYMTgJAKcDAQUIYW1BbXRYMTgBaQEjZXN0aW1hdGVQdXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkJBnR4SWQ1OAhzbGlwcGFnZQdpbkFtQW10BmluQW1JZAdpblByQW10BmluUHJJZAd1c3JBZGRyBmlzRXZhbAZlbWl0THAJAJQKAgUDbmlsCQEDZXBvDAUGdHhJZDU4BQhzbGlwcGFnZQUHaW5BbUFtdAUGaW5BbUlkBQdpblByQW10BQZpblBySWQFB3VzckFkZHIFBmlzRXZhbAUGZW1pdExwBwAAAgABaQEjZXN0aW1hdGVHZXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkEBnR4SWQ1OAdwbXRBc0lkCHBtdExwQW10B3VzckFkZHIEAXIJAQNlZ28EBQZ0eElkNTgFB3BtdEFzSWQFCHBtdExwQW10CQERQGV4dHJOYXRpdmUoMTA2MikBBQd1c3JBZGRyCQCUCgIFA25pbAkAnAoKCAUBcgJfMQgFAXICXzIIBQFyAl8zCAUBcgJfNAgFAXICXzUIBQFyAl82CAUBcgJfNwkApgMBCAUBcgJfOAgFAXICXzkIBQFyA18xMAECdHgBBnZlcmlmeQAED3RhcmdldFB1YmxpY0tleQQHJG1hdGNoMAkBAW0AAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAnBrBQckbWF0Y2gwBQJwawMJAAECBQckbWF0Y2gwAgRVbml0CAUCdHgPc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IEByRtYXRjaDAFAnR4AwkAAQIFByRtYXRjaDACBU9yZGVyBAVvcmRlcgUHJG1hdGNoMAQKbWF0Y2hlclB1YgkBAm1wAAQKb3JkZXJWYWxpZAkBA21vYQEFBW9yZGVyBAtzZW5kZXJWYWxpZAkA9AMDCAUFb3JkZXIJYm9keUJ5dGVzCQCRAwIIBQVvcmRlcgZwcm9vZnMAAAgFBW9yZGVyD3NlbmRlclB1YmxpY0tleQQMbWF0Y2hlclZhbGlkCQD0AwMIBQVvcmRlcglib2R5Qnl0ZXMJAJEDAggFBW9yZGVyBnByb29mcwABBQptYXRjaGVyUHViAwMDBQpvcmRlclZhbGlkBQtzZW5kZXJWYWxpZAcFDG1hdGNoZXJWYWxpZAcGCQEDdG9lAwUKb3JkZXJWYWxpZAULc2VuZGVyVmFsaWQFDG1hdGNoZXJWYWxpZAMJAAECBQckbWF0Y2gwAhRTZXRTY3JpcHRUcmFuc2FjdGlvbgQBcwUHJG1hdGNoMAQHbmV3SGFzaAkA9gMBCQEFdmFsdWUBCAUBcwZzY3JpcHQEC2FsbG93ZWRIYXNoCQDbBAEJAQV2YWx1ZQEJAJ0IAgUDZmNhCQEca2V5QWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaAAEC2N1cnJlbnRIYXNoCQDxBwEFBHRoaXMDAwkAAAIFC2FsbG93ZWRIYXNoBQduZXdIYXNoCQECIT0CBQtjdXJyZW50SGFzaAUHbmV3SGFzaAcGCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQ90YXJnZXRQdWJsaWNLZXkJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFD3RhcmdldFB1YmxpY0tleaNSB1Q=", "height": 2226128, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: J5Lh9MkQ91t9KECkv7tAdt17itVkLFbzdZMGejJ2G3RB Next: 3FHVSoK2YzRUsJoZnyKVb1Driz7hdpVUEgbC8LDBsFqe Diff:
OldNewDifferences
66 let scale8BigInt = toBigInt(100000000)
77
88 let scale18 = toBigInt(1000000000000000000)
9-
10-let thousand = 1000
119
1210 let zeroBigInt = toBigInt(0)
1311
5553
5654 let idxFactGwxRewCntr = 10
5755
58-let feePermilleDefault = 0
56+let delay = "%s__delay"
5957
6058 func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
6159
104102 func ada () = "%s__addonAddr"
105103
106104
107-let keyFeePermille = "%s__feePermille"
105+func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
108106
109-let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
107+
108+func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
109+
110110
111111 func fcfg () = "%s__factoryConfig"
112112
124124
125125
126126 func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127-
128-
129-func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
130127
131128
132129 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
155152
156153 func mp () = fromBase58String(strf(fca, mtpk()))
157154
158-
159-let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
160155
161156 func gpc () = {
162157 let amtAs = strf(this, aa())
342337 else calcLpAmt
343338 let amDiff = (inAmAmt - calcAmAssetPmt)
344339 let prDiff = (inPrAmt - calcPrAssetPmt)
345- let $t01568216027 = if (if (isOneAsset)
340+ let $t01560115946 = if (if (isOneAsset)
346341 then (pmtId == amIdStr)
347342 else false)
348343 then $Tuple2(pmtAmt, 0)
351346 else false)
352347 then $Tuple2(0, pmtAmt)
353348 else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
354- let writeAmAmt = $t01568216027._1
355- let writePrAmt = $t01568216027._2
349+ let writeAmAmt = $t01560115946._1
350+ let writePrAmt = $t01560115946._2
356351 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))]
357352 $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
358353 }
433428 else (sts == PoolShutdown))
434429 then throw(("Blocked:" + toString(sts)))
435430 else r
436- }
437-
438-
439-func takeFee (amount) = {
440- let fee = fraction(amount, feePermille, thousand)
441- $Tuple2((amount - fee), fee)
442431 }
443432
444433
599588 let userAddress = if ((addon == toString(i.caller)))
600589 then i.originCaller
601590 else i.caller
602- if (if (if (if ((0 >= slippage))
603- then true
604- else (0 >= amAssetPart))
605- then true
606- else (0 >= prAssetPart))
607- then true
608- else (0 >= outLp))
609- then throw("Wrong params")
610- else if ((size(i.payments) != 1))
611- then throw("1 pmnt expd")
612- else {
613- let pmt = value(i.payments[0])
614- let pmtAssetId = toBase58String(value(pmt.assetId))
615- let paymentAmountRaw = pmt.amount
616- let $t02464424696 = takeFee(paymentAmountRaw)
617- let pmtAmt = $t02464424696._1
618- let feeAmount = $t02464424696._2
619- if ((10000000 > paymentAmountRaw))
620- then throw("Wrong pmt amt")
621- else {
622- let amBalance = getAccBalance(amId)
623- let prBalance = getAccBalance(prId)
624- let $t02485625472 = if ((pmtAssetId == amId))
625- then if (if ((paymentAmountRaw > amBalance))
626- then true
627- else (amAssetPart > pmtAmt))
591+ let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592+ let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593+ if ((check == check))
594+ then if (if (if (if ((0 >= slippage))
595+ then true
596+ else (0 >= amAssetPart))
597+ then true
598+ else (0 >= prAssetPart))
599+ then true
600+ else (0 >= outLp))
601+ then throw("Wrong params")
602+ else if ((size(i.payments) != 1))
603+ then throw("1 pmnt expd")
604+ else {
605+ let pmt = value(i.payments[0])
606+ let pmtAssetId = toBase58String(value(pmt.assetId))
607+ let pmtAmt = pmt.amount
608+ if ((10000000 > pmtAmt))
609+ then throw("Wrong pmt amt")
610+ else {
611+ let amBalance = getAccBalance(amId)
612+ let prBalance = getAccBalance(prId)
613+ let $t02485925435 = if ((pmtAssetId == amId))
614+ then if (if ((pmtAmt > amBalance))
615+ then true
616+ else (amAssetPart > pmtAmt))
617+ then throw("invalid payment amount")
618+ else $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
619+ else if ((pmtAssetId == prId))
620+ then if (if ((pmtAmt > prBalance))
621+ then true
622+ else (prAssetPart > pmtAmt))
623+ then throw("invalid payment amount")
624+ else $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
625+ else throw("wrong pmtAssetId")
626+ let amBalanceNow = $t02485925435._1
627+ let prBalanceNow = $t02485925435._2
628+ let virtSwapInAm = $t02485925435._3
629+ let virtSwapOutPr = $t02485925435._4
630+ let virtSwapInPr = $t02485925435._5
631+ let virtSwapOutAm = $t02485925435._6
632+ let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
633+ let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
634+ let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
635+ if ((D0vsD1 == D0vsD1))
636+ then {
637+ let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
638+ let estimLP = estPut._2
639+ let lpAssetId = estPut._7
640+ let state = estPut._9
641+ let amDiff = estPut._10
642+ let prDiff = estPut._11
643+ let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
644+ let emitLpAmt = toInt(lpCalcRes._2)
645+ let e = invoke(fca, "emit", [emitLpAmt], nil)
646+ if ((e == e))
647+ then {
648+ let el = match e {
649+ case legacy: Address =>
650+ invoke(legacy, "emit", [emitLpAmt], nil)
651+ case _ =>
652+ unit
653+ }
654+ if ((el == el))
655+ then {
656+ let sa = if ((amDiff > 0))
657+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
658+ else nil
659+ if ((sa == sa))
660+ then {
661+ let sp = if ((prDiff > 0))
662+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
663+ else nil
664+ if ((sp == sp))
665+ then {
666+ let lpTrnsfr = if (autoStake)
667+ then {
668+ let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
669+ if ((ss == ss))
670+ then nil
671+ else throw("Strict value is not equal to itself.")
672+ }
673+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
674+ (state ++ lpTrnsfr)
675+ }
676+ else throw("Strict value is not equal to itself.")
677+ }
678+ else throw("Strict value is not equal to itself.")
679+ }
680+ else throw("Strict value is not equal to itself.")
681+ }
682+ else throw("Strict value is not equal to itself.")
683+ }
684+ else throw("Strict value is not equal to itself.")
685+ }
686+ }
687+ else throw("Strict value is not equal to itself.")
688+ }
689+
690+
691+
692+@Callable(i)
693+func putOneTknV2 (outLp,slippage,autoStake) = {
694+ let cfg = gfc()
695+ let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
696+ let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
697+ let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
698+ let poolCfg = gpc()
699+ let amId = poolCfg[idxAmAsId]
700+ let prId = poolCfg[idxPrAsId]
701+ let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
702+ let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
703+ let addon = valueOrElse(getString(this, ada()), "")
704+ let userAddress = if ((addon == toString(i.caller)))
705+ then i.originCaller
706+ else i.caller
707+ if ((size(i.payments) != 1))
708+ then throw("1 pmnt expd")
709+ else {
710+ let pmt = value(i.payments[0])
711+ let pmtAssetId = toBase58String(value(pmt.assetId))
712+ let pmtAmt = pmt.amount
713+ if ((10000000 > pmtAmt))
714+ then throw("Wrong pmt amt")
715+ else {
716+ let amBalance = getAccBalance(amId)
717+ let prBalance = getAccBalance(prId)
718+ let $t02862829016 = if ((pmtAssetId == amId))
719+ then if ((pmtAmt > amBalance))
720+ then throw("invalid payment amount")
721+ else $Tuple2((amBalance - pmtAmt), prBalance)
722+ else if ((pmtAssetId == prId))
723+ then if ((pmtAmt > prBalance))
628724 then throw("invalid payment amount")
629- else $Tuple6((amBalance - paymentAmountRaw), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
630- else if ((pmtAssetId == prId))
631- then if (if ((paymentAmountRaw > prBalance))
632- then true
633- else (prAssetPart > pmtAmt))
634- then throw("invalid payment amount")
635- else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
636- else throw("wrong pmtAssetId")
637- let amBalanceNow = $t02485625472._1
638- let prBalanceNow = $t02485625472._2
639- let virtSwapInAm = $t02485625472._3
640- let virtSwapOutPr = $t02485625472._4
641- let virtSwapInPr = $t02485625472._5
642- let virtSwapOutAm = $t02485625472._6
643- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
644- let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
645- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
646- if ((D0vsD1 == D0vsD1))
647- then {
648- let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
649- let estimLP = estPut._2
650- let lpAssetId = estPut._7
651- let state = estPut._9
652- let amDiff = estPut._10
653- let prDiff = estPut._11
654- let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
655- let emitLpAmt = toInt(lpCalcRes._2)
656- let e = invoke(fca, "emit", [emitLpAmt], nil)
657- if ((e == e))
658- then {
659- let el = match e {
660- case legacy: Address =>
661- invoke(legacy, "emit", [emitLpAmt], nil)
662- case _ =>
663- unit
664- }
665- if ((el == el))
666- then {
667- let sa = if ((amDiff > 0))
668- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
669- else nil
670- if ((sa == sa))
671- then {
672- let sp = if ((prDiff > 0))
673- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
674- else nil
675- if ((sp == sp))
676- then {
677- let lpTrnsfr = if (autoStake)
678- then {
679- let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
680- if ((ss == ss))
681- then nil
682- else throw("Strict value is not equal to itself.")
683- }
684- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
685- let sendFeeToMatcher = if ((feeAmount > 0))
686- then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
687- else nil
688- ((state ++ lpTrnsfr) ++ sendFeeToMatcher)
689- }
690- else throw("Strict value is not equal to itself.")
691- }
692- else throw("Strict value is not equal to itself.")
693- }
694- else throw("Strict value is not equal to itself.")
695- }
696- else throw("Strict value is not equal to itself.")
697- }
698- else throw("Strict value is not equal to itself.")
725+ else $Tuple2(amBalance, (prBalance - pmtAmt))
726+ else throw("wrong pmtAssetId")
727+ let amBalanceNow = $t02862829016._1
728+ let prBalanceNow = $t02862829016._2
729+ let $t02902229156 = if ((pmtAssetId == amId))
730+ then $Tuple2(amBalanceNow, prBalanceNow)
731+ else $Tuple2(prBalanceNow, amBalanceNow)
732+ let amBalanceForCalc = $t02902229156._1
733+ let prBalanceForCalc = $t02902229156._2
734+ let xPrecision = 1
735+ let result = {
736+ let @ = invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)
737+ if ($isInstanceOf(@, "(Int, Int)"))
738+ then @
739+ else throw(($getType(invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)) + " couldn't be cast to (Int, Int)"))
699740 }
700- }
741+ let $t02964529741 = if ((pmtAssetId == amId))
742+ then result
743+ else $Tuple2(result._2, result._1)
744+ let amAssetPart = $t02964529741._1
745+ let prAssetPart = $t02964529741._2
746+ let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
747+ let estimLP = estPut._2
748+ let lpAssetId = estPut._7
749+ let state = estPut._9
750+ let amDiff = estPut._10
751+ let prDiff = estPut._11
752+ let emitLpAmt = if ((outLp > 0))
753+ then {
754+ let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
755+ toInt(lpCalcRes._2)
756+ }
757+ else estimLP
758+ let e = invoke(fca, "emit", [emitLpAmt], nil)
759+ if ((e == e))
760+ then {
761+ let el = match e {
762+ case legacy: Address =>
763+ invoke(legacy, "emit", [emitLpAmt], nil)
764+ case _ =>
765+ unit
766+ }
767+ if ((el == el))
768+ then {
769+ let sa = if ((amDiff > 0))
770+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
771+ else nil
772+ if ((sa == sa))
773+ then {
774+ let sp = if ((prDiff > 0))
775+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
776+ else nil
777+ if ((sp == sp))
778+ then {
779+ let lpTrnsfr = if (autoStake)
780+ then {
781+ let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
782+ if ((ss == ss))
783+ then nil
784+ else throw("Strict value is not equal to itself.")
785+ }
786+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
787+ (state ++ lpTrnsfr)
788+ }
789+ else throw("Strict value is not equal to itself.")
790+ }
791+ else throw("Strict value is not equal to itself.")
792+ }
793+ else throw("Strict value is not equal to itself.")
794+ }
795+ else throw("Strict value is not equal to itself.")
796+ }
797+ }
701798 }
702799
703800
751848 let txId58 = toBase58String(i.transactionId)
752849 let pmtAssetId = value(pmt.assetId)
753850 let pmtAmt = pmt.amount
851+ let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
852+ let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
853+ if ((check == check))
854+ then if ((1000000000 > pmtAmt))
855+ then throw("Min pmt 10 LP")
856+ else if (if (if ((0 > slippage))
857+ then true
858+ else (0 > exchResult))
859+ then true
860+ else (0 > outAmount))
861+ then throw("Wrong params")
862+ else if ((lpId != toBase58String(pmtAssetId)))
863+ then throw("Wrong LP")
864+ else {
865+ let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
866+ let estimAmAmt = r._1
867+ let estimPrAmt = r._2
868+ let amBalance = getAccBalance(amId)
869+ let prBalance = getAccBalance(prId)
870+ let $t03415534612 = if ((outAssetId == amId))
871+ then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
872+ else if ((outAssetId == prId))
873+ then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
874+ else throw("wrong outAssetId")
875+ let amBalanceNow = $t03415534612._1
876+ let prBalanceNow = $t03415534612._2
877+ let virtSwapInAm = $t03415534612._3
878+ let virtSwapOutPr = $t03415534612._4
879+ let virtSwapInPr = $t03415534612._5
880+ let virtSwapOutAm = $t03415534612._6
881+ let totalGet = $t03415534612._7
882+ if (if ((0 > virtSwapInAm))
883+ then true
884+ else (0 > virtSwapInPr))
885+ then throw("Wrong calc")
886+ else {
887+ let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
888+ let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
889+ let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
890+ if ((D0vsD1 == D0vsD1))
891+ then {
892+ let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
893+ if ((finalRes == finalRes))
894+ then {
895+ let $t03531735421 = if ((outAssetId == amId))
896+ then $Tuple2(toInt(finalRes._2), 0)
897+ else $Tuple2(0, toInt(finalRes._2))
898+ let outAm = $t03531735421._1
899+ let outPr = $t03531735421._2
900+ let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
901+ let curPr = f1(curPrX18, scale8)
902+ let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
903+ then unit
904+ 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)]
905+ if ((state == state))
906+ then {
907+ let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
908+ if ((burn == burn))
909+ then state
910+ else throw("Strict value is not equal to itself.")
911+ }
912+ else throw("Strict value is not equal to itself.")
913+ }
914+ else throw("Strict value is not equal to itself.")
915+ }
916+ else throw("Strict value is not equal to itself.")
917+ }
918+ }
919+ else throw("Strict value is not equal to itself.")
920+ }
921+
922+
923+
924+@Callable(i)
925+func getOneTknV2 (outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
926+ then throw("1 pmnt expd")
927+ else {
928+ let cfg = gpc()
929+ let lpId = cfg[idxLPAsId]
930+ let amId = cfg[idxAmAsId]
931+ let prId = cfg[idxPrAsId]
932+ let amDcm = parseIntValue(cfg[idxAmtAsDcm])
933+ let prDcm = parseIntValue(cfg[idxPriceAsDcm])
934+ let sts = cfg[idxPoolSt]
935+ let factCfg = gfc()
936+ let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
937+ let pmt = value(i.payments[0])
938+ let addon = valueOrElse(getString(this, ada()), "")
939+ let userAddress = if ((addon == toString(i.caller)))
940+ then i.originCaller
941+ else i.caller
942+ let txId58 = toBase58String(i.transactionId)
943+ let pmtAssetId = value(pmt.assetId)
944+ let pmtAmt = pmt.amount
754945 if ((1000000000 > pmtAmt))
755946 then throw("Min pmt 10 LP")
756- else if (if (if ((0 > slippage))
757- then true
758- else (0 > exchResult))
947+ else if (if ((0 > slippage))
759948 then true
760949 else (0 > outAmount))
761950 then throw("Wrong params")
767956 let estimPrAmt = r._2
768957 let amBalance = getAccBalance(amId)
769958 let prBalance = getAccBalance(prId)
770- let $t03041530875 = if ((outAssetId == amId))
771- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
959+ let amBalanceNow = (amBalance - estimAmAmt)
960+ let prBalanceNow = (prBalance - estimPrAmt)
961+ let $t03767037941 = if ((outAssetId == amId))
962+ then $Tuple3(prBalanceNow, amBalanceNow, estimPrAmt)
772963 else if ((outAssetId == prId))
773- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
964+ then $Tuple3(amBalanceNow, prBalanceNow, estimAmAmt)
774965 else throw("wrong outAssetId")
775- let amBalanceNow = $t03041530875._1
776- let prBalanceNow = $t03041530875._2
777- let virtSwapInAm = $t03041530875._3
778- let virtSwapOutPr = $t03041530875._4
779- let virtSwapInPr = $t03041530875._5
780- let virtSwapOutAm = $t03041530875._6
781- let totalGetRaw = $t03041530875._7
782- if (if ((0 > virtSwapInAm))
783- then true
784- else (0 > virtSwapInPr))
785- then throw("Wrong calc")
786- else {
787- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
788- let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
789- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
790- if ((D0vsD1 == D0vsD1))
966+ let amountBalanceForSwap = $t03767037941._1
967+ let priceBalanceForSwap = $t03767037941._2
968+ let amountToSwap = $t03767037941._3
969+ let yPrecision = 1
970+ let exchResult = {
971+ let @ = invoke(gwxCntr, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)
972+ if ($isInstanceOf(@, "Int"))
973+ then @
974+ else throw(($getType(invoke(gwxCntr, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)) + " couldn't be cast to Int"))
975+ }
976+ let totalGet = if ((outAssetId == amId))
977+ then (estimAmAmt + exchResult)
978+ else (estimPrAmt + exchResult)
979+ let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
980+ if ((finalRes == finalRes))
981+ then {
982+ let $t03860938713 = if ((outAssetId == amId))
983+ then $Tuple2(toInt(finalRes._2), 0)
984+ else $Tuple2(0, toInt(finalRes._2))
985+ let outAm = $t03860938713._1
986+ let outPr = $t03860938713._2
987+ let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
988+ let curPr = f1(curPrX18, scale8)
989+ let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
990+ then unit
991+ 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)]
992+ if ((state == state))
791993 then {
792- let totalGet = takeFee(totalGetRaw)._1
793- let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
794- if ((finalRes == finalRes))
795- then {
796- let $t03162231726 = if ((outAssetId == amId))
797- then $Tuple2(toInt(finalRes._2), 0)
798- else $Tuple2(0, toInt(finalRes._2))
799- let outAm = $t03162231726._1
800- let outPr = $t03162231726._2
801- let totalAmount = (outAm + outPr)
802- let feeAmount = (totalGetRaw - totalGet)
803- let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
804- then unit
805- else fromBase58String(outAssetId)
806- let sendFeeToMatcher = if ((feeAmount > 0))
807- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
808- else nil
809- let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
810- let curPr = f1(curPrX18, scale8)
811- let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
812- if ((state == state))
813- then {
814- let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
815- if ((burn == burn))
816- then (state ++ sendFeeToMatcher)
817- else throw("Strict value is not equal to itself.")
818- }
819- else throw("Strict value is not equal to itself.")
820- }
994+ let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
995+ if ((burn == burn))
996+ then state
821997 else throw("Strict value is not equal to itself.")
822998 }
823999 else throw("Strict value is not equal to itself.")
8241000 }
1001+ else throw("Strict value is not equal to itself.")
8251002 }
8261003 }
8271004
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let scale8 = 100000000
55
66 let scale8BigInt = toBigInt(100000000)
77
88 let scale18 = toBigInt(1000000000000000000)
9-
10-let thousand = 1000
119
1210 let zeroBigInt = toBigInt(0)
1311
1412 let oneBigInt = toBigInt(1)
1513
1614 let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
1715
1816 let Amult = "100"
1917
2018 let Dconv = "1"
2119
2220 let SEP = "__"
2321
2422 let EMPTY = ""
2523
2624 let PoolActive = 1
2725
2826 let PoolPutDis = 2
2927
3028 let PoolMatcherDis = 3
3129
3230 let PoolShutdown = 4
3331
3432 let idxPoolAddress = 1
3533
3634 let idxPoolSt = 2
3735
3836 let idxLPAsId = 3
3937
4038 let idxAmAsId = 4
4139
4240 let idxPrAsId = 5
4341
4442 let idxAmtAsDcm = 6
4543
4644 let idxPriceAsDcm = 7
4745
4846 let idxIAmtAsId = 8
4947
5048 let idxIPriceAsId = 9
5149
5250 let idxFactStakCntr = 1
5351
5452 let idxFactSlippCntr = 7
5553
5654 let idxFactGwxRewCntr = 10
5755
58-let feePermilleDefault = 0
56+let delay = "%s__delay"
5957
6058 func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
6159
6260
6361 func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
6462
6563
6664 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
6765
6866
6967 func abs (val) = if ((zeroBigInt > val))
7068 then -(val)
7169 else val
7270
7371
7472 func fc () = "%s__factoryContract"
7573
7674
7775 func mpk () = "%s__managerPublicKey"
7876
7977
8078 func pmpk () = "%s__pendingManagerPublicKey"
8179
8280
8381 func pl () = "%s%s__price__last"
8482
8583
8684 func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
8785
8886
8987 func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
9088
9189
9290 func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
9391
9492
9593 func aa () = "%s__amountAsset"
9694
9795
9896 func pa () = "%s__priceAsset"
9997
10098
10199 func amp () = "%s__amp"
102100
103101
104102 func ada () = "%s__addonAddr"
105103
106104
107-let keyFeePermille = "%s__feePermille"
105+func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
108106
109-let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
107+
108+func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
109+
110110
111111 func fcfg () = "%s__factoryConfig"
112112
113113
114114 func mtpk () = "%s%s__matcher__publicKey"
115115
116116
117117 func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
118118
119119
120120 func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
121121
122122
123123 func aps () = "%s__shutdown"
124124
125125
126126 func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127-
128-
129-func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
130127
131128
132129 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
133130
134131
135132 func str (val) = match val {
136133 case valStr: String =>
137134 valStr
138135 case _ =>
139136 throw("fail cast to String")
140137 }
141138
142139
143140 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
144141
145142
146143 func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
147144
148145
149146 let fca = addressFromStringValue(strf(this, fc()))
150147
151148 let A = strf(this, amp())
152149
153150 func igs () = valueOrElse(getBoolean(fca, aps()), false)
154151
155152
156153 func mp () = fromBase58String(strf(fca, mtpk()))
157154
158-
159-let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
160155
161156 func gpc () = {
162157 let amtAs = strf(this, aa())
163158 let priceAs = strf(this, pa())
164159 let iPriceAs = intf(fca, mba(priceAs))
165160 let iAmtAs = intf(fca, mba(amtAs))
166161 split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
167162 }
168163
169164
170165 func gfc () = split(strf(fca, fcfg()), SEP)
171166
172167
173168 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)
174169
175170
176171 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)
177172
178173
179174 func getAccBalance (assetId) = if ((assetId == "WAVES"))
180175 then wavesBalance(this).available
181176 else assetBalance(this, fromBase58String(assetId))
182177
183178
184179 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
185180
186181
187182 func vad (A1,A2,slippage) = {
188183 let diff = fraction((A1 - A2), scale8BigInt, A2)
189184 let pass = ((slippage - abs(diff)) > zeroBigInt)
190185 if (!(pass))
191186 then throw(("Big slpg: " + toString(diff)))
192187 else $Tuple2(pass, min([A1, A2]))
193188 }
194189
195190
196191 func vd (D1,D0,slpg) = {
197192 let diff = fraction(D0, scale8BigInt, D1)
198193 let fail = (slpg > diff)
199194 if (if (fail)
200195 then true
201196 else (D0 > D1))
202197 then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
203198 else fail
204199 }
205200
206201
207202 func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
208203 let amtAsAmtX18 = t1(amAmt, amAssetDcm)
209204 let prAsAmtX18 = t1(prAmt, prAssetDcm)
210205 cpbi(prAsAmtX18, amtAsAmtX18)
211206 }
212207
213208
214209 func calcPrices (amAmt,prAmt,lpAmt) = {
215210 let cfg = gpc()
216211 let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
217212 let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
218213 let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
219214 let amAmtX18 = t1(amAmt, amtAsDcm)
220215 let prAmtX18 = t1(prAmt, prAsDcm)
221216 let lpAmtX18 = t1(lpAmt, scale8)
222217 let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
223218 let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
224219 [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
225220 }
226221
227222
228223 func calculatePrices (amAmt,prAmt,lpAmt) = {
229224 let p = calcPrices(amAmt, prAmt, lpAmt)
230225 [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
231226 }
232227
233228
234229 func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
235230 let cfg = gpc()
236231 let lpId = cfg[idxLPAsId]
237232 let amId = cfg[idxAmAsId]
238233 let prId = cfg[idxPrAsId]
239234 let amDcm = parseIntValue(cfg[idxAmtAsDcm])
240235 let prDcm = parseIntValue(cfg[idxPriceAsDcm])
241236 let sts = cfg[idxPoolSt]
242237 let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
243238 if ((lpId != pmtAssetId))
244239 then throw("Wrong pmt asset")
245240 else {
246241 let amBalance = getAccBalance(amId)
247242 let amBalanceX18 = t1(amBalance, amDcm)
248243 let prBalance = getAccBalance(prId)
249244 let prBalanceX18 = t1(prBalance, prDcm)
250245 let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
251246 let curPrice = f1(curPriceX18, scale8)
252247 let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
253248 let lpEmissX18 = t1(lpEmiss, scale8)
254249 let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
255250 let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
256251 let outAmAmt = f1(outAmAmtX18, amDcm)
257252 let outPrAmt = f1(outPrAmtX18, prDcm)
258253 let state = if ((txId58 == ""))
259254 then nil
260255 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
261256 then unit
262257 else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
263258 then unit
264259 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)]
265260 $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
266261 }
267262 }
268263
269264
270265 func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
271266 let cfg = gpc()
272267 let lpId = fromBase58String(cfg[idxLPAsId])
273268 let amIdStr = cfg[idxAmAsId]
274269 let prIdStr = cfg[idxPrAsId]
275270 let inAmIdStr = cfg[idxIAmtAsId]
276271 let inPrIdStr = cfg[idxIPriceAsId]
277272 let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
278273 let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
279274 let sts = cfg[idxPoolSt]
280275 let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
281276 let amBalance = if (isEval)
282277 then getAccBalance(amIdStr)
283278 else if (if (isOneAsset)
284279 then (pmtId == amIdStr)
285280 else false)
286281 then (getAccBalance(amIdStr) - pmtAmt)
287282 else if (isOneAsset)
288283 then getAccBalance(amIdStr)
289284 else (getAccBalance(amIdStr) - inAmAmt)
290285 let prBalance = if (isEval)
291286 then getAccBalance(prIdStr)
292287 else if (if (isOneAsset)
293288 then (pmtId == prIdStr)
294289 else false)
295290 then (getAccBalance(prIdStr) - pmtAmt)
296291 else if (isOneAsset)
297292 then getAccBalance(prIdStr)
298293 else (getAccBalance(prIdStr) - inPrAmt)
299294 let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
300295 let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
301296 let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
302297 let amBalanceX18 = t1(amBalance, amtDcm)
303298 let prBalanceX18 = t1(prBalance, priceDcm)
304299 let r = if ((lpEm == 0))
305300 then {
306301 let curPriceX18 = zeroBigInt
307302 let slippageX18 = zeroBigInt
308303 let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
309304 $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
310305 }
311306 else {
312307 let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
313308 let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
314309 let slippageX18 = t1(slippage, scale8)
315310 if (if ((curPriceX18 != zeroBigInt))
316311 then (slippageRealX18 > slippageX18)
317312 else false)
318313 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
319314 else {
320315 let lpEmissionX18 = t1(lpEm, scale8)
321316 let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
322317 let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
323318 let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
324319 then $Tuple2(amViaPrX18, inPrAssetAmtX18)
325320 else $Tuple2(inAmAssetAmtX18, prViaAmX18)
326321 let expAmtAssetAmtX18 = expectedAmts._1
327322 let expPriceAssetAmtX18 = expectedAmts._2
328323 let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
329324 $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
330325 }
331326 }
332327 let calcLpAmt = r._1
333328 let calcAmAssetPmt = r._2
334329 let calcPrAssetPmt = r._3
335330 let curPrice = f1(r._4, scale8)
336331 let slippageCalc = f1(r._5, scale8)
337332 if ((0 >= calcLpAmt))
338333 then throw("LP <= 0")
339334 else {
340335 let emitLpAmt = if (!(emitLp))
341336 then 0
342337 else calcLpAmt
343338 let amDiff = (inAmAmt - calcAmAssetPmt)
344339 let prDiff = (inPrAmt - calcPrAssetPmt)
345- let $t01568216027 = if (if (isOneAsset)
340+ let $t01560115946 = if (if (isOneAsset)
346341 then (pmtId == amIdStr)
347342 else false)
348343 then $Tuple2(pmtAmt, 0)
349344 else if (if (isOneAsset)
350345 then (pmtId == prIdStr)
351346 else false)
352347 then $Tuple2(0, pmtAmt)
353348 else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
354- let writeAmAmt = $t01568216027._1
355- let writePrAmt = $t01568216027._2
349+ let writeAmAmt = $t01560115946._1
350+ let writePrAmt = $t01560115946._2
356351 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))]
357352 $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
358353 }
359354 }
360355
361356
362357 func moa (order) = {
363358 let cfg = gpc()
364359 let amtAsId = cfg[idxAmAsId]
365360 let prAsId = cfg[idxPrAsId]
366361 let sts = parseIntValue(cfg[idxPoolSt])
367362 let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
368363 let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
369364 let accAmtAsBalance = getAccBalance(amtAsId)
370365 let accPrAsBalance = getAccBalance(prAsId)
371366 let curPriceX18 = if ((order.orderType == Buy))
372367 then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
373368 else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
374369 let curPrice = f1(curPriceX18, scale8)
375370 if (if (if (igs())
376371 then true
377372 else (sts == PoolMatcherDis))
378373 then true
379374 else (sts == PoolShutdown))
380375 then throw("Admin blocked")
381376 else {
382377 let orAmtAsset = order.assetPair.amountAsset
383378 let orAmtAsStr = if ((orAmtAsset == unit))
384379 then "WAVES"
385380 else toBase58String(value(orAmtAsset))
386381 let orPrAsset = order.assetPair.priceAsset
387382 let orPrAsStr = if ((orPrAsset == unit))
388383 then "WAVES"
389384 else toBase58String(value(orPrAsset))
390385 if (if ((orAmtAsStr != amtAsId))
391386 then true
392387 else (orPrAsStr != prAsId))
393388 then throw("Wr assets")
394389 else {
395390 let orderPrice = order.price
396391 let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
397392 let castOrderPrice = ts(orderPrice, scale8, priceDcm)
398393 let isOrderPriceValid = if ((order.orderType == Buy))
399394 then (curPrice >= castOrderPrice)
400395 else (castOrderPrice >= curPrice)
401396 true
402397 }
403398 }
404399 }
405400
406401
407402 func cg (i) = if ((size(i.payments) != 1))
408403 then throw("1 pmnt exp")
409404 else {
410405 let pmt = value(i.payments[0])
411406 let pmtAssetId = value(pmt.assetId)
412407 let pmtAmt = pmt.amount
413408 let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
414409 let outAmAmt = r._1
415410 let outPrAmt = r._2
416411 let sts = parseIntValue(r._9)
417412 let state = r._10
418413 if (if (igs())
419414 then true
420415 else (sts == PoolShutdown))
421416 then throw(("Admin blocked: " + toString(sts)))
422417 else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
423418 }
424419
425420
426421 func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
427422 let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
428423 let sts = parseIntValue(r._8)
429424 if (if (if (igs())
430425 then true
431426 else (sts == PoolPutDis))
432427 then true
433428 else (sts == PoolShutdown))
434429 then throw(("Blocked:" + toString(sts)))
435430 else r
436- }
437-
438-
439-func takeFee (amount) = {
440- let fee = fraction(amount, feePermille, thousand)
441- $Tuple2((amount - fee), fee)
442431 }
443432
444433
445434 func m () = match getString(mpk()) {
446435 case s: String =>
447436 fromBase58String(s)
448437 case _: Unit =>
449438 unit
450439 case _ =>
451440 throw("Match error")
452441 }
453442
454443
455444 func pm () = match getString(pmpk()) {
456445 case s: String =>
457446 fromBase58String(s)
458447 case _: Unit =>
459448 unit
460449 case _ =>
461450 throw("Match error")
462451 }
463452
464453
465454 let pd = throw("Permission denied")
466455
467456 func mm (i) = match m() {
468457 case pk: ByteVector =>
469458 if ((i.callerPublicKey == pk))
470459 then true
471460 else pd
472461 case _: Unit =>
473462 if ((i.caller == this))
474463 then true
475464 else pd
476465 case _ =>
477466 throw("Match error")
478467 }
479468
480469
481470 @Callable(i)
482471 func constructor (fc) = {
483472 let c = mm(i)
484473 if ((c == c))
485474 then [StringEntry(fc(), fc)]
486475 else throw("Strict value is not equal to itself.")
487476 }
488477
489478
490479
491480 @Callable(i)
492481 func setManager (pendingManagerPublicKey) = {
493482 let c = mm(i)
494483 if ((c == c))
495484 then {
496485 let cm = fromBase58String(pendingManagerPublicKey)
497486 if ((cm == cm))
498487 then [StringEntry(pmpk(), pendingManagerPublicKey)]
499488 else throw("Strict value is not equal to itself.")
500489 }
501490 else throw("Strict value is not equal to itself.")
502491 }
503492
504493
505494
506495 @Callable(i)
507496 func confirmManager () = {
508497 let p = pm()
509498 let hpm = if (isDefined(p))
510499 then true
511500 else throw("No pending manager")
512501 if ((hpm == hpm))
513502 then {
514503 let cpm = if ((i.callerPublicKey == value(p)))
515504 then true
516505 else throw("You are not pending manager")
517506 if ((cpm == cpm))
518507 then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
519508 else throw("Strict value is not equal to itself.")
520509 }
521510 else throw("Strict value is not equal to itself.")
522511 }
523512
524513
525514
526515 @Callable(i)
527516 func put (slip,autoStake) = {
528517 let factCfg = gfc()
529518 let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
530519 let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
531520 if ((0 > slip))
532521 then throw("Wrong slippage")
533522 else if ((size(i.payments) != 2))
534523 then throw("2 pmnts expd")
535524 else {
536525 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, "")
537526 let emitLpAmt = e._2
538527 let lpAssetId = e._7
539528 let state = e._9
540529 let amDiff = e._10
541530 let prDiff = e._11
542531 let amId = e._12
543532 let prId = e._13
544533 let r = invoke(fca, "emit", [emitLpAmt], nil)
545534 if ((r == r))
546535 then {
547536 let el = match r {
548537 case legacy: Address =>
549538 invoke(legacy, "emit", [emitLpAmt], nil)
550539 case _ =>
551540 unit
552541 }
553542 if ((el == el))
554543 then {
555544 let sa = if ((amDiff > 0))
556545 then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
557546 else nil
558547 if ((sa == sa))
559548 then {
560549 let sp = if ((prDiff > 0))
561550 then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
562551 else nil
563552 if ((sp == sp))
564553 then {
565554 let lpTrnsfr = if (autoStake)
566555 then {
567556 let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
568557 if ((ss == ss))
569558 then nil
570559 else throw("Strict value is not equal to itself.")
571560 }
572561 else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
573562 (state ++ lpTrnsfr)
574563 }
575564 else throw("Strict value is not equal to itself.")
576565 }
577566 else throw("Strict value is not equal to itself.")
578567 }
579568 else throw("Strict value is not equal to itself.")
580569 }
581570 else throw("Strict value is not equal to itself.")
582571 }
583572 }
584573
585574
586575
587576 @Callable(i)
588577 func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
589578 let cfg = gfc()
590579 let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
591580 let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
592581 let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
593582 let poolCfg = gpc()
594583 let amId = poolCfg[idxAmAsId]
595584 let prId = poolCfg[idxPrAsId]
596585 let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
597586 let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
598587 let addon = valueOrElse(getString(this, ada()), "")
599588 let userAddress = if ((addon == toString(i.caller)))
600589 then i.originCaller
601590 else i.caller
602- if (if (if (if ((0 >= slippage))
603- then true
604- else (0 >= amAssetPart))
605- then true
606- else (0 >= prAssetPart))
607- then true
608- else (0 >= outLp))
609- then throw("Wrong params")
610- else if ((size(i.payments) != 1))
611- then throw("1 pmnt expd")
612- else {
613- let pmt = value(i.payments[0])
614- let pmtAssetId = toBase58String(value(pmt.assetId))
615- let paymentAmountRaw = pmt.amount
616- let $t02464424696 = takeFee(paymentAmountRaw)
617- let pmtAmt = $t02464424696._1
618- let feeAmount = $t02464424696._2
619- if ((10000000 > paymentAmountRaw))
620- then throw("Wrong pmt amt")
621- else {
622- let amBalance = getAccBalance(amId)
623- let prBalance = getAccBalance(prId)
624- let $t02485625472 = if ((pmtAssetId == amId))
625- then if (if ((paymentAmountRaw > amBalance))
626- then true
627- else (amAssetPart > pmtAmt))
591+ let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592+ let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593+ if ((check == check))
594+ then if (if (if (if ((0 >= slippage))
595+ then true
596+ else (0 >= amAssetPart))
597+ then true
598+ else (0 >= prAssetPart))
599+ then true
600+ else (0 >= outLp))
601+ then throw("Wrong params")
602+ else if ((size(i.payments) != 1))
603+ then throw("1 pmnt expd")
604+ else {
605+ let pmt = value(i.payments[0])
606+ let pmtAssetId = toBase58String(value(pmt.assetId))
607+ let pmtAmt = pmt.amount
608+ if ((10000000 > pmtAmt))
609+ then throw("Wrong pmt amt")
610+ else {
611+ let amBalance = getAccBalance(amId)
612+ let prBalance = getAccBalance(prId)
613+ let $t02485925435 = if ((pmtAssetId == amId))
614+ then if (if ((pmtAmt > amBalance))
615+ then true
616+ else (amAssetPart > pmtAmt))
617+ then throw("invalid payment amount")
618+ else $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
619+ else if ((pmtAssetId == prId))
620+ then if (if ((pmtAmt > prBalance))
621+ then true
622+ else (prAssetPart > pmtAmt))
623+ then throw("invalid payment amount")
624+ else $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
625+ else throw("wrong pmtAssetId")
626+ let amBalanceNow = $t02485925435._1
627+ let prBalanceNow = $t02485925435._2
628+ let virtSwapInAm = $t02485925435._3
629+ let virtSwapOutPr = $t02485925435._4
630+ let virtSwapInPr = $t02485925435._5
631+ let virtSwapOutAm = $t02485925435._6
632+ let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
633+ let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
634+ let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
635+ if ((D0vsD1 == D0vsD1))
636+ then {
637+ let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
638+ let estimLP = estPut._2
639+ let lpAssetId = estPut._7
640+ let state = estPut._9
641+ let amDiff = estPut._10
642+ let prDiff = estPut._11
643+ let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
644+ let emitLpAmt = toInt(lpCalcRes._2)
645+ let e = invoke(fca, "emit", [emitLpAmt], nil)
646+ if ((e == e))
647+ then {
648+ let el = match e {
649+ case legacy: Address =>
650+ invoke(legacy, "emit", [emitLpAmt], nil)
651+ case _ =>
652+ unit
653+ }
654+ if ((el == el))
655+ then {
656+ let sa = if ((amDiff > 0))
657+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
658+ else nil
659+ if ((sa == sa))
660+ then {
661+ let sp = if ((prDiff > 0))
662+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
663+ else nil
664+ if ((sp == sp))
665+ then {
666+ let lpTrnsfr = if (autoStake)
667+ then {
668+ let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
669+ if ((ss == ss))
670+ then nil
671+ else throw("Strict value is not equal to itself.")
672+ }
673+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
674+ (state ++ lpTrnsfr)
675+ }
676+ else throw("Strict value is not equal to itself.")
677+ }
678+ else throw("Strict value is not equal to itself.")
679+ }
680+ else throw("Strict value is not equal to itself.")
681+ }
682+ else throw("Strict value is not equal to itself.")
683+ }
684+ else throw("Strict value is not equal to itself.")
685+ }
686+ }
687+ else throw("Strict value is not equal to itself.")
688+ }
689+
690+
691+
692+@Callable(i)
693+func putOneTknV2 (outLp,slippage,autoStake) = {
694+ let cfg = gfc()
695+ let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
696+ let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
697+ let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
698+ let poolCfg = gpc()
699+ let amId = poolCfg[idxAmAsId]
700+ let prId = poolCfg[idxPrAsId]
701+ let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
702+ let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
703+ let addon = valueOrElse(getString(this, ada()), "")
704+ let userAddress = if ((addon == toString(i.caller)))
705+ then i.originCaller
706+ else i.caller
707+ if ((size(i.payments) != 1))
708+ then throw("1 pmnt expd")
709+ else {
710+ let pmt = value(i.payments[0])
711+ let pmtAssetId = toBase58String(value(pmt.assetId))
712+ let pmtAmt = pmt.amount
713+ if ((10000000 > pmtAmt))
714+ then throw("Wrong pmt amt")
715+ else {
716+ let amBalance = getAccBalance(amId)
717+ let prBalance = getAccBalance(prId)
718+ let $t02862829016 = if ((pmtAssetId == amId))
719+ then if ((pmtAmt > amBalance))
720+ then throw("invalid payment amount")
721+ else $Tuple2((amBalance - pmtAmt), prBalance)
722+ else if ((pmtAssetId == prId))
723+ then if ((pmtAmt > prBalance))
628724 then throw("invalid payment amount")
629- else $Tuple6((amBalance - paymentAmountRaw), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
630- else if ((pmtAssetId == prId))
631- then if (if ((paymentAmountRaw > prBalance))
632- then true
633- else (prAssetPart > pmtAmt))
634- then throw("invalid payment amount")
635- else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
636- else throw("wrong pmtAssetId")
637- let amBalanceNow = $t02485625472._1
638- let prBalanceNow = $t02485625472._2
639- let virtSwapInAm = $t02485625472._3
640- let virtSwapOutPr = $t02485625472._4
641- let virtSwapInPr = $t02485625472._5
642- let virtSwapOutAm = $t02485625472._6
643- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
644- let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
645- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
646- if ((D0vsD1 == D0vsD1))
647- then {
648- let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
649- let estimLP = estPut._2
650- let lpAssetId = estPut._7
651- let state = estPut._9
652- let amDiff = estPut._10
653- let prDiff = estPut._11
654- let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
655- let emitLpAmt = toInt(lpCalcRes._2)
656- let e = invoke(fca, "emit", [emitLpAmt], nil)
657- if ((e == e))
658- then {
659- let el = match e {
660- case legacy: Address =>
661- invoke(legacy, "emit", [emitLpAmt], nil)
662- case _ =>
663- unit
664- }
665- if ((el == el))
666- then {
667- let sa = if ((amDiff > 0))
668- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
669- else nil
670- if ((sa == sa))
671- then {
672- let sp = if ((prDiff > 0))
673- then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
674- else nil
675- if ((sp == sp))
676- then {
677- let lpTrnsfr = if (autoStake)
678- then {
679- let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
680- if ((ss == ss))
681- then nil
682- else throw("Strict value is not equal to itself.")
683- }
684- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
685- let sendFeeToMatcher = if ((feeAmount > 0))
686- then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
687- else nil
688- ((state ++ lpTrnsfr) ++ sendFeeToMatcher)
689- }
690- else throw("Strict value is not equal to itself.")
691- }
692- else throw("Strict value is not equal to itself.")
693- }
694- else throw("Strict value is not equal to itself.")
695- }
696- else throw("Strict value is not equal to itself.")
697- }
698- else throw("Strict value is not equal to itself.")
725+ else $Tuple2(amBalance, (prBalance - pmtAmt))
726+ else throw("wrong pmtAssetId")
727+ let amBalanceNow = $t02862829016._1
728+ let prBalanceNow = $t02862829016._2
729+ let $t02902229156 = if ((pmtAssetId == amId))
730+ then $Tuple2(amBalanceNow, prBalanceNow)
731+ else $Tuple2(prBalanceNow, amBalanceNow)
732+ let amBalanceForCalc = $t02902229156._1
733+ let prBalanceForCalc = $t02902229156._2
734+ let xPrecision = 1
735+ let result = {
736+ let @ = invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)
737+ if ($isInstanceOf(@, "(Int, Int)"))
738+ then @
739+ else throw(($getType(invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)) + " couldn't be cast to (Int, Int)"))
699740 }
700- }
741+ let $t02964529741 = if ((pmtAssetId == amId))
742+ then result
743+ else $Tuple2(result._2, result._1)
744+ let amAssetPart = $t02964529741._1
745+ let prAssetPart = $t02964529741._2
746+ let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
747+ let estimLP = estPut._2
748+ let lpAssetId = estPut._7
749+ let state = estPut._9
750+ let amDiff = estPut._10
751+ let prDiff = estPut._11
752+ let emitLpAmt = if ((outLp > 0))
753+ then {
754+ let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
755+ toInt(lpCalcRes._2)
756+ }
757+ else estimLP
758+ let e = invoke(fca, "emit", [emitLpAmt], nil)
759+ if ((e == e))
760+ then {
761+ let el = match e {
762+ case legacy: Address =>
763+ invoke(legacy, "emit", [emitLpAmt], nil)
764+ case _ =>
765+ unit
766+ }
767+ if ((el == el))
768+ then {
769+ let sa = if ((amDiff > 0))
770+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
771+ else nil
772+ if ((sa == sa))
773+ then {
774+ let sp = if ((prDiff > 0))
775+ then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
776+ else nil
777+ if ((sp == sp))
778+ then {
779+ let lpTrnsfr = if (autoStake)
780+ then {
781+ let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
782+ if ((ss == ss))
783+ then nil
784+ else throw("Strict value is not equal to itself.")
785+ }
786+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
787+ (state ++ lpTrnsfr)
788+ }
789+ else throw("Strict value is not equal to itself.")
790+ }
791+ else throw("Strict value is not equal to itself.")
792+ }
793+ else throw("Strict value is not equal to itself.")
794+ }
795+ else throw("Strict value is not equal to itself.")
796+ }
797+ }
701798 }
702799
703800
704801
705802 @Callable(i)
706803 func putForFree (maxSlpg) = if ((0 > maxSlpg))
707804 then throw("Wrong slpg")
708805 else if ((size(i.payments) != 2))
709806 then throw("2 pmnts expd")
710807 else {
711808 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, "")
712809 estPut._9
713810 }
714811
715812
716813
717814 @Callable(i)
718815 func get () = {
719816 let r = cg(i)
720817 let outAmtAmt = r._1
721818 let outPrAmt = r._2
722819 let pmtAmt = r._3
723820 let pmtAssetId = r._4
724821 let state = r._5
725822 let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
726823 if ((b == b))
727824 then state
728825 else throw("Strict value is not equal to itself.")
729826 }
730827
731828
732829
733830 @Callable(i)
734831 func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
735832 then throw("1 pmnt expd")
736833 else {
737834 let cfg = gpc()
738835 let lpId = cfg[idxLPAsId]
739836 let amId = cfg[idxAmAsId]
740837 let prId = cfg[idxPrAsId]
741838 let amDcm = parseIntValue(cfg[idxAmtAsDcm])
742839 let prDcm = parseIntValue(cfg[idxPriceAsDcm])
743840 let sts = cfg[idxPoolSt]
744841 let factCfg = gfc()
745842 let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
746843 let pmt = value(i.payments[0])
747844 let addon = valueOrElse(getString(this, ada()), "")
748845 let userAddress = if ((addon == toString(i.caller)))
749846 then i.originCaller
750847 else i.caller
751848 let txId58 = toBase58String(i.transactionId)
752849 let pmtAssetId = value(pmt.assetId)
753850 let pmtAmt = pmt.amount
851+ let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
852+ let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
853+ if ((check == check))
854+ then if ((1000000000 > pmtAmt))
855+ then throw("Min pmt 10 LP")
856+ else if (if (if ((0 > slippage))
857+ then true
858+ else (0 > exchResult))
859+ then true
860+ else (0 > outAmount))
861+ then throw("Wrong params")
862+ else if ((lpId != toBase58String(pmtAssetId)))
863+ then throw("Wrong LP")
864+ else {
865+ let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
866+ let estimAmAmt = r._1
867+ let estimPrAmt = r._2
868+ let amBalance = getAccBalance(amId)
869+ let prBalance = getAccBalance(prId)
870+ let $t03415534612 = if ((outAssetId == amId))
871+ then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
872+ else if ((outAssetId == prId))
873+ then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
874+ else throw("wrong outAssetId")
875+ let amBalanceNow = $t03415534612._1
876+ let prBalanceNow = $t03415534612._2
877+ let virtSwapInAm = $t03415534612._3
878+ let virtSwapOutPr = $t03415534612._4
879+ let virtSwapInPr = $t03415534612._5
880+ let virtSwapOutAm = $t03415534612._6
881+ let totalGet = $t03415534612._7
882+ if (if ((0 > virtSwapInAm))
883+ then true
884+ else (0 > virtSwapInPr))
885+ then throw("Wrong calc")
886+ else {
887+ let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
888+ let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
889+ let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
890+ if ((D0vsD1 == D0vsD1))
891+ then {
892+ let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
893+ if ((finalRes == finalRes))
894+ then {
895+ let $t03531735421 = if ((outAssetId == amId))
896+ then $Tuple2(toInt(finalRes._2), 0)
897+ else $Tuple2(0, toInt(finalRes._2))
898+ let outAm = $t03531735421._1
899+ let outPr = $t03531735421._2
900+ let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
901+ let curPr = f1(curPrX18, scale8)
902+ let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
903+ then unit
904+ 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)]
905+ if ((state == state))
906+ then {
907+ let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
908+ if ((burn == burn))
909+ then state
910+ else throw("Strict value is not equal to itself.")
911+ }
912+ else throw("Strict value is not equal to itself.")
913+ }
914+ else throw("Strict value is not equal to itself.")
915+ }
916+ else throw("Strict value is not equal to itself.")
917+ }
918+ }
919+ else throw("Strict value is not equal to itself.")
920+ }
921+
922+
923+
924+@Callable(i)
925+func getOneTknV2 (outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
926+ then throw("1 pmnt expd")
927+ else {
928+ let cfg = gpc()
929+ let lpId = cfg[idxLPAsId]
930+ let amId = cfg[idxAmAsId]
931+ let prId = cfg[idxPrAsId]
932+ let amDcm = parseIntValue(cfg[idxAmtAsDcm])
933+ let prDcm = parseIntValue(cfg[idxPriceAsDcm])
934+ let sts = cfg[idxPoolSt]
935+ let factCfg = gfc()
936+ let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
937+ let pmt = value(i.payments[0])
938+ let addon = valueOrElse(getString(this, ada()), "")
939+ let userAddress = if ((addon == toString(i.caller)))
940+ then i.originCaller
941+ else i.caller
942+ let txId58 = toBase58String(i.transactionId)
943+ let pmtAssetId = value(pmt.assetId)
944+ let pmtAmt = pmt.amount
754945 if ((1000000000 > pmtAmt))
755946 then throw("Min pmt 10 LP")
756- else if (if (if ((0 > slippage))
757- then true
758- else (0 > exchResult))
947+ else if (if ((0 > slippage))
759948 then true
760949 else (0 > outAmount))
761950 then throw("Wrong params")
762951 else if ((lpId != toBase58String(pmtAssetId)))
763952 then throw("Wrong LP")
764953 else {
765954 let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
766955 let estimAmAmt = r._1
767956 let estimPrAmt = r._2
768957 let amBalance = getAccBalance(amId)
769958 let prBalance = getAccBalance(prId)
770- let $t03041530875 = if ((outAssetId == amId))
771- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
959+ let amBalanceNow = (amBalance - estimAmAmt)
960+ let prBalanceNow = (prBalance - estimPrAmt)
961+ let $t03767037941 = if ((outAssetId == amId))
962+ then $Tuple3(prBalanceNow, amBalanceNow, estimPrAmt)
772963 else if ((outAssetId == prId))
773- then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
964+ then $Tuple3(amBalanceNow, prBalanceNow, estimAmAmt)
774965 else throw("wrong outAssetId")
775- let amBalanceNow = $t03041530875._1
776- let prBalanceNow = $t03041530875._2
777- let virtSwapInAm = $t03041530875._3
778- let virtSwapOutPr = $t03041530875._4
779- let virtSwapInPr = $t03041530875._5
780- let virtSwapOutAm = $t03041530875._6
781- let totalGetRaw = $t03041530875._7
782- if (if ((0 > virtSwapInAm))
783- then true
784- else (0 > virtSwapInPr))
785- then throw("Wrong calc")
786- else {
787- let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
788- let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
789- let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
790- if ((D0vsD1 == D0vsD1))
966+ let amountBalanceForSwap = $t03767037941._1
967+ let priceBalanceForSwap = $t03767037941._2
968+ let amountToSwap = $t03767037941._3
969+ let yPrecision = 1
970+ let exchResult = {
971+ let @ = invoke(gwxCntr, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)
972+ if ($isInstanceOf(@, "Int"))
973+ then @
974+ else throw(($getType(invoke(gwxCntr, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)) + " couldn't be cast to Int"))
975+ }
976+ let totalGet = if ((outAssetId == amId))
977+ then (estimAmAmt + exchResult)
978+ else (estimPrAmt + exchResult)
979+ let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
980+ if ((finalRes == finalRes))
981+ then {
982+ let $t03860938713 = if ((outAssetId == amId))
983+ then $Tuple2(toInt(finalRes._2), 0)
984+ else $Tuple2(0, toInt(finalRes._2))
985+ let outAm = $t03860938713._1
986+ let outPr = $t03860938713._2
987+ let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
988+ let curPr = f1(curPrX18, scale8)
989+ let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
990+ then unit
991+ 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)]
992+ if ((state == state))
791993 then {
792- let totalGet = takeFee(totalGetRaw)._1
793- let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
794- if ((finalRes == finalRes))
795- then {
796- let $t03162231726 = if ((outAssetId == amId))
797- then $Tuple2(toInt(finalRes._2), 0)
798- else $Tuple2(0, toInt(finalRes._2))
799- let outAm = $t03162231726._1
800- let outPr = $t03162231726._2
801- let totalAmount = (outAm + outPr)
802- let feeAmount = (totalGetRaw - totalGet)
803- let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
804- then unit
805- else fromBase58String(outAssetId)
806- let sendFeeToMatcher = if ((feeAmount > 0))
807- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
808- else nil
809- let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
810- let curPr = f1(curPrX18, scale8)
811- let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
812- if ((state == state))
813- then {
814- let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
815- if ((burn == burn))
816- then (state ++ sendFeeToMatcher)
817- else throw("Strict value is not equal to itself.")
818- }
819- else throw("Strict value is not equal to itself.")
820- }
994+ let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
995+ if ((burn == burn))
996+ then state
821997 else throw("Strict value is not equal to itself.")
822998 }
823999 else throw("Strict value is not equal to itself.")
8241000 }
1001+ else throw("Strict value is not equal to itself.")
8251002 }
8261003 }
8271004
8281005
8291006
8301007 @Callable(i)
8311008 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
8321009 let r = cg(i)
8331010 let outAmAmt = r._1
8341011 let outPrAmt = r._2
8351012 let pmtAmt = r._3
8361013 let pmtAssetId = r._4
8371014 let state = r._5
8381015 if ((noLessThenAmtAsset > outAmAmt))
8391016 then throw(((("Failed: " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
8401017 else if ((noLessThenPriceAsset > outPrAmt))
8411018 then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
8421019 else {
8431020 let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
8441021 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
8451022 then state
8461023 else throw("Strict value is not equal to itself.")
8471024 }
8481025 }
8491026
8501027
8511028
8521029 @Callable(i)
8531030 func unstakeAndGet (amount) = {
8541031 let checkPayments = if ((size(i.payments) != 0))
8551032 then throw("No pmnts expd")
8561033 else true
8571034 if ((checkPayments == checkPayments))
8581035 then {
8591036 let cfg = gpc()
8601037 let factoryCfg = gfc()
8611038 let lpAssetId = fromBase58String(cfg[idxLPAsId])
8621039 let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
8631040 let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
8641041 if ((unstakeInv == unstakeInv))
8651042 then {
8661043 let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
8671044 let sts = parseIntValue(r._9)
8681045 let state = r._10
8691046 let v = if (if (igs())
8701047 then true
8711048 else (sts == PoolShutdown))
8721049 then throw(("Blocked: " + toString(sts)))
8731050 else true
8741051 if ((v == v))
8751052 then {
8761053 let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
8771054 if ((burnA == burnA))
8781055 then state
8791056 else throw("Strict value is not equal to itself.")
8801057 }
8811058 else throw("Strict value is not equal to itself.")
8821059 }
8831060 else throw("Strict value is not equal to itself.")
8841061 }
8851062 else throw("Strict value is not equal to itself.")
8861063 }
8871064
8881065
8891066
8901067 @Callable(i)
8911068 func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
8921069 then throw("denied")
8931070 else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
8941071
8951072
8961073
8971074 @Callable(i)
8981075 func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
8991076 then pd
9001077 else [StringEntry(k, v)]
9011078
9021079
9031080
9041081 @Callable(i)
9051082 func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
9061083 then pd
9071084 else [IntegerEntry(k, v)]
9081085
9091086
9101087
9111088 @Callable(i)
9121089 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
9131090
9141091
9151092
9161093 @Callable(i)
9171094 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
9181095
9191096
9201097
9211098 @Callable(i)
9221099 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
9231100 let pr = calcPrices(amAmt, prAmt, lpAmt)
9241101 $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
9251102 }
9261103
9271104
9281105
9291106 @Callable(i)
9301107 func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
9311108
9321109
9331110
9341111 @Callable(i)
9351112 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
9361113
9371114
9381115
9391116 @Callable(i)
9401117 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
9411118
9421119
9431120
9441121 @Callable(i)
9451122 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, ""))
9461123
9471124
9481125
9491126 @Callable(i)
9501127 func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
9511128 let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
9521129 $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
9531130 }
9541131
9551132
9561133 @Verifier(tx)
9571134 func verify () = {
9581135 let targetPublicKey = match m() {
9591136 case pk: ByteVector =>
9601137 pk
9611138 case _: Unit =>
9621139 tx.senderPublicKey
9631140 case _ =>
9641141 throw("Match error")
9651142 }
9661143 match tx {
9671144 case order: Order =>
9681145 let matcherPub = mp()
9691146 let orderValid = moa(order)
9701147 let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
9711148 let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
9721149 if (if (if (orderValid)
9731150 then senderValid
9741151 else false)
9751152 then matcherValid
9761153 else false)
9771154 then true
9781155 else toe(orderValid, senderValid, matcherValid)
9791156 case s: SetScriptTransaction =>
9801157 let newHash = blake2b256(value(s.script))
9811158 let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
9821159 let currentHash = scriptHash(this)
9831160 if (if ((allowedHash == newHash))
9841161 then (currentHash != newHash)
9851162 else false)
9861163 then true
9871164 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
9881165 case _ =>
9891166 sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
9901167 }
9911168 }
9921169

github/deemru/w8io/169f3d6 
101.62 ms