w8 · tx · AuE···sTT

tx · AuEfrewxgt3rXhtCg1pDwvebZAK5oA6AXscJsQf92sTT

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.00900000 Waves

2023.10.09 22:17 [2791501] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AuEfrewxgt3rXhtCg1pDwvebZAK5oA6AXscJsQf92sTT",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1696879061310,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "3ya9idZ5dNC1E4cRtJjtbX8V2tmiooym7Dt4BwZ2c5S5cPmyzD7g7YZhp4h339JCj4eRyQuACoCMuNZ42BYUgU82"
    ],
    "script": "base64:BgIjCAISBAoCCAESABIDCgEBEgASBAoCCAESAwoBARIAEgMKAQgqAAhNSUxMSU9ONgCAgOmDsd4WAAlEQVlNSUxMSVMAgLiZKQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyABNhY3Jlc1N0YWtlZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsAAp4cE5ld1NMYW5kAMCWsQIAD0RBSUxZUkVTQllQSUVDRQCA+NIBABVVU0RUMkFDUkVTX01VTFRJUExJRVIACgAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BRQ3V2RmJ2aDRMa1BVbnJuVTF6M2puYkExcDltM1dOaHYDCQAAAgEBVAUHJG1hdGNoMAIjM011bWtHR3p0Q0tBWHBXRHF4a2Rkb2ZxWFNVYnFRa3ZTSnkJAAIBAg1Vbmtub3duIGNoYWluAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABFJZHhDZmdTdGFraW5nRGFwcAABABFJZHhDZmdFY29ub215RGFwcAACAA1JZHhDZmdXbGdEYXBwAAQAD0lkeENmZ0FjcmVzRGFwcAAIAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9lY29ub215Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdFY29ub215RGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ1JZHhDZmdXbGdEYXBwAA1hY3Jlc0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUPSWR4Q2ZnQWNyZXNEYXBwABRhY3Jlc0lzc3VlZEFtb3VudEtleQIRYWNyZXNJc3N1ZWRBbW91bnQAD2FjcmVzQXNzZXRJZEtleQIMYWNyZXNBc3NldElkAAxhY3Jlc0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQ1hY3Jlc0NvbnRyYWN0BQ9hY3Jlc0Fzc2V0SWRLZXkCF0FDUkVTIGlzIG5vdCBpc3N1ZWQgeWV0ARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIWYWNyZXNTdGFrZWRUaW1lQnlVc2VyXwUEYWRkcgALSWR4RWZmVG90YWwAAAERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQlvd25lckFkZHIJAKwCAgIUc3Rha2VkUGllY2VzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQ5hc1R3b0ludHNUdXBsZQEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQCdDIFByRtYXRjaDAFAnQyCQACAQIcZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50KQEOZ2V0Vm90aW5nUG93ZXIBEnVzZXJBZGRyU3RyT3JFbXB0eQQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBBRJ1c2VyQWRkclN0ck9yRW1wdHkAAAkAzAgCBQp0b3RhbFBvd2VyCQDMCAIFCnVzZXJzUG93ZXIFA25pbAEKZml4ZWRQb2ludAIDdmFsCGRlY2ltYWxzBAZ0ZW5Qb3cJAGwGAAoAAAUIZGVjaW1hbHMAAAAABQRET1dOBAdsb3dQYXJ0CQCkAwEJAGoCBQN2YWwFBnRlblBvdwQGemVyb2VzCQCwAgIJAKQDAQUGdGVuUG93CQBkAgABCQCxAgEFB2xvd1BhcnQJAKwCAgkArAICCQCsAgIJAKQDAQkAaQIFA3ZhbAUGdGVuUG93AgEuBQZ6ZXJvZXMFB2xvd1BhcnQBBnByb2xvZwAJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAESY2xhaW1BY3Jlc0ludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BApjYW5HZXRVc2R0CQEFYXNJbnQBCQD8BwQFD2Vjb25vbXlDb250cmFjdAIac2VsbFJlc291cmNlc1dvcmxkUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsBAdnb3RVc2R0CQCWAwEJAMwIAgAACQDMCAIFCmNhbkdldFVzZHQFA25pbAkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgENY2xhaW1JbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEFDWxhc3RDbGFpbVRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAMJAGcCAAAFCmNhbkdldFVzZHQAAAgJAQ5hc1R3b0ludHNUdXBsZQEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhJzZWxsUmVzb3VyY2VzV29ybGQJAMwIAgUEYWRkcgkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwCXzEJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIIAWkBDWNvbnN0cnVjdG9yVjECCHJlc3RBZGRyDnVuc3Rha2VkUGllY2VzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ9hY3Jlc0Fzc2V0SWRLZXkJAAIBAhNBbHJlYWR5IGluaXRpYWxpemVkBAhuZnRBY3JlcwkAZAIJAJEDAgkBDmdldFZvdGluZ1Bvd2VyAQIABQtJZHhFZmZUb3RhbAUOdW5zdGFrZWRQaWVjZXMEDGlzc3VlZEFtb3VudAkAZQIFCE1JTExJT042CQBoAgUIbmZ0QWNyZXMFBU1VTFQ4BAVpc3N1ZQkAwwgHAgVBQ1JFUwImV2F2ZXNMYW5kcyBsYW5kIGFjcmVzIGludmVzdG1lbnQgdG9rZW4FDGlzc3VlZEFtb3VudAAIBwUEdW5pdAAABAdhc3NldElkCQC4CAEFBWlzc3VlCQDMCAIFBWlzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQtCaW5hcnlFbnRyeQIFD2FjcmVzQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBCnN0YWtlQWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIDCQAAAgUMY2xhaW1lZEFjcmVzAAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAFpAQx1bnN0YWtlQWNyZXMBBmFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAGcCAAAFBmFtb3VudAkAAgECGUFtb3VudCBzaG91bGQgYmUgcG9zaXRpdmUEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAAAwkAZgIFBmFtb3VudAUOb2xkQWNyZXNBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICAg5Zb3UgaGF2ZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQ5vbGRBY3Jlc0Ftb3VudAAIAiAgQUNSRVMgc3Rha2VkLCB0cmllZCB0byB1bnN0YWtlIAkBCmZpeGVkUG9pbnQCBQZhbW91bnQACAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZQIFCG9sZFRvdGFsBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBkAgUGYW1vdW50BQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0AWkBCGJ1eUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQMJAGYCBQVNVUxUNgUDYW10CQACAQkArAICCQCsAgICFk1pbiBwYXltZW50IHNob3VsZCBiZSAJAQpmaXhlZFBvaW50AgUFTVVMVDYABgIFIFVTRFQEC2FjcmVzQW1vdW50CQBoAgUDYW10BRVVU0RUMkFDUkVTX01VTFRJUExJRVIEDmFjY1N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUHYWRkcmVzcwkAzAgCCQBrAwUKeHBOZXdTTGFuZAULYWNyZXNBbW91bnQJAGgCABkFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFD2Vjb25vbXlDb250cmFjdAUDYW10BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2FjcmVzQW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFDmFjY1N0YXRzUmVzdWx0AWkBCXNlbmRBY3JlcwIEYWRkcgZhbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFD2Vjb25vbXlDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUEYWRkcgUGYW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAUGYW1vdW50AWkBCWJ1cm5BY3JlcwEGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQKYW1vdW50TGVmdAkAZQIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUYWNyZXNJc3N1ZWRBbW91bnRLZXkAAAUGYW1vdW50AwkAZgIAAAUKYW1vdW50TGVmdAkAAgECJ0F0dGVtcHQgdG8gYnVybiBtb3JlIEFDUkVTLCB0aGFuIGV4aXN0cwkAlAoCCQDMCAIJAQRCdXJuAgUMYWNyZXNBc3NldElkBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5BQphbW91bnRMZWZ0BQNuaWwFBmFtb3VudAFpAQpjbGFpbUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwULYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAFpARJjbGFpbUFjcmVzUkVBRE9OTFkBB2FkZHJlc3MEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAEDGNsYWltZWRBY3JlcwkBEmNsYWltQWNyZXNJbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50BQhsYXN0VGltZQkAlAoCBQNuaWwJAMwIAgUMY2xhaW1lZEFjcmVzCQDMCAIFCGxhc3RUaW1lBQNuaWwA3W+Xyw==",
    "height": 2791501,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: B1d16LfBaJixeBHQmk8HZtQYtDKg6njRuwixFtqerjxP
