w8 · tx · HbE···gn5

tx · HbEZi9QHRCcY3dFJLQYyZ1jyA1xbFjnLkgFuo7rZsgn5

3N5yarEiTQccnnuerogYT3BxM5Zc5bRgDZy:  -0.04000000 Waves

2022.07.29 18:31 [2161301] smart account 3N5yarEiTQccnnuerogYT3BxM5Zc5bRgDZy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HbEZi9QHRCcY3dFJLQYyZ1jyA1xbFjnLkgFuo7rZsgn5",
    "fee": 4000000,
    "feeAssetId": null,
    "timestamp": 1659108729613,
    "version": 1,
    "sender": "3N5yarEiTQccnnuerogYT3BxM5Zc5bRgDZy",
    "senderPublicKey": "FK9j3YFWVChXKESTn33fMZz1JseCNMMqHhfB7smxJo4e",
    "proofs": [
        "2fsYWEBLKzCemJEab4sK39UWBgxd1XzM4SSUNsJWWxSU8XYqFTANxKvV138uQmEAe3c167u78KiPENshfnhhtR7H"
    ],
    "script": "base64:BgIgCAISBQoDAQgIEgASABIDCgEBEgASABIDCgEIEgMKAQhJAAlzZXBhcmF0b3ICAl9fAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8ABk1VTFRYNgkAtgIBBQVNVUxUNgAGTVVMVFg4CQC2AgEFBU1VTFQ4AAdNVUxUWDE4CQC2AgEAgICQu7rWrfANAApXQVZFU0lEU1RSAgVXQVZFUwAHV0FWRVNJRAkA2QQBBQpXQVZFU0lEU1RSABlJZHhDb250cm9sQ2ZnTmV1dHJpbm9EYXBwAAEAGElkeENvbnRyb2xDZmdBdWN0aW9uRGFwcAACABRJZHhDb250cm9sQ2ZnUnBkRGFwcAADABVJZHhDb250cm9sQ2ZnTWF0aERhcHAABAAcSWR4Q29udHJvbENmZ0xpcXVpZGF0aW9uRGFwcAAFABVJZHhDb250cm9sQ2ZnUmVzdERhcHAABgAdSWR4Q29udHJvbENmZ05vZGVSZWdpc3RyeURhcHAABwAcSWR4Q29udHJvbENmZ05zYnRTdGFraW5nRGFwcAAIABlJZHhDb250cm9sQ2ZnTWVkaWF0b3JEYXBwAAkAHElkeENvbnRyb2xDZmdTdXJmU3Rha2luZ0RhcHAACgAgSWR4Q29udHJvbENmZ0duc2J0Q29udHJvbGxlckRhcHAACwEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkArAICCQCsAgIJAKwCAgkArAICAgptYW5kYXRvcnkgCQClCAEFB2FkZHJlc3MCAS4FA2tleQIPIGlzIG5vdCBkZWZpbmVkARFrZXlDb250cm9sQWRkcmVzcwACHCVzJXNfX2NvbmZpZ19fY29udHJvbEFkZHJlc3MBDWtleUNvbnRyb2xDZmcAAhElc19fY29udHJvbENvbmZpZwEUcmVhZENvbnRyb2xDZmdPckZhaWwBB2NvbnRyb2wJALUJAgkBD2dldFN0cmluZ09yRmFpbAIFB2NvbnRyb2wJAQ1rZXlDb250cm9sQ2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCCmNvbnRyb2xDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQpjb250cm9sQ2ZnBQNpZHgJAKwCAgItQ29udHJvbCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAPY29udHJvbENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJARFrZXlDb250cm9sQWRkcmVzcwACIzNONE5TN2Q0Sm85YTZGMTRMaUZVS0tZVmRVa2tmMmVQNFp4AApjb250cm9sQ2ZnCQEUcmVhZENvbnRyb2xDZmdPckZhaWwBBQ9jb250cm9sQ29udHJhY3QADG1hdGhDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCmNvbnRyb2xDZmcFFUlkeENvbnRyb2xDZmdNYXRoRGFwcAAQbmV1dHJpbm9Db250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCmNvbnRyb2xDZmcFGUlkeENvbnRyb2xDZmdOZXV0cmlub0RhcHAAD2F1Y3Rpb25Db250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCmNvbnRyb2xDZmcFGElkeENvbnRyb2xDZmdBdWN0aW9uRGFwcAEMa2V5Qm9uZEFzc2V0AAINYm9uZF9hc3NldF9pZAEZa2V5QXVjdGlvbkNvbnRyYWN0QWRkcmVzcwACEGF1Y3Rpb25fY29udHJhY3QBEGtleU1pbkxvY2tBbW91bnQAAhElc19fbWluTG9ja0Ftb3VudAEQa2V5U3Rha2VkQXNzZXRJZAACESVzX19zdGFrZWRBc3NldElkARZrZXlMb2NrUGFyYW1Vc2VyQW1vdW50AQt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAgtwYXJhbUJ5VXNlcgkAzAgCCQClCAEFC3VzZXJBZGRyZXNzCQDMCAICBmFtb3VudAUDbmlsBQlzZXBhcmF0b3IBFmtleUxvY2tQYXJhbVN0YXJ0QmxvY2sBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICC3BhcmFtQnlVc2VyCQDMCAIJAKUIAQULdXNlckFkZHJlc3MJAMwIAgIFc3RhcnQFA25pbAUJc2VwYXJhdG9yARBrZXlIaXN0b3J5UmVjb3JkAwR0eXBlC3VzZXJBZGRyZXNzBHR4SWQJALkJAgkAzAgCAgglcyVzJXMlcwkAzAgCAgdoaXN0b3J5CQDMCAIFBHR5cGUJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwkAzAgCCQDYBAEFBHR4SWQFA25pbAUJc2VwYXJhdG9yARdrZXlMb2NrUGFyYW1Ub3RhbEFtb3VudAAJALkJAgkAzAgCAgQlcyVzCQDMCAICBXN0YXRzCQDMCAICEWFjdGl2ZVRvdGFsTG9ja2VkBQNuaWwFCXNlcGFyYXRvcgESa2V5U3RhdHNMb2Nrc0NvdW50AAkAuQkCCQDMCAICBCVzJXMJAMwIAgIFc3RhdHMJAMwIAgIKbG9ja3NDb3VudAUDbmlsBQlzZXBhcmF0b3IBEmtleVN0YXRzVXNlcnNDb3VudAAJALkJAgkAzAgCAgQlcyVzCQDMCAICBXN0YXRzCQDMCAICEGFjdGl2ZVVzZXJzQ291bnQFA25pbAUJc2VwYXJhdG9yAQ1rZXlOZXh0UGVyaW9kAAIOJXNfX25leHRQZXJpb2QBGGtleVN1cHBvcnRlZFJld2FyZEFzc2V0cwACFXN1cHBvcnRlZFJld2FyZEFzc2V0cwERa2V5RGVwb3NpdE51bUxhc3QACQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICA2RlcAkAzAgCAgdsYXN0TnVtBQNuaWwFCXNlcGFyYXRvcgEba2V5VXNlclJld2FyZEZyb21EZXBvc2l0TnVtAQt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAhF1c2VyUndkRnJvbURlcE51bQkAzAgCBQt1c2VyQWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBFWtleVJld2FyZFBlck5zYnRTdW1BdAIKZGVwb3NpdE51bQN0a24JALkJAgkAzAgCAgQlcyVkCQDMCAICFXJ3ZFBlck5zYnRTdW1CeURlcE51bQkAzAgCCQCkAwEFCmRlcG9zaXROdW0JAMwIAgUDdGtuBQNuaWwFCXNlcGFyYXRvcgEJa2V5UmV3YXJkAgt1c2VyQWRkcmVzcwN0a24JALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIDcndkCQDMCAIFC3VzZXJBZGRyZXNzCQDMCAIFA3RrbgUDbmlsBQlzZXBhcmF0b3IBCmtleUNsYWltZWQCC3VzZXJBZGRyZXNzA3RrbgkAuQkCCQDMCAICBiVzJXMlcwkAzAgCAgNjbG0JAMwIAgULdXNlckFkZHJlc3MJAMwIAgUDdGtuBQNuaWwFCXNlcGFyYXRvcgEXa2V5Tm90RGlzdHJpYnV0ZWRSZXdhcmQBA3RrbgkAuQkCCQDMCAICBCVzJXMJAMwIAgIObm90RGlzdHJpYnV0ZWQJAMwIAgUDdGtuBQNuaWwFCXNlcGFyYXRvcgEFdG9YMTgCB29yaWdWYWwIb3JpZ011bHQJALwCAwkAtgIBBQdvcmlnVmFsBQdNVUxUWDE4BQhvcmlnTXVsdAEMZ2V0SW50T3JaZXJvAQNrZXkJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUDa2V5AAABDGdldEludE9yRWxzZQIDa2V5CmRlZmF1bHRWYWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUDa2V5BQpkZWZhdWx0VmFsAQxnZXRJbnRPckZhaWwBA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFBHRoaXMFA2tleQkArAICCQCsAgICD01hbmRhdG9yeSB0aGlzLgUDa2V5Ag8gaXMgbm90IGRlZmluZWQBDGdldFN0ck9yRWxzZQIDa2V5CmRlZmF1bHRWYWwJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwUDa2V5BQpkZWZhdWx0VmFsAQ90b0FkZHJlc3NPckZhaWwBCmFkZHJlc3NTdHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBBQphZGRyZXNzU3RyCQCsAgICIWNvdWxkbid0IHBhcnNlIHBhc3NlZCBhZGRyZXNzU3RyPQUKYWRkcmVzc1N0cgELdG9Bc3NldFZlY3QBCGFzc2V0U3RyAwkAAAIFCGFzc2V0U3RyBQpXQVZFU0lEU1RSBQR1bml0CQDZBAEFCGFzc2V0U3RyAQVhc0ludAEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIDSW50BAZ2YWxJbnQFByRtYXRjaDAFBnZhbEludAkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAETZm9ybWF0SGlzdG9yeVJlY29yZAQJb2xkQW1vdW50CG9sZFN0YXJ0CW5ld0Ftb3VudAhuZXdTdGFydAkAuQkCCQDMCAICDCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sGaGVpZ2h0CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkApAMBBQlvbGRBbW91bnQJAMwIAgkApAMBBQhvbGRTdGFydAkAzAgCCQCkAwEFCW5ld0Ftb3VudAkAzAgCCQCkAwEFCG5ld1N0YXJ0BQNuaWwFCXNlcGFyYXRvcgEYZm9ybWF0Q2xhaW1IaXN0b3J5UmVjb3JkAgR1c2VyDmNsYWltZWRSZXdhcmRzCQC5CQIJAMwIAgIIJXMlZCVkJXMJAMwIAgUEdXNlcgkAzAgCCQCkAwEIBQlsYXN0QmxvY2sGaGVpZ2h0CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgUOY2xhaW1lZFJld2FyZHMFA25pbAUJc2VwYXJhdG9yARJIaXN0b3J5UmVjb3JkRW50cnkHBHR5cGULdXNlckFkZHJlc3MEdHhJZAlvbGRBbW91bnQIb2xkU3RhcnQJbmV3QW1vdW50CG5ld1N0YXJ0CQELU3RyaW5nRW50cnkCCQEQa2V5SGlzdG9yeVJlY29yZAMFBHR5cGUFC3VzZXJBZGRyZXNzBQR0eElkCQETZm9ybWF0SGlzdG9yeVJlY29yZAQFCW9sZEFtb3VudAUIb2xkU3RhcnQFCW5ld0Ftb3VudAUIbmV3U3RhcnQBEUNsYWltSGlzdG9yeUVudHJ5Awt1c2VyQWRkcmVzcwR0eElkDmNsYWltZWRSZXdhcmRzCQELU3RyaW5nRW50cnkCCQEQa2V5SGlzdG9yeVJlY29yZAMCBWNsYWltBQt1c2VyQWRkcmVzcwUEdHhJZAkBGGZvcm1hdENsYWltSGlzdG9yeVJlY29yZAIJAKUIAQULdXNlckFkZHJlc3MFDmNsYWltZWRSZXdhcmRzAQtTdGF0c1Jlc3VsdAMOdG90YWxMb2NrZWRJbmMMbG9ja0NvdW50SW5jDXVzZXJzQ291bnRJbmMECmxvY2tzQ291bnQJAQxnZXRJbnRPclplcm8BCQESa2V5U3RhdHNMb2Nrc0NvdW50AAQKdXNlcnNDb3VudAkBDGdldEludE9yWmVybwEJARJrZXlTdGF0c1VzZXJzQ291bnQABAt0b3RhbEFtb3VudAkBDGdldEludE9yWmVybwEJARdrZXlMb2NrUGFyYW1Ub3RhbEFtb3VudAAEDnRvdGFsQW1vdW50TmV3CQBkAgULdG90YWxBbW91bnQFDnRvdGFsTG9ja2VkSW5jCQCVCgMJAMwIAgkBDEludGVnZXJFbnRyeQIJARJrZXlTdGF0c0xvY2tzQ291bnQACQBkAgUKbG9ja3NDb3VudAUMbG9ja0NvdW50SW5jCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQESa2V5U3RhdHNVc2Vyc0NvdW50AAkAZAIFCnVzZXJzQ291bnQFDXVzZXJzQ291bnRJbmMJAMwIAgkBDEludGVnZXJFbnRyeQIJARdrZXlMb2NrUGFyYW1Ub3RhbEFtb3VudAAFDnRvdGFsQW1vdW50TmV3BQNuaWwFC3RvdGFsQW1vdW50BQ50b3RhbEFtb3VudE5ldwEPTG9ja1BhcmFtc0VudHJ5Awt1c2VyQWRkcmVzcwZhbW91bnQFc3RhcnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARZrZXlMb2NrUGFyYW1Vc2VyQW1vdW50AQULdXNlckFkZHJlc3MFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmtleUxvY2tQYXJhbVN0YXJ0QmxvY2sBBQt1c2VyQWRkcmVzcwUFc3RhcnQFA25pbAEPZ2V0UGFyYW1zT3JGYWlsAAkAlAoCCQDZBAEJAQ9nZXRTdHJpbmdPckZhaWwCBQR0aGlzCQEQa2V5U3Rha2VkQXNzZXRJZAAJAQxnZXRJbnRPckZhaWwBCQEQa2V5TWluTG9ja0Ftb3VudAABDGlzQWN0aXZlVXNlcgELdXNlckFkZHJlc3MJAGYCCQEMZ2V0SW50T3JFbHNlAgkBFmtleUxvY2tQYXJhbVVzZXJBbW91bnQBBQt1c2VyQWRkcmVzcwAAAAABE2dldFVzZXJQYXJhbXNPclVuaXQBC3VzZXJBZGRyZXNzAwkBDGlzQWN0aXZlVXNlcgEFC3VzZXJBZGRyZXNzCQCVCgMHCQEMZ2V0SW50T3JGYWlsAQkBFmtleUxvY2tQYXJhbVVzZXJBbW91bnQBBQt1c2VyQWRkcmVzcwkBDGdldEludE9yRmFpbAEJARZrZXlMb2NrUGFyYW1TdGFydEJsb2NrAQULdXNlckFkZHJlc3MFBHVuaXQBE2dldFVzZXJQYXJhbXNPckZhaWwBC3VzZXJBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJARNnZXRVc2VyUGFyYW1zT3JVbml0AQULdXNlckFkZHJlc3MJAKwCAgkArAICAgVVc2VyIAkApQgBBQt1c2VyQWRkcmVzcwIPIGlzIG5vdCBkZWZpbmVkABJzdXBwb3J0ZWRBc3NldHNTdHIJAQxnZXRTdHJPckVsc2UCCQEYa2V5U3VwcG9ydGVkUmV3YXJkQXNzZXRzAAIAABNzdXBwb3J0ZWRBc3NldHNMaXN0CQC1CQIFEnN1cHBvcnRlZEFzc2V0c1N0cgIBXwEKY2FsY1Jld2FyZAULdXNlckFkZHJlc3MHYXNzZXRJZA1zdGFrZWRBbW91bnRYDmRlcG9zaXROdW1Vc2VyDmRlcG9zaXROdW1MYXN0BBdyZXdhcmRQZXJOc2J0U3VtTGFzdEtFWQkBFWtleVJld2FyZFBlck5zYnRTdW1BdAIFDmRlcG9zaXROdW1MYXN0BQdhc3NldElkBApzdW1MYXN0WDE4CQCnAwEJAQxnZXRTdHJPckVsc2UCCQEVa2V5UmV3YXJkUGVyTnNidFN1bUF0AgUOZGVwb3NpdE51bUxhc3QFB2Fzc2V0SWQCATAECnN1bVVzZXJYMTgJAKcDAQkBDGdldFN0ck9yRWxzZQIJARVrZXlSZXdhcmRQZXJOc2J0U3VtQXQCBQ5kZXBvc2l0TnVtVXNlcgUHYXNzZXRJZAIBMAQRcmV3YXJkRHluYW1pY1BhcnQJAKADAQkAvAIDCQC4AgIFCnN1bUxhc3RYMTgFCnN1bVVzZXJYMTgFDXN0YWtlZEFtb3VudFgFB01VTFRYMTgEE3Jld2FyZENhY2hlZFBhcnRLRVkJAQlrZXlSZXdhcmQCBQt1c2VyQWRkcmVzcwUHYXNzZXRJZAQQcmV3YXJkQ2FjaGVkUGFydAkBDGdldEludE9yRWxzZQIFE3Jld2FyZENhY2hlZFBhcnRLRVkAAAkAlgoECQBkAgUQcmV3YXJkQ2FjaGVkUGFydAURcmV3YXJkRHluYW1pY1BhcnQFEHJld2FyZENhY2hlZFBhcnQFEXJld2FyZER5bmFtaWNQYXJ0BRNyZXdhcmRDYWNoZWRQYXJ0S0VZAQ1SZXdhcmRFbnRyaWVzAwlpc05ld1VzZXILdXNlckFkZHJlc3MMc3Rha2VkQW1vdW50BA1zdGFrZWRBbW91bnRYCQC2AgEFDHN0YWtlZEFtb3VudAQbdXNlclJld2FyZEZyb21EZXBvc2l0TnVtS0VZCQEba2V5VXNlclJld2FyZEZyb21EZXBvc2l0TnVtAQULdXNlckFkZHJlc3MEDmRlcG9zaXROdW1Vc2VyCQEMZ2V0SW50T3JFbHNlAgUbdXNlclJld2FyZEZyb21EZXBvc2l0TnVtS0VZAP///////////wEEDmRlcG9zaXROdW1MYXN0CQEMZ2V0SW50T3JFbHNlAgkBEWtleURlcG9zaXROdW1MYXN0AAD///////////8BCgEbZm9yRWFjaEFzc2V0Q2FjaGVVc2VyUmV3YXJkAgVhY2N1bQVhc3NldAQLJHQwODQzNjg1NzEJAQpjYWxjUmV3YXJkBQULdXNlckFkZHJlc3MFBWFzc2V0BQ1zdGFrZWRBbW91bnRYBQ5kZXBvc2l0TnVtVXNlcgUOZGVwb3NpdE51bUxhc3QEC3Jld2FyZFRvdGFsCAULJHQwODQzNjg1NzECXzEEBmNhY2hlZAgFCyR0MDg0MzY4NTcxAl8yBAdkeW5hbWljCAULJHQwODQzNjg1NzECXzMEE3Jld2FyZENhY2hlZFBhcnRLRVkIBQskdDA4NDM2ODU3MQJfNAkAzQgCBQVhY2N1bQkBDEludGVnZXJFbnRyeQIFE3Jld2FyZENhY2hlZFBhcnRLRVkFC3Jld2FyZFRvdGFsAwMJAAACBQ5kZXBvc2l0TnVtTGFzdAD///////////8BCQAAAgUOZGVwb3NpdE51bVVzZXIA////////////AQcFA25pbAMDCQAAAgUOZGVwb3NpdE51bUxhc3QA////////////AQkAZgIFDmRlcG9zaXROdW1Vc2VyAP///////////wEHCQACAQIvaW52YWxpZCBkZXBvc2l0TnVtTGFzdCBhbmQgZGVwb3NpdE51bVVzZXIgc3RhdGUDAwkAZgIFDmRlcG9zaXROdW1MYXN0AP///////////wEJAAACBQ5kZXBvc2l0TnVtVXNlcgD///////////8BBwMFCWlzTmV3VXNlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgUbdXNlclJld2FyZEZyb21EZXBvc2l0TnVtS0VZBQ5kZXBvc2l0TnVtTGFzdAUDbmlsCQDNCAIKAAIkbAUTc3VwcG9ydGVkQXNzZXRzTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEbZm9yRWFjaEFzc2V0Q2FjaGVVc2VyUmV3YXJkAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKCQEMSW50ZWdlckVudHJ5AgUbdXNlclJld2FyZEZyb21EZXBvc2l0TnVtS0VZBQ5kZXBvc2l0TnVtTGFzdAMDCQBmAgUOZGVwb3NpdE51bUxhc3QA////////////AQkAZgIFDmRlcG9zaXROdW1Vc2VyAP///////////wEHAwUJaXNOZXdVc2VyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkFDmRlcG9zaXROdW1MYXN0BQNuaWwJAM0IAgoAAiRsBRNzdXBwb3J0ZWRBc3NldHNMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARtmb3JFYWNoQXNzZXRDYWNoZVVzZXJSZXdhcmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAQxJbnRlZ2VyRW50cnkCBRt1c2VyUmV3YXJkRnJvbURlcG9zaXROdW1LRVkFDmRlcG9zaXROdW1MYXN0CQACAQkArAICCQCsAgIJAKwCAgIkdW5jb3ZlcmVkIGNvbmRpdGlvbjogZGVwb3NpdE51bUxhc3Q9CQCkAwEFDmRlcG9zaXROdW1MYXN0AhAgZGVwb3NpdE51bVVzZXI9CQCkAwEFDmRlcG9zaXROdW1Vc2VyASJJbmNyZW1lbnROb3REaXN0cmlidXRlZFJld2FyZEVudHJ5AgN0a24JYW1vdW50SW5jBBdub3REaXN0cmlidXRlZFJld2FyZEtFWQkBF2tleU5vdERpc3RyaWJ1dGVkUmV3YXJkAQUDdGtuBBRub3REaXN0cmlidXRlZFJld2FyZAkBDGdldEludE9yRWxzZQIFF25vdERpc3RyaWJ1dGVkUmV3YXJkS0VZAAAJAMwIAgkBDEludGVnZXJFbnRyeQIFF25vdERpc3RyaWJ1dGVkUmV3YXJkS0VZCQBkAgUUbm90RGlzdHJpYnV0ZWRSZXdhcmQFCWFtb3VudEluYwUDbmlsAQtzdXJmVG9HbnNidAEHc3VyZkFtdAkAaQIFB3N1cmZBbXQAPAARQ29udG9sQ29udHJhY3RLZXkCEGNvbnRyb2xfY29udHJhY3QIAWkBC2NvbnN0cnVjdG9yAw1taW5Mb2NrQW1vdW50FXN1cHBvcnRlZFJld2FyZEFzc2V0cw1zdGFrZWRBc3NldElkAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBDEludGVnZXJFbnRyeQIJARBrZXlNaW5Mb2NrQW1vdW50AAUNbWluTG9ja0Ftb3VudAkAzAgCCQELU3RyaW5nRW50cnkCCQEYa2V5U3VwcG9ydGVkUmV3YXJkQXNzZXRzAAUVc3VwcG9ydGVkUmV3YXJkQXNzZXRzCQDMCAIJAQtTdHJpbmdFbnRyeQIJARBrZXlTdGFrZWRBc3NldElkAAUNc3Rha2VkQXNzZXRJZAUDbmlsAWkBBXN0YWtlAAQNJHQwMTIxMjAxMjE3NAkBD2dldFBhcmFtc09yRmFpbAAEDXN0YWtlZEFzc2V0SWQIBQ0kdDAxMjEyMDEyMTc0Al8xBA1taW5Mb2NrQW1vdW50CAUNJHQwMTIxMjAxMjE3NAJfMgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECFUludmFsaWQgcGF5bWVudHMgc2l6ZQQHcGF5bWVudAkAkQMCCAUBaQhwYXltZW50cwAABAZhbW91bnQIBQdwYXltZW50BmFtb3VudAQTaW52YWxpZEFzc2V0TWVzc2FnZQkArAICCQCsAgICD0ludmFsaWQgYXNzZXQuIAkA2AQBBQ1zdGFrZWRBc3NldElkAgwgaXMgZXhwZWN0ZWQEB2Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFB3BheW1lbnQHYXNzZXRJZAUTaW52YWxpZEFzc2V0TWVzc2FnZQMJAQIhPQIFB2Fzc2V0SWQFDXN0YWtlZEFzc2V0SWQJAAIBBRNpbnZhbGlkQXNzZXRNZXNzYWdlBAt1c2VyQWRkcmVzcwgFAWkGY2FsbGVyBA51c2VyQWRkcmVzc1N0cgkApQgBBQt1c2VyQWRkcmVzcwQMZ25zYnRBbXRVc2VyAAAEDWduc2J0QW10VG90YWwAAAQNJHQwMTI2NzIxMjc4MQkBC3ZhbHVlT3JFbHNlAgkBE2dldFVzZXJQYXJhbXNPclVuaXQBBQt1c2VyQWRkcmVzcwkAlQoDBgAAAP///////////wEECWlzTmV3VXNlcggFDSR0MDEyNjcyMTI3ODECXzEEDHN0YWtlZEFtb3VudAgFDSR0MDEyNjcyMTI3ODECXzIED2xvY2tTdGFydEhlaWdodAgFDSR0MDEyNjcyMTI3ODECXzMED3N0YWtlZEFtb3VudE5ldwMFCWlzTmV3VXNlcgUGYW1vdW50CQBkAgUGYW1vdW50BQxzdGFrZWRBbW91bnQEEW1lcmdlZFN0YXJ0SGVpZ2h0AwUJaXNOZXdVc2VyBQZoZWlnaHQJAGQCBQZoZWlnaHQJAGgCAKALAA4DCQBmAgUNbWluTG9ja0Ftb3VudAUPc3Rha2VkQW1vdW50TmV3CQACAQkArAICAhNNaW4gbG9jayBhbW91bnQgaXMgCQCkAwEFDW1pbkxvY2tBbW91bnQEDSR0MDEzMDg0MTMxODYJAQtTdGF0c1Jlc3VsdAMFBmFtb3VudAABAwUJaXNOZXdVc2VyAAEAAAQMc3RhdHNFbnRyaWVzCAUNJHQwMTMwODQxMzE4NgJfMQQLdG90YWxTdGFrZWQIBQ0kdDAxMzA4NDEzMTg2Al8yBA50b3RhbFN0YWtlZE5ldwgFDSR0MDEzMDg0MTMxODYCXzMJAM4IAgkAzggCCQDOCAIJAMwIAgkBEkhpc3RvcnlSZWNvcmRFbnRyeQcCBXN0YWtlBQt1c2VyQWRkcmVzcwgFAWkNdHJhbnNhY3Rpb25JZAUMc3Rha2VkQW1vdW50BQ9sb2NrU3RhcnRIZWlnaHQFD3N0YWtlZEFtb3VudE5ldwURbWVyZ2VkU3RhcnRIZWlnaHQFA25pbAkBDVJld2FyZEVudHJpZXMDBQlpc05ld1VzZXIFDnVzZXJBZGRyZXNzU3RyBQxzdGFrZWRBbW91bnQJAQ9Mb2NrUGFyYW1zRW50cnkDBQt1c2VyQWRkcmVzcwUPc3Rha2VkQW1vdW50TmV3BRFtZXJnZWRTdGFydEhlaWdodAUMc3RhdHNFbnRyaWVzAWkBE3N0YWtlQnlPcmlnaW5DYWxsZXIABA0kdDAxMzUyMjEzNTc2CQEPZ2V0UGFyYW1zT3JGYWlsAAQNc3Rha2VkQXNzZXRJZAgFDSR0MDEzNTIyMTM1NzYCXzEEDW1pbkxvY2tBbW91bnQIBQ0kdDAxMzUyMjEzNTc2Al8yAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIVSW52YWxpZCBwYXltZW50cyBzaXplBAdwYXltZW50CQCRAwIIBQFpCHBheW1lbnRzAAAEBmFtb3VudAgFB3BheW1lbnQGYW1vdW50BBNpbnZhbGlkQXNzZXRNZXNzYWdlCQCsAgIJAKwCAgIPSW52YWxpZCBhc3NldC4gCQDYBAEFDXN0YWtlZEFzc2V0SWQCDCBpcyBleHBlY3RlZAQHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUHcGF5bWVudAdhc3NldElkBRNpbnZhbGlkQXNzZXRNZXNzYWdlAwkBAiE9AgUHYXNzZXRJZAUNc3Rha2VkQXNzZXRJZAkAAgEFE2ludmFsaWRBc3NldE1lc3NhZ2UEC3VzZXJBZGRyZXNzCAUBaQxvcmlnaW5DYWxsZXIEDnVzZXJBZGRyZXNzU3RyCQClCAEFC3VzZXJBZGRyZXNzBAxnbnNidEFtdFVzZXIAAAQNZ25zYnRBbXRUb3RhbAAABA0kdDAxNDA4MDE0MTg5CQELdmFsdWVPckVsc2UCCQETZ2V0VXNlclBhcmFtc09yVW5pdAEFC3VzZXJBZGRyZXNzCQCVCgMGAAAA////////////AQQJaXNOZXdVc2VyCAUNJHQwMTQwODAxNDE4OQJfMQQMc3Rha2VkQW1vdW50CAUNJHQwMTQwODAxNDE4OQJfMgQPbG9ja1N0YXJ0SGVpZ2h0CAUNJHQwMTQwODAxNDE4OQJfMwQPc3Rha2VkQW1vdW50TmV3AwUJaXNOZXdVc2VyBQZhbW91bnQJAGQCBQZhbW91bnQFDHN0YWtlZEFtb3VudAQRbWVyZ2VkU3RhcnRIZWlnaHQDBQlpc05ld1VzZXIFBmhlaWdodAkAZAIFBmhlaWdodAkAaAIAoAsADgMJAGYCBQ1taW5Mb2NrQW1vdW50BQ9zdGFrZWRBbW91bnROZXcJAAIBCQCsAgICE01pbiBsb2NrIGFtb3VudCBpcyAJAKQDAQUNbWluTG9ja0Ftb3VudAQNJHQwMTQ0OTIxNDU5NAkBC1N0YXRzUmVzdWx0AwUGYW1vdW50AAEDBQlpc05ld1VzZXIAAQAABAxzdGF0c0VudHJpZXMIBQ0kdDAxNDQ5MjE0NTk0Al8xBAt0b3RhbFN0YWtlZAgFDSR0MDE0NDkyMTQ1OTQCXzIEDnRvdGFsU3Rha2VkTmV3CAUNJHQwMTQ0OTIxNDU5NAJfMwkAzggCCQDOCAIJAM4IAgkAzAgCCQESSGlzdG9yeVJlY29yZEVudHJ5BwIFc3Rha2UFC3VzZXJBZGRyZXNzCAUBaQ10cmFuc2FjdGlvbklkBQxzdGFrZWRBbW91bnQFD2xvY2tTdGFydEhlaWdodAUPc3Rha2VkQW1vdW50TmV3BRFtZXJnZWRTdGFydEhlaWdodAUDbmlsCQENUmV3YXJkRW50cmllcwMFCWlzTmV3VXNlcgUOdXNlckFkZHJlc3NTdHIFDHN0YWtlZEFtb3VudAkBD0xvY2tQYXJhbXNFbnRyeQMFC3VzZXJBZGRyZXNzBQ9zdGFrZWRBbW91bnROZXcFEW1lcmdlZFN0YXJ0SGVpZ2h0BQxzdGF0c0VudHJpZXMBaQEHdW5zdGFrZQEGYW1vdW50AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIjdW5zdGFrZSBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnQEC3VzZXJBZGRyZXNzCAUBaQZjYWxsZXIEDnVzZXJBZGRyZXNzU3RyCQClCAEFC3VzZXJBZGRyZXNzBA0kdDAxNTA5MDE1MTQ0CQEPZ2V0UGFyYW1zT3JGYWlsAAQNc3Rha2VkQXNzZXRJZAgFDSR0MDE1MDkwMTUxNDQCXzEEDW1pbkxvY2tBbW91bnQIBQ0kdDAxNTA5MDE1MTQ0Al8yBA0kdDAxNTE0NzE1MjIxCQETZ2V0VXNlclBhcmFtc09yRmFpbAEFC3VzZXJBZGRyZXNzBAlpc05ld1VzZXIIBQ0kdDAxNTE0NzE1MjIxAl8xBApsb2NrQW1vdW50CAUNJHQwMTUxNDcxNTIyMQJfMgQJbG9ja1N0YXJ0CAUNJHQwMTUxNDcxNTIyMQJfMwMJAGcCAAAFCmxvY2tBbW91bnQJAAIBAhJOb3RoaW5nIHRvIHVuc3Rha2UDCQBmAgUGYW1vdW50BQpsb2NrQW1vdW50CQACAQkArAICCQCsAgIJAKwCAgIKUmVxdWVzdGVkIAkApAMBBQZhbW91bnQCEiwgYnV0IHN0YWtlZCBvbmx5IAkApAMBBQpsb2NrQW1vdW50BA0kdDAxNTQxMTE1NTY1CQELU3RhdHNSZXN1bHQDCQEBLQEFBmFtb3VudAMJAAACBQZhbW91bnQFCmxvY2tBbW91bnQA////////////AQAAAwkAAAIFBmFtb3VudAUKbG9ja0Ftb3VudAD///////////8BAAAEDHN0YXRzRW50cmllcwgFDSR0MDE1NDExMTU1NjUCXzEEC3RvdGFsU3Rha2VkCAUNJHQwMTU0MTExNTU2NQJfMgQOdG90YWxTdGFrZWROZXcIBQ0kdDAxNTQxMTE1NTY1Al8zCQDOCAIJAM4IAgkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzBQZhbW91bnQFDXN0YWtlZEFzc2V0SWQJAMwIAgkBEkhpc3RvcnlSZWNvcmRFbnRyeQcCB3Vuc3Rha2UFC3VzZXJBZGRyZXNzCAUBaQ10cmFuc2FjdGlvbklkBQpsb2NrQW1vdW50BQlsb2NrU3RhcnQJAGUCBQpsb2NrQW1vdW50BQZhbW91bnQFCWxvY2tTdGFydAUDbmlsCQENUmV3YXJkRW50cmllcwMHBQ51c2VyQWRkcmVzc1N0cgUKbG9ja0Ftb3VudAkBD0xvY2tQYXJhbXNFbnRyeQMFC3VzZXJBZGRyZXNzCQBlAgUKbG9ja0Ftb3VudAUGYW1vdW50BQlsb2NrU3RhcnQFDHN0YXRzRW50cmllcwFpAQdkZXBvc2l0AAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECH2V4YWN0IDEgcGF5bWVudCBpcyBhbGxvd2VkIG9ubHkEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAZhbW91bnQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQELdmFsdWVPckVsc2UCCAUDcG10B2Fzc2V0SWQFB1dBVkVTSUQEDXBtdEFzc2V0SWRTdHIJANgEAQUKcG10QXNzZXRJZAQIcG10TXVsdFgDCQAAAgUKcG10QXNzZXRJZAUHV0FWRVNJRAUGTVVMVFg4BQZNVUxUWDYEB2Ftb3VudFgJALYCAQUGYW1vdW50BAt0b3RhbFN0YWtlZAkBDGdldEludE9yRWxzZQIJARdrZXlMb2NrUGFyYW1Ub3RhbEFtb3VudAAAAAQMdG90YWxTdGFrZWRYCQC2AgEFC3RvdGFsU3Rha2VkAwkAZgIAAAULdG90YWxTdGFrZWQJAAIBAhtUT0RPOiBjYXNlIGlzIG5vdCBzdXBwb3J0ZWQDCQAAAgULdG90YWxTdGFrZWQAAAkBIkluY3JlbWVudE5vdERpc3RyaWJ1dGVkUmV3YXJkRW50cnkCBQ1wbXRBc3NldElkU3RyBQZhbW91bnQEEHJld2FyZFBlck5zYnRYMTgJALwCAwUHYW1vdW50WAUHTVVMVFgxOAUMdG90YWxTdGFrZWRYBBFkZXBvc2l0TnVtTGFzdEtFWQkBEWtleURlcG9zaXROdW1MYXN0AAQOZGVwb3NpdE51bUxhc3QJAQxnZXRJbnRPckVsc2UCBRFkZXBvc2l0TnVtTGFzdEtFWQD///////////8BBA1kZXBvc2l0TnVtTmV3CQBkAgUOZGVwb3NpdE51bUxhc3QAAQMJAQEhAQkBCGNvbnRhaW5zAgUSc3VwcG9ydGVkQXNzZXRzU3RyBQ1wbXRBc3NldElkU3RyCQACAQkArAICCQCsAgIFEnN1cHBvcnRlZEFzc2V0c1N0cgIRIGRvZXNuJ3QgY29udGFpbiAFDXBtdEFzc2V0SWRTdHIKARdyZWZyZXNoUmV3YXJkUGVyTnNidFNVTQIFYWNjdW0JbmV4dEFzc2V0BBZyZXdhcmRQZXJOc2J0U3VtTmV3S0VZCQEVa2V5UmV3YXJkUGVyTnNidFN1bUF0AgUNZGVwb3NpdE51bU5ldwUJbmV4dEFzc2V0BApzdW1MYXN0U3RyCQEMZ2V0U3RyT3JFbHNlAgkBFWtleVJld2FyZFBlck5zYnRTdW1BdAIFDmRlcG9zaXROdW1MYXN0BQluZXh0QXNzZXQCATAJAM0IAgUFYWNjdW0DCQAAAgUJbmV4dEFzc2V0BQ1wbXRBc3NldElkU3RyCQELU3RyaW5nRW50cnkCBRZyZXdhcmRQZXJOc2J0U3VtTmV3S0VZCQCmAwEJALcCAgkApwMBBQpzdW1MYXN0U3RyBRByZXdhcmRQZXJOc2J0WDE4CQELU3RyaW5nRW50cnkCBRZyZXdhcmRQZXJOc2J0U3VtTmV3S0VZBQpzdW1MYXN0U3RyCQDNCAIKAAIkbAUTc3VwcG9ydGVkQXNzZXRzTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEXcmVmcmVzaFJld2FyZFBlck5zYnRTVU0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAQxJbnRlZ2VyRW50cnkCBRFkZXBvc2l0TnVtTGFzdEtFWQUNZGVwb3NpdE51bU5ldwFpAQxjbGFpbVJld2FyZHMABAt1c2VyQWRkcmVzcwgFAWkGY2FsbGVyBA51c2VyQWRkcmVzc1N0cgkApQgBBQt1c2VyQWRkcmVzcwMJAGYCCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhlwYXltZW50cyBhcmUgbm90IGFjY2VwdGVkBA0kdDAxNzcyOTE3ODM0CQELdmFsdWVPckVsc2UCCQETZ2V0VXNlclBhcmFtc09yVW5pdAEFC3VzZXJBZGRyZXNzCQCVCgMGAAAAAAQJaXNOZXdVc2VyCAUNJHQwMTc3MjkxNzgzNAJfMQQMc3Rha2VkQW1vdW50CAUNJHQwMTc3MjkxNzgzNAJfMgQMc3Rha2luZ1N0YXJ0CAUNJHQwMTc3MjkxNzgzNAJfMwQNc3Rha2VkQW1vdW50WAkAtgIBBQxzdGFrZWRBbW91bnQEG3VzZXJSZXdhcmRGcm9tRGVwb3NpdE51bUtFWQkBG2tleVVzZXJSZXdhcmRGcm9tRGVwb3NpdE51bQEFDnVzZXJBZGRyZXNzU3RyBA5kZXBvc2l0TnVtVXNlcgkBDGdldEludE9yRWxzZQIFG3VzZXJSZXdhcmRGcm9tRGVwb3NpdE51bUtFWQD///////////8BBA5kZXBvc2l0TnVtTGFzdAkBDGdldEludE9yRWxzZQIJARFrZXlEZXBvc2l0TnVtTGFzdAAA////////////AQoBH2ZvckVhY2hBc3NldENhbGNVbmNsYWltZWRSZXdhcmQCBWFjY3VtBWFzc2V0BA0kdDAxODIwNTE4MzQzCQEKY2FsY1Jld2FyZAUFDnVzZXJBZGRyZXNzU3RyBQVhc3NldAUNc3Rha2VkQW1vdW50WAUOZGVwb3NpdE51bVVzZXIFDmRlcG9zaXROdW1MYXN0BAtyZXdhcmRUb3RhbAgFDSR0MDE4MjA1MTgzNDMCXzEEBmNhY2hlZAgFDSR0MDE4MjA1MTgzNDMCXzIEB2R5bmFtaWMIBQ0kdDAxODIwNTE4MzQzAl8zBBNyZXdhcmRDYWNoZWRQYXJ0S0VZCAUNJHQwMTgyMDUxODM0MwJfNAQKY2xhaW1lZEtFWQkBCmtleUNsYWltZWQCBQ51c2VyQWRkcmVzc1N0cgUFYXNzZXQEDSR0MDE4NDAzMTg0NDAFBWFjY3VtBARkYXRhCAUNJHQwMTg0MDMxODQ0MAJfMQQRY2xhaW1lZEFtdEJ5QXNzZXQIBQ0kdDAxODQwMzE4NDQwAl8yBAduZXdQYXJ0CQC5CQIJAMwIAgUFYXNzZXQJAMwIAgkApAMBBQtyZXdhcmRUb3RhbAUDbmlsAgE6BBRjbGFpbWVkQW10QnlBc3NldE5ldwkAuQkCCQDMCAIFEWNsYWltZWRBbXRCeUFzc2V0CQDMCAIFB25ld1BhcnQFA25pbAIBXwMJAGcCAAAFC3Jld2FyZFRvdGFsCQCUCgIFBGRhdGEFFGNsYWltZWRBbXRCeUFzc2V0TmV3CQCUCgIJAM0IAgkAzQgCCQDNCAIFBGRhdGEJAQ5TY3JpcHRUcmFuc2ZlcgMFC3VzZXJBZGRyZXNzBQtyZXdhcmRUb3RhbAkBC3RvQXNzZXRWZWN0AQUFYXNzZXQJAQxJbnRlZ2VyRW50cnkCBQpjbGFpbWVkS0VZCQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBQpjbGFpbWVkS0VZAAAFC3Jld2FyZFRvdGFsCQEMSW50ZWdlckVudHJ5AgUTcmV3YXJkQ2FjaGVkUGFydEtFWQAABRRjbGFpbWVkQW10QnlBc3NldE5ldwQNJHQwMTg5MDAxOTAxNAoAAiRsBRNzdXBwb3J0ZWRBc3NldHNMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwCAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEfZm9yRWFjaEFzc2V0Q2FsY1VuY2xhaW1lZFJld2FyZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgQJdHJhbnNmZXJzCAUNJHQwMTg5MDAxOTAxNAJfMQQXY2xhaW1lZEFtdEJ5QXNzZXRSZXN1bHQIBQ0kdDAxODkwMDE5MDE0Al8yAwkAZwIAAAkAkAMBBQl0cmFuc2ZlcnMJAAIBAhBub3RoaW5nIHRvIGNsYWltCQDNCAIJAM0IAgUJdHJhbnNmZXJzCQEMSW50ZWdlckVudHJ5AgUbdXNlclJld2FyZEZyb21EZXBvc2l0TnVtS0VZBQ5kZXBvc2l0TnVtTGFzdAkBEUNsYWltSGlzdG9yeUVudHJ5AwULdXNlckFkZHJlc3MIBQFpDXRyYW5zYWN0aW9uSWQJALACAgUXY2xhaW1lZEFtdEJ5QXNzZXRSZXN1bHQAAQFpARh1bmNsYWltZWRSZXdhcmRzUkVBRE9OTFkBDnVzZXJBZGRyZXNzU3RyCgEWZm9yRWFjaEFzc2V0WmVyb1Jld2FyZAIFYWNjdW0FYXNzZXQJAKwCAgkArAICBQVhY2N1bQkAuQkCCQDMCAIFBWFzc2V0CQDMCAICATAJAMwIAgIBMAUDbmlsAgE6AgFfBBJ1bmNsYWltZWRSZXdhcmRTdHIDCQAAAgUOdXNlckFkZHJlc3NTdHICAAoAAiRsBRNzdXBwb3J0ZWRBc3NldHNMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAIACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARZmb3JFYWNoQXNzZXRaZXJvUmV3YXJkAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKBAt1c2VyQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUOdXNlckFkZHJlc3NTdHIEDSR0MDE5NjczMTk3NzgJAQt2YWx1ZU9yRWxzZQIJARNnZXRVc2VyUGFyYW1zT3JVbml0AQULdXNlckFkZHJlc3MJAJUKAwYAAAAABAlpc05ld1VzZXIIBQ0kdDAxOTY3MzE5Nzc4Al8xBAxzdGFrZWRBbW91bnQIBQ0kdDAxOTY3MzE5Nzc4Al8yBAxzdGFraW5nU3RhcnQIBQ0kdDAxOTY3MzE5Nzc4Al8zBA1zdGFrZWRBbW91bnRYCQC2AgEFDHN0YWtlZEFtb3VudAQbdXNlclJld2FyZEZyb21EZXBvc2l0TnVtS0VZCQEba2V5VXNlclJld2FyZEZyb21EZXBvc2l0TnVtAQUOdXNlckFkZHJlc3NTdHIEDmRlcG9zaXROdW1Vc2VyCQEMZ2V0SW50T3JFbHNlAgUbdXNlclJld2FyZEZyb21EZXBvc2l0TnVtS0VZAP///////////wEEDmRlcG9zaXROdW1MYXN0CQEMZ2V0SW50T3JFbHNlAgkBEWtleURlcG9zaXROdW1MYXN0AAD///////////8BCgEfZm9yRWFjaEFzc2V0Q2FsY1VuY2xhaW1lZFJld2FyZAIFYWNjdW0FYXNzZXQEDSR0MDIwMTI0MjAyNjIJAQpjYWxjUmV3YXJkBQUOdXNlckFkZHJlc3NTdHIFBWFzc2V0BQ1zdGFrZWRBbW91bnRYBQ5kZXBvc2l0TnVtVXNlcgUOZGVwb3NpdE51bUxhc3QEC3Jld2FyZFRvdGFsCAUNJHQwMjAxMjQyMDI2MgJfMQQGY2FjaGVkCAUNJHQwMjAxMjQyMDI2MgJfMgQHZHluYW1pYwgFDSR0MDIwMTI0MjAyNjICXzMEE3Jld2FyZENhY2hlZFBhcnRLRVkIBQ0kdDAyMDEyNDIwMjYyAl80BAdjbGFpbWVkCQELdmFsdWVPckVsc2UCCQCfCAEJAQprZXlDbGFpbWVkAgUOdXNlckFkZHJlc3NTdHIFBWFzc2V0AAAJAKwCAgkArAICBQVhY2N1bQkAuQkCCQDMCAIFBWFzc2V0CQDMCAIJAKQDAQULcmV3YXJkVG90YWwJAMwIAgkApAMBBQdjbGFpbWVkBQNuaWwCAToCAV8KAAIkbAUTc3VwcG9ydGVkQXNzZXRzTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzACAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEfZm9yRWFjaEFzc2V0Q2FsY1VuY2xhaW1lZFJld2FyZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkAlAoCBQNuaWwJALMCAgUSdW5jbGFpbWVkUmV3YXJkU3RyAAEBaQEWc3VyZlN0YWtpbmdTWVNSRUFET05MWQEVdXNlckFkZHJlc3NTdHJPckVtcHR5BAlzdXJmVG90YWwJAQxnZXRJbnRPckVsc2UCCQEXa2V5TG9ja1BhcmFtVG90YWxBbW91bnQAAAAEEmduc2J0RnJvbVN1cmZUb3RhbAkBC3N1cmZUb0duc2J0AQUJc3VyZlRvdGFsAwkAAAIFFXVzZXJBZGRyZXNzU3RyT3JFbXB0eQIACQCUCgIFA25pbAkAzAgCAAAJAMwIAgUJc3VyZlRvdGFsCQDMCAIAAAkAzAgCBRJnbnNidEZyb21TdXJmVG90YWwJAMwIAgAABQNuaWwEC3VzZXJBZGRyZXNzCQEPdG9BZGRyZXNzT3JGYWlsAQUVdXNlckFkZHJlc3NTdHJPckVtcHR5BA0kdDAyMDk1NDIxMDU1CQELdmFsdWVPckVsc2UCCQETZ2V0VXNlclBhcmFtc09yVW5pdAEFC3VzZXJBZGRyZXNzCQCVCgMGAAAAAAQJaXNOZXdVc2VyCAUNJHQwMjA5NTQyMTA1NQJfMQQIc3VyZlVzZXIIBQ0kdDAyMDk1NDIxMDU1Al8yBAxzdGFraW5nU3RhcnQIBQ0kdDAyMDk1NDIxMDU1Al8zBBFnbnNidEZyb21TdXJmVXNlcgkBC3N1cmZUb0duc2J0AQUIc3VyZlVzZXIJAJQKAgUDbmlsCQDMCAIFCHN1cmZVc2VyCQDMCAIFCXN1cmZUb3RhbAkAzAgCBRFnbnNidEZyb21TdXJmVXNlcgkAzAgCBRJnbnNidEZyb21TdXJmVG90YWwJAMwIAgUMc3Rha2luZ1N0YXJ0BQNuaWwAu4X07A==",
    "chainId": 84,
    "height": 2161301,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7h7PEt2PamyBAQjcro7fwm7zFidAHkvpRzdSwMsnfLiH
