w8 · tx · FQm···LbD

tx · FQmE36qNwo3eacM5XEnJRiL3NK8U3FRYCrnBo23SdLbD

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.01400000 Waves

2023.11.19 21:55 [2850660] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FQmE36qNwo3eacM5XEnJRiL3NK8U3FRYCrnBo23SdLbD",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1700420183450,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "3G7LENruAbswpH9UvZYoHD7eYgHnbarwLd4jxZDEfrAa7xtbjPNkFGGXTcAniWbJ9KawXz594z7jk2uMfXDbk8fJ"
    ],
    "script": "base64:BgIsCAISBAoCCAESABIDCgEBEgASABIECgIIARIFCgMIAQESAwoBARIAEgMKAQg1AAhNSUxMSU9ONgCAgOmDsd4WAAlEQVlNSUxMSVMAgLiZKQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhhhY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcl8FBGFkZHIBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQRhZGRyCQCsAgICFWFjcmVzTG9ja2VkRXRhQnlVc2VyXwUEYWRkcgATYWNyZXNTdGFrZWRUb3RhbEtleQIWYWNyZXNTdGFrZWRBbW91bnRUb3RhbAAKeHBOZXdTTGFuZADAlrECAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAAoABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2R0QXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEghNp6sggDP07Ru8qO7ouTvMmC3Qtd+geWqNQj+agP/7kDCQAAAgEBVAUHJG1hdGNoMAEgVbHYn3KHgu/l41uNrAWrZd6aQ6EvFrsF8xq3h6XxxRgJAAIBAg1Vbmtub3duIGNoYWluABVkZWZhdWx0UmVzdEFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQUUN1dkZidmg0TGtQVW5yblUxejNqbmJBMXA5bTNXTmh2AwkAAAIBAVQFByRtYXRjaDACIzNNdW1rR0d6dENLQVhwV0RxeGtkZG9mcVhTVWJxUWt2U0p5CQACAQINVW5rbm93biBjaGFpbgADU0VQAgJfXwAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgANSWR4Q2ZnV2xnRGFwcAAEAA9JZHhDZmdBY3Jlc0RhcHAACAEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPZWNvbm9teUNvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnRWNvbm9teURhcHAAC3dsZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUNSWR4Q2ZnV2xnRGFwcAANYWNyZXNDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFD0lkeENmZ0FjcmVzRGFwcAAUYWNyZXNJc3N1ZWRBbW91bnRLZXkCEWFjcmVzSXNzdWVkQW1vdW50AA9hY3Jlc0Fzc2V0SWRLZXkCDGFjcmVzQXNzZXRJZAAMYWNyZXNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJwIAgUNYWNyZXNDb250cmFjdAUPYWNyZXNBc3NldElkS2V5AhdBQ1JFUyBpcyBub3QgaXNzdWVkIHlldAEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQRhZGRyCQCsAgICFmFjcmVzU3Rha2VkVGltZUJ5VXNlcl8FBGFkZHIAC0lkeEVmZlRvdGFsAAABEWtleVJlc1Byb3BvcnRpb25zAAITcmVzVHlwZXNQcm9wb3J0aW9ucwEWa2V5U3Rha2VkUGllY2VzQnlPd25lcgEJb3duZXJBZGRyCQCsAgICFHN0YWtlZFBpZWNlc0J5T3duZXJfBQlvd25lckFkZHIBBWFzSW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACA0ludAQBbgUHJG1hdGNoMAUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEOYXNUd29JbnRzVHVwbGUBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACCihJbnQsIEludCkEAnQyBQckbWF0Y2gwBQJ0MgkAAgECHGZhaWwgdG8gY2FzdCBpbnRvIChJbnQsIEludCkBDmdldFZvdGluZ1Bvd2VyARJ1c2VyQWRkclN0ck9yRW1wdHkEBXByb3BzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAIBXwoBBWFkZGVyAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAp0b3RhbFBvd2VyCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlcnNQb3dlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AQRwYWRMAgN2YWwDbGVuBAR2YWxTCQCkAwEFA3ZhbAQGemVyb2VzCQCwAgIJAKQDAQkAbAYACgAACQBlAgUDbGVuCQCxAgEFBHZhbFMAAAAABQRET1dOAAEJAKwCAgUGemVyb2VzBQR2YWxTAB1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwCAreIEAAxCTEFDS0xJU1RFRDEC3wYzUDJOR1g0UTVuZ2UxTUNhdXdRVzVhcVlMZGtjY1NHajFFcF8zUDJ4RkFIVzl5aHlOb2hZb3pXZDRIRmhFWFp1M2JzTlNvUl8zUDJ5S2FaMmd2bjlYZTV0dGk4MWE3UDlMWmhIZ2p2VG9WOV8zUDM3elEzY2YyZWN1NTVSbUpxRWlHU2l2ZHpOOWF2dDNtOV8zUDRhejZkdHpzdkdDV0ZBeGE5NFVkZXZLelh5RXd4RWlGR18zUDRrWlU2WDNUVExGY1NVZTU1SlN5OEJ5U3FpdGNQZ01Cel8zUDVoQ3hCRWgzTmdOaXpaaE5CcmV5QlNxdGJoSllMa0tQRF8zUDdITHZ1Y3kxMXl4eU1KVXdqelhGSEhLTUVEd2kxRXdmQ18zUDhKdWFxSDlQVFFBdjhENUhCR2dRZkthdUxUWXQyTlFmdF8zUDlnVERCNHJ0REVWYnBYM2FzVTYzSDRaaW5oMkVuVG1aRV8zUDlpTjNxcnRmSmljVVZ5N2FtWmVWc2V0VkQzdlVNazhiZV8zUENhMkJzQWE2SkJMaXJzelFmVjVyOWZKcnVqZmh3dHdmUF8zUEQzaTRYTjhLdHlnY0Z4NHJ5NU03VUdxZGZIOFZZdnRSVF8zUERFTW5uSk5jMmt4OWNQRW12VnZoWFVyOFN2aEFOS2hzYV8zUERHRTl0S1FpemFlWkZlRERxNWFZU3Y4OW53WWJmaXJwWl8zUERNS1FUQ3JVUFpFQ1ZYRUpKOG0xc0h0dXRTdTFuYVNmMV8zUEdoMlF1Nll2eDhHVENSUlZOdkJVVlpMZGFpZFlTYXhvNV8zUEtrbUF0YlNLNUQyaFFkbzFSZkVnOGVYeU1iRGNSVWM5Ml8zUExNbmJ4enNzUDhXOEU4WGpKMVJMQkJnOFVaTDhDejNQMl8zUE11eG80UENBb3g5czRhN1IxZXN6aDRpcXF1OGdTN2pIdl8zUE5yTXRFUUNodzg3V1pVMUpBSjdhR0h5a0NhOFRqbkROS18zUFB1QlhmV29CeTNFRW9yeTdjN3ZnaTlVc2prYTdvNXRCal8zUFF3eWV5RWhUNFk2YUdBTDZ0ZzczYVFXSnRWMXpSdDNuUl8zUFJHRFNodU1HYjg0TUp0VEp2dFRnOHFEZnN3a1lXY20zZQANUFJPTU8xX0FNT1VOVADCra8CABdQUk9NT18yX1NUQVJUX1RJTUVTVEFNUAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMACA8LT5vjEDCQAAAgEBVAUHJG1hdGNoMACA59DHvjEJAAIBAg1Vbmtub3duIGNoYWluABVQUk9NT18yX0VORF9USU1FU1RBTVAEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDAA/7/N8MAxAwkAAAIBAVQFByRtYXRjaDAAgIjX674xCQACAQINVW5rbm93biBjaGFpbgAMcHJvbW8yTWFwS2V5Aglwcm9tbzJNYXABE2lzQmxhY2tsaXN0ZWRQcm9tbzEBBGFkZHIJAQhjb250YWlucwIFDEJMQUNLTElTVEVEMQUEYWRkcgEGcHJvbG9nAAkBBWFzSW50AQkA/QcEBQ9zdGFraW5nQ29udHJhY3QCCnNhdmVMYXN0VHgFA25pbAUDbmlsARJjbGFpbUFjcmVzSW50ZXJuYWwDBGFkZHILYWNyZXNBbW91bnQNbGFzdENsYWltVGltZQQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFDWxhc3RDbGFpbVRpbWUECGF2YWlsUmVzCQBrAwUJZGVsdGFUaW1lCQBoAgUPREFJTFlSRVNCWVBJRUNFBQthY3Jlc0Ftb3VudAkAaAIFCURBWU1JTExJUwUFTVVMVDgECmNhbkdldFVzZHQJAQVhc0ludAEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhpzZWxsUmVzb3VyY2VzV29ybGRSRUFET05MWQkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwEB2dvdFVzZHQJAJYDAQkAzAgCAAAJAMwIAgUKY2FuR2V0VXNkdAUDbmlsCQBoAgUHZ290VXNkdAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAQ1jbGFpbUludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lAwkAZgIAAAUJZGVsdGFUaW1lCQACAQkArAICCQCsAgIJAKwCAgImU2F2ZWQgdGltZXN0YW1wIGlzIGluIGZ1dHVyZSwgc2F2ZWQgPSAJAKQDAQUNbGFzdENsYWltVGltZQIMLCBjdXJyZW50ID0gCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BApjYW5HZXRVc2R0CQEFYXNJbnQBCQD8BwQFD2Vjb25vbXlDb250cmFjdAIac2VsbFJlc291cmNlc1dvcmxkUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsBAdnb3RVc2R0AwkAZwIAAAUKY2FuR2V0VXNkdAAACAkBDmFzVHdvSW50c1R1cGxlAQkA/AcEBQ9lY29ub215Q29udHJhY3QCEnNlbGxSZXNvdXJjZXNXb3JsZAkAzAgCBQRhZGRyCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAJfMQkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgELbWVyZ2VMb2NrZWQECW9sZEFtb3VudAZvbGRFVEEJbmV3QW1vdW50Bm5ld0VUQQQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQDZHQxCQCWAwEJAMwIAgAACQDMCAIJAGUCBQZvbGRFVEEFA25vdwUDbmlsBANkdDIJAJYDAQkAzAgCAAAJAMwIAgkAZQIFBm5ld0VUQQUDbm93BQNuaWwEA3N1bQkAZAIFCW9sZEFtb3VudAUJbmV3QW1vdW50BAJkdAMJAAACBQNzdW0AAAAACQBkAgkAawMFA2R0MQUJb2xkQW1vdW50BQNzdW0JAGsDBQNkdDIFCW5ld0Ftb3VudAUDc3VtCQBkAgUDbm93BQJkdAoBaQENY29uc3RydWN0b3JWMQIIcmVzdEFkZHIOdW5zdGFrZWRQaWVjZXMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAMJAQlpc0RlZmluZWQBCQChCAEFD2FjcmVzQXNzZXRJZEtleQkAAgECE0FscmVhZHkgaW5pdGlhbGl6ZWQECG5mdEFjcmVzCQBkAgkAkQMCCQEOZ2V0Vm90aW5nUG93ZXIBAgAFC0lkeEVmZlRvdGFsBQ51bnN0YWtlZFBpZWNlcwQMaXNzdWVkQW1vdW50CQBlAgUITUlMTElPTjYJAGgCBQhuZnRBY3JlcwUFTVVMVDgEBWlzc3VlCQDDCAcCBUFDUkVTAiZXYXZlc0xhbmRzIGxhbmQgYWNyZXMgaW52ZXN0bWVudCB0b2tlbgUMaXNzdWVkQW1vdW50AAgHBQR1bml0AAAEB2Fzc2V0SWQJALgIAQUFaXNzdWUJAMwIAgUFaXNzdWUJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5BQxpc3N1ZWRBbW91bnQJAMwIAgkBC0JpbmFyeUVudHJ5AgUPYWNyZXNBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyBQNuaWwBaQEKc3Rha2VBY3JlcwADCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAihUZW1wb3JhcmlseSBkaXNhYmxlZCBkdXJpbmcgcHJvbW8gYWN0aW9uBAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIDCQAAAgUMY2xhaW1lZEFjcmVzAAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQx1bnN0YWtlQWNyZXMBBmFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAGcCAAAFBmFtb3VudAkAAgECGUFtb3VudCBzaG91bGQgYmUgcG9zaXRpdmUEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAAAwkAZgIFBmFtb3VudAUOb2xkQWNyZXNBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICAg5Zb3UgaGF2ZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQ5vbGRBY3Jlc0Ftb3VudAAIAiAgQUNSRVMgc3Rha2VkLCB0cmllZCB0byB1bnN0YWtlIAkBCmZpeGVkUG9pbnQCBQZhbW91bnQACAQMbG9ja2VkQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEJARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MAAAQJbG9ja2VkRVRBCQELdmFsdWVPckVsc2UCCQCfCAEJARdrZXlBY3Jlc0xvY2tlZEV0YUJ5VXNlcgEFB2FkZHJlc3MAAAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQQdW5zdGFrYWJsZUFtb3VudAMJARNpc0JsYWNrbGlzdGVkUHJvbW8xAQUHYWRkcmVzcwkAZQIJAGUCBQ5vbGRBY3Jlc0Ftb3VudAUMbG9ja2VkQW1vdW50BQ1QUk9NTzFfQU1PVU5UCQBlAgUOb2xkQWNyZXNBbW91bnQFDGxvY2tlZEFtb3VudAMDCQBmAgUJbG9ja2VkRVRBBQNub3cJAGYCBQZhbW91bnQFEHVuc3Rha2FibGVBbW91bnQHCQACAQkArAICCQCsAgIJAKwCAgIFT25seSAJAQpmaXhlZFBvaW50AgUQdW5zdGFrYWJsZUFtb3VudAAIAicgQUNSRVMgY2FuIGJlIHVuc3Rha2VkIG5vdywgd2FpdCB1bnRpbCAJAKQDAQUJbG9ja2VkRVRBBAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkJAGUCBQ5vbGRBY3Jlc0Ftb3VudAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBlAgUIb2xkVG90YWwFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGQCBQZhbW91bnQFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQc3Rha2VBY3Jlc0xvY2tlZAAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQxhY3Jlc0Fzc2V0SWQJAAIBAhRBQ1JFUyBwYXltZW50cyBvbmx5IQMJAGYCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwUDYW10CQACAQkArAICCQCsAgICOU1pbiBzdGFrZWQgYW1vdW50IGR1cmluZyBwcm9tbyBhY3Rpb24gc2hvdWxkIGJlIGF0IGxlYXN0IAkBCmZpeGVkUG9pbnQCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwAIAgYgQUNSRVMEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXADCQBmAgUXUFJPTU9fMl9TVEFSVF9USU1FU1RBTVAFA25vdwkAAgECGVByb21vMiBpcyBub3Qgc3RhcnRlZCB5ZXQDCQBmAgUDbm93BRVQUk9NT18yX0VORF9USU1FU1RBTVAJAAIBAhpQcm9tbzIgaXMgYWxyZWFkeSBmaW5pc2hlZAQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwDCQAAAgUJd2xnUmVzdWx0BQl3bGdSZXN1bHQEC3N0YWtlUmVzdWx0CQD8BwQFBHRoaXMCD3NlbmRMb2NrZWRBY3JlcwkAzAgCBQdhZGRyZXNzCQDMCAIFA2FtdAkAzAgCAB4FA25pbAUDbmlsBAlwcm9tbzJNYXAJAQt2YWx1ZU9yRWxzZQIJAKIIAQUMcHJvbW8yTWFwS2V5AgAEB25ld01hcDIDCQEIY29udGFpbnMCBQlwcm9tbzJNYXAFB2FkZHJlc3MEBXBhcnRzCQC9CQIFCXByb21vMk1hcAUHYWRkcmVzcwQJb2xkQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAK8CAgkAsAICCQCRAwIFBXBhcnRzAAEAAQAOCQCsAgIJAKwCAgkArAICCQCsAgIJAJEDAgUFcGFydHMAAAUHYWRkcmVzcwIBOgkBBHBhZEwCCQBkAgUJb2xkQW1vdW50BQNhbXQADgkAsAICCQCRAwIFBXBhcnRzAAEADwQJZmluYWxQYXJ0CQCsAgIJAKwCAgUHYWRkcmVzcwIBOgkBBHBhZEwCBQNhbXQADgMJAAACBQlwcm9tbzJNYXACAAUJZmluYWxQYXJ0CQCsAgIJAKwCAgUJcHJvbW8yTWFwAgFfBQlmaW5hbFBhcnQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQxwcm9tbzJNYXBLZXkFB25ld01hcDIFA25pbAkAlQoDBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAULc3Rha2VSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYnV5QWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUNgAGAgUgVVNEVAQLYWNyZXNBbW91bnQJAGgCBQNhbXQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQOYWNjU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQdhZGRyZXNzCQDMCAIJAGsDBQp4cE5ld1NMYW5kBQthY3Jlc0Ftb3VudAkAaAIAGQUFTVVMVDgFA25pbAUDbmlsCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPZWNvbm9teUNvbnRyYWN0BQNhbXQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYWNyZXNBbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJc2VuZEFjcmVzAgRhZGRyBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPZWNvbm9teUNvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQRhZGRyBQZhbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsBQZhbW91bnQBaQEPc2VuZExvY2tlZEFjcmVzAwRhZGRyBmFtb3VudAhsb2NrRGF5cwMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAQIhPQIIBQFpBmNhbGxlcgUMcmVzdENvbnRyYWN0BwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUEYWRkcgQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQRhZGRyBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAdvbGRUaW1lCQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkFA25vdwQGZXRhS2V5CQEXa2V5QWNyZXNMb2NrZWRFdGFCeVVzZXIBBQRhZGRyBA9sb2NrZWRBbW91bnRLZXkJARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEFBGFkZHIED29sZExvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9sb2NrZWRBbW91bnRLZXkAAAQMb2xkTG9ja2VkRVRBCQELdmFsdWVPckVsc2UCCQCfCAEFBmV0YUtleQAABAltZXJnZWRFVEEJAQttZXJnZUxvY2tlZAQFD29sZExvY2tlZEFtb3VudAUMb2xkTG9ja2VkRVRBBQZhbW91bnQJAGQCBQNub3cJAGgCBQhsb2NrRGF5cwUJREFZTUlMTElTCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkFB29sZFRpbWUJAMwIAgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFE2FjcmVzU3Rha2VkVG90YWxLZXkJAGQCBQhvbGRUb3RhbAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZldGFLZXkFCW1lcmdlZEVUQQkAzAgCCQEMSW50ZWdlckVudHJ5AgUPbG9ja2VkQW1vdW50S2V5CQBkAgUPb2xkTG9ja2VkQW1vdW50BQZhbW91bnQFA25pbAUGYW1vdW50AWkBCWJ1cm5BY3JlcwEGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQKYW1vdW50TGVmdAkAZQIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUYWNyZXNJc3N1ZWRBbW91bnRLZXkAAAUGYW1vdW50AwkAZgIAAAUKYW1vdW50TGVmdAkAAgECJ0F0dGVtcHQgdG8gYnVybiBtb3JlIEFDUkVTLCB0aGFuIGV4aXN0cwkAlAoCCQDMCAIJAQRCdXJuAgUMYWNyZXNBc3NldElkBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5BQphbW91bnRMZWZ0BQNuaWwFBmFtb3VudAFpAQpjbGFpbUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwULYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARJjbGFpbUFjcmVzUkVBRE9OTFkBB2FkZHJlc3MEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAEDGNsYWltZWRBY3JlcwkBEmNsYWltQWNyZXNJbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50BQhsYXN0VGltZQkAlAoCBQNuaWwJAMwIAgUMY2xhaW1lZEFjcmVzCQDMCAIFCGxhc3RUaW1lBQNuaWwA4i0E3g==",
    "height": 2850660,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: E2JN3F1oqYzoP5pTv4TtpwMPbvRbYFbCHmniF6ijiSig
