w8 · tx · 6rZ···caP

tx · 6rZYqRv93Ti1irFpscXvdstUtCWvnDFPVAn9AqD7LcaP

3MuS6qVvhBR6wSynFRdcE3fVqmGBjoc7Hhx:  -0.03300000 Waves

2023.08.16 11:31 [2712897] smart account 3MuS6qVvhBR6wSynFRdcE3fVqmGBjoc7Hhx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6rZYqRv93Ti1irFpscXvdstUtCWvnDFPVAn9AqD7LcaP",
    "fee": 3300000,
    "feeAssetId": null,
    "timestamp": 1692174757532,
    "version": 2,
    "chainId": 84,
    "sender": "3MuS6qVvhBR6wSynFRdcE3fVqmGBjoc7Hhx",
    "senderPublicKey": "62CHk4MqTdq3LqeUycy7TPnpvwrjgerSa2FqAY2EafXn",
    "proofs": [
        "4cbU95tDyg8oySEueDToNLhxNsvQAUFRF7PjZvpDQT4BAHNHZ2WZK3ih4rAoGfNmSDcZJgQBc311eC38fMdw8vf3"
    ],
    "script": "base64:BwJDCAISAwoBAhIGCgQCAQEBEgUKAwEBARIDCgECEgMKAQISBAoCAgISBAoCAggSBAoCAhgSBAoCAggSBAoCAhgSAwoBAjYAA1NFUAICX18ADUNPTlRSQUNUX05BTUUCD2NhbGN1bGF0b3IucmlkZQAGU0NBTEU4AIDC1y8AB1BFTkRJTkcCB1BFTkRJTkcABVdBVkVTAgVXQVZFUwEHd3JhcEVycgEBcwkArAICCQCsAgIFDUNPTlRSQUNUX05BTUUCAjogBQFzAQh0aHJvd0VycgEBcwkAAgEJAQd3cmFwRXJyAQUBcwEPYXNzZXRJZFRvU3RyaW5nAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgMJAAECBQckbWF0Y2gwAgRVbml0BQVXQVZFUwkAAgECC01hdGNoIGVycm9yAQ9zdHJpbmdUb0Fzc2V0SWQBAXMDCQAAAgUBcwUFV0FWRVMFBHVuaXQJANkEAQUBcwEDYWJzAQFuAwkAZgIAAAUBbgkBAS0BBQFuBQFuARFrZXlGYWN0b3J5QWRkcmVzcwAJALkJAgkAzAgCAgIlcwkAzAgCAgdmYWN0b3J5BQNuaWwFA1NFUAETa2V5TWFuYWdlclB1YmxpY0tleQAJALkJAgkAzAgCAgIlcwkAzAgCAhBtYW5hZ2VyUHVibGljS2V5BQNuaWwFA1NFUAEMa2V5THBBc3NldElkAAkAuQkCCQDMCAICAiVzCQDMCAICCWxwQXNzZXRJZAUDbmlsBQNTRVABF2tleVByb3h5VHJlYXN1cnlBZGRyZXNzAAkAuQkCCQDMCAICAiVzCQDMCAICDXByb3h5VHJlYXN1cnkFA25pbAUDU0VQARZrZXlNYWluVHJlYXN1cnlBZGRyZXNzAAkAuQkCCQDMCAICAiVzCQDMCAICDG1haW5UcmVhc3VyeQUDbmlsBQNTRVABGmtleUJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzAAkAuQkCCQDMCAICAiVzCQDMCAICEGJ1c2luZXNzVHJlYXN1cnkFA25pbAUDU0VQARdrZXlCdXNpbmVzc1RyZWFzdXJ5UGFydAAJALkJAgkAzAgCAgIlcwkAzAgCAhRidXNpbmVzc1RyZWFzdXJ5UGFydAUDbmlsBQNTRVABC2tleUludmVzdGVkAQdhc3NldElkCQC5CQIJAMwIAgIEJXMlcwkAzAgCAghpbnZlc3RlZAkAzAgCCQEPYXNzZXRJZFRvU3RyaW5nAQUHYXNzZXRJZAUDbmlsBQNTRVABCmtleURvbmF0ZWQBB2Fzc2V0SWQJALkJAgkAzAgCAgQlcyVzCQDMCAICB2RvbmF0ZWQJAMwIAgkBD2Fzc2V0SWRUb1N0cmluZwEFB2Fzc2V0SWQFA25pbAUDU0VQAQxrZXlBdmFpbGFibGUBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAglhdmFpbGFibGUJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwUDbmlsBQNTRVABCmtleUNsYWltZWQBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgdjbGFpbWVkCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDU0VQARBrZXlDdXJyZW50UGVyaW9kAAkAuQkCCQDMCAICAiVzCQDMCAICDWN1cnJlbnRQZXJpb2QFA25pbAUDU0VQARFrZXlQcmljZUZvclBlcmlvZAEGcGVyaW9kCQC5CQIJAMwIAgIEJXMlZAkAzAgCAgVwcmljZQkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABDmtleVN0YXJ0SGVpZ2h0AQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICC3N0YXJ0SGVpZ2h0CQDMCAIJAKQDAQUGcGVyaW9kBQNuaWwFA1NFUAEUa2V5UG93ZXJNYW5hZ2VyQm9udXMBBnBlcmlvZAkAuQkCCQDMCAICBCVzJWQJAMwIAgIRcG93ZXJNYW5hZ2VyQm9udXMJAMwIAgkApAMBBQZwZXJpb2QFA25pbAUDU0VQAQ9rZXlQZXJpb2RMZW5ndGgAAhAlc19fcGVyaW9kTGVuZ3RoARVrZXlJbnZlc3RQZXJpb2RMZW5ndGgAAhYlc19faW52ZXN0UGVyaW9kTGVuZ3RoARhrZXlCbG9ja1Byb2Nlc3NpbmdSZXdhcmQAAhklc19fYmxvY2tQcm9jZXNzaW5nUmV3YXJkARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MAAhYlc19fbmV4dEJsb2NrVG9Qcm9jZXNzARFrZXlCbG9ja1Byb2Nlc3NlZAEGaGVpZ2h0CQC5CQIJAMwIAgIEJXMlZAkAzAgCAg5ibG9ja1Byb2Nlc3NlZAkAzAgCCQCkAwEFBmhlaWdodAUDbmlsBQNTRVABDWtleVdpdGhkcmF3YWwAAg4lc19fd2l0aGRyYXdhbAEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCC3VzZXJBZGRyZXNzBHR4SWQJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIKd2l0aGRyYXdhbAkAzAgCCQClCAEFC3VzZXJBZGRyZXNzCQDMCAIJANgEAQUEdHhJZAUDbmlsBQNTRVABFnZhbHVlV2l0aGRyYXdhbFJlcXVlc3QEBnN0YXR1cw1scEFzc2V0QW1vdW50DHRhcmdldFBlcmlvZAljbGFpbVR4SWQEDGNsYWltVHhJZFN0cgQHJG1hdGNoMAUJY2xhaW1UeElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgMJAAECBQckbWF0Y2gwAgRVbml0AgRTT09OCQACAQILTWF0Y2ggZXJyb3IJALkJAgkAzAgCAgglcyVkJWQlcwkAzAgCBQZzdGF0dXMJAMwIAgkApAMBBQ1scEFzc2V0QW1vdW50CQDMCAIJAKQDAQUMdGFyZ2V0UGVyaW9kCQDMCAIFDGNsYWltVHhJZFN0cgUDbmlsBQNTRVABFGtleVdpdGhkcmF3YWxIaXN0b3J5Agt1c2VyQWRkcmVzcwR0eElkCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICEXdpdGhkcmF3YWxIaXN0b3J5CQDMCAIJAKUIAQULdXNlckFkZHJlc3MJAMwIAgkA2AQBBQR0eElkBQNuaWwFA1NFUAEba2V5UGVyaW9kV2l0aGRyYXdhbEFzc2V0SWRzAQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICDHBlcmlvZFJld2FyZAkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABGmtleVBlcmlvZFdpdGhkcmF3YWxBbW91bnRzAQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICEnBlcmlvZFJld2FyZEFtb3VudAkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABIXBhcnNlV2l0aGRyYXdhbFJlcXVlc3RWYWx1ZU9yRmFpbAEBcwQFcGFydHMJALUJAgUBcwUDU0VQAwkAAAIJAJADAQUFcGFydHMABQQGc3RhdHVzCQCRAwIFBXBhcnRzAAEEDWxwQXNzZXRBbW91bnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFBXBhcnRzAAIJAQd3cmFwRXJyAQIVaW52YWxpZCBscEFzc2V0QW1vdW50BAx0YXJnZXRQZXJpb2QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFBXBhcnRzAAMJAQd3cmFwRXJyAQIUaW52YWxpZCB0YXJnZXRQZXJpb2QECWNsYWltVHhJZAkAkQMCBQVwYXJ0cwAECQCWCgQFBnN0YXR1cwUNbHBBc3NldEFtb3VudAUMdGFyZ2V0UGVyaW9kBQljbGFpbVR4SWQJAQh0aHJvd0VycgECIGludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHZhbHVlABRmYWN0b3J5QWRkcmVzc09wdGlvbgQHJG1hdGNoMAkAnQgCBQR0aGlzCQERa2V5RmFjdG9yeUFkZHJlc3MAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkApggBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAUZmFjdG9yeUFkZHJlc3NPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUUZmFjdG9yeUFkZHJlc3NPcHRpb24JAQd3cmFwRXJyAQIXaW52YWxpZCBmYWN0b3J5IGFkZHJlc3MAD2xwQXNzZXRJZE9wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQEMa2V5THBBc3NldElkAAMJAAECBQckbWF0Y2gxAgZTdHJpbmcEAXMFByRtYXRjaDEJANkEAQUBcwMJAAECBQckbWF0Y2gxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAA9scEFzc2V0SWRPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUPbHBBc3NldElkT3B0aW9uCQEHd3JhcEVycgECEWludmFsaWQgbHBBc3NldElkABpwcm94eVRyZWFzdXJ5QWRkcmVzc09wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQEXa2V5UHJveHlUcmVhc3VyeUFkZHJlc3MAAwkAAQIFByRtYXRjaDECBlN0cmluZwQBcwUHJG1hdGNoMQkApggBBQFzAwkAAQIFByRtYXRjaDECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAGnByb3h5VHJlYXN1cnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFGnByb3h5VHJlYXN1cnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECHmludmFsaWQgcHJveHkgdHJlYXN1cnkgYWRkcmVzcwAZbWFpblRyZWFzdXJ5QWRkcmVzc09wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQEWa2V5TWFpblRyZWFzdXJ5QWRkcmVzcwADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQCmCAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAdYnVzaW5lc3NUcmVhc3VyeUFkZHJlc3NPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBGmtleUJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzAAMJAAECBQckbWF0Y2gxAgZTdHJpbmcEAXMFByRtYXRjaDEJAKYIAQUBcwMJAAECBQckbWF0Y2gxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yABltYWluVHJlYXN1cnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFGW1haW5UcmVhc3VyeUFkZHJlc3NPcHRpb24JAQd3cmFwRXJyAQIdaW52YWxpZCBtYWluIHRyZWFzdXJ5IGFkZHJlc3MAHWJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFHWJ1c2luZXNzVHJlYXN1cnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECIWludmFsaWQgYnVzaW5lc3MgdHJlYXN1cnkgYWRkcmVzcwEZZ2V0TWFuYWdlclB1YmxpY0tleU9yVW5pdAAEByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAmZhBQckbWF0Y2gwBAckbWF0Y2gxCQCdCAIFAmZhCQETa2V5TWFuYWdlclB1YmxpY0tleQADCQABAgUHJG1hdGNoMQIGU3RyaW5nBANwdWIFByRtYXRjaDEJANkEAQUDcHViBQR1bml0BQR1bml0AQtvbmx5QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAQh0aHJvd0VycgECEXBlcm1pc3Npb24gZGVuaWVkAQtvbmx5RmFjdG9yeQEBaQkBC29ubHlBZGRyZXNzAgUBaQUUZmFjdG9yeUFkZHJlc3NPckZhaWwBD3Jld2FyZEZvck9wdGlvbgIHcmV3YXJkcwZ0YXJnZXQEAXMJAJADAQUHcmV3YXJkcwQLJHQwNTc4NTU4MTAJAJEDAgUHcmV3YXJkcwAABAJhMAgFCyR0MDU3ODU1ODEwAl8xBAJyMAgFCyR0MDU3ODU1ODEwAl8yBAskdDA1ODEzNTgzOAkAkQMCBQdyZXdhcmRzAAEEAmExCAULJHQwNTgxMzU4MzgCXzEEAnIxCAULJHQwNTgxMzU4MzgCXzIECyR0MDU4NDE1ODY2CQCRAwIFB3Jld2FyZHMAAgQCYTIIBQskdDA1ODQxNTg2NgJfMQQCcjIIBQskdDA1ODQxNTg2NgJfMgMDCQBmAgUBcwAACQAAAgUCYTAFBnRhcmdldAcFAnIwAwMJAGYCBQFzAAEJAAACBQJhMQUGdGFyZ2V0BwUCcjEDAwkAZgIFAXMAAgkAAAIFAmEyBQZ0YXJnZXQHBQJyMgUEdW5pdAEQZmluYWxpemVJTlRFUk5BTAMYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBBJkb25hdGVkV2F2ZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQprZXlEb25hdGVkAQUEdW5pdAAABBNpbnZlc3RlZFdhdmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQELa2V5SW52ZXN0ZWQBBQR1bml0AAAEHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMJAGQCBRJkb25hdGVkV2F2ZXNBbW91bnQFE2ludmVzdGVkV2F2ZXNBbW91bnQECXByb2ZpdFJhdwkAZQIFGG5ld1RyZWFzdXJ5Vm9sdW1lSW5XYXZlcwUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwQWcHdyTWFuYWdlcnNCb251c0Ftb3VudAMDCQBnAgUJcHJvZml0UmF3BRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwYJAAACBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwAABRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwkBCHRocm93RXJyAQIfcG93ZXIgYm9udXMgaXMgbW9yZSB0aGFuIHByb2ZpdAQGcHJvZml0CQBlAgUJcHJvZml0UmF3BRZwd3JNYW5hZ2Vyc0JvbnVzQW1vdW50BAxkb25hdGlvblBhcnQDCQBmAgUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwAACQBrAwUSZG9uYXRlZFdhdmVzQW1vdW50BQZTQ0FMRTgFHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAQVZG9uYXRpb25Qcm9maXRQYXJ0UmF3CQBrAwUGcHJvZml0BQxkb25hdGlvblBhcnQFBlNDQUxFOAQXaW52ZXN0bWVudFByb2ZpdFBhcnRSYXcJAGUCBQZwcm9maXQFFWRvbmF0aW9uUHJvZml0UGFydFJhdwQjdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWZBYnMJAQNhYnMBBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgQQYW1vdW50VG9Eb25hdGlvbgkAawMFF2ludmVzdG1lbnRQcm9maXRQYXJ0UmF3AwkAZgIAAAUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSYW1vdW50VG9JbnZlc3RtZW50CQBrAwUVZG9uYXRpb25Qcm9maXRQYXJ0UmF3AwkAZgIFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmAAAFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSZG9uYXRpb25Qcm9maXRQYXJ0CQBkAgkAZQIFFWRvbmF0aW9uUHJvZml0UGFydFJhdwUSYW1vdW50VG9JbnZlc3RtZW50BRBhbW91bnRUb0RvbmF0aW9uBBRpbnZlc3RtZW50UHJvZml0UGFydAkAZAIJAGUCBRdpbnZlc3RtZW50UHJvZml0UGFydFJhdwUQYW1vdW50VG9Eb25hdGlvbgUSYW1vdW50VG9JbnZlc3RtZW50BBhkb25hdGVkV2F2ZXNBbW91bnROZXdSYXcJAGQCBRJkb25hdGVkV2F2ZXNBbW91bnQFEmRvbmF0aW9uUHJvZml0UGFydAQZaW52ZXN0ZWRXYXZlc0Ftb3VudE5ld1JhdwkAZAIFE2ludmVzdGVkV2F2ZXNBbW91bnQFFGludmVzdG1lbnRQcm9maXRQYXJ0BA9kb25hdGVkUGFydERlYnQJAJcDAQkAzAgCAAAJAMwIAgUYZG9uYXRlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwEEGludmVzdGVkUGFydERlYnQJAJcDAQkAzAgCAAAJAMwIAgUZaW52ZXN0ZWRXYXZlc0Ftb3VudE5ld1JhdwUDbmlsBBVkb25hdGVkV2F2ZXNBbW91bnROZXcJAGQCCQCWAwEJAMwIAgAACQDMCAIFGGRvbmF0ZWRXYXZlc0Ftb3VudE5ld1JhdwUDbmlsBRBpbnZlc3RlZFBhcnREZWJ0BBZpbnZlc3RlZFdhdmVzQW1vdW50TmV3CQBkAgkAlgMBCQDMCAIAAAkAzAgCBRlpbnZlc3RlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwFD2RvbmF0ZWRQYXJ0RGVidAQPbHBBc3NldFF1YW50aXR5CAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFD2xwQXNzZXRJZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIGxwQXNzZXQgaW5mbwhxdWFudGl0eQQIbmV3UHJpY2UJAGsDBRZpbnZlc3RlZFdhdmVzQW1vdW50TmV3BQZTQ0FMRTgFD2xwQXNzZXRRdWFudGl0eQQTY2hlY2tJZlByaWNlTm90WmVybwMJAQIhPQIFCG5ld1ByaWNlAAAGCQEIdGhyb3dFcnIBAhRMUCBwcmljZSBjYW5ub3QgYmUgMAMJAAACBRNjaGVja0lmUHJpY2VOb3RaZXJvBRNjaGVja0lmUHJpY2VOb3RaZXJvBBNscEFzc2V0QW1vdW50VG9CdXJuCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAAAAQQcGF5bWVudEFtb3VudE1pbgkAlgMBCQDMCAIAAAkAzAgCCQBrAwUTbHBBc3NldEFtb3VudFRvQnVybgUIbmV3UHJpY2UFBlNDQUxFOAUDbmlsBBhmaW5hbEludmVzdGVkV2F2ZXNBbW91bnQJAGUCBRZpbnZlc3RlZFdhdmVzQW1vdW50TmV3BRBwYXltZW50QW1vdW50TWluBBRscEFzc2V0RmluYWxRdWFudGl0eQkAZQIFD2xwQXNzZXRRdWFudGl0eQUTbHBBc3NldEFtb3VudFRvQnVybgkAmAoGBRBwYXltZW50QW1vdW50TWluBRhmaW5hbEludmVzdGVkV2F2ZXNBbW91bnQFFWRvbmF0ZWRXYXZlc0Ftb3VudE5ldwUIbmV3UHJpY2UFE2xwQXNzZXRBbW91bnRUb0J1cm4FFGxwQXNzZXRGaW5hbFF1YW50aXR5CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuARdjbGFpbUNvbGxhdGVyYWxJTlRFUk5BTAIQdXNlckFkZHJlc3NCeXRlcwR0eElkBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MFBHR4SWQJAQd3cmFwRXJyAQIaaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QECyR0MDkyODE5Mzk0CQEhcGFyc2VXaXRoZHJhd2FsUmVxdWVzdFZhbHVlT3JGYWlsAQUXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24EBnN0YXR1cwgFCyR0MDkyODE5Mzk0Al8xBA1scEFzc2V0QW1vdW50CAULJHQwOTI4MTkzOTQCXzIEDHRhcmdldFBlcmlvZAgFCyR0MDkyODE5Mzk0Al8zBAljbGFpbVR4SWQIBQskdDA5MjgxOTM5NAJfNAMJAGYCBQx0YXJnZXRQZXJpb2QFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHBlcmlvZAQLcHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUMdGFyZ2V0UGVyaW9kCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEC3dhdmVzQW1vdW50AwkAZgIFC3ByaWNlT3JGYWlsAAAJAGsDBQ1scEFzc2V0QW1vdW50BQtwcmljZU9yRmFpbAUGU0NBTEU4AAAEDGFzc2V0c1N0cmluZwkBEUBleHRyTmF0aXZlKDEwNTMpAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARtrZXlQZXJpb2RXaXRoZHJhd2FsQXNzZXRJZHMBBRNjdXJyZW50UGVyaW9kT3JGYWlsBA1hbW91bnRzU3RyaW5nCQERQGV4dHJOYXRpdmUoMTA1MykCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBGmtleVBlcmlvZFdpdGhkcmF3YWxBbW91bnRzAQUTY3VycmVudFBlcmlvZE9yRmFpbAkAmAoGBQt1c2VyQWRkcmVzcwUNbHBBc3NldEFtb3VudAUMdGFyZ2V0UGVyaW9kBQt3YXZlc0Ftb3VudAUMYXNzZXRzU3RyaW5nBQ1hbW91bnRzU3RyaW5nASVjbGFpbUNvbGxhdGVyYWxSRUFET05MWVN0cmluZ1Jlc3BvbnNlAhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQEDSR0MDEwMTgxMTAzNDcJARdjbGFpbUNvbGxhdGVyYWxJTlRFUk5BTAIFEHVzZXJBZGRyZXNzQnl0ZXMFBHR4SWQEC3VzZXJBZGRyZXNzCAUNJHQwMTAxODExMDM0NwJfMQQNbHBBc3NldEFtb3VudAgFDSR0MDEwMTgxMTAzNDcCXzIEDHRhcmdldFBlcmlvZAgFDSR0MDEwMTgxMTAzNDcCXzMEC3dhdmVzQW1vdW50CAUNJHQwMTAxODExMDM0NwJfNAQMYXNzZXRzU3RyaW5nCAUNJHQwMTAxODExMDM0NwJfNQQNYW1vdW50c1N0cmluZwgFDSR0MDEwMTgxMTAzNDcCXzYEBmFzc2V0cwkAuQkCCQDRCAIJAL0JAgUMYXNzZXRzU3RyaW5nBQNTRVAAAAIBOgQHYW1vdW50cwkAuQkCCQDRCAIJAL0JAgUNYW1vdW50c1N0cmluZwUDU0VQAAACAToJALkJAgkAzAgCAgYlZCVzJXMJAMwIAgkApAMBBQt3YXZlc0Ftb3VudAkAzAgCBQZhc3NldHMJAMwIAgUHYW1vdW50cwUDbmlsBQNTRVALAWkBB2NsYWltTFABEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQJYXZhaWxhYmxlCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEMa2V5QXZhaWxhYmxlAQULdXNlckFkZHJlc3MAAAQHY2xhaW1lZAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBCmtleUNsYWltZWQBBQt1c2VyQWRkcmVzcwAABA5mYWN0b3J5QWN0aW9ucwMJAGYCBQlhdmFpbGFibGUAAAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlckFzc2V0CQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUJYXZhaWxhYmxlCQDMCAIFD2xwQXNzZXRJZE9yRmFpbAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQxrZXlBdmFpbGFibGUBBQt1c2VyQWRkcmVzcwkAzAgCAAAFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEKa2V5Q2xhaW1lZAEFC3VzZXJBZGRyZXNzCQDMCAIJAGQCBQdjbGFpbWVkBQlhdmFpbGFibGUFA25pbAUDbmlsBQNuaWwJAQh0aHJvd0VycgECEG5vdGhpbmcgdG8gY2xhaW0JAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhmaW5hbGl6ZQQQdXNlckFkZHJlc3NCeXRlcxhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMXcHdyTWFuYWdlcnNCb251c0luV2F2ZXMgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEPa2V5UGVyaW9kTGVuZ3RoAAkBB3dyYXBFcnIBAhVpbnZhbGlkIHBlcmlvZCBsZW5ndGgEEmN1cnJlbnRTdGFydEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEOa2V5U3RhcnRIZWlnaHQBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgc3RhcnQgaGVpZ2h0BBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBBJuZXh0QmxvY2tUb1Byb2Nlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAQd3cmFwRXJyAQIdaW52YWxpZCBuZXh0IGJsb2NrIHRvIHByb2Nlc3MED3BlcmlvZEVuZEhlaWdodAkAZQIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAABBAZjaGVja3MJAMwIAgMJAAACCAUBaQxvcmlnaW5DYWxsZXIFGW1haW5UcmVhc3VyeUFkZHJlc3NPckZhaWwGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAkAzAgCAwkAZgIFEm5leHRCbG9ja1RvUHJvY2VzcwUPcGVyaW9kRW5kSGVpZ2h0BgkBCHRocm93RXJyAQISdW5wcm9jZXNzZWQgYmxvY2tzCQDMCAIDCQBnAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAGCQEIdGhyb3dFcnIBAhtpbnZhbGlkIG5ldyB0cmVhc3VyeSB2b2x1bWUJAMwIAgMJAGcCBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwAABgkBCHRocm93RXJyAQIaaW52YWxpZCBQV1IgbWFuYWdlcnMgYm9udXMJAMwIAgMDCQBnAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAQEtAQUGU0NBTEU4CQBnAgUGU0NBTEU4BSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgcGCQEIdGhyb3dFcnIBAjNpbnZhbGlkIHRyZWFzdXJ5IHZvbHVtZSBkaWZmIGFsbG9jYXRpb24gY29lZmZpY2llbnQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQNJHQwMTMxMDkxMzM2OQkBEGZpbmFsaXplSU5URVJOQUwDBRhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMFF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgQQcGF5bWVudEFtb3VudE1pbggFDSR0MDEzMTA5MTMzNjkCXzEEGGZpbmFsSW52ZXN0ZWRXYXZlc0Ftb3VudAgFDSR0MDEzMTA5MTMzNjkCXzIEFWRvbmF0ZWRXYXZlc0Ftb3VudE5ldwgFDSR0MDEzMTA5MTMzNjkCXzMECG5ld1ByaWNlCAUNJHQwMTMxMDkxMzM2OQJfNAQTbHBBc3NldEFtb3VudFRvQnVybggFDSR0MDEzMTA5MTMzNjkCXzUEFGxwQXNzZXRGaW5hbFF1YW50aXR5CAUNJHQwMTMxMDkxMzM2OQJfNgQJbmV3UGVyaW9kCQBkAgUTY3VycmVudFBlcmlvZE9yRmFpbAABCgEMYWRkTmV3QWN0aW9uAgdhY3Rpb25zB3BheW1lbnQEDSR0MDEzNTE3MTM1NzkFB2FjdGlvbnMED3NjcmlwdFRyYW5zZmVycwgFDSR0MDEzNTE3MTM1NzkCXzEEDmFzc2V0SWRzU3RyaW5nCAUNJHQwMTM1MTcxMzU3OQJfMgQNYW1vdW50c1N0cmluZwgFDSR0MDEzNTE3MTM1NzkCXzMEDXBheW1lbnRBbW91bnQIBQdwYXltZW50BmFtb3VudAQOcGF5bWVudEFzc2V0SWQIBQdwYXltZW50B2Fzc2V0SWQEEW5ld0Fzc2V0SWRzU3RyaW5nCQCsAgICAiVzCQC5CQIJAMwIAgUOYXNzZXRJZHNTdHJpbmcJAMwIAgkBD2Fzc2V0SWRUb1N0cmluZwEFDnBheW1lbnRBc3NldElkBQNuaWwFA1NFUAQQbmV3QW1vdW50c1N0cmluZwkArAICAgIlZAkAuQkCCQDMCAIFDWFtb3VudHNTdHJpbmcJAMwIAgkApAMBBQ1wYXltZW50QW1vdW50BQNuaWwFA1NFUAQRbmV3U2NyaXB0VHJhbnNmZXIJAQ5TY3JpcHRUcmFuc2ZlcgMFFGZhY3RvcnlBZGRyZXNzT3JGYWlsBQ1wYXltZW50QW1vdW50BQ5wYXltZW50QXNzZXRJZAkAlQoDCQDNCAIFD3NjcmlwdFRyYW5zZmVycwURbmV3U2NyaXB0VHJhbnNmZXIFEW5ld0Fzc2V0SWRzU3RyaW5nBRBuZXdBbW91bnRzU3RyaW5nBA0kdDAxNDAzOTE0MTMwCgACJGwIBQFpCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwCAAIACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxhZGROZXdBY3Rpb24CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoED3NjcmlwdFRyYW5zZmVycwgFDSR0MDE0MDM5MTQxMzACXzEECEFzc2V0SWRzCAUNJHQwMTQwMzkxNDEzMAJfMgQHQW1vdW50cwgFDSR0MDE0MDM5MTQxMzACXzMEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEUa2V5UG93ZXJNYW5hZ2VyQm9udXMBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQDMCAIFF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBEGtleUN1cnJlbnRQZXJpb2QACQDMCAIFCW5ld1BlcmlvZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARFrZXlQcmljZUZvclBlcmlvZAEFCW5ld1BlcmlvZAkAzAgCBQhuZXdQcmljZQUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ5rZXlTdGFydEhlaWdodAEFCW5ld1BlcmlvZAkAzAgCCQBkAgUPcGVyaW9kRW5kSGVpZ2h0AAEFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCBGJ1cm4JAMwIAgUTbHBBc3NldEFtb3VudFRvQnVybgUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCAAAFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQELa2V5SW52ZXN0ZWQBBQR1bml0CQDMCAIFGGZpbmFsSW52ZXN0ZWRXYXZlc0Ftb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQprZXlEb25hdGVkAQUEdW5pdAkAzAgCBRVkb25hdGVkV2F2ZXNBbW91bnROZXcFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC3N0cmluZ0VudHJ5CQDMCAIJARtrZXlQZXJpb2RXaXRoZHJhd2FsQXNzZXRJZHMBBQluZXdQZXJpb2QJAMwIAgUIQXNzZXRJZHMFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC3N0cmluZ0VudHJ5CQDMCAIJARprZXlQZXJpb2RXaXRoZHJhd2FsQW1vdW50cwEFCW5ld1BlcmlvZAkAzAgCBQdBbW91bnRzBQNuaWwFA25pbAUDbmlsCQCUCgIFD3NjcmlwdFRyYW5zZmVycwUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQZmluYWxpemVSRUFET05MWQMYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQMcGVyaW9kTGVuZ3RoCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ9rZXlQZXJpb2RMZW5ndGgACQEHd3JhcEVycgECFWludmFsaWQgcGVyaW9kIGxlbmd0aAQSY3VycmVudFN0YXJ0SGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ5rZXlTdGFydEhlaWdodAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQIUaW52YWxpZCBzdGFydCBoZWlnaHQEEmN1cnJlbnRQcmljZU9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQERa2V5UHJpY2VGb3JQZXJpb2QBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEEm5leHRCbG9ja1RvUHJvY2VzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEVa2V5TmV4dEJsb2NrVG9Qcm9jZXNzAAkBB3dyYXBFcnIBAh1pbnZhbGlkIG5leHQgYmxvY2sgdG8gcHJvY2VzcwQPcGVyaW9kRW5kSGVpZ2h0CQBlAgkAZAIFEmN1cnJlbnRTdGFydEhlaWdodAUMcGVyaW9kTGVuZ3RoAAEEBmNoZWNrcwkAzAgCAwkAZgIFEm5leHRCbG9ja1RvUHJvY2VzcwUPcGVyaW9kRW5kSGVpZ2h0BgkBCHRocm93RXJyAQISdW5wcm9jZXNzZWQgYmxvY2tzCQDMCAIDCQBnAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAGCQEIdGhyb3dFcnIBAhtpbnZhbGlkIG5ldyB0cmVhc3VyeSB2b2x1bWUJAMwIAgMJAGcCBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwAABgkBCHRocm93RXJyAQIaaW52YWxpZCBQV1IgbWFuYWdlcnMgYm9udXMJAMwIAgMDCQBnAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAQEtAQUGU0NBTEU4CQBnAgUGU0NBTEU4BSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgcGCQEIdGhyb3dFcnIBAjNpbnZhbGlkIHRyZWFzdXJ5IHZvbHVtZSBkaWZmIGFsbG9jYXRpb24gY29lZmZpY2llbnQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwkAlAoCBQNuaWwJARBmaW5hbGl6ZUlOVEVSTkFMAwUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEGaW52ZXN0ARB1c2VyQWRkcmVzc0J5dGVzBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEC3VzZXJBZGRyZXNzCQEHQWRkcmVzcwEFEHVzZXJBZGRyZXNzQnl0ZXMEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBBJjdXJyZW50U3RhcnRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDmtleVN0YXJ0SGVpZ2h0AQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIHN0YXJ0IGhlaWdodAQSaW52ZXN0UGVyaW9kTGVuZ3RoCQERQGV4dHJOYXRpdmUoMTA1NSkBCQEVa2V5SW52ZXN0UGVyaW9kTGVuZ3RoAAQLaGVpZ2h0Q2hlY2sDCQBmAgkAZAIFEmN1cnJlbnRTdGFydEhlaWdodAUSaW52ZXN0UGVyaW9kTGVuZ3RoBQZoZWlnaHQGCQEIdGhyb3dFcnIBAiF0b28gbGF0ZSB0byBpbnZlc3QgaW4gdGhpcyBwZXJpb2QDCQAAAgULaGVpZ2h0Q2hlY2sFC2hlaWdodENoZWNrBBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBAdwYXltZW50AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQEIdGhyb3dFcnIBAhBpbnZhbGlkIHBheW1lbnRzBA0kdDAxNzk2NzE4MTQ0AwMJAAACCAUHcGF5bWVudAdhc3NldElkBQR1bml0CQBmAggFB3BheW1lbnQGYW1vdW50AAAHCQCUCgIIBQdwYXltZW50BmFtb3VudAgFB3BheW1lbnQHYXNzZXRJZAkBCHRocm93RXJyAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAQNcGF5bWVudEFtb3VudAgFDSR0MDE3OTY3MTgxNDQCXzEEDnBheW1lbnRBc3NldElkCAUNJHQwMTc5NjcxODE0NAJfMgQMdHJlYXN1cnlQYXJ0CQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEXa2V5QnVzaW5lc3NUcmVhc3VyeVBhcnQAAAAEG3BheW1lbnRzV2l0aG91dFRyZWFzdXJ5UGFydAkAawMFDXBheW1lbnRBbW91bnQJAGUCBQZTQ0FMRTgFDHRyZWFzdXJ5UGFydAUGU0NBTEU4BA1scEFzc2V0QW1vdW50AwkAZgIFEmN1cnJlbnRQcmljZU9yRmFpbAAACQBrAwUbcGF5bWVudHNXaXRob3V0VHJlYXN1cnlQYXJ0BQZTQ0FMRTgFEmN1cnJlbnRQcmljZU9yRmFpbAAABAhpbnZlc3RlZAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBC2tleUludmVzdGVkAQUEdW5pdAAABAdhY3Rpb25zCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFGW1haW5UcmVhc3VyeUFkZHJlc3NPckZhaWwFG3BheW1lbnRzV2l0aG91dFRyZWFzdXJ5UGFydAUOcGF5bWVudEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUdYnVzaW5lc3NUcmVhc3VyeUFkZHJlc3NPckZhaWwFDHRyZWFzdXJ5UGFydAUOcGF5bWVudEFzc2V0SWQFA25pbAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQtrZXlJbnZlc3RlZAEFBHVuaXQJAMwIAgkAZAIFCGludmVzdGVkBRtwYXltZW50c1dpdGhvdXRUcmVhc3VyeVBhcnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCB3JlaXNzdWUJAMwIAgUNbHBBc3NldEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAINdHJhbnNmZXJBc3NldAkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFDWxwQXNzZXRBbW91bnQJAMwIAgUPbHBBc3NldElkT3JGYWlsBQNuaWwFA25pbAUDbmlsCQCUCgIFB2FjdGlvbnMFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCHdpdGhkcmF3ARB1c2VyQWRkcmVzc0J5dGVzBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEC3VzZXJBZGRyZXNzCQEHQWRkcmVzcwEFEHVzZXJBZGRyZXNzQnl0ZXMEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBAdwYXltZW50AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQEIdGhyb3dFcnIBCQEHd3JhcEVycgECEGludmFsaWQgcGF5bWVudHMEDnBheW1lbnRBc3NldElkAwkAAAIIBQdwYXltZW50B2Fzc2V0SWQFD2xwQXNzZXRJZE9yRmFpbAUPbHBBc3NldElkT3JGYWlsCQEIdGhyb3dFcnIBAhVpbnZhbGlkIHBheW1lbnQgYXNzZXQEDXBheW1lbnRBbW91bnQDCQBmAggFB3BheW1lbnQGYW1vdW50AAAIBQdwYXltZW50BmFtb3VudAkBCHRocm93RXJyAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAQKd2l0aGRyYXdhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDWtleVdpdGhkcmF3YWwAAAAEB2FjdGlvbnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUUZmFjdG9yeUFkZHJlc3NPckZhaWwFDXBheW1lbnRBbW91bnQFDnBheW1lbnRBc3NldElkBQNuaWwEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQENa2V5V2l0aGRyYXdhbAAJAMwIAgkAZAIFCndpdGhkcmF3YWwFDXBheW1lbnRBbW91bnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC3N0cmluZ0VudHJ5CQDMCAIJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzCAUBaQ10cmFuc2FjdGlvbklkCQDMCAIJARZ2YWx1ZVdpdGhkcmF3YWxSZXF1ZXN0BAUHUEVORElORwUNcGF5bWVudEFtb3VudAkAZAIFE2N1cnJlbnRQZXJpb2RPckZhaWwAAQUEdW5pdAUDbmlsBQNuaWwFA25pbAMJAAACBQ5mYWN0b3J5QWN0aW9ucwUOZmFjdG9yeUFjdGlvbnMJAJQKAgUHYWN0aW9ucwUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEOY2FuY2VsV2l0aGRyYXcCEHVzZXJBZGRyZXNzQnl0ZXMEdHhJZAQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBd3aXRoZHJhd2FsUmVxdWVzdE9wdGlvbgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwUEdHhJZAkBB3dyYXBFcnIBAhppbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdAQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDSR0MDIwODc4MjA5OTEJASFwYXJzZVdpdGhkcmF3YWxSZXF1ZXN0VmFsdWVPckZhaWwBBRd3aXRoZHJhd2FsUmVxdWVzdE9wdGlvbgQGc3RhdHVzCAUNJHQwMjA4NzgyMDk5MQJfMQQNbHBBc3NldEFtb3VudAgFDSR0MDIwODc4MjA5OTECXzIEDHRhcmdldFBlcmlvZAgFDSR0MDIwODc4MjA5OTECXzMECWNsYWltVHhJZAgFDSR0MDIwODc4MjA5OTECXzQEBmNoZWNrcwkAzAgCAwkAAAIFBnN0YXR1cwUHUEVORElORwYJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHN0YXR1cwkAzAgCAwkAZgIFDHRhcmdldFBlcmlvZAUTY3VycmVudFBlcmlvZE9yRmFpbAYJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHBlcmlvZAUDbmlsAwkAAAIFBmNoZWNrcwUGY2hlY2tzBAp3aXRoZHJhd2FsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ1rZXlXaXRoZHJhd2FsAAkBB3dyYXBFcnIBAh9pbnZhbGlkIHRvdGFsIHdpdGhkcmF3YWwgYW1vdW50BA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDWtleVdpdGhkcmF3YWwACQDMCAIDCQBnAgUKd2l0aGRyYXdhbAUNbHBBc3NldEFtb3VudAkAZQIFCndpdGhkcmF3YWwFDWxwQXNzZXRBbW91bnQJAQh0aHJvd0VycgECGWludmFsaWQgd2l0aGRyYXdhbCBhbW91bnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC2RlbGV0ZUVudHJ5CQDMCAIJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzBQR0eElkBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlckFzc2V0CQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUNbHBBc3NldEFtb3VudAkAzAgCBQ9scEFzc2V0SWRPckZhaWwFA25pbAUDbmlsBQNuaWwDCQAAAgUOZmFjdG9yeUFjdGlvbnMFDmZhY3RvcnlBY3Rpb25zCQCUCgIFA25pbAUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPY2xhaW1Db2xsYXRlcmFsAhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQNJHQwMjE5NzcyMjE2MgkBF2NsYWltQ29sbGF0ZXJhbElOVEVSTkFMAgUQdXNlckFkZHJlc3NCeXRlcwkA2QQBBQR0eElkBAt1c2VyQWRkcmVzcwgFDSR0MDIxOTc3MjIxNjICXzEEDWxwQXNzZXRBbW91bnQIBQ0kdDAyMTk3NzIyMTYyAl8yBAx0YXJnZXRQZXJpb2QIBQ0kdDAyMTk3NzIyMTYyAl8zBAt3YXZlc0Ftb3VudAgFDSR0MDIxOTc3MjIxNjICXzQEDGFzc2V0c1N0cmluZwgFDSR0MDIxOTc3MjIxNjICXzUEDWFtb3VudHNTdHJpbmcIBQ0kdDAyMTk3NzIyMTYyAl82BAphc3NldHNMaXN0CQDRCAIJAL0JAgUMYXNzZXRzU3RyaW5nBQNTRVAAAAQLYW1vdW50c0xpc3QJANEIAgkAvQkCBQ1hbW91bnRzU3RyaW5nBQNTRVAAAAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILZGVsZXRlRW50cnkJAMwIAgkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MJANkEAQUEdHhJZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARRrZXlXaXRoZHJhd2FsSGlzdG9yeQIFC3VzZXJBZGRyZXNzCQDZBAEFBHR4SWQJAMwIAgUNbHBBc3NldEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIOdHJhbnNmZXJBc3NldHMJAMwIAgUQdXNlckFkZHJlc3NCeXRlcwkAzAgCBQphc3NldHNMaXN0CQDMCAIFC2Ftb3VudHNMaXN0BQNuaWwFA25pbAUDbmlsCQCUCgIFA25pbAUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQETY2xhaW1Db2xsYXRlcmFsQnVsawIQdXNlckFkZHJlc3NCeXRlcwV0eElkcwQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyCgEMYWRkTmV3QWN0aW9uAgVzdGF0ZQR0eElkBA0kdDAyMjkyMDIzMTE5CQEXY2xhaW1Db2xsYXRlcmFsSU5URVJOQUwCBRB1c2VyQWRkcmVzc0J5dGVzCQDZBAEFBHR4SWQEC3VzZXJBZGRyZXNzCAUNJHQwMjI5MjAyMzExOQJfMQQNbHBBc3NldEFtb3VudAgFDSR0MDIyOTIwMjMxMTkCXzIEDHRhcmdldFBlcmlvZAgFDSR0MDIyOTIwMjMxMTkCXzMEC3dhdmVzQW1vdW50CAUNJHQwMjI5MjAyMzExOQJfNAQMYXNzZXRzU3RyaW5nCAUNJHQwMjI5MjAyMzExOQJfNQQNYW1vdW50c1N0cmluZwgFDSR0MDIyOTIwMjMxMTkCXzYECmFzc2V0c0xpc3QJANEIAgkAvQkCBQxhc3NldHNTdHJpbmcFA1NFUAAABAthbW91bnRzTGlzdAkA0QgCCQC9CQIFDWFtb3VudHNTdHJpbmcFA1NFUAAABApuZXdBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC2RlbGV0ZUVudHJ5CQDMCAIJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzCQDZBAEFBHR4SWQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbEhpc3RvcnkCBQt1c2VyQWRkcmVzcwkA2QQBBQR0eElkCQDMCAIFDWxwQXNzZXRBbW91bnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDnRyYW5zZmVyQXNzZXRzCQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUKYXNzZXRzTGlzdAkAzAgCBQthbW91bnRzTGlzdAUDbmlsBQNuaWwFA25pbAkAzggCBQVzdGF0ZQUKbmV3QWN0aW9ucwQRYWxsRmFjdG9yeUFjdGlvbnMKAAIkbAUFdHhJZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGFkZE5ld0FjdGlvbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkAlAoCBQNuaWwFEWFsbEZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBF2NsYWltQ29sbGF0ZXJhbFJFQURPTkxZAhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQECHJlc3BvbnNlCQElY2xhaW1Db2xsYXRlcmFsUkVBRE9OTFlTdHJpbmdSZXNwb25zZQIFEHVzZXJBZGRyZXNzQnl0ZXMJANkEAQUEdHhJZAkAlAoCBQNuaWwFCHJlc3BvbnNlAWkBG2NsYWltQ29sbGF0ZXJhbEJ1bGtSRUFET05MWQIQdXNlckFkZHJlc3NCeXRlcwV0eElkcwoBC3Byb2Nlc3NUeElkAgVzdGF0ZQR0eElkBAhyZXNwb25zZQkBJWNsYWltQ29sbGF0ZXJhbFJFQURPTkxZU3RyaW5nUmVzcG9uc2UCBRB1c2VyQWRkcmVzc0J5dGVzCQDZBAEFBHR4SWQJAM0IAgUFc3RhdGUFCHJlc3BvbnNlBAxhbGxSZXNwb25zZXMKAAIkbAUFdHhJZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC3Byb2Nlc3NUeElkAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKCQCUCgIFA25pbAUMYWxsUmVzcG9uc2VzAWkBDXByb2Nlc3NCbG9ja3MBEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEPa2V5UGVyaW9kTGVuZ3RoAAkBB3dyYXBFcnIBAhVpbnZhbGlkIHBlcmlvZCBsZW5ndGgEEmN1cnJlbnRTdGFydEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEOa2V5U3RhcnRIZWlnaHQBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgc3RhcnQgaGVpZ2h0BBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBBJuZXh0QmxvY2tUb1Byb2Nlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAQd3cmFwRXJyAQIdaW52YWxpZCBuZXh0IGJsb2NrIHRvIHByb2Nlc3MED3BlcmlvZEVuZEhlaWdodAkAZQIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAABBBxibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplTWF4ACgEGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUDAwMJAGcCBQZoZWlnaHQFEm5leHRCbG9ja1RvUHJvY2VzcwMJAGcCBRJuZXh0QmxvY2tUb1Byb2Nlc3MFEmN1cnJlbnRTdGFydEhlaWdodAYJAAACBRNjdXJyZW50UGVyaW9kT3JGYWlsAAAHCQBnAgUPcGVyaW9kRW5kSGVpZ2h0BRJuZXh0QmxvY2tUb1Byb2Nlc3MHCQCXAwEJAMwIAgkAZAIJAGUCBQ9wZXJpb2RFbmRIZWlnaHQFEm5leHRCbG9ja1RvUHJvY2VzcwABCQDMCAIFHGJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemVNYXgFA25pbAkBCHRocm93RXJyAQkBB3dyYXBFcnIBAhRpbnZhbGlkIHRhcmdldCBibG9jawQVYmxvY2tQcm9jZXNzaW5nUmV3YXJkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARhrZXlCbG9ja1Byb2Nlc3NpbmdSZXdhcmQACQEHd3JhcEVycgECH2ludmFsaWQgYmxvY2sgcHJvY2Vzc2luZyByZXdhcmQEIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yCQBpAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplBClibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvclJlbWFpbmRlcgkAZQIFFWJsb2NrUHJvY2Vzc2luZ1Jld2FyZAkAaAIFIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplCgEDbWFwAgNhY2MDaW5jAwkAZwIFA2luYwUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQUDYWNjBBF0YXJnZXRCbG9ja0hlaWdodAkAZAIFEm5leHRCbG9ja1RvUHJvY2VzcwUDaW5jBA90YXJnZXRCbG9ja0luZm8JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBRF0YXJnZXRCbG9ja0hlaWdodAkBB3dyYXBFcnIBAhJpbnZhbGlkIGJsb2NrIGluZm8EFHRyZWFzdXJ5UmV3YXJkT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAQ9yZXdhcmRGb3JPcHRpb24CCAUPdGFyZ2V0QmxvY2tJbmZvB3Jld2FyZHMFGnByb3h5VHJlYXN1cnlBZGRyZXNzT3JGYWlsCQEHd3JhcEVycgEJAKwCAgIjaW52YWxpZCB0cmVhc3VyeSByZXdhcmQgZm9yIGhlaWdodCAJAKQDAQURdGFyZ2V0QmxvY2tIZWlnaHQECWdlbmVyYXRvcggFD3RhcmdldEJsb2NrSW5mbwlnZW5lcmF0b3IECWF2YWlsYWJsZQkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDGtleUF2YWlsYWJsZQEFCWdlbmVyYXRvcgAABAxjYWxsZXJSZXdhcmQDCQAAAgUDaW5jCQBlAgUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQABCQBkAgUgYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3IFKWJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yUmVtYWluZGVyBSBibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvcgQNbHBBc3NldEFtb3VudAMJAGYCBRJjdXJyZW50UHJpY2VPckZhaWwAAAkAawMJAGUCBRR0cmVhc3VyeVJld2FyZE9yRmFpbAUMY2FsbGVyUmV3YXJkBQZTQ0FMRTgFEmN1cnJlbnRQcmljZU9yRmFpbAAABBRmYWN0b3J5QWN0aW9uc1NpbmdsZQkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtzdHJpbmdFbnRyeQkAzAgCCQERa2V5QmxvY2tQcm9jZXNzZWQBBRF0YXJnZXRCbG9ja0hlaWdodAkAzAgCCQC5CQIJAMwIAgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQDMCAIJAKQDAQUTY3VycmVudFBlcmlvZE9yRmFpbAkAzAgCCQClCAEFCWdlbmVyYXRvcgkAzAgCCQDYBAEFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgkApAMBBRR0cmVhc3VyeVJld2FyZE9yRmFpbAkAzAgCCQCkAwEFDGNhbGxlclJld2FyZAkAzAgCCQCkAwEFDWxwQXNzZXRBbW91bnQFA25pbAUDU0VQBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDGtleUF2YWlsYWJsZQEFCWdlbmVyYXRvcgkAzAgCCQBkAgUJYXZhaWxhYmxlBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAUDbmlsAwkAAAIFFGZhY3RvcnlBY3Rpb25zU2luZ2xlBRRmYWN0b3J5QWN0aW9uc1NpbmdsZQQNJHQwMjc4MjMyNzg1NgUDYWNjBApscEFzc2V0QWNjCAUNJHQwMjc4MjMyNzg1NgJfMQQJcmV3YXJkQWNjCAUNJHQwMjc4MjMyNzg1NgJfMgkAlAoCCQBkAgUKbHBBc3NldEFjYwUNbHBBc3NldEFtb3VudAkAZAIFCXJld2FyZEFjYwUUdHJlYXN1cnlSZXdhcmRPckZhaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EBGxpc3QJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4JAMwIAgAPCQDMCAIAEAkAzAgCABEJAMwIAgASCQDMCAIAEwkAzAgCABQJAMwIAgAVCQDMCAIAFgkAzAgCABcJAMwIAgAYCQDMCAIAGQkAzAgCABoJAMwIAgAbCQDMCAIAHAkAzAgCAB0JAMwIAgAeCQDMCAIAHwkAzAgCACAJAMwIAgAhCQDMCAIAIgkAzAgCACMJAMwIAgAkCQDMCAIAJQkAzAgCACYJAMwIAgAnBQNuaWwEDSR0MDI4MTIzMjgxOTkKAAIkbAUEbGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgAAAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAMJAAACBQ0kdDAyODEyMzI4MTk5BQ0kdDAyODEyMzI4MTk5BBFyZXdhcmRBbW91bnRUb3RhbAgFDSR0MDI4MTIzMjgxOTkCXzIEEmxwQXNzZXRBbW91bnRUb3RhbAgFDSR0MDI4MTIzMjgxOTkCXzEEFGJ1c2luZXNzVHJlYXN1cnlQYXJ0CQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEXa2V5QnVzaW5lc3NUcmVhc3VyeVBhcnQAAAAEHnJld2FyZFRvQnVzaW5lc3NUcmVhc3VyeUFtb3VudAkAawMFEXJld2FyZEFtb3VudFRvdGFsBRRidXNpbmVzc1RyZWFzdXJ5UGFydAUGU0NBTEU4BBpyZXdhcmRUb01haW5UcmVhc3VyeUFtb3VudAkAZQIJAGUCBRFyZXdhcmRBbW91bnRUb3RhbAUecmV3YXJkVG9CdXNpbmVzc1RyZWFzdXJ5QW1vdW50BRVibG9ja1Byb2Nlc3NpbmdSZXdhcmQECGludmVzdGVkCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQELa2V5SW52ZXN0ZWQBBQR1bml0AAAEB2FjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIHcmVpc3N1ZQkAzAgCBRJscEFzc2V0QW1vdW50VG90YWwFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEVa2V5TmV4dEJsb2NrVG9Qcm9jZXNzAAkAzAgCCQBkAgUSbmV4dEJsb2NrVG9Qcm9jZXNzBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAhl0cmFuc2ZlckZyb21Qcm94eVRyZWFzdXJ5CQDMCAIIBRltYWluVHJlYXN1cnlBZGRyZXNzT3JGYWlsBWJ5dGVzCQDMCAIFGnJld2FyZFRvTWFpblRyZWFzdXJ5QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAhl0cmFuc2ZlckZyb21Qcm94eVRyZWFzdXJ5CQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAhl0cmFuc2ZlckZyb21Qcm94eVRyZWFzdXJ5CQDMCAIIBR1idXNpbmVzc1RyZWFzdXJ5QWRkcmVzc09yRmFpbAVieXRlcwkAzAgCBR5yZXdhcmRUb0J1c2luZXNzVHJlYXN1cnlBbW91bnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQELa2V5SW52ZXN0ZWQBBQR1bml0CQDMCAIJAGQCBQhpbnZlc3RlZAUacmV3YXJkVG9NYWluVHJlYXN1cnlBbW91bnQFA25pbAUDbmlsBQNuaWwDCQAAAgUHYWN0aW9ucwUHYWN0aW9ucwkAlAoCBQNuaWwFBHVuaXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkABAlwdWJsaWNLZXkEByRtYXRjaDAJARlnZXRNYW5hZ2VyUHVibGljS2V5T3JVbml0AAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBANwdWIFByRtYXRjaDAFA3B1YggFAnR4D3NlbmRlclB1YmxpY0tleQkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUJcHVibGljS2V5lGerBA==",
    "height": 2712897,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: CLMt6aWU3TZQHh7iQUHVgmaY9N9TvoF9dj9ZKzg4rwmH
