w8 · tx

2022.05.03 14:17 [3100896] smart account 3PJKKT7gsWiPBJj11gkF3Xv7gKt8s2WPdTr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6QQqieoQUEHHu6vNAB7ve5CYMXGEEYEAx7gQBmUNPNfu",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1651576638577,
    "version": 1,
    "sender": "3PJKKT7gsWiPBJj11gkF3Xv7gKt8s2WPdTr",
    "senderPublicKey": "FAqqjX7JqvqLh2QGTR3ziyCnSsWSoj9gVo4uPahtmhKr",
    "proofs": [
        "2yzAJ1AP6Nzn83Zzx6Q6Y8ZXy28g3xxZfXqks4GtxJLyuxtRmeHfgn6Q6AoQT43QdJQDAuegvKi5Qqiei82ZjsMD"
    ],
    "script": "base64:AAIFAAAAAAAAACIIAhIDCgEIEgASAwoBCBIAEgMKAQgSBQoDCAgBEgQKAggIAAAAKAEAAAAHdGhyb3dJZgAAAAIAAAAJY29uZGl0aW9uAAAABWVycm9yAwUAAAAJY29uZGl0aW9uCQAAAgAAAAEFAAAABWVycm9yBgEAAAAId3JpdGVJbnQAAAACAAAAA2tleQAAAAV2YWx1ZQMJAABmAAAAAgAAAAAAAAAAAAUAAAAFdmFsdWUJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAXd3JpdGluZyBuZWdhdGl2ZSB2YWx1ZSAJAAGkAAAAAQUAAAAFdmFsdWUCAAAACSBmb3Iga2V5IAUAAAADa2V5CQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAADa2V5BQAAAAV2YWx1ZQEAAAAIY2hhbmdlQnkAAAACAAAAA2tleQAAAAV2YWx1ZQkBAAAACHdyaXRlSW50AAAAAgUAAAADa2V5CQAAZAAAAAIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AAAAAAAAAAAABQAAAAV2YWx1ZQEAAAAMZnJhY3Rpb25DZWlsAAAAAwAAAAV2YWx1ZQAAAAludW1lcmF0b3IAAAALZGVub21pbmF0b3IEAAAABGNhbmQJAABrAAAAAwUAAAAFdmFsdWUFAAAACW51bWVyYXRvcgUAAAALZGVub21pbmF0b3IEAAAAAUQAAAAAALUE8zMEAAAABWV4YWN0CQAAAAAAAAIJAABqAAAAAgkAAGgAAAACCQAAagAAAAIFAAAABGNhbmQFAAAAAUQJAABqAAAAAgUAAAALZGVub21pbmF0b3IFAAAAAUQFAAAAAUQJAABqAAAAAgkAAGgAAAACCQAAagAAAAIFAAAABXZhbHVlBQAAAAFECQAAagAAAAIFAAAACW51bWVyYXRvcgUAAAABRAUAAAABRAMFAAAABWV4YWN0BQAAAARjYW5kCQAAZAAAAAIFAAAABGNhbmQAAAAAAAAAAAEBAAAAEHdyaXRlQ29uc3RTdHJpbmcAAAACAAAAA2tleQAAAAV2YWx1ZQMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5CQEAAAALU3RyaW5nRW50cnkAAAACBQAAAANrZXkFAAAABXZhbHVlCQAAAgAAAAEJAAEsAAAAAgIAAAAVYWxyZWFkeSBpbml0aWFsaXplZDogBQAAAANrZXkAAAAAEmNvbmZpZ0FkZHJlc3NTdG9yZQIAAAANY29uZmlnQWRkcmVzcwAAAAALb3JhY2xlU3RvcmUCAAAADm9yYWNsZV9hZGRyZXNzAQAAABJyZXNlcnZlRmFjdG9yU3RvcmUAAAABAAAAB2Fzc2V0SWQJAAEsAAAAAgUAAAAHYXNzZXRJZAIAAAAOX1Jlc2VydmVGYWN0b3IAAAAACW1haW5TdG9yZQIAAAAEbWFpbgAAAAANY29uZmlnQWRkcmVzcwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzBQAAABJjb25maWdBZGRyZXNzU3RvcmUCAAAAI3Byb3RlY3RlZC1yZXNlcnZlOiBubyBjb25maWdBZGRyZXNzAgAAABZpbnZhbGlkIGNvbmZpZyBhZGRyZXNzAQAAAA1yZXNlcnZlRmFjdG9yAAAAAQAAAAdhc3NldElkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAANY29uZmlnQWRkcmVzcwkBAAAAEnJlc2VydmVGYWN0b3JTdG9yZQAAAAEFAAAAB2Fzc2V0SWQCAAAAEG5vIHJlc2VydmVGYWN0b3IBAAAACmdldEJhbGFuY2UAAAACAAAADmFkZHJlc3NPckFsaWFzAAAAB2Fzc2V0SWQEAAAAByRtYXRjaDAFAAAAB2Fzc2V0SWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAmJ2BQAAAAckbWF0Y2gwCQAD8AAAAAIFAAAADmFkZHJlc3NPckFsaWFzBQAAAAJidgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAQAAAABdQUAAAAHJG1hdGNoMAgJAAPvAAAAAQUAAAAOYWRkcmVzc09yQWxpYXMAAAAJYXZhaWxhYmxlCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAQAAAAlvcEFsbG93ZWQAAAACAAAAB2Fzc2V0SWQAAAACb3AEAAAAByRtYXRjaDAJAAP8AAAABAUAAAANY29uZmlnQWRkcmVzcwIAAAAJb3BBbGxvd2VkCQAETAAAAAIFAAAAB2Fzc2V0SWQJAARMAAAAAgUAAAACb3AFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gwAwUAAAABYgYJAAACAAAAAQIAAAALbm90IGFsbG93ZWQJAAACAAAAAQIAAAAhb3BBbGxvd2VkOiB1bmV4cGVjdGVkIHJlc3VsdCB0eXBlAQAAAAhtYWluT25seQAAAAEAAAABaQMJAQAAAAhjb250YWlucwAAAAIJAQAAABFAZXh0ck5hdGl2ZSgxMDUzKQAAAAIFAAAADWNvbmZpZ0FkZHJlc3MCAAAABG1haW4JAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBgkAAAIAAAABAgAAABBvbmx5IG1haW4gY2FuIGRvAAAAABJtYXliZU9yYWNsZUFkZHJlc3MEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAANY29uZmlnQWRkcmVzcwUAAAALb3JhY2xlU3RvcmUDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABcwUAAAAHJG1hdGNoMAkABCYAAAABBQAAAAFzBQAAAAR1bml0AQAAAAtvcmFjbGVQcmljZQAAAAEAAAAHYXNzZXRJZAQAAAAHJG1hdGNoMAkAA/wAAAAECQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIFAAAAEm1heWJlT3JhY2xlQWRkcmVzcwIAAAAJbm8gb3JhY2xlAgAAAAVwcmljZQkABEwAAAACBQAAAAdhc3NldElkBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFpBQAAAAckbWF0Y2gwBQAAAAFpCQAAAgAAAAECAAAAD2JhZCBvcmFjbGUgZGF0YQAAAAAGSEVJR0hUBQAAAAZoZWlnaHQAAAAABmFzc2V0cwkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABB0AAAACBQAAAA1jb25maWdBZGRyZXNzAgAAABhwcm90ZWN0ZWRfcmVzZXJ2ZV9hc3NldHMCAAAAAAAAAAALYXNzZXRzQXJyYXkDCQAAAAAAAAIFAAAABmFzc2V0cwIAAAAABQAAAANuaWwJAAS1AAAAAgUAAAAGYXNzZXRzAgAAAAF8AQAAABF0b3RhbERlcG9zaXRTdG9yZQAAAAEAAAAHYXNzZXRJZAkAASwAAAACAgAAAAx0b3RhbFN1cHBseV8FAAAAB2Fzc2V0SWQBAAAAEHRvdGFsU2hhcmVzU3RvcmUAAAABAAAAB2Fzc2V0SWQJAAEsAAAAAgIAAAAMdG90YWxTaGFyZXNfBQAAAAdhc3NldElkAQAAAA91c2VyU2hhcmVzU3RvcmUAAAACAAAAB2Fzc2V0SWQAAAAEdXNlcgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAALdXNlclNoYXJlc18FAAAAB2Fzc2V0SWQCAAAAAV8FAAAABHVzZXIBAAAAEWhhc1Byb3RlY3RlZFN0b3JlAAAAAQAAAAR1c2VyCQABLAAAAAICAAAAFXByb3RlY3RlZF9jb2xsYXRlcmFsXwUAAAAEdXNlcgEAAAATcHJvdGVjdGVkQXNzZXRTdG9yZQAAAAEAAAAEdXNlcgkAASwAAAACAgAAABBwcm90ZWN0ZWRfYXNzZXRfBQAAAAR1c2VyAQAAAAx0b3RhbERlcG9zaXQAAAABAAAAB2Fzc2V0SWQJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQfAAAAAQkBAAAAEXRvdGFsRGVwb3NpdFN0b3JlAAAAAQUAAAAHYXNzZXRJZAAAAAAAAAAAAAEAAAALdG90YWxTaGFyZXMAAAABAAAAB2Fzc2V0SWQJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQfAAAAAQkBAAAAEHRvdGFsU2hhcmVzU3RvcmUAAAABBQAAAAdhc3NldElkAAAAAAAAAAAAAQAAAAp1c2VyU2hhcmVzAAAAAgAAAAdhc3NldElkAAAABHVzZXIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQfAAAAAQkBAAAAD3VzZXJTaGFyZXNTdG9yZQAAAAIFAAAAB2Fzc2V0SWQFAAAABHVzZXIAAAAAAAAAAAABAAAAC3VzZXJEZXBvc2l0AAAAAgAAAAdhc3NldElkAAAABHVzZXIEAAAAAnRzCQEAAAALdG90YWxTaGFyZXMAAAABBQAAAAdhc3NldElkBAAAAAJ0ZAkBAAAADHRvdGFsRGVwb3NpdAAAAAEFAAAAB2Fzc2V0SWQEAAAAAnVzCQEAAAAKdXNlclNoYXJlcwAAAAIFAAAAB2Fzc2V0SWQFAAAABHVzZXIDCQAAAAAAAAIFAAAAAnRzAAAAAAAAAAAAAAAAAAAAAAAACQAAawAAAAMFAAAAAnRkBQAAAAJ1cwUAAAACdHMBAAAAEWhhc1JlZ3VsYXJEZXBvc2l0AAAAAQAAAAR1c2VyBAAAAAhyZXNlcnZlcwkABLUAAAACCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAANY29uZmlnQWRkcmVzcwIAAAAQcHJpbWFyeV9yZXNlcnZlcwIAAAAkcHJvdGVjdGVkOiBubyByZXNlcnZlcyBmb3VuZCBpbiBtYWluAgAAAAF8CgEAAAARYXNVc2VyQmFsYW5jZURhdGEAAAABAAAABXZhbHVlBAAAAAckbWF0Y2gwBQAAAAV2YWx1ZQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAiKEludCwgSW50LCBJbnQsIEludCwgSW50LCBCb29sZWFuKQQAAAABeAUAAAAHJG1hdGNoMAUAAAABeAQAAAABdAUAAAAHJG1hdGNoMAkAAAIAAAABAgAAACJ3cm9uZyB0eXBlLCBleHBlY3RlZDogSW50NSZCb29sZWFuCgEAAAAEZm9sZAAAAAIAAAADYWNjAAAAB3Jlc2VydmUEAAAAA3ViZAkBAAAAEWFzVXNlckJhbGFuY2VEYXRhAAAAAQkAA/wAAAAECQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAAdyZXNlcnZlAgAAAAt1c2VyQmFsYW5jZQkABEwAAAACBQAAAAR1c2VyBQAAAANuaWwFAAAAA25pbAMJAABmAAAAAggFAAAAA3ViZAAAAAJfMQAAAAAAAAAAAAkAAAIAAAABAgAAAChjYW4ndCBoYXZlIHByb3RlY3RlZCB3aGVuIHJlZ3VsYXIgZXhpc3RzBwoAAAAAAiRsBQAAAAhyZXNlcnZlcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAHCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAEZm9sZAAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA3CQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwEAAAAJdXNlclN0YXRlAAAAAQAAAAR1c2VyCgEAAAAEZm9sZAAAAAIAAAADYWNjAAAAB2Fzc2V0SWQJAAROAAAAAgUAAAADYWNjCQAETAAAAAIJAAUUAAAAAgUAAAAHYXNzZXRJZAkBAAAAC3VzZXJEZXBvc2l0AAAAAgUAAAAHYXNzZXRJZAUAAAAEdXNlcgUAAAADbmlsCgAAAAACJGwFAAAAC2Fzc2V0c0FycmF5CgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAEZm9sZAAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA3CQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwEAAAACYnAAAAABAAAABHVzZXIEAAAAC2ZhY3RvcnNCYXNlAAAAAAAAAAPoCgEAAAAQY29sbGF0ZXJhbEZhY3RvcgAAAAEAAAAHYXNzZXRJZAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEGgAAAAIFAAAADWNvbmZpZ0FkZHJlc3MJAAEsAAAAAgUAAAAHYXNzZXRJZAIAAAARX0NvbGxhdGVyYWxGYWN0b3ICAAAAHW5vIENvbGxhdGVyYWxGYWN0b3IgaW4gY29uZmlnCgEAAAAFcG93MTAAAAABAAAAAW4DCQAAAAAAAAIFAAAAAW4AAAAAAAAAAAYAAAAAAAAPQkADCQAAAAAAAAIFAAAAAW4AAAAAAAAAAAgAAAAAAAX14QAJAAACAAAAAQkAASwAAAACAgAAAA5iYWQgZGVjaW1hbHM6IAkAAaQAAAABBQAAAAFuCgEAAAANYXNzZXREZWNpbWFscwAAAAEAAAAHYXNzZXRJZAMJAAAAAAAAAgUAAAAHYXNzZXRJZAIAAAAFV0FWRVMAAAAAAAAAAAgICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQkAAlkAAAABBQAAAAdhc3NldElkAgAAAAliYWQgYXNzZXQAAAAIZGVjaW1hbHMKAQAAAAphc3NldFRvVXNkAAAAAgAAAAdhc3NldElkAAAABmFtb3VudAkAAGsAAAADBQAAAAZhbW91bnQJAQAAAAtvcmFjbGVQcmljZQAAAAEFAAAAB2Fzc2V0SWQJAQAAAAVwb3cxMAAAAAEJAQAAAA1hc3NldERlY2ltYWxzAAAAAQUAAAAHYXNzZXRJZAoBAAAABGZvbGQAAAACAAAAA2FjYwAAAARkYXRhCQAAZAAAAAIFAAAAA2FjYwQAAAALJHQwNTAzMzUwNTgFAAAABGRhdGEEAAAAB2Fzc2V0SWQIBQAAAAskdDA1MDMzNTA1OAAAAAJfMQQAAAADYW10CAUAAAALJHQwNTAzMzUwNTgAAAACXzIJAABrAAAAAwkBAAAACmFzc2V0VG9Vc2QAAAACBQAAAAdhc3NldElkBQAAAANhbXQJAQAAABBjb2xsYXRlcmFsRmFjdG9yAAAAAQUAAAAHYXNzZXRJZAUAAAALZmFjdG9yc0Jhc2UKAAAAAAIkbAkBAAAACXVzZXJTdGF0ZQAAAAEFAAAABHVzZXIKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwAAAAAAAAAAAACgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAEZm9sZAAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA3CQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwEAAAAKYWR2aXNlVXNlcgAAAAEAAAAEdXNlcgQAAAALYm9ycm93UG93ZXIJAQAAAAJicAAAAAEFAAAABHVzZXIJAAEsAAAAAgkAASwAAAACAgAAAA5ib3Jyb3dQb3dlciA9IAkAAaQAAAABBQAAAAtib3Jyb3dQb3dlcgoBAAAABGZvbGQAAAACAAAAA2FjYwAAAARwYWlyCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAAA2FjYwIAAAACLCAIBQAAAARwYWlyAAAAAl8xAgAAAAMgPSAJAAGkAAAAAQgFAAAABHBhaXIAAAACXzIKAAAAAAIkbAkBAAAACXVzZXJTdGF0ZQAAAAEFAAAABHVzZXIKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwAgAAAAAKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAARmb2xkAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDcJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAQAAAA5zaGFyZXNUb0Ftb3VudAAAAAIAAAAHYXNzZXRJZAAAAAZzaGFyZXMEAAAAAnRzCQEAAAALdG90YWxTaGFyZXMAAAABBQAAAAdhc3NldElkBAAAAAJ0ZAkBAAAADHRvdGFsRGVwb3NpdAAAAAEFAAAAB2Fzc2V0SWQDAwkAAAAAAAACBQAAAAJ0cwAAAAAAAAAAAAYJAAAAAAAAAgUAAAACdGQAAAAAAAAAAAAFAAAABnNoYXJlcwkAAGsAAAADBQAAAAZzaGFyZXMFAAAAAnRkBQAAAAJ0cwEAAAAOYW1vdW50VG9TaGFyZXMAAAADAAAAB2Fzc2V0SWQAAAADYW10AAAABGNlaWwEAAAAAnRzCQEAAAALdG90YWxTaGFyZXMAAAABBQAAAAdhc3NldElkBAAAAAJ0ZAkBAAAADHRvdGFsRGVwb3NpdAAAAAEFAAAAB2Fzc2V0SWQDAwkAAAAAAAACBQAAAAJ0cwAAAAAAAAAAAAYJAAAAAAAAAgUAAAACdGQAAAAAAAAAAAAFAAAAA2FtdAMFAAAABGNlaWwJAQAAAAxmcmFjdGlvbkNlaWwAAAADBQAAAANhbXQFAAAAAnRzBQAAAAJ0ZAkAAGsAAAADBQAAAANhbXQFAAAAAnRzBQAAAAJ0ZAEAAAAPdmFsaWRhdGVBc3NldElkAAAAAQAAAAdhc3NldElkCQEAAAAHdGhyb3dJZgAAAAIJAQAAAAEhAAAAAQkBAAAACGNvbnRhaW5zAAAAAgUAAAAGYXNzZXRzBQAAAAdhc3NldElkAgAAABVhc3NldElkIG5vdCBwZXJtaXR0ZWQBAAAACmFzc2V0SWRTdHIAAAABAAAAA2FpZAQAAAAHJG1hdGNoMAUAAAADYWlkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAJidgUAAAAHJG1hdGNoMAkAAlgAAAABBQAAAAJidgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAQAAAABdQUAAAAHJG1hdGNoMAIAAAAFV0FWRVMJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IBAAAADGFzc2V0U3RyVG9JZAAAAAEAAAAHYXNzZXRJZAMJAAAAAAAAAgUAAAAHYXNzZXRJZAIAAAAFV0FWRVMFAAAABHVuaXQJAAJZAAAAAQUAAAAHYXNzZXRJZAEAAAANc3Rha2luZ0FjdGlvbgAAAAIAAAAHYXNzZXRJZAAAAA1rZWVwQXRCYWxhbmNlBAAAAA1hY3R1YWxCYWxhbmNlAwkAAAAAAAACBQAAAAdhc3NldElkAgAAAAVXQVZFUwgJAAPvAAAAAQUAAAAEdGhpcwAAAAlhdmFpbGFibGUJAAPwAAAAAgUAAAAEdGhpcwkAAlkAAAABBQAAAAdhc3NldElkAwkAAAAAAAACBQAAAA1hY3R1YWxCYWxhbmNlBQAAAA1rZWVwQXRCYWxhbmNlBQAAAAR1bml0BAAAAA5zdGFraW5nRW5hYmxlZAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABBsAAAACBQAAAA1jb25maWdBZGRyZXNzCQABLAAAAAICAAAAGnByb3RlY3RlZF9zdGFraW5nX2VuYWJsZWRfBQAAAAdhc3NldElkBwMJAQAAAAEhAAAAAQUAAAAOc3Rha2luZ0VuYWJsZWQFAAAABHVuaXQEAAAADnN0YWtpbmdBZGRyZXNzBAAAAARhZGRyCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAANY29uZmlnQWRkcmVzcwkAASwAAAACAgAAABlwcm90ZWN0ZWRfc3Rha2luZ19jb25maWdfBQAAAAdhc3NldElkCQABLAAAAAICAAAAF25vIHN0YWtpbmcgYWRkcmVzcyBmb3IgBQAAAAdhc3NldElkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQUAAAAEYWRkcgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAqcHJvdGVjdGVkUmVzZXJ2ZTogYmFkIHN0YWtpbmcgYWRkcmVzcyBmb3IgBQAAAAdhc3NldElkAgAAAAI6IAUAAAAEYWRkcgMJAABmAAAAAgUAAAANYWN0dWFsQmFsYW5jZQUAAAANa2VlcEF0QmFsYW5jZQkAA/wAAAAEBQAAAA5zdGFraW5nQWRkcmVzcwIAAAADcHV0BQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIJAQAAAAxhc3NldFN0clRvSWQAAAABBQAAAAdhc3NldElkCQAAZQAAAAIFAAAADWFjdHVhbEJhbGFuY2UFAAAADWtlZXBBdEJhbGFuY2UFAAAAA25pbAkAA/wAAAAEBQAAAA5zdGFraW5nQWRkcmVzcwIAAAADZ2V0CQAETAAAAAIJAABlAAAAAgUAAAANa2VlcEF0QmFsYW5jZQUAAAANYWN0dWFsQmFsYW5jZQUAAAADbmlsBQAAAANuaWwBAAAAEHdpdGhkcmF3SW50ZXJuYWwAAAAEAAAABGZyb20AAAACdG8AAAAHYXNzZXRJZAAAAAZhbW91bnQEAAAABmNoZWNrcwkBAAAAD3ZhbGlkYXRlQXNzZXRJZAAAAAEFAAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAABmNoZWNrcwUAAAAGY2hlY2tzBAAAAApyZWFsU2hhcmVzCQEAAAAKdXNlclNoYXJlcwAAAAIFAAAAB2Fzc2V0SWQFAAAABGZyb20EAAAACyR0MDc0MzU3NzE5AwkAAAAAAAACBQAAAAZhbW91bnQA//////////8EAAAACnJlYWxBbW91bnQJAQAAAA5zaGFyZXNUb0Ftb3VudAAAAAIFAAAAB2Fzc2V0SWQFAAAACnJlYWxTaGFyZXMJAAUUAAAAAgUAAAAKcmVhbFNoYXJlcwUAAAAKcmVhbEFtb3VudAMJAABnAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAJnByb3RlY3RlZC1yZXNlcnZlOiBub24tcG9zaXRpdmUgYW1vdW50CQAFFAAAAAIJAQAAAA5hbW91bnRUb1NoYXJlcwAAAAMFAAAAB2Fzc2V0SWQFAAAABmFtb3VudAYFAAAABmFtb3VudAQAAAAId2RTaGFyZXMIBQAAAAskdDA3NDM1NzcxOQAAAAJfMQQAAAAId2RBbW91bnQIBQAAAAskdDA3NDM1NzcxOQAAAAJfMgQAAAAMbWF5YmVDbGVhblVwAwkAAAAAAAACBQAAAApyZWFsU2hhcmVzBQAAAAh3ZFNoYXJlcwkABEwAAAACCQEAAAAMQm9vbGVhbkVudHJ5AAAAAgkBAAAAEWhhc1Byb3RlY3RlZFN0b3JlAAAAAQUAAAAEZnJvbQcJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQkBAAAAE3Byb3RlY3RlZEFzc2V0U3RvcmUAAAABBQAAAARmcm9tBQAAAANuaWwFAAAAA25pbAQAAAAHc3Rha2luZwkBAAAADXN0YWtpbmdBY3Rpb24AAAACBQAAAAdhc3NldElkBQAAAAh3ZEFtb3VudAMJAAAAAAAAAgUAAAAHc3Rha2luZwUAAAAHc3Rha2luZwkABRQAAAACCQAETgAAAAIFAAAADG1heWJlQ2xlYW5VcAkABEwAAAACCQEAAAAIY2hhbmdlQnkAAAACCQEAAAARdG90YWxEZXBvc2l0U3RvcmUAAAABBQAAAAdhc3NldElkCQEAAAABLQAAAAEFAAAACHdkQW1vdW50CQAETAAAAAIJAQAAAAhjaGFuZ2VCeQAAAAIJAQAAABB0b3RhbFNoYXJlc1N0b3JlAAAAAQUAAAAHYXNzZXRJZAkBAAAAAS0AAAABBQAAAAh3ZFNoYXJlcwkABEwAAAACCQEAAAAIY2hhbmdlQnkAAAACCQEAAAAPdXNlclNoYXJlc1N0b3JlAAAAAgUAAAAHYXNzZXRJZAUAAAAEZnJvbQkBAAAAAS0AAAABBQAAAAh3ZFNoYXJlcwkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAAJ0bwUAAAAId2RBbW91bnQJAQAAAAxhc3NldFN0clRvSWQAAAABBQAAAAdhc3NldElkBQAAAANuaWwFAAAACHdkQW1vdW50CQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAAAADnN1cHBseUludGVybmFsAAAAAgAAAAR1c2VyAAAAAWkDCQEAAAARaGFzUmVndWxhckRlcG9zaXQAAAABBQAAAAR1c2VyCQAAAgAAAAECAAAAO3Byb3RlY3RlZC1yZXNlcnZlOiBjYW4ndCBoYXZlIHByb3RlY3RlZCB3aGVuIHJlZ3VsYXIgZXhpc3RzAwkBAAAAAiE9AAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAAIAAAABAgAAACpwcm90ZWN0ZWQtcmVzZXJ2ZTogc2luZ2xlIHBheW1lbnQgcmVxdWlyZWQEAAAAB2Fzc2V0SWQJAQAAAAphc3NldElkU3RyAAAAAQgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAQAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQDCQAAAAAAAAIFAAAABmFtb3VudAAAAAAAAAAAAAUAAAADbmlsBAAAAAZjaGVja3MDCQEAAAAPdmFsaWRhdGVBc3NldElkAAAAAQUAAAAHYXNzZXRJZAkBAAAACW9wQWxsb3dlZAAAAAIFAAAAB2Fzc2V0SWQCAAAAG3N1cHBseV9wcm90ZWN0ZWRfY29sbGF0ZXJhbAcDCQAAAAAAAAIFAAAABmNoZWNrcwUAAAAGY2hlY2tzBAAAAA1wcm90ZWN0ZWRGbGFnCQEAAAALdmFsdWVPckVsc2UAAAACCQAEGwAAAAIFAAAABHRoaXMJAQAAABFoYXNQcm90ZWN0ZWRTdG9yZQAAAAEFAAAABHVzZXIHBAAAAA5wcm90ZWN0ZWRBc3NldAkABB0AAAACBQAAAAR0aGlzCQEAAAATcHJvdGVjdGVkQXNzZXRTdG9yZQAAAAEFAAAABHVzZXIEAAAAC2NvbnNpc3RlbmN5AwUAAAANcHJvdGVjdGVkRmxhZwQAAAAHJG1hdGNoMAUAAAAOcHJvdGVjdGVkQXNzZXQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABcwUAAAAHJG1hdGNoMAMJAAAAAAAAAgUAAAABcwUAAAAHYXNzZXRJZAYJAAACAAAAAQIAAAA7cHJvdGVjdGVkLXJlc2VydmU6IGNhbid0IGhhdmUgbW9yZSB0aGFuIG9uZSBhc3NldCBwcm90ZWN0ZWQJAAACAAAAAQIAAAAgcHJvdGVjdGVkLXJlc2VydmU6Y2xlYW4gdXAgZmlyc3QEAAAAByRtYXRjaDAFAAAADnByb3RlY3RlZEFzc2V0AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAJAAACAAAAAQIAAAAjcHJvdGVjdGVkLXJlc2VydmU6IG1pc2NvbmZpZ3VyYXRpb24GBAAAABBjb25zaXN0ZW5jeUNoZWNrCQEAAAAHdGhyb3dJZgAAAAIJAQAAAAEhAAAAAQUAAAALY29uc2lzdGVuY3kCAAAADWluY29uc2lzdGVuY3kDCQAAAAAAAAIFAAAAEGNvbnNpc3RlbmN5Q2hlY2sFAAAAEGNvbnNpc3RlbmN5Q2hlY2sEAAAACW5ld1NoYXJlcwkBAAAADmFtb3VudFRvU2hhcmVzAAAAAwUAAAAHYXNzZXRJZAUAAAAGYW1vdW50BwQAAAAHc3Rha2luZwkBAAAADXN0YWtpbmdBY3Rpb24AAAACBQAAAAdhc3NldElkAAAAAAAAAAAAAwkAAAAAAAACBQAAAAdzdGFraW5nBQAAAAdzdGFraW5nCQAETAAAAAIJAQAAAAhjaGFuZ2VCeQAAAAIJAQAAABF0b3RhbERlcG9zaXRTdG9yZQAAAAEFAAAAB2Fzc2V0SWQFAAAABmFtb3VudAkABEwAAAACCQEAAAAIY2hhbmdlQnkAAAACCQEAAAAQdG90YWxTaGFyZXNTdG9yZQAAAAEFAAAAB2Fzc2V0SWQFAAAACW5ld1NoYXJlcwkABEwAAAACCQEAAAAIY2hhbmdlQnkAAAACCQEAAAAPdXNlclNoYXJlc1N0b3JlAAAAAgUAAAAHYXNzZXRJZAUAAAAEdXNlcgUAAAAJbmV3U2hhcmVzCQAETAAAAAIJAQAAAAxCb29sZWFuRW50cnkAAAACCQEAAAARaGFzUHJvdGVjdGVkU3RvcmUAAAABBQAAAAR1c2VyBgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAATcHJvdGVjdGVkQXNzZXRTdG9yZQAAAAEFAAAABHVzZXIFAAAAB2Fzc2V0SWQFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAcAAAABaQEAAAAKaW5pdGlhbGl6ZQAAAAEAAAANY29uZmlnQWRkcmVzcwkABEwAAAACCQEAAAAQd3JpdGVDb25zdFN0cmluZwAAAAIFAAAAEmNvbmZpZ0FkZHJlc3NTdG9yZQUAAAANY29uZmlnQWRkcmVzcwUAAAADbmlsAAAAAWkBAAAAC2FkZEludGVyZXN0AAAAAAQAAAAHYXNzZXRJZAkBAAAACmFzc2V0SWRTdHIAAAABCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBAAAAAZjaGVja3MJAQAAAA92YWxpZGF0ZUFzc2V0SWQAAAABBQAAAAdhc3NldElkAwkAAAAAAAACBQAAAAZjaGVja3MFAAAABmNoZWNrcwQAAAAHc3Rha2luZwkBAAAADXN0YWtpbmdBY3Rpb24AAAACBQAAAAdhc3NldElkAAAAAAAAAAAAAwkAAAAAAAACBQAAAAdzdGFraW5nBQAAAAdzdGFraW5nBAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAkABEwAAAACCQEAAAAIY2hhbmdlQnkAAAACCQEAAAARdG90YWxEZXBvc2l0U3RvcmUAAAABBQAAAAdhc3NldElkBQAAAAZhbW91bnQFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAAC2JvcnJvd1Bvd2VyAAAAAQAAAAR1c2VyCQAFFAAAAAIFAAAAA25pbAkBAAAAAmJwAAAAAQUAAAAEdXNlcgAAAAFpAQAAAAZzdXBwbHkAAAAACQEAAAAOc3VwcGx5SW50ZXJuYWwAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgUAAAABaQAAAAFpAQAAAAlzdXBwbHlGb3IAAAABAAAABHVzZXIEAAAABmNoZWNrcwkBAAAACG1haW5Pbmx5AAAAAQUAAAABaQMJAAAAAAAAAgUAAAAGY2hlY2tzBQAAAAZjaGVja3MJAQAAAA5zdXBwbHlJbnRlcm5hbAAAAAIFAAAABHVzZXIFAAAAAWkJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAAC3dpdGhkcmF3Rm9yAAAAAwAAAAR1c2VyAAAAB2Fzc2V0SWQAAAAGYW1vdW50BAAAAAZjaGVja3MDCQEAAAAIbWFpbk9ubHkAAAABBQAAAAFpCQEAAAAJb3BBbGxvd2VkAAAAAgUAAAAHYXNzZXRJZAIAAAAdd2l0aGRyYXdfcHJvdGVjdGVkX2NvbGxhdGVyYWwHAwkAAAAAAAACBQAAAAZjaGVja3MFAAAABmNoZWNrcwkBAAAAEHdpdGhkcmF3SW50ZXJuYWwAAAAEBQAAAAR1c2VyBQAAAAR1c2VyBQAAAAdhc3NldElkBQAAAAZhbW91bnQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAADndpdGhkcmF3VG9NYWluAAAAAgAAAAR1c2VyAAAAB2Fzc2V0SWQEAAAABmNoZWNrcwMJAQAAAAhtYWluT25seQAAAAEFAAAAAWkJAQAAAAlvcEFsbG93ZWQAAAACBQAAAAdhc3NldElkAgAAAB1jb2xsYXBzZV9wcm90ZWN0ZWRfY29sbGF0ZXJhbAcDCQAAAAAAAAIFAAAABmNoZWNrcwUAAAAGY2hlY2tzCQEAAAAQd2l0aGRyYXdJbnRlcm5hbAAAAAQFAAAABHVzZXIJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBQAAAAdhc3NldElkAP//////////CQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAACvVftF",
    "chainId": 87,
    "height": 3100896,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Gu2H3W8GtE6sdWn3pjU2amDcZBEMFG3EeRXEEP7MsBUh
