tx · GBhQcfEcGr6EdoJqrBTJxNS8KRPWvG1SDmq5HHz6o8aY

3MzqQ3HKdkHmJmk9mDhAeAMxmK5D2ztdAe5:  -0.05000000 Waves

2022.11.25 23:41 [2333116] smart account 3MzqQ3HKdkHmJmk9mDhAeAMxmK5D2ztdAe5 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GBhQcfEcGr6EdoJqrBTJxNS8KRPWvG1SDmq5HHz6o8aY",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1669408899123,
    "version": 2,
    "chainId": 84,
    "sender": "3MzqQ3HKdkHmJmk9mDhAeAMxmK5D2ztdAe5",
    "senderPublicKey": "FEnkfXnQZkk1FmjhH6QZqyK2taN6ngnZBexevKxouLUM",
    "proofs": [
        "eJJiwAEPZzxShVw2UcwnhebvTriRymMUCUNcJQjbusoHhAez4ScjF9gRTDtbgHKaf6uHV3NDYM7ogRpUd8E5wWC",
        "3AAfEKa8VuFKP9Xsa884k3Lx3X6nGL3jG2QfBXAQkDutECGTFskFZDRXNJdm2nfUtd9NPDMtm5Lz8aThFP6Dadih"
    ],
    "script": "base64:BgJKCAISBgoEAhgREhIGCgQCGBESEgYKBAIYERISBgoEAhgREhIGCgQCGBESEgYKBAIYERISBgoEAhgREhIGCgQCGBESEgYKBAIYERJLAAd2ZXJzaW9uAgUxLjAuMAAIa1ZlcnNpb24CB3ZlcnNpb24AB2tBY3RpdmUCBmFjdGl2ZQAJa0Fzc2V0SWRBAgpBX2Fzc2V0X2lkAAlrQXNzZXRJZEICCkJfYXNzZXRfaWQACWtCYWxhbmNlQQIPQV9hc3NldF9iYWxhbmNlAAlrQmFsYW5jZUICD0JfYXNzZXRfYmFsYW5jZQANa0JhbGFuY2VJbml0QQIMQV9hc3NldF9pbml0AA1rQmFsYW5jZUluaXRCAgxCX2Fzc2V0X2luaXQADWtTaGFyZUFzc2V0SWQCDnNoYXJlX2Fzc2V0X2lkABFrU2hhcmVBc3NldFN1cHBseQISc2hhcmVfYXNzZXRfc3VwcGx5AARrRmVlAgpjb21taXNzaW9uAAZrQ2F1c2UCDnNodXRkb3duX2NhdXNlAA1rRmlyc3RIYXJ2ZXN0Ag1maXJzdF9oYXJ2ZXN0ABNrRmlyc3RIYXJ2ZXN0SGVpZ2h0AhRmaXJzdF9oYXJ2ZXN0X2hlaWdodAALa1NoYXJlTGltaXQCHHNoYXJlX2xpbWl0X29uX2ZpcnN0X2hhcnZlc3QAC2tCYXNlUGVyaW9kAgtiYXNlX3BlcmlvZAANa1BlcmlvZExlbmd0aAINcGVyaW9kX2xlbmd0aAAMa1N0YXJ0SGVpZ2h0AgxzdGFydF9oZWlnaHQADGtVU0ROQWRkcmVzcwIYc3Rha2luZ191c2RubnNidF9hZGRyZXNzAAxrRVVSTkFkZHJlc3MCFHN0YWtpbmdfZXVybl9hZGRyZXNzAA5rTGVhc2luZ0Ftb3VudAIObGVhc2luZ19hbW91bnQADGtVU0ROQXNzZXRJZAINdXNkbl9hc3NldF9pZAAMa0VVUk5Bc3NldElkAg1ldXJuX2Fzc2V0X2lkAA5rU3Rha2luZ0Fzc2V0cwIOc3Rha2luZ19hc3NldHMADWtPcmFjbGVBY3RpdmUCFGFjdGl2ZV9hbGxfY29udHJhY3RzAAprRGlzY291bnRzAglkaXNjb3VudHMAD2tEaXNjb3VudFZhbHVlcwIPZGlzY291bnRfdmFsdWVzAA9rVXNlckdTd29wSW5Hb3YCDV9HU3dvcF9hbW91bnQADmtVc2VyU3dvcEluR292AgxfU1dPUF9hbW91bnQAC2tPcmFjbGVQb29sAgVwb29sXwANa0FkbWluUHViS2V5MQILYWRtaW5fcHViXzEADWtBZG1pblB1YktleTICC2FkbWluX3B1Yl8yAA1rQWRtaW5QdWJLZXkzAgthZG1pbl9wdWJfMwASa0FkbWluSW52b2tlUHViS2V5AhBhZG1pbl9pbnZva2VfcHViABBrTW9uZXlCb3hBZGRyZXNzAhFtb25leV9ib3hfYWRkcmVzcwAOa1ZvdGluZ0FkZHJlc3MCDnZvdGluZ19hZGRyZXNzAAtrR292QWRkcmVzcwISZ292ZXJuYW5jZV9hZGRyZXNzAA9rRmFybWluZ0FkZHJlc3MCD2Zhcm1pbmdfYWRkcmVzcwAGb3JhY2xlCQEHQWRkcmVzcwEBGgFUSBOXDMDTM8wlMoC2KfenZGiAq+PMe0uZARNnZXRCYXNlNThGcm9tT3JhY2xlAQNrZXkEByRtYXRjaDAJAJ0IAgUGb3JhY2xlBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAZzdHJpbmcFByRtYXRjaDAJANkEAQUGc3RyaW5nBAdub3RoaW5nBQckbWF0Y2gwCQACAQkArAICBQNrZXkCCGlzIGVtcHR5AAxhZG1pblB1YktleTEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MQAMYWRtaW5QdWJLZXkyCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTIADGFkbWluUHViS2V5MwkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkzABFhZG1pbkludm9rZVB1YktleQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBRJrQWRtaW5JbnZva2VQdWJLZXkAD21vbmV5Qm94QWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFEGtNb25leUJveEFkZHJlc3MADXZvdGluZ0FkZHJlc3MJAQdBZGRyZXNzAQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ5rVm90aW5nQWRkcmVzcwAKZ292QWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFC2tHb3ZBZGRyZXNzAA5mYXJtaW5nQWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFD2tGYXJtaW5nQWRkcmVzcwAEVVNETgkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQxrVVNETkFzc2V0SWQABEVVUk4JARNnZXRCYXNlNThGcm9tT3JhY2xlAQUMa0VVUk5Bc3NldElkAA1zdGFraW5nQXNzZXRzCQERQGV4dHJOYXRpdmUoMTA1MykCBQZvcmFjbGUFDmtTdGFraW5nQXNzZXRzABJzdGFraW5nVVNETkFkZHJlc3MJAQdBZGRyZXNzAQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQxrVVNETkFkZHJlc3MAEnN0YWtpbmdFVVJOQWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDGtFVVJOQWRkcmVzcwAKYmFzZVBlcmlvZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFDXZvdGluZ0FkZHJlc3MFC2tCYXNlUGVyaW9kAhFFbXB0eSBrQmFzZVBlcmlvZAALc3RhcnRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQ12b3RpbmdBZGRyZXNzBQxrU3RhcnRIZWlnaHQCEkVtcHR5IGtTdGFydEhlaWdodAAMcGVyaW9kTGVuZ3RoCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUNdm90aW5nQWRkcmVzcwUNa1BlcmlvZExlbmd0aAITRW1wdHkga1BlcmlvZExlbmd0aAAVZmlyc3RIYXJ2ZXN0RW5kUGVyaW9kCQBkAgkAZAIFCmJhc2VQZXJpb2QJAGkCCQBlAgUGaGVpZ2h0BQtzdGFydEhlaWdodAUMcGVyaW9kTGVuZ3RoAAMABmFjdGl2ZQkBEUBleHRyTmF0aXZlKDEwNTEpAgUGb3JhY2xlBQ1rT3JhY2xlQWN0aXZlAAlmZWVTY2FsZTYAwIQ9AAZzY2FsZTgAgMLXLwEOYWNjb3VudEJhbGFuY2UCB2Fzc2V0SWQEcG9vbAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJpZAUHJG1hdGNoMAkA8AcCBQRwb29sBQJpZAMJAAECBQckbWF0Y2gwAgRVbml0BAV3YXZlcwUHJG1hdGNoMAgJAO8HAQUEcG9vbAlhdmFpbGFibGUJAAIBAgtNYXRjaCBlcnJvcgEMc3Rha2VkQW1vdW50Agdhc3NldElkBHBvb2wEFnN0YWtlZEFtb3VudENhbGN1bGF0ZWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQDYUlkBQckbWF0Y2gwAwkAAAIFA2FJZAUEVVNETgkAmggCBRJzdGFraW5nVVNETkFkZHJlc3MJAKwCAgkArAICCQCsAgICDHJwZF9iYWxhbmNlXwkA2AQBBQNhSWQCAV8JAKUIAQUEcG9vbAMJAAACBQNhSWQFBEVVUk4JAJoIAgUSc3Rha2luZ0VVUk5BZGRyZXNzCQCsAgIJAKwCAgkArAICAhglcyVzJXNfX3N0YWtpbmdCYWxhbmNlX18JANgEAQUDYUlkAgJfXwkApQgBBQRwb29sAAADCQABAgUHJG1hdGNoMAIEVW5pdAkBC3ZhbHVlT3JFbHNlAgkAmggCBQRwb29sBQ5rTGVhc2luZ0Ftb3VudAAACQACAQILTWF0Y2ggZXJyb3IEByRtYXRjaDAFFnN0YWtlZEFtb3VudENhbGN1bGF0ZWQDCQABAgUHJG1hdGNoMAIDSW50BAFpBQckbWF0Y2gwBQFpAAABDGdldEFzc2V0SW5mbwEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMDCQABAgUHJG1hdGNoMAIGU3RyaW5nBgkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwBAskdDAzODk3NDA2OQQHJG1hdGNoMQUCaWQDCQABAgUHJG1hdGNoMQIKQnl0ZVZlY3RvcgQDYUlkBQckbWF0Y2gxCQCUCgIJANgEAQUDYUlkBQNhSWQDCQABAgUHJG1hdGNoMQIGU3RyaW5nBANhSWQFByRtYXRjaDEJAJQKAgUDYUlkCQDZBAEFA2FJZAkAAgECC01hdGNoIGVycm9yBAhzdHJpbmdJZAgFCyR0MDM4OTc0MDY5Al8xBAdieXRlc0lkCAULJHQwMzg5NzQwNjkCXzIEBGluZm8JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQdieXRlc0lkCQCsAgIJAKwCAgIGQXNzZXQgBQhzdHJpbmdJZAIOIGRvZXNuJ3QgZXhpc3QJAJUKAwUIc3RyaW5nSWQIBQRpbmZvBG5hbWUIBQRpbmZvCGRlY2ltYWxzAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwCQCVCgMCBVdBVkVTAgVXQVZFUwAICQACAQILTWF0Y2ggZXJyb3IBB3N1c3BlbmQBBWNhdXNlCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBwkAzAgCCQELU3RyaW5nRW50cnkCBQZrQ2F1c2UFBWNhdXNlBQNuaWwBFGNhbGN1bGF0ZUZlZURpc2NvdW50AQh1c2VyQWRkcgQKc3dvcEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQpnb3ZBZGRyZXNzCQCsAgIJAKUIAQUIdXNlckFkZHIFDmtVc2VyU3dvcEluR292AAAEC2dTd29wQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFCmdvdkFkZHJlc3MJAKwCAgkApQgBBQh1c2VyQWRkcgUPa1VzZXJHU3dvcEluR292BQpzd29wQW1vdW50BA5kaXNjb3VudFZhbHVlcwkAtQkCCQERQGV4dHJOYXRpdmUoMTA1MykCBQZvcmFjbGUFD2tEaXNjb3VudFZhbHVlcwIBLAQJZGlzY291bnRzCQC1CQIJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBm9yYWNsZQUKa0Rpc2NvdW50cwIBLAMDCQBnAgULZ1N3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwAACQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAEFC2dTd29wQW1vdW50BwkAZQIFCWZlZVNjYWxlNgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWRpc2NvdW50cwAAAwMJAGcCBQtnU3dvcEFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAEJAGYCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUOZGlzY291bnRWYWx1ZXMAAgULZ1N3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAEDAwkAZwIFC2dTd29wQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUOZGlzY291bnRWYWx1ZXMAAgkAZgIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwADBQtnU3dvcEFtb3VudAcJAGUCBQlmZWVTY2FsZTYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlkaXNjb3VudHMAAgMDCQBnAgULZ1N3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwADCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAQFC2dTd29wQW1vdW50BwkAZQIFCWZlZVNjYWxlNgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWRpc2NvdW50cwADAwkAZwIFC2dTd29wQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUOZGlzY291bnRWYWx1ZXMABAkAZQIFCWZlZVNjYWxlNgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWRpc2NvdW50cwAEBQlmZWVTY2FsZTYBDWNhbGN1bGF0ZUZlZXMGCXBtdEFtb3VudBJtaW5BbW91bnRUb1JlY2VpdmUJdG9rZW5Gcm9tB3Rva2VuVG8DZmVlDWZlZUdvdmVybmFuY2UEEGFtb3VudFdpdGhvdXRGZWUJAGsDBQd0b2tlblRvBQlwbXRBbW91bnQJAGQCBQlwbXRBbW91bnQFCXRva2VuRnJvbQQNYW1vdW50V2l0aEZlZQkAawMFEGFtb3VudFdpdGhvdXRGZWUJAGUCBQlmZWVTY2FsZTYFA2ZlZQUJZmVlU2NhbGU2BBBnb3Zlcm5hbmNlUmV3YXJkCQBrAwUQYW1vdW50V2l0aG91dEZlZQUNZmVlR292ZXJuYW5jZQUJZmVlU2NhbGU2AwkAZgIFEm1pbkFtb3VudFRvUmVjZWl2ZQUNYW1vdW50V2l0aEZlZQkAAgEJAKwCAgkArAICCQCsAgICHUNhbGN1bGF0ZWQgYW1vdW50IHRvIHJlY2VpdmUgCQCkAwEFDWFtb3VudFdpdGhGZWUCICBpcyBsZXNzIHRoYW4gc3BlY2lmaWVkIG1pbmltdW0gCQCkAwEFEm1pbkFtb3VudFRvUmVjZWl2ZQkAlQoDBRBhbW91bnRXaXRob3V0RmVlBQ1hbW91bnRXaXRoRmVlBRBnb3Zlcm5hbmNlUmV3YXJkARBjYWxjdWxhdGVWaXJ0UGF5AwlwbXRBbW91bnQHYmFsYW5jZQNmZWUEAUYJAGUCBQlmZWVTY2FsZTYFA2ZlZQQBawkAawMFA2ZlZQA8AGQEAWEJAGQCBQZzY2FsZTgJAGsDCQBoAgUBRgUBawUGc2NhbGU4CQBoAgUJZmVlU2NhbGU2BQlmZWVTY2FsZTYEAWIJAGUCCQBlAgkAZAIJAGQCBQdiYWxhbmNlCQBrAwUHYmFsYW5jZQUBRgUJZmVlU2NhbGU2CQBrAwUJcG10QW1vdW50BQFGBQlmZWVTY2FsZTYFCXBtdEFtb3VudAkAawMFCXBtdEFtb3VudAkAaAIFAUYFAWsJAGgCBQlmZWVTY2FsZTYFCWZlZVNjYWxlNgQBYwkAuQICCQC+AgEJALYCAQUHYmFsYW5jZQkAtgIBBQlwbXRBbW91bnQEAUQJALgCAgkAuQICCQC2AgEFAWIJALYCAQUBYgkAvAIDCQC5AgIJALYCAQAEBQFjCQC2AgEFAWEJALYCAQUGc2NhbGU4CQCgAwEJALwCAwkAtwICCQC+AgEJALYCAQUBYgkBCnNxcnRCaWdJbnQEBQFEAAAAAAUERE9XTgkAtgIBBQZzY2FsZTgJALYCAQkAaAIAAgUBYQERcGFyc2VQYXltZW50QXNzZXQBB2Fzc2V0SWQDCQAAAgUHYXNzZXRJZAEABQR1bml0BQdhc3NldElkARFzdXNwZW5kU3VzcGljaW91cwYPYWNjb3VudEJhbGFuY2VBD2FjY291bnRCYWxhbmNlQghiYWxhbmNlQQhiYWxhbmNlQghhc3NldElkQQhhc3NldElkQgkBB3N1c3BlbmQBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAiNTdXNwaWNpb3VzIHN0YXRlLiBBY3R1YWwgYmFsYW5jZXM6IAkApAMBBQ9hY2NvdW50QmFsYW5jZUECASAFCGFzc2V0SWRBAgIsIAkApAMBBQ9hY2NvdW50QmFsYW5jZUICASAFCGFzc2V0SWRCAgkuIFN0YXRlOiAJAKQDAQUIYmFsYW5jZUECASAFCGFzc2V0SWRBAgIsIAkApAMBBQhiYWxhbmNlQgIBIAUIYXNzZXRJZEIBCGlzQWN0aXZlAAMFBmFjdGl2ZQUEdW5pdAkAAgECH0RBcHAgaXMgaW5hY3RpdmUgYXQgdGhpcyBtb21lbnQBDGlzT3JhY2xlUG9vbAELcG9vbEFkZHJlc3MDCQEJaXNEZWZpbmVkAQkAnQgCBQZvcmFjbGUJAKwCAgULa09yYWNsZVBvb2wFC3Bvb2xBZGRyZXNzBQR1bml0CQACAQIbREFwcCBpcyBub3QgcmVnaXN0ZXJlZCBwb29sAQ9nZXRQb29sQmFsYW5jZXMDBHBvb2wIYXNzZXRJZEEIYXNzZXRJZEIECGJhbGFuY2VBCQERQGV4dHJOYXRpdmUoMTA1MCkCBQRwb29sBQlrQmFsYW5jZUEECGJhbGFuY2VCCQERQGV4dHJOYXRpdmUoMTA1MCkCBQRwb29sBQlrQmFsYW5jZUIEDXN0YWtlZEFtb3VudEEJAQxzdGFrZWRBbW91bnQCBQhhc3NldElkQQUEcG9vbAQNc3Rha2VkQW1vdW50QgkBDHN0YWtlZEFtb3VudAIFCGFzc2V0SWRCBQRwb29sBA9hY2NvdW50QmFsYW5jZUEJAGQCCQEOYWNjb3VudEJhbGFuY2UCBQhhc3NldElkQQUEcG9vbAUNc3Rha2VkQW1vdW50QQQPYWNjb3VudEJhbGFuY2VCCQBkAgkBDmFjY291bnRCYWxhbmNlAgUIYXNzZXRJZEIFBHBvb2wFDXN0YWtlZEFtb3VudEIEC3NoYXJlU3VwcGx5CQERQGV4dHJOYXRpdmUoMTA1MCkCBQRwb29sBRFrU2hhcmVBc3NldFN1cHBseQkAlwoFBQhiYWxhbmNlQQUIYmFsYW5jZUIFD2FjY291bnRCYWxhbmNlQQUPYWNjb3VudEJhbGFuY2VCBQtzaGFyZVN1cHBseQENZ2V0UG9vbEFzc2V0cwEEcG9vbAQLc3RyQXNzZXRJZEEJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHBvb2wFCWtBc3NldElkQQQLc3RyQXNzZXRJZEIJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHBvb2wFCWtBc3NldElkQgQIYXNzZXRJZEEDCQAAAgULc3RyQXNzZXRJZEECBVdBVkVTBQR1bml0CQDZBAEFC3N0ckFzc2V0SWRBBAhhc3NldElkQgMJAAACBQtzdHJBc3NldElkQgIFV0FWRVMFBHVuaXQJANkEAQULc3RyQXNzZXRJZEIEDHNoYXJlQXNzZXRJZAkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCBQRwb29sBQ1rU2hhcmVBc3NldElkCQCXCgUFC3N0ckFzc2V0SWRBBQtzdHJBc3NldElkQgUIYXNzZXRJZEEFCGFzc2V0SWRCBQxzaGFyZUFzc2V0SWQBDGdldEZlZVBhcmFtcwIEcG9vbAZjYWxsZXIEC2ZlZURpc2NvdW50CQEUY2FsY3VsYXRlRmVlRGlzY291bnQBBQZjYWxsZXIEA2ZlZQkAbgQJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHBvb2wFBGtGZWUFC2ZlZURpc2NvdW50BQlmZWVTY2FsZTYFB0NFSUxJTkcEBmdvdkZlZQkAbgQJAGsDBQNmZWUAKABkBQtmZWVEaXNjb3VudAUJZmVlU2NhbGU2BQdDRUlMSU5HCQCUCgIFA2ZlZQUGZ292RmVlCQFpAQRpbml0BAtjYWxsZXJCeXRlcwRhcmdzCHBBbW91bnRzCXBBc3NldElkcwQGY2FsbGVyCQEHQWRkcmVzcwEFC2NhbGxlckJ5dGVzBAskdDA5MDc2OTE1NAkAlAoCCQCRAwIFCHBBbW91bnRzAAAJARFwYXJzZVBheW1lbnRBc3NldAEJAJEDAgUJcEFzc2V0SWRzAAAECnBtdEFtb3VudEEIBQskdDA5MDc2OTE1NAJfMQQLcG10QXNzZXRJZEEIBQskdDA5MDc2OTE1NAJfMgQLJHQwOTE1OTkyMzcJAJQKAgkAkQMCBQhwQW1vdW50cwABCQERcGFyc2VQYXltZW50QXNzZXQBCQCRAwIFCXBBc3NldElkcwABBApwbXRBbW91bnRCCAULJHQwOTE1OTkyMzcCXzEEC3BtdEFzc2V0SWRCCAULJHQwOTE1OTkyMzcCXzIDCQEBIQEJAQ9jb250YWluc0VsZW1lbnQCCQDMCAIFDGFkbWluUHViS2V5MQkAzAgCBQxhZG1pblB1YktleTIJAMwIAgUMYWRtaW5QdWJLZXkzCQDMCAIFEWFkbWluSW52b2tlUHViS2V5BQNuaWwIBQFpFW9yaWdpbkNhbGxlclB1YmxpY0tleQkAAgECIU9ubHkgYWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgMJAQIhPQIJAJADAQUEYXJncwABCQACAQIPV3JvbmcgYXJncyBzaXplAwkBCWlzRGVmaW5lZAEJAJsIAgUGY2FsbGVyBQdrQWN0aXZlCQACAQIWREFwcCBpcyBhbHJlYWR5IGFjdGl2ZQMJAAACBQtwbXRBc3NldElkQQULcG10QXNzZXRJZEIJAAIBAhhBc3NldHMgbXVzdCBiZSBkaWZmZXJlbnQECyR0MDk2NzI5NzQ5CQEMZ2V0QXNzZXRJbmZvAQULcG10QXNzZXRJZEEEDnBtdFN0ckFzc2V0SWRBCAULJHQwOTY3Mjk3NDkCXzEEDXBtdEFzc2V0TmFtZUEIBQskdDA5NjcyOTc0OQJfMgQMcG10RGVjaW1hbHNBCAULJHQwOTY3Mjk3NDkCXzMECyR0MDk3NTg5ODM1CQEMZ2V0QXNzZXRJbmZvAQULcG10QXNzZXRJZEIEDnBtdFN0ckFzc2V0SWRCCAULJHQwOTc1ODk4MzUCXzEEDXBtdEFzc2V0TmFtZUIIBQskdDA5NzU4OTgzNQJfMgQMcG10RGVjaW1hbHNCCAULJHQwOTc1ODk4MzUCXzMEDGZpcnN0SGFydmVzdAkAAAIJAJEDAgUEYXJncwAAAgR0cnVlBAlzaGFyZU5hbWUJAKwCAgkArAICCQCsAgICAXMJAK8CAgUNcG10QXNzZXROYW1lQQAHAgFfCQCvAgIFDXBtdEFzc2V0TmFtZUIABwQQc2hhcmVEZXNjcmlwdGlvbgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICIlNoYXJlVG9rZW4gb2YgU3dvcEZpIHByb3RvY29sIGZvciAFDXBtdEFzc2V0TmFtZUECBSBhbmQgBQ1wbXRBc3NldE5hbWVCAgwgYXQgYWRkcmVzcyAJAKUIAQUEdGhpcwQNc2hhcmVEZWNpbWFscwkAaQIJAGQCBQxwbXREZWNpbWFsc0EFDHBtdERlY2ltYWxzQgACBARhcmcxCQBsBgUKcG10QW1vdW50QQUMcG10RGVjaW1hbHNBAAUAAQUMcG10RGVjaW1hbHNBBQRET1dOBARhcmcyCQBsBgUKcG10QW1vdW50QgUMcG10RGVjaW1hbHNCAAUAAQUMcG10RGVjaW1hbHNCBQRET1dOBARhcmczCQBsBgAKAAAFDXNoYXJlRGVjaW1hbHMAAAAABQRET1dOBBJzaGFyZUluaXRpYWxTdXBwbHkJAGsDBQRhcmcxBQRhcmcyBQRhcmczBApzaGFyZUlzc3VlCQDCCAUFCXNoYXJlTmFtZQUQc2hhcmVEZXNjcmlwdGlvbgUSc2hhcmVJbml0aWFsU3VwcGx5BQ1zaGFyZURlY2ltYWxzBgQMc2hhcmVJc3N1ZUlkCQC4CAEFCnNoYXJlSXNzdWUEBnN0YWtlMQMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFDnBtdFN0ckFzc2V0SWRBCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIGCQDMCAIFCnBtdEFtb3VudEEJAMwIAgUOcG10U3RyQXNzZXRJZEEFA25pbAUDbmlsAAADCQAAAgUGc3Rha2UxBQZzdGFrZTEEBnN0YWtlMgMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFDnBtdFN0ckFzc2V0SWRCCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIGCQDMCAIFCnBtdEFtb3VudEIJAMwIAgUOcG10U3RyQXNzZXRJZEIFA25pbAUDbmlsAAADCQAAAgUGc3Rha2UyBQZzdGFrZTIECWJhc2VFbnRyeQkAzAgCCQELU3RyaW5nRW50cnkCBQhrVmVyc2lvbgUHdmVyc2lvbgkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHa0FjdGl2ZQYJAMwIAgkBC1N0cmluZ0VudHJ5AgUJa0Fzc2V0SWRBBQ5wbXRTdHJBc3NldElkQQkAzAgCCQELU3RyaW5nRW50cnkCBQlrQXNzZXRJZEIFDnBtdFN0ckFzc2V0SWRCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrQmFsYW5jZUEFCnBtdEFtb3VudEEJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQgUKcG10QW1vdW50QgkAzAgCCQEMSW50ZWdlckVudHJ5AgUEa0ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgUGb3JhY2xlAg1iYXNlX2ZlZV9jcG1tCQDMCAIFCnNoYXJlSXNzdWUJAMwIAgkBC1N0cmluZ0VudHJ5AgUNa1NoYXJlQXNzZXRJZAkA2AQBBQxzaGFyZUlzc3VlSWQJAMwIAgkBDEludGVnZXJFbnRyeQIFEWtTaGFyZUFzc2V0U3VwcGx5BRJzaGFyZUluaXRpYWxTdXBwbHkJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBRJzaGFyZUluaXRpYWxTdXBwbHkFDHNoYXJlSXNzdWVJZAUDbmlsAwUMZmlyc3RIYXJ2ZXN0CQCUCgIFA25pbAkAlAoCCQDOCAIFCWJhc2VFbnRyeQkAzAgCCQEMQm9vbGVhbkVudHJ5AgUNa0ZpcnN0SGFydmVzdAUMZmlyc3RIYXJ2ZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNrRmlyc3RIYXJ2ZXN0SGVpZ2h0CQBkAgULc3RhcnRIZWlnaHQJAGgCBRVmaXJzdEhhcnZlc3RFbmRQZXJpb2QFDHBlcmlvZExlbmd0aAUDbmlsBQNuaWwJAJQKAgUDbmlsCQCUCgIFCWJhc2VFbnRyeQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEWluaXRXaXRoSW5pdFJhdGlvBAtjYWxsZXJCeXRlcwRhcmdzCHBBbW91bnRzCXBBc3NldElkcwQGY2FsbGVyCQEHQWRkcmVzcwEFC2NhbGxlckJ5dGVzBA0kdDAxMjA1NjEyMjU2CQCXCgUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRhcmdzAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRhcmdzAAEJAJEDAgUEYXJncwACCQCRAwIFBGFyZ3MAAwkAAAIJAJEDAgUEYXJncwAEAgR0cnVlBAlhbXRBc3NldEEIBQ0kdDAxMjA1NjEyMjU2Al8xBAlhbXRBc3NldEIIBQ0kdDAxMjA1NjEyMjU2Al8yBAthc3NldElkQVN0cggFDSR0MDEyMDU2MTIyNTYCXzMEC2Fzc2V0SWRCU3RyCAUNJHQwMTIwNTYxMjI1NgJfNAQMZmlyc3RIYXJ2ZXN0CAUNJHQwMTIwNTYxMjI1NgJfNQMJAQEhAQkBD2NvbnRhaW5zRWxlbWVudAIJAMwIAgUMYWRtaW5QdWJLZXkxCQDMCAIFDGFkbWluUHViS2V5MgkAzAgCBQxhZG1pblB1YktleTMJAMwIAgURYWRtaW5JbnZva2VQdWJLZXkFA25pbAgFAWkVb3JpZ2luQ2FsbGVyUHVibGljS2V5CQACAQIhT25seSBhZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkBAiE9AgkAkAMBBQRhcmdzAAUJAAIBAg9Xcm9uZyBhcmdzIHNpemUDCQEJaXNEZWZpbmVkAQkAmwgCBQZjYWxsZXIFB2tBY3RpdmUJAAIBAhZEQXBwIGlzIGFscmVhZHkgYWN0aXZlAwkAAAIFC2Fzc2V0SWRBU3RyBQthc3NldElkQlN0cgkAAgECGEFzc2V0cyBtdXN0IGJlIGRpZmZlcmVudAQNJHQwMTI2OTExMjc2OAkBDGdldEFzc2V0SW5mbwEFC2Fzc2V0SWRBU3RyBA5wbXRTdHJBc3NldElkQQgFDSR0MDEyNjkxMTI3NjgCXzEEDXBtdEFzc2V0TmFtZUEIBQ0kdDAxMjY5MTEyNzY4Al8yBAxwbXREZWNpbWFsc0EIBQ0kdDAxMjY5MTEyNzY4Al8zBA0kdDAxMjc3NzEyODU0CQEMZ2V0QXNzZXRJbmZvAQULYXNzZXRJZEJTdHIEDnBtdFN0ckFzc2V0SWRCCAUNJHQwMTI3NzcxMjg1NAJfMQQNcG10QXNzZXROYW1lQggFDSR0MDEyNzc3MTI4NTQCXzIEDHBtdERlY2ltYWxzQggFDSR0MDEyNzc3MTI4NTQCXzMECXNoYXJlTmFtZQkArAICCQCsAgIJAKwCAgIBcwkArwICBQ1wbXRBc3NldE5hbWVBAAcCAV8JAK8CAgUNcG10QXNzZXROYW1lQgAHBBBzaGFyZURlc2NyaXB0aW9uCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIiU2hhcmVUb2tlbiBvZiBTd29wRmkgcHJvdG9jb2wgZm9yIAUNcG10QXNzZXROYW1lQQIFIGFuZCAFDXBtdEFzc2V0TmFtZUICDCBhdCBhZGRyZXNzIAkApQgBBQR0aGlzBA1zaGFyZURlY2ltYWxzCQBpAgkAZAIFDHBtdERlY2ltYWxzQQUMcG10RGVjaW1hbHNCAAIEEnNoYXJlSW5pdGlhbFN1cHBseQAABApzaGFyZUlzc3VlCQDCCAUFCXNoYXJlTmFtZQUQc2hhcmVEZXNjcmlwdGlvbgUSc2hhcmVJbml0aWFsU3VwcGx5BQ1zaGFyZURlY2ltYWxzBgQMc2hhcmVJc3N1ZUlkCQC4CAEFCnNoYXJlSXNzdWUECWJhc2VFbnRyeQkAzAgCCQELU3RyaW5nRW50cnkCBQhrVmVyc2lvbgUHdmVyc2lvbgkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHa0FjdGl2ZQYJAMwIAgkBC1N0cmluZ0VudHJ5AgUJa0Fzc2V0SWRBBQ5wbXRTdHJBc3NldElkQQkAzAgCCQELU3RyaW5nRW50cnkCBQlrQXNzZXRJZEIFDnBtdFN0ckFzc2V0SWRCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ1rQmFsYW5jZUluaXRBBQlhbXRBc3NldEEJAMwIAgkBDEludGVnZXJFbnRyeQIFDWtCYWxhbmNlSW5pdEIFCWFtdEFzc2V0QgkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa0JhbGFuY2VBAAAJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQgAACQDMCAIJAQxJbnRlZ2VyRW50cnkCBQRrRmVlCQERQGV4dHJOYXRpdmUoMTA1MCkCBQZvcmFjbGUCDWJhc2VfZmVlX2NwbW0JAMwIAgUKc2hhcmVJc3N1ZQkAzAgCCQELU3RyaW5nRW50cnkCBQ1rU2hhcmVBc3NldElkCQDYBAEFDHNoYXJlSXNzdWVJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgURa1NoYXJlQXNzZXRTdXBwbHkFEnNoYXJlSW5pdGlhbFN1cHBseQUDbmlsAwUMZmlyc3RIYXJ2ZXN0CQCUCgIFA25pbAkAlAoCCQDOCAIFCWJhc2VFbnRyeQkAzAgCCQEMQm9vbGVhbkVudHJ5AgUNa0ZpcnN0SGFydmVzdAUMZmlyc3RIYXJ2ZXN0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNrRmlyc3RIYXJ2ZXN0SGVpZ2h0CQBkAgULc3RhcnRIZWlnaHQJAGgCBRVmaXJzdEhhcnZlc3RFbmRQZXJpb2QFDHBlcmlvZExlbmd0aAUDbmlsBQNuaWwJAJQKAgUDbmlsCQCUCgIFCWJhc2VFbnRyeQUDbmlsAWkBGGtlZXBMaW1pdEZvckZpcnN0SGFydmVzdAQLY2FsbGVyQnl0ZXMEYXJncwhwQW1vdW50cwlwQXNzZXRJZHMJAQt2YWx1ZU9yRWxzZQIJAQxpc09yYWNsZVBvb2wBCQClCAEIBQFpBmNhbGxlcgkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAMJAQEhAQkBD2NvbnRhaW5zRWxlbWVudAIJAMwIAgUMYWRtaW5QdWJLZXkxCQDMCAIFDGFkbWluUHViS2V5MgkAzAgCBQxhZG1pblB1YktleTMJAMwIAgURYWRtaW5JbnZva2VQdWJLZXkFA25pbAgFAWkVb3JpZ2luQ2FsbGVyUHVibGljS2V5CQACAQIhT25seSBhZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkBAiE9AgkAkAMBBQRhcmdzAAEJAAIBAg9Xcm9uZyBhcmdzIHNpemUECnNoYXJlTGltaXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRhcmdzAAAJAJQKAgUDbmlsCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFC2tTaGFyZUxpbWl0BQpzaGFyZUxpbWl0BQNuaWwFA25pbAFpAQhleGNoYW5nZQQLY2FsbGVyQnl0ZXMEYXJncwhwQW1vdW50cwlwQXNzZXRJZHMJAQt2YWx1ZU9yRWxzZQIJAQxpc09yYWNsZVBvb2wBCQClCAEIBQFpBmNhbGxlcgkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAQGY2FsbGVyCQEHQWRkcmVzcwEFC2NhbGxlckJ5dGVzBA0kdDAxNTI0MDE1MzE2CQCUCgIJAJEDAgUIcEFtb3VudHMAAAkBEXBhcnNlUGF5bWVudEFzc2V0AQkAkQMCBQlwQXNzZXRJZHMAAAQJcG10QW1vdW50CAUNJHQwMTUyNDAxNTMxNgJfMQQKcG10QXNzZXRJZAgFDSR0MDE1MjQwMTUzMTYCXzIEEm1pbkFtb3VudFRvUmVjZWl2ZQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGFyZ3MAAAQNJHQwMTUzODkxNTQ2NQkBDWdldFBvb2xBc3NldHMBCAUBaQZjYWxsZXIEC3N0ckFzc2V0SWRBCAUNJHQwMTUzODkxNTQ2NQJfMQQLc3RyQXNzZXRJZEIIBQ0kdDAxNTM4OTE1NDY1Al8yBAhhc3NldElkQQgFDSR0MDE1Mzg5MTU0NjUCXzMECGFzc2V0SWRCCAUNJHQwMTUzODkxNTQ2NQJfNAQNJHQwMTU0NzgxNTU4NAkBD2dldFBvb2xCYWxhbmNlcwMIBQFpBmNhbGxlcgUIYXNzZXRJZEEFCGFzc2V0SWRCBAhiYWxhbmNlQQgFDSR0MDE1NDc4MTU1ODQCXzEECGJhbGFuY2VCCAUNJHQwMTU0NzgxNTU4NAJfMgQPYWNjb3VudEJhbGFuY2VBCAUNJHQwMTU0NzgxNTU4NAJfMwQPYWNjb3VudEJhbGFuY2VCCAUNJHQwMTU0NzgxNTU4NAJfNAMJAQIhPQIJAJADAQUEYXJncwABCQACAQIPV3JvbmcgYXJncyBzaXplAwMJAAACBQhiYWxhbmNlQQAABgkAAAIFCGJhbGFuY2VCAAAJAAIBAiBDYW4ndCBleGNoYW5nZSB3aXRoIHplcm8gYmFsYW5jZQMJAGcCAAAFEm1pbkFtb3VudFRvUmVjZWl2ZQkAAgEJAKwCAgI0TWluaW1hbCBhbW91bnQgdG8gcmVjZWl2ZSBtdXN0IGJlIHBvc2l0aXZlLiBBY3R1YWw6IAkApAMBBRJtaW5BbW91bnRUb1JlY2VpdmUDCQECIT0CCQCQAwEFCHBBbW91bnRzAAEJAAIBAh1PbmUgYXR0YWNoZWQgcGF5bWVudCBleHBlY3RlZAMJAQEhAQkBD2NvbnRhaW5zRWxlbWVudAIJAMwIAgUIYXNzZXRJZEEJAMwIAgUIYXNzZXRJZEIFA25pbAUKcG10QXNzZXRJZAkAAgEJAKwCAgkArAICCQCsAgICJEluY29ycmVjdCBhc3NldCBhdHRhY2hlZC4gRXhwZWN0ZWQ6IAULc3RyQXNzZXRJZEECBCBvciAFC3N0ckFzc2V0SWRCAwMJAGYCBQhiYWxhbmNlQQUPYWNjb3VudEJhbGFuY2VBBgkAZgIFCGJhbGFuY2VCBQ9hY2NvdW50QmFsYW5jZUIJAJQKAgUDbmlsCQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQlwbXRBbW91bnQFCnBtdEFzc2V0SWQFA25pbAkBEXN1c3BlbmRTdXNwaWNpb3VzBgUPYWNjb3VudEJhbGFuY2VBBQ9hY2NvdW50QmFsYW5jZUIFCGJhbGFuY2VBBQhiYWxhbmNlQgULc3RyQXNzZXRJZEEFC3N0ckFzc2V0SWRCBA0kdDAxNjU1MjE2NjEwCQEMZ2V0RmVlUGFyYW1zAggFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIEA2ZlZQgFDSR0MDE2NTUyMTY2MTACXzEEBmdvdkZlZQgFDSR0MDE2NTUyMTY2MTACXzIEDSR0MDE2NjI3MTY5NjQDCQAAAgUKcG10QXNzZXRJZAUIYXNzZXRJZEEJAQ1jYWxjdWxhdGVGZWVzBgUJcG10QW1vdW50BRJtaW5BbW91bnRUb1JlY2VpdmUFCGJhbGFuY2VBBQhiYWxhbmNlQgUDZmVlBQZnb3ZGZWUJAQ1jYWxjdWxhdGVGZWVzBgUJcG10QW1vdW50BRJtaW5BbW91bnRUb1JlY2VpdmUFCGJhbGFuY2VCBQhiYWxhbmNlQQUDZmVlBQZnb3ZGZWUEEGFtb3VudFdpdGhvdXRGZWUIBQ0kdDAxNjYyNzE2OTY0Al8xBA1hbW91bnRXaXRoRmVlCAUNJHQwMTY2MjcxNjk2NAJfMgQQZ292ZXJuYW5jZVJld2FyZAgFDSR0MDE2NjI3MTY5NjQCXzMEDSR0MDE2OTgyMTczMDcDCQAAAgUKcG10QXNzZXRJZAUIYXNzZXRJZEEJAJUKAwkAZAIFCGJhbGFuY2VBBQlwbXRBbW91bnQJAGUCCQBlAgUIYmFsYW5jZUIFDWFtb3VudFdpdGhGZWUFEGdvdmVybmFuY2VSZXdhcmQFCGFzc2V0SWRCCQCVCgMJAGUCCQBlAgUIYmFsYW5jZUEFDWFtb3VudFdpdGhGZWUFEGdvdmVybmFuY2VSZXdhcmQJAGQCBQhiYWxhbmNlQgUJcG10QW1vdW50BQhhc3NldElkQQQLbmV3QmFsYW5jZUEIBQ0kdDAxNjk4MjE3MzA3Al8xBAtuZXdCYWxhbmNlQggFDSR0MDE2OTgyMTczMDcCXzIEC2Fzc2V0SWRTZW5kCAUNJHQwMTY5ODIxNzMwNwJfMwQNJHQwMTczMjUxNzU3NQMJAAACBQpwbXRBc3NldElkBQhhc3NldElkQQkAlAoCBQlwbXRBbW91bnQJAGQCBQ1hbW91bnRXaXRoRmVlBRBnb3Zlcm5hbmNlUmV3YXJkCQCUCgIJAGQCBQ1hbW91bnRXaXRoRmVlBRBnb3Zlcm5hbmNlUmV3YXJkBQlwbXRBbW91bnQEDHN0YWtlQW1vdW50QQgFDSR0MDE3MzI1MTc1NzUCXzEEDHN0YWtlQW1vdW50QggFDSR0MDE3MzI1MTc1NzUCXzIEBnN0YWtlMQMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFC3N0ckFzc2V0SWRBCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIJAAACBQpwbXRBc3NldElkBQhhc3NldElkQQkAzAgCBQxzdGFrZUFtb3VudEEJAMwIAgULc3RyQXNzZXRJZEEFA25pbAUDbmlsAAADCQAAAgUGc3Rha2UxBQZzdGFrZTEEBnN0YWtlMgMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFC3N0ckFzc2V0SWRCCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIJAAACBQpwbXRBc3NldElkBQhhc3NldElkQgkAzAgCBQxzdGFrZUFtb3VudEIJAMwIAgULc3RyQXNzZXRJZEIFA25pbAUDbmlsAAADCQAAAgUGc3Rha2UyBQZzdGFrZTIJAJQKAgUDbmlsCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQQULbmV3QmFsYW5jZUEJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQgULbmV3QmFsYW5jZUIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQ1hbW91bnRXaXRoRmVlBQthc3NldElkU2VuZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQ9tb25leUJveEFkZHJlc3MFEGdvdmVybmFuY2VSZXdhcmQFC2Fzc2V0SWRTZW5kBQNuaWwJAMwIAgUNYW1vdW50V2l0aEZlZQkAzAgCBQthc3NldElkU2VuZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFnJlcGxlbmlzaFdpdGhUd29Ub2tlbnMEC2NhbGxlckJ5dGVzBGFyZ3MIcEFtb3VudHMJcEFzc2V0SWRzCQELdmFsdWVPckVsc2UCCQEMaXNPcmFjbGVQb29sAQkApQgBCAUBaQZjYWxsZXIJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAEBmNhbGxlcgkBB0FkZHJlc3MBBQtjYWxsZXJCeXRlcwQLcG10QXNzZXRJZEEJARFwYXJzZVBheW1lbnRBc3NldAEJAJEDAgUJcEFzc2V0SWRzAAAEC3BtdEFzc2V0SWRCCQERcGFyc2VQYXltZW50QXNzZXQBCQCRAwIFCXBBc3NldElkcwABBAxzdGFrZUZhcm1pbmcJAAACCQCRAwIFBGFyZ3MAAAIEdHJ1ZQQIbG9ja1R5cGUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRhcmdzAAEEDSR0MDE4ODM4MTg5MjgJAQ1nZXRQb29sQXNzZXRzAQgFAWkGY2FsbGVyBAtzdHJBc3NldElkQQgFDSR0MDE4ODM4MTg5MjgCXzEEC3N0ckFzc2V0SWRCCAUNJHQwMTg4MzgxODkyOAJfMgQIYXNzZXRJZEEIBQ0kdDAxODgzODE4OTI4Al8zBAhhc3NldElkQggFDSR0MDE4ODM4MTg5MjgCXzQEDHNoYXJlQXNzZXRJZAgFDSR0MDE4ODM4MTg5MjgCXzUEDSR0MDE4OTQxMTkwNjUJAQ9nZXRQb29sQmFsYW5jZXMDCAUBaQZjYWxsZXIFCGFzc2V0SWRBBQhhc3NldElkQgQIYmFsYW5jZUEIBQ0kdDAxODk0MTE5MDY1Al8xBAhiYWxhbmNlQggFDSR0MDE4OTQxMTkwNjUCXzIED2FjY291bnRCYWxhbmNlQQgFDSR0MDE4OTQxMTkwNjUCXzMED2FjY291bnRCYWxhbmNlQggFDSR0MDE4OTQxMTkwNjUCXzQEEHNoYXJlQXNzZXRTdXBwbHkIBQ0kdDAxODk0MTE5MDY1Al81AwkBAiE9AgkAkAMBBQRhcmdzAAIJAAIBAg9Xcm9uZyBhcmdzIHNpemUDAwkBAiE9AgkAkAMBBQhwQW1vdW50cwACCQECIT0CCQCQAwEFCHBBbW91bnRzAAMHCQACAQIeVHdvIG9yIHRocmVlIHBheW1lbnRzIGV4cGVjdGVkAwMJAQIhPQIFC3BtdEFzc2V0SWRBBQhhc3NldElkQQYJAQIhPQIFC3BtdEFzc2V0SWRCBQhhc3NldElkQgkAAgEJAKwCAgkArAICCQCsAgICJUluY29ycmVjdCBhc3NldHMgYXR0YWNoZWQuIEV4cGVjdGVkOiAFC3N0ckFzc2V0SWRBAgUgYW5kIAULc3RyQXNzZXRJZEIDAwkAZgIFCGJhbGFuY2VBBQ9hY2NvdW50QmFsYW5jZUEGCQBmAgUIYmFsYW5jZUIFD2FjY291bnRCYWxhbmNlQgkAlAoCBQNuaWwJAM4IAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIJAJEDAgUIcEFtb3VudHMAAAULcG10QXNzZXRJZEEJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyCQCRAwIFCHBBbW91bnRzAAEFC3BtdEFzc2V0SWRCBQNuaWwDCQAAAgkAkAMBBQhwQW1vdW50cwADCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCAwkAAAIJAJEDAgUJcEFzc2V0SWRzAAIBAAUEdW5pdAkAkQMCBQlwQXNzZXRJZHMAAgkAkQMCBQhwQW1vdW50cwACBQNuaWwJAM4IAgUDbmlsCQERc3VzcGVuZFN1c3BpY2lvdXMGBQ9hY2NvdW50QmFsYW5jZUEFD2FjY291bnRCYWxhbmNlQgUIYmFsYW5jZUEFCGJhbGFuY2VCBQtzdHJBc3NldElkQQULc3RyQXNzZXRJZEIEDSR0MDIwMDY2MjAxNDMJAQxnZXRBc3NldEluZm8BBQtwbXRBc3NldElkQQQOcG10U3RyQXNzZXRJZEEIBQ0kdDAyMDA2NjIwMTQzAl8xBA1wbXRBc3NldE5hbWVBCAUNJHQwMjAwNjYyMDE0MwJfMgQMcG10RGVjaW1hbHNBCAUNJHQwMjAwNjYyMDE0MwJfMwQNJHQwMjAxNjAyMDIzNwkBDGdldEFzc2V0SW5mbwEFC3BtdEFzc2V0SWRCBA5wbXRTdHJBc3NldElkQggFDSR0MDIwMTYwMjAyMzcCXzEEDXBtdEFzc2V0TmFtZUIIBQ0kdDAyMDE2MDIwMjM3Al8yBAxwbXREZWNpbWFsc0IIBQ0kdDAyMDE2MDIwMjM3Al8zBAdpbml0aWFsCQAAAgkAZAIFCGJhbGFuY2VBBQhiYWxhbmNlQgAABA0kdDAyMDMxMjIxMTU1AwUHaW5pdGlhbAkAlwoFCQCRAwIFCHBBbW91bnRzAAAJAJEDAgUIcEFtb3VudHMAAQAABQtwbXRBc3NldElkQQABBBNyYXRpb1NoYXJlVG9rZW5zSW5BCQBrAwUGc2NhbGU4CQCRAwIFCHBBbW91bnRzAAAFCGJhbGFuY2VBBBNyYXRpb1NoYXJlVG9rZW5zSW5CCQBrAwUGc2NhbGU4CQCRAwIFCHBBbW91bnRzAAEFCGJhbGFuY2VCAwkAZgIFE3JhdGlvU2hhcmVUb2tlbnNJbkIFE3JhdGlvU2hhcmVUb2tlbnNJbkEEA3BtdAkAawMJAJEDAgUIcEFtb3VudHMAAAUIYmFsYW5jZUIFCGJhbGFuY2VBCQCXCgUJAJEDAgUIcEFtb3VudHMAAAUDcG10CQBlAgkAkQMCBQhwQW1vdW50cwABBQNwbXQFC3BtdEFzc2V0SWRCBRNyYXRpb1NoYXJlVG9rZW5zSW5BBANwbXQJAGsDCQCRAwIFCHBBbW91bnRzAAEFCGJhbGFuY2VBBQhiYWxhbmNlQgkAlwoFBQNwbXQJAJEDAgUIcEFtb3VudHMAAQkAZQIJAJEDAgUIcEFtb3VudHMAAAUDcG10BQtwbXRBc3NldElkQQUTcmF0aW9TaGFyZVRva2Vuc0luQgQKcG10QW1vdW50QQgFDSR0MDIwMzEyMjExNTUCXzEECnBtdEFtb3VudEIIBQ0kdDAyMDMxMjIxMTU1Al8yBAZjaGFuZ2UIBQ0kdDAyMDMxMjIxMTU1Al8zBA1jaGFuZ2VBc3NldElkCAUNJHQwMjAzMTIyMTE1NQJfNAQPc2hhcmVUb2tlblJhdGlvCAUNJHQwMjAzMTIyMTE1NQJfNQQVc2hhcmVUb2tlblRvUGF5QW1vdW50AwUHaW5pdGlhbAQNc2hhcmVEZWNpbWFscwkAaQIJAGQCBQxwbXREZWNpbWFsc0EFDHBtdERlY2ltYWxzQgACCQBrAwkAbAYFCnBtdEFtb3VudEEFDHBtdERlY2ltYWxzQQAFAAEFDHBtdERlY2ltYWxzQQUERE9XTgkAbAYFCnBtdEFtb3VudEIFDHBtdERlY2ltYWxzQgAFAAEFDHBtdERlY2ltYWxzQgUERE9XTgkAbAYACgAABQ1zaGFyZURlY2ltYWxzAAAAAAUERE9XTgkAawMFD3NoYXJlVG9rZW5SYXRpbwUQc2hhcmVBc3NldFN1cHBseQUGc2NhbGU4AwkAAAIFFXNoYXJlVG9rZW5Ub1BheUFtb3VudAAACQACAQIdVG9vIHNtYWxsIGFtb3VudCB0byByZXBsZW5pc2gDCQBmAgAABQZjaGFuZ2UJAAIBAgpDaGFuZ2UgPCAwBAZzdGFrZTEDCQEIY29udGFpbnMCBQ1zdGFraW5nQXNzZXRzBQ5wbXRTdHJBc3NldElkQQkA/AcECAUBaQZjYWxsZXICDHN0YWtlVW5zdGFrZQkAzAgCBgkAzAgCBQpwbXRBbW91bnRBCQDMCAIFDnBtdFN0ckFzc2V0SWRBBQNuaWwFA25pbAAAAwkAAAIFBnN0YWtlMQUGc3Rha2UxBAZzdGFrZTIDCQEIY29udGFpbnMCBQ1zdGFraW5nQXNzZXRzBQ5wbXRTdHJBc3NldElkQgkA/AcECAUBaQZjYWxsZXICDHN0YWtlVW5zdGFrZQkAzAgCBgkAzAgCBQpwbXRBbW91bnRCCQDMCAIFDnBtdFN0ckFzc2V0SWRCBQNuaWwFA25pbAAAAwkAAAIFBnN0YWtlMgUGc3Rha2UyBAxzaGFyZVRva2VuU1QDBQxzdGFrZUZhcm1pbmcECnN0UGF5bWVudHMJAM4IAgkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUMc2hhcmVBc3NldElkBRVzaGFyZVRva2VuVG9QYXlBbW91bnQFA25pbAMJAAACCQCQAwEFCHBBbW91bnRzAAMJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIDCQAAAgkAkQMCBQlwQXNzZXRJZHMAAgEABQR1bml0CQCRAwIFCXBBc3NldElkcwACCQCRAwIFCHBBbW91bnRzAAIFA25pbAUDbmlsBAdyZWlzc3VlCQD8BwQIBQFpBmNhbGxlcgIRcmVpc3N1ZVNoYXJlVG9rZW4JAMwIAgUVc2hhcmVUb2tlblRvUGF5QW1vdW50BQNuaWwFA25pbAMJAAACBQdyZWlzc3VlBQdyZWlzc3VlBAZzdGFrZTMJAPwHBAUOZmFybWluZ0FkZHJlc3MCF2xvY2tTaGFyZVRva2Vuc0Zyb21Qb29sCQDMCAIFC2NhbGxlckJ5dGVzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFCGxvY2tUeXBlBQNuaWwFCnN0UGF5bWVudHMDCQAAAgUGc3Rha2UzBQZzdGFrZTMFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEHUmVpc3N1ZQMFDHNoYXJlQXNzZXRJZAUVc2hhcmVUb2tlblRvUGF5QW1vdW50BgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFFXNoYXJlVG9rZW5Ub1BheUFtb3VudAUMc2hhcmVBc3NldElkBQNuaWwJAJQKAgUDbmlsCQCUCgIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa0JhbGFuY2VBCQBkAgUIYmFsYW5jZUEFCnBtdEFtb3VudEEJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQgkAZAIFCGJhbGFuY2VCBQpwbXRBbW91bnRCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRFrU2hhcmVBc3NldFN1cHBseQkAZAIFEHNoYXJlQXNzZXRTdXBwbHkFFXNoYXJlVG9rZW5Ub1BheUFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFBmNoYW5nZQUNY2hhbmdlQXNzZXRJZAUDbmlsBQxzaGFyZVRva2VuU1QFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARVyZXBsZW5pc2hXaXRoT25lVG9rZW4EC2NhbGxlckJ5dGVzBGFyZ3MIcEFtb3VudHMJcEFzc2V0SWRzCQELdmFsdWVPckVsc2UCCQEMaXNPcmFjbGVQb29sAQkApQgBCAUBaQZjYWxsZXIJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAEBmNhbGxlcgkBB0FkZHJlc3MBBQtjYWxsZXJCeXRlcwQKcG10QXNzZXRJZAkBEXBhcnNlUGF5bWVudEFzc2V0AQkAkQMCBQlwQXNzZXRJZHMAAAQJcG10QW1vdW50CQCRAwIFCHBBbW91bnRzAAAEEHZpcnRHZXRNaW5BbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRhcmdzAAAEDHN0YWtlRmFybWluZwkAAAIJAJEDAgUEYXJncwABAgR0cnVlBAhsb2NrVHlwZQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGFyZ3MAAgQNJHQwMjQwNjAyNDE1MAkBDWdldFBvb2xBc3NldHMBCAUBaQZjYWxsZXIEC3N0ckFzc2V0SWRBCAUNJHQwMjQwNjAyNDE1MAJfMQQLc3RyQXNzZXRJZEIIBQ0kdDAyNDA2MDI0MTUwAl8yBAhhc3NldElkQQgFDSR0MDI0MDYwMjQxNTACXzMECGFzc2V0SWRCCAUNJHQwMjQwNjAyNDE1MAJfNAQMc2hhcmVBc3NldElkCAUNJHQwMjQwNjAyNDE1MAJfNQQNJHQwMjQxNjMyNDI4NwkBD2dldFBvb2xCYWxhbmNlcwMIBQFpBmNhbGxlcgUIYXNzZXRJZEEFCGFzc2V0SWRCBAhiYWxhbmNlQQgFDSR0MDI0MTYzMjQyODcCXzEECGJhbGFuY2VCCAUNJHQwMjQxNjMyNDI4NwJfMgQPYWNjb3VudEJhbGFuY2VBCAUNJHQwMjQxNjMyNDI4NwJfMwQPYWNjb3VudEJhbGFuY2VCCAUNJHQwMjQxNjMyNDI4NwJfNAQQc2hhcmVBc3NldFN1cHBseQgFDSR0MDI0MTYzMjQyODcCXzUEB2luaXRpYWwJAAACCQBkAgUIYmFsYW5jZUEFCGJhbGFuY2VCAAADCQECIT0CCQCQAwEFBGFyZ3MAAwkAAgECD1dyb25nIGFyZ3Mgc2l6ZQMDCQECIT0CCQCQAwEFCHBBbW91bnRzAAEJAQIhPQIJAJADAQUIcEFtb3VudHMAAgcJAAIBAiNUd28gb3Igb25lIGF0dGFjaGVkIGFzc2V0cyBleHBlY3RlZAMDCQECIT0CBQpwbXRBc3NldElkBQhhc3NldElkQQkBAiE9AgUKcG10QXNzZXRJZAUIYXNzZXRJZEIHCQACAQkArAICCQCsAgIJAKwCAgIkSW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkLiBFeHBlY3RlZDogBQtzdHJBc3NldElkQQIEIG9yIAULc3RyQXNzZXRJZEIDBQdpbml0aWFsCQACAQIwRm9yIGluaXRpYWwgZXhjaGFuZ2VyIHlvdSBuZWVkIHRvIHVzZSB0d28gdG9rZW5zAwMJAGYCBQhiYWxhbmNlQQUPYWNjb3VudEJhbGFuY2VBBgkAZgIFCGJhbGFuY2VCBQ9hY2NvdW50QmFsYW5jZUIJAJQKAgUDbmlsCQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQlwbXRBbW91bnQFCnBtdEFzc2V0SWQFA25pbAMJAAACCQCQAwEFCHBBbW91bnRzAAIJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIDCQAAAgkAkQMCBQlwQXNzZXRJZHMAAgEABQR1bml0CQCRAwIFCXBBc3NldElkcwACCQCRAwIFCHBBbW91bnRzAAIFA25pbAkAzggCBQNuaWwJARFzdXNwZW5kU3VzcGljaW91cwYFD2FjY291bnRCYWxhbmNlQQUPYWNjb3VudEJhbGFuY2VCBQhiYWxhbmNlQQUIYmFsYW5jZUIFC3N0ckFzc2V0SWRBBQtzdHJBc3NldElkQgQNJHQwMjUzNDMyNTQwMQkBDGdldEZlZVBhcmFtcwIIBQFpBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyBANmZWUIBQ0kdDAyNTM0MzI1NDAxAl8xBAZnb3ZGZWUIBQ0kdDAyNTM0MzI1NDAxAl8yBA0kdDAyNTQxODI3NjI0AwkAAAIFCnBtdEFzc2V0SWQFCGFzc2V0SWRBBA12aXJ0UGF5QW1vdW50CQEQY2FsY3VsYXRlVmlydFBheQMFCXBtdEFtb3VudAUIYmFsYW5jZUEFA2ZlZQQNJHQwMjU2OTcyNTgzNAkBDWNhbGN1bGF0ZUZlZXMGBQ12aXJ0UGF5QW1vdW50BRB2aXJ0R2V0TWluQW1vdW50BQhiYWxhbmNlQQUIYmFsYW5jZUIFA2ZlZQUGZ292RmVlBBBhbW91bnRXaXRob3V0RmVlCAUNJHQwMjU2OTcyNTgzNAJfMQQNYW1vdW50V2l0aEZlZQgFDSR0MDI1Njk3MjU4MzQCXzIEEGdvdmVybmFuY2VSZXdhcmQIBQ0kdDAyNTY5NzI1ODM0Al8zBAxiYWxhbmNlQVZpcnQJAGQCBQhiYWxhbmNlQQUNdmlydFBheUFtb3VudAQMYmFsYW5jZUJWaXJ0CQBlAgkAZAIFCGJhbGFuY2VCBRBhbW91bnRXaXRob3V0RmVlBRBnb3Zlcm5hbmNlUmV3YXJkBAtuZXdCYWxhbmNlQQkAZAIFCGJhbGFuY2VBBQlwbXRBbW91bnQEC25ld0JhbGFuY2VCCQBlAgUIYmFsYW5jZUIFEGdvdmVybmFuY2VSZXdhcmQEE3JhdGlvU2hhcmVUb2tlbnNJbkEJAGsDCQBlAgUJcG10QW1vdW50BQ12aXJ0UGF5QW1vdW50BQZzY2FsZTgFDGJhbGFuY2VBVmlydAQTcmF0aW9TaGFyZVRva2Vuc0luQgkAawMFDWFtb3VudFdpdGhGZWUFBnNjYWxlOAUMYmFsYW5jZUJWaXJ0BBVzaGFyZVRva2VuVG9QYXlBbW91bnQJAGsDCQCXAwEJAMwIAgUTcmF0aW9TaGFyZVRva2Vuc0luQQkAzAgCBRNyYXRpb1NoYXJlVG9rZW5zSW5CBQNuaWwFEHNoYXJlQXNzZXRTdXBwbHkFBnNjYWxlOAkAmQoHBQtuZXdCYWxhbmNlQQULbmV3QmFsYW5jZUIFFXNoYXJlVG9rZW5Ub1BheUFtb3VudAUQZ292ZXJuYW5jZVJld2FyZAUIYXNzZXRJZEIFC3N0ckFzc2V0SWRCBQtzdHJBc3NldElkQQQNdmlydFBheUFtb3VudAkBEGNhbGN1bGF0ZVZpcnRQYXkDBQlwbXRBbW91bnQFCGJhbGFuY2VCBQNmZWUEDSR0MDI2NzI5MjY4NjYJAQ1jYWxjdWxhdGVGZWVzBgUNdmlydFBheUFtb3VudAUQdmlydEdldE1pbkFtb3VudAUIYmFsYW5jZUIFCGJhbGFuY2VBBQNmZWUFBmdvdkZlZQQQYW1vdW50V2l0aG91dEZlZQgFDSR0MDI2NzI5MjY4NjYCXzEEDWFtb3VudFdpdGhGZWUIBQ0kdDAyNjcyOTI2ODY2Al8yBBBnb3Zlcm5hbmNlUmV3YXJkCAUNJHQwMjY3MjkyNjg2NgJfMwQMYmFsYW5jZUFWaXJ0CQBlAgkAZAIFCGJhbGFuY2VBBRBhbW91bnRXaXRob3V0RmVlBRBnb3Zlcm5hbmNlUmV3YXJkBAxiYWxhbmNlQlZpcnQJAGQCBQhiYWxhbmNlQgUNdmlydFBheUFtb3VudAQLbmV3QmFsYW5jZUEJAGUCBQhiYWxhbmNlQQUQZ292ZXJuYW5jZVJld2FyZAQLbmV3QmFsYW5jZUIJAGQCBQhiYWxhbmNlQgUJcG10QW1vdW50BBNyYXRpb1NoYXJlVG9rZW5zSW5BCQBrAwUNYW1vdW50V2l0aEZlZQUGc2NhbGU4BQxiYWxhbmNlQVZpcnQEE3JhdGlvU2hhcmVUb2tlbnNJbkIJAGsDCQBlAgUJcG10QW1vdW50BQ12aXJ0UGF5QW1vdW50BQZzY2FsZTgFDGJhbGFuY2VCVmlydAQVc2hhcmVUb2tlblRvUGF5QW1vdW50CQBrAwkAlwMBCQDMCAIFE3JhdGlvU2hhcmVUb2tlbnNJbkEJAMwIAgUTcmF0aW9TaGFyZVRva2Vuc0luQgUDbmlsBRBzaGFyZUFzc2V0U3VwcGx5BQZzY2FsZTgJAJkKBwULbmV3QmFsYW5jZUEFC25ld0JhbGFuY2VCBRVzaGFyZVRva2VuVG9QYXlBbW91bnQFEGdvdmVybmFuY2VSZXdhcmQFCGFzc2V0SWRBBQtzdHJBc3NldElkQQULc3RyQXNzZXRJZEIEC25ld0JhbGFuY2VBCAUNJHQwMjU0MTgyNzYyNAJfMQQLbmV3QmFsYW5jZUIIBQ0kdDAyNTQxODI3NjI0Al8yBBVzaGFyZVRva2VuVG9QYXlBbW91bnQIBQ0kdDAyNTQxODI3NjI0Al8zBAlnb3ZSZXdhcmQIBQ0kdDAyNTQxODI3NjI0Al80BA5nb3ZSZXdhcmRBc3NldAgFDSR0MDI1NDE4Mjc2MjQCXzUEEWdvdlJld2FyZEFzc2V0U3RyCAUNJHQwMjU0MTgyNzYyNAJfNgQNcG10QXNzZXRJZFN0cggFDSR0MDI1NDE4Mjc2MjQCXzcDCQAAAgUVc2hhcmVUb2tlblRvUGF5QW1vdW50AAAJAAIBAh1Ub28gc21hbGwgYW1vdW50IHRvIHJlcGxlbmlzaAQGc3Rha2UxAwkBCGNvbnRhaW5zAgUNc3Rha2luZ0Fzc2V0cwUNcG10QXNzZXRJZFN0cgkA/AcECAUBaQZjYWxsZXICDHN0YWtlVW5zdGFrZQkAzAgCBgkAzAgCBQlwbXRBbW91bnQJAMwIAgUNcG10QXNzZXRJZFN0cgUDbmlsBQNuaWwAAAMJAAACBQZzdGFrZTEFBnN0YWtlMQQGc3Rha2UyAwkBCGNvbnRhaW5zAgUNc3Rha2luZ0Fzc2V0cwURZ292UmV3YXJkQXNzZXRTdHIJAPwHBAgFAWkGY2FsbGVyAgxzdGFrZVVuc3Rha2UJAMwIAgcJAMwIAgUJZ292UmV3YXJkCQDMCAIFEWdvdlJld2FyZEFzc2V0U3RyBQNuaWwFA25pbAAAAwkAAAIFBnN0YWtlMgUGc3Rha2UyBAxzaGFyZVRva2VuU1QDBQxzdGFrZUZhcm1pbmcECnN0UGF5bWVudHMJAM4IAgkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUMc2hhcmVBc3NldElkBRVzaGFyZVRva2VuVG9QYXlBbW91bnQFA25pbAMJAAACCQCQAwEFCHBBbW91bnRzAAIJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIDCQAAAgkAkQMCBQlwQXNzZXRJZHMAAQEABQR1bml0CQCRAwIFCXBBc3NldElkcwABCQCRAwIFCHBBbW91bnRzAAEFA25pbAUDbmlsBAdyZWlzc3VlCQD8BwQIBQFpBmNhbGxlcgIRcmVpc3N1ZVNoYXJlVG9rZW4JAMwIAgUVc2hhcmVUb2tlblRvUGF5QW1vdW50BQNuaWwFA25pbAMJAAACBQdyZWlzc3VlBQdyZWlzc3VlBAZzdGFrZTMJAPwHBAUOZmFybWluZ0FkZHJlc3MCF2xvY2tTaGFyZVRva2Vuc0Zyb21Qb29sCQDMCAIFC2NhbGxlckJ5dGVzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFCGxvY2tUeXBlBQNuaWwFCnN0UGF5bWVudHMDCQAAAgUGc3Rha2UzBQZzdGFrZTMFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEHUmVpc3N1ZQMFDHNoYXJlQXNzZXRJZAUVc2hhcmVUb2tlblRvUGF5QW1vdW50BgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFFXNoYXJlVG9rZW5Ub1BheUFtb3VudAUMc2hhcmVBc3NldElkBQNuaWwJAJQKAgUDbmlsCQCUCgIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa0JhbGFuY2VBBQtuZXdCYWxhbmNlQQkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa0JhbGFuY2VCBQtuZXdCYWxhbmNlQgkAzAgCCQEMSW50ZWdlckVudHJ5AgURa1NoYXJlQXNzZXRTdXBwbHkJAGQCBRBzaGFyZUFzc2V0U3VwcGx5BRVzaGFyZVRva2VuVG9QYXlBbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPbW9uZXlCb3hBZGRyZXNzBQlnb3ZSZXdhcmQFDmdvdlJld2FyZEFzc2V0BQNuaWwFDHNoYXJlVG9rZW5TVAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCHdpdGhkcmF3BAtjYWxsZXJCeXRlcwRhcmdzCHBBbW91bnRzCXBBc3NldElkcwkBC3ZhbHVlT3JFbHNlAgkBDGlzT3JhY2xlUG9vbAEJAKUIAQgFAWkGY2FsbGVyCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAR0aW1lCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQGY2FsbGVyCQEHQWRkcmVzcwEFC2NhbGxlckJ5dGVzBA0kdDAyOTc3ODI5ODY4CQENZ2V0UG9vbEFzc2V0cwEIBQFpBmNhbGxlcgQLc3RyQXNzZXRJZEEIBQ0kdDAyOTc3ODI5ODY4Al8xBAtzdHJBc3NldElkQggFDSR0MDI5Nzc4Mjk4NjgCXzIECGFzc2V0SWRBCAUNJHQwMjk3NzgyOTg2OAJfMwQIYXNzZXRJZEIIBQ0kdDAyOTc3ODI5ODY4Al80BAxzaGFyZUFzc2V0SWQIBQ0kdDAyOTc3ODI5ODY4Al81BA0kdDAyOTg4MTMwMDA1CQEPZ2V0UG9vbEJhbGFuY2VzAwgFAWkGY2FsbGVyBQhhc3NldElkQQUIYXNzZXRJZEIECGJhbGFuY2VBCAUNJHQwMjk4ODEzMDAwNQJfMQQIYmFsYW5jZUIIBQ0kdDAyOTg4MTMwMDA1Al8yBA9hY2NvdW50QmFsYW5jZUEIBQ0kdDAyOTg4MTMwMDA1Al8zBA9hY2NvdW50QmFsYW5jZUIIBQ0kdDAyOTg4MTMwMDA1Al80BBBzaGFyZUFzc2V0U3VwcGx5CAUNJHQwMjk4ODEzMDAwNQJfNQQNJHQwMzAwMTgzMDQyNgMJAAACCQCQAwEFCHBBbW91bnRzAAEEBnBBc3NldAkBEXBhcnNlUGF5bWVudEFzc2V0AQkAkQMCBQlwQXNzZXRJZHMAAAMJAQIhPQIFBnBBc3NldAUMc2hhcmVBc3NldElkCQACAQkArAICAiRJbmNvcnJlY3QgYXNzZXQgYXR0YWNoZWQuIEV4cGVjdGVkOiAJANgEAQUMc2hhcmVBc3NldElkCQCUCgIJAJEDAgUIcEFtb3VudHMAAAUGcEFzc2V0CQCUCgIAAAUMc2hhcmVBc3NldElkBAlwbXRBbW91bnQIBQ0kdDAzMDAxODMwNDI2Al8xBApwbXRBc3NldElkCAUNJHQwMzAwMTgzMDQyNgJfMgMJAQIhPQIJAJADAQUEYXJncwABCQACAQIPV3JvbmcgYXJncyBzaXplAwkAZgIJAJADAQUIcEFtb3VudHMAAQkAAgECHU9uZSBhdHRhY2hlZCBwYXltZW50IGV4cGVjdGVkAwMJAGYCBQhiYWxhbmNlQQUPYWNjb3VudEJhbGFuY2VBBgkAZgIFCGJhbGFuY2VCBQ9hY2NvdW50QmFsYW5jZUIJAJQKAgUDbmlsCQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQlwbXRBbW91bnQFCnBtdEFzc2V0SWQFA25pbAkBEXN1c3BlbmRTdXNwaWNpb3VzBgUPYWNjb3VudEJhbGFuY2VBBQ9hY2NvdW50QmFsYW5jZUIFCGJhbGFuY2VBBQhiYWxhbmNlQgULc3RyQXNzZXRJZEEFC3N0ckFzc2V0SWRCBAx1bmxvY2tBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkBC3ZhbHVlT3JFbHNlAgkAkQMCBQRhcmdzAAACATAEBnVubG9jawMJAGYCBQx1bmxvY2tBbW91bnQAAAkA/AcEBQ5mYXJtaW5nQWRkcmVzcwIbd2l0aGRyYXdTaGFyZVRva2Vuc0Zyb21Qb29sCQDMCAIFC2NhbGxlckJ5dGVzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFDHVubG9ja0Ftb3VudAUDbmlsBQNuaWwAAAMJAAACBQZ1bmxvY2sFBnVubG9jawQOd2l0aGRyYXdBbW91bnQJAGQCBQlwbXRBbW91bnQFDHVubG9ja0Ftb3VudAQMYW1vdW50VG9QYXlBCQBrAwUOd2l0aGRyYXdBbW91bnQFCGJhbGFuY2VBBRBzaGFyZUFzc2V0U3VwcGx5BAxhbW91bnRUb1BheUIJAGsDBQ53aXRoZHJhd0Ftb3VudAUIYmFsYW5jZUIFEHNoYXJlQXNzZXRTdXBwbHkEBnN0YWtlMQMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFC3N0ckFzc2V0SWRBCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIHCQDMCAIFDGFtb3VudFRvUGF5QQkAzAgCBQtzdHJBc3NldElkQQUDbmlsBQNuaWwAAAMJAAACBQZzdGFrZTEFBnN0YWtlMQQGc3Rha2UyAwkBCGNvbnRhaW5zAgUNc3Rha2luZ0Fzc2V0cwULc3RyQXNzZXRJZEIJAPwHBAgFAWkGY2FsbGVyAgxzdGFrZVVuc3Rha2UJAMwIAgcJAMwIAgUMYW1vdW50VG9QYXlCCQDMCAIFC3N0ckFzc2V0SWRCBQNuaWwFA25pbAAAAwkAAAIFBnN0YWtlMgUGc3Rha2UyCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQx1bmxvY2tBbW91bnQFDHNoYXJlQXNzZXRJZAUDbmlsCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQQkAZQIFCGJhbGFuY2VBBQxhbW91bnRUb1BheUEJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQgkAZQIFCGJhbGFuY2VCBQxhbW91bnRUb1BheUIJAMwIAgkBDEludGVnZXJFbnRyeQIFEWtTaGFyZUFzc2V0U3VwcGx5CQBlAgUQc2hhcmVBc3NldFN1cHBseQUOd2l0aGRyYXdBbW91bnQJAMwIAgkBBEJ1cm4CBQxzaGFyZUFzc2V0SWQFDndpdGhkcmF3QW1vdW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUMYW1vdW50VG9QYXlBBQhhc3NldElkQQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFDGFtb3VudFRvUGF5QgUIYXNzZXRJZEIFA25pbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEHdpdGhkcmF3T25lVG9rZW4EC2NhbGxlckJ5dGVzBGFyZ3MIcEFtb3VudHMJcEFzc2V0SWRzCQELdmFsdWVPckVsc2UCCQEMaXNPcmFjbGVQb29sAQkApQgBCAUBaQZjYWxsZXIJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAEBmNhbGxlcgkBB0FkZHJlc3MBBQtjYWxsZXJCeXRlcwQNd2l0aGRyYXdBc3NldAMJAAACCQCRAwIFBGFyZ3MAAAIABQR1bml0CQDZBAEJAJEDAgUEYXJncwAABA0kdDAzMjczNzMyODI3CQENZ2V0UG9vbEFzc2V0cwEIBQFpBmNhbGxlcgQLc3RyQXNzZXRJZEEIBQ0kdDAzMjczNzMyODI3Al8xBAtzdHJBc3NldElkQggFDSR0MDMyNzM3MzI4MjcCXzIECGFzc2V0SWRBCAUNJHQwMzI3MzczMjgyNwJfMwQIYXNzZXRJZEIIBQ0kdDAzMjczNzMyODI3Al80BAxzaGFyZUFzc2V0SWQIBQ0kdDAzMjczNzMyODI3Al81BA0kdDAzMjg0MDMyOTY0CQEPZ2V0UG9vbEJhbGFuY2VzAwgFAWkGY2FsbGVyBQhhc3NldElkQQUIYXNzZXRJZEIECGJhbGFuY2VBCAUNJHQwMzI4NDAzMjk2NAJfMQQIYmFsYW5jZUIIBQ0kdDAzMjg0MDMyOTY0Al8yBA9hY2NvdW50QmFsYW5jZUEIBQ0kdDAzMjg0MDMyOTY0Al8zBA9hY2NvdW50QmFsYW5jZUIIBQ0kdDAzMjg0MDMyOTY0Al80BBBzaGFyZUFzc2V0U3VwcGx5CAUNJHQwMzI4NDAzMjk2NAJfNQQNJHQwMzI5NzczMzM1NwMJAAACCQCQAwEFCHBBbW91bnRzAAEEBnBBc3NldAkBEXBhcnNlUGF5bWVudEFzc2V0AQkAkQMCBQlwQXNzZXRJZHMAAAMJAQIhPQIFBnBBc3NldAUMc2hhcmVBc3NldElkCQACAQkArAICAiRJbmNvcnJlY3QgYXNzZXQgYXR0YWNoZWQuIEV4cGVjdGVkOiAJANgEAQUMc2hhcmVBc3NldElkCQCUCgIJAJEDAgUIcEFtb3VudHMAAAUGcEFzc2V0CQCUCgIAAAUMc2hhcmVBc3NldElkBAlwbXRBbW91bnQIBQ0kdDAzMjk3NzMzMzU3Al8xBApwbXRBc3NldElkCAUNJHQwMzI5NzczMzM1NwJfMgQPdmlydE1pblRvUmVjaXZlCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEYXJncwABAwkBAiE9AgkAkAMBBQRhcmdzAAMJAAIBAg9Xcm9uZyBhcmdzIHNpemUDCQBmAgkAkAMBBQhwQW1vdW50cwABCQACAQIdT25lIGF0dGFjaGVkIHBheW1lbnQgZXhwZWN0ZWQDCQECIT0CBQpwbXRBc3NldElkBQxzaGFyZUFzc2V0SWQJAAIBCQCsAgICJEluY29ycmVjdCBhc3NldCBhdHRhY2hlZC4gRXhwZWN0ZWQ6IAkA2AQBBQxzaGFyZUFzc2V0SWQDCQEBIQEJAQ9jb250YWluc0VsZW1lbnQCCQDMCAIFCGFzc2V0SWRBCQDMCAIFCGFzc2V0SWRCBQNuaWwFDXdpdGhkcmF3QXNzZXQJAAIBAhlJbmNvcnJlY3Qgd2l0aGRyYXcgYXNzZXQuAwMJAGYCBQhiYWxhbmNlQQUPYWNjb3VudEJhbGFuY2VBBgkAZgIFCGJhbGFuY2VCBQ9hY2NvdW50QmFsYW5jZUIJAJQKAgUDbmlsCQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQlwbXRBbW91bnQFCnBtdEFzc2V0SWQFA25pbAkBEXN1c3BlbmRTdXNwaWNpb3VzBgUPYWNjb3VudEJhbGFuY2VBBQ9hY2NvdW50QmFsYW5jZUIFCGJhbGFuY2VBBQhiYWxhbmNlQgULc3RyQXNzZXRJZEEFC3N0ckFzc2V0SWRCBAx1bmxvY2tBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkBC3ZhbHVlT3JFbHNlAgkAkQMCBQRhcmdzAAICATAEBnVubG9jawMJAGYCBQx1bmxvY2tBbW91bnQAAAkA/AcEBQ5mYXJtaW5nQWRkcmVzcwIbd2l0aGRyYXdTaGFyZVRva2Vuc0Zyb21Qb29sCQDMCAIFC2NhbGxlckJ5dGVzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFDHVubG9ja0Ftb3VudAUDbmlsBQNuaWwAAAMJAAACBQZ1bmxvY2sFBnVubG9jawQOd2l0aGRyYXdBbW91bnQJAGQCBQlwbXRBbW91bnQFDHVubG9ja0Ftb3VudAQMYW1vdW50VG9QYXlBCQBrAwUOd2l0aGRyYXdBbW91bnQFCGJhbGFuY2VBBRBzaGFyZUFzc2V0U3VwcGx5BAxhbW91bnRUb1BheUIJAGsDBQ53aXRoZHJhd0Ftb3VudAUIYmFsYW5jZUIFEHNoYXJlQXNzZXRTdXBwbHkEDSR0MDM0NzA1MzQ3NjMJAQxnZXRGZWVQYXJhbXMCCAUBaQZjYWxsZXIIBQFpDG9yaWdpbkNhbGxlcgQDZmVlCAUNJHQwMzQ3MDUzNDc2MwJfMQQGZ292RmVlCAUNJHQwMzQ3MDUzNDc2MwJfMgQNJHQwMzQ3ODAzNTE4MAMJAAACBQ13aXRoZHJhd0Fzc2V0BQhhc3NldElkQQkBDWNhbGN1bGF0ZUZlZXMGBQxhbW91bnRUb1BheUIFD3ZpcnRNaW5Ub1JlY2l2ZQkAZQIFCGJhbGFuY2VCBQxhbW91bnRUb1BheUIJAGUCBQhiYWxhbmNlQQUMYW1vdW50VG9QYXlBBQNmZWUFBmdvdkZlZQkBDWNhbGN1bGF0ZUZlZXMGBQxhbW91bnRUb1BheUEFD3ZpcnRNaW5Ub1JlY2l2ZQkAZQIFCGJhbGFuY2VBBQxhbW91bnRUb1BheUEJAGUCBQhiYWxhbmNlQgUMYW1vdW50VG9QYXlCBQNmZWUFBmdvdkZlZQQQYW1vdW50V2l0aG91dEZlZQgFDSR0MDM0NzgwMzUxODACXzEEDWFtb3VudFdpdGhGZWUIBQ0kdDAzNDc4MDM1MTgwAl8yBBBnb3Zlcm5hbmNlUmV3YXJkCAUNJHQwMzQ3ODAzNTE4MAJfMwQNJHQwMzUxOTczNjU0MwMJAAACBQ13aXRoZHJhd0Fzc2V0BQhhc3NldElkQQQHdW5zdGFrZQMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFC3N0ckFzc2V0SWRBCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIHCQDMCAIJAGQCCQBkAgUMYW1vdW50VG9QYXlBBQ1hbW91bnRXaXRoRmVlBRBnb3Zlcm5hbmNlUmV3YXJkCQDMCAIFC3N0ckFzc2V0SWRBBQNuaWwFA25pbAAAAwkAAAIFB3Vuc3Rha2UFB3Vuc3Rha2UJAJYKBAkAZQIJAGUCCQBlAgUIYmFsYW5jZUEFDGFtb3VudFRvUGF5QQUNYW1vdW50V2l0aEZlZQUQZ292ZXJuYW5jZVJld2FyZAUIYmFsYW5jZUIFCGFzc2V0SWRBCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgkAZAIFDGFtb3VudFRvUGF5QQUNYW1vdW50V2l0aEZlZQUIYXNzZXRJZEEFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQHdW5zdGFrZQMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFC3N0ckFzc2V0SWRCCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIHCQDMCAIJAGQCCQBkAgUMYW1vdW50VG9QYXlCBQ1hbW91bnRXaXRoRmVlBRBnb3Zlcm5hbmNlUmV3YXJkCQDMCAIFC3N0ckFzc2V0SWRCBQNuaWwFA25pbAAAAwkAAAIFB3Vuc3Rha2UFB3Vuc3Rha2UJAJYKBAUIYmFsYW5jZUEJAGUCCQBlAgkAZQIFCGJhbGFuY2VCBQxhbW91bnRUb1BheUIFDWFtb3VudFdpdGhGZWUFEGdvdmVybmFuY2VSZXdhcmQFCGFzc2V0SWRCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgkAZAIFDGFtb3VudFRvUGF5QgUNYW1vdW50V2l0aEZlZQUIYXNzZXRJZEIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQLbmV3QmFsYW5jZUEIBQ0kdDAzNTE5NzM2NTQzAl8xBAtuZXdCYWxhbmNlQggFDSR0MDM1MTk3MzY1NDMCXzIEEGdvdlJld2FyZEFzc2V0SWQIBQ0kdDAzNTE5NzM2NTQzAl8zBAx1c2VyVHJhbnNmZXIIBQ0kdDAzNTE5NzM2NTQzAl80CQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQx1bmxvY2tBbW91bnQFDHNoYXJlQXNzZXRJZAUDbmlsCQCUCgIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa0JhbGFuY2VBBQtuZXdCYWxhbmNlQQkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa0JhbGFuY2VCBQtuZXdCYWxhbmNlQgkAzAgCCQEMSW50ZWdlckVudHJ5AgURa1NoYXJlQXNzZXRTdXBwbHkJAGUCBRBzaGFyZUFzc2V0U3VwcGx5BQ53aXRoZHJhd0Ftb3VudAkAzAgCCQEEQnVybgIFDHNoYXJlQXNzZXRJZAUOd2l0aGRyYXdBbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPbW9uZXlCb3hBZGRyZXNzBRBnb3Zlcm5hbmNlUmV3YXJkBRBnb3ZSZXdhcmRBc3NldElkBQNuaWwFDHVzZXJUcmFuc2ZlcgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGXRha2VJbnRvQWNjb3VudEV4dHJhRnVuZHMEC2NhbGxlckJ5dGVzBGFyZ3MIcEFtb3VudHMJcEFzc2V0SWRzCQELdmFsdWVPckVsc2UCCQEMaXNPcmFjbGVQb29sAQkApQgBCAUBaQZjYWxsZXIJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAEDSR0MDM3MjY4MzczNDQJAQ1nZXRQb29sQXNzZXRzAQgFAWkGY2FsbGVyBAtzdHJBc3NldElkQQgFDSR0MDM3MjY4MzczNDQCXzEEC3N0ckFzc2V0SWRCCAUNJHQwMzcyNjgzNzM0NAJfMgQIYXNzZXRJZEEIBQ0kdDAzNzI2ODM3MzQ0Al8zBAhhc3NldElkQggFDSR0MDM3MjY4MzczNDQCXzQEDSR0MDM3MzU3Mzc0NjMJAQ9nZXRQb29sQmFsYW5jZXMDCAUBaQZjYWxsZXIFCGFzc2V0SWRBBQhhc3NldElkQgQIYmFsYW5jZUEIBQ0kdDAzNzM1NzM3NDYzAl8xBAhiYWxhbmNlQggFDSR0MDM3MzU3Mzc0NjMCXzIED2FjY291bnRCYWxhbmNlQQgFDSR0MDM3MzU3Mzc0NjMCXzMED2FjY291bnRCYWxhbmNlQggFDSR0MDM3MzU3Mzc0NjMCXzQEDWFtb3VudEVucm9sbEEJAGUCBQ9hY2NvdW50QmFsYW5jZUEFCGJhbGFuY2VBBA1hbW91bnRFbnJvbGxCCQBlAgUPYWNjb3VudEJhbGFuY2VCBQhiYWxhbmNlQgMJAQIhPQIJAJADAQUEYXJncwAACQACAQIPV3JvbmcgYXJncyBzaXplAwkBAiE9AgUPbW9uZXlCb3hBZGRyZXNzCAUBaQxvcmlnaW5DYWxsZXIJAAIBAiZPbmx5IHRoZSB3YWxsZXQgY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgMDCQBmAgAABQ1hbW91bnRFbnJvbGxBBgkAZgIAAAUNYW1vdW50RW5yb2xsQgkBB3N1c3BlbmQBAhZFbnJvbGwgYW1vdW50IG5lZ2F0aXZlAwMJAAACBQ1hbW91bnRFbnJvbGxBAAAJAAACBQ1hbW91bnRFbnJvbGxCAAAHCQACAQIQTm8gbW9uZXkgdG8gdGFrZQQGc3Rha2UxAwMJAQhjb250YWlucwIFDXN0YWtpbmdBc3NldHMFC3N0ckFzc2V0SWRBCQBmAgUNYW1vdW50RW5yb2xsQQAABwkA/AcECAUBaQZjYWxsZXICDHN0YWtlVW5zdGFrZQkAzAgCBgkAzAgCBQ1hbW91bnRFbnJvbGxBCQDMCAIFC3N0ckFzc2V0SWRBBQNuaWwFA25pbAAAAwkAAAIFBnN0YWtlMQUGc3Rha2UxBAZzdGFrZTIDAwkBCGNvbnRhaW5zAgUNc3Rha2luZ0Fzc2V0cwULc3RyQXNzZXRJZEIJAGYCBQ1hbW91bnRFbnJvbGxCAAAHCQD8BwQIBQFpBmNhbGxlcgIMc3Rha2VVbnN0YWtlCQDMCAIGCQDMCAIFDWFtb3VudEVucm9sbEIJAMwIAgULc3RyQXNzZXRJZEIFA25pbAUDbmlsAAADCQAAAgUGc3Rha2UyBQZzdGFrZTIJAJQKAgUDbmlsCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtCYWxhbmNlQQkAZAIFCGJhbGFuY2VBBQ1hbW91bnRFbnJvbGxBCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrQmFsYW5jZUIJAGQCBQhiYWxhbmNlQgUNYW1vdW50RW5yb2xsQgUDbmlsBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkABBNtdWx0aVNpZ25lZEJ5QWRtaW5zBBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQxhZG1pblB1YktleTEAAQAABBJhZG1pblB1YktleTJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQxhZG1pblB1YktleTIAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQxhZG1pblB1YktleTMAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAAIFE211bHRpU2lnbmVkQnlBZG1pbnOn4Ctt",
    "height": 2333116,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DPyp1jZciazAD3rf9Q7azcsWbqaaB7Unonk6KPBh4d2T
