w8 · tx · E2J···Sig

tx · E2JN3F1oqYzoP5pTv4TtpwMPbvRbYFbCHmniF6ijiSig

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.01200000 Waves

2023.11.19 18:52 [2850466] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "E2JN3F1oqYzoP5pTv4TtpwMPbvRbYFbCHmniF6ijiSig",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1700409143157,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "2xMJZfoQMHuneZUxUsCPbEwvqRGwUTeyzPPcjfKbKNvB4FNTnoGw6YuMX3HrwJyHoz8k2c7kvXfM3BQE3ZzJWbCJ"
    ],
    "script": "base64:BgIsCAISBAoCCAESABIDCgEBEgASABIECgIIARIFCgMIAQESAwoBARIAEgMKAQguAAhNSUxMSU9ONgCAgOmDsd4WAAlEQVlNSUxMSVMAgLiZKQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhhhY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcl8FBGFkZHIBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQRhZGRyCQCsAgICFWFjcmVzTG9ja2VkRXRhQnlVc2VyXwUEYWRkcgATYWNyZXNTdGFrZWRUb3RhbEtleQIWYWNyZXNTdGFrZWRBbW91bnRUb3RhbAAKeHBOZXdTTGFuZADAlrECAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAAoABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2R0QXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEghNp6sggDP07Ru8qO7ouTvMmC3Qtd+geWqNQj+agP/7kDCQAAAgEBVAUHJG1hdGNoMAEgVbHYn3KHgu/l41uNrAWrZd6aQ6EvFrsF8xq3h6XxxRgJAAIBAg1Vbmtub3duIGNoYWluABVkZWZhdWx0UmVzdEFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQUUN1dkZidmg0TGtQVW5yblUxejNqbmJBMXA5bTNXTmh2AwkAAAIBAVQFByRtYXRjaDACIzNNdW1rR0d6dENLQVhwV0RxeGtkZG9mcVhTVWJxUWt2U0p5CQACAQINVW5rbm93biBjaGFpbgADU0VQAgJfXwAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgANSWR4Q2ZnV2xnRGFwcAAEAA9JZHhDZmdBY3Jlc0RhcHAACAEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPZWNvbm9teUNvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnRWNvbm9teURhcHAAC3dsZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUNSWR4Q2ZnV2xnRGFwcAANYWNyZXNDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFD0lkeENmZ0FjcmVzRGFwcAAUYWNyZXNJc3N1ZWRBbW91bnRLZXkCEWFjcmVzSXNzdWVkQW1vdW50AA9hY3Jlc0Fzc2V0SWRLZXkCDGFjcmVzQXNzZXRJZAAMYWNyZXNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJwIAgUNYWNyZXNDb250cmFjdAUPYWNyZXNBc3NldElkS2V5AhdBQ1JFUyBpcyBub3QgaXNzdWVkIHlldAEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQRhZGRyCQCsAgICFmFjcmVzU3Rha2VkVGltZUJ5VXNlcl8FBGFkZHIAC0lkeEVmZlRvdGFsAAABEWtleVJlc1Byb3BvcnRpb25zAAITcmVzVHlwZXNQcm9wb3J0aW9ucwEWa2V5U3Rha2VkUGllY2VzQnlPd25lcgEJb3duZXJBZGRyCQCsAgICFHN0YWtlZFBpZWNlc0J5T3duZXJfBQlvd25lckFkZHIBBWFzSW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACA0ludAQBbgUHJG1hdGNoMAUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEOYXNUd29JbnRzVHVwbGUBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACCihJbnQsIEludCkEAnQyBQckbWF0Y2gwBQJ0MgkAAgECHGZhaWwgdG8gY2FzdCBpbnRvIChJbnQsIEludCkBDmdldFZvdGluZ1Bvd2VyARJ1c2VyQWRkclN0ck9yRW1wdHkEBXByb3BzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAIBXwoBBWFkZGVyAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAp0b3RhbFBvd2VyCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlcnNQb3dlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AB1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwCAreIEAQZwcm9sb2cACQEFYXNJbnQBCQD9BwQFD3N0YWtpbmdDb250cmFjdAIKc2F2ZUxhc3RUeAUDbmlsBQNuaWwBEmNsYWltQWNyZXNJbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAkAlgMBCQDMCAIAAAkAzAgCBQpjYW5HZXRVc2R0BQNuaWwJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIBDWNsYWltSW50ZXJuYWwDBGFkZHILYWNyZXNBbW91bnQNbGFzdENsYWltVGltZQQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFDWxhc3RDbGFpbVRpbWUDCQBmAgAABQlkZWx0YVRpbWUJAAIBCQCsAgIJAKwCAgkArAICAiZTYXZlZCB0aW1lc3RhbXAgaXMgaW4gZnV0dXJlLCBzYXZlZCA9IAkApAMBBQ1sYXN0Q2xhaW1UaW1lAgwsIGN1cnJlbnQgPSAJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAECGF2YWlsUmVzCQBrAwUJZGVsdGFUaW1lCQBoAgUPREFJTFlSRVNCWVBJRUNFBQthY3Jlc0Ftb3VudAkAaAIFCURBWU1JTExJUwUFTVVMVDgECmNhbkdldFVzZHQJAQVhc0ludAEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhpzZWxsUmVzb3VyY2VzV29ybGRSRUFET05MWQkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwEB2dvdFVzZHQDCQBnAgAABQpjYW5HZXRVc2R0AAAICQEOYXNUd29JbnRzVHVwbGUBCQD8BwQFD2Vjb25vbXlDb250cmFjdAISc2VsbFJlc291cmNlc1dvcmxkCQDMCAIFBGFkZHIJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsAl8xCQBoAgUHZ290VXNkdAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAQttZXJnZUxvY2tlZAQJb2xkQW1vdW50Bm9sZEVUQQluZXdBbW91bnQGbmV3RVRBBANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBANkdDEJAJYDAQkAzAgCAAAJAMwIAgkAZQIFBm9sZEVUQQUDbm93BQNuaWwEA2R0MgkAlgMBCQDMCAIAAAkAzAgCCQBlAgUGbmV3RVRBBQNub3cFA25pbAQDc3VtCQBkAgUJb2xkQW1vdW50BQluZXdBbW91bnQEAmR0AwkAAAIFA3N1bQAAAAAJAGQCCQBrAwUDZHQxBQlvbGRBbW91bnQFA3N1bQkAawMFA2R0MgUJbmV3QW1vdW50BQNzdW0JAGQCBQNub3cFAmR0CgFpAQ1jb25zdHJ1Y3RvclYxAghyZXN0QWRkcg51bnN0YWtlZFBpZWNlcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkAwkBCWlzRGVmaW5lZAEJAKEIAQUPYWNyZXNBc3NldElkS2V5CQACAQITQWxyZWFkeSBpbml0aWFsaXplZAQIbmZ0QWNyZXMJAGQCCQCRAwIJAQ5nZXRWb3RpbmdQb3dlcgECAAULSWR4RWZmVG90YWwFDnVuc3Rha2VkUGllY2VzBAxpc3N1ZWRBbW91bnQJAGUCBQhNSUxMSU9ONgkAaAIFCG5mdEFjcmVzBQVNVUxUOAQFaXNzdWUJAMMIBwIFQUNSRVMCJldhdmVzTGFuZHMgbGFuZCBhY3JlcyBpbnZlc3RtZW50IHRva2VuBQxpc3N1ZWRBbW91bnQACAcFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQVpc3N1ZQkAzAgCBQVpc3N1ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUUYWNyZXNJc3N1ZWRBbW91bnRLZXkFDGlzc3VlZEFtb3VudAkAzAgCCQELQmluYXJ5RW50cnkCBQ9hY3Jlc0Fzc2V0SWRLZXkFB2Fzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDmtleVJlc3RBZGRyZXNzAAUIcmVzdEFkZHIFA25pbAFpAQpzdGFrZUFjcmVzAAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECKFRlbXBvcmFyaWx5IGRpc2FibGVkIGR1cmluZyBwcm9tbyBhY3Rpb24EDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQxhY3Jlc0Fzc2V0SWQJAAIBAhRBQ1JFUyBwYXltZW50cyBvbmx5IQQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwEDGNsYWltZWRBY3JlcwkBDWNsYWltSW50ZXJuYWwDBQdhZGRyZXNzBQ5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAJAJQKAgkAzQgCCQDNCAIJAM0IAgMJAAACBQxjbGFpbWVkQWNyZXMAAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBkAgUOb2xkQWNyZXNBbW91bnQFA2FtdAkBDEludGVnZXJFbnRyeQIFE2FjcmVzU3Rha2VkVG90YWxLZXkJAGQCBQhvbGRUb3RhbAUDYW10CQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDHVuc3Rha2VBY3JlcwEGYW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkAZwIAAAUGYW1vdW50CQACAQIZQW1vdW50IHNob3VsZCBiZSBwb3NpdGl2ZQQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAADCQBmAgUGYW1vdW50BQ5vbGRBY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAxsb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBGmtleUFjcmVzTG9ja2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwAABAlsb2NrZWRFVEEJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQUHYWRkcmVzcwAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBBB1bnN0YWthYmxlQW1vdW50CQBlAgUOb2xkQWNyZXNBbW91bnQFDGxvY2tlZEFtb3VudAMDCQBmAgUJbG9ja2VkRVRBBQNub3cJAGYCBQZhbW91bnQFEHVuc3Rha2FibGVBbW91bnQHCQACAQkArAICCQCsAgIJAKwCAgIFT25seSAJAQpmaXhlZFBvaW50AgUQdW5zdGFrYWJsZUFtb3VudAAIAicgQUNSRVMgY2FuIGJlIHVuc3Rha2VkIG5vdywgd2FpdCB1bnRpbCAJAKQDAQUJbG9ja2VkRVRBBAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGUCBQ5vbGRBY3Jlc0Ftb3VudAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBlAgUIb2xkVG90YWwFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGQCBQZhbW91bnQFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQc3Rha2VBY3Jlc0xvY2tlZAAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQxhY3Jlc0Fzc2V0SWQJAAIBAhRBQ1JFUyBwYXltZW50cyBvbmx5IQMJAGYCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwUDYW10CQACAQkArAICCQCsAgICOU1pbiBzdGFrZWQgYW1vdW50IGR1cmluZyBwcm9tbyBhY3Rpb24gc2hvdWxkIGJlIGF0IGxlYXN0IAkBCmZpeGVkUG9pbnQCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwAIAgYgQUNSRVMECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsAwkAAAIFCXdsZ1Jlc3VsdAUJd2xnUmVzdWx0BAtzdGFrZVJlc3VsdAkA/AcEBQR0aGlzAg9zZW5kTG9ja2VkQWNyZXMJAMwIAgUHYWRkcmVzcwkAzAgCBQNhbXQJAMwIAgAeBQNuaWwFA25pbAkAlAoCBQNuaWwJAJUKAwUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQFC3N0YWtlUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGJ1eUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQMJAGYCBQVNVUxUNgUDYW10CQACAQkArAICCQCsAgICFk1pbiBwYXltZW50IHNob3VsZCBiZSAJAQpmaXhlZFBvaW50AgUFTVVMVDYABgIFIFVTRFQEC2FjcmVzQW1vdW50CQBoAgUDYW10BRVVU0RUMkFDUkVTX01VTFRJUExJRVIEDmFjY1N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUHYWRkcmVzcwkAzAgCCQBrAwUKeHBOZXdTTGFuZAULYWNyZXNBbW91bnQJAGgCABkFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFD2Vjb25vbXlDb250cmFjdAUDYW10BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2FjcmVzQW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFDmFjY1N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCXNlbmRBY3JlcwIEYWRkcgZhbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFD2Vjb25vbXlDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUEYWRkcgUGYW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAUGYW1vdW50AWkBD3NlbmRMb2NrZWRBY3JlcwMEYWRkcgZhbW91bnQIbG9ja0RheXMDAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQECIT0CCAUBaQZjYWxsZXIFDHJlc3RDb250cmFjdAcJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFBGFkZHIECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUEYWRkcgQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQHb2xkVGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5BQNub3cEBmV0YUtleQkBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQUEYWRkcgQPbG9ja2VkQW1vdW50S2V5CQEaa2V5QWNyZXNMb2NrZWRBbW91bnRCeVVzZXIBBQRhZGRyBA9vbGRMb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPbG9ja2VkQW1vdW50S2V5AAAEDG9sZExvY2tlZEVUQQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQZldGFLZXkAAAQJbWVyZ2VkRVRBCQELbWVyZ2VMb2NrZWQEBQ9vbGRMb2NrZWRBbW91bnQFDG9sZExvY2tlZEVUQQUGYW1vdW50CQBkAgUDbm93CQBoAgUIbG9ja0RheXMFCURBWU1JTExJUwkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5BQdvbGRUaW1lCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGQCBQ5vbGRBY3Jlc0Ftb3VudAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUGZXRhS2V5BQltZXJnZWRFVEEJAMwIAgkBDEludGVnZXJFbnRyeQIFD2xvY2tlZEFtb3VudEtleQkAZAIFD29sZExvY2tlZEFtb3VudAUGYW1vdW50BQNuaWwFBmFtb3VudAFpAQlidXJuQWNyZXMBBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQECmFtb3VudExlZnQJAGUCCQELdmFsdWVPckVsc2UCCQCfCAEFFGFjcmVzSXNzdWVkQW1vdW50S2V5AAAFBmFtb3VudAMJAGYCAAAFCmFtb3VudExlZnQJAAIBAidBdHRlbXB0IHRvIGJ1cm4gbW9yZSBBQ1JFUywgdGhhbiBleGlzdHMJAJQKAgkAzAgCCQEEQnVybgIFDGFjcmVzQXNzZXRJZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUKYW1vdW50TGVmdAUDbmlsBQZhbW91bnQBaQEKY2xhaW1BY3JlcwAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQESY2xhaW1BY3Jlc1JFQURPTkxZAQdhZGRyZXNzBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBAthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAABAxjbGFpbWVkQWNyZXMJARJjbGFpbUFjcmVzSW50ZXJuYWwDBQdhZGRyZXNzBQthY3Jlc0Ftb3VudAUIbGFzdFRpbWUJAJQKAgUDbmlsCQDMCAIFDGNsYWltZWRBY3JlcwkAzAgCBQhsYXN0VGltZQUDbmlsADMNNvg=",
    "height": 2850466,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 97dEm8KT6r5hsdpGrhCgGmSYVtaPqoCdHq2rEWbm7VZb