Next: FmtVFbr79GPrefoRWByCjQuLwHJcYBFS7XZ5CRFnbJij

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

Old	New		Differences
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
	6	+	let CONTRACT_NAME = "calculator.ride"
	7	+
	8	+	let SCALE8 = 100000000
	9	+
	10	+	let PENDING = "PENDING"
	11	+
6	12		let WAVES = "WAVES"
7	13
8		-	let contractFilename = "factory.ride"
9		-
10		-	func wrapErr (s) = ((contractFilename + ": ") + s)
	14	+	func wrapErr (s) = ((CONTRACT_NAME + ": ") + s)
11	15
12	16
13	17		func throwErr (s) = throw(wrapErr(s))
	18	+
	19	+
	20	+	func assetIdToString (assetId) = match assetId {
	21	+	case b: ByteVector =>
	22	+	toBase58String(b)
	23	+	case _: Unit =>
	24	+	WAVES
	25	+	case _ =>
	26	+	throw("Match error")
	27	+	}
14	28
15	29
16	30		func stringToAssetId (s) = if ((s == WAVES))

18	32		else fromBase58String(s)
19	33
20	34
21		-	let ADMIN_LIST_SIZE = 5
22		-
23		-	let QUORUM = 3
24		-
25		-	let TXID_BYTES_LENGTH = 32
26		-
27		-	func keyAllowedTxIdVotePrefix (txId) = makeString(["%s%s%s", "allowTxId", txId], SEP)
	35	+	func abs (n) = if ((0 > n))
	36	+	then -(n)
	37	+	else n