Next: 5fy4M9617sVwqkpQQJksvCcdoTDordPRbNhGF85Hy7pd

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let version = "1.0.0"
5+
6+let kVersion = "version"
7+
48 let kActive = "active"
59 
6-let kActiveGlob = "active_all_contracts"
10+let kAssetIdA = "A_asset_id"
11+
12+let kAssetIdB = "B_asset_id"
13+
14+let kBalanceA = "A_asset_balance"
15+
16+let kBalanceB = "B_asset_balance"
17+
18+let kBalanceInitA = "A_asset_init"
19+
20+let kBalanceInitB = "B_asset_init"
21+
22+let kShareAssetId = "share_asset_id"
23+
24+let kShareAssetSupply = "share_asset_supply"
25+
26+let kFee = "commission"
727 
828 let kCause = "shutdown_cause"
29+
30+let kFirstHarvest = "first_harvest"
31+
32+let kFirstHarvestHeight = "first_harvest_height"
33+
34+let kShareLimit = "share_limit_on_first_harvest"
35+
36+let kBasePeriod = "base_period"
37+
38+let kPeriodLength = "period_length"
39+
40+let kStartHeight = "start_height"
941 
1042 let kUSDNAddress = "staking_usdnnsbt_address"
1143 
1244 let kEURNAddress = "staking_eurn_address"
1345 
14-let kLeasingPool = "leasing_address"
15-
1646 let kLeasingAmount = "leasing_amount"
1747 
18-let kLeasingId = "leasing_id"
48+let kUSDNAssetId = "usdn_asset_id"
49+
50+let kEURNAssetId = "eurn_asset_id"
51+
52+let kStakingAssets = "staking_assets"
53+
54+let kOracleActive = "active_all_contracts"
55+
56+let kDiscounts = "discounts"
57+
58+let kDiscountValues = "discount_values"
59+
60+let kUserGSwopInGov = "_GSwop_amount"
61+
62+let kUserSwopInGov = "_SWOP_amount"
63+
64+let kOraclePool = "pool_"
1965 
2066 let kAdminPubKey1 = "admin_pub_1"
2167 
2571 
2672 let kAdminInvokePubKey = "admin_invoke_pub"
2773 
28-let kCpmmContract = "cpmm_contract"
74+let kMoneyBoxAddress = "money_box_address"
2975 
30-let kUSDNAssetId = "usdn_asset_id"
76+let kVotingAddress = "voting_address"
3177 
32-let kEURNAssetId = "eurn_asset_id"
78+let kGovAddress = "governance_address"
3379 
34-let kStakingAssets = "staking_assets"
35-
36-let kShareAssetId = "share_asset_id"
80+let kFarmingAddress = "farming_address"
3781 
3882 let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
3983 
5195 
5296 let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
5397 
54-let adminPubKeyInvoke = getBase58FromOracle(kAdminInvokePubKey)
98+let adminInvokePubKey = getBase58FromOracle(kAdminInvokePubKey)
5599 
56-let stakingUSDNAddress = Address(getBase58FromOracle(kUSDNAddress))
100+let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
57101 
58-let stakingEURNAddress = Address(getBase58FromOracle(kEURNAddress))
102+let votingAddress = Address(getBase58FromOracle(kVotingAddress))
59103 
60-let cpmmContract = Address(getBase58FromOracle(kCpmmContract))
104+let govAddress = Address(getBase58FromOracle(kGovAddress))
105+
106+let farmingAddress = Address(getBase58FromOracle(kFarmingAddress))
61107 
62108 let USDN = getBase58FromOracle(kUSDNAssetId)
63109 
65111 
66112 let stakingAssets = getStringValue(oracle, kStakingAssets)
67113 
68-let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
114+let stakingUSDNAddress = Address(getBase58FromOracle(kUSDNAddress))
69115 
70-let active = valueOrElse(getBoolean(this, kActive), true)
116+let stakingEURNAddress = Address(getBase58FromOracle(kEURNAddress))
71117 
72-func isActive () = if (if (active)
73-    then activeGlob
74-    else false)
75-    then unit
76-    else throw("DApp is inactive at this moment")
118+let basePeriod = valueOrErrorMessage(getInteger(votingAddress, kBasePeriod), "Empty kBasePeriod")
119+
120+let startHeight = valueOrErrorMessage(getInteger(votingAddress, kStartHeight), "Empty kStartHeight")
121+
122+let periodLength = valueOrErrorMessage(getInteger(votingAddress, kPeriodLength), "Empty kPeriodLength")
123+
124+let firstHarvestEndPeriod = ((basePeriod + ((height - startHeight) / periodLength)) + 3)
125+
126+let active = getBooleanValue(oracle, kOracleActive)
127+
128+let feeScale6 = 1000000
129+
130+let scale8 = 100000000
131+
132+func accountBalance (assetId,pool) = match assetId {
133+    case id: ByteVector => 
134+        assetBalance(pool, id)
135+    case waves: Unit => 
136+        wavesBalance(pool).available
137+    case _ => 
138+        throw("Match error")
139+}
77140 
78141 
79-func isGlobalCaller (caller) = if ((caller == cpmmContract))
80-    then unit
81-    else throw("Only global Contract can invoke this function")
142+func stakedAmount (assetId,pool) = {
143+    let stakedAmountCalculated =     match assetId {
144+        case aId: ByteVector => 
145+            if ((aId == USDN))
146+                then getInteger(stakingUSDNAddress, ((("rpd_balance_" + toBase58String(aId)) + "_") + toString(pool)))
147+                else if ((aId == EURN))
148+                    then getInteger(stakingEURNAddress, ((("%s%s%s__stakingBalance__" + toBase58String(aId)) + "__") + toString(pool)))
149+                    else 0
150+        case _: Unit => 
151+            valueOrElse(getInteger(pool, kLeasingAmount), 0)
152+        case _ => 
153+            throw("Match error")
154+    }
155+    match stakedAmountCalculated {
156+        case i: Int => 
157+            i
158+        case _ => 
159+            0
160+    }
161+    }
82162 
83163 
84-func isAdminCall (callerPubKey) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], callerPubKey))
85-    then unit
86-    else throw("Only admin can call this function")
164+func getAssetInfo (assetId) = match assetId {
165+    case id: String|ByteVector => 
166+        let $t038974069 =         match id {
167+            case aId: ByteVector => 
168+                $Tuple2(toBase58String(aId), aId)
169+            case aId: String => 
170+                $Tuple2(aId, fromBase58String(aId))
171+            case _ => 
172+                throw("Match error")
173+        }
174+        let stringId = $t038974069._1
175+        let bytesId = $t038974069._2
176+        let info = valueOrErrorMessage(assetInfo(bytesId), (("Asset " + stringId) + " doesn't exist"))
177+        $Tuple3(stringId, info.name, info.decimals)
178+    case waves: Unit => 
179+        $Tuple3("WAVES", "WAVES", 8)
180+    case _ => 
181+        throw("Match error")
182+}
87183 
88184 
89185 func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
90186 
91187 
92-func calcStakingFuncAndAddres (stake,assetId) = if (stake)
93-    then if ((assetId == USDN))
94-        then $Tuple2("lockNeutrino", stakingUSDNAddress)
95-        else $Tuple2("startStaking", stakingEURNAddress)
96-    else if ((assetId == USDN))
97-        then $Tuple2("unlockNeutrino", stakingUSDNAddress)
98-        else $Tuple2("stopStaking", stakingEURNAddress)
99-
100-
101-func calcStakingParams (stake,amount,assetId) = if (stake)
102-    then {
103-        let $t025932659 = calcStakingFuncAndAddres(stake, assetId)
104-        let call = $t025932659._1
105-        let stakingAddr = $t025932659._2
106-        $Tuple4(call, stakingAddr, nil, [AttachedPayment(assetId, amount)])
107-        }
108-    else {
109-        let $t027452811 = calcStakingFuncAndAddres(stake, assetId)
110-        let call = $t027452811._1
111-        let stakingAddr = $t027452811._2
112-        $Tuple4(call, stakingAddr, [amount, toBase58String(assetId)], nil)
113-        }
114-
115-
116-func collectPayments (acc,payment) = {
117-    let $t029733016 = acc
118-    let paymentAmounts = $t029733016._1
119-    let paymentAssetIds = $t029733016._2
120-    $Tuple2((paymentAmounts :+ payment.amount), (paymentAssetIds :+ (if ((payment.assetId == unit))
121-        then base58''
122-        else payment.assetId)))
188+func calculateFeeDiscount (userAddr) = {
189+    let swopAmount = valueOrElse(getInteger(govAddress, (toString(userAddr) + kUserSwopInGov)), 0)
190+    let gSwopAmount = valueOrElse(getInteger(govAddress, (toString(userAddr) + kUserGSwopInGov)), swopAmount)
191+    let discountValues = split(getStringValue(oracle, kDiscountValues), ",")
192+    let discounts = split(getStringValue(oracle, kDiscounts), ",")
193+    if (if ((gSwopAmount >= parseIntValue(discountValues[0])))
194+        then (parseIntValue(discountValues[1]) > gSwopAmount)
195+        else false)
196+        then (feeScale6 - parseIntValue(discounts[0]))
197+        else if (if ((gSwopAmount >= parseIntValue(discountValues[1])))
198+            then (parseIntValue(discountValues[2]) > gSwopAmount)
199+            else false)
200+            then (feeScale6 - parseIntValue(discounts[1]))
201+            else if (if ((gSwopAmount >= parseIntValue(discountValues[2])))
202+                then (parseIntValue(discountValues[3]) > gSwopAmount)
203+                else false)
204+                then (feeScale6 - parseIntValue(discounts[2]))
205+                else if (if ((gSwopAmount >= parseIntValue(discountValues[3])))
206+                    then (parseIntValue(discountValues[4]) > gSwopAmount)
207+                    else false)
208+                    then (feeScale6 - parseIntValue(discounts[3]))
209+                    else if ((gSwopAmount >= parseIntValue(discountValues[4])))
210+                        then (feeScale6 - parseIntValue(discounts[4]))
211+                        else feeScale6
123212     }
124213 
125214 
126-func collectState (result,source) = match source {
127-    case e: Issue|Burn|Reissue|ScriptTransfer|BinaryEntry|BooleanEntry|StringEntry|IntegerEntry => 
128-        (result :+ e)
129-    case _ => 
130-        result
131-}
215+func calculateFees (pmtAmount,minAmountToReceive,tokenFrom,tokenTo,fee,feeGovernance) = {
216+    let amountWithoutFee = fraction(tokenTo, pmtAmount, (pmtAmount + tokenFrom))
217+    let amountWithFee = fraction(amountWithoutFee, (feeScale6 - fee), feeScale6)
218+    let governanceReward = fraction(amountWithoutFee, feeGovernance, feeScale6)
219+    if ((minAmountToReceive > amountWithFee))
220+        then throw(((("Calculated amount to receive " + toString(amountWithFee)) + " is less than specified minimum ") + toString(minAmountToReceive)))
221+        else $Tuple3(amountWithoutFee, amountWithFee, governanceReward)
222+    }
132223 
133224 
134-func collectData (result,source) = match source {
135-    case v: String => 
136-        (result :+ v)
137-    case v: Int => 
138-        (result :+ v)
139-    case v: Boolean => 
140-        (result :+ v)
141-    case v: ByteVector => 
142-        (result :+ v)
143-    case v: Unit => 
144-        (result :+ v)
145-    case _ => 
146-        throw()
147-}
225+func calculateVirtPay (pmtAmount,balance,fee) = {
226+    let F = (feeScale6 - fee)
227+    let k = fraction(fee, 60, 100)
228+    let a = (scale8 + fraction((F * k), scale8, (feeScale6 * feeScale6)))
229+    let b = ((((balance + fraction(balance, F, feeScale6)) + fraction(pmtAmount, F, feeScale6)) - pmtAmount) - fraction(pmtAmount, (F * k), (feeScale6 * feeScale6)))
230+    let c = (-(toBigInt(balance)) * toBigInt(pmtAmount))
231+    let D = ((toBigInt(b) * toBigInt(b)) - fraction((toBigInt(4) * c), toBigInt(a), toBigInt(scale8)))
232+    toInt(fraction((-(toBigInt(b)) + sqrtBigInt(D, 0, 0, DOWN)), toBigInt(scale8), toBigInt((2 * a))))
233+    }
148234 
149235 
150-func callCommon (funcName,caller,args,payments) = valueOrElse(isActive(), {
151-    let $t039364020 = {
152-        let $l = payments
153-        let $s = size($l)
154-        let $acc0 = $Tuple2(nil, nil)
155-        func $f0_1 ($a,$i) =         if (($i >= $s))
156-            then $a
157-            else collectPayments($a, $l[$i])
236+func parsePaymentAsset (assetId) = if ((assetId == base58''))
237+    then unit
238+    else assetId
158239 
159-        func $f0_2 ($a,$i) =         if (($i >= $s))
160-            then $a
161-            else throw("List size exceeds 10")
162240 
163-        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
164-        }
165-    let paymentAmounts = $t039364020._1
166-    let paymentAssetIds = $t039364020._2
167-    let lockPayment = if (if ((funcName == "replenishWithTwoTokens"))
168-        then (size(payments) == 3)
169-        else false)
170-        then [payments[2]]
171-        else if (if ((funcName == "replenishWithOneToken"))
172-            then (size(payments) == 2)
173-            else false)
174-            then [payments[1]]
175-            else nil
176-    let $t042494406 = {
177-        let @ = reentrantInvoke(cpmmContract, funcName, [caller, args, paymentAmounts, paymentAssetIds], lockPayment)
178-        if ($isInstanceOf(@, "(List[Any], List[Any])"))
179-            then @
180-            else throw(($getType(@) + " couldn't be cast to (List[Any], List[Any])"))
181-        }
182-    if (($t042494406 == $t042494406))
183-        then {
184-            let data = $t042494406._2
185-            let actions = $t042494406._1
186-            let mappedData = {
187-                let $l = data
188-                let $s = size($l)
189-                let $acc0 = nil
190-                func $f1_1 ($a,$i) =                 if (($i >= $s))
191-                    then $a
192-                    else collectData($a, $l[$i])
241+func suspendSuspicious (accountBalanceA,accountBalanceB,balanceA,balanceB,assetIdA,assetIdB) = suspend(((((((((((((((("Suspicious state. Actual balances: " + toString(accountBalanceA)) + " ") + assetIdA) + ", ") + toString(accountBalanceB)) + " ") + assetIdB) + ". State: ") + toString(balanceA)) + " ") + assetIdA) + ", ") + toString(balanceB)) + " ") + assetIdB))
193242 
194-                func $f1_2 ($a,$i) =                 if (($i >= $s))
195-                    then $a
196-                    else throw("List size exceeds 10")
197243 
198-                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
199-                }
200-            let mappedActions = {
201-                let $l = actions
202-                let $s = size($l)
203-                let $acc0 = nil
204-                func $f2_1 ($a,$i) =                 if (($i >= $s))
205-                    then $a
206-                    else collectState($a, $l[$i])
244+func isActive () = if (active)
245+    then unit
246+    else throw("DApp is inactive at this moment")
207247 
208-                func $f2_2 ($a,$i) =                 if (($i >= $s))
209-                    then $a
210-                    else throw("List size exceeds 15")
211248 
212-                $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
213-                }
214-            $Tuple2(mappedActions, mappedData)
215-            }
216-        else throw("Strict value is not equal to itself.")
217-    })
249+func isOraclePool (poolAddress) = if (isDefined(getString(oracle, (kOraclePool + poolAddress))))
250+    then unit
251+    else throw("DApp is not registered pool")
252+
253+
254+func getPoolBalances (pool,assetIdA,assetIdB) = {
255+    let balanceA = getIntegerValue(pool, kBalanceA)
256+    let balanceB = getIntegerValue(pool, kBalanceB)
257+    let stakedAmountA = stakedAmount(assetIdA, pool)
258+    let stakedAmountB = stakedAmount(assetIdB, pool)
259+    let accountBalanceA = (accountBalance(assetIdA, pool) + stakedAmountA)
260+    let accountBalanceB = (accountBalance(assetIdB, pool) + stakedAmountB)
261+    let shareSupply = getIntegerValue(pool, kShareAssetSupply)
262+    $Tuple5(balanceA, balanceB, accountBalanceA, accountBalanceB, shareSupply)
263+    }
264+
265+
266+func getPoolAssets (pool) = {
267+    let strAssetIdA = getStringValue(pool, kAssetIdA)
268+    let strAssetIdB = getStringValue(pool, kAssetIdB)
269+    let assetIdA = if ((strAssetIdA == "WAVES"))
270+        then unit
271+        else fromBase58String(strAssetIdA)
272+    let assetIdB = if ((strAssetIdB == "WAVES"))
273+        then unit
274+        else fromBase58String(strAssetIdB)
275+    let shareAssetId = fromBase58String(getStringValue(pool, kShareAssetId))
276+    $Tuple5(strAssetIdA, strAssetIdB, assetIdA, assetIdB, shareAssetId)
277+    }
278+
279+
280+func getFeeParams (pool,caller) = {
281+    let feeDiscount = calculateFeeDiscount(caller)
282+    let fee = fraction(getIntegerValue(pool, kFee), feeDiscount, feeScale6, CEILING)
283+    let govFee = fraction(fraction(fee, 40, 100), feeDiscount, feeScale6, CEILING)
284+    $Tuple2(fee, govFee)
285+    }
218286 
219287 
220288 @Callable(i)
221-func callFunction (funcName,args) = callCommon(funcName, i.caller.bytes, args, i.payments)
289+func init (callerBytes,args,pAmounts,pAssetIds) = {
290+    let caller = Address(callerBytes)
291+    let $t090769154 = $Tuple2(pAmounts[0], parsePaymentAsset(pAssetIds[0]))
292+    let pmtAmountA = $t090769154._1
293+    let pmtAssetIdA = $t090769154._2
294+    let $t091599237 = $Tuple2(pAmounts[1], parsePaymentAsset(pAssetIds[1]))
295+    let pmtAmountB = $t091599237._1
296+    let pmtAssetIdB = $t091599237._2
297+    if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3, adminInvokePubKey], i.originCallerPublicKey)))
298+        then throw("Only admin can call this function")
299+        else if ((size(args) != 1))
300+            then throw("Wrong args size")
301+            else if (isDefined(getBoolean(caller, kActive)))
302+                then throw("DApp is already active")
303+                else if ((pmtAssetIdA == pmtAssetIdB))
304+                    then throw("Assets must be different")
305+                    else {
306+                        let $t096729749 = getAssetInfo(pmtAssetIdA)
307+                        let pmtStrAssetIdA = $t096729749._1
308+                        let pmtAssetNameA = $t096729749._2
309+                        let pmtDecimalsA = $t096729749._3
310+                        let $t097589835 = getAssetInfo(pmtAssetIdB)
311+                        let pmtStrAssetIdB = $t097589835._1
312+                        let pmtAssetNameB = $t097589835._2
313+                        let pmtDecimalsB = $t097589835._3
314+                        let firstHarvest = (args[0] == "true")
315+                        let shareName = ((("s" + take(pmtAssetNameA, 7)) + "_") + take(pmtAssetNameB, 7))
316+                        let shareDescription = ((((("ShareToken of SwopFi protocol for " + pmtAssetNameA) + " and ") + pmtAssetNameB) + " at address ") + toString(this))
317+                        let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
318+                        let arg1 = pow(pmtAmountA, pmtDecimalsA, 5, 1, pmtDecimalsA, DOWN)
319+                        let arg2 = pow(pmtAmountB, pmtDecimalsB, 5, 1, pmtDecimalsB, DOWN)
320+                        let arg3 = pow(10, 0, shareDecimals, 0, 0, DOWN)
321+                        let shareInitialSupply = fraction(arg1, arg2, arg3)
322+                        let shareIssue = Issue(shareName, shareDescription, shareInitialSupply, shareDecimals, true)
323+                        let shareIssueId = calculateAssetId(shareIssue)
324+                        let stake1 = if (contains(stakingAssets, pmtStrAssetIdA))
325+                            then invoke(i.caller, "stakeUnstake", [true, pmtAmountA, pmtStrAssetIdA], nil)
326+                            else 0
327+                        if ((stake1 == stake1))
328+                            then {
329+                                let stake2 = if (contains(stakingAssets, pmtStrAssetIdB))
330+                                    then invoke(i.caller, "stakeUnstake", [true, pmtAmountB, pmtStrAssetIdB], nil)
331+                                    else 0
332+                                if ((stake2 == stake2))
333+                                    then {
334+                                        let baseEntry = [StringEntry(kVersion, version), BooleanEntry(kActive, true), StringEntry(kAssetIdA, pmtStrAssetIdA), StringEntry(kAssetIdB, pmtStrAssetIdB), IntegerEntry(kBalanceA, pmtAmountA), IntegerEntry(kBalanceB, pmtAmountB), IntegerEntry(kFee, getIntegerValue(oracle, "base_fee_cpmm")), shareIssue, StringEntry(kShareAssetId, toBase58String(shareIssueId)), IntegerEntry(kShareAssetSupply, shareInitialSupply), ScriptTransfer(caller, shareInitialSupply, shareIssueId)]
335+                                        if (firstHarvest)
336+                                            then $Tuple2(nil, $Tuple2((baseEntry ++ [BooleanEntry(kFirstHarvest, firstHarvest), IntegerEntry(kFirstHarvestHeight, (startHeight + (firstHarvestEndPeriod * periodLength)))]), nil))
337+                                            else $Tuple2(nil, $Tuple2(baseEntry, nil))
338+                                        }
339+                                    else throw("Strict value is not equal to itself.")
340+                                }
341+                            else throw("Strict value is not equal to itself.")
342+                        }
343+    }
222344 
223345 
224346 
225347 @Callable(i)
226-func shutdown () = valueOrElse(isAdminCall(i.callerPublicKey), if (!(active))
227-    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
228-    else suspend("Paused by admin"))
348+func initWithInitRatio (callerBytes,args,pAmounts,pAssetIds) = {
349+    let caller = Address(callerBytes)
350+    let $t01205612256 = $Tuple5(parseIntValue(args[0]), parseIntValue(args[1]), args[2], args[3], (args[4] == "true"))
351+    let amtAssetA = $t01205612256._1
352+    let amtAssetB = $t01205612256._2
353+    let assetIdAStr = $t01205612256._3
354+    let assetIdBStr = $t01205612256._4
355+    let firstHarvest = $t01205612256._5
356+    if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3, adminInvokePubKey], i.originCallerPublicKey)))
357+        then throw("Only admin can call this function")
358+        else if ((size(args) != 5))
359+            then throw("Wrong args size")
360+            else if (isDefined(getBoolean(caller, kActive)))
361+                then throw("DApp is already active")
362+                else if ((assetIdAStr == assetIdBStr))
363+                    then throw("Assets must be different")
364+                    else {
365+                        let $t01269112768 = getAssetInfo(assetIdAStr)
366+                        let pmtStrAssetIdA = $t01269112768._1
367+                        let pmtAssetNameA = $t01269112768._2
368+                        let pmtDecimalsA = $t01269112768._3
369+                        let $t01277712854 = getAssetInfo(assetIdBStr)
370+                        let pmtStrAssetIdB = $t01277712854._1
371+                        let pmtAssetNameB = $t01277712854._2
372+                        let pmtDecimalsB = $t01277712854._3
373+                        let shareName = ((("s" + take(pmtAssetNameA, 7)) + "_") + take(pmtAssetNameB, 7))
374+                        let shareDescription = ((((("ShareToken of SwopFi protocol for " + pmtAssetNameA) + " and ") + pmtAssetNameB) + " at address ") + toString(this))
375+                        let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
376+                        let shareInitialSupply = 0
377+                        let shareIssue = Issue(shareName, shareDescription, shareInitialSupply, shareDecimals, true)
378+                        let shareIssueId = calculateAssetId(shareIssue)
379+                        let baseEntry = [StringEntry(kVersion, version), BooleanEntry(kActive, true), StringEntry(kAssetIdA, pmtStrAssetIdA), StringEntry(kAssetIdB, pmtStrAssetIdB), IntegerEntry(kBalanceInitA, amtAssetA), IntegerEntry(kBalanceInitB, amtAssetB), IntegerEntry(kBalanceA, 0), IntegerEntry(kBalanceB, 0), IntegerEntry(kFee, getIntegerValue(oracle, "base_fee_cpmm")), shareIssue, StringEntry(kShareAssetId, toBase58String(shareIssueId)), IntegerEntry(kShareAssetSupply, shareInitialSupply)]
380+                        if (firstHarvest)
381+                            then $Tuple2(nil, $Tuple2((baseEntry ++ [BooleanEntry(kFirstHarvest, firstHarvest), IntegerEntry(kFirstHarvestHeight, (startHeight + (firstHarvestEndPeriod * periodLength)))]), nil))
382+                            else $Tuple2(nil, $Tuple2(baseEntry, nil))
383+                        }
384+    }
229385 
230386 
231387 
232388 @Callable(i)
233-func activate () = valueOrElse(isAdminCall(i.callerPublicKey), if (active)
234-    then throw("DApp is already active")
235-    else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
389+func keepLimitForFirstHarvest (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3, adminInvokePubKey], i.originCallerPublicKey)))
390+    then throw("Only admin can call this function")
391+    else if ((size(args) != 1))
392+        then throw("Wrong args size")
393+        else {
394+            let shareLimit = parseIntValue(args[0])
395+            $Tuple2(nil, $Tuple2([IntegerEntry(kShareLimit, shareLimit)], nil))
396+            }))
236397 
237398 
238399 
239400 @Callable(i)
240-func stakeUnstake (stake,amount,assetIdString) = valueOrElse(isActive(), if ((i.caller != cpmmContract))
241-    then throw("Only global Contract can invoke this function")
242-    else if ((assetIdString == "WAVES"))
243-        then {
244-            let pool = addressFromStringValue(valueOrErrorMessage(getString(oracle, kLeasingPool), "No leasing pool in oracle"))
245-            let leasingId = getBinary(this, kLeasingId)
246-            let leasingAmount = valueOrElse(getInteger(this, kLeasingAmount), 0)
247-            let newLeaseAmount = if (stake)
248-                then (leasingAmount + amount)
249-                else (leasingAmount - amount)
250-            let newLease = Lease(pool, newLeaseAmount)
251-            let newLeaseId = calculateLeaseId(newLease)
252-            let baseEtry = [newLease, BinaryEntry(kLeasingId, newLeaseId), IntegerEntry(kLeasingAmount, newLeaseAmount)]
253-            match leasingId {
254-                case lId: ByteVector => 
255-                    ([LeaseCancel(lId)] ++ baseEtry)
256-                case _ => 
257-                    baseEtry
258-            }
259-            }
260-        else {
261-            let $t064026505 = calcStakingParams(stake, amount, fromBase58String(assetIdString))
262-            let call = $t064026505._1
263-            let addr = $t064026505._2
264-            let params = $t064026505._3
265-            let payments = $t064026505._4
266-            let inv = invoke(addr, call, params, payments)
267-            if ((inv == inv))
268-                then nil
269-                else throw("Strict value is not equal to itself.")
270-            })
271-
272-
273-
274-@Callable(i)
275-func reissueShareToken (amount) = valueOrElse(isGlobalCaller(i.caller), valueOrElse(isActive(), {
276-    let shareAssetId = fromBase58String(getStringValue(this, kShareAssetId))
277-[Reissue(shareAssetId, amount, true), ScriptTransfer(i.caller, amount, shareAssetId)]
401+func exchange (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
402+    let caller = Address(callerBytes)
403+    let $t01524015316 = $Tuple2(pAmounts[0], parsePaymentAsset(pAssetIds[0]))
404+    let pmtAmount = $t01524015316._1
405+    let pmtAssetId = $t01524015316._2
406+    let minAmountToReceive = parseIntValue(args[0])
407+    let $t01538915465 = getPoolAssets(i.caller)
408+    let strAssetIdA = $t01538915465._1
409+    let strAssetIdB = $t01538915465._2
410+    let assetIdA = $t01538915465._3
411+    let assetIdB = $t01538915465._4
412+    let $t01547815584 = getPoolBalances(i.caller, assetIdA, assetIdB)
413+    let balanceA = $t01547815584._1
414+    let balanceB = $t01547815584._2
415+    let accountBalanceA = $t01547815584._3
416+    let accountBalanceB = $t01547815584._4
417+    if ((size(args) != 1))
418+        then throw("Wrong args size")
419+        else if (if ((balanceA == 0))
420+            then true
421+            else (balanceB == 0))
422+            then throw("Can't exchange with zero balance")
423+            else if ((0 >= minAmountToReceive))
424+                then throw(("Minimal amount to receive must be positive. Actual: " + toString(minAmountToReceive)))
425+                else if ((size(pAmounts) != 1))
426+                    then throw("One attached payment expected")
427+                    else if (!(containsElement([assetIdA, assetIdB], pmtAssetId)))
428+                        then throw(((("Incorrect asset attached. Expected: " + strAssetIdA) + " or ") + strAssetIdB))
429+                        else if (if ((balanceA > accountBalanceA))
430+                            then true
431+                            else (balanceB > accountBalanceB))
432+                            then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))
433+                            else {
434+                                let $t01655216610 = getFeeParams(i.caller, i.originCaller)
435+                                let fee = $t01655216610._1
436+                                let govFee = $t01655216610._2
437+                                let $t01662716964 = if ((pmtAssetId == assetIdA))
438+                                    then calculateFees(pmtAmount, minAmountToReceive, balanceA, balanceB, fee, govFee)
439+                                    else calculateFees(pmtAmount, minAmountToReceive, balanceB, balanceA, fee, govFee)
440+                                let amountWithoutFee = $t01662716964._1
441+                                let amountWithFee = $t01662716964._2
442+                                let governanceReward = $t01662716964._3
443+                                let $t01698217307 = if ((pmtAssetId == assetIdA))
444+                                    then $Tuple3((balanceA + pmtAmount), ((balanceB - amountWithFee) - governanceReward), assetIdB)
445+                                    else $Tuple3(((balanceA - amountWithFee) - governanceReward), (balanceB + pmtAmount), assetIdA)
446+                                let newBalanceA = $t01698217307._1
447+                                let newBalanceB = $t01698217307._2
448+                                let assetIdSend = $t01698217307._3
449+                                let $t01732517575 = if ((pmtAssetId == assetIdA))
450+                                    then $Tuple2(pmtAmount, (amountWithFee + governanceReward))
451+                                    else $Tuple2((amountWithFee + governanceReward), pmtAmount)
452+                                let stakeAmountA = $t01732517575._1
453+                                let stakeAmountB = $t01732517575._2
454+                                let stake1 = if (contains(stakingAssets, strAssetIdA))
455+                                    then invoke(i.caller, "stakeUnstake", [(pmtAssetId == assetIdA), stakeAmountA, strAssetIdA], nil)
456+                                    else 0
457+                                if ((stake1 == stake1))
458+                                    then {
459+                                        let stake2 = if (contains(stakingAssets, strAssetIdB))
460+                                            then invoke(i.caller, "stakeUnstake", [(pmtAssetId == assetIdB), stakeAmountB, strAssetIdB], nil)
461+                                            else 0
462+                                        if ((stake2 == stake2))
463+                                            then $Tuple2(nil, $Tuple2([IntegerEntry(kBalanceA, newBalanceA), IntegerEntry(kBalanceB, newBalanceB), ScriptTransfer(caller, amountWithFee, assetIdSend), ScriptTransfer(moneyBoxAddress, governanceReward, assetIdSend)], [amountWithFee, assetIdSend]))
464+                                            else throw("Strict value is not equal to itself.")
465+                                        }
466+                                    else throw("Strict value is not equal to itself.")
467+                                }
278468     }))
279469 
280470 
281471 
282472 @Callable(i)
283-func replenishWithTwoTokens (slippageTolerance) = callCommon("replenishWithTwoTokens", i.caller.bytes, ["false", "0"], i.payments)
473+func replenishWithTwoTokens (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
474+    let caller = Address(callerBytes)
475+    let pmtAssetIdA = parsePaymentAsset(pAssetIds[0])
476+    let pmtAssetIdB = parsePaymentAsset(pAssetIds[1])
477+    let stakeFarming = (args[0] == "true")
478+    let lockType = parseIntValue(args[1])
479+    let $t01883818928 = getPoolAssets(i.caller)
480+    let strAssetIdA = $t01883818928._1
481+    let strAssetIdB = $t01883818928._2
482+    let assetIdA = $t01883818928._3
483+    let assetIdB = $t01883818928._4
484+    let shareAssetId = $t01883818928._5
485+    let $t01894119065 = getPoolBalances(i.caller, assetIdA, assetIdB)
486+    let balanceA = $t01894119065._1
487+    let balanceB = $t01894119065._2
488+    let accountBalanceA = $t01894119065._3
489+    let accountBalanceB = $t01894119065._4
490+    let shareAssetSupply = $t01894119065._5
491+    if ((size(args) != 2))
492+        then throw("Wrong args size")
493+        else if (if ((size(pAmounts) != 2))
494+            then (size(pAmounts) != 3)
495+            else false)
496+            then throw("Two or three payments expected")
497+            else if (if ((pmtAssetIdA != assetIdA))
498+                then true
499+                else (pmtAssetIdB != assetIdB))
500+                then throw(((("Incorrect assets attached. Expected: " + strAssetIdA) + " and ") + strAssetIdB))
501+                else if (if ((balanceA > accountBalanceA))
502+                    then true
503+                    else (balanceB > accountBalanceB))
504+                    then $Tuple2(nil, ([ScriptTransfer(caller, pAmounts[0], pmtAssetIdA), ScriptTransfer(caller, pAmounts[1], pmtAssetIdB)] ++ (if ((size(pAmounts) == 3))
505+                        then [AttachedPayment(if ((pAssetIds[2] == base58''))
506+                            then unit
507+                            else pAssetIds[2], pAmounts[2])]
508+                        else (nil ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))))
509+                    else {
510+                        let $t02006620143 = getAssetInfo(pmtAssetIdA)
511+                        let pmtStrAssetIdA = $t02006620143._1
512+                        let pmtAssetNameA = $t02006620143._2
513+                        let pmtDecimalsA = $t02006620143._3
514+                        let $t02016020237 = getAssetInfo(pmtAssetIdB)
515+                        let pmtStrAssetIdB = $t02016020237._1
516+                        let pmtAssetNameB = $t02016020237._2
517+                        let pmtDecimalsB = $t02016020237._3
518+                        let initial = ((balanceA + balanceB) == 0)
519+                        let $t02031221155 = if (initial)
520+                            then $Tuple5(pAmounts[0], pAmounts[1], 0, pmtAssetIdA, 1)
521+                            else {
522+                                let ratioShareTokensInA = fraction(scale8, pAmounts[0], balanceA)
523+                                let ratioShareTokensInB = fraction(scale8, pAmounts[1], balanceB)
524+                                if ((ratioShareTokensInB > ratioShareTokensInA))
525+                                    then {
526+                                        let pmt = fraction(pAmounts[0], balanceB, balanceA)
527+                                        $Tuple5(pAmounts[0], pmt, (pAmounts[1] - pmt), pmtAssetIdB, ratioShareTokensInA)
528+                                        }
529+                                    else {
530+                                        let pmt = fraction(pAmounts[1], balanceA, balanceB)
531+                                        $Tuple5(pmt, pAmounts[1], (pAmounts[0] - pmt), pmtAssetIdA, ratioShareTokensInB)
532+                                        }
533+                                }
534+                        let pmtAmountA = $t02031221155._1
535+                        let pmtAmountB = $t02031221155._2
536+                        let change = $t02031221155._3
537+                        let changeAssetId = $t02031221155._4
538+                        let shareTokenRatio = $t02031221155._5
539+                        let shareTokenToPayAmount = if (initial)
540+                            then {
541+                                let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
542+                                fraction(pow(pmtAmountA, pmtDecimalsA, 5, 1, pmtDecimalsA, DOWN), pow(pmtAmountB, pmtDecimalsB, 5, 1, pmtDecimalsB, DOWN), pow(10, 0, shareDecimals, 0, 0, DOWN))
543+                                }
544+                            else fraction(shareTokenRatio, shareAssetSupply, scale8)
545+                        if ((shareTokenToPayAmount == 0))
546+                            then throw("Too small amount to replenish")
547+                            else if ((0 > change))
548+                                then throw("Change < 0")
549+                                else {
550+                                    let stake1 = if (contains(stakingAssets, pmtStrAssetIdA))
551+                                        then invoke(i.caller, "stakeUnstake", [true, pmtAmountA, pmtStrAssetIdA], nil)
552+                                        else 0
553+                                    if ((stake1 == stake1))
554+                                        then {
555+                                            let stake2 = if (contains(stakingAssets, pmtStrAssetIdB))
556+                                                then invoke(i.caller, "stakeUnstake", [true, pmtAmountB, pmtStrAssetIdB], nil)
557+                                                else 0
558+                                            if ((stake2 == stake2))
559+                                                then {
560+                                                    let shareTokenST = if (stakeFarming)
561+                                                        then {
562+                                                            let stPayments = ([AttachedPayment(shareAssetId, shareTokenToPayAmount)] ++ (if ((size(pAmounts) == 3))
563+                                                                then [AttachedPayment(if ((pAssetIds[2] == base58''))
564+                                                                    then unit
565+                                                                    else pAssetIds[2], pAmounts[2])]
566+                                                                else nil))
567+                                                            let reissue = invoke(i.caller, "reissueShareToken", [shareTokenToPayAmount], nil)
568+                                                            if ((reissue == reissue))
569+                                                                then {
570+                                                                    let stake3 = invoke(farmingAddress, "lockShareTokensFromPool", [callerBytes, toString(i.caller), lockType], stPayments)
571+                                                                    if ((stake3 == stake3))
572+                                                                        then nil
573+                                                                        else throw("Strict value is not equal to itself.")
574+                                                                    }
575+                                                                else throw("Strict value is not equal to itself.")
576+                                                            }
577+                                                        else [Reissue(shareAssetId, shareTokenToPayAmount, true), ScriptTransfer(caller, shareTokenToPayAmount, shareAssetId)]
578+                                                    $Tuple2(nil, $Tuple2(([IntegerEntry(kBalanceA, (balanceA + pmtAmountA)), IntegerEntry(kBalanceB, (balanceB + pmtAmountB)), IntegerEntry(kShareAssetSupply, (shareAssetSupply + shareTokenToPayAmount)), ScriptTransfer(caller, change, changeAssetId)] ++ shareTokenST), nil))
579+                                                    }
580+                                                else throw("Strict value is not equal to itself.")
581+                                            }
582+                                        else throw("Strict value is not equal to itself.")
583+                                    }
584+                        }
585+    }))
284586 
285587 
286588 
287589 @Callable(i)
288-func withdraw () = callCommon("withdraw", i.caller.bytes, ["0"], i.payments)
590+func replenishWithOneToken (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
591+    let caller = Address(callerBytes)
592+    let pmtAssetId = parsePaymentAsset(pAssetIds[0])
593+    let pmtAmount = pAmounts[0]
594+    let virtGetMinAmount = parseIntValue(args[0])
595+    let stakeFarming = (args[1] == "true")
596+    let lockType = parseIntValue(args[2])
597+    let $t02406024150 = getPoolAssets(i.caller)
598+    let strAssetIdA = $t02406024150._1
599+    let strAssetIdB = $t02406024150._2
600+    let assetIdA = $t02406024150._3
601+    let assetIdB = $t02406024150._4
602+    let shareAssetId = $t02406024150._5
603+    let $t02416324287 = getPoolBalances(i.caller, assetIdA, assetIdB)
604+    let balanceA = $t02416324287._1
605+    let balanceB = $t02416324287._2
606+    let accountBalanceA = $t02416324287._3
607+    let accountBalanceB = $t02416324287._4
608+    let shareAssetSupply = $t02416324287._5
609+    let initial = ((balanceA + balanceB) == 0)
610+    if ((size(args) != 3))
611+        then throw("Wrong args size")
612+        else if (if ((size(pAmounts) != 1))
613+            then (size(pAmounts) != 2)
614+            else false)
615+            then throw("Two or one attached assets expected")
616+            else if (if ((pmtAssetId != assetIdA))
617+                then (pmtAssetId != assetIdB)
618+                else false)
619+                then throw(((("Incorrect asset attached. Expected: " + strAssetIdA) + " or ") + strAssetIdB))
620+                else if (initial)
621+                    then throw("For initial exchanger you need to use two tokens")
622+                    else if (if ((balanceA > accountBalanceA))
623+                        then true
624+                        else (balanceB > accountBalanceB))
625+                        then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ (if ((size(pAmounts) == 2))
626+                            then [AttachedPayment(if ((pAssetIds[2] == base58''))
627+                                then unit
628+                                else pAssetIds[2], pAmounts[2])]
629+                            else (nil ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))))
630+                        else {
631+                            let $t02534325401 = getFeeParams(i.caller, i.originCaller)
632+                            let fee = $t02534325401._1
633+                            let govFee = $t02534325401._2
634+                            let $t02541827624 = if ((pmtAssetId == assetIdA))
635+                                then {
636+                                    let virtPayAmount = calculateVirtPay(pmtAmount, balanceA, fee)
637+                                    let $t02569725834 = calculateFees(virtPayAmount, virtGetMinAmount, balanceA, balanceB, fee, govFee)
638+                                    let amountWithoutFee = $t02569725834._1
639+                                    let amountWithFee = $t02569725834._2
640+                                    let governanceReward = $t02569725834._3
641+                                    let balanceAVirt = (balanceA + virtPayAmount)
642+                                    let balanceBVirt = ((balanceB + amountWithoutFee) - governanceReward)
643+                                    let newBalanceA = (balanceA + pmtAmount)
644+                                    let newBalanceB = (balanceB - governanceReward)
645+                                    let ratioShareTokensInA = fraction((pmtAmount - virtPayAmount), scale8, balanceAVirt)
646+                                    let ratioShareTokensInB = fraction(amountWithFee, scale8, balanceBVirt)
647+                                    let shareTokenToPayAmount = fraction(min([ratioShareTokensInA, ratioShareTokensInB]), shareAssetSupply, scale8)
648+                                    $Tuple7(newBalanceA, newBalanceB, shareTokenToPayAmount, governanceReward, assetIdB, strAssetIdB, strAssetIdA)
649+                                    }
650+                                else {
651+                                    let virtPayAmount = calculateVirtPay(pmtAmount, balanceB, fee)
652+                                    let $t02672926866 = calculateFees(virtPayAmount, virtGetMinAmount, balanceB, balanceA, fee, govFee)
653+                                    let amountWithoutFee = $t02672926866._1
654+                                    let amountWithFee = $t02672926866._2
655+                                    let governanceReward = $t02672926866._3
656+                                    let balanceAVirt = ((balanceA + amountWithoutFee) - governanceReward)
657+                                    let balanceBVirt = (balanceB + virtPayAmount)
658+                                    let newBalanceA = (balanceA - governanceReward)
659+                                    let newBalanceB = (balanceB + pmtAmount)
660+                                    let ratioShareTokensInA = fraction(amountWithFee, scale8, balanceAVirt)
661+                                    let ratioShareTokensInB = fraction((pmtAmount - virtPayAmount), scale8, balanceBVirt)
662+                                    let shareTokenToPayAmount = fraction(min([ratioShareTokensInA, ratioShareTokensInB]), shareAssetSupply, scale8)
663+                                    $Tuple7(newBalanceA, newBalanceB, shareTokenToPayAmount, governanceReward, assetIdA, strAssetIdA, strAssetIdB)
664+                                    }
665+                            let newBalanceA = $t02541827624._1
666+                            let newBalanceB = $t02541827624._2
667+                            let shareTokenToPayAmount = $t02541827624._3
668+                            let govReward = $t02541827624._4
669+                            let govRewardAsset = $t02541827624._5
670+                            let govRewardAssetStr = $t02541827624._6
671+                            let pmtAssetIdStr = $t02541827624._7
672+                            if ((shareTokenToPayAmount == 0))
673+                                then throw("Too small amount to replenish")
674+                                else {
675+                                    let stake1 = if (contains(stakingAssets, pmtAssetIdStr))
676+                                        then invoke(i.caller, "stakeUnstake", [true, pmtAmount, pmtAssetIdStr], nil)
677+                                        else 0
678+                                    if ((stake1 == stake1))
679+                                        then {
680+                                            let stake2 = if (contains(stakingAssets, govRewardAssetStr))
681+                                                then invoke(i.caller, "stakeUnstake", [false, govReward, govRewardAssetStr], nil)
682+                                                else 0
683+                                            if ((stake2 == stake2))
684+                                                then {
685+                                                    let shareTokenST = if (stakeFarming)
686+                                                        then {
687+                                                            let stPayments = ([AttachedPayment(shareAssetId, shareTokenToPayAmount)] ++ (if ((size(pAmounts) == 2))
688+                                                                then [AttachedPayment(if ((pAssetIds[1] == base58''))
689+                                                                    then unit
690+                                                                    else pAssetIds[1], pAmounts[1])]
691+                                                                else nil))
692+                                                            let reissue = invoke(i.caller, "reissueShareToken", [shareTokenToPayAmount], nil)
693+                                                            if ((reissue == reissue))
694+                                                                then {
695+                                                                    let stake3 = invoke(farmingAddress, "lockShareTokensFromPool", [callerBytes, toString(i.caller), lockType], stPayments)
696+                                                                    if ((stake3 == stake3))
697+                                                                        then nil
698+                                                                        else throw("Strict value is not equal to itself.")
699+                                                                    }
700+                                                                else throw("Strict value is not equal to itself.")
701+                                                            }
702+                                                        else [Reissue(shareAssetId, shareTokenToPayAmount, true), ScriptTransfer(caller, shareTokenToPayAmount, shareAssetId)]
703+                                                    $Tuple2(nil, $Tuple2(([IntegerEntry(kBalanceA, newBalanceA), IntegerEntry(kBalanceB, newBalanceB), IntegerEntry(kShareAssetSupply, (shareAssetSupply + shareTokenToPayAmount)), ScriptTransfer(moneyBoxAddress, govReward, govRewardAsset)] ++ shareTokenST), nil))
704+                                                    }
705+                                                else throw("Strict value is not equal to itself.")
706+                                            }
707+                                        else throw("Strict value is not equal to itself.")
708+                                    }
709+                            }
710+    }))
289711 
290712 
291713 
292714 @Callable(i)
293-func exchange (minAmountToReceive) = callCommon("exchange", i.caller.bytes, [toString(minAmountToReceive)], i.payments)
715+func withdraw (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
716+    let time = lastBlock.timestamp
717+    let caller = Address(callerBytes)
718+    let $t02977829868 = getPoolAssets(i.caller)
719+    let strAssetIdA = $t02977829868._1
720+    let strAssetIdB = $t02977829868._2
721+    let assetIdA = $t02977829868._3
722+    let assetIdB = $t02977829868._4
723+    let shareAssetId = $t02977829868._5
724+    let $t02988130005 = getPoolBalances(i.caller, assetIdA, assetIdB)
725+    let balanceA = $t02988130005._1
726+    let balanceB = $t02988130005._2
727+    let accountBalanceA = $t02988130005._3
728+    let accountBalanceB = $t02988130005._4
729+    let shareAssetSupply = $t02988130005._5
730+    let $t03001830426 = if ((size(pAmounts) == 1))
731+        then {
732+            let pAsset = parsePaymentAsset(pAssetIds[0])
733+            if ((pAsset != shareAssetId))
734+                then throw(("Incorrect asset attached. Expected: " + toBase58String(shareAssetId)))
735+                else $Tuple2(pAmounts[0], pAsset)
736+            }
737+        else $Tuple2(0, shareAssetId)
738+    let pmtAmount = $t03001830426._1
739+    let pmtAssetId = $t03001830426._2
740+    if ((size(args) != 1))
741+        then throw("Wrong args size")
742+        else if ((size(pAmounts) > 1))
743+            then throw("One attached payment expected")
744+            else if (if ((balanceA > accountBalanceA))
745+                then true
746+                else (balanceB > accountBalanceB))
747+                then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))
748+                else {
749+                    let unlockAmount = parseIntValue(valueOrElse(args[0], "0"))
750+                    let unlock = if ((unlockAmount > 0))
751+                        then invoke(farmingAddress, "withdrawShareTokensFromPool", [callerBytes, toString(i.caller), unlockAmount], nil)
752+                        else 0
753+                    if ((unlock == unlock))
754+                        then {
755+                            let withdrawAmount = (pmtAmount + unlockAmount)
756+                            let amountToPayA = fraction(withdrawAmount, balanceA, shareAssetSupply)
757+                            let amountToPayB = fraction(withdrawAmount, balanceB, shareAssetSupply)
758+                            let stake1 = if (contains(stakingAssets, strAssetIdA))
759+                                then invoke(i.caller, "stakeUnstake", [false, amountToPayA, strAssetIdA], nil)
760+                                else 0
761+                            if ((stake1 == stake1))
762+                                then {
763+                                    let stake2 = if (contains(stakingAssets, strAssetIdB))
764+                                        then invoke(i.caller, "stakeUnstake", [false, amountToPayB, strAssetIdB], nil)
765+                                        else 0
766+                                    if ((stake2 == stake2))
767+                                        then $Tuple2([ScriptTransfer(i.caller, unlockAmount, shareAssetId)], $Tuple2([IntegerEntry(kBalanceA, (balanceA - amountToPayA)), IntegerEntry(kBalanceB, (balanceB - amountToPayB)), IntegerEntry(kShareAssetSupply, (shareAssetSupply - withdrawAmount)), Burn(shareAssetId, withdrawAmount), ScriptTransfer(caller, amountToPayA, assetIdA), ScriptTransfer(caller, amountToPayB, assetIdB)], nil))
768+                                        else throw("Strict value is not equal to itself.")
769+                                    }
770+                                else throw("Strict value is not equal to itself.")
771+                            }
772+                        else throw("Strict value is not equal to itself.")
773+                    }
774+    }))
775+
776+
777+
778+@Callable(i)
779+func withdrawOneToken (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
780+    let caller = Address(callerBytes)
781+    let withdrawAsset = if ((args[0] == ""))
782+        then unit
783+        else fromBase58String(args[0])
784+    let $t03273732827 = getPoolAssets(i.caller)
785+    let strAssetIdA = $t03273732827._1
786+    let strAssetIdB = $t03273732827._2
787+    let assetIdA = $t03273732827._3
788+    let assetIdB = $t03273732827._4
789+    let shareAssetId = $t03273732827._5
790+    let $t03284032964 = getPoolBalances(i.caller, assetIdA, assetIdB)
791+    let balanceA = $t03284032964._1
792+    let balanceB = $t03284032964._2
793+    let accountBalanceA = $t03284032964._3
794+    let accountBalanceB = $t03284032964._4
795+    let shareAssetSupply = $t03284032964._5
796+    let $t03297733357 = if ((size(pAmounts) == 1))
797+        then {
798+            let pAsset = parsePaymentAsset(pAssetIds[0])
799+            if ((pAsset != shareAssetId))
800+                then throw(("Incorrect asset attached. Expected: " + toBase58String(shareAssetId)))
801+                else $Tuple2(pAmounts[0], pAsset)
802+            }
803+        else $Tuple2(0, shareAssetId)
804+    let pmtAmount = $t03297733357._1
805+    let pmtAssetId = $t03297733357._2
806+    let virtMinToRecive = parseIntValue(args[1])
807+    if ((size(args) != 3))
808+        then throw("Wrong args size")
809+        else if ((size(pAmounts) > 1))
810+            then throw("One attached payment expected")
811+            else if ((pmtAssetId != shareAssetId))
812+                then throw(("Incorrect asset attached. Expected: " + toBase58String(shareAssetId)))
813+                else if (!(containsElement([assetIdA, assetIdB], withdrawAsset)))
814+                    then throw("Incorrect withdraw asset.")
815+                    else if (if ((balanceA > accountBalanceA))
816+                        then true
817+                        else (balanceB > accountBalanceB))
818+                        then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))
819+                        else {
820+                            let unlockAmount = parseIntValue(valueOrElse(args[2], "0"))
821+                            let unlock = if ((unlockAmount > 0))
822+                                then invoke(farmingAddress, "withdrawShareTokensFromPool", [callerBytes, toString(i.caller), unlockAmount], nil)
823+                                else 0
824+                            if ((unlock == unlock))
825+                                then {
826+                                    let withdrawAmount = (pmtAmount + unlockAmount)
827+                                    let amountToPayA = fraction(withdrawAmount, balanceA, shareAssetSupply)
828+                                    let amountToPayB = fraction(withdrawAmount, balanceB, shareAssetSupply)
829+                                    let $t03470534763 = getFeeParams(i.caller, i.originCaller)
830+                                    let fee = $t03470534763._1
831+                                    let govFee = $t03470534763._2
832+                                    let $t03478035180 = if ((withdrawAsset == assetIdA))
833+                                        then calculateFees(amountToPayB, virtMinToRecive, (balanceB - amountToPayB), (balanceA - amountToPayA), fee, govFee)
834+                                        else calculateFees(amountToPayA, virtMinToRecive, (balanceA - amountToPayA), (balanceB - amountToPayB), fee, govFee)
835+                                    let amountWithoutFee = $t03478035180._1
836+                                    let amountWithFee = $t03478035180._2
837+                                    let governanceReward = $t03478035180._3
838+                                    let $t03519736543 = if ((withdrawAsset == assetIdA))
839+                                        then {
840+                                            let unstake = if (contains(stakingAssets, strAssetIdA))
841+                                                then invoke(i.caller, "stakeUnstake", [false, ((amountToPayA + amountWithFee) + governanceReward), strAssetIdA], nil)
842+                                                else 0
843+                                            if ((unstake == unstake))
844+                                                then $Tuple4((((balanceA - amountToPayA) - amountWithFee) - governanceReward), balanceB, assetIdA, [ScriptTransfer(caller, (amountToPayA + amountWithFee), assetIdA)])
845+                                                else throw("Strict value is not equal to itself.")
846+                                            }
847+                                        else {
848+                                            let unstake = if (contains(stakingAssets, strAssetIdB))
849+                                                then invoke(i.caller, "stakeUnstake", [false, ((amountToPayB + amountWithFee) + governanceReward), strAssetIdB], nil)
850+                                                else 0
851+                                            if ((unstake == unstake))
852+                                                then $Tuple4(balanceA, (((balanceB - amountToPayB) - amountWithFee) - governanceReward), assetIdB, [ScriptTransfer(caller, (amountToPayB + amountWithFee), assetIdB)])
853+                                                else throw("Strict value is not equal to itself.")
854+                                            }
855+                                    let newBalanceA = $t03519736543._1
856+                                    let newBalanceB = $t03519736543._2
857+                                    let govRewardAssetId = $t03519736543._3
858+                                    let userTransfer = $t03519736543._4
859+                                    $Tuple2([ScriptTransfer(i.caller, unlockAmount, shareAssetId)], $Tuple2(([IntegerEntry(kBalanceA, newBalanceA), IntegerEntry(kBalanceB, newBalanceB), IntegerEntry(kShareAssetSupply, (shareAssetSupply - withdrawAmount)), Burn(shareAssetId, withdrawAmount), ScriptTransfer(moneyBoxAddress, governanceReward, govRewardAssetId)] ++ userTransfer), nil))
860+                                    }
861+                                else throw("Strict value is not equal to itself.")
862+                            }
863+    }))
864+
865+
866+
867+@Callable(i)
868+func takeIntoAccountExtraFunds (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
869+    let $t03726837344 = getPoolAssets(i.caller)
870+    let strAssetIdA = $t03726837344._1
871+    let strAssetIdB = $t03726837344._2
872+    let assetIdA = $t03726837344._3
873+    let assetIdB = $t03726837344._4
874+    let $t03735737463 = getPoolBalances(i.caller, assetIdA, assetIdB)
875+    let balanceA = $t03735737463._1
876+    let balanceB = $t03735737463._2
877+    let accountBalanceA = $t03735737463._3
878+    let accountBalanceB = $t03735737463._4
879+    let amountEnrollA = (accountBalanceA - balanceA)
880+    let amountEnrollB = (accountBalanceB - balanceB)
881+    if ((size(args) != 0))
882+        then throw("Wrong args size")
883+        else if ((moneyBoxAddress != i.originCaller))
884+            then throw("Only the wallet can call this function")
885+            else if (if ((0 > amountEnrollA))
886+                then true
887+                else (0 > amountEnrollB))
888+                then suspend("Enroll amount negative")
889+                else if (if ((amountEnrollA == 0))
890+                    then (amountEnrollB == 0)
891+                    else false)
892+                    then throw("No money to take")
893+                    else {
894+                        let stake1 = if (if (contains(stakingAssets, strAssetIdA))
895+                            then (amountEnrollA > 0)
896+                            else false)
897+                            then invoke(i.caller, "stakeUnstake", [true, amountEnrollA, strAssetIdA], nil)
898+                            else 0
899+                        if ((stake1 == stake1))
900+                            then {
901+                                let stake2 = if (if (contains(stakingAssets, strAssetIdB))
902+                                    then (amountEnrollB > 0)
903+                                    else false)
904+                                    then invoke(i.caller, "stakeUnstake", [true, amountEnrollB, strAssetIdB], nil)
905+                                    else 0
906+                                if ((stake2 == stake2))
907+                                    then $Tuple2(nil, $Tuple2([IntegerEntry(kBalanceA, (balanceA + amountEnrollA)), IntegerEntry(kBalanceB, (balanceB + amountEnrollB))], nil))
908+                                    else throw("Strict value is not equal to itself.")
909+                                }
910+                            else throw("Strict value is not equal to itself.")
911+                        }
912+    }))
294913 
295914 
296915 @Verifier(tx)

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let version = "1.0.0"
5+
6+let kVersion = "version"
7+
48 let kActive = "active"
59 
6-let kActiveGlob = "active_all_contracts"
10+let kAssetIdA = "A_asset_id"
11+
12+let kAssetIdB = "B_asset_id"
13+
14+let kBalanceA = "A_asset_balance"
15+
16+let kBalanceB = "B_asset_balance"
17+
18+let kBalanceInitA = "A_asset_init"
19+
20+let kBalanceInitB = "B_asset_init"
21+
22+let kShareAssetId = "share_asset_id"
23+
24+let kShareAssetSupply = "share_asset_supply"
25+
26+let kFee = "commission"
727 
828 let kCause = "shutdown_cause"
29+
30+let kFirstHarvest = "first_harvest"
31+
32+let kFirstHarvestHeight = "first_harvest_height"
33+
34+let kShareLimit = "share_limit_on_first_harvest"
35+
36+let kBasePeriod = "base_period"
37+
38+let kPeriodLength = "period_length"
39+
40+let kStartHeight = "start_height"
941 
1042 let kUSDNAddress = "staking_usdnnsbt_address"
1143 
1244 let kEURNAddress = "staking_eurn_address"
1345 
14-let kLeasingPool = "leasing_address"
15-
1646 let kLeasingAmount = "leasing_amount"
1747 
18-let kLeasingId = "leasing_id"
48+let kUSDNAssetId = "usdn_asset_id"
49+
50+let kEURNAssetId = "eurn_asset_id"
51+
52+let kStakingAssets = "staking_assets"
53+
54+let kOracleActive = "active_all_contracts"
55+
56+let kDiscounts = "discounts"
57+
58+let kDiscountValues = "discount_values"
59+
60+let kUserGSwopInGov = "_GSwop_amount"
61+
62+let kUserSwopInGov = "_SWOP_amount"
63+
64+let kOraclePool = "pool_"
1965 
2066 let kAdminPubKey1 = "admin_pub_1"
2167 
2268 let kAdminPubKey2 = "admin_pub_2"
2369 
2470 let kAdminPubKey3 = "admin_pub_3"
2571 
2672 let kAdminInvokePubKey = "admin_invoke_pub"
2773 
28-let kCpmmContract = "cpmm_contract"
74+let kMoneyBoxAddress = "money_box_address"
2975 
30-let kUSDNAssetId = "usdn_asset_id"
76+let kVotingAddress = "voting_address"
3177 
32-let kEURNAssetId = "eurn_asset_id"
78+let kGovAddress = "governance_address"
3379 
34-let kStakingAssets = "staking_assets"
35-
36-let kShareAssetId = "share_asset_id"
80+let kFarmingAddress = "farming_address"
3781 
3882 let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
3983 
4084 func getBase58FromOracle (key) = match getString(oracle, key) {
4185     case string: String => 
4286         fromBase58String(string)
4387     case nothing => 
4488         throw((key + "is empty"))
4589 }
4690 
4791 
4892 let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
4993 
5094 let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
5195 
5296 let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
5397 
54-let adminPubKeyInvoke = getBase58FromOracle(kAdminInvokePubKey)
98+let adminInvokePubKey = getBase58FromOracle(kAdminInvokePubKey)
5599 
56-let stakingUSDNAddress = Address(getBase58FromOracle(kUSDNAddress))
100+let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
57101 
58-let stakingEURNAddress = Address(getBase58FromOracle(kEURNAddress))
102+let votingAddress = Address(getBase58FromOracle(kVotingAddress))
59103 
60-let cpmmContract = Address(getBase58FromOracle(kCpmmContract))
104+let govAddress = Address(getBase58FromOracle(kGovAddress))
105+
106+let farmingAddress = Address(getBase58FromOracle(kFarmingAddress))
61107 
62108 let USDN = getBase58FromOracle(kUSDNAssetId)
63109 
64110 let EURN = getBase58FromOracle(kEURNAssetId)
65111 
66112 let stakingAssets = getStringValue(oracle, kStakingAssets)
67113 
68-let activeGlob = valueOrElse(getBoolean(oracle, kActiveGlob), true)
114+let stakingUSDNAddress = Address(getBase58FromOracle(kUSDNAddress))
69115 
70-let active = valueOrElse(getBoolean(this, kActive), true)
116+let stakingEURNAddress = Address(getBase58FromOracle(kEURNAddress))
71117 
72-func isActive () = if (if (active)
73-    then activeGlob
74-    else false)
75-    then unit
76-    else throw("DApp is inactive at this moment")
118+let basePeriod = valueOrErrorMessage(getInteger(votingAddress, kBasePeriod), "Empty kBasePeriod")
119+
120+let startHeight = valueOrErrorMessage(getInteger(votingAddress, kStartHeight), "Empty kStartHeight")
121+
122+let periodLength = valueOrErrorMessage(getInteger(votingAddress, kPeriodLength), "Empty kPeriodLength")
123+
124+let firstHarvestEndPeriod = ((basePeriod + ((height - startHeight) / periodLength)) + 3)
125+
126+let active = getBooleanValue(oracle, kOracleActive)
127+
128+let feeScale6 = 1000000
129+
130+let scale8 = 100000000
131+
132+func accountBalance (assetId,pool) = match assetId {
133+    case id: ByteVector => 
134+        assetBalance(pool, id)
135+    case waves: Unit => 
136+        wavesBalance(pool).available
137+    case _ => 
138+        throw("Match error")
139+}
77140 
78141 
79-func isGlobalCaller (caller) = if ((caller == cpmmContract))
80-    then unit
81-    else throw("Only global Contract can invoke this function")
142+func stakedAmount (assetId,pool) = {
143+    let stakedAmountCalculated =     match assetId {
144+        case aId: ByteVector => 
145+            if ((aId == USDN))
146+                then getInteger(stakingUSDNAddress, ((("rpd_balance_" + toBase58String(aId)) + "_") + toString(pool)))
147+                else if ((aId == EURN))
148+                    then getInteger(stakingEURNAddress, ((("%s%s%s__stakingBalance__" + toBase58String(aId)) + "__") + toString(pool)))
149+                    else 0
150+        case _: Unit => 
151+            valueOrElse(getInteger(pool, kLeasingAmount), 0)
152+        case _ => 
153+            throw("Match error")
154+    }
155+    match stakedAmountCalculated {
156+        case i: Int => 
157+            i
158+        case _ => 
159+            0
160+    }
161+    }
82162 
83163 
84-func isAdminCall (callerPubKey) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], callerPubKey))
85-    then unit
86-    else throw("Only admin can call this function")
164+func getAssetInfo (assetId) = match assetId {
165+    case id: String|ByteVector => 
166+        let $t038974069 =         match id {
167+            case aId: ByteVector => 
168+                $Tuple2(toBase58String(aId), aId)
169+            case aId: String => 
170+                $Tuple2(aId, fromBase58String(aId))
171+            case _ => 
172+                throw("Match error")
173+        }
174+        let stringId = $t038974069._1
175+        let bytesId = $t038974069._2
176+        let info = valueOrErrorMessage(assetInfo(bytesId), (("Asset " + stringId) + " doesn't exist"))
177+        $Tuple3(stringId, info.name, info.decimals)
178+    case waves: Unit => 
179+        $Tuple3("WAVES", "WAVES", 8)
180+    case _ => 
181+        throw("Match error")
182+}
87183 
88184 
89185 func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
90186 
91187 
92-func calcStakingFuncAndAddres (stake,assetId) = if (stake)
93-    then if ((assetId == USDN))
94-        then $Tuple2("lockNeutrino", stakingUSDNAddress)
95-        else $Tuple2("startStaking", stakingEURNAddress)
96-    else if ((assetId == USDN))
97-        then $Tuple2("unlockNeutrino", stakingUSDNAddress)
98-        else $Tuple2("stopStaking", stakingEURNAddress)
99-
100-
101-func calcStakingParams (stake,amount,assetId) = if (stake)
102-    then {
103-        let $t025932659 = calcStakingFuncAndAddres(stake, assetId)
104-        let call = $t025932659._1
105-        let stakingAddr = $t025932659._2
106-        $Tuple4(call, stakingAddr, nil, [AttachedPayment(assetId, amount)])
107-        }
108-    else {
109-        let $t027452811 = calcStakingFuncAndAddres(stake, assetId)
110-        let call = $t027452811._1
111-        let stakingAddr = $t027452811._2
112-        $Tuple4(call, stakingAddr, [amount, toBase58String(assetId)], nil)
113-        }
114-
115-
116-func collectPayments (acc,payment) = {
117-    let $t029733016 = acc
118-    let paymentAmounts = $t029733016._1
119-    let paymentAssetIds = $t029733016._2
120-    $Tuple2((paymentAmounts :+ payment.amount), (paymentAssetIds :+ (if ((payment.assetId == unit))
121-        then base58''
122-        else payment.assetId)))
188+func calculateFeeDiscount (userAddr) = {
189+    let swopAmount = valueOrElse(getInteger(govAddress, (toString(userAddr) + kUserSwopInGov)), 0)
190+    let gSwopAmount = valueOrElse(getInteger(govAddress, (toString(userAddr) + kUserGSwopInGov)), swopAmount)
191+    let discountValues = split(getStringValue(oracle, kDiscountValues), ",")
192+    let discounts = split(getStringValue(oracle, kDiscounts), ",")
193+    if (if ((gSwopAmount >= parseIntValue(discountValues[0])))
194+        then (parseIntValue(discountValues[1]) > gSwopAmount)
195+        else false)
196+        then (feeScale6 - parseIntValue(discounts[0]))
197+        else if (if ((gSwopAmount >= parseIntValue(discountValues[1])))
198+            then (parseIntValue(discountValues[2]) > gSwopAmount)
199+            else false)
200+            then (feeScale6 - parseIntValue(discounts[1]))
201+            else if (if ((gSwopAmount >= parseIntValue(discountValues[2])))
202+                then (parseIntValue(discountValues[3]) > gSwopAmount)
203+                else false)
204+                then (feeScale6 - parseIntValue(discounts[2]))
205+                else if (if ((gSwopAmount >= parseIntValue(discountValues[3])))
206+                    then (parseIntValue(discountValues[4]) > gSwopAmount)
207+                    else false)
208+                    then (feeScale6 - parseIntValue(discounts[3]))
209+                    else if ((gSwopAmount >= parseIntValue(discountValues[4])))
210+                        then (feeScale6 - parseIntValue(discounts[4]))
211+                        else feeScale6
123212     }
124213 
125214 
126-func collectState (result,source) = match source {
127-    case e: Issue|Burn|Reissue|ScriptTransfer|BinaryEntry|BooleanEntry|StringEntry|IntegerEntry => 
128-        (result :+ e)
129-    case _ => 
130-        result
131-}
215+func calculateFees (pmtAmount,minAmountToReceive,tokenFrom,tokenTo,fee,feeGovernance) = {
216+    let amountWithoutFee = fraction(tokenTo, pmtAmount, (pmtAmount + tokenFrom))
217+    let amountWithFee = fraction(amountWithoutFee, (feeScale6 - fee), feeScale6)
218+    let governanceReward = fraction(amountWithoutFee, feeGovernance, feeScale6)
219+    if ((minAmountToReceive > amountWithFee))
220+        then throw(((("Calculated amount to receive " + toString(amountWithFee)) + " is less than specified minimum ") + toString(minAmountToReceive)))
221+        else $Tuple3(amountWithoutFee, amountWithFee, governanceReward)
222+    }
132223 
133224 
134-func collectData (result,source) = match source {
135-    case v: String => 
136-        (result :+ v)
137-    case v: Int => 
138-        (result :+ v)
139-    case v: Boolean => 
140-        (result :+ v)
141-    case v: ByteVector => 
142-        (result :+ v)
143-    case v: Unit => 
144-        (result :+ v)
145-    case _ => 
146-        throw()
147-}
225+func calculateVirtPay (pmtAmount,balance,fee) = {
226+    let F = (feeScale6 - fee)
227+    let k = fraction(fee, 60, 100)
228+    let a = (scale8 + fraction((F * k), scale8, (feeScale6 * feeScale6)))
229+    let b = ((((balance + fraction(balance, F, feeScale6)) + fraction(pmtAmount, F, feeScale6)) - pmtAmount) - fraction(pmtAmount, (F * k), (feeScale6 * feeScale6)))
230+    let c = (-(toBigInt(balance)) * toBigInt(pmtAmount))
231+    let D = ((toBigInt(b) * toBigInt(b)) - fraction((toBigInt(4) * c), toBigInt(a), toBigInt(scale8)))
232+    toInt(fraction((-(toBigInt(b)) + sqrtBigInt(D, 0, 0, DOWN)), toBigInt(scale8), toBigInt((2 * a))))
233+    }
148234 
149235 
150-func callCommon (funcName,caller,args,payments) = valueOrElse(isActive(), {
151-    let $t039364020 = {
152-        let $l = payments
153-        let $s = size($l)
154-        let $acc0 = $Tuple2(nil, nil)
155-        func $f0_1 ($a,$i) =         if (($i >= $s))
156-            then $a
157-            else collectPayments($a, $l[$i])
236+func parsePaymentAsset (assetId) = if ((assetId == base58''))
237+    then unit
238+    else assetId
158239 
159-        func $f0_2 ($a,$i) =         if (($i >= $s))
160-            then $a
161-            else throw("List size exceeds 10")
162240 
163-        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
164-        }
165-    let paymentAmounts = $t039364020._1
166-    let paymentAssetIds = $t039364020._2
167-    let lockPayment = if (if ((funcName == "replenishWithTwoTokens"))
168-        then (size(payments) == 3)
169-        else false)
170-        then [payments[2]]
171-        else if (if ((funcName == "replenishWithOneToken"))
172-            then (size(payments) == 2)
173-            else false)
174-            then [payments[1]]
175-            else nil
176-    let $t042494406 = {
177-        let @ = reentrantInvoke(cpmmContract, funcName, [caller, args, paymentAmounts, paymentAssetIds], lockPayment)
178-        if ($isInstanceOf(@, "(List[Any], List[Any])"))
179-            then @
180-            else throw(($getType(@) + " couldn't be cast to (List[Any], List[Any])"))
181-        }
182-    if (($t042494406 == $t042494406))
183-        then {
184-            let data = $t042494406._2
185-            let actions = $t042494406._1
186-            let mappedData = {
187-                let $l = data
188-                let $s = size($l)
189-                let $acc0 = nil
190-                func $f1_1 ($a,$i) =                 if (($i >= $s))
191-                    then $a
192-                    else collectData($a, $l[$i])
241+func suspendSuspicious (accountBalanceA,accountBalanceB,balanceA,balanceB,assetIdA,assetIdB) = suspend(((((((((((((((("Suspicious state. Actual balances: " + toString(accountBalanceA)) + " ") + assetIdA) + ", ") + toString(accountBalanceB)) + " ") + assetIdB) + ". State: ") + toString(balanceA)) + " ") + assetIdA) + ", ") + toString(balanceB)) + " ") + assetIdB))
193242 
194-                func $f1_2 ($a,$i) =                 if (($i >= $s))
195-                    then $a
196-                    else throw("List size exceeds 10")
197243 
198-                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
199-                }
200-            let mappedActions = {
201-                let $l = actions
202-                let $s = size($l)
203-                let $acc0 = nil
204-                func $f2_1 ($a,$i) =                 if (($i >= $s))
205-                    then $a
206-                    else collectState($a, $l[$i])
244+func isActive () = if (active)
245+    then unit
246+    else throw("DApp is inactive at this moment")
207247 
208-                func $f2_2 ($a,$i) =                 if (($i >= $s))
209-                    then $a
210-                    else throw("List size exceeds 15")
211248 
212-                $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
213-                }
214-            $Tuple2(mappedActions, mappedData)
215-            }
216-        else throw("Strict value is not equal to itself.")
217-    })
249+func isOraclePool (poolAddress) = if (isDefined(getString(oracle, (kOraclePool + poolAddress))))
250+    then unit
251+    else throw("DApp is not registered pool")
252+
253+
254+func getPoolBalances (pool,assetIdA,assetIdB) = {
255+    let balanceA = getIntegerValue(pool, kBalanceA)
256+    let balanceB = getIntegerValue(pool, kBalanceB)
257+    let stakedAmountA = stakedAmount(assetIdA, pool)
258+    let stakedAmountB = stakedAmount(assetIdB, pool)
259+    let accountBalanceA = (accountBalance(assetIdA, pool) + stakedAmountA)
260+    let accountBalanceB = (accountBalance(assetIdB, pool) + stakedAmountB)
261+    let shareSupply = getIntegerValue(pool, kShareAssetSupply)
262+    $Tuple5(balanceA, balanceB, accountBalanceA, accountBalanceB, shareSupply)
263+    }
264+
265+
266+func getPoolAssets (pool) = {
267+    let strAssetIdA = getStringValue(pool, kAssetIdA)
268+    let strAssetIdB = getStringValue(pool, kAssetIdB)
269+    let assetIdA = if ((strAssetIdA == "WAVES"))
270+        then unit
271+        else fromBase58String(strAssetIdA)
272+    let assetIdB = if ((strAssetIdB == "WAVES"))
273+        then unit
274+        else fromBase58String(strAssetIdB)
275+    let shareAssetId = fromBase58String(getStringValue(pool, kShareAssetId))
276+    $Tuple5(strAssetIdA, strAssetIdB, assetIdA, assetIdB, shareAssetId)
277+    }
278+
279+
280+func getFeeParams (pool,caller) = {
281+    let feeDiscount = calculateFeeDiscount(caller)
282+    let fee = fraction(getIntegerValue(pool, kFee), feeDiscount, feeScale6, CEILING)
283+    let govFee = fraction(fraction(fee, 40, 100), feeDiscount, feeScale6, CEILING)
284+    $Tuple2(fee, govFee)
285+    }
218286 
219287 
220288 @Callable(i)
221-func callFunction (funcName,args) = callCommon(funcName, i.caller.bytes, args, i.payments)
289+func init (callerBytes,args,pAmounts,pAssetIds) = {
290+    let caller = Address(callerBytes)
291+    let $t090769154 = $Tuple2(pAmounts[0], parsePaymentAsset(pAssetIds[0]))
292+    let pmtAmountA = $t090769154._1
293+    let pmtAssetIdA = $t090769154._2
294+    let $t091599237 = $Tuple2(pAmounts[1], parsePaymentAsset(pAssetIds[1]))
295+    let pmtAmountB = $t091599237._1
296+    let pmtAssetIdB = $t091599237._2
297+    if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3, adminInvokePubKey], i.originCallerPublicKey)))
298+        then throw("Only admin can call this function")
299+        else if ((size(args) != 1))
300+            then throw("Wrong args size")
301+            else if (isDefined(getBoolean(caller, kActive)))
302+                then throw("DApp is already active")
303+                else if ((pmtAssetIdA == pmtAssetIdB))
304+                    then throw("Assets must be different")
305+                    else {
306+                        let $t096729749 = getAssetInfo(pmtAssetIdA)
307+                        let pmtStrAssetIdA = $t096729749._1
308+                        let pmtAssetNameA = $t096729749._2
309+                        let pmtDecimalsA = $t096729749._3
310+                        let $t097589835 = getAssetInfo(pmtAssetIdB)
311+                        let pmtStrAssetIdB = $t097589835._1
312+                        let pmtAssetNameB = $t097589835._2
313+                        let pmtDecimalsB = $t097589835._3
314+                        let firstHarvest = (args[0] == "true")
315+                        let shareName = ((("s" + take(pmtAssetNameA, 7)) + "_") + take(pmtAssetNameB, 7))
316+                        let shareDescription = ((((("ShareToken of SwopFi protocol for " + pmtAssetNameA) + " and ") + pmtAssetNameB) + " at address ") + toString(this))
317+                        let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
318+                        let arg1 = pow(pmtAmountA, pmtDecimalsA, 5, 1, pmtDecimalsA, DOWN)
319+                        let arg2 = pow(pmtAmountB, pmtDecimalsB, 5, 1, pmtDecimalsB, DOWN)
320+                        let arg3 = pow(10, 0, shareDecimals, 0, 0, DOWN)
321+                        let shareInitialSupply = fraction(arg1, arg2, arg3)
322+                        let shareIssue = Issue(shareName, shareDescription, shareInitialSupply, shareDecimals, true)
323+                        let shareIssueId = calculateAssetId(shareIssue)
324+                        let stake1 = if (contains(stakingAssets, pmtStrAssetIdA))
325+                            then invoke(i.caller, "stakeUnstake", [true, pmtAmountA, pmtStrAssetIdA], nil)
326+                            else 0
327+                        if ((stake1 == stake1))
328+                            then {
329+                                let stake2 = if (contains(stakingAssets, pmtStrAssetIdB))
330+                                    then invoke(i.caller, "stakeUnstake", [true, pmtAmountB, pmtStrAssetIdB], nil)
331+                                    else 0
332+                                if ((stake2 == stake2))
333+                                    then {
334+                                        let baseEntry = [StringEntry(kVersion, version), BooleanEntry(kActive, true), StringEntry(kAssetIdA, pmtStrAssetIdA), StringEntry(kAssetIdB, pmtStrAssetIdB), IntegerEntry(kBalanceA, pmtAmountA), IntegerEntry(kBalanceB, pmtAmountB), IntegerEntry(kFee, getIntegerValue(oracle, "base_fee_cpmm")), shareIssue, StringEntry(kShareAssetId, toBase58String(shareIssueId)), IntegerEntry(kShareAssetSupply, shareInitialSupply), ScriptTransfer(caller, shareInitialSupply, shareIssueId)]
335+                                        if (firstHarvest)
336+                                            then $Tuple2(nil, $Tuple2((baseEntry ++ [BooleanEntry(kFirstHarvest, firstHarvest), IntegerEntry(kFirstHarvestHeight, (startHeight + (firstHarvestEndPeriod * periodLength)))]), nil))
337+                                            else $Tuple2(nil, $Tuple2(baseEntry, nil))
338+                                        }
339+                                    else throw("Strict value is not equal to itself.")
340+                                }
341+                            else throw("Strict value is not equal to itself.")
342+                        }
343+    }
222344 
223345 
224346 
225347 @Callable(i)
226-func shutdown () = valueOrElse(isAdminCall(i.callerPublicKey), if (!(active))
227-    then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
228-    else suspend("Paused by admin"))
348+func initWithInitRatio (callerBytes,args,pAmounts,pAssetIds) = {
349+    let caller = Address(callerBytes)
350+    let $t01205612256 = $Tuple5(parseIntValue(args[0]), parseIntValue(args[1]), args[2], args[3], (args[4] == "true"))
351+    let amtAssetA = $t01205612256._1
352+    let amtAssetB = $t01205612256._2
353+    let assetIdAStr = $t01205612256._3
354+    let assetIdBStr = $t01205612256._4
355+    let firstHarvest = $t01205612256._5
356+    if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3, adminInvokePubKey], i.originCallerPublicKey)))
357+        then throw("Only admin can call this function")
358+        else if ((size(args) != 5))
359+            then throw("Wrong args size")
360+            else if (isDefined(getBoolean(caller, kActive)))
361+                then throw("DApp is already active")
362+                else if ((assetIdAStr == assetIdBStr))
363+                    then throw("Assets must be different")
364+                    else {
365+                        let $t01269112768 = getAssetInfo(assetIdAStr)
366+                        let pmtStrAssetIdA = $t01269112768._1
367+                        let pmtAssetNameA = $t01269112768._2
368+                        let pmtDecimalsA = $t01269112768._3
369+                        let $t01277712854 = getAssetInfo(assetIdBStr)
370+                        let pmtStrAssetIdB = $t01277712854._1
371+                        let pmtAssetNameB = $t01277712854._2
372+                        let pmtDecimalsB = $t01277712854._3
373+                        let shareName = ((("s" + take(pmtAssetNameA, 7)) + "_") + take(pmtAssetNameB, 7))
374+                        let shareDescription = ((((("ShareToken of SwopFi protocol for " + pmtAssetNameA) + " and ") + pmtAssetNameB) + " at address ") + toString(this))
375+                        let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
376+                        let shareInitialSupply = 0
377+                        let shareIssue = Issue(shareName, shareDescription, shareInitialSupply, shareDecimals, true)
378+                        let shareIssueId = calculateAssetId(shareIssue)
379+                        let baseEntry = [StringEntry(kVersion, version), BooleanEntry(kActive, true), StringEntry(kAssetIdA, pmtStrAssetIdA), StringEntry(kAssetIdB, pmtStrAssetIdB), IntegerEntry(kBalanceInitA, amtAssetA), IntegerEntry(kBalanceInitB, amtAssetB), IntegerEntry(kBalanceA, 0), IntegerEntry(kBalanceB, 0), IntegerEntry(kFee, getIntegerValue(oracle, "base_fee_cpmm")), shareIssue, StringEntry(kShareAssetId, toBase58String(shareIssueId)), IntegerEntry(kShareAssetSupply, shareInitialSupply)]
380+                        if (firstHarvest)
381+                            then $Tuple2(nil, $Tuple2((baseEntry ++ [BooleanEntry(kFirstHarvest, firstHarvest), IntegerEntry(kFirstHarvestHeight, (startHeight + (firstHarvestEndPeriod * periodLength)))]), nil))
382+                            else $Tuple2(nil, $Tuple2(baseEntry, nil))
383+                        }
384+    }
229385 
230386 
231387 
232388 @Callable(i)
233-func activate () = valueOrElse(isAdminCall(i.callerPublicKey), if (active)
234-    then throw("DApp is already active")
235-    else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
389+func keepLimitForFirstHarvest (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3, adminInvokePubKey], i.originCallerPublicKey)))
390+    then throw("Only admin can call this function")
391+    else if ((size(args) != 1))
392+        then throw("Wrong args size")
393+        else {
394+            let shareLimit = parseIntValue(args[0])
395+            $Tuple2(nil, $Tuple2([IntegerEntry(kShareLimit, shareLimit)], nil))
396+            }))
236397 
237398 
238399 
239400 @Callable(i)
240-func stakeUnstake (stake,amount,assetIdString) = valueOrElse(isActive(), if ((i.caller != cpmmContract))
241-    then throw("Only global Contract can invoke this function")
242-    else if ((assetIdString == "WAVES"))
243-        then {
244-            let pool = addressFromStringValue(valueOrErrorMessage(getString(oracle, kLeasingPool), "No leasing pool in oracle"))
245-            let leasingId = getBinary(this, kLeasingId)
246-            let leasingAmount = valueOrElse(getInteger(this, kLeasingAmount), 0)
247-            let newLeaseAmount = if (stake)
248-                then (leasingAmount + amount)
249-                else (leasingAmount - amount)
250-            let newLease = Lease(pool, newLeaseAmount)
251-            let newLeaseId = calculateLeaseId(newLease)
252-            let baseEtry = [newLease, BinaryEntry(kLeasingId, newLeaseId), IntegerEntry(kLeasingAmount, newLeaseAmount)]
253-            match leasingId {
254-                case lId: ByteVector => 
255-                    ([LeaseCancel(lId)] ++ baseEtry)
256-                case _ => 
257-                    baseEtry
258-            }
259-            }
260-        else {
261-            let $t064026505 = calcStakingParams(stake, amount, fromBase58String(assetIdString))
262-            let call = $t064026505._1
263-            let addr = $t064026505._2
264-            let params = $t064026505._3
265-            let payments = $t064026505._4
266-            let inv = invoke(addr, call, params, payments)
267-            if ((inv == inv))
268-                then nil
269-                else throw("Strict value is not equal to itself.")
270-            })
271-
272-
273-
274-@Callable(i)
275-func reissueShareToken (amount) = valueOrElse(isGlobalCaller(i.caller), valueOrElse(isActive(), {
276-    let shareAssetId = fromBase58String(getStringValue(this, kShareAssetId))
277-[Reissue(shareAssetId, amount, true), ScriptTransfer(i.caller, amount, shareAssetId)]
401+func exchange (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
402+    let caller = Address(callerBytes)
403+    let $t01524015316 = $Tuple2(pAmounts[0], parsePaymentAsset(pAssetIds[0]))
404+    let pmtAmount = $t01524015316._1
405+    let pmtAssetId = $t01524015316._2
406+    let minAmountToReceive = parseIntValue(args[0])
407+    let $t01538915465 = getPoolAssets(i.caller)
408+    let strAssetIdA = $t01538915465._1
409+    let strAssetIdB = $t01538915465._2
410+    let assetIdA = $t01538915465._3
411+    let assetIdB = $t01538915465._4
412+    let $t01547815584 = getPoolBalances(i.caller, assetIdA, assetIdB)
413+    let balanceA = $t01547815584._1
414+    let balanceB = $t01547815584._2
415+    let accountBalanceA = $t01547815584._3
416+    let accountBalanceB = $t01547815584._4
417+    if ((size(args) != 1))
418+        then throw("Wrong args size")
419+        else if (if ((balanceA == 0))
420+            then true
421+            else (balanceB == 0))
422+            then throw("Can't exchange with zero balance")
423+            else if ((0 >= minAmountToReceive))
424+                then throw(("Minimal amount to receive must be positive. Actual: " + toString(minAmountToReceive)))
425+                else if ((size(pAmounts) != 1))
426+                    then throw("One attached payment expected")
427+                    else if (!(containsElement([assetIdA, assetIdB], pmtAssetId)))
428+                        then throw(((("Incorrect asset attached. Expected: " + strAssetIdA) + " or ") + strAssetIdB))
429+                        else if (if ((balanceA > accountBalanceA))
430+                            then true
431+                            else (balanceB > accountBalanceB))
432+                            then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))
433+                            else {
434+                                let $t01655216610 = getFeeParams(i.caller, i.originCaller)
435+                                let fee = $t01655216610._1
436+                                let govFee = $t01655216610._2
437+                                let $t01662716964 = if ((pmtAssetId == assetIdA))
438+                                    then calculateFees(pmtAmount, minAmountToReceive, balanceA, balanceB, fee, govFee)
439+                                    else calculateFees(pmtAmount, minAmountToReceive, balanceB, balanceA, fee, govFee)
440+                                let amountWithoutFee = $t01662716964._1
441+                                let amountWithFee = $t01662716964._2
442+                                let governanceReward = $t01662716964._3
443+                                let $t01698217307 = if ((pmtAssetId == assetIdA))
444+                                    then $Tuple3((balanceA + pmtAmount), ((balanceB - amountWithFee) - governanceReward), assetIdB)
445+                                    else $Tuple3(((balanceA - amountWithFee) - governanceReward), (balanceB + pmtAmount), assetIdA)
446+                                let newBalanceA = $t01698217307._1
447+                                let newBalanceB = $t01698217307._2
448+                                let assetIdSend = $t01698217307._3
449+                                let $t01732517575 = if ((pmtAssetId == assetIdA))
450+                                    then $Tuple2(pmtAmount, (amountWithFee + governanceReward))
451+                                    else $Tuple2((amountWithFee + governanceReward), pmtAmount)
452+                                let stakeAmountA = $t01732517575._1
453+                                let stakeAmountB = $t01732517575._2
454+                                let stake1 = if (contains(stakingAssets, strAssetIdA))
455+                                    then invoke(i.caller, "stakeUnstake", [(pmtAssetId == assetIdA), stakeAmountA, strAssetIdA], nil)
456+                                    else 0
457+                                if ((stake1 == stake1))
458+                                    then {
459+                                        let stake2 = if (contains(stakingAssets, strAssetIdB))
460+                                            then invoke(i.caller, "stakeUnstake", [(pmtAssetId == assetIdB), stakeAmountB, strAssetIdB], nil)
461+                                            else 0
462+                                        if ((stake2 == stake2))
463+                                            then $Tuple2(nil, $Tuple2([IntegerEntry(kBalanceA, newBalanceA), IntegerEntry(kBalanceB, newBalanceB), ScriptTransfer(caller, amountWithFee, assetIdSend), ScriptTransfer(moneyBoxAddress, governanceReward, assetIdSend)], [amountWithFee, assetIdSend]))
464+                                            else throw("Strict value is not equal to itself.")
465+                                        }
466+                                    else throw("Strict value is not equal to itself.")
467+                                }
278468     }))
279469 
280470 
281471 
282472 @Callable(i)
283-func replenishWithTwoTokens (slippageTolerance) = callCommon("replenishWithTwoTokens", i.caller.bytes, ["false", "0"], i.payments)
473+func replenishWithTwoTokens (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
474+    let caller = Address(callerBytes)
475+    let pmtAssetIdA = parsePaymentAsset(pAssetIds[0])
476+    let pmtAssetIdB = parsePaymentAsset(pAssetIds[1])
477+    let stakeFarming = (args[0] == "true")
478+    let lockType = parseIntValue(args[1])
479+    let $t01883818928 = getPoolAssets(i.caller)
480+    let strAssetIdA = $t01883818928._1
481+    let strAssetIdB = $t01883818928._2
482+    let assetIdA = $t01883818928._3
483+    let assetIdB = $t01883818928._4
484+    let shareAssetId = $t01883818928._5
485+    let $t01894119065 = getPoolBalances(i.caller, assetIdA, assetIdB)
486+    let balanceA = $t01894119065._1
487+    let balanceB = $t01894119065._2
488+    let accountBalanceA = $t01894119065._3
489+    let accountBalanceB = $t01894119065._4
490+    let shareAssetSupply = $t01894119065._5
491+    if ((size(args) != 2))
492+        then throw("Wrong args size")
493+        else if (if ((size(pAmounts) != 2))
494+            then (size(pAmounts) != 3)
495+            else false)
496+            then throw("Two or three payments expected")
497+            else if (if ((pmtAssetIdA != assetIdA))
498+                then true
499+                else (pmtAssetIdB != assetIdB))
500+                then throw(((("Incorrect assets attached. Expected: " + strAssetIdA) + " and ") + strAssetIdB))
501+                else if (if ((balanceA > accountBalanceA))
502+                    then true
503+                    else (balanceB > accountBalanceB))
504+                    then $Tuple2(nil, ([ScriptTransfer(caller, pAmounts[0], pmtAssetIdA), ScriptTransfer(caller, pAmounts[1], pmtAssetIdB)] ++ (if ((size(pAmounts) == 3))
505+                        then [AttachedPayment(if ((pAssetIds[2] == base58''))
506+                            then unit
507+                            else pAssetIds[2], pAmounts[2])]
508+                        else (nil ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))))
509+                    else {
510+                        let $t02006620143 = getAssetInfo(pmtAssetIdA)
511+                        let pmtStrAssetIdA = $t02006620143._1
512+                        let pmtAssetNameA = $t02006620143._2
513+                        let pmtDecimalsA = $t02006620143._3
514+                        let $t02016020237 = getAssetInfo(pmtAssetIdB)
515+                        let pmtStrAssetIdB = $t02016020237._1
516+                        let pmtAssetNameB = $t02016020237._2
517+                        let pmtDecimalsB = $t02016020237._3
518+                        let initial = ((balanceA + balanceB) == 0)
519+                        let $t02031221155 = if (initial)
520+                            then $Tuple5(pAmounts[0], pAmounts[1], 0, pmtAssetIdA, 1)
521+                            else {
522+                                let ratioShareTokensInA = fraction(scale8, pAmounts[0], balanceA)
523+                                let ratioShareTokensInB = fraction(scale8, pAmounts[1], balanceB)
524+                                if ((ratioShareTokensInB > ratioShareTokensInA))
525+                                    then {
526+                                        let pmt = fraction(pAmounts[0], balanceB, balanceA)
527+                                        $Tuple5(pAmounts[0], pmt, (pAmounts[1] - pmt), pmtAssetIdB, ratioShareTokensInA)
528+                                        }
529+                                    else {
530+                                        let pmt = fraction(pAmounts[1], balanceA, balanceB)
531+                                        $Tuple5(pmt, pAmounts[1], (pAmounts[0] - pmt), pmtAssetIdA, ratioShareTokensInB)
532+                                        }
533+                                }
534+                        let pmtAmountA = $t02031221155._1
535+                        let pmtAmountB = $t02031221155._2
536+                        let change = $t02031221155._3
537+                        let changeAssetId = $t02031221155._4
538+                        let shareTokenRatio = $t02031221155._5
539+                        let shareTokenToPayAmount = if (initial)
540+                            then {
541+                                let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
542+                                fraction(pow(pmtAmountA, pmtDecimalsA, 5, 1, pmtDecimalsA, DOWN), pow(pmtAmountB, pmtDecimalsB, 5, 1, pmtDecimalsB, DOWN), pow(10, 0, shareDecimals, 0, 0, DOWN))
543+                                }
544+                            else fraction(shareTokenRatio, shareAssetSupply, scale8)
545+                        if ((shareTokenToPayAmount == 0))
546+                            then throw("Too small amount to replenish")
547+                            else if ((0 > change))
548+                                then throw("Change < 0")
549+                                else {
550+                                    let stake1 = if (contains(stakingAssets, pmtStrAssetIdA))
551+                                        then invoke(i.caller, "stakeUnstake", [true, pmtAmountA, pmtStrAssetIdA], nil)
552+                                        else 0
553+                                    if ((stake1 == stake1))
554+                                        then {
555+                                            let stake2 = if (contains(stakingAssets, pmtStrAssetIdB))
556+                                                then invoke(i.caller, "stakeUnstake", [true, pmtAmountB, pmtStrAssetIdB], nil)
557+                                                else 0
558+                                            if ((stake2 == stake2))
559+                                                then {
560+                                                    let shareTokenST = if (stakeFarming)
561+                                                        then {
562+                                                            let stPayments = ([AttachedPayment(shareAssetId, shareTokenToPayAmount)] ++ (if ((size(pAmounts) == 3))
563+                                                                then [AttachedPayment(if ((pAssetIds[2] == base58''))
564+                                                                    then unit
565+                                                                    else pAssetIds[2], pAmounts[2])]
566+                                                                else nil))
567+                                                            let reissue = invoke(i.caller, "reissueShareToken", [shareTokenToPayAmount], nil)
568+                                                            if ((reissue == reissue))
569+                                                                then {
570+                                                                    let stake3 = invoke(farmingAddress, "lockShareTokensFromPool", [callerBytes, toString(i.caller), lockType], stPayments)
571+                                                                    if ((stake3 == stake3))
572+                                                                        then nil
573+                                                                        else throw("Strict value is not equal to itself.")
574+                                                                    }
575+                                                                else throw("Strict value is not equal to itself.")
576+                                                            }
577+                                                        else [Reissue(shareAssetId, shareTokenToPayAmount, true), ScriptTransfer(caller, shareTokenToPayAmount, shareAssetId)]
578+                                                    $Tuple2(nil, $Tuple2(([IntegerEntry(kBalanceA, (balanceA + pmtAmountA)), IntegerEntry(kBalanceB, (balanceB + pmtAmountB)), IntegerEntry(kShareAssetSupply, (shareAssetSupply + shareTokenToPayAmount)), ScriptTransfer(caller, change, changeAssetId)] ++ shareTokenST), nil))
579+                                                    }
580+                                                else throw("Strict value is not equal to itself.")
581+                                            }
582+                                        else throw("Strict value is not equal to itself.")
583+                                    }
584+                        }
585+    }))
284586 
285587 
286588 
287589 @Callable(i)
288-func withdraw () = callCommon("withdraw", i.caller.bytes, ["0"], i.payments)
590+func replenishWithOneToken (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
591+    let caller = Address(callerBytes)
592+    let pmtAssetId = parsePaymentAsset(pAssetIds[0])
593+    let pmtAmount = pAmounts[0]
594+    let virtGetMinAmount = parseIntValue(args[0])
595+    let stakeFarming = (args[1] == "true")
596+    let lockType = parseIntValue(args[2])
597+    let $t02406024150 = getPoolAssets(i.caller)
598+    let strAssetIdA = $t02406024150._1
599+    let strAssetIdB = $t02406024150._2
600+    let assetIdA = $t02406024150._3
601+    let assetIdB = $t02406024150._4
602+    let shareAssetId = $t02406024150._5
603+    let $t02416324287 = getPoolBalances(i.caller, assetIdA, assetIdB)
604+    let balanceA = $t02416324287._1
605+    let balanceB = $t02416324287._2
606+    let accountBalanceA = $t02416324287._3
607+    let accountBalanceB = $t02416324287._4
608+    let shareAssetSupply = $t02416324287._5
609+    let initial = ((balanceA + balanceB) == 0)
610+    if ((size(args) != 3))
611+        then throw("Wrong args size")
612+        else if (if ((size(pAmounts) != 1))
613+            then (size(pAmounts) != 2)
614+            else false)
615+            then throw("Two or one attached assets expected")
616+            else if (if ((pmtAssetId != assetIdA))
617+                then (pmtAssetId != assetIdB)
618+                else false)
619+                then throw(((("Incorrect asset attached. Expected: " + strAssetIdA) + " or ") + strAssetIdB))
620+                else if (initial)
621+                    then throw("For initial exchanger you need to use two tokens")
622+                    else if (if ((balanceA > accountBalanceA))
623+                        then true
624+                        else (balanceB > accountBalanceB))
625+                        then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ (if ((size(pAmounts) == 2))
626+                            then [AttachedPayment(if ((pAssetIds[2] == base58''))
627+                                then unit
628+                                else pAssetIds[2], pAmounts[2])]
629+                            else (nil ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))))
630+                        else {
631+                            let $t02534325401 = getFeeParams(i.caller, i.originCaller)
632+                            let fee = $t02534325401._1
633+                            let govFee = $t02534325401._2
634+                            let $t02541827624 = if ((pmtAssetId == assetIdA))
635+                                then {
636+                                    let virtPayAmount = calculateVirtPay(pmtAmount, balanceA, fee)
637+                                    let $t02569725834 = calculateFees(virtPayAmount, virtGetMinAmount, balanceA, balanceB, fee, govFee)
638+                                    let amountWithoutFee = $t02569725834._1
639+                                    let amountWithFee = $t02569725834._2
640+                                    let governanceReward = $t02569725834._3
641+                                    let balanceAVirt = (balanceA + virtPayAmount)
642+                                    let balanceBVirt = ((balanceB + amountWithoutFee) - governanceReward)
643+                                    let newBalanceA = (balanceA + pmtAmount)
644+                                    let newBalanceB = (balanceB - governanceReward)
645+                                    let ratioShareTokensInA = fraction((pmtAmount - virtPayAmount), scale8, balanceAVirt)
646+                                    let ratioShareTokensInB = fraction(amountWithFee, scale8, balanceBVirt)
647+                                    let shareTokenToPayAmount = fraction(min([ratioShareTokensInA, ratioShareTokensInB]), shareAssetSupply, scale8)
648+                                    $Tuple7(newBalanceA, newBalanceB, shareTokenToPayAmount, governanceReward, assetIdB, strAssetIdB, strAssetIdA)
649+                                    }
650+                                else {
651+                                    let virtPayAmount = calculateVirtPay(pmtAmount, balanceB, fee)
652+                                    let $t02672926866 = calculateFees(virtPayAmount, virtGetMinAmount, balanceB, balanceA, fee, govFee)
653+                                    let amountWithoutFee = $t02672926866._1
654+                                    let amountWithFee = $t02672926866._2
655+                                    let governanceReward = $t02672926866._3
656+                                    let balanceAVirt = ((balanceA + amountWithoutFee) - governanceReward)
657+                                    let balanceBVirt = (balanceB + virtPayAmount)
658+                                    let newBalanceA = (balanceA - governanceReward)
659+                                    let newBalanceB = (balanceB + pmtAmount)
660+                                    let ratioShareTokensInA = fraction(amountWithFee, scale8, balanceAVirt)
661+                                    let ratioShareTokensInB = fraction((pmtAmount - virtPayAmount), scale8, balanceBVirt)
662+                                    let shareTokenToPayAmount = fraction(min([ratioShareTokensInA, ratioShareTokensInB]), shareAssetSupply, scale8)
663+                                    $Tuple7(newBalanceA, newBalanceB, shareTokenToPayAmount, governanceReward, assetIdA, strAssetIdA, strAssetIdB)
664+                                    }
665+                            let newBalanceA = $t02541827624._1
666+                            let newBalanceB = $t02541827624._2
667+                            let shareTokenToPayAmount = $t02541827624._3
668+                            let govReward = $t02541827624._4
669+                            let govRewardAsset = $t02541827624._5
670+                            let govRewardAssetStr = $t02541827624._6
671+                            let pmtAssetIdStr = $t02541827624._7
672+                            if ((shareTokenToPayAmount == 0))
673+                                then throw("Too small amount to replenish")
674+                                else {
675+                                    let stake1 = if (contains(stakingAssets, pmtAssetIdStr))
676+                                        then invoke(i.caller, "stakeUnstake", [true, pmtAmount, pmtAssetIdStr], nil)
677+                                        else 0
678+                                    if ((stake1 == stake1))
679+                                        then {
680+                                            let stake2 = if (contains(stakingAssets, govRewardAssetStr))
681+                                                then invoke(i.caller, "stakeUnstake", [false, govReward, govRewardAssetStr], nil)
682+                                                else 0
683+                                            if ((stake2 == stake2))
684+                                                then {
685+                                                    let shareTokenST = if (stakeFarming)
686+                                                        then {
687+                                                            let stPayments = ([AttachedPayment(shareAssetId, shareTokenToPayAmount)] ++ (if ((size(pAmounts) == 2))
688+                                                                then [AttachedPayment(if ((pAssetIds[1] == base58''))
689+                                                                    then unit
690+                                                                    else pAssetIds[1], pAmounts[1])]
691+                                                                else nil))
692+                                                            let reissue = invoke(i.caller, "reissueShareToken", [shareTokenToPayAmount], nil)
693+                                                            if ((reissue == reissue))
694+                                                                then {
695+                                                                    let stake3 = invoke(farmingAddress, "lockShareTokensFromPool", [callerBytes, toString(i.caller), lockType], stPayments)
696+                                                                    if ((stake3 == stake3))
697+                                                                        then nil
698+                                                                        else throw("Strict value is not equal to itself.")
699+                                                                    }
700+                                                                else throw("Strict value is not equal to itself.")
701+                                                            }
702+                                                        else [Reissue(shareAssetId, shareTokenToPayAmount, true), ScriptTransfer(caller, shareTokenToPayAmount, shareAssetId)]
703+                                                    $Tuple2(nil, $Tuple2(([IntegerEntry(kBalanceA, newBalanceA), IntegerEntry(kBalanceB, newBalanceB), IntegerEntry(kShareAssetSupply, (shareAssetSupply + shareTokenToPayAmount)), ScriptTransfer(moneyBoxAddress, govReward, govRewardAsset)] ++ shareTokenST), nil))
704+                                                    }
705+                                                else throw("Strict value is not equal to itself.")
706+                                            }
707+                                        else throw("Strict value is not equal to itself.")
708+                                    }
709+                            }
710+    }))
289711 
290712 
291713 
292714 @Callable(i)
293-func exchange (minAmountToReceive) = callCommon("exchange", i.caller.bytes, [toString(minAmountToReceive)], i.payments)
715+func withdraw (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
716+    let time = lastBlock.timestamp
717+    let caller = Address(callerBytes)
718+    let $t02977829868 = getPoolAssets(i.caller)
719+    let strAssetIdA = $t02977829868._1
720+    let strAssetIdB = $t02977829868._2
721+    let assetIdA = $t02977829868._3
722+    let assetIdB = $t02977829868._4
723+    let shareAssetId = $t02977829868._5
724+    let $t02988130005 = getPoolBalances(i.caller, assetIdA, assetIdB)
725+    let balanceA = $t02988130005._1
726+    let balanceB = $t02988130005._2
727+    let accountBalanceA = $t02988130005._3
728+    let accountBalanceB = $t02988130005._4
729+    let shareAssetSupply = $t02988130005._5
730+    let $t03001830426 = if ((size(pAmounts) == 1))
731+        then {
732+            let pAsset = parsePaymentAsset(pAssetIds[0])
733+            if ((pAsset != shareAssetId))
734+                then throw(("Incorrect asset attached. Expected: " + toBase58String(shareAssetId)))
735+                else $Tuple2(pAmounts[0], pAsset)
736+            }
737+        else $Tuple2(0, shareAssetId)
738+    let pmtAmount = $t03001830426._1
739+    let pmtAssetId = $t03001830426._2
740+    if ((size(args) != 1))
741+        then throw("Wrong args size")
742+        else if ((size(pAmounts) > 1))
743+            then throw("One attached payment expected")
744+            else if (if ((balanceA > accountBalanceA))
745+                then true
746+                else (balanceB > accountBalanceB))
747+                then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))
748+                else {
749+                    let unlockAmount = parseIntValue(valueOrElse(args[0], "0"))
750+                    let unlock = if ((unlockAmount > 0))
751+                        then invoke(farmingAddress, "withdrawShareTokensFromPool", [callerBytes, toString(i.caller), unlockAmount], nil)
752+                        else 0
753+                    if ((unlock == unlock))
754+                        then {
755+                            let withdrawAmount = (pmtAmount + unlockAmount)
756+                            let amountToPayA = fraction(withdrawAmount, balanceA, shareAssetSupply)
757+                            let amountToPayB = fraction(withdrawAmount, balanceB, shareAssetSupply)
758+                            let stake1 = if (contains(stakingAssets, strAssetIdA))
759+                                then invoke(i.caller, "stakeUnstake", [false, amountToPayA, strAssetIdA], nil)
760+                                else 0
761+                            if ((stake1 == stake1))
762+                                then {
763+                                    let stake2 = if (contains(stakingAssets, strAssetIdB))
764+                                        then invoke(i.caller, "stakeUnstake", [false, amountToPayB, strAssetIdB], nil)
765+                                        else 0
766+                                    if ((stake2 == stake2))
767+                                        then $Tuple2([ScriptTransfer(i.caller, unlockAmount, shareAssetId)], $Tuple2([IntegerEntry(kBalanceA, (balanceA - amountToPayA)), IntegerEntry(kBalanceB, (balanceB - amountToPayB)), IntegerEntry(kShareAssetSupply, (shareAssetSupply - withdrawAmount)), Burn(shareAssetId, withdrawAmount), ScriptTransfer(caller, amountToPayA, assetIdA), ScriptTransfer(caller, amountToPayB, assetIdB)], nil))
768+                                        else throw("Strict value is not equal to itself.")
769+                                    }
770+                                else throw("Strict value is not equal to itself.")
771+                            }
772+                        else throw("Strict value is not equal to itself.")
773+                    }
774+    }))
775+
776+
777+
778+@Callable(i)
779+func withdrawOneToken (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
780+    let caller = Address(callerBytes)
781+    let withdrawAsset = if ((args[0] == ""))
782+        then unit
783+        else fromBase58String(args[0])
784+    let $t03273732827 = getPoolAssets(i.caller)
785+    let strAssetIdA = $t03273732827._1
786+    let strAssetIdB = $t03273732827._2
787+    let assetIdA = $t03273732827._3
788+    let assetIdB = $t03273732827._4
789+    let shareAssetId = $t03273732827._5
790+    let $t03284032964 = getPoolBalances(i.caller, assetIdA, assetIdB)
791+    let balanceA = $t03284032964._1
792+    let balanceB = $t03284032964._2
793+    let accountBalanceA = $t03284032964._3
794+    let accountBalanceB = $t03284032964._4
795+    let shareAssetSupply = $t03284032964._5
796+    let $t03297733357 = if ((size(pAmounts) == 1))
797+        then {
798+            let pAsset = parsePaymentAsset(pAssetIds[0])
799+            if ((pAsset != shareAssetId))
800+                then throw(("Incorrect asset attached. Expected: " + toBase58String(shareAssetId)))
801+                else $Tuple2(pAmounts[0], pAsset)
802+            }
803+        else $Tuple2(0, shareAssetId)
804+    let pmtAmount = $t03297733357._1
805+    let pmtAssetId = $t03297733357._2
806+    let virtMinToRecive = parseIntValue(args[1])
807+    if ((size(args) != 3))
808+        then throw("Wrong args size")
809+        else if ((size(pAmounts) > 1))
810+            then throw("One attached payment expected")
811+            else if ((pmtAssetId != shareAssetId))
812+                then throw(("Incorrect asset attached. Expected: " + toBase58String(shareAssetId)))
813+                else if (!(containsElement([assetIdA, assetIdB], withdrawAsset)))
814+                    then throw("Incorrect withdraw asset.")
815+                    else if (if ((balanceA > accountBalanceA))
816+                        then true
817+                        else (balanceB > accountBalanceB))
818+                        then $Tuple2(nil, ([ScriptTransfer(caller, pmtAmount, pmtAssetId)] ++ suspendSuspicious(accountBalanceA, accountBalanceB, balanceA, balanceB, strAssetIdA, strAssetIdB)))
819+                        else {
820+                            let unlockAmount = parseIntValue(valueOrElse(args[2], "0"))
821+                            let unlock = if ((unlockAmount > 0))
822+                                then invoke(farmingAddress, "withdrawShareTokensFromPool", [callerBytes, toString(i.caller), unlockAmount], nil)
823+                                else 0
824+                            if ((unlock == unlock))
825+                                then {
826+                                    let withdrawAmount = (pmtAmount + unlockAmount)
827+                                    let amountToPayA = fraction(withdrawAmount, balanceA, shareAssetSupply)
828+                                    let amountToPayB = fraction(withdrawAmount, balanceB, shareAssetSupply)
829+                                    let $t03470534763 = getFeeParams(i.caller, i.originCaller)
830+                                    let fee = $t03470534763._1
831+                                    let govFee = $t03470534763._2
832+                                    let $t03478035180 = if ((withdrawAsset == assetIdA))
833+                                        then calculateFees(amountToPayB, virtMinToRecive, (balanceB - amountToPayB), (balanceA - amountToPayA), fee, govFee)
834+                                        else calculateFees(amountToPayA, virtMinToRecive, (balanceA - amountToPayA), (balanceB - amountToPayB), fee, govFee)
835+                                    let amountWithoutFee = $t03478035180._1
836+                                    let amountWithFee = $t03478035180._2
837+                                    let governanceReward = $t03478035180._3
838+                                    let $t03519736543 = if ((withdrawAsset == assetIdA))
839+                                        then {
840+                                            let unstake = if (contains(stakingAssets, strAssetIdA))
841+                                                then invoke(i.caller, "stakeUnstake", [false, ((amountToPayA + amountWithFee) + governanceReward), strAssetIdA], nil)
842+                                                else 0
843+                                            if ((unstake == unstake))
844+                                                then $Tuple4((((balanceA - amountToPayA) - amountWithFee) - governanceReward), balanceB, assetIdA, [ScriptTransfer(caller, (amountToPayA + amountWithFee), assetIdA)])
845+                                                else throw("Strict value is not equal to itself.")
846+                                            }
847+                                        else {
848+                                            let unstake = if (contains(stakingAssets, strAssetIdB))
849+                                                then invoke(i.caller, "stakeUnstake", [false, ((amountToPayB + amountWithFee) + governanceReward), strAssetIdB], nil)
850+                                                else 0
851+                                            if ((unstake == unstake))
852+                                                then $Tuple4(balanceA, (((balanceB - amountToPayB) - amountWithFee) - governanceReward), assetIdB, [ScriptTransfer(caller, (amountToPayB + amountWithFee), assetIdB)])
853+                                                else throw("Strict value is not equal to itself.")
854+                                            }
855+                                    let newBalanceA = $t03519736543._1
856+                                    let newBalanceB = $t03519736543._2
857+                                    let govRewardAssetId = $t03519736543._3
858+                                    let userTransfer = $t03519736543._4
859+                                    $Tuple2([ScriptTransfer(i.caller, unlockAmount, shareAssetId)], $Tuple2(([IntegerEntry(kBalanceA, newBalanceA), IntegerEntry(kBalanceB, newBalanceB), IntegerEntry(kShareAssetSupply, (shareAssetSupply - withdrawAmount)), Burn(shareAssetId, withdrawAmount), ScriptTransfer(moneyBoxAddress, governanceReward, govRewardAssetId)] ++ userTransfer), nil))
860+                                    }
861+                                else throw("Strict value is not equal to itself.")
862+                            }
863+    }))
864+
865+
866+
867+@Callable(i)
868+func takeIntoAccountExtraFunds (callerBytes,args,pAmounts,pAssetIds) = valueOrElse(isOraclePool(toString(i.caller)), valueOrElse(isActive(), {
869+    let $t03726837344 = getPoolAssets(i.caller)
870+    let strAssetIdA = $t03726837344._1
871+    let strAssetIdB = $t03726837344._2
872+    let assetIdA = $t03726837344._3
873+    let assetIdB = $t03726837344._4
874+    let $t03735737463 = getPoolBalances(i.caller, assetIdA, assetIdB)
875+    let balanceA = $t03735737463._1
876+    let balanceB = $t03735737463._2
877+    let accountBalanceA = $t03735737463._3
878+    let accountBalanceB = $t03735737463._4
879+    let amountEnrollA = (accountBalanceA - balanceA)
880+    let amountEnrollB = (accountBalanceB - balanceB)
881+    if ((size(args) != 0))
882+        then throw("Wrong args size")
883+        else if ((moneyBoxAddress != i.originCaller))
884+            then throw("Only the wallet can call this function")
885+            else if (if ((0 > amountEnrollA))
886+                then true
887+                else (0 > amountEnrollB))
888+                then suspend("Enroll amount negative")
889+                else if (if ((amountEnrollA == 0))
890+                    then (amountEnrollB == 0)
891+                    else false)
892+                    then throw("No money to take")
893+                    else {
894+                        let stake1 = if (if (contains(stakingAssets, strAssetIdA))
895+                            then (amountEnrollA > 0)
896+                            else false)
897+                            then invoke(i.caller, "stakeUnstake", [true, amountEnrollA, strAssetIdA], nil)
898+                            else 0
899+                        if ((stake1 == stake1))
900+                            then {
901+                                let stake2 = if (if (contains(stakingAssets, strAssetIdB))
902+                                    then (amountEnrollB > 0)
903+                                    else false)
904+                                    then invoke(i.caller, "stakeUnstake", [true, amountEnrollB, strAssetIdB], nil)
905+                                    else 0
906+                                if ((stake2 == stake2))
907+                                    then $Tuple2(nil, $Tuple2([IntegerEntry(kBalanceA, (balanceA + amountEnrollA)), IntegerEntry(kBalanceB, (balanceB + amountEnrollB))], nil))
908+                                    else throw("Strict value is not equal to itself.")
909+                                }
910+                            else throw("Strict value is not equal to itself.")
911+                        }
912+    }))
294913 
295914 
296915 @Verifier(tx)
297916 func verify () = {
298917     let multiSignedByAdmins = {
299918         let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
300919             then 1
301920             else 0
302921         let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
303922             then 1
304923             else 0
305924         let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
306925             then 1
307926             else 0
308927         (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
309928         }
310929     multiSignedByAdmins
311930     }
312931 
github/deemru/w8io/873ac7e 
71.61 ms ◑