2022.10.18 17:29 [3343356] smart account 3PJKKT7gsWiPBJj11gkF3Xv7gKt8s2WPdTr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2FdU7eyXXUdXiMCfXY6CqAuCkfBZeqZmXU1pD8hKaunk",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1666103356584,
    "version": 1,
    "sender": "3PJKKT7gsWiPBJj11gkF3Xv7gKt8s2WPdTr",
    "senderPublicKey": "FAqqjX7JqvqLh2QGTR3ziyCnSsWSoj9gVo4uPahtmhKr",
    "proofs": [
        "4Sm1LqH1vS3z6fy1i3iYpt167Nupn94KrAfA3WT5Hy9Tqus2fmYidJWNPWwntnSb8tz9NB8D8QeoDQ6Hbvj8Ma2M"
    ],
    "script": "base64:BgIuCAISAwoBCBIDCgEIEgASAwoBCBIAEgMKAQgSBQoDCAgBEgQKAggIEgUKAwgIASoBB3Rocm93SWYCCWNvbmRpdGlvbgVlcnJvcgMFCWNvbmRpdGlvbgkAAgEFBWVycm9yBgEId3JpdGVJbnQCA2tleQV2YWx1ZQMJAGYCAAAFBXZhbHVlCQACAQkArAICCQCsAgIJAKwCAgIXd3JpdGluZyBuZWdhdGl2ZSB2YWx1ZSAJAKQDAQUFdmFsdWUCCSBmb3Iga2V5IAUDa2V5CQEMSW50ZWdlckVudHJ5AgUDa2V5BQV2YWx1ZQEIY2hhbmdlQnkCA2tleQV2YWx1ZQkBCHdyaXRlSW50AgUDa2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQNrZXkAAAUFdmFsdWUBDGZyYWN0aW9uQ2VpbAMFdmFsdWUJbnVtZXJhdG9yC2Rlbm9taW5hdG9yBARjYW5kCQBrAwUFdmFsdWUFCW51bWVyYXRvcgULZGVub21pbmF0b3IEAUQAs+aTqAsEBWV4YWN0CQAAAgkAagIJAGgCCQBqAgUEY2FuZAUBRAkAagIFC2Rlbm9taW5hdG9yBQFEBQFECQBqAgkAaAIJAGoCBQV2YWx1ZQUBRAkAagIFCW51bWVyYXRvcgUBRAUBRAMFBWV4YWN0BQRjYW5kCQBkAgUEY2FuZAABARB3cml0ZUNvbnN0U3RyaW5nAgNrZXkFdmFsdWUDCQEBIQEJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMFA2tleQkBC1N0cmluZ0VudHJ5AgUDa2V5BQV2YWx1ZQkAAgEJAKwCAgIVYWxyZWFkeSBpbml0aWFsaXplZDogBQNrZXkAEmNvbmZpZ0FkZHJlc3NTdG9yZQINY29uZmlnQWRkcmVzcwALb3JhY2xlU3RvcmUCDm9yYWNsZV9hZGRyZXNzARJyZXNlcnZlRmFjdG9yU3RvcmUBB2Fzc2V0SWQJAKwCAgUHYXNzZXRJZAIOX1Jlc2VydmVGYWN0b3IACW1haW5TdG9yZQIEbWFpbgANY29uZmlnQWRkcmVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBRJjb25maWdBZGRyZXNzU3RvcmUCI3Byb3RlY3RlZC1yZXNlcnZlOiBubyBjb25maWdBZGRyZXNzAhZpbnZhbGlkIGNvbmZpZyBhZGRyZXNzAQ1yZXNlcnZlRmFjdG9yAQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUNY29uZmlnQWRkcmVzcwkBEnJlc2VydmVGYWN0b3JTdG9yZQEFB2Fzc2V0SWQCEG5vIHJlc2VydmVGYWN0b3IBCmdldEJhbGFuY2UCDmFkZHJlc3NPckFsaWFzB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCYnYFByRtYXRjaDAJAPAHAgUOYWRkcmVzc09yQWxpYXMFAmJ2AwkAAQIFByRtYXRjaDACBFVuaXQEAXUFByRtYXRjaDAICQDvBwEFDmFkZHJlc3NPckFsaWFzCWF2YWlsYWJsZQkAAgECC01hdGNoIGVycm9yAQlvcEFsbG93ZWQCB2Fzc2V0SWQCb3AEByRtYXRjaDAJAPwHBAUNY29uZmlnQWRkcmVzcwIJb3BBbGxvd2VkCQDMCAIFB2Fzc2V0SWQJAMwIAgUCb3AFA25pbAUDbmlsAwkAAQIFByRtYXRjaDACB0Jvb2xlYW4EAWIFByRtYXRjaDADBQFiBgkAAgECC25vdCBhbGxvd2VkCQACAQIhb3BBbGxvd2VkOiB1bmV4cGVjdGVkIHJlc3VsdCB0eXBlAQhtYWluT25seQEBaQMJAQhjb250YWlucwIJARFAZXh0ck5hdGl2ZSgxMDUzKQIFDWNvbmZpZ0FkZHJlc3MCBG1haW4JAKUIAQgFAWkGY2FsbGVyBgkAAgECEG9ubHkgbWFpbiBjYW4gZG8AEm1heWJlT3JhY2xlQWRkcmVzcwQHJG1hdGNoMAkAnQgCBQ1jb25maWdBZGRyZXNzBQtvcmFjbGVTdG9yZQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwUEdW5pdAELb3JhY2xlUHJpY2UBB2Fzc2V0SWQEByRtYXRjaDAJAPwHBAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRJtYXliZU9yYWNsZUFkZHJlc3MCCW5vIG9yYWNsZQIFcHJpY2UJAMwIAgUHYXNzZXRJZAUDbmlsBQNuaWwDCQABAgUHJG1hdGNoMAIDSW50BAFpBQckbWF0Y2gwBQFpCQACAQIPYmFkIG9yYWNsZSBkYXRhAAZIRUlHSFQFBmhlaWdodAAGYXNzZXRzCQELdmFsdWVPckVsc2UCCQCdCAIFDWNvbmZpZ0FkZHJlc3MCGHByb3RlY3RlZF9yZXNlcnZlX2Fzc2V0cwIAAAthc3NldHNBcnJheQMJAAACBQZhc3NldHMCAAUDbmlsCQC8CQIFBmFzc2V0cwIBfAERdG90YWxEZXBvc2l0U3RvcmUBB2Fzc2V0SWQJAKwCAgIMdG90YWxTdXBwbHlfBQdhc3NldElkARB0b3RhbFNoYXJlc1N0b3JlAQdhc3NldElkCQCsAgICDHRvdGFsU2hhcmVzXwUHYXNzZXRJZAEPdXNlclNoYXJlc1N0b3JlAgdhc3NldElkBHVzZXIJAKwCAgkArAICCQCsAgICC3VzZXJTaGFyZXNfBQdhc3NldElkAgFfBQR1c2VyARFoYXNQcm90ZWN0ZWRTdG9yZQEEdXNlcgkArAICAhVwcm90ZWN0ZWRfY29sbGF0ZXJhbF8FBHVzZXIBE3Byb3RlY3RlZEFzc2V0U3RvcmUBBHVzZXIJAKwCAgIQcHJvdGVjdGVkX2Fzc2V0XwUEdXNlcgEMdG90YWxEZXBvc2l0AQdhc3NldElkCQELdmFsdWVPckVsc2UCCQCfCAEJARF0b3RhbERlcG9zaXRTdG9yZQEFB2Fzc2V0SWQAAAELdG90YWxTaGFyZXMBB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBEHRvdGFsU2hhcmVzU3RvcmUBBQdhc3NldElkAAABCnVzZXJTaGFyZXMCB2Fzc2V0SWQEdXNlcgkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEPdXNlclNoYXJlc1N0b3JlAgUHYXNzZXRJZAUEdXNlcgAAAQt1c2VyRGVwb3NpdAIHYXNzZXRJZAR1c2VyBAJ0cwkBC3RvdGFsU2hhcmVzAQUHYXNzZXRJZAQCdGQJAQx0b3RhbERlcG9zaXQBBQdhc3NldElkBAJ1cwkBCnVzZXJTaGFyZXMCBQdhc3NldElkBQR1c2VyAwkAAAIFAnRzAAAAAAkAawMFAnRkBQJ1cwUCdHMBEWhhc1JlZ3VsYXJEZXBvc2l0AQR1c2VyBAhyZXNlcnZlcwkAvAkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUNY29uZmlnQWRkcmVzcwIQcHJpbWFyeV9yZXNlcnZlcwIkcHJvdGVjdGVkOiBubyByZXNlcnZlcyBmb3VuZCBpbiBtYWluAgF8CgERYXNVc2VyQmFsYW5jZURhdGEBBXZhbHVlBAckbWF0Y2gwBQV2YWx1ZQMJAAECBQckbWF0Y2gwAiIoSW50LCBJbnQsIEludCwgSW50LCBJbnQsIEJvb2xlYW4pBAF4BQckbWF0Y2gwBQF4BAF0BQckbWF0Y2gwCQACAQIid3JvbmcgdHlwZSwgZXhwZWN0ZWQ6IEludDUmQm9vbGVhbgoBBGZvbGQCA2FjYwdyZXNlcnZlBAN1YmQJARFhc1VzZXJCYWxhbmNlRGF0YQEJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHcmVzZXJ2ZQILdXNlckJhbGFuY2UJAMwIAgUEdXNlcgUDbmlsBQNuaWwDCQBmAggFA3ViZAJfMQAACQACAQIoY2FuJ3QgaGF2ZSBwcm90ZWN0ZWQgd2hlbiByZWd1bGFyIGV4aXN0cwcKAAIkbAUIcmVzZXJ2ZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEZm9sZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAQl1c2VyU3RhdGUBBHVzZXIKAQRmb2xkAgNhY2MHYXNzZXRJZAkAzggCBQNhY2MJAMwIAgkAlAoCBQdhc3NldElkCQELdXNlckRlcG9zaXQCBQdhc3NldElkBQR1c2VyBQNuaWwKAAIkbAULYXNzZXRzQXJyYXkKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBGZvbGQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDIwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAECYnABBHVzZXIEC2ZhY3RvcnNCYXNlAOgHCgEQY29sbGF0ZXJhbEZhY3RvcgEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFDWNvbmZpZ0FkZHJlc3MJAKwCAgUHYXNzZXRJZAIRX0NvbGxhdGVyYWxGYWN0b3ICHW5vIENvbGxhdGVyYWxGYWN0b3IgaW4gY29uZmlnCgEFcG93MTABAW4DCQAAAgUBbgAGAMCEPQMJAAACBQFuAAgAgMLXLwkAAgEJAKwCAgIOYmFkIGRlY2ltYWxzOiAJAKQDAQUBbgoBDWFzc2V0RGVjaW1hbHMBB2Fzc2V0SWQDCQAAAgUHYXNzZXRJZAIFV0FWRVMACAgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFB2Fzc2V0SWQCCWJhZCBhc3NldAhkZWNpbWFscwoBCmFzc2V0VG9Vc2QCB2Fzc2V0SWQGYW1vdW50CQBrAwUGYW1vdW50CQELb3JhY2xlUHJpY2UBBQdhc3NldElkCQEFcG93MTABCQENYXNzZXREZWNpbWFscwEFB2Fzc2V0SWQKAQRmb2xkAgNhY2MEZGF0YQkAZAIFA2FjYwQLJHQwNTA2MzUwODgFBGRhdGEEB2Fzc2V0SWQIBQskdDA1MDYzNTA4OAJfMQQDYW10CAULJHQwNTA2MzUwODgCXzIJAGsDCQEKYXNzZXRUb1VzZAIFB2Fzc2V0SWQFA2FtdAkBEGNvbGxhdGVyYWxGYWN0b3IBBQdhc3NldElkBQtmYWN0b3JzQmFzZQoAAiRsCQEJdXNlclN0YXRlAQUEdXNlcgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEZm9sZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAQphZHZpc2VVc2VyAQR1c2VyBAtib3Jyb3dQb3dlcgkBAmJwAQUEdXNlcgkArAICCQCsAgICDmJvcnJvd1Bvd2VyID0gCQCkAwEFC2JvcnJvd1Bvd2VyCgEEZm9sZAIDYWNjBHBhaXIJAKwCAgkArAICCQCsAgIJAKwCAgUDYWNjAgIsIAgFBHBhaXICXzECAyA9IAkApAMBCAUEcGFpcgJfMgoAAiRsCQEJdXNlclN0YXRlAQUEdXNlcgoAAiRzCQCQAwEFAiRsCgAFJGFjYzACAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEZm9sZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAQ5zaGFyZXNUb0Ftb3VudAIHYXNzZXRJZAZzaGFyZXMEAnRzCQELdG90YWxTaGFyZXMBBQdhc3NldElkBAJ0ZAkBDHRvdGFsRGVwb3NpdAEFB2Fzc2V0SWQDAwkAAAIFAnRzAAAGCQAAAgUCdGQAAAUGc2hhcmVzCQBrAwUGc2hhcmVzBQJ0ZAUCdHMBDmFtb3VudFRvU2hhcmVzAwdhc3NldElkA2FtdARjZWlsBAJ0cwkBC3RvdGFsU2hhcmVzAQUHYXNzZXRJZAQCdGQJAQx0b3RhbERlcG9zaXQBBQdhc3NldElkAwMJAAACBQJ0cwAABgkAAAIFAnRkAAAFA2FtdAMFBGNlaWwJAQxmcmFjdGlvbkNlaWwDBQNhbXQFAnRzBQJ0ZAkAawMFA2FtdAUCdHMFAnRkAQ92YWxpZGF0ZUFzc2V0SWQBB2Fzc2V0SWQJAQd0aHJvd0lmAgkBASEBCQEIY29udGFpbnMCBQZhc3NldHMFB2Fzc2V0SWQCFWFzc2V0SWQgbm90IHBlcm1pdHRlZAEKYXNzZXRJZFN0cgEDYWlkBAckbWF0Y2gwBQNhaWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCYnYFByRtYXRjaDAJANgEAQUCYnYDCQABAgUHJG1hdGNoMAIEVW5pdAQBdQUHJG1hdGNoMAIFV0FWRVMJAAIBAgtNYXRjaCBlcnJvcgEMYXNzZXRTdHJUb0lkAQdhc3NldElkAwkAAAIFB2Fzc2V0SWQCBVdBVkVTBQR1bml0CQDZBAEFB2Fzc2V0SWQBDnN0YWtpbmdFbmFibGVkAQdhc3NldElkCQELdmFsdWVPckVsc2UCCQCbCAIFDWNvbmZpZ0FkZHJlc3MJAKwCAgIacHJvdGVjdGVkX3N0YWtpbmdfZW5hYmxlZF8FB2Fzc2V0SWQHAQ5zdGFraW5nQWRkcmVzcwEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzCQCsAgICGXByb3RlY3RlZF9zdGFraW5nX2NvbmZpZ18FB2Fzc2V0SWQJAKwCAgIXbm8gc3Rha2luZyBhZGRyZXNzIGZvciAFB2Fzc2V0SWQJAKwCAgIqcHJvdGVjdGVkUmVzZXJ2ZTogYmFkIHN0YWtpbmcgYWRkcmVzcyBmb3IgBQdhc3NldElkAQ1zdGFraW5nQWN0aW9uAgdhc3NldElkDWtlZXBBdEJhbGFuY2UEDWFjdHVhbEJhbGFuY2UDCQAAAgUHYXNzZXRJZAIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUHYXNzZXRJZAMJAAACBQ1hY3R1YWxCYWxhbmNlBQ1rZWVwQXRCYWxhbmNlBQR1bml0AwkBASEBCQEOc3Rha2luZ0VuYWJsZWQBBQdhc3NldElkBQR1bml0BAJzYQkBDnN0YWtpbmdBZGRyZXNzAQUHYXNzZXRJZAMJAGYCBQ1hY3R1YWxCYWxhbmNlBQ1rZWVwQXRCYWxhbmNlCQD8BwQFAnNhAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDGFzc2V0U3RyVG9JZAEFB2Fzc2V0SWQJAGUCBQ1hY3R1YWxCYWxhbmNlBQ1rZWVwQXRCYWxhbmNlBQNuaWwJAPwHBAUCc2ECA2dldAkAzAgCCQBlAgUNa2VlcEF0QmFsYW5jZQUNYWN0dWFsQmFsYW5jZQUDbmlsBQNuaWwBEHdpdGhkcmF3SW50ZXJuYWwEBGZyb20CdG8HYXNzZXRJZAZhbW91bnQEBmNoZWNrcwkBD3ZhbGlkYXRlQXNzZXRJZAEFB2Fzc2V0SWQDCQAAAgUGY2hlY2tzBQZjaGVja3MECnJlYWxTaGFyZXMJAQp1c2VyU2hhcmVzAgUHYXNzZXRJZAUEZnJvbQQLJHQwNzQyNzc3MTEDCQAAAgUGYW1vdW50AP///////////wEECnJlYWxBbW91bnQJAQ5zaGFyZXNUb0Ftb3VudAIFB2Fzc2V0SWQFCnJlYWxTaGFyZXMJAJQKAgUKcmVhbFNoYXJlcwUKcmVhbEFtb3VudAMJAGcCAAAFBmFtb3VudAkAAgECJnByb3RlY3RlZC1yZXNlcnZlOiBub24tcG9zaXRpdmUgYW1vdW50CQCUCgIJAQ5hbW91bnRUb1NoYXJlcwMFB2Fzc2V0SWQFBmFtb3VudAYFBmFtb3VudAQId2RTaGFyZXMIBQskdDA3NDI3NzcxMQJfMQQId2RBbW91bnQIBQskdDA3NDI3NzcxMQJfMgQMbWF5YmVDbGVhblVwAwkAAAIFCnJlYWxTaGFyZXMFCHdkU2hhcmVzCQDMCAIJAQxCb29sZWFuRW50cnkCCQERaGFzUHJvdGVjdGVkU3RvcmUBBQRmcm9tBwkAzAgCCQELRGVsZXRlRW50cnkBCQETcHJvdGVjdGVkQXNzZXRTdG9yZQEFBGZyb20FA25pbAUDbmlsBAdzdGFraW5nCQENc3Rha2luZ0FjdGlvbgIFB2Fzc2V0SWQFCHdkQW1vdW50AwkAAAIFB3N0YWtpbmcFB3N0YWtpbmcJAJQKAgkAzggCBQxtYXliZUNsZWFuVXAJAMwIAgkBCGNoYW5nZUJ5AgkBEXRvdGFsRGVwb3NpdFN0b3JlAQUHYXNzZXRJZAkBAS0BBQh3ZEFtb3VudAkAzAgCCQEIY2hhbmdlQnkCCQEQdG90YWxTaGFyZXNTdG9yZQEFB2Fzc2V0SWQJAQEtAQUId2RTaGFyZXMJAMwIAgkBCGNoYW5nZUJ5AgkBD3VzZXJTaGFyZXNTdG9yZQIFB2Fzc2V0SWQFBGZyb20JAQEtAQUId2RTaGFyZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUCdG8FCHdkQW1vdW50CQEMYXNzZXRTdHJUb0lkAQUHYXNzZXRJZAUDbmlsBQh3ZEFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgEOc3VwcGx5SW50ZXJuYWwCBHVzZXIBaQMJARFoYXNSZWd1bGFyRGVwb3NpdAEFBHVzZXIJAAIBAjtwcm90ZWN0ZWQtcmVzZXJ2ZTogY2FuJ3QgaGF2ZSBwcm90ZWN0ZWQgd2hlbiByZWd1bGFyIGV4aXN0cwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECKnByb3RlY3RlZC1yZXNlcnZlOiBzaW5nbGUgcGF5bWVudCByZXF1aXJlZAQHYXNzZXRJZAkBCmFzc2V0SWRTdHIBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQEBmFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQDCQAAAgUGYW1vdW50AAAFA25pbAQGY2hlY2tzAwkBD3ZhbGlkYXRlQXNzZXRJZAEFB2Fzc2V0SWQJAQlvcEFsbG93ZWQCBQdhc3NldElkAhtzdXBwbHlfcHJvdGVjdGVkX2NvbGxhdGVyYWwHAwkAAAIFBmNoZWNrcwUGY2hlY2tzBA1wcm90ZWN0ZWRGbGFnCQELdmFsdWVPckVsc2UCCQCbCAIFBHRoaXMJARFoYXNQcm90ZWN0ZWRTdG9yZQEFBHVzZXIHBA5wcm90ZWN0ZWRBc3NldAkAnQgCBQR0aGlzCQETcHJvdGVjdGVkQXNzZXRTdG9yZQEFBHVzZXIEC2NvbnNpc3RlbmN5AwUNcHJvdGVjdGVkRmxhZwQHJG1hdGNoMAUOcHJvdGVjdGVkQXNzZXQDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwAwkAAAIFAXMFB2Fzc2V0SWQGCQACAQI7cHJvdGVjdGVkLXJlc2VydmU6IGNhbid0IGhhdmUgbW9yZSB0aGFuIG9uZSBhc3NldCBwcm90ZWN0ZWQJAAIBAiBwcm90ZWN0ZWQtcmVzZXJ2ZTpjbGVhbiB1cCBmaXJzdAQHJG1hdGNoMAUOcHJvdGVjdGVkQXNzZXQDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQACAQIjcHJvdGVjdGVkLXJlc2VydmU6IG1pc2NvbmZpZ3VyYXRpb24GBBBjb25zaXN0ZW5jeUNoZWNrCQEHdGhyb3dJZgIJAQEhAQULY29uc2lzdGVuY3kCDWluY29uc2lzdGVuY3kDCQAAAgUQY29uc2lzdGVuY3lDaGVjawUQY29uc2lzdGVuY3lDaGVjawQJbmV3U2hhcmVzCQEOYW1vdW50VG9TaGFyZXMDBQdhc3NldElkBQZhbW91bnQHBAdzdGFraW5nCQENc3Rha2luZ0FjdGlvbgIFB2Fzc2V0SWQAAAMJAAACBQdzdGFraW5nBQdzdGFraW5nCQDMCAIJAQhjaGFuZ2VCeQIJARF0b3RhbERlcG9zaXRTdG9yZQEFB2Fzc2V0SWQFBmFtb3VudAkAzAgCCQEIY2hhbmdlQnkCCQEQdG90YWxTaGFyZXNTdG9yZQEFB2Fzc2V0SWQFCW5ld1NoYXJlcwkAzAgCCQEIY2hhbmdlQnkCCQEPdXNlclNoYXJlc1N0b3JlAgUHYXNzZXRJZAUEdXNlcgUJbmV3U2hhcmVzCQDMCAIJAQxCb29sZWFuRW50cnkCCQERaGFzUHJvdGVjdGVkU3RvcmUBBQR1c2VyBgkAzAgCCQELU3RyaW5nRW50cnkCCQETcHJvdGVjdGVkQXNzZXRTdG9yZQEFBHVzZXIFB2Fzc2V0SWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkBaQEKaW5pdGlhbGl6ZQENY29uZmlnQWRkcmVzcwkAzAgCCQEQd3JpdGVDb25zdFN0cmluZwIFEmNvbmZpZ0FkZHJlc3NTdG9yZQUNY29uZmlnQWRkcmVzcwUDbmlsAWkBB3Vuc3Rha2UBB2Fzc2V0SWQKAQVhc0ludAEFdmFsdWUEByRtYXRjaDAFBXZhbHVlAwkAAQIFByRtYXRjaDACA0ludAQDaW50BQckbWF0Y2gwBQNpbnQJAAIBAgVfcHI6MQMJAQ5zdGFraW5nRW5hYmxlZAEFB2Fzc2V0SWQJAAIBCQCsAgICKnByb3RlY3RlZC1yZXNlcnZlOiBzdGFraW5nIGlzIGVuYWJsZWQgZm9yIAUHYXNzZXRJZAQCc2EJAQ5zdGFraW5nQWRkcmVzcwEFB2Fzc2V0SWQEBnN0YWtlZAkBBWFzSW50AQkA/AcEBQJzYQIEaW5mbwUDbmlsBQNuaWwDCQAAAgUGc3Rha2VkBQZzdGFrZWQECXVuc3Rha2luZwkA/AcEBQJzYQIDZ2V0CQDMCAIFBnN0YWtlZAUDbmlsBQNuaWwDCQAAAgUJdW5zdGFraW5nBQl1bnN0YWtpbmcJAJQKAgUDbmlsBQZzdGFrZWQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQELYWRkSW50ZXJlc3QABAdhc3NldElkCQEKYXNzZXRJZFN0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAQGY2hlY2tzCQEPdmFsaWRhdGVBc3NldElkAQUHYXNzZXRJZAMJAAACBQZjaGVja3MFBmNoZWNrcwQHc3Rha2luZwkBDXN0YWtpbmdBY3Rpb24CBQdhc3NldElkAAADCQAAAgUHc3Rha2luZwUHc3Rha2luZwQGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAzAgCCQEIY2hhbmdlQnkCCQERdG90YWxEZXBvc2l0U3RvcmUBBQdhc3NldElkBQZhbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQtib3Jyb3dQb3dlcgEEdXNlcgkAlAoCBQNuaWwJAQJicAEFBHVzZXIBaQEGc3VwcGx5AAkBDnN1cHBseUludGVybmFsAgkApQgBCAUBaQZjYWxsZXIFAWkBaQEJc3VwcGx5Rm9yAQR1c2VyBAZjaGVja3MJAQhtYWluT25seQEFAWkDCQAAAgUGY2hlY2tzBQZjaGVja3MJAQ5zdXBwbHlJbnRlcm5hbAIFBHVzZXIFAWkJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQELd2l0aGRyYXdGb3IDBHVzZXIHYXNzZXRJZAZhbW91bnQEBmNoZWNrcwMJAQhtYWluT25seQEFAWkJAQlvcEFsbG93ZWQCBQdhc3NldElkAh13aXRoZHJhd19wcm90ZWN0ZWRfY29sbGF0ZXJhbAcDCQAAAgUGY2hlY2tzBQZjaGVja3MJARB3aXRoZHJhd0ludGVybmFsBAUEdXNlcgUEdXNlcgUHYXNzZXRJZAUGYW1vdW50CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDndpdGhkcmF3VG9NYWluAgR1c2VyB2Fzc2V0SWQEBmNoZWNrcwMJAQhtYWluT25seQEFAWkJAQlvcEFsbG93ZWQCBQdhc3NldElkAh1jb2xsYXBzZV9wcm90ZWN0ZWRfY29sbGF0ZXJhbAcDCQAAAgUGY2hlY2tzBQZjaGVja3MJARB3aXRoZHJhd0ludGVybmFsBAUEdXNlcgkApQgBCAUBaQZjYWxsZXIFB2Fzc2V0SWQA////////////AQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ93aXRoZHJhd1RvTWFpbjIDBHVzZXIHYXNzZXRJZANhbXQEBmNoZWNrcwMJAQhtYWluT25seQEFAWkJAQlvcEFsbG93ZWQCBQdhc3NldElkAhh3aXRoZHJhd1Byb3RlY3RlZFRvTWFpbjIHAwkAAAIFBmNoZWNrcwUGY2hlY2tzCQEQd2l0aGRyYXdJbnRlcm5hbAQFBHVzZXIJAKUIAQgFAWkGY2FsbGVyBQdhc3NldElkBQNhbXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4A3z/R+Q==",
    "chainId": 87,
    "height": 3343356,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7j9MVKoVvcrjGzez3tMkEWvqB1cMUBmvetZ6iLicQbsz
