w8 · tx · GsL···8wU

tx · GsLUb9dpdNVscnP7U2ijTwc3kesXhUnLCAcBec14k8wU

3N5yarEiTQccnnuerogYT3BxM5Zc5bRgDZy:  -0.03100000 Waves

2023.02.10 10:54 [2443255] smart account 3N5yarEiTQccnnuerogYT3BxM5Zc5bRgDZy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GsLUb9dpdNVscnP7U2ijTwc3kesXhUnLCAcBec14k8wU",
    "fee": 3100000,
    "feeAssetId": null,
    "timestamp": 1676015675393,
    "version": 2,
    "chainId": 84,
    "sender": "3N5yarEiTQccnnuerogYT3BxM5Zc5bRgDZy",
    "senderPublicKey": "FK9j3YFWVChXKESTn33fMZz1JseCNMMqHhfB7smxJo4e",
    "proofs": [
        "57tQRRWAgFJgZpZn1gyeaUeUHehTMUugZhXiCxUd2KKmfKLhwmqizUX7kQhkqtYw8cMHYLx8ijjhWn94WTLHBTx1"
    ],
    "script": "base64:BgIvCAISBQoDAQgIEgASABIDCgEBEgASABIAEgMKAQgSAwoBCBIECgIIARIDCgEBEgBpAAlzZXBhcmF0b3ICAl9fAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8ABk1VTFRYNgkAtgIBBQVNVUxUNgAGTVVMVFg4CQC2AgEFBU1VTFQ4AAdNVUxUWDE4CQC2AgEAgICQu7rWrfANAApXQVZFU0lEU1RSAgVXQVZFUwAHV0FWRVNJRAkA2QQBBQpXQVZFU0lEU1RSAAlEQVlNSUxMSVMAgLiZKQANREVGQVVMVFBFUklPRAkAaAIAoAsADgAZSWR4Q29udHJvbENmZ05ldXRyaW5vRGFwcAABABhJZHhDb250cm9sQ2ZnQXVjdGlvbkRhcHAAAgAUSWR4Q29udHJvbENmZ1JwZERhcHAAAwAVSWR4Q29udHJvbENmZ01hdGhEYXBwAAQAHElkeENvbnRyb2xDZmdMaXF1aWRhdGlvbkRhcHAABQAVSWR4Q29udHJvbENmZ1Jlc3REYXBwAAYAHUlkeENvbnRyb2xDZmdOb2RlUmVnaXN0cnlEYXBwAAcAHElkeENvbnRyb2xDZmdOc2J0U3Rha2luZ0RhcHAACAAZSWR4Q29udHJvbENmZ01lZGlhdG9yRGFwcAAJABxJZHhDb250cm9sQ2ZnU3VyZlN0YWtpbmdEYXBwAAoAIElkeENvbnRyb2xDZmdHbnNidENvbnRyb2xsZXJEYXBwAAsAF0lkeENvbnRyb2xDZmdSZXN0VjJEYXBwAAwAG0lkeENvbnRyb2xDZmdHb3Zlcm5hbmNlRGFwcAANAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQCsAgIJAKwCAgkArAICCQCsAgICCm1hbmRhdG9yeSAJAKUIAQUHYWRkcmVzcwIBLgUDa2V5Ag8gaXMgbm90IGRlZmluZWQBEWtleUNvbnRyb2xBZGRyZXNzAAIcJXMlc19fY29uZmlnX19jb250cm9sQWRkcmVzcwENa2V5Q29udHJvbENmZwACESVzX19jb250cm9sQ29uZmlnARVrZXlHbnNidEZyb21TdXJmQ29lZmYAAh0lcyVzX19jZmdfX2duc2J0RnJvbVN1cmZDb2VmZgEUcmVhZENvbnRyb2xDZmdPckZhaWwBB2NvbnRyb2wJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFB2NvbnRyb2wJAQ1rZXlDb250cm9sQ2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCCmNvbnRyb2xDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQpjb250cm9sQ2ZnBQNpZHgJAKwCAgItQ29udHJvbCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAPY29udHJvbENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJARFrZXlDb250cm9sQWRkcmVzcwACIzNONE5TN2Q0Sm85YTZGMTRMaUZVS0tZVmRVa2tmMmVQNFp4AApjb250cm9sQ2ZnCQEUcmVhZENvbnRyb2xDZmdPckZhaWwBBQ9jb250cm9sQ29udHJhY3QADG1hdGhDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCmNvbnRyb2xDZmcFFUlkeENvbnRyb2xDZmdNYXRoRGFwcAAQbmV1dHJpbm9Db250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCmNvbnRyb2xDZmcFGUlkeENvbnRyb2xDZmdOZXV0cmlub0RhcHAAD2F1Y3Rpb25Db250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCmNvbnRyb2xDZmcFGElkeENvbnRyb2xDZmdBdWN0aW9uRGFwcAALZ292Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQpjb250cm9sQ2ZnBRtJZHhDb250cm9sQ2ZnR292ZXJuYW5jZURhcHAAEmduc2J0RnJvbVN1cmZDb2VmZgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQEVa2V5R25zYnRGcm9tU3VyZkNvZWZmAACsAgEMa2V5Qm9uZEFzc2V0AAINYm9uZF9hc3NldF9pZAEZa2V5QXVjdGlvbkNvbnRyYWN0QWRkcmVzcwACEGF1Y3Rpb25fY29udHJhY3QBEGtleU1pbkxvY2tBbW91bnQAAhElc19fbWluTG9ja0Ftb3VudAEQa2V5U3Rha2VkQXNzZXRJZAACESVzX19zdGFrZWRBc3NldElkARZrZXlMb2NrUGFyYW1Vc2VyQW1vdW50AQt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAgtwYXJhbUJ5VXNlcgkAzAgCCQClCAEFC3VzZXJBZGRyZXNzCQDMCAICBmFtb3VudAUDbmlsBQlzZXBhcmF0b3IBFmtleUxvY2tQYXJhbVN0YXJ0QmxvY2sBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICC3BhcmFtQnlVc2VyCQDMCAIJAKUIAQULdXNlckFkZHJlc3MJAMwIAgIFc3RhcnQFA25pbAUJc2VwYXJhdG9yASZrZXlMb2NrUGFyYW1Wb3RpbmdQb3dlckVmZmVjdGl2ZUhlaWdodAELdXNlckFkZHJlc3MJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgILcGFyYW1CeVVzZXIJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwkAzAgCAhF2cEVmZmVjdGl2ZUhlaWdodAUDbmlsBQlzZXBhcmF0b3IBEGtleUhpc3RvcnlSZWNvcmQDBHR5cGULdXNlckFkZHJlc3MEdHhJZAkAuQkCCQDMCAICCCVzJXMlcyVzCQDMCAICB2hpc3RvcnkJAMwIAgUEdHlwZQkAzAgCCQClCAEFC3VzZXJBZGRyZXNzCQDMCAIJANgEAQUEdHhJZAUDbmlsBQlzZXBhcmF0b3IBF2tleUxvY2tQYXJhbVRvdGFsQW1vdW50AAkAuQkCCQDMCAICBCVzJXMJAMwIAgIFc3RhdHMJAMwIAgIRYWN0aXZlVG90YWxMb2NrZWQFA25pbAUJc2VwYXJhdG9yARJrZXlTdGF0c0xvY2tzQ291bnQACQC5CQIJAMwIAgIEJXMlcwkAzAgCAgVzdGF0cwkAzAgCAgpsb2Nrc0NvdW50BQNuaWwFCXNlcGFyYXRvcgESa2V5U3RhdHNVc2Vyc0NvdW50AAkAuQkCCQDMCAICBCVzJXMJAMwIAgIFc3RhdHMJAMwIAgIQYWN0aXZlVXNlcnNDb3VudAUDbmlsBQlzZXBhcmF0b3IBF2tleVN0YXRzRGVwb3NpdEFtdEJ5RGF5AQl0aW1lc3RhbXAJALkJAgkAzAgCAgYlcyVzJWQJAMwIAgIFc3RhdHMJAMwIAgIPZGVwb3NpdEFtdEJ5RGF5CQDMCAIJAKQDAQUJdGltZXN0YW1wBQNuaWwFCXNlcGFyYXRvcgEYa2V5U3RhdHNEZXBvc2l0QW10VG90YWxzAAkAuQkCCQDMCAICBiVzJXMlZAkAzAgCAgVzdGF0cwkAzAgCAhBkZXBvc2l0QW10VG90YWxzBQNuaWwFCXNlcGFyYXRvcgEYa2V5U3VwcG9ydGVkUmV3YXJkQXNzZXRzAAIVc3VwcG9ydGVkUmV3YXJkQXNzZXRzARFrZXlEZXBvc2l0TnVtTGFzdAAJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIDZGVwCQDMCAICB2xhc3ROdW0FA25pbAUJc2VwYXJhdG9yARtrZXlVc2VyUmV3YXJkRnJvbURlcG9zaXROdW0BC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICEXVzZXJSd2RGcm9tRGVwTnVtCQDMCAIFC3VzZXJBZGRyZXNzBQNuaWwFCXNlcGFyYXRvcgEVa2V5UmV3YXJkUGVyTnNidFN1bUF0AgpkZXBvc2l0TnVtA3RrbgkAuQkCCQDMCAICBCVzJWQJAMwIAgIVcndkUGVyTnNidFN1bUJ5RGVwTnVtCQDMCAIJAKQDAQUKZGVwb3NpdE51bQkAzAgCBQN0a24FA25pbAUJc2VwYXJhdG9yAQlrZXlSZXdhcmQCC3VzZXJBZGRyZXNzA3RrbgkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAgNyd2QJAMwIAgULdXNlckFkZHJlc3MJAMwIAgUDdGtuBQNuaWwFCXNlcGFyYXRvcgEKa2V5Q2xhaW1lZAILdXNlckFkZHJlc3MDdGtuCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICA2NsbQkAzAgCBQt1c2VyQWRkcmVzcwkAzAgCBQN0a24FA25pbAUJc2VwYXJhdG9yARdrZXlOb3REaXN0cmlidXRlZFJld2FyZAEDdGtuCQC5CQIJAMwIAgIEJXMlcwkAzAgCAg5ub3REaXN0cmlidXRlZAkAzAgCBQN0a24FA25pbAUJc2VwYXJhdG9yARNrZXlWcFBlcmlvZER1cmF0aW9uAAkAuQkCCQDMCAICBCVzJXMJAMwIAgICdnAJAMwIAgIOcGVyaW9kRHVyYXRpb24FA25pbAUJc2VwYXJhdG9yARxrZXlMYXN0VG90YWxzUGVyaW9kUHJvY2Vzc2VkAAkAuQkCCQDMCAICBCVzJXMJAMwIAgICdnAJAMwIAgIZbGFzdFRvdGFsc1BlcmlvZFByb2Nlc3NlZAUDbmlsBQlzZXBhcmF0b3IBGmtleUxhc3RVc2VyUGVyaW9kUHJvY2Vzc2VkAQt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAgJ2cAkAzAgCAhdsYXN0VXNlclBlcmlvZFByb2Nlc3NlZAkAzAgCBQt1c2VyQWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBDmtleVRvdGFsTWF0dXJlAAkAuQkCCQDMCAICBCVzJXMJAMwIAgICdnAJAMwIAgILdG90YWxNYXR1cmUFA25pbAUJc2VwYXJhdG9yAQxrZXlUb3RhbFRlZW4ACQC5CQIJAMwIAgIEJXMlcwkAzAgCAgJ2cAkAzAgCAgl0b3RhbFRlZW4FA25pbAUJc2VwYXJhdG9yAQtrZXlUb3RhbEtpZAAJALkJAgkAzAgCAgQlcyVzCQDMCAICAnZwCQDMCAICCHRvdGFsS2lkBQNuaWwFCXNlcGFyYXRvcgENa2V5VXNlck1hdHVyZQELdXNlckFkZHJlc3MJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgICdnAJAMwIAgIKdXNlck1hdHVyZQkAzAgCBQt1c2VyQWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBC2tleVVzZXJUZWVuAQt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAgJ2cAkAzAgCAgh1c2VyVGVlbgkAzAgCBQt1c2VyQWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBCmtleVVzZXJLaWQBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICAnZwCQDMCAICB3VzZXJLaWQJAMwIAgULdXNlckFkZHJlc3MFA25pbAUJc2VwYXJhdG9yAQV0b1gxOAIHb3JpZ1ZhbAhvcmlnTXVsdAkAvAIDCQC2AgEFB29yaWdWYWwFB01VTFRYMTgFCG9yaWdNdWx0AQxnZXRJbnRPclplcm8BA2tleQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQNrZXkAAAEMZ2V0SW50T3JFbHNlAgNrZXkKZGVmYXVsdFZhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQNrZXkFCmRlZmF1bHRWYWwBDGdldEludE9yRmFpbAEDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUEdGhpcwUDa2V5CQCsAgIJAKwCAgIPTWFuZGF0b3J5IHRoaXMuBQNrZXkCDyBpcyBub3QgZGVmaW5lZAEMZ2V0U3RyT3JFbHNlAgNrZXkKZGVmYXVsdFZhbAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQNrZXkFCmRlZmF1bHRWYWwBD3RvQWRkcmVzc09yRmFpbAEKYWRkcmVzc1N0cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEFCmFkZHJlc3NTdHIJAKwCAgIhY291bGRuJ3QgcGFyc2UgcGFzc2VkIGFkZHJlc3NTdHI9BQphZGRyZXNzU3RyAQt0b0Fzc2V0VmVjdAEIYXNzZXRTdHIDCQAAAgUIYXNzZXRTdHIFCldBVkVTSURTVFIFBHVuaXQJANkEAQUIYXNzZXRTdHIBBWFzSW50AQN2YWwEByRtYXRjaDAFA3ZhbAMJAAECBQckbWF0Y2gwAgNJbnQEBnZhbEludAUHJG1hdGNoMAUGdmFsSW50CQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50ARJhc1N3YXBQYXJhbXNTVFJVQ1QBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIjKEludCwgSW50LCBJbnQsIEludCwgSW50LCBJbnQsIEludCkEBnN0cnVjdAUHJG1hdGNoMAUGc3RydWN0CQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50ARNmb3JtYXRIaXN0b3J5UmVjb3JkBAlvbGRBbW91bnQIb2xkU3RhcnQJbmV3QW1vdW50CG5ld1N0YXJ0CQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQgFCWxhc3RCbG9jawZoZWlnaHQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEFCW9sZEFtb3VudAkAzAgCCQCkAwEFCG9sZFN0YXJ0CQDMCAIJAKQDAQUJbmV3QW1vdW50CQDMCAIJAKQDAQUIbmV3U3RhcnQFA25pbAUJc2VwYXJhdG9yARhmb3JtYXRDbGFpbUhpc3RvcnlSZWNvcmQCBHVzZXIOY2xhaW1lZFJld2FyZHMJALkJAgkAzAgCAgglcyVkJWQlcwkAzAgCBQR1c2VyCQDMCAIJAKQDAQgFCWxhc3RCbG9jawZoZWlnaHQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCBQ5jbGFpbWVkUmV3YXJkcwUDbmlsBQlzZXBhcmF0b3IBEkhpc3RvcnlSZWNvcmRFbnRyeQcEdHlwZQt1c2VyQWRkcmVzcwR0eElkCW9sZEFtb3VudAhvbGRTdGFydAluZXdBbW91bnQIbmV3U3RhcnQJAQtTdHJpbmdFbnRyeQIJARBrZXlIaXN0b3J5UmVjb3JkAwUEdHlwZQULdXNlckFkZHJlc3MFBHR4SWQJARNmb3JtYXRIaXN0b3J5UmVjb3JkBAUJb2xkQW1vdW50BQhvbGRTdGFydAUJbmV3QW1vdW50BQhuZXdTdGFydAERQ2xhaW1IaXN0b3J5RW50cnkDC3VzZXJBZGRyZXNzBHR4SWQOY2xhaW1lZFJld2FyZHMJAQtTdHJpbmdFbnRyeQIJARBrZXlIaXN0b3J5UmVjb3JkAwIFY2xhaW0FC3VzZXJBZGRyZXNzBQR0eElkCQEYZm9ybWF0Q2xhaW1IaXN0b3J5UmVjb3JkAgkApQgBBQt1c2VyQWRkcmVzcwUOY2xhaW1lZFJld2FyZHMBC1N0YXRzUmVzdWx0Aw50b3RhbExvY2tlZEluYwxsb2NrQ291bnRJbmMNdXNlcnNDb3VudEluYwQKbG9ja3NDb3VudAkBDGdldEludE9yWmVybwEJARJrZXlTdGF0c0xvY2tzQ291bnQABAp1c2Vyc0NvdW50CQEMZ2V0SW50T3JaZXJvAQkBEmtleVN0YXRzVXNlcnNDb3VudAAEC3RvdGFsQW1vdW50CQEMZ2V0SW50T3JaZXJvAQkBF2tleUxvY2tQYXJhbVRvdGFsQW1vdW50AAQOdG90YWxBbW91bnROZXcJAGQCBQt0b3RhbEFtb3VudAUOdG90YWxMb2NrZWRJbmMJAJUKAwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmtleVN0YXRzTG9ja3NDb3VudAAJAGQCBQpsb2Nrc0NvdW50BQxsb2NrQ291bnRJbmMJAMwIAgkBDEludGVnZXJFbnRyeQIJARJrZXlTdGF0c1VzZXJzQ291bnQACQBkAgUKdXNlcnNDb3VudAUNdXNlcnNDb3VudEluYwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBF2tleUxvY2tQYXJhbVRvdGFsQW1vdW50AAUOdG90YWxBbW91bnROZXcFA25pbAULdG90YWxBbW91bnQFDnRvdGFsQW1vdW50TmV3AQ9Mb2NrUGFyYW1zRW50cnkDC3VzZXJBZGRyZXNzBmFtb3VudBp2b3RpbmdQb3dlckVmZmVjdGl2ZUhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmtleUxvY2tQYXJhbVVzZXJBbW91bnQBBQt1c2VyQWRkcmVzcwUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWa2V5TG9ja1BhcmFtU3RhcnRCbG9jawEFC3VzZXJBZGRyZXNzBRp2b3RpbmdQb3dlckVmZmVjdGl2ZUhlaWdodAUDbmlsAQ9nZXRQYXJhbXNPckZhaWwACQCUCgIJANkEAQkBD2dldFN0cmluZ09yRmFpbAIFBHRoaXMJARBrZXlTdGFrZWRBc3NldElkAAkBDGdldEludE9yRmFpbAEJARBrZXlNaW5Mb2NrQW1vdW50AAEMaXNBY3RpdmVVc2VyAQt1c2VyQWRkcmVzcwkAZgIJAQxnZXRJbnRPckVsc2UCCQEWa2V5TG9ja1BhcmFtVXNlckFtb3VudAEFC3VzZXJBZGRyZXNzAAAAAAETZ2V0VXNlclBhcmFtc09yVW5pdAELdXNlckFkZHJlc3MDCQEMaXNBY3RpdmVVc2VyAQULdXNlckFkZHJlc3MJAJUKAwcJAQxnZXRJbnRPckZhaWwBCQEWa2V5TG9ja1BhcmFtVXNlckFtb3VudAEFC3VzZXJBZGRyZXNzCQEMZ2V0SW50T3JGYWlsAQkBFmtleUxvY2tQYXJhbVN0YXJ0QmxvY2sBBQt1c2VyQWRkcmVzcwUEdW5pdAETZ2V0VXNlclBhcmFtc09yRmFpbAELdXNlckFkZHJlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBE2dldFVzZXJQYXJhbXNPclVuaXQBBQt1c2VyQWRkcmVzcwkArAICCQCsAgICBVVzZXIgCQClCAEFC3VzZXJBZGRyZXNzAg8gaXMgbm90IGRlZmluZWQAEnN1cHBvcnRlZEFzc2V0c1N0cgkBDGdldFN0ck9yRWxzZQIJARhrZXlTdXBwb3J0ZWRSZXdhcmRBc3NldHMAAgAAE3N1cHBvcnRlZEFzc2V0c0xpc3QJALUJAgUSc3VwcG9ydGVkQXNzZXRzU3RyAgFfAQpjYWxjUmV3YXJkBQt1c2VyQWRkcmVzcwdhc3NldElkDXN0YWtlZEFtb3VudFgOZGVwb3NpdE51bVVzZXIOZGVwb3NpdE51bUxhc3QEF3Jld2FyZFBlck5zYnRTdW1MYXN0S0VZCQEVa2V5UmV3YXJkUGVyTnNidFN1bUF0AgUOZGVwb3NpdE51bUxhc3QFB2Fzc2V0SWQECnN1bUxhc3RYMTgJAKcDAQkBDGdldFN0ck9yRWxzZQIJARVrZXlSZXdhcmRQZXJOc2J0U3VtQXQCBQ5kZXBvc2l0TnVtTGFzdAUHYXNzZXRJZAIBMAQKc3VtVXNlclgxOAkApwMBCQEMZ2V0U3RyT3JFbHNlAgkBFWtleVJld2FyZFBlck5zYnRTdW1BdAIFDmRlcG9zaXROdW1Vc2VyBQdhc3NldElkAgEwBBFyZXdhcmREeW5hbWljUGFydAkAoAMBCQC8AgMJALgCAgUKc3VtTGFzdFgxOAUKc3VtVXNlclgxOAUNc3Rha2VkQW1vdW50WAUHTVVMVFgxOAQTcmV3YXJkQ2FjaGVkUGFydEtFWQkBCWtleVJld2FyZAIFC3VzZXJBZGRyZXNzBQdhc3NldElkBBByZXdhcmRDYWNoZWRQYXJ0CQEMZ2V0SW50T3JFbHNlAgUTcmV3YXJkQ2FjaGVkUGFydEtFWQAACQCWCgQJAGQCBRByZXdhcmRDYWNoZWRQYXJ0BRFyZXdhcmREeW5hbWljUGFydAUQcmV3YXJkQ2FjaGVkUGFydAURcmV3YXJkRHluYW1pY1BhcnQFE3Jld2FyZENhY2hlZFBhcnRLRVkBDHRvU3RhcnRPZkRheQEJdGltZXN0YW1wCQBoAgkAaQIFCXRpbWVzdGFtcAUJREFZTUlMTElTBQlEQVlNSUxMSVMBE2ZpbmRFbGVtZW50UG9zaXRpb24DA3NyYwdlbGVtZW50A3NlcAQMZWxlbWVudFN0YXJ0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJALMJAgUDc3JjBQdlbGVtZW50CQCsAgIJAKwCAgkArAICAhZ0aGVyZSBpcyBubyBzdWJzdHJpbmcgBQdlbGVtZW50AgQgaW4gBQNzcmMDCQAAAgUMZWxlbWVudFN0YXJ0AAAAAAQEbGVmdAkArwICBQNzcmMFDGVsZW1lbnRTdGFydAkAZQIJAJADAQkAtQkCBQRsZWZ0BQNzZXAAAQATRGVwb3NpdFRvdGFsc1BSRUZJWAIkJWQlZCVkJWQlZCVkJWQlZCVkJWQlZCVkJWQlZCVkJWQlZCVkARN1cGRhdGVEZXBvc2l0VG90YWxzAwdjdXJyVmFsC2lkeFRvVXBkYXRlCGRlbHRhQW10BAdjdXJyQXJyCQC1CQIFB2N1cnJWYWwFA1NFUAoBDnVwZERlcFRvdEJ5SWR4AQNpZHgDCQECIT0CBQNpZHgFC2lkeFRvVXBkYXRlCQCRAwIFB2N1cnJBcnIFA2lkeAkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB2N1cnJBcnIFA2lkeAUIZGVsdGFBbXQJALkJAgkAzAgCBRNEZXBvc2l0VG90YWxzUFJFRklYCQDMCAIJAQ51cGREZXBUb3RCeUlkeAEAAQkAzAgCCQEOdXBkRGVwVG90QnlJZHgBAAIJAMwIAgkBDnVwZERlcFRvdEJ5SWR4AQADCQDMCAIJAQ51cGREZXBUb3RCeUlkeAEABAkAzAgCCQEOdXBkRGVwVG90QnlJZHgBAAUJAMwIAgkBDnVwZERlcFRvdEJ5SWR4AQAGCQDMCAIJAQ51cGREZXBUb3RCeUlkeAEABwkAzAgCCQEOdXBkRGVwVG90QnlJZHgBAAgJAMwIAgkBDnVwZERlcFRvdEJ5SWR4AQAJCQDMCAIJAQ51cGREZXBUb3RCeUlkeAEACgkAzAgCCQEOdXBkRGVwVG90QnlJZHgBAAsJAMwIAgkBDnVwZERlcFRvdEJ5SWR4AQAMCQDMCAIJAQ51cGREZXBUb3RCeUlkeAEADQkAzAgCCQEOdXBkRGVwVG90QnlJZHgBAA4JAMwIAgkBDnVwZERlcFRvdEJ5SWR4AQAPCQDMCAIJAQ51cGREZXBUb3RCeUlkeAEAEAkAzAgCCQEOdXBkRGVwVG90QnlJZHgBABEJAMwIAgkBDnVwZERlcFRvdEJ5SWR4AQASBQNuaWwFA1NFUAEVRGVwb3NpdHNUb3RhbHNFbnRyaWVzAg1kZXBvc2l0QW1vdW50CmFzc2V0SWRTdHIECnN0YXJ0T2ZEYXkJAQx0b1N0YXJ0T2ZEYXkBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQIYnlEYXlLRVkJARdrZXlTdGF0c0RlcG9zaXRBbXRCeURheQEFCnN0YXJ0T2ZEYXkECXRvdGFsc0tFWQkBGGtleVN0YXRzRGVwb3NpdEFtdFRvdGFscwAECHBvc2l0aW9uCQETZmluZEVsZW1lbnRQb3NpdGlvbgMFEnN1cHBvcnRlZEFzc2V0c1N0cgUKYXNzZXRJZFN0cgIBXwQLZGVmYXVsdERBVEEJAKwCAgUTRGVwb3NpdFRvdGFsc1BSRUZJWAI2X18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wX18wBA5jdXJyVG90YWxzREFUQQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQl0b3RhbHNLRVkFC2RlZmF1bHREQVRBBA1uZXdUb3RhbHNEQVRBCQETdXBkYXRlRGVwb3NpdFRvdGFscwMFDmN1cnJUb3RhbHNEQVRBCQBkAgUIcG9zaXRpb24AAQUNZGVwb3NpdEFtb3VudAkAzAgCCQELU3RyaW5nRW50cnkCBQl0b3RhbHNLRVkFDW5ld1RvdGFsc0RBVEEJAMwIAgkBC1N0cmluZ0VudHJ5AgUIYnlEYXlLRVkFDW5ld1RvdGFsc0RBVEEFA25pbAENUmV3YXJkRW50cmllcwMJaXNOZXdVc2VyC3VzZXJBZGRyZXNzDHN0YWtlZEFtb3VudAQNc3Rha2VkQW1vdW50WAkAtgIBBQxzdGFrZWRBbW91bnQEG3VzZXJSZXdhcmRGcm9tRGVwb3NpdE51bUtFWQkBG2tleVVzZXJSZXdhcmRGcm9tRGVwb3NpdE51bQEFC3VzZXJBZGRyZXNzBA5kZXBvc2l0TnVtVXNlcgkBDGdldEludE9yRWxzZQIFG3VzZXJSZXdhcmRGcm9tRGVwb3NpdE51bUtFWQD///////////8BBA5kZXBvc2l0TnVtTGFzdAkBDGdldEludE9yRWxzZQIJARFrZXlEZXBvc2l0TnVtTGFzdAAA////////////AQoBG2ZvckVhY2hBc3NldENhY2hlVXNlclJld2FyZAIFYWNjdW0FYXNzZXQEDSR0MDEyMTEwMTIyNDUJAQpjYWxjUmV3YXJkBQULdXNlckFkZHJlc3MFBWFzc2V0BQ1zdGFrZWRBbW91bnRYBQ5kZXBvc2l0TnVtVXNlcgUOZGVwb3NpdE51bUxhc3QEC3Jld2FyZFRvdGFsCAUNJHQwMTIxMTAxMjI0NQJfMQQGY2FjaGVkCAUNJHQwMTIxMTAxMjI0NQJfMgQHZHluYW1pYwgFDSR0MDEyMTEwMTIyNDUCXzMEE3Jld2FyZENhY2hlZFBhcnRLRVkIBQ0kdDAxMjExMDEyMjQ1Al80CQDNCAIFBWFjY3VtCQEMSW50ZWdlckVudHJ5AgUTcmV3YXJkQ2FjaGVkUGFydEtFWQULcmV3YXJkVG90YWwDAwkAAAIFDmRlcG9zaXROdW1MYXN0AP///////////wEJAAACBQ5kZXBvc2l0TnVtVXNlcgD///////////8BBwUDbmlsAwMJAAACBQ5kZXBvc2l0TnVtTGFzdAD///////////8BCQBmAgUOZGVwb3NpdE51bVVzZXIA////////////AQcJAAIBAi9pbnZhbGlkIGRlcG9zaXROdW1MYXN0IGFuZCBkZXBvc2l0TnVtVXNlciBzdGF0ZQMDCQBmAgUOZGVwb3NpdE51bUxhc3QA////////////AQkAZwIFDmRlcG9zaXROdW1Vc2VyAP///////////wEHAwUJaXNOZXdVc2VyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkFDmRlcG9zaXROdW1MYXN0BQNuaWwJAM0IAgoAAiRsBRNzdXBwb3J0ZWRBc3NldHNMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARtmb3JFYWNoQXNzZXRDYWNoZVVzZXJSZXdhcmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDkJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkJAQxJbnRlZ2VyRW50cnkCBRt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkFDmRlcG9zaXROdW1MYXN0CQACAQkArAICCQCsAgIJAKwCAgIkdW5jb3ZlcmVkIGNvbmRpdGlvbjogZGVwb3NpdE51bUxhc3Q9CQCkAwEFDmRlcG9zaXROdW1MYXN0AhAgZGVwb3NpdE51bVVzZXI9CQCkAwEFDmRlcG9zaXROdW1Vc2VyASJJbmNyZW1lbnROb3REaXN0cmlidXRlZFJld2FyZEVudHJ5AgN0a24JYW1vdW50SW5jBBdub3REaXN0cmlidXRlZFJld2FyZEtFWQkBF2tleU5vdERpc3RyaWJ1dGVkUmV3YXJkAQUDdGtuBBRub3REaXN0cmlidXRlZFJld2FyZAkBDGdldEludE9yRWxzZQIFF25vdERpc3RyaWJ1dGVkUmV3YXJkS0VZAAAJAQxJbnRlZ2VyRW50cnkCBRdub3REaXN0cmlidXRlZFJld2FyZEtFWQkAZAIFFG5vdERpc3RyaWJ1dGVkUmV3YXJkBQlhbW91bnRJbmMBC3N1cmZUb0duc2J0AQdzdXJmQW10CQBpAgUHc3VyZkFtdAUSZ25zYnRGcm9tU3VyZkNvZWZmAQptZXJnZVN0YWtlBAt1c2VyQWRkcmVzcwthbW91bnRUb0FkZAh1c2VyVGVlbgd1c2VyS2lkBA0kdDAxNTE2NjE1Mjc2CQELdmFsdWVPckVsc2UCCQETZ2V0VXNlclBhcmFtc09yVW5pdAEFC3VzZXJBZGRyZXNzCQCVCgMGAAAAAAQJaXNOZXdVc2VyCAUNJHQwMTUxNjYxNTI3NgJfMQQMc3Rha2VkQW1vdW50CAUNJHQwMTUxNjYxNTI3NgJfMgQRdnBFZmZlY3RpdmVIZWlnaHQIBQ0kdDAxNTE2NjE1Mjc2Al8zBA9zdGFrZWRBbW91bnRORVcDBQlpc05ld1VzZXIFC2Ftb3VudFRvQWRkCQBkAgULYW1vdW50VG9BZGQFDHN0YWtlZEFtb3VudAQCVzIJAQxnZXRJbnRPckVsc2UCCQETa2V5VnBQZXJpb2REdXJhdGlvbgAFDURFRkFVTFRQRVJJT0QEBnBlcmlvZAkAaQIFBmhlaWdodAUCVzIEFHZwRWZmZWN0aXZlUGVyaW9kTkVXAwkAZgIFB3VzZXJLaWQAAAkAZAIFBnBlcmlvZAACAwkAZgIFCHVzZXJUZWVuAAAJAGQCBQZwZXJpb2QAAQUGcGVyaW9kCQCXCgUFCWlzTmV3VXNlcgUMc3Rha2VkQW1vdW50BRF2cEVmZmVjdGl2ZUhlaWdodAUPc3Rha2VkQW1vdW50TkVXCQBoAgUUdnBFZmZlY3RpdmVQZXJpb2RORVcFAlcyAQx1cGRhdGVUb3RhbHMABAZwZXJpb2QJAGkCBQZoZWlnaHQJAQxnZXRJbnRPckVsc2UCCQETa2V5VnBQZXJpb2REdXJhdGlvbgAFDURFRkFVTFRQRVJJT0QDCQBmAgUGcGVyaW9kCQEMZ2V0SW50T3JaZXJvAQkBHGtleUxhc3RUb3RhbHNQZXJpb2RQcm9jZXNzZWQABAt0b3RhbE1hdHVyZQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEOa2V5VG90YWxNYXR1cmUACQEMZ2V0SW50T3JaZXJvAQkBF2tleUxvY2tQYXJhbVRvdGFsQW1vdW50AAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDmtleVRvdGFsTWF0dXJlAAkAZAIFC3RvdGFsTWF0dXJlCQEMZ2V0SW50T3JaZXJvAQkBDGtleVRvdGFsVGVlbgAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQxrZXlUb3RhbFRlZW4ACQEMZ2V0SW50T3JaZXJvAQkBC2tleVRvdGFsS2lkAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC2tleVRvdGFsS2lkAAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEca2V5TGFzdFRvdGFsc1BlcmlvZFByb2Nlc3NlZAAFBnBlcmlvZAUDbmlsBQNuaWwBB29uU3Rha2UCDnVzZXJBZGRyZXNzU3RyC2Ftb3VudFRvQWRkAwkAZgIAAAULYW1vdW50VG9BZGQJAAIBAhphbW91bnRUb0FkZCBzaG91bGQgYmUgPj0gMAQCVzIJAQxnZXRJbnRPckVsc2UCCQETa2V5VnBQZXJpb2REdXJhdGlvbgAFDURFRkFVTFRQRVJJT0QEBnBlcmlvZAkAaQIFBmhlaWdodAUCVzIEC3RvdGFsTWF0dXJlCQELdmFsdWVPckVsc2UCCQCfCAEJAQ5rZXlUb3RhbE1hdHVyZQAJAQxnZXRJbnRPclplcm8BCQEXa2V5TG9ja1BhcmFtVG90YWxBbW91bnQABAl0b3RhbFRlZW4JAQxnZXRJbnRPclplcm8BCQEMa2V5VG90YWxUZWVuAAQIdG90YWxLaWQJAQxnZXRJbnRPclplcm8BCQELa2V5VG90YWxLaWQABAp1c2VyTWF0dXJlAwkAAAIFDnVzZXJBZGRyZXNzU3RyAgAAAAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQENa2V5VXNlck1hdHVyZQEFDnVzZXJBZGRyZXNzU3RyCQEMZ2V0SW50T3JaZXJvAQkBFmtleUxvY2tQYXJhbVVzZXJBbW91bnQBCQERQGV4dHJOYXRpdmUoMTA2MikBBQ51c2VyQWRkcmVzc1N0cgQIdXNlclRlZW4JAQxnZXRJbnRPclplcm8BCQELa2V5VXNlclRlZW4BBQ51c2VyQWRkcmVzc1N0cgQHdXNlcktpZAkBDGdldEludE9yWmVybwEJAQprZXlVc2VyS2lkAQUOdXNlckFkZHJlc3NTdHIEA3RtcAMJAGYCBQZwZXJpb2QJAQxnZXRJbnRPclplcm8BCQEaa2V5TGFzdFVzZXJQZXJpb2RQcm9jZXNzZWQBBQ51c2VyQWRkcmVzc1N0cgkAmQoHCQBkAgULdG90YWxNYXR1cmUFCHVzZXJUZWVuCQBkAgUJdG90YWxUZWVuCQBlAgUHdXNlcktpZAUIdXNlclRlZW4JAGUCBQh0b3RhbEtpZAUHdXNlcktpZAkAZAIFCnVzZXJNYXR1cmUFCHVzZXJUZWVuBQd1c2VyS2lkAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJARprZXlMYXN0VXNlclBlcmlvZFByb2Nlc3NlZAEFDnVzZXJBZGRyZXNzU3RyBQZwZXJpb2QFA25pbAkAmQoHBQt0b3RhbE1hdHVyZQUJdG90YWxUZWVuBQh0b3RhbEtpZAUKdXNlck1hdHVyZQUIdXNlclRlZW4FB3VzZXJLaWQFA25pbAQGdG90YWxzAwkAZgIFBnBlcmlvZAkBDGdldEludE9yWmVybwEJARxrZXlMYXN0VG90YWxzUGVyaW9kUHJvY2Vzc2VkAAkAlgoECQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEOa2V5VG90YWxNYXR1cmUACQBkAggFA3RtcAJfMQgFA3RtcAJfMgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDGtleVRvdGFsVGVlbgAIBQN0bXACXzMJAMwIAgkBDEludGVnZXJFbnRyeQIJAQtrZXlUb3RhbEtpZAAAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHGtleUxhc3RUb3RhbHNQZXJpb2RQcm9jZXNzZWQABQZwZXJpb2QFA25pbAkAZAIIBQN0bXACXzEIBQN0bXACXzIIBQN0bXACXzMAAAkAlgoEBQNuaWwFC3RvdGFsTWF0dXJlBQl0b3RhbFRlZW4FCHRvdGFsS2lkBAZuZXdLaWQJAGsDBQthbW91bnRUb0FkZAkAagIFBmhlaWdodAUCVzIFAlcyBAduZXdUZWVuCQBlAgULYW1vdW50VG9BZGQFBm5ld0tpZAkAmQoHCQDOCAIJAM0IAgkAzQgCCQDNCAIIBQZ0b3RhbHMCXzEJAQxJbnRlZ2VyRW50cnkCCQENa2V5VXNlck1hdHVyZQEFDnVzZXJBZGRyZXNzU3RyCAUDdG1wAl80CQEMSW50ZWdlckVudHJ5AgkBC2tleVVzZXJUZWVuAQUOdXNlckFkZHJlc3NTdHIJAGQCCAUDdG1wAl81BQduZXdUZWVuCQEMSW50ZWdlckVudHJ5AgkBCmtleVVzZXJLaWQBBQ51c2VyQWRkcmVzc1N0cgkAZAIIBQN0bXACXzYFBm5ld0tpZAgFA3RtcAJfNwgFBnRvdGFscwJfMggFBnRvdGFscwJfMwgFBnRvdGFscwJfNAgFA3RtcAJfNAkAZAIIBQN0bXACXzUFB25ld1RlZW4JAGQCCAUDdG1wAl82BQZuZXdLaWQACklkeE5ld0RpZmYAAAALSWR4TmV3R25zYnQAAQEMdXNlckRlY3JlYXNlAgVnbnNidARkaWZmAwkAZwIFBGRpZmYFBWduc2J0CQDMCAIJAGUCBQRkaWZmBQVnbnNidAkAzAgCAAAFA25pbAkAzAgCAAAJAMwIAgkAZQIFBWduc2J0BQRkaWZmBQNuaWwBCW9uVW5zdGFrZQIOdXNlckFkZHJlc3NTdHIOYW1vdW50VG9SZW1vdmUDCQBnAgAABQ5hbW91bnRUb1JlbW92ZQkAAgECHGFtb3VudFRvUmVtb3ZlIHNob3VsZCBiZSA+IDAEAlcyCQEMZ2V0SW50T3JFbHNlAgkBE2tleVZwUGVyaW9kRHVyYXRpb24ABQ1ERUZBVUxUUEVSSU9EBAZwZXJpb2QJAGkCBQZoZWlnaHQFAlcyBAt0b3RhbE1hdHVyZQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEOa2V5VG90YWxNYXR1cmUACQEMZ2V0SW50T3JaZXJvAQkBF2tleUxvY2tQYXJhbVRvdGFsQW1vdW50AAQJdG90YWxUZWVuCQEMZ2V0SW50T3JaZXJvAQkBDGtleVRvdGFsVGVlbgAECHRvdGFsS2lkCQEMZ2V0SW50T3JaZXJvAQkBC2tleVRvdGFsS2lkAAQKdXNlck1hdHVyZQMJAAACBQ51c2VyQWRkcmVzc1N0cgIAAAAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBDWtleVVzZXJNYXR1cmUBBQ51c2VyQWRkcmVzc1N0cgkBDGdldEludE9yWmVybwEJARZrZXlMb2NrUGFyYW1Vc2VyQW1vdW50AQkBEUBleHRyTmF0aXZlKDEwNjIpAQUOdXNlckFkZHJlc3NTdHIECHVzZXJUZWVuCQEMZ2V0SW50T3JaZXJvAQkBC2tleVVzZXJUZWVuAQUOdXNlckFkZHJlc3NTdHIEB3VzZXJLaWQJAQxnZXRJbnRPclplcm8BCQEKa2V5VXNlcktpZAEFDnVzZXJBZGRyZXNzU3RyBAJ1bQkBDHVzZXJEZWNyZWFzZQIFCnVzZXJNYXR1cmUFDmFtb3VudFRvUmVtb3ZlBAJ1dAkBDHVzZXJEZWNyZWFzZQIFCHVzZXJUZWVuCQCRAwIFAnVtBQpJZHhOZXdEaWZmBAJ1awkBDHVzZXJEZWNyZWFzZQIFB3VzZXJLaWQJAJEDAgUCdXQFCklkeE5ld0RpZmYDCQECIT0CCQCRAwIFAnVrBQpJZHhOZXdEaWZmAAAJAAIBAhFTaG91bGQgbm90IGhhcHBlbgQDdG1wAwkAZgIFBnBlcmlvZAkBDGdldEludE9yWmVybwEJARprZXlMYXN0VXNlclBlcmlvZFByb2Nlc3NlZAEFDnVzZXJBZGRyZXNzU3RyCQCZCgcJAGQCBQt0b3RhbE1hdHVyZQkAkQMCBQJ1dAULSWR4TmV3R25zYnQJAGQCBQl0b3RhbFRlZW4JAGUCCQCRAwIFAnVrBQtJZHhOZXdHbnNidAkAkQMCBQJ1dAULSWR4TmV3R25zYnQJAGUCBQh0b3RhbEtpZAkAkQMCBQJ1awULSWR4TmV3R25zYnQJAGQCCQCRAwIFAnVtBQtJZHhOZXdHbnNidAkAkQMCBQJ1dAULSWR4TmV3R25zYnQJAJEDAgUCdWsFC0lkeE5ld0duc2J0AAAJAMwIAgkBDEludGVnZXJFbnRyeQIJARprZXlMYXN0VXNlclBlcmlvZFByb2Nlc3NlZAEFDnVzZXJBZGRyZXNzU3RyBQZwZXJpb2QFA25pbAkAmQoHBQt0b3RhbE1hdHVyZQUJdG90YWxUZWVuBQh0b3RhbEtpZAkAkQMCBQJ1bQULSWR4TmV3R25zYnQJAJEDAgUCdXQFC0lkeE5ld0duc2J0CQCRAwIFAnVrBQtJZHhOZXdHbnNidAUDbmlsBAZ0b3RhbHMDCQBmAgUGcGVyaW9kCQEMZ2V0SW50T3JaZXJvAQkBHGtleUxhc3RUb3RhbHNQZXJpb2RQcm9jZXNzZWQACQCWCgQJAMwIAgkBDEludGVnZXJFbnRyeQIJAQ5rZXlUb3RhbE1hdHVyZQAJAGQCCAUDdG1wAl8xCAUDdG1wAl8yCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEMa2V5VG90YWxUZWVuAAgFA3RtcAJfMwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC2tleVRvdGFsS2lkAAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEca2V5TGFzdFRvdGFsc1BlcmlvZFByb2Nlc3NlZAAFBnBlcmlvZAUDbmlsCQBkAggFA3RtcAJfMQgFA3RtcAJfMggFA3RtcAJfMwAACQCWCgQFA25pbAULdG90YWxNYXR1cmUFCXRvdGFsVGVlbgUIdG90YWxLaWQJAJkKBwkAzggCCQDNCAIJAM0IAgkAzQgCCAUGdG90YWxzAl8xCQEMSW50ZWdlckVudHJ5AgkBDWtleVVzZXJNYXR1cmUBBQ51c2VyQWRkcmVzc1N0cggFA3RtcAJfNAkBDEludGVnZXJFbnRyeQIJAQtrZXlVc2VyVGVlbgEFDnVzZXJBZGRyZXNzU3RyCAUDdG1wAl81CQEMSW50ZWdlckVudHJ5AgkBCmtleVVzZXJLaWQBBQ51c2VyQWRkcmVzc1N0cggFA3RtcAJfNggFA3RtcAJfNwgFBnRvdGFscwJfMggFBnRvdGFscwJfMwgFBnRvdGFscwJfNAgFA3RtcAJfNAgFA3RtcAJfNQgFA3RtcAJfNgELY29tbW9uU3Rha2UCC3VzZXJBZGRyZXNzAWkEDSR0MDIxMTYzMjEyMTcJAQ9nZXRQYXJhbXNPckZhaWwABA1zdGFrZWRBc3NldElkCAUNJHQwMjExNjMyMTIxNwJfMQQNbWluTG9ja0Ftb3VudAgFDSR0MDIxMTYzMjEyMTcCXzIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhVJbnZhbGlkIHBheW1lbnRzIHNpemUEB3BheW1lbnQJAJEDAggFAWkIcGF5bWVudHMAAAQGYW1vdW50CAUHcGF5bWVudAZhbW91bnQEE2ludmFsaWRBc3NldE1lc3NhZ2UJAKwCAgkArAICAg9JbnZhbGlkIGFzc2V0LiAJANgEAQUNc3Rha2VkQXNzZXRJZAIMIGlzIGV4cGVjdGVkBAdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQdwYXltZW50B2Fzc2V0SWQFE2ludmFsaWRBc3NldE1lc3NhZ2UDCQECIT0CBQdhc3NldElkBQ1zdGFrZWRBc3NldElkCQACAQUTaW52YWxpZEFzc2V0TWVzc2FnZQQOdXNlckFkZHJlc3NTdHIJAKUIAQULdXNlckFkZHJlc3MEAXIJAQdvblN0YWtlAgUOdXNlckFkZHJlc3NTdHIFBmFtb3VudAQKbWVyZ2VkRGF0YQkBCm1lcmdlU3Rha2UEBQt1c2VyQWRkcmVzcwUGYW1vdW50CAUBcgJfNggFAXICXzcECWlzTmV3VXNlcggFCm1lcmdlZERhdGECXzEEDHN0YWtlZEFtb3VudAgFCm1lcmdlZERhdGECXzIEEXZwRWZmZWN0aXZlSGVpZ2h0CAUKbWVyZ2VkRGF0YQJfMwQPc3Rha2VkQW1vdW50TkVXCAUKbWVyZ2VkRGF0YQJfNAQUdnBFZmZlY3RpdmVIZWlnaHRORVcIBQptZXJnZWREYXRhAl81AwkAZgIFDW1pbkxvY2tBbW91bnQFD3N0YWtlZEFtb3VudE5FVwkAAgEJAKwCAgITTWluIGxvY2sgYW1vdW50IGlzIAkApAMBBQ1taW5Mb2NrQW1vdW50BA0kdDAyMjA3MTIyMTczCQELU3RhdHNSZXN1bHQDBQZhbW91bnQAAQMFCWlzTmV3VXNlcgABAAAEDHN0YXRzRW50cmllcwgFDSR0MDIyMDcxMjIxNzMCXzEEC3RvdGFsU3Rha2VkCAUNJHQwMjIwNzEyMjE3MwJfMgQOdG90YWxTdGFrZWROZXcIBQ0kdDAyMjA3MTIyMTczAl8zCQDOCAIJAM4IAgkAzggCCQDOCAIJAMwIAgkBEkhpc3RvcnlSZWNvcmRFbnRyeQcCBXN0YWtlBQt1c2VyQWRkcmVzcwgFAWkNdHJhbnNhY3Rpb25JZAUMc3Rha2VkQW1vdW50BRF2cEVmZmVjdGl2ZUhlaWdodAUPc3Rha2VkQW1vdW50TkVXBRR2cEVmZmVjdGl2ZUhlaWdodE5FVwUDbmlsCQENUmV3YXJkRW50cmllcwMFCWlzTmV3VXNlcgUOdXNlckFkZHJlc3NTdHIFDHN0YWtlZEFtb3VudAkBD0xvY2tQYXJhbXNFbnRyeQMFC3VzZXJBZGRyZXNzBQ9zdGFrZWRBbW91bnRORVcFFHZwRWZmZWN0aXZlSGVpZ2h0TkVXBQxzdGF0c0VudHJpZXMIBQFyAl8xAQtjb21tb25DbGFpbQILdXNlckFkZHJlc3MBaQQOdXNlckFkZHJlc3NTdHIJAKUIAQULdXNlckFkZHJlc3MDCQBmAgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIZcGF5bWVudHMgYXJlIG5vdCBhY2NlcHRlZAQNJHQwMjI2ODAyMjc4NQkBC3ZhbHVlT3JFbHNlAgkBE2dldFVzZXJQYXJhbXNPclVuaXQBBQt1c2VyQWRkcmVzcwkAlQoDBgAAAAAECWlzTmV3VXNlcggFDSR0MDIyNjgwMjI3ODUCXzEEDHN0YWtlZEFtb3VudAgFDSR0MDIyNjgwMjI3ODUCXzIEDHN0YWtpbmdTdGFydAgFDSR0MDIyNjgwMjI3ODUCXzMEDXN0YWtlZEFtb3VudFgJALYCAQUMc3Rha2VkQW1vdW50BBt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkJARtrZXlVc2VyUmV3YXJkRnJvbURlcG9zaXROdW0BBQ51c2VyQWRkcmVzc1N0cgQOZGVwb3NpdE51bVVzZXIJAQxnZXRJbnRPckVsc2UCBRt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkA////////////AQQOZGVwb3NpdE51bUxhc3QJAQxnZXRJbnRPckVsc2UCCQERa2V5RGVwb3NpdE51bUxhc3QAAP///////////wEKAR9mb3JFYWNoQXNzZXRDYWxjVW5jbGFpbWVkUmV3YXJkAgVhY2N1bQVhc3NldAQNJHQwMjMxNTYyMzI5NAkBCmNhbGNSZXdhcmQFBQ51c2VyQWRkcmVzc1N0cgUFYXNzZXQFDXN0YWtlZEFtb3VudFgFDmRlcG9zaXROdW1Vc2VyBQ5kZXBvc2l0TnVtTGFzdAQLcmV3YXJkVG90YWwIBQ0kdDAyMzE1NjIzMjk0Al8xBAZjYWNoZWQIBQ0kdDAyMzE1NjIzMjk0Al8yBAdkeW5hbWljCAUNJHQwMjMxNTYyMzI5NAJfMwQTcmV3YXJkQ2FjaGVkUGFydEtFWQgFDSR0MDIzMTU2MjMyOTQCXzQECmNsYWltZWRLRVkJAQprZXlDbGFpbWVkAgUOdXNlckFkZHJlc3NTdHIFBWFzc2V0BA0kdDAyMzM1NDIzMzkxBQVhY2N1bQQEZGF0YQgFDSR0MDIzMzU0MjMzOTECXzEEEWNsYWltZWRBbXRCeUFzc2V0CAUNJHQwMjMzNTQyMzM5MQJfMgQHbmV3UGFydAkAuQkCCQDMCAIFBWFzc2V0CQDMCAIJAKQDAQULcmV3YXJkVG90YWwFA25pbAIBOgQUY2xhaW1lZEFtdEJ5QXNzZXROZXcJALkJAgkAzAgCBRFjbGFpbWVkQW10QnlBc3NldAkAzAgCBQduZXdQYXJ0BQNuaWwCAV8DCQBnAgAABQtyZXdhcmRUb3RhbAkAlAoCBQRkYXRhBRRjbGFpbWVkQW10QnlBc3NldE5ldwkAlAoCCQDNCAIJAM0IAgkAzQgCBQRkYXRhCQEOU2NyaXB0VHJhbnNmZXIDBQt1c2VyQWRkcmVzcwULcmV3YXJkVG90YWwJAQt0b0Fzc2V0VmVjdAEFBWFzc2V0CQEMSW50ZWdlckVudHJ5AgUKY2xhaW1lZEtFWQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUKY2xhaW1lZEtFWQAABQtyZXdhcmRUb3RhbAkBDEludGVnZXJFbnRyeQIFE3Jld2FyZENhY2hlZFBhcnRLRVkAAAUUY2xhaW1lZEFtdEJ5QXNzZXROZXcEDSR0MDIzODUxMjM5NjQKAAIkbAUTc3VwcG9ydGVkQXNzZXRzTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAgAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBH2ZvckVhY2hBc3NldENhbGNVbmNsYWltZWRSZXdhcmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDkJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkECXRyYW5zZmVycwgFDSR0MDIzODUxMjM5NjQCXzEEF2NsYWltZWRBbXRCeUFzc2V0UmVzdWx0CAUNJHQwMjM4NTEyMzk2NAJfMgMJAGcCAAAJAJADAQUJdHJhbnNmZXJzCQCUCgIFA25pbAAACQCUCgIJAM0IAgkAzQgCBQl0cmFuc2ZlcnMJAQxJbnRlZ2VyRW50cnkCBRt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkFDmRlcG9zaXROdW1MYXN0CQERQ2xhaW1IaXN0b3J5RW50cnkDBQt1c2VyQWRkcmVzcwgFAWkNdHJhbnNhY3Rpb25JZAkAsAICBRdjbGFpbWVkQW10QnlBc3NldFJlc3VsdAABCQCQAwEFCXRyYW5zZmVycwwBaQENY29uc3RydWN0b3JWMQMNbWluTG9ja0Ftb3VudBVzdXBwb3J0ZWRSZXdhcmRBc3NldHMNc3Rha2VkQXNzZXRJZAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEQa2V5TWluTG9ja0Ftb3VudAAFDW1pbkxvY2tBbW91bnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBGGtleVN1cHBvcnRlZFJld2FyZEFzc2V0cwAFFXN1cHBvcnRlZFJld2FyZEFzc2V0cwkAzAgCCQELU3RyaW5nRW50cnkCCQEQa2V5U3Rha2VkQXNzZXRJZAAFDXN0YWtlZEFzc2V0SWQFA25pbAFpAQVzdGFrZQAJAQtjb21tb25TdGFrZQIIBQFpBmNhbGxlcgUBaQFpARNzdGFrZUJ5T3JpZ2luQ2FsbGVyAAkBC2NvbW1vblN0YWtlAggFAWkMb3JpZ2luQ2FsbGVyBQFpAWkBB3Vuc3Rha2UBBmFtb3VudAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECI3Vuc3Rha2UgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50BAt1c2VyQWRkcmVzcwgFAWkGY2FsbGVyBA51c2VyQWRkcmVzc1N0cgkApQgBBQt1c2VyQWRkcmVzcwQNJHQwMjQ5MDAyNDk1NAkBD2dldFBhcmFtc09yRmFpbAAEDXN0YWtlZEFzc2V0SWQIBQ0kdDAyNDkwMDI0OTU0Al8xBA1taW5Mb2NrQW1vdW50CAUNJHQwMjQ5MDAyNDk1NAJfMgQNJHQwMjQ5NTcyNTA0MQkBE2dldFVzZXJQYXJhbXNPckZhaWwBBQt1c2VyQWRkcmVzcwQJaXNOZXdVc2VyCAUNJHQwMjQ5NTcyNTA0MQJfMQQMc3Rha2VkQW1vdW50CAUNJHQwMjQ5NTcyNTA0MQJfMgQRdnBFZmZlY3RpdmVIZWlnaHQIBQ0kdDAyNDk1NzI1MDQxAl8zBBBzd2FwUGFyYW1zU1RSVUNUCQESYXNTd2FwUGFyYW1zU1RSVUNUAQkA/QcEBRBuZXV0cmlub0NvbnRyYWN0Ahtzd2FwUGFyYW1zQnlVc2VyU1lTUkVBRE9OTFkJAMwIAgUOdXNlckFkZHJlc3NTdHIJAMwIAgAABQNuaWwFA25pbAQUc3dhcExpbWl0U3BlbnRJblVzZG4IBRBzd2FwUGFyYW1zU1RSVUNUAl8yBA5ibGNrczJMbXRSZXNldAgFEHN3YXBQYXJhbXNTVFJVQ1QCXzMDCQBmAgUUc3dhcExpbWl0U3BlbnRJblVzZG4AAAkAAgEJAKwCAgkArAICAi1Zb3UgaGF2ZSBhbHJlYWR5IG1hZGUgYSBzd2FwIG9wZXJhdGlvbi4gV2FpdCAJAKQDAQkAZAIFBmhlaWdodAUOYmxja3MyTG10UmVzZXQCEiBoZWlnaHQgdG8gdW5zdGFrZQMJAGcCAAAFDHN0YWtlZEFtb3VudAkAAgECEk5vdGhpbmcgdG8gdW5zdGFrZQMJAGYCBQZhbW91bnQFDHN0YWtlZEFtb3VudAkAAgEJAKwCAgkArAICCQCsAgICClJlcXVlc3RlZCAJAKQDAQUGYW1vdW50AhIsIGJ1dCBzdGFrZWQgb25seSAJAKQDAQUMc3Rha2VkQW1vdW50BA9zdGFrZWRBbW91bnRORVcJAGUCBQxzdGFrZWRBbW91bnQFBmFtb3VudAQNJHQwMjU2NzkyNTgzNwkBC1N0YXRzUmVzdWx0AwkBAS0BBQZhbW91bnQDCQAAAgUGYW1vdW50BQxzdGFrZWRBbW91bnQA////////////AQAAAwkAAAIFBmFtb3VudAUMc3Rha2VkQW1vdW50AP///////////wEAAAQMc3RhdHNFbnRyaWVzCAUNJHQwMjU2NzkyNTgzNwJfMQQLdG90YWxTdGFrZWQIBQ0kdDAyNTY3OTI1ODM3Al8yBA50b3RhbFN0YWtlZE5ldwgFDSR0MDI1Njc5MjU4MzcCXzMJAM4IAgkAzggCCQDOCAIJAM4IAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQt1c2VyQWRkcmVzcwUGYW1vdW50BQ1zdGFrZWRBc3NldElkCQDMCAIJARJIaXN0b3J5UmVjb3JkRW50cnkHAgd1bnN0YWtlBQt1c2VyQWRkcmVzcwgFAWkNdHJhbnNhY3Rpb25JZAUMc3Rha2VkQW1vdW50BRF2cEVmZmVjdGl2ZUhlaWdodAUPc3Rha2VkQW1vdW50TkVXBRF2cEVmZmVjdGl2ZUhlaWdodAUDbmlsCQENUmV3YXJkRW50cmllcwMHBQ51c2VyQWRkcmVzc1N0cgUMc3Rha2VkQW1vdW50CQEPTG9ja1BhcmFtc0VudHJ5AwULdXNlckFkZHJlc3MFD3N0YWtlZEFtb3VudE5FVwURdnBFZmZlY3RpdmVIZWlnaHQFDHN0YXRzRW50cmllcwgJAQlvblVuc3Rha2UCBQ51c2VyQWRkcmVzc1N0cgUGYW1vdW50Al8xAWkBB2RlcG9zaXQABAt0b3RhbFN0YWtlZAkBDGdldEludE9yRWxzZQIJARdrZXlMb2NrUGFyYW1Ub3RhbEFtb3VudAAAAAMJAGYCAAAFC3RvdGFsU3Rha2VkCQACAQIbVE9ETzogY2FzZSBpcyBub3Qgc3VwcG9ydGVkBBFkZXBvc2l0TnVtTGFzdEtFWQkBEWtleURlcG9zaXROdW1MYXN0AAQOZGVwb3NpdE51bUxhc3QJAQxnZXRJbnRPckVsc2UCBRFkZXBvc2l0TnVtTGFzdEtFWQD///////////8BBA1kZXBvc2l0TnVtTmV3CQBkAgUOZGVwb3NpdE51bUxhc3QAAQoBA2RlcAIDYWNjA3BtdAQGYW1vdW50CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBC3ZhbHVlT3JFbHNlAggFA3BtdAdhc3NldElkBQdXQVZFU0lEBA1wbXRBc3NldElkU3RyCQDYBAEFCnBtdEFzc2V0SWQDCQEBIQEJAQhjb250YWlucwIFEnN1cHBvcnRlZEFzc2V0c1N0cgUNcG10QXNzZXRJZFN0cgkAAgEJAKwCAgkArAICBRJzdXBwb3J0ZWRBc3NldHNTdHICESBkb2Vzbid0IGNvbnRhaW4gBQ1wbXRBc3NldElkU3RyAwkAAAIFC3RvdGFsU3Rha2VkAAAJAM0IAgUDYWNjCQEiSW5jcmVtZW50Tm90RGlzdHJpYnV0ZWRSZXdhcmRFbnRyeQIFDXBtdEFzc2V0SWRTdHIFBmFtb3VudAQQcmV3YXJkUGVyTnNidFgxOAkAvAIDCQC2AgEFBmFtb3VudAUHTVVMVFgxOAkAtgIBBQt0b3RhbFN0YWtlZAoBF3JlZnJlc2hSZXdhcmRQZXJOc2J0U1VNAgVhY2N1bQluZXh0QXNzZXQECnN1bUxhc3RTdHIJAQxnZXRTdHJPckVsc2UCCQEVa2V5UmV3YXJkUGVyTnNidFN1bUF0AgUOZGVwb3NpdE51bUxhc3QFCW5leHRBc3NldAIBMAkAzQgCBQVhY2N1bQkBC1N0cmluZ0VudHJ5AgkBFWtleVJld2FyZFBlck5zYnRTdW1BdAIFDWRlcG9zaXROdW1OZXcFCW5leHRBc3NldAMJAAACBQluZXh0QXNzZXQFDXBtdEFzc2V0SWRTdHIJAKYDAQkAtwICCQCnAwEFCnN1bUxhc3RTdHIFEHJld2FyZFBlck5zYnRYMTgFCnN1bUxhc3RTdHIJAM4IAgkAzggCBQNhY2MKAAIkbAUTc3VwcG9ydGVkQXNzZXRzTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEXcmVmcmVzaFJld2FyZFBlck5zYnRTVU0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDkJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkJARVEZXBvc2l0c1RvdGFsc0VudHJpZXMCBQZhbW91bnQFDXBtdEFzc2V0SWRTdHIJAM0IAgkAzggCCgACJGwIBQFpCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQNkZXACBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAQx1cGRhdGVUb3RhbHMACQEMSW50ZWdlckVudHJ5AgURZGVwb3NpdE51bUxhc3RLRVkFDWRlcG9zaXROdW1OZXcBaQEMY2xhaW1SZXdhcmRzAAkBC2NvbW1vbkNsYWltAggFAWkGY2FsbGVyBQFpAWkBGmNsYWltUmV3YXJkc0J5T3JpZ2luQ2FsbGVyAAkBC2NvbW1vbkNsYWltAggFAWkMb3JpZ2luQ2FsbGVyBQFpAWkBGHVuY2xhaW1lZFJld2FyZHNSRUFET05MWQEOdXNlckFkZHJlc3NTdHIKARZmb3JFYWNoQXNzZXRaZXJvUmV3YXJkAgVhY2N1bQVhc3NldAkArAICCQCsAgIFBWFjY3VtCQC5CQIJAMwIAgUFYXNzZXQJAMwIAgIBMAkAzAgCAgEwBQNuaWwCAToCAV8EEnVuY2xhaW1lZFJld2FyZFN0cgMJAAACBQ51c2VyQWRkcmVzc1N0cgIACgACJGwFE3N1cHBvcnRlZEFzc2V0c0xpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBFmZvckVhY2hBc3NldFplcm9SZXdhcmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDkJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkEC3VzZXJBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBQ51c2VyQWRkcmVzc1N0cgQNJHQwMjgzNTkyODQ2NAkBC3ZhbHVlT3JFbHNlAgkBE2dldFVzZXJQYXJhbXNPclVuaXQBBQt1c2VyQWRkcmVzcwkAlQoDBgAAAAAECWlzTmV3VXNlcggFDSR0MDI4MzU5Mjg0NjQCXzEEDHN0YWtlZEFtb3VudAgFDSR0MDI4MzU5Mjg0NjQCXzIEDHN0YWtpbmdTdGFydAgFDSR0MDI4MzU5Mjg0NjQCXzMEDXN0YWtlZEFtb3VudFgJALYCAQUMc3Rha2VkQW1vdW50BBt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkJARtrZXlVc2VyUmV3YXJkRnJvbURlcG9zaXROdW0BBQ51c2VyQWRkcmVzc1N0cgQOZGVwb3NpdE51bVVzZXIJAQxnZXRJbnRPckVsc2UCBRt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkA////////////AQQOZGVwb3NpdE51bUxhc3QJAQxnZXRJbnRPckVsc2UCCQERa2V5RGVwb3NpdE51bUxhc3QAAP///////////wEKAR9mb3JFYWNoQXNzZXRDYWxjVW5jbGFpbWVkUmV3YXJkAgVhY2N1bQVhc3NldAQNJHQwMjg4MTAyODk0OAkBCmNhbGNSZXdhcmQFBQ51c2VyQWRkcmVzc1N0cgUFYXNzZXQFDXN0YWtlZEFtb3VudFgFDmRlcG9zaXROdW1Vc2VyBQ5kZXBvc2l0TnVtTGFzdAQLcmV3YXJkVG90YWwIBQ0kdDAyODgxMDI4OTQ4Al8xBAZjYWNoZWQIBQ0kdDAyODgxMDI4OTQ4Al8yBAdkeW5hbWljCAUNJHQwMjg4MTAyODk0OAJfMwQTcmV3YXJkQ2FjaGVkUGFydEtFWQgFDSR0MDI4ODEwMjg5NDgCXzQEB2NsYWltZWQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBCmtleUNsYWltZWQCBQ51c2VyQWRkcmVzc1N0cgUFYXNzZXQAAAkArAICCQCsAgIFBWFjY3VtCQC5CQIJAMwIAgUFYXNzZXQJAMwIAgkApAMBBQtyZXdhcmRUb3RhbAkAzAgCCQCkAwEFB2NsYWltZWQFA25pbAIBOgIBXwoAAiRsBRNzdXBwb3J0ZWRBc3NldHNMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAIACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAR9mb3JFYWNoQXNzZXRDYWxjVW5jbGFpbWVkUmV3YXJkAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA5CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJCQCUCgIFA25pbAkAswICBRJ1bmNsYWltZWRSZXdhcmRTdHIAAQFpARF1cGRhdGVWb3RpbmdQb3dlcgEOdXNlckFkZHJlc3NTdHIDCQEBIQEJAQlpc0RlZmluZWQBCQCmCAEFDnVzZXJBZGRyZXNzU3RyCQACAQIUSW52YWxpZCB1c2VyIGFkZHJlc3MEAXIJAQdvblN0YWtlAgUOdXNlckFkZHJlc3NTdHIAAAkAlAoCCAUBcgJfMQkAzAgCCQELc3VyZlRvR25zYnQBCAUBcgJfMgkAzAgCCQELc3VyZlRvR25zYnQBCAUBcgJfMwkAzAgCCQELc3VyZlRvR25zYnQBCAUBcgJfNAkAzAgCCQELc3VyZlRvR25zYnQBCAUBcgJfNQkAzAgCCQELc3VyZlRvR25zYnQBCAUBcgJfNgkAzAgCCQELc3VyZlRvR25zYnQBCAUBcgJfNwUDbmlsAWkBFnN1cmZTdGFraW5nU1lTUkVBRE9OTFkCFXVzZXJBZGRyZXNzU3RyT3JFbXB0eQhzdXJmRGlmZgQJc3VyZlRvdGFsCQEMZ2V0SW50T3JFbHNlAgkBF2tleUxvY2tQYXJhbVRvdGFsQW1vdW50AAAABBJnbnNidEZyb21TdXJmVG90YWwJAQtzdXJmVG9HbnNidAEFCXN1cmZUb3RhbAQBcgMJAGcCBQhzdXJmRGlmZgAACQEHb25TdGFrZQIFFXVzZXJBZGRyZXNzU3RyT3JFbXB0eQUIc3VyZkRpZmYJAQlvblVuc3Rha2UCBRV1c2VyQWRkcmVzc1N0ck9yRW1wdHkJAQEtAQUIc3VyZkRpZmYDCQAAAgUVdXNlckFkZHJlc3NTdHJPckVtcHR5AgAJAJQKAgUDbmlsCQDMCAIAAAkAzAgCBQlzdXJmVG90YWwJAMwIAgAACQDMCAIFEmduc2J0RnJvbVN1cmZUb3RhbAkAzAgCBQZoZWlnaHQJAMwIAgUGaGVpZ2h0CQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl8yCQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl8zCQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl80CQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl81CQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl82CQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl83BQNuaWwEC3VzZXJBZGRyZXNzCQEPdG9BZGRyZXNzT3JGYWlsAQUVdXNlckFkZHJlc3NTdHJPckVtcHR5BAptZXJnZWREYXRhCQEKbWVyZ2VTdGFrZQQFC3VzZXJBZGRyZXNzBQhzdXJmRGlmZggFAXICXzYIBQFyAl83BAxzdGFrZWRBbW91bnQIBQptZXJnZWREYXRhAl8yBBF2cEVmZmVjdGl2ZUhlaWdodAgFCm1lcmdlZERhdGECXzMED3N0YWtlZEFtb3VudE5FVwgFCm1lcmdlZERhdGECXzQEFHZwRWZmZWN0aXZlSGVpZ2h0TkVXCAUKbWVyZ2VkRGF0YQJfNQQIc3VyZlVzZXIFDHN0YWtlZEFtb3VudAQRZ25zYnRGcm9tU3VyZlVzZXIJAQtzdXJmVG9HbnNidAEFCHN1cmZVc2VyCQCUCgIFA25pbAkAzAgCBQhzdXJmVXNlcgkAzAgCBQlzdXJmVG90YWwJAMwIAgURZ25zYnRGcm9tU3VyZlVzZXIJAMwIAgUSZ25zYnRGcm9tU3VyZlRvdGFsCQDMCAIFEXZwRWZmZWN0aXZlSGVpZ2h0CQDMCAIFFHZwRWZmZWN0aXZlSGVpZ2h0TkVXCQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl8yCQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl8zCQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl80CQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl81CQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl82CQDMCAIJAQtzdXJmVG9HbnNidAEIBQFyAl83BQNuaWwBaQEYZ25zYnRGcm9tU3VyZlNZU1JFQURPTkxZAQdzdXJmQW10CQCUCgIFA25pbAkBC3N1cmZUb0duc2J0AQUHc3VyZkFtdAFpARFjb25maWdTWVNSRUFET05MWQAECm1pbkxvY2tBbXQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJARBrZXlNaW5Mb2NrQW1vdW50AAQgc3VyZlZvdGluZ1Bvd2VyUmVzdHJpY3RpdmVQZXJpb2QFDURFRkFVTFRQRVJJT0QEG2JyVG9TdGFydFN1cmZUcmFuc2Zvcm1hdGlvbgCwmEYJAJQKAgUDbmlsCQDMCAIFCm1pbkxvY2tBbXQJAMwIAgkAaAIFEmduc2J0RnJvbVN1cmZDb2VmZgUFTVVMVDYJAMwIAgUgc3VyZlZvdGluZ1Bvd2VyUmVzdHJpY3RpdmVQZXJpb2QJAMwIAgUbYnJUb1N0YXJ0U3VyZlRyYW5zZm9ybWF0aW9uBQNuaWwASLBkiA==",
    "height": 2443255,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BPc8E4DJmBDdKqE58NFoQaajKT35tKuEqz8aBYMFufUR