Next: 2gMXPUhHd9EYANm6KQ5hd9dVFQniBYQFjfNBWHurPhUq

Diff: 
Old New Differences
147 147      }
148 148  
149 149  
150 + func padL (val,len) = {
151 +     let valS = toString(val)
152 +     let zeroes = drop(toString(pow(10, 0, (len - size(valS)), 0, 0, DOWN)), 1)
153 +     (zeroes + valS)
154 +     }
155 + 
156 + 
150 157  let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
158 + 
159 + let BLACKLISTED1 = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
160 + 
161 + let PROMO1_AMOUNT = 4970178
162 + 
163 + let PROMO_2_START_TIMESTAMP = match chain {
164 +     case _ => 
165 +         if ((base58'2W' == $match0))
166 +             then 1700524800000
167 +             else if ((base58'2T' == $match0))
168 +                 then 1700420400000
169 +                 else throw("Unknown chain")
170 + }
171 + 
172 + let PROMO_2_END_TIMESTAMP = match chain {
173 +     case _ => 
174 +         if ((base58'2W' == $match0))
175 +             then 1701043199999
176 +             else if ((base58'2T' == $match0))
177 +                 then 1700496000000
178 +                 else throw("Unknown chain")
179 + }
180 + 
181 + let promo2MapKey = "promo2Map"
182 + 
183 + func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
184 + 
151 185  
152 186  func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
153 187  
258 292                                  let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
259 293                                  let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
260 294                                  let now = lastBlock.timestamp
261 -                                 let unstakableAmount = (oldAcresAmount - lockedAmount)
295 +                                 let unstakableAmount = if (isBlacklistedPromo1(address))
296 +                                     then ((oldAcresAmount - lockedAmount) - PROMO1_AMOUNT)
297 +                                     else (oldAcresAmount - lockedAmount)
262 298                                  if (if ((lockedETA > now))
263 299                                      then (amount > unstakableAmount)
264 300                                      else false)
295 331                          else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
296 332                              then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
297 333                              else {
298 -                                 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
299 -                                 if ((wlgResult == wlgResult))
300 -                                     then {
301 -                                         let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
302 -                                         $Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
303 -                                         }
304 -                                     else throw("Strict value is not equal to itself.")
334 +                                 let now = lastBlock.timestamp
335 +                                 if ((PROMO_2_START_TIMESTAMP > now))
336 +                                     then throw("Promo2 is not started yet")
337 +                                     else if ((now > PROMO_2_END_TIMESTAMP))
338 +                                         then throw("Promo2 is already finished")
339 +                                         else {
340 +                                             let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
341 +                                             if ((wlgResult == wlgResult))
342 +                                                 then {
343 +                                                     let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
344 +                                                     let promo2Map = valueOrElse(getString(promo2MapKey), "")
345 +                                                     let newMap2 = if (contains(promo2Map, address))
346 +                                                         then {
347 +                                                             let parts = split_51C(promo2Map, address)
348 +                                                             let oldAmount = parseIntValue(take(drop(parts[1], 1), 14))
349 +                                                             ((((parts[0] + address) + ":") + padL((oldAmount + amt), 14)) + drop(parts[1], 15))
350 +                                                             }
351 +                                                         else {
352 +                                                             let finalPart = ((address + ":") + padL(amt, 14))
353 +                                                             if ((promo2Map == ""))
354 +                                                                 then finalPart
355 +                                                                 else ((promo2Map + "_") + finalPart)
356 +                                                             }
357 +                                                     $Tuple2([StringEntry(promo2MapKey, newMap2)], $Tuple3(prologResult, wlgResult, stakeResult))
358 +                                                     }
359 +                                                 else throw("Strict value is not equal to itself.")
360 +                                             }
305 361                                  }
306 362                      }
307 363              }
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  let DAYMILLIS = 86400000
7 7  
8 8  func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
9 9  
10 10  
11 11  func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
12 12  
13 13  
14 14  func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
15 15  
16 16  
17 17  let acresStakedTotalKey = "acresStakedAmountTotal"
18 18  
19 19  let xpNewSLand = 5000000
20 20  
21 21  let DAILYRESBYPIECE = 3456000
22 22  
23 23  let USDT2ACRES_MULTIPLIER = 10
24 24  
25 25  let chain = take(drop(this.bytes, 1), 1)
26 26  
27 27  let usdtAssetId = match chain {
28 28      case _ => 
29 29          if ((base58'2W' == $match0))
30 30              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
31 31              else if ((base58'2T' == $match0))
32 32                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
33 33                  else throw("Unknown chain")
34 34  }
35 35  
36 36  let defaultRestAddressStr = match chain {
37 37      case _ => 
38 38          if ((base58'2W' == $match0))
39 39              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
40 40              else if ((base58'2T' == $match0))
41 41                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
42 42                  else throw("Unknown chain")
43 43  }
44 44  
45 45  let SEP = "__"
46 46  
47 47  let MULT6 = 1000000
48 48  
49 49  let MULT8 = 100000000
50 50  
51 51  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
52 52  
53 53  
54 54  let IdxCfgStakingDapp = 1
55 55  
56 56  let IdxCfgEconomyDapp = 2
57 57  
58 58  let IdxCfgWlgDapp = 4
59 59  
60 60  let IdxCfgAcresDapp = 8
61 61  
62 62  func keyRestCfg () = "%s__restConfig"
63 63  
64 64  
65 65  func keyRestAddress () = "%s__restAddr"
66 66  
67 67  
68 68  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
69 69  
70 70  
71 71  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
72 72  
73 73  
74 74  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
75 75  
76 76  let restCfg = readRestCfgOrFail(restContract)
77 77  
78 78  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
79 79  
80 80  let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
81 81  
82 82  let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
83 83  
84 84  let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
85 85  
86 86  let acresIssuedAmountKey = "acresIssuedAmount"
87 87  
88 88  let acresAssetIdKey = "acresAssetId"
89 89  
90 90  let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
91 91  
92 92  func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
93 93  
94 94  
95 95  let IdxEffTotal = 0
96 96  
97 97  func keyResProportions () = "resTypesProportions"
98 98  
99 99  
100 100  func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
101 101  
102 102  
103 103  func asInt (v) = match v {
104 104      case n: Int => 
105 105          n
106 106      case _ => 
107 107          throw("fail to cast into Int")
108 108  }
109 109  
110 110  
111 111  func asTwoIntsTuple (val) = match val {
112 112      case t2: (Int, Int) => 
113 113          t2
114 114      case _ => 
115 115          throw("fail to cast into (Int, Int)")
116 116  }
117 117  
118 118  
119 119  func getVotingPower (userAddrStrOrEmpty) = {
120 120      let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
121 121      func adder (acc,item) =     (acc + parseIntValue(item))
122 122  
123 123      let totalPower = {
124 124          let $l = props
125 125          let $s = size($l)
126 126          let $acc0 = 0
127 127          func $f0_1 ($a,$i) =         if (($i >= $s))
128 128              then $a
129 129              else adder($a, $l[$i])
130 130  
131 131          func $f0_2 ($a,$i) =         if (($i >= $s))
132 132              then $a
133 133              else throw("List size exceeds 6")
134 134  
135 135          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
136 136          }
137 137      let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
138 138  [totalPower, usersPower]
139 139      }
140 140  
141 141  
142 142  func fixedPoint (val,decimals) = {
143 143      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
144 144      let lowPart = toString((val % tenPow))
145 145      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
146 146      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
147 147      }
148 148  
149 149  
150 + func padL (val,len) = {
151 +     let valS = toString(val)
152 +     let zeroes = drop(toString(pow(10, 0, (len - size(valS)), 0, 0, DOWN)), 1)
153 +     (zeroes + valS)
154 +     }
155 + 
156 + 
150 157  let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
158 + 
159 + let BLACKLISTED1 = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
160 + 
161 + let PROMO1_AMOUNT = 4970178
162 + 
163 + let PROMO_2_START_TIMESTAMP = match chain {
164 +     case _ => 
165 +         if ((base58'2W' == $match0))
166 +             then 1700524800000
167 +             else if ((base58'2T' == $match0))
168 +                 then 1700420400000
169 +                 else throw("Unknown chain")
170 + }
171 + 
172 + let PROMO_2_END_TIMESTAMP = match chain {
173 +     case _ => 
174 +         if ((base58'2W' == $match0))
175 +             then 1701043199999
176 +             else if ((base58'2T' == $match0))
177 +                 then 1700496000000
178 +                 else throw("Unknown chain")
179 + }
180 + 
181 + let promo2MapKey = "promo2Map"
182 + 
183 + func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
184 + 
151 185  
152 186  func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
153 187  
154 188  
155 189  func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
156 190      let deltaTime = (lastBlock.timestamp - lastClaimTime)
157 191      let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
158 192      let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
159 193      let gotUsdt = max([0, canGetUsdt])
160 194      (gotUsdt * USDT2ACRES_MULTIPLIER)
161 195      }
162 196  
163 197  
164 198  func claimInternal (addr,acresAmount,lastClaimTime) = {
165 199      let deltaTime = (lastBlock.timestamp - lastClaimTime)
166 200      if ((0 > deltaTime))
167 201          then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
168 202          else {
169 203              let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
170 204              let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
171 205              let gotUsdt = if ((0 >= canGetUsdt))
172 206                  then 0
173 207                  else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
174 208              (gotUsdt * USDT2ACRES_MULTIPLIER)
175 209              }
176 210      }
177 211  
178 212  
179 213  func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
180 214      let now = lastBlock.timestamp
181 215      let dt1 = max([0, (oldETA - now)])
182 216      let dt2 = max([0, (newETA - now)])
183 217      let sum = (oldAmount + newAmount)
184 218      let dt = if ((sum == 0))
185 219          then 0
186 220          else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
187 221      (now + dt)
188 222      }
189 223  
190 224  
191 225  @Callable(i)
192 226  func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
193 227      then throw("Permission denied")
194 228      else if (isDefined(getBinary(acresAssetIdKey)))
195 229          then throw("Already initialized")
196 230          else {
197 231              let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
198 232              let issuedAmount = (MILLION6 - (nftAcres * MULT8))
199 233              let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
200 234              let assetId = calculateAssetId(issue)
201 235  [issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
202 236              }
203 237  
204 238  
205 239  
206 240  @Callable(i)
207 241  func stakeAcres () = if ((i.caller != this))
208 242      then throw("Temporarily disabled during promo action")
209 243      else {
210 244          let prologResult = prolog()
211 245          if ((prologResult == prologResult))
212 246              then {
213 247                  let address = toString(i.caller)
214 248                  if ((size(i.payments) != 1))
215 249                      then throw("exactly 1 payment must be attached")
216 250                      else {
217 251                          let pmt = i.payments[0]
218 252                          let amt = pmt.amount
219 253                          if (if (!(isDefined(pmt.assetId)))
220 254                              then true
221 255                              else (value(pmt.assetId) != acresAssetId))
222 256                              then throw("ACRES payments only!")
223 257                              else {
224 258                                  let timeKey = keyAcresStakedTimeByUser(address)
225 259                                  let amountKey = keyAcresStakedAmountByUser(address)
226 260                                  let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
227 261                                  let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
228 262                                  let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
229 263                                  let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
230 264                                  $Tuple2(((((if ((claimedAcres == 0))
231 265                                      then nil
232 266                                      else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
233 267                                  }
234 268                          }
235 269                  }
236 270              else throw("Strict value is not equal to itself.")
237 271          }
238 272  
239 273  
240 274  
241 275  @Callable(i)
242 276  func unstakeAcres (amount) = {
243 277      let prologResult = prolog()
244 278      if ((prologResult == prologResult))
245 279          then if ((0 >= amount))
246 280              then throw("Amount should be positive")
247 281              else {
248 282                  let address = toString(i.caller)
249 283                  if ((size(i.payments) != 0))
250 284                      then throw("No payments required")
251 285                      else {
252 286                          let timeKey = keyAcresStakedTimeByUser(address)
253 287                          let amountKey = keyAcresStakedAmountByUser(address)
254 288                          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
255 289                          if ((amount > oldAcresAmount))
256 290                              then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
257 291                              else {
258 292                                  let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
259 293                                  let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
260 294                                  let now = lastBlock.timestamp
261 -                                 let unstakableAmount = (oldAcresAmount - lockedAmount)
295 +                                 let unstakableAmount = if (isBlacklistedPromo1(address))
296 +                                     then ((oldAcresAmount - lockedAmount) - PROMO1_AMOUNT)
297 +                                     else (oldAcresAmount - lockedAmount)
262 298                                  if (if ((lockedETA > now))
263 299                                      then (amount > unstakableAmount)
264 300                                      else false)
265 301                                      then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
266 302                                      else {
267 303                                          let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
268 304                                          let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
269 305                                          let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
270 306                                          $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
271 307                                          }
272 308                                  }
273 309                          }
274 310                  }
275 311          else throw("Strict value is not equal to itself.")
276 312      }
277 313  
278 314  
279 315  
280 316  @Callable(i)
281 317  func stakeAcresLocked () = {
282 318      let prologResult = prolog()
283 319      if ((prologResult == prologResult))
284 320          then {
285 321              let address = toString(i.caller)
286 322              if ((size(i.payments) != 1))
287 323                  then throw("exactly 1 payment must be attached")
288 324                  else {
289 325                      let pmt = i.payments[0]
290 326                      let amt = pmt.amount
291 327                      if (if (!(isDefined(pmt.assetId)))
292 328                          then true
293 329                          else (value(pmt.assetId) != acresAssetId))
294 330                          then throw("ACRES payments only!")
295 331                          else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
296 332                              then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
297 333                              else {
298 -                                 let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
299 -                                 if ((wlgResult == wlgResult))
300 -                                     then {
301 -                                         let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
302 -                                         $Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
303 -                                         }
304 -                                     else throw("Strict value is not equal to itself.")
334 +                                 let now = lastBlock.timestamp
335 +                                 if ((PROMO_2_START_TIMESTAMP > now))
336 +                                     then throw("Promo2 is not started yet")
337 +                                     else if ((now > PROMO_2_END_TIMESTAMP))
338 +                                         then throw("Promo2 is already finished")
339 +                                         else {
340 +                                             let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
341 +                                             if ((wlgResult == wlgResult))
342 +                                                 then {
343 +                                                     let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
344 +                                                     let promo2Map = valueOrElse(getString(promo2MapKey), "")
345 +                                                     let newMap2 = if (contains(promo2Map, address))
346 +                                                         then {
347 +                                                             let parts = split_51C(promo2Map, address)
348 +                                                             let oldAmount = parseIntValue(take(drop(parts[1], 1), 14))
349 +                                                             ((((parts[0] + address) + ":") + padL((oldAmount + amt), 14)) + drop(parts[1], 15))
350 +                                                             }
351 +                                                         else {
352 +                                                             let finalPart = ((address + ":") + padL(amt, 14))
353 +                                                             if ((promo2Map == ""))
354 +                                                                 then finalPart
355 +                                                                 else ((promo2Map + "_") + finalPart)
356 +                                                             }
357 +                                                     $Tuple2([StringEntry(promo2MapKey, newMap2)], $Tuple3(prologResult, wlgResult, stakeResult))
358 +                                                     }
359 +                                                 else throw("Strict value is not equal to itself.")
360 +                                             }
305 361                                  }
306 362                      }
307 363              }
308 364          else throw("Strict value is not equal to itself.")
309 365      }
310 366  
311 367  
312 368  
313 369  @Callable(i)
314 370  func buyAcres () = {
315 371      let prologResult = prolog()
316 372      if ((prologResult == prologResult))
317 373          then {
318 374              let address = toString(i.caller)
319 375              if ((size(i.payments) != 1))
320 376                  then throw("exactly 1 payment must be attached")
321 377                  else {
322 378                      let pmt = i.payments[0]
323 379                      let amt = pmt.amount
324 380                      if (if (!(isDefined(pmt.assetId)))
325 381                          then true
326 382                          else (value(pmt.assetId) != usdtAssetId))
327 383                          then throw("USDT payments only!")
328 384                          else if ((MULT6 > amt))
329 385                              then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
330 386                              else {
331 387                                  let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
332 388                                  let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
333 389                                  $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
334 390                                  }
335 391                      }
336 392              }
337 393          else throw("Strict value is not equal to itself.")
338 394      }
339 395  
340 396  
341 397  
342 398  @Callable(i)
343 399  func sendAcres (addr,amount) = if ((i.caller != economyContract))
344 400      then throw("Permission denied")
345 401      else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
346 402  
347 403  
348 404  
349 405  @Callable(i)
350 406  func sendLockedAcres (addr,amount,lockDays) = if (if ((i.caller != this))
351 407      then (i.caller != restContract)
352 408      else false)
353 409      then throw("Permission denied")
354 410      else {
355 411          let now = lastBlock.timestamp
356 412          let timeKey = keyAcresStakedTimeByUser(addr)
357 413          let amountKey = keyAcresStakedAmountByUser(addr)
358 414          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
359 415          let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
360 416          let oldTime = valueOrElse(getInteger(timeKey), now)
361 417          let etaKey = keyAcresLockedEtaByUser(addr)
362 418          let lockedAmountKey = keyAcresLockedAmountByUser(addr)
363 419          let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
364 420          let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
365 421          let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
366 422          $Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
367 423          }
368 424  
369 425  
370 426  
371 427  @Callable(i)
372 428  func burnAcres (amount) = if ((i.caller != stakingContract))
373 429      then throw("Permission denied")
374 430      else {
375 431          let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
376 432          if ((0 > amountLeft))
377 433              then throw("Attempt to burn more ACRES, than exists")
378 434              else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
379 435          }
380 436  
381 437  
382 438  
383 439  @Callable(i)
384 440  func claimAcres () = {
385 441      let prologResult = prolog()
386 442      if ((prologResult == prologResult))
387 443          then {
388 444              let address = toString(i.caller)
389 445              if ((size(i.payments) != 0))
390 446                  then throw("No payments required")
391 447                  else {
392 448                      let timeKey = keyAcresStakedTimeByUser(address)
393 449                      let amountKey = keyAcresStakedAmountByUser(address)
394 450                      let acresAmount = valueOrElse(getInteger(amountKey), 0)
395 451                      let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
396 452                      let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
397 453                      $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
398 454                      }
399 455              }
400 456          else throw("Strict value is not equal to itself.")
401 457      }
402 458  
403 459  
404 460  
405 461  @Callable(i)
406 462  func claimAcresREADONLY (address) = {
407 463      let timeKey = keyAcresStakedTimeByUser(address)
408 464      let amountKey = keyAcresStakedAmountByUser(address)
409 465      let acresAmount = valueOrElse(getInteger(amountKey), 0)
410 466      let lastTime = valueOrElse(getInteger(timeKey), 0)
411 467      let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
412 468      $Tuple2(nil, [claimedAcres, lastTime])
413 469      }
414 470  
415 471

Old	New		Differences
147	147		}
148	148
149	149
	150	+	func padL (val,len) = {
	151	+	let valS = toString(val)
	152	+	let zeroes = drop(toString(pow(10, 0, (len - size(valS)), 0, 0, DOWN)), 1)
	153	+	(zeroes + valS)
	154	+	}
	155	+
	156	+
150	157		let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
	158	+
	159	+	let BLACKLISTED1 = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
	160	+
	161	+	let PROMO1_AMOUNT = 4970178
	162	+
	163	+	let PROMO_2_START_TIMESTAMP = match chain {
	164	+	case _ =>
	165	+	if ((base58'2W' == $match0))
	166	+	then 1700524800000
	167	+	else if ((base58'2T' == $match0))
	168	+	then 1700420400000
	169	+	else throw("Unknown chain")
	170	+	}
	171	+
	172	+	let PROMO_2_END_TIMESTAMP = match chain {
	173	+	case _ =>
	174	+	if ((base58'2W' == $match0))
	175	+	then 1701043199999
	176	+	else if ((base58'2T' == $match0))
	177	+	then 1700496000000
	178	+	else throw("Unknown chain")
	179	+	}
	180	+
	181	+	let promo2MapKey = "promo2Map"
	182	+
	183	+	func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
	184	+
151	185
152	186		func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
153	187

258	292		let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
259	293		let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
260	294		let now = lastBlock.timestamp
261		-	let unstakableAmount = (oldAcresAmount - lockedAmount)
	295	+	let unstakableAmount = if (isBlacklistedPromo1(address))
	296	+	then ((oldAcresAmount - lockedAmount) - PROMO1_AMOUNT)
	297	+	else (oldAcresAmount - lockedAmount)
262	298		if (if ((lockedETA > now))
263	299		then (amount > unstakableAmount)
264	300		else false)

295	331		else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
296	332		then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
297	333		else {
298		-	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
299		-	if ((wlgResult == wlgResult))
300		-	then {
301		-	let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
302		-	$Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
303		-	}
304		-	else throw("Strict value is not equal to itself.")
	334	+	let now = lastBlock.timestamp
	335	+	if ((PROMO_2_START_TIMESTAMP > now))
	336	+	then throw("Promo2 is not started yet")
	337	+	else if ((now > PROMO_2_END_TIMESTAMP))
	338	+	then throw("Promo2 is already finished")
	339	+	else {
	340	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
	341	+	if ((wlgResult == wlgResult))
	342	+	then {
	343	+	let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
	344	+	let promo2Map = valueOrElse(getString(promo2MapKey), "")
	345	+	let newMap2 = if (contains(promo2Map, address))
	346	+	then {
	347	+	let parts = split_51C(promo2Map, address)
	348	+	let oldAmount = parseIntValue(take(drop(parts[1], 1), 14))
	349	+	((((parts[0] + address) + ":") + padL((oldAmount + amt), 14)) + drop(parts[1], 15))
	350	+	}
	351	+	else {
	352	+	let finalPart = ((address + ":") + padL(amt, 14))
	353	+	if ((promo2Map == ""))
	354	+	then finalPart
	355	+	else ((promo2Map + "_") + finalPart)
	356	+	}
	357	+	$Tuple2([StringEntry(promo2MapKey, newMap2)], $Tuple3(prologResult, wlgResult, stakeResult))
	358	+	}
	359	+	else throw("Strict value is not equal to itself.")
	360	+	}
305	361		}
306	362		}
307	363		}

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		let DAYMILLIS = 86400000
7	7
8	8		func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
9	9
10	10
11	11		func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
12	12
13	13
14	14		func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
15	15
16	16
17	17		let acresStakedTotalKey = "acresStakedAmountTotal"
18	18
19	19		let xpNewSLand = 5000000
20	20
21	21		let DAILYRESBYPIECE = 3456000
22	22
23	23		let USDT2ACRES_MULTIPLIER = 10
24	24
25	25		let chain = take(drop(this.bytes, 1), 1)
26	26
27	27		let usdtAssetId = match chain {
28	28		case _ =>
29	29		if ((base58'2W' == $match0))
30	30		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
31	31		else if ((base58'2T' == $match0))
32	32		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
33	33		else throw("Unknown chain")
34	34		}
35	35
36	36		let defaultRestAddressStr = match chain {
37	37		case _ =>
38	38		if ((base58'2W' == $match0))
39	39		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
40	40		else if ((base58'2T' == $match0))
41	41		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
42	42		else throw("Unknown chain")
43	43		}
44	44
45	45		let SEP = "__"
46	46
47	47		let MULT6 = 1000000
48	48
49	49		let MULT8 = 100000000
50	50
51	51		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
52	52
53	53
54	54		let IdxCfgStakingDapp = 1
55	55
56	56		let IdxCfgEconomyDapp = 2
57	57
58	58		let IdxCfgWlgDapp = 4
59	59
60	60		let IdxCfgAcresDapp = 8
61	61
62	62		func keyRestCfg () = "%s__restConfig"
63	63
64	64
65	65		func keyRestAddress () = "%s__restAddr"
66	66
67	67
68	68		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
69	69
70	70
71	71		func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
72	72
73	73
74	74		let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
75	75
76	76		let restCfg = readRestCfgOrFail(restContract)
77	77
78	78		let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
79	79
80	80		let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
81	81
82	82		let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
83	83
84	84		let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
85	85
86	86		let acresIssuedAmountKey = "acresIssuedAmount"
87	87
88	88		let acresAssetIdKey = "acresAssetId"
89	89
90	90		let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
91	91
92	92		func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
93	93
94	94
95	95		let IdxEffTotal = 0
96	96
97	97		func keyResProportions () = "resTypesProportions"
98	98
99	99
100	100		func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
101	101
102	102
103	103		func asInt (v) = match v {
104	104		case n: Int =>
105	105		n
106	106		case _ =>
107	107		throw("fail to cast into Int")
108	108		}
109	109
110	110
111	111		func asTwoIntsTuple (val) = match val {
112	112		case t2: (Int, Int) =>
113	113		t2
114	114		case _ =>
115	115		throw("fail to cast into (Int, Int)")
116	116		}
117	117
118	118
119	119		func getVotingPower (userAddrStrOrEmpty) = {
120	120		let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
121	121		func adder (acc,item) = (acc + parseIntValue(item))
122	122
123	123		let totalPower = {
124	124		let $l = props
125	125		let $s = size($l)
126	126		let $acc0 = 0
127	127		func $f0_1 ($a,$i) = if (($i >= $s))
128	128		then $a
129	129		else adder($a, $l[$i])
130	130
131	131		func $f0_2 ($a,$i) = if (($i >= $s))
132	132		then $a
133	133		else throw("List size exceeds 6")
134	134
135	135		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
136	136		}
137	137		let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
138	138		[totalPower, usersPower]
139	139		}
140	140
141	141
142	142		func fixedPoint (val,decimals) = {
143	143		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
144	144		let lowPart = toString((val % tenPow))
145	145		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
146	146		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
147	147		}
148	148
149	149
	150	+	func padL (val,len) = {
	151	+	let valS = toString(val)
	152	+	let zeroes = drop(toString(pow(10, 0, (len - size(valS)), 0, 0, DOWN)), 1)
	153	+	(zeroes + valS)
	154	+	}
	155	+
	156	+
150	157		let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
	158	+
	159	+	let BLACKLISTED1 = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
	160	+
	161	+	let PROMO1_AMOUNT = 4970178
	162	+
	163	+	let PROMO_2_START_TIMESTAMP = match chain {
	164	+	case _ =>
	165	+	if ((base58'2W' == $match0))
	166	+	then 1700524800000
	167	+	else if ((base58'2T' == $match0))
	168	+	then 1700420400000
	169	+	else throw("Unknown chain")
	170	+	}
	171	+
	172	+	let PROMO_2_END_TIMESTAMP = match chain {
	173	+	case _ =>
	174	+	if ((base58'2W' == $match0))
	175	+	then 1701043199999
	176	+	else if ((base58'2T' == $match0))
	177	+	then 1700496000000
	178	+	else throw("Unknown chain")
	179	+	}
	180	+
	181	+	let promo2MapKey = "promo2Map"
	182	+
	183	+	func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
	184	+
151	185
152	186		func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
153	187
154	188
155	189		func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
156	190		let deltaTime = (lastBlock.timestamp - lastClaimTime)
157	191		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
158	192		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
159	193		let gotUsdt = max([0, canGetUsdt])
160	194		(gotUsdt * USDT2ACRES_MULTIPLIER)
161	195		}
162	196
163	197
164	198		func claimInternal (addr,acresAmount,lastClaimTime) = {
165	199		let deltaTime = (lastBlock.timestamp - lastClaimTime)
166	200		if ((0 > deltaTime))
167	201		then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
168	202		else {
169	203		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
170	204		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
171	205		let gotUsdt = if ((0 >= canGetUsdt))
172	206		then 0
173	207		else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
174	208		(gotUsdt * USDT2ACRES_MULTIPLIER)
175	209		}
176	210		}
177	211
178	212
179	213		func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
180	214		let now = lastBlock.timestamp
181	215		let dt1 = max([0, (oldETA - now)])
182	216		let dt2 = max([0, (newETA - now)])
183	217		let sum = (oldAmount + newAmount)
184	218		let dt = if ((sum == 0))
185	219		then 0
186	220		else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
187	221		(now + dt)
188	222		}
189	223
190	224
191	225		@Callable(i)
192	226		func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
193	227		then throw("Permission denied")
194	228		else if (isDefined(getBinary(acresAssetIdKey)))
195	229		then throw("Already initialized")
196	230		else {
197	231		let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
198	232		let issuedAmount = (MILLION6 - (nftAcres * MULT8))
199	233		let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
200	234		let assetId = calculateAssetId(issue)
201	235		[issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
202	236		}
203	237
204	238
205	239
206	240		@Callable(i)
207	241		func stakeAcres () = if ((i.caller != this))
208	242		then throw("Temporarily disabled during promo action")
209	243		else {
210	244		let prologResult = prolog()
211	245		if ((prologResult == prologResult))
212	246		then {
213	247		let address = toString(i.caller)
214	248		if ((size(i.payments) != 1))
215	249		then throw("exactly 1 payment must be attached")
216	250		else {
217	251		let pmt = i.payments[0]
218	252		let amt = pmt.amount
219	253		if (if (!(isDefined(pmt.assetId)))
220	254		then true
221	255		else (value(pmt.assetId) != acresAssetId))
222	256		then throw("ACRES payments only!")
223	257		else {
224	258		let timeKey = keyAcresStakedTimeByUser(address)
225	259		let amountKey = keyAcresStakedAmountByUser(address)
226	260		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
227	261		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
228	262		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
229	263		let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
230	264		$Tuple2(((((if ((claimedAcres == 0))
231	265		then nil
232	266		else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
233	267		}
234	268		}
235	269		}
236	270		else throw("Strict value is not equal to itself.")
237	271		}
238	272
239	273
240	274
241	275		@Callable(i)
242	276		func unstakeAcres (amount) = {
243	277		let prologResult = prolog()
244	278		if ((prologResult == prologResult))
245	279		then if ((0 >= amount))
246	280		then throw("Amount should be positive")
247	281		else {
248	282		let address = toString(i.caller)
249	283		if ((size(i.payments) != 0))
250	284		then throw("No payments required")
251	285		else {
252	286		let timeKey = keyAcresStakedTimeByUser(address)
253	287		let amountKey = keyAcresStakedAmountByUser(address)
254	288		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
255	289		if ((amount > oldAcresAmount))
256	290		then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
257	291		else {
258	292		let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
259	293		let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
260	294		let now = lastBlock.timestamp
261		-	let unstakableAmount = (oldAcresAmount - lockedAmount)
	295	+	let unstakableAmount = if (isBlacklistedPromo1(address))
	296	+	then ((oldAcresAmount - lockedAmount) - PROMO1_AMOUNT)
	297	+	else (oldAcresAmount - lockedAmount)
262	298		if (if ((lockedETA > now))
263	299		then (amount > unstakableAmount)
264	300		else false)
265	301		then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
266	302		else {
267	303		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
268	304		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
269	305		let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
270	306		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
271	307		}
272	308		}
273	309		}
274	310		}
275	311		else throw("Strict value is not equal to itself.")
276	312		}
277	313
278	314
279	315
280	316		@Callable(i)
281	317		func stakeAcresLocked () = {
282	318		let prologResult = prolog()
283	319		if ((prologResult == prologResult))
284	320		then {
285	321		let address = toString(i.caller)
286	322		if ((size(i.payments) != 1))
287	323		then throw("exactly 1 payment must be attached")
288	324		else {
289	325		let pmt = i.payments[0]
290	326		let amt = pmt.amount
291	327		if (if (!(isDefined(pmt.assetId)))
292	328		then true
293	329		else (value(pmt.assetId) != acresAssetId))
294	330		then throw("ACRES payments only!")
295	331		else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
296	332		then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
297	333		else {
298		-	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
299		-	if ((wlgResult == wlgResult))
300		-	then {
301		-	let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
302		-	$Tuple2(nil, $Tuple3(prologResult, wlgResult, stakeResult))
303		-	}
304		-	else throw("Strict value is not equal to itself.")
	334	+	let now = lastBlock.timestamp
	335	+	if ((PROMO_2_START_TIMESTAMP > now))
	336	+	then throw("Promo2 is not started yet")
	337	+	else if ((now > PROMO_2_END_TIMESTAMP))
	338	+	then throw("Promo2 is already finished")
	339	+	else {
	340	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
	341	+	if ((wlgResult == wlgResult))
	342	+	then {
	343	+	let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
	344	+	let promo2Map = valueOrElse(getString(promo2MapKey), "")
	345	+	let newMap2 = if (contains(promo2Map, address))
	346	+	then {
	347	+	let parts = split_51C(promo2Map, address)
	348	+	let oldAmount = parseIntValue(take(drop(parts[1], 1), 14))
	349	+	((((parts[0] + address) + ":") + padL((oldAmount + amt), 14)) + drop(parts[1], 15))
	350	+	}
	351	+	else {
	352	+	let finalPart = ((address + ":") + padL(amt, 14))
	353	+	if ((promo2Map == ""))
	354	+	then finalPart
	355	+	else ((promo2Map + "_") + finalPart)
	356	+	}
	357	+	$Tuple2([StringEntry(promo2MapKey, newMap2)], $Tuple3(prologResult, wlgResult, stakeResult))
	358	+	}
	359	+	else throw("Strict value is not equal to itself.")
	360	+	}
305	361		}
306	362		}
307	363		}
308	364		else throw("Strict value is not equal to itself.")
309	365		}
310	366
311	367
312	368
313	369		@Callable(i)
314	370		func buyAcres () = {
315	371		let prologResult = prolog()
316	372		if ((prologResult == prologResult))
317	373		then {
318	374		let address = toString(i.caller)
319	375		if ((size(i.payments) != 1))
320	376		then throw("exactly 1 payment must be attached")
321	377		else {
322	378		let pmt = i.payments[0]
323	379		let amt = pmt.amount
324	380		if (if (!(isDefined(pmt.assetId)))
325	381		then true
326	382		else (value(pmt.assetId) != usdtAssetId))
327	383		then throw("USDT payments only!")
328	384		else if ((MULT6 > amt))
329	385		then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
330	386		else {
331	387		let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
332	388		let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
333	389		$Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
334	390		}
335	391		}
336	392		}
337	393		else throw("Strict value is not equal to itself.")
338	394		}
339	395
340	396
341	397
342	398		@Callable(i)
343	399		func sendAcres (addr,amount) = if ((i.caller != economyContract))
344	400		then throw("Permission denied")
345	401		else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
346	402
347	403
348	404
349	405		@Callable(i)
350	406		func sendLockedAcres (addr,amount,lockDays) = if (if ((i.caller != this))
351	407		then (i.caller != restContract)
352	408		else false)
353	409		then throw("Permission denied")
354	410		else {
355	411		let now = lastBlock.timestamp
356	412		let timeKey = keyAcresStakedTimeByUser(addr)
357	413		let amountKey = keyAcresStakedAmountByUser(addr)
358	414		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
359	415		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
360	416		let oldTime = valueOrElse(getInteger(timeKey), now)
361	417		let etaKey = keyAcresLockedEtaByUser(addr)
362	418		let lockedAmountKey = keyAcresLockedAmountByUser(addr)
363	419		let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
364	420		let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
365	421		let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
366	422		$Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
367	423		}
368	424
369	425
370	426
371	427		@Callable(i)
372	428		func burnAcres (amount) = if ((i.caller != stakingContract))
373	429		then throw("Permission denied")
374	430		else {
375	431		let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
376	432		if ((0 > amountLeft))
377	433		then throw("Attempt to burn more ACRES, than exists")
378	434		else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
379	435		}
380	436
381	437
382	438
383	439		@Callable(i)
384	440		func claimAcres () = {
385	441		let prologResult = prolog()
386	442		if ((prologResult == prologResult))
387	443		then {
388	444		let address = toString(i.caller)
389	445		if ((size(i.payments) != 0))
390	446		then throw("No payments required")
391	447		else {
392	448		let timeKey = keyAcresStakedTimeByUser(address)
393	449		let amountKey = keyAcresStakedAmountByUser(address)
394	450		let acresAmount = valueOrElse(getInteger(amountKey), 0)
395	451		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
396	452		let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
397	453		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
398	454		}
399	455		}
400	456		else throw("Strict value is not equal to itself.")
401	457		}
402	458
403	459
404	460
405	461		@Callable(i)
406	462		func claimAcresREADONLY (address) = {
407	463		let timeKey = keyAcresStakedTimeByUser(address)
408	464		let amountKey = keyAcresStakedAmountByUser(address)
409	465		let acresAmount = valueOrElse(getInteger(amountKey), 0)
410	466		let lastTime = valueOrElse(getInteger(timeKey), 0)
411	467		let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
412	468		$Tuple2(nil, [claimedAcres, lastTime])
413	469		}
414	470
415	471

github/deemru/w8io/026f985 
65.28 ms ◑