28	38
29	39
30		-	func ~~keyFullAdminVote~~ (~~prefix,adminAddress~~) = makeString([~~prefix~~, ~~adminAddress~~], SEP)
	40	+	func keyFactoryAddress () = makeString(["%s", "factory"], SEP)
31	41
32	42
33		-	func ~~keyAdminAddressList~~ () = makeString(["%s", "~~adminAddressList~~"], SEP)
	43	+	func keyManagerPublicKey () = makeString(["%s", "managerPublicKey"], SEP)
34	44
35	45
36		-	func ~~keyAllowedTxId~~ () = makeString(["%s", "~~txId~~"], SEP)
	46	+	func keyLpAssetId () = makeString(["%s", "lpAssetId"], SEP)
37	47
38	48
39		-	func getAdminVote (prefix,admin) = {
40		-	let voteKey = keyFullAdminVote(prefix, admin)
41		-	valueOrElse(getInteger(voteKey), 0)
42		-	}
	49	+	func keyProxyTreasuryAddress () = makeString(["%s", "proxyTreasury"], SEP)
43	50
44	51
45		-	func getAdminsList () = match getString(this, keyAdminAddressList()) {
46		-	case s: String =>
47		-	split(s, SEP)
48		-	case _ =>
49		-	nil
50		-	}
	52	+	func keyMainTreasuryAddress () = makeString(["%s", "mainTreasury"], SEP)
