tx · RyChEmEcJRAFXuTxqNJ7ijmhFb6RFCihta3D2iLDxRg

3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh:  -0.00700000 Waves

2024.09.01 21:11 [3264838] smart account 3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "RyChEmEcJRAFXuTxqNJ7ijmhFb6RFCihta3D2iLDxRg",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1725214390405,
    "version": 2,
    "chainId": 84,
    "sender": "3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh",
    "senderPublicKey": "3QtfC1XbLZXdeawMDeSERy9vvjUmj1XYd2GFmrvx7pWQ",
    "proofs": [
        "3AfdHCzYDW18JbUC8uins3vB7rsTGJf3HTnuKd8ieM4DxzPY9gKqsmUamaYRyPWTynkf6kfPzo2cZm2KjwYdT61i"
    ],
    "script": "base64:BgIiCAISAwoBCBIECgIIARIDCgEEEgMKAQESABIAEgASAwoBCB0AA1NFUAICX18ABU1VTFQ2AMCEPQAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIFM1AuLi4DCQAAAgEBVAUHJG1hdGNoMAIFM00uLi4JAAIBAg1Vbmtub3duIGNoYWluAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAAPSWR4Q2ZnQWNyZXNEYXBwAAEADUlkeENmZ1dsZ0RhcHAAAgEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ9JZHhDZmdBY3Jlc0RhcHAAC3dsZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUNSWR4Q2ZnV2xnRGFwcAEKa2V5QmxvY2tlZAACEGNvbnRyYWN0c0Jsb2NrZWQBEWtleUxhc3RUeElkQnlVc2VyAQRhZGRyCQCsAgICD2xhc3RUeElkQnlVc2VyXwUEYWRkcgAPYWNyZXNBc3NldElkS2V5AgxhY3Jlc0Fzc2V0SWQADGFjcmVzQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFD3N0YWtpbmdDb250cmFjdAUPYWNyZXNBc3NldElkS2V5AhdBQ1JFUyBpcyBub3QgaXNzdWVkIHlldAEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQRhZGRyCQCsAgICFmFjcmVzU3Rha2VkVGltZUJ5VXNlcl8FBGFkZHIBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0ARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhhhY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcl8FBGFkZHIBGmtleUFjcmVzTG9ja2VkQW1vdW50QnlVc2VyAQRhZGRyCQCsAgICGGFjcmVzTG9ja2VkQW1vdW50QnlVc2VyXwUEYWRkcgEXa2V5QWNyZXNMb2NrZWRFdGFCeVVzZXIBBGFkZHIJAKwCAgIVYWNyZXNMb2NrZWRFdGFCeVVzZXJfBQRhZGRyABNhY3Jlc1N0YWtlZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsAQZwcm9sb2cBAWkDAwkBAiE9AggFAWkMb3JpZ2luQ2FsbGVyBQxyZXN0Q29udHJhY3QJAQt2YWx1ZU9yRWxzZQIJAKAIAQkBCmtleUJsb2NrZWQABwcJAAIBAh9Db250cmFjdHMgYXJlIHVuZGVyIG1haW50ZW5hbmNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlMYXN0VHhJZEJ5VXNlcgEJAKUIAQgFAWkMb3JpZ2luQ2FsbGVyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQFA25pbAESY2xhaW1BY3Jlc0ludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lACoBDWNsYWltSW50ZXJuYWwDBGFkZHILYWNyZXNBbW91bnQNbGFzdENsYWltVGltZQQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFDWxhc3RDbGFpbVRpbWUDCQBmAgAABQlkZWx0YVRpbWUJAAIBCQCsAgIJAKwCAgkArAICAiZTYXZlZCB0aW1lc3RhbXAgaXMgaW4gZnV0dXJlLCBzYXZlZCA9IAkApAMBBQ1sYXN0Q2xhaW1UaW1lAgwsIGN1cnJlbnQgPSAJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAAKggBaQENY29uc3RydWN0b3JWMQEIcmVzdEFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBC3NhdmVJbnRlZ2VyAgNrZXkGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIgc2F2ZUludGVnZXIgaXMgbm90IHB1YmxpYyBtZXRob2QJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUGYW1vdW50BQNuaWwBaQEKc2V0QmxvY2tlZAEJaXNCbG9ja2VkAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRcGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBDEJvb2xlYW5FbnRyeQIJAQprZXlCbG9ja2VkAAUJaXNCbG9ja2VkBQNuaWwBaQEMdW5zdGFrZUFjcmVzAQZhbW91bnQEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwEFAWkDCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQDCQBnAgAABQZhbW91bnQJAAIBAhlBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAMJAGYCBQZhbW91bnQFDm9sZEFjcmVzQW1vdW50CQACAQkArAICCQCsAgIJAKwCAgIOWW91IGhhdmUgb25seSAJAQpmaXhlZFBvaW50AgUOb2xkQWNyZXNBbW91bnQACAIgIEFDUkVTIHN0YWtlZCwgdHJpZWQgdG8gdW5zdGFrZSAJAQpmaXhlZFBvaW50AgUGYW1vdW50AAgEDGxvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEaa2V5QWNyZXNMb2NrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzAAAECWxvY2tlZEVUQQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEXa2V5QWNyZXNMb2NrZWRFdGFCeVVzZXIBBQdhZGRyZXNzAAAEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAEEHVuc3Rha2FibGVBbW91bnQJAGUCBQ5vbGRBY3Jlc0Ftb3VudAUMbG9ja2VkQW1vdW50AwMJAGYCBQlsb2NrZWRFVEEFA25vdwkAZgIFBmFtb3VudAUQdW5zdGFrYWJsZUFtb3VudAcJAAIBCQCsAgIJAKwCAgkArAICAgVPbmx5IAkBCmZpeGVkUG9pbnQCBRB1bnN0YWthYmxlQW1vdW50AAgCJyBBQ1JFUyBjYW4gYmUgdW5zdGFrZWQgbm93LCB3YWl0IHVudGlsIAkApAMBBQlsb2NrZWRFVEEECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwEDGNsYWltZWRBY3JlcwkBDWNsYWltSW50ZXJuYWwDBQdhZGRyZXNzBQ5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZQIFDm9sZEFjcmVzQW1vdW50BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFE2FjcmVzU3Rha2VkVG90YWxLZXkJAGUCBQhvbGRUb3RhbAUGYW1vdW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZAIFBmFtb3VudAUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpzdGFrZUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAQUBaQMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFDGFjcmVzQXNzZXRJZAkAAgECFEFDUkVTIHBheW1lbnRzIG9ubHkhBAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAMJAAACBQl3bGdSZXN1bHQFCXdsZ1Jlc3VsdAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECG9sZFRvdGFsCQELdmFsdWVPckVsc2UCCQCfCAEFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDNCAIJAM0IAgkAzQgCAwkAAAIFDGNsYWltZWRBY3JlcwAABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGQCBQ5vbGRBY3Jlc0Ftb3VudAUDYW10CQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZAIFCG9sZFRvdGFsBQNhbXQJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYnV5QWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cBBQFpAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUNgAGAgUgVVNEVAkAlAoCBQNuaWwFDHByb2xvZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpjbGFpbUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAQUBaQMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwULYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARJjbGFpbUFjcmVzUkVBRE9OTFkBB2FkZHJlc3MEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAEDGNsYWltZWRBY3JlcwkBEmNsYWltQWNyZXNJbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50BQhsYXN0VGltZQkAlAoCBQNuaWwJAMwIAgUMY2xhaW1lZEFjcmVzCQDMCAIFCGxhc3RUaW1lBQNuaWwAbFW8QQ==",
    "height": 3264838,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: 62zA3erjkHtszfmhDVFqw3m4MmgxT4B1gYLGR9nZd6w5

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 6 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let SEP = "__"
5+
6+let MULT6 = 1000000
7+
8+let chain = take(drop(this.bytes, 1), 1)
9+
10+let usdtAssetId = match chain {
11+    case _ => 
12+        if ((base58'2W' == $match0))
13+            then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
14+            else if ((base58'2T' == $match0))
15+                then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
16+                else throw("Unknown chain")
17+}
18+
19+let defaultRestAddressStr = match chain {
20+    case _ => 
21+        if ((base58'2W' == $match0))
22+            then "3P..."
23+            else if ((base58'2T' == $match0))
24+                then "3M..."
25+                else throw("Unknown chain")
26+}
27+
28+func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
29+
30+
31+let IdxCfgAcresDapp = 1
32+
33+let IdxCfgWlgDapp = 2
34+
35+func keyRestCfg () = "%s__restConfig"
36+
37+
38+func keyRestAddress () = "%s__restAddr"
39+
40+
41+func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
42+
43+
44+func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
45+
46+
47+let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
48+
49+let restCfg = readRestCfgOrFail(restContract)
50+
51+let stakingContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
52+
53+let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
54+
55+func keyBlocked () = "contractsBlocked"
56+
57+
58+func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
59+
60+
61+let acresAssetIdKey = "acresAssetId"
62+
63+let acresAssetId = valueOrErrorMessage(getBinary(stakingContract, acresAssetIdKey), "ACRES is not issued yet")
64+
65+func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
66+
67+
68+func fixedPoint (val,decimals) = {
69+    let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
70+    let lowPart = toString((val % tenPow))
71+    let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
72+    (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
73+    }
74+
75+
76+func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
77+
78+
79+func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
80+
81+
82+func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
83+
84+
85+let acresStakedTotalKey = "acresStakedAmountTotal"
86+
87+func prolog (i) = if (if ((i.originCaller != restContract))
88+    then valueOrElse(getBoolean(keyBlocked()), false)
89+    else false)
90+    then throw("Contracts are under maintenance")
91+    else [StringEntry(keyLastTxIdByUser(toString(i.originCaller)), toBase58String(i.transactionId))]
92+
93+
94+func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
95+    let deltaTime = (lastBlock.timestamp - lastClaimTime)
96+    42
97+    }
98+
99+
100+func claimInternal (addr,acresAmount,lastClaimTime) = {
101+    let deltaTime = (lastBlock.timestamp - lastClaimTime)
102+    if ((0 > deltaTime))
103+        then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
104+        else 42
105+    }
106+
107+
108+@Callable(i)
109+func constructorV1 (restAddr) = if ((i.caller != this))
110+    then throw("Permission denied")
111+    else [StringEntry(keyRestAddress(), restAddr)]
112+
113+
114+
115+@Callable(i)
116+func saveInteger (key,amount) = if ((i.caller != this))
117+    then throw("saveInteger is not public method")
118+    else [IntegerEntry(key, amount)]
119+
120+
121+
122+@Callable(i)
123+func setBlocked (isBlocked) = if ((i.caller != this))
124+    then throw("permission denied")
125+    else [BooleanEntry(keyBlocked(), isBlocked)]
126+
127+
128+
129+@Callable(i)
130+func unstakeAcres (amount) = {
131+    let prologResult = prolog(i)
132+    if ((prologResult == prologResult))
133+        then if ((0 >= amount))
134+            then throw("Amount should be positive")
135+            else {
136+                let address = toString(i.caller)
137+                if ((size(i.payments) != 0))
138+                    then throw("No payments required")
139+                    else {
140+                        let timeKey = keyAcresStakedTimeByUser(address)
141+                        let amountKey = keyAcresStakedAmountByUser(address)
142+                        let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
143+                        if ((amount > oldAcresAmount))
144+                            then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
145+                            else {
146+                                let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
147+                                let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
148+                                let now = lastBlock.timestamp
149+                                let unstakableAmount = (oldAcresAmount - lockedAmount)
150+                                if (if ((lockedETA > now))
151+                                    then (amount > unstakableAmount)
152+                                    else false)
153+                                    then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
154+                                    else {
155+                                        let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
156+                                        let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
157+                                        let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
158+                                        $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
159+                                        }
160+                                }
161+                        }
162+                }
163+        else throw("Strict value is not equal to itself.")
164+    }
165+
166+
167+
168+@Callable(i)
169+func stakeAcres () = {
170+    let prologResult = prolog(i)
171+    if ((prologResult == prologResult))
172+        then {
173+            let address = toString(i.caller)
174+            if ((size(i.payments) != 1))
175+                then throw("exactly 1 payment must be attached")
176+                else {
177+                    let pmt = i.payments[0]
178+                    let amt = pmt.amount
179+                    if (if (!(isDefined(pmt.assetId)))
180+                        then true
181+                        else (value(pmt.assetId) != acresAssetId))
182+                        then throw("ACRES payments only!")
183+                        else {
184+                            let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
185+                            if ((wlgResult == wlgResult))
186+                                then {
187+                                    let now = lastBlock.timestamp
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 claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
193+                                    $Tuple2(((((if ((claimedAcres == 0))
194+                                        then nil
195+                                        else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
196+                                    }
197+                                else throw("Strict value is not equal to itself.")
198+                            }
199+                    }
200+            }
201+        else throw("Strict value is not equal to itself.")
202+    }
203+
204+
205+
206+@Callable(i)
207+func buyAcres () = {
208+    let prologResult = prolog(i)
209+    if ((prologResult == prologResult))
210+        then {
211+            let address = toString(i.caller)
212+            if ((size(i.payments) != 1))
213+                then throw("exactly 1 payment must be attached")
214+                else {
215+                    let pmt = i.payments[0]
216+                    let amt = pmt.amount
217+                    if (if (!(isDefined(pmt.assetId)))
218+                        then true
219+                        else (value(pmt.assetId) != usdtAssetId))
220+                        then throw("USDT payments only!")
221+                        else if ((MULT6 > amt))
222+                            then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
223+                            else $Tuple2(nil, prologResult)
224+                    }
225+            }
226+        else throw("Strict value is not equal to itself.")
227+    }
228+
229+
230+
231+@Callable(i)
232+func claimAcres () = {
233+    let prologResult = prolog(i)
234+    if ((prologResult == prologResult))
235+        then {
236+            let address = toString(i.caller)
237+            if ((size(i.payments) != 0))
238+                then throw("No payments required")
239+                else {
240+                    let timeKey = keyAcresStakedTimeByUser(address)
241+                    let amountKey = keyAcresStakedAmountByUser(address)
242+                    let acresAmount = valueOrElse(getInteger(amountKey), 0)
243+                    let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
244+                    let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
245+                    $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
246+                    }
247+            }
248+        else throw("Strict value is not equal to itself.")
249+    }
250+
251+
252+
253+@Callable(i)
254+func claimAcresREADONLY (address) = {
255+    let timeKey = keyAcresStakedTimeByUser(address)
256+    let amountKey = keyAcresStakedAmountByUser(address)
257+    let acresAmount = valueOrElse(getInteger(amountKey), 0)
258+    let lastTime = valueOrElse(getInteger(timeKey), 0)
259+    let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
260+    $Tuple2(nil, [claimedAcres, lastTime])
261+    }
262+
263+
github/deemru/w8io/026f985 
20.11 ms ◑