tx · BQe9nfNJPjetd98itdmwZ7wH52ELU2QD6JwE2sGDwv4F

3NAsFvuLwxz1iUtZ9fmhfmSN16r9NEsPqsh:  -0.01800000 Waves

2023.01.19 12:47 [2411647] smart account 3NAsFvuLwxz1iUtZ9fmhfmSN16r9NEsPqsh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BQe9nfNJPjetd98itdmwZ7wH52ELU2QD6JwE2sGDwv4F",
    "fee": 1800000,
    "feeAssetId": null,
    "timestamp": 1674121696171,
    "version": 1,
    "sender": "3NAsFvuLwxz1iUtZ9fmhfmSN16r9NEsPqsh",
    "senderPublicKey": "33fpjdpM9FMu87RZKePniPardKqQXM96sm7VhAk3JEVQ",
    "proofs": [
        "5eaVd6cYr586v53LW842hf2vFoRHo4rc3smHAEpxLpzqjhskrf5RdncjCLWt4Kg6ZaSGH7JxtPPHde5pCpRD2sbd"
    ],
    "script": "base64:BgLnEwgCEgUKAwgIBBIFCgMIGAESBwoFEQgYAQESBgoECAgICBIGCgQICAgCEgUKAwgIBBIGCgQICAEBEgQKAggYEgMKAQgSABIECgIICBIDCgEIEgQKAggIEgMKAQgSACIJc2VwYXJhdG9yIgxrZXlXeEFzc2V0SWQiE2tleUJhY2tlbmRQdWJsaWNLZXkiG2tleUV4aXN0c1JlZmVycmVyVG9SZWZlcnJhbCILcHJvZ3JhbU5hbWUiD3JlZmVycmVyQWRkcmVzcyIPcmVmZXJyYWxBZGRyZXNzIhJrZXlDbGFpbWVkUmVmZXJyZXIiDmNsYWltZXJBZGRyZXNzIhJrZXlDbGFpbWVkUmVmZXJyYWwiFGtleVVuY2xhaW1lZFJlZmVycmVyIhRrZXlVbmNsYWltZWRSZWZlcnJhbCILa2V5UmVmZXJyZXIiDmtleVByb2dyYW1OYW1lIhVrZXlUb3RhbFJlZmVycmFsQ291bnQiFmtleUFjdGl2ZVJlZmVycmFsQ291bnQiE2tleUlzUmVmZXJyYWxBY3RpdmUiFmtleUNsYWltZWRUb3RhbEFkZHJlc3MiB2FkZHJlc3MiGGtleVVuY2xhaW1lZFRvdGFsQWRkcmVzcyIPa2V5Q2xhaW1lZFRvdGFsIg9rZXlSZXdhcmRzVG90YWwiEGtleVJld2FyZEFzc2V0SWQiE2tleVRyZWFzdXJ5Q29udHJhY3QiGWtleUltcGxlbWVudGF0aW9uQ29udHJhY3QiFmtleUFsbFJlZmVycmFsUHJvZ3JhbXMiJ2tleUxhc3RJbmNVbmNsYWltZWRXaXRoUGF5bWVudENhbGxCbG9jayITa2V5TWFuYWdlclB1YmxpY0tleSIaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiD2tleUNsYWltSGlzdG9yeSILdXNlckFkZHJlc3MiDXRyYW5zYWN0aW9uSWQiBHR5cGUiEmZvcm1hdENsYWltSGlzdG9yeSIGYW1vdW50Igh0aHJvd0VyciIDbXNnIhZtYW5hZ2VyUHVibGljS2V5T3JVbml0IgckbWF0Y2gwIgFzIh1wZW5kaW5nTWFuYWdlclB1YmxpY0tleU9yVW5pdCILbXVzdE1hbmFnZXIiAWkiAnBkIgJwayIZdXBkYXRlQWxsUmVmZXJyYWxQcm9ncmFtcyITYWxsUmVmZXJyYWxQcm9ncmFtcyIadXBkYXRlZEFsbFJlZmVycmFsUHJvZ3JhbXMiFm5ld0FsbFJlZmVycmFsUHJvZ3JhbXMiGGlzSW1wbGVtZW50YXRpb25Db250cmFjdCISY2hlY2tQcm9ncmFtRXhpc3RzIgskdDA0ODIxNTc1OCIOY2xhaW1lckNsYWltZWQiEGNsYWltZXJVbmNsYWltZWQiCmtleUNsYWltZWQiDGtleVVuY2xhaW1lZCIPY2xhaW1IaXN0b3J5S2V5IgxjbGFpbWVkVG90YWwiEHRyZWFzdXJ5Q29udHJhY3QiDXJld2FyZEFzc2V0SWQiE2NsYWltZWRUb3RhbEFkZHJlc3MiFXVuY2xhaW1lZFRvdGFsQWRkcmVzcyINY2hlY2tDYW5DbGFpbSIRbmV3Q2xhaW1lckNsYWltZWQiD25ld0NsYWltZWRUb3RhbCIWbmV3Q2xhaW1lZFRvdGFsQWRkcmVzcyIYbmV3VW5jbGFpbWVkVG90YWxBZGRyZXNzIg1iYWxhbmNlQmVmb3JlIgNyZXMiDGJhbGFuY2VBZnRlciILYmFsYW5jZURpZmYiDGNoZWNrQmFsYW5jZSIHY2xhaW1lciIMcHJvZ3JhbU5hbWVzIgtjdXJyZW50SXRlciILY2hlY2tDYWxsZXIiEHByb2dyYW1VbmNsYWltZWQiEWNsYWltQnVsa0ludGVybmFsIhF1bmNsYWltZWRSZWZlcnJlciIFY2xhaW0iDnBheW1lbnRBbW91bnRzIhFyZWZlcnJlckFkZHJlc3NlcyIJcmVzQW1vdW50Ig5hcmdzQ29tcGFyaXNvbiIFY2hlY2siEXJlZmVycmVyVW5jbGFpbWVkIgxyZXdhcmRzVG90YWwiFG5ld1JlZmVycmVyVW5jbGFpbWVkIgxuZXdSZXNBbW91bnQiA2ludiIadXBkYXRlZEFsbFJlZmVycmVyUHJvZ3JhbXMiFmltcGxlbWVudGF0aW9uQ29udHJhY3QiEGNoZWNrUHJvZ3JhbU5hbWUiEnByb2dyYW1OYW1lSXNWYWxpZCIQY2hlY2tSZXdhcmRBc3NldCIJc2lnbmF0dXJlIiBwYWlyUmVmZXJyZXJUb1JlZmVycmFsRXhpc3RDaGVjayIJbm9SZWZTZWxmIgRwYWlyIhBiYWNrZW5kUHVibGljS2V5IhF2YWxpZGF0ZVNpZ25hdHVyZSISdG90YWxSZWZlcnJhbENvdW50IhVuZXdUb3RhbFJlZmVycmFsQ291bnQiCGlzQWN0aXZlIhBpc1JlZmVycmFsQWN0aXZlIgZ1cGRhdGUiFm5ld0FjdGl2ZVJlZmVycmFsQ291bnQiDnJlZmVycmVyUmV3YXJkIg5yZWZlcnJhbFJld2FyZCIMY2hlY2tQcm9ncmFtIhZjaGVja1JlZmVycmVySW5Qcm9ncmFtIhZjaGVja1JlZmVycmFsSW5Qcm9ncmFtIhZ1bmNsYWltZWRUb3RhbFJlZmVycmVyIhZ1bmNsYWltZWRUb3RhbFJlZmVycmFsIhFyZWZlcnJhbFVuY2xhaW1lZCIZbmV3VW5jbGFpbWVkVG90YWxSZWZlcnJlciIZbmV3VW5jbGFpbWVkVG90YWxSZWZlcnJhbCIUbmV3UmVmZXJyYWxVbmNsYWltZWQiDWNhbGxlckFkZHJlc3MiCGxhc3RDYWxsIgp3YWl0QmxvY2tzIg1sYXN0Q2FsbENoZWNrIgNtYXAiBWFjY3VtIgRuZXh0Igxhc3NldElkQ2hlY2siC2Ftb3VudENoZWNrIghwYXltZW50cyICJGwiAiRzIgUkYWNjMCIFJGYwXzEiAiRhIgIkaSIFJGYwXzIiAUAiDWNsYWltSW50ZXJuYWwiEWNhbGxlclByb2dyYW1zU3RyIg5wcm9ncmFtc0V4aXN0cyIOY2FsbGVyUHJvZ3JhbXMiCWJ1bGtDbGFpbSIPY2xhaW1lZFJlZmVycmVyIg9jbGFpbWVkUmVmZXJyYWwiEXVuY2xhaW1lZFJlZmVycmFsIhdwZW5kaW5nTWFuYWdlclB1YmxpY0tleSIVY2hlY2tNYW5hZ2VyUHVibGljS2V5IgJwbSIFaGFzUE0iB2NoZWNrUE0iAnR4IgZ2ZXJpZnkiD3RhcmdldFB1YmxpY0tleR8AAWECAl9fAQFiAAkAuQkCCQDMCAICAiVzCQDMCAICCXd4QXNzZXRJZAUDbmlsBQFhAAFjCQC5CQIJAMwIAgICJXMJAMwIAgIQYmFja2VuZFB1YmxpY0tleQUDbmlsBQFhAQFkAwFlAWYBZwkAuQkCCQDMCAICCCVzJXMlcyVzCQDMCAICGGV4aXN0c1JlZmVycmVyVG9SZWZlcnJhbAkAzAgCBQFlCQDMCAIFAWYJAMwIAgUBZwUDbmlsBQFhAQFoAgFlAWkJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIPY2xhaW1lZFJlZmVycmVyCQDMCAIFAWUJAMwIAgUBaQUDbmlsBQFhAQFqAgFlAWkJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIPY2xhaW1lZFJlZmVycmFsCQDMCAIFAWUJAMwIAgUBaQUDbmlsBQFhAQFrAgFlAWkJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIRdW5jbGFpbWVkUmVmZXJyZXIJAMwIAgUBZQkAzAgCBQFpBQNuaWwFAWEBAWwCAWUBaQkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAhF1bmNsYWltZWRSZWZlcnJhbAkAzAgCBQFlCQDMCAIFAWkFA25pbAUBYQEBbQIBZQFnCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICCHJlZmVycmVyCQDMCAIFAWUJAMwIAgUBZwUDbmlsBQFhAQFuAQFlCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgtwcm9ncmFtTmFtZQkAzAgCBQFlBQNuaWwFAWEBAW8CAWUBZgkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAhJ0b3RhbFJlZmVycmFsQ291bnQJAMwIAgUBZQkAzAgCBQFmBQNuaWwFAWEBAXACAWUBZgkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAhNhY3RpdmVSZWZlcnJhbENvdW50CQDMCAIFAWUJAMwIAgUBZgUDbmlsBQFhAQFxAgFlAWcJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIOYWN0aXZlUmVmZXJyYWwJAMwIAgUBZQkAzAgCBQFnBQNuaWwFAWEBAXIBAXMJALkJAgkAzAgCAgQlcyVzCQDMCAICE2NsYWltZWRUb3RhbEFkZHJlc3MJAMwIAgUBcwUDbmlsBQFhAQF0AQFzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAhV1bmNsYWltZWRUb3RhbEFkZHJlc3MJAMwIAgUBcwUDbmlsBQFhAQF1AQFlCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgxjbGFpbWVkVG90YWwJAMwIAgUBZQUDbmlsBQFhAQF2AQFlCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgxyZXdhcmRzVG90YWwJAMwIAgUBZQUDbmlsBQFhAQF3AQFlCQC5CQIJAMwIAgIEJXMlcwkAzAgCAg1yZXdhcmRBc3NldElkCQDMCAIFAWUFA25pbAUBYQEBeAEBZQkAuQkCCQDMCAICBCVzJXMJAMwIAgIQdHJlYXN1cnlDb250cmFjdAkAzAgCBQFlBQNuaWwFAWEBAXkBAWUJALkJAgkAzAgCAgQlcyVzCQDMCAICFmltcGxlbWVudGF0aW9uQ29udHJhY3QJAMwIAgUBZQUDbmlsBQFhAQF6AQFzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAhNhbGxSZWZlcnJhbFByb2dyYW1zCQDMCAIFAXMFA25pbAUBYQEBQQEBcwkAuQkCCQDMCAICBCVzJXMJAMwIAgIkbGFzdEluY1VuY2xhaW1lZFdpdGhQYXltZW50Q2FsbEJsb2NrCQDMCAIFAXMFA25pbAUBYQEBQgACFCVzX19tYW5hZ2VyUHVibGljS2V5AQFDAAIbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQFEBAFlAUUBRgFHCQC5CQIJAMwIAgIKJXMlcyVzJXMlcwkAzAgCAgdoaXN0b3J5CQDMCAIFAUcJAMwIAgUBZQkAzAgCBQFFCQDMCAIFAUYFA25pbAUBYQEBSAEBSQkAuQkCCQDMCAICBiVkJWQlZAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sGaGVpZ2h0CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkApAMBBQFJBQNuaWwFAWEBAUoBAUsJAAIBCQC5CQIJAMwIAgIOcmVmZXJyYWwucmlkZToJAMwIAgUBSwUDbmlsAgEgAQFMAAQBTQkAoggBCQEBQgADCQABAgUBTQIGU3RyaW5nBAFOBQFNCQDZBAEFAU4DCQABAgUBTQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAQFPAAQBTQkAoggBCQEBQwADCQABAgUBTQIGU3RyaW5nBAFOBQFNCQDZBAEFAU4DCQABAgUBTQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAQFQAQFRBAFSCQEBSgECEXBlcm1pc3Npb24gZGVuaWVkBAFNCQEBTAADCQABAgUBTQIKQnl0ZVZlY3RvcgQBUwUBTQMJAAACCAUBUQ9jYWxsZXJQdWJsaWNLZXkFAVMGBQFSAwkAAQIFAU0CBFVuaXQDCQAAAggFAVEGY2FsbGVyBQR0aGlzBgUBUgkAAgECC01hdGNoIGVycm9yAQFUAgFzAWUEAVUJAQt2YWx1ZU9yRWxzZQIJAKIIAQkBAXoBBQFzAgAEAVYDCQEIY29udGFpbnMCBQFVBQFlBQNuaWwEAVcDCQAAAgUBVQIABQFlCQC5CQIJAMwIAgUBVQkAzAgCBQFlBQNuaWwFAWEJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAXoBBQFzBQFXBQNuaWwFAVYPAVEBDWNsYWltSW50ZXJuYWwDAWUBaQFYBAFZAwkBC3ZhbHVlT3JFbHNlAgkAoAgBCQEBbgEFAWUHBgkBAUoBAhZwcm9ncmFtIGRvZXMgbm90IGV4aXN0AwkAAAIFAVkFAVkEAVoDBQFYCQCXCgUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAWoCBQFlBQFpAAAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAWwCBQFlBQFpAAAJAQFqAgUBZQUBaQkBAWwCBQFlBQFpCQEBRAQFAWUFAWkJANgEAQgFAVENdHJhbnNhY3Rpb25JZAINY2xhaW1SZWZlcnJhbAkAlwoFCQELdmFsdWVPckVsc2UCCQCfCAEJAQFoAgUBZQUBaQAACQELdmFsdWVPckVsc2UCCQCfCAEJAQFrAgUBZQUBaQAACQEBaAIFAWUFAWkJAQFrAgUBZQUBaQkBAUQEBQFlBQFpCQDYBAEIBQFRDXRyYW5zYWN0aW9uSWQCDWNsYWltUmVmZXJyZXIEAmFhCAUBWgJfMQQCYWIIBQFaAl8yBAJhYwgFAVoCXzMEAmFkCAUBWgJfNAQCYWUIBQFaAl81BAJhZgkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBdQEFAWUAAAQCYWcJAQV2YWx1ZQEJAKYIAQkBBXZhbHVlAQkAoggBCQEBeAEFAWUEAmFoCQDZBAEJAQV2YWx1ZQEJAKIIAQkBAXcBBQFlBAJhaQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBcgEFAWkAAAQCYWoJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAXQBBQFpAAADAwUBWAkAAAIFAmFiAAAHCQCUCgIFA25pbAAABAJhawMJAGYCBQJhYgAABgkBAUoBAhBub3RoaW5nIHRvIGNsYWltAwkAAAIFAmFrBQJhawQCYWwJAGQCBQJhYQUCYWIEAmFtCQBkAgUCYWYFAmFiBAJhbgkAZAIFAmFpBQJhYgQCYW8JAGUCBQJhagUCYWIEAmFwCQEFdmFsdWUBCQDwBwIFBHRoaXMFAmFoAwkAAAIFAmFwBQJhcAQCYXEJAPwHBAUCYWcCFndpdGhkcmF3UmVmZXJyYWxSZXdhcmQJAMwIAgUCYWIFA25pbAUDbmlsAwkAAAIFAmFxBQJhcQQCYXIJAQV2YWx1ZQEJAPAHAgUEdGhpcwUCYWgDCQAAAgUCYXIFAmFyBAJhcwkAZQIFAmFyBQJhcAMJAAACBQJhcwUCYXMEAmF0AwkAAAIFAmFzBQJhYgYJAQFKAQIpaW5zdWZmaWNpZW50IGJhbGFuY2Ugb24gcmVmZXJyYWwgY29udHJhY3QDCQAAAgUCYXQFAmF0CQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFAmFjBQJhbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUCYWQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAXUBBQFlBQJhbQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAXIBBQFpBQJhbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAXQBBQFpBQJhbwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQFpBQJhYgUCYWgJAMwIAgkBC1N0cmluZ0VudHJ5AgUCYWUJAQFIAQUCYWIFA25pbAUCYWIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BUQERY2xhaW1CdWxrSW50ZXJuYWwDAmF1AmF2AmF3BAJheAMJAAACCAUBUQZjYWxsZXIFBHRoaXMGCQEBSgECEXBlcm1pc3Npb24gZGVuaWVkAwkAAAIFAmF4BQJheAMJAAACBQJhdwkAkAMBBQJhdgUDbmlsBAFlCQCRAwIFAmF2BQJhdwQCYXkJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAWsCBQFlBQJhdQAABAJhZQkBAUQEBQFlBQJhdQkA2AQBCAUBUQ10cmFuc2FjdGlvbklkAgljbGFpbUJ1bGsEAmF6CQD8BwQFBHRoaXMCEWNsYWltQnVsa0ludGVybmFsCQDMCAIFAmF1CQDMCAIFAmF2CQDMCAIJAGQCBQJhdwABBQNuaWwFA25pbAMJAAACBQJhegUCYXoEAmFBCQELdmFsdWVPckVsc2UCCQCfCAEJAQFrAgUBZQUCYXUAAAQCYUIDCQBmAgUCYUEAAAkA/AcEBQR0aGlzAg1jbGFpbUludGVybmFsCQDMCAIFAWUJAMwIAgUCYXUJAMwIAgcFA25pbAUDbmlsBQR1bml0AwkAAAIFAmFCBQJhQgkAlAoCBQNuaWwJAMwIAgUCYXoJAMwIAgUCYUIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFRAR9pbmNVbmNsYWltZWRXaXRoUGF5bWVudEludGVybmFsBQJhQwFlAmFEAmF3AmFFBAJheAMJAAACCAUBUQZjYWxsZXIFBHRoaXMGCQEBSgECEXBlcm1pc3Npb24gZGVuaWVkAwkAAAIFAmF4BQJheAQCYUYJAAACCQCQAwEFAmFDCQCQAwEFAmFEBAJhRwMFAmFGBgkBAUoBAh9saXN0cyBpbiBhcmdzIG11c3QgYmUgc2FtZSBzaXplAwkAAAIFAmFHBQJhRwMJAAACBQJhdwkAkAMBBQJhQwkAlAoCBQNuaWwFAmFFBAFmCQCRAwIFAmFEBQJhdwQCYWoJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAXQBBQFmAAAEAmFICQELdmFsdWVPckVsc2UCCQCfCAEJAQFrAgUBZQUBZgAABAJhSQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBdgEFAWUAAAQCYW8JAGQCBQJhagkAkQMCBQJhQwUCYXcEAmFKCQBkAgUCYUgJAJEDAgUCYUMFAmF3BAJhSwkAZAIFAmFFCQCRAwIFAmFDBQJhdwQCYUwJAPwHBAUEdGhpcwIfaW5jVW5jbGFpbWVkV2l0aFBheW1lbnRJbnRlcm5hbAkAzAgCBQJhQwkAzAgCBQFlCQDMCAIFAmFECQDMCAIJAGQCBQJhdwABCQDMCAIFAmFLBQNuaWwFA25pbAMJAAACBQJhTAUCYUwEAmFNCQEBVAIFAWYFAWUJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBdAEFAWYFAmFvCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBawIFAWUFAWYFAmFKCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBdgEFAWUJAGQCBQJhSQkAkQMCBQJhQwUCYXcFA25pbAUCYU0FAmFMCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAVEBFWNyZWF0ZVJlZmVycmFsUHJvZ3JhbQQBZQJhZwJhTgJhaAQCYXgJAQFQAQUBUQMJAAACBQJheAUCYXgEAmFPAwkAAAIJAKAIAQkBAW4BBQFlBQR1bml0BgkBAUoBAhtwcm9ncmFtIG5hbWUgYWxyZWFkeSBleGlzdHMDCQAAAgUCYU8FAmFPBAJhUAMJAQEhAQkBCGNvbnRhaW5zAgUBZQUBYQkBASEBCQEIY29udGFpbnMCBQFlAgEgBwQBWQMFAmFQBgkBAUoBAhRpbnZhbGlkIHByb2dyYW0gbmFtZQMJAAACBQFZBQFZBAJhUQMJAQIhPQIJAOwHAQkA2QQBBQJhaAUEdW5pdAYJAQFKAQIXaW52YWxpZCByZXdhcmQgYXNzZXQgaWQDCQAAAgUCYVEFAmFRCQCUCgIJAMwIAgkBDEJvb2xlYW5FbnRyeQIJAQFuAQUBZQYJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAXgBBQFlBQJhZwkAzAgCCQELU3RyaW5nRW50cnkCCQEBeQEFAWUFAmFOCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQF3AQUBZQUCYWgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQF2AQUBZQAABQNuaWwFBHVuaXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BUQEKY3JlYXRlUGFpcgQBZQFmAWcCYVIEAVkDCQELdmFsdWVPckVsc2UCCQCgCAEJAQFuAQUBZQcGCQEBSgECFnByb2dyYW0gZG9lcyBub3QgZXhpc3QDCQAAAgUBWQUBWQQCYVMDCQAAAgkAoAgBCQEBZAMFAWUFAWYFAWcFBHVuaXQGCQEBSgECE3BhaXIgYWxyZWFkeSBleGlzdHMDCQAAAgUCYVMFAmFTBAJhVAMJAQIhPQIFAWYFAWcGCQEBSgECFGNhbm5vdCByZWZlciB0byBzZWxmAwkAAAIFAmFUBQJhVAQCYVUJAJsDAQkAuQkCCQDMCAIFAWUJAMwIAgUBZgkAzAgCBQFnBQNuaWwCAToEAmFWCQDZBAEJAQV2YWx1ZQEJAKIIAQUBYwQCYVcDCQD0AwMFAmFVBQJhUgUCYVYGCQEBSgECDWJhZCBzaWduYXR1cmUDCQAAAgUCYVcFAmFXBAJhWAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBbwIFAWUFAWYAAAQCYVkJAGQCBQJhWAABBAJhTQkBAVQCBQFmBQFlBAFWCQEBVAIFAWcFAWUJAJQKAgkAzggCCQDOCAIJAMwIAgkBDEJvb2xlYW5FbnRyeQIJAQFkAwUBZQUBZgUBZwYJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFvAgUBZQUBZgUCYVkJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAW0CBQFlBQFnBQFmBQNuaWwFAmFNBQFWBQR1bml0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAVEBFnVwZGF0ZVJlZmVycmFsQWN0aXZpdHkDAWUBZwJhWgQCYU4JAQV2YWx1ZQEJAKIIAQkBAXkBBQFlBAJiYQkBAiE9AgkAoAgBCQEBcQIFAWUFAWcFBHVuaXQEAWYJAQV2YWx1ZQEJAKIIAQkBAW0CBQFlBQFnBAJheAMJAAACCQClCAEIBQFRBmNhbGxlcgUCYU4GCQEBSgECEXBlcm1pc3Npb24gZGVuaWVkAwkAAAIFAmF4BQJheAQCYmIDCQAAAgUCYmEFAmFaCQCUCgIFA25pbAUEdW5pdAQCYmIDCQAAAgUCYVoGBAJiYwkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAXACBQFlBQFmAAAAAQkAlAoCCQDMCAIJAQxCb29sZWFuRW50cnkCCQEBcQIFAWUFAWcGCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBcAIFAWUFAWYFAmJjBQNuaWwFBHVuaXQEAmJjCQBlAgkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBcAIFAWUFAWYAAAABCQCUCgIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBAXECBQFlBQFnCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBcAIFAWUFAWYFAmJjBQNuaWwFBHVuaXQFAmJiBQJiYgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFRAQxpbmNVbmNsYWltZWQEAWUBZwJiZAJiZQQCYU4JAQV2YWx1ZQEJAKIIAQkBAXkBBQFlBAFmCQEFdmFsdWUBCQCiCAEJAQFtAgUBZQUBZwQCYXgDCQAAAgkApQgBCAUBUQZjYWxsZXIFAmFOBgkBAUoBAhFwZXJtaXNzaW9uIGRlbmllZAMJAAACBQJheAUCYXgEAmJmAwkAAAIFAWUCBnd4bG9jawYJAQFKAQIPaW52YWxpZCBwcm9ncmFtAwkAAAIFAmJmBQJiZgQCYmcDCQEIY29udGFpbnMCCQELdmFsdWVPckVsc2UCCQCiCAEJAQF6AQUBZgIABQFlBgkBAUoBCQCsAgIJAKwCAgkArAICAhhyZWZlcnJlciBub3QgaW4gcHJvZ3JhbT0FAWUCBiBhZGRyPQUBZgMJAAACBQJiZwUCYmcEAmJoAwkBCGNvbnRhaW5zAgkBC3ZhbHVlT3JFbHNlAgkAoggBCQEBegEFAWcCAAUBZQYJAQFKAQkArAICCQCsAgIJAKwCAgIYcmVmZXJyYWwgbm90IGluIHByb2dyYW09BQFlAgYgYWRkcj0FAWcDCQAAAgUCYmgFAmJoBAJiaQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBdAEFAWYAAAQCYUgJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAWsCBQFlBQFmAAAEAmJqCQELdmFsdWVPckVsc2UCCQCfCAEJAQF0AQUBZwAABAJiawkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBbAIFAWUFAWcAAAQCYUkJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAXYBBQFlAAAEAmJsCQBkAgUCYmkFAmJkBAJhSgkAZAIFAmFIBQJiZAQCYm0JAGQCBQJiagUCYmUEAmJuCQBkAgUCYmsFAmJlCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQF0AQUBZgUCYmwJAMwIAgkBDEludGVnZXJFbnRyeQIJAQF0AQUBZwUCYm0JAMwIAgkBDEludGVnZXJFbnRyeQIJAQFrAgUBZQUBZgUCYUoJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFsAgUBZQUBZwUCYm4JAMwIAgkBDEludGVnZXJFbnRyeQIJAQF2AQUBZQkAZAIJAGQCBQJhSQUCYmQFAmJlBQNuaWwFBHVuaXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BUQEXaW5jVW5jbGFpbWVkV2l0aFBheW1lbnQCAWUCYUQEAmJmAwkAAAIFAWUCCXd4U3BvdEZlZQYJAQFKAQIPaW52YWxpZCBwcm9ncmFtAwkAAAIFAmJmBQJiZgQCYm8JAKUIAQgFAVEGY2FsbGVyBAJicAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBQQEFAmJvAAAEAmJxCQBkAgkAZQIFAmJwBQZoZWlnaHQAAwQCYnIDCQBmAgkAZQIFBmhlaWdodAADBQJicAYJAQFKAQkAuQkCCQDMCAICBHdhaXQJAMwIAgkApAMBBQJicQkAzAgCAgZibG9ja3MFA25pbAIBIAMJAAACBQJicgUCYnIKAQJicwICYnQCYnUEAmJ2CQAAAgkA2AQBCQEFdmFsdWUBCAUCYnUHYXNzZXRJZAkBBXZhbHVlAQkAoggBCQEBdwEFAWUEAmJ3AwUCYnYGCQEBSgECEGludmFsaWQgYXNzZXQgaWQDCQAAAgUCYncFAmJ3CQDNCAIFAmJ0CAUCYnUGYW1vdW50CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAJieAoAAmJ5CAUBUQhwYXltZW50cwoAAmJ6CQCQAwEFAmJ5CgACYkEFA25pbAoBAmJCAgJiQwJiRAMJAGcCBQJiRAUCYnoFAmJDCQECYnMCBQJiQwkAkQMCBQJieQUCYkQKAQJiRQICYkMCYkQDCQBnAgUCYkQFAmJ6BQJiQwkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQECYkUCCQECYkICCQECYkICCQECYkICCQECYkICCQECYkICCQECYkICCQECYkICCQECYkICCQECYkICCQECYkICBQJiQQAAAAEAAgADAAQABQAGAAcACAAJAAoEAmFFCgACYkYJAPwHBAUEdGhpcwIfaW5jVW5jbGFpbWVkV2l0aFBheW1lbnRJbnRlcm5hbAkAzAgCBQJieAkAzAgCBQFlCQDMCAIFAmFECQDMCAIAAAkAzAgCAAAFA25pbAUDbmlsAwkAAQIFAmJGAgNJbnQFAmJGCQACAQkArAICCQADAQUCYkYCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAMJAAACBQJhRQUCYUUEAmFnCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEJAQF4AQUBZQQCYWgJANkEAQkBBXZhbHVlAQkAoggBCQEBdwEFAWUJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYWcFAmFFBQJhaAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAUEBBQJibwUGaGVpZ2h0BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BUQEFY2xhaW0BAWUEAVkDCQELdmFsdWVPckVsc2UCCQCgCAEJAQFuAQUBZQcGCQEBSgECFnByb2dyYW0gZG9lcyBub3QgZXhpc3QDCQAAAgUBWQUBWQQBWAkAAAIJAKUIAQgFAVEGY2FsbGVyCQEFdmFsdWUBCQCiCAEJAQF5AQUBZQQBaQMFAVgJAKUIAQgFAVEMb3JpZ2luQ2FsbGVyCQClCAEIBQFRBmNhbGxlcgQCYkcJAPwHBAUEdGhpcwINY2xhaW1JbnRlcm5hbAkAzAgCBQFlCQDMCAIFAWkJAMwIAgUBWAUDbmlsBQNuaWwDCQAAAgUCYkcFAmJHCQCUCgIFA25pbAUCYkcJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BUQEJY2xhaW1CdWxrAAQCYm8JAKUIAQgFAVEGY2FsbGVyBAJiSAkAoggBCQEBegEJAKUIAQgFAVEGY2FsbGVyBAJiSQMJAQlpc0RlZmluZWQBBQJiSAYJAQFKAQIUbm8gcmVmZXJyYWwgcHJvZ3JhbXMDCQAAAgUCYkkFAmJJBAJiSgkAtQkCCQEFdmFsdWUBBQJiSAICX18EAmJLCQD8BwQFBHRoaXMCEWNsYWltQnVsa0ludGVybmFsCQDMCAIFAmJvCQDMCAIFAmJKCQDMCAIAAAUDbmlsBQNuaWwDCQAAAgUCYksFAmJLCQCUCgIFA25pbAUCYksJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BUQENY2xhaW1SRUFET05MWQIBZQFFBAJhYQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBaAIFAWUFAUUAAAQCYWIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAWsCBQFlBQFFAAAJAJQKAgUDbmlsCQDMCAIFAmFiCQDMCAIFAmFhBQNuaWwBUQERY2xhaW1CdWxrUkVBRE9OTFkBAmF1BAJhaQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBcgEFAmF1AAAEAmFqCQELdmFsdWVPckVsc2UCCQCfCAEJAQF0AQUCYXUAAAkAlAoCBQNuaWwJAMwIAgUCYWoJAMwIAgUCYWkFA25pbAFRAQxzZXRUb3RhbEtleXMCAWUBcwQCYkwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAWgCBQFlBQFzAAAEAmJNCQELdmFsdWVPckVsc2UCCQCfCAEJAQFqAgUBZQUBcwAABAJhQQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEBawIFAWUFAXMAAAQCYk4JAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAWwCBQFlBQFzAAAEAmFpCQBkAgUCYkwFAmJNBAJhagkAZAIFAmFBBQJiTgkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBcgEFAXMFAmFpCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBdAEFAXMFAmFqBQNuaWwFBHVuaXQBUQEKc2V0TWFuYWdlcgECYk8EAmF4CQEBUAEFAVEDCQAAAgUCYXgFAmF4BAJiUAkA2QQBBQJiTwMJAAACBQJiUAUCYlAJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAUMABQJiTwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAVEBDmNvbmZpcm1NYW5hZ2VyAAQCYlEJAQFPAAQCYlIDCQEJaXNEZWZpbmVkAQUCYlEGCQEBSgECEm5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQJiUgUCYlIEAmJTAwkAAAIIBQFRD2NhbGxlclB1YmxpY0tleQkBBXZhbHVlAQUCYlEGCQEBSgECG3lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQJiUwUCYlMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAUIACQDYBAEJAQV2YWx1ZQEFAmJRCQDMCAIJAQtEZWxldGVFbnRyeQEJAQFDAAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJiVAECYlUABAJiVgQBTQkBAUwAAwkAAQIFAU0CCkJ5dGVWZWN0b3IEAVMFAU0FAVMDCQABAgUBTQIEVW5pdAgFAmJUD3NlbmRlclB1YmxpY0tleQkAAgECC01hdGNoIGVycm9yCQD0AwMIBQJiVAlib2R5Qnl0ZXMJAJEDAggFAmJUBnByb29mcwAABQJiVh+BG/4=",
    "chainId": 84,
    "height": 2411647,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 99nmnPvBm2aSz1jRiN6CCR9cSowfAwT9a1CAF29HBeRQ
