w8 · tx · 4e1···oiU

tx · 4e1dLfYfLEpgLEcJDgjxtxumU771dFRH4aVBAjfRpoiU

3PEgVPqJ3NYWbRn1CLELUpuY9KCmragc7sY:  -0.01900000 Waves

2024.02.12 15:07 [4038793] smart account 3PEgVPqJ3NYWbRn1CLELUpuY9KCmragc7sY > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4e1dLfYfLEpgLEcJDgjxtxumU771dFRH4aVBAjfRpoiU",
    "fee": 1900000,
    "feeAssetId": null,
    "timestamp": 1707739674569,
    "version": 2,
    "chainId": 87,
    "sender": "3PEgVPqJ3NYWbRn1CLELUpuY9KCmragc7sY",
    "senderPublicKey": "8bCz9o3CUTfKKYBmcfJcAwKVKxEmLhGGyULemkcJwtkB",
    "proofs": [
        "4ejqjNne9e9b3zSJUtytSNCMpTZNuxLh4MCoP3qefC72UJKbNNu4aoKBtQ1itDQneuqf3Amduzf6rRHjEVwRMsWH"
    ],
    "script": "base64:BgI6CAISABIAEgASABIDCgEIEgASABIAEgMKAQgSABIAEgMKAQgSABIAEgMKAQgSABIECgIICBIECgIIASUBDXRyeUdldEludGVnZXICB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCaCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEMdHJ5R2V0U3RyaW5nAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgAAAmQ4AIDC1y8AAmQ2AMCEPQAHcG9vbEJCQgEaAVdS7pNWFE1+B4zShQ/mflxXN34cn+88gh0ADXB1enpsZVN0YWtpbmcJAQdBZGRyZXNzAQEaAVeUaIz57qK5qp/W9Y68qY9nGpwG9BYpibsACWJiYlBvb2xJZAEaAVdS7pNWFE1+B4zShQ/mflxXN34cn+88gh0ADHB1enpsZU1hcmtldAkBB0FkZHJlc3MBARoBVzPfhq9Dvq0SbPM9eK91jwNWtVu1Nlr0FwAMcHV6emxlTWludGVyCQEHQWRkcmVzcwEBGgFXk93E0hfnIAr99yESTvDwdmcmgwN41FxMAAdidXJueHRuASAkT3V5an4zObj7DP+EqXFcXsot3jOgxF1p+epEEexMVAAJd2hpcmxwb29sASBZ443cwrUjukoU3MTQrxQJ5mTmBL4lBgsmTuVQbZdZxwAGcHV6emxlASDxGv4l/vaZOPRpKsTf4RLWR7LGyg66Nwmvd20fjqLlYwAEcm9tZQEgi1+UAYTDZcEkNI7/G/xwkTFIaskx6qjLk/P5nzRECM8ABHN1cmYBIJLR9EriEQEr9H7q3iGOPcX7yfJ9zoey7VIZ8DpOJFj1AAxwdXp6bGVTdGFrZWQJAQ10cnlHZXRJbnRlZ2VyAgUNcHV6emxlU3Rha2luZwkArAICCQClCAEFBHRoaXMCB19zdGFrZWQADHB1enpsZUluUG9vbAkBDXRyeUdldEludGVnZXICCQEHQWRkcmVzcwEFCWJiYlBvb2xJZAkArAICCQCsAgICB2dsb2JhbF8JANgEAQUGcHV6emxlAghfYmFsYW5jZQAMcHJvamVjdFN0YWtlCQENdHJ5R2V0SW50ZWdlcgIJAQdBZGRyZXNzAQUJYmJiUG9vbElkCQCsAgIJAKUIAQUEdGhpcwIMX2luZGV4U3Rha2VkAAp0b3RhbFN0YWtlCQENdHJ5R2V0SW50ZWdlcgIJAQdBZGRyZXNzAQUJYmJiUG9vbElkAhdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAALYXNzZXRXZWlnaHQJAQ10cnlHZXRJbnRlZ2VyAgkBB0FkZHJlc3MBBQliYmJQb29sSWQJAKwCAgkArAICAgdzdGF0aWNfCQDYBAEFBnB1enpsZQIHX3dlaWdodAANQkJCbHBJblB1enpsZQkAawMJAGgCCQBpAgUMcHV6emxlSW5Qb29sBQthc3NldFdlaWdodACQTgUMcHJvamVjdFN0YWtlBQp0b3RhbFN0YWtlABZrZXlBZGRyZXNzZXNSZWdpc3RlcmVkAhRBZGRyZXNzZXMgcmVnaXN0ZXJlZAAJYWRkcmVzc2VzCQCzAgIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzBRZrZXlBZGRyZXNzZXNSZWdpc3RlcmVkAAEAEGtleUJ1cm54dG5BbW91bnQCFkJVUk4tWFROIHRvdGFsIHJld2FyZHMADWtleVJvbWVBbW91bnQCElJPTUUgdG90YWwgcmV3YXJkcwAPa2V5UHV6emxlQW1vdW50AhRQVVpaTEUgdG90YWwgcmV3YXJkcwAOa2V5V2F2ZXNBbW91bnQCE1dBVkVTIHRvdGFsIHJld2FyZHMAEmtleVdoaXJscG9vbEFtb3VudAIXV0hJUkxQT09MIHRvdGFsIHJld2FyZHMAEGtleVRvdGFsTkZUcG93ZXICD1RvdGFsIE5GVCBwb3dlcgATa2V5VG90YWxQdXp6bGVWYWx1ZQISVG90YWwgcHV6emxlIHZhbHVlABNrZXlUb3RhbEJ1cm54dG5QYWlkAhNUb3RhbCBCVVJOLVhUTiBwYWlkABVrZXlUb3RhbFdoaXJscG9vbFBhaWQCFFRvdGFsIFdISVJMUE9PTCBwYWlkABBrZXlUb3RhbFJvbWVQYWlkAg9Ub3RhbCBST01FIHBhaWQAEWtleVRvdGFsV2F2ZXNQYWlkAhBUb3RhbCBXQVZFUyBwYWlkABJrZXlUb3RhbFB1enpsZVBhaWQCEVRvdGFsIFBVWlpMRSBwYWlkAAdXRlNsaXN0CQDMCAICLEducHk1blZhalBQM1hRUVZ4ckhib01Bc1h0am55V0F4eWJNRGRLcmJyOHNECQDMCAICLEJUOVE0bVFkUVFtZWkycjVZTk1CTWFzWkJRajdteU5haXo2UUhiYTVjUFhTCQDMCAICLEJNdmt5RnRQVm1GYXRwRlI5UVZGS1I1TVlUY1pWVFkyVlV3RloyNXZyQUFjCQDMCAICLDc3UnF1OFRMakJkTXREdVhkOW81ZlVTR282NHpRZTVGQ2NhbzVMOEh0OWo4CQDMCAIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAgE1CQDMCAIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAgE2CQDMCAIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAgE3CQDMCAIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAgE4CQDMCAIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAgE5CQDMCAIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAgIxMAUDbmlsAAdCQkJsaXN0CQDMCAICLDlwQ3hvR3REMThHZUg5Z0NlbXpxcmpITU1qZnlCUURmc3JSQXV4U1JhZ01jCQDMCAICLDdEZ0ZnQ2tCalZEYzVQOVpnd3NWTDlTaVRpN2tYSnVTNGFSVmdiN1pIVzNrCQDMCAICLDc2YlR2RTh0dEh2c3VOMUZ1SDRLYzhRVVc0a0w0bThjMWNqZnNYeTJHZmJWCQDMCAICLDRacmY0SDV0aUZjUUw4ZVFtbkEyd0oxWFdQRUJINmgxRzJNZWZaRFltY0NCCQDMCAICLDJEdEM0bkZueHo1VU02bWJqUHdNVlpwUVdaRlVxeHM1Mm9ackJlTlJrOUFvCQDMCAICLERqWkdNQUZmb1FXa01XM1M1RlRzUU4zam9uY1p0NkJzbWhuRUszZ2dMeG1OCQDMCAICLEJuZWFaWEQ2b3ZESmNWNXJnZnI4aHNIWmFNUXNKUThESDZhNWdUbkdDcEJjCQDMCAICLDRFS2ZnekZrZDVVR0tyam5hSlYzdzdhcmdXMVltRjRocTU0eFdRRnpBWGI5CQDMCAICLDhoR0RrV0tpdTJpZ0RwV1QzSHByNG1jaERENnh3SjloR20yaDJqblV2VHF6CQDMCAICLEUzWm5TZWpwWEwxWHI2Vkc0UW9MaDh4b2Q5Tk1ncFBlNDczcjlRazJIaWJMBQNuaWwADVNVUkZib2FyZExpc3QJAMwIAgIsRHpMU2dFYUJCNFVOYlBDWmVrUFN6YlE4NUtva01CN2QxS1JSbXpVUHU1aHMJAMwIAgIrV21XenNiYjNQTnZ6SjR3NEZiNzNLY29OR0xYdW1nWVphZ1YyMnpFaVgxdwkAzAgCAiw3UnJ4YmdheVVrc1BIckE3OTlwS3VDcjYxcmVUOG5FTmRxQ2tnVkhQZ2FOMgkAzAgCAixGbURMZnpzcGJWSmVLaEtkdUxEVWJhMkhvVmRSckt0c3dES01VM2U5cWp0UAkAzAgCAixIbVF2VnlRZEVqYWZMcnBLUFNpZ2RhZnZjWXZMYk5ZR0VnVkN4TFpSV3QxeQkAzAgCAiwyclZ4Tk1YdXZ1Zzc0VG9yTFFaR0MyRVJIakFiSm5WVWdOWFExa0ptdG5BZQkAzAgCAiw5eWI5eUdKbTZnelZvekJIdVFWSEJkQW56ZmN0M045YlJwZGpqTlVucnpjQwkAzAgCAitzMVNmR1ZzaGYyaktDQTlLdnZLS3ZVdUs4dXRwM05lM2VlOExwNktLTFJ3CQDMCAICLDNFM3liN1R2REs3NjJkbjExZG1STHdhcGdoYWVmUVVFeXVuVmRYU05wNHRCCQDMCAICLEZINzVUdkFweVZ0ZmQ5WDVhMUFyMTlOczlETkp2enB6TEZFNXBqaDF3aTRoCQDMCAICLEVncWtiRHlXUlBnVk5WcXRFRXRSU3pXY0dEMzNvclZvRTJiellkQWRpZVFTCQDMCAICLERzS3lKcEpDWmNGdjlqU25RYlFWRzRKeDNXU1AxS3RmSGhBS1RrU0tyVkJqCQDMCAICLEFlc1ByNVVGRGdZNWpaWFlVWjhKa2JZdEpvdlZkREhieTE1U0Nrc0VobUpLCQDMCAICLEFWc2ZkcXcybTVhVU54YTFIWTllbUxtQ0xCZlZBR1R4VnU0ZWYzeEVES0M4CQDMCAICLDVqZHZTU1kySzdoOFVpVUNYVWdLOVQ3emZNcnlxdzJpdEtQOEJ5c2RYRERrCQDMCAICLEE0dm9LWmVzOE1WREFYeVFqS2tiNmJkRWNxTWJ2QjRwdHpicHFZcXZlRzVuCQDMCAICLDM0b1pLYVdIcFNKclp2R0xkWXU1V0c4V1dYZzdyd0YySEh4OEsxNUdmVUNRCQDMCAICLDc3TWNDSGttTnJSTTREanFrU005QjhZanVKY0t0bjY3alFnZTFwelpyUThUCQDMCAICLDdORUZCbnZHR01mWWRCbmhNTE5wdVZnUzIyTHBjZ1hDWmdIZm04REhtbWlBCQDMCAICLEdvRjl5b2t4SGdQTm94b1dnampkbUdlV2hjTFlBclNzeHFmZlJ0ZllHdGZzBQNuaWwSAWkBCmludm9rZUNsSTEAAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIcYWNjZXNzIG9ubHkgYnkgcHJvamVjdCBvd25lcgQCY2wJAPwHBAUEdGhpcwIRY2xhaW1JbnZlc3RQdXp6bGUFA25pbAUDbmlsAwkAAAIFAmNsBQJjbAQCaTEJAPwHBAUEdGhpcwIIaW52b2tlcjEFA25pbAUDbmlsAwkAAAIFAmkxBQJpMQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEWNsYWltSW52ZXN0UHV6emxlAAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIEEXJvbWVCYWxhbmNlQmVmb3JlCQDwBwIFBHRoaXMFBHJvbWUDCQAAAgURcm9tZUJhbGFuY2VCZWZvcmUFEXJvbWVCYWxhbmNlQmVmb3JlBBJjbGFpbVB1enpsZVN0YWtpbmcJAPwHBAUNcHV6emxlU3Rha2luZwILY2xhaW1SZXdhcmQFA25pbAUDbmlsAwkAAAIFEmNsYWltUHV6emxlU3Rha2luZwUSY2xhaW1QdXp6bGVTdGFraW5nBA9wb29sT25lVG9rZW5JbnYJAPwHBAkBB0FkZHJlc3MBARoBV/0lw71OYZRB77peEmOPxTlvSbWIOvXpbQIhZ2VuZXJhdGVJbmRleFdpdGhPbmVUb2tlbkFuZFN0YWtlCQDMCAIJANgEAQUHcG9vbEJCQgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQZwdXp6bGUJAPAHAgUEdGhpcwUGcHV6emxlBQNuaWwDCQAAAgUPcG9vbE9uZVRva2VuSW52BQ9wb29sT25lVG9rZW5JbnYEEHJvbWVCYWxhbmNlQWZ0ZXIJAPAHAgUEdGhpcwUEcm9tZQkAzAgCCQEMSW50ZWdlckVudHJ5AgIVQWN0aXZhdGVkIGJsb2NraGVpZ2h0BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFEGtleUJ1cm54dG5BbW91bnQJAPAHAgUEdGhpcwUHYnVybnh0bgkAzAgCCQEMSW50ZWdlckVudHJ5AgUNa2V5Um9tZUFtb3VudAkAZQIFEHJvbWVCYWxhbmNlQWZ0ZXIFEXJvbWVCYWxhbmNlQmVmb3JlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ5rZXlXYXZlc0Ftb3VudAMJAGYCCQBlAggJAO8HAQUEdGhpcwlhdmFpbGFibGUFAmQ4AAAJAGUCCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQUCZDgAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSa2V5V2hpcmxwb29sQW1vdW50CQDwBwIFBHRoaXMFCXdoaXJscG9vbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGludm9rZXIxAAQFcmVzZXQJAPwHBAUEdGhpcwIKcmVzZXRDb3VudAUDbmlsBQNuaWwDCQAAAgUFcmVzZXQFBXJlc2V0BARsaXN0CQC8CQIFCWFkZHJlc3NlcwIBLAoBAXICBWFjY3VtB2FkZHJlc3MJAPwHBAUEdGhpcwINY291bnRORlRwb3dlcgkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQHaW52b2tlcgoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQFyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAzMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgMJAAACBQdpbnZva2VyBQdpbnZva2VyBAFwCQD8BwQFBHRoaXMCBGRhdGEFA25pbAUDbmlsAwkAAAIFAXAFAXAJAMwIAgkBDEludGVnZXJFbnRyeQICEFdGUyBwdXp6bGUgdmFsdWUJAGsDCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBRNrZXlUb3RhbFB1enpsZVZhbHVlAAEJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgAKAAkJAMwIAgkBDEludGVnZXJFbnRyeQICEEJCQiBwdXp6bGUgdmFsdWUJAGsDCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBRNrZXlUb3RhbFB1enpsZVZhbHVlAAoJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgAKAAkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpyZXNldENvdW50AAkAzAgCCQEMSW50ZWdlckVudHJ5AgUQa2V5VG90YWxORlRwb3dlcgAABQNuaWwBaQENY291bnRORlRwb3dlcgEHYWRkcmVzcwoBCGZvbGRGdW5jAgNhY2MDV0ZTCQBkAgkAZAIFA2FjYwkA8AcCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzCQDZBAEFA1dGUwMJAAACCQEMdHJ5R2V0U3RyaW5nAgUMcHV6emxlTWFya2V0CQCsAgIJAKwCAgIEbmZ0XwUDV0ZTAgdfc2VsbGVyBQdhZGRyZXNzAAEJAGQCAAADCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAI3bmZ0XzdzM1ZDTUZQd2FWR0FxUG9Zd2ZiYWozcjdFWXExdXlldVdiMnNUUDFBWjNZX3NlbGxlcgUHYWRkcmVzcwkBDXRyeUdldEludGVnZXICBQxwdXp6bGVNaW50ZXICPGdyb3VwXzdzM1ZDTUZQd2FWR0FxUG9Zd2ZiYWozcjdFWXExdXlldVdiMnNUUDFBWjNZX2F2YWlsYWJsZQAABAhzaGFyZVdGUwoAAiRsBQdXRlNsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhmb2xkRnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgoBCWZvbGRGdW5jQgIDYWNjA0JCQgkAZAIJAGQCBQNhY2MJAPAHAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwkA2QQBBQNCQkIDCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAkArAICCQCsAgICBG5mdF8FA0JCQgIHX3NlbGxlcgUHYWRkcmVzcwABAAAECHNoYXJlQkJCCgACJGwFB0JCQmxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWZvbGRGdW5jQgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgMJAAACCQBkAgUIc2hhcmVXRlMFCHNoYXJlQkJCAAAEBGxpc3QJALwJAgUJYWRkcmVzc2VzAgEsBApub05GVGluZGV4CQEFdmFsdWUBCQDPCAIFBGxpc3QFB2FkZHJlc3MEDmxpc3RNaW51c05vTkZUCQDRCAIFBGxpc3QFCm5vTkZUaW5kZXgEDW1pbnVzTm9ORlRzdHIJAKwCAgkAuQkCBQ5saXN0TWludXNOb05GVAIBLAIBLAkAzAgCCQELU3RyaW5nRW50cnkCBRZrZXlBZGRyZXNzZXNSZWdpc3RlcmVkBQ1taW51c05vTkZUc3RyBQNuaWwJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUHYWRkcmVzcwIEX1dGUwUIc2hhcmVXRlMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUHYWRkcmVzcwIEX0JCQgkAaAIFCHNoYXJlQkJCAAoJAMwIAgkBDEludGVnZXJFbnRyeQIFEGtleVRvdGFsTkZUcG93ZXIJAGQCCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleVRvdGFsTkZUcG93ZXIJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoFA25pbAFpAQRkYXRhAAkAzAgCCQEMSW50ZWdlckVudHJ5AgIOcHV6emxlIGJhbGFuY2UJAPAHAgUEdGhpcwUGcHV6emxlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAg1wdXp6bGUgc3Rha2VkBQxwdXp6bGVTdGFrZWQJAMwIAgkBDEludGVnZXJFbnRyeQICDXB1enpsZSBCQkIgTFAFDUJCQmxwSW5QdXp6bGUJAMwIAgkBDEludGVnZXJFbnRyeQIFE2tleVRvdGFsUHV6emxlVmFsdWUJAGQCCQBkAgkA8AcCBQR0aGlzBQZwdXp6bGUFDHB1enpsZVN0YWtlZAUNQkJCbHBJblB1enpsZQUDbmlsAWkBCGludm9rZXIyAAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIEAXQJAPwHBAUEdGhpcwIOdHJhY2tUb3RhbFBhaWQFA25pbAUDbmlsAwkAAAIFAXQFAXQEBGxpc3QJALwJAgUJYWRkcmVzc2VzAgEsCgEBcgIFYWNjdW0HYWRkcmVzcwkA/AcEBQR0aGlzAhFkaXN0cmlidXRlUmV3YXJkcwkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQHaW52b2tlcgoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQFyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQDCQAAAgUHaW52b2tlcgUHaW52b2tlcgQCYnMJAPwHBAUEdGhpcwIIYnVyblN1cmYFA25pbAUDbmlsAwkAAAIFAmJzBQJicwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDnRyYWNrVG90YWxQYWlkAAQNYW1vdW50QnVybnh0bgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlCdXJueHRuQW1vdW50BA9hbW91bnRXaGlybHBvb2wJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUSa2V5V2hpcmxwb29sQW1vdW50BAthbW91bnRXYXZlcwkBDXRyeUdldEludGVnZXICBQR0aGlzBQ5rZXlXYXZlc0Ftb3VudAQKYW1vdW50Um9tZQkBDXRyeUdldEludGVnZXICBQR0aGlzBQ1rZXlSb21lQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNrZXlUb3RhbEJ1cm54dG5QYWlkCQBkAgUNYW1vdW50QnVybnh0bgkBDXRyeUdldEludGVnZXICBQR0aGlzBRNrZXlUb3RhbEJ1cm54dG5QYWlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVrZXlUb3RhbFdoaXJscG9vbFBhaWQJAGQCBQ9hbW91bnRXaGlybHBvb2wJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUVa2V5VG90YWxXaGlybHBvb2xQYWlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRFrZXlUb3RhbFdhdmVzUGFpZAkAZAIFC2Ftb3VudFdhdmVzCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEWtleVRvdGFsV2F2ZXNQYWlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBrZXlUb3RhbFJvbWVQYWlkCQBkAgUKYW1vdW50Um9tZQkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbFJvbWVQYWlkBQNuaWwBaQERZGlzdHJpYnV0ZVJld2FyZHMBB2FkZHJlc3MDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyCgEIZm9sZEZ1bmMCA2FjYwNXRlMJAGQCCQBkAgUDYWNjCQDwBwIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MJANkEAQUDV0ZTAwkAAAIJAQx0cnlHZXRTdHJpbmcCBQxwdXp6bGVNYXJrZXQJAKwCAgkArAICAgRuZnRfBQNXRlMCB19zZWxsZXIFB2FkZHJlc3MAAQkAZAIAAAMJAAACCQEMdHJ5R2V0U3RyaW5nAgUMcHV6emxlTWFya2V0AjduZnRfN3MzVkNNRlB3YVZHQXFQb1l3ZmJhajNyN0VZcTF1eWV1V2Iyc1RQMUFaM1lfc2VsbGVyBQdhZGRyZXNzCQENdHJ5R2V0SW50ZWdlcgIFDHB1enpsZU1pbnRlcgI8Z3JvdXBfN3MzVkNNRlB3YVZHQXFQb1l3ZmJhajNyN0VZcTF1eWV1V2Iyc1RQMUFaM1lfYXZhaWxhYmxlAAAECHNoYXJlV0ZTCgACJGwFB1dGU2xpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCGZvbGRGdW5jAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKCgEJZm9sZEZ1bmNCAgNhY2MDQkJCCQBkAgkAZAIFA2FjYwkA8AcCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzCQDZBAEFA0JCQgMJAAACCQEMdHJ5R2V0U3RyaW5nAgUMcHV6emxlTWFya2V0CQCsAgIJAKwCAgIEbmZ0XwUDQkJCAgdfc2VsbGVyBQdhZGRyZXNzAAEAAAQIc2hhcmVCQkIKAAIkbAUHQkJCbGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJZm9sZEZ1bmNCAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKCgEJZm9sZEZ1bmNDAgNhY2MJU1VSRmJvYXJkCQBkAgkAZAIFA2FjYwkA8AcCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzCQDZBAEFCVNVUkZib2FyZAMJAAACCQEMdHJ5R2V0U3RyaW5nAgUMcHV6emxlTWFya2V0CQCsAgIJAKwCAgIEbmZ0XwUJU1VSRmJvYXJkAgdfc2VsbGVyBQdhZGRyZXNzAAEAAAQPYW1vdW50U1VSRmJvYXJkCgACJGwFDVNVUkZib2FyZExpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWZvbGRGdW5jQwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjJfMgIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUBA1hbW91bnRCdXJueHRuCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlCdXJueHRuQW1vdW50CQBkAgUIc2hhcmVXRlMJAGgCBQhzaGFyZUJCQgAKCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleVRvdGFsTkZUcG93ZXIED2Ftb3VudFdoaXJscG9vbAkAawMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUSa2V5V2hpcmxwb29sQW1vdW50CQBkAgUIc2hhcmVXRlMJAGgCBQhzaGFyZUJCQgAKCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleVRvdGFsTkZUcG93ZXIEC2Ftb3VudFdhdmVzCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBQ5rZXlXYXZlc0Ftb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyBAphbW91bnRSb21lCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBQ1rZXlSb21lQW1vdW50CQBkAgUIc2hhcmVXRlMJAGgCBQhzaGFyZUJCQgAKCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleVRvdGFsTkZUcG93ZXIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUNYW1vdW50QnVybnh0bgUHYnVybnh0bgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBQ9hbW91bnRXaGlybHBvb2wFCXdoaXJscG9vbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBQthbW91bnRXYXZlcwUEdW5pdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBQphbW91bnRSb21lBQRyb21lCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MJAGgCBQ9hbW91bnRTVVJGYm9hcmQFAmQ2BQRzdXJmBQNuaWwBaQEIYnVyblN1cmYACQDMCAIJAQRCdXJuAgUEc3VyZgUCZDYJAMwIAgkBDEludGVnZXJFbnRyeQICEVNVUkYgdG90YWwgYnVybmVkCQBkAgkBDXRyeUdldEludGVnZXICBQR0aGlzAhFTVVJGIHRvdGFsIGJ1cm5lZAUCZDYFA25pbAFpAQhyZWdpc3RlcgADCQEIY29udGFpbnMCCQEMdHJ5R2V0U3RyaW5nAgUEdGhpcwUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAkApQgBCAUBaQZjYWxsZXIJAAIBAhJhbHJlYWR5IHJlZ2lzdGVyZWQDCQAAAgkAkAMBCQC8CQIFCWFkZHJlc3NlcwIBLAAeCQACAQILbWF4IHJlYWNoZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAkArAICCQCsAgIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzBRZrZXlBZGRyZXNzZXNSZWdpc3RlcmVkCQClCAEIBQFpBmNhbGxlcgIBLAUDbmlsAWkBEHJlZ2lzdGVyTWFudWFsbHkBB2FkZHJlc3MDCQEIY29udGFpbnMCCQEMdHJ5R2V0U3RyaW5nAgUEdGhpcwUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAUHYWRkcmVzcwkAAgECEmFscmVhZHkgcmVnaXN0ZXJlZAMJAAACCQCQAwEJALwJAgUJYWRkcmVzc2VzAgEsACgJAAIBAgttYXggcmVhY2hlZAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAkArAICCQCsAgIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzBRZrZXlBZGRyZXNzZXNSZWdpc3RlcmVkBQdhZGRyZXNzAgEsBQNuaWwBaQEOY2xhaW1CeUFueWJvZHkAAwkAZgIJAGQCCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzAhVBY3RpdmF0ZWQgYmxvY2toZWlnaHQJAGgCAB4AoAsFBmhlaWdodAkAAgEJAKwCAgIWV2FpdCB0aWxsIGJsb2NraGVpZ2h0OgkApAMBCQBkAgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwIVQWN0aXZhdGVkIGJsb2NraGVpZ2h0CQBoAgAeAKALBBNwdXp6bGVCYWxhbmNlQmVmb3JlCQDwBwIFBHRoaXMFBnB1enpsZQMJAAACBRNwdXp6bGVCYWxhbmNlQmVmb3JlBRNwdXp6bGVCYWxhbmNlQmVmb3JlBBFyb21lQmFsYW5jZUJlZm9yZQkA8AcCBQR0aGlzBQRyb21lAwkAAAIFEXJvbWVCYWxhbmNlQmVmb3JlBRFyb21lQmFsYW5jZUJlZm9yZQQSY2xhaW1QdXp6bGVTdGFraW5nCQD8BwQFDXB1enpsZVN0YWtpbmcCC2NsYWltUmV3YXJkBQNuaWwFA25pbAMJAAACBRJjbGFpbVB1enpsZVN0YWtpbmcFEmNsYWltUHV6emxlU3Rha2luZwQIY2xhaW1JbnYJAPwHBAkBB0FkZHJlc3MBBQdwb29sQkJCAhFjbGFpbUluZGV4UmV3YXJkcwUDbmlsBQNuaWwDCQAAAgUIY2xhaW1JbnYFCGNsYWltSW52BBJwdXp6bGVCYWxhbmNlQWZ0ZXIJAPAHAgUEdGhpcwUGcHV6emxlBBByb21lQmFsYW5jZUFmdGVyCQDwBwIFBHRoaXMFBHJvbWUJAMwIAgkBDEludGVnZXJFbnRyeQIFEGtleUJ1cm54dG5BbW91bnQJAPAHAgUEdGhpcwUHYnVybnh0bgkAzAgCCQEMSW50ZWdlckVudHJ5AgUNa2V5Um9tZUFtb3VudAkAZQIFEHJvbWVCYWxhbmNlQWZ0ZXIFEXJvbWVCYWxhbmNlQmVmb3JlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ9rZXlQdXp6bGVBbW91bnQJAGUCBRJwdXp6bGVCYWxhbmNlQWZ0ZXIFE3B1enpsZUJhbGFuY2VCZWZvcmUJAMwIAgkBDEludGVnZXJFbnRyeQIFDmtleVdhdmVzQW1vdW50AwkAZgIJAGUCCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQUCZDgAAAkAZQIICQDvBwEFBHRoaXMJYXZhaWxhYmxlBQJkOAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJrZXlXaGlybHBvb2xBbW91bnQJAPAHAgUEdGhpcwUJd2hpcmxwb29sBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQaW52b2tlckJ5QW55Ym9keQADCQBmAgkAZAIJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMCFUFjdGl2YXRlZCBibG9ja2hlaWdodAkAaAIAHgCgCwUGaGVpZ2h0CQACAQkArAICAhZXYWl0IHRpbGwgYmxvY2toZWlnaHQ6CQCkAwEJAGQCCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzAhVBY3RpdmF0ZWQgYmxvY2toZWlnaHQJAGgCAB4AoAsEBXJlc2V0CQD8BwQFBHRoaXMCGmRpc3RyaWJ1dGVSZXdhcmRzQnlBbnlib2R5BQNuaWwFA25pbAMJAAACBQVyZXNldAUFcmVzZXQEBGxpc3QJALwJAgUJYWRkcmVzc2VzAgEsCgEBcgIFYWNjdW0HYWRkcmVzcwkA/AcEBQR0aGlzAg1jb3VudE5GVHBvd2VyCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAdpbnZva2VyCgACJGwFBGxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBAXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDQwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgDCQAAAgUHaW52b2tlcgUHaW52b2tlcgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGmRpc3RyaWJ1dGVSZXdhcmRzQnlBbnlib2R5AQdhZGRyZXNzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIcYWNjZXNzIG9ubHkgYnkgcHJvamVjdCBvd25lcgoBCGZvbGRGdW5jAgNhY2MDV0ZTCQBkAgkAZAIFA2FjYwkA8AcCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzCQDZBAEFA1dGUwMJAAACCQEMdHJ5R2V0U3RyaW5nAgUMcHV6emxlTWFya2V0CQCsAgIJAKwCAgIEbmZ0XwUDV0ZTAgdfc2VsbGVyBQdhZGRyZXNzAAEJAGQCAAADCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAI3bmZ0XzdzM1ZDTUZQd2FWR0FxUG9Zd2ZiYWozcjdFWXExdXlldVdiMnNUUDFBWjNZX3NlbGxlcgUHYWRkcmVzcwkBDXRyeUdldEludGVnZXICBQxwdXp6bGVNaW50ZXICPGdyb3VwXzdzM1ZDTUZQd2FWR0FxUG9Zd2ZiYWozcjdFWXExdXlldVdiMnNUUDFBWjNZX2F2YWlsYWJsZQAABAhzaGFyZVdGUwoAAiRsBQdXRlNsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhmb2xkRnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgoBCWZvbGRGdW5jQgIDYWNjA0JCQgkAZAIJAGQCBQNhY2MJAPAHAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwkA2QQBBQNCQkIDCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAkArAICCQCsAgICBG5mdF8FA0JCQgIHX3NlbGxlcgUHYWRkcmVzcwABAAAECHNoYXJlQkJCCgACJGwFB0JCQmxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWZvbGRGdW5jQgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgMJAAACCQBkAgUIc2hhcmVXRlMFCHNoYXJlQkJCAAAEBGxpc3QJALwJAgUJYWRkcmVzc2VzAgEsBApub05GVGluZGV4CQEFdmFsdWUBCQDPCAIFBGxpc3QFB2FkZHJlc3MEDmxpc3RNaW51c05vTkZUCQDRCAIFBGxpc3QFCm5vTkZUaW5kZXgEDW1pbnVzTm9ORlRzdHIJAKwCAgkAuQkCBQ5saXN0TWludXNOb05GVAIBLAIBLAkAzAgCCQELU3RyaW5nRW50cnkCBRZrZXlBZGRyZXNzZXNSZWdpc3RlcmVkBQ1taW51c05vTkZUc3RyBQNuaWwEDWFtb3VudEJ1cm54dG4JAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleUJ1cm54dG5BbW91bnQJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgQPYW1vdW50V2hpcmxwb29sCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBRJrZXlXaGlybHBvb2xBbW91bnQJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgQLYW1vdW50V2F2ZXMJAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFDmtleVdhdmVzQW1vdW50CQBkAgUIc2hhcmVXRlMJAGgCBQhzaGFyZUJCQgAKCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleVRvdGFsTkZUcG93ZXIECmFtb3VudFJvbWUJAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFDWtleVJvbWVBbW91bnQJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgQMYW1vdW50UHV6emxlCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBQ9rZXlQdXp6bGVBbW91bnQJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBQ1hbW91bnRCdXJueHRuBQdidXJueHRuCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNrZXlUb3RhbEJ1cm54dG5QYWlkCQBkAgUNYW1vdW50QnVybnh0bgkBDXRyeUdldEludGVnZXICBQR0aGlzBRNrZXlUb3RhbEJ1cm54dG5QYWlkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MFD2Ftb3VudFdoaXJscG9vbAUJd2hpcmxwb29sCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVrZXlUb3RhbFdoaXJscG9vbFBhaWQJAGQCBQ9hbW91bnRXaGlybHBvb2wJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUVa2V5VG90YWxXaGlybHBvb2xQYWlkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MFC2Ftb3VudFdhdmVzBQR1bml0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRFrZXlUb3RhbFdhdmVzUGFpZAkAZAIFC2Ftb3VudFdhdmVzCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEWtleVRvdGFsV2F2ZXNQYWlkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MFCmFtb3VudFJvbWUFBHJvbWUJAMwIAgkBDEludGVnZXJFbnRyeQIFEGtleVRvdGFsUm9tZVBhaWQJAGQCBQphbW91bnRSb21lCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleVRvdGFsUm9tZVBhaWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUMYW1vdW50UHV6emxlBQZwdXp6bGUJAMwIAgkBDEludGVnZXJFbnRyeQIFEmtleVRvdGFsUHV6emxlUGFpZAkAZAIFDGFtb3VudFB1enpsZQkBDXRyeUdldEludGVnZXICBQR0aGlzBRJrZXlUb3RhbFB1enpsZVBhaWQFA25pbAFpAQtkZWxldGVFbnRyeQADCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyCQDMCAIJAQtEZWxldGVFbnRyeQEFFmtleUFkZHJlc3Nlc1JlZ2lzdGVyZWQFA25pbAFpAQhhZGRXRlNpZAIJV0ZTbnVtYmVyCldGU2Fzc2V0SWQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJV0ZTbnVtYmVyAgAFCldGU2Fzc2V0SWQFA25pbAFpARJjaGFuZ2VJbnRlZ2VyRW50cnkCCWtleVN0cmluZwdpbnRlZ2VyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIcYWNjZXNzIG9ubHkgYnkgcHJvamVjdCBvd25lcgkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa2V5U3RyaW5nBQdpbnRlZ2VyBQNuaWwAV2BHog==",
    "height": 4038793,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8qV4X2qPnTxNnrmsjvjLBC8xrALLvFZofN2L9KRqWx7s
