w8 · tx · GEi···tnA

tx · GEimRHwKJoyZKiLey5tfCVDAAY4FPbAPPUxrTsbRktnA

3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP:  -0.03300000 Waves

2023.08.16 11:34 [2712900] smart account 3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GEimRHwKJoyZKiLey5tfCVDAAY4FPbAPPUxrTsbRktnA",
    "fee": 3300000,
    "feeAssetId": null,
    "timestamp": 1692174938035,
    "version": 2,
    "chainId": 84,
    "sender": "3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP",
    "senderPublicKey": "AoKo4segKHU4DeJnxXQYJj2u7J6XJeux6r8KLW52cd2Q",
    "proofs": [
        "5Dtv2xmA5MUCrrV9fowm5HW8wqJMyDG8dteUF5MVLNBX66PBRuZPyESkTGgE7ay3vAGcqg34HNs5GFq7HKcU5CZ5"
    ],
    "script": "base64:BwJDCAISAwoBAhIGCgQCAQEBEgUKAwEBARIDCgECEgMKAQISBAoCAgISBAoCAggSBAoCAhgSBAoCAggSBAoCAhgSAwoBAjYAA1NFUAICX18ADUNPTlRSQUNUX05BTUUCD2NhbGN1bGF0b3IucmlkZQAGU0NBTEU4AIDC1y8AB1BFTkRJTkcCB1BFTkRJTkcABVdBVkVTAgVXQVZFUwEHd3JhcEVycgEBcwkArAICCQCsAgIFDUNPTlRSQUNUX05BTUUCAjogBQFzAQh0aHJvd0VycgEBcwkAAgEJAQd3cmFwRXJyAQUBcwEPYXNzZXRJZFRvU3RyaW5nAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgMJAAECBQckbWF0Y2gwAgRVbml0BQVXQVZFUwkAAgECC01hdGNoIGVycm9yAQ9zdHJpbmdUb0Fzc2V0SWQBAXMDCQAAAgUBcwUFV0FWRVMFBHVuaXQJANkEAQUBcwEDYWJzAQFuAwkAZgIAAAUBbgkBAS0BBQFuBQFuARFrZXlGYWN0b3J5QWRkcmVzcwAJALkJAgkAzAgCAgIlcwkAzAgCAgdmYWN0b3J5BQNuaWwFA1NFUAETa2V5TWFuYWdlclB1YmxpY0tleQAJALkJAgkAzAgCAgIlcwkAzAgCAhBtYW5hZ2VyUHVibGljS2V5BQNuaWwFA1NFUAEMa2V5THBBc3NldElkAAkAuQkCCQDMCAICAiVzCQDMCAICCWxwQXNzZXRJZAUDbmlsBQNTRVABF2tleVByb3h5VHJlYXN1cnlBZGRyZXNzAAkAuQkCCQDMCAICAiVzCQDMCAICDXByb3h5VHJlYXN1cnkFA25pbAUDU0VQARZrZXlNYWluVHJlYXN1cnlBZGRyZXNzAAkAuQkCCQDMCAICAiVzCQDMCAICDG1haW5UcmVhc3VyeQUDbmlsBQNTRVABGmtleUJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzAAkAuQkCCQDMCAICAiVzCQDMCAICEGJ1c2luZXNzVHJlYXN1cnkFA25pbAUDU0VQARdrZXlCdXNpbmVzc1RyZWFzdXJ5UGFydAAJALkJAgkAzAgCAgIlcwkAzAgCAhRidXNpbmVzc1RyZWFzdXJ5UGFydAUDbmlsBQNTRVABC2tleUludmVzdGVkAQdhc3NldElkCQC5CQIJAMwIAgIEJXMlcwkAzAgCAghpbnZlc3RlZAkAzAgCCQEPYXNzZXRJZFRvU3RyaW5nAQUHYXNzZXRJZAUDbmlsBQNTRVABCmtleURvbmF0ZWQBB2Fzc2V0SWQJALkJAgkAzAgCAgQlcyVzCQDMCAICB2RvbmF0ZWQJAMwIAgkBD2Fzc2V0SWRUb1N0cmluZwEFB2Fzc2V0SWQFA25pbAUDU0VQAQxrZXlBdmFpbGFibGUBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAglhdmFpbGFibGUJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwUDbmlsBQNTRVABCmtleUNsYWltZWQBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgdjbGFpbWVkCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDU0VQARBrZXlDdXJyZW50UGVyaW9kAAkAuQkCCQDMCAICAiVzCQDMCAICDWN1cnJlbnRQZXJpb2QFA25pbAUDU0VQARFrZXlQcmljZUZvclBlcmlvZAEGcGVyaW9kCQC5CQIJAMwIAgIEJXMlZAkAzAgCAgVwcmljZQkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABDmtleVN0YXJ0SGVpZ2h0AQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICC3N0YXJ0SGVpZ2h0CQDMCAIJAKQDAQUGcGVyaW9kBQNuaWwFA1NFUAEUa2V5UG93ZXJNYW5hZ2VyQm9udXMBBnBlcmlvZAkAuQkCCQDMCAICBCVzJWQJAMwIAgIRcG93ZXJNYW5hZ2VyQm9udXMJAMwIAgkApAMBBQZwZXJpb2QFA25pbAUDU0VQAQ9rZXlQZXJpb2RMZW5ndGgAAhAlc19fcGVyaW9kTGVuZ3RoARVrZXlJbnZlc3RQZXJpb2RMZW5ndGgAAhYlc19faW52ZXN0UGVyaW9kTGVuZ3RoARhrZXlCbG9ja1Byb2Nlc3NpbmdSZXdhcmQAAhklc19fYmxvY2tQcm9jZXNzaW5nUmV3YXJkARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MAAhYlc19fbmV4dEJsb2NrVG9Qcm9jZXNzARFrZXlCbG9ja1Byb2Nlc3NlZAEGaGVpZ2h0CQC5CQIJAMwIAgIEJXMlZAkAzAgCAg5ibG9ja1Byb2Nlc3NlZAkAzAgCCQCkAwEFBmhlaWdodAUDbmlsBQNTRVABDWtleVdpdGhkcmF3YWwAAg4lc19fd2l0aGRyYXdhbAEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCC3VzZXJBZGRyZXNzBHR4SWQJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIKd2l0aGRyYXdhbAkAzAgCCQClCAEFC3VzZXJBZGRyZXNzCQDMCAIJANgEAQUEdHhJZAUDbmlsBQNTRVABFnZhbHVlV2l0aGRyYXdhbFJlcXVlc3QEBnN0YXR1cw1scEFzc2V0QW1vdW50DHRhcmdldFBlcmlvZAljbGFpbVR4SWQEDGNsYWltVHhJZFN0cgQHJG1hdGNoMAUJY2xhaW1UeElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgMJAAECBQckbWF0Y2gwAgRVbml0AgRTT09OCQACAQILTWF0Y2ggZXJyb3IJALkJAgkAzAgCAgglcyVkJWQlcwkAzAgCBQZzdGF0dXMJAMwIAgkApAMBBQ1scEFzc2V0QW1vdW50CQDMCAIJAKQDAQUMdGFyZ2V0UGVyaW9kCQDMCAIFDGNsYWltVHhJZFN0cgUDbmlsBQNTRVABFGtleVdpdGhkcmF3YWxIaXN0b3J5Agt1c2VyQWRkcmVzcwR0eElkCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICEXdpdGhkcmF3YWxIaXN0b3J5CQDMCAIJAKUIAQULdXNlckFkZHJlc3MJAMwIAgkA2AQBBQR0eElkBQNuaWwFA1NFUAEba2V5UGVyaW9kV2l0aGRyYXdhbEFzc2V0SWRzAQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICDHBlcmlvZFJld2FyZAkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABGmtleVBlcmlvZFdpdGhkcmF3YWxBbW91bnRzAQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICEnBlcmlvZFJld2FyZEFtb3VudAkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABIXBhcnNlV2l0aGRyYXdhbFJlcXVlc3RWYWx1ZU9yRmFpbAEBcwQFcGFydHMJALUJAgUBcwUDU0VQAwkAAAIJAJADAQUFcGFydHMABQQGc3RhdHVzCQCRAwIFBXBhcnRzAAEEDWxwQXNzZXRBbW91bnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFBXBhcnRzAAIJAQd3cmFwRXJyAQIVaW52YWxpZCBscEFzc2V0QW1vdW50BAx0YXJnZXRQZXJpb2QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFBXBhcnRzAAMJAQd3cmFwRXJyAQIUaW52YWxpZCB0YXJnZXRQZXJpb2QECWNsYWltVHhJZAkAkQMCBQVwYXJ0cwAECQCWCgQFBnN0YXR1cwUNbHBBc3NldEFtb3VudAUMdGFyZ2V0UGVyaW9kBQljbGFpbVR4SWQJAQh0aHJvd0VycgECIGludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHZhbHVlABRmYWN0b3J5QWRkcmVzc09wdGlvbgQHJG1hdGNoMAkAnQgCBQR0aGlzCQERa2V5RmFjdG9yeUFkZHJlc3MAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkApggBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAUZmFjdG9yeUFkZHJlc3NPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUUZmFjdG9yeUFkZHJlc3NPcHRpb24JAQd3cmFwRXJyAQIXaW52YWxpZCBmYWN0b3J5IGFkZHJlc3MAD2xwQXNzZXRJZE9wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQEMa2V5THBBc3NldElkAAMJAAECBQckbWF0Y2gxAgZTdHJpbmcEAXMFByRtYXRjaDEJANkEAQUBcwMJAAECBQckbWF0Y2gxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAA9scEFzc2V0SWRPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUPbHBBc3NldElkT3B0aW9uCQEHd3JhcEVycgECEWludmFsaWQgbHBBc3NldElkABpwcm94eVRyZWFzdXJ5QWRkcmVzc09wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQEXa2V5UHJveHlUcmVhc3VyeUFkZHJlc3MAAwkAAQIFByRtYXRjaDECBlN0cmluZwQBcwUHJG1hdGNoMQkApggBBQFzAwkAAQIFByRtYXRjaDECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAGnByb3h5VHJlYXN1cnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFGnByb3h5VHJlYXN1cnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECHmludmFsaWQgcHJveHkgdHJlYXN1cnkgYWRkcmVzcwAZbWFpblRyZWFzdXJ5QWRkcmVzc09wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQEWa2V5TWFpblRyZWFzdXJ5QWRkcmVzcwADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQCmCAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAdYnVzaW5lc3NUcmVhc3VyeUFkZHJlc3NPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBGmtleUJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzAAMJAAECBQckbWF0Y2gxAgZTdHJpbmcEAXMFByRtYXRjaDEJAKYIAQUBcwMJAAECBQckbWF0Y2gxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yABltYWluVHJlYXN1cnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFGW1haW5UcmVhc3VyeUFkZHJlc3NPcHRpb24JAQd3cmFwRXJyAQIdaW52YWxpZCBtYWluIHRyZWFzdXJ5IGFkZHJlc3MAHWJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFHWJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECIWludmFsaWQgYnVzaW5lc3MgdHJlYXN1cnkgYWRkcmVzcwEZZ2V0TWFuYWdlclB1YmxpY0tleU9yVW5pdAAEByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAmZhBQckbWF0Y2gwBAckbWF0Y2gxCQCdCAIFAmZhCQETa2V5TWFuYWdlclB1YmxpY0tleQADCQABAgUHJG1hdGNoMQIGU3RyaW5nBANwdWIFByRtYXRjaDEJANkEAQUDcHViBQR1bml0BQR1bml0AQtvbmx5QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAQh0aHJvd0VycgECEXBlcm1pc3Npb24gZGVuaWVkAQtvbmx5RmFjdG9yeQEBaQkBC29ubHlBZGRyZXNzAgUBaQUUZmFjdG9yeUFkZHJlc3NPckZhaWwBD3Jld2FyZEZvck9wdGlvbgIHcmV3YXJkcwZ0YXJnZXQEAXMJAJADAQUHcmV3YXJkcwQLJHQwNTc4NTU4MTAJAJEDAgUHcmV3YXJkcwAABAJhMAgFCyR0MDU3ODU1ODEwAl8xBAJyMAgFCyR0MDU3ODU1ODEwAl8yBAskdDA1ODEzNTgzOAkAkQMCBQdyZXdhcmRzAAEEAmExCAULJHQwNTgxMzU4MzgCXzEEAnIxCAULJHQwNTgxMzU4MzgCXzIECyR0MDU4NDE1ODY2CQCRAwIFB3Jld2FyZHMAAgQCYTIIBQskdDA1ODQxNTg2NgJfMQQCcjIIBQskdDA1ODQxNTg2NgJfMgMDCQBmAgUBcwAACQAAAgUCYTAFBnRhcmdldAcFAnIwAwMJAGYCBQFzAAEJAAACBQJhMQUGdGFyZ2V0BwUCcjEDAwkAZgIFAXMAAgkAAAIFAmEyBQZ0YXJnZXQHBQJyMgUEdW5pdAEQZmluYWxpemVJTlRFUk5BTAMYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBBJkb25hdGVkV2F2ZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQprZXlEb25hdGVkAQUEdW5pdAAABBNpbnZlc3RlZFdhdmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQELa2V5SW52ZXN0ZWQBBQR1bml0AAAEHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMJAGQCBRJkb25hdGVkV2F2ZXNBbW91bnQFE2ludmVzdGVkV2F2ZXNBbW91bnQECXByb2ZpdFJhdwkAZQIFGG5ld1RyZWFzdXJ5Vm9sdW1lSW5XYXZlcwUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwQWcHdyTWFuYWdlcnNCb251c0Ftb3VudAMDCQBnAgUJcHJvZml0UmF3BRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwYJAAACBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwAABRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwkBCHRocm93RXJyAQIfcG93ZXIgYm9udXMgaXMgbW9yZSB0aGFuIHByb2ZpdAQGcHJvZml0CQBlAgUJcHJvZml0UmF3BRZwd3JNYW5hZ2Vyc0JvbnVzQW1vdW50BAxkb25hdGlvblBhcnQDCQBmAgUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwAACQBrAwUSZG9uYXRlZFdhdmVzQW1vdW50BQZTQ0FMRTgFHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAQVZG9uYXRpb25Qcm9maXRQYXJ0UmF3CQBrAwUGcHJvZml0BQxkb25hdGlvblBhcnQFBlNDQUxFOAQXaW52ZXN0bWVudFByb2ZpdFBhcnRSYXcJAGUCBQZwcm9maXQFFWRvbmF0aW9uUHJvZml0UGFydFJhdwQjdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWZBYnMJAQNhYnMBBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgQQYW1vdW50VG9Eb25hdGlvbgkAawMFF2ludmVzdG1lbnRQcm9maXRQYXJ0UmF3AwkAZgIAAAUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSYW1vdW50VG9JbnZlc3RtZW50CQBrAwUVZG9uYXRpb25Qcm9maXRQYXJ0UmF3AwkAZgIFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmAAAFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSZG9uYXRpb25Qcm9maXRQYXJ0CQBkAgkAZQIFFWRvbmF0aW9uUHJvZml0UGFydFJhdwUSYW1vdW50VG9JbnZlc3RtZW50BRBhbW91bnRUb0RvbmF0aW9uBBRpbnZlc3RtZW50UHJvZml0UGFydAkAZAIJAGUCBRdpbnZlc3RtZW50UHJvZml0UGFydFJhdwUQYW1vdW50VG9Eb25hdGlvbgUSYW1vdW50VG9JbnZlc3RtZW50BBhkb25hdGVkV2F2ZXNBbW91bnROZXdSYXcJAGQCBRJkb25hdGVkV2F2ZXNBbW91bnQFEmRvbmF0aW9uUHJvZml0UGFydAQZaW52ZXN0ZWRXYXZlc0Ftb3VudE5ld1JhdwkAZAIFE2ludmVzdGVkV2F2ZXNBbW91bnQFFGludmVzdG1lbnRQcm9maXRQYXJ0BA9kb25hdGVkUGFydERlYnQJAJcDAQkAzAgCAAAJAMwIAgUYZG9uYXRlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwEEGludmVzdGVkUGFydERlYnQJAJcDAQkAzAgCAAAJAMwIAgUZaW52ZXN0ZWRXYXZlc0Ftb3VudE5ld1JhdwUDbmlsBBVkb25hdGVkV2F2ZXNBbW91bnROZXcJAGQCCQCWAwEJAMwIAgAACQDMCAIFGGRvbmF0ZWRXYXZlc0Ftb3VudE5ld1JhdwUDbmlsBRBpbnZlc3RlZFBhcnREZWJ0BBZpbnZlc3RlZFdhdmVzQW1vdW50TmV3CQBkAgkAlgMBCQDMCAIAAAkAzAgCBRlpbnZlc3RlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwFD2RvbmF0ZWRQYXJ0RGVidAQPbHBBc3NldFF1YW50aXR5CAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFD2xwQXNzZXRJZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIGxwQXNzZXQgaW5mbwhxdWFudGl0eQQIbmV3UHJpY2UJAGsDBRZpbnZlc3RlZFdhdmVzQW1vdW50TmV3BQZTQ0FMRTgFD2xwQXNzZXRRdWFudGl0eQQTY2hlY2tJZlByaWNlTm90WmVybwMJAQIhPQIFCG5ld1ByaWNlAAAGCQEIdGhyb3dFcnIBAhRMUCBwcmljZSBjYW5ub3QgYmUgMAMJAAACBRNjaGVja0lmUHJpY2VOb3RaZXJvBRNjaGVja0lmUHJpY2VOb3RaZXJvBBNscEFzc2V0QW1vdW50VG9CdXJuCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAAAAQQcGF5bWVudEFtb3VudE1pbgkAlgMBCQDMCAIAAAkAzAgCCQBrAwUTbHBBc3NldEFtb3VudFRvQnVybgUIbmV3UHJpY2UFBlNDQUxFOAUDbmlsBBhmaW5hbEludmVzdGVkV2F2ZXNBbW91bnQJAGUCBRZpbnZlc3RlZFdhdmVzQW1vdW50TmV3BRBwYXltZW50QW1vdW50TWluBBRscEFzc2V0RmluYWxRdWFudGl0eQkAZQIFD2xwQXNzZXRRdWFudGl0eQUTbHBBc3NldEFtb3VudFRvQnVybgkAmAoGBRBwYXltZW50QW1vdW50TWluBRhmaW5hbEludmVzdGVkV2F2ZXNBbW91bnQFFWRvbmF0ZWRXYXZlc0Ftb3VudE5ldwUIbmV3UHJpY2UFE2xwQXNzZXRBbW91bnRUb0J1cm4FFGxwQXNzZXRGaW5hbFF1YW50aXR5CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuARdjbGFpbUNvbGxhdGVyYWxJTlRFUk5BTAIQdXNlckFkZHJlc3NCeXRlcwR0eElkBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MFBHR4SWQJAQd3cmFwRXJyAQIaaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QECyR0MDkyODE5Mzk0CQEhcGFyc2VXaXRoZHJhd2FsUmVxdWVzdFZhbHVlT3JGYWlsAQUXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24EBnN0YXR1cwgFCyR0MDkyODE5Mzk0Al8xBA1scEFzc2V0QW1vdW50CAULJHQwOTI4MTkzOTQCXzIEDHRhcmdldFBlcmlvZAgFCyR0MDkyODE5Mzk0Al8zBAljbGFpbVR4SWQIBQskdDA5MjgxOTM5NAJfNAMJAGYCBQx0YXJnZXRQZXJpb2QFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHBlcmlvZAQLcHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUMdGFyZ2V0UGVyaW9kCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEC3dhdmVzQW1vdW50AwkAZgIFC3ByaWNlT3JGYWlsAAAJAGsDBQ1scEFzc2V0QW1vdW50BQtwcmljZU9yRmFpbAUGU0NBTEU4AAAEDGFzc2V0c1N0cmluZwkBEUBleHRyTmF0aXZlKDEwNTMpAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARtrZXlQZXJpb2RXaXRoZHJhd2FsQXNzZXRJZHMBBRNjdXJyZW50UGVyaW9kT3JGYWlsBA1hbW91bnRzU3RyaW5nCQERQGV4dHJOYXRpdmUoMTA1MykCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBGmtleVBlcmlvZFdpdGhkcmF3YWxBbW91bnRzAQUTY3VycmVudFBlcmlvZE9yRmFpbAkAmAoGBQt1c2VyQWRkcmVzcwUNbHBBc3NldEFtb3VudAUMdGFyZ2V0UGVyaW9kBQt3YXZlc0Ftb3VudAUMYXNzZXRzU3RyaW5nBQ1hbW91bnRzU3RyaW5nASVjbGFpbUNvbGxhdGVyYWxSRUFET05MWVN0cmluZ1Jlc3BvbnNlAhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQEDSR0MDEwMTgxMTAzNDcJARdjbGFpbUNvbGxhdGVyYWxJTlRFUk5BTAIFEHVzZXJBZGRyZXNzQnl0ZXMFBHR4SWQEC3VzZXJBZGRyZXNzCAUNJHQwMTAxODExMDM0NwJfMQQNbHBBc3NldEFtb3VudAgFDSR0MDEwMTgxMTAzNDcCXzIEDHRhcmdldFBlcmlvZAgFDSR0MDEwMTgxMTAzNDcCXzMEC3dhdmVzQW1vdW50CAUNJHQwMTAxODExMDM0NwJfNAQMYXNzZXRzU3RyaW5nCAUNJHQwMTAxODExMDM0NwJfNQQNYW1vdW50c1N0cmluZwgFDSR0MDEwMTgxMTAzNDcCXzYEBmFzc2V0cwkAuQkCCQDRCAIJAL0JAgUMYXNzZXRzU3RyaW5nBQNTRVAAAAIBOgQHYW1vdW50cwkAuQkCCQDRCAIJAL0JAgUNYW1vdW50c1N0cmluZwUDU0VQAAACAToJALkJAgkAzAgCAgYlZCVzJXMJAMwIAgkApAMBBQt3YXZlc0Ftb3VudAkAzAgCBQZhc3NldHMJAMwIAgUHYW1vdW50cwUDbmlsBQNTRVALAWkBB2NsYWltTFABEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQJYXZhaWxhYmxlCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEMa2V5QXZhaWxhYmxlAQULdXNlckFkZHJlc3MAAAQHY2xhaW1lZAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBCmtleUNsYWltZWQBBQt1c2VyQWRkcmVzcwAABA5mYWN0b3J5QWN0aW9ucwMJAGYCBQlhdmFpbGFibGUAAAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlckFzc2V0CQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUJYXZhaWxhYmxlCQDMCAIFD2xwQXNzZXRJZE9yRmFpbAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQxrZXlBdmFpbGFibGUBBQt1c2VyQWRkcmVzcwkAzAgCAAAFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEKa2V5Q2xhaW1lZAEFC3VzZXJBZGRyZXNzCQDMCAIJAGQCBQdjbGFpbWVkBQlhdmFpbGFibGUFA25pbAUDbmlsBQNuaWwJAQh0aHJvd0VycgECEG5vdGhpbmcgdG8gY2xhaW0JAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhmaW5hbGl6ZQQQdXNlckFkZHJlc3NCeXRlcxhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMXcHdyTWFuYWdlcnNCb251c0luV2F2ZXMgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEPa2V5UGVyaW9kTGVuZ3RoAAkBB3dyYXBFcnIBAhVpbnZhbGlkIHBlcmlvZCBsZW5ndGgEEmN1cnJlbnRTdGFydEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEOa2V5U3RhcnRIZWlnaHQBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgc3RhcnQgaGVpZ2h0BBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBBJuZXh0QmxvY2tUb1Byb2Nlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAQd3cmFwRXJyAQIdaW52YWxpZCBuZXh0IGJsb2NrIHRvIHByb2Nlc3MED3BlcmlvZEVuZEhlaWdodAkAZQIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAABBAZjaGVja3MJAMwIAgMJAAACCAUBaQxvcmlnaW5DYWxsZXIFGW1haW5UcmVhc3VyeUFkZHJlc3NPckZhaWwGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAkAzAgCAwkAZgIFEm5leHRCbG9ja1RvUHJvY2VzcwUPcGVyaW9kRW5kSGVpZ2h0BgkBCHRocm93RXJyAQISdW5wcm9jZXNzZWQgYmxvY2tzCQDMCAIDCQBnAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAGCQEIdGhyb3dFcnIBAhtpbnZhbGlkIG5ldyB0cmVhc3VyeSB2b2x1bWUJAMwIAgMJAGcCBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwAABgkBCHRocm93RXJyAQIaaW52YWxpZCBQV1IgbWFuYWdlcnMgYm9udXMJAMwIAgMDCQBnAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAQEtAQUGU0NBTEU4CQBnAgUGU0NBTEU4BSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgcGCQEIdGhyb3dFcnIBAjNpbnZhbGlkIHRyZWFzdXJ5IHZvbHVtZSBkaWZmIGFsbG9jYXRpb24gY29lZmZpY2llbnQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQNJHQwMTMxMDkxMzM2OQkBEGZpbmFsaXplSU5URVJOQUwDBRhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMFF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgQQcGF5bWVudEFtb3VudE1pbggFDSR0MDEzMTA5MTMzNjkCXzEEGGZpbmFsSW52ZXN0ZWRXYXZlc0Ftb3VudAgFDSR0MDEzMTA5MTMzNjkCXzIEFWRvbmF0ZWRXYXZlc0Ftb3VudE5ldwgFDSR0MDEzMTA5MTMzNjkCXzMECG5ld1ByaWNlCAUNJHQwMTMxMDkxMzM2OQJfNAQTbHBBc3NldEFtb3VudFRvQnVybggFDSR0MDEzMTA5MTMzNjkCXzUEFGxwQXNzZXRGaW5hbFF1YW50aXR5CAUNJHQwMTMxMDkxMzM2OQJfNgQJbmV3UGVyaW9kCQBkAgUTY3VycmVudFBlcmlvZE9yRmFpbAABCgEMYWRkTmV3QWN0aW9uAgdhY3Rpb25zB3BheW1lbnQEDSR0MDEzNTE3MTM1NzkFB2FjdGlvbnMED3NjcmlwdFRyYW5zZmVycwgFDSR0MDEzNTE3MTM1NzkCXzEEDmFzc2V0SWRzU3RyaW5nCAUNJHQwMTM1MTcxMzU3OQJfMgQNYW1vdW50c1N0cmluZwgFDSR0MDEzNTE3MTM1NzkCXzMEDXBheW1lbnRBbW91bnQIBQdwYXltZW50BmFtb3VudAQOcGF5bWVudEFzc2V0SWQIBQdwYXltZW50B2Fzc2V0SWQEEW5ld0Fzc2V0SWRzU3RyaW5nCQCsAgICAiVzCQC5CQIJAMwIAgUOYXNzZXRJZHNTdHJpbmcJAMwIAgkBD2Fzc2V0SWRUb1N0cmluZwEFDnBheW1lbnRBc3NldElkBQNuaWwFA1NFUAQQbmV3QW1vdW50c1N0cmluZwkArAICAgIlZAkAuQkCCQDMCAIFDWFtb3VudHNTdHJpbmcJAMwIAgkApAMBBQ1wYXltZW50QW1vdW50BQNuaWwFA1NFUAQRbmV3U2NyaXB0VHJhbnNmZXIJAQ5TY3JpcHRUcmFuc2ZlcgMFFGZhY3RvcnlBZGRyZXNzT3JGYWlsBQ1wYXltZW50QW1vdW50BQ5wYXltZW50QXNzZXRJZAkAlQoDCQDNCAIFD3NjcmlwdFRyYW5zZmVycwURbmV3U2NyaXB0VHJhbnNmZXIFEW5ld0Fzc2V0SWRzU3RyaW5nBRBuZXdBbW91bnRzU3RyaW5nBA0kdDAxNDAzOTE0MTMwCgACJGwIBQFpCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwCAAIACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhZGROZXdBY3Rpb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoED3NjcmlwdFRyYW5zZmVycwgFDSR0MDE0MDM5MTQxMzACXzEECEFzc2V0SWRzCAUNJHQwMTQwMzkxNDEzMAJfMgQHQW1vdW50cwgFDSR0MDE0MDM5MTQxMzACXzMEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEUa2V5UG93ZXJNYW5hZ2VyQm9udXMBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQDMCAIFF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBEGtleUN1cnJlbnRQZXJpb2QACQDMCAIFCW5ld1BlcmlvZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARFrZXlQcmljZUZvclBlcmlvZAEFCW5ld1BlcmlvZAkAzAgCBQhuZXdQcmljZQUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ5rZXlTdGFydEhlaWdodAEFCW5ld1BlcmlvZAkAzAgCCQBkAgUPcGVyaW9kRW5kSGVpZ2h0AAEFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCBGJ1cm4JAMwIAgUTbHBBc3NldEFtb3VudFRvQnVybgUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCAAAFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQELa2V5SW52ZXN0ZWQBBQR1bml0CQDMCAIFGGZpbmFsSW52ZXN0ZWRXYXZlc0Ftb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQprZXlEb25hdGVkAQUEdW5pdAkAzAgCBRVkb25hdGVkV2F2ZXNBbW91bnROZXcFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC3N0cmluZ0VudHJ5CQDMCAIJARtrZXlQZXJpb2RXaXRoZHJhd2FsQXNzZXRJZHMBBQluZXdQZXJpb2QJAMwIAgUIQXNzZXRJZHMFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC3N0cmluZ0VudHJ5CQDMCAIJARprZXlQZXJpb2RXaXRoZHJhd2FsQW1vdW50cwEFCW5ld1BlcmlvZAkAzAgCBQdBbW91bnRzBQNuaWwFA25pbAUDbmlsCQCUCgIFD3NjcmlwdFRyYW5zZmVycwUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQZmluYWxpemVSRUFET05MWQMYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQMcGVyaW9kTGVuZ3RoCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ9rZXlQZXJpb2RMZW5ndGgACQEHd3JhcEVycgECFWludmFsaWQgcGVyaW9kIGxlbmd0aAQSY3VycmVudFN0YXJ0SGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ5rZXlTdGFydEhlaWdodAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQIUaW52YWxpZCBzdGFydCBoZWlnaHQEEmN1cnJlbnRQcmljZU9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQERa2V5UHJpY2VGb3JQZXJpb2QBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEEm5leHRCbG9ja1RvUHJvY2VzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEVa2V5TmV4dEJsb2NrVG9Qcm9jZXNzAAkBB3dyYXBFcnIBAh1pbnZhbGlkIG5leHQgYmxvY2sgdG8gcHJvY2VzcwQPcGVyaW9kRW5kSGVpZ2h0CQBlAgkAZAIFEmN1cnJlbnRTdGFydEhlaWdodAUMcGVyaW9kTGVuZ3RoAAEEBmNoZWNrcwkAzAgCAwkAZgIFEm5leHRCbG9ja1RvUHJvY2VzcwUPcGVyaW9kRW5kSGVpZ2h0BgkBCHRocm93RXJyAQISdW5wcm9jZXNzZWQgYmxvY2tzCQDMCAIDCQBnAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAGCQEIdGhyb3dFcnIBAhtpbnZhbGlkIG5ldyB0cmVhc3VyeSB2b2x1bWUJAMwIAgMJAGcCBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwAABgkBCHRocm93RXJyAQIaaW52YWxpZCBQV1IgbWFuYWdlcnMgYm9udXMJAMwIAgMDCQBnAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAQEtAQUGU0NBTEU4CQBnAgUGU0NBTEU4BSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgcGCQEIdGhyb3dFcnIBAjNpbnZhbGlkIHRyZWFzdXJ5IHZvbHVtZSBkaWZmIGFsbG9jYXRpb24gY29lZmZpY2llbnQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwkAlAoCBQNuaWwJARBmaW5hbGl6ZUlOVEVSTkFMAwUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEGaW52ZXN0ARB1c2VyQWRkcmVzc0J5dGVzBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEC3VzZXJBZGRyZXNzCQEHQWRkcmVzcwEFEHVzZXJBZGRyZXNzQnl0ZXMEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBBJjdXJyZW50U3RhcnRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDmtleVN0YXJ0SGVpZ2h0AQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIHN0YXJ0IGhlaWdodAQSaW52ZXN0UGVyaW9kTGVuZ3RoCQERQGV4dHJOYXRpdmUoMTA1MCkCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleUludmVzdFBlcmlvZExlbmd0aAAEC2hlaWdodENoZWNrAwkAZgIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFEmludmVzdFBlcmlvZExlbmd0aAUGaGVpZ2h0BgkBCHRocm93RXJyAQIhdG9vIGxhdGUgdG8gaW52ZXN0IGluIHRoaXMgcGVyaW9kAwkAAAIFC2hlaWdodENoZWNrBQtoZWlnaHRDaGVjawQSY3VycmVudFByaWNlT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARFrZXlQcmljZUZvclBlcmlvZAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQINaW52YWxpZCBwcmljZQQHcGF5bWVudAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkBCHRocm93RXJyAQIQaW52YWxpZCBwYXltZW50cwQNJHQwMTc5ODcxODE2NAMDCQAAAggFB3BheW1lbnQHYXNzZXRJZAUEdW5pdAkAZgIIBQdwYXltZW50BmFtb3VudAAABwkAlAoCCAUHcGF5bWVudAZhbW91bnQIBQdwYXltZW50B2Fzc2V0SWQJAQh0aHJvd0VycgECFmludmFsaWQgcGF5bWVudCBhbW91bnQEDXBheW1lbnRBbW91bnQIBQ0kdDAxNzk4NzE4MTY0Al8xBA5wYXltZW50QXNzZXRJZAgFDSR0MDE3OTg3MTgxNjQCXzIEDHRyZWFzdXJ5UGFydAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBF2tleUJ1c2luZXNzVHJlYXN1cnlQYXJ0AAAABBtwYXltZW50c1dpdGhvdXRUcmVhc3VyeVBhcnQJAGsDBQ1wYXltZW50QW1vdW50CQBlAgUGU0NBTEU4BQx0cmVhc3VyeVBhcnQFBlNDQUxFOAQNbHBBc3NldEFtb3VudAMJAGYCBRJjdXJyZW50UHJpY2VPckZhaWwAAAkAawMFG3BheW1lbnRzV2l0aG91dFRyZWFzdXJ5UGFydAUGU0NBTEU4BRJjdXJyZW50UHJpY2VPckZhaWwAAAQIaW52ZXN0ZWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQtrZXlJbnZlc3RlZAEFBHVuaXQAAAQHYWN0aW9ucwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRltYWluVHJlYXN1cnlBZGRyZXNzT3JGYWlsBRtwYXltZW50c1dpdGhvdXRUcmVhc3VyeVBhcnQFDnBheW1lbnRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFHWJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzT3JGYWlsBQx0cmVhc3VyeVBhcnQFDnBheW1lbnRBc3NldElkBQNuaWwEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQELa2V5SW52ZXN0ZWQBBQR1bml0CQDMCAIJAGQCBQhpbnZlc3RlZAUbcGF5bWVudHNXaXRob3V0VHJlYXN1cnlQYXJ0BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgdyZWlzc3VlCQDMCAIFDWxwQXNzZXRBbW91bnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyQXNzZXQJAMwIAgUQdXNlckFkZHJlc3NCeXRlcwkAzAgCBQ1scEFzc2V0QW1vdW50CQDMCAIFD2xwQXNzZXRJZE9yRmFpbAUDbmlsBQNuaWwFA25pbAkAlAoCBQdhY3Rpb25zBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQh3aXRoZHJhdwEQdXNlckFkZHJlc3NCeXRlcwQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQHcGF5bWVudAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkBCHRocm93RXJyAQkBB3dyYXBFcnIBAhBpbnZhbGlkIHBheW1lbnRzBA5wYXltZW50QXNzZXRJZAMJAAACCAUHcGF5bWVudAdhc3NldElkBQ9scEFzc2V0SWRPckZhaWwFD2xwQXNzZXRJZE9yRmFpbAkBCHRocm93RXJyAQIVaW52YWxpZCBwYXltZW50IGFzc2V0BA1wYXltZW50QW1vdW50AwkAZgIIBQdwYXltZW50BmFtb3VudAAACAUHcGF5bWVudAZhbW91bnQJAQh0aHJvd0VycgECFmludmFsaWQgcGF5bWVudCBhbW91bnQECndpdGhkcmF3YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ1rZXlXaXRoZHJhd2FsAAAABAdhY3Rpb25zCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFFGZhY3RvcnlBZGRyZXNzT3JGYWlsBQ1wYXltZW50QW1vdW50BQ5wYXltZW50QXNzZXRJZAUDbmlsBA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDWtleVdpdGhkcmF3YWwACQDMCAIJAGQCBQp3aXRoZHJhd2FsBQ1wYXltZW50QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtzdHJpbmdFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwgFAWkNdHJhbnNhY3Rpb25JZAkAzAgCCQEWdmFsdWVXaXRoZHJhd2FsUmVxdWVzdAQFB1BFTkRJTkcFDXBheW1lbnRBbW91bnQJAGQCBRNjdXJyZW50UGVyaW9kT3JGYWlsAAEFBHVuaXQFA25pbAUDbmlsBQNuaWwDCQAAAgUOZmFjdG9yeUFjdGlvbnMFDmZhY3RvcnlBY3Rpb25zCQCUCgIFB2FjdGlvbnMFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDmNhbmNlbFdpdGhkcmF3AhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MFBHR4SWQJAQd3cmFwRXJyAQIaaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBA0kdDAyMDg5ODIxMDExCQEhcGFyc2VXaXRoZHJhd2FsUmVxdWVzdFZhbHVlT3JGYWlsAQUXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24EBnN0YXR1cwgFDSR0MDIwODk4MjEwMTECXzEEDWxwQXNzZXRBbW91bnQIBQ0kdDAyMDg5ODIxMDExAl8yBAx0YXJnZXRQZXJpb2QIBQ0kdDAyMDg5ODIxMDExAl8zBAljbGFpbVR4SWQIBQ0kdDAyMDg5ODIxMDExAl80BAZjaGVja3MJAMwIAgMJAAACBQZzdGF0dXMFB1BFTkRJTkcGCQEIdGhyb3dFcnIBAiFpbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdCBzdGF0dXMJAMwIAgMJAGYCBQx0YXJnZXRQZXJpb2QFE2N1cnJlbnRQZXJpb2RPckZhaWwGCQEIdGhyb3dFcnIBAiFpbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdCBwZXJpb2QFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQKd2l0aGRyYXdhbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAJAQd3cmFwRXJyAQIfaW52YWxpZCB0b3RhbCB3aXRoZHJhd2FsIGFtb3VudAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCAwkAZwIFCndpdGhkcmF3YWwFDWxwQXNzZXRBbW91bnQJAGUCBQp3aXRoZHJhd2FsBQ1scEFzc2V0QW1vdW50CQEIdGhyb3dFcnIBAhlpbnZhbGlkIHdpdGhkcmF3YWwgYW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtkZWxldGVFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwUEdHhJZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAINdHJhbnNmZXJBc3NldAkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFDWxwQXNzZXRBbW91bnQJAMwIAgUPbHBBc3NldElkT3JGYWlsBQNuaWwFA25pbAUDbmlsAwkAAAIFDmZhY3RvcnlBY3Rpb25zBQ5mYWN0b3J5QWN0aW9ucwkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBD2NsYWltQ29sbGF0ZXJhbAIQdXNlckFkZHJlc3NCeXRlcwR0eElkBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEDSR0MDIxOTk3MjIxODIJARdjbGFpbUNvbGxhdGVyYWxJTlRFUk5BTAIFEHVzZXJBZGRyZXNzQnl0ZXMJANkEAQUEdHhJZAQLdXNlckFkZHJlc3MIBQ0kdDAyMTk5NzIyMTgyAl8xBA1scEFzc2V0QW1vdW50CAUNJHQwMjE5OTcyMjE4MgJfMgQMdGFyZ2V0UGVyaW9kCAUNJHQwMjE5OTcyMjE4MgJfMwQLd2F2ZXNBbW91bnQIBQ0kdDAyMTk5NzIyMTgyAl80BAxhc3NldHNTdHJpbmcIBQ0kdDAyMTk5NzIyMTgyAl81BA1hbW91bnRzU3RyaW5nCAUNJHQwMjE5OTcyMjE4MgJfNgQKYXNzZXRzTGlzdAkA0QgCCQC9CQIFDGFzc2V0c1N0cmluZwUDU0VQAAAEC2Ftb3VudHNMaXN0CQDRCAIJAL0JAgUNYW1vdW50c1N0cmluZwUDU0VQAAAEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC2RlbGV0ZUVudHJ5CQDMCAIJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzCQDZBAEFBHR4SWQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbEhpc3RvcnkCBQt1c2VyQWRkcmVzcwkA2QQBBQR0eElkCQDMCAIFDWxwQXNzZXRBbW91bnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDnRyYW5zZmVyQXNzZXRzCQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUKYXNzZXRzTGlzdAkAzAgCBQthbW91bnRzTGlzdAUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBE2NsYWltQ29sbGF0ZXJhbEJ1bGsCEHVzZXJBZGRyZXNzQnl0ZXMFdHhJZHMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgoBDGFkZE5ld0FjdGlvbgIFc3RhdGUEdHhJZAQNJHQwMjI5NDAyMzEzOQkBF2NsYWltQ29sbGF0ZXJhbElOVEVSTkFMAgUQdXNlckFkZHJlc3NCeXRlcwkA2QQBBQR0eElkBAt1c2VyQWRkcmVzcwgFDSR0MDIyOTQwMjMxMzkCXzEEDWxwQXNzZXRBbW91bnQIBQ0kdDAyMjk0MDIzMTM5Al8yBAx0YXJnZXRQZXJpb2QIBQ0kdDAyMjk0MDIzMTM5Al8zBAt3YXZlc0Ftb3VudAgFDSR0MDIyOTQwMjMxMzkCXzQEDGFzc2V0c1N0cmluZwgFDSR0MDIyOTQwMjMxMzkCXzUEDWFtb3VudHNTdHJpbmcIBQ0kdDAyMjk0MDIzMTM5Al82BAphc3NldHNMaXN0CQDRCAIJAL0JAgUMYXNzZXRzU3RyaW5nBQNTRVAAAAQLYW1vdW50c0xpc3QJANEIAgkAvQkCBQ1hbW91bnRzU3RyaW5nBQNTRVAAAAQKbmV3QWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtkZWxldGVFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwkA2QQBBQR0eElkBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBFGtleVdpdGhkcmF3YWxIaXN0b3J5AgULdXNlckFkZHJlc3MJANkEAQUEdHhJZAkAzAgCBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg50cmFuc2ZlckFzc2V0cwkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFCmFzc2V0c0xpc3QJAMwIAgULYW1vdW50c0xpc3QFA25pbAUDbmlsBQNuaWwJAM4IAgUFc3RhdGUFCm5ld0FjdGlvbnMEEWFsbEZhY3RvcnlBY3Rpb25zCgACJGwFBXR4SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhZGROZXdBY3Rpb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAJQKAgUDbmlsBRFhbGxGYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARdjbGFpbUNvbGxhdGVyYWxSRUFET05MWQIQdXNlckFkZHJlc3NCeXRlcwR0eElkBAhyZXNwb25zZQkBJWNsYWltQ29sbGF0ZXJhbFJFQURPTkxZU3RyaW5nUmVzcG9uc2UCBRB1c2VyQWRkcmVzc0J5dGVzCQDZBAEFBHR4SWQJAJQKAgUDbmlsBQhyZXNwb25zZQFpARtjbGFpbUNvbGxhdGVyYWxCdWxrUkVBRE9OTFkCEHVzZXJBZGRyZXNzQnl0ZXMFdHhJZHMKAQtwcm9jZXNzVHhJZAIFc3RhdGUEdHhJZAQIcmVzcG9uc2UJASVjbGFpbUNvbGxhdGVyYWxSRUFET05MWVN0cmluZ1Jlc3BvbnNlAgUQdXNlckFkZHJlc3NCeXRlcwkA2QQBBQR0eElkCQDNCAIFBXN0YXRlBQhyZXNwb25zZQQMYWxsUmVzcG9uc2VzCgACJGwFBXR4SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQtwcm9jZXNzVHhJZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkAlAoCBQNuaWwFDGFsbFJlc3BvbnNlcwFpAQ1wcm9jZXNzQmxvY2tzARB1c2VyQWRkcmVzc0J5dGVzBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEC3VzZXJBZGRyZXNzCQEHQWRkcmVzcwEFEHVzZXJBZGRyZXNzQnl0ZXMEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBAxwZXJpb2RMZW5ndGgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBD2tleVBlcmlvZExlbmd0aAAJAQd3cmFwRXJyAQIVaW52YWxpZCBwZXJpb2QgbGVuZ3RoBBJjdXJyZW50U3RhcnRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDmtleVN0YXJ0SGVpZ2h0AQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIHN0YXJ0IGhlaWdodAQSY3VycmVudFByaWNlT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARFrZXlQcmljZUZvclBlcmlvZAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQINaW52YWxpZCBwcmljZQQSbmV4dEJsb2NrVG9Qcm9jZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MACQEHd3JhcEVycgECHWludmFsaWQgbmV4dCBibG9jayB0byBwcm9jZXNzBA9wZXJpb2RFbmRIZWlnaHQJAGUCCQBkAgUSY3VycmVudFN0YXJ0SGVpZ2h0BQxwZXJpb2RMZW5ndGgAAQQcYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZU1heAAoBBlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplAwMDCQBnAgUGaGVpZ2h0BRJuZXh0QmxvY2tUb1Byb2Nlc3MDCQBnAgUSbmV4dEJsb2NrVG9Qcm9jZXNzBRJjdXJyZW50U3RhcnRIZWlnaHQGCQAAAgUTY3VycmVudFBlcmlvZE9yRmFpbAAABwkAZwIFD3BlcmlvZEVuZEhlaWdodAUSbmV4dEJsb2NrVG9Qcm9jZXNzBwkAlwMBCQDMCAIJAGQCCQBlAgUPcGVyaW9kRW5kSGVpZ2h0BRJuZXh0QmxvY2tUb1Byb2Nlc3MAAQkAzAgCBRxibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplTWF4BQNuaWwJAQh0aHJvd0VycgEJAQd3cmFwRXJyAQIUaW52YWxpZCB0YXJnZXQgYmxvY2sEFWJsb2NrUHJvY2Vzc2luZ1Jld2FyZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEYa2V5QmxvY2tQcm9jZXNzaW5nUmV3YXJkAAkBB3dyYXBFcnIBAh9pbnZhbGlkIGJsb2NrIHByb2Nlc3NpbmcgcmV3YXJkBCBibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvcgkAaQIFFWJsb2NrUHJvY2Vzc2luZ1Jld2FyZAUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQQpYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3JSZW1haW5kZXIJAGUCBRVibG9ja1Byb2Nlc3NpbmdSZXdhcmQJAGgCBSBibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvcgUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQoBA21hcAIDYWNjA2luYwMJAGcCBQNpbmMFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUFA2FjYwQRdGFyZ2V0QmxvY2tIZWlnaHQJAGQCBRJuZXh0QmxvY2tUb1Byb2Nlc3MFA2luYwQPdGFyZ2V0QmxvY2tJbmZvCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAO0HAQURdGFyZ2V0QmxvY2tIZWlnaHQJAQd3cmFwRXJyAQISaW52YWxpZCBibG9jayBpbmZvBBR0cmVhc3VyeVJld2FyZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQEPcmV3YXJkRm9yT3B0aW9uAggFD3RhcmdldEJsb2NrSW5mbwdyZXdhcmRzBRpwcm94eVRyZWFzdXJ5QWRkcmVzc09yRmFpbAkBB3dyYXBFcnIBCQCsAgICI2ludmFsaWQgdHJlYXN1cnkgcmV3YXJkIGZvciBoZWlnaHQgCQCkAwEFEXRhcmdldEJsb2NrSGVpZ2h0BAlnZW5lcmF0b3IIBQ90YXJnZXRCbG9ja0luZm8JZ2VuZXJhdG9yBAlhdmFpbGFibGUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQxrZXlBdmFpbGFibGUBBQlnZW5lcmF0b3IAAAQMY2FsbGVyUmV3YXJkAwkAAAIFA2luYwkAZQIFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUAAQkAZAIFIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yBSlibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvclJlbWFpbmRlcgUgYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3IEDWxwQXNzZXRBbW91bnQDCQBmAgUSY3VycmVudFByaWNlT3JGYWlsAAAJAGsDCQBlAgUUdHJlYXN1cnlSZXdhcmRPckZhaWwFDGNhbGxlclJld2FyZAUGU0NBTEU4BRJjdXJyZW50UHJpY2VPckZhaWwAAAQUZmFjdG9yeUFjdGlvbnNTaW5nbGUJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILc3RyaW5nRW50cnkJAMwIAgkBEWtleUJsb2NrUHJvY2Vzc2VkAQURdGFyZ2V0QmxvY2tIZWlnaHQJAMwIAgkAuQkCCQDMCAIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkAzAgCCQCkAwEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAMwIAgkApQgBBQlnZW5lcmF0b3IJAMwIAgkA2AQBBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIJAKQDAQUUdHJlYXN1cnlSZXdhcmRPckZhaWwJAMwIAgkApAMBBQxjYWxsZXJSZXdhcmQJAMwIAgkApAMBBQ1scEFzc2V0QW1vdW50BQNuaWwFA1NFUAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQxrZXlBdmFpbGFibGUBBQlnZW5lcmF0b3IJAMwIAgkAZAIFCWF2YWlsYWJsZQUNbHBBc3NldEFtb3VudAUDbmlsBQNuaWwFA25pbAMJAAACBRRmYWN0b3J5QWN0aW9uc1NpbmdsZQUUZmFjdG9yeUFjdGlvbnNTaW5nbGUEDSR0MDI3ODQzMjc4NzYFA2FjYwQKbHBBc3NldEFjYwgFDSR0MDI3ODQzMjc4NzYCXzEECXJld2FyZEFjYwgFDSR0MDI3ODQzMjc4NzYCXzIJAJQKAgkAZAIFCmxwQXNzZXRBY2MFDWxwQXNzZXRBbW91bnQJAGQCBQlyZXdhcmRBY2MFFHRyZWFzdXJ5UmV3YXJkT3JGYWlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBARsaXN0CQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOCQDMCAIADwkAzAgCABAJAMwIAgARCQDMCAIAEgkAzAgCABMJAMwIAgAUCQDMCAIAFQkAzAgCABYJAMwIAgAXCQDMCAIAGAkAzAgCABkJAMwIAgAaCQDMCAIAGwkAzAgCABwJAMwIAgAdCQDMCAIAHgkAzAgCAB8JAMwIAgAgCQDMCAIAIQkAzAgCACIJAMwIAgAjCQDMCAIAJAkAzAgCACUJAMwIAgAmCQDMCAIAJwUDbmlsBA0kdDAyODE0MzI4MjE5CgACJGwFBGxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIAAAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQNtYXACBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDQwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgDCQAAAgUNJHQwMjgxNDMyODIxOQUNJHQwMjgxNDMyODIxOQQRcmV3YXJkQW1vdW50VG90YWwIBQ0kdDAyODE0MzI4MjE5Al8yBBJscEFzc2V0QW1vdW50VG90YWwIBQ0kdDAyODE0MzI4MjE5Al8xBBRidXNpbmVzc1RyZWFzdXJ5UGFydAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBF2tleUJ1c2luZXNzVHJlYXN1cnlQYXJ0AAAABB5yZXdhcmRUb0J1c2luZXNzVHJlYXN1cnlBbW91bnQJAGsDBRFyZXdhcmRBbW91bnRUb3RhbAUUYnVzaW5lc3NUcmVhc3VyeVBhcnQFBlNDQUxFOAQacmV3YXJkVG9NYWluVHJlYXN1cnlBbW91bnQJAGUCCQBlAgURcmV3YXJkQW1vdW50VG90YWwFHnJld2FyZFRvQnVzaW5lc3NUcmVhc3VyeUFtb3VudAUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBAhpbnZlc3RlZAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBC2tleUludmVzdGVkAQUEdW5pdAAABAdhY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCB3JlaXNzdWUJAMwIAgUSbHBBc3NldEFtb3VudFRvdGFsBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAMwIAgkAZAIFEm5leHRCbG9ja1RvUHJvY2VzcwUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIZdHJhbnNmZXJGcm9tUHJveHlUcmVhc3VyeQkAzAgCCAUZbWFpblRyZWFzdXJ5QWRkcmVzc09yRmFpbAVieXRlcwkAzAgCBRpyZXdhcmRUb01haW5UcmVhc3VyeUFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIZdHJhbnNmZXJGcm9tUHJveHlUcmVhc3VyeQkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFFWJsb2NrUHJvY2Vzc2luZ1Jld2FyZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIZdHJhbnNmZXJGcm9tUHJveHlUcmVhc3VyeQkAzAgCCAUdYnVzaW5lc3NUcmVhc3VyeUFkZHJlc3NPckZhaWwFYnl0ZXMJAMwIAgUecmV3YXJkVG9CdXNpbmVzc1RyZWFzdXJ5QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBC2tleUludmVzdGVkAQUEdW5pdAkAzAgCCQBkAgUIaW52ZXN0ZWQFGnJld2FyZFRvTWFpblRyZWFzdXJ5QW1vdW50BQNuaWwFA25pbAUDbmlsAwkAAAIFB2FjdGlvbnMFB2FjdGlvbnMJAJQKAgUDbmlsBQR1bml0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJ0eAEGdmVyaWZ5AAQJcHVibGljS2V5BAckbWF0Y2gwCQEZZ2V0TWFuYWdlclB1YmxpY0tleU9yVW5pdAADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQDcHViBQckbWF0Y2gwBQNwdWIIBQJ0eA9zZW5kZXJQdWJsaWNLZXkJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFCXB1YmxpY0tleVpRQe8=",
    "height": 2712900,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: CJCqnd2oqcuRURtrirJd3wExyzCauSTqZ9WuFDxSgxGy