Next: 3UH88heEP1uWs5zG6T9Bw1My5283R1HaAVxzDWUqQqix

Diff: 
Old
New
Differences
60
60
 
61
61
 
62
62
 
func keyAllReferralPrograms (address) = makeString(["%s%s", "allReferralPrograms", address], separator)
63
+
64
+
65
+
func keyLastIncUnclaimedWithPaymentCallBlock (address) = makeString(["%s%s", "lastIncUnclaimedWithPaymentCallBlock", address], separator)
63
66
 
64
67
 
65
68
 
func keyManagerPublicKey () = "%s__managerPublicKey"
135
138
 
        else throwErr("program does not exist")
136
139
 
    if ((checkProgramExists == checkProgramExists))
137
140
 
        then {
138
-
            let $t046775614 = if (isImplementationContract)
141
+
            let $t048215758 = if (isImplementationContract)
139
142
 
                then $Tuple5(valueOrElse(getInteger(keyClaimedReferral(programName, claimerAddress)), 0), valueOrElse(getInteger(keyUnclaimedReferral(programName, claimerAddress)), 0), keyClaimedReferral(programName, claimerAddress), keyUnclaimedReferral(programName, claimerAddress), keyClaimHistory(programName, claimerAddress, toBase58String(i.transactionId), "claimReferral"))
140
143
 
                else $Tuple5(valueOrElse(getInteger(keyClaimedReferrer(programName, claimerAddress)), 0), valueOrElse(getInteger(keyUnclaimedReferrer(programName, claimerAddress)), 0), keyClaimedReferrer(programName, claimerAddress), keyUnclaimedReferrer(programName, claimerAddress), keyClaimHistory(programName, claimerAddress, toBase58String(i.transactionId), "claimReferrer"))
141
-
            let claimerClaimed = $t046775614._1
142
-
            let claimerUnclaimed = $t046775614._2
143
-
            let keyClaimed = $t046775614._3
144
-
            let keyUnclaimed = $t046775614._4
145
-
            let claimHistoryKey = $t046775614._5
144
+
            let claimerClaimed = $t048215758._1
145
+
            let claimerUnclaimed = $t048215758._2
146
+
            let keyClaimed = $t048215758._3
147
+
            let keyUnclaimed = $t048215758._4
148
+
            let claimHistoryKey = $t048215758._5
146
149
 
            let claimedTotal = valueOrElse(getInteger(keyClaimedTotal(programName)), 0)
147
150
 
            let treasuryContract = value(addressFromString(value(getString(keyTreasuryContract(programName)))))
148
151
 
            let rewardAssetId = fromBase58String(value(getString(keyRewardAssetId(programName))))
423
426
 
        else throwErr("invalid program")
424
427
 
    if ((checkProgram == checkProgram))
425
428
 
        then {
426
-
            func map (accum,next) =             {
427
-
                let assetIdCheck = (toBase58String(value(next.assetId)) == value(getString(keyRewardAssetId(programName))))
428
-
                let amountCheck = if (assetIdCheck)
429
-
                    then true
430
-
                    else throwErr("invalid asset id")
431
-
                if ((amountCheck == amountCheck))
432
-
                    then (accum :+ next.amount)
433
-
                    else throw("Strict value is not equal to itself.")
434
-
                }
429
+
            let callerAddress = toString(i.caller)
430
+
            let lastCall = valueOrElse(getInteger(keyLastIncUnclaimedWithPaymentCallBlock(callerAddress)), 0)
431
+
            let waitBlocks = ((lastCall - height) + 3)
432
+
            let lastCallCheck = if (((height - 3) > lastCall))
433
+
                then true
434
+
                else throwErr(makeString(["wait", toString(waitBlocks), "blocks"], " "))
435
+
            if ((lastCallCheck == lastCallCheck))
436
+
                then {
437
+
                    func map (accum,next) =                     {
438
+
                        let assetIdCheck = (toBase58String(value(next.assetId)) == value(getString(keyRewardAssetId(programName))))
439
+
                        let amountCheck = if (assetIdCheck)
440
+
                            then true
441
+
                            else throwErr("invalid asset id")
442
+
                        if ((amountCheck == amountCheck))
443
+
                            then (accum :+ next.amount)
444
+
                            else throw("Strict value is not equal to itself.")
445
+
                        }
435
446
 
436
-
            let payments = {
437
-
                let $l = i.payments
438
-
                let $s = size($l)
439
-
                let $acc0 = nil
440
-
                func $f0_1 ($a,$i) =                 if (($i >= $s))
441
-
                    then $a
442
-
                    else map($a, $l[$i])
447
+
                    let payments = {
448
+
                        let $l = i.payments
449
+
                        let $s = size($l)
450
+
                        let $acc0 = nil
451
+
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
452
+
                            then $a
453
+
                            else map($a, $l[$i])
443
454
 
444
-
                func $f0_2 ($a,$i) =                 if (($i >= $s))
445
-
                    then $a
446
-
                    else throw("List size exceeds 10")
455
+
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
456
+
                            then $a
457
+
                            else throw("List size exceeds 10")
447
458
 
448
-
                $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)
449
-
                }
450
-
            let resAmount = {
451
-
                let @ = invoke(this, "incUnclaimedWithPaymentInternal", [payments, programName, referrerAddresses, 0, 0], nil)
452
-
                if ($isInstanceOf(@, "Int"))
453
-
                    then @
454
-
                    else throw(($getType(@) + " couldn't be cast to Int"))
455
-
                }
456
-
            if ((resAmount == resAmount))
457
-
                then {
458
-
                    let treasuryContract = addressFromStringValue(value(getString(keyTreasuryContract(programName))))
459
-
                    let rewardAssetId = fromBase58String(value(getString(keyRewardAssetId(programName))))
460
-
[ScriptTransfer(treasuryContract, resAmount, rewardAssetId)]
459
+
                        $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)
460
+
                        }
461
+
                    let resAmount = {
462
+
                        let @ = invoke(this, "incUnclaimedWithPaymentInternal", [payments, programName, referrerAddresses, 0, 0], nil)
463
+
                        if ($isInstanceOf(@, "Int"))
464
+
                            then @
465
+
                            else throw(($getType(@) + " couldn't be cast to Int"))
466
+
                        }
467
+
                    if ((resAmount == resAmount))
468
+
                        then {
469
+
                            let treasuryContract = addressFromStringValue(value(getString(keyTreasuryContract(programName))))
470
+
                            let rewardAssetId = fromBase58String(value(getString(keyRewardAssetId(programName))))
471
+
[ScriptTransfer(treasuryContract, resAmount, rewardAssetId), IntegerEntry(keyLastIncUnclaimedWithPaymentCallBlock(callerAddress), height)]
472
+
                            }
473
+
                        else throw("Strict value is not equal to itself.")
461
474
 
                    }
462
475
 
                else throw("Strict value is not equal to itself.")
463
476
 
            }
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let separator = "__"
5
5
 
