w8 · tx · FPq···FuE

tx · FPq99MmQF8CGbYpKxTgKuDh5pWJHHsocrHCPuf9AfFuE

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.00700000 Waves

2023.09.21 20:55 [2765467] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FPq99MmQF8CGbYpKxTgKuDh5pWJHHsocrHCPuf9AfFuE",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1695318952083,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "2xVL44jXWHiGUmFCJYVhcKMhxssLKLhz4bGdPSTQgdkKDfY7EwpqWP2fSVNV3139TopvTkzDMBLTXFAnn3sKpFyg"
    ],
    "script": "base64:BgIWCAISBAoCCAESABIDCgEBEgASAwoBASkACE1JTExJT042AICA6YOx3hYBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQRhZGRyCQCsAgICGGFjcmVzU3Rha2VkQW1vdW50QnlVc2VyXwUEYWRkcgATYWNyZXNTdGFrZWRUb3RhbEtleQIWYWNyZXNTdGFrZWRBbW91bnRUb3RhbAAKeHBOZXdTTGFuZADAlrECAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAJREFZTUlMTElTAIC4mSkAFVVTRFQyQUNSRVNfTVVMVElQTElFUgAKAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4AA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDgAgMLXLwEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAEUlkeENmZ0Vjb25vbXlEYXBwAAIADUlkeENmZ1dsZ0RhcHAABAAPSWR4Q2ZnQWNyZXNEYXBwAAgBCmtleVJlc3RDZmcAAg4lc19fcmVzdENvbmZpZwEOa2V5UmVzdEFkZHJlc3MAAgwlc19fcmVzdEFkZHIBEXJlYWRSZXN0Q2ZnT3JGYWlsAQRyZXN0CQC8CQIJAQ9nZXRTdHJpbmdPckZhaWwCBQRyZXN0CQEKa2V5UmVzdENmZwAFA1NFUAEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgdyZXN0Q2ZnA2lkeAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHcmVzdENmZwUDaWR4CQCsAgICKlJlc3QgY2ZnIGRvZXNuJ3QgY29udGFpbiBhZGRyZXNzIGF0IGluZGV4IAkApAMBBQNpZHgADHJlc3RDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEOa2V5UmVzdEFkZHJlc3MABRVkZWZhdWx0UmVzdEFkZHJlc3NTdHIAB3Jlc3RDZmcJARFyZWFkUmVzdENmZ09yRmFpbAEFDHJlc3RDb250cmFjdAAPc3Rha2luZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnU3Rha2luZ0RhcHAAD2Vjb25vbXlDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ0Vjb25vbXlEYXBwAAt3bGdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFDUlkeENmZ1dsZ0RhcHAADWFjcmVzQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ9JZHhDZmdBY3Jlc0RhcHAAFGFjcmVzSXNzdWVkQW1vdW50S2V5AhFhY3Jlc0lzc3VlZEFtb3VudAAPYWNyZXNBc3NldElkS2V5AgxhY3Jlc0Fzc2V0SWQADGFjcmVzQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDWFjcmVzQ29udHJhY3QFD2FjcmVzQXNzZXRJZEtleQIXQUNSRVMgaXMgbm90IGlzc3VlZCB5ZXQBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEEYWRkcgkArAICAhZhY3Jlc1N0YWtlZFRpbWVCeVVzZXJfBQRhZGRyAAtJZHhFZmZUb3RhbAAAARFrZXlSZXNQcm9wb3J0aW9ucwACE3Jlc1R5cGVzUHJvcG9ydGlvbnMBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhRzdGFrZWRQaWVjZXNCeU93bmVyXwUJb3duZXJBZGRyAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBDmdldFZvdGluZ1Bvd2VyARJ1c2VyQWRkclN0ck9yRW1wdHkEBXByb3BzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAIBXwoBBWFkZGVyAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAp0b3RhbFBvd2VyCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlcnNQb3dlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AQ5hc1R3b0ludHNUdXBsZQEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQCdDIFByRtYXRjaDAFAnQyCQACAQIcZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50KQEGcHJvbG9nAAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCCnNhdmVMYXN0VHgFA25pbAUDbmlsAQ1jbGFpbUludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lAwkAZgIAAAUJZGVsdGFUaW1lCQACAQkArAICCQCsAgIJAKwCAgImU2F2ZWQgdGltZXN0YW1wIGlzIGluIGZ1dHVyZSwgc2F2ZWQgPSAJAKQDAQUNbGFzdENsYWltVGltZQIMLCBjdXJyZW50ID0gCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BAdnb3RVc2R0CAkBDmFzVHdvSW50c1R1cGxlAQkA/AcEBQ9lY29ub215Q29udHJhY3QCEnNlbGxSZXNvdXJjZXNXb3JsZAkAzAgCBQRhZGRyCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAJfMQkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgUBaQENY29uc3RydWN0b3JWMQIIcmVzdEFkZHIOdW5zdGFrZWRQaWVjZXMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAMJAQlpc0RlZmluZWQBCQChCAEFD2FjcmVzQXNzZXRJZEtleQkAAgECE0FscmVhZHkgaW5pdGlhbGl6ZWQECG5mdEFjcmVzCQBkAgkAkQMCCQEOZ2V0Vm90aW5nUG93ZXIBAgAFC0lkeEVmZlRvdGFsBQ51bnN0YWtlZFBpZWNlcwQMaXNzdWVkQW1vdW50CQBlAgUITUlMTElPTjYJAGgCBQhuZnRBY3JlcwUFTVVMVDgEBWlzc3VlCQDDCAcCBUFDUkVTAiZXYXZlc0xhbmRzIGxhbmQgYWNyZXMgaW52ZXN0bWVudCB0b2tlbgUMaXNzdWVkQW1vdW50AAgGBQR1bml0AAAEB2Fzc2V0SWQJALgIAQUFaXNzdWUJAMwIAgUFaXNzdWUJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5BQxpc3N1ZWRBbW91bnQJAMwIAgkBC0JpbmFyeUVudHJ5AgUPYWNyZXNBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyBQNuaWwBaQEKc3Rha2VBY3JlcwAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwAEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQxhY3Jlc0Fzc2V0SWQJAAIBAhRBQ1JFUyBwYXltZW50cyBvbmx5IQQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwEDGNsYWltZWRBY3JlcwkBDWNsYWltSW50ZXJuYWwDBQdhZGRyZXNzBQ5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAMwIAgkBDEludGVnZXJFbnRyeQIFE2FjcmVzU3Rha2VkVG90YWxLZXkJAGQCBQhvbGRUb3RhbAUDYW10CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAFpAQx1bnN0YWtlQWNyZXMBBmFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAADCQBmAgUGYW1vdW50BQ5vbGRBY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGUCBQ5vbGRBY3Jlc0Ftb3VudAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBlAgUIb2xkVG90YWwFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGQCBQZhbW91bnQFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQBaQEIYnV5QWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUNgAGAgUgVVNEVAQLYWNyZXNBbW91bnQJAGgCBQNhbXQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQOYWNjU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQdhZGRyZXNzCQDMCAIJAGsDBQp4cE5ld1NMYW5kBQthY3Jlc0Ftb3VudAkAaAIAGQUFTVVMVDgFA25pbAUDbmlsCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPZWNvbm9teUNvbnRyYWN0BQNhbXQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYWNyZXNBbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQBaQEJYnVybkFjcmVzAQZhbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFD3N0YWtpbmdDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQCUCgIJAMwIAgkBBEJ1cm4CBQxhY3Jlc0Fzc2V0SWQFBmFtb3VudAUDbmlsBQZhbW91bnQA/vSx5g==",
    "height": 2765467,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: 9D8y5sKXzb93F2L36zeeZdzAzUsPNxd3eBDgDT8ANwKT

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

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

github/deemru/w8io/169f3d6 
27.48 ms ◑