w8 · tx · 7L2···wVu

tx · 7L2X6cEFBPWHmdncQoHzyT1DLNWebqc9YoU9TCWiuwVu

3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP:  -0.01900000 Waves

2023.06.21 14:00 [2632312] smart account 3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7L2X6cEFBPWHmdncQoHzyT1DLNWebqc9YoU9TCWiuwVu",
    "fee": 1900000,
    "feeAssetId": null,
    "timestamp": 1687345329386,
    "version": 2,
    "chainId": 84,
    "sender": "3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP",
    "senderPublicKey": "AoKo4segKHU4DeJnxXQYJj2u7J6XJeux6r8KLW52cd2Q",
    "proofs": [
        "32BCAHjMGVjebAACYshtHMPUetXwtJj2M1D89GcPk64E7CuavBTnitkxwrMKaDC2vgxDTgSrhrKgX59NGntJV9ZR"
    ],
    "script": "base64:BwIrCAISAwoBAhIHCgUCAQEBARIDCgECEgMKAQISBAoCAgISBAoCAgISAwoBAicAA1NFUAICX18ADUNPTlRSQUNUX05BTUUCD2NhbGN1bGF0b3IucmlkZQAGU0NBTEU4AIDC1y8AB1BFTkRJTkcCB1BFTkRJTkcACEZJTklTSEVEAghGSU5JU0hFRAAFV0FWRVMCBVdBVkVTAQd3cmFwRXJyAQFzCQCsAgIJAKwCAgUNQ09OVFJBQ1RfTkFNRQICOiAFAXMBCHRocm93RXJyAQFzCQACAQkBB3dyYXBFcnIBBQFzAQ9hc3NldElkVG9TdHJpbmcBB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBYgUHJG1hdGNoMAkA2AQBBQFiAwkAAQIFByRtYXRjaDACBFVuaXQFBVdBVkVTCQACAQILTWF0Y2ggZXJyb3IBA2FicwEBbgMJAGYCAAAFAW4JAQEtAQUBbgUBbgERa2V5RmFjdG9yeUFkZHJlc3MACQC5CQIJAMwIAgICJXMJAMwIAgIHZmFjdG9yeQUDbmlsBQNTRVABDGtleUxwQXNzZXRJZAAJALkJAgkAzAgCAgIlcwkAzAgCAglscEFzc2V0SWQFA25pbAUDU0VQAQ1rZXlYdG5Bc3NldElkAAkAuQkCCQDMCAICAiVzCQDMCAICCnh0bkFzc2V0SWQFA25pbAUDU0VQARJrZXlUcmVhc3VyeUFkZHJlc3MACQC5CQIJAMwIAgICJXMJAMwIAgIIdHJlYXN1cnkFA25pbAUDU0VQAQtrZXlJbnZlc3RlZAEHYXNzZXRJZAkAuQkCCQDMCAICBCVzJXMJAMwIAgIIaW52ZXN0ZWQJAMwIAgkBD2Fzc2V0SWRUb1N0cmluZwEFB2Fzc2V0SWQFA25pbAUDU0VQAQxrZXlBdmFpbGFibGUBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAglhdmFpbGFibGUJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwUDbmlsBQNTRVABCmtleUNsYWltZWQBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgdjbGFpbWVkCQDMCAIJAKUIAQULdXNlckFkZHJlc3MFA25pbAUDU0VQARBrZXlDdXJyZW50UGVyaW9kAAkAuQkCCQDMCAICAiVzCQDMCAICDWN1cnJlbnRQZXJpb2QFA25pbAUDU0VQARFrZXlQcmljZUZvclBlcmlvZAEGcGVyaW9kCQC5CQIJAMwIAgIEJXMlZAkAzAgCAgVwcmljZQkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABDmtleVN0YXJ0SGVpZ2h0AQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICC3N0YXJ0SGVpZ2h0CQDMCAIJAKQDAQUGcGVyaW9kBQNuaWwFA1NFUAEPa2V5UGVyaW9kTGVuZ3RoAAIQJXNfX3BlcmlvZExlbmd0aAEYa2V5QmxvY2tQcm9jZXNzaW5nUmV3YXJkAAIZJXNfX2Jsb2NrUHJvY2Vzc2luZ1Jld2FyZAEVa2V5TmV4dEJsb2NrVG9Qcm9jZXNzAAIWJXNfX25leHRCbG9ja1RvUHJvY2VzcwERa2V5QmxvY2tQcm9jZXNzZWQBBmhlaWdodAkAuQkCCQDMCAICBCVzJWQJAMwIAgIOYmxvY2tQcm9jZXNzZWQJAMwIAgkApAMBBQZoZWlnaHQFA25pbAUDU0VQAQ1rZXlXaXRoZHJhd2FsAAIOJXNfX3dpdGhkcmF3YWwBFGtleVdpdGhkcmF3YWxSZXF1ZXN0Agt1c2VyQWRkcmVzcwR0eElkCQC5CQIJAMwIAgIGJXMlcyVzCQDMCAICCndpdGhkcmF3YWwJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwkAzAgCCQDYBAEFBHR4SWQFA25pbAUDU0VQARZ2YWx1ZVdpdGhkcmF3YWxSZXF1ZXN0BAZzdGF0dXMNbHBBc3NldEFtb3VudAx0YXJnZXRQZXJpb2QJY2xhaW1UeElkBAxjbGFpbVR4SWRTdHIEByRtYXRjaDAFCWNsYWltVHhJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAIEU09PTgkAAgECC01hdGNoIGVycm9yCQC5CQIJAMwIAgIIJXMlZCVkJXMJAMwIAgUGc3RhdHVzCQDMCAIJAKQDAQUNbHBBc3NldEFtb3VudAkAzAgCCQCkAwEFDHRhcmdldFBlcmlvZAkAzAgCBQxjbGFpbVR4SWRTdHIFA25pbAUDU0VQASFwYXJzZVdpdGhkcmF3YWxSZXF1ZXN0VmFsdWVPckZhaWwBAXMEBXBhcnRzCQC1CQIFAXMFA1NFUAMJAAACCQCQAwEFBXBhcnRzAAUEBnN0YXR1cwkAkQMCBQVwYXJ0cwABBA1scEFzc2V0QW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJALYJAQkAkQMCBQVwYXJ0cwACCQEHd3JhcEVycgECFWludmFsaWQgbHBBc3NldEFtb3VudAQMdGFyZ2V0UGVyaW9kCQETdmFsdWVPckVycm9yTWVzc2FnZQIJALYJAQkAkQMCBQVwYXJ0cwADCQEHd3JhcEVycgECFGludmFsaWQgdGFyZ2V0UGVyaW9kBAljbGFpbVR4SWQJAJEDAgUFcGFydHMABAkAlgoEBQZzdGF0dXMFDWxwQXNzZXRBbW91bnQFDHRhcmdldFBlcmlvZAUJY2xhaW1UeElkCQEIdGhyb3dFcnIBAiBpbnZhbGlkIHdpdGhkcmF3YWwgcmVxdWVzdCB2YWx1ZQAUZmFjdG9yeUFkZHJlc3NPcHRpb24EByRtYXRjaDAJAJ0IAgUEdGhpcwkBEWtleUZhY3RvcnlBZGRyZXNzAAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFGZhY3RvcnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECF2ludmFsaWQgZmFjdG9yeSBhZGRyZXNzAA9scEFzc2V0SWRPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBDGtleUxwQXNzZXRJZAADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQDZBAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAPbHBBc3NldElkT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFD2xwQXNzZXRJZE9wdGlvbgkBB3dyYXBFcnIBAhFpbnZhbGlkIGxwQXNzZXRJZAAQeHRuQXNzZXRJZE9wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQENa2V5WHRuQXNzZXRJZAADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQDZBAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAQeHRuQXNzZXRJZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRB4dG5Bc3NldElkT3B0aW9uCQEHd3JhcEVycgECEmludmFsaWQgeHRuQXNzZXRJZAAVdHJlYXN1cnlBZGRyZXNzT3B0aW9uBAckbWF0Y2gwBRRmYWN0b3J5QWRkcmVzc09wdGlvbgMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAFhBQckbWF0Y2gwBAckbWF0Y2gxCQCdCAIFAWEJARJrZXlUcmVhc3VyeUFkZHJlc3MAAwkAAQIFByRtYXRjaDECBlN0cmluZwQBcwUHJG1hdGNoMQkApggBBQFzAwkAAQIFByRtYXRjaDECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAFXRyZWFzdXJ5QWRkcmVzc09yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRV0cmVhc3VyeUFkZHJlc3NPcHRpb24JAQd3cmFwRXJyAQIYaW52YWxpZCB0cmVhc3VyeSBhZGRyZXNzAQtvbmx5QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAQh0aHJvd0VycgECEXBlcm1pc3Npb24gZGVuaWVkAQtvbmx5RmFjdG9yeQEBaQkBC29ubHlBZGRyZXNzAgUBaQUUZmFjdG9yeUFkZHJlc3NPckZhaWwBD3Jld2FyZEZvck9wdGlvbgIHcmV3YXJkcwZ0YXJnZXQEAXMJAJADAQUHcmV3YXJkcwQLJHQwNDA3MzQwOTgJAJEDAgUHcmV3YXJkcwAABAJhMAgFCyR0MDQwNzM0MDk4Al8xBAJyMAgFCyR0MDQwNzM0MDk4Al8yBAskdDA0MTAxNDEyNgkAkQMCBQdyZXdhcmRzAAEEAmExCAULJHQwNDEwMTQxMjYCXzEEAnIxCAULJHQwNDEwMTQxMjYCXzIECyR0MDQxMjk0MTU0CQCRAwIFB3Jld2FyZHMAAgQCYTIIBQskdDA0MTI5NDE1NAJfMQQCcjIIBQskdDA0MTI5NDE1NAJfMgMDCQBmAgUBcwAACQAAAgUCYTAFBnRhcmdldAcFAnIwAwMJAGYCBQFzAAEJAAACBQJhMQUGdGFyZ2V0BwUCcjEDAwkAZgIFAXMAAgkAAAIFAmEyBQZ0YXJnZXQHBQJyMgUEdW5pdAcBaQEHY2xhaW1MUAEQdXNlckFkZHJlc3NCeXRlcwQLY2hlY2tDYWxsZXIJAQtvbmx5RmFjdG9yeQEFAWkDCQAAAgULY2hlY2tDYWxsZXIFC2NoZWNrQ2FsbGVyBAt1c2VyQWRkcmVzcwkBB0FkZHJlc3MBBRB1c2VyQWRkcmVzc0J5dGVzBAlhdmFpbGFibGUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQxrZXlBdmFpbGFibGUBBQt1c2VyQWRkcmVzcwAABAdjbGFpbWVkCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEKa2V5Q2xhaW1lZAEFC3VzZXJBZGRyZXNzAAAEDmZhY3RvcnlBY3Rpb25zAwkAZgIFCWF2YWlsYWJsZQAACQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyQXNzZXQJAMwIAgUQdXNlckFkZHJlc3NCeXRlcwkAzAgCBQlhdmFpbGFibGUJAMwIAgUPbHBBc3NldElkT3JGYWlsBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDGtleUF2YWlsYWJsZQEFC3VzZXJBZGRyZXNzCQDMCAIAAAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQprZXlDbGFpbWVkAQULdXNlckFkZHJlc3MJAMwIAgkAZAIFB2NsYWltZWQFCWF2YWlsYWJsZQUDbmlsBQNuaWwFA25pbAkBCHRocm93RXJyAQIQbm90aGluZyB0byBjbGFpbQkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGZpbmFsaXplBRB1c2VyQWRkcmVzc0J5dGVzGG5ld1RyZWFzdXJ5Vm9sdW1lSW5XYXZlcwh4dG5QcmljZRBwd3JNYW5hZ2Vyc0JvbnVzIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEE2N1cnJlbnRQZXJpb2RPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECDmludmFsaWQgcGVyaW9kBAxwZXJpb2RMZW5ndGgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBD2tleVBlcmlvZExlbmd0aAAJAQd3cmFwRXJyAQIVaW52YWxpZCBwZXJpb2QgbGVuZ3RoBBJjdXJyZW50U3RhcnRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDmtleVN0YXJ0SGVpZ2h0AQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAhRpbnZhbGlkIHN0YXJ0IGhlaWdodAQSY3VycmVudFByaWNlT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARFrZXlQcmljZUZvclBlcmlvZAEFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQd3cmFwRXJyAQINaW52YWxpZCBwcmljZQQSbmV4dEJsb2NrVG9Qcm9jZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MACQEHd3JhcEVycgECHWludmFsaWQgbmV4dCBibG9jayB0byBwcm9jZXNzBA9wZXJpb2RFbmRIZWlnaHQJAGUCCQBkAgUSY3VycmVudFN0YXJ0SGVpZ2h0BQxwZXJpb2RMZW5ndGgAAQQGY2hlY2tzCQDMCAIDCQBmAgUSbmV4dEJsb2NrVG9Qcm9jZXNzBQ9wZXJpb2RFbmRIZWlnaHQGCQEIdGhyb3dFcnIBAhJ1bnByb2Nlc3NlZCBibG9ja3MJAMwIAgMJAGcCBRhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAYJAQh0aHJvd0VycgECG2ludmFsaWQgbmV3IHRyZWFzdXJ5IHZvbHVtZQkAzAgCAwkAZwIFCHh0blByaWNlAAAGCQEIdGhyb3dFcnIBAhFpbnZhbGlkIFhUTiBwcmljZQkAzAgCAwMJAGcCBRBwd3JNYW5hZ2Vyc0JvbnVzAAAJAGcCBQZTQ0FMRTgFEHB3ck1hbmFnZXJzQm9udXMHBgkBCHRocm93RXJyAQIaaW52YWxpZCBQV1IgbWFuYWdlcnMgYm9udXMJAMwIAgMDCQBnAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAQEtAQUGU0NBTEU4CQBnAgUGU0NBTEU4BSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgcGCQEIdGhyb3dFcnIBAjNpbnZhbGlkIHRyZWFzdXJ5IHZvbHVtZSBkaWZmIGFsbG9jYXRpb24gY29lZmZpY2llbnQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQRaW52ZXN0ZWRYdG5BbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQtrZXlJbnZlc3RlZAEFEHh0bkFzc2V0SWRPckZhaWwAAAQTaW52ZXN0ZWRXYXZlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBC2tleUludmVzdGVkAQUEdW5pdAAABBhpbnZlc3RlZFh0bkFtb3VudEluV2F2ZXMJAGsDBRFpbnZlc3RlZFh0bkFtb3VudAUIeHRuUHJpY2UFBlNDQUxFOAQcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwkAZAIFGGludmVzdGVkWHRuQW1vdW50SW5XYXZlcwUTaW52ZXN0ZWRXYXZlc0Ftb3VudAQJcHJvZml0UmF3CQBlAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzBRxjdXJyZW50VHJlYXN1cnlWb2x1bWVJbldhdmVzBBZwd3JNYW5hZ2Vyc0JvbnVzQW1vdW50AwkAZgIFCXByb2ZpdFJhdwAACQBrAwUJcHJvZml0UmF3BRBwd3JNYW5hZ2Vyc0JvbnVzBQZTQ0FMRTgAAAQGcHJvZml0CQBlAgUJcHJvZml0UmF3BRZwd3JNYW5hZ2Vyc0JvbnVzQW1vdW50BAxkb25hdGlvblBhcnQDCQBmAgUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwAACQBrAwUYaW52ZXN0ZWRYdG5BbW91bnRJbldhdmVzBQZTQ0FMRTgFHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAQVZG9uYXRpb25Qcm9maXRQYXJ0UmF3CQBrAwUGcHJvZml0BQxkb25hdGlvblBhcnQFBlNDQUxFOAQXaW52ZXN0bWVudFByb2ZpdFBhcnRSYXcJAGUCBQZwcm9maXQFFWRvbmF0aW9uUHJvZml0UGFydFJhdwQjdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWZBYnMJAQNhYnMBBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgQQYW1vdW50VG9Eb25hdGlvbgkAawMFF2ludmVzdG1lbnRQcm9maXRQYXJ0UmF3AwkAZgIAAAUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSYW1vdW50VG9JbnZlc3RtZW50CQBrAwUVZG9uYXRpb25Qcm9maXRQYXJ0UmF3AwkAZgIFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmAAAFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSZG9uYXRpb25Qcm9maXRQYXJ0CQBkAgkAZQIFFWRvbmF0aW9uUHJvZml0UGFydFJhdwUSYW1vdW50VG9JbnZlc3RtZW50BRBhbW91bnRUb0RvbmF0aW9uBBRpbnZlc3RtZW50UHJvZml0UGFydAkAZAIJAGUCBRdpbnZlc3RtZW50UHJvZml0UGFydFJhdwUQYW1vdW50VG9Eb25hdGlvbgUSYW1vdW50VG9JbnZlc3RtZW50BBZpbnZlc3RlZFdhdmVzQW1vdW50TmV3CQBkAgUTaW52ZXN0ZWRXYXZlc0Ftb3VudAUUaW52ZXN0bWVudFByb2ZpdFBhcnQEFGludmVzdGVkWHRuQW1vdW50TmV3CQBrAwkAZAIFGGludmVzdGVkWHRuQW1vdW50SW5XYXZlcwUSZG9uYXRpb25Qcm9maXRQYXJ0BQZTQ0FMRTgFCHh0blByaWNlBAluZXdQZXJpb2QJAGQCBRNjdXJyZW50UGVyaW9kT3JGYWlsAAEED2xwQXNzZXRRdWFudGl0eQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQ9scEFzc2V0SWRPckZhaWwJAQd3cmFwRXJyAQIUaW52YWxpZCBscEFzc2V0IGluZm8IcXVhbnRpdHkECG5ld1ByaWNlCQBrAwUWaW52ZXN0ZWRXYXZlc0Ftb3VudE5ldwUGU0NBTEU4BQ9scEFzc2V0UXVhbnRpdHkEE2xwQXNzZXRBbW91bnRUb0J1cm4JAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ1rZXlXaXRoZHJhd2FsAAAABBBwYXltZW50QW1vdW50TWluCQBrAwUTbHBBc3NldEFtb3VudFRvQnVybgUIbmV3UHJpY2UFBlNDQUxFOAQSY2hlY2tQYXltZW50QW1vdW50AwMDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQAAAggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQR1bml0BwkAZwIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BRBwYXltZW50QW1vdW50TWluBwYJAQh0aHJvd0VycgEJAKwCAgImaW52YWxpZCBwYXltZW50cywgcGF5bWVudCBhbW91bnQgbWluOiAJAKQDAQUQcGF5bWVudEFtb3VudE1pbgMJAAACBRJjaGVja1BheW1lbnRBbW91bnQFEmNoZWNrUGF5bWVudEFtb3VudAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARBrZXlDdXJyZW50UGVyaW9kAAkAzAgCBQluZXdQZXJpb2QFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQERa2V5UHJpY2VGb3JQZXJpb2QBBQluZXdQZXJpb2QJAMwIAgUIbmV3UHJpY2UFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCBGJ1cm4JAMwIAgUTbHBBc3NldEFtb3VudFRvQnVybgUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCAAAFA25pbAUDbmlsBQNuaWwJAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQZpbnZlc3QBEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEEmN1cnJlbnRQcmljZU9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQERa2V5UHJpY2VGb3JQZXJpb2QBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEB3BheW1lbnQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAQh0aHJvd0VycgECEGludmFsaWQgcGF5bWVudHMEDXBheW1lbnRBbW91bnQDAwkAAAIIBQdwYXltZW50B2Fzc2V0SWQFBHVuaXQJAGYCCAUHcGF5bWVudAZhbW91bnQAAAcIBQdwYXltZW50BmFtb3VudAkBCHRocm93RXJyAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAQNbHBBc3NldEFtb3VudAMJAGYCBRJjdXJyZW50UHJpY2VPckZhaWwAAAkAawMFDXBheW1lbnRBbW91bnQFBlNDQUxFOAUSY3VycmVudFByaWNlT3JGYWlsAAAECGludmVzdGVkCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQELa2V5SW52ZXN0ZWQBBQR1bml0AAAEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQELa2V5SW52ZXN0ZWQBBQR1bml0CQDMCAIJAGQCBQhpbnZlc3RlZAUNcGF5bWVudEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIHcmVpc3N1ZQkAzAgCBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlckFzc2V0CQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUNbHBBc3NldEFtb3VudAkAzAgCBQ9scEFzc2V0SWRPckZhaWwFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyV2F2ZXMJAMwIAggFFXRyZWFzdXJ5QWRkcmVzc09yRmFpbAVieXRlcwkAzAgCBQ1wYXltZW50QW1vdW50BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFDXBheW1lbnRBbW91bnQFA25pbAUDbmlsCQCUCgIFA25pbAUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEId2l0aGRyYXcBEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEB3BheW1lbnQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAQh0aHJvd0VycgEJAQd3cmFwRXJyAQIQaW52YWxpZCBwYXltZW50cwQOcGF5bWVudEFzc2V0SWQDCQAAAggFB3BheW1lbnQHYXNzZXRJZAUPbHBBc3NldElkT3JGYWlsBQ9scEFzc2V0SWRPckZhaWwJAQh0aHJvd0VycgECFWludmFsaWQgcGF5bWVudCBhc3NldAQNcGF5bWVudEFtb3VudAMJAGYCCAUHcGF5bWVudAZhbW91bnQAAAgFB3BheW1lbnQGYW1vdW50CQEIdGhyb3dFcnIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50BAp3aXRoZHJhd2FsCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAAAAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCCQBkAgUKd2l0aGRyYXdhbAUNcGF5bWVudEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILc3RyaW5nRW50cnkJAMwIAgkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MIBQFpDXRyYW5zYWN0aW9uSWQJAMwIAgkBFnZhbHVlV2l0aGRyYXdhbFJlcXVlc3QEBQdQRU5ESU5HBQ1wYXltZW50QW1vdW50CQBkAgUTY3VycmVudFBlcmlvZE9yRmFpbAABBQR1bml0BQNuaWwFA25pbAUDbmlsAwkAAAIFDmZhY3RvcnlBY3Rpb25zBQ5mYWN0b3J5QWN0aW9ucwkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFFGZhY3RvcnlBZGRyZXNzT3JGYWlsBQ1wYXltZW50QW1vdW50BQ5wYXltZW50QXNzZXRJZAUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ5jYW5jZWxXaXRoZHJhdwIQdXNlckFkZHJlc3NCeXRlcwR0eElkBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEC3VzZXJBZGRyZXNzCQEHQWRkcmVzcwEFEHVzZXJBZGRyZXNzQnl0ZXMEF3dpdGhkcmF3YWxSZXF1ZXN0T3B0aW9uCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzBQR0eElkCQEHd3JhcEVycgECGmludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0BBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQNJHQwMTI3MTMxMjgyNgkBIXBhcnNlV2l0aGRyYXdhbFJlcXVlc3RWYWx1ZU9yRmFpbAEFF3dpdGhkcmF3YWxSZXF1ZXN0T3B0aW9uBAZzdGF0dXMIBQ0kdDAxMjcxMzEyODI2Al8xBA1scEFzc2V0QW1vdW50CAUNJHQwMTI3MTMxMjgyNgJfMgQMdGFyZ2V0UGVyaW9kCAUNJHQwMTI3MTMxMjgyNgJfMwQJY2xhaW1UeElkCAUNJHQwMTI3MTMxMjgyNgJfNAQGY2hlY2tzCQDMCAIDCQAAAgUGc3RhdHVzBQdQRU5ESU5HBgkBCHRocm93RXJyAQIhaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3Qgc3RhdHVzCQDMCAIDCQBmAgUMdGFyZ2V0UGVyaW9kBRNjdXJyZW50UGVyaW9kT3JGYWlsBgkBCHRocm93RXJyAQIhaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QgcGVyaW9kBQNuaWwDCQAAAgUGY2hlY2tzBQZjaGVja3MECndpdGhkcmF3YWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDWtleVdpdGhkcmF3YWwACQEHd3JhcEVycgECH2ludmFsaWQgdG90YWwgd2l0aGRyYXdhbCBhbW91bnQEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQENa2V5V2l0aGRyYXdhbAAJAMwIAgMJAGcCBQp3aXRoZHJhd2FsBQ1scEFzc2V0QW1vdW50CQBlAgUKd2l0aGRyYXdhbAUNbHBBc3NldEFtb3VudAkBCHRocm93RXJyAQIZaW52YWxpZCB3aXRoZHJhd2FsIGFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILZGVsZXRlRW50cnkJAMwIAgkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MFBHR4SWQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyQXNzZXQJAMwIAgUQdXNlckFkZHJlc3NCeXRlcwkAzAgCBQ1scEFzc2V0QW1vdW50CQDMCAIFD2xwQXNzZXRJZE9yRmFpbAUDbmlsBQNuaWwFA25pbAMJAAACBQ5mYWN0b3J5QWN0aW9ucwUOZmFjdG9yeUFjdGlvbnMJAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpjbGFpbVdhdmVzAhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEF3dpdGhkcmF3YWxSZXF1ZXN0T3B0aW9uCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzBQR0eElkCQEHd3JhcEVycgECGmludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0BA0kdDAxNDE1ODE0MjcxCQEhcGFyc2VXaXRoZHJhd2FsUmVxdWVzdFZhbHVlT3JGYWlsAQUXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24EBnN0YXR1cwgFDSR0MDE0MTU4MTQyNzECXzEEDWxwQXNzZXRBbW91bnQIBQ0kdDAxNDE1ODE0MjcxAl8yBAx0YXJnZXRQZXJpb2QIBQ0kdDAxNDE1ODE0MjcxAl8zBAljbGFpbVR4SWQIBQ0kdDAxNDE1ODE0MjcxAl80AwkAAAIFBnN0YXR1cwUIRklOSVNIRUQJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHN0YXR1cwMJAGYCBQx0YXJnZXRQZXJpb2QFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHBlcmlvZAQLcHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUMdGFyZ2V0UGVyaW9kCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEBmFtb3VudAMJAGYCBQtwcmljZU9yRmFpbAAACQBrAwUNbHBBc3NldEFtb3VudAULcHJpY2VPckZhaWwFBlNDQUxFOAAABA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtzdHJpbmdFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwUEdHhJZAkAzAgCCQEWdmFsdWVXaXRoZHJhd2FsUmVxdWVzdAQFCEZJTklTSEVEBQ1scEFzc2V0QW1vdW50BQx0YXJnZXRQZXJpb2QIBQFpDXRyYW5zYWN0aW9uSWQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCBGJ1cm4JAMwIAgUNbHBBc3NldEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAINdHJhbnNmZXJXYXZlcwkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDXByb2Nlc3NCbG9ja3MBEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEPa2V5UGVyaW9kTGVuZ3RoAAkBB3dyYXBFcnIBAhVpbnZhbGlkIHBlcmlvZCBsZW5ndGgEEmN1cnJlbnRTdGFydEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEOa2V5U3RhcnRIZWlnaHQBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgc3RhcnQgaGVpZ2h0BBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBBJuZXh0QmxvY2tUb1Byb2Nlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAQd3cmFwRXJyAQIdaW52YWxpZCBuZXh0IGJsb2NrIHRvIHByb2Nlc3MED3BlcmlvZEVuZEhlaWdodAkAZQIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAABBBxibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplTWF4ACgEGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUDAwMJAGcCBQZoZWlnaHQFEm5leHRCbG9ja1RvUHJvY2VzcwMJAGcCBRJuZXh0QmxvY2tUb1Byb2Nlc3MFEmN1cnJlbnRTdGFydEhlaWdodAYJAAACBRNjdXJyZW50UGVyaW9kT3JGYWlsAAAHCQBnAgUPcGVyaW9kRW5kSGVpZ2h0BRJuZXh0QmxvY2tUb1Byb2Nlc3MHCQCXAwEJAMwIAgkAZAIJAGUCBQ9wZXJpb2RFbmRIZWlnaHQFEm5leHRCbG9ja1RvUHJvY2VzcwABCQDMCAIFHGJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemVNYXgFA25pbAkBCHRocm93RXJyAQkBB3dyYXBFcnIBAhRpbnZhbGlkIHRhcmdldCBibG9jawQVYmxvY2tQcm9jZXNzaW5nUmV3YXJkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARhrZXlCbG9ja1Byb2Nlc3NpbmdSZXdhcmQACQEHd3JhcEVycgECH2ludmFsaWQgYmxvY2sgcHJvY2Vzc2luZyByZXdhcmQEIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yCQBpAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplBClibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvclJlbWFpbmRlcgkAZQIFFWJsb2NrUHJvY2Vzc2luZ1Jld2FyZAkAaAIFIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplCgEDbWFwAgNhY2MDaW5jAwkAZwIFA2luYwUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQUDYWNjBBF0YXJnZXRCbG9ja0hlaWdodAkAZAIFEm5leHRCbG9ja1RvUHJvY2VzcwUDaW5jBA90YXJnZXRCbG9ja0luZm8JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBRF0YXJnZXRCbG9ja0hlaWdodAkBB3dyYXBFcnIBAhJpbnZhbGlkIGJsb2NrIGluZm8EFHRyZWFzdXJ5UmV3YXJkT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAQ9yZXdhcmRGb3JPcHRpb24CCAUPdGFyZ2V0QmxvY2tJbmZvB3Jld2FyZHMFFXRyZWFzdXJ5QWRkcmVzc09yRmFpbAkBB3dyYXBFcnIBCQCsAgICI2ludmFsaWQgdHJlYXN1cnkgcmV3YXJkIGZvciBoZWlnaHQgCQCkAwEFEXRhcmdldEJsb2NrSGVpZ2h0BAlnZW5lcmF0b3IIBQ90YXJnZXRCbG9ja0luZm8JZ2VuZXJhdG9yBAlhdmFpbGFibGUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQxrZXlBdmFpbGFibGUBBQlnZW5lcmF0b3IAAAQMY2FsbGVyUmV3YXJkAwkAAAIFA2luYwkAZQIFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUAAQkAZAIFIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yBSlibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvclJlbWFpbmRlcgUgYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3IEDWxwQXNzZXRBbW91bnQDCQBmAgUSY3VycmVudFByaWNlT3JGYWlsAAAJAGsDCQBlAgUUdHJlYXN1cnlSZXdhcmRPckZhaWwFDGNhbGxlclJld2FyZAUGU0NBTEU4BRJjdXJyZW50UHJpY2VPckZhaWwAAAQUZmFjdG9yeUFjdGlvbnNTaW5nbGUJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILc3RyaW5nRW50cnkJAMwIAgkBEWtleUJsb2NrUHJvY2Vzc2VkAQURdGFyZ2V0QmxvY2tIZWlnaHQJAMwIAgkAuQkCCQDMCAIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkAzAgCCQDYBAEFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgkApAMBBRR0cmVhc3VyeVJld2FyZE9yRmFpbAkAzAgCCQCkAwEFDGNhbGxlclJld2FyZAkAzAgCCQCkAwEFDWxwQXNzZXRBbW91bnQFA25pbAUDU0VQBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDGtleUF2YWlsYWJsZQEFCWdlbmVyYXRvcgkAzAgCCQBkAgUJYXZhaWxhYmxlBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAUDbmlsAwkAAAIFFGZhY3RvcnlBY3Rpb25zU2luZ2xlBRRmYWN0b3J5QWN0aW9uc1NpbmdsZQkAZAIFA2FjYwUNbHBBc3NldEFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQEbGlzdAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgkAzAgCAA8JAMwIAgAQCQDMCAIAEQkAzAgCABIJAMwIAgATCQDMCAIAFAkAzAgCABUJAMwIAgAWCQDMCAIAFwkAzAgCABgJAMwIAgAZCQDMCAIAGgkAzAgCABsJAMwIAgAcCQDMCAIAHQkAzAgCAB4JAMwIAgAfCQDMCAIAIAkAzAgCACEJAMwIAgAiCQDMCAIAIwkAzAgCACQJAMwIAgAlCQDMCAIAJgkAzAgCACcFA25pbAQSbHBBc3NldEFtb3VudFRvdGFsCgACJGwFBGxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAMJAAACBRJscEFzc2V0QW1vdW50VG90YWwFEmxwQXNzZXRBbW91bnRUb3RhbAQHYWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlcldhdmVzCQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgdyZWlzc3VlCQDMCAIFEmxwQXNzZXRBbW91bnRUb3RhbAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MACQDMCAIJAGQCBRJuZXh0QmxvY2tUb1Byb2Nlc3MFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUFA25pbAUDbmlsBQNuaWwDCQAAAgUHYWN0aW9ucwUHYWN0aW9ucwkAlAoCBQNuaWwFBHVuaXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5uwdghQ==",
    "height": 2632312,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2gXw4zBaDWfMqYvJ3C8MSDrbNddPqjuU1aPjMc33sAAY
