w8 · tx · 3sR···q8J

tx · 3sR1NakUHVxvoNCNmqqU2h8sx78j4V9T15kZpV9j4q8J

3PJnGkuMm4LkJQVCT7QCRyzApQiEQ2UWcdx:  -0.03300000 Waves

2022.07.04 20:54 [3190849] smart account 3PJnGkuMm4LkJQVCT7QCRyzApQiEQ2UWcdx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3sR1NakUHVxvoNCNmqqU2h8sx78j4V9T15kZpV9j4q8J",
    "fee": 3300000,
    "feeAssetId": null,
    "timestamp": 1656957294931,
    "version": 2,
    "chainId": 87,
    "sender": "3PJnGkuMm4LkJQVCT7QCRyzApQiEQ2UWcdx",
    "senderPublicKey": "HFbxpbfQDPgt5JitQBtzQnxbTxiAFBQeLKuWvsbMo8Wp",
    "proofs": [
        "4BhU7Who4roSLZBzBgcdFw7dLqf5UcbtE8miYqvNKh9QFtY7CACLcUPWty2btVTmZT1Rsc17bW4ns5v4uP9BBemg"
    ],
    "script": "base64:AAIFAAAAAAAAAC4IAhIGCgQICAgIEgASABIDCgEEEgASAwoBARIAEgMKAQQSBAoCCAESBQoDCAgBAAAAJQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAAAx0cnlHZXRCaW5hcnkAAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABBwAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAWIFAAAAByRtYXRjaDAFAAAAAWIBAAAAAAEAAAAMdHJ5R2V0U3RyaW5nAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWIFAAAAByRtYXRjaDAFAAAAAWICAAAAAAEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABAAAAB2Fzc2V0SWQEAAAAByRtYXRjaDAFAAAAB2Fzc2V0SWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAWIFAAAAByRtYXRjaDAJAAJYAAAAAQUAAAABYgIAAAAFV0FWRVMBAAAADWdldEFzc2V0Qnl0ZXMAAAABAAAACmFzc2V0SWRTdHIDCQAAAAAAAAIFAAAACmFzc2V0SWRTdHICAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAACmFzc2V0SWRTdHIBAAAAE2FkZEFzc2V0Qnl0ZXNUb0xpc3QAAAACAAAABWFjY3VtAAAABGl0ZW0JAAROAAAAAgUAAAAFYWNjdW0JAARMAAAAAgkBAAAADWdldEFzc2V0Qnl0ZXMAAAABBQAAAARpdGVtBQAAAANuaWwBAAAAFGFkZEFzc2V0V2VpZ2h0VG9MaXN0AAAAAgAAAAVhY2N1bQAAAARpdGVtCQAETgAAAAIFAAAABWFjY3VtCQAETAAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB3N0YXRpY18JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAABGl0ZW0CAAAAB193ZWlnaHQFAAAAA25pbAEAAAAWYWRkQXNzZXREZWNpbWFsc1RvTGlzdAAAAAIAAAAFYWNjdW0AAAAEaXRlbQkABE4AAAACBQAAAAVhY2N1bQkABEwAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAARpdGVtAgAAAAlfZGVjaW1hbHMFAAAAA25pbAEAAAATYWRkQXNzZXRTY2FsZVRvTGlzdAAAAAIAAAAFYWNjdW0AAAAEaXRlbQkABE4AAAACBQAAAAVhY2N1bQkABEwAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAARpdGVtAgAAAAZfc2NhbGUFAAAAA25pbAEAAAAMYWRkSW50VG9MaXN0AAAAAgAAAAVhY2N1bQAAAARpdGVtCQAETgAAAAIFAAAABWFjY3VtCQAETAAAAAIJAQAAAA1wYXJzZUludFZhbHVlAAAAAQUAAAAEaXRlbQUAAAADbmlsAAAAAAFUCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAE3N0YXRpY190b2tlbnNBbW91bnQAAAAACGFzc2V0SWRzCgAAAAACJGwJAAS1AAAAAgkBAAAADHRyeUdldFN0cmluZwAAAAECAAAAD3N0YXRpY190b2tlbklkcwIAAAABLAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAE2FkZEFzc2V0Qnl0ZXNUb0xpc3QAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAA1Bc3NldHNXZWlnaHRzCgAAAAACJGwFAAAACGFzc2V0SWRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGYxXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAUYWRkQXNzZXRXZWlnaHRUb0xpc3QAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjFfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjFfMgAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAhEZWNpbWFscwoAAAAAAiRsBQAAAAhhc3NldElkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMl8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAFmFkZEFzc2V0RGVjaW1hbHNUb0xpc3QAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjJfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjJfMgAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIJAQAAAAUkZjJfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAZTY2FsZXMKAAAAAAIkbAUAAAAIYXNzZXRJZHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAUkZjNfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAABNhZGRBc3NldFNjYWxlVG9MaXN0AAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYzXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGYzXzIAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACCQEAAAAFJGYzXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgAAAAADRmVlCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAACnN0YXRpY19mZWUAAAAAFUFzc2V0c1dlaWdodHNEZWNpbWFscwAAAAAAAAAAAgAAAAAFU2NhbGUAAAAAAAAAJxAAAAAABlNjYWxlOAAAAAAABfXhAAAAAAAIRmVlU2NhbGUAAAAAAAAAJxAAAAAAEVBvb2xUb2tlbkRlY2ltYWxzAAAAAAAAAAAIAAAAAA5Qb29sVG9rZW5TY2FsZQkAAGwAAAAGAAAAAAAAAAAKAAAAAAAAAAAABQAAABFQb29sVG9rZW5EZWNpbWFscwAAAAAAAAAAAAAAAAAAAAAAAAUAAAAGSEFMRlVQAAAAAAxlYXJuZWRBc3NldHMFAAAACGFzc2V0SWRzAQAAAAppc1NodXRkb3duAAAAAAQAAAAHJG1hdGNoMAkABBsAAAACCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFXjXhTep8V0j2VNIuCeWTYGdMnHpvyNVqoAgAAAAtpc19zaHV0ZG93bgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAHQm9vbGVhbgQAAAABeAUAAAAHJG1hdGNoMAUAAAABeAcBAAAAFmdldEN1cnJlbnRUb2tlbkJhbGFuY2UAAAABAAAACXRva2VuVHlwZQQAAAAHdG9rZW5JZAkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQkAAZEAAAACBQAAAAhhc3NldElkcwUAAAAJdG9rZW5UeXBlCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfBQAAAAd0b2tlbklkAgAAAAhfYmFsYW5jZQEAAAAQY2FsY3VsYXRlUElzc3VlZAAAAAIAAAAGYW1vdW50AAAAB3Rva2VuSWQEAAAAB1BzdXBwbHkJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQIAAAAXZ2xvYmFsX3Bvb2xUb2tlbl9hbW91bnQEAAAAB0JhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB3Rva2VuSWQCAAAACF9iYWxhbmNlCQEAAAAIZnJhY3Rpb24AAAAEBQAAAAZhbW91bnQFAAAAB1BzdXBwbHkFAAAAB0JhbGFuY2UFAAAABERPV04BAAAADWdldE1pblBJc3N1ZWQAAAABAAAACHBheW1lbnRzCgEAAAAHaGFuZGxlcgAAAAIAAAAFYWNjdW0AAAAHY3VycmVudAQAAAAHUElzc3VlZAkBAAAAEGNhbGN1bGF0ZVBJc3N1ZWQAAAACCAUAAAAHY3VycmVudAAAAAZhbW91bnQIBQAAAAdjdXJyZW50AAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAAB1BJc3N1ZWQAAAAAAAAAAAAJAAACAAAAAQIAAAAkb25lIG9mIHRoZSB0b2tlbnMgYW1vdW50cyBpcyB0b28gbG93AwMJAAAAAAAAAgUAAAAFYWNjdW0AAAAAAAAAAAAGCQAAZgAAAAIFAAAABWFjY3VtBQAAAAdQSXNzdWVkBQAAAAdQSXNzdWVkBQAAAAVhY2N1bQQAAAAJbWluUElzc2VkCgAAAAACJGwFAAAACHBheW1lbnRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAAoBAAAABSRmNF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAB2hhbmRsZXIAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjRfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjRfMgAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKBQAAAAltaW5QSXNzZWQBAAAAEmNhbGN1bGF0ZVVzZG5WYWx1ZQAAAAMAAAAHYXNzZXRJZAAAAAZhbW91bnQAAAAIYUJhbGFuY2UEAAAABnVzZG5JZAEAAAAgtiYpwwT1zlORpA5LdSQvZIxRsfrfr1QpvUjSHSqyqtEEAAAACnVzZG5XZWlnaHQJAAGRAAAAAgUAAAANQXNzZXRzV2VpZ2h0cwkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAhhc3NldElkcwUAAAAGdXNkbklkBAAAAAthc3NldFdlaWdodAkAAZEAAAACBQAAAA1Bc3NldHNXZWlnaHRzCQEAAAAFdmFsdWUAAAABCQAETwAAAAIFAAAACGFzc2V0SWRzBQAAAAdhc3NldElkBAAAAAt1c2RuQmFsYW5jZQkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAGdXNkbklkAgAAAAhfYmFsYW5jZQkAAGsAAAADBQAAAAZhbW91bnQJAABpAAAAAgUAAAALdXNkbkJhbGFuY2UFAAAACnVzZG5XZWlnaHQJAABpAAAAAgUAAAAIYUJhbGFuY2UFAAAAC2Fzc2V0V2VpZ2h0AQAAABNjaGVja1Rva2Vuc1ZhbGlkaXR5AAAAAQAAAAhwYXltZW50cwoBAAAACGhhbmRsZXIxAAAAAgAAAAVhY2N1bQAAAAdwYXltZW50CQAETgAAAAIFAAAABWFjY3VtCQAETAAAAAIIBQAAAAdwYXltZW50AAAAB2Fzc2V0SWQFAAAAA25pbAQAAAADaWRzCgAAAAACJGwFAAAACHBheW1lbnRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGY0XzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAIaGFuZGxlcjEAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjRfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjRfMgAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAwkAAAAAAAACBQAAAANpZHMFAAAAA2lkcwoBAAAACGhhbmRsZXIyAAAAAgAAAAVhY2N1bQAAAAdhc3NldElkAwkBAAAAAiE9AAAAAgkABE8AAAACBQAAAANpZHMFAAAAB2Fzc2V0SWQFAAAABHVuaXQJAABkAAAAAgUAAAAFYWNjdW0AAAAAAAAAAAEJAAACAAAAAQkAASwAAAACAgAAABRhc3NldCBub3QgYXR0YWNoZWQ6IAkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHYXNzZXRJZAQAAAAGY2hlY2tzCgAAAAACJGwFAAAACGFzc2V0SWRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAAoBAAAABSRmNV8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAACGhhbmRsZXIyAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGY1XzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGY1XzIAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACCQEAAAAFJGY1XzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgMJAAAAAAAAAgUAAAAGY2hlY2tzBQAAAAZjaGVja3MGCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAAAAE2hhbmRsZVBvb2xUb2tlbnNBZGQAAAAEAAAAB1BJc3N1ZWQAAAAIcGF5bWVudHMAAAALdXNlckFkZHJlc3MAAAAKbmVlZENoYW5nZQoBAAAAFWdldFRva2VuUGF5bWVudEFtb3VudAAAAAEAAAAHdG9rZW5JZAoBAAAAB2hhbmRsZXIAAAACAAAABWFjY3VtAAAAB3BheW1lbnQDCQAAAAAAAAIIBQAAAAdwYXltZW50AAAAB2Fzc2V0SWQFAAAAB3Rva2VuSWQIBQAAAAdwYXltZW50AAAABmFtb3VudAUAAAAFYWNjdW0KAAAAAAIkbAUAAAAIcGF5bWVudHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwAAAAAAAAAAAACgEAAAAFJGY0XzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAHaGFuZGxlcgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmNF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmNF8yAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoKAQAAABFoYW5kbGVUb2tlbkNoYW5nZQAAAAIAAAAFYWNjdW0AAAAHdG9rZW5JZAQAAAACQmsJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB3Rva2VuSWQCAAAACF9iYWxhbmNlBAAAAAdQU3VwcGx5CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAF2dsb2JhbF9wb29sVG9rZW5fYW1vdW50BAAAAA10b2tlbkRlY2ltYWxzCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAAd0b2tlbklkAgAAAAZfc2NhbGUEAAAAAkRrCQEAAAAIZnJhY3Rpb24AAAAECQAAZQAAAAIJAQAAAAhmcmFjdGlvbgAAAAQJAABkAAAAAgUAAAAHUFN1cHBseQUAAAAHUElzc3VlZAUAAAANdG9rZW5EZWNpbWFscwUAAAAHUFN1cHBseQUAAAAHQ0VJTElORwUAAAANdG9rZW5EZWNpbWFscwUAAAACQmsFAAAADXRva2VuRGVjaW1hbHMFAAAAB0NFSUxJTkcEAAAADXBheW1lbnRBbW91bnQJAQAAABVnZXRUb2tlblBheW1lbnRBbW91bnQAAAABBQAAAAd0b2tlbklkBAAAAAh0b1JldHVybgkAAGUAAAACAwkBAAAAAiE9AAAAAgUAAAANcGF5bWVudEFtb3VudAAAAAAAAAAAAAUAAAANcGF5bWVudEFtb3VudAAAAAAAAAAAAAUAAAACRGsEAAAAAXQDAwUAAAAKbmVlZENoYW5nZQkAAGYAAAACBQAAAAh0b1JldHVybgAAAAAAAAAAAAcJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAALdXNlckFkZHJlc3MFAAAACHRvUmV0dXJuBQAAAAd0b2tlbklkBQAAAANuaWwFAAAAA25pbAkABE4AAAACCQAETgAAAAIFAAAABWFjY3VtBQAAAAF0CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHdG9rZW5JZAIAAAAIX2JhbGFuY2UJAABkAAAAAgUAAAACQmsFAAAAAkRrBQAAAANuaWwKAAAAAAIkbAUAAAAIYXNzZXRJZHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAUkZjRfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAABFoYW5kbGVUb2tlbkNoYW5nZQAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmNF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmNF8yAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoBAAAAFmhhbmRsZVBvb2xUb2tlbnNSZWRlZW0AAAACAAAACVBSZWRlZW1lZAAAAAt1c2VyQWRkcmVzcwoBAAAAEWhhbmRsZVRva2VuUmVkZWVtAAAAAgAAAAVhY2N1bQAAAAd0b2tlbklkBAAAAAJCawkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHdG9rZW5JZAIAAAAIX2JhbGFuY2UEAAAAB1BTdXBwbHkJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQIAAAAXZ2xvYmFsX3Bvb2xUb2tlbl9hbW91bnQEAAAADXRva2VuRGVjaW1hbHMJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB3N0YXRpY18JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB3Rva2VuSWQCAAAABl9zY2FsZQQAAAAGYW1vdW50CQABoAAAAAEJAAE9AAAABAkAATgAAAACCQABNgAAAAEFAAAABlNjYWxlOAkAAT0AAAAECQABNgAAAAEJAABlAAAAAgUAAAAHUFN1cHBseQUAAAAJUFJlZGVlbWVkCQABNgAAAAEFAAAABlNjYWxlOAkAATYAAAABBQAAAAdQU3VwcGx5BQAAAAdDRUlMSU5HCQABNgAAAAEFAAAAAkJrCQABNgAAAAEFAAAABlNjYWxlOAUAAAAERE9XTgkABE4AAAACBQAAAAVhY2N1bQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB3Rva2VuSWQCAAAACF9iYWxhbmNlCQAAZQAAAAIFAAAAAkJrBQAAAAZhbW91bnQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAALdXNlckFkZHJlc3MFAAAABmFtb3VudAUAAAAHdG9rZW5JZAUAAAADbmlsCgAAAAACJGwFAAAACGFzc2V0SWRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGY0XzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAARaGFuZGxlVG9rZW5SZWRlZW0AAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjRfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjRfMgAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAQAAABJjYWxjdWxhdGVPdXRBbW91bnQAAAAFAAAACEFtb3VudEluAAAAB2Fzc2V0SW4AAAAIYXNzZXRPdXQAAAAJQmFsYW5jZUluAAAACkJhbGFuY2VPdXQEAAAAB0luZGV4SW4JAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAIYXNzZXRJZHMFAAAAB2Fzc2V0SW4EAAAACEluZGV4T3V0CQEAAAAFdmFsdWUAAAABCQAETwAAAAIFAAAACGFzc2V0SWRzBQAAAAhhc3NldE91dAMJAAAAAAAAAgUAAAAHSW5kZXhJbgUAAAAISW5kZXhPdXQJAAACAAAAAQIAAAARd3JvbmcgdG9rZW5zIHBhaXIJAQAAAAhmcmFjdGlvbgAAAAQFAAAACkJhbGFuY2VPdXQJAABlAAAAAgkAAGgAAAACBQAAAAZTY2FsZTgFAAAABlNjYWxlOAkAAaAAAAABCQAAdgAAAAYJAAE9AAAABAkAATYAAAABBQAAAAlCYWxhbmNlSW4JAAE2AAAAAQkAAGgAAAACBQAAAAZTY2FsZTgFAAAABlNjYWxlOAkAATYAAAABCQAAZAAAAAIFAAAACUJhbGFuY2VJbgUAAAAIQW1vdW50SW4FAAAABkhBTEZVUAAAAAAAAAAAEAkAATYAAAABCQAAawAAAAMJAAGRAAAAAgUAAAANQXNzZXRzV2VpZ2h0cwUAAAAHSW5kZXhJbgAAAAAAAAAnEAkAAZEAAAACBQAAAA1Bc3NldHNXZWlnaHRzBQAAAAhJbmRleE91dAAAAAAAAAAABAAAAAAAAAAAEAUAAAAHQ0VJTElORwkAAGgAAAACBQAAAAZTY2FsZTgFAAAABlNjYWxlOAUAAAAERE9XTgEAAAAPZ2V0VG9rZW5CYWxhbmNlAAAAAQAAAAdhc3NldElkBAAAAAckbWF0Y2gwBQAAAAdhc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAF0BQAAAAckbWF0Y2gwCQAD8AAAAAIFAAAABHRoaXMFAAAAAXQICQAD7wAAAAEFAAAABHRoaXMAAAAJYXZhaWxhYmxlAQAAAB1jYWxjdWxhdGVDdXJyZW50QXNzZXRJbnRlcmVzdAAAAAQAAAAHYXNzZXRJZAAAAAphc3NldElkU3RyAAAACGFCYWxhbmNlAAAAFnRva2VuRWFybmluZ3NMYXN0Q2hlY2sEAAAAC3RvdGFsU3Rha2VkCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAEmdsb2JhbF9pbmRleFN0YWtlZAQAAAAVdG9rZW5CYWxhbmNlTGFzdENoZWNrBQAAABZ0b2tlbkVhcm5pbmdzTGFzdENoZWNrBAAAABNjdXJyZW50QmFsYW5jZURlbHRhCQAAZQAAAAIJAQAAAA9nZXRUb2tlbkJhbGFuY2UAAAABBQAAAAdhc3NldElkBQAAAAhhQmFsYW5jZQQAAAAUY3VycmVudFRva2VuRWFybmluZ3MDCQAAZgAAAAIFAAAAE2N1cnJlbnRCYWxhbmNlRGVsdGEFAAAAFXRva2VuQmFsYW5jZUxhc3RDaGVjawUAAAATY3VycmVudEJhbGFuY2VEZWx0YQUAAAAVdG9rZW5CYWxhbmNlTGFzdENoZWNrBAAAAAtuZXdFYXJuaW5ncwkAAGUAAAACBQAAABRjdXJyZW50VG9rZW5FYXJuaW5ncwUAAAAVdG9rZW5CYWxhbmNlTGFzdENoZWNrBAAAAAtuZXdJbnRlcmVzdAMJAAAAAAAAAgUAAAALdG90YWxTdGFrZWQAAAAAAAAAAAAAAAAAAAAAAAAJAABrAAAAAwUAAAALbmV3RWFybmluZ3MFAAAABlNjYWxlOAUAAAALdG90YWxTdGFrZWQEAAAAEWxhc3RDaGVja0ludGVyZXN0CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABFnbG9iYWxfbGFzdENoZWNrXwUAAAAKYXNzZXRJZFN0cgIAAAAJX2ludGVyZXN0CQAAZAAAAAIFAAAAEWxhc3RDaGVja0ludGVyZXN0BQAAAAtuZXdJbnRlcmVzdAEAAAALY2xhaW1SZXN1bHQAAAABAAAAB2FkZHJlc3MEAAAACmFkZHJlc3NTdHIJAAQlAAAAAQUAAAAHYWRkcmVzcwQAAAAMcHV6emxlQW1vdW50CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAMX2luZGV4U3Rha2VkCgEAAAAHaGFuZGxlcgAAAAIAAAAFYWNjdW0AAAAHYXNzZXRJZAQAAAAKYXNzZXRJZFN0cgkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHYXNzZXRJZAQAAAAIYUJhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB2Fzc2V0SWQCAAAACF9iYWxhbmNlBAAAABZ0b2tlbkVhcm5pbmdzTGFzdENoZWNrCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABFnbG9iYWxfbGFzdENoZWNrXwUAAAAKYXNzZXRJZFN0cgIAAAAJX2Vhcm5pbmdzBAAAABRjdXJyZW50VG9rZW5JbnRlcmVzdAkBAAAAHWNhbGN1bGF0ZUN1cnJlbnRBc3NldEludGVyZXN0AAAABAUAAAAHYXNzZXRJZAUAAAAKYXNzZXRJZFN0cgUAAAAIYUJhbGFuY2UFAAAAFnRva2VuRWFybmluZ3NMYXN0Q2hlY2sEAAAAFGN1cnJlbnRUb2tlbkVhcm5pbmdzCQABlgAAAAEJAARMAAAAAgUAAAAWdG9rZW5FYXJuaW5nc0xhc3RDaGVjawkABEwAAAACCQAAZQAAAAIJAQAAAA9nZXRUb2tlbkJhbGFuY2UAAAABBQAAAAdhc3NldElkBQAAAAhhQmFsYW5jZQUAAAADbmlsBAAAAAxyZXdhcmRBbW91bnQJAABrAAAAAwUAAAAMcHV6emxlQW1vdW50CQAAZQAAAAIFAAAAFGN1cnJlbnRUb2tlbkludGVyZXN0CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAAC19sYXN0Q2hlY2tfBQAAAAphc3NldElkU3RyAgAAAAlfaW50ZXJlc3QFAAAABlNjYWxlOAQAAAAIdHJhbnNmZXIDCQAAAAAAAAIFAAAADHJld2FyZEFtb3VudAAAAAAAAAAAAAUAAAADbmlsCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAB2FkZHJlc3MFAAAADHJld2FyZEFtb3VudAUAAAAHYXNzZXRJZAUAAAADbmlsCQAFFAAAAAIJAAROAAAAAgkABE4AAAACCAUAAAAFYWNjdW0AAAACXzEFAAAACHRyYW5zZmVyCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAARZ2xvYmFsX2xhc3RDaGVja18FAAAACmFzc2V0SWRTdHICAAAACV9lYXJuaW5ncwkAAGUAAAACBQAAABRjdXJyZW50VG9rZW5FYXJuaW5ncwUAAAAMcmV3YXJkQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAARZ2xvYmFsX2xhc3RDaGVja18FAAAACmFzc2V0SWRTdHICAAAACV9pbnRlcmVzdAUAAAAUY3VycmVudFRva2VuSW50ZXJlc3QJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAAC19sYXN0Q2hlY2tfBQAAAAphc3NldElkU3RyAgAAAAlfaW50ZXJlc3QFAAAAFGN1cnJlbnRUb2tlbkludGVyZXN0BQAAAANuaWwJAABkAAAAAggFAAAABWFjY3VtAAAAAl8yCQEAAAASY2FsY3VsYXRlVXNkblZhbHVlAAAAAwUAAAAHYXNzZXRJZAUAAAAMcmV3YXJkQW1vdW50BQAAAAhhQmFsYW5jZQQAAAAFYWNjdW0KAAAAAAIkbAUAAAAMZWFybmVkQXNzZXRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAkABRQAAAACBQAAAANuaWwAAAAAAAAAAAAKAQAAAAUkZjRfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAdoYW5kbGVyAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGY0XzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGY0XzIAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACCQEAAAAFJGY0XzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgkABE4AAAACCAUAAAAFYWNjdW0AAAACXzEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAATX2NsYWltZWRSZXdhcmRWYWx1ZQkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAATX2NsYWltZWRSZXdhcmRWYWx1ZQgFAAAABWFjY3VtAAAAAl8yCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACl9sYXN0Q2xhaW0IBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wBQAAAANuaWwBAAAAEGluZGV4U3Rha2VSZXN1bHQAAAACAAAACmFkZHJlc3NTdHIAAAAGYW1vdW50BAAAAAJsaQkBAAAAC2NsYWltUmVzdWx0AAAAAQkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQUAAAAKYWRkcmVzc1N0cgkABE4AAAACBQAAAAJsaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACBQAAAAphZGRyZXNzU3RyAgAAAAxfaW5kZXhTdGFrZWQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAADF9pbmRleFN0YWtlZAUAAAAGYW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJnbG9iYWxfaW5kZXhTdGFrZWQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABJnbG9iYWxfaW5kZXhTdGFrZWQFAAAABmFtb3VudAUAAAADbmlsAQAAAANzdW0AAAACAAAABWFjY3VtAAAAAW4JAABkAAAAAgUAAAAFYWNjdW0JAQAAAA1wYXJzZUludFZhbHVlAAAAAQUAAAABbgAAAAoAAAABaQEAAAAHcHJlSW5pdAAAAAQAAAALYXNzZXRJZHNTdHIAAAAPYXNzZXRXZWlnaHRzU3RyAAAADmJhc2VUb2tlbklkU3RyAAAACnBvb2xEb21haW4DCQEAAAACIT0AAAACBQAAAAR0aGlzCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQIAAAAKYWRtaW4gb25seQMJAABmAAAAAgkAATEAAAABBQAAAApwb29sRG9tYWluAAAAAAAAAAANCQAAAgAAAAECAAAAFXRvbyBsYXJnZSBwb29sIGRvbWFpbgQAAAANYXNzZXRJZHNTdHJMaQkABLUAAAACBQAAAAthc3NldElkc1N0cgIAAAABLAQAAAAKYXNzZXRJZHNMaQoAAAAAAiRsBQAAAA1hc3NldElkc1N0ckxpCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGY0XzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAATYWRkQXNzZXRCeXRlc1RvTGlzdAAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmNF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmNF8yAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoEAAAAEWFzc2V0V2VpZ2h0c1N0ckxpCQAEtQAAAAIFAAAAD2Fzc2V0V2VpZ2h0c1N0cgIAAAABLAQAAAAPYXNzZXRXZWlnaHRzU3VtCgAAAAACJGwFAAAAEWFzc2V0V2VpZ2h0c1N0ckxpCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAAoBAAAABSRmNV8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAA3N1bQAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmNV8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmNV8yAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgkBAAAABSRmNV8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoKAQAAABNhZGRUb2tlbkRhdGFFbnRyaWVzAAAAAgAAAAVhY2N1bQAAAAhhc3NldE51bQMJAABnAAAAAgUAAAAIYXNzZXROdW0JAAGQAAAAAQUAAAAKYXNzZXRJZHNMaQUAAAAFYWNjdW0EAAAADWFzc2V0RGVjaW1hbHMEAAAAByRtYXRjaDAJAAGRAAAAAgUAAAAKYXNzZXRJZHNMaQUAAAAIYXNzZXROdW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAXgFAAAAByRtYXRjaDAICQEAAAAFdmFsdWUAAAABCQAD7AAAAAEFAAAAAXgAAAAIZGVjaW1hbHMAAAAAAAAAAAgJAAROAAAAAgUAAAAFYWNjdW0JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfCQABkQAAAAIFAAAADWFzc2V0SWRzU3RyTGkFAAAACGFzc2V0TnVtAgAAAAZfc2NhbGUJAABsAAAABgAAAAAAAAAACgAAAAAAAAAAAAUAAAANYXNzZXREZWNpbWFscwAAAAAAAAAAAAAAAAAAAAAAAAUAAAAERE9XTgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAB3N0YXRpY18JAAGRAAAAAgUAAAANYXNzZXRJZHNTdHJMaQUAAAAIYXNzZXROdW0CAAAACV9kZWNpbWFscwUAAAANYXNzZXREZWNpbWFscwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAB3N0YXRpY18JAAGRAAAAAgUAAAANYXNzZXRJZHNTdHJMaQUAAAAIYXNzZXROdW0CAAAAB193ZWlnaHQJAQAAAAV2YWx1ZQAAAAEJAAS2AAAAAQkAAZEAAAACBQAAABFhc3NldFdlaWdodHNTdHJMaQUAAAAIYXNzZXROdW0FAAAAA25pbAMJAQAAAAIhPQAAAAIFAAAAD2Fzc2V0V2VpZ2h0c1N1bQAAAAAAAAAAZAkAAAIAAAABAgAAAClzdW0gb2YgdG9rZW4gd2VpZ2h0cyBtdXN0IGJlIGVxdWFsIHRvIDEwMAkABE4AAAACCgAAAAACJGwJAARMAAAAAgAAAAAAAAAAAAkABEwAAAACAAAAAAAAAAABCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAAAwkABEwAAAACAAAAAAAAAAAECQAETAAAAAIAAAAAAAAAAAUJAARMAAAAAgAAAAAAAAAABgkABEwAAAACAAAAAAAAAAAHCQAETAAAAAIAAAAAAAAAAAgJAARMAAAAAgAAAAAAAAAACQUAAAADbmlsCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGY2XzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAATYWRkVG9rZW5EYXRhRW50cmllcwAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmNl8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmNl8yAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgkBAAAABSRmNl8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAPc3RhdGljX3Rva2VuSWRzBQAAAAthc3NldElkc1N0cgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAABNzdGF0aWNfdG9rZW5XZWlnaHRzBQAAAA9hc3NldFdlaWdodHNTdHIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAE3N0YXRpY190b2tlbnNBbW91bnQJAAGQAAAAAQUAAAAKYXNzZXRJZHNMaQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAABFzdGF0aWNfcG9vbERvbWFpbgUAAAAKcG9vbERvbWFpbgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAABJzdGF0aWNfYmFzZVRva2VuSWQFAAAADmJhc2VUb2tlbklkU3RyCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAApzdGF0aWNfZmVlAAAAAAAAAADIBQAAAANuaWwAAAABaQEAAAAGZGVJbml0AAAAAAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAAAphZG1pbiBvbmx5CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABBnbG9iYWxfd2FzSW5pdGVkAAAAAAAAAAAABQAAAANuaWwAAAABaQEAAAAEaW5pdAAAAAAKAQAAAAtwcmVwYXJlTGlzdAAAAAAKAQAAAAdoYW5kbGVyAAAAAgAAAAVhY2N1bQAAAAFuCQAETgAAAAIFAAAABWFjY3VtCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQgFAAAAAW4AAAAHYXNzZXRJZAIAAAAIX2JhbGFuY2UIBQAAAAFuAAAABmFtb3VudAUAAAADbmlsCgAAAAACJGwIBQAAAAFpAAAACHBheW1lbnRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGY0XzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAHaGFuZGxlcgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmNF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmNF8yAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoKAQAAABljYWxjdWxhdGVQb29sVG9rZW5zQW1vdW50AAAAAQAAAAhwYXltZW50cwoBAAAAB2hhbmRsZXIAAAACAAAABWFjY3VtAAAAA3BtdAQAAAAHYXNzZXRJZAgFAAAAA3BtdAAAAAdhc3NldElkCgEAAAAIaGFuZGxlcjIAAAACAAAABWFjY3VtAAAAAW4DCQAAAAAAAAIFAAAAAW4FAAAAB2Fzc2V0SWQJAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAIYXNzZXRJZHMFAAAAAW4FAAAABWFjY3VtBAAAAAVUb2tlbgoAAAAAAiRsBQAAAAhhc3NldElkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAAAAAAAAAAAAEKAQAAAAUkZjRfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAhoYW5kbGVyMgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmNF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmNF8yAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgkBAAAABSRmNF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoJAABrAAAAAwUAAAAFYWNjdW0JAABsAAAABggFAAAAA3BtdAAAAAZhbW91bnQJAAGRAAAAAgUAAAAIRGVjaW1hbHMFAAAABVRva2VuCQABkQAAAAIFAAAADUFzc2V0c1dlaWdodHMFAAAABVRva2VuBQAAABVBc3NldHNXZWlnaHRzRGVjaW1hbHMAAAAAAAAAAAgFAAAABUZMT09SBQAAAAZTY2FsZTgKAAAAAAIkbAUAAAAIcGF5bWVudHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAA5Qb29sVG9rZW5TY2FsZQoBAAAABSRmNF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAB2hhbmRsZXIAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjRfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjRfMgAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIJAQAAAAUkZjRfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAwkAAGYAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAEGdsb2JhbF93YXNJbml0ZWQAAAAAAAAAAAAJAAACAAAAAQIAAAATcG9vbCBhbHJlYWR5IGluaXRlZAQAAAARaW5pdGlhbFBvb2xUb2tlbnMJAQAAABljYWxjdWxhdGVQb29sVG9rZW5zQW1vdW50AAAAAQgFAAAAAWkAAAAIcGF5bWVudHMDCQAAAAAAAAIFAAAAEWluaXRpYWxQb29sVG9rZW5zAAAAAAAAAAAACQAAAgAAAAECAAAAMnlvdSBuZWVkIGEgYmlnZ2VyIHRva2VucyBhbW91bnQgdG8gbGF1bmNoIHRoZSBwb29sBAAAAA5wb29sVG9rZW5Jc3N1ZQkABEMAAAAHCQABLAAAAAICAAAAA1BaIAkBAAAADHRyeUdldFN0cmluZwAAAAECAAAAEXN0YXRpY19wb29sRG9tYWluAgAAAB1QdXp6bGUgU3dhcDogcG9vbCBpbmRleCB0b2tlbgUAAAARaW5pdGlhbFBvb2xUb2tlbnMFAAAAEVBvb2xUb2tlbkRlY2ltYWxzBgUAAAAEdW5pdAAAAAAAAAAAAAQAAAALcG9vbFRva2VuSWQJAAQ4AAAAAQUAAAAOcG9vbFRva2VuSXNzdWUJAAROAAAAAgkBAAAAC3ByZXBhcmVMaXN0AAAAAAkABEwAAAACBQAAAA5wb29sVG9rZW5Jc3N1ZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAXZ2xvYmFsX3Bvb2xUb2tlbl9hbW91bnQFAAAAEWluaXRpYWxQb29sVG9rZW5zCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABBnbG9iYWxfd2FzSW5pdGVkAAAAAAAAAAABCQAETAAAAAIJAQAAAAtCaW5hcnlFbnRyeQAAAAICAAAAE2dsb2JhbF9wb29sVG9rZW5faWQFAAAAC3Bvb2xUb2tlbklkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAFnN0YXRpY19wb29sVG9rZW5faWRTdHIJAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAC3Bvb2xUb2tlbklkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAARaW5pdGlhbFBvb2xUb2tlbnMFAAAAC3Bvb2xUb2tlbklkBQAAAANuaWwAAAABaQEAAAANZ2VuZXJhdGVJbmRleAAAAAEAAAAKbmVlZENoYW5nZQMJAQAAAAIhPQAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMFAAAAAVQJAAACAAAAAQkAASwAAAACAgAAADt5b3UgbmVlZCB0byBhdHRhY2ggYWxsIHBvb2wgdG9rZW5zLiBhbW91bnQgb2YgcG9vbCB0b2tlbnM6IAkAAaQAAAABBQAAAAFUAwkBAAAAASEAAAABCQEAAAATY2hlY2tUb2tlbnNWYWxpZGl0eQAAAAEIBQAAAAFpAAAACHBheW1lbnRzCQAAAgAAAAECAAAAFXdyb25nIGFzc2V0cyBhdHRhY2hlZAQAAAAHUElzc3VlZAkBAAAADWdldE1pblBJc3N1ZWQAAAABCAUAAAABaQAAAAhwYXltZW50cwQAAAAHcmVpc3N1ZQkBAAAAB1JlaXNzdWUAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA1NykAAAABAgAAABNnbG9iYWxfcG9vbFRva2VuX2lkBQAAAAdQSXNzdWVkBgQAAAAGcmVzdWx0CQEAAAATaGFuZGxlUG9vbFRva2Vuc0FkZAAAAAQFAAAAB1BJc3N1ZWQIBQAAAAFpAAAACHBheW1lbnRzCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIFAAAACm5lZWRDaGFuZ2UJAAUUAAAAAgkABE4AAAACBQAAAAZyZXN1bHQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAdQSXNzdWVkCQEAAAAMdHJ5R2V0QmluYXJ5AAAAAQIAAAATZ2xvYmFsX3Bvb2xUb2tlbl9pZAkABEwAAAACBQAAAAdyZWlzc3VlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAF2dsb2JhbF9wb29sVG9rZW5fYW1vdW50BQAAAAdQSXNzdWVkBQAAAANuaWwFAAAAB1BJc3N1ZWQAAAABaQEAAAAKc3Rha2VJbmRleAAAAAAEAAAACmFkZHJlc3NTdHIJAAQlAAAAAQgFAAAAAWkAAAAMb3JpZ2luQ2FsbGVyBAAAAANwbXQJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAADCQEAAAACIT0AAAACCQEAAAAFdmFsdWUAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAQAAAAx0cnlHZXRCaW5hcnkAAAABAgAAABNnbG9iYWxfcG9vbFRva2VuX2lkCQAAAgAAAAECAAAAFHdyb25nIGFzc2V0IGF0dGFjaGVkCQEAAAAQaW5kZXhTdGFrZVJlc3VsdAAAAAIFAAAACmFkZHJlc3NTdHIIBQAAAANwbXQAAAAGYW1vdW50AAAAAWkBAAAADHVuc3Rha2VJbmRleAAAAAEAAAAMcHV6emxlQW1vdW50BAAAAAphZGRyZXNzU3RyCQAEJQAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcgQAAAAPcHV6emxlQXZhaWxhYmxlCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAMX2luZGV4U3Rha2VkAwkAAGYAAAACBQAAAAxwdXp6bGVBbW91bnQFAAAAD3B1enpsZUF2YWlsYWJsZQkAAAIAAAABAgAAACV5b3UgZG9uJ3QgaGF2ZSBpbmRleCB0b2tlbnMgYXZhaWxhYmxlCQAETgAAAAIJAQAAAAtjbGFpbVJlc3VsdAAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACBQAAAAphZGRyZXNzU3RyAgAAAAxfaW5kZXhTdGFrZWQJAABlAAAAAgUAAAAPcHV6emxlQXZhaWxhYmxlBQAAAAxwdXp6bGVBbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAEmdsb2JhbF9pbmRleFN0YWtlZAkAAGUAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAEmdsb2JhbF9pbmRleFN0YWtlZAUAAAAMcHV6emxlQW1vdW50CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAMcHV6emxlQW1vdW50CQEAAAARQGV4dHJOYXRpdmUoMTA1NykAAAABAgAAABNnbG9iYWxfcG9vbFRva2VuX2lkBQAAAANuaWwAAAABaQEAAAARY2xhaW1JbmRleFJld2FyZHMAAAAACQEAAAALY2xhaW1SZXN1bHQAAAABCAUAAAABaQAAAAZjYWxsZXIAAAABaQEAAAALcmVkZWVtSW5kZXgAAAABAAAADHNlbmRUb09yaWdpbgQAAAADcG10CQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkCQEAAAAMdHJ5R2V0QmluYXJ5AAAAAQIAAAATZ2xvYmFsX3Bvb2xUb2tlbl9pZAkAAAIAAAABAgAAAB5wbGVhc2UgYXR0YWNoIHBvb2wgc2hhcmUgdG9rZW4EAAAACVBSZWRlZW1lZAgFAAAAA3BtdAAAAAZhbW91bnQEAAAABnJlc3VsdAkBAAAAFmhhbmRsZVBvb2xUb2tlbnNSZWRlZW0AAAACBQAAAAlQUmVkZWVtZWQDBQAAAAxzZW5kVG9PcmlnaW4IBQAAAAFpAAAADG9yaWdpbkNhbGxlcggFAAAAAWkAAAAGY2FsbGVyCQAETgAAAAIFAAAABnJlc3VsdAkABEwAAAACCQEAAAAEQnVybgAAAAIJAQAAAAx0cnlHZXRCaW5hcnkAAAABAgAAABNnbG9iYWxfcG9vbFRva2VuX2lkBQAAAAlQUmVkZWVtZWQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAF2dsb2JhbF9wb29sVG9rZW5fYW1vdW50CQAAZQAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQIAAAAXZ2xvYmFsX3Bvb2xUb2tlbl9hbW91bnQFAAAACVBSZWRlZW1lZAUAAAADbmlsAAAAAWkBAAAABHN3YXAAAAACAAAACGFzc2V0T3V0AAAAB21pbmltdW0EAAAAA3BtdAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAAIQW1vdW50SW4JAQAAAAV2YWx1ZQAAAAEICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAQAAAAHQXNzZXRJbggFAAAAA3BtdAAAAAdhc3NldElkBAAAAAhBc3NldE91dAkBAAAADWdldEFzc2V0Qnl0ZXMAAAABBQAAAAhhc3NldE91dAQAAAAOQXNzZXRJbkJhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB0Fzc2V0SW4CAAAACF9iYWxhbmNlBAAAAA9Bc3NldE91dEJhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAACGFzc2V0T3V0AgAAAAhfYmFsYW5jZQQAAAAJQW1vdW50T3V0CQEAAAASY2FsY3VsYXRlT3V0QW1vdW50AAAABQUAAAAIQW1vdW50SW4FAAAAB0Fzc2V0SW4FAAAACEFzc2V0T3V0BQAAAA5Bc3NldEluQmFsYW5jZQUAAAAPQXNzZXRPdXRCYWxhbmNlBAAAAAlmZWVBbW91bnQJAABrAAAAAwUAAAAJQW1vdW50T3V0BQAAAANGZWUFAAAACEZlZVNjYWxlBAAAAA5jbGVhbkFtb3VudE91dAkAAGUAAAACBQAAAAlBbW91bnRPdXQFAAAACWZlZUFtb3VudAMJAABmAAAAAgUAAAAHbWluaW11bQUAAAAOY2xlYW5BbW91bnRPdXQJAAACAAAAAQkAASwAAAACAgAAACthbW91bnQgdG8gcmVjaWV2ZSBpcyBsb3dlciB0aGFuIGdpdmVuIG9uZTogCQABpAAAAAEFAAAADmNsZWFuQW1vdW50T3V0AwkAAGYAAAACAAAAAAAAAAAACQAAZQAAAAIFAAAAD0Fzc2V0T3V0QmFsYW5jZQUAAAAJQW1vdW50T3V0CQAAAgAAAAECAAAAG2NvbnRyYWN0IGlzIG91dCBvZiByZXNlcnZlcwQAAAAMbmV3QmFsYW5jZUluCQAAZAAAAAIFAAAADkFzc2V0SW5CYWxhbmNlBQAAAAhBbW91bnRJbgQAAAANbmV3QmFsYW5jZU91dAkAAGUAAAACBQAAAA9Bc3NldE91dEJhbGFuY2UFAAAACUFtb3VudE91dAQAAAALdXNkbkFzc2V0SWQBAAAAILYmKcME9c5TkaQOS3UkL2SMUbH6369UKb1I0h0qsqrRAwkAAAAAAAACBQAAAAt1c2RuQXNzZXRJZAUAAAAIQXNzZXRPdXQEAAAADXVzZG5GZWVBbW91bnQFAAAACWZlZUFtb3VudAQAAAAPcHJvdG9jb2xVc2RuRmVlCQAAawAAAAMFAAAADXVzZG5GZWVBbW91bnQAAAAAAAAAAAQAAAAAAAAAAAoEAAAADHN0YWtpbmdUb3BVcAkAA/0AAAAECQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFXlGiM+e6iuaqf1vWOvKmPZxqcBvQWKYm7AgAAAAt0b3BVcFJld2FyZAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAt1c2RuQXNzZXRJZAUAAAAPcHJvdG9jb2xVc2RuRmVlBQAAAANuaWwDCQAAAAAAAAIFAAAADHN0YWtpbmdUb3BVcAUAAAAMc3Rha2luZ1RvcFVwCQAFFAAAAAIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfBQAAAAhhc3NldE91dAIAAAAIX2JhbGFuY2UFAAAADW5ld0JhbGFuY2VPdXQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAAdBc3NldEluAgAAAAhfYmFsYW5jZQUAAAAMbmV3QmFsYW5jZUluCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAOY2xlYW5BbW91bnRPdXQFAAAACEFzc2V0T3V0CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA1nbG9iYWxfdm9sdW1lCQAAZAAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQIAAAANZ2xvYmFsX3ZvbHVtZQkBAAAAEmNhbGN1bGF0ZVVzZG5WYWx1ZQAAAAMFAAAAB0Fzc2V0SW4FAAAACEFtb3VudEluBQAAAA5Bc3NldEluQmFsYW5jZQUAAAADbmlsBQAAAA5jbGVhbkFtb3VudE91dAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAAAAC3VzZG5CYWxhbmNlAwkAAAAAAAACBQAAAAdBc3NldEluBQAAAAt1c2RuQXNzZXRJZAUAAAAMbmV3QmFsYW5jZUluCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAAt1c2RuQXNzZXRJZAIAAAAIX2JhbGFuY2UEAAAADXVzZG5GZWVBbW91bnQJAQAAABJjYWxjdWxhdGVPdXRBbW91bnQAAAAFBQAAAAlmZWVBbW91bnQFAAAACEFzc2V0T3V0BQAAAAt1c2RuQXNzZXRJZAUAAAANbmV3QmFsYW5jZU91dAUAAAALdXNkbkJhbGFuY2UEAAAAD3Byb3RvY29sVXNkbkZlZQkAAGsAAAADBQAAAA11c2RuRmVlQW1vdW50AAAAAAAAAAAEAAAAAAAAAAAKBAAAAAxzdGFraW5nVG9wVXAJAAP9AAAABAkBAAAAB0FkZHJlc3MAAAABAQAAABoBV5RojPnuormqn9b1jrypj2canAb0FimJuwIAAAALdG9wVXBSZXdhcmQFAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgUAAAALdXNkbkFzc2V0SWQFAAAAD3Byb3RvY29sVXNkbkZlZQUAAAADbmlsAwkAAAAAAAACBQAAAAxzdGFraW5nVG9wVXAFAAAADHN0YWtpbmdUb3BVcAQAAAAWdXNkbkJhbGFuY2VDaGFuZ2VFbnRyeQkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfCQACWAAAAAEFAAAAC3VzZG5Bc3NldElkAgAAAAhfYmFsYW5jZQkAAGUAAAACBQAAAAt1c2RuQmFsYW5jZQUAAAANdXNkbkZlZUFtb3VudAQAAAAOYmFsYW5jZUNoYW5nZXMDCQAAAAAAAAIFAAAAB0Fzc2V0SW4FAAAAC3VzZG5Bc3NldElkCQAETAAAAAIFAAAAFnVzZG5CYWxhbmNlQ2hhbmdlRW50cnkFAAAAA25pbAkABEwAAAACBQAAABZ1c2RuQmFsYW5jZUNoYW5nZUVudHJ5CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHQXNzZXRJbgIAAAAIX2JhbGFuY2UFAAAADG5ld0JhbGFuY2VJbgUAAAADbmlsCQAFFAAAAAIJAAROAAAAAgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAACGFzc2V0T3V0AgAAAAhfYmFsYW5jZQkAAGQAAAACBQAAAA1uZXdCYWxhbmNlT3V0BQAAAAlmZWVBbW91bnQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAA5jbGVhbkFtb3VudE91dAUAAAAIQXNzZXRPdXQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADWdsb2JhbF92b2x1bWUJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABAgAAAA1nbG9iYWxfdm9sdW1lCQEAAAASY2FsY3VsYXRlVXNkblZhbHVlAAAAAwUAAAAHQXNzZXRJbgUAAAAIQW1vdW50SW4FAAAADkFzc2V0SW5CYWxhbmNlBQAAAANuaWwFAAAADmJhbGFuY2VDaGFuZ2VzBQAAAA5jbGVhbkFtb3VudE91dAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAIY2FsY1N3YXAAAAADAAAACWFzc2V0MFN0cgAAAAlhc3NldDFTdHIAAAAGYW1vdW50CQAFFAAAAAIFAAAAA25pbAkBAAAAEmNhbGN1bGF0ZU91dEFtb3VudAAAAAUFAAAABmFtb3VudAkAAlkAAAABBQAAAAlhc3NldDBTdHIJAAJZAAAAAQUAAAAJYXNzZXQxU3RyCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfBQAAAAlhc3NldDBTdHICAAAACF9iYWxhbmNlCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfBQAAAAlhc3NldDFTdHICAAAACF9iYWxhbmNlAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAMJAQAAAAppc1NodXRkb3duAAAAAAcJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5Ele57A==",
    "height": 3190849,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Edk3E6UW5dMtyACAh2KamqZCnuwsrmHVYTXgkf6QQ2yG
