tx · FLHBoSXCwbhy7eiFPzemXD69etqWXeVrEKPxyNEpejoi

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.00900000 Waves

2023.10.14 19:48 [2798551] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FLHBoSXCwbhy7eiFPzemXD69etqWXeVrEKPxyNEpejoi",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1697302117834,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "5s8THEhfG6zSR6B3hAQd56j6Kef1kYCeqqBgERw5VMhJHKGwAQnUmh7BLfw79W4yX68FBqDHatJ7mxmNAHY6K2Fw"
    ],
    "script": "base64:BgIjCAISBAoCCAESABIDCgEBEgASBAoCCAESAwoBARIAEgMKAQgqAAhNSUxMSU9ONgCAgOmDsd4WAAlEQVlNSUxMSVMAgLiZKQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyABNhY3Jlc1N0YWtlZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsAAp4cE5ld1NMYW5kAMCWsQIAD0RBSUxZUkVTQllQSUVDRQCA+NIBABVVU0RUMkFDUkVTX01VTFRJUExJRVIACgAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BRQ3V2RmJ2aDRMa1BVbnJuVTF6M2puYkExcDltM1dOaHYDCQAAAgEBVAUHJG1hdGNoMAIjM011bWtHR3p0Q0tBWHBXRHF4a2Rkb2ZxWFNVYnFRa3ZTSnkJAAIBAg1Vbmtub3duIGNoYWluAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABFJZHhDZmdTdGFraW5nRGFwcAABABFJZHhDZmdFY29ub215RGFwcAACAA1JZHhDZmdXbGdEYXBwAAQAD0lkeENmZ0FjcmVzRGFwcAAIAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9lY29ub215Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdFY29ub215RGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ1JZHhDZmdXbGdEYXBwAA1hY3Jlc0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUPSWR4Q2ZnQWNyZXNEYXBwABRhY3Jlc0lzc3VlZEFtb3VudEtleQIRYWNyZXNJc3N1ZWRBbW91bnQAD2FjcmVzQXNzZXRJZEtleQIMYWNyZXNBc3NldElkAAxhY3Jlc0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQ1hY3Jlc0NvbnRyYWN0BQ9hY3Jlc0Fzc2V0SWRLZXkCF0FDUkVTIGlzIG5vdCBpc3N1ZWQgeWV0ARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIWYWNyZXNTdGFrZWRUaW1lQnlVc2VyXwUEYWRkcgALSWR4RWZmVG90YWwAAAERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQlvd25lckFkZHIJAKwCAgIUc3Rha2VkUGllY2VzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQ5hc1R3b0ludHNUdXBsZQEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQCdDIFByRtYXRjaDAFAnQyCQACAQIcZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50KQEOZ2V0Vm90aW5nUG93ZXIBEnVzZXJBZGRyU3RyT3JFbXB0eQQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBBRJ1c2VyQWRkclN0ck9yRW1wdHkAAAkAzAgCBQp0b3RhbFBvd2VyCQDMCAIFCnVzZXJzUG93ZXIFA25pbAEKZml4ZWRQb2ludAIDdmFsCGRlY2ltYWxzBAZ0ZW5Qb3cJAGwGAAoAAAUIZGVjaW1hbHMAAAAABQRET1dOBAdsb3dQYXJ0CQCkAwEJAGoCBQN2YWwFBnRlblBvdwQGemVyb2VzCQCwAgIJAKQDAQUGdGVuUG93CQBkAgABCQCxAgEFB2xvd1BhcnQJAKwCAgkArAICCQCsAgIJAKQDAQkAaQIFA3ZhbAUGdGVuUG93AgEuBQZ6ZXJvZXMFB2xvd1BhcnQBBnByb2xvZwAJAQVhc0ludAEJAP0HBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAESY2xhaW1BY3Jlc0ludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BApjYW5HZXRVc2R0CQEFYXNJbnQBCQD8BwQFD2Vjb25vbXlDb250cmFjdAIac2VsbFJlc291cmNlc1dvcmxkUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsBAdnb3RVc2R0CQCWAwEJAMwIAgAACQDMCAIFCmNhbkdldFVzZHQFA25pbAkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgENY2xhaW1JbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEFDWxhc3RDbGFpbVRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAMJAGcCAAAFCmNhbkdldFVzZHQAAAgJAQ5hc1R3b0ludHNUdXBsZQEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhJzZWxsUmVzb3VyY2VzV29ybGQJAMwIAgUEYWRkcgkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwCXzEJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIIAWkBDWNvbnN0cnVjdG9yVjECCHJlc3RBZGRyDnVuc3Rha2VkUGllY2VzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ9hY3Jlc0Fzc2V0SWRLZXkJAAIBAhNBbHJlYWR5IGluaXRpYWxpemVkBAhuZnRBY3JlcwkAZAIJAJEDAgkBDmdldFZvdGluZ1Bvd2VyAQIABQtJZHhFZmZUb3RhbAUOdW5zdGFrZWRQaWVjZXMEDGlzc3VlZEFtb3VudAkAZQIFCE1JTExJT042CQBoAgUIbmZ0QWNyZXMFBU1VTFQ4BAVpc3N1ZQkAwwgHAgVBQ1JFUwImV2F2ZXNMYW5kcyBsYW5kIGFjcmVzIGludmVzdG1lbnQgdG9rZW4FDGlzc3VlZEFtb3VudAAIBwUEdW5pdAAABAdhc3NldElkCQC4CAEFBWlzc3VlCQDMCAIFBWlzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQtCaW5hcnlFbnRyeQIFD2FjcmVzQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBCnN0YWtlQWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIDCQAAAgUMY2xhaW1lZEFjcmVzAAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQx1bnN0YWtlQWNyZXMBBmFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAGcCAAAFBmFtb3VudAkAAgECGUFtb3VudCBzaG91bGQgYmUgcG9zaXRpdmUEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAAAwkAZgIFBmFtb3VudAUOb2xkQWNyZXNBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICAg5Zb3UgaGF2ZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQ5vbGRBY3Jlc0Ftb3VudAAIAiAgQUNSRVMgc3Rha2VkLCB0cmllZCB0byB1bnN0YWtlIAkBCmZpeGVkUG9pbnQCBQZhbW91bnQACAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZQIFCG9sZFRvdGFsBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBkAgUGYW1vdW50BQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGJ1eUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQMJAGYCBQVNVUxUNgUDYW10CQACAQkArAICCQCsAgICFk1pbiBwYXltZW50IHNob3VsZCBiZSAJAQpmaXhlZFBvaW50AgUFTVVMVDYABgIFIFVTRFQEC2FjcmVzQW1vdW50CQBoAgUDYW10BRVVU0RUMkFDUkVTX01VTFRJUExJRVIEDmFjY1N0YXRzUmVzdWx0CQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQWNjU3RhdHMJAMwIAgUHYWRkcmVzcwkAzAgCCQBrAwUKeHBOZXdTTGFuZAULYWNyZXNBbW91bnQJAGgCABkFBU1VTFQ4BQNuaWwFA25pbAkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFD2Vjb25vbXlDb250cmFjdAUDYW10BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2FjcmVzQW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFDmFjY1N0YXRzUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCXNlbmRBY3JlcwIEYWRkcgZhbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFD2Vjb25vbXlDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUEYWRkcgUGYW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAUGYW1vdW50AWkBCWJ1cm5BY3JlcwEGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQKYW1vdW50TGVmdAkAZQIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUYWNyZXNJc3N1ZWRBbW91bnRLZXkAAAUGYW1vdW50AwkAZgIAAAUKYW1vdW50TGVmdAkAAgECJ0F0dGVtcHQgdG8gYnVybiBtb3JlIEFDUkVTLCB0aGFuIGV4aXN0cwkAlAoCCQDMCAIJAQRCdXJuAgUMYWNyZXNBc3NldElkBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5BQphbW91bnRMZWZ0BQNuaWwFBmFtb3VudAFpAQpjbGFpbUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwULYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARJjbGFpbUFjcmVzUkVBRE9OTFkBB2FkZHJlc3MEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAEDGNsYWltZWRBY3JlcwkBEmNsYWltQWNyZXNJbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50BQhsYXN0VGltZQkAlAoCBQNuaWwJAMwIAgUMY2xhaW1lZEFjcmVzCQDMCAIFCGxhc3RUaW1lBQNuaWwAO8Vwcw==",
    "height": 2798551,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AuEfrewxgt3rXhtCg1pDwvebZAK5oA6AXscJsQf92sTT