Next: 5WaN3SwXN5uRJSrTUfPapZnUoDvtNqrhHkaE7kFy4QCk

Diff: 
Old New Differences
255 255                      $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
256 256                      }
257 257                  if ((invoker == invoker))
258 -                     then nil
258 +                     then {
259 +                         let bs = invoke(this, "burnSurf", nil, nil)
260 +                         if ((bs == bs))
261 +                             then nil
262 +                             else throw("Strict value is not equal to itself.")
263 +                         }
259 264                      else throw("Strict value is not equal to itself.")
260 265                  }
261 266              else throw("Strict value is not equal to itself.")
334 339  
335 340              $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
336 341              }
337 -         let bs = invoke(this, "burnSurf", nil, nil)
338 -         if ((bs == bs))
339 -             then {
340 -                 let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
341 -                 let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
342 -                 let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
343 -                 let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
342 +         let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
343 +         let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
344 +         let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
345 +         let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
344 346  [ScriptTransfer(addressFromStringValue(address), amountBurnxtn, burnxtn), ScriptTransfer(addressFromStringValue(address), amountWhirlpool, whirlpool), ScriptTransfer(addressFromStringValue(address), amountWaves, unit), ScriptTransfer(addressFromStringValue(address), amountRome, rome), ScriptTransfer(addressFromStringValue(address), (amountSURFboard * d6), surf)]
345 -                 }
346 -             else throw("Strict value is not equal to itself.")
347 347          }
348 348  
349 349  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func tryGetInteger (address,key) = match getInteger(address, key) {
5 5      case b: Int => 
6 6          b
7 7      case _ => 
8 8          0
9 9  }
10 10  
11 11  
12 12  func tryGetString (address,key) = match getString(address, key) {
13 13      case b: String => 
14 14          b
15 15      case _ => 
16 16          ""
17 17  }
18 18  
19 19  
20 20  let d8 = 100000000
21 21  
22 22  let d6 = 1000000
23 23  
24 24  let poolBBB = base58'3P9VPwVfNj3dDevQZt1Z951A4K57cmQmCgk'
25 25  
26 26  let puzzleStaking = Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS')
27 27  
28 28  let bbbPoolId = base58'3P9VPwVfNj3dDevQZt1Z951A4K57cmQmCgk'
29 29  
30 30  let puzzleMarket = Address(base58'3P6fAxtw12pjFhayEfpcUWxgu2BHVCeP78A')
31 31  
32 32  let puzzleMinter = Address(base58'3PFQjjDMiZKQZdu5JqTHD7HwgSXyp9Rw9By')
33 33  
34 34  let burnxtn = base58'3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns'
35 35  
36 36  let whirlpool = base58'73tY3E6Gd5AWYmsuq8m8Kek7KnJNAYyS3GoveTbc6jCi'
37 37  
38 38  let puzzle = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
39 39  
40 40  let rome = base58'AP4Cb5xLYGH6ZigHreCZHoXpQTWDkPsG2BHqfDUx6taJ'
41 41  
42 42  let surf = base58'At8D6NFFpheCbvKVnjVoeLL84Eo8NZn6ovManxfLaFWL'
43 43  
44 44  let puzzleStaked = tryGetInteger(puzzleStaking, (toString(this) + "_staked"))
45 45  
46 46  let puzzleInPool = tryGetInteger(Address(bbbPoolId), (("global_" + toBase58String(puzzle)) + "_balance"))
47 47  
48 48  let projectStake = tryGetInteger(Address(bbbPoolId), (toString(this) + "_indexStaked"))
49 49  
50 50  let totalStake = tryGetInteger(Address(bbbPoolId), "global_poolToken_amount")
51 51  
52 52  let assetWeight = tryGetInteger(Address(bbbPoolId), (("static_" + toBase58String(puzzle)) + "_weight"))
53 53  
54 54  let BBBlpInPuzzle = fraction(((puzzleInPool / assetWeight) * 10000), projectStake, totalStake)
55 55  
56 56  let keyAddressesRegistered = "Addresses registered"
57 57  
58 58  let addresses = dropRight(tryGetString(this, keyAddressesRegistered), 1)
59 59  
60 60  let keyBurnxtnAmount = "BURN-XTN total rewards"
61 61  
62 62  let keyRomeAmount = "ROME total rewards"
63 63  
64 64  let keyPuzzleAmount = "PUZZLE total rewards"
65 65  
66 66  let keyWavesAmount = "WAVES total rewards"
67 67  
68 68  let keyWhirlpoolAmount = "WHIRLPOOL total rewards"
69 69  
70 70  let keyTotalNFTpower = "Total NFT power"
71 71  
72 72  let keyTotalPuzzleValue = "Total puzzle value"
73 73  
74 74  let keyTotalBurnxtnPaid = "Total BURN-XTN paid"
75 75  
76 76  let keyTotalWhirlpoolPaid = "Total WHIRLPOOL paid"
77 77  
78 78  let keyTotalRomePaid = "Total ROME paid"
79 79  
80 80  let keyTotalWavesPaid = "Total WAVES paid"
81 81  
82 82  let keyTotalPuzzlePaid = "Total PUZZLE paid"
83 83  
84 84  let WFSlist = ["Gnpy5nVajPP3XQQVxrHboMAsXtjnyWAxybMDdKrbr8sD", "BT9Q4mQdQQmei2r5YNMBMasZBQj7myNaiz6QHba5cPXS", "BMvkyFtPVmFatpFR9QVFKR5MYTcZVTY2VUwFZ25vrAAc", "77Rqu8TLjBdMtDuXd9o5fUSGo64zQe5FCcao5L8Ht9j8", tryGetString(this, "5"), tryGetString(this, "6"), tryGetString(this, "7"), tryGetString(this, "8"), tryGetString(this, "9"), tryGetString(this, "10")]
85 85  
86 86  let BBBlist = ["9pCxoGtD18GeH9gCemzqrjHMMjfyBQDfsrRAuxSRagMc", "7DgFgCkBjVDc5P9ZgwsVL9SiTi7kXJuS4aRVgb7ZHW3k", "76bTvE8ttHvsuN1FuH4Kc8QUW4kL4m8c1cjfsXy2GfbV", "4Zrf4H5tiFcQL8eQmnA2wJ1XWPEBH6h1G2MefZDYmcCB", "2DtC4nFnxz5UM6mbjPwMVZpQWZFUqxs52oZrBeNRk9Ao", "DjZGMAFfoQWkMW3S5FTsQN3joncZt6BsmhnEK3ggLxmN", "BneaZXD6ovDJcV5rgfr8hsHZaMQsJQ8DH6a5gTnGCpBc", "4EKfgzFkd5UGKrjnaJV3w7argW1YmF4hq54xWQFzAXb9", "8hGDkWKiu2igDpWT3Hpr4mchDD6xwJ9hGm2h2jnUvTqz", "E3ZnSejpXL1Xr6VG4QoLh8xod9NMgpPe473r9Qk2HibL"]
87 87  
88 88  let SURFboardList = ["DzLSgEaBB4UNbPCZekPSzbQ85KokMB7d1KRRmzUPu5hs", "WmWzsbb3PNvzJ4w4Fb73KcoNGLXumgYZagV22zEiX1w", "7RrxbgayUksPHrA799pKuCr61reT8nENdqCkgVHPgaN2", "FmDLfzspbVJeKhKduLDUba2HoVdRrKtswDKMU3e9qjtP", "HmQvVyQdEjafLrpKPSigdafvcYvLbNYGEgVCxLZRWt1y", "2rVxNMXuvug74TorLQZGC2ERHjAbJnVUgNXQ1kJmtnAe", "9yb9yGJm6gzVozBHuQVHBdAnzfct3N9bRpdjjNUnrzcC", "s1SfGVshf2jKCA9KvvKKvUuK8utp3Ne3ee8Lp6KKLRw", "3E3yb7TvDK762dn11dmRLwapghaefQUEyunVdXSNp4tB", "FH75TvApyVtfd9X5a1Ar19Ns9DNJvzpzLFE5pjh1wi4h", "EgqkbDyWRPgVNVqtEEtRSzWcGD33orVoE2bzYdAdieQS", "DsKyJpJCZcFv9jSnQbQVG4Jx3WSP1KtfHhAKTkSKrVBj", "AesPr5UFDgY5jZXYUZ8JkbYtJovVdDHby15SCksEhmJK", "AVsfdqw2m5aUNxa1HY9emLmCLBfVAGTxVu4ef3xEDKC8", "5jdvSSY2K7h8UiUCXUgK9T7zfMryqw2itKP8BysdXDDk", "A4voKZes8MVDAXyQjKkb6bdEcqMbvB4ptzbpqYqveG5n", "34oZKaWHpSJrZvGLdYu5WG8WWXg7rwF2HHx8K15GfUCQ", "77McCHkmNrRM4DjqkSM9B8YjuJcKtn67jQge1pzZrQ8T", "7NEFBnvGGMfYdBnhMLNpuVgS22LpcgXCZgHfm8DHmmiA", "GoF9yokxHgPNoxoWgjjdmGeWhcLYArSsxqffRtfYGtfs"]
89 89  
90 90  @Callable(i)
91 91  func invokeClI1 () = if ((i.caller != this))
92 92      then throw("access only by project owner")
93 93      else {
94 94          let cl = invoke(this, "claimInvestPuzzle", nil, nil)
95 95          if ((cl == cl))
96 96              then {
97 97                  let i1 = invoke(this, "invoker1", nil, nil)
98 98                  if ((i1 == i1))
99 99                      then nil
100 100                      else throw("Strict value is not equal to itself.")
101 101                  }
102 102              else throw("Strict value is not equal to itself.")
103 103          }
104 104  
105 105  
106 106  
107 107  @Callable(i)
108 108  func claimInvestPuzzle () = if ((i.caller != this))
109 109      then throw("access only by project owner")
110 110      else {
111 111          let romeBalanceBefore = assetBalance(this, rome)
112 112          if ((romeBalanceBefore == romeBalanceBefore))
113 113              then {
114 114                  let claimPuzzleStaking = invoke(puzzleStaking, "claimReward", nil, nil)
115 115                  if ((claimPuzzleStaking == claimPuzzleStaking))
116 116                      then {
117 117                          let poolOneTokenInv = invoke(Address(base58'3PR1Qvi9mHT35SwWEkLSqqE2L8thiPLdVWU'), "generateIndexWithOneTokenAndStake", [toBase58String(poolBBB)], [AttachedPayment(puzzle, assetBalance(this, puzzle))])
118 118                          if ((poolOneTokenInv == poolOneTokenInv))
119 119                              then {
120 120                                  let romeBalanceAfter = assetBalance(this, rome)
121 121  [IntegerEntry("Activated blockheight", height), IntegerEntry(keyBurnxtnAmount, assetBalance(this, burnxtn)), IntegerEntry(keyRomeAmount, (romeBalanceAfter - romeBalanceBefore)), IntegerEntry(keyWavesAmount, if (((wavesBalance(this).available - d8) > 0))
122 122                                      then (wavesBalance(this).available - d8)
123 123                                      else 0), IntegerEntry(keyWhirlpoolAmount, assetBalance(this, whirlpool))]
124 124                                  }
125 125                              else throw("Strict value is not equal to itself.")
126 126                          }
127 127                      else throw("Strict value is not equal to itself.")
128 128                  }
129 129              else throw("Strict value is not equal to itself.")
130 130          }
131 131  
132 132  
133 133  
134 134  @Callable(i)
135 135  func invoker1 () = {
136 136      let reset = invoke(this, "resetCount", nil, nil)
137 137      if ((reset == reset))
138 138          then {
139 139              let list = split_4C(addresses, ",")
140 140              func r (accum,address) =             invoke(this, "countNFTpower", [address], nil)
141 141  
142 142              let invoker = {
143 143                  let $l = list
144 144                  let $s = size($l)
145 145                  let $acc0 = nil
146 146                  func $f0_1 ($a,$i) =                 if (($i >= $s))
147 147                      then $a
148 148                      else r($a, $l[$i])
149 149  
150 150                  func $f0_2 ($a,$i) =                 if (($i >= $s))
151 151                      then $a
152 152                      else throw("List size exceeds 30")
153 153  
154 154                  $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($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)
155 155                  }
156 156              if ((invoker == invoker))
157 157                  then {
158 158                      let p = invoke(this, "data", nil, nil)
159 159                      if ((p == p))
160 160                          then [IntegerEntry("WFS puzzle value", fraction(fraction(tryGetInteger(this, keyTotalPuzzleValue), 1, tryGetInteger(this, keyTotalNFTpower)), 10, 9)), IntegerEntry("BBB puzzle value", fraction(fraction(tryGetInteger(this, keyTotalPuzzleValue), 10, tryGetInteger(this, keyTotalNFTpower)), 10, 9))]
161 161                          else throw("Strict value is not equal to itself.")
162 162                      }
163 163                  else throw("Strict value is not equal to itself.")
164 164              }
165 165          else throw("Strict value is not equal to itself.")
166 166      }
167 167  
168 168  
169 169  
170 170  @Callable(i)
171 171  func resetCount () = [IntegerEntry(keyTotalNFTpower, 0)]
172 172  
173 173  
174 174  
175 175  @Callable(i)
176 176  func countNFTpower (address) = {
177 177      func foldFunc (acc,WFS) =     ((acc + assetBalance(addressFromStringValue(address), fromBase58String(WFS))) + (if ((tryGetString(puzzleMarket, (("nft_" + WFS) + "_seller")) == address))
178 178          then 1
179 179          else (0 + (if ((tryGetString(puzzleMarket, "nft_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_seller") == address))
180 180              then tryGetInteger(puzzleMinter, "group_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_available")
181 181              else 0))))
182 182  
183 183      let shareWFS = {
184 184          let $l = WFSlist
185 185          let $s = size($l)
186 186          let $acc0 = 0
187 187          func $f0_1 ($a,$i) =         if (($i >= $s))
188 188              then $a
189 189              else foldFunc($a, $l[$i])
190 190  
191 191          func $f0_2 ($a,$i) =         if (($i >= $s))
192 192              then $a
193 193              else throw("List size exceeds 10")
194 194  
195 195          $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)
196 196          }
197 197      func foldFuncB (acc,BBB) =     ((acc + assetBalance(addressFromStringValue(address), fromBase58String(BBB))) + (if ((tryGetString(puzzleMarket, (("nft_" + BBB) + "_seller")) == address))
198 198          then 1
199 199          else 0))
200 200  
201 201      let shareBBB = {
202 202          let $l = BBBlist
203 203          let $s = size($l)
204 204          let $acc0 = 0
205 205          func $f1_1 ($a,$i) =         if (($i >= $s))
206 206              then $a
207 207              else foldFuncB($a, $l[$i])
208 208  
209 209          func $f1_2 ($a,$i) =         if (($i >= $s))
210 210              then $a
211 211              else throw("List size exceeds 10")
212 212  
213 213          $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
214 214          }
215 215      if (((shareWFS + shareBBB) == 0))
216 216          then {
217 217              let list = split_4C(addresses, ",")
218 218              let noNFTindex = value(indexOf(list, address))
219 219              let listMinusNoNFT = removeByIndex(list, noNFTindex)
220 220              let minusNoNFTstr = (makeString(listMinusNoNFT, ",") + ",")
221 221  [StringEntry(keyAddressesRegistered, minusNoNFTstr)]
222 222              }
223 223          else [IntegerEntry((address + "_WFS"), shareWFS), IntegerEntry((address + "_BBB"), (shareBBB * 10)), IntegerEntry(keyTotalNFTpower, (tryGetInteger(this, keyTotalNFTpower) + (shareWFS + (shareBBB * 10))))]
224 224      }
225 225  
226 226  
227 227  
228 228  @Callable(i)
229 229  func data () = [IntegerEntry("puzzle balance", assetBalance(this, puzzle)), IntegerEntry("puzzle staked", puzzleStaked), IntegerEntry("puzzle BBB LP", BBBlpInPuzzle), IntegerEntry(keyTotalPuzzleValue, ((assetBalance(this, puzzle) + puzzleStaked) + BBBlpInPuzzle))]
230 230  
231 231  
232 232  
233 233  @Callable(i)
234 234  func invoker2 () = if ((i.caller != this))
235 235      then throw("access only by project owner")
236 236      else {
237 237          let t = invoke(this, "trackTotalPaid", nil, nil)
238 238          if ((t == t))
239 239              then {
240 240                  let list = split_4C(addresses, ",")
241 241                  func r (accum,address) =                 invoke(this, "distributeRewards", [address], nil)
242 242  
243 243                  let invoker = {
244 244                      let $l = list
245 245                      let $s = size($l)
246 246                      let $acc0 = nil
247 247                      func $f0_1 ($a,$i) =                     if (($i >= $s))
248 248                          then $a
249 249                          else r($a, $l[$i])
250 250  
251 251                      func $f0_2 ($a,$i) =                     if (($i >= $s))
252 252                          then $a
253 253                          else throw("List size exceeds 20")
254 254  
255 255                      $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
256 256                      }
257 257                  if ((invoker == invoker))
258 -                     then nil
258 +                     then {
259 +                         let bs = invoke(this, "burnSurf", nil, nil)
260 +                         if ((bs == bs))
261 +                             then nil
262 +                             else throw("Strict value is not equal to itself.")
263 +                         }
259 264                      else throw("Strict value is not equal to itself.")
260 265                  }
261 266              else throw("Strict value is not equal to itself.")
262 267          }
263 268  
264 269  
265 270  
266 271  @Callable(i)
267 272  func trackTotalPaid () = {
268 273      let amountBurnxtn = tryGetInteger(this, keyBurnxtnAmount)
269 274      let amountWhirlpool = tryGetInteger(this, keyWhirlpoolAmount)
270 275      let amountWaves = tryGetInteger(this, keyWavesAmount)
271 276      let amountRome = tryGetInteger(this, keyRomeAmount)
272 277  [IntegerEntry(keyTotalBurnxtnPaid, (amountBurnxtn + tryGetInteger(this, keyTotalBurnxtnPaid))), IntegerEntry(keyTotalWhirlpoolPaid, (amountWhirlpool + tryGetInteger(this, keyTotalWhirlpoolPaid))), IntegerEntry(keyTotalWavesPaid, (amountWaves + tryGetInteger(this, keyTotalWavesPaid))), IntegerEntry(keyTotalRomePaid, (amountRome + tryGetInteger(this, keyTotalRomePaid)))]
273 278      }
274 279  
275 280  
276 281  
277 282  @Callable(i)
278 283  func distributeRewards (address) = if ((i.caller != this))
279 284      then throw("access only by project owner")
280 285      else {
281 286          func foldFunc (acc,WFS) =         ((acc + assetBalance(addressFromStringValue(address), fromBase58String(WFS))) + (if ((tryGetString(puzzleMarket, (("nft_" + WFS) + "_seller")) == address))
282 287              then 1
283 288              else (0 + (if ((tryGetString(puzzleMarket, "nft_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_seller") == address))
284 289                  then tryGetInteger(puzzleMinter, "group_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_available")
285 290                  else 0))))
286 291  
287 292          let shareWFS = {
288 293              let $l = WFSlist
289 294              let $s = size($l)
290 295              let $acc0 = 0
291 296              func $f0_1 ($a,$i) =             if (($i >= $s))
292 297                  then $a
293 298                  else foldFunc($a, $l[$i])
294 299  
295 300              func $f0_2 ($a,$i) =             if (($i >= $s))
296 301                  then $a
297 302                  else throw("List size exceeds 10")
298 303  
299 304              $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)
300 305              }
301 306          func foldFuncB (acc,BBB) =         ((acc + assetBalance(addressFromStringValue(address), fromBase58String(BBB))) + (if ((tryGetString(puzzleMarket, (("nft_" + BBB) + "_seller")) == address))
302 307              then 1
303 308              else 0))
304 309  
305 310          let shareBBB = {
306 311              let $l = BBBlist
307 312              let $s = size($l)
308 313              let $acc0 = 0
309 314              func $f1_1 ($a,$i) =             if (($i >= $s))
310 315                  then $a
311 316                  else foldFuncB($a, $l[$i])
312 317  
313 318              func $f1_2 ($a,$i) =             if (($i >= $s))
314 319                  then $a
315 320                  else throw("List size exceeds 10")
316 321  
317 322              $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
318 323              }
319 324          func foldFuncC (acc,SURFboard) =         ((acc + assetBalance(addressFromStringValue(address), fromBase58String(SURFboard))) + (if ((tryGetString(puzzleMarket, (("nft_" + SURFboard) + "_seller")) == address))
320 325              then 1
321 326              else 0))
322 327  
323 328          let amountSURFboard = {
324 329              let $l = SURFboardList
325 330              let $s = size($l)
326 331              let $acc0 = 0
327 332              func $f2_1 ($a,$i) =             if (($i >= $s))
328 333                  then $a
329 334                  else foldFuncC($a, $l[$i])
330 335  
331 336              func $f2_2 ($a,$i) =             if (($i >= $s))
332 337                  then $a
333 338                  else throw("List size exceeds 20")
334 339  
335 340              $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
336 341              }
337 -         let bs = invoke(this, "burnSurf", nil, nil)
338 -         if ((bs == bs))
339 -             then {
340 -                 let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
341 -                 let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
342 -                 let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
343 -                 let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
342 +         let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
343 +         let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
344 +         let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
345 +         let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
344 346  [ScriptTransfer(addressFromStringValue(address), amountBurnxtn, burnxtn), ScriptTransfer(addressFromStringValue(address), amountWhirlpool, whirlpool), ScriptTransfer(addressFromStringValue(address), amountWaves, unit), ScriptTransfer(addressFromStringValue(address), amountRome, rome), ScriptTransfer(addressFromStringValue(address), (amountSURFboard * d6), surf)]
345 -                 }
346 -             else throw("Strict value is not equal to itself.")
347 347          }
348 348  
349 349  
350 350  
351 351  @Callable(i)
352 352  func burnSurf () = [Burn(surf, d6), IntegerEntry("SURF total burned", (tryGetInteger(this, "SURF total burned") + d6))]
353 353  
354 354  
355 355  
356 356  @Callable(i)
357 357  func register () = if (contains(tryGetString(this, keyAddressesRegistered), toString(i.caller)))
358 358      then throw("already registered")
359 359      else if ((size(split_4C(addresses, ",")) == 30))
360 360          then throw("max reached")
361 361          else [StringEntry(keyAddressesRegistered, ((tryGetString(this, keyAddressesRegistered) + toString(i.caller)) + ","))]
362 362  
363 363  
364 364  
365 365  @Callable(i)
366 366  func registerManually (address) = if (contains(tryGetString(this, keyAddressesRegistered), address))
367 367      then throw("already registered")
368 368      else if ((size(split_4C(addresses, ",")) == 40))
369 369          then throw("max reached")
370 370          else if ((i.caller != this))
371 371              then throw("access only by project owner")
372 372              else [StringEntry(keyAddressesRegistered, ((tryGetString(this, keyAddressesRegistered) + address) + ","))]
373 373  
374 374  
375 375  
376 376  @Callable(i)
377 377  func claimByAnybody () = if (((getIntegerValue(this, "Activated blockheight") + (30 * 1440)) > height))
378 378      then throw(("Wait till blockheight:" + toString((getIntegerValue(this, "Activated blockheight") + (30 * 1440)))))
379 379      else {
380 380          let puzzleBalanceBefore = assetBalance(this, puzzle)
381 381          if ((puzzleBalanceBefore == puzzleBalanceBefore))
382 382              then {
383 383                  let romeBalanceBefore = assetBalance(this, rome)
384 384                  if ((romeBalanceBefore == romeBalanceBefore))
385 385                      then {
386 386                          let claimPuzzleStaking = invoke(puzzleStaking, "claimReward", nil, nil)
387 387                          if ((claimPuzzleStaking == claimPuzzleStaking))
388 388                              then {
389 389                                  let claimInv = invoke(Address(poolBBB), "claimIndexRewards", nil, nil)
390 390                                  if ((claimInv == claimInv))
391 391                                      then {
392 392                                          let puzzleBalanceAfter = assetBalance(this, puzzle)
393 393                                          let romeBalanceAfter = assetBalance(this, rome)
394 394  [IntegerEntry(keyBurnxtnAmount, assetBalance(this, burnxtn)), IntegerEntry(keyRomeAmount, (romeBalanceAfter - romeBalanceBefore)), IntegerEntry(keyPuzzleAmount, (puzzleBalanceAfter - puzzleBalanceBefore)), IntegerEntry(keyWavesAmount, if (((wavesBalance(this).available - d8) > 0))
395 395                                              then (wavesBalance(this).available - d8)
396 396                                              else 0), IntegerEntry(keyWhirlpoolAmount, assetBalance(this, whirlpool))]
397 397                                          }
398 398                                      else throw("Strict value is not equal to itself.")
399 399                                  }
400 400                              else throw("Strict value is not equal to itself.")
401 401                          }
402 402                      else throw("Strict value is not equal to itself.")
403 403                  }
404 404              else throw("Strict value is not equal to itself.")
405 405          }
406 406  
407 407  
408 408  
409 409  @Callable(i)
410 410  func invokerByAnybody () = if (((getIntegerValue(this, "Activated blockheight") + (30 * 1440)) > height))
411 411      then throw(("Wait till blockheight:" + toString((getIntegerValue(this, "Activated blockheight") + (30 * 1440)))))
412 412      else {
413 413          let reset = invoke(this, "distributeRewardsByAnybody", nil, nil)
414 414          if ((reset == reset))
415 415              then {
416 416                  let list = split_4C(addresses, ",")
417 417                  func r (accum,address) =                 invoke(this, "countNFTpower", [address], nil)
418 418  
419 419                  let invoker = {
420 420                      let $l = list
421 421                      let $s = size($l)
422 422                      let $acc0 = nil
423 423                      func $f0_1 ($a,$i) =                     if (($i >= $s))
424 424                          then $a
425 425                          else r($a, $l[$i])
426 426  
427 427                      func $f0_2 ($a,$i) =                     if (($i >= $s))
428 428                          then $a
429 429                          else throw("List size exceeds 40")
430 430  
431 431                      $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($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)
432 432                      }
433 433                  if ((invoker == invoker))
434 434                      then nil
435 435                      else throw("Strict value is not equal to itself.")
436 436                  }
437 437              else throw("Strict value is not equal to itself.")
438 438          }
439 439  
440 440  
441 441  
442 442  @Callable(i)
443 443  func distributeRewardsByAnybody (address) = if ((i.caller != this))
444 444      then throw("access only by project owner")
445 445      else {
446 446          func foldFunc (acc,WFS) =         ((acc + assetBalance(addressFromStringValue(address), fromBase58String(WFS))) + (if ((tryGetString(puzzleMarket, (("nft_" + WFS) + "_seller")) == address))
447 447              then 1
448 448              else (0 + (if ((tryGetString(puzzleMarket, "nft_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_seller") == address))
449 449                  then tryGetInteger(puzzleMinter, "group_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_available")
450 450                  else 0))))
451 451  
452 452          let shareWFS = {
453 453              let $l = WFSlist
454 454              let $s = size($l)
455 455              let $acc0 = 0
456 456              func $f0_1 ($a,$i) =             if (($i >= $s))
457 457                  then $a
458 458                  else foldFunc($a, $l[$i])
459 459  
460 460              func $f0_2 ($a,$i) =             if (($i >= $s))
461 461                  then $a
462 462                  else throw("List size exceeds 10")
463 463  
464 464              $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)
465 465              }
466 466          func foldFuncB (acc,BBB) =         ((acc + assetBalance(addressFromStringValue(address), fromBase58String(BBB))) + (if ((tryGetString(puzzleMarket, (("nft_" + BBB) + "_seller")) == address))
467 467              then 1
468 468              else 0))
469 469  
470 470          let shareBBB = {
471 471              let $l = BBBlist
472 472              let $s = size($l)
473 473              let $acc0 = 0
474 474              func $f1_1 ($a,$i) =             if (($i >= $s))
475 475                  then $a
476 476                  else foldFuncB($a, $l[$i])
477 477  
478 478              func $f1_2 ($a,$i) =             if (($i >= $s))
479 479                  then $a
480 480                  else throw("List size exceeds 10")
481 481  
482 482              $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
483 483              }
484 484          if (((shareWFS + shareBBB) == 0))
485 485              then {
486 486                  let list = split_4C(addresses, ",")
487 487                  let noNFTindex = value(indexOf(list, address))
488 488                  let listMinusNoNFT = removeByIndex(list, noNFTindex)
489 489                  let minusNoNFTstr = (makeString(listMinusNoNFT, ",") + ",")
490 490  [StringEntry(keyAddressesRegistered, minusNoNFTstr)]
491 491                  }
492 492              else {
493 493                  let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
494 494                  let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
495 495                  let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
496 496                  let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
497 497                  let amountPuzzle = fraction(tryGetInteger(this, keyPuzzleAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
498 498  [ScriptTransfer(addressFromStringValue(address), amountBurnxtn, burnxtn), IntegerEntry(keyTotalBurnxtnPaid, (amountBurnxtn + tryGetInteger(this, keyTotalBurnxtnPaid))), ScriptTransfer(addressFromStringValue(address), amountWhirlpool, whirlpool), IntegerEntry(keyTotalWhirlpoolPaid, (amountWhirlpool + tryGetInteger(this, keyTotalWhirlpoolPaid))), ScriptTransfer(addressFromStringValue(address), amountWaves, unit), IntegerEntry(keyTotalWavesPaid, (amountWaves + tryGetInteger(this, keyTotalWavesPaid))), ScriptTransfer(addressFromStringValue(address), amountRome, rome), IntegerEntry(keyTotalRomePaid, (amountRome + tryGetInteger(this, keyTotalRomePaid))), ScriptTransfer(addressFromStringValue(address), amountPuzzle, puzzle), IntegerEntry(keyTotalPuzzlePaid, (amountPuzzle + tryGetInteger(this, keyTotalPuzzlePaid)))]
499 499                  }
500 500          }
501 501  
502 502  
503 503  
504 504  @Callable(i)
505 505  func deleteEntry () = if ((i.caller != this))
506 506      then throw("access only by project owner")
507 507      else [DeleteEntry(keyAddressesRegistered)]
508 508  
509 509  
510 510  
511 511  @Callable(i)
512 512  func addWFSid (WFSnumber,WFSassetId) = if ((i.caller != this))
513 513      then throw("access only by project owner")
514 514      else [StringEntry((WFSnumber + ""), WFSassetId)]
515 515  
516 516  
517 517  
518 518  @Callable(i)
519 519  func changeIntegerEntry (keyString,integer) = if ((i.caller != this))
520 520      then throw("access only by project owner")
521 521      else [IntegerEntry(keyString, integer)]
522 522  
523 523

Old	New		Differences
255	255		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
256	256		}
257	257		if ((invoker == invoker))
258		-	then nil
	258	+	then {
	259	+	let bs = invoke(this, "burnSurf", nil, nil)
	260	+	if ((bs == bs))
	261	+	then nil
	262	+	else throw("Strict value is not equal to itself.")
	263	+	}