6
6
 
func keyWxAssetId () = makeString(["%s", "wxAssetId"], separator)
7
7
 
8
8
 
9
9
 
let keyBackendPublicKey = makeString(["%s", "backendPublicKey"], separator)
10
10
 
11
11
 
func keyExistsReferrerToReferral (programName,referrerAddress,referralAddress) = makeString(["%s%s%s%s", "existsReferrerToReferral", programName, referrerAddress, referralAddress], separator)
12
12
 
13
13
 
14
14
 
func keyClaimedReferrer (programName,claimerAddress) = makeString(["%s%s%s", "claimedReferrer", programName, claimerAddress], separator)
15
15
 
16
16
 
17
17
 
func keyClaimedReferral (programName,claimerAddress) = makeString(["%s%s%s", "claimedReferral", programName, claimerAddress], separator)
18
18
 
19
19
 
20
20
 
func keyUnclaimedReferrer (programName,claimerAddress) = makeString(["%s%s%s", "unclaimedReferrer", programName, claimerAddress], separator)
21
21
 
22
22
 
23
23
 
func keyUnclaimedReferral (programName,claimerAddress) = makeString(["%s%s%s", "unclaimedReferral", programName, claimerAddress], separator)
24
24
 
25
25
 
26
26
 
func keyReferrer (programName,referralAddress) = makeString(["%s%s%s", "referrer", programName, referralAddress], separator)
27
27
 
