w8 · tx · FCb···VBR

tx · FCbvV9qw52vDasvM8ahxWEGNyjFSmD8nTjYtfr6svVBR

3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh:  -0.03100000 Waves

2024.12.02 18:21 [3397210] smart account 3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FCbvV9qw52vDasvM8ahxWEGNyjFSmD8nTjYtfr6svVBR",
    "fee": 3100000,
    "feeAssetId": null,
    "timestamp": 1733152945899,
    "version": 2,
    "chainId": 84,
    "sender": "3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh",
    "senderPublicKey": "3QtfC1XbLZXdeawMDeSERy9vvjUmj1XYd2GFmrvx7pWQ",
    "proofs": [
        "36wKbESCt4PEkWCExANzXpmPPdo6sbdGq5TKeGs1B4okNDGXQbK5ncSjKW6NpZ1oevbrq5whXocUsH2WUQYYGuHo"
    ],
    "script": "base64:BgJJCAISABIECgIICBIDCgEEEgMKAQESABIAEgMKAQESABIECgIIARIAEgMKAQgSAwoBCBIECgIIARIDCgEIEgASAwoBCBIAEgASAHsAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDcAgK3iBAAFTVVMVDgAgMLXLwAGTVVMVDE0AICA6YOx3hYACkRBWV9NSUxMSVMAgLiZKQAVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAAoAE09ORV9QRVJDRU5UX0RJVklTT1IAZAAMUkFORE9NX0RFTEFZAAIAFE5GVF9DSEVTVF9QUklDRV9VU0RUAMCWsQIABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAtXRUVLX0JMT0NLUwQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMADgTgMJAAACAQFUBQckbWF0Y2gwALQBCQACAQINVW5rbm93biBjaGFpbgALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAWZGVmYXVsdFJlc3QyQWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BGd1l0YThiaUV6MzF6cGVGZTVESks4d0U1dHJTcFFWRjgDCQAAAgEBVAUHJG1hdGNoMAIjM043VXVZYXI2MjY0UDU4RkJoVldLUFFBaDRZdWEyaGduZ3YJAAIBAg1Vbmtub3duIGNoYWluAA5hcmJpdHJhZ2VEZWxheQQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAUKREFZX01JTExJUwMJAAACAQFUBQckbWF0Y2gwAODUAwkAAgECDVVua25vd24gY2hhaW4AFW9sZFN0YWtpbmdDb250cmFjdFN0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BMbmNYdFMxVTgzRDZjUWJGRDNIOHJCSFBMZ3p4U0ZLWjEDCQAAAgEBVAUHJG1hdGNoMAIjM05EQ3lCRzVxODVKdWFSaWlnVWVFdGFpbnlqQ1FUM1hwWm0JAAIBAg1Vbmtub3duIGNoYWluAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAAQSWR4Q2ZnQWNyZXMyRGFwcAABAA1JZHhDZmdXbGdEYXBwAAIAFElkeENmZ0ludmVzdEZ1bmREYXBwAAUBCmtleVJlc3RDZmcAAg4lc19fcmVzdENvbmZpZwEPa2V5UmVzdDJBZGRyZXNzAAINJXNfX3Jlc3QyQWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCCHJlc3QyQ2ZnA2lkeAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUIcmVzdDJDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AA1yZXN0MkNvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ9rZXlSZXN0MkFkZHJlc3MABRZkZWZhdWx0UmVzdDJBZGRyZXNzU3RyAAhyZXN0MkNmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUNcmVzdDJDb250cmFjdAAOYWNyZXMyQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQhyZXN0MkNmZwUQSWR4Q2ZnQWNyZXMyRGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQhyZXN0MkNmZwUNSWR4Q2ZnV2xnRGFwcAASaW52ZXN0RnVuZENvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUIcmVzdDJDZmcFFElkeENmZ0ludmVzdEZ1bmREYXBwABNvbGRBY3Jlc0NvbnRyYWN0S2V5AhBvbGRBY3Jlc0NvbnRyYWN0AQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAEVa2V5TGFzdFdlZWtUeElkQnlVc2VyAQRhZGRyCQCsAgICE2xhc3RXZWVrVHhJZEJ5VXNlcl8FBGFkZHIBFGtleUN1cldlZWtUeElkQnlVc2VyAQRhZGRyCQCsAgICEmN1cldlZWtUeElkQnlVc2VyXwUEYWRkcgEJa2V5Q29tbWl0AQdhZGRyZXNzCQCsAgICD2ZpbmlzaEJsb2NrRm9yXwUHYWRkcmVzcwANd2xnQXNzZXRJZEtleQILd2xnX2Fzc2V0SWQACndsZ0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQt3bGdDb250cmFjdAUNd2xnQXNzZXRJZEtleQIYV0xHT0xEIGlzIG5vdCBpc3N1ZWQgeWV0ABRhY3Jlc0lzc3VlZEFtb3VudEtleQIRYWNyZXNJc3N1ZWRBbW91bnQAD2FjcmVzQXNzZXRJZEtleQIMYWNyZXNBc3NldElkAAxhY3Jlc0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQ5hY3JlczJDb250cmFjdAUPYWNyZXNBc3NldElkS2V5AhdBQ1JFUyBpcyBub3QgaXNzdWVkIHlldAEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQRhZGRyCQCsAgICFmFjcmVzU3Rha2VkVGltZUJ5VXNlcl8FBGFkZHIBFWtleVN0YWtlZExhbmRzQnlPd25lcgEJb3duZXJBZGRyCQCsAgICE3N0YWtlZExhbmRzQnlPd25lcl8FCW93bmVyQWRkcgEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgEea2V5U3Rha2VkVGltZUJ5QXNzZXRJZEFuZE93bmVyAgdhc3NldElkBGFkZHIJAKwCAgkArAICCQCsAgICA3N0XwUHYXNzZXRJZAIBXwUEYWRkcgEUa2V5U3Rha2VkTkZUc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWRORlRzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQxhc1R1cGxlNUludHMBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACGShJbnQsIEludCwgSW50LCBJbnQsIEludCkEAXQFByRtYXRjaDAFAXQJAAIBAitmYWlsIHRvIGNhc3QgaW50byAoSW50LCBJbnQsIEludCwgSW50LCBJbnQpAQxhc1R1cGxlNEludHMBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACFChJbnQsIEludCwgSW50LCBJbnQpBAF0BQckbWF0Y2gwBQF0CQACAQImZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50LCBJbnQsIEludCkBDGFzVHVwbGUzSW50cwEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIPKEludCwgSW50LCBJbnQpBAF0BQckbWF0Y2gwBQF0CQACAQIhZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50LCBJbnQpAQxhc1R1cGxlMkludHMBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACCihJbnQsIEludCkEAXQFByRtYXRjaDAFAXQJAAIBAhxmYWlsIHRvIGNhc3QgaW50byAoSW50LCBJbnQpAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04EB2xvd1BhcnQJAKQDAQkAagIFA3ZhbAUGdGVuUG93BAZ6ZXJvZXMJALACAgkApAMBBQZ0ZW5Qb3cJAGQCAAEJALECAQUHbG93UGFydAkArAICCQCsAgIJAKwCAgkApAMBCQBpAgUDdmFsBQZ0ZW5Qb3cCAS4FBnplcm9lcwUHbG93UGFydAEPZ2V0UmFuZG9tTnVtYmVyAwhtYXhWYWx1ZQRzYWx0B2VudHJvcHkDCQBnAgAABQhtYXhWYWx1ZQkAAgECFm1heFZhbHVlIHNob3VsZCBiZSA+IDAECnJhbmRvbUhhc2gJANQWAQkAywECBQRzYWx0BQdlbnRyb3B5CQBqAgkAsQkBBQpyYW5kb21IYXNoBQhtYXhWYWx1ZQADTTZfAMCEPQADTThfAIDC1y8AD3dsZ0lzc3VlZEFtdEtleQIQd2xnX2lzc3VlZEFtb3VudAAOemJJc3N1ZWRBbXRLZXkCEnpiaWxsX2lzc3VlZEFtb3VudAEXa2V5QWNyZXNTdGFrZWRBbXRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyARVrZXlGYXJtaW5nUG93ZXJCeVVzZXIBBGFkZHIJAKwCAgITZmFybWluZ1Bvd2VyQnlVc2VyXwUEYWRkcgASYWNyZXNTdGFrZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsABR0b3RhbEZhcm1pbmdQb3dlcktleQIRdG90YWxGYXJtaW5nUG93ZXIAC01BWF9XTF9ORlRTAAMADE1BWF9BUktfTkZUUwABAA1BUktfTkZUX0JPTlVTAIgnABdNQVhfTkZUU19TVEFLRURfQllfVVNFUgAEABFrZXlOZnRUb3RhbElzc3VlZAIObmZ0VG90YWxJc3N1ZWQAEWtleU5mdFRvdGFsQnVybmVkAg5uZnRUb3RhbEJ1cm5lZAATa2V5V2xOZnRUb3RhbFN0YWtlZAIQV2xOZnRUb3RhbFN0YWtlZAAUa2V5QXJrTmZ0VG90YWxTdGFrZWQCEUFya05mdFRvdGFsU3Rha2VkARVrZXlOZnROdW1iZXJCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgITbmZ0TnVtYmVyQnlBc3NldElkXwUHYXNzZXRJZAESa2V5VXNlcldsTmZ0TnVtYmVyAQRhZGRyCQCsAgICEHVzZXJXbE5mdE51bWJlcl8FBGFkZHIBE2tleVVzZXJBcmtOZnROdW1iZXIBBGFkZHIJAKwCAgIRdXNlckFya05mdE51bWJlcl8FBGFkZHIBEGtleVVzZXJGdWxsQm9udXMBBGFkZHIJAKwCAgIOdXNlckZ1bGxCb251c18FBGFkZHIACmxldmVsQWNyZXMJAMwIAgAACQDMCAIACgkAzAgCABQJAMwIAgAoCQDMCAIAUAkAzAgCAJYBCQDMCAIA+gEJAMwIAgCQAwkAzAgCALwFCQDMCAIA6AcFA25pbAEPZ2V0TGV2ZWxCeUFjcmVzAQVhY3JlcwQDYWNyCQBpAgkAZAIFBWFjcmVzAP/B1y8FA004XwoBB2NoZWNrZXICA2FjYwRpdGVtAwkAZwIFBGl0ZW0FA2FjcgUDYWNjCQBkAgUDYWNjAAEKAAIkbAUKbGV2ZWxBY3JlcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEHY2hlY2tlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgEWZ2V0RmFybWluZ1Bvd2VyQnlBY3JlcwEFYWNyZXMJAGgCCQBoAgUFYWNyZXMAFAkAZAIJAQ9nZXRMZXZlbEJ5QWNyZXMBBQVhY3JlcwAEAR5nZXRGYXJtaW5nUG93ZXJCeUFjcmVzQW5kQm9udXMCBWFjcmVzBmJvbnVzNgQKbm90Qm9udXNlZAkBFmdldEZhcm1pbmdQb3dlckJ5QWNyZXMBBQVhY3JlcwkAlAoCCQBrAwUKbm90Qm9udXNlZAkAZAIFA002XwUGYm9udXM2BQNNNl8FCm5vdEJvbnVzZWQAC3RlYW1BZGRyS2V5Agh0ZWFtQWRkcgEZa2V5TGFzdFdsZ1RyYWRlVGltZUJ5VXNlcgEEYWRkcgkArAICAhBsYXN0QXJiVGltZVVzZXJfBQRhZGRyABRrZXlMYXN0QWNyZXNTZWxsVGltZQIRbGFzdEFjcmVzU2VsbFRpbWUAEGtleUxhc3RMaW1pdExlZnQCDWxhc3RMaW1pdExlZnQABW5hbWVzCQDMCAICC0dvbGQgc2hvdmVsCQDMCAICB1BpY2theGUFA25pbAAMZGVzY3JpcHRpb25zCQDMCAICFlJld2FyZCBmb3IgZWFybHkgYmlyZHMJAMwIAgITSW5jcmVhc2VzIEZhcm1Qb3dlcgUDbmlsAA5pZHhEZXNjclNob3ZlbAAAAA9pZHhEZXNjclBpY2theGUAAQAQcmFyaXR5VGhyZXNob2xkcwkAzAgCAAUJAMwIAgAKCQDMCAIAFAUDbmlsAA1pZHhUaHJlc2hvbGRDAAAADWlkeFRocmVzaG9sZFUAAQANaWR4VGhyZXNob2xkTAACAAVuYW1legkAzAgCAgZTSE9WRUwJAMwIAgIHUElDS0FYRQUDbmlsAA1pZHhOYW1lU2hvdmVsAAAADmlkeE5hbWVQaWNrYXhlAAEAC2NvbnRlbnRLZXl6CQDMCAICD2NvbnRlbnRQaWNrYXhlQwkAzAgCAg9jb250ZW50UGlja2F4ZVUJAMwIAgIPY29udGVudFBpY2theGVMCQDMCAICD2NvbnRlbnRQaWNrYXhlRQkAzAgCAg5jb250ZW50U2hvdmVsUAUDbmlsAAdpZHhLZXlDAAAAB2lkeEtleVAABAALcmFyaXR5TmFtZXMJAMwIAgIGQ29tbW9uCQDMCAICCFVuY29tbW9uCQDMCAICCUxlZ2VuZGFyeQkAzAgCAgRFcGljCQDMCAICBVByb21vBQNuaWwACmlkeFJhcml0eUMAAAAKaWR4UmFyaXR5VQABAAppZHhSYXJpdHlMAAIACmlkeFJhcml0eUUAAwAKaWR4UmFyaXR5UAAEAAtjb2xsZWN0aW9uegkAzAgCAg1EaWdnaW5nIHRvb2xzBQNuaWwACmlkeENvbGxEaWcAAAAKYm9udXNUeXBlegkAzAgCAglGYXJtUG93ZXIFA25pbAAOaWR4Qm9udXNUeXBlRnAAAAEGcHJvbG9nAQFpAwMJAQIhPQIIBQFpDG9yaWdpbkNhbGxlcgUNcmVzdDJDb250cmFjdAkBC3ZhbHVlT3JFbHNlAgkAoAgBCQEKa2V5QmxvY2tlZAAHBwkAAgECH0NvbnRyYWN0cyBhcmUgdW5kZXIgbWFpbnRlbmFuY2UEBGFkZHIJAKUIAQgFAWkMb3JpZ2luQ2FsbGVyBAR3ZWVrCQBpAgUGaGVpZ2h0BQtXRUVLX0JMT0NLUwQLbGFzdFdlZWtLZXkJARVrZXlMYXN0V2Vla1R4SWRCeVVzZXIBBQRhZGRyBBJsYXN0V2Vla1R4SWRCeVVzZXIJAKIIAQULbGFzdFdlZWtLZXkEBHR4SWQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAQDd3R4CQCsAgIJAKwCAgkApAMBBQR3ZWVrAgFfBQR0eElkBApjdXJXZWVrS2V5CQEUa2V5Q3VyV2Vla1R4SWRCeVVzZXIBBQRhZGRyAwkBCWlzRGVmaW5lZAEFEmxhc3RXZWVrVHhJZEJ5VXNlcgQKbGFzdFdlZWtUeAkAtQkCCQEFdmFsdWUBBRJsYXN0V2Vla1R4SWRCeVVzZXICAV8DCQAAAgkAkQMCBQpsYXN0V2Vla1R4AAAJAKQDAQUEd2VlawkAzAgCCQELU3RyaW5nRW50cnkCBQtsYXN0V2Vla0tleQUDd3R4CQDMCAIJAQtTdHJpbmdFbnRyeQIFCmN1cldlZWtLZXkFA3d0eAUDbmlsAwkAAAIJAJEDAgUKbGFzdFdlZWtUeAAACQCkAwEJAGUCBQR3ZWVrAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgUKY3VyV2Vla0tleQUDd3R4BQNuaWwEEWN1cldlZWtUeElkQnlVc2VyCQERQGV4dHJOYXRpdmUoMTA1OCkBBQpjdXJXZWVrS2V5BAljdXJXZWVrVHgJALUJAgURY3VyV2Vla1R4SWRCeVVzZXICAV8DCQAAAgkAkQMCBQljdXJXZWVrVHgAAAkApAMBBQR3ZWVrCQDMCAIJAQtTdHJpbmdFbnRyeQIFCmN1cldlZWtLZXkFA3d0eAUDbmlsCQDMCAIJAQtTdHJpbmdFbnRyeQIFC2xhc3RXZWVrS2V5BRFjdXJXZWVrVHhJZEJ5VXNlcgkAzAgCCQELU3RyaW5nRW50cnkCBQpjdXJXZWVrS2V5BQN3dHgFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCBQtsYXN0V2Vla0tleQUDd3R4CQDMCAIJAQtTdHJpbmdFbnRyeQIFCmN1cldlZWtLZXkFA3d0eAUDbmlsARRjcmVhdGVOZnREZXNjckN1c3RvbQgHY29udEtleQluZnRTZXJpYWwKY29sbGVjdGlvbgRuYW1lBWRlc2NyBnJhcml0eQVib251cwlib251c1R5cGUJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICInsidXJsIjogImh0dHBzOi8vd2F2ZXNsYW5kcy5jb20iLCACDyJjb250ZW50S2V5IjogIgUHY29udEtleQIDIiwgAgoibnVtYmVyIjogCQCkAwEFCW5mdFNlcmlhbAICLCACDyJjb2xsZWN0aW9uIjogIgUKY29sbGVjdGlvbgIDIiwgAgkibmFtZSI6ICIFBG5hbWUCAyIsIAIQImRlc2NyaXB0aW9uIjogIgUFZGVzY3ICAyIsIAIJInJhcmUiOiAiBQZyYXJpdHkCAyIsIAIJImJvbnVzIjogCQCkAwEFBWJvbnVzAgIsIAIOImJvbnVzVHlwZSI6ICIFCWJvbnVzVHlwZQICIn0BDmlzc3VlTmZ0Q3VzdG9tCAduYW1lSWR4CmNvbnRLZXlJZHgHY29sbElkeAlyYXJpdHlJZHgJYm9udXNQZXJjCGRlc2NySWR4DGJvbnVzVHlwZUlkeARhZGRyBAluZnRTZXJpYWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQURa2V5TmZ0VG90YWxJc3N1ZWQAAAQGcmFyaXR5CQCRAwIFC3Jhcml0eU5hbWVzBQlyYXJpdHlJZHgEBG5hbWUJAKwCAgkArAICCQCsAgIJAJEDAgUFbmFtZXoFB25hbWVJZHgCAS0JAK8CAgUGcmFyaXR5AAEJAKQDAQUJYm9udXNQZXJjBAVpc3N1ZQkAwggFBQRuYW1lCQEUY3JlYXRlTmZ0RGVzY3JDdXN0b20ICQCRAwIFC2NvbnRlbnRLZXl6BQpjb250S2V5SWR4BQluZnRTZXJpYWwJAJEDAgULY29sbGVjdGlvbnoFB2NvbGxJZHgJAJEDAgUFbmFtZXMFB25hbWVJZHgJAJEDAgUMZGVzY3JpcHRpb25zBQhkZXNjcklkeAkAkQMCBQtyYXJpdHlOYW1lcwUJcmFyaXR5SWR4BQlib251c1BlcmMJAJEDAgUKYm9udXNUeXBlegUMYm9udXNUeXBlSWR4AAEAAAcECm5mdEFzc2V0SWQJALgIAQUFaXNzdWUJAJQKAgkAzAgCBQVpc3N1ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgURa2V5TmZ0VG90YWxJc3N1ZWQJAGQCBQluZnRTZXJpYWwAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFWtleU5mdE51bWJlckJ5QXNzZXRJZAEJANgEAQUKbmZ0QXNzZXRJZAUJbmZ0U2VyaWFsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBGFkZHIAAQUKbmZ0QXNzZXRJZAUDbmlsBQpuZnRBc3NldElkARJib251c0J5RGVzY3JpcHRpb24BBWRlc2NyAwkBASEBCQEIY29udGFpbnMCBQVkZXNjcgIYImJvbnVzVHlwZSI6ICJGYXJtUG93ZXIiCQACAQkArAICAhZORlQgaXMgbm90IHN1cHBvcnRlZDogBQVkZXNjcgQIYm9udXNTdHIJAJEDAgkAvAkCCQCRAwIJALwJAgUFZGVzY3ICCCJib251cyI6AAECASwAAAkBDXBhcnNlSW50VmFsdWUBCQCwAgIFCGJvbnVzU3RyCQBkAgkBC3ZhbHVlT3JFbHNlAgkAtwkCBQhib251c1N0cgIBIAD///////////8BAAEBFnJhcml0eUlkeEJ5RGVzY3JpcHJpb24BBWRlc2NyAwkBASEBCQEIY29udGFpbnMCBQVkZXNjcgIGInJhcmUiCQACAQkArAICAhZORlQgaXMgbm90IHN1cHBvcnRlZDogBQVkZXNjcgQJcmFyaXR5U3RyCQCRAwIJALwJAgkAkQMCCQC8CQIJAJEDAgkAvAkCBQVkZXNjcgIGInJhcmUiAAECASwAAAIBIgABCQEFdmFsdWUBCQDPCAIFC3Jhcml0eU5hbWVzBQlyYXJpdHlTdHIBGXN0YWtlVW5zdGFrZUFjcmVzSW50ZXJuYWwDA2FtdAdhZGRyZXNzCmJvbnVzRGVsdGEDAwkAAAIFA2FtdAAACQAAAgUKYm9udXNEZWx0YQAABwkAAgECDU5vdGhpbmcgdG8gZG8ECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsAwkAAAIFCXdsZ1Jlc3VsdAUJd2xnUmVzdWx0BANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEXa2V5QWNyZXNTdGFrZWRBbXRCeVVzZXIBBQdhZGRyZXNzBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAMDCQBmAgAABQNhbXQJAGYCAAAJAGQCBQ5vbGRBY3Jlc0Ftb3VudAUDYW10BwkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIJAQEtAQUDYW10AAgEDm5ld0FjcmVzQW1vdW50CQBkAgUOb2xkQWNyZXNBbW91bnQFA2FtdAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUSYWNyZXNTdGFrZFRvdGFsS2V5AAAECXVzZXJGcEtleQkBFWtleUZhcm1pbmdQb3dlckJ5VXNlcgEFB2FkZHJlc3MEBW9sZEZwCQELdmFsdWVPckVsc2UCCQCfCAEFCXVzZXJGcEtleQAABAhib251c0tleQkBEGtleVVzZXJGdWxsQm9udXMBBQdhZGRyZXNzBAhvbGRCb251cwkBC3ZhbHVlT3JFbHNlAgkAmggCBQ5hY3JlczJDb250cmFjdAUIYm9udXNLZXkAAAMDCQBmAgAABQpib251c0RlbHRhCQBmAgAACQBkAgUIb2xkQm9udXMFCmJvbnVzRGVsdGEHCQACAQkArAICCQCsAgIJAKwCAgkArAICAg5Zb3UgaGF2ZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQhvbGRCb251cwAEAh4lIGJvbnVzLCBhbmQgdHJpZWQgdG8gdW5zdGFrZSAJAQpmaXhlZFBvaW50AgkBAS0BBQpib251c0RlbHRhAAQCASUECyR0MDYyNTI2MzUxCQEeZ2V0RmFybWluZ1Bvd2VyQnlBY3Jlc0FuZEJvbnVzAgUObmV3QWNyZXNBbW91bnQJAGQCBQhvbGRCb251cwUKYm9udXNEZWx0YQQMbmV3Qm9udXNlZEZwCAULJHQwNjI1MjYzNTECXzEEB2lnbm9yZWQIBQskdDA2MjUyNjM1MQJfMgQKb2xkVG90YWxGcAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRR0b3RhbEZhcm1pbmdQb3dlcktleQAABAxhY3Jlc0FjdGlvbnMDCQAAAgUDYW10AAAFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5BQ5uZXdBY3Jlc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSYWNyZXNTdGFrZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAUDbmlsBAxib251c0FjdGlvbnMDCQAAAgUKYm9udXNEZWx0YQAABQNuaWwJAMwIAgkBDEludGVnZXJFbnRyeQIFCGJvbnVzS2V5CQBkAgUIb2xkQm9udXMFCmJvbnVzRGVsdGEFA25pbAkAlAoCCQDNCAIJAM0IAgkAzQgCCQDOCAIFDGFjcmVzQWN0aW9ucwUMYm9udXNBY3Rpb25zCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAQxJbnRlZ2VyRW50cnkCBQl1c2VyRnBLZXkFDG5ld0JvbnVzZWRGcAkBDEludGVnZXJFbnRyeQIFFHRvdGFsRmFybWluZ1Bvd2VyS2V5CQBlAgkAZAIFCm9sZFRvdGFsRnAFDG5ld0JvbnVzZWRGcAUFb2xkRnAFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELZ2V0V2xnUHJpY2UBFXVzZHRCYWxhbmNlQ29ycmVjdGlvbgQMaXNzdWVkQW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgULd2xnQ29udHJhY3QFD3dsZ0lzc3VlZEFtdEtleQIYV0xHT0xEIGlzIG5vdCBpc3N1ZWQgeWV0BAZ3bGdVc2QJAPAHAgULd2xnQ29udHJhY3QFC3VzZHRBc3NldElkBAlhY3JlczJVc2QJAGUCCQDwBwIFDmFjcmVzMkNvbnRyYWN0BQt1c2R0QXNzZXRJZAUVdXNkdEJhbGFuY2VDb3JyZWN0aW9uBA9pbnZlc3RGdW5kVG90YWwJAGQCCQDwBwIFEmludmVzdEZ1bmRDb250cmFjdAULdXNkdEFzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUSaW52ZXN0RnVuZENvbnRyYWN0BQ56Yklzc3VlZEFtdEtleQAABA10b3RhbEZ1bmRzVXNkCQBkAgkAZAIFCWFjcmVzMlVzZAUGd2xnVXNkBQ9pbnZlc3RGdW5kVG90YWwJAGsDBQ10b3RhbEZ1bmRzVXNkBQVNVUxUOAUMaXNzdWVkQW1vdW50ARFnZXRTd2FwTGltaXRBY3JlcwAEBndsZ1VzZAkA8AcCBQt3bGdDb250cmFjdAULdXNkdEFzc2V0SWQECWFjcmVzMlVzZAkA8AcCBQR0aGlzBQt1c2R0QXNzZXRJZAQPaW52ZXN0RnVuZFRvdGFsCQBkAgkA8AcCBRJpbnZlc3RGdW5kQ29udHJhY3QFC3VzZHRBc3NldElkCQELdmFsdWVPckVsc2UCCQCaCAIFEmludmVzdEZ1bmRDb250cmFjdAUOemJJc3N1ZWRBbXRLZXkAAAQMZGVmYXVsdExpbWl0CQBpAgkAZAIJAGQCBQlhY3JlczJVc2QFBndsZ1VzZAUPaW52ZXN0RnVuZFRvdGFsBRNPTkVfUEVSQ0VOVF9ESVZJU09SBA1sYXN0TGltaXRMZWZ0CQELdmFsdWVPckVsc2UCCQCfCAEFEGtleUxhc3RMaW1pdExlZnQFDGRlZmF1bHRMaW1pdAQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUa2V5TGFzdEFjcmVzU2VsbFRpbWUAAAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQMY3VycmVudExpbWl0CQBkAgUNbGFzdExpbWl0TGVmdAkAawMFDGRlZmF1bHRMaW1pdAkAZQIFA25vdwUIbGFzdFRpbWUFCkRBWV9NSUxMSVMEDWxpbWl0TGVmdFVzZHQJAJcDAQkAzAgCBQxjdXJyZW50TGltaXQJAMwIAgUMZGVmYXVsdExpbWl0BQNuaWwJAJQKAgkBDEludGVnZXJFbnRyeQIFFGtleUxhc3RBY3Jlc1NlbGxUaW1lBQNub3cFDWxpbWl0TGVmdFVzZHQACWFya09yYWNsZQkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM1BKZ1o2QUsxV1ZDcGRDbUVacGVzSG1hS3ZyUURkWEc1b2cACWluY3ViYXRvcgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQlhcmtPcmFjbGUCF3N0YXRpY19pbmN1YmF0b3JBZGRyZXNzAgAAB2JyZWVkZXIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUJYXJrT3JhY2xlAhVzdGF0aWNfYnJlZWRlckFkZHJlc3MCAAAPdHVydGxlSW5jdWJhdG9yCQELdmFsdWVPckVsc2UCCQCdCAIFCWFya09yYWNsZQIdc3RhdGljX3R1cnRsZUluY3ViYXRvckFkZHJlc3MCAAANdHVydGxlQnJlZWRlcgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQlhcmtPcmFjbGUCG3N0YXRpY190dXJ0bGVCcmVlZGVyQWRkcmVzcwIAAA9jYW5pbmVJbmN1YmF0b3IJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUJYXJrT3JhY2xlAh1zdGF0aWNfY2FuaW5lSW5jdWJhdG9yQWRkcmVzcwIAAA1jYW5pbmVCcmVlZGVyCQELdmFsdWVPckVsc2UCCQCdCAIFCWFya09yYWNsZQIbc3RhdGljX2NhbmluZUJyZWVkZXJBZGRyZXNzAgAAD2ZlbGluZUluY3ViYXRvcgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQlhcmtPcmFjbGUCHXN0YXRpY19mZWxpbmVJbmN1YmF0b3JBZGRyZXNzAgAADWZlbGluZUJyZWVkZXIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUJYXJrT3JhY2xlAhtzdGF0aWNfZmVsaW5lQnJlZWRlckFkZHJlc3MCAAANbXV0YW50QnJlZWRlcgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQlhcmtPcmFjbGUCHXN0YXRpY19tdXRhbnRJbmN1YmF0b3JBZGRyZXNzAgABD2lzQXJraW1hbElzc3VlZAEDbmZvBAZpc3N1ZXIJAKUIAQgFA25mbwZpc3N1ZXIDAwMDAwMDAwMDCQAAAgUFY2hhaW4BAVQJAAACBQZpc3N1ZXIFFW9sZFN0YWtpbmdDb250cmFjdFN0cgcGCQAAAgUGaXNzdWVyBQlpbmN1YmF0b3IGCQAAAgUGaXNzdWVyBQdicmVlZGVyBgkAAAIFBmlzc3VlcgUPdHVydGxlSW5jdWJhdG9yBgkAAAIFBmlzc3VlcgUNdHVydGxlQnJlZWRlcgYJAAACBQZpc3N1ZXIFD2NhbmluZUluY3ViYXRvcgYJAAACBQZpc3N1ZXIFDWNhbmluZUJyZWVkZXIGCQAAAgUGaXNzdWVyBQ9mZWxpbmVJbmN1YmF0b3IGCQAAAgUGaXNzdWVyBQ1mZWxpbmVCcmVlZGVyCAUDbmZvBG5hbWUDCQAAAgUGaXNzdWVyBQ1tdXRhbnRCcmVlZGVyCAUDbmZvC2Rlc2NyaXB0aW9uAgABEHN0YWtlTmZ0SW50ZXJuYWwGBGFkZHIKYXNzZXRJZFN0cgZib251czYKdXNlck51bUtleQt0b3RhbE51bUtleQVsaW1pdAQJbmZ0TnVtYmVyCQELdmFsdWVPckVsc2UCCQCfCAEFCnVzZXJOdW1LZXkAAAMJAGcCBQluZnROdW1iZXIFBWxpbWl0CQACAQkArAICCQCsAgICEllvdSBjYW4gc3Rha2UgbWF4IAkApAMBBQVsaW1pdAINIG9mIHN1Y2ggTkZUcwQNJHQwMTA2MzAxMDcwNgkBGXN0YWtlVW5zdGFrZUFjcmVzSW50ZXJuYWwDAAAFBGFkZHIFBmJvbnVzNgQHYWN0aW9ucwgFDSR0MDEwNjMwMTA3MDYCXzEEEHdsZ0NsYWltZWRBbW91bnQIBQ0kdDAxMDYzMDEwNzA2Al8yCQCUCgIJAM0IAgkAzQgCCQDNCAIFB2FjdGlvbnMJAQxJbnRlZ2VyRW50cnkCBQp1c2VyTnVtS2V5CQBkAgUJbmZ0TnVtYmVyAAEJAQxJbnRlZ2VyRW50cnkCBQt0b3RhbE51bUtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQULdG90YWxOdW1LZXkAAAABCQEMSW50ZWdlckVudHJ5AgkBHmtleVN0YWtlZFRpbWVCeUFzc2V0SWRBbmRPd25lcgIFCmFzc2V0SWRTdHIFBGFkZHIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBRB3bGdDbGFpbWVkQW1vdW50EwFpAQpzYXZlTGFzdFR4AAMJAQEhAQkBD2NvbnRhaW5zRWxlbWVudAIJAMwIAgULd2xnQ29udHJhY3QFA25pbAgFAWkGY2FsbGVyCQACAQINQWNjZXNzIGRlbmllZAkAlAoCCQEGcHJvbG9nAQUBaQAqAWkBDWNvbnN0cnVjdG9yVjECCXJlc3QyQWRkcg5vbGRBY3JDb250cmFjdAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBA5vbGRBY3JDb250QWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQUOb2xkQWNyQ29udHJhY3QJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5CQERQGV4dHJOYXRpdmUoMTA1MCkCBQ5vbGRBY3JDb250QWRkcgUUYWNyZXNJc3N1ZWRBbW91bnRLZXkJAMwIAgkBC0JpbmFyeUVudHJ5AgUPYWNyZXNBc3NldElkS2V5CQERQGV4dHJOYXRpdmUoMTA1MikCBQ5vbGRBY3JDb250QWRkcgUPYWNyZXNBc3NldElkS2V5CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ9rZXlSZXN0MkFkZHJlc3MABQlyZXN0MkFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgUTb2xkQWNyZXNDb250cmFjdEtleQUOb2xkQWNyQ29udHJhY3QFA25pbAFpAQpzZXRCbG9ja2VkAQlpc0Jsb2NrZWQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAkAzAgCCQEMQm9vbGVhbkVudHJ5AgkBCmtleUJsb2NrZWQABQlpc0Jsb2NrZWQFA25pbAFpAQx1bnN0YWtlQWNyZXMBBmFtb3VudAQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkDCQBnAgAABQZhbW91bnQJAAIBAhlBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBA5hcmJSZWxlYXNlVGltZQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJoIAgULd2xnQ29udHJhY3QJARlrZXlMYXN0V2xnVHJhZGVUaW1lQnlVc2VyAQUHYWRkcmVzcwAABQ5hcmJpdHJhZ2VEZWxheQMJAGYCBQ5hcmJSZWxlYXNlVGltZQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAAIBCQCsAgICLVlvdSB0cmFkZWQgc29tZSBXTEdPTEQsIGNhbm5vdCB1bnN0YWtlIHVudGlsIAkApAMBBQ5hcmJSZWxlYXNlVGltZQQNJHQwMTIyODAxMjM2MAkBGXN0YWtlVW5zdGFrZUFjcmVzSW50ZXJuYWwDCQEBLQEFBmFtb3VudAUHYWRkcmVzcwAABAdhY3Rpb25zCAUNJHQwMTIyODAxMjM2MAJfMQQQd2xnQ2xhaW1lZEFtb3VudAgFDSR0MDEyMjgwMTIzNjACXzIJAJQKAgkAzggCCQDNCAIFB2FjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUGYW1vdW50BQxhY3Jlc0Fzc2V0SWQFDXByb2xvZ0FjdGlvbnMFEHdsZ0NsYWltZWRBbW91bnQBaQEKc3Rha2VBY3JlcwAEDXByb2xvZ0FjdGlvbnMJAQZwcm9sb2cBBQFpBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEEDSR0MDEyODExMTI4ODcJARlzdGFrZVVuc3Rha2VBY3Jlc0ludGVybmFsAwUDYW10BQdhZGRyZXNzAAAEB2FjdGlvbnMIBQ0kdDAxMjgxMTEyODg3Al8xBBB3bGdDbGFpbWVkQW1vdW50CAUNJHQwMTI4MTExMjg4NwJfMgkAlAoCCQDOCAIFB2FjdGlvbnMFDXByb2xvZ0FjdGlvbnMFEHdsZ0NsYWltZWRBbW91bnQBaQEIYnV5QWNyZXMABA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAp1c2R0QW1vdW50CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQMJAGYCBQVNVUxUNgUKdXNkdEFtb3VudAkAAgEJAKwCAgkArAICAhZNaW4gcGF5bWVudCBzaG91bGQgYmUgCQEKZml4ZWRQb2ludAIFBU1VTFQ2AAYCBSBVU0RUBAthY3Jlc0Ftb3VudAkAaAIFCnVzZHRBbW91bnQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQJd2xnQW1vdW50CQBrAwUKdXNkdEFtb3VudAUFTVVMVDgJAQtnZXRXbGdQcmljZQEFCnVzZHRBbW91bnQED29sZEFjcmVzQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUTb2xkQWNyZXNDb250cmFjdEtleQQDcmVxCQD8BwQFD29sZEFjcmVzQWRkcmVzcwIUcmVxdWVzdEFjcmVzQ2FsbGJhY2sJAMwIAgULYWNyZXNBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcQUDcmVxBAl3bGdSZW1haW4JAQVhc0ludAEJAPwHBAULd2xnQ29udHJhY3QCCmJ1cm5XbGdvbGQJAMwIAgUJd2xnQW1vdW50BQNuaWwFA25pbAkAlAoCCQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQthY3Jlc0Ftb3VudAUMYWNyZXNBc3NldElkBQNuaWwFDXByb2xvZ0FjdGlvbnMFCXdsZ1JlbWFpbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARBidXlBY3Jlc1JFQURPTkxZAQp1c2R0QW1vdW50BAthY3Jlc0Ftb3VudAkAaAIFCnVzZHRBbW91bnQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQJd2xnVG9CdXJuCQBrAwUKdXNkdEFtb3VudAUFTVVMVDgJAQtnZXRXbGdQcmljZQEFCnVzZHRBbW91bnQJAJQKAgUDbmlsCQDMCAIFC2FjcmVzQW1vdW50CQDMCAIFBU1VTFQ2CQDMCAIFC2FjcmVzQW1vdW50CQDMCAIFCXdsZ1RvQnVybgUDbmlsAWkBCXNlbGxBY3JlcwAEDXByb2xvZ0FjdGlvbnMJAQZwcm9sb2cBBQFpAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEC2FjcmVzQW1vdW50CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFDGFjcmVzQXNzZXRJZAkAAgECFEFDUkVTIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ3BQthY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICAhZNaW4gcGF5bWVudCBzaG91bGQgYmUgCQEKZml4ZWRQb2ludAIFBU1VTFQ3AAgCBiBBQ1JFUwQEYWRkcgkApQgBCAUBaQZjYWxsZXIEDSR0MDE0NzQ0MTQ3OTIJARFnZXRTd2FwTGltaXRBY3JlcwAEC2xpbWl0QWN0aW9uCAUNJHQwMTQ3NDQxNDc5MgJfMQQHbWF4VXNkdAgFDSR0MDE0NzQ0MTQ3OTICXzIECG1heEFjcmVzCQBoAgUHbWF4VXNkdAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAwkAZgIFC2FjcmVzQW1vdW50BQhtYXhBY3JlcwkAAgEJAKwCAgkArAICAhFZb3UgY2FuIHNlbGwgbWF4IAkBCmZpeGVkUG9pbnQCBQhtYXhBY3JlcwAIAgYgQUNSRVMECnVzZHRBbW91bnQJAGkCCQBpAgULYWNyZXNBbW91bnQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgACCQCUCgIJAM4IAgkAzAgCBQtsaW1pdEFjdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgUQa2V5TGFzdExpbWl0TGVmdAkAZQIFB21heFVzZHQFCnVzZHRBbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQp1c2R0QW1vdW50BQt1c2R0QXNzZXRJZAUDbmlsBQ1wcm9sb2dBY3Rpb25zBQp1c2R0QW1vdW50AWkBEXNlbGxBY3Jlc1JFQURPTkxZAgdhZGRyZXNzC2FjcmVzQW1vdW50BA0kdDAxNTI4ODE1MzM2CQERZ2V0U3dhcExpbWl0QWNyZXMABAtsaW1pdEFjdGlvbggFDSR0MDE1Mjg4MTUzMzYCXzEEB21heFVzZHQIBQ0kdDAxNTI4ODE1MzM2Al8yBAp1c2R0QW1vdW50CQBpAgkAaQIFC2FjcmVzQW1vdW50BRVVU0RUMkFDUkVTX01VTFRJUExJRVIAAgkAlAoCBQNuaWwJAMwIAgUKdXNkdEFtb3VudAkAzAgCBQVNVUxUNwkAzAgCCQBoAgUHbWF4VXNkdAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSCQDMCAIAAAUDbmlsAWkBEGNvbnZlcnRPbGRTdGFrZXMABA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQPb2xkQWNyZXNBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRNvbGRBY3Jlc0NvbnRyYWN0S2V5BAZhbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPb2xkQWNyZXNBZGRyZXNzCQEXa2V5QWNyZXNTdGFrZWRBbXRCeVVzZXIBBQdhZGRyZXNzAAAECWdvdEFjcmVzMAMJAGYCBQZhbW91bnQAAAkBDGFzVHVwbGUySW50cwEJAPwHBAUPb2xkQWNyZXNBZGRyZXNzAhR1bnN0YWtlQWNyZXNDYWxsYmFjawkAzAgCBQZhbW91bnQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwJAJQKAgAAAAAEEW9sZFN0YWtpbmdBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBRVvbGRTdGFraW5nQ29udHJhY3RTdHIECGxhbmRzU3RyCQCdCAIFEW9sZFN0YWtpbmdBZGRyZXNzCQEVa2V5U3Rha2VkTGFuZHNCeU93bmVyAQUHYWRkcmVzcwQLbGFuZHNSZXN1bHQDCQEJaXNEZWZpbmVkAQUIbGFuZHNTdHIEBWxhbmRzCQC9CQIJAQV2YWx1ZQEFCGxhbmRzU3RyAgFfCgEHb25lTGFuZAIDYWNjC2xhbmRBc3NldElkAwkAAAIFC2xhbmRBc3NldElkAgAJAAIBAhdsYW5kQXNzZXRJZCBpcyByZXF1aXJlZAQBcgkBDGFzVHVwbGU1SW50cwEJAPwHBAURb2xkU3Rha2luZ0FkZHJlc3MCE3Vuc3Rha2VMYW5kQ2FsbGJhY2sJAMwIAgULbGFuZEFzc2V0SWQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwJAJYKBAkAZAIIBQNhY2MCXzEIBQFyAl8xCQBkAggFA2FjYwJfMggFAXICXzIJAGQCCAUDYWNjAl8zCAUBcgJfMwkAZAIIBQNhY2MCXzQIBQFyAl80BAJycgoAAiRsBQVsYW5kcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAAAAAAAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAQIZmluYWxpemUJAPwHBAURb2xkU3Rha2luZ0FkZHJlc3MCHHVuc3Rha2VMYW5kc0ZpbmFsaXplQ2FsbGJhY2sJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwDCQAAAgUIZmluYWxpemUFCGZpbmFsaXplBANyZXEJAPwHBAUPb2xkQWNyZXNBZGRyZXNzAhRyZXF1ZXN0QWNyZXNDYWxsYmFjawkAzAgCCQBkAgkAZAIJAGQCCAUCcnICXzEIBQJycgJfMggFAnJyAl8zCAUCcnICXzQFA25pbAUDbmlsAwkAAAIFA3JlcQUDcmVxBA0kdDAxNzE3MzE3MzExCQEOaXNzdWVOZnRDdXN0b20IBQ1pZHhOYW1lU2hvdmVsBQdpZHhLZXlQBQppZHhDb2xsRGlnBQppZHhSYXJpdHlQAAMFDmlkeERlc2NyU2hvdmVsBQ5pZHhCb251c1R5cGVGcAgFAWkGY2FsbGVyBApuZnRBY3Rpb25zCAUNJHQwMTcxNzMxNzMxMQJfMQQKbmZ0QXNzZXRJZAgFDSR0MDE3MTczMTczMTECXzIJAJcKBQgFAnJyAl8xCAUCcnICXzIIBQJycgJfMwgFAnJyAl80BQpuZnRBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQCXCgUAAAAAAAAAAAUDbmlsBAtkdWNrQXNzZXRJZAkBC3ZhbHVlT3JFbHNlAgkAnQgCBRFvbGRTdGFraW5nQWRkcmVzcwkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwIABApkdWNrUmVzdWx0AwkBAiE9AgULZHVja0Fzc2V0SWQCAAkBDGFzVHVwbGUzSW50cwEJAPwHBAURb2xkU3Rha2luZ0FkZHJlc3MCE3Vuc3Rha2VEdWNrQ2FsbGJhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwJAJUKAwAAAAAAAAQBeAkBGXN0YWtlVW5zdGFrZUFjcmVzSW50ZXJuYWwDCQBkAgkAZAIJAGQCCQBkAgkAZAIJAGQCCQBkAggFCWdvdEFjcmVzMAJfMQgFC2xhbmRzUmVzdWx0Al8xCAULbGFuZHNSZXN1bHQCXzIIBQtsYW5kc1Jlc3VsdAJfMwgFC2xhbmRzUmVzdWx0Al80CAUKZHVja1Jlc3VsdAJfMQgFCmR1Y2tSZXN1bHQCXzIIBQpkdWNrUmVzdWx0Al8zBQdhZGRyZXNzAAAJAJQKAgkAzggCCQDOCAIIBQtsYW5kc1Jlc3VsdAJfNQgFAXgCXzEFDXByb2xvZ0FjdGlvbnMIBQF4Al8yAWkBFHVuc3Rha2VMYW5kc1JFQURPTkxZAQdhZGRyZXNzBBFvbGRTdGFraW5nQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUVb2xkU3Rha2luZ0NvbnRyYWN0U3RyBAhsYW5kc1N0cgkAnQgCBRFvbGRTdGFraW5nQWRkcmVzcwkBFWtleVN0YWtlZExhbmRzQnlPd25lcgEFB2FkZHJlc3MEC2xhbmRzUmVzdWx0AwkBCWlzRGVmaW5lZAEFCGxhbmRzU3RyBAVsYW5kcwkAvQkCCQEFdmFsdWUBBQhsYW5kc1N0cgIBXwoBB29uZUxhbmQCA2FjYwtsYW5kQXNzZXRJZAMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQEAXIJAQxhc1R1cGxlNEludHMBCQD8BwQFEW9sZFN0YWtpbmdBZGRyZXNzAhN1bnN0YWtlTGFuZFJFQURPTkxZCQDMCAIFC2xhbmRBc3NldElkCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsCQCWCgQJAGQCCAUDYWNjAl8xCAUBcgJfMQkAZAIIBQNhY2MCXzIIBQFyAl8yCQBkAggFA2FjYwJfMwgFAXICXzMJAGQCCAUDYWNjAl80CAUBcgJfNAoAAiRsBQVsYW5kcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAAAAAAAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAkAlgoEAAAAAAAAAAAJAJQKAgUDbmlsBQtsYW5kc1Jlc3VsdAFpARJzdGFrZUFjcmVzQ2FsbGJhY2sBBGFkZHIDCQECIT0CCAUBaQZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFFW9sZFN0YWtpbmdDb250cmFjdFN0cgkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQRhZGRyAAABaQEac2ltdWxhdGVTdGFrZUFjcmVzUkVBRE9OTFkCB2FkZHJlc3MLYWRkZWRBbW91bnQECWFtb3VudEtleQkBF2tleUFjcmVzU3Rha2VkQW10QnlVc2VyAQUHYWRkcmVzcwQObmV3QWNyZXNBbW91bnQJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABQthZGRlZEFtb3VudAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUSYWNyZXNTdGFrZFRvdGFsS2V5AAAECXVzZXJGcEtleQkBFWtleUZhcm1pbmdQb3dlckJ5VXNlcgEFB2FkZHJlc3MEBW9sZEZwCQELdmFsdWVPckVsc2UCCQCfCAEFCXVzZXJGcEtleQAABAl1c2VyQm9udXMJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOYWNyZXMyQ29udHJhY3QJARBrZXlVc2VyRnVsbEJvbnVzAQUHYWRkcmVzcwAABA0kdDAxOTQ5MzE5NTgwCQEeZ2V0RmFybWluZ1Bvd2VyQnlBY3Jlc0FuZEJvbnVzAgUObmV3QWNyZXNBbW91bnQFCXVzZXJCb251cwQMbmV3Qm9udXNlZEZwCAUNJHQwMTk0OTMxOTU4MAJfMQQHaWdub3JlZAgFDSR0MDE5NDkzMTk1ODACXzIECm9sZFRvdGFsRnAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUdG90YWxGYXJtaW5nUG93ZXJLZXkAAAQKbmV3VG90YWxGcAkAZQIJAGQCBQpvbGRUb3RhbEZwBQxuZXdCb251c2VkRnAFBW9sZEZwCQCUCgIFA25pbAkAzAgCBQVvbGRGcAkAzAgCBQxuZXdCb251c2VkRnAJAMwIAgUKb2xkVG90YWxGcAkAzAgCBQpuZXdUb3RhbEZwBQNuaWwBaQELaXNzdWVQaWNrQzEBCmZvckFkZHJlc3MDCQECIT0CCAUBaQZjYWxsZXIFC3dsZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAQ5pc3N1ZU5mdEN1c3RvbQgFDmlkeE5hbWVQaWNrYXhlBQdpZHhLZXlDBQppZHhDb2xsRGlnBQppZHhSYXJpdHlDAAEFD2lkeERlc2NyUGlja2F4ZQUOaWR4Qm9udXNUeXBlRnAJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCmZvckFkZHJlc3MBaQEIc3Rha2VORlQABA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECHEV4YWN0bHkgb25lIHBheW1lbnQgcmVxdWlyZWQEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAAAwkBAiE9AggFA3BtdAZhbW91bnQAAQkAAgECJ05GVCB0b2tlbiBzaG91bGQgYmUgYXR0YWNoZWQgYXMgcGF5bWVudAQHYXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkBAphc3NldElkU3RyCQDYBAEFB2Fzc2V0SWQEBGFkZHIJAKUIAQgFAWkGY2FsbGVyBAduZnRzS2V5CQEUa2V5U3Rha2VkTkZUc0J5T3duZXIBBQRhZGRyBAduZnRzU3RyCQCiCAEFB25mdHNLZXkEBG5mdHMDCQEJaXNEZWZpbmVkAQUHbmZ0c1N0cgkAvAkCCQEFdmFsdWUBBQduZnRzU3RyAgFfBQNuaWwDCQEPY29udGFpbnNFbGVtZW50AgUEbmZ0cwUKYXNzZXRJZFN0cgkAAgEJAKwCAgIhWW91ciBzdGFrZWQgTkZUcyBhbHJlYWR5IGNvbnRhaW4gBQphc3NldElkU3RyAwkAZwIJAJADAQUEbmZ0cwUXTUFYX05GVFNfU1RBS0VEX0JZX1VTRVIJAAIBCQCsAgIJAKwCAgIZWW91ciBhbHJlYWR5IHN0YWtlZCBtYXggKAkApAMBBRdNQVhfTkZUU19TVEFLRURfQllfVVNFUgIGKSBORlRzBApsaXN0QWN0aW9uCQELU3RyaW5nRW50cnkCBQduZnRzS2V5CQC6CQIJAM0IAgUEbmZ0cwUKYXNzZXRJZFN0cgIBXwMJAAACCAUFYXNzZXQGaXNzdWVyBQR0aGlzBA0kdDAyMDk4OTIxMTc5CQEQc3Rha2VOZnRJbnRlcm5hbAYFBGFkZHIFCmFzc2V0SWRTdHIJAGgCCQESYm9udXNCeURlc2NyaXB0aW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uAJBOCQESa2V5VXNlcldsTmZ0TnVtYmVyAQUEYWRkcgUTa2V5V2xOZnRUb3RhbFN0YWtlZAULTUFYX1dMX05GVFMEB2FjdGlvbnMIBQ0kdDAyMDk4OTIxMTc5Al8xBBB3bGdDbGFpbWVkQW1vdW50CAUNJHQwMjA5ODkyMTE3OQJfMgkAlAoCCQDNCAIJAM4IAgUNcHJvbG9nQWN0aW9ucwUHYWN0aW9ucwUKbGlzdEFjdGlvbgUQd2xnQ2xhaW1lZEFtb3VudAMJAAACCQEPaXNBcmtpbWFsSXNzdWVkAQUFYXNzZXQCAAkAAgECNE9ubHkgV2F2ZXNMYW5kcyBhbmQgQXJraW1hbHMgTkZUIHRva2VucyBhcmUgYWNjZXB0ZWQEDSR0MDIxMzYwMjE1MTEJARBzdGFrZU5mdEludGVybmFsBgUEYWRkcgUKYXNzZXRJZFN0cgUNQVJLX05GVF9CT05VUwkBE2tleVVzZXJBcmtOZnROdW1iZXIBBQRhZGRyBRRrZXlBcmtOZnRUb3RhbFN0YWtlZAUMTUFYX0FSS19ORlRTBAdhY3Rpb25zCAUNJHQwMjEzNjAyMTUxMQJfMQQQd2xnQ2xhaW1lZEFtb3VudAgFDSR0MDIxMzYwMjE1MTECXzIJAJQKAgkAzQgCCQDOCAIFDXByb2xvZ0FjdGlvbnMFB2FjdGlvbnMFCmxpc3RBY3Rpb24FEHdsZ0NsYWltZWRBbW91bnQBaQEKdW5zdGFrZU5GVAEKYXNzZXRJZFN0cgQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHYXNzZXRJZAkA2QQBBQphc3NldElkU3RyBARhZGRyCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAQHdGltZUtleQkBHmtleVN0YWtlZFRpbWVCeUFzc2V0SWRBbmRPd25lcgIFCmFzc2V0SWRTdHIFBGFkZHIDCQEBIQEJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCFSBpcyBub3Qgc3Rha2VkIGJ5IHlvdQQHbmZ0c0tleQkBFGtleVN0YWtlZE5GVHNCeU93bmVyAQUEYWRkcgQEbmZ0cwkAvAkCCQELdmFsdWVPckVsc2UCCQCiCAEFB25mdHNLZXkCAAIBXwQDaWR4CQDPCAIFBG5mdHMFCmFzc2V0SWRTdHIDCQEBIQEJAQlpc0RlZmluZWQBBQNpZHgJAAIBCQCsAgICH1lvdXIgc3Rha2VkIE5GVHMgZG9uJ3QgY29udGFpbiAFCmFzc2V0SWRTdHIECmxpc3RBY3Rpb24DCQBmAgkAkAMBBQRuZnRzAAEJAQtTdHJpbmdFbnRyeQIFB25mdHNLZXkJALoJAgkA0QgCBQRuZnRzCQEFdmFsdWUBBQNpZHgCAV8JAQtEZWxldGVFbnRyeQEFB25mdHNLZXkEBGlzV0wJAAACCAUFYXNzZXQGaXNzdWVyBQR0aGlzAwUEaXNXTAQLd2xOZnROdW1iZXIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBEmtleVVzZXJXbE5mdE51bWJlcgEFBGFkZHIAAAQIYm9udXNWYWwJAGgCCQESYm9udXNCeURlc2NyaXB0aW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uAJBOBA0kdDAyMjY3NjIyNzU1CQEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMAAAUEYWRkcgkBAS0BBQhib251c1ZhbAQHYWN0aW9ucwgFDSR0MDIyNjc2MjI3NTUCXzEEEHdsZ0NsYWltZWRBbW91bnQIBQ0kdDAyMjY3NjIyNzU1Al8yCQCUCgIJAM4IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIFB2FjdGlvbnMFCmxpc3RBY3Rpb24JAQxJbnRlZ2VyRW50cnkCCQESa2V5VXNlcldsTmZ0TnVtYmVyAQUEYWRkcgkAZQIFC3dsTmZ0TnVtYmVyAAEJAQxJbnRlZ2VyRW50cnkCBRNrZXlXbE5mdFRvdGFsU3Rha2VkCQCWAwEJAMwIAgAACQDMCAIJAGUCCQELdmFsdWVPckVsc2UCCQCfCAEFE2tleVdsTmZ0VG90YWxTdGFrZWQAAAABBQNuaWwJAQtEZWxldGVFbnRyeQEJAR5rZXlTdGFrZWRUaW1lQnlBc3NldElkQW5kT3duZXICCQDYBAEFB2Fzc2V0SWQFBGFkZHIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdhc3NldElkBQ1wcm9sb2dBY3Rpb25zBRB3bGdDbGFpbWVkQW1vdW50BAthcmtpbWFsTmFtZQkBD2lzQXJraW1hbElzc3VlZAEFBWFzc2V0AwkAAAIFC2Fya2ltYWxOYW1lAgAJAAIBAjRPbmx5IFdhdmVzTGFuZHMgYW5kIEFya2ltYWxzIE5GVCB0b2tlbnMgYXJlIGFjY2VwdGVkBAxhcmtOZnROdW1iZXIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBE2tleVVzZXJBcmtOZnROdW1iZXIBBQRhZGRyAAAEDSR0MDIzNDE1MjM0OTkJARlzdGFrZVVuc3Rha2VBY3Jlc0ludGVybmFsAwAABQRhZGRyCQEBLQEFDUFSS19ORlRfQk9OVVMEB2FjdGlvbnMIBQ0kdDAyMzQxNTIzNDk5Al8xBBB3bGdDbGFpbWVkQW1vdW50CAUNJHQwMjM0MTUyMzQ5OQJfMgkAlAoCCQDOCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgUHYWN0aW9ucwUKbGlzdEFjdGlvbgkBDEludGVnZXJFbnRyeQIJARNrZXlVc2VyQXJrTmZ0TnVtYmVyAQUEYWRkcgkAZQIFDGFya05mdE51bWJlcgABCQELRGVsZXRlRW50cnkBCQEea2V5U3Rha2VkVGltZUJ5QXNzZXRJZEFuZE93bmVyAgkA2AQBBQdhc3NldElkBQRhZGRyCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUHYXNzZXRJZAUNcHJvbG9nQWN0aW9ucwUQd2xnQ2xhaW1lZEFtb3VudAFpAQxleGNoYW5nZU5GVHMABA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQMJAGYCAAMJAJADAQgFAWkIcGF5bWVudHMJAAIBAilNaW4gb25lIFdMR09MRCBhbmQgMiBORlQgcGF5bWVudHMgYWxsb3dlZAMJAGYCCQCQAwEIBQFpCHBheW1lbnRzAAoJAAIBAilNYXggb25lIFdMR09MRCBhbmQgOSBORlQgcGF5bWVudHMgYWxsb3dlZAQEYWRkcgkApQgBCAUBaQZjYWxsZXIKAQVhZGRVcAIDYWNjA3BtdAQHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCGldBVkVTIHBheW1lbnRzIG5vdCBhbGxvd2VkAwkAAAIFB2Fzc2V0SWQFCndsZ0Fzc2V0SWQJAJYKBAkAZAIIBQNhY2MCXzEIBQNwbXQGYW1vdW50CAUDYWNjAl8yCAUDYWNjAl8zCAUDYWNjAl80BAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkAwkBAiE9AggFBWFzc2V0Bmlzc3VlcgUEdGhpcwkAAgECG09ubHkgV0wtaXNzdWVkIE5GVHMgYWxsb3dlZAQIcmFyaXR5SXgJARZyYXJpdHlJZHhCeURlc2NyaXByaW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uAwMJAGYCCAUDYWNjAl80AAAJAQIhPQIFCHJhcml0eUl4CAUDYWNjAl80BwkAAgECLVlvdSBjYW4gZXhjaGFuZ2Ugb25seSBORlRzIG9mIHRoZSBzYW1lIHJhcml0eQQJYm9udXNQZXJjCQESYm9udXNCeURlc2NyaXB0aW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uCQCWCgQIBQNhY2MCXzEJAGQCCAUDYWNjAl8yBQlib251c1BlcmMJAM0IAggFA2FjYwJfMwkBBEJ1cm4CBQdhc3NldElkAAEFCHJhcml0eUl4BA0kdDAyNDg4ODI1MTA0CgACJGwIBQFpCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEAAAAAAUDbmlsAP///////////wEKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZFVwAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKBAZ3bGdGZWUIBQ0kdDAyNDg4ODI1MTA0Al8xBAp0b3RhbEJvbnVzCAUNJHQwMjQ4ODgyNTEwNAJfMgQLYnVybkFjdGlvbnMIBQ0kdDAyNDg4ODI1MTA0Al8zBAlyYXJpdHlJZHgIBQ0kdDAyNDg4ODI1MTA0Al80BAxuZXdSYXJpdHlJZHgDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlDAwkAZgIJAJEDAgUQcmFyaXR5VGhyZXNob2xkcwUNaWR4VGhyZXNob2xkQwUKdG90YWxCb251cwUKaWR4UmFyaXR5QwMJAGYCCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZFUFCnRvdGFsQm9udXMFCmlkeFJhcml0eVUJAAIBCQCsAgIJAKwCAgI6WW91IGNhbiBhZHZhbmNlIG9ubHkgb25lIGxldmVsIG9mIHJhcml0eSwgbWF4IHRvdGFsIGJvbnVzIAkApAMBCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZFUCASUDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlVAwkAZgIJAJEDAgUQcmFyaXR5VGhyZXNob2xkcwUNaWR4VGhyZXNob2xkVQUKdG90YWxCb251cwUKaWR4UmFyaXR5VQMJAGYCCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZEwFCnRvdGFsQm9udXMFCmlkeFJhcml0eUwJAAIBCQCsAgIJAKwCAgI6WW91IGNhbiBhZHZhbmNlIG9ubHkgb25lIGxldmVsIG9mIHJhcml0eSwgbWF4IHRvdGFsIGJvbnVzIAkApAMBCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZEwCASUDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlMAwkAZgIJAJEDAgUQcmFyaXR5VGhyZXNob2xkcwUNaWR4VGhyZXNob2xkTAUKdG90YWxCb251cwUKaWR4UmFyaXR5TAUKaWR4UmFyaXR5RQMJAAACBQlyYXJpdHlJZHgFCmlkeFJhcml0eUUFCmlkeFJhcml0eUUDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlQCQACAQImWW91IGNhbid0IGV4Y2hhbmdlIE5GVHMgb2YgdGhpcyByYXJpdHkJAAIBAg5Vbmtub3duIHJhcml0eQQJbWluV2xnRmVlCQBrAwUKdG90YWxCb251cwUGTVVMVDE0CQELZ2V0V2xnUHJpY2UBAAAEBmNoYW5nZQkAZQIFBndsZ0ZlZQUJbWluV2xnRmVlBAdmb3JUZWFtCQBpAgUJbWluV2xnRmVlAAIECXdsZ1JlbWFpbgkBBWFzSW50AQkA/AcEBQt3bGdDb250cmFjdAIKYnVybldsZ29sZAkAzAgCCQBlAgUJbWluV2xnRmVlBQdmb3JUZWFtBQNuaWwFA25pbAMJAGYCAAAFBmNoYW5nZQkAAgEJAKwCAgkArAICAhNZb3UgbmVlZCB0byBhdHRhY2ggCQEKZml4ZWRQb2ludAIFCW1pbldsZ0ZlZQAIAg4gV0xHT0xEIGFzIGZlZQQNY2hhbmdlQWN0aW9ucwMJAGYCBQZjaGFuZ2UAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmNoYW5nZQUKd2xnQXNzZXRJZAUDbmlsBQNuaWwEDSR0MDI2NjQxMjY4MDIJAQ5pc3N1ZU5mdEN1c3RvbQgFDmlkeE5hbWVQaWNrYXhlBQxuZXdSYXJpdHlJZHgFCmlkeENvbGxEaWcFDG5ld1Jhcml0eUlkeAUKdG90YWxCb251cwUPaWR4RGVzY3JQaWNrYXhlBQ5pZHhCb251c1R5cGVGcAgFAWkGY2FsbGVyBA9pc3N1ZU5mdEFjdGlvbnMIBQ0kdDAyNjY0MTI2ODAyAl8xBApuZnRBc3NldElkCAUNJHQwMjY2NDEyNjgwMgJfMgQGYnVybmVkCQCQAwEFC2J1cm5BY3Rpb25zBBJidXJuQ291bnRlckFjdGlvbnMDCQAAAgUGYnVybmVkAAAFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgURa2V5TmZ0VG90YWxCdXJuZWQJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFEWtleU5mdFRvdGFsQnVybmVkAAAFBmJ1cm5lZAUDbmlsCQCUCgIJAM0IAgkAzggCCQDOCAIJAM4IAgkAzggCBQ9pc3N1ZU5mdEFjdGlvbnMFC2J1cm5BY3Rpb25zBRJidXJuQ291bnRlckFjdGlvbnMFDXByb2xvZ0FjdGlvbnMFDWNoYW5nZUFjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDUzKQIFC3dsZ0NvbnRyYWN0BQt0ZWFtQWRkcktleQUHZm9yVGVhbQUKd2xnQXNzZXRJZAkAlAoCBQpuZnRBc3NldElkBQl3bGdSZW1haW4BaQEMb3Blbk5mdENoZXN0AAQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQJd2xnQW1vdW50CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFCndsZ0Fzc2V0SWQJAAIBAhVXTEdPTEQgcGF5bWVudHMgb25seSEECW1pbldsZ0ZlZQkAawMFFE5GVF9DSEVTVF9QUklDRV9VU0RUBQVNVUxUOAkBC2dldFdsZ1ByaWNlAQAABAZjaGFuZ2UJAGUCBQl3bGdBbW91bnQFCW1pbldsZ0ZlZQQHZm9yVGVhbQkAaQIFCW1pbldsZ0ZlZQACBAl3bGdSZW1haW4JAQVhc0ludAEJAPwHBAULd2xnQ29udHJhY3QCCmJ1cm5XbGdvbGQJAMwIAgkAZQIFCW1pbldsZ0ZlZQUHZm9yVGVhbQUDbmlsBQNuaWwDCQBmAgAABQZjaGFuZ2UJAAIBCQCsAgIJAKwCAgITWW91IG5lZWQgdG8gYXR0YWNoIAkBCmZpeGVkUG9pbnQCBQltaW5XbGdGZWUACAIOIFdMR09MRCBhcyBmZWUEDWNoYW5nZUFjdGlvbnMDCQBmAgUGY2hhbmdlAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZjaGFuZ2UFCndsZ0Fzc2V0SWQFA25pbAUDbmlsBARhZGRyCQClCAEIBQFpBmNhbGxlcgQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQUEYWRkcgQLZmluaXNoQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBBQlmaW5pc2hLZXkCJFlvdSBoYXZlIHRvIGNvbW1pdEZvclJhbmRvbSgpIGZpcnN0IQMJAGYCBQtmaW5pc2hCbG9jawUGaGVpZ2h0CQACAQkArAICAjRSYW5kb20gbnVtYmVyIGlzIG5vdCByZWFkeSB5ZXQsIHdhaXQgdW50aWwgaGVpZ2h0ID0gCQCkAwEFC2ZpbmlzaEJsb2NrBAdlbnRyb3B5CQEFdmFsdWUBCAkBBXZhbHVlAQkA7QcBBQtmaW5pc2hCbG9jawN2cmYEBHNhbHQJANkEAQkAkQMCCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQkBFGtleUN1cldlZWtUeElkQnlVc2VyAQUEYWRkcgIKNDJfREVGQVVMVAIBXwABBARyYW5kCQEPZ2V0UmFuZG9tTnVtYmVyAwBkBQRzYWx0BQdlbnRyb3B5BA0kdDAyODgyMTI5MDkzAwkAZgIAVAUEcmFuZAkAlAoCAAEFCmlkeFJhcml0eUMDCQBmAgBiBQRyYW5kCQCUCgIABQUKaWR4UmFyaXR5VQkAlAoCAAoFCmlkeFJhcml0eUwEBWJvbnVzCAUNJHQwMjg4MjEyOTA5MwJfMQQJcmFyaXR5SWR4CAUNJHQwMjg4MjEyOTA5MwJfMgQNJHQwMjkwOTYyOTI0NgkBDmlzc3VlTmZ0Q3VzdG9tCAUOaWR4TmFtZVBpY2theGUFCXJhcml0eUlkeAUKaWR4Q29sbERpZwUJcmFyaXR5SWR4BQVib251cwUPaWR4RGVzY3JQaWNrYXhlBQ5pZHhCb251c1R5cGVGcAgFAWkGY2FsbGVyBA9pc3N1ZU5mdEFjdGlvbnMIBQ0kdDAyOTA5NjI5MjQ2Al8xBApuZnRBc3NldElkCAUNJHQwMjkwOTYyOTI0NgJfMgkAlAoCCQDNCAIJAM0IAgkAzggCCQDOCAIFD2lzc3VlTmZ0QWN0aW9ucwUNcHJvbG9nQWN0aW9ucwUNY2hhbmdlQWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTMpAgULd2xnQ29udHJhY3QFC3RlYW1BZGRyS2V5BQdmb3JUZWFtBQp3bGdBc3NldElkCQELRGVsZXRlRW50cnkBBQlmaW5pc2hLZXkJAJQKAgUKbmZ0QXNzZXRJZAUJd2xnUmVtYWluAWkBD2NvbW1pdEZvclJhbmRvbQAEDXByb2xvZ0FjdGlvbnMJAQZwcm9sb2cBBQFpBARhZGRyCQClCAEIBQFpBmNhbGxlcgQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQUEYWRkcgMJAQlpc0RlZmluZWQBCQCfCAEFCWZpbmlzaEtleQkAAgECLllvdSBhbHJlYWR5IGNvbW1pdGVkIGZvciByYW5kb20sIHBsZWFzZSB1c2UgaXQEC2ZpbmlzaEJsb2NrCQBkAgUGaGVpZ2h0BQxSQU5ET01fREVMQVkJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlmaW5pc2hLZXkFC2ZpbmlzaEJsb2NrBQNuaWwFDXByb2xvZ0FjdGlvbnMFC2ZpbmlzaEJsb2NrAE4JdHI=",
    "height": 3397210,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BeTbcFqWJNuXKu2LCgdaeDwhtbcZsk9cvx4S2o4Zrac5