Next: FS295iH75ceJZ8nuzkf3fJzBfarATZQuAPuxTMPCEGUx

Diff: 

OldNewDifferences
141141     }
142142 
143143 
144-func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
144+func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
145145 
146146 
147147 func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
186186 @Callable(i)
187187 func stakeAcres () = {
188188     let prologResult = prolog()
189-    let address = toString(i.caller)
190-    if ((size(i.payments) != 1))
191-        then throw("exactly 1 payment must be attached")
192-        else {
193-            let pmt = i.payments[0]
194-            let amt = pmt.amount
195-            if (if (!(isDefined(pmt.assetId)))
196-                then true
197-                else (value(pmt.assetId) != acresAssetId))
198-                then throw("ACRES payments only!")
189+    if ((prologResult == prologResult))
190+        then {
191+            let address = toString(i.caller)
192+            if ((size(i.payments) != 1))
193+                then throw("exactly 1 payment must be attached")
199194                 else {
200-                    let timeKey = keyAcresStakedTimeByUser(address)
201-                    let amountKey = keyAcresStakedAmountByUser(address)
202-                    let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
203-                    let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
204-                    let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
205-                    let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
206-                    $Tuple2(((((if ((claimedAcres == 0))
207-                        then nil
208-                        else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
195+                    let pmt = i.payments[0]
196+                    let amt = pmt.amount
197+                    if (if (!(isDefined(pmt.assetId)))
198+                        then true
199+                        else (value(pmt.assetId) != acresAssetId))
200+                        then throw("ACRES payments only!")
201+                        else {
202+                            let timeKey = keyAcresStakedTimeByUser(address)
203+                            let amountKey = keyAcresStakedAmountByUser(address)
204+                            let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
205+                            let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
206+                            let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
207+                            let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
208+                            $Tuple2(((((if ((claimedAcres == 0))
209+                                then nil
210+                                else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
211+                            }
209212                     }
210213             }
214+        else throw("Strict value is not equal to itself.")
211215     }
212216 
213217 
215219 @Callable(i)
216220 func unstakeAcres (amount) = {
217221     let prologResult = prolog()
218-    if ((0 >= amount))
219-        then throw("Amount should be positive")
220-        else {
221-            let address = toString(i.caller)
222-            if ((size(i.payments) != 0))
223-                then throw("No payments required")
224-                else {
225-                    let timeKey = keyAcresStakedTimeByUser(address)
226-                    let amountKey = keyAcresStakedAmountByUser(address)
227-                    let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
228-                    if ((amount > oldAcresAmount))
229-                        then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
230-                        else {
231-                            let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
232-                            let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
233-                            let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
234-                            $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
235-                            }
236-                    }
237-            }
222+    if ((prologResult == prologResult))
223+        then if ((0 >= amount))
224+            then throw("Amount should be positive")
225+            else {
226+                let address = toString(i.caller)
227+                if ((size(i.payments) != 0))
228+                    then throw("No payments required")
229+                    else {
230+                        let timeKey = keyAcresStakedTimeByUser(address)
231+                        let amountKey = keyAcresStakedAmountByUser(address)
232+                        let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
233+                        if ((amount > oldAcresAmount))
234+                            then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
235+                            else {
236+                                let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
237+                                let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
238+                                let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
239+                                $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
240+                                }
241+                        }
242+                }
243+        else throw("Strict value is not equal to itself.")
238244     }
239245 
240246 
242248 @Callable(i)
243249 func buyAcres () = {
244250     let prologResult = prolog()
245-    let address = toString(i.caller)
246-    if ((size(i.payments) != 1))
247-        then throw("exactly 1 payment must be attached")
248-        else {
249-            let pmt = i.payments[0]
250-            let amt = pmt.amount
251-            if (if (!(isDefined(pmt.assetId)))
252-                then true
253-                else (value(pmt.assetId) != usdtAssetId))
254-                then throw("USDT payments only!")
255-                else if ((MULT6 > amt))
256-                    then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
257-                    else {
258-                        let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
259-                        let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
260-                        $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
261-                        }
251+    if ((prologResult == prologResult))
252+        then {
253+            let address = toString(i.caller)
254+            if ((size(i.payments) != 1))
255+                then throw("exactly 1 payment must be attached")
256+                else {
257+                    let pmt = i.payments[0]
258+                    let amt = pmt.amount
259+                    if (if (!(isDefined(pmt.assetId)))
260+                        then true
261+                        else (value(pmt.assetId) != usdtAssetId))
262+                        then throw("USDT payments only!")
263+                        else if ((MULT6 > amt))
264+                            then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
265+                            else {
266+                                let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
267+                                let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
268+                                $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
269+                                }
270+                    }
262271             }
272+        else throw("Strict value is not equal to itself.")
263273     }
264274 
265275 
286296 @Callable(i)
287297 func claimAcres () = {
288298     let prologResult = prolog()
289-    let address = toString(i.caller)
290-    if ((size(i.payments) != 0))
291-        then throw("No payments required")
292-        else {
293-            let timeKey = keyAcresStakedTimeByUser(address)
294-            let amountKey = keyAcresStakedAmountByUser(address)
295-            let acresAmount = valueOrElse(getInteger(amountKey), 0)
296-            let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
297-            let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
298-            $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
299+    if ((prologResult == prologResult))
300+        then {
301+            let address = toString(i.caller)
302+            if ((size(i.payments) != 0))
303+                then throw("No payments required")
304+                else {
305+                    let timeKey = keyAcresStakedTimeByUser(address)
306+                    let amountKey = keyAcresStakedAmountByUser(address)
307+                    let acresAmount = valueOrElse(getInteger(amountKey), 0)
308+                    let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
309+                    let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
310+                    $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
311+                    }
299312             }
313+        else throw("Strict value is not equal to itself.")
300314     }
301315 
302316 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let MILLION6 = 100000000000000
55 
66 let DAYMILLIS = 86400000
77 
88 func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
99 
1010 
1111 let acresStakedTotalKey = "acresStakedAmountTotal"
1212 
1313 let xpNewSLand = 5000000
1414 
1515 let DAILYRESBYPIECE = 3456000
1616 
1717 let USDT2ACRES_MULTIPLIER = 10
1818 
1919 let chain = take(drop(this.bytes, 1), 1)
2020 
2121 let usdtAssetId = match chain {
2222     case _ => 
2323         if ((base58'2W' == $match0))
2424             then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
2525             else if ((base58'2T' == $match0))
2626                 then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
2727                 else throw("Unknown chain")
2828 }
2929 
3030 let defaultRestAddressStr = match chain {
3131     case _ => 
3232         if ((base58'2W' == $match0))
3333             then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
3434             else if ((base58'2T' == $match0))
3535                 then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
3636                 else throw("Unknown chain")
3737 }
3838 
3939 let SEP = "__"
4040 
4141 let MULT6 = 1000000
4242 
4343 let MULT8 = 100000000
4444 
4545 func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
4646 
4747 
4848 let IdxCfgStakingDapp = 1
4949 
5050 let IdxCfgEconomyDapp = 2
5151 
5252 let IdxCfgWlgDapp = 4
5353 
5454 let IdxCfgAcresDapp = 8
5555 
5656 func keyRestCfg () = "%s__restConfig"
5757 
5858 
5959 func keyRestAddress () = "%s__restAddr"
6060 
6161 
6262 func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
6363 
6464 
6565 func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
6666 
6767 
6868 let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
6969 
7070 let restCfg = readRestCfgOrFail(restContract)
7171 
7272 let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
7373 
7474 let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
7575 
7676 let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
7777 
7878 let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
7979 
8080 let acresIssuedAmountKey = "acresIssuedAmount"
8181 
8282 let acresAssetIdKey = "acresAssetId"
8383 
8484 let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
8585 
8686 func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
8787 
8888 
8989 let IdxEffTotal = 0
9090 
9191 func keyResProportions () = "resTypesProportions"
9292 
9393 
9494 func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
9595 
9696 
9797 func asInt (v) = match v {
9898     case n: Int => 
9999         n
100100     case _ => 
101101         throw("fail to cast into Int")
102102 }
103103 
104104 
105105 func asTwoIntsTuple (val) = match val {
106106     case t2: (Int, Int) => 
107107         t2
108108     case _ => 
109109         throw("fail to cast into (Int, Int)")
110110 }
111111 
112112 
113113 func getVotingPower (userAddrStrOrEmpty) = {
114114     let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
115115     func adder (acc,item) =     (acc + parseIntValue(item))
116116 
117117     let totalPower = {
118118         let $l = props
119119         let $s = size($l)
120120         let $acc0 = 0
121121         func $f0_1 ($a,$i) =         if (($i >= $s))
122122             then $a
123123             else adder($a, $l[$i])
124124 
125125         func $f0_2 ($a,$i) =         if (($i >= $s))
126126             then $a
127127             else throw("List size exceeds 6")
128128 
129129         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
130130         }
131131     let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
132132 [totalPower, usersPower]
133133     }
134134 
135135 
136136 func fixedPoint (val,decimals) = {
137137     let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
138138     let lowPart = toString((val % tenPow))
139139     let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
140140     (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
141141     }
142142 
143143 
144-func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
144+func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
145145 
146146 
147147 func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
148148     let deltaTime = (lastBlock.timestamp - lastClaimTime)
149149     let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
150150     let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
151151     let gotUsdt = max([0, canGetUsdt])
152152     (gotUsdt * USDT2ACRES_MULTIPLIER)
153153     }
154154 
155155 
156156 func claimInternal (addr,acresAmount,lastClaimTime) = {
157157     let deltaTime = (lastBlock.timestamp - lastClaimTime)
158158     if ((0 > deltaTime))
159159         then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
160160         else {
161161             let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
162162             let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
163163             let gotUsdt = if ((0 >= canGetUsdt))
164164                 then 0
165165                 else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
166166             (gotUsdt * USDT2ACRES_MULTIPLIER)
167167             }
168168     }
169169 
170170 
171171 @Callable(i)
172172 func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
173173     then throw("Permission denied")
174174     else if (isDefined(getBinary(acresAssetIdKey)))
175175         then throw("Already initialized")
176176         else {
177177             let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
178178             let issuedAmount = (MILLION6 - (nftAcres * MULT8))
179179             let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
180180             let assetId = calculateAssetId(issue)
181181 [issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
182182             }
183183 
184184 
185185 
186186 @Callable(i)
187187 func stakeAcres () = {
188188     let prologResult = prolog()
189-    let address = toString(i.caller)
190-    if ((size(i.payments) != 1))
191-        then throw("exactly 1 payment must be attached")
192-        else {
193-            let pmt = i.payments[0]
194-            let amt = pmt.amount
195-            if (if (!(isDefined(pmt.assetId)))
196-                then true
197-                else (value(pmt.assetId) != acresAssetId))
198-                then throw("ACRES payments only!")
189+    if ((prologResult == prologResult))
190+        then {
191+            let address = toString(i.caller)
192+            if ((size(i.payments) != 1))
193+                then throw("exactly 1 payment must be attached")
199194                 else {
200-                    let timeKey = keyAcresStakedTimeByUser(address)
201-                    let amountKey = keyAcresStakedAmountByUser(address)
202-                    let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
203-                    let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
204-                    let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
205-                    let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
206-                    $Tuple2(((((if ((claimedAcres == 0))
207-                        then nil
208-                        else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
195+                    let pmt = i.payments[0]
196+                    let amt = pmt.amount
197+                    if (if (!(isDefined(pmt.assetId)))
198+                        then true
199+                        else (value(pmt.assetId) != acresAssetId))
200+                        then throw("ACRES payments only!")
201+                        else {
202+                            let timeKey = keyAcresStakedTimeByUser(address)
203+                            let amountKey = keyAcresStakedAmountByUser(address)
204+                            let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
205+                            let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
206+                            let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
207+                            let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
208+                            $Tuple2(((((if ((claimedAcres == 0))
209+                                then nil
210+                                else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
211+                            }
209212                     }
210213             }
214+        else throw("Strict value is not equal to itself.")
211215     }
212216 
213217 
214218 
215219 @Callable(i)
216220 func unstakeAcres (amount) = {
217221     let prologResult = prolog()
218-    if ((0 >= amount))
219-        then throw("Amount should be positive")
220-        else {
221-            let address = toString(i.caller)
222-            if ((size(i.payments) != 0))
223-                then throw("No payments required")
224-                else {
225-                    let timeKey = keyAcresStakedTimeByUser(address)
226-                    let amountKey = keyAcresStakedAmountByUser(address)
227-                    let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
228-                    if ((amount > oldAcresAmount))
229-                        then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
230-                        else {
231-                            let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
232-                            let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
233-                            let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
234-                            $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
235-                            }
236-                    }
237-            }
222+    if ((prologResult == prologResult))
223+        then if ((0 >= amount))
224+            then throw("Amount should be positive")
225+            else {
226+                let address = toString(i.caller)
227+                if ((size(i.payments) != 0))
228+                    then throw("No payments required")
229+                    else {
230+                        let timeKey = keyAcresStakedTimeByUser(address)
231+                        let amountKey = keyAcresStakedAmountByUser(address)
232+                        let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
233+                        if ((amount > oldAcresAmount))
234+                            then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
235+                            else {
236+                                let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
237+                                let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
238+                                let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
239+                                $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
240+                                }
241+                        }
242+                }
243+        else throw("Strict value is not equal to itself.")
238244     }
239245 
240246 
241247 
242248 @Callable(i)
243249 func buyAcres () = {
244250     let prologResult = prolog()
245-    let address = toString(i.caller)
246-    if ((size(i.payments) != 1))
247-        then throw("exactly 1 payment must be attached")
248-        else {
249-            let pmt = i.payments[0]
250-            let amt = pmt.amount
251-            if (if (!(isDefined(pmt.assetId)))
252-                then true
253-                else (value(pmt.assetId) != usdtAssetId))
254-                then throw("USDT payments only!")
255-                else if ((MULT6 > amt))
256-                    then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
257-                    else {
258-                        let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
259-                        let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
260-                        $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
261-                        }
251+    if ((prologResult == prologResult))
252+        then {
253+            let address = toString(i.caller)
254+            if ((size(i.payments) != 1))
255+                then throw("exactly 1 payment must be attached")
256+                else {
257+                    let pmt = i.payments[0]
258+                    let amt = pmt.amount
259+                    if (if (!(isDefined(pmt.assetId)))
260+                        then true
261+                        else (value(pmt.assetId) != usdtAssetId))
262+                        then throw("USDT payments only!")
263+                        else if ((MULT6 > amt))
264+                            then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
265+                            else {
266+                                let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
267+                                let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
268+                                $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
269+                                }
270+                    }
262271             }
272+        else throw("Strict value is not equal to itself.")
263273     }
264274 
265275 
266276 
267277 @Callable(i)
268278 func sendAcres (addr,amount) = if ((i.caller != economyContract))
269279     then throw("Permission denied")
270280     else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
271281 
272282 
273283 
274284 @Callable(i)
275285 func burnAcres (amount) = if ((i.caller != stakingContract))
276286     then throw("Permission denied")
277287     else {
278288         let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
279289         if ((0 > amountLeft))
280290             then throw("Attempt to burn more ACRES, than exists")
281291             else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
282292         }
283293 
284294 
285295 
286296 @Callable(i)
287297 func claimAcres () = {
288298     let prologResult = prolog()
289-    let address = toString(i.caller)
290-    if ((size(i.payments) != 0))
291-        then throw("No payments required")
292-        else {
293-            let timeKey = keyAcresStakedTimeByUser(address)
294-            let amountKey = keyAcresStakedAmountByUser(address)
295-            let acresAmount = valueOrElse(getInteger(amountKey), 0)
296-            let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
297-            let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
298-            $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
299+    if ((prologResult == prologResult))
300+        then {
301+            let address = toString(i.caller)
302+            if ((size(i.payments) != 0))
303+                then throw("No payments required")
304+                else {
305+                    let timeKey = keyAcresStakedTimeByUser(address)
306+                    let amountKey = keyAcresStakedAmountByUser(address)
307+                    let acresAmount = valueOrElse(getInteger(amountKey), 0)
308+                    let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
309+                    let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
310+                    $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
311+                    }
299312             }
313+        else throw("Strict value is not equal to itself.")
300314     }
301315 
302316 
303317 
304318 @Callable(i)
305319 func claimAcresREADONLY (address) = {
306320     let timeKey = keyAcresStakedTimeByUser(address)
307321     let amountKey = keyAcresStakedAmountByUser(address)
308322     let acresAmount = valueOrElse(getInteger(amountKey), 0)
309323     let lastTime = valueOrElse(getInteger(timeKey), 0)
310324     let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
311325     $Tuple2(nil, [claimedAcres, lastTime])
312326     }
313327 
314328 
github/deemru/w8io/026f985 
40.74 ms ◑