2022.01.24 20:04 [2958411] smart account 3PJKKT7gsWiPBJj11gkF3Xv7gKt8s2WPdTr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HFdJT3jqfASFZDyAXU274My3wwRnwpq3TRH2kcCzvMTw",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1643043918913,
    "version": 1,
    "sender": "3PJKKT7gsWiPBJj11gkF3Xv7gKt8s2WPdTr",
    "senderPublicKey": "FAqqjX7JqvqLh2QGTR3ziyCnSsWSoj9gVo4uPahtmhKr",
    "proofs": [
        "5HtJLqmVa7FzrmQoySXW7zoHzibzuTD4u92tc3GrWUqeumhtoXkEdJWRUkciZ9UheGHAKp9x3gYBrMd3WXebXf4Q"
    ],
    "script": "base64:AAIFAAAAAAAAACMIAhIECgIICBIAEgMKAQgSABIDCgEIEgUKAwgIARIECgIICAAAACoBAAAABGdldEkAAAABAAAAA2tleQkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkBAAAABGdldFMAAAABAAAAA2tleQkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkBAAAABWdldFNWAAAAAQAAAANrZXkJAQAAAAV2YWx1ZQAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AQAAAAd0aHJvd0lmAAAAAgAAAAljb25kaXRpb24AAAAFZXJyb3IDBQAAAAljb25kaXRpb24JAAACAAAAAQUAAAAFZXJyb3IGAQAAAAh3cml0ZUludAAAAAIAAAADa2V5AAAABXZhbHVlAwkAAGYAAAACAAAAAAAAAAAABQAAAAV2YWx1ZQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAABd3cml0aW5nIG5lZ2F0aXZlIHZhbHVlIAkAAaQAAAABBQAAAAV2YWx1ZQIAAAAJIGZvciBrZXkgBQAAAANrZXkJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAANrZXkFAAAABXZhbHVlAQAAAAhjaGFuZ2VCeQAAAAIAAAADa2V5AAAABXZhbHVlCQEAAAAId3JpdGVJbnQAAAACBQAAAANrZXkJAABkAAAAAgkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkBAAAABGdldEkAAAABBQAAAANrZXkAAAAAAAAAAAAFAAAABXZhbHVlAQAAAAxmcmFjdGlvbkNlaWwAAAADAAAABXZhbHVlAAAACW51bWVyYXRvcgAAAAtkZW5vbWluYXRvcgQAAAAEY2FuZAkAAGsAAAADBQAAAAV2YWx1ZQUAAAAJbnVtZXJhdG9yBQAAAAtkZW5vbWluYXRvcgQAAAABRAAAAAAAtQTzMwQAAAAFZXhhY3QJAAAAAAAAAgkAAGoAAAACCQAAaAAAAAIJAABqAAAAAgUAAAAEY2FuZAUAAAABRAkAAGoAAAACBQAAAAtkZW5vbWluYXRvcgUAAAABRAUAAAABRAkAAGoAAAACCQAAaAAAAAIJAABqAAAAAgUAAAAFdmFsdWUFAAAAAUQJAABqAAAAAgUAAAAJbnVtZXJhdG9yBQAAAAFEBQAAAAFEAwUAAAAFZXhhY3QFAAAABGNhbmQJAABkAAAAAgUAAAAEY2FuZAAAAAAAAAAAAQEAAAAQd3JpdGVDb25zdFN0cmluZwAAAAIAAAADa2V5AAAABXZhbHVlAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAAA2tleQUAAAAFdmFsdWUJAAACAAAAAQkAASwAAAACAgAAABVhbHJlYWR5IGluaXRpYWxpemVkOiAFAAAAA2tleQAAAAASY29uZmlnQWRkcmVzc1N0b3JlAgAAAA1jb25maWdBZGRyZXNzAAAAAAtvcmFjbGVTdG9yZQIAAAANb3JhY2xlQWRkcmVzcwEAAAAScmVzZXJ2ZUZhY3RvclN0b3JlAAAAAQAAAAdhc3NldElkCQABLAAAAAIFAAAAB2Fzc2V0SWQCAAAADl9SZXNlcnZlRmFjdG9yAAAAAAltYWluU3RvcmUCAAAABG1haW4AAAAADWNvbmZpZ0FkZHJlc3MJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABCYAAAABCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAQAAAARnZXRTAAAAAQUAAAASY29uZmlnQWRkcmVzc1N0b3JlAgAAABBubyBjb25maWdBZGRyZXNzAgAAABZpbnZhbGlkIGNvbmZpZyBhZGRyZXNzAQAAAA1yZXNlcnZlRmFjdG9yAAAAAQAAAAdhc3NldElkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAANY29uZmlnQWRkcmVzcwkBAAAAEnJlc2VydmVGYWN0b3JTdG9yZQAAAAEFAAAAB2Fzc2V0SWQCAAAAEG5vIHJlc2VydmVGYWN0b3IBAAAACmdldEJhbGFuY2UAAAACAAAADmFkZHJlc3NPckFsaWFzAAAAB2Fzc2V0SWQEAAAAByRtYXRjaDAFAAAAB2Fzc2V0SWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAmJ2BQAAAAckbWF0Y2gwCQAD8AAAAAIFAAAADmFkZHJlc3NPckFsaWFzBQAAAAJidgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAQAAAABdQUAAAAHJG1hdGNoMAgJAAPvAAAAAQUAAAAOYWRkcmVzc09yQWxpYXMAAAAJYXZhaWxhYmxlCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAQAAAAlvcEFsbG93ZWQAAAACAAAAB2Fzc2V0SWQAAAACb3AEAAAAByRtYXRjaDAJAAP8AAAABAUAAAANY29uZmlnQWRkcmVzcwIAAAAJb3BBbGxvd2VkCQAETAAAAAIFAAAAB2Fzc2V0SWQJAARMAAAAAgUAAAACb3AFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gwAwUAAAABYgYJAAACAAAAAQIAAAALbm90IGFsbG93ZWQJAAACAAAAAQIAAAAhb3BBbGxvd2VkOiB1bmV4cGVjdGVkIHJlc3VsdCB0eXBlAQAAAAhtYWluT25seQAAAAEAAAABaQMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAA1jb25maWdBZGRyZXNzBQAAAAltYWluU3RvcmUCAAAAEW5vIG1haW4gaW4gY29uZmlnAgAAABRpbnZhbGlkIG1haW4gYWRkcmVzcwkAAAIAAAABAgAAABBvbmx5IG1haW4gY2FuIGRvBgAAAAASbWF5YmVPcmFjbGVBZGRyZXNzBAAAAAckbWF0Y2gwCQEAAAAEZ2V0UwAAAAEFAAAAC29yYWNsZVN0b3JlAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAJAAQmAAAAAQUAAAABcwUAAAAEdW5pdAEAAAALb3JhY2xlUHJpY2UAAAABAAAAB2Fzc2V0SWQEAAAAByRtYXRjaDAJAAP8AAAABAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACBQAAABJtYXliZU9yYWNsZUFkZHJlc3MCAAAACW5vIG9yYWNsZQIAAAAFcHJpY2UJAARMAAAAAgUAAAAHYXNzZXRJZAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABaQUAAAAHJG1hdGNoMAUAAAABaQkAAAIAAAABAgAAAA9iYWQgb3JhY2xlIGRhdGEAAAAABkhFSUdIVAUAAAAGaGVpZ2h0AAAAAAZhc3NldHMJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQdAAAAAgUAAAANY29uZmlnQWRkcmVzcwIAAAAYcHJvdGVjdGVkX3Jlc2VydmVfYXNzZXRzAgAAAAAAAAAAC2Fzc2V0c0FycmF5AwkAAAAAAAACBQAAAAZhc3NldHMCAAAAAAUAAAADbmlsCQAEtQAAAAIFAAAABmFzc2V0cwIAAAABfAEAAAARdG90YWxEZXBvc2l0U3RvcmUAAAABAAAAB2Fzc2V0SWQJAAEsAAAAAgIAAAAMdG90YWxTdXBwbHlfBQAAAAdhc3NldElkAQAAABB0b3RhbFNoYXJlc1N0b3JlAAAAAQAAAAdhc3NldElkCQABLAAAAAICAAAADHRvdGFsU2hhcmVzXwUAAAAHYXNzZXRJZAEAAAAPdXNlclNoYXJlc1N0b3JlAAAAAgAAAAdhc3NldElkAAAABHVzZXIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAC3VzZXJTaGFyZXNfBQAAAAdhc3NldElkAgAAAAFfBQAAAAR1c2VyAQAAABFoYXNQcm90ZWN0ZWRTdG9yZQAAAAEAAAAEdXNlcgkAASwAAAACAgAAABVwcm90ZWN0ZWRfY29sbGF0ZXJhbF8FAAAABHVzZXIBAAAADHRvdGFsRGVwb3NpdAAAAAEAAAAHYXNzZXRJZAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABB8AAAABCQEAAAARdG90YWxEZXBvc2l0U3RvcmUAAAABBQAAAAdhc3NldElkAAAAAAAAAAAAAQAAAAt0b3RhbFNoYXJlcwAAAAEAAAAHYXNzZXRJZAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABB8AAAABCQEAAAAQdG90YWxTaGFyZXNTdG9yZQAAAAEFAAAAB2Fzc2V0SWQAAAAAAAAAAAABAAAACnVzZXJTaGFyZXMAAAACAAAAB2Fzc2V0SWQAAAAEdXNlcgkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABB8AAAABCQEAAAAPdXNlclNoYXJlc1N0b3JlAAAAAgUAAAAHYXNzZXRJZAUAAAAEdXNlcgAAAAAAAAAAAAEAAAALdXNlckRlcG9zaXQAAAACAAAAB2Fzc2V0SWQAAAAEdXNlcgQAAAACdHMJAQAAAAt0b3RhbFNoYXJlcwAAAAEFAAAAB2Fzc2V0SWQEAAAAAnRkCQEAAAAMdG90YWxEZXBvc2l0AAAAAQUAAAAHYXNzZXRJZAQAAAACdXMJAQAAAAp1c2VyU2hhcmVzAAAAAgUAAAAHYXNzZXRJZAUAAAAEdXNlcgMJAAAAAAAAAgUAAAACdHMAAAAAAAAAAAAAAAAAAAAAAAAJAABrAAAAAwUAAAACdGQFAAAAAnVzBQAAAAJ0cwEAAAARaGFzUmVndWxhckRlcG9zaXQAAAABAAAABHVzZXIEAAAACHJlc2VydmVzCQAEtQAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAARQGV4dHJOYXRpdmUoMTA1MykAAAACBQAAAA1jb25maWdBZGRyZXNzBQAAAAltYWluU3RvcmUCAAAACHJlc2VydmVzAgAAACRwcm90ZWN0ZWQ6IG5vIHJlc2VydmVzIGZvdW5kIGluIG1haW4CAAAAAXwKAQAAABFhc1VzZXJCYWxhbmNlRGF0YQAAAAEAAAAFdmFsdWUEAAAAByRtYXRjaDAFAAAABXZhbHVlAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAACIoSW50LCBJbnQsIEludCwgSW50LCBJbnQsIEJvb2xlYW4pBAAAAAF4BQAAAAckbWF0Y2gwBQAAAAF4BAAAAAF0BQAAAAckbWF0Y2gwCQAAAgAAAAECAAAAIndyb25nIHR5cGUsIGV4cGVjdGVkOiBJbnQ1JkJvb2xlYW4KAQAAAARmb2xkAAAAAgAAAANhY2MAAAAHcmVzZXJ2ZQQAAAADdWJkCQEAAAARYXNVc2VyQmFsYW5jZURhdGEAAAABCQAD/AAAAAQJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAAB3Jlc2VydmUCAAAAC3VzZXJCYWxhbmNlCQAETAAAAAIFAAAABHVzZXIFAAAAA25pbAUAAAADbmlsAwkAAGYAAAACCAUAAAADdWJkAAAAAl8xAAAAAAAAAAAACQAAAgAAAAECAAAAKGNhbid0IGhhdmUgcHJvdGVjdGVkIHdoZW4gcmVndWxhciBleGlzdHMHCgAAAAACJGwFAAAACHJlc2VydmVzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAcKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAARmb2xkAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDcJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAQAAAAl1c2VyU3RhdGUAAAABAAAABHVzZXIKAQAAAARmb2xkAAAAAgAAAANhY2MAAAAHYXNzZXRJZAkABE4AAAACBQAAAANhY2MJAARMAAAAAgkABRQAAAACBQAAAAdhc3NldElkCQEAAAALdXNlckRlcG9zaXQAAAACBQAAAAdhc3NldElkBQAAAAR1c2VyBQAAAANuaWwKAAAAAAIkbAUAAAALYXNzZXRzQXJyYXkKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAARmb2xkAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDcJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAQAAAAJicAAAAAEAAAAEdXNlcgQAAAALZmFjdG9yc0Jhc2UAAAAAAAAAA+gKAQAAABBjb2xsYXRlcmFsRmFjdG9yAAAAAQAAAAdhc3NldElkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAANY29uZmlnQWRkcmVzcwkAASwAAAACBQAAAAdhc3NldElkAgAAABFfQ29sbGF0ZXJhbEZhY3RvcgIAAAAdbm8gQ29sbGF0ZXJhbEZhY3RvciBpbiBjb25maWcKAQAAAAVwb3cxMAAAAAEAAAABbgMJAAAAAAAAAgUAAAABbgAAAAAAAAAABgAAAAAAAA9CQAMJAAAAAAAAAgUAAAABbgAAAAAAAAAACAAAAAAABfXhAAkAAAIAAAABCQABLAAAAAICAAAADmJhZCBkZWNpbWFsczogCQABpAAAAAEFAAAAAW4KAQAAAA1hc3NldERlY2ltYWxzAAAAAQAAAAdhc3NldElkAwkAAAAAAAACBQAAAAdhc3NldElkAgAAAAVXQVZFUwAAAAAAAAAACAgJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkAA+wAAAABCQACWQAAAAEFAAAAB2Fzc2V0SWQCAAAACWJhZCBhc3NldAAAAAhkZWNpbWFscwoBAAAACmFzc2V0VG9Vc2QAAAACAAAAB2Fzc2V0SWQAAAAGYW1vdW50CQAAawAAAAMFAAAABmFtb3VudAkBAAAAC29yYWNsZVByaWNlAAAAAQUAAAAHYXNzZXRJZAkBAAAABXBvdzEwAAAAAQkBAAAADWFzc2V0RGVjaW1hbHMAAAABBQAAAAdhc3NldElkCgEAAAAEZm9sZAAAAAIAAAADYWNjAAAABGRhdGEJAABkAAAAAgUAAAADYWNjBAAAAAskdDA1MTc5NTIwNAUAAAAEZGF0YQQAAAAHYXNzZXRJZAgFAAAACyR0MDUxNzk1MjA0AAAAAl8xBAAAAANhbXQIBQAAAAskdDA1MTc5NTIwNAAAAAJfMgkAAGsAAAADCQEAAAAKYXNzZXRUb1VzZAAAAAIFAAAAB2Fzc2V0SWQFAAAAA2FtdAkBAAAAEGNvbGxhdGVyYWxGYWN0b3IAAAABBQAAAAdhc3NldElkBQAAAAtmYWN0b3JzQmFzZQoAAAAAAiRsCQEAAAAJdXNlclN0YXRlAAAAAQUAAAAEdXNlcgoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAAAAAAAAAAAAAKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAARmb2xkAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDcJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAQAAAAphZHZpc2VVc2VyAAAAAQAAAAR1c2VyBAAAAAtib3Jyb3dQb3dlcgkBAAAAAmJwAAAAAQUAAAAEdXNlcgkAASwAAAACCQABLAAAAAICAAAADmJvcnJvd1Bvd2VyID0gCQABpAAAAAEFAAAAC2JvcnJvd1Bvd2VyCgEAAAAEZm9sZAAAAAIAAAADYWNjAAAABHBhaXIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAADYWNjAgAAAAIsIAgFAAAABHBhaXIAAAACXzECAAAAAyA9IAkAAaQAAAABCAUAAAAEcGFpcgAAAAJfMgoAAAAAAiRsCQEAAAAJdXNlclN0YXRlAAAAAQUAAAAEdXNlcgoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzACAAAAAAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAABGZvbGQAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNwkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcBAAAADnNoYXJlc1RvQW1vdW50AAAAAgAAAAdhc3NldElkAAAABnNoYXJlcwQAAAACdHMJAQAAAAt0b3RhbFNoYXJlcwAAAAEFAAAAB2Fzc2V0SWQEAAAAAnRkCQEAAAAMdG90YWxEZXBvc2l0AAAAAQUAAAAHYXNzZXRJZAMDCQAAAAAAAAIFAAAAAnRzAAAAAAAAAAAABgkAAAAAAAACBQAAAAJ0ZAAAAAAAAAAAAAUAAAAGc2hhcmVzCQAAawAAAAMFAAAABnNoYXJlcwUAAAACdGQFAAAAAnRzAQAAAA5hbW91bnRUb1NoYXJlcwAAAAMAAAAHYXNzZXRJZAAAAANhbXQAAAAEY2VpbAQAAAACdHMJAQAAAAt0b3RhbFNoYXJlcwAAAAEFAAAAB2Fzc2V0SWQEAAAAAnRkCQEAAAAMdG90YWxEZXBvc2l0AAAAAQUAAAAHYXNzZXRJZAMDCQAAAAAAAAIFAAAAAnRzAAAAAAAAAAAABgkAAAAAAAACBQAAAAJ0ZAAAAAAAAAAAAAUAAAADYW10AwUAAAAEY2VpbAkBAAAADGZyYWN0aW9uQ2VpbAAAAAMFAAAAA2FtdAUAAAACdHMFAAAAAnRkCQAAawAAAAMFAAAAA2FtdAUAAAACdHMFAAAAAnRkAQAAAA92YWxpZGF0ZUFzc2V0SWQAAAABAAAAB2Fzc2V0SWQJAQAAAAd0aHJvd0lmAAAAAgkBAAAAASEAAAABCQEAAAAIY29udGFpbnMAAAACBQAAAAZhc3NldHMFAAAAB2Fzc2V0SWQCAAAAFWFzc2V0SWQgbm90IHBlcm1pdHRlZAEAAAAKYXNzZXRJZFN0cgAAAAEAAAADYWlkBAAAAAckbWF0Y2gwBQAAAANhaWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAmJ2BQAAAAckbWF0Y2gwCQACWAAAAAEFAAAAAmJ2AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAARVbml0BAAAAAF1BQAAAAckbWF0Y2gwAgAAAAVXQVZFUwkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgEAAAAMYXNzZXRTdHJUb0lkAAAAAQAAAAdhc3NldElkAwkAAAAAAAACBQAAAAdhc3NldElkAgAAAAVXQVZFUwUAAAAEdW5pdAkAAlkAAAABBQAAAAdhc3NldElkAQAAAA1zdGFraW5nQWN0aW9uAAAAAgAAAAdhc3NldElkAAAADWtlZXBBdEJhbGFuY2UEAAAADWFjdHVhbEJhbGFuY2UDCQAAAAAAAAIFAAAAB2Fzc2V0SWQCAAAABVdBVkVTCAkAA+8AAAABBQAAAAR0aGlzAAAACWF2YWlsYWJsZQkAA/AAAAACBQAAAAR0aGlzCQACWQAAAAEFAAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAADWFjdHVhbEJhbGFuY2UFAAAADWtlZXBBdEJhbGFuY2UFAAAABHVuaXQEAAAADnN0YWtpbmdFbmFibGVkCQEAAAALdmFsdWVPckVsc2UAAAACCQAEGwAAAAIFAAAADWNvbmZpZ0FkZHJlc3MJAAEsAAAAAgIAAAAacHJvdGVjdGVkX3N0YWtpbmdfZW5hYmxlZF8FAAAAB2Fzc2V0SWQHAwkBAAAAASEAAAABBQAAAA5zdGFraW5nRW5hYmxlZAUAAAAEdW5pdAQAAAAOc3Rha2luZ0FkZHJlc3MEAAAABGFkZHIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAA1jb25maWdBZGRyZXNzCQABLAAAAAICAAAAGXByb3RlY3RlZF9zdGFraW5nX2NvbmZpZ18FAAAAB2Fzc2V0SWQJAAEsAAAAAgIAAAAXbm8gc3Rha2luZyBhZGRyZXNzIGZvciAFAAAAB2Fzc2V0SWQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABCYAAAABBQAAAARhZGRyCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAACpwcm90ZWN0ZWRSZXNlcnZlOiBiYWQgc3Rha2luZyBhZGRyZXNzIGZvciAFAAAAB2Fzc2V0SWQCAAAAAjogBQAAAARhZGRyAwkAAGYAAAACBQAAAA1hY3R1YWxCYWxhbmNlBQAAAA1rZWVwQXRCYWxhbmNlCQAD/AAAAAQFAAAADnN0YWtpbmdBZGRyZXNzAgAAAANwdXQFAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgkBAAAADGFzc2V0U3RyVG9JZAAAAAEFAAAAB2Fzc2V0SWQJAABlAAAAAgUAAAANYWN0dWFsQmFsYW5jZQUAAAANa2VlcEF0QmFsYW5jZQUAAAADbmlsCQAD/AAAAAQFAAAADnN0YWtpbmdBZGRyZXNzAgAAAANnZXQJAARMAAAAAgkAAGUAAAACBQAAAA1rZWVwQXRCYWxhbmNlBQAAAA1hY3R1YWxCYWxhbmNlBQAAAANuaWwFAAAAA25pbAEAAAAQd2l0aGRyYXdJbnRlcm5hbAAAAAQAAAAEZnJvbQAAAAJ0bwAAAAdhc3NldElkAAAABmFtb3VudAQAAAAGY2hlY2tzCQEAAAAPdmFsaWRhdGVBc3NldElkAAAAAQUAAAAHYXNzZXRJZAMJAAAAAAAAAgUAAAAGY2hlY2tzBQAAAAZjaGVja3MEAAAACyR0MDc1MzU3ODY3AwkAAAAAAAACBQAAAAZhbW91bnQA//////////8EAAAACnJlYWxTaGFyZXMJAQAAAAp1c2VyU2hhcmVzAAAAAgUAAAAHYXNzZXRJZAUAAAAEZnJvbQQAAAAKcmVhbEFtb3VudAkBAAAADnNoYXJlc1RvQW1vdW50AAAAAgUAAAAHYXNzZXRJZAUAAAAKcmVhbFNoYXJlcwkABRQAAAACBQAAAApyZWFsU2hhcmVzBQAAAApyZWFsQW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAAmcHJvdGVjdGVkLXJlc2VydmU6IG5vbi1wb3NpdGl2ZSBhbW91bnQJAAUUAAAAAgkBAAAADmFtb3VudFRvU2hhcmVzAAAAAwUAAAAHYXNzZXRJZAUAAAAGYW1vdW50BgUAAAAGYW1vdW50BAAAAAh3ZFNoYXJlcwgFAAAACyR0MDc1MzU3ODY3AAAAAl8xBAAAAAh3ZEFtb3VudAgFAAAACyR0MDc1MzU3ODY3AAAAAl8yBAAAAAdzdGFraW5nCQEAAAANc3Rha2luZ0FjdGlvbgAAAAIFAAAAB2Fzc2V0SWQFAAAACHdkQW1vdW50AwkAAAAAAAACBQAAAAdzdGFraW5nBQAAAAdzdGFraW5nCQAFFAAAAAIJAARMAAAAAgkBAAAACGNoYW5nZUJ5AAAAAgkBAAAAEXRvdGFsRGVwb3NpdFN0b3JlAAAAAQUAAAAHYXNzZXRJZAkBAAAAAS0AAAABBQAAAAh3ZEFtb3VudAkABEwAAAACCQEAAAAIY2hhbmdlQnkAAAACCQEAAAAQdG90YWxTaGFyZXNTdG9yZQAAAAEFAAAAB2Fzc2V0SWQJAQAAAAEtAAAAAQUAAAAId2RTaGFyZXMJAARMAAAAAgkBAAAACGNoYW5nZUJ5AAAAAgkBAAAAD3VzZXJTaGFyZXNTdG9yZQAAAAIFAAAAB2Fzc2V0SWQFAAAABGZyb20JAQAAAAEtAAAAAQUAAAAId2RTaGFyZXMJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQUAAAACdG8FAAAACHdkQW1vdW50CQEAAAAMYXNzZXRTdHJUb0lkAAAAAQUAAAAHYXNzZXRJZAUAAAADbmlsBQAAAAh3ZEFtb3VudAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQAAAA5zdXBwbHlJbnRlcm5hbAAAAAIAAAAEdXNlcgAAAAFpAwkBAAAAEWhhc1JlZ3VsYXJEZXBvc2l0AAAAAQUAAAAEdXNlcgkAAAIAAAABAgAAAE1wcm90ZWN0ZWQtcmVzZXJ2ZTogY2FuJ3QgaGF2ZSBwcm90ZWN0ZWQgYW5kIHJlZ3VsYXIgZGVwb3NpdHMgYXQgdGhlIHNhbWUgdGltZQMJAQAAAAIhPQAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAEJAAACAAAAAQIAAAAqcHJvdGVjdGVkLXJlc2VydmU6IHNpbmdsZSBwYXltZW50IHJlcXVpcmVkBAAAAAdhc3NldElkCQEAAAAKYXNzZXRJZFN0cgAAAAEICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAABmFtb3VudAgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AwkAAAAAAAACBQAAAAZhbW91bnQAAAAAAAAAAAAFAAAAA25pbAQAAAAGY2hlY2tzAwkBAAAAD3ZhbGlkYXRlQXNzZXRJZAAAAAEFAAAAB2Fzc2V0SWQJAQAAAAlvcEFsbG93ZWQAAAACBQAAAAdhc3NldElkAgAAABtzdXBwbHlfcHJvdGVjdGVkX2NvbGxhdGVyYWwHAwkAAAAAAAACBQAAAAZjaGVja3MFAAAABmNoZWNrcwQAAAAJbmV3U2hhcmVzCQEAAAAOYW1vdW50VG9TaGFyZXMAAAADBQAAAAdhc3NldElkBQAAAAZhbW91bnQHBAAAAAdzdGFraW5nCQEAAAANc3Rha2luZ0FjdGlvbgAAAAIFAAAAB2Fzc2V0SWQAAAAAAAAAAAADCQAAAAAAAAIFAAAAB3N0YWtpbmcFAAAAB3N0YWtpbmcJAARMAAAAAgkBAAAACGNoYW5nZUJ5AAAAAgkBAAAAEXRvdGFsRGVwb3NpdFN0b3JlAAAAAQUAAAAHYXNzZXRJZAUAAAAGYW1vdW50CQAETAAAAAIJAQAAAAhjaGFuZ2VCeQAAAAIJAQAAABB0b3RhbFNoYXJlc1N0b3JlAAAAAQUAAAAHYXNzZXRJZAUAAAAJbmV3U2hhcmVzCQAETAAAAAIJAQAAAAhjaGFuZ2VCeQAAAAIJAQAAAA91c2VyU2hhcmVzU3RvcmUAAAACBQAAAAdhc3NldElkBQAAAAR1c2VyBQAAAAluZXdTaGFyZXMJAARMAAAAAgkBAAAADEJvb2xlYW5FbnRyeQAAAAIJAQAAABFoYXNQcm90ZWN0ZWRTdG9yZQAAAAEFAAAABHVzZXIGBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAcAAAABaQEAAAAKaW5pdGlhbGl6ZQAAAAIAAAANY29uZmlnQWRkcmVzcwAAAApvcmFjbGVBZGRyCQAETAAAAAIJAQAAABB3cml0ZUNvbnN0U3RyaW5nAAAAAgUAAAASY29uZmlnQWRkcmVzc1N0b3JlBQAAAA1jb25maWdBZGRyZXNzCQAETAAAAAIJAQAAABB3cml0ZUNvbnN0U3RyaW5nAAAAAgUAAAALb3JhY2xlU3RvcmUFAAAACm9yYWNsZUFkZHIFAAAAA25pbAAAAAFpAQAAAAthZGRJbnRlcmVzdAAAAAAEAAAAB2Fzc2V0SWQJAQAAAAphc3NldElkU3RyAAAAAQgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAQAAAAGY2hlY2tzCQEAAAAPdmFsaWRhdGVBc3NldElkAAAAAQUAAAAHYXNzZXRJZAMJAAAAAAAAAgUAAAAGY2hlY2tzBQAAAAZjaGVja3MEAAAAB3N0YWtpbmcJAQAAAA1zdGFraW5nQWN0aW9uAAAAAgUAAAAHYXNzZXRJZAAAAAAAAAAAAAMJAAAAAAAAAgUAAAAHc3Rha2luZwUAAAAHc3Rha2luZwQAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAARMAAAAAgkBAAAACGNoYW5nZUJ5AAAAAgkBAAAAEXRvdGFsRGVwb3NpdFN0b3JlAAAAAQUAAAAHYXNzZXRJZAUAAAAGYW1vdW50BQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAAtib3Jyb3dQb3dlcgAAAAEAAAAEdXNlcgkABRQAAAACBQAAAANuaWwJAQAAAAJicAAAAAEFAAAABHVzZXIAAAABaQEAAAAGc3VwcGx5AAAAAAkBAAAADnN1cHBseUludGVybmFsAAAAAgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIFAAAAAWkAAAABaQEAAAAJc3VwcGx5Rm9yAAAAAQAAAAR1c2VyBAAAAAZjaGVja3MJAQAAAAhtYWluT25seQAAAAEFAAAAAWkDCQAAAAAAAAIFAAAABmNoZWNrcwUAAAAGY2hlY2tzCQEAAAAOc3VwcGx5SW50ZXJuYWwAAAACBQAAAAR1c2VyBQAAAAFpCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAAt3aXRoZHJhd0ZvcgAAAAMAAAAEdXNlcgAAAAdhc3NldElkAAAABmFtb3VudAQAAAAGY2hlY2tzAwkBAAAACG1haW5Pbmx5AAAAAQUAAAABaQkBAAAACW9wQWxsb3dlZAAAAAIFAAAAB2Fzc2V0SWQCAAAAHXdpdGhkcmF3X3Byb3RlY3RlZF9jb2xsYXRlcmFsBwMJAAAAAAAAAgUAAAAGY2hlY2tzBQAAAAZjaGVja3MJAQAAABB3aXRoZHJhd0ludGVybmFsAAAABAUAAAAEdXNlcgUAAAAEdXNlcgUAAAAHYXNzZXRJZAUAAAAGYW1vdW50CQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAA53aXRoZHJhd1RvTWFpbgAAAAIAAAAEdXNlcgAAAAdhc3NldElkBAAAAAZjaGVja3MDCQEAAAAIbWFpbk9ubHkAAAABBQAAAAFpCQEAAAAJb3BBbGxvd2VkAAAAAgUAAAAHYXNzZXRJZAIAAAAdY29sbGFwc2VfcHJvdGVjdGVkX2NvbGxhdGVyYWwHAwkAAAAAAAACBQAAAAZjaGVja3MFAAAABmNoZWNrcwkBAAAAEHdpdGhkcmF3SW50ZXJuYWwAAAAEBQAAAAR1c2VyCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgUAAAAHYXNzZXRJZAD//////////wkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAAAXtQbhg==",
    "chainId": 87,
    "height": 2958411,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: 5Eavzk8oCagrUAguJsQJghsZTdgEGRkkHHnrSg9khy43

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 5 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+func getI (key) = getInteger(this, key)
5+
6+
7+func getS (key) = getString(this, key)
8+
9+
10+func getSV (key) = value(getString(this, key))
11+
12+
13+func throwIf (condition,error) = if (condition)
14+    then throw(error)
15+    else true
16+
17+
18+func writeInt (key,value) = if ((0 > value))
19+    then throw(((("writing negative value " + toString(value)) + " for key ") + key))
20+    else IntegerEntry(key, value)
21+
22+
23+func changeBy (key,value) = writeInt(key, (valueOrElse(getI(key), 0) + value))
24+
25+
26+func fractionCeil (value,numerator,denominator) = {
27+    let cand = fraction(value, numerator, denominator)
28+    let D = 3037000499
29+    let exact = ((((cand % D) * (denominator % D)) % D) == (((value % D) * (numerator % D)) % D))
30+    if (exact)
31+        then cand
32+        else (cand + 1)
33+    }
34+
35+
36+func writeConstString (key,value) = if (!(isDefined(getString(this, key))))
37+    then StringEntry(key, value)
38+    else throw(("already initialized: " + key))
39+
40+
41+let configAddressStore = "configAddress"
42+
43+let oracleStore = "oracleAddress"
44+
45+func reserveFactorStore (assetId) = (assetId + "_ReserveFactor")
46+
47+
48+let mainStore = "main"
49+
50+let configAddress = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getS(configAddressStore), "no configAddress")), "invalid config address")
51+
52+func reserveFactor (assetId) = valueOrErrorMessage(getInteger(configAddress, reserveFactorStore(assetId)), "no reserveFactor")
53+
54+
55+func getBalance (addressOrAlias,assetId) = match assetId {
56+    case bv: ByteVector => 
57+        assetBalance(addressOrAlias, bv)
58+    case u: Unit => 
59+        wavesBalance(addressOrAlias).available
60+    case _ => 
61+        throw("Match error")
62+}
63+
64+
65+func opAllowed (assetId,op) = match invoke(configAddress, "opAllowed", [assetId, op], nil) {
66+    case b: Boolean => 
67+        if (b)
68+            then true
69+            else throw("not allowed")
70+    case _ => 
71+        throw("opAllowed: unexpected result type")
72+}
73+
74+
75+func mainOnly (i) = if ((i.caller != valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, mainStore), "no main in config")), "invalid main address")))
76+    then throw("only main can do")
77+    else true
78+
79+
80+let maybeOracleAddress = match getS(oracleStore) {
81+    case s: String => 
82+        addressFromString(s)
83+    case _ => 
84+        unit
85+}
86+
87+func oraclePrice (assetId) = match invoke(valueOrErrorMessage(maybeOracleAddress, "no oracle"), "price", [assetId], nil) {
88+    case i: Int => 
89+        i
90+    case _ => 
91+        throw("bad oracle data")
92+}
93+
94+
95+let HEIGHT = height
96+
97+let assets = valueOrElse(getString(configAddress, "protected_reserve_assets"), "")
98+
99+let assetsArray = if ((assets == ""))
100+    then nil
101+    else split(assets, "|")
102+
103+func totalDepositStore (assetId) = ("totalSupply_" + assetId)
104+
105+
106+func totalSharesStore (assetId) = ("totalShares_" + assetId)
107+
108+
109+func userSharesStore (assetId,user) = ((("userShares_" + assetId) + "_") + user)
110+
111+
112+func hasProtectedStore (user) = ("protected_collateral_" + user)
113+
114+
115+func totalDeposit (assetId) = valueOrElse(getInteger(totalDepositStore(assetId)), 0)
116+
117+
118+func totalShares (assetId) = valueOrElse(getInteger(totalSharesStore(assetId)), 0)
119+
120+
121+func userShares (assetId,user) = valueOrElse(getInteger(userSharesStore(assetId, user)), 0)
122+
123+
124+func userDeposit (assetId,user) = {
125+    let ts = totalShares(assetId)
126+    let td = totalDeposit(assetId)
127+    let us = userShares(assetId, user)
128+    if ((ts == 0))
129+        then 0
130+        else fraction(td, us, ts)
131+    }
132+
133+
134+func hasRegularDeposit (user) = {
135+    let reserves = split(valueOrErrorMessage(getString(addressFromStringValue(getStringValue(configAddress, mainStore)), "reserves"), "protected: no reserves found in main"), "|")
136+    func asUserBalanceData (value) =         match value {
137+        case x: (Int, Int, Int, Int, Int, Boolean) => 
138+            x
139+        case t => 
140+            throw("wrong type, expected: Int5&Boolean")
141+    }
142+
143+    func fold (acc,reserve) =     {
144+        let ubd = asUserBalanceData(invoke(addressFromStringValue(reserve), "userBalance", [user], nil))
145+        if ((ubd._1 > 0))
146+            then throw("can't have protected when regular exists")
147+            else false
148+        }
149+
150+    let $l = reserves
151+    let $s = size($l)
152+    let $acc0 = false
153+    func $f0_1 ($a,$i) =     if (($i >= $s))
154+        then $a
155+        else fold($a, $l[$i])
156+
157+    func $f0_2 ($a,$i) =     if (($i >= $s))
158+        then $a
159+        else throw("List size exceeds 7")
160+
161+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
162+    }
163+
164+
165+func userState (user) = {
166+    func fold (acc,assetId) =     (acc ++ [$Tuple2(assetId, userDeposit(assetId, user))])
167+
168+    let $l = assetsArray
169+    let $s = size($l)
170+    let $acc0 = nil
171+    func $f0_1 ($a,$i) =     if (($i >= $s))
172+        then $a
173+        else fold($a, $l[$i])
174+
175+    func $f0_2 ($a,$i) =     if (($i >= $s))
176+        then $a
177+        else throw("List size exceeds 7")
178+
179+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
180+    }
181+
182+
183+func bp (user) = {
184+    let factorsBase = 1000
185+    func collateralFactor (assetId) =     valueOrErrorMessage(getInteger(configAddress, (assetId + "_CollateralFactor")), "no CollateralFactor in config")
186+
187+    func pow10 (n) =     if ((n == 6))
188+        then 1000000
189+        else if ((n == 8))
190+            then 100000000
191+            else throw(("bad decimals: " + toString(n)))
192+
193+    func assetDecimals (assetId) =     if ((assetId == "WAVES"))
194+        then 8
195+        else valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "bad asset").decimals
196+
197+    func assetToUsd (assetId,amount) =     fraction(amount, oraclePrice(assetId), pow10(assetDecimals(assetId)))
198+
199+    func fold (acc,data) =     (acc + {
200+        let $t051795204 = data
201+        let assetId = $t051795204._1
202+        let amt = $t051795204._2
203+        fraction(assetToUsd(assetId, amt), collateralFactor(assetId), factorsBase)
204+        })
205+
206+    let $l = userState(user)
207+    let $s = size($l)
208+    let $acc0 = 0
209+    func $f0_1 ($a,$i) =     if (($i >= $s))
210+        then $a
211+        else fold($a, $l[$i])
212+
213+    func $f0_2 ($a,$i) =     if (($i >= $s))
214+        then $a
215+        else throw("List size exceeds 7")
216+
217+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
218+    }
219+
220+
221+func adviseUser (user) = {
222+    let borrowPower = bp(user)
223+    (("borrowPower = " + toString(borrowPower)) + {
224+        func fold (acc,pair) =         ((((acc + ", ") + pair._1) + " = ") + toString(pair._2))
225+
226+        let $l = userState(user)
227+        let $s = size($l)
228+        let $acc0 = ""
229+        func $f0_1 ($a,$i) =         if (($i >= $s))
230+            then $a
231+            else fold($a, $l[$i])
232+
233+        func $f0_2 ($a,$i) =         if (($i >= $s))
234+            then $a
235+            else throw("List size exceeds 7")
236+
237+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
238+        })
239+    }
240+
241+
242+func sharesToAmount (assetId,shares) = {
243+    let ts = totalShares(assetId)
244+    let td = totalDeposit(assetId)
245+    if (if ((ts == 0))
246+        then true
247+        else (td == 0))
248+        then shares
249+        else fraction(shares, td, ts)
250+    }
251+
252+
253+func amountToShares (assetId,amt,ceil) = {
254+    let ts = totalShares(assetId)
255+    let td = totalDeposit(assetId)
256+    if (if ((ts == 0))
257+        then true
258+        else (td == 0))
259+        then amt
260+        else if (ceil)
261+            then fractionCeil(amt, ts, td)
262+            else fraction(amt, ts, td)
263+    }
264+
265+
266+func validateAssetId (assetId) = throwIf(!(contains(assets, assetId)), "assetId not permitted")
267+
268+
269+func assetIdStr (aid) = match aid {
270+    case bv: ByteVector => 
271+        toBase58String(bv)
272+    case u: Unit => 
273+        "WAVES"
274+    case _ => 
275+        throw("Match error")
276+}
277+
278+
279+func assetStrToId (assetId) = if ((assetId == "WAVES"))
280+    then unit
281+    else fromBase58String(assetId)
282+
283+
284+func stakingAction (assetId,keepAtBalance) = {
285+    let actualBalance = if ((assetId == "WAVES"))
286+        then wavesBalance(this).available
287+        else assetBalance(this, fromBase58String(assetId))
288+    if ((actualBalance == keepAtBalance))
289+        then unit
290+        else {
291+            let stakingEnabled = valueOrElse(getBoolean(configAddress, ("protected_staking_enabled_" + assetId)), false)
292+            if (!(stakingEnabled))
293+                then unit
294+                else {
295+                    let stakingAddress = {
296+                        let addr = valueOrErrorMessage(getString(configAddress, ("protected_staking_config_" + assetId)), ("no staking address for " + assetId))
297+                        valueOrErrorMessage(addressFromString(addr), ((("protectedReserve: bad staking address for " + assetId) + ": ") + addr))
298+                        }
299+                    if ((actualBalance > keepAtBalance))
300+                        then invoke(stakingAddress, "put", nil, [AttachedPayment(assetStrToId(assetId), (actualBalance - keepAtBalance))])
301+                        else invoke(stakingAddress, "get", [(keepAtBalance - actualBalance)], nil)
302+                    }
303+            }
304+    }
305+
306+
307+func withdrawInternal (from,to,assetId,amount) = {
308+    let checks = validateAssetId(assetId)
309+    if ((checks == checks))
310+        then {
311+            let $t075357867 = if ((amount == -1))
312+                then {
313+                    let realShares = userShares(assetId, from)
314+                    let realAmount = sharesToAmount(assetId, realShares)
315+                    $Tuple2(realShares, realAmount)
316+                    }
317+                else if ((0 >= amount))
318+                    then throw("protected-reserve: non-positive amount")
319+                    else $Tuple2(amountToShares(assetId, amount, true), amount)
320+            let wdShares = $t075357867._1
321+            let wdAmount = $t075357867._2
322+            let staking = stakingAction(assetId, wdAmount)
323+            if ((staking == staking))
324+                then $Tuple2([changeBy(totalDepositStore(assetId), -(wdAmount)), changeBy(totalSharesStore(assetId), -(wdShares)), changeBy(userSharesStore(assetId, from), -(wdShares)), ScriptTransfer(addressFromStringValue(to), wdAmount, assetStrToId(assetId))], wdAmount)
325+                else throw("Strict value is not equal to itself.")
326+            }
327+        else throw("Strict value is not equal to itself.")
328+    }
329+
330+
331+func supplyInternal (user,i) = if (hasRegularDeposit(user))
332+    then throw("protected-reserve: can't have protected and regular deposits at the same time")
333+    else if ((size(i.payments) != 1))
334+        then throw("protected-reserve: single payment required")
335+        else {
336+            let assetId = assetIdStr(i.payments[0].assetId)
337+            let amount = i.payments[0].amount
338+            if ((amount == 0))
339+                then nil
340+                else {
341+                    let checks = if (validateAssetId(assetId))
342+                        then opAllowed(assetId, "supply_protected_collateral")
343+                        else false
344+                    if ((checks == checks))
345+                        then {
346+                            let newShares = amountToShares(assetId, amount, false)
347+                            let staking = stakingAction(assetId, 0)
348+                            if ((staking == staking))
349+                                then [changeBy(totalDepositStore(assetId), amount), changeBy(totalSharesStore(assetId), newShares), changeBy(userSharesStore(assetId, user), newShares), BooleanEntry(hasProtectedStore(user), true)]
350+                                else throw("Strict value is not equal to itself.")
351+                            }
352+                        else throw("Strict value is not equal to itself.")
353+                    }
354+            }
355+
356+
357+@Callable(i)
358+func initialize (configAddress,oracleAddr) = [writeConstString(configAddressStore, configAddress), writeConstString(oracleStore, oracleAddr)]
359+
360+
361+
362+@Callable(i)
363+func addInterest () = {
364+    let assetId = assetIdStr(i.payments[0].assetId)
365+    let checks = validateAssetId(assetId)
366+    if ((checks == checks))
367+        then {
368+            let staking = stakingAction(assetId, 0)
369+            if ((staking == staking))
370+                then {
371+                    let amount = i.payments[0].amount
372+[changeBy(totalDepositStore(assetId), amount)]
373+                    }
374+                else throw("Strict value is not equal to itself.")
375+            }
376+        else throw("Strict value is not equal to itself.")
377+    }
378+
379+
380+
381+@Callable(i)
382+func borrowPower (user) = $Tuple2(nil, bp(user))
383+
384+
385+
386+@Callable(i)
387+func supply () = supplyInternal(toString(i.caller), i)
388+
389+
390+
391+@Callable(i)
392+func supplyFor (user) = {
393+    let checks = mainOnly(i)
394+    if ((checks == checks))
395+        then supplyInternal(user, i)
396+        else throw("Strict value is not equal to itself.")
397+    }
398+
399+
400+
401+@Callable(i)
402+func withdrawFor (user,assetId,amount) = {
403+    let checks = if (mainOnly(i))
404+        then opAllowed(assetId, "withdraw_protected_collateral")
405+        else false
406+    if ((checks == checks))
407+        then withdrawInternal(user, user, assetId, amount)
408+        else throw("Strict value is not equal to itself.")
409+    }
410+
411+
412+
413+@Callable(i)
414+func withdrawToMain (user,assetId) = {
415+    let checks = if (mainOnly(i))
416+        then opAllowed(assetId, "collapse_protected_collateral")
417+        else false
418+    if ((checks == checks))
419+        then withdrawInternal(user, toString(i.caller), assetId, -1)
420+        else throw("Strict value is not equal to itself.")
421+    }
422+
423+
github/deemru/w8io/786bc32 
24.77 ms ◑