Next: C6nJEhHC3gt1HYmX8YKGzcowMBD5bxC3E9FJhmPW4W6T

Diff: 
Old New Differences
83 83  
84 84  
85 85  func keyPeriodLength () = "%s__periodLength"
86 + 
87 + 
88 + func keyInvestPeriodLength () = "%s__investPeriodLength"
86 89  
87 90  
88 91  func keyBlockProcessingReward () = "%s__blockProcessingReward"
242 245  
243 246  func rewardForOption (rewards,target) = {
244 247      let s = size(rewards)
245 -     let $t057295754 = rewards[0]
246 -     let a0 = $t057295754._1
247 -     let r0 = $t057295754._2
248 -     let $t057575782 = rewards[1]
249 -     let a1 = $t057575782._1
250 -     let r1 = $t057575782._2
251 -     let $t057855810 = rewards[2]
252 -     let a2 = $t057855810._1
253 -     let r2 = $t057855810._2
248 +     let $t057855810 = rewards[0]
249 +     let a0 = $t057855810._1
250 +     let r0 = $t057855810._2
251 +     let $t058135838 = rewards[1]
252 +     let a1 = $t058135838._1
253 +     let r1 = $t058135838._2
254 +     let $t058415866 = rewards[2]
255 +     let a2 = $t058415866._1
256 +     let r2 = $t058415866._2
254 257      if (if ((s > 0))
255 258          then (a0 == target)
256 259          else false)
315 318      }
316 319  
317 320  
318 - func claimCollateralINTERNAL (userAddressBytes,txId,transactionId) = {
321 + func claimCollateralINTERNAL (userAddressBytes,txId) = {
319 322      let userAddress = Address(userAddressBytes)
320 323      let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
321 324      let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
322 -     let $t092529365 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
323 -     let status = $t092529365._1
324 -     let lpAssetAmount = $t092529365._2
325 -     let targetPeriod = $t092529365._3
326 -     let claimTxId = $t092529365._4
325 +     let $t092819394 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
326 +     let status = $t092819394._1
327 +     let lpAssetAmount = $t092819394._2
328 +     let targetPeriod = $t092819394._3
329 +     let claimTxId = $t092819394._4
327 330      if ((targetPeriod > currentPeriodOrFail))
328 331          then throwErr("invalid withdrawal request period")
329 332          else {
338 341      }
339 342  
340 343  
341 - func claimCollateralREADONLYStringResponse (userAddressBytes,txId,transactionId) = {
342 -     let $t01017910360 = claimCollateralINTERNAL(userAddressBytes, txId, transactionId)
343 -     let userAddress = $t01017910360._1
344 -     let lpAssetAmount = $t01017910360._2
345 -     let targetPeriod = $t01017910360._3
346 -     let wavesAmount = $t01017910360._4
347 -     let assetsString = $t01017910360._5
348 -     let amountsString = $t01017910360._6
344 + func claimCollateralREADONLYStringResponse (userAddressBytes,txId) = {
345 +     let $t01018110347 = claimCollateralINTERNAL(userAddressBytes, txId)
346 +     let userAddress = $t01018110347._1
347 +     let lpAssetAmount = $t01018110347._2
348 +     let targetPeriod = $t01018110347._3
349 +     let wavesAmount = $t01018110347._4
350 +     let assetsString = $t01018110347._5
351 +     let amountsString = $t01018110347._6
349 352      let assets = makeString(removeByIndex(split_51C(assetsString, SEP), 0), ":")
350 353      let amounts = makeString(removeByIndex(split_51C(amountsString, SEP), 0), ":")
351 354      makeString(["%d%s%s", toString(wavesAmount), assets, amounts], SEP)
396 399                  else throwErr("invalid treasury volume diff allocation coefficient")]
397 400              if ((checks == checks))
398 401                  then {
399 -                     let $t01312213382 = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
400 -                     let paymentAmountMin = $t01312213382._1
401 -                     let finalInvestedWavesAmount = $t01312213382._2
402 -                     let donatedWavesAmountNew = $t01312213382._3
403 -                     let newPrice = $t01312213382._4
404 -                     let lpAssetAmountToBurn = $t01312213382._5
405 -                     let lpAssetFinalQuantity = $t01312213382._6
402 +                     let $t01310913369 = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
403 +                     let paymentAmountMin = $t01310913369._1
404 +                     let finalInvestedWavesAmount = $t01310913369._2
405 +                     let donatedWavesAmountNew = $t01310913369._3
406 +                     let newPrice = $t01310913369._4
407 +                     let lpAssetAmountToBurn = $t01310913369._5
408 +                     let lpAssetFinalQuantity = $t01310913369._6
406 409                      let newPeriod = (currentPeriodOrFail + 1)
407 410                      func addNewAction (actions,payment) =                     {
408 -                         let $t01353013592 = actions
409 -                         let scriptTransfers = $t01353013592._1
410 -                         let assetIdsString = $t01353013592._2
411 -                         let amountsString = $t01353013592._3
411 +                         let $t01351713579 = actions
412 +                         let scriptTransfers = $t01351713579._1
413 +                         let assetIdsString = $t01351713579._2
414 +                         let amountsString = $t01351713579._3
412 415                          let paymentAmount = payment.amount
413 416                          let paymentAssetId = payment.assetId
414 417                          let newAssetIdsString = ("%s" + makeString([assetIdsString, assetIdToString(paymentAssetId)], SEP))
417 420                          $Tuple3((scriptTransfers :+ newScriptTransfer), newAssetIdsString, newAmountsString)
418 421                          }
419 422  
420 -                     let $t01405214143 = {
423 +                     let $t01403914130 = {
421 424                          let $l = i.payments
422 425                          let $s = size($l)
423 426                          let $acc0 = $Tuple3(nil, "", "")
431 434  
432 435                          $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)
433 436                          }
434 -                     let scriptTransfers = $t01405214143._1
435 -                     let AssetIds = $t01405214143._2
436 -                     let Amounts = $t01405214143._3
437 +                     let scriptTransfers = $t01403914130._1
438 +                     let AssetIds = $t01403914130._2
439 +                     let Amounts = $t01403914130._3
437 440                      let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyPowerManagerBonus(currentPeriodOrFail), pwrManagersBonusInWaves], nil), invoke(factoryAddressOrFail, "integerEntry", [keyCurrentPeriod(), newPeriod], nil), invoke(factoryAddressOrFail, "integerEntry", [keyPriceForPeriod(newPeriod), newPrice], nil), invoke(factoryAddressOrFail, "integerEntry", [keyStartHeight(newPeriod), (periodEndHeight + 1)], nil), invoke(factoryAddressOrFail, "burn", [lpAssetAmountToBurn], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), finalInvestedWavesAmount], nil), invoke(factoryAddressOrFail, "integerEntry", [keyDonated(unit), donatedWavesAmountNew], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAssetIds(newPeriod), AssetIds], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAmounts(newPeriod), Amounts], nil)]
438 441                      $Tuple2(scriptTransfers, factoryActions)
439 442                      }
477 480          then {
478 481              let userAddress = Address(userAddressBytes)
479 482              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
480 -             let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
481 -             let payment = if ((size(i.payments) == 1))
482 -                 then i.payments[0]
483 -                 else throwErr("invalid payments")
484 -             let $t01762417801 = if (if ((payment.assetId == unit))
485 -                 then (payment.amount > 0)
486 -                 else false)
487 -                 then $Tuple2(payment.amount, payment.assetId)
488 -                 else throwErr("invalid payment amount")
489 -             let paymentAmount = $t01762417801._1
490 -             let paymentAssetId = $t01762417801._2
491 -             let treasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
492 -             let paymentsWithoutTreasuryPart = fraction(paymentAmount, (SCALE8 - treasuryPart), SCALE8)
493 -             let lpAssetAmount = if ((currentPriceOrFail > 0))
494 -                 then fraction(paymentsWithoutTreasuryPart, SCALE8, currentPriceOrFail)
495 -                 else 0
496 -             let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
497 -             let actions = [ScriptTransfer(mainTreasuryAddressOrFail, paymentsWithoutTreasuryPart, paymentAssetId), ScriptTransfer(businessTreasuryAddressOrFail, treasuryPart, paymentAssetId)]
498 -             let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentsWithoutTreasuryPart)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
499 -             $Tuple2(actions, factoryActions)
483 +             let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
484 +             let investPeriodLength = getIntegerValue(factoryAddressOrFail, keyInvestPeriodLength())
485 +             let heightCheck = if (((currentStartHeight + investPeriodLength) > height))
486 +                 then true
487 +                 else throwErr("too late to invest in this period")
488 +             if ((heightCheck == heightCheck))
489 +                 then {
490 +                     let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
491 +                     let payment = if ((size(i.payments) == 1))
492 +                         then i.payments[0]
493 +                         else throwErr("invalid payments")
494 +                     let $t01798718164 = if (if ((payment.assetId == unit))
495 +                         then (payment.amount > 0)
496 +                         else false)
497 +                         then $Tuple2(payment.amount, payment.assetId)
498 +                         else throwErr("invalid payment amount")
499 +                     let paymentAmount = $t01798718164._1
500 +                     let paymentAssetId = $t01798718164._2
501 +                     let treasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
502 +                     let paymentsWithoutTreasuryPart = fraction(paymentAmount, (SCALE8 - treasuryPart), SCALE8)
503 +                     let lpAssetAmount = if ((currentPriceOrFail > 0))
504 +                         then fraction(paymentsWithoutTreasuryPart, SCALE8, currentPriceOrFail)
505 +                         else 0
506 +                     let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
507 +                     let actions = [ScriptTransfer(mainTreasuryAddressOrFail, paymentsWithoutTreasuryPart, paymentAssetId), ScriptTransfer(businessTreasuryAddressOrFail, treasuryPart, paymentAssetId)]
508 +                     let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentsWithoutTreasuryPart)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
509 +                     $Tuple2(actions, factoryActions)
510 +                     }
511 +                 else throw("Strict value is not equal to itself.")
500 512              }
501 513          else throw("Strict value is not equal to itself.")
502 514      }
539 551              let userAddress = Address(userAddressBytes)
540 552              let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
541 553              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
542 -             let $t02053520648 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
543 -             let status = $t02053520648._1
544 -             let lpAssetAmount = $t02053520648._2
545 -             let targetPeriod = $t02053520648._3
546 -             let claimTxId = $t02053520648._4
554 +             let $t02089821011 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
555 +             let status = $t02089821011._1
556 +             let lpAssetAmount = $t02089821011._2
557 +             let targetPeriod = $t02089821011._3
558 +             let claimTxId = $t02089821011._4
547 559              let checks = [if ((status == PENDING))
548 560                  then true
549 561                  else throwErr("invalid withdrawal request status"), if ((targetPeriod > currentPeriodOrFail))
571 583      let checkCaller = onlyFactory(i)
572 584      if ((checkCaller == checkCaller))
573 585          then {
574 -             let $t02163421836 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId), i.transactionId)
575 -             let userAddress = $t02163421836._1
576 -             let lpAssetAmount = $t02163421836._2
577 -             let targetPeriod = $t02163421836._3
578 -             let wavesAmount = $t02163421836._4
579 -             let assetsString = $t02163421836._5
580 -             let amountsString = $t02163421836._6
586 +             let $t02199722182 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId))
587 +             let userAddress = $t02199722182._1
588 +             let lpAssetAmount = $t02199722182._2
589 +             let targetPeriod = $t02199722182._3
590 +             let wavesAmount = $t02199722182._4
591 +             let assetsString = $t02199722182._5
592 +             let amountsString = $t02199722182._6
581 593              let assetsList = removeByIndex(split_51C(assetsString, SEP), 0)
582 594              let amountsList = removeByIndex(split_51C(amountsString, SEP), 0)
583 595              let factoryActions = [invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, fromBase58String(txId))], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawalHistory(userAddress, fromBase58String(txId)), lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAssets", [userAddressBytes, assetsList, amountsList], nil)]
594 606      if ((checkCaller == checkCaller))
595 607          then {
596 608              func addNewAction (state,txId) =             {
597 -                 let $t02259422810 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId), i.transactionId)
598 -                 let userAddress = $t02259422810._1
599 -                 let lpAssetAmount = $t02259422810._2
600 -                 let targetPeriod = $t02259422810._3
601 -                 let wavesAmount = $t02259422810._4
602 -                 let assetsString = $t02259422810._5
603 -                 let amountsString = $t02259422810._6
609 +                 let $t02294023139 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId))
610 +                 let userAddress = $t02294023139._1
611 +                 let lpAssetAmount = $t02294023139._2
612 +                 let targetPeriod = $t02294023139._3
613 +                 let wavesAmount = $t02294023139._4
614 +                 let assetsString = $t02294023139._5
615 +                 let amountsString = $t02294023139._6
604 616                  let assetsList = removeByIndex(split_51C(assetsString, SEP), 0)
605 617                  let amountsList = removeByIndex(split_51C(amountsString, SEP), 0)
606 618                  let newActions = [invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, fromBase58String(txId))], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawalHistory(userAddress, fromBase58String(txId)), lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAssets", [userAddressBytes, assetsList, amountsList], nil)]
630 642  
631 643  @Callable(i)
632 644  func claimCollateralREADONLY (userAddressBytes,txId) = {
633 -     let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId), i.transactionId)
645 +     let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId))
634 646      $Tuple2(nil, response)
635 647      }
636 648  
639 651  @Callable(i)
640 652  func claimCollateralBulkREADONLY (userAddressBytes,txIds) = {
641 653      func processTxId (state,txId) =     {
642 -         let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId), i.transactionId)
654 +         let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId))
643 655          (state :+ response)
644 656          }
645 657  
704 716                      let factoryActionsSingle = [invoke(factoryAddressOrFail, "stringEntry", [keyBlockProcessed(targetBlockHeight), makeString([toBase58String(i.transactionId), toString(currentPeriodOrFail), toString(generator), toBase58String(userAddressBytes), toString(treasuryRewardOrFail), toString(callerReward), toString(lpAssetAmount)], SEP)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(generator), (available + lpAssetAmount)], nil)]
705 717                      if ((factoryActionsSingle == factoryActionsSingle))
706 718                          then {
707 -                             let $t02754827581 = acc
708 -                             let lpAssetAcc = $t02754827581._1
709 -                             let rewardAcc = $t02754827581._2
719 +                             let $t02784327876 = acc
720 +                             let lpAssetAcc = $t02784327876._1
721 +                             let rewardAcc = $t02784327876._2
710 722                              $Tuple2((lpAssetAcc + lpAssetAmount), (rewardAcc + treasuryRewardOrFail))
711 723                              }
712 724                          else throw("Strict value is not equal to itself.")
713 725                      }
714 726  
715 727              let list = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39]
716 -             let $t02784827924 = {
728 +             let $t02814328219 = {
717 729                  let $l = list
718 730                  let $s = size($l)
719 731                  let $acc0 = $Tuple2(0, 0)
727 739  
728 740                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40)
729 741                  }
730 -             if (($t02784827924 == $t02784827924))
742 +             if (($t02814328219 == $t02814328219))
731 743                  then {
732 -                     let rewardAmountTotal = $t02784827924._2
733 -                     let lpAssetAmountTotal = $t02784827924._1
744 +                     let rewardAmountTotal = $t02814328219._2
745 +                     let lpAssetAmountTotal = $t02814328219._1
734 746                      let businessTreasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
735 747                      let rewardToBusinessTreasuryAmount = fraction(rewardAmountTotal, businessTreasuryPart, SCALE8)
736 748                      let rewardToMainTreasuryAmount = ((rewardAmountTotal - rewardToBusinessTreasuryAmount) - blockProcessingReward)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 7 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let CONTRACT_NAME = "calculator.ride"
7 7  
8 8  let SCALE8 = 100000000
9 9  
10 10  let PENDING = "PENDING"
11 11  
12 12  let WAVES = "WAVES"
13 13  
14 14  func wrapErr (s) = ((CONTRACT_NAME + ": ") + s)
15 15  
16 16  
17 17  func throwErr (s) = throw(wrapErr(s))
18 18  
19 19  
20 20  func assetIdToString (assetId) = match assetId {
21 21      case b: ByteVector => 
22 22          toBase58String(b)
23 23      case _: Unit => 
24 24          WAVES
25 25      case _ => 
26 26          throw("Match error")
27 27  }
28 28  
29 29  
30 30  func stringToAssetId (s) = if ((s == WAVES))
31 31      then unit
32 32      else fromBase58String(s)
33 33  
34 34  
35 35  func abs (n) = if ((0 > n))
36 36      then -(n)
37 37      else n
38 38  
39 39  
40 40  func keyFactoryAddress () = makeString(["%s", "factory"], SEP)
41 41  
42 42  
43 43  func keyManagerPublicKey () = makeString(["%s", "managerPublicKey"], SEP)
44 44  
45 45  
46 46  func keyLpAssetId () = makeString(["%s", "lpAssetId"], SEP)
47 47  
48 48  
49 49  func keyProxyTreasuryAddress () = makeString(["%s", "proxyTreasury"], SEP)
50 50  
51 51  
52 52  func keyMainTreasuryAddress () = makeString(["%s", "mainTreasury"], SEP)
53 53  
54 54  
55 55  func keyBusinessTreasuryAddress () = makeString(["%s", "businessTreasury"], SEP)
56 56  
57 57  
58 58  func keyBusinessTreasuryPart () = makeString(["%s", "businessTreasuryPart"], SEP)
59 59  
60 60  
61 61  func keyInvested (assetId) = makeString(["%s%s", "invested", assetIdToString(assetId)], SEP)
62 62  
63 63  
64 64  func keyDonated (assetId) = makeString(["%s%s", "donated", assetIdToString(assetId)], SEP)
65 65  
66 66  
67 67  func keyAvailable (userAddress) = makeString(["%s%s", "available", toString(userAddress)], SEP)
68 68  
69 69  
70 70  func keyClaimed (userAddress) = makeString(["%s%s", "claimed", toString(userAddress)], SEP)
71 71  
72 72  
73 73  func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
74 74  
75 75  
76 76  func keyPriceForPeriod (period) = makeString(["%s%d", "price", toString(period)], SEP)
77 77  
78 78  
79 79  func keyStartHeight (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
80 80  
81 81  
82 82  func keyPowerManagerBonus (period) = makeString(["%s%d", "powerManagerBonus", toString(period)], SEP)
83 83  
84 84  
85 85  func keyPeriodLength () = "%s__periodLength"
86 + 
87 + 
88 + func keyInvestPeriodLength () = "%s__investPeriodLength"
86 89  
87 90  
88 91  func keyBlockProcessingReward () = "%s__blockProcessingReward"
89 92  
90 93  
91 94  func keyNextBlockToProcess () = "%s__nextBlockToProcess"
92 95  
93 96  
94 97  func keyBlockProcessed (height) = makeString(["%s%d", "blockProcessed", toString(height)], SEP)
95 98  
96 99  
97 100  func keyWithdrawal () = "%s__withdrawal"
98 101  
99 102  
100 103  func keyWithdrawalRequest (userAddress,txId) = makeString(["%s%s%s", "withdrawal", toString(userAddress), toBase58String(txId)], SEP)
101 104  
102 105  
103 106  func valueWithdrawalRequest (status,lpAssetAmount,targetPeriod,claimTxId) = {
104 107      let claimTxIdStr =     match claimTxId {
105 108          case b: ByteVector => 
106 109              toBase58String(b)
107 110          case _: Unit => 
108 111              "SOON"
109 112          case _ => 
110 113              throw("Match error")
111 114      }
112 115      makeString(["%s%d%d%s", status, toString(lpAssetAmount), toString(targetPeriod), claimTxIdStr], SEP)
113 116      }
114 117  
115 118  
116 119  func keyWithdrawalHistory (userAddress,txId) = makeString(["%s%s%s", "withdrawalHistory", toString(userAddress), toBase58String(txId)], SEP)
117 120  
118 121  
119 122  func keyPeriodWithdrawalAssetIds (period) = makeString(["%s%d", "periodReward", toString(period)], SEP)
120 123  
121 124  
122 125  func keyPeriodWithdrawalAmounts (period) = makeString(["%s%d", "periodRewardAmount", toString(period)], SEP)
123 126  
124 127  
125 128  func parseWithdrawalRequestValueOrFail (s) = {
126 129      let parts = split(s, SEP)
127 130      if ((size(parts) == 5))
128 131          then {
129 132              let status = parts[1]
130 133              let lpAssetAmount = valueOrErrorMessage(parseInt(parts[2]), wrapErr("invalid lpAssetAmount"))
131 134              let targetPeriod = valueOrErrorMessage(parseInt(parts[3]), wrapErr("invalid targetPeriod"))
132 135              let claimTxId = parts[4]
133 136              $Tuple4(status, lpAssetAmount, targetPeriod, claimTxId)
134 137              }
135 138          else throwErr("invalid withdrawal request value")
136 139      }
137 140  
138 141  
139 142  let factoryAddressOption = match getString(this, keyFactoryAddress()) {
140 143      case s: String => 
141 144          addressFromString(s)
142 145      case _: Unit => 
143 146          unit
144 147      case _ => 
145 148          throw("Match error")
146 149  }
147 150  
148 151  let factoryAddressOrFail = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
149 152  
150 153  let lpAssetIdOption = match factoryAddressOption {
151 154      case a: Address => 
152 155          match getString(a, keyLpAssetId()) {
153 156              case s: String => 
154 157                  fromBase58String(s)
155 158              case _: Unit => 
156 159                  unit
157 160              case _ => 
158 161                  throw("Match error")
159 162          }
160 163      case _: Unit => 
161 164          unit
162 165      case _ => 
163 166          throw("Match error")
164 167  }
165 168  
166 169  let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
167 170  
168 171  let proxyTreasuryAddressOption = match factoryAddressOption {
169 172      case a: Address => 
170 173          match getString(a, keyProxyTreasuryAddress()) {
171 174              case s: String => 
172 175                  addressFromString(s)
173 176              case _: Unit => 
174 177                  unit
175 178              case _ => 
176 179                  throw("Match error")
177 180          }
178 181      case _: Unit => 
179 182          unit
180 183      case _ => 
181 184          throw("Match error")
182 185  }
183 186  
184 187  let proxyTreasuryAddressOrFail = valueOrErrorMessage(proxyTreasuryAddressOption, wrapErr("invalid proxy treasury address"))
185 188  
186 189  let mainTreasuryAddressOption = match factoryAddressOption {
187 190      case a: Address => 
188 191          match getString(a, keyMainTreasuryAddress()) {
189 192              case s: String => 
190 193                  addressFromString(s)
191 194              case _: Unit => 
192 195                  unit
193 196              case _ => 
194 197                  throw("Match error")
195 198          }
196 199      case _: Unit => 
197 200          unit
198 201      case _ => 
199 202          throw("Match error")
200 203  }
201 204  
202 205  let businessTreasuryAddressOption = match factoryAddressOption {
203 206      case a: Address => 
204 207          match getString(a, keyBusinessTreasuryAddress()) {
205 208              case s: String => 
206 209                  addressFromString(s)
207 210              case _: Unit => 
208 211                  unit
209 212              case _ => 
210 213                  throw("Match error")
211 214          }
212 215      case _: Unit => 
213 216          unit
214 217      case _ => 
215 218          throw("Match error")
216 219  }
217 220  
218 221  let mainTreasuryAddressOrFail = valueOrErrorMessage(mainTreasuryAddressOption, wrapErr("invalid main treasury address"))
219 222  
220 223  let businessTreasuryAddressOrFail = valueOrErrorMessage(businessTreasuryAddressOption, wrapErr("invalid business treasury address"))
221 224  
222 225  func getManagerPublicKeyOrUnit () = match factoryAddressOption {
223 226      case fa: Address => 
224 227          match getString(fa, keyManagerPublicKey()) {
225 228              case pub: String => 
226 229                  fromBase58String(pub)
227 230              case _ => 
228 231                  unit
229 232          }
230 233      case _ => 
231 234          unit
232 235  }
233 236  
234 237  
235 238  func onlyAddress (i,address) = if ((i.caller == address))
236 239      then true
237 240      else throwErr("permission denied")
238 241  
239 242  
240 243  func onlyFactory (i) = onlyAddress(i, factoryAddressOrFail)
241 244  
242 245  
243 246  func rewardForOption (rewards,target) = {
244 247      let s = size(rewards)
245 -     let $t057295754 = rewards[0]
246 -     let a0 = $t057295754._1
247 -     let r0 = $t057295754._2
248 -     let $t057575782 = rewards[1]
249 -     let a1 = $t057575782._1
250 -     let r1 = $t057575782._2
251 -     let $t057855810 = rewards[2]
252 -     let a2 = $t057855810._1
253 -     let r2 = $t057855810._2
248 +     let $t057855810 = rewards[0]
249 +     let a0 = $t057855810._1
250 +     let r0 = $t057855810._2
251 +     let $t058135838 = rewards[1]
252 +     let a1 = $t058135838._1
253 +     let r1 = $t058135838._2
254 +     let $t058415866 = rewards[2]
255 +     let a2 = $t058415866._1
256 +     let r2 = $t058415866._2
254 257      if (if ((s > 0))
255 258          then (a0 == target)
256 259          else false)
257 260          then r0
258 261          else if (if ((s > 1))
259 262              then (a1 == target)
260 263              else false)
261 264              then r1
262 265              else if (if ((s > 2))
263 266                  then (a2 == target)
264 267                  else false)
265 268                  then r2
266 269                  else unit
267 270      }
268 271  
269 272  
270 273  func finalizeINTERNAL (newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
271 274      let donatedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyDonated(unit)), 0)
272 275      let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
273 276      let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
274 277      let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
275 278      let pwrManagersBonusAmount = if (if ((profitRaw >= pwrManagersBonusInWaves))
276 279          then true
277 280          else (pwrManagersBonusInWaves == 0))
278 281          then pwrManagersBonusInWaves
279 282          else throwErr("power bonus is more than profit")
280 283      let profit = (profitRaw - pwrManagersBonusAmount)
281 284      let donationPart = if ((currentTreasuryVolumeInWaves > 0))
282 285          then fraction(donatedWavesAmount, SCALE8, currentTreasuryVolumeInWaves)
283 286          else 0
284 287      let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
285 288      let investmentProfitPartRaw = (profit - donationProfitPartRaw)
286 289      let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
287 290      let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
288 291          then treasuryVolumeDiffAllocationCoefAbs
289 292          else 0, SCALE8)
290 293      let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
291 294          then treasuryVolumeDiffAllocationCoefAbs
292 295          else 0, SCALE8)
293 296      let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
294 297      let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
295 298      let donatedWavesAmountNewRaw = (donatedWavesAmount + donationProfitPart)
296 299      let investedWavesAmountNewRaw = (investedWavesAmount + investmentProfitPart)
297 300      let donatedPartDebt = min([0, donatedWavesAmountNewRaw])
298 301      let investedPartDebt = min([0, investedWavesAmountNewRaw])
299 302      let donatedWavesAmountNew = (max([0, donatedWavesAmountNewRaw]) + investedPartDebt)
300 303      let investedWavesAmountNew = (max([0, investedWavesAmountNewRaw]) + donatedPartDebt)
301 304      let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
302 305      let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
303 306      let checkIfPriceNotZero = if ((newPrice != 0))
304 307          then true
305 308          else throwErr("LP price cannot be 0")
306 309      if ((checkIfPriceNotZero == checkIfPriceNotZero))
307 310          then {
308 311              let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
309 312              let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
310 313              let finalInvestedWavesAmount = (investedWavesAmountNew - paymentAmountMin)
311 314              let lpAssetFinalQuantity = (lpAssetQuantity - lpAssetAmountToBurn)
312 315              $Tuple6(paymentAmountMin, finalInvestedWavesAmount, donatedWavesAmountNew, newPrice, lpAssetAmountToBurn, lpAssetFinalQuantity)
313 316              }
314 317          else throw("Strict value is not equal to itself.")
315 318      }
316 319  
317 320  
318 - func claimCollateralINTERNAL (userAddressBytes,txId,transactionId) = {
321 + func claimCollateralINTERNAL (userAddressBytes,txId) = {
319 322      let userAddress = Address(userAddressBytes)
320 323      let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
321 324      let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
322 -     let $t092529365 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
323 -     let status = $t092529365._1
324 -     let lpAssetAmount = $t092529365._2
325 -     let targetPeriod = $t092529365._3
326 -     let claimTxId = $t092529365._4
325 +     let $t092819394 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
326 +     let status = $t092819394._1
327 +     let lpAssetAmount = $t092819394._2
328 +     let targetPeriod = $t092819394._3
329 +     let claimTxId = $t092819394._4
327 330      if ((targetPeriod > currentPeriodOrFail))
328 331          then throwErr("invalid withdrawal request period")
329 332          else {
330 333              let priceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(targetPeriod)), wrapErr("invalid price"))
331 334              let wavesAmount = if ((priceOrFail > 0))
332 335                  then fraction(lpAssetAmount, priceOrFail, SCALE8)
333 336                  else 0
334 337              let assetsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAssetIds(currentPeriodOrFail))
335 338              let amountsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAmounts(currentPeriodOrFail))
336 339              $Tuple6(userAddress, lpAssetAmount, targetPeriod, wavesAmount, assetsString, amountsString)
337 340              }
338 341      }
339 342  
340 343  
341 - func claimCollateralREADONLYStringResponse (userAddressBytes,txId,transactionId) = {
342 -     let $t01017910360 = claimCollateralINTERNAL(userAddressBytes, txId, transactionId)
343 -     let userAddress = $t01017910360._1
344 -     let lpAssetAmount = $t01017910360._2
345 -     let targetPeriod = $t01017910360._3
346 -     let wavesAmount = $t01017910360._4
347 -     let assetsString = $t01017910360._5
348 -     let amountsString = $t01017910360._6
344 + func claimCollateralREADONLYStringResponse (userAddressBytes,txId) = {
345 +     let $t01018110347 = claimCollateralINTERNAL(userAddressBytes, txId)
346 +     let userAddress = $t01018110347._1
347 +     let lpAssetAmount = $t01018110347._2
348 +     let targetPeriod = $t01018110347._3
349 +     let wavesAmount = $t01018110347._4
350 +     let assetsString = $t01018110347._5
351 +     let amountsString = $t01018110347._6
349 352      let assets = makeString(removeByIndex(split_51C(assetsString, SEP), 0), ":")
350 353      let amounts = makeString(removeByIndex(split_51C(amountsString, SEP), 0), ":")
351 354      makeString(["%d%s%s", toString(wavesAmount), assets, amounts], SEP)
352 355      }
353 356  
354 357  
355 358  @Callable(i)
356 359  func claimLP (userAddressBytes) = {
357 360      let checkCaller = onlyFactory(i)
358 361      if ((checkCaller == checkCaller))
359 362          then {
360 363              let userAddress = Address(userAddressBytes)
361 364              let available = valueOrElse(getInteger(factoryAddressOrFail, keyAvailable(userAddress)), 0)
362 365              let claimed = valueOrElse(getInteger(factoryAddressOrFail, keyClaimed(userAddress)), 0)
363 366              let factoryActions = if ((available > 0))
364 367                  then [invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, available, lpAssetIdOrFail], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(userAddress), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyClaimed(userAddress), (claimed + available)], nil)]
365 368                  else throwErr("nothing to claim")
366 369              $Tuple2(nil, factoryActions)
367 370              }
368 371          else throw("Strict value is not equal to itself.")
369 372      }
370 373  
371 374  
372 375  
373 376  @Callable(i)
374 377  func finalize (userAddressBytes,newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
375 378      let checkCaller = onlyFactory(i)
376 379      if ((checkCaller == checkCaller))
377 380          then {
378 381              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
379 382              let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
380 383              let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
381 384              let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
382 385              let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
383 386              let periodEndHeight = ((currentStartHeight + periodLength) - 1)
384 387              let checks = [if ((i.originCaller == mainTreasuryAddressOrFail))
385 388                  then true
386 389                  else throwErr("permission denied"), if ((nextBlockToProcess > periodEndHeight))
387 390                  then true
388 391                  else throwErr("unprocessed blocks"), if ((newTreasuryVolumeInWaves >= 0))
389 392                  then true
390 393                  else throwErr("invalid new treasury volume"), if ((pwrManagersBonusInWaves >= 0))
391 394                  then true
392 395                  else throwErr("invalid PWR managers bonus"), if (if ((treasuryVolumeDiffAllocationCoef >= -(SCALE8)))
393 396                  then (SCALE8 >= treasuryVolumeDiffAllocationCoef)
394 397                  else false)
395 398                  then true
396 399                  else throwErr("invalid treasury volume diff allocation coefficient")]
397 400              if ((checks == checks))
398 401                  then {
399 -                     let $t01312213382 = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
400 -                     let paymentAmountMin = $t01312213382._1
401 -                     let finalInvestedWavesAmount = $t01312213382._2
402 -                     let donatedWavesAmountNew = $t01312213382._3
403 -                     let newPrice = $t01312213382._4
404 -                     let lpAssetAmountToBurn = $t01312213382._5
405 -                     let lpAssetFinalQuantity = $t01312213382._6
402 +                     let $t01310913369 = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
403 +                     let paymentAmountMin = $t01310913369._1
404 +                     let finalInvestedWavesAmount = $t01310913369._2
405 +                     let donatedWavesAmountNew = $t01310913369._3
406 +                     let newPrice = $t01310913369._4
407 +                     let lpAssetAmountToBurn = $t01310913369._5
408 +                     let lpAssetFinalQuantity = $t01310913369._6
406 409                      let newPeriod = (currentPeriodOrFail + 1)
407 410                      func addNewAction (actions,payment) =                     {
408 -                         let $t01353013592 = actions
409 -                         let scriptTransfers = $t01353013592._1
410 -                         let assetIdsString = $t01353013592._2
411 -                         let amountsString = $t01353013592._3
411 +                         let $t01351713579 = actions
412 +                         let scriptTransfers = $t01351713579._1
413 +                         let assetIdsString = $t01351713579._2
414 +                         let amountsString = $t01351713579._3
412 415                          let paymentAmount = payment.amount
413 416                          let paymentAssetId = payment.assetId
414 417                          let newAssetIdsString = ("%s" + makeString([assetIdsString, assetIdToString(paymentAssetId)], SEP))
415 418                          let newAmountsString = ("%d" + makeString([amountsString, toString(paymentAmount)], SEP))
416 419                          let newScriptTransfer = ScriptTransfer(factoryAddressOrFail, paymentAmount, paymentAssetId)
417 420                          $Tuple3((scriptTransfers :+ newScriptTransfer), newAssetIdsString, newAmountsString)
418 421                          }
419 422  
420 -                     let $t01405214143 = {
423 +                     let $t01403914130 = {
421 424                          let $l = i.payments
422 425                          let $s = size($l)
423 426                          let $acc0 = $Tuple3(nil, "", "")
424 427                          func $f0_1 ($a,$i) =                         if (($i >= $s))
425 428                              then $a
426 429                              else addNewAction($a, $l[$i])
427 430  
428 431                          func $f0_2 ($a,$i) =                         if (($i >= $s))
429 432                              then $a
430 433                              else throw("List size exceeds 10")
431 434  
432 435                          $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)
433 436                          }
434 -                     let scriptTransfers = $t01405214143._1
435 -                     let AssetIds = $t01405214143._2
436 -                     let Amounts = $t01405214143._3
437 +                     let scriptTransfers = $t01403914130._1
438 +                     let AssetIds = $t01403914130._2
439 +                     let Amounts = $t01403914130._3
437 440                      let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyPowerManagerBonus(currentPeriodOrFail), pwrManagersBonusInWaves], nil), invoke(factoryAddressOrFail, "integerEntry", [keyCurrentPeriod(), newPeriod], nil), invoke(factoryAddressOrFail, "integerEntry", [keyPriceForPeriod(newPeriod), newPrice], nil), invoke(factoryAddressOrFail, "integerEntry", [keyStartHeight(newPeriod), (periodEndHeight + 1)], nil), invoke(factoryAddressOrFail, "burn", [lpAssetAmountToBurn], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), finalInvestedWavesAmount], nil), invoke(factoryAddressOrFail, "integerEntry", [keyDonated(unit), donatedWavesAmountNew], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAssetIds(newPeriod), AssetIds], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAmounts(newPeriod), Amounts], nil)]
438 441                      $Tuple2(scriptTransfers, factoryActions)
439 442                      }
440 443                  else throw("Strict value is not equal to itself.")
441 444              }
442 445          else throw("Strict value is not equal to itself.")
443 446      }
444 447  
445 448  
446 449  
447 450  @Callable(i)
448 451  func finalizeREADONLY (newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
449 452      let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
450 453      let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
451 454      let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
452 455      let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
453 456      let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
454 457      let periodEndHeight = ((currentStartHeight + periodLength) - 1)
455 458      let checks = [if ((nextBlockToProcess > periodEndHeight))
456 459          then true
457 460          else throwErr("unprocessed blocks"), if ((newTreasuryVolumeInWaves >= 0))
458 461          then true
459 462          else throwErr("invalid new treasury volume"), if ((pwrManagersBonusInWaves >= 0))
460 463          then true
461 464          else throwErr("invalid PWR managers bonus"), if (if ((treasuryVolumeDiffAllocationCoef >= -(SCALE8)))
462 465          then (SCALE8 >= treasuryVolumeDiffAllocationCoef)
463 466          else false)
464 467          then true
465 468          else throwErr("invalid treasury volume diff allocation coefficient")]
466 469      if ((checks == checks))
467 470          then $Tuple2(nil, finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef))
468 471          else throw("Strict value is not equal to itself.")
469 472      }
470 473  
471 474  
472 475  
473 476  @Callable(i)
474 477  func invest (userAddressBytes) = {
475 478      let checkCaller = onlyFactory(i)
476 479      if ((checkCaller == checkCaller))
477 480          then {
478 481              let userAddress = Address(userAddressBytes)
479 482              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
480 -             let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
481 -             let payment = if ((size(i.payments) == 1))
482 -                 then i.payments[0]
483 -                 else throwErr("invalid payments")
484 -             let $t01762417801 = if (if ((payment.assetId == unit))
485 -                 then (payment.amount > 0)
486 -                 else false)
487 -                 then $Tuple2(payment.amount, payment.assetId)
488 -                 else throwErr("invalid payment amount")
489 -             let paymentAmount = $t01762417801._1
490 -             let paymentAssetId = $t01762417801._2
491 -             let treasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
492 -             let paymentsWithoutTreasuryPart = fraction(paymentAmount, (SCALE8 - treasuryPart), SCALE8)
493 -             let lpAssetAmount = if ((currentPriceOrFail > 0))
494 -                 then fraction(paymentsWithoutTreasuryPart, SCALE8, currentPriceOrFail)
495 -                 else 0
496 -             let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
497 -             let actions = [ScriptTransfer(mainTreasuryAddressOrFail, paymentsWithoutTreasuryPart, paymentAssetId), ScriptTransfer(businessTreasuryAddressOrFail, treasuryPart, paymentAssetId)]
498 -             let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentsWithoutTreasuryPart)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
499 -             $Tuple2(actions, factoryActions)
483 +             let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
484 +             let investPeriodLength = getIntegerValue(factoryAddressOrFail, keyInvestPeriodLength())
485 +             let heightCheck = if (((currentStartHeight + investPeriodLength) > height))
486 +                 then true
487 +                 else throwErr("too late to invest in this period")
488 +             if ((heightCheck == heightCheck))
489 +                 then {
490 +                     let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
491 +                     let payment = if ((size(i.payments) == 1))
492 +                         then i.payments[0]
493 +                         else throwErr("invalid payments")
494 +                     let $t01798718164 = if (if ((payment.assetId == unit))
495 +                         then (payment.amount > 0)
496 +                         else false)
497 +                         then $Tuple2(payment.amount, payment.assetId)
498 +                         else throwErr("invalid payment amount")
499 +                     let paymentAmount = $t01798718164._1
500 +                     let paymentAssetId = $t01798718164._2
501 +                     let treasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
502 +                     let paymentsWithoutTreasuryPart = fraction(paymentAmount, (SCALE8 - treasuryPart), SCALE8)
503 +                     let lpAssetAmount = if ((currentPriceOrFail > 0))
504 +                         then fraction(paymentsWithoutTreasuryPart, SCALE8, currentPriceOrFail)
505 +                         else 0
506 +                     let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
507 +                     let actions = [ScriptTransfer(mainTreasuryAddressOrFail, paymentsWithoutTreasuryPart, paymentAssetId), ScriptTransfer(businessTreasuryAddressOrFail, treasuryPart, paymentAssetId)]
508 +                     let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentsWithoutTreasuryPart)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
509 +                     $Tuple2(actions, factoryActions)
510 +                     }
511 +                 else throw("Strict value is not equal to itself.")
500 512              }
501 513          else throw("Strict value is not equal to itself.")
502 514      }
503 515  
504 516  
505 517  
506 518  @Callable(i)
507 519  func withdraw (userAddressBytes) = {
508 520      let checkCaller = onlyFactory(i)
509 521      if ((checkCaller == checkCaller))
510 522          then {
511 523              let userAddress = Address(userAddressBytes)
512 524              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
513 525              let payment = if ((size(i.payments) == 1))
514 526                  then i.payments[0]
515 527                  else throwErr(wrapErr("invalid payments"))
516 528              let paymentAssetId = if ((payment.assetId == lpAssetIdOrFail))
517 529                  then lpAssetIdOrFail
518 530                  else throwErr("invalid payment asset")
519 531              let paymentAmount = if ((payment.amount > 0))
520 532                  then payment.amount
521 533                  else throwErr("invalid payment amount")
522 534              let withdrawal = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
523 535              let actions = [ScriptTransfer(factoryAddressOrFail, paymentAmount, paymentAssetId)]
524 536              let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), (withdrawal + paymentAmount)], nil), invoke(factoryAddressOrFail, "stringEntry", [keyWithdrawalRequest(userAddress, i.transactionId), valueWithdrawalRequest(PENDING, paymentAmount, (currentPeriodOrFail + 1), unit)], nil)]
525 537              if ((factoryActions == factoryActions))
526 538                  then $Tuple2(actions, factoryActions)
527 539                  else throw("Strict value is not equal to itself.")
528 540              }
529 541          else throw("Strict value is not equal to itself.")
530 542      }
531 543  
532 544  
533 545  
534 546  @Callable(i)
535 547  func cancelWithdraw (userAddressBytes,txId) = {
536 548      let checkCaller = onlyFactory(i)
537 549      if ((checkCaller == checkCaller))
538 550          then {
539 551              let userAddress = Address(userAddressBytes)
540 552              let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
541 553              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
542 -             let $t02053520648 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
543 -             let status = $t02053520648._1
544 -             let lpAssetAmount = $t02053520648._2
545 -             let targetPeriod = $t02053520648._3
546 -             let claimTxId = $t02053520648._4
554 +             let $t02089821011 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
555 +             let status = $t02089821011._1
556 +             let lpAssetAmount = $t02089821011._2
557 +             let targetPeriod = $t02089821011._3
558 +             let claimTxId = $t02089821011._4
547 559              let checks = [if ((status == PENDING))
548 560                  then true
549 561                  else throwErr("invalid withdrawal request status"), if ((targetPeriod > currentPeriodOrFail))
550 562                  then true
551 563                  else throwErr("invalid withdrawal request period")]
552 564              if ((checks == checks))
553 565                  then {
554 566                      let withdrawal = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyWithdrawal()), wrapErr("invalid total withdrawal amount"))
555 567                      let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), if ((withdrawal >= lpAssetAmount))
556 568                          then (withdrawal - lpAssetAmount)
557 569                          else throwErr("invalid withdrawal amount")], nil), invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, txId)], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
558 570                      if ((factoryActions == factoryActions))
559 571                          then $Tuple2(nil, factoryActions)
560 572                          else throw("Strict value is not equal to itself.")
561 573                      }
562 574                  else throw("Strict value is not equal to itself.")
563 575              }
564 576          else throw("Strict value is not equal to itself.")
565 577      }
566 578  
567 579  
568 580  
569 581  @Callable(i)
570 582  func claimCollateral (userAddressBytes,txId) = {
571 583      let checkCaller = onlyFactory(i)
572 584      if ((checkCaller == checkCaller))
573 585          then {
574 -             let $t02163421836 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId), i.transactionId)
575 -             let userAddress = $t02163421836._1
576 -             let lpAssetAmount = $t02163421836._2
577 -             let targetPeriod = $t02163421836._3
578 -             let wavesAmount = $t02163421836._4
579 -             let assetsString = $t02163421836._5
580 -             let amountsString = $t02163421836._6
586 +             let $t02199722182 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId))
587 +             let userAddress = $t02199722182._1
588 +             let lpAssetAmount = $t02199722182._2
589 +             let targetPeriod = $t02199722182._3
590 +             let wavesAmount = $t02199722182._4
591 +             let assetsString = $t02199722182._5
592 +             let amountsString = $t02199722182._6
581 593              let assetsList = removeByIndex(split_51C(assetsString, SEP), 0)
582 594              let amountsList = removeByIndex(split_51C(amountsString, SEP), 0)
583 595              let factoryActions = [invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, fromBase58String(txId))], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawalHistory(userAddress, fromBase58String(txId)), lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAssets", [userAddressBytes, assetsList, amountsList], nil)]
584 596              $Tuple2(nil, factoryActions)
585 597              }
586 598          else throw("Strict value is not equal to itself.")
587 599      }
588 600  
589 601  
590 602  
591 603  @Callable(i)
592 604  func claimCollateralBulk (userAddressBytes,txIds) = {
593 605      let checkCaller = onlyFactory(i)
594 606      if ((checkCaller == checkCaller))
595 607          then {
596 608              func addNewAction (state,txId) =             {
597 -                 let $t02259422810 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId), i.transactionId)
598 -                 let userAddress = $t02259422810._1
599 -                 let lpAssetAmount = $t02259422810._2
600 -                 let targetPeriod = $t02259422810._3
601 -                 let wavesAmount = $t02259422810._4
602 -                 let assetsString = $t02259422810._5
603 -                 let amountsString = $t02259422810._6
609 +                 let $t02294023139 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId))
610 +                 let userAddress = $t02294023139._1
611 +                 let lpAssetAmount = $t02294023139._2
612 +                 let targetPeriod = $t02294023139._3
613 +                 let wavesAmount = $t02294023139._4
614 +                 let assetsString = $t02294023139._5
615 +                 let amountsString = $t02294023139._6
604 616                  let assetsList = removeByIndex(split_51C(assetsString, SEP), 0)
605 617                  let amountsList = removeByIndex(split_51C(amountsString, SEP), 0)
606 618                  let newActions = [invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, fromBase58String(txId))], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawalHistory(userAddress, fromBase58String(txId)), lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAssets", [userAddressBytes, assetsList, amountsList], nil)]
607 619                  (state ++ newActions)
608 620                  }
609 621  
610 622              let allFactoryActions = {
611 623                  let $l = txIds
612 624                  let $s = size($l)
613 625                  let $acc0 = nil
614 626                  func $f0_1 ($a,$i) =                 if (($i >= $s))
615 627                      then $a
616 628                      else addNewAction($a, $l[$i])
617 629  
618 630                  func $f0_2 ($a,$i) =                 if (($i >= $s))
619 631                      then $a
620 632                      else throw("List size exceeds 10")
621 633  
622 634                  $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)
623 635                  }
624 636              $Tuple2(nil, allFactoryActions)
625 637              }
626 638          else throw("Strict value is not equal to itself.")
627 639      }
628 640  
629 641  
630 642  
631 643  @Callable(i)
632 644  func claimCollateralREADONLY (userAddressBytes,txId) = {
633 -     let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId), i.transactionId)
645 +     let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId))
634 646      $Tuple2(nil, response)
635 647      }
636 648  
637 649  
638 650  
639 651  @Callable(i)
640 652  func claimCollateralBulkREADONLY (userAddressBytes,txIds) = {
641 653      func processTxId (state,txId) =     {
642 -         let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId), i.transactionId)
654 +         let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId))
643 655          (state :+ response)
644 656          }
645 657  
646 658      let allResponses = {
647 659          let $l = txIds
648 660          let $s = size($l)
649 661          let $acc0 = nil
650 662          func $f0_1 ($a,$i) =         if (($i >= $s))
651 663              then $a
652 664              else processTxId($a, $l[$i])
653 665  
654 666          func $f0_2 ($a,$i) =         if (($i >= $s))
655 667              then $a
656 668              else throw("List size exceeds 10")
657 669  
658 670          $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)
659 671          }
660 672      $Tuple2(nil, allResponses)
661 673      }
662 674  
663 675  
664 676  
665 677  @Callable(i)
666 678  func processBlocks (userAddressBytes) = {
667 679      let checkCaller = onlyFactory(i)
668 680      if ((checkCaller == checkCaller))
669 681          then {
670 682              let userAddress = Address(userAddressBytes)
671 683              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
672 684              let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
673 685              let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
674 686              let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
675 687              let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
676 688              let periodEndHeight = ((currentStartHeight + periodLength) - 1)
677 689              let blocksProcessingBatchSizeMax = 40
678 690              let blocksProcessingBatchSize = if (if (if ((height >= nextBlockToProcess))
679 691                  then if ((nextBlockToProcess >= currentStartHeight))
680 692                      then true
681 693                      else (currentPeriodOrFail == 0)
682 694                  else false)
683 695                  then (periodEndHeight >= nextBlockToProcess)
684 696                  else false)
685 697                  then min([((periodEndHeight - nextBlockToProcess) + 1), blocksProcessingBatchSizeMax])
686 698                  else throwErr(wrapErr("invalid target block"))
687 699              let blockProcessingReward = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyBlockProcessingReward()), wrapErr("invalid block processing reward"))
688 700              let blockProcessingRewardByGenerator = (blockProcessingReward / blocksProcessingBatchSize)
689 701              let blockProcessingRewardByGeneratorRemainder = (blockProcessingReward - (blockProcessingRewardByGenerator * blocksProcessingBatchSize))
690 702              func map (acc,inc) =             if ((inc >= blocksProcessingBatchSize))
691 703                  then acc
692 704                  else {
693 705                      let targetBlockHeight = (nextBlockToProcess + inc)
694 706                      let targetBlockInfo = valueOrErrorMessage(blockInfoByHeight(targetBlockHeight), wrapErr("invalid block info"))
695 707                      let treasuryRewardOrFail = valueOrErrorMessage(rewardForOption(targetBlockInfo.rewards, proxyTreasuryAddressOrFail), wrapErr(("invalid treasury reward for height " + toString(targetBlockHeight))))
696 708                      let generator = targetBlockInfo.generator
697 709                      let available = valueOrElse(getInteger(factoryAddressOrFail, keyAvailable(generator)), 0)
698 710                      let callerReward = if ((inc == (blocksProcessingBatchSize - 1)))
699 711                          then (blockProcessingRewardByGenerator + blockProcessingRewardByGeneratorRemainder)
700 712                          else blockProcessingRewardByGenerator
701 713                      let lpAssetAmount = if ((currentPriceOrFail > 0))
702 714                          then fraction((treasuryRewardOrFail - callerReward), SCALE8, currentPriceOrFail)
703 715                          else 0
704 716                      let factoryActionsSingle = [invoke(factoryAddressOrFail, "stringEntry", [keyBlockProcessed(targetBlockHeight), makeString([toBase58String(i.transactionId), toString(currentPeriodOrFail), toString(generator), toBase58String(userAddressBytes), toString(treasuryRewardOrFail), toString(callerReward), toString(lpAssetAmount)], SEP)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(generator), (available + lpAssetAmount)], nil)]
705 717                      if ((factoryActionsSingle == factoryActionsSingle))
706 718                          then {
707 -                             let $t02754827581 = acc
708 -                             let lpAssetAcc = $t02754827581._1
709 -                             let rewardAcc = $t02754827581._2
719 +                             let $t02784327876 = acc
720 +                             let lpAssetAcc = $t02784327876._1
721 +                             let rewardAcc = $t02784327876._2
710 722                              $Tuple2((lpAssetAcc + lpAssetAmount), (rewardAcc + treasuryRewardOrFail))
711 723                              }
712 724                          else throw("Strict value is not equal to itself.")
713 725                      }
714 726  
715 727              let list = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39]
716 -             let $t02784827924 = {
728 +             let $t02814328219 = {
717 729                  let $l = list
718 730                  let $s = size($l)
719 731                  let $acc0 = $Tuple2(0, 0)
720 732                  func $f0_1 ($a,$i) =                 if (($i >= $s))
721 733                      then $a
722 734                      else map($a, $l[$i])
723 735  
724 736                  func $f0_2 ($a,$i) =                 if (($i >= $s))
725 737                      then $a
726 738                      else throw("List size exceeds 40")
727 739  
728 740                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40)
729 741                  }
730 -             if (($t02784827924 == $t02784827924))
742 +             if (($t02814328219 == $t02814328219))
731 743                  then {
732 -                     let rewardAmountTotal = $t02784827924._2
733 -                     let lpAssetAmountTotal = $t02784827924._1
744 +                     let rewardAmountTotal = $t02814328219._2
745 +                     let lpAssetAmountTotal = $t02814328219._1
734 746                      let businessTreasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
735 747                      let rewardToBusinessTreasuryAmount = fraction(rewardAmountTotal, businessTreasuryPart, SCALE8)
736 748                      let rewardToMainTreasuryAmount = ((rewardAmountTotal - rewardToBusinessTreasuryAmount) - blockProcessingReward)
737 749                      let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
738 750                      let actions = [invoke(factoryAddressOrFail, "reissue", [lpAssetAmountTotal], nil), invoke(factoryAddressOrFail, "integerEntry", [keyNextBlockToProcess(), (nextBlockToProcess + blocksProcessingBatchSize)], nil), invoke(factoryAddressOrFail, "transferFromProxyTreasury", [mainTreasuryAddressOrFail.bytes, rewardToMainTreasuryAmount], nil), invoke(factoryAddressOrFail, "transferFromProxyTreasury", [userAddressBytes, blockProcessingReward], nil), invoke(factoryAddressOrFail, "transferFromProxyTreasury", [businessTreasuryAddressOrFail.bytes, rewardToBusinessTreasuryAmount], nil), invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + rewardToMainTreasuryAmount)], nil)]
739 751                      if ((actions == actions))
740 752                          then $Tuple2(nil, unit)
741 753                          else throw("Strict value is not equal to itself.")
742 754                      }
743 755                  else throw("Strict value is not equal to itself.")
744 756              }
745 757          else throw("Strict value is not equal to itself.")
746 758      }
747 759  
748 760  
749 761  @Verifier(tx)
750 762  func verify () = {
751 763      let publicKey =     match getManagerPublicKeyOrUnit() {
752 764          case pub: ByteVector => 
753 765              pub
754 766          case _ => 
755 767              tx.senderPublicKey
756 768      }
757 769      sigVerify(tx.bodyBytes, tx.proofs[0], publicKey)
758 770      }
759 771