51	53
52	54
53		-	func ~~isInAdminList~~ (~~address~~) = ~~containsElement~~(~~getAdminsList()~~, ~~address~~)
	55	+	func keyBusinessTreasuryAddress () = makeString(["%s", "businessTreasury"], SEP)
54	56
55	57
56		-	func genVotesKeysHelper (a,adminAddress) = {
57		-	let $t013751399 = a
58		-	let result = $t013751399._1
59		-	let prefix = $t013751399._2
60		-	$Tuple2((result :+ keyFullAdminVote(prefix, adminAddress)), prefix)
61		-	}
	58	+	func keyBusinessTreasuryPart () = makeString(["%s", "businessTreasuryPart"], SEP)
62	59
63	60
64		-	func genVotesKeys (keyPrefix) = {
65		-	let adminList = keyAdminAddressList()
66		-	let $t015461630 = {
67		-	let $l = getAdminsList()
68		-	let $s = size($l)
69		-	let $acc0 = $Tuple2(nil, keyPrefix)
70		-	func $f0_1 ($a,$i) = if (($i >= $s))
71		-	then $a
72		-	else genVotesKeysHelper($a, $l[$i])
73		-
74		-	func $f0_2 ($a,$i) = if (($i >= $s))
75		-	then $a
76		-	else throw("List size exceeds 5")
77		-
78		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
79		-	}
80		-	let result = $t015461630._1
81		-	let prefix = $t015461630._2
82		-	result
83		-	}
	61	+	func keyInvested (assetId) = makeString(["%s%s", "invested", assetIdToString(assetId)], SEP)
