w8 · tx · 5Zw···rwt

tx · 5Zw1JHvQr7soHtAaHjxUzGsgXK43wpqmjjdvmAo6Yrwt

3N9wLKKtDBphos7U3xzsPqgvJJ5zPQEU6pV:  -0.01300000 Waves

2023.07.06 11:32 [2653815] smart account 3N9wLKKtDBphos7U3xzsPqgvJJ5zPQEU6pV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5Zw1JHvQr7soHtAaHjxUzGsgXK43wpqmjjdvmAo6Yrwt",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1688632362200,
    "version": 1,
    "sender": "3N9wLKKtDBphos7U3xzsPqgvJJ5zPQEU6pV",
    "senderPublicKey": "GKX7DbVJVEtTB6ak3PXWHNPUhC3jym3ozbtZ7a36rGu6",
    "proofs": [
        "2d85SRnZFEEgf6a9LTU7gcor4DNWSwXnFKT9jkJBobanz3QwyM7ELnKkXPUVbC1eFWvJRYDYAoHWQv7uzFHjZEaN"
    ],
    "script": "base64:BgIKCAISBgoEAgEBASwAA1NFUAICX18ADUNPTlRSQUNUX05BTUUCD2NhbGN1bGF0b3IucmlkZQAGU0NBTEU4AIDC1y8AB1BFTkRJTkcCB1BFTkRJTkcACEZJTklTSEVEAghGSU5JU0hFRAAFV0FWRVMCBVdBVkVTAQd3cmFwRXJyAQFzCQCsAgIJAKwCAgUNQ09OVFJBQ1RfTkFNRQICOiAFAXMBCHRocm93RXJyAQFzCQACAQkBB3dyYXBFcnIBBQFzAQ9hc3NldElkVG9TdHJpbmcBB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBYgUHJG1hdGNoMAkA2AQBBQFiAwkAAQIFByRtYXRjaDACBFVuaXQFBVdBVkVTCQACAQILTWF0Y2ggZXJyb3IBA2FicwEBbgMJAGYCAAAFAW4JAQEtAQUBbgUBbgERa2V5RmFjdG9yeUFkZHJlc3MACQC5CQIJAMwIAgICJXMJAMwIAgIHZmFjdG9yeQUDbmlsBQNTRVABE2tleU1hbmFnZXJQdWJsaWNLZXkACQC5CQIJAMwIAgICJXMJAMwIAgIQbWFuYWdlclB1YmxpY0tleQUDbmlsBQNTRVABDGtleUxwQXNzZXRJZAAJALkJAgkAzAgCAgIlcwkAzAgCAglscEFzc2V0SWQFA25pbAUDU0VQARdrZXlQcm94eVRyZWFzdXJ5QWRkcmVzcwAJALkJAgkAzAgCAgIlcwkAzAgCAg1wcm94eVRyZWFzdXJ5BQNuaWwFA1NFUAEWa2V5TWFpblRyZWFzdXJ5QWRkcmVzcwAJALkJAgkAzAgCAgIlcwkAzAgCAgxtYWluVHJlYXN1cnkFA25pbAUDU0VQAQtrZXlJbnZlc3RlZAEHYXNzZXRJZAkAuQkCCQDMCAICBCVzJXMJAMwIAgIIaW52ZXN0ZWQJAMwIAgkBD2Fzc2V0SWRUb1N0cmluZwEFB2Fzc2V0SWQFA25pbAUDU0VQAQprZXlEb25hdGVkAQdhc3NldElkCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgdkb25hdGVkCQDMCAIJAQ9hc3NldElkVG9TdHJpbmcBBQdhc3NldElkBQNuaWwFA1NFUAEMa2V5QXZhaWxhYmxlAQt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBCVzJXMJAMwIAgIJYXZhaWxhYmxlCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDU0VQAQprZXlDbGFpbWVkAQt1c2VyQWRkcmVzcwkAuQkCCQDMCAICBCVzJXMJAMwIAgIHY2xhaW1lZAkAzAgCCQClCAEFC3VzZXJBZGRyZXNzBQNuaWwFA1NFUAEQa2V5Q3VycmVudFBlcmlvZAAJALkJAgkAzAgCAgIlcwkAzAgCAg1jdXJyZW50UGVyaW9kBQNuaWwFA1NFUAERa2V5UHJpY2VGb3JQZXJpb2QBBnBlcmlvZAkAuQkCCQDMCAICBCVzJWQJAMwIAgIFcHJpY2UJAMwIAgkApAMBBQZwZXJpb2QFA25pbAUDU0VQAQ5rZXlTdGFydEhlaWdodAEGcGVyaW9kCQC5CQIJAMwIAgIEJXMlZAkAzAgCAgtzdGFydEhlaWdodAkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABFGtleVBvd2VyTWFuYWdlckJvbnVzAQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICEXBvd2VyTWFuYWdlckJvbnVzCQDMCAIJAKQDAQUGcGVyaW9kBQNuaWwFA1NFUAEPa2V5UGVyaW9kTGVuZ3RoAAIQJXNfX3BlcmlvZExlbmd0aAEYa2V5QmxvY2tQcm9jZXNzaW5nUmV3YXJkAAIZJXNfX2Jsb2NrUHJvY2Vzc2luZ1Jld2FyZAEVa2V5TmV4dEJsb2NrVG9Qcm9jZXNzAAIWJXNfX25leHRCbG9ja1RvUHJvY2VzcwERa2V5QmxvY2tQcm9jZXNzZWQBBmhlaWdodAkAuQkCCQDMCAICBCVzJWQJAMwIAgIOYmxvY2tQcm9jZXNzZWQJAMwIAgkApAMBBQZoZWlnaHQFA25pbAUDU0VQAQ1rZXlXaXRoZHJhd2FsAAIOJXNfX3dpdGhkcmF3YWwBFGtleVdpdGhkcmF3YWxSZXF1ZXN0Agt1c2VyQWRkcmVzcwR0eElkCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICCndpdGhkcmF3YWwJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwkAzAgCCQDYBAEFBHR4SWQFA25pbAUDU0VQARZ2YWx1ZVdpdGhkcmF3YWxSZXF1ZXN0BAZzdGF0dXMNbHBBc3NldEFtb3VudAx0YXJnZXRQZXJpb2QJY2xhaW1UeElkBAxjbGFpbVR4SWRTdHIEByRtYXRjaDAFCWNsYWltVHhJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAIEU09PTgkAAgECC01hdGNoIGVycm9yCQC5CQIJAMwIAgIIJXMlZCVkJXMJAMwIAgUGc3RhdHVzCQDMCAIJAKQDAQUNbHBBc3NldEFtb3VudAkAzAgCCQCkAwEFDHRhcmdldFBlcmlvZAkAzAgCBQxjbGFpbVR4SWRTdHIFA25pbAUDU0VQASFwYXJzZVdpdGhkcmF3YWxSZXF1ZXN0VmFsdWVPckZhaWwBAXMEBXBhcnRzCQC1CQIFAXMFA1NFUAMJAAACCQCQAwEFBXBhcnRzAAUEBnN0YXR1cwkAkQMCBQVwYXJ0cwABBA1scEFzc2V0QW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJALYJAQkAkQMCBQVwYXJ0cwACCQEHd3JhcEVycgECFWludmFsaWQgbHBBc3NldEFtb3VudAQMdGFyZ2V0UGVyaW9kCQETdmFsdWVPckVycm9yTWVzc2FnZQIJALYJAQkAkQMCBQVwYXJ0cwADCQEHd3JhcEVycgECFGludmFsaWQgdGFyZ2V0UGVyaW9kBAljbGFpbVR4SWQJAJEDAgUFcGFydHMABAkAlgoEBQZzdGF0dXMFDWxwQXNzZXRBbW91bnQFDHRhcmdldFBlcmlvZAUJY2xhaW1UeElkCQEIdGhyb3dFcnIBAiBpbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdCB2YWx1ZQAUZmFjdG9yeUFkZHJlc3NPcHRpb24EByRtYXRjaDAJAJ0IAgUEdGhpcwkBEWtleUZhY3RvcnlBZGRyZXNzAAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFGZhY3RvcnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECF2ludmFsaWQgZmFjdG9yeSBhZGRyZXNzAA9scEFzc2V0SWRPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBDGtleUxwQXNzZXRJZAADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQDZBAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAPbHBBc3NldElkT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFD2xwQXNzZXRJZE9wdGlvbgkBB3dyYXBFcnIBAhFpbnZhbGlkIGxwQXNzZXRJZAAacHJveHlUcmVhc3VyeUFkZHJlc3NPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBF2tleVByb3h5VHJlYXN1cnlBZGRyZXNzAAMJAAECBQckbWF0Y2gxAgZTdHJpbmcEAXMFByRtYXRjaDEJAKYIAQUBcwMJAAECBQckbWF0Y2gxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yABpwcm94eVRyZWFzdXJ5QWRkcmVzc09yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRpwcm94eVRyZWFzdXJ5QWRkcmVzc09wdGlvbgkBB3dyYXBFcnIBAh5pbnZhbGlkIHByb3h5IHRyZWFzdXJ5IGFkZHJlc3MAGW1haW5UcmVhc3VyeUFkZHJlc3NPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBFmtleU1haW5UcmVhc3VyeUFkZHJlc3MAAwkAAQIFByRtYXRjaDECBlN0cmluZwQBcwUHJG1hdGNoMQkApggBBQFzAwkAAQIFByRtYXRjaDECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAGW1haW5UcmVhc3VyeUFkZHJlc3NPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUZbWFpblRyZWFzdXJ5QWRkcmVzc09wdGlvbgkBB3dyYXBFcnIBAh1pbnZhbGlkIG1haW4gdHJlYXN1cnkgYWRkcmVzcwEZZ2V0TWFuYWdlclB1YmxpY0tleU9yVW5pdAAEByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAmZhBQckbWF0Y2gwBAckbWF0Y2gxCQCdCAIFAmZhCQETa2V5TWFuYWdlclB1YmxpY0tleQADCQABAgUHJG1hdGNoMQIGU3RyaW5nBANwdWIFByRtYXRjaDEJANkEAQUDcHViBQR1bml0BQR1bml0AQtvbmx5QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAQh0aHJvd0VycgECEXBlcm1pc3Npb24gZGVuaWVkAQtvbmx5RmFjdG9yeQEBaQkBC29ubHlBZGRyZXNzAgUBaQUUZmFjdG9yeUFkZHJlc3NPckZhaWwBD3Jld2FyZEZvck9wdGlvbgIHcmV3YXJkcwZ0YXJnZXQEAXMJAJADAQUHcmV3YXJkcwQLJHQwNDczNTQ3NjAJAJEDAgUHcmV3YXJkcwAABAJhMAgFCyR0MDQ3MzU0NzYwAl8xBAJyMAgFCyR0MDQ3MzU0NzYwAl8yBAskdDA0NzYzNDc4OAkAkQMCBQdyZXdhcmRzAAEEAmExCAULJHQwNDc2MzQ3ODgCXzEEAnIxCAULJHQwNDc2MzQ3ODgCXzIECyR0MDQ3OTE0ODE2CQCRAwIFB3Jld2FyZHMAAgQCYTIIBQskdDA0NzkxNDgxNgJfMQQCcjIIBQskdDA0NzkxNDgxNgJfMgMDCQBmAgUBcwAACQAAAgUCYTAFBnRhcmdldAcFAnIwAwMJAGYCBQFzAAEJAAACBQJhMQUGdGFyZ2V0BwUCcjEDAwkAZgIFAXMAAgkAAAIFAmEyBQZ0YXJnZXQHBQJyMgUEdW5pdAEQZmluYWxpemVJTlRFUk5BTAMYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBBJkb25hdGVkV2F2ZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQprZXlEb25hdGVkAQUEdW5pdAAABBNpbnZlc3RlZFdhdmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQELa2V5SW52ZXN0ZWQBBQR1bml0AAAEHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMJAGQCBRJkb25hdGVkV2F2ZXNBbW91bnQFE2ludmVzdGVkV2F2ZXNBbW91bnQECXByb2ZpdFJhdwkAZQIFGG5ld1RyZWFzdXJ5Vm9sdW1lSW5XYXZlcwUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwQWcHdyTWFuYWdlcnNCb251c0Ftb3VudAMJAGcCBQlwcm9maXRSYXcFF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwkBCHRocm93RXJyAQIfcG93ZXIgYm9udXMgaXMgbW9yZSB0aGFuIHByb2ZpdAQGcHJvZml0CQBlAgUJcHJvZml0UmF3BRZwd3JNYW5hZ2Vyc0JvbnVzQW1vdW50BAxkb25hdGlvblBhcnQDCQBmAgUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwAACQBrAwUSZG9uYXRlZFdhdmVzQW1vdW50BQZTQ0FMRTgFHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAQVZG9uYXRpb25Qcm9maXRQYXJ0UmF3CQBrAwUGcHJvZml0BQxkb25hdGlvblBhcnQFBlNDQUxFOAQXaW52ZXN0bWVudFByb2ZpdFBhcnRSYXcJAGUCBQZwcm9maXQFFWRvbmF0aW9uUHJvZml0UGFydFJhdwQjdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWZBYnMJAQNhYnMBBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgQQYW1vdW50VG9Eb25hdGlvbgkAawMFF2ludmVzdG1lbnRQcm9maXRQYXJ0UmF3AwkAZgIAAAUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSYW1vdW50VG9JbnZlc3RtZW50CQBrAwUVZG9uYXRpb25Qcm9maXRQYXJ0UmF3AwkAZgIFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmAAAFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSZG9uYXRpb25Qcm9maXRQYXJ0CQBkAgkAZQIFFWRvbmF0aW9uUHJvZml0UGFydFJhdwUSYW1vdW50VG9JbnZlc3RtZW50BRBhbW91bnRUb0RvbmF0aW9uBBRpbnZlc3RtZW50UHJvZml0UGFydAkAZAIJAGUCBRdpbnZlc3RtZW50UHJvZml0UGFydFJhdwUQYW1vdW50VG9Eb25hdGlvbgUSYW1vdW50VG9JbnZlc3RtZW50BBhkb25hdGVkV2F2ZXNBbW91bnROZXdSYXcJAGQCBRJkb25hdGVkV2F2ZXNBbW91bnQFEmRvbmF0aW9uUHJvZml0UGFydAQZaW52ZXN0ZWRXYXZlc0Ftb3VudE5ld1JhdwkAZAIFE2ludmVzdGVkV2F2ZXNBbW91bnQFFGludmVzdG1lbnRQcm9maXRQYXJ0BA9kb25hdGVkUGFydERlYnQJAJcDAQkAzAgCAAAJAMwIAgUYZG9uYXRlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwEEGludmVzdGVkUGFydERlYnQJAJcDAQkAzAgCAAAJAMwIAgUZaW52ZXN0ZWRXYXZlc0Ftb3VudE5ld1JhdwUDbmlsBBVkb25hdGVkV2F2ZXNBbW91bnROZXcJAGQCCQCWAwEJAMwIAgAACQDMCAIFGGRvbmF0ZWRXYXZlc0Ftb3VudE5ld1JhdwUDbmlsBRBpbnZlc3RlZFBhcnREZWJ0BBZpbnZlc3RlZFdhdmVzQW1vdW50TmV3CQBkAgkAlgMBCQDMCAIAAAkAzAgCBRlpbnZlc3RlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwFD2RvbmF0ZWRQYXJ0RGVidAQPbHBBc3NldFF1YW50aXR5CAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFD2xwQXNzZXRJZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIGxwQXNzZXQgaW5mbwhxdWFudGl0eQQIbmV3UHJpY2UJAGsDBRZpbnZlc3RlZFdhdmVzQW1vdW50TmV3BQZTQ0FMRTgFD2xwQXNzZXRRdWFudGl0eQQTY2hlY2tJZlByaWNlTm90WmVybwMJAQIhPQIFCG5ld1ByaWNlAAAGCQEIdGhyb3dFcnIBAhRMUCBwcmljZSBjYW5ub3QgYmUgMAMJAAACBRNjaGVja0lmUHJpY2VOb3RaZXJvBRNjaGVja0lmUHJpY2VOb3RaZXJvBBNscEFzc2V0QW1vdW50VG9CdXJuCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAAAAQQcGF5bWVudEFtb3VudE1pbgkAlgMBCQDMCAIAAAkAzAgCCQBrAwUTbHBBc3NldEFtb3VudFRvQnVybgUIbmV3UHJpY2UFBlNDQUxFOAUDbmlsBBhmaW5hbEludmVzdGVkV2F2ZXNBbW91bnQJAGUCBRZpbnZlc3RlZFdhdmVzQW1vdW50TmV3BRBwYXltZW50QW1vdW50TWluBBRscEFzc2V0RmluYWxRdWFudGl0eQkAZQIFD2xwQXNzZXRRdWFudGl0eQUTbHBBc3NldEFtb3VudFRvQnVybgkAmAoGBRBwYXltZW50QW1vdW50TWluBRhmaW5hbEludmVzdGVkV2F2ZXNBbW91bnQFFWRvbmF0ZWRXYXZlc0Ftb3VudE5ldwUIbmV3UHJpY2UFE2xwQXNzZXRBbW91bnRUb0J1cm4FFGxwQXNzZXRGaW5hbFF1YW50aXR5CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQFpAQhmaW5hbGl6ZQQQdXNlckFkZHJlc3NCeXRlcxhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMXcHdyTWFuYWdlcnNCb251c0luV2F2ZXMgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEPa2V5UGVyaW9kTGVuZ3RoAAkBB3dyYXBFcnIBAhVpbnZhbGlkIHBlcmlvZCBsZW5ndGgEEmN1cnJlbnRTdGFydEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEOa2V5U3RhcnRIZWlnaHQBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgc3RhcnQgaGVpZ2h0BBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBBJuZXh0QmxvY2tUb1Byb2Nlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAQd3cmFwRXJyAQIdaW52YWxpZCBuZXh0IGJsb2NrIHRvIHByb2Nlc3MED3BlcmlvZEVuZEhlaWdodAkAZQIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAABBAZjaGVja3MJAMwIAgMJAAACCAUBaQxvcmlnaW5DYWxsZXIFGW1haW5UcmVhc3VyeUFkZHJlc3NPckZhaWwGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAkAzAgCAwkAZgIFEm5leHRCbG9ja1RvUHJvY2VzcwUPcGVyaW9kRW5kSGVpZ2h0BgkBCHRocm93RXJyAQISdW5wcm9jZXNzZWQgYmxvY2tzCQDMCAIDCQBnAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAGCQEIdGhyb3dFcnIBAhtpbnZhbGlkIG5ldyB0cmVhc3VyeSB2b2x1bWUJAMwIAgMJAGcCBRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwAABgkBCHRocm93RXJyAQIaaW52YWxpZCBQV1IgbWFuYWdlcnMgYm9udXMJAMwIAgMDCQBnAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAQEtAQUGU0NBTEU4CQBnAgUGU0NBTEU4BSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgcGCQEIdGhyb3dFcnIBAjNpbnZhbGlkIHRyZWFzdXJ5IHZvbHVtZSBkaWZmIGFsbG9jYXRpb24gY29lZmZpY2llbnQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQSZG9uYXRlZFdhdmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEKa2V5RG9uYXRlZAEFBHVuaXQAAAQTaW52ZXN0ZWRXYXZlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBC2tleUludmVzdGVkAQUEdW5pdAAABBxjdXJyZW50VHJlYXN1cnlWb2x1bWVJbldhdmVzCQBkAgUSZG9uYXRlZFdhdmVzQW1vdW50BRNpbnZlc3RlZFdhdmVzQW1vdW50BAlwcm9maXRSYXcJAGUCBRhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMFHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMEFnB3ck1hbmFnZXJzQm9udXNBbW91bnQDAwkAZgIFCXByb2ZpdFJhdwAACQBnAgUJcHJvZml0UmF3BRdwd3JNYW5hZ2Vyc0JvbnVzSW5XYXZlcwcFF3B3ck1hbmFnZXJzQm9udXNJbldhdmVzCQEIdGhyb3dFcnIBAh9wb3dlciBib251cyBpcyBtb3JlIHRoYW4gcHJvZml0BAZwcm9maXQJAGUCBQlwcm9maXRSYXcFFnB3ck1hbmFnZXJzQm9udXNBbW91bnQEDGRvbmF0aW9uUGFydAMJAGYCBRxjdXJyZW50VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAJAGsDBRJkb25hdGVkV2F2ZXNBbW91bnQFBlNDQUxFOAUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwAABBVkb25hdGlvblByb2ZpdFBhcnRSYXcJAGsDBQZwcm9maXQFDGRvbmF0aW9uUGFydAUGU0NBTEU4BBdpbnZlc3RtZW50UHJvZml0UGFydFJhdwkAZQIFBnByb2ZpdAUVZG9uYXRpb25Qcm9maXRQYXJ0UmF3BCN0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZkFicwkBA2FicwEFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBBBhbW91bnRUb0RvbmF0aW9uCQBrAwUXaW52ZXN0bWVudFByb2ZpdFBhcnRSYXcDCQBmAgAABSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgUjdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWZBYnMAAAUGU0NBTEU4BBJhbW91bnRUb0ludmVzdG1lbnQJAGsDBRVkb25hdGlvblByb2ZpdFBhcnRSYXcDCQBmAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYAAAUjdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWZBYnMAAAUGU0NBTEU4BBJkb25hdGlvblByb2ZpdFBhcnQJAGQCCQBlAgUVZG9uYXRpb25Qcm9maXRQYXJ0UmF3BRJhbW91bnRUb0ludmVzdG1lbnQFEGFtb3VudFRvRG9uYXRpb24EFGludmVzdG1lbnRQcm9maXRQYXJ0CQBkAgkAZQIFF2ludmVzdG1lbnRQcm9maXRQYXJ0UmF3BRBhbW91bnRUb0RvbmF0aW9uBRJhbW91bnRUb0ludmVzdG1lbnQEGGRvbmF0ZWRXYXZlc0Ftb3VudE5ld1JhdwkAZAIFEmRvbmF0ZWRXYXZlc0Ftb3VudAUSZG9uYXRpb25Qcm9maXRQYXJ0BBlpbnZlc3RlZFdhdmVzQW1vdW50TmV3UmF3CQBkAgUTaW52ZXN0ZWRXYXZlc0Ftb3VudAUUaW52ZXN0bWVudFByb2ZpdFBhcnQED2RvbmF0ZWRQYXJ0RGVidAkAlwMBCQDMCAIAAAkAzAgCBRhkb25hdGVkV2F2ZXNBbW91bnROZXdSYXcFA25pbAQQaW52ZXN0ZWRQYXJ0RGVidAkAlwMBCQDMCAIAAAkAzAgCBRlpbnZlc3RlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwEFWRvbmF0ZWRXYXZlc0Ftb3VudE5ldwkAZAIJAJYDAQkAzAgCAAAJAMwIAgUYZG9uYXRlZFdhdmVzQW1vdW50TmV3UmF3BQNuaWwFEGludmVzdGVkUGFydERlYnQEFmludmVzdGVkV2F2ZXNBbW91bnROZXcJAGQCCQCWAwEJAMwIAgAACQDMCAIFGWludmVzdGVkV2F2ZXNBbW91bnROZXdSYXcFA25pbAUPZG9uYXRlZFBhcnREZWJ0BAluZXdQZXJpb2QJAGQCBRNjdXJyZW50UGVyaW9kT3JGYWlsAAEED2xwQXNzZXRRdWFudGl0eQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQ9scEFzc2V0SWRPckZhaWwJAQd3cmFwRXJyAQIUaW52YWxpZCBscEFzc2V0IGluZm8IcXVhbnRpdHkECG5ld1ByaWNlCQBrAwUWaW52ZXN0ZWRXYXZlc0Ftb3VudE5ldwUGU0NBTEU4BQ9scEFzc2V0UXVhbnRpdHkEE2NoZWNrSWZQcmljZU5vdFplcm8DCQECIT0CBQhuZXdQcmljZQAABgkBCHRocm93RXJyAQIUTFAgcHJpY2UgY2Fubm90IGJlIDADCQAAAgUTY2hlY2tJZlByaWNlTm90WmVybwUTY2hlY2tJZlByaWNlTm90WmVybwQTbHBBc3NldEFtb3VudFRvQnVybgkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDWtleVdpdGhkcmF3YWwAAAAEEHBheW1lbnRBbW91bnRNaW4JAJYDAQkAzAgCAAAJAMwIAgkAawMFE2xwQXNzZXRBbW91bnRUb0J1cm4FCG5ld1ByaWNlBQZTQ0FMRTgFA25pbAQNcGF5bWVudE9wdGlvbgMJAGYCCQCQAwEIBQFpCHBheW1lbnRzAAAJAJEDAggFAWkIcGF5bWVudHMAAAUEdW5pdAQNcGF5bWVudEFtb3VudAgJAQV2YWx1ZQEFDXBheW1lbnRPcHRpb24GYW1vdW50BA5wYXltZW50QXNzZXRJZAgJAQV2YWx1ZQEFDXBheW1lbnRPcHRpb24HYXNzZXRJZAQMY2hlY2tQYXltZW50AwMJAAACBRBwYXltZW50QW1vdW50TWluAAAGAwMJAQIhPQIFDXBheW1lbnRPcHRpb24FBHVuaXQJAAACBQ5wYXltZW50QXNzZXRJZAUEdW5pdAcJAGcCBQ1wYXltZW50QW1vdW50BRBwYXltZW50QW1vdW50TWluBwYJAQh0aHJvd0VycgEJAKwCAgImaW52YWxpZCBwYXltZW50cywgcGF5bWVudCBhbW91bnQgbWluOiAJAKQDAQUQcGF5bWVudEFtb3VudE1pbgMJAAACBQxjaGVja1BheW1lbnQFDGNoZWNrUGF5bWVudAQHYWN0aW9ucwMJAQIhPQIFDXBheW1lbnRPcHRpb24FBHVuaXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUUZmFjdG9yeUFkZHJlc3NPckZhaWwFDXBheW1lbnRBbW91bnQFDnBheW1lbnRBc3NldElkBQNuaWwFA25pbAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARRrZXlQb3dlck1hbmFnZXJCb251cwEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAMwIAgUWcHdyTWFuYWdlcnNCb251c0Ftb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARBrZXlDdXJyZW50UGVyaW9kAAkAzAgCBQluZXdQZXJpb2QFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQERa2V5UHJpY2VGb3JQZXJpb2QBBQluZXdQZXJpb2QJAMwIAgUIbmV3UHJpY2UFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEOa2V5U3RhcnRIZWlnaHQBBQluZXdQZXJpb2QJAMwIAgkAZAIFD3BlcmlvZEVuZEhlaWdodAABBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgRidXJuCQDMCAIFE2xwQXNzZXRBbW91bnRUb0J1cm4FA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQENa2V5V2l0aGRyYXdhbAAJAMwIAgAABQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBC2tleUludmVzdGVkAQUEdW5pdAkAzAgCCQBlAgUWaW52ZXN0ZWRXYXZlc0Ftb3VudE5ldwUQcGF5bWVudEFtb3VudE1pbgUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQprZXlEb25hdGVkAQUEdW5pdAkAzAgCBRVkb25hdGVkV2F2ZXNBbW91bnROZXcFA25pbAUDbmlsBQNuaWwJAJQKAgUHYWN0aW9ucwUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4ARUCrLw==",
    "chainId": 84,
    "height": 2653815,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8DdYYNN1NFHZnMENXsWG6SSXmQZLanCoKXPMp65CLgkv
