w8 · tx · 2ex···RnJ

tx · 2exwXVqToTEqykJyzsPpZ5H9hRhvUQxk17HzDyuyARnJ

3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP:  -0.01900000 Waves

2023.06.23 10:55 [2635020] smart account 3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2exwXVqToTEqykJyzsPpZ5H9hRhvUQxk17HzDyuyARnJ",
    "fee": 1900000,
    "feeAssetId": null,
    "timestamp": 1687506965854,
    "version": 2,
    "chainId": 84,
    "sender": "3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP",
    "senderPublicKey": "AoKo4segKHU4DeJnxXQYJj2u7J6XJeux6r8KLW52cd2Q",
    "proofs": [
        "4SqDSJxJxRMw7VUSR7xdwJWUzfLncRy8hWN7WvWTYfBVNUfRTrbHYy3HAAtLE2k3xe1mHfceksMY5TtgGWNbPzPL"
    ],
    "script": "base64:BwIrCAISAwoBAhIHCgUCAQEBARIDCgECEgMKAQISBAoCAgISBAoCAgISAwoBAigAA1NFUAICX18ADUNPTlRSQUNUX05BTUUCD2NhbGN1bGF0b3IucmlkZQAGU0NBTEU4AIDC1y8ABlNDQUxFNgDAhD0AB1BFTkRJTkcCB1BFTkRJTkcACEZJTklTSEVEAghGSU5JU0hFRAAFV0FWRVMCBVdBVkVTAQd3cmFwRXJyAQFzCQCsAgIJAKwCAgUNQ09OVFJBQ1RfTkFNRQICOiAFAXMBCHRocm93RXJyAQFzCQACAQkBB3dyYXBFcnIBBQFzAQ9hc3NldElkVG9TdHJpbmcBB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBYgUHJG1hdGNoMAkA2AQBBQFiAwkAAQIFByRtYXRjaDACBFVuaXQFBVdBVkVTCQACAQILTWF0Y2ggZXJyb3IBA2FicwEBbgMJAGYCAAAFAW4JAQEtAQUBbgUBbgERa2V5RmFjdG9yeUFkZHJlc3MACQC5CQIJAMwIAgICJXMJAMwIAgIHZmFjdG9yeQUDbmlsBQNTRVABDGtleUxwQXNzZXRJZAAJALkJAgkAzAgCAgIlcwkAzAgCAglscEFzc2V0SWQFA25pbAUDU0VQAQ1rZXlYdG5Bc3NldElkAAkAuQkCCQDMCAICAiVzCQDMCAICCnh0bkFzc2V0SWQFA25pbAUDU0VQARJrZXlUcmVhc3VyeUFkZHJlc3MACQC5CQIJAMwIAgICJXMJAMwIAgIIdHJlYXN1cnkFA25pbAUDU0VQAQtrZXlJbnZlc3RlZAEHYXNzZXRJZAkAuQkCCQDMCAICBCVzJXMJAMwIAgIIaW52ZXN0ZWQJAMwIAgkBD2Fzc2V0SWRUb1N0cmluZwEFB2Fzc2V0SWQFA25pbAUDU0VQAQxrZXlBdmFpbGFibGUBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAglhdmFpbGFibGUJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwUDbmlsBQNTRVABCmtleUNsYWltZWQBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgdjbGFpbWVkCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDU0VQARBrZXlDdXJyZW50UGVyaW9kAAkAuQkCCQDMCAICAiVzCQDMCAICDWN1cnJlbnRQZXJpb2QFA25pbAUDU0VQARFrZXlQcmljZUZvclBlcmlvZAEGcGVyaW9kCQC5CQIJAMwIAgIEJXMlZAkAzAgCAgVwcmljZQkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABDmtleVN0YXJ0SGVpZ2h0AQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICC3N0YXJ0SGVpZ2h0CQDMCAIJAKQDAQUGcGVyaW9kBQNuaWwFA1NFUAEPa2V5UGVyaW9kTGVuZ3RoAAIQJXNfX3BlcmlvZExlbmd0aAEYa2V5QmxvY2tQcm9jZXNzaW5nUmV3YXJkAAIZJXNfX2Jsb2NrUHJvY2Vzc2luZ1Jld2FyZAEVa2V5TmV4dEJsb2NrVG9Qcm9jZXNzAAIWJXNfX25leHRCbG9ja1RvUHJvY2VzcwERa2V5QmxvY2tQcm9jZXNzZWQBBmhlaWdodAkAuQkCCQDMCAICBCVzJWQJAMwIAgIOYmxvY2tQcm9jZXNzZWQJAMwIAgkApAMBBQZoZWlnaHQFA25pbAUDU0VQAQ1rZXlXaXRoZHJhd2FsAAIOJXNfX3dpdGhkcmF3YWwBFGtleVdpdGhkcmF3YWxSZXF1ZXN0Agt1c2VyQWRkcmVzcwR0eElkCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICCndpdGhkcmF3YWwJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwkAzAgCCQDYBAEFBHR4SWQFA25pbAUDU0VQARZ2YWx1ZVdpdGhkcmF3YWxSZXF1ZXN0BAZzdGF0dXMNbHBBc3NldEFtb3VudAx0YXJnZXRQZXJpb2QJY2xhaW1UeElkBAxjbGFpbVR4SWRTdHIEByRtYXRjaDAFCWNsYWltVHhJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAIEU09PTgkAAgECC01hdGNoIGVycm9yCQC5CQIJAMwIAgIIJXMlZCVkJXMJAMwIAgUGc3RhdHVzCQDMCAIJAKQDAQUNbHBBc3NldEFtb3VudAkAzAgCCQCkAwEFDHRhcmdldFBlcmlvZAkAzAgCBQxjbGFpbVR4SWRTdHIFA25pbAUDU0VQASFwYXJzZVdpdGhkcmF3YWxSZXF1ZXN0VmFsdWVPckZhaWwBAXMEBXBhcnRzCQC1CQIFAXMFA1NFUAMJAAACCQCQAwEFBXBhcnRzAAUEBnN0YXR1cwkAkQMCBQVwYXJ0cwABBA1scEFzc2V0QW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJALYJAQkAkQMCBQVwYXJ0cwACCQEHd3JhcEVycgECFWludmFsaWQgbHBBc3NldEFtb3VudAQMdGFyZ2V0UGVyaW9kCQETdmFsdWVPckVycm9yTWVzc2FnZQIJALYJAQkAkQMCBQVwYXJ0cwADCQEHd3JhcEVycgECFGludmFsaWQgdGFyZ2V0UGVyaW9kBAljbGFpbVR4SWQJAJEDAgUFcGFydHMABAkAlgoEBQZzdGF0dXMFDWxwQXNzZXRBbW91bnQFDHRhcmdldFBlcmlvZAUJY2xhaW1UeElkCQEIdGhyb3dFcnIBAiBpbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdCB2YWx1ZQAUZmFjdG9yeUFkZHJlc3NPcHRpb24EByRtYXRjaDAJAJ0IAgUEdGhpcwkBEWtleUZhY3RvcnlBZGRyZXNzAAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFGZhY3RvcnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECF2ludmFsaWQgZmFjdG9yeSBhZGRyZXNzAA9scEFzc2V0SWRPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBDGtleUxwQXNzZXRJZAADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQDZBAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAPbHBBc3NldElkT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFD2xwQXNzZXRJZE9wdGlvbgkBB3dyYXBFcnIBAhFpbnZhbGlkIGxwQXNzZXRJZAAQeHRuQXNzZXRJZE9wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQENa2V5WHRuQXNzZXRJZAADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQDZBAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAQeHRuQXNzZXRJZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRB4dG5Bc3NldElkT3B0aW9uCQEHd3JhcEVycgECEmludmFsaWQgeHRuQXNzZXRJZAAVdHJlYXN1cnlBZGRyZXNzT3B0aW9uBAckbWF0Y2gwBRRmYWN0b3J5QWRkcmVzc09wdGlvbgMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAFhBQckbWF0Y2gwBAckbWF0Y2gxCQCdCAIFAWEJARJrZXlUcmVhc3VyeUFkZHJlc3MAAwkAAQIFByRtYXRjaDECBlN0cmluZwQBcwUHJG1hdGNoMQkApggBBQFzAwkAAQIFByRtYXRjaDECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAFXRyZWFzdXJ5QWRkcmVzc09yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRV0cmVhc3VyeUFkZHJlc3NPcHRpb24JAQd3cmFwRXJyAQIYaW52YWxpZCB0cmVhc3VyeSBhZGRyZXNzAQtvbmx5QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAQh0aHJvd0VycgECEXBlcm1pc3Npb24gZGVuaWVkAQtvbmx5RmFjdG9yeQEBaQkBC29ubHlBZGRyZXNzAgUBaQUUZmFjdG9yeUFkZHJlc3NPckZhaWwBD3Jld2FyZEZvck9wdGlvbgIHcmV3YXJkcwZ0YXJnZXQEAXMJAJADAQUHcmV3YXJkcwQLJHQwNDA5NjQxMjEJAJEDAgUHcmV3YXJkcwAABAJhMAgFCyR0MDQwOTY0MTIxAl8xBAJyMAgFCyR0MDQwOTY0MTIxAl8yBAskdDA0MTI0NDE0OQkAkQMCBQdyZXdhcmRzAAEEAmExCAULJHQwNDEyNDQxNDkCXzEEAnIxCAULJHQwNDEyNDQxNDkCXzIECyR0MDQxNTI0MTc3CQCRAwIFB3Jld2FyZHMAAgQCYTIIBQskdDA0MTUyNDE3NwJfMQQCcjIIBQskdDA0MTUyNDE3NwJfMgMDCQBmAgUBcwAACQAAAgUCYTAFBnRhcmdldAcFAnIwAwMJAGYCBQFzAAEJAAACBQJhMQUGdGFyZ2V0BwUCcjEDAwkAZgIFAXMAAgkAAAIFAmEyBQZ0YXJnZXQHBQJyMgUEdW5pdAcBaQEHY2xhaW1MUAEQdXNlckFkZHJlc3NCeXRlcwQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBAlhdmFpbGFibGUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQxrZXlBdmFpbGFibGUBBQt1c2VyQWRkcmVzcwAABAdjbGFpbWVkCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEKa2V5Q2xhaW1lZAEFC3VzZXJBZGRyZXNzAAAEDmZhY3RvcnlBY3Rpb25zAwkAZgIFCWF2YWlsYWJsZQAACQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyQXNzZXQJAMwIAgUQdXNlckFkZHJlc3NCeXRlcwkAzAgCBQlhdmFpbGFibGUJAMwIAgUPbHBBc3NldElkT3JGYWlsBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDGtleUF2YWlsYWJsZQEFC3VzZXJBZGRyZXNzCQDMCAIAAAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQprZXlDbGFpbWVkAQULdXNlckFkZHJlc3MJAMwIAgkAZAIFB2NsYWltZWQFCWF2YWlsYWJsZQUDbmlsBQNuaWwFA25pbAkBCHRocm93RXJyAQIQbm90aGluZyB0byBjbGFpbQkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGZpbmFsaXplBRB1c2VyQWRkcmVzc0J5dGVzGG5ld1RyZWFzdXJ5Vm9sdW1lSW5XYXZlcwh4dG5QcmljZRBwd3JNYW5hZ2Vyc0JvbnVzIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBAxwZXJpb2RMZW5ndGgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBD2tleVBlcmlvZExlbmd0aAAJAQd3cmFwRXJyAQIVaW52YWxpZCBwZXJpb2QgbGVuZ3RoBBJjdXJyZW50U3RhcnRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDmtleVN0YXJ0SGVpZ2h0AQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIHN0YXJ0IGhlaWdodAQSY3VycmVudFByaWNlT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARFrZXlQcmljZUZvclBlcmlvZAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQINaW52YWxpZCBwcmljZQQSbmV4dEJsb2NrVG9Qcm9jZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MACQEHd3JhcEVycgECHWludmFsaWQgbmV4dCBibG9jayB0byBwcm9jZXNzBA9wZXJpb2RFbmRIZWlnaHQJAGUCCQBkAgUSY3VycmVudFN0YXJ0SGVpZ2h0BQxwZXJpb2RMZW5ndGgAAQQGY2hlY2tzCQDMCAIDCQAAAggFAWkMb3JpZ2luQ2FsbGVyBRV0cmVhc3VyeUFkZHJlc3NPckZhaWwGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAkAzAgCAwkAZgIFEm5leHRCbG9ja1RvUHJvY2VzcwUPcGVyaW9kRW5kSGVpZ2h0BgkBCHRocm93RXJyAQISdW5wcm9jZXNzZWQgYmxvY2tzCQDMCAIDCQBnAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAGCQEIdGhyb3dFcnIBAhtpbnZhbGlkIG5ldyB0cmVhc3VyeSB2b2x1bWUJAMwIAgMJAGcCBQh4dG5QcmljZQAABgkBCHRocm93RXJyAQIRaW52YWxpZCBYVE4gcHJpY2UJAMwIAgMDCQBnAgUQcHdyTWFuYWdlcnNCb251cwAACQBnAgUGU0NBTEU4BRBwd3JNYW5hZ2Vyc0JvbnVzBwYJAQh0aHJvd0VycgECGmludmFsaWQgUFdSIG1hbmFnZXJzIGJvbnVzCQDMCAIDAwkAZwIFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmCQEBLQEFBlNDQUxFOAkAZwIFBlNDQUxFOAUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYHBgkBCHRocm93RXJyAQIzaW52YWxpZCB0cmVhc3VyeSB2b2x1bWUgZGlmZiBhbGxvY2F0aW9uIGNvZWZmaWNpZW50BQNuaWwDCQAAAgUGY2hlY2tzBQZjaGVja3MEEWludmVzdGVkWHRuQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQELa2V5SW52ZXN0ZWQBBRB4dG5Bc3NldElkT3JGYWlsAAAEE2ludmVzdGVkV2F2ZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQtrZXlJbnZlc3RlZAEFBHVuaXQAAAQYaW52ZXN0ZWRYdG5BbW91bnRJbldhdmVzCQBrAwURaW52ZXN0ZWRYdG5BbW91bnQFCHh0blByaWNlBQZTQ0FMRTYEHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMJAGQCBRhpbnZlc3RlZFh0bkFtb3VudEluV2F2ZXMFE2ludmVzdGVkV2F2ZXNBbW91bnQECXByb2ZpdFJhdwkAZQIFGG5ld1RyZWFzdXJ5Vm9sdW1lSW5XYXZlcwUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwQWcHdyTWFuYWdlcnNCb251c0Ftb3VudAMJAGYCBQlwcm9maXRSYXcAAAkAawMFCXByb2ZpdFJhdwUQcHdyTWFuYWdlcnNCb251cwUGU0NBTEU4AAAEBnByb2ZpdAkAZQIFCXByb2ZpdFJhdwUWcHdyTWFuYWdlcnNCb251c0Ftb3VudAQMZG9uYXRpb25QYXJ0AwkAZgIFHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAkAawMFGGludmVzdGVkWHRuQW1vdW50SW5XYXZlcwUGU0NBTEU4BRxjdXJyZW50VHJlYXN1cnlWb2x1bWVJbldhdmVzAAAEFWRvbmF0aW9uUHJvZml0UGFydFJhdwkAawMFBnByb2ZpdAUMZG9uYXRpb25QYXJ0BQZTQ0FMRTgEF2ludmVzdG1lbnRQcm9maXRQYXJ0UmF3CQBlAgUGcHJvZml0BRVkb25hdGlvblByb2ZpdFBhcnRSYXcEI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzCQEDYWJzAQUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYEEGFtb3VudFRvRG9uYXRpb24JAGsDBRdpbnZlc3RtZW50UHJvZml0UGFydFJhdwMJAGYCAAAFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBSN0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZkFicwAABQZTQ0FMRTgEEmFtb3VudFRvSW52ZXN0bWVudAkAawMFFWRvbmF0aW9uUHJvZml0UGFydFJhdwMJAGYCBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgAABSN0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZkFicwAABQZTQ0FMRTgEEmRvbmF0aW9uUHJvZml0UGFydAkAZAIJAGUCBRVkb25hdGlvblByb2ZpdFBhcnRSYXcFEmFtb3VudFRvSW52ZXN0bWVudAUQYW1vdW50VG9Eb25hdGlvbgQUaW52ZXN0bWVudFByb2ZpdFBhcnQJAGQCCQBlAgUXaW52ZXN0bWVudFByb2ZpdFBhcnRSYXcFEGFtb3VudFRvRG9uYXRpb24FEmFtb3VudFRvSW52ZXN0bWVudAQWaW52ZXN0ZWRXYXZlc0Ftb3VudE5ldwkAZAIFE2ludmVzdGVkV2F2ZXNBbW91bnQFFGludmVzdG1lbnRQcm9maXRQYXJ0BBRpbnZlc3RlZFh0bkFtb3VudE5ldwkAawMJAGQCBRhpbnZlc3RlZFh0bkFtb3VudEluV2F2ZXMFEmRvbmF0aW9uUHJvZml0UGFydAUGU0NBTEU2BQh4dG5QcmljZQQJbmV3UGVyaW9kCQBkAgUTY3VycmVudFBlcmlvZE9yRmFpbAABBA9scEFzc2V0UXVhbnRpdHkICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUPbHBBc3NldElkT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgbHBBc3NldCBpbmZvCHF1YW50aXR5BAhuZXdQcmljZQkAawMFFmludmVzdGVkV2F2ZXNBbW91bnROZXcFBlNDQUxFOAUPbHBBc3NldFF1YW50aXR5BBNscEFzc2V0QW1vdW50VG9CdXJuCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAAAAQQcGF5bWVudEFtb3VudE1pbgkAlgMBCQDMCAIAAAkAzAgCCQBrAwUTbHBBc3NldEFtb3VudFRvQnVybgUIbmV3UHJpY2UFBlNDQUxFOAUDbmlsBBJjaGVja1BheW1lbnRBbW91bnQDAwkAAAIFEHBheW1lbnRBbW91bnRNaW4AAAYDAwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUEdW5pdAcJAGcCCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUQcGF5bWVudEFtb3VudE1pbgcGCQEIdGhyb3dFcnIBCQCsAgICJmludmFsaWQgcGF5bWVudHMsIHBheW1lbnQgYW1vdW50IG1pbjogCQCkAwEFEHBheW1lbnRBbW91bnRNaW4DCQAAAgUSY2hlY2tQYXltZW50QW1vdW50BRJjaGVja1BheW1lbnRBbW91bnQEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEQa2V5Q3VycmVudFBlcmlvZAAJAMwIAgUJbmV3UGVyaW9kBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBEWtleVByaWNlRm9yUGVyaW9kAQUJbmV3UGVyaW9kCQDMCAIFCG5ld1ByaWNlBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDmtleVN0YXJ0SGVpZ2h0AQUJbmV3UGVyaW9kCQDMCAIJAGQCBQ9wZXJpb2RFbmRIZWlnaHQAAQUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIEYnVybgkAzAgCBRNscEFzc2V0QW1vdW50VG9CdXJuBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDWtleVdpdGhkcmF3YWwACQDMCAIAAAUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBmludmVzdAEQdXNlckFkZHJlc3NCeXRlcwQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQSY3VycmVudFByaWNlT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARFrZXlQcmljZUZvclBlcmlvZAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQINaW52YWxpZCBwcmljZQQHcGF5bWVudAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkBCHRocm93RXJyAQIQaW52YWxpZCBwYXltZW50cwQNcGF5bWVudEFtb3VudAMDCQAAAggFB3BheW1lbnQHYXNzZXRJZAUEdW5pdAkAZgIIBQdwYXltZW50BmFtb3VudAAABwgFB3BheW1lbnQGYW1vdW50CQEIdGhyb3dFcnIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50BA1scEFzc2V0QW1vdW50AwkAZgIFEmN1cnJlbnRQcmljZU9yRmFpbAAACQBrAwUNcGF5bWVudEFtb3VudAUGU0NBTEU4BRJjdXJyZW50UHJpY2VPckZhaWwAAAQIaW52ZXN0ZWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQtrZXlJbnZlc3RlZAEFBHVuaXQAAAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQtrZXlJbnZlc3RlZAEFBHVuaXQJAMwIAgkAZAIFCGludmVzdGVkBQ1wYXltZW50QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgdyZWlzc3VlCQDMCAIFDWxwQXNzZXRBbW91bnQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyQXNzZXQJAMwIAgUQdXNlckFkZHJlc3NCeXRlcwkAzAgCBQ1scEFzc2V0QW1vdW50CQDMCAIFD2xwQXNzZXRJZE9yRmFpbAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAINdHJhbnNmZXJXYXZlcwkAzAgCCAUVdHJlYXN1cnlBZGRyZXNzT3JGYWlsBWJ5dGVzCQDMCAIFDXBheW1lbnRBbW91bnQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdAUNcGF5bWVudEFtb3VudAUDbmlsBQNuaWwJAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQh3aXRoZHJhdwEQdXNlckFkZHJlc3NCeXRlcwQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQHcGF5bWVudAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkBCHRocm93RXJyAQkBB3dyYXBFcnIBAhBpbnZhbGlkIHBheW1lbnRzBA5wYXltZW50QXNzZXRJZAMJAAACCAUHcGF5bWVudAdhc3NldElkBQ9scEFzc2V0SWRPckZhaWwFD2xwQXNzZXRJZE9yRmFpbAkBCHRocm93RXJyAQIVaW52YWxpZCBwYXltZW50IGFzc2V0BA1wYXltZW50QW1vdW50AwkAZgIIBQdwYXltZW50BmFtb3VudAAACAUHcGF5bWVudAZhbW91bnQJAQh0aHJvd0VycgECFmludmFsaWQgcGF5bWVudCBhbW91bnQECndpdGhkcmF3YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ1rZXlXaXRoZHJhd2FsAAAABA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDWtleVdpdGhkcmF3YWwACQDMCAIJAGQCBQp3aXRoZHJhd2FsBQ1wYXltZW50QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtzdHJpbmdFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwgFAWkNdHJhbnNhY3Rpb25JZAkAzAgCCQEWdmFsdWVXaXRoZHJhd2FsUmVxdWVzdAQFB1BFTkRJTkcFDXBheW1lbnRBbW91bnQJAGQCBRNjdXJyZW50UGVyaW9kT3JGYWlsAAEFBHVuaXQFA25pbAUDbmlsBQNuaWwDCQAAAgUOZmFjdG9yeUFjdGlvbnMFDmZhY3RvcnlBY3Rpb25zCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUUZmFjdG9yeUFkZHJlc3NPckZhaWwFDXBheW1lbnRBbW91bnQFDnBheW1lbnRBc3NldElkBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDmNhbmNlbFdpdGhkcmF3AhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MFBHR4SWQJAQd3cmFwRXJyAQIaaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBA0kdDAxMzMwMDEzNDEzCQEhcGFyc2VXaXRoZHJhd2FsUmVxdWVzdFZhbHVlT3JGYWlsAQUXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24EBnN0YXR1cwgFDSR0MDEzMzAwMTM0MTMCXzEEDWxwQXNzZXRBbW91bnQIBQ0kdDAxMzMwMDEzNDEzAl8yBAx0YXJnZXRQZXJpb2QIBQ0kdDAxMzMwMDEzNDEzAl8zBAljbGFpbVR4SWQIBQ0kdDAxMzMwMDEzNDEzAl80BAZjaGVja3MJAMwIAgMJAAACBQZzdGF0dXMFB1BFTkRJTkcGCQEIdGhyb3dFcnIBAiFpbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdCBzdGF0dXMJAMwIAgMJAGYCBQx0YXJnZXRQZXJpb2QFE2N1cnJlbnRQZXJpb2RPckZhaWwGCQEIdGhyb3dFcnIBAiFpbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdCBwZXJpb2QFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQKd2l0aGRyYXdhbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAJAQd3cmFwRXJyAQIfaW52YWxpZCB0b3RhbCB3aXRoZHJhd2FsIGFtb3VudAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCAwkAZwIFCndpdGhkcmF3YWwFDWxwQXNzZXRBbW91bnQJAGUCBQp3aXRoZHJhd2FsBQ1scEFzc2V0QW1vdW50CQEIdGhyb3dFcnIBAhlpbnZhbGlkIHdpdGhkcmF3YWwgYW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtkZWxldGVFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwUEdHhJZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAINdHJhbnNmZXJBc3NldAkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFDWxwQXNzZXRBbW91bnQJAMwIAgUPbHBBc3NldElkT3JGYWlsBQNuaWwFA25pbAUDbmlsAwkAAAIFDmZhY3RvcnlBY3Rpb25zBQ5mYWN0b3J5QWN0aW9ucwkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCmNsYWltV2F2ZXMCEHVzZXJBZGRyZXNzQnl0ZXMEdHhJZAQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MFBHR4SWQJAQd3cmFwRXJyAQIaaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QEDSR0MDE0NzQ1MTQ4NTgJASFwYXJzZVdpdGhkcmF3YWxSZXF1ZXN0VmFsdWVPckZhaWwBBRd3aXRoZHJhd2FsUmVxdWVzdE9wdGlvbgQGc3RhdHVzCAUNJHQwMTQ3NDUxNDg1OAJfMQQNbHBBc3NldEFtb3VudAgFDSR0MDE0NzQ1MTQ4NTgCXzIEDHRhcmdldFBlcmlvZAgFDSR0MDE0NzQ1MTQ4NTgCXzMECWNsYWltVHhJZAgFDSR0MDE0NzQ1MTQ4NTgCXzQDCQAAAgUGc3RhdHVzBQhGSU5JU0hFRAkBCHRocm93RXJyAQIhaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3Qgc3RhdHVzAwkAZgIFDHRhcmdldFBlcmlvZAUTY3VycmVudFBlcmlvZE9yRmFpbAkBCHRocm93RXJyAQIhaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QgcGVyaW9kBAtwcmljZU9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQERa2V5UHJpY2VGb3JQZXJpb2QBBQx0YXJnZXRQZXJpb2QJAQd3cmFwRXJyAQINaW52YWxpZCBwcmljZQQGYW1vdW50AwkAZgIFC3ByaWNlT3JGYWlsAAAJAGsDBQ1scEFzc2V0QW1vdW50BQtwcmljZU9yRmFpbAUGU0NBTEU4AAAEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCC3N0cmluZ0VudHJ5CQDMCAIJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzBQR0eElkCQDMCAIJARZ2YWx1ZVdpdGhkcmF3YWxSZXF1ZXN0BAUIRklOSVNIRUQFDWxwQXNzZXRBbW91bnQFDHRhcmdldFBlcmlvZAgFAWkNdHJhbnNhY3Rpb25JZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIEYnVybgkAzAgCBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlcldhdmVzCQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUGYW1vdW50BQNuaWwFA25pbAUDbmlsCQCUCgIFA25pbAUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQENcHJvY2Vzc0Jsb2NrcwEQdXNlckFkZHJlc3NCeXRlcwQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQMcGVyaW9kTGVuZ3RoCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ9rZXlQZXJpb2RMZW5ndGgACQEHd3JhcEVycgECFWludmFsaWQgcGVyaW9kIGxlbmd0aAQSY3VycmVudFN0YXJ0SGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ5rZXlTdGFydEhlaWdodAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQIUaW52YWxpZCBzdGFydCBoZWlnaHQEEmN1cnJlbnRQcmljZU9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQERa2V5UHJpY2VGb3JQZXJpb2QBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEEm5leHRCbG9ja1RvUHJvY2VzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEVa2V5TmV4dEJsb2NrVG9Qcm9jZXNzAAkBB3dyYXBFcnIBAh1pbnZhbGlkIG5leHQgYmxvY2sgdG8gcHJvY2VzcwQPcGVyaW9kRW5kSGVpZ2h0CQBlAgkAZAIFEmN1cnJlbnRTdGFydEhlaWdodAUMcGVyaW9kTGVuZ3RoAAEEHGJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemVNYXgAKAQZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQMDAwkAZwIFBmhlaWdodAUSbmV4dEJsb2NrVG9Qcm9jZXNzAwkAZwIFEm5leHRCbG9ja1RvUHJvY2VzcwUSY3VycmVudFN0YXJ0SGVpZ2h0BgkAAAIFE2N1cnJlbnRQZXJpb2RPckZhaWwAAAcJAGcCBQ9wZXJpb2RFbmRIZWlnaHQFEm5leHRCbG9ja1RvUHJvY2VzcwcJAJcDAQkAzAgCCQBkAgkAZQIFD3BlcmlvZEVuZEhlaWdodAUSbmV4dEJsb2NrVG9Qcm9jZXNzAAEJAMwIAgUcYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZU1heAUDbmlsCQEIdGhyb3dFcnIBCQEHd3JhcEVycgECFGludmFsaWQgdGFyZ2V0IGJsb2NrBBVibG9ja1Byb2Nlc3NpbmdSZXdhcmQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBGGtleUJsb2NrUHJvY2Vzc2luZ1Jld2FyZAAJAQd3cmFwRXJyAQIfaW52YWxpZCBibG9jayBwcm9jZXNzaW5nIHJld2FyZAQgYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3IJAGkCBRVibG9ja1Byb2Nlc3NpbmdSZXdhcmQFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUEKWJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yUmVtYWluZGVyCQBlAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkCQBoAgUgYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3IFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUKAQNtYXACA2FjYwNpbmMDCQBnAgUDaW5jBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplBQNhY2MEEXRhcmdldEJsb2NrSGVpZ2h0CQBkAgUSbmV4dEJsb2NrVG9Qcm9jZXNzBQNpbmMED3RhcmdldEJsb2NrSW5mbwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEFEXRhcmdldEJsb2NrSGVpZ2h0CQEHd3JhcEVycgECEmludmFsaWQgYmxvY2sgaW5mbwQUdHJlYXN1cnlSZXdhcmRPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBD3Jld2FyZEZvck9wdGlvbgIIBQ90YXJnZXRCbG9ja0luZm8HcmV3YXJkcwUVdHJlYXN1cnlBZGRyZXNzT3JGYWlsCQEHd3JhcEVycgEJAKwCAgIjaW52YWxpZCB0cmVhc3VyeSByZXdhcmQgZm9yIGhlaWdodCAJAKQDAQURdGFyZ2V0QmxvY2tIZWlnaHQECWdlbmVyYXRvcggFD3RhcmdldEJsb2NrSW5mbwlnZW5lcmF0b3IECWF2YWlsYWJsZQkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDGtleUF2YWlsYWJsZQEFCWdlbmVyYXRvcgAABAxjYWxsZXJSZXdhcmQDCQAAAgUDaW5jCQBlAgUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQABCQBkAgUgYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3IFKWJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yUmVtYWluZGVyBSBibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvcgQNbHBBc3NldEFtb3VudAMJAGYCBRJjdXJyZW50UHJpY2VPckZhaWwAAAkAawMJAGUCBRR0cmVhc3VyeVJld2FyZE9yRmFpbAUMY2FsbGVyUmV3YXJkBQZTQ0FMRTgFEmN1cnJlbnRQcmljZU9yRmFpbAAABBRmYWN0b3J5QWN0aW9uc1NpbmdsZQkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtzdHJpbmdFbnRyeQkAzAgCCQERa2V5QmxvY2tQcm9jZXNzZWQBBRF0YXJnZXRCbG9ja0hlaWdodAkAzAgCCQC5CQIJAMwIAgkA2AQBCAUBaQ10cmFuc2FjdGlvbklkCQDMCAIJAKQDAQUTY3VycmVudFBlcmlvZE9yRmFpbAkAzAgCCQClCAEFCWdlbmVyYXRvcgkAzAgCCQDYBAEFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgkApAMBBRR0cmVhc3VyeVJld2FyZE9yRmFpbAkAzAgCCQCkAwEFDGNhbGxlclJld2FyZAkAzAgCCQCkAwEFDWxwQXNzZXRBbW91bnQFA25pbAUDU0VQBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDGtleUF2YWlsYWJsZQEFCWdlbmVyYXRvcgkAzAgCCQBkAgUJYXZhaWxhYmxlBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAUDbmlsAwkAAAIFFGZhY3RvcnlBY3Rpb25zU2luZ2xlBRRmYWN0b3J5QWN0aW9uc1NpbmdsZQkAZAIFA2FjYwUNbHBBc3NldEFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQEbGlzdAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgkAzAgCAA8JAMwIAgAQCQDMCAIAEQkAzAgCABIJAMwIAgATCQDMCAIAFAkAzAgCABUJAMwIAgAWCQDMCAIAFwkAzAgCABgJAMwIAgAZCQDMCAIAGgkAzAgCABsJAMwIAgAcCQDMCAIAHQkAzAgCAB4JAMwIAgAfCQDMCAIAIAkAzAgCACEJAMwIAgAiCQDMCAIAIwkAzAgCACQJAMwIAgAlCQDMCAIAJgkAzAgCACcFA25pbAQSbHBBc3NldEFtb3VudFRvdGFsCgACJGwFBGxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAMJAAACBRJscEFzc2V0QW1vdW50VG90YWwFEmxwQXNzZXRBbW91bnRUb3RhbAQHYWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlcldhdmVzCQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgdyZWlzc3VlCQDMCAIFEmxwQXNzZXRBbW91bnRUb3RhbAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MACQDMCAIJAGQCBRJuZXh0QmxvY2tUb1Byb2Nlc3MFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUFA25pbAUDbmlsBQNuaWwDCQAAAgUHYWN0aW9ucwUHYWN0aW9ucwkAlAoCBQNuaWwFBHVuaXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5Z2XG7g==",
    "height": 2635020,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4eGwYzfrhm5M6ohyQsDHjMFGTCcMVxqnmZDhv5PdH5eU