Next: 2BKD6hYCQoca8zJa9hG3XpSTYCvUDbYtsubAg9ger5b3

Diff: 
Old New Differences
32 32      }
33 33  
34 34  
35 - func n () = makeString(["%s", "factory"], a)
35 + func n (o) = if ((0 > o))
36 +     then -(o)
37 +     else o
36 38  
37 39  
38 - func o () = makeString(["%s", "lpAssetId"], a)
40 + func p () = makeString(["%s", "factory"], a)
39 41  
40 42  
41 - func p () = makeString(["%s", "treasury"], a)
43 + func q () = makeString(["%s", "lpAssetId"], a)
42 44  
43 45  
44 - func q (k) = makeString(["%s%s", "invested", j(k)], a)
46 + func r () = makeString(["%s", "xtnAssetId"], a)
45 47  
46 48  
47 - func r (s) = makeString(["%s%s", "available", toString(s)], a)
49 + func s () = makeString(["%s", "treasury"], a)
48 50  
49 51  
50 - func t (s) = makeString(["%s%s", "claimed", toString(s)], a)
52 + func t (k) = makeString(["%s%s", "invested", j(k)], a)
51 53  
52 54  
53 - func u () = makeString(["%s", "currentPeriod"], a)
55 + func u (v) = makeString(["%s%s", "available", toString(v)], a)
54 56  
55 57  
56 - func v (w) = makeString(["%s%d", "price", toString(w)], a)
58 + func w (v) = makeString(["%s%s", "claimed", toString(v)], a)
57 59  
58 60  
59 - func x (w) = makeString(["%s%d", "startHeight", toString(w)], a)
61 + func x () = makeString(["%s", "currentPeriod"], a)
60 62  
61 63  
62 - func y () = "%s__periodLength"
64 + func y (z) = makeString(["%s%d", "price", toString(z)], a)
63 65  
64 66  
65 - func z () = "%s__blockProcessingReward"
67 + func A (z) = makeString(["%s%d", "startHeight", toString(z)], a)
66 68  
67 69  
68 - func A () = "%s__nextBlockToProcess"
70 + func B () = "%s__periodLength"
69 71  
70 72  
71 - func B (C) = makeString(["%s%d", "blockProcessed", toString(C)], a)
73 + func C () = "%s__blockProcessingReward"
72 74  
73 75  
74 - func D () = "%s__withdrawal"
76 + func D () = "%s__nextBlockToProcess"
75 77  
76 78  
77 - func E (s,F) = makeString(["%s%s%s", "withdrawal", toString(s), toBase58String(F)], a)
79 + func E (F) = makeString(["%s%d", "blockProcessed", toString(F)], a)
78 80  
79 81  
80 - func G (H,I,J,K) = {
81 -     let L = {
82 -         let l = K
82 + func G () = "%s__withdrawal"
83 + 
84 + 
85 + func H (v,I) = makeString(["%s%s%s", "withdrawal", toString(v), toBase58String(I)], a)
86 + 
87 + 
88 + func J (K,L,M,N) = {
89 +     let O = {
90 +         let l = N
83 91          if ($isInstanceOf(l, "ByteVector"))
84 92              then {
85 93                  let m = l
89 97                  then "SOON"
90 98                  else throw("Match error")
91 99          }
92 -     makeString(["%s%d%d%s", H, toString(I), toString(J), L], a)
100 +     makeString(["%s%d%d%s", K, toString(L), toString(M), O], a)
93 101      }
94 102  
95 103  
96 - func M (h) = {
97 -     let N = split(h, a)
98 -     if ((size(N) == 5))
104 + func P (h) = {
105 +     let Q = split(h, a)
106 +     if ((size(Q) == 5))
99 107          then {
100 -             let H = N[1]
101 -             let I = valueOrErrorMessage(parseInt(N[2]), g("invalid lpAssetAmount"))
102 -             let J = valueOrErrorMessage(parseInt(N[3]), g("invalid targetPeriod"))
103 -             let K = N[4]
104 -             $Tuple4(H, I, J, K)
108 +             let K = Q[1]
109 +             let L = valueOrErrorMessage(parseInt(Q[2]), g("invalid lpAssetAmount"))
110 +             let M = valueOrErrorMessage(parseInt(Q[3]), g("invalid targetPeriod"))
111 +             let N = Q[4]
112 +             $Tuple4(K, L, M, N)
105 113              }
106 114          else i("invalid withdrawal request value")
107 115      }
108 116  
109 117  
110 - let O = {
111 -     let l = getString(this, n())
118 + let R = {
119 +     let l = getString(this, p())
112 120      if ($isInstanceOf(l, "String"))
113 121          then {
114 122              let h = l
119 127              else throw("Match error")
120 128      }
121 129  
122 - let P = valueOrErrorMessage(O, g("invalid factory address"))
130 + let S = valueOrErrorMessage(R, g("invalid factory address"))
123 131  
124 - let Q = {
125 -     let l = O
132 + let T = {
133 +     let l = R
126 134      if ($isInstanceOf(l, "Address"))
127 135          then {
128 -             let R = l
129 -             let S = getString(R, o())
130 -             if ($isInstanceOf(S, "String"))
136 +             let U = l
137 +             let V = getString(U, q())
138 +             if ($isInstanceOf(V, "String"))
131 139                  then {
132 -                     let h = S
140 +                     let h = V
133 141                      fromBase58String(h)
134 142                      }
135 -                 else if ($isInstanceOf(S, "Unit"))
143 +                 else if ($isInstanceOf(V, "Unit"))
136 144                      then unit
137 145                      else throw("Match error")
138 146              }
141 149              else throw("Match error")
142 150      }
143 151  
144 - let T = valueOrErrorMessage(Q, g("invalid lpAssetId"))
152 + let W = valueOrErrorMessage(T, g("invalid lpAssetId"))
145 153  
146 - let U = {
147 -     let l = O
154 + let X = {
155 +     let l = R
148 156      if ($isInstanceOf(l, "Address"))
149 157          then {
150 -             let R = l
151 -             let S = getString(R, p())
152 -             if ($isInstanceOf(S, "String"))
158 +             let U = l
159 +             let V = getString(U, r())
160 +             if ($isInstanceOf(V, "String"))
153 161                  then {
154 -                     let h = S
155 -                     addressFromString(h)
162 +                     let h = V
163 +                     fromBase58String(h)
156 164                      }
157 -                 else if ($isInstanceOf(S, "Unit"))
165 +                 else if ($isInstanceOf(V, "Unit"))
158 166                      then unit
159 167                      else throw("Match error")
160 168              }
163 171              else throw("Match error")
164 172      }
165 173  
166 - let V = valueOrErrorMessage(U, g("invalid treasury address"))
174 + let Y = valueOrErrorMessage(X, g("invalid xtnAssetId"))
167 175  
168 - func W (X,Y) = if ((X.caller == Y))
176 + let Z = {
177 +     let l = R
178 +     if ($isInstanceOf(l, "Address"))
179 +         then {
180 +             let U = l
181 +             let V = getString(U, s())
182 +             if ($isInstanceOf(V, "String"))
183 +                 then {
184 +                     let h = V
185 +                     addressFromString(h)
186 +                     }
187 +                 else if ($isInstanceOf(V, "Unit"))
188 +                     then unit
189 +                     else throw("Match error")
190 +             }
191 +         else if ($isInstanceOf(l, "Unit"))
192 +             then unit
193 +             else throw("Match error")
194 +     }
195 + 
196 + let aa = valueOrErrorMessage(Z, g("invalid treasury address"))
197 + 
198 + func ab (ac,ad) = if ((ac.caller == ad))
169 199      then true
170 200      else i("permission denied")
171 201  
172 202  
173 - func Z (X) = W(X, P)
203 + func ae (ac) = ab(ac, S)
174 204  
175 205  
176 - func aa (ab,ac) = {
177 -     let h = size(ab)
178 -     let ad = ab[0]
179 -     let ae = ad._1
180 -     let af = ad._2
181 -     let ag = ab[1]
182 -     let ah = ag._1
183 -     let ai = ag._2
184 -     let aj = ab[2]
185 -     let ak = aj._1
186 -     let al = aj._2
206 + func af (ag,ah) = {
207 +     let h = size(ag)
208 +     let ai = ag[0]
209 +     let aj = ai._1
210 +     let ak = ai._2
211 +     let al = ag[1]
212 +     let am = al._1
213 +     let an = al._2
214 +     let ao = ag[2]
215 +     let ap = ao._1
216 +     let aq = ao._2
187 217      if (if ((h > 0))
188 -         then (ae == ac)
218 +         then (aj == ah)
189 219          else false)
190 -         then af
220 +         then ak
191 221          else if (if ((h > 1))
192 -             then (ah == ac)
222 +             then (am == ah)
193 223              else false)
194 -             then ai
224 +             then an
195 225              else if (if ((h > 2))
196 -                 then (ak == ac)
226 +                 then (ap == ah)
197 227                  else false)
198 -                 then al
228 +                 then aq
199 229                  else unit
200 230      }
201 231  
202 232  
203 - @Callable(X)
204 - func claimLP (am) = {
205 -     let an = Z(X)
206 -     if ((an == an))
233 + @Callable(ac)
234 + func claimLP (ar) = {
235 +     let as = ae(ac)
236 +     if ((as == as))
207 237          then {
208 -             let s = Address(am)
209 -             let ao = valueOrElse(getInteger(P, r(s)), 0)
210 -             let ap = valueOrElse(getInteger(P, t(s)), 0)
211 -             let aq = if ((ao > 0))
212 -                 then [invoke(P, "transferAsset", [am, ao, T], nil), invoke(P, "integerEntry", [r(s), 0], nil), invoke(P, "stringEntry", [t(s), (ap + ao)], nil)]
238 +             let v = Address(ar)
239 +             let at = valueOrElse(getInteger(S, u(v)), 0)
240 +             let au = valueOrElse(getInteger(S, w(v)), 0)
241 +             let av = if ((at > 0))
242 +                 then [invoke(S, "transferAsset", [ar, at, W], nil), invoke(S, "integerEntry", [u(v), 0], nil), invoke(S, "integerEntry", [w(v), (au + at)], nil)]
213 243                  else i("nothing to claim")
214 -             $Tuple2(nil, aq)
244 +             $Tuple2(nil, av)
215 245              }
216 246          else throw("Strict value is not equal to itself.")
217 247      }
218 248  
219 249  
220 250  
221 - @Callable(X)
222 - func finalize (ar,as,at,au) = {
223 -     let av = [if ((X.originCaller == P))
224 -         then true
225 -         else i("permission denied"), if ((ar >= 0))
226 -         then true
227 -         else i("invalid new treasury volume"), if ((as >= 0))
228 -         then true
229 -         else i("invalid XTN price"), if (if ((at >= 0))
230 -         then (c >= at)
231 -         else false)
232 -         then true
233 -         else i("invalid PWR managers bonus"), if (if ((au >= -(c)))
234 -         then (c >= au)
235 -         else false)
236 -         then true
237 -         else i("invalid treasury volume diff allocation coefficient")]
238 -     if ((av == av))
251 + @Callable(ac)
252 + func finalize (ar,aw,ax,ay,az) = {
253 +     let as = ae(ac)
254 +     if ((as == as))
239 255          then {
240 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
241 -             let ax = (aw + 1)
242 -             let ay = c
243 -             let az = 0
244 -             let aq = [invoke(P, "integerEntry", [u(), ax], nil), invoke(P, "integerEntry", [v(ax), ay], nil), invoke(P, "burn", [az], nil)]
245 -             $Tuple2(nil, aq)
246 -             }
247 -         else throw("Strict value is not equal to itself.")
248 -     }
249 - 
250 - 
251 - 
252 - @Callable(X)
253 - func invest (am) = {
254 -     let an = Z(X)
255 -     if ((an == an))
256 -         then {
257 -             let s = Address(am)
258 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
259 -             let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
260 -             let aB = if ((size(X.payments) == 1))
261 -                 then X.payments[0]
262 -                 else i("invalid payments")
263 -             let aC = if (if ((aB.assetId == unit))
264 -                 then (aB.amount > 0)
256 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
257 +             let aB = valueOrErrorMessage(getInteger(S, B()), g("invalid period length"))
258 +             let aC = valueOrErrorMessage(getInteger(S, A(aA)), g("invalid start height"))
259 +             let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
260 +             let aE = valueOrErrorMessage(getInteger(S, D()), g("invalid next block to process"))
261 +             let aF = ((aC + aB) - 1)
262 +             let aG = [if ((aE > aF))
263 +                 then true
264 +                 else i("unprocessed blocks"), if ((aw >= 0))
265 +                 then true
266 +                 else i("invalid new treasury volume"), if ((ax >= 0))
267 +                 then true
268 +                 else i("invalid XTN price"), if (if ((ay >= 0))
269 +                 then (c >= ay)
265 270                  else false)
266 -                 then aB.amount
267 -                 else i("invalid payment amount")
268 -             let I = if ((aA > 0))
269 -                 then fraction(aC, c, aA)
270 -                 else 0
271 -             let aD = valueOrElse(getInteger(P, q(unit)), 0)
272 -             let aq = [invoke(P, "integerEntry", [q(unit), (aD + aC)], nil), invoke(P, "reissue", [I], nil), invoke(P, "transferAsset", [am, I, T], nil), invoke(P, "transferWaves", [V.bytes, aC], [AttachedPayment(unit, aC)])]
273 -             $Tuple2(nil, aq)
274 -             }
275 -         else throw("Strict value is not equal to itself.")
276 -     }
277 - 
278 - 
279 - 
280 - @Callable(X)
281 - func withdraw (am) = {
282 -     let an = Z(X)
283 -     if ((an == an))
284 -         then {
285 -             let s = Address(am)
286 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
287 -             let aB = if ((size(X.payments) == 1))
288 -                 then X.payments[0]
289 -                 else i(g("invalid payments"))
290 -             let aE = if ((aB.assetId == T))
291 -                 then T
292 -                 else i("invalid payment asset")
293 -             let aC = if ((aB.amount > 0))
294 -                 then aB.amount
295 -                 else i("invalid payment amount")
296 -             let aF = valueOrElse(getInteger(P, D()), 0)
297 -             let aq = [invoke(P, "integerEntry", [D(), (aF + aC)], nil), invoke(P, "stringEntry", [E(s, X.transactionId), G(d, aC, (aw + 1), unit)], nil)]
298 -             if ((aq == aq))
299 -                 then $Tuple2([ScriptTransfer(P, aC, aE)], aq)
271 +                 then true
272 +                 else i("invalid PWR managers bonus"), if (if ((az >= -(c)))
273 +                 then (c >= az)
274 +                 else false)
275 +                 then true
276 +                 else i("invalid treasury volume diff allocation coefficient")]
277 +             if ((aG == aG))
278 +                 then {
279 +                     let aH = valueOrElse(getInteger(S, t(Y)), 0)
280 +                     let aI = valueOrElse(getInteger(S, t(unit)), 0)
281 +                     let aJ = fraction(aH, ax, c)
282 +                     let aK = (aJ + aI)
283 +                     let aL = (aw - aK)
284 +                     let aM = if ((aL > 0))
285 +                         then fraction(aL, ay, c)
286 +                         else 0
287 +                     let aN = (aL - aM)
288 +                     let aO = if ((aK > 0))
289 +                         then fraction(aJ, c, aK)
290 +                         else 0
291 +                     let aP = fraction(aN, aO, c)
292 +                     let aQ = (aN - aP)
293 +                     let aR = n(az)
294 +                     let aS = fraction(aQ, if ((0 > az))
295 +                         then aR
296 +                         else 0, c)
297 +                     let aT = fraction(aP, if ((az > 0))
298 +                         then aR
299 +                         else 0, c)
300 +                     let aU = ((aP - aT) + aS)
301 +                     let aV = ((aQ - aS) + aT)
302 +                     let aW = (aI + aV)
303 +                     let aX = fraction((aJ + aU), c, ax)
304 +                     let aY = (aA + 1)
305 +                     let aZ = valueOrErrorMessage(assetInfo(W), g("invalid lpAsset info")).quantity
306 +                     let ba = fraction(aW, c, aZ)
307 +                     let bb = valueOrElse(getInteger(S, G()), 0)
308 +                     let bc = fraction(bb, ba, c)
309 +                     let bd = if (if (if ((size(ac.payments) == 1))
310 +                         then (ac.payments[0].assetId == unit)
311 +                         else false)
312 +                         then (ac.payments[0].amount >= bc)
313 +                         else false)
314 +                         then true
315 +                         else i(("invalid payments, payment amount min: " + toString(bc)))
316 +                     if ((bd == bd))
317 +                         then {
318 +                             let av = [invoke(S, "integerEntry", [x(), aY], nil), invoke(S, "integerEntry", [y(aY), ba], nil), invoke(S, "burn", [bb], nil), invoke(S, "integerEntry", [G(), 0], nil)]
319 +                             $Tuple2(nil, av)
320 +                             }
321 +                         else throw("Strict value is not equal to itself.")
322 +                     }
300 323                  else throw("Strict value is not equal to itself.")
301 324              }
302 325          else throw("Strict value is not equal to itself.")
304 327  
305 328  
306 329  
307 - @Callable(X)
308 - func cancelWithdraw (am,F) = {
309 -     let an = Z(X)
310 -     if ((an == an))
330 + @Callable(ac)
331 + func invest (ar) = {
332 +     let as = ae(ac)
333 +     if ((as == as))
311 334          then {
312 -             let s = Address(am)
313 -             let aG = valueOrErrorMessage(getString(P, E(s, F)), g("invalid withdrawal request"))
314 -             let aH = M(aG)
315 -             let H = aH._1
316 -             let I = aH._2
317 -             let J = aH._3
318 -             let K = aH._4
319 -             if ((H == d))
320 -                 then {
321 -                     let aF = valueOrErrorMessage(getInteger(P, D()), g("invalid total withdrawal amount"))
322 -                     let aq = [invoke(P, "integerEntry", [D(), if ((aF >= I))
323 -                         then (aF - I)
324 -                         else i("invalid withdrawal amount")], nil), invoke(P, "deleteEntry", [E(s, F)], nil), invoke(P, "transferAsset", [am, I, T], nil)]
325 -                     if ((aq == aq))
326 -                         then $Tuple2(nil, aq)
327 -                         else throw("Strict value is not equal to itself.")
328 -                     }
329 -                 else i("invalid withdrawal request status")
335 +             let v = Address(ar)
336 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
337 +             let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
338 +             let be = if ((size(ac.payments) == 1))
339 +                 then ac.payments[0]
340 +                 else i("invalid payments")
341 +             let bf = if (if ((be.assetId == unit))
342 +                 then (be.amount > 0)
343 +                 else false)
344 +                 then be.amount
345 +                 else i("invalid payment amount")
346 +             let L = if ((aD > 0))
347 +                 then fraction(bf, c, aD)
348 +                 else 0
349 +             let bg = valueOrElse(getInteger(S, t(unit)), 0)
350 +             let av = [invoke(S, "integerEntry", [t(unit), (bg + bf)], nil), invoke(S, "reissue", [L], nil), invoke(S, "transferAsset", [ar, L, W], nil), invoke(S, "transferWaves", [aa.bytes, bf], [AttachedPayment(unit, bf)])]
351 +             $Tuple2(nil, av)
330 352              }
331 353          else throw("Strict value is not equal to itself.")
332 354      }
333 355  
334 356  
335 357  
336 - @Callable(X)
337 - func claimWaves (am,F) = {
338 -     let an = Z(X)
339 -     if ((an == an))
358 + @Callable(ac)
359 + func withdraw (ar) = {
360 +     let as = ae(ac)
361 +     if ((as == as))
340 362          then {
341 -             let s = Address(am)
342 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
343 -             let aG = valueOrErrorMessage(getString(P, E(s, F)), g("invalid withdrawal request"))
344 -             let aI = M(aG)
345 -             let H = aI._1
346 -             let I = aI._2
347 -             let J = aI._3
348 -             let K = aI._4
349 -             if ((H == e))
363 +             let v = Address(ar)
364 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
365 +             let be = if ((size(ac.payments) == 1))
366 +                 then ac.payments[0]
367 +                 else i(g("invalid payments"))
368 +             let bh = if ((be.assetId == W))
369 +                 then W
370 +                 else i("invalid payment asset")
371 +             let bf = if ((be.amount > 0))
372 +                 then be.amount
373 +                 else i("invalid payment amount")
374 +             let bi = valueOrElse(getInteger(S, G()), 0)
375 +             let av = [invoke(S, "integerEntry", [G(), (bi + bf)], nil), invoke(S, "stringEntry", [H(v, ac.transactionId), J(d, bf, (aA + 1), unit)], nil)]
376 +             if ((av == av))
377 +                 then $Tuple2([ScriptTransfer(S, bf, bh)], av)
378 +                 else throw("Strict value is not equal to itself.")
379 +             }
380 +         else throw("Strict value is not equal to itself.")
381 +     }
382 + 
383 + 
384 + 
385 + @Callable(ac)
386 + func cancelWithdraw (ar,I) = {
387 +     let as = ae(ac)
388 +     if ((as == as))
389 +         then {
390 +             let v = Address(ar)
391 +             let bj = valueOrErrorMessage(getString(S, H(v, I)), g("invalid withdrawal request"))
392 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
393 +             let bk = P(bj)
394 +             let K = bk._1
395 +             let L = bk._2
396 +             let M = bk._3
397 +             let N = bk._4
398 +             let aG = [if ((K == d))
399 +                 then true
400 +                 else i("invalid withdrawal request status"), if ((M > aA))
401 +                 then true
402 +                 else i("invalid withdrawal request period")]
403 +             if ((aG == aG))
404 +                 then {
405 +                     let bi = valueOrErrorMessage(getInteger(S, G()), g("invalid total withdrawal amount"))
406 +                     let av = [invoke(S, "integerEntry", [G(), if ((bi >= L))
407 +                         then (bi - L)
408 +                         else i("invalid withdrawal amount")], nil), invoke(S, "deleteEntry", [H(v, I)], nil), invoke(S, "transferAsset", [ar, L, W], nil)]
409 +                     if ((av == av))
410 +                         then $Tuple2(nil, av)
411 +                         else throw("Strict value is not equal to itself.")
412 +                     }
413 +                 else throw("Strict value is not equal to itself.")
414 +             }
415 +         else throw("Strict value is not equal to itself.")
416 +     }
417 + 
418 + 
419 + 
420 + @Callable(ac)
421 + func claimWaves (ar,I) = {
422 +     let as = ae(ac)
423 +     if ((as == as))
424 +         then {
425 +             let v = Address(ar)
426 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
427 +             let bj = valueOrErrorMessage(getString(S, H(v, I)), g("invalid withdrawal request"))
428 +             let bl = P(bj)
429 +             let K = bl._1
430 +             let L = bl._2
431 +             let M = bl._3
432 +             let N = bl._4
433 +             if ((K == e))
350 434                  then i("invalid withdrawal request status")
351 -                 else if ((J > aw))
435 +                 else if ((M > aA))
352 436                      then i("invalid withdrawal request period")
353 437                      else {
354 -                         let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
355 -                         let aJ = if ((aA > 0))
356 -                             then fraction(I, aA, c)
438 +                         let bm = valueOrErrorMessage(getInteger(S, y(M)), g("invalid price"))
439 +                         let bn = if ((bm > 0))
440 +                             then fraction(L, bm, c)
357 441                              else 0
358 -                         let aq = [invoke(P, "stringEntry", [E(s, F), G(e, I, J, X.transactionId)], nil), invoke(P, "burn", [I], nil), invoke(P, "transferWaves", [am, aJ], nil)]
359 -                         $Tuple2(nil, aq)
442 +                         let av = [invoke(S, "stringEntry", [H(v, I), J(e, L, M, ac.transactionId)], nil), invoke(S, "burn", [L], nil), invoke(S, "transferWaves", [ar, bn], nil)]
443 +                         $Tuple2(nil, av)
360 444                          }
361 445              }
362 446          else throw("Strict value is not equal to itself.")
364 448  
365 449  
366 450  
367 - @Callable(X)
368 - func processBlocks (am) = {
369 -     let an = Z(X)
370 -     if ((an == an))
451 + @Callable(ac)
452 + func processBlocks (ar) = {
453 +     let as = ae(ac)
454 +     if ((as == as))
371 455          then {
372 -             let s = Address(am)
373 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
374 -             let aK = valueOrErrorMessage(getInteger(P, y()), g("invalid period length"))
375 -             let aL = valueOrErrorMessage(getInteger(P, x(aw)), g("invalid start height"))
376 -             let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
377 -             let aM = valueOrErrorMessage(getInteger(P, A()), g("invalid next block to process"))
378 -             let aN = ((aL + aK) - 1)
379 -             let aO = 40
380 -             let aP = if (if (if ((height >= aM))
381 -                 then if ((aM >= aL))
456 +             let v = Address(ar)
457 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
458 +             let aB = valueOrErrorMessage(getInteger(S, B()), g("invalid period length"))
459 +             let aC = valueOrErrorMessage(getInteger(S, A(aA)), g("invalid start height"))
460 +             let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
461 +             let aE = valueOrErrorMessage(getInteger(S, D()), g("invalid next block to process"))
462 +             let aF = ((aC + aB) - 1)
463 +             let bo = 40
464 +             let bp = if (if (if ((height >= aE))
465 +                 then if ((aE >= aC))
382 466                      then true
383 -                     else (aw == 0)
467 +                     else (aA == 0)
384 468                  else false)
385 -                 then (aN >= aM)
469 +                 then (aF >= aE)
386 470                  else false)
387 -                 then min([((aN - aM) + 1), aO])
471 +                 then min([((aF - aE) + 1), bo])
388 472                  else i(g("invalid target block"))
389 -             let aQ = valueOrErrorMessage(getInteger(P, z()), g("invalid block processing reward"))
390 -             let aR = (aQ / aP)
391 -             let aS = (aQ - (aR * aP))
392 -             func aT (aU,aV) =             if ((aV >= aP))
393 -                 then aU
473 +             let bq = valueOrErrorMessage(getInteger(S, C()), g("invalid block processing reward"))
474 +             let br = (bq / bp)
475 +             let bs = (bq - (br * bp))
476 +             func bt (bu,bv) =             if ((bv >= bp))
477 +                 then bu
394 478                  else {
395 -                     let aW = (aM + aV)
396 -                     let aX = valueOrErrorMessage(blockInfoByHeight(aW), g("invalid block info"))
397 -                     let aY = valueOrErrorMessage(aa(aX.rewards, V), g(("invalid treasury reward for height " + toString(aW))))
398 -                     let aZ = aX.generator
399 -                     let ao = valueOrElse(getInteger(P, r(aZ)), 0)
400 -                     let ba = if ((aV == (aP - 1)))
401 -                         then (aR + aS)
402 -                         else aR
403 -                     let I = if ((aA > 0))
404 -                         then fraction((aY - ba), c, aA)
479 +                     let bw = (aE + bv)
480 +                     let bx = valueOrErrorMessage(blockInfoByHeight(bw), g("invalid block info"))
481 +                     let by = valueOrErrorMessage(af(bx.rewards, aa), g(("invalid treasury reward for height " + toString(bw))))
482 +                     let bz = bx.generator
483 +                     let at = valueOrElse(getInteger(S, u(bz)), 0)
484 +                     let bA = if ((bv == (bp - 1)))
485 +                         then (br + bs)
486 +                         else br
487 +                     let L = if ((aD > 0))
488 +                         then fraction((by - bA), c, aD)
405 489                          else 0
406 -                     let bb = [invoke(P, "stringEntry", [B(aW), makeString([toBase58String(X.transactionId), toBase58String(am), toString(aY), toString(ba), toString(I)], a)], nil), invoke(P, "integerEntry", [r(aZ), (ao + I)], nil)]
407 -                     if ((bb == bb))
408 -                         then (aU + I)
490 +                     let bB = [invoke(S, "stringEntry", [E(bw), makeString([toBase58String(ac.transactionId), toBase58String(ar), toString(by), toString(bA), toString(L)], a)], nil), invoke(S, "integerEntry", [u(bz), (at + L)], nil)]
491 +                     if ((bB == bB))
492 +                         then (bu + L)
409 493                          else throw("Strict value is not equal to itself.")
410 494                      }
411 495  
412 -             let bc = [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]
413 -             let bd = {
414 -                 let be = bc
415 -                 let bf = size(be)
416 -                 let bg = 0
417 -                 func bh (bi,bj) =                 if ((bj >= bf))
418 -                     then bi
419 -                     else aT(bi, be[bj])
496 +             let bC = [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]
497 +             let bD = {
498 +                 let bE = bC
499 +                 let bF = size(bE)
500 +                 let bG = 0
501 +                 func bH (bI,bJ) =                 if ((bJ >= bF))
502 +                     then bI
503 +                     else bt(bI, bE[bJ])
420 504  
421 -                 func bk (bi,bj) =                 if ((bj >= bf))
422 -                     then bi
505 +                 func bK (bI,bJ) =                 if ((bJ >= bF))
506 +                     then bI
423 507                      else throw("List size exceeds 40")
424 508  
425 -                 bk(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bg, 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)
509 +                 bK(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bG, 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)
426 510                  }
427 -             if ((bd == bd))
511 +             if ((bD == bD))
428 512                  then {
429 -                     let bl = [invoke(P, "transferWaves", [am, aQ], nil), invoke(P, "reissue", [bd], nil), invoke(P, "integerEntry", [A(), (aM + aP)], nil)]
430 -                     if ((bl == bl))
513 +                     let bL = [invoke(S, "transferWaves", [ar, bq], nil), invoke(S, "reissue", [bD], nil), invoke(S, "integerEntry", [D(), (aE + bp)], nil)]
514 +                     if ((bL == bL))
431 515                          then $Tuple2(nil, unit)
432 516                          else throw("Strict value is not equal to itself.")
433 517                      }
437 521      }
438 522  
439 523  
440 - @Verifier(bm)
441 - func bn () = sigVerify(bm.bodyBytes, bm.proofs[0], bm.senderPublicKey)
524 + @Verifier(bM)
525 + func bN () = sigVerify(bM.bodyBytes, bM.proofs[0], bM.senderPublicKey)
442 526  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 7 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = "__"
5 5  
6 6  let b = "calculator.ride"
7 7  
8 8  let c = 100000000
9 9  
10 10  let d = "PENDING"
11 11  
12 12  let e = "FINISHED"
13 13  
14 14  let f = "WAVES"
15 15  
16 16  func g (h) = ((b + ": ") + h)
17 17  
18 18  
19 19  func i (h) = throw(g(h))
20 20  
21 21  
22 22  func j (k) = {
23 23      let l = k
24 24      if ($isInstanceOf(l, "ByteVector"))
25 25          then {
26 26              let m = l
27 27              toBase58String(m)
28 28              }
29 29          else if ($isInstanceOf(l, "Unit"))
30 30              then f
31 31              else throw("Match error")
32 32      }
33 33  
34 34  
35 - func n () = makeString(["%s", "factory"], a)
35 + func n (o) = if ((0 > o))
36 +     then -(o)
37 +     else o
36 38  
37 39  
38 - func o () = makeString(["%s", "lpAssetId"], a)
40 + func p () = makeString(["%s", "factory"], a)
39 41  
40 42  
41 - func p () = makeString(["%s", "treasury"], a)
43 + func q () = makeString(["%s", "lpAssetId"], a)
42 44  
43 45  
44 - func q (k) = makeString(["%s%s", "invested", j(k)], a)
46 + func r () = makeString(["%s", "xtnAssetId"], a)
45 47  
46 48  
47 - func r (s) = makeString(["%s%s", "available", toString(s)], a)
49 + func s () = makeString(["%s", "treasury"], a)
48 50  
49 51  
50 - func t (s) = makeString(["%s%s", "claimed", toString(s)], a)
52 + func t (k) = makeString(["%s%s", "invested", j(k)], a)
51 53  
52 54  
53 - func u () = makeString(["%s", "currentPeriod"], a)
55 + func u (v) = makeString(["%s%s", "available", toString(v)], a)
54 56  
55 57  
56 - func v (w) = makeString(["%s%d", "price", toString(w)], a)
58 + func w (v) = makeString(["%s%s", "claimed", toString(v)], a)
57 59  
58 60  
59 - func x (w) = makeString(["%s%d", "startHeight", toString(w)], a)
61 + func x () = makeString(["%s", "currentPeriod"], a)
60 62  
61 63  
62 - func y () = "%s__periodLength"
64 + func y (z) = makeString(["%s%d", "price", toString(z)], a)
63 65  
64 66  
65 - func z () = "%s__blockProcessingReward"
67 + func A (z) = makeString(["%s%d", "startHeight", toString(z)], a)
66 68  
67 69  
68 - func A () = "%s__nextBlockToProcess"
70 + func B () = "%s__periodLength"
69 71  
70 72  
71 - func B (C) = makeString(["%s%d", "blockProcessed", toString(C)], a)
73 + func C () = "%s__blockProcessingReward"
72 74  
73 75  
74 - func D () = "%s__withdrawal"
76 + func D () = "%s__nextBlockToProcess"
75 77  
76 78  
77 - func E (s,F) = makeString(["%s%s%s", "withdrawal", toString(s), toBase58String(F)], a)
79 + func E (F) = makeString(["%s%d", "blockProcessed", toString(F)], a)
78 80  
79 81  
80 - func G (H,I,J,K) = {
81 -     let L = {
82 -         let l = K
82 + func G () = "%s__withdrawal"
83 + 
84 + 
85 + func H (v,I) = makeString(["%s%s%s", "withdrawal", toString(v), toBase58String(I)], a)
86 + 
87 + 
88 + func J (K,L,M,N) = {
89 +     let O = {
90 +         let l = N
83 91          if ($isInstanceOf(l, "ByteVector"))
84 92              then {
85 93                  let m = l
86 94                  toBase58String(m)
87 95                  }
88 96              else if ($isInstanceOf(l, "Unit"))
89 97                  then "SOON"
90 98                  else throw("Match error")
91 99          }
92 -     makeString(["%s%d%d%s", H, toString(I), toString(J), L], a)
100 +     makeString(["%s%d%d%s", K, toString(L), toString(M), O], a)
93 101      }
94 102  
95 103  
96 - func M (h) = {
97 -     let N = split(h, a)
98 -     if ((size(N) == 5))
104 + func P (h) = {
105 +     let Q = split(h, a)
106 +     if ((size(Q) == 5))
99 107          then {
100 -             let H = N[1]
101 -             let I = valueOrErrorMessage(parseInt(N[2]), g("invalid lpAssetAmount"))
102 -             let J = valueOrErrorMessage(parseInt(N[3]), g("invalid targetPeriod"))
103 -             let K = N[4]
104 -             $Tuple4(H, I, J, K)
108 +             let K = Q[1]
109 +             let L = valueOrErrorMessage(parseInt(Q[2]), g("invalid lpAssetAmount"))
110 +             let M = valueOrErrorMessage(parseInt(Q[3]), g("invalid targetPeriod"))
111 +             let N = Q[4]
112 +             $Tuple4(K, L, M, N)
105 113              }
106 114          else i("invalid withdrawal request value")
107 115      }
108 116  
109 117  
110 - let O = {
111 -     let l = getString(this, n())
118 + let R = {
119 +     let l = getString(this, p())
112 120      if ($isInstanceOf(l, "String"))
113 121          then {
114 122              let h = l
115 123              addressFromString(h)
116 124              }
117 125          else if ($isInstanceOf(l, "Unit"))
118 126              then unit
119 127              else throw("Match error")
120 128      }
121 129  
122 - let P = valueOrErrorMessage(O, g("invalid factory address"))
130 + let S = valueOrErrorMessage(R, g("invalid factory address"))
123 131  
124 - let Q = {
125 -     let l = O
132 + let T = {
133 +     let l = R
126 134      if ($isInstanceOf(l, "Address"))
127 135          then {
128 -             let R = l
129 -             let S = getString(R, o())
130 -             if ($isInstanceOf(S, "String"))
136 +             let U = l
137 +             let V = getString(U, q())
138 +             if ($isInstanceOf(V, "String"))
131 139                  then {
132 -                     let h = S
140 +                     let h = V
133 141                      fromBase58String(h)
134 142                      }
135 -                 else if ($isInstanceOf(S, "Unit"))
143 +                 else if ($isInstanceOf(V, "Unit"))
136 144                      then unit
137 145                      else throw("Match error")
138 146              }
139 147          else if ($isInstanceOf(l, "Unit"))
140 148              then unit
141 149              else throw("Match error")
142 150      }
143 151  
144 - let T = valueOrErrorMessage(Q, g("invalid lpAssetId"))
152 + let W = valueOrErrorMessage(T, g("invalid lpAssetId"))
145 153  
146 - let U = {
147 -     let l = O
154 + let X = {
155 +     let l = R
148 156      if ($isInstanceOf(l, "Address"))
149 157          then {
150 -             let R = l
151 -             let S = getString(R, p())
152 -             if ($isInstanceOf(S, "String"))
158 +             let U = l
159 +             let V = getString(U, r())
160 +             if ($isInstanceOf(V, "String"))
153 161                  then {
154 -                     let h = S
155 -                     addressFromString(h)
162 +                     let h = V
163 +                     fromBase58String(h)
156 164                      }
157 -                 else if ($isInstanceOf(S, "Unit"))
165 +                 else if ($isInstanceOf(V, "Unit"))
158 166                      then unit
159 167                      else throw("Match error")
160 168              }
161 169          else if ($isInstanceOf(l, "Unit"))
162 170              then unit
163 171              else throw("Match error")
164 172      }
165 173  
166 - let V = valueOrErrorMessage(U, g("invalid treasury address"))
174 + let Y = valueOrErrorMessage(X, g("invalid xtnAssetId"))
167 175  
168 - func W (X,Y) = if ((X.caller == Y))
176 + let Z = {
177 +     let l = R
178 +     if ($isInstanceOf(l, "Address"))
179 +         then {
180 +             let U = l
181 +             let V = getString(U, s())
182 +             if ($isInstanceOf(V, "String"))
183 +                 then {
184 +                     let h = V
185 +                     addressFromString(h)
186 +                     }
187 +                 else if ($isInstanceOf(V, "Unit"))
188 +                     then unit
189 +                     else throw("Match error")
190 +             }
191 +         else if ($isInstanceOf(l, "Unit"))
192 +             then unit
193 +             else throw("Match error")
194 +     }
195 + 
196 + let aa = valueOrErrorMessage(Z, g("invalid treasury address"))
197 + 
198 + func ab (ac,ad) = if ((ac.caller == ad))
169 199      then true
170 200      else i("permission denied")
171 201  
172 202  
173 - func Z (X) = W(X, P)
203 + func ae (ac) = ab(ac, S)
174 204  
175 205  
176 - func aa (ab,ac) = {
177 -     let h = size(ab)
178 -     let ad = ab[0]
179 -     let ae = ad._1
180 -     let af = ad._2
181 -     let ag = ab[1]
182 -     let ah = ag._1
183 -     let ai = ag._2
184 -     let aj = ab[2]
185 -     let ak = aj._1
186 -     let al = aj._2
206 + func af (ag,ah) = {
207 +     let h = size(ag)
208 +     let ai = ag[0]
209 +     let aj = ai._1
210 +     let ak = ai._2
211 +     let al = ag[1]
212 +     let am = al._1
213 +     let an = al._2
214 +     let ao = ag[2]
215 +     let ap = ao._1
216 +     let aq = ao._2
187 217      if (if ((h > 0))
188 -         then (ae == ac)
218 +         then (aj == ah)
189 219          else false)
190 -         then af
220 +         then ak
191 221          else if (if ((h > 1))
192 -             then (ah == ac)
222 +             then (am == ah)
193 223              else false)
194 -             then ai
224 +             then an
195 225              else if (if ((h > 2))
196 -                 then (ak == ac)
226 +                 then (ap == ah)
197 227                  else false)
198 -                 then al
228 +                 then aq
199 229                  else unit
200 230      }
201 231  
202 232  
203 - @Callable(X)
204 - func claimLP (am) = {
205 -     let an = Z(X)
206 -     if ((an == an))
233 + @Callable(ac)
234 + func claimLP (ar) = {
235 +     let as = ae(ac)
236 +     if ((as == as))
207 237          then {
208 -             let s = Address(am)
209 -             let ao = valueOrElse(getInteger(P, r(s)), 0)
210 -             let ap = valueOrElse(getInteger(P, t(s)), 0)
211 -             let aq = if ((ao > 0))
212 -                 then [invoke(P, "transferAsset", [am, ao, T], nil), invoke(P, "integerEntry", [r(s), 0], nil), invoke(P, "stringEntry", [t(s), (ap + ao)], nil)]
238 +             let v = Address(ar)
239 +             let at = valueOrElse(getInteger(S, u(v)), 0)
240 +             let au = valueOrElse(getInteger(S, w(v)), 0)
241 +             let av = if ((at > 0))
242 +                 then [invoke(S, "transferAsset", [ar, at, W], nil), invoke(S, "integerEntry", [u(v), 0], nil), invoke(S, "integerEntry", [w(v), (au + at)], nil)]
213 243                  else i("nothing to claim")
214 -             $Tuple2(nil, aq)
244 +             $Tuple2(nil, av)
215 245              }
216 246          else throw("Strict value is not equal to itself.")
217 247      }
218 248  
219 249  
220 250  
221 - @Callable(X)
222 - func finalize (ar,as,at,au) = {
223 -     let av = [if ((X.originCaller == P))
224 -         then true
225 -         else i("permission denied"), if ((ar >= 0))
226 -         then true
227 -         else i("invalid new treasury volume"), if ((as >= 0))
228 -         then true
229 -         else i("invalid XTN price"), if (if ((at >= 0))
230 -         then (c >= at)
231 -         else false)
232 -         then true
233 -         else i("invalid PWR managers bonus"), if (if ((au >= -(c)))
234 -         then (c >= au)
235 -         else false)
236 -         then true
237 -         else i("invalid treasury volume diff allocation coefficient")]
238 -     if ((av == av))
251 + @Callable(ac)
252 + func finalize (ar,aw,ax,ay,az) = {
253 +     let as = ae(ac)
254 +     if ((as == as))
239 255          then {
240 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
241 -             let ax = (aw + 1)
242 -             let ay = c
243 -             let az = 0
244 -             let aq = [invoke(P, "integerEntry", [u(), ax], nil), invoke(P, "integerEntry", [v(ax), ay], nil), invoke(P, "burn", [az], nil)]
245 -             $Tuple2(nil, aq)
246 -             }
247 -         else throw("Strict value is not equal to itself.")
248 -     }
249 - 
250 - 
251 - 
252 - @Callable(X)
253 - func invest (am) = {
254 -     let an = Z(X)
255 -     if ((an == an))
256 -         then {
257 -             let s = Address(am)
258 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
259 -             let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
260 -             let aB = if ((size(X.payments) == 1))
261 -                 then X.payments[0]
262 -                 else i("invalid payments")
263 -             let aC = if (if ((aB.assetId == unit))
264 -                 then (aB.amount > 0)
256 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
257 +             let aB = valueOrErrorMessage(getInteger(S, B()), g("invalid period length"))
258 +             let aC = valueOrErrorMessage(getInteger(S, A(aA)), g("invalid start height"))
259 +             let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
260 +             let aE = valueOrErrorMessage(getInteger(S, D()), g("invalid next block to process"))
261 +             let aF = ((aC + aB) - 1)
262 +             let aG = [if ((aE > aF))
263 +                 then true
264 +                 else i("unprocessed blocks"), if ((aw >= 0))
265 +                 then true
266 +                 else i("invalid new treasury volume"), if ((ax >= 0))
267 +                 then true
268 +                 else i("invalid XTN price"), if (if ((ay >= 0))
269 +                 then (c >= ay)
265 270                  else false)
266 -                 then aB.amount
267 -                 else i("invalid payment amount")
268 -             let I = if ((aA > 0))
269 -                 then fraction(aC, c, aA)
270 -                 else 0
271 -             let aD = valueOrElse(getInteger(P, q(unit)), 0)
272 -             let aq = [invoke(P, "integerEntry", [q(unit), (aD + aC)], nil), invoke(P, "reissue", [I], nil), invoke(P, "transferAsset", [am, I, T], nil), invoke(P, "transferWaves", [V.bytes, aC], [AttachedPayment(unit, aC)])]
273 -             $Tuple2(nil, aq)
274 -             }
275 -         else throw("Strict value is not equal to itself.")
276 -     }
277 - 
278 - 
279 - 
280 - @Callable(X)
281 - func withdraw (am) = {
282 -     let an = Z(X)
283 -     if ((an == an))
284 -         then {
285 -             let s = Address(am)
286 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
287 -             let aB = if ((size(X.payments) == 1))
288 -                 then X.payments[0]
289 -                 else i(g("invalid payments"))
290 -             let aE = if ((aB.assetId == T))
291 -                 then T
292 -                 else i("invalid payment asset")
293 -             let aC = if ((aB.amount > 0))
294 -                 then aB.amount
295 -                 else i("invalid payment amount")
296 -             let aF = valueOrElse(getInteger(P, D()), 0)
297 -             let aq = [invoke(P, "integerEntry", [D(), (aF + aC)], nil), invoke(P, "stringEntry", [E(s, X.transactionId), G(d, aC, (aw + 1), unit)], nil)]
298 -             if ((aq == aq))
299 -                 then $Tuple2([ScriptTransfer(P, aC, aE)], aq)
271 +                 then true
272 +                 else i("invalid PWR managers bonus"), if (if ((az >= -(c)))
273 +                 then (c >= az)
274 +                 else false)
275 +                 then true
276 +                 else i("invalid treasury volume diff allocation coefficient")]
277 +             if ((aG == aG))
278 +                 then {
279 +                     let aH = valueOrElse(getInteger(S, t(Y)), 0)
280 +                     let aI = valueOrElse(getInteger(S, t(unit)), 0)
281 +                     let aJ = fraction(aH, ax, c)
282 +                     let aK = (aJ + aI)
283 +                     let aL = (aw - aK)
284 +                     let aM = if ((aL > 0))
285 +                         then fraction(aL, ay, c)
286 +                         else 0
287 +                     let aN = (aL - aM)
288 +                     let aO = if ((aK > 0))
289 +                         then fraction(aJ, c, aK)
290 +                         else 0
291 +                     let aP = fraction(aN, aO, c)
292 +                     let aQ = (aN - aP)
293 +                     let aR = n(az)
294 +                     let aS = fraction(aQ, if ((0 > az))
295 +                         then aR
296 +                         else 0, c)
297 +                     let aT = fraction(aP, if ((az > 0))
298 +                         then aR
299 +                         else 0, c)
300 +                     let aU = ((aP - aT) + aS)
301 +                     let aV = ((aQ - aS) + aT)
302 +                     let aW = (aI + aV)
303 +                     let aX = fraction((aJ + aU), c, ax)
304 +                     let aY = (aA + 1)
305 +                     let aZ = valueOrErrorMessage(assetInfo(W), g("invalid lpAsset info")).quantity
306 +                     let ba = fraction(aW, c, aZ)
307 +                     let bb = valueOrElse(getInteger(S, G()), 0)
308 +                     let bc = fraction(bb, ba, c)
309 +                     let bd = if (if (if ((size(ac.payments) == 1))
310 +                         then (ac.payments[0].assetId == unit)
311 +                         else false)
312 +                         then (ac.payments[0].amount >= bc)
313 +                         else false)
314 +                         then true
315 +                         else i(("invalid payments, payment amount min: " + toString(bc)))
316 +                     if ((bd == bd))
317 +                         then {
318 +                             let av = [invoke(S, "integerEntry", [x(), aY], nil), invoke(S, "integerEntry", [y(aY), ba], nil), invoke(S, "burn", [bb], nil), invoke(S, "integerEntry", [G(), 0], nil)]
319 +                             $Tuple2(nil, av)
320 +                             }
321 +                         else throw("Strict value is not equal to itself.")
322 +                     }
300 323                  else throw("Strict value is not equal to itself.")
301 324              }
302 325          else throw("Strict value is not equal to itself.")
303 326      }
304 327  
305 328  
306 329  
307 - @Callable(X)
308 - func cancelWithdraw (am,F) = {
309 -     let an = Z(X)
310 -     if ((an == an))
330 + @Callable(ac)
331 + func invest (ar) = {
332 +     let as = ae(ac)
333 +     if ((as == as))
311 334          then {
312 -             let s = Address(am)
313 -             let aG = valueOrErrorMessage(getString(P, E(s, F)), g("invalid withdrawal request"))
314 -             let aH = M(aG)
315 -             let H = aH._1
316 -             let I = aH._2
317 -             let J = aH._3
318 -             let K = aH._4
319 -             if ((H == d))
320 -                 then {
321 -                     let aF = valueOrErrorMessage(getInteger(P, D()), g("invalid total withdrawal amount"))
322 -                     let aq = [invoke(P, "integerEntry", [D(), if ((aF >= I))
323 -                         then (aF - I)
324 -                         else i("invalid withdrawal amount")], nil), invoke(P, "deleteEntry", [E(s, F)], nil), invoke(P, "transferAsset", [am, I, T], nil)]
325 -                     if ((aq == aq))
326 -                         then $Tuple2(nil, aq)
327 -                         else throw("Strict value is not equal to itself.")
328 -                     }
329 -                 else i("invalid withdrawal request status")
335 +             let v = Address(ar)
336 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
337 +             let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
338 +             let be = if ((size(ac.payments) == 1))
339 +                 then ac.payments[0]
340 +                 else i("invalid payments")
341 +             let bf = if (if ((be.assetId == unit))
342 +                 then (be.amount > 0)
343 +                 else false)
344 +                 then be.amount
345 +                 else i("invalid payment amount")
346 +             let L = if ((aD > 0))
347 +                 then fraction(bf, c, aD)
348 +                 else 0
349 +             let bg = valueOrElse(getInteger(S, t(unit)), 0)
350 +             let av = [invoke(S, "integerEntry", [t(unit), (bg + bf)], nil), invoke(S, "reissue", [L], nil), invoke(S, "transferAsset", [ar, L, W], nil), invoke(S, "transferWaves", [aa.bytes, bf], [AttachedPayment(unit, bf)])]
351 +             $Tuple2(nil, av)
330 352              }
331 353          else throw("Strict value is not equal to itself.")
332 354      }
333 355  
334 356  
335 357  
336 - @Callable(X)
337 - func claimWaves (am,F) = {
338 -     let an = Z(X)
339 -     if ((an == an))
358 + @Callable(ac)
359 + func withdraw (ar) = {
360 +     let as = ae(ac)
361 +     if ((as == as))
340 362          then {
341 -             let s = Address(am)
342 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
343 -             let aG = valueOrErrorMessage(getString(P, E(s, F)), g("invalid withdrawal request"))
344 -             let aI = M(aG)
345 -             let H = aI._1
346 -             let I = aI._2
347 -             let J = aI._3
348 -             let K = aI._4
349 -             if ((H == e))
363 +             let v = Address(ar)
364 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
365 +             let be = if ((size(ac.payments) == 1))
366 +                 then ac.payments[0]
367 +                 else i(g("invalid payments"))
368 +             let bh = if ((be.assetId == W))
369 +                 then W
370 +                 else i("invalid payment asset")
371 +             let bf = if ((be.amount > 0))
372 +                 then be.amount
373 +                 else i("invalid payment amount")
374 +             let bi = valueOrElse(getInteger(S, G()), 0)
375 +             let av = [invoke(S, "integerEntry", [G(), (bi + bf)], nil), invoke(S, "stringEntry", [H(v, ac.transactionId), J(d, bf, (aA + 1), unit)], nil)]
376 +             if ((av == av))
377 +                 then $Tuple2([ScriptTransfer(S, bf, bh)], av)
378 +                 else throw("Strict value is not equal to itself.")
379 +             }
380 +         else throw("Strict value is not equal to itself.")
381 +     }
382 + 
383 + 
384 + 
385 + @Callable(ac)
386 + func cancelWithdraw (ar,I) = {
387 +     let as = ae(ac)
388 +     if ((as == as))
389 +         then {
390 +             let v = Address(ar)
391 +             let bj = valueOrErrorMessage(getString(S, H(v, I)), g("invalid withdrawal request"))
392 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
393 +             let bk = P(bj)
394 +             let K = bk._1
395 +             let L = bk._2
396 +             let M = bk._3
397 +             let N = bk._4
398 +             let aG = [if ((K == d))
399 +                 then true
400 +                 else i("invalid withdrawal request status"), if ((M > aA))
401 +                 then true
402 +                 else i("invalid withdrawal request period")]
403 +             if ((aG == aG))
404 +                 then {
405 +                     let bi = valueOrErrorMessage(getInteger(S, G()), g("invalid total withdrawal amount"))
406 +                     let av = [invoke(S, "integerEntry", [G(), if ((bi >= L))
407 +                         then (bi - L)
408 +                         else i("invalid withdrawal amount")], nil), invoke(S, "deleteEntry", [H(v, I)], nil), invoke(S, "transferAsset", [ar, L, W], nil)]
409 +                     if ((av == av))
410 +                         then $Tuple2(nil, av)
411 +                         else throw("Strict value is not equal to itself.")
412 +                     }
413 +                 else throw("Strict value is not equal to itself.")
414 +             }
415 +         else throw("Strict value is not equal to itself.")
416 +     }
417 + 
418 + 
419 + 
420 + @Callable(ac)
421 + func claimWaves (ar,I) = {
422 +     let as = ae(ac)
423 +     if ((as == as))
424 +         then {
425 +             let v = Address(ar)
426 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
427 +             let bj = valueOrErrorMessage(getString(S, H(v, I)), g("invalid withdrawal request"))
428 +             let bl = P(bj)
429 +             let K = bl._1
430 +             let L = bl._2
431 +             let M = bl._3
432 +             let N = bl._4
433 +             if ((K == e))
350 434                  then i("invalid withdrawal request status")
351 -                 else if ((J > aw))
435 +                 else if ((M > aA))
352 436                      then i("invalid withdrawal request period")
353 437                      else {
354 -                         let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
355 -                         let aJ = if ((aA > 0))
356 -                             then fraction(I, aA, c)
438 +                         let bm = valueOrErrorMessage(getInteger(S, y(M)), g("invalid price"))
439 +                         let bn = if ((bm > 0))
440 +                             then fraction(L, bm, c)
357 441                              else 0
358 -                         let aq = [invoke(P, "stringEntry", [E(s, F), G(e, I, J, X.transactionId)], nil), invoke(P, "burn", [I], nil), invoke(P, "transferWaves", [am, aJ], nil)]
359 -                         $Tuple2(nil, aq)
442 +                         let av = [invoke(S, "stringEntry", [H(v, I), J(e, L, M, ac.transactionId)], nil), invoke(S, "burn", [L], nil), invoke(S, "transferWaves", [ar, bn], nil)]
443 +                         $Tuple2(nil, av)
360 444                          }
361 445              }
362 446          else throw("Strict value is not equal to itself.")
363 447      }
364 448  
365 449  
366 450  
367 - @Callable(X)
368 - func processBlocks (am) = {
369 -     let an = Z(X)
370 -     if ((an == an))
451 + @Callable(ac)
452 + func processBlocks (ar) = {
453 +     let as = ae(ac)
454 +     if ((as == as))
371 455          then {
372 -             let s = Address(am)
373 -             let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
374 -             let aK = valueOrErrorMessage(getInteger(P, y()), g("invalid period length"))
375 -             let aL = valueOrErrorMessage(getInteger(P, x(aw)), g("invalid start height"))
376 -             let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
377 -             let aM = valueOrErrorMessage(getInteger(P, A()), g("invalid next block to process"))
378 -             let aN = ((aL + aK) - 1)
379 -             let aO = 40
380 -             let aP = if (if (if ((height >= aM))
381 -                 then if ((aM >= aL))
456 +             let v = Address(ar)
457 +             let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
458 +             let aB = valueOrErrorMessage(getInteger(S, B()), g("invalid period length"))
459 +             let aC = valueOrErrorMessage(getInteger(S, A(aA)), g("invalid start height"))
460 +             let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
461 +             let aE = valueOrErrorMessage(getInteger(S, D()), g("invalid next block to process"))
462 +             let aF = ((aC + aB) - 1)
463 +             let bo = 40
464 +             let bp = if (if (if ((height >= aE))
465 +                 then if ((aE >= aC))
382 466                      then true
383 -                     else (aw == 0)
467 +                     else (aA == 0)
384 468                  else false)
385 -                 then (aN >= aM)
469 +                 then (aF >= aE)
386 470                  else false)
387 -                 then min([((aN - aM) + 1), aO])
471 +                 then min([((aF - aE) + 1), bo])
388 472                  else i(g("invalid target block"))
389 -             let aQ = valueOrErrorMessage(getInteger(P, z()), g("invalid block processing reward"))
390 -             let aR = (aQ / aP)
391 -             let aS = (aQ - (aR * aP))
392 -             func aT (aU,aV) =             if ((aV >= aP))
393 -                 then aU
473 +             let bq = valueOrErrorMessage(getInteger(S, C()), g("invalid block processing reward"))
474 +             let br = (bq / bp)
475 +             let bs = (bq - (br * bp))
476 +             func bt (bu,bv) =             if ((bv >= bp))
477 +                 then bu
394 478                  else {
395 -                     let aW = (aM + aV)
396 -                     let aX = valueOrErrorMessage(blockInfoByHeight(aW), g("invalid block info"))
397 -                     let aY = valueOrErrorMessage(aa(aX.rewards, V), g(("invalid treasury reward for height " + toString(aW))))
398 -                     let aZ = aX.generator
399 -                     let ao = valueOrElse(getInteger(P, r(aZ)), 0)
400 -                     let ba = if ((aV == (aP - 1)))
401 -                         then (aR + aS)
402 -                         else aR
403 -                     let I = if ((aA > 0))
404 -                         then fraction((aY - ba), c, aA)
479 +                     let bw = (aE + bv)
480 +                     let bx = valueOrErrorMessage(blockInfoByHeight(bw), g("invalid block info"))
481 +                     let by = valueOrErrorMessage(af(bx.rewards, aa), g(("invalid treasury reward for height " + toString(bw))))
482 +                     let bz = bx.generator
483 +                     let at = valueOrElse(getInteger(S, u(bz)), 0)
484 +                     let bA = if ((bv == (bp - 1)))
485 +                         then (br + bs)
486 +                         else br
487 +                     let L = if ((aD > 0))
488 +                         then fraction((by - bA), c, aD)
405 489                          else 0
406 -                     let bb = [invoke(P, "stringEntry", [B(aW), makeString([toBase58String(X.transactionId), toBase58String(am), toString(aY), toString(ba), toString(I)], a)], nil), invoke(P, "integerEntry", [r(aZ), (ao + I)], nil)]
407 -                     if ((bb == bb))
408 -                         then (aU + I)
490 +                     let bB = [invoke(S, "stringEntry", [E(bw), makeString([toBase58String(ac.transactionId), toBase58String(ar), toString(by), toString(bA), toString(L)], a)], nil), invoke(S, "integerEntry", [u(bz), (at + L)], nil)]
491 +                     if ((bB == bB))
492 +                         then (bu + L)
409 493                          else throw("Strict value is not equal to itself.")
410 494                      }
411 495  
412 -             let bc = [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]
413 -             let bd = {
414 -                 let be = bc
415 -                 let bf = size(be)
416 -                 let bg = 0
417 -                 func bh (bi,bj) =                 if ((bj >= bf))
418 -                     then bi
419 -                     else aT(bi, be[bj])
496 +             let bC = [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]
497 +             let bD = {
498 +                 let bE = bC
499 +                 let bF = size(bE)
500 +                 let bG = 0
501 +                 func bH (bI,bJ) =                 if ((bJ >= bF))
502 +                     then bI
503 +                     else bt(bI, bE[bJ])
420 504  
421 -                 func bk (bi,bj) =                 if ((bj >= bf))
422 -                     then bi
505 +                 func bK (bI,bJ) =                 if ((bJ >= bF))
506 +                     then bI
423 507                      else throw("List size exceeds 40")
424 508  
425 -                 bk(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bh(bg, 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)
509 +                 bK(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bH(bG, 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)
426 510                  }
427 -             if ((bd == bd))
511 +             if ((bD == bD))
428 512                  then {
429 -                     let bl = [invoke(P, "transferWaves", [am, aQ], nil), invoke(P, "reissue", [bd], nil), invoke(P, "integerEntry", [A(), (aM + aP)], nil)]
430 -                     if ((bl == bl))
513 +                     let bL = [invoke(S, "transferWaves", [ar, bq], nil), invoke(S, "reissue", [bD], nil), invoke(S, "integerEntry", [D(), (aE + bp)], nil)]
514 +                     if ((bL == bL))
431 515                          then $Tuple2(nil, unit)
432 516                          else throw("Strict value is not equal to itself.")
433 517                      }
434 518                  else throw("Strict value is not equal to itself.")
435 519              }
436 520          else throw("Strict value is not equal to itself.")
437 521      }
438 522  
439 523  
440 - @Verifier(bm)
441 - func bn () = sigVerify(bm.bodyBytes, bm.proofs[0], bm.senderPublicKey)
524 + @Verifier(bM)
525 + func bN () = sigVerify(bM.bodyBytes, bM.proofs[0], bM.senderPublicKey)
442 526

Old	New		Differences
32	32		}
33	33
34	34
35		-	func n () = makeString(["%s", "factory"], a)
	35	+	func n (o) = if ((0 > o))
	36	+	then -(o)
	37	+	else o
36	38
37	39
38		-	func o () = makeString(["%s", "~~lpAssetId~~"], a)
	40	+	func p () = makeString(["%s", "factory"], a)
39	41
40	42
41		-	func p () = makeString(["%s", "~~treasury~~"], a)
	43	+	func q () = makeString(["%s", "lpAssetId"], a)
42	44
43	45
44		-	func q (k) = makeString(["%s%s", "~~invested~~"~~, j(k)~~], a)
	46	+	func r () = makeString(["%s", "xtnAssetId"], a)
45	47
46	48
47		-	func r (s) = makeString(["%s%s", "~~available~~"~~, toString(s)~~], a)
	49	+	func s () = makeString(["%s", "treasury"], a)
48	50
49	51
50		-	func t (s) = makeString(["%s%s", "~~claimed~~", ~~toString~~(s)], a)
	52	+	func t (k) = makeString(["%s%s", "invested", j(k)], a)
51	53
52	54
53		-	func u () = makeString(["%s", "~~currentPeriod~~"], a)
	55	+	func u (v) = makeString(["%s%s", "available", toString(v)], a)
54	56
55	57
56		-	func v (w) = makeString(["%s%d", "~~price~~", toString(w)], a)
	58	+	func w (v) = makeString(["%s%s", "claimed", toString(v)], a)
57	59
58	60
59		-	func x (w) = makeString(["%s%d", "~~startHeight~~"~~, toString(w)~~], a)
	61	+	func x () = makeString(["%s", "currentPeriod"], a)
60	62
61	63
62		-	func y () = "%s~~__periodLength~~"
	64	+	func y (z) = makeString(["%s%d", "price", toString(z)], a)
63	65
64	66
65		-	func z () = "%s~~__blockProcessingReward~~"
	67	+	func A (z) = makeString(["%s%d", "startHeight", toString(z)], a)
66	68
67	69
68		-	func A () = "%s__~~nextBlockToProcess~~"
	70	+	func B () = "%s__periodLength"
69	71
70	72
71		-	func B (C) = ~~makeString([~~"%s%d"~~, "blockProcessed", toString(C)], a)~~
	73	+	func C () = "%s__blockProcessingReward"
72	74
73	75
74		-	func D () = "%s__~~withdrawal~~"
	76	+	func D () = "%s__nextBlockToProcess"
75	77
76	78
77		-	func E (s,F) = makeString(["%s%~~s%s~~", "~~withdrawal~~", toString~~(s), toBase58String~~(F)], a)
	79	+	func E (F) = makeString(["%s%d", "blockProcessed", toString(F)], a)
78	80
79	81
80		-	func G (H,I,J,K) = {
81		-	let L = {
82		-	let l = K
	82	+	func G () = "%s__withdrawal"
	83	+
	84	+
	85	+	func H (v,I) = makeString(["%s%s%s", "withdrawal", toString(v), toBase58String(I)], a)
	86	+
	87	+
	88	+	func J (K,L,M,N) = {
	89	+	let O = {
	90	+	let l = N
83	91		if ($isInstanceOf(l, "ByteVector"))
84	92		then {
85	93		let m = l

89	97		then "SOON"
90	98		else throw("Match error")
91	99		}
92		-	makeString(["%s%d%d%s", H, toString(I), toString(J), L], a)
	100	+	makeString(["%s%d%d%s", K, toString(L), toString(M), O], a)
93	101		}
94	102
95	103
96		-	func M (h) = {
97		-	let N = split(h, a)
98		-	if ((size(N) == 5))
	104	+	func P (h) = {
	105	+	let Q = split(h, a)
	106	+	if ((size(Q) == 5))
99	107		then {
100		-	let H = N[1]
101		-	let I = valueOrErrorMessage(parseInt(N[2]), g("invalid lpAssetAmount"))
102		-	let J = valueOrErrorMessage(parseInt(N[3]), g("invalid targetPeriod"))
103		-	let K = N[4]
104		-	$Tuple4(H, I, J, K)
	108	+	let K = Q[1]
	109	+	let L = valueOrErrorMessage(parseInt(Q[2]), g("invalid lpAssetAmount"))
	110	+	let M = valueOrErrorMessage(parseInt(Q[3]), g("invalid targetPeriod"))
	111	+	let N = Q[4]
	112	+	$Tuple4(K, L, M, N)
105	113		}
106	114		else i("invalid withdrawal request value")
107	115		}
108	116
109	117
110		-	let O = {
111		-	let l = getString(this, n())
	118	+	let R = {
	119	+	let l = getString(this, p())
112	120		if ($isInstanceOf(l, "String"))
113	121		then {
114	122		let h = l

119	127		else throw("Match error")
120	128		}
121	129
122		-	let P = valueOrErrorMessage(O, g("invalid factory address"))
	130	+	let S = valueOrErrorMessage(R, g("invalid factory address"))
123	131
124		-	let Q = {
125		-	let l = O
	132	+	let T = {
	133	+	let l = R
126	134		if ($isInstanceOf(l, "Address"))
127	135		then {
128		-	let R = l
129		-	let S = getString(R, o())
130		-	if ($isInstanceOf(S, "String"))
	136	+	let U = l
	137	+	let V = getString(U, q())
	138	+	if ($isInstanceOf(V, "String"))
131	139		then {
132		-	let h = S
	140	+	let h = V
133	141		fromBase58String(h)
134	142		}
135		-	else if ($isInstanceOf(S, "Unit"))
	143	+	else if ($isInstanceOf(V, "Unit"))
136	144		then unit
137	145		else throw("Match error")
138	146		}

141	149		else throw("Match error")
142	150		}
143	151
144		-	let T = valueOrErrorMessage(Q, g("invalid lpAssetId"))
	152	+	let W = valueOrErrorMessage(T, g("invalid lpAssetId"))
145	153
146		-	let U = {
147		-	let l = O
	154	+	let X = {
	155	+	let l = R
148	156		if ($isInstanceOf(l, "Address"))
149	157		then {
150		-	let R = l
151		-	let S = getString(R, p())
152		-	if ($isInstanceOf(S, "String"))
	158	+	let U = l
	159	+	let V = getString(U, r())
	160	+	if ($isInstanceOf(V, "String"))
153	161		then {
154		-	let h = S
155		-	~~addressFromString~~(h)
	162	+	let h = V
	163	+	fromBase58String(h)
156	164		}
157		-	else if ($isInstanceOf(S, "Unit"))
	165	+	else if ($isInstanceOf(V, "Unit"))
158	166		then unit
159	167		else throw("Match error")
160	168		}

163	171		else throw("Match error")
164	172		}
165	173
166		-	let V = valueOrErrorMessage(U, g("invalid ~~treasury address~~"))
	174	+	let Y = valueOrErrorMessage(X, g("invalid xtnAssetId"))
167	175
168		-	func W (X,Y) = if ((X.caller == Y))
	176	+	let Z = {
	177	+	let l = R
	178	+	if ($isInstanceOf(l, "Address"))
	179	+	then {
	180	+	let U = l
	181	+	let V = getString(U, s())
	182	+	if ($isInstanceOf(V, "String"))
	183	+	then {
	184	+	let h = V
	185	+	addressFromString(h)
	186	+	}
	187	+	else if ($isInstanceOf(V, "Unit"))
	188	+	then unit
	189	+	else throw("Match error")
	190	+	}
	191	+	else if ($isInstanceOf(l, "Unit"))
	192	+	then unit
	193	+	else throw("Match error")
	194	+	}
	195	+
	196	+	let aa = valueOrErrorMessage(Z, g("invalid treasury address"))
	197	+
	198	+	func ab (ac,ad) = if ((ac.caller == ad))
169	199		then true
170	200		else i("permission denied")
171	201
172	202
173		-	func Z (X) = W(X, P)
	203	+	func ae (ac) = ab(ac, S)
174	204
175	205
176		-	func aa (ab,ac) = {
177		-	let h = size(ab)
178		-	let ad = ab[0]
179		-	let ae = ad._1
180		-	let af = ad._2
181		-	let ag = ab[1]
182		-	let ah = ag._1
183		-	let ai = ag._2
184		-	let aj = ab[2]
185		-	let ak = aj._1
186		-	let al = aj._2
	206	+	func af (ag,ah) = {
	207	+	let h = size(ag)
	208	+	let ai = ag[0]
	209	+	let aj = ai._1
	210	+	let ak = ai._2
	211	+	let al = ag[1]
	212	+	let am = al._1
	213	+	let an = al._2
	214	+	let ao = ag[2]
	215	+	let ap = ao._1
	216	+	let aq = ao._2
187	217		if (if ((h > 0))
188		-	then (ae == ac)
	218	+	then (aj == ah)
189	219		else false)
190		-	then af
	220	+	then ak
191	221		else if (if ((h > 1))
192		-	then (ah == ac)
	222	+	then (am == ah)
193	223		else false)
194		-	then ai
	224	+	then an
195	225		else if (if ((h > 2))
196		-	then (ak == ac)
	226	+	then (ap == ah)
197	227		else false)
198		-	then al
	228	+	then aq
199	229		else unit
200	230		}
201	231
202	232
203		-	@Callable(X)
204		-	func claimLP (am) = {
205		-	let an = Z(X)
206		-	if ((an == an))
	233	+	@Callable(ac)
	234	+	func claimLP (ar) = {
	235	+	let as = ae(ac)
	236	+	if ((as == as))
207	237		then {
208		-	let s = Address(am)
209		-	let ao = valueOrElse(getInteger(P, r(s)), 0)
210		-	let ap = valueOrElse(getInteger(P, t(s)), 0)
211		-	let aq = if ((ao > 0))
212		-	then [invoke(P, "transferAsset", [am, ao, T], nil), invoke(P, "integerEntry", [r(s), 0], nil), invoke(P, "~~stringEntry~~", [t(s), (ap + ao)], nil)]
	238	+	let v = Address(ar)
	239	+	let at = valueOrElse(getInteger(S, u(v)), 0)
	240	+	let au = valueOrElse(getInteger(S, w(v)), 0)
	241	+	let av = if ((at > 0))
	242	+	then [invoke(S, "transferAsset", [ar, at, W], nil), invoke(S, "integerEntry", [u(v), 0], nil), invoke(S, "integerEntry", [w(v), (au + at)], nil)]
213	243		else i("nothing to claim")
214		-	$Tuple2(nil, aq)
	244	+	$Tuple2(nil, av)
215	245		}
216	246		else throw("Strict value is not equal to itself.")
217	247		}
218	248
219	249
220	250
221		-	@Callable(X)
222		-	func finalize (ar,as,at,au) = {
223		-	let av = [if ((X.originCaller == P))
224		-	then true
225		-	else i("permission denied"), if ((ar >= 0))
226		-	then true
227		-	else i("invalid new treasury volume"), if ((as >= 0))
228		-	then true
229		-	else i("invalid XTN price"), if (if ((at >= 0))
230		-	then (c >= at)
231		-	else false)
232		-	then true
233		-	else i("invalid PWR managers bonus"), if (if ((au >= -(c)))
234		-	then (c >= au)
235		-	else false)
236		-	then true
237		-	else i("invalid treasury volume diff allocation coefficient")]
238		-	if ((av == av))
	251	+	@Callable(ac)
	252	+	func finalize (ar,aw,ax,ay,az) = {
	253	+	let as = ae(ac)
	254	+	if ((as == as))
239	255		then {
240		-	let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
241		-	let ax = (aw + 1)
242		-	let ay = c
243		-	let az = 0
244		-	let aq = [invoke(P, "integerEntry", [u(), ax], nil), invoke(P, "integerEntry", [v(ax), ay], nil), invoke(P, "burn", [az], nil)]
245		-	$Tuple2(nil, aq)
246		-	}
247		-	else throw("Strict value is not equal to itself.")
248		-	}
249		-
250		-
251		-
252		-	@Callable(X)
253		-	func invest (am) = {
254		-	let an = Z(X)
255		-	if ((an == an))
256		-	then {
257		-	let s = Address(am)
258		-	let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
259		-	let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
260		-	let aB = if ((size(X.payments) == 1))
261		-	then X.payments[0]
262		-	else i("invalid payments")
263		-	let aC = if (if ((aB.assetId == unit))
264		-	then (aB.amount > 0)
	256	+	let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
	257	+	let aB = valueOrErrorMessage(getInteger(S, B()), g("invalid period length"))
	258	+	let aC = valueOrErrorMessage(getInteger(S, A(aA)), g("invalid start height"))
	259	+	let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
	260	+	let aE = valueOrErrorMessage(getInteger(S, D()), g("invalid next block to process"))
	261	+	let aF = ((aC + aB) - 1)
	262	+	let aG = [if ((aE > aF))
	263	+	then true
	264	+	else i("unprocessed blocks"), if ((aw >= 0))
	265	+	then true
	266	+	else i("invalid new treasury volume"), if ((ax >= 0))
	267	+	then true
	268	+	else i("invalid XTN price"), if (if ((ay >= 0))
	269	+	then (c >= ay)
265	270		else false)
266		-	then aB.amount
267		-	else i("invalid payment amount")
268		-	let I = if ((aA > 0))
269		-	then fraction(aC, c, aA)
270		-	else 0
271		-	let aD = valueOrElse(getInteger(P, q(unit)), 0)
272		-	let aq = [invoke(P, "integerEntry", [q(unit), (aD + aC)], nil), invoke(P, "reissue", [I], nil), invoke(P, "transferAsset", [am, I, T], nil), invoke(P, "transferWaves", [V.bytes, aC], [AttachedPayment(unit, aC)])]
273		-	$Tuple2(nil, aq)
274		-	}
275		-	else throw("Strict value is not equal to itself.")
276		-	}
277		-
278		-
279		-
280		-	@Callable(X)
281		-	func withdraw (am) = {
282		-	let an = Z(X)
283		-	if ((an == an))
284		-	then {
285		-	let s = Address(am)
286		-	let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
287		-	let aB = if ((size(X.payments) == 1))
288		-	then X.payments[0]
289		-	else i(g("invalid payments"))
290		-	let aE = if ((aB.assetId == T))
291		-	then T
292		-	else i("invalid payment asset")
293		-	let aC = if ((aB.amount > 0))
294		-	then aB.amount
295		-	else i("invalid payment amount")
296		-	let aF = valueOrElse(getInteger(P, D()), 0)
297		-	let aq = [invoke(P, "integerEntry", [D(), (aF + aC)], nil), invoke(P, "stringEntry", [E(s, X.transactionId), G(d, aC, (aw + 1), unit)], nil)]
298		-	if ((aq == aq))
299		-	then $Tuple2([ScriptTransfer(P, aC, aE)], aq)
	271	+	then true
	272	+	else i("invalid PWR managers bonus"), if (if ((az >= -(c)))
	273	+	then (c >= az)
	274	+	else false)
	275	+	then true
	276	+	else i("invalid treasury volume diff allocation coefficient")]
	277	+	if ((aG == aG))
	278	+	then {
	279	+	let aH = valueOrElse(getInteger(S, t(Y)), 0)
	280	+	let aI = valueOrElse(getInteger(S, t(unit)), 0)
	281	+	let aJ = fraction(aH, ax, c)
	282	+	let aK = (aJ + aI)
	283	+	let aL = (aw - aK)
	284	+	let aM = if ((aL > 0))
	285	+	then fraction(aL, ay, c)
	286	+	else 0
	287	+	let aN = (aL - aM)
	288	+	let aO = if ((aK > 0))
	289	+	then fraction(aJ, c, aK)
	290	+	else 0
	291	+	let aP = fraction(aN, aO, c)
	292	+	let aQ = (aN - aP)
	293	+	let aR = n(az)
	294	+	let aS = fraction(aQ, if ((0 > az))
	295	+	then aR
	296	+	else 0, c)
	297	+	let aT = fraction(aP, if ((az > 0))
	298	+	then aR
	299	+	else 0, c)
	300	+	let aU = ((aP - aT) + aS)
	301	+	let aV = ((aQ - aS) + aT)
	302	+	let aW = (aI + aV)
	303	+	let aX = fraction((aJ + aU), c, ax)
	304	+	let aY = (aA + 1)
	305	+	let aZ = valueOrErrorMessage(assetInfo(W), g("invalid lpAsset info")).quantity
	306	+	let ba = fraction(aW, c, aZ)
	307	+	let bb = valueOrElse(getInteger(S, G()), 0)
	308	+	let bc = fraction(bb, ba, c)
	309	+	let bd = if (if (if ((size(ac.payments) == 1))
	310	+	then (ac.payments[0].assetId == unit)
	311	+	else false)
	312	+	then (ac.payments[0].amount >= bc)
	313	+	else false)
	314	+	then true
	315	+	else i(("invalid payments, payment amount min: " + toString(bc)))
	316	+	if ((bd == bd))
	317	+	then {
	318	+	let av = [invoke(S, "integerEntry", [x(), aY], nil), invoke(S, "integerEntry", [y(aY), ba], nil), invoke(S, "burn", [bb], nil), invoke(S, "integerEntry", [G(), 0], nil)]
	319	+	$Tuple2(nil, av)
	320	+	}
	321	+	else throw("Strict value is not equal to itself.")
	322	+	}
300	323		else throw("Strict value is not equal to itself.")
301	324		}
302	325		else throw("Strict value is not equal to itself.")

304	327
305	328
306	329
307		-	@Callable(X)
308		-	func ~~cancelWithdraw~~ (~~am,F~~) = {
309		-	let an = Z(X)
310		-	if ((an == an))
	330	+	@Callable(ac)
	331	+	func invest (ar) = {
	332	+	let as = ae(ac)
	333	+	if ((as == as))
311	334		then {
312		-	let s = Address(am)
313		-	let aG = valueOrErrorMessage(getString(P, E(s, F)), g("invalid withdrawal request"))
314		-	let aH = M(aG)
315		-	let H = aH._1
316		-	let I = aH._2
317		-	let J = aH._3
318		-	let K = aH._4
319		-	if ((H == d))
320		-	then {
321		-	let aF = valueOrErrorMessage(getInteger(P, D()), g("invalid total withdrawal amount"))
322		-	let aq = [invoke(P, "integerEntry", [D(), if ((aF >= I))
323		-	then (aF - I)
324		-	else i("invalid withdrawal amount")], nil), invoke(P, "deleteEntry", [E(s, F)], nil), invoke(P, "transferAsset", [am, I, T], nil)]
325		-	if ((aq == aq))
326		-	then $Tuple2(nil, aq)
327		-	else throw("Strict value is not equal to itself.")
328		-	}
329		-	else i("invalid withdrawal request status")
	335	+	let v = Address(ar)
	336	+	let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
	337	+	let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
	338	+	let be = if ((size(ac.payments) == 1))
	339	+	then ac.payments[0]
	340	+	else i("invalid payments")
	341	+	let bf = if (if ((be.assetId == unit))
	342	+	then (be.amount > 0)
	343	+	else false)
	344	+	then be.amount
	345	+	else i("invalid payment amount")
	346	+	let L = if ((aD > 0))
	347	+	then fraction(bf, c, aD)
	348	+	else 0
	349	+	let bg = valueOrElse(getInteger(S, t(unit)), 0)
	350	+	let av = [invoke(S, "integerEntry", [t(unit), (bg + bf)], nil), invoke(S, "reissue", [L], nil), invoke(S, "transferAsset", [ar, L, W], nil), invoke(S, "transferWaves", [aa.bytes, bf], [AttachedPayment(unit, bf)])]
	351	+	$Tuple2(nil, av)
330	352		}
331	353		else throw("Strict value is not equal to itself.")
332	354		}
333	355
334	356
335	357
336		-	@Callable(X)
337		-	func ~~claimWaves~~ (~~am,F~~) = {
338		-	let an = Z(X)
339		-	if ((an == an))
	358	+	@Callable(ac)
	359	+	func withdraw (ar) = {

Old	New		Differences
1	1		{-# STDLIB_VERSION 7 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = "__"
5	5
6	6		let b = "calculator.ride"
7	7
8	8		let c = 100000000
9	9
10	10		let d = "PENDING"
11	11
12	12		let e = "FINISHED"
13	13
14	14		let f = "WAVES"
15	15
16	16		func g (h) = ((b + ": ") + h)
17	17
18	18
19	19		func i (h) = throw(g(h))
20	20
21	21
22	22		func j (k) = {
23	23		let l = k
24	24		if ($isInstanceOf(l, "ByteVector"))
25	25		then {
26	26		let m = l
27	27		toBase58String(m)
28	28		}
29	29		else if ($isInstanceOf(l, "Unit"))
30	30		then f
31	31		else throw("Match error")
32	32		}
33	33
34	34
35		-	func n () = makeString(["%s", "factory"], a)
	35	+	func n (o) = if ((0 > o))
	36	+	then -(o)
	37	+	else o
36	38
37	39
38		-	func o () = makeString(["%s", "~~lpAssetId~~"], a)
	40	+	func p () = makeString(["%s", "factory"], a)
39	41
40	42
41		-	func p () = makeString(["%s", "~~treasury~~"], a)
	43	+	func q () = makeString(["%s", "lpAssetId"], a)
42	44
43	45
44		-	func q (k) = makeString(["%s%s", "~~invested~~"~~, j(k)~~], a)
	46	+	func r () = makeString(["%s", "xtnAssetId"], a)
45	47
46	48
47		-	func r (s) = makeString(["%s%s", "~~available~~"~~, toString(s)~~], a)
	49	+	func s () = makeString(["%s", "treasury"], a)
48	50
49	51
50		-	func t (s) = makeString(["%s%s", "~~claimed~~", ~~toString~~(s)], a)
	52	+	func t (k) = makeString(["%s%s", "invested", j(k)], a)
51	53
52	54
53		-	func u () = makeString(["%s", "~~currentPeriod~~"], a)
	55	+	func u (v) = makeString(["%s%s", "available", toString(v)], a)
54	56
55	57
56		-	func v (w) = makeString(["%s%d", "~~price~~", toString(w)], a)
	58	+	func w (v) = makeString(["%s%s", "claimed", toString(v)], a)
57	59
58	60
59		-	func x (w) = makeString(["%s%d", "~~startHeight~~"~~, toString(w)~~], a)
	61	+	func x () = makeString(["%s", "currentPeriod"], a)
60	62
61	63
62		-	func y () = "%s~~__periodLength~~"
	64	+	func y (z) = makeString(["%s%d", "price", toString(z)], a)
63	65
64	66
65		-	func z () = "%s~~__blockProcessingReward~~"
	67	+	func A (z) = makeString(["%s%d", "startHeight", toString(z)], a)
66	68
67	69
68		-	func A () = "%s__~~nextBlockToProcess~~"
	70	+	func B () = "%s__periodLength"
69	71
70	72
71		-	func B (C) = ~~makeString([~~"%s%d"~~, "blockProcessed", toString(C)], a)~~
	73	+	func C () = "%s__blockProcessingReward"
72	74
73	75
74		-	func D () = "%s__~~withdrawal~~"
	76	+	func D () = "%s__nextBlockToProcess"
75	77
76	78
77		-	func E (s,F) = makeString(["%s%~~s%s~~", "~~withdrawal~~", toString~~(s), toBase58String~~(F)], a)
	79	+	func E (F) = makeString(["%s%d", "blockProcessed", toString(F)], a)
78	80
79	81
80		-	func G (H,I,J,K) = {
81		-	let L = {
82		-	let l = K
	82	+	func G () = "%s__withdrawal"
	83	+
	84	+
	85	+	func H (v,I) = makeString(["%s%s%s", "withdrawal", toString(v), toBase58String(I)], a)
	86	+
	87	+
	88	+	func J (K,L,M,N) = {
	89	+	let O = {
	90	+	let l = N
83	91		if ($isInstanceOf(l, "ByteVector"))
84	92		then {
85	93		let m = l
86	94		toBase58String(m)
87	95		}
88	96		else if ($isInstanceOf(l, "Unit"))
89	97		then "SOON"
90	98		else throw("Match error")
91	99		}
92		-	makeString(["%s%d%d%s", H, toString(I), toString(J), L], a)
	100	+	makeString(["%s%d%d%s", K, toString(L), toString(M), O], a)
93	101		}
94	102
95	103
96		-	func M (h) = {
97		-	let N = split(h, a)
98		-	if ((size(N) == 5))
	104	+	func P (h) = {
	105	+	let Q = split(h, a)
	106	+	if ((size(Q) == 5))
99	107		then {
100		-	let H = N[1]
101		-	let I = valueOrErrorMessage(parseInt(N[2]), g("invalid lpAssetAmount"))
102		-	let J = valueOrErrorMessage(parseInt(N[3]), g("invalid targetPeriod"))
103		-	let K = N[4]
104		-	$Tuple4(H, I, J, K)
	108	+	let K = Q[1]
	109	+	let L = valueOrErrorMessage(parseInt(Q[2]), g("invalid lpAssetAmount"))
	110	+	let M = valueOrErrorMessage(parseInt(Q[3]), g("invalid targetPeriod"))
	111	+	let N = Q[4]
	112	+	$Tuple4(K, L, M, N)
105	113		}
106	114		else i("invalid withdrawal request value")
107	115		}
108	116
109	117
110		-	let O = {
111		-	let l = getString(this, n())
	118	+	let R = {
	119	+	let l = getString(this, p())
112	120		if ($isInstanceOf(l, "String"))
113	121		then {
114	122		let h = l
115	123		addressFromString(h)
116	124		}
117	125		else if ($isInstanceOf(l, "Unit"))
118	126		then unit
119	127		else throw("Match error")
120	128		}
121	129
122		-	let P = valueOrErrorMessage(O, g("invalid factory address"))
	130	+	let S = valueOrErrorMessage(R, g("invalid factory address"))
123	131
124		-	let Q = {
125		-	let l = O
	132	+	let T = {
	133	+	let l = R
126	134		if ($isInstanceOf(l, "Address"))
127	135		then {
128		-	let R = l
129		-	let S = getString(R, o())
130		-	if ($isInstanceOf(S, "String"))
	136	+	let U = l
	137	+	let V = getString(U, q())
	138	+	if ($isInstanceOf(V, "String"))
131	139		then {
132		-	let h = S
	140	+	let h = V
133	141		fromBase58String(h)
134	142		}
135		-	else if ($isInstanceOf(S, "Unit"))
	143	+	else if ($isInstanceOf(V, "Unit"))
136	144		then unit
137	145		else throw("Match error")
138	146		}
139	147		else if ($isInstanceOf(l, "Unit"))
140	148		then unit
141	149		else throw("Match error")
142	150		}
143	151
144		-	let T = valueOrErrorMessage(Q, g("invalid lpAssetId"))
	152	+	let W = valueOrErrorMessage(T, g("invalid lpAssetId"))
145	153
146		-	let U = {
147		-	let l = O
	154	+	let X = {
	155	+	let l = R
148	156		if ($isInstanceOf(l, "Address"))
149	157		then {
150		-	let R = l
151		-	let S = getString(R, p())
152		-	if ($isInstanceOf(S, "String"))
	158	+	let U = l
	159	+	let V = getString(U, r())
	160	+	if ($isInstanceOf(V, "String"))
153	161		then {
154		-	let h = S
155		-	~~addressFromString~~(h)
	162	+	let h = V
	163	+	fromBase58String(h)
156	164		}
157		-	else if ($isInstanceOf(S, "Unit"))
	165	+	else if ($isInstanceOf(V, "Unit"))
158	166		then unit
159	167		else throw("Match error")
160	168		}
161	169		else if ($isInstanceOf(l, "Unit"))
162	170		then unit
163	171		else throw("Match error")
164	172		}
165	173
166		-	let V = valueOrErrorMessage(U, g("invalid ~~treasury address~~"))
	174	+	let Y = valueOrErrorMessage(X, g("invalid xtnAssetId"))
167	175
168		-	func W (X,Y) = if ((X.caller == Y))
	176	+	let Z = {
	177	+	let l = R
	178	+	if ($isInstanceOf(l, "Address"))
	179	+	then {
	180	+	let U = l
	181	+	let V = getString(U, s())
	182	+	if ($isInstanceOf(V, "String"))
	183	+	then {
	184	+	let h = V
	185	+	addressFromString(h)
	186	+	}
	187	+	else if ($isInstanceOf(V, "Unit"))
	188	+	then unit
	189	+	else throw("Match error")
	190	+	}
	191	+	else if ($isInstanceOf(l, "Unit"))
	192	+	then unit
	193	+	else throw("Match error")
	194	+	}
	195	+
	196	+	let aa = valueOrErrorMessage(Z, g("invalid treasury address"))
	197	+
	198	+	func ab (ac,ad) = if ((ac.caller == ad))
169	199		then true
170	200		else i("permission denied")
171	201
172	202
173		-	func Z (X) = W(X, P)
	203	+	func ae (ac) = ab(ac, S)
174	204
175	205
176		-	func aa (ab,ac) = {
177		-	let h = size(ab)
178		-	let ad = ab[0]
179		-	let ae = ad._1
180		-	let af = ad._2
181		-	let ag = ab[1]
182		-	let ah = ag._1
183		-	let ai = ag._2
184		-	let aj = ab[2]
185		-	let ak = aj._1
186		-	let al = aj._2
	206	+	func af (ag,ah) = {
	207	+	let h = size(ag)
	208	+	let ai = ag[0]
	209	+	let aj = ai._1
	210	+	let ak = ai._2
	211	+	let al = ag[1]
	212	+	let am = al._1
	213	+	let an = al._2
	214	+	let ao = ag[2]
	215	+	let ap = ao._1
	216	+	let aq = ao._2
187	217		if (if ((h > 0))
188		-	then (ae == ac)
	218	+	then (aj == ah)
189	219		else false)
190		-	then af
	220	+	then ak
191	221		else if (if ((h > 1))
192		-	then (ah == ac)
	222	+	then (am == ah)
193	223		else false)
194		-	then ai
	224	+	then an
195	225		else if (if ((h > 2))
196		-	then (ak == ac)
	226	+	then (ap == ah)
197	227		else false)
198		-	then al
	228	+	then aq
199	229		else unit
200	230		}
201	231
202	232
203		-	@Callable(X)
204		-	func claimLP (am) = {
205		-	let an = Z(X)
206		-	if ((an == an))
	233	+	@Callable(ac)
	234	+	func claimLP (ar) = {
	235	+	let as = ae(ac)
	236	+	if ((as == as))
207	237		then {
208		-	let s = Address(am)
209		-	let ao = valueOrElse(getInteger(P, r(s)), 0)
210		-	let ap = valueOrElse(getInteger(P, t(s)), 0)
211		-	let aq = if ((ao > 0))
212		-	then [invoke(P, "transferAsset", [am, ao, T], nil), invoke(P, "integerEntry", [r(s), 0], nil), invoke(P, "~~stringEntry~~", [t(s), (ap + ao)], nil)]
	238	+	let v = Address(ar)
	239	+	let at = valueOrElse(getInteger(S, u(v)), 0)
	240	+	let au = valueOrElse(getInteger(S, w(v)), 0)
	241	+	let av = if ((at > 0))
	242	+	then [invoke(S, "transferAsset", [ar, at, W], nil), invoke(S, "integerEntry", [u(v), 0], nil), invoke(S, "integerEntry", [w(v), (au + at)], nil)]
213	243		else i("nothing to claim")
214		-	$Tuple2(nil, aq)
	244	+	$Tuple2(nil, av)
215	245		}
216	246		else throw("Strict value is not equal to itself.")
217	247		}
218	248
219	249
220	250
221		-	@Callable(X)
222		-	func finalize (ar,as,at,au) = {
223		-	let av = [if ((X.originCaller == P))
224		-	then true
225		-	else i("permission denied"), if ((ar >= 0))
226		-	then true
227		-	else i("invalid new treasury volume"), if ((as >= 0))
228		-	then true
229		-	else i("invalid XTN price"), if (if ((at >= 0))
230		-	then (c >= at)
231		-	else false)
232		-	then true
233		-	else i("invalid PWR managers bonus"), if (if ((au >= -(c)))
234		-	then (c >= au)
235		-	else false)
236		-	then true
237		-	else i("invalid treasury volume diff allocation coefficient")]
238		-	if ((av == av))
	251	+	@Callable(ac)
	252	+	func finalize (ar,aw,ax,ay,az) = {
	253	+	let as = ae(ac)
	254	+	if ((as == as))
239	255		then {
240		-	let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
241		-	let ax = (aw + 1)
242		-	let ay = c
243		-	let az = 0
244		-	let aq = [invoke(P, "integerEntry", [u(), ax], nil), invoke(P, "integerEntry", [v(ax), ay], nil), invoke(P, "burn", [az], nil)]
245		-	$Tuple2(nil, aq)
246		-	}
247		-	else throw("Strict value is not equal to itself.")
248		-	}
249		-
250		-
251		-
252		-	@Callable(X)
253		-	func invest (am) = {
254		-	let an = Z(X)
255		-	if ((an == an))
256		-	then {
257		-	let s = Address(am)
258		-	let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
259		-	let aA = valueOrErrorMessage(getInteger(P, v(aw)), g("invalid price"))
260		-	let aB = if ((size(X.payments) == 1))
261		-	then X.payments[0]
262		-	else i("invalid payments")
263		-	let aC = if (if ((aB.assetId == unit))
264		-	then (aB.amount > 0)
	256	+	let aA = valueOrErrorMessage(getInteger(S, x()), g("invalid period"))
	257	+	let aB = valueOrErrorMessage(getInteger(S, B()), g("invalid period length"))
	258	+	let aC = valueOrErrorMessage(getInteger(S, A(aA)), g("invalid start height"))
	259	+	let aD = valueOrErrorMessage(getInteger(S, y(aA)), g("invalid price"))
	260	+	let aE = valueOrErrorMessage(getInteger(S, D()), g("invalid next block to process"))
	261	+	let aF = ((aC + aB) - 1)
	262	+	let aG = [if ((aE > aF))
	263	+	then true
	264	+	else i("unprocessed blocks"), if ((aw >= 0))
	265	+	then true
	266	+	else i("invalid new treasury volume"), if ((ax >= 0))
	267	+	then true
	268	+	else i("invalid XTN price"), if (if ((ay >= 0))
	269	+	then (c >= ay)
265	270		else false)
266		-	then aB.amount
267		-	else i("invalid payment amount")
268		-	let I = if ((aA > 0))
269		-	then fraction(aC, c, aA)
270		-	else 0
271		-	let aD = valueOrElse(getInteger(P, q(unit)), 0)
272		-	let aq = [invoke(P, "integerEntry", [q(unit), (aD + aC)], nil), invoke(P, "reissue", [I], nil), invoke(P, "transferAsset", [am, I, T], nil), invoke(P, "transferWaves", [V.bytes, aC], [AttachedPayment(unit, aC)])]
273		-	$Tuple2(nil, aq)
274		-	}
275		-	else throw("Strict value is not equal to itself.")
276		-	}
277		-
278		-
279		-
280		-	@Callable(X)
281		-	func withdraw (am) = {
282		-	let an = Z(X)
283		-	if ((an == an))
284		-	then {
285		-	let s = Address(am)
286		-	let aw = valueOrErrorMessage(getInteger(P, u()), g("invalid period"))
287		-	let aB = if ((size(X.payments) == 1))
288		-	then X.payments[0]
289		-	else i(g("invalid payments"))
290		-	let aE = if ((aB.assetId == T))
291		-	then T
292		-	else i("invalid payment asset")
293		-	let aC = if ((aB.amount > 0))
294		-	then aB.amount
295		-	else i("invalid payment amount")
296		-	let aF = valueOrElse(getInteger(P, D()), 0)
297		-	let aq = [invoke(P, "integerEntry", [D(), (aF + aC)], nil), invoke(P, "stringEntry", [E(s, X.transactionId), G(d, aC, (aw + 1), unit)], nil)]
298		-	if ((aq == aq))
299		-	then $Tuple2([ScriptTransfer(P, aC, aE)], aq)
	271	+	then true
	272	+	else i("invalid PWR managers bonus"), if (if ((az >= -(c)))
	273	+	then (c >= az)
	274	+	else false)
	275	+	then true
	276	+	else i("invalid treasury volume diff allocation coefficient")]
	277	+	if ((aG == aG))
	278	+	then {
	279	+	let aH = valueOrElse(getInteger(S, t(Y)), 0)
	280	+	let aI = valueOrElse(getInteger(S, t(unit)), 0)
	281	+	let aJ = fraction(aH, ax, c)
	282	+	let aK = (aJ + aI)
	283	+	let aL = (aw - aK)
	284	+	let aM = if ((aL > 0))
	285	+	then fraction(aL, ay, c)
	286	+	else 0
	287	+	let aN = (aL - aM)
	288	+	let aO = if ((aK > 0))
	289	+	then fraction(aJ, c, aK)
	290	+	else 0
	291	+	let aP = fraction(aN, aO, c)
	292	+	let aQ = (aN - aP)
	293	+	let aR = n(az)
	294	+	let aS = fraction(aQ, if ((0 > az))
	295	+	then aR
	296	+	else 0, c)
	297	+	let aT = fraction(aP, if ((az > 0))
	298	+	then aR
	299	+	else 0, c)
	300	+	let aU = ((aP - aT) + aS)
	301	+	let aV = ((aQ - aS) + aT)
	302	+	let aW = (aI + aV)
	303	+	let aX = fraction((aJ + aU), c, ax)
	304	+	let aY = (aA + 1)
	305	+	let aZ = valueOrErrorMessage(assetInfo(W), g("invalid lpAsset info")).quantity
	306	+	let ba = fraction(aW, c, aZ)
	307	+	let bb = valueOrElse(getInteger(S, G()), 0)
	308	+	let bc = fraction(bb, ba, c)
	309	+	let bd = if (if (if ((size(ac.payments) == 1))
	310	+	then (ac.payments[0].assetId == unit)
	311	+	else false)
	312	+	then (ac.payments[0].amount >= bc)
	313	+	else false)
	314	+	then true
	315	+	else i(("invalid payments, payment amount min: " + toString(bc)))
	316	+	if ((bd == bd))
	317	+	then {
	318	+	let av = [invoke(S, "integerEntry", [x(), aY], nil), invoke(S, "integerEntry", [y(aY), ba], nil), invoke(S, "burn", [bb], nil), invoke(S, "integerEntry", [G(), 0], nil)]
	319	+	$Tuple2(nil, av)
	320	+	}
	321	+	else throw("Strict value is not equal to itself.")
	322	+	}
300	323		else throw("Strict value is not equal to itself.")
301	324		}
302	325		else throw("Strict value is not equal to itself.")
303	326		}
304	327
305	328
306	329
307		-	@Callable(X)
308		-	func ~~cancelWithdraw~~ (~~am,F~~) = {
309		-	let an = Z(X)
310		-	if ((an == an))
	330	+	@Callable(ac)
	331	+	func invest (ar) = {
	332	+	let as = ae(ac)
	333	+	if ((as == as))
311	334		then {
312		-	let s = Address(am)
313		-	let aG = valueOrErrorMessage(getString(P, E(s, F)), g("invalid withdrawal request"))
314		-	let aH = M(aG)
315		-	let H = aH._1
316		-	let I = aH._2
317		-	let J = aH._3
318		-	let K = aH._4
319		-	if ((H == d))
320		-	then {

github/deemru/w8io/026f985 
177.02 ms ◑