w8 · tx · 6Cb···PQ2

tx · 6Cb9tPTgn3zqwmrGDuS1teXPWepXZbTV1b8Ux3TwwPQ2

3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh:  -0.03100000 Waves

2024.12.05 06:42 [3400801] smart account 3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6Cb9tPTgn3zqwmrGDuS1teXPWepXZbTV1b8Ux3TwwPQ2",
    "fee": 3100000,
    "feeAssetId": null,
    "timestamp": 1733370229641,
    "version": 2,
    "chainId": 84,
    "sender": "3NBPx1Fciu3JQNEGZ21jSnTdutLNGGBUSXh",
    "senderPublicKey": "3QtfC1XbLZXdeawMDeSERy9vvjUmj1XYd2GFmrvx7pWQ",
    "proofs": [
        "5qxCjtTfcoqcKdk9Y566pvrBA6cXsTTtDToaeqGmeyTwttoEFPWtEu8QeeoQzLAq6ZBtDRCrk3t9ZuCDwZAxN3eA"
    ],
    "script": "base64:BgJJCAISABIECgIICBIDCgEEEgMKAQESABIAEgMKAQESABIECgIIARIAEgMKAQgSAwoBCBIECgIIARIDCgEIEgASAwoBCBIAEgASAH0AA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDcAgK3iBAAFTVVMVDgAgMLXLwAGTVVMVDE0AICA6YOx3hYACkRBWV9NSUxMSVMAgLiZKQAVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAAoAE09ORV9QRVJDRU5UX0RJVklTT1IAZAAMUkFORE9NX0RFTEFZAAIAFE5GVF9DSEVTVF9QUklDRV9VU0RUAMCWsQIABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAtXRUVLX0JMT0NLUwQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMADgTgMJAAACAQFUBQckbWF0Y2gwALQBCQACAQINVW5rbm93biBjaGFpbgALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAWZGVmYXVsdFJlc3QyQWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BGd1l0YThiaUV6MzF6cGVGZTVESks4d0U1dHJTcFFWRjgDCQAAAgEBVAUHJG1hdGNoMAIjM043VXVZYXI2MjY0UDU4RkJoVldLUFFBaDRZdWEyaGduZ3YJAAIBAg1Vbmtub3duIGNoYWluAA5hcmJpdHJhZ2VEZWxheQQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAUKREFZX01JTExJUwMJAAACAQFUBQckbWF0Y2gwAODUAwkAAgECDVVua25vd24gY2hhaW4AFW9sZFN0YWtpbmdDb250cmFjdFN0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BMbmNYdFMxVTgzRDZjUWJGRDNIOHJCSFBMZ3p4U0ZLWjEDCQAAAgEBVAUHJG1hdGNoMAIjM05EQ3lCRzVxODVKdWFSaWlnVWVFdGFpbnlqQ1FUM1hwWm0JAAIBAg1Vbmtub3duIGNoYWluAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAAQSWR4Q2ZnQWNyZXMyRGFwcAABAA1JZHhDZmdXbGdEYXBwAAIAFElkeENmZ0ludmVzdEZ1bmREYXBwAAUBCmtleVJlc3RDZmcAAg4lc19fcmVzdENvbmZpZwEPa2V5UmVzdDJBZGRyZXNzAAINJXNfX3Jlc3QyQWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCCHJlc3QyQ2ZnA2lkeAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUIcmVzdDJDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AA1yZXN0MkNvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ9rZXlSZXN0MkFkZHJlc3MABRZkZWZhdWx0UmVzdDJBZGRyZXNzU3RyAAhyZXN0MkNmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUNcmVzdDJDb250cmFjdAAOYWNyZXMyQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQhyZXN0MkNmZwUQSWR4Q2ZnQWNyZXMyRGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQhyZXN0MkNmZwUNSWR4Q2ZnV2xnRGFwcAASaW52ZXN0RnVuZENvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUIcmVzdDJDZmcFFElkeENmZ0ludmVzdEZ1bmREYXBwABNvbGRBY3Jlc0NvbnRyYWN0S2V5AhBvbGRBY3Jlc0NvbnRyYWN0AQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAEVa2V5TGFzdFdlZWtUeElkQnlVc2VyAQRhZGRyCQCsAgICE2xhc3RXZWVrVHhJZEJ5VXNlcl8FBGFkZHIBFGtleUN1cldlZWtUeElkQnlVc2VyAQRhZGRyCQCsAgICEmN1cldlZWtUeElkQnlVc2VyXwUEYWRkcgEJa2V5Q29tbWl0AQdhZGRyZXNzCQCsAgICD2ZpbmlzaEJsb2NrRm9yXwUHYWRkcmVzcwANd2xnQXNzZXRJZEtleQILd2xnX2Fzc2V0SWQACndsZ0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQt3bGdDb250cmFjdAUNd2xnQXNzZXRJZEtleQIYV0xHT0xEIGlzIG5vdCBpc3N1ZWQgeWV0ABRhY3Jlc0lzc3VlZEFtb3VudEtleQIRYWNyZXNJc3N1ZWRBbW91bnQAD2FjcmVzQXNzZXRJZEtleQIMYWNyZXNBc3NldElkAAxhY3Jlc0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQ5hY3JlczJDb250cmFjdAUPYWNyZXNBc3NldElkS2V5AhdBQ1JFUyBpcyBub3QgaXNzdWVkIHlldAEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQRhZGRyCQCsAgICFmFjcmVzU3Rha2VkVGltZUJ5VXNlcl8FBGFkZHIBFWtleVN0YWtlZExhbmRzQnlPd25lcgEJb3duZXJBZGRyCQCsAgICE3N0YWtlZExhbmRzQnlPd25lcl8FCW93bmVyQWRkcgEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgEea2V5U3Rha2VkVGltZUJ5QXNzZXRJZEFuZE93bmVyAgdhc3NldElkBGFkZHIJAKwCAgkArAICCQCsAgICA3N0XwUHYXNzZXRJZAIBXwUEYWRkcgEUa2V5U3Rha2VkTkZUc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWRORlRzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQxhc1R1cGxlNUludHMBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACGShJbnQsIEludCwgSW50LCBJbnQsIEludCkEAXQFByRtYXRjaDAFAXQJAAIBAitmYWlsIHRvIGNhc3QgaW50byAoSW50LCBJbnQsIEludCwgSW50LCBJbnQpAQxhc1R1cGxlNEludHMBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACFChJbnQsIEludCwgSW50LCBJbnQpBAF0BQckbWF0Y2gwBQF0CQACAQImZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50LCBJbnQsIEludCkBDGFzVHVwbGUzSW50cwEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIPKEludCwgSW50LCBJbnQpBAF0BQckbWF0Y2gwBQF0CQACAQIhZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50LCBJbnQpAQxhc1R1cGxlMkludHMBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACCihJbnQsIEludCkEAXQFByRtYXRjaDAFAXQJAAIBAhxmYWlsIHRvIGNhc3QgaW50byAoSW50LCBJbnQpAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04EB2xvd1BhcnQJAKQDAQkAagIFA3ZhbAUGdGVuUG93BAZ6ZXJvZXMJALACAgkApAMBBQZ0ZW5Qb3cJAGQCAAEJALECAQUHbG93UGFydAkArAICCQCsAgIJAKwCAgkApAMBCQBpAgUDdmFsBQZ0ZW5Qb3cCAS4FBnplcm9lcwUHbG93UGFydAEPZ2V0UmFuZG9tTnVtYmVyAwhtYXhWYWx1ZQRzYWx0B2VudHJvcHkDCQBnAgAABQhtYXhWYWx1ZQkAAgECFm1heFZhbHVlIHNob3VsZCBiZSA+IDAECnJhbmRvbUhhc2gJANQWAQkAywECBQRzYWx0BQdlbnRyb3B5CQBqAgkAsQkBBQpyYW5kb21IYXNoBQhtYXhWYWx1ZQADTTZfAMCEPQADTThfAIDC1y8AD3dsZ0lzc3VlZEFtdEtleQIQd2xnX2lzc3VlZEFtb3VudAAOemJJc3N1ZWRBbXRLZXkCEnpiaWxsX2lzc3VlZEFtb3VudAEXa2V5QWNyZXNTdGFrZWRBbXRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyARVrZXlGYXJtaW5nUG93ZXJCeVVzZXIBBGFkZHIJAKwCAgITZmFybWluZ1Bvd2VyQnlVc2VyXwUEYWRkcgASYWNyZXNTdGFrZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsABR0b3RhbEZhcm1pbmdQb3dlcktleQIRdG90YWxGYXJtaW5nUG93ZXIAC01BWF9XTF9ORlRTAAMADE1BWF9BUktfTkZUUwABAA1BUktfTkZUX0JPTlVTAIgnABdNQVhfTkZUU19TVEFLRURfQllfVVNFUgAEABFrZXlOZnRUb3RhbElzc3VlZAIObmZ0VG90YWxJc3N1ZWQAEWtleU5mdFRvdGFsQnVybmVkAg5uZnRUb3RhbEJ1cm5lZAATa2V5V2xOZnRUb3RhbFN0YWtlZAIQV2xOZnRUb3RhbFN0YWtlZAAUa2V5QXJrTmZ0VG90YWxTdGFrZWQCEUFya05mdFRvdGFsU3Rha2VkARVrZXlOZnROdW1iZXJCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgITbmZ0TnVtYmVyQnlBc3NldElkXwUHYXNzZXRJZAESa2V5VXNlcldsTmZ0TnVtYmVyAQRhZGRyCQCsAgICEHVzZXJXbE5mdE51bWJlcl8FBGFkZHIBE2tleVVzZXJBcmtOZnROdW1iZXIBBGFkZHIJAKwCAgIRdXNlckFya05mdE51bWJlcl8FBGFkZHIBEGtleVVzZXJGdWxsQm9udXMBBGFkZHIJAKwCAgIOdXNlckZ1bGxCb251c18FBGFkZHIACmxldmVsQWNyZXMJAMwIAgAACQDMCAIACgkAzAgCABQJAMwIAgAoCQDMCAIAUAkAzAgCAJYBCQDMCAIA+gEJAMwIAgCQAwkAzAgCALwFCQDMCAIA6AcFA25pbAEPZ2V0TGV2ZWxCeUFjcmVzAQVhY3JlcwQDYWNyCQBpAgkAZAIFBWFjcmVzAP/B1y8FA004XwoBB2NoZWNrZXICA2FjYwRpdGVtAwkAZwIFBGl0ZW0FA2FjcgUDYWNjCQBkAgUDYWNjAAEKAAIkbAUKbGV2ZWxBY3JlcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEHY2hlY2tlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgEWZ2V0RmFybWluZ1Bvd2VyQnlBY3JlcwEFYWNyZXMJAGgCCQBoAgUFYWNyZXMAFAkAZAIJAQ9nZXRMZXZlbEJ5QWNyZXMBBQVhY3JlcwAEAR5nZXRGYXJtaW5nUG93ZXJCeUFjcmVzQW5kQm9udXMCBWFjcmVzBmJvbnVzNgQKbm90Qm9udXNlZAkBFmdldEZhcm1pbmdQb3dlckJ5QWNyZXMBBQVhY3JlcwkAlAoCCQBrAwUKbm90Qm9udXNlZAkAZAIFA002XwUGYm9udXM2BQNNNl8FCm5vdEJvbnVzZWQAC3RlYW1BZGRyS2V5Agh0ZWFtQWRkcgEZa2V5TGFzdFdsZ1RyYWRlVGltZUJ5VXNlcgEEYWRkcgkArAICAhBsYXN0QXJiVGltZVVzZXJfBQRhZGRyABFPTERfU1RBS0lOR19ERUFETACA+eObuTIAFE1BWF9MQU5EU19UT19DT05WRVJUAA4AFGtleUxhc3RBY3Jlc1NlbGxUaW1lAhFsYXN0QWNyZXNTZWxsVGltZQAQa2V5TGFzdExpbWl0TGVmdAINbGFzdExpbWl0TGVmdAAFbmFtZXMJAMwIAgILR29sZCBzaG92ZWwJAMwIAgIHUGlja2F4ZQUDbmlsAAxkZXNjcmlwdGlvbnMJAMwIAgIWUmV3YXJkIGZvciBlYXJseSBiaXJkcwkAzAgCAhNJbmNyZWFzZXMgRmFybVBvd2VyBQNuaWwADmlkeERlc2NyU2hvdmVsAAAAD2lkeERlc2NyUGlja2F4ZQABABByYXJpdHlUaHJlc2hvbGRzCQDMCAIABQkAzAgCAAoJAMwIAgAUBQNuaWwADWlkeFRocmVzaG9sZEMAAAANaWR4VGhyZXNob2xkVQABAA1pZHhUaHJlc2hvbGRMAAIABW5hbWV6CQDMCAICBlNIT1ZFTAkAzAgCAgdQSUNLQVhFBQNuaWwADWlkeE5hbWVTaG92ZWwAAAAOaWR4TmFtZVBpY2theGUAAQALY29udGVudEtleXoJAMwIAgIPY29udGVudFBpY2theGVDCQDMCAICD2NvbnRlbnRQaWNrYXhlVQkAzAgCAg9jb250ZW50UGlja2F4ZUwJAMwIAgIPY29udGVudFBpY2theGVFCQDMCAICDmNvbnRlbnRTaG92ZWxQBQNuaWwAB2lkeEtleUMAAAAHaWR4S2V5UAAEAAtyYXJpdHlOYW1lcwkAzAgCAgZDb21tb24JAMwIAgIIVW5jb21tb24JAMwIAgIJTGVnZW5kYXJ5CQDMCAICBEVwaWMJAMwIAgIFUHJvbW8FA25pbAAKaWR4UmFyaXR5QwAAAAppZHhSYXJpdHlVAAEACmlkeFJhcml0eUwAAgAKaWR4UmFyaXR5RQADAAppZHhSYXJpdHlQAAQAC2NvbGxlY3Rpb256CQDMCAICDURpZ2dpbmcgdG9vbHMFA25pbAAKaWR4Q29sbERpZwAAAApib251c1R5cGV6CQDMCAICCUZhcm1Qb3dlcgUDbmlsAA5pZHhCb251c1R5cGVGcAAAAQZwcm9sb2cBAWkDAwkBAiE9AggFAWkMb3JpZ2luQ2FsbGVyBQ1yZXN0MkNvbnRyYWN0CQELdmFsdWVPckVsc2UCCQCgCAEJAQprZXlCbG9ja2VkAAcHCQACAQIfQ29udHJhY3RzIGFyZSB1bmRlciBtYWludGVuYW5jZQQEYWRkcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIEBHdlZWsJAGkCBQZoZWlnaHQFC1dFRUtfQkxPQ0tTBAtsYXN0V2Vla0tleQkBFWtleUxhc3RXZWVrVHhJZEJ5VXNlcgEFBGFkZHIEEmxhc3RXZWVrVHhJZEJ5VXNlcgkAoggBBQtsYXN0V2Vla0tleQQEdHhJZAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkBAN3dHgJAKwCAgkArAICCQCkAwEFBHdlZWsCAV8FBHR4SWQECmN1cldlZWtLZXkJARRrZXlDdXJXZWVrVHhJZEJ5VXNlcgEFBGFkZHIDCQEJaXNEZWZpbmVkAQUSbGFzdFdlZWtUeElkQnlVc2VyBApsYXN0V2Vla1R4CQC1CQIJAQV2YWx1ZQEFEmxhc3RXZWVrVHhJZEJ5VXNlcgIBXwMJAAACCQCRAwIFCmxhc3RXZWVrVHgAAAkApAMBBQR3ZWVrCQDMCAIJAQtTdHJpbmdFbnRyeQIFC2xhc3RXZWVrS2V5BQN3dHgJAMwIAgkBC1N0cmluZ0VudHJ5AgUKY3VyV2Vla0tleQUDd3R4BQNuaWwDCQAAAgkAkQMCBQpsYXN0V2Vla1R4AAAJAKQDAQkAZQIFBHdlZWsAAQkAzAgCCQELU3RyaW5nRW50cnkCBQpjdXJXZWVrS2V5BQN3dHgFA25pbAQRY3VyV2Vla1R4SWRCeVVzZXIJARFAZXh0ck5hdGl2ZSgxMDU4KQEFCmN1cldlZWtLZXkECWN1cldlZWtUeAkAtQkCBRFjdXJXZWVrVHhJZEJ5VXNlcgIBXwMJAAACCQCRAwIFCWN1cldlZWtUeAAACQCkAwEFBHdlZWsJAMwIAgkBC1N0cmluZ0VudHJ5AgUKY3VyV2Vla0tleQUDd3R4BQNuaWwJAMwIAgkBC1N0cmluZ0VudHJ5AgULbGFzdFdlZWtLZXkFEWN1cldlZWtUeElkQnlVc2VyCQDMCAIJAQtTdHJpbmdFbnRyeQIFCmN1cldlZWtLZXkFA3d0eAUDbmlsCQDMCAIJAQtTdHJpbmdFbnRyeQIFC2xhc3RXZWVrS2V5BQN3dHgJAMwIAgkBC1N0cmluZ0VudHJ5AgUKY3VyV2Vla0tleQUDd3R4BQNuaWwBFGNyZWF0ZU5mdERlc2NyQ3VzdG9tCAdjb250S2V5CW5mdFNlcmlhbApjb2xsZWN0aW9uBG5hbWUFZGVzY3IGcmFyaXR5BWJvbnVzCWJvbnVzVHlwZQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIieyJ1cmwiOiAiaHR0cHM6Ly93YXZlc2xhbmRzLmNvbSIsIAIPImNvbnRlbnRLZXkiOiAiBQdjb250S2V5AgMiLCACCiJudW1iZXIiOiAJAKQDAQUJbmZ0U2VyaWFsAgIsIAIPImNvbGxlY3Rpb24iOiAiBQpjb2xsZWN0aW9uAgMiLCACCSJuYW1lIjogIgUEbmFtZQIDIiwgAhAiZGVzY3JpcHRpb24iOiAiBQVkZXNjcgIDIiwgAgkicmFyZSI6ICIFBnJhcml0eQIDIiwgAgkiYm9udXMiOiAJAKQDAQUFYm9udXMCAiwgAg4iYm9udXNUeXBlIjogIgUJYm9udXNUeXBlAgIifQEOaXNzdWVOZnRDdXN0b20IB25hbWVJZHgKY29udEtleUlkeAdjb2xsSWR4CXJhcml0eUlkeAlib251c1BlcmMIZGVzY3JJZHgMYm9udXNUeXBlSWR4BGFkZHIECW5mdFNlcmlhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRFrZXlOZnRUb3RhbElzc3VlZAAABAZyYXJpdHkJAJEDAgULcmFyaXR5TmFtZXMFCXJhcml0eUlkeAQEbmFtZQkArAICCQCsAgIJAKwCAgkAkQMCBQVuYW1legUHbmFtZUlkeAIBLQkArwICBQZyYXJpdHkAAQkApAMBBQlib251c1BlcmMEBWlzc3VlCQDCCAUFBG5hbWUJARRjcmVhdGVOZnREZXNjckN1c3RvbQgJAJEDAgULY29udGVudEtleXoFCmNvbnRLZXlJZHgFCW5mdFNlcmlhbAkAkQMCBQtjb2xsZWN0aW9uegUHY29sbElkeAkAkQMCBQVuYW1lcwUHbmFtZUlkeAkAkQMCBQxkZXNjcmlwdGlvbnMFCGRlc2NySWR4CQCRAwIFC3Jhcml0eU5hbWVzBQlyYXJpdHlJZHgFCWJvbnVzUGVyYwkAkQMCBQpib251c1R5cGV6BQxib251c1R5cGVJZHgAAQAABwQKbmZ0QXNzZXRJZAkAuAgBBQVpc3N1ZQkAlAoCCQDMCAIFBWlzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRFrZXlOZnRUb3RhbElzc3VlZAkAZAIFCW5mdFNlcmlhbAABCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVa2V5TmZ0TnVtYmVyQnlBc3NldElkAQkA2AQBBQpuZnRBc3NldElkBQluZnRTZXJpYWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUEYWRkcgABBQpuZnRBc3NldElkBQNuaWwFCm5mdEFzc2V0SWQBEmJvbnVzQnlEZXNjcmlwdGlvbgEFZGVzY3IDCQEBIQEJAQhjb250YWlucwIFBWRlc2NyAhgiYm9udXNUeXBlIjogIkZhcm1Qb3dlciIJAAIBCQCsAgICFk5GVCBpcyBub3Qgc3VwcG9ydGVkOiAFBWRlc2NyBAhib251c1N0cgkAkQMCCQC8CQIJAJEDAgkAvAkCBQVkZXNjcgIIImJvbnVzIjoAAQIBLAAACQENcGFyc2VJbnRWYWx1ZQEJALACAgUIYm9udXNTdHIJAGQCCQELdmFsdWVPckVsc2UCCQC3CQIFCGJvbnVzU3RyAgEgAP///////////wEAAQEWcmFyaXR5SWR4QnlEZXNjcmlwcmlvbgEFZGVzY3IDCQEBIQEJAQhjb250YWlucwIFBWRlc2NyAgYicmFyZSIJAAIBCQCsAgICFk5GVCBpcyBub3Qgc3VwcG9ydGVkOiAFBWRlc2NyBAlyYXJpdHlTdHIJAJEDAgkAvAkCCQCRAwIJALwJAgkAkQMCCQC8CQIFBWRlc2NyAgYicmFyZSIAAQIBLAAAAgEiAAEJAQV2YWx1ZQEJAM8IAgULcmFyaXR5TmFtZXMFCXJhcml0eVN0cgEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMDYW10B2FkZHJlc3MKYm9udXNEZWx0YQMDCQAAAgUDYW10AAAJAAACBQpib251c0RlbHRhAAAHCQACAQINTm90aGluZyB0byBkbwQJd2xnUmVzdWx0CQD8BwQFC3dsZ0NvbnRyYWN0AhJvblN0YWtlVW5zdGFrZUxhbmQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwDCQAAAgUJd2xnUmVzdWx0BQl3bGdSZXN1bHQEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARdrZXlBY3Jlc1N0YWtlZEFtdEJ5VXNlcgEFB2FkZHJlc3MEDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAAAwMJAGYCAAAFA2FtdAkAZgIAAAkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQHCQACAQkArAICCQCsAgIJAKwCAgIOWW91IGhhdmUgb25seSAJAQpmaXhlZFBvaW50AgUOb2xkQWNyZXNBbW91bnQACAIgIEFDUkVTIHN0YWtlZCwgdHJpZWQgdG8gdW5zdGFrZSAJAQpmaXhlZFBvaW50AgkBAS0BBQNhbXQACAQObmV3QWNyZXNBbW91bnQJAGQCBQ5vbGRBY3Jlc0Ftb3VudAUDYW10BAhvbGRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRJhY3Jlc1N0YWtkVG90YWxLZXkAAAQJdXNlckZwS2V5CQEVa2V5RmFybWluZ1Bvd2VyQnlVc2VyAQUHYWRkcmVzcwQFb2xkRnAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJdXNlckZwS2V5AAAECGJvbnVzS2V5CQEQa2V5VXNlckZ1bGxCb251cwEFB2FkZHJlc3MECG9sZEJvbnVzCQELdmFsdWVPckVsc2UCCQCaCAIFDmFjcmVzMkNvbnRyYWN0BQhib251c0tleQAAAwMJAGYCAAAFCmJvbnVzRGVsdGEJAGYCAAAJAGQCBQhvbGRCb251cwUKYm9udXNEZWx0YQcJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFCG9sZEJvbnVzAAQCHiUgYm9udXMsIGFuZCB0cmllZCB0byB1bnN0YWtlIAkBCmZpeGVkUG9pbnQCCQEBLQEFCmJvbnVzRGVsdGEABAIBJQQLJHQwNjI5OTYzOTgJAR5nZXRGYXJtaW5nUG93ZXJCeUFjcmVzQW5kQm9udXMCBQ5uZXdBY3Jlc0Ftb3VudAkAZAIFCG9sZEJvbnVzBQpib251c0RlbHRhBAxuZXdCb251c2VkRnAIBQskdDA2Mjk5NjM5OAJfMQQHaWdub3JlZAgFCyR0MDYyOTk2Mzk4Al8yBApvbGRUb3RhbEZwCQELdmFsdWVPckVsc2UCCQCfCAEFFHRvdGFsRmFybWluZ1Bvd2VyS2V5AAAEDGFjcmVzQWN0aW9ucwMJAAACBQNhbXQAAAUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlhbW91bnRLZXkFDm5ld0FjcmVzQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJhY3Jlc1N0YWtkVG90YWxLZXkJAGQCBQhvbGRUb3RhbAUDYW10BQNuaWwEDGJvbnVzQWN0aW9ucwMJAAACBQpib251c0RlbHRhAAAFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUIYm9udXNLZXkJAGQCBQhvbGRCb251cwUKYm9udXNEZWx0YQUDbmlsCQCUCgIJAM0IAgkAzQgCCQDNCAIJAM4IAgUMYWNyZXNBY3Rpb25zBQxib251c0FjdGlvbnMJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCXVzZXJGcEtleQUMbmV3Qm9udXNlZEZwCQEMSW50ZWdlckVudHJ5AgUUdG90YWxGYXJtaW5nUG93ZXJLZXkJAGUCCQBkAgUKb2xkVG90YWxGcAUMbmV3Qm9udXNlZEZwBQVvbGRGcAUJd2xnUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQtnZXRXbGdQcmljZQEVdXNkdEJhbGFuY2VDb3JyZWN0aW9uBAxpc3N1ZWRBbW91bnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQt3bGdDb250cmFjdAUPd2xnSXNzdWVkQW10S2V5AhhXTEdPTEQgaXMgbm90IGlzc3VlZCB5ZXQEBndsZ1VzZAkA8AcCBQt3bGdDb250cmFjdAULdXNkdEFzc2V0SWQECWFjcmVzMlVzZAkAZQIJAPAHAgUOYWNyZXMyQ29udHJhY3QFC3VzZHRBc3NldElkBRV1c2R0QmFsYW5jZUNvcnJlY3Rpb24ED2ludmVzdEZ1bmRUb3RhbAkAZAIJAPAHAgUSaW52ZXN0RnVuZENvbnRyYWN0BQt1c2R0QXNzZXRJZAkBC3ZhbHVlT3JFbHNlAgkAmggCBRJpbnZlc3RGdW5kQ29udHJhY3QFDnpiSXNzdWVkQW10S2V5AAAEDXRvdGFsRnVuZHNVc2QJAGQCCQBkAgUJYWNyZXMyVXNkBQZ3bGdVc2QFD2ludmVzdEZ1bmRUb3RhbAkAawMFDXRvdGFsRnVuZHNVc2QFBU1VTFQ4BQxpc3N1ZWRBbW91bnQBEWdldFN3YXBMaW1pdEFjcmVzAAQGd2xnVXNkCQDwBwIFC3dsZ0NvbnRyYWN0BQt1c2R0QXNzZXRJZAQJYWNyZXMyVXNkCQDwBwIFBHRoaXMFC3VzZHRBc3NldElkBA9pbnZlc3RGdW5kVG90YWwJAGQCCQDwBwIFEmludmVzdEZ1bmRDb250cmFjdAULdXNkdEFzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUSaW52ZXN0RnVuZENvbnRyYWN0BQ56Yklzc3VlZEFtdEtleQAABAxkZWZhdWx0TGltaXQJAGkCCQBkAgkAZAIFCWFjcmVzMlVzZAUGd2xnVXNkBQ9pbnZlc3RGdW5kVG90YWwFE09ORV9QRVJDRU5UX0RJVklTT1IEDWxhc3RMaW1pdExlZnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUQa2V5TGFzdExpbWl0TGVmdAUMZGVmYXVsdExpbWl0BAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBRRrZXlMYXN0QWNyZXNTZWxsVGltZQAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAxjdXJyZW50TGltaXQJAGQCBQ1sYXN0TGltaXRMZWZ0CQBrAwUMZGVmYXVsdExpbWl0CQBlAgUDbm93BQhsYXN0VGltZQUKREFZX01JTExJUwQNbGltaXRMZWZ0VXNkdAkAlwMBCQDMCAIFDGN1cnJlbnRMaW1pdAkAzAgCBQxkZWZhdWx0TGltaXQFA25pbAkAlAoCCQEMSW50ZWdlckVudHJ5AgUUa2V5TGFzdEFjcmVzU2VsbFRpbWUFA25vdwUNbGltaXRMZWZ0VXNkdAAJYXJrT3JhY2xlCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUEpnWjZBSzFXVkNwZENtRVpwZXNIbWFLdnJRRGRYRzVvZwAJaW5jdWJhdG9yCQELdmFsdWVPckVsc2UCCQCdCAIFCWFya09yYWNsZQIXc3RhdGljX2luY3ViYXRvckFkZHJlc3MCAAAHYnJlZWRlcgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQlhcmtPcmFjbGUCFXN0YXRpY19icmVlZGVyQWRkcmVzcwIAAA90dXJ0bGVJbmN1YmF0b3IJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUJYXJrT3JhY2xlAh1zdGF0aWNfdHVydGxlSW5jdWJhdG9yQWRkcmVzcwIAAA10dXJ0bGVCcmVlZGVyCQELdmFsdWVPckVsc2UCCQCdCAIFCWFya09yYWNsZQIbc3RhdGljX3R1cnRsZUJyZWVkZXJBZGRyZXNzAgAAD2NhbmluZUluY3ViYXRvcgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQlhcmtPcmFjbGUCHXN0YXRpY19jYW5pbmVJbmN1YmF0b3JBZGRyZXNzAgAADWNhbmluZUJyZWVkZXIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUJYXJrT3JhY2xlAhtzdGF0aWNfY2FuaW5lQnJlZWRlckFkZHJlc3MCAAAPZmVsaW5lSW5jdWJhdG9yCQELdmFsdWVPckVsc2UCCQCdCAIFCWFya09yYWNsZQIdc3RhdGljX2ZlbGluZUluY3ViYXRvckFkZHJlc3MCAAANZmVsaW5lQnJlZWRlcgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQlhcmtPcmFjbGUCG3N0YXRpY19mZWxpbmVCcmVlZGVyQWRkcmVzcwIAAA1tdXRhbnRCcmVlZGVyCQELdmFsdWVPckVsc2UCCQCdCAIFCWFya09yYWNsZQIdc3RhdGljX211dGFudEluY3ViYXRvckFkZHJlc3MCAAEPaXNBcmtpbWFsSXNzdWVkAQNuZm8EBmlzc3VlcgkApQgBCAUDbmZvBmlzc3VlcgMDAwMDAwMDAwMJAAACBQVjaGFpbgEBVAkAAAIFBmlzc3VlcgUVb2xkU3Rha2luZ0NvbnRyYWN0U3RyBwYJAAACBQZpc3N1ZXIFCWluY3ViYXRvcgYJAAACBQZpc3N1ZXIFB2JyZWVkZXIGCQAAAgUGaXNzdWVyBQ90dXJ0bGVJbmN1YmF0b3IGCQAAAgUGaXNzdWVyBQ10dXJ0bGVCcmVlZGVyBgkAAAIFBmlzc3VlcgUPY2FuaW5lSW5jdWJhdG9yBgkAAAIFBmlzc3VlcgUNY2FuaW5lQnJlZWRlcgYJAAACBQZpc3N1ZXIFD2ZlbGluZUluY3ViYXRvcgYJAAACBQZpc3N1ZXIFDWZlbGluZUJyZWVkZXIIBQNuZm8EbmFtZQMJAAACBQZpc3N1ZXIFDW11dGFudEJyZWVkZXIIBQNuZm8LZGVzY3JpcHRpb24CAAEQc3Rha2VOZnRJbnRlcm5hbAYEYWRkcgphc3NldElkU3RyBmJvbnVzNgp1c2VyTnVtS2V5C3RvdGFsTnVtS2V5BWxpbWl0BAluZnROdW1iZXIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUKdXNlck51bUtleQAAAwkAZwIFCW5mdE51bWJlcgUFbGltaXQJAAIBCQCsAgIJAKwCAgISWW91IGNhbiBzdGFrZSBtYXggCQCkAwEFBWxpbWl0Ag0gb2Ygc3VjaCBORlRzBA0kdDAxMDY3NzEwNzUzCQEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMAAAUEYWRkcgUGYm9udXM2BAdhY3Rpb25zCAUNJHQwMTA2NzcxMDc1MwJfMQQQd2xnQ2xhaW1lZEFtb3VudAgFDSR0MDEwNjc3MTA3NTMCXzIJAJQKAgkAzQgCCQDNCAIJAM0IAgUHYWN0aW9ucwkBDEludGVnZXJFbnRyeQIFCnVzZXJOdW1LZXkJAGQCBQluZnROdW1iZXIAAQkBDEludGVnZXJFbnRyeQIFC3RvdGFsTnVtS2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBQt0b3RhbE51bUtleQAAAAEJAQxJbnRlZ2VyRW50cnkCCQEea2V5U3Rha2VkVGltZUJ5QXNzZXRJZEFuZE93bmVyAgUKYXNzZXRJZFN0cgUEYWRkcggFCWxhc3RCbG9jawl0aW1lc3RhbXAFEHdsZ0NsYWltZWRBbW91bnQTAWkBCnNhdmVMYXN0VHgAAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgkAzAgCBQt3bGdDb250cmFjdAUDbmlsCAUBaQZjYWxsZXIJAAIBAg1BY2Nlc3MgZGVuaWVkCQCUCgIJAQZwcm9sb2cBBQFpACoBaQENY29uc3RydWN0b3JWMQIJcmVzdDJBZGRyDm9sZEFjckNvbnRyYWN0AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQEDm9sZEFjckNvbnRBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBBQ5vbGRBY3JDb250cmFjdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUYWNyZXNJc3N1ZWRBbW91bnRLZXkJARFAZXh0ck5hdGl2ZSgxMDUwKQIFDm9sZEFjckNvbnRBZGRyBRRhY3Jlc0lzc3VlZEFtb3VudEtleQkAzAgCCQELQmluYXJ5RW50cnkCBQ9hY3Jlc0Fzc2V0SWRLZXkJARFAZXh0ck5hdGl2ZSgxMDUyKQIFDm9sZEFjckNvbnRBZGRyBQ9hY3Jlc0Fzc2V0SWRLZXkJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD2tleVJlc3QyQWRkcmVzcwAFCXJlc3QyQWRkcgkAzAgCCQELU3RyaW5nRW50cnkCBRNvbGRBY3Jlc0NvbnRyYWN0S2V5BQ5vbGRBY3JDb250cmFjdAUDbmlsAWkBCnNldEJsb2NrZWQBCWlzQmxvY2tlZAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEXBlcm1pc3Npb24gZGVuaWVkCQDMCAIJAQxCb29sZWFuRW50cnkCCQEKa2V5QmxvY2tlZAAFCWlzQmxvY2tlZAUDbmlsAWkBDHVuc3Rha2VBY3JlcwEGYW1vdW50BA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQMJAGcCAAAFBmFtb3VudAkAAgECGUFtb3VudCBzaG91bGQgYmUgcG9zaXRpdmUEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEDmFyYlJlbGVhc2VUaW1lCQBkAgkBC3ZhbHVlT3JFbHNlAgkAmggCBQt3bGdDb250cmFjdAkBGWtleUxhc3RXbGdUcmFkZVRpbWVCeVVzZXIBBQdhZGRyZXNzAAAFDmFyYml0cmFnZURlbGF5AwkAZgIFDmFyYlJlbGVhc2VUaW1lCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAAgEJAKwCAgItWW91IHRyYWRlZCBzb21lIFdMR09MRCwgY2Fubm90IHVuc3Rha2UgdW50aWwgCQCkAwEFDmFyYlJlbGVhc2VUaW1lBA0kdDAxMjMyNzEyNDA3CQEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMJAQEtAQUGYW1vdW50BQdhZGRyZXNzAAAEB2FjdGlvbnMIBQ0kdDAxMjMyNzEyNDA3Al8xBBB3bGdDbGFpbWVkQW1vdW50CAUNJHQwMTIzMjcxMjQwNwJfMgkAlAoCCQDOCAIJAM0IAgUHYWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZhbW91bnQFDGFjcmVzQXNzZXRJZAUNcHJvbG9nQWN0aW9ucwUQd2xnQ2xhaW1lZEFtb3VudAFpAQpzdGFrZUFjcmVzAAQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQxhY3Jlc0Fzc2V0SWQJAAIBAhRBQ1JFUyBwYXltZW50cyBvbmx5IQQNJHQwMTI4NTgxMjkzNAkBGXN0YWtlVW5zdGFrZUFjcmVzSW50ZXJuYWwDBQNhbXQFB2FkZHJlc3MAAAQHYWN0aW9ucwgFDSR0MDEyODU4MTI5MzQCXzEEEHdsZ0NsYWltZWRBbW91bnQIBQ0kdDAxMjg1ODEyOTM0Al8yCQCUCgIJAM4IAgUHYWN0aW9ucwUNcHJvbG9nQWN0aW9ucwUQd2xnQ2xhaW1lZEFtb3VudAFpAQhidXlBY3JlcwAEDXByb2xvZ0FjdGlvbnMJAQZwcm9sb2cBBQFpAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAECnVzZHRBbW91bnQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQp1c2R0QW1vdW50CQACAQkArAICCQCsAgICFk1pbiBwYXltZW50IHNob3VsZCBiZSAJAQpmaXhlZFBvaW50AgUFTVVMVDYABgIFIFVTRFQEC2FjcmVzQW1vdW50CQBoAgUKdXNkdEFtb3VudAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSBAl3bGdBbW91bnQJAGsDBQp1c2R0QW1vdW50BQVNVUxUOAkBC2dldFdsZ1ByaWNlAQUKdXNkdEFtb3VudAQPb2xkQWNyZXNBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRNvbGRBY3Jlc0NvbnRyYWN0S2V5BANyZXEJAPwHBAUPb2xkQWNyZXNBZGRyZXNzAhRyZXF1ZXN0QWNyZXNDYWxsYmFjawkAzAgCBQthY3Jlc0Ftb3VudAUDbmlsBQNuaWwDCQAAAgUDcmVxBQNyZXEECXdsZ1JlbWFpbgkBBWFzSW50AQkA/AcEBQt3bGdDb250cmFjdAIKYnVybldsZ29sZAkAzAgCBQl3bGdBbW91bnQFA25pbAUDbmlsCQCUCgIJAM4IAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2FjcmVzQW1vdW50BQxhY3Jlc0Fzc2V0SWQFA25pbAUNcHJvbG9nQWN0aW9ucwUJd2xnUmVtYWluCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEGJ1eUFjcmVzUkVBRE9OTFkBCnVzZHRBbW91bnQEC2FjcmVzQW1vdW50CQBoAgUKdXNkdEFtb3VudAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSBAl3bGdUb0J1cm4JAGsDBQp1c2R0QW1vdW50BQVNVUxUOAkBC2dldFdsZ1ByaWNlAQUKdXNkdEFtb3VudAkAlAoCBQNuaWwJAMwIAgULYWNyZXNBbW91bnQJAMwIAgUFTVVMVDYJAMwIAgULYWNyZXNBbW91bnQJAMwIAgUJd2xnVG9CdXJuBQNuaWwBaQEJc2VsbEFjcmVzAAQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQLYWNyZXNBbW91bnQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEDCQBmAgUFTVVMVDcFC2FjcmVzQW1vdW50CQACAQkArAICCQCsAgICFk1pbiBwYXltZW50IHNob3VsZCBiZSAJAQpmaXhlZFBvaW50AgUFTVVMVDcACAIGIEFDUkVTBARhZGRyCQClCAEIBQFpBmNhbGxlcgQNJHQwMTQ3OTExNDgzOQkBEWdldFN3YXBMaW1pdEFjcmVzAAQLbGltaXRBY3Rpb24IBQ0kdDAxNDc5MTE0ODM5Al8xBAdtYXhVc2R0CAUNJHQwMTQ3OTExNDgzOQJfMgQIbWF4QWNyZXMJAGgCBQdtYXhVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIDCQBmAgULYWNyZXNBbW91bnQFCG1heEFjcmVzCQACAQkArAICCQCsAgICEVlvdSBjYW4gc2VsbCBtYXggCQEKZml4ZWRQb2ludAIFCG1heEFjcmVzAAgCBiBBQ1JFUwQKdXNkdEFtb3VudAkAaQIJAGkCBQthY3Jlc0Ftb3VudAUVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAAIJAJQKAgkAzggCCQDMCAIFC2xpbWl0QWN0aW9uCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBrZXlMYXN0TGltaXRMZWZ0CQBlAgUHbWF4VXNkdAUKdXNkdEFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCnVzZHRBbW91bnQFC3VzZHRBc3NldElkBQNuaWwFDXByb2xvZ0FjdGlvbnMFCnVzZHRBbW91bnQBaQERc2VsbEFjcmVzUkVBRE9OTFkCB2FkZHJlc3MLYWNyZXNBbW91bnQEDSR0MDE1MzM1MTUzODMJARFnZXRTd2FwTGltaXRBY3JlcwAEC2xpbWl0QWN0aW9uCAUNJHQwMTUzMzUxNTM4MwJfMQQHbWF4VXNkdAgFDSR0MDE1MzM1MTUzODMCXzIECnVzZHRBbW91bnQJAGkCCQBpAgULYWNyZXNBbW91bnQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgACCQCUCgIFA25pbAkAzAgCBQp1c2R0QW1vdW50CQDMCAIFBU1VTFQ3CQDMCAIJAGgCBQdtYXhVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIJAMwIAgAABQNuaWwBaQEQY29udmVydE9sZFN0YWtlcwAEDXByb2xvZ0FjdGlvbnMJAQZwcm9sb2cBBQFpAwkAZgIFEU9MRF9TVEFLSU5HX0RFQURMCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAAgEJAKwCAgIPRGlzYWJsZWQgdW50aWwgCQCkAwEJAGkCBRFPTERfU1RBS0lOR19ERUFETADoBwQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQPb2xkQWNyZXNBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRNvbGRBY3Jlc0NvbnRyYWN0S2V5BAZhbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPb2xkQWNyZXNBZGRyZXNzCQEXa2V5QWNyZXNTdGFrZWRBbXRCeVVzZXIBBQdhZGRyZXNzAAAECWdvdEFjcmVzMAMJAGYCBQZhbW91bnQAAAkBDGFzVHVwbGUySW50cwEJAPwHBAUPb2xkQWNyZXNBZGRyZXNzAhR1bnN0YWtlQWNyZXNDYWxsYmFjawkAzAgCBQZhbW91bnQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwJAJQKAgAAAAAEEW9sZFN0YWtpbmdBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBRVvbGRTdGFraW5nQ29udHJhY3RTdHIECGxhbmRzU3RyCQCdCAIFEW9sZFN0YWtpbmdBZGRyZXNzCQEVa2V5U3Rha2VkTGFuZHNCeU93bmVyAQUHYWRkcmVzcwQLbGFuZHNSZXN1bHQDCQEJaXNEZWZpbmVkAQUIbGFuZHNTdHIEBWxhbmRzCQC9CQIJAQV2YWx1ZQEFCGxhbmRzU3RyAgFfAwkAZgIJAJADAQUFbGFuZHMFFE1BWF9MQU5EU19UT19DT05WRVJUCQACAQkArAICCQCsAgICE1lvdSBoYXZlIG1vcmUgdGhhbiAJAKQDAQUUTUFYX0xBTkRTX1RPX0NPTlZFUlQCRyBsYW5kcyBzdGFrZWQsIHBsZWFzZSBjb250YWN0IHN1cHBvcnQsIHdlJ2xsIHByb2Nlc3MgeW91ciBjYXNlIG1hbnVhbGx5CgEHb25lTGFuZAIDYWNjC2xhbmRBc3NldElkAwkAAAIFC2xhbmRBc3NldElkAgAJAAIBAhdsYW5kQXNzZXRJZCBpcyByZXF1aXJlZAQBcgkBDGFzVHVwbGU1SW50cwEJAPwHBAURb2xkU3Rha2luZ0FkZHJlc3MCE3Vuc3Rha2VMYW5kQ2FsbGJhY2sJAMwIAgULbGFuZEFzc2V0SWQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwDCQAAAgUBcgUBcgkAlwoFCQBkAggFA2FjYwJfMQgFAXICXzEJAGQCCAUDYWNjAl8yCAUBcgJfMgkAZAIIBQNhY2MCXzMIBQFyAl8zCQBkAggFA2FjYwJfNAgFAXICXzQJAGQCCAUDYWNjAl81CAUBcgJfNQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQCcnIKAAIkbAUFbGFuZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCXCgUAAAAAAAAAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ECGZpbmFsaXplCQD8BwQFEW9sZFN0YWtpbmdBZGRyZXNzAhx1bnN0YWtlTGFuZHNGaW5hbGl6ZUNhbGxiYWNrCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsAwkAAAIFCGZpbmFsaXplBQhmaW5hbGl6ZQQDcmVxCQD8BwQFD29sZEFjcmVzQWRkcmVzcwIUcmVxdWVzdEFjcmVzQ2FsbGJhY2sJAMwIAgkAZAIJAGQCCQBkAggFAnJyAl8xCAUCcnICXzIIBQJycgJfMwgFAnJyAl80BQNuaWwFA25pbAMJAAACBQNyZXEFA3JlcQQNJHQwMTc4OTQxODAzMgkBDmlzc3VlTmZ0Q3VzdG9tCAUNaWR4TmFtZVNob3ZlbAUHaWR4S2V5UAUKaWR4Q29sbERpZwUKaWR4UmFyaXR5UAADBQ5pZHhEZXNjclNob3ZlbAUOaWR4Qm9udXNUeXBlRnAIBQFpBmNhbGxlcgQKbmZ0QWN0aW9ucwgFDSR0MDE3ODk0MTgwMzICXzEECm5mdEFzc2V0SWQIBQ0kdDAxNzg5NDE4MDMyAl8yCQCYCgYIBQJycgJfMQgFAnJyAl8yCAUCcnICXzMIBQJycgJfNAgFAnJyAl81BQpuZnRBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQCYCgYAAAAAAAAAAAAABQNuaWwEC2R1Y2tBc3NldElkCQELdmFsdWVPckVsc2UCCQCdCAIFEW9sZFN0YWtpbmdBZGRyZXNzCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQdhZGRyZXNzAgAECmR1Y2tSZXN1bHQDCQECIT0CBQtkdWNrQXNzZXRJZAIACQEMYXNUdXBsZTNJbnRzAQkA/AcEBRFvbGRTdGFraW5nQWRkcmVzcwITdW5zdGFrZUR1Y2tDYWxsYmFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAkAlQoDAAAAAAAABAF4CQEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMJAGQCCQBkAgkAZAIJAGQCCQBkAgkAZAIJAGQCCAUJZ290QWNyZXMwAl8xCAULbGFuZHNSZXN1bHQCXzEIBQtsYW5kc1Jlc3VsdAJfMggFC2xhbmRzUmVzdWx0Al8zCAULbGFuZHNSZXN1bHQCXzQIBQpkdWNrUmVzdWx0Al8xCAUKZHVja1Jlc3VsdAJfMggFCmR1Y2tSZXN1bHQCXzMFB2FkZHJlc3MAAAkAlAoCCQDOCAIJAM4IAggFC2xhbmRzUmVzdWx0Al82CAUBeAJfMQUNcHJvbG9nQWN0aW9ucwkAlQoDCAUJZ290QWNyZXMwAl8yCAULbGFuZHNSZXN1bHQCXzUIBQF4Al8yAWkBFHVuc3Rha2VMYW5kc1JFQURPTkxZAQdhZGRyZXNzBBFvbGRTdGFraW5nQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUVb2xkU3Rha2luZ0NvbnRyYWN0U3RyBAhsYW5kc1N0cgkAnQgCBRFvbGRTdGFraW5nQWRkcmVzcwkBFWtleVN0YWtlZExhbmRzQnlPd25lcgEFB2FkZHJlc3MEC2xhbmRzUmVzdWx0AwkBCWlzRGVmaW5lZAEFCGxhbmRzU3RyBAVsYW5kcwkAvQkCCQEFdmFsdWUBBQhsYW5kc1N0cgIBXwoBB29uZUxhbmQCA2FjYwtsYW5kQXNzZXRJZAMJAAACBQtsYW5kQXNzZXRJZAIACQACAQIXbGFuZEFzc2V0SWQgaXMgcmVxdWlyZWQEAXIJAQxhc1R1cGxlNEludHMBCQD8BwQFEW9sZFN0YWtpbmdBZGRyZXNzAhN1bnN0YWtlTGFuZFJFQURPTkxZCQDMCAIFC2xhbmRBc3NldElkCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsCQCWCgQJAGQCCAUDYWNjAl8xCAUBcgJfMQkAZAIIBQNhY2MCXzIIBQFyAl8yCQBkAggFA2FjYwJfMwgFAXICXzMJAGQCCAUDYWNjAl80CAUBcgJfNAoAAiRsBQVsYW5kcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAAAAAAAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdvbmVMYW5kAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAkAlgoEAAAAAAAAAAAJAJQKAgUDbmlsBQtsYW5kc1Jlc3VsdAFpARJzdGFrZUFjcmVzQ2FsbGJhY2sBBGFkZHIDCQECIT0CCAUBaQZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFFW9sZFN0YWtpbmdDb250cmFjdFN0cgkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQRhZGRyAAABaQEac2ltdWxhdGVTdGFrZUFjcmVzUkVBRE9OTFkCB2FkZHJlc3MLYWRkZWRBbW91bnQECWFtb3VudEtleQkBF2tleUFjcmVzU3Rha2VkQW10QnlVc2VyAQUHYWRkcmVzcwQObmV3QWNyZXNBbW91bnQJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABQthZGRlZEFtb3VudAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUSYWNyZXNTdGFrZFRvdGFsS2V5AAAECXVzZXJGcEtleQkBFWtleUZhcm1pbmdQb3dlckJ5VXNlcgEFB2FkZHJlc3MEBW9sZEZwCQELdmFsdWVPckVsc2UCCQCfCAEFCXVzZXJGcEtleQAABAl1c2VyQm9udXMJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOYWNyZXMyQ29udHJhY3QJARBrZXlVc2VyRnVsbEJvbnVzAQUHYWRkcmVzcwAABA0kdDAyMDMwMzIwMzkwCQEeZ2V0RmFybWluZ1Bvd2VyQnlBY3Jlc0FuZEJvbnVzAgUObmV3QWNyZXNBbW91bnQFCXVzZXJCb251cwQMbmV3Qm9udXNlZEZwCAUNJHQwMjAzMDMyMDM5MAJfMQQHaWdub3JlZAgFDSR0MDIwMzAzMjAzOTACXzIECm9sZFRvdGFsRnAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUdG90YWxGYXJtaW5nUG93ZXJLZXkAAAQKbmV3VG90YWxGcAkAZQIJAGQCBQpvbGRUb3RhbEZwBQxuZXdCb251c2VkRnAFBW9sZEZwCQCUCgIFA25pbAkAzAgCBQVvbGRGcAkAzAgCBQxuZXdCb251c2VkRnAJAMwIAgUKb2xkVG90YWxGcAkAzAgCBQpuZXdUb3RhbEZwBQNuaWwBaQELaXNzdWVQaWNrQzEBCmZvckFkZHJlc3MDCQECIT0CCAUBaQZjYWxsZXIFC3dsZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAQ5pc3N1ZU5mdEN1c3RvbQgFDmlkeE5hbWVQaWNrYXhlBQdpZHhLZXlDBQppZHhDb2xsRGlnBQppZHhSYXJpdHlDAAEFD2lkeERlc2NyUGlja2F4ZQUOaWR4Qm9udXNUeXBlRnAJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCmZvckFkZHJlc3MBaQEIc3Rha2VORlQABA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECHEV4YWN0bHkgb25lIHBheW1lbnQgcmVxdWlyZWQEA3BtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAAAwkBAiE9AggFA3BtdAZhbW91bnQAAQkAAgECJ05GVCB0b2tlbiBzaG91bGQgYmUgYXR0YWNoZWQgYXMgcGF5bWVudAQHYXNzZXRJZAkBBXZhbHVlAQgFA3BtdAdhc3NldElkBAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkBAphc3NldElkU3RyCQDYBAEFB2Fzc2V0SWQEBGFkZHIJAKUIAQgFAWkGY2FsbGVyBAduZnRzS2V5CQEUa2V5U3Rha2VkTkZUc0J5T3duZXIBBQRhZGRyBAduZnRzU3RyCQCiCAEFB25mdHNLZXkEBG5mdHMDCQEJaXNEZWZpbmVkAQUHbmZ0c1N0cgkAvAkCCQEFdmFsdWUBBQduZnRzU3RyAgFfBQNuaWwDCQEPY29udGFpbnNFbGVtZW50AgUEbmZ0cwUKYXNzZXRJZFN0cgkAAgEJAKwCAgIhWW91ciBzdGFrZWQgTkZUcyBhbHJlYWR5IGNvbnRhaW4gBQphc3NldElkU3RyAwkAZwIJAJADAQUEbmZ0cwUXTUFYX05GVFNfU1RBS0VEX0JZX1VTRVIJAAIBCQCsAgIJAKwCAgIZWW91ciBhbHJlYWR5IHN0YWtlZCBtYXggKAkApAMBBRdNQVhfTkZUU19TVEFLRURfQllfVVNFUgIGKSBORlRzBApsaXN0QWN0aW9uCQELU3RyaW5nRW50cnkCBQduZnRzS2V5CQC6CQIJAM0IAgUEbmZ0cwUKYXNzZXRJZFN0cgIBXwMJAAACCAUFYXNzZXQGaXNzdWVyBQR0aGlzBA0kdDAyMTc5OTIxOTg5CQEQc3Rha2VOZnRJbnRlcm5hbAYFBGFkZHIFCmFzc2V0SWRTdHIJAGgCCQESYm9udXNCeURlc2NyaXB0aW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uAJBOCQESa2V5VXNlcldsTmZ0TnVtYmVyAQUEYWRkcgUTa2V5V2xOZnRUb3RhbFN0YWtlZAULTUFYX1dMX05GVFMEB2FjdGlvbnMIBQ0kdDAyMTc5OTIxOTg5Al8xBBB3bGdDbGFpbWVkQW1vdW50CAUNJHQwMjE3OTkyMTk4OQJfMgkAlAoCCQDNCAIJAM4IAgUNcHJvbG9nQWN0aW9ucwUHYWN0aW9ucwUKbGlzdEFjdGlvbgUQd2xnQ2xhaW1lZEFtb3VudAMJAAACCQEPaXNBcmtpbWFsSXNzdWVkAQUFYXNzZXQCAAkAAgECNE9ubHkgV2F2ZXNMYW5kcyBhbmQgQXJraW1hbHMgTkZUIHRva2VucyBhcmUgYWNjZXB0ZWQEDSR0MDIyMTcwMjIzMjEJARBzdGFrZU5mdEludGVybmFsBgUEYWRkcgUKYXNzZXRJZFN0cgUNQVJLX05GVF9CT05VUwkBE2tleVVzZXJBcmtOZnROdW1iZXIBBQRhZGRyBRRrZXlBcmtOZnRUb3RhbFN0YWtlZAUMTUFYX0FSS19ORlRTBAdhY3Rpb25zCAUNJHQwMjIxNzAyMjMyMQJfMQQQd2xnQ2xhaW1lZEFtb3VudAgFDSR0MDIyMTcwMjIzMjECXzIJAJQKAgkAzQgCCQDOCAIFDXByb2xvZ0FjdGlvbnMFB2FjdGlvbnMFCmxpc3RBY3Rpb24FEHdsZ0NsYWltZWRBbW91bnQBaQEKdW5zdGFrZU5GVAEKYXNzZXRJZFN0cgQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHYXNzZXRJZAkA2QQBBQphc3NldElkU3RyBARhZGRyCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAQHdGltZUtleQkBHmtleVN0YWtlZFRpbWVCeUFzc2V0SWRBbmRPd25lcgIFCmFzc2V0SWRTdHIFBGFkZHIDCQEBIQEJAQlpc0RlZmluZWQBCQCfCAEFB3RpbWVLZXkJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCFSBpcyBub3Qgc3Rha2VkIGJ5IHlvdQQHbmZ0c0tleQkBFGtleVN0YWtlZE5GVHNCeU93bmVyAQUEYWRkcgQEbmZ0cwkAvAkCCQELdmFsdWVPckVsc2UCCQCiCAEFB25mdHNLZXkCAAIBXwQDaWR4CQDPCAIFBG5mdHMFCmFzc2V0SWRTdHIDCQEBIQEJAQlpc0RlZmluZWQBBQNpZHgJAAIBCQCsAgICH1lvdXIgc3Rha2VkIE5GVHMgZG9uJ3QgY29udGFpbiAFCmFzc2V0SWRTdHIECmxpc3RBY3Rpb24DCQBmAgkAkAMBBQRuZnRzAAEJAQtTdHJpbmdFbnRyeQIFB25mdHNLZXkJALoJAgkA0QgCBQRuZnRzCQEFdmFsdWUBBQNpZHgCAV8JAQtEZWxldGVFbnRyeQEFB25mdHNLZXkEBGlzV0wJAAACCAUFYXNzZXQGaXNzdWVyBQR0aGlzAwUEaXNXTAQLd2xOZnROdW1iZXIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBEmtleVVzZXJXbE5mdE51bWJlcgEFBGFkZHIAAAQIYm9udXNWYWwJAGgCCQESYm9udXNCeURlc2NyaXB0aW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uAJBOBA0kdDAyMzQ4NjIzNTY1CQEZc3Rha2VVbnN0YWtlQWNyZXNJbnRlcm5hbAMAAAUEYWRkcgkBAS0BBQhib251c1ZhbAQHYWN0aW9ucwgFDSR0MDIzNDg2MjM1NjUCXzEEEHdsZ0NsYWltZWRBbW91bnQIBQ0kdDAyMzQ4NjIzNTY1Al8yCQCUCgIJAM4IAgkAzQgCCQDNCAIJAM0IAgkAzQgCCQDNCAIFB2FjdGlvbnMFCmxpc3RBY3Rpb24JAQxJbnRlZ2VyRW50cnkCCQESa2V5VXNlcldsTmZ0TnVtYmVyAQUEYWRkcgkAZQIFC3dsTmZ0TnVtYmVyAAEJAQxJbnRlZ2VyRW50cnkCBRNrZXlXbE5mdFRvdGFsU3Rha2VkCQCWAwEJAMwIAgAACQDMCAIJAGUCCQELdmFsdWVPckVsc2UCCQCfCAEFE2tleVdsTmZ0VG90YWxTdGFrZWQAAAABBQNuaWwJAQtEZWxldGVFbnRyeQEJAR5rZXlTdGFrZWRUaW1lQnlBc3NldElkQW5kT3duZXICCQDYBAEFB2Fzc2V0SWQFBGFkZHIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdhc3NldElkBQ1wcm9sb2dBY3Rpb25zBRB3bGdDbGFpbWVkQW1vdW50BAthcmtpbWFsTmFtZQkBD2lzQXJraW1hbElzc3VlZAEFBWFzc2V0AwkAAAIFC2Fya2ltYWxOYW1lAgAJAAIBAjRPbmx5IFdhdmVzTGFuZHMgYW5kIEFya2ltYWxzIE5GVCB0b2tlbnMgYXJlIGFjY2VwdGVkBAxhcmtOZnROdW1iZXIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBE2tleVVzZXJBcmtOZnROdW1iZXIBBQRhZGRyAAAEDSR0MDI0MjI1MjQzMDkJARlzdGFrZVVuc3Rha2VBY3Jlc0ludGVybmFsAwAABQRhZGRyCQEBLQEFDUFSS19ORlRfQk9OVVMEB2FjdGlvbnMIBQ0kdDAyNDIyNTI0MzA5Al8xBBB3bGdDbGFpbWVkQW1vdW50CAUNJHQwMjQyMjUyNDMwOQJfMgkAlAoCCQDOCAIJAM0IAgkAzQgCCQDNCAIJAM0IAgUHYWN0aW9ucwUKbGlzdEFjdGlvbgkBDEludGVnZXJFbnRyeQIJARNrZXlVc2VyQXJrTmZ0TnVtYmVyAQUEYWRkcgkAZQIFDGFya05mdE51bWJlcgABCQELRGVsZXRlRW50cnkBCQEea2V5U3Rha2VkVGltZUJ5QXNzZXRJZEFuZE93bmVyAgkA2AQBBQdhc3NldElkBQRhZGRyCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUHYXNzZXRJZAUNcHJvbG9nQWN0aW9ucwUQd2xnQ2xhaW1lZEFtb3VudAFpAQxleGNoYW5nZU5GVHMABA1wcm9sb2dBY3Rpb25zCQEGcHJvbG9nAQUBaQMJAGYCAAMJAJADAQgFAWkIcGF5bWVudHMJAAIBAilNaW4gb25lIFdMR09MRCBhbmQgMiBORlQgcGF5bWVudHMgYWxsb3dlZAMJAGYCCQCQAwEIBQFpCHBheW1lbnRzAAoJAAIBAilNYXggb25lIFdMR09MRCBhbmQgOSBORlQgcGF5bWVudHMgYWxsb3dlZAQEYWRkcgkApQgBCAUBaQZjYWxsZXIKAQVhZGRVcAIDYWNjA3BtdAQHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCGldBVkVTIHBheW1lbnRzIG5vdCBhbGxvd2VkAwkAAAIFB2Fzc2V0SWQFCndsZ0Fzc2V0SWQJAJYKBAkAZAIIBQNhY2MCXzEIBQNwbXQGYW1vdW50CAUDYWNjAl8yCAUDYWNjAl8zCAUDYWNjAl80BAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkAwkBAiE9AggFBWFzc2V0Bmlzc3VlcgUEdGhpcwkAAgECG09ubHkgV0wtaXNzdWVkIE5GVHMgYWxsb3dlZAQIcmFyaXR5SXgJARZyYXJpdHlJZHhCeURlc2NyaXByaW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uAwMJAGYCCAUDYWNjAl80AAAJAQIhPQIFCHJhcml0eUl4CAUDYWNjAl80BwkAAgECLVlvdSBjYW4gZXhjaGFuZ2Ugb25seSBORlRzIG9mIHRoZSBzYW1lIHJhcml0eQQJYm9udXNQZXJjCQESYm9udXNCeURlc2NyaXB0aW9uAQkBBXZhbHVlAQgFBWFzc2V0C2Rlc2NyaXB0aW9uCQCWCgQIBQNhY2MCXzEJAGQCCAUDYWNjAl8yBQlib251c1BlcmMJAM0IAggFA2FjYwJfMwkBBEJ1cm4CBQdhc3NldElkAAEFCHJhcml0eUl4BA0kdDAyNTY5ODI1OTE0CgACJGwIBQFpCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEAAAAAAUDbmlsAP///////////wEKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZFVwAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKBAZ3bGdGZWUIBQ0kdDAyNTY5ODI1OTE0Al8xBAp0b3RhbEJvbnVzCAUNJHQwMjU2OTgyNTkxNAJfMgQLYnVybkFjdGlvbnMIBQ0kdDAyNTY5ODI1OTE0Al8zBAlyYXJpdHlJZHgIBQ0kdDAyNTY5ODI1OTE0Al80BAxuZXdSYXJpdHlJZHgDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlDAwkAZgIJAJEDAgUQcmFyaXR5VGhyZXNob2xkcwUNaWR4VGhyZXNob2xkQwUKdG90YWxCb251cwUKaWR4UmFyaXR5QwMJAGYCCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZFUFCnRvdGFsQm9udXMFCmlkeFJhcml0eVUJAAIBCQCsAgIJAKwCAgI6WW91IGNhbiBhZHZhbmNlIG9ubHkgb25lIGxldmVsIG9mIHJhcml0eSwgbWF4IHRvdGFsIGJvbnVzIAkApAMBCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZFUCASUDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlVAwkAZgIJAJEDAgUQcmFyaXR5VGhyZXNob2xkcwUNaWR4VGhyZXNob2xkVQUKdG90YWxCb251cwUKaWR4UmFyaXR5VQMJAGYCCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZEwFCnRvdGFsQm9udXMFCmlkeFJhcml0eUwJAAIBCQCsAgIJAKwCAgI6WW91IGNhbiBhZHZhbmNlIG9ubHkgb25lIGxldmVsIG9mIHJhcml0eSwgbWF4IHRvdGFsIGJvbnVzIAkApAMBCQCRAwIFEHJhcml0eVRocmVzaG9sZHMFDWlkeFRocmVzaG9sZEwCASUDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlMAwkAZgIJAJEDAgUQcmFyaXR5VGhyZXNob2xkcwUNaWR4VGhyZXNob2xkTAUKdG90YWxCb251cwUKaWR4UmFyaXR5TAUKaWR4UmFyaXR5RQMJAAACBQlyYXJpdHlJZHgFCmlkeFJhcml0eUUFCmlkeFJhcml0eUUDCQAAAgUJcmFyaXR5SWR4BQppZHhSYXJpdHlQCQACAQImWW91IGNhbid0IGV4Y2hhbmdlIE5GVHMgb2YgdGhpcyByYXJpdHkJAAIBAg5Vbmtub3duIHJhcml0eQQJbWluV2xnRmVlCQBrAwUKdG90YWxCb251cwUGTVVMVDE0CQELZ2V0V2xnUHJpY2UBAAAEBmNoYW5nZQkAZQIFBndsZ0ZlZQUJbWluV2xnRmVlBAdmb3JUZWFtCQBpAgUJbWluV2xnRmVlAAIECXdsZ1JlbWFpbgkBBWFzSW50AQkA/AcEBQt3bGdDb250cmFjdAIKYnVybldsZ29sZAkAzAgCCQBlAgUJbWluV2xnRmVlBQdmb3JUZWFtBQNuaWwFA25pbAMJAGYCAAAFBmNoYW5nZQkAAgEJAKwCAgkArAICAhNZb3UgbmVlZCB0byBhdHRhY2ggCQEKZml4ZWRQb2ludAIFCW1pbldsZ0ZlZQAIAg4gV0xHT0xEIGFzIGZlZQQNY2hhbmdlQWN0aW9ucwMJAGYCBQZjaGFuZ2UAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmNoYW5nZQUKd2xnQXNzZXRJZAUDbmlsBQNuaWwEDSR0MDI3NDUxMjc2MTIJAQ5pc3N1ZU5mdEN1c3RvbQgFDmlkeE5hbWVQaWNrYXhlBQxuZXdSYXJpdHlJZHgFCmlkeENvbGxEaWcFDG5ld1Jhcml0eUlkeAUKdG90YWxCb251cwUPaWR4RGVzY3JQaWNrYXhlBQ5pZHhCb251c1R5cGVGcAgFAWkGY2FsbGVyBA9pc3N1ZU5mdEFjdGlvbnMIBQ0kdDAyNzQ1MTI3NjEyAl8xBApuZnRBc3NldElkCAUNJHQwMjc0NTEyNzYxMgJfMgQGYnVybmVkCQCQAwEFC2J1cm5BY3Rpb25zBBJidXJuQ291bnRlckFjdGlvbnMDCQAAAgUGYnVybmVkAAAFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgURa2V5TmZ0VG90YWxCdXJuZWQJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFEWtleU5mdFRvdGFsQnVybmVkAAAFBmJ1cm5lZAUDbmlsCQCUCgIJAM0IAgkAzggCCQDOCAIJAM4IAgkAzggCBQ9pc3N1ZU5mdEFjdGlvbnMFC2J1cm5BY3Rpb25zBRJidXJuQ291bnRlckFjdGlvbnMFDXByb2xvZ0FjdGlvbnMFDWNoYW5nZUFjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDUzKQIFC3dsZ0NvbnRyYWN0BQt0ZWFtQWRkcktleQUHZm9yVGVhbQUKd2xnQXNzZXRJZAkAlAoCBQpuZnRBc3NldElkBQl3bGdSZW1haW4BaQEMb3Blbk5mdENoZXN0AAQNcHJvbG9nQWN0aW9ucwkBBnByb2xvZwEFAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQJd2xnQW1vdW50CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFCndsZ0Fzc2V0SWQJAAIBAhVXTEdPTEQgcGF5bWVudHMgb25seSEECW1pbldsZ0ZlZQkAawMFFE5GVF9DSEVTVF9QUklDRV9VU0RUBQVNVUxUOAkBC2dldFdsZ1ByaWNlAQAABAZjaGFuZ2UJAGUCBQl3bGdBbW91bnQFCW1pbldsZ0ZlZQQHZm9yVGVhbQkAaQIFCW1pbldsZ0ZlZQACBAl3bGdSZW1haW4JAQVhc0ludAEJAPwHBAULd2xnQ29udHJhY3QCCmJ1cm5XbGdvbGQJAMwIAgkAZQIFCW1pbldsZ0ZlZQUHZm9yVGVhbQUDbmlsBQNuaWwDCQBmAgAABQZjaGFuZ2UJAAIBCQCsAgIJAKwCAgITWW91IG5lZWQgdG8gYXR0YWNoIAkBCmZpeGVkUG9pbnQCBQltaW5XbGdGZWUACAIOIFdMR09MRCBhcyBmZWUEDWNoYW5nZUFjdGlvbnMDCQBmAgUGY2hhbmdlAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZjaGFuZ2UFCndsZ0Fzc2V0SWQFA25pbAUDbmlsBARhZGRyCQClCAEIBQFpBmNhbGxlcgQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQUEYWRkcgQLZmluaXNoQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBBQlmaW5pc2hLZXkCJFlvdSBoYXZlIHRvIGNvbW1pdEZvclJhbmRvbSgpIGZpcnN0IQMJAGYCBQtmaW5pc2hCbG9jawUGaGVpZ2h0CQACAQkArAICAjRSYW5kb20gbnVtYmVyIGlzIG5vdCByZWFkeSB5ZXQsIHdhaXQgdW50aWwgaGVpZ2h0ID0gCQCkAwEFC2ZpbmlzaEJsb2NrBAdlbnRyb3B5CQEFdmFsdWUBCAkBBXZhbHVlAQkA7QcBBQtmaW5pc2hCbG9jawN2cmYEBHNhbHQJANkEAQkAkQMCCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQkBFGtleUN1cldlZWtUeElkQnlVc2VyAQUEYWRkcgIKNDJfREVGQVVMVAIBXwABBARyYW5kCQEPZ2V0UmFuZG9tTnVtYmVyAwBkBQRzYWx0BQdlbnRyb3B5BA0kdDAyOTYzMTI5OTAzAwkAZgIAVAUEcmFuZAkAlAoCAAEFCmlkeFJhcml0eUMDCQBmAgBiBQRyYW5kCQCUCgIABQUKaWR4UmFyaXR5VQkAlAoCAAoFCmlkeFJhcml0eUwEBWJvbnVzCAUNJHQwMjk2MzEyOTkwMwJfMQQJcmFyaXR5SWR4CAUNJHQwMjk2MzEyOTkwMwJfMgQNJHQwMjk5MDYzMDA1NgkBDmlzc3VlTmZ0Q3VzdG9tCAUOaWR4TmFtZVBpY2theGUFCXJhcml0eUlkeAUKaWR4Q29sbERpZwUJcmFyaXR5SWR4BQVib251cwUPaWR4RGVzY3JQaWNrYXhlBQ5pZHhCb251c1R5cGVGcAgFAWkGY2FsbGVyBA9pc3N1ZU5mdEFjdGlvbnMIBQ0kdDAyOTkwNjMwMDU2Al8xBApuZnRBc3NldElkCAUNJHQwMjk5MDYzMDA1NgJfMgkAlAoCCQDNCAIJAM0IAgkAzggCCQDOCAIFD2lzc3VlTmZ0QWN0aW9ucwUNcHJvbG9nQWN0aW9ucwUNY2hhbmdlQWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTMpAgULd2xnQ29udHJhY3QFC3RlYW1BZGRyS2V5BQdmb3JUZWFtBQp3bGdBc3NldElkCQELRGVsZXRlRW50cnkBBQlmaW5pc2hLZXkJAJQKAgUKbmZ0QXNzZXRJZAUJd2xnUmVtYWluAWkBD2NvbW1pdEZvclJhbmRvbQAEDXByb2xvZ0FjdGlvbnMJAQZwcm9sb2cBBQFpBARhZGRyCQClCAEIBQFpBmNhbGxlcgQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQUEYWRkcgMJAQlpc0RlZmluZWQBCQCfCAEFCWZpbmlzaEtleQkAAgECLllvdSBhbHJlYWR5IGNvbW1pdGVkIGZvciByYW5kb20sIHBsZWFzZSB1c2UgaXQEC2ZpbmlzaEJsb2NrCQBkAgUGaGVpZ2h0BQxSQU5ET01fREVMQVkJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlmaW5pc2hLZXkFC2ZpbmlzaEJsb2NrBQNuaWwFDXByb2xvZ0FjdGlvbnMFC2ZpbmlzaEJsb2NrAMOGOAk=",
    "height": 3400801,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BRwW4n9YiWq3PP3tUTGQvtPQt13sMufKSRyctiG5i1jc
