tx · GsVnsydJmGXQJ8rHDvu12Sns6DHyTwJ9KbT9SN6ny1jC

3PP7Hn6RodpJgWzxPT4YLfirunyF2RMnNNt:  -0.01300000 Waves

2024.04.12 20:33 [4125826] smart account 3PP7Hn6RodpJgWzxPT4YLfirunyF2RMnNNt > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GsVnsydJmGXQJ8rHDvu12Sns6DHyTwJ9KbT9SN6ny1jC",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1712943255926,
    "version": 2,
    "chainId": 87,
    "sender": "3PP7Hn6RodpJgWzxPT4YLfirunyF2RMnNNt",
    "senderPublicKey": "5Htdw89Brdi28PfJ8QZnSNDccuDTwnmMaicBCTyBceJ9",
    "proofs": [
        "ji6bvScZyUB6nEgD9KDp3UVcPsksMtBhZiUet6EnTzacXM9uUWhKipq5WHVGwZHQxfJ1HZqzVpaozSitPyKnroF"
    ],
    "script": "base64:AAIFAAAAAAAABFIIAhIFCgMICAESBwoFCAgIAQgSBgoECAgBCBIECgIIARIECgIIARIECgIIASIMdHJ5R2V0U3RyaW5nIgNrZXkiByRtYXRjaDAiAWIiDmdldEFzc2V0U3RyaW5nIgdhc3NldElkIg1nZXRBc3NldEJ5dGVzIgphc3NldElkU3RyIgpnZXRCYWxhbmNlIgF4IhRjYWxjdWxhdGVNaW5Ub0dldFB6bCIKYW1tQWRkcmVzcyIGYXNzZXQxIgZhc3NldDIiDGFtb3VudFRvU3dhcCIGU2NhbGU4IghGZWVTY2FsZSIHYWRkcmVzcyIJa0JhbGFuY2VBIg9BX2Fzc2V0X2JhbGFuY2UiCWtCYWxhbmNlQiIPQl9hc3NldF9iYWxhbmNlIghrV2VpZ2h0QSIIa1dlaWdodEIiB3dlaWdodEEiB3dlaWdodEIiA0ZlZSIFdG9HZXQiCWZlZUFtb3VudCIOY2xlYW5BbW91bnRPdXQiDWNhbGN1bGF0ZUZlZXMiCXBtdEFtb3VudCIJdG9rZW5Gcm9tIgd0b2tlblRvIgNmZWUiCWZlZVNjYWxlNiIQYW1vdW50V2l0aG91dEZlZSINYW1vdW50V2l0aEZlZSIVY2FsY3VsYXRlTWluVG9HZXRTd29wIglrQXNzZXRJZEEiCWtBc3NldElkQiIEa0ZlZSILc3RyQXNzZXRJZEEiC3N0ckFzc2V0SWRCIghhc3NldElkQSIIYXNzZXRJZEIiCGJhbGFuY2VBIghiYWxhbmNlQiIFYXNJbnQiBXZhbHVlIgNpbnQiBnN0cmluZyIOYXNTd29wUmVzcG9uc2UiA2ludiILJHQwMzc0MTM3NzkiC2Fzc2V0SWRTZW5kIgRsaXN0IgFpIghhc3NldE91dCIHbWluaW11bSIDcG10IghBbW91bnRJbiIHQXNzZXRJbiIIbWluVG9HZXQiAnR4IgR0eXBlIglhbW91bnRPdXQiCXJvdXRlc1N0ciIJYmFsYW5jZUluIgxzd2FwVmFsaWRhdGUiCGFtb3VudEluIgRzd2FwIghzd2FwTGlzdCIEZEFwcCIJZnJvbUFzc2V0Igd0b0Fzc2V0IgxieXRlc0Fzc2V0SW4iDWJ5dGVzQXNzZXRPdXQiFGZvckVhY2hSb3V0ZVZhbGlkYXRlIgphY2N1bVJvdXRlIgVyb3V0ZSIIcGF0aExpc3QiC3N3YXBSZXN1bHRzIgIkbCICJHMiBSRhY2MwIgUkZjBfMSICJGEiAiRpIgUkZjBfMiIKcm91dGVzTGlzdCIRdmFsaWRhdGVNaW5BbW91bnQiDG1pblRvUmVjZWl2ZSIHYXNzZXRJbiINYmFsYW5jZUJlZm9yZSIMYmFsYW5jZUFmdGVyIgxmb3JFYWNoUm91dGUiCW91dEFtb3VudCIFJGYxXzEiBSRmMV8yIgthc3NldE91dFN0ciIQYXNzZXRJbkZyb21Sb3V0ZQAAAAkBAAAAAWEAAAABAAAAAWIEAAAAAWMJAAQdAAAAAgUAAAAEdGhpcwUAAAABYgMJAAABAAAAAgUAAAABYwIAAAAGU3RyaW5nBAAAAAFkBQAAAAFjBQAAAAFkAgAAAAABAAAAAWUAAAABAAAAAWYEAAAAAWMFAAAAAWYDCQAAAQAAAAIFAAAAAWMCAAAACkJ5dGVWZWN0b3IEAAAAAWQFAAAAAWMJAAJYAAAAAQUAAAABZAIAAAAFV0FWRVMBAAAAAWcAAAABAAAAAWgDCQAAAAAAAAIFAAAAAWgCAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAAAWgBAAAAAWkAAAABAAAAAWYEAAAAAWMFAAAAAWYDCQAAAQAAAAIFAAAAAWMCAAAABFVuaXQEAAAAAWoFAAAAAWMICQAD7wAAAAEFAAAABHRoaXMAAAAJYXZhaWxhYmxlCQAD8AAAAAIFAAAABHRoaXMJAQAAAAV2YWx1ZQAAAAEFAAAAAWYBAAAAAWsAAAAEAAAAAWwAAAABbQAAAAFuAAAAAW8EAAAAAXAAAAAAAAX14QAEAAAAAXEAAAAAAAAAJxAEAAAAAXIJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAAAWwEAAAAAXMJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfBQAAAAFtAgAAAAhfYmFsYW5jZQQAAAABdAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAABcgUAAAABcwQAAAABdQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAAAW4CAAAACF9iYWxhbmNlBAAAAAF2CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAFyBQAAAAF1BAAAAAF3CQABLAAAAAIJAAEsAAAAAgIAAAAHc3RhdGljXwUAAAABbQIAAAAHX3dlaWdodAQAAAABeAkAASwAAAACCQABLAAAAAICAAAAB3N0YXRpY18FAAAAAW4CAAAAB193ZWlnaHQEAAAAAXkJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAAXIFAAAAAXcEAAAAAXoJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAAXIFAAAAAXgEAAAAAUEJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAAXICAAAACnN0YXRpY19mZWUEAAAAAUIJAQAAAAhmcmFjdGlvbgAAAAQFAAAAAXYJAABlAAAAAgkAAGgAAAACBQAAAAFwBQAAAAFwCQABoAAAAAEJAAB2AAAABgkAAT0AAAAECQABNgAAAAEFAAAAAXQJAAE2AAAAAQkAAGgAAAACBQAAAAFwBQAAAAFwCQABNgAAAAEJAABkAAAAAgUAAAABdAUAAAABbwUAAAAGSEFMRlVQAAAAAAAAAAAQCQABNgAAAAEJAABrAAAAAwUAAAABeQAAAAAAAAAnEAUAAAABegAAAAAAAAAABAAAAAAAAAAAEAUAAAAHQ0VJTElORwkAAGgAAAACBQAAAAFwBQAAAAFwBQAAAARET1dOBAAAAAFDCQAAawAAAAMFAAAAAUIFAAAAAUEFAAAAAXEDCQAAAAAAAAIFAAAAAUMFAAAAAUMEAAAAAUQJAABlAAAAAgUAAAABQgUAAAABQwMJAAAAAAAAAgUAAAABRAUAAAABRAUAAAABRAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQAAAAFFAAAABAAAAAFGAAAAAUcAAAABSAAAAAFJBAAAAAFKAAAAAAAAD0JABAAAAAFLCQAAawAAAAMFAAAAAUgFAAAAAUYJAABkAAAAAgUAAAABRgUAAAABRwQAAAABTAkAAGsAAAADBQAAAAFLCQAAZQAAAAIFAAAAAUoFAAAAAUkFAAAAAUoFAAAAAUwBAAAAAU0AAAAEAAAAAWwAAAABbQAAAAFuAAAAAW8EAAAAAXIJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAAAWwEAAAAAXMCAAAAD0FfYXNzZXRfYmFsYW5jZQQAAAABdQIAAAAPQl9hc3NldF9iYWxhbmNlBAAAAAFOAgAAAApBX2Fzc2V0X2lkBAAAAAFPAgAAAApCX2Fzc2V0X2lkBAAAAAFQAgAAAApjb21taXNzaW9uBAAAAAFRCQEAAAARQGV4dHJOYXRpdmUoMTA1MykAAAACBQAAAAFyBQAAAAFOBAAAAAFSCQEAAAARQGV4dHJOYXRpdmUoMTA1MykAAAACBQAAAAFyBQAAAAFPBAAAAAFTCQEAAAABZwAAAAEFAAAAAVEEAAAAAVQJAQAAAAFnAAAAAQUAAAABUgQAAAABSQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAABcgUAAAABUAQAAAABVQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAABcgUAAAABcwQAAAABVgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAABcgUAAAABdQMDCQAAAAAAAAIFAAAAAVUAAAAAAAAAAAAGCQAAAAAAAAIFAAAAAVYAAAAAAAAAAAAJAAACAAAAAQIAAAAgQ2FuJ3QgZXhjaGFuZ2Ugd2l0aCB6ZXJvIGJhbGFuY2UDCQAAAAAAAAIJAAJZAAAAAQUAAAABbQUAAAABUwkBAAAAAUUAAAAEBQAAAAFvBQAAAAFVBQAAAAFWBQAAAAFJAwkAAAAAAAACCQACWQAAAAEFAAAAAW0FAAAAAVQJAQAAAAFFAAAABAUAAAABbwUAAAABVgUAAAABVQUAAAABSQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAACRJbmNvcnJlY3QgYXNzZXQgYXR0YWNoZWQuIEV4cGVjdGVkOiAFAAAAAVECAAAABCBvciAFAAAAAVIBAAAAAVcAAAABAAAAAVgEAAAAAWMFAAAAAVgDCQAAAQAAAAIFAAAAAWMCAAAAA0ludAQAAAABWQUAAAABYwUAAAABWQMJAAABAAAAAgUAAAABYwIAAAAGU3RyaW5nBAAAAAFaBQAAAAFjCQAAAgAAAAEJAAEsAAAAAgIAAAArV3JvbmcgdHlwZSwgZXhwZWN0ZWQ6IEludCwgYnV0IGdvdCBzdHJpbmc6IAUAAAABWgkAAAIAAAABAgAAABlXcm9uZyB0eXBlLCBleHBlY3RlZDogSW50AQAAAAJhYQAAAAEAAAABWAQAAAABYwUAAAABWAMJAAABAAAAAgUAAAABYwIAAAARKEludCwgQnl0ZVZlY3RvcikEAAAAAmFiBQAAAAFjBAAAAAJhYwUAAAACYWIEAAAAAUwIBQAAAAJhYwAAAAJfMQQAAAACYWQIBQAAAAJhYwAAAAJfMgUAAAABTAMJAAABAAAAAgUAAAABYwIAAAADSW50BAAAAAFZBQAAAAFjBQAAAAFZAwkAAAEAAAACBQAAAAFjAgAAAAlMaXN0W0FueV0EAAAAAmFlBQAAAAFjCQEAAAABVwAAAAEJAAGRAAAAAgUAAAACYWUAAAAAAAAAAAAJAAACAAAAAQIAAABBSW5jb3JyZWN0IGludm9rZSByZXN1bHQ6IGV4cGVjdGVkIGFtb3VudFdpdGhGZWUgYW5kIGFzc2V0c0lkU2VuZCAAAAAGAAAAAmFmAQAAAAxzd2FwQW5kQ2hlY2sAAAADAAAAAWwAAAACYWcAAAACYWgEAAAAAmFpCQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAJhZgAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAACYWoJAQAAAAV2YWx1ZQAAAAEICQABkQAAAAIIBQAAAAJhZgAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQEAAAAAmFrCAUAAAACYWkAAAAHYXNzZXRJZAQAAAACYWwJAQAAAAFrAAAABAUAAAABbAkBAAAAAWUAAAABBQAAAAJhawUAAAACYWcFAAAAAmFqAwkAAAAAAAACBQAAAAJhbAUAAAACYWwDCQAAZgAAAAIFAAAAAmFoBQAAAAJhbAkAAAIAAAABAgAAAB1FYXJseSBleGVjLCBub3QgZW5vdWdoIGZ1bmRzIQQAAAACYW0JAQAAAAFXAAAAAQkAA/wAAAAECQEAAAAHQWRkcmVzcwAAAAEJAAJZAAAAAQUAAAABbAIAAAAEc3dhcAkABEwAAAACBQAAAAJhZwkABEwAAAACBQAAAAJhaAUAAAADbmlsCAUAAAACYWYAAAAIcGF5bWVudHMDCQAAAAAAAAIFAAAAAmFtBQAAAAJhbQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAACYWYAAAAGY2FsbGVyBQAAAAJhbQkBAAAAAWcAAAABBQAAAAJhZwUAAAADbmlsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAACYWYBAAAADHJlYWRPbmx5RnVuYwAAAAUAAAABbAAAAAFtAAAAAW4AAAABbwAAAAJhbgQAAAACYW8DCQAAAAAAAAIFAAAAAmFuAgAAAANwemwJAQAAAAFrAAAABAUAAAABbAUAAAABbQUAAAABbgUAAAABbwkBAAAAAU0AAAAEBQAAAAFsBQAAAAFtBQAAAAFuBQAAAAFvCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAVERUJVRwUAAAACYW8FAAAAA25pbAAAAAJhZgEAAAAQc3dhcEFuZENoZWNrVHlwZQAAAAQAAAABbAAAAAJhZwAAAAJhaAAAAAJhbgQAAAACYWkJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAmFmAAAACHBheW1lbnRzAAAAAAAAAAAABAAAAAJhagkBAAAABXZhbHVlAAAAAQgJAAGRAAAAAggFAAAAAmFmAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAQAAAACYWsIBQAAAAJhaQAAAAdhc3NldElkBAAAAAJhbAMJAAAAAAAAAgUAAAACYW4CAAAAA3B6bAkBAAAAAWsAAAAEBQAAAAFsCQEAAAABZQAAAAEFAAAAAmFrBQAAAAJhZwUAAAACYWoJAQAAAAFNAAAABAUAAAABbAkBAAAAAWUAAAABBQAAAAJhawUAAAACYWcFAAAAAmFqAwkAAAAAAAACBQAAAAJhbAUAAAACYWwDCQAAZgAAAAIFAAAAAmFoBQAAAAJhbAkAAAIAAAABAgAAAB1FYXJseSBleGVjLCBub3QgZW5vdWdoIGZ1bmRzIQQAAAACYW0DCQAAAAAAAAIFAAAAAmFuAgAAAANwemwJAQAAAAFXAAAAAQkAA/wAAAAECQEAAAAHQWRkcmVzcwAAAAEJAAJZAAAAAQUAAAABbAIAAAAEc3dhcAkABEwAAAACBQAAAAJhZwkABEwAAAACBQAAAAJhaAUAAAADbmlsCAUAAAACYWYAAAAIcGF5bWVudHMJAQAAAAJhYQAAAAEJAAP8AAAABAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEFAAAAAWwCAAAACGV4Y2hhbmdlCQAETAAAAAIFAAAAAmFoBQAAAANuaWwIBQAAAAJhZgAAAAhwYXltZW50cwMJAAAAAAAAAgUAAAACYW0FAAAAAmFtCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAJhZgAAAAZjYWxsZXIFAAAAAmFtCQEAAAABZwAAAAEFAAAAAmFnBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAJhZgEAAAAWcmVhZE9ubHlGdW5jQWdncmVnYXRvcgAAAAIAAAACYXAAAAABbwQAAAACYXEFAAAAAW8KAQAAAAJhcgAAAAIAAAACYXMAAAACYXQEAAAAAmF1CQAEtQAAAAIFAAAAAmF0AgAAAAEsBAAAAAJhdgkAAZEAAAACBQAAAAJhdQAAAAAAAAAAAAQAAAACYXcJAAGRAAAAAgUAAAACYXUAAAAAAAAAAAEEAAAAAmF4CQABkQAAAAIFAAAAAmF1AAAAAAAAAAACBAAAAAJheQkBAAAAAWcAAAABBQAAAAJhdwQAAAACYXoJAQAAAAFnAAAAAQUAAAACYXgEAAAAAmFsCQEAAAABawAAAAQFAAAAAmF2BQAAAAJhdwUAAAACYXgFAAAAAmFzAwkAAAAAAAACBQAAAAJhbAUAAAACYWwFAAAAAmFsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoBAAAAAmFBAAAAAgAAAAJhQgAAAAJhQwQAAAACYUQJAAS1AAAAAgUAAAACYUMCAAAAATsEAAAAAmFFCgAAAAACYUYFAAAAAmFECgAAAAACYUcJAAGQAAAAAQUAAAACYUYKAAAAAAJhSAUAAAACYXEKAQAAAAJhSQAAAAIAAAACYUoAAAACYUsDCQAAZwAAAAIFAAAAAmFLBQAAAAJhRwUAAAACYUoJAQAAAAJhcgAAAAIFAAAAAmFKCQABkQAAAAIFAAAAAmFGBQAAAAJhSwoBAAAAAmFMAAAAAgAAAAJhSgAAAAJhSwMJAABnAAAAAgUAAAACYUsFAAAAAmFHBQAAAAJhSgkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA0CQEAAAACYUwAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACBQAAAAJhSAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAMJAAAAAAAAAgUAAAACYUUFAAAAAmFFCQAAZAAAAAIFAAAAAmFCBQAAAAJhRQkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAAAAAmFNCQAEtQAAAAIFAAAAAmFwAgAAAAF8BAAAAAJhTgoAAAAAAmFGBQAAAAJhTQoAAAAAAmFHCQABkAAAAAEFAAAAAmFGCgAAAAACYUgAAAAAAAAAAAAKAQAAAAJhSQAAAAIAAAACYUoAAAACYUsDCQAAZwAAAAIFAAAAAmFLBQAAAAJhRwUAAAACYUoJAQAAAAJhQQAAAAIFAAAAAmFKCQABkQAAAAIFAAAAAmFGBQAAAAJhSwoBAAAAAmFMAAAAAgAAAAJhSgAAAAJhSwMJAABnAAAAAgUAAAACYUsFAAAAAmFHBQAAAAJhSgkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyAyCQEAAAACYUwAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACBQAAAAJhSAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgMJAAAAAAAAAgUAAAACYU4FAAAAAmFOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAVERUJVRwUAAAACYU4FAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAACYWYBAAAADHN3YXBQcmVDaGVjawAAAAIAAAACYXAAAAACYU8EAAAAAmFxCAkAAZEAAAACCAUAAAACYWYAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BAAAAAJhUAgJAAGRAAAAAggFAAAAAmFmAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQKAQAAAAJhcgAAAAIAAAACYXMAAAACYXQEAAAAAmF1CQAEtQAAAAIFAAAAAmF0AgAAAAEsBAAAAAJhdgkAAZEAAAACBQAAAAJhdQAAAAAAAAAAAAQAAAACYXcJAAGRAAAAAgUAAAACYXUAAAAAAAAAAAEEAAAAAmF4CQABkQAAAAIFAAAAAmF1AAAAAAAAAAACBAAAAAJhbgMJAAAAAAAAAgkAAZAAAAABBQAAAAJhdQAAAAAAAAAABAkAAZEAAAACBQAAAAJhdQAAAAAAAAAAAwIAAAADcHpsBAAAAAJheQkBAAAAAWcAAAABBQAAAAJhdwQAAAACYXoJAQAAAAFnAAAAAQUAAAACYXgEAAAAAmFsAwkAAAAAAAACBQAAAAJhbgIAAAADcHpsCQEAAAABawAAAAQFAAAAAmF2BQAAAAJhdwUAAAACYXgFAAAAAmFzCQEAAAABTQAAAAQFAAAAAmF2BQAAAAJhdwUAAAACYXgFAAAAAmFzAwkAAAAAAAACBQAAAAJhbAUAAAACYWwFAAAAAmFsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoBAAAAAmF0AAAAAgAAAAJhcwAAAAJhdAQAAAACYXUJAAS1AAAAAgUAAAACYXQCAAAAASwEAAAAAmF2CQABkQAAAAIFAAAAAmF1AAAAAAAAAAAABAAAAAJhdwkAAZEAAAACBQAAAAJhdQAAAAAAAAAAAQQAAAACYXgJAAGRAAAAAgUAAAACYXUAAAAAAAAAAAIEAAAAAmFuAwkAAAAAAAACCQABkAAAAAEFAAAAAmF1AAAAAAAAAAAECQABkQAAAAIFAAAAAmF1AAAAAAAAAAADAgAAAANwemwEAAAAAmF5CQEAAAABZwAAAAEFAAAAAmF3BAAAAAJhegkBAAAAAWcAAAABBQAAAAJheAQAAAACYVEJAQAAAAFpAAAAAQUAAAACYXoDCQAAAAAAAAIFAAAAAmFRBQAAAAJhUQQAAAACYW0DCQAAAAAAAAIFAAAAAmFuAgAAAANwemwJAQAAAAFXAAAAAQkAA/wAAAAECQEAAAAHQWRkcmVzcwAAAAEJAAJZAAAAAQUAAAACYXYCAAAABHN3YXAJAARMAAAAAgUAAAACYXgJAARMAAAAAgAAAAAAAAAAAQUAAAADbmlsCAUAAAACYWYAAAAIcGF5bWVudHMJAQAAAAJhYQAAAAEJAAP8AAAABAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEFAAAAAmF2AgAAAAhleGNoYW5nZQkABEwAAAACAAAAAAAAAAABBQAAAANuaWwIBQAAAAJhZgAAAAhwYXltZW50cwMJAAAAAAAAAgUAAAACYW0FAAAAAmFtBAAAAAJhUgkBAAAAAWkAAAABBQAAAAJhegMJAAAAAAAAAgUAAAACYVIFAAAAAmFSCQAAZQAAAAIFAAAAAmFSBQAAAAJhUQkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoBAAAAAmFBAAAAAgAAAAJhQgAAAAJhQwQAAAACYUQJAAS1AAAAAgUAAAACYUMCAAAAATsEAAAAAmFFCgAAAAACYUYFAAAAAmFECgAAAAACYUcJAAGQAAAAAQUAAAACYUYKAAAAAAJhSAUAAAACYXEKAQAAAAJhSQAAAAIAAAACYUoAAAACYUsDCQAAZwAAAAIFAAAAAmFLBQAAAAJhRwUAAAACYUoJAQAAAAJhcgAAAAIFAAAAAmFKCQABkQAAAAIFAAAAAmFGBQAAAAJhSwoBAAAAAmFMAAAAAgAAAAJhSgAAAAJhSwMJAABnAAAAAgUAAAACYUsFAAAAAmFHBQAAAAJhSgkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA0CQEAAAACYUwAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACBQAAAAJhSAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAMJAAAAAAAAAgUAAAACYUUFAAAAAmFFCQAAZAAAAAIFAAAAAmFCBQAAAAJhRQkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4KAQAAAAJhUwAAAAIAAAACYUIAAAACYUMEAAAAAmFECQAEtQAAAAIFAAAAAmFDAgAAAAE7BAAAAAJhRQoAAAAAAmFGBQAAAAJhRAoAAAAAAmFHCQABkAAAAAEFAAAAAmFGCgAAAAACYUgFAAAAAmFxCgEAAAACYUkAAAACAAAAAmFKAAAAAmFLAwkAAGcAAAACBQAAAAJhSwUAAAACYUcFAAAAAmFKCQEAAAACYXQAAAACBQAAAAJhSgkAAZEAAAACBQAAAAJhRgUAAAACYUsKAQAAAAJhTAAAAAIAAAACYUoAAAACYUsDCQAAZwAAAAIFAAAAAmFLBQAAAAJhRwUAAAACYUoJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNAkBAAAAAmFMAAAAAgkBAAAAAmFJAAAAAgkBAAAAAmFJAAAAAgkBAAAAAmFJAAAAAgkBAAAAAmFJAAAAAgUAAAACYUgAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQDCQAAAAAAAAIFAAAAAmFFBQAAAAJhRQkAAGQAAAACBQAAAAJhQgUAAAACYUUJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAAAAAJhTQkABLUAAAACBQAAAAJhcAIAAAABfAQAAAACYU4KAAAAAAJhRgUAAAACYU0KAAAAAAJhRwkAAZAAAAABBQAAAAJhRgoAAAAAAmFIAAAAAAAAAAAACgEAAAACYUkAAAACAAAAAmFKAAAAAmFLAwkAAGcAAAACBQAAAAJhSwUAAAACYUcFAAAAAmFKCQEAAAACYUEAAAACBQAAAAJhSgkAAZEAAAACBQAAAAJhRgUAAAACYUsKAQAAAAJhTAAAAAIAAAACYUoAAAACYUsDCQAAZwAAAAIFAAAAAmFLBQAAAAJhRwUAAAACYUoJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgMgkBAAAAAmFMAAAAAgkBAAAAAmFJAAAAAgkBAAAAAmFJAAAAAgUAAAACYUgAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIDCQAAAAAAAAIFAAAAAmFOBQAAAAJhTgMJAABmAAAAAgUAAAACYU8FAAAAAmFOCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAOGFtb3VudCB0byByZWNlaXZlIGlzIGxvd2VyIHRoYW4gZXhwZWN0ZWQgb25lLCBleHBlY3RlZDogCQABpAAAAAEFAAAAAmFPAgAAAAwgY2FsY3VsYXRlZDoJAAGkAAAAAQUAAAACYU4EAAAAAmFUCgAAAAACYUYFAAAAAmFNCgAAAAACYUcJAAGQAAAAAQUAAAACYUYKAAAAAAJhSAAAAAAAAAAAAAoBAAAAAmFVAAAAAgAAAAJhSgAAAAJhSwMJAABnAAAAAgUAAAACYUsFAAAAAmFHBQAAAAJhSgkBAAAAAmFTAAAAAgUAAAACYUoJAAGRAAAAAgUAAAACYUYFAAAAAmFLCgEAAAACYVYAAAACAAAAAmFKAAAAAmFLAwkAAGcAAAACBQAAAAJhSwUAAAACYUcFAAAAAmFKCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQAAAAJhVgAAAAIJAQAAAAJhVQAAAAIJAQAAAAJhVQAAAAIFAAAAAmFIAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAwkAAAAAAAACBQAAAAJhVAUAAAACYVQEAAAAAmFXCQABkQAAAAIJAAS1AAAAAgUAAAACYXACAAAAASwJAABlAAAAAgkAAZAAAAABCQAEtQAAAAIFAAAAAmFwAgAAAAEsAAAAAAAAAAABBAAAAAJhZwkBAAAAAWcAAAABBQAAAAJhVwQAAAACYVgJAQAAAAFnAAAAAQkAAZEAAAACCQAEtQAAAAIJAAGRAAAAAgkABLUAAAACCQABkQAAAAIFAAAAAmFNAAAAAAAAAAAAAgAAAAE7AAAAAAAAAAAAAgAAAAEsAAAAAAAAAAABAwkAAGYAAAACBQAAAAJhTwUAAAACYVQJAAACAAAAAQkAASwAAAACAgAAAC1hbW91bnQgdG8gcmVjZWl2ZSBpcyBsb3dlciB0aGFuIGV4cGVjdGVkIG9uZSAJAAGkAAAAAQUAAAACYVQDAwkBAAAAAiE9AAAAAgUAAAACYVAFAAAAAmFYBgkAAGYAAAACBQAAAAJhcQgJAAGRAAAAAggFAAAAAmFmAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAkAAAIAAAABAgAAAB93cm9uZyBhc3NldCBhdHRhY2hlZCBhcyBwYXltZW50CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAJhZgAAAAZjYWxsZXIFAAAAAmFUBQAAAAJhZwUAAAADbmlsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAACYWYBAAAABHN3YXAAAAACAAAAAmFwAAAAAmFPBAAAAAJhcQgJAAGRAAAAAggFAAAAAmFmAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAQAAAACYVAICQABkQAAAAIIBQAAAAJhZgAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkCgEAAAACYXQAAAACAAAAAmFzAAAAAmF0BAAAAAJhdQkABLUAAAACBQAAAAJhdAIAAAABLAQAAAACYXYJAAGRAAAAAgUAAAACYXUAAAAAAAAAAAAEAAAAAmF3CQABkQAAAAIFAAAAAmF1AAAAAAAAAAABBAAAAAJheAkAAZEAAAACBQAAAAJhdQAAAAAAAAAAAgQAAAACYXkJAQAAAAFnAAAAAQUAAAACYXcEAAAAAmF6CQEAAAABZwAAAAEFAAAAAmF4BAAAAAJhUQkBAAAAAWkAAAABBQAAAAJhegMJAAAAAAAAAgUAAAACYVEFAAAAAmFRBAAAAAJhbQkAA/wAAAAECQEAAAAHQWRkcmVzcwAAAAEJAAJZAAAAAQUAAAACYXYCAAAABHN3YXAJAARMAAAAAgUAAAACYXgJAARMAAAAAgAAAAAAAAAAAAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAJheQUAAAACYXMFAAAAA25pbAMJAAAAAAAAAgUAAAACYW0FAAAAAmFtBAAAAAJhUgkBAAAAAWkAAAABBQAAAAJhegMJAAAAAAAAAgUAAAACYVIFAAAAAmFSCQAAZQAAAAIFAAAAAmFSBQAAAAJhUQkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoBAAAAAmFTAAAAAgAAAAJhQgAAAAJhQwQAAAACYUQJAAS1AAAAAgUAAAACYUMCAAAAATsEAAAAAmFFCgAAAAACYUYFAAAAAmFECgAAAAACYUcJAAGQAAAAAQUAAAACYUYKAAAAAAJhSAUAAAACYXEKAQAAAAJhSQAAAAIAAAACYUoAAAACYUsDCQAAZwAAAAIFAAAAAmFLBQAAAAJhRwUAAAACYUoJAQAAAAJhdAAAAAIFAAAAAmFKCQABkQAAAAIFAAAAAmFGBQAAAAJhSwoBAAAAAmFMAAAAAgAAAAJhSgAAAAJhSwMJAABnAAAAAgUAAAACYUsFAAAAAmFHBQAAAAJhSgkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA0CQEAAAACYUwAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACBQAAAAJhSAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAMJAAAAAAAAAgUAAAACYUUFAAAAAmFFCQAAZAAAAAIFAAAAAmFCBQAAAAJhRQkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAAAAAmFNCQAEtQAAAAIFAAAAAmFwAgAAAAF8BAAAAAJhVAoAAAAAAmFGBQAAAAJhTQoAAAAAAmFHCQABkAAAAAEFAAAAAmFGCgAAAAACYUgAAAAAAAAAAAAKAQAAAAJhSQAAAAIAAAACYUoAAAACYUsDCQAAZwAAAAIFAAAAAmFLBQAAAAJhRwUAAAACYUoJAQAAAAJhUwAAAAIFAAAAAmFKCQABkQAAAAIFAAAAAmFGBQAAAAJhSwoBAAAAAmFMAAAAAgAAAAJhSgAAAAJhSwMJAABnAAAAAgUAAAACYUsFAAAAAmFHBQAAAAJhSgkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyAyCQEAAAACYUwAAAACCQEAAAACYUkAAAACCQEAAAACYUkAAAACBQAAAAJhSAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgMJAAAAAAAAAgUAAAACYVQFAAAAAmFUBAAAAAJhVwkAAZEAAAACCQAEtQAAAAIFAAAAAmFwAgAAAAEsCQAAZQAAAAIJAAGQAAAAAQkABLUAAAACBQAAAAJhcAIAAAABLAAAAAAAAAAAAQQAAAACYWcJAQAAAAFnAAAAAQUAAAACYVcEAAAAAmFYCQEAAAABZwAAAAEJAAGRAAAAAgkABLUAAAACCQABkQAAAAIJAAS1AAAAAgkAAZEAAAACBQAAAAJhTQAAAAAAAAAAAAIAAAABOwAAAAAAAAAAAAIAAAABLAAAAAAAAAAAAQMJAABmAAAAAgUAAAACYU8FAAAAAmFUCQAAAgAAAAEJAAEsAAAAAgIAAAAtYW1vdW50IHRvIHJlY2VpdmUgaXMgbG93ZXIgdGhhbiBleHBlY3RlZCBvbmUgCQABpAAAAAEFAAAAAmFUAwMJAQAAAAIhPQAAAAIFAAAAAmFQBQAAAAJhWAYJAABmAAAAAgUAAAACYXEICQABkQAAAAIIBQAAAAJhZgAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAAACAAAAAQIAAAAfd3JvbmcgYXNzZXQgYXR0YWNoZWQgYXMgcGF5bWVudAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAACYWYAAAAGY2FsbGVyBQAAAAJhVAUAAAACYWcFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAAAmXULng==",
    "height": 4125826,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Hbj8GW9s5Ma3vS3cwTCuUinwfPx7BmL3rFFtJJVgtv3c
