tx · 9vnSnznJu69UUXtsX2NnvoyBFyoFBCVV8ctQMf9STgLm

3N6LHjfGb6Fgcy7YsVcNxGyPTj49XbQAijq:  -0.01300000 Waves

2023.02.10 17:33 [2443665] smart account 3N6LHjfGb6Fgcy7YsVcNxGyPTj49XbQAijq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9vnSnznJu69UUXtsX2NnvoyBFyoFBCVV8ctQMf9STgLm",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1676039687759,
    "version": 2,
    "chainId": 84,
    "sender": "3N6LHjfGb6Fgcy7YsVcNxGyPTj49XbQAijq",
    "senderPublicKey": "2u2wYYcVBQv43Cc71zkhHPPitkqgg6dqTZ3nUMvYJ1uq",
    "proofs": [
        "Kg2hPojW4mNbJc5GkLdosUoeG9rZRNSVpJG2g2uuhtM39BXgGEhvQvTnNvGWeMCnNQwQ6KhYVT16xw97VauV88p"
    ],
    "script": "base64:BgIXCAISBQoDAQgIEgUKAwEICBIDCgEIEgAWAANTRVACAl9fAAhmZWVTY2FsZQkAtgIBAIDC1y8BD2dldFN0cmluZ09yRmFpbAEDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEdGhpcwUDa2V5CQCsAgICFU5vIGRhdGEgZm9yIHRoaXMua2V5PQUDa2V5AAxwb29sRGlzYWJsZWQJAAIBAg1Qb29sIGRpc2FibGVkAAxwb29sTm90RXhpc3QJAAIBAhFQb29sIGlzIG5vdCBleGlzdAAOc2xpcHBhZ2VUb29CaWcJAAIBAhNTbGlwcGFnZSBpcyB0b28gYmlnARNrZXlNYW5hZ2VyUHVibGljS2V5AAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAIbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQJmYwACEyVzX19mYWN0b3J5Q29udHJhY3QAD2ZhY3RvcnlDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBD2dldFN0cmluZ09yRmFpbAEJAQJmYwABC3Byb3RvY29sRmVlAAkAuQkCCQDMCAICAiVzCQDMCAICC3Byb3RvY29sRmVlBQNuaWwFA1NFUAEHcG9vbEZlZQAJALkJAgkAzAgCAgIlcwkAzAgCAgdwb29sRmVlBQNuaWwFA1NFUAEaZ2V0U3RyaW5nT3JGYWlsRnJvbUFkZHJlc3MCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAAWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcwIXJXNfX2ZlZUNvbGxlY3RvckFkZHJlc3MAE2ZlZUNvbGxlY3RvckFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARpnZXRTdHJpbmdPckZhaWxGcm9tQWRkcmVzcwIFD2ZhY3RvcnlDb250cmFjdAUWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcwEFYXNJbnQBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACA0ludAQGdmFsSW50BQckbWF0Y2gwBQZ2YWxJbnQJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBFWRhdGFNYXBwaW5nUG9vbEFzc2V0cwIWaW50ZXJuYWxBbW91bnRBc3NldFN0chVpbnRlcm5hbFByaWNlQXNzZXRTdHIJALkJAgkAzAgCAgQlZCVkCQDMCAIJAKQDAQUWaW50ZXJuYWxBbW91bnRBc3NldFN0cgkAzAgCCQCkAwEFFWludGVybmFsUHJpY2VBc3NldFN0cgUDbmlsBQNTRVABFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQABAckbWF0Y2gwCQCiCAEJARNrZXlNYW5hZ2VyUHVibGljS2V5AAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJANkEAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBHXBlbmRpbmdNYW5hZ2VyUHVibGljS2V5T3JVbml0AAQHJG1hdGNoMAkAoggBCQEaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkA2QQBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgEJaXNNYW5hZ2VyAQFpBAckbWF0Y2gwCQEWbWFuYWdlclB1YmxpY0tleU9yVW5pdAADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCcGsFByRtYXRjaDAJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkFAnBrAwkAAQIFByRtYXRjaDACBFVuaXQJAAACCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgtNYXRjaCBlcnJvcgELbXVzdE1hbmFnZXIBAWkDCQEJaXNNYW5hZ2VyAQUBaQYJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAENZ2V0QWNjQmFsYW5jZQEHYXNzZXRJZAMJAAACBQdhc3NldElkAgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQdhc3NldElkBAFpARVzd2FwQ2FsY3VsYXRlUkVBRE9OTFkDCGFtb3VudEluB2Fzc2V0SW4IYXNzZXRPdXQEBXByRmVlCQEFdmFsdWUBCQCfCAEJAQtwcm90b2NvbEZlZQAEFWZlZVByb3RvY29sQW1vdW50Q2FsYwkAvAIDCQC2AgEFCGFtb3VudEluCQC2AgEFBXByRmVlBQhmZWVTY2FsZQQFcGxGZWUJAQV2YWx1ZQEJAJ8IAQkBB3Bvb2xGZWUABBFmZWVQb29sQW1vdW50Q2FsYwkAvAIDCQC2AgEFCGFtb3VudEluCQC2AgEFBXBsRmVlBQhmZWVTY2FsZQQRZmVlUHJvdG9jb2xBbW91bnQDCQAAAgkAoAMBBRVmZWVQcm90b2NvbEFtb3VudENhbGMAAAkAtgIBAAEFFWZlZVByb3RvY29sQW1vdW50Q2FsYwQNZmVlUG9vbEFtb3VudAMJAAACCQCgAwEFEWZlZVBvb2xBbW91bnRDYWxjAAAJALYCAQABBRFmZWVQb29sQW1vdW50Q2FsYwQNY2xlYW5BbW91bnRJbgkAuAICCQC4AgIJALYCAQUIYW1vdW50SW4FEWZlZVByb3RvY29sQW1vdW50BRFmZWVQb29sQW1vdW50Q2FsYwQMbHBOb25SZXZlcnNlCQD8BwQFD2ZhY3RvcnlDb250cmFjdAIgZ2V0THBBc3NldEZyb21Qb29sQXNzZXRzUkVBRE9OTFkJAMwIAgUHYXNzZXRJbgkAzAgCBQhhc3NldE91dAUDbmlsBQNuaWwECWxwUmV2ZXJzZQkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCIGdldExwQXNzZXRGcm9tUG9vbEFzc2V0c1JFQURPTkxZCQDMCAIFCGFzc2V0T3V0CQDMCAIFB2Fzc2V0SW4FA25pbAUDbmlsBAskdDAzMTI2MzYyOQMJAQIhPQIFDGxwTm9uUmV2ZXJzZQUEdW5pdAQJaXNSZXZlcnNlBwQEcG9vbAoAAUAJAPwHBAUPZmFjdG9yeUNvbnRyYWN0AiFnZXRQb29sQWRkcmVzc0Zyb21McEFzc2V0UkVBRE9OTFkJAMwIAgUMbHBOb25SZXZlcnNlBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJAJQKAgUJaXNSZXZlcnNlBQRwb29sAwkBAiE9AgUJbHBSZXZlcnNlBQR1bml0BAlpc1JldmVyc2UGBARwb29sCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCIWdldFBvb2xBZGRyZXNzRnJvbUxwQXNzZXRSRUFET05MWQkAzAgCBQlscFJldmVyc2UFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAlAoCBQlpc1JldmVyc2UFBHBvb2wFDHBvb2xOb3RFeGlzdAQJaXNSZXZlcnNlCAULJHQwMzEyNjM2MjkCXzEEBHBvb2wIBQskdDAzMTI2MzYyOQJfMgQKcG9vbFN0YXR1cwoAAUAJAPwHBAUPZmFjdG9yeUNvbnRyYWN0AhVnZXRQb29sU3RhdHVzUkVBRE9OTFkJAMwIAgUEcG9vbAUDbmlsBQNuaWwDCQABAgUBQAIDSW50BQFACQACAQkArAICCQADAQUBQAIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50BAVjaGVjawMJAAACBQpwb29sU3RhdHVzAAEGBQxwb29sRGlzYWJsZWQDCQAAAgUFY2hlY2sFBWNoZWNrBAdwb29sQWRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCBQRwb29sAgAEA3JlcwoAAUAJAPwHBAUHcG9vbEFkcgIhY2FsY3VsYXRlQW1vdW50T3V0Rm9yU3dhcFJFQURPTkxZCQDMCAIJAKADAQUNY2xlYW5BbW91bnRJbgkAzAgCBQlpc1JldmVyc2UFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQRzd2FwAwxhbW91bnRPdXRNaW4IYXNzZXRPdXQJYWRkcmVzc1RvBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQHYXNzZXRJbgMJAAACCAUDcG10B2Fzc2V0SWQFBHVuaXQJAJsDAQIFV0FWRVMJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQIYW1vdW50SW4JAQV2YWx1ZQEIBQNwbXQGYW1vdW50BAVwckZlZQkBBXZhbHVlAQkAnwgBCQELcHJvdG9jb2xGZWUABBVmZWVQcm90b2NvbEFtb3VudENhbGMJALwCAwkAtgIBBQhhbW91bnRJbgkAtgIBBQVwckZlZQUIZmVlU2NhbGUEBXBsRmVlCQEFdmFsdWUBCQCfCAEJAQdwb29sRmVlAAQRZmVlUG9vbEFtb3VudENhbGMJALwCAwkAtgIBBQhhbW91bnRJbgkAtgIBBQVwbEZlZQUIZmVlU2NhbGUEEWZlZVByb3RvY29sQW1vdW50AwkAAAIJAKADAQUVZmVlUHJvdG9jb2xBbW91bnRDYWxjAAAJALYCAQABBRVmZWVQcm90b2NvbEFtb3VudENhbGMEDWZlZVBvb2xBbW91bnQDCQAAAgkAoAMBBRFmZWVQb29sQW1vdW50Q2FsYwAACQC2AgEAAQURZmVlUG9vbEFtb3VudENhbGMEDWNsZWFuQW1vdW50SW4JALgCAgkAuAICCQC2AgEFCGFtb3VudEluBRFmZWVQcm90b2NvbEFtb3VudAURZmVlUG9vbEFtb3VudENhbGMEBmNoZWNrcwkAzAgCAwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQYJAAIBAh5leGFjdGx5IDEgcGF5bWVudCBhcmUgZXhwZWN0ZWQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQMbHBOb25SZXZlcnNlCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCIGdldExwQXNzZXRGcm9tUG9vbEFzc2V0c1JFQURPTkxZCQDMCAIJANgEAQUHYXNzZXRJbgkAzAgCBQhhc3NldE91dAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFABQR1bml0BAlscFJldmVyc2UKAAFACQD8BwQFD2ZhY3RvcnlDb250cmFjdAIgZ2V0THBBc3NldEZyb21Qb29sQXNzZXRzUkVBRE9OTFkJAMwIAgUIYXNzZXRPdXQJAMwIAgkA2AQBBQdhc3NldEluBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAFBHVuaXQECyR0MDUyNjU1Nzg0AwkBAiE9AgUMbHBOb25SZXZlcnNlBQR1bml0BAlpc1JldmVyc2UHBARwb29sCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCIWdldFBvb2xBZGRyZXNzRnJvbUxwQXNzZXRSRUFET05MWQkAzAgCCQEFdmFsdWUBBQxscE5vblJldmVyc2UFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAlAoCBQlpc1JldmVyc2UFBHBvb2wDCQECIT0CBQlscFJldmVyc2UFBHVuaXQECWlzUmV2ZXJzZQYEBHBvb2wKAAFACQD8BwQFD2ZhY3RvcnlDb250cmFjdAIhZ2V0UG9vbEFkZHJlc3NGcm9tTHBBc3NldFJFQURPTkxZCQDMCAIJAQV2YWx1ZQEFCWxwUmV2ZXJzZQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nCQCUCgIFCWlzUmV2ZXJzZQUEcG9vbAUMcG9vbE5vdEV4aXN0BAlpc1JldmVyc2UIBQskdDA1MjY1NTc4NAJfMQQEcG9vbAgFCyR0MDUyNjU1Nzg0Al8yBApwb29sU3RhdHVzCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCFWdldFBvb2xTdGF0dXNSRUFET05MWQkAzAgCBQRwb29sBQNuaWwFA25pbAMJAAECBQFAAgNJbnQFAUAJAAIBCQCsAgIJAAMBBQFAAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQEBWNoZWNrAwkAAAIFCnBvb2xTdGF0dXMAAQYFDHBvb2xEaXNhYmxlZAMJAAACBQVjaGVjawUFY2hlY2sEB3Bvb2xBZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBHBvb2wEC3RvdGFsR2V0UmF3CgABQAkA/AcEBQdwb29sQWRyAiZjYWxjdWxhdGVBbW91bnRPdXRGb3JTd2FwQW5kU2VuZFRva2VucwkAzAgCCQCgAwEFDWNsZWFuQW1vdW50SW4JAMwIAgUJaXNSZXZlcnNlCQDMCAIFDGFtb3VudE91dE1pbgkAzAgCBQlhZGRyZXNzVG8FA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUHYXNzZXRJbgkAoAMBBQ1jbGVhbkFtb3VudEluBQNuaWwDCQABAgUBQAIDSW50BQFACQACAQkArAICCQADAQUBQAIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50CQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUTZmVlQ29sbGVjdG9yQWRkcmVzcwkAoAMBBRFmZWVQcm90b2NvbEFtb3VudAUHYXNzZXRJbgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQdwb29sQWRyCQCgAwEFDWZlZVBvb2xBbW91bnQFB2Fzc2V0SW4FA25pbAULdG90YWxHZXRSYXcJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEKc2V0TWFuYWdlcgEXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkEC2NoZWNrQ2FsbGVyCQELbXVzdE1hbmFnZXIBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQVY2hlY2tNYW5hZ2VyUHVibGljS2V5CQDZBAEFF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AwkAAAIFFWNoZWNrTWFuYWdlclB1YmxpY0tleQUVY2hlY2tNYW5hZ2VyUHVibGljS2V5CQDMCAIJAQtTdHJpbmdFbnRyeQIJARprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleQAFF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEOY29uZmlybU1hbmFnZXIABAJwbQkBHXBlbmRpbmdNYW5hZ2VyUHVibGljS2V5T3JVbml0AAQFaGFzUE0DCQEJaXNEZWZpbmVkAQUCcG0GCQACAQISbm8gcGVuZGluZyBtYW5hZ2VyAwkAAAIFBWhhc1BNBQVoYXNQTQQHY2hlY2tQTQMJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAnBtBgkAAgECG3lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQdjaGVja1BNBQdjaGVja1BNCQDMCAIJAQtTdHJpbmdFbnRyeQIJARNrZXlNYW5hZ2VyUHVibGljS2V5AAkA2AQBCQEFdmFsdWUBBQJwbQkAzAgCCQELRGVsZXRlRW50cnkBCQEaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkABQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkABA90YXJnZXRQdWJsaWNLZXkEByRtYXRjaDAJARZtYW5hZ2VyUHVibGljS2V5T3JVbml0AAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJwawUHJG1hdGNoMAUCcGsDCQABAgUHJG1hdGNoMAIEVW5pdAgFAnR4D3NlbmRlclB1YmxpY0tleQkAAgECC01hdGNoIGVycm9yCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQ90YXJnZXRQdWJsaWNLZXkVdnZn",
    "height": 2443665,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 45dDeyhUhVVjpKMDBZyhGQMTpoidFAMpjSfunZ7dDsWz