Next: Bze3DMW4jbCBvtCETarTU2v3HqQP24XJZFH7MBbZhX8R

Diff: 
Old New Differences
398 398      else false)
399 399      then throw("Nothing to do")
400 400      else {
401 -         let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address, true], nil)
401 +         let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
402 402          if ((wlgResult == wlgResult))
403 403              then {
404 404                  let now = lastBlock.timestamp
421 421                              else false)
422 422                              then throw((((("You have only " + fixedPoint(oldBonus, 4)) + "% bonus, and tried to unstake ") + fixedPoint(-(bonusDelta), 4)) + "%"))
423 423                              else {
424 -                                 let $t063056404 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
425 -                                 let newBonusedFp = $t063056404._1
426 -                                 let ignored = $t063056404._2
424 +                                 let $t062996398 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
425 +                                 let newBonusedFp = $t062996398._1
426 +                                 let ignored = $t062996398._2
427 427                                  let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
428 428                                  let acresActions = if ((amt == 0))
429 429                                      then nil
516 516      if ((nftNumber >= limit))
517 517          then throw((("You can stake max " + toString(limit)) + " of such NFTs"))
518 518          else {
519 -             let $t01068310759 = stakeUnstakeAcresInternal(0, addr, bonus6)
520 -             let actions = $t01068310759._1
521 -             let wlgClaimedAmount = $t01068310759._2
519 +             let $t01067710753 = stakeUnstakeAcresInternal(0, addr, bonus6)
520 +             let actions = $t01067710753._1
521 +             let wlgClaimedAmount = $t01067710753._2
522 522              $Tuple2((((actions :+ IntegerEntry(userNumKey, (nftNumber + 1))) :+ IntegerEntry(totalNumKey, (valueOrElse(getInteger(totalNumKey), 0) + 1))) :+ IntegerEntry(keyStakedTimeByAssetIdAndOwner(assetIdStr, addr), lastBlock.timestamp)), wlgClaimedAmount)
523 523              }
524 524      }
562 562                      if ((arbReleaseTime > lastBlock.timestamp))
563 563                          then throw(("You traded some WLGOLD, cannot unstake until " + toString(arbReleaseTime)))
564 564                          else {
565 -                             let $t01233312413 = stakeUnstakeAcresInternal(-(amount), address, 0)
566 -                             let actions = $t01233312413._1
567 -                             let wlgClaimedAmount = $t01233312413._2
565 +                             let $t01232712407 = stakeUnstakeAcresInternal(-(amount), address, 0)
566 +                             let actions = $t01232712407._1
567 +                             let wlgClaimedAmount = $t01232712407._2
568 568                              $Tuple2(((actions :+ ScriptTransfer(i.caller, amount, acresAssetId)) ++ prologActions), wlgClaimedAmount)
569 569                              }
570 570                      }
587 587                  else (value(pmt.assetId) != acresAssetId))
588 588                  then throw("ACRES payments only!")
589 589                  else {
590 -                     let $t01286412940 = stakeUnstakeAcresInternal(amt, address, 0)
591 -                     let actions = $t01286412940._1
592 -                     let wlgClaimedAmount = $t01286412940._2
590 +                     let $t01285812934 = stakeUnstakeAcresInternal(amt, address, 0)
591 +                     let actions = $t01285812934._1
592 +                     let wlgClaimedAmount = $t01285812934._2
593 593                      $Tuple2((actions ++ prologActions), wlgClaimedAmount)
594 594                      }
595 595              }
653 653                      then throw((("Min payment should be " + fixedPoint(MULT7, 8)) + " ACRES"))
654 654                      else {
655 655                          let addr = toString(i.caller)
656 -                         let $t01479714845 = getSwapLimitAcres()
657 -                         let limitAction = $t01479714845._1
658 -                         let maxUsdt = $t01479714845._2
656 +                         let $t01479114839 = getSwapLimitAcres()
657 +                         let limitAction = $t01479114839._1
658 +                         let maxUsdt = $t01479114839._2
659 659                          let maxAcres = (maxUsdt * USDT2ACRES_MULTIPLIER)
660 660                          if ((acresAmount > maxAcres))
661 661                              then throw((("You can sell max " + fixedPoint(maxAcres, 8)) + " ACRES"))
671 671  
672 672  @Callable(i)
673 673  func sellAcresREADONLY (address,acresAmount) = {
674 -     let $t01534115389 = getSwapLimitAcres()
675 -     let limitAction = $t01534115389._1
676 -     let maxUsdt = $t01534115389._2
674 +     let $t01533515383 = getSwapLimitAcres()
675 +     let limitAction = $t01533515383._1
676 +     let maxUsdt = $t01533515383._2
677 677      let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
678 678      $Tuple2(nil, [usdtAmount, MULT7, (maxUsdt * USDT2ACRES_MULTIPLIER), 0])
679 679      }
732 732                                              let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
733 733                                              if ((req == req))
734 734                                                  then {
735 -                                                     let $t01790018038 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
736 -                                                     let nftActions = $t01790018038._1
737 -                                                     let nftAssetId = $t01790018038._2
735 +                                                     let $t01789418032 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
736 +                                                     let nftActions = $t01789418032._1
737 +                                                     let nftAssetId = $t01789418032._2
738 738                                                      $Tuple6(rr._1, rr._2, rr._3, rr._4, rr._5, nftActions)
739 739                                                      }
740 740                                                  else throw("Strict value is not equal to itself.")
803 803      let userFpKey = keyFarmingPowerByUser(address)
804 804      let oldFp = valueOrElse(getInteger(userFpKey), 0)
805 805      let userBonus = valueOrElse(getInteger(acres2Contract, keyUserFullBonus(address)), 0)
806 -     let $t02026220349 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
807 -     let newBonusedFp = $t02026220349._1
808 -     let ignored = $t02026220349._2
806 +     let $t02030320390 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
807 +     let newBonusedFp = $t02030320390._1
808 +     let ignored = $t02030320390._2
809 809      let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
810 810      let newTotalFp = ((oldTotalFp + newBonusedFp) - oldFp)
811 811      $Tuple2(nil, [oldFp, newBonusedFp, oldTotalFp, newTotalFp])
847 847                                  let listAction = StringEntry(nftsKey, makeString_2C((nfts :+ assetIdStr), "_"))
848 848                                  if ((asset.issuer == this))
849 849                                      then {
850 -                                         let $t02175821948 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
851 -                                         let actions = $t02175821948._1
852 -                                         let wlgClaimedAmount = $t02175821948._2
850 +                                         let $t02179921989 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
851 +                                         let actions = $t02179921989._1
852 +                                         let wlgClaimedAmount = $t02179921989._2
853 853                                          $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
854 854                                          }
855 855                                      else if ((isArkimalIssued(asset) == ""))
856 856                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
857 857                                          else {
858 -                                             let $t02212922280 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
859 -                                             let actions = $t02212922280._1
860 -                                             let wlgClaimedAmount = $t02212922280._2
858 +                                             let $t02217022321 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
859 +                                             let actions = $t02217022321._1
860 +                                             let wlgClaimedAmount = $t02217022321._2
861 861                                              $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
862 862                                              }
863 863                                  }
894 894                                  then {
895 895                                      let wlNftNumber = valueOrElse(getInteger(keyUserWlNftNumber(addr)), 0)
896 896                                      let bonusVal = (bonusByDescription(value(asset.description)) * 10000)
897 -                                     let $t02344523524 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
898 -                                     let actions = $t02344523524._1
899 -                                     let wlgClaimedAmount = $t02344523524._2
897 +                                     let $t02348623565 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
898 +                                     let actions = $t02348623565._1
899 +                                     let wlgClaimedAmount = $t02348623565._2
900 900                                      $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)
901 901                                      }
902 902                                  else {
905 905                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
906 906                                          else {
907 907                                              let arkNftNumber = valueOrElse(getInteger(keyUserArkNftNumber(addr)), 0)
908 -                                             let $t02418424268 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
909 -                                             let actions = $t02418424268._1
910 -                                             let wlgClaimedAmount = $t02418424268._2
908 +                                             let $t02422524309 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
909 +                                             let actions = $t02422524309._1
910 +                                             let wlgClaimedAmount = $t02422524309._2
911 911                                              $Tuple2((((((actions :+ listAction) :+ IntegerEntry(keyUserArkNftNumber(addr), (arkNftNumber - 1))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
912 912                                              }
913 913                                      }
949 949                              }
950 950                      }
951 951  
952 -                 let $t02565725873 = {
952 +                 let $t02569825914 = {
953 953                      let $l = i.payments
954 954                      let $s = size($l)
955 955                      let $acc0 = $Tuple4(0, 0, nil, -1)
963 963  
964 964                      $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)
965 965                      }
966 -                 let wlgFee = $t02565725873._1
967 -                 let totalBonus = $t02565725873._2
968 -                 let burnActions = $t02565725873._3
969 -                 let rarityIdx = $t02565725873._4
966 +                 let wlgFee = $t02569825914._1
967 +                 let totalBonus = $t02569825914._2
968 +                 let burnActions = $t02569825914._3
969 +                 let rarityIdx = $t02569825914._4
970 970                  let newRarityIdx = if ((rarityIdx == idxRarityC))
971 971                      then if ((rarityThresholds[idxThresholdC] > totalBonus))
972 972                          then idxRarityC
998 998                          let changeActions = if ((change > 0))
999 999                              then [ScriptTransfer(i.caller, change, wlgAssetId)]
1000 1000                              else nil
1001 -                         let $t02741027571 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1002 -                         let issueNftActions = $t02741027571._1
1003 -                         let nftAssetId = $t02741027571._2
1001 +                         let $t02745127612 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1002 +                         let issueNftActions = $t02745127612._1
1003 +                         let nftAssetId = $t02745127612._2
1004 1004                          let burned = size(burnActions)
1005 1005                          let burnCounterActions = if ((burned == 0))
1006 1006                              then nil
1044 1044                                      let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
1045 1045                                      let salt = fromBase58String(split(valueOrElse(getString(keyCurWeekTxIdByUser(addr)), "42_DEFAULT"), "_")[1])
1046 1046                                      let rand = getRandomNumber(100, salt, entropy)
1047 -                                     let $t02959029862 = if ((84 > rand))
1047 +                                     let $t02963129903 = if ((84 > rand))
1048 1048                                          then $Tuple2(1, idxRarityC)
1049 1049                                          else if ((98 > rand))
1050 1050                                              then $Tuple2(5, idxRarityU)
1051 1051                                              else $Tuple2(10, idxRarityL)
1052 -                                     let bonus = $t02959029862._1
1053 -                                     let rarityIdx = $t02959029862._2
1054 -                                     let $t02986530015 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1055 -                                     let issueNftActions = $t02986530015._1
1056 -                                     let nftAssetId = $t02986530015._2
1052 +                                     let bonus = $t02963129903._1
1053 +                                     let rarityIdx = $t02963129903._2
1054 +                                     let $t02990630056 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1055 +                                     let issueNftActions = $t02990630056._1
1056 +                                     let nftAssetId = $t02990630056._2
1057 1057                                      $Tuple2(((((issueNftActions ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)) :+ DeleteEntry(finishKey)), $Tuple2(nftAssetId, wlgRemain))
1058 1058                                      }
1059 1059                              }
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 OLD_STAKING_DEADL = 1733346000000
281 281  
282 282  let MAX_LANDS_TO_CONVERT = 14
283 283  
284 284  let keyLastAcresSellTime = "lastAcresSellTime"
285 285  
286 286  let keyLastLimitLeft = "lastLimitLeft"
287 287  
288 288  let names = ["Gold shovel", "Pickaxe"]
289 289  
290 290  let descriptions = ["Reward for early birds", "Increases FarmPower"]
291 291  
292 292  let idxDescrShovel = 0
293 293  
294 294  let idxDescrPickaxe = 1
295 295  
296 296  let rarityThresholds = [5, 10, 20]
297 297  
298 298  let idxThresholdC = 0
299 299  
300 300  let idxThresholdU = 1
301 301  
302 302  let idxThresholdL = 2
303 303  
304 304  let namez = ["SHOVEL", "PICKAXE"]
305 305  
306 306  let idxNameShovel = 0
307 307  
308 308  let idxNamePickaxe = 1
309 309  
310 310  let contentKeyz = ["contentPickaxeC", "contentPickaxeU", "contentPickaxeL", "contentPickaxeE", "contentShovelP"]
311 311  
312 312  let idxKeyC = 0
313 313  
314 314  let idxKeyP = 4
315 315  
316 316  let rarityNames = ["Common", "Uncommon", "Legendary", "Epic", "Promo"]
317 317  
318 318  let idxRarityC = 0
319 319  
320 320  let idxRarityU = 1
321 321  
322 322  let idxRarityL = 2
323 323  
324 324  let idxRarityE = 3
325 325  
326 326  let idxRarityP = 4
327 327  
328 328  let collectionz = ["Digging tools"]
329 329  
330 330  let idxCollDig = 0
331 331  
332 332  let bonusTypez = ["FarmPower"]
333 333  
334 334  let idxBonusTypeFp = 0
335 335  
336 336  func prolog (i) = if (if ((i.originCaller != rest2Contract))
337 337      then valueOrElse(getBoolean(keyBlocked()), false)
338 338      else false)
339 339      then throw("Contracts are under maintenance")
340 340      else {
341 341          let addr = toString(i.originCaller)
342 342          let week = (height / WEEK_BLOCKS)
343 343          let lastWeekKey = keyLastWeekTxIdByUser(addr)
344 344          let lastWeekTxIdByUser = getString(lastWeekKey)
345 345          let txId = toBase58String(i.transactionId)
346 346          let wtx = ((toString(week) + "_") + txId)
347 347          let curWeekKey = keyCurWeekTxIdByUser(addr)
348 348          if (isDefined(lastWeekTxIdByUser))
349 349              then {
350 350                  let lastWeekTx = split(value(lastWeekTxIdByUser), "_")
351 351                  if ((lastWeekTx[0] == toString(week)))
352 352                      then [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
353 353                      else if ((lastWeekTx[0] == toString((week - 1))))
354 354                          then [StringEntry(curWeekKey, wtx)]
355 355                          else {
356 356                              let curWeekTxIdByUser = getStringValue(curWeekKey)
357 357                              let curWeekTx = split(curWeekTxIdByUser, "_")
358 358                              if ((curWeekTx[0] == toString(week)))
359 359                                  then [StringEntry(curWeekKey, wtx)]
360 360                                  else [StringEntry(lastWeekKey, curWeekTxIdByUser), StringEntry(curWeekKey, wtx)]
361 361                              }
362 362                  }
363 363              else [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
364 364          }
365 365  
366 366  
367 367  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) + "\"}")
368 368  
369 369  
370 370  func issueNftCustom (nameIdx,contKeyIdx,collIdx,rarityIdx,bonusPerc,descrIdx,bonusTypeIdx,addr) = {
371 371      let nftSerial = valueOrElse(getInteger(keyNftTotalIssued), 0)
372 372      let rarity = rarityNames[rarityIdx]
373 373      let name = (((namez[nameIdx] + "-") + take(rarity, 1)) + toString(bonusPerc))
374 374      let issue = Issue(name, createNftDescrCustom(contentKeyz[contKeyIdx], nftSerial, collectionz[collIdx], names[nameIdx], descriptions[descrIdx], rarityNames[rarityIdx], bonusPerc, bonusTypez[bonusTypeIdx]), 1, 0, false)
375 375      let nftAssetId = calculateAssetId(issue)
376 376      $Tuple2([issue, IntegerEntry(keyNftTotalIssued, (nftSerial + 1)), IntegerEntry(keyNftNumberByAssetId(toBase58String(nftAssetId)), nftSerial), ScriptTransfer(addr, 1, nftAssetId)], nftAssetId)
377 377      }
378 378  
379 379  
380 380  func bonusByDescription (descr) = if (!(contains(descr, "\"bonusType\": \"FarmPower\"")))
381 381      then throw(("NFT is not supported: " + descr))
382 382      else {
383 383          let bonusStr = split_4C(split_4C(descr, "\"bonus\":")[1], ",")[0]
384 384          parseIntValue(drop(bonusStr, (valueOrElse(lastIndexOf(bonusStr, " "), -1) + 1)))
385 385          }
386 386  
387 387  
388 388  func rarityIdxByDescriprion (descr) = if (!(contains(descr, "\"rare\"")))
389 389      then throw(("NFT is not supported: " + descr))
390 390      else {
391 391          let rarityStr = split_4C(split_4C(split_4C(descr, "\"rare\"")[1], ",")[0], "\"")[1]
392 392          value(indexOf(rarityNames, rarityStr))
393 393          }
394 394  
395 395  
396 396  func stakeUnstakeAcresInternal (amt,address,bonusDelta) = if (if ((amt == 0))
397 397      then (bonusDelta == 0)
398 398      else false)
399 399      then throw("Nothing to do")
400 400      else {
401 -         let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address, true], nil)
401 +         let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
402 402          if ((wlgResult == wlgResult))
403 403              then {
404 404                  let now = lastBlock.timestamp
405 405                  let timeKey = keyAcresStakedTimeByUser(address)
406 406                  let amountKey = keyAcresStakedAmtByUser(address)
407 407                  let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
408 408                  if (if ((0 > amt))
409 409                      then (0 > (oldAcresAmount + amt))
410 410                      else false)
411 411                      then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(-(amt), 8)))
412 412                      else {
413 413                          let newAcresAmount = (oldAcresAmount + amt)
414 414                          let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
415 415                          let userFpKey = keyFarmingPowerByUser(address)
416 416                          let oldFp = valueOrElse(getInteger(userFpKey), 0)
417 417                          let bonusKey = keyUserFullBonus(address)
418 418                          let oldBonus = valueOrElse(getInteger(acres2Contract, bonusKey), 0)
419 419                          if (if ((0 > bonusDelta))
420 420                              then (0 > (oldBonus + bonusDelta))
421 421                              else false)
422 422                              then throw((((("You have only " + fixedPoint(oldBonus, 4)) + "% bonus, and tried to unstake ") + fixedPoint(-(bonusDelta), 4)) + "%"))
423 423                              else {
424 -                                 let $t063056404 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
425 -                                 let newBonusedFp = $t063056404._1
426 -                                 let ignored = $t063056404._2
424 +                                 let $t062996398 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
425 +                                 let newBonusedFp = $t062996398._1
426 +                                 let ignored = $t062996398._2
427 427                                  let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
428 428                                  let acresActions = if ((amt == 0))
429 429                                      then nil
430 430                                      else [IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt))]
431 431                                  let bonusActions = if ((bonusDelta == 0))
432 432                                      then nil
433 433                                      else [IntegerEntry(bonusKey, (oldBonus + bonusDelta))]
434 434                                  $Tuple2(((((acresActions ++ bonusActions) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))), wlgResult)
435 435                                  }
436 436                          }
437 437                  }
438 438              else throw("Strict value is not equal to itself.")
439 439          }
440 440  
441 441  
442 442  func getWlgPrice (usdtBalanceCorrection) = {
443 443      let issuedAmount = valueOrErrorMessage(getInteger(wlgContract, wlgIssuedAmtKey), "WLGOLD is not issued yet")
444 444      let wlgUsd = assetBalance(wlgContract, usdtAssetId)
445 445      let acres2Usd = (assetBalance(acres2Contract, usdtAssetId) - usdtBalanceCorrection)
446 446      let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
447 447      let totalFundsUsd = ((acres2Usd + wlgUsd) + investFundTotal)
448 448      fraction(totalFundsUsd, MULT8, issuedAmount)
449 449      }
450 450  
451 451  
452 452  func getSwapLimitAcres () = {
453 453      let wlgUsd = assetBalance(wlgContract, usdtAssetId)
454 454      let acres2Usd = assetBalance(this, usdtAssetId)
455 455      let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
456 456      let defaultLimit = (((acres2Usd + wlgUsd) + investFundTotal) / ONE_PERCENT_DIVISOR)
457 457      let lastLimitLeft = valueOrElse(getInteger(keyLastLimitLeft), defaultLimit)
458 458      let lastTime = valueOrElse(getInteger(keyLastAcresSellTime), 0)
459 459      let now = lastBlock.timestamp
460 460      let currentLimit = (lastLimitLeft + fraction(defaultLimit, (now - lastTime), DAY_MILLIS))
461 461      let limitLeftUsdt = min([currentLimit, defaultLimit])
462 462      $Tuple2(IntegerEntry(keyLastAcresSellTime, now), limitLeftUsdt)
463 463      }
464 464  
465 465  
466 466  let arkOracle = addressFromStringValue("3PJgZ6AK1WVCpdCmEZpesHmaKvrQDdXG5og")
467 467  
468 468  let incubator = valueOrElse(getString(arkOracle, "static_incubatorAddress"), "")
469 469  
470 470  let breeder = valueOrElse(getString(arkOracle, "static_breederAddress"), "")
471 471  
472 472  let turtleIncubator = valueOrElse(getString(arkOracle, "static_turtleIncubatorAddress"), "")
473 473  
474 474  let turtleBreeder = valueOrElse(getString(arkOracle, "static_turtleBreederAddress"), "")
475 475  
476 476  let canineIncubator = valueOrElse(getString(arkOracle, "static_canineIncubatorAddress"), "")
477 477  
478 478  let canineBreeder = valueOrElse(getString(arkOracle, "static_canineBreederAddress"), "")
479 479  
480 480  let felineIncubator = valueOrElse(getString(arkOracle, "static_felineIncubatorAddress"), "")
481 481  
482 482  let felineBreeder = valueOrElse(getString(arkOracle, "static_felineBreederAddress"), "")
483 483  
484 484  let mutantBreeder = valueOrElse(getString(arkOracle, "static_mutantIncubatorAddress"), "")
485 485  
486 486  func isArkimalIssued (nfo) = {
487 487      let issuer = toString(nfo.issuer)
488 488      if (if (if (if (if (if (if (if (if (if ((chain == base58'2T'))
489 489          then (issuer == oldStakingContractStr)
490 490          else false)
491 491          then true
492 492          else (issuer == incubator))
493 493          then true
494 494          else (issuer == breeder))
495 495          then true
496 496          else (issuer == turtleIncubator))
497 497          then true
498 498          else (issuer == turtleBreeder))
499 499          then true
500 500          else (issuer == canineIncubator))
501 501          then true
502 502          else (issuer == canineBreeder))
503 503          then true
504 504          else (issuer == felineIncubator))
505 505          then true
506 506          else (issuer == felineBreeder))
507 507          then nfo.name
508 508          else if ((issuer == mutantBreeder))
509 509              then nfo.description
510 510              else ""
511 511      }
512 512  
513 513  
514 514  func stakeNftInternal (addr,assetIdStr,bonus6,userNumKey,totalNumKey,limit) = {
515 515      let nftNumber = valueOrElse(getInteger(userNumKey), 0)
516 516      if ((nftNumber >= limit))
517 517          then throw((("You can stake max " + toString(limit)) + " of such NFTs"))
518 518          else {
519 -             let $t01068310759 = stakeUnstakeAcresInternal(0, addr, bonus6)
520 -             let actions = $t01068310759._1
521 -             let wlgClaimedAmount = $t01068310759._2
519 +             let $t01067710753 = stakeUnstakeAcresInternal(0, addr, bonus6)
520 +             let actions = $t01067710753._1
521 +             let wlgClaimedAmount = $t01067710753._2
522 522              $Tuple2((((actions :+ IntegerEntry(userNumKey, (nftNumber + 1))) :+ IntegerEntry(totalNumKey, (valueOrElse(getInteger(totalNumKey), 0) + 1))) :+ IntegerEntry(keyStakedTimeByAssetIdAndOwner(assetIdStr, addr), lastBlock.timestamp)), wlgClaimedAmount)
523 523              }
524 524      }
525 525  
526 526  
527 527  @Callable(i)
528 528  func saveLastTx () = if (!(containsElement([wlgContract], i.caller)))
529 529      then throw("Access denied")
530 530      else $Tuple2(prolog(i), 42)
531 531  
532 532  
533 533  
534 534  @Callable(i)
535 535  func constructorV1 (rest2Addr,oldAcrContract) = if ((i.caller != this))
536 536      then throw("Permission denied")
537 537      else {
538 538          let oldAcrContAddr = addressFromStringValue(oldAcrContract)
539 539  [IntegerEntry(acresIssuedAmountKey, getIntegerValue(oldAcrContAddr, acresIssuedAmountKey)), BinaryEntry(acresAssetIdKey, getBinaryValue(oldAcrContAddr, acresAssetIdKey)), StringEntry(keyRest2Address(), rest2Addr), StringEntry(oldAcresContractKey, oldAcrContract)]
540 540          }
541 541  
542 542  
543 543  
544 544  @Callable(i)
545 545  func setBlocked (isBlocked) = if ((i.caller != this))
546 546      then throw("permission denied")
547 547      else [BooleanEntry(keyBlocked(), isBlocked)]
548 548  
549 549  
550 550  
551 551  @Callable(i)
552 552  func unstakeAcres (amount) = {
553 553      let prologActions = prolog(i)
554 554      if ((0 >= amount))
555 555          then throw("Amount should be positive")
556 556          else {
557 557              let address = toString(i.caller)
558 558              if ((size(i.payments) != 0))
559 559                  then throw("No payments required")
560 560                  else {
561 561                      let arbReleaseTime = (valueOrElse(getInteger(wlgContract, keyLastWlgTradeTimeByUser(address)), 0) + arbitrageDelay)
562 562                      if ((arbReleaseTime > lastBlock.timestamp))
563 563                          then throw(("You traded some WLGOLD, cannot unstake until " + toString(arbReleaseTime)))
564 564                          else {
565 -                             let $t01233312413 = stakeUnstakeAcresInternal(-(amount), address, 0)
566 -                             let actions = $t01233312413._1
567 -                             let wlgClaimedAmount = $t01233312413._2
565 +                             let $t01232712407 = stakeUnstakeAcresInternal(-(amount), address, 0)
566 +                             let actions = $t01232712407._1
567 +                             let wlgClaimedAmount = $t01232712407._2
568 568                              $Tuple2(((actions :+ ScriptTransfer(i.caller, amount, acresAssetId)) ++ prologActions), wlgClaimedAmount)
569 569                              }
570 570                      }
571 571              }
572 572      }
573 573  
574 574  
575 575  
576 576  @Callable(i)
577 577  func stakeAcres () = {
578 578      let prologActions = prolog(i)
579 579      let address = toString(i.caller)
580 580      if ((size(i.payments) != 1))
581 581          then throw("exactly 1 payment must be attached")
582 582          else {
583 583              let pmt = i.payments[0]
584 584              let amt = pmt.amount
585 585              if (if (!(isDefined(pmt.assetId)))
586 586                  then true
587 587                  else (value(pmt.assetId) != acresAssetId))
588 588                  then throw("ACRES payments only!")
589 589                  else {
590 -                     let $t01286412940 = stakeUnstakeAcresInternal(amt, address, 0)
591 -                     let actions = $t01286412940._1
592 -                     let wlgClaimedAmount = $t01286412940._2
590 +                     let $t01285812934 = stakeUnstakeAcresInternal(amt, address, 0)
591 +                     let actions = $t01285812934._1
592 +                     let wlgClaimedAmount = $t01285812934._2
593 593                      $Tuple2((actions ++ prologActions), wlgClaimedAmount)
594 594                      }
595 595              }
596 596      }
597 597  
598 598  
599 599  
600 600  @Callable(i)
601 601  func buyAcres () = {
602 602      let prologActions = prolog(i)
603 603      if ((size(i.payments) != 1))
604 604          then throw("exactly 1 payment must be attached")
605 605          else {
606 606              let pmt = i.payments[0]
607 607              let usdtAmount = pmt.amount
608 608              if (if (!(isDefined(pmt.assetId)))
609 609                  then true
610 610                  else (value(pmt.assetId) != usdtAssetId))
611 611                  then throw("USDT payments only!")
612 612                  else if ((MULT6 > usdtAmount))
613 613                      then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
614 614                      else {
615 615                          let acresAmount = (usdtAmount * USDT2ACRES_MULTIPLIER)
616 616                          let wlgAmount = fraction(usdtAmount, MULT8, getWlgPrice(usdtAmount))
617 617                          let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
618 618                          let req = invoke(oldAcresAddress, "requestAcresCallback", [acresAmount], nil)
619 619                          if ((req == req))
620 620                              then {
621 621                                  let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [wlgAmount], nil))
622 622                                  $Tuple2(([ScriptTransfer(i.caller, acresAmount, acresAssetId)] ++ prologActions), wlgRemain)
623 623                                  }
624 624                              else throw("Strict value is not equal to itself.")
625 625                          }
626 626              }
627 627      }
628 628  
629 629  
630 630  
631 631  @Callable(i)
632 632  func buyAcresREADONLY (usdtAmount) = {
633 633      let acresAmount = (usdtAmount * USDT2ACRES_MULTIPLIER)
634 634      let wlgToBurn = fraction(usdtAmount, MULT8, getWlgPrice(usdtAmount))
635 635      $Tuple2(nil, [acresAmount, MULT6, acresAmount, wlgToBurn])
636 636      }
637 637  
638 638  
639 639  
640 640  @Callable(i)
641 641  func sellAcres () = {
642 642      let prologActions = prolog(i)
643 643      if ((size(i.payments) != 1))
644 644          then throw("exactly 1 payment must be attached")
645 645          else {
646 646              let pmt = i.payments[0]
647 647              let acresAmount = pmt.amount
648 648              if (if (!(isDefined(pmt.assetId)))
649 649                  then true
650 650                  else (value(pmt.assetId) != acresAssetId))
651 651                  then throw("ACRES payments only!")
652 652                  else if ((MULT7 > acresAmount))
653 653                      then throw((("Min payment should be " + fixedPoint(MULT7, 8)) + " ACRES"))
654 654                      else {
655 655                          let addr = toString(i.caller)
656 -                         let $t01479714845 = getSwapLimitAcres()
657 -                         let limitAction = $t01479714845._1
658 -                         let maxUsdt = $t01479714845._2
656 +                         let $t01479114839 = getSwapLimitAcres()
657 +                         let limitAction = $t01479114839._1
658 +                         let maxUsdt = $t01479114839._2
659 659                          let maxAcres = (maxUsdt * USDT2ACRES_MULTIPLIER)
660 660                          if ((acresAmount > maxAcres))
661 661                              then throw((("You can sell max " + fixedPoint(maxAcres, 8)) + " ACRES"))
662 662                              else {
663 663                                  let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
664 664                                  $Tuple2(([limitAction, IntegerEntry(keyLastLimitLeft, (maxUsdt - usdtAmount)), ScriptTransfer(i.caller, usdtAmount, usdtAssetId)] ++ prologActions), usdtAmount)
665 665                                  }
666 666                          }
667 667              }
668 668      }
669 669  
670 670  
671 671  
672 672  @Callable(i)
673 673  func sellAcresREADONLY (address,acresAmount) = {
674 -     let $t01534115389 = getSwapLimitAcres()
675 -     let limitAction = $t01534115389._1
676 -     let maxUsdt = $t01534115389._2
674 +     let $t01533515383 = getSwapLimitAcres()
675 +     let limitAction = $t01533515383._1
676 +     let maxUsdt = $t01533515383._2
677 677      let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
678 678      $Tuple2(nil, [usdtAmount, MULT7, (maxUsdt * USDT2ACRES_MULTIPLIER), 0])
679 679      }
680 680  
681 681  
682 682  
683 683  @Callable(i)
684 684  func convertOldStakes () = {
685 685      let prologActions = prolog(i)
686 686      if ((OLD_STAKING_DEADL > lastBlock.timestamp))
687 687          then throw(("Disabled until " + toString((OLD_STAKING_DEADL / 1000))))
688 688          else {
689 689              let address = toString(i.caller)
690 690              if ((size(i.payments) != 0))
691 691                  then throw("No payments required")
692 692                  else {
693 693                      let oldAcresAddress = addressFromStringValue(getStringValue(oldAcresContractKey))
694 694                      let amount = valueOrElse(getInteger(oldAcresAddress, keyAcresStakedAmtByUser(address)), 0)
695 695                      let gotAcres0 = if ((amount > 0))
696 696                          then asTuple2Ints(invoke(oldAcresAddress, "unstakeAcresCallback", [amount, address], nil))
697 697                          else $Tuple2(0, 0)
698 698                      let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
699 699                      let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
700 700                      let landsResult = if (isDefined(landsStr))
701 701                          then {
702 702                              let lands = split_51C(value(landsStr), "_")
703 703                              if ((size(lands) > MAX_LANDS_TO_CONVERT))
704 704                                  then throw((("You have more than " + toString(MAX_LANDS_TO_CONVERT)) + " lands staked, please contact support, we'll process your case manually"))
705 705                                  else {
706 706                                      func oneLand (acc,landAssetId) =                                     if ((landAssetId == ""))
707 707                                          then throw("landAssetId is required")
708 708                                          else {
709 709                                              let r = asTuple5Ints(invoke(oldStakingAddress, "unstakeLandCallback", [landAssetId, address], nil))
710 710                                              if ((r == r))
711 711                                                  then $Tuple5((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4), (acc._5 + r._5))
712 712                                                  else throw("Strict value is not equal to itself.")
713 713                                              }
714 714  
715 715                                      let rr = {
716 716                                          let $l = lands
717 717                                          let $s = size($l)
718 718                                          let $acc0 = $Tuple5(0, 0, 0, 0, 0)
719 719                                          func $f0_1 ($a,$i) =                                         if (($i >= $s))
720 720                                              then $a
721 721                                              else oneLand($a, $l[$i])
722 722  
723 723                                          func $f0_2 ($a,$i) =                                         if (($i >= $s))
724 724                                              then $a
725 725                                              else throw("List size exceeds 14")
726 726  
727 727                                          $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14)
728 728                                          }
729 729                                      let finalize = invoke(oldStakingAddress, "unstakeLandsFinalizeCallback", [address], nil)
730 730                                      if ((finalize == finalize))
731 731                                          then {
732 732                                              let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
733 733                                              if ((req == req))
734 734                                                  then {
735 -                                                     let $t01790018038 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
736 -                                                     let nftActions = $t01790018038._1
737 -                                                     let nftAssetId = $t01790018038._2
735 +                                                     let $t01789418032 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
736 +                                                     let nftActions = $t01789418032._1
737 +                                                     let nftAssetId = $t01789418032._2
738 738                                                      $Tuple6(rr._1, rr._2, rr._3, rr._4, rr._5, nftActions)
739 739                                                      }
740 740                                                  else throw("Strict value is not equal to itself.")
741 741                                              }
742 742                                          else throw("Strict value is not equal to itself.")
743 743                                      }
744 744                              }
745 745                          else $Tuple6(0, 0, 0, 0, 0, nil)
746 746                      let duckAssetId = valueOrElse(getString(oldStakingAddress, keyStakedDuckByOwner(address)), "")
747 747                      let duckResult = if ((duckAssetId != ""))
748 748                          then asTuple3Ints(invoke(oldStakingAddress, "unstakeDuckCallback", [duckAssetId, address], nil))
749 749                          else $Tuple3(0, 0, 0)
750 750                      let x = stakeUnstakeAcresInternal((((((((gotAcres0._1 + landsResult._1) + landsResult._2) + landsResult._3) + landsResult._4) + duckResult._1) + duckResult._2) + duckResult._3), address, 0)
751 751                      $Tuple2(((landsResult._6 ++ x._1) ++ prologActions), $Tuple3(gotAcres0._2, landsResult._5, x._2))
752 752                      }
753 753              }
754 754      }
755 755  
756 756  
757 757  
758 758  @Callable(i)
759 759  func unstakeLandsREADONLY (address) = {
760 760      let oldStakingAddress = addressFromStringValue(oldStakingContractStr)
761 761      let landsStr = getString(oldStakingAddress, keyStakedLandsByOwner(address))
762 762      let landsResult = if (isDefined(landsStr))
763 763          then {
764 764              let lands = split_51C(value(landsStr), "_")
765 765              func oneLand (acc,landAssetId) =             if ((landAssetId == ""))
766 766                  then throw("landAssetId is required")
767 767                  else {
768 768                      let r = asTuple4Ints(invoke(oldStakingAddress, "unstakeLandREADONLY", [landAssetId, address], nil))
769 769                      $Tuple4((acc._1 + r._1), (acc._2 + r._2), (acc._3 + r._3), (acc._4 + r._4))
770 770                      }
771 771  
772 772              let $l = lands
773 773              let $s = size($l)
774 774              let $acc0 = $Tuple4(0, 0, 0, 0)
775 775              func $f0_1 ($a,$i) =             if (($i >= $s))
776 776                  then $a
777 777                  else oneLand($a, $l[$i])
778 778  
779 779              func $f0_2 ($a,$i) =             if (($i >= $s))
780 780                  then $a
781 781                  else throw("List size exceeds 100")
782 782  
783 783              $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)
784 784              }
785 785          else $Tuple4(0, 0, 0, 0)
786 786      $Tuple2(nil, landsResult)
787 787      }
788 788  
789 789  
790 790  
791 791  @Callable(i)
792 792  func stakeAcresCallback (addr) = if ((i.caller != addressFromStringValue(oldStakingContractStr)))
793 793      then throw("Permission denied")
794 794      else stakeUnstakeAcresInternal(i.payments[0].amount, addr, 0)
795 795  
796 796  
797 797  
798 798  @Callable(i)
799 799  func simulateStakeAcresREADONLY (address,addedAmount) = {
800 800      let amountKey = keyAcresStakedAmtByUser(address)
801 801      let newAcresAmount = (valueOrElse(getInteger(amountKey), 0) + addedAmount)
802 802      let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
803 803      let userFpKey = keyFarmingPowerByUser(address)
804 804      let oldFp = valueOrElse(getInteger(userFpKey), 0)
805 805      let userBonus = valueOrElse(getInteger(acres2Contract, keyUserFullBonus(address)), 0)
806 -     let $t02026220349 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
807 -     let newBonusedFp = $t02026220349._1
808 -     let ignored = $t02026220349._2
806 +     let $t02030320390 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
807 +     let newBonusedFp = $t02030320390._1
808 +     let ignored = $t02030320390._2
809 809      let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
810 810      let newTotalFp = ((oldTotalFp + newBonusedFp) - oldFp)
811 811      $Tuple2(nil, [oldFp, newBonusedFp, oldTotalFp, newTotalFp])
812 812      }
813 813  
814 814  
815 815  
816 816  @Callable(i)
817 817  func issuePickC1 (forAddress) = if ((i.caller != wlgContract))
818 818      then throw("Permission denied")
819 819      else issueNftCustom(idxNamePickaxe, idxKeyC, idxCollDig, idxRarityC, 1, idxDescrPickaxe, idxBonusTypeFp, addressFromStringValue(forAddress))
820 820  
821 821  
822 822  
823 823  @Callable(i)
824 824  func stakeNFT () = {
825 825      let prologActions = prolog(i)
826 826      if ((size(i.payments) != 1))
827 827          then throw("Exactly one payment required")
828 828          else {
829 829              let pmt = value(i.payments[0])
830 830              if ((pmt.amount != 1))
831 831                  then throw("NFT token should be attached as payment")
832 832                  else {
833 833                      let assetId = value(pmt.assetId)
834 834                      let asset = value(assetInfo(assetId))
835 835                      let assetIdStr = toBase58String(assetId)
836 836                      let addr = toString(i.caller)
837 837                      let nftsKey = keyStakedNFTsByOwner(addr)
838 838                      let nftsStr = getString(nftsKey)
839 839                      let nfts = if (isDefined(nftsStr))
840 840                          then split_4C(value(nftsStr), "_")
841 841                          else nil
842 842                      if (containsElement(nfts, assetIdStr))
843 843                          then throw(("Your staked NFTs already contain " + assetIdStr))
844 844                          else if ((size(nfts) >= MAX_NFTS_STAKED_BY_USER))
845 845                              then throw((("Your already staked max (" + toString(MAX_NFTS_STAKED_BY_USER)) + ") NFTs"))
846 846                              else {
847 847                                  let listAction = StringEntry(nftsKey, makeString_2C((nfts :+ assetIdStr), "_"))
848 848                                  if ((asset.issuer == this))
849 849                                      then {
850 -                                         let $t02175821948 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
851 -                                         let actions = $t02175821948._1
852 -                                         let wlgClaimedAmount = $t02175821948._2
850 +                                         let $t02179921989 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
851 +                                         let actions = $t02179921989._1
852 +                                         let wlgClaimedAmount = $t02179921989._2
853 853                                          $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
854 854                                          }
855 855                                      else if ((isArkimalIssued(asset) == ""))
856 856                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
857 857                                          else {
858 -                                             let $t02212922280 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
859 -                                             let actions = $t02212922280._1
860 -                                             let wlgClaimedAmount = $t02212922280._2
858 +                                             let $t02217022321 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
859 +                                             let actions = $t02217022321._1
860 +                                             let wlgClaimedAmount = $t02217022321._2
861 861                                              $Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
862 862                                              }
863 863                                  }
864 864                      }
865 865              }
866 866      }
867 867  
868 868  
869 869  
870 870  @Callable(i)
871 871  func unstakeNFT (assetIdStr) = {
872 872      let prologActions = prolog(i)
873 873      if ((size(i.payments) != 0))
874 874          then throw("No payments required")
875 875          else {
876 876              let assetId = fromBase58String(assetIdStr)
877 877              let addr = toString(i.caller)
878 878              let asset = value(assetInfo(assetId))
879 879              let timeKey = keyStakedTimeByAssetIdAndOwner(assetIdStr, addr)
880 880              if (!(isDefined(getInteger(timeKey))))
881 881                  then throw((("NFT " + asset.name) + " is not staked by you"))
882 882                  else {
883 883                      let nftsKey = keyStakedNFTsByOwner(addr)
884 884                      let nfts = split_4C(valueOrElse(getString(nftsKey), ""), "_")
885 885                      let idx = indexOf(nfts, assetIdStr)
886 886                      if (!(isDefined(idx)))
887 887                          then throw(("Your staked NFTs don't contain " + assetIdStr))
888 888                          else {
889 889                              let listAction = if ((size(nfts) > 1))
890 890                                  then StringEntry(nftsKey, makeString_2C(removeByIndex(nfts, value(idx)), "_"))
891 891                                  else DeleteEntry(nftsKey)
892 892                              let isWL = (asset.issuer == this)
893 893                              if (isWL)
894 894                                  then {
895 895                                      let wlNftNumber = valueOrElse(getInteger(keyUserWlNftNumber(addr)), 0)
896 896                                      let bonusVal = (bonusByDescription(value(asset.description)) * 10000)
897 -                                     let $t02344523524 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
898 -                                     let actions = $t02344523524._1
899 -                                     let wlgClaimedAmount = $t02344523524._2
897 +                                     let $t02348623565 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
898 +                                     let actions = $t02348623565._1
899 +                                     let wlgClaimedAmount = $t02348623565._2
900 900                                      $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)
901 901                                      }
902 902                                  else {
903 903                                      let arkimalName = isArkimalIssued(asset)
904 904                                      if ((arkimalName == ""))
905 905                                          then throw("Only WavesLands and Arkimals NFT tokens are accepted")
906 906                                          else {
907 907                                              let arkNftNumber = valueOrElse(getInteger(keyUserArkNftNumber(addr)), 0)
908 -                                             let $t02418424268 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
909 -                                             let actions = $t02418424268._1
910 -                                             let wlgClaimedAmount = $t02418424268._2
908 +                                             let $t02422524309 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
909 +                                             let actions = $t02422524309._1
910 +                                             let wlgClaimedAmount = $t02422524309._2
911 911                                              $Tuple2((((((actions :+ listAction) :+ IntegerEntry(keyUserArkNftNumber(addr), (arkNftNumber - 1))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
912 912                                              }
913 913                                      }
914 914                              }
915 915                      }
916 916              }
917 917      }
918 918  
919 919  
920 920  
921 921  @Callable(i)
922 922  func exchangeNFTs () = {
923 923      let prologActions = prolog(i)
924 924      if ((3 > size(i.payments)))
925 925          then throw("Min one WLGOLD and 2 NFT payments allowed")
926 926          else if ((size(i.payments) > 10))
927 927              then throw("Max one WLGOLD and 9 NFT payments allowed")
928 928              else {
929 929                  let addr = toString(i.caller)
930 930                  func addUp (acc,pmt) =                 {
931 931                      let assetId = valueOrErrorMessage(pmt.assetId, "WAVES payments not allowed")
932 932                      if ((assetId == wlgAssetId))
933 933                          then $Tuple4((acc._1 + pmt.amount), acc._2, acc._3, acc._4)
934 934                          else {
935 935                              let asset = value(assetInfo(assetId))
936 936                              if ((asset.issuer != this))
937 937                                  then throw("Only WL-issued NFTs allowed")
938 938                                  else {
939 939                                      let rarityIx = rarityIdxByDescriprion(value(asset.description))
940 940                                      if (if ((acc._4 > 0))
941 941                                          then (rarityIx != acc._4)
942 942                                          else false)
943 943                                          then throw("You can exchange only NFTs of the same rarity")
944 944                                          else {
945 945                                              let bonusPerc = bonusByDescription(value(asset.description))
946 946                                              $Tuple4(acc._1, (acc._2 + bonusPerc), (acc._3 :+ Burn(assetId, 1)), rarityIx)
947 947                                              }
948 948                                      }
949 949                              }
950 950                      }
951 951  
952 -                 let $t02565725873 = {
952 +                 let $t02569825914 = {
953 953                      let $l = i.payments
954 954                      let $s = size($l)
955 955                      let $acc0 = $Tuple4(0, 0, nil, -1)
956 956                      func $f0_1 ($a,$i) =                     if (($i >= $s))
957 957                          then $a
958 958                          else addUp($a, $l[$i])
959 959  
960 960                      func $f0_2 ($a,$i) =                     if (($i >= $s))
961 961                          then $a
962 962                          else throw("List size exceeds 10")
963 963  
964 964                      $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)
965 965                      }
966 -                 let wlgFee = $t02565725873._1
967 -                 let totalBonus = $t02565725873._2
968 -                 let burnActions = $t02565725873._3
969 -                 let rarityIdx = $t02565725873._4
966 +                 let wlgFee = $t02569825914._1
967 +                 let totalBonus = $t02569825914._2
968 +                 let burnActions = $t02569825914._3
969 +                 let rarityIdx = $t02569825914._4
970 970                  let newRarityIdx = if ((rarityIdx == idxRarityC))
971 971                      then if ((rarityThresholds[idxThresholdC] > totalBonus))
972 972                          then idxRarityC
973 973                          else if ((rarityThresholds[idxThresholdU] > totalBonus))
974 974                              then idxRarityU
975 975                              else throw((("You can advance only one level of rarity, max total bonus " + toString(rarityThresholds[idxThresholdU])) + "%"))
976 976                      else if ((rarityIdx == idxRarityU))
977 977                          then if ((rarityThresholds[idxThresholdU] > totalBonus))
978 978                              then idxRarityU
979 979                              else if ((rarityThresholds[idxThresholdL] > totalBonus))
980 980                                  then idxRarityL
981 981                                  else throw((("You can advance only one level of rarity, max total bonus " + toString(rarityThresholds[idxThresholdL])) + "%"))
982 982                          else if ((rarityIdx == idxRarityL))
983 983                              then if ((rarityThresholds[idxThresholdL] > totalBonus))
984 984                                  then idxRarityL
985 985                                  else idxRarityE
986 986                              else if ((rarityIdx == idxRarityE))
987 987                                  then idxRarityE
988 988                                  else if ((rarityIdx == idxRarityP))
989 989                                      then throw("You can't exchange NFTs of this rarity")
990 990                                      else throw("Unknown rarity")
991 991                  let minWlgFee = fraction(totalBonus, MULT14, getWlgPrice(0))
992 992                  let change = (wlgFee - minWlgFee)
993 993                  let forTeam = (minWlgFee / 2)
994 994                  let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(minWlgFee - forTeam)], nil))
995 995                  if ((0 > change))
996 996                      then throw((("You need to attach " + fixedPoint(minWlgFee, 8)) + " WLGOLD as fee"))
997 997                      else {
998 998                          let changeActions = if ((change > 0))
999 999                              then [ScriptTransfer(i.caller, change, wlgAssetId)]
1000 1000                              else nil
1001 -                         let $t02741027571 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1002 -                         let issueNftActions = $t02741027571._1
1003 -                         let nftAssetId = $t02741027571._2
1001 +                         let $t02745127612 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1002 +                         let issueNftActions = $t02745127612._1
1003 +                         let nftAssetId = $t02745127612._2
1004 1004                          let burned = size(burnActions)
1005 1005                          let burnCounterActions = if ((burned == 0))
1006 1006                              then nil
1007 1007                              else [IntegerEntry(keyNftTotalBurned, (valueOrElse(getInteger(keyNftTotalBurned), 0) + burned))]
1008 1008                          $Tuple2((((((issueNftActions ++ burnActions) ++ burnCounterActions) ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)), $Tuple2(nftAssetId, wlgRemain))
1009 1009                          }
1010 1010                  }
1011 1011      }
1012 1012  
1013 1013  
1014 1014  
1015 1015  @Callable(i)
1016 1016  func openNftChest () = {
1017 1017      let prologActions = prolog(i)
1018 1018      if ((size(i.payments) != 1))
1019 1019          then throw("exactly 1 payment must be attached")
1020 1020          else {
1021 1021              let pmt = i.payments[0]
1022 1022              let wlgAmount = pmt.amount
1023 1023              if (if (!(isDefined(pmt.assetId)))
1024 1024                  then true
1025 1025                  else (value(pmt.assetId) != wlgAssetId))
1026 1026                  then throw("WLGOLD payments only!")
1027 1027                  else {
1028 1028                      let minWlgFee = fraction(NFT_CHEST_PRICE_USDT, MULT8, getWlgPrice(0))
1029 1029                      let change = (wlgAmount - minWlgFee)
1030 1030                      let forTeam = (minWlgFee / 2)
1031 1031                      let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(minWlgFee - forTeam)], nil))
1032 1032                      if ((0 > change))
1033 1033                          then throw((("You need to attach " + fixedPoint(minWlgFee, 8)) + " WLGOLD as fee"))
1034 1034                          else {
1035 1035                              let changeActions = if ((change > 0))
1036 1036                                  then [ScriptTransfer(i.caller, change, wlgAssetId)]
1037 1037                                  else nil
1038 1038                              let addr = toString(i.caller)
1039 1039                              let finishKey = keyCommit(addr)
1040 1040                              let finishBlock = valueOrErrorMessage(getInteger(finishKey), "You have to commitForRandom() first!")
1041 1041                              if ((finishBlock > height))
1042 1042                                  then throw(("Random number is not ready yet, wait until height = " + toString(finishBlock)))
1043 1043                                  else {
1044 1044                                      let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
1045 1045                                      let salt = fromBase58String(split(valueOrElse(getString(keyCurWeekTxIdByUser(addr)), "42_DEFAULT"), "_")[1])
1046 1046                                      let rand = getRandomNumber(100, salt, entropy)
1047 -                                     let $t02959029862 = if ((84 > rand))
1047 +                                     let $t02963129903 = if ((84 > rand))
1048 1048                                          then $Tuple2(1, idxRarityC)
1049 1049                                          else if ((98 > rand))
1050 1050                                              then $Tuple2(5, idxRarityU)
1051 1051                                              else $Tuple2(10, idxRarityL)
1052 -                                     let bonus = $t02959029862._1
1053 -                                     let rarityIdx = $t02959029862._2
1054 -                                     let $t02986530015 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1055 -                                     let issueNftActions = $t02986530015._1
1056 -                                     let nftAssetId = $t02986530015._2
1052 +                                     let bonus = $t02963129903._1
1053 +                                     let rarityIdx = $t02963129903._2
1054 +                                     let $t02990630056 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1055 +                                     let issueNftActions = $t02990630056._1
1056 +                                     let nftAssetId = $t02990630056._2
1057 1057                                      $Tuple2(((((issueNftActions ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)) :+ DeleteEntry(finishKey)), $Tuple2(nftAssetId, wlgRemain))
1058 1058                                      }
1059 1059                              }
1060 1060                      }
1061 1061              }
1062 1062      }
1063 1063  
1064 1064  
1065 1065  
1066 1066  @Callable(i)
1067 1067  func commitForRandom () = {
1068 1068      let prologActions = prolog(i)
1069 1069      let addr = toString(i.caller)
1070 1070      let finishKey = keyCommit(addr)
1071 1071      if (isDefined(getInteger(finishKey)))
1072 1072          then throw("You already commited for random, please use it")
1073 1073          else {
1074 1074              let finishBlock = (height + RANDOM_DELAY)
1075 1075              $Tuple2(([IntegerEntry(finishKey, finishBlock)] ++ prologActions), finishBlock)
1076 1076              }
1077 1077      }
1078 1078  
1079 1079