Next: 5jKFfKGXisRRwPZWTzWMaWd65RF2gEkYvZz5ghmjyy2U

Diff: 
Old New Differences
472 472                      let lpAssetAmount = if ((currentPriceOrFail > 0))
473 473                          then fraction((treasuryRewardOrFail - callerReward), SCALE8, currentPriceOrFail)
474 474                          else 0
475 -                     let factoryActionsSingle = [invoke(factoryAddressOrFail, "stringEntry", [keyBlockProcessed(targetBlockHeight), makeString([toBase58String(i.transactionId), toBase58String(userAddressBytes), toString(treasuryRewardOrFail), toString(callerReward), toString(lpAssetAmount)], SEP)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(generator), (available + lpAssetAmount)], nil)]
475 +                     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)]
476 476                      if ((factoryActionsSingle == factoryActionsSingle))
477 477                          then (acc + lpAssetAmount)
478 478                          else throw("Strict value is not equal to itself.")
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 7 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let CONTRACT_NAME = "calculator.ride"
7 7  
8 8  let SCALE8 = 100000000
9 9  
10 10  let SCALE6 = 1000000
11 11  
12 12  let PENDING = "PENDING"
13 13  
14 14  let FINISHED = "FINISHED"
15 15  
16 16  let WAVES = "WAVES"
17 17  
18 18  func wrapErr (s) = ((CONTRACT_NAME + ": ") + s)
19 19  
20 20  
21 21  func throwErr (s) = throw(wrapErr(s))
22 22  
23 23  
24 24  func assetIdToString (assetId) = match assetId {
25 25      case b: ByteVector => 
26 26          toBase58String(b)
27 27      case _: Unit => 
28 28          WAVES
29 29      case _ => 
30 30          throw("Match error")
31 31  }
32 32  
33 33  
34 34  func abs (n) = if ((0 > n))
35 35      then -(n)
36 36      else n
37 37  
38 38  
39 39  func keyFactoryAddress () = makeString(["%s", "factory"], SEP)
40 40  
41 41  
42 42  func keyLpAssetId () = makeString(["%s", "lpAssetId"], SEP)
43 43  
44 44  
45 45  func keyXtnAssetId () = makeString(["%s", "xtnAssetId"], SEP)
46 46  
47 47  
48 48  func keyTreasuryAddress () = makeString(["%s", "treasury"], SEP)
49 49  
50 50  
51 51  func keyInvested (assetId) = makeString(["%s%s", "invested", assetIdToString(assetId)], SEP)
52 52  
53 53  
54 54  func keyAvailable (userAddress) = makeString(["%s%s", "available", toString(userAddress)], SEP)
55 55  
56 56  
57 57  func keyClaimed (userAddress) = makeString(["%s%s", "claimed", toString(userAddress)], SEP)
58 58  
59 59  
60 60  func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
61 61  
62 62  
63 63  func keyPriceForPeriod (period) = makeString(["%s%d", "price", toString(period)], SEP)
64 64  
65 65  
66 66  func keyStartHeight (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
67 67  
68 68  
69 69  func keyPeriodLength () = "%s__periodLength"
70 70  
71 71  
72 72  func keyBlockProcessingReward () = "%s__blockProcessingReward"
73 73  
74 74  
75 75  func keyNextBlockToProcess () = "%s__nextBlockToProcess"
76 76  
77 77  
78 78  func keyBlockProcessed (height) = makeString(["%s%d", "blockProcessed", toString(height)], SEP)
79 79  
80 80  
81 81  func keyWithdrawal () = "%s__withdrawal"
82 82  
83 83  
84 84  func keyWithdrawalRequest (userAddress,txId) = makeString(["%s%s%s", "withdrawal", toString(userAddress), toBase58String(txId)], SEP)
85 85  
86 86  
87 87  func valueWithdrawalRequest (status,lpAssetAmount,targetPeriod,claimTxId) = {
88 88      let claimTxIdStr =     match claimTxId {
89 89          case b: ByteVector => 
90 90              toBase58String(b)
91 91          case _: Unit => 
92 92              "SOON"
93 93          case _ => 
94 94              throw("Match error")
95 95      }
96 96      makeString(["%s%d%d%s", status, toString(lpAssetAmount), toString(targetPeriod), claimTxIdStr], SEP)
97 97      }
98 98  
99 99  
100 100  func parseWithdrawalRequestValueOrFail (s) = {
101 101      let parts = split(s, SEP)
102 102      if ((size(parts) == 5))
103 103          then {
104 104              let status = parts[1]
105 105              let lpAssetAmount = valueOrErrorMessage(parseInt(parts[2]), wrapErr("invalid lpAssetAmount"))
106 106              let targetPeriod = valueOrErrorMessage(parseInt(parts[3]), wrapErr("invalid targetPeriod"))
107 107              let claimTxId = parts[4]
108 108              $Tuple4(status, lpAssetAmount, targetPeriod, claimTxId)
109 109              }
110 110          else throwErr("invalid withdrawal request value")
111 111      }
112 112  
113 113  
114 114  let factoryAddressOption = match getString(this, keyFactoryAddress()) {
115 115      case s: String => 
116 116          addressFromString(s)
117 117      case _: Unit => 
118 118          unit
119 119      case _ => 
120 120          throw("Match error")
121 121  }
122 122  
123 123  let factoryAddressOrFail = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
124 124  
125 125  let lpAssetIdOption = match factoryAddressOption {
126 126      case a: Address => 
127 127          match getString(a, keyLpAssetId()) {
128 128              case s: String => 
129 129                  fromBase58String(s)
130 130              case _: Unit => 
131 131                  unit
132 132              case _ => 
133 133                  throw("Match error")
134 134          }
135 135      case _: Unit => 
136 136          unit
137 137      case _ => 
138 138          throw("Match error")
139 139  }
140 140  
141 141  let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
142 142  
143 143  let xtnAssetIdOption = match factoryAddressOption {
144 144      case a: Address => 
145 145          match getString(a, keyXtnAssetId()) {
146 146              case s: String => 
147 147                  fromBase58String(s)
148 148              case _: Unit => 
149 149                  unit
150 150              case _ => 
151 151                  throw("Match error")
152 152          }
153 153      case _: Unit => 
154 154          unit
155 155      case _ => 
156 156          throw("Match error")
157 157  }
158 158  
159 159  let xtnAssetIdOrFail = valueOrErrorMessage(xtnAssetIdOption, wrapErr("invalid xtnAssetId"))
160 160  
161 161  let treasuryAddressOption = match factoryAddressOption {
162 162      case a: Address => 
163 163          match getString(a, keyTreasuryAddress()) {
164 164              case s: String => 
165 165                  addressFromString(s)
166 166              case _: Unit => 
167 167                  unit
168 168              case _ => 
169 169                  throw("Match error")
170 170          }
171 171      case _: Unit => 
172 172          unit
173 173      case _ => 
174 174          throw("Match error")
175 175  }
176 176  
177 177  let treasuryAddressOrFail = valueOrErrorMessage(treasuryAddressOption, wrapErr("invalid treasury address"))
178 178  
179 179  func onlyAddress (i,address) = if ((i.caller == address))
180 180      then true
181 181      else throwErr("permission denied")
182 182  
183 183  
184 184  func onlyFactory (i) = onlyAddress(i, factoryAddressOrFail)
185 185  
186 186  
187 187  func rewardForOption (rewards,target) = {
188 188      let s = size(rewards)
189 189      let $t040964121 = rewards[0]
190 190      let a0 = $t040964121._1
191 191      let r0 = $t040964121._2
192 192      let $t041244149 = rewards[1]
193 193      let a1 = $t041244149._1
194 194      let r1 = $t041244149._2
195 195      let $t041524177 = rewards[2]
196 196      let a2 = $t041524177._1
197 197      let r2 = $t041524177._2
198 198      if (if ((s > 0))
199 199          then (a0 == target)
200 200          else false)
201 201          then r0
202 202          else if (if ((s > 1))
203 203              then (a1 == target)
204 204              else false)
205 205              then r1
206 206              else if (if ((s > 2))
207 207                  then (a2 == target)
208 208                  else false)
209 209                  then r2
210 210                  else unit
211 211      }
212 212  
213 213  
214 214  @Callable(i)
215 215  func claimLP (userAddressBytes) = {
216 216      let checkCaller = onlyFactory(i)
217 217      if ((checkCaller == checkCaller))
218 218          then {
219 219              let userAddress = Address(userAddressBytes)
220 220              let available = valueOrElse(getInteger(factoryAddressOrFail, keyAvailable(userAddress)), 0)
221 221              let claimed = valueOrElse(getInteger(factoryAddressOrFail, keyClaimed(userAddress)), 0)
222 222              let factoryActions = if ((available > 0))
223 223                  then [invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, available, lpAssetIdOrFail], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(userAddress), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyClaimed(userAddress), (claimed + available)], nil)]
224 224                  else throwErr("nothing to claim")
225 225              $Tuple2(nil, factoryActions)
226 226              }
227 227          else throw("Strict value is not equal to itself.")
228 228      }
229 229  
230 230  
231 231  
232 232  @Callable(i)
233 233  func finalize (userAddressBytes,newTreasuryVolumeInWaves,xtnPrice,pwrManagersBonus,treasuryVolumeDiffAllocationCoef) = {
234 234      let checkCaller = onlyFactory(i)
235 235      if ((checkCaller == checkCaller))
236 236          then {
237 237              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
238 238              let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
239 239              let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
240 240              let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
241 241              let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
242 242              let periodEndHeight = ((currentStartHeight + periodLength) - 1)
243 243              let checks = [if ((i.originCaller == treasuryAddressOrFail))
244 244                  then true
245 245                  else throwErr("permission denied"), if ((nextBlockToProcess > periodEndHeight))
246 246                  then true
247 247                  else throwErr("unprocessed blocks"), if ((newTreasuryVolumeInWaves >= 0))
248 248                  then true
249 249                  else throwErr("invalid new treasury volume"), if ((xtnPrice >= 0))
250 250                  then true
251 251                  else throwErr("invalid XTN price"), if (if ((pwrManagersBonus >= 0))
252 252                  then (SCALE8 >= pwrManagersBonus)
253 253                  else false)
254 254                  then true
255 255                  else throwErr("invalid PWR managers bonus"), if (if ((treasuryVolumeDiffAllocationCoef >= -(SCALE8)))
256 256                  then (SCALE8 >= treasuryVolumeDiffAllocationCoef)
257 257                  else false)
258 258                  then true
259 259                  else throwErr("invalid treasury volume diff allocation coefficient")]
260 260              if ((checks == checks))
261 261                  then {
262 262                      let investedXtnAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(xtnAssetIdOrFail)), 0)
263 263                      let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
264 264                      let investedXtnAmountInWaves = fraction(investedXtnAmount, xtnPrice, SCALE6)
265 265                      let currentTreasuryVolumeInWaves = (investedXtnAmountInWaves + investedWavesAmount)
266 266                      let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
267 267                      let pwrManagersBonusAmount = if ((profitRaw > 0))
268 268                          then fraction(profitRaw, pwrManagersBonus, SCALE8)
269 269                          else 0
270 270                      let profit = (profitRaw - pwrManagersBonusAmount)
271 271                      let donationPart = if ((currentTreasuryVolumeInWaves > 0))
272 272                          then fraction(investedXtnAmountInWaves, SCALE8, currentTreasuryVolumeInWaves)
273 273                          else 0
274 274                      let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
275 275                      let investmentProfitPartRaw = (profit - donationProfitPartRaw)
276 276                      let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
277 277                      let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
278 278                          then treasuryVolumeDiffAllocationCoefAbs
279 279                          else 0, SCALE8)
280 280                      let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
281 281                          then treasuryVolumeDiffAllocationCoefAbs
282 282                          else 0, SCALE8)
283 283                      let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
284 284                      let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
285 285                      let investedWavesAmountNew = (investedWavesAmount + investmentProfitPart)
286 286                      let investedXtnAmountNew = fraction((investedXtnAmountInWaves + donationProfitPart), SCALE6, xtnPrice)
287 287                      let newPeriod = (currentPeriodOrFail + 1)
288 288                      let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
289 289                      let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
290 290                      let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
291 291                      let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
292 292                      let checkPaymentAmount = if (if ((paymentAmountMin == 0))
293 293                          then true
294 294                          else if (if ((size(i.payments) == 1))
295 295                              then (i.payments[0].assetId == unit)
296 296                              else false)
297 297                              then (i.payments[0].amount >= paymentAmountMin)
298 298                              else false)
299 299                          then true
300 300                          else throwErr(("invalid payments, payment amount min: " + toString(paymentAmountMin)))
301 301                      if ((checkPaymentAmount == checkPaymentAmount))
302 302                          then {
303 303                              let factoryActions = [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)]
304 304                              $Tuple2(nil, factoryActions)
305 305                              }
306 306                          else throw("Strict value is not equal to itself.")
307 307                      }
308 308                  else throw("Strict value is not equal to itself.")
309 309              }
310 310          else throw("Strict value is not equal to itself.")
311 311      }
312 312  
313 313  
314 314  
315 315  @Callable(i)
316 316  func invest (userAddressBytes) = {
317 317      let checkCaller = onlyFactory(i)
318 318      if ((checkCaller == checkCaller))
319 319          then {
320 320              let userAddress = Address(userAddressBytes)
321 321              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
322 322              let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
323 323              let payment = if ((size(i.payments) == 1))
324 324                  then i.payments[0]
325 325                  else throwErr("invalid payments")
326 326              let paymentAmount = if (if ((payment.assetId == unit))
327 327                  then (payment.amount > 0)
328 328                  else false)
329 329                  then payment.amount
330 330                  else throwErr("invalid payment amount")
331 331              let lpAssetAmount = if ((currentPriceOrFail > 0))
332 332                  then fraction(paymentAmount, SCALE8, currentPriceOrFail)
333 333                  else 0
334 334              let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
335 335              let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentAmount)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil), invoke(factoryAddressOrFail, "transferWaves", [treasuryAddressOrFail.bytes, paymentAmount], [AttachedPayment(unit, paymentAmount)])]
336 336              $Tuple2(nil, factoryActions)
337 337              }
338 338          else throw("Strict value is not equal to itself.")
339 339      }
340 340  
341 341  
342 342  
343 343  @Callable(i)
344 344  func withdraw (userAddressBytes) = {
345 345      let checkCaller = onlyFactory(i)
346 346      if ((checkCaller == checkCaller))
347 347          then {
348 348              let userAddress = Address(userAddressBytes)
349 349              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
350 350              let payment = if ((size(i.payments) == 1))
351 351                  then i.payments[0]
352 352                  else throwErr(wrapErr("invalid payments"))
353 353              let paymentAssetId = if ((payment.assetId == lpAssetIdOrFail))
354 354                  then lpAssetIdOrFail
355 355                  else throwErr("invalid payment asset")
356 356              let paymentAmount = if ((payment.amount > 0))
357 357                  then payment.amount
358 358                  else throwErr("invalid payment amount")
359 359              let withdrawal = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
360 360              let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), (withdrawal + paymentAmount)], nil), invoke(factoryAddressOrFail, "stringEntry", [keyWithdrawalRequest(userAddress, i.transactionId), valueWithdrawalRequest(PENDING, paymentAmount, (currentPeriodOrFail + 1), unit)], nil)]
361 361              if ((factoryActions == factoryActions))
362 362                  then $Tuple2([ScriptTransfer(factoryAddressOrFail, paymentAmount, paymentAssetId)], factoryActions)
363 363                  else throw("Strict value is not equal to itself.")
364 364              }
365 365          else throw("Strict value is not equal to itself.")
366 366      }
367 367  
368 368  
369 369  
370 370  @Callable(i)
371 371  func cancelWithdraw (userAddressBytes,txId) = {
372 372      let checkCaller = onlyFactory(i)
373 373      if ((checkCaller == checkCaller))
374 374          then {
375 375              let userAddress = Address(userAddressBytes)
376 376              let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
377 377              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
378 378              let $t01330013413 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
379 379              let status = $t01330013413._1
380 380              let lpAssetAmount = $t01330013413._2
381 381              let targetPeriod = $t01330013413._3
382 382              let claimTxId = $t01330013413._4
383 383              let checks = [if ((status == PENDING))
384 384                  then true
385 385                  else throwErr("invalid withdrawal request status"), if ((targetPeriod > currentPeriodOrFail))
386 386                  then true
387 387                  else throwErr("invalid withdrawal request period")]
388 388              if ((checks == checks))
389 389                  then {
390 390                      let withdrawal = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyWithdrawal()), wrapErr("invalid total withdrawal amount"))
391 391                      let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), if ((withdrawal >= lpAssetAmount))
392 392                          then (withdrawal - lpAssetAmount)
393 393                          else throwErr("invalid withdrawal amount")], nil), invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, txId)], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
394 394                      if ((factoryActions == factoryActions))
395 395                          then $Tuple2(nil, factoryActions)
396 396                          else throw("Strict value is not equal to itself.")
397 397                      }
398 398                  else throw("Strict value is not equal to itself.")
399 399              }
400 400          else throw("Strict value is not equal to itself.")
401 401      }
402 402  
403 403  
404 404  
405 405  @Callable(i)
406 406  func claimWaves (userAddressBytes,txId) = {
407 407      let checkCaller = onlyFactory(i)
408 408      if ((checkCaller == checkCaller))
409 409          then {
410 410              let userAddress = Address(userAddressBytes)
411 411              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
412 412              let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
413 413              let $t01474514858 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
414 414              let status = $t01474514858._1
415 415              let lpAssetAmount = $t01474514858._2
416 416              let targetPeriod = $t01474514858._3
417 417              let claimTxId = $t01474514858._4
418 418              if ((status == FINISHED))
419 419                  then throwErr("invalid withdrawal request status")
420 420                  else if ((targetPeriod > currentPeriodOrFail))
421 421                      then throwErr("invalid withdrawal request period")
422 422                      else {
423 423                          let priceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(targetPeriod)), wrapErr("invalid price"))
424 424                          let amount = if ((priceOrFail > 0))
425 425                              then fraction(lpAssetAmount, priceOrFail, SCALE8)
426 426                              else 0
427 427                          let factoryActions = [invoke(factoryAddressOrFail, "stringEntry", [keyWithdrawalRequest(userAddress, txId), valueWithdrawalRequest(FINISHED, lpAssetAmount, targetPeriod, i.transactionId)], nil), invoke(factoryAddressOrFail, "burn", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferWaves", [userAddressBytes, amount], nil)]
428 428                          $Tuple2(nil, factoryActions)
429 429                          }
430 430              }
431 431          else throw("Strict value is not equal to itself.")
432 432      }
433 433  
434 434  
435 435  
436 436  @Callable(i)
437 437  func processBlocks (userAddressBytes) = {
438 438      let checkCaller = onlyFactory(i)
439 439      if ((checkCaller == checkCaller))
440 440          then {
441 441              let userAddress = Address(userAddressBytes)
442 442              let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
443 443              let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
444 444              let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
445 445              let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
446 446              let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
447 447              let periodEndHeight = ((currentStartHeight + periodLength) - 1)
448 448              let blocksProcessingBatchSizeMax = 40
449 449              let blocksProcessingBatchSize = if (if (if ((height >= nextBlockToProcess))
450 450                  then if ((nextBlockToProcess >= currentStartHeight))
451 451                      then true
452 452                      else (currentPeriodOrFail == 0)
453 453                  else false)
454 454                  then (periodEndHeight >= nextBlockToProcess)
455 455                  else false)
456 456                  then min([((periodEndHeight - nextBlockToProcess) + 1), blocksProcessingBatchSizeMax])
457 457                  else throwErr(wrapErr("invalid target block"))
458 458              let blockProcessingReward = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyBlockProcessingReward()), wrapErr("invalid block processing reward"))
459 459              let blockProcessingRewardByGenerator = (blockProcessingReward / blocksProcessingBatchSize)
460 460              let blockProcessingRewardByGeneratorRemainder = (blockProcessingReward - (blockProcessingRewardByGenerator * blocksProcessingBatchSize))
461 461              func map (acc,inc) =             if ((inc >= blocksProcessingBatchSize))
462 462                  then acc
463 463                  else {
464 464                      let targetBlockHeight = (nextBlockToProcess + inc)
465 465                      let targetBlockInfo = valueOrErrorMessage(blockInfoByHeight(targetBlockHeight), wrapErr("invalid block info"))
466 466                      let treasuryRewardOrFail = valueOrErrorMessage(rewardForOption(targetBlockInfo.rewards, treasuryAddressOrFail), wrapErr(("invalid treasury reward for height " + toString(targetBlockHeight))))
467 467                      let generator = targetBlockInfo.generator
468 468                      let available = valueOrElse(getInteger(factoryAddressOrFail, keyAvailable(generator)), 0)
469 469                      let callerReward = if ((inc == (blocksProcessingBatchSize - 1)))
470 470                          then (blockProcessingRewardByGenerator + blockProcessingRewardByGeneratorRemainder)
471 471                          else blockProcessingRewardByGenerator
472 472                      let lpAssetAmount = if ((currentPriceOrFail > 0))
473 473                          then fraction((treasuryRewardOrFail - callerReward), SCALE8, currentPriceOrFail)
474 474                          else 0
475 -                     let factoryActionsSingle = [invoke(factoryAddressOrFail, "stringEntry", [keyBlockProcessed(targetBlockHeight), makeString([toBase58String(i.transactionId), toBase58String(userAddressBytes), toString(treasuryRewardOrFail), toString(callerReward), toString(lpAssetAmount)], SEP)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(generator), (available + lpAssetAmount)], nil)]
475 +                     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)]
476 476                      if ((factoryActionsSingle == factoryActionsSingle))
477 477                          then (acc + lpAssetAmount)
478 478                          else throw("Strict value is not equal to itself.")
479 479                      }
480 480  
481 481              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]
482 482              let lpAssetAmountTotal = {
483 483                  let $l = list
484 484                  let $s = size($l)
485 485                  let $acc0 = 0
486 486                  func $f0_1 ($a,$i) =                 if (($i >= $s))
487 487                      then $a
488 488                      else map($a, $l[$i])
489 489  
490 490                  func $f0_2 ($a,$i) =                 if (($i >= $s))
491 491                      then $a
492 492                      else throw("List size exceeds 40")
493 493  
494 494                  $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)
495 495                  }
496 496              if ((lpAssetAmountTotal == lpAssetAmountTotal))
497 497                  then {
498 498                      let actions = [invoke(factoryAddressOrFail, "transferWaves", [userAddressBytes, blockProcessingReward], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmountTotal], nil), invoke(factoryAddressOrFail, "integerEntry", [keyNextBlockToProcess(), (nextBlockToProcess + blocksProcessingBatchSize)], nil)]
499 499                      if ((actions == actions))
500 500                          then $Tuple2(nil, unit)
501 501                          else throw("Strict value is not equal to itself.")
502 502                      }
503 503                  else throw("Strict value is not equal to itself.")
504 504              }
505 505          else throw("Strict value is not equal to itself.")
506 506      }
507 507  
508 508  
509 509  @Verifier(tx)
510 510  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
511 511

