w8 · tx · HhK···Yht

tx · HhKNyXaTEfB9NFUSwjYCwTkFkx1F9pTvVgiKFeQ6dYht

3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP:  -0.01900000 Waves

2023.06.22 12:30 [2633664] smart account 3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HhKNyXaTEfB9NFUSwjYCwTkFkx1F9pTvVgiKFeQ6dYht",
    "fee": 1900000,
    "feeAssetId": null,
    "timestamp": 1687426281608,
    "version": 2,
    "chainId": 84,
    "sender": "3N6HSS7Toat1RhyEsyqVGgVSRzH19W1FTbP",
    "senderPublicKey": "AoKo4segKHU4DeJnxXQYJj2u7J6XJeux6r8KLW52cd2Q",
    "proofs": [
        "4CT3v2zqAS6ViczAr78Y7XNaHtka7ZZ1DJuRMWrh8MbxBpgSZGRQWEv6Z95NxcZGEq5w66bgfBygsUbuEiChaz6P"
    ],
    "script": "base64:BwIrCAISAwoBAhIHCgUCAQEBARIDCgECEgMKAQISBAoCAgISBAoCAgISAwoBAikAA1NFUAICX18ADUNPTlRSQUNUX05BTUUCD2NhbGN1bGF0b3IucmlkZQAGU0NBTEU4AIDC1y8AB1BFTkRJTkcCB1BFTkRJTkcACEZJTklTSEVEAghGSU5JU0hFRAAFV0FWRVMCBVdBVkVTAA13YXZlc0RlY2ltYWxzAAgAC3h0bkRlY2ltYWxzAAYBB3dyYXBFcnIBAXMJAKwCAgkArAICBQ1DT05UUkFDVF9OQU1FAgI6IAUBcwEIdGhyb3dFcnIBAXMJAAIBCQEHd3JhcEVycgEFAXMBD2Fzc2V0SWRUb1N0cmluZwEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAUFV0FWRVMJAAIBAgtNYXRjaCBlcnJvcgEDYWJzAQFuAwkAZgIAAAUBbgkBAS0BBQFuBQFuARFrZXlGYWN0b3J5QWRkcmVzcwAJALkJAgkAzAgCAgIlcwkAzAgCAgdmYWN0b3J5BQNuaWwFA1NFUAEMa2V5THBBc3NldElkAAkAuQkCCQDMCAICAiVzCQDMCAICCWxwQXNzZXRJZAUDbmlsBQNTRVABDWtleVh0bkFzc2V0SWQACQC5CQIJAMwIAgICJXMJAMwIAgIKeHRuQXNzZXRJZAUDbmlsBQNTRVABEmtleVRyZWFzdXJ5QWRkcmVzcwAJALkJAgkAzAgCAgIlcwkAzAgCAgh0cmVhc3VyeQUDbmlsBQNTRVABC2tleUludmVzdGVkAQdhc3NldElkCQC5CQIJAMwIAgIEJXMlcwkAzAgCAghpbnZlc3RlZAkAzAgCCQEPYXNzZXRJZFRvU3RyaW5nAQUHYXNzZXRJZAUDbmlsBQNTRVABDGtleUF2YWlsYWJsZQELdXNlckFkZHJlc3MJALkJAgkAzAgCAgQlcyVzCQDMCAICCWF2YWlsYWJsZQkAzAgCCQClCAEFC3VzZXJBZGRyZXNzBQNuaWwFA1NFUAEKa2V5Q2xhaW1lZAELdXNlckFkZHJlc3MJALkJAgkAzAgCAgQlcyVzCQDMCAICB2NsYWltZWQJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwUDbmlsBQNTRVABEGtleUN1cnJlbnRQZXJpb2QACQC5CQIJAMwIAgICJXMJAMwIAgINY3VycmVudFBlcmlvZAUDbmlsBQNTRVABEWtleVByaWNlRm9yUGVyaW9kAQZwZXJpb2QJALkJAgkAzAgCAgQlcyVkCQDMCAICBXByaWNlCQDMCAIJAKQDAQUGcGVyaW9kBQNuaWwFA1NFUAEOa2V5U3RhcnRIZWlnaHQBBnBlcmlvZAkAuQkCCQDMCAICBCVzJWQJAMwIAgILc3RhcnRIZWlnaHQJAMwIAgkApAMBBQZwZXJpb2QFA25pbAUDU0VQAQ9rZXlQZXJpb2RMZW5ndGgAAhAlc19fcGVyaW9kTGVuZ3RoARhrZXlCbG9ja1Byb2Nlc3NpbmdSZXdhcmQAAhklc19fYmxvY2tQcm9jZXNzaW5nUmV3YXJkARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MAAhYlc19fbmV4dEJsb2NrVG9Qcm9jZXNzARFrZXlCbG9ja1Byb2Nlc3NlZAEGaGVpZ2h0CQC5CQIJAMwIAgIEJXMlZAkAzAgCAg5ibG9ja1Byb2Nlc3NlZAkAzAgCCQCkAwEFBmhlaWdodAUDbmlsBQNTRVABDWtleVdpdGhkcmF3YWwAAg4lc19fd2l0aGRyYXdhbAEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCC3VzZXJBZGRyZXNzBHR4SWQJALkJAgkAzAgCAgYlcyVzJXMJAMwIAgIKd2l0aGRyYXdhbAkAzAgCCQClCAEFC3VzZXJBZGRyZXNzCQDMCAIJANgEAQUEdHhJZAUDbmlsBQNTRVABFnZhbHVlV2l0aGRyYXdhbFJlcXVlc3QEBnN0YXR1cw1scEFzc2V0QW1vdW50DHRhcmdldFBlcmlvZAljbGFpbVR4SWQEDGNsYWltVHhJZFN0cgQHJG1hdGNoMAUJY2xhaW1UeElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgMJAAECBQckbWF0Y2gwAgRVbml0AgRTT09OCQACAQILTWF0Y2ggZXJyb3IJALkJAgkAzAgCAgglcyVkJWQlcwkAzAgCBQZzdGF0dXMJAMwIAgkApAMBBQ1scEFzc2V0QW1vdW50CQDMCAIJAKQDAQUMdGFyZ2V0UGVyaW9kCQDMCAIFDGNsYWltVHhJZFN0cgUDbmlsBQNTRVABIXBhcnNlV2l0aGRyYXdhbFJlcXVlc3RWYWx1ZU9yRmFpbAEBcwQFcGFydHMJALUJAgUBcwUDU0VQAwkAAAIJAJADAQUFcGFydHMABQQGc3RhdHVzCQCRAwIFBXBhcnRzAAEEDWxwQXNzZXRBbW91bnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFBXBhcnRzAAIJAQd3cmFwRXJyAQIVaW52YWxpZCBscEFzc2V0QW1vdW50BAx0YXJnZXRQZXJpb2QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFBXBhcnRzAAMJAQd3cmFwRXJyAQIUaW52YWxpZCB0YXJnZXRQZXJpb2QECWNsYWltVHhJZAkAkQMCBQVwYXJ0cwAECQCWCgQFBnN0YXR1cwUNbHBBc3NldEFtb3VudAUMdGFyZ2V0UGVyaW9kBQljbGFpbVR4SWQJAQh0aHJvd0VycgECIGludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHZhbHVlABRmYWN0b3J5QWRkcmVzc09wdGlvbgQHJG1hdGNoMAkAnQgCBQR0aGlzCQERa2V5RmFjdG9yeUFkZHJlc3MAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkApggBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAUZmFjdG9yeUFkZHJlc3NPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUUZmFjdG9yeUFkZHJlc3NPcHRpb24JAQd3cmFwRXJyAQIXaW52YWxpZCBmYWN0b3J5IGFkZHJlc3MAD2xwQXNzZXRJZE9wdGlvbgQHJG1hdGNoMAUUZmFjdG9yeUFkZHJlc3NPcHRpb24DCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAQHJG1hdGNoMQkAnQgCBQFhCQEMa2V5THBBc3NldElkAAMJAAECBQckbWF0Y2gxAgZTdHJpbmcEAXMFByRtYXRjaDEJANkEAQUBcwMJAAECBQckbWF0Y2gxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAA9scEFzc2V0SWRPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUPbHBBc3NldElkT3B0aW9uCQEHd3JhcEVycgECEWludmFsaWQgbHBBc3NldElkABB4dG5Bc3NldElkT3B0aW9uBAckbWF0Y2gwBRRmYWN0b3J5QWRkcmVzc09wdGlvbgMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAFhBQckbWF0Y2gwBAckbWF0Y2gxCQCdCAIFAWEJAQ1rZXlYdG5Bc3NldElkAAMJAAECBQckbWF0Y2gxAgZTdHJpbmcEAXMFByRtYXRjaDEJANkEAQUBcwMJAAECBQckbWF0Y2gxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yABB4dG5Bc3NldElkT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFEHh0bkFzc2V0SWRPcHRpb24JAQd3cmFwRXJyAQISaW52YWxpZCB4dG5Bc3NldElkABV0cmVhc3VyeUFkZHJlc3NPcHRpb24EByRtYXRjaDAFFGZhY3RvcnlBZGRyZXNzT3B0aW9uAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAEByRtYXRjaDEJAJ0IAgUBYQkBEmtleVRyZWFzdXJ5QWRkcmVzcwADCQABAgUHJG1hdGNoMQIGU3RyaW5nBAFzBQckbWF0Y2gxCQCmCAEFAXMDCQABAgUHJG1hdGNoMQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgAVdHJlYXN1cnlBZGRyZXNzT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFXRyZWFzdXJ5QWRkcmVzc09wdGlvbgkBB3dyYXBFcnIBAhhpbnZhbGlkIHRyZWFzdXJ5IGFkZHJlc3MBC29ubHlBZGRyZXNzAgFpB2FkZHJlc3MDCQAAAggFAWkGY2FsbGVyBQdhZGRyZXNzBgkBCHRocm93RXJyAQIRcGVybWlzc2lvbiBkZW5pZWQBC29ubHlGYWN0b3J5AQFpCQELb25seUFkZHJlc3MCBQFpBRRmYWN0b3J5QWRkcmVzc09yRmFpbAEPcmV3YXJkRm9yT3B0aW9uAgdyZXdhcmRzBnRhcmdldAQBcwkAkAMBBQdyZXdhcmRzBAskdDA0MTE1NDE0MAkAkQMCBQdyZXdhcmRzAAAEAmEwCAULJHQwNDExNTQxNDACXzEEAnIwCAULJHQwNDExNTQxNDACXzIECyR0MDQxNDM0MTY4CQCRAwIFB3Jld2FyZHMAAQQCYTEIBQskdDA0MTQzNDE2OAJfMQQCcjEIBQskdDA0MTQzNDE2OAJfMgQLJHQwNDE3MTQxOTYJAJEDAgUHcmV3YXJkcwACBAJhMggFCyR0MDQxNzE0MTk2Al8xBAJyMggFCyR0MDQxNzE0MTk2Al8yAwMJAGYCBQFzAAAJAAACBQJhMAUGdGFyZ2V0BwUCcjADAwkAZgIFAXMAAQkAAAIFAmExBQZ0YXJnZXQHBQJyMQMDCQBmAgUBcwACCQAAAgUCYTIFBnRhcmdldAcFAnIyBQR1bml0BwFpAQdjbGFpbUxQARB1c2VyQWRkcmVzc0J5dGVzBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEC3VzZXJBZGRyZXNzCQEHQWRkcmVzcwEFEHVzZXJBZGRyZXNzQnl0ZXMECWF2YWlsYWJsZQkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDGtleUF2YWlsYWJsZQEFC3VzZXJBZGRyZXNzAAAEB2NsYWltZWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQprZXlDbGFpbWVkAQULdXNlckFkZHJlc3MAAAQOZmFjdG9yeUFjdGlvbnMDCQBmAgUJYXZhaWxhYmxlAAAJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAINdHJhbnNmZXJBc3NldAkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFCWF2YWlsYWJsZQkAzAgCBQ9scEFzc2V0SWRPckZhaWwFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQEMa2V5QXZhaWxhYmxlAQULdXNlckFkZHJlc3MJAMwIAgAABQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBCmtleUNsYWltZWQBBQt1c2VyQWRkcmVzcwkAzAgCCQBkAgUHY2xhaW1lZAUJYXZhaWxhYmxlBQNuaWwFA25pbAUDbmlsCQEIdGhyb3dFcnIBAhBub3RoaW5nIHRvIGNsYWltCQCUCgIFA25pbAUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIZmluYWxpemUFEHVzZXJBZGRyZXNzQnl0ZXMYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzCHh0blByaWNlEHB3ck1hbmFnZXJzQm9udXMgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEPa2V5UGVyaW9kTGVuZ3RoAAkBB3dyYXBFcnIBAhVpbnZhbGlkIHBlcmlvZCBsZW5ndGgEEmN1cnJlbnRTdGFydEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEOa2V5U3RhcnRIZWlnaHQBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgc3RhcnQgaGVpZ2h0BBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBBJuZXh0QmxvY2tUb1Byb2Nlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAQd3cmFwRXJyAQIdaW52YWxpZCBuZXh0IGJsb2NrIHRvIHByb2Nlc3MED3BlcmlvZEVuZEhlaWdodAkAZQIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAABBAZjaGVja3MJAMwIAgMJAAACCAUBaQxvcmlnaW5DYWxsZXIFFXRyZWFzdXJ5QWRkcmVzc09yRmFpbAYJAQh0aHJvd0VycgECEXBlcm1pc3Npb24gZGVuaWVkCQDMCAIDCQBmAgUSbmV4dEJsb2NrVG9Qcm9jZXNzBQ9wZXJpb2RFbmRIZWlnaHQGCQEIdGhyb3dFcnIBAhJ1bnByb2Nlc3NlZCBibG9ja3MJAMwIAgMJAGcCBRhuZXdUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAYJAQh0aHJvd0VycgECG2ludmFsaWQgbmV3IHRyZWFzdXJ5IHZvbHVtZQkAzAgCAwkAZwIFCHh0blByaWNlAAAGCQEIdGhyb3dFcnIBAhFpbnZhbGlkIFhUTiBwcmljZQkAzAgCAwMJAGcCBRBwd3JNYW5hZ2Vyc0JvbnVzAAAJAGcCBQZTQ0FMRTgFEHB3ck1hbmFnZXJzQm9udXMHBgkBCHRocm93RXJyAQIaaW52YWxpZCBQV1IgbWFuYWdlcnMgYm9udXMJAMwIAgMDCQBnAgUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYJAQEtAQUGU0NBTEU4CQBnAgUGU0NBTEU4BSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgcGCQEIdGhyb3dFcnIBAjNpbnZhbGlkIHRyZWFzdXJ5IHZvbHVtZSBkaWZmIGFsbG9jYXRpb24gY29lZmZpY2llbnQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQRaW52ZXN0ZWRYdG5BbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQtrZXlJbnZlc3RlZAEFEHh0bkFzc2V0SWRPckZhaWwAAAQTaW52ZXN0ZWRXYXZlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBC2tleUludmVzdGVkAQUEdW5pdAAABBhpbnZlc3RlZFh0bkFtb3VudEluV2F2ZXMJAGsDBRFpbnZlc3RlZFh0bkFtb3VudAkAaAIFCHh0blByaWNlBQ13YXZlc0RlY2ltYWxzCQBoAgUGU0NBTEU4BQt4dG5EZWNpbWFscwQcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwkAZAIFGGludmVzdGVkWHRuQW1vdW50SW5XYXZlcwUTaW52ZXN0ZWRXYXZlc0Ftb3VudAQJcHJvZml0UmF3CQBlAgUYbmV3VHJlYXN1cnlWb2x1bWVJbldhdmVzBRxjdXJyZW50VHJlYXN1cnlWb2x1bWVJbldhdmVzBBZwd3JNYW5hZ2Vyc0JvbnVzQW1vdW50AwkAZgIFCXByb2ZpdFJhdwAACQBrAwUJcHJvZml0UmF3BRBwd3JNYW5hZ2Vyc0JvbnVzBQZTQ0FMRTgAAAQGcHJvZml0CQBlAgUJcHJvZml0UmF3BRZwd3JNYW5hZ2Vyc0JvbnVzQW1vdW50BAxkb25hdGlvblBhcnQDCQBmAgUcY3VycmVudFRyZWFzdXJ5Vm9sdW1lSW5XYXZlcwAACQBrAwUYaW52ZXN0ZWRYdG5BbW91bnRJbldhdmVzBQZTQ0FMRTgFHGN1cnJlbnRUcmVhc3VyeVZvbHVtZUluV2F2ZXMAAAQVZG9uYXRpb25Qcm9maXRQYXJ0UmF3CQBrAwUGcHJvZml0BQxkb25hdGlvblBhcnQFBlNDQUxFOAQXaW52ZXN0bWVudFByb2ZpdFBhcnRSYXcJAGUCBQZwcm9maXQFFWRvbmF0aW9uUHJvZml0UGFydFJhdwQjdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWZBYnMJAQNhYnMBBSB0cmVhc3VyeVZvbHVtZURpZmZBbGxvY2F0aW9uQ29lZgQQYW1vdW50VG9Eb25hdGlvbgkAawMFF2ludmVzdG1lbnRQcm9maXRQYXJ0UmF3AwkAZgIAAAUgdHJlYXN1cnlWb2x1bWVEaWZmQWxsb2NhdGlvbkNvZWYFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSYW1vdW50VG9JbnZlc3RtZW50CQBrAwUVZG9uYXRpb25Qcm9maXRQYXJ0UmF3AwkAZgIFIHRyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmAAAFI3RyZWFzdXJ5Vm9sdW1lRGlmZkFsbG9jYXRpb25Db2VmQWJzAAAFBlNDQUxFOAQSZG9uYXRpb25Qcm9maXRQYXJ0CQBkAgkAZQIFFWRvbmF0aW9uUHJvZml0UGFydFJhdwUSYW1vdW50VG9JbnZlc3RtZW50BRBhbW91bnRUb0RvbmF0aW9uBBRpbnZlc3RtZW50UHJvZml0UGFydAkAZAIJAGUCBRdpbnZlc3RtZW50UHJvZml0UGFydFJhdwUQYW1vdW50VG9Eb25hdGlvbgUSYW1vdW50VG9JbnZlc3RtZW50BBZpbnZlc3RlZFdhdmVzQW1vdW50TmV3CQBkAgUTaW52ZXN0ZWRXYXZlc0Ftb3VudAUUaW52ZXN0bWVudFByb2ZpdFBhcnQEFGludmVzdGVkWHRuQW1vdW50TmV3CQBrAwkAZAIFGGludmVzdGVkWHRuQW1vdW50SW5XYXZlcwUSZG9uYXRpb25Qcm9maXRQYXJ0CQBoAgUGU0NBTEU4BQt4dG5EZWNpbWFscwkAaAIFCHh0blByaWNlBQ13YXZlc0RlY2ltYWxzBAluZXdQZXJpb2QJAGQCBRNjdXJyZW50UGVyaW9kT3JGYWlsAAEED2xwQXNzZXRRdWFudGl0eQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQ9scEFzc2V0SWRPckZhaWwJAQd3cmFwRXJyAQIUaW52YWxpZCBscEFzc2V0IGluZm8IcXVhbnRpdHkECG5ld1ByaWNlCQBrAwUWaW52ZXN0ZWRXYXZlc0Ftb3VudE5ldwUGU0NBTEU4BQ9scEFzc2V0UXVhbnRpdHkEE2xwQXNzZXRBbW91bnRUb0J1cm4JAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQ1rZXlXaXRoZHJhd2FsAAAABBBwYXltZW50QW1vdW50TWluCQBrAwUTbHBBc3NldEFtb3VudFRvQnVybgUIbmV3UHJpY2UFBlNDQUxFOAQSY2hlY2tQYXltZW50QW1vdW50AwMJAAACBRBwYXltZW50QW1vdW50TWluAAAGAwMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAAACCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQHCQBnAggJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFEHBheW1lbnRBbW91bnRNaW4HBgkBCHRocm93RXJyAQkArAICAiZpbnZhbGlkIHBheW1lbnRzLCBwYXltZW50IGFtb3VudCBtaW46IAkApAMBBRBwYXltZW50QW1vdW50TWluAwkAAAIFEmNoZWNrUGF5bWVudEFtb3VudAUSY2hlY2tQYXltZW50QW1vdW50BA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBEGtleUN1cnJlbnRQZXJpb2QACQDMCAIFCW5ld1BlcmlvZAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARFrZXlQcmljZUZvclBlcmlvZAEFCW5ld1BlcmlvZAkAzAgCBQhuZXdQcmljZQUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ5rZXlTdGFydEhlaWdodAEFCW5ld1BlcmlvZAkAzAgCCQBkAgUPcGVyaW9kRW5kSGVpZ2h0AAEFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCBGJ1cm4JAMwIAgUTbHBBc3NldEFtb3VudFRvQnVybgUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCAAAFA25pbAUDbmlsBQNuaWwJAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQZpbnZlc3QBEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEEmN1cnJlbnRQcmljZU9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQERa2V5UHJpY2VGb3JQZXJpb2QBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEB3BheW1lbnQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAQh0aHJvd0VycgECEGludmFsaWQgcGF5bWVudHMEDXBheW1lbnRBbW91bnQDAwkAAAIIBQdwYXltZW50B2Fzc2V0SWQFBHVuaXQJAGYCCAUHcGF5bWVudAZhbW91bnQAAAcIBQdwYXltZW50BmFtb3VudAkBCHRocm93RXJyAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAQNbHBBc3NldEFtb3VudAMJAGYCBRJjdXJyZW50UHJpY2VPckZhaWwAAAkAawMFDXBheW1lbnRBbW91bnQFBlNDQUxFOAUSY3VycmVudFByaWNlT3JGYWlsAAAECGludmVzdGVkCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQELa2V5SW52ZXN0ZWQBBQR1bml0AAAEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQELa2V5SW52ZXN0ZWQBBQR1bml0CQDMCAIJAGQCBQhpbnZlc3RlZAUNcGF5bWVudEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIHcmVpc3N1ZQkAzAgCBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlckFzc2V0CQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUNbHBBc3NldEFtb3VudAkAzAgCBQ9scEFzc2V0SWRPckZhaWwFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyV2F2ZXMJAMwIAggFFXRyZWFzdXJ5QWRkcmVzc09yRmFpbAVieXRlcwkAzAgCBQ1wYXltZW50QW1vdW50BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFDXBheW1lbnRBbW91bnQFA25pbAUDbmlsCQCUCgIFA25pbAUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEId2l0aGRyYXcBEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEB3BheW1lbnQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAQh0aHJvd0VycgEJAQd3cmFwRXJyAQIQaW52YWxpZCBwYXltZW50cwQOcGF5bWVudEFzc2V0SWQDCQAAAggFB3BheW1lbnQHYXNzZXRJZAUPbHBBc3NldElkT3JGYWlsBQ9scEFzc2V0SWRPckZhaWwJAQh0aHJvd0VycgECFWludmFsaWQgcGF5bWVudCBhc3NldAQNcGF5bWVudEFtb3VudAMJAGYCCAUHcGF5bWVudAZhbW91bnQAAAgFB3BheW1lbnQGYW1vdW50CQEIdGhyb3dFcnIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50BAp3aXRoZHJhd2FsCQELdmFsdWVPckVsc2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQENa2V5V2l0aGRyYXdhbAAAAAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJAQ1rZXlXaXRoZHJhd2FsAAkAzAgCCQBkAgUKd2l0aGRyYXdhbAUNcGF5bWVudEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILc3RyaW5nRW50cnkJAMwIAgkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MIBQFpDXRyYW5zYWN0aW9uSWQJAMwIAgkBFnZhbHVlV2l0aGRyYXdhbFJlcXVlc3QEBQdQRU5ESU5HBQ1wYXltZW50QW1vdW50CQBkAgUTY3VycmVudFBlcmlvZE9yRmFpbAABBQR1bml0BQNuaWwFA25pbAUDbmlsAwkAAAIFDmZhY3RvcnlBY3Rpb25zBQ5mYWN0b3J5QWN0aW9ucwkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFFGZhY3RvcnlBZGRyZXNzT3JGYWlsBQ1wYXltZW50QW1vdW50BQ5wYXltZW50QXNzZXRJZAUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ5jYW5jZWxXaXRoZHJhdwIQdXNlckFkZHJlc3NCeXRlcwR0eElkBAtjaGVja0NhbGxlcgkBC29ubHlGYWN0b3J5AQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIEC3VzZXJBZGRyZXNzCQEHQWRkcmVzcwEFEHVzZXJBZGRyZXNzQnl0ZXMEF3dpdGhkcmF3YWxSZXF1ZXN0T3B0aW9uCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzBQR0eElkCQEHd3JhcEVycgECGmludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0BBNjdXJyZW50UGVyaW9kT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARBrZXlDdXJyZW50UGVyaW9kAAkBB3dyYXBFcnIBAg5pbnZhbGlkIHBlcmlvZAQNJHQwMTMwNzQxMzE4NwkBIXBhcnNlV2l0aGRyYXdhbFJlcXVlc3RWYWx1ZU9yRmFpbAEFF3dpdGhkcmF3YWxSZXF1ZXN0T3B0aW9uBAZzdGF0dXMIBQ0kdDAxMzA3NDEzMTg3Al8xBA1scEFzc2V0QW1vdW50CAUNJHQwMTMwNzQxMzE4NwJfMgQMdGFyZ2V0UGVyaW9kCAUNJHQwMTMwNzQxMzE4NwJfMwQJY2xhaW1UeElkCAUNJHQwMTMwNzQxMzE4NwJfNAQGY2hlY2tzCQDMCAIDCQAAAgUGc3RhdHVzBQdQRU5ESU5HBgkBCHRocm93RXJyAQIhaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3Qgc3RhdHVzCQDMCAIDCQBmAgUMdGFyZ2V0UGVyaW9kBRNjdXJyZW50UGVyaW9kT3JGYWlsBgkBCHRocm93RXJyAQIhaW52YWxpZCB3aXRoZHJhd2FsIHJlcXVlc3QgcGVyaW9kBQNuaWwDCQAAAgUGY2hlY2tzBQZjaGVja3MECndpdGhkcmF3YWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBDWtleVdpdGhkcmF3YWwACQEHd3JhcEVycgECH2ludmFsaWQgdG90YWwgd2l0aGRyYXdhbCBhbW91bnQEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDGludGVnZXJFbnRyeQkAzAgCCQENa2V5V2l0aGRyYXdhbAAJAMwIAgMJAGcCBQp3aXRoZHJhd2FsBQ1scEFzc2V0QW1vdW50CQBlAgUKd2l0aGRyYXdhbAUNbHBBc3NldEFtb3VudAkBCHRocm93RXJyAQIZaW52YWxpZCB3aXRoZHJhd2FsIGFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILZGVsZXRlRW50cnkJAMwIAgkBFGtleVdpdGhkcmF3YWxSZXF1ZXN0AgULdXNlckFkZHJlc3MFBHR4SWQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCDXRyYW5zZmVyQXNzZXQJAMwIAgUQdXNlckFkZHJlc3NCeXRlcwkAzAgCBQ1scEFzc2V0QW1vdW50CQDMCAIFD2xwQXNzZXRJZE9yRmFpbAUDbmlsBQNuaWwFA25pbAMJAAACBQ5mYWN0b3J5QWN0aW9ucwUOZmFjdG9yeUFjdGlvbnMJAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpjbGFpbVdhdmVzAhB1c2VyQWRkcmVzc0J5dGVzBHR4SWQEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEF3dpdGhkcmF3YWxSZXF1ZXN0T3B0aW9uCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARRrZXlXaXRoZHJhd2FsUmVxdWVzdAIFC3VzZXJBZGRyZXNzBQR0eElkCQEHd3JhcEVycgECGmludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0BA0kdDAxNDUxOTE0NjMyCQEhcGFyc2VXaXRoZHJhd2FsUmVxdWVzdFZhbHVlT3JGYWlsAQUXd2l0aGRyYXdhbFJlcXVlc3RPcHRpb24EBnN0YXR1cwgFDSR0MDE0NTE5MTQ2MzICXzEEDWxwQXNzZXRBbW91bnQIBQ0kdDAxNDUxOTE0NjMyAl8yBAx0YXJnZXRQZXJpb2QIBQ0kdDAxNDUxOTE0NjMyAl8zBAljbGFpbVR4SWQIBQ0kdDAxNDUxOTE0NjMyAl80AwkAAAIFBnN0YXR1cwUIRklOSVNIRUQJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHN0YXR1cwMJAGYCBQx0YXJnZXRQZXJpb2QFE2N1cnJlbnRQZXJpb2RPckZhaWwJAQh0aHJvd0VycgECIWludmFsaWQgd2l0aGRyYXdhbCByZXF1ZXN0IHBlcmlvZAQLcHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUMdGFyZ2V0UGVyaW9kCQEHd3JhcEVycgECDWludmFsaWQgcHJpY2UEBmFtb3VudAMJAGYCBQtwcmljZU9yRmFpbAAACQBrAwUNbHBBc3NldEFtb3VudAULcHJpY2VPckZhaWwFBlNDQUxFOAAABA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgtzdHJpbmdFbnRyeQkAzAgCCQEUa2V5V2l0aGRyYXdhbFJlcXVlc3QCBQt1c2VyQWRkcmVzcwUEdHhJZAkAzAgCCQEWdmFsdWVXaXRoZHJhd2FsUmVxdWVzdAQFCEZJTklTSEVEBQ1scEFzc2V0QW1vdW50BQx0YXJnZXRQZXJpb2QIBQFpDXRyYW5zYWN0aW9uSWQFA25pbAUDbmlsCQDMCAIJAPwHBAUUZmFjdG9yeUFkZHJlc3NPckZhaWwCBGJ1cm4JAMwIAgUNbHBBc3NldEFtb3VudAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAINdHJhbnNmZXJXYXZlcwkAzAgCBRB1c2VyQWRkcmVzc0J5dGVzCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDXByb2Nlc3NCbG9ja3MBEHVzZXJBZGRyZXNzQnl0ZXMEC2NoZWNrQ2FsbGVyCQELb25seUZhY3RvcnkBBQFpAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgQLdXNlckFkZHJlc3MJAQdBZGRyZXNzAQUQdXNlckFkZHJlc3NCeXRlcwQTY3VycmVudFBlcmlvZE9yRmFpbAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEQa2V5Q3VycmVudFBlcmlvZAAJAQd3cmFwRXJyAQIOaW52YWxpZCBwZXJpb2QEDHBlcmlvZExlbmd0aAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEPa2V5UGVyaW9kTGVuZ3RoAAkBB3dyYXBFcnIBAhVpbnZhbGlkIHBlcmlvZCBsZW5ndGgEEmN1cnJlbnRTdGFydEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFFGZhY3RvcnlBZGRyZXNzT3JGYWlsCQEOa2V5U3RhcnRIZWlnaHQBBRNjdXJyZW50UGVyaW9kT3JGYWlsCQEHd3JhcEVycgECFGludmFsaWQgc3RhcnQgaGVpZ2h0BBJjdXJyZW50UHJpY2VPckZhaWwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBEWtleVByaWNlRm9yUGVyaW9kAQUTY3VycmVudFBlcmlvZE9yRmFpbAkBB3dyYXBFcnIBAg1pbnZhbGlkIHByaWNlBBJuZXh0QmxvY2tUb1Byb2Nlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBRRmYWN0b3J5QWRkcmVzc09yRmFpbAkBFWtleU5leHRCbG9ja1RvUHJvY2VzcwAJAQd3cmFwRXJyAQIdaW52YWxpZCBuZXh0IGJsb2NrIHRvIHByb2Nlc3MED3BlcmlvZEVuZEhlaWdodAkAZQIJAGQCBRJjdXJyZW50U3RhcnRIZWlnaHQFDHBlcmlvZExlbmd0aAABBBxibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplTWF4ACgEGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUDAwMJAGcCBQZoZWlnaHQFEm5leHRCbG9ja1RvUHJvY2VzcwMJAGcCBRJuZXh0QmxvY2tUb1Byb2Nlc3MFEmN1cnJlbnRTdGFydEhlaWdodAYJAAACBRNjdXJyZW50UGVyaW9kT3JGYWlsAAAHCQBnAgUPcGVyaW9kRW5kSGVpZ2h0BRJuZXh0QmxvY2tUb1Byb2Nlc3MHCQCXAwEJAMwIAgkAZAIJAGUCBQ9wZXJpb2RFbmRIZWlnaHQFEm5leHRCbG9ja1RvUHJvY2VzcwABCQDMCAIFHGJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemVNYXgFA25pbAkBCHRocm93RXJyAQkBB3dyYXBFcnIBAhRpbnZhbGlkIHRhcmdldCBibG9jawQVYmxvY2tQcm9jZXNzaW5nUmV3YXJkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJARhrZXlCbG9ja1Byb2Nlc3NpbmdSZXdhcmQACQEHd3JhcEVycgECH2ludmFsaWQgYmxvY2sgcHJvY2Vzc2luZyByZXdhcmQEIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yCQBpAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplBClibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvclJlbWFpbmRlcgkAZQIFFWJsb2NrUHJvY2Vzc2luZ1Jld2FyZAkAaAIFIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yBRlibG9ja3NQcm9jZXNzaW5nQmF0Y2hTaXplCgEDbWFwAgNhY2MDaW5jAwkAZwIFA2luYwUZYmxvY2tzUHJvY2Vzc2luZ0JhdGNoU2l6ZQUDYWNjBBF0YXJnZXRCbG9ja0hlaWdodAkAZAIFEm5leHRCbG9ja1RvUHJvY2VzcwUDaW5jBA90YXJnZXRCbG9ja0luZm8JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBRF0YXJnZXRCbG9ja0hlaWdodAkBB3dyYXBFcnIBAhJpbnZhbGlkIGJsb2NrIGluZm8EFHRyZWFzdXJ5UmV3YXJkT3JGYWlsCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAQ9yZXdhcmRGb3JPcHRpb24CCAUPdGFyZ2V0QmxvY2tJbmZvB3Jld2FyZHMFFXRyZWFzdXJ5QWRkcmVzc09yRmFpbAkBB3dyYXBFcnIBCQCsAgICI2ludmFsaWQgdHJlYXN1cnkgcmV3YXJkIGZvciBoZWlnaHQgCQCkAwEFEXRhcmdldEJsb2NrSGVpZ2h0BAlnZW5lcmF0b3IIBQ90YXJnZXRCbG9ja0luZm8JZ2VuZXJhdG9yBAlhdmFpbGFibGUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUUZmFjdG9yeUFkZHJlc3NPckZhaWwJAQxrZXlBdmFpbGFibGUBBQlnZW5lcmF0b3IAAAQMY2FsbGVyUmV3YXJkAwkAAAIFA2luYwkAZQIFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUAAQkAZAIFIGJsb2NrUHJvY2Vzc2luZ1Jld2FyZEJ5R2VuZXJhdG9yBSlibG9ja1Byb2Nlc3NpbmdSZXdhcmRCeUdlbmVyYXRvclJlbWFpbmRlcgUgYmxvY2tQcm9jZXNzaW5nUmV3YXJkQnlHZW5lcmF0b3IEDWxwQXNzZXRBbW91bnQDCQBmAgUSY3VycmVudFByaWNlT3JGYWlsAAAJAGsDCQBlAgUUdHJlYXN1cnlSZXdhcmRPckZhaWwFDGNhbGxlclJld2FyZAUGU0NBTEU4BRJjdXJyZW50UHJpY2VPckZhaWwAAAQUZmFjdG9yeUFjdGlvbnNTaW5nbGUJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAILc3RyaW5nRW50cnkJAMwIAgkBEWtleUJsb2NrUHJvY2Vzc2VkAQURdGFyZ2V0QmxvY2tIZWlnaHQJAMwIAgkAuQkCCQDMCAIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkAzAgCCQDYBAEFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgkApAMBBRR0cmVhc3VyeVJld2FyZE9yRmFpbAkAzAgCCQCkAwEFDGNhbGxlclJld2FyZAkAzAgCCQCkAwEFDWxwQXNzZXRBbW91bnQFA25pbAUDU0VQBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgxpbnRlZ2VyRW50cnkJAMwIAgkBDGtleUF2YWlsYWJsZQEFCWdlbmVyYXRvcgkAzAgCCQBkAgUJYXZhaWxhYmxlBQ1scEFzc2V0QW1vdW50BQNuaWwFA25pbAUDbmlsAwkAAAIFFGZhY3RvcnlBY3Rpb25zU2luZ2xlBRRmYWN0b3J5QWN0aW9uc1NpbmdsZQkAZAIFA2FjYwUNbHBBc3NldEFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQEbGlzdAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgkAzAgCAA8JAMwIAgAQCQDMCAIAEQkAzAgCABIJAMwIAgATCQDMCAIAFAkAzAgCABUJAMwIAgAWCQDMCAIAFwkAzAgCABgJAMwIAgAZCQDMCAIAGgkAzAgCABsJAMwIAgAcCQDMCAIAHQkAzAgCAB4JAMwIAgAfCQDMCAIAIAkAzAgCACEJAMwIAgAiCQDMCAIAIwkAzAgCACQJAMwIAgAlCQDMCAIAJgkAzAgCACcFA25pbAQSbHBBc3NldEFtb3VudFRvdGFsCgACJGwFBGxpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAMJAAACBRJscEFzc2V0QW1vdW50VG90YWwFEmxwQXNzZXRBbW91bnRUb3RhbAQHYWN0aW9ucwkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAg10cmFuc2ZlcldhdmVzCQDMCAIFEHVzZXJBZGRyZXNzQnl0ZXMJAMwIAgUVYmxvY2tQcm9jZXNzaW5nUmV3YXJkBQNuaWwFA25pbAkAzAgCCQD8BwQFFGZhY3RvcnlBZGRyZXNzT3JGYWlsAgdyZWlzc3VlCQDMCAIFEmxwQXNzZXRBbW91bnRUb3RhbAUDbmlsBQNuaWwJAMwIAgkA/AcEBRRmYWN0b3J5QWRkcmVzc09yRmFpbAIMaW50ZWdlckVudHJ5CQDMCAIJARVrZXlOZXh0QmxvY2tUb1Byb2Nlc3MACQDMCAIJAGQCBRJuZXh0QmxvY2tUb1Byb2Nlc3MFGWJsb2Nrc1Byb2Nlc3NpbmdCYXRjaFNpemUFA25pbAUDbmlsBQNuaWwDCQAAAgUHYWN0aW9ucwUHYWN0aW9ucwkAlAoCBQNuaWwFBHVuaXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5GV7SCg==",
    "height": 2633664,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BrRNVGS6tk4V9Ri3MbwPXjBDSpewSt9dohMQPrcWqqvq
Next: 7ZnmG9nsCR5qWzhQqeoZZSTe3kBgc8DbjD3uaYPyc9fA

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

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

331	335
332	336
333	337
334		-	@Callable(ac)
335		-	func invest (ar) = {
336		-	let as = ae~~(ac~~)
337		-	if ((as == as))
	338	+	@Callable(ae)
	339	+	func invest (at) = {

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

github/deemru/w8io/169f3d6 
205.73 ms ◑