Next: HneYaxY5kQ5AcxHTqRmfH1avhNSsPk7m2sr4Hn7GFYiW

Diff: 
Old
New
Differences
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let a = "__"
5
5
 
6
-
let b = toBigInt(100000)
6
+
let b = toBigInt(100000000)
7
7
 
8
8
 
func c (d) = valueOrErrorMessage(getString(this, d), ("No data for this.key=" + d))
9
9
 
25
25
 
26
26
 
let k = addressFromStringValue(c(j()))
27
27
 
28
-
func l () = makeString(["%s", "feeProtocolContractAddress"], a)
28
+
func l () = makeString(["%s", "protocolFee"], a)
29
29
 
30
30
 
31
-
let m = addressFromStringValue(c(l()))
32
-
33
-
func n () = makeString(["%s", "protocolFee"], a)
31
+
func m () = makeString(["%s", "poolFee"], a)
34
32
 
35
33
 
36
-
func o () = makeString(["%s", "poolFee"], a)
34
+
func n (o,d) = valueOrErrorMessage(getString(o, d), makeString(["mandatory ", toString(o), ".", d, " is not defined"], ""))
37
35
 
38
36
 
39
-
func p (q) = {
40
-
    let r = q
41
-
    if ($isInstanceOf(r, "Int"))
37
+
let p = "%s__feeCollectorAddress"
38
+
39
+
let q = addressFromStringValue(n(k, p))
40
+
41
+
func r (s) = {
42
+
    let t = s
43
+
    if ($isInstanceOf(t, "Int"))
42
44
 
        then {
43
-
            let s = r
44
-
            s
45
+
            let u = t
46
+
            u
45
47
 
            }
46
48
 
        else throw("fail to cast into Int")
47
49
 
    }
48
50
 
49
51
 
50
-
func t (u,v) = makeString(["%d%d", toString(u), toString(v)], a)
52
+
func v (w,x) = makeString(["%d%d", toString(w), toString(x)], a)
51
53
 
52
54
 
53
-
func w () = {
54
-
    let r = getString(h())
55
-
    if ($isInstanceOf(r, "String"))
55
+
func y () = {
56
+
    let t = getString(h())
57
+
    if ($isInstanceOf(t, "String"))
56
58
 
        then {
57
-
            let x = r
58
-
            fromBase58String(x)
59
+
            let z = t
60
+
            fromBase58String(z)
59
61
 
            }
60
-
        else if ($isInstanceOf(r, "Unit"))
62
+
        else if ($isInstanceOf(t, "Unit"))
61
63
 
            then unit
62
64
 
            else throw("Match error")
63
65
 
    }
64
66
 
65
67
 
66
-
func y () = {
67
-
    let r = getString(i())
68
-
    if ($isInstanceOf(r, "String"))
68
+
func A () = {
69
+
    let t = getString(i())
70
+
    if ($isInstanceOf(t, "String"))
69
71
 
        then {
70
-
            let x = r
71
-
            fromBase58String(x)
72
+
            let z = t
73
+
            fromBase58String(z)
72
74
 
            }
73
-
        else if ($isInstanceOf(r, "Unit"))
75
+
        else if ($isInstanceOf(t, "Unit"))
74
76
 
            then unit
75
77
 
            else throw("Match error")
76
78
 
    }
77
79
 
78
80
 
79
-
func z (A) = {
80
-
    let r = w()
81
-
    if ($isInstanceOf(r, "ByteVector"))
81
+
func B (C) = {
82
+
    let t = y()
83
+
    if ($isInstanceOf(t, "ByteVector"))
82
84
 
        then {
83
-
            let B = r
84
-
            (A.callerPublicKey == B)
85
+
            let D = t
86
+
            (C.callerPublicKey == D)
85
87
 
            }
86
-
        else if ($isInstanceOf(r, "Unit"))
87
-
            then (A.caller == this)
88
+
        else if ($isInstanceOf(t, "Unit"))
89
+
            then (C.caller == this)
88
90
 
            else throw("Match error")
89
91
 
    }
90
92
 
91
93
 
92
-
func C (A) = if (z(A))
94
+
func E (C) = if (B(C))
93
95
 
    then true
94
96
 
    else throw("permission denied")
95
97
 
96
98
 
97
-
func D (E) = if ((E == "WAVES"))
99
+
func F (G) = if ((G == "WAVES"))
98
100
 
    then wavesBalance(this).available
99
-
    else assetBalance(this, fromBase58String(E))
101
+
    else assetBalance(this, fromBase58String(G))
100
102
 
101
103
 
102
-
@Callable(A)
103
-
func swapCalculateREADONLY (F,G,H) = {
104
-
    let I = value(getInteger(n()))
105
-
    let J = fraction(toBigInt(F), toBigInt(I), b)
106
-
    let K = value(getInteger(o()))
107
-
    let L = fraction(toBigInt(F), toBigInt(K), b)
108
-
    let M = if ((toInt(J) == 0))
109
-
        then toBigInt(1)
110
-
        else J
111
-
    let N = if ((toInt(L) == 0))
104
+
@Callable(C)
105
+
func swapCalculateREADONLY (H,I,J) = {
106
+
    let K = value(getInteger(l()))
107
+
    let L = fraction(toBigInt(H), toBigInt(K), b)
108
+
    let M = value(getInteger(m()))
109
+
    let N = fraction(toBigInt(H), toBigInt(M), b)
110
+
    let O = if ((toInt(L) == 0))
112
111
 
        then toBigInt(1)
113
112
 
        else L
114
-
    let O = ((toBigInt(F) - M) - L)
115
-
    let P = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [G, H], nil)
116
-
    let Q = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [H, G], nil)
117
-
    let R = if ((P != unit))
113
+
    let P = if ((toInt(N) == 0))
114
+
        then toBigInt(1)
115
+
        else N
116
+
    let Q = ((toBigInt(H) - O) - N)
117
+
    let R = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [I, J], nil)
118
+
    let S = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [J, I], nil)
119
+
    let T = if ((R != unit))
118
120
 
        then {
119
-
            let S = false
120
-
            let T = {
121
-
                let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [P], nil)
122
-
                if ($isInstanceOf(U, "String"))
123
-
                    then U
124
-
                    else throw(($getType(U) + " couldn't be cast to String"))
121
+
            let U = false
122
+
            let V = {
123
+
                let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [R], nil)
124
+
                if ($isInstanceOf(W, "String"))
125
+
                    then W
126
+
                    else throw(($getType(W) + " couldn't be cast to String"))
125
127
 
                }
126
-
            $Tuple2(S, T)
128
+
            $Tuple2(U, V)
127
129
 
            }
128
-
        else if ((Q != unit))
130
+
        else if ((S != unit))
129
131
 
            then {
130
-
                let S = true
131
-
                let T = {
132
-
                    let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [Q], nil)
133
-
                    if ($isInstanceOf(U, "String"))
134
-
                        then U
135
-
                        else throw(($getType(U) + " couldn't be cast to String"))
132
+
                let U = true
133
+
                let V = {
134
+
                    let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [S], nil)
135
+
                    if ($isInstanceOf(W, "String"))
136
+
                        then W
137
+
                        else throw(($getType(W) + " couldn't be cast to String"))
136
138
 
                    }
137
-
                $Tuple2(S, T)
139
+
                $Tuple2(U, V)
138
140
 
                }