Next: FLHBoSXCwbhy7eiFPzemXD69etqWXeVrEKPxyNEpejoi

Diff: 
Old New Differences
265 265  
266 266  
267 267  @Callable(i)
268 - func sendAcres (addr,amount) = if ((i.caller != stakingContract))
268 + func sendAcres (addr,amount) = if ((i.caller != economyContract))
269 269      then throw("Permission denied")
270 270      else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
271 271  
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  let acresStakedTotalKey = "acresStakedAmountTotal"
12 12  
13 13  let xpNewSLand = 5000000
14 14  
15 15  let DAILYRESBYPIECE = 3456000
16 16  
17 17  let USDT2ACRES_MULTIPLIER = 10
18 18  
19 19  let chain = take(drop(this.bytes, 1), 1)
20 20  
21 21  let usdtAssetId = match chain {
22 22      case _ => 
23 23          if ((base58'2W' == $match0))
24 24              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
25 25              else if ((base58'2T' == $match0))
26 26                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
27 27                  else throw("Unknown chain")
28 28  }
29 29  
30 30  let defaultRestAddressStr = match chain {
31 31      case _ => 
32 32          if ((base58'2W' == $match0))
33 33              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
34 34              else if ((base58'2T' == $match0))
35 35                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
36 36                  else throw("Unknown chain")
37 37  }
38 38  
39 39  let SEP = "__"
40 40  
41 41  let MULT6 = 1000000
42 42  
43 43  let MULT8 = 100000000
44 44  
45 45  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
46 46  
47 47  
48 48  let IdxCfgStakingDapp = 1
49 49  
50 50  let IdxCfgEconomyDapp = 2
51 51  
52 52  let IdxCfgWlgDapp = 4
53 53  
54 54  let IdxCfgAcresDapp = 8
55 55  
56 56  func keyRestCfg () = "%s__restConfig"
57 57  
58 58  
59 59  func keyRestAddress () = "%s__restAddr"
60 60  
61 61  
62 62  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
63 63  
64 64  
65 65  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
66 66  
67 67  
68 68  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
69 69  
70 70  let restCfg = readRestCfgOrFail(restContract)
71 71  
72 72  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
73 73  
74 74  let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
75 75  
76 76  let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
77 77  
78 78  let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
79 79  
80 80  let acresIssuedAmountKey = "acresIssuedAmount"
81 81  
82 82  let acresAssetIdKey = "acresAssetId"
83 83  
84 84  let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
85 85  
86 86  func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
87 87  
88 88  
89 89  let IdxEffTotal = 0
90 90  
91 91  func keyResProportions () = "resTypesProportions"
92 92  
93 93  
94 94  func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
95 95  
96 96  
97 97  func asInt (v) = match v {
98 98      case n: Int => 
99 99          n
100 100      case _ => 
101 101          throw("fail to cast into Int")
102 102  }
103 103  
104 104  
105 105  func asTwoIntsTuple (val) = match val {
106 106      case t2: (Int, Int) => 
107 107          t2
108 108      case _ => 
109 109          throw("fail to cast into (Int, Int)")
110 110  }
111 111  
112 112  
113 113  func getVotingPower (userAddrStrOrEmpty) = {
114 114      let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
115 115      func adder (acc,item) =     (acc + parseIntValue(item))
116 116  
117 117      let totalPower = {
118 118          let $l = props
119 119          let $s = size($l)
120 120          let $acc0 = 0
121 121          func $f0_1 ($a,$i) =         if (($i >= $s))
122 122              then $a
123 123              else adder($a, $l[$i])
124 124  
125 125          func $f0_2 ($a,$i) =         if (($i >= $s))
126 126              then $a
127 127              else throw("List size exceeds 6")
128 128  
129 129          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
130 130          }
131 131      let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
132 132  [totalPower, usersPower]
133 133      }
134 134  
135 135  
136 136  func fixedPoint (val,decimals) = {
137 137      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
138 138      let lowPart = toString((val % tenPow))
139 139      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
140 140      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
141 141      }
142 142  
143 143  
144 144  func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
145 145  
146 146  
147 147  func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
148 148      let deltaTime = (lastBlock.timestamp - lastClaimTime)
149 149      let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
150 150      let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
151 151      let gotUsdt = max([0, canGetUsdt])
152 152      (gotUsdt * USDT2ACRES_MULTIPLIER)
153 153      }
154 154  
155 155  
156 156  func claimInternal (addr,acresAmount,lastClaimTime) = {
157 157      let deltaTime = (lastBlock.timestamp - lastClaimTime)
158 158      if ((0 > deltaTime))
159 159          then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
160 160          else {
161 161              let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
162 162              let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
163 163              let gotUsdt = if ((0 >= canGetUsdt))
164 164                  then 0
165 165                  else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
166 166              (gotUsdt * USDT2ACRES_MULTIPLIER)
167 167              }
168 168      }
169 169  
170 170  
171 171  @Callable(i)
172 172  func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
173 173      then throw("Permission denied")
174 174      else if (isDefined(getBinary(acresAssetIdKey)))
175 175          then throw("Already initialized")
176 176          else {
177 177              let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
178 178              let issuedAmount = (MILLION6 - (nftAcres * MULT8))
179 179              let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
180 180              let assetId = calculateAssetId(issue)
181 181  [issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
182 182              }
183 183  
184 184  
185 185  
186 186  @Callable(i)
187 187  func stakeAcres () = {
188 188      let prologResult = prolog()
189 189      let address = toString(i.caller)
190 190      if ((size(i.payments) != 1))
191 191          then throw("exactly 1 payment must be attached")
192 192          else {
193 193              let pmt = i.payments[0]
194 194              let amt = pmt.amount
195 195              if (if (!(isDefined(pmt.assetId)))
196 196                  then true
197 197                  else (value(pmt.assetId) != acresAssetId))
198 198                  then throw("ACRES payments only!")
199 199                  else {
200 200                      let timeKey = keyAcresStakedTimeByUser(address)
201 201                      let amountKey = keyAcresStakedAmountByUser(address)
202 202                      let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
203 203                      let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
204 204                      let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
205 205                      let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
206 206                      $Tuple2(((((if ((claimedAcres == 0))
207 207                          then nil
208 208                          else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
209 209                      }
210 210              }
211 211      }
212 212  
213 213  
214 214  
215 215  @Callable(i)
216 216  func unstakeAcres (amount) = {
217 217      let prologResult = prolog()
218 218      if ((0 >= amount))
219 219          then throw("Amount should be positive")
220 220          else {
221 221              let address = toString(i.caller)
222 222              if ((size(i.payments) != 0))
223 223                  then throw("No payments required")
224 224                  else {
225 225                      let timeKey = keyAcresStakedTimeByUser(address)
226 226                      let amountKey = keyAcresStakedAmountByUser(address)
227 227                      let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
228 228                      if ((amount > oldAcresAmount))
229 229                          then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
230 230                          else {
231 231                              let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
232 232                              let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
233 233                              let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
234 234                              $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
235 235                              }
236 236                      }
237 237              }
238 238      }
239 239  
240 240  
241 241  
242 242  @Callable(i)
243 243  func buyAcres () = {
244 244      let prologResult = prolog()
245 245      let address = toString(i.caller)
246 246      if ((size(i.payments) != 1))
247 247          then throw("exactly 1 payment must be attached")
248 248          else {
249 249              let pmt = i.payments[0]
250 250              let amt = pmt.amount
251 251              if (if (!(isDefined(pmt.assetId)))
252 252                  then true
253 253                  else (value(pmt.assetId) != usdtAssetId))
254 254                  then throw("USDT payments only!")
255 255                  else if ((MULT6 > amt))
256 256                      then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
257 257                      else {
258 258                          let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
259 259                          let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
260 260                          $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
261 261                          }
262 262              }
263 263      }
264 264  
265 265  
266 266  
267 267  @Callable(i)
268 - func sendAcres (addr,amount) = if ((i.caller != stakingContract))
268 + func sendAcres (addr,amount) = if ((i.caller != economyContract))
269 269      then throw("Permission denied")
270 270      else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
271 271  
272 272  
273 273  
274 274  @Callable(i)
275 275  func burnAcres (amount) = if ((i.caller != stakingContract))
276 276      then throw("Permission denied")
277 277      else {
278 278          let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
279 279          if ((0 > amountLeft))
280 280              then throw("Attempt to burn more ACRES, than exists")
281 281              else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
282 282          }
283 283  
284 284  
285 285  
286 286  @Callable(i)
287 287  func claimAcres () = {
288 288      let prologResult = prolog()
289 289      let address = toString(i.caller)
290 290      if ((size(i.payments) != 0))
291 291          then throw("No payments required")
292 292          else {
293 293              let timeKey = keyAcresStakedTimeByUser(address)
294 294              let amountKey = keyAcresStakedAmountByUser(address)
295 295              let acresAmount = valueOrElse(getInteger(amountKey), 0)
296 296              let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
297 297              let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
298 298              $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
299 299              }
300 300      }
301 301  
302 302  
303 303  
304 304  @Callable(i)
305 305  func claimAcresREADONLY (address) = {
306 306      let timeKey = keyAcresStakedTimeByUser(address)
307 307      let amountKey = keyAcresStakedAmountByUser(address)
308 308      let acresAmount = valueOrElse(getInteger(amountKey), 0)
309 309      let lastTime = valueOrElse(getInteger(timeKey), 0)
310 310      let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
311 311      $Tuple2(nil, [claimedAcres, lastTime])
312 312      }
313 313  
314 314

Old	New		Differences
265	265
266	266
267	267		@Callable(i)
268		-	func sendAcres (addr,amount) = if ((i.caller != ~~stakingContract~~))
	268	+	func sendAcres (addr,amount) = if ((i.caller != economyContract))
269	269		then throw("Permission denied")
270	270		else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
271	271

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		let acresStakedTotalKey = "acresStakedAmountTotal"
12	12
13	13		let xpNewSLand = 5000000
14	14
15	15		let DAILYRESBYPIECE = 3456000
16	16
17	17		let USDT2ACRES_MULTIPLIER = 10
18	18
19	19		let chain = take(drop(this.bytes, 1), 1)
20	20
21	21		let usdtAssetId = match chain {
22	22		case _ =>
23	23		if ((base58'2W' == $match0))
24	24		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
25	25		else if ((base58'2T' == $match0))
26	26		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
27	27		else throw("Unknown chain")
28	28		}
29	29
30	30		let defaultRestAddressStr = match chain {
31	31		case _ =>
32	32		if ((base58'2W' == $match0))
33	33		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
34	34		else if ((base58'2T' == $match0))
35	35		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
36	36		else throw("Unknown chain")
37	37		}
38	38
39	39		let SEP = "__"
40	40
41	41		let MULT6 = 1000000
42	42
43	43		let MULT8 = 100000000
44	44
45	45		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
46	46
47	47
48	48		let IdxCfgStakingDapp = 1
49	49
50	50		let IdxCfgEconomyDapp = 2
51	51
52	52		let IdxCfgWlgDapp = 4
53	53
54	54		let IdxCfgAcresDapp = 8
55	55
56	56		func keyRestCfg () = "%s__restConfig"
57	57
58	58
59	59		func keyRestAddress () = "%s__restAddr"
60	60
61	61
62	62		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
63	63
64	64
65	65		func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
66	66
67	67
68	68		let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
69	69
70	70		let restCfg = readRestCfgOrFail(restContract)
71	71
72	72		let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
73	73
74	74		let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
75	75
76	76		let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
77	77
78	78		let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
79	79
80	80		let acresIssuedAmountKey = "acresIssuedAmount"
81	81
82	82		let acresAssetIdKey = "acresAssetId"
83	83
84	84		let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
85	85
86	86		func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
87	87
88	88
89	89		let IdxEffTotal = 0
90	90
91	91		func keyResProportions () = "resTypesProportions"
92	92
93	93
94	94		func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
95	95
96	96
97	97		func asInt (v) = match v {
98	98		case n: Int =>
99	99		n
100	100		case _ =>
101	101		throw("fail to cast into Int")
102	102		}
103	103
104	104
105	105		func asTwoIntsTuple (val) = match val {
106	106		case t2: (Int, Int) =>
107	107		t2
108	108		case _ =>
109	109		throw("fail to cast into (Int, Int)")
110	110		}
111	111
112	112
113	113		func getVotingPower (userAddrStrOrEmpty) = {
114	114		let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
115	115		func adder (acc,item) = (acc + parseIntValue(item))
116	116
117	117		let totalPower = {
118	118		let $l = props
119	119		let $s = size($l)
120	120		let $acc0 = 0
121	121		func $f0_1 ($a,$i) = if (($i >= $s))
122	122		then $a
123	123		else adder($a, $l[$i])
124	124
125	125		func $f0_2 ($a,$i) = if (($i >= $s))
126	126		then $a
127	127		else throw("List size exceeds 6")
128	128
129	129		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
130	130		}
131	131		let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
132	132		[totalPower, usersPower]
133	133		}
134	134
135	135
136	136		func fixedPoint (val,decimals) = {
137	137		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
138	138		let lowPart = toString((val % tenPow))
139	139		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
140	140		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
141	141		}
142	142
143	143
144	144		func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
145	145
146	146
147	147		func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
148	148		let deltaTime = (lastBlock.timestamp - lastClaimTime)
149	149		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
150	150		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
151	151		let gotUsdt = max([0, canGetUsdt])
152	152		(gotUsdt * USDT2ACRES_MULTIPLIER)
153	153		}
154	154
155	155
156	156		func claimInternal (addr,acresAmount,lastClaimTime) = {
157	157		let deltaTime = (lastBlock.timestamp - lastClaimTime)
158	158		if ((0 > deltaTime))
159	159		then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
160	160		else {
161	161		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
162	162		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
163	163		let gotUsdt = if ((0 >= canGetUsdt))
164	164		then 0
165	165		else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
166	166		(gotUsdt * USDT2ACRES_MULTIPLIER)
167	167		}
168	168		}
169	169
170	170
171	171		@Callable(i)
172	172		func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
173	173		then throw("Permission denied")
174	174		else if (isDefined(getBinary(acresAssetIdKey)))
175	175		then throw("Already initialized")
176	176		else {
177	177		let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
178	178		let issuedAmount = (MILLION6 - (nftAcres * MULT8))
179	179		let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
180	180		let assetId = calculateAssetId(issue)
181	181		[issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
182	182		}
183	183
184	184
185	185
186	186		@Callable(i)
187	187		func stakeAcres () = {
188	188		let prologResult = prolog()
189	189		let address = toString(i.caller)
190	190		if ((size(i.payments) != 1))
191	191		then throw("exactly 1 payment must be attached")
192	192		else {
193	193		let pmt = i.payments[0]
194	194		let amt = pmt.amount
195	195		if (if (!(isDefined(pmt.assetId)))
196	196		then true
197	197		else (value(pmt.assetId) != acresAssetId))
198	198		then throw("ACRES payments only!")
199	199		else {
200	200		let timeKey = keyAcresStakedTimeByUser(address)
201	201		let amountKey = keyAcresStakedAmountByUser(address)
202	202		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
203	203		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
204	204		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
205	205		let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
206	206		$Tuple2(((((if ((claimedAcres == 0))
207	207		then nil
208	208		else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
209	209		}
210	210		}
211	211		}
212	212
213	213
214	214
215	215		@Callable(i)
216	216		func unstakeAcres (amount) = {
217	217		let prologResult = prolog()
218	218		if ((0 >= amount))
219	219		then throw("Amount should be positive")
220	220		else {
221	221		let address = toString(i.caller)
222	222		if ((size(i.payments) != 0))
223	223		then throw("No payments required")
224	224		else {
225	225		let timeKey = keyAcresStakedTimeByUser(address)
226	226		let amountKey = keyAcresStakedAmountByUser(address)
227	227		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
228	228		if ((amount > oldAcresAmount))
229	229		then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
230	230		else {
231	231		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
232	232		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
233	233		let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
234	234		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
235	235		}
236	236		}
237	237		}
238	238		}
239	239
240	240
241	241
242	242		@Callable(i)
243	243		func buyAcres () = {
244	244		let prologResult = prolog()
245	245		let address = toString(i.caller)
246	246		if ((size(i.payments) != 1))
247	247		then throw("exactly 1 payment must be attached")
248	248		else {
249	249		let pmt = i.payments[0]
250	250		let amt = pmt.amount
251	251		if (if (!(isDefined(pmt.assetId)))
252	252		then true
253	253		else (value(pmt.assetId) != usdtAssetId))
254	254		then throw("USDT payments only!")
255	255		else if ((MULT6 > amt))
256	256		then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
257	257		else {
258	258		let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
259	259		let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
260	260		$Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
261	261		}
262	262		}
263	263		}
264	264
265	265
266	266
267	267		@Callable(i)
268		-	func sendAcres (addr,amount) = if ((i.caller != ~~stakingContract~~))
	268	+	func sendAcres (addr,amount) = if ((i.caller != economyContract))
269	269		then throw("Permission denied")
270	270		else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
271	271
272	272
273	273
274	274		@Callable(i)
275	275		func burnAcres (amount) = if ((i.caller != stakingContract))
276	276		then throw("Permission denied")
277	277		else {
278	278		let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
279	279		if ((0 > amountLeft))
280	280		then throw("Attempt to burn more ACRES, than exists")
281	281		else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
282	282		}
283	283
284	284
285	285
286	286		@Callable(i)
287	287		func claimAcres () = {
288	288		let prologResult = prolog()
289	289		let address = toString(i.caller)
290	290		if ((size(i.payments) != 0))
291	291		then throw("No payments required")
292	292		else {
293	293		let timeKey = keyAcresStakedTimeByUser(address)
294	294		let amountKey = keyAcresStakedAmountByUser(address)
295	295		let acresAmount = valueOrElse(getInteger(amountKey), 0)
296	296		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
297	297		let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
298	298		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
299	299		}
300	300		}
301	301
302	302
303	303
304	304		@Callable(i)
305	305		func claimAcresREADONLY (address) = {
306	306		let timeKey = keyAcresStakedTimeByUser(address)
307	307		let amountKey = keyAcresStakedAmountByUser(address)
308	308		let acresAmount = valueOrElse(getInteger(amountKey), 0)
309	309		let lastTime = valueOrElse(getInteger(timeKey), 0)
310	310		let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
311	311		$Tuple2(nil, [claimedAcres, lastTime])
312	312		}
313	313
314	314

github/deemru/w8io/026f985 
41.59 ms ◑