Old	New		Differences
83	83
84	84
85	85		func keyPeriodLength () = "%s__periodLength"
	86	+
	87	+
	88	+	func keyInvestPeriodLength () = "%s__investPeriodLength"
86	89
87	90
88	91		func keyBlockProcessingReward () = "%s__blockProcessingReward"

242	245
243	246		func rewardForOption (rewards,target) = {
244	247		let s = size(rewards)
245		-	let $~~t057295754~~ = rewards[0]
246		-	let a0 = $~~t057295754~~._1
247		-	let r0 = $~~t057295754~~._2
248		-	let $~~t057575782~~ = rewards[1]
249		-	let a1 = $~~t057575782~~._1
250		-	let r1 = $~~t057575782~~._2
251		-	let $~~t057855810~~ = rewards[2]
252		-	let a2 = $~~t057855810~~._1
253		-	let r2 = $~~t057855810~~._2
	248	+	let $t057855810 = rewards[0]
	249	+	let a0 = $t057855810._1
	250	+	let r0 = $t057855810._2
	251	+	let $t058135838 = rewards[1]
	252	+	let a1 = $t058135838._1
	253	+	let r1 = $t058135838._2
	254	+	let $t058415866 = rewards[2]
	255	+	let a2 = $t058415866._1
	256	+	let r2 = $t058415866._2
254	257		if (if ((s > 0))
255	258		then (a0 == target)
256	259		else false)

315	318		}
316	319
317	320
318		-	func claimCollateralINTERNAL (userAddressBytes,txId~~,transactionId~~) = {
	321	+	func claimCollateralINTERNAL (userAddressBytes,txId) = {
319	322		let userAddress = Address(userAddressBytes)
320	323		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
321	324		let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
322		-	let $~~t092529365~~ = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
323		-	let status = $~~t092529365~~._1
324		-	let lpAssetAmount = $~~t092529365~~._2
325		-	let targetPeriod = $~~t092529365~~._3
326		-	let claimTxId = $~~t092529365~~._4
	325	+	let $t092819394 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
	326	+	let status = $t092819394._1
	327	+	let lpAssetAmount = $t092819394._2
	328	+	let targetPeriod = $t092819394._3
	329	+	let claimTxId = $t092819394._4
327	330		if ((targetPeriod > currentPeriodOrFail))
328	331		then throwErr("invalid withdrawal request period")
329	332		else {

338	341		}
339	342
340	343
341		-	func claimCollateralREADONLYStringResponse (userAddressBytes,txId~~,transactionId~~) = {
342		-	let $~~t01017910360~~ = claimCollateralINTERNAL(userAddressBytes, txId~~, transactionId~~)
343		-	let userAddress = $~~t01017910360~~._1
344		-	let lpAssetAmount = $~~t01017910360~~._2
345		-	let targetPeriod = $~~t01017910360~~._3
346		-	let wavesAmount = $~~t01017910360~~._4
347		-	let assetsString = $~~t01017910360~~._5
348		-	let amountsString = $~~t01017910360~~._6
	344	+	func claimCollateralREADONLYStringResponse (userAddressBytes,txId) = {
	345	+	let $t01018110347 = claimCollateralINTERNAL(userAddressBytes, txId)
	346	+	let userAddress = $t01018110347._1
	347	+	let lpAssetAmount = $t01018110347._2
	348	+	let targetPeriod = $t01018110347._3
	349	+	let wavesAmount = $t01018110347._4
	350	+	let assetsString = $t01018110347._5
	351	+	let amountsString = $t01018110347._6
349	352		let assets = makeString(removeByIndex(split_51C(assetsString, SEP), 0), ":")
350	353		let amounts = makeString(removeByIndex(split_51C(amountsString, SEP), 0), ":")
351	354		makeString(["%d%s%s", toString(wavesAmount), assets, amounts], SEP)

396	399		else throwErr("invalid treasury volume diff allocation coefficient")]
397	400		if ((checks == checks))
398	401		then {
399		-	let $~~t01312213382~~ = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
400		-	let paymentAmountMin = $~~t01312213382~~._1
401		-	let finalInvestedWavesAmount = $~~t01312213382~~._2
402		-	let donatedWavesAmountNew = $~~t01312213382~~._3
403		-	let newPrice = $~~t01312213382~~._4
404		-	let lpAssetAmountToBurn = $~~t01312213382~~._5
405		-	let lpAssetFinalQuantity = $~~t01312213382~~._6
	402	+	let $t01310913369 = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
	403	+	let paymentAmountMin = $t01310913369._1
	404	+	let finalInvestedWavesAmount = $t01310913369._2
	405	+	let donatedWavesAmountNew = $t01310913369._3
	406	+	let newPrice = $t01310913369._4
	407	+	let lpAssetAmountToBurn = $t01310913369._5
	408	+	let lpAssetFinalQuantity = $t01310913369._6
406	409		let newPeriod = (currentPeriodOrFail + 1)
407	410		func addNewAction (actions,payment) = {
408		-	let $~~t01353013592~~ = actions
409		-	let scriptTransfers = $~~t01353013592~~._1
410		-	let assetIdsString = $~~t01353013592~~._2
411		-	let amountsString = $~~t01353013592~~._3
	411	+	let $t01351713579 = actions
	412	+	let scriptTransfers = $t01351713579._1
	413	+	let assetIdsString = $t01351713579._2
	414	+	let amountsString = $t01351713579._3
412	415		let paymentAmount = payment.amount
413	416		let paymentAssetId = payment.assetId
414	417		let newAssetIdsString = ("%s" + makeString([assetIdsString, assetIdToString(paymentAssetId)], SEP))

417	420		$Tuple3((scriptTransfers :+ newScriptTransfer), newAssetIdsString, newAmountsString)
418	421		}
419	422
420		-	let $~~t01405214143~~ = {
	423	+	let $t01403914130 = {
421	424		let $l = i.payments
422	425		let $s = size($l)
423	426		let $acc0 = $Tuple3(nil, "", "")

431	434
432	435		$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)
433	436		}
434		-	let scriptTransfers = $~~t01405214143~~._1
435		-	let AssetIds = $~~t01405214143~~._2
436		-	let Amounts = $~~t01405214143~~._3
	437	+	let scriptTransfers = $t01403914130._1
	438	+	let AssetIds = $t01403914130._2
	439	+	let Amounts = $t01403914130._3
437	440		let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyPowerManagerBonus(currentPeriodOrFail), pwrManagersBonusInWaves], nil), invoke(factoryAddressOrFail, "integerEntry", [keyCurrentPeriod(), newPeriod], nil), invoke(factoryAddressOrFail, "integerEntry", [keyPriceForPeriod(newPeriod), newPrice], nil), invoke(factoryAddressOrFail, "integerEntry", [keyStartHeight(newPeriod), (periodEndHeight + 1)], nil), invoke(factoryAddressOrFail, "burn", [lpAssetAmountToBurn], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), finalInvestedWavesAmount], nil), invoke(factoryAddressOrFail, "integerEntry", [keyDonated(unit), donatedWavesAmountNew], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAssetIds(newPeriod), AssetIds], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAmounts(newPeriod), Amounts], nil)]
438	441		$Tuple2(scriptTransfers, factoryActions)
439	442		}

