w8 · tx · 6vv···seE

tx · 6vv8YwYhwBUM2CT6p7RHVdVs6JH5KDXxvrAFjpSZaseE

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.00800000 Waves

2023.09.23 17:41 [2768161] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6vv8YwYhwBUM2CT6p7RHVdVs6JH5KDXxvrAFjpSZaseE",
    "fee": 800000,
    "feeAssetId": null,
    "timestamp": 1695480109850,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "4mCyoC8hynmnpTGxye9SmyghAxyCNdfUXxCwSZZaBkiePNBLC9XEV5RvbDbw9wBARbNdcLFJi16neGkrVkTZWaFm"
    ],
    "script": "base64:BgIdCAISBAoCCAESABIDCgEBEgASAwoBARIAEgMKAQgqAAhNSUxMSU9ONgCAgOmDsd4WAAlEQVlNSUxMSVMAgLiZKQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyABNhY3Jlc1N0YWtlZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsAAp4cE5ld1NMYW5kAMCWsQIAD0RBSUxZUkVTQllQSUVDRQCA+NIBABVVU0RUMkFDUkVTX01VTFRJUExJRVIACgAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BRQ3V2RmJ2aDRMa1BVbnJuVTF6M2puYkExcDltM1dOaHYDCQAAAgEBVAUHJG1hdGNoMAIjM011bWtHR3p0Q0tBWHBXRHF4a2Rkb2ZxWFNVYnFRa3ZTSnkJAAIBAg1Vbmtub3duIGNoYWluAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABFJZHhDZmdTdGFraW5nRGFwcAABABFJZHhDZmdFY29ub215RGFwcAACAA1JZHhDZmdXbGdEYXBwAAQAD0lkeENmZ0FjcmVzRGFwcAAIAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9lY29ub215Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdFY29ub215RGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ1JZHhDZmdXbGdEYXBwAA1hY3Jlc0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUPSWR4Q2ZnQWNyZXNEYXBwABRhY3Jlc0lzc3VlZEFtb3VudEtleQIRYWNyZXNJc3N1ZWRBbW91bnQAD2FjcmVzQXNzZXRJZEtleQIMYWNyZXNBc3NldElkAAxhY3Jlc0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQ1hY3Jlc0NvbnRyYWN0BQ9hY3Jlc0Fzc2V0SWRLZXkCF0FDUkVTIGlzIG5vdCBpc3N1ZWQgeWV0ARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIWYWNyZXNTdGFrZWRUaW1lQnlVc2VyXwUEYWRkcgALSWR4RWZmVG90YWwAAAERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQlvd25lckFkZHIJAKwCAgIUc3Rha2VkUGllY2VzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQ5hc1R3b0ludHNUdXBsZQEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQCdDIFByRtYXRjaDAFAnQyCQACAQIcZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50KQEOZ2V0Vm90aW5nUG93ZXIBEnVzZXJBZGRyU3RyT3JFbXB0eQQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBBRJ1c2VyQWRkclN0ck9yRW1wdHkAAAkAzAgCBQp0b3RhbFBvd2VyCQDMCAIFCnVzZXJzUG93ZXIFA25pbAEKZml4ZWRQb2ludAIDdmFsCGRlY2ltYWxzBAZ0ZW5Qb3cJAGwGAAoAAAUIZGVjaW1hbHMAAAAABQRET1dOBAdsb3dQYXJ0CQCkAwEJAGoCBQN2YWwFBnRlblBvdwQGemVyb2VzCQCwAgIJAKQDAQUGdGVuUG93CQBkAgABCQCxAgEFB2xvd1BhcnQJAKwCAgkArAICCQCsAgIJAKQDAQkAaQIFA3ZhbAUGdGVuUG93AgEuBQZ6ZXJvZXMFB2xvd1BhcnQBBnByb2xvZwAJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAESY2xhaW1BY3Jlc0ludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BApjYW5HZXRVc2R0CQEFYXNJbnQBCQD8BwQFD2Vjb25vbXlDb250cmFjdAIac2VsbFJlc291cmNlc1dvcmxkUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsBAdnb3RVc2R0CQCWAwEJAMwIAgAACQDMCAIFCmNhbkdldFVzZHQFA25pbAkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgENY2xhaW1JbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEFDWxhc3RDbGFpbVRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAMJAGcCAAAFCmNhbkdldFVzZHQAAAgJAQ5hc1R3b0ludHNUdXBsZQEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhJzZWxsUmVzb3VyY2VzV29ybGQJAMwIAgUEYWRkcgkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwCXzEJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIHAWkBDWNvbnN0cnVjdG9yVjECCHJlc3RBZGRyDnVuc3Rha2VkUGllY2VzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ9hY3Jlc0Fzc2V0SWRLZXkJAAIBAhNBbHJlYWR5IGluaXRpYWxpemVkBAhuZnRBY3JlcwkAZAIJAJEDAgkBDmdldFZvdGluZ1Bvd2VyAQIABQtJZHhFZmZUb3RhbAUOdW5zdGFrZWRQaWVjZXMEDGlzc3VlZEFtb3VudAkAZQIFCE1JTExJT042CQBoAgUIbmZ0QWNyZXMFBU1VTFQ4BAVpc3N1ZQkAwwgHAgVBQ1JFUwImV2F2ZXNMYW5kcyBsYW5kIGFjcmVzIGludmVzdG1lbnQgdG9rZW4FDGlzc3VlZEFtb3VudAAIBwUEdW5pdAAABAdhc3NldElkCQC4CAEFBWlzc3VlCQDMCAIFBWlzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQtCaW5hcnlFbnRyeQIFD2FjcmVzQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBCnN0YWtlQWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIDCQAAAgUMY2xhaW1lZEFjcmVzAAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAFpAQx1bnN0YWtlQWNyZXMBBmFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAGcCAAAFBmFtb3VudAkAAgECGUFtb3VudCBzaG91bGQgYmUgcG9zaXRpdmUEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAAAwkAZgIFBmFtb3VudAUOb2xkQWNyZXNBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICAg5Zb3UgaGF2ZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQ5vbGRBY3Jlc0Ftb3VudAAIAiAgQUNSRVMgc3Rha2VkLCB0cmllZCB0byB1bnN0YWtlIAkBCmZpeGVkUG9pbnQCBQZhbW91bnQACAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZQIFCG9sZFRvdGFsBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBkAgUGYW1vdW50BQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0AWkBCGJ1eUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQMJAGYCBQVNVUxUNgUDYW10CQACAQkArAICCQCsAgICFk1pbiBwYXltZW50IHNob3VsZCBiZSAJAQpmaXhlZFBvaW50AgUFTVVMVDYABgIFIFVTRFQEC2FjcmVzQW1vdW50CQBoAgUDYW10BRVVU0RUMkFDUkVTX01VTFRJUExJRVIEDmFjY1N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUHYWRkcmVzcwkAzAgCCQBrAwUKeHBOZXdTTGFuZAULYWNyZXNBbW91bnQJAGgCABkFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFD2Vjb25vbXlDb250cmFjdAUDYW10BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2FjcmVzQW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFDmFjY1N0YXRzUmVzdWx0AWkBCWJ1cm5BY3JlcwEGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAlAoCCQDMCAIJAQRCdXJuAgUMYWNyZXNBc3NldElkBQZhbW91bnQFA25pbAUGYW1vdW50AWkBCmNsYWltQWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBAthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwEDGNsYWltZWRBY3JlcwkBDWNsYWltSW50ZXJuYWwDBQdhZGRyZXNzBQthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0AWkBEmNsYWltQWNyZXNSRUFET05MWQEHYWRkcmVzcwQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECGxhc3RUaW1lCQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAQMY2xhaW1lZEFjcmVzCQESY2xhaW1BY3Jlc0ludGVybmFsAwUHYWRkcmVzcwULYWNyZXNBbW91bnQFCGxhc3RUaW1lCQCUCgIFA25pbAkAzAgCBQxjbGFpbWVkQWNyZXMJAMwIAgUIbGFzdFRpbWUFA25pbADEe/co",
    "height": 2768161,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GQv1JNJiP1C3iFkFy3yAbwmEnzLgjdjuvX83zYyJzLES