84	62
85	63
86		-	func ~~countVotesHelper~~ (~~result,voteKey~~) = (~~result + valueOrElse(getInteger(voteKey)~~, 0))
	64	+	func keyDonated (assetId) = makeString(["%s%s", "donated", assetIdToString(assetId)], SEP)
87	65
88	66
89		-	func countVotes (prefix) = {
90		-	let votes = genVotesKeys(prefix)
91		-	let $l = votes
92		-	let $s = size($l)
93		-	let $acc0 = 0
94		-	func $f0_1 ($a,$i) = if (($i >= $s))
95		-	then $a
96		-	else countVotesHelper($a, $l[$i])
97		-
98		-	func $f0_2 ($a,$i) = if (($i >= $s))
99		-	then $a
100		-	else throw("List size exceeds 5")
101		-
102		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
103		-	}
	67	+	func keyAvailable (userAddress) = makeString(["%s%s", "available", toString(userAddress)], SEP)
104	68
105	69
106		-	func ~~clearVotesHelper~~ (~~result,key~~) = (~~result :+~~ ~~DeleteEntry~~(~~key~~))
	70	+	func keyClaimed (userAddress) = makeString(["%s%s", "claimed", toString(userAddress)], SEP)
107	71
108	72
109		-	func getClearVoteEntries (prefix) = {
110		-	let votes = genVotesKeys(prefix)
111		-	let $l = votes
112		-	let $s = size($l)
113		-	let $acc0 = nil
114		-	func $f0_1 ($a,$i) = if (($i >= $s))
115		-	then $a
116		-	else clearVotesHelper($a, $l[$i])
117		-
118		-	func $f0_2 ($a,$i) = if (($i >= $s))
119		-	then $a
120		-	else throw("List size exceeds 5")
121		-
122		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
123		-	}
	73	+	func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