Next: FQmE36qNwo3eacM5XEnJRiL3NK8U3FRYCrnBo23SdLbD

Diff: 
Old New Differences
147 147      }
148 148  
149 149  
150 + let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
151 + 
150 152  func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
151 153  
152 154  
202 204  
203 205  
204 206  @Callable(i)
205 - func stakeAcres () = {
206 -     let prologResult = prolog()
207 -     if ((prologResult == prologResult))
208 -         then {
209 -             let address = toString(i.caller)
210 -             if ((size(i.payments) != 1))
211 -                 then throw("exactly 1 payment must be attached")
212 -                 else {
213 -                     let pmt = i.payments[0]
214 -                     let amt = pmt.amount
215 -                     if (if (!(isDefined(pmt.assetId)))
216 -                         then true
217 -                         else (value(pmt.assetId) != acresAssetId))
218 -                         then throw("ACRES payments only!")
219 -                         else {
220 -                             let timeKey = keyAcresStakedTimeByUser(address)
221 -                             let amountKey = keyAcresStakedAmountByUser(address)
222 -                             let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
223 -                             let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
224 -                             let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
225 -                             let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
226 -                             $Tuple2(((((if ((claimedAcres == 0))
227 -                                 then nil
228 -                                 else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
229 -                             }
230 -                     }
231 -             }
232 -         else throw("Strict value is not equal to itself.")
233 -     }
207 + func stakeAcres () = if ((i.caller != this))
208 +     then throw("Temporarily disabled during promo action")
209 +     else {
210 +         let prologResult = prolog()
211 +         if ((prologResult == prologResult))
212 +             then {
213 +                 let address = toString(i.caller)
214 +                 if ((size(i.payments) != 1))
215 +                     then throw("exactly 1 payment must be attached")
216 +                     else {
217 +                         let pmt = i.payments[0]
218 +                         let amt = pmt.amount
219 +                         if (if (!(isDefined(pmt.assetId)))
220 +                             then true
221 +                             else (value(pmt.assetId) != acresAssetId))
222 +                             then throw("ACRES payments only!")
223 +                             else {
224 +                                 let timeKey = keyAcresStakedTimeByUser(address)
225 +                                 let amountKey = keyAcresStakedAmountByUser(address)
226 +                                 let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
227 +                                 let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
228 +                                 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
229 +                                 let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
230 +                                 $Tuple2(((((if ((claimedAcres == 0))
231 +                                     then nil
232 +                                     else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
233 +                                 }
234 +                         }
235 +                 }
236 +             else throw("Strict value is not equal to itself.")
237 +         }
234 238  
235 239  
236 240  
268 272                                  }
269 273                          }
270 274                  }
275 +         else throw("Strict value is not equal to itself.")
276 +     }
277 + 
278 + 
279 + 
280 + @Callable(i)
281 + func stakeAcresLocked () = {
282 +     let prologResult = prolog()
283 +     if ((prologResult == prologResult))
284 +         then {
285 +             let address = toString(i.caller)
286 +             if ((size(i.payments) != 1))
287 +                 then throw("exactly 1 payment must be attached")
288 +                 else {
289 +                     let pmt = i.payments[0]
290 +                     let amt = pmt.amount
291 +                     if (if (!(isDefined(pmt.assetId)))
292 +                         then true
293 +                         else (value(pmt.assetId) != acresAssetId))
294 +                         then throw("ACRES payments only!")
295 +                         else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
296 +                             then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
297 +                             else {
298 +                                 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
299 +                                 if ((wlgResult == wlgResult))
300 +                                     then {
301 +                                         let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
302 +                                         $Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
303 +                                         }
304 +                                     else throw("Strict value is not equal to itself.")
305 +                                 }
306 +                     }
307 +             }
271 308          else throw("Strict value is not equal to itself.")
272 309      }
273 310  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let MILLION6 = 100000000000000
5 5  
6 6  let DAYMILLIS = 86400000
7 7  
8 8  func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
9 9  
10 10  
11 11  func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
12 12  
13 13  
14 14  func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
15 15  
16 16  
17 17  let acresStakedTotalKey = "acresStakedAmountTotal"
18 18  
19 19  let xpNewSLand = 5000000
20 20  
21 21  let DAILYRESBYPIECE = 3456000
22 22  
23 23  let USDT2ACRES_MULTIPLIER = 10
24 24  
25 25  let chain = take(drop(this.bytes, 1), 1)
26 26  
27 27  let usdtAssetId = match chain {
28 28      case _ => 
29 29          if ((base58'2W' == $match0))
30 30              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
31 31              else if ((base58'2T' == $match0))
32 32                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
33 33                  else throw("Unknown chain")
34 34  }
35 35  
36 36  let defaultRestAddressStr = match chain {
37 37      case _ => 
38 38          if ((base58'2W' == $match0))
39 39              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
40 40              else if ((base58'2T' == $match0))
41 41                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
42 42                  else throw("Unknown chain")
43 43  }
44 44  
45 45  let SEP = "__"
46 46  
47 47  let MULT6 = 1000000
48 48  
49 49  let MULT8 = 100000000
50 50  
51 51  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
52 52  
53 53  
54 54  let IdxCfgStakingDapp = 1
55 55  
56 56  let IdxCfgEconomyDapp = 2
57 57  
58 58  let IdxCfgWlgDapp = 4
59 59  
60 60  let IdxCfgAcresDapp = 8
61 61  
62 62  func keyRestCfg () = "%s__restConfig"
63 63  
64 64  
65 65  func keyRestAddress () = "%s__restAddr"
66 66  
67 67  
68 68  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
69 69  
70 70  
71 71  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
72 72  
73 73  
74 74  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
75 75  
76 76  let restCfg = readRestCfgOrFail(restContract)
77 77  
78 78  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
79 79  
80 80  let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
81 81  
82 82  let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
83 83  
84 84  let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
85 85  
86 86  let acresIssuedAmountKey = "acresIssuedAmount"
87 87  
88 88  let acresAssetIdKey = "acresAssetId"
89 89  
90 90  let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
91 91  
92 92  func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
93 93  
94 94  
95 95  let IdxEffTotal = 0
96 96  
97 97  func keyResProportions () = "resTypesProportions"
98 98  
99 99  
100 100  func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
101 101  
102 102  
103 103  func asInt (v) = match v {
104 104      case n: Int => 
105 105          n
106 106      case _ => 
107 107          throw("fail to cast into Int")
108 108  }
109 109  
110 110  
111 111  func asTwoIntsTuple (val) = match val {
112 112      case t2: (Int, Int) => 
113 113          t2
114 114      case _ => 
115 115          throw("fail to cast into (Int, Int)")
116 116  }
117 117  
118 118  
119 119  func getVotingPower (userAddrStrOrEmpty) = {
120 120      let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
121 121      func adder (acc,item) =     (acc + parseIntValue(item))
122 122  
123 123      let totalPower = {
124 124          let $l = props
125 125          let $s = size($l)
126 126          let $acc0 = 0
127 127          func $f0_1 ($a,$i) =         if (($i >= $s))
128 128              then $a
129 129              else adder($a, $l[$i])
130 130  
131 131          func $f0_2 ($a,$i) =         if (($i >= $s))
132 132              then $a
133 133              else throw("List size exceeds 6")
134 134  
135 135          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
136 136          }
137 137      let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
138 138  [totalPower, usersPower]
139 139      }
140 140  
141 141  
142 142  func fixedPoint (val,decimals) = {
143 143      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
144 144      let lowPart = toString((val % tenPow))
145 145      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
146 146      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
147 147      }
148 148  
149 149  
150 + let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
151 + 
150 152  func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
151 153  
152 154  
153 155  func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
154 156      let deltaTime = (lastBlock.timestamp - lastClaimTime)
155 157      let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
156 158      let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
157 159      let gotUsdt = max([0, canGetUsdt])
158 160      (gotUsdt * USDT2ACRES_MULTIPLIER)
159 161      }
160 162  
161 163  
162 164  func claimInternal (addr,acresAmount,lastClaimTime) = {
163 165      let deltaTime = (lastBlock.timestamp - lastClaimTime)
164 166      if ((0 > deltaTime))
165 167          then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
166 168          else {
167 169              let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
168 170              let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
169 171              let gotUsdt = if ((0 >= canGetUsdt))
170 172                  then 0
171 173                  else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
172 174              (gotUsdt * USDT2ACRES_MULTIPLIER)
173 175              }
174 176      }
175 177  
176 178  
177 179  func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
178 180      let now = lastBlock.timestamp
179 181      let dt1 = max([0, (oldETA - now)])
180 182      let dt2 = max([0, (newETA - now)])
181 183      let sum = (oldAmount + newAmount)
182 184      let dt = if ((sum == 0))
183 185          then 0
184 186          else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
185 187      (now + dt)
186 188      }
187 189  
188 190  
189 191  @Callable(i)
190 192  func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
191 193      then throw("Permission denied")
192 194      else if (isDefined(getBinary(acresAssetIdKey)))
193 195          then throw("Already initialized")
194 196          else {
195 197              let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
196 198              let issuedAmount = (MILLION6 - (nftAcres * MULT8))
197 199              let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
198 200              let assetId = calculateAssetId(issue)
199 201  [issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
200 202              }
201 203  
202 204  
203 205  
204 206  @Callable(i)
205 - func stakeAcres () = {
206 -     let prologResult = prolog()
207 -     if ((prologResult == prologResult))
208 -         then {
209 -             let address = toString(i.caller)
210 -             if ((size(i.payments) != 1))
211 -                 then throw("exactly 1 payment must be attached")
212 -                 else {
213 -                     let pmt = i.payments[0]
214 -                     let amt = pmt.amount
215 -                     if (if (!(isDefined(pmt.assetId)))
216 -                         then true
217 -                         else (value(pmt.assetId) != acresAssetId))
218 -                         then throw("ACRES payments only!")
219 -                         else {
220 -                             let timeKey = keyAcresStakedTimeByUser(address)
221 -                             let amountKey = keyAcresStakedAmountByUser(address)
222 -                             let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
223 -                             let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
224 -                             let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
225 -                             let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
226 -                             $Tuple2(((((if ((claimedAcres == 0))
227 -                                 then nil
228 -                                 else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
229 -                             }
230 -                     }
231 -             }
232 -         else throw("Strict value is not equal to itself.")
233 -     }
207 + func stakeAcres () = if ((i.caller != this))
208 +     then throw("Temporarily disabled during promo action")
209 +     else {
210 +         let prologResult = prolog()
211 +         if ((prologResult == prologResult))
212 +             then {
213 +                 let address = toString(i.caller)
214 +                 if ((size(i.payments) != 1))
215 +                     then throw("exactly 1 payment must be attached")
216 +                     else {
217 +                         let pmt = i.payments[0]
218 +                         let amt = pmt.amount
219 +                         if (if (!(isDefined(pmt.assetId)))
220 +                             then true
221 +                             else (value(pmt.assetId) != acresAssetId))
222 +                             then throw("ACRES payments only!")
223 +                             else {
224 +                                 let timeKey = keyAcresStakedTimeByUser(address)
225 +                                 let amountKey = keyAcresStakedAmountByUser(address)
226 +                                 let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
227 +                                 let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
228 +                                 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
229 +                                 let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
230 +                                 $Tuple2(((((if ((claimedAcres == 0))
231 +                                     then nil
232 +                                     else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
233 +                                 }
234 +                         }
235 +                 }
236 +             else throw("Strict value is not equal to itself.")
237 +         }
234 238  
235 239  
236 240  
237 241  @Callable(i)
238 242  func unstakeAcres (amount) = {
239 243      let prologResult = prolog()
240 244      if ((prologResult == prologResult))
241 245          then if ((0 >= amount))
242 246              then throw("Amount should be positive")
243 247              else {
244 248                  let address = toString(i.caller)
245 249                  if ((size(i.payments) != 0))
246 250                      then throw("No payments required")
247 251                      else {
248 252                          let timeKey = keyAcresStakedTimeByUser(address)
249 253                          let amountKey = keyAcresStakedAmountByUser(address)
250 254                          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
251 255                          if ((amount > oldAcresAmount))
252 256                              then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
253 257                              else {
254 258                                  let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
255 259                                  let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
256 260                                  let now = lastBlock.timestamp
257 261                                  let unstakableAmount = (oldAcresAmount - lockedAmount)
258 262                                  if (if ((lockedETA > now))
259 263                                      then (amount > unstakableAmount)
260 264                                      else false)
261 265                                      then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
262 266                                      else {
263 267                                          let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
264 268                                          let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
265 269                                          let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
266 270                                          $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
267 271                                          }
268 272                                  }
269 273                          }
270 274                  }
275 +         else throw("Strict value is not equal to itself.")
276 +     }
277 + 
278 + 
279 + 
280 + @Callable(i)
281 + func stakeAcresLocked () = {
282 +     let prologResult = prolog()
283 +     if ((prologResult == prologResult))
284 +         then {
285 +             let address = toString(i.caller)
286 +             if ((size(i.payments) != 1))
287 +                 then throw("exactly 1 payment must be attached")
288 +                 else {
289 +                     let pmt = i.payments[0]
290 +                     let amt = pmt.amount
291 +                     if (if (!(isDefined(pmt.assetId)))
292 +                         then true
293 +                         else (value(pmt.assetId) != acresAssetId))
294 +                         then throw("ACRES payments only!")
295 +                         else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
296 +                             then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
297 +                             else {
298 +                                 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
299 +                                 if ((wlgResult == wlgResult))
300 +                                     then {
301 +                                         let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
302 +                                         $Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
303 +                                         }
304 +                                     else throw("Strict value is not equal to itself.")
305 +                                 }
306 +                     }
307 +             }
271 308          else throw("Strict value is not equal to itself.")
272 309      }
273 310  
274 311  
275 312  
276 313  @Callable(i)
277 314  func buyAcres () = {
278 315      let prologResult = prolog()
279 316      if ((prologResult == prologResult))
280 317          then {
281 318              let address = toString(i.caller)
282 319              if ((size(i.payments) != 1))
283 320                  then throw("exactly 1 payment must be attached")
284 321                  else {
285 322                      let pmt = i.payments[0]
286 323                      let amt = pmt.amount
287 324                      if (if (!(isDefined(pmt.assetId)))
288 325                          then true
289 326                          else (value(pmt.assetId) != usdtAssetId))
290 327                          then throw("USDT payments only!")
291 328                          else if ((MULT6 > amt))
292 329                              then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
293 330                              else {
294 331                                  let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
295 332                                  let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
296 333                                  $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
297 334                                  }
298 335                      }
299 336              }
300 337          else throw("Strict value is not equal to itself.")
301 338      }
302 339  
303 340  
304 341  
305 342  @Callable(i)
306 343  func sendAcres (addr,amount) = if ((i.caller != economyContract))
307 344      then throw("Permission denied")
308 345      else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
309 346  
310 347  
311 348  
312 349  @Callable(i)
313 350  func sendLockedAcres (addr,amount,lockDays) = if (if ((i.caller != this))
314 351      then (i.caller != restContract)
315 352      else false)
316 353      then throw("Permission denied")
317 354      else {
318 355          let now = lastBlock.timestamp
319 356          let timeKey = keyAcresStakedTimeByUser(addr)
320 357          let amountKey = keyAcresStakedAmountByUser(addr)
321 358          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
322 359          let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
323 360          let oldTime = valueOrElse(getInteger(timeKey), now)
324 361          let etaKey = keyAcresLockedEtaByUser(addr)
325 362          let lockedAmountKey = keyAcresLockedAmountByUser(addr)
326 363          let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
327 364          let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
328 365          let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
329 366          $Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
330 367          }
331 368  
332 369  
333 370  
334 371  @Callable(i)
335 372  func burnAcres (amount) = if ((i.caller != stakingContract))
336 373      then throw("Permission denied")
337 374      else {
338 375          let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
339 376          if ((0 > amountLeft))
340 377              then throw("Attempt to burn more ACRES, than exists")
341 378              else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
342 379          }
343 380  
344 381  
345 382  
346 383  @Callable(i)
347 384  func claimAcres () = {
348 385      let prologResult = prolog()
349 386      if ((prologResult == prologResult))
350 387          then {
351 388              let address = toString(i.caller)
352 389              if ((size(i.payments) != 0))
353 390                  then throw("No payments required")
354 391                  else {
355 392                      let timeKey = keyAcresStakedTimeByUser(address)
356 393                      let amountKey = keyAcresStakedAmountByUser(address)
357 394                      let acresAmount = valueOrElse(getInteger(amountKey), 0)
358 395                      let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
359 396                      let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
360 397                      $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
361 398                      }
362 399              }
363 400          else throw("Strict value is not equal to itself.")
364 401      }
365 402  
366 403  
367 404  
368 405  @Callable(i)
369 406  func claimAcresREADONLY (address) = {
370 407      let timeKey = keyAcresStakedTimeByUser(address)
371 408      let amountKey = keyAcresStakedAmountByUser(address)
372 409      let acresAmount = valueOrElse(getInteger(amountKey), 0)
373 410      let lastTime = valueOrElse(getInteger(timeKey), 0)
374 411      let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
375 412      $Tuple2(nil, [claimedAcres, lastTime])
376 413      }
377 414  
378 415

Old	New		Differences
147	147		}
148	148
149	149
	150	+	let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
	151	+
150	152		func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
151	153
152	154

202	204
203	205
204	206		@Callable(i)
205		-	func stakeAcres () = {
206		-	let prologResult = prolog()
207		-	if ((prologResult == prologResult))
208		-	then {
209		-	let address = toString(i.caller)
210		-	if ((size(i.payments) != 1))
211		-	then throw("exactly 1 payment must be attached")
212		-	else {
213		-	let pmt = i.payments[0]
214		-	let amt = pmt.amount
215		-	if (if (!(isDefined(pmt.assetId)))
216		-	then true
217		-	else (value(pmt.assetId) != acresAssetId))
218		-	then throw("ACRES payments only!")
219		-	else {
220		-	let timeKey = keyAcresStakedTimeByUser(address)
221		-	let amountKey = keyAcresStakedAmountByUser(address)
222		-	let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
223		-	let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
224		-	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
225		-	let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
226		-	$Tuple2(((((if ((claimedAcres == 0))
227		-	then nil
228		-	else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
229		-	}
230		-	}
231		-	}
232		-	else throw("Strict value is not equal to itself.")
233		-	}
	207	+	func stakeAcres () = if ((i.caller != this))
	208	+	then throw("Temporarily disabled during promo action")
	209	+	else {
	210	+	let prologResult = prolog()
	211	+	if ((prologResult == prologResult))
	212	+	then {
	213	+	let address = toString(i.caller)
	214	+	if ((size(i.payments) != 1))
	215	+	then throw("exactly 1 payment must be attached")
	216	+	else {
	217	+	let pmt = i.payments[0]
	218	+	let amt = pmt.amount
	219	+	if (if (!(isDefined(pmt.assetId)))
	220	+	then true
	221	+	else (value(pmt.assetId) != acresAssetId))
	222	+	then throw("ACRES payments only!")
	223	+	else {
	224	+	let timeKey = keyAcresStakedTimeByUser(address)
	225	+	let amountKey = keyAcresStakedAmountByUser(address)
	226	+	let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
	227	+	let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
	228	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
	229	+	let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
	230	+	$Tuple2(((((if ((claimedAcres == 0))
	231	+	then nil
	232	+	else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
	233	+	}
	234	+	}
	235	+	}
	236	+	else throw("Strict value is not equal to itself.")
	237	+	}
234	238
235	239
236	240

268	272		}
269	273		}
270	274		}
	275	+	else throw("Strict value is not equal to itself.")
	276	+	}
	277	+
	278	+
	279	+
	280	+	@Callable(i)
	281	+	func stakeAcresLocked () = {
	282	+	let prologResult = prolog()
	283	+	if ((prologResult == prologResult))
	284	+	then {
	285	+	let address = toString(i.caller)
	286	+	if ((size(i.payments) != 1))
	287	+	then throw("exactly 1 payment must be attached")
	288	+	else {
	289	+	let pmt = i.payments[0]
	290	+	let amt = pmt.amount
	291	+	if (if (!(isDefined(pmt.assetId)))
	292	+	then true
	293	+	else (value(pmt.assetId) != acresAssetId))
	294	+	then throw("ACRES payments only!")
	295	+	else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
	296	+	then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
	297	+	else {
	298	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
	299	+	if ((wlgResult == wlgResult))
	300	+	then {
	301	+	let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
	302	+	$Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
	303	+	}
	304	+	else throw("Strict value is not equal to itself.")
	305	+	}
	306	+	}
	307	+	}
271	308		else throw("Strict value is not equal to itself.")
272	309		}
273	310

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let MILLION6 = 100000000000000
5	5
6	6		let DAYMILLIS = 86400000
7	7
8	8		func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
9	9
10	10
11	11		func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
12	12
13	13
14	14		func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
15	15
16	16
17	17		let acresStakedTotalKey = "acresStakedAmountTotal"
18	18
19	19		let xpNewSLand = 5000000
20	20
21	21		let DAILYRESBYPIECE = 3456000
22	22
23	23		let USDT2ACRES_MULTIPLIER = 10
24	24
25	25		let chain = take(drop(this.bytes, 1), 1)
26	26
27	27		let usdtAssetId = match chain {
28	28		case _ =>
29	29		if ((base58'2W' == $match0))
30	30		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
31	31		else if ((base58'2T' == $match0))
32	32		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
33	33		else throw("Unknown chain")
34	34		}
35	35
36	36		let defaultRestAddressStr = match chain {
37	37		case _ =>
38	38		if ((base58'2W' == $match0))
39	39		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
40	40		else if ((base58'2T' == $match0))
41	41		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
42	42		else throw("Unknown chain")
43	43		}
44	44
45	45		let SEP = "__"
46	46
47	47		let MULT6 = 1000000
48	48
49	49		let MULT8 = 100000000
50	50
51	51		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
52	52
53	53
54	54		let IdxCfgStakingDapp = 1
55	55
56	56		let IdxCfgEconomyDapp = 2
57	57
58	58		let IdxCfgWlgDapp = 4
59	59
60	60		let IdxCfgAcresDapp = 8
61	61
62	62		func keyRestCfg () = "%s__restConfig"
63	63
64	64
65	65		func keyRestAddress () = "%s__restAddr"
66	66
67	67
68	68		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
69	69
70	70
71	71		func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
72	72
73	73
74	74		let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
75	75
76	76		let restCfg = readRestCfgOrFail(restContract)
77	77
78	78		let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
79	79
80	80		let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
81	81
82	82		let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
83	83
84	84		let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
85	85
86	86		let acresIssuedAmountKey = "acresIssuedAmount"
87	87
88	88		let acresAssetIdKey = "acresAssetId"
89	89
90	90		let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
91	91
92	92		func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
93	93
94	94
95	95		let IdxEffTotal = 0
96	96
97	97		func keyResProportions () = "resTypesProportions"
98	98
99	99
100	100		func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
101	101
102	102
103	103		func asInt (v) = match v {
104	104		case n: Int =>
105	105		n
106	106		case _ =>
107	107		throw("fail to cast into Int")
108	108		}
109	109
110	110
111	111		func asTwoIntsTuple (val) = match val {
112	112		case t2: (Int, Int) =>
113	113		t2
114	114		case _ =>
115	115		throw("fail to cast into (Int, Int)")
116	116		}
117	117
118	118
119	119		func getVotingPower (userAddrStrOrEmpty) = {
120	120		let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
121	121		func adder (acc,item) = (acc + parseIntValue(item))
122	122
123	123		let totalPower = {
124	124		let $l = props
125	125		let $s = size($l)
126	126		let $acc0 = 0
127	127		func $f0_1 ($a,$i) = if (($i >= $s))
128	128		then $a
129	129		else adder($a, $l[$i])
130	130
131	131		func $f0_2 ($a,$i) = if (($i >= $s))
132	132		then $a
133	133		else throw("List size exceeds 6")
134	134
135	135		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
136	136		}
137	137		let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
138	138		[totalPower, usersPower]
139	139		}
140	140
141	141
142	142		func fixedPoint (val,decimals) = {
143	143		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
144	144		let lowPart = toString((val % tenPow))
145	145		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
146	146		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
147	147		}
148	148
149	149
	150	+	let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
	151	+
150	152		func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
151	153
152	154
153	155		func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
154	156		let deltaTime = (lastBlock.timestamp - lastClaimTime)
155	157		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
156	158		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
157	159		let gotUsdt = max([0, canGetUsdt])
158	160		(gotUsdt * USDT2ACRES_MULTIPLIER)
159	161		}
160	162
161	163
162	164		func claimInternal (addr,acresAmount,lastClaimTime) = {
163	165		let deltaTime = (lastBlock.timestamp - lastClaimTime)
164	166		if ((0 > deltaTime))
165	167		then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
166	168		else {
167	169		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
168	170		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
169	171		let gotUsdt = if ((0 >= canGetUsdt))
170	172		then 0
171	173		else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
172	174		(gotUsdt * USDT2ACRES_MULTIPLIER)
173	175		}
174	176		}
175	177
176	178
177	179		func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
178	180		let now = lastBlock.timestamp
179	181		let dt1 = max([0, (oldETA - now)])
180	182		let dt2 = max([0, (newETA - now)])
181	183		let sum = (oldAmount + newAmount)
182	184		let dt = if ((sum == 0))
183	185		then 0
184	186		else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
185	187		(now + dt)
186	188		}
187	189
188	190
189	191		@Callable(i)
190	192		func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
191	193		then throw("Permission denied")
192	194		else if (isDefined(getBinary(acresAssetIdKey)))
193	195		then throw("Already initialized")
194	196		else {
195	197		let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
196	198		let issuedAmount = (MILLION6 - (nftAcres * MULT8))
197	199		let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
198	200		let assetId = calculateAssetId(issue)
199	201		[issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
200	202		}
201	203
202	204
203	205
204	206		@Callable(i)
205		-	func stakeAcres () = {
206		-	let prologResult = prolog()
207		-	if ((prologResult == prologResult))
208		-	then {
209		-	let address = toString(i.caller)
210		-	if ((size(i.payments) != 1))
211		-	then throw("exactly 1 payment must be attached")
212		-	else {
213		-	let pmt = i.payments[0]
214		-	let amt = pmt.amount
215		-	if (if (!(isDefined(pmt.assetId)))
216		-	then true
217		-	else (value(pmt.assetId) != acresAssetId))
218		-	then throw("ACRES payments only!")
219		-	else {
220		-	let timeKey = keyAcresStakedTimeByUser(address)
221		-	let amountKey = keyAcresStakedAmountByUser(address)
222		-	let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
223		-	let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
224		-	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
225		-	let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
226		-	$Tuple2(((((if ((claimedAcres == 0))
227		-	then nil
228		-	else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
229		-	}
230		-	}
231		-	}
232		-	else throw("Strict value is not equal to itself.")
233		-	}
	207	+	func stakeAcres () = if ((i.caller != this))
	208	+	then throw("Temporarily disabled during promo action")
	209	+	else {
	210	+	let prologResult = prolog()
	211	+	if ((prologResult == prologResult))
	212	+	then {
	213	+	let address = toString(i.caller)
	214	+	if ((size(i.payments) != 1))
	215	+	then throw("exactly 1 payment must be attached")
	216	+	else {
	217	+	let pmt = i.payments[0]
	218	+	let amt = pmt.amount
	219	+	if (if (!(isDefined(pmt.assetId)))
	220	+	then true
	221	+	else (value(pmt.assetId) != acresAssetId))
	222	+	then throw("ACRES payments only!")
	223	+	else {
	224	+	let timeKey = keyAcresStakedTimeByUser(address)
	225	+	let amountKey = keyAcresStakedAmountByUser(address)
	226	+	let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
	227	+	let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
	228	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
	229	+	let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
	230	+	$Tuple2(((((if ((claimedAcres == 0))
	231	+	then nil
	232	+	else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
	233	+	}
	234	+	}
	235	+	}
	236	+	else throw("Strict value is not equal to itself.")
	237	+	}
234	238
235	239
236	240
237	241		@Callable(i)
238	242		func unstakeAcres (amount) = {
239	243		let prologResult = prolog()
240	244		if ((prologResult == prologResult))
241	245		then if ((0 >= amount))
242	246		then throw("Amount should be positive")
243	247		else {
244	248		let address = toString(i.caller)
245	249		if ((size(i.payments) != 0))
246	250		then throw("No payments required")
247	251		else {
248	252		let timeKey = keyAcresStakedTimeByUser(address)
249	253		let amountKey = keyAcresStakedAmountByUser(address)
250	254		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
251	255		if ((amount > oldAcresAmount))
252	256		then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
253	257		else {
254	258		let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
255	259		let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
256	260		let now = lastBlock.timestamp
257	261		let unstakableAmount = (oldAcresAmount - lockedAmount)
258	262		if (if ((lockedETA > now))
259	263		then (amount > unstakableAmount)
260	264		else false)
261	265		then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
262	266		else {
263	267		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
264	268		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
265	269		let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
266	270		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
267	271		}
268	272		}
269	273		}
270	274		}
	275	+	else throw("Strict value is not equal to itself.")
	276	+	}
	277	+
	278	+
	279	+
	280	+	@Callable(i)
	281	+	func stakeAcresLocked () = {
	282	+	let prologResult = prolog()
	283	+	if ((prologResult == prologResult))
	284	+	then {
	285	+	let address = toString(i.caller)
	286	+	if ((size(i.payments) != 1))
	287	+	then throw("exactly 1 payment must be attached")
	288	+	else {
	289	+	let pmt = i.payments[0]
	290	+	let amt = pmt.amount
	291	+	if (if (!(isDefined(pmt.assetId)))
	292	+	then true
	293	+	else (value(pmt.assetId) != acresAssetId))
	294	+	then throw("ACRES payments only!")
	295	+	else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
	296	+	then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
	297	+	else {
	298	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
	299	+	if ((wlgResult == wlgResult))
	300	+	then {
	301	+	let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
	302	+	$Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
	303	+	}
	304	+	else throw("Strict value is not equal to itself.")
	305	+	}
	306	+	}
	307	+	}
271	308		else throw("Strict value is not equal to itself.")
272	309		}
273	310
274	311
275	312
276	313		@Callable(i)
277	314		func buyAcres () = {
278	315		let prologResult = prolog()
279	316		if ((prologResult == prologResult))
280	317		then {
281	318		let address = toString(i.caller)
282	319		if ((size(i.payments) != 1))
283	320		then throw("exactly 1 payment must be attached")
284	321		else {
285	322		let pmt = i.payments[0]
286	323		let amt = pmt.amount
287	324		if (if (!(isDefined(pmt.assetId)))
288	325		then true
289	326		else (value(pmt.assetId) != usdtAssetId))
290	327		then throw("USDT payments only!")
291	328		else if ((MULT6 > amt))
292	329		then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
293	330		else {
294	331		let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
295	332		let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
296	333		$Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
297	334		}
298	335		}
299	336		}
300	337		else throw("Strict value is not equal to itself.")
301	338		}
302	339
303	340
304	341
305	342		@Callable(i)
306	343		func sendAcres (addr,amount) = if ((i.caller != economyContract))
307	344		then throw("Permission denied")
308	345		else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
309	346
310	347
311	348
312	349		@Callable(i)
313	350		func sendLockedAcres (addr,amount,lockDays) = if (if ((i.caller != this))
314	351		then (i.caller != restContract)
315	352		else false)
316	353		then throw("Permission denied")
317	354		else {
318	355		let now = lastBlock.timestamp
319	356		let timeKey = keyAcresStakedTimeByUser(addr)
320	357		let amountKey = keyAcresStakedAmountByUser(addr)
321	358		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
322	359		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
323	360		let oldTime = valueOrElse(getInteger(timeKey), now)
324	361		let etaKey = keyAcresLockedEtaByUser(addr)
325	362		let lockedAmountKey = keyAcresLockedAmountByUser(addr)
326	363		let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
327	364		let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
328	365		let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
329	366		$Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
330	367		}
331	368
332	369
333	370
334	371		@Callable(i)
335	372		func burnAcres (amount) = if ((i.caller != stakingContract))
336	373		then throw("Permission denied")
337	374		else {
338	375		let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
339	376		if ((0 > amountLeft))
340	377		then throw("Attempt to burn more ACRES, than exists")
341	378		else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
342	379		}
343	380
344	381
345	382
346	383		@Callable(i)
347	384		func claimAcres () = {
348	385		let prologResult = prolog()
349	386		if ((prologResult == prologResult))
350	387		then {
351	388		let address = toString(i.caller)
352	389		if ((size(i.payments) != 0))
353	390		then throw("No payments required")
354	391		else {
355	392		let timeKey = keyAcresStakedTimeByUser(address)
356	393		let amountKey = keyAcresStakedAmountByUser(address)
357	394		let acresAmount = valueOrElse(getInteger(amountKey), 0)
358	395		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
359	396		let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
360	397		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
361	398		}
362	399		}
363	400		else throw("Strict value is not equal to itself.")
364	401		}
365	402
366	403
367	404
368	405		@Callable(i)
369	406		func claimAcresREADONLY (address) = {
370	407		let timeKey = keyAcresStakedTimeByUser(address)
371	408		let amountKey = keyAcresStakedAmountByUser(address)
372	409		let acresAmount = valueOrElse(getInteger(amountKey), 0)
373	410		let lastTime = valueOrElse(getInteger(timeKey), 0)
374	411		let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
375	412		$Tuple2(nil, [claimedAcres, lastTime])
376	413		}
377	414
378	415

github/deemru/w8io/169f3d6 
46.58 ms ◑