w8 · tx · 9D8···wKT

tx · 9D8y5sKXzb93F2L36zeeZdzAzUsPNxd3eBDgDT8ANwKT

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.00700000 Waves

2023.09.22 01:33 [2765746] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9D8y5sKXzb93F2L36zeeZdzAzUsPNxd3eBDgDT8ANwKT",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1695335659333,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "4LZia4fJH92g2SA1kDbkLunvko3CGmQtyiAa9RVRswVAfg4R35jpoju5Fm4SbMwNizAngRS77dzub96M5vdSEtzS"
    ],
    "script": "base64:BgIWCAISBAoCCAESABIDCgEBEgASAwoBASkACE1JTExJT042AICA6YOx3hYBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQRhZGRyCQCsAgICGGFjcmVzU3Rha2VkQW1vdW50QnlVc2VyXwUEYWRkcgATYWNyZXNTdGFrZWRUb3RhbEtleQIWYWNyZXNTdGFrZWRBbW91bnRUb3RhbAAKeHBOZXdTTGFuZADAlrECAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAJREFZTUlMTElTAIC4mSkAFVVTRFQyQUNSRVNfTVVMVElQTElFUgAKAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4AA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDgAgMLXLwEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAEUlkeENmZ0Vjb25vbXlEYXBwAAIADUlkeENmZ1dsZ0RhcHAABAAPSWR4Q2ZnQWNyZXNEYXBwAAgBCmtleVJlc3RDZmcAAg4lc19fcmVzdENvbmZpZwEOa2V5UmVzdEFkZHJlc3MAAgwlc19fcmVzdEFkZHIBEXJlYWRSZXN0Q2ZnT3JGYWlsAQRyZXN0CQC8CQIJAQ9nZXRTdHJpbmdPckZhaWwCBQRyZXN0CQEKa2V5UmVzdENmZwAFA1NFUAEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgdyZXN0Q2ZnA2lkeAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHcmVzdENmZwUDaWR4CQCsAgICKlJlc3QgY2ZnIGRvZXNuJ3QgY29udGFpbiBhZGRyZXNzIGF0IGluZGV4IAkApAMBBQNpZHgADHJlc3RDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEOa2V5UmVzdEFkZHJlc3MABRVkZWZhdWx0UmVzdEFkZHJlc3NTdHIAB3Jlc3RDZmcJARFyZWFkUmVzdENmZ09yRmFpbAEFDHJlc3RDb250cmFjdAAPc3Rha2luZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnU3Rha2luZ0RhcHAAD2Vjb25vbXlDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ0Vjb25vbXlEYXBwAAt3bGdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFDUlkeENmZ1dsZ0RhcHAADWFjcmVzQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ9JZHhDZmdBY3Jlc0RhcHAAFGFjcmVzSXNzdWVkQW1vdW50S2V5AhFhY3Jlc0lzc3VlZEFtb3VudAAPYWNyZXNBc3NldElkS2V5AgxhY3Jlc0Fzc2V0SWQADGFjcmVzQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDWFjcmVzQ29udHJhY3QFD2FjcmVzQXNzZXRJZEtleQIXQUNSRVMgaXMgbm90IGlzc3VlZCB5ZXQBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEEYWRkcgkArAICAhZhY3Jlc1N0YWtlZFRpbWVCeVVzZXJfBQRhZGRyAAtJZHhFZmZUb3RhbAAAARFrZXlSZXNQcm9wb3J0aW9ucwACE3Jlc1R5cGVzUHJvcG9ydGlvbnMBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhRzdGFrZWRQaWVjZXNCeU93bmVyXwUJb3duZXJBZGRyAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBDmdldFZvdGluZ1Bvd2VyARJ1c2VyQWRkclN0ck9yRW1wdHkEBXByb3BzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAIBXwoBBWFkZGVyAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAp0b3RhbFBvd2VyCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlcnNQb3dlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AQ5hc1R3b0ludHNUdXBsZQEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQCdDIFByRtYXRjaDAFAnQyCQACAQIcZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50KQEGcHJvbG9nAAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCCnNhdmVMYXN0VHgFA25pbAUDbmlsAQ1jbGFpbUludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lAwkAZgIAAAUJZGVsdGFUaW1lCQACAQkArAICCQCsAgIJAKwCAgImU2F2ZWQgdGltZXN0YW1wIGlzIGluIGZ1dHVyZSwgc2F2ZWQgPSAJAKQDAQUNbGFzdENsYWltVGltZQIMLCBjdXJyZW50ID0gCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BAdnb3RVc2R0CAkBDmFzVHdvSW50c1R1cGxlAQkA/AcEBQ9lY29ub215Q29udHJhY3QCEnNlbGxSZXNvdXJjZXNXb3JsZAkAzAgCBQRhZGRyCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAJfMQkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgUBaQENY29uc3RydWN0b3JWMQIIcmVzdEFkZHIOdW5zdGFrZWRQaWVjZXMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAMJAQlpc0RlZmluZWQBCQChCAEFD2FjcmVzQXNzZXRJZEtleQkAAgECE0FscmVhZHkgaW5pdGlhbGl6ZWQECG5mdEFjcmVzCQBkAgkAkQMCCQEOZ2V0Vm90aW5nUG93ZXIBAgAFC0lkeEVmZlRvdGFsBQ51bnN0YWtlZFBpZWNlcwQMaXNzdWVkQW1vdW50CQBlAgUITUlMTElPTjYJAGgCBQhuZnRBY3JlcwUFTVVMVDgEBWlzc3VlCQDDCAcCBUFDUkVTAiZXYXZlc0xhbmRzIGxhbmQgYWNyZXMgaW52ZXN0bWVudCB0b2tlbgUMaXNzdWVkQW1vdW50AAgHBQR1bml0AAAEB2Fzc2V0SWQJALgIAQUFaXNzdWUJAMwIAgUFaXNzdWUJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5BQxpc3N1ZWRBbW91bnQJAMwIAgkBC0JpbmFyeUVudHJ5AgUPYWNyZXNBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyBQNuaWwBaQEKc3Rha2VBY3JlcwAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwAEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQxhY3Jlc0Fzc2V0SWQJAAIBAhRBQ1JFUyBwYXltZW50cyBvbmx5IQQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwEDGNsYWltZWRBY3JlcwkBDWNsYWltSW50ZXJuYWwDBQdhZGRyZXNzBQ5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAMwIAgkBDEludGVnZXJFbnRyeQIFE2FjcmVzU3Rha2VkVG90YWxLZXkJAGQCBQhvbGRUb3RhbAUDYW10CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAFpAQx1bnN0YWtlQWNyZXMBBmFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAADCQBmAgUGYW1vdW50BQ5vbGRBY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGUCBQ5vbGRBY3Jlc0Ftb3VudAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBlAgUIb2xkVG90YWwFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGQCBQZhbW91bnQFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQBaQEIYnV5QWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUNgAGAgUgVVNEVAQLYWNyZXNBbW91bnQJAGgCBQNhbXQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQOYWNjU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQdhZGRyZXNzCQDMCAIJAGsDBQp4cE5ld1NMYW5kBQthY3Jlc0Ftb3VudAkAaAIAGQUFTVVMVDgFA25pbAUDbmlsCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPZWNvbm9teUNvbnRyYWN0BQNhbXQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYWNyZXNBbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQBaQEJYnVybkFjcmVzAQZhbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFD3N0YWtpbmdDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQCUCgIJAMwIAgkBBEJ1cm4CBQxhY3Jlc0Fzc2V0SWQFBmFtb3VudAUDbmlsBQZhbW91bnQA8p6n1w==",
    "height": 2765746,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FPq99MmQF8CGbYpKxTgKuDh5pWJHHsocrHCPuf9AfFuE
Next: AABqeUNNJUiw19hcKfAaXujgohBWq8wBi9LTRd7hXkvw

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

Old	New		Differences
164	164		else {
165	165		let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
166	166		let issuedAmount = (MILLION6 - (nftAcres * MULT8))
167		-	let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, ~~true~~, unit, 0)
	167	+	let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
168	168		let assetId = calculateAssetId(issue)
169	169		[issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
170	170		}

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

github/deemru/w8io/169f3d6 
47.46 ms ◑