tx · 4kkL48qGqRChrqR39sjd8PtFshgRUS8qDd9o3MLWo1Me

3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA:  -0.03100000 Waves

2022.09.12 14:47 [2225840] smart account 3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4kkL48qGqRChrqR39sjd8PtFshgRUS8qDd9o3MLWo1Me",
    "fee": 3100000,
    "feeAssetId": null,
    "timestamp": 1662983263839,
    "version": 2,
    "chainId": 84,
    "sender": "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA",
    "senderPublicKey": "35yd3qw1gxKDxKwGAykHN9fANbXNWwseaUwbWDj24o3x",
    "proofs": [
        "2zMPCLUkmxp1PEn8WxwgVgG1eVmoczaE6bdCWTVpE2oaruhMZ2v52YT5qmuzH1RRCyDCmQneWy14awmcC4SqrnAY"
    ],
    "script": "base64:BgKGAQgCEgMKAQgSAwoBCBIAEgQKAgEEEgcKBQEBAQEEEgUKAwEBBBIDCgEBEgASBwoFAQEBCAESBAoCAQESAwoBARIECgIICBIECgIICBIECgIIARIAEgMKAQgSBQoDAQEBEgQKAggBEgQKAgEBEgQKAggIEgsKCQgBAQIBAggEBBIGCgQICAEITgAGc2NhbGU4AIDC1y8ADHNjYWxlOEJpZ0ludAkAtgIBAIDC1y8AB3NjYWxlMTgJALYCAQCAgJC7utat8A0ACnplcm9CaWdJbnQJALYCAQAAAAlvbmVCaWdJbnQJALYCAQABAApzbGlwcGFnZTRECQC2AgEJAGUCBQZzY2FsZTgJAGkCCQBoAgUGc2NhbGU4AAEFBnNjYWxlOAAFQW11bHQCAzEwMAAFRGNvbnYCATEAA1NFUAICX18ABUVNUFRZAgAAClBvb2xBY3RpdmUAAQAKUG9vbFB1dERpcwACAA5Qb29sTWF0Y2hlckRpcwADAAxQb29sU2h1dGRvd24ABAAOaWR4UG9vbEFkZHJlc3MAAQAJaWR4UG9vbFN0AAIACWlkeExQQXNJZAADAAlpZHhBbUFzSWQABAAJaWR4UHJBc0lkAAUAC2lkeEFtdEFzRGNtAAYADWlkeFByaWNlQXNEY20ABwALaWR4SUFtdEFzSWQACAANaWR4SVByaWNlQXNJZAAJAA9pZHhGYWN0U3Rha0NudHIAAQAQaWR4RmFjdFNsaXBwQ250cgAHABFpZHhGYWN0R3d4UmV3Q250cgAKAAVkZWxheQIJJXNfX2RlbGF5AQJ0MQIHb3JpZ1ZhbA1vcmlnU2NhbGVNdWx0CQC8AgMJALYCAQUHb3JpZ1ZhbAUHc2NhbGUxOAkAtgIBBQ1vcmlnU2NhbGVNdWx0AQJmMQIDdmFsD3Jlc3VsdFNjYWxlTXVsdAkAoAMBCQC8AgMFA3ZhbAkAtgIBBQ9yZXN1bHRTY2FsZU11bHQFB3NjYWxlMTgBAnRzAwNhbXQIcmVzU2NhbGUIY3VyU2NhbGUJAGsDBQNhbXQFCHJlc1NjYWxlBQhjdXJTY2FsZQEDYWJzAQN2YWwDCQC/AgIFCnplcm9CaWdJbnQFA3ZhbAkAvgIBBQN2YWwFA3ZhbAECZmMAAhMlc19fZmFjdG9yeUNvbnRyYWN0AQNtcGsAAhQlc19fbWFuYWdlclB1YmxpY0tleQEEcG1wawACGyVzX19wZW5kaW5nTWFuYWdlclB1YmxpY0tleQECcGwAAhElcyVzX19wcmljZV9fbGFzdAECcGgCAWgBdAkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAWgJAMwIAgkApAMBBQF0BQNuaWwFA1NFUAEDcGF1AgJ1YQR0eElkCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUCdWECAl9fBQR0eElkAQNnYXUCAnVhBHR4SWQJAKwCAgkArAICCQCsAgICCyVzJXMlc19fR19fBQJ1YQICX18FBHR4SWQBAmFhAAIPJXNfX2Ftb3VudEFzc2V0AQJwYQACDiVzX19wcmljZUFzc2V0AQNhbXAAAgclc19fYW1wAQNhZGEAAg0lc19fYWRkb25BZGRyAQVsZ290YwEGY2FsbGVyCQC5CQIJAMwIAgIXJXMlc19fbGFzdEdldE9uZVRrbkNhbGwJAMwIAgUGY2FsbGVyBQNuaWwFA1NFUAEFbHNvdGMBBmNhbGxlcgkAuQkCCQDMCAICFyVzJXNfX2xhc3RQdXRPbmVUa25DYWxsCQDMCAIFBmNhbGxlcgUDbmlsBQNTRVABBGZjZmcAAhElc19fZmFjdG9yeUNvbmZpZwEEbXRwawACGCVzJXNfX21hdGNoZXJfX3B1YmxpY0tleQECcGMCBmlBbXRBcwVpUHJBcwkArAICCQCsAgIJAKwCAgkArAICAgglZCVkJXNfXwUGaUFtdEFzAgJfXwUFaVByQXMCCF9fY29uZmlnAQNtYmEBBWJBU3RyCQCsAgICKCVzJXMlc19fbWFwcGluZ3NfX2Jhc2VBc3NldDJpbnRlcm5hbElkX18FBWJBU3RyAQNhcHMAAgwlc19fc2h1dGRvd24BHGtleUFsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2gAAh0lc19fYWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaAEDdG9lAwNvclYGc2VuZHJWBm1hdGNoVgkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhFGYWlsZWQ6IG9yZFZhbGlkPQkApQMBBQNvclYCCyBzbmRyVmFsaWQ9CQClAwEFBnNlbmRyVgIMIG10Y2hyVmFsaWQ9CQClAwEFBm1hdGNoVgEDc3RyAQN2YWwEByRtYXRjaDAFA3ZhbAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEBnZhbFN0cgUHJG1hdGNoMAUGdmFsU3RyCQACAQITZmFpbCBjYXN0IHRvIFN0cmluZwEEc3RyZgIEYWRkcgNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQRhZGRyBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUEYWRkcgkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAQRpbnRmAgRhZGRyA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFBGFkZHIFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQRhZGRyCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgAAA2ZjYQkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBHN0cmYCBQR0aGlzCQECZmMAAAFBCQEEc3RyZgIFBHRoaXMJAQNhbXAAAQNpZ3MACQELdmFsdWVPckVsc2UCCQCbCAIFA2ZjYQkBA2FwcwAHAQJtcAAJANkEAQkBBHN0cmYCBQNmY2EJAQRtdHBrAAEDZ3BjAAQFYW10QXMJAQRzdHJmAgUEdGhpcwkBAmFhAAQHcHJpY2VBcwkBBHN0cmYCBQR0aGlzCQECcGEABAhpUHJpY2VBcwkBBGludGYCBQNmY2EJAQNtYmEBBQdwcmljZUFzBAZpQW10QXMJAQRpbnRmAgUDZmNhCQEDbWJhAQUFYW10QXMJALUJAgkBBHN0cmYCBQNmY2EJAQJwYwIJAKQDAQUGaUFtdEFzCQCkAwEFCGlQcmljZUFzBQNTRVABA2dmYwAJALUJAgkBBHN0cmYCBQNmY2EJAQRmY2ZnAAUDU0VQARFkYXRhUHV0QWN0aW9uSW5mbwoNaW5BbXRBc3NldEFtdA9pblByaWNlQXNzZXRBbXQIb3V0THBBbXQFcHJpY2UKc2xpcEJ5VXNlcgxzbGlwcGFnZVJlYWwIdHhIZWlnaHQLdHhUaW1lc3RhbXAMc2xpcGFnZUFtQW10DHNsaXBhZ2VQckFtdAkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUNaW5BbXRBc3NldEFtdAkAzAgCCQCkAwEFD2luUHJpY2VBc3NldEFtdAkAzAgCCQCkAwEFCG91dExwQW10CQDMCAIJAKQDAQUFcHJpY2UJAMwIAgkApAMBBQpzbGlwQnlVc2VyCQDMCAIJAKQDAQUMc2xpcHBhZ2VSZWFsCQDMCAIJAKQDAQUIdHhIZWlnaHQJAMwIAgkApAMBBQt0eFRpbWVzdGFtcAkAzAgCCQCkAwEFDHNsaXBhZ2VBbUFtdAkAzAgCCQCkAwEFDHNsaXBhZ2VQckFtdAUDbmlsBQNTRVABEWRhdGFHZXRBY3Rpb25JbmZvBg5vdXRBbXRBc3NldEFtdBBvdXRQcmljZUFzc2V0QW10B2luTHBBbXQFcHJpY2UIdHhIZWlnaHQLdHhUaW1lc3RhbXAJALkJAgkAzAgCAgwlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQ5vdXRBbXRBc3NldEFtdAkAzAgCCQCkAwEFEG91dFByaWNlQXNzZXRBbXQJAMwIAgkApAMBBQdpbkxwQW10CQDMCAIJAKQDAQUFcHJpY2UJAMwIAgkApAMBBQh0eEhlaWdodAkAzAgCCQCkAwEFC3R4VGltZXN0YW1wBQNuaWwFA1NFUAENZ2V0QWNjQmFsYW5jZQEHYXNzZXRJZAMJAAACBQdhc3NldElkAgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQdhc3NldElkAQRjcGJpAghwckFtdFgxOAhhbUFtdFgxOAkAvAIDBQhwckFtdFgxOAUHc2NhbGUxOAUIYW1BbXRYMTgBA3ZhZAMCQTECQTIIc2xpcHBhZ2UEBGRpZmYJALwCAwkAuAICBQJBMQUCQTIFDHNjYWxlOEJpZ0ludAUCQTIEBHBhc3MJAL8CAgkAuAICBQhzbGlwcGFnZQkBA2FicwEFBGRpZmYFCnplcm9CaWdJbnQDCQEBIQEFBHBhc3MJAAIBCQCsAgICCkJpZyBzbHBnOiAJAKYDAQUEZGlmZgkAlAoCBQRwYXNzCQCZAwEJAMwIAgUCQTEJAMwIAgUCQTIFA25pbAECdmQDAkQxAkQwBHNscGcEBGRpZmYJALwCAwUCRDAFDHNjYWxlOEJpZ0ludAUCRDEEBGZhaWwJAL8CAgUEc2xwZwUEZGlmZgMDBQRmYWlsBgkAvwICBQJEMAUCRDEJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCmAwEFAkQwAgEgCQCmAwEFAkQxAgEgCQCmAwEFBGRpZmYCASAJAKYDAQUEc2xwZwUEZmFpbAEDcGNwBAphbUFzc2V0RGNtCnByQXNzZXREY20FYW1BbXQFcHJBbXQEC2FtdEFzQW10WDE4CQECdDECBQVhbUFtdAUKYW1Bc3NldERjbQQKcHJBc0FtdFgxOAkBAnQxAgUFcHJBbXQFCnByQXNzZXREY20JAQRjcGJpAgUKcHJBc0FtdFgxOAULYW10QXNBbXRYMTgBCmNhbGNQcmljZXMDBWFtQW10BXByQW10BWxwQW10BANjZmcJAQNncGMABAhhbXRBc0RjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwULaWR4QW10QXNEY20EB3ByQXNEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20ECHByaWNlWDE4CQEDcGNwBAUIYW10QXNEY20FB3ByQXNEY20FBWFtQW10BQVwckFtdAQIYW1BbXRYMTgJAQJ0MQIFBWFtQW10BQhhbXRBc0RjbQQIcHJBbXRYMTgJAQJ0MQIFBXByQW10BQdwckFzRGNtBAhscEFtdFgxOAkBAnQxAgUFbHBBbXQFBnNjYWxlOAQNbHBQckluQW1Bc1gxOAkBBGNwYmkCBQhhbUFtdFgxOAUIbHBBbXRYMTgEDWxwUHJJblByQXNYMTgJAQRjcGJpAgUIcHJBbXRYMTgFCGxwQW10WDE4CQDMCAIFCHByaWNlWDE4CQDMCAIFDWxwUHJJbkFtQXNYMTgJAMwIAgUNbHBQckluUHJBc1gxOAUDbmlsAQ9jYWxjdWxhdGVQcmljZXMDBWFtQW10BXByQW10BWxwQW10BAFwCQEKY2FsY1ByaWNlcwMFBWFtQW10BQVwckFtdAUFbHBBbXQJAMwIAgkBAmYxAgkAkQMCBQFwAAAFBnNjYWxlOAkAzAgCCQECZjECCQCRAwIFAXAAAQUGc2NhbGU4CQDMCAIJAQJmMQIJAJEDAgUBcAACBQZzY2FsZTgFA25pbAEDZWdvBAZ0eElkNTgKcG10QXNzZXRJZAhwbXRMcEFtdAt1c2VyQWRkcmVzcwQDY2ZnCQEDZ3BjAAQEbHBJZAkAkQMCBQNjZmcFCWlkeExQQXNJZAQEYW1JZAkAkQMCBQNjZmcFCWlkeEFtQXNJZAQEcHJJZAkAkQMCBQNjZmcFCWlkeFByQXNJZAQFYW1EY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBAVwckRjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUNaWR4UHJpY2VBc0RjbQQDc3RzCQCRAwIFA2NmZwUJaWR4UG9vbFN0BAdscEVtaXNzCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUEbHBJZAILV3JvbmcgTFAgaWQIcXVhbnRpdHkDCQECIT0CBQRscElkBQpwbXRBc3NldElkCQACAQIPV3JvbmcgcG10IGFzc2V0BAlhbUJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEYW1JZAQMYW1CYWxhbmNlWDE4CQECdDECBQlhbUJhbGFuY2UFBWFtRGNtBAlwckJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEcHJJZAQMcHJCYWxhbmNlWDE4CQECdDECBQlwckJhbGFuY2UFBXByRGNtBAtjdXJQcmljZVgxOAkBBGNwYmkCBQxwckJhbGFuY2VYMTgFDGFtQmFsYW5jZVgxOAQIY3VyUHJpY2UJAQJmMQIFC2N1clByaWNlWDE4BQZzY2FsZTgEC3BtdExwQW10WDE4CQECdDECBQhwbXRMcEFtdAUGc2NhbGU4BApscEVtaXNzWDE4CQECdDECBQdscEVtaXNzBQZzY2FsZTgEC291dEFtQW10WDE4CQC8AgMFDGFtQmFsYW5jZVgxOAULcG10THBBbXRYMTgFCmxwRW1pc3NYMTgEC291dFByQW10WDE4CQC8AgMFDHByQmFsYW5jZVgxOAULcG10THBBbXRYMTgFCmxwRW1pc3NYMTgECG91dEFtQW10CQECZjECBQtvdXRBbUFtdFgxOAUFYW1EY20ECG91dFByQW10CQECZjECBQtvdXRQckFtdFgxOAUFcHJEY20EBXN0YXRlAwkAAAIFBnR4SWQ1OAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULdXNlckFkZHJlc3MFCG91dEFtQW10AwkAAAIFBGFtSWQCBVdBVkVTBQR1bml0CQDZBAEFBGFtSWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULdXNlckFkZHJlc3MFCG91dFByQW10AwkAAAIFBHBySWQCBVdBVkVTBQR1bml0CQDZBAEFBHBySWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBA2dhdQIJAKUIAQULdXNlckFkZHJlc3MFBnR4SWQ1OAkBEWRhdGFHZXRBY3Rpb25JbmZvBgUIb3V0QW1BbXQFCG91dFByQW10BQhwbXRMcEFtdAUIY3VyUHJpY2UFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJwbAAFCGN1clByaWNlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGgCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQhjdXJQcmljZQUDbmlsCQCcCgoFCG91dEFtQW10BQhvdXRQckFtdAUEYW1JZAUEcHJJZAUJYW1CYWxhbmNlBQlwckJhbGFuY2UFB2xwRW1pc3MFC2N1clByaWNlWDE4BQNzdHMFBXN0YXRlAQNlcG8MBnR4SWQ1OAhzbGlwcGFnZQdpbkFtQW10BmluQW1JZAdpblByQW10BmluUHJJZAt1c2VyQWRkcmVzcwZpc0V2YWwGZW1pdExwCmlzT25lQXNzZXQGcG10QW10BXBtdElkBANjZmcJAQNncGMABARscElkCQDZBAEJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEB2FtSWRTdHIJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEB3BySWRTdHIJAJEDAgUDY2ZnBQlpZHhQckFzSWQECWluQW1JZFN0cgkAkQMCBQNjZmcFC2lkeElBbXRBc0lkBAlpblBySWRTdHIJAJEDAgUDY2ZnBQ1pZHhJUHJpY2VBc0lkBAZhbXREY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFC2lkeEFtdEFzRGNtBAhwcmljZURjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUNaWR4UHJpY2VBc0RjbQQDc3RzCQCRAwIFA2NmZwUJaWR4UG9vbFN0BARscEVtCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFBGxwSWQCCFdyIGxwIGFzCHF1YW50aXR5BAlhbUJhbGFuY2UDBQZpc0V2YWwJAQ1nZXRBY2NCYWxhbmNlAQUHYW1JZFN0cgMDBQppc09uZUFzc2V0CQAAAgUFcG10SWQFB2FtSWRTdHIHCQBlAgkBDWdldEFjY0JhbGFuY2UBBQdhbUlkU3RyBQZwbXRBbXQDBQppc09uZUFzc2V0CQENZ2V0QWNjQmFsYW5jZQEFB2FtSWRTdHIJAGUCCQENZ2V0QWNjQmFsYW5jZQEFB2FtSWRTdHIFB2luQW1BbXQECXByQmFsYW5jZQMFBmlzRXZhbAkBDWdldEFjY0JhbGFuY2UBBQdwcklkU3RyAwMFCmlzT25lQXNzZXQJAAACBQVwbXRJZAUHcHJJZFN0cgcJAGUCCQENZ2V0QWNjQmFsYW5jZQEFB3BySWRTdHIFBnBtdEFtdAMFCmlzT25lQXNzZXQJAQ1nZXRBY2NCYWxhbmNlAQUHcHJJZFN0cgkAZQIJAQ1nZXRBY2NCYWxhbmNlAQUHcHJJZFN0cgUHaW5QckFtdAQPaW5BbUFzc2V0QW10WDE4CQECdDECBQdpbkFtQW10BQZhbXREY20ED2luUHJBc3NldEFtdFgxOAkBAnQxAgUHaW5QckFtdAUIcHJpY2VEY20EDHVzZXJQcmljZVgxOAkBBGNwYmkCBQ9pblByQXNzZXRBbXRYMTgFD2luQW1Bc3NldEFtdFgxOAQMYW1CYWxhbmNlWDE4CQECdDECBQlhbUJhbGFuY2UFBmFtdERjbQQMcHJCYWxhbmNlWDE4CQECdDECBQlwckJhbGFuY2UFCHByaWNlRGNtBAFyAwkAAAIFBGxwRW0AAAQLY3VyUHJpY2VYMTgFCnplcm9CaWdJbnQEC3NsaXBwYWdlWDE4BQp6ZXJvQmlnSW50BAhscEFtdFgxOAkAdgYJALkCAgUPaW5BbUFzc2V0QW10WDE4BQ9pblByQXNzZXRBbXRYMTgAAAkAtgIBAAUAAQAABQRET1dOCQCXCgUJAQJmMQIFCGxwQW10WDE4BQZzY2FsZTgJAQJmMQIFD2luQW1Bc3NldEFtdFgxOAUGYW10RGNtCQECZjECBQ9pblByQXNzZXRBbXRYMTgFCHByaWNlRGNtCQEEY3BiaQIJALcCAgUMcHJCYWxhbmNlWDE4BQ9pblByQXNzZXRBbXRYMTgJALcCAgUMYW1CYWxhbmNlWDE4BQ9pbkFtQXNzZXRBbXRYMTgFC3NsaXBwYWdlWDE4BAtjdXJQcmljZVgxOAkBBGNwYmkCBQxwckJhbGFuY2VYMTgFDGFtQmFsYW5jZVgxOAQPc2xpcHBhZ2VSZWFsWDE4CQC8AgMJAQNhYnMBCQC4AgIFC2N1clByaWNlWDE4BQx1c2VyUHJpY2VYMTgFB3NjYWxlMTgFC2N1clByaWNlWDE4BAtzbGlwcGFnZVgxOAkBAnQxAgUIc2xpcHBhZ2UFBnNjYWxlOAMDCQECIT0CBQtjdXJQcmljZVgxOAUKemVyb0JpZ0ludAkAvwICBQ9zbGlwcGFnZVJlYWxYMTgFC3NsaXBwYWdlWDE4BwkAAgEJAKwCAgkArAICCQCsAgICD1ByaWNlIHNsaXBwYWdlIAkApgMBBQ9zbGlwcGFnZVJlYWxYMTgCAyA+IAkApgMBBQtzbGlwcGFnZVgxOAQNbHBFbWlzc2lvblgxOAkBAnQxAgUEbHBFbQUGc2NhbGU4BApwclZpYUFtWDE4CQC8AgMFD2luQW1Bc3NldEFtdFgxOAULY3VyUHJpY2VYMTgFB3NjYWxlMTgECmFtVmlhUHJYMTgJALwCAwUPaW5QckFzc2V0QW10WDE4BQdzY2FsZTE4BQtjdXJQcmljZVgxOAQMZXhwZWN0ZWRBbXRzAwkAvwICBQpwclZpYUFtWDE4BQ9pblByQXNzZXRBbXRYMTgJAJQKAgUKYW1WaWFQclgxOAUPaW5QckFzc2V0QW10WDE4CQCUCgIFD2luQW1Bc3NldEFtdFgxOAUKcHJWaWFBbVgxOAQRZXhwQW10QXNzZXRBbXRYMTgIBQxleHBlY3RlZEFtdHMCXzEEE2V4cFByaWNlQXNzZXRBbXRYMTgIBQxleHBlY3RlZEFtdHMCXzIECGxwQW10WDE4CQC8AgMFDWxwRW1pc3Npb25YMTgFE2V4cFByaWNlQXNzZXRBbXRYMTgFDHByQmFsYW5jZVgxOAkAlwoFCQECZjECBQhscEFtdFgxOAUGc2NhbGU4CQECZjECBRFleHBBbXRBc3NldEFtdFgxOAUGYW10RGNtCQECZjECBRNleHBQcmljZUFzc2V0QW10WDE4BQhwcmljZURjbQULY3VyUHJpY2VYMTgFC3NsaXBwYWdlWDE4BAljYWxjTHBBbXQIBQFyAl8xBA5jYWxjQW1Bc3NldFBtdAgFAXICXzIEDmNhbGNQckFzc2V0UG10CAUBcgJfMwQIY3VyUHJpY2UJAQJmMQIIBQFyAl80BQZzY2FsZTgEDHNsaXBwYWdlQ2FsYwkBAmYxAggFAXICXzUFBnNjYWxlOAMJAGcCAAAFCWNhbGNMcEFtdAkAAgECB0xQIDw9IDAECWVtaXRMcEFtdAMJAQEhAQUGZW1pdExwAAAFCWNhbGNMcEFtdAQGYW1EaWZmCQBlAgUHaW5BbUFtdAUOY2FsY0FtQXNzZXRQbXQEBnByRGlmZgkAZQIFB2luUHJBbXQFDmNhbGNQckFzc2V0UG10BA0kdDAxNTYwMTE1OTQ2AwMFCmlzT25lQXNzZXQJAAACBQVwbXRJZAUHYW1JZFN0cgcJAJQKAgUGcG10QW10AAADAwUKaXNPbmVBc3NldAkAAAIFBXBtdElkBQdwcklkU3RyBwkAlAoCAAAFBnBtdEFtdAkAlAoCBQ5jYWxjQW1Bc3NldFBtdAUOY2FsY1ByQXNzZXRQbXQECndyaXRlQW1BbXQIBQ0kdDAxNTYwMTE1OTQ2Al8xBAp3cml0ZVByQW10CAUNJHQwMTU2MDExNTk0NgJfMgQLY29tbW9uU3RhdGUJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJwbAAFCGN1clByaWNlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGgCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQhjdXJQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQEDcGF1AgULdXNlckFkZHJlc3MFBnR4SWQ1OAkBEWRhdGFQdXRBY3Rpb25JbmZvCgUKd3JpdGVBbUFtdAUKd3JpdGVQckFtdAUJZW1pdExwQW10BQhjdXJQcmljZQUIc2xpcHBhZ2UFDHNsaXBwYWdlQ2FsYwUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUGYW1EaWZmBQZwckRpZmYFA25pbAkAnwoNBQljYWxjTHBBbXQFCWVtaXRMcEFtdAUIY3VyUHJpY2UFCWFtQmFsYW5jZQUJcHJCYWxhbmNlBQRscEVtBQRscElkBQNzdHMFC2NvbW1vblN0YXRlBQZhbURpZmYFBnByRGlmZgUGaW5BbUlkBQZpblBySWQBA21vYQEFb3JkZXIEA2NmZwkBA2dwYwAEB2FtdEFzSWQJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEBnByQXNJZAkAkQMCBQNjZmcFCWlkeFByQXNJZAQDc3RzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQlpZHhQb29sU3QECGFtdEFzRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQHcHJBc0RjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA2NmZwUNaWR4UHJpY2VBc0RjbQQPYWNjQW10QXNCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFB2FtdEFzSWQEDmFjY1ByQXNCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBnByQXNJZAQLY3VyUHJpY2VYMTgDCQAAAggFBW9yZGVyCW9yZGVyVHlwZQUDQnV5CQEDcGNwBAUIYW10QXNEY20FB3ByQXNEY20JAGQCBQ9hY2NBbXRBc0JhbGFuY2UIBQVvcmRlcgZhbW91bnQFDmFjY1ByQXNCYWxhbmNlCQEDcGNwBAUIYW10QXNEY20FB3ByQXNEY20JAGUCBQ9hY2NBbXRBc0JhbGFuY2UIBQVvcmRlcgZhbW91bnQFDmFjY1ByQXNCYWxhbmNlBAhjdXJQcmljZQkBAmYxAgULY3VyUHJpY2VYMTgFBnNjYWxlOAMDAwkBA2lncwAGCQAAAgUDc3RzBQ5Qb29sTWF0Y2hlckRpcwYJAAACBQNzdHMFDFBvb2xTaHV0ZG93bgkAAgECDUFkbWluIGJsb2NrZWQECm9yQW10QXNzZXQICAUFb3JkZXIJYXNzZXRQYWlyC2Ftb3VudEFzc2V0BApvckFtdEFzU3RyAwkAAAIFCm9yQW10QXNzZXQFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFCm9yQW10QXNzZXQECW9yUHJBc3NldAgIBQVvcmRlcglhc3NldFBhaXIKcHJpY2VBc3NldAQJb3JQckFzU3RyAwkAAAIFCW9yUHJBc3NldAUEdW5pdAIFV0FWRVMJANgEAQkBBXZhbHVlAQUJb3JQckFzc2V0AwMJAQIhPQIFCm9yQW10QXNTdHIFB2FtdEFzSWQGCQECIT0CBQlvclByQXNTdHIFBnByQXNJZAkAAgECCVdyIGFzc2V0cwQKb3JkZXJQcmljZQgFBW9yZGVyBXByaWNlBAhwcmljZURjbQkAawMFBnNjYWxlOAUHcHJBc0RjbQUIYW10QXNEY20EDmNhc3RPcmRlclByaWNlCQECdHMDBQpvcmRlclByaWNlBQZzY2FsZTgFCHByaWNlRGNtBBFpc09yZGVyUHJpY2VWYWxpZAMJAAACCAUFb3JkZXIJb3JkZXJUeXBlBQNCdXkJAGcCBQhjdXJQcmljZQUOY2FzdE9yZGVyUHJpY2UJAGcCBQ5jYXN0T3JkZXJQcmljZQUIY3VyUHJpY2UGAQJjZwEBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABApwbXRBc3NldElkCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQEBnBtdEFtdAgFA3BtdAZhbW91bnQEAXIJAQNlZ28ECQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJANgEAQUKcG10QXNzZXRJZAUGcG10QW10CAUBaQZjYWxsZXIECG91dEFtQW10CAUBcgJfMQQIb3V0UHJBbXQIBQFyAl8yBANzdHMJAQ1wYXJzZUludFZhbHVlAQgFAXICXzkEBXN0YXRlCAUBcgNfMTADAwkBA2lncwAGCQAAAgUDc3RzBQxQb29sU2h1dGRvd24JAAIBCQCsAgICD0FkbWluIGJsb2NrZWQ6IAkApAMBBQNzdHMJAJcKBQUIb3V0QW1BbXQFCG91dFByQW10BQZwbXRBbXQFCnBtdEFzc2V0SWQFBXN0YXRlAQJjcAkGY2FsbGVyBHR4SWQHYW1Bc1BtdAdwckFzUG10CHNsaXBwYWdlBmVtaXRMcAppc09uZUFzc2V0BnBtdEFtdAVwbXRJZAQBcgkBA2VwbwwFBHR4SWQFCHNsaXBwYWdlCAkBBXZhbHVlAQUHYW1Bc1BtdAZhbW91bnQICQEFdmFsdWUBBQdhbUFzUG10B2Fzc2V0SWQICQEFdmFsdWUBBQdwckFzUG10BmFtb3VudAgJAQV2YWx1ZQEFB3ByQXNQbXQHYXNzZXRJZAUGY2FsbGVyBwUGZW1pdExwBQppc09uZUFzc2V0BQZwbXRBbXQFBXBtdElkBANzdHMJAQ1wYXJzZUludFZhbHVlAQgFAXICXzgDAwMJAQNpZ3MABgkAAAIFA3N0cwUKUG9vbFB1dERpcwYJAAACBQNzdHMFDFBvb2xTaHV0ZG93bgkAAgEJAKwCAgIIQmxvY2tlZDoJAKQDAQUDc3RzBQFyAQFtAAQHJG1hdGNoMAkAoggBCQEDbXBrAAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJANkEAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBAnBtAAQHJG1hdGNoMAkAoggBCQEEcG1wawADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQDZBAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAAJwZAkAAgECEVBlcm1pc3Npb24gZGVuaWVkAQJtbQEBaQQHJG1hdGNoMAkBAW0AAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAnBrBQckbWF0Y2gwAwkAAAIIBQFpD2NhbGxlclB1YmxpY0tleQUCcGsGBQJwZAMJAAECBQckbWF0Y2gwAgRVbml0AwkAAAIIBQFpBmNhbGxlcgUEdGhpcwYFAnBkCQACAQILTWF0Y2ggZXJyb3IWAWkBC2NvbnN0cnVjdG9yAQJmYwQBYwkBAm1tAQUBaQMJAAACBQFjBQFjCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJmYwAFAmZjBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEKc2V0TWFuYWdlcgEXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkEAWMJAQJtbQEFAWkDCQAAAgUBYwUBYwQCY20JANkEAQUXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkDCQAAAgUCY20FAmNtCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQRwbXBrAAUXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ5jb25maXJtTWFuYWdlcgAEAXAJAQJwbQAEA2hwbQMJAQlpc0RlZmluZWQBBQFwBgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQNocG0FA2hwbQQDY3BtAwkAAAIIBQFpD2NhbGxlclB1YmxpY0tleQkBBXZhbHVlAQUBcAYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUDY3BtBQNjcG0JAMwIAgkBC1N0cmluZ0VudHJ5AgkBA21wawAJANgEAQkBBXZhbHVlAQUBcAkAzAgCCQELRGVsZXRlRW50cnkBCQEEcG1wawAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQNwdXQCBHNsaXAJYXV0b1N0YWtlBAdmYWN0Q2ZnCQEDZ2ZjAAQLc3Rha2luZ0NudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB2ZhY3RDZmcFD2lkeEZhY3RTdGFrQ250cgIKV3Igc3QgYWRkcgQIc2xpcENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB2ZhY3RDZmcFEGlkeEZhY3RTbGlwcENudHICCldyIHNsIGFkZHIDCQBmAgAABQRzbGlwCQACAQIOV3Jvbmcgc2xpcHBhZ2UDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAWUJAQJjcAkJAKUIAQgFAWkGY2FsbGVyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQCRAwIIBQFpCHBheW1lbnRzAAEFBHNsaXAGBwAAAgAECWVtaXRMcEFtdAgFAWUCXzIECWxwQXNzZXRJZAgFAWUCXzcEBXN0YXRlCAUBZQJfOQQGYW1EaWZmCAUBZQNfMTAEBnByRGlmZggFAWUDXzExBARhbUlkCAUBZQNfMTIEBHBySWQIBQFlA18xMwQBcgkA/AcEBQNmY2ECBGVtaXQJAMwIAgUJZW1pdExwQW10BQNuaWwFA25pbAMJAAACBQFyBQFyBAJlbAQHJG1hdGNoMAUBcgMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAZsZWdhY3kFByRtYXRjaDAJAPwHBAUGbGVnYWN5AgRlbWl0CQDMCAIFCWVtaXRMcEFtdAUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZWwFAmVsBAJzYQMJAGYCBQZhbURpZmYAAAkA/AcEBQhzbGlwQ250cgIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBGFtSWQFBmFtRGlmZgUDbmlsBQNuaWwDCQAAAgUCc2EFAnNhBAJzcAMJAGYCBQZwckRpZmYAAAkA/AcEBQhzbGlwQ250cgIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHBySWQFBnByRGlmZgUDbmlsBQNuaWwDCQAAAgUCc3AFAnNwBAhscFRybnNmcgMFCWF1dG9TdGFrZQQCc3MJAPwHBAULc3Rha2luZ0NudHICBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCWxwQXNzZXRJZAUJZW1pdExwQW10BQNuaWwDCQAAAgUCc3MFAnNzBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQllbWl0THBBbXQFCWxwQXNzZXRJZAUDbmlsCQDOCAIFBXN0YXRlBQhscFRybnNmcgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQlwdXRPbmVUa24FC2FtQXNzZXRQYXJ0C3ByQXNzZXRQYXJ0BW91dExwCHNsaXBwYWdlCWF1dG9TdGFrZQQDY2ZnCQEDZ2ZjAAQLc3Rha2luZ0NudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFA2NmZwUPaWR4RmFjdFN0YWtDbnRyAgpXciBzdCBhZGRyBAhzbGlwQ250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUDY2ZnBRBpZHhGYWN0U2xpcHBDbnRyAgpXciBzbCBhZGRyBAdnd3hDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQNjZmcFEWlkeEZhY3RHd3hSZXdDbnRyAgtXciBnd3ggYWRkcgQHcG9vbENmZwkBA2dwYwAEBGFtSWQJAJEDAgUHcG9vbENmZwUJaWR4QW1Bc0lkBARwcklkCQCRAwIFB3Bvb2xDZmcFCWlkeFByQXNJZAQFYW1EY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdwb29sQ2ZnBQtpZHhBbXRBc0RjbQQFcHJEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdwb29sQ2ZnBQ1pZHhQcmljZUFzRGNtBAVhZGRvbgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEDYWRhAAIABAt1c2VyQWRkcmVzcwMJAAACBQVhZGRvbgkApQgBCAUBaQZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcggFAWkGY2FsbGVyBA1hZGRvbkNvbnRyYWN0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJAQNhZGEAAglubyBhZGRvbnMCGmFkZG9uIGFkZHJlc3MgaW4gbm90IHZhbGlkBAVjaGVjawkA/QcEBQ1hZGRvbkNvbnRyYWN0AhJlbnN1cmVDYW5QdXRPbmVUa24JAMwIAgkApQgBBQt1c2VyQWRkcmVzcwUDbmlsBQNuaWwDCQAAAgUFY2hlY2sFBWNoZWNrAwMDAwkAZwIAAAUIc2xpcHBhZ2UGCQBnAgAABQthbUFzc2V0UGFydAYJAGcCAAAFC3ByQXNzZXRQYXJ0BgkAZwIAAAUFb3V0THAJAAIBAgxXcm9uZyBwYXJhbXMDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAgsxIHBtbnQgZXhwZAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAECnBtdEFzc2V0SWQJANgEAQkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAZwbXRBbXQIBQNwbXQGYW1vdW50AwkAZgIAgK3iBAUGcG10QW10CQACAQINV3JvbmcgcG10IGFtdAQJYW1CYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBGFtSWQECXByQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRwcklkBA0kdDAyNDg1OTI1NDM1AwkAAAIFCnBtdEFzc2V0SWQFBGFtSWQDAwkAZgIFBnBtdEFtdAUJYW1CYWxhbmNlBgkAZgIFC2FtQXNzZXRQYXJ0BQZwbXRBbXQJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCYCgYJAGUCBQlhbUJhbGFuY2UFBnBtdEFtdAUJcHJCYWxhbmNlCQBlAgUGcG10QW10BQthbUFzc2V0UGFydAULcHJBc3NldFBhcnQAAAAAAwkAAAIFCnBtdEFzc2V0SWQFBHBySWQDAwkAZgIFBnBtdEFtdAUJcHJCYWxhbmNlBgkAZgIFC3ByQXNzZXRQYXJ0BQZwbXRBbXQJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCYCgYFCWFtQmFsYW5jZQkAZQIFCXByQmFsYW5jZQUGcG10QW10AAAAAAkAZQIFBnBtdEFtdAULcHJBc3NldFBhcnQFC2FtQXNzZXRQYXJ0CQACAQIQd3JvbmcgcG10QXNzZXRJZAQMYW1CYWxhbmNlTm93CAUNJHQwMjQ4NTkyNTQzNQJfMQQMcHJCYWxhbmNlTm93CAUNJHQwMjQ4NTkyNTQzNQJfMgQMdmlydFN3YXBJbkFtCAUNJHQwMjQ4NTkyNTQzNQJfMwQNdmlydFN3YXBPdXRQcggFDSR0MDI0ODU5MjU0MzUCXzQEDHZpcnRTd2FwSW5QcggFDSR0MDI0ODU5MjU0MzUCXzUEDXZpcnRTd2FwT3V0QW0IBQ0kdDAyNDg1OTI1NDM1Al82BAJEMAkA/AcEBQdnd3hDbnRyAgVjYWxjRAkAzAgCCQCkAwEFDGFtQmFsYW5jZU5vdwkAzAgCCQCkAwEFDHByQmFsYW5jZU5vdwkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQCRDEJAPwHBAUHZ3d4Q250cgIFY2FsY0QJAMwIAgkApgMBCQC2AgEJAGUCCQBkAgUMYW1CYWxhbmNlTm93BQx2aXJ0U3dhcEluQW0FDXZpcnRTd2FwT3V0QW0JAMwIAgkApgMBCQC2AgEJAGUCCQBkAgUMcHJCYWxhbmNlTm93BQx2aXJ0U3dhcEluUHIFDXZpcnRTd2FwT3V0UHIJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCBQVEY29udgUDbmlsBQNuaWwEBkQwdnNEMQkBAnZkAwkApwMBCQEDc3RyAQUCRDEJAKcDAQkBA3N0cgEFAkQwBQpzbGlwcGFnZTREAwkAAAIFBkQwdnNEMQUGRDB2c0QxBAZlc3RQdXQJAQJjcAkJAKUIAQgFAWkGY2FsbGVyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFBGFtSWQFC2FtQXNzZXRQYXJ0CQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRwcklkBQtwckFzc2V0UGFydAUIc2xpcHBhZ2UGBgUGcG10QW10BQpwbXRBc3NldElkBAdlc3RpbUxQCAUGZXN0UHV0Al8yBAlscEFzc2V0SWQIBQZlc3RQdXQCXzcEBXN0YXRlCAUGZXN0UHV0Al85BAZhbURpZmYIBQZlc3RQdXQDXzEwBAZwckRpZmYIBQZlc3RQdXQDXzExBAlscENhbGNSZXMJAQN2YWQDCQC2AgEFB2VzdGltTFAJALYCAQUFb3V0THAJALYCAQUIc2xpcHBhZ2UECWVtaXRMcEFtdAkAoAMBCAUJbHBDYWxjUmVzAl8yBAFlCQD8BwQFA2ZjYQIEZW1pdAkAzAgCBQllbWl0THBBbXQFA25pbAUDbmlsAwkAAAIFAWUFAWUEAmVsBAckbWF0Y2gwBQFlAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEBmxlZ2FjeQUHJG1hdGNoMAkA/AcEBQZsZWdhY3kCBGVtaXQJAMwIAgUJZW1pdExwQW10BQNuaWwFA25pbAUEdW5pdAMJAAACBQJlbAUCZWwEAnNhAwkAZgIFBmFtRGlmZgAACQD8BwQFCHNsaXBDbnRyAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRhbUlkBQZhbURpZmYFA25pbAUDbmlsAwkAAAIFAnNhBQJzYQQCc3ADCQBmAgUGcHJEaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFBHBySWQFBnByRGlmZgUDbmlsBQNuaWwDCQAAAgUCc3AFAnNwBAhscFRybnNmcgMFCWF1dG9TdGFrZQQCc3MJAPwHBAULc3Rha2luZ0NudHICBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCWxwQXNzZXRJZAUJZW1pdExwQW10BQNuaWwDCQAAAgUCc3MFAnNzBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQllbWl0THBBbXQFCWxwQXNzZXRJZAUDbmlsCQDOCAIFBXN0YXRlBQhscFRybnNmcgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQtwdXRPbmVUa25WMgMFb3V0THAIc2xpcHBhZ2UJYXV0b1N0YWtlBANjZmcJAQNnZmMABAtzdGFraW5nQ250cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUDY2ZnBQ9pZHhGYWN0U3Rha0NudHICCldyIHN0IGFkZHIECHNsaXBDbnRyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQNjZmcFEGlkeEZhY3RTbGlwcENudHICCldyIHNsIGFkZHIEB2d3eENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFA2NmZwURaWR4RmFjdEd3eFJld0NudHICC1dyIGd3eCBhZGRyBAdwb29sQ2ZnCQEDZ3BjAAQEYW1JZAkAkQMCBQdwb29sQ2ZnBQlpZHhBbUFzSWQEBHBySWQJAJEDAgUHcG9vbENmZwUJaWR4UHJBc0lkBAVhbURjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Bvb2xDZmcFC2lkeEFtdEFzRGNtBAVwckRjbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Bvb2xDZmcFDWlkeFByaWNlQXNEY20EBWFkZG9uCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQNhZGEAAgAEC3VzZXJBZGRyZXNzAwkAAAIFBWFkZG9uCQClCAEIBQFpBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyCAUBaQZjYWxsZXIEDWFkZG9uQ29udHJhY3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBA2FkYQACCW5vIGFkZG9ucwIaYWRkb24gYWRkcmVzcyBpbiBub3QgdmFsaWQEBWNoZWNrCQD9BwQFDWFkZG9uQ29udHJhY3QCEmVuc3VyZUNhblB1dE9uZVRrbgkAzAgCCQClCAEFC3VzZXJBZGRyZXNzBQNuaWwFA25pbAMJAAACBQVjaGVjawUFY2hlY2sDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAgsxIHBtbnQgZXhwZAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAECnBtdEFzc2V0SWQJANgEAQkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAZwbXRBbXQIBQNwbXQGYW1vdW50AwkAZgIAgK3iBAUGcG10QW10CQACAQINV3JvbmcgcG10IGFtdAQJYW1CYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBGFtSWQECXByQmFsYW5jZQkBDWdldEFjY0JhbGFuY2UBBQRwcklkBA0kdDAyODg4ODI5Mjc2AwkAAAIFCnBtdEFzc2V0SWQFBGFtSWQDCQBmAgUGcG10QW10BQlhbUJhbGFuY2UJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIJAGUCBQlhbUJhbGFuY2UFBnBtdEFtdAUJcHJCYWxhbmNlAwkAAAIFCnBtdEFzc2V0SWQFBHBySWQDCQBmAgUGcG10QW10BQlwckJhbGFuY2UJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIFCWFtQmFsYW5jZQkAZQIFCXByQmFsYW5jZQUGcG10QW10CQACAQIQd3JvbmcgcG10QXNzZXRJZAQMYW1CYWxhbmNlTm93CAUNJHQwMjg4ODgyOTI3NgJfMQQMcHJCYWxhbmNlTm93CAUNJHQwMjg4ODgyOTI3NgJfMgQNJHQwMjkyODIyOTQxNgMJAAACBQpwbXRBc3NldElkBQRhbUlkCQCUCgIFDGFtQmFsYW5jZU5vdwUMcHJCYWxhbmNlTm93CQCUCgIFDHByQmFsYW5jZU5vdwUMYW1CYWxhbmNlTm93BBBhbUJhbGFuY2VGb3JDYWxjCAUNJHQwMjkyODIyOTQxNgJfMQQQcHJCYWxhbmNlRm9yQ2FsYwgFDSR0MDI5MjgyMjk0MTYCXzIECnhQcmVjaXNpb24AAQQGcmVzdWx0CgABQAkA/AcEBQdnd3hDbnRyAgxjYWxjUHV0WE9ubHkJAMwIAgkApAMBBQZwbXRBbXQJAMwIAgkApAMBBRBhbUJhbGFuY2VGb3JDYWxjCQDMCAIJAKQDAQUQcHJCYWxhbmNlRm9yQ2FsYwkAzAgCAgAJAMwIAgUBQQkAzAgCBQVBbXVsdAkAzAgCCQCkAwEFCnhQcmVjaXNpb24JAMwIAgUFRGNvbnYFA25pbAUDbmlsAwkAAQIFAUACCihJbnQsIEludCkFAUAJAAIBCQCsAgIJAAMBCQD8BwQFB2d3eENudHICDGNhbGNQdXRYT25seQkAzAgCCQCkAwEFBnBtdEFtdAkAzAgCCQCkAwEFEGFtQmFsYW5jZUZvckNhbGMJAMwIAgkApAMBBRBwckJhbGFuY2VGb3JDYWxjCQDMCAICAAkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIJAKQDAQUKeFByZWNpc2lvbgkAzAgCBQVEY29udgUDbmlsBQNuaWwCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkEDSR0MDI5OTI4MzAwMjQDCQAAAgUKcG10QXNzZXRJZAUEYW1JZAUGcmVzdWx0CQCUCgIIBQZyZXN1bHQCXzIIBQZyZXN1bHQCXzEEC2FtQXNzZXRQYXJ0CAUNJHQwMjk5MjgzMDAyNAJfMQQLcHJBc3NldFBhcnQIBQ0kdDAyOTkyODMwMDI0Al8yBAZlc3RQdXQJAQJjcAkJAKUIAQgFAWkGY2FsbGVyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFBGFtSWQFC2FtQXNzZXRQYXJ0CQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQRwcklkBQtwckFzc2V0UGFydAUIc2xpcHBhZ2UGBgUGcG10QW10BQpwbXRBc3NldElkBAdlc3RpbUxQCAUGZXN0UHV0Al8yBAlscEFzc2V0SWQIBQZlc3RQdXQCXzcEBXN0YXRlCAUGZXN0UHV0Al85BAZhbURpZmYIBQZlc3RQdXQDXzEwBAZwckRpZmYIBQZlc3RQdXQDXzExBAllbWl0THBBbXQDCQBmAgUFb3V0THAAAAQJbHBDYWxjUmVzCQEDdmFkAwkAtgIBBQdlc3RpbUxQCQC2AgEFBW91dExwCQC2AgEFCHNsaXBwYWdlCQCgAwEIBQlscENhbGNSZXMCXzIFB2VzdGltTFAEAWUJAPwHBAUDZmNhAgRlbWl0CQDMCAIFCWVtaXRMcEFtdAUDbmlsBQNuaWwDCQAAAgUBZQUBZQQCZWwEByRtYXRjaDAFAWUDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQGbGVnYWN5BQckbWF0Y2gwCQD8BwQFBmxlZ2FjeQIEZW1pdAkAzAgCBQllbWl0THBBbXQFA25pbAUDbmlsBQR1bml0AwkAAAIFAmVsBQJlbAQCc2EDCQBmAgUGYW1EaWZmAAAJAPwHBAUIc2xpcENudHICA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFBGFtSWQFBmFtRGlmZgUDbmlsBQNuaWwDCQAAAgUCc2EFAnNhBAJzcAMJAGYCBQZwckRpZmYAAAkA/AcEBQhzbGlwQ250cgIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUEcHJJZAUGcHJEaWZmBQNuaWwFA25pbAMJAAACBQJzcAUCc3AECGxwVHJuc2ZyAwUJYXV0b1N0YWtlBAJzcwkA/AcEBQtzdGFraW5nQ250cgIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUJbHBBc3NldElkBQllbWl0THBBbXQFA25pbAMJAAACBQJzcwUCc3MFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCWVtaXRMcEFtdAUJbHBBc3NldElkBQNuaWwJAM4IAgUFc3RhdGUFCGxwVHJuc2ZyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnB1dEZvckZyZWUBB21heFNscGcDCQBmAgAABQdtYXhTbHBnCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQGZXN0UHV0CQECY3AJCQClCAEIBQFpBmNhbGxlcgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AggJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUBaQhwYXltZW50cwABBQdtYXhTbHBnBwcAAAIACAUGZXN0UHV0Al85AWkBA2dldAAEAXIJAQJjZwEFAWkECW91dEFtdEFtdAgFAXICXzEECG91dFByQW10CAUBcgJfMgQGcG10QW10CAUBcgJfMwQKcG10QXNzZXRJZAgFAXICXzQEBXN0YXRlCAUBcgJfNQQBYgkA/AcEBQNmY2ECBGJ1cm4JAMwIAgUGcG10QW10BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCnBtdEFzc2V0SWQFBnBtdEFtdAUDbmlsAwkAAAIFAWIFAWIFBXN0YXRlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCWdldE9uZVRrbgUKZXhjaFJlc3VsdAdub3RVc2VkCW91dEFtb3VudApvdXRBc3NldElkCHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEA2NmZwkBA2dwYwAEBGxwSWQJAJEDAgUDY2ZnBQlpZHhMUEFzSWQEBGFtSWQJAJEDAgUDY2ZnBQlpZHhBbUFzSWQEBHBySWQJAJEDAgUDY2ZnBQlpZHhQckFzSWQEBWFtRGNtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDY2ZnBQtpZHhBbXRBc0RjbQQFcHJEY20JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNjZmcFDWlkeFByaWNlQXNEY20EA3N0cwkAkQMCBQNjZmcFCWlkeFBvb2xTdAQHZmFjdENmZwkBA2dmYwAEB2d3eENudHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB2ZhY3RDZmcFEWlkeEZhY3RHd3hSZXdDbnRyAgpXciBzbCBhZGRyBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQFYWRkb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBA2FkYQACAAQLdXNlckFkZHJlc3MDCQAAAgUFYWRkb24JAKUIAQgFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIIBQFpBmNhbGxlcgQGdHhJZDU4CQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQECnBtdEFzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQGcG10QW10CAUDcG10BmFtb3VudAQNYWRkb25Db250cmFjdAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQEDYWRhAAIJbm8gYWRkb25zAhphZGRvbiBhZGRyZXNzIGluIG5vdCB2YWxpZAQFY2hlY2sJAP0HBAUNYWRkb25Db250cmFjdAISZW5zdXJlQ2FuR2V0T25lVGtuCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDbmlsAwkAAAIFBWNoZWNrBQVjaGVjawMJAGYCAICU69wDBQZwbXRBbXQJAAIBAg1NaW4gcG10IDEwIExQAwMDCQBmAgAABQhzbGlwcGFnZQYJAGYCAAAFCmV4Y2hSZXN1bHQGCQBmAgAABQlvdXRBbW91bnQJAAIBAgxXcm9uZyBwYXJhbXMDCQECIT0CBQRscElkCQDYBAEFCnBtdEFzc2V0SWQJAAIBAghXcm9uZyBMUAQBcgkBA2VnbwQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkA2AQBBQpwbXRBc3NldElkBQZwbXRBbXQIBQFpBmNhbGxlcgQKZXN0aW1BbUFtdAgFAXICXzEECmVzdGltUHJBbXQIBQFyAl8yBAlhbUJhbGFuY2UJAQ1nZXRBY2NCYWxhbmNlAQUEYW1JZAQJcHJCYWxhbmNlCQENZ2V0QWNjQmFsYW5jZQEFBHBySWQEDSR0MDM0NTkzMzUwNTADCQAAAgUKb3V0QXNzZXRJZAUEYW1JZAkAmQoHCQBlAgUJYW1CYWxhbmNlBQplc3RpbUFtQW10CQBlAgUJcHJCYWxhbmNlBQplc3RpbVByQW10BQpleGNoUmVzdWx0BQplc3RpbVByQW10AAAAAAkAZAIFCmVzdGltQW1BbXQFCmV4Y2hSZXN1bHQDCQAAAgUKb3V0QXNzZXRJZAUEcHJJZAkAmQoHCQBlAgUJYW1CYWxhbmNlBQplc3RpbUFtQW10CQBlAgUJcHJCYWxhbmNlBQplc3RpbVByQW10AAAAAAUKZXhjaFJlc3VsdAUKZXN0aW1BbUFtdAkAZAIFCmVzdGltUHJBbXQFCmV4Y2hSZXN1bHQJAAIBAhB3cm9uZyBvdXRBc3NldElkBAxhbUJhbGFuY2VOb3cIBQ0kdDAzNDU5MzM1MDUwAl8xBAxwckJhbGFuY2VOb3cIBQ0kdDAzNDU5MzM1MDUwAl8yBAx2aXJ0U3dhcEluQW0IBQ0kdDAzNDU5MzM1MDUwAl8zBA12aXJ0U3dhcE91dFByCAUNJHQwMzQ1OTMzNTA1MAJfNAQMdmlydFN3YXBJblByCAUNJHQwMzQ1OTMzNTA1MAJfNQQNdmlydFN3YXBPdXRBbQgFDSR0MDM0NTkzMzUwNTACXzYECHRvdGFsR2V0CAUNJHQwMzQ1OTMzNTA1MAJfNwMDCQBmAgAABQx2aXJ0U3dhcEluQW0GCQBmAgAABQx2aXJ0U3dhcEluUHIJAAIBAgpXcm9uZyBjYWxjBAJEMAkA/AcEBQdnd3hDbnRyAgVjYWxjRAkAzAgCCQCkAwEFDGFtQmFsYW5jZU5vdwkAzAgCCQCkAwEFDHByQmFsYW5jZU5vdwkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQCRDEJAPwHBAUHZ3d4Q250cgIFY2FsY0QJAMwIAgkApAMBCQBkAgkAZQIFDGFtQmFsYW5jZU5vdwUMdmlydFN3YXBJbkFtBQ12aXJ0U3dhcE91dEFtCQDMCAIJAKQDAQkAZQIJAGQCBQxwckJhbGFuY2VOb3cFDXZpcnRTd2FwT3V0UHIFDHZpcnRTd2FwSW5QcgkAzAgCBQFBCQDMCAIFBUFtdWx0CQDMCAIFBURjb252BQNuaWwFA25pbAQGRDB2c0QxCQECdmQDCQCnAwEJAQNzdHIBBQJEMQkApwMBCQEDc3RyAQUCRDAFCnNsaXBwYWdlNEQDCQAAAgUGRDB2c0QxBQZEMHZzRDEECGZpbmFsUmVzCQEDdmFkAwkAtgIBBQh0b3RhbEdldAkAtgIBBQlvdXRBbW91bnQJALYCAQUIc2xpcHBhZ2UDCQAAAgUIZmluYWxSZXMFCGZpbmFsUmVzBA0kdDAzNTc1NTM1ODU5AwkAAAIFCm91dEFzc2V0SWQFBGFtSWQJAJQKAgkAoAMBCAUIZmluYWxSZXMCXzIAAAkAlAoCAAAJAKADAQgFCGZpbmFsUmVzAl8yBAVvdXRBbQgFDSR0MDM1NzU1MzU4NTkCXzEEBW91dFByCAUNJHQwMzU3NTUzNTg1OQJfMgQIY3VyUHJYMTgJAQRjcGJpAgkBAnQxAgUJcHJCYWxhbmNlBQVwckRjbQkBAnQxAgUJYW1CYWxhbmNlBQVhbURjbQQFY3VyUHIJAQJmMQIFCGN1clByWDE4BQZzY2FsZTgEBXN0YXRlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzCQBkAgUFb3V0QW0FBW91dFByAwkAAAIFCm91dEFzc2V0SWQCBVdBVkVTBQR1bml0CQDZBAEFCm91dEFzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBA2dhdQIJAKUIAQULdXNlckFkZHJlc3MFBnR4SWQ1OAkBEWRhdGFHZXRBY3Rpb25JbmZvBgUFb3V0QW0FBW91dFByBQZwbXRBbXQFBWN1clByBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECcGwABQVjdXJQcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAnBoAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUFY3VyUHIFA25pbAMJAAACBQVzdGF0ZQUFc3RhdGUEBGJ1cm4JAPwHBAUDZmNhAgRidXJuCQDMCAIFBnBtdEFtdAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQpwbXRBc3NldElkBQZwbXRBbXQFA25pbAMJAAACBQRidXJuBQRidXJuBQVzdGF0ZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQlnZXROb0xlc3MCEm5vTGVzc1RoZW5BbXRBc3NldBRub0xlc3NUaGVuUHJpY2VBc3NldAQBcgkBAmNnAQUBaQQIb3V0QW1BbXQIBQFyAl8xBAhvdXRQckFtdAgFAXICXzIEBnBtdEFtdAgFAXICXzMECnBtdEFzc2V0SWQIBQFyAl80BAVzdGF0ZQgFAXICXzUDCQBmAgUSbm9MZXNzVGhlbkFtdEFzc2V0BQhvdXRBbUFtdAkAAgEJAKwCAgkArAICCQCsAgICCUZhaWxlZDogIAkApAMBBQhvdXRBbUFtdAIDIDwgCQCkAwEFEm5vTGVzc1RoZW5BbXRBc3NldAMJAGYCBRRub0xlc3NUaGVuUHJpY2VBc3NldAUIb3V0UHJBbXQJAAIBCQCsAgIJAKwCAgkArAICAghGYWlsZWQ6IAkApAMBBQhvdXRQckFtdAIDIDwgCQCkAwEFFG5vTGVzc1RoZW5QcmljZUFzc2V0BBRidXJuTFBBc3NldE9uRmFjdG9yeQkA/AcEBQNmY2ECBGJ1cm4JAMwIAgUGcG10QW10BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCnBtdEFzc2V0SWQFBnBtdEFtdAUDbmlsAwkAAAIFFGJ1cm5MUEFzc2V0T25GYWN0b3J5BRRidXJuTFBBc3NldE9uRmFjdG9yeQUFc3RhdGUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQENdW5zdGFrZUFuZEdldAEGYW1vdW50BA1jaGVja1BheW1lbnRzAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQINTm8gcG1udHMgZXhwZAYDCQAAAgUNY2hlY2tQYXltZW50cwUNY2hlY2tQYXltZW50cwQDY2ZnCQEDZ3BjAAQKZmFjdG9yeUNmZwkBA2dmYwAECWxwQXNzZXRJZAkA2QQBCQCRAwIFA2NmZwUJaWR4TFBBc0lkBAdzdGFraW5nCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQpmYWN0b3J5Q2ZnBQ9pZHhGYWN0U3Rha0NudHICCldyIHN0IGFkZHIECnVuc3Rha2VJbnYJAPwHBAUHc3Rha2luZwIHdW5zdGFrZQkAzAgCCQDYBAEFCWxwQXNzZXRJZAkAzAgCBQZhbW91bnQFA25pbAUDbmlsAwkAAAIFCnVuc3Rha2VJbnYFCnVuc3Rha2VJbnYEAXIJAQNlZ28ECQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQJANgEAQUJbHBBc3NldElkBQZhbW91bnQIBQFpBmNhbGxlcgQDc3RzCQENcGFyc2VJbnRWYWx1ZQEIBQFyAl85BAVzdGF0ZQgFAXIDXzEwBAF2AwMJAQNpZ3MABgkAAAIFA3N0cwUMUG9vbFNodXRkb3duCQACAQkArAICAglCbG9ja2VkOiAJAKQDAQUDc3RzBgMJAAACBQF2BQF2BAVidXJuQQkA/AcEBQNmY2ECBGJ1cm4JAMwIAgUGYW1vdW50BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCWxwQXNzZXRJZAUGYW1vdW50BQNuaWwDCQAAAgUFYnVybkEFBWJ1cm5BBQVzdGF0ZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhhY3RpdmF0ZQIIYW10QXNTdHIHcHJBc1N0cgMJAQIhPQIJAKUIAQgFAWkGY2FsbGVyCQClCAEFA2ZjYQkAAgECBmRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYQAFCGFtdEFzU3RyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJwYQAFB3ByQXNTdHIFA25pbAIHc3VjY2VzcwFpAQRzZXRTAgFrAXYDCQECIT0CCQClCAEIBQFpBmNhbGxlcgkBBHN0cmYCBQR0aGlzCQEDYWRhAAUCcGQJAMwIAgkBC1N0cmluZ0VudHJ5AgUBawUBdgUDbmlsAWkBBHNldEkCAWsBdgMJAQIhPQIJAKUIAQgFAWkGY2FsbGVyCQEEc3RyZgIFBHRoaXMJAQNhZGEABQJwZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUBawUBdgUDbmlsAWkBHGdldFBvb2xDb25maWdXcmFwcGVyUkVBRE9OTFkACQCUCgIFA25pbAkBA2dwYwABaQEcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQEHYXNzZXRJZAkAlAoCBQNuaWwJAQ1nZXRBY2NCYWxhbmNlAQUHYXNzZXRJZAFpARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwVhbUFtdAVwckFtdAVscEFtdAQCcHIJAQpjYWxjUHJpY2VzAwUFYW1BbXQFBXByQW10BQVscEFtdAkAlAoCBQNuaWwJAMwIAgkApgMBCQCRAwIFAnByAAAJAMwIAgkApgMBCQCRAwIFAnByAAEJAMwIAgkApgMBCQCRAwIFAnByAAIFA25pbAFpARZmcm9tWDE4V3JhcHBlclJFQURPTkxZAgN2YWwMcmVzU2NhbGVNdWx0CQCUCgIFA25pbAkBAmYxAgkApwMBBQN2YWwFDHJlc1NjYWxlTXVsdAFpARR0b1gxOFdyYXBwZXJSRUFET05MWQIHb3JpZ1ZhbA1vcmlnU2NhbGVNdWx0CQCUCgIFA25pbAkApgMBCQECdDECBQdvcmlnVmFsBQ1vcmlnU2NhbGVNdWx0AWkBHmNhbGNQcmljZUJpZ0ludFdyYXBwZXJSRUFET05MWQIIcHJBbXRYMTgIYW1BbXRYMTgJAJQKAgUDbmlsCQCmAwEJAQRjcGJpAgkApwMBBQhwckFtdFgxOAkApwMBBQhhbUFtdFgxOAFpASNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkGdHhJZDU4CHNsaXBwYWdlB2luQW1BbXQGaW5BbUlkB2luUHJBbXQGaW5QcklkB3VzckFkZHIGaXNFdmFsBmVtaXRMcAkAlAoCBQNuaWwJAQNlcG8MBQZ0eElkNTgFCHNsaXBwYWdlBQdpbkFtQW10BQZpbkFtSWQFB2luUHJBbXQFBmluUHJJZAUHdXNyQWRkcgUGaXNFdmFsBQZlbWl0THAHAAACAAFpASNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQQGdHhJZDU4B3BtdEFzSWQIcG10THBBbXQHdXNyQWRkcgQBcgkBA2VnbwQFBnR4SWQ1OAUHcG10QXNJZAUIcG10THBBbXQJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB3VzckFkZHIJAJQKAgUDbmlsCQCcCgoIBQFyAl8xCAUBcgJfMggFAXICXzMIBQFyAl80CAUBcgJfNQgFAXICXzYIBQFyAl83CQCmAwEIBQFyAl84CAUBcgJfOQgFAXIDXzEwAQJ0eAEGdmVyaWZ5AAQPdGFyZ2V0UHVibGljS2V5BAckbWF0Y2gwCQEBbQADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCcGsFByRtYXRjaDAFAnBrAwkAAQIFByRtYXRjaDACBFVuaXQIBQJ0eA9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQHJG1hdGNoMAUCdHgDCQABAgUHJG1hdGNoMAIFT3JkZXIEBW9yZGVyBQckbWF0Y2gwBAptYXRjaGVyUHViCQECbXAABApvcmRlclZhbGlkCQEDbW9hAQUFb3JkZXIEC3NlbmRlclZhbGlkCQD0AwMIBQVvcmRlcglib2R5Qnl0ZXMJAJEDAggFBW9yZGVyBnByb29mcwAACAUFb3JkZXIPc2VuZGVyUHVibGljS2V5BAxtYXRjaGVyVmFsaWQJAPQDAwgFBW9yZGVyCWJvZHlCeXRlcwkAkQMCCAUFb3JkZXIGcHJvb2ZzAAEFCm1hdGNoZXJQdWIDAwMFCm9yZGVyVmFsaWQFC3NlbmRlclZhbGlkBwUMbWF0Y2hlclZhbGlkBwYJAQN0b2UDBQpvcmRlclZhbGlkBQtzZW5kZXJWYWxpZAUMbWF0Y2hlclZhbGlkAwkAAQIFByRtYXRjaDACFFNldFNjcmlwdFRyYW5zYWN0aW9uBAFzBQckbWF0Y2gwBAduZXdIYXNoCQD2AwEJAQV2YWx1ZQEIBQFzBnNjcmlwdAQLYWxsb3dlZEhhc2gJANsEAQkBBXZhbHVlAQkAnQgCBQNmY2EJARxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAAQLY3VycmVudEhhc2gJAPEHAQUEdGhpcwMDCQAAAgULYWxsb3dlZEhhc2gFB25ld0hhc2gJAQIhPQIFC2N1cnJlbnRIYXNoBQduZXdIYXNoBwYJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFD3RhcmdldFB1YmxpY0tleQkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUPdGFyZ2V0UHVibGljS2V5mmZ6ZQ==",
    "height": 2225840,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4Jcijpp9oVerjvVEMg36E7372DfQjXRpwnSZxW7XDpUp