Next: 6wtoAm8MX5XaLQzjHAbe1kRpigouPL7kdNGMC2QPTLUr

Diff: 
Old New Differences
106 106  
107 107  
108 108  func T (U) = {
109 -     let V = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
110 -     func W (X,Y) =     (X + parseIntValue(Y))
111 - 
112 -     let Z = {
113 -         let aa = V
114 -         let ab = size(aa)
115 -         let ac = 0
116 -         func ad (ae,af) =         if ((af >= ab))
117 -             then ae
118 -             else W(ae, aa[af])
119 - 
120 -         func ag (ae,af) =         if ((af >= ab))
121 -             then ae
122 -             else throw("List size exceeds 6")
123 - 
124 -         ag(ad(ad(ad(ad(ad(ad(ac, 0), 1), 2), 3), 4), 5), 6)
125 -         }
126 -     let ah = valueOrElse(getInteger(E, O(U)), 0)
127 - [Z, ah]
109 +     let k = U
110 +     if ($isInstanceOf(k, "(Int, Int)"))
111 +         then {
112 +             let V = k
113 +             V
114 +             }
115 +         else throw("fail to cast into (Int, Int)")
128 116      }
129 117  
130 118  
131 - func ai (aj,ak) = {
132 -     let al = pow(10, 0, ak, 0, 0, DOWN)
133 -     let am = toString((aj % al))
134 -     let an = drop(toString(al), (1 + size(am)))
135 -     (((toString((aj / al)) + ".") + an) + am)
119 + func W (X) = {
120 +     let Y = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
121 +     func Z (aa,ab) =     (aa + parseIntValue(ab))
122 + 
123 +     let ac = {
124 +         let ad = Y
125 +         let ae = size(ad)
126 +         let af = 0
127 +         func ag (ah,ai) =         if ((ai >= ae))
128 +             then ah
129 +             else Z(ah, ad[ai])
130 + 
131 +         func aj (ah,ai) =         if ((ai >= ae))
132 +             then ah
133 +             else throw("List size exceeds 6")
134 + 
135 +         aj(ag(ag(ag(ag(ag(ag(af, 0), 1), 2), 3), 4), 5), 6)
136 +         }
137 +     let ak = valueOrElse(getInteger(E, O(X)), 0)
138 + [ac, ak]
136 139      }
137 140  
138 141  
139 - func ao (aj) = {
140 -     let k = aj
141 -     if ($isInstanceOf(k, "(Int, Int)"))
142 -         then {
143 -             let ap = k
144 -             ap
145 -             }
146 -         else throw("fail to cast into (Int, Int)")
142 + func al (U,am) = {
143 +     let an = pow(10, 0, am, 0, 0, DOWN)
144 +     let ao = toString((U % an))
145 +     let ap = drop(toString(an), (1 + size(ao)))
146 +     (((toString((U / an)) + ".") + ap) + ao)
147 147      }
148 148  
149 149  
168 168              let aw = Q(invoke(F, "sellResourcesWorldREADONLY", [av], nil))
169 169              let ax = if ((0 >= aw))
170 170                  then 0
171 -                 else ao(invoke(F, "sellResourcesWorld", [d, av], nil))._1
171 +                 else T(invoke(F, "sellResourcesWorld", [d, av], nil))._1
172 172              (ax * h)
173 173              }
174 174      }
180 180      else if (isDefined(getBinary(J)))
181 181          then throw("Already initialized")
182 182          else {
183 -             let aC = (T("")[M] + aB)
183 +             let aC = (W("")[M] + aB)
184 184              let aD = (a - (aC * o))
185 185              let aE = Issue("ACRES", "WavesLands land acres investment token", aD, 8, false, unit, 0)
186 186              let aF = calculateAssetId(aE)
232 232                      let aK = c(q)
233 233                      let aL = valueOrElse(getInteger(aK), 0)
234 234                      if ((aP > aL))
235 -                         then throw(((("You have only " + ai(aL, 8)) + " ACRES staked, tried to unstake ") + ai(aP, 8)))
235 +                         then throw(((("You have only " + al(aL, 8)) + " ACRES staked, tried to unstake ") + al(aP, 8)))
236 236                          else {
237 237                              let aM = valueOrElse(getInteger(e), 0)
238 238                              let aN = invoke(G, "onStakeUnstakeLand", [q], nil)
259 259                  else (value(aH.assetId) != j))
260 260                  then throw("USDT payments only!")
261 261                  else if ((n > aI))
262 -                     then throw((("Min payment should be " + ai(n, 6)) + " USDT"))
262 +                     then throw((("Min payment should be " + al(n, 6)) + " USDT"))
263 263                      else {
264 264                          let as = (aI * h)
265 265                          let aQ = Q(invoke(E, "updateAccStats", [q, fraction(f, as, (25 * o))], nil))
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = 100000000000000
5 5  
6 6  let b = 86400000
7 7  
8 8  func c (d) = ("acresStakedAmountByUser_" + d)
9 9  
10 10  
11 11  let e = "acresStakedAmountTotal"
12 12  
13 13  let f = 5000000
14 14  
15 15  let g = 3456000
16 16  
17 17  let h = 10
18 18  
19 19  let i = take(drop(this.bytes, 1), 1)
20 20  
21 21  let j = {
22 22      let k = i
23 23      if ((base58'2W' == k))
24 24          then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
25 25          else if ((base58'2T' == k))
26 26              then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
27 27              else throw("Unknown chain")
28 28      }
29 29  
30 30  let l = {
31 31      let k = i
32 32      if ((base58'2W' == k))
33 33          then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
34 34          else if ((base58'2T' == k))
35 35              then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
36 36              else throw("Unknown chain")
37 37      }
38 38  
39 39  let m = "__"
40 40  
41 41  let n = 1000000
42 42  
43 43  let o = 100000000
44 44  
45 45  func p (q,r) = valueOrErrorMessage(getString(q, r), makeString(["mandatory ", toString(q), ".", r, " is not defined"], ""))
46 46  
47 47  
48 48  let s = 1
49 49  
50 50  let t = 2
51 51  
52 52  let u = 4
53 53  
54 54  let v = 8
55 55  
56 56  func w () = "%s__restConfig"
57 57  
58 58  
59 59  func x () = "%s__restAddr"
60 60  
61 61  
62 62  func y (z) = split_4C(p(z, w()), m)
63 63  
64 64  
65 65  func A (B,C) = valueOrErrorMessage(addressFromString(B[C]), ("Rest cfg doesn't contain address at index " + toString(C)))
66 66  
67 67  
68 68  let D = addressFromStringValue(valueOrElse(getString(this, x()), l))
69 69  
70 70  let B = y(D)
71 71  
72 72  let E = A(B, s)
73 73  
74 74  let F = A(B, t)
75 75  
76 76  let G = A(B, u)
77 77  
78 78  let H = A(B, v)
79 79  
80 80  let I = "acresIssuedAmount"
81 81  
82 82  let J = "acresAssetId"
83 83  
84 84  let K = valueOrErrorMessage(getBinary(H, J), "ACRES is not issued yet")
85 85  
86 86  func L (d) = ("acresStakedTimeByUser_" + d)
87 87  
88 88  
89 89  let M = 0
90 90  
91 91  func N () = "resTypesProportions"
92 92  
93 93  
94 94  func O (P) = ("stakedPiecesByOwner_" + P)
95 95  
96 96  
97 97  func Q (R) = {
98 98      let k = R
99 99      if ($isInstanceOf(k, "Int"))
100 100          then {
101 101              let S = k
102 102              S
103 103              }
104 104          else throw("fail to cast into Int")
105 105      }
106 106  
107 107  
108 108  func T (U) = {
109 -     let V = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
110 -     func W (X,Y) =     (X + parseIntValue(Y))
111 - 
112 -     let Z = {
113 -         let aa = V
114 -         let ab = size(aa)
115 -         let ac = 0
116 -         func ad (ae,af) =         if ((af >= ab))
117 -             then ae
118 -             else W(ae, aa[af])
119 - 
120 -         func ag (ae,af) =         if ((af >= ab))
121 -             then ae
122 -             else throw("List size exceeds 6")
123 - 
124 -         ag(ad(ad(ad(ad(ad(ad(ac, 0), 1), 2), 3), 4), 5), 6)
125 -         }
126 -     let ah = valueOrElse(getInteger(E, O(U)), 0)
127 - [Z, ah]
109 +     let k = U
110 +     if ($isInstanceOf(k, "(Int, Int)"))
111 +         then {
112 +             let V = k
113 +             V
114 +             }
115 +         else throw("fail to cast into (Int, Int)")
128 116      }
129 117  
130 118  
131 - func ai (aj,ak) = {
132 -     let al = pow(10, 0, ak, 0, 0, DOWN)
133 -     let am = toString((aj % al))
134 -     let an = drop(toString(al), (1 + size(am)))
135 -     (((toString((aj / al)) + ".") + an) + am)
119 + func W (X) = {
120 +     let Y = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
121 +     func Z (aa,ab) =     (aa + parseIntValue(ab))
122 + 
123 +     let ac = {
124 +         let ad = Y
125 +         let ae = size(ad)
126 +         let af = 0
127 +         func ag (ah,ai) =         if ((ai >= ae))
128 +             then ah
129 +             else Z(ah, ad[ai])
130 + 
131 +         func aj (ah,ai) =         if ((ai >= ae))
132 +             then ah
133 +             else throw("List size exceeds 6")
134 + 
135 +         aj(ag(ag(ag(ag(ag(ag(af, 0), 1), 2), 3), 4), 5), 6)
136 +         }
137 +     let ak = valueOrElse(getInteger(E, O(X)), 0)
138 + [ac, ak]
136 139      }
137 140  
138 141  
139 - func ao (aj) = {
140 -     let k = aj
141 -     if ($isInstanceOf(k, "(Int, Int)"))
142 -         then {
143 -             let ap = k
144 -             ap
145 -             }
146 -         else throw("fail to cast into (Int, Int)")
142 + func al (U,am) = {
143 +     let an = pow(10, 0, am, 0, 0, DOWN)
144 +     let ao = toString((U % an))
145 +     let ap = drop(toString(an), (1 + size(ao)))
146 +     (((toString((U / an)) + ".") + ap) + ao)
147 147      }
148 148  
149 149  
150 150  func aq () = Q(invoke(E, "saveLastTx", nil, nil))
151 151  
152 152  
153 153  func ar (d,as,at) = {
154 154      let au = (lastBlock.timestamp - at)
155 155      let av = fraction(au, (g * as), (b * o))
156 156      let aw = Q(invoke(F, "sellResourcesWorldREADONLY", [av], nil))
157 157      let ax = max([0, aw])
158 158      (ax * h)
159 159      }
160 160  
161 161  
162 162  func ay (d,as,at) = {
163 163      let au = (lastBlock.timestamp - at)
164 164      if ((0 > au))
165 165          then throw(((("Saved timestamp is in future, saved = " + toString(at)) + ", current = ") + toString(lastBlock.timestamp)))
166 166          else {
167 167              let av = fraction(au, (g * as), (b * o))
168 168              let aw = Q(invoke(F, "sellResourcesWorldREADONLY", [av], nil))
169 169              let ax = if ((0 >= aw))
170 170                  then 0
171 -                 else ao(invoke(F, "sellResourcesWorld", [d, av], nil))._1
171 +                 else T(invoke(F, "sellResourcesWorld", [d, av], nil))._1
172 172              (ax * h)
173 173              }
174 174      }
175 175  
176 176  
177 177  @Callable(az)
178 178  func constructorV1 (aA,aB) = if ((az.caller != this))
179 179      then throw("Permission denied")
180 180      else if (isDefined(getBinary(J)))
181 181          then throw("Already initialized")
182 182          else {
183 -             let aC = (T("")[M] + aB)
183 +             let aC = (W("")[M] + aB)
184 184              let aD = (a - (aC * o))
185 185              let aE = Issue("ACRES", "WavesLands land acres investment token", aD, 8, false, unit, 0)
186 186              let aF = calculateAssetId(aE)
187 187  [aE, IntegerEntry(I, aD), BinaryEntry(J, aF), StringEntry(x(), aA)]
188 188              }
189 189  
190 190  
191 191  
192 192  @Callable(az)
193 193  func stakeAcres () = {
194 194      let aG = aq()
195 195      let q = toString(az.caller)
196 196      if ((size(az.payments) != 1))
197 197          then throw("exactly 1 payment must be attached")
198 198          else {
199 199              let aH = az.payments[0]
200 200              let aI = aH.amount
201 201              if (if (!(isDefined(aH.assetId)))
202 202                  then true
203 203                  else (value(aH.assetId) != K))
204 204                  then throw("ACRES payments only!")
205 205                  else {
206 206                      let aJ = L(q)
207 207                      let aK = c(q)
208 208                      let aL = valueOrElse(getInteger(aK), 0)
209 209                      let aM = valueOrElse(getInteger(e), 0)
210 210                      let aN = invoke(G, "onStakeUnstakeLand", [q], nil)
211 211                      let aO = ay(q, aL, valueOrElse(getInteger(aJ), 0))
212 212                      $Tuple2(((((if ((aO == 0))
213 213                          then nil
214 214                          else [ScriptTransfer(az.caller, aO, K)]) :+ IntegerEntry(aJ, lastBlock.timestamp)) :+ IntegerEntry(aK, (aL + aI))) :+ IntegerEntry(e, (aM + aI))), $Tuple2(aG, aN))
215 215                      }
216 216              }
217 217      }
218 218  
219 219  
220 220  
221 221  @Callable(az)
222 222  func unstakeAcres (aP) = {
223 223      let aG = aq()
224 224      if ((0 >= aP))
225 225          then throw("Amount should be positive")
226 226          else {
227 227              let q = toString(az.caller)
228 228              if ((size(az.payments) != 0))
229 229                  then throw("No payments required")
230 230                  else {
231 231                      let aJ = L(q)
232 232                      let aK = c(q)
233 233                      let aL = valueOrElse(getInteger(aK), 0)
234 234                      if ((aP > aL))
235 -                         then throw(((("You have only " + ai(aL, 8)) + " ACRES staked, tried to unstake ") + ai(aP, 8)))
235 +                         then throw(((("You have only " + al(aL, 8)) + " ACRES staked, tried to unstake ") + al(aP, 8)))
236 236                          else {
237 237                              let aM = valueOrElse(getInteger(e), 0)
238 238                              let aN = invoke(G, "onStakeUnstakeLand", [q], nil)
239 239                              let aO = ay(q, aL, valueOrElse(getInteger(aJ), 0))
240 240                              $Tuple2([IntegerEntry(aJ, lastBlock.timestamp), IntegerEntry(aK, (aL - aP)), IntegerEntry(e, (aM - aP)), ScriptTransfer(az.caller, (aP + aO), K)], $Tuple2(aG, aN))
241 241                              }
242 242                      }
243 243              }
244 244      }
245 245  
246 246  
247 247  
248 248  @Callable(az)
249 249  func buyAcres () = {
250 250      let aG = aq()
251 251      let q = toString(az.caller)
252 252      if ((size(az.payments) != 1))
253 253          then throw("exactly 1 payment must be attached")
254 254          else {
255 255              let aH = az.payments[0]
256 256              let aI = aH.amount
257 257              if (if (!(isDefined(aH.assetId)))
258 258                  then true
259 259                  else (value(aH.assetId) != j))
260 260                  then throw("USDT payments only!")
261 261                  else if ((n > aI))
262 -                     then throw((("Min payment should be " + ai(n, 6)) + " USDT"))
262 +                     then throw((("Min payment should be " + al(n, 6)) + " USDT"))
263 263                      else {
264 264                          let as = (aI * h)
265 265                          let aQ = Q(invoke(E, "updateAccStats", [q, fraction(f, as, (25 * o))], nil))
266 266                          $Tuple2([ScriptTransfer(F, aI, j), ScriptTransfer(az.caller, as, K)], $Tuple2(aG, aQ))
267 267                          }
268 268              }
269 269      }
270 270  
271 271  
272 272  
273 273  @Callable(az)
274 274  func burnAcres (aP) = if ((az.caller != E))
275 275      then throw("Permission denied")
276 276      else $Tuple2([Burn(K, aP)], aP)
277 277  
278 278  
279 279  
280 280  @Callable(az)
281 281  func claimAcres () = {
282 282      let aG = aq()
283 283      let q = toString(az.caller)
284 284      if ((size(az.payments) != 0))
285 285          then throw("No payments required")
286 286          else {
287 287              let aJ = L(q)
288 288              let aK = c(q)
289 289              let as = valueOrElse(getInteger(aK), 0)
290 290              let aN = invoke(G, "onStakeUnstakeLand", [q], nil)
291 291              let aO = ay(q, as, valueOrElse(getInteger(aJ), 0))
292 292              $Tuple2([IntegerEntry(aJ, lastBlock.timestamp), ScriptTransfer(az.caller, aO, K)], $Tuple2(aG, aN))
293 293              }
294 294      }
295 295  
296 296  
297 297  
298 298  @Callable(az)
299 299  func claimAcresREADONLY (q) = {
300 300      let aJ = L(q)
301 301      let aK = c(q)
302 302      let as = valueOrElse(getInteger(aK), 0)
303 303      let aR = valueOrElse(getInteger(aJ), 0)
304 304      let aO = ar(q, as, aR)
305 305      $Tuple2(nil, [aO, aR])
306 306      }
307 307  
308 308

Old	New		Differences
106	106
107	107
108	108		func T (U) = {
109		-	let V = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
110		-	func W (X,Y) = (X + parseIntValue(Y))
111		-
112		-	let Z = {
113		-	let aa = V
114		-	let ab = size(aa)
115		-	let ac = 0
116		-	func ad (ae,af) = if ((af >= ab))
117		-	then ae
118		-	else W(ae, aa[af])
119		-
120		-	func ag (ae,af) = if ((af >= ab))
121		-	then ae
122		-	else throw("List size exceeds 6")
123		-
124		-	ag(ad(ad(ad(ad(ad(ad(ac, 0), 1), 2), 3), 4), 5), 6)
125		-	}
126		-	let ah = valueOrElse(getInteger(E, O(U)), 0)
127		-	[Z, ah]
	109	+	let k = U
	110	+	if ($isInstanceOf(k, "(Int, Int)"))
	111	+	then {
	112	+	let V = k
	113	+	V
	114	+	}
	115	+	else throw("fail to cast into (Int, Int)")
128	116		}
129	117
130	118
131		-	func ai (aj,ak) = {
132		-	let al = pow(10, 0, ak, 0, 0, DOWN)
133		-	let am = toString((aj % al))
134		-	let an = drop(toString(al), (1 + size(am)))
135		-	(((toString((aj / al)) + ".") + an) + am)
	119	+	func W (X) = {
	120	+	let Y = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
	121	+	func Z (aa,ab) = (aa + parseIntValue(ab))
	122	+
	123	+	let ac = {
	124	+	let ad = Y
	125	+	let ae = size(ad)
	126	+	let af = 0
	127	+	func ag (ah,ai) = if ((ai >= ae))
	128	+	then ah
	129	+	else Z(ah, ad[ai])
	130	+
	131	+	func aj (ah,ai) = if ((ai >= ae))
	132	+	then ah
	133	+	else throw("List size exceeds 6")
	134	+
	135	+	aj(ag(ag(ag(ag(ag(ag(af, 0), 1), 2), 3), 4), 5), 6)
	136	+	}
	137	+	let ak = valueOrElse(getInteger(E, O(X)), 0)
	138	+	[ac, ak]
136	139		}
137	140
138	141
139		-	func ao (aj) = {
140		-	let k = aj
141		-	if ($isInstanceOf(k, "(Int, Int)"))
142		-	then {
143		-	let ap = k
144		-	ap
145		-	}
146		-	else throw("fail to cast into (Int, Int)")
	142	+	func al (U,am) = {
	143	+	let an = pow(10, 0, am, 0, 0, DOWN)
	144	+	let ao = toString((U % an))
	145	+	let ap = drop(toString(an), (1 + size(ao)))
	146	+	(((toString((U / an)) + ".") + ap) + ao)
147	147		}
148	148
149	149

168	168		let aw = Q(invoke(F, "sellResourcesWorldREADONLY", [av], nil))
169	169		let ax = if ((0 >= aw))
170	170		then 0
171		-	else ao(invoke(F, "sellResourcesWorld", [d, av], nil))._1
	171	+	else T(invoke(F, "sellResourcesWorld", [d, av], nil))._1
172	172		(ax * h)
173	173		}
174	174		}

180	180		else if (isDefined(getBinary(J)))
181	181		then throw("Already initialized")
182	182		else {
183		-	let aC = (T("")[M] + aB)
	183	+	let aC = (W("")[M] + aB)
184	184		let aD = (a - (aC * o))
185	185		let aE = Issue("ACRES", "WavesLands land acres investment token", aD, 8, false, unit, 0)
186	186		let aF = calculateAssetId(aE)

232	232		let aK = c(q)
233	233		let aL = valueOrElse(getInteger(aK), 0)
234	234		if ((aP > aL))
235		-	then throw(((("You have only " + ai(aL, 8)) + " ACRES staked, tried to unstake ") + ai(aP, 8)))
	235	+	then throw(((("You have only " + al(aL, 8)) + " ACRES staked, tried to unstake ") + al(aP, 8)))
236	236		else {
237	237		let aM = valueOrElse(getInteger(e), 0)
238	238		let aN = invoke(G, "onStakeUnstakeLand", [q], nil)

259	259		else (value(aH.assetId) != j))
260	260		then throw("USDT payments only!")
261	261		else if ((n > aI))
262		-	then throw((("Min payment should be " + ai(n, 6)) + " USDT"))
	262	+	then throw((("Min payment should be " + al(n, 6)) + " USDT"))
263	263		else {
264	264		let as = (aI * h)
265	265		let aQ = Q(invoke(E, "updateAccStats", [q, fraction(f, as, (25 * o))], nil))

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = 100000000000000
5	5
6	6		let b = 86400000
7	7
8	8		func c (d) = ("acresStakedAmountByUser_" + d)
9	9
10	10
11	11		let e = "acresStakedAmountTotal"
12	12
13	13		let f = 5000000
14	14
15	15		let g = 3456000
16	16
17	17		let h = 10
18	18
19	19		let i = take(drop(this.bytes, 1), 1)
20	20
21	21		let j = {
22	22		let k = i
23	23		if ((base58'2W' == k))
24	24		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
25	25		else if ((base58'2T' == k))
26	26		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
27	27		else throw("Unknown chain")
28	28		}
29	29
30	30		let l = {
31	31		let k = i
32	32		if ((base58'2W' == k))
33	33		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
34	34		else if ((base58'2T' == k))
35	35		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
36	36		else throw("Unknown chain")
37	37		}
38	38
39	39		let m = "__"
40	40
41	41		let n = 1000000
42	42
43	43		let o = 100000000
44	44
45	45		func p (q,r) = valueOrErrorMessage(getString(q, r), makeString(["mandatory ", toString(q), ".", r, " is not defined"], ""))
46	46
47	47
48	48		let s = 1
49	49
50	50		let t = 2
51	51
52	52		let u = 4
53	53
54	54		let v = 8
55	55
56	56		func w () = "%s__restConfig"
57	57
58	58
59	59		func x () = "%s__restAddr"
60	60
61	61
62	62		func y (z) = split_4C(p(z, w()), m)
63	63
64	64
65	65		func A (B,C) = valueOrErrorMessage(addressFromString(B[C]), ("Rest cfg doesn't contain address at index " + toString(C)))
66	66
67	67
68	68		let D = addressFromStringValue(valueOrElse(getString(this, x()), l))
69	69
70	70		let B = y(D)
71	71
72	72		let E = A(B, s)
73	73
74	74		let F = A(B, t)
75	75
76	76		let G = A(B, u)
77	77
78	78		let H = A(B, v)
79	79
80	80		let I = "acresIssuedAmount"
81	81
82	82		let J = "acresAssetId"
83	83
84	84		let K = valueOrErrorMessage(getBinary(H, J), "ACRES is not issued yet")
85	85
86	86		func L (d) = ("acresStakedTimeByUser_" + d)
87	87
88	88
89	89		let M = 0
90	90
91	91		func N () = "resTypesProportions"
92	92
93	93
94	94		func O (P) = ("stakedPiecesByOwner_" + P)
95	95
96	96
97	97		func Q (R) = {
98	98		let k = R
99	99		if ($isInstanceOf(k, "Int"))
100	100		then {
101	101		let S = k
102	102		S
103	103		}
104	104		else throw("fail to cast into Int")
105	105		}
106	106
107	107
108	108		func T (U) = {
109		-	let V = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
110		-	func W (X,Y) = (X + parseIntValue(Y))
111		-
112		-	let Z = {
113		-	let aa = V
114		-	let ab = size(aa)
115		-	let ac = 0
116		-	func ad (ae,af) = if ((af >= ab))
117		-	then ae
118		-	else W(ae, aa[af])
119		-
120		-	func ag (ae,af) = if ((af >= ab))
121		-	then ae
122		-	else throw("List size exceeds 6")
123		-
124		-	ag(ad(ad(ad(ad(ad(ad(ac, 0), 1), 2), 3), 4), 5), 6)
125		-	}
126		-	let ah = valueOrElse(getInteger(E, O(U)), 0)
127		-	[Z, ah]
	109	+	let k = U
	110	+	if ($isInstanceOf(k, "(Int, Int)"))
	111	+	then {
	112	+	let V = k
	113	+	V
	114	+	}
	115	+	else throw("fail to cast into (Int, Int)")
128	116		}
129	117
130	118
131		-	func ai (aj,ak) = {
132		-	let al = pow(10, 0, ak, 0, 0, DOWN)
133		-	let am = toString((aj % al))
134		-	let an = drop(toString(al), (1 + size(am)))
135		-	(((toString((aj / al)) + ".") + an) + am)
	119	+	func W (X) = {
	120	+	let Y = split(valueOrElse(getString(E, N()), "0_0_0_0_0_0"), "_")
	121	+	func Z (aa,ab) = (aa + parseIntValue(ab))
	122	+
	123	+	let ac = {
	124	+	let ad = Y
	125	+	let ae = size(ad)
	126	+	let af = 0
	127	+	func ag (ah,ai) = if ((ai >= ae))
	128	+	then ah
	129	+	else Z(ah, ad[ai])
	130	+
	131	+	func aj (ah,ai) = if ((ai >= ae))
	132	+	then ah
	133	+	else throw("List size exceeds 6")
	134	+
	135	+	aj(ag(ag(ag(ag(ag(ag(af, 0), 1), 2), 3), 4), 5), 6)
	136	+	}
	137	+	let ak = valueOrElse(getInteger(E, O(X)), 0)
	138	+	[ac, ak]
136	139		}
137	140
138	141
139		-	func ao (aj) = {
140		-	let k = aj
141		-	if ($isInstanceOf(k, "(Int, Int)"))
142		-	then {
143		-	let ap = k
144		-	ap
145		-	}
146		-	else throw("fail to cast into (Int, Int)")
	142	+	func al (U,am) = {
	143	+	let an = pow(10, 0, am, 0, 0, DOWN)
	144	+	let ao = toString((U % an))
	145	+	let ap = drop(toString(an), (1 + size(ao)))
	146	+	(((toString((U / an)) + ".") + ap) + ao)
147	147		}
148	148
149	149
150	150		func aq () = Q(invoke(E, "saveLastTx", nil, nil))
151	151
152	152
153	153		func ar (d,as,at) = {
154	154		let au = (lastBlock.timestamp - at)
155	155		let av = fraction(au, (g * as), (b * o))
156	156		let aw = Q(invoke(F, "sellResourcesWorldREADONLY", [av], nil))
157	157		let ax = max([0, aw])
158	158		(ax * h)
159	159		}
160	160
161	161
162	162		func ay (d,as,at) = {
163	163		let au = (lastBlock.timestamp - at)
164	164		if ((0 > au))
165	165		then throw(((("Saved timestamp is in future, saved = " + toString(at)) + ", current = ") + toString(lastBlock.timestamp)))
166	166		else {
167	167		let av = fraction(au, (g * as), (b * o))
168	168		let aw = Q(invoke(F, "sellResourcesWorldREADONLY", [av], nil))
169	169		let ax = if ((0 >= aw))
170	170		then 0
171		-	else ao(invoke(F, "sellResourcesWorld", [d, av], nil))._1
	171	+	else T(invoke(F, "sellResourcesWorld", [d, av], nil))._1
172	172		(ax * h)
173	173		}
174	174		}
175	175
176	176
177	177		@Callable(az)
178	178		func constructorV1 (aA,aB) = if ((az.caller != this))
179	179		then throw("Permission denied")
180	180		else if (isDefined(getBinary(J)))
181	181		then throw("Already initialized")
182	182		else {
183		-	let aC = (T("")[M] + aB)
	183	+	let aC = (W("")[M] + aB)
184	184		let aD = (a - (aC * o))
185	185		let aE = Issue("ACRES", "WavesLands land acres investment token", aD, 8, false, unit, 0)
186	186		let aF = calculateAssetId(aE)
187	187		[aE, IntegerEntry(I, aD), BinaryEntry(J, aF), StringEntry(x(), aA)]
188	188		}
189	189
190	190
191	191
192	192		@Callable(az)
193	193		func stakeAcres () = {
194	194		let aG = aq()
195	195		let q = toString(az.caller)
196	196		if ((size(az.payments) != 1))
197	197		then throw("exactly 1 payment must be attached")
198	198		else {
199	199		let aH = az.payments[0]
200	200		let aI = aH.amount
201	201		if (if (!(isDefined(aH.assetId)))
202	202		then true
203	203		else (value(aH.assetId) != K))
204	204		then throw("ACRES payments only!")
205	205		else {
206	206		let aJ = L(q)
207	207		let aK = c(q)
208	208		let aL = valueOrElse(getInteger(aK), 0)
209	209		let aM = valueOrElse(getInteger(e), 0)
210	210		let aN = invoke(G, "onStakeUnstakeLand", [q], nil)
211	211		let aO = ay(q, aL, valueOrElse(getInteger(aJ), 0))
212	212		$Tuple2(((((if ((aO == 0))
213	213		then nil
214	214		else [ScriptTransfer(az.caller, aO, K)]) :+ IntegerEntry(aJ, lastBlock.timestamp)) :+ IntegerEntry(aK, (aL + aI))) :+ IntegerEntry(e, (aM + aI))), $Tuple2(aG, aN))
215	215		}
216	216		}
217	217		}
218	218
219	219
220	220
221	221		@Callable(az)
222	222		func unstakeAcres (aP) = {
223	223		let aG = aq()
224	224		if ((0 >= aP))
225	225		then throw("Amount should be positive")
226	226		else {
227	227		let q = toString(az.caller)
228	228		if ((size(az.payments) != 0))
229	229		then throw("No payments required")
230	230		else {
231	231		let aJ = L(q)
232	232		let aK = c(q)
233	233		let aL = valueOrElse(getInteger(aK), 0)
234	234		if ((aP > aL))
235		-	then throw(((("You have only " + ai(aL, 8)) + " ACRES staked, tried to unstake ") + ai(aP, 8)))
	235	+	then throw(((("You have only " + al(aL, 8)) + " ACRES staked, tried to unstake ") + al(aP, 8)))
236	236		else {
237	237		let aM = valueOrElse(getInteger(e), 0)
238	238		let aN = invoke(G, "onStakeUnstakeLand", [q], nil)
239	239		let aO = ay(q, aL, valueOrElse(getInteger(aJ), 0))
240	240		$Tuple2([IntegerEntry(aJ, lastBlock.timestamp), IntegerEntry(aK, (aL - aP)), IntegerEntry(e, (aM - aP)), ScriptTransfer(az.caller, (aP + aO), K)], $Tuple2(aG, aN))
241	241		}
242	242		}
243	243		}
244	244		}
245	245
246	246
247	247
248	248		@Callable(az)
249	249		func buyAcres () = {
250	250		let aG = aq()
251	251		let q = toString(az.caller)
252	252		if ((size(az.payments) != 1))
253	253		then throw("exactly 1 payment must be attached")
254	254		else {
255	255		let aH = az.payments[0]
256	256		let aI = aH.amount
257	257		if (if (!(isDefined(aH.assetId)))
258	258		then true
259	259		else (value(aH.assetId) != j))
260	260		then throw("USDT payments only!")
261	261		else if ((n > aI))
262		-	then throw((("Min payment should be " + ai(n, 6)) + " USDT"))
	262	+	then throw((("Min payment should be " + al(n, 6)) + " USDT"))
263	263		else {
264	264		let as = (aI * h)
265	265		let aQ = Q(invoke(E, "updateAccStats", [q, fraction(f, as, (25 * o))], nil))
266	266		$Tuple2([ScriptTransfer(F, aI, j), ScriptTransfer(az.caller, as, K)], $Tuple2(aG, aQ))
267	267		}
268	268		}
269	269		}
270	270
271	271
272	272
273	273		@Callable(az)
274	274		func burnAcres (aP) = if ((az.caller != E))
275	275		then throw("Permission denied")
276	276		else $Tuple2([Burn(K, aP)], aP)
277	277
278	278
279	279
280	280		@Callable(az)
281	281		func claimAcres () = {
282	282		let aG = aq()
283	283		let q = toString(az.caller)
284	284		if ((size(az.payments) != 0))
285	285		then throw("No payments required")
286	286		else {
287	287		let aJ = L(q)
288	288		let aK = c(q)
289	289		let as = valueOrElse(getInteger(aK), 0)
290	290		let aN = invoke(G, "onStakeUnstakeLand", [q], nil)
291	291		let aO = ay(q, as, valueOrElse(getInteger(aJ), 0))
292	292		$Tuple2([IntegerEntry(aJ, lastBlock.timestamp), ScriptTransfer(az.caller, aO, K)], $Tuple2(aG, aN))
293	293		}
294	294		}
295	295
296	296
297	297
298	298		@Callable(az)
299	299		func claimAcresREADONLY (q) = {
300	300		let aJ = L(q)
301	301		let aK = c(q)
302	302		let as = valueOrElse(getInteger(aK), 0)
303	303		let aR = valueOrElse(getInteger(aJ), 0)
304	304		let aO = ar(q, as, aR)
305	305		$Tuple2(nil, [aO, aR])
306	306		}
307	307
308	308

github/deemru/w8io/026f985 
40.24 ms ◑