Next: 94erSyJ8UaKoRPtegm4j4K6jMHv8AHodkbVV7SdUX3T9

Diff: 
Old New Differences
117 117  func keyStatsDepositAmtByDay (timestamp) = makeString(["%s%s%d", "stats", "depositAmtByDay", toString(timestamp)], separator)
118 118  
119 119  
120 - func keyStatsDepositAmtTotals () = makeString(["%s%s", "stats", "depositAmtTotals"], separator)
120 + func keyStatsDepositAmtTotals () = makeString(["%s%s%d", "stats", "depositAmtTotals"], separator)
121 121  
122 122  
123 123  func keySupportedRewardAssets () = "supportedRewardAssets"
124 124  
125 125  
126 - func keyDepositNumLast () = makeString(["%s%s", "dep", "lastNum"], separator)
126 + func keyDepositNumLast () = makeString(["%s%s%s", "dep", "lastNum"], separator)
127 127  
128 128  
129 - func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s", "userRwdFromDepNum", userAddress], separator)
129 + func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s%s", "userRwdFromDepNum", userAddress], separator)
130 130  
131 131  
132 132  func keyRewardPerNsbtSumAt (depositNum,tkn) = makeString(["%s%d", "rwdPerNsbtSumByDepNum", toString(depositNum), tkn], separator)
304 304      let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
305 305      let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
306 306      func forEachAssetCacheUserReward (accum,asset) =     {
307 -         let $t01210412239 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
308 -         let rewardTotal = $t01210412239._1
309 -         let cached = $t01210412239._2
310 -         let dynamic = $t01210412239._3
311 -         let rewardCachedPartKEY = $t01210412239._4
307 +         let $t01211012245 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
308 +         let rewardTotal = $t01211012245._1
309 +         let cached = $t01211012245._2
310 +         let dynamic = $t01211012245._3
311 +         let rewardCachedPartKEY = $t01211012245._4
312 312          (accum :+ IntegerEntry(rewardCachedPartKEY, rewardTotal))
313 313          }
314 314  
346 346  func IncrementNotDistributedRewardEntry (tkn,amountInc) = {
347 347      let notDistributedRewardKEY = keyNotDistributedReward(tkn)
348 348      let notDistributedReward = getIntOrElse(notDistributedRewardKEY, 0)
349 - [IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))]
349 +     IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))
350 350      }
351 351  
352 352  
354 354  
355 355  
356 356  func mergeStake (userAddress,amountToAdd,userTeen,userKid) = {
357 -     let $t01516215272 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
358 -     let isNewUser = $t01516215272._1
359 -     let stakedAmount = $t01516215272._2
360 -     let vpEffectiveHeight = $t01516215272._3
357 +     let $t01516615276 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
358 +     let isNewUser = $t01516615276._1
359 +     let stakedAmount = $t01516615276._2
360 +     let vpEffectiveHeight = $t01516615276._3
361 361      let stakedAmountNEW = if (isNewUser)
362 362          then amountToAdd
363 363          else (amountToAdd + stakedAmount)
417 417      else [0, (gnsbt - diff)]
418 418  
419 419  
420 - func onUnstake (userAddressStr,amountToRemove) = if ((amountToRemove >= 0))
421 -     then throw("amountToRemove should be < 0")
420 + func onUnstake (userAddressStr,amountToRemove) = if ((0 >= amountToRemove))
421 +     then throw("amountToRemove should be > 0")
422 422      else {
423 423          let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
424 424          let period = (height / W2)
448 448  
449 449  
450 450  func commonStake (userAddress,i) = {
451 -     let $t02115921213 = getParamsOrFail()
452 -     let stakedAssetId = $t02115921213._1
453 -     let minLockAmount = $t02115921213._2
451 +     let $t02116321217 = getParamsOrFail()
452 +     let stakedAssetId = $t02116321217._1
453 +     let minLockAmount = $t02116321217._2
454 454      if ((size(i.payments) != 1))
455 455          then throw("Invalid payments size")
456 456          else {
472 472                      if ((minLockAmount > stakedAmountNEW))
473 473                          then throw(("Min lock amount is " + toString(minLockAmount)))
474 474                          else {
475 -                             let $t02206722169 = StatsResult(amount, 1, if (isNewUser)
475 +                             let $t02207122173 = StatsResult(amount, 1, if (isNewUser)
476 476                                  then 1
477 477                                  else 0)
478 -                             let statsEntries = $t02206722169._1
479 -                             let totalStaked = $t02206722169._2
480 -                             let totalStakedNew = $t02206722169._3
478 +                             let statsEntries = $t02207122173._1
479 +                             let totalStaked = $t02207122173._2
480 +                             let totalStakedNew = $t02207122173._3
481 481                              (((([HistoryRecordEntry("stake", userAddress, i.transactionId, stakedAmount, vpEffectiveHeight, stakedAmountNEW, vpEffectiveHeightNEW)] ++ RewardEntries(isNewUser, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNEW, vpEffectiveHeightNEW)) ++ statsEntries) ++ r._1)
482 482                              }
483 483                      }
490 490      if ((size(i.payments) > 0))
491 491          then throw("payments are not accepted")
492 492          else {
493 -             let $t02267622781 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
494 -             let isNewUser = $t02267622781._1
495 -             let stakedAmount = $t02267622781._2
496 -             let stakingStart = $t02267622781._3
493 +             let $t02268022785 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
494 +             let isNewUser = $t02268022785._1
495 +             let stakedAmount = $t02268022785._2
496 +             let stakingStart = $t02268022785._3
497 497              let stakedAmountX = toBigInt(stakedAmount)
498 498              let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
499 499              let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
500 500              let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
501 501              func forEachAssetCalcUnclaimedReward (accum,asset) =             {
502 -                 let $t02315223290 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
503 -                 let rewardTotal = $t02315223290._1
504 -                 let cached = $t02315223290._2
505 -                 let dynamic = $t02315223290._3
506 -                 let rewardCachedPartKEY = $t02315223290._4
502 +                 let $t02315623294 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
503 +                 let rewardTotal = $t02315623294._1
504 +                 let cached = $t02315623294._2
505 +                 let dynamic = $t02315623294._3
506 +                 let rewardCachedPartKEY = $t02315623294._4
507 507                  let claimedKEY = keyClaimed(userAddressStr, asset)
508 -                 let $t02335023387 = accum
509 -                 let data = $t02335023387._1
510 -                 let claimedAmtByAsset = $t02335023387._2
508 +                 let $t02335423391 = accum
509 +                 let data = $t02335423391._1
510 +                 let claimedAmtByAsset = $t02335423391._2
511 511                  let newPart = makeString([asset, toString(rewardTotal)], ":")
512 512                  let claimedAmtByAssetNew = makeString([claimedAmtByAsset, newPart], "_")
513 513                  if ((0 >= rewardTotal))
515 515                      else $Tuple2((((data :+ ScriptTransfer(userAddress, rewardTotal, toAssetVect(asset))) :+ IntegerEntry(claimedKEY, (valueOrElse(getInteger(claimedKEY), 0) + rewardTotal))) :+ IntegerEntry(rewardCachedPartKEY, 0)), claimedAmtByAssetNew)
516 516                  }
517 517  
518 -             let $t02384723960 = {
518 +             let $t02385123964 = {
519 519                  let $l = supportedAssetsList
520 520                  let $s = size($l)
521 521                  let $acc0 = $Tuple2(nil, "")
529 529  
530 530                  $f0_2($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)
531 531                  }
532 -             let transfers = $t02384723960._1
533 -             let claimedAmtByAssetResult = $t02384723960._2
532 +             let transfers = $t02385123964._1
533 +             let claimedAmtByAssetResult = $t02385123964._2
534 534              if ((0 >= size(transfers)))
535 535                  then $Tuple2(nil, 0)
536 536                  else $Tuple2(((transfers :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)) :+ ClaimHistoryEntry(userAddress, i.transactionId, drop(claimedAmtByAssetResult, 1))), size(transfers))
539 539  
540 540  
541 541  @Callable(i)
542 - func constructor (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
542 + func constructorV1 (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
543 543      then throw("Permission denied")
544 544      else [IntegerEntry(keyMinLockAmount(), minLockAmount), StringEntry(keySupportedRewardAssets(), supportedRewardAssets), StringEntry(keyStakedAssetId(), stakedAssetId)]
545 545  
561 561      else {
562 562          let userAddress = i.caller
563 563          let userAddressStr = toString(userAddress)
564 -         let $t02489424948 = getParamsOrFail()
565 -         let stakedAssetId = $t02489424948._1
566 -         let minLockAmount = $t02489424948._2
567 -         let $t02495125035 = getUserParamsOrFail(userAddress)
568 -         let isNewUser = $t02495125035._1
569 -         let stakedAmount = $t02495125035._2
570 -         let vpEffectiveHeight = $t02495125035._3
564 +         let $t02490024954 = getParamsOrFail()
565 +         let stakedAssetId = $t02490024954._1
566 +         let minLockAmount = $t02490024954._2
567 +         let $t02495725041 = getUserParamsOrFail(userAddress)
568 +         let isNewUser = $t02495725041._1
569 +         let stakedAmount = $t02495725041._2
570 +         let vpEffectiveHeight = $t02495725041._3
571 571          let swapParamsSTRUCT = asSwapParamsSTRUCT(reentrantInvoke(neutrinoContract, "swapParamsByUserSYSREADONLY", [userAddressStr, 0], nil))
572 572          let swapLimitSpentInUsdn = swapParamsSTRUCT._2
573 573          let blcks2LmtReset = swapParamsSTRUCT._3
579 579                      then throw(((("Requested " + toString(amount)) + ", but staked only ") + toString(stakedAmount)))
580 580                      else {
581 581                          let stakedAmountNEW = (stakedAmount - amount)
582 -                         let $t02567325831 = StatsResult(-(amount), if ((amount == stakedAmount))
582 +                         let $t02567925837 = StatsResult(-(amount), if ((amount == stakedAmount))
583 583                              then -1
584 584                              else 0, if ((amount == stakedAmount))
585 585                              then -1
586 586                              else 0)
587 -                         let statsEntries = $t02567325831._1
588 -                         let totalStaked = $t02567325831._2
589 -                         let totalStakedNew = $t02567325831._3
587 +                         let statsEntries = $t02567925837._1
588 +                         let totalStaked = $t02567925837._2
589 +                         let totalStakedNew = $t02567925837._3
590 590                          (((([ScriptTransfer(userAddress, amount, stakedAssetId), HistoryRecordEntry("unstake", userAddress, i.transactionId, stakedAmount, vpEffectiveHeight, stakedAmountNEW, vpEffectiveHeight)] ++ RewardEntries(false, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNEW, vpEffectiveHeight)) ++ statsEntries) ++ onUnstake(userAddressStr, amount)._1)
591 591                          }
592 592          }
594 594  
595 595  
596 596  @Callable(i)
597 - func deposit () = if ((size(i.payments) != 1))
598 -     then throw("exact 1 payment is allowed only")
599 -     else {
600 -         let pmt = i.payments[0]
601 -         let amount = pmt.amount
602 -         let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
603 -         let pmtAssetIdStr = toBase58String(pmtAssetId)
604 -         let pmtMultX = if ((pmtAssetId == WAVESID))
605 -             then MULTX8
606 -             else MULTX6
607 -         let amountX = toBigInt(amount)
608 -         let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
609 -         let totalStakedX = toBigInt(totalStaked)
610 -         if ((0 > totalStaked))
611 -             then throw("TODO: case is not supported")
612 -             else if ((totalStaked == 0))
613 -                 then IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount)
614 -                 else {
615 -                     let rewardPerNsbtX18 = fraction(amountX, MULTX18, totalStakedX)
616 -                     let depositNumLastKEY = keyDepositNumLast()
617 -                     let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
618 -                     let depositNumNew = (depositNumLast + 1)
619 -                     if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
620 -                         then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
597 + func deposit () = {
598 +     let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
599 +     if ((0 > totalStaked))
600 +         then throw("TODO: case is not supported")
601 +         else {
602 +             let depositNumLastKEY = keyDepositNumLast()
603 +             let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
604 +             let depositNumNew = (depositNumLast + 1)
605 +             func dep (acc,pmt) =             {
606 +                 let amount = pmt.amount
607 +                 let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
608 +                 let pmtAssetIdStr = toBase58String(pmtAssetId)
609 +                 if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
610 +                     then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
611 +                     else if ((totalStaked == 0))
612 +                         then (acc :+ IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount))
621 613                          else {
614 +                             let rewardPerNsbtX18 = fraction(toBigInt(amount), MULTX18, toBigInt(totalStaked))
622 615                              func refreshRewardPerNsbtSUM (accum,nextAsset) =                             {
623 -                                 let rewardPerNsbtSumNewKEY = keyRewardPerNsbtSumAt(depositNumNew, nextAsset)
624 616                                  let sumLastStr = getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, nextAsset), "0")
625 -                                 (accum :+ (if ((nextAsset == pmtAssetIdStr))
626 -                                     then StringEntry(rewardPerNsbtSumNewKEY, toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18)))
627 -                                     else StringEntry(rewardPerNsbtSumNewKEY, sumLastStr)))
617 +                                 (accum :+ StringEntry(keyRewardPerNsbtSumAt(depositNumNew, nextAsset), if ((nextAsset == pmtAssetIdStr))
618 +                                     then toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18))
619 +                                     else sumLastStr))
628 620                                  }
629 621  
630 -                             ((({
622 +                             ((acc ++ {
631 623                                  let $l = supportedAssetsList
632 624                                  let $s = size($l)
633 625                                  let $acc0 = nil
640 632                                      else throw("List size exceeds 9")
641 633  
642 634                                  $f0_2($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)
643 -                                 } :+ IntegerEntry(depositNumLastKEY, depositNumNew)) ++ DepositsTotalsEntries(amount, pmtAssetIdStr)) ++ updateTotals())
635 +                                 }) ++ DepositsTotalsEntries(amount, pmtAssetIdStr))
644 636                              }
645 -                     }
646 -         }
637 +                 }
638 + 
639 +             (({
640 +                 let $l = i.payments
641 +                 let $s = size($l)
642 +                 let $acc0 = nil
643 +                 func $f0_1 ($a,$i) =                 if (($i >= $s))
644 +                     then $a
645 +                     else dep($a, $l[$i])
646 + 
647 +                 func $f0_2 ($a,$i) =                 if (($i >= $s))
648 +                     then $a
649 +                     else throw("List size exceeds 10")
650 + 
651 +                 $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)
652 +                 } ++ updateTotals()) :+ IntegerEntry(depositNumLastKEY, depositNumNew))
653 +             }
654 +     }
647 655  
648 656  
649 657  
678 686              }
679 687          else {
680 688              let userAddress = addressFromStringValue(userAddressStr)
681 -             let $t02855328658 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
682 -             let isNewUser = $t02855328658._1
683 -             let stakedAmount = $t02855328658._2
684 -             let stakingStart = $t02855328658._3
689 +             let $t02835928464 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
690 +             let isNewUser = $t02835928464._1
691 +             let stakedAmount = $t02835928464._2
692 +             let stakingStart = $t02835928464._3
685 693              let stakedAmountX = toBigInt(stakedAmount)
686 694              let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
687 695              let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
688 696              let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
689 697              func forEachAssetCalcUnclaimedReward (accum,asset) =             {
690 -                 let $t02900429142 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
691 -                 let rewardTotal = $t02900429142._1
692 -                 let cached = $t02900429142._2
693 -                 let dynamic = $t02900429142._3
694 -                 let rewardCachedPartKEY = $t02900429142._4
698 +                 let $t02881028948 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
699 +                 let rewardTotal = $t02881028948._1
700 +                 let cached = $t02881028948._2
701 +                 let dynamic = $t02881028948._3
702 +                 let rewardCachedPartKEY = $t02881028948._4
695 703                  let claimed = valueOrElse(getInteger(keyClaimed(userAddressStr, asset)), 0)
696 704                  ((accum + makeString([asset, toString(rewardTotal), toString(claimed)], ":")) + "_")
697 705                  }
730 738      let gnsbtFromSurfTotal = surfToGnsbt(surfTotal)
731 739      let r = if ((surfDiff >= 0))
732 740          then onStake(userAddressStrOrEmpty, surfDiff)
733 -         else onUnstake(userAddressStrOrEmpty, surfDiff)
741 +         else onUnstake(userAddressStrOrEmpty, -(surfDiff))
734 742      if ((userAddressStrOrEmpty == ""))
735 743          then $Tuple2(nil, [0, surfTotal, 0, gnsbtFromSurfTotal, height, height, surfToGnsbt(r._2), surfToGnsbt(r._3), surfToGnsbt(r._4), surfToGnsbt(r._5), surfToGnsbt(r._6), surfToGnsbt(r._7)])
736 744          else {
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  let SEP = "__"
7 7  
8 8  let MULT6 = 1000000
9 9  
10 10  let MULT8 = 100000000
11 11  
12 12  let MULTX6 = toBigInt(MULT6)
13 13  
14 14  let MULTX8 = toBigInt(MULT8)
15 15  
16 16  let MULTX18 = toBigInt(1000000000000000000)
17 17  
18 18  let WAVESIDSTR = "WAVES"
19 19  
20 20  let WAVESID = fromBase58String(WAVESIDSTR)
21 21  
22 22  let DAYMILLIS = 86400000
23 23  
24 24  let DEFAULTPERIOD = (1440 * 14)
25 25  
26 26  let IdxControlCfgNeutrinoDapp = 1
27 27  
28 28  let IdxControlCfgAuctionDapp = 2
29 29  
30 30  let IdxControlCfgRpdDapp = 3
31 31  
32 32  let IdxControlCfgMathDapp = 4
33 33  
34 34  let IdxControlCfgLiquidationDapp = 5
35 35  
36 36  let IdxControlCfgRestDapp = 6
37 37  
38 38  let IdxControlCfgNodeRegistryDapp = 7
39 39  
40 40  let IdxControlCfgNsbtStakingDapp = 8
41 41  
42 42  let IdxControlCfgMediatorDapp = 9
43 43  
44 44  let IdxControlCfgSurfStakingDapp = 10
45 45  
46 46  let IdxControlCfgGnsbtControllerDapp = 11
47 47  
48 48  let IdxControlCfgRestV2Dapp = 12
49 49  
50 50  let IdxControlCfgGovernanceDapp = 13
51 51  
52 52  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
53 53  
54 54  
55 55  func keyControlAddress () = "%s%s__config__controlAddress"
56 56  
57 57  
58 58  func keyControlCfg () = "%s__controlConfig"
59 59  
60 60  
61 61  func keyGnsbtFromSurfCoeff () = "%s%s__cfg__gnsbtFromSurfCoeff"
62 62  
63 63  
64 64  func readControlCfgOrFail (control) = split_4C(getStringOrFail(control, keyControlCfg()), SEP)
65 65  
66 66  
67 67  func getContractAddressOrFail (controlCfg,idx) = valueOrErrorMessage(addressFromString(controlCfg[idx]), ("Control cfg doesn't contain address at index " + toString(idx)))
68 68  
69 69  
70 70  let controlContract = addressFromStringValue(valueOrElse(getString(this, keyControlAddress()), "3N4NS7d4Jo9a6F14LiFUKKYVdUkkf2eP4Zx"))
71 71  
72 72  let controlCfg = readControlCfgOrFail(controlContract)
73 73  
74 74  let mathContract = getContractAddressOrFail(controlCfg, IdxControlCfgMathDapp)
75 75  
76 76  let neutrinoContract = getContractAddressOrFail(controlCfg, IdxControlCfgNeutrinoDapp)
77 77  
78 78  let auctionContract = getContractAddressOrFail(controlCfg, IdxControlCfgAuctionDapp)
79 79  
80 80  let govContract = getContractAddressOrFail(controlCfg, IdxControlCfgGovernanceDapp)
81 81  
82 82  let gnsbtFromSurfCoeff = valueOrElse(getInteger(this, keyGnsbtFromSurfCoeff()), 300)
83 83  
84 84  func keyBondAsset () = "bond_asset_id"
85 85  
86 86  
87 87  func keyAuctionContractAddress () = "auction_contract"
88 88  
89 89  
90 90  func keyMinLockAmount () = "%s__minLockAmount"
91 91  
92 92  
93 93  func keyStakedAssetId () = "%s__stakedAssetId"
94 94  
95 95  
96 96  func keyLockParamUserAmount (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "amount"], separator)
97 97  
98 98  
99 99  func keyLockParamStartBlock (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "start"], separator)
100 100  
101 101  
102 102  func keyLockParamVotingPowerEffectiveHeight (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "vpEffectiveHeight"], separator)
103 103  
104 104  
105 105  func keyHistoryRecord (type,userAddress,txId) = makeString(["%s%s%s%s", "history", type, toString(userAddress), toBase58String(txId)], separator)
106 106  
107 107  
108 108  func keyLockParamTotalAmount () = makeString(["%s%s", "stats", "activeTotalLocked"], separator)
109 109  
110 110  
111 111  func keyStatsLocksCount () = makeString(["%s%s", "stats", "locksCount"], separator)
112 112  
113 113  
114 114  func keyStatsUsersCount () = makeString(["%s%s", "stats", "activeUsersCount"], separator)
115 115  
116 116  
117 117  func keyStatsDepositAmtByDay (timestamp) = makeString(["%s%s%d", "stats", "depositAmtByDay", toString(timestamp)], separator)
118 118  
119 119  
120 - func keyStatsDepositAmtTotals () = makeString(["%s%s", "stats", "depositAmtTotals"], separator)
120 + func keyStatsDepositAmtTotals () = makeString(["%s%s%d", "stats", "depositAmtTotals"], separator)
121 121  
122 122  
123 123  func keySupportedRewardAssets () = "supportedRewardAssets"
124 124  
125 125  
126 - func keyDepositNumLast () = makeString(["%s%s", "dep", "lastNum"], separator)
126 + func keyDepositNumLast () = makeString(["%s%s%s", "dep", "lastNum"], separator)
127 127  
128 128  
129 - func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s", "userRwdFromDepNum", userAddress], separator)
129 + func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s%s", "userRwdFromDepNum", userAddress], separator)
130 130  
131 131  
132 132  func keyRewardPerNsbtSumAt (depositNum,tkn) = makeString(["%s%d", "rwdPerNsbtSumByDepNum", toString(depositNum), tkn], separator)
133 133  
134 134  
135 135  func keyReward (userAddress,tkn) = makeString(["%s%s%s", "rwd", userAddress, tkn], separator)
136 136  
137 137  
138 138  func keyClaimed (userAddress,tkn) = makeString(["%s%s%s", "clm", userAddress, tkn], separator)
139 139  
140 140  
141 141  func keyNotDistributedReward (tkn) = makeString(["%s%s", "notDistributed", tkn], separator)
142 142  
143 143  
144 144  func keyVpPeriodDuration () = makeString(["%s%s", "vp", "periodDuration"], separator)
145 145  
146 146  
147 147  func keyLastTotalsPeriodProcessed () = makeString(["%s%s", "vp", "lastTotalsPeriodProcessed"], separator)
148 148  
149 149  
150 150  func keyLastUserPeriodProcessed (userAddress) = makeString(["%s%s%s", "vp", "lastUserPeriodProcessed", userAddress], separator)
151 151  
152 152  
153 153  func keyTotalMature () = makeString(["%s%s", "vp", "totalMature"], separator)
154 154  
155 155  
156 156  func keyTotalTeen () = makeString(["%s%s", "vp", "totalTeen"], separator)
157 157  
158 158  
159 159  func keyTotalKid () = makeString(["%s%s", "vp", "totalKid"], separator)
160 160  
161 161  
162 162  func keyUserMature (userAddress) = makeString(["%s%s%s", "vp", "userMature", userAddress], separator)
163 163  
164 164  
165 165  func keyUserTeen (userAddress) = makeString(["%s%s%s", "vp", "userTeen", userAddress], separator)
166 166  
167 167  
168 168  func keyUserKid (userAddress) = makeString(["%s%s%s", "vp", "userKid", userAddress], separator)
169 169  
170 170  
171 171  func toX18 (origVal,origMult) = fraction(toBigInt(origVal), MULTX18, origMult)
172 172  
173 173  
174 174  func getIntOrZero (key) = valueOrElse(getInteger(this, key), 0)
175 175  
176 176  
177 177  func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal)
178 178  
179 179  
180 180  func getIntOrFail (key) = valueOrErrorMessage(getInteger(this, key), (("Mandatory this." + key) + " is not defined"))
181 181  
182 182  
183 183  func getStrOrElse (key,defaultVal) = valueOrElse(getString(this, key), defaultVal)
184 184  
185 185  
186 186  func toAddressOrFail (addressStr) = valueOrErrorMessage(addressFromString(addressStr), ("couldn't parse passed addressStr=" + addressStr))
187 187  
188 188  
189 189  func toAssetVect (assetStr) = if ((assetStr == WAVESIDSTR))
190 190      then unit
191 191      else fromBase58String(assetStr)
192 192  
193 193  
194 194  func asInt (val) = match val {
195 195      case valInt: Int => 
196 196          valInt
197 197      case _ => 
198 198          throw("fail to cast into Int")
199 199  }
200 200  
201 201  
202 202  func asSwapParamsSTRUCT (v) = match v {
203 203      case struct: (Int, Int, Int, Int, Int, Int, Int) => 
204 204          struct
205 205      case _ => 
206 206          throw("fail to cast into Int")
207 207  }
208 208  
209 209  
210 210  func formatHistoryRecord (oldAmount,oldStart,newAmount,newStart) = makeString(["%d%d%d%d%d%d", toString(lastBlock.height), toString(lastBlock.timestamp), toString(oldAmount), toString(oldStart), toString(newAmount), toString(newStart)], separator)
211 211  
212 212  
213 213  func formatClaimHistoryRecord (user,claimedRewards) = makeString(["%s%d%d%s", user, toString(lastBlock.height), toString(lastBlock.timestamp), claimedRewards], separator)
214 214  
215 215  
216 216  func HistoryRecordEntry (type,userAddress,txId,oldAmount,oldStart,newAmount,newStart) = StringEntry(keyHistoryRecord(type, userAddress, txId), formatHistoryRecord(oldAmount, oldStart, newAmount, newStart))
217 217  
218 218  
219 219  func ClaimHistoryEntry (userAddress,txId,claimedRewards) = StringEntry(keyHistoryRecord("claim", userAddress, txId), formatClaimHistoryRecord(toString(userAddress), claimedRewards))
220 220  
221 221  
222 222  func StatsResult (totalLockedInc,lockCountInc,usersCountInc) = {
223 223      let locksCount = getIntOrZero(keyStatsLocksCount())
224 224      let usersCount = getIntOrZero(keyStatsUsersCount())
225 225      let totalAmount = getIntOrZero(keyLockParamTotalAmount())
226 226      let totalAmountNew = (totalAmount + totalLockedInc)
227 227      $Tuple3([IntegerEntry(keyStatsLocksCount(), (locksCount + lockCountInc)), IntegerEntry(keyStatsUsersCount(), (usersCount + usersCountInc)), IntegerEntry(keyLockParamTotalAmount(), totalAmountNew)], totalAmount, totalAmountNew)
228 228      }
229 229  
230 230  
231 231  func LockParamsEntry (userAddress,amount,votingPowerEffectiveHeight) = [IntegerEntry(keyLockParamUserAmount(userAddress), amount), IntegerEntry(keyLockParamStartBlock(userAddress), votingPowerEffectiveHeight)]
232 232  
233 233  
234 234  func getParamsOrFail () = $Tuple2(fromBase58String(getStringOrFail(this, keyStakedAssetId())), getIntOrFail(keyMinLockAmount()))
235 235  
236 236  
237 237  func isActiveUser (userAddress) = (getIntOrElse(keyLockParamUserAmount(userAddress), 0) > 0)
238 238  
239 239  
240 240  func getUserParamsOrUnit (userAddress) = if (isActiveUser(userAddress))
241 241      then $Tuple3(false, getIntOrFail(keyLockParamUserAmount(userAddress)), getIntOrFail(keyLockParamStartBlock(userAddress)))
242 242      else unit
243 243  
244 244  
245 245  func getUserParamsOrFail (userAddress) = valueOrErrorMessage(getUserParamsOrUnit(userAddress), (("User " + toString(userAddress)) + " is not defined"))
246 246  
247 247  
248 248  let supportedAssetsStr = getStrOrElse(keySupportedRewardAssets(), "")
249 249  
250 250  let supportedAssetsList = split(supportedAssetsStr, "_")
251 251  
252 252  func calcReward (userAddress,assetId,stakedAmountX,depositNumUser,depositNumLast) = {
253 253      let rewardPerNsbtSumLastKEY = keyRewardPerNsbtSumAt(depositNumLast, assetId)
254 254      let sumLastX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, assetId), "0"))
255 255      let sumUserX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumUser, assetId), "0"))
256 256      let rewardDynamicPart = toInt(fraction((sumLastX18 - sumUserX18), stakedAmountX, MULTX18))
257 257      let rewardCachedPartKEY = keyReward(userAddress, assetId)
258 258      let rewardCachedPart = getIntOrElse(rewardCachedPartKEY, 0)
259 259      $Tuple4((rewardCachedPart + rewardDynamicPart), rewardCachedPart, rewardDynamicPart, rewardCachedPartKEY)
260 260      }
261 261  
262 262  
263 263  func toStartOfDay (timestamp) = ((timestamp / DAYMILLIS) * DAYMILLIS)
264 264  
265 265  
266 266  func findElementPosition (src,element,sep) = {
267 267      let elementStart = valueOrErrorMessage(indexOf(src, element), ((("there is no substring " + element) + " in ") + src))
268 268      if ((elementStart == 0))
269 269          then 0
270 270          else {
271 271              let left = take(src, elementStart)
272 272              (size(split(left, sep)) - 1)
273 273              }
274 274      }
275 275  
276 276  
277 277  let DepositTotalsPREFIX = "%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d"
278 278  
279 279  func updateDepositTotals (currVal,idxToUpdate,deltaAmt) = {
280 280      let currArr = split(currVal, SEP)
281 281      func updDepTotByIdx (idx) =     if ((idx != idxToUpdate))
282 282          then currArr[idx]
283 283          else toString((parseIntValue(currArr[idx]) + deltaAmt))
284 284  
285 285      makeString([DepositTotalsPREFIX, updDepTotByIdx(1), updDepTotByIdx(2), updDepTotByIdx(3), updDepTotByIdx(4), updDepTotByIdx(5), updDepTotByIdx(6), updDepTotByIdx(7), updDepTotByIdx(8), updDepTotByIdx(9), updDepTotByIdx(10), updDepTotByIdx(11), updDepTotByIdx(12), updDepTotByIdx(13), updDepTotByIdx(14), updDepTotByIdx(15), updDepTotByIdx(16), updDepTotByIdx(17), updDepTotByIdx(18)], SEP)
286 286      }
287 287  
288 288  
289 289  func DepositsTotalsEntries (depositAmount,assetIdStr) = {
290 290      let startOfDay = toStartOfDay(lastBlock.timestamp)
291 291      let byDayKEY = keyStatsDepositAmtByDay(startOfDay)
292 292      let totalsKEY = keyStatsDepositAmtTotals()
293 293      let position = findElementPosition(supportedAssetsStr, assetIdStr, "_")
294 294      let defaultDATA = (DepositTotalsPREFIX + "__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0")
295 295      let currTotalsDATA = valueOrElse(getString(this, totalsKEY), defaultDATA)
296 296      let newTotalsDATA = updateDepositTotals(currTotalsDATA, (position + 1), depositAmount)
297 297  [StringEntry(totalsKEY, newTotalsDATA), StringEntry(byDayKEY, newTotalsDATA)]
298 298      }
299 299  
300 300  
301 301  func RewardEntries (isNewUser,userAddress,stakedAmount) = {
302 302      let stakedAmountX = toBigInt(stakedAmount)
303 303      let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddress)
304 304      let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
305 305      let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
306 306      func forEachAssetCacheUserReward (accum,asset) =     {
307 -         let $t01210412239 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
308 -         let rewardTotal = $t01210412239._1
309 -         let cached = $t01210412239._2
310 -         let dynamic = $t01210412239._3
311 -         let rewardCachedPartKEY = $t01210412239._4
307 +         let $t01211012245 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
308 +         let rewardTotal = $t01211012245._1
309 +         let cached = $t01211012245._2
310 +         let dynamic = $t01211012245._3
311 +         let rewardCachedPartKEY = $t01211012245._4
312 312          (accum :+ IntegerEntry(rewardCachedPartKEY, rewardTotal))
313 313          }
314 314  
315 315      if (if ((depositNumLast == -1))
316 316          then (depositNumUser == -1)
317 317          else false)
318 318          then nil
319 319          else if (if ((depositNumLast == -1))
320 320              then (depositNumUser > -1)
321 321              else false)
322 322              then throw("invalid depositNumLast and depositNumUser state")
323 323              else if (if ((depositNumLast > -1))
324 324                  then (depositNumUser >= -1)
325 325                  else false)
326 326                  then if (isNewUser)
327 327                      then [IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)]
328 328                      else ({
329 329                          let $l = supportedAssetsList
330 330                          let $s = size($l)
331 331                          let $acc0 = nil
332 332                          func $f0_1 ($a,$i) =                         if (($i >= $s))
333 333                              then $a
334 334                              else forEachAssetCacheUserReward($a, $l[$i])
335 335  
336 336                          func $f0_2 ($a,$i) =                         if (($i >= $s))
337 337                              then $a
338 338                              else throw("List size exceeds 9")
339 339  
340 340                          $f0_2($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)
341 341                          } :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast))
342 342                  else throw(((("uncovered condition: depositNumLast=" + toString(depositNumLast)) + " depositNumUser=") + toString(depositNumUser)))
343 343      }
344 344  
345 345  
346 346  func IncrementNotDistributedRewardEntry (tkn,amountInc) = {
347 347      let notDistributedRewardKEY = keyNotDistributedReward(tkn)
348 348      let notDistributedReward = getIntOrElse(notDistributedRewardKEY, 0)
349 - [IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))]
349 +     IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))
350 350      }
351 351  
352 352  
353 353  func surfToGnsbt (surfAmt) = (surfAmt / gnsbtFromSurfCoeff)
354 354  
355 355  
356 356  func mergeStake (userAddress,amountToAdd,userTeen,userKid) = {
357 -     let $t01516215272 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
358 -     let isNewUser = $t01516215272._1
359 -     let stakedAmount = $t01516215272._2
360 -     let vpEffectiveHeight = $t01516215272._3
357 +     let $t01516615276 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
358 +     let isNewUser = $t01516615276._1
359 +     let stakedAmount = $t01516615276._2
360 +     let vpEffectiveHeight = $t01516615276._3
361 361      let stakedAmountNEW = if (isNewUser)
362 362          then amountToAdd
363 363          else (amountToAdd + stakedAmount)
364 364      let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
365 365      let period = (height / W2)
366 366      let vpEffectivePeriodNEW = if ((userKid > 0))
367 367          then (period + 2)
368 368          else if ((userTeen > 0))
369 369              then (period + 1)
370 370              else period
371 371      $Tuple5(isNewUser, stakedAmount, vpEffectiveHeight, stakedAmountNEW, (vpEffectivePeriodNEW * W2))
372 372      }
373 373  
374 374  
375 375  func updateTotals () = {
376 376      let period = (height / getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD))
377 377      if ((period > getIntOrZero(keyLastTotalsPeriodProcessed())))
378 378          then {
379 379              let totalMature = valueOrElse(getInteger(keyTotalMature()), getIntOrZero(keyLockParamTotalAmount()))
380 380  [IntegerEntry(keyTotalMature(), (totalMature + getIntOrZero(keyTotalTeen()))), IntegerEntry(keyTotalTeen(), getIntOrZero(keyTotalKid())), IntegerEntry(keyTotalKid(), 0), IntegerEntry(keyLastTotalsPeriodProcessed(), period)]
381 381              }
382 382          else nil
383 383      }
384 384  
385 385  
386 386  func onStake (userAddressStr,amountToAdd) = if ((0 > amountToAdd))
387 387      then throw("amountToAdd should be >= 0")
388 388      else {
389 389          let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
390 390          let period = (height / W2)
391 391          let totalMature = valueOrElse(getInteger(keyTotalMature()), getIntOrZero(keyLockParamTotalAmount()))
392 392          let totalTeen = getIntOrZero(keyTotalTeen())
393 393          let totalKid = getIntOrZero(keyTotalKid())
394 394          let userMature = if ((userAddressStr == ""))
395 395              then 0
396 396              else valueOrElse(getInteger(keyUserMature(userAddressStr)), getIntOrZero(keyLockParamUserAmount(addressFromStringValue(userAddressStr))))
397 397          let userTeen = getIntOrZero(keyUserTeen(userAddressStr))
398 398          let userKid = getIntOrZero(keyUserKid(userAddressStr))
399 399          let tmp = if ((period > getIntOrZero(keyLastUserPeriodProcessed(userAddressStr))))
400 400              then $Tuple7((totalMature + userTeen), (totalTeen + (userKid - userTeen)), (totalKid - userKid), (userMature + userTeen), userKid, 0, [IntegerEntry(keyLastUserPeriodProcessed(userAddressStr), period)])
401 401              else $Tuple7(totalMature, totalTeen, totalKid, userMature, userTeen, userKid, nil)
402 402          let totals = if ((period > getIntOrZero(keyLastTotalsPeriodProcessed())))
403 403              then $Tuple4([IntegerEntry(keyTotalMature(), (tmp._1 + tmp._2)), IntegerEntry(keyTotalTeen(), tmp._3), IntegerEntry(keyTotalKid(), 0), IntegerEntry(keyLastTotalsPeriodProcessed(), period)], (tmp._1 + tmp._2), tmp._3, 0)
404 404              else $Tuple4(nil, totalMature, totalTeen, totalKid)
405 405          let newKid = fraction(amountToAdd, (height % W2), W2)
406 406          let newTeen = (amountToAdd - newKid)
407 407          $Tuple7(((((totals._1 :+ IntegerEntry(keyUserMature(userAddressStr), tmp._4)) :+ IntegerEntry(keyUserTeen(userAddressStr), (tmp._5 + newTeen))) :+ IntegerEntry(keyUserKid(userAddressStr), (tmp._6 + newKid))) ++ tmp._7), totals._2, totals._3, totals._4, tmp._4, (tmp._5 + newTeen), (tmp._6 + newKid))
408 408          }
409 409  
410 410  
411 411  let IdxNewDiff = 0
412 412  
413 413  let IdxNewGnsbt = 1
414 414  
415 415  func userDecrease (gnsbt,diff) = if ((diff >= gnsbt))
416 416      then [(diff - gnsbt), 0]
417 417      else [0, (gnsbt - diff)]
418 418  
419 419  
420 - func onUnstake (userAddressStr,amountToRemove) = if ((amountToRemove >= 0))
421 -     then throw("amountToRemove should be < 0")
420 + func onUnstake (userAddressStr,amountToRemove) = if ((0 >= amountToRemove))
421 +     then throw("amountToRemove should be > 0")
422 422      else {
423 423          let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
424 424          let period = (height / W2)
425 425          let totalMature = valueOrElse(getInteger(keyTotalMature()), getIntOrZero(keyLockParamTotalAmount()))
426 426          let totalTeen = getIntOrZero(keyTotalTeen())
427 427          let totalKid = getIntOrZero(keyTotalKid())
428 428          let userMature = if ((userAddressStr == ""))
429 429              then 0
430 430              else valueOrElse(getInteger(keyUserMature(userAddressStr)), getIntOrZero(keyLockParamUserAmount(addressFromStringValue(userAddressStr))))
431 431          let userTeen = getIntOrZero(keyUserTeen(userAddressStr))
432 432          let userKid = getIntOrZero(keyUserKid(userAddressStr))
433 433          let um = userDecrease(userMature, amountToRemove)
434 434          let ut = userDecrease(userTeen, um[IdxNewDiff])
435 435          let uk = userDecrease(userKid, ut[IdxNewDiff])
436 436          if ((uk[IdxNewDiff] != 0))
437 437              then throw("Should not happen")
438 438              else {
439 439                  let tmp = if ((period > getIntOrZero(keyLastUserPeriodProcessed(userAddressStr))))
440 440                      then $Tuple7((totalMature + ut[IdxNewGnsbt]), (totalTeen + (uk[IdxNewGnsbt] - ut[IdxNewGnsbt])), (totalKid - uk[IdxNewGnsbt]), (um[IdxNewGnsbt] + ut[IdxNewGnsbt]), uk[IdxNewGnsbt], 0, [IntegerEntry(keyLastUserPeriodProcessed(userAddressStr), period)])
441 441                      else $Tuple7(totalMature, totalTeen, totalKid, um[IdxNewGnsbt], ut[IdxNewGnsbt], uk[IdxNewGnsbt], nil)
442 442                  let totals = if ((period > getIntOrZero(keyLastTotalsPeriodProcessed())))
443 443                      then $Tuple4([IntegerEntry(keyTotalMature(), (tmp._1 + tmp._2)), IntegerEntry(keyTotalTeen(), tmp._3), IntegerEntry(keyTotalKid(), 0), IntegerEntry(keyLastTotalsPeriodProcessed(), period)], (tmp._1 + tmp._2), tmp._3, 0)
444 444                      else $Tuple4(nil, totalMature, totalTeen, totalKid)
445 445                  $Tuple7(((((totals._1 :+ IntegerEntry(keyUserMature(userAddressStr), tmp._4)) :+ IntegerEntry(keyUserTeen(userAddressStr), tmp._5)) :+ IntegerEntry(keyUserKid(userAddressStr), tmp._6)) ++ tmp._7), totals._2, totals._3, totals._4, tmp._4, tmp._5, tmp._6)
446 446                  }
447 447          }
448 448  
449 449  
450 450  func commonStake (userAddress,i) = {
451 -     let $t02115921213 = getParamsOrFail()
452 -     let stakedAssetId = $t02115921213._1
453 -     let minLockAmount = $t02115921213._2
451 +     let $t02116321217 = getParamsOrFail()
452 +     let stakedAssetId = $t02116321217._1
453 +     let minLockAmount = $t02116321217._2
454 454      if ((size(i.payments) != 1))
455 455          then throw("Invalid payments size")
456 456          else {
457 457              let payment = i.payments[0]
458 458              let amount = payment.amount
459 459              let invalidAssetMessage = (("Invalid asset. " + toBase58String(stakedAssetId)) + " is expected")
460 460              let assetId = valueOrErrorMessage(payment.assetId, invalidAssetMessage)
461 461              if ((assetId != stakedAssetId))
462 462                  then throw(invalidAssetMessage)
463 463                  else {
464 464                      let userAddressStr = toString(userAddress)
465 465                      let r = onStake(userAddressStr, amount)
466 466                      let mergedData = mergeStake(userAddress, amount, r._6, r._7)
467 467                      let isNewUser = mergedData._1
468 468                      let stakedAmount = mergedData._2
469 469                      let vpEffectiveHeight = mergedData._3
470 470                      let stakedAmountNEW = mergedData._4
471 471                      let vpEffectiveHeightNEW = mergedData._5
472 472                      if ((minLockAmount > stakedAmountNEW))
473 473                          then throw(("Min lock amount is " + toString(minLockAmount)))
474 474                          else {
475 -                             let $t02206722169 = StatsResult(amount, 1, if (isNewUser)
475 +                             let $t02207122173 = StatsResult(amount, 1, if (isNewUser)
476 476                                  then 1
477 477                                  else 0)
478 -                             let statsEntries = $t02206722169._1
479 -                             let totalStaked = $t02206722169._2
480 -                             let totalStakedNew = $t02206722169._3
478 +                             let statsEntries = $t02207122173._1
479 +                             let totalStaked = $t02207122173._2
480 +                             let totalStakedNew = $t02207122173._3
481 481                              (((([HistoryRecordEntry("stake", userAddress, i.transactionId, stakedAmount, vpEffectiveHeight, stakedAmountNEW, vpEffectiveHeightNEW)] ++ RewardEntries(isNewUser, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNEW, vpEffectiveHeightNEW)) ++ statsEntries) ++ r._1)
482 482                              }
483 483                      }
484 484              }
485 485      }
486 486  
487 487  
488 488  func commonClaim (userAddress,i) = {
489 489      let userAddressStr = toString(userAddress)
490 490      if ((size(i.payments) > 0))
491 491          then throw("payments are not accepted")
492 492          else {
493 -             let $t02267622781 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
494 -             let isNewUser = $t02267622781._1
495 -             let stakedAmount = $t02267622781._2
496 -             let stakingStart = $t02267622781._3
493 +             let $t02268022785 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
494 +             let isNewUser = $t02268022785._1
495 +             let stakedAmount = $t02268022785._2
496 +             let stakingStart = $t02268022785._3
497 497              let stakedAmountX = toBigInt(stakedAmount)
498 498              let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
499 499              let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
500 500              let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
501 501              func forEachAssetCalcUnclaimedReward (accum,asset) =             {
502 -                 let $t02315223290 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
503 -                 let rewardTotal = $t02315223290._1
504 -                 let cached = $t02315223290._2
505 -                 let dynamic = $t02315223290._3
506 -                 let rewardCachedPartKEY = $t02315223290._4
502 +                 let $t02315623294 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
503 +                 let rewardTotal = $t02315623294._1
504 +                 let cached = $t02315623294._2
505 +                 let dynamic = $t02315623294._3
506 +                 let rewardCachedPartKEY = $t02315623294._4
507 507                  let claimedKEY = keyClaimed(userAddressStr, asset)
508 -                 let $t02335023387 = accum
509 -                 let data = $t02335023387._1
510 -                 let claimedAmtByAsset = $t02335023387._2
508 +                 let $t02335423391 = accum
509 +                 let data = $t02335423391._1
510 +                 let claimedAmtByAsset = $t02335423391._2
511 511                  let newPart = makeString([asset, toString(rewardTotal)], ":")
512 512                  let claimedAmtByAssetNew = makeString([claimedAmtByAsset, newPart], "_")
513 513                  if ((0 >= rewardTotal))
514 514                      then $Tuple2(data, claimedAmtByAssetNew)
515 515                      else $Tuple2((((data :+ ScriptTransfer(userAddress, rewardTotal, toAssetVect(asset))) :+ IntegerEntry(claimedKEY, (valueOrElse(getInteger(claimedKEY), 0) + rewardTotal))) :+ IntegerEntry(rewardCachedPartKEY, 0)), claimedAmtByAssetNew)
516 516                  }
517 517  
518 -             let $t02384723960 = {
518 +             let $t02385123964 = {
519 519                  let $l = supportedAssetsList
520 520                  let $s = size($l)
521 521                  let $acc0 = $Tuple2(nil, "")
522 522                  func $f0_1 ($a,$i) =                 if (($i >= $s))
523 523                      then $a
524 524                      else forEachAssetCalcUnclaimedReward($a, $l[$i])
525 525  
526 526                  func $f0_2 ($a,$i) =                 if (($i >= $s))
527 527                      then $a
528 528                      else throw("List size exceeds 9")
529 529  
530 530                  $f0_2($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)
531 531                  }
532 -             let transfers = $t02384723960._1
533 -             let claimedAmtByAssetResult = $t02384723960._2
532 +             let transfers = $t02385123964._1
533 +             let claimedAmtByAssetResult = $t02385123964._2
534 534              if ((0 >= size(transfers)))
535 535                  then $Tuple2(nil, 0)
536 536                  else $Tuple2(((transfers :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)) :+ ClaimHistoryEntry(userAddress, i.transactionId, drop(claimedAmtByAssetResult, 1))), size(transfers))
537 537              }
538 538      }
539 539  
540 540  
541 541  @Callable(i)
542 - func constructor (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
542 + func constructorV1 (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
543 543      then throw("Permission denied")
544 544      else [IntegerEntry(keyMinLockAmount(), minLockAmount), StringEntry(keySupportedRewardAssets(), supportedRewardAssets), StringEntry(keyStakedAssetId(), stakedAssetId)]
545 545  
546 546  
547 547  
548 548  @Callable(i)
549 549  func stake () = commonStake(i.caller, i)
550 550  
551 551  
552 552  
553 553  @Callable(i)
554 554  func stakeByOriginCaller () = commonStake(i.originCaller, i)
555 555  
556 556  
557 557  
558 558  @Callable(i)
559 559  func unstake (amount) = if ((size(i.payments) != 0))
560 560      then throw("unstake doesn't require any payment")
561 561      else {
562 562          let userAddress = i.caller
563 563          let userAddressStr = toString(userAddress)
564 -         let $t02489424948 = getParamsOrFail()
565 -         let stakedAssetId = $t02489424948._1
566 -         let minLockAmount = $t02489424948._2
567 -         let $t02495125035 = getUserParamsOrFail(userAddress)
568 -         let isNewUser = $t02495125035._1
569 -         let stakedAmount = $t02495125035._2
570 -         let vpEffectiveHeight = $t02495125035._3
564 +         let $t02490024954 = getParamsOrFail()
565 +         let stakedAssetId = $t02490024954._1
566 +         let minLockAmount = $t02490024954._2
567 +         let $t02495725041 = getUserParamsOrFail(userAddress)
568 +         let isNewUser = $t02495725041._1
569 +         let stakedAmount = $t02495725041._2
570 +         let vpEffectiveHeight = $t02495725041._3
571 571          let swapParamsSTRUCT = asSwapParamsSTRUCT(reentrantInvoke(neutrinoContract, "swapParamsByUserSYSREADONLY", [userAddressStr, 0], nil))
572 572          let swapLimitSpentInUsdn = swapParamsSTRUCT._2
573 573          let blcks2LmtReset = swapParamsSTRUCT._3
574 574          if ((swapLimitSpentInUsdn > 0))
575 575              then throw((("You have already made a swap operation. Wait " + toString((height + blcks2LmtReset))) + " height to unstake"))
576 576              else if ((0 >= stakedAmount))
577 577                  then throw("Nothing to unstake")
578 578                  else if ((amount > stakedAmount))
579 579                      then throw(((("Requested " + toString(amount)) + ", but staked only ") + toString(stakedAmount)))
580 580                      else {
581 581                          let stakedAmountNEW = (stakedAmount - amount)
582 -                         let $t02567325831 = StatsResult(-(amount), if ((amount == stakedAmount))
582 +                         let $t02567925837 = StatsResult(-(amount), if ((amount == stakedAmount))
583 583                              then -1
584 584                              else 0, if ((amount == stakedAmount))
585 585                              then -1
586 586                              else 0)
587 -                         let statsEntries = $t02567325831._1
588 -                         let totalStaked = $t02567325831._2
589 -                         let totalStakedNew = $t02567325831._3
587 +                         let statsEntries = $t02567925837._1
588 +                         let totalStaked = $t02567925837._2
589 +                         let totalStakedNew = $t02567925837._3
590 590                          (((([ScriptTransfer(userAddress, amount, stakedAssetId), HistoryRecordEntry("unstake", userAddress, i.transactionId, stakedAmount, vpEffectiveHeight, stakedAmountNEW, vpEffectiveHeight)] ++ RewardEntries(false, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNEW, vpEffectiveHeight)) ++ statsEntries) ++ onUnstake(userAddressStr, amount)._1)
591 591                          }
592 592          }
593 593  
594 594  
595 595  
596 596  @Callable(i)
597 - func deposit () = if ((size(i.payments) != 1))
598 -     then throw("exact 1 payment is allowed only")
599 -     else {
600 -         let pmt = i.payments[0]
601 -         let amount = pmt.amount
602 -         let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
603 -         let pmtAssetIdStr = toBase58String(pmtAssetId)
604 -         let pmtMultX = if ((pmtAssetId == WAVESID))
605 -             then MULTX8
606 -             else MULTX6
607 -         let amountX = toBigInt(amount)
608 -         let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
609 -         let totalStakedX = toBigInt(totalStaked)
610 -         if ((0 > totalStaked))
611 -             then throw("TODO: case is not supported")
612 -             else if ((totalStaked == 0))
613 -                 then IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount)
614 -                 else {
615 -                     let rewardPerNsbtX18 = fraction(amountX, MULTX18, totalStakedX)
616 -                     let depositNumLastKEY = keyDepositNumLast()
617 -                     let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
618 -                     let depositNumNew = (depositNumLast + 1)
619 -                     if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
620 -                         then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
597 + func deposit () = {
598 +     let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
599 +     if ((0 > totalStaked))
600 +         then throw("TODO: case is not supported")
601 +         else {
602 +             let depositNumLastKEY = keyDepositNumLast()
603 +             let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
604 +             let depositNumNew = (depositNumLast + 1)
605 +             func dep (acc,pmt) =             {
606 +                 let amount = pmt.amount
607 +                 let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
608 +                 let pmtAssetIdStr = toBase58String(pmtAssetId)
609 +                 if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
610 +                     then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
611 +                     else if ((totalStaked == 0))
612 +                         then (acc :+ IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount))
621 613                          else {
614 +                             let rewardPerNsbtX18 = fraction(toBigInt(amount), MULTX18, toBigInt(totalStaked))
622 615                              func refreshRewardPerNsbtSUM (accum,nextAsset) =                             {
623 -                                 let rewardPerNsbtSumNewKEY = keyRewardPerNsbtSumAt(depositNumNew, nextAsset)
624 616                                  let sumLastStr = getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, nextAsset), "0")
625 -                                 (accum :+ (if ((nextAsset == pmtAssetIdStr))
626 -                                     then StringEntry(rewardPerNsbtSumNewKEY, toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18)))
627 -                                     else StringEntry(rewardPerNsbtSumNewKEY, sumLastStr)))
617 +                                 (accum :+ StringEntry(keyRewardPerNsbtSumAt(depositNumNew, nextAsset), if ((nextAsset == pmtAssetIdStr))
618 +                                     then toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18))
619 +                                     else sumLastStr))
628 620                                  }
629 621  
630 -                             ((({
622 +                             ((acc ++ {
631 623                                  let $l = supportedAssetsList
632 624                                  let $s = size($l)
633 625                                  let $acc0 = nil
634 626                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
635 627                                      then $a
636 628                                      else refreshRewardPerNsbtSUM($a, $l[$i])
637 629  
638 630                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
639 631                                      then $a
640 632                                      else throw("List size exceeds 9")
641 633  
642 634                                  $f0_2($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)
643 -                                 } :+ IntegerEntry(depositNumLastKEY, depositNumNew)) ++ DepositsTotalsEntries(amount, pmtAssetIdStr)) ++ updateTotals())
635 +                                 }) ++ DepositsTotalsEntries(amount, pmtAssetIdStr))
644 636                              }
645 -                     }
646 -         }
637 +                 }
638 + 
639 +             (({
640 +                 let $l = i.payments
641 +                 let $s = size($l)
642 +                 let $acc0 = nil
643 +                 func $f0_1 ($a,$i) =                 if (($i >= $s))
644 +                     then $a
645 +                     else dep($a, $l[$i])
646 + 
647 +                 func $f0_2 ($a,$i) =                 if (($i >= $s))
648 +                     then $a
649 +                     else throw("List size exceeds 10")
650 + 
651 +                 $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)
652 +                 } ++ updateTotals()) :+ IntegerEntry(depositNumLastKEY, depositNumNew))
653 +             }
654 +     }
647 655  
648 656  
649 657  
650 658  @Callable(i)
651 659  func claimRewards () = commonClaim(i.caller, i)
652 660  
653 661  
654 662  
655 663  @Callable(i)
656 664  func claimRewardsByOriginCaller () = commonClaim(i.originCaller, i)
657 665  
658 666  
659 667  
660 668  @Callable(i)
661 669  func unclaimedRewardsREADONLY (userAddressStr) = {
662 670      func forEachAssetZeroReward (accum,asset) =     ((accum + makeString([asset, "0", "0"], ":")) + "_")
663 671  
664 672      let unclaimedRewardStr = if ((userAddressStr == ""))
665 673          then {
666 674              let $l = supportedAssetsList
667 675              let $s = size($l)
668 676              let $acc0 = ""
669 677              func $f0_1 ($a,$i) =             if (($i >= $s))
670 678                  then $a
671 679                  else forEachAssetZeroReward($a, $l[$i])
672 680  
673 681              func $f0_2 ($a,$i) =             if (($i >= $s))
674 682                  then $a
675 683                  else throw("List size exceeds 9")
676 684  
677 685              $f0_2($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)
678 686              }
679 687          else {
680 688              let userAddress = addressFromStringValue(userAddressStr)
681 -             let $t02855328658 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
682 -             let isNewUser = $t02855328658._1
683 -             let stakedAmount = $t02855328658._2
684 -             let stakingStart = $t02855328658._3
689 +             let $t02835928464 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
690 +             let isNewUser = $t02835928464._1
691 +             let stakedAmount = $t02835928464._2
692 +             let stakingStart = $t02835928464._3
685 693              let stakedAmountX = toBigInt(stakedAmount)
686 694              let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
687 695              let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
688 696              let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
689 697              func forEachAssetCalcUnclaimedReward (accum,asset) =             {
690 -                 let $t02900429142 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
691 -                 let rewardTotal = $t02900429142._1
692 -                 let cached = $t02900429142._2
693 -                 let dynamic = $t02900429142._3
694 -                 let rewardCachedPartKEY = $t02900429142._4
698 +                 let $t02881028948 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
699 +                 let rewardTotal = $t02881028948._1
700 +                 let cached = $t02881028948._2
701 +                 let dynamic = $t02881028948._3
702 +                 let rewardCachedPartKEY = $t02881028948._4
695 703                  let claimed = valueOrElse(getInteger(keyClaimed(userAddressStr, asset)), 0)
696 704                  ((accum + makeString([asset, toString(rewardTotal), toString(claimed)], ":")) + "_")
697 705                  }
698 706  
699 707              let $l = supportedAssetsList
700 708              let $s = size($l)
701 709              let $acc0 = ""
702 710              func $f0_1 ($a,$i) =             if (($i >= $s))
703 711                  then $a
704 712                  else forEachAssetCalcUnclaimedReward($a, $l[$i])
705 713  
706 714              func $f0_2 ($a,$i) =             if (($i >= $s))
707 715                  then $a
708 716                  else throw("List size exceeds 9")
709 717  
710 718              $f0_2($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)
711 719              }
712 720      $Tuple2(nil, dropRight(unclaimedRewardStr, 1))
713 721      }
714 722  
715 723  
716 724  
717 725  @Callable(i)
718 726  func updateVotingPower (userAddressStr) = if (!(isDefined(addressFromString(userAddressStr))))
719 727      then throw("Invalid user address")
720 728      else {
721 729          let r = onStake(userAddressStr, 0)
722 730          $Tuple2(r._1, [surfToGnsbt(r._2), surfToGnsbt(r._3), surfToGnsbt(r._4), surfToGnsbt(r._5), surfToGnsbt(r._6), surfToGnsbt(r._7)])
723 731          }
724 732  
725 733  
726 734  
727 735  @Callable(i)
728 736  func surfStakingSYSREADONLY (userAddressStrOrEmpty,surfDiff) = {
729 737      let surfTotal = getIntOrElse(keyLockParamTotalAmount(), 0)
730 738      let gnsbtFromSurfTotal = surfToGnsbt(surfTotal)
731 739      let r = if ((surfDiff >= 0))
732 740          then onStake(userAddressStrOrEmpty, surfDiff)
733 -         else onUnstake(userAddressStrOrEmpty, surfDiff)
741 +         else onUnstake(userAddressStrOrEmpty, -(surfDiff))
734 742      if ((userAddressStrOrEmpty == ""))
735 743          then $Tuple2(nil, [0, surfTotal, 0, gnsbtFromSurfTotal, height, height, surfToGnsbt(r._2), surfToGnsbt(r._3), surfToGnsbt(r._4), surfToGnsbt(r._5), surfToGnsbt(r._6), surfToGnsbt(r._7)])
736 744          else {
737 745              let userAddress = toAddressOrFail(userAddressStrOrEmpty)
738 746              let mergedData = mergeStake(userAddress, surfDiff, r._6, r._7)
739 747              let stakedAmount = mergedData._2
740 748              let vpEffectiveHeight = mergedData._3
741 749              let stakedAmountNEW = mergedData._4
742 750              let vpEffectiveHeightNEW = mergedData._5
743 751              let surfUser = stakedAmount
744 752              let gnsbtFromSurfUser = surfToGnsbt(surfUser)
745 753              $Tuple2(nil, [surfUser, surfTotal, gnsbtFromSurfUser, gnsbtFromSurfTotal, vpEffectiveHeight, vpEffectiveHeightNEW, surfToGnsbt(r._2), surfToGnsbt(r._3), surfToGnsbt(r._4), surfToGnsbt(r._5), surfToGnsbt(r._6), surfToGnsbt(r._7)])
746 754              }
747 755      }
748 756  
749 757  
750 758  
751 759  @Callable(i)
752 760  func gnsbtFromSurfSYSREADONLY (surfAmt) = $Tuple2(nil, surfToGnsbt(surfAmt))
753 761  
754 762  
755 763  
756 764  @Callable(i)
757 765  func configSYSREADONLY () = {
758 766      let minLockAmt = getIntegerValue(keyMinLockAmount())
759 767      let surfVotingPowerRestrictivePeriod = DEFAULTPERIOD
760 768      let brToStartSurfTransformation = 1150000
761 769      $Tuple2(nil, [minLockAmt, (gnsbtFromSurfCoeff * MULT6), surfVotingPowerRestrictivePeriod, brToStartSurfTransformation])
762 770      }
763 771  
764 772