Next: Hmt2U1HBWakXvid12118nvFqEyxFqneteFfGBCYMEsos

Diff: 

OldNewDifferences
66 let scale8BigInt = toBigInt(100000000)
77 
88 let scale18 = toBigInt(1000000000000000000)
9-
10-let thousand = 1000
119 
1210 let zeroBigInt = toBigInt(0)
1311 
5553 
5654 let idxFactGwxRewCntr = 10
5755 
58-let feePermilleDefault = 0
56+let delay = "%s__delay"
5957 
6058 func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
6159 
104102 func ada () = "%s__addonAddr"
105103 
106104 
107-let keyFeePermille = "%s__feePermille"
105+func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
108106 
109-let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
107+
108+func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
109+
110110 
111111 func fcfg () = "%s__factoryConfig"
112112 
124124 
125125 
126126 func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127-
128-
129-func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
130127 
131128 
132129 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
155152 
156153 func mp () = fromBase58String(strf(fca, mtpk()))
157154 
158-
159-let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
160155 
161156 func gpc () = {
162157     let amtAs = strf(this, aa())
342337                 else calcLpAmt
343338             let amDiff = (inAmAmt - calcAmAssetPmt)
344339             let prDiff = (inPrAmt - calcPrAssetPmt)
345-            let $t01568216027 = if (if (isOneAsset)
340+            let $t01560115946 = if (if (isOneAsset)
346341                 then (pmtId == amIdStr)
347342                 else false)
348343                 then $Tuple2(pmtAmt, 0)
351346                     else false)
352347                     then $Tuple2(0, pmtAmt)
353348                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
354-            let writeAmAmt = $t01568216027._1
355-            let writePrAmt = $t01568216027._2
349+            let writeAmAmt = $t01560115946._1
350+            let writePrAmt = $t01560115946._2
356351             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
357352             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
358353             }
433428         else (sts == PoolShutdown))
434429         then throw(("Blocked:" + toString(sts)))
435430         else r
436-    }
437-
438-
439-func takeFee (amount) = {
440-    let fee = fraction(amount, feePermille, thousand)
441-    $Tuple2((amount - fee), fee)
442431     }
443432 
444433 
599588     let userAddress = if ((addon == toString(i.caller)))
600589         then i.originCaller
601590         else i.caller
602-    if (if (if (if ((0 >= slippage))
603-        then true
604-        else (0 >= amAssetPart))
605-        then true
606-        else (0 >= prAssetPart))
607-        then true
608-        else (0 >= outLp))
609-        then throw("Wrong params")
610-        else if ((size(i.payments) != 1))
591+    let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592+    let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593+    if ((check == check))
594+        then if (if (if (if ((0 >= slippage))
595+            then true
596+            else (0 >= amAssetPart))
597+            then true
598+            else (0 >= prAssetPart))
599+            then true
600+            else (0 >= outLp))
601+            then throw("Wrong params")
602+            else if ((size(i.payments) != 1))
603+                then throw("1 pmnt expd")
604+                else {
605+                    let pmt = value(i.payments[0])
606+                    let pmtAssetId = toBase58String(value(pmt.assetId))
607+                    let pmtAmt = pmt.amount
608+                    if ((10000000 > pmtAmt))
609+                        then throw("Wrong pmt amt")
610+                        else {
611+                            let amBalance = getAccBalance(amId)
612+                            let prBalance = getAccBalance(prId)
613+                            let $t02485925435 = if ((pmtAssetId == amId))
614+                                then if (if ((pmtAmt > amBalance))
615+                                    then true
616+                                    else (amAssetPart > pmtAmt))
617+                                    then throw("invalid payment amount")
618+                                    else $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
619+                                else if ((pmtAssetId == prId))
620+                                    then if (if ((pmtAmt > prBalance))
621+                                        then true
622+                                        else (prAssetPart > pmtAmt))
623+                                        then throw("invalid payment amount")
624+                                        else $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
625+                                    else throw("wrong pmtAssetId")
626+                            let amBalanceNow = $t02485925435._1
627+                            let prBalanceNow = $t02485925435._2
628+                            let virtSwapInAm = $t02485925435._3
629+                            let virtSwapOutPr = $t02485925435._4
630+                            let virtSwapInPr = $t02485925435._5
631+                            let virtSwapOutAm = $t02485925435._6
632+                            let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
633+                            let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
634+                            let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
635+                            if ((D0vsD1 == D0vsD1))
636+                                then {
637+                                    let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
638+                                    let estimLP = estPut._2
639+                                    let lpAssetId = estPut._7
640+                                    let state = estPut._9
641+                                    let amDiff = estPut._10
642+                                    let prDiff = estPut._11
643+                                    let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
644+                                    let emitLpAmt = toInt(lpCalcRes._2)
645+                                    let e = invoke(fca, "emit", [emitLpAmt], nil)
646+                                    if ((e == e))
647+                                        then {
648+                                            let el =                                             match e {
649+                                                case legacy: Address => 
650+                                                    invoke(legacy, "emit", [emitLpAmt], nil)
651+                                                case _ => 
652+                                                    unit
653+                                            }
654+                                            if ((el == el))
655+                                                then {
656+                                                    let sa = if ((amDiff > 0))
657+                                                        then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
658+                                                        else nil
659+                                                    if ((sa == sa))
660+                                                        then {
661+                                                            let sp = if ((prDiff > 0))
662+                                                                then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
663+                                                                else nil
664+                                                            if ((sp == sp))
665+                                                                then {
666+                                                                    let lpTrnsfr = if (autoStake)
667+                                                                        then {
668+                                                                            let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
669+                                                                            if ((ss == ss))
670+                                                                                then nil
671+                                                                                else throw("Strict value is not equal to itself.")
672+                                                                            }
673+                                                                        else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
674+                                                                    (state ++ lpTrnsfr)
675+                                                                    }
676+                                                                else throw("Strict value is not equal to itself.")
677+                                                            }
678+                                                        else throw("Strict value is not equal to itself.")
679+                                                    }
680+                                                else throw("Strict value is not equal to itself.")
681+                                            }
682+                                        else throw("Strict value is not equal to itself.")
683+                                    }
684+                                else throw("Strict value is not equal to itself.")
685+                            }
686+                    }
687+        else throw("Strict value is not equal to itself.")
688+    }
689+
690+
691+
692+@Callable(i)
693+func putOneTknV2 (outLp,slippage,autoStake) = {
694+    let cfg = gfc()
695+    let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
696+    let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
697+    let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
698+    let poolCfg = gpc()
699+    let amId = poolCfg[idxAmAsId]
700+    let prId = poolCfg[idxPrAsId]
701+    let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
702+    let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
703+    let addon = valueOrElse(getString(this, ada()), "")
704+    let userAddress = if ((addon == toString(i.caller)))
705+        then i.originCaller
706+        else i.caller
707+    let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
708+    let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
709+    if ((check == check))
710+        then if ((size(i.payments) != 1))
611711             then throw("1 pmnt expd")
612712             else {
613713                 let pmt = value(i.payments[0])
614714                 let pmtAssetId = toBase58String(value(pmt.assetId))
615-                let paymentAmountRaw = pmt.amount
616-                let $t02464424696 = takeFee(paymentAmountRaw)
617-                let pmtAmt = $t02464424696._1
618-                let feeAmount = $t02464424696._2
619-                if ((10000000 > paymentAmountRaw))
715+                let pmtAmt = pmt.amount
716+                if ((10000000 > pmtAmt))
620717                     then throw("Wrong pmt amt")
621718                     else {
622719                         let amBalance = getAccBalance(amId)
623720                         let prBalance = getAccBalance(prId)
624-                        let $t02485625472 = if ((pmtAssetId == amId))
625-                            then if (if ((paymentAmountRaw > amBalance))
626-                                then true
627-                                else (amAssetPart > pmtAmt))
721+                        let $t02888829276 = if ((pmtAssetId == amId))
722+                            then if ((pmtAmt > amBalance))
628723                                 then throw("invalid payment amount")
629-                                else $Tuple6((amBalance - paymentAmountRaw), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
724+                                else $Tuple2((amBalance - pmtAmt), prBalance)
630725                             else if ((pmtAssetId == prId))
631-                                then if (if ((paymentAmountRaw > prBalance))
632-                                    then true
633-                                    else (prAssetPart > pmtAmt))
726+                                then if ((pmtAmt > prBalance))
634727                                     then throw("invalid payment amount")
635-                                    else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
728+                                    else $Tuple2(amBalance, (prBalance - pmtAmt))
636729                                 else throw("wrong pmtAssetId")
637-                        let amBalanceNow = $t02485625472._1
638-                        let prBalanceNow = $t02485625472._2
639-                        let virtSwapInAm = $t02485625472._3
640-                        let virtSwapOutPr = $t02485625472._4
641-                        let virtSwapInPr = $t02485625472._5
642-                        let virtSwapOutAm = $t02485625472._6
643-                        let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
644-                        let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
645-                        let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
646-                        if ((D0vsD1 == D0vsD1))
730+                        let amBalanceNow = $t02888829276._1
731+                        let prBalanceNow = $t02888829276._2
732+                        let $t02928229416 = if ((pmtAssetId == amId))
733+                            then $Tuple2(amBalanceNow, prBalanceNow)
734+                            else $Tuple2(prBalanceNow, amBalanceNow)
735+                        let amBalanceForCalc = $t02928229416._1
736+                        let prBalanceForCalc = $t02928229416._2
737+                        let xPrecision = 1
738+                        let result = {
739+                            let @ = invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)
740+                            if ($isInstanceOf(@, "(Int, Int)"))
741+                                then @
742+                                else throw(($getType(invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)) + " couldn't be cast to (Int, Int)"))
743+                            }
744+                        let $t02992830024 = if ((pmtAssetId == amId))
745+                            then result
746+                            else $Tuple2(result._2, result._1)
747+                        let amAssetPart = $t02992830024._1
748+                        let prAssetPart = $t02992830024._2
749+                        let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
750+                        let estimLP = estPut._2
751+                        let lpAssetId = estPut._7
752+                        let state = estPut._9
753+                        let amDiff = estPut._10
754+                        let prDiff = estPut._11
755+                        let emitLpAmt = if ((outLp > 0))
647756                             then {
648-                                let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
649-                                let estimLP = estPut._2
650-                                let lpAssetId = estPut._7
651-                                let state = estPut._9
652-                                let amDiff = estPut._10
653-                                let prDiff = estPut._11
654757                                 let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
655-                                let emitLpAmt = toInt(lpCalcRes._2)
656-                                let e = invoke(fca, "emit", [emitLpAmt], nil)
657-                                if ((e == e))
758+                                toInt(lpCalcRes._2)
759+                                }
760+                            else estimLP
761+                        let e = invoke(fca, "emit", [emitLpAmt], nil)
762+                        if ((e == e))
763+                            then {
764+                                let el =                                 match e {
765+                                    case legacy: Address => 
766+                                        invoke(legacy, "emit", [emitLpAmt], nil)
767+                                    case _ => 
768+                                        unit
769+                                }
770+                                if ((el == el))
658771                                     then {
659-                                        let el =                                         match e {
660-                                            case legacy: Address => 
661-                                                invoke(legacy, "emit", [emitLpAmt], nil)
662-                                            case _ => 
663-                                                unit
664-                                        }
665-                                        if ((el == el))
772+                                        let sa = if ((amDiff > 0))
773+                                            then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
774+                                            else nil
775+                                        if ((sa == sa))
666776                                             then {
667-                                                let sa = if ((amDiff > 0))
668-                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
777+                                                let sp = if ((prDiff > 0))
778+                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
669779                                                     else nil
670-                                                if ((sa == sa))
780+                                                if ((sp == sp))
671781                                                     then {
672-                                                        let sp = if ((prDiff > 0))
673-                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
674-                                                            else nil
675-                                                        if ((sp == sp))
782+                                                        let lpTrnsfr = if (autoStake)
676783                                                             then {
677-                                                                let lpTrnsfr = if (autoStake)
678-                                                                    then {
679-                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
680-                                                                        if ((ss == ss))
681-                                                                            then nil
682-                                                                            else throw("Strict value is not equal to itself.")
683-                                                                        }
684-                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
685-                                                                let sendFeeToMatcher = if ((feeAmount > 0))
686-                                                                    then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
687-                                                                    else nil
688-                                                                ((state ++ lpTrnsfr) ++ sendFeeToMatcher)
784+                                                                let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
785+                                                                if ((ss == ss))
786+                                                                    then nil
787+                                                                    else throw("Strict value is not equal to itself.")
689788                                                                 }
690-                                                            else throw("Strict value is not equal to itself.")
789+                                                            else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
790+                                                        (state ++ lpTrnsfr)
691791                                                         }
692792                                                     else throw("Strict value is not equal to itself.")
693793                                                 }
698798                             else throw("Strict value is not equal to itself.")
699799                         }
700800                 }
801+        else throw("Strict value is not equal to itself.")
701802     }
702803 
703804 
751852         let txId58 = toBase58String(i.transactionId)
752853         let pmtAssetId = value(pmt.assetId)
753854         let pmtAmt = pmt.amount
754-        if ((1000000000 > pmtAmt))
755-            then throw("Min pmt 10 LP")
756-            else if (if (if ((0 > slippage))
757-                then true
758-                else (0 > exchResult))
759-                then true
760-                else (0 > outAmount))
761-                then throw("Wrong params")
762-                else if ((lpId != toBase58String(pmtAssetId)))
763-                    then throw("Wrong LP")
764-                    else {
765-                        let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
766-                        let estimAmAmt = r._1
767-                        let estimPrAmt = r._2
768-                        let amBalance = getAccBalance(amId)
769-                        let prBalance = getAccBalance(prId)
770-                        let $t03041530875 = if ((outAssetId == amId))
771-                            then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
772-                            else if ((outAssetId == prId))
773-                                then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
774-                                else throw("wrong outAssetId")
775-                        let amBalanceNow = $t03041530875._1
776-                        let prBalanceNow = $t03041530875._2
777-                        let virtSwapInAm = $t03041530875._3
778-                        let virtSwapOutPr = $t03041530875._4
779-                        let virtSwapInPr = $t03041530875._5
780-                        let virtSwapOutAm = $t03041530875._6
781-                        let totalGetRaw = $t03041530875._7
782-                        if (if ((0 > virtSwapInAm))
783-                            then true
784-                            else (0 > virtSwapInPr))
785-                            then throw("Wrong calc")
786-                            else {
787-                                let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
788-                                let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
789-                                let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
790-                                if ((D0vsD1 == D0vsD1))
791-                                    then {
792-                                        let totalGet = takeFee(totalGetRaw)._1
793-                                        let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
794-                                        if ((finalRes == finalRes))
795-                                            then {
796-                                                let $t03162231726 = if ((outAssetId == amId))
797-                                                    then $Tuple2(toInt(finalRes._2), 0)
798-                                                    else $Tuple2(0, toInt(finalRes._2))
799-                                                let outAm = $t03162231726._1
800-                                                let outPr = $t03162231726._2
801-                                                let totalAmount = (outAm + outPr)
802-                                                let feeAmount = (totalGetRaw - totalGet)
803-                                                let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
804-                                                    then unit
805-                                                    else fromBase58String(outAssetId)
806-                                                let sendFeeToMatcher = if ((feeAmount > 0))
807-                                                    then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
808-                                                    else nil
809-                                                let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
810-                                                let curPr = f1(curPrX18, scale8)
811-                                                let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
812-                                                if ((state == state))
813-                                                    then {
814-                                                        let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
815-                                                        if ((burn == burn))
816-                                                            then (state ++ sendFeeToMatcher)
817-                                                            else throw("Strict value is not equal to itself.")
818-                                                        }
819-                                                    else throw("Strict value is not equal to itself.")
820-                                                }
821-                                            else throw("Strict value is not equal to itself.")
822-                                        }
823-                                    else throw("Strict value is not equal to itself.")
824-                                }
825-                        }
855+        let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
856+        let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
857+        if ((check == check))
858+            then if ((1000000000 > pmtAmt))
859+                then throw("Min pmt 10 LP")
860+                else if (if (if ((0 > slippage))
861+                    then true
862+                    else (0 > exchResult))
863+                    then true
864+                    else (0 > outAmount))
865+                    then throw("Wrong params")
866+                    else if ((lpId != toBase58String(pmtAssetId)))
867+                        then throw("Wrong LP")
868+                        else {
869+                            let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
870+                            let estimAmAmt = r._1
871+                            let estimPrAmt = r._2
872+                            let amBalance = getAccBalance(amId)
873+                            let prBalance = getAccBalance(prId)
874+                            let $t03459335050 = if ((outAssetId == amId))
875+                                then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
876+                                else if ((outAssetId == prId))
877+                                    then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
878+                                    else throw("wrong outAssetId")
879+                            let amBalanceNow = $t03459335050._1
880+                            let prBalanceNow = $t03459335050._2
881+                            let virtSwapInAm = $t03459335050._3
882+                            let virtSwapOutPr = $t03459335050._4
883+                            let virtSwapInPr = $t03459335050._5
884+                            let virtSwapOutAm = $t03459335050._6
885+                            let totalGet = $t03459335050._7
886+                            if (if ((0 > virtSwapInAm))
887+                                then true
888+                                else (0 > virtSwapInPr))
889+                                then throw("Wrong calc")
890+                                else {
891+                                    let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
892+                                    let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
893+                                    let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
894+                                    if ((D0vsD1 == D0vsD1))
895+                                        then {
896+                                            let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
897+                                            if ((finalRes == finalRes))
898+                                                then {
899+                                                    let $t03575535859 = if ((outAssetId == amId))
900+                                                        then $Tuple2(toInt(finalRes._2), 0)
901+                                                        else $Tuple2(0, toInt(finalRes._2))
902+                                                    let outAm = $t03575535859._1
903+                                                    let outPr = $t03575535859._2
904+                                                    let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
905+                                                    let curPr = f1(curPrX18, scale8)
906+                                                    let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
907+                                                        then unit
908+                                                        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)]
909+                                                    if ((state == state))
910+                                                        then {
911+                                                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
912+                                                            if ((burn == burn))
913+                                                                then state
914+                                                                else throw("Strict value is not equal to itself.")
915+                                                            }
916+                                                        else throw("Strict value is not equal to itself.")
917+                                                    }
918+                                                else throw("Strict value is not equal to itself.")
919+                                            }
920+                                        else throw("Strict value is not equal to itself.")
921+                                    }
922+                            }
923+            else throw("Strict value is not equal to itself.")
826924         }
827925 
828926 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let scale8 = 100000000
55 
66 let scale8BigInt = toBigInt(100000000)
77 
88 let scale18 = toBigInt(1000000000000000000)
9-
10-let thousand = 1000
119 
1210 let zeroBigInt = toBigInt(0)
1311 
1412 let oneBigInt = toBigInt(1)
1513 
1614 let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
1715 
1816 let Amult = "100"
1917 
2018 let Dconv = "1"
2119 
2220 let SEP = "__"
2321 
2422 let EMPTY = ""
2523 
2624 let PoolActive = 1
2725 
2826 let PoolPutDis = 2
2927 
3028 let PoolMatcherDis = 3
3129 
3230 let PoolShutdown = 4
3331 
3432 let idxPoolAddress = 1
3533 
3634 let idxPoolSt = 2
3735 
3836 let idxLPAsId = 3
3937 
4038 let idxAmAsId = 4
4139 
4240 let idxPrAsId = 5
4341 
4442 let idxAmtAsDcm = 6
4543 
4644 let idxPriceAsDcm = 7
4745 
4846 let idxIAmtAsId = 8
4947 
5048 let idxIPriceAsId = 9
5149 
5250 let idxFactStakCntr = 1
5351 
5452 let idxFactSlippCntr = 7
5553 
5654 let idxFactGwxRewCntr = 10
5755 
58-let feePermilleDefault = 0
56+let delay = "%s__delay"
5957 
6058 func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
6159 
6260 
6361 func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
6462 
6563 
6664 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
6765 
6866 
6967 func abs (val) = if ((zeroBigInt > val))
7068     then -(val)
7169     else val
7270 
7371 
7472 func fc () = "%s__factoryContract"
7573 
7674 
7775 func mpk () = "%s__managerPublicKey"
7876 
7977 
8078 func pmpk () = "%s__pendingManagerPublicKey"
8179 
8280 
8381 func pl () = "%s%s__price__last"
8482 
8583 
8684 func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
8785 
8886 
8987 func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
9088 
9189 
9290 func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
9391 
9492 
9593 func aa () = "%s__amountAsset"
9694 
9795 
9896 func pa () = "%s__priceAsset"
9997 
10098 
10199 func amp () = "%s__amp"
102100 
103101 
104102 func ada () = "%s__addonAddr"
105103 
106104 
107-let keyFeePermille = "%s__feePermille"
105+func lgotc (caller) = makeString(["%s%s__lastGetOneTknCall", caller], SEP)
108106 
109-let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
107+
108+func lsotc (caller) = makeString(["%s%s__lastPutOneTknCall", caller], SEP)
109+
110110 
111111 func fcfg () = "%s__factoryConfig"
112112 
113113 
114114 func mtpk () = "%s%s__matcher__publicKey"
115115 
116116 
117117 func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
118118 
119119 
120120 func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
121121 
122122 
123123 func aps () = "%s__shutdown"
124124 
125125 
126126 func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
127-
128-
129-func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
130127 
131128 
132129 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
133130 
134131 
135132 func str (val) = match val {
136133     case valStr: String => 
137134         valStr
138135     case _ => 
139136         throw("fail cast to String")
140137 }
141138 
142139 
143140 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
144141 
145142 
146143 func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
147144 
148145 
149146 let fca = addressFromStringValue(strf(this, fc()))
150147 
151148 let A = strf(this, amp())
152149 
153150 func igs () = valueOrElse(getBoolean(fca, aps()), false)
154151 
155152 
156153 func mp () = fromBase58String(strf(fca, mtpk()))
157154 
158-
159-let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
160155 
161156 func gpc () = {
162157     let amtAs = strf(this, aa())
163158     let priceAs = strf(this, pa())
164159     let iPriceAs = intf(fca, mba(priceAs))
165160     let iAmtAs = intf(fca, mba(amtAs))
166161     split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
167162     }
168163 
169164 
170165 func gfc () = split(strf(fca, fcfg()), SEP)
171166 
172167 
173168 func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
174169 
175170 
176171 func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
177172 
178173 
179174 func getAccBalance (assetId) = if ((assetId == "WAVES"))
180175     then wavesBalance(this).available
181176     else assetBalance(this, fromBase58String(assetId))
182177 
183178 
184179 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
185180 
186181 
187182 func vad (A1,A2,slippage) = {
188183     let diff = fraction((A1 - A2), scale8BigInt, A2)
189184     let pass = ((slippage - abs(diff)) > zeroBigInt)
190185     if (!(pass))
191186         then throw(("Big slpg: " + toString(diff)))
192187         else $Tuple2(pass, min([A1, A2]))
193188     }
194189 
195190 
196191 func vd (D1,D0,slpg) = {
197192     let diff = fraction(D0, scale8BigInt, D1)
198193     let fail = (slpg > diff)
199194     if (if (fail)
200195         then true
201196         else (D0 > D1))
202197         then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
203198         else fail
204199     }
205200 
206201 
207202 func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
208203     let amtAsAmtX18 = t1(amAmt, amAssetDcm)
209204     let prAsAmtX18 = t1(prAmt, prAssetDcm)
210205     cpbi(prAsAmtX18, amtAsAmtX18)
211206     }
212207 
213208 
214209 func calcPrices (amAmt,prAmt,lpAmt) = {
215210     let cfg = gpc()
216211     let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
217212     let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
218213     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
219214     let amAmtX18 = t1(amAmt, amtAsDcm)
220215     let prAmtX18 = t1(prAmt, prAsDcm)
221216     let lpAmtX18 = t1(lpAmt, scale8)
222217     let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
223218     let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
224219 [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
225220     }
226221 
227222 
228223 func calculatePrices (amAmt,prAmt,lpAmt) = {
229224     let p = calcPrices(amAmt, prAmt, lpAmt)
230225 [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
231226     }
232227 
233228 
234229 func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
235230     let cfg = gpc()
236231     let lpId = cfg[idxLPAsId]
237232     let amId = cfg[idxAmAsId]
238233     let prId = cfg[idxPrAsId]
239234     let amDcm = parseIntValue(cfg[idxAmtAsDcm])
240235     let prDcm = parseIntValue(cfg[idxPriceAsDcm])
241236     let sts = cfg[idxPoolSt]
242237     let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
243238     if ((lpId != pmtAssetId))
244239         then throw("Wrong pmt asset")
245240         else {
246241             let amBalance = getAccBalance(amId)
247242             let amBalanceX18 = t1(amBalance, amDcm)
248243             let prBalance = getAccBalance(prId)
249244             let prBalanceX18 = t1(prBalance, prDcm)
250245             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
251246             let curPrice = f1(curPriceX18, scale8)
252247             let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
253248             let lpEmissX18 = t1(lpEmiss, scale8)
254249             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
255250             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
256251             let outAmAmt = f1(outAmAmtX18, amDcm)
257252             let outPrAmt = f1(outPrAmtX18, prDcm)
258253             let state = if ((txId58 == ""))
259254                 then nil
260255                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
261256                     then unit
262257                     else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
263258                     then unit
264259                     else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
265260             $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
266261             }
267262     }
268263 
269264 
270265 func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = {
271266     let cfg = gpc()
272267     let lpId = fromBase58String(cfg[idxLPAsId])
273268     let amIdStr = cfg[idxAmAsId]
274269     let prIdStr = cfg[idxPrAsId]
275270     let inAmIdStr = cfg[idxIAmtAsId]
276271     let inPrIdStr = cfg[idxIPriceAsId]
277272     let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
278273     let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
279274     let sts = cfg[idxPoolSt]
280275     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
281276     let amBalance = if (isEval)
282277         then getAccBalance(amIdStr)
283278         else if (if (isOneAsset)
284279             then (pmtId == amIdStr)
285280             else false)
286281             then (getAccBalance(amIdStr) - pmtAmt)
287282             else if (isOneAsset)
288283                 then getAccBalance(amIdStr)
289284                 else (getAccBalance(amIdStr) - inAmAmt)
290285     let prBalance = if (isEval)
291286         then getAccBalance(prIdStr)
292287         else if (if (isOneAsset)
293288             then (pmtId == prIdStr)
294289             else false)
295290             then (getAccBalance(prIdStr) - pmtAmt)
296291             else if (isOneAsset)
297292                 then getAccBalance(prIdStr)
298293                 else (getAccBalance(prIdStr) - inPrAmt)
299294     let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
300295     let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
301296     let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
302297     let amBalanceX18 = t1(amBalance, amtDcm)
303298     let prBalanceX18 = t1(prBalance, priceDcm)
304299     let r = if ((lpEm == 0))
305300         then {
306301             let curPriceX18 = zeroBigInt
307302             let slippageX18 = zeroBigInt
308303             let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
309304             $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
310305             }
311306         else {
312307             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
313308             let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
314309             let slippageX18 = t1(slippage, scale8)
315310             if (if ((curPriceX18 != zeroBigInt))
316311                 then (slippageRealX18 > slippageX18)
317312                 else false)
318313                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
319314                 else {
320315                     let lpEmissionX18 = t1(lpEm, scale8)
321316                     let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
322317                     let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
323318                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
324319                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
325320                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
326321                     let expAmtAssetAmtX18 = expectedAmts._1
327322                     let expPriceAssetAmtX18 = expectedAmts._2
328323                     let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
329324                     $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
330325                     }
331326             }
332327     let calcLpAmt = r._1
333328     let calcAmAssetPmt = r._2
334329     let calcPrAssetPmt = r._3
335330     let curPrice = f1(r._4, scale8)
336331     let slippageCalc = f1(r._5, scale8)
337332     if ((0 >= calcLpAmt))
338333         then throw("LP <= 0")
339334         else {
340335             let emitLpAmt = if (!(emitLp))
341336                 then 0
342337                 else calcLpAmt
343338             let amDiff = (inAmAmt - calcAmAssetPmt)
344339             let prDiff = (inPrAmt - calcPrAssetPmt)
345-            let $t01568216027 = if (if (isOneAsset)
340+            let $t01560115946 = if (if (isOneAsset)
346341                 then (pmtId == amIdStr)
347342                 else false)
348343                 then $Tuple2(pmtAmt, 0)
349344                 else if (if (isOneAsset)
350345                     then (pmtId == prIdStr)
351346                     else false)
352347                     then $Tuple2(0, pmtAmt)
353348                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
354-            let writeAmAmt = $t01568216027._1
355-            let writePrAmt = $t01568216027._2
349+            let writeAmAmt = $t01560115946._1
350+            let writePrAmt = $t01560115946._2
356351             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
357352             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
358353             }
359354     }
360355 
361356 
362357 func moa (order) = {
363358     let cfg = gpc()
364359     let amtAsId = cfg[idxAmAsId]
365360     let prAsId = cfg[idxPrAsId]
366361     let sts = parseIntValue(cfg[idxPoolSt])
367362     let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
368363     let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
369364     let accAmtAsBalance = getAccBalance(amtAsId)
370365     let accPrAsBalance = getAccBalance(prAsId)
371366     let curPriceX18 = if ((order.orderType == Buy))
372367         then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
373368         else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
374369     let curPrice = f1(curPriceX18, scale8)
375370     if (if (if (igs())
376371         then true
377372         else (sts == PoolMatcherDis))
378373         then true
379374         else (sts == PoolShutdown))
380375         then throw("Admin blocked")
381376         else {
382377             let orAmtAsset = order.assetPair.amountAsset
383378             let orAmtAsStr = if ((orAmtAsset == unit))
384379                 then "WAVES"
385380                 else toBase58String(value(orAmtAsset))
386381             let orPrAsset = order.assetPair.priceAsset
387382             let orPrAsStr = if ((orPrAsset == unit))
388383                 then "WAVES"
389384                 else toBase58String(value(orPrAsset))
390385             if (if ((orAmtAsStr != amtAsId))
391386                 then true
392387                 else (orPrAsStr != prAsId))
393388                 then throw("Wr assets")
394389                 else {
395390                     let orderPrice = order.price
396391                     let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
397392                     let castOrderPrice = ts(orderPrice, scale8, priceDcm)
398393                     let isOrderPriceValid = if ((order.orderType == Buy))
399394                         then (curPrice >= castOrderPrice)
400395                         else (castOrderPrice >= curPrice)
401396                     true
402397                     }
403398             }
404399     }
405400 
406401 
407402 func cg (i) = if ((size(i.payments) != 1))
408403     then throw("1 pmnt exp")
409404     else {
410405         let pmt = value(i.payments[0])
411406         let pmtAssetId = value(pmt.assetId)
412407         let pmtAmt = pmt.amount
413408         let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
414409         let outAmAmt = r._1
415410         let outPrAmt = r._2
416411         let sts = parseIntValue(r._9)
417412         let state = r._10
418413         if (if (igs())
419414             then true
420415             else (sts == PoolShutdown))
421416             then throw(("Admin blocked: " + toString(sts)))
422417             else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
423418         }
424419 
425420 
426421 func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = {
427422     let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId)
428423     let sts = parseIntValue(r._8)
429424     if (if (if (igs())
430425         then true
431426         else (sts == PoolPutDis))
432427         then true
433428         else (sts == PoolShutdown))
434429         then throw(("Blocked:" + toString(sts)))
435430         else r
436-    }
437-
438-
439-func takeFee (amount) = {
440-    let fee = fraction(amount, feePermille, thousand)
441-    $Tuple2((amount - fee), fee)
442431     }
443432 
444433 
445434 func m () = match getString(mpk()) {
446435     case s: String => 
447436         fromBase58String(s)
448437     case _: Unit => 
449438         unit
450439     case _ => 
451440         throw("Match error")
452441 }
453442 
454443 
455444 func pm () = match getString(pmpk()) {
456445     case s: String => 
457446         fromBase58String(s)
458447     case _: Unit => 
459448         unit
460449     case _ => 
461450         throw("Match error")
462451 }
463452 
464453 
465454 let pd = throw("Permission denied")
466455 
467456 func mm (i) = match m() {
468457     case pk: ByteVector => 
469458         if ((i.callerPublicKey == pk))
470459             then true
471460             else pd
472461     case _: Unit => 
473462         if ((i.caller == this))
474463             then true
475464             else pd
476465     case _ => 
477466         throw("Match error")
478467 }
479468 
480469 
481470 @Callable(i)
482471 func constructor (fc) = {
483472     let c = mm(i)
484473     if ((c == c))
485474         then [StringEntry(fc(), fc)]
486475         else throw("Strict value is not equal to itself.")
487476     }
488477 
489478 
490479 
491480 @Callable(i)
492481 func setManager (pendingManagerPublicKey) = {
493482     let c = mm(i)
494483     if ((c == c))
495484         then {
496485             let cm = fromBase58String(pendingManagerPublicKey)
497486             if ((cm == cm))
498487                 then [StringEntry(pmpk(), pendingManagerPublicKey)]
499488                 else throw("Strict value is not equal to itself.")
500489             }
501490         else throw("Strict value is not equal to itself.")
502491     }
503492 
504493 
505494 
506495 @Callable(i)
507496 func confirmManager () = {
508497     let p = pm()
509498     let hpm = if (isDefined(p))
510499         then true
511500         else throw("No pending manager")
512501     if ((hpm == hpm))
513502         then {
514503             let cpm = if ((i.callerPublicKey == value(p)))
515504                 then true
516505                 else throw("You are not pending manager")
517506             if ((cpm == cpm))
518507                 then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
519508                 else throw("Strict value is not equal to itself.")
520509             }
521510         else throw("Strict value is not equal to itself.")
522511     }
523512 
524513 
525514 
526515 @Callable(i)
527516 func put (slip,autoStake) = {
528517     let factCfg = gfc()
529518     let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
530519     let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
531520     if ((0 > slip))
532521         then throw("Wrong slippage")
533522         else if ((size(i.payments) != 2))
534523             then throw("2 pmnts expd")
535524             else {
536525                 let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, 0, "")
537526                 let emitLpAmt = e._2
538527                 let lpAssetId = e._7
539528                 let state = e._9
540529                 let amDiff = e._10
541530                 let prDiff = e._11
542531                 let amId = e._12
543532                 let prId = e._13
544533                 let r = invoke(fca, "emit", [emitLpAmt], nil)
545534                 if ((r == r))
546535                     then {
547536                         let el =                         match r {
548537                             case legacy: Address => 
549538                                 invoke(legacy, "emit", [emitLpAmt], nil)
550539                             case _ => 
551540                                 unit
552541                         }
553542                         if ((el == el))
554543                             then {
555544                                 let sa = if ((amDiff > 0))
556545                                     then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
557546                                     else nil
558547                                 if ((sa == sa))
559548                                     then {
560549                                         let sp = if ((prDiff > 0))
561550                                             then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
562551                                             else nil
563552                                         if ((sp == sp))
564553                                             then {
565554                                                 let lpTrnsfr = if (autoStake)
566555                                                     then {
567556                                                         let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
568557                                                         if ((ss == ss))
569558                                                             then nil
570559                                                             else throw("Strict value is not equal to itself.")
571560                                                         }
572561                                                     else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
573562                                                 (state ++ lpTrnsfr)
574563                                                 }
575564                                             else throw("Strict value is not equal to itself.")
576565                                         }
577566                                     else throw("Strict value is not equal to itself.")
578567                                 }
579568                             else throw("Strict value is not equal to itself.")
580569                         }
581570                     else throw("Strict value is not equal to itself.")
582571                 }
583572     }
584573 
585574 
586575 
587576 @Callable(i)
588577 func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
589578     let cfg = gfc()
590579     let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
591580     let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
592581     let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
593582     let poolCfg = gpc()
594583     let amId = poolCfg[idxAmAsId]
595584     let prId = poolCfg[idxPrAsId]
596585     let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
597586     let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
598587     let addon = valueOrElse(getString(this, ada()), "")
599588     let userAddress = if ((addon == toString(i.caller)))
600589         then i.originCaller
601590         else i.caller
602-    if (if (if (if ((0 >= slippage))
603-        then true
604-        else (0 >= amAssetPart))
605-        then true
606-        else (0 >= prAssetPart))
607-        then true
608-        else (0 >= outLp))
609-        then throw("Wrong params")
610-        else if ((size(i.payments) != 1))
591+    let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
592+    let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
593+    if ((check == check))
594+        then if (if (if (if ((0 >= slippage))
595+            then true
596+            else (0 >= amAssetPart))
597+            then true
598+            else (0 >= prAssetPart))
599+            then true
600+            else (0 >= outLp))
601+            then throw("Wrong params")
602+            else if ((size(i.payments) != 1))
603+                then throw("1 pmnt expd")
604+                else {
605+                    let pmt = value(i.payments[0])
606+                    let pmtAssetId = toBase58String(value(pmt.assetId))
607+                    let pmtAmt = pmt.amount
608+                    if ((10000000 > pmtAmt))
609+                        then throw("Wrong pmt amt")
610+                        else {
611+                            let amBalance = getAccBalance(amId)
612+                            let prBalance = getAccBalance(prId)
613+                            let $t02485925435 = if ((pmtAssetId == amId))
614+                                then if (if ((pmtAmt > amBalance))
615+                                    then true
616+                                    else (amAssetPart > pmtAmt))
617+                                    then throw("invalid payment amount")
618+                                    else $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
619+                                else if ((pmtAssetId == prId))
620+                                    then if (if ((pmtAmt > prBalance))
621+                                        then true
622+                                        else (prAssetPart > pmtAmt))
623+                                        then throw("invalid payment amount")
624+                                        else $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
625+                                    else throw("wrong pmtAssetId")
626+                            let amBalanceNow = $t02485925435._1
627+                            let prBalanceNow = $t02485925435._2
628+                            let virtSwapInAm = $t02485925435._3
629+                            let virtSwapOutPr = $t02485925435._4
630+                            let virtSwapInPr = $t02485925435._5
631+                            let virtSwapOutAm = $t02485925435._6
632+                            let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
633+                            let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
634+                            let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
635+                            if ((D0vsD1 == D0vsD1))
636+                                then {
637+                                    let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
638+                                    let estimLP = estPut._2
639+                                    let lpAssetId = estPut._7
640+                                    let state = estPut._9
641+                                    let amDiff = estPut._10
642+                                    let prDiff = estPut._11
643+                                    let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
644+                                    let emitLpAmt = toInt(lpCalcRes._2)
645+                                    let e = invoke(fca, "emit", [emitLpAmt], nil)
646+                                    if ((e == e))
647+                                        then {
648+                                            let el =                                             match e {
649+                                                case legacy: Address => 
650+                                                    invoke(legacy, "emit", [emitLpAmt], nil)
651+                                                case _ => 
652+                                                    unit
653+                                            }
654+                                            if ((el == el))
655+                                                then {
656+                                                    let sa = if ((amDiff > 0))
657+                                                        then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
658+                                                        else nil
659+                                                    if ((sa == sa))
660+                                                        then {
661+                                                            let sp = if ((prDiff > 0))
662+                                                                then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
663+                                                                else nil
664+                                                            if ((sp == sp))
665+                                                                then {
666+                                                                    let lpTrnsfr = if (autoStake)
667+                                                                        then {
668+                                                                            let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
669+                                                                            if ((ss == ss))
670+                                                                                then nil
671+                                                                                else throw("Strict value is not equal to itself.")
672+                                                                            }
673+                                                                        else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
674+                                                                    (state ++ lpTrnsfr)
675+                                                                    }
676+                                                                else throw("Strict value is not equal to itself.")
677+                                                            }
678+                                                        else throw("Strict value is not equal to itself.")
679+                                                    }
680+                                                else throw("Strict value is not equal to itself.")
681+                                            }
682+                                        else throw("Strict value is not equal to itself.")
683+                                    }
684+                                else throw("Strict value is not equal to itself.")
685+                            }
686+                    }
687+        else throw("Strict value is not equal to itself.")
688+    }
689+
690+
691+
692+@Callable(i)
693+func putOneTknV2 (outLp,slippage,autoStake) = {
694+    let cfg = gfc()
695+    let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
696+    let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
697+    let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
698+    let poolCfg = gpc()
699+    let amId = poolCfg[idxAmAsId]
700+    let prId = poolCfg[idxPrAsId]
701+    let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
702+    let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
703+    let addon = valueOrElse(getString(this, ada()), "")
704+    let userAddress = if ((addon == toString(i.caller)))
705+        then i.originCaller
706+        else i.caller
707+    let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
708+    let check = reentrantInvoke(addonContract, "ensureCanPutOneTkn", [toString(userAddress)], nil)
709+    if ((check == check))
710+        then if ((size(i.payments) != 1))
611711             then throw("1 pmnt expd")
612712             else {
613713                 let pmt = value(i.payments[0])
614714                 let pmtAssetId = toBase58String(value(pmt.assetId))
615-                let paymentAmountRaw = pmt.amount
616-                let $t02464424696 = takeFee(paymentAmountRaw)
617-                let pmtAmt = $t02464424696._1
618-                let feeAmount = $t02464424696._2
619-                if ((10000000 > paymentAmountRaw))
715+                let pmtAmt = pmt.amount
716+                if ((10000000 > pmtAmt))
620717                     then throw("Wrong pmt amt")
621718                     else {
622719                         let amBalance = getAccBalance(amId)
623720                         let prBalance = getAccBalance(prId)
624-                        let $t02485625472 = if ((pmtAssetId == amId))
625-                            then if (if ((paymentAmountRaw > amBalance))
626-                                then true
627-                                else (amAssetPart > pmtAmt))
721+                        let $t02888829276 = if ((pmtAssetId == amId))
722+                            then if ((pmtAmt > amBalance))
628723                                 then throw("invalid payment amount")
629-                                else $Tuple6((amBalance - paymentAmountRaw), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
724+                                else $Tuple2((amBalance - pmtAmt), prBalance)
630725                             else if ((pmtAssetId == prId))
631-                                then if (if ((paymentAmountRaw > prBalance))
632-                                    then true
633-                                    else (prAssetPart > pmtAmt))
726+                                then if ((pmtAmt > prBalance))
634727                                     then throw("invalid payment amount")
635-                                    else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
728+                                    else $Tuple2(amBalance, (prBalance - pmtAmt))
636729                                 else throw("wrong pmtAssetId")
637-                        let amBalanceNow = $t02485625472._1
638-                        let prBalanceNow = $t02485625472._2
639-                        let virtSwapInAm = $t02485625472._3
640-                        let virtSwapOutPr = $t02485625472._4
641-                        let virtSwapInPr = $t02485625472._5
642-                        let virtSwapOutAm = $t02485625472._6
643-                        let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
644-                        let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
645-                        let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
646-                        if ((D0vsD1 == D0vsD1))
730+                        let amBalanceNow = $t02888829276._1
731+                        let prBalanceNow = $t02888829276._2
732+                        let $t02928229416 = if ((pmtAssetId == amId))
733+                            then $Tuple2(amBalanceNow, prBalanceNow)
734+                            else $Tuple2(prBalanceNow, amBalanceNow)
735+                        let amBalanceForCalc = $t02928229416._1
736+                        let prBalanceForCalc = $t02928229416._2
737+                        let xPrecision = 1
738+                        let result = {
739+                            let @ = invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)
740+                            if ($isInstanceOf(@, "(Int, Int)"))
741+                                then @
742+                                else throw(($getType(invoke(gwxCntr, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)) + " couldn't be cast to (Int, Int)"))
743+                            }
744+                        let $t02992830024 = if ((pmtAssetId == amId))
745+                            then result
746+                            else $Tuple2(result._2, result._1)
747+                        let amAssetPart = $t02992830024._1
748+                        let prAssetPart = $t02992830024._2
749+                        let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
750+                        let estimLP = estPut._2
751+                        let lpAssetId = estPut._7
752+                        let state = estPut._9
753+                        let amDiff = estPut._10
754+                        let prDiff = estPut._11
755+                        let emitLpAmt = if ((outLp > 0))
647756                             then {
648-                                let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId)
649-                                let estimLP = estPut._2
650-                                let lpAssetId = estPut._7
651-                                let state = estPut._9
652-                                let amDiff = estPut._10
653-                                let prDiff = estPut._11
654757                                 let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
655-                                let emitLpAmt = toInt(lpCalcRes._2)
656-                                let e = invoke(fca, "emit", [emitLpAmt], nil)
657-                                if ((e == e))
758+                                toInt(lpCalcRes._2)
759+                                }
760+                            else estimLP
761+                        let e = invoke(fca, "emit", [emitLpAmt], nil)
762+                        if ((e == e))
763+                            then {
764+                                let el =                                 match e {
765+                                    case legacy: Address => 
766+                                        invoke(legacy, "emit", [emitLpAmt], nil)
767+                                    case _ => 
768+                                        unit
769+                                }
770+                                if ((el == el))
658771                                     then {
659-                                        let el =                                         match e {
660-                                            case legacy: Address => 
661-                                                invoke(legacy, "emit", [emitLpAmt], nil)
662-                                            case _ => 
663-                                                unit
664-                                        }
665-                                        if ((el == el))
772+                                        let sa = if ((amDiff > 0))
773+                                            then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
774+                                            else nil
775+                                        if ((sa == sa))
666776                                             then {
667-                                                let sa = if ((amDiff > 0))
668-                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
777+                                                let sp = if ((prDiff > 0))
778+                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
669779                                                     else nil
670-                                                if ((sa == sa))
780+                                                if ((sp == sp))
671781                                                     then {
672-                                                        let sp = if ((prDiff > 0))
673-                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
674-                                                            else nil
675-                                                        if ((sp == sp))
782+                                                        let lpTrnsfr = if (autoStake)
676783                                                             then {
677-                                                                let lpTrnsfr = if (autoStake)
678-                                                                    then {
679-                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
680-                                                                        if ((ss == ss))
681-                                                                            then nil
682-                                                                            else throw("Strict value is not equal to itself.")
683-                                                                        }
684-                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
685-                                                                let sendFeeToMatcher = if ((feeAmount > 0))
686-                                                                    then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
687-                                                                    else nil
688-                                                                ((state ++ lpTrnsfr) ++ sendFeeToMatcher)
784+                                                                let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
785+                                                                if ((ss == ss))
786+                                                                    then nil
787+                                                                    else throw("Strict value is not equal to itself.")
689788                                                                 }
690-                                                            else throw("Strict value is not equal to itself.")
789+                                                            else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
790+                                                        (state ++ lpTrnsfr)
691791                                                         }
692792                                                     else throw("Strict value is not equal to itself.")
693793                                                 }
694794                                             else throw("Strict value is not equal to itself.")
695795                                         }
696796                                     else throw("Strict value is not equal to itself.")
697797                                 }
698798                             else throw("Strict value is not equal to itself.")
699799                         }
700800                 }
801+        else throw("Strict value is not equal to itself.")
701802     }
702803 
703804 
704805 
705806 @Callable(i)
706807 func putForFree (maxSlpg) = if ((0 > maxSlpg))
707808     then throw("Wrong slpg")
708809     else if ((size(i.payments) != 2))
709810         then throw("2 pmnts expd")
710811         else {
711812             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, "")
712813             estPut._9
713814             }
714815 
715816 
716817 
717818 @Callable(i)
718819 func get () = {
719820     let r = cg(i)
720821     let outAmtAmt = r._1
721822     let outPrAmt = r._2
722823     let pmtAmt = r._3
723824     let pmtAssetId = r._4
724825     let state = r._5
725826     let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
726827     if ((b == b))
727828         then state
728829         else throw("Strict value is not equal to itself.")
729830     }
730831 
731832 
732833 
733834 @Callable(i)
734835 func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
735836     then throw("1 pmnt expd")
736837     else {
737838         let cfg = gpc()
738839         let lpId = cfg[idxLPAsId]
739840         let amId = cfg[idxAmAsId]
740841         let prId = cfg[idxPrAsId]
741842         let amDcm = parseIntValue(cfg[idxAmtAsDcm])
742843         let prDcm = parseIntValue(cfg[idxPriceAsDcm])
743844         let sts = cfg[idxPoolSt]
744845         let factCfg = gfc()
745846         let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
746847         let pmt = value(i.payments[0])
747848         let addon = valueOrElse(getString(this, ada()), "")
748849         let userAddress = if ((addon == toString(i.caller)))
749850             then i.originCaller
750851             else i.caller
751852         let txId58 = toBase58String(i.transactionId)
752853         let pmtAssetId = value(pmt.assetId)
753854         let pmtAmt = pmt.amount
754-        if ((1000000000 > pmtAmt))
755-            then throw("Min pmt 10 LP")
756-            else if (if (if ((0 > slippage))
757-                then true
758-                else (0 > exchResult))
759-                then true
760-                else (0 > outAmount))
761-                then throw("Wrong params")
762-                else if ((lpId != toBase58String(pmtAssetId)))
763-                    then throw("Wrong LP")
764-                    else {
765-                        let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
766-                        let estimAmAmt = r._1
767-                        let estimPrAmt = r._2
768-                        let amBalance = getAccBalance(amId)
769-                        let prBalance = getAccBalance(prId)
770-                        let $t03041530875 = if ((outAssetId == amId))
771-                            then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
772-                            else if ((outAssetId == prId))
773-                                then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
774-                                else throw("wrong outAssetId")
775-                        let amBalanceNow = $t03041530875._1
776-                        let prBalanceNow = $t03041530875._2
777-                        let virtSwapInAm = $t03041530875._3
778-                        let virtSwapOutPr = $t03041530875._4
779-                        let virtSwapInPr = $t03041530875._5
780-                        let virtSwapOutAm = $t03041530875._6
781-                        let totalGetRaw = $t03041530875._7
782-                        if (if ((0 > virtSwapInAm))
783-                            then true
784-                            else (0 > virtSwapInPr))
785-                            then throw("Wrong calc")
786-                            else {
787-                                let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
788-                                let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
789-                                let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
790-                                if ((D0vsD1 == D0vsD1))
791-                                    then {
792-                                        let totalGet = takeFee(totalGetRaw)._1
793-                                        let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
794-                                        if ((finalRes == finalRes))
795-                                            then {
796-                                                let $t03162231726 = if ((outAssetId == amId))
797-                                                    then $Tuple2(toInt(finalRes._2), 0)
798-                                                    else $Tuple2(0, toInt(finalRes._2))
799-                                                let outAm = $t03162231726._1
800-                                                let outPr = $t03162231726._2
801-                                                let totalAmount = (outAm + outPr)
802-                                                let feeAmount = (totalGetRaw - totalGet)
803-                                                let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
804-                                                    then unit
805-                                                    else fromBase58String(outAssetId)
806-                                                let sendFeeToMatcher = if ((feeAmount > 0))
807-                                                    then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
808-                                                    else nil
809-                                                let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
810-                                                let curPr = f1(curPrX18, scale8)
811-                                                let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
812-                                                if ((state == state))
813-                                                    then {
814-                                                        let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
815-                                                        if ((burn == burn))
816-                                                            then (state ++ sendFeeToMatcher)
817-                                                            else throw("Strict value is not equal to itself.")
818-                                                        }
819-                                                    else throw("Strict value is not equal to itself.")
820-                                                }
821-                                            else throw("Strict value is not equal to itself.")
822-                                        }
823-                                    else throw("Strict value is not equal to itself.")
824-                                }
825-                        }
855+        let addonContract = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(ada()), "no addons")), "addon address in not valid")
856+        let check = reentrantInvoke(addonContract, "ensureCanGetOneTkn", [toString(userAddress)], nil)
857+        if ((check == check))
858+            then if ((1000000000 > pmtAmt))
859+                then throw("Min pmt 10 LP")
860+                else if (if (if ((0 > slippage))
861+                    then true
862+                    else (0 > exchResult))
863+                    then true
864+                    else (0 > outAmount))
865+                    then throw("Wrong params")
866+                    else if ((lpId != toBase58String(pmtAssetId)))
867+                        then throw("Wrong LP")
868+                        else {
869+                            let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
870+                            let estimAmAmt = r._1
871+                            let estimPrAmt = r._2
872+                            let amBalance = getAccBalance(amId)
873+                            let prBalance = getAccBalance(prId)
874+                            let $t03459335050 = if ((outAssetId == amId))
875+                                then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
876+                                else if ((outAssetId == prId))
877+                                    then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
878+                                    else throw("wrong outAssetId")
879+                            let amBalanceNow = $t03459335050._1
880+                            let prBalanceNow = $t03459335050._2
881+                            let virtSwapInAm = $t03459335050._3
882+                            let virtSwapOutPr = $t03459335050._4
883+                            let virtSwapInPr = $t03459335050._5
884+                            let virtSwapOutAm = $t03459335050._6
885+                            let totalGet = $t03459335050._7
886+                            if (if ((0 > virtSwapInAm))
887+                                then true
888+                                else (0 > virtSwapInPr))
889+                                then throw("Wrong calc")
890+                                else {
891+                                    let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
892+                                    let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
893+                                    let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
894+                                    if ((D0vsD1 == D0vsD1))
895+                                        then {
896+                                            let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
897+                                            if ((finalRes == finalRes))
898+                                                then {
899+                                                    let $t03575535859 = if ((outAssetId == amId))
900+                                                        then $Tuple2(toInt(finalRes._2), 0)
901+                                                        else $Tuple2(0, toInt(finalRes._2))
902+                                                    let outAm = $t03575535859._1
903+                                                    let outPr = $t03575535859._2
904+                                                    let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
905+                                                    let curPr = f1(curPrX18, scale8)
906+                                                    let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES"))
907+                                                        then unit
908+                                                        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)]
909+                                                    if ((state == state))
910+                                                        then {
911+                                                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
912+                                                            if ((burn == burn))
913+                                                                then state
914+                                                                else throw("Strict value is not equal to itself.")
915+                                                            }
916+                                                        else throw("Strict value is not equal to itself.")
917+                                                    }
918+                                                else throw("Strict value is not equal to itself.")
919+                                            }
920+                                        else throw("Strict value is not equal to itself.")
921+                                    }
922+                            }
923+            else throw("Strict value is not equal to itself.")
826924         }
827925 
828926 
829927 
830928 @Callable(i)
831929 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
832930     let r = cg(i)
833931     let outAmAmt = r._1
834932     let outPrAmt = r._2
835933     let pmtAmt = r._3
836934     let pmtAssetId = r._4
837935     let state = r._5
838936     if ((noLessThenAmtAsset > outAmAmt))
839937         then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
840938         else if ((noLessThenPriceAsset > outPrAmt))
841939             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
842940             else {
843941                 let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
844942                 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
845943                     then state
846944                     else throw("Strict value is not equal to itself.")
847945                 }
848946     }
849947 
850948 
851949 
852950 @Callable(i)
853951 func unstakeAndGet (amount) = {
854952     let checkPayments = if ((size(i.payments) != 0))
855953         then throw("No pmnts expd")
856954         else true
857955     if ((checkPayments == checkPayments))
858956         then {
859957             let cfg = gpc()
860958             let factoryCfg = gfc()
861959             let lpAssetId = fromBase58String(cfg[idxLPAsId])
862960             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
863961             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
864962             if ((unstakeInv == unstakeInv))
865963                 then {
866964                     let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
867965                     let sts = parseIntValue(r._9)
868966                     let state = r._10
869967                     let v = if (if (igs())
870968                         then true
871969                         else (sts == PoolShutdown))
872970                         then throw(("Blocked: " + toString(sts)))
873971                         else true
874972                     if ((v == v))
875973                         then {
876974                             let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
877975                             if ((burnA == burnA))
878976                                 then state
879977                                 else throw("Strict value is not equal to itself.")
880978                             }
881979                         else throw("Strict value is not equal to itself.")
882980                     }
883981                 else throw("Strict value is not equal to itself.")
884982             }
885983         else throw("Strict value is not equal to itself.")
886984     }
887985 
888986 
889987 
890988 @Callable(i)
891989 func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
892990     then throw("denied")
893991     else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
894992 
895993 
896994 
897995 @Callable(i)
898996 func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
899997     then pd
900998     else [StringEntry(k, v)]
901999 
9021000 
9031001 
9041002 @Callable(i)
9051003 func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
9061004     then pd
9071005     else [IntegerEntry(k, v)]
9081006 
9091007 
9101008 
9111009 @Callable(i)
9121010 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
9131011 
9141012 
9151013 
9161014 @Callable(i)
9171015 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
9181016 
9191017 
9201018 
9211019 @Callable(i)
9221020 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
9231021     let pr = calcPrices(amAmt, prAmt, lpAmt)
9241022     $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
9251023     }
9261024 
9271025 
9281026 
9291027 @Callable(i)
9301028 func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
9311029 
9321030 
9331031 
9341032 @Callable(i)
9351033 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
9361034 
9371035 
9381036 
9391037 @Callable(i)
9401038 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
9411039 
9421040 
9431041 
9441042 @Callable(i)
9451043 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, ""))
9461044 
9471045 
9481046 
9491047 @Callable(i)
9501048 func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
9511049     let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
9521050     $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
9531051     }
9541052 
9551053 
9561054 @Verifier(tx)
9571055 func verify () = {
9581056     let targetPublicKey =     match m() {
9591057         case pk: ByteVector => 
9601058             pk
9611059         case _: Unit => 
9621060             tx.senderPublicKey
9631061         case _ => 
9641062             throw("Match error")
9651063     }
9661064     match tx {
9671065         case order: Order => 
9681066             let matcherPub = mp()
9691067             let orderValid = moa(order)
9701068             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
9711069             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
9721070             if (if (if (orderValid)
9731071                 then senderValid
9741072                 else false)
9751073                 then matcherValid
9761074                 else false)
9771075                 then true
9781076                 else toe(orderValid, senderValid, matcherValid)
9791077         case s: SetScriptTransaction => 
9801078             let newHash = blake2b256(value(s.script))
9811079             let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
9821080             let currentHash = scriptHash(this)
9831081             if (if ((allowedHash == newHash))
9841082                 then (currentHash != newHash)
9851083                 else false)
9861084                 then true
9871085                 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
9881086         case _ => 
9891087             sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
9901088     }
9911089     }
9921090 
github/deemru/w8io/026f985 
122.68 ms ◑