28
28
 
29
29
 
func keyProgramName (programName) = makeString(["%s%s", "programName", programName], separator)
30
30
 
31
31
 
32
32
 
func keyTotalReferralCount (programName,referrerAddress) = makeString(["%s%s%s", "totalReferralCount", programName, referrerAddress], separator)
33
33
 
34
34
 
35
35
 
func keyActiveReferralCount (programName,referrerAddress) = makeString(["%s%s%s", "activeReferralCount", programName, referrerAddress], separator)
36
36
 
37
37
 
38
38
 
func keyIsReferralActive (programName,referralAddress) = makeString(["%s%s%s", "activeReferral", programName, referralAddress], separator)
39
39
 
40
40
 
41
41
 
func keyClaimedTotalAddress (address) = makeString(["%s%s", "claimedTotalAddress", address], separator)
42
42
 
43
43
 
44
44
 
func keyUnclaimedTotalAddress (address) = makeString(["%s%s", "unclaimedTotalAddress", address], separator)
45
45
 
46
46
 
47
47
 
func keyClaimedTotal (programName) = makeString(["%s%s", "claimedTotal", programName], separator)
48
48
 
49
49
 
50
50
 
func keyRewardsTotal (programName) = makeString(["%s%s", "rewardsTotal", programName], separator)
51
51
 