Next: 6MeKBuANR4e1e7XNHPwfvn2UFarieZZJzi7vrptpphcZ

Diff: 
Old
New
Differences
275
275
 
    else fromBase58String(assetId)
276
276
 
277
277
 
278
+
func stakingEnabled (assetId) = valueOrElse(getBoolean(configAddress, ("protected_staking_enabled_" + assetId)), false)
279
+
280
+
281
+
func stakingAddress (assetId) = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, ("protected_staking_config_" + assetId)), ("no staking address for " + assetId))), ("protectedReserve: bad staking address for " + assetId))
282
+
283
+
278
284
 
func stakingAction (assetId,keepAtBalance) = {
279
285
 
    let actualBalance = if ((assetId == "WAVES"))
280
286
 
        then wavesBalance(this).available
281
287
 
        else assetBalance(this, fromBase58String(assetId))
282
288
 
    if ((actualBalance == keepAtBalance))
283
289
 
        then unit
284
-
        else {
285
-
            let stakingEnabled = valueOrElse(getBoolean(configAddress, ("protected_staking_enabled_" + assetId)), false)
286
-
            if (!(stakingEnabled))
287
-
                then unit
288
-
                else {
289
-
                    let stakingAddress = {
290
-
                        let addr = valueOrErrorMessage(getString(configAddress, ("protected_staking_config_" + assetId)), ("no staking address for " + assetId))
291
-
                        valueOrErrorMessage(addressFromString(addr), ((("protectedReserve: bad staking address for " + assetId) + ": ") + addr))
292
-
                        }
293
-
                    if ((actualBalance > keepAtBalance))
294
-
                        then invoke(stakingAddress, "put", nil, [AttachedPayment(assetStrToId(assetId), (actualBalance - keepAtBalance))])
295
-
                        else invoke(stakingAddress, "get", [(keepAtBalance - actualBalance)], nil)
296
-
                    }
297
-
            }
290
+
        else if (!(stakingEnabled(assetId)))
291
+
            then unit
292
+
            else {
293
+
                let sa = stakingAddress(assetId)
294
+
                if ((actualBalance > keepAtBalance))
295
+
                    then invoke(sa, "put", nil, [AttachedPayment(assetStrToId(assetId), (actualBalance - keepAtBalance))])
296
+
                    else invoke(sa, "get", [(keepAtBalance - actualBalance)], nil)
297
+
                }
298
298
 
    }