477	480		then {
478	481		let userAddress = Address(userAddressBytes)
479	482		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
480		-	let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
481		-	let payment = if ((size(i.payments) == 1))
482		-	then i.payments[0]
483		-	else throwErr("invalid payments")
484		-	let $t01762417801 = if (if ((payment.assetId == unit))
485		-	then (payment.amount > 0)
486		-	else false)
487		-	then $Tuple2(payment.amount, payment.assetId)
488		-	else throwErr("invalid payment amount")
489		-	let paymentAmount = $t01762417801._1
490		-	let paymentAssetId = $t01762417801._2
491		-	let treasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
492		-	let paymentsWithoutTreasuryPart = fraction(paymentAmount, (SCALE8 - treasuryPart), SCALE8)
493		-	let lpAssetAmount = if ((currentPriceOrFail > 0))
494		-	then fraction(paymentsWithoutTreasuryPart, SCALE8, currentPriceOrFail)
495		-	else 0
496		-	let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
497		-	let actions = [ScriptTransfer(mainTreasuryAddressOrFail, paymentsWithoutTreasuryPart, paymentAssetId), ScriptTransfer(businessTreasuryAddressOrFail, treasuryPart, paymentAssetId)]
498		-	let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentsWithoutTreasuryPart)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
499		-	$Tuple2(actions, factoryActions)
	483	+	let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
	484	+	let investPeriodLength = getIntegerValue(factoryAddressOrFail, keyInvestPeriodLength())
	485	+	let heightCheck = if (((currentStartHeight + investPeriodLength) > height))
	486	+	then true
	487	+	else throwErr("too late to invest in this period")
	488	+	if ((heightCheck == heightCheck))
	489	+	then {
	490	+	let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
	491	+	let payment = if ((size(i.payments) == 1))
	492	+	then i.payments[0]
	493	+	else throwErr("invalid payments")
	494	+	let $t01798718164 = if (if ((payment.assetId == unit))
	495	+	then (payment.amount > 0)
	496	+	else false)
	497	+	then $Tuple2(payment.amount, payment.assetId)
	498	+	else throwErr("invalid payment amount")
	499	+	let paymentAmount = $t01798718164._1
	500	+	let paymentAssetId = $t01798718164._2
	501	+	let treasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
	502	+	let paymentsWithoutTreasuryPart = fraction(paymentAmount, (SCALE8 - treasuryPart), SCALE8)
	503	+	let lpAssetAmount = if ((currentPriceOrFail > 0))
	504	+	then fraction(paymentsWithoutTreasuryPart, SCALE8, currentPriceOrFail)
	505	+	else 0
	506	+	let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
	507	+	let actions = [ScriptTransfer(mainTreasuryAddressOrFail, paymentsWithoutTreasuryPart, paymentAssetId), ScriptTransfer(businessTreasuryAddressOrFail, treasuryPart, paymentAssetId)]
	508	+	let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentsWithoutTreasuryPart)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
	509	+	$Tuple2(actions, factoryActions)
	510	+	}
	511	+	else throw("Strict value is not equal to itself.")