Next: 6k2RtktJdLiVV45yQv4Dm1xzdCsA2ifbeXdLWnFJTm4G

Diff: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
5 - 
6 - let puzzleAssetId = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
7 - 
8 - let usdnAssetIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
9 - 
10 - let puzzleAssetIdStr = "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS"
11 - 
12 - let parentPoolAddress = Address(base58'3PFDgzu1UtswAkCMxqqQjbTeHaX4cMab8Kh')
13 - 
14 - let masterAddress = Address(base58'3PLjwHcz9NEuaTo63NZR9B9okQiKQxZSbmf')
15 - 
16 - let masterPubKey = base58'4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU'
17 - 
18 4  func tryGetInteger (key) = match getInteger(this, key) {
19 5      case b: Int => 
20 6          b
131 117  
132 118  let Fee = tryGetInteger("static_fee")
133 119  
134 - let AssetsWeightsDecimals = 4
120 + let AssetsWeightsDecimals = 2
135 121  
136 122  let Scale = 10000
137 123  
196 182      }
197 183  
198 184  
199 - func calculateUsdnValue (assetId,amount,aBalance,givenUsdnBalance) = {
200 -     let usdnInPool = indexOf(assetIds, usdnAssetId)
185 + func calculateUsdnValue (assetId,amount,aBalance) = {
186 +     let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
187 +     let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
201 188      let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
202 -     if ((usdnInPool == unit))
203 -         then {
204 -             let puzzleWeight = AssetsWeights[value(indexOf(assetIds, puzzleAssetId))]
205 -             let puzzleBalance = tryGetInteger((("global_" + puzzleAssetIdStr) + "_balance"))
206 -             let amountInPuzzle = fraction(amount, (puzzleBalance / puzzleWeight), (aBalance / assetWeight))
207 -             let puzzlePrice = getIntegerValue(parentPoolAddress, "global_lastPuzzlePrice")
208 -             fraction((amountInPuzzle * puzzlePrice), 1, Scale8)
209 -             }
210 -         else {
211 -             let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnAssetId))]
212 -             let usdnBalance =             match givenUsdnBalance {
213 -                 case x: Int => 
214 -                     givenUsdnBalance
215 -                 case _ => 
216 -                     tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
217 -             }
218 -             fraction(amount, (value(usdnBalance) / usdnWeight), (aBalance / assetWeight))
219 -             }
189 +     let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
190 +     fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
220 191      }
221 192  
222 193  
345 316      let IndexIn = value(indexOf(assetIds, assetIn))
346 317      let IndexOut = value(indexOf(assetIds, assetOut))
347 318      if ((IndexIn == IndexOut))
348 -         then AmountIn
319 +         then throw("wrong tokens pair")
349 320          else fraction(BalanceOut, ((Scale8 * Scale8) - toInt(pow(fraction(toBigInt(BalanceIn), toBigInt((Scale8 * Scale8)), toBigInt((BalanceIn + AmountIn)), HALFUP), 16, toBigInt(fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut])), 4, 16, CEILING))), (Scale8 * Scale8), DOWN)
350 321      }
351 322  
387 358          let transfer = if ((rewardAmount == 0))
388 359              then nil
389 360              else [ScriptTransfer(address, rewardAmount, assetId)]
390 -         $Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance, unit)))
361 +         $Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance)))
391 362          }
392 363  
393 364      let accum = {
418 389  
419 390  
420 391  @Callable(i)
421 - func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain,poolOwner,fee) = {
422 -     let poolOwnerAddress = Address(fromBase58String(poolOwner))
423 -     if ((this != i.caller))
424 -         then throw("admin only")
425 -         else if ((size(poolDomain) > 13))
426 -             then throw("too large pool domain")
427 -             else if (if ((fee > 500))
428 -                 then true
429 -                 else (50 > fee))
430 -                 then throw("fee value must be between 50 and 500 (0.5-5%)")
431 -                 else if (if ((indexOf(assetIdsStr, puzzleAssetIdStr) == unit))
432 -                     then (indexOf(assetIdsStr, usdnAssetIdStr) == unit)
433 -                     else false)
434 -                     then throw("pool must have USDN or PUZZLE in the composition")
435 -                     else {
436 -                         let assetIdsStrLi = split(assetIdsStr, ",")
437 -                         let assetIdsLi = {
438 -                             let $l = assetIdsStrLi
439 -                             let $s = size($l)
440 -                             let $acc0 = nil
441 -                             func $f4_1 ($a,$i) =                             if (($i >= $s))
442 -                                 then $a
443 -                                 else addAssetBytesToList($a, $l[$i])
392 + func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain) = if ((this != i.caller))
393 +     then throw("admin only")
394 +     else if ((size(poolDomain) > 13))
395 +         then throw("too large pool domain")
396 +         else {
397 +             let assetIdsStrLi = split(assetIdsStr, ",")
398 +             let assetIdsLi = {
399 +                 let $l = assetIdsStrLi
400 +                 let $s = size($l)
401 +                 let $acc0 = nil
402 +                 func $f4_1 ($a,$i) =                 if (($i >= $s))
403 +                     then $a
404 +                     else addAssetBytesToList($a, $l[$i])
444 405  
445 -                             func $f4_2 ($a,$i) =                             if (($i >= $s))
446 -                                 then $a
447 -                                 else throw("List size exceeds 10")
406 +                 func $f4_2 ($a,$i) =                 if (($i >= $s))
407 +                     then $a
408 +                     else throw("List size exceeds 10")
448 409  
449 -                             $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
450 -                             }
451 -                         let assetWeightsStrLi = split(assetWeightsStr, ",")
452 -                         let assetWeightsSum = {
453 -                             let $l = assetWeightsStrLi
454 -                             let $s = size($l)
455 -                             let $acc0 = 0
456 -                             func $f5_1 ($a,$i) =                             if (($i >= $s))
457 -                                 then $a
458 -                                 else sum($a, $l[$i])
410 +                 $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
411 +                 }
412 +             let assetWeightsStrLi = split(assetWeightsStr, ",")
413 +             let assetWeightsSum = {
414 +                 let $l = assetWeightsStrLi
415 +                 let $s = size($l)
416 +                 let $acc0 = 0
417 +                 func $f5_1 ($a,$i) =                 if (($i >= $s))
418 +                     then $a
419 +                     else sum($a, $l[$i])
459 420  
460 -                             func $f5_2 ($a,$i) =                             if (($i >= $s))
461 -                                 then $a
462 -                                 else throw("List size exceeds 10")
421 +                 func $f5_2 ($a,$i) =                 if (($i >= $s))
422 +                     then $a
423 +                     else throw("List size exceeds 10")
463 424  
464 -                             $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
465 -                             }
466 -                         let feeAssetStr = if ((indexOf(assetIdsStr, usdnAssetIdStr) == unit))
467 -                             then puzzleAssetIdStr
468 -                             else usdnAssetIdStr
469 -                         func addTokenDataEntries (accum,assetNum) =                         if ((assetNum >= size(assetIdsLi)))
470 -                             then accum
471 -                             else {
472 -                                 let assetDecimals =                                 match assetIdsLi[assetNum] {
473 -                                     case x: ByteVector => 
474 -                                         value(assetInfo(x)).decimals
475 -                                     case _ => 
476 -                                         8
477 -                                 }
478 -                                 (accum ++ [IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_scale"), pow(10, 0, assetDecimals, 0, 0, DOWN)), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_decimals"), assetDecimals), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_weight"), value(parseInt(assetWeightsStrLi[assetNum])))])
479 -                                 }
425 +                 $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
426 +                 }
427 +             func addTokenDataEntries (accum,assetNum) =             if ((assetNum >= size(assetIdsLi)))
428 +                 then accum
429 +                 else {
430 +                     let assetDecimals =                     match assetIdsLi[assetNum] {
431 +                         case x: ByteVector => 
432 +                             value(assetInfo(x)).decimals
433 +                         case _ => 
434 +                             8
435 +                     }
436 +                     (accum ++ [IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_scale"), pow(10, 0, assetDecimals, 0, 0, DOWN)), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_decimals"), assetDecimals), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_weight"), value(parseInt(assetWeightsStrLi[assetNum])))])
437 +                     }
480 438  
481 -                         if ((assetWeightsSum != 10000))
482 -                             then throw("sum of token weights must be equal to 10000")
483 -                             else ({
484 -                                 let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
485 -                                 let $s = size($l)
486 -                                 let $acc0 = nil
487 -                                 func $f6_1 ($a,$i) =                                 if (($i >= $s))
488 -                                     then $a
489 -                                     else addTokenDataEntries($a, $l[$i])
439 +             if ((assetWeightsSum != 100))
440 +                 then throw("sum of token weights must be equal to 100")
441 +                 else ({
442 +                     let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
443 +                     let $s = size($l)
444 +                     let $acc0 = nil
445 +                     func $f6_1 ($a,$i) =                     if (($i >= $s))
446 +                         then $a
447 +                         else addTokenDataEntries($a, $l[$i])
490 448  
491 -                                 func $f6_2 ($a,$i) =                                 if (($i >= $s))
492 -                                     then $a
493 -                                     else throw("List size exceeds 10")
449 +                     func $f6_2 ($a,$i) =                     if (($i >= $s))
450 +                         then $a
451 +                         else throw("List size exceeds 10")
494 452  
495 -                                 $f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
496 -                                 } ++ [StringEntry("static_tokenIds", assetIdsStr), StringEntry("static_feeToken", feeAssetStr), StringEntry("static_tokenWeights", assetWeightsStr), IntegerEntry("static_tokensAmount", size(assetIdsLi)), StringEntry("static_poolDomain", poolDomain), StringEntry("static_baseTokenId", baseTokenIdStr), StringEntry("static_poolOwner", poolOwner), IntegerEntry("static_fee", fee)])
497 -                         }
498 -     }
453 +                     $f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
454 +                     } ++ [StringEntry("static_tokenIds", assetIdsStr), StringEntry("static_tokenWeights", assetWeightsStr), IntegerEntry("static_tokensAmount", size(assetIdsLi)), StringEntry("static_poolDomain", poolDomain), StringEntry("static_baseTokenId", baseTokenIdStr), IntegerEntry("static_fee", 200)])
455 +             }
499 456  
500 457  
501 458  
572 529                  else {
573 530                      let poolTokenIssue = Issue(("PZ " + tryGetString("static_poolDomain")), "Puzzle Swap: pool index token", initialPoolTokens, PoolTokenDecimals, true, unit, 0)
574 531                      let poolTokenId = calculateAssetId(poolTokenIssue)
575 -                     (prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), StringEntry("static_poolToken_idStr", getAssetString(poolTokenId)), IntegerEntry((toString(i.caller) + "_indexStaked"), initialPoolTokens), IntegerEntry("global_indexStaked", initialPoolTokens)])
532 +                     (prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), StringEntry("static_poolToken_idStr", getAssetString(poolTokenId)), ScriptTransfer(i.caller, initialPoolTokens, poolTokenId)])
576 533                      }
577 534              }
578 535      }
610 567      let puzzleAvailable = tryGetInteger((addressStr + "_indexStaked"))
611 568      if ((puzzleAmount > puzzleAvailable))
612 569          then throw("you don't have index tokens available")
613 -         else if (isShutdown())
614 -             then throw("contract is on stop")
615 -             else (claimResult(i.originCaller) ++ [IntegerEntry((addressStr + "_indexStaked"), (puzzleAvailable - puzzleAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - puzzleAmount)), ScriptTransfer(i.caller, puzzleAmount, getBinaryValue("global_poolToken_id"))])
570 +         else (claimResult(i.originCaller) ++ [IntegerEntry((addressStr + "_indexStaked"), (puzzleAvailable - puzzleAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - puzzleAmount)), ScriptTransfer(i.caller, puzzleAmount, getBinaryValue("global_poolToken_id"))])
616 571      }
617 572  
618 573  
619 574  
620 575  @Callable(i)
621 - func claimIndexRewards () = if (isShutdown())
622 -     then throw("contract is on stop")
623 -     else claimResult(i.caller)
576 + func claimIndexRewards () = claimResult(i.caller)
624 577  
625 578  
626 579  
629 582      let pmt = i.payments[0]
630 583      if ((pmt.assetId != tryGetBinary("global_poolToken_id")))
631 584          then throw("please attach pool share token")
632 -         else if (isShutdown())
633 -             then throw("contract is on stop")
585 +         else {
586 +             let PRedeemed = pmt.amount
587 +             let result = handlePoolTokensRedeem(PRedeemed, if (sendToOrigin)
588 +                 then i.originCaller
589 +                 else i.caller)
590 +             (result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemed), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemed))])
591 +             }
592 +     }
593 + 
594 + 
595 + 
596 + @Callable(i)
597 + func swap (assetOut,minimum) = {
598 +     let pmt = value(i.payments[0])
599 +     let AmountIn = value(i.payments[0].amount)
600 +     let AssetIn = pmt.assetId
601 +     let AssetOut = getAssetBytes(assetOut)
602 +     let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
603 +     let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
604 +     let AmountOut = calculateOutAmount(AmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
605 +     let feeAmount = fraction(AmountOut, Fee, FeeScale)
606 +     let cleanAmountOut = (AmountOut - feeAmount)
607 +     if ((minimum > cleanAmountOut))
608 +         then throw(("amount to recieve is lower than given one: " + toString(cleanAmountOut)))
609 +         else if ((0 > (AssetOutBalance - AmountOut)))
610 +             then throw("contract is out of reserves")
634 611              else {
635 -                 let PRedeemed = pmt.amount
636 -                 let result = handlePoolTokensRedeem(PRedeemed, if (sendToOrigin)
637 -                     then i.originCaller
638 -                     else i.caller)
639 -                 (result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemed), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemed))])
612 +                 let newBalanceIn = (AssetInBalance + AmountIn)
613 +                 let newBalanceOut = (AssetOutBalance - AmountOut)
614 +                 let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
615 +                 if ((usdnAssetId == AssetOut))
616 +                     then {
617 +                         let usdnFeeAmount = feeAmount
618 +                         let protocolUsdnFee = fraction(usdnFeeAmount, 4, 10)
619 +                         let stakingTopUp = reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(usdnAssetId, protocolUsdnFee)])
620 +                         if ((stakingTopUp == stakingTopUp))
621 +                             then $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
622 +                             else throw("Strict value is not equal to itself.")
623 +                         }
624 +                     else {
625 +                         let usdnBalance = if ((AssetIn == usdnAssetId))
626 +                             then newBalanceIn
627 +                             else tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
628 +                         let usdnFeeAmount = calculateOutAmount(feeAmount, AssetOut, usdnAssetId, newBalanceOut, usdnBalance)
629 +                         let protocolUsdnFee = fraction(usdnFeeAmount, 4, 10)
630 +                         let stakingTopUp = reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(usdnAssetId, protocolUsdnFee)])
631 +                         if ((stakingTopUp == stakingTopUp))
632 +                             then {
633 +                                 let usdnBalanceChangeEntry = IntegerEntry((("global_" + toBase58String(usdnAssetId)) + "_balance"), (usdnBalance - usdnFeeAmount))
634 +                                 let balanceChanges = if ((AssetIn == usdnAssetId))
635 +                                     then [usdnBalanceChangeEntry]
636 +                                     else [usdnBalanceChangeEntry, IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn)]
637 +                                 $Tuple2(([IntegerEntry((("global_" + assetOut) + "_balance"), (newBalanceOut + feeAmount)), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))] ++ balanceChanges), cleanAmountOut)
638 +                                 }
639 +                             else throw("Strict value is not equal to itself.")
640 +                         }
640 641                  }
641 642      }
642 643  
643 644  
644 645  
645 646  @Callable(i)
646 - func swap (assetOut,minimum) = {
647 -     let pmt = if ((size(i.payments) == 1))
648 -         then value(i.payments[0])
649 -         else throw("please attach exactly one payment")
650 -     let AmountIn = value(i.payments[0].amount)
651 -     let AssetIn = pmt.assetId
652 -     let AssetOut = getAssetBytes(assetOut)
653 -     let feeAssetIn = AssetIn
654 -     let feeAssetOutStr = tryGetString("static_feeToken")
655 -     let feeAssetOut = if ((feeAssetOutStr == ""))
656 -         then usdnAssetId
657 -         else fromBase58String(feeAssetOutStr)
658 -     let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
659 -     let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
660 -     let feeAssetOutBalance = tryGetInteger((("global_" + getAssetString(feeAssetOut)) + "_balance"))
661 -     let feeAmountIn = fraction(AmountIn, Fee, FeeScale)
662 -     let cleanAmountIn = (AmountIn - feeAmountIn)
663 -     let AmountOut = calculateOutAmount(cleanAmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
664 -     let feeAmountOut = calculateOutAmount(feeAmountIn, AssetIn, feeAssetOut, AssetInBalance, feeAssetOutBalance)
665 -     if ((minimum > AmountOut))
666 -         then throw(("amount to recieve is lower than given one: " + toString(AmountOut)))
667 -         else if ((AssetOut == AssetIn))
668 -             then throw("this swap is not allowed")
669 -             else if ((0 > (AssetOutBalance - AmountOut)))
670 -                 then throw("contract is out of reserves")
671 -                 else if (isShutdown())
672 -                     then throw("contract is on stop")
673 -                     else {
674 -                         let creatorFee = fraction(feeAmountOut, 1, 10)
675 -                         let protocolFee = fraction(feeAmountOut, 4, 10)
676 -                         let stakingTopUp = if ((feeAssetOut == usdnAssetId))
677 -                             then reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(feeAssetOut, protocolFee)])
678 -                             else unit
679 -                         if ((stakingTopUp == stakingTopUp))
680 -                             then {
681 -                                 let newBalanceIn = ((AssetInBalance + AmountIn) - (if ((AssetIn == feeAssetOut))
682 -                                     then feeAmountOut
683 -                                     else 0))
684 -                                 let newBalanceOut = ((AssetOutBalance - AmountOut) - (if ((AssetOut == feeAssetOut))
685 -                                     then feeAmountOut
686 -                                     else 0))
687 -                                 let newBalanceFeeAsset = if (if ((feeAssetOut != AssetIn))
688 -                                     then (feeAssetOut != AssetOut)
689 -                                     else false)
690 -                                     then (feeAssetOutBalance - feeAmountOut)
691 -                                     else unit
692 -                                 let assetInChange = IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn)
693 -                                 let assetOutChange = IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut)
694 -                                 let feeAssetOutChange = if ((newBalanceFeeAsset != unit))
695 -                                     then IntegerEntry((("global_" + getAssetString(feeAssetOut)) + "_balance"), feeAssetOutBalance)
696 -                                     else StringEntry("hello", "world")
697 -                                 $Tuple2([assetOutChange, assetInChange, feeAssetOutChange, ScriptTransfer(i.caller, AmountOut, AssetOut), ScriptTransfer(addressFromStringValue(tryGetString("static_poolOwner")), creatorFee, feeAssetOut), IntegerEntry("global_earnedByOwner", (tryGetInteger("global_earnedByOwner") + creatorFee)), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance, feeAssetOutBalance)))], AmountOut)
698 -                                 }
699 -                             else throw("Strict value is not equal to itself.")
700 -                         }
701 -     }
647 + func calcSwap (asset0Str,asset1Str,amount) = $Tuple2(nil, calculateOutAmount(amount, fromBase58String(asset0Str), fromBase58String(asset1Str), tryGetInteger((("global_" + asset0Str) + "_balance")), tryGetInteger((("global_" + asset1Str) + "_balance"))))
702 648  
703 649  
704 650  @Verifier(tx)
705 651  func verify () = if (isShutdown())
706 652      then false
707 -     else if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
708 -         then true
709 -         else sigVerify(tx.bodyBytes, tx.proofs[0], masterPubKey)
653 +     else sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
710 654  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
5 - 
6 - let puzzleAssetId = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
7 - 
8 - let usdnAssetIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
9 - 
10 - let puzzleAssetIdStr = "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS"
11 - 
12 - let parentPoolAddress = Address(base58'3PFDgzu1UtswAkCMxqqQjbTeHaX4cMab8Kh')
13 - 
14 - let masterAddress = Address(base58'3PLjwHcz9NEuaTo63NZR9B9okQiKQxZSbmf')
15 - 
16 - let masterPubKey = base58'4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU'
17 - 
18 4  func tryGetInteger (key) = match getInteger(this, key) {
19 5      case b: Int => 
20 6          b
21 7      case _ => 
22 8          0
23 9  }
24 10  
25 11  
26 12  func tryGetBinary (key) = match getBinary(this, key) {
27 13      case b: ByteVector => 
28 14          b
29 15      case _ => 
30 16          base58''
31 17  }
32 18  
33 19  
34 20  func tryGetString (key) = match getString(this, key) {
35 21      case b: String => 
36 22          b
37 23      case _ => 
38 24          ""
39 25  }
40 26  
41 27  
42 28  func getAssetString (assetId) = match assetId {
43 29      case b: ByteVector => 
44 30          toBase58String(b)
45 31      case _ => 
46 32          "WAVES"
47 33  }
48 34  
49 35  
50 36  func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
51 37      then unit
52 38      else fromBase58String(assetIdStr)
53 39  
54 40  
55 41  func addAssetBytesToList (accum,item) = (accum ++ [getAssetBytes(item)])
56 42  
57 43  
58 44  func addAssetWeightToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_weight"))])
59 45  
60 46  
61 47  func addAssetDecimalsToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_decimals"))])
62 48  
63 49  
64 50  func addAssetScaleToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_scale"))])
65 51  
66 52  
67 53  func addIntToList (accum,item) = (accum ++ [parseIntValue(item)])
68 54  
69 55  
70 56  let T = tryGetInteger("static_tokensAmount")
71 57  
72 58  let assetIds = {
73 59      let $l = split(tryGetString("static_tokenIds"), ",")
74 60      let $s = size($l)
75 61      let $acc0 = nil
76 62      func $f0_1 ($a,$i) =     if (($i >= $s))
77 63          then $a
78 64          else addAssetBytesToList($a, $l[$i])
79 65  
80 66      func $f0_2 ($a,$i) =     if (($i >= $s))
81 67          then $a
82 68          else throw("List size exceeds 10")
83 69  
84 70      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
85 71      }
86 72  
87 73  let AssetsWeights = {
88 74      let $l = assetIds
89 75      let $s = size($l)
90 76      let $acc0 = nil
91 77      func $f1_1 ($a,$i) =     if (($i >= $s))
92 78          then $a
93 79          else addAssetWeightToList($a, $l[$i])
94 80  
95 81      func $f1_2 ($a,$i) =     if (($i >= $s))
96 82          then $a
97 83          else throw("List size exceeds 10")
98 84  
99 85      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
100 86      }
101 87  
102 88  let Decimals = {
103 89      let $l = assetIds
104 90      let $s = size($l)
105 91      let $acc0 = nil
106 92      func $f2_1 ($a,$i) =     if (($i >= $s))
107 93          then $a
108 94          else addAssetDecimalsToList($a, $l[$i])
109 95  
110 96      func $f2_2 ($a,$i) =     if (($i >= $s))
111 97          then $a
112 98          else throw("List size exceeds 10")
113 99  
114 100      $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
115 101      }
116 102  
117 103  let Scales = {
118 104      let $l = assetIds
119 105      let $s = size($l)
120 106      let $acc0 = nil
121 107      func $f3_1 ($a,$i) =     if (($i >= $s))
122 108          then $a
123 109          else addAssetScaleToList($a, $l[$i])
124 110  
125 111      func $f3_2 ($a,$i) =     if (($i >= $s))
126 112          then $a
127 113          else throw("List size exceeds 10")
128 114  
129 115      $f3_2($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
130 116      }
131 117  
132 118  let Fee = tryGetInteger("static_fee")
133 119  
134 - let AssetsWeightsDecimals = 4
120 + let AssetsWeightsDecimals = 2
135 121  
136 122  let Scale = 10000
137 123  
138 124  let Scale8 = 100000000
139 125  
140 126  let FeeScale = 10000
141 127  
142 128  let PoolTokenDecimals = 8
143 129  
144 130  let PoolTokenScale = pow(10, 0, PoolTokenDecimals, 0, 0, HALFUP)
145 131  
146 132  let earnedAssets = assetIds
147 133  
148 134  func isShutdown () = match getBoolean(Address(base58'3PEpv9hRFWEEBU22WRnLsw1bH4YGtcU728o'), "is_shutdown") {
149 135      case x: Boolean => 
150 136          x
151 137      case _ => 
152 138          false
153 139  }
154 140  
155 141  
156 142  func getCurrentTokenBalance (tokenType) = {
157 143      let tokenId = getAssetString(assetIds[tokenType])
158 144      tryGetInteger((("global_" + tokenId) + "_balance"))
159 145      }
160 146  
161 147  
162 148  func calculatePIssued (amount,tokenId) = {
163 149      let Psupply = tryGetInteger("global_poolToken_amount")
164 150      let Balance = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
165 151      fraction(amount, Psupply, Balance, DOWN)
166 152      }
167 153  
168 154  
169 155  func getMinPIssued (payments) = {
170 156      func handler (accum,current) =     {
171 157          let PIssued = calculatePIssued(current.amount, current.assetId)
172 158          if ((PIssued == 0))
173 159              then throw("one of the tokens amounts is too low")
174 160              else if (if ((accum == 0))
175 161                  then true
176 162                  else (accum > PIssued))
177 163                  then PIssued
178 164                  else accum
179 165          }
180 166  
181 167      let minPIssed = {
182 168          let $l = payments
183 169          let $s = size($l)
184 170          let $acc0 = 0
185 171          func $f4_1 ($a,$i) =         if (($i >= $s))
186 172              then $a
187 173              else handler($a, $l[$i])
188 174  
189 175          func $f4_2 ($a,$i) =         if (($i >= $s))
190 176              then $a
191 177              else throw("List size exceeds 10")
192 178  
193 179          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
194 180          }
195 181      minPIssed
196 182      }
197 183  
198 184  
199 - func calculateUsdnValue (assetId,amount,aBalance,givenUsdnBalance) = {
200 -     let usdnInPool = indexOf(assetIds, usdnAssetId)
185 + func calculateUsdnValue (assetId,amount,aBalance) = {
186 +     let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
187 +     let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
201 188      let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
202 -     if ((usdnInPool == unit))
203 -         then {
204 -             let puzzleWeight = AssetsWeights[value(indexOf(assetIds, puzzleAssetId))]
205 -             let puzzleBalance = tryGetInteger((("global_" + puzzleAssetIdStr) + "_balance"))
206 -             let amountInPuzzle = fraction(amount, (puzzleBalance / puzzleWeight), (aBalance / assetWeight))
207 -             let puzzlePrice = getIntegerValue(parentPoolAddress, "global_lastPuzzlePrice")
208 -             fraction((amountInPuzzle * puzzlePrice), 1, Scale8)
209 -             }
210 -         else {
211 -             let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnAssetId))]
212 -             let usdnBalance =             match givenUsdnBalance {
213 -                 case x: Int => 
214 -                     givenUsdnBalance
215 -                 case _ => 
216 -                     tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
217 -             }
218 -             fraction(amount, (value(usdnBalance) / usdnWeight), (aBalance / assetWeight))
219 -             }
189 +     let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
190 +     fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
220 191      }
221 192  
222 193  
223 194  func checkTokensValidity (payments) = {
224 195      func handler1 (accum,payment) =     (accum ++ [payment.assetId])
225 196  
226 197      let ids = {
227 198          let $l = payments
228 199          let $s = size($l)
229 200          let $acc0 = nil
230 201          func $f4_1 ($a,$i) =         if (($i >= $s))
231 202              then $a
232 203              else handler1($a, $l[$i])
233 204  
234 205          func $f4_2 ($a,$i) =         if (($i >= $s))
235 206              then $a
236 207              else throw("List size exceeds 10")
237 208  
238 209          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
239 210          }
240 211      if ((ids == ids))
241 212          then {
242 213              func handler2 (accum,assetId) =             if ((indexOf(ids, assetId) != unit))
243 214                  then (accum + 1)
244 215                  else throw(("asset not attached: " + getAssetString(assetId)))
245 216  
246 217              let checks = {
247 218                  let $l = assetIds
248 219                  let $s = size($l)
249 220                  let $acc0 = 0
250 221                  func $f5_1 ($a,$i) =                 if (($i >= $s))
251 222                      then $a
252 223                      else handler2($a, $l[$i])
253 224  
254 225                  func $f5_2 ($a,$i) =                 if (($i >= $s))
255 226                      then $a
256 227                      else throw("List size exceeds 10")
257 228  
258 229                  $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
259 230                  }
260 231              if ((checks == checks))
261 232                  then true
262 233                  else throw("Strict value is not equal to itself.")
263 234              }
264 235          else throw("Strict value is not equal to itself.")
265 236      }
266 237  
267 238  
268 239  func handlePoolTokensAdd (PIssued,payments,userAddress,needChange) = {
269 240      func getTokenPaymentAmount (tokenId) =     {
270 241          func handler (accum,payment) =         if ((payment.assetId == tokenId))
271 242              then payment.amount
272 243              else accum
273 244  
274 245          let $l = payments
275 246          let $s = size($l)
276 247          let $acc0 = 0
277 248          func $f4_1 ($a,$i) =         if (($i >= $s))
278 249              then $a
279 250              else handler($a, $l[$i])
280 251  
281 252          func $f4_2 ($a,$i) =         if (($i >= $s))
282 253              then $a
283 254              else throw("List size exceeds 10")
284 255  
285 256          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
286 257          }
287 258  
288 259      func handleTokenChange (accum,tokenId) =     {
289 260          let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
290 261          let PSupply = tryGetInteger("global_poolToken_amount")
291 262          let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
292 263          let Dk = fraction((fraction((PSupply + PIssued), tokenDecimals, PSupply, CEILING) - tokenDecimals), Bk, tokenDecimals, CEILING)
293 264          let paymentAmount = getTokenPaymentAmount(tokenId)
294 265          let toReturn = ((if ((paymentAmount != 0))
295 266              then paymentAmount
296 267              else 0) - Dk)
297 268          let t = if (if (needChange)
298 269              then (toReturn > 0)
299 270              else false)
300 271              then [ScriptTransfer(userAddress, toReturn, tokenId)]
301 272              else nil
302 273          ((accum ++ t) ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk + Dk))])
303 274          }
304 275  
305 276      let $l = assetIds
306 277      let $s = size($l)
307 278      let $acc0 = nil
308 279      func $f4_1 ($a,$i) =     if (($i >= $s))
309 280          then $a
310 281          else handleTokenChange($a, $l[$i])
311 282  
312 283      func $f4_2 ($a,$i) =     if (($i >= $s))
313 284          then $a
314 285          else throw("List size exceeds 10")
315 286  
316 287      $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
317 288      }
318 289  
319 290  
320 291  func handlePoolTokensRedeem (PRedeemed,userAddress) = {
321 292      func handleTokenRedeem (accum,tokenId) =     {
322 293          let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
323 294          let PSupply = tryGetInteger("global_poolToken_amount")
324 295          let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
325 296          let amount = toInt(fraction((toBigInt(Scale8) - fraction(toBigInt((PSupply - PRedeemed)), toBigInt(Scale8), toBigInt(PSupply), CEILING)), toBigInt(Bk), toBigInt(Scale8), DOWN))
326 297          (accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount)), ScriptTransfer(userAddress, amount, tokenId)])
327 298          }
328 299  
329 300      let $l = assetIds
330 301      let $s = size($l)
331 302      let $acc0 = nil
332 303      func $f4_1 ($a,$i) =     if (($i >= $s))
333 304          then $a
334 305          else handleTokenRedeem($a, $l[$i])
335 306  
336 307      func $f4_2 ($a,$i) =     if (($i >= $s))
337 308          then $a
338 309          else throw("List size exceeds 10")
339 310  
340 311      $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
341 312      }
342 313  
343 314  
344 315  func calculateOutAmount (AmountIn,assetIn,assetOut,BalanceIn,BalanceOut) = {
345 316      let IndexIn = value(indexOf(assetIds, assetIn))
346 317      let IndexOut = value(indexOf(assetIds, assetOut))
347 318      if ((IndexIn == IndexOut))
348 -         then AmountIn
319 +         then throw("wrong tokens pair")
349 320          else fraction(BalanceOut, ((Scale8 * Scale8) - toInt(pow(fraction(toBigInt(BalanceIn), toBigInt((Scale8 * Scale8)), toBigInt((BalanceIn + AmountIn)), HALFUP), 16, toBigInt(fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut])), 4, 16, CEILING))), (Scale8 * Scale8), DOWN)
350 321      }
351 322  
352 323  
353 324  func getTokenBalance (assetId) = match assetId {
354 325      case t: ByteVector => 
355 326          assetBalance(this, t)
356 327      case _ => 
357 328          wavesBalance(this).available
358 329  }
359 330  
360 331  
361 332  func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
362 333      let totalStaked = tryGetInteger("global_indexStaked")
363 334      let tokenBalanceLastCheck = tokenEarningsLastCheck
364 335      let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
365 336      let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
366 337          then currentBalanceDelta
367 338          else tokenBalanceLastCheck
368 339      let newEarnings = (currentTokenEarnings - tokenBalanceLastCheck)
369 340      let newInterest = if ((totalStaked == 0))
370 341          then 0
371 342          else fraction(newEarnings, Scale8, totalStaked)
372 343      let lastCheckInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
373 344      (lastCheckInterest + newInterest)
374 345      }
375 346  
376 347  
377 348  func claimResult (address) = {
378 349      let addressStr = toString(address)
379 350      let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
380 351      func handler (accum,assetId) =     {
381 352          let assetIdStr = getAssetString(assetId)
382 353          let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
383 354          let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
384 355          let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
385 356          let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
386 357          let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
387 358          let transfer = if ((rewardAmount == 0))
388 359              then nil
389 360              else [ScriptTransfer(address, rewardAmount, assetId)]
390 -         $Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance, unit)))
361 +         $Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance)))
391 362          }
392 363  
393 364      let accum = {
394 365          let $l = earnedAssets
395 366          let $s = size($l)
396 367          let $acc0 = $Tuple2(nil, 0)
397 368          func $f4_1 ($a,$i) =         if (($i >= $s))
398 369              then $a
399 370              else handler($a, $l[$i])
400 371  
401 372          func $f4_2 ($a,$i) =         if (($i >= $s))
402 373              then $a
403 374              else throw("List size exceeds 10")
404 375  
405 376          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
406 377          }
407 378      (accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardValue"), (tryGetInteger((addressStr + "_claimedRewardValue")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)])
408 379      }
409 380  
410 381  
411 382  func indexStakeResult (addressStr,amount) = {
412 383      let li = claimResult(addressFromStringValue(addressStr))
413 384      (li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
414 385      }
415 386  
416 387  
417 388  func sum (accum,n) = (accum + parseIntValue(n))
418 389  
419 390  
420 391  @Callable(i)
421 - func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain,poolOwner,fee) = {
422 -     let poolOwnerAddress = Address(fromBase58String(poolOwner))
423 -     if ((this != i.caller))
424 -         then throw("admin only")
425 -         else if ((size(poolDomain) > 13))
426 -             then throw("too large pool domain")
427 -             else if (if ((fee > 500))
428 -                 then true
429 -                 else (50 > fee))
430 -                 then throw("fee value must be between 50 and 500 (0.5-5%)")
431 -                 else if (if ((indexOf(assetIdsStr, puzzleAssetIdStr) == unit))
432 -                     then (indexOf(assetIdsStr, usdnAssetIdStr) == unit)
433 -                     else false)
434 -                     then throw("pool must have USDN or PUZZLE in the composition")
435 -                     else {
436 -                         let assetIdsStrLi = split(assetIdsStr, ",")
437 -                         let assetIdsLi = {
438 -                             let $l = assetIdsStrLi
439 -                             let $s = size($l)
440 -                             let $acc0 = nil
441 -                             func $f4_1 ($a,$i) =                             if (($i >= $s))
442 -                                 then $a
443 -                                 else addAssetBytesToList($a, $l[$i])
392 + func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain) = if ((this != i.caller))
393 +     then throw("admin only")
394 +     else if ((size(poolDomain) > 13))
395 +         then throw("too large pool domain")
396 +         else {
397 +             let assetIdsStrLi = split(assetIdsStr, ",")
398 +             let assetIdsLi = {
399 +                 let $l = assetIdsStrLi
400 +                 let $s = size($l)
401 +                 let $acc0 = nil
402 +                 func $f4_1 ($a,$i) =                 if (($i >= $s))
403 +                     then $a
404 +                     else addAssetBytesToList($a, $l[$i])
444 405  
445 -                             func $f4_2 ($a,$i) =                             if (($i >= $s))
446 -                                 then $a
447 -                                 else throw("List size exceeds 10")
406 +                 func $f4_2 ($a,$i) =                 if (($i >= $s))
407 +                     then $a
408 +                     else throw("List size exceeds 10")
448 409  
449 -                             $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
450 -                             }
451 -                         let assetWeightsStrLi = split(assetWeightsStr, ",")
452 -                         let assetWeightsSum = {
453 -                             let $l = assetWeightsStrLi
454 -                             let $s = size($l)
455 -                             let $acc0 = 0
456 -                             func $f5_1 ($a,$i) =                             if (($i >= $s))
457 -                                 then $a
458 -                                 else sum($a, $l[$i])
410 +                 $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
411 +                 }
412 +             let assetWeightsStrLi = split(assetWeightsStr, ",")
413 +             let assetWeightsSum = {
414 +                 let $l = assetWeightsStrLi
415 +                 let $s = size($l)
416 +                 let $acc0 = 0
417 +                 func $f5_1 ($a,$i) =                 if (($i >= $s))
418 +                     then $a
419 +                     else sum($a, $l[$i])
459 420  
460 -                             func $f5_2 ($a,$i) =                             if (($i >= $s))
461 -                                 then $a
462 -                                 else throw("List size exceeds 10")
421 +                 func $f5_2 ($a,$i) =                 if (($i >= $s))
422 +                     then $a
423 +                     else throw("List size exceeds 10")
463 424  
464 -                             $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
465 -                             }
466 -                         let feeAssetStr = if ((indexOf(assetIdsStr, usdnAssetIdStr) == unit))
467 -                             then puzzleAssetIdStr
468 -                             else usdnAssetIdStr
469 -                         func addTokenDataEntries (accum,assetNum) =                         if ((assetNum >= size(assetIdsLi)))
470 -                             then accum
471 -                             else {
472 -                                 let assetDecimals =                                 match assetIdsLi[assetNum] {
473 -                                     case x: ByteVector => 
474 -                                         value(assetInfo(x)).decimals
475 -                                     case _ => 
476 -                                         8
477 -                                 }
478 -                                 (accum ++ [IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_scale"), pow(10, 0, assetDecimals, 0, 0, DOWN)), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_decimals"), assetDecimals), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_weight"), value(parseInt(assetWeightsStrLi[assetNum])))])
479 -                                 }
425 +                 $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
426 +                 }
427 +             func addTokenDataEntries (accum,assetNum) =             if ((assetNum >= size(assetIdsLi)))
428 +                 then accum
429 +                 else {
430 +                     let assetDecimals =                     match assetIdsLi[assetNum] {
431 +                         case x: ByteVector => 
432 +                             value(assetInfo(x)).decimals
433 +                         case _ => 
434 +                             8
435 +                     }
436 +                     (accum ++ [IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_scale"), pow(10, 0, assetDecimals, 0, 0, DOWN)), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_decimals"), assetDecimals), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_weight"), value(parseInt(assetWeightsStrLi[assetNum])))])
437 +                     }
480 438  
481 -                         if ((assetWeightsSum != 10000))
482 -                             then throw("sum of token weights must be equal to 10000")
483 -                             else ({
484 -                                 let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
485 -                                 let $s = size($l)
486 -                                 let $acc0 = nil
487 -                                 func $f6_1 ($a,$i) =                                 if (($i >= $s))
488 -                                     then $a
489 -                                     else addTokenDataEntries($a, $l[$i])
439 +             if ((assetWeightsSum != 100))
440 +                 then throw("sum of token weights must be equal to 100")
441 +                 else ({
442 +                     let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
443 +                     let $s = size($l)
444 +                     let $acc0 = nil
445 +                     func $f6_1 ($a,$i) =                     if (($i >= $s))
446 +                         then $a
447 +                         else addTokenDataEntries($a, $l[$i])
490 448  
491 -                                 func $f6_2 ($a,$i) =                                 if (($i >= $s))
492 -                                     then $a
493 -                                     else throw("List size exceeds 10")
449 +                     func $f6_2 ($a,$i) =                     if (($i >= $s))
450 +                         then $a
451 +                         else throw("List size exceeds 10")
494 452  
495 -                                 $f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
496 -                                 } ++ [StringEntry("static_tokenIds", assetIdsStr), StringEntry("static_feeToken", feeAssetStr), StringEntry("static_tokenWeights", assetWeightsStr), IntegerEntry("static_tokensAmount", size(assetIdsLi)), StringEntry("static_poolDomain", poolDomain), StringEntry("static_baseTokenId", baseTokenIdStr), StringEntry("static_poolOwner", poolOwner), IntegerEntry("static_fee", fee)])
497 -                         }
498 -     }
453 +                     $f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
454 +                     } ++ [StringEntry("static_tokenIds", assetIdsStr), StringEntry("static_tokenWeights", assetWeightsStr), IntegerEntry("static_tokensAmount", size(assetIdsLi)), StringEntry("static_poolDomain", poolDomain), StringEntry("static_baseTokenId", baseTokenIdStr), IntegerEntry("static_fee", 200)])
455 +             }
499 456  
500 457  
501 458  
502 459  @Callable(i)
503 460  func deInit () = if ((i.caller != this))
504 461      then throw("admin only")
505 462      else [IntegerEntry("global_wasInited", 0)]
506 463  
507 464  
508 465  
509 466  @Callable(i)
510 467  func init () = {
511 468      func prepareList () =     {
512 469          func handler (accum,n) =         (accum ++ [IntegerEntry((("global_" + getAssetString(n.assetId)) + "_balance"), n.amount)])
513 470  
514 471          let $l = i.payments
515 472          let $s = size($l)
516 473          let $acc0 = nil
517 474          func $f4_1 ($a,$i) =         if (($i >= $s))
518 475              then $a
519 476              else handler($a, $l[$i])
520 477  
521 478          func $f4_2 ($a,$i) =         if (($i >= $s))
522 479              then $a
523 480              else throw("List size exceeds 10")
524 481  
525 482          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
526 483          }
527 484  
528 485      func calculatePoolTokensAmount (payments) =     {
529 486          func handler (accum,pmt) =         {
530 487              let assetId = pmt.assetId
531 488              func handler2 (accum,n) =             if ((n == assetId))
532 489                  then value(indexOf(assetIds, n))
533 490                  else accum
534 491  
535 492              let Token = {
536 493                  let $l = assetIds
537 494                  let $s = size($l)
538 495                  let $acc0 = 1
539 496                  func $f4_1 ($a,$i) =                 if (($i >= $s))
540 497                      then $a
541 498                      else handler2($a, $l[$i])
542 499  
543 500                  func $f4_2 ($a,$i) =                 if (($i >= $s))
544 501                      then $a
545 502                      else throw("List size exceeds 10")
546 503  
547 504                  $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
548 505                  }
549 506              fraction(accum, pow(pmt.amount, Decimals[Token], AssetsWeights[Token], AssetsWeightsDecimals, 8, FLOOR), Scale8)
550 507              }
551 508  
552 509          let $l = payments
553 510          let $s = size($l)
554 511          let $acc0 = PoolTokenScale
555 512          func $f4_1 ($a,$i) =         if (($i >= $s))
556 513              then $a
557 514              else handler($a, $l[$i])
558 515  
559 516          func $f4_2 ($a,$i) =         if (($i >= $s))
560 517              then $a
561 518              else throw("List size exceeds 10")
562 519  
563 520          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
564 521          }
565 522  
566 523      if ((tryGetInteger("global_wasInited") > 0))
567 524          then throw("pool already inited")
568 525          else {
569 526              let initialPoolTokens = calculatePoolTokensAmount(i.payments)
570 527              if ((initialPoolTokens == 0))
571 528                  then throw("you need a bigger tokens amount to launch the pool")
572 529                  else {
573 530                      let poolTokenIssue = Issue(("PZ " + tryGetString("static_poolDomain")), "Puzzle Swap: pool index token", initialPoolTokens, PoolTokenDecimals, true, unit, 0)
574 531                      let poolTokenId = calculateAssetId(poolTokenIssue)
575 -                     (prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), StringEntry("static_poolToken_idStr", getAssetString(poolTokenId)), IntegerEntry((toString(i.caller) + "_indexStaked"), initialPoolTokens), IntegerEntry("global_indexStaked", initialPoolTokens)])
532 +                     (prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), StringEntry("static_poolToken_idStr", getAssetString(poolTokenId)), ScriptTransfer(i.caller, initialPoolTokens, poolTokenId)])
576 533                      }
577 534              }
578 535      }
579 536  
580 537  
581 538  
582 539  @Callable(i)
583 540  func generateIndex (needChange) = if ((size(i.payments) != T))
584 541      then throw(("you need to attach all pool tokens. amount of pool tokens: " + toString(T)))
585 542      else if (!(checkTokensValidity(i.payments)))
586 543          then throw("wrong assets attached")
587 544          else {
588 545              let PIssued = getMinPIssued(i.payments)
589 546              let reissue = Reissue(getBinaryValue("global_poolToken_id"), PIssued, true)
590 547              let result = handlePoolTokensAdd(PIssued, i.payments, i.originCaller, needChange)
591 548              $Tuple2((result ++ [ScriptTransfer(i.caller, PIssued, tryGetBinary("global_poolToken_id")), reissue, IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") + PIssued))]), PIssued)
592 549              }
593 550  
594 551  
595 552  
596 553  @Callable(i)
597 554  func stakeIndex () = {
598 555      let addressStr = toString(i.originCaller)
599 556      let pmt = i.payments[0]
600 557      if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
601 558          then throw("wrong asset attached")
602 559          else indexStakeResult(addressStr, pmt.amount)
603 560      }
604 561  
605 562  
606 563  
607 564  @Callable(i)
608 565  func unstakeIndex (puzzleAmount) = {
609 566      let addressStr = toString(i.originCaller)
610 567      let puzzleAvailable = tryGetInteger((addressStr + "_indexStaked"))
611 568      if ((puzzleAmount > puzzleAvailable))
612 569          then throw("you don't have index tokens available")
613 -         else if (isShutdown())
614 -             then throw("contract is on stop")
615 -             else (claimResult(i.originCaller) ++ [IntegerEntry((addressStr + "_indexStaked"), (puzzleAvailable - puzzleAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - puzzleAmount)), ScriptTransfer(i.caller, puzzleAmount, getBinaryValue("global_poolToken_id"))])
570 +         else (claimResult(i.originCaller) ++ [IntegerEntry((addressStr + "_indexStaked"), (puzzleAvailable - puzzleAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - puzzleAmount)), ScriptTransfer(i.caller, puzzleAmount, getBinaryValue("global_poolToken_id"))])
616 571      }
617 572  
618 573  
619 574  
620 575  @Callable(i)
621 - func claimIndexRewards () = if (isShutdown())
622 -     then throw("contract is on stop")
623 -     else claimResult(i.caller)
576 + func claimIndexRewards () = claimResult(i.caller)
624 577  
625 578  
626 579  
627 580  @Callable(i)
628 581  func redeemIndex (sendToOrigin) = {
629 582      let pmt = i.payments[0]
630 583      if ((pmt.assetId != tryGetBinary("global_poolToken_id")))
631 584          then throw("please attach pool share token")
632 -         else if (isShutdown())
633 -             then throw("contract is on stop")
585 +         else {
586 +             let PRedeemed = pmt.amount
587 +             let result = handlePoolTokensRedeem(PRedeemed, if (sendToOrigin)
588 +                 then i.originCaller
589 +                 else i.caller)
590 +             (result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemed), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemed))])
591 +             }
592 +     }
593 + 
594 + 
595 + 
596 + @Callable(i)
597 + func swap (assetOut,minimum) = {
598 +     let pmt = value(i.payments[0])
599 +     let AmountIn = value(i.payments[0].amount)
600 +     let AssetIn = pmt.assetId
601 +     let AssetOut = getAssetBytes(assetOut)
602 +     let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
603 +     let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
604 +     let AmountOut = calculateOutAmount(AmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
605 +     let feeAmount = fraction(AmountOut, Fee, FeeScale)
606 +     let cleanAmountOut = (AmountOut - feeAmount)
607 +     if ((minimum > cleanAmountOut))
608 +         then throw(("amount to recieve is lower than given one: " + toString(cleanAmountOut)))
609 +         else if ((0 > (AssetOutBalance - AmountOut)))
610 +             then throw("contract is out of reserves")
634 611              else {
635 -                 let PRedeemed = pmt.amount
636 -                 let result = handlePoolTokensRedeem(PRedeemed, if (sendToOrigin)
637 -                     then i.originCaller
638 -                     else i.caller)
639 -                 (result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemed), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemed))])
612 +                 let newBalanceIn = (AssetInBalance + AmountIn)
613 +                 let newBalanceOut = (AssetOutBalance - AmountOut)
614 +                 let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
615 +                 if ((usdnAssetId == AssetOut))
616 +                     then {
617 +                         let usdnFeeAmount = feeAmount
618 +                         let protocolUsdnFee = fraction(usdnFeeAmount, 4, 10)
619 +                         let stakingTopUp = reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(usdnAssetId, protocolUsdnFee)])
620 +                         if ((stakingTopUp == stakingTopUp))
621 +                             then $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
622 +                             else throw("Strict value is not equal to itself.")
623 +                         }
624 +                     else {
625 +                         let usdnBalance = if ((AssetIn == usdnAssetId))
626 +                             then newBalanceIn
627 +                             else tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
628 +                         let usdnFeeAmount = calculateOutAmount(feeAmount, AssetOut, usdnAssetId, newBalanceOut, usdnBalance)
629 +                         let protocolUsdnFee = fraction(usdnFeeAmount, 4, 10)
630 +                         let stakingTopUp = reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(usdnAssetId, protocolUsdnFee)])
631 +                         if ((stakingTopUp == stakingTopUp))
632 +                             then {
633 +                                 let usdnBalanceChangeEntry = IntegerEntry((("global_" + toBase58String(usdnAssetId)) + "_balance"), (usdnBalance - usdnFeeAmount))
634 +                                 let balanceChanges = if ((AssetIn == usdnAssetId))
635 +                                     then [usdnBalanceChangeEntry]
636 +                                     else [usdnBalanceChangeEntry, IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn)]
637 +                                 $Tuple2(([IntegerEntry((("global_" + assetOut) + "_balance"), (newBalanceOut + feeAmount)), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))] ++ balanceChanges), cleanAmountOut)
638 +                                 }
639 +                             else throw("Strict value is not equal to itself.")
640 +                         }
640 641                  }
641 642      }
642 643  
643 644  
644 645  
645 646  @Callable(i)
646 - func swap (assetOut,minimum) = {
647 -     let pmt = if ((size(i.payments) == 1))
648 -         then value(i.payments[0])
649 -         else throw("please attach exactly one payment")
650 -     let AmountIn = value(i.payments[0].amount)
651 -     let AssetIn = pmt.assetId
652 -     let AssetOut = getAssetBytes(assetOut)
653 -     let feeAssetIn = AssetIn
654 -     let feeAssetOutStr = tryGetString("static_feeToken")
655 -     let feeAssetOut = if ((feeAssetOutStr == ""))
656 -         then usdnAssetId
657 -         else fromBase58String(feeAssetOutStr)
658 -     let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
659 -     let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
660 -     let feeAssetOutBalance = tryGetInteger((("global_" + getAssetString(feeAssetOut)) + "_balance"))
661 -     let feeAmountIn = fraction(AmountIn, Fee, FeeScale)
662 -     let cleanAmountIn = (AmountIn - feeAmountIn)
663 -     let AmountOut = calculateOutAmount(cleanAmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
664 -     let feeAmountOut = calculateOutAmount(feeAmountIn, AssetIn, feeAssetOut, AssetInBalance, feeAssetOutBalance)
665 -     if ((minimum > AmountOut))
666 -         then throw(("amount to recieve is lower than given one: " + toString(AmountOut)))
667 -         else if ((AssetOut == AssetIn))
668 -             then throw("this swap is not allowed")
669 -             else if ((0 > (AssetOutBalance - AmountOut)))
670 -                 then throw("contract is out of reserves")
671 -                 else if (isShutdown())
672 -                     then throw("contract is on stop")
673 -                     else {
674 -                         let creatorFee = fraction(feeAmountOut, 1, 10)
675 -                         let protocolFee = fraction(feeAmountOut, 4, 10)
676 -                         let stakingTopUp = if ((feeAssetOut == usdnAssetId))
677 -                             then reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(feeAssetOut, protocolFee)])
678 -                             else unit
679 -                         if ((stakingTopUp == stakingTopUp))
680 -                             then {
681 -                                 let newBalanceIn = ((AssetInBalance + AmountIn) - (if ((AssetIn == feeAssetOut))
682 -                                     then feeAmountOut
683 -                                     else 0))
684 -                                 let newBalanceOut = ((AssetOutBalance - AmountOut) - (if ((AssetOut == feeAssetOut))
685 -                                     then feeAmountOut
686 -                                     else 0))
687 -                                 let newBalanceFeeAsset = if (if ((feeAssetOut != AssetIn))
688 -                                     then (feeAssetOut != AssetOut)
689 -                                     else false)
690 -                                     then (feeAssetOutBalance - feeAmountOut)
691 -                                     else unit
692 -                                 let assetInChange = IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn)
693 -                                 let assetOutChange = IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut)
694 -                                 let feeAssetOutChange = if ((newBalanceFeeAsset != unit))
695 -                                     then IntegerEntry((("global_" + getAssetString(feeAssetOut)) + "_balance"), feeAssetOutBalance)
696 -                                     else StringEntry("hello", "world")
697 -                                 $Tuple2([assetOutChange, assetInChange, feeAssetOutChange, ScriptTransfer(i.caller, AmountOut, AssetOut), ScriptTransfer(addressFromStringValue(tryGetString("static_poolOwner")), creatorFee, feeAssetOut), IntegerEntry("global_earnedByOwner", (tryGetInteger("global_earnedByOwner") + creatorFee)), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance, feeAssetOutBalance)))], AmountOut)
698 -                                 }
699 -                             else throw("Strict value is not equal to itself.")
700 -                         }
701 -     }
647 + func calcSwap (asset0Str,asset1Str,amount) = $Tuple2(nil, calculateOutAmount(amount, fromBase58String(asset0Str), fromBase58String(asset1Str), tryGetInteger((("global_" + asset0Str) + "_balance")), tryGetInteger((("global_" + asset1Str) + "_balance"))))
702 648  
703 649  
704 650  @Verifier(tx)
705 651  func verify () = if (isShutdown())
706 652      then false
707 -     else if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
708 -         then true
709 -         else sigVerify(tx.bodyBytes, tx.proofs[0], masterPubKey)
653 +     else sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
710 654

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
5		-
6		-	let puzzleAssetId = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
7		-
8		-	let usdnAssetIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
9		-
10		-	let puzzleAssetIdStr = "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS"
11		-
12		-	let parentPoolAddress = Address(base58'3PFDgzu1UtswAkCMxqqQjbTeHaX4cMab8Kh')
13		-
14		-	let masterAddress = Address(base58'3PLjwHcz9NEuaTo63NZR9B9okQiKQxZSbmf')
15		-
16		-	let masterPubKey = base58'4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU'
17		-
18	4		func tryGetInteger (key) = match getInteger(this, key) {
19	5		case b: Int =>
20	6		b

131	117
132	118		let Fee = tryGetInteger("static_fee")
133	119
134		-	let AssetsWeightsDecimals = 4
	120	+	let AssetsWeightsDecimals = 2
135	121
136	122		let Scale = 10000
137	123

196	182		}
197	183
198	184
199		-	func calculateUsdnValue (assetId,amount,aBalance,givenUsdnBalance) = {
200		-	let usdnInPool = indexOf(assetIds, usdnAssetId)
	185	+	func calculateUsdnValue (assetId,amount,aBalance) = {
	186	+	let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
	187	+	let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
201	188		let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
202		-	if ((usdnInPool == unit))
203		-	then {
204		-	let puzzleWeight = AssetsWeights[value(indexOf(assetIds, puzzleAssetId))]
205		-	let puzzleBalance = tryGetInteger((("global_" + puzzleAssetIdStr) + "_balance"))
206		-	let amountInPuzzle = fraction(amount, (puzzleBalance / puzzleWeight), (aBalance / assetWeight))
207		-	let puzzlePrice = getIntegerValue(parentPoolAddress, "global_lastPuzzlePrice")
208		-	fraction((amountInPuzzle * puzzlePrice), 1, Scale8)
209		-	}
210		-	else {
211		-	let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnAssetId))]
212		-	let usdnBalance = match givenUsdnBalance {
213		-	case x: Int =>
214		-	givenUsdnBalance
215		-	case _ =>
216		-	tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
217		-	}
218		-	fraction(amount, (value(usdnBalance) / usdnWeight), (aBalance / assetWeight))
219		-	}
	189	+	let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
	190	+	fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
