w8 · tx · 8zM···5wN

tx · 8zMiF1mFE5Jyrcvdr19CUm9zoahWib5iqRvzqEUz85wN

3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh:  -0.01300000 Waves

2024.09.14 17:43 [3283464] smart account 3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8zMiF1mFE5Jyrcvdr19CUm9zoahWib5iqRvzqEUz85wN",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1726325033253,
    "version": 2,
    "chainId": 84,
    "sender": "3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh",
    "senderPublicKey": "3QtfC1XbLZXdeawMDeSERy9vvjUmj1XYd2GFmrvx7pWQ",
    "proofs": [
        "5p7gqYf9oviVxbNFLskj1nZsbrdTn9RF6X9sH6FSwS4DNybxbkVHEYbDkjn6nkmDKmhgLHYv7U1t2qxGaGQJTcLH"
    ],
    "script": "base64:BgIjCAISBAoCCAgSBAoCCAESAwoBBBIDCgEBEgASABIAEgMKAQgsAANTRVACAl9fAAVNVUxUOACAwtcvABFXTEcyQUNSRVNfRElWSVNPUgDIAQAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAFmRlZmF1bHRSZXN0MkFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQRndZdGE4YmlFejMxenBlRmU1REpLOHdFNXRyU3BRVkY4AwkAAAIBAVQFByRtYXRjaDACIzNON1V1WWFyNjI2NFA1OEZCaFZXS1BRQWg0WXVhMmhnbmd2CQACAQINVW5rbm93biBjaGFpbgAVb2xkU3Rha2luZ0NvbnRyYWN0U3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUExuY1h0UzFVODNENmNRYkZEM0g4ckJIUExnenhTRktaMQMJAAACAQFUBQckbWF0Y2gwAiMzTkRDeUJHNXE4NUp1YVJpaWdVZUV0YWlueWpDUVQzWHBabQkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABBJZHhDZmdBY3JlczJEYXBwAAEADUlkeENmZ1dsZ0RhcHAAAgEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ9rZXlSZXN0MkFkZHJlc3MAAg0lc19fcmVzdDJBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIIcmVzdDJDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQhyZXN0MkNmZwUDaWR4CQCsAgICKlJlc3QgY2ZnIGRvZXNuJ3QgY29udGFpbiBhZGRyZXNzIGF0IGluZGV4IAkApAMBBQNpZHgADXJlc3QyQ29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBD2tleVJlc3QyQWRkcmVzcwAFFmRlZmF1bHRSZXN0MkFkZHJlc3NTdHIACHJlc3QyQ2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQ1yZXN0MkNvbnRyYWN0AA5hY3JlczJDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCHJlc3QyQ2ZnBRBJZHhDZmdBY3JlczJEYXBwAAt3bGdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCHJlc3QyQ2ZnBQ1JZHhDZmdXbGdEYXBwABNvbGRBY3Jlc0NvbnRyYWN0S2V5AhBvbGRBY3Jlc0NvbnRyYWN0AQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAERa2V5TGFzdFR4SWRCeVVzZXIBBGFkZHIJAKwCAgIPbGFzdFR4SWRCeVVzZXJfBQRhZGRyAA13bGdBc3NldElkS2V5Agt3bGdfYXNzZXRJZAAKd2xnQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFC3dsZ0NvbnRyYWN0BQ13bGdBc3NldElkS2V5AhhXTEdPTEQgaXMgbm90IGlzc3VlZCB5ZXQAFGFjcmVzSXNzdWVkQW1vdW50S2V5AhFhY3Jlc0lzc3VlZEFtb3VudAAPYWNyZXNBc3NldElkS2V5AgxhY3Jlc0Fzc2V0SWQADGFjcmVzQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDmFjcmVzMkNvbnRyYWN0BQ9hY3Jlc0Fzc2V0SWRLZXkCF0FDUkVTIGlzIG5vdCBpc3N1ZWQgeWV0ARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIWYWNyZXNTdGFrZWRUaW1lQnlVc2VyXwUEYWRkcgEVa2V5U3Rha2VkTGFuZHNCeU93bmVyAQlvd25lckFkZHIJAKwCAgITc3Rha2VkTGFuZHNCeU93bmVyXwUJb3duZXJBZGRyARRrZXlTdGFrZWREdWNrQnlPd25lcgEJb3duZXJBZGRyCQCsAgICEnN0YWtlZER1Y2tCeU93bmVyXwUJb3duZXJBZGRyAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBDGFzVHVwbGU1SW50cwEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIZKEludCwgSW50LCBJbnQsIEludCwgSW50KQQBdAUHJG1hdGNoMAUBdAkAAgECK2ZhaWwgdG8gY2FzdCBpbnRvIChJbnQsIEludCwgSW50LCBJbnQsIEludCkBDGFzVHVwbGU0SW50cwEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIUKEludCwgSW50LCBJbnQsIEludCkEAXQFByRtYXRjaDAFAXQJAAIBAiZmYWlsIHRvIGNhc3QgaW50byAoSW50LCBJbnQsIEludCwgSW50KQEMYXNUdXBsZTNJbnRzAQN2YWwEByRtYXRjaDAFA3ZhbAMJAAECBQckbWF0Y2gwAg8oSW50LCBJbnQsIEludCkEAXQFByRtYXRjaDAFAXQJAAIBAiFmYWlsIHRvIGNhc3QgaW50byAoSW50LCBJbnQsIEludCkBDGFzVHVwbGUySW50cwEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQBdAUHJG1hdGNoMAUBdAkAAgECHGZhaWwgdG8gY2FzdCBpbnRvIChJbnQsIEludCkBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AANNOF8AgMLXLwEXa2V5QWNyZXNTdGFrZWRBbXRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyARVrZXlGYXJtaW5nUG93ZXJCeVVzZXIBBGFkZHIJAKwCAgITZmFybWluZ1Bvd2VyQnlVc2VyXwUEYWRkcgASYWNyZXNTdGFrZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsABR0b3RhbEZhcm1pbmdQb3dlcktleQIRdG90YWxGYXJtaW5nUG93ZXIABmxldmVscwkAzAgCAAoJAMwIAgAUCQDMCAIAKAkAzAgCAFAJAMwIAgCWAQkAzAgCAPoBCQDMCAIAkAMJAMwIAgC8BQkAzAgCAOgHBQNuaWwBD2dldExldmVsQnlBY3JlcwEFYWNyZXMEA2FjcgkAaQIFBWFjcmVzBQNNOF8KAQdjaGVja2VyAgNhY2MEaXRlbQMJAGYCBQRpdGVtBQNhY3IFA2FjYwkAZAIFA2FjYwABBANpZHgKAAIkbAUGbGV2ZWxzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdjaGVja2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKCQBkAgUDaWR4AAEBFmdldEZhcm1pbmdQb3dlckJ5QWNyZXMBBWFjcmVzCQBoAgkAaAIFBWFjcmVzABQJAGQCCQEPZ2V0TGV2ZWxCeUFjcmVzAQUFYWNyZXMABAEGcHJvbG9nAQFpAwMJAQIhPQIIBQFpDG9yaWdpbkNhbGxlcgUNcmVzdDJDb250cmFjdAkBC3ZhbHVlT3JFbHNlAgkAoAgBCQEKa2V5QmxvY2tlZAAHBwkAAgECH0NvbnRyYWN0cyBhcmUgdW5kZXIgbWFpbnRlbmFuY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEWtleUxhc3RUeElkQnlVc2VyAQkApQgBCAUBaQxvcmlnaW5DYWxsZXIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAUDbmlsARJzdGFrZUFjcmVzSW50ZXJuYWwCA2FtdAdhZGRyZXNzBAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAMJAAACBQl3bGdSZXN1bHQFCXdsZ1Jlc3VsdAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBF2tleUFjcmVzU3Rha2VkQW10QnlVc2VyAQUHYWRkcmVzcwQObmV3QWNyZXNBbW91bnQJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABQNhbXQECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFEmFjcmVzU3Rha2RUb3RhbEtleQAABAl1c2VyRnBLZXkJARVrZXlGYXJtaW5nUG93ZXJCeVVzZXIBBQdhZGRyZXNzBAVvbGRGcAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQl1c2VyRnBLZXkAAAQFbmV3RnAJARZnZXRGYXJtaW5nUG93ZXJCeUFjcmVzAQUObmV3QWNyZXNBbW91bnQECm9sZFRvdGFsRnAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUdG90YWxGYXJtaW5nUG93ZXJLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5BQ5uZXdBY3Jlc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSYWNyZXNTdGFrZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJdXNlckZwS2V5BQVuZXdGcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUdG90YWxGYXJtaW5nUG93ZXJLZXkJAGQCCQBlAgUKb2xkVG90YWxGcAUFb2xkRnAFBW5ld0ZwBQNuaWwFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLggBaQENY29uc3RydWN0b3JWMQIJcmVzdDJBZGRyDm9sZEFjckNvbnRyYWN0AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQEDm9sZEFjckNvbnRBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBBQ5vbGRBY3JDb250cmFjdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUYWNyZXNJc3N1ZWRBbW91bnRLZXkJARFAZXh0ck5hdGl2ZSgxMDUwKQIFDm9sZEFjckNvbnRBZGRyBRRhY3Jlc0lzc3VlZEFtb3VudEtleQkAzAgCCQELQmluYXJ5RW50cnkCBQ9hY3Jlc0Fzc2V0SWRLZXkJARFAZXh0ck5hdGl2ZSgxMDUyKQIFDm9sZEFjckNvbnRBZGRyBQ9hY3Jlc0Fzc2V0SWRLZXkJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD2tleVJlc3QyQWRkcmVzcwAFCXJlc3QyQWRkcgkAzAgCCQELU3RyaW5nRW50cnkCBRNvbGRBY3Jlc0NvbnRyYWN0S2V5BQ5vbGRBY3JDb250cmFjdAUDbmlsAWkBC3NhdmVJbnRlZ2VyAgNrZXkGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIgc2F2ZUludGVnZXIgaXMgbm90IHB1YmxpYyBtZXRob2QJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUGYW1vdW50BQNuaWwBaQEKc2V0QmxvY2tlZAEJaXNCbG9ja2VkAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRcGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBDEJvb2xlYW5FbnRyeQIJAQprZXlCbG9ja2VkAAUJaXNCbG9ja2VkBQNuaWwBaQEMdW5zdGFrZUFjcmVzAQZhbW91bnQEDXByb2xvZ0FjdGlvbnMJAQZwcm9sb2cBBQFpAwkAZwIAAAUGYW1vdW50CQACAQIZQW1vdW50IHNob3VsZCBiZSBwb3NpdGl2ZQQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBF2tleUFjcmVzU3Rha2VkQW10QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAADCQBmAgUGYW1vdW50BQ5vbGRBY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRJhY3Jlc1N0YWtkVG90YWxLZXkAAAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwEDm5ld0FjcmVzQW1vdW50CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAQJdXNlckZwS2V5CQEVa2V5RmFybWluZ1Bvd2VyQnlVc2VyAQUHYWRkcmVzcwQFb2xkRnAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJdXNlckZwS2V5AAAEBW5ld0ZwCQEWZ2V0RmFybWluZ1Bvd2VyQnlBY3JlcwEFDm5ld0FjcmVzQW1vdW50BApvbGRUb3RhbEZwCQELdmFsdWVPckVsc2UCCQCfCAEFFHRvdGFsRmFybWluZ1Bvd2VyS2V5AAAJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSYWNyZXNTdGFrZFRvdGFsS2V5CQBlAgUIb2xkVG90YWwFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJdXNlckZwS2V5BQVuZXdGcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUdG90YWxGYXJtaW5nUG93ZXJLZXkJAGQCCQBlAgUKb2xkVG90YWxGcAUFb2xkRnAFBW5ld0ZwCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUGYW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAUNcHJvbG9nQWN0aW9ucwUJd2xnUmVzdWx0AWkBCnN0YWtlQWNyZXMABA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFDGFjcmVzQXNzZXRJZAkAAgECFEFDUkVTIHBheW1lbnRzIG9ubHkhBAskdDAzODM1MzkwMQkBEnN0YWtlQWNyZXNJbnRlcm5hbAIFA2FtdAUHYWRkcmVzcwQHYWN0aW9ucwgFCyR0MDM4MzUzOTAxAl8xBBB3bGdDbGFpbWVkQW1vdW50CAULJHQwMzgzNTM5MDECXzIJAJQKAgkAzggCBQdhY3Rpb25zBQ1wcm9sb2dBY3Rpb25zBRB3bGdDbGFpbWVkQW1vdW50AWkBCGJ1eUFjcmVzAAQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQp3bGdBc3NldElkCQACAQIVV0xHT0xEIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ4BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUOAAIAgcgV0xHT0xEBAthY3Jlc0Ftb3VudAkAaQIFA2FtdAURV0xHMkFDUkVTX0RJVklTT1IED29sZEFjcmVzQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUTb2xkQWNyZXNDb250cmFjdEtleQQDcmVxCQD8BwQFD29sZEFjcmVzQWRkcmVzcwIUcmVxdWVzdEFjcmVzQ2FsbGJhY2sJAMwIAgULYWNyZXNBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcQUDcmVxBAl3bGdSZW1haW4JAQVhc0ludAEJAPwHBAULd2xnQ29udHJhY3QCCmJ1cm5XbGdvbGQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUKd2xnQXNzZXRJZAUDYW10BQNuaWwJAJQKAgkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYWNyZXNBbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsBQ1wcm9sb2dBY3Rpb25zBQl3bGdSZW1haW4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQY29udmVydE9sZFN0YWtlcwAEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQED29sZEFjcmVzQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUTb2xkQWNyZXNDb250cmFjdEtleQQGYW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFD29sZEFjcmVzQWRkcmVzcwkBF2tleUFjcmVzU3Rha2VkQW10QnlVc2VyAQUHYWRkcmVzcwAABAlnb3RBY3JlczADCQBmAgUGYW1vdW50AAAJAQxhc1R1cGxlMkludHMBCQD8BwQFD29sZEFjcmVzQWRkcmVzcwIUdW5zdGFrZUFjcmVzQ2FsbGJhY2sJAMwIAgUGYW1vdW50CQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsCQCUCgIAAAAABBFvbGRTdGFraW5nQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUVb2xkU3Rha2luZ0NvbnRyYWN0U3RyBAhsYW5kc1N0cgkAnQgCBRFvbGRTdGFraW5nQWRkcmVzcwkBFWtleVN0YWtlZExhbmRzQnlPd25lcgEFB2FkZHJlc3MEC2xhbmRzUmVzdWx0AwkBCWlzRGVmaW5lZAEFCGxhbmRzU3RyBAVsYW5kcwkAvQkCCQEFdmFsdWUBBQhsYW5kc1N0cgIBXwoBB29uZUxhbmQCA2FjYwtsYW5kQXNzZXRJZAMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQEAXIJAQxhc1R1cGxlNUludHMBCQD8BwQFEW9sZFN0YWtpbmdBZGRyZXNzAhN1bnN0YWtlTGFuZENhbGxiYWNrCQDMCAIFC2xhbmRBc3NldElkCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsCQCWCgQJAGQCCAUDYWNjAl8xCAUBcgJfMQkAZAIIBQNhY2MCXzIIBQFyAl8yCQBkAggFA2FjYwJfMwgFAXICXzMJAGQCCAUDYWNjAl80CAUBcgJfNAQCcnIKAAIkbAUFbGFuZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQAAAAAAAAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEHb25lTGFuZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIVTGlzdCBzaXplIGV4Y2VlZHMgMTAwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUABRAFIAUwBUAFUAVgBXAFgAWQBaAFsAXABdAF4AXwBgAGEAYgBjAGQECGZpbmFsaXplCQD8BwQFEW9sZFN0YWtpbmdBZGRyZXNzAhx1bnN0YWtlTGFuZHNGaW5hbGl6ZUNhbGxiYWNrCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsAwkAAAIFCGZpbmFsaXplBQhmaW5hbGl6ZQQDcmVxCQD8BwQFD29sZEFjcmVzQWRkcmVzcwIUcmVxdWVzdEFjcmVzQ2FsbGJhY2sJAMwIAgkAZAIJAGQCCQBkAggFAnJyAl8xCAUCcnICXzIIBQJycgJfMwgFAnJyAl80BQNuaWwFA25pbAMJAAACBQNyZXEFA3JlcQQFaXNzdWUJAMIIBQIIRlBPV0VSMTACKUZhcm1pbmdQb3dlciArMTAlIE5GVCBmb3IgV2F2ZXNMYW5kcyBnYW1lAAEAAAcJAJcKBQgFAnJyAl8xCAUCcnICXzIIBQJycgJfMwgFAnJyAl80CQDMCAIFBWlzc3VlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQC4CAEFBWlzc3VlBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAJcKBQAAAAAAAAAABQNuaWwEC2R1Y2tBc3NldElkCQELdmFsdWVPckVsc2UCCQCdCAIFEW9sZFN0YWtpbmdBZGRyZXNzCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQdhZGRyZXNzAgAECmR1Y2tSZXN1bHQDCQECIT0CBQtkdWNrQXNzZXRJZAIACQEMYXNUdXBsZTNJbnRzAQkA/AcEBRFvbGRTdGFraW5nQWRkcmVzcwITdW5zdGFrZUR1Y2tDYWxsYmFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAkAlQoDAAAAAAAABAF4CQESc3Rha2VBY3Jlc0ludGVybmFsAgkAZAIJAGQCCQBkAgkAZAIJAGQCCQBkAgkAZAIIBQlnb3RBY3JlczACXzEIBQtsYW5kc1Jlc3VsdAJfMQgFC2xhbmRzUmVzdWx0Al8yCAULbGFuZHNSZXN1bHQCXzMIBQtsYW5kc1Jlc3VsdAJfNAgFCmR1Y2tSZXN1bHQCXzEIBQpkdWNrUmVzdWx0Al8yCAUKZHVja1Jlc3VsdAJfMwUHYWRkcmVzcwkAlAoCCQDOCAIIBQtsYW5kc1Jlc3VsdAJfNQgFAXgCXzEIBQF4Al8yAWkBFHVuc3Rha2VMYW5kc1JFQURPTkxZAQdhZGRyZXNzBBFvbGRTdGFraW5nQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUVb2xkU3Rha2luZ0NvbnRyYWN0U3RyBAhsYW5kc1N0cgkAnQgCBRFvbGRTdGFraW5nQWRkcmVzcwkBFWtleVN0YWtlZExhbmRzQnlPd25lcgEFB2FkZHJlc3MEC2xhbmRzUmVzdWx0AwkBCWlzRGVmaW5lZAEFCGxhbmRzU3RyBAVsYW5kcwkAvQkCCQEFdmFsdWUBBQhsYW5kc1N0cgIBXwoBB29uZUxhbmQCA2FjYwtsYW5kQXNzZXRJZAMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQEAXIJAQxhc1R1cGxlNEludHMBCQD8BwQFEW9sZFN0YWtpbmdBZGRyZXNzAhN1bnN0YWtlTGFuZFJFQURPTkxZCQDMCAIFC2xhbmRBc3NldElkCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsCQCWCgQJAGQCCAUDYWNjAl8xCAUBcgJfMQkAZAIIBQNhY2MCXzIIBQFyAl8yCQBkAggFA2FjYwJfMwgFAXICXzMJAGQCCAUDYWNjAl80CAUBcgJfNAoAAiRsBQVsYW5kcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAAAAAAAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAkAlgoEAAAAAAAAAAAJAJQKAgUDbmlsBQtsYW5kc1Jlc3VsdACOXQkv",
    "height": 3283464,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9KY3Ep8ykqMowVSs6CdZcPxHKzUfiBWMjnTqubKPi2jv