259	264		else throw("Strict value is not equal to itself.")
260	265		}
261	266		else throw("Strict value is not equal to itself.")

334	339
335	340		$f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
336	341		}
337		-	let bs = invoke(this, "burnSurf", nil, nil)
338		-	if ((bs == bs))
339		-	then {
340		-	let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
341		-	let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
342		-	let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
343		-	let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	342	+	let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	343	+	let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	344	+	let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	345	+	let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
344	346		[ScriptTransfer(addressFromStringValue(address), amountBurnxtn, burnxtn), ScriptTransfer(addressFromStringValue(address), amountWhirlpool, whirlpool), ScriptTransfer(addressFromStringValue(address), amountWaves, unit), ScriptTransfer(addressFromStringValue(address), amountRome, rome), ScriptTransfer(addressFromStringValue(address), (amountSURFboard * d6), surf)]
345		-	}
346		-	else throw("Strict value is not equal to itself.")
347	347		}
348	348
349	349

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func tryGetInteger (address,key) = match getInteger(address, key) {
5	5		case b: Int =>
6	6		b
7	7		case _ =>
8	8		0
9	9		}
10	10
11	11
12	12		func tryGetString (address,key) = match getString(address, key) {
13	13		case b: String =>
14	14		b
15	15		case _ =>
16	16		""
17	17		}
18	18
19	19
20	20		let d8 = 100000000
21	21
22	22		let d6 = 1000000
23	23
24	24		let poolBBB = base58'3P9VPwVfNj3dDevQZt1Z951A4K57cmQmCgk'
25	25
26	26		let puzzleStaking = Address(base58'3PFTbywqxtFfukX3HyT881g4iW5K4QL3FAS')
27	27
28	28		let bbbPoolId = base58'3P9VPwVfNj3dDevQZt1Z951A4K57cmQmCgk'
29	29
30	30		let puzzleMarket = Address(base58'3P6fAxtw12pjFhayEfpcUWxgu2BHVCeP78A')
31	31
32	32		let puzzleMinter = Address(base58'3PFQjjDMiZKQZdu5JqTHD7HwgSXyp9Rw9By')
33	33
34	34		let burnxtn = base58'3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns'
35	35
36	36		let whirlpool = base58'73tY3E6Gd5AWYmsuq8m8Kek7KnJNAYyS3GoveTbc6jCi'
37	37
38	38		let puzzle = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
39	39
40	40		let rome = base58'AP4Cb5xLYGH6ZigHreCZHoXpQTWDkPsG2BHqfDUx6taJ'
41	41
42	42		let surf = base58'At8D6NFFpheCbvKVnjVoeLL84Eo8NZn6ovManxfLaFWL'
43	43
44	44		let puzzleStaked = tryGetInteger(puzzleStaking, (toString(this) + "_staked"))
45	45
46	46		let puzzleInPool = tryGetInteger(Address(bbbPoolId), (("global_" + toBase58String(puzzle)) + "_balance"))
47	47
48	48		let projectStake = tryGetInteger(Address(bbbPoolId), (toString(this) + "_indexStaked"))
49	49
50	50		let totalStake = tryGetInteger(Address(bbbPoolId), "global_poolToken_amount")
51	51
52	52		let assetWeight = tryGetInteger(Address(bbbPoolId), (("static_" + toBase58String(puzzle)) + "_weight"))
53	53
54	54		let BBBlpInPuzzle = fraction(((puzzleInPool / assetWeight) * 10000), projectStake, totalStake)
55	55
56	56		let keyAddressesRegistered = "Addresses registered"
57	57
58	58		let addresses = dropRight(tryGetString(this, keyAddressesRegistered), 1)
59	59
60	60		let keyBurnxtnAmount = "BURN-XTN total rewards"
61	61
62	62		let keyRomeAmount = "ROME total rewards"
63	63
64	64		let keyPuzzleAmount = "PUZZLE total rewards"
65	65
66	66		let keyWavesAmount = "WAVES total rewards"
67	67
68	68		let keyWhirlpoolAmount = "WHIRLPOOL total rewards"
69	69
70	70		let keyTotalNFTpower = "Total NFT power"
71	71
72	72		let keyTotalPuzzleValue = "Total puzzle value"
73	73
74	74		let keyTotalBurnxtnPaid = "Total BURN-XTN paid"
75	75
76	76		let keyTotalWhirlpoolPaid = "Total WHIRLPOOL paid"
77	77
78	78		let keyTotalRomePaid = "Total ROME paid"
79	79
80	80		let keyTotalWavesPaid = "Total WAVES paid"
81	81
82	82		let keyTotalPuzzlePaid = "Total PUZZLE paid"
83	83
84	84		let WFSlist = ["Gnpy5nVajPP3XQQVxrHboMAsXtjnyWAxybMDdKrbr8sD", "BT9Q4mQdQQmei2r5YNMBMasZBQj7myNaiz6QHba5cPXS", "BMvkyFtPVmFatpFR9QVFKR5MYTcZVTY2VUwFZ25vrAAc", "77Rqu8TLjBdMtDuXd9o5fUSGo64zQe5FCcao5L8Ht9j8", tryGetString(this, "5"), tryGetString(this, "6"), tryGetString(this, "7"), tryGetString(this, "8"), tryGetString(this, "9"), tryGetString(this, "10")]
85	85
86	86		let BBBlist = ["9pCxoGtD18GeH9gCemzqrjHMMjfyBQDfsrRAuxSRagMc", "7DgFgCkBjVDc5P9ZgwsVL9SiTi7kXJuS4aRVgb7ZHW3k", "76bTvE8ttHvsuN1FuH4Kc8QUW4kL4m8c1cjfsXy2GfbV", "4Zrf4H5tiFcQL8eQmnA2wJ1XWPEBH6h1G2MefZDYmcCB", "2DtC4nFnxz5UM6mbjPwMVZpQWZFUqxs52oZrBeNRk9Ao", "DjZGMAFfoQWkMW3S5FTsQN3joncZt6BsmhnEK3ggLxmN", "BneaZXD6ovDJcV5rgfr8hsHZaMQsJQ8DH6a5gTnGCpBc", "4EKfgzFkd5UGKrjnaJV3w7argW1YmF4hq54xWQFzAXb9", "8hGDkWKiu2igDpWT3Hpr4mchDD6xwJ9hGm2h2jnUvTqz", "E3ZnSejpXL1Xr6VG4QoLh8xod9NMgpPe473r9Qk2HibL"]
87	87
88	88		let SURFboardList = ["DzLSgEaBB4UNbPCZekPSzbQ85KokMB7d1KRRmzUPu5hs", "WmWzsbb3PNvzJ4w4Fb73KcoNGLXumgYZagV22zEiX1w", "7RrxbgayUksPHrA799pKuCr61reT8nENdqCkgVHPgaN2", "FmDLfzspbVJeKhKduLDUba2HoVdRrKtswDKMU3e9qjtP", "HmQvVyQdEjafLrpKPSigdafvcYvLbNYGEgVCxLZRWt1y", "2rVxNMXuvug74TorLQZGC2ERHjAbJnVUgNXQ1kJmtnAe", "9yb9yGJm6gzVozBHuQVHBdAnzfct3N9bRpdjjNUnrzcC", "s1SfGVshf2jKCA9KvvKKvUuK8utp3Ne3ee8Lp6KKLRw", "3E3yb7TvDK762dn11dmRLwapghaefQUEyunVdXSNp4tB", "FH75TvApyVtfd9X5a1Ar19Ns9DNJvzpzLFE5pjh1wi4h", "EgqkbDyWRPgVNVqtEEtRSzWcGD33orVoE2bzYdAdieQS", "DsKyJpJCZcFv9jSnQbQVG4Jx3WSP1KtfHhAKTkSKrVBj", "AesPr5UFDgY5jZXYUZ8JkbYtJovVdDHby15SCksEhmJK", "AVsfdqw2m5aUNxa1HY9emLmCLBfVAGTxVu4ef3xEDKC8", "5jdvSSY2K7h8UiUCXUgK9T7zfMryqw2itKP8BysdXDDk", "A4voKZes8MVDAXyQjKkb6bdEcqMbvB4ptzbpqYqveG5n", "34oZKaWHpSJrZvGLdYu5WG8WWXg7rwF2HHx8K15GfUCQ", "77McCHkmNrRM4DjqkSM9B8YjuJcKtn67jQge1pzZrQ8T", "7NEFBnvGGMfYdBnhMLNpuVgS22LpcgXCZgHfm8DHmmiA", "GoF9yokxHgPNoxoWgjjdmGeWhcLYArSsxqffRtfYGtfs"]
89	89
90	90		@Callable(i)
91	91		func invokeClI1 () = if ((i.caller != this))
92	92		then throw("access only by project owner")
93	93		else {
94	94		let cl = invoke(this, "claimInvestPuzzle", nil, nil)
95	95		if ((cl == cl))
96	96		then {
97	97		let i1 = invoke(this, "invoker1", nil, nil)
98	98		if ((i1 == i1))
99	99		then nil
100	100		else throw("Strict value is not equal to itself.")
101	101		}
102	102		else throw("Strict value is not equal to itself.")
103	103		}
104	104
105	105
106	106
107	107		@Callable(i)
108	108		func claimInvestPuzzle () = if ((i.caller != this))
109	109		then throw("access only by project owner")
110	110		else {
111	111		let romeBalanceBefore = assetBalance(this, rome)
112	112		if ((romeBalanceBefore == romeBalanceBefore))
113	113		then {
114	114		let claimPuzzleStaking = invoke(puzzleStaking, "claimReward", nil, nil)
115	115		if ((claimPuzzleStaking == claimPuzzleStaking))
116	116		then {
117	117		let poolOneTokenInv = invoke(Address(base58'3PR1Qvi9mHT35SwWEkLSqqE2L8thiPLdVWU'), "generateIndexWithOneTokenAndStake", [toBase58String(poolBBB)], [AttachedPayment(puzzle, assetBalance(this, puzzle))])
118	118		if ((poolOneTokenInv == poolOneTokenInv))
119	119		then {
120	120		let romeBalanceAfter = assetBalance(this, rome)
121	121		[IntegerEntry("Activated blockheight", height), IntegerEntry(keyBurnxtnAmount, assetBalance(this, burnxtn)), IntegerEntry(keyRomeAmount, (romeBalanceAfter - romeBalanceBefore)), IntegerEntry(keyWavesAmount, if (((wavesBalance(this).available - d8) > 0))
122	122		then (wavesBalance(this).available - d8)
123	123		else 0), IntegerEntry(keyWhirlpoolAmount, assetBalance(this, whirlpool))]
124	124		}
125	125		else throw("Strict value is not equal to itself.")
126	126		}
127	127		else throw("Strict value is not equal to itself.")
128	128		}
129	129		else throw("Strict value is not equal to itself.")
130	130		}
131	131
132	132
133	133
134	134		@Callable(i)
135	135		func invoker1 () = {
136	136		let reset = invoke(this, "resetCount", nil, nil)
137	137		if ((reset == reset))
138	138		then {
139	139		let list = split_4C(addresses, ",")
140	140		func r (accum,address) = invoke(this, "countNFTpower", [address], nil)
141	141
142	142		let invoker = {
143	143		let $l = list
144	144		let $s = size($l)
145	145		let $acc0 = nil
146	146		func $f0_1 ($a,$i) = if (($i >= $s))
147	147		then $a
148	148		else r($a, $l[$i])
149	149
150	150		func $f0_2 ($a,$i) = if (($i >= $s))
151	151		then $a
152	152		else throw("List size exceeds 30")
153	153
154	154		$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($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)
155	155		}
156	156		if ((invoker == invoker))
157	157		then {
158	158		let p = invoke(this, "data", nil, nil)
159	159		if ((p == p))
160	160		then [IntegerEntry("WFS puzzle value", fraction(fraction(tryGetInteger(this, keyTotalPuzzleValue), 1, tryGetInteger(this, keyTotalNFTpower)), 10, 9)), IntegerEntry("BBB puzzle value", fraction(fraction(tryGetInteger(this, keyTotalPuzzleValue), 10, tryGetInteger(this, keyTotalNFTpower)), 10, 9))]
161	161		else throw("Strict value is not equal to itself.")
162	162		}
163	163		else throw("Strict value is not equal to itself.")
164	164		}
165	165		else throw("Strict value is not equal to itself.")
166	166		}
167	167
168	168
169	169
170	170		@Callable(i)
171	171		func resetCount () = [IntegerEntry(keyTotalNFTpower, 0)]
172	172
173	173
174	174
175	175		@Callable(i)
176	176		func countNFTpower (address) = {
177	177		func foldFunc (acc,WFS) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(WFS))) + (if ((tryGetString(puzzleMarket, (("nft_" + WFS) + "_seller")) == address))
178	178		then 1
179	179		else (0 + (if ((tryGetString(puzzleMarket, "nft_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_seller") == address))
180	180		then tryGetInteger(puzzleMinter, "group_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_available")
181	181		else 0))))
182	182
183	183		let shareWFS = {
184	184		let $l = WFSlist
185	185		let $s = size($l)
186	186		let $acc0 = 0
187	187		func $f0_1 ($a,$i) = if (($i >= $s))
188	188		then $a
189	189		else foldFunc($a, $l[$i])
190	190
191	191		func $f0_2 ($a,$i) = if (($i >= $s))
192	192		then $a
193	193		else throw("List size exceeds 10")
194	194
195	195		$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)
196	196		}
197	197		func foldFuncB (acc,BBB) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(BBB))) + (if ((tryGetString(puzzleMarket, (("nft_" + BBB) + "_seller")) == address))
198	198		then 1
199	199		else 0))
200	200
201	201		let shareBBB = {
202	202		let $l = BBBlist
203	203		let $s = size($l)
204	204		let $acc0 = 0
205	205		func $f1_1 ($a,$i) = if (($i >= $s))
206	206		then $a
207	207		else foldFuncB($a, $l[$i])
208	208
209	209		func $f1_2 ($a,$i) = if (($i >= $s))
210	210		then $a
211	211		else throw("List size exceeds 10")
212	212
213	213		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
214	214		}
215	215		if (((shareWFS + shareBBB) == 0))
216	216		then {
217	217		let list = split_4C(addresses, ",")
218	218		let noNFTindex = value(indexOf(list, address))
219	219		let listMinusNoNFT = removeByIndex(list, noNFTindex)
220	220		let minusNoNFTstr = (makeString(listMinusNoNFT, ",") + ",")
221	221		[StringEntry(keyAddressesRegistered, minusNoNFTstr)]
222	222		}
223	223		else [IntegerEntry((address + "_WFS"), shareWFS), IntegerEntry((address + "_BBB"), (shareBBB * 10)), IntegerEntry(keyTotalNFTpower, (tryGetInteger(this, keyTotalNFTpower) + (shareWFS + (shareBBB * 10))))]
224	224		}
225	225
226	226
227	227
228	228		@Callable(i)
229	229		func data () = [IntegerEntry("puzzle balance", assetBalance(this, puzzle)), IntegerEntry("puzzle staked", puzzleStaked), IntegerEntry("puzzle BBB LP", BBBlpInPuzzle), IntegerEntry(keyTotalPuzzleValue, ((assetBalance(this, puzzle) + puzzleStaked) + BBBlpInPuzzle))]
230	230
231	231
232	232
233	233		@Callable(i)
234	234		func invoker2 () = if ((i.caller != this))
235	235		then throw("access only by project owner")
236	236		else {
237	237		let t = invoke(this, "trackTotalPaid", nil, nil)
238	238		if ((t == t))
239	239		then {
240	240		let list = split_4C(addresses, ",")
241	241		func r (accum,address) = invoke(this, "distributeRewards", [address], nil)
242	242
243	243		let invoker = {
244	244		let $l = list
245	245		let $s = size($l)
246	246		let $acc0 = nil
247	247		func $f0_1 ($a,$i) = if (($i >= $s))
248	248		then $a
249	249		else r($a, $l[$i])
250	250
251	251		func $f0_2 ($a,$i) = if (($i >= $s))
252	252		then $a
253	253		else throw("List size exceeds 20")
254	254
255	255		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
256	256		}
257	257		if ((invoker == invoker))
258		-	then nil
	258	+	then {
	259	+	let bs = invoke(this, "burnSurf", nil, nil)
	260	+	if ((bs == bs))
	261	+	then nil
	262	+	else throw("Strict value is not equal to itself.")
	263	+	}
259	264		else throw("Strict value is not equal to itself.")
260	265		}
261	266		else throw("Strict value is not equal to itself.")
262	267		}
263	268
264	269
265	270
266	271		@Callable(i)
267	272		func trackTotalPaid () = {
268	273		let amountBurnxtn = tryGetInteger(this, keyBurnxtnAmount)
269	274		let amountWhirlpool = tryGetInteger(this, keyWhirlpoolAmount)
270	275		let amountWaves = tryGetInteger(this, keyWavesAmount)
271	276		let amountRome = tryGetInteger(this, keyRomeAmount)
272	277		[IntegerEntry(keyTotalBurnxtnPaid, (amountBurnxtn + tryGetInteger(this, keyTotalBurnxtnPaid))), IntegerEntry(keyTotalWhirlpoolPaid, (amountWhirlpool + tryGetInteger(this, keyTotalWhirlpoolPaid))), IntegerEntry(keyTotalWavesPaid, (amountWaves + tryGetInteger(this, keyTotalWavesPaid))), IntegerEntry(keyTotalRomePaid, (amountRome + tryGetInteger(this, keyTotalRomePaid)))]
273	278		}
274	279
275	280
276	281
277	282		@Callable(i)
278	283		func distributeRewards (address) = if ((i.caller != this))
279	284		then throw("access only by project owner")
280	285		else {
281	286		func foldFunc (acc,WFS) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(WFS))) + (if ((tryGetString(puzzleMarket, (("nft_" + WFS) + "_seller")) == address))
282	287		then 1
283	288		else (0 + (if ((tryGetString(puzzleMarket, "nft_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_seller") == address))
284	289		then tryGetInteger(puzzleMinter, "group_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_available")
285	290		else 0))))
286	291
287	292		let shareWFS = {
288	293		let $l = WFSlist
289	294		let $s = size($l)
290	295		let $acc0 = 0
291	296		func $f0_1 ($a,$i) = if (($i >= $s))
292	297		then $a
293	298		else foldFunc($a, $l[$i])
294	299
295	300		func $f0_2 ($a,$i) = if (($i >= $s))
296	301		then $a
297	302		else throw("List size exceeds 10")
298	303
299	304		$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)
300	305		}
301	306		func foldFuncB (acc,BBB) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(BBB))) + (if ((tryGetString(puzzleMarket, (("nft_" + BBB) + "_seller")) == address))
302	307		then 1
303	308		else 0))
304	309
305	310		let shareBBB = {
306	311		let $l = BBBlist
307	312		let $s = size($l)
308	313		let $acc0 = 0
309	314		func $f1_1 ($a,$i) = if (($i >= $s))
310	315		then $a
311	316		else foldFuncB($a, $l[$i])
312	317
313	318		func $f1_2 ($a,$i) = if (($i >= $s))
314	319		then $a
315	320		else throw("List size exceeds 10")
316	321
317	322		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
318	323		}
319	324		func foldFuncC (acc,SURFboard) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(SURFboard))) + (if ((tryGetString(puzzleMarket, (("nft_" + SURFboard) + "_seller")) == address))
320	325		then 1
321	326		else 0))
322	327
323	328		let amountSURFboard = {
324	329		let $l = SURFboardList
325	330		let $s = size($l)
326	331		let $acc0 = 0
327	332		func $f2_1 ($a,$i) = if (($i >= $s))
328	333		then $a
329	334		else foldFuncC($a, $l[$i])
330	335
331	336		func $f2_2 ($a,$i) = if (($i >= $s))
332	337		then $a
333	338		else throw("List size exceeds 20")
334	339
335	340		$f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
336	341		}
337		-	let bs = invoke(this, "burnSurf", nil, nil)
338		-	if ((bs == bs))
339		-	then {
340		-	let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
341		-	let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
342		-	let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
343		-	let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	342	+	let amountBurnxtn = fraction(tryGetInteger(this, keyBurnxtnAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	343	+	let amountWhirlpool = fraction(tryGetInteger(this, keyWhirlpoolAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	344	+	let amountWaves = fraction(tryGetInteger(this, keyWavesAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
	345	+	let amountRome = fraction(tryGetInteger(this, keyRomeAmount), (shareWFS + (shareBBB * 10)), tryGetInteger(this, keyTotalNFTpower))
344	346		[ScriptTransfer(addressFromStringValue(address), amountBurnxtn, burnxtn), ScriptTransfer(addressFromStringValue(address), amountWhirlpool, whirlpool), ScriptTransfer(addressFromStringValue(address), amountWaves, unit), ScriptTransfer(addressFromStringValue(address), amountRome, rome), ScriptTransfer(addressFromStringValue(address), (amountSURFboard * d6), surf)]
345		-	}
346		-	else throw("Strict value is not equal to itself.")
347	347		}
348	348
349	349
350	350
351	351		@Callable(i)
352	352		func burnSurf () = [Burn(surf, d6), IntegerEntry("SURF total burned", (tryGetInteger(this, "SURF total burned") + d6))]
353	353
354	354
355	355
356	356		@Callable(i)
357	357		func register () = if (contains(tryGetString(this, keyAddressesRegistered), toString(i.caller)))
358	358		then throw("already registered")
359	359		else if ((size(split_4C(addresses, ",")) == 30))
360	360		then throw("max reached")
361	361		else [StringEntry(keyAddressesRegistered, ((tryGetString(this, keyAddressesRegistered) + toString(i.caller)) + ","))]
362	362
363	363
364	364
365	365		@Callable(i)
366	366		func registerManually (address) = if (contains(tryGetString(this, keyAddressesRegistered), address))
367	367		then throw("already registered")
368	368		else if ((size(split_4C(addresses, ",")) == 40))
369	369		then throw("max reached")
370	370		else if ((i.caller != this))
371	371		then throw("access only by project owner")
372	372		else [StringEntry(keyAddressesRegistered, ((tryGetString(this, keyAddressesRegistered) + address) + ","))]
373	373
374	374
375	375
376	376		@Callable(i)
377	377		func claimByAnybody () = if (((getIntegerValue(this, "Activated blockheight") + (30 * 1440)) > height))
378	378		then throw(("Wait till blockheight:" + toString((getIntegerValue(this, "Activated blockheight") + (30 * 1440)))))
379	379		else {
380	380		let puzzleBalanceBefore = assetBalance(this, puzzle)
381	381		if ((puzzleBalanceBefore == puzzleBalanceBefore))
382	382		then {
383	383		let romeBalanceBefore = assetBalance(this, rome)
384	384		if ((romeBalanceBefore == romeBalanceBefore))
385	385		then {
386	386		let claimPuzzleStaking = invoke(puzzleStaking, "claimReward", nil, nil)
387	387		if ((claimPuzzleStaking == claimPuzzleStaking))
388	388		then {
389	389		let claimInv = invoke(Address(poolBBB), "claimIndexRewards", nil, nil)
390	390		if ((claimInv == claimInv))
391	391		then {
392	392		let puzzleBalanceAfter = assetBalance(this, puzzle)
393	393		let romeBalanceAfter = assetBalance(this, rome)
394	394		[IntegerEntry(keyBurnxtnAmount, assetBalance(this, burnxtn)), IntegerEntry(keyRomeAmount, (romeBalanceAfter - romeBalanceBefore)), IntegerEntry(keyPuzzleAmount, (puzzleBalanceAfter - puzzleBalanceBefore)), IntegerEntry(keyWavesAmount, if (((wavesBalance(this).available - d8) > 0))
395	395		then (wavesBalance(this).available - d8)
396	396		else 0), IntegerEntry(keyWhirlpoolAmount, assetBalance(this, whirlpool))]
397	397		}
398	398		else throw("Strict value is not equal to itself.")
399	399		}
400	400		else throw("Strict value is not equal to itself.")
401	401		}
402	402		else throw("Strict value is not equal to itself.")
403	403		}
404	404		else throw("Strict value is not equal to itself.")
405	405		}
406	406
407	407
408	408
409	409		@Callable(i)
410	410		func invokerByAnybody () = if (((getIntegerValue(this, "Activated blockheight") + (30 * 1440)) > height))
411	411		then throw(("Wait till blockheight:" + toString((getIntegerValue(this, "Activated blockheight") + (30 * 1440)))))
412	412		else {
413	413		let reset = invoke(this, "distributeRewardsByAnybody", nil, nil)
414	414		if ((reset == reset))
415	415		then {
416	416		let list = split_4C(addresses, ",")
417	417		func r (accum,address) = invoke(this, "countNFTpower", [address], nil)
418	418
419	419		let invoker = {
420	420		let $l = list
421	421		let $s = size($l)
422	422		let $acc0 = nil
423	423		func $f0_1 ($a,$i) = if (($i >= $s))
424	424		then $a
425	425		else r($a, $l[$i])
426	426
427	427		func $f0_2 ($a,$i) = if (($i >= $s))
428	428		then $a
429	429		else throw("List size exceeds 40")
430	430
431	431		$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($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)
432	432		}
433	433		if ((invoker == invoker))
434	434		then nil
435	435		else throw("Strict value is not equal to itself.")
436	436		}
437	437		else throw("Strict value is not equal to itself.")
438	438		}
439	439
440	440
441	441
442	442		@Callable(i)
443	443		func distributeRewardsByAnybody (address) = if ((i.caller != this))
444	444		then throw("access only by project owner")
445	445		else {
446	446		func foldFunc (acc,WFS) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(WFS))) + (if ((tryGetString(puzzleMarket, (("nft_" + WFS) + "_seller")) == address))
447	447		then 1
448	448		else (0 + (if ((tryGetString(puzzleMarket, "nft_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_seller") == address))
449	449		then tryGetInteger(puzzleMinter, "group_7s3VCMFPwaVGAqPoYwfbaj3r7EYq1uyeuWb2sTP1AZ3Y_available")
450	450		else 0))))
451	451
452	452		let shareWFS = {
453	453		let $l = WFSlist
454	454		let $s = size($l)
455	455		let $acc0 = 0
456	456		func $f0_1 ($a,$i) = if (($i >= $s))
457	457		then $a
458	458		else foldFunc($a, $l[$i])
459	459
460	460		func $f0_2 ($a,$i) = if (($i >= $s))
461	461		then $a
462	462		else throw("List size exceeds 10")
463	463
464	464		$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)
465	465		}
466	466		func foldFuncB (acc,BBB) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(BBB))) + (if ((tryGetString(puzzleMarket, (("nft_" + BBB) + "_seller")) == address))
467	467		then 1
468	468		else 0))
469	469
470	470		let shareBBB = {
471	471		let $l = BBBlist
472	472		let $s = size($l)
473	473		let $acc0 = 0
474	474		func $f1_1 ($a,$i) = if (($i >= $s))
475	475		then $a
476	476		else foldFuncB($a, $l[$i])
477	477
478	478		func $f1_2 ($a,$i) = if (($i >= $s))
479	479		then $a
480	480		else throw("List size exceeds 10")
481	481
482	482		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
483	483		}
484	484		if (((shareWFS + shareBBB) == 0))
485	485		then {
486	486		let list = split_4C(addresses, ",")
487	487		let noNFTindex = value(indexOf(list, address))
488	488		let listMinusNoNFT = removeByIndex(list, noNFTindex)
489	489		let minusNoNFTstr = (makeString(listMinusNoNFT, ",") + ",")
490	490		[StringEntry(keyAddressesRegistered, minusNoNFTstr)]

github/deemru/w8io/873ac7e 
67.56 ms ◑