500	512		}
501	513		else throw("Strict value is not equal to itself.")
502	514		}

539	551		let userAddress = Address(userAddressBytes)
540	552		let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
541	553		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
542		-	let $~~t02053520648~~ = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
543		-	let status = $~~t02053520648~~._1
544		-	let lpAssetAmount = $~~t02053520648~~._2
545		-	let targetPeriod = $~~t02053520648~~._3
546		-	let claimTxId = $~~t02053520648~~._4
	554	+	let $t02089821011 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
	555	+	let status = $t02089821011._1
	556	+	let lpAssetAmount = $t02089821011._2
	557	+	let targetPeriod = $t02089821011._3
	558	+	let claimTxId = $t02089821011._4
547	559		let checks = [if ((status == PENDING))
548	560		then true
549	561		else throwErr("invalid withdrawal request status"), if ((targetPeriod > currentPeriodOrFail))

571	583		let checkCaller = onlyFactory(i)
572	584		if ((checkCaller == checkCaller))
573	585		then {
574		-	let $~~t02163421836~~ = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId)~~, i.transactionId~~)
575		-	let userAddress = $~~t02163421836~~._1
576		-	let lpAssetAmount = $~~t02163421836~~._2
577		-	let targetPeriod = $~~t02163421836~~._3
578		-	let wavesAmount = $~~t02163421836~~._4
579		-	let assetsString = $~~t02163421836~~._5
580		-	let amountsString = $~~t02163421836~~._6
	586	+	let $t02199722182 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId))
	587	+	let userAddress = $t02199722182._1
	588	+	let lpAssetAmount = $t02199722182._2
	589	+	let targetPeriod = $t02199722182._3
	590	+	let wavesAmount = $t02199722182._4
	591	+	let assetsString = $t02199722182._5
	592	+	let amountsString = $t02199722182._6