299
299
 
300
300
 
303
303
 
    if ((checks == checks))
304
304
 
        then {
305
305
 
            let realShares = userShares(assetId, from)
306
-
            let $t074677751 = if ((amount == -1))
306
+
            let $t074277711 = 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 = $t074677751._1
315
-
            let wdAmount = $t074677751._2
314
+
            let wdShares = $t074277711._1
315
+
            let wdAmount = $t074277711._2
316
316
 
            let maybeCleanUp = if ((realShares == wdShares))
317
317
 
                then [BooleanEntry(hasProtectedStore(from), false), DeleteEntry(protectedAssetStore(from))]
318
318
 
                else nil
375
375
 
376
376
 
@Callable(i)
377
377
 
func initialize (configAddress) = [writeConstString(configAddressStore, configAddress)]
378
+
379
+
380
+
381
+
@Callable(i)
382
+
func unstake (assetId) = {
383
+
    func asInt (value) =         match value {
384
+
        case int: Int => 
385
+
            int
386
+
        case _ => 
387
+
            throw("_pr:1")
388
+
    }
389
+
390
+
    if (stakingEnabled(assetId))
391
+
        then throw(("protected-reserve: staking is enabled for " + assetId))
392
+
        else {
393
+
            let sa = stakingAddress(assetId)
394
+
            let staked = asInt(invoke(sa, "info", nil, nil))
395
+
            if ((staked == staked))
396
+
                then {
397
+
                    let unstaking = invoke(sa, "get", [staked], nil)
398
+
                    if ((unstaking == unstaking))
399
+
                        then $Tuple2(nil, staked)
400
+
                        else throw("Strict value is not equal to itself.")
401
+
                    }
402
+
                else throw("Strict value is not equal to itself.")
403
+
            }
404
+
    }
378
405
 
379
406
 
380
407
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
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
66
 
func mainOnly (i) = if (contains(getStringValue(configAddress, "main"), toString(i.caller)))
67
67
 
    then true
68
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_4C(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_4C(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 20")
154
154
 
155
155
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
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 20")
172
172
 
173
173
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
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
194
 
        let $t050635088 = data
195
195
 
        let assetId = $t050635088._1
196
196
 
        let amt = $t050635088._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 20")
210
210
 
211
211
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
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 20")
230
230
 
231
231
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
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
+
func stakingEnabled (assetId) = valueOrElse(getBoolean(configAddress, ("protected_staking_enabled_" + assetId)), false)
279
+
280
+
281
+
func stakingAddress (assetId) = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, ("protected_staking_config_" + assetId)), ("no staking address for " + assetId))), ("protectedReserve: bad staking address for " + assetId))
282
+
283
+
278
284
 