Next: 614NPwPy7UUgCQacRcQBgPkHSYp4f5vpsiiLwv4nkBYH

Diff: 
Old
New
Differences
237
237
 
        let dApp = swapList[0]
238
238
 
        let fromAsset = swapList[1]
239
239
 
        let toAsset = swapList[2]
240
+
        let type = if ((size(swapList) == 4))
241
+
            then swapList[3]
242
+
            else "pzl"
240
243
 
        let bytesAssetIn = getAssetBytes(fromAsset)
241
244
 
        let bytesAssetOut = getAssetBytes(toAsset)
242
-
        let minToGet = calculateMinToGetPzl(dApp, fromAsset, toAsset, amountIn)
245
+
        let minToGet = if ((type == "pzl"))
246
+
            then calculateMinToGetPzl(dApp, fromAsset, toAsset, amountIn)
247
+
            else calculateMinToGetSwop(dApp, fromAsset, toAsset, amountIn)
243
248
 
        if ((minToGet == minToGet))
244
249
 
            then minToGet
245
250
 
            else throw("Strict value is not equal to itself.")
250
255
 
        let dApp = swapList[0]
251
256
 
        let fromAsset = swapList[1]
252
257
 
        let toAsset = swapList[2]
258
+
        let type = if ((size(swapList) == 4))