220	191		}
221	192
222	193

345	316		let IndexIn = value(indexOf(assetIds, assetIn))
346	317		let IndexOut = value(indexOf(assetIds, assetOut))
347	318		if ((IndexIn == IndexOut))
348		-	then ~~AmountIn~~
	319	+	then throw("wrong tokens pair")
349	320		else fraction(BalanceOut, ((Scale8 * Scale8) - toInt(pow(fraction(toBigInt(BalanceIn), toBigInt((Scale8 * Scale8)), toBigInt((BalanceIn + AmountIn)), HALFUP), 16, toBigInt(fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut])), 4, 16, CEILING))), (Scale8 * Scale8), DOWN)
350	321		}
351	322

387	358		let transfer = if ((rewardAmount == 0))
388	359		then nil
389	360		else [ScriptTransfer(address, rewardAmount, assetId)]
390		-	$Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance~~, unit~~)))
	361	+	$Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance)))
391	362		}
392	363
393	364		let accum = {

418	389
419	390
420	391		@Callable(i)
421		-	func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain,poolOwner,fee) = {
422		-	let poolOwnerAddress = Address(fromBase58String(poolOwner))
423		-	if ((this != i.caller))
424		-	then throw("admin only")
425		-	else if ((size(poolDomain) > 13))
426		-	then throw("too large pool domain")
427		-	else if (if ((fee > 500))
428		-	then true
429		-	else (50 > fee))
430		-	then throw("fee value must be between 50 and 500 (0.5-5%)")
431		-	else if (if ((indexOf(assetIdsStr, puzzleAssetIdStr) == unit))
432		-	then (indexOf(assetIdsStr, usdnAssetIdStr) == unit)
433		-	else false)
434		-	then throw("pool must have USDN or PUZZLE in the composition")
435		-	else {
436		-	let assetIdsStrLi = split(assetIdsStr, ",")
437		-	let assetIdsLi = {
438		-	let $l = assetIdsStrLi
439		-	let $s = size($l)
440		-	let $acc0 = nil
441		-	func $f4_1 ($a,$i) = if (($i >= $s))
442		-	then $a
443		-	else addAssetBytesToList($a, $l[$i])
	392	+	func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain) = if ((this != i.caller))
	393	+	then throw("admin only")
	394	+	else if ((size(poolDomain) > 13))
	395	+	then throw("too large pool domain")
	396	+	else {
	397	+	let assetIdsStrLi = split(assetIdsStr, ",")
	398	+	let assetIdsLi = {
	399	+	let $l = assetIdsStrLi
	400	+	let $s = size($l)
	401	+	let $acc0 = nil
	402	+	func $f4_1 ($a,$i) = if (($i >= $s))
	403	+	then $a
	404	+	else addAssetBytesToList($a, $l[$i])
444	405
445		-	func $f4_2 ($a,$i) = if (($i >= $s))
446		-	then $a
447		-	else throw("List size exceeds 10")
	406	+	func $f4_2 ($a,$i) = if (($i >= $s))
	407	+	then $a
	408	+	else throw("List size exceeds 10")
448	409
449		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
450		-	}
451		-	let assetWeightsStrLi = split(assetWeightsStr, ",")
452		-	let assetWeightsSum = {
453		-	let $l = assetWeightsStrLi
454		-	let $s = size($l)
455		-	let $acc0 = 0
456		-	func $f5_1 ($a,$i) = if (($i >= $s))
457		-	then $a
458		-	else sum($a, $l[$i])
	410	+	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	411	+	}
	412	+	let assetWeightsStrLi = split(assetWeightsStr, ",")
	413	+	let assetWeightsSum = {
	414	+	let $l = assetWeightsStrLi
	415	+	let $s = size($l)
	416	+	let $acc0 = 0
	417	+	func $f5_1 ($a,$i) = if (($i >= $s))
	418	+	then $a
	419	+	else sum($a, $l[$i])
459	420
460		-	func $f5_2 ($a,$i) = if (($i >= $s))
461		-	then $a
462		-	else throw("List size exceeds 10")
	421	+	func $f5_2 ($a,$i) = if (($i >= $s))
	422	+	then $a
	423	+	else throw("List size exceeds 10")
463	424
464		-	$f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
465		-	}
466		-	let feeAssetStr = if ((indexOf(assetIdsStr, usdnAssetIdStr) == unit))
467		-	then puzzleAssetIdStr
468		-	else usdnAssetIdStr
469		-	func addTokenDataEntries (accum,assetNum) = if ((assetNum >= size(assetIdsLi)))
470		-	then accum
471		-	else {
472		-	let assetDecimals = match assetIdsLi[assetNum] {
473		-	case x: ByteVector =>
474		-	value(assetInfo(x)).decimals
475		-	case _ =>
476		-	8
477		-	}
478		-	(accum ++ [IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_scale"), pow(10, 0, assetDecimals, 0, 0, DOWN)), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_decimals"), assetDecimals), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_weight"), value(parseInt(assetWeightsStrLi[assetNum])))])
479		-	}
	425	+	$f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	426	+	}
	427	+	func addTokenDataEntries (accum,assetNum) = if ((assetNum >= size(assetIdsLi)))
	428	+	then accum
	429	+	else {
	430	+	let assetDecimals = match assetIdsLi[assetNum] {
	431	+	case x: ByteVector =>
	432	+	value(assetInfo(x)).decimals
	433	+	case _ =>
	434	+	8
	435	+	}
	436	+	(accum ++ [IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_scale"), pow(10, 0, assetDecimals, 0, 0, DOWN)), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_decimals"), assetDecimals), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_weight"), value(parseInt(assetWeightsStrLi[assetNum])))])
	437	+	}
480	438
481		-	if ((assetWeightsSum != ~~10000~~))
482		-	then throw("sum of token weights must be equal to ~~10000~~")
483		-	else ({
484		-	let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
485		-	let $s = size($l)
486		-	let $acc0 = nil
487		-	func $f6_1 ($a,$i) = if (($i >= $s))
488		-	then $a
489		-	else addTokenDataEntries($a, $l[$i])
	439	+	if ((assetWeightsSum != 100))
	440	+	then throw("sum of token weights must be equal to 100")
	441	+	else ({
	442	+	let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
	443	+	let $s = size($l)
	444	+	let $acc0 = nil
	445	+	func $f6_1 ($a,$i) = if (($i >= $s))
	446	+	then $a
	447	+	else addTokenDataEntries($a, $l[$i])
490	448
491		-	func $f6_2 ($a,$i) = if (($i >= $s))
492		-	then $a
493		-	else throw("List size exceeds 10")
	449	+	func $f6_2 ($a,$i) = if (($i >= $s))
	450	+	then $a
	451	+	else throw("List size exceeds 10")
494	452
495		-	$f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
496		-	} ++ [StringEntry("static_tokenIds", assetIdsStr), StringEntry("static_feeToken", feeAssetStr), StringEntry("static_tokenWeights", assetWeightsStr), IntegerEntry("static_tokensAmount", size(assetIdsLi)), StringEntry("static_poolDomain", poolDomain), StringEntry("static_baseTokenId", baseTokenIdStr), StringEntry("static_poolOwner", poolOwner), IntegerEntry("static_fee", fee)])
497		-	}
498		-	}
	453	+	$f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	454	+	} ++ [StringEntry("static_tokenIds", assetIdsStr), StringEntry("static_tokenWeights", assetWeightsStr), IntegerEntry("static_tokensAmount", size(assetIdsLi)), StringEntry("static_poolDomain", poolDomain), StringEntry("static_baseTokenId", baseTokenIdStr), IntegerEntry("static_fee", 200)])
	455	+	}