Old	New		Differences
398	398		else false)
399	399		then throw("Nothing to do")
400	400		else {
401		-	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address~~, true~~], nil)
	401	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
402	402		if ((wlgResult == wlgResult))
403	403		then {
404	404		let now = lastBlock.timestamp

421	421		else false)
422	422		then throw((((("You have only " + fixedPoint(oldBonus, 4)) + "% bonus, and tried to unstake ") + fixedPoint(-(bonusDelta), 4)) + "%"))
423	423		else {
424		-	let $~~t063056404~~ = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
425		-	let newBonusedFp = $~~t063056404~~._1
426		-	let ignored = $~~t063056404~~._2
	424	+	let $t062996398 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
	425	+	let newBonusedFp = $t062996398._1
	426	+	let ignored = $t062996398._2
427	427		let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
428	428		let acresActions = if ((amt == 0))
429	429		then nil

516	516		if ((nftNumber >= limit))
517	517		then throw((("You can stake max " + toString(limit)) + " of such NFTs"))
518	518		else {
519		-	let $~~t01068310759~~ = stakeUnstakeAcresInternal(0, addr, bonus6)
520		-	let actions = $~~t01068310759~~._1
521		-	let wlgClaimedAmount = $~~t01068310759~~._2
	519	+	let $t01067710753 = stakeUnstakeAcresInternal(0, addr, bonus6)
	520	+	let actions = $t01067710753._1
	521	+	let wlgClaimedAmount = $t01067710753._2
522	522		$Tuple2((((actions :+ IntegerEntry(userNumKey, (nftNumber + 1))) :+ IntegerEntry(totalNumKey, (valueOrElse(getInteger(totalNumKey), 0) + 1))) :+ IntegerEntry(keyStakedTimeByAssetIdAndOwner(assetIdStr, addr), lastBlock.timestamp)), wlgClaimedAmount)
523	523		}
524	524		}

