2022.09.11 14:06 [3289877] smart account 3PB6dcUYwDt6WHq6sma4ed7iUvEKvuP4b6B > SELF 0.00000000 Waves

{ "type": 13, "id": "7AczCZXrRwpogzB1SuCxCc7mcW8s2edNmKD9CBVEAyJs", "fee": 1000000, "feeAssetId": null, "timestamp": 1662894415199, "version": 2, "chainId": 87, "sender": "3PB6dcUYwDt6WHq6sma4ed7iUvEKvuP4b6B", "senderPublicKey": "ATp1V1XASFYPLCynegeF7tXkZQCQ7wUxGU94d9iADA9x", "proofs": [ "2ovw7MpyQbord5v1xevhz66R5jJvWRJKLXuCHDQXNFvJcnAw3qz2vASeAA22R3i597pL8Yo7gz83g1YbWedgWRQv" ], "script": "base64:BgIjCAISABIAEgASAwoBBBIAEgASBAoCAQQSAwoBBBIDCgEIEgAnAAtrZXlNQWNjUEtleQIJbWFzdGVyX3BrAQxnZXRDRkFkZHJlc3MACQERQGV4dHJOYXRpdmUoMTA2MikBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEdGhpcwIKQ0ZfQUREUkVTUwIUQ0ZfQUREUkVTUyBub3QgZm91bmQBDXRyeUdldEJvb2xlYW4BA2tleQQHJG1hdGNoMAkAmwgCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIHQm9vbGVhbgQBYgUHJG1hdGNoMAUBYgcACG1BY2NQS2V5CQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCCQEMZ2V0Q0ZBZGRyZXNzAAULa2V5TUFjY1BLZXkJAKwCAgULa2V5TUFjY1BLZXkCCiBub3QgZm91bmQACG1BY2NBZGRyCQCnCAEFCG1BY2NQS2V5ARFnZXRDb3Vwb25zQWRkcmVzcwAJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDUzKQIFCG1BY2NBZGRyAg9DT1VQT05TX0FERFJFU1MAEGtleVRvdGFsQ29tcG91bmQCDnRvdGFsX2NvbXBvdW5kABFrZXlTdGFrZWRDb21wb3VuZAIPc3Rha2VkX2NvbXBvdW5kAAlrZXlMYXN0VlACEmxhc3RfdmlydHVhbF9wcmljZQAHVlBTY2FsZQCAwtcvARVrZXlTdGFrZWRDb21wb3VuZFVzZXIBBHVzZXIJAKwCAgkArAICCQClCAEFBHVzZXICAV8FEWtleVN0YWtlZENvbXBvdW5kARBjYWxjVmlydHVhbFByaWNlAgt0b3RhbFN0YWtlZAV0b3RhbAMJAAACBQV0b3RhbAAAAAEDCQAAAgULdG90YWxTdGFrZWQAAAABCQBrAwUFdG90YWwFB1ZQU2NhbGUFC3RvdGFsU3Rha2VkAAVTY2FsZQCAwtcvAQ9rZXlTdGFrZWRBbW91bnQBB2FkZHJlc3MJAKwCAgkApQgBBQdhZGRyZXNzAgxfZmFybV9zdGFrZWQBFGtleUxhc3RDaGVja0ludGVyZXN0AQdhZGRyZXNzCQCsAgIJAKUIAQUHYWRkcmVzcwITX2xhc3RDaGVja19pbnRlcmVzdAENa2V5RWdnQ2xhaW1lZAEHYWRkcmVzcwkArAICCQClCAEFB2FkZHJlc3MCCF9jbGFpbWVkABVrZXlHbG9iYWxMYXN0SW50ZXJlc3QCGWdsb2JhbF9sYXN0Q2hlY2tfaW50ZXJlc3QAD2tleUdsb2JhbFN0YWtlZAINZ2xvYmFsX3N0YWtlZAASa2V5R2xvYmFsRWdnRWFybmVkAg9nbG9iYWxfZWFybmluZ3MAEmtMb2NrZWRJbnZlc3RtZW50cwISbG9ja2VkX2ludmVzdG1lbnRzARZpc0NvbGxlY3RpdmVGYXJtTG9ja2VkAAQHJG1hdGNoMAkAmwgCCQEMZ2V0Q0ZBZGRyZXNzAAUSa0xvY2tlZEludmVzdG1lbnRzAwkAAQIFByRtYXRjaDACB0Jvb2xlYW4EAWIFByRtYXRjaDAFAWIHAQhnZXRFZ2dJZAAJANkEAQkBEUBleHRyTmF0aXZlKDEwNTMpAgUIbUFjY0FkZHICDEVHR19BU1NFVF9JRAEXc2V0Q0ZBZGRyZXNzQW5kSW5pdGlhdGUBB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgIKQ0ZfQUREUkVTUwUHYWRkcmVzcwkAzAgCCQEMSW50ZWdlckVudHJ5AgUVa2V5R2xvYmFsTGFzdEludGVyZXN0AAEFA25pbAEPZ2V0U2hhcmVBc3NldElkAAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCCQEMZ2V0Q0ZBZGRyZXNzAAIOU0hBUkVfQVNTRVRfSUQBFXRyeUdldEludGVnZXJFeHRlcm5hbAIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJoIAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQ10cnlHZXRJbnRlZ2VyAQNrZXkJARV0cnlHZXRJbnRlZ2VyRXh0ZXJuYWwCBQR0aGlzBQNrZXkBDHRyeUdldFN0cmluZwEDa2V5BAckbWF0Y2gwCQCdCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWEFByRtYXRjaDAFAWECAAEQZ2V0Vm90ZUhlaWdodEtleQACEVZPVEVfSEVJR0hUX1NUQVJUAQtnZXREdXJhdGlvbgADCQAAAgkBFXRyeUdldEludGVnZXJFeHRlcm5hbAIFCG1BY2NBZGRyAg1WT1RFX0RVUkFUSU9OAAAAkE4JARV0cnlHZXRJbnRlZ2VyRXh0ZXJuYWwCBQhtQWNjQWRkcgINVk9URV9EVVJBVElPTgEQZ2V0Vm90ZUJ5VXNlcktleQIEdXNlcgZoZWlnaHQJAKwCAgkArAICCQCsAgICBVZPVEVfBQR1c2VyAgFfBQZoZWlnaHQBFWdldFRvdGFsVm90ZUJ5VHlwZUtleQIEdHlwZQZoZWlnaHQJAKwCAgkArAICCQCsAgICC1ZPVEVfVE9UQUxfBQR0eXBlAgFfBQZoZWlnaHQBD2dldFRvdGFsVm90ZUtleQEGaGVpZ2h0CQCsAgICC1ZPVEVfVE9UQUxfBQZoZWlnaHQBDXJlc3VsdFZvdGVLZXkBBmhlaWdodAkArAICAgtMSVFVSURBVEVEXwUGaGVpZ2h0AQ1xdW9ydW1Wb3RlS2V5AQZoZWlnaHQJAKwCAgIHUVVPUlVNXwUGaGVpZ2h0ARJjbGFpbVN0YWtpbmdSZXN1bHQBB2FkZHJlc3MED2N1cnJlbnRJbnRlcmVzdAkBDXRyeUdldEludGVnZXIBBRVrZXlHbG9iYWxMYXN0SW50ZXJlc3QEEWxhc3RDaGVja0ludGVyZXN0CQENdHJ5R2V0SW50ZWdlcgEJARRrZXlMYXN0Q2hlY2tJbnRlcmVzdAEFB2FkZHJlc3MEDHN0YWtlZEFtb3VudAkBDXRyeUdldEludGVnZXIBCQEPa2V5U3Rha2VkQW1vdW50AQUHYWRkcmVzcwQGcmV3YXJkAwkAZgIFEWxhc3RDaGVja0ludGVyZXN0AAAJAGsDCQBlAgUPY3VycmVudEludGVyZXN0BRFsYXN0Q2hlY2tJbnRlcmVzdAUMc3Rha2VkQW1vdW50BQVTY2FsZQAABAh0cmFuc2ZlcgMJAGYCBQZyZXdhcmQAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQdhZGRyZXNzBQZyZXdhcmQJAQhnZXRFZ2dJZAAFA25pbAUDbmlsCQDOCAIFCHRyYW5zZmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEUa2V5TGFzdENoZWNrSW50ZXJlc3QBBQdhZGRyZXNzBQ9jdXJyZW50SW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAQ1rZXlFZ2dDbGFpbWVkAQUHYWRkcmVzcwkAZAIJAQ10cnlHZXRJbnRlZ2VyAQkBDWtleUVnZ0NsYWltZWQBBQdhZGRyZXNzBQZyZXdhcmQFA25pbAESaGFuZGxlU3Rha2luZ1RvcFVwAQZhbW91bnQED2N1cnJlbnRJbnRlcmVzdAkBDXRyeUdldEludGVnZXIBBRVrZXlHbG9iYWxMYXN0SW50ZXJlc3QEEXRvdGFsU3Rha2VkQW1vdW50CQENdHJ5R2V0SW50ZWdlcgEFD2tleUdsb2JhbFN0YWtlZAQNaW50ZXJlc3REZWx0YQMJAGYCBRF0b3RhbFN0YWtlZEFtb3VudAAACQBrAwUGYW1vdW50BQVTY2FsZQURdG90YWxTdGFrZWRBbW91bnQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSa2V5R2xvYmFsRWdnRWFybmVkCQBkAgkBDXRyeUdldEludGVnZXIBBRJrZXlHbG9iYWxFZ2dFYXJuZWQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVa2V5R2xvYmFsTGFzdEludGVyZXN0CQBkAgUPY3VycmVudEludGVyZXN0BQ1pbnRlcmVzdERlbHRhBQNuaWwBDGFkZFZvdGVQb3dlcgQGY2FsbGVyAWgEdm90ZQl2b3RlUG93ZXIDAwkAAAIFAWgAAAYJAAACBQR2b3RlAgAFA25pbAMJAGYCBQZoZWlnaHQJAGQCBQFoCQELZ2V0RHVyYXRpb24ACQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICM0NBVlA6IFZvdGluZyBpcyBmaW5pc2hlZCwgcGxlYXNlIGZpbmFsaXplIHRoZSB2b3RlOwIMIEFyZ3VtZW50czogBQZjYWxsZXICAiwgCQCkAwEFAWgCAiwgBQR2b3RlAgIsIAkApAMBBQl2b3RlUG93ZXIED3ZvdGVUb3RhbEJ5VHlwZQkBDXRyeUdldEludGVnZXIBCQEVZ2V0VG90YWxWb3RlQnlUeXBlS2V5AgUEdm90ZQkApAMBBQFoBAl0b3RhbFZvdGUJAQ10cnlHZXRJbnRlZ2VyAQkBD2dldFRvdGFsVm90ZUtleQEJAKQDAQUBaAkAzAgCCQELU3RyaW5nRW50cnkCCQEQZ2V0Vm90ZUJ5VXNlcktleQIFBmNhbGxlcgkApAMBBQFoBQR2b3RlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVZ2V0VG90YWxWb3RlQnlUeXBlS2V5AgUEdm90ZQkApAMBBQFoCQBkAgUPdm90ZVRvdGFsQnlUeXBlBQl2b3RlUG93ZXIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQ9nZXRUb3RhbFZvdGVLZXkBCQCkAwEFAWgJAGQCBQl0b3RhbFZvdGUFCXZvdGVQb3dlcgUDbmlsARNhZGFwdFZvdGVQb3dlclN0YWtlAgZjYWxsZXIJdm90ZVBvd2VyBAp2b3RlSGVpZ2h0CQENdHJ5R2V0SW50ZWdlcgEJARBnZXRWb3RlSGVpZ2h0S2V5AAQQdm90ZUJ5VXNlclN0cmluZwkBDHRyeUdldFN0cmluZwEJARBnZXRWb3RlQnlVc2VyS2V5AgUGY2FsbGVyCQCkAwEFCnZvdGVIZWlnaHQJAQxhZGRWb3RlUG93ZXIEBQZjYWxsZXIFCnZvdGVIZWlnaHQFEHZvdGVCeVVzZXJTdHJpbmcFCXZvdGVQb3dlcgEMaXNMaXF1aWRhdGVkAAQKdm90ZUhlaWdodAkBDXRyeUdldEludGVnZXIBCQEQZ2V0Vm90ZUhlaWdodEtleQADCQAAAgUKdm90ZUhlaWdodAAABwkBDXRyeUdldEJvb2xlYW4BCQENcmVzdWx0Vm90ZUtleQEJAKQDAQUKdm90ZUhlaWdodAoBaQERY2xhaW1SZWZ1bmRTdGFrZWQAAwkAAAIJAQxpc0xpcXVpZGF0ZWQABwkAAgECF0NDUlM6IGNmIG5vdCBsaXF1aWRhdGVkBAphZGRyZXNzU3RyCQClCAEIBQFpBmNhbGxlcgQMc3Rha2VkQW1vdW50CQENdHJ5R2V0SW50ZWdlcgEJAQ9rZXlTdGFrZWRBbW91bnQBCAUBaQZjYWxsZXIECnZvdGVIZWlnaHQJAQ10cnlHZXRJbnRlZ2VyAQkBEGdldFZvdGVIZWlnaHRLZXkABBB2b3RlQnlVc2VyU3RyaW5nCQEMdHJ5R2V0U3RyaW5nAQkBEGdldFZvdGVCeVVzZXJLZXkCBQphZGRyZXNzU3RyCQCkAwEFCnZvdGVIZWlnaHQECm11bHRpcGxpZXIDCQAAAgUQdm90ZUJ5VXNlclN0cmluZwIAAAcACgQGcmVmdW5kCQBoAgkAaQIFDHN0YWtlZEFtb3VudAAKBQptdWx0aXBsaWVyBAtjb3Vwb25zQ2FsbAkA/AcECQERZ2V0Q291cG9uc0FkZHJlc3MAAghDRlJlZnVuZAkAzAgCBQphZGRyZXNzU3RyCQDMCAIFBnJlZnVuZAUDbmlsBQNuaWwDCQAAAgULY291cG9uc0NhbGwFC2NvdXBvbnNDYWxsCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEPa2V5U3Rha2VkQW1vdW50AQgFAWkGY2FsbGVyAAAJAMwIAgkBBEJ1cm4CCQEPZ2V0U2hhcmVBc3NldElkAAUMc3Rha2VkQW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQETY2xhaW1SZWZ1bmRVbnN0YWtlZAADCQAAAgkBDGlzTGlxdWlkYXRlZAAHCQACAQIXQ0NSVTogY2Ygbm90IGxpcXVpZGF0ZWQEDHNoYXJlVG9rZW5JZAkBD2dldFNoYXJlQXNzZXRJZAADCQBmAgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIcQ1NGVDogVG8gbWFueSBwYXltZW50cyBhZGRlZAMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUMc2hhcmVUb2tlbklkCQACAQITQ1NGVDogV3JvbmcgYXNzZXRJZAQGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAMJAAACBQZhbW91bnQAAAkAAgECKkNTRlQ6IFBsZWFzZSBhdHRhY2ggcG9zaXRpdmUgYXNzZXQgYW1vdW50IQQKYWRkcmVzc1N0cgkApQgBCAUBaQZjYWxsZXIECm11bHRpcGxpZXIABwQGcmVmdW5kCQBoAgkAaQIFBmFtb3VudAAKBQptdWx0aXBsaWVyBAtjb3Vwb25zQ2FsbAkA/AcECQERZ2V0Q291cG9uc0FkZHJlc3MAAghDRlJlZnVuZAkAzAgCBQphZGRyZXNzU3RyCQDMCAIFBnJlZnVuZAUDbmlsBQNuaWwDCQAAAgULY291cG9uc0NhbGwFC2NvdXBvbnNDYWxsCQDMCAIJAQRCdXJuAgkBD2dldFNoYXJlQXNzZXRJZAAFBmFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCXN0YXJ0Vm90ZQADCQECIT0CCAUBaQZjYWxsZXIFCG1BY2NBZGRyCQACAQI5Q1NWOiBPbmx5IHRoZSBhZG1pbiBjYW4gc3RhcnQgYSBsaXF1aWRhdGlvbiB2b3RlIGZvciBub3chAwkBAiE9AgkBDXRyeUdldEludGVnZXIBCQEQZ2V0Vm90ZUhlaWdodEtleQAAAAkAAgECJUNTVjogVGhlcmUgaXMgYWxyZWFkeSBhIHZvdGUgcnVubmluZyEJAMwIAgkBDEludGVnZXJFbnRyeQICEVZPVEVfSEVJR0hUX1NUQVJUBQZoZWlnaHQFA25pbAFpAQ92b3RlVG9MaXF1aWRhdGUBBHZvdGUECXZvdGVQb3dlcgkBDXRyeUdldEludGVnZXIBCQEPa2V5U3Rha2VkQW1vdW50AQgFAWkGY2FsbGVyAwkAAAIFCXZvdGVQb3dlcgAACQACAQIzQ1ZUTDogUGxlYXNlIHN0YWtlIHNvbWUgdG9rZW5zIGJlZm9yZSB5b3UgY2FuIHZvdGUhBAx2b3RlQXNTdHJpbmcJAKUDAQUEdm90ZQQKdm90ZUhlaWdodAkBDXRyeUdldEludGVnZXIBCQEQZ2V0Vm90ZUhlaWdodEtleQADCQBmAgUGaGVpZ2h0CQBkAgUKdm90ZUhlaWdodAkBC2dldER1cmF0aW9uAAkAAgECM0NWVEw6IFZvdGluZyBpcyBmaW5pc2hlZCwgcGxlYXNlIGZpbmFsaXplIHRoZSB2b3RlIQQQdm90ZUJ5VXNlclN0cmluZwkBDHRyeUdldFN0cmluZwEJARBnZXRWb3RlQnlVc2VyS2V5AgkApQgBCAUBaQZjYWxsZXIJAKQDAQUKdm90ZUhlaWdodAMJAQIhPQIFEHZvdGVCeVVzZXJTdHJpbmcCAAkAAgECI0NWVEw6IFlvdSBjYW4gbm90IGNoYW5nZSB5b3VyIHZvdGUhCQEMYWRkVm90ZVBvd2VyBAkApQgBCAUBaQZjYWxsZXIFCnZvdGVIZWlnaHQFDHZvdGVBc1N0cmluZwUJdm90ZVBvd2VyAWkBDGZpbmFsaXplVm90ZQAECnZvdGVIZWlnaHQJAQ10cnlHZXRJbnRlZ2VyAQkBEGdldFZvdGVIZWlnaHRLZXkAAwkAZgIJAGQCBQp2b3RlSGVpZ2h0CQELZ2V0RHVyYXRpb24ABQZoZWlnaHQJAAIBAhxDRlY6IFZvdGluZyBpcyBub3QgZmluaXNoZWQhBBFzaGFyZUFzc2V0SWRUb3RhbAgJAQV2YWx1ZQEJAOwHAQkBD2dldFNoYXJlQXNzZXRJZAAIcXVhbnRpdHkEEXRvdGFsU3Rha2VkQW1vdW50CQENdHJ5R2V0SW50ZWdlcgEFD2tleUdsb2JhbFN0YWtlZAQJdG90YWxWb3RlCQENdHJ5R2V0SW50ZWdlcgEJAQ9nZXRUb3RhbFZvdGVLZXkBCQCkAwEFCnZvdGVIZWlnaHQEBnF1b3J1bQkAaQIFCXRvdGFsVm90ZQkAaQIFEXNoYXJlQXNzZXRJZFRvdGFsAGQEDnZvdGVUb3RhbEJ5WWVzCQENdHJ5R2V0SW50ZWdlcgEJARVnZXRUb3RhbFZvdGVCeVR5cGVLZXkCAgR0cnVlCQCkAwEFCnZvdGVIZWlnaHQEDXZvdGVUb3RhbEJ5Tm8JAQ10cnlHZXRJbnRlZ2VyAQkBFWdldFRvdGFsVm90ZUJ5VHlwZUtleQICBWZhbHNlCQCkAwEFCnZvdGVIZWlnaHQECmxpcXVpZGF0ZWQDCQBmAgAjBQZxdW9ydW0GAwkAZgIFDnZvdGVUb3RhbEJ5WWVzBQ12b3RlVG90YWxCeU5vBgcECHJlc2V0S2V5AwUKbGlxdWlkYXRlZAUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEQZ2V0Vm90ZUhlaWdodEtleQAAAAUDbmlsCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQ1xdW9ydW1Wb3RlS2V5AQkApAMBBQp2b3RlSGVpZ2h0BQZxdW9ydW0JAMwIAgkBDEJvb2xlYW5FbnRyeQIJAQ1yZXN1bHRWb3RlS2V5AQkApAMBBQp2b3RlSGVpZ2h0BQpsaXF1aWRhdGVkBQNuaWwFCHJlc2V0S2V5AWkBC3RvcFVwUmV3YXJkAAMJAQxpc0xpcXVpZGF0ZWQACQACAQIXQ1RVUjogQ0YgaXMgbGlxdWlkYXRlZCEECmVnZ0Fzc2V0SWQJAQhnZXRFZ2dJZAADCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFCmVnZ0Fzc2V0SWQJAAIBAipDVFVQOiBXcm9uZyBhc3NldElkLCBwYXltZW50IHNob3VsZCBiZSBFR0cEEHJlc0hhbmRsZVN0YWtpbmcJARJoYW5kbGVTdGFraW5nVG9wVXABCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkAlAoCBRByZXNIYW5kbGVTdGFraW5nBgFpARJ3aXRoZHJhd0Zhcm1Ub2tlbnMCBmFtb3VudAhjb21wb3VuZAMJAQxpc0xpcXVpZGF0ZWQACQACAQIXQ1RVUjogQ0YgaXMgbGlxdWlkYXRlZCEDCQBmAgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIfQ1dGVDogUGxlYXNlIGRvbid0IGFkZCBwYXltZW50cwQMc2hhcmVUb2tlbklkCQEPZ2V0U2hhcmVBc3NldElkAAMFCGNvbXBvdW5kBAZzdGFrZWQJAQ10cnlHZXRJbnRlZ2VyAQURa2V5U3Rha2VkQ29tcG91bmQEBXRvdGFsCQENdHJ5R2V0SW50ZWdlcgEFEGtleVRvdGFsQ29tcG91bmQEAnZwCQEQY2FsY1ZpcnR1YWxQcmljZQIFBnN0YWtlZAUFdG90YWwEEmtleVN0YWtlZENvbXBvdW5kVQkBFWtleVN0YWtlZENvbXBvdW5kVXNlcgEIBQFpBmNhbGxlcgQOcGVyc29uYWxTdGFrZWQJAQ10cnlHZXRJbnRlZ2VyAQUSa2V5U3Rha2VkQ29tcG91bmRVBAl2aXJ0dWFsV2QDCQAAAgUGYW1vdW50AP///////////wEFDnBlcnNvbmFsU3Rha2VkCQBrAwUGYW1vdW50BQdWUFNjYWxlBQJ2cAQIYW1vdW50V2QDCQAAAgUGYW1vdW50AP///////////wEJAGsDBQl2aXJ0dWFsV2QFAnZwBQdWUFNjYWxlBQZhbW91bnQDCQBmAgUJdmlydHVhbFdkBQ5wZXJzb25hbFN0YWtlZAkAAgECLkNXRlQ6IFlvdSBkb24ndCBoYXZlIHNvIG11Y2ggZnVuZHMgdG8gd2l0aGRyYXcJAMwIAgkBDEludGVnZXJFbnRyeQIFEmtleVN0YWtlZENvbXBvdW5kVQkAZQIFDnBlcnNvbmFsU3Rha2VkBQl2aXJ0dWFsV2QJAMwIAgkBDEludGVnZXJFbnRyeQIFEWtleVN0YWtlZENvbXBvdW5kCQBlAgUGc3Rha2VkBQl2aXJ0dWFsV2QJAMwIAgkBDEludGVnZXJFbnRyeQIFEGtleVRvdGFsQ29tcG91bmQJAGUCBQV0b3RhbAUIYW1vdW50V2QJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQhhbW91bnRXZAUMc2hhcmVUb2tlbklkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlMYXN0VlAFAnZwCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhVsYXN0X3ZpcnRfY29tcG91bmRfd2QFCXZpcnR1YWxXZAkAzAgCCQEMSW50ZWdlckVudHJ5AgIXbGFzdF9hbW91bnRfY29tcG91bmRfd2QFCGFtb3VudFdkBQNuaWwECmFkZHJlc3NTdHIJAKUIAQgFAWkGY2FsbGVyBAxzdGFrZWRBbW91bnQJAQ10cnlHZXRJbnRlZ2VyAQkBD2tleVN0YWtlZEFtb3VudAEIBQFpBmNhbGxlcgQId2RBbW91bnQDCQAAAgUGYW1vdW50AP///////////wEFDHN0YWtlZEFtb3VudAUGYW1vdW50AwkAZgIFCHdkQW1vdW50BQxzdGFrZWRBbW91bnQJAAIBAiVDV0ZUOiB5b3UgZG9uJ3QgaGF2ZSB0b2tlbnMgYXZhaWxhYmxlBAl2b3RlUG93ZXIJARNhZGFwdFZvdGVQb3dlclN0YWtlAgkApQgBCAUBaQZjYWxsZXIJAQEtAQUId2RBbW91bnQJAM4IAgkAzggCCQESY2xhaW1TdGFraW5nUmVzdWx0AQgFAWkGY2FsbGVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEPa2V5U3Rha2VkQW1vdW50AQgFAWkGY2FsbGVyCQBlAgUMc3Rha2VkQW1vdW50BQh3ZEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUPa2V5R2xvYmFsU3Rha2VkCQBlAgkBDXRyeUdldEludGVnZXIBBQ9rZXlHbG9iYWxTdGFrZWQFCHdkQW1vdW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUId2RBbW91bnQFDHNoYXJlVG9rZW5JZAkAzAgCCQEMSW50ZWdlckVudHJ5AgIPbGFzdF9zdGFraW5nX3dkBQh3ZEFtb3VudAUDbmlsBQl2b3RlUG93ZXIBaQEPc3Rha2VGYXJtVG9rZW5zAQhjb21wb3VuZAMJAQxpc0xpcXVpZGF0ZWQACQACAQIXQ1NGVDogQ0YgaXMgbGlxdWlkYXRlZCEEDHNoYXJlVG9rZW5JZAkBD2dldFNoYXJlQXNzZXRJZAADCQBmAgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIdQ1NGVDogVG9vIG1hbnkgcGF5bWVudHMgYWRkZWQDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFDHNoYXJlVG9rZW5JZAkAAgECE0NTRlQ6IFdyb25nIGFzc2V0SWQEBmFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQDCQAAAgUGYW1vdW50AAAJAAIBAipDU0ZUOiBQbGVhc2UgYXR0YWNoIHBvc2l0aXZlIGFzc2V0IGFtb3VudCEDBQhjb21wb3VuZAkAAgECHENTRlQ6IENvbXBvdW5kIHdhcyBkaXNhYmxlZCEECmFkZHJlc3NTdHIJAKUIAQgFAWkGY2FsbGVyBBF0b3RhbFN0YWtlZEFtb3VudAkBDXRyeUdldEludGVnZXIBBQ9rZXlHbG9iYWxTdGFrZWQDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFDHNoYXJlVG9rZW5JZAkAAgECGkNTRlQ6IHdyb25nIGFzc2V0IGF0dGFjaGVkBAl2b3RlUG93ZXIJARNhZGFwdFZvdGVQb3dlclN0YWtlAgkApQgBCAUBaQZjYWxsZXIFBmFtb3VudAkAzggCCQDOCAIJARJjbGFpbVN0YWtpbmdSZXN1bHQBCAUBaQZjYWxsZXIJAMwIAgkBDEludGVnZXJFbnRyeQIFD2tleUdsb2JhbFN0YWtlZAkAZAIFEXRvdGFsU3Rha2VkQW1vdW50BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAQ9rZXlTdGFrZWRBbW91bnQBCAUBaQZjYWxsZXIJAGQCCQENdHJ5R2V0SW50ZWdlcgEJAQ9rZXlTdGFrZWRBbW91bnQBCAUBaQZjYWxsZXIFBmFtb3VudAUDbmlsBQl2b3RlUG93ZXIBaQEMaW5pdGlhdGVEYXBwAQdhZGRyZXNzAwkBDGlzTGlxdWlkYXRlZAAJAAIBAhZDSUQ6IENGIGlzIGxpcXVpZGF0ZWQhAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIrQ0lEOiBDYW4gYmUgY2FsbGVkIG9ubHkgYnkgdGhlIGRhcHAtYWNjb3VudAkBF3NldENGQWRkcmVzc0FuZEluaXRpYXRlAQUHYWRkcmVzcwFpAQtjbGFpbVJld2FyZAADCQEMaXNMaXF1aWRhdGVkAAkAAgECFkNDUjogQ0YgaXMgbGlxdWlkYXRlZCEDCQBmAgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIeQ0NSOiBQbGVhc2UgZG9uJ3QgYWRkIHBheW1lbnRzCQESY2xhaW1TdGFraW5nUmVzdWx0AQgFAWkGY2FsbGVyADDbxms=", "height": 3289877, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 3B4i5Si1MKNLct7Y1Xdde3kGCf9RVDBvTd9uy27LJT6Z Next: 6JA92oQpfXjKcpujX3oCkat9DQqUx6BRWEtyzpZjzjor Diff:
OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let keyMAccPKey = "master_pk"
55
6-func getCFAddress () = addressFromStringValue(getStringValue(this, "CF_ADDRESS"))
6+func getCFAddress () = addressFromStringValue(valueOrErrorMessage(getString(this, "CF_ADDRESS"), "CF_ADDRESS not found"))
77
88
9-let mAccPKey = fromBase58String(getStringValue(getCFAddress(), keyMAccPKey))
9+func tryGetBoolean (key) = match getBoolean(this, key) {
10+ case b: Boolean =>
11+ b
12+ case _ =>
13+ false
14+}
15+
16+
17+let mAccPKey = fromBase58String(valueOrErrorMessage(getString(getCFAddress(), keyMAccPKey), (keyMAccPKey + " not found")))
1018
1119 let mAccAddr = addressFromPublicKey(mAccPKey)
20+
21+func getCouponsAddress () = addressFromStringValue(getStringValue(mAccAddr, "COUPONS_ADDRESS"))
22+
1223
1324 let keyTotalCompound = "total_compound"
1425
6475 func getShareAssetId () = fromBase58String(getStringValue(getCFAddress(), "SHARE_ASSET_ID"))
6576
6677
67-func tryGetInteger (key) = match getInteger(this, key) {
78+func tryGetIntegerExternal (address,key) = match getInteger(address, key) {
6879 case b: Int =>
6980 b
7081 case _ =>
7182 0
7283 }
84+
85+
86+func tryGetInteger (key) = tryGetIntegerExternal(this, key)
7387
7488
7589 func tryGetString (key) = match getString(this, key) {
7892 case _ =>
7993 ""
8094 }
95+
96+
97+func getVoteHeightKey () = "VOTE_HEIGHT_START"
98+
99+
100+func getDuration () = if ((tryGetIntegerExternal(mAccAddr, "VOTE_DURATION") == 0))
101+ then 10000
102+ else tryGetIntegerExternal(mAccAddr, "VOTE_DURATION")
103+
104+
105+func getVoteByUserKey (user,height) = ((("VOTE_" + user) + "_") + height)
106+
107+
108+func getTotalVoteByTypeKey (type,height) = ((("VOTE_TOTAL_" + type) + "_") + height)
109+
110+
111+func getTotalVoteKey (height) = ("VOTE_TOTAL_" + height)
112+
113+
114+func resultVoteKey (height) = ("LIQUIDATED_" + height)
115+
116+
117+func quorumVoteKey (height) = ("QUORUM_" + height)
81118
82119
83120 func claimStakingResult (address) = {
94131 }
95132
96133
97-func handleCompoundTopUp (amount) = {
98- let total = (tryGetInteger(keyTotalCompound) + amount)
99- let staked = tryGetInteger(keyStakedCompound)
100- let vp = calcVirtualPrice(staked, total)
101-[IntegerEntry(keyTotalCompound, total), IntegerEntry(keyLastVP, vp)]
102- }
103-
104-
105134 func handleStakingTopUp (amount) = {
106135 let currentInterest = tryGetInteger(keyGlobalLastInterest)
107136 let totalStakedAmount = tryGetInteger(keyGlobalStaked)
112141 }
113142
114143
144+func addVotePower (caller,h,vote,votePower) = if (if ((h == 0))
145+ then true
146+ else (vote == ""))
147+ then nil
148+ else if ((height > (h + getDuration())))
149+ then throw((((((((("CAVP: Voting is finished, please finalize the vote;" + " Arguments: ") + caller) + ", ") + toString(h)) + ", ") + vote) + ", ") + toString(votePower)))
150+ else {
151+ let voteTotalByType = tryGetInteger(getTotalVoteByTypeKey(vote, toString(h)))
152+ let totalVote = tryGetInteger(getTotalVoteKey(toString(h)))
153+[StringEntry(getVoteByUserKey(caller, toString(h)), vote), IntegerEntry(getTotalVoteByTypeKey(vote, toString(h)), (voteTotalByType + votePower)), IntegerEntry(getTotalVoteKey(toString(h)), (totalVote + votePower))]
154+ }
155+
156+
157+func adaptVotePowerStake (caller,votePower) = {
158+ let voteHeight = tryGetInteger(getVoteHeightKey())
159+ let voteByUserString = tryGetString(getVoteByUserKey(caller, toString(voteHeight)))
160+ addVotePower(caller, voteHeight, voteByUserString, votePower)
161+ }
162+
163+
164+func isLiquidated () = {
165+ let voteHeight = tryGetInteger(getVoteHeightKey())
166+ if ((voteHeight == 0))
167+ then false
168+ else tryGetBoolean(resultVoteKey(toString(voteHeight)))
169+ }
170+
171+
115172 @Callable(i)
116-func topUpReward () = {
117- let eggAssetId = getEggId()
118- let shareTokenId = getShareAssetId()
119- if ((i.payments[0].assetId != eggAssetId))
120- then throw("Wrong assetId, first payment should be EGG")
121- else if ((i.payments[1].assetId != shareTokenId))
122- then throw("Wrong assetId, second payment should be farm tokens")
123- else {
124- let resHandleStaking = handleStakingTopUp(i.payments[0].amount)
125- let resHandleCompound = handleCompoundTopUp(i.payments[1].amount)
126- $Tuple2((resHandleCompound ++ resHandleStaking), true)
127- }
173+func claimRefundStaked () = if ((isLiquidated() == false))
174+ then throw("CCRS: cf not liquidated")
175+ else {
176+ let addressStr = toString(i.caller)
177+ let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
178+ let voteHeight = tryGetInteger(getVoteHeightKey())
179+ let voteByUserString = tryGetString(getVoteByUserKey(addressStr, toString(voteHeight)))
180+ let multiplier = if ((voteByUserString == ""))
181+ then 7
182+ else 10
183+ let refund = ((stakedAmount / 10) * multiplier)
184+ let couponsCall = invoke(getCouponsAddress(), "CFRefund", [addressStr, refund], nil)
185+ if ((couponsCall == couponsCall))
186+ then [IntegerEntry(keyStakedAmount(i.caller), 0), Burn(getShareAssetId(), stakedAmount)]
187+ else throw("Strict value is not equal to itself.")
188+ }
189+
190+
191+
192+@Callable(i)
193+func claimRefundUnstaked () = if ((isLiquidated() == false))
194+ then throw("CCRU: cf not liquidated")
195+ else {
196+ let shareTokenId = getShareAssetId()
197+ if ((size(i.payments) > 1))
198+ then throw("CSFT: To many payments added")
199+ else if ((i.payments[0].assetId != shareTokenId))
200+ then throw("CSFT: Wrong assetId")
201+ else {
202+ let amount = i.payments[0].amount
203+ if ((amount == 0))
204+ then throw("CSFT: Please attach positive asset amount!")
205+ else {
206+ let addressStr = toString(i.caller)
207+ let multiplier = 7
208+ let refund = ((amount / 10) * multiplier)
209+ let couponsCall = invoke(getCouponsAddress(), "CFRefund", [addressStr, refund], nil)
210+ if ((couponsCall == couponsCall))
211+ then [Burn(getShareAssetId(), amount)]
212+ else throw("Strict value is not equal to itself.")
213+ }
214+ }
215+ }
216+
217+
218+
219+@Callable(i)
220+func startVote () = if ((i.caller != mAccAddr))
221+ then throw("CSV: Only the admin can start a liquidation vote for now!")
222+ else if ((tryGetInteger(getVoteHeightKey()) != 0))
223+ then throw("CSV: There is already a vote running!")
224+ else [IntegerEntry("VOTE_HEIGHT_START", height)]
225+
226+
227+
228+@Callable(i)
229+func voteToLiquidate (vote) = {
230+ let votePower = tryGetInteger(keyStakedAmount(i.caller))
231+ if ((votePower == 0))
232+ then throw("CVTL: Please stake some tokens before you can vote!")
233+ else {
234+ let voteAsString = toString(vote)
235+ let voteHeight = tryGetInteger(getVoteHeightKey())
236+ if ((height > (voteHeight + getDuration())))
237+ then throw("CVTL: Voting is finished, please finalize the vote!")
238+ else {
239+ let voteByUserString = tryGetString(getVoteByUserKey(toString(i.caller), toString(voteHeight)))
240+ if ((voteByUserString != ""))
241+ then throw("CVTL: You can not change your vote!")
242+ else addVotePower(toString(i.caller), voteHeight, voteAsString, votePower)
243+ }
244+ }
128245 }
129246
130247
131248
132249 @Callable(i)
133-func withdrawFarmTokens (amount,compound) = if ((size(i.payments) > 0))
134- then throw("Please don't add payments")
250+func finalizeVote () = {
251+ let voteHeight = tryGetInteger(getVoteHeightKey())
252+ if (((voteHeight + getDuration()) > height))
253+ then throw("CFV: Voting is not finished!")
254+ else {
255+ let shareAssetIdTotal = value(assetInfo(getShareAssetId())).quantity
256+ let totalStakedAmount = tryGetInteger(keyGlobalStaked)
257+ let totalVote = tryGetInteger(getTotalVoteKey(toString(voteHeight)))
258+ let quorum = (totalVote / (shareAssetIdTotal / 100))
259+ let voteTotalByYes = tryGetInteger(getTotalVoteByTypeKey("true", toString(voteHeight)))
260+ let voteTotalByNo = tryGetInteger(getTotalVoteByTypeKey("false", toString(voteHeight)))
261+ let liquidated = if ((35 > quorum))
262+ then true
263+ else if ((voteTotalByYes > voteTotalByNo))
264+ then true
265+ else false
266+ let resetKey = if (liquidated)
267+ then nil
268+ else [IntegerEntry(getVoteHeightKey(), 0)]
269+ ([IntegerEntry(quorumVoteKey(toString(voteHeight)), quorum), BooleanEntry(resultVoteKey(toString(voteHeight)), liquidated)] ++ resetKey)
270+ }
271+ }
272+
273+
274+
275+@Callable(i)
276+func topUpReward () = if (isLiquidated())
277+ then throw("CTUR: CF is liquidated!")
135278 else {
136- let shareTokenId = getShareAssetId()
137- if (compound)
138- then {
139- let staked = tryGetInteger(keyStakedCompound)
140- let total = tryGetInteger(keyTotalCompound)
141- let vp = calcVirtualPrice(staked, total)
142- let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
143- let personalStaked = tryGetInteger(keyStakedCompoundU)
144- let virtualWd = if ((amount == -1))
145- then personalStaked
146- else fraction(amount, VPScale, vp)
147- let amountWd = if ((amount == -1))
148- then fraction(virtualWd, vp, VPScale)
149- else amount
150- if ((virtualWd > personalStaked))
151- then throw("You don't have so much funds to withdraw")
152- else [IntegerEntry(keyStakedCompoundU, (personalStaked - virtualWd)), IntegerEntry(keyStakedCompound, (staked - virtualWd)), IntegerEntry(keyTotalCompound, (total - amountWd)), ScriptTransfer(i.caller, amountWd, shareTokenId), IntegerEntry(keyLastVP, vp), IntegerEntry("last_virt_compound_wd", virtualWd), IntegerEntry("last_amount_compound_wd", amountWd)]
153- }
279+ let eggAssetId = getEggId()
280+ if ((i.payments[0].assetId != eggAssetId))
281+ then throw("CTUP: Wrong assetId, payment should be EGG")
154282 else {
155- let addressStr = toString(i.caller)
156- let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
157- let wdAmount = if ((amount == -1))
158- then stakedAmount
159- else amount
160- if ((wdAmount > stakedAmount))
161- then throw("you don't have tokens available")
162- else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
283+ let resHandleStaking = handleStakingTopUp(i.payments[0].amount)
284+ $Tuple2(resHandleStaking, true)
163285 }
164286 }
165287
166288
167289
168290 @Callable(i)
169-func stakeFarmTokens (compound) = {
170- let shareTokenId = getShareAssetId()
171- if ((size(i.payments) > 1))
172- then throw("To many payments added")
173- else if ((i.payments[0].assetId != shareTokenId))
174- then throw("Wrong assetId")
175- else if (compound)
291+func withdrawFarmTokens (amount,compound) = if (isLiquidated())
292+ then throw("CTUR: CF is liquidated!")
293+ else if ((size(i.payments) > 0))
294+ then throw("CWFT: Please don't add payments")
295+ else {
296+ let shareTokenId = getShareAssetId()
297+ if (compound)
176298 then {
177- let isLocked = isCollectiveFarmLocked()
178- if (isLocked)
179- then throw("The farm is closed for investments, it can't compound")
299+ let staked = tryGetInteger(keyStakedCompound)
300+ let total = tryGetInteger(keyTotalCompound)
301+ let vp = calcVirtualPrice(staked, total)
302+ let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
303+ let personalStaked = tryGetInteger(keyStakedCompoundU)
304+ let virtualWd = if ((amount == -1))
305+ then personalStaked
306+ else fraction(amount, VPScale, vp)
307+ let amountWd = if ((amount == -1))
308+ then fraction(virtualWd, vp, VPScale)
309+ else amount
310+ if ((virtualWd > personalStaked))
311+ then throw("CWFT: You don't have so much funds to withdraw")
312+ else [IntegerEntry(keyStakedCompoundU, (personalStaked - virtualWd)), IntegerEntry(keyStakedCompound, (staked - virtualWd)), IntegerEntry(keyTotalCompound, (total - amountWd)), ScriptTransfer(i.caller, amountWd, shareTokenId), IntegerEntry(keyLastVP, vp), IntegerEntry("last_virt_compound_wd", virtualWd), IntegerEntry("last_amount_compound_wd", amountWd)]
313+ }
314+ else {
315+ let addressStr = toString(i.caller)
316+ let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
317+ let wdAmount = if ((amount == -1))
318+ then stakedAmount
319+ else amount
320+ if ((wdAmount > stakedAmount))
321+ then throw("CWFT: you don't have tokens available")
180322 else {
181- let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
182- let alreadyStaked = tryGetInteger(keyStakedCompoundU)
183- let total = tryGetInteger(keyTotalCompound)
184- let staked = tryGetInteger(keyStakedCompound)
185- let vp = calcVirtualPrice(staked, total)
186- let rawStakeAmount = i.payments[0].amount
187- let exactStakeAmount = fraction(rawStakeAmount, VPScale, vp)
188-[IntegerEntry(keyStakedCompoundU, (alreadyStaked + exactStakeAmount)), IntegerEntry(keyTotalCompound, (total + rawStakeAmount)), IntegerEntry(keyStakedCompound, (staked + exactStakeAmount)), IntegerEntry(keyLastVP, vp)]
323+ let votePower = adaptVotePowerStake(toString(i.caller), -(wdAmount))
324+ ((claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)]) ++ votePower)
189325 }
190326 }
191- else {
192- let amount = i.payments[0].amount
193- let addressStr = toString(i.caller)
194- let totalStakedAmount = tryGetInteger(keyGlobalStaked)
195- if ((i.payments[0].assetId != shareTokenId))
196- then throw("wrong asset attached")
197- else (claimStakingResult(i.caller) ++ [IntegerEntry(keyGlobalStaked, (totalStakedAmount + amount)), IntegerEntry(keyStakedAmount(i.caller), (tryGetInteger(keyStakedAmount(i.caller)) + amount))])
198- }
199- }
327+ }
200328
201329
202330
203331 @Callable(i)
204-func initiateDapp (address) = if ((i.caller != this))
205- then throw("Can be called only by the dapp-account")
206- else setCFAddressAndInitiate(address)
332+func stakeFarmTokens (compound) = if (isLiquidated())
333+ then throw("CSFT: CF is liquidated!")
334+ else {
335+ let shareTokenId = getShareAssetId()
336+ if ((size(i.payments) > 1))
337+ then throw("CSFT: Too many payments added")
338+ else if ((i.payments[0].assetId != shareTokenId))
339+ then throw("CSFT: Wrong assetId")
340+ else {
341+ let amount = i.payments[0].amount
342+ if ((amount == 0))
343+ then throw("CSFT: Please attach positive asset amount!")
344+ else if (compound)
345+ then throw("CSFT: Compound was disabled!")
346+ else {
347+ let addressStr = toString(i.caller)
348+ let totalStakedAmount = tryGetInteger(keyGlobalStaked)
349+ if ((i.payments[0].assetId != shareTokenId))
350+ then throw("CSFT: wrong asset attached")
351+ else {
352+ let votePower = adaptVotePowerStake(toString(i.caller), amount)
353+ ((claimStakingResult(i.caller) ++ [IntegerEntry(keyGlobalStaked, (totalStakedAmount + amount)), IntegerEntry(keyStakedAmount(i.caller), (tryGetInteger(keyStakedAmount(i.caller)) + amount))]) ++ votePower)
354+ }
355+ }
356+ }
357+ }
207358
208359
209360
210361 @Callable(i)
211-func claimReward () = if ((size(i.payments) > 0))
212- then throw("Please don't add payments")
213- else claimStakingResult(i.caller)
362+func initiateDapp (address) = if (isLiquidated())
363+ then throw("CID: CF is liquidated!")
364+ else if ((i.caller != this))
365+ then throw("CID: Can be called only by the dapp-account")
366+ else setCFAddressAndInitiate(address)
367+
368+
369+
370+@Callable(i)
371+func claimReward () = if (isLiquidated())
372+ then throw("CCR: CF is liquidated!")
373+ else if ((size(i.payments) > 0))
374+ then throw("CCR: Please don't add payments")
375+ else claimStakingResult(i.caller)
214376
215377
Full:
OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let keyMAccPKey = "master_pk"
55
6-func getCFAddress () = addressFromStringValue(getStringValue(this, "CF_ADDRESS"))
6+func getCFAddress () = addressFromStringValue(valueOrErrorMessage(getString(this, "CF_ADDRESS"), "CF_ADDRESS not found"))
77
88
9-let mAccPKey = fromBase58String(getStringValue(getCFAddress(), keyMAccPKey))
9+func tryGetBoolean (key) = match getBoolean(this, key) {
10+ case b: Boolean =>
11+ b
12+ case _ =>
13+ false
14+}
15+
16+
17+let mAccPKey = fromBase58String(valueOrErrorMessage(getString(getCFAddress(), keyMAccPKey), (keyMAccPKey + " not found")))
1018
1119 let mAccAddr = addressFromPublicKey(mAccPKey)
20+
21+func getCouponsAddress () = addressFromStringValue(getStringValue(mAccAddr, "COUPONS_ADDRESS"))
22+
1223
1324 let keyTotalCompound = "total_compound"
1425
1526 let keyStakedCompound = "staked_compound"
1627
1728 let keyLastVP = "last_virtual_price"
1829
1930 let VPScale = 100000000
2031
2132 func keyStakedCompoundUser (user) = ((toString(user) + "_") + keyStakedCompound)
2233
2334
2435 func calcVirtualPrice (totalStaked,total) = if ((total == 0))
2536 then 1
2637 else if ((totalStaked == 0))
2738 then 1
2839 else fraction(total, VPScale, totalStaked)
2940
3041
3142 let Scale = 100000000
3243
3344 func keyStakedAmount (address) = (toString(address) + "_farm_staked")
3445
3546
3647 func keyLastCheckInterest (address) = (toString(address) + "_lastCheck_interest")
3748
3849
3950 func keyEggClaimed (address) = (toString(address) + "_claimed")
4051
4152
4253 let keyGlobalLastInterest = "global_lastCheck_interest"
4354
4455 let keyGlobalStaked = "global_staked"
4556
4657 let keyGlobalEggEarned = "global_earnings"
4758
4859 let kLockedInvestments = "locked_investments"
4960
5061 func isCollectiveFarmLocked () = match getBoolean(getCFAddress(), kLockedInvestments) {
5162 case b: Boolean =>
5263 b
5364 case _ =>
5465 false
5566 }
5667
5768
5869 func getEggId () = fromBase58String(getStringValue(mAccAddr, "EGG_ASSET_ID"))
5970
6071
6172 func setCFAddressAndInitiate (address) = [StringEntry("CF_ADDRESS", address), IntegerEntry(keyGlobalLastInterest, 1)]
6273
6374
6475 func getShareAssetId () = fromBase58String(getStringValue(getCFAddress(), "SHARE_ASSET_ID"))
6576
6677
67-func tryGetInteger (key) = match getInteger(this, key) {
78+func tryGetIntegerExternal (address,key) = match getInteger(address, key) {
6879 case b: Int =>
6980 b
7081 case _ =>
7182 0
7283 }
84+
85+
86+func tryGetInteger (key) = tryGetIntegerExternal(this, key)
7387
7488
7589 func tryGetString (key) = match getString(this, key) {
7690 case a: String =>
7791 a
7892 case _ =>
7993 ""
8094 }
95+
96+
97+func getVoteHeightKey () = "VOTE_HEIGHT_START"
98+
99+
100+func getDuration () = if ((tryGetIntegerExternal(mAccAddr, "VOTE_DURATION") == 0))
101+ then 10000
102+ else tryGetIntegerExternal(mAccAddr, "VOTE_DURATION")
103+
104+
105+func getVoteByUserKey (user,height) = ((("VOTE_" + user) + "_") + height)
106+
107+
108+func getTotalVoteByTypeKey (type,height) = ((("VOTE_TOTAL_" + type) + "_") + height)
109+
110+
111+func getTotalVoteKey (height) = ("VOTE_TOTAL_" + height)
112+
113+
114+func resultVoteKey (height) = ("LIQUIDATED_" + height)
115+
116+
117+func quorumVoteKey (height) = ("QUORUM_" + height)
81118
82119
83120 func claimStakingResult (address) = {
84121 let currentInterest = tryGetInteger(keyGlobalLastInterest)
85122 let lastCheckInterest = tryGetInteger(keyLastCheckInterest(address))
86123 let stakedAmount = tryGetInteger(keyStakedAmount(address))
87124 let reward = if ((lastCheckInterest > 0))
88125 then fraction((currentInterest - lastCheckInterest), stakedAmount, Scale)
89126 else 0
90127 let transfer = if ((reward > 0))
91128 then [ScriptTransfer(address, reward, getEggId())]
92129 else nil
93130 (transfer ++ [IntegerEntry(keyLastCheckInterest(address), currentInterest), IntegerEntry(keyEggClaimed(address), (tryGetInteger(keyEggClaimed(address)) + reward))])
94131 }
95132
96133
97-func handleCompoundTopUp (amount) = {
98- let total = (tryGetInteger(keyTotalCompound) + amount)
99- let staked = tryGetInteger(keyStakedCompound)
100- let vp = calcVirtualPrice(staked, total)
101-[IntegerEntry(keyTotalCompound, total), IntegerEntry(keyLastVP, vp)]
102- }
103-
104-
105134 func handleStakingTopUp (amount) = {
106135 let currentInterest = tryGetInteger(keyGlobalLastInterest)
107136 let totalStakedAmount = tryGetInteger(keyGlobalStaked)
108137 let interestDelta = if ((totalStakedAmount > 0))
109138 then fraction(amount, Scale, totalStakedAmount)
110139 else 0
111140 [IntegerEntry(keyGlobalEggEarned, (tryGetInteger(keyGlobalEggEarned) + amount)), IntegerEntry(keyGlobalLastInterest, (currentInterest + interestDelta))]
112141 }
113142
114143
144+func addVotePower (caller,h,vote,votePower) = if (if ((h == 0))
145+ then true
146+ else (vote == ""))
147+ then nil
148+ else if ((height > (h + getDuration())))
149+ then throw((((((((("CAVP: Voting is finished, please finalize the vote;" + " Arguments: ") + caller) + ", ") + toString(h)) + ", ") + vote) + ", ") + toString(votePower)))
150+ else {
151+ let voteTotalByType = tryGetInteger(getTotalVoteByTypeKey(vote, toString(h)))
152+ let totalVote = tryGetInteger(getTotalVoteKey(toString(h)))
153+[StringEntry(getVoteByUserKey(caller, toString(h)), vote), IntegerEntry(getTotalVoteByTypeKey(vote, toString(h)), (voteTotalByType + votePower)), IntegerEntry(getTotalVoteKey(toString(h)), (totalVote + votePower))]
154+ }
155+
156+
157+func adaptVotePowerStake (caller,votePower) = {
158+ let voteHeight = tryGetInteger(getVoteHeightKey())
159+ let voteByUserString = tryGetString(getVoteByUserKey(caller, toString(voteHeight)))
160+ addVotePower(caller, voteHeight, voteByUserString, votePower)
161+ }
162+
163+
164+func isLiquidated () = {
165+ let voteHeight = tryGetInteger(getVoteHeightKey())
166+ if ((voteHeight == 0))
167+ then false
168+ else tryGetBoolean(resultVoteKey(toString(voteHeight)))
169+ }
170+
171+
115172 @Callable(i)
116-func topUpReward () = {
117- let eggAssetId = getEggId()
118- let shareTokenId = getShareAssetId()
119- if ((i.payments[0].assetId != eggAssetId))
120- then throw("Wrong assetId, first payment should be EGG")
121- else if ((i.payments[1].assetId != shareTokenId))
122- then throw("Wrong assetId, second payment should be farm tokens")
123- else {
124- let resHandleStaking = handleStakingTopUp(i.payments[0].amount)
125- let resHandleCompound = handleCompoundTopUp(i.payments[1].amount)
126- $Tuple2((resHandleCompound ++ resHandleStaking), true)
127- }
173+func claimRefundStaked () = if ((isLiquidated() == false))
174+ then throw("CCRS: cf not liquidated")
175+ else {
176+ let addressStr = toString(i.caller)
177+ let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
178+ let voteHeight = tryGetInteger(getVoteHeightKey())
179+ let voteByUserString = tryGetString(getVoteByUserKey(addressStr, toString(voteHeight)))
180+ let multiplier = if ((voteByUserString == ""))
181+ then 7
182+ else 10
183+ let refund = ((stakedAmount / 10) * multiplier)
184+ let couponsCall = invoke(getCouponsAddress(), "CFRefund", [addressStr, refund], nil)
185+ if ((couponsCall == couponsCall))
186+ then [IntegerEntry(keyStakedAmount(i.caller), 0), Burn(getShareAssetId(), stakedAmount)]
187+ else throw("Strict value is not equal to itself.")
188+ }
189+
190+
191+
192+@Callable(i)
193+func claimRefundUnstaked () = if ((isLiquidated() == false))
194+ then throw("CCRU: cf not liquidated")
195+ else {
196+ let shareTokenId = getShareAssetId()
197+ if ((size(i.payments) > 1))
198+ then throw("CSFT: To many payments added")
199+ else if ((i.payments[0].assetId != shareTokenId))
200+ then throw("CSFT: Wrong assetId")
201+ else {
202+ let amount = i.payments[0].amount
203+ if ((amount == 0))
204+ then throw("CSFT: Please attach positive asset amount!")
205+ else {
206+ let addressStr = toString(i.caller)
207+ let multiplier = 7
208+ let refund = ((amount / 10) * multiplier)
209+ let couponsCall = invoke(getCouponsAddress(), "CFRefund", [addressStr, refund], nil)
210+ if ((couponsCall == couponsCall))
211+ then [Burn(getShareAssetId(), amount)]
212+ else throw("Strict value is not equal to itself.")
213+ }
214+ }
215+ }
216+
217+
218+
219+@Callable(i)
220+func startVote () = if ((i.caller != mAccAddr))
221+ then throw("CSV: Only the admin can start a liquidation vote for now!")
222+ else if ((tryGetInteger(getVoteHeightKey()) != 0))
223+ then throw("CSV: There is already a vote running!")
224+ else [IntegerEntry("VOTE_HEIGHT_START", height)]
225+
226+
227+
228+@Callable(i)
229+func voteToLiquidate (vote) = {
230+ let votePower = tryGetInteger(keyStakedAmount(i.caller))
231+ if ((votePower == 0))
232+ then throw("CVTL: Please stake some tokens before you can vote!")
233+ else {
234+ let voteAsString = toString(vote)
235+ let voteHeight = tryGetInteger(getVoteHeightKey())
236+ if ((height > (voteHeight + getDuration())))
237+ then throw("CVTL: Voting is finished, please finalize the vote!")
238+ else {
239+ let voteByUserString = tryGetString(getVoteByUserKey(toString(i.caller), toString(voteHeight)))
240+ if ((voteByUserString != ""))
241+ then throw("CVTL: You can not change your vote!")
242+ else addVotePower(toString(i.caller), voteHeight, voteAsString, votePower)
243+ }
244+ }
128245 }
129246
130247
131248
132249 @Callable(i)
133-func withdrawFarmTokens (amount,compound) = if ((size(i.payments) > 0))
134- then throw("Please don't add payments")
250+func finalizeVote () = {
251+ let voteHeight = tryGetInteger(getVoteHeightKey())
252+ if (((voteHeight + getDuration()) > height))
253+ then throw("CFV: Voting is not finished!")
254+ else {
255+ let shareAssetIdTotal = value(assetInfo(getShareAssetId())).quantity
256+ let totalStakedAmount = tryGetInteger(keyGlobalStaked)
257+ let totalVote = tryGetInteger(getTotalVoteKey(toString(voteHeight)))
258+ let quorum = (totalVote / (shareAssetIdTotal / 100))
259+ let voteTotalByYes = tryGetInteger(getTotalVoteByTypeKey("true", toString(voteHeight)))
260+ let voteTotalByNo = tryGetInteger(getTotalVoteByTypeKey("false", toString(voteHeight)))
261+ let liquidated = if ((35 > quorum))
262+ then true
263+ else if ((voteTotalByYes > voteTotalByNo))
264+ then true
265+ else false
266+ let resetKey = if (liquidated)
267+ then nil
268+ else [IntegerEntry(getVoteHeightKey(), 0)]
269+ ([IntegerEntry(quorumVoteKey(toString(voteHeight)), quorum), BooleanEntry(resultVoteKey(toString(voteHeight)), liquidated)] ++ resetKey)
270+ }
271+ }
272+
273+
274+
275+@Callable(i)
276+func topUpReward () = if (isLiquidated())
277+ then throw("CTUR: CF is liquidated!")
135278 else {
136- let shareTokenId = getShareAssetId()
137- if (compound)
138- then {
139- let staked = tryGetInteger(keyStakedCompound)
140- let total = tryGetInteger(keyTotalCompound)
141- let vp = calcVirtualPrice(staked, total)
142- let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
143- let personalStaked = tryGetInteger(keyStakedCompoundU)
144- let virtualWd = if ((amount == -1))
145- then personalStaked
146- else fraction(amount, VPScale, vp)
147- let amountWd = if ((amount == -1))
148- then fraction(virtualWd, vp, VPScale)
149- else amount
150- if ((virtualWd > personalStaked))
151- then throw("You don't have so much funds to withdraw")
152- else [IntegerEntry(keyStakedCompoundU, (personalStaked - virtualWd)), IntegerEntry(keyStakedCompound, (staked - virtualWd)), IntegerEntry(keyTotalCompound, (total - amountWd)), ScriptTransfer(i.caller, amountWd, shareTokenId), IntegerEntry(keyLastVP, vp), IntegerEntry("last_virt_compound_wd", virtualWd), IntegerEntry("last_amount_compound_wd", amountWd)]
153- }
279+ let eggAssetId = getEggId()
280+ if ((i.payments[0].assetId != eggAssetId))
281+ then throw("CTUP: Wrong assetId, payment should be EGG")
154282 else {
155- let addressStr = toString(i.caller)
156- let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
157- let wdAmount = if ((amount == -1))
158- then stakedAmount
159- else amount
160- if ((wdAmount > stakedAmount))
161- then throw("you don't have tokens available")
162- else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
283+ let resHandleStaking = handleStakingTopUp(i.payments[0].amount)
284+ $Tuple2(resHandleStaking, true)
163285 }
164286 }
165287
166288
167289
168290 @Callable(i)
169-func stakeFarmTokens (compound) = {
170- let shareTokenId = getShareAssetId()
171- if ((size(i.payments) > 1))
172- then throw("To many payments added")
173- else if ((i.payments[0].assetId != shareTokenId))
174- then throw("Wrong assetId")
175- else if (compound)
291+func withdrawFarmTokens (amount,compound) = if (isLiquidated())
292+ then throw("CTUR: CF is liquidated!")
293+ else if ((size(i.payments) > 0))
294+ then throw("CWFT: Please don't add payments")
295+ else {
296+ let shareTokenId = getShareAssetId()
297+ if (compound)
176298 then {
177- let isLocked = isCollectiveFarmLocked()
178- if (isLocked)
179- then throw("The farm is closed for investments, it can't compound")
299+ let staked = tryGetInteger(keyStakedCompound)
300+ let total = tryGetInteger(keyTotalCompound)
301+ let vp = calcVirtualPrice(staked, total)
302+ let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
303+ let personalStaked = tryGetInteger(keyStakedCompoundU)
304+ let virtualWd = if ((amount == -1))
305+ then personalStaked
306+ else fraction(amount, VPScale, vp)
307+ let amountWd = if ((amount == -1))
308+ then fraction(virtualWd, vp, VPScale)
309+ else amount
310+ if ((virtualWd > personalStaked))
311+ then throw("CWFT: You don't have so much funds to withdraw")
312+ else [IntegerEntry(keyStakedCompoundU, (personalStaked - virtualWd)), IntegerEntry(keyStakedCompound, (staked - virtualWd)), IntegerEntry(keyTotalCompound, (total - amountWd)), ScriptTransfer(i.caller, amountWd, shareTokenId), IntegerEntry(keyLastVP, vp), IntegerEntry("last_virt_compound_wd", virtualWd), IntegerEntry("last_amount_compound_wd", amountWd)]
313+ }
314+ else {
315+ let addressStr = toString(i.caller)
316+ let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
317+ let wdAmount = if ((amount == -1))
318+ then stakedAmount
319+ else amount
320+ if ((wdAmount > stakedAmount))
321+ then throw("CWFT: you don't have tokens available")
180322 else {
181- let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
182- let alreadyStaked = tryGetInteger(keyStakedCompoundU)
183- let total = tryGetInteger(keyTotalCompound)
184- let staked = tryGetInteger(keyStakedCompound)
185- let vp = calcVirtualPrice(staked, total)
186- let rawStakeAmount = i.payments[0].amount
187- let exactStakeAmount = fraction(rawStakeAmount, VPScale, vp)
188-[IntegerEntry(keyStakedCompoundU, (alreadyStaked + exactStakeAmount)), IntegerEntry(keyTotalCompound, (total + rawStakeAmount)), IntegerEntry(keyStakedCompound, (staked + exactStakeAmount)), IntegerEntry(keyLastVP, vp)]
323+ let votePower = adaptVotePowerStake(toString(i.caller), -(wdAmount))
324+ ((claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)]) ++ votePower)
189325 }
190326 }
191- else {
192- let amount = i.payments[0].amount
193- let addressStr = toString(i.caller)
194- let totalStakedAmount = tryGetInteger(keyGlobalStaked)
195- if ((i.payments[0].assetId != shareTokenId))
196- then throw("wrong asset attached")
197- else (claimStakingResult(i.caller) ++ [IntegerEntry(keyGlobalStaked, (totalStakedAmount + amount)), IntegerEntry(keyStakedAmount(i.caller), (tryGetInteger(keyStakedAmount(i.caller)) + amount))])
198- }
199- }
327+ }
200328
201329
202330
203331 @Callable(i)
204-func initiateDapp (address) = if ((i.caller != this))
205- then throw("Can be called only by the dapp-account")
206- else setCFAddressAndInitiate(address)
332+func stakeFarmTokens (compound) = if (isLiquidated())
333+ then throw("CSFT: CF is liquidated!")
334+ else {
335+ let shareTokenId = getShareAssetId()
336+ if ((size(i.payments) > 1))
337+ then throw("CSFT: Too many payments added")
338+ else if ((i.payments[0].assetId != shareTokenId))
339+ then throw("CSFT: Wrong assetId")
340+ else {
341+ let amount = i.payments[0].amount
342+ if ((amount == 0))
343+ then throw("CSFT: Please attach positive asset amount!")
344+ else if (compound)
345+ then throw("CSFT: Compound was disabled!")
346+ else {
347+ let addressStr = toString(i.caller)
348+ let totalStakedAmount = tryGetInteger(keyGlobalStaked)
349+ if ((i.payments[0].assetId != shareTokenId))
350+ then throw("CSFT: wrong asset attached")
351+ else {
352+ let votePower = adaptVotePowerStake(toString(i.caller), amount)
353+ ((claimStakingResult(i.caller) ++ [IntegerEntry(keyGlobalStaked, (totalStakedAmount + amount)), IntegerEntry(keyStakedAmount(i.caller), (tryGetInteger(keyStakedAmount(i.caller)) + amount))]) ++ votePower)
354+ }
355+ }
356+ }
357+ }
207358
208359
209360
210361 @Callable(i)
211-func claimReward () = if ((size(i.payments) > 0))
212- then throw("Please don't add payments")
213- else claimStakingResult(i.caller)
362+func initiateDapp (address) = if (isLiquidated())
363+ then throw("CID: CF is liquidated!")
364+ else if ((i.caller != this))
365+ then throw("CID: Can be called only by the dapp-account")
366+ else setCFAddressAndInitiate(address)
367+
368+
369+
370+@Callable(i)
371+func claimReward () = if (isLiquidated())
372+ then throw("CCR: CF is liquidated!")
373+ else if ((size(i.payments) > 0))
374+ then throw("CCR: Please don't add payments")
375+ else claimStakingResult(i.caller)
214376
215377

github/deemru/w8io/786bc32 
45.85 ms