499	456
500	457
501	458

572	529		else {
573	530		let poolTokenIssue = Issue(("PZ " + tryGetString("static_poolDomain")), "Puzzle Swap: pool index token", initialPoolTokens, PoolTokenDecimals, true, unit, 0)
574	531		let poolTokenId = calculateAssetId(poolTokenIssue)
575		-	(prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), StringEntry("static_poolToken_idStr", getAssetString(poolTokenId)), ~~IntegerEntry((toString~~(i.caller~~) + "_indexStaked")~~, initialPoolTokens), ~~IntegerEntry("global_indexStaked", initialPoolTokens~~)])
	532	+	(prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), StringEntry("static_poolToken_idStr", getAssetString(poolTokenId)), ScriptTransfer(i.caller, initialPoolTokens, poolTokenId)])
576	533		}
577	534		}
578	535		}

610	567		let puzzleAvailable = tryGetInteger((addressStr + "_indexStaked"))
611	568		if ((puzzleAmount > puzzleAvailable))
612	569		then throw("you don't have index tokens available")
613		-	else if (isShutdown())
614		-	then throw("contract is on stop")
615		-	else (claimResult(i.originCaller) ++ [IntegerEntry((addressStr + "_indexStaked"), (puzzleAvailable - puzzleAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - puzzleAmount)), ScriptTransfer(i.caller, puzzleAmount, getBinaryValue("global_poolToken_id"))])
	570	+	else (claimResult(i.originCaller) ++ [IntegerEntry((addressStr + "_indexStaked"), (puzzleAvailable - puzzleAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - puzzleAmount)), ScriptTransfer(i.caller, puzzleAmount, getBinaryValue("global_poolToken_id"))])