259
+
            then swapList[3]
260
+
            else "pzl"
253
261
 
        let bytesAssetIn = getAssetBytes(fromAsset)
254
262
 
        let bytesAssetOut = getAssetBytes(toAsset)
255
263
 
        let balanceBefore = getBalance(bytesAssetOut)
256
264
 
        if ((balanceBefore == balanceBefore))
257
265
 
            then {
258
-
                let tx = invoke(Address(fromBase58String(dApp)), "swap", [toAsset, 0], [AttachedPayment(bytesAssetIn, amountIn)])
266
+
                let tx = if ((type == "pzl"))
267
+
                    then asInt(invoke(Address(fromBase58String(dApp)), "swap", [toAsset, 1], i.payments))
268
+
                    else asSwopResponse(invoke(Address(fromBase58String(dApp)), "exchange", [1], i.payments))
259
269
 
                if ((tx == tx))
260
270
 
                    then {
261
271
 
                        let balanceAfter = getBalance(bytesAssetOut)
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
func tryGetString (key) = match getString(this, key) {
5
5
 
    case b: String => 
6
6
 
        b
7
7
 
    case _ => 
8
8
 
        ""
9
9
 
}
10
10
 
11
11
 
12
12
 
func getAssetString (assetId) = match assetId {
13
13
 
    case b: ByteVector => 
14
14
 
        toBase58String(b)
15
15
 
    case _ => 
16
16
 
        "WAVES"
17
17
 
}
18
18
 
19
19
 
20
20
 
func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
21
21
 
    then unit
22
22
 
    else fromBase58String(assetIdStr)
23
23
 
24
24
 
25
25
 
func getBalance (assetId) = match assetId {
26
26
 
    case x: Unit => 
27
27
 
        wavesBalance(this).available
28
28
 
    case _ => 
29
29
 
        assetBalance(this, value(assetId))
30
30
 
}
31
31
 
32
32
 
33
33
 
func calculateMinToGetPzl (ammAddress,asset1,asset2,amountToSwap) = {
34
34
 
    let Scale8 = 100000000
35
35
 
    let FeeScale = 10000
36
36
 
    let address = addressFromStringValue(ammAddress)
37
37
 
    let kBalanceA = (("global_" + asset1) + "_balance")
38
38
 
    let A_asset_balance = getIntegerValue(address, kBalanceA)
39
39
 
    let kBalanceB = (("global_" + asset2) + "_balance")
40
40
 
    let B_asset_balance = getIntegerValue(address, kBalanceB)
41
41
 
    let kWeightA = (("static_" + asset1) + "_weight")
42
42
 
    let kWeightB = (("static_" + asset2) + "_weight")
43
43
 
    let weightA = getIntegerValue(address, kWeightA)
44
44
 
    let weightB = getIntegerValue(address, kWeightB)
45
45
 
    let Fee = getIntegerValue(address, "static_fee")
46
46
 
    let toGet = fraction(B_asset_balance, ((Scale8 * Scale8) - toInt(pow(fraction(toBigInt(A_asset_balance), toBigInt((Scale8 * Scale8)), toBigInt((A_asset_balance + amountToSwap)), HALFUP), 16, toBigInt(fraction(weightA, 10000, weightB)), 4, 16, CEILING))), (Scale8 * Scale8), DOWN)
47
47
 
    let feeAmount = fraction(toGet, Fee, FeeScale)
48
48
 
    if ((feeAmount == feeAmount))
49
49
 
        then {
50
50
 
            let cleanAmountOut = (toGet - feeAmount)
51
51
 
            if ((cleanAmountOut == cleanAmountOut))
52
52
 
                then cleanAmountOut
53
53
 
                else throw("Strict value is not equal to itself.")
54
54
 
            }
55
55
 
        else throw("Strict value is not equal to itself.")
56
56
 
    }
57
57
 
58
58
 
59
59
 
func calculateFees (pmtAmount,tokenFrom,tokenTo,fee) = {
60
60
 
    let feeScale6 = 1000000
61
61
 
    let amountWithoutFee = fraction(tokenTo, pmtAmount, (pmtAmount + tokenFrom))
62
62
 
    let amountWithFee = fraction(amountWithoutFee, (feeScale6 - fee), feeScale6)
63
63
 
    amountWithFee
64
64
 
    }
65
65
 
66
66
 
67
67
 
func calculateMinToGetSwop (ammAddress,asset1,asset2,amountToSwap) = {
68
68
 
    let address = addressFromStringValue(ammAddress)
69
69
 
    let kBalanceA = "A_asset_balance"
70
70
 
    let kBalanceB = "B_asset_balance"
71
71
 
    let kAssetIdA = "A_asset_id"
72
72
 
    let kAssetIdB = "B_asset_id"
73
73
 
    let kFee = "commission"
74
74
 
    let strAssetIdA = getStringValue(address, kAssetIdA)
75
75
 
    let strAssetIdB = getStringValue(address, kAssetIdB)
76
76
 
    let assetIdA = getAssetBytes(strAssetIdA)
77
77
 
    let assetIdB = getAssetBytes(strAssetIdB)
78
78
 
    let fee = getIntegerValue(address, kFee)
79
79
 
    let balanceA = getIntegerValue(address, kBalanceA)
80
80
 
    let balanceB = getIntegerValue(address, kBalanceB)
81
81
 
    if (if ((balanceA == 0))
82
82
 
        then true
83
83
 
        else (balanceB == 0))
84
84
 
        then throw("Can't exchange with zero balance")
85
85
 
        else if ((fromBase58String(asset1) == assetIdA))
86
86
 
            then calculateFees(amountToSwap, balanceA, balanceB, fee)
87
87
 
            else if ((fromBase58String(asset1) == assetIdB))
88
88
 
                then calculateFees(amountToSwap, balanceB, balanceA, fee)
89
89
 
                else throw(((("Incorrect asset attached. Expected: " + strAssetIdA) + " or ") + strAssetIdB))
90
90
 
    }
91
91
 
92
92
 
93
93
 
func asInt (value) = match value {
94
94
 
    case int: Int => 
95
95
 
        int
96
96
 
    case string: String => 
97
97
 
        throw(("Wrong type, expected: Int, but got string: " + string))
98
98
 
    case _ => 
99
99
 
        throw("Wrong type, expected: Int")
100
100
 
}
101
101
 
102
102
 
103
103
 
func asSwopResponse (value) = match value {
104
104
 
    case inv: (Int, ByteVector) => 
105
105
 
        let $t037413779 = inv
106
106
 
        let amountWithFee = $t037413779._1
107
107
 
        let assetIdSend = $t037413779._2
108
108
 
        amountWithFee
109
109
 
    case int: Int => 
110
110
 
        int
111
111
 
    case list: List[Any] => 
112
112
 
        asInt(list[0])
113
113
 
    case _ => 
114
114
 
        throw("Incorrect invoke result: expected amountWithFee and assetsIdSend ")
115
115
 
}
116
116
 
117
117
 
118
118
 
@Callable(i)
119
119
 
func swapAndCheck (ammAddress,assetOut,minimum) = {
120
120
 
    let pmt = value(i.payments[0])
121
121
 
    let AmountIn = value(i.payments[0].amount)
122
122
 
    let AssetIn = pmt.assetId
123
123
 
    let minToGet = calculateMinToGetPzl(ammAddress, getAssetString(AssetIn), assetOut, AmountIn)
124
124
 
    if ((minToGet == minToGet))
125
125
 
        then if ((minimum > minToGet))
126
126
 
            then throw("Early exec, not enough funds!")
127
127
 
            else {
128
128
 
                let tx = asInt(invoke(Address(fromBase58String(ammAddress)), "swap", [assetOut, minimum], i.payments))
129
129
 
                if ((tx == tx))
130
130
 
                    then [ScriptTransfer(i.caller, tx, getAssetBytes(assetOut))]
131
131
 
                    else throw("Strict value is not equal to itself.")
132
132
 
                }
133
133
 
        else throw("Strict value is not equal to itself.")
134
134
 
    }
135
135
 
136
136
 
137
137
 
138
138
 
@Callable(i)
139
139
 
func readOnlyFunc (ammAddress,asset1,asset2,amountToSwap,type) = {
140
140
 
    let amountOut = if ((type == "pzl"))
141
141
 
        then calculateMinToGetPzl(ammAddress, asset1, asset2, amountToSwap)
142
142
 
        else calculateMinToGetSwop(ammAddress, asset1, asset2, amountToSwap)
143
143
 
[IntegerEntry("DEBUG", amountOut)]
144
144
 
    }
145
145
 
146
146
 
147
147
 
148
148
 
@Callable(i)
149
149
 
func swapAndCheckType (ammAddress,assetOut,minimum,type) = {
150
150
 
    let pmt = value(i.payments[0])
151
151
 
    let AmountIn = value(i.payments[0].amount)
152
152
 
    let AssetIn = pmt.assetId
153
153
 
    let minToGet = if ((type == "pzl"))
154
154
 
        then calculateMinToGetPzl(ammAddress, getAssetString(AssetIn), assetOut, AmountIn)
155
155
 
        else calculateMinToGetSwop(ammAddress, getAssetString(AssetIn), assetOut, AmountIn)
156
156
 
    if ((minToGet == minToGet))
157
157
 
        then if ((minimum > minToGet))
158
158
 
            then throw("Early exec, not enough funds!")
159
159
 
            else {
160
160
 
                let tx = if ((type == "pzl"))
161
161
 
                    then asInt(invoke(Address(fromBase58String(ammAddress)), "swap", [assetOut, minimum], i.payments))
162
162
 
                    else asSwopResponse(invoke(Address(fromBase58String(ammAddress)), "exchange", [minimum], i.payments))
163
163
 
                if ((tx == tx))
164
164
 
                    then [ScriptTransfer(i.caller, tx, getAssetBytes(assetOut))]
165
165
 
                    else throw("Strict value is not equal to itself.")
166
166
 
                }
167
167
 
        else throw("Strict value is not equal to itself.")
168
168
 
    }
169
169
 
170
170
 
171
171
 
172
172
 
@Callable(i)
173
173
 
func readOnlyFuncAggregator (routesStr,amountToSwap) = {
174
174
 
    let balanceIn = amountToSwap
175
175
 
    func swapValidate (amountIn,swap) =     {
176
176
 
        let swapList = split(swap, ",")
177
177
 
        let dApp = swapList[0]
178
178
 
        let fromAsset = swapList[1]
179
179
 
        let toAsset = swapList[2]
180
180
 
        let bytesAssetIn = getAssetBytes(fromAsset)
181
181
 
        let bytesAssetOut = getAssetBytes(toAsset)
182
182
 
        let minToGet = calculateMinToGetPzl(dApp, fromAsset, toAsset, amountIn)
183
183
 
        if ((minToGet == minToGet))
184
184
 
            then minToGet
185
185
 
            else throw("Strict value is not equal to itself.")
186
186
 
        }
187
187
 
188
188
 
    func forEachRouteValidate (accumRoute,route) =     {
189
189
 
        let pathList = split(route, ";")
190
190
 
        let swapResults = {
191
191
 
            let $l = pathList
192
192
 
            let $s = size($l)
193
193
 
            let $acc0 = balanceIn
194
194
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
195
195
 
                then $a
196
196
 
                else swapValidate($a, $l[$i])
197
197
 
198
198
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
199
199
 
                then $a
200
200
 
                else throw("List size exceeds 4")
201
201
 
202
202
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
203
203
 
            }
204
204
 
        if ((swapResults == swapResults))
205
205
 
            then (accumRoute + swapResults)
206
206
 
            else throw("Strict value is not equal to itself.")
207
207
 
        }
208
208
 
209
209
 
    let routesList = split(routesStr, "|")
210
210
 
    let validateMinAmount = {
211
211
 
        let $l = routesList
212
212
 
        let $s = size($l)
213
213
 
        let $acc0 = 0
214
214
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
215
215
 
            then $a
216
216
 
            else forEachRouteValidate($a, $l[$i])
217
217
 
218
218
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
219
219
 
            then $a
220
220
 
            else throw("List size exceeds 2")
221
221
 
222
222
 
        $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
223
223
 
        }
224
224
 
    if ((validateMinAmount == validateMinAmount))
225
225
 
        then [IntegerEntry("DEBUG", validateMinAmount)]
226
226
 
        else throw("Strict value is not equal to itself.")
227
227
 
    }
228
228
 
229
229
 
230
230
 
231
231
 
@Callable(i)
232
232
 
func swapPreCheck (routesStr,minToReceive) = {
233
233
 
    let balanceIn = i.payments[0].amount
234
234
 
    let assetIn = i.payments[0].assetId
235
235
 
    func swapValidate (amountIn,swap) =     {
236
236
 
        let swapList = split(swap, ",")
237
237
 
        let dApp = swapList[0]
238
238
 
        let fromAsset = swapList[1]
239
239
 
        let toAsset = swapList[2]
240
+
        let type = if ((size(swapList) == 4))
241
+
            then swapList[3]
242
+
            else "pzl"
240
243
 
        let bytesAssetIn = getAssetBytes(fromAsset)
241
244
 
        let bytesAssetOut = getAssetBytes(toAsset)
242
-
        let minToGet = calculateMinToGetPzl(dApp, fromAsset, toAsset, amountIn)
245
+
        let minToGet = if ((type == "pzl"))
246
+
            then calculateMinToGetPzl(dApp, fromAsset, toAsset, amountIn)
247
+
            else calculateMinToGetSwop(dApp, fromAsset, toAsset, amountIn)
243
248
 
        if ((minToGet == minToGet))
244
249
 
            then minToGet
245
250
 
            else throw("Strict value is not equal to itself.")
246
251
 
        }
247
252
 
248
253
 
    func swap (amountIn,swap) =     {
249
254
 
        let swapList = split(swap, ",")
250
255
 
        let dApp = swapList[0]
251
256
 
        let fromAsset = swapList[1]
252
257
 
        let toAsset = swapList[2]
258
+
        let type = if ((size(swapList) == 4))
259
+
            then swapList[3]
260
+
            else "pzl"
253
261
 
        let bytesAssetIn = getAssetBytes(fromAsset)
254
262
 
        let bytesAssetOut = getAssetBytes(toAsset)
255
263
 
        let balanceBefore = getBalance(bytesAssetOut)
256
264
 
        if ((balanceBefore == balanceBefore))
257
265
 
            then {
258
-
                let tx = invoke(Address(fromBase58String(dApp)), "swap", [toAsset, 0], [AttachedPayment(bytesAssetIn, amountIn)])
266
+
                let tx = if ((type == "pzl"))
267
+
                    then asInt(invoke(Address(fromBase58String(dApp)), "swap", [toAsset, 1], i.payments))
268
+
                    else asSwopResponse(invoke(Address(fromBase58String(dApp)), "exchange", [1], i.payments))
259
269
 
                if ((tx == tx))
260
270
 
                    then {
261
271
 
                        let balanceAfter = getBalance(bytesAssetOut)
262
272
 
                        if ((balanceAfter == balanceAfter))
263
273
 
                            then (balanceAfter - balanceBefore)
264
274
 
                            else throw("Strict value is not equal to itself.")
265
275
 
                        }
266
276
 
                    else throw("Strict value is not equal to itself.")
267
277
 
                }
268
278
 
            else throw("Strict value is not equal to itself.")
269
279
 
        }
270
280
 
271
281
 
    func forEachRouteValidate (accumRoute,route) =     {
272
282
 
        let pathList = split(route, ";")
273
283
 
        let swapResults = {
274
284
 
            let $l = pathList
275
285
 
            let $s = size($l)
276
286
 
            let $acc0 = balanceIn
277
287
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
278
288
 
                then $a
279
289
 
                else swapValidate($a, $l[$i])
280
290
 
281
291
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
282
292
 
                then $a
283
293
 
                else throw("List size exceeds 4")
284
294
 
285
295
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
286
296
 
            }
287
297
 
        if ((swapResults == swapResults))
288
298
 
            then (accumRoute + swapResults)
289
299
 
            else throw("Strict value is not equal to itself.")
290
300
 
        }
291
301
 
292
302
 
    func forEachRoute (accumRoute,route) =     {
293
303
 
        let pathList = split(route, ";")
294
304
 
        let swapResults = {
295
305
 
            let $l = pathList
296
306
 
            let $s = size($l)
297
307
 
            let $acc0 = balanceIn
298
308
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
299
309
 
                then $a
300
310
 
                else swap($a, $l[$i])
301
311
 
302
312
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
303
313
 
                then $a
304
314
 
                else throw("List size exceeds 4")
305
315
 
306
316
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
307
317
 
            }
308
318
 
        if ((swapResults == swapResults))
309
319
 
            then (accumRoute + swapResults)
310
320
 
            else throw("Strict value is not equal to itself.")
311
321
 
        }
312
322
 
313
323
 
    let routesList = split(routesStr, "|")
314
324
 
    let validateMinAmount = {
315
325
 
        let $l = routesList
316
326
 
        let $s = size($l)
317
327
 
        let $acc0 = 0
318
328
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
319
329
 
            then $a
320
330
 
            else forEachRouteValidate($a, $l[$i])
321
331
 
322
332
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
323
333
 
            then $a
324
334
 
            else throw("List size exceeds 2")
325
335
 
326
336
 
        $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
327
337
 
        }
328
338
 
    if ((validateMinAmount == validateMinAmount))
329
339
 
        then if ((minToReceive > validateMinAmount))
330
340
 
            then throw(((("amount to receive is lower than expected one, expected: " + toString(minToReceive)) + " calculated:") + toString(validateMinAmount)))
331
341
 
            else {
332
342
 
                let outAmount = {
333
343
 
                    let $l = routesList
334
344
 
                    let $s = size($l)
335
345
 
                    let $acc0 = 0
336
346
 
                    func $f1_1 ($a,$i) =                     if (($i >= $s))
337
347
 
                        then $a
338
348
 
                        else forEachRoute($a, $l[$i])
339
349
 
340
350
 
                    func $f1_2 ($a,$i) =                     if (($i >= $s))
341
351
 
                        then $a
342
352
 
                        else throw("List size exceeds 2")
343
353
 
344
354
 
                    $f1_2($f1_1($f1_1($acc0, 0), 1), 2)
345
355
 
                    }
346
356
 
                if ((outAmount == outAmount))
347
357
 
                    then {
348
358
 
                        let assetOutStr = split(routesStr, ",")[(size(split(routesStr, ",")) - 1)]
349
359
 
                        let assetOut = getAssetBytes(assetOutStr)
350
360
 
                        let assetInFromRoute = getAssetBytes(split(split(routesList[0], ";")[0], ",")[1])
351
361
 
                        if ((minToReceive > outAmount))
352
362
 
                            then throw(("amount to receive is lower than expected one " + toString(outAmount)))
353
363
 
                            else if (if ((assetIn != assetInFromRoute))
354
364
 
                                then true
355
365
 
                                else (balanceIn > i.payments[0].amount))
356
366
 
                                then throw("wrong asset attached as payment")
357
367
 
                                else [ScriptTransfer(i.caller, outAmount, assetOut)]
358
368
 
                        }
359
369
 
                    else throw("Strict value is not equal to itself.")
360
370
 
                }
361
371
 
        else throw("Strict value is not equal to itself.")
362
372
 
    }
363
373
 
364
374
 
365
375
 
366
376
 
@Callable(i)
367
377
 
func swap (routesStr,minToReceive) = {
368
378
 
    let balanceIn = i.payments[0].amount
369
379
 
    let assetIn = i.payments[0].assetId
370
380
 
    func swap (amountIn,swap) =     {
371
381
 
        let swapList = split(swap, ",")
372
382
 
        let dApp = swapList[0]
373
383
 
        let fromAsset = swapList[1]
374
384
 
        let toAsset = swapList[2]
375
385
 
        let bytesAssetIn = getAssetBytes(fromAsset)
376
386
 
        let bytesAssetOut = getAssetBytes(toAsset)
377
387
 
        let balanceBefore = getBalance(bytesAssetOut)
378
388
 
        if ((balanceBefore == balanceBefore))
379
389
 
            then {
380
390
 
                let tx = invoke(Address(fromBase58String(dApp)), "swap", [toAsset, 0], [AttachedPayment(bytesAssetIn, amountIn)])
381
391
 
                if ((tx == tx))
382
392
 
                    then {
383
393
 
                        let balanceAfter = getBalance(bytesAssetOut)
384
394
 
                        if ((balanceAfter == balanceAfter))
385
395
 
                            then (balanceAfter - balanceBefore)
386
396
 
                            else throw("Strict value is not equal to itself.")
387
397
 
                        }
388
398
 
                    else throw("Strict value is not equal to itself.")
389
399
 
                }
390
400
 
            else throw("Strict value is not equal to itself.")
391
401
 
        }
392
402
 
393
403
 
    func forEachRoute (accumRoute,route) =     {
394
404
 
        let pathList = split(route, ";")
395
405
 
        let swapResults = {
396
406
 
            let $l = pathList
397
407
 
            let $s = size($l)
398
408
 
            let $acc0 = balanceIn
399
409
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
400
410
 
                then $a
401
411
 
                else swap($a, $l[$i])
402
412
 
403
413
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
404
414
 
                then $a
405
415
 
                else throw("List size exceeds 4")
406
416
 
407
417
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
408
418
 
            }
409
419
 
        if ((swapResults == swapResults))
410
420
 
            then (accumRoute + swapResults)
411
421
 
            else throw("Strict value is not equal to itself.")
412
422
 
        }
413
423
 
414
424
 
    let routesList = split(routesStr, "|")
415
425
 
    let outAmount = {
416
426
 
        let $l = routesList
417
427
 
        let $s = size($l)
418
428
 
        let $acc0 = 0
419
429
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
420
430
 
            then $a
421
431
 
            else forEachRoute($a, $l[$i])
422
432
 
423
433
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
424
434
 
            then $a
425
435
 
            else throw("List size exceeds 2")
426
436
 
427
437
 
        $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
428
438
 
        }
429
439
 
    if ((outAmount == outAmount))
430
440
 
        then {
431
441
 
            let assetOutStr = split(routesStr, ",")[(size(split(routesStr, ",")) - 1)]
432
442
 
            let assetOut = getAssetBytes(assetOutStr)
433
443
 
            let assetInFromRoute = getAssetBytes(split(split(routesList[0], ";")[0], ",")[1])
434
444
 
            if ((minToReceive > outAmount))
435
445
 
                then throw(("amount to receive is lower than expected one " + toString(outAmount)))
436
446
 
                else if (if ((assetIn != assetInFromRoute))
437
447
 
                    then true
438
448
 
                    else (balanceIn > i.payments[0].amount))
439
449
 
                    then throw("wrong asset attached as payment")
440
450
 
                    else [ScriptTransfer(i.caller, outAmount, assetOut)]
441
451
 
            }
442
452
 
        else throw("Strict value is not equal to itself.")
443
453
 
    }
444
454
 
445
455
 

github/deemru/w8io/873ac7e 
64.67 ms ◑