562	562		if ((arbReleaseTime > lastBlock.timestamp))
563	563		then throw(("You traded some WLGOLD, cannot unstake until " + toString(arbReleaseTime)))
564	564		else {
565		-	let $~~t01233312413~~ = stakeUnstakeAcresInternal(-(amount), address, 0)
566		-	let actions = $~~t01233312413~~._1
567		-	let wlgClaimedAmount = $~~t01233312413~~._2
	565	+	let $t01232712407 = stakeUnstakeAcresInternal(-(amount), address, 0)
	566	+	let actions = $t01232712407._1
	567	+	let wlgClaimedAmount = $t01232712407._2
568	568		$Tuple2(((actions :+ ScriptTransfer(i.caller, amount, acresAssetId)) ++ prologActions), wlgClaimedAmount)
569	569		}
570	570		}

587	587		else (value(pmt.assetId) != acresAssetId))
588	588		then throw("ACRES payments only!")
589	589		else {
590		-	let $~~t01286412940~~ = stakeUnstakeAcresInternal(amt, address, 0)
591		-	let actions = $~~t01286412940~~._1
592		-	let wlgClaimedAmount = $~~t01286412940~~._2
	590	+	let $t01285812934 = stakeUnstakeAcresInternal(amt, address, 0)
	591	+	let actions = $t01285812934._1
	592	+	let wlgClaimedAmount = $t01285812934._2
593	593		$Tuple2((actions ++ prologActions), wlgClaimedAmount)
594	594		}
595	595		}