124	74
125	75
126		-	func voteINTERNAL (callerAddressString,keyPrefix,minVotes,voteResult) = {
127		-	let voteKey = keyFullAdminVote(keyPrefix, callerAddressString)
128		-	let adminCurrentVote = getAdminVote(keyPrefix, callerAddressString)
129		-	let err = if (!(isInAdminList(callerAddressString)))
130		-	then throwErr((("Address: " + callerAddressString) + " not in Admin list"))
131		-	else if ((adminCurrentVote == 1))
132		-	then throwErr((voteKey + " you already voted"))
133		-	else unit
134		-	if ((err == err))
135		-	then {
136		-	let votes = countVotes(keyPrefix)
137		-	if (((votes + 1) >= minVotes))
138		-	then {
139		-	let clearVoteEntries = getClearVoteEntries(keyPrefix)
140		-	(clearVoteEntries ++ voteResult)
141		-	}
142		-	else [IntegerEntry(voteKey, 1)]
143		-	}
144		-	else throw("Strict value is not equal to itself.")
145		-	}
	76	+	func keyPriceForPeriod (period) = makeString(["%s%d", "price", toString(period)], SEP)
146	77
147	78
148		-	func ~~keyCalculatorAddress~~ () = "%s~~__calculator~~"
	79	+	func keyStartHeight (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
149	80
150	81
151		-	func ~~keyProxyTreasuryAddress~~ () = "%s~~__proxyTreasury~~"
	82	+	func keyPowerManagerBonus (period) = makeString(["%s%d", "powerManagerBonus", toString(period)], SEP)
152	83
153	84
154		-	func keyChildAddress () = "%s__child"
	85	+	func keyPeriodLength () = "%s__periodLength"
	86	+
	87	+
	88	+	func keyInvestPeriodLength () = "%s__investPeriodLength"
155	89
156	90
157	91		func keyBlockProcessingReward () = "%s__blockProcessingReward"

160	94		func keyNextBlockToProcess () = "%s__nextBlockToProcess"
161	95
162	96
163		-	func ~~keyLpAssetId~~ () = "%s~~__lpAssetId~~"
	97	+	func keyBlockProcessed (height) = makeString(["%s%d", "blockProcessed", toString(height)], SEP)
164	98
165	99
166		-	let calculatorAddressOption = match getString(this, keyCalculatorAddress()) {
	100	+	func keyWithdrawal () = "%s__withdrawal"
	101	+
	102	+
	103	+	func keyWithdrawalRequest (userAddress,txId) = makeString(["%s%s%s", "withdrawal", toString(userAddress), toBase58String(txId)], SEP)
	104	+
	105	+
	106	+	func valueWithdrawalRequest (status,lpAssetAmount,targetPeriod,claimTxId) = {
	107	+	let claimTxIdStr = match claimTxId {
	108	+	case b: ByteVector =>
	109	+	toBase58String(b)
	110	+	case _: Unit =>
	111	+	"SOON"
	112	+	case _ =>
	113	+	throw("Match error")
	114	+	}
	115	+	makeString(["%s%d%d%s", status, toString(lpAssetAmount), toString(targetPeriod), claimTxIdStr], SEP)
	116	+	}
	117	+
	118	+
	119	+	func keyWithdrawalHistory (userAddress,txId) = makeString(["%s%s%s", "withdrawalHistory", toString(userAddress), toBase58String(txId)], SEP)
	120	+
	121	+
	122	+	func keyPeriodWithdrawalAssetIds (period) = makeString(["%s%d", "periodReward", toString(period)], SEP)
	123	+
	124	+
	125	+	func keyPeriodWithdrawalAmounts (period) = makeString(["%s%d", "periodRewardAmount", toString(period)], SEP)
	126	+
	127	+
	128	+	func parseWithdrawalRequestValueOrFail (s) = {
	129	+	let parts = split(s, SEP)
	130	+	if ((size(parts) == 5))
	131	+	then {
	132	+	let status = parts[1]
	133	+	let lpAssetAmount = valueOrErrorMessage(parseInt(parts[2]), wrapErr("invalid lpAssetAmount"))
	134	+	let targetPeriod = valueOrErrorMessage(parseInt(parts[3]), wrapErr("invalid targetPeriod"))
	135	+	let claimTxId = parts[4]
	136	+	$Tuple4(status, lpAssetAmount, targetPeriod, claimTxId)
	137	+	}
	138	+	else throwErr("invalid withdrawal request value")
	139	+	}
	140	+
	141	+
	142	+	let factoryAddressOption = match getString(this, keyFactoryAddress()) {
167	143		case s: String =>
168	144		addressFromString(s)
169	145		case _: Unit =>

172	148		throw("Match error")
173	149		}
174	150
175		-	let ~~calculatorAddressOrFail~~ = valueOrErrorMessage(~~calculatorAddressOption~~, wrapErr("invalid ~~calculator~~ address"))
	151	+	let factoryAddressOrFail = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
176	152
177		-	let proxyTreasuryAddressOption = match getString(this, keyProxyTreasuryAddress()) {
178		-	case s: String =>
179		-	addressFromString(s)
	153	+	let lpAssetIdOption = match factoryAddressOption {
	154	+	case a: Address =>
	155	+	match getString(a, keyLpAssetId()) {
	156	+	case s: String =>
	157	+	fromBase58String(s)
	158	+	case _: Unit =>
	159	+	unit
	160	+	case _ =>
	161	+	throw("Match error")
	162	+	}
180	163		case _: Unit =>
181	164		unit
182	165		case _ =>
183	166		throw("Match error")
184	167		}
185	168
186		-	let ~~proxyTreasuryAddressOrFail~~ = valueOrErrorMessage(~~proxyTreasuryAddressOption~~, wrapErr("invalid ~~proxy treasury address~~"))
	169	+	let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
187	170
188		-	func keyConfigAddress () = "%s__config"
189		-
190		-
191		-	func keyChildrenAddress () = "contract_children"
192		-
193		-
194		-	func keyVotingResultAddress () = "contract_voting_result"
195		-
196		-
197		-	func keyProposalAllowBroadcast (address,txId) = ((("proposal_allow_broadcast_" + toString(address)) + "_") + toBase58String(txId))
198		-
199		-
200		-	func keyInvestedByUser (childAddress,userAddress) = makeString(["investor", toString(childAddress), toString(userAddress)], "_")
201		-
202		-
203		-	let configAddressOption = match getString(this, keyConfigAddress()) {
204		-	case s: String =>
205		-	addressFromString(s)
206		-	case _: Unit =>
207		-	unit
208		-	case _ =>
209		-	throw("Match error")
210		-	}
211		-
212		-	let configAddressOrFail = valueOrErrorMessage(configAddressOption, wrapErr("invalid config address"))
213		-
214		-	let votingResultAddressOption = match configAddressOption {
	171	+	let proxyTreasuryAddressOption = match factoryAddressOption {
215	172		case a: Address =>
216		-	match getString(a, ~~keyVotingResultAddress~~()) {
	173	+	match getString(a, keyProxyTreasuryAddress()) {
217	174		case s: String =>
218	175		addressFromString(s)
219	176		case _: Unit =>

227	184		throw("Match error")
228	185		}
229	186
230		-	let ~~votingResultAddressOrFail~~ = valueOrErrorMessage(~~votingResultAddressOption~~, wrapErr("invalid ~~voting result~~ address"))
	187	+	let proxyTreasuryAddressOrFail = valueOrErrorMessage(proxyTreasuryAddressOption, wrapErr("invalid proxy treasury address"))
231	188
232		-	let ~~childrenAddressOption~~ = match ~~configAddressOption~~ {
	189	+	let mainTreasuryAddressOption = match factoryAddressOption {
233	190		case a: Address =>
234		-	match getString(a, ~~keyChildrenAddress~~()) {
	191	+	match getString(a, keyMainTreasuryAddress()) {
235	192		case s: String =>
236	193		addressFromString(s)
237	194		case _: Unit =>

245	202		throw("Match error")
246	203		}
247	204
248		-	let childrenAddressOrFail = valueOrErrorMessage(childrenAddressOption, wrapErr("invalid children address"))
249		-
250		-	let lpAssetIdOption = match getString(this, keyLpAssetId()) {
251		-	case s: String =>
252		-	fromBase58String(s)
	205	+	let businessTreasuryAddressOption = match factoryAddressOption {
	206	+	case a: Address =>
	207	+	match getString(a, keyBusinessTreasuryAddress()) {
	208	+	case s: String =>
	209	+	addressFromString(s)
	210	+	case _: Unit =>
	211	+	unit
	212	+	case _ =>
	213	+	throw("Match error")
	214	+	}
253	215		case _: Unit =>
254	216		unit
255	217		case _ =>
256	218		throw("Match error")
257	219		}
258	220
259		-	let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
	221	+	let mainTreasuryAddressOrFail = valueOrErrorMessage(mainTreasuryAddressOption, wrapErr("invalid main treasury address"))
	222	+
	223	+	let businessTreasuryAddressOrFail = valueOrErrorMessage(businessTreasuryAddressOption, wrapErr("invalid business treasury address"))
	224	+
	225	+	func getManagerPublicKeyOrUnit () = match factoryAddressOption {
	226	+	case fa: Address =>
	227	+	match getString(fa, keyManagerPublicKey()) {
	228	+	case pub: String =>
	229	+	fromBase58String(pub)
	230	+	case _ =>
	231	+	unit
	232	+	}
	233	+	case _ =>
	234	+	unit
	235	+	}
	236	+
260	237
261	238		func onlyAddress (i,address) = if ((i.caller == address))
262	239		then true
263	240		else throwErr("permission denied")
264	241
265	242
266		-	func ~~onlyThis~~ (i) = onlyAddress(i, ~~this~~)
	243	+	func onlyFactory (i) = onlyAddress(i, factoryAddressOrFail)
267	244
268	245
269		-	func onlyCalculator (i) = onlyAddress(i, calculatorAddressOrFail)
	246	+	func rewardForOption (rewards,target) = {
	247	+	let s = size(rewards)
	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
	257	+	if (if ((s > 0))
	258	+	then (a0 == target)
	259	+	else false)
	260	+	then r0
	261	+	else if (if ((s > 1))
	262	+	then (a1 == target)
	263	+	else false)
	264	+	then r1
	265	+	else if (if ((s > 2))
	266	+	then (a2 == target)
	267	+	else false)
	268	+	then r2
	269	+	else unit
	270	+	}
	271	+
	272	+
	273	+	func finalizeINTERNAL (newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
	274	+	let donatedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyDonated(unit)), 0)
	275	+	let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
	276	+	let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
	277	+	let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
	278	+	let pwrManagersBonusAmount = if (if ((profitRaw >= pwrManagersBonusInWaves))
	279	+	then true
	280	+	else (pwrManagersBonusInWaves == 0))
	281	+	then pwrManagersBonusInWaves
	282	+	else throwErr("power bonus is more than profit")
	283	+	let profit = (profitRaw - pwrManagersBonusAmount)
	284	+	let donationPart = if ((currentTreasuryVolumeInWaves > 0))
	285	+	then fraction(donatedWavesAmount, SCALE8, currentTreasuryVolumeInWaves)
	286	+	else 0
	287	+	let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
	288	+	let investmentProfitPartRaw = (profit - donationProfitPartRaw)
	289	+	let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
	290	+	let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
	291	+	then treasuryVolumeDiffAllocationCoefAbs
	292	+	else 0, SCALE8)
	293	+	let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
	294	+	then treasuryVolumeDiffAllocationCoefAbs
	295	+	else 0, SCALE8)
	296	+	let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
	297	+	let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
	298	+	let donatedWavesAmountNewRaw = (donatedWavesAmount + donationProfitPart)
	299	+	let investedWavesAmountNewRaw = (investedWavesAmount + investmentProfitPart)
	300	+	let donatedPartDebt = min([0, donatedWavesAmountNewRaw])
	301	+	let investedPartDebt = min([0, investedWavesAmountNewRaw])
	302	+	let donatedWavesAmountNew = (max([0, donatedWavesAmountNewRaw]) + investedPartDebt)
	303	+	let investedWavesAmountNew = (max([0, investedWavesAmountNewRaw]) + donatedPartDebt)
	304	+	let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
	305	+	let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
	306	+	let checkIfPriceNotZero = if ((newPrice != 0))
	307	+	then true
	308	+	else throwErr("LP price cannot be 0")
	309	+	if ((checkIfPriceNotZero == checkIfPriceNotZero))
	310	+	then {
	311	+	let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
	312	+	let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
	313	+	let finalInvestedWavesAmount = (investedWavesAmountNew - paymentAmountMin)
	314	+	let lpAssetFinalQuantity = (lpAssetQuantity - lpAssetAmountToBurn)
	315	+	$Tuple6(paymentAmountMin, finalInvestedWavesAmount, donatedWavesAmountNew, newPrice, lpAssetAmountToBurn, lpAssetFinalQuantity)
	316	+	}
	317	+	else throw("Strict value is not equal to itself.")
	318	+	}
	319	+
	320	+
	321	+	func claimCollateralINTERNAL (userAddressBytes,txId) = {
	322	+	let userAddress = Address(userAddressBytes)
	323	+	let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
	324	+	let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
	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
	330	+	if ((targetPeriod > currentPeriodOrFail))
	331	+	then throwErr("invalid withdrawal request period")
	332	+	else {
	333	+	let priceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(targetPeriod)), wrapErr("invalid price"))
	334	+	let wavesAmount = if ((priceOrFail > 0))
	335	+	then fraction(lpAssetAmount, priceOrFail, SCALE8)
	336	+	else 0
	337	+	let assetsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAssetIds(currentPeriodOrFail))
	338	+	let amountsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAmounts(currentPeriodOrFail))
	339	+	$Tuple6(userAddress, lpAssetAmount, targetPeriod, wavesAmount, assetsString, amountsString)
	340	+	}
	341	+	}
	342	+
	343	+
	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
	352	+	let assets = makeString(removeByIndex(split_51C(assetsString, SEP), 0), ":")
	353	+	let amounts = makeString(removeByIndex(split_51C(amountsString, SEP), 0), ":")
	354	+	makeString(["%d%s%s", toString(wavesAmount), assets, amounts], SEP)
	355	+	}
270	356
271	357
272	358		@Callable(i)
273		-	func stringEntry (key,val) = if (onlyCalculator(i))
274		-	then $Tuple2([StringEntry(key, val)], key)
275		-	else $Tuple2(nil, unit)
	359	+	func claimLP (userAddressBytes) = {
	360	+	let checkCaller = onlyFactory(i)
	361	+	if ((checkCaller == checkCaller))
	362	+	then {

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	+	let CONTRACT_NAME = "calculator.ride"
	7	+
	8	+	let SCALE8 = 100000000
	9	+
	10	+	let PENDING = "PENDING"
	11	+
6	12		let WAVES = "WAVES"
7	13
8		-	let contractFilename = "factory.ride"
9		-
10		-	func wrapErr (s) = ((contractFilename + ": ") + s)
	14	+	func wrapErr (s) = ((CONTRACT_NAME + ": ") + s)
11	15
12	16
13	17		func throwErr (s) = throw(wrapErr(s))
	18	+
	19	+
	20	+	func assetIdToString (assetId) = match assetId {
	21	+	case b: ByteVector =>
	22	+	toBase58String(b)
	23	+	case _: Unit =>
	24	+	WAVES
	25	+	case _ =>
	26	+	throw("Match error")
	27	+	}
14	28
15	29
16	30		func stringToAssetId (s) = if ((s == WAVES))
17	31		then unit
18	32		else fromBase58String(s)
19	33
20	34
21		-	let ADMIN_LIST_SIZE = 5
22		-
23		-	let QUORUM = 3
24		-
25		-	let TXID_BYTES_LENGTH = 32
26		-
27		-	func keyAllowedTxIdVotePrefix (txId) = makeString(["%s%s%s", "allowTxId", txId], SEP)
	35	+	func abs (n) = if ((0 > n))
	36	+	then -(n)
	37	+	else n
28	38
29	39
30		-	func ~~keyFullAdminVote~~ (~~prefix,adminAddress~~) = makeString([~~prefix~~, ~~adminAddress~~], SEP)
	40	+	func keyFactoryAddress () = makeString(["%s", "factory"], SEP)
31	41
32	42
33		-	func ~~keyAdminAddressList~~ () = makeString(["%s", "~~adminAddressList~~"], SEP)
	43	+	func keyManagerPublicKey () = makeString(["%s", "managerPublicKey"], SEP)
34	44
35	45
36		-	func ~~keyAllowedTxId~~ () = makeString(["%s", "~~txId~~"], SEP)
	46	+	func keyLpAssetId () = makeString(["%s", "lpAssetId"], SEP)
37	47
38	48
39		-	func getAdminVote (prefix,admin) = {
40		-	let voteKey = keyFullAdminVote(prefix, admin)
41		-	valueOrElse(getInteger(voteKey), 0)
42		-	}
	49	+	func keyProxyTreasuryAddress () = makeString(["%s", "proxyTreasury"], SEP)
43	50
44	51
45		-	func getAdminsList () = match getString(this, keyAdminAddressList()) {
46		-	case s: String =>
47		-	split(s, SEP)
48		-	case _ =>
49		-	nil
50		-	}
	52	+	func keyMainTreasuryAddress () = makeString(["%s", "mainTreasury"], SEP)
51	53
52	54
53		-	func ~~isInAdminList~~ (~~address~~) = ~~containsElement~~(~~getAdminsList()~~, ~~address~~)
	55	+	func keyBusinessTreasuryAddress () = makeString(["%s", "businessTreasury"], SEP)
54	56
55	57
56		-	func genVotesKeysHelper (a,adminAddress) = {
57		-	let $t013751399 = a
58		-	let result = $t013751399._1
59		-	let prefix = $t013751399._2
60		-	$Tuple2((result :+ keyFullAdminVote(prefix, adminAddress)), prefix)
61		-	}
	58	+	func keyBusinessTreasuryPart () = makeString(["%s", "businessTreasuryPart"], SEP)
62	59
63	60
64		-	func genVotesKeys (keyPrefix) = {
65		-	let adminList = keyAdminAddressList()
66		-	let $t015461630 = {
67		-	let $l = getAdminsList()
68		-	let $s = size($l)
69		-	let $acc0 = $Tuple2(nil, keyPrefix)
70		-	func $f0_1 ($a,$i) = if (($i >= $s))
71		-	then $a
72		-	else genVotesKeysHelper($a, $l[$i])
73		-
74		-	func $f0_2 ($a,$i) = if (($i >= $s))
75		-	then $a
76		-	else throw("List size exceeds 5")
77		-
78		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
79		-	}
80		-	let result = $t015461630._1
81		-	let prefix = $t015461630._2
82		-	result
83		-	}
	61	+	func keyInvested (assetId) = makeString(["%s%s", "invested", assetIdToString(assetId)], SEP)
84	62
85	63
86		-	func ~~countVotesHelper~~ (~~result,voteKey~~) = (~~result + valueOrElse(getInteger(voteKey)~~, 0))
	64	+	func keyDonated (assetId) = makeString(["%s%s", "donated", assetIdToString(assetId)], SEP)
87	65
88	66
89		-	func countVotes (prefix) = {
90		-	let votes = genVotesKeys(prefix)
91		-	let $l = votes
92		-	let $s = size($l)
93		-	let $acc0 = 0
94		-	func $f0_1 ($a,$i) = if (($i >= $s))
95		-	then $a
96		-	else countVotesHelper($a, $l[$i])
97		-
98		-	func $f0_2 ($a,$i) = if (($i >= $s))
99		-	then $a
100		-	else throw("List size exceeds 5")
101		-
102		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
103		-	}
	67	+	func keyAvailable (userAddress) = makeString(["%s%s", "available", toString(userAddress)], SEP)
104	68
105	69
106		-	func ~~clearVotesHelper~~ (~~result,key~~) = (~~result :+~~ ~~DeleteEntry~~(~~key~~))
	70	+	func keyClaimed (userAddress) = makeString(["%s%s", "claimed", toString(userAddress)], SEP)
107	71
108	72
109		-	func getClearVoteEntries (prefix) = {
110		-	let votes = genVotesKeys(prefix)
111		-	let $l = votes
112		-	let $s = size($l)
113		-	let $acc0 = nil
114		-	func $f0_1 ($a,$i) = if (($i >= $s))
115		-	then $a
116		-	else clearVotesHelper($a, $l[$i])
117		-
118		-	func $f0_2 ($a,$i) = if (($i >= $s))
119		-	then $a
120		-	else throw("List size exceeds 5")
121		-
122		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
123		-	}
	73	+	func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
124	74
125	75
126		-	func voteINTERNAL (callerAddressString,keyPrefix,minVotes,voteResult) = {
127		-	let voteKey = keyFullAdminVote(keyPrefix, callerAddressString)
128		-	let adminCurrentVote = getAdminVote(keyPrefix, callerAddressString)
129		-	let err = if (!(isInAdminList(callerAddressString)))
130		-	then throwErr((("Address: " + callerAddressString) + " not in Admin list"))
131		-	else if ((adminCurrentVote == 1))
132		-	then throwErr((voteKey + " you already voted"))
133		-	else unit
134		-	if ((err == err))
135		-	then {
136		-	let votes = countVotes(keyPrefix)
137		-	if (((votes + 1) >= minVotes))
138		-	then {
139		-	let clearVoteEntries = getClearVoteEntries(keyPrefix)
140		-	(clearVoteEntries ++ voteResult)
141		-	}
142		-	else [IntegerEntry(voteKey, 1)]
143		-	}
144		-	else throw("Strict value is not equal to itself.")
145		-	}
	76	+	func keyPriceForPeriod (period) = makeString(["%s%d", "price", toString(period)], SEP)
146	77
147	78
148		-	func ~~keyCalculatorAddress~~ () = "%s~~__calculator~~"
	79	+	func keyStartHeight (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
149	80
150	81
151		-	func ~~keyProxyTreasuryAddress~~ () = "%s~~__proxyTreasury~~"
	82	+	func keyPowerManagerBonus (period) = makeString(["%s%d", "powerManagerBonus", toString(period)], SEP)
152	83
153	84
154		-	func keyChildAddress () = "%s__child"
	85	+	func keyPeriodLength () = "%s__periodLength"
	86	+
	87	+
	88	+	func keyInvestPeriodLength () = "%s__investPeriodLength"
155	89
156	90
157	91		func keyBlockProcessingReward () = "%s__blockProcessingReward"
158	92
159	93
160	94		func keyNextBlockToProcess () = "%s__nextBlockToProcess"
161	95
162	96
163		-	func ~~keyLpAssetId~~ () = "%s~~__lpAssetId~~"
	97	+	func keyBlockProcessed (height) = makeString(["%s%d", "blockProcessed", toString(height)], SEP)
164	98
165	99
166		-	let calculatorAddressOption = match getString(this, keyCalculatorAddress()) {
	100	+	func keyWithdrawal () = "%s__withdrawal"
	101	+
	102	+
	103	+	func keyWithdrawalRequest (userAddress,txId) = makeString(["%s%s%s", "withdrawal", toString(userAddress), toBase58String(txId)], SEP)
	104	+
	105	+
	106	+	func valueWithdrawalRequest (status,lpAssetAmount,targetPeriod,claimTxId) = {
	107	+	let claimTxIdStr = match claimTxId {
	108	+	case b: ByteVector =>
	109	+	toBase58String(b)
	110	+	case _: Unit =>
	111	+	"SOON"
	112	+	case _ =>
	113	+	throw("Match error")
	114	+	}
	115	+	makeString(["%s%d%d%s", status, toString(lpAssetAmount), toString(targetPeriod), claimTxIdStr], SEP)
	116	+	}
	117	+
	118	+
	119	+	func keyWithdrawalHistory (userAddress,txId) = makeString(["%s%s%s", "withdrawalHistory", toString(userAddress), toBase58String(txId)], SEP)
	120	+
	121	+
	122	+	func keyPeriodWithdrawalAssetIds (period) = makeString(["%s%d", "periodReward", toString(period)], SEP)
	123	+
	124	+
	125	+	func keyPeriodWithdrawalAmounts (period) = makeString(["%s%d", "periodRewardAmount", toString(period)], SEP)
	126	+
	127	+
	128	+	func parseWithdrawalRequestValueOrFail (s) = {
	129	+	let parts = split(s, SEP)
	130	+	if ((size(parts) == 5))
	131	+	then {
	132	+	let status = parts[1]
	133	+	let lpAssetAmount = valueOrErrorMessage(parseInt(parts[2]), wrapErr("invalid lpAssetAmount"))
	134	+	let targetPeriod = valueOrErrorMessage(parseInt(parts[3]), wrapErr("invalid targetPeriod"))
	135	+	let claimTxId = parts[4]
	136	+	$Tuple4(status, lpAssetAmount, targetPeriod, claimTxId)
	137	+	}
	138	+	else throwErr("invalid withdrawal request value")
	139	+	}
	140	+
	141	+
	142	+	let factoryAddressOption = match getString(this, keyFactoryAddress()) {
167	143		case s: String =>
168	144		addressFromString(s)
169	145		case _: Unit =>
170	146		unit
171	147		case _ =>
172	148		throw("Match error")
173	149		}
174	150
175		-	let ~~calculatorAddressOrFail~~ = valueOrErrorMessage(~~calculatorAddressOption~~, wrapErr("invalid ~~calculator~~ address"))
	151	+	let factoryAddressOrFail = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
176	152
177		-	let proxyTreasuryAddressOption = match getString(this, keyProxyTreasuryAddress()) {
178		-	case s: String =>
179		-	addressFromString(s)
	153	+	let lpAssetIdOption = match factoryAddressOption {
	154	+	case a: Address =>
	155	+	match getString(a, keyLpAssetId()) {
	156	+	case s: String =>
	157	+	fromBase58String(s)
	158	+	case _: Unit =>
	159	+	unit
	160	+	case _ =>
	161	+	throw("Match error")
	162	+	}
180	163		case _: Unit =>
181	164		unit
182	165		case _ =>
183	166		throw("Match error")
184	167		}
185	168
186		-	let ~~proxyTreasuryAddressOrFail~~ = valueOrErrorMessage(~~proxyTreasuryAddressOption~~, wrapErr("invalid ~~proxy treasury address~~"))
	169	+	let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
187	170
188		-	func keyConfigAddress () = "%s__config"
189		-
190		-
191		-	func keyChildrenAddress () = "contract_children"
192		-
193		-
194		-	func keyVotingResultAddress () = "contract_voting_result"
195		-
196		-
197		-	func keyProposalAllowBroadcast (address,txId) = ((("proposal_allow_broadcast_" + toString(address)) + "_") + toBase58String(txId))
198		-
199		-
200		-	func keyInvestedByUser (childAddress,userAddress) = makeString(["investor", toString(childAddress), toString(userAddress)], "_")
201		-
202		-
203		-	let configAddressOption = match getString(this, keyConfigAddress()) {
204		-	case s: String =>
205		-	addressFromString(s)
206		-	case _: Unit =>
207		-	unit
208		-	case _ =>
209		-	throw("Match error")
210		-	}
211		-
212		-	let configAddressOrFail = valueOrErrorMessage(configAddressOption, wrapErr("invalid config address"))
213		-
214		-	let votingResultAddressOption = match configAddressOption {
	171	+	let proxyTreasuryAddressOption = match factoryAddressOption {
215	172		case a: Address =>
216		-	match getString(a, ~~keyVotingResultAddress~~()) {
	173	+	match getString(a, keyProxyTreasuryAddress()) {
217	174		case s: String =>
218	175		addressFromString(s)
219	176		case _: Unit =>
220	177		unit
221	178		case _ =>
222	179		throw("Match error")
223	180		}
224	181		case _: Unit =>
225	182		unit
226	183		case _ =>
227	184		throw("Match error")
228	185		}
229	186
230		-	let ~~votingResultAddressOrFail~~ = valueOrErrorMessage(~~votingResultAddressOption~~, wrapErr("invalid ~~voting result~~ address"))
	187	+	let proxyTreasuryAddressOrFail = valueOrErrorMessage(proxyTreasuryAddressOption, wrapErr("invalid proxy treasury address"))
231	188
232		-	let ~~childrenAddressOption~~ = match ~~configAddressOption~~ {
	189	+	let mainTreasuryAddressOption = match factoryAddressOption {
233	190		case a: Address =>
234		-	match getString(a, ~~keyChildrenAddress~~()) {
	191	+	match getString(a, keyMainTreasuryAddress()) {
235	192		case s: String =>
236	193		addressFromString(s)
237	194		case _: Unit =>
238	195		unit
239	196		case _ =>
240	197		throw("Match error")
241	198		}
242	199		case _: Unit =>
243	200		unit
244	201		case _ =>
245	202		throw("Match error")
246	203		}
247	204
248		-	let childrenAddressOrFail = valueOrErrorMessage(childrenAddressOption, wrapErr("invalid children address"))
249		-
250		-	let lpAssetIdOption = match getString(this, keyLpAssetId()) {
251		-	case s: String =>
252		-	fromBase58String(s)
	205	+	let businessTreasuryAddressOption = match factoryAddressOption {
	206	+	case a: Address =>
	207	+	match getString(a, keyBusinessTreasuryAddress()) {
	208	+	case s: String =>
	209	+	addressFromString(s)
	210	+	case _: Unit =>
	211	+	unit
	212	+	case _ =>
	213	+	throw("Match error")
	214	+	}
253	215		case _: Unit =>
254	216		unit
255	217		case _ =>
256	218		throw("Match error")
257	219		}
258	220
259		-	let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
	221	+	let mainTreasuryAddressOrFail = valueOrErrorMessage(mainTreasuryAddressOption, wrapErr("invalid main treasury address"))
	222	+
	223	+	let businessTreasuryAddressOrFail = valueOrErrorMessage(businessTreasuryAddressOption, wrapErr("invalid business treasury address"))
	224	+
	225	+	func getManagerPublicKeyOrUnit () = match factoryAddressOption {
	226	+	case fa: Address =>
	227	+	match getString(fa, keyManagerPublicKey()) {
	228	+	case pub: String =>
	229	+	fromBase58String(pub)
	230	+	case _ =>
	231	+	unit
	232	+	}
	233	+	case _ =>
	234	+	unit
	235	+	}
	236	+
260	237
261	238		func onlyAddress (i,address) = if ((i.caller == address))
262	239		then true
263	240		else throwErr("permission denied")
264	241
265	242
266		-	func ~~onlyThis~~ (i) = onlyAddress(i, ~~this~~)
	243	+	func onlyFactory (i) = onlyAddress(i, factoryAddressOrFail)
267	244
268	245
269		-	func onlyCalculator (i) = onlyAddress(i, calculatorAddressOrFail)
	246	+	func rewardForOption (rewards,target) = {
	247	+	let s = size(rewards)
	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
	257	+	if (if ((s > 0))
	258	+	then (a0 == target)
	259	+	else false)
	260	+	then r0
	261	+	else if (if ((s > 1))
	262	+	then (a1 == target)
	263	+	else false)
	264	+	then r1
	265	+	else if (if ((s > 2))
	266	+	then (a2 == target)
	267	+	else false)
	268	+	then r2
	269	+	else unit
	270	+	}
	271	+
	272	+
	273	+	func finalizeINTERNAL (newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
	274	+	let donatedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyDonated(unit)), 0)
	275	+	let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
	276	+	let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
	277	+	let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
	278	+	let pwrManagersBonusAmount = if (if ((profitRaw >= pwrManagersBonusInWaves))
	279	+	then true
	280	+	else (pwrManagersBonusInWaves == 0))
	281	+	then pwrManagersBonusInWaves
	282	+	else throwErr("power bonus is more than profit")
	283	+	let profit = (profitRaw - pwrManagersBonusAmount)
	284	+	let donationPart = if ((currentTreasuryVolumeInWaves > 0))
	285	+	then fraction(donatedWavesAmount, SCALE8, currentTreasuryVolumeInWaves)
	286	+	else 0
	287	+	let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
	288	+	let investmentProfitPartRaw = (profit - donationProfitPartRaw)
	289	+	let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
	290	+	let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
	291	+	then treasuryVolumeDiffAllocationCoefAbs
	292	+	else 0, SCALE8)
	293	+	let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
	294	+	then treasuryVolumeDiffAllocationCoefAbs
	295	+	else 0, SCALE8)
	296	+	let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
	297	+	let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
	298	+	let donatedWavesAmountNewRaw = (donatedWavesAmount + donationProfitPart)
	299	+	let investedWavesAmountNewRaw = (investedWavesAmount + investmentProfitPart)
	300	+	let donatedPartDebt = min([0, donatedWavesAmountNewRaw])
	301	+	let investedPartDebt = min([0, investedWavesAmountNewRaw])
	302	+	let donatedWavesAmountNew = (max([0, donatedWavesAmountNewRaw]) + investedPartDebt)
	303	+	let investedWavesAmountNew = (max([0, investedWavesAmountNewRaw]) + donatedPartDebt)
	304	+	let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
	305	+	let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
	306	+	let checkIfPriceNotZero = if ((newPrice != 0))
	307	+	then true
	308	+	else throwErr("LP price cannot be 0")
	309	+	if ((checkIfPriceNotZero == checkIfPriceNotZero))
	310	+	then {
	311	+	let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
	312	+	let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
	313	+	let finalInvestedWavesAmount = (investedWavesAmountNew - paymentAmountMin)
	314	+	let lpAssetFinalQuantity = (lpAssetQuantity - lpAssetAmountToBurn)
	315	+	$Tuple6(paymentAmountMin, finalInvestedWavesAmount, donatedWavesAmountNew, newPrice, lpAssetAmountToBurn, lpAssetFinalQuantity)
	316	+	}
	317	+	else throw("Strict value is not equal to itself.")
	318	+	}
	319	+
	320	+
	321	+	func claimCollateralINTERNAL (userAddressBytes,txId) = {
	322	+	let userAddress = Address(userAddressBytes)
	323	+	let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
	324	+	let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
	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
	330	+	if ((targetPeriod > currentPeriodOrFail))
	331	+	then throwErr("invalid withdrawal request period")
	332	+	else {
	333	+	let priceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(targetPeriod)), wrapErr("invalid price"))
	334	+	let wavesAmount = if ((priceOrFail > 0))
	335	+	then fraction(lpAssetAmount, priceOrFail, SCALE8)
	336	+	else 0
	337	+	let assetsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAssetIds(currentPeriodOrFail))
	338	+	let amountsString = getStringValue(factoryAddressOrFail, keyPeriodWithdrawalAmounts(currentPeriodOrFail))
	339	+	$Tuple6(userAddress, lpAssetAmount, targetPeriod, wavesAmount, assetsString, amountsString)
	340	+	}
	341	+	}
	342	+
	343	+
	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

github/deemru/w8io/3ef1775 
131.18 ms ◑