616	571		}
617	572
618	573
619	574
620	575		@Callable(i)
621		-	func claimIndexRewards () = if (isShutdown())
622		-	then throw("contract is on stop")
623		-	else claimResult(i.caller)
	576	+	func claimIndexRewards () = claimResult(i.caller)
624	577
625	578
626	579

629	582		let pmt = i.payments[0]
630	583		if ((pmt.assetId != tryGetBinary("global_poolToken_id")))
631	584		then throw("please attach pool share token")
632		-	else if (isShutdown())
633		-	then throw("contract is on stop")
	585	+	else {
	586	+	let PRedeemed = pmt.amount
	587	+	let result = handlePoolTokensRedeem(PRedeemed, if (sendToOrigin)
	588	+	then i.originCaller
	589	+	else i.caller)
	590	+	(result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemed), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemed))])
	591	+	}
	592	+	}
	593	+
	594	+
	595	+
	596	+	@Callable(i)
	597	+	func swap (assetOut,minimum) = {
	598	+	let pmt = value(i.payments[0])
	599	+	let AmountIn = value(i.payments[0].amount)
	600	+	let AssetIn = pmt.assetId
	601	+	let AssetOut = getAssetBytes(assetOut)
	602	+	let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
	603	+	let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
	604	+	let AmountOut = calculateOutAmount(AmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
	605	+	let feeAmount = fraction(AmountOut, Fee, FeeScale)
	606	+	let cleanAmountOut = (AmountOut - feeAmount)
	607	+	if ((minimum > cleanAmountOut))
	608	+	then throw(("amount to recieve is lower than given one: " + toString(cleanAmountOut)))
	609	+	else if ((0 > (AssetOutBalance - AmountOut)))
	610	+	then throw("contract is out of reserves")
634	611		else {
635		-	let PRedeemed = pmt.amount
636		-	let result = handlePoolTokensRedeem(PRedeemed, if (sendToOrigin)
637		-	then i.originCaller
638		-	else i.caller)
639		-	(result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemed), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemed))])
	612	+	let newBalanceIn = (AssetInBalance + AmountIn)
	613	+	let newBalanceOut = (AssetOutBalance - AmountOut)
	614	+	let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
	615	+	if ((usdnAssetId == AssetOut))
	616	+	then {
	617	+	let usdnFeeAmount = feeAmount
	618	+	let protocolUsdnFee = fraction(usdnFeeAmount, 4, 10)
	619	+	let stakingTopUp = reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(usdnAssetId, protocolUsdnFee)])
	620	+	if ((stakingTopUp == stakingTopUp))
	621	+	then $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
	622	+	else throw("Strict value is not equal to itself.")
	623	+	}
	624	+	else {
	625	+	let usdnBalance = if ((AssetIn == usdnAssetId))
	626	+	then newBalanceIn
	627	+	else tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
	628	+	let usdnFeeAmount = calculateOutAmount(feeAmount, AssetOut, usdnAssetId, newBalanceOut, usdnBalance)
	629	+	let protocolUsdnFee = fraction(usdnFeeAmount, 4, 10)
	630	+	let stakingTopUp = reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(usdnAssetId, protocolUsdnFee)])
	631	+	if ((stakingTopUp == stakingTopUp))
	632	+	then {
	633	+	let usdnBalanceChangeEntry = IntegerEntry((("global_" + toBase58String(usdnAssetId)) + "_balance"), (usdnBalance - usdnFeeAmount))
	634	+	let balanceChanges = if ((AssetIn == usdnAssetId))
	635	+	then [usdnBalanceChangeEntry]
	636	+	else [usdnBalanceChangeEntry, IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn)]
	637	+	$Tuple2(([IntegerEntry((("global_" + assetOut) + "_balance"), (newBalanceOut + feeAmount)), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))] ++ balanceChanges), cleanAmountOut)
	638	+	}
	639	+	else throw("Strict value is not equal to itself.")
	640	+	}
