w8 · tx · F5n···Ewg

tx · F5n8uEWCrrpHRiVhdBu7NyEjFT6zSGRZUChNWYFx2Ewg

3PEgVPqJ3NYWbRn1CLELUpuY9KCmragc7sY:  -0.01900000 Waves

2024.03.14 16:07 [4083568] smart account 3PEgVPqJ3NYWbRn1CLELUpuY9KCmragc7sY > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "F5n8uEWCrrpHRiVhdBu7NyEjFT6zSGRZUChNWYFx2Ewg",
    "fee": 1900000,
    "feeAssetId": null,
    "timestamp": 1710421680675,
    "version": 2,
    "chainId": 87,
    "sender": "3PEgVPqJ3NYWbRn1CLELUpuY9KCmragc7sY",
    "senderPublicKey": "8bCz9o3CUTfKKYBmcfJcAwKVKxEmLhGGyULemkcJwtkB",
    "proofs": [
        "5hRMbUrmQvJBgNGvc1L6YrHUzWdV4gsEg4D9zZjfCtfgTeZtabhxQrFwemGUwu7ZeMc49q9z2K3U996u6vjrEkBT"
    ],
    "script": "base64:BgI6CAISABIAEgASABIDCgEIEgASABIAEgMKAQgSABIAEgMKAQgSABIAEgMKAQgSABIECgIICBIECgIIASQBDXRyeUdldEludGVnZXICB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCaCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEMdHJ5R2V0U3RyaW5nAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgAAAmQ4AIDC1y8AAmQ2AMCEPQAHcG9vbEJCQgEaAVdS7pNWFE1+B4zShQ/mflxXN34cn+88gh0ADXB1enpsZVN0YWtpbmcJAQdBZGRyZXNzAQEaAVeUaIz57qK5qp/W9Y68qY9nGpwG9BYpibsACWJiYlBvb2xJZAEaAVdS7pNWFE1+B4zShQ/mflxXN34cn+88gh0ADHB1enpsZU1hcmtldAkBB0FkZHJlc3MBARoBV12L8V/LKCBrH2ajyG7aC6iX7Q/o/clE8QAHYnVybnh0bgEgJE91eWp+Mzm4+wz/hKlxXF7KLd4zoMRdafnqRBHsTFQACXdoaXJscG9vbAEgWeON3MK1I7pKFNzE0K8UCeZk5gS+JQYLJk7lUG2XWccABnB1enpsZQEg8Rr+Jf72mTj0aSrE3+ES1keyxsoOujcJr3dtH46i5WMABHJvbWUBIItflAGEw2XBJDSO/xv8cJExSGrJMeqoy5Pz+Z80RAjPAARzdXJmASCS0fRK4hEBK/R+6t4hjj3F+8nyfc6Hsu1SGfA6TiRY9QAMcHV6emxlU3Rha2VkCQENdHJ5R2V0SW50ZWdlcgIFDXB1enpsZVN0YWtpbmcJAKwCAgkApQgBBQR0aGlzAgdfc3Rha2VkAAxwdXp6bGVJblBvb2wJAQ10cnlHZXRJbnRlZ2VyAgkBB0FkZHJlc3MBBQliYmJQb29sSWQJAKwCAgkArAICAgdnbG9iYWxfCQDYBAEFBnB1enpsZQIIX2JhbGFuY2UADHByb2plY3RTdGFrZQkBDXRyeUdldEludGVnZXICCQEHQWRkcmVzcwEFCWJiYlBvb2xJZAkArAICCQClCAEFBHRoaXMCDF9pbmRleFN0YWtlZAAKdG90YWxTdGFrZQkBDXRyeUdldEludGVnZXICCQEHQWRkcmVzcwEFCWJiYlBvb2xJZAIXZ2xvYmFsX3Bvb2xUb2tlbl9hbW91bnQAC2Fzc2V0V2VpZ2h0CQENdHJ5R2V0SW50ZWdlcgIJAQdBZGRyZXNzAQUJYmJiUG9vbElkCQCsAgIJAKwCAgIHc3RhdGljXwkA2AQBBQZwdXp6bGUCB193ZWlnaHQADUJCQmxwSW5QdXp6bGUJAGsDCQBoAgkAaQIFDHB1enpsZUluUG9vbAULYXNzZXRXZWlnaHQAkE4FDHByb2plY3RTdGFrZQUKdG90YWxTdGFrZQAWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAIUQWRkcmVzc2VzIHJlZ2lzdGVyZWQACWFkZHJlc3NlcwkAswICCQEMdHJ5R2V0U3RyaW5nAgUEdGhpcwUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAABABBrZXlCdXJueHRuQW1vdW50AhZCVVJOLVhUTiB0b3RhbCByZXdhcmRzAA1rZXlSb21lQW1vdW50AhJST01FIHRvdGFsIHJld2FyZHMAD2tleVB1enpsZUFtb3VudAIUUFVaWkxFIHRvdGFsIHJld2FyZHMADmtleVdhdmVzQW1vdW50AhNXQVZFUyB0b3RhbCByZXdhcmRzABJrZXlXaGlybHBvb2xBbW91bnQCF1dISVJMUE9PTCB0b3RhbCByZXdhcmRzABBrZXlUb3RhbE5GVHBvd2VyAg9Ub3RhbCBORlQgcG93ZXIAE2tleVRvdGFsUHV6emxlVmFsdWUCElRvdGFsIHB1enpsZSB2YWx1ZQATa2V5VG90YWxCdXJueHRuUGFpZAITVG90YWwgQlVSTi1YVE4gcGFpZAAVa2V5VG90YWxXaGlybHBvb2xQYWlkAhRUb3RhbCBXSElSTFBPT0wgcGFpZAAQa2V5VG90YWxSb21lUGFpZAIPVG90YWwgUk9NRSBwYWlkABFrZXlUb3RhbFdhdmVzUGFpZAIQVG90YWwgV0FWRVMgcGFpZAASa2V5VG90YWxQdXp6bGVQYWlkAhFUb3RhbCBQVVpaTEUgcGFpZAAHV0ZTbGlzdAkAzAgCAixHbnB5NW5WYWpQUDNYUVFWeHJIYm9NQXNYdGpueVdBeHliTURkS3JicjhzRAkAzAgCAixCVDlRNG1RZFFRbWVpMnI1WU5NQk1hc1pCUWo3bXlOYWl6NlFIYmE1Y1BYUwkAzAgCAixCTXZreUZ0UFZtRmF0cEZSOVFWRktSNU1ZVGNaVlRZMlZVd0ZaMjV2ckFBYwkAzAgCAiw3N1JxdThUTGpCZE10RHVYZDlvNWZVU0dvNjR6UWU1RkNjYW81TDhIdDlqOAkAzAgCAiw4S25oQkxWNDlTREp6cTFTU3kxWXZHSFlZNm03UTE0NmJWN1E2R0txUWI1QwkAzAgCAixGRnhzVWZLYkhFVzR6Wnl3TFVMNTVpcDhOcXA2ZmNXRHNxN3kzYW45eVFoZQkAzAgCAiw1blFSZWRHSG9WcEVRYXNNUWl2YjFVTXZGQkNIWGVmWFBYdFVSYk1NbmZzdQkAzAgCAiw2TjNNU0Z0Skd2VDc5dWNYNHBMZnR4UDdmR3M4RG5tWWRQZWR2bm9OYlZ0OQkAzAgCAitkRkMyaUpMNExEV2FzcTlZekhmMmtXZlBOUDY5VHlhbWlpOTNuczlCSHZNCQDMCAICLEExNThUN3laTHRtdWlNRXMyMVA5alYyZnRiTVh6eTNNbmZITUV1MWVNQUdLBQNuaWwAB0JCQmxpc3QJAMwIAgIsOXBDeG9HdEQxOEdlSDlnQ2VtenFyakhNTWpmeUJRRGZzclJBdXhTUmFnTWMJAMwIAgIsN0RnRmdDa0JqVkRjNVA5Wmd3c1ZMOVNpVGk3a1hKdVM0YVJWZ2I3WkhXM2sJAMwIAgIsNzZiVHZFOHR0SHZzdU4xRnVINEtjOFFVVzRrTDRtOGMxY2pmc1h5MkdmYlYJAMwIAgIsNFpyZjRINXRpRmNRTDhlUW1uQTJ3SjFYV1BFQkg2aDFHMk1lZlpEWW1jQ0IJAMwIAgIsMkR0QzRuRm54ejVVTTZtYmpQd01WWnBRV1pGVXF4czUyb1pyQmVOUms5QW8JAMwIAgIsRGpaR01BRmZvUVdrTVczUzVGVHNRTjNqb25jWnQ2QnNtaG5FSzNnZ0x4bU4JAMwIAgIsQm5lYVpYRDZvdkRKY1Y1cmdmcjhoc0haYU1Rc0pROERINmE1Z1RuR0NwQmMJAMwIAgIsNEVLZmd6RmtkNVVHS3JqbmFKVjN3N2FyZ1cxWW1GNGhxNTR4V1FGekFYYjkJAMwIAgIsOGhHRGtXS2l1MmlnRHBXVDNIcHI0bWNoREQ2eHdKOWhHbTJoMmpuVXZUcXoJAMwIAgIsRTNablNlanBYTDFYcjZWRzRRb0xoOHhvZDlOTWdwUGU0NzNyOVFrMkhpYkwFA25pbAANU1VSRmJvYXJkTGlzdAkAzAgCAixEekxTZ0VhQkI0VU5iUENaZWtQU3piUTg1S29rTUI3ZDFLUlJtelVQdTVocwkAzAgCAitXbVd6c2JiM1BOdnpKNHc0RmI3M0tjb05HTFh1bWdZWmFnVjIyekVpWDF3CQDMCAICLDdScnhiZ2F5VWtzUEhyQTc5OXBLdUNyNjFyZVQ4bkVOZHFDa2dWSFBnYU4yCQDMCAICLEZtRExmenNwYlZKZUtoS2R1TERVYmEySG9WZFJyS3Rzd0RLTVUzZTlxanRQCQDMCAICLEhtUXZWeVFkRWphZkxycEtQU2lnZGFmdmNZdkxiTllHRWdWQ3hMWlJXdDF5CQDMCAICLDJyVnhOTVh1dnVnNzRUb3JMUVpHQzJFUkhqQWJKblZVZ05YUTFrSm10bkFlCQDMCAICLDl5Yjl5R0ptNmd6Vm96Qkh1UVZIQmRBbnpmY3QzTjliUnBkampOVW5yemNDCQDMCAICK3MxU2ZHVnNoZjJqS0NBOUt2dktLdlV1Szh1dHAzTmUzZWU4THA2S0tMUncJAMwIAgIsM0UzeWI3VHZESzc2MmRuMTFkbVJMd2FwZ2hhZWZRVUV5dW5WZFhTTnA0dEIJAMwIAgIsRkg3NVR2QXB5VnRmZDlYNWExQXIxOU5zOUROSnZ6cHpMRkU1cGpoMXdpNGgJAMwIAgIsRWdxa2JEeVdSUGdWTlZxdEVFdFJTeldjR0QzM29yVm9FMmJ6WWRBZGllUVMJAMwIAgIsRHNLeUpwSkNaY0Z2OWpTblFiUVZHNEp4M1dTUDFLdGZIaEFLVGtTS3JWQmoJAMwIAgIsQWVzUHI1VUZEZ1k1alpYWVVaOEprYll0Sm92VmRESGJ5MTVTQ2tzRWhtSksJAMwIAgIsQVZzZmRxdzJtNWFVTnhhMUhZOWVtTG1DTEJmVkFHVHhWdTRlZjN4RURLQzgJAMwIAgIsNWpkdlNTWTJLN2g4VWlVQ1hVZ0s5VDd6Zk1yeXF3Mml0S1A4QnlzZFhERGsJAMwIAgIsQTR2b0taZXM4TVZEQVh5UWpLa2I2YmRFY3FNYnZCNHB0emJwcVlxdmVHNW4JAMwIAgIsMzRvWkthV0hwU0pyWnZHTGRZdTVXRzhXV1hnN3J3RjJISHg4SzE1R2ZVQ1EJAMwIAgIsNzdNY0NIa21OclJNNERqcWtTTTlCOFlqdUpjS3RuNjdqUWdlMXB6WnJROFQJAMwIAgIsN05FRkJudkdHTWZZZEJuaE1MTnB1VmdTMjJMcGNnWENaZ0hmbThESG1taUEJAMwIAgIsR29GOXlva3hIZ1BOb3hvV2dqamRtR2VXaGNMWUFyU3N4cWZmUnRmWUd0ZnMFA25pbBIBaQEKaW52b2tlQ2xJMQADCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyBAJjbAkA/AcEBQR0aGlzAhFjbGFpbUludmVzdFB1enpsZQUDbmlsBQNuaWwDCQAAAgUCY2wFAmNsBAJpMQkA/AcEBQR0aGlzAghpbnZva2VyMQUDbmlsBQNuaWwDCQAAAgUCaTEFAmkxBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQERY2xhaW1JbnZlc3RQdXp6bGUAAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIcYWNjZXNzIG9ubHkgYnkgcHJvamVjdCBvd25lcgQRcm9tZUJhbGFuY2VCZWZvcmUJAPAHAgUEdGhpcwUEcm9tZQMJAAACBRFyb21lQmFsYW5jZUJlZm9yZQURcm9tZUJhbGFuY2VCZWZvcmUEEmNsYWltUHV6emxlU3Rha2luZwkA/AcEBQ1wdXp6bGVTdGFraW5nAgtjbGFpbVJld2FyZAUDbmlsBQNuaWwDCQAAAgUSY2xhaW1QdXp6bGVTdGFraW5nBRJjbGFpbVB1enpsZVN0YWtpbmcED3Bvb2xPbmVUb2tlbkludgkA/AcECQEHQWRkcmVzcwEBGgFX/SXDvU5hlEHvul4SY4/FOW9JtYg69eltAiFnZW5lcmF0ZUluZGV4V2l0aE9uZVRva2VuQW5kU3Rha2UJAMwIAgkA2AQBBQdwb29sQkJCBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBnB1enpsZQkA8AcCBQR0aGlzBQZwdXp6bGUFA25pbAMJAAACBQ9wb29sT25lVG9rZW5JbnYFD3Bvb2xPbmVUb2tlbkludgQQcm9tZUJhbGFuY2VBZnRlcgkA8AcCBQR0aGlzBQRyb21lCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhVBY3RpdmF0ZWQgYmxvY2toZWlnaHQFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgUQa2V5QnVybnh0bkFtb3VudAkA8AcCBQR0aGlzBQdidXJueHRuCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ1rZXlSb21lQW1vdW50CQBlAgUQcm9tZUJhbGFuY2VBZnRlcgURcm9tZUJhbGFuY2VCZWZvcmUJAMwIAgkBDEludGVnZXJFbnRyeQIFDmtleVdhdmVzQW1vdW50AwkAZgIJAGUCCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQUCZDgAAAkAZQIICQDvBwEFBHRoaXMJYXZhaWxhYmxlBQJkOAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJrZXlXaGlybHBvb2xBbW91bnQJAPAHAgUEdGhpcwUJd2hpcmxwb29sBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW52b2tlcjEABAVyZXNldAkA/AcEBQR0aGlzAgpyZXNldENvdW50BQNuaWwFA25pbAMJAAACBQVyZXNldAUFcmVzZXQEBGxpc3QJALwJAgUJYWRkcmVzc2VzAgEsCgEBcgIFYWNjdW0HYWRkcmVzcwkA/AcEBQR0aGlzAg1jb3VudE5GVHBvd2VyCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAdpbnZva2VyCgACJGwFBGxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBAXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDMwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAwkAAAIFB2ludm9rZXIFB2ludm9rZXIEAXAJAPwHBAUEdGhpcwIEZGF0YQUDbmlsBQNuaWwDCQAAAgUBcAUBcAkAzAgCCQEMSW50ZWdlckVudHJ5AgIQV0ZTIHB1enpsZSB2YWx1ZQkAawMJAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFE2tleVRvdGFsUHV6emxlVmFsdWUAAQkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyAAoACQkAzAgCCQEMSW50ZWdlckVudHJ5AgIQQkJCIHB1enpsZSB2YWx1ZQkAawMJAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFE2tleVRvdGFsUHV6emxlVmFsdWUACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyAAoACQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnJlc2V0Q291bnQACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBrZXlUb3RhbE5GVHBvd2VyAAAFA25pbAFpAQ1jb3VudE5GVHBvd2VyAQdhZGRyZXNzCgEIZm9sZEZ1bmMCA2FjYwNXRlMJAGQCCQBkAgUDYWNjCQDwBwIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MJANkEAQUDV0ZTAwkAAAIJAQx0cnlHZXRTdHJpbmcCBQxwdXp6bGVNYXJrZXQJAKwCAgkArAICAgRuZnRfBQNXRlMCB19zZWxsZXIFB2FkZHJlc3MAAQAABAhzaGFyZVdGUwoAAiRsBQdXRlNsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhmb2xkRnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgoBCWZvbGRGdW5jQgIDYWNjA0JCQgkAZAIJAGQCBQNhY2MJAPAHAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwkA2QQBBQNCQkIDCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAkArAICCQCsAgICBG5mdF8FA0JCQgIHX3NlbGxlcgUHYWRkcmVzcwABAAAECHNoYXJlQkJCCgACJGwFB0JCQmxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWZvbGRGdW5jQgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgoBCWZvbGRGdW5jQwIDYWNjCVNVUkZib2FyZAkAZAIJAGQCBQNhY2MJAPAHAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwkA2QQBBQlTVVJGYm9hcmQDCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAkArAICCQCsAgICBG5mdF8FCVNVUkZib2FyZAIHX3NlbGxlcgUHYWRkcmVzcwABAAAED2Ftb3VudFNVUkZib2FyZAoAAiRsBQ1TVVJGYm9hcmRMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlmb2xkRnVuY0MCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDIwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAMJAAACCQBkAgUIc2hhcmVXRlMFCHNoYXJlQkJCAAAEBGxpc3QJALwJAgUJYWRkcmVzc2VzAgEsBApub05GVGluZGV4CQEFdmFsdWUBCQDPCAIFBGxpc3QFB2FkZHJlc3MEDmxpc3RNaW51c05vTkZUCQDRCAIFBGxpc3QFCm5vTkZUaW5kZXgEDW1pbnVzTm9ORlRzdHIJAKwCAgkAuQkCBQ5saXN0TWludXNOb05GVAIBLAIBLAkAzAgCCQELU3RyaW5nRW50cnkCBRZrZXlBZGRyZXNzZXNSZWdpc3RlcmVkBQ1taW51c05vTkZUc3RyBQNuaWwJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUHYWRkcmVzcwIEX1dGUwUIc2hhcmVXRlMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUHYWRkcmVzcwIEX0JCQgkAaAIFCHNoYXJlQkJCAAoJAMwIAgkBDEludGVnZXJFbnRyeQIFEGtleVRvdGFsTkZUcG93ZXIJAGQCCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEGtleVRvdGFsTkZUcG93ZXIJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoFA25pbAFpAQRkYXRhAAkAzAgCCQEMSW50ZWdlckVudHJ5AgIOcHV6emxlIGJhbGFuY2UJAPAHAgUEdGhpcwUGcHV6emxlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAg1wdXp6bGUgc3Rha2VkBQxwdXp6bGVTdGFrZWQJAMwIAgkBDEludGVnZXJFbnRyeQICDXB1enpsZSBCQkIgTFAFDUJCQmxwSW5QdXp6bGUJAMwIAgkBDEludGVnZXJFbnRyeQIFE2tleVRvdGFsUHV6emxlVmFsdWUJAGQCCQBkAgkA8AcCBQR0aGlzBQZwdXp6bGUFDHB1enpsZVN0YWtlZAUNQkJCbHBJblB1enpsZQUDbmlsAWkBCGludm9rZXIyAAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIEAXQJAPwHBAUEdGhpcwIOdHJhY2tUb3RhbFBhaWQFA25pbAUDbmlsAwkAAAIFAXQFAXQEBGxpc3QJALwJAgUJYWRkcmVzc2VzAgEsCgEBcgIFYWNjdW0HYWRkcmVzcwkA/AcEBQR0aGlzAhFkaXN0cmlidXRlUmV3YXJkcwkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQHaW52b2tlcgoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQFyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQDCQAAAgUHaW52b2tlcgUHaW52b2tlcgQCYnMJAPwHBAUEdGhpcwIIYnVyblN1cmYFA25pbAUDbmlsAwkAAAIFAmJzBQJicwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDnRyYWNrVG90YWxQYWlkAAQNYW1vdW50QnVybnh0bgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlCdXJueHRuQW1vdW50BA9hbW91bnRXaGlybHBvb2wJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUSa2V5V2hpcmxwb29sQW1vdW50BAthbW91bnRXYXZlcwkBDXRyeUdldEludGVnZXICBQR0aGlzBQ5rZXlXYXZlc0Ftb3VudAQKYW1vdW50Um9tZQkBDXRyeUdldEludGVnZXICBQR0aGlzBQ1rZXlSb21lQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNrZXlUb3RhbEJ1cm54dG5QYWlkCQBkAgUNYW1vdW50QnVybnh0bgkBDXRyeUdldEludGVnZXICBQR0aGlzBRNrZXlUb3RhbEJ1cm54dG5QYWlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVrZXlUb3RhbFdoaXJscG9vbFBhaWQJAGQCBQ9hbW91bnRXaGlybHBvb2wJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUVa2V5VG90YWxXaGlybHBvb2xQYWlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRFrZXlUb3RhbFdhdmVzUGFpZAkAZAIFC2Ftb3VudFdhdmVzCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEWtleVRvdGFsV2F2ZXNQYWlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBrZXlUb3RhbFJvbWVQYWlkCQBkAgUKYW1vdW50Um9tZQkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbFJvbWVQYWlkBQNuaWwBaQERZGlzdHJpYnV0ZVJld2FyZHMBB2FkZHJlc3MDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyCgEIZm9sZEZ1bmMCA2FjYwNXRlMJAGQCCQBkAgUDYWNjCQDwBwIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MJANkEAQUDV0ZTAwkAAAIJAQx0cnlHZXRTdHJpbmcCBQxwdXp6bGVNYXJrZXQJAKwCAgkArAICAgRuZnRfBQNXRlMCB19zZWxsZXIFB2FkZHJlc3MAAQAABAhzaGFyZVdGUwoAAiRsBQdXRlNsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhmb2xkRnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgoBCWZvbGRGdW5jQgIDYWNjA0JCQgkAZAIJAGQCBQNhY2MJAPAHAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwkA2QQBBQNCQkIDCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAkArAICCQCsAgICBG5mdF8FA0JCQgIHX3NlbGxlcgUHYWRkcmVzcwABAAAECHNoYXJlQkJCCgACJGwFB0JCQmxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWZvbGRGdW5jQgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgoBCWZvbGRGdW5jQwIDYWNjCVNVUkZib2FyZAkAZAIJAGQCBQNhY2MJAPAHAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwkA2QQBBQlTVVJGYm9hcmQDCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAkArAICCQCsAgICBG5mdF8FCVNVUkZib2FyZAIHX3NlbGxlcgUHYWRkcmVzcwABAAAED2Ftb3VudFNVUkZib2FyZAoAAiRsBQ1TVVJGYm9hcmRMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlmb2xkRnVuY0MCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDIwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAQNYW1vdW50QnVybnh0bgkAawMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5QnVybnh0bkFtb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyBA9hbW91bnRXaGlybHBvb2wJAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEmtleVdoaXJscG9vbEFtb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyBAthbW91bnRXYXZlcwkAawMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUOa2V5V2F2ZXNBbW91bnQJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgQKYW1vdW50Um9tZQkAawMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUNa2V5Um9tZUFtb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MFDWFtb3VudEJ1cm54dG4FB2J1cm54dG4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUPYW1vdW50V2hpcmxwb29sBQl3aGlybHBvb2wJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwULYW1vdW50V2F2ZXMFBHVuaXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUKYW1vdW50Um9tZQUEcm9tZQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzCQBoAgUPYW1vdW50U1VSRmJvYXJkBQJkNgUEc3VyZgUDbmlsAWkBCGJ1cm5TdXJmAAkAzAgCCQEEQnVybgIFBHN1cmYFAmQ2CQDMCAIJAQxJbnRlZ2VyRW50cnkCAhFTVVJGIHRvdGFsIGJ1cm5lZAkAZAIJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwIRU1VSRiB0b3RhbCBidXJuZWQFAmQ2BQNuaWwBaQEIcmVnaXN0ZXIAAwkBCGNvbnRhaW5zAgkBDHRyeUdldFN0cmluZwIFBHRoaXMFFmtleUFkZHJlc3Nlc1JlZ2lzdGVyZWQJAKUIAQgFAWkGY2FsbGVyCQACAQISYWxyZWFkeSByZWdpc3RlcmVkAwkAAAIJAJADAQkAvAkCBQlhZGRyZXNzZXMCASwAHgkAAgECC21heCByZWFjaGVkCQDMCAIJAQtTdHJpbmdFbnRyeQIFFmtleUFkZHJlc3Nlc1JlZ2lzdGVyZWQJAKwCAgkArAICCQEMdHJ5R2V0U3RyaW5nAgUEdGhpcwUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAkApQgBCAUBaQZjYWxsZXICASwFA25pbAFpARByZWdpc3Rlck1hbnVhbGx5AQdhZGRyZXNzAwkBCGNvbnRhaW5zAgkBDHRyeUdldFN0cmluZwIFBHRoaXMFFmtleUFkZHJlc3Nlc1JlZ2lzdGVyZWQFB2FkZHJlc3MJAAIBAhJhbHJlYWR5IHJlZ2lzdGVyZWQDCQAAAgkAkAMBCQC8CQIFCWFkZHJlc3NlcwIBLAAoCQACAQILbWF4IHJlYWNoZWQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFFmtleUFkZHJlc3Nlc1JlZ2lzdGVyZWQJAKwCAgkArAICCQEMdHJ5R2V0U3RyaW5nAgUEdGhpcwUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAUHYWRkcmVzcwIBLAUDbmlsAWkBDmNsYWltQnlBbnlib2R5AAMJAGYCCQBkAgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwIVQWN0aXZhdGVkIGJsb2NraGVpZ2h0CQBoAgAeAKALBQZoZWlnaHQJAAIBCQCsAgICFldhaXQgdGlsbCBibG9ja2hlaWdodDoJAKQDAQkAZAIJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMCFUFjdGl2YXRlZCBibG9ja2hlaWdodAkAaAIAHgCgCwQTcHV6emxlQmFsYW5jZUJlZm9yZQkA8AcCBQR0aGlzBQZwdXp6bGUDCQAAAgUTcHV6emxlQmFsYW5jZUJlZm9yZQUTcHV6emxlQmFsYW5jZUJlZm9yZQQRcm9tZUJhbGFuY2VCZWZvcmUJAPAHAgUEdGhpcwUEcm9tZQMJAAACBRFyb21lQmFsYW5jZUJlZm9yZQURcm9tZUJhbGFuY2VCZWZvcmUEEmNsYWltUHV6emxlU3Rha2luZwkA/AcEBQ1wdXp6bGVTdGFraW5nAgtjbGFpbVJld2FyZAUDbmlsBQNuaWwDCQAAAgUSY2xhaW1QdXp6bGVTdGFraW5nBRJjbGFpbVB1enpsZVN0YWtpbmcECGNsYWltSW52CQD8BwQJAQdBZGRyZXNzAQUHcG9vbEJCQgIRY2xhaW1JbmRleFJld2FyZHMFA25pbAUDbmlsAwkAAAIFCGNsYWltSW52BQhjbGFpbUludgQScHV6emxlQmFsYW5jZUFmdGVyCQDwBwIFBHRoaXMFBnB1enpsZQQQcm9tZUJhbGFuY2VBZnRlcgkA8AcCBQR0aGlzBQRyb21lCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBrZXlCdXJueHRuQW1vdW50CQDwBwIFBHRoaXMFB2J1cm54dG4JAMwIAgkBDEludGVnZXJFbnRyeQIFDWtleVJvbWVBbW91bnQJAGUCBRByb21lQmFsYW5jZUFmdGVyBRFyb21lQmFsYW5jZUJlZm9yZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUPa2V5UHV6emxlQW1vdW50CQBlAgUScHV6emxlQmFsYW5jZUFmdGVyBRNwdXp6bGVCYWxhbmNlQmVmb3JlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ5rZXlXYXZlc0Ftb3VudAMJAGYCCQBlAggJAO8HAQUEdGhpcwlhdmFpbGFibGUFAmQ4AAAJAGUCCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQUCZDgAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSa2V5V2hpcmxwb29sQW1vdW50CQDwBwIFBHRoaXMFCXdoaXJscG9vbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEGludm9rZXJCeUFueWJvZHkAAwkAZgIJAGQCCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzAhVBY3RpdmF0ZWQgYmxvY2toZWlnaHQJAGgCAB4AoAsFBmhlaWdodAkAAgEJAKwCAgIWV2FpdCB0aWxsIGJsb2NraGVpZ2h0OgkApAMBCQBkAgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwIVQWN0aXZhdGVkIGJsb2NraGVpZ2h0CQBoAgAeAKALBAVyZXNldAkA/AcEBQR0aGlzAhpkaXN0cmlidXRlUmV3YXJkc0J5QW55Ym9keQUDbmlsBQNuaWwDCQAAAgUFcmVzZXQFBXJlc2V0BARsaXN0CQC8CQIFCWFkZHJlc3NlcwIBLAoBAXICBWFjY3VtB2FkZHJlc3MJAPwHBAUEdGhpcwINY291bnRORlRwb3dlcgkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQHaW52b2tlcgoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQFyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA0MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoAwkAAAIFB2ludm9rZXIFB2ludm9rZXIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARpkaXN0cmlidXRlUmV3YXJkc0J5QW55Ym9keQEHYWRkcmVzcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIKAQhmb2xkRnVuYwIDYWNjA1dGUwkAZAIJAGQCBQNhY2MJAPAHAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwkA2QQBBQNXRlMDCQAAAgkBDHRyeUdldFN0cmluZwIFDHB1enpsZU1hcmtldAkArAICCQCsAgICBG5mdF8FA1dGUwIHX3NlbGxlcgUHYWRkcmVzcwABAAAECHNoYXJlV0ZTCgACJGwFB1dGU2xpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCGZvbGRGdW5jAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKCgEJZm9sZEZ1bmNCAgNhY2MDQkJCCQBkAgkAZAIFA2FjYwkA8AcCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzCQDZBAEFA0JCQgMJAAACCQEMdHJ5R2V0U3RyaW5nAgUMcHV6emxlTWFya2V0CQCsAgIJAKwCAgIEbmZ0XwUDQkJCAgdfc2VsbGVyBQdhZGRyZXNzAAEAAAQIc2hhcmVCQkIKAAIkbAUHQkJCbGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJZm9sZEZ1bmNCAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAwkAAAIJAGQCBQhzaGFyZVdGUwUIc2hhcmVCQkIAAAQEbGlzdAkAvAkCBQlhZGRyZXNzZXMCASwECm5vTkZUaW5kZXgJAQV2YWx1ZQEJAM8IAgUEbGlzdAUHYWRkcmVzcwQObGlzdE1pbnVzTm9ORlQJANEIAgUEbGlzdAUKbm9ORlRpbmRleAQNbWludXNOb05GVHN0cgkArAICCQC5CQIFDmxpc3RNaW51c05vTkZUAgEsAgEsCQDMCAIJAQtTdHJpbmdFbnRyeQIFFmtleUFkZHJlc3Nlc1JlZ2lzdGVyZWQFDW1pbnVzTm9ORlRzdHIFA25pbAQNYW1vdW50QnVybnh0bgkAawMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5QnVybnh0bkFtb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyBA9hbW91bnRXaGlybHBvb2wJAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEmtleVdoaXJscG9vbEFtb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyBAthbW91bnRXYXZlcwkAawMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUOa2V5V2F2ZXNBbW91bnQJAGQCBQhzaGFyZVdGUwkAaAIFCHNoYXJlQkJCAAoJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxORlRwb3dlcgQKYW1vdW50Um9tZQkAawMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUNa2V5Um9tZUFtb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyBAxhbW91bnRQdXp6bGUJAGsDCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFD2tleVB1enpsZUFtb3VudAkAZAIFCHNoYXJlV0ZTCQBoAgUIc2hhcmVCQkIACgkBDXRyeUdldEludGVnZXICBQR0aGlzBRBrZXlUb3RhbE5GVHBvd2VyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MFDWFtb3VudEJ1cm54dG4FB2J1cm54dG4JAMwIAgkBDEludGVnZXJFbnRyeQIFE2tleVRvdGFsQnVybnh0blBhaWQJAGQCBQ1hbW91bnRCdXJueHRuCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFE2tleVRvdGFsQnVybnh0blBhaWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUPYW1vdW50V2hpcmxwb29sBQl3aGlybHBvb2wJAMwIAgkBDEludGVnZXJFbnRyeQIFFWtleVRvdGFsV2hpcmxwb29sUGFpZAkAZAIFD2Ftb3VudFdoaXJscG9vbAkBDXRyeUdldEludGVnZXICBQR0aGlzBRVrZXlUb3RhbFdoaXJscG9vbFBhaWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwULYW1vdW50V2F2ZXMFBHVuaXQJAMwIAgkBDEludGVnZXJFbnRyeQIFEWtleVRvdGFsV2F2ZXNQYWlkCQBkAgULYW1vdW50V2F2ZXMJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwURa2V5VG90YWxXYXZlc1BhaWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUKYW1vdW50Um9tZQUEcm9tZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUQa2V5VG90YWxSb21lUGFpZAkAZAIFCmFtb3VudFJvbWUJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwUQa2V5VG90YWxSb21lUGFpZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBQxhbW91bnRQdXp6bGUFBnB1enpsZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUSa2V5VG90YWxQdXp6bGVQYWlkCQBkAgUMYW1vdW50UHV6emxlCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMFEmtleVRvdGFsUHV6emxlUGFpZAUDbmlsAWkBC2RlbGV0ZUVudHJ5AAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIJAMwIAgkBC0RlbGV0ZUVudHJ5AQUWa2V5QWRkcmVzc2VzUmVnaXN0ZXJlZAUDbmlsAWkBCGFkZFdGU2lkAglXRlNudW1iZXIKV0ZTYXNzZXRJZAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlXRlNudW1iZXICAAUKV0ZTYXNzZXRJZAUDbmlsAWkBEmNoYW5nZUludGVnZXJFbnRyeQIJa2V5U3RyaW5nB2ludGVnZXIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlTdHJpbmcFB2ludGVnZXIFA25pbACGpDE1",
    "height": 4083568,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2nGPLHDGaZubCHDufKkotcu5BcKb9X8s18EGLAXpcwNT
Next: HVjWaaiAokm68BQSdMjU4WbJVNErg9zzShLUEEMEAjXL

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

Old	New		Differences
207	207		else throw("List size exceeds 10")
208	208
209	209		$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)
	210	+	}
	211	+	func foldFuncC (acc,SURFboard) = ((acc + assetBalance(addressFromStringValue(address), fromBase58String(SURFboard))) + (if ((tryGetString(puzzleMarket, (("nft_" + SURFboard) + "_seller")) == address))
	212	+	then 1
	213	+	else 0))
	214	+
	215	+	let amountSURFboard = {
	216	+	let $l = SURFboardList
	217	+	let $s = size($l)
	218	+	let $acc0 = 0
	219	+	func $f2_1 ($a,$i) = if (($i >= $s))
	220	+	then $a
	221	+	else foldFuncC($a, $l[$i])
	222	+
	223	+	func $f2_2 ($a,$i) = if (($i >= $s))
	224	+	then $a
	225	+	else throw("List size exceeds 20")
	226	+
	227	+	$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)
210	228		}
211	229		if (((shareWFS + shareBBB) == 0))
212	230		then {

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

github/deemru/w8io/6500d08 
63.66 ms ◑