Old	New		Differences
472	472		let lpAssetAmount = if ((currentPriceOrFail > 0))
473	473		then fraction((treasuryRewardOrFail - callerReward), SCALE8, currentPriceOrFail)
474	474		else 0
475		-	let factoryActionsSingle = [invoke(factoryAddressOrFail, "stringEntry", [keyBlockProcessed(targetBlockHeight), makeString([toBase58String(i.transactionId), toBase58String(userAddressBytes), toString(treasuryRewardOrFail), toString(callerReward), toString(lpAssetAmount)], SEP)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(generator), (available + lpAssetAmount)], nil)]
	475	+	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)]
476	476		if ((factoryActionsSingle == factoryActionsSingle))
477	477		then (acc + lpAssetAmount)
478	478		else throw("Strict value is not equal to itself.")

Old	New		Differences
1	1		{-# STDLIB_VERSION 7 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
6	6		let CONTRACT_NAME = "calculator.ride"
7	7
8	8		let SCALE8 = 100000000
9	9
10	10		let SCALE6 = 1000000
11	11
12	12		let PENDING = "PENDING"
13	13
14	14		let FINISHED = "FINISHED"
15	15
16	16		let WAVES = "WAVES"
17	17
18	18		func wrapErr (s) = ((CONTRACT_NAME + ": ") + s)
19	19
20	20
21	21		func throwErr (s) = throw(wrapErr(s))
22	22
23	23
24	24		func assetIdToString (assetId) = match assetId {
25	25		case b: ByteVector =>
26	26		toBase58String(b)
27	27		case _: Unit =>
28	28		WAVES
29	29		case _ =>
30	30		throw("Match error")
31	31		}
32	32
33	33
34	34		func abs (n) = if ((0 > n))
35	35		then -(n)
36	36		else n
37	37
38	38
39	39		func keyFactoryAddress () = makeString(["%s", "factory"], SEP)
40	40
41	41
42	42		func keyLpAssetId () = makeString(["%s", "lpAssetId"], SEP)
43	43
44	44
45	45		func keyXtnAssetId () = makeString(["%s", "xtnAssetId"], SEP)
46	46
47	47
48	48		func keyTreasuryAddress () = makeString(["%s", "treasury"], SEP)
49	49
50	50
51	51		func keyInvested (assetId) = makeString(["%s%s", "invested", assetIdToString(assetId)], SEP)
52	52
53	53
54	54		func keyAvailable (userAddress) = makeString(["%s%s", "available", toString(userAddress)], SEP)
55	55
56	56
57	57		func keyClaimed (userAddress) = makeString(["%s%s", "claimed", toString(userAddress)], SEP)
58	58
59	59
60	60		func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
61	61
62	62
63	63		func keyPriceForPeriod (period) = makeString(["%s%d", "price", toString(period)], SEP)
64	64
65	65
66	66		func keyStartHeight (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
67	67
68	68
69	69		func keyPeriodLength () = "%s__periodLength"
70	70
71	71
72	72		func keyBlockProcessingReward () = "%s__blockProcessingReward"
73	73
74	74
75	75		func keyNextBlockToProcess () = "%s__nextBlockToProcess"
76	76
77	77
78	78		func keyBlockProcessed (height) = makeString(["%s%d", "blockProcessed", toString(height)], SEP)
79	79
80	80
81	81		func keyWithdrawal () = "%s__withdrawal"
82	82
83	83
84	84		func keyWithdrawalRequest (userAddress,txId) = makeString(["%s%s%s", "withdrawal", toString(userAddress), toBase58String(txId)], SEP)
85	85
86	86
87	87		func valueWithdrawalRequest (status,lpAssetAmount,targetPeriod,claimTxId) = {
88	88		let claimTxIdStr = match claimTxId {
89	89		case b: ByteVector =>
90	90		toBase58String(b)
91	91		case _: Unit =>
92	92		"SOON"
93	93		case _ =>
94	94		throw("Match error")
95	95		}
96	96		makeString(["%s%d%d%s", status, toString(lpAssetAmount), toString(targetPeriod), claimTxIdStr], SEP)
97	97		}
98	98
99	99
100	100		func parseWithdrawalRequestValueOrFail (s) = {
101	101		let parts = split(s, SEP)
102	102		if ((size(parts) == 5))
103	103		then {
104	104		let status = parts[1]
105	105		let lpAssetAmount = valueOrErrorMessage(parseInt(parts[2]), wrapErr("invalid lpAssetAmount"))
106	106		let targetPeriod = valueOrErrorMessage(parseInt(parts[3]), wrapErr("invalid targetPeriod"))
107	107		let claimTxId = parts[4]
108	108		$Tuple4(status, lpAssetAmount, targetPeriod, claimTxId)
109	109		}
110	110		else throwErr("invalid withdrawal request value")
111	111		}
112	112
113	113
114	114		let factoryAddressOption = match getString(this, keyFactoryAddress()) {
115	115		case s: String =>
116	116		addressFromString(s)
117	117		case _: Unit =>
118	118		unit
119	119		case _ =>
120	120		throw("Match error")
121	121		}
122	122
123	123		let factoryAddressOrFail = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
124	124
125	125		let lpAssetIdOption = match factoryAddressOption {
126	126		case a: Address =>
127	127		match getString(a, keyLpAssetId()) {
128	128		case s: String =>
129	129		fromBase58String(s)
130	130		case _: Unit =>
131	131		unit
132	132		case _ =>
133	133		throw("Match error")
134	134		}
135	135		case _: Unit =>
136	136		unit
137	137		case _ =>
138	138		throw("Match error")
139	139		}
140	140
141	141		let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
142	142
143	143		let xtnAssetIdOption = match factoryAddressOption {
144	144		case a: Address =>
145	145		match getString(a, keyXtnAssetId()) {
146	146		case s: String =>
147	147		fromBase58String(s)
148	148		case _: Unit =>
149	149		unit
150	150		case _ =>
151	151		throw("Match error")
152	152		}
153	153		case _: Unit =>
154	154		unit
155	155		case _ =>
156	156		throw("Match error")
157	157		}
158	158
159	159		let xtnAssetIdOrFail = valueOrErrorMessage(xtnAssetIdOption, wrapErr("invalid xtnAssetId"))
160	160
161	161		let treasuryAddressOption = match factoryAddressOption {
162	162		case a: Address =>
163	163		match getString(a, keyTreasuryAddress()) {
164	164		case s: String =>
165	165		addressFromString(s)
166	166		case _: Unit =>
167	167		unit
168	168		case _ =>
169	169		throw("Match error")
170	170		}
171	171		case _: Unit =>
172	172		unit
173	173		case _ =>
174	174		throw("Match error")
175	175		}
176	176
177	177		let treasuryAddressOrFail = valueOrErrorMessage(treasuryAddressOption, wrapErr("invalid treasury address"))
178	178
179	179		func onlyAddress (i,address) = if ((i.caller == address))
180	180		then true
181	181		else throwErr("permission denied")
182	182
183	183
184	184		func onlyFactory (i) = onlyAddress(i, factoryAddressOrFail)
185	185
186	186
187	187		func rewardForOption (rewards,target) = {
188	188		let s = size(rewards)
189	189		let $t040964121 = rewards[0]
190	190		let a0 = $t040964121._1
191	191		let r0 = $t040964121._2
192	192		let $t041244149 = rewards[1]
193	193		let a1 = $t041244149._1
194	194		let r1 = $t041244149._2
195	195		let $t041524177 = rewards[2]
196	196		let a2 = $t041524177._1
197	197		let r2 = $t041524177._2
198	198		if (if ((s > 0))
199	199		then (a0 == target)
200	200		else false)
201	201		then r0
202	202		else if (if ((s > 1))
203	203		then (a1 == target)
204	204		else false)
205	205		then r1
206	206		else if (if ((s > 2))
207	207		then (a2 == target)
208	208		else false)
209	209		then r2
210	210		else unit
211	211		}
212	212
213	213
214	214		@Callable(i)
215	215		func claimLP (userAddressBytes) = {
216	216		let checkCaller = onlyFactory(i)
217	217		if ((checkCaller == checkCaller))
218	218		then {
219	219		let userAddress = Address(userAddressBytes)
220	220		let available = valueOrElse(getInteger(factoryAddressOrFail, keyAvailable(userAddress)), 0)
221	221		let claimed = valueOrElse(getInteger(factoryAddressOrFail, keyClaimed(userAddress)), 0)
222	222		let factoryActions = if ((available > 0))
223	223		then [invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, available, lpAssetIdOrFail], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(userAddress), 0], nil), invoke(factoryAddressOrFail, "integerEntry", [keyClaimed(userAddress), (claimed + available)], nil)]
224	224		else throwErr("nothing to claim")
225	225		$Tuple2(nil, factoryActions)
226	226		}
227	227		else throw("Strict value is not equal to itself.")
228	228		}
229	229
230	230
231	231
232	232		@Callable(i)
233	233		func finalize (userAddressBytes,newTreasuryVolumeInWaves,xtnPrice,pwrManagersBonus,treasuryVolumeDiffAllocationCoef) = {
234	234		let checkCaller = onlyFactory(i)
235	235		if ((checkCaller == checkCaller))
236	236		then {
237	237		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
238	238		let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
239	239		let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
240	240		let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
241	241		let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
242	242		let periodEndHeight = ((currentStartHeight + periodLength) - 1)
243	243		let checks = [if ((i.originCaller == treasuryAddressOrFail))
244	244		then true
245	245		else throwErr("permission denied"), if ((nextBlockToProcess > periodEndHeight))
246	246		then true
247	247		else throwErr("unprocessed blocks"), if ((newTreasuryVolumeInWaves >= 0))
248	248		then true
249	249		else throwErr("invalid new treasury volume"), if ((xtnPrice >= 0))
250	250		then true
251	251		else throwErr("invalid XTN price"), if (if ((pwrManagersBonus >= 0))
252	252		then (SCALE8 >= pwrManagersBonus)
253	253		else false)
254	254		then true
255	255		else throwErr("invalid PWR managers bonus"), if (if ((treasuryVolumeDiffAllocationCoef >= -(SCALE8)))
256	256		then (SCALE8 >= treasuryVolumeDiffAllocationCoef)
257	257		else false)
258	258		then true
259	259		else throwErr("invalid treasury volume diff allocation coefficient")]
260	260		if ((checks == checks))
261	261		then {
262	262		let investedXtnAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(xtnAssetIdOrFail)), 0)
263	263		let investedWavesAmount = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
264	264		let investedXtnAmountInWaves = fraction(investedXtnAmount, xtnPrice, SCALE6)
265	265		let currentTreasuryVolumeInWaves = (investedXtnAmountInWaves + investedWavesAmount)
266	266		let profitRaw = (newTreasuryVolumeInWaves - currentTreasuryVolumeInWaves)
267	267		let pwrManagersBonusAmount = if ((profitRaw > 0))
268	268		then fraction(profitRaw, pwrManagersBonus, SCALE8)
269	269		else 0
270	270		let profit = (profitRaw - pwrManagersBonusAmount)
271	271		let donationPart = if ((currentTreasuryVolumeInWaves > 0))
272	272		then fraction(investedXtnAmountInWaves, SCALE8, currentTreasuryVolumeInWaves)
273	273		else 0
274	274		let donationProfitPartRaw = fraction(profit, donationPart, SCALE8)
275	275		let investmentProfitPartRaw = (profit - donationProfitPartRaw)
276	276		let treasuryVolumeDiffAllocationCoefAbs = abs(treasuryVolumeDiffAllocationCoef)
277	277		let amountToDonation = fraction(investmentProfitPartRaw, if ((0 > treasuryVolumeDiffAllocationCoef))
278	278		then treasuryVolumeDiffAllocationCoefAbs
279	279		else 0, SCALE8)
280	280		let amountToInvestment = fraction(donationProfitPartRaw, if ((treasuryVolumeDiffAllocationCoef > 0))
281	281		then treasuryVolumeDiffAllocationCoefAbs
282	282		else 0, SCALE8)
283	283		let donationProfitPart = ((donationProfitPartRaw - amountToInvestment) + amountToDonation)
284	284		let investmentProfitPart = ((investmentProfitPartRaw - amountToDonation) + amountToInvestment)
285	285		let investedWavesAmountNew = (investedWavesAmount + investmentProfitPart)
286	286		let investedXtnAmountNew = fraction((investedXtnAmountInWaves + donationProfitPart), SCALE6, xtnPrice)
287	287		let newPeriod = (currentPeriodOrFail + 1)
288	288		let lpAssetQuantity = valueOrErrorMessage(assetInfo(lpAssetIdOrFail), wrapErr("invalid lpAsset info")).quantity
289	289		let newPrice = fraction(investedWavesAmountNew, SCALE8, lpAssetQuantity)
290	290		let lpAssetAmountToBurn = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
291	291		let paymentAmountMin = max([0, fraction(lpAssetAmountToBurn, newPrice, SCALE8)])
292	292		let checkPaymentAmount = if (if ((paymentAmountMin == 0))
293	293		then true
294	294		else if (if ((size(i.payments) == 1))
295	295		then (i.payments[0].assetId == unit)
296	296		else false)
297	297		then (i.payments[0].amount >= paymentAmountMin)
298	298		else false)
299	299		then true
300	300		else throwErr(("invalid payments, payment amount min: " + toString(paymentAmountMin)))
301	301		if ((checkPaymentAmount == checkPaymentAmount))
302	302		then {
303	303		let factoryActions = [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)]
304	304		$Tuple2(nil, factoryActions)
305	305		}
306	306		else throw("Strict value is not equal to itself.")
307	307		}
308	308		else throw("Strict value is not equal to itself.")
309	309		}
310	310		else throw("Strict value is not equal to itself.")
311	311		}
312	312
313	313
314	314
315	315		@Callable(i)
316	316		func invest (userAddressBytes) = {
317	317		let checkCaller = onlyFactory(i)
318	318		if ((checkCaller == checkCaller))
319	319		then {
320	320		let userAddress = Address(userAddressBytes)
321	321		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
322	322		let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
323	323		let payment = if ((size(i.payments) == 1))
324	324		then i.payments[0]
325	325		else throwErr("invalid payments")
326	326		let paymentAmount = if (if ((payment.assetId == unit))
327	327		then (payment.amount > 0)
328	328		else false)
329	329		then payment.amount
330	330		else throwErr("invalid payment amount")
331	331		let lpAssetAmount = if ((currentPriceOrFail > 0))
332	332		then fraction(paymentAmount, SCALE8, currentPriceOrFail)
333	333		else 0
334	334		let invested = valueOrElse(getInteger(factoryAddressOrFail, keyInvested(unit)), 0)
335	335		let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyInvested(unit), (invested + paymentAmount)], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil), invoke(factoryAddressOrFail, "transferWaves", [treasuryAddressOrFail.bytes, paymentAmount], [AttachedPayment(unit, paymentAmount)])]
336	336		$Tuple2(nil, factoryActions)
337	337		}
338	338		else throw("Strict value is not equal to itself.")
339	339		}
340	340
341	341
342	342
343	343		@Callable(i)
344	344		func withdraw (userAddressBytes) = {
345	345		let checkCaller = onlyFactory(i)
346	346		if ((checkCaller == checkCaller))
347	347		then {
348	348		let userAddress = Address(userAddressBytes)
349	349		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
350	350		let payment = if ((size(i.payments) == 1))
351	351		then i.payments[0]
352	352		else throwErr(wrapErr("invalid payments"))
353	353		let paymentAssetId = if ((payment.assetId == lpAssetIdOrFail))
354	354		then lpAssetIdOrFail
355	355		else throwErr("invalid payment asset")
356	356		let paymentAmount = if ((payment.amount > 0))
357	357		then payment.amount
358	358		else throwErr("invalid payment amount")
359	359		let withdrawal = valueOrElse(getInteger(factoryAddressOrFail, keyWithdrawal()), 0)
360	360		let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), (withdrawal + paymentAmount)], nil), invoke(factoryAddressOrFail, "stringEntry", [keyWithdrawalRequest(userAddress, i.transactionId), valueWithdrawalRequest(PENDING, paymentAmount, (currentPeriodOrFail + 1), unit)], nil)]
361	361		if ((factoryActions == factoryActions))
362	362		then $Tuple2([ScriptTransfer(factoryAddressOrFail, paymentAmount, paymentAssetId)], factoryActions)
363	363		else throw("Strict value is not equal to itself.")
364	364		}
365	365		else throw("Strict value is not equal to itself.")
366	366		}
367	367
368	368
369	369
370	370		@Callable(i)
371	371		func cancelWithdraw (userAddressBytes,txId) = {
372	372		let checkCaller = onlyFactory(i)
373	373		if ((checkCaller == checkCaller))
374	374		then {
375	375		let userAddress = Address(userAddressBytes)
376	376		let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
377	377		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
378	378		let $t01330013413 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
379	379		let status = $t01330013413._1
380	380		let lpAssetAmount = $t01330013413._2
381	381		let targetPeriod = $t01330013413._3
382	382		let claimTxId = $t01330013413._4
383	383		let checks = [if ((status == PENDING))
384	384		then true
385	385		else throwErr("invalid withdrawal request status"), if ((targetPeriod > currentPeriodOrFail))
386	386		then true
387	387		else throwErr("invalid withdrawal request period")]
388	388		if ((checks == checks))
389	389		then {
390	390		let withdrawal = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyWithdrawal()), wrapErr("invalid total withdrawal amount"))
391	391		let factoryActions = [invoke(factoryAddressOrFail, "integerEntry", [keyWithdrawal(), if ((withdrawal >= lpAssetAmount))
392	392		then (withdrawal - lpAssetAmount)
393	393		else throwErr("invalid withdrawal amount")], nil), invoke(factoryAddressOrFail, "deleteEntry", [keyWithdrawalRequest(userAddress, txId)], nil), invoke(factoryAddressOrFail, "transferAsset", [userAddressBytes, lpAssetAmount, lpAssetIdOrFail], nil)]
394	394		if ((factoryActions == factoryActions))
395	395		then $Tuple2(nil, factoryActions)
396	396		else throw("Strict value is not equal to itself.")
397	397		}
398	398		else throw("Strict value is not equal to itself.")
399	399		}
400	400		else throw("Strict value is not equal to itself.")
401	401		}
402	402
403	403
404	404
405	405		@Callable(i)
406	406		func claimWaves (userAddressBytes,txId) = {
407	407		let checkCaller = onlyFactory(i)
408	408		if ((checkCaller == checkCaller))
409	409		then {
410	410		let userAddress = Address(userAddressBytes)
411	411		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
412	412		let withdrawalRequestOption = valueOrErrorMessage(getString(factoryAddressOrFail, keyWithdrawalRequest(userAddress, txId)), wrapErr("invalid withdrawal request"))
413	413		let $t01474514858 = parseWithdrawalRequestValueOrFail(withdrawalRequestOption)
414	414		let status = $t01474514858._1
415	415		let lpAssetAmount = $t01474514858._2
416	416		let targetPeriod = $t01474514858._3
417	417		let claimTxId = $t01474514858._4
418	418		if ((status == FINISHED))
419	419		then throwErr("invalid withdrawal request status")
420	420		else if ((targetPeriod > currentPeriodOrFail))
421	421		then throwErr("invalid withdrawal request period")
422	422		else {
423	423		let priceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(targetPeriod)), wrapErr("invalid price"))
424	424		let amount = if ((priceOrFail > 0))
425	425		then fraction(lpAssetAmount, priceOrFail, SCALE8)
426	426		else 0
427	427		let factoryActions = [invoke(factoryAddressOrFail, "stringEntry", [keyWithdrawalRequest(userAddress, txId), valueWithdrawalRequest(FINISHED, lpAssetAmount, targetPeriod, i.transactionId)], nil), invoke(factoryAddressOrFail, "burn", [lpAssetAmount], nil), invoke(factoryAddressOrFail, "transferWaves", [userAddressBytes, amount], nil)]
428	428		$Tuple2(nil, factoryActions)
429	429		}
430	430		}
431	431		else throw("Strict value is not equal to itself.")
432	432		}
433	433
434	434
435	435
436	436		@Callable(i)
437	437		func processBlocks (userAddressBytes) = {
438	438		let checkCaller = onlyFactory(i)
439	439		if ((checkCaller == checkCaller))
440	440		then {
441	441		let userAddress = Address(userAddressBytes)
442	442		let currentPeriodOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyCurrentPeriod()), wrapErr("invalid period"))
443	443		let periodLength = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPeriodLength()), wrapErr("invalid period length"))
444	444		let currentStartHeight = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyStartHeight(currentPeriodOrFail)), wrapErr("invalid start height"))
445	445		let currentPriceOrFail = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyPriceForPeriod(currentPeriodOrFail)), wrapErr("invalid price"))
446	446		let nextBlockToProcess = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyNextBlockToProcess()), wrapErr("invalid next block to process"))
447	447		let periodEndHeight = ((currentStartHeight + periodLength) - 1)
448	448		let blocksProcessingBatchSizeMax = 40
449	449		let blocksProcessingBatchSize = if (if (if ((height >= nextBlockToProcess))
450	450		then if ((nextBlockToProcess >= currentStartHeight))
451	451		then true
452	452		else (currentPeriodOrFail == 0)
453	453		else false)
454	454		then (periodEndHeight >= nextBlockToProcess)
455	455		else false)
456	456		then min([((periodEndHeight - nextBlockToProcess) + 1), blocksProcessingBatchSizeMax])
457	457		else throwErr(wrapErr("invalid target block"))
458	458		let blockProcessingReward = valueOrErrorMessage(getInteger(factoryAddressOrFail, keyBlockProcessingReward()), wrapErr("invalid block processing reward"))
459	459		let blockProcessingRewardByGenerator = (blockProcessingReward / blocksProcessingBatchSize)
460	460		let blockProcessingRewardByGeneratorRemainder = (blockProcessingReward - (blockProcessingRewardByGenerator * blocksProcessingBatchSize))
461	461		func map (acc,inc) = if ((inc >= blocksProcessingBatchSize))
462	462		then acc
463	463		else {
464	464		let targetBlockHeight = (nextBlockToProcess + inc)
465	465		let targetBlockInfo = valueOrErrorMessage(blockInfoByHeight(targetBlockHeight), wrapErr("invalid block info"))
466	466		let treasuryRewardOrFail = valueOrErrorMessage(rewardForOption(targetBlockInfo.rewards, treasuryAddressOrFail), wrapErr(("invalid treasury reward for height " + toString(targetBlockHeight))))
467	467		let generator = targetBlockInfo.generator
468	468		let available = valueOrElse(getInteger(factoryAddressOrFail, keyAvailable(generator)), 0)
469	469		let callerReward = if ((inc == (blocksProcessingBatchSize - 1)))
470	470		then (blockProcessingRewardByGenerator + blockProcessingRewardByGeneratorRemainder)
471	471		else blockProcessingRewardByGenerator
472	472		let lpAssetAmount = if ((currentPriceOrFail > 0))
473	473		then fraction((treasuryRewardOrFail - callerReward), SCALE8, currentPriceOrFail)
474	474		else 0
475		-	let factoryActionsSingle = [invoke(factoryAddressOrFail, "stringEntry", [keyBlockProcessed(targetBlockHeight), makeString([toBase58String(i.transactionId), toBase58String(userAddressBytes), toString(treasuryRewardOrFail), toString(callerReward), toString(lpAssetAmount)], SEP)], nil), invoke(factoryAddressOrFail, "integerEntry", [keyAvailable(generator), (available + lpAssetAmount)], nil)]
	475	+	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)]
476	476		if ((factoryActionsSingle == factoryActionsSingle))
477	477		then (acc + lpAssetAmount)
478	478		else throw("Strict value is not equal to itself.")
479	479		}
480	480
481	481		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]
482	482		let lpAssetAmountTotal = {
483	483		let $l = list
484	484		let $s = size($l)
485	485		let $acc0 = 0
486	486		func $f0_1 ($a,$i) = if (($i >= $s))
487	487		then $a
488	488		else map($a, $l[$i])
489	489
490	490		func $f0_2 ($a,$i) = if (($i >= $s))
491	491		then $a
492	492		else throw("List size exceeds 40")
493	493
494	494		$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)
495	495		}
496	496		if ((lpAssetAmountTotal == lpAssetAmountTotal))
497	497		then {
498	498		let actions = [invoke(factoryAddressOrFail, "transferWaves", [userAddressBytes, blockProcessingReward], nil), invoke(factoryAddressOrFail, "reissue", [lpAssetAmountTotal], nil), invoke(factoryAddressOrFail, "integerEntry", [keyNextBlockToProcess(), (nextBlockToProcess + blocksProcessingBatchSize)], nil)]
499	499		if ((actions == actions))

github/deemru/w8io/026f985 
118.38 ms ◑