640	641		}
641	642		}
642	643
643	644
644	645
645	646		@Callable(i)
646		-	func swap (assetOut,minimum) = {
647		-	let pmt = if ((size(i.payments) == 1))
648		-	then value(i.payments[0])
649		-	else throw("please attach exactly one payment")
650		-	let AmountIn = value(i.payments[0].amount)
651		-	let AssetIn = pmt.assetId
652		-	let AssetOut = getAssetBytes(assetOut)
653		-	let feeAssetIn = AssetIn
654		-	let feeAssetOutStr = tryGetString("static_feeToken")
655		-	let feeAssetOut = if ((feeAssetOutStr == ""))
656		-	then usdnAssetId
657		-	else fromBase58String(feeAssetOutStr)
658		-	let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
659		-	let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
660		-	let feeAssetOutBalance = tryGetInteger((("global_" + getAssetString(feeAssetOut)) + "_balance"))
661		-	let feeAmountIn = fraction(AmountIn, Fee, FeeScale)
662		-	let cleanAmountIn = (AmountIn - feeAmountIn)
663		-	let AmountOut = calculateOutAmount(cleanAmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
664		-	let feeAmountOut = calculateOutAmount(feeAmountIn, AssetIn, feeAssetOut, AssetInBalance, feeAssetOutBalance)
665		-	if ((minimum > AmountOut))
666		-	then throw(("amount to recieve is lower than given one: " + toString(AmountOut)))
667		-	else if ((AssetOut == AssetIn))
668		-	then throw("this swap is not allowed")
669		-	else if ((0 > (AssetOutBalance - AmountOut)))
670		-	then throw("contract is out of reserves")
671		-	else if (isShutdown())
672		-	then throw("contract is on stop")
673		-	else {
674		-	let creatorFee = fraction(feeAmountOut, 1, 10)
675		-	let protocolFee = fraction(feeAmountOut, 4, 10)
676		-	let stakingTopUp = if ((feeAssetOut == usdnAssetId))
677		-	then reentrantInvoke(Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS'), "topUpReward", nil, [AttachedPayment(feeAssetOut, protocolFee)])
678		-	else unit
679		-	if ((stakingTopUp == stakingTopUp))
680		-	then {
681		-	let newBalanceIn = ((AssetInBalance + AmountIn) - (if ((AssetIn == feeAssetOut))
682		-	then feeAmountOut
683		-	else 0))
684		-	let newBalanceOut = ((AssetOutBalance - AmountOut) - (if ((AssetOut == feeAssetOut))
685		-	then feeAmountOut
686		-	else 0))
687		-	let newBalanceFeeAsset = if (if ((feeAssetOut != AssetIn))
688		-	then (feeAssetOut != AssetOut)
689		-	else false)
690		-	then (feeAssetOutBalance - feeAmountOut)
691		-	else unit
692		-	let assetInChange = IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn)
693		-	let assetOutChange = IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut)
694		-	let feeAssetOutChange = if ((newBalanceFeeAsset != unit))
695		-	then IntegerEntry((("global_" + getAssetString(feeAssetOut)) + "_balance"), feeAssetOutBalance)
696		-	else StringEntry("hello", "world")
697		-	$Tuple2([assetOutChange, assetInChange, feeAssetOutChange, ScriptTransfer(i.caller, AmountOut, AssetOut), ScriptTransfer(addressFromStringValue(tryGetString("static_poolOwner")), creatorFee, feeAssetOut), IntegerEntry("global_earnedByOwner", (tryGetInteger("global_earnedByOwner") + creatorFee)), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance, feeAssetOutBalance)))], AmountOut)
698		-	}
699		-	else throw("Strict value is not equal to itself.")
700		-	}
701		-	}
	647	+	func calcSwap (asset0Str,asset1Str,amount) = $Tuple2(nil, calculateOutAmount(amount, fromBase58String(asset0Str), fromBase58String(asset1Str), tryGetInteger((("global_" + asset0Str) + "_balance")), tryGetInteger((("global_" + asset1Str) + "_balance"))))