Next: AATwCftzGi2MLdfy2M5sgNXtbYs6WUDfaLBUFJzBtUYN

Diff: 
Old New Differences
5 5  
6 6  let MULT8 = 100000000
7 7  
8 - let WLG2ACRES_MULTIPLIER = 200
8 + let WLG2ACRES_DIVISOR = 200
9 9  
10 10  let chain = take(drop(this.bytes, 1), 1)
11 11  
291 291                  else if ((MULT8 > amt))
292 292                      then throw((("Min payment should be " + fixedPoint(MULT8, 8)) + " WLGOLD"))
293 293                      else {
294 -                         let acresAmount = (amt * WLG2ACRES_MULTIPLIER)
294 +                         let acresAmount = (amt / WLG2ACRES_DIVISOR)
295 295                          let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
296 296                          let req = invoke(oldAcresAddress, "requestAcresCallback", [acresAmount], nil)
297 297                          if ((req == req))
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let MULT8 = 100000000
7 7  
8 - let WLG2ACRES_MULTIPLIER = 200
8 + let WLG2ACRES_DIVISOR = 200
9 9  
10 10  let chain = take(drop(this.bytes, 1), 1)
11 11  
12 12  let defaultRest2AddressStr = match chain {
13 13      case _ => 
14 14          if ((base58'2W' == $match0))
15 15              then "3PFwYta8biEz31zpeFe5DJK8wE5trSpQVF8"
16 16              else if ((base58'2T' == $match0))
17 17                  then "3N7UuYar6264P58FBhVWKPQAh4Yua2hgngv"
18 18                  else throw("Unknown chain")
19 19  }
20 20  
21 21  let oldStakingContractStr = match chain {
22 22      case _ => 
23 23          if ((base58'2W' == $match0))
24 24              then "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1"
25 25              else if ((base58'2T' == $match0))
26 26                  then "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm"
27 27                  else throw("Unknown chain")
28 28  }
29 29  
30 30  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
31 31  
32 32  
33 33  let IdxCfgAcres2Dapp = 1
34 34  
35 35  let IdxCfgWlgDapp = 2
36 36  
37 37  func keyRestCfg () = "%s__restConfig"
38 38  
39 39  
40 40  func keyRest2Address () = "%s__rest2Addr"
41 41  
42 42  
43 43  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
44 44  
45 45  
46 46  func getContractAddressOrFail (rest2Cfg,idx) = valueOrErrorMessage(addressFromString(rest2Cfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
47 47  
48 48  
49 49  let rest2Contract = addressFromStringValue(valueOrElse(getString(this, keyRest2Address()), defaultRest2AddressStr))
50 50  
51 51  let rest2Cfg = readRestCfgOrFail(rest2Contract)
52 52  
53 53  let acres2Contract = getContractAddressOrFail(rest2Cfg, IdxCfgAcres2Dapp)
54 54  
55 55  let wlgContract = getContractAddressOrFail(rest2Cfg, IdxCfgWlgDapp)
56 56  
57 57  let oldAcresContractKey = "oldAcresContract"
58 58  
59 59  func keyBlocked () = "contractsBlocked"
60 60  
61 61  
62 62  func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
63 63  
64 64  
65 65  let wlgAssetIdKey = "wlg_assetId"
66 66  
67 67  let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
68 68  
69 69  let acresIssuedAmountKey = "acresIssuedAmount"
70 70  
71 71  let acresAssetIdKey = "acresAssetId"
72 72  
73 73  let acresAssetId = valueOrErrorMessage(getBinary(acres2Contract, acresAssetIdKey), "ACRES is not issued yet")
74 74  
75 75  func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
76 76  
77 77  
78 78  func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
79 79  
80 80  
81 81  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
82 82  
83 83  
84 84  func asInt (v) = match v {
85 85      case n: Int => 
86 86          n
87 87      case _ => 
88 88          throw("fail to cast into Int")
89 89  }
90 90  
91 91  
92 92  func asTuple5Ints (val) = match val {
93 93      case t: (Int, Int, Int, Int, Int) => 
94 94          t
95 95      case _ => 
96 96          throw("fail to cast into (Int, Int, Int, Int, Int)")
97 97  }
98 98  
99 99  
100 100  func asTuple4Ints (val) = match val {
101 101      case t: (Int, Int, Int, Int) => 
102 102          t
103 103      case _ => 
104 104          throw("fail to cast into (Int, Int, Int, Int)")
105 105  }
106 106  
107 107  
108 108  func asTuple3Ints (val) = match val {
109 109      case t: (Int, Int, Int) => 
110 110          t
111 111      case _ => 
112 112          throw("fail to cast into (Int, Int, Int)")
113 113  }
114 114  
115 115  
116 116  func asTuple2Ints (val) = match val {
117 117      case t: (Int, Int) => 
118 118          t
119 119      case _ => 
120 120          throw("fail to cast into (Int, Int)")
121 121  }
122 122  
123 123  
124 124  func fixedPoint (val,decimals) = {
125 125      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
126 126      let lowPart = toString((val % tenPow))
127 127      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
128 128      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
129 129      }
130 130  
131 131  
132 132  let M8_ = 100000000
133 133  
134 134  func keyAcresStakedAmtByUser (addr) = ("acresStakedAmountByUser_" + addr)
135 135  
136 136  
137 137  func keyFarmingPowerByUser (addr) = ("farmingPowerByUser_" + addr)
138 138  
139 139  
140 140  let acresStakdTotalKey = "acresStakedAmountTotal"
141 141  
142 142  let totalFarmingPowerKey = "totalFarmingPower"
143 143  
144 144  let levels = [10, 20, 40, 80, 150, 250, 400, 700, 1000]
145 145  
146 146  func getLevelByAcres (acres) = {
147 147      let acr = (acres / M8_)
148 148      func checker (acc,item) =     if ((item > acr))
149 149          then acc
150 150          else (acc + 1)
151 151  
152 152      let idx = {
153 153          let $l = levels
154 154          let $s = size($l)
155 155          let $acc0 = 0
156 156          func $f0_1 ($a,$i) =         if (($i >= $s))
157 157              then $a
158 158              else checker($a, $l[$i])
159 159  
160 160          func $f0_2 ($a,$i) =         if (($i >= $s))
161 161              then $a
162 162              else throw("List size exceeds 10")
163 163  
164 164          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
165 165          }
166 166      (idx + 1)
167 167      }
168 168  
169 169  
170 170  func getFarmingPowerByAcres (acres) = ((acres * 20) * (getLevelByAcres(acres) + 4))
171 171  
172 172  
173 173  func prolog (i) = if (if ((i.originCaller != rest2Contract))
174 174      then valueOrElse(getBoolean(keyBlocked()), false)
175 175      else false)
176 176      then throw("Contracts are under maintenance")
177 177      else [StringEntry(keyLastTxIdByUser(toString(i.originCaller)), toBase58String(i.transactionId))]
178 178  
179 179  
180 180  func stakeAcresInternal (amt,address) = {
181 181      let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
182 182      if ((wlgResult == wlgResult))
183 183          then {
184 184              let now = lastBlock.timestamp
185 185              let timeKey = keyAcresStakedTimeByUser(address)
186 186              let amountKey = keyAcresStakedAmtByUser(address)
187 187              let newAcresAmount = (valueOrElse(getInteger(amountKey), 0) + amt)
188 188              let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
189 189              let userFpKey = keyFarmingPowerByUser(address)
190 190              let oldFp = valueOrElse(getInteger(userFpKey), 0)
191 191              let newFp = getFarmingPowerByAcres(newAcresAmount)
192 192              let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
193 193              $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt)), IntegerEntry(userFpKey, newFp), IntegerEntry(totalFarmingPowerKey, ((oldTotalFp - oldFp) + newFp))], wlgResult)
194 194              }
195 195          else throw("Strict value is not equal to itself.")
196 196      }
197 197  
198 198  
199 199  @Callable(i)
200 200  func constructorV1 (rest2Addr,oldAcrContract) = if ((i.caller != this))
201 201      then throw("Permission denied")
202 202      else {
203 203          let oldAcrContAddr = addressFromStringValue(oldAcrContract)
204 204  [IntegerEntry(acresIssuedAmountKey, getIntegerValue(oldAcrContAddr, acresIssuedAmountKey)), BinaryEntry(acresAssetIdKey, getBinaryValue(oldAcrContAddr, acresAssetIdKey)), StringEntry(keyRest2Address(), rest2Addr), StringEntry(oldAcresContractKey, oldAcrContract)]
205 205          }
206 206  
207 207  
208 208  
209 209  @Callable(i)
210 210  func saveInteger (key,amount) = if ((i.caller != this))
211 211      then throw("saveInteger is not public method")
212 212      else [IntegerEntry(key, amount)]
213 213  
214 214  
215 215  
216 216  @Callable(i)
217 217  func setBlocked (isBlocked) = if ((i.caller != this))
218 218      then throw("permission denied")
219 219      else [BooleanEntry(keyBlocked(), isBlocked)]
220 220  
221 221  
222 222  
223 223  @Callable(i)
224 224  func unstakeAcres (amount) = {
225 225      let prologActions = prolog(i)
226 226      if ((0 >= amount))
227 227          then throw("Amount should be positive")
228 228          else {
229 229              let address = toString(i.caller)
230 230              if ((size(i.payments) != 0))
231 231                  then throw("No payments required")
232 232                  else {
233 233                      let timeKey = keyAcresStakedTimeByUser(address)
234 234                      let amountKey = keyAcresStakedAmtByUser(address)
235 235                      let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
236 236                      if ((amount > oldAcresAmount))
237 237                          then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
238 238                          else {
239 239                              let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
240 240                              let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
241 241                              let newAcresAmount = (oldAcresAmount - amount)
242 242                              let userFpKey = keyFarmingPowerByUser(address)
243 243                              let oldFp = valueOrElse(getInteger(userFpKey), 0)
244 244                              let newFp = getFarmingPowerByAcres(newAcresAmount)
245 245                              let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
246 246                              $Tuple2(([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakdTotalKey, (oldTotal - amount)), IntegerEntry(userFpKey, newFp), IntegerEntry(totalFarmingPowerKey, ((oldTotalFp - oldFp) + newFp)), ScriptTransfer(i.caller, amount, acresAssetId)] ++ prologActions), wlgResult)
247 247                              }
248 248                      }
249 249              }
250 250      }
251 251  
252 252  
253 253  
254 254  @Callable(i)
255 255  func stakeAcres () = {
256 256      let prologActions = prolog(i)
257 257      let address = toString(i.caller)
258 258      if ((size(i.payments) != 1))
259 259          then throw("exactly 1 payment must be attached")
260 260          else {
261 261              let pmt = i.payments[0]
262 262              let amt = pmt.amount
263 263              if (if (!(isDefined(pmt.assetId)))
264 264                  then true
265 265                  else (value(pmt.assetId) != acresAssetId))
266 266                  then throw("ACRES payments only!")
267 267                  else {
268 268                      let $t038353901 = stakeAcresInternal(amt, address)
269 269                      let actions = $t038353901._1
270 270                      let wlgClaimedAmount = $t038353901._2
271 271                      $Tuple2((actions ++ prologActions), wlgClaimedAmount)
272 272                      }
273 273              }
274 274      }
275 275  
276 276  
277 277  
278 278  @Callable(i)
279 279  func buyAcres () = {
280 280      let prologActions = prolog(i)
281 281      let address = toString(i.caller)
282 282      if ((size(i.payments) != 1))
283 283          then throw("exactly 1 payment must be attached")
284 284          else {
285 285              let pmt = i.payments[0]
286 286              let amt = pmt.amount
287 287              if (if (!(isDefined(pmt.assetId)))
288 288                  then true
289 289                  else (value(pmt.assetId) != wlgAssetId))
290 290                  then throw("WLGOLD payments only!")
291 291                  else if ((MULT8 > amt))
292 292                      then throw((("Min payment should be " + fixedPoint(MULT8, 8)) + " WLGOLD"))
293 293                      else {
294 -                         let acresAmount = (amt * WLG2ACRES_MULTIPLIER)
294 +                         let acresAmount = (amt / WLG2ACRES_DIVISOR)
295 295                          let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
296 296                          let req = invoke(oldAcresAddress, "requestAcresCallback", [acresAmount], nil)
297 297                          if ((req == req))
298 298                              then {
299 299                                  let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", nil, [AttachedPayment(wlgAssetId, amt)]))
300 300                                  $Tuple2(([ScriptTransfer(i.caller, acresAmount, acresAssetId)] ++ prologActions), wlgRemain)
301 301                                  }
302 302                              else throw("Strict value is not equal to itself.")
303 303                          }
304 304              }
305 305      }
306 306  
307 307  
308 308  
309 309  @Callable(i)
310 310  func convertOldStakes () = {
311 311      let address = toString(i.caller)
312 312      if ((size(i.payments) != 0))
313 313          then throw("No payments required")
314 314          else {
315 315              let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
316 316              let amount = valueOrElse(getInteger(oldAcresAddress, keyAcresStakedAmtByUser(address)), 0)
317 317              let gotAcres0 = if ((amount > 0))
318 318                  then asTuple2Ints(invoke(oldAcresAddress, "unstakeAcresCallback", [amount, address], nil))
319 319                  else $Tuple2(0, 0)
320 320              let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
321 321              let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
322 322              let landsResult = if (isDefined(landsStr))
323 323                  then {
324 324                      let lands = split_51C(value(landsStr), "_")
325 325                      func oneLand (acc,landAssetId) =                     if ((landAssetId == ""))
326 326                          then throw("landAssetId is required")
327 327                          else {
328 328                              let r = asTuple5Ints(invoke(oldStakingAddress, "unstakeLandCallback", [landAssetId, address], nil))
329 329                              $Tuple4((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4))
330 330                              }
331 331  
332 332                      let rr = {
333 333                          let $l = lands
334 334                          let $s = size($l)
335 335                          let $acc0 = $Tuple4(0, 0, 0, 0)
336 336                          func $f0_1 ($a,$i) =                         if (($i >= $s))
337 337                              then $a
338 338                              else oneLand($a, $l[$i])
339 339  
340 340                          func $f0_2 ($a,$i) =                         if (($i >= $s))
341 341                              then $a
342 342                              else throw("List size exceeds 100")
343 343  
344 344                          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
345 345                          }
346 346                      let finalize = invoke(oldStakingAddress, "unstakeLandsFinalizeCallback", [address], nil)
347 347                      if ((finalize == finalize))
348 348                          then {
349 349                              let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
350 350                              if ((req == req))
351 351                                  then {
352 352                                      let issue = Issue("FPOWER10", "FarmingPower +10% NFT for WavesLands game", 1, 0, false)
353 353                                      $Tuple5(rr._1, rr._2, rr._3, rr._4, [issue, ScriptTransfer(i.caller, 1, calculateAssetId(issue))])
354 354                                      }
355 355                                  else throw("Strict value is not equal to itself.")
356 356                              }
357 357                          else throw("Strict value is not equal to itself.")
358 358                      }
359 359                  else $Tuple5(0, 0, 0, 0, nil)
360 360              let duckAssetId = valueOrElse(getString(oldStakingAddress, keyStakedDuckByOwner(address)), "")
361 361              let duckResult = if ((duckAssetId != ""))
362 362                  then asTuple3Ints(invoke(oldStakingAddress, "unstakeDuckCallback", [duckAssetId, address], nil))
363 363                  else $Tuple3(0, 0, 0)
364 364              let x = stakeAcresInternal((((((((gotAcres0._1 + landsResult._1) + landsResult._2) + landsResult._3) + landsResult._4) + duckResult._1) + duckResult._2) + duckResult._3), address)
365 365              $Tuple2((landsResult._5 ++ x._1), x._2)
366 366              }
367 367      }
368 368  
369 369  
370 370  
371 371  @Callable(i)
372 372  func unstakeLandsREADONLY (address) = {
373 373      let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
374 374      let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
375 375      let landsResult = if (isDefined(landsStr))
376 376          then {
377 377              let lands = split_51C(value(landsStr), "_")
378 378              func oneLand (acc,landAssetId) =             if ((landAssetId == ""))
379 379                  then throw("landAssetId is required")
380 380                  else {
381 381                      let r = asTuple4Ints(invoke(oldStakingAddress, "unstakeLandREADONLY", [landAssetId, address], nil))
382 382                      $Tuple4((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4))
383 383                      }
384 384  
385 385              let $l = lands
386 386              let $s = size($l)
387 387              let $acc0 = $Tuple4(0, 0, 0, 0)
388 388              func $f0_1 ($a,$i) =             if (($i >= $s))
389 389                  then $a
390 390                  else oneLand($a, $l[$i])
391 391  
392 392              func $f0_2 ($a,$i) =             if (($i >= $s))
393 393                  then $a
394 394                  else throw("List size exceeds 100")
395 395  
396 396              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
397 397              }
398 398          else $Tuple4(0, 0, 0, 0)
399 399      $Tuple2(nil, landsResult)
400 400      }
401 401  
402 402