Next: FmL5cQAV3bZMxYNPbfDPzbJGCiv9yQ9ktyTGvN34yqqc

Diff: 
Old New Differences
236 236      let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
237 237      let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
238 238      let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
239 -     let pwrManagersBonusAmount = if (if ((profitRaw > 0))
240 -         then (profitRaw >= pwrManagersBonusInWaves)
241 -         else false)
239 +     let pwrManagersBonusAmount = if ((profitRaw >= pwrManagersBonusInWaves))
242 240          then pwrManagersBonusInWaves
243 241          else throwErr("power bonus is more than profit")
244 242      let profit = (profitRaw - pwrManagersBonusAmount)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let CONTRACT_NAME = "calculator.ride"
7 7  
8 8  let SCALE8 = 100000000
9 9  
10 10  let PENDING = "PENDING"
11 11  
12 12  let FINISHED = "FINISHED"
13 13  
14 14  let WAVES = "WAVES"
15 15  
16 16  func wrapErr (s) = ((CONTRACT_NAME + ": ") + s)
17 17  
18 18  
19 19  func throwErr (s) = throw(wrapErr(s))
20 20  
21 21  
22 22  func assetIdToString (assetId) = match assetId {
23 23      case b: ByteVector => 
24 24          toBase58String(b)
25 25      case _: Unit => 
26 26          WAVES
27 27      case _ => 
28 28          throw("Match error")
29 29  }
30 30  
31 31  
32 32  func abs (n) = if ((0 > n))
33 33      then -(n)
34 34      else n
35 35  
36 36  
37 37  func keyFactoryAddress () = makeString(["%s", "factory"], SEP)
38 38  
39 39  
40 40  func keyManagerPublicKey () = makeString(["%s", "managerPublicKey"], SEP)
41 41  
42 42  
43 43  func keyLpAssetId () = makeString(["%s", "lpAssetId"], SEP)
44 44  
45 45  
46 46  func keyProxyTreasuryAddress () = makeString(["%s", "proxyTreasury"], SEP)
47 47  
48 48  
49 49  func keyMainTreasuryAddress () = makeString(["%s", "mainTreasury"], SEP)
50 50  
51 51  
52 52  func keyInvested (assetId) = makeString(["%s%s", "invested", assetIdToString(assetId)], SEP)
53 53  
54 54  
55 55  func keyDonated (assetId) = makeString(["%s%s", "donated", assetIdToString(assetId)], SEP)
56 56  
57 57  
58 58  func keyAvailable (userAddress) = makeString(["%s%s", "available", toString(userAddress)], SEP)
59 59  
60 60  
61 61  func keyClaimed (userAddress) = makeString(["%s%s", "claimed", toString(userAddress)], SEP)
62 62  
63 63  
64 64  func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
65 65  
66 66  
67 67  func keyPriceForPeriod (period) = makeString(["%s%d", "price", toString(period)], SEP)
68 68  
69 69  
70 70  func keyStartHeight (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
71 71  
72 72  
73 73  func keyPowerManagerBonus (period) = makeString(["%s%d", "powerManagerBonus", toString(period)], SEP)
74 74  
75 75  
76 76  func keyPeriodLength () = "%s__periodLength"
77 77  
78 78  
79 79  func keyBlockProcessingReward () = "%s__blockProcessingReward"
80 80  
81 81  
82 82  func keyNextBlockToProcess () = "%s__nextBlockToProcess"
83 83  
84 84  
85 85  func keyBlockProcessed (height) = makeString(["%s%d", "blockProcessed", toString(height)], SEP)
86 86  
87 87  
88 88  func keyWithdrawal () = "%s__withdrawal"
89 89  
90 90  
91 91  func keyWithdrawalRequest (userAddress,txId) = makeString(["%s%s%s", "withdrawal", toString(userAddress), toBase58String(txId)], SEP)
92 92  
93 93  
94 94  func valueWithdrawalRequest (status,lpAssetAmount,targetPeriod,claimTxId) = {
95 95      let claimTxIdStr =     match claimTxId {
96 96          case b: ByteVector => 
97 97              toBase58String(b)
98 98          case _: Unit => 
99 99              "SOON"
100 100          case _ => 
101 101              throw("Match error")
102 102      }
103 103      makeString(["%s%d%d%s", status, toString(lpAssetAmount), toString(targetPeriod), claimTxIdStr], SEP)
104 104      }
105 105  
106 106  
107 107  func parseWithdrawalRequestValueOrFail (s) = {
108 108      let parts = split(s, SEP)
109 109      if ((size(parts) == 5))
110 110          then {
111 111              let status = parts[1]
112 112              let lpAssetAmount = valueOrErrorMessage(parseInt(parts[2]), wrapErr("invalid lpAssetAmount"))
113 113              let targetPeriod = valueOrErrorMessage(parseInt(parts[3]), wrapErr("invalid targetPeriod"))
114 114              let claimTxId = parts[4]
115 115              $Tuple4(status, lpAssetAmount, targetPeriod, claimTxId)
116 116              }
117 117          else throwErr("invalid withdrawal request value")
118 118      }
119 119  
120 120  
121 121  let factoryAddressOption = match getString(this, keyFactoryAddress()) {
122 122      case s: String => 
123 123          addressFromString(s)
124 124      case _: Unit => 
125 125          unit
126 126      case _ => 
127 127          throw("Match error")
128 128  }
129 129  
130 130  let factoryAddressOrFail = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
131 131  
132 132  let lpAssetIdOption = match factoryAddressOption {
133 133      case a: Address => 
134 134          match getString(a, keyLpAssetId()) {
135 135              case s: String => 
136 136                  fromBase58String(s)
137 137              case _: Unit => 
138 138                  unit
139 139              case _ => 
140 140                  throw("Match error")
141 141          }
142 142      case _: Unit => 
143 143          unit
144 144      case _ => 
145 145          throw("Match error")
146 146  }
147 147  
148 148  let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
149 149  
150 150  let proxyTreasuryAddressOption = match factoryAddressOption {
151 151      case a: Address => 
152 152          match getString(a, keyProxyTreasuryAddress()) {
153 153              case s: String => 
154 154                  addressFromString(s)
155 155              case _: Unit => 
156 156                  unit
157 157              case _ => 
158 158                  throw("Match error")
159 159          }
160 160      case _: Unit => 
161 161          unit
162 162      case _ => 
163 163          throw("Match error")
164 164  }
165 165  
166 166  let proxyTreasuryAddressOrFail = valueOrErrorMessage(proxyTreasuryAddressOption, wrapErr("invalid proxy treasury address"))
167 167  
168 168  let mainTreasuryAddressOption = match factoryAddressOption {
169 169      case a: Address => 
170 170          match getString(a, keyMainTreasuryAddress()) {
171 171              case s: String => 
172 172                  addressFromString(s)
173 173              case _: Unit => 
174 174                  unit
175 175              case _ => 
176 176                  throw("Match error")
177 177          }
178 178      case _: Unit => 
179 179          unit
180 180      case _ => 
181 181          throw("Match error")
182 182  }
183 183  
184 184  let mainTreasuryAddressOrFail = valueOrErrorMessage(mainTreasuryAddressOption, wrapErr("invalid main treasury address"))
185 185  
186 186  func getManagerPublicKeyOrUnit () = match factoryAddressOption {
187 187      case fa: Address => 
188 188          match getString(fa, keyManagerPublicKey()) {
189 189              case pub: String => 
190 190                  fromBase58String(pub)
191 191              case _ => 
192 192                  unit
193 193          }
194 194      case _ => 
195 195          unit
196 196  }
197 197  
198 198  
199 199  func onlyAddress (i,address) = if ((i.caller == address))
200 200      then true
201 201      else throwErr("permission denied")
202 202  
203 203  
204 204  func onlyFactory (i) = onlyAddress(i, factoryAddressOrFail)
205 205  
206 206  
207 207  func rewardForOption (rewards,target) = {
208 208      let s = size(rewards)
209 209      let $t047354760 = rewards[0]
210 210      let a0 = $t047354760._1
211 211      let r0 = $t047354760._2
212 212      let $t047634788 = rewards[1]
213 213      let a1 = $t047634788._1
214 214      let r1 = $t047634788._2
215 215      let $t047914816 = rewards[2]
216 216      let a2 = $t047914816._1
217 217      let r2 = $t047914816._2
218 218      if (if ((s > 0))
219 219          then (a0 == target)
220 220          else false)
221 221          then r0
222 222          else if (if ((s > 1))
223 223              then (a1 == target)
224 224              else false)
225 225              then r1
226 226              else if (if ((s > 2))
227 227                  then (a2 == target)
228 228                  else false)
229 229                  then r2
230 230                  else unit
231 231      }
232 232  
233 233  
234 234  func finalizeINTERNAL (newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
235 235      let donatedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyDonated(unit)), 0)
236 236      let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
237 237      let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
238 238      let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
239 -     let pwrManagersBonusAmount = if (if ((profitRaw > 0))
240 -         then (profitRaw >= pwrManagersBonusInWaves)
241 -         else false)
239 +     let pwrManagersBonusAmount = if ((profitRaw >= pwrManagersBonusInWaves))
242 240          then pwrManagersBonusInWaves
243 241          else throwErr("power bonus is more than profit")
244 242      let profit = (profitRaw - pwrManagersBonusAmount)
245 243      let donationPart = if ((currentTreasuryVolumeInWaves > 0))
246 244          then fraction(donatedWavesAmount, SCALE8, currentTreasuryVolumeInWaves)
247 245          else 0
248 246      let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
249 247      let investmentProfitPartRaw = (profit - donationProfitPartRaw)
250 248      let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
251 249      let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
252 250          then treasuryVolumeDiffAllocationCoefAbs
253 251          else 0, SCALE8)
254 252      let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
255 253          then treasuryVolumeDiffAllocationCoefAbs
256 254          else 0, SCALE8)
257 255      let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
258 256      let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
259 257      let donatedWavesAmountNewRaw = (donatedWavesAmount + donationProfitPart)
260 258      let investedWavesAmountNewRaw = (investedWavesAmount + investmentProfitPart)
261 259      let donatedPartDebt = min([0, donatedWavesAmountNewRaw])
262 260      let investedPartDebt = min([0, investedWavesAmountNewRaw])
263 261      let donatedWavesAmountNew = (max([0, donatedWavesAmountNewRaw]) + investedPartDebt)
264 262      let investedWavesAmountNew = (max([0, investedWavesAmountNewRaw]) + donatedPartDebt)
265 263      let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
266 264      let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
267 265      let checkIfPriceNotZero = if ((newPrice != 0))
268 266          then true
269 267          else throwErr("LP price cannot be 0")
270 268      if ((checkIfPriceNotZero == checkIfPriceNotZero))
271 269          then {
272 270              let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
273 271              let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
274 272              let finalInvestedWavesAmount = (investedWavesAmountNew - paymentAmountMin)
275 273              let lpAssetFinalQuantity = (lpAssetQuantity - lpAssetAmountToBurn)
276 274              $Tuple6(paymentAmountMin, finalInvestedWavesAmount, donatedWavesAmountNew, newPrice, lpAssetAmountToBurn, lpAssetFinalQuantity)
277 275              }
278 276          else throw("Strict value is not equal to itself.")
279 277      }
280 278  
281 279  
282 280  @Callable(i)
283 281  func finalize (userAddressBytes,newTreasuryVolumeInWaves,pwrManagersBonusInWaves,treasuryVolumeDiffAllocationCoef) = {
284 282      let checkCaller = onlyFactory(i)
285 283      if ((checkCaller == checkCaller))
286 284          then {
287 285              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
288 286              let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
289 287              let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
290 288              let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
291 289              let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
292 290              let periodEndHeight = ((currentStartHeight + periodLength) - 1)
293 291              let checks = [if ((i.originCaller == mainTreasuryAddressOrFail))
294 292                  then true
295 293                  else throwErr("permission denied"), if ((nextBlockToProcess > periodEndHeight))
296 294                  then true
297 295                  else throwErr("unprocessed blocks"), if ((newTreasuryVolumeInWaves >= 0))
298 296                  then true
299 297                  else throwErr("invalid new treasury volume"), if ((pwrManagersBonusInWaves >= 0))
300 298                  then true
301 299                  else throwErr("invalid PWR managers bonus"), if (if ((treasuryVolumeDiffAllocationCoef >= -(SCALE8)))
302 300                  then (SCALE8 >= treasuryVolumeDiffAllocationCoef)
303 301                  else false)
304 302                  then true
305 303                  else throwErr("invalid treasury volume diff allocation coefficient")]
306 304              if ((checks == checks))
307 305                  then {
308 306                      let donatedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyDonated(unit)), 0)
309 307                      let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
310 308                      let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
311 309                      let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
312 310                      let pwrManagersBonusAmount = if (if ((profitRaw > 0))
313 311                          then (profitRaw >= pwrManagersBonusInWaves)
314 312                          else false)
315 313                          then pwrManagersBonusInWaves
316 314                          else throwErr("power bonus is more than profit")
317 315                      let profit = (profitRaw - pwrManagersBonusAmount)
318 316                      let donationPart = if ((currentTreasuryVolumeInWaves > 0))
319 317                          then fraction(donatedWavesAmount, SCALE8, currentTreasuryVolumeInWaves)
320 318                          else 0
321 319                      let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
322 320                      let investmentProfitPartRaw = (profit - donationProfitPartRaw)
323 321                      let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
324 322                      let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
325 323                          then treasuryVolumeDiffAllocationCoefAbs
326 324                          else 0, SCALE8)
327 325                      let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
328 326                          then treasuryVolumeDiffAllocationCoefAbs
329 327                          else 0, SCALE8)
330 328                      let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
331 329                      let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
332 330                      let donatedWavesAmountNewRaw = (donatedWavesAmount + donationProfitPart)
333 331                      let investedWavesAmountNewRaw = (investedWavesAmount + investmentProfitPart)
334 332                      let donatedPartDebt = min([0, donatedWavesAmountNewRaw])
335 333                      let investedPartDebt = min([0, investedWavesAmountNewRaw])
336 334                      let donatedWavesAmountNew = (max([0, donatedWavesAmountNewRaw]) + investedPartDebt)
337 335                      let investedWavesAmountNew = (max([0, investedWavesAmountNewRaw]) + donatedPartDebt)
338 336                      let newPeriod = (currentPeriodOrFail + 1)
339 337                      let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
340 338                      let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
341 339                      let checkIfPriceNotZero = if ((newPrice != 0))
342 340                          then true
343 341                          else throwErr("LP price cannot be 0")
344 342                      if ((checkIfPriceNotZero == checkIfPriceNotZero))
345 343                          then {
346 344                              let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
347 345                              let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
348 346                              let paymentOption = if ((size(i.payments) > 0))
349 347                                  then i.payments[0]
350 348                                  else unit
351 349                              let paymentAmount = value(paymentOption).amount
352 350                              let paymentAssetId = value(paymentOption).assetId
353 351                              let checkPayment = if (if ((paymentAmountMin == 0))
354 352                                  then true
355 353                                  else if (if ((paymentOption != unit))
356 354                                      then (paymentAssetId == unit)
357 355                                      else false)
358 356                                      then (paymentAmount >= paymentAmountMin)
359 357                                      else false)
360 358                                  then true
361 359                                  else throwErr(("invalid payments, payment amount min: " + toString(paymentAmountMin)))
362 360                              if ((checkPayment == checkPayment))
363 361                                  then {
364 362                                      let actions = if ((paymentOption != unit))
365 363                                          then [ScriptTransfer(factoryAddressOrFail, paymentAmount, paymentAssetId)]
366 364                                          else nil
367 365                                      let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyPowerManagerBonus(currentPeriodOrFail), pwrManagersBonusAmount], 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), (investedWavesAmountNew - paymentAmountMin)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyDonated(unit), donatedWavesAmountNew], nil)]
368 366                                      $Tuple2(actions, factoryActions)
369 367                                      }
370 368                                  else throw("Strict value is not equal to itself.")
371 369                              }
372 370                          else throw("Strict value is not equal to itself.")
373 371                      }
374 372                  else throw("Strict value is not equal to itself.")
375 373              }
376 374          else throw("Strict value is not equal to itself.")
377 375      }
378 376  
379 377

Old	New		Differences
236	236		let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
237	237		let currentTreasuryVolumeInWaves = (donatedWavesAmount + investedWavesAmount)
238	238		let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
239		-	let pwrManagersBonusAmount = if (if ((profitRaw > 0))
240		-	then (profitRaw >= pwrManagersBonusInWaves)
241		-	else false)
	239	+	let pwrManagersBonusAmount = if ((profitRaw >= pwrManagersBonusInWaves))
242	240		then pwrManagersBonusInWaves
243	241		else throwErr("power bonus is more than profit")
244	242		let profit = (profitRaw - pwrManagersBonusAmount)

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

github/deemru/w8io/026f985 
171.96 ms ◑