702	648
703	649
704	650		@Verifier(tx)
705	651		func verify () = if (isShutdown())
706	652		then false
707		-	else if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
708		-	then true
709		-	else sigVerify(tx.bodyBytes, tx.proofs[0], masterPubKey)
	653	+	else sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
710	654

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
5		-
6		-	let puzzleAssetId = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
7		-
8		-	let usdnAssetIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
9		-
10		-	let puzzleAssetIdStr = "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS"
11		-
12		-	let parentPoolAddress = Address(base58'3PFDgzu1UtswAkCMxqqQjbTeHaX4cMab8Kh')
13		-
14		-	let masterAddress = Address(base58'3PLjwHcz9NEuaTo63NZR9B9okQiKQxZSbmf')
15		-
16		-	let masterPubKey = base58'4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU'
17		-
18	4		func tryGetInteger (key) = match getInteger(this, key) {
19	5		case b: Int =>
20	6		b
21	7		case _ =>
22	8		0
23	9		}
24	10
25	11
26	12		func tryGetBinary (key) = match getBinary(this, key) {
27	13		case b: ByteVector =>
28	14		b
29	15		case _ =>
30	16		base58''
31	17		}
32	18
33	19
34	20		func tryGetString (key) = match getString(this, key) {
35	21		case b: String =>
36	22		b
37	23		case _ =>
38	24		""
39	25		}
40	26
41	27
42	28		func getAssetString (assetId) = match assetId {
43	29		case b: ByteVector =>
44	30		toBase58String(b)
45	31		case _ =>
46	32		"WAVES"
47	33		}
48	34
49	35
50	36		func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
51	37		then unit
52	38		else fromBase58String(assetIdStr)
53	39
54	40
55	41		func addAssetBytesToList (accum,item) = (accum ++ [getAssetBytes(item)])
56	42
57	43
58	44		func addAssetWeightToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_weight"))])
59	45
60	46
61	47		func addAssetDecimalsToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_decimals"))])
62	48
63	49
64	50		func addAssetScaleToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_scale"))])
65	51
66	52
67	53		func addIntToList (accum,item) = (accum ++ [parseIntValue(item)])
68	54
69	55
70	56		let T = tryGetInteger("static_tokensAmount")
71	57
72	58		let assetIds = {
73	59		let $l = split(tryGetString("static_tokenIds"), ",")
74	60		let $s = size($l)
75	61		let $acc0 = nil
76	62		func $f0_1 ($a,$i) = if (($i >= $s))
77	63		then $a
78	64		else addAssetBytesToList($a, $l[$i])
79	65
80	66		func $f0_2 ($a,$i) = if (($i >= $s))
81	67		then $a
82	68		else throw("List size exceeds 10")
83	69
84	70		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
85	71		}
86	72
87	73		let AssetsWeights = {
88	74		let $l = assetIds
89	75		let $s = size($l)
90	76		let $acc0 = nil
91	77		func $f1_1 ($a,$i) = if (($i >= $s))
92	78		then $a
93	79		else addAssetWeightToList($a, $l[$i])
94	80
95	81		func $f1_2 ($a,$i) = if (($i >= $s))
96	82		then $a
97	83		else throw("List size exceeds 10")
98	84
99	85		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
100	86		}
101	87
102	88		let Decimals = {
103	89		let $l = assetIds
104	90		let $s = size($l)
105	91		let $acc0 = nil
106	92		func $f2_1 ($a,$i) = if (($i >= $s))
107	93		then $a
108	94		else addAssetDecimalsToList($a, $l[$i])
109	95
110	96		func $f2_2 ($a,$i) = if (($i >= $s))
111	97		then $a
112	98		else throw("List size exceeds 10")
113	99
114	100		$f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
115	101		}
116	102
117	103		let Scales = {
118	104		let $l = assetIds
119	105		let $s = size($l)
120	106		let $acc0 = nil
121	107		func $f3_1 ($a,$i) = if (($i >= $s))
122	108		then $a
123	109		else addAssetScaleToList($a, $l[$i])
124	110
125	111		func $f3_2 ($a,$i) = if (($i >= $s))
126	112		then $a
127	113		else throw("List size exceeds 10")
128	114
129	115		$f3_2($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
130	116		}
131	117
132	118		let Fee = tryGetInteger("static_fee")
133	119
134		-	let AssetsWeightsDecimals = 4
	120	+	let AssetsWeightsDecimals = 2
135	121
136	122		let Scale = 10000
137	123
138	124		let Scale8 = 100000000
139	125
140	126		let FeeScale = 10000
141	127
142	128		let PoolTokenDecimals = 8
143	129
144	130		let PoolTokenScale = pow(10, 0, PoolTokenDecimals, 0, 0, HALFUP)
145	131
146	132		let earnedAssets = assetIds
147	133
148	134		func isShutdown () = match getBoolean(Address(base58'3PEpv9hRFWEEBU22WRnLsw1bH4YGtcU728o'), "is_shutdown") {
149	135		case x: Boolean =>
150	136		x
151	137		case _ =>
152	138		false
153	139		}
154	140
155	141
156	142		func getCurrentTokenBalance (tokenType) = {
157	143		let tokenId = getAssetString(assetIds[tokenType])
158	144		tryGetInteger((("global_" + tokenId) + "_balance"))
159	145		}
160	146
161	147
162	148		func calculatePIssued (amount,tokenId) = {
163	149		let Psupply = tryGetInteger("global_poolToken_amount")
164	150		let Balance = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
165	151		fraction(amount, Psupply, Balance, DOWN)
166	152		}
167	153
168	154
169	155		func getMinPIssued (payments) = {
170	156		func handler (accum,current) = {
171	157		let PIssued = calculatePIssued(current.amount, current.assetId)
172	158		if ((PIssued == 0))
173	159		then throw("one of the tokens amounts is too low")
174	160		else if (if ((accum == 0))
175	161		then true
176	162		else (accum > PIssued))
177	163		then PIssued
178	164		else accum
179	165		}
180	166
181	167		let minPIssed = {
182	168		let $l = payments
183	169		let $s = size($l)
184	170		let $acc0 = 0
185	171		func $f4_1 ($a,$i) = if (($i >= $s))
186	172		then $a
187	173		else handler($a, $l[$i])
188	174
189	175		func $f4_2 ($a,$i) = if (($i >= $s))
190	176		then $a
191	177		else throw("List size exceeds 10")
192	178
193	179		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
194	180		}
195	181		minPIssed
196	182		}
197	183
198	184
199		-	func calculateUsdnValue (assetId,amount,aBalance,givenUsdnBalance) = {
200		-	let usdnInPool = indexOf(assetIds, usdnAssetId)
	185	+	func calculateUsdnValue (assetId,amount,aBalance) = {
	186	+	let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
	187	+	let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
201	188		let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
202		-	if ((usdnInPool == unit))
203		-	then {
204		-	let puzzleWeight = AssetsWeights[value(indexOf(assetIds, puzzleAssetId))]
205		-	let puzzleBalance = tryGetInteger((("global_" + puzzleAssetIdStr) + "_balance"))
206		-	let amountInPuzzle = fraction(amount, (puzzleBalance / puzzleWeight), (aBalance / assetWeight))
207		-	let puzzlePrice = getIntegerValue(parentPoolAddress, "global_lastPuzzlePrice")
208		-	fraction((amountInPuzzle * puzzlePrice), 1, Scale8)
209		-	}
210		-	else {
211		-	let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnAssetId))]
212		-	let usdnBalance = match givenUsdnBalance {
213		-	case x: Int =>
214		-	givenUsdnBalance
215		-	case _ =>
216		-	tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
217		-	}
218		-	fraction(amount, (value(usdnBalance) / usdnWeight), (aBalance / assetWeight))
219		-	}
	189	+	let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
	190	+	fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