Next: 78oUYDvNdm54Cbj5hnbpa5NYHMJmaeNaRzeY2pkghKa8

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

Old	New		Differences
63	63		}
64	64
65	65
66		-	func mainOnly (i) = if ((i.caller ~~!= valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, mainStore), "no main in config")), "invalid main address"~~)))
67		-	then ~~throw("only main can do")~~
68		-	else ~~true~~
	66	+	func mainOnly (i) = if (contains(getStringValue(configAddress, "main"), toString(i.caller)))
	67	+	then true
	68	+	else throw("only main can do")
69	69
70	70
71	71		let maybeOracleAddress = match getString(configAddress, oracleStore) {

191	191		func assetToUsd (assetId,amount) = fraction(amount, oraclePrice(assetId), pow10(assetDecimals(assetId)))
192	192
193	193		func fold (acc,data) = (acc + {
194		-	let $~~t051195144~~ = data
195		-	let assetId = $~~t051195144~~._1
196		-	let amt = $~~t051195144~~._2
	194	+	let $t050335058 = data
	195	+	let assetId = $t050335058._1
	196	+	let amt = $t050335058._2
197	197		fraction(assetToUsd(assetId, amt), collateralFactor(assetId), factorsBase)
198	198		})
199	199

303	303		if ((checks == checks))
304	304		then {
305	305		let realShares = userShares(assetId, from)
306		-	let $~~t075217805~~ = if ((amount == -1))
	306	+	let $t074357719 = if ((amount == -1))
307	307		then {
308	308		let realAmount = sharesToAmount(assetId, realShares)
309	309		$Tuple2(realShares, realAmount)

311	311		else if ((0 >= amount))
312	312		then throw("protected-reserve: non-positive amount")
313	313		else $Tuple2(amountToShares(assetId, amount, true), amount)
314		-	let wdShares = $~~t075217805~~._1
315		-	let wdAmount = $~~t075217805~~._2
	314	+	let wdShares = $t074357719._1
	315	+	let wdAmount = $t074357719._2
316	316		let maybeCleanUp = if ((realShares == wdShares))
317	317		then [BooleanEntry(hasProtectedStore(from), false), DeleteEntry(protectedAssetStore(from))]
318	318		else nil

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

github/deemru/w8io/786bc32 
61.75 ms ◑