tx · Aqa2PjQNBQtuAGrfk4HVzGNDgTSJhossQtug3jbYkwL1

3N6LHjfGb6Fgcy7YsVcNxGyPTj49XbQAijq:  -0.01100000 Waves

2024.07.15 10:03 [3194820] smart account 3N6LHjfGb6Fgcy7YsVcNxGyPTj49XbQAijq > SELF 0.00000000 Waves

{ "type": 13, "id": "Aqa2PjQNBQtuAGrfk4HVzGNDgTSJhossQtug3jbYkwL1", "fee": 1100000, "feeAssetId": null, "timestamp": 1721027040519, "version": 1, "sender": "3N6LHjfGb6Fgcy7YsVcNxGyPTj49XbQAijq", "senderPublicKey": "2u2wYYcVBQv43Cc71zkhHPPitkqgg6dqTZ3nUMvYJ1uq", "proofs": [ "4MrWKUq1G2zN14zvuaedcZ8a82fD3x6zjqYW7giCtskvLgF9UndKMBBsvjV58my642vZaUUqaYLWLA7UzQHmRrwj" ], "script": "base64:BgIQCAISBQoDAQgIEgUKAwEICBkAA1NFUAICX18ACGZlZVNjYWxlCQC2AgEAgMLXLwEPZ2V0U3RyaW5nT3JGYWlsAQNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQNrZXkJAKwCAgIVTm8gZGF0YSBmb3IgdGhpcy5rZXk9BQNrZXkADHBvb2xEaXNhYmxlZAkAAgECDVBvb2wgZGlzYWJsZWQADHBvb2xOb3RFeGlzdAkAAgECEVBvb2wgaXMgbm90IGV4aXN0AA5zbGlwcGFnZVRvb0JpZwkAAgECE1NsaXBwYWdlIGlzIHRvbyBiaWcBE2tleU1hbmFnZXJQdWJsaWNLZXkAAhQlc19fbWFuYWdlclB1YmxpY0tleQEWa2V5TWFuYWdlclZhdWx0QWRkcmVzcwACFyVzX19tYW5hZ2VyVmF1bHRBZGRyZXNzAQJmYwACEyVzX19mYWN0b3J5Q29udHJhY3QAD2ZhY3RvcnlDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBD2dldFN0cmluZ09yRmFpbAEJAQJmYwABC3Byb3RvY29sRmVlAAkAuQkCCQDMCAICAiVzCQDMCAICC3Byb3RvY29sRmVlBQNuaWwFA1NFUAEHcG9vbEZlZQAJALkJAgkAzAgCAgIlcwkAzAgCAgdwb29sRmVlBQNuaWwFA1NFUAEaZ2V0U3RyaW5nT3JGYWlsRnJvbUFkZHJlc3MCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAAWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcwIXJXNfX2ZlZUNvbGxlY3RvckFkZHJlc3MAE2ZlZUNvbGxlY3RvckFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARpnZXRTdHJpbmdPckZhaWxGcm9tQWRkcmVzcwIFD2ZhY3RvcnlDb250cmFjdAUWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcwEcZ2V0TWFuYWdlclZhdWx0QWRkcmVzc09yVGhpcwAEByRtYXRjaDAJAKIIAQkBFmtleU1hbmFnZXJWYXVsdEFkZHJlc3MAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkBEUBleHRyTmF0aXZlKDEwNjIpAQUBcwUEdGhpcwEFYXNJbnQBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACA0ludAQGdmFsSW50BQckbWF0Y2gwBQZ2YWxJbnQJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBFWRhdGFNYXBwaW5nUG9vbEFzc2V0cwIWaW50ZXJuYWxBbW91bnRBc3NldFN0chVpbnRlcm5hbFByaWNlQXNzZXRTdHIJALkJAgkAzAgCAgQlZCVkCQDMCAIJAKQDAQUWaW50ZXJuYWxBbW91bnRBc3NldFN0cgkAzAgCCQCkAwEFFWludGVybmFsUHJpY2VBc3NldFN0cgUDbmlsBQNTRVABFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQABBNtYW5hZ2VyVmF1bHRBZGRyZXNzCQEcZ2V0TWFuYWdlclZhdWx0QWRkcmVzc09yVGhpcwAEByRtYXRjaDAJAJ0IAgUTbWFuYWdlclZhdWx0QWRkcmVzcwkBE2tleU1hbmFnZXJQdWJsaWNLZXkAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkA2QQBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgEJaXNNYW5hZ2VyAQFpBAckbWF0Y2gwCQEWbWFuYWdlclB1YmxpY0tleU9yVW5pdAADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCcGsFByRtYXRjaDAJAAACCAUBaQ9jYWxsZXJQdWJsaWNLZXkFAnBrAwkAAQIFByRtYXRjaDACBFVuaXQJAAACCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgtNYXRjaCBlcnJvcgELbXVzdE1hbmFnZXIBAWkDCQEJaXNNYW5hZ2VyAQUBaQYJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAENZ2V0QWNjQmFsYW5jZQEHYXNzZXRJZAMJAAACBQdhc3NldElkAgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQdhc3NldElkAQ9zdHJpbmdUb0Fzc2V0SWQBDWFzc2V0SWRTdHJpbmcDCQAAAgUNYXNzZXRJZFN0cmluZwIFV0FWRVMFBHVuaXQJANkEAQUNYXNzZXRJZFN0cmluZwELZ2V0U3dhcEZlZXMBDnBvb2xBZGRyZXNzU3RyBA5wb29sRmVlRGVmYXVsdAkBBXZhbHVlAQkAmggCBQR0aGlzCQEHcG9vbEZlZQAEEnByb3RvY29sRmVlRGVmYXVsdAkBBXZhbHVlAQkAmggCBQR0aGlzCQELcHJvdG9jb2xGZWUABAckbWF0Y2gwCQD8BwQFD2ZhY3RvcnlDb250cmFjdAISZ2V0U3dhcEZlZVJFQURPTkxZCQDMCAIFDnBvb2xBZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQckbWF0Y2gwAgooSW50LCBJbnQpBARmZWVzBQckbWF0Y2gwCQCUCgIIBQRmZWVzAl8xCAUEZmVlcwJfMgkAlAoCBQ5wb29sRmVlRGVmYXVsdAUScHJvdG9jb2xGZWVEZWZhdWx0ASBnZXRQb29sQWRkcmVzc0FuZENoZWNrUG9vbFN0YXR1cwIHYXNzZXRJbghhc3NldE91dAQMbHBOb25SZXZlcnNlCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCIGdldExwQXNzZXRGcm9tUG9vbEFzc2V0c1JFQURPTkxZCQDMCAIFB2Fzc2V0SW4JAMwIAgUIYXNzZXRPdXQFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAUEdW5pdAQJbHBSZXZlcnNlCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCIGdldExwQXNzZXRGcm9tUG9vbEFzc2V0c1JFQURPTkxZCQDMCAIFCGFzc2V0T3V0CQDMCAIFB2Fzc2V0SW4FA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAUEdW5pdAQLJHQwMzEyODM1ODcDCQECIT0CBQxscE5vblJldmVyc2UFBHVuaXQEBHBvb2wKAAFACQD8BwQFD2ZhY3RvcnlDb250cmFjdAIhZ2V0UG9vbEFkZHJlc3NGcm9tTHBBc3NldFJFQURPTkxZCQDMCAIJAQV2YWx1ZQEFDGxwTm9uUmV2ZXJzZQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nCQCUCgIHBQRwb29sAwkBAiE9AgUJbHBSZXZlcnNlBQR1bml0BARwb29sCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCIWdldFBvb2xBZGRyZXNzRnJvbUxwQXNzZXRSRUFET05MWQkAzAgCCQEFdmFsdWUBBQlscFJldmVyc2UFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAlAoCBgUEcG9vbAUMcG9vbE5vdEV4aXN0BAlpc1JldmVyc2UIBQskdDAzMTI4MzU4NwJfMQQEcG9vbAgFCyR0MDMxMjgzNTg3Al8yBApwb29sU3RhdHVzCgABQAkA/AcEBQ9mYWN0b3J5Q29udHJhY3QCFWdldFBvb2xTdGF0dXNSRUFET05MWQkAzAgCBQRwb29sBQNuaWwFA25pbAMJAAECBQFAAgNJbnQFAUAJAAIBCQCsAgIJAAMBBQFAAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQEBWNoZWNrAwkAAAIFCnBvb2xTdGF0dXMAAQYFDHBvb2xEaXNhYmxlZAMJAAACBQVjaGVjawUFY2hlY2sEB3Bvb2xBZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIFBHBvb2wCAAkAlAoCBQdwb29sQWRyBQlpc1JldmVyc2UJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CAWkBFXN3YXBDYWxjdWxhdGVSRUFET05MWQMIYW1vdW50SW4HYXNzZXRJbghhc3NldE91dAQLJHQwMzk4MzQwNjEJASBnZXRQb29sQWRkcmVzc0FuZENoZWNrUG9vbFN0YXR1cwIFB2Fzc2V0SW4FCGFzc2V0T3V0BAdwb29sQWRyCAULJHQwMzk4MzQwNjECXzEECWlzUmV2ZXJzZQgFCyR0MDM5ODM0MDYxAl8yBAskdDA0MDY1NDExNwkBC2dldFN3YXBGZWVzAQkApQgBBQdwb29sQWRyBAVwbEZlZQgFCyR0MDQwNjU0MTE3Al8xBAVwckZlZQgFCyR0MDQwNjU0MTE3Al8yBBVmZWVQcm90b2NvbEFtb3VudENhbGMJALwCAwkAtgIBBQhhbW91bnRJbgkAtgIBBQVwckZlZQUIZmVlU2NhbGUEEWZlZVBvb2xBbW91bnRDYWxjCQC8AgMJALYCAQUIYW1vdW50SW4JALYCAQUFcGxGZWUFCGZlZVNjYWxlBBFmZWVQcm90b2NvbEFtb3VudAMJAAACCQCgAwEFFWZlZVByb3RvY29sQW1vdW50Q2FsYwAACQC2AgEAAQUVZmVlUHJvdG9jb2xBbW91bnRDYWxjBA1mZWVQb29sQW1vdW50AwkAAAIJAKADAQURZmVlUG9vbEFtb3VudENhbGMAAAkAtgIBAAEFEWZlZVBvb2xBbW91bnRDYWxjBA1jbGVhbkFtb3VudEluCQC4AgIJALgCAgkAtgIBBQhhbW91bnRJbgURZmVlUHJvdG9jb2xBbW91bnQFDWZlZVBvb2xBbW91bnQEA3JlcwoAAUAJAPwHBAUHcG9vbEFkcgIhY2FsY3VsYXRlQW1vdW50T3V0Rm9yU3dhcFJFQURPTkxZCQDMCAIJAKADAQUNY2xlYW5BbW91bnRJbgkAzAgCBQlpc1JldmVyc2UJAMwIAgkAoAMBBQ1mZWVQb29sQW1vdW50BQNuaWwFA25pbAMJAAECBQFAAgNJbnQFAUAJAAIBCQCsAgIJAAMBBQFAAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQJAJQKAgUDbmlsBQNyZXMBaQEEc3dhcAMMYW1vdW50T3V0TWluC2Fzc2V0T3V0UmF3CWFkZHJlc3NUbwQIYXNzZXRPdXQDCQAAAgULYXNzZXRPdXRSYXcCAAIFV0FWRVMFC2Fzc2V0T3V0UmF3BANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQHYXNzZXRJbgMJAAACCAUDcG10B2Fzc2V0SWQFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQIYW1vdW50SW4JAQV2YWx1ZQEIBQNwbXQGYW1vdW50BAskdDA1MTMwNTIwOAkBIGdldFBvb2xBZGRyZXNzQW5kQ2hlY2tQb29sU3RhdHVzAgUHYXNzZXRJbgUIYXNzZXRPdXQEB3Bvb2xBZHIIBQskdDA1MTMwNTIwOAJfMQQJaXNSZXZlcnNlCAULJHQwNTEzMDUyMDgCXzIECyR0MDUyMTE1MjYzCQELZ2V0U3dhcEZlZXMBCQClCAEFB3Bvb2xBZHIEBXBsRmVlCAULJHQwNTIxMTUyNjMCXzEEBXByRmVlCAULJHQwNTIxMTUyNjMCXzIEFWZlZVByb3RvY29sQW1vdW50Q2FsYwkAvAIDCQC2AgEFCGFtb3VudEluCQC2AgEFBXByRmVlBQhmZWVTY2FsZQQRZmVlUG9vbEFtb3VudENhbGMJALwCAwkAtgIBBQhhbW91bnRJbgkAtgIBBQVwbEZlZQUIZmVlU2NhbGUEC2FkZHJlc3NUb19hCQERQGV4dHJOYXRpdmUoMTA2MikBBQlhZGRyZXNzVG8EEWZlZVByb3RvY29sQW1vdW50AwkAAAIJAKADAQUVZmVlUHJvdG9jb2xBbW91bnRDYWxjAAAJALYCAQABBRVmZWVQcm90b2NvbEFtb3VudENhbGMEDWZlZVBvb2xBbW91bnQDCQAAAgkAoAMBBRFmZWVQb29sQW1vdW50Q2FsYwAACQC2AgEAAQURZmVlUG9vbEFtb3VudENhbGMEDWNsZWFuQW1vdW50SW4DCQAAAgUJaXNSZXZlcnNlBgkAuAICCQC4AgIJALYCAQUIYW1vdW50SW4FEWZlZVByb3RvY29sQW1vdW50BQ1mZWVQb29sQW1vdW50CQC4AgIJALYCAQUIYW1vdW50SW4FDWZlZVBvb2xBbW91bnQEBmNoZWNrcwkAzAgCAwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQYJAAIBAh5leGFjdGx5IDEgcGF5bWVudCBhcmUgZXhwZWN0ZWQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQWYXNzZXRJbkF0dGFjaGVkUGF5bWVudAkBD3N0cmluZ1RvQXNzZXRJZAEFB2Fzc2V0SW4EC3RvdGFsR2V0UmF3CgABQAkA/AcEBQdwb29sQWRyAiZjYWxjdWxhdGVBbW91bnRPdXRGb3JTd2FwQW5kU2VuZFRva2VucwkAzAgCCQCgAwEFDWNsZWFuQW1vdW50SW4JAMwIAgUJaXNSZXZlcnNlCQDMCAIFDGFtb3VudE91dE1pbgkAzAgCBQR0aGlzCQDMCAIJAKADAQUNZmVlUG9vbEFtb3VudAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBRZhc3NldEluQXR0YWNoZWRQYXltZW50CQCgAwEFDWNsZWFuQW1vdW50SW4FA25pbAMJAAECBQFAAgNJbnQFAUAJAAIBCQCsAgIJAAMBBQFAAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQECyR0MDY1MDY3MTAwAwkAAAIFCWlzUmV2ZXJzZQYJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRNmZWVDb2xsZWN0b3JBZGRyZXNzCQCgAwEFEWZlZVByb3RvY29sQW1vdW50BRZhc3NldEluQXR0YWNoZWRQYXltZW50BQNuaWwFC3RvdGFsR2V0UmF3BBZmZWVQcm90b2NvbEZyb21HZXRDYWxjCQC8AgMJALYCAQULdG90YWxHZXRSYXcJALYCAQUFcHJGZWUFCGZlZVNjYWxlBBhmZWVQcm90b2NvbEFtb3VudEZyb21HZXQDCQAAAgkAoAMBBRZmZWVQcm90b2NvbEZyb21HZXRDYWxjAAAJAKADAQkAtgIBAAEJAKADAQUWZmVlUHJvdG9jb2xGcm9tR2V0Q2FsYwkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE2ZlZUNvbGxlY3RvckFkZHJlc3MFGGZlZVByb3RvY29sQW1vdW50RnJvbUdldAkBD3N0cmluZ1RvQXNzZXRJZAEFCGFzc2V0T3V0BQNuaWwJAGUCBQt0b3RhbEdldFJhdwUYZmVlUHJvdG9jb2xBbW91bnRGcm9tR2V0BBJwcm90b2NvbEZlZUFjdGlvbnMIBQskdDA2NTA2NzEwMAJfMQQLbmV3VG90YWxHZXQIBQskdDA2NTA2NzEwMAJfMgkAlAoCCQDOCAIFEnByb3RvY29sRmVlQWN0aW9ucwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQdwb29sQWRyCQCgAwEFDWZlZVBvb2xBbW91bnQFFmFzc2V0SW5BdHRhY2hlZFBheW1lbnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULYWRkcmVzc1RvX2EFC25ld1RvdGFsR2V0CQEPc3RyaW5nVG9Bc3NldElkAQUIYXNzZXRPdXQFA25pbAULbmV3VG90YWxHZXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkABA90YXJnZXRQdWJsaWNLZXkEByRtYXRjaDAJARZtYW5hZ2VyUHVibGljS2V5T3JVbml0AAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJwawUHJG1hdGNoMAUCcGsDCQABAgUHJG1hdGNoMAIEVW5pdAgFAnR4D3NlbmRlclB1YmxpY0tleQkAAgECC01hdGNoIGVycm9yCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQ90YXJnZXRQdWJsaWNLZXnz+huy", "chainId": 84, "height": 3194820, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: iagmBQd5s4ACoPgKuu5dDpiEWRo7oDUQSJ43x9jpEQA Next: EtVYfFaBUbs2evGPSU4RvB9nEUHYpAzej2tNzNm6ijmM Diff:
OldNewDifferences
100100 else assetBalance(this, fromBase58String(H))
101101
102102
103-func I (J) = {
104- let K = value(getInteger(this, m()))
105- let L = value(getInteger(this, l()))
106- let s = invoke(k, "getSwapFeeREADONLY", [J], nil)
103+func I (J) = if ((J == "WAVES"))
104+ then unit
105+ else fromBase58String(J)
106+
107+
108+func K (L) = {
109+ let M = value(getInteger(this, m()))
110+ let N = value(getInteger(this, l()))
111+ let s = invoke(k, "getSwapFeeREADONLY", [L], nil)
107112 if ($isInstanceOf(s, "(Int, Int)"))
108113 then {
109- let M = s
110- $Tuple2(M._1, M._2)
114+ let O = s
115+ $Tuple2(O._1, O._2)
111116 }
112- else $Tuple2(K, L)
117+ else $Tuple2(M, N)
113118 }
114119
115120
116-func N (O,P) = {
117- let Q = {
118- let R = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [O, P], nil)
119- if ($isInstanceOf(R, "String"))
120- then R
121+func P (Q,R) = {
122+ let S = {
123+ let T = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [Q, R], nil)
124+ if ($isInstanceOf(T, "String"))
125+ then T
121126 else unit
122127 }
123- let S = {
124- let R = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [P, O], nil)
125- if ($isInstanceOf(R, "String"))
126- then R
128+ let U = {
129+ let T = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [R, Q], nil)
130+ if ($isInstanceOf(T, "String"))
131+ then T
127132 else unit
128133 }
129- let T = if ((Q != unit))
134+ let V = if ((S != unit))
130135 then {
131- let U = {
132- let R = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(Q)], nil)
133- if ($isInstanceOf(R, "String"))
134- then R
135- else throw(($getType(R) + " couldn't be cast to String"))
136+ let W = {
137+ let T = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(S)], nil)
138+ if ($isInstanceOf(T, "String"))
139+ then T
140+ else throw(($getType(T) + " couldn't be cast to String"))
136141 }
137- $Tuple2(false, U)
142+ $Tuple2(false, W)
138143 }
139- else if ((S != unit))
144+ else if ((U != unit))
140145 then {
141- let U = {
142- let R = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(S)], nil)
143- if ($isInstanceOf(R, "String"))
144- then R
145- else throw(($getType(R) + " couldn't be cast to String"))
146+ let W = {
147+ let T = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(U)], nil)
148+ if ($isInstanceOf(T, "String"))
149+ then T
150+ else throw(($getType(T) + " couldn't be cast to String"))
146151 }
147- $Tuple2(true, U)
152+ $Tuple2(true, W)
148153 }
149154 else f
150- let V = T._1
151- let U = T._2
152- let W = {
153- let R = invoke(k, "getPoolStatusREADONLY", [U], nil)
154- if ($isInstanceOf(R, "Int"))
155- then R
156- else throw(($getType(R) + " couldn't be cast to Int"))
155+ let X = V._1
156+ let W = V._2
157+ let Y = {
158+ let T = invoke(k, "getPoolStatusREADONLY", [W], nil)
159+ if ($isInstanceOf(T, "Int"))
160+ then T
161+ else throw(($getType(T) + " couldn't be cast to Int"))
157162 }
158- let X = if ((W == 1))
163+ let Z = if ((Y == 1))
159164 then true
160165 else e
161- if ((X == X))
166+ if ((Z == Z))
162167 then {
163- let Y = addressFromStringValue(valueOrElse(U, ""))
164- $Tuple2(Y, V)
168+ let aa = addressFromStringValue(valueOrElse(W, ""))
169+ $Tuple2(aa, X)
165170 }
166171 else throw("Strict value is not equal to itself.")
167172 }
168173
169174
170175 @Callable(D)
171-func swapCalculateREADONLY (Z,O,P) = {
172- let aa = N(O, P)
173- let Y = aa._1
174- let V = aa._2
175- let ab = I(toString(Y))
176- let ac = ab._1
177- let ad = ab._2
178- let ae = fraction(toBigInt(Z), toBigInt(ad), b)
179- let af = fraction(toBigInt(Z), toBigInt(ac), b)
180- let ag = if ((toInt(ae) == 0))
176+func swapCalculateREADONLY (ab,Q,R) = {
177+ let ac = P(Q, R)
178+ let aa = ac._1
179+ let X = ac._2
180+ let ad = K(toString(aa))
181+ let ae = ad._1
182+ let af = ad._2
183+ let ag = fraction(toBigInt(ab), toBigInt(af), b)
184+ let ah = fraction(toBigInt(ab), toBigInt(ae), b)
185+ let ai = if ((toInt(ag) == 0))
181186 then toBigInt(1)
182- else ae
183- let ah = if ((toInt(af) == 0))
187+ else ag
188+ let aj = if ((toInt(ah) == 0))
184189 then toBigInt(1)
185- else af
186- let ai = ((toBigInt(Z) - ag) - ah)
187- let aj = {
188- let R = invoke(Y, "calculateAmountOutForSwapREADONLY", [toInt(ai), V, toInt(ah)], nil)
189- if ($isInstanceOf(R, "Int"))
190- then R
191- else throw(($getType(R) + " couldn't be cast to Int"))
190+ else ah
191+ let ak = ((toBigInt(ab) - ai) - aj)
192+ let al = {
193+ let T = invoke(aa, "calculateAmountOutForSwapREADONLY", [toInt(ak), X, toInt(aj)], nil)
194+ if ($isInstanceOf(T, "Int"))
195+ then T
196+ else throw(($getType(T) + " couldn't be cast to Int"))
192197 }
193- $Tuple2(nil, aj)
198+ $Tuple2(nil, al)
194199 }
195200
196201
197202
198203 @Callable(D)
199-func swap (ak,al,am) = {
200- let P = if ((al == ""))
204+func swap (am,an,ao) = {
205+ let R = if ((an == ""))
201206 then "WAVES"
202- else al
203- let an = value(D.payments[0])
204- let O = if ((an.assetId == unit))
207+ else an
208+ let ap = value(D.payments[0])
209+ let Q = if ((ap.assetId == unit))
205210 then "WAVES"
206- else toBase58String(value(an.assetId))
207- let Z = value(an.amount)
208- let ao = N(O, P)
209- let Y = ao._1
210- let V = ao._2
211- let ap = I(toString(Y))
212- let ac = ap._1
213- let ad = ap._2
214- let ae = fraction(toBigInt(Z), toBigInt(ad), b)
215- let af = fraction(toBigInt(Z), toBigInt(ac), b)
216- let ag = if ((toInt(ae) == 0))
211+ else toBase58String(value(ap.assetId))
212+ let ab = value(ap.amount)
213+ let aq = P(Q, R)
214+ let aa = aq._1
215+ let X = aq._2
216+ let ar = K(toString(aa))
217+ let ae = ar._1
218+ let af = ar._2
219+ let ag = fraction(toBigInt(ab), toBigInt(af), b)
220+ let ah = fraction(toBigInt(ab), toBigInt(ae), b)
221+ let as = addressFromStringValue(ao)
222+ let ai = if ((toInt(ag) == 0))
217223 then toBigInt(1)
218- else ae
219- let ah = if ((toInt(af) == 0))
224+ else ag
225+ let aj = if ((toInt(ah) == 0))
220226 then toBigInt(1)
221- else af
222- let ai = ((toBigInt(Z) - ag) - ah)
223- let aq = [if ((size(D.payments) == 1))
227+ else ah
228+ let ak = if ((X == true))
229+ then ((toBigInt(ab) - ai) - aj)
230+ else (toBigInt(ab) - aj)
231+ let at = [if ((size(D.payments) == 1))
224232 then true
225233 else throw("exactly 1 payment are expected")]
226- if ((aq == aq))
234+ if ((at == at))
227235 then {
228- let ar = if ((O == "WAVES"))
229- then unit
230- else fromBase58String(O)
231- let as = {
232- let R = invoke(Y, "calculateAmountOutForSwapAndSendTokens", [toInt(ai), V, ak, am, toInt(ah)], [AttachedPayment(ar, toInt(ai))])
233- if ($isInstanceOf(R, "Int"))
234- then R
235- else throw(($getType(R) + " couldn't be cast to Int"))
236+ let au = I(Q)
237+ let av = {
238+ let T = invoke(aa, "calculateAmountOutForSwapAndSendTokens", [toInt(ak), X, am, this, toInt(aj)], [AttachedPayment(au, toInt(ak))])
239+ if ($isInstanceOf(T, "Int"))
240+ then T
241+ else throw(($getType(T) + " couldn't be cast to Int"))
236242 }
237- $Tuple2([ScriptTransfer(q, toInt(ag), ar), ScriptTransfer(Y, toInt(ah), ar)], as)
243+ let aw = if ((X == true))
244+ then $Tuple2([ScriptTransfer(q, toInt(ai), au)], av)
245+ else {
246+ let ax = fraction(toBigInt(av), toBigInt(af), b)
247+ let ay = if ((toInt(ax) == 0))
248+ then toInt(toBigInt(1))
249+ else toInt(ax)
250+ $Tuple2([ScriptTransfer(q, ay, I(R))], (av - ay))
251+ }
252+ let az = aw._1
253+ let aA = aw._2
254+ $Tuple2((az ++ [ScriptTransfer(aa, toInt(aj), au), ScriptTransfer(as, aA, I(R))]), aA)
238255 }
239256 else throw("Strict value is not equal to itself.")
240257 }
241258
242259
243-@Verifier(at)
244-func au () = {
245- let av = {
260+@Verifier(aB)
261+func aC () = {
262+ let aD = {
246263 let s = A()
247264 if ($isInstanceOf(s, "ByteVector"))
248265 then {
250267 E
251268 }
252269 else if ($isInstanceOf(s, "Unit"))
253- then at.senderPublicKey
270+ then aB.senderPublicKey
254271 else throw("Match error")
255272 }
256- sigVerify(at.bodyBytes, at.proofs[0], av)
273+ sigVerify(aB.bodyBytes, aB.proofs[0], aD)
257274 }
258275
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let a = "__"
55
66 let b = toBigInt(100000000)
77
88 func c (d) = valueOrErrorMessage(getString(this, d), ("No data for this.key=" + d))
99
1010
1111 let e = throw("Pool disabled")
1212
1313 let f = throw("Pool is not exist")
1414
1515 let g = throw("Slippage is too big")
1616
1717 func h () = "%s__managerPublicKey"
1818
1919
2020 func i () = "%s__managerVaultAddress"
2121
2222
2323 func j () = "%s__factoryContract"
2424
2525
2626 let k = addressFromStringValue(c(j()))
2727
2828 func l () = makeString(["%s", "protocolFee"], a)
2929
3030
3131 func m () = makeString(["%s", "poolFee"], a)
3232
3333
3434 func n (o,d) = valueOrErrorMessage(getString(o, d), makeString(["mandatory ", toString(o), ".", d, " is not defined"], ""))
3535
3636
3737 let p = "%s__feeCollectorAddress"
3838
3939 let q = addressFromStringValue(n(k, p))
4040
4141 func r () = {
4242 let s = getString(i())
4343 if ($isInstanceOf(s, "String"))
4444 then {
4545 let t = s
4646 addressFromStringValue(t)
4747 }
4848 else this
4949 }
5050
5151
5252 func u (v) = {
5353 let s = v
5454 if ($isInstanceOf(s, "Int"))
5555 then {
5656 let w = s
5757 w
5858 }
5959 else throw("fail to cast into Int")
6060 }
6161
6262
6363 func x (y,z) = makeString(["%d%d", toString(y), toString(z)], a)
6464
6565
6666 func A () = {
6767 let B = r()
6868 let s = getString(B, h())
6969 if ($isInstanceOf(s, "String"))
7070 then {
7171 let t = s
7272 fromBase58String(t)
7373 }
7474 else if ($isInstanceOf(s, "Unit"))
7575 then unit
7676 else throw("Match error")
7777 }
7878
7979
8080 func C (D) = {
8181 let s = A()
8282 if ($isInstanceOf(s, "ByteVector"))
8383 then {
8484 let E = s
8585 (D.callerPublicKey == E)
8686 }
8787 else if ($isInstanceOf(s, "Unit"))
8888 then (D.caller == this)
8989 else throw("Match error")
9090 }
9191
9292
9393 func F (D) = if (C(D))
9494 then true
9595 else throw("permission denied")
9696
9797
9898 func G (H) = if ((H == "WAVES"))
9999 then wavesBalance(this).available
100100 else assetBalance(this, fromBase58String(H))
101101
102102
103-func I (J) = {
104- let K = value(getInteger(this, m()))
105- let L = value(getInteger(this, l()))
106- let s = invoke(k, "getSwapFeeREADONLY", [J], nil)
103+func I (J) = if ((J == "WAVES"))
104+ then unit
105+ else fromBase58String(J)
106+
107+
108+func K (L) = {
109+ let M = value(getInteger(this, m()))
110+ let N = value(getInteger(this, l()))
111+ let s = invoke(k, "getSwapFeeREADONLY", [L], nil)
107112 if ($isInstanceOf(s, "(Int, Int)"))
108113 then {
109- let M = s
110- $Tuple2(M._1, M._2)
114+ let O = s
115+ $Tuple2(O._1, O._2)
111116 }
112- else $Tuple2(K, L)
117+ else $Tuple2(M, N)
113118 }
114119
115120
116-func N (O,P) = {
117- let Q = {
118- let R = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [O, P], nil)
119- if ($isInstanceOf(R, "String"))
120- then R
121+func P (Q,R) = {
122+ let S = {
123+ let T = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [Q, R], nil)
124+ if ($isInstanceOf(T, "String"))
125+ then T
121126 else unit
122127 }
123- let S = {
124- let R = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [P, O], nil)
125- if ($isInstanceOf(R, "String"))
126- then R
128+ let U = {
129+ let T = invoke(k, "getLpAssetFromPoolAssetsREADONLY", [R, Q], nil)
130+ if ($isInstanceOf(T, "String"))
131+ then T
127132 else unit
128133 }
129- let T = if ((Q != unit))
134+ let V = if ((S != unit))
130135 then {
131- let U = {
132- let R = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(Q)], nil)
133- if ($isInstanceOf(R, "String"))
134- then R
135- else throw(($getType(R) + " couldn't be cast to String"))
136+ let W = {
137+ let T = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(S)], nil)
138+ if ($isInstanceOf(T, "String"))
139+ then T
140+ else throw(($getType(T) + " couldn't be cast to String"))
136141 }
137- $Tuple2(false, U)
142+ $Tuple2(false, W)
138143 }
139- else if ((S != unit))
144+ else if ((U != unit))
140145 then {
141- let U = {
142- let R = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(S)], nil)
143- if ($isInstanceOf(R, "String"))
144- then R
145- else throw(($getType(R) + " couldn't be cast to String"))
146+ let W = {
147+ let T = invoke(k, "getPoolAddressFromLpAssetREADONLY", [value(U)], nil)
148+ if ($isInstanceOf(T, "String"))
149+ then T
150+ else throw(($getType(T) + " couldn't be cast to String"))
146151 }
147- $Tuple2(true, U)
152+ $Tuple2(true, W)
148153 }
149154 else f
150- let V = T._1
151- let U = T._2
152- let W = {
153- let R = invoke(k, "getPoolStatusREADONLY", [U], nil)
154- if ($isInstanceOf(R, "Int"))
155- then R
156- else throw(($getType(R) + " couldn't be cast to Int"))
155+ let X = V._1
156+ let W = V._2
157+ let Y = {
158+ let T = invoke(k, "getPoolStatusREADONLY", [W], nil)
159+ if ($isInstanceOf(T, "Int"))
160+ then T
161+ else throw(($getType(T) + " couldn't be cast to Int"))
157162 }
158- let X = if ((W == 1))
163+ let Z = if ((Y == 1))
159164 then true
160165 else e
161- if ((X == X))
166+ if ((Z == Z))
162167 then {
163- let Y = addressFromStringValue(valueOrElse(U, ""))
164- $Tuple2(Y, V)
168+ let aa = addressFromStringValue(valueOrElse(W, ""))
169+ $Tuple2(aa, X)
165170 }
166171 else throw("Strict value is not equal to itself.")
167172 }
168173
169174
170175 @Callable(D)
171-func swapCalculateREADONLY (Z,O,P) = {
172- let aa = N(O, P)
173- let Y = aa._1
174- let V = aa._2
175- let ab = I(toString(Y))
176- let ac = ab._1
177- let ad = ab._2
178- let ae = fraction(toBigInt(Z), toBigInt(ad), b)
179- let af = fraction(toBigInt(Z), toBigInt(ac), b)
180- let ag = if ((toInt(ae) == 0))
176+func swapCalculateREADONLY (ab,Q,R) = {
177+ let ac = P(Q, R)
178+ let aa = ac._1
179+ let X = ac._2
180+ let ad = K(toString(aa))
181+ let ae = ad._1
182+ let af = ad._2
183+ let ag = fraction(toBigInt(ab), toBigInt(af), b)
184+ let ah = fraction(toBigInt(ab), toBigInt(ae), b)
185+ let ai = if ((toInt(ag) == 0))
181186 then toBigInt(1)
182- else ae
183- let ah = if ((toInt(af) == 0))
187+ else ag
188+ let aj = if ((toInt(ah) == 0))
184189 then toBigInt(1)
185- else af
186- let ai = ((toBigInt(Z) - ag) - ah)
187- let aj = {
188- let R = invoke(Y, "calculateAmountOutForSwapREADONLY", [toInt(ai), V, toInt(ah)], nil)
189- if ($isInstanceOf(R, "Int"))
190- then R
191- else throw(($getType(R) + " couldn't be cast to Int"))
190+ else ah
191+ let ak = ((toBigInt(ab) - ai) - aj)
192+ let al = {
193+ let T = invoke(aa, "calculateAmountOutForSwapREADONLY", [toInt(ak), X, toInt(aj)], nil)
194+ if ($isInstanceOf(T, "Int"))
195+ then T
196+ else throw(($getType(T) + " couldn't be cast to Int"))
192197 }
193- $Tuple2(nil, aj)
198+ $Tuple2(nil, al)
194199 }
195200
196201
197202
198203 @Callable(D)
199-func swap (ak,al,am) = {
200- let P = if ((al == ""))
204+func swap (am,an,ao) = {
205+ let R = if ((an == ""))
201206 then "WAVES"
202- else al
203- let an = value(D.payments[0])
204- let O = if ((an.assetId == unit))
207+ else an
208+ let ap = value(D.payments[0])
209+ let Q = if ((ap.assetId == unit))
205210 then "WAVES"
206- else toBase58String(value(an.assetId))
207- let Z = value(an.amount)
208- let ao = N(O, P)
209- let Y = ao._1
210- let V = ao._2
211- let ap = I(toString(Y))
212- let ac = ap._1
213- let ad = ap._2
214- let ae = fraction(toBigInt(Z), toBigInt(ad), b)
215- let af = fraction(toBigInt(Z), toBigInt(ac), b)
216- let ag = if ((toInt(ae) == 0))
211+ else toBase58String(value(ap.assetId))
212+ let ab = value(ap.amount)
213+ let aq = P(Q, R)
214+ let aa = aq._1
215+ let X = aq._2
216+ let ar = K(toString(aa))
217+ let ae = ar._1
218+ let af = ar._2
219+ let ag = fraction(toBigInt(ab), toBigInt(af), b)
220+ let ah = fraction(toBigInt(ab), toBigInt(ae), b)
221+ let as = addressFromStringValue(ao)
222+ let ai = if ((toInt(ag) == 0))
217223 then toBigInt(1)
218- else ae
219- let ah = if ((toInt(af) == 0))
224+ else ag
225+ let aj = if ((toInt(ah) == 0))
220226 then toBigInt(1)
221- else af
222- let ai = ((toBigInt(Z) - ag) - ah)
223- let aq = [if ((size(D.payments) == 1))
227+ else ah
228+ let ak = if ((X == true))
229+ then ((toBigInt(ab) - ai) - aj)
230+ else (toBigInt(ab) - aj)
231+ let at = [if ((size(D.payments) == 1))
224232 then true
225233 else throw("exactly 1 payment are expected")]
226- if ((aq == aq))
234+ if ((at == at))
227235 then {
228- let ar = if ((O == "WAVES"))
229- then unit
230- else fromBase58String(O)
231- let as = {
232- let R = invoke(Y, "calculateAmountOutForSwapAndSendTokens", [toInt(ai), V, ak, am, toInt(ah)], [AttachedPayment(ar, toInt(ai))])
233- if ($isInstanceOf(R, "Int"))
234- then R
235- else throw(($getType(R) + " couldn't be cast to Int"))
236+ let au = I(Q)
237+ let av = {
238+ let T = invoke(aa, "calculateAmountOutForSwapAndSendTokens", [toInt(ak), X, am, this, toInt(aj)], [AttachedPayment(au, toInt(ak))])
239+ if ($isInstanceOf(T, "Int"))
240+ then T
241+ else throw(($getType(T) + " couldn't be cast to Int"))
236242 }
237- $Tuple2([ScriptTransfer(q, toInt(ag), ar), ScriptTransfer(Y, toInt(ah), ar)], as)
243+ let aw = if ((X == true))
244+ then $Tuple2([ScriptTransfer(q, toInt(ai), au)], av)
245+ else {
246+ let ax = fraction(toBigInt(av), toBigInt(af), b)
247+ let ay = if ((toInt(ax) == 0))
248+ then toInt(toBigInt(1))
249+ else toInt(ax)
250+ $Tuple2([ScriptTransfer(q, ay, I(R))], (av - ay))
251+ }
252+ let az = aw._1
253+ let aA = aw._2
254+ $Tuple2((az ++ [ScriptTransfer(aa, toInt(aj), au), ScriptTransfer(as, aA, I(R))]), aA)
238255 }
239256 else throw("Strict value is not equal to itself.")
240257 }
241258
242259
243-@Verifier(at)
244-func au () = {
245- let av = {
260+@Verifier(aB)
261+func aC () = {
262+ let aD = {
246263 let s = A()
247264 if ($isInstanceOf(s, "ByteVector"))
248265 then {
249266 let E = s
250267 E
251268 }
252269 else if ($isInstanceOf(s, "Unit"))
253- then at.senderPublicKey
270+ then aB.senderPublicKey
254271 else throw("Match error")
255272 }
256- sigVerify(at.bodyBytes, at.proofs[0], av)
273+ sigVerify(aB.bodyBytes, aB.proofs[0], aD)
257274 }
258275

github/deemru/w8io/169f3d6 
58.01 ms