tx · 7uf1i3VGBdpJQMbwpQHqwh3SbW2vCWdhV2k9NZY7yzwC

3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP:  -0.02800000 Waves

2022.08.30 12:34 [2207013] smart account 3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7uf1i3VGBdpJQMbwpQHqwh3SbW2vCWdhV2k9NZY7yzwC",
    "fee": 2800000,
    "feeAssetId": null,
    "timestamp": 1661852069405,
    "version": 2,
    "chainId": 84,
    "sender": "3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP",
    "senderPublicKey": "EsqRXDXnACFAdXz6EPhF1SbKyeV7MVuoyDqmXsMz7ySv",
    "proofs": [
        "4ZcFXywMak8DgS8Hj55a2Ut84qdAqYwBNzmeathVmsrh9JjHrKCyNHLJBVWyb5MVUWSytgHZkKz3gvJbvBttVqNQ"
    ],
    "script": "base64:BgJ/CAISAwoBCBIDCgEIEgASBAoCAQQSBwoFAQEBAQQSAwoBARIAEgcKBQEBAQgBEgQKAgEBEgMKAQESBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCE4ABnNjYWxlOACAwtcvAAxzY2FsZThCaWdJbnQJALYCAQCAwtcvAAdzY2FsZTE4CQC2AgEAgICQu7rWrfANAAp6ZXJvQmlnSW50CQC2AgEAAAAJb25lQmlnSW50CQC2AgEAAQAKc2xpcHBhZ2U0RAkAtgIBCQBlAgUGc2NhbGU4CQBpAgkAaAIFBnNjYWxlOAABBQZzY2FsZTgABUFtdWx0AgMxMDAABURjb252AgExAANTRVACAl9fAAVFTVBUWQIAAApQb29sQWN0aXZlAAEAClBvb2xQdXREaXMAAgAOUG9vbE1hdGNoZXJEaXMAAwAMUG9vbFNodXRkb3duAAQADmlkeFBvb2xBZGRyZXNzAAEACWlkeFBvb2xTdAACAAlpZHhMUEFzSWQAAwAJaWR4QW1Bc0lkAAQACWlkeFByQXNJZAAFAAtpZHhBbXRBc0RjbQAGAA1pZHhQcmljZUFzRGNtAAcAC2lkeElBbXRBc0lkAAgADWlkeElQcmljZUFzSWQACQAPaWR4RmFjdFN0YWtDbnRyAAEAEGlkeEZhY3RTbGlwcENudHIABwARaWR4RmFjdEd3eFJld0NudHIACgAFZGVsYXkCCSVzX19kZWxheQECdDECB29yaWdWYWwNb3JpZ1NjYWxlTXVsdAkAvAIDCQC2AgEFB29yaWdWYWwFB3NjYWxlMTgJALYCAQUNb3JpZ1NjYWxlTXVsdAECZjECA3ZhbA9yZXN1bHRTY2FsZU11bHQJAKADAQkAvAIDBQN2YWwJALYCAQUPcmVzdWx0U2NhbGVNdWx0BQdzY2FsZTE4AQJ0cwMDYW10CHJlc1NjYWxlCGN1clNjYWxlCQBrAwUDYW10BQhyZXNTY2FsZQUIY3VyU2NhbGUBA2FicwEDdmFsAwkAvwICBQp6ZXJvQmlnSW50BQN2YWwJAL4CAQUDdmFsBQN2YWwBAmZjAAITJXNfX2ZhY3RvcnlDb250cmFjdAEDbXBrAAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBBHBtcGsAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBAnBsAAIRJXMlc19fcHJpY2VfX2xhc3QBAnBoAgFoAXQJALkJAgkAzAgCAhglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAMwIAgkApAMBBQFoCQDMCAIJAKQDAQUBdAUDbmlsBQNTRVABA3BhdQICdWEEdHhJZAkArAICCQCsAgIJAKwCAgILJXMlcyVzX19QX18FAnVhAgJfXwUEdHhJZAEDZ2F1AgJ1YQR0eElkCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX0dfXwUCdWECAl9fBQR0eElkAQJhYQACDyVzX19hbW91bnRBc3NldAECcGEAAg4lc19fcHJpY2VBc3NldAEDYW1wAAIHJXNfX2FtcAEDYWRhAAINJXNfX2FkZG9uQWRkcgEFbGdvdGMBBmNhbGxlcgkAuQkCCQDMCAICFyVzJXNfX2xhc3RHZXRPbmVUa25DYWxsCQDMCAIFBmNhbGxlcgUDbmlsBQNTRVABBWxzb3RjAQZjYWxsZXIJALkJAgkAzAgCAhclcyVzX19sYXN0UHV0T25lVGtuQ2FsbAkAzAgCBQZjYWxsZXIFA25pbAUDU0VQAQRmY2ZnAAIRJXNfX2ZhY3RvcnlDb25maWcBBG10cGsAAhglcyVzX19tYXRjaGVyX19wdWJsaWNLZXkBAnBjAgZpQW10QXMFaVByQXMJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FBmlBbXRBcwICX18FBWlQckFzAghfX2NvbmZpZwEDbWJhAQViQVN0cgkArAICAiglcyVzJXNfX21hcHBpbmdzX19iYXNlQXNzZXQyaW50ZXJuYWxJZF9fBQViQVN0cgEDYXBzAAIMJXNfX3NodXRkb3duARxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAAIdJXNfX2FsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2gBA3RvZQMDb3JWBnNlbmRyVgZtYXRjaFYJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIRRmFpbGVkOiBvcmRWYWxpZD0JAKUDAQUDb3JWAgsgc25kclZhbGlkPQkApQMBBQZzZW5kclYCDCBtdGNoclZhbGlkPQkApQMBBQZtYXRjaFYBA3N0cgEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAZ2YWxTdHIFByRtYXRjaDAFBnZhbFN0cgkAAgECE2ZhaWwgY2FzdCB0byBTdHJpbmcBBHN0cmYCBGFkZHIDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEYWRkcgUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFBGFkZHIJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAEEaW50ZgIEYWRkcgNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQRhZGRyBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUEYWRkcgkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAANmY2EJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQRzdHJmAgUEdGhpcwkBAmZjAAABQQkBBHN0cmYCBQR0aGlzCQEDYW1wAAEDaWdzAAkBC3ZhbHVlT3JFbHNlAgkAmwgCBQNmY2EJAQNhcHMABwECbXAACQDZBAEJAQRzdHJmAgUDZmNhCQEEbXRwawABA2dwYwAEBWFtdEFzCQEEc3RyZgIFBHRoaXMJAQJhYQAEB3ByaWNlQXMJAQRzdHJmAgUEdGhpcwkBAnBhAAQIaVByaWNlQXMJAQRpbnRmAgUDZmNhCQEDbWJhAQUHcHJpY2VBcwQGaUFtdEFzCQEEaW50ZgIFA2ZjYQkBA21iYQEFBWFtdEFzCQC1CQIJAQRzdHJmAgUDZmNhCQECcGMCCQCkAwEFBmlBbXRBcwkApAMBBQhpUHJpY2VBcwUDU0VQAQNnZmMACQC1CQIJAQRzdHJmAgUDZmNhCQEEZmNmZwAFA1NFUAERZGF0YVB1dEFjdGlvbkluZm8KDWluQW10QXNzZXRBbXQPaW5QcmljZUFzc2V0QW10CG91dExwQW10BXByaWNlCnNsaXBCeVVzZXIMc2xpcHBhZ2VSZWFsCHR4SGVpZ2h0C3R4VGltZXN0YW1wDHNsaXBhZ2VBbUFtdAxzbGlwYWdlUHJBbXQJALkJAgkAzAgCAhQlZCVkJWQlZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFDWluQW10QXNzZXRBbXQJAMwIAgkApAMBBQ9pblByaWNlQXNzZXRBbXQJAMwIAgkApAMBBQhvdXRMcEFtdAkAzAgCCQCkAwEFBXByaWNlCQDMCAIJAKQDAQUKc2xpcEJ5VXNlcgkAzAgCCQCkAwEFDHNsaXBwYWdlUmVhbAkAzAgCCQCkAwEFCHR4SGVpZ2h0CQDMCAIJAKQDAQULdHhUaW1lc3RhbXAJAMwIAgkApAMBBQxzbGlwYWdlQW1BbXQJAMwIAgkApAMBBQxzbGlwYWdlUHJBbXQFA25pbAUDU0VQARFkYXRhR2V0QWN0aW9uSW5mbwYOb3V0QW10QXNzZXRBbXQQb3V0UHJpY2VBc3NldEFtdAdpbkxwQW10BXByaWNlCHR4SGVpZ2h0C3R4VGltZXN0YW1wCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUOb3V0QW10QXNzZXRBbXQJAMwIAgkApAMBBRBvdXRQcmljZUFzc2V0QW10CQDMCAIJAKQDAQUHaW5McEFtdAkAzAgCCQCkAwEFBXByaWNlCQDMCAIJAKQDAQUIdHhIZWlnaHQJAMwIAgkApAMBBQt0eFRpbWVzdGFtcAUDbmlsBQNTRVABDWdldEFjY0JhbGFuY2UBB2Fzc2V0SWQDCQAAAgUHYXNzZXRJZAIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUHYXNzZXRJZAEEY3BiaQIIcHJBbXRYMTgIYW1BbXRYMTgJALwCAwUIcHJBbXRYMTgFB3NjYWxlMTgFCGFtQW10WDE4AQN2YWQDAkExAkEyCHNsaXBwYWdlBARkaWZmCQC8AgMJALgCAgUCQTEFAkEyBQxzY2FsZThCaWdJbnQFAkEyBARwYXNzCQC/AgIJALgCAgUIc2xpcHBhZ2UJAQNhYnMBBQRkaWZmBQp6ZXJvQmlnSW50AwkBASEBBQRwYXNzCQACAQkArAICAgpCaWcgc2xwZzogCQCmAwEFBGRpZmYJAJQKAgUEcGFzcwkAmQMBCQDMCAIFAkExCQDMCAIFAkEyBQNuaWwBAnZkAwJEMQJEMARzbHBnBARkaWZmCQC8AgMFAkQwBQxzY2FsZThCaWdJbnQFAkQxBARmYWlsCQC/AgIFBHNscGcFBGRpZmYDAwUEZmFpbAYJAL8CAgUCRDAFAkQxCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJEMAIBIAkApgMBBQJEMQIBIAkApgMBBQRkaWZmAgEgCQCmAwEFBHNscGcFBGZhaWwBA3BjcAQKYW1Bc3NldERjbQpwckFzc2V0RGNtBWFtQW10BXByQW10BAthbXRBc0FtdFgxOAkBAnQxAgUFYW1BbXQFCmFtQXNzZXREY20ECnByQXNBbXRYMTgJAQJ0MQIFBXByQW10BQpwckFzc2V0RGNtCQEEY3BiaQIFCnByQXNBbXRYMTgFC2FtdEFzQW10WDE4AQpjYWxjUHJpY2VzAwVhbUFtdAVwckFtdAVscEFtdAQDY2ZnCQEDZ3BjAAQIYW10QXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBAdwckFzRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQ1pZHhQcmljZUFzRGNtBAhwcmljZVgxOAkBA3BjcAQFCGFtdEFzRGNtBQdwckFzRGNtBQVhbUFtdAUFcHJBbXQECGFtQW10WDE4CQECdDECBQVhbUFtdAUIYW10QXNEY20ECHByQW10WDE4CQECdDECBQVwckFtdAUHcHJBc0RjbQQIbHBBbXRYMTgJAQJ0MQIFBWxwQW10BQZzY2FsZTgEDWxwUHJJbkFtQXNYMTgJAQRjcGJpAgUIYW1BbXRYMTgFCGxwQW10WDE4BA1scFBySW5QckFzWDE4CQEEY3BiaQIFCHByQW10WDE4BQhscEFtdFgxOAkAzAgCBQhwcmljZVgxOAkAzAgCBQ1scFBySW5BbUFzWDE4CQDMCAIFDWxwUHJJblByQXNYMTgFA25pbAEPY2FsY3VsYXRlUHJpY2VzAwVhbUFtdAVwckFtdAVscEFtdAQBcAkBCmNhbGNQcmljZXMDBQVhbUFtdAUFcHJBbXQFBWxwQW10CQDMCAIJAQJmMQIJAJEDAgUBcAAABQZzY2FsZTgJAMwIAgkBAmYxAgkAkQMCBQFwAAEFBnNjYWxlOAkAzAgCCQECZjECCQCRAwIFAXAAAgUGc2NhbGU4BQNuaWwBA2VnbwQGdHhJZDU4CnBtdEFzc2V0SWQIcG10THBBbXQLdXNlckFkZHJlc3MEA2NmZwkBA2dwYwAEBGxwSWQJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEBGFtSWQJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEBHBySWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEBWFtRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQFcHJEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQHbHBFbWlzcwgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFBGxwSWQCC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgUEbHBJZAUKcG10QXNzZXRJZAkAAgECD1dyb25nIHBtdCBhc3NldAQJYW1CYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBGFtSWQEDGFtQmFsYW5jZVgxOAkBAnQxAgUJYW1CYWxhbmNlBQVhbURjbQQJcHJCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBHBySWQEDHByQmFsYW5jZVgxOAkBAnQxAgUJcHJCYWxhbmNlBQVwckRjbQQLY3VyUHJpY2VYMTgJAQRjcGJpAgUMcHJCYWxhbmNlWDE4BQxhbUJhbGFuY2VYMTgECGN1clByaWNlCQECZjECBQtjdXJQcmljZVgxOAUGc2NhbGU4BAtwbXRMcEFtdFgxOAkBAnQxAgUIcG10THBBbXQFBnNjYWxlOAQKbHBFbWlzc1gxOAkBAnQxAgUHbHBFbWlzcwUGc2NhbGU4BAtvdXRBbUFtdFgxOAkAvAIDBQxhbUJhbGFuY2VYMTgFC3BtdExwQW10WDE4BQpscEVtaXNzWDE4BAtvdXRQckFtdFgxOAkAvAIDBQxwckJhbGFuY2VYMTgFC3BtdExwQW10WDE4BQpscEVtaXNzWDE4BAhvdXRBbUFtdAkBAmYxAgULb3V0QW1BbXRYMTgFBWFtRGNtBAhvdXRQckFtdAkBAmYxAgULb3V0UHJBbXRYMTgFBXByRGNtBAVzdGF0ZQMJAAACBQZ0eElkNTgCAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzBQhvdXRBbUFtdAMJAAACBQRhbUlkAgVXQVZFUwUEdW5pdAkA2QQBBQRhbUlkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzBQhvdXRQckFtdAMJAAACBQRwcklkAgVXQVZFUwUEdW5pdAkA2QQBBQRwcklkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQNnYXUCCQClCAEFC3VzZXJBZGRyZXNzBQZ0eElkNTgJARFkYXRhR2V0QWN0aW9uSW5mbwYFCG91dEFtQW10BQhvdXRQckFtdAUIcG10THBBbXQFCGN1clByaWNlBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGwABQhjdXJQcmljZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBoAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUIY3VyUHJpY2UFA25pbAkAnAoKBQhvdXRBbUFtdAUIb3V0UHJBbXQFBGFtSWQFBHBySWQFCWFtQmFsYW5jZQUJcHJCYWxhbmNlBQdscEVtaXNzBQtjdXJQcmljZVgxOAUDc3RzBQVzdGF0ZQEDZXBvDAZ0eElkNTgIc2xpcHBhZ2UHaW5BbUFtdAZpbkFtSWQHaW5QckFtdAZpblBySWQLdXNlckFkZHJlc3MGaXNFdmFsBmVtaXRMcAppc09uZUFzc2V0BnBtdEFtdAVwbXRJZAQDY2ZnCQEDZ3BjAAQEbHBJZAkA2QQBCQCRAwIFA2NmZwUJaWR4TFBBc0lkBAdhbUlkU3RyCQCRAwIFA2NmZwUJaWR4QW1Bc0lkBAdwcklkU3RyCQCRAwIFA2NmZwUJaWR4UHJBc0lkBAlpbkFtSWRTdHIJAJEDAgUDY2ZnBQtpZHhJQW10QXNJZAQJaW5QcklkU3RyCQCRAwIFA2NmZwUNaWR4SVByaWNlQXNJZAQGYW10RGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQIcHJpY2VEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQEbHBFbQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQRscElkAghXciBscCBhcwhxdWFudGl0eQQJYW1CYWxhbmNlAwUGaXNFdmFsCQENZ2V0QWNjQmFsYW5jZQEFB2FtSWRTdHIDAwUKaXNPbmVBc3NldAkAAAIFBXBtdElkBQdhbUlkU3RyBwkAZQIJAQ1nZXRBY2NCYWxhbmNlAQUHYW1JZFN0cgUGcG10QW10AwUKaXNPbmVBc3NldAkBDWdldEFjY0JhbGFuY2UBBQdhbUlkU3RyCQBlAgkBDWdldEFjY0JhbGFuY2UBBQdhbUlkU3RyBQdpbkFtQW10BAlwckJhbGFuY2UDBQZpc0V2YWwJAQ1nZXRBY2NCYWxhbmNlAQUHcHJJZFN0cgMDBQppc09uZUFzc2V0CQAAAgUFcG10SWQFB3BySWRTdHIHCQBlAgkBDWdldEFjY0JhbGFuY2UBBQdwcklkU3RyBQZwbXRBbXQDBQppc09uZUFzc2V0CQENZ2V0QWNjQmFsYW5jZQEFB3BySWRTdHIJAGUCCQENZ2V0QWNjQmFsYW5jZQEFB3BySWRTdHIFB2luUHJBbXQED2luQW1Bc3NldEFtdFgxOAkBAnQxAgUHaW5BbUFtdAUGYW10RGNtBA9pblByQXNzZXRBbXRYMTgJAQJ0MQIFB2luUHJBbXQFCHByaWNlRGNtBAx1c2VyUHJpY2VYMTgJAQRjcGJpAgUPaW5QckFzc2V0QW10WDE4BQ9pbkFtQXNzZXRBbXRYMTgEDGFtQmFsYW5jZVgxOAkBAnQxAgUJYW1CYWxhbmNlBQZhbXREY20EDHByQmFsYW5jZVgxOAkBAnQxAgUJcHJCYWxhbmNlBQhwcmljZURjbQQBcgMJAAACBQRscEVtAAAEC2N1clByaWNlWDE4BQp6ZXJvQmlnSW50BAtzbGlwcGFnZVgxOAUKemVyb0JpZ0ludAQIbHBBbXRYMTgJAHYGCQC5AgIFD2luQW1Bc3NldEFtdFgxOAUPaW5QckFzc2V0QW10WDE4AAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQECZjECBQhscEFtdFgxOAUGc2NhbGU4CQECZjECBQ9pbkFtQXNzZXRBbXRYMTgFBmFtdERjbQkBAmYxAgUPaW5QckFzc2V0QW10WDE4BQhwcmljZURjbQkBBGNwYmkCCQC3AgIFDHByQmFsYW5jZVgxOAUPaW5QckFzc2V0QW10WDE4CQC3AgIFDGFtQmFsYW5jZVgxOAUPaW5BbUFzc2V0QW10WDE4BQtzbGlwcGFnZVgxOAQLY3VyUHJpY2VYMTgJAQRjcGJpAgUMcHJCYWxhbmNlWDE4BQxhbUJhbGFuY2VYMTgED3NsaXBwYWdlUmVhbFgxOAkAvAIDCQEDYWJzAQkAuAICBQtjdXJQcmljZVgxOAUMdXNlclByaWNlWDE4BQdzY2FsZTE4BQtjdXJQcmljZVgxOAQLc2xpcHBhZ2VYMTgJAQJ0MQIFCHNsaXBwYWdlBQZzY2FsZTgDAwkBAiE9AgULY3VyUHJpY2VYMTgFCnplcm9CaWdJbnQJAL8CAgUPc2xpcHBhZ2VSZWFsWDE4BQtzbGlwcGFnZVgxOAcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUPc2xpcHBhZ2VSZWFsWDE4AgMgPiAJAKYDAQULc2xpcHBhZ2VYMTgEDWxwRW1pc3Npb25YMTgJAQJ0MQIFBGxwRW0FBnNjYWxlOAQKcHJWaWFBbVgxOAkAvAIDBQ9pbkFtQXNzZXRBbXRYMTgFC2N1clByaWNlWDE4BQdzY2FsZTE4BAphbVZpYVByWDE4CQC8AgMFD2luUHJBc3NldEFtdFgxOAUHc2NhbGUxOAULY3VyUHJpY2VYMTgEDGV4cGVjdGVkQW10cwMJAL8CAgUKcHJWaWFBbVgxOAUPaW5QckFzc2V0QW10WDE4CQCUCgIFCmFtVmlhUHJYMTgFD2luUHJBc3NldEFtdFgxOAkAlAoCBQ9pbkFtQXNzZXRBbXRYMTgFCnByVmlhQW1YMTgEEWV4cEFtdEFzc2V0QW10WDE4CAUMZXhwZWN0ZWRBbXRzAl8xBBNleHBQcmljZUFzc2V0QW10WDE4CAUMZXhwZWN0ZWRBbXRzAl8yBAhscEFtdFgxOAkAvAIDBQ1scEVtaXNzaW9uWDE4BRNleHBQcmljZUFzc2V0QW10WDE4BQxwckJhbGFuY2VYMTgJAJcKBQkBAmYxAgUIbHBBbXRYMTgFBnNjYWxlOAkBAmYxAgURZXhwQW10QXNzZXRBbXRYMTgFBmFtdERjbQkBAmYxAgUTZXhwUHJpY2VBc3NldEFtdFgxOAUIcHJpY2VEY20FC2N1clByaWNlWDE4BQtzbGlwcGFnZVgxOAQJY2FsY0xwQW10CAUBcgJfMQQOY2FsY0FtQXNzZXRQbXQIBQFyAl8yBA5jYWxjUHJBc3NldFBtdAgFAXICXzMECGN1clByaWNlCQECZjECCAUBcgJfNAUGc2NhbGU4BAxzbGlwcGFnZUNhbGMJAQJmMQIIBQFyAl81BQZzY2FsZTgDCQBnAgAABQljYWxjTHBBbXQJAAIBAgdMUCA8PSAwBAllbWl0THBBbXQDCQEBIQEFBmVtaXRMcAAABQljYWxjTHBBbXQEBmFtRGlmZgkAZQIFB2luQW1BbXQFDmNhbGNBbUFzc2V0UG10BAZwckRpZmYJAGUCBQdpblByQW10BQ5jYWxjUHJBc3NldFBtdAQNJHQwMTU2MDExNTk0NgMDBQppc09uZUFzc2V0CQAAAgUFcG10SWQFB2FtSWRTdHIHCQCUCgIFBnBtdEFtdAAAAwMFCmlzT25lQXNzZXQJAAACBQVwbXRJZAUHcHJJZFN0cgcJAJQKAgAABQZwbXRBbXQJAJQKAgUOY2FsY0FtQXNzZXRQbXQFDmNhbGNQckFzc2V0UG10BAp3cml0ZUFtQW10CAUNJHQwMTU2MDExNTk0NgJfMQQKd3JpdGVQckFtdAgFDSR0MDE1NjAxMTU5NDYCXzIEC2NvbW1vblN0YXRlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGwABQhjdXJQcmljZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBoAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUIY3VyUHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkBA3BhdQIFC3VzZXJBZGRyZXNzBQZ0eElkNTgJARFkYXRhUHV0QWN0aW9uSW5mbwoFCndyaXRlQW1BbXQFCndyaXRlUHJBbXQFCWVtaXRMcEFtdAUIY3VyUHJpY2UFCHNsaXBwYWdlBQxzbGlwcGFnZUNhbGMFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFBmFtRGlmZgUGcHJEaWZmBQNuaWwJAJ8KDQUJY2FsY0xwQW10BQllbWl0THBBbXQFCGN1clByaWNlBQlhbUJhbGFuY2UFCXByQmFsYW5jZQUEbHBFbQUEbHBJZAUDc3RzBQtjb21tb25TdGF0ZQUGYW1EaWZmBQZwckRpZmYFBmluQW1JZAUGaW5QcklkAQNtb2EBBW9yZGVyBANjZmcJAQNncGMABAdhbXRBc0lkCQCRAwIFA2NmZwUJaWR4QW1Bc0lkBAZwckFzSWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEA3N0cwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUJaWR4UG9vbFN0BAhhbXRBc0RjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20EB3ByQXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20ED2FjY0FtdEFzQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQdhbXRBc0lkBA5hY2NQckFzQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQZwckFzSWQEC2N1clByaWNlWDE4AwkAAAIIBQVvcmRlcglvcmRlclR5cGUFA0J1eQkBA3BjcAQFCGFtdEFzRGNtBQdwckFzRGNtCQBkAgUPYWNjQW10QXNCYWxhbmNlCAUFb3JkZXIGYW1vdW50BQ5hY2NQckFzQmFsYW5jZQkBA3BjcAQFCGFtdEFzRGNtBQdwckFzRGNtCQBlAgUPYWNjQW10QXNCYWxhbmNlCAUFb3JkZXIGYW1vdW50BQ5hY2NQckFzQmFsYW5jZQQIY3VyUHJpY2UJAQJmMQIFC2N1clByaWNlWDE4BQZzY2FsZTgDAwMJAQNpZ3MABgkAAAIFA3N0cwUOUG9vbE1hdGNoZXJEaXMGCQAAAgUDc3RzBQxQb29sU2h1dGRvd24JAAIBAg1BZG1pbiBibG9ja2VkBApvckFtdEFzc2V0CAgFBW9yZGVyCWFzc2V0UGFpcgthbW91bnRBc3NldAQKb3JBbXRBc1N0cgMJAAACBQpvckFtdEFzc2V0BQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQpvckFtdEFzc2V0BAlvclByQXNzZXQICAUFb3JkZXIJYXNzZXRQYWlyCnByaWNlQXNzZXQECW9yUHJBc1N0cgMJAAACBQlvclByQXNzZXQFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFCW9yUHJBc3NldAMDCQECIT0CBQpvckFtdEFzU3RyBQdhbXRBc0lkBgkBAiE9AgUJb3JQckFzU3RyBQZwckFzSWQJAAIBAglXciBhc3NldHMECm9yZGVyUHJpY2UIBQVvcmRlcgVwcmljZQQIcHJpY2VEY20JAGsDBQZzY2FsZTgFB3ByQXNEY20FCGFtdEFzRGNtBA5jYXN0T3JkZXJQcmljZQkBAnRzAwUKb3JkZXJQcmljZQUGc2NhbGU4BQhwcmljZURjbQQRaXNPcmRlclByaWNlVmFsaWQDCQAAAggFBW9yZGVyCW9yZGVyVHlwZQUDQnV5CQBnAgUIY3VyUHJpY2UFDmNhc3RPcmRlclByaWNlCQBnAgUOY2FzdE9yZGVyUHJpY2UFCGN1clByaWNlBgECY2cBAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAgoxIHBtbnQgZXhwBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQKcG10QXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAZwbXRBbXQIBQNwbXQGYW1vdW50BAFyCQEDZWdvBAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQDYBAEFCnBtdEFzc2V0SWQFBnBtdEFtdAgFAWkGY2FsbGVyBAhvdXRBbUFtdAgFAXICXzEECG91dFByQW10CAUBcgJfMgQDc3RzCQENcGFyc2VJbnRWYWx1ZQEIBQFyAl85BAVzdGF0ZQgFAXIDXzEwAwMJAQNpZ3MABgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQACAQkArAICAg9BZG1pbiBibG9ja2VkOiAJAKQDAQUDc3RzCQCXCgUFCG91dEFtQW10BQhvdXRQckFtdAUGcG10QW10BQpwbXRBc3NldElkBQVzdGF0ZQECY3AJBmNhbGxlcgR0eElkB2FtQXNQbXQHcHJBc1BtdAhzbGlwcGFnZQZlbWl0THAKaXNPbmVBc3NldAZwbXRBbXQFcG10SWQEAXIJAQNlcG8MBQR0eElkBQhzbGlwcGFnZQgJAQV2YWx1ZQEFB2FtQXNQbXQGYW1vdW50CAkBBXZhbHVlAQUHYW1Bc1BtdAdhc3NldElkCAkBBXZhbHVlAQUHcHJBc1BtdAZhbW91bnQICQEFdmFsdWUBBQdwckFzUG10B2Fzc2V0SWQFBmNhbGxlcgcFBmVtaXRMcAUKaXNPbmVBc3NldAUGcG10QW10BQVwbXRJZAQDc3RzCQENcGFyc2VJbnRWYWx1ZQEIBQFyAl84AwMDCQEDaWdzAAYJAAACBQNzdHMFClBvb2xQdXREaXMGCQAAAgUDc3RzBQxQb29sU2h1dGRvd24JAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFA3N0cwUBcgEBbQAEByRtYXRjaDAJAKIIAQkBA21wawADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQDZBAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAQJwbQAEByRtYXRjaDAJAKIIAQkBBHBtcGsAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkA2QQBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgACcGQJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAECbW0BAWkEByRtYXRjaDAJAQFtAAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJwawUHJG1hdGNoMAMJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkFAnBrBgUCcGQDCQABAgUHJG1hdGNoMAIEVW5pdAMJAAACCAUBaQZjYWxsZXIFBHRoaXMGBQJwZAkAAgECC01hdGNoIGVycm9yFQFpAQtjb25zdHJ1Y3RvcgECZmMEAWMJAQJtbQEFAWkDCQAAAgUBYwUBYwkAzAgCCQELU3RyaW5nRW50cnkCCQECZmMABQJmYwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnNldE1hbmFnZXIBF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BAFjCQECbW0BBQFpAwkAAAIFAWMFAWMEAmNtCQDZBAEFF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AwkAAAIFAmNtBQJjbQkAzAgCCQELU3RyaW5nRW50cnkCCQEEcG1wawAFF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEOY29uZmlybU1hbmFnZXIABAFwCQECcG0ABANocG0DCQEJaXNEZWZpbmVkAQUBcAYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUDaHBtBQNocG0EA2NwbQMJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAXAGCQACAQIbWW91IGFyZSBub3QgcGVuZGluZyBtYW5hZ2VyAwkAAAIFA2NwbQUDY3BtCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQNtcGsACQDYBAEJAQV2YWx1ZQEFAXAJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBBHBtcGsABQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEDcHV0AgRzbGlwCWF1dG9TdGFrZQQHZmFjdENmZwkBA2dmYwAEC3N0YWtpbmdDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdmYWN0Q2ZnBQ9pZHhGYWN0U3Rha0NudHICCldyIHN0IGFkZHIECHNsaXBDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdmYWN0Q2ZnBRBpZHhGYWN0U2xpcHBDbnRyAgpXciBzbCBhZGRyAwkAZgIAAAUEc2xpcAkAAgECDldyb25nIHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwACCQACAQIMMiBwbW50cyBleHBkBAFlCQECY3AJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AggJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUBaQhwYXltZW50cwABBQRzbGlwBgcAAAIABAllbWl0THBBbXQIBQFlAl8yBAlscEFzc2V0SWQIBQFlAl83BAVzdGF0ZQgFAWUCXzkEBmFtRGlmZggFAWUDXzEwBAZwckRpZmYIBQFlA18xMQQEYW1JZAgFAWUDXzEyBARwcklkCAUBZQNfMTMEAXIJAPwHBAUDZmNhAgRlbWl0CQDMCAIFCWVtaXRMcEFtdAUDbmlsBQNuaWwDCQAAAgUBcgUBcgQCZWwEByRtYXRjaDAFAXIDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQGbGVnYWN5BQckbWF0Y2gwCQD8BwQFBmxlZ2FjeQIEZW1pdAkAzAgCBQllbWl0THBBbXQFA25pbAUDbmlsBQR1bml0AwkAAAIFAmVsBQJlbAQCc2EDCQBmAgUGYW1EaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRhbUlkBQZhbURpZmYFA25pbAUDbmlsAwkAAAIFAnNhBQJzYQQCc3ADCQBmAgUGcHJEaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQRwcklkBQZwckRpZmYFA25pbAUDbmlsAwkAAAIFAnNwBQJzcAQIbHBUcm5zZnIDBQlhdXRvU3Rha2UEAnNzCQD8BwQFC3N0YWtpbmdDbnRyAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQlscEFzc2V0SWQFCWVtaXRMcEFtdAUDbmlsAwkAAAIFAnNzBQJzcwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUJZW1pdExwQW10BQlscEFzc2V0SWQFA25pbAkAzggCBQVzdGF0ZQUIbHBUcm5zZnIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJcHV0T25lVGtuBQthbUFzc2V0UGFydAtwckFzc2V0UGFydAVvdXRMcAhzbGlwcGFnZQlhdXRvU3Rha2UEA2NmZwkBA2dmYwAEC3N0YWtpbmdDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQNjZmcFD2lkeEZhY3RTdGFrQ250cgIKV3Igc3QgYWRkcgQIc2xpcENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFA2NmZwUQaWR4RmFjdFNsaXBwQ250cgIKV3Igc2wgYWRkcgQHZ3d4Q250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUDY2ZnBRFpZHhGYWN0R3d4UmV3Q250cgILV3IgZ3d4IGFkZHIEB3Bvb2xDZmcJAQNncGMABARhbUlkCQCRAwIFB3Bvb2xDZmcFCWlkeEFtQXNJZAQEcHJJZAkAkQMCBQdwb29sQ2ZnBQlpZHhQckFzSWQEBWFtRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcG9vbENmZwULaWR4QW10QXNEY20EBXByRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcG9vbENmZwUNaWR4UHJpY2VBc0RjbQQFYWRkb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBA2FkYQACAAQLdXNlckFkZHJlc3MDCQAAAgUFYWRkb24JAKUIAQgFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIIBQFpBmNhbGxlcgQNYWRkb25Db250cmFjdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEDYWRhAAIJbm8gYWRkb25zAhphZGRvbiBhZGRyZXNzIGluIG5vdCB2YWxpZAQFY2hlY2sJAP0HBAUNYWRkb25Db250cmFjdAISZW5zdXJlQ2FuUHV0T25lVGtuCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDbmlsAwkAAAIFBWNoZWNrBQVjaGVjawMDAwMJAGcCAAAFCHNsaXBwYWdlBgkAZwIAAAULYW1Bc3NldFBhcnQGCQBnAgAABQtwckFzc2V0UGFydAYJAGcCAAAFBW91dExwCQACAQIMV3JvbmcgcGFyYW1zAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABApwbXRBc3NldElkCQDYBAEJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQGcG10QW10CAUDcG10BmFtb3VudAMJAGYCAICt4gQFBnBtdEFtdAkAAgECDVdyb25nIHBtdCBhbXQECWFtQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRhbUlkBAlwckJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEcHJJZAQNJHQwMjQ4NTkyNTQzNQMJAAACBQpwbXRBc3NldElkBQRhbUlkAwMJAGYCBQZwbXRBbXQFCWFtQmFsYW5jZQYJAGYCBQthbUFzc2V0UGFydAUGcG10QW10CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAmAoGCQBlAgUJYW1CYWxhbmNlBQZwbXRBbXQFCXByQmFsYW5jZQkAZQIFBnBtdEFtdAULYW1Bc3NldFBhcnQFC3ByQXNzZXRQYXJ0AAAAAAMJAAACBQpwbXRBc3NldElkBQRwcklkAwMJAGYCBQZwbXRBbXQFCXByQmFsYW5jZQYJAGYCBQtwckFzc2V0UGFydAUGcG10QW10CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAmAoGBQlhbUJhbGFuY2UJAGUCBQlwckJhbGFuY2UFBnBtdEFtdAAAAAAJAGUCBQZwbXRBbXQFC3ByQXNzZXRQYXJ0BQthbUFzc2V0UGFydAkAAgECEHdyb25nIHBtdEFzc2V0SWQEDGFtQmFsYW5jZU5vdwgFDSR0MDI0ODU5MjU0MzUCXzEEDHByQmFsYW5jZU5vdwgFDSR0MDI0ODU5MjU0MzUCXzIEDHZpcnRTd2FwSW5BbQgFDSR0MDI0ODU5MjU0MzUCXzMEDXZpcnRTd2FwT3V0UHIIBQ0kdDAyNDg1OTI1NDM1Al80BAx2aXJ0U3dhcEluUHIIBQ0kdDAyNDg1OTI1NDM1Al81BA12aXJ0U3dhcE91dEFtCAUNJHQwMjQ4NTkyNTQzNQJfNgQCRDAJAPwHBAUHZ3d4Q250cgIFY2FsY0QJAMwIAgkApAMBBQxhbUJhbGFuY2VOb3cJAMwIAgkApAMBBQxwckJhbGFuY2VOb3cJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCBQVEY29udgUDbmlsBQNuaWwEAkQxCQD8BwQFB2d3eENudHICBWNhbGNECQDMCAIJAKYDAQkAtgIBCQBlAgkAZAIFDGFtQmFsYW5jZU5vdwUMdmlydFN3YXBJbkFtBQ12aXJ0U3dhcE91dEFtCQDMCAIJAKYDAQkAtgIBCQBlAgkAZAIFDHByQmFsYW5jZU5vdwUMdmlydFN3YXBJblByBQ12aXJ0U3dhcE91dFByCQDMCAIFAUEJAMwIAgUFQW11bHQJAMwIAgUFRGNvbnYFA25pbAUDbmlsBAZEMHZzRDEJAQJ2ZAMJAKcDAQkBA3N0cgEFAkQxCQCnAwEJAQNzdHIBBQJEMAUKc2xpcHBhZ2U0RAMJAAACBQZEMHZzRDEFBkQwdnNEMQQGZXN0UHV0CQECY3AJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRhbUlkBQthbUFzc2V0UGFydAkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEcHJJZAULcHJBc3NldFBhcnQFCHNsaXBwYWdlBgYFBnBtdEFtdAUKcG10QXNzZXRJZAQHZXN0aW1MUAgFBmVzdFB1dAJfMgQJbHBBc3NldElkCAUGZXN0UHV0Al83BAVzdGF0ZQgFBmVzdFB1dAJfOQQGYW1EaWZmCAUGZXN0UHV0A18xMAQGcHJEaWZmCAUGZXN0UHV0A18xMQQJbHBDYWxjUmVzCQEDdmFkAwkAtgIBBQdlc3RpbUxQCQC2AgEFBW91dExwCQC2AgEFCHNsaXBwYWdlBAllbWl0THBBbXQJAKADAQgFCWxwQ2FsY1JlcwJfMgQBZQkA/AcEBQNmY2ECBGVtaXQJAMwIAgUJZW1pdExwQW10BQNuaWwFA25pbAMJAAACBQFlBQFlBAJlbAQHJG1hdGNoMAUBZQMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAZsZWdhY3kFByRtYXRjaDAJAPwHBAUGbGVnYWN5AgRlbWl0CQDMCAIFCWVtaXRMcEFtdAUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZWwFAmVsBAJzYQMJAGYCBQZhbURpZmYAAAkA/AcEBQhzbGlwQ250cgIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEYW1JZAUGYW1EaWZmBQNuaWwFA25pbAMJAAACBQJzYQUCc2EEAnNwAwkAZgIFBnByRGlmZgAACQD8BwQFCHNsaXBDbnRyAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRwcklkBQZwckRpZmYFA25pbAUDbmlsAwkAAAIFAnNwBQJzcAQIbHBUcm5zZnIDBQlhdXRvU3Rha2UEAnNzCQD8BwQFC3N0YWtpbmdDbnRyAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQlscEFzc2V0SWQFCWVtaXRMcEFtdAUDbmlsAwkAAAIFAnNzBQJzcwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUJZW1pdExwQW10BQlscEFzc2V0SWQFA25pbAkAzggCBQVzdGF0ZQUIbHBUcm5zZnIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEKcHV0Rm9yRnJlZQEHbWF4U2xwZwMJAGYCAAAFB21heFNscGcJAAIBAgpXcm9uZyBzbHBnAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwACCQACAQIMMiBwbW50cyBleHBkBAZlc3RQdXQJAQJjcAkJAKUIAQgFAWkGY2FsbGVyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQCRAwIIBQFpCHBheW1lbnRzAAEFB21heFNscGcHBwAAAgAIBQZlc3RQdXQCXzkBaQEDZ2V0AAQBcgkBAmNnAQUBaQQJb3V0QW10QW10CAUBcgJfMQQIb3V0UHJBbXQIBQFyAl8yBAZwbXRBbXQIBQFyAl8zBApwbXRBc3NldElkCAUBcgJfNAQFc3RhdGUIBQFyAl81BAFiCQD8BwQFA2ZjYQIEYnVybgkAzAgCBQZwbXRBbXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUKcG10QXNzZXRJZAUGcG10QW10BQNuaWwDCQAAAgUBYgUBYgUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJZ2V0T25lVGtuBQpleGNoUmVzdWx0B25vdFVzZWQJb3V0QW1vdW50Cm91dEFzc2V0SWQIc2xpcHBhZ2UDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAgsxIHBtbnQgZXhwZAQDY2ZnCQEDZ3BjAAQEbHBJZAkAkQMCBQNjZmcFCWlkeExQQXNJZAQEYW1JZAkAkQMCBQNjZmcFCWlkeEFtQXNJZAQEcHJJZAkAkQMCBQNjZmcFCWlkeFByQXNJZAQFYW1EY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBAVwckRjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUNaWR4UHJpY2VBc0RjbQQDc3RzCQCRAwIFA2NmZwUJaWR4UG9vbFN0BAdmYWN0Q2ZnCQEDZ2ZjAAQHZ3d4Q250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHZmFjdENmZwURaWR4RmFjdEd3eFJld0NudHICCldyIHNsIGFkZHIEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABAVhZGRvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEDYWRhAAIABAt1c2VyQWRkcmVzcwMJAAACBQVhZGRvbgkApQgBCAUBaQZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcggFAWkGY2FsbGVyBAZ0eElkNTgJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAQKcG10QXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAZwbXRBbXQIBQNwbXQGYW1vdW50BA1hZGRvbkNvbnRyYWN0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJAQNhZGEAAglubyBhZGRvbnMCGmFkZG9uIGFkZHJlc3MgaW4gbm90IHZhbGlkBAVjaGVjawkA/QcEBQ1hZGRvbkNvbnRyYWN0AhJlbnN1cmVDYW5HZXRPbmVUa24JAMwIAgkApQgBBQt1c2VyQWRkcmVzcwUDbmlsBQNuaWwDCQAAAgUFY2hlY2sFBWNoZWNrAwkAZgIAgJTr3AMFBnBtdEFtdAkAAgECDU1pbiBwbXQgMTAgTFADAwMJAGYCAAAFCHNsaXBwYWdlBgkAZgIAAAUKZXhjaFJlc3VsdAYJAGYCAAAFCW91dEFtb3VudAkAAgECDFdyb25nIHBhcmFtcwMJAQIhPQIFBGxwSWQJANgEAQUKcG10QXNzZXRJZAkAAgECCFdyb25nIExQBAFyCQEDZWdvBAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQDYBAEFCnBtdEFzc2V0SWQFBnBtdEFtdAgFAWkGY2FsbGVyBAplc3RpbUFtQW10CAUBcgJfMQQKZXN0aW1QckFtdAgFAXICXzIECWFtQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRhbUlkBAlwckJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEcHJJZAQNJHQwMzA0NjYzMDkyMwMJAAACBQpvdXRBc3NldElkBQRhbUlkCQCZCgcJAGUCBQlhbUJhbGFuY2UFCmVzdGltQW1BbXQJAGUCBQlwckJhbGFuY2UFCmVzdGltUHJBbXQFCmV4Y2hSZXN1bHQFCmVzdGltUHJBbXQAAAAACQBkAgUKZXN0aW1BbUFtdAUKZXhjaFJlc3VsdAMJAAACBQpvdXRBc3NldElkBQRwcklkCQCZCgcJAGUCBQlhbUJhbGFuY2UFCmVzdGltQW1BbXQJAGUCBQlwckJhbGFuY2UFCmVzdGltUHJBbXQAAAAABQpleGNoUmVzdWx0BQplc3RpbUFtQW10CQBkAgUKZXN0aW1QckFtdAUKZXhjaFJlc3VsdAkAAgECEHdyb25nIG91dEFzc2V0SWQEDGFtQmFsYW5jZU5vdwgFDSR0MDMwNDY2MzA5MjMCXzEEDHByQmFsYW5jZU5vdwgFDSR0MDMwNDY2MzA5MjMCXzIEDHZpcnRTd2FwSW5BbQgFDSR0MDMwNDY2MzA5MjMCXzMEDXZpcnRTd2FwT3V0UHIIBQ0kdDAzMDQ2NjMwOTIzAl80BAx2aXJ0U3dhcEluUHIIBQ0kdDAzMDQ2NjMwOTIzAl81BA12aXJ0U3dhcE91dEFtCAUNJHQwMzA0NjYzMDkyMwJfNgQIdG90YWxHZXQIBQ0kdDAzMDQ2NjMwOTIzAl83AwMJAGYCAAAFDHZpcnRTd2FwSW5BbQYJAGYCAAAFDHZpcnRTd2FwSW5QcgkAAgECCldyb25nIGNhbGMEAkQwCQD8BwQFB2d3eENudHICBWNhbGNECQDMCAIJAKQDAQUMYW1CYWxhbmNlTm93CQDMCAIJAKQDAQUMcHJCYWxhbmNlTm93CQDMCAIFAUEJAMwIAgUFQW11bHQJAMwIAgUFRGNvbnYFA25pbAUDbmlsBAJEMQkA/AcEBQdnd3hDbnRyAgVjYWxjRAkAzAgCCQCkAwEJAGQCCQBlAgUMYW1CYWxhbmNlTm93BQx2aXJ0U3dhcEluQW0FDXZpcnRTd2FwT3V0QW0JAMwIAgkApAMBCQBlAgkAZAIFDHByQmFsYW5jZU5vdwUNdmlydFN3YXBPdXRQcgUMdmlydFN3YXBJblByCQDMCAIFAUEJAMwIAgUFQW11bHQJAMwIAgUFRGNvbnYFA25pbAUDbmlsBAZEMHZzRDEJAQJ2ZAMJAKcDAQkBA3N0cgEFAkQxCQCnAwEJAQNzdHIBBQJEMAUKc2xpcHBhZ2U0RAMJAAACBQZEMHZzRDEFBkQwdnNEMQQIZmluYWxSZXMJAQN2YWQDCQC2AgEFCHRvdGFsR2V0CQC2AgEFCW91dEFtb3VudAkAtgIBBQhzbGlwcGFnZQMJAAACBQhmaW5hbFJlcwUIZmluYWxSZXMEDSR0MDMxNjI4MzE3MzIDCQAAAgUKb3V0QXNzZXRJZAUEYW1JZAkAlAoCCQCgAwEIBQhmaW5hbFJlcwJfMgAACQCUCgIAAAkAoAMBCAUIZmluYWxSZXMCXzIEBW91dEFtCAUNJHQwMzE2MjgzMTczMgJfMQQFb3V0UHIIBQ0kdDAzMTYyODMxNzMyAl8yBAhjdXJQclgxOAkBBGNwYmkCCQECdDECBQlwckJhbGFuY2UFBXByRGNtCQECdDECBQlhbUJhbGFuY2UFBWFtRGNtBAVjdXJQcgkBAmYxAgUIY3VyUHJYMTgFBnNjYWxlOAQFc3RhdGUJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULdXNlckFkZHJlc3MJAGQCBQVvdXRBbQUFb3V0UHIDCQAAAgUKb3V0QXNzZXRJZAIFV0FWRVMFBHVuaXQJANkEAQUKb3V0QXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEDZ2F1AgkApQgBBQt1c2VyQWRkcmVzcwUGdHhJZDU4CQERZGF0YUdldEFjdGlvbkluZm8GBQVvdXRBbQUFb3V0UHIFBnBtdEFtdAUFY3VyUHIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJwbAAFBWN1clByCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGgCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQVjdXJQcgUDbmlsAwkAAAIFBXN0YXRlBQVzdGF0ZQQEYnVybgkA/AcEBQNmY2ECBGJ1cm4JAMwIAgUGcG10QW10BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCnBtdEFzc2V0SWQFBnBtdEFtdAUDbmlsAwkAAAIFBGJ1cm4FBGJ1cm4FBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCWdldE5vTGVzcwISbm9MZXNzVGhlbkFtdEFzc2V0FG5vTGVzc1RoZW5QcmljZUFzc2V0BAFyCQECY2cBBQFpBAhvdXRBbUFtdAgFAXICXzEECG91dFByQW10CAUBcgJfMgQGcG10QW10CAUBcgJfMwQKcG10QXNzZXRJZAgFAXICXzQEBXN0YXRlCAUBcgJfNQMJAGYCBRJub0xlc3NUaGVuQW10QXNzZXQFCG91dEFtQW10CQACAQkArAICCQCsAgIJAKwCAgIJRmFpbGVkOiAgCQCkAwEFCG91dEFtQW10AgMgPCAJAKQDAQUSbm9MZXNzVGhlbkFtdEFzc2V0AwkAZgIFFG5vTGVzc1RoZW5QcmljZUFzc2V0BQhvdXRQckFtdAkAAgEJAKwCAgkArAICCQCsAgICCEZhaWxlZDogCQCkAwEFCG91dFByQW10AgMgPCAJAKQDAQUUbm9MZXNzVGhlblByaWNlQXNzZXQEFGJ1cm5MUEFzc2V0T25GYWN0b3J5CQD8BwQFA2ZjYQIEYnVybgkAzAgCBQZwbXRBbXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUKcG10QXNzZXRJZAUGcG10QW10BQNuaWwDCQAAAgUUYnVybkxQQXNzZXRPbkZhY3RvcnkFFGJ1cm5MUEFzc2V0T25GYWN0b3J5BQVzdGF0ZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ11bnN0YWtlQW5kR2V0AQZhbW91bnQEDWNoZWNrUGF5bWVudHMDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAg1ObyBwbW50cyBleHBkBgMJAAACBQ1jaGVja1BheW1lbnRzBQ1jaGVja1BheW1lbnRzBANjZmcJAQNncGMABApmYWN0b3J5Q2ZnCQEDZ2ZjAAQJbHBBc3NldElkCQDZBAEJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEB3N0YWtpbmcJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFCmZhY3RvcnlDZmcFD2lkeEZhY3RTdGFrQ250cgIKV3Igc3QgYWRkcgQKdW5zdGFrZUludgkA/AcEBQdzdGFraW5nAgd1bnN0YWtlCQDMCAIJANgEAQUJbHBBc3NldElkCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUKdW5zdGFrZUludgUKdW5zdGFrZUludgQBcgkBA2VnbwQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkA2AQBBQlscEFzc2V0SWQFBmFtb3VudAgFAWkGY2FsbGVyBANzdHMJAQ1wYXJzZUludFZhbHVlAQgFAXICXzkEBXN0YXRlCAUBcgNfMTAEAXYDAwkBA2lncwAGCQAAAgUDc3RzBQxQb29sU2h1dGRvd24JAAIBCQCsAgICCUJsb2NrZWQ6IAkApAMBBQNzdHMGAwkAAAIFAXYFAXYEBWJ1cm5BCQD8BwQFA2ZjYQIEYnVybgkAzAgCBQZhbW91bnQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUJbHBBc3NldElkBQZhbW91bnQFA25pbAMJAAACBQVidXJuQQUFYnVybkEFBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGFjdGl2YXRlAghhbXRBc1N0cgdwckFzU3RyAwkBAiE9AgkApQgBCAUBaQZjYWxsZXIJAKUIAQUDZmNhCQACAQIGZGVuaWVkCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFhAAUIYW10QXNTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAnBhAAUHcHJBc1N0cgUDbmlsAgdzdWNjZXNzAWkBBHNldFMCAWsBdgMJAQIhPQIJAKUIAQgFAWkGY2FsbGVyCQEEc3RyZgIFBHRoaXMJAQNhZGEABQJwZAkAzAgCCQELU3RyaW5nRW50cnkCBQFrBQF2BQNuaWwBaQEEc2V0SQIBawF2AwkBAiE9AgkApQgBCAUBaQZjYWxsZXIJAQRzdHJmAgUEdGhpcwkBA2FkYQAFAnBkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQFrBQF2BQNuaWwBaQEcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQAJAJQKAgUDbmlsCQEDZ3BjAAFpARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQdhc3NldElkCQCUCgIFA25pbAkBDWdldEFjY0JhbGFuY2UBBQdhc3NldElkAWkBGWNhbGNQcmljZXNXcmFwcGVyUkVBRE9OTFkDBWFtQW10BXByQW10BWxwQW10BAJwcgkBCmNhbGNQcmljZXMDBQVhbUFtdAUFcHJBbXQFBWxwQW10CQCUCgIFA25pbAkAzAgCCQCmAwEJAJEDAgUCcHIAAAkAzAgCCQCmAwEJAJEDAgUCcHIAAQkAzAgCCQCmAwEJAJEDAgUCcHIAAgUDbmlsAWkBFmZyb21YMThXcmFwcGVyUkVBRE9OTFkCA3ZhbAxyZXNTY2FsZU11bHQJAJQKAgUDbmlsCQECZjECCQCnAwEFA3ZhbAUMcmVzU2NhbGVNdWx0AWkBFHRvWDE4V3JhcHBlclJFQURPTkxZAgdvcmlnVmFsDW9yaWdTY2FsZU11bHQJAJQKAgUDbmlsCQCmAwEJAQJ0MQIFB29yaWdWYWwFDW9yaWdTY2FsZU11bHQBaQEeY2FsY1ByaWNlQmlnSW50V3JhcHBlclJFQURPTkxZAghwckFtdFgxOAhhbUFtdFgxOAkAlAoCBQNuaWwJAKYDAQkBBGNwYmkCCQCnAwEFCHByQW10WDE4CQCnAwEFCGFtQW10WDE4AWkBI2VzdGltYXRlUHV0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZCQZ0eElkNTgIc2xpcHBhZ2UHaW5BbUFtdAZpbkFtSWQHaW5QckFtdAZpblBySWQHdXNyQWRkcgZpc0V2YWwGZW1pdExwCQCUCgIFA25pbAkBA2VwbwwFBnR4SWQ1OAUIc2xpcHBhZ2UFB2luQW1BbXQFBmluQW1JZAUHaW5QckFtdAUGaW5QcklkBQd1c3JBZGRyBQZpc0V2YWwFBmVtaXRMcAcAAAIAAWkBI2VzdGltYXRlR2V0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZBAZ0eElkNTgHcG10QXNJZAhwbXRMcEFtdAd1c3JBZGRyBAFyCQEDZWdvBAUGdHhJZDU4BQdwbXRBc0lkBQhwbXRMcEFtdAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHdXNyQWRkcgkAlAoCBQNuaWwJAJwKCggFAXICXzEIBQFyAl8yCAUBcgJfMwgFAXICXzQIBQFyAl81CAUBcgJfNggFAXICXzcJAKYDAQgFAXICXzgIBQFyAl85CAUBcgNfMTABAnR4AQZ2ZXJpZnkABA90YXJnZXRQdWJsaWNLZXkEByRtYXRjaDAJAQFtAAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJwawUHJG1hdGNoMAUCcGsDCQABAgUHJG1hdGNoMAIEVW5pdAgFAnR4D3NlbmRlclB1YmxpY0tleQkAAgECC01hdGNoIGVycm9yBAckbWF0Y2gwBQJ0eAMJAAECBQckbWF0Y2gwAgVPcmRlcgQFb3JkZXIFByRtYXRjaDAECm1hdGNoZXJQdWIJAQJtcAAECm9yZGVyVmFsaWQJAQNtb2EBBQVvcmRlcgQLc2VuZGVyVmFsaWQJAPQDAwgFBW9yZGVyCWJvZHlCeXRlcwkAkQMCCAUFb3JkZXIGcHJvb2ZzAAAIBQVvcmRlcg9zZW5kZXJQdWJsaWNLZXkEDG1hdGNoZXJWYWxpZAkA9AMDCAUFb3JkZXIJYm9keUJ5dGVzCQCRAwIIBQVvcmRlcgZwcm9vZnMAAQUKbWF0Y2hlclB1YgMDAwUKb3JkZXJWYWxpZAULc2VuZGVyVmFsaWQHBQxtYXRjaGVyVmFsaWQHBgkBA3RvZQMFCm9yZGVyVmFsaWQFC3NlbmRlclZhbGlkBQxtYXRjaGVyVmFsaWQDCQABAgUHJG1hdGNoMAIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAXMFByRtYXRjaDAEB25ld0hhc2gJAPYDAQkBBXZhbHVlAQgFAXMGc2NyaXB0BAthbGxvd2VkSGFzaAkA2wQBCQEFdmFsdWUBCQCdCAIFA2ZjYQkBHGtleUFsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2gABAtjdXJyZW50SGFzaAkA8QcBBQR0aGlzAwMJAAACBQthbGxvd2VkSGFzaAUHbmV3SGFzaAkBAiE9AgULY3VycmVudEhhc2gFB25ld0hhc2gHBgkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUPdGFyZ2V0UHVibGljS2V5CQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQ90YXJnZXRQdWJsaWNLZXm8emkr",
    "height": 2207013,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BKQuFviKjXvX831vGSc8VCHrUhW2Cpy1o1v6xfhJzP4i