Old	New		Differences
117	117		func keyStatsDepositAmtByDay (timestamp) = makeString(["%s%s%d", "stats", "depositAmtByDay", toString(timestamp)], separator)
118	118
119	119
120		-	func keyStatsDepositAmtTotals () = makeString(["%s%s", "stats", "depositAmtTotals"], separator)
	120	+	func keyStatsDepositAmtTotals () = makeString(["%s%s%d", "stats", "depositAmtTotals"], separator)
121	121
122	122
123	123		func keySupportedRewardAssets () = "supportedRewardAssets"
124	124
125	125
126		-	func keyDepositNumLast () = makeString(["%s%s", "dep", "lastNum"], separator)
	126	+	func keyDepositNumLast () = makeString(["%s%s%s", "dep", "lastNum"], separator)
127	127
128	128
129		-	func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s", "userRwdFromDepNum", userAddress], separator)
	129	+	func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s%s", "userRwdFromDepNum", userAddress], separator)
130	130
131	131
132	132		func keyRewardPerNsbtSumAt (depositNum,tkn) = makeString(["%s%d", "rwdPerNsbtSumByDepNum", toString(depositNum), tkn], separator)

304	304		let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
305	305		let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
306	306		func forEachAssetCacheUserReward (accum,asset) = {
307		-	let $~~t01210412239~~ = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
308		-	let rewardTotal = $~~t01210412239~~._1
309		-	let cached = $~~t01210412239~~._2
310		-	let dynamic = $~~t01210412239~~._3
311		-	let rewardCachedPartKEY = $~~t01210412239~~._4
	307	+	let $t01211012245 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
	308	+	let rewardTotal = $t01211012245._1
	309	+	let cached = $t01211012245._2
	310	+	let dynamic = $t01211012245._3
	311	+	let rewardCachedPartKEY = $t01211012245._4
312	312		(accum :+ IntegerEntry(rewardCachedPartKEY, rewardTotal))
313	313		}
314	314