581	593		let assetsList = removeByIndex(split_51C(assetsString, SEP), 0)
582	594		let amountsList = removeByIndex(split_51C(amountsString, SEP), 0)
583	595		let factoryActions = [invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, fromBase58String(txId))], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawalHistory(userAddress, fromBase58String(txId)), lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAssets", [userAddressBytes, assetsList, amountsList], nil)]

594	606		if ((checkCaller == checkCaller))
595	607		then {
596	608		func addNewAction (state,txId) = {
597		-	let $~~t02259422810~~ = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId)~~, i.transactionId~~)
598		-	let userAddress = $~~t02259422810~~._1
599		-	let lpAssetAmount = $~~t02259422810~~._2
600		-	let targetPeriod = $~~t02259422810~~._3
601		-	let wavesAmount = $~~t02259422810~~._4
602		-	let assetsString = $~~t02259422810~~._5
603		-	let amountsString = $~~t02259422810~~._6
	609	+	let $t02294023139 = claimCollateralINTERNAL(userAddressBytes, fromBase58String(txId))
	610	+	let userAddress = $t02294023139._1
	611	+	let lpAssetAmount = $t02294023139._2
	612	+	let targetPeriod = $t02294023139._3
	613	+	let wavesAmount = $t02294023139._4
	614	+	let assetsString = $t02294023139._5
	615	+	let amountsString = $t02294023139._6