func stakingAction (assetId,keepAtBalance) = {
279
285
 
    let actualBalance = if ((assetId == "WAVES"))
280
286
 
        then wavesBalance(this).available
281
287
 
        else assetBalance(this, fromBase58String(assetId))
282
288
 
    if ((actualBalance == keepAtBalance))
283
289
 
        then unit
284
-
        else {
285
-
            let stakingEnabled = valueOrElse(getBoolean(configAddress, ("protected_staking_enabled_" + assetId)), false)
286
-
            if (!(stakingEnabled))
287
-
                then unit
288
-
                else {
289
-
                    let stakingAddress = {
290
-
                        let addr = valueOrErrorMessage(getString(configAddress, ("protected_staking_config_" + assetId)), ("no staking address for " + assetId))
291
-
                        valueOrErrorMessage(addressFromString(addr), ((("protectedReserve: bad staking address for " + assetId) + ": ") + addr))
292
-
                        }
293
-
                    if ((actualBalance > keepAtBalance))
294
-
                        then invoke(stakingAddress, "put", nil, [AttachedPayment(assetStrToId(assetId), (actualBalance - keepAtBalance))])
295
-
                        else invoke(stakingAddress, "get", [(keepAtBalance - actualBalance)], nil)
296
-
                    }
297
-
            }
290
+
        else if (!(stakingEnabled(assetId)))
291
+
            then unit
292
+
            else {
293
+
                let sa = stakingAddress(assetId)
294
+
                if ((actualBalance > keepAtBalance))
295
+
                    then invoke(sa, "put", nil, [AttachedPayment(assetStrToId(assetId), (actualBalance - keepAtBalance))])
296
+
                    else invoke(sa, "get", [(keepAtBalance - actualBalance)], nil)
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 $t074677751 = if ((amount == -1))
306
+
            let $t074277711 = 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 = $t074677751._1
315
-
            let wdAmount = $t074677751._2
314
+
            let wdShares = $t074277711._1
315
+
            let wdAmount = $t074277711._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
+
379
+
380
+
381
+
@Callable(i)
382
+
func unstake (assetId) = {
383
+
    func asInt (value) =         match value {
384
+
        case int: Int => 
385
+
            int
386
+
        case _ => 
387
+
            throw("_pr:1")
388
+
    }
389
+
390
+
    if (stakingEnabled(assetId))
391
+
        then throw(("protected-reserve: staking is enabled for " + assetId))
392
+
        else {
393
+
            let sa = stakingAddress(assetId)
394
+
            let staked = asInt(invoke(sa, "info", nil, nil))
395
+
            if ((staked == staked))
396
+
                then {
397
+
                    let unstaking = invoke(sa, "get", [staked], nil)
398
+
                    if ((unstaking == unstaking))
399
+
                        then $Tuple2(nil, staked)
400
+
                        else throw("Strict value is not equal to itself.")
401
+
                    }
402
+
                else throw("Strict value is not equal to itself.")
403
+
            }
404
+
    }
378
405
 
379
406
 
380
407
 
381
408
 
@Callable(i)
382
409
 
func addInterest () = {
383
410
 
    let assetId = assetIdStr(i.payments[0].assetId)
384
411
 
    let checks = validateAssetId(assetId)
385
412
 
    if ((checks == checks))
386
413
 
        then {
387
414
 
            let staking = stakingAction(assetId, 0)
388
415
 
            if ((staking == staking))
389
416
 
                then {
390
417
 
                    let amount = i.payments[0].amount
391
418
 
[changeBy(totalDepositStore(assetId), amount)]
392
419
 
                    }
393
420
 
                else throw("Strict value is not equal to itself.")
394
421
 
            }
395
422
 
        else throw("Strict value is not equal to itself.")
396
423
 
    }
397
424
 
398
425
 
399
426
 
400
427
 
@Callable(i)
401
428
 
func borrowPower (user) = $Tuple2(nil, bp(user))
402
429
 
403
430
 
404
431
 
405
432
 
@Callable(i)
406
433
 
func supply () = supplyInternal(toString(i.caller), i)
407
434
 
408
435
 
409
436
 
410
437
 
@Callable(i)
411
438
 
func supplyFor (user) = {
412
439
 
    let checks = mainOnly(i)
413
440
 
    if ((checks == checks))
414
441
 
        then supplyInternal(user, i)
415
442
 
        else throw("Strict value is not equal to itself.")
416
443
 
    }
417
444
 
418
445
 
419
446
 
420
447
 
@Callable(i)
421
448
 
func withdrawFor (user,assetId,amount) = {
422
449
 
    let checks = if (mainOnly(i))
423
450
 
        then opAllowed(assetId, "withdraw_protected_collateral")
424
451
 
        else false
425
452
 
    if ((checks == checks))
426
453
 
        then withdrawInternal(user, user, assetId, amount)
427
454
 
        else throw("Strict value is not equal to itself.")
428
455
 
    }
429
456
 
430
457
 
431
458
 
432
459
 
@Callable(i)
433
460
 
func withdrawToMain (user,assetId) = {
434
461
 
    let checks = if (mainOnly(i))
435
462
 
        then opAllowed(assetId, "collapse_protected_collateral")
436
463
 
        else false
437
464
 
    if ((checks == checks))
438
465
 
        then withdrawInternal(user, toString(i.caller), assetId, -1)
439
466
 
        else throw("Strict value is not equal to itself.")
440
467
 
    }
441
468
 
442
469
 
443
470
 
444
471
 
@Callable(i)
445
472
 
func withdrawToMain2 (user,assetId,amt) = {
446
473
 
    let checks = if (mainOnly(i))
447
474
 
        then opAllowed(assetId, "withdrawProtectedToMain2")
448
475
 
        else false
449
476
 
    if ((checks == checks))
450
477
 
        then withdrawInternal(user, toString(i.caller), assetId, amt)
451
478
 
        else throw("Strict value is not equal to itself.")
452
479
 
    }
453
480
 
454
481
 

github/deemru/w8io/786bc32 
55.79 ms ◑