346	346		func IncrementNotDistributedRewardEntry (tkn,amountInc) = {
347	347		let notDistributedRewardKEY = keyNotDistributedReward(tkn)
348	348		let notDistributedReward = getIntOrElse(notDistributedRewardKEY, 0)
349		-	[IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))]
	349	+	IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))
350	350		}
351	351
352	352

354	354
355	355
356	356		func mergeStake (userAddress,amountToAdd,userTeen,userKid) = {
357		-	let $~~t01516215272~~ = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
358		-	let isNewUser = $~~t01516215272~~._1
359		-	let stakedAmount = $~~t01516215272~~._2
360		-	let vpEffectiveHeight = $~~t01516215272~~._3
	357	+	let $t01516615276 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
	358	+	let isNewUser = $t01516615276._1
	359	+	let stakedAmount = $t01516615276._2
	360	+	let vpEffectiveHeight = $t01516615276._3
361	361		let stakedAmountNEW = if (isNewUser)
362	362		then amountToAdd
363	363		else (amountToAdd + stakedAmount)

417	417		else [0, (gnsbt - diff)]
418	418
419	419
420		-	func onUnstake (userAddressStr,amountToRemove) = if ((~~amountToRemove~~ >= 0))
421		-	then throw("amountToRemove should be < 0")
	420	+	func onUnstake (userAddressStr,amountToRemove) = if ((0 >= amountToRemove))
	421	+	then throw("amountToRemove should be > 0")
422	422		else {
423	423		let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
424	424		let period = (height / W2)

448	448
449	449
450	450		func commonStake (userAddress,i) = {
451		-	let $~~t02115921213~~ = getParamsOrFail()
452		-	let stakedAssetId = $~~t02115921213~~._1
453		-	let minLockAmount = $~~t02115921213~~._2
	451	+	let $t02116321217 = getParamsOrFail()
	452	+	let stakedAssetId = $t02116321217._1
	453	+	let minLockAmount = $t02116321217._2
454	454		if ((size(i.payments) != 1))
455	455		then throw("Invalid payments size")
456	456		else {

472	472		if ((minLockAmount > stakedAmountNEW))
473	473		then throw(("Min lock amount is " + toString(minLockAmount)))
474	474		else {
475		-	let $~~t02206722169~~ = StatsResult(amount, 1, if (isNewUser)
	475	+	let $t02207122173 = StatsResult(amount, 1, if (isNewUser)
476	476		then 1
477	477		else 0)
478		-	let statsEntries = $~~t02206722169~~._1
479		-	let totalStaked = $~~t02206722169~~._2
480		-	let totalStakedNew = $~~t02206722169~~._3
	478	+	let statsEntries = $t02207122173._1
	479	+	let totalStaked = $t02207122173._2
	480	+	let totalStakedNew = $t02207122173._3
481	481		(((([HistoryRecordEntry("stake", userAddress, i.transactionId, stakedAmount, vpEffectiveHeight, stakedAmountNEW, vpEffectiveHeightNEW)] ++ RewardEntries(isNewUser, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNEW, vpEffectiveHeightNEW)) ++ statsEntries) ++ r._1)
482	482		}
483	483		}

490	490		if ((size(i.payments) > 0))
491	491		then throw("payments are not accepted")
492	492		else {
493		-	let $~~t02267622781~~ = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
494		-	let isNewUser = $~~t02267622781~~._1
495		-	let stakedAmount = $~~t02267622781~~._2
496		-	let stakingStart = $~~t02267622781~~._3
	493	+	let $t02268022785 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
	494	+	let isNewUser = $t02268022785._1
	495	+	let stakedAmount = $t02268022785._2
	496	+	let stakingStart = $t02268022785._3
497	497		let stakedAmountX = toBigInt(stakedAmount)
498	498		let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
499	499		let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
500	500		let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
501	501		func forEachAssetCalcUnclaimedReward (accum,asset) = {
502		-	let $~~t02315223290~~ = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
503		-	let rewardTotal = $~~t02315223290~~._1
504		-	let cached = $~~t02315223290~~._2
505		-	let dynamic = $~~t02315223290~~._3
506		-	let rewardCachedPartKEY = $~~t02315223290~~._4
	502	+	let $t02315623294 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
	503	+	let rewardTotal = $t02315623294._1
	504	+	let cached = $t02315623294._2
	505	+	let dynamic = $t02315623294._3
	506	+	let rewardCachedPartKEY = $t02315623294._4
507	507		let claimedKEY = keyClaimed(userAddressStr, asset)
508		-	let $~~t02335023387~~ = accum
509		-	let data = $~~t02335023387~~._1
510		-	let claimedAmtByAsset = $~~t02335023387~~._2
	508	+	let $t02335423391 = accum
	509	+	let data = $t02335423391._1
	510	+	let claimedAmtByAsset = $t02335423391._2
511	511		let newPart = makeString([asset, toString(rewardTotal)], ":")
512	512		let claimedAmtByAssetNew = makeString([claimedAmtByAsset, newPart], "_")
513	513		if ((0 >= rewardTotal))

515	515		else $Tuple2((((data :+ ScriptTransfer(userAddress, rewardTotal, toAssetVect(asset))) :+ IntegerEntry(claimedKEY, (valueOrElse(getInteger(claimedKEY), 0) + rewardTotal))) :+ IntegerEntry(rewardCachedPartKEY, 0)), claimedAmtByAssetNew)
516	516		}
517	517
518		-	let $~~t02384723960~~ = {
	518	+	let $t02385123964 = {
519	519		let $l = supportedAssetsList
520	520		let $s = size($l)
521	521		let $acc0 = $Tuple2(nil, "")

529	529
530	530		$f0_2($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)
531	531		}
532		-	let transfers = $~~t02384723960~~._1
533		-	let claimedAmtByAssetResult = $~~t02384723960~~._2
	532	+	let transfers = $t02385123964._1
	533	+	let claimedAmtByAssetResult = $t02385123964._2
534	534		if ((0 >= size(transfers)))
535	535		then $Tuple2(nil, 0)
536	536		else $Tuple2(((transfers :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)) :+ ClaimHistoryEntry(userAddress, i.transactionId, drop(claimedAmtByAssetResult, 1))), size(transfers))

539	539
540	540
541	541		@Callable(i)
542		-	func ~~constructor~~ (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
	542	+	func constructorV1 (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
543	543		then throw("Permission denied")
544	544		else [IntegerEntry(keyMinLockAmount(), minLockAmount), StringEntry(keySupportedRewardAssets(), supportedRewardAssets), StringEntry(keyStakedAssetId(), stakedAssetId)]
545	545

561	561		else {
562	562		let userAddress = i.caller
563	563		let userAddressStr = toString(userAddress)
564		-	let $~~t02489424948~~ = getParamsOrFail()
565		-	let stakedAssetId = $~~t02489424948~~._1
566		-	let minLockAmount = $~~t02489424948~~._2
567		-	let $~~t02495125035~~ = getUserParamsOrFail(userAddress)
568		-	let isNewUser = $~~t02495125035~~._1
569		-	let stakedAmount = $~~t02495125035~~._2
570		-	let vpEffectiveHeight = $~~t02495125035~~._3
	564	+	let $t02490024954 = getParamsOrFail()
	565	+	let stakedAssetId = $t02490024954._1
	566	+	let minLockAmount = $t02490024954._2
	567	+	let $t02495725041 = getUserParamsOrFail(userAddress)
	568	+	let isNewUser = $t02495725041._1
	569	+	let stakedAmount = $t02495725041._2
	570	+	let vpEffectiveHeight = $t02495725041._3
571	571		let swapParamsSTRUCT = asSwapParamsSTRUCT(reentrantInvoke(neutrinoContract, "swapParamsByUserSYSREADONLY", [userAddressStr, 0], nil))
572	572		let swapLimitSpentInUsdn = swapParamsSTRUCT._2
573	573		let blcks2LmtReset = swapParamsSTRUCT._3

579	579		then throw(((("Requested " + toString(amount)) + ", but staked only ") + toString(stakedAmount)))
580	580		else {
581	581		let stakedAmountNEW = (stakedAmount - amount)
582		-	let $~~t02567325831~~ = StatsResult(-(amount), if ((amount == stakedAmount))
	582	+	let $t02567925837 = StatsResult(-(amount), if ((amount == stakedAmount))
583	583		then -1
584	584		else 0, if ((amount == stakedAmount))
585	585		then -1
586	586		else 0)
587		-	let statsEntries = $~~t02567325831~~._1
588		-	let totalStaked = $~~t02567325831~~._2
589		-	let totalStakedNew = $~~t02567325831~~._3
	587	+	let statsEntries = $t02567925837._1
	588	+	let totalStaked = $t02567925837._2
	589	+	let totalStakedNew = $t02567925837._3
590	590		(((([ScriptTransfer(userAddress, amount, stakedAssetId), HistoryRecordEntry("unstake", userAddress, i.transactionId, stakedAmount, vpEffectiveHeight, stakedAmountNEW, vpEffectiveHeight)] ++ RewardEntries(false, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNEW, vpEffectiveHeight)) ++ statsEntries) ++ onUnstake(userAddressStr, amount)._1)
591	591		}
592	592		}

594	594
595	595
596	596		@Callable(i)
597		-	func deposit () = if ((size(i.payments) != 1))
598		-	then throw("exact 1 payment is allowed only")
599		-	else {
600		-	let pmt = i.payments[0]
601		-	let amount = pmt.amount
602		-	let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
603		-	let pmtAssetIdStr = toBase58String(pmtAssetId)
604		-	let pmtMultX = if ((pmtAssetId == WAVESID))
605		-	then MULTX8
606		-	else MULTX6
607		-	let amountX = toBigInt(amount)
608		-	let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
609		-	let totalStakedX = toBigInt(totalStaked)
610		-	if ((0 > totalStaked))
611		-	then throw("TODO: case is not supported")
612		-	else if ((totalStaked == 0))
613		-	then IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount)
614		-	else {
615		-	let rewardPerNsbtX18 = fraction(amountX, MULTX18, totalStakedX)
616		-	let depositNumLastKEY = keyDepositNumLast()
617		-	let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
618		-	let depositNumNew = (depositNumLast + 1)
619		-	if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
620		-	then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
	597	+	func deposit () = {
	598	+	let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
	599	+	if ((0 > totalStaked))
	600	+	then throw("TODO: case is not supported")
	601	+	else {
	602	+	let depositNumLastKEY = keyDepositNumLast()
	603	+	let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
	604	+	let depositNumNew = (depositNumLast + 1)
	605	+	func dep (acc,pmt) = {
	606	+	let amount = pmt.amount
	607	+	let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
	608	+	let pmtAssetIdStr = toBase58String(pmtAssetId)
	609	+	if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
	610	+	then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
	611	+	else if ((totalStaked == 0))
	612	+	then (acc :+ IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount))
621	613		else {
	614	+	let rewardPerNsbtX18 = fraction(toBigInt(amount), MULTX18, toBigInt(totalStaked))
622	615		func refreshRewardPerNsbtSUM (accum,nextAsset) = {
623		-	let rewardPerNsbtSumNewKEY = keyRewardPerNsbtSumAt(depositNumNew, nextAsset)
624	616		let sumLastStr = getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, nextAsset), "0")
625		-	(accum :+ (if ((nextAsset == pmtAssetIdStr))
626		-	then ~~StringEntry(rewardPerNsbtSumNewKEY,~~ toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18)))
627		-	else ~~StringEntry(rewardPerNsbtSumNewKEY,~~ sumLastStr)))
	617	+	(accum :+ StringEntry(keyRewardPerNsbtSumAt(depositNumNew, nextAsset), if ((nextAsset == pmtAssetIdStr))
	618	+	then toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18))
	619	+	else sumLastStr))
628	620		}
629	621
630		-	((({
	622	+	((acc ++ {
631	623		let $l = supportedAssetsList
632	624		let $s = size($l)
633	625		let $acc0 = nil

640	632		else throw("List size exceeds 9")
641	633
642	634		$f0_2($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)
643		-	} ~~:+ IntegerEntry(depositNumLastKEY, depositNumNew)~~) ++ DepositsTotalsEntries(amount, pmtAssetIdStr)) ~~++ updateTotals())~~
	635	+	}) ++ DepositsTotalsEntries(amount, pmtAssetIdStr))
644	636		}
645		-	}
646		-	}
	637	+	}
	638	+
	639	+	(({
	640	+	let $l = i.payments
	641	+	let $s = size($l)
	642	+	let $acc0 = nil
	643	+	func $f0_1 ($a,$i) = if (($i >= $s))
	644	+	then $a
	645	+	else dep($a, $l[$i])
	646	+
	647	+	func $f0_2 ($a,$i) = if (($i >= $s))
	648	+	then $a
	649	+	else throw("List size exceeds 10")
	650	+
	651	+	$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)
	652	+	} ++ updateTotals()) :+ IntegerEntry(depositNumLastKEY, depositNumNew))
	653	+	}
	654	+	}
647	655
648	656
649	657

678	686		}
679	687		else {
680	688		let userAddress = addressFromStringValue(userAddressStr)
681		-	let $~~t02855328658~~ = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
682		-	let isNewUser = $~~t02855328658~~._1
683		-	let stakedAmount = $~~t02855328658~~._2
684		-	let stakingStart = $~~t02855328658~~._3
	689	+	let $t02835928464 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
	690	+	let isNewUser = $t02835928464._1
	691	+	let stakedAmount = $t02835928464._2
	692	+	let stakingStart = $t02835928464._3
685	693		let stakedAmountX = toBigInt(stakedAmount)
686	694		let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
687	695		let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
688	696		let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
689	697		func forEachAssetCalcUnclaimedReward (accum,asset) = {
690		-	let $~~t02900429142~~ = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
691		-	let rewardTotal = $~~t02900429142~~._1
692		-	let cached = $~~t02900429142~~._2
693		-	let dynamic = $~~t02900429142~~._3
694		-	let rewardCachedPartKEY = $~~t02900429142~~._4
	698	+	let $t02881028948 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
	699	+	let rewardTotal = $t02881028948._1
	700	+	let cached = $t02881028948._2
	701	+	let dynamic = $t02881028948._3
	702	+	let rewardCachedPartKEY = $t02881028948._4
695	703		let claimed = valueOrElse(getInteger(keyClaimed(userAddressStr, asset)), 0)
696	704		((accum + makeString([asset, toString(rewardTotal), toString(claimed)], ":")) + "_")
697	705		}

730	738		let gnsbtFromSurfTotal = surfToGnsbt(surfTotal)
731	739		let r = if ((surfDiff >= 0))
732	740		then onStake(userAddressStrOrEmpty, surfDiff)
733		-	else onUnstake(userAddressStrOrEmpty, surfDiff)
	741	+	else onUnstake(userAddressStrOrEmpty, -(surfDiff))
734	742		if ((userAddressStrOrEmpty == ""))
735	743		then $Tuple2(nil, [0, surfTotal, 0, gnsbtFromSurfTotal, height, height, surfToGnsbt(r._2), surfToGnsbt(r._3), surfToGnsbt(r._4), surfToGnsbt(r._5), surfToGnsbt(r._6), surfToGnsbt(r._7)])
736	744		else {

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		let SEP = "__"
7	7
8	8		let MULT6 = 1000000
9	9
10	10		let MULT8 = 100000000
11	11
12	12		let MULTX6 = toBigInt(MULT6)
13	13
14	14		let MULTX8 = toBigInt(MULT8)
15	15
16	16		let MULTX18 = toBigInt(1000000000000000000)
17	17
18	18		let WAVESIDSTR = "WAVES"
19	19
20	20		let WAVESID = fromBase58String(WAVESIDSTR)
21	21
22	22		let DAYMILLIS = 86400000
23	23
24	24		let DEFAULTPERIOD = (1440 * 14)
25	25
26	26		let IdxControlCfgNeutrinoDapp = 1
27	27
28	28		let IdxControlCfgAuctionDapp = 2
29	29
30	30		let IdxControlCfgRpdDapp = 3
31	31
32	32		let IdxControlCfgMathDapp = 4
33	33
34	34		let IdxControlCfgLiquidationDapp = 5
35	35
36	36		let IdxControlCfgRestDapp = 6
37	37
38	38		let IdxControlCfgNodeRegistryDapp = 7
39	39
40	40		let IdxControlCfgNsbtStakingDapp = 8
41	41
42	42		let IdxControlCfgMediatorDapp = 9
43	43
44	44		let IdxControlCfgSurfStakingDapp = 10
45	45
46	46		let IdxControlCfgGnsbtControllerDapp = 11
47	47
48	48		let IdxControlCfgRestV2Dapp = 12
49	49
50	50		let IdxControlCfgGovernanceDapp = 13
51	51
52	52		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
53	53
54	54
55	55		func keyControlAddress () = "%s%s__config__controlAddress"
56	56
57	57
58	58		func keyControlCfg () = "%s__controlConfig"
59	59
60	60
61	61		func keyGnsbtFromSurfCoeff () = "%s%s__cfg__gnsbtFromSurfCoeff"
62	62
63	63
64	64		func readControlCfgOrFail (control) = split_4C(getStringOrFail(control, keyControlCfg()), SEP)
65	65
66	66
67	67		func getContractAddressOrFail (controlCfg,idx) = valueOrErrorMessage(addressFromString(controlCfg[idx]), ("Control cfg doesn't contain address at index " + toString(idx)))
68	68
69	69
70	70		let controlContract = addressFromStringValue(valueOrElse(getString(this, keyControlAddress()), "3N4NS7d4Jo9a6F14LiFUKKYVdUkkf2eP4Zx"))
71	71
72	72		let controlCfg = readControlCfgOrFail(controlContract)
73	73
74	74		let mathContract = getContractAddressOrFail(controlCfg, IdxControlCfgMathDapp)
75	75
76	76		let neutrinoContract = getContractAddressOrFail(controlCfg, IdxControlCfgNeutrinoDapp)
77	77
78	78		let auctionContract = getContractAddressOrFail(controlCfg, IdxControlCfgAuctionDapp)
79	79
80	80		let govContract = getContractAddressOrFail(controlCfg, IdxControlCfgGovernanceDapp)
81	81
82	82		let gnsbtFromSurfCoeff = valueOrElse(getInteger(this, keyGnsbtFromSurfCoeff()), 300)
83	83
84	84		func keyBondAsset () = "bond_asset_id"
85	85
86	86
87	87		func keyAuctionContractAddress () = "auction_contract"
88	88
89	89
90	90		func keyMinLockAmount () = "%s__minLockAmount"
91	91
92	92
93	93		func keyStakedAssetId () = "%s__stakedAssetId"
94	94
95	95
96	96		func keyLockParamUserAmount (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "amount"], separator)
97	97
98	98
99	99		func keyLockParamStartBlock (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "start"], separator)
100	100
101	101
102	102		func keyLockParamVotingPowerEffectiveHeight (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "vpEffectiveHeight"], separator)
103	103
104	104
105	105		func keyHistoryRecord (type,userAddress,txId) = makeString(["%s%s%s%s", "history", type, toString(userAddress), toBase58String(txId)], separator)
106	106
107	107
108	108		func keyLockParamTotalAmount () = makeString(["%s%s", "stats", "activeTotalLocked"], separator)
109	109
110	110
111	111		func keyStatsLocksCount () = makeString(["%s%s", "stats", "locksCount"], separator)
112	112
113	113
114	114		func keyStatsUsersCount () = makeString(["%s%s", "stats", "activeUsersCount"], separator)
115	115
116	116
117	117		func keyStatsDepositAmtByDay (timestamp) = makeString(["%s%s%d", "stats", "depositAmtByDay", toString(timestamp)], separator)
118	118
119	119
120		-	func keyStatsDepositAmtTotals () = makeString(["%s%s", "stats", "depositAmtTotals"], separator)
	120	+	func keyStatsDepositAmtTotals () = makeString(["%s%s%d", "stats", "depositAmtTotals"], separator)