604	616		let assetsList = removeByIndex(split_51C(assetsString, SEP), 0)
605	617		let amountsList = removeByIndex(split_51C(amountsString, SEP), 0)
606	618		let newActions = [invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, fromBase58String(txId))], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawalHistory(userAddress, fromBase58String(txId)), lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAssets", [userAddressBytes, assetsList, amountsList], nil)]

630	642
631	643		@Callable(i)
632	644		func claimCollateralREADONLY (userAddressBytes,txId) = {
633		-	let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId)~~, i.transactionId~~)
	645	+	let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId))
634	646		$Tuple2(nil, response)
635	647		}
636	648

639	651		@Callable(i)
640	652		func claimCollateralBulkREADONLY (userAddressBytes,txIds) = {
641	653		func processTxId (state,txId) = {
642		-	let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId)~~, i.transactionId~~)
	654	+	let response = claimCollateralREADONLYStringResponse(userAddressBytes, fromBase58String(txId))
643	655		(state :+ response)
644	656		}
645	657

704	716		let factoryActionsSingle = [invoke(factoryAddressOrFail, "stringEntry", [keyBlockProcessed(targetBlockHeight), makeString([toBase58String(i.transactionId), toString(currentPeriodOrFail), toString(generator), toBase58String(userAddressBytes), toString(treasuryRewardOrFail), toString(callerReward), toString(lpAssetAmount)], SEP)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(generator), (available + lpAssetAmount)], nil)]
705	717		if ((factoryActionsSingle == factoryActionsSingle))
706	718		then {
707		-	let $~~t02754827581~~ = acc
708		-	let lpAssetAcc = $~~t02754827581~~._1
709		-	let rewardAcc = $~~t02754827581~~._2
	719	+	let $t02784327876 = acc
	720	+	let lpAssetAcc = $t02784327876._1
	721	+	let rewardAcc = $t02784327876._2
710	722		$Tuple2((lpAssetAcc + lpAssetAmount), (rewardAcc + treasuryRewardOrFail))
711	723		}
712	724		else throw("Strict value is not equal to itself.")
713	725		}
714	726
715	727		let list = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39]
716		-	let $~~t02784827924~~ = {
	728	+	let $t02814328219 = {
717	729		let $l = list
718	730		let $s = size($l)
719	731		let $acc0 = $Tuple2(0, 0)

727	739
728	740		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40)
729	741		}
730		-	if (($~~t02784827924~~ == $~~t02784827924~~))
	742	+	if (($t02814328219 == $t02814328219))