139
141
 
            else f
140
-
    let S = R._1
141
-
    let T = R._2
142
-
    let V = {
143
-
        let U = invoke(k, "getPoolStatusREADONLY", [T], nil)
144
-
        if ($isInstanceOf(U, "Int"))
145
-
            then U
146
-
            else throw(($getType(U) + " couldn't be cast to Int"))
142
+
    let U = T._1
143
+
    let V = T._2
144
+
    let X = {
145
+
        let W = invoke(k, "getPoolStatusREADONLY", [V], nil)
146
+
        if ($isInstanceOf(W, "Int"))
147
+
            then W
148
+
            else throw(($getType(W) + " couldn't be cast to Int"))
147
149
 
        }
148
-
    let W = if ((V == 1))
150
+
    let Y = if ((X == 1))
149
151
 
        then true
150
152
 
        else e
151
-
    if ((W == W))
153
+
    if ((Y == Y))
152
154
 
        then {
153
-
            let X = addressFromStringValue(valueOrElse(T, ""))
154
-
            let Y = {
155
-
                let U = invoke(X, "calculateAmountOutForSwapREADONLY", [toInt(O), S], nil)
156
-
                if ($isInstanceOf(U, "Int"))
157
-
                    then U
158
-
                    else throw(($getType(U) + " couldn't be cast to Int"))
155
+
            let Z = addressFromStringValue(valueOrElse(V, ""))
156
+
            let aa = {
157
+
                let W = invoke(Z, "calculateAmountOutForSwapREADONLY", [toInt(Q), U], nil)
158
+
                if ($isInstanceOf(W, "Int"))
159
+
                    then W
160
+
                    else throw(($getType(W) + " couldn't be cast to Int"))
159
161
 
                }
160
-
            $Tuple2(nil, Y)
162
+
            $Tuple2(nil, aa)
161
163
 
            }
162
164
 
        else throw("Strict value is not equal to itself.")
163
165
 
    }
164
166
 
165
167
 
166
168
 
167
-
@Callable(A)
168
-
func swap (Z,H,aa) = {
169
-
    let ab = value(A.payments[0])
170
-
    let G = if ((ab.assetId == unit))
169
+
@Callable(C)
170
+
func swap (ab,J,ac) = {
171
+
    let ad = value(C.payments[0])
172
+
    let I = if ((ad.assetId == unit))
171
173
 
        then toBytes("WAVES")
172
-
        else value(ab.assetId)
173
-
    let F = value(ab.amount)
174
-
    let I = value(getInteger(n()))
175
-
    let J = fraction(toBigInt(F), toBigInt(I), b)
176
-
    let K = value(getInteger(o()))
177
-
    let L = fraction(toBigInt(F), toBigInt(K), b)
178
-
    let M = if ((toInt(J) == 0))
179
-
        then toBigInt(1)
180
-
        else J
181
-
    let N = if ((toInt(L) == 0))
174
+
        else value(ad.assetId)
175
+
    let H = value(ad.amount)
176
+
    let K = value(getInteger(l()))
177
+
    let L = fraction(toBigInt(H), toBigInt(K), b)
178
+
    let M = value(getInteger(m()))
179
+
    let N = fraction(toBigInt(H), toBigInt(M), b)
180
+
    let O = if ((toInt(L) == 0))
182
181
 
        then toBigInt(1)
183
182
 
        else L
184
-
    let O = ((toBigInt(F) - M) - L)
185
-
    let ac = [if ((size(A.payments) == 1))
183
+
    let P = if ((toInt(N) == 0))
184
+
        then toBigInt(1)
185
+
        else N
186
+
    let Q = ((toBigInt(H) - O) - N)
187
+
    let ae = [if ((size(C.payments) == 1))
186
188
 
        then true
187
189
 
        else throw("exactly 1 payment are expected")]
188
-
    if ((ac == ac))
190
+
    if ((ae == ae))
189
191
 
        then {
190
-
            let P = {
191
-
                let U = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [toBase58String(G), H], nil)
192
-
                if ($isInstanceOf(U, "String"))
193
-
                    then U
192
+
            let R = {
193
+
                let W = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [toBase58String(I), J], nil)
194
+
                if ($isInstanceOf(W, "String"))
195
+
                    then W
194
196
 
                    else unit
195
197
 
                }
196
-
            let Q = {
197
-
                let U = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [H, toBase58String(G)], nil)
198
-
                if ($isInstanceOf(U, "String"))
199
-
                    then U
198
+
            let S = {
199
+
                let W = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [J, toBase58String(I)], nil)
200
+
                if ($isInstanceOf(W, "String"))
201
+
                    then W
200
202
 
                    else unit
201
203
 
                }
202
-
            let ad = if ((P != unit))
204
+
            let af = if ((R != unit))
203
205
 
                then {
204
-
                    let S = false
205
-
                    let T = {
206
-
                        let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(P)], nil)
207
-
                        if ($isInstanceOf(U, "String"))
208
-
                            then U
209
-
                            else throw(($getType(U) + " couldn't be cast to String"))
206
+
                    let U = false
207
+
                    let V = {
208
+
                        let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(R)], nil)
209
+
                        if ($isInstanceOf(W, "String"))
210
+
                            then W
211
+
                            else throw(($getType(W) + " couldn't be cast to String"))
210
212
 
                        }
211
-
                    $Tuple2(S, T)
213
+
                    $Tuple2(U, V)
212
214
 
                    }