121	121
122	122
123	123		func keySupportedRewardAssets () = "supportedRewardAssets"
124	124
125	125
126		-	func keyDepositNumLast () = makeString(["%s%s", "dep", "lastNum"], separator)
	126	+	func keyDepositNumLast () = makeString(["%s%s%s", "dep", "lastNum"], separator)
127	127
128	128
129		-	func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s", "userRwdFromDepNum", userAddress], separator)
	129	+	func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s%s", "userRwdFromDepNum", userAddress], separator)
130	130
131	131
132	132		func keyRewardPerNsbtSumAt (depositNum,tkn) = makeString(["%s%d", "rwdPerNsbtSumByDepNum", toString(depositNum), tkn], separator)
133	133
134	134
135	135		func keyReward (userAddress,tkn) = makeString(["%s%s%s", "rwd", userAddress, tkn], separator)
136	136
137	137
138	138		func keyClaimed (userAddress,tkn) = makeString(["%s%s%s", "clm", userAddress, tkn], separator)
139	139
140	140
141	141		func keyNotDistributedReward (tkn) = makeString(["%s%s", "notDistributed", tkn], separator)
142	142
143	143
144	144		func keyVpPeriodDuration () = makeString(["%s%s", "vp", "periodDuration"], separator)
145	145
146	146
147	147		func keyLastTotalsPeriodProcessed () = makeString(["%s%s", "vp", "lastTotalsPeriodProcessed"], separator)
148	148
149	149
150	150		func keyLastUserPeriodProcessed (userAddress) = makeString(["%s%s%s", "vp", "lastUserPeriodProcessed", userAddress], separator)
151	151
152	152
153	153		func keyTotalMature () = makeString(["%s%s", "vp", "totalMature"], separator)
154	154
155	155
156	156		func keyTotalTeen () = makeString(["%s%s", "vp", "totalTeen"], separator)
157	157
158	158
159	159		func keyTotalKid () = makeString(["%s%s", "vp", "totalKid"], separator)
160	160
161	161
162	162		func keyUserMature (userAddress) = makeString(["%s%s%s", "vp", "userMature", userAddress], separator)
163	163
164	164
165	165		func keyUserTeen (userAddress) = makeString(["%s%s%s", "vp", "userTeen", userAddress], separator)
166	166
167	167
168	168		func keyUserKid (userAddress) = makeString(["%s%s%s", "vp", "userKid", userAddress], separator)
169	169
170	170
171	171		func toX18 (origVal,origMult) = fraction(toBigInt(origVal), MULTX18, origMult)
172	172
173	173
174	174		func getIntOrZero (key) = valueOrElse(getInteger(this, key), 0)
175	175
176	176
177	177		func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal)
178	178
179	179
180	180		func getIntOrFail (key) = valueOrErrorMessage(getInteger(this, key), (("Mandatory this." + key) + " is not defined"))
181	181
182	182
183	183		func getStrOrElse (key,defaultVal) = valueOrElse(getString(this, key), defaultVal)
184	184
185	185
186	186		func toAddressOrFail (addressStr) = valueOrErrorMessage(addressFromString(addressStr), ("couldn't parse passed addressStr=" + addressStr))
187	187
188	188
189	189		func toAssetVect (assetStr) = if ((assetStr == WAVESIDSTR))
190	190		then unit
191	191		else fromBase58String(assetStr)
192	192
193	193
194	194		func asInt (val) = match val {
195	195		case valInt: Int =>
196	196		valInt
197	197		case _ =>
198	198		throw("fail to cast into Int")
199	199		}
200	200
201	201
202	202		func asSwapParamsSTRUCT (v) = match v {
203	203		case struct: (Int, Int, Int, Int, Int, Int, Int) =>
204	204		struct
205	205		case _ =>
206	206		throw("fail to cast into Int")
207	207		}
208	208
209	209
210	210		func formatHistoryRecord (oldAmount,oldStart,newAmount,newStart) = makeString(["%d%d%d%d%d%d", toString(lastBlock.height), toString(lastBlock.timestamp), toString(oldAmount), toString(oldStart), toString(newAmount), toString(newStart)], separator)
211	211
212	212
213	213		func formatClaimHistoryRecord (user,claimedRewards) = makeString(["%s%d%d%s", user, toString(lastBlock.height), toString(lastBlock.timestamp), claimedRewards], separator)
214	214
215	215
216	216		func HistoryRecordEntry (type,userAddress,txId,oldAmount,oldStart,newAmount,newStart) = StringEntry(keyHistoryRecord(type, userAddress, txId), formatHistoryRecord(oldAmount, oldStart, newAmount, newStart))
217	217
218	218
219	219		func ClaimHistoryEntry (userAddress,txId,claimedRewards) = StringEntry(keyHistoryRecord("claim", userAddress, txId), formatClaimHistoryRecord(toString(userAddress), claimedRewards))
220	220
221	221
222	222		func StatsResult (totalLockedInc,lockCountInc,usersCountInc) = {
223	223		let locksCount = getIntOrZero(keyStatsLocksCount())
224	224		let usersCount = getIntOrZero(keyStatsUsersCount())
225	225		let totalAmount = getIntOrZero(keyLockParamTotalAmount())
226	226		let totalAmountNew = (totalAmount + totalLockedInc)
227	227		$Tuple3([IntegerEntry(keyStatsLocksCount(), (locksCount + lockCountInc)), IntegerEntry(keyStatsUsersCount(), (usersCount + usersCountInc)), IntegerEntry(keyLockParamTotalAmount(), totalAmountNew)], totalAmount, totalAmountNew)
228	228		}
229	229
230	230
231	231		func LockParamsEntry (userAddress,amount,votingPowerEffectiveHeight) = [IntegerEntry(keyLockParamUserAmount(userAddress), amount), IntegerEntry(keyLockParamStartBlock(userAddress), votingPowerEffectiveHeight)]
232	232
233	233
234	234		func getParamsOrFail () = $Tuple2(fromBase58String(getStringOrFail(this, keyStakedAssetId())), getIntOrFail(keyMinLockAmount()))
235	235
236	236
237	237		func isActiveUser (userAddress) = (getIntOrElse(keyLockParamUserAmount(userAddress), 0) > 0)
238	238
239	239
240	240		func getUserParamsOrUnit (userAddress) = if (isActiveUser(userAddress))
241	241		then $Tuple3(false, getIntOrFail(keyLockParamUserAmount(userAddress)), getIntOrFail(keyLockParamStartBlock(userAddress)))
242	242		else unit
243	243
244	244
245	245		func getUserParamsOrFail (userAddress) = valueOrErrorMessage(getUserParamsOrUnit(userAddress), (("User " + toString(userAddress)) + " is not defined"))
246	246
247	247
248	248		let supportedAssetsStr = getStrOrElse(keySupportedRewardAssets(), "")
249	249
250	250		let supportedAssetsList = split(supportedAssetsStr, "_")
251	251
252	252		func calcReward (userAddress,assetId,stakedAmountX,depositNumUser,depositNumLast) = {
253	253		let rewardPerNsbtSumLastKEY = keyRewardPerNsbtSumAt(depositNumLast, assetId)
254	254		let sumLastX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, assetId), "0"))
255	255		let sumUserX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumUser, assetId), "0"))
256	256		let rewardDynamicPart = toInt(fraction((sumLastX18 - sumUserX18), stakedAmountX, MULTX18))
257	257		let rewardCachedPartKEY = keyReward(userAddress, assetId)
258	258		let rewardCachedPart = getIntOrElse(rewardCachedPartKEY, 0)
259	259		$Tuple4((rewardCachedPart + rewardDynamicPart), rewardCachedPart, rewardDynamicPart, rewardCachedPartKEY)
260	260		}
261	261
262	262
263	263		func toStartOfDay (timestamp) = ((timestamp / DAYMILLIS) * DAYMILLIS)
264	264
265	265
266	266		func findElementPosition (src,element,sep) = {
267	267		let elementStart = valueOrErrorMessage(indexOf(src, element), ((("there is no substring " + element) + " in ") + src))
268	268		if ((elementStart == 0))
269	269		then 0
270	270		else {
271	271		let left = take(src, elementStart)
272	272		(size(split(left, sep)) - 1)
273	273		}
274	274		}
275	275
276	276
277	277		let DepositTotalsPREFIX = "%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d"
278	278
279	279		func updateDepositTotals (currVal,idxToUpdate,deltaAmt) = {
280	280		let currArr = split(currVal, SEP)
281	281		func updDepTotByIdx (idx) = if ((idx != idxToUpdate))
282	282		then currArr[idx]
283	283		else toString((parseIntValue(currArr[idx]) + deltaAmt))
284	284
285	285		makeString([DepositTotalsPREFIX, updDepTotByIdx(1), updDepTotByIdx(2), updDepTotByIdx(3), updDepTotByIdx(4), updDepTotByIdx(5), updDepTotByIdx(6), updDepTotByIdx(7), updDepTotByIdx(8), updDepTotByIdx(9), updDepTotByIdx(10), updDepTotByIdx(11), updDepTotByIdx(12), updDepTotByIdx(13), updDepTotByIdx(14), updDepTotByIdx(15), updDepTotByIdx(16), updDepTotByIdx(17), updDepTotByIdx(18)], SEP)
286	286		}
287	287
288	288
289	289		func DepositsTotalsEntries (depositAmount,assetIdStr) = {
290	290		let startOfDay = toStartOfDay(lastBlock.timestamp)
291	291		let byDayKEY = keyStatsDepositAmtByDay(startOfDay)
292	292		let totalsKEY = keyStatsDepositAmtTotals()
293	293		let position = findElementPosition(supportedAssetsStr, assetIdStr, "_")
294	294		let defaultDATA = (DepositTotalsPREFIX + "__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0__0")
295	295		let currTotalsDATA = valueOrElse(getString(this, totalsKEY), defaultDATA)
296	296		let newTotalsDATA = updateDepositTotals(currTotalsDATA, (position + 1), depositAmount)
297	297		[StringEntry(totalsKEY, newTotalsDATA), StringEntry(byDayKEY, newTotalsDATA)]
298	298		}
299	299
300	300
301	301		func RewardEntries (isNewUser,userAddress,stakedAmount) = {
302	302		let stakedAmountX = toBigInt(stakedAmount)
303	303		let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddress)
304	304		let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
305	305		let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
306	306		func forEachAssetCacheUserReward (accum,asset) = {
307		-	let $~~t01210412239~~ = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
308		-	let rewardTotal = $~~t01210412239~~._1
309		-	let cached = $~~t01210412239~~._2
310		-	let dynamic = $~~t01210412239~~._3
311		-	let rewardCachedPartKEY = $~~t01210412239~~._4
	307	+	let $t01211012245 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
	308	+	let rewardTotal = $t01211012245._1
	309	+	let cached = $t01211012245._2
	310	+	let dynamic = $t01211012245._3
	311	+	let rewardCachedPartKEY = $t01211012245._4
312	312		(accum :+ IntegerEntry(rewardCachedPartKEY, rewardTotal))
313	313		}
314	314
315	315		if (if ((depositNumLast == -1))
316	316		then (depositNumUser == -1)
317	317		else false)
318	318		then nil
319	319		else if (if ((depositNumLast == -1))
320	320		then (depositNumUser > -1)
321	321		else false)
322	322		then throw("invalid depositNumLast and depositNumUser state")
323	323		else if (if ((depositNumLast > -1))
324	324		then (depositNumUser >= -1)
325	325		else false)
326	326		then if (isNewUser)
327	327		then [IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)]
328	328		else ({
329	329		let $l = supportedAssetsList
330	330		let $s = size($l)
331	331		let $acc0 = nil
332	332		func $f0_1 ($a,$i) = if (($i >= $s))
333	333		then $a
334	334		else forEachAssetCacheUserReward($a, $l[$i])
335	335
336	336		func $f0_2 ($a,$i) = if (($i >= $s))
337	337		then $a
338	338		else throw("List size exceeds 9")
339	339
340	340		$f0_2($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)
341	341		} :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast))
342	342		else throw(((("uncovered condition: depositNumLast=" + toString(depositNumLast)) + " depositNumUser=") + toString(depositNumUser)))
343	343		}
344	344
345	345
346	346		func IncrementNotDistributedRewardEntry (tkn,amountInc) = {
347	347		let notDistributedRewardKEY = keyNotDistributedReward(tkn)
348	348		let notDistributedReward = getIntOrElse(notDistributedRewardKEY, 0)
349		-	[IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))]
	349	+	IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))