653	653		then throw((("Min payment should be " + fixedPoint(MULT7, 8)) + " ACRES"))
654	654		else {
655	655		let addr = toString(i.caller)
656		-	let $~~t01479714845~~ = getSwapLimitAcres()
657		-	let limitAction = $~~t01479714845~~._1
658		-	let maxUsdt = $~~t01479714845~~._2
	656	+	let $t01479114839 = getSwapLimitAcres()
	657	+	let limitAction = $t01479114839._1
	658	+	let maxUsdt = $t01479114839._2
659	659		let maxAcres = (maxUsdt * USDT2ACRES_MULTIPLIER)
660	660		if ((acresAmount > maxAcres))
661	661		then throw((("You can sell max " + fixedPoint(maxAcres, 8)) + " ACRES"))

671	671
672	672		@Callable(i)
673	673		func sellAcresREADONLY (address,acresAmount) = {
674		-	let $~~t01534115389~~ = getSwapLimitAcres()
675		-	let limitAction = $~~t01534115389~~._1
676		-	let maxUsdt = $~~t01534115389~~._2
	674	+	let $t01533515383 = getSwapLimitAcres()
	675	+	let limitAction = $t01533515383._1
	676	+	let maxUsdt = $t01533515383._2
677	677		let usdtAmount = ((acresAmount / USDT2ACRES_MULTIPLIER) / 2)
678	678		$Tuple2(nil, [usdtAmount, MULT7, (maxUsdt * USDT2ACRES_MULTIPLIER), 0])
679	679		}

732	732		let req = invoke(oldAcresAddress, "requestAcresCallback", [(((rr._1 + rr._2) + rr._3) + rr._4)], nil)
733	733		if ((req == req))
734	734		then {
735		-	let $~~t01790018038~~ = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
736		-	let nftActions = $~~t01790018038~~._1
737		-	let nftAssetId = $~~t01790018038~~._2
	735	+	let $t01789418032 = issueNftCustom(idxNameShovel, idxKeyP, idxCollDig, idxRarityP, 3, idxDescrShovel, idxBonusTypeFp, i.caller)
	736	+	let nftActions = $t01789418032._1
	737	+	let nftAssetId = $t01789418032._2
738	738		$Tuple6(rr._1, rr._2, rr._3, rr._4, rr._5, nftActions)
739	739		}
740	740		else throw("Strict value is not equal to itself.")

803	803		let userFpKey = keyFarmingPowerByUser(address)
804	804		let oldFp = valueOrElse(getInteger(userFpKey), 0)
805	805		let userBonus = valueOrElse(getInteger(acres2Contract, keyUserFullBonus(address)), 0)
806		-	let $~~t02026220349~~ = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
807		-	let newBonusedFp = $~~t02026220349~~._1
808		-	let ignored = $~~t02026220349~~._2
	806	+	let $t02030320390 = getFarmingPowerByAcresAndBonus(newAcresAmount, userBonus)
	807	+	let newBonusedFp = $t02030320390._1
	808	+	let ignored = $t02030320390._2
809	809		let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
810	810		let newTotalFp = ((oldTotalFp + newBonusedFp) - oldFp)
811	811		$Tuple2(nil, [oldFp, newBonusedFp, oldTotalFp, newTotalFp])

847	847		let listAction = StringEntry(nftsKey, makeString_2C((nfts :+ assetIdStr), "_"))
848	848		if ((asset.issuer == this))
849	849		then {
850		-	let $~~t02175821948~~ = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
851		-	let actions = $~~t02175821948~~._1
852		-	let wlgClaimedAmount = $~~t02175821948~~._2
	850	+	let $t02179921989 = stakeNftInternal(addr, assetIdStr, (bonusByDescription(value(asset.description)) * 10000), keyUserWlNftNumber(addr), keyWlNftTotalStaked, MAX_WL_NFTS)
	851	+	let actions = $t02179921989._1
	852	+	let wlgClaimedAmount = $t02179921989._2
853	853		$Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
854	854		}
855	855		else if ((isArkimalIssued(asset) == ""))
856	856		then throw("Only WavesLands and Arkimals NFT tokens are accepted")
857	857		else {
858		-	let $~~t02212922280~~ = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
859		-	let actions = $~~t02212922280~~._1
860		-	let wlgClaimedAmount = $~~t02212922280~~._2
	858	+	let $t02217022321 = stakeNftInternal(addr, assetIdStr, ARK_NFT_BONUS, keyUserArkNftNumber(addr), keyArkNftTotalStaked, MAX_ARK_NFTS)
	859	+	let actions = $t02217022321._1
	860	+	let wlgClaimedAmount = $t02217022321._2
861	861		$Tuple2(((prologActions ++ actions) :+ listAction), wlgClaimedAmount)
862	862		}
863	863		}