52
52
 
53
53
 
func keyRewardAssetId (programName) = makeString(["%s%s", "rewardAssetId", programName], separator)
54
54
 
55
55
 
56
56
 
func keyTreasuryContract (programName) = makeString(["%s%s", "treasuryContract", programName], separator)
57
57
 
58
58
 
59
59
 
func keyImplementationContract (programName) = makeString(["%s%s", "implementationContract", programName], separator)
60
60
 
61
61
 
62
62
 
func keyAllReferralPrograms (address) = makeString(["%s%s", "allReferralPrograms", address], separator)
63
+
64
+
65
+
func keyLastIncUnclaimedWithPaymentCallBlock (address) = makeString(["%s%s", "lastIncUnclaimedWithPaymentCallBlock", address], separator)
63
66
 
64
67
 
65
68
 
func keyManagerPublicKey () = "%s__managerPublicKey"
66
69
 
67
70
 
68
71
 
func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
69
72
 
70
73
 
71
74
 
func keyClaimHistory (programName,userAddress,transactionId,type) = makeString(["%s%s%s%s%s", "history", type, programName, userAddress, transactionId], separator)
72
75
 
73
76
 
74
77
 
func formatClaimHistory (amount) = makeString(["%d%d%d", toString(lastBlock.height), toString(lastBlock.timestamp), toString(amount)], separator)
75
78
 
76
79
 
77
80
 
func throwErr (msg) = throw(makeString(["referral.ride:", msg], " "))
78
81
 
79
82
 
80
83
 
func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
81
84
 
    case s: String => 
82
85
 
        fromBase58String(s)
83
86
 
    case _: Unit => 
84
87
 
        unit
85
88
 
    case _ => 
86
89
 
        throw("Match error")
87
90
 
}
88
91
 
89
92
 
90
93
 
func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
91
94
 
    case s: String => 
92
95
 
        fromBase58String(s)
93
96
 
    case _: Unit => 
94
97
 
        unit
95
98
 
    case _ => 
96
99
 
        throw("Match error")
97
100
 
}
98
101
 
99
102
 
100
103
 
func mustManager (i) = {
101
104
 
    let pd = throwErr("permission denied")
102
105
 
    match managerPublicKeyOrUnit() {
103
106
 
        case pk: ByteVector => 
104
107
 
            if ((i.callerPublicKey == pk))
105
108
 
                then true
106
109
 
                else pd
107
110
 
        case _: Unit => 
108
111
 
            if ((i.caller == this))
109
112
 
                then true
110
113
 
                else pd
111
114
 
        case _ => 
112
115
 
            throw("Match error")
113
116
 
    }
114
117
 
    }
115
118
 
116
119
 
117
120
 
func updateAllReferralPrograms (address,programName) = {
118
121
 
    let allReferralPrograms = valueOrElse(getString(keyAllReferralPrograms(address)), "")
119
122
 
    let updatedAllReferralPrograms = if (contains(allReferralPrograms, programName))
120
123
 
        then nil
121
124
 
        else {
122
125
 
            let newAllReferralPrograms = if ((allReferralPrograms == ""))
123
126
 
                then programName
124
127
 
                else makeString([allReferralPrograms, programName], separator)
125
128
 
[StringEntry(keyAllReferralPrograms(address), newAllReferralPrograms)]
126
129
 
            }
127
130
 
    updatedAllReferralPrograms
128
131
 
    }
129
132
 
130
133
 
131
134
 
@Callable(i)
132
135
 