Next: CkimVPiA9nR9jVsEgoVbHmhMsudRKaAK7NxVMQENQdbn

Diff: 

OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let scale8 = 100000000
5+
6+let scale8BigInt = toBigInt(100000000)
7+
8+let scale18 = toBigInt(1000000000000000000)
9+
10+let zeroBigInt = toBigInt(0)
11+
12+let oneBigInt = toBigInt(1)
13+
14+let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
15+
16+let Amult = "100"
17+
18+let Dconv = "1"
19+
420 let SEP = "__"
521 
622 let EMPTY = ""
723 
24+let PoolActive = 1
25+
26+let PoolPutDis = 2
27+
28+let PoolMatcherDis = 3
29+
30+let PoolShutdown = 4
31+
832 let idxPoolAddress = 1
33+
34+let idxPoolSt = 2
935 
1036 let idxLPAsId = 3
1137 
1339 
1440 let idxPrAsId = 5
1541 
42+let idxAmtAsDcm = 6
43+
44+let idxPriceAsDcm = 7
45+
46+let idxIAmtAsId = 8
47+
48+let idxIPriceAsId = 9
49+
1650 let idxFactStakCntr = 1
1751 
18-func keyFactCntr () = "%s__factoryContract"
52+let idxFactSlippCntr = 7
53+
54+let idxFactGwxRewCntr = 10
55+
56+let delay = "%s__delay"
57+
58+func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
1959 
2060 
21-func keyManagerPublicKey () = "%s__managerPublicKey"
61+func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
2262 
2363 
24-func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
64+func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
2565 
2666 
27-func keyPoolAddr () = "%s__poolAddress"
67+func abs (val) = if ((zeroBigInt > val))
68+    then -(val)
69+    else val
2870 
2971 
30-func keyAmtAsset () = "%s__amountAsset"
72+func fc () = "%s__factoryContract"
3173 
3274 
33-func keyPriceAsset () = "%s__priceAsset"
75+func mpk () = "%s__managerPublicKey"
3476 
3577 
36-func keyAdminPubKeys () = "%s__adminPubKeys"
78+func pmpk () = "%s__pendingManagerPublicKey"
3779 
3880 
39-func keyAmp () = "%s__amp"
81+func pl () = "%s%s__price__last"
4082 
4183 
42-func keyAmpHistory (height) = ("%s%d__amp__" + toString(height))
84+func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
4385 
4486 
45-func keyFactoryConfig () = "%s__factoryConfig"
87+func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
4688 
4789 
48-func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
90+func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
4991 
5092 
51-func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
93+func aa () = "%s__amountAsset"
5294 
5395 
54-func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
96+func pa () = "%s__priceAsset"
5597 
5698 
57-func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
99+func amp () = "%s__amp"
58100 
59101 
60-let poolContract = addressFromStringValue(getStringOrFail(this, keyPoolAddr()))
102+func ada () = "%s__addonAddr"
61103 
62-let factoryContract = addressFromStringValue(getStringOrFail(poolContract, keyFactCntr()))
63104 
64-func getPoolConfig () = {
65-    let amtAs = getStringOrFail(poolContract, keyAmtAsset())
66-    let priceAs = getStringOrFail(poolContract, keyPriceAsset())
67-    let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs))
68-    let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs))
69-    split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP)
105+func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
106+
107+
108+func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
109+
110+
111+func fcfg () = "%s__factoryConfig"
112+
113+
114+func mtpk () = "%s%s__matcher__publicKey"
115+
116+
117+func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
118+
119+
120+func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
121+
122+
123+func aps () = "%s__shutdown"
124+
125+
126+func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127+
128+
129+func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
130+
131+
132+func str (val) = match val {
133+    case valStr: String => 
134+        valStr
135+    case _ => 
136+        throw("fail cast to String")
137+}
138+
139+
140+func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
141+
142+
143+func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
144+
145+
146+let fca = addressFromStringValue(strf(this, fc()))
147+
148+let A = strf(this, amp())
149+
150+func igs () = valueOrElse(getBoolean(fca, aps()), false)
151+
152+
153+func mp () = fromBase58String(strf(fca, mtpk()))
154+
155+
156+func gpc () = {
157+    let amtAs = strf(this, aa())
158+    let priceAs = strf(this, pa())
159+    let iPriceAs = intf(fca, mba(priceAs))
160+    let iAmtAs = intf(fca, mba(amtAs))
161+    split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
70162     }
71163 
72164 
73-func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
165+func gfc () = split(strf(fca, fcfg()), SEP)
74166 
75167 
76-func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
168+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)
169+
170+
171+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)
172+
173+
174+func getAccBalance (assetId) = if ((assetId == "WAVES"))
175+    then wavesBalance(this).available
176+    else assetBalance(this, fromBase58String(assetId))
177+
178+
179+func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
180+
181+
182+func vad (A1,A2,slippage) = {
183+    let diff = fraction((A1 - A2), scale8BigInt, A2)
184+    let pass = ((slippage - abs(diff)) > zeroBigInt)
185+    if (!(pass))
186+        then throw(("Big slpg: " + toString(diff)))
187+        else $Tuple2(pass, min([A1, A2]))
188+    }
189+
190+
191+func vd (D1,D0,slpg) = {
192+    let diff = fraction(D0, scale8BigInt, D1)
193+    let fail = (slpg > diff)
194+    if (if (fail)
195+        then true
196+        else (D0 > D1))
197+        then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
198+        else fail
199+    }
200+
201+
202+func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
203+    let amtAsAmtX18 = t1(amAmt, amAssetDcm)
204+    let prAsAmtX18 = t1(prAmt, prAssetDcm)
205+    cpbi(prAsAmtX18, amtAsAmtX18)
206+    }
207+
208+
209+func calcPrices (amAmt,prAmt,lpAmt) = {
210+    let cfg = gpc()
211+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
212+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
213+    let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
214+    let amAmtX18 = t1(amAmt, amtAsDcm)
215+    let prAmtX18 = t1(prAmt, prAsDcm)
216+    let lpAmtX18 = t1(lpAmt, scale8)
217+    let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
218+    let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
219+[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
220+    }
221+
222+
223+func calculatePrices (amAmt,prAmt,lpAmt) = {
224+    let p = calcPrices(amAmt, prAmt, lpAmt)
225+[f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
226+    }
227+
228+
229+func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
230+    let cfg = gpc()
231+    let lpId = cfg[idxLPAsId]
232+    let amId = cfg[idxAmAsId]
233+    let prId = cfg[idxPrAsId]
234+    let amDcm = parseIntValue(cfg[idxAmtAsDcm])
235+    let prDcm = parseIntValue(cfg[idxPriceAsDcm])
236+    let sts = cfg[idxPoolSt]
237+    let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
238+    if ((lpId != pmtAssetId))
239+        then throw("Wrong pmt asset")
240+        else {
241+            let amBalance = getAccBalance(amId)
242+            let amBalanceX18 = t1(amBalance, amDcm)
243+            let prBalance = getAccBalance(prId)
244+            let prBalanceX18 = t1(prBalance, prDcm)
245+            let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
246+            let curPrice = f1(curPriceX18, scale8)
247+            let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
248+            let lpEmissX18 = t1(lpEmiss, scale8)
249+            let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
250+            let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
251+            let outAmAmt = f1(outAmAmtX18, amDcm)
252+            let outPrAmt = f1(outPrAmtX18, prDcm)
253+            let state = if ((txId58 == ""))
254+                then nil
255+                else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
256+                    then unit
257+                    else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
258+                    then unit
259+                    else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
260+            $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
261+            }
262+    }
263+
264+
265+func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
266+    let cfg = gpc()
267+    let lpId = fromBase58String(cfg[idxLPAsId])
268+    let amIdStr = cfg[idxAmAsId]
269+    let prIdStr = cfg[idxPrAsId]
270+    let inAmIdStr = cfg[idxIAmtAsId]
271+    let inPrIdStr = cfg[idxIPriceAsId]
272+    let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
273+    let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
274+    let sts = cfg[idxPoolSt]
275+    let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
276+    let amBalance = if (isEval)
277+        then getAccBalance(amIdStr)
278+        else if (if (isOneAsset)
279+            then (pmtId == amIdStr)
280+            else false)
281+            then (getAccBalance(amIdStr) - pmtAmt)
282+            else if (isOneAsset)
283+                then getAccBalance(amIdStr)
284+                else (getAccBalance(amIdStr) - inAmAmt)
285+    let prBalance = if (isEval)
286+        then getAccBalance(prIdStr)
287+        else if (if (isOneAsset)
288+            then (pmtId == prIdStr)
289+            else false)
290+            then (getAccBalance(prIdStr) - pmtAmt)
291+            else if (isOneAsset)
292+                then getAccBalance(prIdStr)
293+                else (getAccBalance(prIdStr) - inPrAmt)
294+    let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
295+    let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
296+    let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
297+    let amBalanceX18 = t1(amBalance, amtDcm)
298+    let prBalanceX18 = t1(prBalance, priceDcm)
299+    let r = if ((lpEm == 0))
300+        then {
301+            let curPriceX18 = zeroBigInt
302+            let slippageX18 = zeroBigInt
303+            let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
304+            $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
305+            }
306+        else {
307+            let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
308+            let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
309+            let slippageX18 = t1(slippage, scale8)
310+            if (if ((curPriceX18 != zeroBigInt))
311+                then (slippageRealX18 > slippageX18)
312+                else false)
313+                then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
314+                else {
315+                    let lpEmissionX18 = t1(lpEm, scale8)
316+                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
317+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
318+                    let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
319+                        then $Tuple2(amViaPrX18, inPrAssetAmtX18)
320+                        else $Tuple2(inAmAssetAmtX18, prViaAmX18)
321+                    let expAmtAssetAmtX18 = expectedAmts._1
322+                    let expPriceAssetAmtX18 = expectedAmts._2
323+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
324+                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
325+                    }
326+            }
327+    let calcLpAmt = r._1
328+    let calcAmAssetPmt = r._2
329+    let calcPrAssetPmt = r._3
330+    let curPrice = f1(r._4, scale8)
331+    let slippageCalc = f1(r._5, scale8)
332+    if ((0 >= calcLpAmt))
333+        then throw("LP <= 0")
334+        else {
335+            let emitLpAmt = if (!(emitLp))
336+                then 0
337+                else calcLpAmt
338+            let amDiff = (inAmAmt - calcAmAssetPmt)
339+            let prDiff = (inPrAmt - calcPrAssetPmt)
340+            let $t01560115946 = if (if (isOneAsset)
341+                then (pmtId == amIdStr)
342+                else false)
343+                then $Tuple2(pmtAmt, 0)
344+                else if (if (isOneAsset)
345+                    then (pmtId == prIdStr)
346+                    else false)
347+                    then $Tuple2(0, pmtAmt)
348+                    else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
349+            let writeAmAmt = $t01560115946._1
350+            let writePrAmt = $t01560115946._2
351+            let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
352+            $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
353+            }
354+    }
355+
356+
357+func moa (order) = {
358+    let cfg = gpc()
359+    let amtAsId = cfg[idxAmAsId]
360+    let prAsId = cfg[idxPrAsId]
361+    let sts = parseIntValue(cfg[idxPoolSt])
362+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
363+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
364+    let accAmtAsBalance = getAccBalance(amtAsId)
365+    let accPrAsBalance = getAccBalance(prAsId)
366+    let curPriceX18 = if ((order.orderType == Buy))
367+        then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
368+        else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
369+    let curPrice = f1(curPriceX18, scale8)
370+    if (if (if (igs())
371+        then true
372+        else (sts == PoolMatcherDis))
373+        then true
374+        else (sts == PoolShutdown))
375+        then throw("Admin blocked")
376+        else {
377+            let orAmtAsset = order.assetPair.amountAsset
378+            let orAmtAsStr = if ((orAmtAsset == unit))
379+                then "WAVES"
380+                else toBase58String(value(orAmtAsset))
381+            let orPrAsset = order.assetPair.priceAsset
382+            let orPrAsStr = if ((orPrAsset == unit))
383+                then "WAVES"
384+                else toBase58String(value(orPrAsset))
385+            if (if ((orAmtAsStr != amtAsId))
386+                then true
387+                else (orPrAsStr != prAsId))
388+                then throw("Wr assets")
389+                else {
390+                    let orderPrice = order.price
391+                    let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
392+                    let castOrderPrice = ts(orderPrice, scale8, priceDcm)
393+                    let isOrderPriceValid = if ((order.orderType == Buy))
394+                        then (curPrice >= castOrderPrice)
395+                        else (castOrderPrice >= curPrice)
396+                    true
397+                    }
398+            }
399+    }
400+
401+
402+func cg (i) = if ((size(i.payments) != 1))
403+    then throw("1 pmnt exp")
404+    else {
405+        let pmt = value(i.payments[0])
406+        let pmtAssetId = value(pmt.assetId)
407+        let pmtAmt = pmt.amount
408+        let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
409+        let outAmAmt = r._1
410+        let outPrAmt = r._2
411+        let sts = parseIntValue(r._9)
412+        let state = r._10
413+        if (if (igs())
414+            then true
415+            else (sts == PoolShutdown))
416+            then throw(("Admin blocked: " + toString(sts)))
417+            else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
418+        }
419+
420+
421+func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
422+    let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
423+    let sts = parseIntValue(r._8)
424+    if (if (if (igs())
425+        then true
426+        else (sts == PoolPutDis))
427+        then true
428+        else (sts == PoolShutdown))
429+        then throw(("Blocked:" + toString(sts)))
430+        else r
431+    }
432+
433+
434+func m () = match getString(mpk()) {
77435     case s: String => 
78436         fromBase58String(s)
79437     case _: Unit => 
83441 }
84442 
85443 
86-func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
444+func pm () = match getString(pmpk()) {
87445     case s: String => 
88446         fromBase58String(s)
89447     case _: Unit => 
93451 }
94452 
95453 
96-func mustManager (i) = {
97-    let pd = throw("Permission denied")
98-    match managerPublicKeyOrUnit() {
99-        case pk: ByteVector => 
100-            if ((i.callerPublicKey == pk))
101-                then true
102-                else pd
103-        case _: Unit => 
104-            if ((i.caller == this))
105-                then true
106-                else pd
107-        case _ => 
108-            throw("Match error")
109-    }
110-    }
454+let pd = throw("Permission denied")
111455 
112-
113-func getAdmins () = match getString(keyAdminPubKeys()) {
114-    case s: String => 
115-        if ((size(s) == 0))
116-            then nil
117-            else split(s, SEP)
456+func mm (i) = match m() {
457+    case pk: ByteVector => 
458+        if ((i.callerPublicKey == pk))
459+            then true
460+            else pd
461+    case _: Unit => 
462+        if ((i.caller == this))
463+            then true
464+            else pd
118465     case _ => 
119-        nil
466+        throw("Match error")
120467 }
121468 
122469 
123-func mustAdmin (i) = if (containsElement(getAdmins(), toBase58String(i.callerPublicKey)))
124-    then true
125-    else mustManager(i)
126-
127-
128-func mustPool (i) = if ((i.caller == poolContract))
129-    then true
130-    else throw("caller must be the pool")
131-
132-
133470 @Callable(i)
134-func constructor (poolAddress) = {
135-    let checkCaller = mustManager(i)
136-    if ((checkCaller == checkCaller))
137-        then [StringEntry(keyPoolAddr(), poolAddress)]
471+func constructor (fc) = {
472+    let c = mm(i)
473+    if ((c == c))
474+        then [StringEntry(fc(), fc)]
138475         else throw("Strict value is not equal to itself.")
139476     }
140477 
142479 
143480 @Callable(i)
144481 func setManager (pendingManagerPublicKey) = {
145-    let checkCaller = mustManager(i)
146-    if ((checkCaller == checkCaller))
482+    let c = mm(i)
483+    if ((c == c))
147484         then {
148-            let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
149-            if ((checkManagerPublicKey == checkManagerPublicKey))
150-                then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
485+            let cm = fromBase58String(pendingManagerPublicKey)
486+            if ((cm == cm))
487+                then [StringEntry(pmpk(), pendingManagerPublicKey)]
151488                 else throw("Strict value is not equal to itself.")
152489             }
153490         else throw("Strict value is not equal to itself.")
157494 
158495 @Callable(i)
159496 func confirmManager () = {
160-    let pm = pendingManagerPublicKeyOrUnit()
161-    let hasPM = if (isDefined(pm))
497+    let p = pm()
498+    let hpm = if (isDefined(p))
162499         then true
163500         else throw("No pending manager")
164-    if ((hasPM == hasPM))
501+    if ((hpm == hpm))
165502         then {
166-            let checkPM = if ((i.callerPublicKey == value(pm)))
503+            let cpm = if ((i.callerPublicKey == value(p)))
167504                 then true
168505                 else throw("You are not pending manager")
169-            if ((checkPM == checkPM))
170-                then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
506+            if ((cpm == cpm))
507+                then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
171508                 else throw("Strict value is not equal to itself.")
172509             }
173510         else throw("Strict value is not equal to itself.")
176513 
177514 
178515 @Callable(i)
179-func setAdmins (adminPubKeys) = {
180-    let checkCaller = mustManager(i)
181-    if ((checkCaller == checkCaller))
182-        then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))]
516+func put (slip,autoStake) = {
517+    let factCfg = gfc()
518+    let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
519+    let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
520+    if ((0 > slip))
521+        then throw("Wrong slippage")
522+        else if ((size(i.payments) != 2))
523+            then throw("2 pmnts expd")
524+            else {
525+                let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, 0, "")
526+                let emitLpAmt = e._2
527+                let lpAssetId = e._7
528+                let state = e._9
529+                let amDiff = e._10
530+                let prDiff = e._11
531+                let amId = e._12
532+                let prId = e._13
533+                let r = invoke(fca, "emit", [emitLpAmt], nil)
534+                if ((r == r))
535+                    then {
536+                        let el =                         match r {
537+                            case legacy: Address => 
538+                                invoke(legacy, "emit", [emitLpAmt], nil)
539+                            case _ => 
540+                                unit
541+                        }
542+                        if ((el == el))
543+                            then {
544+                                let sa = if ((amDiff > 0))
545+                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
546+                                    else nil
547+                                if ((sa == sa))
548+                                    then {
549+                                        let sp = if ((prDiff > 0))
550+                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
551+                                            else nil
552+                                        if ((sp == sp))
553+                                            then {
554+                                                let lpTrnsfr = if (autoStake)
555+                                                    then {
556+                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
557+                                                        if ((ss == ss))
558+                                                            then nil
559+                                                            else throw("Strict value is not equal to itself.")
560+                                                        }
561+                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
562+                                                (state ++ lpTrnsfr)
563+                                                }
564+                                            else throw("Strict value is not equal to itself.")
565+                                        }
566+                                    else throw("Strict value is not equal to itself.")
567+                                }
568+                            else throw("Strict value is not equal to itself.")
569+                        }
570+                    else throw("Strict value is not equal to itself.")
571+                }
572+    }
573+
574+
575+
576+@Callable(i)
577+func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
578+    let cfg = gfc()
579+    let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
580+    let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
581+    let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
582+    let poolCfg = gpc()
583+    let amId = poolCfg[idxAmAsId]
584+    let prId = poolCfg[idxPrAsId]
585+    let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
586+    let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
587+    let addon = valueOrElse(getString(this, ada()), "")
588+    let userAddress = if ((addon == toString(i.caller)))
589+        then i.originCaller
590+        else i.caller
591+    let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592+    let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593+    if ((check == check))
594+        then if (if (if (if ((0 >= slippage))
595+            then true
596+            else (0 >= amAssetPart))
597+            then true
598+            else (0 >= prAssetPart))
599+            then true
600+            else (0 >= outLp))
601+            then throw("Wrong params")
602+            else if ((size(i.payments) != 1))
603+                then throw("1 pmnt expd")
604+                else {
605+                    let pmt = value(i.payments[0])
606+                    let pmtAssetId = toBase58String(value(pmt.assetId))
607+                    let pmtAmt = pmt.amount
608+                    if ((10000000 > pmtAmt))
609+                        then throw("Wrong pmt amt")
610+                        else {
611+                            let amBalance = getAccBalance(amId)
612+                            let prBalance = getAccBalance(prId)
613+                            let $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+                    }
183687         else throw("Strict value is not equal to itself.")
184688     }
185689 
186690 
187691 
188692 @Callable(i)
189-func unstakeAndGetOneTkn (amount,exchResult,notUsed,outAmount,outAssetId,slippage) = {
693+func putForFree (maxSlpg) = if ((0 > maxSlpg))
694+    then throw("Wrong slpg")
695+    else if ((size(i.payments) != 2))
696+        then throw("2 pmnts expd")
697+        else {
698+            let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, 0, "")
699+            estPut._9
700+            }
701+
702+
703+
704+@Callable(i)
705+func get () = {
706+    let r = cg(i)
707+    let outAmtAmt = r._1
708+    let outPrAmt = r._2
709+    let pmtAmt = r._3
710+    let pmtAssetId = r._4
711+    let state = r._5
712+    let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
713+    if ((b == b))
714+        then state
715+        else throw("Strict value is not equal to itself.")
716+    }
717+
718+
719+
720+@Callable(i)
721+func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
722+    then throw("1 pmnt expd")
723+    else {
724+        let cfg = gpc()
725+        let lpId = cfg[idxLPAsId]
726+        let amId = cfg[idxAmAsId]
727+        let prId = cfg[idxPrAsId]
728+        let amDcm = parseIntValue(cfg[idxAmtAsDcm])
729+        let prDcm = parseIntValue(cfg[idxPriceAsDcm])
730+        let sts = cfg[idxPoolSt]
731+        let factCfg = gfc()
732+        let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
733+        let pmt = value(i.payments[0])
734+        let addon = valueOrElse(getString(this, ada()), "")
735+        let userAddress = if ((addon == toString(i.caller)))
736+            then i.originCaller
737+            else i.caller
738+        let txId58 = toBase58String(i.transactionId)
739+        let pmtAssetId = value(pmt.assetId)
740+        let pmtAmt = pmt.amount
741+        let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
742+        let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
743+        if ((check == check))
744+            then if ((1000000000 > pmtAmt))
745+                then throw("Min pmt 10 LP")
746+                else if (if (if ((0 > slippage))
747+                    then true
748+                    else (0 > exchResult))
749+                    then true
750+                    else (0 > outAmount))
751+                    then throw("Wrong params")
752+                    else if ((lpId != toBase58String(pmtAssetId)))
753+                        then throw("Wrong LP")
754+                        else {
755+                            let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
756+                            let estimAmAmt = r._1
757+                            let estimPrAmt = r._2
758+                            let amBalance = getAccBalance(amId)
759+                            let prBalance = getAccBalance(prId)
760+                            let $t03046630923 = if ((outAssetId == amId))
761+                                then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
762+                                else if ((outAssetId == prId))
763+                                    then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
764+                                    else throw("wrong outAssetId")
765+                            let amBalanceNow = $t03046630923._1
766+                            let prBalanceNow = $t03046630923._2
767+                            let virtSwapInAm = $t03046630923._3
768+                            let virtSwapOutPr = $t03046630923._4
769+                            let virtSwapInPr = $t03046630923._5
770+                            let virtSwapOutAm = $t03046630923._6
771+                            let totalGet = $t03046630923._7
772+                            if (if ((0 > virtSwapInAm))
773+                                then true
774+                                else (0 > virtSwapInPr))
775+                                then throw("Wrong calc")
776+                                else {
777+                                    let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
778+                                    let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
779+                                    let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
780+                                    if ((D0vsD1 == D0vsD1))
781+                                        then {
782+                                            let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
783+                                            if ((finalRes == finalRes))
784+                                                then {
785+                                                    let $t03162831732 = if ((outAssetId == amId))
786+                                                        then $Tuple2(toInt(finalRes._2), 0)
787+                                                        else $Tuple2(0, toInt(finalRes._2))
788+                                                    let outAm = $t03162831732._1
789+                                                    let outPr = $t03162831732._2
790+                                                    let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
791+                                                    let curPr = f1(curPrX18, scale8)
792+                                                    let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
793+                                                        then unit
794+                                                        else fromBase58String(outAssetId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
795+                                                    if ((state == state))
796+                                                        then {
797+                                                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
798+                                                            if ((burn == burn))
799+                                                                then state
800+                                                                else throw("Strict value is not equal to itself.")
801+                                                            }
802+                                                        else throw("Strict value is not equal to itself.")
803+                                                    }
804+                                                else throw("Strict value is not equal to itself.")
805+                                            }
806+                                        else throw("Strict value is not equal to itself.")
807+                                    }
808+                            }
809+            else throw("Strict value is not equal to itself.")
810+        }
811+
812+
813+
814+@Callable(i)
815+func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
816+    let r = cg(i)
817+    let outAmAmt = r._1
818+    let outPrAmt = r._2
819+    let pmtAmt = r._3
820+    let pmtAssetId = r._4
821+    let state = r._5
822+    if ((noLessThenAmtAsset > outAmAmt))
823+        then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
824+        else if ((noLessThenPriceAsset > outPrAmt))
825+            then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
826+            else {
827+                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
828+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
829+                    then state
830+                    else throw("Strict value is not equal to itself.")
831+                }
832+    }
833+
834+
835+
836+@Callable(i)
837+func unstakeAndGet (amount) = {
190838     let checkPayments = if ((size(i.payments) != 0))
191839         then throw("No pmnts expd")
192840         else true
193841     if ((checkPayments == checkPayments))
194842         then {
195-            let cfg = getPoolConfig()
196-            let factoryCfg = getFactoryConfig()
843+            let cfg = gpc()
844+            let factoryCfg = gfc()
197845             let lpAssetId = fromBase58String(cfg[idxLPAsId])
198846             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
199847             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
200848             if ((unstakeInv == unstakeInv))
201849                 then {
202-                    let getOneTkn = invoke(poolContract, "getOneTkn", [exchResult, notUsed, outAmount, outAssetId, slippage], [AttachedPayment(lpAssetId, amount)])
203-                    if ((getOneTkn == getOneTkn))
204-                        then nil
850+                    let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
851+                    let sts = parseIntValue(r._9)
852+                    let state = r._10
853+                    let v = if (if (igs())
854+                        then true
855+                        else (sts == PoolShutdown))
856+                        then throw(("Blocked: " + toString(sts)))
857+                        else true
858+                    if ((v == v))
859+                        then {
860+                            let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
861+                            if ((burnA == burnA))
862+                                then state
863+                                else throw("Strict value is not equal to itself.")
864+                            }
205865                         else throw("Strict value is not equal to itself.")
206866                     }
207867                 else throw("Strict value is not equal to itself.")
212872 
213873 
214874 @Callable(i)
215-func setAmp (amp) = {
216-    let checkCaller = mustAdmin(i)
217-    if ((checkCaller == checkCaller))
218-        then {
219-            let res1 = invoke(poolContract, "setS", [keyAmp(), amp], nil)
220-            let res2 = invoke(poolContract, "setS", [keyAmpHistory(height), amp], nil)
221-            $Tuple2(nil, $Tuple2(res1, res2))
222-            }
223-        else throw("Strict value is not equal to itself.")
875+func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
876+    then throw("denied")
877+    else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
878+
879+
880+
881+@Callable(i)
882+func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
883+    then pd
884+    else [StringEntry(k, v)]
885+
886+
887+
888+@Callable(i)
889+func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
890+    then pd
891+    else [IntegerEntry(k, v)]
892+
893+
894+
895+@Callable(i)
896+func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
897+
898+
899+
900+@Callable(i)
901+func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
902+
903+
904+
905+@Callable(i)
906+func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
907+    let pr = calcPrices(amAmt, prAmt, lpAmt)
908+    $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
909+    }
910+
911+
912+
913+@Callable(i)
914+func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
915+
916+
917+
918+@Callable(i)
919+func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
920+
921+
922+
923+@Callable(i)
924+func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
925+
926+
927+
928+@Callable(i)
929+func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, false, 0, ""))
930+
931+
932+
933+@Callable(i)
934+func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
935+    let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
936+    $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
224937     }
225938 
226939 
227940 @Verifier(tx)
228941 func verify () = {
229-    let targetPublicKey =     match managerPublicKeyOrUnit() {
942+    let targetPublicKey =     match m() {
230943         case pk: ByteVector => 
231944             pk
232945         case _: Unit => 
234947         case _ => 
235948             throw("Match error")
236949     }
237-    sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
950+    match tx {
951+        case order: Order => 
952+            let matcherPub = mp()
953+            let orderValid = moa(order)
954+            let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
955+            let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
956+            if (if (if (orderValid)
957+                then senderValid
958+                else false)
959+                then matcherValid
960+                else false)
961+                then true
962+                else toe(orderValid, senderValid, matcherValid)
963+        case s: SetScriptTransaction => 
964+            let newHash = blake2b256(value(s.script))
965+            let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
966+            let currentHash = scriptHash(this)
967+            if (if ((allowedHash == newHash))
968+                then (currentHash != newHash)
969+                else false)
970+                then true
971+                else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
972+        case _ => 
973+            sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
974+    }
238975     }
239976 

Full: 

OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let scale8 = 100000000
5+
6+let scale8BigInt = toBigInt(100000000)
7+
8+let scale18 = toBigInt(1000000000000000000)
9+
10+let zeroBigInt = toBigInt(0)
11+
12+let oneBigInt = toBigInt(1)
13+
14+let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
15+
16+let Amult = "100"
17+
18+let Dconv = "1"
19+
420 let SEP = "__"
521 
622 let EMPTY = ""
723 
24+let PoolActive = 1
25+
26+let PoolPutDis = 2
27+
28+let PoolMatcherDis = 3
29+
30+let PoolShutdown = 4
31+
832 let idxPoolAddress = 1
33+
34+let idxPoolSt = 2
935 
1036 let idxLPAsId = 3
1137 
1238 let idxAmAsId = 4
1339 
1440 let idxPrAsId = 5
1541 
42+let idxAmtAsDcm = 6
43+
44+let idxPriceAsDcm = 7
45+
46+let idxIAmtAsId = 8
47+
48+let idxIPriceAsId = 9
49+
1650 let idxFactStakCntr = 1
1751 
18-func keyFactCntr () = "%s__factoryContract"
52+let idxFactSlippCntr = 7
53+
54+let idxFactGwxRewCntr = 10
55+
56+let delay = "%s__delay"
57+
58+func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
1959 
2060 
21-func keyManagerPublicKey () = "%s__managerPublicKey"
61+func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
2262 
2363 
24-func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
64+func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
2565 
2666 
27-func keyPoolAddr () = "%s__poolAddress"
67+func abs (val) = if ((zeroBigInt > val))
68+    then -(val)
69+    else val
2870 
2971 
30-func keyAmtAsset () = "%s__amountAsset"
72+func fc () = "%s__factoryContract"
3173 
3274 
33-func keyPriceAsset () = "%s__priceAsset"
75+func mpk () = "%s__managerPublicKey"
3476 
3577 
36-func keyAdminPubKeys () = "%s__adminPubKeys"
78+func pmpk () = "%s__pendingManagerPublicKey"
3779 
3880 
39-func keyAmp () = "%s__amp"
81+func pl () = "%s%s__price__last"
4082 
4183 
42-func keyAmpHistory (height) = ("%s%d__amp__" + toString(height))
84+func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
4385 
4486 
45-func keyFactoryConfig () = "%s__factoryConfig"
87+func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
4688 
4789 
48-func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
90+func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
4991 
5092 
51-func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
93+func aa () = "%s__amountAsset"
5294 
5395 
54-func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
96+func pa () = "%s__priceAsset"
5597 
5698 
57-func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
99+func amp () = "%s__amp"
58100 
59101 
60-let poolContract = addressFromStringValue(getStringOrFail(this, keyPoolAddr()))
102+func ada () = "%s__addonAddr"
61103 
62-let factoryContract = addressFromStringValue(getStringOrFail(poolContract, keyFactCntr()))
63104 
64-func getPoolConfig () = {
65-    let amtAs = getStringOrFail(poolContract, keyAmtAsset())
66-    let priceAs = getStringOrFail(poolContract, keyPriceAsset())
67-    let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs))
68-    let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs))
69-    split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP)
105+func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
106+
107+
108+func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
109+
110+
111+func fcfg () = "%s__factoryConfig"
112+
113+
114+func mtpk () = "%s%s__matcher__publicKey"
115+
116+
117+func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
118+
119+
120+func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
121+
122+
123+func aps () = "%s__shutdown"
124+
125+
126+func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127+
128+
129+func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
130+
131+
132+func str (val) = match val {
133+    case valStr: String => 
134+        valStr
135+    case _ => 
136+        throw("fail cast to String")
137+}
138+
139+
140+func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
141+
142+
143+func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
144+
145+
146+let fca = addressFromStringValue(strf(this, fc()))
147+
148+let A = strf(this, amp())
149+
150+func igs () = valueOrElse(getBoolean(fca, aps()), false)
151+
152+
153+func mp () = fromBase58String(strf(fca, mtpk()))
154+
155+
156+func gpc () = {
157+    let amtAs = strf(this, aa())
158+    let priceAs = strf(this, pa())
159+    let iPriceAs = intf(fca, mba(priceAs))
160+    let iAmtAs = intf(fca, mba(amtAs))
161+    split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
70162     }
71163 
72164 
73-func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
165+func gfc () = split(strf(fca, fcfg()), SEP)
74166 
75167 
76-func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
168+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)
169+
170+
171+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)
172+
173+
174+func getAccBalance (assetId) = if ((assetId == "WAVES"))
175+    then wavesBalance(this).available
176+    else assetBalance(this, fromBase58String(assetId))
177+
178+
179+func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
180+
181+
182+func vad (A1,A2,slippage) = {
183+    let diff = fraction((A1 - A2), scale8BigInt, A2)
184+    let pass = ((slippage - abs(diff)) > zeroBigInt)
185+    if (!(pass))
186+        then throw(("Big slpg: " + toString(diff)))
187+        else $Tuple2(pass, min([A1, A2]))
188+    }
189+
190+
191+func vd (D1,D0,slpg) = {
192+    let diff = fraction(D0, scale8BigInt, D1)
193+    let fail = (slpg > diff)
194+    if (if (fail)
195+        then true
196+        else (D0 > D1))
197+        then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
198+        else fail
199+    }
200+
201+
202+func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
203+    let amtAsAmtX18 = t1(amAmt, amAssetDcm)
204+    let prAsAmtX18 = t1(prAmt, prAssetDcm)
205+    cpbi(prAsAmtX18, amtAsAmtX18)
206+    }
207+
208+
209+func calcPrices (amAmt,prAmt,lpAmt) = {
210+    let cfg = gpc()
211+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
212+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
213+    let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
214+    let amAmtX18 = t1(amAmt, amtAsDcm)
215+    let prAmtX18 = t1(prAmt, prAsDcm)
216+    let lpAmtX18 = t1(lpAmt, scale8)
217+    let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
218+    let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
219+[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
220+    }
221+
222+
223+func calculatePrices (amAmt,prAmt,lpAmt) = {
224+    let p = calcPrices(amAmt, prAmt, lpAmt)
225+[f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
226+    }
227+
228+
229+func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
230+    let cfg = gpc()
231+    let lpId = cfg[idxLPAsId]
232+    let amId = cfg[idxAmAsId]
233+    let prId = cfg[idxPrAsId]
234+    let amDcm = parseIntValue(cfg[idxAmtAsDcm])
235+    let prDcm = parseIntValue(cfg[idxPriceAsDcm])
236+    let sts = cfg[idxPoolSt]
237+    let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
238+    if ((lpId != pmtAssetId))
239+        then throw("Wrong pmt asset")
240+        else {
241+            let amBalance = getAccBalance(amId)
242+            let amBalanceX18 = t1(amBalance, amDcm)
243+            let prBalance = getAccBalance(prId)
244+            let prBalanceX18 = t1(prBalance, prDcm)
245+            let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
246+            let curPrice = f1(curPriceX18, scale8)
247+            let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
248+            let lpEmissX18 = t1(lpEmiss, scale8)
249+            let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
250+            let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
251+            let outAmAmt = f1(outAmAmtX18, amDcm)
252+            let outPrAmt = f1(outPrAmtX18, prDcm)
253+            let state = if ((txId58 == ""))
254+                then nil
255+                else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
256+                    then unit
257+                    else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
258+                    then unit
259+                    else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
260+            $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
261+            }
262+    }
263+
264+
265+func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
266+    let cfg = gpc()
267+    let lpId = fromBase58String(cfg[idxLPAsId])
268+    let amIdStr = cfg[idxAmAsId]
269+    let prIdStr = cfg[idxPrAsId]
270+    let inAmIdStr = cfg[idxIAmtAsId]
271+    let inPrIdStr = cfg[idxIPriceAsId]
272+    let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
273+    let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
274+    let sts = cfg[idxPoolSt]
275+    let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
276+    let amBalance = if (isEval)
277+        then getAccBalance(amIdStr)
278+        else if (if (isOneAsset)
279+            then (pmtId == amIdStr)
280+            else false)
281+            then (getAccBalance(amIdStr) - pmtAmt)
282+            else if (isOneAsset)
283+                then getAccBalance(amIdStr)
284+                else (getAccBalance(amIdStr) - inAmAmt)
285+    let prBalance = if (isEval)
286+        then getAccBalance(prIdStr)
287+        else if (if (isOneAsset)
288+            then (pmtId == prIdStr)
289+            else false)
290+            then (getAccBalance(prIdStr) - pmtAmt)
291+            else if (isOneAsset)
292+                then getAccBalance(prIdStr)
293+                else (getAccBalance(prIdStr) - inPrAmt)
294+    let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
295+    let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
296+    let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
297+    let amBalanceX18 = t1(amBalance, amtDcm)
298+    let prBalanceX18 = t1(prBalance, priceDcm)
299+    let r = if ((lpEm == 0))
300+        then {
301+            let curPriceX18 = zeroBigInt
302+            let slippageX18 = zeroBigInt
303+            let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
304+            $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
305+            }
306+        else {
307+            let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
308+            let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
309+            let slippageX18 = t1(slippage, scale8)
310+            if (if ((curPriceX18 != zeroBigInt))
311+                then (slippageRealX18 > slippageX18)
312+                else false)
313+                then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
314+                else {
315+                    let lpEmissionX18 = t1(lpEm, scale8)
316+                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
317+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
318+                    let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
319+                        then $Tuple2(amViaPrX18, inPrAssetAmtX18)
320+                        else $Tuple2(inAmAssetAmtX18, prViaAmX18)
321+                    let expAmtAssetAmtX18 = expectedAmts._1
322+                    let expPriceAssetAmtX18 = expectedAmts._2
323+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
324+                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
325+                    }
326+            }
327+    let calcLpAmt = r._1
328+    let calcAmAssetPmt = r._2
329+    let calcPrAssetPmt = r._3
330+    let curPrice = f1(r._4, scale8)
331+    let slippageCalc = f1(r._5, scale8)
332+    if ((0 >= calcLpAmt))
333+        then throw("LP <= 0")
334+        else {
335+            let emitLpAmt = if (!(emitLp))
336+                then 0
337+                else calcLpAmt
338+            let amDiff = (inAmAmt - calcAmAssetPmt)
339+            let prDiff = (inPrAmt - calcPrAssetPmt)
340+            let $t01560115946 = if (if (isOneAsset)
341+                then (pmtId == amIdStr)
342+                else false)
343+                then $Tuple2(pmtAmt, 0)
344+                else if (if (isOneAsset)
345+                    then (pmtId == prIdStr)
346+                    else false)
347+                    then $Tuple2(0, pmtAmt)
348+                    else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
349+            let writeAmAmt = $t01560115946._1
350+            let writePrAmt = $t01560115946._2
351+            let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
352+            $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
353+            }
354+    }
355+
356+
357+func moa (order) = {
358+    let cfg = gpc()
359+    let amtAsId = cfg[idxAmAsId]
360+    let prAsId = cfg[idxPrAsId]
361+    let sts = parseIntValue(cfg[idxPoolSt])
362+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
363+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
364+    let accAmtAsBalance = getAccBalance(amtAsId)
365+    let accPrAsBalance = getAccBalance(prAsId)
366+    let curPriceX18 = if ((order.orderType == Buy))
367+        then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
368+        else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
369+    let curPrice = f1(curPriceX18, scale8)
370+    if (if (if (igs())
371+        then true
372+        else (sts == PoolMatcherDis))
373+        then true
374+        else (sts == PoolShutdown))
375+        then throw("Admin blocked")
376+        else {
377+            let orAmtAsset = order.assetPair.amountAsset
378+            let orAmtAsStr = if ((orAmtAsset == unit))
379+                then "WAVES"
380+                else toBase58String(value(orAmtAsset))
381+            let orPrAsset = order.assetPair.priceAsset
382+            let orPrAsStr = if ((orPrAsset == unit))
383+                then "WAVES"
384+                else toBase58String(value(orPrAsset))
385+            if (if ((orAmtAsStr != amtAsId))
386+                then true
387+                else (orPrAsStr != prAsId))
388+                then throw("Wr assets")
389+                else {
390+                    let orderPrice = order.price
391+                    let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
392+                    let castOrderPrice = ts(orderPrice, scale8, priceDcm)
393+                    let isOrderPriceValid = if ((order.orderType == Buy))
394+                        then (curPrice >= castOrderPrice)
395+                        else (castOrderPrice >= curPrice)
396+                    true
397+                    }
398+            }
399+    }
400+
401+
402+func cg (i) = if ((size(i.payments) != 1))
403+    then throw("1 pmnt exp")
404+    else {
405+        let pmt = value(i.payments[0])
406+        let pmtAssetId = value(pmt.assetId)
407+        let pmtAmt = pmt.amount
408+        let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
409+        let outAmAmt = r._1
410+        let outPrAmt = r._2
411+        let sts = parseIntValue(r._9)
412+        let state = r._10
413+        if (if (igs())
414+            then true
415+            else (sts == PoolShutdown))
416+            then throw(("Admin blocked: " + toString(sts)))
417+            else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
418+        }
419+
420+
421+func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
422+    let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
423+    let sts = parseIntValue(r._8)
424+    if (if (if (igs())
425+        then true
426+        else (sts == PoolPutDis))
427+        then true
428+        else (sts == PoolShutdown))
429+        then throw(("Blocked:" + toString(sts)))
430+        else r
431+    }
432+
433+
434+func m () = match getString(mpk()) {
77435     case s: String => 
78436         fromBase58String(s)
79437     case _: Unit => 
80438         unit
81439     case _ => 
82440         throw("Match error")
83441 }
84442 
85443 
86-func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
444+func pm () = match getString(pmpk()) {
87445     case s: String => 
88446         fromBase58String(s)
89447     case _: Unit => 
90448         unit
91449     case _ => 
92450         throw("Match error")
93451 }
94452 
95453 
96-func mustManager (i) = {
97-    let pd = throw("Permission denied")
98-    match managerPublicKeyOrUnit() {
99-        case pk: ByteVector => 
100-            if ((i.callerPublicKey == pk))
101-                then true
102-                else pd
103-        case _: Unit => 
104-            if ((i.caller == this))
105-                then true
106-                else pd
107-        case _ => 
108-            throw("Match error")
109-    }
110-    }
454+let pd = throw("Permission denied")
111455 
112-
113-func getAdmins () = match getString(keyAdminPubKeys()) {
114-    case s: String => 
115-        if ((size(s) == 0))
116-            then nil
117-            else split(s, SEP)
456+func mm (i) = match m() {
457+    case pk: ByteVector => 
458+        if ((i.callerPublicKey == pk))
459+            then true
460+            else pd
461+    case _: Unit => 
462+        if ((i.caller == this))
463+            then true
464+            else pd
118465     case _ => 
119-        nil
466+        throw("Match error")
120467 }
121468 
122469 
123-func mustAdmin (i) = if (containsElement(getAdmins(), toBase58String(i.callerPublicKey)))
124-    then true
125-    else mustManager(i)
126-
127-
128-func mustPool (i) = if ((i.caller == poolContract))
129-    then true
130-    else throw("caller must be the pool")
131-
132-
133470 @Callable(i)
134-func constructor (poolAddress) = {
135-    let checkCaller = mustManager(i)
136-    if ((checkCaller == checkCaller))
137-        then [StringEntry(keyPoolAddr(), poolAddress)]
471+func constructor (fc) = {
472+    let c = mm(i)
473+    if ((c == c))
474+        then [StringEntry(fc(), fc)]
138475         else throw("Strict value is not equal to itself.")
139476     }
140477 
141478 
142479 
143480 @Callable(i)
144481 func setManager (pendingManagerPublicKey) = {
145-    let checkCaller = mustManager(i)
146-    if ((checkCaller == checkCaller))
482+    let c = mm(i)
483+    if ((c == c))
147484         then {
148-            let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
149-            if ((checkManagerPublicKey == checkManagerPublicKey))
150-                then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
485+            let cm = fromBase58String(pendingManagerPublicKey)
486+            if ((cm == cm))
487+                then [StringEntry(pmpk(), pendingManagerPublicKey)]
151488                 else throw("Strict value is not equal to itself.")
152489             }
153490         else throw("Strict value is not equal to itself.")
154491     }
155492 
156493 
157494 
158495 @Callable(i)
159496 func confirmManager () = {
160-    let pm = pendingManagerPublicKeyOrUnit()
161-    let hasPM = if (isDefined(pm))
497+    let p = pm()
498+    let hpm = if (isDefined(p))
162499         then true
163500         else throw("No pending manager")
164-    if ((hasPM == hasPM))
501+    if ((hpm == hpm))
165502         then {
166-            let checkPM = if ((i.callerPublicKey == value(pm)))
503+            let cpm = if ((i.callerPublicKey == value(p)))
167504                 then true
168505                 else throw("You are not pending manager")
169-            if ((checkPM == checkPM))
170-                then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
506+            if ((cpm == cpm))
507+                then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
171508                 else throw("Strict value is not equal to itself.")
172509             }
173510         else throw("Strict value is not equal to itself.")
174511     }
175512 
176513 
177514 
178515 @Callable(i)
179-func setAdmins (adminPubKeys) = {
180-    let checkCaller = mustManager(i)
181-    if ((checkCaller == checkCaller))
182-        then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))]
516+func put (slip,autoStake) = {
517+    let factCfg = gfc()
518+    let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
519+    let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
520+    if ((0 > slip))
521+        then throw("Wrong slippage")
522+        else if ((size(i.payments) != 2))
523+            then throw("2 pmnts expd")
524+            else {
525+                let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, 0, "")
526+                let emitLpAmt = e._2
527+                let lpAssetId = e._7
528+                let state = e._9
529+                let amDiff = e._10
530+                let prDiff = e._11
531+                let amId = e._12
532+                let prId = e._13
533+                let r = invoke(fca, "emit", [emitLpAmt], nil)
534+                if ((r == r))
535+                    then {
536+                        let el =                         match r {
537+                            case legacy: Address => 
538+                                invoke(legacy, "emit", [emitLpAmt], nil)
539+                            case _ => 
540+                                unit
541+                        }
542+                        if ((el == el))
543+                            then {
544+                                let sa = if ((amDiff > 0))
545+                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
546+                                    else nil
547+                                if ((sa == sa))
548+                                    then {
549+                                        let sp = if ((prDiff > 0))
550+                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
551+                                            else nil
552+                                        if ((sp == sp))
553+                                            then {
554+                                                let lpTrnsfr = if (autoStake)
555+                                                    then {
556+                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
557+                                                        if ((ss == ss))
558+                                                            then nil
559+                                                            else throw("Strict value is not equal to itself.")
560+                                                        }
561+                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
562+                                                (state ++ lpTrnsfr)
563+                                                }
564+                                            else throw("Strict value is not equal to itself.")
565+                                        }
566+                                    else throw("Strict value is not equal to itself.")
567+                                }
568+                            else throw("Strict value is not equal to itself.")
569+                        }
570+                    else throw("Strict value is not equal to itself.")
571+                }
572+    }
573+
574+
575+
576+@Callable(i)
577+func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
578+    let cfg = gfc()
579+    let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
580+    let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
581+    let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
582+    let poolCfg = gpc()
583+    let amId = poolCfg[idxAmAsId]
584+    let prId = poolCfg[idxPrAsId]
585+    let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
586+    let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
587+    let addon = valueOrElse(getString(this, ada()), "")
588+    let userAddress = if ((addon == toString(i.caller)))
589+        then i.originCaller
590+        else i.caller
591+    let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592+    let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593+    if ((check == check))
594+        then if (if (if (if ((0 >= slippage))
595+            then true
596+            else (0 >= amAssetPart))
597+            then true
598+            else (0 >= prAssetPart))
599+            then true
600+            else (0 >= outLp))
601+            then throw("Wrong params")
602+            else if ((size(i.payments) != 1))
603+                then throw("1 pmnt expd")
604+                else {
605+                    let pmt = value(i.payments[0])
606+                    let pmtAssetId = toBase58String(value(pmt.assetId))
607+                    let pmtAmt = pmt.amount
608+                    if ((10000000 > pmtAmt))
609+                        then throw("Wrong pmt amt")
610+                        else {
611+                            let amBalance = getAccBalance(amId)
612+                            let prBalance = getAccBalance(prId)
613+                            let $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+                    }
183687         else throw("Strict value is not equal to itself.")
184688     }
185689 
186690 
187691 
188692 @Callable(i)
189-func unstakeAndGetOneTkn (amount,exchResult,notUsed,outAmount,outAssetId,slippage) = {
693+func putForFree (maxSlpg) = if ((0 > maxSlpg))
694+    then throw("Wrong slpg")
695+    else if ((size(i.payments) != 2))
696+        then throw("2 pmnts expd")
697+        else {
698+            let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, 0, "")
699+            estPut._9
700+            }
701+
702+
703+
704+@Callable(i)
705+func get () = {
706+    let r = cg(i)
707+    let outAmtAmt = r._1
708+    let outPrAmt = r._2
709+    let pmtAmt = r._3
710+    let pmtAssetId = r._4
711+    let state = r._5
712+    let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
713+    if ((b == b))
714+        then state
715+        else throw("Strict value is not equal to itself.")
716+    }
717+
718+
719+
720+@Callable(i)
721+func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
722+    then throw("1 pmnt expd")
723+    else {
724+        let cfg = gpc()
725+        let lpId = cfg[idxLPAsId]
726+        let amId = cfg[idxAmAsId]
727+        let prId = cfg[idxPrAsId]
728+        let amDcm = parseIntValue(cfg[idxAmtAsDcm])
729+        let prDcm = parseIntValue(cfg[idxPriceAsDcm])
730+        let sts = cfg[idxPoolSt]
731+        let factCfg = gfc()
732+        let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
733+        let pmt = value(i.payments[0])
734+        let addon = valueOrElse(getString(this, ada()), "")
735+        let userAddress = if ((addon == toString(i.caller)))
736+            then i.originCaller
737+            else i.caller
738+        let txId58 = toBase58String(i.transactionId)
739+        let pmtAssetId = value(pmt.assetId)
740+        let pmtAmt = pmt.amount
741+        let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
742+        let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
743+        if ((check == check))
744+            then if ((1000000000 > pmtAmt))
745+                then throw("Min pmt 10 LP")
746+                else if (if (if ((0 > slippage))
747+                    then true
748+                    else (0 > exchResult))
749+                    then true
750+                    else (0 > outAmount))
751+                    then throw("Wrong params")
752+                    else if ((lpId != toBase58String(pmtAssetId)))
753+                        then throw("Wrong LP")
754+                        else {
755+                            let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
756+                            let estimAmAmt = r._1
757+                            let estimPrAmt = r._2
758+                            let amBalance = getAccBalance(amId)
759+                            let prBalance = getAccBalance(prId)
760+                            let $t03046630923 = if ((outAssetId == amId))
761+                                then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
762+                                else if ((outAssetId == prId))
763+                                    then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
764+                                    else throw("wrong outAssetId")
765+                            let amBalanceNow = $t03046630923._1
766+                            let prBalanceNow = $t03046630923._2
767+                            let virtSwapInAm = $t03046630923._3
768+                            let virtSwapOutPr = $t03046630923._4
769+                            let virtSwapInPr = $t03046630923._5
770+                            let virtSwapOutAm = $t03046630923._6
771+                            let totalGet = $t03046630923._7
772+                            if (if ((0 > virtSwapInAm))
773+                                then true
774+                                else (0 > virtSwapInPr))
775+                                then throw("Wrong calc")
776+                                else {
777+                                    let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
778+                                    let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
779+                                    let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
780+                                    if ((D0vsD1 == D0vsD1))
781+                                        then {
782+                                            let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
783+                                            if ((finalRes == finalRes))
784+                                                then {
785+                                                    let $t03162831732 = if ((outAssetId == amId))
786+                                                        then $Tuple2(toInt(finalRes._2), 0)
787+                                                        else $Tuple2(0, toInt(finalRes._2))
788+                                                    let outAm = $t03162831732._1
789+                                                    let outPr = $t03162831732._2
790+                                                    let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
791+                                                    let curPr = f1(curPrX18, scale8)
792+                                                    let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
793+                                                        then unit
794+                                                        else fromBase58String(outAssetId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
795+                                                    if ((state == state))
796+                                                        then {
797+                                                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
798+                                                            if ((burn == burn))
799+                                                                then state
800+                                                                else throw("Strict value is not equal to itself.")
801+                                                            }
802+                                                        else throw("Strict value is not equal to itself.")
803+                                                    }
804+                                                else throw("Strict value is not equal to itself.")
805+                                            }
806+                                        else throw("Strict value is not equal to itself.")
807+                                    }
808+                            }
809+            else throw("Strict value is not equal to itself.")
810+        }
811+
812+
813+
814+@Callable(i)
815+func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
816+    let r = cg(i)
817+    let outAmAmt = r._1
818+    let outPrAmt = r._2
819+    let pmtAmt = r._3
820+    let pmtAssetId = r._4
821+    let state = r._5
822+    if ((noLessThenAmtAsset > outAmAmt))
823+        then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
824+        else if ((noLessThenPriceAsset > outPrAmt))
825+            then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
826+            else {
827+                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
828+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
829+                    then state
830+                    else throw("Strict value is not equal to itself.")
831+                }
832+    }
833+
834+
835+
836+@Callable(i)
837+func unstakeAndGet (amount) = {
190838     let checkPayments = if ((size(i.payments) != 0))
191839         then throw("No pmnts expd")
192840         else true
193841     if ((checkPayments == checkPayments))
194842         then {
195-            let cfg = getPoolConfig()
196-            let factoryCfg = getFactoryConfig()
843+            let cfg = gpc()
844+            let factoryCfg = gfc()
197845             let lpAssetId = fromBase58String(cfg[idxLPAsId])
198846             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
199847             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
200848             if ((unstakeInv == unstakeInv))
201849                 then {
202-                    let getOneTkn = invoke(poolContract, "getOneTkn", [exchResult, notUsed, outAmount, outAssetId, slippage], [AttachedPayment(lpAssetId, amount)])
203-                    if ((getOneTkn == getOneTkn))
204-                        then nil
850+                    let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
851+                    let sts = parseIntValue(r._9)
852+                    let state = r._10
853+                    let v = if (if (igs())
854+                        then true
855+                        else (sts == PoolShutdown))
856+                        then throw(("Blocked: " + toString(sts)))
857+                        else true
858+                    if ((v == v))
859+                        then {
860+                            let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
861+                            if ((burnA == burnA))
862+                                then state
863+                                else throw("Strict value is not equal to itself.")
864+                            }
205865                         else throw("Strict value is not equal to itself.")
206866                     }
207867                 else throw("Strict value is not equal to itself.")
208868             }
209869         else throw("Strict value is not equal to itself.")
210870     }
211871 
212872 
213873 
214874 @Callable(i)
215-func setAmp (amp) = {
216-    let checkCaller = mustAdmin(i)
217-    if ((checkCaller == checkCaller))
218-        then {
219-            let res1 = invoke(poolContract, "setS", [keyAmp(), amp], nil)
220-            let res2 = invoke(poolContract, "setS", [keyAmpHistory(height), amp], nil)
221-            $Tuple2(nil, $Tuple2(res1, res2))
222-            }
223-        else throw("Strict value is not equal to itself.")
875+func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
876+    then throw("denied")
877+    else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
878+
879+
880+
881+@Callable(i)
882+func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
883+    then pd
884+    else [StringEntry(k, v)]
885+
886+
887+
888+@Callable(i)
889+func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
890+    then pd
891+    else [IntegerEntry(k, v)]
892+
893+
894+
895+@Callable(i)
896+func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
897+
898+
899+
900+@Callable(i)
901+func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
902+
903+
904+
905+@Callable(i)
906+func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
907+    let pr = calcPrices(amAmt, prAmt, lpAmt)
908+    $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
909+    }
910+
911+
912+
913+@Callable(i)
914+func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
915+
916+
917+
918+@Callable(i)
919+func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
920+
921+
922+
923+@Callable(i)
924+func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
925+
926+
927+
928+@Callable(i)
929+func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, false, 0, ""))
930+
931+
932+
933+@Callable(i)
934+func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
935+    let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
936+    $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
224937     }
225938 
226939 
227940 @Verifier(tx)
228941 func verify () = {
229-    let targetPublicKey =     match managerPublicKeyOrUnit() {
942+    let targetPublicKey =     match m() {
230943         case pk: ByteVector => 
231944             pk
232945         case _: Unit => 
233946             tx.senderPublicKey
234947         case _ => 
235948             throw("Match error")
236949     }
237-    sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
950+    match tx {
951+        case order: Order => 
952+            let matcherPub = mp()
953+            let orderValid = moa(order)
954+            let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
955+            let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
956+            if (if (if (orderValid)
957+                then senderValid
958+                else false)
959+                then matcherValid
960+                else false)
961+                then true
962+                else toe(orderValid, senderValid, matcherValid)
963+        case s: SetScriptTransaction => 
964+            let newHash = blake2b256(value(s.script))
965+            let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
966+            let currentHash = scriptHash(this)
967+            if (if ((allowedHash == newHash))
968+                then (currentHash != newHash)
969+                else false)
970+                then true
971+                else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
972+        case _ => 
973+            sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
974+    }
238975     }
239976 
github/deemru/w8io/169f3d6 
103.19 ms ◑