Next: 3C4T4k2YFna9yVxpJkWKFtCNjt82UHdmtY3iGeXG1EFv

Diff: 
Old New Differences
424 424                                  let acresActions = if ((amt == 0))
425 425                                      then nil
426 426                                      else [IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt))]
427 -                                 $Tuple2(((((acresActions :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))) :+ IntegerEntry(bonusKey, (oldBonus + bonusDelta))), wlgResult)
427 +                                 let bonusActions = if ((bonusDelta == 0))
428 +                                     then nil
429 +                                     else [IntegerEntry(bonusKey, (oldBonus + bonusDelta))]
430 +                                 $Tuple2(((((acresActions ++ bonusActions) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))), wlgResult)
428 431                                  }
429 432                          }
430 433                  }
509 512      if ((nftNumber >= limit))
510 513          then throw((("You can stake max " + toString(limit)) + " of such NFTs"))
511 514          else {
512 -             let $t01056310639 = stakeUnstakeAcresInternal(0, addr, bonus6)
513 -             let actions = $t01056310639._1
514 -             let wlgClaimedAmount = $t01056310639._2
515 +             let $t01063010706 = stakeUnstakeAcresInternal(0, addr, bonus6)
516 +             let actions = $t01063010706._1
517 +             let wlgClaimedAmount = $t01063010706._2
515 518              $Tuple2((((actions :+ IntegerEntry(userNumKey, (nftNumber + 1))) :+ IntegerEntry(totalNumKey, (valueOrElse(getInteger(totalNumKey), 0) + 1))) :+ IntegerEntry(keyStakedTimeByAssetIdAndOwner(assetIdStr, addr), lastBlock.timestamp)), wlgClaimedAmount)
516 519              }
517 520      }
555 558                      if ((arbReleaseTime > lastBlock.timestamp))
556 559                          then throw(("You traded some WLGOLD, cannot unstake until " + toString(arbReleaseTime)))
557 560                          else {
558 -                             let $t01221312293 = stakeUnstakeAcresInternal(-(amount), address, 0)
559 -                             let actions = $t01221312293._1
560 -                             let wlgClaimedAmount = $t01221312293._2
561 +                             let $t01228012360 = stakeUnstakeAcresInternal(-(amount), address, 0)
562 +                             let actions = $t01228012360._1
563 +                             let wlgClaimedAmount = $t01228012360._2
561 564                              $Tuple2(((actions :+ ScriptTransfer(i.caller, amount, acresAssetId)) ++ prologActions), wlgClaimedAmount)
562 565                              }
563 566                      }
580 583                  else (value(pmt.assetId) != acresAssetId))
581 584                  then throw("ACRES payments only!")
582 585                  else {
583 -                     let $t01274412820 = stakeUnstakeAcresInternal(amt, address, 0)
584 -                     let actions = $t01274412820._1
585 -                     let wlgClaimedAmount = $t01274412820._2
586 +                     let $t01281112887 = stakeUnstakeAcresInternal(amt, address, 0)
587 +                     let actions = $t01281112887._1
588 +                     let wlgClaimedAmount = $t01281112887._2
586 589                      $Tuple2((actions ++ prologActions), wlgClaimedAmount)
587 590                      }
588 591              }
646 649                      then throw((("Min payment should be " + fixedPoint(MULT7, 8)) + " ACRES"))
647 650                      else {
648 651                          let addr = toString(i.caller)
649 -                         let $t01467714725 = getSwapLimitAcres()
650 -                         let limitAction = $t01467714725._1
651 -                         let maxUsdt = $t01467714725._2
652 +                         let $t01474414792 = getSwapLimitAcres()
653 +                         let limitAction = $t01474414792._1
654 +                         let maxUsdt = $t01474414792._2
652 655                          let maxAcres = (maxUsdt * USDT2ACRES_MULTIPLIER)
653 656                          if ((acresAmount > maxAcres))
654 657                              then throw((("You can sell max " + fixedPoint(maxAcres, 8)) + " ACRES"))
664 667  
665 668  @Callable(i)
666 669  func sellAcresREADONLY (address,acresAmount) = {
667 -     let $t01522115269 = getSwapLimitAcres()
668 -     let limitAction = $t01522115269._1
669 -     let maxUsdt = $t01522115269._2
670 +     let $t01528815336 = getSwapLimitAcres()
671 +     let limitAction = $t01528815336._1
672 +     let maxUsdt = $t01528815336._2
670 673      let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
671 674      $Tuple2(nil, [usdtAmount, MULT7, (maxUsdt * USDT2ACRES_MULTIPLIER), 0])
672 675      }
717 720                              let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
718 721                              if ((req == req))
719 722                                  then {
720 -                                     let $t01710617244 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
721 -                                     let nftActions = $t01710617244._1
722 -                                     let nftAssetId = $t01710617244._2
723 +                                     let $t01717317311 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
724 +                                     let nftActions = $t01717317311._1
725 +                                     let nftAssetId = $t01717317311._2
723 726                                      $Tuple5(rr._1, rr._2, rr._3, rr._4, nftActions)
724 727                                      }
725 728                                  else throw("Strict value is not equal to itself.")
786 789      let userFpKey = keyFarmingPowerByUser(address)
787 790      let oldFp = valueOrElse(getInteger(userFpKey), 0)
788 791      let userBonus = valueOrElse(getInteger(acres2Contract, keyUserFullBonus(address)), 0)
789 -     let $t01942619513 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
790 -     let newBonusedFp = $t01942619513._1
791 -     let ignored = $t01942619513._2
792 +     let $t01949319580 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
793 +     let newBonusedFp = $t01949319580._1
794 +     let ignored = $t01949319580._2
792 795      let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
793 796      let newTotalFp = ((oldTotalFp + newBonusedFp) - oldFp)
794 797      $Tuple2(nil, [oldFp, newBonusedFp, oldTotalFp, newTotalFp])
830 833                                  let listAction = StringEntry(nftsKey, makeString_2C((nfts :+ assetIdStr), "_"))
831 834                                  if ((asset.issuer == this))
832 835                                      then {
833 -                                         let $t02092221112 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
834 -                                         let actions = $t02092221112._1
835 -                                         let wlgClaimedAmount = $t02092221112._2
836 +                                         let $t02098921179 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
837 +                                         let actions = $t02098921179._1
838 +                                         let wlgClaimedAmount = $t02098921179._2
836 839                                          $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
837 840                                          }
838 841                                      else if ((isArkimalIssued(asset) == ""))
839 842                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
840 843                                          else {
841 -                                             let $t02129321444 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
842 -                                             let actions = $t02129321444._1
843 -                                             let wlgClaimedAmount = $t02129321444._2
844 +                                             let $t02136021511 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
845 +                                             let actions = $t02136021511._1
846 +                                             let wlgClaimedAmount = $t02136021511._2
844 847                                              $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
845 848                                              }
846 849                                  }
877 880                                  then {
878 881                                      let wlNftNumber = valueOrElse(getInteger(keyUserWlNftNumber(addr)), 0)
879 882                                      let bonusVal = (bonusByDescription(value(asset.description)) * 10000)
880 -                                     let $t02260922688 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
881 -                                     let actions = $t02260922688._1
882 -                                     let wlgClaimedAmount = $t02260922688._2
883 +                                     let $t02267622755 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
884 +                                     let actions = $t02267622755._1
885 +                                     let wlgClaimedAmount = $t02267622755._2
883 886                                      $Tuple2(((((((actions :+ listAction) :+ IntegerEntry(keyUserWlNftNumber(addr), (wlNftNumber - 1))) :+ IntegerEntry(keyWlNftTotalStaked, max([0, (valueOrElse(getInteger(keyWlNftTotalStaked), 0) - 1)]))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
884 887                                      }
885 888                                  else {
888 891                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
889 892                                          else {
890 893                                              let arkNftNumber = valueOrElse(getInteger(keyUserArkNftNumber(addr)), 0)
891 -                                             let $t02334823432 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
892 -                                             let actions = $t02334823432._1
893 -                                             let wlgClaimedAmount = $t02334823432._2
894 +                                             let $t02341523499 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
895 +                                             let actions = $t02341523499._1
896 +                                             let wlgClaimedAmount = $t02341523499._2
894 897                                              $Tuple2((((((actions :+ listAction) :+ IntegerEntry(keyUserArkNftNumber(addr), (arkNftNumber - 1))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
895 898                                              }
896 899                                      }
932 935                              }
933 936                      }
934 937  
935 -                 let $t02482125037 = {
938 +                 let $t02488825104 = {
936 939                      let $l = i.payments
937 940                      let $s = size($l)
938 941                      let $acc0 = $Tuple4(0, 0, nil, -1)
946 949  
947 950                      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
948 951                      }
949 -                 let wlgFee = $t02482125037._1
950 -                 let totalBonus = $t02482125037._2
951 -                 let burnActions = $t02482125037._3
952 -                 let rarityIdx = $t02482125037._4
952 +                 let wlgFee = $t02488825104._1
953 +                 let totalBonus = $t02488825104._2
954 +                 let burnActions = $t02488825104._3
955 +                 let rarityIdx = $t02488825104._4
953 956                  let newRarityIdx = if ((rarityIdx == idxRarityC))
954 957                      then if ((rarityThresholds[idxThresholdC] > totalBonus))
955 958                          then idxRarityC
981 984                          let changeActions = if ((change > 0))
982 985                              then [ScriptTransfer(i.caller, change, wlgAssetId)]
983 986                              else nil
984 -                         let $t02657426735 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
985 -                         let issueNftActions = $t02657426735._1
986 -                         let nftAssetId = $t02657426735._2
987 +                         let $t02664126802 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
988 +                         let issueNftActions = $t02664126802._1
989 +                         let nftAssetId = $t02664126802._2
987 990                          let burned = size(burnActions)
988 991                          let burnCounterActions = if ((burned == 0))
989 992                              then nil
1027 1030                                      let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
1028 1031                                      let salt = fromBase58String(split(valueOrElse(getString(keyCurWeekTxIdByUser(addr)), "42_DEFAULT"), "_")[1])
1029 1032                                      let rand = getRandomNumber(100, salt, entropy)
1030 -                                     let $t02875429026 = if ((84 > rand))
1033 +                                     let $t02882129093 = if ((84 > rand))
1031 1034                                          then $Tuple2(1, idxRarityC)
1032 1035                                          else if ((98 > rand))
1033 1036                                              then $Tuple2(5, idxRarityU)
1034 1037                                              else $Tuple2(10, idxRarityL)
1035 -                                     let bonus = $t02875429026._1
1036 -                                     let rarityIdx = $t02875429026._2
1037 -                                     let $t02902929179 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1038 -                                     let issueNftActions = $t02902929179._1
1039 -                                     let nftAssetId = $t02902929179._2
1038 +                                     let bonus = $t02882129093._1
1039 +                                     let rarityIdx = $t02882129093._2
1040 +                                     let $t02909629246 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1041 +                                     let issueNftActions = $t02909629246._1
1042 +                                     let nftAssetId = $t02909629246._2
1040 1043                                      $Tuple2(((((issueNftActions ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)) :+ DeleteEntry(finishKey)), $Tuple2(nftAssetId, wlgRemain))
1041 1044                                      }
1042 1045                              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let MULT6 = 1000000
7 7  
8 8  let MULT7 = 10000000
9 9  
10 10  let MULT8 = 100000000
11 11  
12 12  let MULT14 = 100000000000000
13 13  
14 14  let DAY_MILLIS = 86400000
15 15  
16 16  let USDT2ACRES_MULTIPLIER = 10
17 17  
18 18  let ONE_PERCENT_DIVISOR = 100
19 19  
20 20  let RANDOM_DELAY = 2
21 21  
22 22  let NFT_CHEST_PRICE_USDT = 5000000
23 23  
24 24  let chain = take(drop(this.bytes, 1), 1)
25 25  
26 26  let WEEK_BLOCKS = match chain {
27 27      case _ => 
28 28          if ((base58'2W' == $match0))
29 29              then 10080
30 30              else if ((base58'2T' == $match0))
31 31                  then 180
32 32                  else throw("Unknown chain")
33 33  }
34 34  
35 35  let usdtAssetId = match chain {
36 36      case _ => 
37 37          if ((base58'2W' == $match0))
38 38              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
39 39              else if ((base58'2T' == $match0))
40 40                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
41 41                  else throw("Unknown chain")
42 42  }
43 43  
44 44  let defaultRest2AddressStr = match chain {
45 45      case _ => 
46 46          if ((base58'2W' == $match0))
47 47              then "3PFwYta8biEz31zpeFe5DJK8wE5trSpQVF8"
48 48              else if ((base58'2T' == $match0))
49 49                  then "3N7UuYar6264P58FBhVWKPQAh4Yua2hgngv"
50 50                  else throw("Unknown chain")
51 51  }
52 52  
53 53  let arbitrageDelay = match chain {
54 54      case _ => 
55 55          if ((base58'2W' == $match0))
56 56              then DAY_MILLIS
57 57              else if ((base58'2T' == $match0))
58 58                  then 60000
59 59                  else throw("Unknown chain")
60 60  }
61 61  
62 62  let oldStakingContractStr = match chain {
63 63      case _ => 
64 64          if ((base58'2W' == $match0))
65 65              then "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1"
66 66              else if ((base58'2T' == $match0))
67 67                  then "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm"
68 68                  else throw("Unknown chain")
69 69  }
70 70  
71 71  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
72 72  
73 73  
74 74  let IdxCfgAcres2Dapp = 1
75 75  
76 76  let IdxCfgWlgDapp = 2
77 77  
78 78  let IdxCfgInvestFundDapp = 5
79 79  
80 80  func keyRestCfg () = "%s__restConfig"
81 81  
82 82  
83 83  func keyRest2Address () = "%s__rest2Addr"
84 84  
85 85  
86 86  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
87 87  
88 88  
89 89  func getContractAddressOrFail (rest2Cfg,idx) = valueOrErrorMessage(addressFromString(rest2Cfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
90 90  
91 91  
92 92  let rest2Contract = addressFromStringValue(valueOrElse(getString(this, keyRest2Address()), defaultRest2AddressStr))
93 93  
94 94  let rest2Cfg = readRestCfgOrFail(rest2Contract)
95 95  
96 96  let acres2Contract = getContractAddressOrFail(rest2Cfg, IdxCfgAcres2Dapp)
97 97  
98 98  let wlgContract = getContractAddressOrFail(rest2Cfg, IdxCfgWlgDapp)
99 99  
100 100  let investFundContract = getContractAddressOrFail(rest2Cfg, IdxCfgInvestFundDapp)
101 101  
102 102  let oldAcresContractKey = "oldAcresContract"
103 103  
104 104  func keyBlocked () = "contractsBlocked"
105 105  
106 106  
107 107  func keyLastWeekTxIdByUser (addr) = ("lastWeekTxIdByUser_" + addr)
108 108  
109 109  
110 110  func keyCurWeekTxIdByUser (addr) = ("curWeekTxIdByUser_" + addr)
111 111  
112 112  
113 113  func keyCommit (address) = ("finishBlockFor_" + address)
114 114  
115 115  
116 116  let wlgAssetIdKey = "wlg_assetId"
117 117  
118 118  let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
119 119  
120 120  let acresIssuedAmountKey = "acresIssuedAmount"
121 121  
122 122  let acresAssetIdKey = "acresAssetId"
123 123  
124 124  let acresAssetId = valueOrErrorMessage(getBinary(acres2Contract, acresAssetIdKey), "ACRES is not issued yet")
125 125  
126 126  func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
127 127  
128 128  
129 129  func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
130 130  
131 131  
132 132  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
133 133  
134 134  
135 135  func keyStakedTimeByAssetIdAndOwner (assetId,addr) = ((("st_" + assetId) + "_") + addr)
136 136  
137 137  
138 138  func keyStakedNFTsByOwner (ownerAddr) = ("stakedNFTsByOwner_" + ownerAddr)
139 139  
140 140  
141 141  func asInt (v) = match v {
142 142      case n: Int => 
143 143          n
144 144      case _ => 
145 145          throw("fail to cast into Int")
146 146  }
147 147  
148 148  
149 149  func asTuple5Ints (val) = match val {
150 150      case t: (Int, Int, Int, Int, Int) => 
151 151          t
152 152      case _ => 
153 153          throw("fail to cast into (Int, Int, Int, Int, Int)")
154 154  }
155 155  
156 156  
157 157  func asTuple4Ints (val) = match val {
158 158      case t: (Int, Int, Int, Int) => 
159 159          t
160 160      case _ => 
161 161          throw("fail to cast into (Int, Int, Int, Int)")
162 162  }
163 163  
164 164  
165 165  func asTuple3Ints (val) = match val {
166 166      case t: (Int, Int, Int) => 
167 167          t
168 168      case _ => 
169 169          throw("fail to cast into (Int, Int, Int)")
170 170  }
171 171  
172 172  
173 173  func asTuple2Ints (val) = match val {
174 174      case t: (Int, Int) => 
175 175          t
176 176      case _ => 
177 177          throw("fail to cast into (Int, Int)")
178 178  }
179 179  
180 180  
181 181  func fixedPoint (val,decimals) = {
182 182      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
183 183      let lowPart = toString((val % tenPow))
184 184      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
185 185      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
186 186      }
187 187  
188 188  
189 189  func getRandomNumber (maxValue,salt,entropy) = if ((0 >= maxValue))
190 190      then throw("maxValue should be > 0")
191 191      else {
192 192          let randomHash = sha256_16Kb((salt + entropy))
193 193          (toInt(randomHash) % maxValue)
194 194          }
195 195  
196 196  
197 197  let M6_ = 1000000
198 198  
199 199  let M8_ = 100000000
200 200  
201 201  let wlgIssuedAmtKey = "wlg_issuedAmount"
202 202  
203 203  let zbIssuedAmtKey = "zbill_issuedAmount"
204 204  
205 205  func keyAcresStakedAmtByUser (addr) = ("acresStakedAmountByUser_" + addr)
206 206  
207 207  
208 208  func keyFarmingPowerByUser (addr) = ("farmingPowerByUser_" + addr)
209 209  
210 210  
211 211  let acresStakdTotalKey = "acresStakedAmountTotal"
212 212  
213 213  let totalFarmingPowerKey = "totalFarmingPower"
214 214  
215 215  let MAX_WL_NFTS = 3
216 216  
217 217  let MAX_ARK_NFTS = 1
218 218  
219 219  let ARK_NFT_BONUS = 5000
220 220  
221 221  let MAX_NFTS_STAKED_BY_USER = 4
222 222  
223 223  let keyNftTotalIssued = "nftTotalIssued"
224 224  
225 225  let keyNftTotalBurned = "nftTotalBurned"
226 226  
227 227  let keyWlNftTotalStaked = "WlNftTotalStaked"
228 228  
229 229  let keyArkNftTotalStaked = "ArkNftTotalStaked"
230 230  
231 231  func keyNftNumberByAssetId (assetId) = ("nftNumberByAssetId_" + assetId)
232 232  
233 233  
234 234  func keyUserWlNftNumber (addr) = ("userWlNftNumber_" + addr)
235 235  
236 236  
237 237  func keyUserArkNftNumber (addr) = ("userArkNftNumber_" + addr)
238 238  
239 239  
240 240  func keyUserFullBonus (addr) = ("userFullBonus_" + addr)
241 241  
242 242  
243 243  let levelAcres = [0, 10, 20, 40, 80, 150, 250, 400, 700, 1000]
244 244  
245 245  func getLevelByAcres (acres) = {
246 246      let acr = ((acres + 99999999) / M8_)
247 247      func checker (acc,item) =     if ((item >= acr))
248 248          then acc
249 249          else (acc + 1)
250 250  
251 251      let $l = levelAcres
252 252      let $s = size($l)
253 253      let $acc0 = 0
254 254      func $f0_1 ($a,$i) =     if (($i >= $s))
255 255          then $a
256 256          else checker($a, $l[$i])
257 257  
258 258      func $f0_2 ($a,$i) =     if (($i >= $s))
259 259          then $a
260 260          else throw("List size exceeds 10")
261 261  
262 262      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
263 263      }
264 264  
265 265  
266 266  func getFarmingPowerByAcres (acres) = ((acres * 20) * (getLevelByAcres(acres) + 4))
267 267  
268 268  
269 269  func getFarmingPowerByAcresAndBonus (acres,bonus6) = {
270 270      let notBonused = getFarmingPowerByAcres(acres)
271 271      $Tuple2(fraction(notBonused, (M6_ + bonus6), M6_), notBonused)
272 272      }
273 273  
274 274  
275 275  let teamAddrKey = "teamAddr"
276 276  
277 277  func keyLastWlgTradeTimeByUser (addr) = ("lastArbTimeUser_" + addr)
278 278  
279 279  
280 280  let keyLastAcresSellTime = "lastAcresSellTime"
281 281  
282 282  let keyLastLimitLeft = "lastLimitLeft"
283 283  
284 284  let names = ["Gold shovel", "Pickaxe"]
285 285  
286 286  let descriptions = ["Reward for early birds", "Increases FarmPower"]
287 287  
288 288  let idxDescrShovel = 0
289 289  
290 290  let idxDescrPickaxe = 1
291 291  
292 292  let rarityThresholds = [5, 10, 20]
293 293  
294 294  let idxThresholdC = 0
295 295  
296 296  let idxThresholdU = 1
297 297  
298 298  let idxThresholdL = 2
299 299  
300 300  let namez = ["SHOVEL", "PICKAXE"]
301 301  
302 302  let idxNameShovel = 0
303 303  
304 304  let idxNamePickaxe = 1
305 305  
306 306  let contentKeyz = ["contentPickaxeC", "contentPickaxeU", "contentPickaxeL", "contentPickaxeE", "contentShovelP"]
307 307  
308 308  let idxKeyC = 0
309 309  
310 310  let idxKeyP = 4
311 311  
312 312  let rarityNames = ["Common", "Uncommon", "Legendary", "Epic", "Promo"]
313 313  
314 314  let idxRarityC = 0
315 315  
316 316  let idxRarityU = 1
317 317  
318 318  let idxRarityL = 2
319 319  
320 320  let idxRarityE = 3
321 321  
322 322  let idxRarityP = 4
323 323  
324 324  let collectionz = ["Digging tools"]
325 325  
326 326  let idxCollDig = 0
327 327  
328 328  let bonusTypez = ["FarmPower"]
329 329  
330 330  let idxBonusTypeFp = 0
331 331  
332 332  func prolog (i) = if (if ((i.originCaller != rest2Contract))
333 333      then valueOrElse(getBoolean(keyBlocked()), false)
334 334      else false)
335 335      then throw("Contracts are under maintenance")
336 336      else {
337 337          let addr = toString(i.originCaller)
338 338          let week = (height / WEEK_BLOCKS)
339 339          let lastWeekKey = keyLastWeekTxIdByUser(addr)
340 340          let lastWeekTxIdByUser = getString(lastWeekKey)
341 341          let txId = toBase58String(i.transactionId)
342 342          let wtx = ((toString(week) + "_") + txId)
343 343          let curWeekKey = keyCurWeekTxIdByUser(addr)
344 344          if (isDefined(lastWeekTxIdByUser))
345 345              then {
346 346                  let lastWeekTx = split(value(lastWeekTxIdByUser), "_")
347 347                  if ((lastWeekTx[0] == toString(week)))
348 348                      then [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
349 349                      else if ((lastWeekTx[0] == toString((week - 1))))
350 350                          then [StringEntry(curWeekKey, wtx)]
351 351                          else {
352 352                              let curWeekTxIdByUser = getStringValue(curWeekKey)
353 353                              let curWeekTx = split(curWeekTxIdByUser, "_")
354 354                              if ((curWeekTx[0] == toString(week)))
355 355                                  then [StringEntry(curWeekKey, wtx)]
356 356                                  else [StringEntry(lastWeekKey, curWeekTxIdByUser), StringEntry(curWeekKey, wtx)]
357 357                              }
358 358                  }
359 359              else [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
360 360          }
361 361  
362 362  
363 363  func createNftDescrCustom (contKey,nftSerial,collection,name,descr,rarity,bonus,bonusType) = (((((((((((((((((((((((("{\"url\": \"https://waveslands.com\", " + "\"contentKey\": \"") + contKey) + "\", ") + "\"number\": ") + toString(nftSerial)) + ", ") + "\"collection\": \"") + collection) + "\", ") + "\"name\": \"") + name) + "\", ") + "\"description\": \"") + descr) + "\", ") + "\"rare\": \"") + rarity) + "\", ") + "\"bonus\": ") + toString(bonus)) + ", ") + "\"bonusType\": \"") + bonusType) + "\"}")
364 364  
365 365  
366 366  func issueNftCustom (nameIdx,contKeyIdx,collIdx,rarityIdx,bonusPerc,descrIdx,bonusTypeIdx,addr) = {
367 367      let nftSerial = valueOrElse(getInteger(keyNftTotalIssued), 0)
368 368      let rarity = rarityNames[rarityIdx]
369 369      let name = (((namez[nameIdx] + "-") + take(rarity, 1)) + toString(bonusPerc))
370 370      let issue = Issue(name, createNftDescrCustom(contentKeyz[contKeyIdx], nftSerial, collectionz[collIdx], names[nameIdx], descriptions[descrIdx], rarityNames[rarityIdx], bonusPerc, bonusTypez[bonusTypeIdx]), 1, 0, false)
371 371      let nftAssetId = calculateAssetId(issue)
372 372      $Tuple2([issue, IntegerEntry(keyNftTotalIssued, (nftSerial + 1)), IntegerEntry(keyNftNumberByAssetId(toBase58String(nftAssetId)), nftSerial), ScriptTransfer(addr, 1, nftAssetId)], nftAssetId)
373 373      }
374 374  
375 375  
376 376  func bonusByDescription (descr) = if (!(contains(descr, "\"bonusType\": \"FarmPower\"")))
377 377      then throw(("NFT is not supported: " + descr))
378 378      else {
379 379          let bonusStr = split_4C(split_4C(descr, "\"bonus\":")[1], ",")[0]
380 380          parseIntValue(drop(bonusStr, (valueOrElse(lastIndexOf(bonusStr, " "), -1) + 1)))
381 381          }
382 382  
383 383  
384 384  func rarityIdxByDescriprion (descr) = if (!(contains(descr, "\"rare\"")))
385 385      then throw(("NFT is not supported: " + descr))
386 386      else {
387 387          let rarityStr = split_4C(split_4C(split_4C(descr, "\"rare\"")[1], ",")[0], "\"")[1]
388 388          value(indexOf(rarityNames, rarityStr))
389 389          }
390 390  
391 391  
392 392  func stakeUnstakeAcresInternal (amt,address,bonusDelta) = if (if ((amt == 0))
393 393      then (bonusDelta == 0)
394 394      else false)
395 395      then throw("Nothing to do")
396 396      else {
397 397          let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
398 398          if ((wlgResult == wlgResult))
399 399              then {
400 400                  let now = lastBlock.timestamp
401 401                  let timeKey = keyAcresStakedTimeByUser(address)
402 402                  let amountKey = keyAcresStakedAmtByUser(address)
403 403                  let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
404 404                  if (if ((0 > amt))
405 405                      then (0 > (oldAcresAmount + amt))
406 406                      else false)
407 407                      then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(-(amt), 8)))
408 408                      else {
409 409                          let newAcresAmount = (oldAcresAmount + amt)
410 410                          let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
411 411                          let userFpKey = keyFarmingPowerByUser(address)
412 412                          let oldFp = valueOrElse(getInteger(userFpKey), 0)
413 413                          let bonusKey = keyUserFullBonus(address)
414 414                          let oldBonus = valueOrElse(getInteger(acres2Contract, bonusKey), 0)
415 415                          if (if ((0 > bonusDelta))
416 416                              then (0 > (oldBonus + bonusDelta))
417 417                              else false)
418 418                              then throw((((("You have only " + fixedPoint(oldBonus, 4)) + "% bonus, and tried to unstake ") + fixedPoint(-(bonusDelta), 4)) + "%"))
419 419                              else {
420 420                                  let $t062526351 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
421 421                                  let newBonusedFp = $t062526351._1
422 422                                  let ignored = $t062526351._2
423 423                                  let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
424 424                                  let acresActions = if ((amt == 0))
425 425                                      then nil
426 426                                      else [IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt))]
427 -                                 $Tuple2(((((acresActions :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))) :+ IntegerEntry(bonusKey, (oldBonus + bonusDelta))), wlgResult)
427 +                                 let bonusActions = if ((bonusDelta == 0))
428 +                                     then nil
429 +                                     else [IntegerEntry(bonusKey, (oldBonus + bonusDelta))]
430 +                                 $Tuple2(((((acresActions ++ bonusActions) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))), wlgResult)
428 431                                  }
429 432                          }
430 433                  }
431 434              else throw("Strict value is not equal to itself.")
432 435          }
433 436  
434 437  
435 438  func getWlgPrice (usdtBalanceCorrection) = {
436 439      let issuedAmount = valueOrErrorMessage(getInteger(wlgContract, wlgIssuedAmtKey), "WLGOLD is not issued yet")
437 440      let wlgUsd = assetBalance(wlgContract, usdtAssetId)
438 441      let acres2Usd = (assetBalance(acres2Contract, usdtAssetId) - usdtBalanceCorrection)
439 442      let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
440 443      let totalFundsUsd = ((acres2Usd + wlgUsd) + investFundTotal)
441 444      fraction(totalFundsUsd, MULT8, issuedAmount)
442 445      }
443 446  
444 447  
445 448  func getSwapLimitAcres () = {
446 449      let wlgUsd = assetBalance(wlgContract, usdtAssetId)
447 450      let acres2Usd = assetBalance(this, usdtAssetId)
448 451      let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
449 452      let defaultLimit = (((acres2Usd + wlgUsd) + investFundTotal) / ONE_PERCENT_DIVISOR)
450 453      let lastLimitLeft = valueOrElse(getInteger(keyLastLimitLeft), defaultLimit)
451 454      let lastTime = valueOrElse(getInteger(keyLastAcresSellTime), 0)
452 455      let now = lastBlock.timestamp
453 456      let currentLimit = (lastLimitLeft + fraction(defaultLimit, (now - lastTime), DAY_MILLIS))
454 457      let limitLeftUsdt = min([currentLimit, defaultLimit])
455 458      $Tuple2(IntegerEntry(keyLastAcresSellTime, now), limitLeftUsdt)
456 459      }
457 460  
458 461  
459 462  let arkOracle = addressFromStringValue("3PJgZ6AK1WVCpdCmEZpesHmaKvrQDdXG5og")
460 463  
461 464  let incubator = valueOrElse(getString(arkOracle, "static_incubatorAddress"), "")
462 465  
463 466  let breeder = valueOrElse(getString(arkOracle, "static_breederAddress"), "")
464 467  
465 468  let turtleIncubator = valueOrElse(getString(arkOracle, "static_turtleIncubatorAddress"), "")
466 469  
467 470  let turtleBreeder = valueOrElse(getString(arkOracle, "static_turtleBreederAddress"), "")
468 471  
469 472  let canineIncubator = valueOrElse(getString(arkOracle, "static_canineIncubatorAddress"), "")
470 473  
471 474  let canineBreeder = valueOrElse(getString(arkOracle, "static_canineBreederAddress"), "")
472 475  
473 476  let felineIncubator = valueOrElse(getString(arkOracle, "static_felineIncubatorAddress"), "")
474 477  
475 478  let felineBreeder = valueOrElse(getString(arkOracle, "static_felineBreederAddress"), "")
476 479  
477 480  let mutantBreeder = valueOrElse(getString(arkOracle, "static_mutantIncubatorAddress"), "")
478 481  
479 482  func isArkimalIssued (nfo) = {
480 483      let issuer = toString(nfo.issuer)
481 484      if (if (if (if (if (if (if (if (if (if ((chain == base58'2T'))
482 485          then (issuer == oldStakingContractStr)
483 486          else false)
484 487          then true
485 488          else (issuer == incubator))
486 489          then true
487 490          else (issuer == breeder))
488 491          then true
489 492          else (issuer == turtleIncubator))
490 493          then true
491 494          else (issuer == turtleBreeder))
492 495          then true
493 496          else (issuer == canineIncubator))
494 497          then true
495 498          else (issuer == canineBreeder))
496 499          then true
497 500          else (issuer == felineIncubator))
498 501          then true
499 502          else (issuer == felineBreeder))
500 503          then nfo.name
501 504          else if ((issuer == mutantBreeder))
502 505              then nfo.description
503 506              else ""
504 507      }
505 508  
506 509  
507 510  func stakeNftInternal (addr,assetIdStr,bonus6,userNumKey,totalNumKey,limit) = {
508 511      let nftNumber = valueOrElse(getInteger(userNumKey), 0)
509 512      if ((nftNumber >= limit))
510 513          then throw((("You can stake max " + toString(limit)) + " of such NFTs"))
511 514          else {
512 -             let $t01056310639 = stakeUnstakeAcresInternal(0, addr, bonus6)
513 -             let actions = $t01056310639._1
514 -             let wlgClaimedAmount = $t01056310639._2
515 +             let $t01063010706 = stakeUnstakeAcresInternal(0, addr, bonus6)
516 +             let actions = $t01063010706._1
517 +             let wlgClaimedAmount = $t01063010706._2
515 518              $Tuple2((((actions :+ IntegerEntry(userNumKey, (nftNumber + 1))) :+ IntegerEntry(totalNumKey, (valueOrElse(getInteger(totalNumKey), 0) + 1))) :+ IntegerEntry(keyStakedTimeByAssetIdAndOwner(assetIdStr, addr), lastBlock.timestamp)), wlgClaimedAmount)
516 519              }
517 520      }
518 521  
519 522  
520 523  @Callable(i)
521 524  func saveLastTx () = if (!(containsElement([wlgContract], i.caller)))
522 525      then throw("Access denied")
523 526      else $Tuple2(prolog(i), 42)
524 527  
525 528  
526 529  
527 530  @Callable(i)
528 531  func constructorV1 (rest2Addr,oldAcrContract) = if ((i.caller != this))
529 532      then throw("Permission denied")
530 533      else {
531 534          let oldAcrContAddr = addressFromStringValue(oldAcrContract)
532 535  [IntegerEntry(acresIssuedAmountKey, getIntegerValue(oldAcrContAddr, acresIssuedAmountKey)), BinaryEntry(acresAssetIdKey, getBinaryValue(oldAcrContAddr, acresAssetIdKey)), StringEntry(keyRest2Address(), rest2Addr), StringEntry(oldAcresContractKey, oldAcrContract)]
533 536          }
534 537  
535 538  
536 539  
537 540  @Callable(i)
538 541  func setBlocked (isBlocked) = if ((i.caller != this))
539 542      then throw("permission denied")
540 543      else [BooleanEntry(keyBlocked(), isBlocked)]
541 544  
542 545  
543 546  
544 547  @Callable(i)
545 548  func unstakeAcres (amount) = {
546 549      let prologActions = prolog(i)
547 550      if ((0 >= amount))
548 551          then throw("Amount should be positive")
549 552          else {
550 553              let address = toString(i.caller)
551 554              if ((size(i.payments) != 0))
552 555                  then throw("No payments required")
553 556                  else {
554 557                      let arbReleaseTime = (valueOrElse(getInteger(wlgContract, keyLastWlgTradeTimeByUser(address)), 0) + arbitrageDelay)
555 558                      if ((arbReleaseTime > lastBlock.timestamp))
556 559                          then throw(("You traded some WLGOLD, cannot unstake until " + toString(arbReleaseTime)))
557 560                          else {
558 -                             let $t01221312293 = stakeUnstakeAcresInternal(-(amount), address, 0)
559 -                             let actions = $t01221312293._1
560 -                             let wlgClaimedAmount = $t01221312293._2
561 +                             let $t01228012360 = stakeUnstakeAcresInternal(-(amount), address, 0)
562 +                             let actions = $t01228012360._1
563 +                             let wlgClaimedAmount = $t01228012360._2
561 564                              $Tuple2(((actions :+ ScriptTransfer(i.caller, amount, acresAssetId)) ++ prologActions), wlgClaimedAmount)
562 565                              }
563 566                      }
564 567              }
565 568      }
566 569  
567 570  
568 571  
569 572  @Callable(i)
570 573  func stakeAcres () = {
571 574      let prologActions = prolog(i)
572 575      let address = toString(i.caller)
573 576      if ((size(i.payments) != 1))
574 577          then throw("exactly 1 payment must be attached")
575 578          else {
576 579              let pmt = i.payments[0]
577 580              let amt = pmt.amount
578 581              if (if (!(isDefined(pmt.assetId)))
579 582                  then true
580 583                  else (value(pmt.assetId) != acresAssetId))
581 584                  then throw("ACRES payments only!")
582 585                  else {
583 -                     let $t01274412820 = stakeUnstakeAcresInternal(amt, address, 0)
584 -                     let actions = $t01274412820._1
585 -                     let wlgClaimedAmount = $t01274412820._2
586 +                     let $t01281112887 = stakeUnstakeAcresInternal(amt, address, 0)
587 +                     let actions = $t01281112887._1
588 +                     let wlgClaimedAmount = $t01281112887._2
586 589                      $Tuple2((actions ++ prologActions), wlgClaimedAmount)
587 590                      }
588 591              }
589 592      }
590 593  
591 594  
592 595  
593 596  @Callable(i)
594 597  func buyAcres () = {
595 598      let prologActions = prolog(i)
596 599      if ((size(i.payments) != 1))
597 600          then throw("exactly 1 payment must be attached")
598 601          else {
599 602              let pmt = i.payments[0]
600 603              let usdtAmount = pmt.amount
601 604              if (if (!(isDefined(pmt.assetId)))
602 605                  then true
603 606                  else (value(pmt.assetId) != usdtAssetId))
604 607                  then throw("USDT payments only!")
605 608                  else if ((MULT6 > usdtAmount))
606 609                      then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
607 610                      else {
608 611                          let acresAmount = (usdtAmount * USDT2ACRES_MULTIPLIER)
609 612                          let wlgAmount = fraction(usdtAmount, MULT8, getWlgPrice(usdtAmount))
610 613                          let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
611 614                          let req = invoke(oldAcresAddress, "requestAcresCallback", [acresAmount], nil)
612 615                          if ((req == req))
613 616                              then {
614 617                                  let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [wlgAmount], nil))
615 618                                  $Tuple2(([ScriptTransfer(i.caller, acresAmount, acresAssetId)] ++ prologActions), wlgRemain)
616 619                                  }
617 620                              else throw("Strict value is not equal to itself.")
618 621                          }
619 622              }
620 623      }
621 624  
622 625  
623 626  
624 627  @Callable(i)
625 628  func buyAcresREADONLY (usdtAmount) = {
626 629      let acresAmount = (usdtAmount * USDT2ACRES_MULTIPLIER)
627 630      let wlgToBurn = fraction(usdtAmount, MULT8, getWlgPrice(usdtAmount))
628 631      $Tuple2(nil, [acresAmount, MULT6, acresAmount, wlgToBurn])
629 632      }
630 633  
631 634  
632 635  
633 636  @Callable(i)
634 637  func sellAcres () = {
635 638      let prologActions = prolog(i)
636 639      if ((size(i.payments) != 1))
637 640          then throw("exactly 1 payment must be attached")
638 641          else {
639 642              let pmt = i.payments[0]
640 643              let acresAmount = pmt.amount
641 644              if (if (!(isDefined(pmt.assetId)))
642 645                  then true
643 646                  else (value(pmt.assetId) != acresAssetId))
644 647                  then throw("ACRES payments only!")
645 648                  else if ((MULT7 > acresAmount))
646 649                      then throw((("Min payment should be " + fixedPoint(MULT7, 8)) + " ACRES"))
647 650                      else {
648 651                          let addr = toString(i.caller)
649 -                         let $t01467714725 = getSwapLimitAcres()
650 -                         let limitAction = $t01467714725._1
651 -                         let maxUsdt = $t01467714725._2
652 +                         let $t01474414792 = getSwapLimitAcres()
653 +                         let limitAction = $t01474414792._1
654 +                         let maxUsdt = $t01474414792._2
652 655                          let maxAcres = (maxUsdt * USDT2ACRES_MULTIPLIER)
653 656                          if ((acresAmount > maxAcres))
654 657                              then throw((("You can sell max " + fixedPoint(maxAcres, 8)) + " ACRES"))
655 658                              else {
656 659                                  let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
657 660                                  $Tuple2(([limitAction, IntegerEntry(keyLastLimitLeft, (maxUsdt - usdtAmount)), ScriptTransfer(i.caller, usdtAmount, usdtAssetId)] ++ prologActions), usdtAmount)
658 661                                  }
659 662                          }
660 663              }
661 664      }
662 665  
663 666  
664 667  
665 668  @Callable(i)
666 669  func sellAcresREADONLY (address,acresAmount) = {
667 -     let $t01522115269 = getSwapLimitAcres()
668 -     let limitAction = $t01522115269._1
669 -     let maxUsdt = $t01522115269._2
670 +     let $t01528815336 = getSwapLimitAcres()
671 +     let limitAction = $t01528815336._1
672 +     let maxUsdt = $t01528815336._2
670 673      let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
671 674      $Tuple2(nil, [usdtAmount, MULT7, (maxUsdt * USDT2ACRES_MULTIPLIER), 0])
672 675      }
673 676  
674 677  
675 678  
676 679  @Callable(i)
677 680  func convertOldStakes () = {
678 681      let prologActions = prolog(i)
679 682      let address = toString(i.caller)
680 683      if ((size(i.payments) != 0))
681 684          then throw("No payments required")
682 685          else {
683 686              let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
684 687              let amount = valueOrElse(getInteger(oldAcresAddress, keyAcresStakedAmtByUser(address)), 0)
685 688              let gotAcres0 = if ((amount > 0))
686 689                  then asTuple2Ints(invoke(oldAcresAddress, "unstakeAcresCallback", [amount, address], nil))
687 690                  else $Tuple2(0, 0)
688 691              let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
689 692              let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
690 693              let landsResult = if (isDefined(landsStr))
691 694                  then {
692 695                      let lands = split_51C(value(landsStr), "_")
693 696                      func oneLand (acc,landAssetId) =                     if ((landAssetId == ""))
694 697                          then throw("landAssetId is required")
695 698                          else {
696 699                              let r = asTuple5Ints(invoke(oldStakingAddress, "unstakeLandCallback", [landAssetId, address], nil))
697 700                              $Tuple4((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4))
698 701                              }
699 702  
700 703                      let rr = {
701 704                          let $l = lands
702 705                          let $s = size($l)
703 706                          let $acc0 = $Tuple4(0, 0, 0, 0)
704 707                          func $f0_1 ($a,$i) =                         if (($i >= $s))
705 708                              then $a
706 709                              else oneLand($a, $l[$i])
707 710  
708 711                          func $f0_2 ($a,$i) =                         if (($i >= $s))
709 712                              then $a
710 713                              else throw("List size exceeds 100")
711 714  
712 715                          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
713 716                          }
714 717                      let finalize = invoke(oldStakingAddress, "unstakeLandsFinalizeCallback", [address], nil)
715 718                      if ((finalize == finalize))
716 719                          then {
717 720                              let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
718 721                              if ((req == req))
719 722                                  then {
720 -                                     let $t01710617244 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
721 -                                     let nftActions = $t01710617244._1
722 -                                     let nftAssetId = $t01710617244._2
723 +                                     let $t01717317311 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
724 +                                     let nftActions = $t01717317311._1
725 +                                     let nftAssetId = $t01717317311._2
723 726                                      $Tuple5(rr._1, rr._2, rr._3, rr._4, nftActions)
724 727                                      }
725 728                                  else throw("Strict value is not equal to itself.")
726 729                              }
727 730                          else throw("Strict value is not equal to itself.")
728 731                      }
729 732                  else $Tuple5(0, 0, 0, 0, nil)
730 733              let duckAssetId = valueOrElse(getString(oldStakingAddress, keyStakedDuckByOwner(address)), "")
731 734              let duckResult = if ((duckAssetId != ""))
732 735                  then asTuple3Ints(invoke(oldStakingAddress, "unstakeDuckCallback", [duckAssetId, address], nil))
733 736                  else $Tuple3(0, 0, 0)
734 737              let x = stakeUnstakeAcresInternal((((((((gotAcres0._1 + landsResult._1) + landsResult._2) + landsResult._3) + landsResult._4) + duckResult._1) + duckResult._2) + duckResult._3), address, 0)
735 738              $Tuple2(((landsResult._5 ++ x._1) ++ prologActions), x._2)
736 739              }
737 740      }
738 741  
739 742  
740 743  
741 744  @Callable(i)
742 745  func unstakeLandsREADONLY (address) = {
743 746      let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
744 747      let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
745 748      let landsResult = if (isDefined(landsStr))
746 749          then {
747 750              let lands = split_51C(value(landsStr), "_")
748 751              func oneLand (acc,landAssetId) =             if ((landAssetId == ""))
749 752                  then throw("landAssetId is required")
750 753                  else {
751 754                      let r = asTuple4Ints(invoke(oldStakingAddress, "unstakeLandREADONLY", [landAssetId, address], nil))
752 755                      $Tuple4((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4))
753 756                      }
754 757  
755 758              let $l = lands
756 759              let $s = size($l)
757 760              let $acc0 = $Tuple4(0, 0, 0, 0)
758 761              func $f0_1 ($a,$i) =             if (($i >= $s))
759 762                  then $a
760 763                  else oneLand($a, $l[$i])
761 764  
762 765              func $f0_2 ($a,$i) =             if (($i >= $s))
763 766                  then $a
764 767                  else throw("List size exceeds 100")
765 768  
766 769              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
767 770              }
768 771          else $Tuple4(0, 0, 0, 0)
769 772      $Tuple2(nil, landsResult)
770 773      }
771 774  
772 775  
773 776  
774 777  @Callable(i)
775 778  func stakeAcresCallback (addr) = if ((i.caller != addressFromStringValue(oldStakingContractStr)))
776 779      then throw("Permission denied")
777 780      else stakeUnstakeAcresInternal(i.payments[0].amount, addr, 0)
778 781  
779 782  
780 783  
781 784  @Callable(i)
782 785  func simulateStakeAcresREADONLY (address,addedAmount) = {
783 786      let amountKey = keyAcresStakedAmtByUser(address)
784 787      let newAcresAmount = (valueOrElse(getInteger(amountKey), 0) + addedAmount)
785 788      let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
786 789      let userFpKey = keyFarmingPowerByUser(address)
787 790      let oldFp = valueOrElse(getInteger(userFpKey), 0)
788 791      let userBonus = valueOrElse(getInteger(acres2Contract, keyUserFullBonus(address)), 0)
789 -     let $t01942619513 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
790 -     let newBonusedFp = $t01942619513._1
791 -     let ignored = $t01942619513._2
792 +     let $t01949319580 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
793 +     let newBonusedFp = $t01949319580._1
794 +     let ignored = $t01949319580._2
792 795      let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
793 796      let newTotalFp = ((oldTotalFp + newBonusedFp) - oldFp)
794 797      $Tuple2(nil, [oldFp, newBonusedFp, oldTotalFp, newTotalFp])
795 798      }
796 799  
797 800  
798 801  
799 802  @Callable(i)
800 803  func issuePickC1 (forAddress) = if ((i.caller != wlgContract))
801 804      then throw("Permission denied")
802 805      else issueNftCustom(idxNamePickaxe, idxKeyC, idxCollDig, idxRarityC, 1, idxDescrPickaxe, idxBonusTypeFp, addressFromStringValue(forAddress))
803 806  
804 807  
805 808  
806 809  @Callable(i)
807 810  func stakeNFT () = {
808 811      let prologActions = prolog(i)
809 812      if ((size(i.payments) != 1))
810 813          then throw("Exactly one payment required")
811 814          else {
812 815              let pmt = value(i.payments[0])
813 816              if ((pmt.amount != 1))
814 817                  then throw("NFT token should be attached as payment")
815 818                  else {
816 819                      let assetId = value(pmt.assetId)
817 820                      let asset = value(assetInfo(assetId))
818 821                      let assetIdStr = toBase58String(assetId)
819 822                      let addr = toString(i.caller)
820 823                      let nftsKey = keyStakedNFTsByOwner(addr)
821 824                      let nftsStr = getString(nftsKey)
822 825                      let nfts = if (isDefined(nftsStr))
823 826                          then split_4C(value(nftsStr), "_")
824 827                          else nil
825 828                      if (containsElement(nfts, assetIdStr))
826 829                          then throw(("Your staked NFTs already contain " + assetIdStr))
827 830                          else if ((size(nfts) >= MAX_NFTS_STAKED_BY_USER))
828 831                              then throw((("Your already staked max (" + toString(MAX_NFTS_STAKED_BY_USER)) + ") NFTs"))
829 832                              else {
830 833                                  let listAction = StringEntry(nftsKey, makeString_2C((nfts :+ assetIdStr), "_"))
831 834                                  if ((asset.issuer == this))
832 835                                      then {
833 -                                         let $t02092221112 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
834 -                                         let actions = $t02092221112._1
835 -                                         let wlgClaimedAmount = $t02092221112._2
836 +                                         let $t02098921179 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
837 +                                         let actions = $t02098921179._1
838 +                                         let wlgClaimedAmount = $t02098921179._2
836 839                                          $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
837 840                                          }
838 841                                      else if ((isArkimalIssued(asset) == ""))
839 842                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
840 843                                          else {
841 -                                             let $t02129321444 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
842 -                                             let actions = $t02129321444._1
843 -                                             let wlgClaimedAmount = $t02129321444._2
844 +                                             let $t02136021511 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
845 +                                             let actions = $t02136021511._1
846 +                                             let wlgClaimedAmount = $t02136021511._2
844 847                                              $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
845 848                                              }
846 849                                  }
847 850                      }
848 851              }
849 852      }
850 853  
851 854  
852 855  
853 856  @Callable(i)
854 857  func unstakeNFT (assetIdStr) = {
855 858      let prologActions = prolog(i)
856 859      if ((size(i.payments) != 0))
857 860          then throw("No payments required")
858 861          else {
859 862              let assetId = fromBase58String(assetIdStr)
860 863              let addr = toString(i.caller)
861 864              let asset = value(assetInfo(assetId))
862 865              let timeKey = keyStakedTimeByAssetIdAndOwner(assetIdStr, addr)
863 866              if (!(isDefined(getInteger(timeKey))))
864 867                  then throw((("NFT " + asset.name) + " is not staked by you"))
865 868                  else {
866 869                      let nftsKey = keyStakedNFTsByOwner(addr)
867 870                      let nfts = split_4C(valueOrElse(getString(nftsKey), ""), "_")
868 871                      let idx = indexOf(nfts, assetIdStr)
869 872                      if (!(isDefined(idx)))
870 873                          then throw(("Your staked NFTs don't contain " + assetIdStr))
871 874                          else {
872 875                              let listAction = if ((size(nfts) > 1))
873 876                                  then StringEntry(nftsKey, makeString_2C(removeByIndex(nfts, value(idx)), "_"))
874 877                                  else DeleteEntry(nftsKey)
875 878                              let isWL = (asset.issuer == this)
876 879                              if (isWL)
877 880                                  then {
878 881                                      let wlNftNumber = valueOrElse(getInteger(keyUserWlNftNumber(addr)), 0)
879 882                                      let bonusVal = (bonusByDescription(value(asset.description)) * 10000)
880 -                                     let $t02260922688 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
881 -                                     let actions = $t02260922688._1
882 -                                     let wlgClaimedAmount = $t02260922688._2
883 +                                     let $t02267622755 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
884 +                                     let actions = $t02267622755._1
885 +                                     let wlgClaimedAmount = $t02267622755._2
883 886                                      $Tuple2(((((((actions :+ listAction) :+ IntegerEntry(keyUserWlNftNumber(addr), (wlNftNumber - 1))) :+ IntegerEntry(keyWlNftTotalStaked, max([0, (valueOrElse(getInteger(keyWlNftTotalStaked), 0) - 1)]))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
884 887                                      }
885 888                                  else {
886 889                                      let arkimalName = isArkimalIssued(asset)
887 890                                      if ((arkimalName == ""))
888 891                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
889 892                                          else {
890 893                                              let arkNftNumber = valueOrElse(getInteger(keyUserArkNftNumber(addr)), 0)
891 -                                             let $t02334823432 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
892 -                                             let actions = $t02334823432._1
893 -                                             let wlgClaimedAmount = $t02334823432._2
894 +                                             let $t02341523499 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
895 +                                             let actions = $t02341523499._1
896 +                                             let wlgClaimedAmount = $t02341523499._2
894 897                                              $Tuple2((((((actions :+ listAction) :+ IntegerEntry(keyUserArkNftNumber(addr), (arkNftNumber - 1))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
895 898                                              }
896 899                                      }
897 900                              }
898 901                      }
899 902              }
900 903      }
901 904  
902 905  
903 906  
904 907  @Callable(i)
905 908  func exchangeNFTs () = {
906 909      let prologActions = prolog(i)
907 910      if ((3 > size(i.payments)))
908 911          then throw("Min one WLGOLD and 2 NFT payments allowed")
909 912          else if ((size(i.payments) > 10))
910 913              then throw("Max one WLGOLD and 9 NFT payments allowed")
911 914              else {
912 915                  let addr = toString(i.caller)
913 916                  func addUp (acc,pmt) =                 {
914 917                      let assetId = valueOrErrorMessage(pmt.assetId, "WAVES payments not allowed")
915 918                      if ((assetId == wlgAssetId))
916 919                          then $Tuple4((acc._1 + pmt.amount), acc._2, acc._3, acc._4)
917 920                          else {
918 921                              let asset = value(assetInfo(assetId))
919 922                              if ((asset.issuer != this))
920 923                                  then throw("Only WL-issued NFTs allowed")
921 924                                  else {
922 925                                      let rarityIx = rarityIdxByDescriprion(value(asset.description))
923 926                                      if (if ((acc._4 > 0))
924 927                                          then (rarityIx != acc._4)
925 928                                          else false)
926 929                                          then throw("You can exchange only NFTs of the same rarity")
927 930                                          else {
928 931                                              let bonusPerc = bonusByDescription(value(asset.description))
929 932                                              $Tuple4(acc._1, (acc._2 + bonusPerc), (acc._3 :+ Burn(assetId, 1)), rarityIx)
930 933                                              }
931 934                                      }
932 935                              }
933 936                      }
934 937  
935 -                 let $t02482125037 = {
938 +                 let $t02488825104 = {
936 939                      let $l = i.payments
937 940                      let $s = size($l)
938 941                      let $acc0 = $Tuple4(0, 0, nil, -1)
939 942                      func $f0_1 ($a,$i) =                     if (($i >= $s))
940 943                          then $a
941 944                          else addUp($a, $l[$i])
942 945  
943 946                      func $f0_2 ($a,$i) =                     if (($i >= $s))
944 947                          then $a
945 948                          else throw("List size exceeds 10")
946 949  
947 950                      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
948 951                      }
949 -                 let wlgFee = $t02482125037._1
950 -                 let totalBonus = $t02482125037._2
951 -                 let burnActions = $t02482125037._3
952 -                 let rarityIdx = $t02482125037._4
952 +                 let wlgFee = $t02488825104._1
953 +                 let totalBonus = $t02488825104._2
954 +                 let burnActions = $t02488825104._3
955 +                 let rarityIdx = $t02488825104._4
953 956                  let newRarityIdx = if ((rarityIdx == idxRarityC))
954 957                      then if ((rarityThresholds[idxThresholdC] > totalBonus))
955 958                          then idxRarityC
956 959                          else if ((rarityThresholds[idxThresholdU] > totalBonus))
957 960                              then idxRarityU
958 961                              else throw((("You can advance only one level of rarity, max total bonus " + toString(rarityThresholds[idxThresholdU])) + "%"))
959 962                      else if ((rarityIdx == idxRarityU))
960 963                          then if ((rarityThresholds[idxThresholdU] > totalBonus))
961 964                              then idxRarityU
962 965                              else if ((rarityThresholds[idxThresholdL] > totalBonus))
963 966                                  then idxRarityL
964 967                                  else throw((("You can advance only one level of rarity, max total bonus " + toString(rarityThresholds[idxThresholdL])) + "%"))
965 968                          else if ((rarityIdx == idxRarityL))
966 969                              then if ((rarityThresholds[idxThresholdL] > totalBonus))
967 970                                  then idxRarityL
968 971                                  else idxRarityE
969 972                              else if ((rarityIdx == idxRarityE))
970 973                                  then idxRarityE
971 974                                  else if ((rarityIdx == idxRarityP))
972 975                                      then throw("You can't exchange NFTs of this rarity")
973 976                                      else throw("Unknown rarity")
974 977                  let minWlgFee = fraction(totalBonus, MULT14, getWlgPrice(0))
975 978                  let change = (wlgFee - minWlgFee)
976 979                  let forTeam = (minWlgFee / 2)
977 980                  let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(minWlgFee - forTeam)], nil))
978 981                  if ((0 > change))
979 982                      then throw((("You need to attach " + fixedPoint(minWlgFee, 8)) + " WLGOLD as fee"))
980 983                      else {
981 984                          let changeActions = if ((change > 0))
982 985                              then [ScriptTransfer(i.caller, change, wlgAssetId)]
983 986                              else nil
984 -                         let $t02657426735 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
985 -                         let issueNftActions = $t02657426735._1
986 -                         let nftAssetId = $t02657426735._2
987 +                         let $t02664126802 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
988 +                         let issueNftActions = $t02664126802._1
989 +                         let nftAssetId = $t02664126802._2
987 990                          let burned = size(burnActions)
988 991                          let burnCounterActions = if ((burned == 0))
989 992                              then nil
990 993                              else [IntegerEntry(keyNftTotalBurned, (valueOrElse(getInteger(keyNftTotalBurned), 0) + burned))]
991 994                          $Tuple2((((((issueNftActions ++ burnActions) ++ burnCounterActions) ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)), $Tuple2(nftAssetId, wlgRemain))
992 995                          }
993 996                  }
994 997      }
995 998  
996 999  
997 1000  
998 1001  @Callable(i)
999 1002  func openNftChest () = {
1000 1003      let prologActions = prolog(i)
1001 1004      if ((size(i.payments) != 1))
1002 1005          then throw("exactly 1 payment must be attached")
1003 1006          else {
1004 1007              let pmt = i.payments[0]
1005 1008              let wlgAmount = pmt.amount
1006 1009              if (if (!(isDefined(pmt.assetId)))
1007 1010                  then true
1008 1011                  else (value(pmt.assetId) != wlgAssetId))
1009 1012                  then throw("WLGOLD payments only!")
1010 1013                  else {
1011 1014                      let minWlgFee = fraction(NFT_CHEST_PRICE_USDT, MULT8, getWlgPrice(0))
1012 1015                      let change = (wlgAmount - minWlgFee)
1013 1016                      let forTeam = (minWlgFee / 2)
1014 1017                      let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(minWlgFee - forTeam)], nil))
1015 1018                      if ((0 > change))
1016 1019                          then throw((("You need to attach " + fixedPoint(minWlgFee, 8)) + " WLGOLD as fee"))
1017 1020                          else {
1018 1021                              let changeActions = if ((change > 0))
1019 1022                                  then [ScriptTransfer(i.caller, change, wlgAssetId)]
1020 1023                                  else nil
1021 1024                              let addr = toString(i.caller)
1022 1025                              let finishKey = keyCommit(addr)
1023 1026                              let finishBlock = valueOrErrorMessage(getInteger(finishKey), "You have to commitForRandom() first!")
1024 1027                              if ((finishBlock > height))
1025 1028                                  then throw(("Random number is not ready yet, wait until height = " + toString(finishBlock)))
1026 1029                                  else {
1027 1030                                      let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
1028 1031                                      let salt = fromBase58String(split(valueOrElse(getString(keyCurWeekTxIdByUser(addr)), "42_DEFAULT"), "_")[1])
1029 1032                                      let rand = getRandomNumber(100, salt, entropy)
1030 -                                     let $t02875429026 = if ((84 > rand))
1033 +                                     let $t02882129093 = if ((84 > rand))
1031 1034                                          then $Tuple2(1, idxRarityC)
1032 1035                                          else if ((98 > rand))
1033 1036                                              then $Tuple2(5, idxRarityU)
1034 1037                                              else $Tuple2(10, idxRarityL)
1035 -                                     let bonus = $t02875429026._1
1036 -                                     let rarityIdx = $t02875429026._2
1037 -                                     let $t02902929179 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1038 -                                     let issueNftActions = $t02902929179._1
1039 -                                     let nftAssetId = $t02902929179._2
1038 +                                     let bonus = $t02882129093._1
1039 +                                     let rarityIdx = $t02882129093._2
1040 +                                     let $t02909629246 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1041 +                                     let issueNftActions = $t02909629246._1
1042 +                                     let nftAssetId = $t02909629246._2
1040 1043                                      $Tuple2(((((issueNftActions ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)) :+ DeleteEntry(finishKey)), $Tuple2(nftAssetId, wlgRemain))
1041 1044                                      }
1042 1045                              }
1043 1046                      }
1044 1047              }
1045 1048      }
1046 1049  
1047 1050  
1048 1051  
1049 1052  @Callable(i)
1050 1053  func commitForRandom () = {
1051 1054      let prologActions = prolog(i)
1052 1055      let addr = toString(i.caller)
1053 1056      let finishKey = keyCommit(addr)
1054 1057      if (isDefined(getInteger(finishKey)))
1055 1058          then throw("You already commited for random, please use it")
1056 1059          else {
1057 1060              let finishBlock = (height + RANDOM_DELAY)
1058 1061              $Tuple2(([IntegerEntry(finishKey, finishBlock)] ++ prologActions), finishBlock)
1059 1062              }
1060 1063      }
1061 1064  
1062 1065

Old	New		Differences
424	424		let acresActions = if ((amt == 0))
425	425		then nil
426	426		else [IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt))]
427		-	$Tuple2(((((acresActions :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))) :+ IntegerEntry(bonusKey, (oldBonus + bonusDelta))), wlgResult)
	427	+	let bonusActions = if ((bonusDelta == 0))
	428	+	then nil
	429	+	else [IntegerEntry(bonusKey, (oldBonus + bonusDelta))]
	430	+	$Tuple2(((((acresActions ++ bonusActions) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))), wlgResult)
428	431		}
429	432		}
430	433		}

509	512		if ((nftNumber >= limit))
510	513		then throw((("You can stake max " + toString(limit)) + " of such NFTs"))
511	514		else {
512		-	let $~~t01056310639~~ = stakeUnstakeAcresInternal(0, addr, bonus6)
513		-	let actions = $~~t01056310639~~._1
514		-	let wlgClaimedAmount = $~~t01056310639~~._2
	515	+	let $t01063010706 = stakeUnstakeAcresInternal(0, addr, bonus6)
	516	+	let actions = $t01063010706._1
	517	+	let wlgClaimedAmount = $t01063010706._2
515	518		$Tuple2((((actions :+ IntegerEntry(userNumKey, (nftNumber + 1))) :+ IntegerEntry(totalNumKey, (valueOrElse(getInteger(totalNumKey), 0) + 1))) :+ IntegerEntry(keyStakedTimeByAssetIdAndOwner(assetIdStr, addr), lastBlock.timestamp)), wlgClaimedAmount)
516	519		}
517	520		}

555	558		if ((arbReleaseTime > lastBlock.timestamp))
556	559		then throw(("You traded some WLGOLD, cannot unstake until " + toString(arbReleaseTime)))
557	560		else {
558		-	let $~~t01221312293~~ = stakeUnstakeAcresInternal(-(amount), address, 0)
559		-	let actions = $~~t01221312293~~._1
560		-	let wlgClaimedAmount = $~~t01221312293~~._2
	561	+	let $t01228012360 = stakeUnstakeAcresInternal(-(amount), address, 0)
	562	+	let actions = $t01228012360._1
	563	+	let wlgClaimedAmount = $t01228012360._2
561	564		$Tuple2(((actions :+ ScriptTransfer(i.caller, amount, acresAssetId)) ++ prologActions), wlgClaimedAmount)
562	565		}
563	566		}

580	583		else (value(pmt.assetId) != acresAssetId))
581	584		then throw("ACRES payments only!")
582	585		else {
583		-	let $~~t01274412820~~ = stakeUnstakeAcresInternal(amt, address, 0)
584		-	let actions = $~~t01274412820~~._1
585		-	let wlgClaimedAmount = $~~t01274412820~~._2
	586	+	let $t01281112887 = stakeUnstakeAcresInternal(amt, address, 0)
	587	+	let actions = $t01281112887._1
	588	+	let wlgClaimedAmount = $t01281112887._2
586	589		$Tuple2((actions ++ prologActions), wlgClaimedAmount)
587	590		}
588	591		}

646	649		then throw((("Min payment should be " + fixedPoint(MULT7, 8)) + " ACRES"))
647	650		else {
648	651		let addr = toString(i.caller)
649		-	let $~~t01467714725~~ = getSwapLimitAcres()
650		-	let limitAction = $~~t01467714725~~._1
651		-	let maxUsdt = $~~t01467714725~~._2
	652	+	let $t01474414792 = getSwapLimitAcres()
	653	+	let limitAction = $t01474414792._1
	654	+	let maxUsdt = $t01474414792._2
652	655		let maxAcres = (maxUsdt * USDT2ACRES_MULTIPLIER)
653	656		if ((acresAmount > maxAcres))
654	657		then throw((("You can sell max " + fixedPoint(maxAcres, 8)) + " ACRES"))

664	667
665	668		@Callable(i)
666	669		func sellAcresREADONLY (address,acresAmount) = {
667		-	let $~~t01522115269~~ = getSwapLimitAcres()
668		-	let limitAction = $~~t01522115269~~._1
669		-	let maxUsdt = $~~t01522115269~~._2
	670	+	let $t01528815336 = getSwapLimitAcres()
	671	+	let limitAction = $t01528815336._1
	672	+	let maxUsdt = $t01528815336._2
670	673		let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
671	674		$Tuple2(nil, [usdtAmount, MULT7, (maxUsdt * USDT2ACRES_MULTIPLIER), 0])
672	675		}

717	720		let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
718	721		if ((req == req))
719	722		then {
720		-	let $~~t01710617244~~ = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
721		-	let nftActions = $~~t01710617244~~._1
722		-	let nftAssetId = $~~t01710617244~~._2
	723	+	let $t01717317311 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
	724	+	let nftActions = $t01717317311._1
	725	+	let nftAssetId = $t01717317311._2
723	726		$Tuple5(rr._1, rr._2, rr._3, rr._4, nftActions)
724	727		}
725	728		else throw("Strict value is not equal to itself.")

786	789		let userFpKey = keyFarmingPowerByUser(address)
787	790		let oldFp = valueOrElse(getInteger(userFpKey), 0)
788	791		let userBonus = valueOrElse(getInteger(acres2Contract, keyUserFullBonus(address)), 0)
789		-	let $~~t01942619513~~ = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
790		-	let newBonusedFp = $~~t01942619513~~._1
791		-	let ignored = $~~t01942619513~~._2
	792	+	let $t01949319580 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
	793	+	let newBonusedFp = $t01949319580._1
	794	+	let ignored = $t01949319580._2
792	795		let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
793	796		let newTotalFp = ((oldTotalFp + newBonusedFp) - oldFp)
794	797		$Tuple2(nil, [oldFp, newBonusedFp, oldTotalFp, newTotalFp])

830	833		let listAction = StringEntry(nftsKey, makeString_2C((nfts :+ assetIdStr), "_"))
831	834		if ((asset.issuer == this))
832	835		then {
833		-	let $~~t02092221112~~ = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
834		-	let actions = $~~t02092221112~~._1
835		-	let wlgClaimedAmount = $~~t02092221112~~._2
	836	+	let $t02098921179 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
	837	+	let actions = $t02098921179._1
	838	+	let wlgClaimedAmount = $t02098921179._2
836	839		$Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
837	840		}
838	841		else if ((isArkimalIssued(asset) == ""))
839	842		then throw("Only WavesLands and Arkimals NFT tokens are accepted")
840	843		else {
841		-	let $~~t02129321444~~ = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
842		-	let actions = $~~t02129321444~~._1
843		-	let wlgClaimedAmount = $~~t02129321444~~._2
	844	+	let $t02136021511 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
	845	+	let actions = $t02136021511._1
	846	+	let wlgClaimedAmount = $t02136021511._2
844	847		$Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
845	848		}
846	849		}

877	880		then {
878	881		let wlNftNumber = valueOrElse(getInteger(keyUserWlNftNumber(addr)), 0)
879	882		let bonusVal = (bonusByDescription(value(asset.description)) * 10000)
880		-	let $~~t02260922688~~ = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
881		-	let actions = $~~t02260922688~~._1
882		-	let wlgClaimedAmount = $~~t02260922688~~._2
	883	+	let $t02267622755 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
	884	+	let actions = $t02267622755._1
	885	+	let wlgClaimedAmount = $t02267622755._2
883	886		$Tuple2(((((((actions :+ listAction) :+ IntegerEntry(keyUserWlNftNumber(addr), (wlNftNumber - 1))) :+ IntegerEntry(keyWlNftTotalStaked, max([0, (valueOrElse(getInteger(keyWlNftTotalStaked), 0) - 1)]))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
884	887		}
885	888		else {

888	891		then throw("Only WavesLands and Arkimals NFT tokens are accepted")
889	892		else {
890	893		let arkNftNumber = valueOrElse(getInteger(keyUserArkNftNumber(addr)), 0)
891		-	let $~~t02334823432~~ = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
892		-	let actions = $~~t02334823432~~._1
893		-	let wlgClaimedAmount = $~~t02334823432~~._2
	894	+	let $t02341523499 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
	895	+	let actions = $t02341523499._1
	896	+	let wlgClaimedAmount = $t02341523499._2
894	897		$Tuple2((((((actions :+ listAction) :+ IntegerEntry(keyUserArkNftNumber(addr), (arkNftNumber - 1))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
895	898		}
896	899		}

932	935		}
933	936		}
934	937
935		-	let $~~t02482125037~~ = {
	938	+	let $t02488825104 = {
936	939		let $l = i.payments
937	940		let $s = size($l)
938	941		let $acc0 = $Tuple4(0, 0, nil, -1)

946	949
947	950		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
948	951		}
949		-	let wlgFee = $~~t02482125037~~._1
950		-	let totalBonus = $~~t02482125037~~._2
951		-	let burnActions = $~~t02482125037~~._3
952		-	let rarityIdx = $~~t02482125037~~._4
	952	+	let wlgFee = $t02488825104._1
	953	+	let totalBonus = $t02488825104._2
	954	+	let burnActions = $t02488825104._3
	955	+	let rarityIdx = $t02488825104._4
953	956		let newRarityIdx = if ((rarityIdx == idxRarityC))
954	957		then if ((rarityThresholds[idxThresholdC] > totalBonus))
955	958		then idxRarityC

981	984		let changeActions = if ((change > 0))
982	985		then [ScriptTransfer(i.caller, change, wlgAssetId)]
983	986		else nil
984		-	let $~~t02657426735~~ = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
985		-	let issueNftActions = $~~t02657426735~~._1
986		-	let nftAssetId = $~~t02657426735~~._2
	987	+	let $t02664126802 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
	988	+	let issueNftActions = $t02664126802._1
	989	+	let nftAssetId = $t02664126802._2
987	990		let burned = size(burnActions)
988	991		let burnCounterActions = if ((burned == 0))
989	992		then nil

1027	1030		let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
1028	1031		let salt = fromBase58String(split(valueOrElse(getString(keyCurWeekTxIdByUser(addr)), "42_DEFAULT"), "_")[1])
1029	1032		let rand = getRandomNumber(100, salt, entropy)
1030		-	let $~~t02875429026~~ = if ((84 > rand))
	1033	+	let $t02882129093 = if ((84 > rand))
1031	1034		then $Tuple2(1, idxRarityC)
1032	1035		else if ((98 > rand))
1033	1036		then $Tuple2(5, idxRarityU)
1034	1037		else $Tuple2(10, idxRarityL)
1035		-	let bonus = $~~t02875429026~~._1
1036		-	let rarityIdx = $~~t02875429026~~._2
1037		-	let $~~t02902929179~~ = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1038		-	let issueNftActions = $~~t02902929179~~._1
1039		-	let nftAssetId = $~~t02902929179~~._2
	1038	+	let bonus = $t02882129093._1
	1039	+	let rarityIdx = $t02882129093._2
	1040	+	let $t02909629246 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
	1041	+	let issueNftActions = $t02909629246._1
	1042	+	let nftAssetId = $t02909629246._2
1040	1043		$Tuple2(((((issueNftActions ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)) :+ DeleteEntry(finishKey)), $Tuple2(nftAssetId, wlgRemain))
1041	1044		}
1042	1045		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
6	6		let MULT6 = 1000000
7	7
8	8		let MULT7 = 10000000
9	9
10	10		let MULT8 = 100000000
11	11
12	12		let MULT14 = 100000000000000
13	13
14	14		let DAY_MILLIS = 86400000
15	15
16	16		let USDT2ACRES_MULTIPLIER = 10
17	17
18	18		let ONE_PERCENT_DIVISOR = 100
19	19
20	20		let RANDOM_DELAY = 2
21	21
22	22		let NFT_CHEST_PRICE_USDT = 5000000
23	23
24	24		let chain = take(drop(this.bytes, 1), 1)
25	25
26	26		let WEEK_BLOCKS = match chain {
27	27		case _ =>
28	28		if ((base58'2W' == $match0))
29	29		then 10080
30	30		else if ((base58'2T' == $match0))
31	31		then 180
32	32		else throw("Unknown chain")
33	33		}
34	34
35	35		let usdtAssetId = match chain {
36	36		case _ =>
37	37		if ((base58'2W' == $match0))
38	38		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
39	39		else if ((base58'2T' == $match0))
40	40		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
41	41		else throw("Unknown chain")
42	42		}
43	43
44	44		let defaultRest2AddressStr = match chain {
45	45		case _ =>
46	46		if ((base58'2W' == $match0))
47	47		then "3PFwYta8biEz31zpeFe5DJK8wE5trSpQVF8"
48	48		else if ((base58'2T' == $match0))
49	49		then "3N7UuYar6264P58FBhVWKPQAh4Yua2hgngv"
50	50		else throw("Unknown chain")
51	51		}
52	52
53	53		let arbitrageDelay = match chain {
54	54		case _ =>
55	55		if ((base58'2W' == $match0))
56	56		then DAY_MILLIS
57	57		else if ((base58'2T' == $match0))
58	58		then 60000
59	59		else throw("Unknown chain")
60	60		}
61	61
62	62		let oldStakingContractStr = match chain {
63	63		case _ =>
64	64		if ((base58'2W' == $match0))
65	65		then "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1"
66	66		else if ((base58'2T' == $match0))
67	67		then "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm"
68	68		else throw("Unknown chain")
69	69		}
70	70
71	71		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
72	72
73	73
74	74		let IdxCfgAcres2Dapp = 1
75	75
76	76		let IdxCfgWlgDapp = 2
77	77
78	78		let IdxCfgInvestFundDapp = 5
79	79
80	80		func keyRestCfg () = "%s__restConfig"
81	81
82	82
83	83		func keyRest2Address () = "%s__rest2Addr"
84	84
85	85
86	86		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
87	87
88	88
89	89		func getContractAddressOrFail (rest2Cfg,idx) = valueOrErrorMessage(addressFromString(rest2Cfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
90	90
91	91
92	92		let rest2Contract = addressFromStringValue(valueOrElse(getString(this, keyRest2Address()), defaultRest2AddressStr))
93	93
94	94		let rest2Cfg = readRestCfgOrFail(rest2Contract)
95	95
96	96		let acres2Contract = getContractAddressOrFail(rest2Cfg, IdxCfgAcres2Dapp)
97	97
98	98		let wlgContract = getContractAddressOrFail(rest2Cfg, IdxCfgWlgDapp)
99	99
100	100		let investFundContract = getContractAddressOrFail(rest2Cfg, IdxCfgInvestFundDapp)
101	101
102	102		let oldAcresContractKey = "oldAcresContract"
103	103
104	104		func keyBlocked () = "contractsBlocked"
105	105
106	106
107	107		func keyLastWeekTxIdByUser (addr) = ("lastWeekTxIdByUser_" + addr)
108	108
109	109
110	110		func keyCurWeekTxIdByUser (addr) = ("curWeekTxIdByUser_" + addr)
111	111
112	112
113	113		func keyCommit (address) = ("finishBlockFor_" + address)
114	114
115	115
116	116		let wlgAssetIdKey = "wlg_assetId"
117	117
118	118		let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
119	119
120	120		let acresIssuedAmountKey = "acresIssuedAmount"
121	121
122	122		let acresAssetIdKey = "acresAssetId"
123	123
124	124		let acresAssetId = valueOrErrorMessage(getBinary(acres2Contract, acresAssetIdKey), "ACRES is not issued yet")
125	125
126	126		func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
127	127
128	128
129	129		func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
130	130
131	131
132	132		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
133	133
134	134
135	135		func keyStakedTimeByAssetIdAndOwner (assetId,addr) = ((("st_" + assetId) + "_") + addr)
136	136
137	137
138	138		func keyStakedNFTsByOwner (ownerAddr) = ("stakedNFTsByOwner_" + ownerAddr)
139	139
140	140
141	141		func asInt (v) = match v {
142	142		case n: Int =>
143	143		n
144	144		case _ =>
145	145		throw("fail to cast into Int")
146	146		}
147	147
148	148
149	149		func asTuple5Ints (val) = match val {
150	150		case t: (Int, Int, Int, Int, Int) =>
151	151		t
152	152		case _ =>
153	153		throw("fail to cast into (Int, Int, Int, Int, Int)")
154	154		}
155	155
156	156
157	157		func asTuple4Ints (val) = match val {
158	158		case t: (Int, Int, Int, Int) =>
159	159		t
160	160		case _ =>
161	161		throw("fail to cast into (Int, Int, Int, Int)")
162	162		}
163	163
164	164
165	165		func asTuple3Ints (val) = match val {
166	166		case t: (Int, Int, Int) =>
167	167		t
168	168		case _ =>
169	169		throw("fail to cast into (Int, Int, Int)")
170	170		}
171	171
172	172
173	173		func asTuple2Ints (val) = match val {
174	174		case t: (Int, Int) =>
175	175		t
176	176		case _ =>
177	177		throw("fail to cast into (Int, Int)")
178	178		}
179	179
180	180
181	181		func fixedPoint (val,decimals) = {
182	182		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
183	183		let lowPart = toString((val % tenPow))
184	184		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
185	185		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
186	186		}
187	187
188	188
189	189		func getRandomNumber (maxValue,salt,entropy) = if ((0 >= maxValue))
190	190		then throw("maxValue should be > 0")
191	191		else {
192	192		let randomHash = sha256_16Kb((salt + entropy))
193	193		(toInt(randomHash) % maxValue)
194	194		}
195	195
196	196
197	197		let M6_ = 1000000
198	198
199	199		let M8_ = 100000000
200	200
201	201		let wlgIssuedAmtKey = "wlg_issuedAmount"
202	202
203	203		let zbIssuedAmtKey = "zbill_issuedAmount"
204	204
205	205		func keyAcresStakedAmtByUser (addr) = ("acresStakedAmountByUser_" + addr)
206	206
207	207
208	208		func keyFarmingPowerByUser (addr) = ("farmingPowerByUser_" + addr)
209	209
210	210
211	211		let acresStakdTotalKey = "acresStakedAmountTotal"
212	212
213	213		let totalFarmingPowerKey = "totalFarmingPower"
214	214
215	215		let MAX_WL_NFTS = 3
216	216
217	217		let MAX_ARK_NFTS = 1
218	218
219	219		let ARK_NFT_BONUS = 5000
220	220
221	221		let MAX_NFTS_STAKED_BY_USER = 4
222	222
223	223		let keyNftTotalIssued = "nftTotalIssued"
224	224
225	225		let keyNftTotalBurned = "nftTotalBurned"
226	226
227	227		let keyWlNftTotalStaked = "WlNftTotalStaked"
228	228
229	229		let keyArkNftTotalStaked = "ArkNftTotalStaked"
230	230
231	231		func keyNftNumberByAssetId (assetId) = ("nftNumberByAssetId_" + assetId)
232	232
233	233
234	234		func keyUserWlNftNumber (addr) = ("userWlNftNumber_" + addr)
235	235
236	236
237	237		func keyUserArkNftNumber (addr) = ("userArkNftNumber_" + addr)
238	238
239	239
240	240		func keyUserFullBonus (addr) = ("userFullBonus_" + addr)
241	241
242	242
243	243		let levelAcres = [0, 10, 20, 40, 80, 150, 250, 400, 700, 1000]
244	244
245	245		func getLevelByAcres (acres) = {
246	246		let acr = ((acres + 99999999) / M8_)
247	247		func checker (acc,item) = if ((item >= acr))
248	248		then acc
249	249		else (acc + 1)
250	250
251	251		let $l = levelAcres
252	252		let $s = size($l)
253	253		let $acc0 = 0
254	254		func $f0_1 ($a,$i) = if (($i >= $s))
255	255		then $a
256	256		else checker($a, $l[$i])
257	257
258	258		func $f0_2 ($a,$i) = if (($i >= $s))
259	259		then $a
260	260		else throw("List size exceeds 10")
261	261
262	262		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
263	263		}
264	264
265	265
266	266		func getFarmingPowerByAcres (acres) = ((acres * 20) * (getLevelByAcres(acres) + 4))
267	267
268	268
269	269		func getFarmingPowerByAcresAndBonus (acres,bonus6) = {
270	270		let notBonused = getFarmingPowerByAcres(acres)
271	271		$Tuple2(fraction(notBonused, (M6_ + bonus6), M6_), notBonused)
272	272		}
273	273
274	274
275	275		let teamAddrKey = "teamAddr"
276	276
277	277		func keyLastWlgTradeTimeByUser (addr) = ("lastArbTimeUser_" + addr)
278	278
279	279
280	280		let keyLastAcresSellTime = "lastAcresSellTime"
281	281
282	282		let keyLastLimitLeft = "lastLimitLeft"
283	283
284	284		let names = ["Gold shovel", "Pickaxe"]
285	285
286	286		let descriptions = ["Reward for early birds", "Increases FarmPower"]
287	287
288	288		let idxDescrShovel = 0
289	289
290	290		let idxDescrPickaxe = 1
291	291
292	292		let rarityThresholds = [5, 10, 20]
293	293
294	294		let idxThresholdC = 0
295	295
296	296		let idxThresholdU = 1
297	297
298	298		let idxThresholdL = 2
299	299
300	300		let namez = ["SHOVEL", "PICKAXE"]
301	301
302	302		let idxNameShovel = 0
303	303
304	304		let idxNamePickaxe = 1
305	305
306	306		let contentKeyz = ["contentPickaxeC", "contentPickaxeU", "contentPickaxeL", "contentPickaxeE", "contentShovelP"]
307	307
308	308		let idxKeyC = 0
309	309
310	310		let idxKeyP = 4
311	311
312	312		let rarityNames = ["Common", "Uncommon", "Legendary", "Epic", "Promo"]
313	313
314	314		let idxRarityC = 0
315	315
316	316		let idxRarityU = 1
317	317
318	318		let idxRarityL = 2
319	319
320	320		let idxRarityE = 3
321	321
322	322		let idxRarityP = 4
323	323
324	324		let collectionz = ["Digging tools"]
325	325
326	326		let idxCollDig = 0
327	327
328	328		let bonusTypez = ["FarmPower"]
329	329
330	330		let idxBonusTypeFp = 0
331	331
332	332		func prolog (i) = if (if ((i.originCaller != rest2Contract))
333	333		then valueOrElse(getBoolean(keyBlocked()), false)
334	334		else false)
335	335		then throw("Contracts are under maintenance")
336	336		else {
337	337		let addr = toString(i.originCaller)
338	338		let week = (height / WEEK_BLOCKS)
339	339		let lastWeekKey = keyLastWeekTxIdByUser(addr)
340	340		let lastWeekTxIdByUser = getString(lastWeekKey)
341	341		let txId = toBase58String(i.transactionId)
342	342		let wtx = ((toString(week) + "_") + txId)
343	343		let curWeekKey = keyCurWeekTxIdByUser(addr)
344	344		if (isDefined(lastWeekTxIdByUser))
345	345		then {
346	346		let lastWeekTx = split(value(lastWeekTxIdByUser), "_")
347	347		if ((lastWeekTx[0] == toString(week)))
348	348		then [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
349	349		else if ((lastWeekTx[0] == toString((week - 1))))
350	350		then [StringEntry(curWeekKey, wtx)]
351	351		else {
352	352		let curWeekTxIdByUser = getStringValue(curWeekKey)
353	353		let curWeekTx = split(curWeekTxIdByUser, "_")
354	354		if ((curWeekTx[0] == toString(week)))
355	355		then [StringEntry(curWeekKey, wtx)]
356	356		else [StringEntry(lastWeekKey, curWeekTxIdByUser), StringEntry(curWeekKey, wtx)]
357	357		}
358	358		}
359	359		else [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
360	360		}
361	361
362	362
363	363		func createNftDescrCustom (contKey,nftSerial,collection,name,descr,rarity,bonus,bonusType) = (((((((((((((((((((((((("{\"url\": \"https://waveslands.com\", " + "\"contentKey\": \"") + contKey) + "\", ") + "\"number\": ") + toString(nftSerial)) + ", ") + "\"collection\": \"") + collection) + "\", ") + "\"name\": \"") + name) + "\", ") + "\"description\": \"") + descr) + "\", ") + "\"rare\": \"") + rarity) + "\", ") + "\"bonus\": ") + toString(bonus)) + ", ") + "\"bonusType\": \"") + bonusType) + "\"}")
364	364
365	365
366	366		func issueNftCustom (nameIdx,contKeyIdx,collIdx,rarityIdx,bonusPerc,descrIdx,bonusTypeIdx,addr) = {
367	367		let nftSerial = valueOrElse(getInteger(keyNftTotalIssued), 0)
368	368		let rarity = rarityNames[rarityIdx]
369	369		let name = (((namez[nameIdx] + "-") + take(rarity, 1)) + toString(bonusPerc))
370	370		let issue = Issue(name, createNftDescrCustom(contentKeyz[contKeyIdx], nftSerial, collectionz[collIdx], names[nameIdx], descriptions[descrIdx], rarityNames[rarityIdx], bonusPerc, bonusTypez[bonusTypeIdx]), 1, 0, false)
371	371		let nftAssetId = calculateAssetId(issue)
372	372		$Tuple2([issue, IntegerEntry(keyNftTotalIssued, (nftSerial + 1)), IntegerEntry(keyNftNumberByAssetId(toBase58String(nftAssetId)), nftSerial), ScriptTransfer(addr, 1, nftAssetId)], nftAssetId)
373	373		}
374	374
375	375
376	376		func bonusByDescription (descr) = if (!(contains(descr, "\"bonusType\": \"FarmPower\"")))
377	377		then throw(("NFT is not supported: " + descr))
378	378		else {
379	379		let bonusStr = split_4C(split_4C(descr, "\"bonus\":")[1], ",")[0]
380	380		parseIntValue(drop(bonusStr, (valueOrElse(lastIndexOf(bonusStr, " "), -1) + 1)))
381	381		}
382	382
383	383
384	384		func rarityIdxByDescriprion (descr) = if (!(contains(descr, "\"rare\"")))
385	385		then throw(("NFT is not supported: " + descr))
386	386		else {
387	387		let rarityStr = split_4C(split_4C(split_4C(descr, "\"rare\"")[1], ",")[0], "\"")[1]
388	388		value(indexOf(rarityNames, rarityStr))
389	389		}
390	390
391	391
392	392		func stakeUnstakeAcresInternal (amt,address,bonusDelta) = if (if ((amt == 0))
393	393		then (bonusDelta == 0)
394	394		else false)
395	395		then throw("Nothing to do")
396	396		else {
397	397		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
398	398		if ((wlgResult == wlgResult))
399	399		then {
400	400		let now = lastBlock.timestamp
401	401		let timeKey = keyAcresStakedTimeByUser(address)
402	402		let amountKey = keyAcresStakedAmtByUser(address)
403	403		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
404	404		if (if ((0 > amt))
405	405		then (0 > (oldAcresAmount + amt))
406	406		else false)
407	407		then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(-(amt), 8)))
408	408		else {
409	409		let newAcresAmount = (oldAcresAmount + amt)
410	410		let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
411	411		let userFpKey = keyFarmingPowerByUser(address)
412	412		let oldFp = valueOrElse(getInteger(userFpKey), 0)
413	413		let bonusKey = keyUserFullBonus(address)
414	414		let oldBonus = valueOrElse(getInteger(acres2Contract, bonusKey), 0)
415	415		if (if ((0 > bonusDelta))
416	416		then (0 > (oldBonus + bonusDelta))
417	417		else false)
418	418		then throw((((("You have only " + fixedPoint(oldBonus, 4)) + "% bonus, and tried to unstake ") + fixedPoint(-(bonusDelta), 4)) + "%"))
419	419		else {
420	420		let $t062526351 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
421	421		let newBonusedFp = $t062526351._1
422	422		let ignored = $t062526351._2
423	423		let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
424	424		let acresActions = if ((amt == 0))
425	425		then nil
426	426		else [IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt))]
427		-	$Tuple2(((((acresActions :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))) :+ IntegerEntry(bonusKey, (oldBonus + bonusDelta))), wlgResult)
	427	+	let bonusActions = if ((bonusDelta == 0))
	428	+	then nil
	429	+	else [IntegerEntry(bonusKey, (oldBonus + bonusDelta))]
	430	+	$Tuple2(((((acresActions ++ bonusActions) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))), wlgResult)
428	431		}
429	432		}
430	433		}
431	434		else throw("Strict value is not equal to itself.")
432	435		}
433	436
434	437
435	438		func getWlgPrice (usdtBalanceCorrection) = {
436	439		let issuedAmount = valueOrErrorMessage(getInteger(wlgContract, wlgIssuedAmtKey), "WLGOLD is not issued yet")
437	440		let wlgUsd = assetBalance(wlgContract, usdtAssetId)
438	441		let acres2Usd = (assetBalance(acres2Contract, usdtAssetId) - usdtBalanceCorrection)
439	442		let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
440	443		let totalFundsUsd = ((acres2Usd + wlgUsd) + investFundTotal)
441	444		fraction(totalFundsUsd, MULT8, issuedAmount)
442	445		}
443	446
444	447
445	448		func getSwapLimitAcres () = {
446	449		let wlgUsd = assetBalance(wlgContract, usdtAssetId)
447	450		let acres2Usd = assetBalance(this, usdtAssetId)
448	451		let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
449	452		let defaultLimit = (((acres2Usd + wlgUsd) + investFundTotal) / ONE_PERCENT_DIVISOR)
450	453		let lastLimitLeft = valueOrElse(getInteger(keyLastLimitLeft), defaultLimit)
451	454		let lastTime = valueOrElse(getInteger(keyLastAcresSellTime), 0)
452	455		let now = lastBlock.timestamp
453	456		let currentLimit = (lastLimitLeft + fraction(defaultLimit, (now - lastTime), DAY_MILLIS))
454	457		let limitLeftUsdt = min([currentLimit, defaultLimit])
455	458		$Tuple2(IntegerEntry(keyLastAcresSellTime, now), limitLeftUsdt)
456	459		}
457	460
458	461
459	462		let arkOracle = addressFromStringValue("3PJgZ6AK1WVCpdCmEZpesHmaKvrQDdXG5og")
460	463
461	464		let incubator = valueOrElse(getString(arkOracle, "static_incubatorAddress"), "")
462	465
463	466		let breeder = valueOrElse(getString(arkOracle, "static_breederAddress"), "")
464	467
465	468		let turtleIncubator = valueOrElse(getString(arkOracle, "static_turtleIncubatorAddress"), "")
466	469
467	470		let turtleBreeder = valueOrElse(getString(arkOracle, "static_turtleBreederAddress"), "")
468	471
469	472		let canineIncubator = valueOrElse(getString(arkOracle, "static_canineIncubatorAddress"), "")
470	473
471	474		let canineBreeder = valueOrElse(getString(arkOracle, "static_canineBreederAddress"), "")
472	475
473	476		let felineIncubator = valueOrElse(getString(arkOracle, "static_felineIncubatorAddress"), "")
474	477
475	478		let felineBreeder = valueOrElse(getString(arkOracle, "static_felineBreederAddress"), "")
476	479
477	480		let mutantBreeder = valueOrElse(getString(arkOracle, "static_mutantIncubatorAddress"), "")
478	481
479	482		func isArkimalIssued (nfo) = {
480	483		let issuer = toString(nfo.issuer)
481	484		if (if (if (if (if (if (if (if (if (if ((chain == base58'2T'))
482	485		then (issuer == oldStakingContractStr)
483	486		else false)
484	487		then true
485	488		else (issuer == incubator))
486	489		then true
487	490		else (issuer == breeder))
488	491		then true
489	492		else (issuer == turtleIncubator))
490	493		then true
491	494		else (issuer == turtleBreeder))
492	495		then true
493	496		else (issuer == canineIncubator))
494	497		then true
495	498		else (issuer == canineBreeder))
496	499		then true

github/deemru/w8io/169f3d6 
152.32 ms ◑