tx · HNERVEwG1JeGAxQrWMLygfZJR9CnUqKp5zTgNdBU4hxP

3N24BqVJodTXPNvQfpcet7g2jL48Xj5PriA:  -0.01000000 Waves

2020.05.26 18:35 [1015486] smart account 3N24BqVJodTXPNvQfpcet7g2jL48Xj5PriA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HNERVEwG1JeGAxQrWMLygfZJR9CnUqKp5zTgNdBU4hxP",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1590507387515,
    "version": 1,
    "sender": "3N24BqVJodTXPNvQfpcet7g2jL48Xj5PriA",
    "senderPublicKey": "ENmbzndBj6yvKxYG78HoL5Sv7zJqZHFWUKiHC5wVb8r5",
    "proofs": [
        "65WAkJ5zkAD6fEXLahsWAjfMMfPrv9FUGipKert8hsY7banY5FDpB7Nu2spsw6PWrWBGUHzSrSvzABjDKcsbCUbj"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAkAAAAAAdCVUxMS2V5AgAAAAZCVUxMSWQAAAAAB0JFQVJLZXkCAAAABkJFQVJJZAAAAAAMbWFpblRva2VuS2V5AgAAAAttYWluVG9rZW5JZAAAAAALb3JhY2xlUEtLZXkCAAAABm9yYWNsZQAAAAAXb3JhY2xlQ3VycmVudFByaWNlSWRLZXkCAAAAC2xhc3RQcmljZUlkAAAAABdsYXN0UmViYWxhbmNlUHJpY2VJZEtleQIAAAAVbGFzdFNldHRsZW1lbnRQcmljZUlkAAAAABFidWxsQ29sbGF0ZXJhbEtleQIAAAAOYnVsbENvbGxhdGVyYWwAAAAAEWJlYXJDb2xsYXRlcmFsS2V5AgAAAA5iZWFyQ29sbGF0ZXJhbAAAAAASYnVsbENpcmN1bGF0aW9uS2V5AgAAAA9idWxsQ2lyY3VsYXRpb24AAAAAEmJlYXJDaXJjdWxhdGlvbktleQIAAAAPYmVhckNpcmN1bGF0aW9uAAAAAAdidWxsQ29sCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwUAAAARYnVsbENvbGxhdGVyYWxLZXkCAAAAFG5vIGJ1bGxDb2xsYXRlcmFsS2V5AAAAAAdiZWFyQ29sCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwUAAAARYmVhckNvbGxhdGVyYWxLZXkCAAAAFG5vIGJlYXJDb2xsYXRlcmFsS2V5AAAAAAhidWxsQ2lyYwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEGgAAAAIFAAAABHRoaXMFAAAAEmJ1bGxDaXJjdWxhdGlvbktleQIAAAAVbm8gYnVsbENpcmN1bGF0aW9uS2V5AAAAAAhiZWFyQ2lyYwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEGgAAAAIFAAAABHRoaXMFAAAAEmJlYXJDaXJjdWxhdGlvbktleQIAAAAVbm8gYmVhckNpcmN1bGF0aW9uS2V5AAAAAARCVUxMCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAEdGhpcwUAAAAHQlVMTEtleQIAAAAKbm8gQlVMTEtleQAAAAAEQkVBUgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMFAAAAB0JFQVJLZXkCAAAACm5vIEJFQVJLZXkAAAAACW1haW5Ub2tlbgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMFAAAADG1haW5Ub2tlbktleQIAAAAPbm8gbWFpblRva2VuS2V5AAAAAAZvcmFjbGUJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQkAAlkAAAABCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAEdGhpcwUAAAALb3JhY2xlUEtLZXkCAAAADm5vIG9yYWNsZVBLS2V5AgAAABJiYWQgb3JhY2xlIGFkZHJlc3MAAAAAEXJlYmFsYW5jZWRQcmljZUlkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwUAAAAXbGFzdFJlYmFsYW5jZVByaWNlSWRLZXkCAAAAF25vIGxhc3QgcmViYWxhbmNlIHByaWNlAAAAAA1vcmFjbGVQcmljZUlkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAGb3JhY2xlBQAAABdvcmFjbGVDdXJyZW50UHJpY2VJZEtleQIAAAAPYmFkIG9yYWNsZSBkYXRhAAAAAA5oZWFkUG9pbnRlcktleQIAAAALaGVhZFBvaW50ZXIAAAAADnRhaWxQb2ludGVyS2V5AgAAAAt0YWlsUG9pbnRlcgAAAAAMcXVldWVTaXplS2V5AgAAAAlxdWV1ZVNpemUAAAAACXF1ZXVlU2l6ZQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAxxdWV1ZVNpemVLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABaQUAAAAHJG1hdGNoMAUAAAABaQAAAAAAAAAAAAAAAAALaGVhZFBvaW50ZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAAOaGVhZFBvaW50ZXJLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABcwUAAAAHJG1hdGNoMAUAAAABcwIAAAAAAAAAAAt0YWlsUG9pbnRlcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAA50YWlsUG9pbnRlcktleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFzBQAAAAckbWF0Y2gwBQAAAAFzAgAAAAAAAAAAEmZlZXNBY2N1bXVsYXRlZEtleQIAAAAPZmVlc0FjY3VtdWxhdGVkAAAAAA9mZWVzQWNjdW11bGF0ZWQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAASZmVlc0FjY3VtdWxhdGVkS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWkFAAAAByRtYXRjaDAFAAAAAWkAAAAAAAAAAAAAAAAACmZlZVNpemVLZXkCAAAAB2ZlZVNpemUAAAAAB2ZlZVNpemUEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAKZmVlU2l6ZUtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFpBQAAAAckbWF0Y2gwBQAAAAFpAAAAAAAAAAAAAAAAAAVJU1NVRQIAAAAFSVNTVUUAAAAABlJFREVFTQIAAAAGUkVERUVNAQAAAAxidWlsZE5ld0l0ZW0AAAAFAAAABmFjdGlvbgAAAANhbXQAAAAFdG9rZW4AAAAHcHJpY2VJZAAAAAdpbnZva2VyCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAZhY3Rpb24CAAAAAXwJAAGkAAAAAQUAAAADYW10AgAAAAF8BQAAAAV0b2tlbgIAAAABfAkAAaQAAAABBQAAAAdwcmljZUlkAgAAAAF8BQAAAAdpbnZva2VyAgAAAAF8AQAAAAdlbnF1ZXVlAAAABgAAAAJpZAAAAAZhY3Rpb24AAAADYW10AAAABXRva2VuAAAAB3ByaWNlSWQAAAAHaW52b2tlcgQAAAARaW5jcmVhc2VRdWV1ZVNpemUJAQAAAAlEYXRhRW50cnkAAAACBQAAAAxxdWV1ZVNpemVLZXkJAABkAAAAAgUAAAAJcXVldWVTaXplAAAAAAAAAAABBAAAAANpdG0JAQAAAAxidWlsZE5ld0l0ZW0AAAAFBQAAAAZhY3Rpb24FAAAAA2FtdAUAAAAFdG9rZW4FAAAAB3ByaWNlSWQFAAAAB2ludm9rZXIDCQAAAAAAAAIFAAAACXF1ZXVlU2l6ZQAAAAAAAAAAAAkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAOaGVhZFBvaW50ZXJLZXkFAAAAAmlkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAA50YWlsUG9pbnRlcktleQUAAAACaWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAAmlkBQAAAANpdG0JAARMAAAAAgUAAAARaW5jcmVhc2VRdWV1ZVNpemUFAAAAA25pbAQAAAAGcHJldklkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAEdGhpcwUAAAAOdGFpbFBvaW50ZXJLZXkCAAAAFmNhbid0IGdldCB0YWlsIHBvaW50ZXIEAAAAB3ByZXZJdG0JAAS1AAAAAgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMFAAAABnByZXZJZAIAAAAVY2FuJ3QgcmVzb2x2ZSBwb2ludGVyAgAAAAF8BAAAAA51cGRhdGVkUHJldkl0bQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAAB3ByZXZJdG0AAAAAAAAAAAACAAAAAXwJAAGRAAAAAgUAAAAHcHJldkl0bQAAAAAAAAAAAQIAAAABfAkAAZEAAAACBQAAAAdwcmV2SXRtAAAAAAAAAAACAgAAAAF8CQABkQAAAAIFAAAAB3ByZXZJdG0AAAAAAAAAAAMCAAAAAXwJAAGRAAAAAgUAAAAHcHJldkl0bQAAAAAAAAAABAIAAAABfAUAAAACaWQJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABnByZXZJZAUAAAAOdXBkYXRlZFByZXZJdG0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAAmlkBQAAAANpdG0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAADnRhaWxQb2ludGVyS2V5BQAAAAJpZAkABEwAAAACBQAAABFpbmNyZWFzZVF1ZXVlU2l6ZQUAAAADbmlsAQAAAAdkZXF1ZXVlAAAAAAMJAAAAAAAAAgUAAAAJcXVldWVTaXplAAAAAAAAAAAACQAAAgAAAAECAAAAEW5vdGhpbmcgdG8gc2V0dGxlBAAAAApjb2xsZWN0RmVlCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAASZmVlc0FjY3VtdWxhdGVkS2V5CQAAZAAAAAIFAAAAD2ZlZXNBY2N1bXVsYXRlZAUAAAAHZmVlU2l6ZQQAAAARZGVjcmVhc2VRdWV1ZVNpemUJAQAAAAlEYXRhRW50cnkAAAACBQAAAAxxdWV1ZVNpemVLZXkJAABlAAAAAgUAAAAJcXVldWVTaXplAAAAAAAAAAABBAAAAA1pc0xhc3RFbGVtZW50CQAAAAAAAAIFAAAAC2hlYWRQb2ludGVyBQAAAAt0YWlsUG9pbnRlcgQAAAANb3ZlcndyaXRlVGFpbAkBAAAACURhdGFFbnRyeQAAAAIFAAAADnRhaWxQb2ludGVyS2V5AgAAAAAEAAAABGRhdGEJAAS1AAAAAgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMFAAAAC2hlYWRQb2ludGVyAgAAABBiYWQgaGVhZCBwb2ludGVyAgAAAAF8BAAAAAZhY3Rpb24JAAGRAAAAAgUAAAAEZGF0YQAAAAAAAAAAAAQAAAADYW10CQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAAEZGF0YQAAAAAAAAAAAQQAAAAFdG9rZW4JAAGRAAAAAgUAAAAEZGF0YQAAAAAAAAAAAgQAAAAHcHJpY2VJZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAABGRhdGEAAAAAAAAAAAMEAAAAB2ludm9rZXIJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAARkYXRhAAAAAAAAAAAEBAAAAARuZXh0CQABkQAAAAIFAAAABGRhdGEAAAAAAAAAAAUDCQAAZgAAAAIFAAAAEXJlYmFsYW5jZWRQcmljZUlkBQAAAAdwcmljZUlkCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAIWNvcnJ1cHQgc3RhdGUsIHJlYmFsYW5jZWRQcmljZUlkPQkAAaQAAAABBQAAABFyZWJhbGFuY2VkUHJpY2VJZAIAAAATLCByZXF1ZXN0IHByaWNlIGlkPQkAAaQAAAABBQAAAAdwcmljZUlkAwkAAGYAAAACBQAAAAdwcmljZUlkBQAAABFyZWJhbGFuY2VkUHJpY2VJZAkAAAIAAAABAgAAACljYW4ndCBkZXF1ZXVlLCB0b28gZWFybHksIHJlYmFsYW5jZSBmaXJzdAMJAAAAAAAAAgUAAAAGYWN0aW9uBQAAAAVJU1NVRQQAAAAPYWRkZWRDb2xsYXRlcmFsCQAAZQAAAAIFAAAAA2FtdAUAAAAHZmVlU2l6ZQMJAAAAAAAAAgUAAAAFdG9rZW4FAAAABEJVTEwEAAAAEmFkZGVkVG9DaXJjdWxhdGlvbgkAAGsAAAADBQAAAAhidWxsQ2lyYwUAAAAPYWRkZWRDb2xsYXRlcmFsBQAAAAdidWxsQ29sBAAAAAVpdGVtcwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAARYnVsbENvbGxhdGVyYWxLZXkJAABkAAAAAgUAAAAHYnVsbENvbAUAAAAPYWRkZWRDb2xsYXRlcmFsCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABJidWxsQ2lyY3VsYXRpb25LZXkJAABkAAAAAgUAAAAIYnVsbENpcmMFAAAAEmFkZGVkVG9DaXJjdWxhdGlvbgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAOaGVhZFBvaW50ZXJLZXkFAAAABG5leHQJAARMAAAAAgUAAAAKY29sbGVjdEZlZQkABEwAAAACBQAAABFkZWNyZWFzZVF1ZXVlU2l6ZQUAAAADbmlsCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQMFAAAADWlzTGFzdEVsZW1lbnQJAARMAAAAAgUAAAANb3ZlcndyaXRlVGFpbAUAAAAFaXRlbXMFAAAABWl0ZW1zCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAB2ludm9rZXIFAAAAEmFkZGVkVG9DaXJjdWxhdGlvbgkAAlkAAAABBQAAAARCVUxMBQAAAANuaWwDCQAAAAAAAAIFAAAABXRva2VuBQAAAARCRUFSBAAAABJhZGRlZFRvQ2lyY3VsYXRpb24JAABrAAAAAwUAAAAIYmVhckNpcmMFAAAAD2FkZGVkQ29sbGF0ZXJhbAUAAAAHYmVhckNvbAQAAAAFaXRlbXMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEWJlYXJDb2xsYXRlcmFsS2V5CQAAZAAAAAIFAAAAB2JlYXJDb2wFAAAAD2FkZGVkQ29sbGF0ZXJhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAASYmVhckNpcmN1bGF0aW9uS2V5CQAAZAAAAAIFAAAACGJlYXJDaXJjBQAAABJhZGRlZFRvQ2lyY3VsYXRpb24JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAADmhlYWRQb2ludGVyS2V5BQAAAARuZXh0CQAETAAAAAIFAAAACmNvbGxlY3RGZWUJAARMAAAAAgUAAAARZGVjcmVhc2VRdWV1ZVNpemUFAAAAA25pbAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEDBQAAAA1pc0xhc3RFbGVtZW50CQAETAAAAAIFAAAADW92ZXJ3cml0ZVRhaWwFAAAABWl0ZW1zBQAAAAVpdGVtcwkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAdpbnZva2VyBQAAABJhZGRlZFRvQ2lyY3VsYXRpb24JAAJZAAAAAQUAAAAEQkVBUgUAAAADbmlsCQAAAgAAAAECAAAADGJhZCB0b2tlbiBpZAMJAAAAAAAAAgUAAAAGYWN0aW9uBQAAAAZSRURFRU0EAAAADXJlbW92ZWRUb2tlbnMFAAAAA2FtdAMJAAAAAAAAAgUAAAAFdG9rZW4FAAAABEJVTEwEAAAAEXJlbW92ZWRDb2xsYXRlcmFsCQAAawAAAAMFAAAAB2J1bGxDb2wFAAAADXJlbW92ZWRUb2tlbnMFAAAACGJ1bGxDaXJjBAAAAAZwYXlvdXQDCQAAZgAAAAIFAAAAEXJlbW92ZWRDb2xsYXRlcmFsBQAAAAdmZWVTaXplCQAAZQAAAAIFAAAAEXJlbW92ZWRDb2xsYXRlcmFsBQAAAAdmZWVTaXplAAAAAAAAAAAABAAAAAVpdGVtcwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAARYnVsbENvbGxhdGVyYWxLZXkJAABlAAAAAgUAAAAHYnVsbENvbAUAAAARcmVtb3ZlZENvbGxhdGVyYWwJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEmJ1bGxDaXJjdWxhdGlvbktleQkAAGUAAAACBQAAAAhidWxsQ2lyYwUAAAANcmVtb3ZlZFRva2VucwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAOaGVhZFBvaW50ZXJLZXkFAAAABG5leHQJAARMAAAAAgUAAAAKY29sbGVjdEZlZQkABEwAAAACBQAAABFkZWNyZWFzZVF1ZXVlU2l6ZQUAAAADbmlsCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQMFAAAADWlzTGFzdEVsZW1lbnQJAARMAAAAAgUAAAANb3ZlcndyaXRlVGFpbAUAAAAFaXRlbXMFAAAABWl0ZW1zCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAB2ludm9rZXIFAAAABnBheW91dAkAAlkAAAABBQAAAAltYWluVG9rZW4FAAAAA25pbAMJAAAAAAAAAgUAAAAFdG9rZW4FAAAABEJFQVIEAAAAEXJlbW92ZWRDb2xsYXRlcmFsCQAAawAAAAMFAAAAB2JlYXJDb2wFAAAADXJlbW92ZWRUb2tlbnMFAAAACGJlYXJDaXJjBAAAAAZwYXlvdXQDCQAAZgAAAAIFAAAAEXJlbW92ZWRDb2xsYXRlcmFsBQAAAAdmZWVTaXplCQAAZQAAAAIFAAAAEXJlbW92ZWRDb2xsYXRlcmFsBQAAAAdmZWVTaXplAAAAAAAAAAAABAAAAAVpdGVtcwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAARYmVhckNvbGxhdGVyYWxLZXkJAABlAAAAAgUAAAAHYmVhckNvbAUAAAARcmVtb3ZlZENvbGxhdGVyYWwJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEmJlYXJDaXJjdWxhdGlvbktleQkAAGUAAAACBQAAAAhiZWFyQ2lyYwUAAAANcmVtb3ZlZFRva2VucwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAOaGVhZFBvaW50ZXJLZXkFAAAABG5leHQJAARMAAAAAgUAAAAKY29sbGVjdEZlZQkABEwAAAACBQAAABFkZWNyZWFzZVF1ZXVlU2l6ZQUAAAADbmlsCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQMFAAAADWlzTGFzdEVsZW1lbnQJAARMAAAAAgUAAAANb3ZlcndyaXRlVGFpbAUAAAAFaXRlbXMFAAAABWl0ZW1zCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAB2ludm9rZXIFAAAABnBheW91dAkAAlkAAAABBQAAAAltYWluVG9rZW4FAAAAA25pbAkAAAIAAAABAgAAAAxiYWQgdG9rZW4gaWQJAAACAAAAAQkAASwAAAACAgAAAAxiYWQgYWN0aW9uOiAFAAAABmFjdGlvbgEAAAAJcmViYWxhbmNlAAAAAAoBAAAAAkxWAAAAAwAAAAF2AAAAAnAwAAAAAnAxBAAAAAVkZW5vbQAAAAAAAAAAZAQAAAAEcG1heAkAAGkAAAACAwkAAGYAAAACBQAAAAJwMQUAAAACcDAFAAAAAnAxBQAAAAJwMAUAAAAFZGVub20EAAAABHBtaW4JAABpAAAAAgMJAABmAAAAAgUAAAACcDAFAAAAAnAxBQAAAAJwMQUAAAACcDAFAAAABWRlbm9tBAAAAAFhCQAAaAAAAAIFAAAABHBtaW4FAAAABHBtaW4EAAAAAWIJAABlAAAAAgkAAGgAAAACCQAAaAAAAAIAAAAAAAAAAAkFAAAABHBtYXgFAAAABHBtYXgJAABoAAAAAgkAAGgAAAACAAAAAAAAAAAPBQAAAARwbWF4BQAAAARwbWluCQAAawAAAAMFAAAAAXYJAABkAAAAAgkAAGgAAAACAAAAAAAAAAAGBQAAAAFhBQAAAAFiCQAAZAAAAAIJAABoAAAAAgAAAAAAAAAABwUAAAABYQUAAAABYgQAAAAOc2V0dGxlZFByaWNlSWQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAR0aGlzBQAAABdsYXN0UmViYWxhbmNlUHJpY2VJZEtleQIAAAARaW5jb25zaXN0ZW50IGRhdGEEAAAAEHVuc2V0dGxlZFByaWNlSWQJAABkAAAAAgUAAAAOc2V0dGxlZFByaWNlSWQAAAAAAAAAAAEEAAAADHNldHRsZWRQcmljZQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEGgAAAAIFAAAABm9yYWNsZQkAAaQAAAABBQAAAA5zZXR0bGVkUHJpY2VJZAIAAAAhYmFkIG9yYWNsZSBkYXRhIGZvciBzZWxsdGVkIHByaWNlBAAAAAluZXh0UHJpY2UJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAZvcmFjbGUJAAGkAAAAAQUAAAAQdW5zZXR0bGVkUHJpY2VJZAIAAAANbm8gbmV4dCBwcmljZQQAAAAGbWluVm9sAwkAAGYAAAACBQAAAAdiZWFyQ29sBQAAAAdidWxsQ29sBQAAAAdidWxsQ29sBQAAAAdiZWFyQ29sBAAAAAZyZWRpc3QJAQAAAAJMVgAAAAMFAAAABm1pblZvbAUAAAAMc2V0dGxlZFByaWNlBQAAAAluZXh0UHJpY2UDCQAAZgAAAAIFAAAACW5leHRQcmljZQUAAAAMc2V0dGxlZFByaWNlCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABFidWxsQ29sbGF0ZXJhbEtleQkAAGQAAAACBQAAAAdidWxsQ29sBQAAAAZyZWRpc3QJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEWJlYXJDb2xsYXRlcmFsS2V5CQAAZQAAAAIFAAAAB2JlYXJDb2wFAAAABnJlZGlzdAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAXbGFzdFJlYmFsYW5jZVByaWNlSWRLZXkFAAAAEHVuc2V0dGxlZFByaWNlSWQFAAAAA25pbAMJAABmAAAAAgUAAAAMc2V0dGxlZFByaWNlBQAAAAluZXh0UHJpY2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEWJ1bGxDb2xsYXRlcmFsS2V5CQAAZQAAAAIFAAAAB2J1bGxDb2wFAAAABnJlZGlzdAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAARYmVhckNvbGxhdGVyYWxLZXkJAABkAAAAAgUAAAAHYmVhckNvbAUAAAAGcmVkaXN0CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABdsYXN0UmViYWxhbmNlUHJpY2VJZEtleQUAAAAQdW5zZXR0bGVkUHJpY2VJZAUAAAADbmlsCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABdsYXN0UmViYWxhbmNlUHJpY2VJZEtleQUAAAAQdW5zZXR0bGVkUHJpY2VJZAUAAAADbmlsAAAABQAAAANpbnYBAAAABGluaXQAAAAFAAAABmJ1bGxJZAAAAAZiZWFySWQAAAALbWFpblRva2VuSWQAAAAIb3JhY2xlUEsAAAADZmVlAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAAHQlVMTEtleQkAAAIAAAABAgAAABNhbHJlYWR5IGluaXRpYWxpemVkAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA2ludgAAAAdwYXltZW50CQAAAgAAAAECAAAAGW5ldXRyaW5vIHBheW1lbnQgcmVxdWlyZWQDCQEAAAACIT0AAAACCQACWAAAAAEJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAggJAQAAAAV2YWx1ZQAAAAEIBQAAAANpbnYAAAAHcGF5bWVudAAAAAdhc3NldElkAgAAABluZXV0cmlubyBwYXltZW50IHJlcXVpcmVkBQAAAAttYWluVG9rZW5JZAkAAAIAAAABAgAAABdwYXltZW50IG5vdCBpbiBuZXV0cmlubwQAAAATdG90YWxPd25lZE1haW5Ub2tlbggJAQAAAAV2YWx1ZQAAAAEIBQAAAANpbnYAAAAHcGF5bWVudAAAAAZhbW91bnQEAAAABWJ1bGxzCQAAaQAAAAIFAAAAE3RvdGFsT3duZWRNYWluVG9rZW4AAAAAAAAAAAIEAAAABWJlYXJzCQAAZQAAAAIFAAAAE3RvdGFsT3duZWRNYWluVG9rZW4FAAAABWJ1bGxzAwMJAAAAAAAAAgUAAAAFYmVhcnMAAAAAAAAAAAAGCQAAAAAAAAIFAAAABWJ1bGxzAAAAAAAAAAAACQAAAgAAAAECAAAAE2Nhbid0IGluaXQgYmFsYW5jZXMEAAAAFG9yYWNsZUN1cnJlbnRQcmljZUlkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABCQACWQAAAAEFAAAACG9yYWNsZVBLAgAAABJiYWQgb3JhY2xlIGFkZHJlc3MFAAAAF29yYWNsZUN1cnJlbnRQcmljZUlkS2V5AgAAABpjYW4ndCBmaW5kIG9yYWNsZSBwcmljZSBpZAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAB0JVTExLZXkFAAAABmJ1bGxJZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAHQkVBUktleQUAAAAGYmVhcklkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAxtYWluVG9rZW5LZXkFAAAAC21haW5Ub2tlbklkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAtvcmFjbGVQS0tleQUAAAAIb3JhY2xlUEsJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEWJ1bGxDb2xsYXRlcmFsS2V5BQAAAAVidWxscwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAARYmVhckNvbGxhdGVyYWxLZXkFAAAABWJlYXJzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABJidWxsQ2lyY3VsYXRpb25LZXkFAAAABWJ1bGxzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABJiZWFyQ2lyY3VsYXRpb25LZXkFAAAABWJlYXJzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABdsYXN0UmViYWxhbmNlUHJpY2VJZEtleQUAAAAUb3JhY2xlQ3VycmVudFByaWNlSWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACmZlZVNpemVLZXkFAAAAA2ZlZQUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAANpbnYAAAAGY2FsbGVyBQAAAAVidWxscwkAAlkAAAABBQAAAAZidWxsSWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAA2ludgAAAAZjYWxsZXIFAAAABWJlYXJzCQACWQAAAAEFAAAABmJlYXJJZAUAAAADbmlsAAAAAWkBAAAACnNldEZlZVNpemUAAAABAAAAAWYDCQEAAAACIT0AAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMJAAACAAAAAQIAAAAdb25seSBzZWxmIGNhbiBjaGFuZ2UgZmVlIHNpemUJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACmZlZVNpemVLZXkFAAAAAWYFAAAAA25pbAAAAANpbnYBAAAADXJlcXVlc3RSZWRlZW0AAAAAAwkAAAAAAAACCAUAAAADaW52AAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAAAhjYW4ndCBkbwoBAAAADGVycm9yTWVzc2FnZQAAAAEAAAADZ290CQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAApvbmx5IEJVTEwoBQAAAARCVUxMAgAAAAopIG9yIEJFQVIoBQAAAARCRUFSAgAAACEpIHRva2VucyBhcmUgYWNjZXB0ZWQsIHJlY2VpdmVkOiAFAAAAA2dvdAMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANpbnYAAAAHcGF5bWVudAkBAAAADGVycm9yTWVzc2FnZQAAAAECAAAAE25vIGF0dGFjaGVkIHBheW1lbnQEAAAAB2Fzc2V0SWQJAAJYAAAAAQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCAkBAAAABXZhbHVlAAAAAQgFAAAAA2ludgAAAAdwYXltZW50AAAAB2Fzc2V0SWQCAAAAG3dhdmVzIGFyZSBub3QgYWNjZXB0ZWQgaGVyZQMDCQEAAAACIT0AAAACBQAAAAdhc3NldElkBQAAAARCRUFSCQEAAAACIT0AAAACBQAAAAdhc3NldElkBQAAAARCVUxMBwkBAAAADGVycm9yTWVzc2FnZQAAAAEFAAAAB2Fzc2V0SWQJAQAAAAdlbnF1ZXVlAAAABgkAAlgAAAABCAUAAAADaW52AAAADXRyYW5zYWN0aW9uSWQFAAAABlJFREVFTQgJAQAAAAV2YWx1ZQAAAAEIBQAAAANpbnYAAAAHcGF5bWVudAAAAAZhbW91bnQFAAAAB2Fzc2V0SWQJAABkAAAAAgUAAAANb3JhY2xlUHJpY2VJZAAAAAAAAAAAAQkABCUAAAABCAUAAAADaW52AAAABmNhbGxlcgAAAANpbnYBAAAADHJlcXVlc3RJc3N1ZQAAAAEAAAAHdG9rZW5JZAMJAAAAAAAAAggFAAAAA2ludgAAAAZjYWxsZXIFAAAABHRoaXMJAAACAAAAAQIAAAAIY2FuJ3QgZG8EAAAADGVycm9yTWVzc2FnZQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAApvbmx5IEJVTEwoBQAAAARCVUxMAgAAAAopIG9yIEJFQVIoBQAAAARCRUFSAgAAACwpIHRva2VucyBhcmUgYXZhaWxhYmxlIGluIGV4Y2hhbmdlIGZvciBVU0ROKAUAAAAJbWFpblRva2VuAgAAAAEpAwMJAQAAAAIhPQAAAAIFAAAAB3Rva2VuSWQFAAAABEJVTEwJAQAAAAIhPQAAAAIFAAAAB3Rva2VuSWQFAAAABEJFQVIHBQAAAAxlcnJvck1lc3NhZ2UDCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADaW52AAAAB3BheW1lbnQFAAAADGVycm9yTWVzc2FnZQMJAQAAAAIhPQAAAAIICQEAAAAFdmFsdWUAAAABCAUAAAADaW52AAAAB3BheW1lbnQAAAAHYXNzZXRJZAkAAlkAAAABBQAAAAltYWluVG9rZW4FAAAADGVycm9yTWVzc2FnZQkBAAAAB2VucXVldWUAAAAGCQACWAAAAAEIBQAAAANpbnYAAAANdHJhbnNhY3Rpb25JZAUAAAAFSVNTVUUICQEAAAAFdmFsdWUAAAABCAUAAAADaW52AAAAB3BheW1lbnQAAAAGYW1vdW50BQAAAAd0b2tlbklkCQAAZAAAAAIFAAAADW9yYWNsZVByaWNlSWQAAAAAAAAAAAEJAAQlAAAAAQgFAAAAA2ludgAAAAZjYWxsZXIAAAADaW52AQAAAAZzZXR0bGUAAAAABAAAAApxdWV1ZUVtcHR5CQAAAAAAAAIFAAAAC2hlYWRQb2ludGVyAgAAAAAEAAAADGNhblJlYmFsYW5jZQkAAGYAAAACBQAAAA1vcmFjbGVQcmljZUlkBQAAABFyZWJhbGFuY2VkUHJpY2VJZAMFAAAACnF1ZXVlRW1wdHkDBQAAAAxjYW5SZWJhbGFuY2UJAQAAAAlyZWJhbGFuY2UAAAAACQAAAgAAAAECAAAAF1tPS10gYWxsIGRvbmUsIGNhcnJ5IG9uBAAAAARkYXRhCQAEtQAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzBQAAAAtoZWFkUG9pbnRlcgIAAAAQYmFkIGhlYWQgcG9pbnRlcgIAAAABfAQAAAAHcHJpY2VJZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAABGRhdGEAAAAAAAAAAAMDCQAAZgAAAAIFAAAAB3ByaWNlSWQFAAAAEXJlYmFsYW5jZWRQcmljZUlkAwUAAAAMY2FuUmViYWxhbmNlCQEAAAAJcmViYWxhbmNlAAAAAAkAAAIAAAABAgAAABFbT0tdIG5lZWQgdG8gd2FpdAMJAAAAAAAAAgUAAAAHcHJpY2VJZAUAAAARcmViYWxhbmNlZFByaWNlSWQJAQAAAAdkZXF1ZXVlAAAAAAkAAAIAAAABAgAAADBjb3JydXB0IGRhdGEsIGZ1dHVyZSBwcmljZSBpZCBhbHJlYWR5IHJlYmFsYW5jZWQAAAAAGu411A==",
    "chainId": 84,
    "height": 1015486,
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: none

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 3 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let BULLKey = "BULLId"
5+
6+let BEARKey = "BEARId"
7+
8+let mainTokenKey = "mainTokenId"
9+
10+let oraclePKKey = "oracle"
11+
12+let oracleCurrentPriceIdKey = "lastPriceId"
13+
14+let lastRebalancePriceIdKey = "lastSettlementPriceId"
15+
16+let bullCollateralKey = "bullCollateral"
17+
18+let bearCollateralKey = "bearCollateral"
19+
20+let bullCirculationKey = "bullCirculation"
21+
22+let bearCirculationKey = "bearCirculation"
23+
24+let bullCol = valueOrErrorMessage(getInteger(this, bullCollateralKey), "no bullCollateralKey")
25+
26+let bearCol = valueOrErrorMessage(getInteger(this, bearCollateralKey), "no bearCollateralKey")
27+
28+let bullCirc = valueOrErrorMessage(getInteger(this, bullCirculationKey), "no bullCirculationKey")
29+
30+let bearCirc = valueOrErrorMessage(getInteger(this, bearCirculationKey), "no bearCirculationKey")
31+
32+let BULL = valueOrErrorMessage(getString(this, BULLKey), "no BULLKey")
33+
34+let BEAR = valueOrErrorMessage(getString(this, BEARKey), "no BEARKey")
35+
36+let mainToken = valueOrErrorMessage(getString(this, mainTokenKey), "no mainTokenKey")
37+
38+let oracle = valueOrErrorMessage(addressFromPublicKey(fromBase58String(valueOrErrorMessage(getString(this, oraclePKKey), "no oraclePKKey"))), "bad oracle address")
39+
40+let rebalancedPriceId = valueOrErrorMessage(getInteger(this, lastRebalancePriceIdKey), "no last rebalance price")
41+
42+let oraclePriceId = valueOrErrorMessage(getInteger(oracle, oracleCurrentPriceIdKey), "bad oracle data")
43+
44+let headPointerKey = "headPointer"
45+
46+let tailPointerKey = "tailPointer"
47+
48+let queueSizeKey = "queueSize"
49+
50+let queueSize = match getInteger(this, queueSizeKey) {
51+    case i: Int => 
52+        i
53+    case _ => 
54+        0
55+}
56+
57+let headPointer = match getString(this, headPointerKey) {
58+    case s: String => 
59+        s
60+    case _ => 
61+        ""
62+}
63+
64+let tailPointer = match getString(this, tailPointerKey) {
65+    case s: String => 
66+        s
67+    case _ => 
68+        ""
69+}
70+
71+let feesAccumulatedKey = "feesAccumulated"
72+
73+let feesAccumulated = match getInteger(this, feesAccumulatedKey) {
74+    case i: Int => 
75+        i
76+    case _ => 
77+        0
78+}
79+
80+let feeSizeKey = "feeSize"
81+
82+let feeSize = match getInteger(this, feeSizeKey) {
83+    case i: Int => 
84+        i
85+    case _ => 
86+        0
87+}
88+
89+let ISSUE = "ISSUE"
90+
91+let REDEEM = "REDEEM"
92+
93+func buildNewItem (action,amt,token,priceId,invoker) = (((((((((action + "|") + toString(amt)) + "|") + token) + "|") + toString(priceId)) + "|") + invoker) + "|")
94+
95+
96+func enqueue (id,action,amt,token,priceId,invoker) = {
97+    let increaseQueueSize = DataEntry(queueSizeKey, (queueSize + 1))
98+    let itm = buildNewItem(action, amt, token, priceId, invoker)
99+    if ((queueSize == 0))
100+        then WriteSet([DataEntry(headPointerKey, id), DataEntry(tailPointerKey, id), DataEntry(id, itm), increaseQueueSize])
101+        else {
102+            let prevId = valueOrErrorMessage(getString(this, tailPointerKey), "can't get tail pointer")
103+            let prevItm = split(valueOrErrorMessage(getString(this, prevId), "can't resolve pointer"), "|")
104+            let updatedPrevItm = ((((((((((prevItm[0] + "|") + prevItm[1]) + "|") + prevItm[2]) + "|") + prevItm[3]) + "|") + prevItm[4]) + "|") + id)
105+            WriteSet([DataEntry(prevId, updatedPrevItm), DataEntry(id, itm), DataEntry(tailPointerKey, id), increaseQueueSize])
106+            }
107+    }
108+
109+
110+func dequeue () = if ((queueSize == 0))
111+    then throw("nothing to settle")
112+    else {
113+        let collectFee = DataEntry(feesAccumulatedKey, (feesAccumulated + feeSize))
114+        let decreaseQueueSize = DataEntry(queueSizeKey, (queueSize - 1))
115+        let isLastElement = (headPointer == tailPointer)
116+        let overwriteTail = DataEntry(tailPointerKey, "")
117+        let data = split(valueOrErrorMessage(getString(this, headPointer), "bad head pointer"), "|")
118+        let action = data[0]
119+        let amt = parseIntValue(data[1])
120+        let token = data[2]
121+        let priceId = parseIntValue(data[3])
122+        let invoker = addressFromStringValue(data[4])
123+        let next = data[5]
124+        if ((rebalancedPriceId > priceId))
125+            then throw(((("corrupt state, rebalancedPriceId=" + toString(rebalancedPriceId)) + ", request price id=") + toString(priceId)))
126+            else if ((priceId > rebalancedPriceId))
127+                then throw("can't dequeue, too early, rebalance first")
128+                else if ((action == ISSUE))
129+                    then {
130+                        let addedCollateral = (amt - feeSize)
131+                        if ((token == BULL))
132+                            then {
133+                                let addedToCirculation = fraction(bullCirc, addedCollateral, bullCol)
134+                                let items = [DataEntry(bullCollateralKey, (bullCol + addedCollateral)), DataEntry(bullCirculationKey, (bullCirc + addedToCirculation)), DataEntry(headPointerKey, next), collectFee, decreaseQueueSize]
135+                                ScriptResult(WriteSet(if (isLastElement)
136+                                    then overwriteTail :: items
137+                                    else items), TransferSet([ScriptTransfer(invoker, addedToCirculation, fromBase58String(BULL))]))
138+                                }
139+                            else if ((token == BEAR))
140+                                then {
141+                                    let addedToCirculation = fraction(bearCirc, addedCollateral, bearCol)
142+                                    let items = [DataEntry(bearCollateralKey, (bearCol + addedCollateral)), DataEntry(bearCirculationKey, (bearCirc + addedToCirculation)), DataEntry(headPointerKey, next), collectFee, decreaseQueueSize]
143+                                    ScriptResult(WriteSet(if (isLastElement)
144+                                        then overwriteTail :: items
145+                                        else items), TransferSet([ScriptTransfer(invoker, addedToCirculation, fromBase58String(BEAR))]))
146+                                    }
147+                                else throw("bad token id")
148+                        }
149+                    else if ((action == REDEEM))
150+                        then {
151+                            let removedTokens = amt
152+                            if ((token == BULL))
153+                                then {
154+                                    let removedCollateral = fraction(bullCol, removedTokens, bullCirc)
155+                                    let payout = if ((removedCollateral > feeSize))
156+                                        then (removedCollateral - feeSize)
157+                                        else 0
158+                                    let items = [DataEntry(bullCollateralKey, (bullCol - removedCollateral)), DataEntry(bullCirculationKey, (bullCirc - removedTokens)), DataEntry(headPointerKey, next), collectFee, decreaseQueueSize]
159+                                    ScriptResult(WriteSet(if (isLastElement)
160+                                        then overwriteTail :: items
161+                                        else items), TransferSet([ScriptTransfer(invoker, payout, fromBase58String(mainToken))]))
162+                                    }
163+                                else if ((token == BEAR))
164+                                    then {
165+                                        let removedCollateral = fraction(bearCol, removedTokens, bearCirc)
166+                                        let payout = if ((removedCollateral > feeSize))
167+                                            then (removedCollateral - feeSize)
168+                                            else 0
169+                                        let items = [DataEntry(bearCollateralKey, (bearCol - removedCollateral)), DataEntry(bearCirculationKey, (bearCirc - removedTokens)), DataEntry(headPointerKey, next), collectFee, decreaseQueueSize]
170+                                        ScriptResult(WriteSet(if (isLastElement)
171+                                            then overwriteTail :: items
172+                                            else items), TransferSet([ScriptTransfer(invoker, payout, fromBase58String(mainToken))]))
173+                                        }
174+                                    else throw("bad token id")
175+                            }
176+                        else throw(("bad action: " + action))
177+        }
178+
179+
180+func rebalance () = {
181+    func LV (v,p0,p1) =     {
182+        let denom = 100
183+        let pmax = ((if ((p1 > p0))
184+            then p1
185+            else p0) / denom)
186+        let pmin = ((if ((p0 > p1))
187+            then p1
188+            else p0) / denom)
189+        let a = (pmin * pmin)
190+        let b = (((9 * pmax) * pmax) - ((15 * pmax) * pmin))
191+        fraction(v, ((6 * a) + b), ((7 * a) + b))
192+        }
193+
194+    let settledPriceId = valueOrErrorMessage(getInteger(this, lastRebalancePriceIdKey), "inconsistent data")
195+    let unsettledPriceId = (settledPriceId + 1)
196+    let settledPrice = valueOrErrorMessage(getInteger(oracle, toString(settledPriceId)), "bad oracle data for sellted price")
197+    let nextPrice = valueOrErrorMessage(getInteger(oracle, toString(unsettledPriceId)), "no next price")
198+    let minVol = if ((bearCol > bullCol))
199+        then bullCol
200+        else bearCol
201+    let redist = LV(minVol, settledPrice, nextPrice)
202+    if ((nextPrice > settledPrice))
203+        then WriteSet([DataEntry(bullCollateralKey, (bullCol + redist)), DataEntry(bearCollateralKey, (bearCol - redist)), DataEntry(lastRebalancePriceIdKey, unsettledPriceId)])
204+        else if ((settledPrice > nextPrice))
205+            then WriteSet([DataEntry(bullCollateralKey, (bullCol - redist)), DataEntry(bearCollateralKey, (bearCol + redist)), DataEntry(lastRebalancePriceIdKey, unsettledPriceId)])
206+            else WriteSet([DataEntry(lastRebalancePriceIdKey, unsettledPriceId)])
207+    }
208+
209+
210+@Callable(inv)
211+func init (bullId,bearId,mainTokenId,oraclePK,fee) = if (isDefined(getString(this, BULLKey)))
212+    then throw("already initialized")
213+    else if (!(isDefined(inv.payment)))
214+        then throw("neutrino payment required")
215+        else if ((toBase58String(valueOrErrorMessage(value(inv.payment).assetId, "neutrino payment required")) != mainTokenId))
216+            then throw("payment not in neutrino")
217+            else {
218+                let totalOwnedMainToken = value(inv.payment).amount
219+                let bulls = (totalOwnedMainToken / 2)
220+                let bears = (totalOwnedMainToken - bulls)
221+                if (if ((bears == 0))
222+                    then true
223+                    else (bulls == 0))
224+                    then throw("can't init balances")
225+                    else {
226+                        let oracleCurrentPriceId = valueOrErrorMessage(getInteger(valueOrErrorMessage(addressFromPublicKey(fromBase58String(oraclePK)), "bad oracle address"), oracleCurrentPriceIdKey), "can't find oracle price id")
227+                        ScriptResult(WriteSet([DataEntry(BULLKey, bullId), DataEntry(BEARKey, bearId), DataEntry(mainTokenKey, mainTokenId), DataEntry(oraclePKKey, oraclePK), DataEntry(bullCollateralKey, bulls), DataEntry(bearCollateralKey, bears), DataEntry(bullCirculationKey, bulls), DataEntry(bearCirculationKey, bears), DataEntry(lastRebalancePriceIdKey, oracleCurrentPriceId), DataEntry(feeSizeKey, fee)]), TransferSet([ScriptTransfer(inv.caller, bulls, fromBase58String(bullId)), ScriptTransfer(inv.caller, bears, fromBase58String(bearId))]))
228+                        }
229+                }
230+
231+
232+
233+@Callable(i)
234+func setFeeSize (f) = if ((i.caller != this))
235+    then throw("only self can change fee size")
236+    else WriteSet([DataEntry(feeSizeKey, f)])
237+
238+
239+
240+@Callable(inv)
241+func requestRedeem () = if ((inv.caller == this))
242+    then throw("can't do")
243+    else {
244+        func errorMessage (got) =         throw(((((("only BULL(" + BULL) + ") or BEAR(") + BEAR) + ") tokens are accepted, received: ") + got))
245+
246+        if (!(isDefined(inv.payment)))
247+            then errorMessage("no attached payment")
248+            else {
249+                let assetId = toBase58String(valueOrErrorMessage(value(inv.payment).assetId, "waves are not accepted here"))
250+                if (if ((assetId != BEAR))
251+                    then (assetId != BULL)
252+                    else false)
253+                    then errorMessage(assetId)
254+                    else enqueue(toBase58String(inv.transactionId), REDEEM, value(inv.payment).amount, assetId, (oraclePriceId + 1), toString(inv.caller))
255+                }
256+        }
257+
258+
259+
260+@Callable(inv)
261+func requestIssue (tokenId) = if ((inv.caller == this))
262+    then throw("can't do")
263+    else {
264+        let errorMessage = throw((((((("only BULL(" + BULL) + ") or BEAR(") + BEAR) + ") tokens are available in exchange for USDN(") + mainToken) + ")"))
265+        if (if ((tokenId != BULL))
266+            then (tokenId != BEAR)
267+            else false)
268+            then errorMessage
269+            else if (!(isDefined(inv.payment)))
270+                then errorMessage
271+                else if ((value(inv.payment).assetId != fromBase58String(mainToken)))
272+                    then errorMessage
273+                    else enqueue(toBase58String(inv.transactionId), ISSUE, value(inv.payment).amount, tokenId, (oraclePriceId + 1), toString(inv.caller))
274+        }
275+
276+
277+
278+@Callable(inv)
279+func settle () = {
280+    let queueEmpty = (headPointer == "")
281+    let canRebalance = (oraclePriceId > rebalancedPriceId)
282+    if (queueEmpty)
283+        then if (canRebalance)
284+            then rebalance()
285+            else throw("[OK] all done, carry on")
286+        else {
287+            let data = split(valueOrErrorMessage(getString(this, headPointer), "bad head pointer"), "|")
288+            let priceId = parseIntValue(data[3])
289+            if ((priceId > rebalancedPriceId))
290+                then if (canRebalance)
291+                    then rebalance()
292+                    else throw("[OK] need to wait")
293+                else if ((priceId == rebalancedPriceId))
294+                    then dequeue()
295+                    else throw("corrupt data, future price id already rebalanced")
296+            }
297+    }
298+
299+
github/deemru/w8io/3ef1775 
35.93 ms ◑