Next: GG7U6RU6imnkPjoM189Aw2SLTGFWupFoyuXhvc19ZGVQ

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 IdxControlCfgNeutrinoDapp = 1
23 23  
24 24  let IdxControlCfgAuctionDapp = 2
25 25  
26 26  let IdxControlCfgRpdDapp = 3
27 27  
28 28  let IdxControlCfgMathDapp = 4
29 29  
30 30  let IdxControlCfgLiquidationDapp = 5
31 31  
32 32  let IdxControlCfgRestDapp = 6
33 33  
34 34  let IdxControlCfgNodeRegistryDapp = 7
35 35  
36 36  let IdxControlCfgNsbtStakingDapp = 8
37 37  
38 38  let IdxControlCfgMediatorDapp = 9
39 39  
40 40  let IdxControlCfgSurfStakingDapp = 10
41 41  
42 42  let IdxControlCfgGnsbtControllerDapp = 11
43 43  
44 44  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
45 45  
46 46  
47 47  func keyControlAddress () = "%s%s__config__controlAddress"
48 48  
49 49  
50 50  func keyControlCfg () = "%s__controlConfig"
51 51  
52 52  
53 53  func readControlCfgOrFail (control) = split(getStringOrFail(control, keyControlCfg()), SEP)
54 54  
55 55  
56 56  func getContractAddressOrFail (controlCfg,idx) = valueOrErrorMessage(addressFromString(controlCfg[idx]), ("Control cfg doesn't contain address at index " + toString(idx)))
57 57  
58 58  
59 59  let controlContract = addressFromStringValue(valueOrElse(getString(this, keyControlAddress()), "3N4NS7d4Jo9a6F14LiFUKKYVdUkkf2eP4Zx"))
60 60  
61 61  let controlCfg = readControlCfgOrFail(controlContract)
62 62  
63 63  let mathContract = getContractAddressOrFail(controlCfg, IdxControlCfgMathDapp)
64 64  
65 65  let neutrinoContract = getContractAddressOrFail(controlCfg, IdxControlCfgNeutrinoDapp)
66 66  
67 67  let auctionContract = getContractAddressOrFail(controlCfg, IdxControlCfgAuctionDapp)
68 68  
69 69  func keyBondAsset () = "bond_asset_id"
70 70  
71 71  
72 72  func keyAuctionContractAddress () = "auction_contract"
73 73  
74 74  
75 75  func keyMinLockAmount () = "%s__minLockAmount"
76 76  
77 77  
78 78  func keyStakedAssetId () = "%s__stakedAssetId"
79 79  
80 80  
81 81  func keyLockParamUserAmount (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "amount"], separator)
82 82  
83 83  
84 84  func keyLockParamStartBlock (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "start"], separator)
85 85  
86 86  
87 87  func keyHistoryRecord (type,userAddress,txId) = makeString(["%s%s%s%s", "history", type, toString(userAddress), toBase58String(txId)], separator)
88 88  
89 89  
90 90  func keyLockParamTotalAmount () = makeString(["%s%s", "stats", "activeTotalLocked"], separator)
91 91  
92 92  
93 93  func keyStatsLocksCount () = makeString(["%s%s", "stats", "locksCount"], separator)
94 94  
95 95  
96 96  func keyStatsUsersCount () = makeString(["%s%s", "stats", "activeUsersCount"], separator)
97 97  
98 98  
99 99  func keyNextPeriod () = "%s__nextPeriod"
100 100  
101 101  
102 102  func keySupportedRewardAssets () = "supportedRewardAssets"
103 103  
104 104  
105 105  func keyDepositNumLast () = makeString(["%s%s%s", "dep", "lastNum"], separator)
106 106  
107 107  
108 108  func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s%s", "userRwdFromDepNum", userAddress], separator)
109 109  
110 110  
111 111  func keyRewardPerNsbtSumAt (depositNum,tkn) = makeString(["%s%d", "rwdPerNsbtSumByDepNum", toString(depositNum), tkn], separator)
112 112  
113 113  
114 114  func keyReward (userAddress,tkn) = makeString(["%s%s%s", "rwd", userAddress, tkn], separator)
115 115  
116 116  
117 117  func keyClaimed (userAddress,tkn) = makeString(["%s%s%s", "clm", userAddress, tkn], separator)
118 118  
119 119  
120 120  func keyNotDistributedReward (tkn) = makeString(["%s%s", "notDistributed", tkn], separator)
121 121  
122 122  
123 123  func toX18 (origVal,origMult) = fraction(toBigInt(origVal), MULTX18, origMult)
124 124  
125 125  
126 126  func getIntOrZero (key) = valueOrElse(getInteger(this, key), 0)
127 127  
128 128  
129 129  func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal)
130 130  
131 131  
132 132  func getIntOrFail (key) = valueOrErrorMessage(getInteger(this, key), (("Mandatory this." + key) + " is not defined"))
133 133  
134 134  
135 135  func getStrOrElse (key,defaultVal) = valueOrElse(getString(this, key), defaultVal)
136 136  
137 137  
138 138  func toAddressOrFail (addressStr) = valueOrErrorMessage(addressFromString(addressStr), ("couldn't parse passed addressStr=" + addressStr))
139 139  
140 140  
141 141  func toAssetVect (assetStr) = if ((assetStr == WAVESIDSTR))
142 142      then unit
143 143      else fromBase58String(assetStr)
144 144  
145 145  
146 146  func asInt (val) = match val {
147 147      case valInt: Int => 
148 148          valInt
149 149      case _ => 
150 150          throw("fail to cast into Int")
151 151  }
152 152  
153 153  
154 154  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)
155 155  
156 156  
157 157  func formatClaimHistoryRecord (user,claimedRewards) = makeString(["%s%d%d%s", user, toString(lastBlock.height), toString(lastBlock.timestamp), claimedRewards], separator)
158 158  
159 159  
160 160  func HistoryRecordEntry (type,userAddress,txId,oldAmount,oldStart,newAmount,newStart) = StringEntry(keyHistoryRecord(type, userAddress, txId), formatHistoryRecord(oldAmount, oldStart, newAmount, newStart))
161 161  
162 162  
163 163  func ClaimHistoryEntry (userAddress,txId,claimedRewards) = StringEntry(keyHistoryRecord("claim", userAddress, txId), formatClaimHistoryRecord(toString(userAddress), claimedRewards))
164 164  
165 165  
166 166  func StatsResult (totalLockedInc,lockCountInc,usersCountInc) = {
167 167      let locksCount = getIntOrZero(keyStatsLocksCount())
168 168      let usersCount = getIntOrZero(keyStatsUsersCount())
169 169      let totalAmount = getIntOrZero(keyLockParamTotalAmount())
170 170      let totalAmountNew = (totalAmount + totalLockedInc)
171 171      $Tuple3([IntegerEntry(keyStatsLocksCount(), (locksCount + lockCountInc)), IntegerEntry(keyStatsUsersCount(), (usersCount + usersCountInc)), IntegerEntry(keyLockParamTotalAmount(), totalAmountNew)], totalAmount, totalAmountNew)
172 172      }
173 173  
174 174  
175 175  func LockParamsEntry (userAddress,amount,start) = [IntegerEntry(keyLockParamUserAmount(userAddress), amount), IntegerEntry(keyLockParamStartBlock(userAddress), start)]
176 176  
177 177  
178 178  func getParamsOrFail () = $Tuple2(fromBase58String(getStringOrFail(this, keyStakedAssetId())), getIntOrFail(keyMinLockAmount()))
179 179  
180 180  
181 181  func isActiveUser (userAddress) = (getIntOrElse(keyLockParamUserAmount(userAddress), 0) > 0)
182 182  
183 183  
184 184  func getUserParamsOrUnit (userAddress) = if (isActiveUser(userAddress))
185 185      then $Tuple3(false, getIntOrFail(keyLockParamUserAmount(userAddress)), getIntOrFail(keyLockParamStartBlock(userAddress)))
186 186      else unit
187 187  
188 188  
189 189  func getUserParamsOrFail (userAddress) = valueOrErrorMessage(getUserParamsOrUnit(userAddress), (("User " + toString(userAddress)) + " is not defined"))
190 190  
191 191  
192 192  let supportedAssetsStr = getStrOrElse(keySupportedRewardAssets(), "")
193 193  
194 194  let supportedAssetsList = split(supportedAssetsStr, "_")
195 195  
196 196  func calcReward (userAddress,assetId,stakedAmountX,depositNumUser,depositNumLast) = {
197 197      let rewardPerNsbtSumLastKEY = keyRewardPerNsbtSumAt(depositNumLast, assetId)
198 198      let sumLastX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, assetId), "0"))
199 199      let sumUserX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumUser, assetId), "0"))
200 200      let rewardDynamicPart = toInt(fraction((sumLastX18 - sumUserX18), stakedAmountX, MULTX18))
201 201      let rewardCachedPartKEY = keyReward(userAddress, assetId)
202 202      let rewardCachedPart = getIntOrElse(rewardCachedPartKEY, 0)
203 203      $Tuple4((rewardCachedPart + rewardDynamicPart), rewardCachedPart, rewardDynamicPart, rewardCachedPartKEY)
204 204      }
205 205  
206 206  
207 207  func RewardEntries (isNewUser,userAddress,stakedAmount) = {
208 208      let stakedAmountX = toBigInt(stakedAmount)
209 209      let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddress)
210 210      let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
211 211      let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
212 212      func forEachAssetCacheUserReward (accum,asset) =     {
213 213          let $t084368571 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
214 214          let rewardTotal = $t084368571._1
215 215          let cached = $t084368571._2
216 216          let dynamic = $t084368571._3
217 217          let rewardCachedPartKEY = $t084368571._4
218 218          (accum :+ IntegerEntry(rewardCachedPartKEY, rewardTotal))
219 219          }
220 220  
221 221      if (if ((depositNumLast == -1))
222 222          then (depositNumUser == -1)
223 223          else false)
224 224          then nil
225 225          else if (if ((depositNumLast == -1))
226 226              then (depositNumUser > -1)
227 227              else false)
228 228              then throw("invalid depositNumLast and depositNumUser state")
229 229              else if (if ((depositNumLast > -1))
230 230                  then (depositNumUser == -1)
231 231                  else false)
232 232                  then if (isNewUser)
233 233                      then [IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)]
234 234                      else ({
235 235                          let $l = supportedAssetsList
236 236                          let $s = size($l)
237 237                          let $acc0 = nil
238 238                          func $f0_1 ($a,$i) =                         if (($i >= $s))
239 239                              then $a
240 240                              else forEachAssetCacheUserReward($a, $l[$i])
241 241  
242 242                          func $f0_2 ($a,$i) =                         if (($i >= $s))
243 243                              then $a
244 244                              else throw("List size exceeds 10")
245 245  
246 246                          $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)
247 247                          } :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast))
248 248                  else if (if ((depositNumLast > -1))
249 249                      then (depositNumUser > -1)
250 250                      else false)
251 251                      then if (isNewUser)
252 252                          then [IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)]
253 253                          else ({
254 254                              let $l = supportedAssetsList
255 255                              let $s = size($l)
256 256                              let $acc0 = nil
257 257                              func $f0_1 ($a,$i) =                             if (($i >= $s))
258 258                                  then $a
259 259                                  else forEachAssetCacheUserReward($a, $l[$i])
260 260  
261 261                              func $f0_2 ($a,$i) =                             if (($i >= $s))
262 262                                  then $a
263 263                                  else throw("List size exceeds 10")
264 264  
265 265                              $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)
266 266                              } :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast))
267 267                      else throw(((("uncovered condition: depositNumLast=" + toString(depositNumLast)) + " depositNumUser=") + toString(depositNumUser)))
268 268      }
269 269  
270 270  
271 271  func IncrementNotDistributedRewardEntry (tkn,amountInc) = {
272 272      let notDistributedRewardKEY = keyNotDistributedReward(tkn)
273 273      let notDistributedReward = getIntOrElse(notDistributedRewardKEY, 0)
274 274  [IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))]
275 275      }
276 276  
277 277  
278 278  func surfToGnsbt (surfAmt) = (surfAmt / 60)
279 279  
280 280  
281 281  let ContolContractKey = "control_contract"
282 282  
283 283  @Callable(i)
284 284  func constructor (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
285 285      then throw("Permission denied")
286 286      else [IntegerEntry(keyMinLockAmount(), minLockAmount), StringEntry(keySupportedRewardAssets(), supportedRewardAssets), StringEntry(keyStakedAssetId(), stakedAssetId)]
287 287  
288 288  
289 289  
290 290  @Callable(i)
291 291  func stake () = {
292 292      let $t01212012174 = getParamsOrFail()
293 293      let stakedAssetId = $t01212012174._1
294 294      let minLockAmount = $t01212012174._2
295 295      if ((size(i.payments) != 1))
296 296          then throw("Invalid payments size")
297 297          else {
298 298              let payment = i.payments[0]
299 299              let amount = payment.amount
300 300              let invalidAssetMessage = (("Invalid asset. " + toBase58String(stakedAssetId)) + " is expected")
301 301              let assetId = valueOrErrorMessage(payment.assetId, invalidAssetMessage)
302 302              if ((assetId != stakedAssetId))
303 303                  then throw(invalidAssetMessage)
304 304                  else {
305 305                      let userAddress = i.caller
306 306                      let userAddressStr = toString(userAddress)
307 307                      let gnsbtAmtUser = 0
308 308                      let gnsbtAmtTotal = 0
309 309                      let $t01267212781 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, -1))
310 310                      let isNewUser = $t01267212781._1
311 311                      let stakedAmount = $t01267212781._2
312 312                      let lockStartHeight = $t01267212781._3
313 313                      let stakedAmountNew = if (isNewUser)
314 314                          then amount
315 315                          else (amount + stakedAmount)
316 316                      let mergedStartHeight = if (isNewUser)
317 317                          then height
318 318                          else (height + (1440 * 14))
319 319                      if ((minLockAmount > stakedAmountNew))
320 320                          then throw(("Min lock amount is " + toString(minLockAmount)))
321 321                          else {
322 322                              let $t01308413186 = StatsResult(amount, 1, if (isNewUser)
323 323                                  then 1
324 324                                  else 0)
325 325                              let statsEntries = $t01308413186._1
326 326                              let totalStaked = $t01308413186._2
327 327                              let totalStakedNew = $t01308413186._3
328 328                              ((([HistoryRecordEntry("stake", userAddress, i.transactionId, stakedAmount, lockStartHeight, stakedAmountNew, mergedStartHeight)] ++ RewardEntries(isNewUser, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNew, mergedStartHeight)) ++ statsEntries)
329 329                              }
330 330                      }
331 331              }
332 332      }
333 333  
334 334  
335 335  
336 336  @Callable(i)
337 337  func stakeByOriginCaller () = {
338 338      let $t01352213576 = getParamsOrFail()
339 339      let stakedAssetId = $t01352213576._1
340 340      let minLockAmount = $t01352213576._2
341 341      if ((size(i.payments) != 1))
342 342          then throw("Invalid payments size")
343 343          else {
344 344              let payment = i.payments[0]
345 345              let amount = payment.amount
346 346              let invalidAssetMessage = (("Invalid asset. " + toBase58String(stakedAssetId)) + " is expected")
347 347              let assetId = valueOrErrorMessage(payment.assetId, invalidAssetMessage)
348 348              if ((assetId != stakedAssetId))
349 349                  then throw(invalidAssetMessage)
350 350                  else {
351 351                      let userAddress = i.originCaller
352 352                      let userAddressStr = toString(userAddress)
353 353                      let gnsbtAmtUser = 0
354 354                      let gnsbtAmtTotal = 0
355 355                      let $t01408014189 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, -1))
356 356                      let isNewUser = $t01408014189._1
357 357                      let stakedAmount = $t01408014189._2
358 358                      let lockStartHeight = $t01408014189._3
359 359                      let stakedAmountNew = if (isNewUser)
360 360                          then amount
361 361                          else (amount + stakedAmount)
362 362                      let mergedStartHeight = if (isNewUser)
363 363                          then height
364 364                          else (height + (1440 * 14))
365 365                      if ((minLockAmount > stakedAmountNew))
366 366                          then throw(("Min lock amount is " + toString(minLockAmount)))
367 367                          else {
368 368                              let $t01449214594 = StatsResult(amount, 1, if (isNewUser)
369 369                                  then 1
370 370                                  else 0)
371 371                              let statsEntries = $t01449214594._1
372 372                              let totalStaked = $t01449214594._2
373 373                              let totalStakedNew = $t01449214594._3
374 374                              ((([HistoryRecordEntry("stake", userAddress, i.transactionId, stakedAmount, lockStartHeight, stakedAmountNew, mergedStartHeight)] ++ RewardEntries(isNewUser, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNew, mergedStartHeight)) ++ statsEntries)
375 375                              }
376 376                      }
377 377              }
378 378      }
379 379  
380 380  
381 381  
382 382  @Callable(i)
383 383  func unstake (amount) = if ((size(i.payments) != 0))
384 384      then throw("unstake doesn't require any payment")
385 385      else {
386 386          let userAddress = i.caller
387 387          let userAddressStr = toString(userAddress)
388 388          let $t01509015144 = getParamsOrFail()
389 389          let stakedAssetId = $t01509015144._1
390 390          let minLockAmount = $t01509015144._2
391 391          let $t01514715221 = getUserParamsOrFail(userAddress)
392 392          let isNewUser = $t01514715221._1
393 393          let lockAmount = $t01514715221._2
394 394          let lockStart = $t01514715221._3
395 395          if ((0 >= lockAmount))
396 396              then throw("Nothing to unstake")
397 397              else if ((amount > lockAmount))
398 398                  then throw(((("Requested " + toString(amount)) + ", but staked only ") + toString(lockAmount)))
399 399                  else {
400 400                      let $t01541115565 = StatsResult(-(amount), if ((amount == lockAmount))
401 401                          then -1
402 402                          else 0, if ((amount == lockAmount))
403 403                          then -1
404 404                          else 0)
405 405                      let statsEntries = $t01541115565._1
406 406                      let totalStaked = $t01541115565._2
407 407                      let totalStakedNew = $t01541115565._3
408 408                      ((([ScriptTransfer(userAddress, amount, stakedAssetId), HistoryRecordEntry("unstake", userAddress, i.transactionId, lockAmount, lockStart, (lockAmount - amount), lockStart)] ++ RewardEntries(false, userAddressStr, lockAmount)) ++ LockParamsEntry(userAddress, (lockAmount - amount), lockStart)) ++ statsEntries)
409 409                      }
410 410          }
411 411  
412 412  
413 413  
414 414  @Callable(i)
415 415  func deposit () = if ((size(i.payments) != 1))
416 416      then throw("exact 1 payment is allowed only")
417 417      else {
418 418          let pmt = i.payments[0]
419 419          let amount = pmt.amount
420 420          let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
421 421          let pmtAssetIdStr = toBase58String(pmtAssetId)
422 422          let pmtMultX = if ((pmtAssetId == WAVESID))
423 423              then MULTX8
424 424              else MULTX6
425 425          let amountX = toBigInt(amount)
426 426          let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
427 427          let totalStakedX = toBigInt(totalStaked)
428 428          if ((0 > totalStaked))
429 429              then throw("TODO: case is not supported")
430 430              else if ((totalStaked == 0))
431 431                  then IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount)
432 432                  else {
433 433                      let rewardPerNsbtX18 = fraction(amountX, MULTX18, totalStakedX)
434 434                      let depositNumLastKEY = keyDepositNumLast()
435 435                      let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
436 436                      let depositNumNew = (depositNumLast + 1)
437 437                      if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
438 438                          then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
439 439                          else {
440 440                              func refreshRewardPerNsbtSUM (accum,nextAsset) =                             {
441 441                                  let rewardPerNsbtSumNewKEY = keyRewardPerNsbtSumAt(depositNumNew, nextAsset)
442 442                                  let sumLastStr = getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, nextAsset), "0")
443 443                                  (accum :+ (if ((nextAsset == pmtAssetIdStr))
444 444                                      then StringEntry(rewardPerNsbtSumNewKEY, toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18)))
445 445                                      else StringEntry(rewardPerNsbtSumNewKEY, sumLastStr)))
446 446                                  }
447 447  
448 448                              ({
449 449                                  let $l = supportedAssetsList
450 450                                  let $s = size($l)
451 451                                  let $acc0 = nil
452 452                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
453 453                                      then $a
454 454                                      else refreshRewardPerNsbtSUM($a, $l[$i])
455 455  
456 456                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
457 457                                      then $a
458 458                                      else throw("List size exceeds 10")
459 459  
460 460                                  $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)
461 461                                  } :+ IntegerEntry(depositNumLastKEY, depositNumNew))
462 462                              }
463 463                      }
464 464          }
465 465  
466 466  
467 467  
468 468  @Callable(i)
469 469  func claimRewards () = {
470 470      let userAddress = i.caller
471 471      let userAddressStr = toString(userAddress)
472 472      if ((size(i.payments) > 0))
473 473          then throw("payments are not accepted")
474 474          else {
475 475              let $t01772917834 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
476 476              let isNewUser = $t01772917834._1
477 477              let stakedAmount = $t01772917834._2
478 478              let stakingStart = $t01772917834._3
479 479              let stakedAmountX = toBigInt(stakedAmount)
480 480              let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
481 481              let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
482 482              let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
483 483              func forEachAssetCalcUnclaimedReward (accum,asset) =             {
484 484                  let $t01820518343 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
485 485                  let rewardTotal = $t01820518343._1
486 486                  let cached = $t01820518343._2
487 487                  let dynamic = $t01820518343._3
488 488                  let rewardCachedPartKEY = $t01820518343._4
489 489                  let claimedKEY = keyClaimed(userAddressStr, asset)
490 490                  let $t01840318440 = accum
491 491                  let data = $t01840318440._1
492 492                  let claimedAmtByAsset = $t01840318440._2
493 493                  let newPart = makeString([asset, toString(rewardTotal)], ":")
494 494                  let claimedAmtByAssetNew = makeString([claimedAmtByAsset, newPart], "_")
495 495                  if ((0 >= rewardTotal))
496 496                      then $Tuple2(data, claimedAmtByAssetNew)
497 497                      else $Tuple2((((data :+ ScriptTransfer(userAddress, rewardTotal, toAssetVect(asset))) :+ IntegerEntry(claimedKEY, (valueOrElse(getInteger(claimedKEY), 0) + rewardTotal))) :+ IntegerEntry(rewardCachedPartKEY, 0)), claimedAmtByAssetNew)
498 498                  }
499 499  
500 500              let $t01890019014 = {
501 501                  let $l = supportedAssetsList
502 502                  let $s = size($l)
503 503                  let $acc0 = $Tuple2(nil, "")
504 504                  func $f0_1 ($a,$i) =                 if (($i >= $s))
505 505                      then $a
506 506                      else forEachAssetCalcUnclaimedReward($a, $l[$i])
507 507  
508 508                  func $f0_2 ($a,$i) =                 if (($i >= $s))
509 509                      then $a
510 510                      else throw("List size exceeds 10")
511 511  
512 512                  $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)
513 513                  }
514 514              let transfers = $t01890019014._1
515 515              let claimedAmtByAssetResult = $t01890019014._2
516 516              if ((0 >= size(transfers)))
517 517                  then throw("nothing to claim")
518 518                  else ((transfers :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)) :+ ClaimHistoryEntry(userAddress, i.transactionId, drop(claimedAmtByAssetResult, 1)))
519 519              }
520 520      }
521 521  
522 522  
523 523  
524 524  @Callable(i)
525 525  func unclaimedRewardsREADONLY (userAddressStr) = {
526 526      func forEachAssetZeroReward (accum,asset) =     ((accum + makeString([asset, "0", "0"], ":")) + "_")
527 527  
528 528      let unclaimedRewardStr = if ((userAddressStr == ""))
529 529          then {
530 530              let $l = supportedAssetsList
531 531              let $s = size($l)
532 532              let $acc0 = ""
533 533              func $f0_1 ($a,$i) =             if (($i >= $s))
534 534                  then $a
535 535                  else forEachAssetZeroReward($a, $l[$i])
536 536  
537 537              func $f0_2 ($a,$i) =             if (($i >= $s))
538 538                  then $a
539 539                  else throw("List size exceeds 10")
540 540  
541 541              $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)
542 542              }
543 543          else {
544 544              let userAddress = addressFromStringValue(userAddressStr)
545 545              let $t01967319778 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
546 546              let isNewUser = $t01967319778._1
547 547              let stakedAmount = $t01967319778._2
548 548              let stakingStart = $t01967319778._3
549 549              let stakedAmountX = toBigInt(stakedAmount)
550 550              let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
551 551              let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
552 552              let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
553 553              func forEachAssetCalcUnclaimedReward (accum,asset) =             {
554 554                  let $t02012420262 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
555 555                  let rewardTotal = $t02012420262._1
556 556                  let cached = $t02012420262._2
557 557                  let dynamic = $t02012420262._3
558 558                  let rewardCachedPartKEY = $t02012420262._4
559 559                  let claimed = valueOrElse(getInteger(keyClaimed(userAddressStr, asset)), 0)
560 560                  ((accum + makeString([asset, toString(rewardTotal), toString(claimed)], ":")) + "_")
561 561                  }
562 562  
563 563              let $l = supportedAssetsList
564 564              let $s = size($l)
565 565              let $acc0 = ""
566 566              func $f0_1 ($a,$i) =             if (($i >= $s))
567 567                  then $a
568 568                  else forEachAssetCalcUnclaimedReward($a, $l[$i])
569 569  
570 570              func $f0_2 ($a,$i) =             if (($i >= $s))
571 571                  then $a
572 572                  else throw("List size exceeds 10")
573 573  
574 574              $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)
575 575              }
576 576      $Tuple2(nil, dropRight(unclaimedRewardStr, 1))
577 577      }
578 578  
579 579  
580 580  
581 581  @Callable(i)
582 582  func surfStakingSYSREADONLY (userAddressStrOrEmpty) = {
583 583      let surfTotal = getIntOrElse(keyLockParamTotalAmount(), 0)
584 584      let gnsbtFromSurfTotal = surfToGnsbt(surfTotal)
585 585      if ((userAddressStrOrEmpty == ""))
586 586          then $Tuple2(nil, [0, surfTotal, 0, gnsbtFromSurfTotal, 0])
587 587          else {
588 588              let userAddress = toAddressOrFail(userAddressStrOrEmpty)
589 589              let $t02095421055 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
590 590              let isNewUser = $t02095421055._1
591 591              let surfUser = $t02095421055._2
592 592              let stakingStart = $t02095421055._3
593 593              let gnsbtFromSurfUser = surfToGnsbt(surfUser)
594 594              $Tuple2(nil, [surfUser, surfTotal, gnsbtFromSurfUser, gnsbtFromSurfTotal, stakingStart])
595 595              }
596 596      }
597 597  
598 598

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 IdxControlCfgNeutrinoDapp = 1
23	23
24	24	let IdxControlCfgAuctionDapp = 2
25	25
26	26	let IdxControlCfgRpdDapp = 3
27	27
28	28	let IdxControlCfgMathDapp = 4
29	29
30	30	let IdxControlCfgLiquidationDapp = 5
31	31
32	32	let IdxControlCfgRestDapp = 6
33	33
34	34	let IdxControlCfgNodeRegistryDapp = 7
35	35
36	36	let IdxControlCfgNsbtStakingDapp = 8
37	37
38	38	let IdxControlCfgMediatorDapp = 9
39	39
40	40	let IdxControlCfgSurfStakingDapp = 10
41	41
42	42	let IdxControlCfgGnsbtControllerDapp = 11
43	43
44	44	func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
45	45
46	46
47	47	func keyControlAddress () = "%s%s__config__controlAddress"
48	48
49	49
50	50	func keyControlCfg () = "%s__controlConfig"
51	51
52	52
53	53	func readControlCfgOrFail (control) = split(getStringOrFail(control, keyControlCfg()), SEP)
54	54
55	55
56	56	func getContractAddressOrFail (controlCfg,idx) = valueOrErrorMessage(addressFromString(controlCfg[idx]), ("Control cfg doesn't contain address at index " + toString(idx)))
57	57
58	58
59	59	let controlContract = addressFromStringValue(valueOrElse(getString(this, keyControlAddress()), "3N4NS7d4Jo9a6F14LiFUKKYVdUkkf2eP4Zx"))
60	60
61	61	let controlCfg = readControlCfgOrFail(controlContract)
62	62
63	63	let mathContract = getContractAddressOrFail(controlCfg, IdxControlCfgMathDapp)
64	64
65	65	let neutrinoContract = getContractAddressOrFail(controlCfg, IdxControlCfgNeutrinoDapp)
66	66
67	67	let auctionContract = getContractAddressOrFail(controlCfg, IdxControlCfgAuctionDapp)
68	68
69	69	func keyBondAsset () = "bond_asset_id"
70	70
71	71
72	72	func keyAuctionContractAddress () = "auction_contract"
73	73
74	74
75	75	func keyMinLockAmount () = "%s__minLockAmount"
76	76
77	77
78	78	func keyStakedAssetId () = "%s__stakedAssetId"
79	79
80	80
81	81	func keyLockParamUserAmount (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "amount"], separator)
82	82
83	83
84	84	func keyLockParamStartBlock (userAddress) = makeString(["%s%s%s", "paramByUser", toString(userAddress), "start"], separator)
85	85
86	86
87	87	func keyHistoryRecord (type,userAddress,txId) = makeString(["%s%s%s%s", "history", type, toString(userAddress), toBase58String(txId)], separator)
88	88
89	89
90	90	func keyLockParamTotalAmount () = makeString(["%s%s", "stats", "activeTotalLocked"], separator)
91	91
92	92
93	93	func keyStatsLocksCount () = makeString(["%s%s", "stats", "locksCount"], separator)
94	94
95	95
96	96	func keyStatsUsersCount () = makeString(["%s%s", "stats", "activeUsersCount"], separator)
97	97
98	98
99	99	func keyNextPeriod () = "%s__nextPeriod"
100	100
101	101
102	102	func keySupportedRewardAssets () = "supportedRewardAssets"
103	103
104	104
105	105	func keyDepositNumLast () = makeString(["%s%s%s", "dep", "lastNum"], separator)
106	106
107	107
108	108	func keyUserRewardFromDepositNum (userAddress) = makeString(["%s%s%s", "userRwdFromDepNum", userAddress], separator)
109	109
110	110
111	111	func keyRewardPerNsbtSumAt (depositNum,tkn) = makeString(["%s%d", "rwdPerNsbtSumByDepNum", toString(depositNum), tkn], separator)
112	112
113	113
114	114	func keyReward (userAddress,tkn) = makeString(["%s%s%s", "rwd", userAddress, tkn], separator)
115	115
116	116
117	117	func keyClaimed (userAddress,tkn) = makeString(["%s%s%s", "clm", userAddress, tkn], separator)
118	118
119	119
120	120	func keyNotDistributedReward (tkn) = makeString(["%s%s", "notDistributed", tkn], separator)
121	121
122	122
123	123	func toX18 (origVal,origMult) = fraction(toBigInt(origVal), MULTX18, origMult)
124	124
125	125
126	126	func getIntOrZero (key) = valueOrElse(getInteger(this, key), 0)
127	127
128	128
129	129	func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal)
130	130
131	131
132	132	func getIntOrFail (key) = valueOrErrorMessage(getInteger(this, key), (("Mandatory this." + key) + " is not defined"))
133	133
134	134
135	135	func getStrOrElse (key,defaultVal) = valueOrElse(getString(this, key), defaultVal)
136	136
137	137
138	138	func toAddressOrFail (addressStr) = valueOrErrorMessage(addressFromString(addressStr), ("couldn't parse passed addressStr=" + addressStr))
139	139
140	140
141	141	func toAssetVect (assetStr) = if ((assetStr == WAVESIDSTR))
142	142	then unit
143	143	else fromBase58String(assetStr)
144	144
145	145
146	146	func asInt (val) = match val {
147	147	case valInt: Int =>
148	148	valInt
149	149	case _ =>
150	150	throw("fail to cast into Int")
151	151	}
152	152
153	153
154	154	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)
155	155
156	156
157	157	func formatClaimHistoryRecord (user,claimedRewards) = makeString(["%s%d%d%s", user, toString(lastBlock.height), toString(lastBlock.timestamp), claimedRewards], separator)
158	158
159	159
160	160	func HistoryRecordEntry (type,userAddress,txId,oldAmount,oldStart,newAmount,newStart) = StringEntry(keyHistoryRecord(type, userAddress, txId), formatHistoryRecord(oldAmount, oldStart, newAmount, newStart))
161	161
162	162
163	163	func ClaimHistoryEntry (userAddress,txId,claimedRewards) = StringEntry(keyHistoryRecord("claim", userAddress, txId), formatClaimHistoryRecord(toString(userAddress), claimedRewards))
164	164
165	165
166	166	func StatsResult (totalLockedInc,lockCountInc,usersCountInc) = {
167	167	let locksCount = getIntOrZero(keyStatsLocksCount())
168	168	let usersCount = getIntOrZero(keyStatsUsersCount())
169	169	let totalAmount = getIntOrZero(keyLockParamTotalAmount())
170	170	let totalAmountNew = (totalAmount + totalLockedInc)
171	171	$Tuple3([IntegerEntry(keyStatsLocksCount(), (locksCount + lockCountInc)), IntegerEntry(keyStatsUsersCount(), (usersCount + usersCountInc)), IntegerEntry(keyLockParamTotalAmount(), totalAmountNew)], totalAmount, totalAmountNew)
172	172	}
173	173
174	174
175	175	func LockParamsEntry (userAddress,amount,start) = [IntegerEntry(keyLockParamUserAmount(userAddress), amount), IntegerEntry(keyLockParamStartBlock(userAddress), start)]
176	176
177	177
178	178	func getParamsOrFail () = $Tuple2(fromBase58String(getStringOrFail(this, keyStakedAssetId())), getIntOrFail(keyMinLockAmount()))
179	179
180	180
181	181	func isActiveUser (userAddress) = (getIntOrElse(keyLockParamUserAmount(userAddress), 0) > 0)
182	182
183	183
184	184	func getUserParamsOrUnit (userAddress) = if (isActiveUser(userAddress))
185	185	then $Tuple3(false, getIntOrFail(keyLockParamUserAmount(userAddress)), getIntOrFail(keyLockParamStartBlock(userAddress)))
186	186	else unit
187	187
188	188
189	189	func getUserParamsOrFail (userAddress) = valueOrErrorMessage(getUserParamsOrUnit(userAddress), (("User " + toString(userAddress)) + " is not defined"))
190	190
191	191
192	192	let supportedAssetsStr = getStrOrElse(keySupportedRewardAssets(), "")
193	193
194	194	let supportedAssetsList = split(supportedAssetsStr, "_")
195	195
196	196	func calcReward (userAddress,assetId,stakedAmountX,depositNumUser,depositNumLast) = {
197	197	let rewardPerNsbtSumLastKEY = keyRewardPerNsbtSumAt(depositNumLast, assetId)
198	198	let sumLastX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, assetId), "0"))
199	199	let sumUserX18 = parseBigIntValue(getStrOrElse(keyRewardPerNsbtSumAt(depositNumUser, assetId), "0"))
200	200	let rewardDynamicPart = toInt(fraction((sumLastX18 - sumUserX18), stakedAmountX, MULTX18))
201	201	let rewardCachedPartKEY = keyReward(userAddress, assetId)
202	202	let rewardCachedPart = getIntOrElse(rewardCachedPartKEY, 0)
203	203	$Tuple4((rewardCachedPart + rewardDynamicPart), rewardCachedPart, rewardDynamicPart, rewardCachedPartKEY)
204	204	}
205	205
206	206
207	207	func RewardEntries (isNewUser,userAddress,stakedAmount) = {
208	208	let stakedAmountX = toBigInt(stakedAmount)
209	209	let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddress)
210	210	let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
211	211	let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
212	212	func forEachAssetCacheUserReward (accum,asset) = {
213	213	let $t084368571 = calcReward(userAddress, asset, stakedAmountX, depositNumUser, depositNumLast)
214	214	let rewardTotal = $t084368571._1
215	215	let cached = $t084368571._2
216	216	let dynamic = $t084368571._3
217	217	let rewardCachedPartKEY = $t084368571._4
218	218	(accum :+ IntegerEntry(rewardCachedPartKEY, rewardTotal))
219	219	}
220	220
221	221	if (if ((depositNumLast == -1))
222	222	then (depositNumUser == -1)
223	223	else false)
224	224	then nil
225	225	else if (if ((depositNumLast == -1))
226	226	then (depositNumUser > -1)
227	227	else false)
228	228	then throw("invalid depositNumLast and depositNumUser state")
229	229	else if (if ((depositNumLast > -1))
230	230	then (depositNumUser == -1)
231	231	else false)
232	232	then if (isNewUser)
233	233	then [IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)]
234	234	else ({
235	235	let $l = supportedAssetsList
236	236	let $s = size($l)
237	237	let $acc0 = nil
238	238	func $f0_1 ($a,$i) = if (($i >= $s))
239	239	then $a
240	240	else forEachAssetCacheUserReward($a, $l[$i])
241	241
242	242	func $f0_2 ($a,$i) = if (($i >= $s))
243	243	then $a
244	244	else throw("List size exceeds 10")
245	245
246	246	$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)
247	247	} :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast))
248	248	else if (if ((depositNumLast > -1))
249	249	then (depositNumUser > -1)
250	250	else false)
251	251	then if (isNewUser)
252	252	then [IntegerEntry(userRewardFromDepositNumKEY, depositNumLast)]
253	253	else ({
254	254	let $l = supportedAssetsList
255	255	let $s = size($l)
256	256	let $acc0 = nil
257	257	func $f0_1 ($a,$i) = if (($i >= $s))
258	258	then $a
259	259	else forEachAssetCacheUserReward($a, $l[$i])
260	260
261	261	func $f0_2 ($a,$i) = if (($i >= $s))
262	262	then $a
263	263	else throw("List size exceeds 10")
264	264
265	265	$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)
266	266	} :+ IntegerEntry(userRewardFromDepositNumKEY, depositNumLast))
267	267	else throw(((("uncovered condition: depositNumLast=" + toString(depositNumLast)) + " depositNumUser=") + toString(depositNumUser)))
268	268	}
269	269
270	270
271	271	func IncrementNotDistributedRewardEntry (tkn,amountInc) = {
272	272	let notDistributedRewardKEY = keyNotDistributedReward(tkn)
273	273	let notDistributedReward = getIntOrElse(notDistributedRewardKEY, 0)
274	274	[IntegerEntry(notDistributedRewardKEY, (notDistributedReward + amountInc))]
275	275	}
276	276
277	277
278	278	func surfToGnsbt (surfAmt) = (surfAmt / 60)
279	279
280	280
281	281	let ContolContractKey = "control_contract"
282	282
283	283	@Callable(i)
284	284	func constructor (minLockAmount,supportedRewardAssets,stakedAssetId) = if ((i.caller != this))
285	285	then throw("Permission denied")
286	286	else [IntegerEntry(keyMinLockAmount(), minLockAmount), StringEntry(keySupportedRewardAssets(), supportedRewardAssets), StringEntry(keyStakedAssetId(), stakedAssetId)]
287	287
288	288
289	289
290	290	@Callable(i)
291	291	func stake () = {
292	292	let $t01212012174 = getParamsOrFail()
293	293	let stakedAssetId = $t01212012174._1
294	294	let minLockAmount = $t01212012174._2
295	295	if ((size(i.payments) != 1))
296	296	then throw("Invalid payments size")
297	297	else {
298	298	let payment = i.payments[0]
299	299	let amount = payment.amount
300	300	let invalidAssetMessage = (("Invalid asset. " + toBase58String(stakedAssetId)) + " is expected")
301	301	let assetId = valueOrErrorMessage(payment.assetId, invalidAssetMessage)
302	302	if ((assetId != stakedAssetId))
303	303	then throw(invalidAssetMessage)
304	304	else {
305	305	let userAddress = i.caller
306	306	let userAddressStr = toString(userAddress)
307	307	let gnsbtAmtUser = 0
308	308	let gnsbtAmtTotal = 0
309	309	let $t01267212781 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, -1))
310	310	let isNewUser = $t01267212781._1
311	311	let stakedAmount = $t01267212781._2
312	312	let lockStartHeight = $t01267212781._3
313	313	let stakedAmountNew = if (isNewUser)
314	314	then amount
315	315	else (amount + stakedAmount)
316	316	let mergedStartHeight = if (isNewUser)
317	317	then height
318	318	else (height + (1440 * 14))
319	319	if ((minLockAmount > stakedAmountNew))
320	320	then throw(("Min lock amount is " + toString(minLockAmount)))
321	321	else {
322	322	let $t01308413186 = StatsResult(amount, 1, if (isNewUser)
323	323	then 1
324	324	else 0)
325	325	let statsEntries = $t01308413186._1
326	326	let totalStaked = $t01308413186._2
327	327	let totalStakedNew = $t01308413186._3
328	328	((([HistoryRecordEntry("stake", userAddress, i.transactionId, stakedAmount, lockStartHeight, stakedAmountNew, mergedStartHeight)] ++ RewardEntries(isNewUser, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNew, mergedStartHeight)) ++ statsEntries)
329	329	}
330	330	}
331	331	}
332	332	}
333	333
334	334
335	335
336	336	@Callable(i)
337	337	func stakeByOriginCaller () = {
338	338	let $t01352213576 = getParamsOrFail()
339	339	let stakedAssetId = $t01352213576._1
340	340	let minLockAmount = $t01352213576._2
341	341	if ((size(i.payments) != 1))
342	342	then throw("Invalid payments size")
343	343	else {
344	344	let payment = i.payments[0]
345	345	let amount = payment.amount
346	346	let invalidAssetMessage = (("Invalid asset. " + toBase58String(stakedAssetId)) + " is expected")
347	347	let assetId = valueOrErrorMessage(payment.assetId, invalidAssetMessage)
348	348	if ((assetId != stakedAssetId))
349	349	then throw(invalidAssetMessage)
350	350	else {
351	351	let userAddress = i.originCaller
352	352	let userAddressStr = toString(userAddress)
353	353	let gnsbtAmtUser = 0
354	354	let gnsbtAmtTotal = 0
355	355	let $t01408014189 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, -1))
356	356	let isNewUser = $t01408014189._1
357	357	let stakedAmount = $t01408014189._2
358	358	let lockStartHeight = $t01408014189._3
359	359	let stakedAmountNew = if (isNewUser)
360	360	then amount
361	361	else (amount + stakedAmount)
362	362	let mergedStartHeight = if (isNewUser)
363	363	then height
364	364	else (height + (1440 * 14))
365	365	if ((minLockAmount > stakedAmountNew))
366	366	then throw(("Min lock amount is " + toString(minLockAmount)))
367	367	else {
368	368	let $t01449214594 = StatsResult(amount, 1, if (isNewUser)
369	369	then 1
370	370	else 0)
371	371	let statsEntries = $t01449214594._1
372	372	let totalStaked = $t01449214594._2
373	373	let totalStakedNew = $t01449214594._3
374	374	((([HistoryRecordEntry("stake", userAddress, i.transactionId, stakedAmount, lockStartHeight, stakedAmountNew, mergedStartHeight)] ++ RewardEntries(isNewUser, userAddressStr, stakedAmount)) ++ LockParamsEntry(userAddress, stakedAmountNew, mergedStartHeight)) ++ statsEntries)
375	375	}
376	376	}
377	377	}
378	378	}
379	379
380	380
381	381
382	382	@Callable(i)
383	383	func unstake (amount) = if ((size(i.payments) != 0))
384	384	then throw("unstake doesn't require any payment")
385	385	else {
386	386	let userAddress = i.caller
387	387	let userAddressStr = toString(userAddress)
388	388	let $t01509015144 = getParamsOrFail()
389	389	let stakedAssetId = $t01509015144._1
390	390	let minLockAmount = $t01509015144._2
391	391	let $t01514715221 = getUserParamsOrFail(userAddress)
392	392	let isNewUser = $t01514715221._1
393	393	let lockAmount = $t01514715221._2
394	394	let lockStart = $t01514715221._3
395	395	if ((0 >= lockAmount))
396	396	then throw("Nothing to unstake")
397	397	else if ((amount > lockAmount))
398	398	then throw(((("Requested " + toString(amount)) + ", but staked only ") + toString(lockAmount)))
399	399	else {
400	400	let $t01541115565 = StatsResult(-(amount), if ((amount == lockAmount))
401	401	then -1
402	402	else 0, if ((amount == lockAmount))
403	403	then -1
404	404	else 0)
405	405	let statsEntries = $t01541115565._1
406	406	let totalStaked = $t01541115565._2
407	407	let totalStakedNew = $t01541115565._3
408	408	((([ScriptTransfer(userAddress, amount, stakedAssetId), HistoryRecordEntry("unstake", userAddress, i.transactionId, lockAmount, lockStart, (lockAmount - amount), lockStart)] ++ RewardEntries(false, userAddressStr, lockAmount)) ++ LockParamsEntry(userAddress, (lockAmount - amount), lockStart)) ++ statsEntries)
409	409	}
410	410	}
411	411
412	412
413	413
414	414	@Callable(i)
415	415	func deposit () = if ((size(i.payments) != 1))
416	416	then throw("exact 1 payment is allowed only")
417	417	else {
418	418	let pmt = i.payments[0]
419	419	let amount = pmt.amount
420	420	let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
421	421	let pmtAssetIdStr = toBase58String(pmtAssetId)
422	422	let pmtMultX = if ((pmtAssetId == WAVESID))
423	423	then MULTX8
424	424	else MULTX6
425	425	let amountX = toBigInt(amount)
426	426	let totalStaked = getIntOrElse(keyLockParamTotalAmount(), 0)
427	427	let totalStakedX = toBigInt(totalStaked)
428	428	if ((0 > totalStaked))
429	429	then throw("TODO: case is not supported")
430	430	else if ((totalStaked == 0))
431	431	then IncrementNotDistributedRewardEntry(pmtAssetIdStr, amount)
432	432	else {
433	433	let rewardPerNsbtX18 = fraction(amountX, MULTX18, totalStakedX)
434	434	let depositNumLastKEY = keyDepositNumLast()
435	435	let depositNumLast = getIntOrElse(depositNumLastKEY, -1)
436	436	let depositNumNew = (depositNumLast + 1)
437	437	if (!(contains(supportedAssetsStr, pmtAssetIdStr)))
438	438	then throw(((supportedAssetsStr + " doesn't contain ") + pmtAssetIdStr))
439	439	else {
440	440	func refreshRewardPerNsbtSUM (accum,nextAsset) = {
441	441	let rewardPerNsbtSumNewKEY = keyRewardPerNsbtSumAt(depositNumNew, nextAsset)
442	442	let sumLastStr = getStrOrElse(keyRewardPerNsbtSumAt(depositNumLast, nextAsset), "0")
443	443	(accum :+ (if ((nextAsset == pmtAssetIdStr))
444	444	then StringEntry(rewardPerNsbtSumNewKEY, toString((parseBigIntValue(sumLastStr) + rewardPerNsbtX18)))
445	445	else StringEntry(rewardPerNsbtSumNewKEY, sumLastStr)))
446	446	}
447	447
448	448	({
449	449	let $l = supportedAssetsList
450	450	let $s = size($l)
451	451	let $acc0 = nil
452	452	func $f0_1 ($a,$i) = if (($i >= $s))
453	453	then $a
454	454	else refreshRewardPerNsbtSUM($a, $l[$i])
455	455
456	456	func $f0_2 ($a,$i) = if (($i >= $s))
457	457	then $a
458	458	else throw("List size exceeds 10")
459	459
460	460	$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)
461	461	} :+ IntegerEntry(depositNumLastKEY, depositNumNew))
462	462	}
463	463	}
464	464	}
465	465
466	466
467	467
468	468	@Callable(i)
469	469	func claimRewards () = {
470	470	let userAddress = i.caller
471	471	let userAddressStr = toString(userAddress)
472	472	if ((size(i.payments) > 0))
473	473	then throw("payments are not accepted")
474	474	else {
475	475	let $t01772917834 = valueOrElse(getUserParamsOrUnit(userAddress), $Tuple3(true, 0, 0))
476	476	let isNewUser = $t01772917834._1
477	477	let stakedAmount = $t01772917834._2
478	478	let stakingStart = $t01772917834._3
479	479	let stakedAmountX = toBigInt(stakedAmount)
480	480	let userRewardFromDepositNumKEY = keyUserRewardFromDepositNum(userAddressStr)
481	481	let depositNumUser = getIntOrElse(userRewardFromDepositNumKEY, -1)
482	482	let depositNumLast = getIntOrElse(keyDepositNumLast(), -1)
483	483	func forEachAssetCalcUnclaimedReward (accum,asset) = {
484	484	let $t01820518343 = calcReward(userAddressStr, asset, stakedAmountX, depositNumUser, depositNumLast)
485	485	let rewardTotal = $t01820518343._1
486	486	let cached = $t01820518343._2
487	487	let dynamic = $t01820518343._3
488	488	let rewardCachedPartKEY = $t01820518343._4
489	489	let claimedKEY = keyClaimed(userAddressStr, asset)
490	490	let $t01840318440 = accum
491	491	let data = $t01840318440._1
492	492	let claimedAmtByAsset = $t01840318440._2
493	493	let newPart = makeString([asset, toString(rewardTotal)], ":")
494	494	let claimedAmtByAssetNew = makeString([claimedAmtByAsset, newPart], "_")
495	495	if ((0 >= rewardTotal))
496	496	then $Tuple2(data, claimedAmtByAssetNew)
497	497	else $Tuple2((((data :+ ScriptTransfer(userAddress, rewardTotal, toAssetVect(asset))) :+ IntegerEntry(claimedKEY, (valueOrElse(getInteger(claimedKEY), 0) + rewardTotal))) :+ IntegerEntry(rewardCachedPartKEY, 0)), claimedAmtByAssetNew)
498	498	}
499	499
500	500	let $t01890019014 = {

github/deemru/w8io/169f3d6 
77.97 ms ◑