350	350		}
351	351
352	352
353	353		func surfToGnsbt (surfAmt) = (surfAmt / gnsbtFromSurfCoeff)
354	354
355	355
356	356		func mergeStake (userAddress,amountToAdd,userTeen,userKid) = {
357		-	let $~~t01516215272~~ = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
358		-	let isNewUser = $~~t01516215272~~._1
359		-	let stakedAmount = $~~t01516215272~~._2
360		-	let vpEffectiveHeight = $~~t01516215272~~._3
	357	+	let $t01516615276 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
	358	+	let isNewUser = $t01516615276._1
	359	+	let stakedAmount = $t01516615276._2
	360	+	let vpEffectiveHeight = $t01516615276._3
361	361		let stakedAmountNEW = if (isNewUser)
362	362		then amountToAdd
363	363		else (amountToAdd + stakedAmount)
364	364		let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
365	365		let period = (height / W2)
366	366		let vpEffectivePeriodNEW = if ((userKid > 0))
367	367		then (period + 2)
368	368		else if ((userTeen > 0))
369	369		then (period + 1)
370	370		else period
371	371		$Tuple5(isNewUser, stakedAmount, vpEffectiveHeight, stakedAmountNEW, (vpEffectivePeriodNEW * W2))
372	372		}
373	373
374	374
375	375		func updateTotals () = {
376	376		let period = (height / getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD))
377	377		if ((period > getIntOrZero(keyLastTotalsPeriodProcessed())))
378	378		then {
379	379		let totalMature = valueOrElse(getInteger(keyTotalMature()), getIntOrZero(keyLockParamTotalAmount()))
380	380		[IntegerEntry(keyTotalMature(), (totalMature + getIntOrZero(keyTotalTeen()))), IntegerEntry(keyTotalTeen(), getIntOrZero(keyTotalKid())), IntegerEntry(keyTotalKid(), 0), IntegerEntry(keyLastTotalsPeriodProcessed(), period)]
381	381		}
382	382		else nil
383	383		}
384	384
385	385
386	386		func onStake (userAddressStr,amountToAdd) = if ((0 > amountToAdd))
387	387		then throw("amountToAdd should be >= 0")
388	388		else {
389	389		let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
390	390		let period = (height / W2)
391	391		let totalMature = valueOrElse(getInteger(keyTotalMature()), getIntOrZero(keyLockParamTotalAmount()))
392	392		let totalTeen = getIntOrZero(keyTotalTeen())
393	393		let totalKid = getIntOrZero(keyTotalKid())
394	394		let userMature = if ((userAddressStr == ""))
395	395		then 0
396	396		else valueOrElse(getInteger(keyUserMature(userAddressStr)), getIntOrZero(keyLockParamUserAmount(addressFromStringValue(userAddressStr))))
397	397		let userTeen = getIntOrZero(keyUserTeen(userAddressStr))
398	398		let userKid = getIntOrZero(keyUserKid(userAddressStr))
399	399		let tmp = if ((period > getIntOrZero(keyLastUserPeriodProcessed(userAddressStr))))
400	400		then $Tuple7((totalMature + userTeen), (totalTeen + (userKid - userTeen)), (totalKid - userKid), (userMature + userTeen), userKid, 0, [IntegerEntry(keyLastUserPeriodProcessed(userAddressStr), period)])
401	401		else $Tuple7(totalMature, totalTeen, totalKid, userMature, userTeen, userKid, nil)
402	402		let totals = if ((period > getIntOrZero(keyLastTotalsPeriodProcessed())))
403	403		then $Tuple4([IntegerEntry(keyTotalMature(), (tmp._1 + tmp._2)), IntegerEntry(keyTotalTeen(), tmp._3), IntegerEntry(keyTotalKid(), 0), IntegerEntry(keyLastTotalsPeriodProcessed(), period)], (tmp._1 + tmp._2), tmp._3, 0)
404	404		else $Tuple4(nil, totalMature, totalTeen, totalKid)
405	405		let newKid = fraction(amountToAdd, (height % W2), W2)
406	406		let newTeen = (amountToAdd - newKid)
407	407		$Tuple7(((((totals._1 :+ IntegerEntry(keyUserMature(userAddressStr), tmp._4)) :+ IntegerEntry(keyUserTeen(userAddressStr), (tmp._5 + newTeen))) :+ IntegerEntry(keyUserKid(userAddressStr), (tmp._6 + newKid))) ++ tmp._7), totals._2, totals._3, totals._4, tmp._4, (tmp._5 + newTeen), (tmp._6 + newKid))
408	408		}
409	409
410	410
411	411		let IdxNewDiff = 0
412	412
413	413		let IdxNewGnsbt = 1
414	414
415	415		func userDecrease (gnsbt,diff) = if ((diff >= gnsbt))
416	416		then [(diff - gnsbt), 0]
417	417		else [0, (gnsbt - diff)]
418	418
419	419
420		-	func onUnstake (userAddressStr,amountToRemove) = if ((~~amountToRemove~~ >= 0))
421		-	then throw("amountToRemove should be < 0")
	420	+	func onUnstake (userAddressStr,amountToRemove) = if ((0 >= amountToRemove))
	421	+	then throw("amountToRemove should be > 0")