731	743		then {
732		-	let rewardAmountTotal = $~~t02784827924~~._2
733		-	let lpAssetAmountTotal = $~~t02784827924~~._1
	744	+	let rewardAmountTotal = $t02814328219._2
	745	+	let lpAssetAmountTotal = $t02814328219._1
734	746		let businessTreasuryPart = valueOrElse(getInteger(factoryAddressOrFail, keyBusinessTreasuryPart()), 0)
735	747		let rewardToBusinessTreasuryAmount = fraction(rewardAmountTotal, businessTreasuryPart, SCALE8)
736	748		let rewardToMainTreasuryAmount = ((rewardAmountTotal - rewardToBusinessTreasuryAmount) - blockProcessingReward)

Old	New		Differences
1	1		{-# STDLIB_VERSION 7 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
6	6		let CONTRACT_NAME = "calculator.ride"
7	7
8	8		let SCALE8 = 100000000
9	9
10	10		let PENDING = "PENDING"
11	11
12	12		let WAVES = "WAVES"
13	13
14	14		func wrapErr (s) = ((CONTRACT_NAME + ": ") + s)
15	15
16	16
17	17		func throwErr (s) = throw(wrapErr(s))
18	18
19	19
20	20		func assetIdToString (assetId) = match assetId {
21	21		case b: ByteVector =>
22	22		toBase58String(b)
23	23		case _: Unit =>
24	24		WAVES
25	25		case _ =>
26	26		throw("Match error")
27	27		}
28	28
29	29
30	30		func stringToAssetId (s) = if ((s == WAVES))
31	31		then unit
32	32		else fromBase58String(s)
33	33
34	34
35	35		func abs (n) = if ((0 > n))
36	36		then -(n)
37	37		else n
38	38
39	39
40	40		func keyFactoryAddress () = makeString(["%s", "factory"], SEP)
41	41
42	42
43	43		func keyManagerPublicKey () = makeString(["%s", "managerPublicKey"], SEP)
44	44
45	45
46	46		func keyLpAssetId () = makeString(["%s", "lpAssetId"], SEP)
47	47
48	48
49	49		func keyProxyTreasuryAddress () = makeString(["%s", "proxyTreasury"], SEP)
50	50
51	51
52	52		func keyMainTreasuryAddress () = makeString(["%s", "mainTreasury"], SEP)
53	53
54	54
55	55		func keyBusinessTreasuryAddress () = makeString(["%s", "businessTreasury"], SEP)
56	56
57	57
58	58		func keyBusinessTreasuryPart () = makeString(["%s", "businessTreasuryPart"], SEP)
59	59
60	60
61	61		func keyInvested (assetId) = makeString(["%s%s", "invested", assetIdToString(assetId)], SEP)
62	62
63	63
64	64		func keyDonated (assetId) = makeString(["%s%s", "donated", assetIdToString(assetId)], SEP)
65	65
66	66
67	67		func keyAvailable (userAddress) = makeString(["%s%s", "available", toString(userAddress)], SEP)
68	68
69	69
70	70		func keyClaimed (userAddress) = makeString(["%s%s", "claimed", toString(userAddress)], SEP)
71	71
72	72
73	73		func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
74	74
75	75
76	76		func keyPriceForPeriod (period) = makeString(["%s%d", "price", toString(period)], SEP)
77	77
78	78
79	79		func keyStartHeight (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
80	80
81	81
82	82		func keyPowerManagerBonus (period) = makeString(["%s%d", "powerManagerBonus", toString(period)], SEP)
83	83
84	84
85	85		func keyPeriodLength () = "%s__periodLength"
	86	+
	87	+
	88	+	func keyInvestPeriodLength () = "%s__investPeriodLength"
86	89
87	90
88	91		func keyBlockProcessingReward () = "%s__blockProcessingReward"
89	92
90	93
91	94		func keyNextBlockToProcess () = "%s__nextBlockToProcess"
92	95
93	96
94	97		func keyBlockProcessed (height) = makeString(["%s%d", "blockProcessed", toString(height)], SEP)
95	98
96	99
97	100		func keyWithdrawal () = "%s__withdrawal"
98	101
99	102
100	103		func keyWithdrawalRequest (userAddress,txId) = makeString(["%s%s%s", "withdrawal", toString(userAddress), toBase58String(txId)], SEP)
101	104
102	105
103	106		func valueWithdrawalRequest (status,lpAssetAmount,targetPeriod,claimTxId) = {
104	107		let claimTxIdStr = match claimTxId {
105	108		case b: ByteVector =>
106	109		toBase58String(b)
107	110		case _: Unit =>
108	111		"SOON"
109	112		case _ =>
110	113		throw("Match error")
111	114		}
112	115		makeString(["%s%d%d%s", status, toString(lpAssetAmount), toString(targetPeriod), claimTxIdStr], SEP)
113	116		}
114	117
115	118
116	119		func keyWithdrawalHistory (userAddress,txId) = makeString(["%s%s%s", "withdrawalHistory", toString(userAddress), toBase58String(txId)], SEP)
117	120
118	121
119	122		func keyPeriodWithdrawalAssetIds (period) = makeString(["%s%d", "periodReward", toString(period)], SEP)
120	123
121	124
122	125		func keyPeriodWithdrawalAmounts (period) = makeString(["%s%d", "periodRewardAmount", toString(period)], SEP)
123	126
124	127
125	128		func parseWithdrawalRequestValueOrFail (s) = {
126	129		let parts = split(s, SEP)
127	130		if ((size(parts) == 5))
128	131		then {
129	132		let status = parts[1]
130	133		let lpAssetAmount = valueOrErrorMessage(parseInt(parts[2]), wrapErr("invalid lpAssetAmount"))
131	134		let targetPeriod = valueOrErrorMessage(parseInt(parts[3]), wrapErr("invalid targetPeriod"))
132	135		let claimTxId = parts[4]
133	136		$Tuple4(status, lpAssetAmount, targetPeriod, claimTxId)
134	137		}
135	138		else throwErr("invalid withdrawal request value")
136	139		}
137	140
138	141
139	142		let factoryAddressOption = match getString(this, keyFactoryAddress()) {
140	143		case s: String =>
141	144		addressFromString(s)
142	145		case _: Unit =>
143	146		unit
144	147		case _ =>
145	148		throw("Match error")
146	149		}
147	150
148	151		let factoryAddressOrFail = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
149	152
150	153		let lpAssetIdOption = match factoryAddressOption {
151	154		case a: Address =>
152	155		match getString(a, keyLpAssetId()) {
153	156		case s: String =>
154	157		fromBase58String(s)
155	158		case _: Unit =>
156	159		unit
157	160		case _ =>
158	161		throw("Match error")
159	162		}
160	163		case _: Unit =>
161	164		unit
162	165		case _ =>
163	166		throw("Match error")
164	167		}
165	168
166	169		let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
167	170
168	171		let proxyTreasuryAddressOption = match factoryAddressOption {
169	172		case a: Address =>
170	173		match getString(a, keyProxyTreasuryAddress()) {
171	174		case s: String =>
172	175		addressFromString(s)
173	176		case _: Unit =>
174	177		unit
175	178		case _ =>
176	179		throw("Match error")
177	180		}
178	181		case _: Unit =>
179	182		unit
180	183		case _ =>
181	184		throw("Match error")
182	185		}
183	186
184	187		let proxyTreasuryAddressOrFail = valueOrErrorMessage(proxyTreasuryAddressOption, wrapErr("invalid proxy treasury address"))
185	188
186	189		let mainTreasuryAddressOption = match factoryAddressOption {
187	190		case a: Address =>
188	191		match getString(a, keyMainTreasuryAddress()) {
189	192		case s: String =>
190	193		addressFromString(s)
191	194		case _: Unit =>
192	195		unit
193	196		case _ =>
194	197		throw("Match error")
195	198		}
196	199		case _: Unit =>
197	200		unit
198	201		case _ =>
199	202		throw("Match error")
200	203		}
201	204
202	205		let businessTreasuryAddressOption = match factoryAddressOption {
203	206		case a: Address =>
204	207		match getString(a, keyBusinessTreasuryAddress()) {
205	208		case s: String =>
206	209		addressFromString(s)
207	210		case _: Unit =>
208	211		unit
209	212		case _ =>
210	213		throw("Match error")
211	214		}
212	215		case _: Unit =>
213	216		unit
214	217		case _ =>
215	218		throw("Match error")
216	219		}
217	220
218	221		let mainTreasuryAddressOrFail = valueOrErrorMessage(mainTreasuryAddressOption, wrapErr("invalid main treasury address"))
219	222
220	223		let businessTreasuryAddressOrFail = valueOrErrorMessage(businessTreasuryAddressOption, wrapErr("invalid business treasury address"))
221	224
222	225		func getManagerPublicKeyOrUnit () = match factoryAddressOption {
223	226		case fa: Address =>
224	227		match getString(fa, keyManagerPublicKey()) {
225	228		case pub: String =>
226	229		fromBase58String(pub)
227	230		case _ =>
228	231		unit
229	232		}
230	233		case _ =>
231	234		unit
232	235		}
233	236
234	237
235	238		func onlyAddress (i,address) = if ((i.caller == address))
236	239		then true
237	240		else throwErr("permission denied")
238	241
239	242
240	243		func onlyFactory (i) = onlyAddress(i, factoryAddressOrFail)
241	244
242	245
243	246		func rewardForOption (rewards,target) = {
244	247		let s = size(rewards)
245		-	let $~~t057295754~~ = rewards[0]
246		-	let a0 = $~~t057295754~~._1
247		-	let r0 = $~~t057295754~~._2
248		-	let $~~t057575782~~ = rewards[1]
249		-	let a1 = $~~t057575782~~._1
250		-	let r1 = $~~t057575782~~._2
251		-	let $~~t057855810~~ = rewards[2]
252		-	let a2 = $~~t057855810~~._1
253		-	let r2 = $~~t057855810~~._2
	248	+	let $t057855810 = rewards[0]
	249	+	let a0 = $t057855810._1
	250	+	let r0 = $t057855810._2
	251	+	let $t058135838 = rewards[1]
	252	+	let a1 = $t058135838._1
	253	+	let r1 = $t058135838._2
	254	+	let $t058415866 = rewards[2]
	255	+	let a2 = $t058415866._1
	256	+	let r2 = $t058415866._2
254	257		if (if ((s > 0))
255	258		then (a0 == target)
256	259		else false)
257	260		then r0
258	261		else if (if ((s > 1))
259	262		then (a1 == target)
260	263		else false)
261	264		then r1
262	265		else if (if ((s > 2))
263	266		then (a2 == target)
264	267		else false)
265	268		then r2
266	269		else unit
267	270		}
268	271
269	272
270	273		func finalizeINTERNAL (newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
271	274		let donatedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyDonated(unit)), 0)
272	275		let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
273	276		let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
274	277		let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
275	278		let pwrManagersBonusAmount = if (if ((profitRaw >= pwrManagersBonusInWaves))
276	279		then true
277	280		else (pwrManagersBonusInWaves == 0))
278	281		then pwrManagersBonusInWaves
279	282		else throwErr("power bonus is more than profit")
280	283		let profit = (profitRaw - pwrManagersBonusAmount)
281	284		let donationPart = if ((currentTreasuryVolumeInWaves > 0))
282	285		then fraction(donatedWavesAmount, SCALE8, currentTreasuryVolumeInWaves)
283	286		else 0
284	287		let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
285	288		let investmentProfitPartRaw = (profit - donationProfitPartRaw)
286	289		let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
287	290		let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
288	291		then treasuryVolumeDiffAllocationCoefAbs
289	292		else 0, SCALE8)
290	293		let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
291	294		then treasuryVolumeDiffAllocationCoefAbs
292	295		else 0, SCALE8)
293	296		let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
294	297		let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
295	298		let donatedWavesAmountNewRaw = (donatedWavesAmount + donationProfitPart)
296	299		let investedWavesAmountNewRaw = (investedWavesAmount + investmentProfitPart)
297	300		let donatedPartDebt = min([0, donatedWavesAmountNewRaw])
298	301		let investedPartDebt = min([0, investedWavesAmountNewRaw])
299	302		let donatedWavesAmountNew = (max([0, donatedWavesAmountNewRaw]) + investedPartDebt)
300	303		let investedWavesAmountNew = (max([0, investedWavesAmountNewRaw]) + donatedPartDebt)
301	304		let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
302	305		let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
303	306		let checkIfPriceNotZero = if ((newPrice != 0))
304	307		then true
305	308		else throwErr("LP price cannot be 0")
306	309		if ((checkIfPriceNotZero == checkIfPriceNotZero))
307	310		then {
308	311		let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
309	312		let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
310	313		let finalInvestedWavesAmount = (investedWavesAmountNew - paymentAmountMin)
311	314		let lpAssetFinalQuantity = (lpAssetQuantity - lpAssetAmountToBurn)
312	315		$Tuple6(paymentAmountMin, finalInvestedWavesAmount, donatedWavesAmountNew, newPrice, lpAssetAmountToBurn, lpAssetFinalQuantity)
313	316		}
314	317		else throw("Strict value is not equal to itself.")
315	318		}
316	319
317	320
318		-	func claimCollateralINTERNAL (userAddressBytes,txId~~,transactionId~~) = {
	321	+	func claimCollateralINTERNAL (userAddressBytes,txId) = {
319	322		let userAddress = Address(userAddressBytes)
320	323		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
321	324		let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
322		-	let $~~t092529365~~ = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
323		-	let status = $~~t092529365~~._1
324		-	let lpAssetAmount = $~~t092529365~~._2
325		-	let targetPeriod = $~~t092529365~~._3
326		-	let claimTxId = $~~t092529365~~._4
	325	+	let $t092819394 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
	326	+	let status = $t092819394._1
	327	+	let lpAssetAmount = $t092819394._2
	328	+	let targetPeriod = $t092819394._3
	329	+	let claimTxId = $t092819394._4
327	330		if ((targetPeriod > currentPeriodOrFail))
328	331		then throwErr("invalid withdrawal request period")
329	332		else {
330	333		let priceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(targetPeriod)), wrapErr("invalid price"))
331	334		let wavesAmount = if ((priceOrFail > 0))
332	335		then fraction(lpAssetAmount, priceOrFail, SCALE8)
333	336		else 0
334	337		let assetsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAssetIds(currentPeriodOrFail))
335	338		let amountsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAmounts(currentPeriodOrFail))
336	339		$Tuple6(userAddress, lpAssetAmount, targetPeriod, wavesAmount, assetsString, amountsString)
337	340		}
338	341		}
339	342
340	343
341		-	func claimCollateralREADONLYStringResponse (userAddressBytes,txId~~,transactionId~~) = {
342		-	let $~~t01017910360~~ = claimCollateralINTERNAL(userAddressBytes, txId~~, transactionId~~)
343		-	let userAddress = $~~t01017910360~~._1
344		-	let lpAssetAmount = $~~t01017910360~~._2
345		-	let targetPeriod = $~~t01017910360~~._3
346		-	let wavesAmount = $~~t01017910360~~._4
347		-	let assetsString = $~~t01017910360~~._5
348		-	let amountsString = $~~t01017910360~~._6
	344	+	func claimCollateralREADONLYStringResponse (userAddressBytes,txId) = {
	345	+	let $t01018110347 = claimCollateralINTERNAL(userAddressBytes, txId)
	346	+	let userAddress = $t01018110347._1
	347	+	let lpAssetAmount = $t01018110347._2
	348	+	let targetPeriod = $t01018110347._3
	349	+	let wavesAmount = $t01018110347._4
	350	+	let assetsString = $t01018110347._5
	351	+	let amountsString = $t01018110347._6
349	352		let assets = makeString(removeByIndex(split_51C(assetsString, SEP), 0), ":")
350	353		let amounts = makeString(removeByIndex(split_51C(amountsString, SEP), 0), ":")
351	354		makeString(["%d%s%s", toString(wavesAmount), assets, amounts], SEP)
352	355		}
353	356
354	357
355	358		@Callable(i)
356	359		func claimLP (userAddressBytes) = {
357	360		let checkCaller = onlyFactory(i)
358	361		if ((checkCaller == checkCaller))
359	362		then {
360	363		let userAddress = Address(userAddressBytes)
361	364		let available = valueOrElse(getInteger(factoryAddressOrFail, keyAvailable(userAddress)), 0)
362	365		let claimed = valueOrElse(getInteger(factoryAddressOrFail, keyClaimed(userAddress)), 0)
363	366		let factoryActions = if ((available > 0))
364	367		then [invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, available, lpAssetIdOrFail], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(userAddress), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyClaimed(userAddress), (claimed + available)], nil)]
365	368		else throwErr("nothing to claim")
366	369		$Tuple2(nil, factoryActions)
367	370		}
368	371		else throw("Strict value is not equal to itself.")
369	372		}
370	373
371	374
372	375
373	376		@Callable(i)
374	377		func finalize (userAddressBytes,newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
375	378		let checkCaller = onlyFactory(i)
376	379		if ((checkCaller == checkCaller))
377	380		then {
378	381		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
379	382		let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
380	383		let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
381	384		let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
382	385		let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
383	386		let periodEndHeight = ((currentStartHeight + periodLength) - 1)
384	387		let checks = [if ((i.originCaller == mainTreasuryAddressOrFail))
385	388		then true
386	389		else throwErr("permission denied"), if ((nextBlockToProcess > periodEndHeight))
387	390		then true
388	391		else throwErr("unprocessed blocks"), if ((newTreasuryVolumeInWaves >= 0))
389	392		then true
390	393		else throwErr("invalid new treasury volume"), if ((pwrManagersBonusInWaves >= 0))
391	394		then true
392	395		else throwErr("invalid PWR managers bonus"), if (if ((treasuryVolumeDiffAllocationCoef >= -(SCALE8)))
393	396		then (SCALE8 >= treasuryVolumeDiffAllocationCoef)
394	397		else false)
395	398		then true
396	399		else throwErr("invalid treasury volume diff allocation coefficient")]
397	400		if ((checks == checks))
398	401		then {
399		-	let $~~t01312213382~~ = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
400		-	let paymentAmountMin = $~~t01312213382~~._1
401		-	let finalInvestedWavesAmount = $~~t01312213382~~._2
402		-	let donatedWavesAmountNew = $~~t01312213382~~._3
403		-	let newPrice = $~~t01312213382~~._4
404		-	let lpAssetAmountToBurn = $~~t01312213382~~._5
405		-	let lpAssetFinalQuantity = $~~t01312213382~~._6
	402	+	let $t01310913369 = finalizeINTERNAL(newTreasuryVolumeInWaves, pwrManagersBonusInWaves, treasuryVolumeDiffAllocationCoef)
	403	+	let paymentAmountMin = $t01310913369._1
	404	+	let finalInvestedWavesAmount = $t01310913369._2
	405	+	let donatedWavesAmountNew = $t01310913369._3
	406	+	let newPrice = $t01310913369._4
	407	+	let lpAssetAmountToBurn = $t01310913369._5
	408	+	let lpAssetFinalQuantity = $t01310913369._6
406	409		let newPeriod = (currentPeriodOrFail + 1)
407	410		func addNewAction (actions,payment) = {
408		-	let $~~t01353013592~~ = actions
409		-	let scriptTransfers = $~~t01353013592~~._1
410		-	let assetIdsString = $~~t01353013592~~._2
411		-	let amountsString = $~~t01353013592~~._3
	411	+	let $t01351713579 = actions
	412	+	let scriptTransfers = $t01351713579._1
	413	+	let assetIdsString = $t01351713579._2
	414	+	let amountsString = $t01351713579._3
412	415		let paymentAmount = payment.amount
413	416		let paymentAssetId = payment.assetId
414	417		let newAssetIdsString = ("%s" + makeString([assetIdsString, assetIdToString(paymentAssetId)], SEP))
415	418		let newAmountsString = ("%d" + makeString([amountsString, toString(paymentAmount)], SEP))
416	419		let newScriptTransfer = ScriptTransfer(factoryAddressOrFail, paymentAmount, paymentAssetId)
417	420		$Tuple3((scriptTransfers :+ newScriptTransfer), newAssetIdsString, newAmountsString)
418	421		}
419	422
420		-	let $~~t01405214143~~ = {
	423	+	let $t01403914130 = {
421	424		let $l = i.payments
422	425		let $s = size($l)
423	426		let $acc0 = $Tuple3(nil, "", "")
424	427		func $f0_1 ($a,$i) = if (($i >= $s))
425	428		then $a
426	429		else addNewAction($a, $l[$i])
427	430
428	431		func $f0_2 ($a,$i) = if (($i >= $s))
429	432		then $a
430	433		else throw("List size exceeds 10")
431	434
432	435		$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)
433	436		}
434		-	let scriptTransfers = $~~t01405214143~~._1
435		-	let AssetIds = $~~t01405214143~~._2
436		-	let Amounts = $~~t01405214143~~._3
	437	+	let scriptTransfers = $t01403914130._1
	438	+	let AssetIds = $t01403914130._2
	439	+	let Amounts = $t01403914130._3
437	440		let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyPowerManagerBonus(currentPeriodOrFail), pwrManagersBonusInWaves], nil), invoke(factoryAddressOrFail, "integerEntry", [keyCurrentPeriod(), newPeriod], nil), invoke(factoryAddressOrFail, "integerEntry", [keyPriceForPeriod(newPeriod), newPrice], nil), invoke(factoryAddressOrFail, "integerEntry", [keyStartHeight(newPeriod), (periodEndHeight + 1)], nil), invoke(factoryAddressOrFail, "burn", [lpAssetAmountToBurn], nil), invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), finalInvestedWavesAmount], nil), invoke(factoryAddressOrFail, "integerEntry", [keyDonated(unit), donatedWavesAmountNew], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAssetIds(newPeriod), AssetIds], nil), invoke(factoryAddressOrFail, "stringEntry", [keyPeriodWithdrawalAmounts(newPeriod), Amounts], nil)]
438	441		$Tuple2(scriptTransfers, factoryActions)
439	442		}
440	443		else throw("Strict value is not equal to itself.")
441	444		}
442	445		else throw("Strict value is not equal to itself.")
443	446		}
444	447
445	448
446	449
447	450		@Callable(i)
448	451		func finalizeREADONLY (newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
449	452		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
450	453		let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
451	454		let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
452	455		let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
453	456		let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
454	457		let periodEndHeight = ((currentStartHeight + periodLength) - 1)
455	458		let checks = [if ((nextBlockToProcess > periodEndHeight))
456	459		then true
457	460		else throwErr("unprocessed blocks"), if ((newTreasuryVolumeInWaves >= 0))
458	461		then true
459	462		else throwErr("invalid new treasury volume"), if ((pwrManagersBonusInWaves >= 0))

github/deemru/w8io/169f3d6 
102.38 ms ◑