Old	New		Differences
5	5
6	6		let MULT8 = 100000000
7	7
8		-	let WLG2ACRES_~~MULTIPLIER~~ = 200
	8	+	let WLG2ACRES_DIVISOR = 200
9	9
10	10		let chain = take(drop(this.bytes, 1), 1)
11	11

291	291		else if ((MULT8 > amt))
292	292		then throw((("Min payment should be " + fixedPoint(MULT8, 8)) + " WLGOLD"))
293	293		else {
294		-	let acresAmount = (amt * WLG2ACRES_~~MULTIPLIER~~)
	294	+	let acresAmount = (amt / WLG2ACRES_DIVISOR)
295	295		let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
296	296		let req = invoke(oldAcresAddress, "requestAcresCallback", [acresAmount], nil)
297	297		if ((req == req))

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
6	6		let MULT8 = 100000000
7	7
8		-	let WLG2ACRES_~~MULTIPLIER~~ = 200
	8	+	let WLG2ACRES_DIVISOR = 200
9	9
10	10		let chain = take(drop(this.bytes, 1), 1)
11	11
12	12		let defaultRest2AddressStr = match chain {
13	13		case _ =>
14	14		if ((base58'2W' == $match0))
15	15		then "3PFwYta8biEz31zpeFe5DJK8wE5trSpQVF8"
16	16		else if ((base58'2T' == $match0))
17	17		then "3N7UuYar6264P58FBhVWKPQAh4Yua2hgngv"
18	18		else throw("Unknown chain")
19	19		}
20	20
21	21		let oldStakingContractStr = match chain {
22	22		case _ =>
23	23		if ((base58'2W' == $match0))
24	24		then "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1"
25	25		else if ((base58'2T' == $match0))
26	26		then "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm"
27	27		else throw("Unknown chain")
28	28		}
29	29
30	30		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
31	31
32	32
33	33		let IdxCfgAcres2Dapp = 1
34	34
35	35		let IdxCfgWlgDapp = 2
36	36
37	37		func keyRestCfg () = "%s__restConfig"
38	38
39	39
40	40		func keyRest2Address () = "%s__rest2Addr"
41	41
42	42
43	43		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
44	44
45	45
46	46		func getContractAddressOrFail (rest2Cfg,idx) = valueOrErrorMessage(addressFromString(rest2Cfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
47	47
48	48
49	49		let rest2Contract = addressFromStringValue(valueOrElse(getString(this, keyRest2Address()), defaultRest2AddressStr))
50	50
51	51		let rest2Cfg = readRestCfgOrFail(rest2Contract)
52	52
53	53		let acres2Contract = getContractAddressOrFail(rest2Cfg, IdxCfgAcres2Dapp)
54	54
55	55		let wlgContract = getContractAddressOrFail(rest2Cfg, IdxCfgWlgDapp)
56	56
57	57		let oldAcresContractKey = "oldAcresContract"
58	58
59	59		func keyBlocked () = "contractsBlocked"
60	60
61	61
62	62		func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
63	63
64	64
65	65		let wlgAssetIdKey = "wlg_assetId"
66	66
67	67		let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
68	68
69	69		let acresIssuedAmountKey = "acresIssuedAmount"
70	70
71	71		let acresAssetIdKey = "acresAssetId"
72	72
73	73		let acresAssetId = valueOrErrorMessage(getBinary(acres2Contract, acresAssetIdKey), "ACRES is not issued yet")
74	74
75	75		func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
76	76
77	77
78	78		func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
79	79
80	80
81	81		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
82	82
83	83
84	84		func asInt (v) = match v {
85	85		case n: Int =>
86	86		n
87	87		case _ =>
88	88		throw("fail to cast into Int")
89	89		}
90	90
91	91
92	92		func asTuple5Ints (val) = match val {
93	93		case t: (Int, Int, Int, Int, Int) =>
94	94		t
95	95		case _ =>
96	96		throw("fail to cast into (Int, Int, Int, Int, Int)")
97	97		}
98	98
99	99
100	100		func asTuple4Ints (val) = match val {
101	101		case t: (Int, Int, Int, Int) =>
102	102		t
103	103		case _ =>
104	104		throw("fail to cast into (Int, Int, Int, Int)")
105	105		}
106	106
107	107
108	108		func asTuple3Ints (val) = match val {
109	109		case t: (Int, Int, Int) =>
110	110		t
111	111		case _ =>
112	112		throw("fail to cast into (Int, Int, Int)")
113	113		}
114	114
115	115
116	116		func asTuple2Ints (val) = match val {
117	117		case t: (Int, Int) =>
118	118		t
119	119		case _ =>
120	120		throw("fail to cast into (Int, Int)")
121	121		}
122	122
123	123
124	124		func fixedPoint (val,decimals) = {
125	125		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
126	126		let lowPart = toString((val % tenPow))
127	127		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
128	128		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
129	129		}
130	130
131	131
132	132		let M8_ = 100000000
133	133
134	134		func keyAcresStakedAmtByUser (addr) = ("acresStakedAmountByUser_" + addr)
135	135
136	136
137	137		func keyFarmingPowerByUser (addr) = ("farmingPowerByUser_" + addr)
138	138
139	139
140	140		let acresStakdTotalKey = "acresStakedAmountTotal"
141	141
142	142		let totalFarmingPowerKey = "totalFarmingPower"
143	143
144	144		let levels = [10, 20, 40, 80, 150, 250, 400, 700, 1000]
145	145
146	146		func getLevelByAcres (acres) = {
147	147		let acr = (acres / M8_)
148	148		func checker (acc,item) = if ((item > acr))
149	149		then acc
150	150		else (acc + 1)
151	151
152	152		let idx = {
153	153		let $l = levels
154	154		let $s = size($l)
155	155		let $acc0 = 0
156	156		func $f0_1 ($a,$i) = if (($i >= $s))
157	157		then $a
158	158		else checker($a, $l[$i])
159	159
160	160		func $f0_2 ($a,$i) = if (($i >= $s))
161	161		then $a
162	162		else throw("List size exceeds 10")
163	163
164	164		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
165	165		}
166	166		(idx + 1)
167	167		}
168	168
169	169
170	170		func getFarmingPowerByAcres (acres) = ((acres * 20) * (getLevelByAcres(acres) + 4))
171	171
172	172
173	173		func prolog (i) = if (if ((i.originCaller != rest2Contract))
174	174		then valueOrElse(getBoolean(keyBlocked()), false)
175	175		else false)
176	176		then throw("Contracts are under maintenance")
177	177		else [StringEntry(keyLastTxIdByUser(toString(i.originCaller)), toBase58String(i.transactionId))]
178	178
179	179
180	180		func stakeAcresInternal (amt,address) = {
181	181		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
182	182		if ((wlgResult == wlgResult))
183	183		then {
184	184		let now = lastBlock.timestamp
185	185		let timeKey = keyAcresStakedTimeByUser(address)
186	186		let amountKey = keyAcresStakedAmtByUser(address)
187	187		let newAcresAmount = (valueOrElse(getInteger(amountKey), 0) + amt)
188	188		let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
189	189		let userFpKey = keyFarmingPowerByUser(address)
190	190		let oldFp = valueOrElse(getInteger(userFpKey), 0)
191	191		let newFp = getFarmingPowerByAcres(newAcresAmount)
192	192		let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
193	193		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt)), IntegerEntry(userFpKey, newFp), IntegerEntry(totalFarmingPowerKey, ((oldTotalFp - oldFp) + newFp))], wlgResult)
194	194		}
195	195		else throw("Strict value is not equal to itself.")
196	196		}
197	197
198	198
199	199		@Callable(i)
200	200		func constructorV1 (rest2Addr,oldAcrContract) = if ((i.caller != this))
201	201		then throw("Permission denied")
202	202		else {
203	203		let oldAcrContAddr = addressFromStringValue(oldAcrContract)
204	204		[IntegerEntry(acresIssuedAmountKey, getIntegerValue(oldAcrContAddr, acresIssuedAmountKey)), BinaryEntry(acresAssetIdKey, getBinaryValue(oldAcrContAddr, acresAssetIdKey)), StringEntry(keyRest2Address(), rest2Addr), StringEntry(oldAcresContractKey, oldAcrContract)]
205	205		}
206	206
207	207
208	208
209	209		@Callable(i)
210	210		func saveInteger (key,amount) = if ((i.caller != this))
211	211		then throw("saveInteger is not public method")
212	212		else [IntegerEntry(key, amount)]
213	213
214	214
215	215
216	216		@Callable(i)
217	217		func setBlocked (isBlocked) = if ((i.caller != this))
218	218		then throw("permission denied")
219	219		else [BooleanEntry(keyBlocked(), isBlocked)]
220	220
221	221
222	222
223	223		@Callable(i)
224	224		func unstakeAcres (amount) = {
225	225		let prologActions = prolog(i)
226	226		if ((0 >= amount))
227	227		then throw("Amount should be positive")
228	228		else {
229	229		let address = toString(i.caller)
230	230		if ((size(i.payments) != 0))
231	231		then throw("No payments required")
232	232		else {
233	233		let timeKey = keyAcresStakedTimeByUser(address)
234	234		let amountKey = keyAcresStakedAmtByUser(address)
235	235		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
236	236		if ((amount > oldAcresAmount))
237	237		then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
238	238		else {
239	239		let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
240	240		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
241	241		let newAcresAmount = (oldAcresAmount - amount)
242	242		let userFpKey = keyFarmingPowerByUser(address)
243	243		let oldFp = valueOrElse(getInteger(userFpKey), 0)
244	244		let newFp = getFarmingPowerByAcres(newAcresAmount)
245	245		let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
246	246		$Tuple2(([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakdTotalKey, (oldTotal - amount)), IntegerEntry(userFpKey, newFp), IntegerEntry(totalFarmingPowerKey, ((oldTotalFp - oldFp) + newFp)), ScriptTransfer(i.caller, amount, acresAssetId)] ++ prologActions), wlgResult)
247	247		}
248	248		}
249	249		}
250	250		}
251	251
252	252
253	253
254	254		@Callable(i)
255	255		func stakeAcres () = {
256	256		let prologActions = prolog(i)
257	257		let address = toString(i.caller)
258	258		if ((size(i.payments) != 1))
259	259		then throw("exactly 1 payment must be attached")
260	260		else {
261	261		let pmt = i.payments[0]
262	262		let amt = pmt.amount
263	263		if (if (!(isDefined(pmt.assetId)))
264	264		then true
265	265		else (value(pmt.assetId) != acresAssetId))
266	266		then throw("ACRES payments only!")
267	267		else {
268	268		let $t038353901 = stakeAcresInternal(amt, address)
269	269		let actions = $t038353901._1
270	270		let wlgClaimedAmount = $t038353901._2
271	271		$Tuple2((actions ++ prologActions), wlgClaimedAmount)
272	272		}
273	273		}
274	274		}
275	275
276	276
277	277
278	278		@Callable(i)
279	279		func buyAcres () = {
280	280		let prologActions = prolog(i)
281	281		let address = toString(i.caller)
282	282		if ((size(i.payments) != 1))
283	283		then throw("exactly 1 payment must be attached")
284	284		else {
285	285		let pmt = i.payments[0]
286	286		let amt = pmt.amount
287	287		if (if (!(isDefined(pmt.assetId)))
288	288		then true
289	289		else (value(pmt.assetId) != wlgAssetId))
290	290		then throw("WLGOLD payments only!")
291	291		else if ((MULT8 > amt))
292	292		then throw((("Min payment should be " + fixedPoint(MULT8, 8)) + " WLGOLD"))
293	293		else {
294		-	let acresAmount = (amt * WLG2ACRES_~~MULTIPLIER~~)
	294	+	let acresAmount = (amt / WLG2ACRES_DIVISOR)
295	295		let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
296	296		let req = invoke(oldAcresAddress, "requestAcresCallback", [acresAmount], nil)
297	297		if ((req == req))
298	298		then {
299	299		let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", nil, [AttachedPayment(wlgAssetId, amt)]))
300	300		$Tuple2(([ScriptTransfer(i.caller, acresAmount, acresAssetId)] ++ prologActions), wlgRemain)
301	301		}
302	302		else throw("Strict value is not equal to itself.")
303	303		}
304	304		}
305	305		}
306	306
307	307
308	308
309	309		@Callable(i)
310	310		func convertOldStakes () = {
311	311		let address = toString(i.caller)
312	312		if ((size(i.payments) != 0))
313	313		then throw("No payments required")
314	314		else {
315	315		let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
316	316		let amount = valueOrElse(getInteger(oldAcresAddress, keyAcresStakedAmtByUser(address)), 0)
317	317		let gotAcres0 = if ((amount > 0))
318	318		then asTuple2Ints(invoke(oldAcresAddress, "unstakeAcresCallback", [amount, address], nil))
319	319		else $Tuple2(0, 0)
320	320		let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
321	321		let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
322	322		let landsResult = if (isDefined(landsStr))
323	323		then {
324	324		let lands = split_51C(value(landsStr), "_")
325	325		func oneLand (acc,landAssetId) = if ((landAssetId == ""))
326	326		then throw("landAssetId is required")
327	327		else {
328	328		let r = asTuple5Ints(invoke(oldStakingAddress, "unstakeLandCallback", [landAssetId, address], nil))
329	329		$Tuple4((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4))
330	330		}
331	331
332	332		let rr = {
333	333		let $l = lands
334	334		let $s = size($l)
335	335		let $acc0 = $Tuple4(0, 0, 0, 0)
336	336		func $f0_1 ($a,$i) = if (($i >= $s))
337	337		then $a
338	338		else oneLand($a, $l[$i])
339	339
340	340		func $f0_2 ($a,$i) = if (($i >= $s))
341	341		then $a
342	342		else throw("List size exceeds 100")
343	343
344	344		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
345	345		}
346	346		let finalize = invoke(oldStakingAddress, "unstakeLandsFinalizeCallback", [address], nil)
347	347		if ((finalize == finalize))
348	348		then {
349	349		let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
350	350		if ((req == req))
351	351		then {
352	352		let issue = Issue("FPOWER10", "FarmingPower +10% NFT for WavesLands game", 1, 0, false)
353	353		$Tuple5(rr._1, rr._2, rr._3, rr._4, [issue, ScriptTransfer(i.caller, 1, calculateAssetId(issue))])
354	354		}
355	355		else throw("Strict value is not equal to itself.")
356	356		}
357	357		else throw("Strict value is not equal to itself.")
358	358		}
359	359		else $Tuple5(0, 0, 0, 0, nil)
360	360		let duckAssetId = valueOrElse(getString(oldStakingAddress, keyStakedDuckByOwner(address)), "")
361	361		let duckResult = if ((duckAssetId != ""))
362	362		then asTuple3Ints(invoke(oldStakingAddress, "unstakeDuckCallback", [duckAssetId, address], nil))
363	363		else $Tuple3(0, 0, 0)
364	364		let x = stakeAcresInternal((((((((gotAcres0._1 + landsResult._1) + landsResult._2) + landsResult._3) + landsResult._4) + duckResult._1) + duckResult._2) + duckResult._3), address)
365	365		$Tuple2((landsResult._5 ++ x._1), x._2)
366	366		}
367	367		}
368	368
369	369
370	370
371	371		@Callable(i)
372	372		func unstakeLandsREADONLY (address) = {
373	373		let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
374	374		let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
375	375		let landsResult = if (isDefined(landsStr))
376	376		then {
377	377		let lands = split_51C(value(landsStr), "_")
378	378		func oneLand (acc,landAssetId) = if ((landAssetId == ""))
379	379		then throw("landAssetId is required")
380	380		else {
381	381		let r = asTuple4Ints(invoke(oldStakingAddress, "unstakeLandREADONLY", [landAssetId, address], nil))
382	382		$Tuple4((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4))
383	383		}
384	384
385	385		let $l = lands
386	386		let $s = size($l)
387	387		let $acc0 = $Tuple4(0, 0, 0, 0)
388	388		func $f0_1 ($a,$i) = if (($i >= $s))
389	389		then $a
390	390		else oneLand($a, $l[$i])
391	391
392	392		func $f0_2 ($a,$i) = if (($i >= $s))
393	393		then $a
394	394		else throw("List size exceeds 100")
395	395
396	396		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
397	397		}
398	398		else $Tuple4(0, 0, 0, 0)
399	399		$Tuple2(nil, landsResult)
400	400		}
401	401
402	402

github/deemru/w8io/169f3d6 
45.33 ms ◑