894	894		then {
895	895		let wlNftNumber = valueOrElse(getInteger(keyUserWlNftNumber(addr)), 0)
896	896		let bonusVal = (bonusByDescription(value(asset.description)) * 10000)
897		-	let $~~t02344523524~~ = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
898		-	let actions = $~~t02344523524~~._1
899		-	let wlgClaimedAmount = $~~t02344523524~~._2
	897	+	let $t02348623565 = stakeUnstakeAcresInternal(0, addr, -(bonusVal))
	898	+	let actions = $t02348623565._1
	899	+	let wlgClaimedAmount = $t02348623565._2
900	900		$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)
901	901		}
902	902		else {

905	905		then throw("Only WavesLands and Arkimals NFT tokens are accepted")
906	906		else {
907	907		let arkNftNumber = valueOrElse(getInteger(keyUserArkNftNumber(addr)), 0)
908		-	let $~~t02418424268~~ = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
909		-	let actions = $~~t02418424268~~._1
910		-	let wlgClaimedAmount = $~~t02418424268~~._2
	908	+	let $t02422524309 = stakeUnstakeAcresInternal(0, addr, -(ARK_NFT_BONUS))
	909	+	let actions = $t02422524309._1
	910	+	let wlgClaimedAmount = $t02422524309._2
911	911		$Tuple2((((((actions :+ listAction) :+ IntegerEntry(keyUserArkNftNumber(addr), (arkNftNumber - 1))) :+ DeleteEntry(keyStakedTimeByAssetIdAndOwner(toBase58String(assetId), addr))) :+ ScriptTransfer(i.caller, 1, assetId)) ++ prologActions), wlgClaimedAmount)
912	912		}
913	913		}