213
-
                else if ((Q != unit))
215
+
                else if ((S != unit))
214
216
 
                    then {
215
-
                        let S = true
216
-
                        let T = {
217
-
                            let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(Q)], nil)
218
-
                            if ($isInstanceOf(U, "String"))
219
-
                                then U
220
-
                                else throw(($getType(U) + " couldn't be cast to String"))
217
+
                        let U = true
218
+
                        let V = {
219
+
                            let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(S)], nil)
220
+
                            if ($isInstanceOf(W, "String"))
221
+
                                then W
222
+
                                else throw(($getType(W) + " couldn't be cast to String"))
221
223
 
                            }
222
-
                        $Tuple2(S, T)
224
+
                        $Tuple2(U, V)
223
225
 
                        }
224
226
 
                    else f
225
-
            let S = ad._1
226
-
            let T = ad._2
227
-
            let V = {
228
-
                let U = invoke(k, "getPoolStatusREADONLY", [T], nil)
229
-
                if ($isInstanceOf(U, "Int"))
230
-
                    then U
231
-
                    else throw(($getType(U) + " couldn't be cast to Int"))
227
+
            let U = af._1
228
+
            let V = af._2
229
+
            let X = {
230
+
                let W = invoke(k, "getPoolStatusREADONLY", [V], nil)
231
+
                if ($isInstanceOf(W, "Int"))
232
+
                    then W
233
+
                    else throw(($getType(W) + " couldn't be cast to Int"))
232
234
 
                }
233
-
            let W = if ((V == 1))
235
+
            let Y = if ((X == 1))
234
236
 
                then true
235
237
 
                else e
236
-
            if ((W == W))
238
+
            if ((Y == Y))
237
239
 
                then {
238
-
                    let X = addressFromStringValue(T)
239
-
                    let ae = {
240
-
                        let U = invoke(X, "calculateAmountOutForSwapAndSendTokens", [toInt(O), S, Z, aa], [AttachedPayment(G, toInt(O))])
241
-
                        if ($isInstanceOf(U, "Int"))
242
-
                            then U
243
-
                            else throw(($getType(U) + " couldn't be cast to Int"))
240
+
                    let Z = addressFromStringValue(V)
241
+
                    let ag = {
242
+
                        let W = invoke(Z, "calculateAmountOutForSwapAndSendTokens", [toInt(Q), U, ab, ac], [AttachedPayment(I, toInt(Q))])
243
+
                        if ($isInstanceOf(W, "Int"))
244
+
                            then W
245
+
                            else throw(($getType(W) + " couldn't be cast to Int"))
244
246
 
                        }
245
-
                    $Tuple2([ScriptTransfer(m, toInt(M), G), ScriptTransfer(X, toInt(N), G)], ae)
247
+
                    $Tuple2([ScriptTransfer(q, toInt(O), I), ScriptTransfer(Z, toInt(P), I)], ag)
246
248
 
                    }
247
249
 
                else throw("Strict value is not equal to itself.")
248
250
 
            }
251
253
 
252
254
 
253
255
 
254
-
@Callable(A)
255
-
func setManager (af) = {
256
-
    let ag = C(A)
257
-
    if ((ag == ag))
256
+
@Callable(C)
257
+
func setManager (ah) = {
258
+
    let ai = E(C)
259
+
    if ((ai == ai))
258
260
 
        then {
259
-
            let ah = fromBase58String(af)
260
-
            if ((ah == ah))
261
-
                then [StringEntry(i(), af)]
261
+
            let aj = fromBase58String(ah)
262
+
            if ((aj == aj))
263
+
                then [StringEntry(i(), ah)]
262
264
 
                else throw("Strict value is not equal to itself.")
263
265
 
            }
264
266
 
        else throw("Strict value is not equal to itself.")
266
268
 
267
269
 
268
270
 
269
-
@Callable(A)
271
+
@Callable(C)
270
272
 
func confirmManager () = {
271
-
    let ai = y()
272
-
    let aj = if (isDefined(ai))
273
+
    let ak = A()
274
+
    let al = if (isDefined(ak))
273
275
 
        then true
274
276
 
        else throw("no pending manager")
275
-
    if ((aj == aj))
277
+
    if ((al == al))
276
278
 
        then {
277
-
            let ak = if ((A.callerPublicKey == value(ai)))
279
+
            let am = if ((C.callerPublicKey == value(ak)))
278
280
 
                then true
279
281
 
                else throw("you are not pending manager")
280
-
            if ((ak == ak))
281
-
                then [StringEntry(h(), toBase58String(value(ai))), DeleteEntry(i())]
282
+
            if ((am == am))
283
+
                then [StringEntry(h(), toBase58String(value(ak))), DeleteEntry(i())]
282
284
 
                else throw("Strict value is not equal to itself.")
283
285
 
            }
284
286
 
        else throw("Strict value is not equal to itself.")
285
287
 
    }
286
288
 
287
289
 
288
-
@Verifier(al)
289
-
func am () = {
290
-
    let an = {
291
-
        let r = w()
292
-
        if ($isInstanceOf(r, "ByteVector"))
290
+
@Verifier(an)
291
+
func ao () = {
292
+
    let ap = {
293
+
        let t = y()
294
+
        if ($isInstanceOf(t, "ByteVector"))
293
295
 
            then {
294
-
                let B = r
295
-
                B
296
+
                let D = t
297
+
                D
296
298
 
                }
297
-
            else if ($isInstanceOf(r, "Unit"))
298
-
                then al.senderPublicKey
299
+
            else if ($isInstanceOf(t, "Unit"))
300
+
                then an.senderPublicKey
299
301
 
                else throw("Match error")
300
302
 
        }
301
-
    sigVerify(al.bodyBytes, al.proofs[0], an)
303
+
    sigVerify(an.bodyBytes, an.proofs[0], ap)
302
304
 
    }
303
305
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let a = "__"
5
5
 
6
-
let b = toBigInt(100000)
6
+
let b = toBigInt(100000000)
7
7
 
8
8
 
func c (d) = valueOrErrorMessage(getString(this, d), ("No data for this.key=" + d))
9
9
 
10
10
 
11
11
 
let e = throw("Pool disabled")
12
12
 
13
13
 
let f = throw("Pool is not exist")
14
14
 
15
15
 
let g = throw("Slippage is too big")
16
16
 
17
17
 
func h () = "%s__managerPublicKey"
18
18
 
19
19
 
20
20
 
func i () = "%s__pendingManagerPublicKey"
21
21
 
22
22
 
23
23
 
func j () = "%s__factoryContract"
24
24
 
25
25
 
26
26
 
let k = addressFromStringValue(c(j()))
27
27
 
28
-
func l () = makeString(["%s", "feeProtocolContractAddress"], a)
28
+
func l () = makeString(["%s", "protocolFee"], a)
29
29
 
30
30
 
31
-
let m = addressFromStringValue(c(l()))
32
-
33
-
func n () = makeString(["%s", "protocolFee"], a)
31
+
func m () = makeString(["%s", "poolFee"], a)
34
32
 
35
33
 
36
-
func o () = makeString(["%s", "poolFee"], a)
34
+
func n (o,d) = valueOrErrorMessage(getString(o, d), makeString(["mandatory ", toString(o), ".", d, " is not defined"], ""))
37
35
 
38
36
 
39
-
func p (q) = {
40
-
    let r = q
41
-
    if ($isInstanceOf(r, "Int"))
37
+
let p = "%s__feeCollectorAddress"
38
+
39
+
let q = addressFromStringValue(n(k, p))
40
+
41
+
func r (s) = {
42
+
    let t = s
43
+
    if ($isInstanceOf(t, "Int"))
42
44
 
        then {
43
-
            let s = r
44
-
            s
45
+
            let u = t
46
+
            u
45
47
 
            }
46
48
 
        else throw("fail to cast into Int")
47
49
 
    }
48
50
 
49
51
 
50
-
func t (u,v) = makeString(["%d%d", toString(u), toString(v)], a)
52
+
func v (w,x) = makeString(["%d%d", toString(w), toString(x)], a)
51
53
 
52
54
 
53
-
func w () = {
54
-
    let r = getString(h())
55
-
    if ($isInstanceOf(r, "String"))
55
+
func y () = {
56
+
    let t = getString(h())
57
+
    if ($isInstanceOf(t, "String"))
56
58
 
        then {
57
-
            let x = r
58
-
            fromBase58String(x)
59
+
            let z = t
60
+
            fromBase58String(z)
59
61
 
            }
60
-
        else if ($isInstanceOf(r, "Unit"))
62
+
        else if ($isInstanceOf(t, "Unit"))
61
63
 
            then unit
62
64
 
            else throw("Match error")
63
65
 
    }
64
66
 
65
67
 
66
-
func y () = {
67
-
    let r = getString(i())
68
-
    if ($isInstanceOf(r, "String"))
68
+
func A () = {
69
+
    let t = getString(i())
70
+
    if ($isInstanceOf(t, "String"))
69
71
 
        then {
70
-
            let x = r
71
-
            fromBase58String(x)
72
+
            let z = t
73
+
            fromBase58String(z)
72
74
 
            }
73
-
        else if ($isInstanceOf(r, "Unit"))
75
+
        else if ($isInstanceOf(t, "Unit"))
74
76
 
            then unit
75
77
 
            else throw("Match error")
76
78
 
    }
77
79
 
78
80
 
79
-
func z (A) = {
80
-
    let r = w()
81
-
    if ($isInstanceOf(r, "ByteVector"))
81
+
func B (C) = {
82
+
    let t = y()
83
+
    if ($isInstanceOf(t, "ByteVector"))
82
84
 
        then {
83
-
            let B = r
84
-
            (A.callerPublicKey == B)
85
+
            let D = t
86
+
            (C.callerPublicKey == D)
85
87
 
            }
86
-
        else if ($isInstanceOf(r, "Unit"))
87
-
            then (A.caller == this)
88
+
        else if ($isInstanceOf(t, "Unit"))
89
+
            then (C.caller == this)
88
90
 
            else throw("Match error")
89
91
 
    }
90
92
 
91
93
 
92
-
func C (A) = if (z(A))
94
+
func E (C) = if (B(C))
93
95
 
    then true
94
96
 
    else throw("permission denied")
95
97
 
96
98
 
97
-
func D (E) = if ((E == "WAVES"))
99
+
func F (G) = if ((G == "WAVES"))
98
100
 
    then wavesBalance(this).available
99
-
    else assetBalance(this, fromBase58String(E))
101
+
    else assetBalance(this, fromBase58String(G))
100
102
 
101
103
 
102
-
@Callable(A)
103
-
func swapCalculateREADONLY (F,G,H) = {
104
-
    let I = value(getInteger(n()))
105
-
    let J = fraction(toBigInt(F), toBigInt(I), b)
106
-
    let K = value(getInteger(o()))
107
-
    let L = fraction(toBigInt(F), toBigInt(K), b)
108
-
    let M = if ((toInt(J) == 0))
109
-
        then toBigInt(1)
110
-
        else J
111
-
    let N = if ((toInt(L) == 0))
104
+
@Callable(C)
105
+
func swapCalculateREADONLY (H,I,J) = {
106
+
    let K = value(getInteger(l()))
107
+
    let L = fraction(toBigInt(H), toBigInt(K), b)
108
+
    let M = value(getInteger(m()))
109
+
    let N = fraction(toBigInt(H), toBigInt(M), b)
110
+
    let O = if ((toInt(L) == 0))
112
111
 
        then toBigInt(1)
113
112
 
        else L
114
-
    let O = ((toBigInt(F) - M) - L)
115
-
    let P = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [G, H], nil)
116
-
    let Q = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [H, G], nil)
117
-
    let R = if ((P != unit))
113
+
    let P = if ((toInt(N) == 0))
114
+
        then toBigInt(1)
115
+
        else N
116
+
    let Q = ((toBigInt(H) - O) - N)
117
+
    let R = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [I, J], nil)
118
+
    let S = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [J, I], nil)
119
+
    let T = if ((R != unit))
118
120
 
        then {
119
-
            let S = false
120
-
            let T = {
121
-
                let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [P], nil)
122
-
                if ($isInstanceOf(U, "String"))
123
-
                    then U
124
-
                    else throw(($getType(U) + " couldn't be cast to String"))
121
+
            let U = false
122
+
            let V = {
123
+
                let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [R], nil)
124
+
                if ($isInstanceOf(W, "String"))
125
+
                    then W
126
+
                    else throw(($getType(W) + " couldn't be cast to String"))
125
127
 
                }
126
-
            $Tuple2(S, T)
128
+
            $Tuple2(U, V)
127
129
 
            }
128
-
        else if ((Q != unit))
130
+
        else if ((S != unit))
129
131
 
            then {
130
-
                let S = true
131
-
                let T = {
132
-
                    let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [Q], nil)
133
-
                    if ($isInstanceOf(U, "String"))
134
-
                        then U
135
-
                        else throw(($getType(U) + " couldn't be cast to String"))
132
+
                let U = true
133
+
                let V = {
134
+
                    let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [S], nil)
135
+
                    if ($isInstanceOf(W, "String"))
136
+
                        then W
137
+
                        else throw(($getType(W) + " couldn't be cast to String"))
136
138
 
                    }
137
-
                $Tuple2(S, T)
139
+
                $Tuple2(U, V)
138
140
 
                }
139
141
 
            else f
140
-
    let S = R._1
141
-
    let T = R._2
142
-
    let V = {
143
-
        let U = invoke(k, "getPoolStatusREADONLY", [T], nil)
144
-
        if ($isInstanceOf(U, "Int"))
145
-
            then U
146
-
            else throw(($getType(U) + " couldn't be cast to Int"))
142
+
    let U = T._1
143
+
    let V = T._2
144
+
    let X = {
145
+
        let W = invoke(k, "getPoolStatusREADONLY", [V], nil)
146
+
        if ($isInstanceOf(W, "Int"))
147
+
            then W
148
+
            else throw(($getType(W) + " couldn't be cast to Int"))
147
149
 
        }
148
-
    let W = if ((V == 1))
150
+
    let Y = if ((X == 1))
149
151
 
        then true
150
152
 
        else e
151
-
    if ((W == W))
153
+
    if ((Y == Y))
152
154
 
        then {
153
-
            let X = addressFromStringValue(valueOrElse(T, ""))
154
-
            let Y = {
155
-
                let U = invoke(X, "calculateAmountOutForSwapREADONLY", [toInt(O), S], nil)
156
-
                if ($isInstanceOf(U, "Int"))
157
-
                    then U
158
-
                    else throw(($getType(U) + " couldn't be cast to Int"))
155
+
            let Z = addressFromStringValue(valueOrElse(V, ""))
156
+
            let aa = {
157
+
                let W = invoke(Z, "calculateAmountOutForSwapREADONLY", [toInt(Q), U], nil)
158
+
                if ($isInstanceOf(W, "Int"))
159
+
                    then W
160
+
                    else throw(($getType(W) + " couldn't be cast to Int"))
159
161
 
                }
160
-
            $Tuple2(nil, Y)
162
+
            $Tuple2(nil, aa)
161
163
 
            }
162
164
 
        else throw("Strict value is not equal to itself.")
163
165
 
    }
164
166
 
165
167
 
166
168
 
167
-
@Callable(A)
168
-
func swap (Z,H,aa) = {
169
-
    let ab = value(A.payments[0])
170
-
    let G = if ((ab.assetId == unit))
169
+
@Callable(C)
170
+
func swap (ab,J,ac) = {
171
+
    let ad = value(C.payments[0])
172
+
    let I = if ((ad.assetId == unit))
171
173
 
        then toBytes("WAVES")
172
-
        else value(ab.assetId)
173
-
    let F = value(ab.amount)
174
-
    let I = value(getInteger(n()))
175
-
    let J = fraction(toBigInt(F), toBigInt(I), b)
176
-
    let K = value(getInteger(o()))
177
-
    let L = fraction(toBigInt(F), toBigInt(K), b)
178
-
    let M = if ((toInt(J) == 0))
179
-
        then toBigInt(1)
180
-
        else J
181
-
    let N = if ((toInt(L) == 0))
174
+
        else value(ad.assetId)
175
+
    let H = value(ad.amount)
176
+
    let K = value(getInteger(l()))
177
+
    let L = fraction(toBigInt(H), toBigInt(K), b)
178
+
    let M = value(getInteger(m()))
179
+
    let N = fraction(toBigInt(H), toBigInt(M), b)
180
+
    let O = if ((toInt(L) == 0))
182
181
 
        then toBigInt(1)
183
182
 
        else L
184
-
    let O = ((toBigInt(F) - M) - L)
185
-
    let ac = [if ((size(A.payments) == 1))
183
+
    let P = if ((toInt(N) == 0))
184
+
        then toBigInt(1)
185
+
        else N
186
+
    let Q = ((toBigInt(H) - O) - N)
187
+
    let ae = [if ((size(C.payments) == 1))
186
188
 
        then true
187
189
 
        else throw("exactly 1 payment are expected")]
188
-
    if ((ac == ac))
190
+
    if ((ae == ae))
189
191
 
        then {
190
-
            let P = {
191
-
                let U = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [toBase58String(G), H], nil)
192
-
                if ($isInstanceOf(U, "String"))
193
-
                    then U
192
+
            let R = {
193
+
                let W = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [toBase58String(I), J], nil)
194
+
                if ($isInstanceOf(W, "String"))
195
+
                    then W
194
196
 
                    else unit
195
197
 
                }
196
-
            let Q = {
197
-
                let U = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [H, toBase58String(G)], nil)
198
-
                if ($isInstanceOf(U, "String"))
199
-
                    then U
198
+
            let S = {
199
+
                let W = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [J, toBase58String(I)], nil)
200
+
                if ($isInstanceOf(W, "String"))
201
+
                    then W
200
202
 
                    else unit
201
203
 
                }
202
-
            let ad = if ((P != unit))
204
+
            let af = if ((R != unit))
203
205
 
                then {
204
-
                    let S = false
205
-
                    let T = {
206
-
                        let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(P)], nil)
207
-
                        if ($isInstanceOf(U, "String"))
208
-
                            then U
209
-
                            else throw(($getType(U) + " couldn't be cast to String"))
206
+
                    let U = false
207
+
                    let V = {
208
+
                        let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(R)], nil)
209
+
                        if ($isInstanceOf(W, "String"))
210
+
                            then W
211
+
                            else throw(($getType(W) + " couldn't be cast to String"))
210
212
 
                        }
211
-
                    $Tuple2(S, T)
213
+
                    $Tuple2(U, V)
212
214
 
                    }
213
-
                else if ((Q != unit))
215
+
                else if ((S != unit))
214
216
 
                    then {
215
-
                        let S = true
216
-
                        let T = {
217
-
                            let U = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(Q)], nil)
218
-
                            if ($isInstanceOf(U, "String"))
219
-
                                then U
220
-
                                else throw(($getType(U) + " couldn't be cast to String"))
217
+
                        let U = true
218
+
                        let V = {
219
+
                            let W = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(S)], nil)
220
+
                            if ($isInstanceOf(W, "String"))
221
+
                                then W
222
+
                                else throw(($getType(W) + " couldn't be cast to String"))
221
223
 
                            }
222
-
                        $Tuple2(S, T)
224
+
                        $Tuple2(U, V)
223
225
 
                        }
224
226
 
                    else f
225
-
            let S = ad._1
226
-
            let T = ad._2
227
-
            let V = {
228
-
                let U = invoke(k, "getPoolStatusREADONLY", [T], nil)
229
-
                if ($isInstanceOf(U, "Int"))
230
-
                    then U
231
-
                    else throw(($getType(U) + " couldn't be cast to Int"))
227
+
            let U = af._1
228
+
            let V = af._2
229
+
            let X = {
230
+
                let W = invoke(k, "getPoolStatusREADONLY", [V], nil)
231
+
                if ($isInstanceOf(W, "Int"))
232
+
                    then W
233
+
                    else throw(($getType(W) + " couldn't be cast to Int"))
232
234
 
                }
233
-
            let W = if ((V == 1))
235
+
            let Y = if ((X == 1))
234
236
 
                then true
235
237
 
                else e
236
-
            if ((W == W))
238
+
            if ((Y == Y))
237
239
 
                then {
238
-
                    let X = addressFromStringValue(T)
239
-
                    let ae = {
240
-
                        let U = invoke(X, "calculateAmountOutForSwapAndSendTokens", [toInt(O), S, Z, aa], [AttachedPayment(G, toInt(O))])
241
-
                        if ($isInstanceOf(U, "Int"))
242
-
                            then U
243
-
                            else throw(($getType(U) + " couldn't be cast to Int"))
240
+
                    let Z = addressFromStringValue(V)
241
+
                    let ag = {
242
+
                        let W = invoke(Z, "calculateAmountOutForSwapAndSendTokens", [toInt(Q), U, ab, ac], [AttachedPayment(I, toInt(Q))])
243
+
                        if ($isInstanceOf(W, "Int"))
244
+
                            then W
245
+
                            else throw(($getType(W) + " couldn't be cast to Int"))
244
246
 
                        }
245
-
                    $Tuple2([ScriptTransfer(m, toInt(M), G), ScriptTransfer(X, toInt(N), G)], ae)
247
+
                    $Tuple2([ScriptTransfer(q, toInt(O), I), ScriptTransfer(Z, toInt(P), I)], ag)
246
248
 
                    }
247
249
 
                else throw("Strict value is not equal to itself.")
248
250
 
            }
249
251
 
        else throw("Strict value is not equal to itself.")
250
252
 
    }
251
253
 
252
254
 
253
255
 
254
-
@Callable(A)
255
-
func setManager (af) = {
256
-
    let ag = C(A)
257
-
    if ((ag == ag))
256
+
@Callable(C)
257
+
func setManager (ah) = {
258
+
    let ai = E(C)
259
+
    if ((ai == ai))
258
260
 
        then {
259
-
            let ah = fromBase58String(af)
260
-
            if ((ah == ah))
261
-
                then [StringEntry(i(), af)]
261
+
            let aj = fromBase58String(ah)
262
+
            if ((aj == aj))
263
+
                then [StringEntry(i(), ah)]
262
264
 
                else throw("Strict value is not equal to itself.")
263
265
 
            }
264
266
 
        else throw("Strict value is not equal to itself.")
265
267
 
    }
266
268
 
267
269
 
268
270
 
269
-
@Callable(A)
271
+
@Callable(C)
270
272
 
func confirmManager () = {
271
-
    let ai = y()
272
-
    let aj = if (isDefined(ai))
273
+
    let ak = A()
274
+
    let al = if (isDefined(ak))
273
275
 
        then true
274
276
 
        else throw("no pending manager")
275
-
    if ((aj == aj))
277
+
    if ((al == al))
276
278
 
        then {
277
-
            let ak = if ((A.callerPublicKey == value(ai)))
279
+
            let am = if ((C.callerPublicKey == value(ak)))
278
280
 
                then true
279
281
 
                else throw("you are not pending manager")
280
-
            if ((ak == ak))
281
-
                then [StringEntry(h(), toBase58String(value(ai))), DeleteEntry(i())]
282
+
            if ((am == am))
283
+
                then [StringEntry(h(), toBase58String(value(ak))), DeleteEntry(i())]
282
284
 
                else throw("Strict value is not equal to itself.")
283
285
 
            }
284
286
 
        else throw("Strict value is not equal to itself.")
285
287
 
    }
286
288
 
287
289
 
288
-
@Verifier(al)
289
-
func am () = {
290
-
    let an = {
291
-
        let r = w()
292
-
        if ($isInstanceOf(r, "ByteVector"))
290
+
@Verifier(an)
291
+
func ao () = {
292
+
    let ap = {
293
+
        let t = y()
294
+
        if ($isInstanceOf(t, "ByteVector"))
293
295
 
            then {
294
-
                let B = r
295
-
                B
296
+
                let D = t
297
+
                D
296
298
 
                }
297
-
            else if ($isInstanceOf(r, "Unit"))
298
-
                then al.senderPublicKey
299
+
            else if ($isInstanceOf(t, "Unit"))
300
+
                then an.senderPublicKey
299
301
 
                else throw("Match error")
300
302
 
        }
301
-
    sigVerify(al.bodyBytes, al.proofs[0], an)
303
+
    sigVerify(an.bodyBytes, an.proofs[0], ap)
302
304
 
    }
303
305
 

github/deemru/w8io/169f3d6 
97.12 ms ◑