func claimInternal (programName,claimerAddress,isImplementationContract) = {
133
136
 
    let checkProgramExists = if (valueOrElse(getBoolean(keyProgramName(programName)), false))
134
137
 
        then true
135
138
 
        else throwErr("program does not exist")
136
139
 
    if ((checkProgramExists == checkProgramExists))
137
140
 
        then {
138
-
            let $t046775614 = if (isImplementationContract)
141
+
            let $t048215758 = if (isImplementationContract)
139
142
 
                then $Tuple5(valueOrElse(getInteger(keyClaimedReferral(programName, claimerAddress)), 0), valueOrElse(getInteger(keyUnclaimedReferral(programName, claimerAddress)), 0), keyClaimedReferral(programName, claimerAddress), keyUnclaimedReferral(programName, claimerAddress), keyClaimHistory(programName, claimerAddress, toBase58String(i.transactionId), "claimReferral"))
140
143
 
                else $Tuple5(valueOrElse(getInteger(keyClaimedReferrer(programName, claimerAddress)), 0), valueOrElse(getInteger(keyUnclaimedReferrer(programName, claimerAddress)), 0), keyClaimedReferrer(programName, claimerAddress), keyUnclaimedReferrer(programName, claimerAddress), keyClaimHistory(programName, claimerAddress, toBase58String(i.transactionId), "claimReferrer"))
141
-
            let claimerClaimed = $t046775614._1
142
-
            let claimerUnclaimed = $t046775614._2
143
-
            let keyClaimed = $t046775614._3
144
-
            let keyUnclaimed = $t046775614._4
145
-
            let claimHistoryKey = $t046775614._5
144
+
            let claimerClaimed = $t048215758._1
145
+
            let claimerUnclaimed = $t048215758._2
146
+
            let keyClaimed = $t048215758._3
147
+
            let keyUnclaimed = $t048215758._4
148
+
            let claimHistoryKey = $t048215758._5
146
149
 
            let claimedTotal = valueOrElse(getInteger(keyClaimedTotal(programName)), 0)
147
150
 
            let treasuryContract = value(addressFromString(value(getString(keyTreasuryContract(programName)))))
148
151
 
            let rewardAssetId = fromBase58String(value(getString(keyRewardAssetId(programName))))
149
152
 
            let claimedTotalAddress = valueOrElse(getInteger(keyClaimedTotalAddress(claimerAddress)), 0)
150
153
 
            let unclaimedTotalAddress = valueOrElse(getInteger(keyUnclaimedTotalAddress(claimerAddress)), 0)
151
154
 
            if (if (isImplementationContract)
152
155
 
                then (claimerUnclaimed == 0)
153
156
 
                else false)
154
157
 
                then $Tuple2(nil, 0)
155
158
 
                else {
156
159
 
                    let checkCanClaim = if ((claimerUnclaimed > 0))
157
160
 
                        then true
158
161
 
                        else throwErr("nothing to claim")
159
162
 
                    if ((checkCanClaim == checkCanClaim))
160
163
 
                        then {
161
164
 
                            let newClaimerClaimed = (claimerClaimed + claimerUnclaimed)
162
165
 
                            let newClaimedTotal = (claimedTotal + claimerUnclaimed)
163
166
 
                            let newClaimedTotalAddress = (claimedTotalAddress + claimerUnclaimed)
164
167
 
                            let newUnclaimedTotalAddress = (unclaimedTotalAddress - claimerUnclaimed)
165
168
 
                            let balanceBefore = value(assetBalance(this, rewardAssetId))
166
169
 
                            if ((balanceBefore == balanceBefore))
167
170
 
                                then {
168
171
 
                                    let res = invoke(treasuryContract, "withdrawReferralReward", [claimerUnclaimed], nil)
169
172
 
                                    if ((res == res))
170
173
 
                                        then {
171
174
 
                                            let balanceAfter = value(assetBalance(this, rewardAssetId))
172
175
 
                                            if ((balanceAfter == balanceAfter))
173
176
 
                                                then {
174
177
 
                                                    let balanceDiff = (balanceAfter - balanceBefore)
175
178
 
                                                    if ((balanceDiff == balanceDiff))
176
179
 
                                                        then {
177
180
 
                                                            let checkBalance = if ((balanceDiff == claimerUnclaimed))
178
181
 
                                                                then true
179
182
 
                                                                else throwErr("insufficient balance on referral contract")
180
183
 
                                                            if ((checkBalance == checkBalance))
181
184
 
                                                                then $Tuple2([IntegerEntry(keyClaimed, newClaimerClaimed), IntegerEntry(keyUnclaimed, 0), IntegerEntry(keyClaimedTotal(programName), newClaimedTotal), IntegerEntry(keyClaimedTotalAddress(claimerAddress), newClaimedTotalAddress), IntegerEntry(keyUnclaimedTotalAddress(claimerAddress), newUnclaimedTotalAddress), ScriptTransfer(addressFromStringValue(claimerAddress), claimerUnclaimed, rewardAssetId), StringEntry(claimHistoryKey, formatClaimHistory(claimerUnclaimed))], claimerUnclaimed)
182
185
 
                                                                else throw("Strict value is not equal to itself.")
183
186
 
                                                            }
184
187
 
                                                        else throw("Strict value is not equal to itself.")
185
188
 
                                                    }
186
189
 
                                                else throw("Strict value is not equal to itself.")
187
190
 
                                            }
188
191
 
                                        else throw("Strict value is not equal to itself.")
189
192
 
                                    }
190
193
 
                                else throw("Strict value is not equal to itself.")
191
194
 
                            }
192
195
 
                        else throw("Strict value is not equal to itself.")
193
196
 
                    }
194
197
 
            }
195
198
 
        else throw("Strict value is not equal to itself.")
196
199
 
    }
197
200
 
198
201
 
199
202
 
200
203
 
@Callable(i)
201
204
 
func claimBulkInternal (claimer,programNames,currentIter) = {
202
205
 
    let checkCaller = if ((i.caller == this))
203
206
 
        then true
204
207
 
        else throwErr("permission denied")
205
208
 
    if ((checkCaller == checkCaller))
206
209
 
        then if ((currentIter == size(programNames)))
207
210
 
            then nil
208
211
 
            else {
209
212
 
                let programName = programNames[currentIter]
210
213
 
                let programUnclaimed = valueOrElse(getInteger(keyUnclaimedReferrer(programName, claimer)), 0)
211
214
 
                let claimHistoryKey = keyClaimHistory(programName, claimer, toBase58String(i.transactionId), "claimBulk")
212
215
 
                let claimBulkInternal = invoke(this, "claimBulkInternal", [claimer, programNames, (currentIter + 1)], nil)
213
216
 
                if ((claimBulkInternal == claimBulkInternal))
214
217
 
                    then {
215
218
 
                        let unclaimedReferrer = valueOrElse(getInteger(keyUnclaimedReferrer(programName, claimer)), 0)
216
219
 
                        let claim = if ((unclaimedReferrer > 0))
217
220
 
                            then invoke(this, "claimInternal", [programName, claimer, false], nil)
218
221
 
                            else unit
219
222
 
                        if ((claim == claim))
220
223
 
                            then $Tuple2(nil, [claimBulkInternal, claim])
221
224
 
                            else throw("Strict value is not equal to itself.")
222
225
 
                        }
223
226
 
                    else throw("Strict value is not equal to itself.")
224
227
 
                }
225
228
 
        else throw("Strict value is not equal to itself.")
226
229
 
    }
227
230
 
228
231
 
229
232
 
230
233
 
@Callable(i)
231
234
 
func incUnclaimedWithPaymentInternal (paymentAmounts,programName,referrerAddresses,currentIter,resAmount) = {
232
235
 
    let checkCaller = if ((i.caller == this))
233
236
 
        then true
234
237
 
        else throwErr("permission denied")
235
238
 
    if ((checkCaller == checkCaller))
236
239
 
        then {
237
240
 
            let argsComparison = (size(paymentAmounts) == size(referrerAddresses))
238
241
 
            let check = if (argsComparison)
239
242
 
                then true
240
243
 
                else throwErr("lists in args must be same size")
241
244
 
            if ((check == check))
242
245
 
                then if ((currentIter == size(paymentAmounts)))
243
246
 
                    then $Tuple2(nil, resAmount)
244
247
 
                    else {
245
248
 
                        let referrerAddress = referrerAddresses[currentIter]
246
249
 
                        let unclaimedTotalAddress = valueOrElse(getInteger(keyUnclaimedTotalAddress(referrerAddress)), 0)
247
250
 
                        let referrerUnclaimed = valueOrElse(getInteger(keyUnclaimedReferrer(programName, referrerAddress)), 0)
248
251
 
                        let rewardsTotal = valueOrElse(getInteger(keyRewardsTotal(programName)), 0)
249
252
 
                        let newUnclaimedTotalAddress = (unclaimedTotalAddress + paymentAmounts[currentIter])
250
253
 
                        let newReferrerUnclaimed = (referrerUnclaimed + paymentAmounts[currentIter])
251
254
 
                        let newResAmount = (resAmount + paymentAmounts[currentIter])
252
255
 
                        let inv = invoke(this, "incUnclaimedWithPaymentInternal", [paymentAmounts, programName, referrerAddresses, (currentIter + 1), newResAmount], nil)
253
256
 
                        if ((inv == inv))
254
257
 
                            then {
255
258
 
                                let updatedAllReferrerPrograms = updateAllReferralPrograms(referrerAddress, programName)
256
259
 
                                $Tuple2(([IntegerEntry(keyUnclaimedTotalAddress(referrerAddress), newUnclaimedTotalAddress), IntegerEntry(keyUnclaimedReferrer(programName, referrerAddress), newReferrerUnclaimed), IntegerEntry(keyRewardsTotal(programName), (rewardsTotal + paymentAmounts[currentIter]))] ++ updatedAllReferrerPrograms), inv)
257
260
 
                                }
258
261
 
                            else throw("Strict value is not equal to itself.")
259
262
 
                        }
260
263
 
                else throw("Strict value is not equal to itself.")
261
264
 
            }
262
265
 
        else throw("Strict value is not equal to itself.")
263
266
 
    }
264
267
 
265
268
 
266
269
 
267
270
 
@Callable(i)
268
271
 
func createReferralProgram (programName,treasuryContract,implementationContract,rewardAssetId) = {
269
272
 
    let checkCaller = mustManager(i)
270
273
 
    if ((checkCaller == checkCaller))
271
274
 
        then {
272
275
 
            let checkProgramName = if ((getBoolean(keyProgramName(programName)) == unit))
273
276
 
                then true
274
277
 
                else throwErr("program name already exists")
275
278
 
            if ((checkProgramName == checkProgramName))
276
279
 
                then {
277
280
 
                    let programNameIsValid = if (!(contains(programName, separator)))
278
281
 
                        then !(contains(programName, " "))
279
282
 
                        else false
280
283
 
                    let checkProgramExists = if (programNameIsValid)
281
284
 
                        then true
282
285
 
                        else throwErr("invalid program name")
283
286
 
                    if ((checkProgramExists == checkProgramExists))
284
287
 
                        then {
285
288
 
                            let checkRewardAsset = if ((assetInfo(fromBase58String(rewardAssetId)) != unit))
286
289
 
                                then true
287
290
 
                                else throwErr("invalid reward asset id")
288
291
 
                            if ((checkRewardAsset == checkRewardAsset))
289
292
 
                                then $Tuple2([BooleanEntry(keyProgramName(programName), true), StringEntry(keyTreasuryContract(programName), treasuryContract), StringEntry(keyImplementationContract(programName), implementationContract), StringEntry(keyRewardAssetId(programName), rewardAssetId), IntegerEntry(keyRewardsTotal(programName), 0)], unit)
290
293
 
                                else throw("Strict value is not equal to itself.")
291
294
 
                            }
292
295
 
                        else throw("Strict value is not equal to itself.")
293
296
 
                    }
294
297
 
                else throw("Strict value is not equal to itself.")
295
298
 
            }
296
299
 
        else throw("Strict value is not equal to itself.")
297
300
 
    }
