tx · FS295iH75ceJZ8nuzkf3fJzBfarATZQuAPuxTMPCEGUx

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.01100000 Waves

2023.10.25 21:02 [2814489] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{ "type": 13, "id": "FS295iH75ceJZ8nuzkf3fJzBfarATZQuAPuxTMPCEGUx", "fee": 1100000, "feeAssetId": null, "timestamp": 1698256958001, "version": 2, "chainId": 84, "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg", "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG", "proofs": [ "bHAVJMbdd7zAkXNZozQ3zmhzZznFFQ8Gh4sdDbMa3y6d4eurqsMEQ12CCR27baLxMpSidB7RnVbq1ZrCXjyVNBu" ], "script": "base64:BgIpCAISBAoCCAESABIDCgEBEgASBAoCCAESBAoCCAESAwoBARIAEgMKAQguAAhNSUxMSU9ONgCAgOmDsd4WAAlEQVlNSUxMSVMAgLiZKQATQUNSRVNfVU5MT0NLX1BFUklPRACAkOTABAEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhhhY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcl8FBGFkZHIBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQRhZGRyCQCsAgICFWFjcmVzTG9ja2VkRXRhQnlVc2VyXwUEYWRkcgATYWNyZXNTdGFrZWRUb3RhbEtleQIWYWNyZXNTdGFrZWRBbW91bnRUb3RhbAAKeHBOZXdTTGFuZADAlrECAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAAoABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2R0QXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEghNp6sggDP07Ru8qO7ouTvMmC3Qtd+geWqNQj+agP/7kDCQAAAgEBVAUHJG1hdGNoMAEgVbHYn3KHgu/l41uNrAWrZd6aQ6EvFrsF8xq3h6XxxRgJAAIBAg1Vbmtub3duIGNoYWluABVkZWZhdWx0UmVzdEFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQUUN1dkZidmg0TGtQVW5yblUxejNqbmJBMXA5bTNXTmh2AwkAAAIBAVQFByRtYXRjaDACIzNNdW1rR0d6dENLQVhwV0RxeGtkZG9mcVhTVWJxUWt2U0p5CQACAQINVW5rbm93biBjaGFpbgADU0VQAgJfXwAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgANSWR4Q2ZnV2xnRGFwcAAEAA9JZHhDZmdBY3Jlc0RhcHAACAEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPZWNvbm9teUNvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnRWNvbm9teURhcHAAC3dsZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUNSWR4Q2ZnV2xnRGFwcAANYWNyZXNDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFD0lkeENmZ0FjcmVzRGFwcAAUYWNyZXNJc3N1ZWRBbW91bnRLZXkCEWFjcmVzSXNzdWVkQW1vdW50AA9hY3Jlc0Fzc2V0SWRLZXkCDGFjcmVzQXNzZXRJZAAMYWNyZXNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJwIAgUNYWNyZXNDb250cmFjdAUPYWNyZXNBc3NldElkS2V5AhdBQ1JFUyBpcyBub3QgaXNzdWVkIHlldAEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQRhZGRyCQCsAgICFmFjcmVzU3Rha2VkVGltZUJ5VXNlcl8FBGFkZHIAC0lkeEVmZlRvdGFsAAABEWtleVJlc1Byb3BvcnRpb25zAAITcmVzVHlwZXNQcm9wb3J0aW9ucwEWa2V5U3Rha2VkUGllY2VzQnlPd25lcgEJb3duZXJBZGRyCQCsAgICFHN0YWtlZFBpZWNlc0J5T3duZXJfBQlvd25lckFkZHIBBWFzSW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACA0ludAQBbgUHJG1hdGNoMAUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEOYXNUd29JbnRzVHVwbGUBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACCihJbnQsIEludCkEAnQyBQckbWF0Y2gwBQJ0MgkAAgECHGZhaWwgdG8gY2FzdCBpbnRvIChJbnQsIEludCkBDmdldFZvdGluZ1Bvd2VyARJ1c2VyQWRkclN0ck9yRW1wdHkEBXByb3BzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAIBXwoBBWFkZGVyAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAp0b3RhbFBvd2VyCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlcnNQb3dlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AQZwcm9sb2cACQEFYXNJbnQBCQD9BwQFD3N0YWtpbmdDb250cmFjdAIKc2F2ZUxhc3RUeAUDbmlsBQNuaWwBEmNsYWltQWNyZXNJbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAkAlgMBCQDMCAIAAAkAzAgCBQpjYW5HZXRVc2R0BQNuaWwJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIBDWNsYWltSW50ZXJuYWwDBGFkZHILYWNyZXNBbW91bnQNbGFzdENsYWltVGltZQQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFDWxhc3RDbGFpbVRpbWUDCQBmAgAABQlkZWx0YVRpbWUJAAIBCQCsAgIJAKwCAgkArAICAiZTYXZlZCB0aW1lc3RhbXAgaXMgaW4gZnV0dXJlLCBzYXZlZCA9IAkApAMBBQ1sYXN0Q2xhaW1UaW1lAgwsIGN1cnJlbnQgPSAJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAECGF2YWlsUmVzCQBrAwUJZGVsdGFUaW1lCQBoAgUPREFJTFlSRVNCWVBJRUNFBQthY3Jlc0Ftb3VudAkAaAIFCURBWU1JTExJUwUFTVVMVDgECmNhbkdldFVzZHQJAQVhc0ludAEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhpzZWxsUmVzb3VyY2VzV29ybGRSRUFET05MWQkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwEB2dvdFVzZHQDCQBnAgAABQpjYW5HZXRVc2R0AAAICQEOYXNUd29JbnRzVHVwbGUBCQD8BwQFD2Vjb25vbXlDb250cmFjdAISc2VsbFJlc291cmNlc1dvcmxkCQDMCAIFBGFkZHIJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsAl8xCQBoAgUHZ290VXNkdAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAQttZXJnZUxvY2tlZAQJb2xkQW1vdW50Bm9sZEVUQQluZXdBbW91bnQGbmV3RVRBBANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBANkdDEJAJYDAQkAzAgCAAAJAMwIAgkAZQIFBm9sZEVUQQUDbm93BQNuaWwEA2R0MgkAlgMBCQDMCAIAAAkAzAgCCQBlAgUGbmV3RVRBBQNub3cFA25pbAQDc3VtCQBkAgUJb2xkQW1vdW50BQluZXdBbW91bnQEAmR0AwkAAAIFA3N1bQAAAAAJAGQCCQBrAwUDZHQxBQlvbGRBbW91bnQFA3N1bQkAawMFA2R0MgUJbmV3QW1vdW50BQNzdW0JAGQCBQNub3cFAmR0CQFpAQ1jb25zdHJ1Y3RvclYxAghyZXN0QWRkcg51bnN0YWtlZFBpZWNlcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkAwkBCWlzRGVmaW5lZAEJAKEIAQUPYWNyZXNBc3NldElkS2V5CQACAQITQWxyZWFkeSBpbml0aWFsaXplZAQIbmZ0QWNyZXMJAGQCCQCRAwIJAQ5nZXRWb3RpbmdQb3dlcgECAAULSWR4RWZmVG90YWwFDnVuc3Rha2VkUGllY2VzBAxpc3N1ZWRBbW91bnQJAGUCBQhNSUxMSU9ONgkAaAIFCG5mdEFjcmVzBQVNVUxUOAQFaXNzdWUJAMMIBwIFQUNSRVMCJldhdmVzTGFuZHMgbGFuZCBhY3JlcyBpbnZlc3RtZW50IHRva2VuBQxpc3N1ZWRBbW91bnQACAcFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQVpc3N1ZQkAzAgCBQVpc3N1ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUUYWNyZXNJc3N1ZWRBbW91bnRLZXkFDGlzc3VlZEFtb3VudAkAzAgCCQELQmluYXJ5RW50cnkCBQ9hY3Jlc0Fzc2V0SWRLZXkFB2Fzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDmtleVJlc3RBZGRyZXNzAAUIcmVzdEFkZHIFA25pbAFpAQpzdGFrZUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFDGFjcmVzQXNzZXRJZAkAAgECFEFDUkVTIHBheW1lbnRzIG9ubHkhBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDNCAIJAM0IAgkAzQgCAwkAAAIFDGNsYWltZWRBY3JlcwAABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGQCBQ5vbGRBY3Jlc0Ftb3VudAUDYW10CQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZAIFCG9sZFRvdGFsBQNhbXQJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMdW5zdGFrZUFjcmVzAQZhbW91bnQEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQDCQBnAgAABQZhbW91bnQJAAIBAhlBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAMJAGYCBQZhbW91bnQFDm9sZEFjcmVzQW1vdW50CQACAQkArAICCQCsAgIJAKwCAgIOWW91IGhhdmUgb25seSAJAQpmaXhlZFBvaW50AgUOb2xkQWNyZXNBbW91bnQACAIgIEFDUkVTIHN0YWtlZCwgdHJpZWQgdG8gdW5zdGFrZSAJAQpmaXhlZFBvaW50AgUGYW1vdW50AAgEDGxvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEaa2V5QWNyZXNMb2NrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzAAAECWxvY2tlZEVUQQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEXa2V5QWNyZXNMb2NrZWRFdGFCeVVzZXIBBQdhZGRyZXNzAAAEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAEEHVuc3Rha2FibGVBbW91bnQJAGUCBQ5vbGRBY3Jlc0Ftb3VudAUMbG9ja2VkQW1vdW50AwMJAGYCBQlsb2NrZWRFVEEFA25vdwkAZgIFBmFtb3VudAUQdW5zdGFrYWJsZUFtb3VudAcJAAIBCQCsAgIJAKwCAgkArAICAgVPbmx5IAkBCmZpeGVkUG9pbnQCBRB1bnN0YWthYmxlQW1vdW50AAgCJyBBQ1JFUyBjYW4gYmUgdW5zdGFrZWQgbm93LCB3YWl0IHVudGlsIAkApAMBBQlsb2NrZWRFVEEECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwEDGNsYWltZWRBY3JlcwkBDWNsYWltSW50ZXJuYWwDBQdhZGRyZXNzBQ5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZQIFDm9sZEFjcmVzQW1vdW50BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFE2FjcmVzU3Rha2VkVG90YWxLZXkJAGUCBQhvbGRUb3RhbAUGYW1vdW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZAIFBmFtb3VudAUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhidXlBY3JlcwAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEDCQBmAgUFTVVMVDYFA2FtdAkAAgEJAKwCAgkArAICAhZNaW4gcGF5bWVudCBzaG91bGQgYmUgCQEKZml4ZWRQb2ludAIFBU1VTFQ2AAYCBSBVU0RUBAthY3Jlc0Ftb3VudAkAaAIFA2FtdAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSBA5hY2NTdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFB2FkZHJlc3MJAMwIAgkAawMFCnhwTmV3U0xhbmQFC2FjcmVzQW1vdW50CQBoAgAZBQVNVUxUOAUDbmlsBQNuaWwJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQ9lY29ub215Q29udHJhY3QFA2FtdAULdXNkdEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQthY3Jlc0Ftb3VudAUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQ5hY2NTdGF0c1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQlzZW5kQWNyZXMCBGFkZHIGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQ9lY29ub215Q29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBGFkZHIFBmFtb3VudAUMYWNyZXNBc3NldElkBQNuaWwFBmFtb3VudAFpAQ9zZW5kTG9ja2VkQWNyZXMCBGFkZHIGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQRhZGRyBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFBGFkZHIEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAEB29sZFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQUDbm93BAZldGFLZXkJARdrZXlBY3Jlc0xvY2tlZEV0YUJ5VXNlcgEFBGFkZHIED2xvY2tlZEFtb3VudEtleQkBGmtleUFjcmVzTG9ja2VkQW1vdW50QnlVc2VyAQUEYWRkcgQPb2xkTG9ja2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFD2xvY2tlZEFtb3VudEtleQAABAxvbGRMb2NrZWRFVEEJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUGZXRhS2V5AAAECW1lcmdlZEVUQQkBC21lcmdlTG9ja2VkBAUPb2xkTG9ja2VkQW1vdW50BQxvbGRMb2NrZWRFVEEFBmFtb3VudAkAZAIFA25vdwUTQUNSRVNfVU5MT0NLX1BFUklPRAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5BQdvbGRUaW1lCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGQCBQ5vbGRBY3Jlc0Ftb3VudAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUGZXRhS2V5BQltZXJnZWRFVEEJAMwIAgkBDEludGVnZXJFbnRyeQIFD2xvY2tlZEFtb3VudEtleQkAZAIFD29sZExvY2tlZEFtb3VudAUGYW1vdW50BQNuaWwAAAFpAQlidXJuQWNyZXMBBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQECmFtb3VudExlZnQJAGUCCQELdmFsdWVPckVsc2UCCQCfCAEFFGFjcmVzSXNzdWVkQW1vdW50S2V5AAAFBmFtb3VudAMJAGYCAAAFCmFtb3VudExlZnQJAAIBAidBdHRlbXB0IHRvIGJ1cm4gbW9yZSBBQ1JFUywgdGhhbiBleGlzdHMJAJQKAgkAzAgCCQEEQnVybgIFDGFjcmVzQXNzZXRJZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUKYW1vdW50TGVmdAUDbmlsBQZhbW91bnQBaQEKY2xhaW1BY3JlcwAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQESY2xhaW1BY3Jlc1JFQURPTkxZAQdhZGRyZXNzBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBAthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAABAxjbGFpbWVkQWNyZXMJARJjbGFpbUFjcmVzSW50ZXJuYWwDBQdhZGRyZXNzBQthY3Jlc0Ftb3VudAUIbGFzdFRpbWUJAJQKAgUDbmlsCQDMCAIFDGNsYWltZWRBY3JlcwkAzAgCBQhsYXN0VGltZQUDbmlsAM6MCOs=", "height": 2814489, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: FLHBoSXCwbhy7eiFPzemXD69etqWXeVrEKPxyNEpejoi Next: 97dEm8KT6r5hsdpGrhCgGmSYVtaPqoCdHq2rEWbm7VZb Diff:
OldNewDifferences
55
66 let DAYMILLIS = 86400000
77
8+let ACRES_UNLOCK_PERIOD = 1209600000
9+
810 func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
11+
12+
13+func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
14+
15+
16+func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
917
1018
1119 let acresStakedTotalKey = "acresStakedAmountTotal"
168176 }
169177
170178
179+func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
180+ let now = lastBlock.timestamp
181+ let dt1 = max([0, (oldETA - now)])
182+ let dt2 = max([0, (newETA - now)])
183+ let sum = (oldAmount + newAmount)
184+ let dt = if ((sum == 0))
185+ then 0
186+ else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
187+ (now + dt)
188+ }
189+
190+
171191 @Callable(i)
172192 func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
173193 then throw("Permission denied")
233253 if ((amount > oldAcresAmount))
234254 then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
235255 else {
236- let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
237- let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
238- let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
239- $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
256+ let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
257+ let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
258+ let now = lastBlock.timestamp
259+ let unstakableAmount = (oldAcresAmount - lockedAmount)
260+ if (if ((lockedETA > now))
261+ then (amount > unstakableAmount)
262+ else false)
263+ then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
264+ else {
265+ let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
266+ let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
267+ let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
268+ $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
269+ }
240270 }
241271 }
242272 }
278308 func sendAcres (addr,amount) = if ((i.caller != economyContract))
279309 then throw("Permission denied")
280310 else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
311+
312+
313+
314+@Callable(i)
315+func sendLockedAcres (addr,amount) = if ((i.caller != this))
316+ then throw("Permission denied")
317+ else {
318+ let now = lastBlock.timestamp
319+ let timeKey = keyAcresStakedTimeByUser(addr)
320+ let amountKey = keyAcresStakedAmountByUser(addr)
321+ let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
322+ let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
323+ let oldTime = valueOrElse(getInteger(timeKey), now)
324+ let etaKey = keyAcresLockedEtaByUser(addr)
325+ let lockedAmountKey = keyAcresLockedAmountByUser(addr)
326+ let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
327+ let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
328+ let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + ACRES_UNLOCK_PERIOD))
329+ $Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], 0)
330+ }
281331
282332
283333
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let MILLION6 = 100000000000000
55
66 let DAYMILLIS = 86400000
77
8+let ACRES_UNLOCK_PERIOD = 1209600000
9+
810 func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
11+
12+
13+func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
14+
15+
16+func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
917
1018
1119 let acresStakedTotalKey = "acresStakedAmountTotal"
1220
1321 let xpNewSLand = 5000000
1422
1523 let DAILYRESBYPIECE = 3456000
1624
1725 let USDT2ACRES_MULTIPLIER = 10
1826
1927 let chain = take(drop(this.bytes, 1), 1)
2028
2129 let usdtAssetId = match chain {
2230 case _ =>
2331 if ((base58'2W' == $match0))
2432 then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
2533 else if ((base58'2T' == $match0))
2634 then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
2735 else throw("Unknown chain")
2836 }
2937
3038 let defaultRestAddressStr = match chain {
3139 case _ =>
3240 if ((base58'2W' == $match0))
3341 then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
3442 else if ((base58'2T' == $match0))
3543 then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
3644 else throw("Unknown chain")
3745 }
3846
3947 let SEP = "__"
4048
4149 let MULT6 = 1000000
4250
4351 let MULT8 = 100000000
4452
4553 func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
4654
4755
4856 let IdxCfgStakingDapp = 1
4957
5058 let IdxCfgEconomyDapp = 2
5159
5260 let IdxCfgWlgDapp = 4
5361
5462 let IdxCfgAcresDapp = 8
5563
5664 func keyRestCfg () = "%s__restConfig"
5765
5866
5967 func keyRestAddress () = "%s__restAddr"
6068
6169
6270 func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
6371
6472
6573 func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
6674
6775
6876 let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
6977
7078 let restCfg = readRestCfgOrFail(restContract)
7179
7280 let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
7381
7482 let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
7583
7684 let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
7785
7886 let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
7987
8088 let acresIssuedAmountKey = "acresIssuedAmount"
8189
8290 let acresAssetIdKey = "acresAssetId"
8391
8492 let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
8593
8694 func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
8795
8896
8997 let IdxEffTotal = 0
9098
9199 func keyResProportions () = "resTypesProportions"
92100
93101
94102 func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
95103
96104
97105 func asInt (v) = match v {
98106 case n: Int =>
99107 n
100108 case _ =>
101109 throw("fail to cast into Int")
102110 }
103111
104112
105113 func asTwoIntsTuple (val) = match val {
106114 case t2: (Int, Int) =>
107115 t2
108116 case _ =>
109117 throw("fail to cast into (Int, Int)")
110118 }
111119
112120
113121 func getVotingPower (userAddrStrOrEmpty) = {
114122 let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
115123 func adder (acc,item) = (acc + parseIntValue(item))
116124
117125 let totalPower = {
118126 let $l = props
119127 let $s = size($l)
120128 let $acc0 = 0
121129 func $f0_1 ($a,$i) = if (($i >= $s))
122130 then $a
123131 else adder($a, $l[$i])
124132
125133 func $f0_2 ($a,$i) = if (($i >= $s))
126134 then $a
127135 else throw("List size exceeds 6")
128136
129137 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
130138 }
131139 let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
132140 [totalPower, usersPower]
133141 }
134142
135143
136144 func fixedPoint (val,decimals) = {
137145 let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
138146 let lowPart = toString((val % tenPow))
139147 let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
140148 (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
141149 }
142150
143151
144152 func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
145153
146154
147155 func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
148156 let deltaTime = (lastBlock.timestamp - lastClaimTime)
149157 let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
150158 let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
151159 let gotUsdt = max([0, canGetUsdt])
152160 (gotUsdt * USDT2ACRES_MULTIPLIER)
153161 }
154162
155163
156164 func claimInternal (addr,acresAmount,lastClaimTime) = {
157165 let deltaTime = (lastBlock.timestamp - lastClaimTime)
158166 if ((0 > deltaTime))
159167 then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
160168 else {
161169 let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
162170 let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
163171 let gotUsdt = if ((0 >= canGetUsdt))
164172 then 0
165173 else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
166174 (gotUsdt * USDT2ACRES_MULTIPLIER)
167175 }
168176 }
169177
170178
179+func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
180+ let now = lastBlock.timestamp
181+ let dt1 = max([0, (oldETA - now)])
182+ let dt2 = max([0, (newETA - now)])
183+ let sum = (oldAmount + newAmount)
184+ let dt = if ((sum == 0))
185+ then 0
186+ else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
187+ (now + dt)
188+ }
189+
190+
171191 @Callable(i)
172192 func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
173193 then throw("Permission denied")
174194 else if (isDefined(getBinary(acresAssetIdKey)))
175195 then throw("Already initialized")
176196 else {
177197 let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
178198 let issuedAmount = (MILLION6 - (nftAcres * MULT8))
179199 let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
180200 let assetId = calculateAssetId(issue)
181201 [issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
182202 }
183203
184204
185205
186206 @Callable(i)
187207 func stakeAcres () = {
188208 let prologResult = prolog()
189209 if ((prologResult == prologResult))
190210 then {
191211 let address = toString(i.caller)
192212 if ((size(i.payments) != 1))
193213 then throw("exactly 1 payment must be attached")
194214 else {
195215 let pmt = i.payments[0]
196216 let amt = pmt.amount
197217 if (if (!(isDefined(pmt.assetId)))
198218 then true
199219 else (value(pmt.assetId) != acresAssetId))
200220 then throw("ACRES payments only!")
201221 else {
202222 let timeKey = keyAcresStakedTimeByUser(address)
203223 let amountKey = keyAcresStakedAmountByUser(address)
204224 let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
205225 let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
206226 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
207227 let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
208228 $Tuple2(((((if ((claimedAcres == 0))
209229 then nil
210230 else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
211231 }
212232 }
213233 }
214234 else throw("Strict value is not equal to itself.")
215235 }
216236
217237
218238
219239 @Callable(i)
220240 func unstakeAcres (amount) = {
221241 let prologResult = prolog()
222242 if ((prologResult == prologResult))
223243 then if ((0 >= amount))
224244 then throw("Amount should be positive")
225245 else {
226246 let address = toString(i.caller)
227247 if ((size(i.payments) != 0))
228248 then throw("No payments required")
229249 else {
230250 let timeKey = keyAcresStakedTimeByUser(address)
231251 let amountKey = keyAcresStakedAmountByUser(address)
232252 let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
233253 if ((amount > oldAcresAmount))
234254 then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
235255 else {
236- let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
237- let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
238- let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
239- $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
256+ let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
257+ let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
258+ let now = lastBlock.timestamp
259+ let unstakableAmount = (oldAcresAmount - lockedAmount)
260+ if (if ((lockedETA > now))
261+ then (amount > unstakableAmount)
262+ else false)
263+ then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
264+ else {
265+ let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
266+ let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
267+ let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
268+ $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
269+ }
240270 }
241271 }
242272 }
243273 else throw("Strict value is not equal to itself.")
244274 }
245275
246276
247277
248278 @Callable(i)
249279 func buyAcres () = {
250280 let prologResult = prolog()
251281 if ((prologResult == prologResult))
252282 then {
253283 let address = toString(i.caller)
254284 if ((size(i.payments) != 1))
255285 then throw("exactly 1 payment must be attached")
256286 else {
257287 let pmt = i.payments[0]
258288 let amt = pmt.amount
259289 if (if (!(isDefined(pmt.assetId)))
260290 then true
261291 else (value(pmt.assetId) != usdtAssetId))
262292 then throw("USDT payments only!")
263293 else if ((MULT6 > amt))
264294 then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
265295 else {
266296 let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
267297 let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
268298 $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
269299 }
270300 }
271301 }
272302 else throw("Strict value is not equal to itself.")
273303 }
274304
275305
276306
277307 @Callable(i)
278308 func sendAcres (addr,amount) = if ((i.caller != economyContract))
279309 then throw("Permission denied")
280310 else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
311+
312+
313+
314+@Callable(i)
315+func sendLockedAcres (addr,amount) = if ((i.caller != this))
316+ then throw("Permission denied")
317+ else {
318+ let now = lastBlock.timestamp
319+ let timeKey = keyAcresStakedTimeByUser(addr)
320+ let amountKey = keyAcresStakedAmountByUser(addr)
321+ let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
322+ let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
323+ let oldTime = valueOrElse(getInteger(timeKey), now)
324+ let etaKey = keyAcresLockedEtaByUser(addr)
325+ let lockedAmountKey = keyAcresLockedAmountByUser(addr)
326+ let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
327+ let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
328+ let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + ACRES_UNLOCK_PERIOD))
329+ $Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], 0)
330+ }
281331
282332
283333
284334 @Callable(i)
285335 func burnAcres (amount) = if ((i.caller != stakingContract))
286336 then throw("Permission denied")
287337 else {
288338 let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
289339 if ((0 > amountLeft))
290340 then throw("Attempt to burn more ACRES, than exists")
291341 else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
292342 }
293343
294344
295345
296346 @Callable(i)
297347 func claimAcres () = {
298348 let prologResult = prolog()
299349 if ((prologResult == prologResult))
300350 then {
301351 let address = toString(i.caller)
302352 if ((size(i.payments) != 0))
303353 then throw("No payments required")
304354 else {
305355 let timeKey = keyAcresStakedTimeByUser(address)
306356 let amountKey = keyAcresStakedAmountByUser(address)
307357 let acresAmount = valueOrElse(getInteger(amountKey), 0)
308358 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
309359 let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
310360 $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
311361 }
312362 }
313363 else throw("Strict value is not equal to itself.")
314364 }
315365
316366
317367
318368 @Callable(i)
319369 func claimAcresREADONLY (address) = {
320370 let timeKey = keyAcresStakedTimeByUser(address)
321371 let amountKey = keyAcresStakedAmountByUser(address)
322372 let acresAmount = valueOrElse(getInteger(amountKey), 0)
323373 let lastTime = valueOrElse(getInteger(timeKey), 0)
324374 let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
325375 $Tuple2(nil, [claimedAcres, lastTime])
326376 }
327377
328378

github/deemru/w8io/169f3d6 
52.33 ms