949	949		}
950	950		}
951	951
952		-	let $~~t02565725873~~ = {
	952	+	let $t02569825914 = {
953	953		let $l = i.payments
954	954		let $s = size($l)
955	955		let $acc0 = $Tuple4(0, 0, nil, -1)

963	963
964	964		$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)
965	965		}
966		-	let wlgFee = $~~t02565725873~~._1
967		-	let totalBonus = $~~t02565725873~~._2
968		-	let burnActions = $~~t02565725873~~._3
969		-	let rarityIdx = $~~t02565725873~~._4
	966	+	let wlgFee = $t02569825914._1
	967	+	let totalBonus = $t02569825914._2
	968	+	let burnActions = $t02569825914._3
	969	+	let rarityIdx = $t02569825914._4
970	970		let newRarityIdx = if ((rarityIdx == idxRarityC))
971	971		then if ((rarityThresholds[idxThresholdC] > totalBonus))
972	972		then idxRarityC

998	998		let changeActions = if ((change > 0))
999	999		then [ScriptTransfer(i.caller, change, wlgAssetId)]
1000	1000		else nil
1001		-	let $~~t02741027571~~ = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1002		-	let issueNftActions = $~~t02741027571~~._1
1003		-	let nftAssetId = $~~t02741027571~~._2
	1001	+	let $t02745127612 = issueNftCustom(idxNamePickaxe, newRarityIdx, idxCollDig, newRarityIdx, totalBonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
	1002	+	let issueNftActions = $t02745127612._1
	1003	+	let nftAssetId = $t02745127612._2
1004	1004		let burned = size(burnActions)
1005	1005		let burnCounterActions = if ((burned == 0))
1006	1006		then nil

1044	1044		let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
1045	1045		let salt = fromBase58String(split(valueOrElse(getString(keyCurWeekTxIdByUser(addr)), "42_DEFAULT"), "_")[1])
1046	1046		let rand = getRandomNumber(100, salt, entropy)
1047		-	let $~~t02959029862~~ = if ((84 > rand))
	1047	+	let $t02963129903 = if ((84 > rand))
1048	1048		then $Tuple2(1, idxRarityC)
1049	1049		else if ((98 > rand))
1050	1050		then $Tuple2(5, idxRarityU)
1051	1051		else $Tuple2(10, idxRarityL)
1052		-	let bonus = $~~t02959029862~~._1
1053		-	let rarityIdx = $~~t02959029862~~._2
1054		-	let $~~t02986530015~~ = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
1055		-	let issueNftActions = $~~t02986530015~~._1
1056		-	let nftAssetId = $~~t02986530015~~._2
	1052	+	let bonus = $t02963129903._1
	1053	+	let rarityIdx = $t02963129903._2
	1054	+	let $t02990630056 = issueNftCustom(idxNamePickaxe, rarityIdx, idxCollDig, rarityIdx, bonus, idxDescrPickaxe, idxBonusTypeFp, i.caller)
	1055	+	let issueNftActions = $t02990630056._1
	1056	+	let nftAssetId = $t02990630056._2
1057	1057		$Tuple2(((((issueNftActions ++ prologActions) ++ changeActions) :+ ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId)) :+ DeleteEntry(finishKey)), $Tuple2(nftAssetId, wlgRemain))
1058	1058		}
1059	1059		}

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 OLD_STAKING_DEADL = 1733346000000
281	281
282	282		let MAX_LANDS_TO_CONVERT = 14
283	283
284	284		let keyLastAcresSellTime = "lastAcresSellTime"
285	285
286	286		let keyLastLimitLeft = "lastLimitLeft"
287	287
288	288		let names = ["Gold shovel", "Pickaxe"]
289	289
290	290		let descriptions = ["Reward for early birds", "Increases FarmPower"]
291	291
292	292		let idxDescrShovel = 0
293	293
294	294		let idxDescrPickaxe = 1
295	295
296	296		let rarityThresholds = [5, 10, 20]
297	297
298	298		let idxThresholdC = 0
299	299
300	300		let idxThresholdU = 1
301	301
302	302		let idxThresholdL = 2
303	303
304	304		let namez = ["SHOVEL", "PICKAXE"]
305	305
306	306		let idxNameShovel = 0
307	307
308	308		let idxNamePickaxe = 1
309	309
310	310		let contentKeyz = ["contentPickaxeC", "contentPickaxeU", "contentPickaxeL", "contentPickaxeE", "contentShovelP"]
311	311
312	312		let idxKeyC = 0
313	313
314	314		let idxKeyP = 4
315	315
316	316		let rarityNames = ["Common", "Uncommon", "Legendary", "Epic", "Promo"]
317	317
318	318		let idxRarityC = 0
319	319
320	320		let idxRarityU = 1
321	321
322	322		let idxRarityL = 2
323	323
324	324		let idxRarityE = 3
325	325
326	326		let idxRarityP = 4
327	327
328	328		let collectionz = ["Digging tools"]
329	329
330	330		let idxCollDig = 0
331	331
332	332		let bonusTypez = ["FarmPower"]
333	333
334	334		let idxBonusTypeFp = 0
335	335
336	336		func prolog (i) = if (if ((i.originCaller != rest2Contract))
337	337		then valueOrElse(getBoolean(keyBlocked()), false)
338	338		else false)
339	339		then throw("Contracts are under maintenance")
340	340		else {
341	341		let addr = toString(i.originCaller)
342	342		let week = (height / WEEK_BLOCKS)
343	343		let lastWeekKey = keyLastWeekTxIdByUser(addr)
344	344		let lastWeekTxIdByUser = getString(lastWeekKey)
345	345		let txId = toBase58String(i.transactionId)
346	346		let wtx = ((toString(week) + "_") + txId)
347	347		let curWeekKey = keyCurWeekTxIdByUser(addr)
348	348		if (isDefined(lastWeekTxIdByUser))
349	349		then {
350	350		let lastWeekTx = split(value(lastWeekTxIdByUser), "_")
351	351		if ((lastWeekTx[0] == toString(week)))
352	352		then [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
353	353		else if ((lastWeekTx[0] == toString((week - 1))))
354	354		then [StringEntry(curWeekKey, wtx)]
355	355		else {
356	356		let curWeekTxIdByUser = getStringValue(curWeekKey)
357	357		let curWeekTx = split(curWeekTxIdByUser, "_")
358	358		if ((curWeekTx[0] == toString(week)))
359	359		then [StringEntry(curWeekKey, wtx)]
360	360		else [StringEntry(lastWeekKey, curWeekTxIdByUser), StringEntry(curWeekKey, wtx)]
361	361		}
362	362		}
363	363		else [StringEntry(lastWeekKey, wtx), StringEntry(curWeekKey, wtx)]
364	364		}
365	365
366	366
367	367		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) + "\"}")
368	368
369	369
370	370		func issueNftCustom (nameIdx,contKeyIdx,collIdx,rarityIdx,bonusPerc,descrIdx,bonusTypeIdx,addr) = {
371	371		let nftSerial = valueOrElse(getInteger(keyNftTotalIssued), 0)
372	372		let rarity = rarityNames[rarityIdx]
373	373		let name = (((namez[nameIdx] + "-") + take(rarity, 1)) + toString(bonusPerc))
374	374		let issue = Issue(name, createNftDescrCustom(contentKeyz[contKeyIdx], nftSerial, collectionz[collIdx], names[nameIdx], descriptions[descrIdx], rarityNames[rarityIdx], bonusPerc, bonusTypez[bonusTypeIdx]), 1, 0, false)
375	375		let nftAssetId = calculateAssetId(issue)
376	376		$Tuple2([issue, IntegerEntry(keyNftTotalIssued, (nftSerial + 1)), IntegerEntry(keyNftNumberByAssetId(toBase58String(nftAssetId)), nftSerial), ScriptTransfer(addr, 1, nftAssetId)], nftAssetId)
377	377		}
378	378
379	379
380	380		func bonusByDescription (descr) = if (!(contains(descr, "\"bonusType\": \"FarmPower\"")))
381	381		then throw(("NFT is not supported: " + descr))
382	382		else {
383	383		let bonusStr = split_4C(split_4C(descr, "\"bonus\":")[1], ",")[0]
384	384		parseIntValue(drop(bonusStr, (valueOrElse(lastIndexOf(bonusStr, " "), -1) + 1)))
385	385		}
386	386
387	387
388	388		func rarityIdxByDescriprion (descr) = if (!(contains(descr, "\"rare\"")))
389	389		then throw(("NFT is not supported: " + descr))
390	390		else {
391	391		let rarityStr = split_4C(split_4C(split_4C(descr, "\"rare\"")[1], ",")[0], "\"")[1]
392	392		value(indexOf(rarityNames, rarityStr))
393	393		}
394	394
395	395
396	396		func stakeUnstakeAcresInternal (amt,address,bonusDelta) = if (if ((amt == 0))
397	397		then (bonusDelta == 0)
398	398		else false)
399	399		then throw("Nothing to do")
400	400		else {
401		-	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address~~, true~~], nil)
	401	+	let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