422	422		else {
423	423		let W2 = getIntOrElse(keyVpPeriodDuration(), DEFAULTPERIOD)
424	424		let period = (height / W2)
425	425		let totalMature = valueOrElse(getInteger(keyTotalMature()), getIntOrZero(keyLockParamTotalAmount()))
426	426		let totalTeen = getIntOrZero(keyTotalTeen())
427	427		let totalKid = getIntOrZero(keyTotalKid())
428	428		let userMature = if ((userAddressStr == ""))
429	429		then 0
430	430		else valueOrElse(getInteger(keyUserMature(userAddressStr)), getIntOrZero(keyLockParamUserAmount(addressFromStringValue(userAddressStr))))
431	431		let userTeen = getIntOrZero(keyUserTeen(userAddressStr))
432	432		let userKid = getIntOrZero(keyUserKid(userAddressStr))
433	433		let um = userDecrease(userMature, amountToRemove)
434	434		let ut = userDecrease(userTeen, um[IdxNewDiff])
435	435		let uk = userDecrease(userKid, ut[IdxNewDiff])
436	436		if ((uk[IdxNewDiff] != 0))
437	437		then throw("Should not happen")
438	438		else {
439	439		let tmp = if ((period > getIntOrZero(keyLastUserPeriodProcessed(userAddressStr))))
440	440		then $Tuple7((totalMature + ut[IdxNewGnsbt]), (totalTeen + (uk[IdxNewGnsbt] - ut[IdxNewGnsbt])), (totalKid - uk[IdxNewGnsbt]), (um[IdxNewGnsbt] + ut[IdxNewGnsbt]), uk[IdxNewGnsbt], 0, [IntegerEntry(keyLastUserPeriodProcessed(userAddressStr), period)])
441	441		else $Tuple7(totalMature, totalTeen, totalKid, um[IdxNewGnsbt], ut[IdxNewGnsbt], uk[IdxNewGnsbt], nil)
442	442		let totals = if ((period > getIntOrZero(keyLastTotalsPeriodProcessed())))
443	443		then $Tuple4([IntegerEntry(keyTotalMature(), (tmp._1 + tmp._2)), IntegerEntry(keyTotalTeen(), tmp._3), IntegerEntry(keyTotalKid(), 0), IntegerEntry(keyLastTotalsPeriodProcessed(), period)], (tmp._1 + tmp._2), tmp._3, 0)
444	444		else $Tuple4(nil, totalMature, totalTeen, totalKid)
445	445		$Tuple7(((((totals._1 :+ IntegerEntry(keyUserMature(userAddressStr), tmp._4)) :+ IntegerEntry(keyUserTeen(userAddressStr), tmp._5)) :+ IntegerEntry(keyUserKid(userAddressStr), tmp._6)) ++ tmp._7), totals._2, totals._3, totals._4, tmp._4, tmp._5, tmp._6)
446	446		}
447	447		}
448	448
449	449
450	450		func commonStake (userAddress,i) = {
451		-	let $~~t02115921213~~ = getParamsOrFail()
452		-	let stakedAssetId = $~~t02115921213~~._1
453		-	let minLockAmount = $~~t02115921213~~._2
	451	+	let $t02116321217 = getParamsOrFail()
	452	+	let stakedAssetId = $t02116321217._1
	453	+	let minLockAmount = $t02116321217._2
454	454		if ((size(i.payments) != 1))
455	455		then throw("Invalid payments size")
456	456		else {
457	457		let payment = i.payments[0]
458	458		let amount = payment.amount
459	459		let invalidAssetMessage = (("Invalid asset. " + toBase58String(stakedAssetId)) + " is expected")
460	460		let assetId = valueOrErrorMessage(payment.assetId, invalidAssetMessage)
461	461		if ((assetId != stakedAssetId))
462	462		then throw(invalidAssetMessage)
463	463		else {
464	464		let userAddressStr = toString(userAddress)
465	465		let r = onStake(userAddressStr, amount)
466	466		let mergedData = mergeStake(userAddress, amount, r._6, r._7)
467	467		let isNewUser = mergedData._1
468	468		let stakedAmount = mergedData._2
469	469		let vpEffectiveHeight = mergedData._3
470	470		let stakedAmountNEW = mergedData._4
471	471		let vpEffectiveHeightNEW = mergedData._5
472	472		if ((minLockAmount > stakedAmountNEW))
473	473		then throw(("Min lock amount is " + toString(minLockAmount)))
474	474		else {
475		-	let $~~t02206722169~~ = StatsResult(amount, 1, if (isNewUser)
	475	+	let $t02207122173 = StatsResult(amount, 1, if (isNewUser)
476	476		then 1
477	477		else 0)
478		-	let statsEntries = $~~t02206722169~~._1
479		-	let totalStaked = $~~t02206722169~~._2
480		-	let totalStakedNew = $~~t02206722169~~._3
	478	+	let statsEntries = $t02207122173._1

github/deemru/w8io/026f985 
108.96 ms ◑