298
301
 
299
302
 
300
303
 
301
304
 
@Callable(i)
302
305
 
func createPair (programName,referrerAddress,referralAddress,signature) = {
303
306
 
    let checkProgramExists = if (valueOrElse(getBoolean(keyProgramName(programName)), false))
304
307
 
        then true
305
308
 
        else throwErr("program does not exist")
306
309
 
    if ((checkProgramExists == checkProgramExists))
307
310
 
        then {
308
311
 
            let pairReferrerToReferralExistCheck = if ((getBoolean(keyExistsReferrerToReferral(programName, referrerAddress, referralAddress)) == unit))
309
312
 
                then true
310
313
 
                else throwErr("pair already exists")
311
314
 
            if ((pairReferrerToReferralExistCheck == pairReferrerToReferralExistCheck))
312
315
 
                then {
313
316
 
                    let noRefSelf = if ((referrerAddress != referralAddress))
314
317
 
                        then true
315
318
 
                        else throwErr("cannot refer to self")
316
319
 
                    if ((noRefSelf == noRefSelf))
317
320
 
                        then {
318
321
 
                            let pair = toBytes(makeString([programName, referrerAddress, referralAddress], ":"))
319
322
 
                            let backendPublicKey = fromBase58String(value(getString(keyBackendPublicKey)))
320
323
 
                            let validateSignature = if (sigVerify(pair, signature, backendPublicKey))
321
324
 
                                then true
322
325
 
                                else throwErr("bad signature")
323
326
 
                            if ((validateSignature == validateSignature))
324
327
 
                                then {
325
328
 
                                    let totalReferralCount = valueOrElse(getInteger(keyTotalReferralCount(programName, referrerAddress)), 0)
326
329
 
                                    let newTotalReferralCount = (totalReferralCount + 1)
327
330
 
                                    let updatedAllReferrerPrograms = updateAllReferralPrograms(referrerAddress, programName)
328
331
 
                                    let updatedAllReferralPrograms = updateAllReferralPrograms(referralAddress, programName)
329
332
 
                                    $Tuple2((([BooleanEntry(keyExistsReferrerToReferral(programName, referrerAddress, referralAddress), true), IntegerEntry(keyTotalReferralCount(programName, referrerAddress), newTotalReferralCount), StringEntry(keyReferrer(programName, referralAddress), referrerAddress)] ++ updatedAllReferrerPrograms) ++ updatedAllReferralPrograms), unit)
330
333
 
                                    }
331
334
 
                                else throw("Strict value is not equal to itself.")
332
335
 
                            }
333
336
 
                        else throw("Strict value is not equal to itself.")
334
337
 
                    }
335
338
 
                else throw("Strict value is not equal to itself.")
336
339
 
            }
337
340
 
        else throw("Strict value is not equal to itself.")
338
341
 
    }
339
342
 
340
343
 
341
344
 
342
345
 
@Callable(i)
343
346
 
func updateReferralActivity (programName,referralAddress,isActive) = {
344
347
 
    let implementationContract = value(getString(keyImplementationContract(programName)))
345
348
 
    let isReferralActive = (getBoolean(keyIsReferralActive(programName, referralAddress)) != unit)
346
349
 
    let referrerAddress = value(getString(keyReferrer(programName, referralAddress)))
347
350
 
    let checkCaller = if ((toString(i.caller) == implementationContract))
348
351
 
        then true
349
352
 
        else throwErr("permission denied")
350
353
 
    if ((checkCaller == checkCaller))
351
354
 
        then {
352
355
 
            let update = if ((isReferralActive == isActive))
353
356
 
                then $Tuple2(nil, unit)
354
357
 
                else {
355
358
 
                    let update = if ((isActive == true))
356
359
 
                        then {
357
360
 
                            let newActiveReferralCount = (valueOrElse(getInteger(keyActiveReferralCount(programName, referrerAddress)), 0) + 1)
358
361
 
                            $Tuple2([BooleanEntry(keyIsReferralActive(programName, referralAddress), true), IntegerEntry(keyActiveReferralCount(programName, referrerAddress), newActiveReferralCount)], unit)
359
362
 
                            }
360
363
 
                        else {
361
364
 
                            let newActiveReferralCount = (valueOrElse(getInteger(keyActiveReferralCount(programName, referrerAddress)), 0) - 1)
362
365
 
                            $Tuple2([DeleteEntry(keyIsReferralActive(programName, referralAddress)), IntegerEntry(keyActiveReferralCount(programName, referrerAddress), newActiveReferralCount)], unit)
363
366
 
                            }
364
367
 
                    update
365
368
 
                    }
366
369
 
            update
367
370
 
            }
368
371
 
        else throw("Strict value is not equal to itself.")
369
372
 
    }
370
373
 
371
374
 
372
375
 
373
376
 
@Callable(i)
374
377
 
func incUnclaimed (programName,referralAddress,referrerReward,referralReward) = {
375
378
 
    let implementationContract = value(getString(keyImplementationContract(programName)))
376
379
 
    let referrerAddress = value(getString(keyReferrer(programName, referralAddress)))
377
380
 
    let checkCaller = if ((toString(i.caller) == implementationContract))
378
381
 
        then true
379
382
 
        else throwErr("permission denied")
380
383
 
    if ((checkCaller == checkCaller))
381
384
 
        then {
382
385
 
            let checkProgram = if ((programName == "wxlock"))
383
386
 
                then true
384
387
 
                else throwErr("invalid program")
385
388
 
            if ((checkProgram == checkProgram))
386
389
 
                then {
387
390
 
                    let checkReferrerInProgram = if (contains(valueOrElse(getString(keyAllReferralPrograms(referrerAddress)), ""), programName))
388
391
 
                        then true
389
392
 
                        else throwErr(((("referrer not in program=" + programName) + " addr=") + referrerAddress))
390
393
 
                    if ((checkReferrerInProgram == checkReferrerInProgram))
391
394
 
                        then {
392
395
 
                            let checkReferralInProgram = if (contains(valueOrElse(getString(keyAllReferralPrograms(referralAddress)), ""), programName))
393
396
 
                                then true
394
397
 
                                else throwErr(((("referral not in program=" + programName) + " addr=") + referralAddress))
395
398
 
                            if ((checkReferralInProgram == checkReferralInProgram))
396
399
 
                                then {
397
400
 
                                    let unclaimedTotalReferrer = valueOrElse(getInteger(keyUnclaimedTotalAddress(referrerAddress)), 0)
398
401
 
                                    let referrerUnclaimed = valueOrElse(getInteger(keyUnclaimedReferrer(programName, referrerAddress)), 0)
399
402
 
                                    let unclaimedTotalReferral = valueOrElse(getInteger(keyUnclaimedTotalAddress(referralAddress)), 0)
400
403
 
                                    let referralUnclaimed = valueOrElse(getInteger(keyUnclaimedReferral(programName, referralAddress)), 0)
401
404
 
                                    let rewardsTotal = valueOrElse(getInteger(keyRewardsTotal(programName)), 0)
402
405
 
                                    let newUnclaimedTotalReferrer = (unclaimedTotalReferrer + referrerReward)
403
406
 
                                    let newReferrerUnclaimed = (referrerUnclaimed + referrerReward)
404
407
 
                                    let newUnclaimedTotalReferral = (unclaimedTotalReferral + referralReward)
405
408
 
                                    let newReferralUnclaimed = (referralUnclaimed + referralReward)
406
409
 
                                    $Tuple2([IntegerEntry(keyUnclaimedTotalAddress(referrerAddress), newUnclaimedTotalReferrer), IntegerEntry(keyUnclaimedTotalAddress(referralAddress), newUnclaimedTotalReferral), IntegerEntry(keyUnclaimedReferrer(programName, referrerAddress), newReferrerUnclaimed), IntegerEntry(keyUnclaimedReferral(programName, referralAddress), newReferralUnclaimed), IntegerEntry(keyRewardsTotal(programName), ((rewardsTotal + referrerReward) + referralReward))], unit)
407
410
 
                                    }
408
411
 
                                else throw("Strict value is not equal to itself.")
409
412
 
                            }
410
413
 
                        else throw("Strict value is not equal to itself.")
411
414
 
                    }
412
415
 
                else throw("Strict value is not equal to itself.")
413
416
 
            }
414
417
 
        else throw("Strict value is not equal to itself.")
415
418
 
    }
416
419
 
417
420
 
418
421
 
419
422
 
@Callable(i)
420
423
 