402	402		if ((wlgResult == wlgResult))
403	403		then {
404	404		let now = lastBlock.timestamp
405	405		let timeKey = keyAcresStakedTimeByUser(address)
406	406		let amountKey = keyAcresStakedAmtByUser(address)
407	407		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
408	408		if (if ((0 > amt))
409	409		then (0 > (oldAcresAmount + amt))
410	410		else false)
411	411		then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(-(amt), 8)))
412	412		else {
413	413		let newAcresAmount = (oldAcresAmount + amt)
414	414		let oldTotal = valueOrElse(getInteger(acresStakdTotalKey), 0)
415	415		let userFpKey = keyFarmingPowerByUser(address)
416	416		let oldFp = valueOrElse(getInteger(userFpKey), 0)
417	417		let bonusKey = keyUserFullBonus(address)
418	418		let oldBonus = valueOrElse(getInteger(acres2Contract, bonusKey), 0)
419	419		if (if ((0 > bonusDelta))
420	420		then (0 > (oldBonus + bonusDelta))
421	421		else false)
422	422		then throw((((("You have only " + fixedPoint(oldBonus, 4)) + "% bonus, and tried to unstake ") + fixedPoint(-(bonusDelta), 4)) + "%"))
423	423		else {
424		-	let $~~t063056404~~ = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
425		-	let newBonusedFp = $~~t063056404~~._1
426		-	let ignored = $~~t063056404~~._2
	424	+	let $t062996398 = getFarmingPowerByAcresAndBonus(newAcresAmount, (oldBonus + bonusDelta))
	425	+	let newBonusedFp = $t062996398._1
	426	+	let ignored = $t062996398._2
427	427		let oldTotalFp = valueOrElse(getInteger(totalFarmingPowerKey), 0)
428	428		let acresActions = if ((amt == 0))
429	429		then nil
430	430		else [IntegerEntry(amountKey, newAcresAmount), IntegerEntry(acresStakdTotalKey, (oldTotal + amt))]
431	431		let bonusActions = if ((bonusDelta == 0))
432	432		then nil
433	433		else [IntegerEntry(bonusKey, (oldBonus + bonusDelta))]
434	434		$Tuple2(((((acresActions ++ bonusActions) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(userFpKey, newBonusedFp)) :+ IntegerEntry(totalFarmingPowerKey, ((oldTotalFp + newBonusedFp) - oldFp))), wlgResult)
435	435		}
436	436		}
437	437		}
438	438		else throw("Strict value is not equal to itself.")
439	439		}
440	440
441	441
442	442		func getWlgPrice (usdtBalanceCorrection) = {
443	443		let issuedAmount = valueOrErrorMessage(getInteger(wlgContract, wlgIssuedAmtKey), "WLGOLD is not issued yet")
444	444		let wlgUsd = assetBalance(wlgContract, usdtAssetId)
445	445		let acres2Usd = (assetBalance(acres2Contract, usdtAssetId) - usdtBalanceCorrection)
446	446		let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
447	447		let totalFundsUsd = ((acres2Usd + wlgUsd) + investFundTotal)
448	448		fraction(totalFundsUsd, MULT8, issuedAmount)
449	449		}
450	450
451	451
452	452		func getSwapLimitAcres () = {
453	453		let wlgUsd = assetBalance(wlgContract, usdtAssetId)
454	454		let acres2Usd = assetBalance(this, usdtAssetId)
455	455		let investFundTotal = (assetBalance(investFundContract, usdtAssetId) + valueOrElse(getInteger(investFundContract, zbIssuedAmtKey), 0))
456	456		let defaultLimit = (((acres2Usd + wlgUsd) + investFundTotal) / ONE_PERCENT_DIVISOR)
457	457		let lastLimitLeft = valueOrElse(getInteger(keyLastLimitLeft), defaultLimit)
458	458		let lastTime = valueOrElse(getInteger(keyLastAcresSellTime), 0)
459	459		let now = lastBlock.timestamp
460	460		let currentLimit = (lastLimitLeft + fraction(defaultLimit, (now - lastTime), DAY_MILLIS))
461	461		let limitLeftUsdt = min([currentLimit, defaultLimit])
462	462		$Tuple2(IntegerEntry(keyLastAcresSellTime, now), limitLeftUsdt)
463	463		}
464	464
465	465
466	466		let arkOracle = addressFromStringValue("3PJgZ6AK1WVCpdCmEZpesHmaKvrQDdXG5og")
467	467
468	468		let incubator = valueOrElse(getString(arkOracle, "static_incubatorAddress"), "")
469	469
470	470		let breeder = valueOrElse(getString(arkOracle, "static_breederAddress"), "")
471	471
472	472		let turtleIncubator = valueOrElse(getString(arkOracle, "static_turtleIncubatorAddress"), "")
473	473
474	474		let turtleBreeder = valueOrElse(getString(arkOracle, "static_turtleBreederAddress"), "")
475	475
476	476		let canineIncubator = valueOrElse(getString(arkOracle, "static_canineIncubatorAddress"), "")
477	477
478	478		let canineBreeder = valueOrElse(getString(arkOracle, "static_canineBreederAddress"), "")
479	479
480	480		let felineIncubator = valueOrElse(getString(arkOracle, "static_felineIncubatorAddress"), "")
481	481
482	482		let felineBreeder = valueOrElse(getString(arkOracle, "static_felineBreederAddress"), "")
483	483
484	484		let mutantBreeder = valueOrElse(getString(arkOracle, "static_mutantIncubatorAddress"), "")
485	485
486	486		func isArkimalIssued (nfo) = {
487	487		let issuer = toString(nfo.issuer)
488	488		if (if (if (if (if (if (if (if (if (if ((chain == base58'2T'))
489	489		then (issuer == oldStakingContractStr)
490	490		else false)
491	491		then true
492	492		else (issuer == incubator))
493	493		then true
494	494		else (issuer == breeder))
495	495		then true
496	496		else (issuer == turtleIncubator))

github/deemru/w8io/026f985 
136.75 ms ◑