220	191		}
221	192
222	193
223	194		func checkTokensValidity (payments) = {
224	195		func handler1 (accum,payment) = (accum ++ [payment.assetId])
225	196
226	197		let ids = {
227	198		let $l = payments
228	199		let $s = size($l)
229	200		let $acc0 = nil
230	201		func $f4_1 ($a,$i) = if (($i >= $s))
231	202		then $a
232	203		else handler1($a, $l[$i])
233	204
234	205		func $f4_2 ($a,$i) = if (($i >= $s))
235	206		then $a
236	207		else throw("List size exceeds 10")
237	208
238	209		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
239	210		}
240	211		if ((ids == ids))
241	212		then {
242	213		func handler2 (accum,assetId) = if ((indexOf(ids, assetId) != unit))
243	214		then (accum + 1)
244	215		else throw(("asset not attached: " + getAssetString(assetId)))
245	216
246	217		let checks = {
247	218		let $l = assetIds
248	219		let $s = size($l)
249	220		let $acc0 = 0
250	221		func $f5_1 ($a,$i) = if (($i >= $s))
251	222		then $a
252	223		else handler2($a, $l[$i])
253	224
254	225		func $f5_2 ($a,$i) = if (($i >= $s))
255	226		then $a
256	227		else throw("List size exceeds 10")
257	228
258	229		$f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
259	230		}
260	231		if ((checks == checks))
261	232		then true
262	233		else throw("Strict value is not equal to itself.")
263	234		}
264	235		else throw("Strict value is not equal to itself.")
265	236		}
266	237
267	238
268	239		func handlePoolTokensAdd (PIssued,payments,userAddress,needChange) = {
269	240		func getTokenPaymentAmount (tokenId) = {
270	241		func handler (accum,payment) = if ((payment.assetId == tokenId))
271	242		then payment.amount
272	243		else accum
273	244
274	245		let $l = payments
275	246		let $s = size($l)
276	247		let $acc0 = 0
277	248		func $f4_1 ($a,$i) = if (($i >= $s))
278	249		then $a
279	250		else handler($a, $l[$i])
280	251
281	252		func $f4_2 ($a,$i) = if (($i >= $s))
282	253		then $a
283	254		else throw("List size exceeds 10")
284	255
285	256		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
286	257		}
287	258
288	259		func handleTokenChange (accum,tokenId) = {
289	260		let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
290	261		let PSupply = tryGetInteger("global_poolToken_amount")
291	262		let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
292	263		let Dk = fraction((fraction((PSupply + PIssued), tokenDecimals, PSupply, CEILING) - tokenDecimals), Bk, tokenDecimals, CEILING)
293	264		let paymentAmount = getTokenPaymentAmount(tokenId)
294	265		let toReturn = ((if ((paymentAmount != 0))
295	266		then paymentAmount
296	267		else 0) - Dk)
297	268		let t = if (if (needChange)
298	269		then (toReturn > 0)
299	270		else false)
300	271		then [ScriptTransfer(userAddress, toReturn, tokenId)]
301	272		else nil
302	273		((accum ++ t) ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk + Dk))])
303	274		}
304	275
305	276		let $l = assetIds
306	277		let $s = size($l)
307	278		let $acc0 = nil
308	279		func $f4_1 ($a,$i) = if (($i >= $s))
309	280		then $a
310	281		else handleTokenChange($a, $l[$i])
311	282
312	283		func $f4_2 ($a,$i) = if (($i >= $s))
313	284		then $a
314	285		else throw("List size exceeds 10")
315	286
316	287		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
317	288		}
318	289
319	290
320	291		func handlePoolTokensRedeem (PRedeemed,userAddress) = {
321	292		func handleTokenRedeem (accum,tokenId) = {
322	293		let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
323	294		let PSupply = tryGetInteger("global_poolToken_amount")
324	295		let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
325	296		let amount = toInt(fraction((toBigInt(Scale8) - fraction(toBigInt((PSupply - PRedeemed)), toBigInt(Scale8), toBigInt(PSupply), CEILING)), toBigInt(Bk), toBigInt(Scale8), DOWN))
326	297		(accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount)), ScriptTransfer(userAddress, amount, tokenId)])
327	298		}
328	299
329	300		let $l = assetIds
330	301		let $s = size($l)
331	302		let $acc0 = nil
332	303		func $f4_1 ($a,$i) = if (($i >= $s))
333	304		then $a
334	305		else handleTokenRedeem($a, $l[$i])
335	306
336	307		func $f4_2 ($a,$i) = if (($i >= $s))
337	308		then $a
338	309		else throw("List size exceeds 10")
339	310
340	311		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
341	312		}
342	313
343	314
344	315		func calculateOutAmount (AmountIn,assetIn,assetOut,BalanceIn,BalanceOut) = {
345	316		let IndexIn = value(indexOf(assetIds, assetIn))
346	317		let IndexOut = value(indexOf(assetIds, assetOut))
347	318		if ((IndexIn == IndexOut))
348		-	then ~~AmountIn~~
	319	+	then throw("wrong tokens pair")
349	320		else fraction(BalanceOut, ((Scale8 * Scale8) - toInt(pow(fraction(toBigInt(BalanceIn), toBigInt((Scale8 * Scale8)), toBigInt((BalanceIn + AmountIn)), HALFUP), 16, toBigInt(fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut])), 4, 16, CEILING))), (Scale8 * Scale8), DOWN)
350	321		}
351	322
352	323
353	324		func getTokenBalance (assetId) = match assetId {
354	325		case t: ByteVector =>
355	326		assetBalance(this, t)
356	327		case _ =>
357	328		wavesBalance(this).available
358	329		}
359	330
360	331
361	332		func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
362	333		let totalStaked = tryGetInteger("global_indexStaked")
363	334		let tokenBalanceLastCheck = tokenEarningsLastCheck
364	335		let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
365	336		let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
366	337		then currentBalanceDelta
367	338		else tokenBalanceLastCheck
368	339		let newEarnings = (currentTokenEarnings - tokenBalanceLastCheck)
369	340		let newInterest = if ((totalStaked == 0))
370	341		then 0
371	342		else fraction(newEarnings, Scale8, totalStaked)
372	343		let lastCheckInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
373	344		(lastCheckInterest + newInterest)
374	345		}
375	346
376	347
377	348		func claimResult (address) = {
378	349		let addressStr = toString(address)
379	350		let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
380	351		func handler (accum,assetId) = {
381	352		let assetIdStr = getAssetString(assetId)
382	353		let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
383	354		let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
384	355		let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
385	356		let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
386	357		let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
387	358		let transfer = if ((rewardAmount == 0))
388	359		then nil
389	360		else [ScriptTransfer(address, rewardAmount, assetId)]
390		-	$Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance~~, unit~~)))
	361	+	$Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance)))
391	362		}
392	363
393	364		let accum = {
394	365		let $l = earnedAssets
395	366		let $s = size($l)
396	367		let $acc0 = $Tuple2(nil, 0)
397	368		func $f4_1 ($a,$i) = if (($i >= $s))
398	369		then $a
399	370		else handler($a, $l[$i])
400	371
401	372		func $f4_2 ($a,$i) = if (($i >= $s))
402	373		then $a
403	374		else throw("List size exceeds 10")
404	375
405	376		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
406	377		}
407	378		(accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardValue"), (tryGetInteger((addressStr + "_claimedRewardValue")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)])
408	379		}
409	380
410	381
411	382		func indexStakeResult (addressStr,amount) = {
412	383		let li = claimResult(addressFromStringValue(addressStr))
413	384		(li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
414	385		}
415	386
416	387
417	388		func sum (accum,n) = (accum + parseIntValue(n))
418	389
419	390
420	391		@Callable(i)
421		-	func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain,poolOwner,fee) = {
422		-	let poolOwnerAddress = Address(fromBase58String(poolOwner))
423		-	if ((this != i.caller))
424		-	then throw("admin only")
425		-	else if ((size(poolDomain) > 13))
426		-	then throw("too large pool domain")
427		-	else if (if ((fee > 500))
428		-	then true
429		-	else (50 > fee))
430		-	then throw("fee value must be between 50 and 500 (0.5-5%)")
431		-	else if (if ((indexOf(assetIdsStr, puzzleAssetIdStr) == unit))
432		-	then (indexOf(assetIdsStr, usdnAssetIdStr) == unit)
433		-	else false)
434		-	then throw("pool must have USDN or PUZZLE in the composition")
435		-	else {
436		-	let assetIdsStrLi = split(assetIdsStr, ",")
437		-	let assetIdsLi = {
438		-	let $l = assetIdsStrLi
439		-	let $s = size($l)
440		-	let $acc0 = nil
441		-	func $f4_1 ($a,$i) = if (($i >= $s))
442		-	then $a
443		-	else addAssetBytesToList($a, $l[$i])
	392	+	func preInit (assetIdsStr,assetWeightsStr,baseTokenIdStr,poolDomain) = if ((this != i.caller))
	393	+	then throw("admin only")
	394	+	else if ((size(poolDomain) > 13))
	395	+	then throw("too large pool domain")
	396	+	else {
	397	+	let assetIdsStrLi = split(assetIdsStr, ",")
	398	+	let assetIdsLi = {
	399	+	let $l = assetIdsStrLi
	400	+	let $s = size($l)
	401	+	let $acc0 = nil
	402	+	func $f4_1 ($a,$i) = if (($i >= $s))
	403	+	then $a
	404	+	else addAssetBytesToList($a, $l[$i])
444	405
445		-	func $f4_2 ($a,$i) = if (($i >= $s))
446		-	then $a
447		-	else throw("List size exceeds 10")
	406	+	func $f4_2 ($a,$i) = if (($i >= $s))
	407	+	then $a
	408	+	else throw("List size exceeds 10")
448	409
449		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
450		-	}
451		-	let assetWeightsStrLi = split(assetWeightsStr, ",")
452		-	let assetWeightsSum = {
453		-	let $l = assetWeightsStrLi
454		-	let $s = size($l)
455		-	let $acc0 = 0
456		-	func $f5_1 ($a,$i) = if (($i >= $s))
457		-	then $a
458		-	else sum($a, $l[$i])
	410	+	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	411	+	}
	412	+	let assetWeightsStrLi = split(assetWeightsStr, ",")
	413	+	let assetWeightsSum = {
	414	+	let $l = assetWeightsStrLi
	415	+	let $s = size($l)
	416	+	let $acc0 = 0
	417	+	func $f5_1 ($a,$i) = if (($i >= $s))
	418	+	then $a
	419	+	else sum($a, $l[$i])
459	420
460		-	func $f5_2 ($a,$i) = if (($i >= $s))
461		-	then $a
462		-	else throw("List size exceeds 10")
	421	+	func $f5_2 ($a,$i) = if (($i >= $s))
	422	+	then $a
	423	+	else throw("List size exceeds 10")
463	424

github/deemru/w8io/6500d08 
119.03 ms ◑