func incUnclaimedWithPayment (programName,referrerAddresses) = {
421
424
 
    let checkProgram = if ((programName == "wxSpotFee"))
422
425
 
        then true
423
426
 
        else throwErr("invalid program")
424
427
 
    if ((checkProgram == checkProgram))
425
428
 
        then {
426
-
            func map (accum,next) =             {
427
-
                let assetIdCheck = (toBase58String(value(next.assetId)) == value(getString(keyRewardAssetId(programName))))
428
-
                let amountCheck = if (assetIdCheck)
429
-
                    then true
430
-
                    else throwErr("invalid asset id")
431
-
                if ((amountCheck == amountCheck))
432
-
                    then (accum :+ next.amount)
433
-
                    else throw("Strict value is not equal to itself.")
434
-
                }
429
+
            let callerAddress = toString(i.caller)
430
+
            let lastCall = valueOrElse(getInteger(keyLastIncUnclaimedWithPaymentCallBlock(callerAddress)), 0)
431
+
            let waitBlocks = ((lastCall - height) + 3)
432
+
            let lastCallCheck = if (((height - 3) > lastCall))
433
+
                then true
434
+
                else throwErr(makeString(["wait", toString(waitBlocks), "blocks"], " "))
435
+
            if ((lastCallCheck == lastCallCheck))
436
+
                then {
437
+
                    func map (accum,next) =                     {
438
+
                        let assetIdCheck = (toBase58String(value(next.assetId)) == value(getString(keyRewardAssetId(programName))))
439
+
                        let amountCheck = if (assetIdCheck)
440
+
                            then true
441
+
                            else throwErr("invalid asset id")
442
+
                        if ((amountCheck == amountCheck))
443
+
                            then (accum :+ next.amount)
444
+
                            else throw("Strict value is not equal to itself.")
445
+
                        }
435
446
 
436
-
            let payments = {
437
-
                let $l = i.payments
438
-
                let $s = size($l)
439
-
                let $acc0 = nil
440
-
                func $f0_1 ($a,$i) =                 if (($i >= $s))
441
-
                    then $a
442
-
                    else map($a, $l[$i])
447
+
                    let payments = {
448
+
                        let $l = i.payments
449
+
                        let $s = size($l)
450
+
                        let $acc0 = nil
451
+
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
452
+
                            then $a
453
+
                            else map($a, $l[$i])
443
454
 
444
-
                func $f0_2 ($a,$i) =                 if (($i >= $s))
445
-
                    then $a
446
-
                    else throw("List size exceeds 10")
455
+
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
456
+
                            then $a
457
+
                            else throw("List size exceeds 10")
447
458
 
448
-
                $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)
449
-
                }
450
-
            let resAmount = {
451
-
                let @ = invoke(this, "incUnclaimedWithPaymentInternal", [payments, programName, referrerAddresses, 0, 0], nil)
452
-
                if ($isInstanceOf(@, "Int"))
453
-
                    then @
454
-
                    else throw(($getType(@) + " couldn't be cast to Int"))
455
-
                }
456
-
            if ((resAmount == resAmount))
457
-
                then {
458
-
                    let treasuryContract = addressFromStringValue(value(getString(keyTreasuryContract(programName))))
459
-
                    let rewardAssetId = fromBase58String(value(getString(keyRewardAssetId(programName))))
460
-
[ScriptTransfer(treasuryContract, resAmount, rewardAssetId)]
459
+
                        $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)
460
+
                        }
461
+
                    let resAmount = {
462
+
                        let @ = invoke(this, "incUnclaimedWithPaymentInternal", [payments, programName, referrerAddresses, 0, 0], nil)
463
+
                        if ($isInstanceOf(@, "Int"))
464
+
                            then @
465
+
                            else throw(($getType(@) + " couldn't be cast to Int"))
466
+
                        }
467
+
                    if ((resAmount == resAmount))
468
+
                        then {
469
+
                            let treasuryContract = addressFromStringValue(value(getString(keyTreasuryContract(programName))))
470
+
                            let rewardAssetId = fromBase58String(value(getString(keyRewardAssetId(programName))))
471
+
[ScriptTransfer(treasuryContract, resAmount, rewardAssetId), IntegerEntry(keyLastIncUnclaimedWithPaymentCallBlock(callerAddress), height)]
472
+
                            }
473
+
                        else throw("Strict value is not equal to itself.")
461
474
 
                    }
462
475
 
                else throw("Strict value is not equal to itself.")
463
476
 
            }
464
477
 
        else throw("Strict value is not equal to itself.")
465
478
 
    }
466
479
 
467
480
 
468
481
 
469
482
 
@Callable(i)
470
483
 
func claim (programName) = {
471
484
 
    let checkProgramExists = if (valueOrElse(getBoolean(keyProgramName(programName)), false))
472
485
 
        then true
473
486
 
        else throwErr("program does not exist")
474
487
 
    if ((checkProgramExists == checkProgramExists))
475
488
 
        then {
476
489
 
            let isImplementationContract = (toString(i.caller) == value(getString(keyImplementationContract(programName))))
477
490
 
            let claimerAddress = if (isImplementationContract)
478
491
 
                then toString(i.originCaller)
479
492
 
                else toString(i.caller)
480
493
 
            let claimInternal = invoke(this, "claimInternal", [programName, claimerAddress, isImplementationContract], nil)
481
494
 
            if ((claimInternal == claimInternal))
482
495
 
                then $Tuple2(nil, claimInternal)
483
496
 
                else throw("Strict value is not equal to itself.")
484
497
 
            }
485
498
 
        else throw("Strict value is not equal to itself.")
486
499
 
    }
487
500
 
488
501
 
489
502
 
490
503
 
@Callable(i)
491
504
 
func claimBulk () = {
492
505
 
    let callerAddress = toString(i.caller)
493
506
 
    let callerProgramsStr = getString(keyAllReferralPrograms(toString(i.caller)))
494
507
 
    let programsExists = if (isDefined(callerProgramsStr))
495
508
 
        then true
496
509
 
        else throwErr("no referral programs")
497
510
 
    if ((programsExists == programsExists))
498
511
 
        then {
499
512
 
            let callerPrograms = split(value(callerProgramsStr), "__")
500
513
 
            let bulkClaim = invoke(this, "claimBulkInternal", [callerAddress, callerPrograms, 0], nil)
501
514
 
            if ((bulkClaim == bulkClaim))
502
515
 
                then $Tuple2(nil, bulkClaim)
503
516
 
                else throw("Strict value is not equal to itself.")
504
517
 
            }
505
518
 
        else throw("Strict value is not equal to itself.")
506
519
 
    }
507
520
 
508
521
 
509
522
 
510
523
 
@Callable(i)
511
524
 
func claimREADONLY (programName,userAddress) = {
512
525
 
    let claimerClaimed = valueOrElse(getInteger(keyClaimedReferrer(programName, userAddress)), 0)
513
526
 
    let claimerUnclaimed = valueOrElse(getInteger(keyUnclaimedReferrer(programName, userAddress)), 0)
514
527
 
    $Tuple2(nil, [claimerUnclaimed, claimerClaimed])
515
528
 
    }
516
529
 
517
530
 
518
531
 
519
532
 
@Callable(i)
520
533
 
func claimBulkREADONLY (claimer) = {
521
534
 
    let claimedTotalAddress = valueOrElse(getInteger(keyClaimedTotalAddress(claimer)), 0)
522
535
 
    let unclaimedTotalAddress = valueOrElse(getInteger(keyUnclaimedTotalAddress(claimer)), 0)
523
536
 
    $Tuple2(nil, [unclaimedTotalAddress, claimedTotalAddress])
524
537
 
    }
525
538
 
526
539
 
527
540
 
528
541
 
@Callable(i)
529
542
 
func setTotalKeys (programName,address) = {
530
543
 
    let claimedReferrer = valueOrElse(getInteger(keyClaimedReferrer(programName, address)), 0)
531
544
 
    let claimedReferral = valueOrElse(getInteger(keyClaimedReferral(programName, address)), 0)
532
545
 
    let unclaimedReferrer = valueOrElse(getInteger(keyUnclaimedReferrer(programName, address)), 0)
533
546
 
    let unclaimedReferral = valueOrElse(getInteger(keyUnclaimedReferral(programName, address)), 0)
534
547
 
    let claimedTotalAddress = (claimedReferrer + claimedReferral)
535
548
 
    let unclaimedTotalAddress = (unclaimedReferrer + unclaimedReferral)
536
549
 
    $Tuple2([IntegerEntry(keyClaimedTotalAddress(address), claimedTotalAddress), IntegerEntry(keyUnclaimedTotalAddress(address), unclaimedTotalAddress)], unit)
537
550
 
    }
538
551
 
539
552
 
540
553
 
541
554
 
@Callable(i)
542
555
 
func setManager (pendingManagerPublicKey) = {
543
556
 
    let checkCaller = mustManager(i)
544
557
 
    if ((checkCaller == checkCaller))
545
558
 
        then {
546
559
 
            let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
547
560
 
            if ((checkManagerPublicKey == checkManagerPublicKey))
548
561
 
                then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
549
562
 
                else throw("Strict value is not equal to itself.")
550
563
 
            }
551
564
 
        else throw("Strict value is not equal to itself.")
552
565
 
    }
553
566
 
554
567
 
555
568
 
556
569
 
@Callable(i)
557
570
 
func confirmManager () = {
558
571
 
    let pm = pendingManagerPublicKeyOrUnit()
559
572
 
    let hasPM = if (isDefined(pm))
560
573
 
        then true
561
574
 
        else throwErr("no pending manager")
562
575
 
    if ((hasPM == hasPM))
563
576
 
        then {
564
577
 
            let checkPM = if ((i.callerPublicKey == value(pm)))
565
578
 
                then true
566
579
 
                else throwErr("you are not pending manager")
567
580
 
            if ((checkPM == checkPM))
568
581
 
                then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
569
582
 
                else throw("Strict value is not equal to itself.")
570
583
 
            }
571
584
 
        else throw("Strict value is not equal to itself.")
572
585
 
    }
573
586
 
574
587
 
575
588
 
@Verifier(tx)
576
589
 
func verify () = {
577
590
 
    let targetPublicKey =     match managerPublicKeyOrUnit() {
578
591
 
        case pk: ByteVector => 
579
592
 
            pk
580
593
 
        case _: Unit => 
581
594
 
            tx.senderPublicKey
582
595
 
        case _ => 
583
596
 
            throw("Match error")
584
597
 
    }
585
598
 
    sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
586
599
 
    }
587
600
 

github/deemru/w8io/169f3d6 
78.47 ms ◑