tx · GBhQcfEcGr6EdoJqrBTJxNS8KRPWvG1SDmq5HHz6o8aY

3MzqQ3HKdkHmJmk9mDhAeAMxmK5D2ztdAe5:  -0.05000000 Waves

2022.11.25 20: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/169f3d6 
78.51 ms